commit 831a9f5c479be2053b0ff925d142f5ff9ce268f7
Author: Erick Gallesio <eg@unice.fr>
Date:   Fri Sep 27 12:29:02 1996 +0200

    Commit of 3.1.1 version

diff --git a/BINARY_DISTRIB b/BINARY_DISTRIB
new file mode 100644
index 0000000..4ccb1ef
--- /dev/null
+++ b/BINARY_DISTRIB
@@ -0,0 +1,31 @@
+Binary distributions are available at ftp://kaolin.unice.fr/pub/Binary.
+If you succeed in compiling a version for which no binary is available
+on the previous site, you can probably help other people by sharing 
+your binary.
+To make a machine-specific binary:
+
+	1. Type 'make binary-release' in the main distribution directory.
+	2. Create a README file for your distribution which indicates
+	   the options you chose. A model of the README file is given below.
+	3. Place the binary archive (the .tar.gz) and the README file in 
+	   ftp://kaolin.unice.fr/pub/Incoming/
+
+Thanks
+
+______________________________________________________________________________
+
+		Sample README file for binary-release
+		-------------------------------------
+
+
+	   Author: <place here your name>
+	    Email: <and your email here>
+    Creation date: <insert date here>
+ X11 version used: X11R<???>
+--------------------------------------------------
+Comments: 
+
+--------------------------------------------------
+Configuration:
+	<insert here the content of the file config.make>
+
diff --git a/CHANGES b/CHANGES
new file mode 100644
index 0000000..b0ac853
--- /dev/null
+++ b/CHANGES
@@ -0,0 +1,243 @@
+09/26/96 Release 3.1.1
+----------------------
+
+This release is a bug correction release. It corrects a lot bugs.
+A lot of theses bugs prevent to install it on some architectures.
+Apart bugs:
+
+	- Version of Tk is now at Tk4.1p1 level (last stable version)
+	
+	- a MS VC makefile is now provided for Win 32 thanks to 
+	Caleb Deupree <cdeupree@erinet.com> (I have changed some things 
+	from the Caleb file but cannot test them, I hope this is correct)
+	
+	- Support for sockets on Win32 was done by  Caleb Deupree on MS 
+	VC. This should also work on BC++ but I'm not able to test it.
+	
+
+07/24/96 Release 3.1
+--------------------
+
+	- Version of Tk is now at Tk4.1 level. 
+
+	- STk run now on Win32!!! 
+	Some details need a little more work (some oddities on file names
+	due to difference conventions between Unix and DOS, and things like 
+	that). No socket support and no dynamic loading on Win32
+
+	- A complete documentation of STk widgets pages (both in nroff 
+	and HTML format). The help command really allow you to browse
+	man pages now. Man pages are prefixed by "stk_" now to avoid confusion 
+	with original Tk manual pages. 
+
+	- STklos is now integrated to STk (it was dynamically loaded before).
+	  This simplify its implementation and speed up generic functions:
+		o gf are now 2-4 time faster
+		o gf are now tail recursive
+		o the MOP for gf is now "public" (i.e. you can change the way 
+		  gf are called in Scheme -- it was not possible with previous 
+		  versions without using C).
+
+	- Port implementation is different: A port contains now its
+	input and output handler. New primitives to access the handler:
+	when-port-readable and when-port-writable.
+	BTW, The Tk function fileevent function is no more useful
+	(it is written in Scheme now for compatibility, but its usage 
+	is deprecated). It may not be supported in a future release.
+
+	- New composite widgets: <Multiple-window> and <Inner-window>
+	which allow to have embedded windows. A multiple window 
+	has a task bar below and allow to iconify inner-windows. 
+	Some people think it looks like Win95 desktop ;-)	
+
+	- pixmap extension doesn't require anymore the Xpm library. Code
+	is stolen from the Tix Library.
+
+	- New socket code which allow multiple concurrent connection
+
+	- Extended types can now have a compare function which	is called
+	 when eqv? or equal? is called. This modification should be 
+	 compatible with the previous extensions (I hope so)
+	
+	- STklos: Two new methods: object-eqv? and object-equal? which are 
+	called when applying eqv? or equal? to instances.
+
+	- A rewriting of bind-for-dragging canvas method. You can now specify 
+	a :before-motion, which if it returns #f, forbid to move the selected 
+	canvas item.
+
+	- New primitives:setenv!, posix-host-name, posix-domain-name, 
+	posix-uname	  
+	
+	- Option separator "--" allows to pass reserved keyword (sush as -help) 
+	to a script. Option and parameter cannot be mixed anymore
+	(i.e. calling stk xyz -help ==> *argv* = ("xyz" "-help")
+
+	- HTML browser enhancement (support of the <FONT> tag with SIZE 
+	  and COLOR sub-tags. This must be compatible with the HTML spec. 
+
+	- and of course many many bug corrections.
+
+
+01/22/96 Release 3.0 (also called 3.0b2 by error)
+~~~~~~~~~~~~~~~~~~~~
+	- Version of Tk is now at Tk4.0p2 level
+
+	- Support Pixmap images
+
+	- Strings can now contain null charters (printing of strings is more 
+	friendly now in write mode
+
+	- Executable is now position independant(i.e. no path coded in hard in 
+	the interpreter). STK_LIBRARY shell variable is no more necessary. We
+	can now make binary distributions.
+
+	- Signal can now be redirected to Scheme closures. The end of a GC 
+	is seen as a signal.
+
+	- Trace on variable are changed (and re-work now): the associated trace
+	must be a thunk now.
+
+	- New option for buttons, checkbuttons, radiobuttons and entries: 
+	:stringvalue.
+	This options tells if the value must be stringified or not. 
+	For instance, with
+	    (radiobutton '.c :text "Try" :variable 'x :stringvalue #f :value 100)
+	will set the "x" var to "100" whereas with
+	    (radiobutton '.c :text "Try" :variable 'x :stringvalue #t :value 100)
+	value is set to the integer value 100
+	Default value for :stringvalue is #t for entries and #f for check and
+	radio buttons.
+
+	- stk-wtour demo is updated for STk 3.0
+
+	- In STklos, if a method M is defined and if it is already bound to 
+	a procedure, the old procedure is called when no method is applicable.
+	Example:
+	    (define-method car ((x <integer>)) (- x 1))
+	    (car 10)           ==> 9
+	    (car (cons 'a 'b)) ==> a
+	As a consequence, this kind of method cannot call no-applicable-method
+	if parameters are not valid:
+	     (car (vector 1 2))  ==> error car: wrong type of argument: #(1 2)
+
+	- Small change in the STklos hierarchy. <widget> is now a subclass of
+	<procedure> and its meta class is <procedure-metaclass>.
+	
+	
+10/07/95 Release 3.0b1
+~~~~~~~~~~~~~~~~~~~~~~
+A lot of modifications. Briefly,
+	- Support of Tk4.0 
+	- Closures are fully supported by Tk. That means that a callback can be 
+	  now a  Scheme closure with its environment. GC problems with closures
+	  and usage of the dirty "address-of" are definitively gone.
+	- HTML support (a browser is provided, should be extended to support
+	  all HTML2.0)
+	- Documentation is now in HTML for the Tk commands (only a few commands
+	  are ready for now, but they will be all defined in a near future).
+	- ....
+
+
+07/15/95 Release 2.2
+~~~~~~~~~~~~~~~~~~~~	
+
+This is the last release with Tk 3.6. Next release will integrate Tk 4.0
+
+	- Bug corrections 
+	- Changing Makefiles and configure files for better dynamic loading
+	  integration. 
+	- Adding support for BLT-1.7. This library can be loaded dynamically
+	  on system which support it
+	- New option which permit to change the initial amount of cells
+	- Uses really LESS memory.
+	- New GC. Now  we have a set of heaps and a new heap is allocated as
+	  soon as the global space is "nearly" filled.
+	- SLIB support (just type (require "slib") and after that process as
+	  indicated in SLIB documentation
+	- Integration of the Suresh Srinivas STk-wtour demo.
+	- Adding support for Text in STklos: Definition of the <Text> class
+	  (and companion <Text-tag> class).
+	- call/cc is now tail recursive. (Alas, methods and dynamic-wind are
+	  not yet tail recursive).
+	- Better support for autoloading files
+	- Adding support for an exec function a` la Tcl (i.e. execute of a 
+	  unix process and keep its output in a Scheme string)
+	- General run-process for running Unix process were std{in,out,err} 
+	  can be redirected in files or in pipes.
+	- Some code has been rewritten to ease STk porting
+	- Adding support for regular expression pattern matching and
+	  replacement 
+	- There is now a light interpreter, called snow (for Scheme
+	  NO Window); this is in fact the STk interpreter without Tk support. 
+	  This interpreter is an independant executable. It can be called 
+	  with the `snow' shell-script or by unsetting the DISPLAY variable.
+	- New organisation of intalled file to permit co-existence of
+	  several version of STk or multi-architecture file sharing
+	- Dynamic loading support for NetBSD-1.0 
+	- Dynamic loading support for HP
+	- Dynamic loading and dump support for FreeBsd.
+	- Dynamic loading for Linux (using ELF format or the DLD package)
+	- A mini interface builder (very simplistic, but usable)
+	- New contributions: A true Tetris game, a 8 queens simulation and 
+	  a demo of composite widgets.
+	- Every exported identifier now starts with the string "STk_" to
+	  avoid name clashes when embedding the interpreter in an application.
+	- BSD sockets support 	
+	- Better integration with Emacs
+	- AMIB (A Mini Interface Builder) 
+	- A lot of improvement in STklos
+	- .....
+
+See the ChangeLog file for more information
+ 	
+==============================================================================
+??/??/?? Release 2.1
+~~~~~~~~~~~~~~~~~~~~	
+
+This is a major release version. 
+    
+	- STklos (the object layer) is now written in C. It is more than 150
+	  times faster than before and it uses less memory (~ 1/100)!!!!
+	- Improvement of STklos 
+	- STklos classes have been written for all the Tk library widgets
+	- Composites widgets can be easily defined in STklos. Access to those
+	  widgets is identical to C written one.
+	- bindings can be now true lambda expression with their own
+	  environment (rather than list which are evaluated in the global 
+	  environment).
+	- Hash tables have been added.	
+	- Small constants are coded on a pointer rather than a cell
+    	- Support for dynamic loading on SunOs (4 and 5). Dynamic loading
+      	  uses shared objects (it should work also on OSF1)
+	- Dump creates now smaller images.
+	- Modification of configure and Makefiles to correct of a lot 
+	  of installation problems.
+	- Runs on Solaris 2.3
+	- Bugs corrections 
+	- Some modification to the error notifier
+	- Support of dynamic loading of shared objects on Solaris 1 & 2 (it
+	  should work also on OSF1).
+	- ...
+
+94/01/03 Release 2.0
+~~~~~~~~~~~~~~~~~~~~
+
+    STk 2.0 contains a completly rewritten Scheme interpreter. This new
+    interpreter is
+            - R4RS
+            - faster than previous release (~ 3 or 4 times)
+            - less bugged (I hope :-) )
+            - implements integers (32 bits and bignum) and floats
+            - cleaner with macros 
+    
+    This version contains also a prototype of a graphical inspector which
+    permits to see/modify a variable value. For widgets variables it permits
+    to modify interactively their behaviour. However, it doesn't yet contain
+    a C rewritting of the object layer as it was planned. This will be done
+    in a (probably the) next release.
+
+93/09/02 Release 1.00 (first public release)
+~~~~~~~~~~~~~~~~~~~~~
+
+    Forget it :)
\ No newline at end of file
diff --git a/COMPILING-HINTS b/COMPILING-HINTS
new file mode 100644
index 0000000..d16ef29
--- /dev/null
+++ b/COMPILING-HINTS
@@ -0,0 +1,261 @@
+This File contains a set of hints for compiling STk and the things
+which have been reported about installation of STk. This file is very 
+incomplete and I hope to be able to make it growing.
+
+If you experience a new port or confirm/infirm/add informations which are 
+specified here please send a mail to 'eg@unice.fr' (there is a blank form 
+at the end of this file)
+
+If you succeed in compiling STk on an architecture for which there is no 
+binary release, please read the file BINARY_DISTRIB
+
+
+______________________________________________________________________________
+SunOs 4.1.x
+______________________________________________________________________________
+Compilation:
+	CC=gcc
+	CFLAGS=-O2
+
+X11:
+	R5 and R6 
+
+Dynamic loading:
+	I was not able to make a version using dynamic loading and the gnu 
+	loader. If your version of gcc use gld, you'll have probably to use the
+	--disable-dynload option during configuration. (Note: I said probably 
+	since a lot of things don't work on this system which has a gcc with
+	gld. Everything seems very poorly installed on this system)
+
+	No problem with gcc and Sun ld.
+Who:
+	Erick Gallesio (eg@unice.fr)
+Tested:
+	Yes :)
+
+Remarks:
+	The main system used for developping STk
+
+______________________________________________________________________________
+SunOs 5.3
+______________________________________________________________________________
+
+Compilation:
+	CC=gcc
+	CFLAGS=-O2
+X11:
+	OpenWindows
+
+Dynamic loading:
+	Should work. At least it seems to be conform to documentation :->
+	Must be 
+Who:
+	Erick Gallesio (eg@unice.fr)
+
+Tested:
+	just make widget-demo
+
+Remarks:
+	Some people have reported that they use dynamic loading but I can 
+	remember who (and it was on 2.1).
+
+______________________________________________________________________________
+Linux 1.0.9 -> 2.0.0
+______________________________________________________________________________
+
+Compilation:
+	CC=gcc
+	CFLAGS=-O2
+X11:
+	XFree3.1.2
+
+Dynamic loading:
+	Dynamic loading is supported for DLD and ELF. (however DLD hqs not 
+	been tested since a long time, I'm not sure it continues to work).
+	The configure script try to figure what type of dynamic loading
+	works for you and enable dynamic loading by default. With recent
+	kernels, it will probably be ELF.
+
+Who:
+	Erick Gallesio (eg@unice.fr)
+
+Tested:
+	yes
+
+Remarks:
+	The other system used for developping STk.
+
+______________________________________________________________________________
+DEC Alpha OSF1 V2.0
+______________________________________________________________________________
+
+Compilation:
+	CC=cc 		Dont't use gcc 2.6 !!!!!!
+	CFLAGS=-O2
+X11:
+	X11 R5
+
+Dynamic loading:
+	Erik Ostrom <eostrom@radon.ccs.neu.edu> told me to use ld for 
+	makeing the .so file. I quote him below:
+	"If SH_LOADER is "ld", you get a huge warning about all the 
+	 undefined symbols; but if it's "cc", ld just won't make the
+	 .so file.  I assume there's a way to get better results, but
+	 this at least produced a working system."
+
+Who:
+	Erick Gallesio (eg@unice.fr)
+
+Tested:
+	Not a lot. Only the widget demo and some bignum tests.
+	No more core dump on undefined variable
+
+Remarks:
+	Don't use gcc. STk worked with gcc prior 2.6. It doesn't work anymore
+with this version  of gcc. I have not investigated a lot with it but it seems
+that gcc 2.6 is unable to compile the bignum stuff (it yields warning during
+compilation whereas tthe code seems correct). Tests includes in the GMP
+packages dont pass anymore. Consequently, all computation
+which involve a bignum will be false (and could sometimes conduct to a core
+dump).
+
+	I don't use this system. 
+______________________________________________________________________________
+Dec 5xxx Ultix 4.2
+______________________________________________________________________________
+
+Compilation:
+	CC=gcc
+	CFLAGS=-O2
+X11:
+	X11 R5
+
+Dynamic loading:
+	Not supported
+
+Who:
+	Erick Gallesio (eg@unice.fr)	
+
+Tested:
+	Widget demo work.
+
+Remarks:
+	I don't use this sytem. 
+
+______________________________________________________________________________
+HP 9000/735 (HP-UX 9.01)
+______________________________________________________________________________
+
+Compilation:
+	CC=cc
+	CFLAGS='-Ae -O'
+
+X11:
+	????
+
+Dynamic loading:
+	Dynamic loading is supported (support is due to Dipankar Gupta 
+	<dg@hplb.hpl.hp.com>). This support has been sent to me as a patch 
+	file over 2.1. It must be extended for newer versions (the only file
+	to modify is Src/dynload.c). Furthermore, options needed for 
+	compilation dosen't seems clear for me. I have guessed some of them
+	but I may be wrong.
+Who:
+	ottl@informatik.uni-muenchen.de
+
+Tested:
+	Widget demo only (I think)
+
+Remarks:
+	Other people have reported that STk work on HP. I don't know if they 
+	have used it a lot. Every info is welcome.
+
+______________________________________________________________________________
+SCO
+______________________________________________________________________________
+
+Compilation:
+	???
+
+X11:
+	???
+
+Dynamic loading:
+	???
+
+Who:
+	markd@grizzly.com
+
+Tested:
+	???
+
+Remarks:
+
+Use ptar (pax tar) to untar the distribution rather than standard tar. It
+seems that the standard tar doesn't handle correctly symbolic links. 
+
+______________________________________________________________________________
+NetBSD 1.0
+______________________________________________________________________________
+
+Compilation:
+	???
+X11:
+	XFree ????
+
+Dynamic loading:
+	Yes. Contribution of Franke Ruediger (Ruediger.Franke@rz.tu-ilmenau.de) 
+
+Who:
+ 	Franke Ruediger 	
+
+Tested:
+	???
+	
+Remarks:
+	????
+
+______________________________________________________________________________
+SGI Irix 5.3
+______________________________________________________________________________
+
+Compilation:
+	CC=gcc CFLAGS=-O2
+X11:
+	X11R6
+
+Dynamic loading:
+	Dynamic loading is supported
+
+Who:
+	tiemann@cygnus.com
+
+Tested:
+	compiled, ran all demos (stk and stklos)
+
+Remarks:
+
+______________________________________________________________________________
+A new system (Mail this form to eg@unice.fr if you have made a new port)
+______________________________________________________________________________
+
+Compilation:
+	Indicate here the values of CC and CFLAGS you used
+X11:
+	Indicate here the X11 version you used
+
+Dynamic loading:
+	Indicate here if dynamic loading is supported and all info that seems
+	necessary for loading a file in a running interpreter.
+
+Who:
+	your email or "Anonymous" if you don't want to bother yourself
+	with that anymore.
+
+Tested:
+	How much you have tested STk (just compiled it, tested only the 
+	demos, ...)
+
+Remarks:
+	Everythink you think is relevant.
+
diff --git a/COPYRIGHTS b/COPYRIGHTS
new file mode 100644
index 0000000..f6bd7fc
--- /dev/null
+++ b/COPYRIGHTS
@@ -0,0 +1,126 @@
+Since I'm not a lawyer, I don't know where to put copyrigth notices
+and permission notices of softwares I use. Consequently I put them here in
+hope it's sufficient.... 
+
+Note:
+   STk licence seems not to be as clear as I hope. The main idea is
+that you can do what you want with STk. You can even use it in
+commercial products. The only restriction is that you must prevent me
+if you intend to use it in a commercial product (so I can send you a
+"written permission" for efectively using it). The goal is not to
+restrict commercial applications but only to count them.  If someone,
+fluent in english and which like those aspects, can help me to make
+things clearer...
+
+==============================================================================
+
+TK/TCL Copyright 
+----------------
+Copyright (c) 1987-1993 The Regents of the University of California.
+Copyright (c) 1994 Sun Microsystems, Inc.
+
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+RESTRICTED RIGHTS: Use, duplication or disclosure by the government
+is subject to the restrictions as set forth in subparagraph (c) (1) (ii)
+of the Rights in Technical Data and Computer Software Clause as DFARS
+252.227-7013 and FAR 52.227-19.
+
+
+Siod Copyright
+--------------
+
+/* Scheme In One Defun, but in C this time.
+ 
+ *                      COPYRIGHT (c) 1988-1992 BY                          *
+ *        PARADIGM ASSOCIATES INCORPORATED, CAMBRIDGE, MASSACHUSETTS.       *
+ *			   ALL RIGHTS RESERVED                              *
+
+Permission to use, copy, modify, distribute and sell this software
+and its documentation for any purpose and without fee is hereby
+granted, provided that the above copyright notice appear in all copies
+and that both that copyright notice and this permission notice appear
+in supporting documentation, and that the name of Paradigm Associates
+Inc not be used in advertising or publicity pertaining to distribution
+of the software without specific, written prior permission.
+
+PARADIGM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+PARADIGM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+*/
+
+Tiny CLOS copyright
+-------------------
+
+;;; Copyright (c) 1992 Xerox Corporation.	 
+;;;; All Rights Reserved.	
+;;;
+;;; Use, reproduction, and preparation of derivative works are permitted.
+;;; Any copy of this software or of any derivative work must include the
+;;; above copyright notice of Xerox Corporation, this paragraph and the
+;;; one after it.	 Any distribution of this software or derivative works
+;;; must comply with all applicable United States export control laws.
+;;;
+;;; This software is made available AS IS, and XEROX CORPORATION DISCLAIMS
+;;; ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION THE
+;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+;;; PURPOSE, AND NOTWITHSTANDING ANY OTHER PROVISION CONTAINED HEREIN, ANY
+;;; LIABILITY FOR DAMAGES RESULTING FROM THE SOFTWARE OR ITS USE IS
+;;; EXPRESSLY DISCLAIMED, WHETHER ARISING IN CONTRACT, TORT (INCLUDING
+;;; NEGLIGENCE) OR STRICT LIABILITY, EVEN IF XEROX CORPORATION IS ADVISED
+;;; OF THE POSSIBILITY OF SUCH DAMAGES.
+
+
+
+and finally
+
+STk Copyright
+-------------
+
+/*
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ */
\ No newline at end of file
diff --git a/ChangeLog b/ChangeLog
new file mode 100644
index 0000000..8e67d67
--- /dev/null
+++ b/ChangeLog
@@ -0,0 +1,1196 @@
+Thu Sep 26 19:38:42 1996  Erick Gallesio  <eg@unice.fr>
+	    
+	* STk-3.1.1 Release
+
+	* Demos/amib.stklos: Accessing help is now stk:show-help-file (the
+	  change was not reported)
+
+Wed Sep 25 14:40:21 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/slib.c (STk_delete_Tcl_child_Interp): new function which must
+	  called by a child process just after a fork. This function is
+	  necessary to allow the dynamic loading of posix.so in snow
+	  (otherwise some Tk symbols are undefined).
+
+	* Extensions/posix.c (posix_fork): Use now STk_delete_Tcl_child_Interp.
+
+	* Src/number.c: Interface has been added for the Frank Schmuelling
+	  complex-number package. Don't rely on it, since rationnal and
+	  complex numbers will be present in a future release. As soon as the
+	  full tower will be implemented in STk, this door will be closed.
+
+Tue Sep 24 18:26:06 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Lib/dialog.stk: The text of the dialog was reset to a message,
+	  instead of a label (when was the change done?)
+
+Mon Sep 23 22:52:10 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/signal.c: A lot of modifications in signal handling. Major
+	  rewrite of some procedures.  The '^Z' signal works again.  BTW, I
+	  was unable to correctly catch a SEGV on linux (which is necessary to
+	  find that no more memory is available on Linux, since malloc never
+	  returns NULL this OS. Need more work.
+
+Sun Sep 22 23:54:44 1996  Erick Gallesio  <eg@unice.fr>
+
+
+	* Src/toplevel.c (finish_initialisation): replaced the hard-coded
+	  call to signal when using -f option to a call to the
+	  STk_set_signal_handler.
+
+	* Src/slib.c (cannot_allocate): new private procedure called when
+	  there is no more memory during a must_malloc or a must_realloc (the
+	  old behaviour was incorrecte since it uses cons whereas there was no
+	  more memory, conducting to a buggy report-error message). However,
+	  the copy on write schem used by Linux cannot be detected by this
+	  procedure. It seems that we have to wait a SIGSGV signal.
+
+Tue Sep 17 10:03:49 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/toplevel.c: Bug correction: only create the stdin handler when
+	  the process is interactive (Otherwise, STk interpreters launched in
+	  backgound by system keep locked -- heavily used in the
+	  Doc/README.html demo)
+
+	* STklos/Tk/Composite/Multipaned.stklos: Orientation of Multi-paned
+	  didn't work since it was done with differents keywords (:orientation
+	  and :position) in some places (thanks to MIZUSHIMA Kazunori 
+	  <mizkaz@keiou.trad.pfu.co.jp>)
+
+Fri Sep 13 08:22:41 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STklos/Tk/Tk-methods.stklos: Bug correction in a method of focus
+	  (Erik Ostrom <eostrom@research.att.com>)
+
+	* Src/io.c: 
+	* Src/port.c: char-ready? was incorrect when used on stdin 
+	  (thanks to  Erick Ostrom)
+
+	* STklos/Tk/Text.stklos: Correction of the value field of text
+	  widgets. Tk always add a newline at end of buffer.
+
+	* Lib/tk-init.stk (%redefine-Tk-command): After STklos was loaded,
+	  each call to focus implies the loafing of file focus.stk !!
+
+	* Extensions/socket.c: Added support for sockets on Win32 (thanks to
+	  Caleb Deupree <cdeupree@erinet.com>)
+
+	* Src/unix.c: Added the VC++ support for file globbing (thanks to
+	  Caleb Deupree <cdeupree@erinet.com>)
+
+Wed Sep 11 23:05:32 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/tk-main.c: command line argument handling for -geometry was
+	  broken. Thanks to Harvey J. Stein <abel@netvision.net.il>
+
+Fri Sep  6 18:20:28 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Extensions/stack.c: Replaced FILEPTR by PORT_FILE in the stack
+	  demo. Thanks to Jean-Marie Kubek <kubek@gmm.insa-tlse.fr>
+
+	* configure.in: Get rid of '-n' on echo commands. This option is not
+	  supported under Solaris 2.x
+
+Wed Sep  4 13:16:38 1996  Erick Gallesio  <eg@unice.fr>
+
+	* configure.in: X11 libs/includes in non standard place were not taken
+	  into account even when a --x-libraries or a --x-includes was given
+	  to the configure script.
+
+Mon Sep  2 10:46:06 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Tk: updraded to Tk4.1p1
+
+	* Src/eval.c: Bug correction in eval.c: arguments were not evaluated
+	  when the generic function is implemented in Scheme rather than in C.
+	  (Thanks to Jean-Christophe Pazzaglia <pazzagli@arsenic.unice.fr>)
+
+	* Lib/dialog.stk: Added a binding to the dialog window that sets the
+	  result to -1; this is needed in case something happens that destroys
+	  the window, such as its parent window being destroyed.
+
+Thu Aug 29 13:43:13 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/slib.c (STk_quit_interpreter): replaced Tcl_DeleteInterp by a
+	  call to delete the command ".". Otherwise, when the interpreter
+	  delete all the commands and find ".", the process becomes
+	  recursive. This yield problems when the interpreter has already
+	  allocated images.
+
+Sat Aug 24 15:48:40 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/io.c (STk_getc): Bug correction: when a handler was set on
+	  stdin, and the process was interactive, the system loops
+	  indefinitely.
+
+	* Lib/text.stk: Typo on *tk-strict-motif* for <ButtonRelease-2>
+
+Fri Aug 23 22:24:33 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/toplevel.c (finish_initialisation): Modifications to allow
+	  using stdin when using the "-f" option. Signaled by Erik Ostrom
+	  <eostrom@research.att.com>
+
+Sat Aug 17 11:21:30 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/io.c: Tcl_DoOneEvent parameter was "TK_DONT_WAIT", which is no
+	  more necessary and which greatly increase cpu usage when used
+	  interactively. Tcl_DoOneEvent is now 0
+
+Tue Aug 13 18:00:10 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STklos/Tk/Composite/*.stklos: Avoid to use a (require
+	  "Tk-classes") since it can condut to problem if normal widget have
+	  been loaded by hand before (i.e. without using Tk-classes)
+
+	* Lib/posix.stk: The definition of posix-access? was inverted.
+
+	* Src/posix.c (posix_access): corrected error messages typos.
+
+	* Mp/Makefile: replaced make by $(MAKE)
+
+	* New directory: Doc/LaTeX-packages: This dictory contains packages	
+	 which ares used in documentation but which are absent from some
+	 Latex distributions.
+
+	* Lib/process.stk: mispelling in string-append. Grrr.
+
+	* Tk/configure: Bug correction: Not everybody has "." in its PATH.
+
+	* Tk/unix/Makefile.in: Bug correction signalled by
+	  Matthew.R.Wette@jpl.nasa.gov for X11 include files placed in non
+	  standard place
+
+	* Lib/Makefile: Bug correction signalled by
+	  Matthew.R.Wette@jpl.nasa.gov when installing Lib files
+
+	* configure.in: Changed Linux 2.x namimg scheme (I forgot that Linux
+	  is now in 2.0!)
+
+Wed Jul 24 00:04:49 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STk-3.1 Release
+
+	* Src/stklos.c: The slot "name" in methods (which was always (buggyly)
+	  set to "???")  is gone.  A new slot replace it:
+	  "generic-function". The value of this slot is the generic function
+	  to which the method belongs.
+
+	  Anonymous function have a "generic-function" set to #f.
+
+	  Potential problem: an anonymous method can be added to two different
+	  GFs. In this case, the slot "generic-function" will be incorrect.
+	  However, this should not be a problem since
+		1. anonymous method are rare
+		2. this is only used by STklos to find the class of the gf
+		   (and not the gf itself) of a method when there is no
+		   next-method when we applying a next-method....
+
+	* Tk/unix/tkUnixWm.c: A lot of adaptation to Scheme (empty lists
+          replaced by #f, mainly). This modificcations were needed for amib
+	  whose save/restore didn't work in 3.0.
+
+	* Tk/generic/tkPlace.c: Bug correction in the info suboption
+
+Tue Jul 23 10:11:28 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/argv.c (STk_process_argc_argv): has been rewritten and is 
+	 table driven now. Parameters are processed analysed
+	 differently now: the "--" option has been added to allow a clear
+	 separation between interpreter arguments and scripts arguments 
+	 (as in Tcl). However, interpreter arguments must precede scripts
+	 arguments (this is different from Tcl, but more Unixish).
+
+	* Src/tk-main.c: Bug correction: if visual was incorrect the program
+	 enter in an infinite loop.
+
+	* Doc/Makefile: Tk Manuals pages are now prefixed by "stk_"
+	to avoid confusion with original Tk ones. They are always placed
+	in a subtree of the STk tree installation since it eases 
+	the distribution of binary releases. 
+
+	* New demo: mc-server a multiple-client server. This is a first 
+	version, because this demo should be graphical to see connections
+	and deconnection as they arrive. (Next release)
+
+Mon Jul 22 15:53:44 1996  Erick Gallesio  <eg@unice.fr>
+
+	* BINARY_DISTRIB: description of the way to make binary releases.
+	  Binary release will be stored in ftp://kaolin.unice.fr/Binary
+
+	* Lib/init.stk:
+	  Lib/Makefile.in:  Adding a site-scheme directory. This is
+	  the standard directory for non standard stuff. Local scheme
+	  files or extensions  can be put in this directory.
+
+Sun Jul 21 17:53:35 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Lib/init.stk: added the variable *shared-suffix*. It is equal to
+	  "so", except on HP-UX whers it is set to "sl". All the Lib/*.stk*
+	  files haves been modified to use this variable rather than hardcode
+	  the usual ".so".  I hope it will be OK for HP users.
+
+	* Src/port.c (STk_open_file): new mode accepted "a" (for append).
+
+Fri Jul 19 14:36:04 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/posix.c: 
+	   - Renamed posix-access to posix-access? (old name exists
+	     for compatibility but will be garbaged in afuture version)
+	   - Added the constant X_OK which was missing
+
+Thu Jul 11 22:21:30 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/posix.c: New primitives: posix_host_name and posix_domain_name
+	 based on gethostname and getdomainname (POSIX.1 does not define
+	 these functions, but ISO/IEC 9945-1:1990 mentions them in B.4.4.1.,
+	 according to the Linux documentation.
+
+	* Src/posix.c: New primitive: posix-uname
+
+Fri Jul  5 19:41:38 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Lib/html.stk: Addition of the <FONT> tag with SIZE and COLOR
+	  sub-tags. This must be compatible with the HTML spec.  The <COLOR>
+	  tag which was STk-specific is deleted
+
+Mon Jun 10 00:05:16 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Port implementation is different: A port contains now its
+	input and output handler. String ports have been changed accordingly.
+	
+Sat Jun  1 21:23:01 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STk works on Win32: However, there are a lot of minor
+	  things which are not correct (fonts, cursors). It seems that
+	  most of this small problems are already resolved with Tk 4.1 
+	  (the official one). OK, start to port from Tk4.1a2 to Tk 4.1.
+	  The main probleme will very probably be with the event loop.
+
+Mon May 27 10:42:58 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Renaming files in STklos/Tk and STklos/Tk/Composite: they have now
+	a .stklos suffix (rather than .stk), because Win32 filenames are not 
+	really case sensitives.
+
+Sat May 11 08:33:22 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Integration of code modification for WIN32 port (snow only)
+
+Fri Apr 26 09:26:10 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/primitives.c:
+	* Src/gc.c:
+	* Src/tcl-lib.c: Widgets don't capture anymore the environment. This
+	was necessary before release 3.0, but useless now. As a matter of
+	fact, widget-environment primitive has also been suppressed. Since it
+	was never documented, I doubt that someone will cry for it.
+
+	* Src/cont.c: Bug: Changed "#ifdef sun" by "#ifdef sparc" for 
+	flushing the registers window Useful for Sun3 (bug signaled 
+	by Michael A. Patton <MAP@BBN.com>)
+
+	* Lib/menu.stk: Tk:option-menu: function added (identical to the 
+	Tcl one)
+
+Thu Apr 25 23:10:37 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Tk/generic/tkMenu.c: Bug correction: tearoffmenucommand was not
+	defined as a closure.  
+
+Wed Apr 24 16:21:42 1996  Erick Gallesio  <eg@unice.fr>
+
+	  * Src/stklos.c: New protocol around gf: the following methods are now
+	  called when an error occur with a gf call:
+		  * no-next-method ((gf <generic>) args) as CLOS
+		  * no-applicable-method ((gf <generic>) args) as CLOS
+		  * no-method ((gf <generic>) args) when calling gf
+						    without method
+
+Tue Apr 23 23:02:26 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STklos/stklos.stk: New protocol for calling standard generic
+	  functions.  This protocol is not used for real <generic> function (in
+	  this case we use a completly C hard-coded protocol).  When a subclass
+	  of <generic> is applied, the interpreter uses the new protocol instead
+	  of the C one. This "opens" the generic function mechanism:
+		  - special generic function can easily coded in Scheme (but
+		    they will be slow)
+		  - standard generic functions are as fast as possible.
+
+	  This protocol provides the following generic functions:
+		  * apply-generic ((gf <generic>) args)
+		  * sort-applicable-methods ((gf <generic>) methods args)
+		  * method-more-specific? ((m1 <method>) (m2 <method>) targs)
+
+Mon Apr 22 23:50:18 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/boolean.c:
+	* Src/proc.c:
+	* Src/print.c:
+	* Src/gc.c: 
+	* Src/stklos.c: 
+	* Src/eval.c: STklos integration. Generic functions are recognized now
+	by the interpreter as standard STk objects (i.e. stklos is no more a
+	dynamically loadable extension).  This integration provides:
+		- faster gf (the old way to implement gf is very general and
+		  is not efficient (each call to a generic function implied
+		  to search the way to apply the generic function in a table).
+		- gf are now properly tail recursive.
+
+Fri Apr 19 23:53:32 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/print.c: Change -- address printing: the "#p" is no more used
+	when displaying an address.  The #p is kept for Tk (of course) and
+	when using write.
+
+Sun Apr 14 19:05:50 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Demos/compo-demo.stklos: New compo-demo for <Multiple-window>
+
+	* STklos/Tk/Composite/Multiwin.stk: 2 new composite widgets:
+	<Multiple-window>: a window which can contain several windows
+	<Inner-window>   : a window embedded in a <Multiple-window>
+	The look is very similar to the Windows 95 explorer.
+
+Sat Apr 13 21:58:18 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Tk/generic/tkEvent.c (Tk_AfterCmd): Bug correction for after idle
+
+Sun Mar 31 22:38:54 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/unix.c: New primitive: setenv!
+
+Fri Mar 29 15:06:46 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/gc.c (allocate_new_heap): Don't use must_malloc here since it
+	can conduct to call GC when allocating large heaps (typically with
+	large -cells xxx).
+
+Mon Mar 25 14:20:21 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STklos/Tk/Canvas.stk: bind-for-dragging: bug correction end
+	enhancement. You can now specify a :before-motion and :after-motion
+	scripts. The old :motion is always accepted
+	(it's equivalent to :after-motion). If the :before-motion closure
+	returns #f, the object is not displaced and the :after-motion closure 
+	is not applied.
+
+Mon Feb 26 16:11:30 1996  Erick Gallesio  <eg@unice.fr>
+
+	* STklos/stklos.stk: Two new methods are defined in STklos:
+	object-eqv? and object-equal?.  They are called when doing an eqv? or
+	an equal? on STklos instance.  These methods, which can of course be
+	specialized, return #f.
+
+	* Src/boolean.c: Extended types can now have a compare function which
+	is called when eqv? or equal? is called. This function is called when
+	one of the arguments of eq*? is of an extended type. See the document
+	on Extending STk for details.
+
+Sat Feb 24 01:47:06 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Port of STk on Tk4.1a2.
+	This should simplify the port on Windows.
+
+Mon Feb 19 17:19:49 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/toplevel.c (repl_driver): STk_interactivep was not correctly
+	initialized. This seem to be a regression (or a quirk in the home &
+	work files)
+
+Fri Feb 16 14:49:48 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/number.c (do_integer_division): Correction of a bug signalled by
+	Raymond Toy <toy@rtp.ericsson.se>. Integer division of bignums was
+	buggy (aka Pentium symptom (except that it was always erroneous)).
+
+Mon Feb 12 00:03:55 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Extensions/pixmap.c: Pixmap implementation uses now the file
+	tixImgXpm.c from the Tix Library (Author: Ioi Kim Lam). This
+	implementation doesn't need the Xpm library (which is difficult to
+	locate automatically with configure script and which has several
+	version with compatibily problems).
+
+Wed Jan 24 11:52:49 1996  Erick Gallesio  <eg@unice.fr>
+
+	* Src/print.c (STk_print): Bug correction. Print of special char in
+	Strings was buggy.  Thanks Drew.Whitehouse@anu.edu.au for signalling
+	it.  have also added \v and \a that I have forgot.
+
+	* STklos/Tk/Composite/Scrollcanvas.stk: Correcting a small typo error
+	signaled by Ralf Berger <Ralf.Berger@ipk.fhg.de>.
+
+Sun Jan 21 23:57:37 1996 Erick Gallesio  <eg@unice.fr>
+
+	* STk-3.0 (official) release (aka known as 3.0b2 since I have forgot to
+	set the correct version name.
+
+Sun Dec 10 21:37:17 1995  Erick Gallesio  <eg@biot.unice.fr (Erick Gallesio)>
+
+	* Src/promise.c (STk_force):
+	Bug correction for recursive expression in a force. It is now conform
+	to R4RS.
+	   (define c #f)
+	   (define p (delay (if c 100 (begin (set! c #t) (+ (force p) 1)))))
+	returns now the value 100 (and not 101).
+	This bug was raised with test.scm.
+
+	*******************
+	Changelog was not maintained for a while. I will try to update 
+	it later. Sorry.
+	********************
+
+Sat Oct  7 14:57:01 1995  Erick Gallesio  <eg@unice.fr>
+
+	* STk-3.0b1 release
+
+Tue Jul 18 08:46:49 1995  Erick Gallesio  <eg@unice.fr> 
+
+	* Starting STk 3.0 ....
+
+Mon Jul 17 20:55:27 1995  Erick Gallesio  <eg@kaolin.unice.fr (Erick Gallesio)>
+	
+	* 2.2 Release
+	* Src/syntax.c (STk_syntax_begin): begin, and & or were not always
+	tail recursives. This bug was detected (and corrected) by  Lars Thomas
+	Hansen <lth@cs.uoregon.edu>
+	* Doc/Reference/Reference2.tex: Documentation of new hash tables
+
+Sun Jul 16 10:30:26 1995  Erick Gallesio  <eg@unice.fr>
+
+	* Snow/run-snow.in: 
+	* Src/run-stk.in: I have changed the machine determination scheme 
+	to avoid problems on Sun (sun4m sun4 sun4c... are all the same, at 
+	least for STk). For Linux, there is no more differerence between 
+	the Intel rocessor used for compiling STk (i{345}86 are all the same).
+
+	* Src/dynload.c: 
+	* Src/configure.in:
+	* Src/Makefile.in:
+	* configure.in:
+	* Makefile.in: Support for ELF format under Linux. Thanks to
+	Johann Friedrich Heinrichmeyer and <jsc2mit.edu>
+
+	* Src/slib.c (STk_machine_type):
+	* Src/toplevel.c (print_banner): MACH define has been changed by MACHINE
+	to avoid problems with Mach systems.
+
+Sat Jul 16 23:30:27 1995  Erick Gallesio  <eg@unice.fr>
+
+	* Doc/Extension/Extending.tex: Adding documentation for Tcl widget 
+	integration
+
+Thu Jul 13 09:04:54 1995  Erick Gallesio  <eg@unice.fr>
+
+	* Doc/Reference/Appendix-D.tex: Description of Ilisp, CMU Scheme packages
+	* Doc/Manual/stk.txt: New manual page. Manual page is now installed in 
+	$(prefix)/man/man1/stk.1
+	
+	* Src/error.c (STk_err): Don't print a line number when error comes from 
+	stdin. 
+
+	* Src/stk.h: 
+	* Src/toplevel.c: 
+	* Src/argv.c: New option: -interactive to force the
+	interpreter to be interactive, even if it doesn't seem to
+	be. This is useful when using STk under Emacs. 
+	When STk is interactive, stdout and stderr are now unbuffered.
+	* Src/port.c (STk_init_standard_ports): line buffering of Stderr has been 
+	deleted. Everything is done now in toplevel.c (depends on the
+	-interactive flag
+
+	* Lib/regexp.stk: Bug correction in regexp-replace-all when replacing
+	string appears in the string to replace. Correction is due to
+	Sean Slattery <jslttery@GS148.SP.CS.CMU.EDU>
+
+Wed Jul 12 09:57:10 1995  Erick Gallesio  <eg@unice.fr (Erick Gallesio)>
+
+	* Src/syntax.c (syntax_let_family): Don't signal an error if a
+	symbol is defined twice in a let*. Formal semantics given in R4RS
+	allows it (whereas textual explanation seems to forbid it.
+	Problem was found by Brent Knight <knight@CS.Cornell.EDU>.
+
+	* Src/port.c: New definition of macro READ_DATA_PENDING for
+	ELF compiling. Thanks to Jin S. Choi <jsc@tabitha.atype.com>
+	for the bug correction.
+
+	* Lib/init.stk: Macros are now defined in the global environment. 
+	This avoids problems when some primitives procedure are redefined.
+	All the primitive should be protected for those redefinitions.
+
+	* Lib/Makefile (install): prolog.ps is now placed in the good directory
+
+	* Tk/tkCanvas.c (CanvasWidgetCmd): Correction of a bug signaled by
+	Johann Friedrich Heinrichmeyer. The result of the poscript command
+	must be "stringified".
+	
+
+Tue Jul 11 21:16:17 1995  Erick Gallesio  <eg@unice.fr (Erick Gallesio)>
+
+	* STklos/Tk/Canvitem.stk (initialize-item): INCOMPATIBLE CHANGE
+	<Text> in canvas has been renamed in <Canvas-text> to avoid a conflict 
+	when using both cnavases and texts widgets.
+	Demos have been modified to take this modification into account
+
+	* STklos/Tk/Composite/Scrollcanvas.stk (<Scroll-canvas>):
+	* STklos/Tk/Composite/Scrollbox.stk (<Scroll-listbox>): Bug correction in 
+	background propagation. (Bug signaled by H. J. Stein)
+ 
+
+Tue Jul 11 16:31:44 1995  Erick Gallesio  <eg@kaolin.unice.fr (Erick Gallesio)>
+
+	* Correction of several bugs signaled by Eric Ostrom on text widget
+
+Fri Jul  7 23:27:17 1995  Erick Gallesio  <eg@unice.fr (Erick Gallesio)>
+
+	* Tk/tkWindow.c (Tk_CreateMainWindow): 
+	* Src/toplevel.c (init_interpreter): Init system path from
+	STK_LIBRARY shell variable. This variable MUST be initialized now
+	(this is done in the stk or snow scripts). This allows us to make 
+	binaries which are independant of their location. This will permit 
+	to distribute binaries on kaolin.
+
+	* Src/hash.c: Modification of the hash table module to take into
+	account an optional parameter which specifies the comparison function.
+	This permits to have equal? eqv? eq? or string? hash tables for instance
+	
+Tue Jul  4 14:04:49 1995  Erick Gallesio  <eg@unice.fr (Erick Gallesio)>
+
+	* Src/port.c:
+	* Src/sport.c: Minor code cleaning (using STk_is_thunk)
+
+Fri Jun 23 22:27:26 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Composite/Scrolltext.stk (<Scroll-text>): bug correction
+	in background propagation	
+
+Mon Jun  5 18:03:47 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STk-2.1.7 release
+
+	* Extensions/posix.c: An extension for using Posix primitives in
+	Scheme.  Far from complete. This is just a start. Any help on this
+	point would be appreciated.
+
+	* Doc/Extension/Extending.tex: A new version which is more (but not
+	totally :-<) complete.  
+	* Extensions/stack.c: a new file used for illustating the document
+	  "Extending the STk interpreter"
+
+	* Demos/amib.stklos: A new version of the interfac builder which
+	is usable now. This version handle the packer and the placer.
+
+	* STklos/Tk/Composite/Multipaned.stk (initialize-composite-widget):
+	  Addition of the Multipaned composite widget. Thanks to Harvey J. Stein,
+	  for his modifications.
+
+Sat Jun  3 00:44:53 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Lib/init.stk:
+	* Src/syntax.c: Rewritting of "while" and "unless" in C
+
+	* A new type: tc_ssubr. This type is temporary and will change in
+	 the next release.  This type correspond to all n-ary functions of
+	 number.c.  Correction of an ENNORMEOUS bug: There was a double
+	 evaluation when fsubr where called by apply!!!. Fsubr cannot be
+	 applyed now (ssubr are the only procedure with non evaluated
+	 parameter which can be appyed.
+
+	* Src/proc.c (STk_procedurep): (Procedure? a-tk-command) => #t now
+	* Lib/inspect-misc.stk (inspect::typeof obj): correction of a bug
+	introcuced in the inspector by previous modification
+
+Fri Jun  2 00:07:20 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/gf.c (find_method): Code cleaning.
+
+Thu Jun  1 19:29:39 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/port.c (do_load): I have added a comment when a file has
+	  finished to be loaded, as suggested by David Fox.
+
+	* Src/gc.c (gc_sweep): GC calls now Tcl_DeleteCommand when a new
+	  command is deleted. See below ...  
+
+	* Src/tcl-lib.c: Modifications of {Create,Delete}Interp and
+	  {Create,Delete}Command to really execute the detete code of a
+	  Tk-command. This seems to be useful only for the send command
+	  annd "."  command (but would also be probably useful for future
+	  tcl extensions).  The "send" associated delete proc permits to
+	  unregister the interpreter from the X server (bug signalled by
+	  Sean Slattery slttery@GS148.SP.CS.CMU.EDU and that I have never
+	  seen !!!!).
+
+Mon May 29 17:04:53 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Message.stk (<Message>): Deleteing the class
+	  <Tk-sizeable> from <Message> class. This was erroneous.
+
+Fri May 26 23:52:40 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Toplevel.stk (<Toplevel>): Adding the :init-keyword
+	  for class and display slots. This modification was necessary for
+	  the new AMIB.  Min-size and max-size slots contain now a string
+	  and class and display slots contain a string (it was a symbol) 
+
+	* STklos/Tk/Frame.stk (<Frame>): Adding the :init-keyword for
+	  class slot Class slot contains a string (it was a symbol)
+
+Fri May 19 22:44:59 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/sport.c (STk_get_output_string): Correction of a bug
+	  signalled by Fritz.Heinrichmeyer@fernuni-hagen.de
+
+Wed May  3 12:59:24 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Composite/Paned.stk (motion-grip): Applying the patch
+	  of Harvey J. Stein <hjstein@MATH.HUJI.AC.IL> which constraints
+	  the grip ]0..1[ This permits to avoid its disappearance.
+
+Tue May  2 00:05:55 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Tk-methods.stk: This file is always loaded now (it was
+	  loaded only when Tk was initialized before). Read the comment in
+	  this file when re-using STk images. *top-root* initialization is
+	  in Tk-methods.stk rather than Toplevel.stk now.
+
+	* Lib/tk-init.stk (Tk:initialized?): a new variable which is set
+	  to #t when Tk is fully initialized
+
+
+Mon May  1 16:55:18 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/stklos.c (display_instance): 
+	* Src/error.c (STk_err): 
+	* Src/eval.c (STk_show_eval_stack): 
+	* Src/port.c (STk_write): 
+	* Src/tk-glue.c (STk_convert_for_tk): 
+	* Src/toplevel.c (repl_loop): 
+	* Src/extend.c (internal_display): 
+	* Src/print.c (STk_print):    All those files have been modified for
+	  giving the port (a SCM object) to the procedure which do a print
+	  rather than a FILE *, which is more general. This modification is
+	  necessary for permitting a real display_object in extension.  STklos
+	  uses this for the {write,display,tk-write}-object methods.
+
+Tue Apr 25 14:57:48 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/number.c (STk_gcd): Bug correction in lcm, gcd, min and max (arguments
+	  were evaluated several times!!!!). 
+
+Tue Apr 18 14:55:23 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STklos/Tk/Composite/Scrolltext.stk: New file. It implements what
+	  you think it should!!
+
+	* STklos/Tk/Composite/Scrollcanvas.stk: New file. It implements
+	what you think it should!!
+
+	* STklos/Tk/Composite/Scrollbox.stk (<Scroll-listbox>): Scroll
+	listbox accept now horizontal scrollbar.
+
+Sat Apr 15 15:40:40 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Tk/tkListbox.c (ListboxWidgetCmd): Correction of an old old bug:
+	Getting an element of listbox always retusrns a string. However,
+	this modification breaks down the inspector.... (it is time to
+	rewrite it....)
+
+Fri Apr 14 23:32:42 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/number.c (STk_round): Bug correction. (Round x) must returns
+	the closest integer to x, rounding to even when x is halfway
+	between two integers.
+
+Fri Mar 31 00:15:36 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/configure.in: Adding test for the existence of the pid_t
+	type.  This is needed for porting STk on Sony WS (Sony NEWS,
+	NEWSOS 4.2R) Thanks to Nobuyuki Hikichi <hikichi@sra.co.jp>
+
+	* Lib/init.stk (random): have been extended to allow the result to
+	be a bignum. Here again, thanks to Nobuyuki Hikichi
+	<hikichi@sra.co.jp>
+
+Sat Mar 25 23:33:54 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STk/read.c: Modification of the reader to remember current
+	filename and line counters. This eases debugging since error
+	messages can display those informations.
+
+Thu Mar 16 15:32:59 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/extend.c (STk_define_C_variable): New function. This
+	function permit to establish a link between a C variable and a
+	Scheme one. Once this link is established, every reading of the
+	variable will call a getter function and every write will call the
+	setter function. No data is used in the Scheme space, variable
+	value is a C data.
+
+Wed Mar 15 17:21:40 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* New primitive type: C-pointer. This is a Scheme type to wrap a C
+	pointer.  It greatly eases communication with C.
+
+	* Src/extend.c: New file. This file contains all the code for
+	extensions and C pointers. It contains a ot of code from old
+	dynload.c.  File dynload.c contains now only the function which do
+	dynamic loadind (and which is very sytem dependant.
+
+Tue Mar 14 13:30:11 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/slib.c (STk_internal_eval_string): Bug correction. The error
+	context was false.
+
+Fri Mar 10 15:55:47 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/userinit.c (STk_user_cleanup): STk_user_cleanup has been added. 
+
+	* Src/port.c (STk_init_standard_ports): Error file is now line
+	buffered. This gives better performances when used under emacs.
+
+
+Thu Mar  9 12:49:43 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Added support for dynamic loading under Linux (with DLD). Code
+	is inspired from a contribution of Patrick Nguyen
+	(pnguyen@elde.epfl.ch)
+
+Sun Mar  5 16:06:11 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/port.c (STk_char_readyp): Added support for char-ready. Code
+	should not be very portable...
+
+Sat Feb 25 11:51:45 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/slib.c (STk_get_internal_info): Bug correction: the result
+	was completely erroneous. Is it possible that I have tested this
+	function without having seen this????
+
+	* Dynamic loading should work for OSF1 (Thanks to Erik Ostrom
+	<eostrom@radon.ccs.neu.edu>)
+
+Sun Feb 12 18:00:15 1995  Erick Gallesio  (eg@unice.fr)
+
+	* 2.1.6 release
+
+Sat Feb 11 23:23:15 1995  Erick Gallesio  (eg@unice.fr)
+
+	* Src/env.c (STk_parent_environment): New function. It was time to
+	write it...
+
+	* Src/port.c (STk_error): Set context to ERR_OK but keep the bit
+	indicating if error must be caught or not.
+
+	* New version of blt for STk. Some minor changes for compiling it
+	with new C conventions.
+
+Thu Feb  9 23:21:52 1995  Erick Gallesio  (eg@unice.fr)
+
+	* STklos/Tk/Basics.stk: Tk::find-option is defined as autoload to
+	permit image creation.
+
+	* STklos/Tk/Toplevel.stk: Definition of *top-root* is deferred
+	until first <Toplevel> creation (to allow image creation)
+
+	* STklos/Tk/Tk-methods.stk: New file. This file contains the
+	redefinition of Tk commands as methods. This file is loaded when
+	the first Tk object is really created. Deferring the loading of
+	this file permits to make images of interpreters containing Tk
+	classes.
+
+
+Thu Feb  2 23:15:15 1995  Erick Gallesio  (eg@biot)
+
+	* Src/unix.c (absolute): Bug correction for file name with mutiple
+	dots such as "...1../2" which were improperly expanded
+
+	* Src: Yeaaah. All the symbols defined by STk are now prefixed by
+	"STk_".  It tooks me some days to obtain this. I take this
+	occasion to pass through the code and try to ameliorate things
+	rather than using brute force.
+
+Wed Feb  1 02:17:12 1995  Erick Gallesio  (eg@biot)
+
+	* Socket support has been rewritten. It is now configured by
+	default.  New model seems more simple (at least for me) and more
+	coherent with the process extension.
+
+Tue Jan 31 10:30:29 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Modification of all Makefile to use $(MAKE) rather than make as
+	suggested by Christian Lynbech <lynbech@daimi.aau.dk>
+
+Mon Jan 30 15:22:06 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Tk/tkConfig.h: Modifications for HPUX.
+
+Sun Jan 29 15:11:06 1995  Erick Gallesio  (eg@biot)
+
+	* Src/process.c: Completely cleaned up. Table of processes is
+	managed by the SIGCHLD signal if it exists. On machines without
+	job control, process management is done by hand. Some new function
+	have been added (suggested on the mailing list by Giorgio Cesana
+	<cesana@venus.agcis.st.it>): process-exit-status, process-stop,
+	process-continue, process-send-signal.
+
+	(run_process): A new option: ":host" which permits to execute the command 
+	on a distant host.
+
+Mon Jan 23 12:07:23 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/tk-main.c (Tk_main): adding code for managing argument line
+	-geometry option. It was missing....
+
+	* Src/stklos.c (make_primitive_classes): Adding the new primitive
+	class <list> which is the ancestor of <pair> and <null>. Suggested
+	by Harvey J. Stein (hjstein@math.huji.ac.il)
+
+Sun Jan 22 18:12:02 1995  Erick Gallesio  (eg@biot)
+
+	* Demos/inspector.stk: A small demo, for showing usage of the
+	inspector with Tk object. A very simple thing but this seems to be
+	rather unknown.
+
+Sat Jan 21 23:01:15 1995  Erick Gallesio  (eg@biot)
+
+	* Src/read.c (lreadr): Cosmetic changes. Using the sym_XXX
+	variables instead of interning them at each time.
+
+	* Src/gc.c (allocate_new_heap): Setting of the field gc_mark to 0
+	for all new allocated cell. Thanks to Chet Murphy
+	<murthy@CS.Cornell.EDU> for this bug correction.
+
+	* Src/toplevel.c (init_interpreter): Bug correction: sym_unquote
+	was gc protected twice whereas sym_unquote_splicing was not. A
+	cut/paste error which took 2 days to debug :-(
+
+
+Mon Jan  9 12:06:08 1995  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Configure and Mafefile files modifications to allow dynamic
+	loading under Irix 5.3. Thanks to Michael Tiemann
+	<tiemann@cygnus.com> for the patches.
+
+Sun Jan  1 21:10:45 1995  Erick Gallesio  (eg@biot)
+
+	* One important thing :-) Adding 1995 in all the files which
+	contains a copyright notice. This is the good day for doing that
+	(an only that!).
+
+Fri Dec 30 17:56:40 1994  Erick Gallesio  (eg@biot)
+
+	* New organization of Tcl files. All The Tcl files have been
+	updated to release 7.4b1 (the Tcl release that comes with Tk
+	4.0b1).  The file Src/tcl-util.c has shrink a lot and most of it
+	is now in Tcl/tlUtil.c (in fact a copy of the original file with
+	some #ifdefs).  This last change is break the previous philosophy
+	of libtcl.a (a library of Tcl file *unmodified*) but changes are
+	minor and I hope that it will ease the port to new version of
+	Tcl/Tk which semble very instable at this time.
+
+Wed Dec 28 18:14:22 1994  Erick Gallesio  (eg@biot)
+
+	* Lib/error.stk (report-error): Modification of error message format
+
+	* Src/primitives.c: Deleting the definition of the "lindex"
+	primitive which doesn't serve anymore.
+
+Tue Dec 20 12:02:00 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/syntax.c (syntax_define): "Bug" correction: When using a
+	local "define", There was a duplication of the binding if the
+	symbol was already defined in the out most environment. Since the
+	new binding was placed before the older one, good value was
+	found. However, it makes environment bigger than necessary
+	(and strange result when using environment->list).
+
+	* Src/env.c (value_in_env): New function. It returns the value of
+	var in given env. Search is done only at out most level. This
+	function is an utility function for local "define".
+
+Mon Dec 19 12:08:31 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/stk.h (MAX_CHAR_CODE): Correct value is 255 (it was 256)
+
+Fri Dec 16 16:06:57 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STk 2.1.5 release
+
+Fri Dec 16 13:56:25 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/dynload.c: Adding support for HPUX (thanks to ipankar Gupta
+	<dg@hplb.hpl.hp.com>)
+
+
+Fri Dec  9 22:15:34 1994  Erick Gallesio  (eg@biot)
+
+	* Snow/run-snow.in: There is now a new interpreter, called snow
+	(for Scheme NO Window), which is the STk interpreter without Tk
+	support.  This interpreter is an independant executable. It can be
+	called with the snow shell-script or by unsetting the DISPLAY
+	variable.
+
+Thu Dec  8 22:47:44 1994  Erick Gallesio  (eg@biot)
+
+	* Makefile.in: Modifications of all configure.in and Makefile.in. 
+	Now we can 
+		- share versions of STk between different architectures
+		- have several versions of STk installed on the same machine
+
+Wed Dec  7 21:46:44 1994  Erick Gallesio  (eg@biot)
+
+	* Src/dynload.c (load_object_file): Adding dynamic loading support
+	for NetBSD-1.0 (i386-port). Thanks to Franke Ruediger
+	(Ruediger.Franke@rz.tu-ilmenau.de) for the patch.
+
+Tue Dec  6 00:26:48 1994  Erick Gallesio  (eg@biot)
+
+	* Src/tk-glue.c (execute_Tk_lib_cmd): GC bug correction. There was a
+	bug when a GC occured during the creation of the argv array of a Tk
+	command. This bug occured on Linux with -O2; Correcting it doesn't arrange
+	things==> Usage of an equivalent code. Thanks to H. Stein for signaling this bug.
+
+
+Sat Nov 26 10:46:58 1994  Erick Gallesio  (eg@biot)
+
+	* Src/stklos.c: Changing all the "class" variables by "clath" for
+	C++ users
+
+	* Src/port.c (loadfile): All the code for loading file is now
+	written in C and things are more "orthogonal".  New variable
+	defined: *load-suffixes*.
+
+	* Src/toplevel.c (repl_driver): Move of user init initialisation
+	so taht they are taken into account in case of a "stk -f" (thanks
+	to Brian Webb webbb@aies.tucson.saic.com)
+
+Wed Nov  9 13:54:34 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STk-2.1.4 release
+
+Thu Nov  3 23:20:06 1994  Erick Gallesio  (eg@biot)
+
+	* A New datatype: regular expressions. They are defined in a
+	dynamic loadable file (for the regexp compiler and the apply
+	function) and in a Scheme file
+	(mainly for the regexp-replace[-all] procedures
+
+Wed Nov  2 16:49:07 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* file-is-xxx? and file-exists? are now written in C
+
+	* Elimination of %file and %string Tcl command. Those commands
+	were used behind the scene to avoid some rewriting. No code in the
+	distribution should use them.  This conduct to the defineition of
+	two new primitives string-index and file-is-executable? (which was
+	forgotten in previous releases).
+
+Mon Oct 31 11:04:27 1994  Erick Gallesio  (eg@biot)
+
+	* Src/hash.c (hash_table_stats): Circumvent a bug in Tcl code on
+	empty hash tables (see comment in source file)
+
+Fri Oct 28 14:23:36 1994  Erick Gallesio  (eg@biot)
+
+	* STklos/Tk/Toplevel.stk (<Toplevel>): All the "wm" Tk-command
+	options are now available through Toplevel slot accesses (Idea
+	from Rob Deline) A New global variable: *top-root*: This is a
+	toplevel which contains the *root* window. Changing the name of
+	the root window can now be done by
+	    (set! (title *top-root*) "New title")
+
+Tue Oct 18 14:42:55 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/number.c (lround): Rewritten to avoid the use of the rint(3)
+	function which does'nt seems to exist on some systems (SCO and
+	some HP at least)
+
+Mon Oct 17 18:29:31 1994  Erick Gallesio  (eg@biot)
+
+	* Lib/editor.stk (stk:all-fonts): Various font specifications
+	changes (those which where used in all the Lib directory where not
+	portable.
+
+Mon Oct 17 11:38:17 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/slib.c (lrandom): Bug correction (bignum where not allowed
+	  as parameter => (random(random 10)) was invalid since result of
+	  random is always a bignum
+	  (bug signaled by  Markus Armbruster <armbru@pond.sub.org>)
+
+Fri Oct 14 09:02:12 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* New procedure: run-process which permit to run a process with
+	 redirection off the stdin, stdout and stderr. The code is a
+	 rewriting of the Alexander Taranov, Grygory Niconov and David
+	 Tolpin contribution.
+
+Thu Oct 13 14:56:05 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/number.c: Add a rint compatible function for systems which
+	desn't provide one (SCO apparently -- signaled by
+	markd@grizzly.com)
+
+Wed Oct 12 15:12:51 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* New functions for port manipulation (port->string
+	  port->string-list ....)  With those function, it is easy to
+	  write a Tcl-like exec.  All those function are written in
+	  Scheme.
+
+Tue Oct 11 15:53:49 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/slib.c (set_random_seed): modified to allow bignums for the seed.
+
+Mon Oct 10 14:16:52 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Minor modifications to allow a better compilation on some C and C++
+	compilers.
+
+Sun Oct  9 18:19:01 1994  Erick Gallesio  (eg@biot)
+
+	* Bug correction: the eval_stack (which serves ONLY for displaying
+	context upon error was not corectly managed on "tail recursion
+	elimination". This leads to memory consumption on infinites loops.
+
+Tue Sep 27 11:46:01 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STklos/tk-classes.stk: Creation of a new file which define a set
+	of autoloads. Those autoload permits to avoid to use a long list
+	of require at the beginning of programs
+
+	* Src/port.c (do_autoload): Adding support for autoload in C. Now,
+	any kind of symbol can be autoloaded.
+
+Thu Sep 15 16:36:01 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* 2.1.3 Release
+
+Wed Sep 14 18:52:14 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/stklos.c (make_instance): GC bug correction in a critical
+	section of code.
+
+	* Src/macros.c (lmacro): GC bug correction in a critical section
+	of code.
+
+	* Src/symbol.c (intern): modification of a critical section of
+	code a GC could occur between the hash table entry creation and
+	the end of its initialization. Correction of the same kind of
+	problem in keyword.c.  Bug discovered by Rob Deline.
+
+	* Src/stklos.c (modify_instance): Bug correction (change-class
+	make a twist between old and new instance) ==> following GC free
+	the bad instance data !!
+
+Fri Sep  9 13:40:12 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Packing of the STk2.1.2 release
+
+Thu Sep  8 09:27:16 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* STklos/stklos.c: Definition of a slot_set_if_unbound which only
+	affect a slot if needed. This function is used in the slots
+	initialization process.  Now, things are corrects when a slot
+	:initform is overloaded by inheritance or when initialization is
+	done in an initialize followed by a next-method
+	(i.e. it's the user value which is taken instead of the default one).
+
+	* Src/gc.h: re-integretate gc_protect (can be useful for extension
+	writers)
+
+	* After 3 days continuations are tail recursive..... I thought I
+	will become crazy before I found the little typing mistake (a
+	lsubr instaed of a tsubr in primitives.c) which makes things
+	weird.
+
+Mon Sep  5 18:37:16 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Symbols and keywords use now Tcl Hash table (which grow
+	dynamically).  Keywords share now memory. This reduces drastically
+	space occupation. (Old symbol table uses conses, and keywords
+	where not shared). Unused symbols can be GCed now.
+
+	* Change class bug correction (Thanks to Rob Deline).
+
+Fri Sep  2 11:41:04 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* -image can be specified needs not anymore to be the first
+	argument of the command line.
+
+	* Src/argv.c: "-cells" can be specified when calling stk. This
+	give the amount of cells created upon init.
+
+Wed Aug 31 14:17:44 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/argv.h (save_unix_args_and_environment): moved to
+	argv.c. This new file contains all the argc/argv/env stuff. STk
+	doesn't rely anymore on Tk code for parsing command line
+	arguments. This permits to have a arguments processing even if not
+	compiled with -DUSE_TK.
+
+Tue Aug 30 13:39:53 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Tk/tkArgv.c (Tk_ParseArgv): 
+
+	* Src/gc.c (init_gc): GC complete revision: Now we have a set of
+	heaps and a new heap is allocated as soon as the global space is
+	"nearly" filled (I have fixed nearly to 75%). User can maually
+	grow the heap by using extend-heap.  There are time statitics now
+	indicating how much time is spent in GC.
+
+Mon Aug 29 12:35:05 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/cont.c (throw): bug correction in
+	continuations. Specifically, the gc_mark phase for the
+	continuation blocks may fail because the stack starting and ending
+	addresses used in the code are both (char *), not (SCM *),
+	aligned, and the stack is copied in bytes, not in SCMs.  on char *
+	rather than SCM. This bug was discoverred by Felix Wu
+	(wu@cadence.com)
+
+	* Adding SLIB support (i.e. I have written the STk.init
+	file). Some modifications in stk.init were needed (accepting the
+	".scm" suffix mainly)
+
+	* Src/macros.c (expand): Cleanup in macros. We have now
+	macro-expand and macro-expand-1
+
+Thu Aug 25 15:59:33 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/number.c (do_integer_division): bug correction for
+	modulo. The fix is due to kerch@parc.xerox.com.
+
+Wed Aug 24 12:02:41 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Src/number.c (integerp): Bug correction. integer? must returns
+	#t even if the value is an inexact integer.
+
+	* port.c: - modification to allow close-port on string-port 
+	          - if the first char of a filename is a pipe ("|") character,
+		  usage of popen instead of fopen. This permits to define
+		  "pipe ports" very easily as in Tcl.
+
+	* Integration of the Suresh Srinivas STk-wtour demo to the
+	Contrib. Some minor bugs have been fixed and some new lessons have
+	been added. Hierarchy was modified to fit to the contrib
+	directory.
+
+Tue Aug 23 17:16:34 1994  Erick Gallesio  (eg@kaolin.unice.fr)
+
+	* Definition of a file compatibility file which assume compatibily
+	among versions. When this file is loaded, a message will be
+	printed, saying that you have to upgrade your source.
+
+	* Adding support for Text in STklos Definition of a new version of
+	the STF format (0.2) which permits to load and save files with
+	their enhancment (font, color, ...). Now, tags can be dynamically
+	created (instead of choosen in a fixed list).  A compatibility
+	mode is provided (see above)
+
+
+
diff --git a/Contrib/%README b/Contrib/%README
new file mode 100644
index 0000000..fda0b43
--- /dev/null
+++ b/Contrib/%README
@@ -0,0 +1,40 @@
+This directory contains contributions which have been sent to me.
+
+Inspect
+   The STk-inspector (contributor Erick Fintzel -- fintzel@kaolin.unice.fr)
+Pretty
+   A pretty printer (contributor Martine Follen -- mf@unice.fr)
+
+Process 
+   A set of new primitives to deal with Unix processes. This contribution will
+   be included in the core interpreter in the next release (contributors
+   Alexander Taranov, Grygory Niconov and David Tolpin -- tay@jet.msk.su, 
+   gn@jet.msk.su and Dvd@CIM.Msk.SU)
+   
+Python
+   A patch which permits to communicate with a Python interpreter 
+   (contibutor jredford@lehman.com)
+
+Socket
+   An implementation of BSD-INET sockets and is known to run on  
+   Solaris 1 and Linux. This is the starting point of current implementation.
+   Contributor: David Tolpin (dvd@pizza.msk.su)
+
+Stetris
+  This is a falling block game not unlike tetris(tm) :).  It is
+  implemented in STk just to prove it can be done, and as a challenge to
+  TCLers. (contributor Harvey J. Stein -- hjstein@math.huji.ac.il)
+
+STk-wtour
+  A rewritting of the Andrew Payne Tcl/Tk wtour for STk.
+  This is excellent for learning basics od STk programming
+  (contributor Suresh Srinivas  -- ssriniva@cs.indiana.edu)
+
+Trace
+   A trace procedure (contributor Martine Follen -- mf@unice.fr)
+
+
+
+Another contribution, called XS, (a Scheme graphical debugger) is also available
+as a separate file on kaolin.unice.fr in the file ~ftp/pub/xscheme0.2.gz.
+
diff --git a/Contrib/Inspect/README b/Contrib/Inspect/README
new file mode 100644
index 0000000..f79eaf0
--- /dev/null
+++ b/Contrib/Inspect/README
@@ -0,0 +1,5 @@
+This directory contains the STk graphical Inspector. It is a first step toward
+a true debugger (able to set breakpoints, to see the stack, ...).
+This work is due to Eric Fintzel (fintzel@kaolin.unice.fr).
+
+Hacked by Erick Gallesio (eg@unice.fr) for version 2 integration.
diff --git a/Contrib/Inspect/inspect-detail.stk b/Contrib/Inspect/inspect-detail.stk
new file mode 120000
index 0000000..78fe51b
--- /dev/null
+++ b/Contrib/Inspect/inspect-detail.stk
@@ -0,0 +1 @@
+../../Lib/inspect-detail.stk
\ No newline at end of file
diff --git a/Contrib/Inspect/inspect-help.stk b/Contrib/Inspect/inspect-help.stk
new file mode 120000
index 0000000..d2216be
--- /dev/null
+++ b/Contrib/Inspect/inspect-help.stk
@@ -0,0 +1 @@
+../../Lib/inspect-help.stk
\ No newline at end of file
diff --git a/Contrib/Inspect/inspect-main.stk b/Contrib/Inspect/inspect-main.stk
new file mode 120000
index 0000000..72f9b22
--- /dev/null
+++ b/Contrib/Inspect/inspect-main.stk
@@ -0,0 +1 @@
+../../Lib/inspect-main.stk
\ No newline at end of file
diff --git a/Contrib/Inspect/inspect-misc.stk b/Contrib/Inspect/inspect-misc.stk
new file mode 120000
index 0000000..18ad105
--- /dev/null
+++ b/Contrib/Inspect/inspect-misc.stk
@@ -0,0 +1 @@
+../../Lib/inspect-misc.stk
\ No newline at end of file
diff --git a/Contrib/Inspect/inspect-view.stk b/Contrib/Inspect/inspect-view.stk
new file mode 120000
index 0000000..4f322e2
--- /dev/null
+++ b/Contrib/Inspect/inspect-view.stk
@@ -0,0 +1 @@
+../../Lib/inspect-view.stk
\ No newline at end of file
diff --git a/Contrib/Pretty/pp.stk b/Contrib/Pretty/pp.stk
new file mode 120000
index 0000000..6ae52ab
--- /dev/null
+++ b/Contrib/Pretty/pp.stk
@@ -0,0 +1 @@
+../../Lib/pp.stk
\ No newline at end of file
diff --git a/Contrib/Process/process.c b/Contrib/Process/process.c
new file mode 100644
index 0000000..ed845cd
--- /dev/null
+++ b/Contrib/Process/process.c
@@ -0,0 +1,628 @@
+#include	"stk.h"
+#include	<fcntl.h>
+#include	<errno.h>
+#include	<sys/param.h>
+#include	<sys/wait.h>
+#include  <unistd.h>
+#include	<signal.h>
+
+
+#define MAX_PROC_NUM                            256 /*enough eh?*/
+#define	MAX_ARGS_NO				256
+
+#define	NO_REDIRECTION	       	0
+#define	REDIRECTION_BY_FILE    	1
+#define	REDIRECTION_BY_STREAM	2
+
+
+/******** SIGUSR1 handler *******/
+static void su1_handler(){
+/*  printf("SIGUSR1 arrived\n"); */
+}
+/*********************************/
+
+/**** Registering processes ****/
+static SCM proc_arr[MAX_PROC_NUM];
+
+
+static init_proc_table(){
+  int i;
+  for(i = 0; i<MAX_PROC_NUM; i++)
+    proc_arr[i] = ntruth;
+}
+
+static int find_process(SCM prc){
+  int i;
+  int ret = -1;
+  for(i = 0; i<MAX_PROC_NUM; i++){
+    if(prc==proc_arr[i]){
+      ret = i;
+      break;
+    }
+  }
+  return ret;
+}
+
+static int reg_process(SCM prc){
+  int i;
+  /* find slot */
+  i = find_process(ntruth);
+  if(i<0){
+    gc_for_newcell();
+    i = find_process(ntruth);
+  }
+  if (i < 0){
+    err("Too many processes", NIL);
+    return -1;
+  }
+  proc_arr[i] = prc;
+  return 0;
+}
+
+static 
+int find_slot(){
+  int i;
+  /* find slot */
+  i = find_process(ntruth);
+  if(i<0){
+    gc_for_newcell();
+    i = find_process(ntruth);
+  }
+  if (i < 0){
+    err("Too many processes", NIL);
+    return -1;
+  }
+  return i;
+}
+       
+static int remove_process(SCM prc){
+  int i;
+  /* find slot */
+  i = find_process(prc);
+  if(i<0){
+    err("unregistered process", prc);
+    return -1;
+  }
+  proc_arr[i] = ntruth;
+  return 0;
+}
+
+ 
+
+
+
+/**** gc-helpers *****/
+static void free_process( SCM process );
+static void mark_process( SCM process );
+
+
+
+static int tc_process;
+
+static extended_scheme_type process_type = {
+  "process",		/* name */
+  0,			/* is_procp */
+  mark_process,		/* gc_mark_fct */
+  free_process,	        /* gc_sweep_fct */
+  NULL,			/* apply_fct */
+  NULL			/* display_fct */
+};
+
+
+ 
+struct process_info {
+  int pid;                          /* pid */
+  char  *commandLine;		/* Cmdline used to start process */
+  char  redirection[3];		/* Types of redirection	       */
+  struct obj   *stream[3];
+};
+
+#define PROCESS(x) ((struct process_info *)(x->storage_as.extension.data))
+#define PROCESSP(x) (TYPEP (x, tc_process))
+#define NPROCESSP(x) (NTYPEP (x, tc_process))
+#define PROCPID(x)  PROCESS(x)->pid
+
+
+extern char **sys_errlist;
+
+static char	*stdStreams[3] = {
+	"standard input",	"standard output",	"standard error",
+};
+
+static char *strName[3] = {
+	"stdin", "stdout", "stderr",
+};
+
+static PRIMITIVE
+fork_process( SCM command, SCM args, SCM redirection, int run_async );
+
+PRIMITIVE
+run_process( SCM command, SCM args, SCM redirection ) {
+  return fork_process(command, args, redirection, 1);
+}
+
+PRIMITIVE
+run_sync( SCM command, SCM args, SCM redirection ) {
+  return fork_process(command, args, redirection, 0);
+}
+ 
+static PRIMITIVE
+fork_process( SCM command, SCM args, SCM redirection, int run_async ) {
+  SCM		pinfo, arg, pnames, ptypes;
+  char	*argv[MAX_ARGS_NO], msg[256], *files[3];
+  int		argc, pid, i;
+  long	flag;
+  int		pipes[3][2];
+  int		redirectionType[3];
+  struct	process_info	*info;
+  void *old_chld_sig_action;
+  int svMask, usermask; int ok;
+  int svMask1, mypid;  
+        usermask = (sigmask(SIGUSR1));
+
+  /* Checking arguments and creating UNIX-style */
+  /* arguments list */
+  
+  if( NSTRINGP( command ) )
+    err("run-process: bad program name", command);
+  i = find_slot();  
+  if( i < 0)
+    return ntruth;
+  
+  NEWCELL(pinfo, tc_process);
+  proc_arr[i] = pinfo;
+
+  info	= (struct process_info *) malloc( sizeof( struct process_info ) );
+  PROCESS(pinfo) = info;
+  /*
+   *
+   *	Initializing info structure
+   *
+   */
+  
+  info->commandLine		= strdup(CHARS( command ) );
+
+  for( i = 0; i < 3; i++ ) {
+    info->redirection[i]  = NO_REDIRECTION;
+    info->stream[i]      = NIL;
+  }
+  
+  argv[0]    = CHARS( command );
+  
+  for( argc = 1; argc < MAX_ARGS_NO && NNULLP( args ); ++argc ) {
+    if( NCONSP( args ) )
+      err("run-process: bad arguments list", args);
+
+    arg    = CAR( args );
+    args  = CDR( args );
+
+    if( NSTRINGP( arg ) ) {
+      /* In future, may be I implement conversion from */
+      /* non-string argument to the string, but today */
+      /* I don't want to do that :) */
+      
+      err("run-process: bad argument -- must be string", arg);
+    }
+
+    argv[argc]    = CHARS( arg );
+  }
+
+  if( argc == MAX_ARGS_NO )
+    err("run-process: too many arguments (limit is 256)", args);
+
+  argv[argc]    = NULL;
+
+
+  /* Parsing redirection's list and creating communication */
+
+  if( NNULLP( redirection ) ) {
+
+    for( i = 0; i < 3; ++i ) {
+      if( NCONSP( redirection ) )
+        err("run-process: wrong redirection's list", redirection);
+      
+      if( STRINGP( CAR( redirection ) ) ) {
+
+        info->redirection[i]  = REDIRECTION_BY_FILE;
+        info->stream[i]      = string_copy( CAR( redirection ) );
+        
+        /* redirectionType[i]    = REDIRECTION_BY_FILE;
+	   files[i]        = CHARS( CAR( redirection ) ); */
+        
+        pipes[i][0]        = open(CHARS( CAR( redirection ) ),
+				  i == 0 ? O_RDONLY : O_WRONLY);
+        if( pipes[i][0] < 0 ) {
+          sprintf(msg, "run-process: can't redirect %s to file %s",
+		  stdStreams[i], CHARS( CAR( redirection ) ));
+          
+          err( msg, NIL );
+        }
+
+        redirection  = CDR( redirection );
+        continue;
+      }
+
+      if( BOOLEANP( CAR( redirection ) ) ) {
+
+        if( CAR( redirection ) == truth ) {
+          if( pipe( pipes[i] ) < 0 ) {
+            
+            sprintf(msg, "run-process: can't create stream for %s\n",
+		    stdStreams[i]
+
+		    );
+            perror("Process");
+            err( msg, NIL );
+          }
+          
+          /* redirectionType[i]  = REDIRECTION_BY_STREAM; */
+          
+          info->redirection[i]  = REDIRECTION_BY_STREAM;
+        }
+
+        redirection    = CDR( redirection );
+        continue;
+      }
+
+      err("run-process: bad redirection type", CAR( redirection ));
+    }
+  }
+
+    
+  /* set handler to catch SIGUSR1 */
+  signal(SIGUSR1,su1_handler); 
+
+  /* block user1 signal till parent will be ready */
+  svMask1 = sigblock(usermask);
+  mypid = getpid();
+
+  /* Now, forking and catching the errors */
+  pid    = fork();
+
+  if( pid < 0 ) {
+    char  msg[256];
+
+    sprintf(msg,
+	    "run-process: can't create child process because of (see stderr)"
+	    );
+    perror("CHILD process");
+    err( msg, NIL );
+  }
+
+  /* Processing child's behavior */
+
+  if( pid == 0 ) {
+    if(run_async){
+      svMask = sigblock(usermask);
+      signal(SIGUSR1,su1_handler); 
+      /* send notification to parent that I'm ready */
+      ok = kill(mypid,SIGUSR1);
+      if(ok < 0) perror( "Sending to parent");
+      sigpause(0); 
+      sigsetmask(svMask);
+/*
+ *      fprintf(stderr, "Mask: %x\n", usermask);
+ *      fprintf(stderr, "Child continues...");
+ *      perror("Child:");
+ */
+
+      setsid();
+    }
+      
+    for( i = 0; i < 3; ++i ) {
+      switch( info->redirection[i] ) {
+  
+      case REDIRECTION_BY_FILE:
+	dup2( pipes[i][0], i );
+	close( pipes[i][0] );
+	break;
+  
+      case REDIRECTION_BY_STREAM:
+	dup2( pipes[i][ i == 0 ? 0 : 1], i );
+	close( pipes[i][0] );
+	close( pipes[i][1] );
+	break;
+  
+      default:
+	break;
+      }
+    }
+    
+    for( i = 3; i < NOFILE; ++i )
+      close( i );
+    
+    
+    /*  And then, EXEC'ing...  */
+    
+    execvp( argv[0], argv );
+    
+    /* Unfortunatelly, we can't exec this process -- but */
+    /* we can't tell 'bout this fact to our daddy. :( */
+    
+    fprintf(stderr, "Can't exec!");
+    exit( 1 );
+  }
+  
+  /*  Ok, guys, we are still in the parent process. Making redirection */
+  /*  and filling-up PROCESS structure */
+  PROCPID( pinfo )  = pid;
+  if(!run_async) waitpid(pid);
+  else {
+    for( i = 0; i < 3; ++i ) {
+      switch( info->redirection[i] ) {
+      case REDIRECTION_BY_FILE:
+	close( pipes[i][0] );
+	break;
+	
+      case REDIRECTION_BY_STREAM:
+	close( pipes[i][ i == 0 ? 0 : 1 ] );
+	
+	flag  = no_interrupt(1);
+	
+	NEWCELL( info->stream[i], i == 0 ? tc_oport : tc_iport );
+	
+	if( (info->stream[i]->storage_as.port.f =
+	     fdopen( pipes[i][ i == 0 ? 1 : 0],
+		    i == 0 ? "w" : "r" )) == NULL )
+	  err("process-input: can't FDOPEN stream", pinfo);
+	
+	sprintf(msg, "*%s-%d*", strName[i], pid);
+	
+	info->stream[i]->storage_as.port.name  = must_malloc( strlen( msg ) + 1 );
+	strcpy( info->stream[i]->storage_as.port.name, msg );  
+	
+	no_interrupt( flag );
+	break;
+	
+      default:
+	break;
+      }
+    }
+    /** all house keeping is done... notyfy child to go ***/
+#if 1
+      sigpause(0); /* wait for child notification */
+      sigsetmask(svMask1); 
+    /* notify child */
+    ok = kill(pid,SIGUSR1);
+    if(ok < 0) perror("Parent sigusr");
+/*    else fprintf(stderr, "Parent sending SIGUSR1 to %d\n",pid); */
+#endif
+  }
+  PROCESS( pinfo )  = info;
+  return  pinfo;
+}
+
+
+/*** INTERFACE ****/
+
+PRIMITIVE
+  processp( SCM process ) {
+       return PROCESSP( process ) ? truth : ntruth;
+     }
+
+
+PRIMITIVE
+process_alivep( SCM process ) {
+
+  if( NPROCESSP( process ) )
+    err("process-alive?: wrong argument type", process);
+
+  return  kill( PROCPID( process ), 0 ) == 0 ? truth : ntruth;
+}
+
+PRIMITIVE
+process_pid( SCM process ) {
+
+  if( NPROCESSP( process ) )
+    err("process-pid: wrong argument type", process);
+
+  return  makeinteger( PROCPID( process ) );
+}
+
+static char  *rtFile    = "*File*";
+static char *rtStream  = "*Stream*";
+static char  *rtNone    = "*None*";
+
+static PRIMITIVE
+get_internal_redirection( SCM process, int i ) {
+  SCM    rType, rName;
+  struct process_info  *info;
+  
+  if( NPROCESSP( process ) )
+    err("process-stream-type: wrong argument type", process);
+
+  info  = PROCESS( process );
+  
+  switch( info->redirection[i] ) {
+
+    case REDIRECTION_BY_FILE:
+    rType  = makestrg( strlen( rtFile ), rtFile );
+    rName  = string_copy( info->stream[i] );
+    break;
+
+    case NO_REDIRECTION:
+    rType  = makestrg( strlen( rtNone ), rtNone );
+    rName  = NIL;
+    break;
+
+    default: /* REDIRECTION_BY_STREAM */
+    rType  = makestrg( strlen( rtStream ), rtStream );
+    rName  = makestrg( strlen( stdStreams[i] ), stdStreams[i] );
+    break;
+  }
+
+  return  cons( rType, rName );
+}
+
+
+/*** enumerate ***/
+PRIMITIVE 
+process_list(){
+  int i;
+  SCM lst = NIL;
+  for(i = 0; i<MAX_PROC_NUM; i++)
+    if(proc_arr[i] != ntruth)
+      lst = cons(proc_arr[i],lst);
+  return lst;
+}
+  
+
+    
+PRIMITIVE
+process_input_info( SCM process ) {
+
+  return  get_internal_redirection( process, 0 );
+}
+
+PRIMITIVE
+process_output_info( SCM process ) {
+  
+  return  get_internal_redirection( process, 1 );
+}
+
+PRIMITIVE
+process_error_info( SCM process ) {
+  
+  return  get_internal_redirection( process, 2 );
+}
+
+PRIMITIVE
+process_command( SCM process ) {
+  struct process_info *info;
+  
+  if( NPROCESSP( process ) )
+    err("process-command: wrong argument type", process);
+
+  info  = PROCESS( process );
+  
+  return  makestrg( strlen( info->commandLine ), info->commandLine );
+}
+
+
+/*
+ * Creating and returning ports to opened streams
+ */
+
+PRIMITIVE
+process_input( SCM process ) {
+  struct process_info  *info;
+  
+  if( NPROCESSP( process ) )
+    err("process-input: wrong argument type", process);
+  
+  info  = PROCESS( process );
+  
+  if( info->redirection[0] != REDIRECTION_BY_STREAM ) {
+    return  NIL;
+  }
+
+  return  info->stream[0];
+}
+
+PRIMITIVE
+process_output( SCM process ) {
+  struct process_info  *info;
+  
+  if( NPROCESSP( process ) )
+    err("process-input: wrong argument type", process);
+  
+  info  = PROCESS( process );
+  
+  if( info->redirection[1] != REDIRECTION_BY_STREAM ) {
+    return  NIL;
+  }
+
+  return  info->stream[1];
+}
+
+PRIMITIVE
+process_error( SCM process ) {
+  struct process_info  *info;
+  
+  if( NPROCESSP( process ) )
+    err("process-input: wrong argument type", process);
+  
+  info  = PROCESS( process );
+  
+  if( info->redirection[2] != REDIRECTION_BY_STREAM ) {
+    return  NIL;
+  }
+
+  return  info->stream[2];
+}
+
+
+void 
+mark_process( SCM process ){
+  struct process_info *info;
+  int i;
+  info = PROCESS(process);
+  for(i=0; i<3 ; i++)
+   gc_mark(info->stream[i]);
+}
+
+
+void
+free_process( SCM process ) {
+  int    i;
+  struct process_info *info;
+  info  = PROCESS( process );
+  i = remove_process(process);
+  if(i < 0)
+    err("cannot unregister process", process);
+  if( info->commandLine )
+    free( info->commandLine );
+  
+  for( i = 0; i < 3; ++i ) {
+    if( info->redirection[i] == REDIRECTION_BY_STREAM && info->stream[i] != NIL ) {
+      freeport( info->stream[i] );
+    }
+  }
+  free(info); /* A.T. ++ */
+}
+
+
+PRIMITIVE
+process_kill( SCM process ) {
+  struct process_info *info;  
+  int i;
+  if( NPROCESSP( process ) )
+    err("process-kill: wrong argument", process);
+  
+  info  = PROCESS( process );  
+#if 1
+  for( i = 0; i < 3; ++i ) {
+    if( info->redirection[i] == REDIRECTION_BY_STREAM && 
+       info->stream[i] != NIL ) {
+      freeport( info->stream[i] );
+      info->stream[i]=NIL;
+    }
+  }
+#endif
+  kill( PROCPID( process ), 15 );
+  return  truth;
+}
+
+
+/******* run-time initialization ********/
+void init_process(void)
+{
+  tc_process = add_new_type(&process_type);
+  init_proc_table();
+
+  add_new_primitive("run-process", tc_subr_3, run_process);    /* + */
+  add_new_primitive("run-sync", tc_subr_3, run_sync);    /* + */
+  add_new_primitive("process?", tc_subr_1, processp);    /* + */
+  add_new_primitive("process-alive?", tc_subr_1,  process_alivep);  /* + */
+  add_new_primitive("process-input-info", tc_subr_1, process_input_info);  /* + */
+  add_new_primitive("process-output-info", tc_subr_1, process_output_info);  /* + */
+  add_new_primitive("process-error-info", tc_subr_1, process_error_info);  /* + */
+  add_new_primitive("process-command", tc_subr_1, process_command);    /* + */
+  add_new_primitive("process-pid", tc_subr_1, process_pid);    /* + */
+  add_new_primitive("process-input", tc_subr_1, process_input);    /* + */
+  add_new_primitive("process-output", tc_subr_1, process_output);  /* + */
+  add_new_primitive("process-error", tc_subr_1, process_error);    /* + */  
+  add_new_primitive("process-kill", tc_subr_1,process_kill);    /* + */
+  add_new_primitive("process-list", tc_subr_0,process_list);    /* + */
+
+}
diff --git a/Contrib/Process/process.h b/Contrib/Process/process.h
new file mode 100644
index 0000000..28c3581
--- /dev/null
+++ b/Contrib/Process/process.h
@@ -0,0 +1,50 @@
+/**
+ *	Process.h	- LISP implementation of UNIX processes
+ *
+ *	Copyright (c) 1994 by Gregory Nickonov.
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Gregory Nickonov, [gn@jet.msk.su]
+ *    Creation date: 15-Jan-1994 11:40
+ * Last file update: 11-Jun-1994 22:07
+ *
+ *            Made working by David Tolpin Dvd@CIM.Msk.SU
+ *            Port to Dynaload STk2.1b,
+ *            synchronization and registration
+ *            mechanism  by  A.Taranov tay@jet.msk.su
+ *            
+ */
+ 
+#ifndef	__PROCESS_H__
+#define	__PROCESS_H__
+
+PRIMITIVE	processp( SCM process );
+PRIMITIVE	process_alivep( SCM process );
+
+PRIMITIVE	run_process( SCM command, SCM args, SCM redirection );
+PRIMITIVE	run_sync( SCM command, SCM args, SCM redirection );
+PRIMITIVE	process_kill( SCM process );
+
+PRIMITIVE	process_input( SCM process );
+PRIMITIVE	process_output( SCM process );
+PRIMITIVE	process_error( SCM process );
+
+PRIMITIVE	process_input_info( SCM process );
+PRIMITIVE	process_output_info( SCM process );
+PRIMITIVE	process_error_info( SCM process );
+
+PRIMITIVE	process_command( SCM process );
+PRIMITIVE	process_pid( SCM process );
+
+#endif	/* __PROCESS_H__ */
diff --git a/Contrib/Python/jredford-mail.txt b/Contrib/Python/jredford-mail.txt
new file mode 100644
index 0000000..e6b62a9
--- /dev/null
+++ b/Contrib/Python/jredford-mail.txt
@@ -0,0 +1,175 @@
+Herafter is an excerpt of a mail of jredford@lehman.com about Python/STk mail
+I hope it will suffice to build a running system (I had no time to test it).
+------------------
+
+
+This is the file I added.. python-stk.c:
+
+
+#include <stk.h>
+#include <Py/allobjects.h>
+#include <Py/pythonrun.h>
+#include <Py/import.h>
+
+PRIMITIVE python_init(void)
+{
+  initall();
+  return UNDEFINED;
+}
+
+PRIMITIVE python(SCM string)
+{
+  run_command(CHARS(string));
+  return UNDEFINED;
+}
+
+SCM convert(object *o)
+{
+  if is_intobject(o) {
+    return makeinteger(getintvalue(o));
+  } else {
+    if is_floatobject(o) {
+      return makenumber(getfloatvalue(o));
+    } else {
+      if is_stringobject(o) {
+	return makestrg(getstringsize(o),getstringvalue(o));
+      } else {
+	if is_tupleobject(o) {
+	  int i,j = gettuplesize(o);
+	  SCM vec;
+	  vec = makevect(j,makeinteger(0));
+	  for (i = 0; i < j; i++) {
+	    vector_set(vec, makeinteger(i), convert(gettupleitem(o,i)));
+	  }
+	  return vector2list(vec);
+	} else {
+	  if is_listobject(o) {
+	    int i,j = getlistsize(o);
+	    SCM vec;
+	    vec = makevect(j,makeinteger(0));
+	    for (i = 0; i < j; i++) {
+	      vector_set(vec, makeinteger(i), convert(getlistitem(o,i)));
+	    }
+	    return vector2list(vec);
+	  }
+	}
+      }
+    }
+  }
+  return UNDEFINED;
+}
+
+PRIMITIVE python_value(SCM dict, SCM var)
+{
+  object *m, *d, *v;
+  m = add_module(CHARS(dict));
+  if (m == NULL)
+    return UNDEFINED;
+  d = getmoduledict(m);
+  v = dictlookup(d,CHARS(var));
+  return convert(v);
+}
+
+char *
+getprogramname()
+{
+        return "stk";
+}
+
+
+END of file python-stk.c
+
+The initall() should be done in init_python-stk(). You might know of a
+better way to convert the data types, or to more efficiently make
+lists. These were the calls that I found easilly. I also didnt know
+how to typecheck the arguments passed. They should all be strings.
+
+
+This is the summary of what I added to primitives.c
+/*
+ *
+ * p r i m i t i v e s . c			-- List of STk subrs
+ */
+
+#ifdef USE_PYTHON
+extern PRIMITIVE python_init(void);
+extern PRIMITIVE python(SCM string);
+extern PRIMITIVE python_value(SCM dict, SCM var);
+#endif
+
+static struct Primitive Scheme_primitives[] = { 
+ .
+ .
+ .
+
+#ifdef USE_PYTHON
+  {"python-init",           tc_subr_0,          python_init},
+  {"python",                tc_subr_1,          python},
+  {"python-value",          tc_subr_2,          python_value},
+#endif
+ .
+ .
+ .
+
+
+
+
+An example.. well, I never used Tk before Stk, so Im not gonna do
+anything too pretty.
+
+#!/opt/stk/bin/stk -file
+
+(python-init)  ;This should really be (require "python") or (require "python-stk")
+(python "import posix") ;Python is a module based language
+
+(button ".b" :text "Press me" :borderwidth 2 :background "slate gray" :foreground "gold"
+	:command '(begin
+		    (python "a = posix.listdir('.')")
+		    (for-each (lambda (a) (.f.lb 'insert 99999 a))
+			      (python-value "__main__" "a"))))
+
+(frame ".f")
+(listbox ".f.lb" :foreground "grey40" :background "grey70" :yscroll ".f.s 'set")
+(scrollbar ".f.s" :relief "sunken" :command ".f.lb 'yview")
+
+(pack .f.lb .f.s :side "right" :fill "y")
+(pack .b .f)
+
+
+
+Where this would populate a listbox with the filenames in the current
+directory, everytime the button was pushed. posix.listdir() returns a
+python 'list' type. __main__ is the name/alias of the primary module.
+If I could figure out STk calling enough to use variable args, I'd
+have made (python-value "a") assume a value of "__main__" for the
+dict..
+
+
+
+Makefile modifications:
+
+# This isnt the default python dir, just what I use. should be a
+# configure option.. --with-python=/opt/python 
+PYTHONDIR     = /opt/python
+PYTHONLIBPATH = $(PYTHONDIR)/lib/python/lib
+PYTHONCFLAGS  = -I$(PYTHONDIR)/include -I$(PYTHONDIR)/include/Py
+PYTHONOBJ     = python-stk.o
+PYTHONLIB     = $(PYLIBPATH)/libModules.a \
+                $(PYLIBPATH)/libPython.a \
+                $(PYLIBPATH)/libParser.a \
+                $(PYLIBPATH)/libObjects.a
+PYTHONLIBS    = -lreadline -ltermcap
+LIBS          = -lnsl -ldl $(PYTHONLIBS) -lm
+
+
+
+...
+		/bin/rm -f primitives.o
+		make CFLAGS="$(CFLAGS) -DUSE_PYTHON" primitives.o
+		$(CC) -o stkp-bin  -DUSE_PYTHON $(OBJ) $(PYTHONOBJ) -I$(PYTHONDIR)/include/Py -DNO_MAIN $(PYTHONLIBPATH)/config.c userinit.c $(ALLIBS) $(XLIBSW) $(PYTHONLIB) $(LIBS)
+		/bin/rm -f primitives.o
+
+
+Removing primitives.c to recompile with -DUSE_PYTHON is a horrible
+kludge, as I am sure you agree. The key thing is to also compile in
+   -DNO_MAIN $(PYLIBPATH)/config.c
diff --git a/Contrib/STk-wtour/CHANGES b/Contrib/STk-wtour/CHANGES
new file mode 100644
index 0000000..ad764e2
--- /dev/null
+++ b/Contrib/STk-wtour/CHANGES
@@ -0,0 +1,7 @@
+Version 0.2 -- minor bug fixes and new lessons by Erick Gallesio (eg@unice.fr)
+Version 0.1 -- original writing by Suresh Srinivas (ssriniva@cs.indiana.edu)
+
+
+TODO
+----
+     Integrate STklos lessons
diff --git a/Contrib/STk-wtour/README b/Contrib/STk-wtour/README
new file mode 100644
index 0000000..a954be5
--- /dev/null
+++ b/Contrib/STk-wtour/README
@@ -0,0 +1,35 @@
+Scheme/STk Widget Tour 0.2
+--------------------------
+
+This is a rewrite of the Tcl/Tk wtour2.0 in Scheme/STk. I wrote it
+while I was learning the nuances of STk. I also avoided using the send
+mechanisms to make it quicker/easier to learn (I had to set up all the
+authentication stuff to have the Tcl/Tk wtour working).
+
+Installing and Running
+----------------------
+
+To start the tour assume that the locations of the STk binary and library
+in "stk-wtour" are correct. Once this is done, just type 
+	% ./stk-wtour
+
+Use the menus to navigate through different lessons.  You can make changes
+to the lesson source code; click on the Apply button to see the results of
+the changes.
+ 
+Acknowledgements and Notes
+--------------------------
+The original,excellent, tour of Tcl/Tk was due to Andrew Payne
+(payne@crl.dec.com). I hope you enjoy the Scheme version
+(Adding some STklos lessons is next in the set of things to do).
+I've tested it on Silicon Graphics running IRIX 5.2 (They are
+the coolest machines around, look them up). 
+
+Suresh Srinivas,
+Graduate Student,
+Parallel Computing Group,
+Indiana University,
+(ssriniva@cs.indiana.edu)
+
+Thesis: Investigating large scale parallel programs.
+Interests: Parallel Computing, Visualization, Scheming.
diff --git a/Contrib/STk-wtour/lessons/bind1.stk b/Contrib/STk-wtour/lessons/bind1.stk
new file mode 100644
index 0000000..2bcf178
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/bind1.stk
@@ -0,0 +1,9 @@
+;; Event binding
+
+(entry '.e1 :relief "sunken")
+(pack .e1 :expand #t :fill "x")
+
+(bind .e1 "<Tab>" 	    (lambda () 
+			      (display "You pressed Tab!\n")))
+(bind .e1 "<ButtonPress-2>" (lambda ()
+			      (display "You pressed Button 2!\n")))
diff --git a/Contrib/STk-wtour/lessons/bind2.stk b/Contrib/STk-wtour/lessons/bind2.stk
new file mode 100644
index 0000000..fb22ee2
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/bind2.stk
@@ -0,0 +1,7 @@
+;; More event binding
+
+(entry '.e1 :relief "sunken")
+(pack .e1 :expand #t :fill "x")
+
+(bind .e1 "<Enter>" (lambda () (display "ENTERED\n")))
+(bind .e1 "<Leave>" (lambda () (display "EXITED\n")))
diff --git a/Contrib/STk-wtour/lessons/bind3.stk b/Contrib/STk-wtour/lessons/bind3.stk
new file mode 100644
index 0000000..fb26db4
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/bind3.stk
@@ -0,0 +1,6 @@
+;; Even more event binding: accessing the event parameters
+
+(entry '.e1 :relief "sunken")
+(pack .e1 :expand #t :fill "x")
+(bind .e1 "<ButtonPress-1>" (lambda (x y) 
+			      (format #t "button down at ~a,~a\n" x y)))
diff --git a/Contrib/STk-wtour/lessons/button1.stk b/Contrib/STk-wtour/lessons/button1.stk
new file mode 100644
index 0000000..0d3b256
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/button1.stk
@@ -0,0 +1,4 @@
+;; A basic button widget
+
+(button '.hello :text "Hello World!" :command (lambda () (display "hello\n")))
+(pack .hello)
diff --git a/Contrib/STk-wtour/lessons/button2.stk b/Contrib/STk-wtour/lessons/button2.stk
new file mode 100644
index 0000000..128ad7f
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/button2.stk
@@ -0,0 +1,4 @@
+;; A button widget, with options
+
+(button '.hello :text "Hello World!" :relief "raised" :state "disabled")
+(pack .hello)
diff --git a/Contrib/STk-wtour/lessons/canvas-animate.stk b/Contrib/STk-wtour/lessons/canvas-animate.stk
new file mode 100644
index 0000000..2549bf6
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas-animate.stk
@@ -0,0 +1,12 @@
+;;; Animation!
+
+(pack (canvas '.c1) :expand #t :fill "both")
+
+(.c1 'create 'rectangle 10 10 40 40 :fill "red" :tag "item")
+
+(let do-update ()
+  (.c1 'move 'item 1 1)
+  (after 50 (lambda ()
+		(catch (do-update)))))
+
+
diff --git a/Contrib/STk-wtour/lessons/canvas-drag.stk b/Contrib/STk-wtour/lessons/canvas-drag.stk
new file mode 100644
index 0000000..fdaca6a
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas-drag.stk
@@ -0,0 +1,34 @@
+;;; Moving an object on a canvas
+;;;   (drag the circle around)
+
+(define last-x 0)
+(define last-y 0)
+
+(define (item-start-drag c x y)
+  (set! last-x (c 'canvasx x))
+  (set! last-y (c 'canvasy y)))
+
+(define (item-drag c x y)
+  (set! x (c 'canvasx x))
+  (set! y (c 'canvasy y))
+  (c 'move 'current (- x last-x) (- y last-y))
+  (set! last-x x)
+  (set! last-y y))
+
+(pack (canvas '.c1) :expand #t :fill "both")
+
+(.c1 'create 'oval 150 150 170 170 :fill "skyblue" :tag "oval")
+
+;;; Bindings 
+(.c1 'bind "oval" "<Any-Enter>"  (lambda ()
+				   (.c1 'itemconfig 'current :fill "red")))
+(.c1 'bind "oval" "<Any-Leave>"  (lambda ()
+				   (.c1 'itemconfig 'current :fill "SkyBlue2")))
+(.c1 'bind "oval" "<1>" 	 (lambda (x y)
+				   (item-start-drag .c1 x y)))
+(.c1 'bind "oval" "<B1-Motion>"  (lambda (x y)
+				   (item-drag .c1 x y)))
+(.c1 'bind "oval" "<ButtonRelease-1>" 
+     				  (lambda ()
+				    (.c1 'dtag 'selected)))
+
diff --git a/Contrib/STk-wtour/lessons/canvas-draw.stk b/Contrib/STk-wtour/lessons/canvas-draw.stk
new file mode 100644
index 0000000..51671fa
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas-draw.stk
@@ -0,0 +1,13 @@
+;;; Drawing in a Canvas
+;;;  (draw with mousebutton 1)
+
+(pack (canvas '.c1)
+      :fill "both"
+      :expand "yes")
+
+(bind .c1 "<B1-Motion>" (lambda (x y)
+			  (.c1 'create 'rectangle x y x y :width 5)))
+
+
+
+
diff --git a/Contrib/STk-wtour/lessons/canvas-funky.stk b/Contrib/STk-wtour/lessons/canvas-funky.stk
new file mode 100644
index 0000000..995ede5
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas-funky.stk
@@ -0,0 +1,15 @@
+;;; Drawing in a Canvas (funky version)
+;;;   (draw with mousebutton 1)
+
+(define wid 0)
+
+(pack (canvas '.c1) :expand #t :fill "both")
+
+(bind .c1 "<ButtonPress-1>" (lambda ()
+			      (set! wid 0)))
+
+(bind .c1 "<B1-Motion>" (lambda (x y)
+			  (.c1 'create 'rectangle x y x y :width wid)
+			  (set! wid (1+ wid))))
+
+
diff --git a/Contrib/STk-wtour/lessons/canvas-rubber.stk b/Contrib/STk-wtour/lessons/canvas-rubber.stk
new file mode 100644
index 0000000..d3a8ac2
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas-rubber.stk
@@ -0,0 +1,29 @@
+;;; Rubber banding
+;;;  (stroke out a box with mousebutton 1)
+
+(define x1 0)
+(define y1 0)
+
+(define (item-delete c)
+  (c 'delete 'area))
+
+(define (item-mark c x y)
+  (set! x1 (c 'canvasx x))
+  (set! y1 (c 'canvasy y))
+  (item-delete c))
+
+(define (item-stroke c x y)
+  (set! x (c 'canvasx x))
+  (set! y (c 'canvasy y))
+  (unless (and (= x1 x) (= y1 y))
+     (item-delete c)
+     (c 'addtag 'area 'withtag (c 'create 'rectangle x1 y1 x y))))
+
+
+(pack (canvas '.c1) :fill "both" :expand #t)
+
+(bind .c1 "<ButtonPress-1>"   (lambda (x y) (item-mark .c1 x y)))
+(bind .c1 "<B1-Motion>"       (lambda (x y) (item-stroke .c1 x y)))
+(bind .c1 "<ButtonRelease-1>" (lambda ()    (item-delete .c1)))
+
+
diff --git a/Contrib/STk-wtour/lessons/canvas1.stk b/Contrib/STk-wtour/lessons/canvas1.stk
new file mode 100644
index 0000000..ed5260c
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas1.stk
@@ -0,0 +1,6 @@
+;;; Basic canvas widget
+
+(canvas '.c1)
+(pack .c1)
+
+(.c1 'create 'line 10 10 200 200)
diff --git a/Contrib/STk-wtour/lessons/canvas2.stk b/Contrib/STk-wtour/lessons/canvas2.stk
new file mode 100644
index 0000000..5eadf54
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas2.stk
@@ -0,0 +1,16 @@
+;; Canvas item types
+;; We use here the fact that "wtour-lessondir" contains the path of the
+;; wtour demo
+
+(canvas '.c2)
+(pack .c2 :fill "both" :expand #t)
+
+(.c2 'create 'arc 10 10 50 50 :fill "red")
+(.c2 'create 'line 10 100 40 140 :fill "blue")
+(.c2 'create 'oval 150 150 170 200 :fill "yellow")
+(.c2 'create 'polygon 200 10 210 50 280 20 :fill "green")
+(.c2 'create 'rectangle 10 200 30 250 :fill "cyan")
+(.c2 'create 'text 100 220 :text "Some random text")
+(.c2 'create 'bitmap 120 70 :bitmap (string-append "@" 
+						   wtour-lessondir
+						   "/../lib/iu.seal.small.xbm"))
\ No newline at end of file
diff --git a/Contrib/STk-wtour/lessons/canvas3.stk b/Contrib/STk-wtour/lessons/canvas3.stk
new file mode 100644
index 0000000..bddc047
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas3.stk
@@ -0,0 +1,14 @@
+;;; Canvas event bindings
+;;;   (click on the bitmap)
+
+(canvas '.c1)
+(pack '.c1 :fill "both" :expand #t)
+
+(define i (.c1 'create 'bitmap 120 100 
+	       :bitmap (string-append "@" 
+				      wtour-lessondir 
+				      "/../lib/iu.seal.small.xbm")
+	       :background "grey"))
+
+(.c1 'bind i "<Button-1>" (lambda () (display "CLICK\n")))
+
diff --git a/Contrib/STk-wtour/lessons/canvas4.stk b/Contrib/STk-wtour/lessons/canvas4.stk
new file mode 100644
index 0000000..94941e4
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas4.stk
@@ -0,0 +1,13 @@
+;; Canvas item stacking
+;; Use mouse button 1 to put a square on top of stack
+(canvas '.c3)
+(pack .c3 :fill "both" :expand #t)
+
+(define r1 (.c3 'create 'rectangle 20 20 80 80 :fill "red"))
+(define r2 (.c3 'create 'rectangle 60 60 120 120 :fill "green"))
+(define r3 (.c3 'create 'rectangle 40 40 100 100 :fill "blue"))
+
+(.c3 'bind r1 "<Button-1>" (lambda () (.c3 'raise r1)))
+(.c3 'bind r2 "<Button-1>" (lambda () (.c3 'raise r2)))
+(.c3 'bind r3 "<Button-1>" (lambda () (.c3 'raise r3)))
+
diff --git a/Contrib/STk-wtour/lessons/canvas5.stk b/Contrib/STk-wtour/lessons/canvas5.stk
new file mode 100644
index 0000000..8efaa3b
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas5.stk
@@ -0,0 +1,11 @@
+;;; Canvas tags
+
+(pack (canvas '.c1)
+      :fill "both" :expand #t)
+
+(.c1 'create 'rectangle 20 20 80 80   :fill "red" :tag "cats")
+(.c1 'create 'rectangle 60 60 120 120 :fill "green" :tag "cats")
+(.c1 'create 'rectangle 40 40 100 100 :fill "blue" :tag "dogs")
+
+(.c1 'move 'cats 100 0)
+
diff --git a/Contrib/STk-wtour/lessons/canvas6.stk b/Contrib/STk-wtour/lessons/canvas6.stk
new file mode 100644
index 0000000..123e731
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas6.stk
@@ -0,0 +1,19 @@
+;; Canvases with scrollbars
+
+(canvas '.c4 :scrollregion '(-10c -10c 50c 20c)
+	     :xscrollcommand (lambda l (apply .s2 'set l))
+	     :yscrollcommand (lambda l (apply .s1 'set l)))
+
+(.c4 'create 'rectangle 100 100 400 400 :fill "red")
+(.c4 'create 'rectangle 300 300 600 600 :fill "green")
+(.c4 'create 'rectangle 200 200 500 500 :fill "blue")
+
+(scrollbar '.s1 :orient "vert" :relief "sunken"
+	   	:command (lambda l (apply .c4 'yview l)))
+(scrollbar '.s2 :orient "hor" :relief "sunken"
+	   	:command (lambda l (apply .c4 'xview l)))
+
+(pack .s2 :side "bottom" :fill "x")
+(pack .s1 :side "right"  :fill "y")
+(pack .c4 :expand "yes"  :fill "both")
+
diff --git a/Contrib/STk-wtour/lessons/canvas7.stk b/Contrib/STk-wtour/lessons/canvas7.stk
new file mode 100644
index 0000000..52ea2c5
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/canvas7.stk
@@ -0,0 +1,13 @@
+;;; Widgets embedded in a canvas
+
+(pack (canvas '.c1)
+      :expand #t 
+      :fill "both")
+
+(button '.c1.b1 :text "Embedded button")
+
+(.c1 'create 'rectangle 20 20 80 80 :fill "red")
+(.c1 'create 'rectangle 60 60 120 120 :fill "green")
+(.c1 'create 'rectangle 40 40 100 100 :fill "blue")
+(.c1 'create 'window 100 75 :window .c1.b1)
+
diff --git a/Contrib/STk-wtour/lessons/checkbutton.stk b/Contrib/STk-wtour/lessons/checkbutton.stk
new file mode 100644
index 0000000..767bc56
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/checkbutton.stk
@@ -0,0 +1,9 @@
+;; A checkbutton widget
+
+(checkbutton '.c1 :text "Select me" :anchor "w")
+(pack .c1 :fill "x")
+
+;; Shorter ...
+(pack 
+   (checkbutton '.c2 :text "Select me too" :anchor "w") 
+   :fill "x")
diff --git a/Contrib/STk-wtour/lessons/dialogbox.stk b/Contrib/STk-wtour/lessons/dialogbox.stk
new file mode 100644
index 0000000..a9d27f3
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/dialogbox.stk
@@ -0,0 +1,21 @@
+;; A Dialog box
+
+(define do-dialog
+  (lambda ()
+    (let ([i (stk:make-dialog :title "A Dialog Box" 
+			       :text "What do you want to do?" 
+			       :bitmap "question"
+			       :grab #t
+			       :defaults 0
+			       :buttons 
+			       (list
+				  `("Ok"     ,(lambda () (display "Ok\n")))
+				  `("Cancel" ,(lambda () (display "Cancel\n")))
+				  `("Abort"  ,(lambda () (display "Abort\n")))
+				  `("Retry"  ,(lambda () (display "Retry\n"))
+				  `("Help"   ,(lambda () (display "Help\n"))))))])
+      
+      (format #t "You pressed button #~s\n" i))))
+
+(button '.b :text "Press Me" :width 40 :command (lambda () (do-dialog)))
+(pack .b :ipadx 10 :ipady 10)
diff --git a/Contrib/STk-wtour/lessons/entry1.stk b/Contrib/STk-wtour/lessons/entry1.stk
new file mode 100644
index 0000000..f550230
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/entry1.stk
@@ -0,0 +1,5 @@
+;;A basic entry widget
+
+(pack (entry '.e1 :relief "sunken" :background "Light Sky Blue"))
+
+
diff --git a/Contrib/STk-wtour/lessons/entry2.stk b/Contrib/STk-wtour/lessons/entry2.stk
new file mode 100644
index 0000000..c769235
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/entry2.stk
@@ -0,0 +1,5 @@
+;; An entry widget with options
+
+(entry '.e2 :relief "sunken" :font "-*-helvetica-*-r-*-*-*-240-*-*-*-*-*-*")
+(pack .e2)
+(.e2 'insert 0 "I'm here!!")
diff --git a/Contrib/STk-wtour/lessons/frame1.stk b/Contrib/STk-wtour/lessons/frame1.stk
new file mode 100644
index 0000000..54051e1
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/frame1.stk
@@ -0,0 +1,8 @@
+;; Basic frames
+
+(pack [frame '.f1 :background "red"  :width 100 :height 100]
+      [frame '.f2 :background "blue" :width 100 :height 100]
+      :side "top" 
+      :expand #t
+      :fill "both")
+
diff --git a/Contrib/STk-wtour/lessons/frame2.stk b/Contrib/STk-wtour/lessons/frame2.stk
new file mode 100644
index 0000000..24833e6
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/frame2.stk
@@ -0,0 +1,5 @@
+;; Frames with options
+
+(frame '.f1 :relief "raised" :borderwidth 3 :width 100 :height 100)
+(frame '.f2 :relief "sunken" :borderwidth 3 :width 100 :height 100)
+(pack .f1 .f2 :side "top" :expand #t)
diff --git a/Contrib/STk-wtour/lessons/frame3.stk b/Contrib/STk-wtour/lessons/frame3.stk
new file mode 100644
index 0000000..957769a
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/frame3.stk
@@ -0,0 +1,6 @@
+;; Frames with different options
+
+(pack
+  [frame '.f1 :relief "ridge" :borderwidth 3 :width 100 :height 30]
+  [frame '.f2 :relief "groove" :borderwidth 3 :width 100 :height 30]
+  :side "top" :expand #t :fill "both" :padx 20 :pady 20)
diff --git a/Contrib/STk-wtour/lessons/grouping.stk b/Contrib/STk-wtour/lessons/grouping.stk
new file mode 100644
index 0000000..c7fab58
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/grouping.stk
@@ -0,0 +1,9 @@
+;; Using frames to group widgets
+
+(frame '.f1 :relief "ridge" :borderwidth 2)
+(pack .f1)
+
+(label '.f1.lab :text "Filename")
+(entry '.f1.e1 :relief "sunken")
+
+(pack .f1.lab .f1.e1 :side "left" :padx 10 :pady 10)
diff --git a/Contrib/STk-wtour/lessons/index b/Contrib/STk-wtour/lessons/index
new file mode 100644
index 0000000..bf8a841
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/index
@@ -0,0 +1,67 @@
+(lesson "Widgets" "Labels"              "label1.stk")
+(lesson "Widgets" "... options"         "label2.stk")
+(lesson "Widgets" "... with bitmaps"    "label3.stk")
+(lesson "Widgets" ""			"")
+(lesson "Widgets" "Messages"            "message.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Basic buttons"       "button1.stk")
+(lesson "Widgets" "... options"         "button2.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Checkbuttons"        "checkbutton.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Radiobuttons"        "radiobutton.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Basic entries"       "entry1.stk")
+(lesson "Widgets" "... options"         "entry2.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Basic scales"        "scale1.stk")
+(lesson "Widgets" "... options"         "scale2.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Basic listboxes"     "listbox1.stk")
+(lesson "Widgets" "... with scrollbars" "listbox2.stk")
+(lesson "Widgets" ""                    "")
+(lesson "Widgets" "Basic Menu"          "menu1.stk")
+(lesson "Widgets" "... options"         "menu2.stk")
+
+(lesson "Geometry" "Basic Packer"       "pack1.stk")
+(lesson "Geometry" "... with options"   "pack2.stk")
+(lesson "Geometry" "... more options"   "pack3.stk")
+(lesson "Geometry" ""                   "")
+(lesson "Geometry" "Basic Frames"       "frame1.stk")
+(lesson "Geometry" "... with options"   "frame2.stk")
+(lesson "Geometry" "... more options"   "frame3.stk")
+(lesson "Geometry" ""                   "")
+(lesson "Geometry" "Grouping widgets"   "grouping.stk")
+
+(lesson "Events" "Binding events"       "bind1.stk")
+(lesson "Events" "Binding events #2"    "bind2.stk")
+(lesson "Events" "Binding events #3"    "bind3.stk")
+
+(lesson "Canvas" "Basic canvas"         "canvas1.stk")
+(lesson "Canvas" "... item types"       "canvas2.stk")
+(lesson "Canvas" "... events"    	"canvas3.stk")
+(lesson "Canvas" "... item stacking"    "canvas4.stk")
+(lesson "Canvas" "... tags"             "canvas5.stk")
+(lesson "Canvas" "... with scrollbars"  "canvas6.stk")
+(lesson "Canvas" "... with widgets"     "canvas7.stk")
+(lesson "Canvas" ""                     "")
+(lesson "Canvas" "Drawing"              "canvas-draw.stk")
+(lesson "Canvas" "Funky drawing"        "canvas-funky.stk")
+(lesson "Canvas" "Rubber banding"       "canvas-rubber.stk")
+(lesson "Canvas" "Animation"            "canvas-animate.stk")
+(lesson "Canvas" "Drag and Drop"        "canvas-drag.stk")
+
+(lesson "Text" "Basic \"Text\""           "text1.stk")
+(lesson "Text" "... with scrollbars"    "text2.stk")
+(lesson "Text" "... wrap modes"         "text3.stk")
+(lesson "Text" "... basic tags"         "text4.stk")
+(lesson "Text" "... tags with bindings" "text5.stk")
+
+(lesson "Misc" "New toplevel windows"   "misc.stk")
+(lesson "Misc" "Dialog boxes"           "dialogbox.stk")
+
+;; find a better way to do the options (so that they can be cleared)
+;; (lesson "Misc" "Widget options"         "options.stk")
+
+(lesson "Misc" "X selection"            "selection.stk")
+(lesson "Misc" "Tk wait"                "tkwait.stk")
diff --git a/Contrib/STk-wtour/lessons/label1.stk b/Contrib/STk-wtour/lessons/label1.stk
new file mode 100644
index 0000000..a08186b
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/label1.stk
@@ -0,0 +1,2 @@
+(label '.lab :text "This is a label")
+(pack .lab)
diff --git a/Contrib/STk-wtour/lessons/label2.stk b/Contrib/STk-wtour/lessons/label2.stk
new file mode 100644
index 0000000..d1820cd
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/label2.stk
@@ -0,0 +1,3 @@
+(pack
+   (label '.lab1 :text "This is a label1" :relief "sunken"))
+
diff --git a/Contrib/STk-wtour/lessons/label3.stk b/Contrib/STk-wtour/lessons/label3.stk
new file mode 100644
index 0000000..2f10ae4
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/label3.stk
@@ -0,0 +1,10 @@
+;; A label widget, with a bitmap instead of text
+;; We use here the fact that "wtour-lessondir" contains the path of the
+;; wtour demo
+
+
+(label '.lab2 :bitmap 	   (string-append "@" wtour-lessondir "/../lib/iu.ridge.xbm")
+              :relief 	   "raised" 
+	      :borderwidth 2)
+(pack .lab2)
+ 
diff --git a/Contrib/STk-wtour/lessons/listbox1.stk b/Contrib/STk-wtour/lessons/listbox1.stk
new file mode 100644
index 0000000..62c3003
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/listbox1.stk
@@ -0,0 +1,7 @@
+;; Basic listbox widget
+
+(pack (listbox '.list))
+
+(.list 'insert 'end "First list item"
+       		    "Second list item"
+		    "Third list item")
diff --git a/Contrib/STk-wtour/lessons/listbox2.stk b/Contrib/STk-wtour/lessons/listbox2.stk
new file mode 100644
index 0000000..93542aa
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/listbox2.stk
@@ -0,0 +1,29 @@
+;; Listbox with a scrollbar
+
+(scrollbar '.scroll :relief "groove" :command (lambda l 
+						(apply .list 'yview l)))
+(listbox '.list :yscroll (lambda l 
+			   (apply .scroll 'set l))) 
+
+(pack .scroll :side "right" :fill "y")
+(pack .list :side "left" :expand #t :fill "both")
+
+(.list 'insert 'end "First list item"
+       		    "Second list item"
+		    "Third list item"
+		    "Fourth list item"
+		    "Fifth list item"
+		    "Sixth list item"
+		    "Seventh list item"
+		    "Eighth list item"
+		    "Ninth list item"
+		    "Tenth list item"
+		    "Eleventh list item"
+		    "Twelfth list item"
+		    "Thirteenth list item"
+		    "Fourteenth list item"
+		    "Fifteenth list item"
+		    "Sixteenth list item"
+		    "Seventeenth list item"
+		    "Eighteenth list item"
+		    "Ninteenth list item")
diff --git a/Contrib/STk-wtour/lessons/menu1.stk b/Contrib/STk-wtour/lessons/menu1.stk
new file mode 100644
index 0000000..653ee2a
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/menu1.stk
@@ -0,0 +1,9 @@
+;; Basic drop down menu
+
+(pack (menubutton '.mbutton :text "Menu Button" :menu ".mbutton.menu"))
+
+(menu '.mbutton.menu)
+(.mbutton.menu 'add 'command :label "Open")
+(.mbutton.menu 'add 'command :label "Close")
+(.mbutton.menu 'add 'separator)
+(.mbutton.menu 'add 'command :label "Exit")
diff --git a/Contrib/STk-wtour/lessons/menu2.stk b/Contrib/STk-wtour/lessons/menu2.stk
new file mode 100644
index 0000000..ee58d25
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/menu2.stk
@@ -0,0 +1,20 @@
+;; Menu options
+
+(pack (menubutton '.mbutton :text "Menu Button1" :menu '.mbutton.menu))
+
+(menu '.mbutton.menu)
+(.mbutton.menu 'add 'command :label "Open" :command (lambda () 
+						      (display "open\n")))
+(.mbutton.menu 'add 'command :label "Close" :state "disabled")
+(.mbutton.menu 'add 'cascade :label "More -->" :menu '.mbutton.menu.more)
+(.mbutton.menu 'add 'separator)
+(.mbutton.menu 'add 'command :label "Exit" :command (lambda () 
+						      (display "exit\n")))
+
+(menu '.mbutton.menu.more)
+(.mbutton.menu.more 'add 'command :label "Get"    :command (lambda ()
+							     (display "get\n")))
+(.mbutton.menu.more 'add 'command :label "Put"    :command (lambda ()
+							     (display "put\n")))
+(.mbutton.menu.more 'add 'command :label "Rename" :command (lambda ()
+							     (display "rename\n")))
diff --git a/Contrib/STk-wtour/lessons/message.stk b/Contrib/STk-wtour/lessons/message.stk
new file mode 100644
index 0000000..15ab0aa
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/message.stk
@@ -0,0 +1,7 @@
+;; A message widget
+ 
+(message '.m :text    "This is a message.  Note how the lines wrap" 
+   	     :aspect  200 
+	     :justify "center")
+(pack .m)
+ 
diff --git a/Contrib/STk-wtour/lessons/misc.stk b/Contrib/STk-wtour/lessons/misc.stk
new file mode 100644
index 0000000..837a4fa
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/misc.stk
@@ -0,0 +1,5 @@
+;; New toplevel window
+
+(toplevel '.new)
+(wm 'geometry .new "200x200")
+(wm 'title .new "A new window")
diff --git a/Contrib/STk-wtour/lessons/options.stk b/Contrib/STk-wtour/lessons/options.stk
new file mode 100644
index 0000000..8549e72
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/options.stk
@@ -0,0 +1,9 @@
+;; Widget options
+
+(option 'add "*background" "red")
+(option 'add "*Button.foreground" "white")
+
+(button '.a :text "Press Me!")
+(button '.b :text "And Me Too!")
+(pack .a .b)
+
diff --git a/Contrib/STk-wtour/lessons/pack1.stk b/Contrib/STk-wtour/lessons/pack1.stk
new file mode 100644
index 0000000..8eaacec
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/pack1.stk
@@ -0,0 +1,9 @@
+;; Basic geometry management with the packer
+
+(label '.l1 :text "Label #1" :background "red")
+(label '.l2 :text "Label #2" :background "blue")
+(label '.l3 :text "Label #3" :background "green")
+
+(pack .l1 :side "top")
+(pack .l2 :side "left")
+(pack .l3 :side "bottom")
diff --git a/Contrib/STk-wtour/lessons/pack2.stk b/Contrib/STk-wtour/lessons/pack2.stk
new file mode 100644
index 0000000..4c43ad2
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/pack2.stk
@@ -0,0 +1,10 @@
+;; Basic geometry management with the packer (fill and expand options)
+
+(label '.l4 :text "Label #4" :background "red")
+(label '.l5 :text "Label #5" :background "blue")
+(label '.l6 :text "Label #6" :background "green")
+
+(pack .l4 :side "top"    :fill "both")
+(pack .l5 :side "left"   :fill "both")
+(pack .l6 :side "bottom" :fill "both")
+
diff --git a/Contrib/STk-wtour/lessons/pack3.stk b/Contrib/STk-wtour/lessons/pack3.stk
new file mode 100644
index 0000000..c6ea190
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/pack3.stk
@@ -0,0 +1,10 @@
+;; Basic geometry management with the packer (fill and expand options)
+
+(label '.l4 :text "Label #4" :background "red")
+(label '.l5 :text "Label #5" :background "blue")
+(label '.l6 :text "Label #6" :background "green")
+
+
+(pack .l4 :side "top"    :fill "both" :padx 20 :pady 20)
+(pack .l5 :side "left"   :fill "both" :padx 20 :pady 20)
+(pack .l6 :side "bottom" :fill "both" :padx 20 :pady 20)
diff --git a/Contrib/STk-wtour/lessons/radiobutton.stk b/Contrib/STk-wtour/lessons/radiobutton.stk
new file mode 100644
index 0000000..e4314d1
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/radiobutton.stk
@@ -0,0 +1,8 @@
+;; A set of radio button widgets
+
+(define color-var1 #f)   ;; The variable to which radiobuttons are "connected"
+
+(radiobutton '.b1 :text "Red"   :variable 'color-var1 :value "R" :anchor "w")
+(radiobutton '.b2 :text "Green" :variable 'color-var1 :value "G" :anchor "w")
+(radiobutton '.b3 :text "Blue"  :variable 'color-var1 :value "B" :anchor "w")
+(pack .b1 .b2 .b3 :fill "x")
diff --git a/Contrib/STk-wtour/lessons/scale1.stk b/Contrib/STk-wtour/lessons/scale1.stk
new file mode 100644
index 0000000..a907205
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/scale1.stk
@@ -0,0 +1,4 @@
+;; A basic scale widget
+
+(pack (scale '.s1))
+
diff --git a/Contrib/STk-wtour/lessons/scale2.stk b/Contrib/STk-wtour/lessons/scale2.stk
new file mode 100644
index 0000000..67b6f2d
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/scale2.stk
@@ -0,0 +1,14 @@
+;; A scale widget with options
+
+(define (display-value n)
+  (format #t "Flow 1 = ~A\n" n))
+
+(scale '.s1 :label "Flow 1" :from -1000 :to 1000 :orient "horizontal" 
+            :command display-value)
+(pack .s1)
+
+;; We could avoid the display-value definition by doing
+(scale '.s2 :label "Flow 2" :from -1000 :to 1000 :orient "horizontal" 
+            :command (lambda (n) 
+		       (format #t "Flow 2 = ~A\n" n)))
+(pack .s2)
diff --git a/Contrib/STk-wtour/lessons/selection.stk b/Contrib/STk-wtour/lessons/selection.stk
new file mode 100644
index 0000000..e814a88
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/selection.stk
@@ -0,0 +1,13 @@
+;; X Selection
+
+(pack 
+   [label '.lab :text "Selection is:" :anchor "w"]
+   [text '.t :relief "raised" :bd 1 :height 15]
+   [button '.b1 :text "Get Selection" 
+	   	:command (lambda ()
+			   ;; Clear text buffer
+			   (.t 'delete "1.0" "end")
+			   ;; Insert selection if it exists
+			   (unless (catch (selection 'get))
+			       (.t 'insert "1.0" (selection 'get))))])
+
diff --git a/Contrib/STk-wtour/lessons/text1.stk b/Contrib/STk-wtour/lessons/text1.stk
new file mode 100644
index 0000000..57664c7
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/text1.stk
@@ -0,0 +1,6 @@
+;;; Basic text widget
+
+(pack (text '.text))
+
+(.text 'insert "current" "This is a text widget, displaying some text.\n")
+(.text 'insert "current" "Try editing the text in the widget.\n")
\ No newline at end of file
diff --git a/Contrib/STk-wtour/lessons/text2.stk b/Contrib/STk-wtour/lessons/text2.stk
new file mode 100644
index 0000000..2c45b8a
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/text2.stk
@@ -0,0 +1,14 @@
+;;; A basic text widget, with scrollbars
+ 
+(text '.text :yscroll (lambda l (apply .scroll 'set l)))
+(scrollbar '.scroll :relief "flat" :command (lambda l (apply .text 'yview l)))
+ 
+(pack .scroll :side "right" :fill "y")
+(pack .text   :expand "yes" :fill "both")
+ 
+(.text 'insert "current" 
+       "This is a text widget, with an attached scrollbar.\n")
+(.text 'insert "current" 
+       "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nTry scrolling me.")
+(.text 'insert "current" "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nBoo!")
+ 
diff --git a/Contrib/STk-wtour/lessons/text3.stk b/Contrib/STk-wtour/lessons/text3.stk
new file mode 100644
index 0000000..3fcdc10
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/text3.stk
@@ -0,0 +1,6 @@
+;;;  A basic text widget, with word wrapping
+ 
+(pack (text '.text :wrap "word"))
+
+(.text 'insert "current" "This is a text widget, displaying some text. ")
+(.text 'insert "current" "Notice how lines are broken at words.\n")
diff --git a/Contrib/STk-wtour/lessons/text4.stk b/Contrib/STk-wtour/lessons/text4.stk
new file mode 100644
index 0000000..ee6245c
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/text4.stk
@@ -0,0 +1,15 @@
+;;;  A basic text widget, with basic text tagging
+
+(text '.text :yscrollcommand (lambda l (apply .scroll 'set l)) :wrap "word")
+(scrollbar '.scroll :relief "flat" :command (lambda l (apply l .text 'yview l)))
+
+(pack .scroll :side "right" :fill "y")
+(pack .text :expand #t :fill "both")
+
+(.text 'insert 'current 
+"This is a text widget, with some tagged text:\n\n\n\n
+Some tagged text.")
+
+(.text 'tag 'configure 'footag :relief "raised" :borderwidth 3 :background "white")
+(.text 'tag 'add 'footag "end-1l linestart" "end-1c")
+
diff --git a/Contrib/STk-wtour/lessons/text5.stk b/Contrib/STk-wtour/lessons/text5.stk
new file mode 100644
index 0000000..529ad76
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/text5.stk
@@ -0,0 +1,19 @@
+;;;  A basic text widget, with tag bindings
+
+(text '.text :yscrollcommand (lambda l (apply .scroll 'set l)) :wrap "word")
+(scrollbar '.scroll :relief "flat" :command (lambda l (apply l .text 'yview l)))
+
+(pack .scroll :side "right" :fill "y")
+(pack .text :expand #t :fill "both")
+
+
+(.text 'insert 'current 
+"This is a text widget, with some tagged text:\n\n\n\n
+Press me!!!")
+
+(.text 'tag 'configure 'footag :relief "raised" :borderwidth 3 :background "bisque")
+(.text 'tag 'add 'footag "end-1l linestart" "end-1c")
+
+(.text 'tag 'bind 'footag "<ButtonPress-1>" (lambda () (display "Gotcha!\n")))
+
+
diff --git a/Contrib/STk-wtour/lessons/tkwait.stk b/Contrib/STk-wtour/lessons/tkwait.stk
new file mode 100644
index 0000000..852bd12
--- /dev/null
+++ b/Contrib/STk-wtour/lessons/tkwait.stk
@@ -0,0 +1,30 @@
+;; tkwait, used for waiting for dialog input
+
+(define tkwait-label #f)
+
+(define make-panel 
+  (lambda ()
+    (toplevel '.top)
+    (button '.top.ok 
+	    :text "OK" 
+	    :command (lambda ()
+		       (set! tkwait-label "ok")
+		       (destroy .top)))
+    (button '.top.cancel 
+	    :text "Cancel" 
+	    :command (lambda ()
+		       (set! tkwait-label "cancel")
+		       (destroy .top)))
+    
+    (pack .top.ok .top.cancel :side "left" :padx "10" :pady "10")
+    (grab 'set .top)
+    (tkwait 'window .top)
+    tkwait-label))
+
+(button '.b 
+	:text "Try pressing me!" 
+	:command  (lambda ()
+		    (let ([x (make-panel)])
+		      (format #t "You pressed ~a\n" x))))
+
+(pack .b)
diff --git a/Contrib/STk-wtour/lib/iu.ridge.xbm b/Contrib/STk-wtour/lib/iu.ridge.xbm
new file mode 100644
index 0000000..92846a3
--- /dev/null
+++ b/Contrib/STk-wtour/lib/iu.ridge.xbm
@@ -0,0 +1,117 @@
+#define iu_width 88
+#define iu_height 124
+static char iu_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x1f,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x10, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x80, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0xc0, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xe0, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0xe0, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0,
+   0x0f, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f,
+   0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00,
+   0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00,
+   0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x10,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x10, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x10, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x01, 0xc0, 0x1f, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0xe0, 0xff, 0x01, 0xc0, 0x1f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0xe0, 0xff, 0x01, 0xc0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xe0, 0xff, 0x01, 0xc0, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0xe0, 0xff, 0x01, 0xc0, 0x03, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0xff,
+   0xff, 0x01, 0xc0, 0x81, 0xff, 0xff, 0xff, 0x60, 0x00, 0x00, 0x80, 0xfd,
+   0x01, 0xc0, 0xc0, 0x00, 0x00, 0x80, 0x70, 0x00, 0x00, 0x80, 0xfd, 0x01,
+   0xc0, 0xe0, 0x00, 0x00, 0x80, 0x78, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0,
+   0xf0, 0x00, 0x00, 0x80, 0x7c, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xf8,
+   0x00, 0x00, 0x80, 0x7e, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00,
+   0x00, 0x80, 0x7f, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00,
+   0x80, 0x7f, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80,
+   0x7f, 0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f,
+   0x00, 0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f, 0x00,
+   0x00, 0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f, 0x00, 0x00,
+   0x80, 0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f, 0x00, 0x00, 0x80,
+   0xfd, 0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f, 0x00, 0x00, 0x80, 0xfd,
+   0x01, 0xc0, 0xfc, 0x00, 0x00, 0x80, 0x7f, 0x00, 0x00, 0x80, 0xfd, 0x01,
+   0xc0, 0xfc, 0x00, 0x00, 0x80, 0xff, 0x1f, 0x00, 0xfc, 0xfd, 0x01, 0xc0,
+   0xfc, 0x3f, 0x00, 0xfc, 0xff, 0x1f, 0x00, 0xfc, 0xfc, 0x01, 0xc0, 0xfc,
+   0x3f, 0x00, 0xfc, 0xff, 0x1f, 0x00, 0x7c, 0xfc, 0x01, 0xc0, 0xfc, 0x3f,
+   0x00, 0x7c, 0xff, 0x1f, 0x00, 0x3c, 0xfc, 0x01, 0xc0, 0xfc, 0x3f, 0x00,
+   0x3c, 0xff, 0x1f, 0x00, 0x1c, 0xfc, 0x01, 0xc0, 0xfc, 0x3f, 0x00, 0x1c,
+   0xff, 0x1f, 0x00, 0x0c, 0xfc, 0x01, 0xc0, 0xfc, 0x3f, 0x00, 0x0c, 0xff,
+   0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xfc, 0x3f, 0x00, 0x0c, 0xff, 0x1f,
+   0x00, 0x04, 0xfc, 0x01, 0xc0, 0xfc, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00,
+   0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04,
+   0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc,
+   0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01,
+   0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0,
+   0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0,
+   0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f,
+   0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00,
+   0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c,
+   0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0,
+   0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f,
+   0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00,
+   0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04,
+   0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc,
+   0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01,
+   0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0,
+   0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0,
+   0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f,
+   0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00,
+   0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c,
+   0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0,
+   0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f,
+   0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00,
+   0x04, 0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04,
+   0xfc, 0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc,
+   0x01, 0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01,
+   0xc0, 0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0,
+   0xc0, 0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0x04, 0xfc, 0x01, 0xc0, 0xc0,
+   0x3f, 0x00, 0x0c, 0xc0, 0x1f, 0x00, 0xfc, 0xff, 0x01, 0xc0, 0xff, 0x3f,
+   0x00, 0x0c, 0xc0, 0x1f, 0x00, 0xfc, 0xff, 0x01, 0xc0, 0xff, 0x3f, 0x00,
+   0x0c, 0xc0, 0x1f, 0x00, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c,
+   0xc0, 0x1f, 0x00, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c, 0xc0,
+   0x1f, 0x00, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c, 0xc0, 0x3f,
+   0x00, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c, 0xc0, 0x7f, 0x00,
+   0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c, 0xc0, 0xff, 0x00, 0x00,
+   0xfc, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x0c, 0xc0, 0xff, 0x01, 0x00, 0xfc,
+   0x01, 0xc0, 0x00, 0x00, 0x00, 0x0e, 0x00, 0xff, 0x03, 0x00, 0xfc, 0x01,
+   0xc0, 0x00, 0x00, 0x80, 0x0f, 0x00, 0xfc, 0x07, 0x00, 0xfc, 0x01, 0xc0,
+   0x00, 0x00, 0xc0, 0x07, 0x00, 0xf8, 0x0f, 0x00, 0xfc, 0x01, 0xc0, 0x00,
+   0x00, 0xe0, 0x01, 0x00, 0xf0, 0x1f, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00,
+   0xf0, 0x00, 0x00, 0xe0, 0x3f, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x38,
+   0x00, 0x00, 0xc0, 0x7f, 0x00, 0xfc, 0x01, 0xc0, 0x00, 0x00, 0x1e, 0x00,
+   0x00, 0x80, 0xff, 0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0x0f, 0x00, 0x00,
+   0x00, 0xff, 0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00,
+   0xfe, 0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0xfc,
+   0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff,
+   0xff, 0x01, 0xc0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff, 0xff,
+   0x01, 0xc0, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x01,
+   0xc0, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00,
+   0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x0f, 0x00, 0x00, 0x30,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x0f, 0x00, 0x00, 0x30, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0xe0, 0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0,
+   0x0f, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f,
+   0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00,
+   0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00,
+   0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x30,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x3f, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x1f, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xe0, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0xe0, 0xff, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00};
diff --git a/Contrib/STk-wtour/lib/iu.seal.small.xbm b/Contrib/STk-wtour/lib/iu.seal.small.xbm
new file mode 100644
index 0000000..9d53e6d
--- /dev/null
+++ b/Contrib/STk-wtour/lib/iu.seal.small.xbm
@@ -0,0 +1,136 @@
+#define iu_width 124
+#define iu_height 124
+static char iu_bits[] = {
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xf0,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0xff,0xff,0x03,0x00,0x00,0x00,0x00,
+ 0x00,0xf0,0x00,0x00,0x00,0x00,0x00,0x80,0xff,0xff,0xff,0x3f,0x00,0x00,0x00,
+ 0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0x00,0xf8,0xff,0x3f,0xff,0xff,0x03,0x00,
+ 0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0x00,0xff,0x0f,0x00,0x00,0xfe,0x1f,
+ 0x00,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0xc0,0xff,0x00,0x00,0x00,0xc0,
+ 0x7f,0x00,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0xf0,0x0f,0x00,0xf8,0x38,
+ 0x00,0xfe,0x01,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0xfc,0x03,0xcc,0x08,
+ 0xe8,0x00,0xf0,0x07,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0x7f,0x80,0xc9,
+ 0x08,0x88,0x70,0xc0,0x1f,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0xc0,0x1f,0x80,
+ 0xd9,0x78,0xd8,0xd8,0x00,0x7f,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0xe0,0x07,
+ 0x88,0xd1,0x08,0x7c,0x98,0x00,0xfc,0x01,0x00,0x00,0xf0,0x00,0x00,0x00,0xf8,
+ 0x81,0x19,0x71,0x08,0xcc,0x30,0x58,0xf0,0x03,0x00,0x00,0xf0,0x00,0x00,0x00,
+ 0xfc,0x80,0x1b,0x63,0xf8,0x4c,0x64,0xc8,0xc1,0x07,0x00,0x00,0xf0,0x00,0x00,
+ 0x00,0x3e,0x88,0x37,0x63,0x00,0xc0,0xcc,0x8c,0x87,0x1f,0x00,0x00,0xf0,0x00,
+ 0x00,0x80,0x0f,0x08,0x3f,0x02,0x00,0x00,0x78,0x84,0x05,0x3e,0x00,0x00,0xf0,
+ 0x00,0x00,0xc0,0x07,0x18,0x33,0x00,0xc0,0x00,0x00,0xc6,0x00,0x7c,0x00,0x00,
+ 0xf0,0x00,0x00,0xe0,0x83,0x31,0x22,0xe0,0x3f,0xff,0x00,0xc6,0x60,0xf8,0x00,
+ 0x00,0xf0,0x00,0x00,0xf0,0x00,0x23,0x06,0x1e,0x00,0x00,0x0f,0x60,0xf0,0xe0,
+ 0x01,0x00,0xf0,0x00,0x00,0x78,0x00,0x63,0xc0,0x01,0x00,0x00,0x70,0x20,0x58,
+ 0xc0,0x03,0x00,0xf0,0x00,0x00,0x3c,0x00,0x26,0x70,0x00,0x00,0x00,0x80,0x01,
+ 0x6e,0x80,0x07,0x00,0xf0,0x00,0x00,0x1e,0x00,0x1c,0x0c,0x00,0x00,0x00,0x00,
+ 0x06,0x7e,0x08,0x0f,0x00,0xf0,0x00,0x00,0x0f,0x00,0x00,0x03,0x00,0x02,0x18,
+ 0x00,0x18,0x30,0x18,0x1e,0x00,0xf0,0x00,0x80,0x07,0x00,0xc0,0x00,0x00,0x06,
+ 0x14,0x00,0x60,0x30,0x38,0x3c,0x00,0xf0,0x00,0xc0,0x03,0x00,0x20,0x00,0x00,
+ 0x09,0x22,0x00,0x80,0x21,0x4c,0x78,0x00,0xf0,0x00,0xc0,0x01,0x00,0x18,0xc0,
+ 0x81,0x10,0x42,0x60,0x00,0x03,0x06,0xf0,0x00,0xf0,0x00,0xe0,0x01,0x00,0x0c,
+ 0x40,0x86,0x50,0x02,0x98,0x00,0x04,0x03,0xe1,0x00,0xf0,0x00,0xf0,0x00,0x00,
+ 0x02,0x40,0x24,0xb0,0x22,0x80,0x00,0x18,0x81,0xe1,0x01,0xf0,0x00,0x78,0x38,
+ 0x00,0x01,0x00,0xc8,0x11,0xe3,0x85,0x00,0x30,0xc0,0xc0,0x03,0xf0,0x00,0x38,
+ 0x8c,0x80,0x00,0x40,0x98,0x11,0x23,0x86,0x00,0x60,0x60,0x80,0x07,0xf0,0x00,
+ 0x3c,0xec,0x61,0xe0,0x40,0x18,0x11,0x21,0x82,0x80,0xc1,0x38,0x0e,0x07,0xf0,
+ 0x00,0x1e,0x3c,0x21,0x20,0xb3,0x10,0x31,0x21,0x42,0x33,0x81,0x01,0x1b,0x0f,
+ 0xf0,0x00,0x0e,0x18,0x11,0x20,0x94,0x10,0x31,0x31,0x43,0x0a,0x01,0xc3,0x12,
+ 0x0e,0xf0,0x00,0x0f,0xe1,0x08,0x20,0x88,0x31,0x33,0x11,0x61,0x06,0x01,0x46,
+ 0x1a,0x1e,0xf0,0x00,0x07,0x47,0x04,0x20,0x18,0x21,0x22,0x11,0x21,0x06,0x01,
+ 0xc4,0x06,0x3c,0xf0,0x80,0x07,0x0e,0x02,0x40,0x10,0x23,0x00,0x80,0x31,0x83,
+ 0x00,0x88,0x03,0x38,0xf0,0x80,0x03,0x38,0x02,0x80,0x30,0x62,0x00,0x80,0x10,
+ 0x41,0x00,0x10,0x01,0x38,0xf0,0xc0,0x03,0x20,0x01,0xe0,0x61,0x46,0x51,0x8a,
+ 0x98,0xe1,0x01,0x30,0x00,0x70,0xf0,0xc0,0x61,0x80,0xc0,0x17,0x43,0x44,0x51,
+ 0xce,0xc8,0x30,0xf8,0x20,0x00,0x70,0xf0,0xe0,0x31,0x87,0x40,0x18,0xc2,0xcc,
+ 0x51,0x44,0x4c,0x18,0x84,0x40,0x00,0xe0,0xf0,0xe0,0x90,0x45,0x40,0x30,0x84,
+ 0x89,0x51,0x4e,0x66,0x08,0x83,0x40,0x00,0xe0,0xf0,0xf0,0xf0,0x24,0x40,0x60,
+ 0x08,0x91,0x67,0x4a,0x26,0x84,0x41,0x80,0x00,0xe0,0xf1,0xf0,0x40,0x26,0x80,
+ 0xc0,0x10,0x93,0x00,0x00,0x13,0xc2,0x60,0x80,0x00,0xc0,0xf1,0x70,0x00,0x03,
+ 0x00,0x83,0x21,0x26,0xa9,0x25,0x1b,0x63,0x10,0x00,0x01,0xc0,0xf1,0x78,0x00,
+ 0x10,0x80,0x07,0x63,0x24,0xa9,0xb5,0x89,0x31,0x3c,0x00,0x01,0xc0,0xf3,0x38,
+ 0x1c,0x10,0x00,0x1c,0xc6,0x4c,0xfb,0x97,0xc5,0x18,0x4e,0x00,0x02,0x86,0xf3,
+ 0x38,0xf0,0x08,0x90,0x70,0xff,0xff,0xff,0xff,0xff,0xbf,0x43,0x02,0x42,0x8f,
+ 0xf3,0x38,0xc0,0x09,0xe7,0xc0,0xff,0xff,0xff,0xff,0xff,0xff,0xc0,0x19,0x66,
+ 0x8b,0xf7,0x3c,0x7e,0x0c,0x81,0x83,0x19,0x00,0x40,0x00,0x00,0x66,0x70,0x10,
+ 0x24,0x0b,0xf7,0x1c,0x1e,0x04,0x02,0x0e,0x19,0x00,0x00,0x00,0x00,0x26,0x1c,
+ 0x00,0x64,0x0b,0xf7,0x1c,0xf8,0x04,0x04,0x38,0x19,0x00,0x00,0x00,0x00,0x26,
+ 0x07,0x08,0xc8,0x01,0xf7,0x1c,0xc0,0x04,0x1c,0xe0,0x99,0xfb,0x1e,0x3e,0x3f,
+ 0xe6,0x01,0x06,0x08,0x00,0xff,0x1e,0x00,0x02,0xe0,0x80,0x99,0xfb,0x1e,0x3e,
+ 0x3f,0x66,0xc0,0x01,0x08,0x00,0xfe,0x0e,0x01,0x02,0x98,0x07,0x19,0x00,0x00,
+ 0x00,0x00,0x26,0x78,0x02,0x08,0x3e,0xfe,0x0e,0x49,0x02,0x08,0x3c,0x19,0x00,
+ 0x00,0x00,0x00,0xa6,0x07,0x02,0xd0,0x07,0xfe,0x0e,0x49,0x02,0x00,0xe0,0x99,
+ 0xe7,0x1f,0xfe,0x33,0xe6,0x00,0x02,0x10,0x00,0xfe,0x0e,0x4d,0x02,0x7f,0x00,
+ 0x19,0x00,0x00,0x00,0x00,0x26,0xc0,0x3f,0x10,0x1e,0xfe,0x8e,0x7f,0xc1,0xe0,
+ 0x0f,0x19,0x00,0x00,0x00,0x00,0x26,0x7e,0xc0,0x10,0x3f,0xfe,0x0e,0x7c,0x21,
+ 0x00,0xfc,0x99,0xcf,0x1f,0x4e,0x3e,0xe6,0x03,0x80,0x90,0x21,0xfe,0x0e,0x00,
+ 0x41,0x00,0x80,0x99,0xcf,0x1f,0x4e,0x3e,0x26,0x00,0x40,0x90,0x61,0xfe,0x0e,
+ 0x00,0x81,0x00,0x00,0x19,0x00,0x00,0x00,0x00,0x26,0x00,0x20,0x90,0x65,0xfc,
+ 0x0e,0x00,0x01,0xff,0x7f,0x19,0x00,0x00,0x00,0x00,0xe6,0xff,0x03,0x10,0x37,
+ 0xfc,0x8f,0x3f,0x01,0x08,0xf8,0x99,0xf3,0x1c,0xfe,0x3d,0x66,0x00,0x04,0x90,
+ 0x17,0xfc,0x07,0x1c,0x01,0x04,0x00,0x19,0x00,0x00,0x00,0x00,0x26,0x00,0x08,
+ 0x10,0x00,0xfc,0x07,0x06,0x01,0x08,0xf0,0x19,0x00,0x00,0x00,0x00,0xe6,0x1f,
+ 0x04,0x10,0x00,0xfc,0x8e,0x3f,0x01,0xff,0xff,0x99,0x7f,0x1e,0x9e,0x3f,0x26,
+ 0xfe,0x1f,0x90,0x7f,0xfc,0x8e,0x3f,0x81,0x00,0x00,0x99,0x7f,0x1e,0x9e,0x3f,
+ 0x26,0x00,0x20,0x90,0x7f,0xfc,0x0e,0x00,0x81,0x00,0x80,0x19,0x00,0x00,0x00,
+ 0x00,0xe6,0x00,0x40,0x10,0x00,0xfe,0x0e,0x00,0x41,0x00,0xfc,0x19,0x00,0x00,
+ 0x00,0x00,0xe6,0x1f,0x80,0x90,0x03,0xfe,0x0e,0x40,0xc1,0xe0,0x1f,0x99,0xf3,
+ 0x19,0xce,0x39,0x26,0xfc,0x63,0x90,0x3f,0xfe,0x0e,0x70,0x02,0xff,0x00,0x99,
+ 0xf3,0x19,0xce,0x39,0x26,0x80,0x19,0x90,0x20,0xfe,0x0e,0x3c,0x02,0x10,0xe0,
+ 0x19,0x00,0x00,0x00,0x00,0xe6,0x01,0x02,0xd0,0x00,0xfe,0x0e,0x27,0x02,0x08,
+ 0x3c,0x99,0x9f,0x1f,0x7e,0x3e,0x26,0x1f,0x02,0xc8,0x00,0xfe,0x0e,0x3f,0x02,
+ 0x90,0x03,0x99,0x9f,0x1f,0x7e,0x3e,0x26,0xf8,0x01,0x08,0x00,0xfe,0x1e,0xfc,
+ 0x02,0x70,0x80,0x19,0x00,0x00,0x00,0x00,0x66,0x80,0x01,0x08,0x00,0xfe,0x1c,
+ 0x00,0x04,0x0c,0x60,0x19,0x00,0x00,0x00,0x00,0xe6,0x01,0x04,0xc8,0x00,0xff,
+ 0x1c,0x80,0x04,0x04,0x18,0x19,0x00,0x00,0x00,0x00,0x26,0x07,0x08,0xe4,0x07,
+ 0xf7,0x1c,0xf8,0x05,0x02,0x06,0x19,0x00,0x40,0x00,0x00,0x26,0x1c,0x10,0x24,
+ 0x1c,0xf7,0x1c,0x1e,0x08,0x82,0xc1,0x19,0x00,0xc0,0x00,0x00,0x66,0x70,0x10,
+ 0x24,0x00,0xf7,0x38,0x00,0x08,0xaf,0x60,0xff,0xff,0xff,0xff,0xff,0xff,0xa0,
+ 0x1f,0x22,0x80,0xf7,0x38,0xc0,0x09,0x80,0x30,0xff,0xff,0xff,0xff,0xff,0xbf,
+ 0x03,0x00,0x02,0x80,0xf3,0x38,0xf0,0x13,0x80,0x0c,0xc6,0x6c,0xa9,0xb6,0x4c,
+ 0x0c,0x66,0x00,0x02,0x80,0xf3,0x78,0x18,0x12,0x00,0x06,0x63,0x36,0xa9,0x24,
+ 0x99,0x30,0x1c,0x00,0x79,0xc0,0xf3,0x70,0x18,0x26,0x00,0x81,0x31,0xb2,0xad,
+ 0x24,0x1b,0x61,0x30,0x00,0xcd,0xc1,0xf1,0x70,0x18,0x27,0x80,0x40,0x00,0x00,
+ 0x00,0x00,0x00,0xc0,0x40,0x80,0x0c,0xc3,0xf1,0xf0,0xd0,0x43,0x00,0x20,0x00,
+ 0x00,0x00,0x00,0x00,0x80,0x41,0x80,0x0c,0xe0,0xf1,0xe0,0x70,0x40,0x40,0x10,
+ 0x14,0x42,0x8a,0x52,0xc4,0x09,0x03,0x40,0x38,0xe0,0xf0,0xe0,0x11,0x90,0x40,
+ 0x18,0x72,0x82,0x99,0x53,0xca,0x18,0x85,0x20,0xe0,0xe0,0xf0,0xc0,0x01,0x1c,
+ 0xc1,0x07,0x11,0x82,0x89,0x52,0x2e,0x31,0xf9,0x20,0x81,0x70,0xf0,0xc0,0x03,
+ 0x1e,0x01,0xe0,0x71,0x82,0xb9,0x52,0xca,0x60,0x00,0x10,0x03,0x70,0xf0,0x80,
+ 0x83,0x0b,0x02,0x80,0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x08,0x0e,0x78,0xf0,
+ 0x80,0x87,0x6c,0x04,0x40,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0xcc,0x1f,0x38,
+ 0xf0,0x00,0x07,0x3c,0x0c,0x00,0x18,0x31,0x33,0x11,0x21,0x06,0x00,0xa4,0x3e,
+ 0x3c,0xf0,0x00,0x0f,0x1e,0x19,0x00,0x94,0x31,0x33,0x11,0x61,0x0a,0x00,0x72,
+ 0x11,0x1e,0xf0,0x00,0x0e,0xc6,0x11,0x00,0xf2,0x10,0x31,0x11,0xc3,0x0b,0x00,
+ 0xc1,0x02,0x1e,0xf0,0x00,0x1e,0x60,0x20,0x80,0x81,0x10,0x31,0x31,0x42,0xe0,
+ 0x80,0x80,0x07,0x0f,0xf0,0x00,0x3c,0x30,0x40,0x00,0x40,0x18,0x31,0x31,0x82,
+ 0x00,0x40,0x00,0x06,0x07,0xf0,0x00,0x38,0x18,0x80,0x01,0x40,0x98,0x31,0x61,
+ 0x85,0x00,0x20,0x00,0x84,0x07,0xf0,0x00,0x78,0x00,0x00,0x03,0x40,0x60,0x31,
+ 0xa1,0x85,0x00,0x10,0x00,0xc0,0x03,0xf0,0x00,0xf0,0x00,0x00,0x06,0x40,0x04,
+ 0x50,0x20,0x88,0x00,0x0c,0x00,0xe0,0x01,0xf0,0x00,0xe0,0x01,0x04,0x08,0x40,
+ 0x83,0x10,0x22,0x30,0x00,0x06,0x00,0xe0,0x01,0xf0,0x00,0xe0,0x01,0x3c,0x30,
+ 0x80,0x00,0x11,0x22,0x40,0x00,0x81,0x02,0xf0,0x00,0xf0,0x00,0xc0,0x03,0x1c,
+ 0x40,0x00,0x00,0x09,0x14,0x00,0xc0,0x00,0x03,0x78,0x00,0xf0,0x00,0x80,0x07,
+ 0x3e,0x80,0x01,0x00,0x06,0x18,0x00,0x30,0x80,0x0f,0x3c,0x00,0xf0,0x00,0x00,
+ 0x0f,0x08,0x00,0x06,0x00,0x00,0x00,0x00,0x0c,0xc0,0x02,0x1e,0x00,0xf0,0x00,
+ 0x00,0x1e,0x08,0x18,0x38,0x00,0x00,0x00,0x00,0x03,0x00,0x02,0x0f,0x00,0xf0,
+ 0x00,0x00,0x3c,0x00,0x18,0xe0,0x00,0x00,0x00,0xe0,0x80,0x00,0x80,0x07,0x00,
+ 0xf0,0x00,0x00,0x78,0x00,0x1c,0x00,0x0f,0x00,0x00,0x1c,0xc0,0x00,0xc0,0x07,
+ 0x00,0xf0,0x00,0x00,0xf0,0x00,0x94,0x01,0xf8,0x01,0xf0,0x03,0xd8,0x00,0xe0,
+ 0x01,0x00,0xf0,0x00,0x00,0xe0,0x03,0xf6,0x01,0x00,0xfe,0x0f,0x00,0xf8,0x00,
+ 0xf0,0x00,0x00,0xf0,0x00,0x00,0xc0,0x07,0xaa,0x30,0x00,0x00,0x00,0x80,0xe0,
+ 0x00,0x7c,0x00,0x00,0xf0,0x00,0x00,0x80,0x0f,0xda,0xf0,0x01,0x00,0x00,0xd0,
+ 0xc0,0x01,0x3e,0x00,0x00,0xf0,0x00,0x00,0x00,0x3f,0x78,0x10,0x61,0x00,0xc0,
+ 0xf8,0x40,0x07,0x1f,0x00,0x00,0xf0,0x00,0x00,0x00,0x7c,0x60,0x18,0xf1,0xe1,
+ 0xf0,0xe1,0x40,0xc0,0x0f,0x00,0x00,0xf0,0x00,0x00,0x00,0xf8,0x01,0x18,0x19,
+ 0xb1,0x11,0xe1,0xc0,0xf0,0x03,0x00,0x00,0xf0,0x00,0x00,0x00,0xf0,0x07,0x88,
+ 0x19,0x10,0x11,0xe0,0x01,0xf8,0x01,0x00,0x00,0xf0,0x00,0x00,0x00,0xc0,0x1f,
+ 0xdc,0x08,0x18,0x10,0x60,0x03,0x7e,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,0x00,
+ 0x7f,0x60,0x98,0x19,0x30,0x63,0x80,0x1f,0x00,0x00,0x00,0xf0,0x00,0x00,0x00,
+ 0x00,0xfc,0x01,0xf0,0x31,0xf1,0x01,0xf0,0x0f,0x00,0x00,0x00,0xf0,0x00,0x00,
+ 0x00,0x00,0xf0,0x0f,0xf0,0xf0,0xc1,0x00,0xfe,0x03,0x00,0x00,0x00,0xf0,0x00,
+ 0x00,0x00,0x00,0xc0,0x7f,0x00,0x00,0x00,0xc0,0x7f,0x00,0x00,0x00,0x00,0xf0,
+ 0x00,0x00,0x00,0x00,0x00,0xff,0x07,0x00,0x00,0xfc,0x1f,0x00,0x00,0x00,0x00,
+ 0xf0,0x00,0x00,0x00,0x00,0x00,0xf8,0xff,0x07,0xfc,0xff,0x03,0x00,0x00,0x00,
+ 0x00,0xf0,0x00,0x00,0x00,0x00,0x00,0xc0,0xff,0xff,0xff,0x7f,0x00,0x00,0x00,
+ 0x00,0x00,0xf0,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0xff,0xff,0x07,0x00,0x00,
+ 0x00,0x00,0x00,0xf0};
diff --git a/Contrib/STk-wtour/lib/wtour.stk b/Contrib/STk-wtour/lib/wtour.stk
new file mode 100644
index 0000000..3cd5cb8
--- /dev/null
+++ b/Contrib/STk-wtour/lib/wtour.stk
@@ -0,0 +1,406 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f 
+;;
+;;  STk/Scheme widget tour, Version 0.2
+;;
+;;  Originally for Tk/Tcl by:  Andrew Payne  payne@crl.dec.com
+;;  This one simplified and redesigned for STk/Scheme 
+;;  by: Suresh Srinivas ssriniva@cs.indiana.edu
+
+;; Main differences are in the way the demo window is created
+;; The Tk/Tcl version uses send mechanisms extensively.
+;; The STk/Scheme version avoids using send mechanisms and
+;; fixes the user's input so as to make the user widgets to
+;; be children of a top-level widget called .wtour-wdemo
+
+ 
+(option 'add "Tk.geometry"  "+25+405" "startupFile")
+(option 'add "Tk.demo-geometry" "300x300+25+25" "startupFile")
+ 
+(option 'add "*Entry*BorderWidth"   "2")
+(option 'add "*Entry*Background"    "white")
+(option 'add "*Entry*Relief"        "sunken")
+(option 'add "*Entry*Font"          "-*-courier-bold-r-*-*-14-*-*-*-*-*-*-*")
+(option 'add "*Entry*Width"         "40")
+
+;; prefix all the globals with wtour
+;; so that we dont screw up the global name space quite a lot
+
+(define wtour-wdemo       ".wtour-wdemo")
+(define wtour-filename    #f)
+(define wtour-action      #f)
+
+(define wtour-mframe      #f)
+(define wtour-txt         #f)
+
+(define wtour-maxlessons  100)
+(define wtour-nlessons    #f)
+(define wtour-lessons     (make-vector wtour-maxlessons))
+(define wtour-curlesson   #f)
+(define wtour-dir	  (if (null? *argv*) "." (car *argv*)))
+(define wtour-lessondir   (string-append wtour-dir "/lessons/"))
+
+(define wtour-menus       '())
+(define wtour-menu-bar    '())
+
+
+;; some tk goodies (stolen from one of the STk demos)
+
+(define (->string obj)
+  (cond ((string? obj)     obj)
+        ((number? obj)     (number->string obj))
+        ((symbol? obj)     (symbol->string obj))
+        ((tk-command? obj) (widget->string obj))
+        (else              (error "Cannot convert ~S to a string" obj))))
+  
+(define (& . l)
+  (let loop ((l l) (s ""))
+    (if (null? l)
+        s
+        (loop (cdr l) (string-append s (->string (car l)))))))
+ 
+
+
+
+;; Make a text widget with an attached scrollbar
+(define (mktext w)
+  (let ((scl #f)
+	(txt #f))
+    (frame w)
+    (set! scl (scrollbar (& w ".scroll")
+			 :relief  "flat" 
+			 :command (lambda l
+				    (apply txt 'yview l))))
+    (set! txt (text (& w ".text")	
+		    :bd 1 
+		    :relief "raised" 
+		    :yscrollcommand (lambda l
+				      (apply scl 'set l))))
+    (pack scl :side "right" :fill "y")
+    (pack txt :expand #t :fill "both")
+    txt))
+
+;; Set up the demo window
+(begin
+  (catch (destroy .wtour-wdemo))
+  (toplevel wtour-wdemo)
+  (wm 'geometry wtour-wdemo "+300+300")
+  (wm 'minsize wtour-wdemo "100" "100")
+  (wm 'title .wtour-wdemo "STk Demo Window")
+  (wm 'iconname .wtour-wdemo "STk Demo Window")
+  (update "idletasks"))
+
+
+;;
+;;  Set up main window
+;;
+
+(wm 'title "." "STk Widget Tour")
+
+(set! wtour-mframe (frame ".menu" :relief "raised" :borderwidth "1"))
+(pack wtour-mframe :fill "x")
+
+;; having to eval the return values from Tk is indeed a bother
+
+(let ([mframe-help (& wtour-mframe ".help")]
+      [mframe-file (& wtour-mframe ".file")])
+  (let ([mframe-help-menu (& mframe-help ".menu")])
+    (menubutton mframe-help :text "Help" :menu mframe-help-menu)
+    (pack mframe-help :side "right")
+    (let ([m (menu mframe-help-menu)])
+      (m 'add 'command :label "Help!" :command '(mkHelp))))
+  (let ([mframe-file-menu (& mframe-file ".menu")])
+    (menubutton mframe-file :text "File" :menu mframe-file-menu)
+    (pack mframe-file :side "left")
+    (let ([m (menu mframe-file-menu)])
+      (m 'add 'command :label "New" :command '(do-new))
+      (m 'add 'command :label "Open..." :command '(do-open))
+      (m 'add 'command :label "Save..." :command '(do-saveas))
+      (m 'add 'separator)
+      (let ([mframe-file-menu-fonts (& mframe-file-menu ".fonts")])
+	(m 'add 'cascade :label "Screen Font" :menu mframe-file-menu-fonts)
+	(m 'add 'separator)
+	(m 'add 'command :label "Exit" :command '(do-exit))
+	(let ([m (menu mframe-file-menu-fonts)])
+          (m 'add 'command :label "Small" :command 
+             '(set-font "-*-courier-medium-r-*-*-12-*-*-*-*-*-*-*"))
+          (m 'add 'command :label "Medium" :command 
+             '(set-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*"))
+          (m 'add 'command :label "Large" :command 
+             '(set-font "-*-courier-medium-r-*-*-18-*-*-*-*-*-*-*")))))))
+
+
+(set! wtour-txt (mkText ".text"))
+(pack .text :expand "yes" :fill "both")
+
+(bind wtour-txt "<Any-Key-Menu>"  (lambda () (apply-changes)))
+(bind wtour-txt "<Any-Key-Prior>" (lambda () (adjust-lesson -1)))
+(bind wtour-txt "<Any-Key-Next>"  (lambda () (adjust-lesson +1)))
+(focus wtour-txt)
+
+(let ([f (frame ".buttons" :relief "raised" :borderw "1")])
+  (pack f :side "bottom" :fill "x")
+  (let ([f-apply (& f ".apply")]
+	[f-next  (& f ".next")]
+	[f-prev  (& f ".prev")])
+    (button f-apply :text " Apply " :command (lambda () (apply-changes)))
+    (button f-next  :text " Next  " :command (lambda () (adjust-lesson +1)))
+    (button f-prev  :text " Prev  " :command (lambda () (adjust-lesson -1)))
+    (pack f-apply f-next f-prev :side "left" :padx 7 :pady 7)))
+
+;;
+;;  Set the font of both text windows
+;;
+
+(define (set-font reg)
+  (wtour-txt 'configure :font reg))
+
+
+;;  Make a new dialog toplevel window
+;;
+
+(define (mkDialogWindow w)
+  (catch (destroy w))
+  (toplevel w :class "Dialog" :bd 0)
+  (wm 'title w "Dialog box")
+  (wm 'iconname w "Dialog")
+  (wm 'geometry w "+425+300")
+  (grab w)
+  (focus w)
+  (string->symbol w))
+
+(define (centerwindow w)
+  (wm 'withdraw w)
+  (update "idletasks")
+  (let ([x (- ( - (inexact->exact (/ (winfo 'screenwidth w) 2))
+		  (inexact->exact (/ (winfo 'reqwidth w) 2)))
+	      (winfo 'vrootx (eval (winfo 'parent w))))]
+	[y (- ( - (inexact->exact (/ (winfo 'screenheight w) 2))
+		  (inexact->exact (/ (winfo 'reqheight w) 2)))
+	      (winfo 'vrooty (eval (winfo 'parent w))))])
+    (wm 'geom w (format #f "+~A+~A" x y))
+    (wm 'deiconify w)))
+
+(define (mkHelp)
+  (let ([w (mkDialogWindow ".help")])
+    (wm 'title w "Window Tour Help")
+    (let ([w-t (& w ".t")]
+	  [w-f (& w ".buttons")])
+      (let ([t (mkText w-t)])
+	(pack w-t)
+	(let ([f (frame w-f :relief "raised" :borderw "1")])
+	  (pack f :side "bottom" :fill "x")
+	  (let ([f-close (& w-f ".close")])
+	    (button f-close :text " Close " :command `(destroy ,w))
+	    (pack f-close :side "right" :padx "7" :pady "7")))
+	(t 'insert "current"
+"Wtour is an interactive tour of STk widgets.
+ 
+The main window displays a short Scheme/STk program, and the demo window
+displays the results of running the program.
+ 
+You can make changes to the program and apply those changes by clicking
+on the \"Apply\" button or pressing the \"Do\" button.
+ 
+You can navigate through the tour with the \"Prev\" and \"Next\" buttons.  Or,
+you can go directly to a specified lesson with the drop down menus.
+ 
+There is also a command window that can be used to send individual commands
+to the demo process.  You can toggle the command window on and off with an
+option under the \"File\" menu.
+
+Originally by: Andrew Payne (payne@crl.dec.com)
+STk rewrite by: Suresh Srinivas (ssriniva@cs.indiana.edu)
+STk 3.0 port by: Erick Gallesio (eg@unice.fr)")
+	(t 'configure :state "disabled")
+	(centerwindow w)))))
+
+
+;; Make a one-line query dialog box
+
+(define (mkentryquery w prompt var)
+  (let ([w (mkdialogwindow w)])
+    (let ([w-top (& w ".top")]
+	  [w-bot (& w ".bot")])
+      (let ([t (frame w-top :relief "raised" :border "1")]
+	    [b (frame w-bot :relief "raised" :border "1")])
+	(pack t b :fill "both")
+	(let ([t-lab     (& t ".lab")]
+	      [t-ent     (& t ".ent")]
+	      [b-ok      (& b ".ok")]
+	      [b-default (& b ".default")]
+	      [b-cancel  (& b ".cancel")])
+	  (label t-lab :text prompt)
+	  (let ([e (entry t-ent :textvar `,var)])
+	    (bind e "<Any-Return>" `(set! wtour-action 'ok))
+	    (pack t-lab e :side "left" :padx "3m" :pady "3m")
+
+	    (button b-ok :text "Ok" :command '(set! wtour-action "ok"))
+	    (frame b-default :relief "sunken" :bd 1)
+	    (raise b-ok b-default)
+	    (pack b-default :in w-bot :side "left" :expand "1"
+		  :padx "3m" :pady "2m")
+	    (pack b-ok :in b-default :padx "2m" 
+		  :ipadx "2m" :ipady "1m")
+	    (button b-cancel :text "Cancel" :command 
+		    '(set! wtour-action "cancel"))
+	    (pack b-cancel :side "left" :padx "3m" :pady "3m"
+		  :ipadx "2m" :ipady "1m" :expand "yes")
+	    (centerwindow w)
+	    (focus e)
+	    (tkwait 'variable 'wtour-action)
+	    (destroy w)
+	    wtour-action))))))
+
+;; Write the edit buffer to the specified file
+
+(define (write-file fname)
+  (with-output-to-file fname
+    (lambda ()
+      (format #t "~A" (wtour-txt 'get "1.0" "end")))))
+
+;; ignoring file existence check (update)
+
+(define (do-save-file fname)
+  (write-file fname))
+
+(define (do-new)
+  (wtour-txt 'delete "1.0" "end")
+  (apply-changes))
+
+(define (do-saveas)
+  (if (equal? (mkentryquery ".dialog" 
+			 "Enter save file name:" 'wtour-filename) "ok")
+      (do-save-file wtour-filename)))
+
+(define (do-open-file fname)
+  (with-input-from-file fname
+    (lambda ()
+      (wtour-txt 'delete "1.0" "end")
+      (do ((l (read-line) (read-line)))
+	  ((eof-object? l))
+	(wtour-txt 'insert "end" l)
+	(wtour-txt 'insert "end" "\n"))
+      (wtour-txt 'mark 'set 'insert "1.0")))
+    (apply-changes))
+
+(define (do-open)
+  (if (equal? (mkentryquery ".dialog" 
+			    "Enter file name to load:" 'wtour-filename) "ok")
+      (do-open-file wtour-filename)))
+
+
+;; need to do it recursively! (look at X selection to see why it wont work)
+(define (fix-widget-names l)
+  (map
+    (lambda (x)
+      (cond
+       ((symbol? x) (let ([y (symbol->string x)])
+		      (if (eq? (string-ref y 0) #\.)
+			  (string->symbol (string-append ".wtour-wdemo" y))
+			  x)))
+       ((string? x) (if (eq? (string-ref x 0) #\.)
+			(string-append ".wtour-wdemo" x)
+			x))
+       ((list? x) (fix-widget-names x))		    
+       (else        x)))
+    l))
+
+;; mopping up the demo window prior to loading the next lesson
+;; or applying the changes to the demo window.
+ 
+(define (clear-up-wtour-wdemo)
+  (let ([wtour-wdemo-child (winfo 'children .wtour-wdemo)])
+    (if (not (null? wtour-wdemo-child))
+	(if (list? wtour-wdemo-child)
+	    (map (lambda (w) 
+		   (destroy w))
+		 wtour-wdemo-child)
+	    (destroy wtour-wdemo-child)))))
+
+;; apply the changes to the demo window
+(define (apply-changes)
+  (clear-up-wtour-wdemo)
+  (let ([x (wtour-txt 'get "1.0" "end")])
+    (with-input-from-string
+	x
+      (lambda ()
+	(let loop ([y (read)])
+	  (if (not (eof-object? y))
+	      (let ([z (fix-widget-names y)])
+		(eval z)
+		(loop (read)))))))))
+	    
+
+(define-macro (add1! var)
+  `(set! ,var (+ 1 ,var)))
+
+(define-macro (incr! var val)
+  `(set! ,var (+ ,var ,val)))
+
+(define-macro (add-to-menu-assoc item)
+  `(set! wtour-menus (cons ,item wtour-menus)))
+
+
+(define-macro (add-to-menu-list item)
+  `(set! wtour-menu-bar (cons ,item wtour-menu-bar)))
+
+;; Define a new lesson
+
+(define (lesson mname name file)
+  (vector-set! wtour-lessons wtour-nlessons file)
+  (let ([mb (assoc mname wtour-menus)] 
+	[first (assoc mname wtour-menus)])
+    (if (not first)
+	(begin
+	  (set! mb (& (& wtour-mframe ".") wtour-nlessons))
+	  (menubutton mb :text mname :menu (& mb ".menu"))
+	  (pack mb :side "left")
+	  (add-to-menu-assoc (cons mname (menu (& mb ".menu"))))
+	  (add-to-menu-list mb)))
+    (if (not (equal? name ""))
+	(begin
+	  ((eval (cdr (assoc mname wtour-menus))) 'add 'command :label name
+					    :command `(set-lesson ,wtour-nlessons))
+	  (add1! wtour-nlessons))
+	  ((eval (cdr mb)) 'add "separator"))))
+
+
+;; set the current lesson
+(define (set-lesson num)
+  (set! wtour-curlesson num)
+  (do-open-file (& wtour-lessondir "/" (vector-ref wtour-lessons num))))
+
+(define (do-warning-dialog str)
+  (stk:make-dialog :window ".info" :title "Warning"
+		   :text str
+		   :bitmap ""
+		   :grab #t
+		   :defaults 0
+		   :buttons (list (list "Cancel" (lambda () #f)))))
+
+;; adjust the current lesson by some increment
+
+(define (adjust-lesson i)
+  (incr! wtour-curlesson i)
+  (if (>= wtour-curlesson wtour-nlessons)
+      (begin
+	(do-warning-dialog "That was the last lesson")
+	(set! wtour-curlesson (- wtour-nlessons 1)))
+      (if (< wtour-curlesson 0)
+	  (begin
+	    (do-warning-dialog "That was the first lesson")
+	    (set! wtour-curlesson 0))))
+  (set-lesson wtour-curlesson))
+
+
+;; clean up and exit
+
+(define (do-exit)
+  (exit))
+	  
+(set-font "-*-courier-medium-r-*-*-12-*-*-*-*-*-*-*")
+         
+(set! wtour-nlessons 0)
+(load (& wtour-lessondir "/index"))
+(set-lesson 0)
diff --git a/Contrib/STk-wtour/stk-wtour b/Contrib/STk-wtour/stk-wtour
new file mode 100755
index 0000000..2be13de
--- /dev/null
+++ b/Contrib/STk-wtour/stk-wtour
@@ -0,0 +1,14 @@
+#!/bin/sh
+#
+#  This is a start up script for the STk/Scheme widget tour.
+#
+#  Originally by: Andrew Payne payne@crl.dec.com
+#  Present one by: Suresh Srinivas ssriniva@cs.indiana.edu
+
+STK=/usr/local/bin/stk
+STK_LIBRARY=/usr/local/lib/stk
+
+export STK_LIBRARY
+export STK
+
+$STK -f ./lib/wtour.stk 
diff --git a/Contrib/Socket/socket.c b/Contrib/Socket/socket.c
new file mode 100644
index 0000000..46043f2
--- /dev/null
+++ b/Contrib/Socket/socket.c
@@ -0,0 +1,267 @@
+/*
+ * This file is a contribution of David Tolpin (dvd@pizza.msk.su)
+ * It is an implementation of BSD-INET sockets and is known to run on 
+ * Solaris 1 and Linux.
+ *
+ * (prepare-server-socket portnum) 
+ *  bound socket to a local address. Returns an object of type socket-handle
+ *
+ * (release-server-socket! handle) 
+ * close server socket (created by prepare-server-socket
+ * 
+ * (socket-handle? handle) 
+ * returns truth if the handle is of type socket-handle, false otherwise
+ * 
+ * (listen-socket! handle) 
+ * listen for connection requests 
+ * 
+ * (accept-connection handle) 
+ * returns a new socket in response to a detected connection request,
+ * the return value is a list of two ports, 
+ *      - (car sp) is opened for reading, 
+ *	- (cadr sp) - for writing
+ * 
+ * (open-client-socket hostname portnum) 
+ * connect to a socket on a remote machine, returns the same data structure
+ * as the function described above
+ *
+ * (shutdown-connection! skt)							
+ * shutdown socket, the mode of shutting down is determined according to
+ * the mode of the port (read or write)
+ */
+
+#include "stk.h"
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netdb.h>
+
+PRIMITIVE prepare_server_socket(SCM portnum);
+PRIMITIVE release_server_socket(SCM handle);
+PRIMITIVE socket_handlep(SCM handle);
+PRIMITIVE listen_socket(SCM handle);
+PRIMITIVE accept_connection(SCM handle);
+PRIMITIVE open_client_socket(SCM hostname, SCM portnum);
+PRIMITIVE shutdown_connection(SCM skt);
+
+/*
+: stk_socket.c,v 1.4 1994/06/26 19:14:55 dvd Exp dvd $
+*/
+
+/*
+: stk_socket.c,v $
+ * Revision 1.4  1994/06/26  19:14:55  dvd
+ * *** empty log message ***
+ *
+ * Revision 1.3  1994/06/26  18:55:27  dvd
+ * Verbose error reporting is added
+ *
+*/ 
+
+#ifdef __sun__
+extern char *sys_errlist[];
+#endif
+
+struct socket_handle {
+	int portnum;
+	char *hostname;
+	int handle;
+};
+
+static int tc_sockhandle;
+
+static void free_sockhandle(SCM handle);
+static void mark_sockhandle(SCM handle);
+static void displ_sockhandle(SCM x, FILE *f, int mode);
+
+static extended_scheme_type sockhandle_type = {
+	"sockhandle",		/* name */
+	0, 			/* is_procp */
+	mark_sockhandle, 	/* gc_mark_fct */
+	free_sockhandle,	/* gc_free_fct */
+	NULL,			/* apply_fct */
+	displ_sockhandle	/* display_fct */
+};
+
+
+#define SOCKHANDLE(x)   ((struct socket_handle*)(x->storage_as.extension.data))
+#define LSOCKHANDLE(x)  (x->storage_as.extension.data)
+#define SOCKHANDLEP(x)  (TYPEP(x,tc_sockhandle))
+#define NSOCKHANDLEP(x) (NTYPEP(x,tc_sockhandle))
+
+void mark_sockhandle(SCM handle)
+{
+}
+
+void free_sockhandle(SCM handle)
+{
+	struct socket_handle *sh;
+	sh = SOCKHANDLE(handle);
+	if(sh->hostname) free(sh->hostname);
+	close(sh->handle);
+	free(sh);
+	LSOCKHANDLE(handle) = NULL;
+}
+
+void displ_sockhandle(SCM handle, FILE *f, int mode)
+{
+	struct socket_handle *sh;
+	sh = SOCKHANDLE(handle);
+	sprintf(tkbuffer, "#[socket-handle %s %i]", sh->hostname, sh->portnum);
+	Puts(tkbuffer,f);
+}
+	
+
+static SCM makesp(int s, char *hn, int portnum)
+{
+	int t;
+	int hnlen;
+	FILE *fs, *ft;
+	SCM zs, zt;
+	long flag;
+	
+	flag = no_interrupt(1);
+
+	t = dup(s); /* duplicate handles so that we are able to access one socket channel */
+		    /* via two scheme ports */
+	if(!((fs = fdopen(s, "r")) && (ft = fdopen(s, "w"))))
+		err("internal(makesp): cannot create ports", NIL);
+	NEWCELL(zs, tc_iport); 
+	NEWCELL(zt, tc_oport);
+	zs->storage_as.port.f = fs; setbuf(fs, NULL);  /* unbuffered input/output */
+	zt->storage_as.port.f = ft; setbuf(ft, NULL);
+	zs->storage_as.port.name = (char*)must_malloc((hnlen = strlen(hn))+16);
+	sprintf(zs->storage_as.port.name, "%s:%i(r)", hn, portnum);
+	zt->storage_as.port.name = (char*)must_malloc((hnlen = strlen(hn))+16);
+	sprintf(zt->storage_as.port.name, "%s:%i(w)", hn, portnum);
+	
+	no_interrupt(flag);
+	return(cons(zs, cons(zt, NIL)));
+}	
+
+PRIMITIVE prepare_server_socket(SCM portnum)
+{
+	struct sockaddr_in sin;
+	int s;
+	long flag;
+	SCM ys;
+
+	if(NINTEGERP(portnum)) 
+		err("not a port number", portnum);
+	sin.sin_port = INTEGER(portnum);
+	sin.sin_addr.s_addr = INADDR_ANY;
+	if((s = socket(AF_INET, SOCK_STREAM, 0)) < 0)
+		err(sys_errlist[errno], portnum);
+	if(bind(s, (struct sockaddr*)&sin, sizeof sin) < 0)
+		switch(errno) {
+		case EADDRINUSE:
+		case EADDRNOTAVAIL: {
+			SCM errcode;
+			NEWCELL(errcode, tc_integer);
+			SET_INTEGER(errcode, errno);
+			return errcode;
+		}
+		break;
+		default: err(sys_errlist[errno], portnum); 
+		}
+	/* now we're ready to create the object */
+	NEWCELL(ys, tc_sockhandle);
+	LSOCKHANDLE(ys) = (struct socket_handle*)must_malloc(sizeof (struct socket_handle));
+	SOCKHANDLE(ys)->portnum = sin.sin_port;
+	SOCKHANDLE(ys)->hostname = (char*)must_malloc(strlen("localhost")+1);
+	strcpy(SOCKHANDLE(ys)->hostname, "localhost");
+	SOCKHANDLE(ys)->handle = s;
+
+	return ys;
+}
+
+
+PRIMITIVE release_server_socket(SCM handle)
+{
+	if(NSOCKHANDLEP(handle)) err("not a socket handle", handle);
+	close(SOCKHANDLE(handle)->handle);
+	return UNDEFINED;
+}
+
+PRIMITIVE socket_handlep(SCM handle)
+{
+	return SOCKHANDLEP(handle)? truth: ntruth;
+}
+
+PRIMITIVE listen_socket(SCM handle)
+{
+	if(NSOCKHANDLEP(handle)) 
+		err("not a socket handle", handle);	
+	if(listen(SOCKHANDLE(handle)->handle, 5) < 0) 
+		err(sys_errlist[errno], handle); 
+	return UNDEFINED;
+}
+
+PRIMITIVE accept_connection(SCM handle)
+{
+	int s;
+
+	if(NSOCKHANDLEP(handle))
+		err("not a socket handle", handle);	
+	if((s = accept(SOCKHANDLE(handle)->handle, NULL, NULL)) < 0)
+		err(sys_errlist[errno], handle); 
+	return makesp(s, SOCKHANDLE(handle)->hostname, SOCKHANDLE(handle)->portnum);
+}
+
+PRIMITIVE open_client_socket(SCM hostname, SCM portnum)
+{
+	char *hn;
+	struct hostent *hp;
+	struct sockaddr_in server;
+	int s;
+
+	if(NSTRINGP(hostname)) err("bad hostname", hostname);
+	if(NINTEGERP(portnum)) err("bad port number", portnum);
+	hp = gethostbyname(hn = CHARS(hostname));
+	if(!hp) err("unknown or misspelled host name", hostname);
+	bzero((char*)&server,sizeof server);
+	bcopy(hp->h_addr,(char*)&server.sin_addr, hp->h_length);
+	server.sin_family = hp->h_addrtype;
+	server.sin_port = INTEGER(portnum);
+	if((s = socket(AF_INET,SOCK_STREAM,0)) < 0) 
+		err(sys_errlist[errno], NIL);
+	if(connect(s, (struct sockaddr *)&server, sizeof server) < 0)
+		switch(errno) {
+		case EADDRINUSE:
+		case EADDRNOTAVAIL:
+		case ETIMEDOUT:
+		case ECONNREFUSED: {
+			SCM errcode;
+			NEWCELL(errcode, tc_integer);
+			SET_INTEGER(errcode, errno);
+			return errcode;
+		}
+		break;
+		default: err(sys_errlist[errno], NIL);
+		}
+	return makesp(s, hn, server.sin_port);
+}
+
+PRIMITIVE shutdown_connection(SCM skt)
+{
+	if(NIPORTP(skt) && NOPORTP(skt)) 
+		err("not a port", skt);
+	if(shutdown(fileno(skt->storage_as.port.f), IPORTP(skt)?0:1) < 0) 
+		err(sys_errlist[errno], NIL);
+	return UNDEFINED;
+}
+
+void init_socket(void)
+{
+	tc_sockhandle = add_new_type(&sockhandle_type);
+
+	add_new_primitive("prepare-server-socket", tc_subr_1,		prepare_server_socket);
+	add_new_primitive("release-server-socket!", tc_subr_1,		release_server_socket);
+	add_new_primitive("socket-handle?",	   tc_subr_1,		socket_handlep);
+	add_new_primitive("listen-socket!",        tc_subr_1,		listen_socket);
+	add_new_primitive("accept-connection",     tc_subr_1,		accept_connection);
+	add_new_primitive("open-client-socket",    tc_subr_2,		open_client_socket);
+	add_new_primitive("shutdown-connection!",  tc_subr_1,		shutdown_connection);
+};
+
diff --git a/Contrib/Stetris/stetris.stk b/Contrib/Stetris/stetris.stk
new file mode 100755
index 0000000..b5965da
--- /dev/null
+++ b/Contrib/Stetris/stetris.stk
@@ -0,0 +1,1112 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; STetris Version 1.1
+;;;;     By Harvey J. Stein      hjstein@math.huji.ac.il
+;;;;     Copyright (C) 1994 Harvey J. Stein, Tel Aviv, ISRAEL
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose is hereby granted, provided that
+;;;; both the above copyright notice and this permission notice appear
+;;;; in all copies and derived works, and that copies and/or derived
+;;;; works are used, copied and/or distributed without fees.  Fees for
+;;;; distribution or use of this software or derived works may only be
+;;;; charged with express written permission of the copyright holder.
+;;;; This software is provided ``as is'' without express or implied
+;;;; warranty.
+
+;;; This is an implementation of a falling block game.  Just run it.
+;;;
+;;; The controls are as follows, but are easily modified (see below):
+;;;    Move to left : j   or   left arrow
+;;;    Move to right: l   or   right arrow
+;;;    Rotate right : k   or   down arrow 
+;;;    Rotate left  : i   or   up arrow
+;;;    Drop quick   : space
+;;;    New game     : n
+;;;    Pause        : p
+;;;    Continue     : c
+;;;    Scramble     : s - Scrambles the blocks so that rotate left &
+;;;                       rotate right actually transform the shape
+;;;                       instead of rotating it.  Only available
+;;;                       between games.
+;;;    Unscramble   : u - Go back to original configuration
+;;;    Help         : h
+;;;    Quit         : q
+;;;    End game     : e
+;;;    Bump up level: b
+;;;
+;;; ------------- Installation -------------------------------
+;;; Should just work fine as is.  If you have xboing, and you have a
+;;; /dev/audio device, this game can produce sounds.  To get the
+;;; sounds, edit the definition of sounddir (first definition of the
+;;; global variables section below).  Make sure it refers to the
+;;; directory with your xboing sounds.
+
+;;; To do:
+;;;   -Maintain high score file.  Question: How can I protect it?
+;;;    (Typically one will make a high score file write only to group
+;;;    games & make the game suid games.  But, this can't be done in
+;;;    general for shellscripts).
+;;;   -Man page.
+;;;   -Next piece preview.
+;;;   -More sounds.
+;;;   -Better way to play sounds than catting to /dev/audio.
+;;;   -Make up sounds for game instead of just "borrowing" sounds from
+;;;    xboing.
+;;;   -Code cleanup - Parameterize the pieces better.  Right now I
+;;;    have the number 7 (for the number of pieces) hard wired into
+;;;    the code, and the colors of each piece are just stuffed into a
+;;;    fcn.  It would be nice to have a global variable (n) for the # of
+;;;    blocks to use in the pieces & then to generate all the pieces
+;;;    containing n squares.
+;;;   -Find better way of playing sounds than catting to /dev/audio
+;;;   -Standardize comment style.
+;;;   -Write STk program which uses send to play stetris.
+;;;   -Need to change name of window before I can write a stetris
+;;;    player that uses send...
+;;;   -Fix bug where game sometimes ends with last piece overlapping
+;;;    another piece.
+
+;;; Changes from v1.0 to v1.1:
+;;;   -Got rid of some of the 7s.
+;;;   -Added scrambling & help.
+;;;   -Didn't fix bug where game sometimes ends with last piece
+;;;    overlapping another piece, but made it more rare.
+;;;   -Now starts of pieces off screen so that they all appear
+;;;    initially as one row.
+;;;   -Added buttons for new game, pause, unpause, help, etc.
+;;;   -Blank screen during pauses.
+;;;   -No need for stetris shellscript (thanks to Erick).
+;;;   -Added <b> to increase level by 1.
+;;;   -Reduced min-fall-delay from 80 to 60 because it seems to be
+;;;    long enough (at least on my 486dx33).  Make it bigger if your
+;;;    top level is jerky.
+
+;;; Helpful for debugging (so that stetris.stk can be reloaded into
+;;; the interpreter):
+(for-each destroy (winfo 'children *root*))
+
+;;; To avoid inopportune garbage collections:
+(cond ((not (symbol-bound? 'heap-expanded)) ; Don't expand after addn'l loads.
+       (expand-heap 75000)
+       (define heap-expanded #t)))
+
+;;; ------------------- Include files ------------------------
+
+(require "Tk-classes")
+(require "unix")
+(require "dialog")
+
+
+;;; ----------- Global variables ---------------------------
+
+;; Sound directory (set for your system, or set to a nonexistent directory to
+;; disable sound):
+(define sounddir "/usr/games/lib/xboing/sounds")
+
+;;; Sounds (modifiable):
+;;; Expects to find (string-append soundir "/" "game_over.au"), for example.
+;;; Sound is played by catting it to /dev/audio
+(define soundmap
+  '((game-over       "game_over.au")
+    (near-end        "looksbad.au")
+    (goto-next-level "warp.au")
+    (piece-landed    "metal.au")
+    (piece-moved     "click.au")
+    (three-in-row    "applause.au")
+    (four-in-row     "youagod.au")))
+
+;; Keyboard mappings & corresponding actions (modifiable).
+;; Now found at end...
+
+;; block size & playing field size parameters (modifyable).
+(define block-width 20)			; Width of a block.
+(define block-height 20)		; Height of a block.
+(define block-border-width 2)		; Width of block borders.
+(define play-cols 9)			; cols # 0-9  = 10 cols.
+(define play-rows 29)			; rows # 0-28 = 29 rows.
+
+;; Window shape & size parameters (modifyable).
+(define frame-border-width 3)		; Width of frame border for
+					; playing field & score box.
+(define score-frame-width 150)		; Width of score box (don't
+					; make too small!).
+
+;; Game parameters (modifiable).
+(define start-fall-delay 750)		; initially, game drops stetris piece
+					; one notch every start-fall-delay
+					; milliseconds. 
+(define level-time (* 40 start-fall-delay)) ; Length of time (in milliseconds)
+					    ; that each level lasts.
+(define min-fall-delay 60)		; Min amt of time allowable btw piece
+					; drops. 
+(define delta-reducer .80)		; Each time level goes up, multiply
+					; fall-delay by this to get new fall
+					; delay.
+(define bump-bonus 300)			; When you bump up the level
+					; manually, you get bump-bonus
+					; pts * the % of time left
+					; until the next level.
+
+;;; -------------- Less modifiable parameters --------------------
+;; Game parameters (don't touch).
+(define winx (* block-width (1+ play-cols))) ; size of playing field
+(define winy (* block-width (1+ play-rows)))
+(define start-delta-count 0)		; # of steps at game start.
+(define delta-count start-delta-count)	; Lapsed time (in steps) of current
+					; level.
+(define level-number 1)			; Current level number.
+(define fall-delay start-fall-delay)	; Current amt of time btw drops (in ms)
+(define move-count 1)			; # drops since beginning of game.
+(define old-count 1)			; # drops since last piece hit bottom.
+(define quit-now #t)			; False causes game to stop.
+(define current-piece ())		; Piece that is currently falling.
+(define score 0)			; Score.
+(define game-over "")			; String to display when game ends.
+(define paused-game #f)
+
+(define (ms-left)
+  (- level-time (* fall-delay  delta-count)))
+
+(define (time-left)
+  (inexact->exact
+   (/ (ms-left) 1000)))
+
+(define time-to-speedup (time-left))	; Time left to current level.
+(define current-block-colors ())	; Used to store block colors
+					; when screen is blanked.
+
+;;; ------------ Start real work ----------------------------
+;;; Check sound validity - First check that sounddir exists & that
+;;; /dev/audio exists.
+(cond ((or
+	(not (file-is-directory? sounddir)) ;;; If sounddir doesn't exist.
+	(not (file-is-writable? "/dev/audio"))) ;; If /dev/audio doesn't exist.
+       (set! soundmap ())))
+
+;;; Now, check that all sounds are readable.  Delete the ones that
+;;; aren't.
+(set! soundmap
+      (let delete-nonexistent ((l soundmap))
+	   (cond ((null? l) ())
+		 ((file-is-readable? (string-append sounddir "/" (cadar l)))
+		  (cons (car l) (delete-nonexistent (cdr l))))
+		 (else (delete-nonexistent (cdr l))))))
+
+(define (reset-vars)
+;;; Clears game variables for start of new game.
+  (set! delta-count start-delta-count)
+  (set! level-number 1)
+  (set! fall-delay start-fall-delay)
+  (set! old-count 1)
+  (set! move-count 1)
+  (set! quit-now #f)
+  (set! score 0)
+  (set! game-over ""))
+ 
+;;; ------------------ Window size setup --------------------------
+(wm 'title *root* "STetris")
+(wm 'minsize *root* 
+    (+ winx score-frame-width)
+    (+ winy (* 2 frame-border-width)))
+(wm 'maxsize *root* 
+    (+ winx score-frame-width)
+    (+ winy (* 2 frame-border-width)))
+
+(wm 'geometry *root* (format #f "~Ax~A"
+			     (+ winx score-frame-width)
+			     (+ winy  (* 2 frame-border-width))))
+
+;;; -------------------- Widget Creation ---------------------------
+
+;;; Playing canvas
+'(define canvas-frame
+  (make <Frame>
+	:relief 'ridge
+	:highlight-thickness -2
+	:border-width frame-border-width))
+'(pack canvas-frame :side 'left)
+
+(define stetris-canvas
+  (make <Canvas>
+	:height winy
+	:border-width 0
+	:relief 'ridge
+	:highlight-thickness 0
+	:width  winx))
+(pack stetris-canvas :side 'left :fill 'both :expand #f)
+
+;;; Statistics frame
+(define score-frame
+  (make <Frame>
+	:relief 'ridge
+	:border-width frame-border-width))
+(pack score-frame :fill 'both :expand #t :side 'left)
+
+(define filler-1 (make <frame> :parent score-frame))
+(define score-title-label 
+  (make <label>
+	:parent score-frame
+	:text "Score"))
+
+(define score-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'score))
+
+(define delay-title-label 
+  (make <label>
+	:parent score-frame
+	:text "Delay"))
+
+(define delay-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'fall-delay))
+
+(define count-title-label 
+  (make <label>
+	:parent score-frame
+	:text "Moves"))
+
+(define count-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'move-count))
+
+(define level-title-label
+  (make <label>
+	:parent score-frame
+	:text "Level"))
+
+(define level-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'level-number))
+
+(define time-to-speedup-title-label 
+  (make <label>
+	:parent score-frame
+	:text "Time to speedup"))
+
+(define time-to-speedup-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'time-to-speedup))
+
+(define game-over-label
+  (make <label>
+	:parent score-frame
+	:text-variable 'game-over))
+
+(define pause-button
+  (make <button>
+	:parent score-frame
+	:text "Pause"
+	:command '(do-pause)))
+
+(define continue-button
+  (make <button>
+	:parent score-frame
+	:text "Continue"
+	:command '(do-continue-game)))
+  
+(define newgame-button
+  (make <button>
+	:parent score-frame
+	:text "New Game"
+	:command '(do-new-game)))
+
+(define endgame-button
+  (make <button>
+	:parent score-frame
+	:text "End Game"
+	:command '(do-end-game)))
+  
+(define help-button
+  (make <button>
+	:parent score-frame
+	:text "Help"
+	:command '(do-help)))
+
+(define quit-button
+  (make <button>
+	:parent score-frame
+	:text "Quit"
+	:command '(do-exit)))
+
+
+(define filler-2 (make <frame> :parent score-frame))
+(define filler-3 (make <frame> :parent score-frame))
+
+(pack filler-1 :expand #t :fill 'both)
+(pack score-title-label score-label
+      delay-title-label delay-label
+      count-title-label count-label
+      level-title-label level-label
+      time-to-speedup-title-label time-to-speedup-label
+      game-over-label)
+
+(pack filler-3 :expand #t :fill 'both)
+(pack pause-button continue-button newgame-button 
+      endgame-button help-button quit-button
+      :fill 'x)
+
+;;;(pack filler-2 :expand #t :fill 'both)
+
+;;; -------------- Convert from block coords to screen coords -----------
+(define (block-pos-coords x y)
+  (list (+ (* x block-width) (/ block-border-width 2))
+	(+ (* y block-height)  (/ block-border-width 2))
+	(- (* (1+ x) block-width) (/ block-border-width 2))
+	(- (* (1+ y) block-height) (/ block-border-width 2))))
+
+;;; --------- Methods for treating rectangles like stetris blocks --------
+(define-method fall ((r <Rectangle>))
+  (slot-set! r 'coords 
+	     (map + (coords r) (list 0 block-height 0 block-height))))
+
+(define-method left ((r <Rectangle>))
+  (slot-set! r 'coords
+	     (map + (coords r) (list (- block-width) 0 (- block-width) 0))))
+
+(define-method right ((r <Rectangle>))
+  (slot-set! r 'coords
+	     (map + (coords r) (list block-width 0 block-width 0))))
+
+(define-method up ((r <Rectangle>))
+  (slot-set! r 'coords
+	     (map + (coords r) (list 0 (- block-height) 0 (- block-height)))))
+
+;;; ------------------- Class stetris-block ----------------------
+;;; Instances of this class are basically just rectangles that keep
+;;; track of their position in block coordinates instead of screen
+;;; coordinates.  There are probably better ways to do this  (such as
+;;; making the coordinates virtual slots).  On the other hand, if they
+;;; were virtual slots, they would have to scale the coordinates,
+;;; which might make things slower.
+;;;
+;;; Also includes methods for checking that a location is legal
+;;; (i.e. - that it isn't already occupied by another block).
+;;; Actually, we call a spot legal if it's on the screen & isn't
+;;; occupied by another block with the same tag.  Each tetris piece
+;;; gets a unique tag which is shared by the blocks which compose it. 
+;;;
+;;; One good improvement would probably be to remove the testing
+;;; against the top of the screen, since blocks should be able to fall
+;;; from above the screen.
+
+(define-class <stetris-block> (<Rectangle>)
+  ((x :init-keyword :x :accessor x-of :initform 3)
+   (y :init-keyword :y :accessor y-of :initform 0)
+   (true-color)
+   (parent :init-keyword :parent :accessor parent-of)))
+
+(define-method initialize ((self <stetris-block>) initargs)
+  (next-method)
+  (slot-set! self 'true-color (slot-ref self 'fill))
+  (slot-set! self 'width block-border-width)
+  (slot-set! self 'coords
+	     (block-pos-coords (x-of self) (y-of self))))
+
+(define-method hide ((self <stetris-block>))
+  (slot-set! self 'fill 'black))
+
+(define-method show ((self <stetris-block>))
+  (slot-set! self 'fill (slot-ref self 'true-color)))
+
+(define-method fall ((self <stetris-block>))
+  (set! (y-of self) (1+ (y-of self)))
+  (next-method))
+
+(define-method up ((self <stetris-block>))
+  (set! (y-of self) (1- (y-of self)))
+  (next-method))
+
+(define-method right ((self <stetris-block>))
+  (set! (x-of self) (1+ (x-of self)))
+  (next-method))
+
+(define-method left ((self <stetris-block>))
+  (set! (x-of self) (1- (x-of self)))
+  (next-method))
+
+(define-method can-fall? ((self <stetris-block>))
+  (ok-spot (x-of self) (1+ (y-of self)) (tags self)))
+
+(define-method can-up? ((self <stetris-block>))
+  (ok-spot (x-of self) (1- (y-of self)) (tags self)))
+
+(define-method can-left? ((self <stetris-block>))
+  (ok-spot (1- (x-of self)) (y-of self) (tags self)))
+
+(define-method can-right? ((self <stetris-block>))
+  (ok-spot (1+ (x-of self)) (y-of self) (tags self)))
+
+(define (ok-spot x y tag)
+  (and (eval 
+	(cons 'and  (map (lambda (x) (string=? tag (car (tags x))))
+			 (apply
+			  find-items
+			  `(,stetris-canvas overlapping
+			       ,@(block-pos-coords x y))))))
+       (onscreen x y)))
+
+(define (onscreen x y)
+  (and (>= x 0)
+       (<= x play-cols)
+;;;       (>= y 0)      ;;; Taken out To allow pieces to drop in from
+                        ;;; above the canvas. 
+       (<= y play-rows)))
+
+;;; -------------- Class stetris-piece ------------------------
+;;; A collection of stetris-blocks.
+;;; Class slot descriptions:
+;;;   parent - Canvas containing stetris-piece
+;;;   blocks - List of blocks composing stetris piece.
+;;;   shape  - Integer indicating shape of piece.  Meaning is defined
+;;;            by shape-list-slow function.  0 = line, 1 = square, etc.
+;;;   tag    - tag for this piece & all the blocks composing it.  It's a
+;;;            unique identifier for this piece.
+;;;   rotation - Better name would be rotation.
+;;;   x        - x coord of piece in game coordinates.
+;;;   y        - y coord of piece in game coordinates.
+;;;
+;;;   Basically, a stetris-piece is a collection of blocks.  A
+;;;   stetris-piece has a location, a shape & a rotation.  The
+;;;   locations of the blocks are defined by the shape-list function.
+;;;   (shape-list shape rotation) function returns a list of
+;;;   coordinates.  The coordinates of the blocks composing a
+;;;   stetris-piece are computed by adding the location of the stetris
+;;;   piece to each of the coordinates returned by shape-list.
+;;;   When the user rotates the stetris piece, the rotation slot is
+;;;   incremented (or decremented).
+;;;
+;;;   For (possibly ineffective) speed reasons, we store the
+;;;   shapes in a vector & use a macro to access them.
+;;;
+
+(define-class <stetris-piece> ()
+  ((parent :accessor parent-of :init-keyword :parent)
+   (blocks :accessor blocks-of)
+   (shape :accessor shape-of :init-keyword :shape :initform 0)
+   (tag   :accessor tag-of :init-keyword :tag :initform "")
+   (rotation :accessor rotation-of :initform 0 :init-keyword :rotation)
+   (x :accessor x-of :initform 0 :init-keyword :x)
+   (y :accessor y-of :initform 0 :init-keyword :y)))
+
+(define-method initialize ((self <stetris-piece>) initargs)
+  (next-method)
+  (set! (blocks-of self)
+	(make-blocks (shape-of self)
+		     (rotation-of self)
+		     (x-of self)
+		     (y-of self)
+		     (parent-of self)))
+  (for-each (lambda (x) (set! (tags x) (tag-of self))) (blocks-of self)))
+
+(define (make-blocks shape rotation x y parent)
+  (define (quick-make p)
+    (make <stetris-block>
+	  :x (+ (car p) x) :y (+ (cadr p) y)
+	  :coords '(0 0 0 0)
+	  :fill (colors-of shape)
+	  :parent parent))
+  (map quick-make (shape-list shape rotation)))
+
+;;; Function which returns, for a given shape & rotation, a list of
+;;; the positions that the blocks must be in relative to the
+;;; stetris-piece.
+
+(define (shape-list-slow shape rotation)
+  (case shape
+	(0 (case rotation ;; line
+		 (0 '( (3 1) (4 1) (5 1) (6 1)))
+		 (1 '( (4 0) (4 1) (4 2) (4 3)))))
+	(1 (case rotation ;; square
+		 (0 '( (3 1) (4 1) (3 2) (4 2)))))
+	(2 (case rotation ;; left zig
+		 (0 '( (3 1) (4 1) (4 2) (5 2)))
+		 (1 '( (4 0) (4 1) (3 1) (3 2)))))
+	(3 (case rotation ;; right zig
+		 (0 '( (3 2) (4 2) (4 1) (5 1)))
+		 (1 '( (4 1) (4 2) (5 2) (5 3)))))
+	(4 (case rotation ;; T
+		 (0 '( (3 1) (4 1) (5 1) (4 0)))
+		 (1 '( (4 0) (4 1) (4 2) (5 1)))
+		 (2 '( (3 1) (4 1) (5 1) (4 2)))
+		 (3 '( (4 0) (4 1) (4 2) (3 1)))))
+	(5 (case rotation ;; right L
+		 (0 '( (3 1) (3 2) (3 3) (4 3)))
+		 (1 '( (3 1) (4 1) (5 1) (3 2)))
+		 (2 '( (4 1) (5 1) (5 2) (5 3)))
+		 (3 '( (3 3) (4 3) (5 3) (5 2)))))
+	(6 (case rotation ;; left L
+		 (0 '( (5 0) (5 1) (5 2) (4 2)))
+		 (1 '( (3 2) (4 2) (5 2) (3 1)))
+		 (2 '( (3 0) (3 1) (3 2) (4 0)))
+		 (3 '( (3 0) (4 0) (5 0) (5 1)))))))
+		 
+;;; given a shape, returns the number of rotations that that shape can
+;;; go through.
+(define (num-rotations-slow shape)
+  (case shape
+	(0 2)
+	(1 1)
+	(2 2)
+	(3 2)
+	(4 4)
+	(5 4)
+	(6 4)))
+
+;;; We initialize a vector to contain the number of rotations of each
+;;; shape & use a macro to access it.  I was hoping for speed
+;;; benefits, but I don't know if it really helps.
+(define num-rotations-vect (make-vector 7))
+
+(dotimes (shape (vector-length num-rotations-vect))
+	 (vector-set! num-rotations-vect shape
+		      (num-rotations-slow shape)))
+
+(define-macro (num-rotations shape)
+  `(vector-ref num-rotations-vect ,shape))
+
+;;; The same applies here for the shape-list.  We store the shapes in
+;;; a vector of vectors, and use a macro for access, hoping that this
+;;; will speed access.
+(define shape-list-vect (make-vector 7))
+
+(dotimes (shape (vector-length shape-list-vect))
+	 (vector-set! shape-list-vect shape 
+		      (make-vector (num-rotations shape))))
+
+(define-macro (shape-list shape rotation)
+  `(vector-ref
+    (vector-ref shape-list-vect ,shape)
+    ,rotation))
+
+(define (set-standard-shape-vect!)
+  (dotimes (shape (vector-length shape-list-vect))
+	   (dotimes (pos (num-rotations shape))
+		    (vector-set! (vector-ref shape-list-vect shape)
+				 pos
+				 (shape-list-slow shape pos)))))
+
+(define (delete-list-el l i)
+;;; Removes element i from list l
+  (cond ((<= i 0) (cdr l))
+	(else (cons (car l) (delete-list-el (cdr l) (- i 1))))))
+
+(define (scramble)
+;;; Scrambles the blocks so that rotate left & rotate right actually
+;;; transform the shape instead of rotating it.  Call this function
+;;; before playing to play a variant of stetris.
+  (let ((l ()))
+    (dotimes (shape (vector-length shape-list-vect))
+	     (dotimes (pos (num-rotations shape))
+		      (set! l
+			    (cons 
+			     (vector-ref (vector-ref shape-list-vect shape)
+					 pos)
+			     l))))
+    (dotimes (shape (vector-length shape-list-vect))
+	     (dotimes (pos (num-rotations shape))
+		      (let ((i (random (length l))))
+			(vector-set! (vector-ref shape-list-vect shape)
+				     pos
+				     (list-ref l i))
+			(set! l (delete-list-el l i)))))))
+		      
+  
+
+;;; Specifies the color that each shape has.
+(define (colors-of shape)
+  (case shape
+	(0 "red")
+	(1 "green")
+	(2 "blue")
+	(3 "yellow")
+	(4 "purple")
+	(5 "orange")
+	(6 "cyan")))
+
+
+(define-method quick-change ((self <stetris-piece>))
+;;; Repositions the blocks of a stetris piece according to it's shape &
+;;; rotation.  Basically just does this by force - setting each blocks
+;;; position according to shape-list.
+  (let ((x (x-of self))
+	(y (y-of self)))
+    (for-each
+     (lambda (b p)
+       (slot-set! b 'x (+ x (car p)))
+       (slot-set! b 'y (+ y (cadr p)))
+       (slot-set! b 'coords (block-pos-coords
+			     (+ x (car p)) (+ y (cadr p)))))
+     (blocks-of self)
+     (shape-list (shape-of self) (rotation-of self)))))
+
+
+(define (ok-spots p x y tag)
+;;; p is a list of coordinate offsets from point (x y).  This routine
+;;; returns true iff each coordinate in p + (x y) is a good
+;;; postion for the block with the specified tag.  Basically, just
+;;; makes sure that each block would be on the screen & not on top of
+;;; any other blocks.  The tag is needed so that we ignore the pieces
+;;; blocks themselves when checking that locations are unoccupied.
+  (cond ((null? p) #t)
+	(else
+	 (and (ok-spot (+ x (caar p)) (+ y (cadar p)) tag)
+	      (ok-spots (cdr p) x y tag)))))
+
+(define (ok-spots-by-type shape rotation x y tag)
+;;; Same as ok-spots, except takes a shape & a rotation instead of a
+;;; list of coordinate offsets.  A convenient wrapper for ok-spots.
+  (ok-spots (shape-list (shape-of self) (rotation-of self))
+	    x y tag))
+  
+(define-method ok-new-spot ((self <stetris-piece>))
+;;; Same as ok-spots, except gets all its arguments from a
+;;; stetris-piece.  Another convenient wrapper for ok-spots.
+  (ok-spots (shape-list (shape-of self) (rotation-of self))
+	    (x-of self) (y-of self) (tag-of self)))
+
+(define-method incr-rotation ((self <stetris-piece>) incr)
+;;; Sets block to next rotation.
+  (slot-set! self 'rotation (modulo (+ (rotation-of self) incr)
+				    (num-rotations (shape-of self))))
+  (if (ok-new-spot self)
+      (quick-change self)
+    (slot-set! self 'rotation (modulo (- (rotation-of self) incr)
+				      (num-rotations (shape-of self))))))
+
+(define-method fall ((t <stetris-piece>))
+;;; Drops piece t one row (if possible).  Returns true iff the piece
+;;; was able to move down.
+  (cond ((can-fall? t)
+	 (slot-set! t 'y (1+ (y-of t)))	   
+	 (for-each fall (blocks-of t))
+	 #t)
+	(else
+	 #f)))
+
+(define-method can-fall? ((t <stetris-piece>))
+;;; Returns true iff t can move down one row.
+  (ok-spots (shape-list (shape-of t) (rotation-of t))
+	    (x-of t) (1+ (y-of t)) (tag-of t)))
+    
+(define-method up ((t <stetris-piece>))
+;;; Moves t up one row (if possible).  Returns true iff t was able to
+;;; move up.
+  (cond ((can-up? t)
+	 (slot-set! t 'y (1- (y-of t)))	   
+	 (for-each up (blocks-of t))
+	 #t)
+	(else
+	 #f)))
+
+(define-method can-up? ((t <stetris-piece>))
+;;; Returns true iff t can move up one row.
+  (ok-spots (shape-list (shape-of t) (rotation-of t))
+	    (x-of t) (1- (y-of t)) (tag-of t)))
+
+(define-method left ((t <stetris-piece>))
+;;; Moves t left one column (if possible).  Returns true iff t was
+;;; able to move left.
+  (cond ((can-left? t)
+	 (slot-set! t 'x (1- (x-of t)))	   
+	 (for-each left (blocks-of t))
+	 #t)
+	(else
+	 #f)))
+
+(define-method can-left? ((t <stetris-piece>))
+;;; Returns true iff t can move left one column.
+  (ok-spots (shape-list (shape-of t) (rotation-of t))
+	    (1- (x-of t)) (y-of t) (tag-of t)))
+
+(define-method right ((t <stetris-piece>))
+;;; Moves t right one column (if possible).  Returns true iff t was
+;;; able to move right.
+  (cond ((can-right? t)
+	 (slot-set! t 'x (1+ (x-of t)))	   
+	 (for-each right (blocks-of t))
+	 #t)
+	(else
+	 #f)))
+
+(define-method can-right? ((t <stetris-piece>))
+;;; Returns true iff t can move right one column.
+  (ok-spots (shape-list (shape-of t) (rotation-of t))
+	    (1+ (x-of t)) (y-of t) (tag-of t)))
+
+(define (new-game)
+;;; Starts new game by clearing the screen, resetting global counts,
+;;; etc.  We bind the piece moving actions here (and unbind them when
+;;; the game stops) so that the user can only move pieces during game
+;;; play.
+  (set! quit-now #t)
+  (after (* 2 fall-delay)
+	 '(begin
+	   (reset-vars)
+	   (for-each destroy (find-items stetris-canvas 'all))
+	   (set! current-piece (make-new-stetris-piece))
+	   (bind-action-list game-play-bindings)
+	   (update-screen))))
+
+(define (continue-game)
+;;; Continues game after a pause.
+  (bind-action-list game-play-bindings)
+  (cond (quit-now
+	 (set! quit-now #f)
+	 (update-screen))))
+
+(define (play-sound soundfile)
+;;; Plays specified sound (very crude for now - just cats it to /dev/audio).
+  (! (format #f "cat ~A >/dev/audio&" soundfile)))
+
+(define (game-sound sound)
+;;; Plays specified game sound (specified by a symbol in the soundmap
+;;; assoc list).
+  (let ((soundfilepair (assq sound soundmap)))
+    (if soundfilepair
+	(play-sound (string-append sounddir "/" (cadr soundfilepair))))))
+
+(define (fini)
+;;; Called when the game is over.
+  (cancel-movement-bindings)
+  (set! game-over "game over")
+  (set! quit-now #t)
+  (game-sound 'game-over))
+
+(define maybe-play-looks-bad
+;;; Play the looks bad sound only when a piece stops within 8 rows
+;;; from the top, and don't play it again until after the top 20 rows
+;;; have been cleared.
+  (let ((play #t))
+    (lambda ()
+      (cond ((and play 
+		  (< (y-of current-piece) 8))
+	     (game-sound 'near-end)
+	     (set! play #f))
+	    ((> (y-of current-piece) 20)
+	     (set! play #t))))))
+
+(define (update-score-value delay count)
+  (set! score 
+	(+ score
+	   (inexact->exact 
+	    (max
+	     (/ 30000 (* delay count)
+	     1))))))
+
+(define (update-delay)
+  (set! delta-count (1+ delta-count))
+  (set! time-to-speedup (time-left))
+  (cond ((> (* fall-delay  delta-count) level-time)
+	 (increase-level))))
+
+(define (increase-level)
+  (let ((new-fall-delay
+	 (max (inexact->exact (* delta-reducer fall-delay))
+	      min-fall-delay)))
+    (cond ((< new-fall-delay fall-delay)
+	   (set! fall-delay new-fall-delay)
+	   (set! delta-count 0)
+	   (set! level-number (1+ level-number))
+	   (set! time-to-speedup (time-left))
+	   (game-sound 'goto-next-level)
+	   #t)
+	  (else #f))))
+
+(define (update-screen)
+;;; This is the game play function.  It makes sure that the pieces
+;;; fall one row every fall-delay milliseconds, updates the screen,
+;;; etc.
+  (cond ((not quit-now)
+	 (after fall-delay '(update-screen))
+	 (cond ((not (fall current-piece))
+;;;		(game-sound 'piece-landed)
+		(maybe-play-looks-bad)
+		(update "idletasks")
+		(clear-filled-rows)
+		(set! current-piece 
+		      (make-new-stetris-piece))
+		(update-score-value fall-delay 
+				    (- move-count old-count))
+		(set! old-count move-count)
+		(cond ((not (can-fall? current-piece))
+		       (fini)))))
+;;;	 (game-sound 'piece-moved)
+	 (set! move-count (1+ move-count))
+	 (update-delay))))
+
+
+(define make-new-stetris-piece
+;;; Called every time a new piece is needed.
+  (let ((count 0)
+	(shape 0))
+    (lambda ()
+      (set! shape (random (vector-length shape-list-vect)))
+      (set! count (1+ count))
+      (make <stetris-piece> 
+	    :parent stetris-canvas
+	    :coords '(0 0 0 0)
+	    :x (center-position shape) :y -2
+	    :shape shape
+	    :tag (number->string count)))))
+
+(define (center-position shape)
+;;; Proper x coord to use to get shape to appear in center of screen.
+;;; I could recompute the piece offsets so that all pieces appear
+;;; centered for the same stetris-piece coordinate, but that's too
+;;; much work...
+  (case shape
+	(0 0)
+	(1 1)
+	(2 0)
+	(3 0)
+	(4 0)
+	(5 1)
+	(6 0)))
+
+;;;;;; ----------------- Game Control Functions -----------------------
+
+;;; Functions for keyboard control of pieces
+
+(define (do-left)
+  (left current-piece)
+  (update "idletasks"))
+
+(define (do-right)
+  (right current-piece)
+  (update "idletasks"))
+
+(define (do-fall)
+  (while (fall current-piece)
+    (update "idletasks")))
+
+(define (do-rotate-right)
+  (incr-rotation current-piece 1)
+  (update "idletasks"))
+
+(define (do-rotate-left)
+  (incr-rotation current-piece -1)
+  (update "idletasks"))
+
+;;; Game control functions.
+
+(define (do-exit)
+  (destroy *root*))
+
+(define (do-new-game)
+  (new-game))
+
+(define (do-end-game)
+  (fini))
+
+(define canvas-background-color (slot-ref stetris-canvas 'background))
+
+(define (hide-game)
+  (for-each hide (find-items stetris-canvas 'all))
+  (slot-set! stetris-canvas 'background 'black))
+
+(define (show-game)
+  (for-each show (find-items stetris-canvas 'all))
+  (slot-set! stetris-canvas 'background canvas-background-color))
+
+(define (do-pause)
+  (cond ((not quit-now)
+	 (set! paused-game #t)
+	 (cancel-movement-bindings)
+	 (hide-game)
+	 (set! quit-now #t))))
+
+(define (do-continue-game)
+  (cond (paused-game
+	 (bind-action-list game-play-bindings)
+	 (show-game)
+	 (set! paused-game #f)
+	 (continue-game))))
+
+;;; Between game functions
+(define (do-help)
+  (stk::make-dialog :title "stetris help"
+		    :text (help-text)
+		    :buttons `( ("Ok" ,(lambda () ())))))
+
+(define (do-scramble)
+  (cond (quit-now
+	 (scramble))))
+
+(define (do-unscramble)
+  (cond (quit-now
+	 (set-standard-shape-vect!))))
+
+
+(define (do-increase-level)
+  (let ((tl (max 0 (ms-left))))
+    (cond ((increase-level)
+	   (set! score (+ score (inexact->exact 
+				 (* bump-bonus 
+				    (/ tl level-time)))))))))
+					       
+
+;;; ---------- Functions for binding actions to keys -----------------
+(define (bind-action-list l)
+  (for-each (lambda (x)
+	 (bind 'all (car x) (cadr x)))
+       l))
+
+(define (cancel-bindings l)
+  (bind-action-list (map (lambda (x) (list (car x) ()))
+			 l)))
+  
+(define (cancel-movement-bindings)
+  (cancel-bindings game-play-bindings))
+
+;;; ----- Dead block maintenance routines.
+
+(define (clear-filled-rows)
+;;; Hairy function which clears all filled rows.  It explicitly
+;;; garbage collects before & after doing all work since this is the
+;;; only decent time for such.  When run with 75000 cells then there
+;;; is no need for gc's (and thus no pauses) when blocks are falling.
+  (define (row-of block) (caar block))
+  (define (block-of block) (cadar block))
+  (gc)
+  (let ((curr-row (make-vector (1+ play-cols)))
+	(curr-row-size -1)
+	(curr-row-num 0)
+	(amt-to-fall 0))
+    (do ((blocks (sort (map (lambda (b) (list (y-of b) b))
+			    (find-items stetris-canvas 'all))
+		       (lambda (x y) (> (car x) (car y))))
+		 (cdr blocks)))
+	((null? blocks))
+	(cond ((not (= curr-row-num (row-of blocks)))
+	       (cond ((= curr-row-size play-cols) ; delete row
+		      (dotimes (j (1+ curr-row-size))
+			       (destroy (vector-ref curr-row j)))
+		      (set! amt-to-fall (1+ amt-to-fall))
+		      ))
+	       (set! curr-row-size -1)
+	       (set! curr-row-num (row-of blocks))))
+	(dotimes (j amt-to-fall)
+		 (fall (block-of blocks))
+		 (update "idletasks"))
+	(set! curr-row-size (1+ curr-row-size))
+	(vector-set! curr-row curr-row-size (block-of blocks)))
+    (set! score (+ score (* amt-to-fall 10)))
+    (if (= amt-to-fall 3) (game-sound 'three-in-row))
+    (if (= amt-to-fall 4) (game-sound 'four-in-row))
+    (gc)))
+
+
+(define (check-blocks)
+;;; This function useful when the above function wasn't working.
+  (for-each (lambda (b) (format #t "~A\n" b))
+	    (sort (map (lambda (b) (list (y-of b) (x-of b) b))
+		       (find-items stetris-canvas 'all))
+		  (lambda (x y) (or (> (car x) (car y))
+				    (and (= (car x) (car y))
+					 (< (cadr x) (cadr y))))))))
+
+
+;;; ----------------- Help Text ---------------------------
+
+(define (help-text)
+;; Constructs help string for help window.
+  (define (pad-to len str)
+    (define (pad-to-aux len l)
+      (cond ((null? l)   (string->list (make-string len #\space)))
+	    ((<= len 0) ())
+	    (else (cons (car l)
+			(pad-to-aux (1- len) (cdr l))))))
+    (list->string (pad-to-aux len (string->list str))))
+
+  (define (help-strings l)
+    (map (lambda (x) (format #f "~A\t~A\n" 
+			     (pad-to 12 (car x))
+			     (action-description (cadr x))))
+	 l))
+  (apply string-append `(
+	     "
+Welcome to stetris - A falling block game reminiscent of another
+falling block game whose name we won't mention :).
+
+The game controls are as follows:\n"
+	    "\n     Game control:\n"
+	    ,@(help-strings control-bindings)
+	    "\n     Movement control:\n"
+	    ,@(help-strings game-play-bindings)
+	    "\n     Other (only available between games):\n"
+	    ,@(help-strings non-game-play-bindings))))
+
+
+;;; ----------------- Define binding maps ---------------
+(define control-bindings		; Game control actions.
+  `(("<q>" ,do-exit)			; Always available.
+    ("<n>" ,do-new-game)
+    ("<e>" ,do-end-game)
+    ("<p>" ,do-pause)
+    ("<c>" ,do-continue-game)
+    ("<h>" ,do-help)
+    ("<b>" ,do-increase-level)))
+
+(define game-play-bindings		; Bindings for moving pieces.
+  `(("<j>"     ,do-left)		; Only available during play.
+    ("<Left>"  ,do-left)
+    ("<l>"     ,do-right)
+    ("<Right>" ,do-right)
+    ("<k>"     ,do-rotate-right)	; clockwise.
+    ("<Down>"  ,do-rotate-right)
+    ("<i>"     ,do-rotate-left)
+    ("<Up>"    ,do-rotate-left)
+    ("<space>" ,do-fall)
+    ("<5>"     ,do-fall)))
+
+(define non-game-play-bindings		; Bindings only available
+  `(("<s>" ,do-scramble)		; between games.
+    ("<u>" ,do-unscramble)))
+
+;; Game action descriptions
+(define (action-description act)
+  (let ((descr (assoc act action-description-list)))
+    (if descr
+	(cadr descr)
+      (format #f "No description for ~s" act))))
+	
+(define action-description-list
+  `((,do-left         "Move left")
+    (,do-right        "Move right")
+    (,do-rotate-left  "Rotate counter-clockwise")
+    (,do-rotate-right "Rotate clockwise")
+    (,do-fall         "Fall")
+    (,do-scramble     "Scramble blocks")
+    (,do-unscramble   "Unscramble blocks")
+    (,do-help         "Help")
+    (,do-exit         "Exit")
+    (,do-new-game     "New game")
+    (,do-end-game     "End game")
+    (,do-pause        "Pause game")
+    (,do-increase-level "Bump up level by one")
+    (,do-continue-game "Continue after pause")))
+
+
+
+;;; ----------------- Bind the keys  --------------------
+
+(bind-action-list control-bindings)
+(bind-action-list non-game-play-bindings)
+
+;;; ----------------- Set up some global vars -----------------
+(set-standard-shape-vect!)
+
+(gc) ; Get a gc in before starting.
+ 
+;;; regexp for finding variable c:
+;;;[ 	()
+;;;]c[ 	()
+;;;]
diff --git a/Contrib/Trace/trace.stk b/Contrib/Trace/trace.stk
new file mode 120000
index 0000000..b029ff2
--- /dev/null
+++ b/Contrib/Trace/trace.stk
@@ -0,0 +1 @@
+../../Lib/trace.stk
\ No newline at end of file
diff --git a/Demos/%README b/Demos/%README
new file mode 100644
index 0000000..6348fff
--- /dev/null
+++ b/Demos/%README
@@ -0,0 +1,278 @@
+[Image] Demo directory
+
+This directory contains demo programs for STk.
+
+If you want to run a demo BEFORE a complete installation of the STk package,
+you must use the
+
+    ../Src/test-stk
+
+command to run the interpreter.
+
+If you view this file with the STk HTML browser, you can click on each given
+command to launch a demo.
+
+To use the STk HTML browser, just type:
+
+    ../Src/test-stk -f hbrowse README.html
+
+Happy STking
+----------------------------------------------------------------------------
+
+                                  STk demos
+
+----------------------------------------------------------------------------
+
+File
+     browse.stk
+Description
+     a simple Unix file browser
+Run
+     ../Src/test-stk -f browse.stk
+
+----------------------------------------------------------------------------
+
+File
+     colormap.stk
+Description
+     a simple color builder
+Run
+     ../Src/test-stk -f colormap.stk
+Comment
+     On exit, the RGB value is printed on the sandard output
+
+----------------------------------------------------------------------------
+
+File
+     small-ed.stk
+Description
+     A small editor to create enhanced text
+Run
+     ../Src/test-stk -f small-ed.stk
+Comment
+     Does not work (still) with STk 3.0
+
+----------------------------------------------------------------------------
+
+File
+     hanoi.stk
+Description
+     Hanoi towers animation
+Run
+     ../Src/test-stk -f hanoi.stk
+
+----------------------------------------------------------------------------
+
+File
+     hello.stk
+Description
+     a simple button demonstration
+Run
+     ../Src/test-stk -f hello.stk
+
+----------------------------------------------------------------------------
+
+File
+     showvars.stk
+Description
+     a variable shower
+     This program shows the value of three variables (named a,b and c)
+     Changing the value of one of these vars (with a set! for instance) will
+     redisplay its new value immediatly
+Run
+     ../Src/test-stk -load showvars.stk
+Comment
+Exit
+     type (exit) on the STk prompt
+
+----------------------------------------------------------------------------
+
+File
+     turtle.stk
+Description
+     a Logo turtle package + some demo functions.
+Run
+     ../Src/test-stk -f turtle.stk
+
+----------------------------------------------------------------------------
+
+File
+     inspector.stk
+Description
+     A simple demo of the inspector on Tk widgets
+Run
+     ../Src/test-stk -f inspector.stk
+Comment
+     Does not work (still) with STk 3.0
+
+----------------------------------------------------------------------------
+
+File
+     mc-server.stk
+Description
+     A multiple-clients server.
+Run
+     ../Src/test-stk -load mc-server.stk
+
+----------------------------------------------------------------------------
+
+File
+     queens.stk
+Description
+     The queens problem. You can do it yourself (and it will make sure you
+     follow the rules) or you can ask it to solve the puzzle starting with a
+     given board configuration. This code is a contribution of Grant Edwards
+     (grante@rosemount.com)
+Run
+     ../Src/test-stk -f queens.stk
+
+----------------------------------------------------------------------------
+
+File
+     stetris.stk
+Description
+     This is a falling block game not unlike tetris(tm) :). It is
+     implemented in STk just to prove it can be done, and as a challenge to
+     TCLers. It starts slowly and becomes faster and faster. Have fun. This
+     code is a contribution of Harvey J. Stein(hjstein@math.huji.ac.il)
+Run
+     ../Src/test-stk -f stetris.stk
+
+----------------------------------------------------------------------------
+
+File
+     ttt.stk
+Description
+     A 3D Tic-Tac-Toe, where the board is 4x4x4, a 3 dimensional board of
+     four planes with four rows and four columns each. This code is a
+     contribution of Edin "Dino" Hodzic <ehodzic@scu.edu>
+Run
+     ../Src/test-stk -f ttt.stk
+
+----------------------------------------------------------------------------
+
+File
+     server.stk
+Description
+     A simple server showing how to use the socket package. It creates a
+     xterm window in which a read-eval-print-loop is executed. When the
+     window is closed or when an error occurs, the socket is closed
+Run
+     ../Src/test-stk -f server.stk
+
+----------------------------------------------------------------------------
+
+File
+     term.stk
+Description
+     A simple terminal emulator (a kind of xterm, but in a text widget).
+Run
+     ../Src/test-stk -f term.stk
+
+----------------------------------------------------------------------------
+
+File
+     wtour.stk
+Description
+     This is a rewrite of the Tcl/Tk wtour2.0 in Scheme/STk. Use the menus
+     to navigate through different lessons. You can make changes to the
+     lesson source code; click on the Apply button to see the results of the
+     changes.
+Run
+     ../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour
+
+----------------------------------------------------------------------------
+
+                                STklos demos
+
+----------------------------------------------------------------------------
+There are few demos of STklos. What is interesting is not what they do but
+how they are programmmed (IMO).
+----------------------------------------------------------------------------
+
+File
+     widget.stklos
+Description
+     A tour of the Tk widgets. This demo shows all the Tk widgets
+Run
+     ../Src/test-stk -f widget.stklos
+
+----------------------------------------------------------------------------
+
+File
+     stklos-demo.stklos
+Description
+     a simple demo written in STklos
+Run
+     ../Src/test-stk -f stklos-demo.stklos
+
+----------------------------------------------------------------------------
+
+File
+     stklos-demo2.stklos
+Description
+     another simple demo written in STklos
+Run
+     ../Src/test-stk -f stklos-demo2.stklos
+
+----------------------------------------------------------------------------
+
+File
+     hello.stklos
+Description
+     a rewriting of the hello.stk demo in STklos
+Run
+     ../Src/test-stk -f hello.stklos
+
+----------------------------------------------------------------------------
+
+File
+     browse.stklos
+Description
+     a rewriting of the browse.stk demo in STklos
+Run
+     ../Src/test-stk -f browse.stklos
+
+----------------------------------------------------------------------------
+
+File
+     calc.stklos
+Description
+     a very simple calculator
+Run
+     ../Src/test-stk -f calc.stklos
+
+----------------------------------------------------------------------------
+
+File
+     compo-demo.stklos
+Description
+     A quick demo of the composite widgets which are in the STk release.
+     This code is a contribution of <Drew.Whitehouse@anu.edu.au>
+Run
+     ../Src/test-stk -f compo-demo.stklos
+
+----------------------------------------------------------------------------
+
+File
+     filebox.stklos
+Description
+     a simple program which uses the <File-box> compositeclass. A <File-box>
+     is a file requestor with file name completion. It is a composition of
+     various composite widget classes.
+Run
+     ../Src/test-stk -f filebox.stklos
+
+----------------------------------------------------------------------------
+
+File
+     tkcolor.stklos
+Description
+     a simple color picker written in STklos. Clicking button 1 on the color
+     box sets the text color to that color; Clicking button 3 sets the
+     background.
+Run
+     ../Src/test-stk -f tkcolor.stklos
+
+----------------------------------------------------------------------------
+eg@unice.fr
diff --git a/Demos/Makefile b/Demos/Makefile
new file mode 100644
index 0000000..c828174
--- /dev/null
+++ b/Demos/Makefile
@@ -0,0 +1,25 @@
+#
+# Makefile for the Demos directory
+#
+
+include ../config.make
+
+DEMODIR=$(libdir)/demos
+
+what:
+	@echo "Type make install to install demos"
+install:
+	-if [ ! -d $(DEMODIR) ] ; then mkdir -p $(DEMODIR); fi
+	for i in *.stk *.stklos Widget/*.stklos ; \
+	do \
+	  j=`basename $$i`; \
+	  sed -e 's=/usr/local/lib/stk=$(libdir)=' \
+	      -e 's=/usr/local/bin=$(bindir)=' $$i > $(DEMODIR)/$$j;\
+	done
+	for i in *.stk *.stklos ; \
+	do \
+	  chmod 0755 $(DEMODIR)/`basename $$i`; \
+	done
+
+install.libs:
+
diff --git a/Demos/README.html b/Demos/README.html
new file mode 100644
index 0000000..673caba
--- /dev/null
+++ b/Demos/README.html
@@ -0,0 +1,364 @@
+<html>
+<!-- Created by: Erick Gallesio,  1-Sep-1995 -->
+<head>
+<title>Demo directory README (Version 3.1 - July 1996)</title>
+</head>
+<body bgcolor="#FFFFFF">
+<h1><img src="STk-normal.gif"> Demo directory</h1>
+<pre>
+
+
+</pre>
+<p>This directory contains demo programs for <b>STk</b>.
+
+<p>If you want to run a demo <STRONG>BEFORE</STRONG> a complete
+ installation of the <b>STk</b> package, you must use the
+<pre>    ../Src/test-stk</pre> 
+command to run the interpreter.
+
+<p><b>If you view this file with the STk HTML browser, you can click on
+each given command to launch a demo.</b><p>
+To use the STk HTML browser, just type:
+<pre>    ../Src/test-stk -f hbrowse README.html</pre>
+<p><I>Happy STking </I>
+
+<hr></p>
+<h2>
+<center><font COLOR="red">STk demos</font></center>
+</h2>
+<hr>
+
+<DL>
+<DT> File
+<DD> browse.stk
+<DT> Description
+<DD> a simple Unix file browser 
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f browse.stk &")>
+	../Src/test-stk -f browse.stk
+     </A>     
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> colormap.stk
+<DT> Description
+<DD> a simple color builder
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f colormap.stk &")>
+	../Src/test-stk -f colormap.stk
+     </A>     
+<DT> Comment
+<DD> On exit, the RGB value is printed on the sandard output
+</DL>
+
+
+<hr>
+<DL>
+<DT> File
+<DD> small-ed.stk
+<DT> Description
+<DD> A small editor to create enhanced text
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f small-ed.stk &")>
+	../Src/test-stk -f small-ed.stk
+     </A>     
+<DT> Comment
+<DD> <STRONG> Does not work (still) with <I>STk</I> 3.0</STRONG>
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> hanoi.stk
+<DT> Description
+<DD> Hanoi towers animation
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f hanoi.stk &")>
+	../Src/test-stk -f hanoi.stk
+     </A>     
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> hello.stk
+<DT> Description
+<DD> a simple button demonstration
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f hello.stk &")>
+	../Src/test-stk -f hello.stk
+     </A>     
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> showvars.stk
+<DT> Description
+<DD> a variable shower<br>
+     This program shows the value of three variables (named a,b and c)
+     Changing the value of one of these vars (with a set! for
+     instance)	will redisplay its new value immediatly
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -load showvars.stk  &")>
+	../Src/test-stk -load showvars.stk 
+     </A>     
+<DT> Comment
+<DT> Exit 
+<DD> type (exit) on the STk prompt
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> turtle.stk
+<DT> Description
+<DD> a Logo turtle package + some demo functions.
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f turtle.stk &")>
+	../Src/test-stk -f turtle.stk
+     </A>     
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> inspector.stk
+<DT> Description
+<DD> A simple demo of the inspector on Tk widgets 
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f inspector.stk &")>
+	../Src/test-stk -f inspector.stk
+     </A>     
+<DT> Comment
+<DD> <STRONG> Does not work (still) with <I>STk</I> 3.0</STRONG>
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> mc-server.stk
+<DT> Description
+<DD> A multiple-clients server.
+<DT> Run
+<DD> <A expr=(system "xterm -e ../Src/test-stk -load mc-server.stk &")>
+	../Src/test-stk -load mc-server.stk
+     </A>     
+</DL>
+
+<hr>
+<DL>
+<DT> File
+<DD> queens.stk
+<DT> Description
+<DD> The queens problem. You can do it yourself (and it will make
+     sure you follow the rules) or you can ask it to solve the
+     puzzle starting with a given board configuration.
+     <b>This code is a contribution of Grant Edwards</b> 
+     <tt>(grante@rosemount.com)</tt>
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f queens.stk &")>
+	../Src/test-stk -f queens.stk
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  stetris.stk
+<DT> Description
+<DD> This is a falling block game not unlike tetris(tm) :).
+	     It is implemented in STk just to prove it can be done, 
+	     and as a challenge to TCLers. 
+	     It starts slowly and becomes faster and faster. 
+	     Have fun.
+	     This code is a contribution of Harvey J. Stein(hjstein@math.huji.ac.il)
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f stetris.stk &")>
+	../Src/test-stk -f stetris.stk
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  ttt.stk
+<DT> Description
+<DD> A 3D Tic-Tac-Toe, where the board is 4x4x4, a 3 dimensional board
+of four planes with four rows and four columns each.
+<B>This code is a contribution of Edin "Dino" Hodzic</B> &lt;ehodzic@scu.edu&gt;
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f ttt.stk &")>
+	../Src/test-stk -f ttt.stk
+     </A>     
+</DL>
+
+<hr>
+<DL><DT>File
+<DD> server.stk
+<DT> Description
+<DD> A simple server showing how to use the socket package.
+	     It creates a xterm window in which a read-eval-print-loop 
+	     is executed. When the window is closed or when an error occurs,
+	     the socket is closed
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f server.stk &")>
+	../Src/test-stk -f server.stk
+     </A>
+</DL>
+
+<hr>
+<DL><DT>File
+<DD> term.stk
+<DT> Description
+<DD> A simple terminal emulator (a kind of xterm, but in a text widget). 
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f ./term.stk &")>
+	../Src/test-stk -f term.stk
+     </A>
+</DL>
+
+<hr>
+<DL><DT>File
+<DD> wtour.stk
+<DT> Description
+<DD> This is a rewrite of the Tcl/Tk wtour2.0 in Scheme/STk. Use the menus
+to navigate through different lessons.  You can make changes
+to the lesson source code; click on the Apply button to see the results of
+the changes.
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour &")>
+	../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour
+     </A>
+</DL>
+
+<!-- --------------------------------------------------------------------------->
+<hr>
+<h2>
+<center><font COLOR="red"> STklos demos </font></center>
+</h2>
+<hr>
+<!-- --------------------------------------------------------------------------->
+
+There are few demos of STklos. What is interesting is not what they do but
+how they are programmmed (IMO).
+
+<hr>
+<DL>
+<DT> File
+<DD> widget.stklos
+<DT> Description
+<DD> A tour of the Tk widgets. This demo shows all the Tk widgets 
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f widget.stk &")>
+	../Src/test-stk -f widget.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  stklos-demo.stklos
+<DT> Description
+<DD> a simple demo written in STklos
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f stklos-demo.stklos &")>
+	../Src/test-stk -f stklos-demo.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  stklos-demo2.stklos
+<DT> Description
+<DD> another simple demo written in STklos
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f stklos-demo2.stklos &")>
+	../Src/test-stk -f stklos-demo2.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  hello.stklos
+<DT> Description
+<DD> a rewriting of the hello.stk demo in STklos
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f hello.stklos &")>
+	../Src/test-stk -f hello.stklos
+     </A>     
+</DL>
+
+<hr>
+<DL><DT>File
+<DD>  browse.stklos
+<DT> Description
+<DD> a rewriting of the browse.stk demo in STklos
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f browse.stklos &")>
+	../Src/test-stk -f browse.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  calc.stklos
+<DT> Description
+<DD> a very simple calculator
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f calc.stklos &")>
+	../Src/test-stk -f calc.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  compo-demo.stklos
+<DT> Description
+<DD> A quick demo of the composite widgets which are in the STk release.
+    <BR>
+    <STRONG>This code is a contribution of </STRONG>
+    <TT>&lt;Drew.Whitehouse@anu.edu.au&gt</TT>
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f compo-demo.stklos &")>
+	../Src/test-stk -f compo-demo.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  filebox.stklos
+<DT> Description
+<DD> a simple program which uses the &lt;File-box&gt compositeclass.
+	     A &lt;File-box&gt is a file requestor with file name completion.
+	     It is a composition of various composite widget classes.
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f filebox.stklos &")>
+	../Src/test-stk -f filebox.stklos
+     </A>     
+</DL>
+
+
+<hr>
+<DL><DT>File
+<DD>  tkcolor.stklos
+<DT> Description
+<DD> a simple color picker written in STklos. Clicking button 1 on the color
+ box sets the text color to that color; Clicking button 3 sets the background.
+<DT> Run
+<DD> <A expr=(system "../Src/test-stk -f tkcolor.stklos &")>
+	../Src/test-stk -f tkcolor.stklos
+     </A>     
+</DL>
+
+<hr>
+<address>eg@unice.fr</address>
+</BODY>
+</HTML>
diff --git a/Demos/STk-normal.gif b/Demos/STk-normal.gif
new file mode 120000
index 0000000..36681af
--- /dev/null
+++ b/Demos/STk-normal.gif
@@ -0,0 +1 @@
+../Lib/images/STk-normal.gif
\ No newline at end of file
diff --git a/Demos/Widget/Warrow.stklos b/Demos/Widget/Warrow.stklos
new file mode 100644
index 0000000..7bc44ac
--- /dev/null
+++ b/Demos/Widget/Warrow.stklos
@@ -0,0 +1,183 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a canvas widget that displays a
+;;;; large line with an arrowhead whose shape can be edited interactively.
+;;;;
+(require "Tk-classes")
+
+(define (demo-arrow)
+  (define w (make-demo-toplevel "arrow"
+				"Arrowhead Editor Demonstration"
+				"This widget allows you to experiment with different widths and arrowhead shapes for lines in canvases.  To change the line width or the shape of the arrowhead, drag any of the three boxes attached to the oversized arrow.  The arrows on the right give examples at normal scale.  The text at the bottom shows the configuration options as you'd enter them for a canvas line item."))
+  
+  (define a 		8)
+  (define b 		10)
+  (define c 		3)
+  (define width 	2)
+  (define motion-proc	#f)
+  (define x1 		40)
+  (define x2 		350)
+  (define y 		150)
+  (define small-tips	'(5 5 2))
+  (define cnv 		(make <Canvas> :parent w :width 500 :height 350 
+			      :relief "sunken" :border-width 2))
+  (define box1 		#f)
+  (define box2 		#f)
+  (define box3 		#f)
+  (define current-box	#f)
+
+  ;;; arrowSetup  regenerates all the text and graphics in the canvas
+  ;;; window.  It's called when the canvas is initially created, and also
+  ;;; whenever any of the parameters of the arrow head are changed
+  ;;; interactively.
+  (define (arrow-setup cnv)
+
+    ;; Create the arrow and outline.
+    (canvas-delete cnv "all")
+    
+    (apply make <Line> :parent cnv
+	   	       :coords (list x1 y x2 y) 
+		       :width (* 10 width)
+		       :arrow-shape (list (* 10 a) (* 10 b) (* 10 c))
+		       :arrow "last"
+		       (if (> (winfo 'depth cnv) 1)
+			    `(:fill "SkyBlue1")
+			    `(:fill black 
+			      :stipple ,(& "@" *stk-library* "/images/grey.25"))))
+
+    (let ((xtip    (- x2 (* 10 b)))
+	  (delta-y (+ (* 10 c) (* 5 width))))
+      (make <Line> :parent cnv 
+	    	   :coords (list x2 y xtip (+ y delta-y) (- x2 (* 10 a))
+				 y xtip (- y delta-y) x2 y)
+		   :width 2
+		   :cap-style "round")
+
+      ;;;Create the boxes for reshaping the line and arrowhead.
+      (set! box1 (make <Rectangle> :parent cnv 
+		       :coords (list (- x2 (* 10 a) +5) (- y 5)
+				     (- x2 (* 10 a) -5) (+ y 5))
+		       :fill "white" :tags '("box" "box1")))
+      (set! box2 (make <Rectangle> :parent cnv 
+		       :coords (list (- xtip 5) (- y delta-y +5)
+				     (+ xtip 5) (- y delta-y -5))
+		       :fill "white" :tags '("box" "box2")))
+      (set! box3 (make <Rectangle> :parent cnv 
+		       :coords (list (- x1 5) (- y (* 5 width) +5)
+				     (+ x1 5) (- y (* 5 width) -5))
+		       :fill "white" :tags '("box" "box3")))
+
+      ;; Create three arrows in actual size with the same parameters
+      (make <Line> :parent cnv :coords (list (+ x2 50) 0 (+ x2 50) 1000) :width 2)
+      (let ((tmp (+ x2 100)))
+	(make <Line> :parent cnv :coords (list tmp (- y 125) tmp (- y 75)) 
+	      :width width :arrow "both" :arrow-shape (list a b c))
+	(make <Line> :parent cnv :coords (list (- tmp 25) y (+ tmp 25) y)
+	      :width width :arrow "both" :arrow-shape (list a b c))
+	(make <Line> :parent cnv :coords (list (- tmp 25) (+ y 75) 
+					       (+ tmp 25) (+ y 125))
+	      :width width :arrow "both" :arrow-shape (list a b c)))
+      ;; Create a bunch of other arrows and text items showing the
+      ;; current dimensions.
+      (let ((tmp (+ x2 10)))
+	(make <Line> :parent cnv :coords (list tmp (- y (* 5 width)) 
+					       tmp (- y delta-y))
+	      :arrow "both" :arrow-shape small-tips)
+	(make <Text-item> :parent cnv :coords (list (+ x2 15) 
+						    (- y delta-y (* -5 c)))
+	      :text c :anchor "w"))
+
+      (let ((tmp (- x1  10)))
+	(make <Line> :parent cnv :coords (list tmp (- y (* 5 width)) 
+					       tmp (+ y (* 5 width)))
+	      :arrow "both" :arrow-shape small-tips)
+	(make <Text-item> :parent cnv :coords (list (- x1 15) y)
+	      :text width :anchor "e"))
+      
+      (let ((tmp (+ y (* 5 width) (* 10 c) 10)))
+	(make <Line> :parent cnv :coords (list (- x2 (* 10 a)) tmp x2 tmp)
+	      :arrow "both" :arrow-shape small-tips)
+	(make <Text-item> :parent cnv :coords (list (- x2 (* 5 a)) (+ tmp 5))
+	      :text a :anchor "n"))
+
+      (let ((tmp (+ y (* 5 width) (* 10 c) 35)))
+	(make <Line> :parent cnv :coords (list (- x2 (* 10 b)) tmp x2 tmp)
+	      :arrow "both" :arrow-shape small-tips)
+	(make <Text-item> :parent cnv :coords (list (- x2 (* 5 b)) (+ tmp 5))
+	      :text b :anchor "n"))
+
+      (make  <Text-item> :parent cnv :coords (list x1 310) 
+	     :text (format #f ":width ~A" width) :anchor "w"
+	     :font "-*-Helvetica-Medium-R-Normal--*-180-*-*-*-*-*-*")
+      (make  <Text-item> :parent cnv :coords (list x1 330) 
+	     :text (format #f ":arrow-shape '~A" (list a b c)) :anchor "w"
+	     :font "-*-Helvetica-Medium-R-Normal--*-180-*-*-*-*-*-*"))
+    (if current-box 
+	(set! (fill current-box) (if (> (winfo 'depth cnv) 1) "red" "black"))))
+
+  (define (activate-box)
+    (let ((box (find-items cnv 'withtag "current")))
+      (when (pair? box)
+	(set! current-box (car box))
+	(set! (fill current-box) (if (> (winfo 'depth cnv) 1) "red" "black")))))
+  
+  (define (deactivate-box)
+    (set! (fill current-box) "white")
+    (set! current-box #f))
+
+  ;; arrow-move-1  is called for each mouse motion event on box1 (the
+  ;; one at the vertex of the arrow).  It updates the controlling parameters
+  ;; for the line and arrowhead.
+  (define (arrow-move-1 cnv new-x new-y)
+    (let ((new-a (inexact->exact (floor (/ (- x2 -5 (canvas-x cnv new-x)) 10)))))
+      (if (< new-a 0)  (set! new-a 0))
+      (if (> new-a 25) (set! new-a 25))
+      (unless (= new-a a)
+	(move box1 (* 10 (- a new-a)) 0)
+	(set! a new-a))))
+
+  ;; arrow-move-2  is called for each mouse motion event on box2 (the
+  ;; one at the trailing tip of the arrowhead). It updates the controlling
+  ;; parameters for the line and arrowhead.
+  (define (arrow-move-2 cnv new-x new-y)
+    (let ((new-b (inexact->exact (floor (/ (- x2 -5 (canvas-x cnv new-x)) 10))))
+	  (new-c (inexact->exact (floor (/ (- y  -5 (round (canvas-y cnv new-y))
+					      (* 5 width)) 10)))))
+      (if (< new-b 0)  (set! new-b 0))
+      (if (> new-b 25) (set! new-b 25))
+      (if (< new-c 0)  (set! new-c 0))
+      (if (> new-c 20) (set! new-c 20))
+      (unless (and (= new-b b) (= new-c c))
+	(move box2 (* 10 (- b new-b)) (* 10 (- c new-c)))
+	(set! b new-b)
+	(set! c new-c))))
+
+  ;; arrow-move-3 is called for each mouse motion event on box3 (the
+  ;; one that controls the thickness of the line).  It updates the
+  ;; controlling parameters for the line and arrowhead.
+  (define (arrow-move-3 cnv new-x new-y)
+   (let ((new-w (inexact->exact (floor (/ (- y -2 (canvas-y cnv new-y)) 5)))))
+     (if (< new-w 0)  (set! new-w 0))
+     (if (> new-w 20) (set! new-w 20))
+     (unless (= new-w width)
+       (move box3 0 (* 5 (- width new-w)))
+       (set! width  new-w))))
+
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  
+  (arrow-setup cnv)
+  (pack cnv :expand #t :fill "both")
+
+  ;;; Bindings
+  (bind cnv "box"  "<Enter>"        activate-box)
+  (bind cnv "box"  "<Leave>"        deactivate-box)
+  (bind cnv "box"  "<B1-Enter>"     (lambda () 'nop))
+  (bind cnv "box"  "<B1-Leave>"     (lambda () 'nop))
+  (bind cnv "box"  "<B1-Motion>"    (lambda (x y) 
+				      (if motion-proc (motion-proc cnv x y))))
+  (bind cnv "box1" "<1>"    	    (lambda () (set! motion-proc arrow-move-1)))
+  (bind cnv "box2" "<1>"    	    (lambda () (set! motion-proc arrow-move-2)))
+  (bind cnv "box3" "<1>"    	    (lambda () (set! motion-proc arrow-move-3)))
+  (bind cnv "<Any-ButtonRelease-1>" (lambda () (arrow-setup cnv))))
+
diff --git a/Demos/Widget/Wbind.stklos b/Demos/Widget/Wbind.stklos
new file mode 100644
index 0000000..58ac226
--- /dev/null
+++ b/Demos/Widget/Wbind.stklos
@@ -0,0 +1,55 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a text widget with bindings set
+;;;; up for hypertext-like effects.
+;;;;
+(require "Tk-classes")
+
+(define (demo-bind)
+  (let* ((w      (make-demo-toplevel "bind"
+				     "Text Demonstration - Tag Bindings"
+				     ""))
+	 (t      (make <Text> :parent w :setgrid #t :width 60  :height 24
+		       :font demo-font :wrap "word"))
+	 (bold   (make <Text-tag> :parent t :background "#43ce80"
+		       :relief "raised" :border-width 1))
+	 (tags   (make-vector 6))
+	 (action '#(demo-items demo-plot  demo-ctext 
+		    demo-arrow  demo-ruler demo-cscroll)))
+
+    (when (= (winfo 'depth w) 1)	        ; Monochrome
+      (slot-set! bold   :foreground "white")
+      (slot-set! bold   :background "black"))
+
+    (pack t :expand #t :fill "both")
+
+    ;; Add bindings
+    (dotimes (i 6)
+       (let ((tag (make <Text-tag> :parent t)))
+	 (vector-set! tags i tag)
+	 (bind tag "<Any-Enter>" (lambda () 
+				   (apply tag-add bold (tag-ranges tag))))
+	 (bind tag "<Any-Leave>" (lambda () 
+				   (apply tag-remove bold (tag-ranges tag))))
+	 (bind tag "<1>"	 (lambda ()
+				   (apply (eval (vector-ref action i)) '())))))
+
+    ;; Add text to widget.
+    (text-insert t "end" 
+"The same tag mechanism that controls display styles in text widgets can also be used to associate Tcl commands with regions of text, so that mouse or keyboard actions on the text cause particular Tcl commands to be invoked.  For example, in the text below the descriptions of the canvas demonstrations have been tagged.  When you move the mouse over a demo description the description lights up, and when you press button 1 over a description then that particular demonstration is invoked.\n\n" '()
+"1. Samples of all the different types of items that can be created in canvas widgets." 								(vector-ref tags 0)
+"\n\n"								'()
+"2. A simple two-dimensional plot that allows you to adjust the positions of the data points."  							(vector-ref tags 1)
+"\n\n"								'()
+"3. Anchoring and justification modes for text items." 		(vector-ref tags 2)
+"\n\n"								'()
+"4. An editor for arrow-head shapes for line items."		(vector-ref tags 3)
+"\n\n"								'()
+"5. A ruler with facilities for editing tab stops."		(vector-ref tags 4)
+"\n\n"								'()
+"6. A grid that demonstrates how canvases can be scrolled."	(vector-ref tags 5)
+)))
+
+
+
diff --git a/Demos/Widget/Wbitmap.stklos b/Demos/Widget/Wbitmap.stklos
new file mode 100644
index 0000000..a8a665c
--- /dev/null
+++ b/Demos/Widget/Wbitmap.stklos
@@ -0,0 +1,27 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window that displays
+;;;; all of Tk's built-in bitmaps.
+;;;;
+(require "Tk-classes")
+
+(define (demo-bitmap)
+  (define w (make-demo-toplevel "bitmap"
+				"Bitmap Demonstration"
+				"This window displays all of Tk's built-in bitmaps, along with the names you can use for them in Tcl scripts."))
+
+  (define (bitmap-row l)
+    (let ((f (make <Frame> :parent w)))
+      (pack f :side "top" :fill "both")
+      (for-each (lambda (bitmap)
+		  (let ((f2 (make <Frame> :parent f)))
+		    (pack f2 :side "left" :fill "both" :padx '.25c :pady '.25c)
+		    (pack (make <Label> :parent f2 :bitmap bitmap)
+			  (make <Label> :parent f2 :text bitmap :width 9)
+			  :side "bottom")))
+		l)))
+  
+  ;; Display two rows of bitmaps
+  (bitmap-row '(error gray25 gray50 hourglass))
+  (bitmap-row '(info question questhead warning)))
diff --git a/Demos/Widget/Wbutton.stklos b/Demos/Widget/Wbutton.stklos
new file mode 100644
index 0000000..d72b4c0
--- /dev/null
+++ b/Demos/Widget/Wbutton.stklos
@@ -0,0 +1,26 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; several button widgets.
+;;;;
+
+(define (demo-button)
+  (let ((w (make-demo-toplevel "button"
+			       "Button Demonstration" 
+			       "If you click on any of the four buttons below, the background of the button area will change to the color indicated in the button.  You can press Tab to move among the buttons, then press Space to invoke the current button.")))
+	
+    ;; Create the 4 buttons
+    (for-each (lambda (x)
+		(pack (make <Button> 
+			    :text (car x)
+			    :parent w
+			    :width 10
+			    :command (lambda() (set! (background w) (cadr x))))
+		      :side "top" 
+		      :expand #t 
+		      :pady 2))
+	      '(("Peach Puff" "PeachPuff1")
+		("Light Blue" "LightBlue1")
+		("Sea Green"  "SeaGreen2")
+		("Yellow"     "Yellow1")))))
diff --git a/Demos/Widget/Wcheck.stklos b/Demos/Widget/Wcheck.stklos
new file mode 100644
index 0000000..2410fc2
--- /dev/null
+++ b/Demos/Widget/Wcheck.stklos
@@ -0,0 +1,23 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; several checkbuttons.
+;;;;
+(require "Button")
+
+(define (demo-check)
+  (let ((w  (make-demo-toplevel "check"
+				"Checkbutton Demonstration"
+				"Three checkbuttons are displayed below.  If you click on a button, it will toggle the button's selection state and set a Tcl variable to a value indicating the state of the checkbutton.  Click the \"See Variables\" button to see the current values of the variables."
+				'wipers 'brakes 'sober)))
+	;; Create checkbuttons
+	(pack (make <Check-button> :parent w :text "Wipers OK" 
+		    :variable 'wipers :relief "flat")
+	      (make <Check-button> :parent w :text "Brakes OK" 
+		    :variable 'brakes :relief "flat")
+	      (make <Check-button> :parent w :text "Driver Sober" 
+		    :variable 'sober :relief "flat")
+	      :side "top"
+	      :pady 2
+	      :anchor "w")))
diff --git a/Demos/Widget/Wcolors.stklos b/Demos/Widget/Wcolors.stklos
new file mode 100644
index 0000000..3ef6a32
--- /dev/null
+++ b/Demos/Widget/Wcolors.stklos
@@ -0,0 +1,23 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a listbox widget that displays
+;;;; the names of the 50 states in the United States of America.
+;;;;
+
+(require "Scrollbox")
+
+(define (demo-colors)
+  (let* ((w  (make-demo-toplevel "colors"
+				 "Listbox Demonstration (colors)"
+				 "A listbox containing several color names is displayed below, along with a scrollbar.  You can scan the list either using the scrollbar or by dragging in the listbox window with Shift key and button 2 pressed.  If you double-click button 1 on a color, then the application's color palette will be set to match that color"))
+	 (l  (list "snow1" "snow2" "snow3" "snow4" "seashell1" "seashell2" "seashell3" "seashell4" "AntiqueWhite1" "AntiqueWhite2" "AntiqueWhite3" "AntiqueWhite4" "bisque1" "bisque2" "bisque3" "bisque4" "PeachPuff1" "PeachPuff2" "PeachPuff3" "PeachPuff4" "NavajoWhite1" "NavajoWhite2" "NavajoWhite3" "NavajoWhite4" "LemonChiffon1" "LemonChiffon2" "LemonChiffon3" "LemonChiffon4" "cornsilk1" "cornsilk2" "cornsilk3" "cornsilk4" "ivory1" "ivory2" "ivory3" "ivory4" "honeydew1" "honeydew2" "honeydew3" "honeydew4" "LavenderBlush1" "LavenderBlush2" "LavenderBlush3" "LavenderBlush4" "MistyRose1" "MistyRose2" "MistyRose3" "MistyRose4" "azure1" "azure2" "azure3" "azure4" "SlateBlue1" "SlateBlue2" "SlateBlue3" "SlateBlue4" "RoyalBlue1" "RoyalBlue2" "RoyalBlue3" "RoyalBlue4" "blue1" "blue2" "blue3" "blue4" "DodgerBlue1" "DodgerBlue2" "DodgerBlue3" "DodgerBlue4" "SteelBlue1" "SteelBlue2" "SteelBlue3" "SteelBlue4" "DeepSkyBlue1" "DeepSkyBlue2" "DeepSkyBlue3" "DeepSkyBlue4" "SkyBlue1" "SkyBlue2" "SkyBlue3" "SkyBlue4" "LightSkyBlue1" "LightSkyBlue2" "LightSkyBlue3" "LightSkyBlue4" "SlateGray1" "SlateGray2" "SlateGray3" "SlateGray4" "LightSteelBlue1" "LightSteelBlue2" "LightSteelBlue3" "LightSteelBlue4" "LightBlue1" "LightBlue2" "LightBlue3" "LightBlue4" "LightCyan1" "LightCyan2" "LightCyan3" "LightCyan4" "PaleTurquoise1" "PaleTurquoise2" "PaleTurquoise3" "PaleTurquoise4" "CadetBlue1" "CadetBlue2" "CadetBlue3" "CadetBlue4" "turquoise1" "turquoise2" "turquoise3" "turquoise4" "cyan1" "cyan2" "cyan3" "cyan4" "DarkSlateGray1" "DarkSlateGray2" "DarkSlateGray3" "DarkSlateGray4" "aquamarine1" "aquamarine2" "aquamarine3" "aquamarine4" "DarkSeaGreen1" "DarkSeaGreen2" "DarkSeaGreen3" "DarkSeaGreen4" "SeaGreen1" "SeaGreen2" "SeaGreen3" "SeaGreen4" "PaleGreen1" "PaleGreen2" "PaleGreen3" "PaleGreen4" "SpringGreen1" "SpringGreen2" "SpringGreen3" "SpringGreen4" "green1" "green2" "green3" "green4" "chartreuse1" "chartreuse2" "chartreuse3" "chartreuse4" "OliveDrab1" "OliveDrab2" "OliveDrab3" "OliveDrab4" "DarkOliveGreen1" "DarkOliveGreen2" "DarkOliveGreen3" "DarkOliveGreen4" "khaki1" "khaki2" "khaki3" "khaki4" "LightGoldenrod1" "LightGoldenrod2" "LightGoldenrod3" "LightGoldenrod4" "LightYellow1" "LightYellow2" "LightYellow3" "LightYellow4" "yellow1" "yellow2" "yellow3" "yellow4" "gold1" "gold2" "gold3" "gold4" "goldenrod1" "goldenrod2" "goldenrod3" "goldenrod4" "DarkGoldenrod1" "DarkGoldenrod2" "DarkGoldenrod3" "DarkGoldenrod4" "RosyBrown1" "RosyBrown2" "RosyBrown3" "RosyBrown4" "IndianRed1" "IndianRed2" "IndianRed3" "IndianRed4" "sienna1" "sienna2" "sienna3" "sienna4" "burlywood1" "burlywood2" "burlywood3" "burlywood4" "wheat1" "wheat2" "wheat3" "wheat4" "tan1" "tan2" "tan3" "tan4" "chocolate1" "chocolate2" "chocolate3" "chocolate4" "firebrick1" "firebrick2" "firebrick3" "firebrick4" "brown1" "brown2" "brown3" "brown4" "salmon1" "salmon2" "salmon3" "salmon4" "LightSalmon1" "LightSalmon2" "LightSalmon3" "LightSalmon4" "orange1" "orange2" "orange3" "orange4" "DarkOrange1" "DarkOrange2" "DarkOrange3" "DarkOrange4" "coral1" "coral2" "coral3" "coral4" "tomato1" "tomato2" "tomato3" "tomato4" "OrangeRed1" "OrangeRed2" "OrangeRed3" "OrangeRed4" "red1" "red2" "red3" "red4" "DeepPink1" "DeepPink2" "DeepPink3" "DeepPink4" "HotPink1" "HotPink2" "HotPink3" "HotPink4" "pink1" "pink2" "pink3" "pink4" "LightPink1" "LightPink2" "LightPink3" "LightPink4" "PaleVioletRed1" "PaleVioletRed2" "PaleVioletRed3" "PaleVioletRed4" "maroon1" "maroon2" "maroon3" "maroon4" "VioletRed1" "VioletRed2" "VioletRed3" "VioletRed4" "magenta1" "magenta2" "magenta3" "magenta4" "orchid1" "orchid2" "orchid3" "orchid4" "plum1" "plum2" "plum3" "plum4" "MediumOrchid1" "MediumOrchid2" "MediumOrchid3" "MediumOrchid4" "DarkOrchid1" "DarkOrchid2" "DarkOrchid3" "DarkOrchid4" "purple1" "purple2" "purple3" "purple4" "MediumPurple1" "MediumPurple2" "MediumPurple3" "MediumPurple4" "thistle1" "thistle2" "thistle3" "thistle4"))
+	 (sl (make <Scroll-listbox> :parent w :value l)))
+
+    ;; Pack the scroll listbox
+    (pack sl :padx 20 :pady 20)
+    
+    ;; Add a binding to change the palette on double click
+    (bind (slot-ref sl 'listbox) "<Double-1>" 
+	  			 (lambda ()
+				   (Tk:set-palette! (selection 'get))))))
diff --git a/Demos/Widget/Wctext.stklos b/Demos/Widget/Wctext.stklos
new file mode 100644
index 0000000..f606093
--- /dev/null
+++ b/Demos/Widget/Wctext.stklos
@@ -0,0 +1,129 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a canvas widget with a text
+;;;; item that can be edited and reconfigured in various ways.
+;;;;
+
+(define (demo-ctext)
+
+  (define config-fill #f)
+  (define current     #f)
+  
+  (define (Enter c)
+    (set! current (car (find-items c 'withtag "current")))
+    (set! config-fill (slot-ref current 'fill))
+    (slot-set! current 'fill "black"))
+
+  (define (Leave c)
+    (slot-set! current 'fill config-fill))
+
+  (define (Insert c string)
+    (unless (equal? string "")
+      (catch c (delete-chars c "text" "sel.first" "sel.last"))
+      (text-insert c "text" 'insert string)))
+
+  (define (Paste c x y)
+    (catch (text-insert c "text" (format #f "@~A,~A" x y) (selection 'get))))
+
+  (define (B1-press c x y)
+    (let ((pos (format #f "@~A,~A" x y)))
+      (icursor c "current" pos)
+      (focus c "current")
+      (focus c)
+      (text-selection c 'from "current" pos)))
+
+  (define (B1-move c x y)
+    (text-selection c 'to "current" (format #f "@~A,~A" x y)))
+
+  (define (Bs c)
+    (when (catch (delete-chars c "text" "sel.first" "sel.last"))
+      (let ((char (- (text-index c "text" "insert") 1)))
+	(if (>= char 0)
+	    (delete-chars c "text" char)))))
+
+  (define (Del c)
+    (when (catch (delete-chars c "text" "sel.first" "sel.last"))
+      (delete-chars c "text" "insert")))
+
+  (let* ((w     (make-demo-toplevel  "ctext"
+				     "Canvas Text Demonstration"
+				     "This window displays a string of text to demonstrate the text facilities of canvas widgets.  You can click in the boxes to adjust the position of the text relative to its positioning point or change its justification.  The text also supports the following simple bindings for editing:
+  1. You can point, click, and type.
+  2. You can also select with button 1.
+  3. You can copy the selection to the mouse position with button 2.
+  4. Backspace and Control+h delete the character just before the
+  insertion cursor.
+  5. Delete deletes the character just after the insertion cursor. "))
+	 (font  "-*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-*")
+	 (c	(make <Canvas> :parent w :width 500 :height 400))
+	 (txt   (make <Text-item> :parent c :coords '(250 200) 
+		      :width 440 :anchor "n" :font font :justify "left"
+		      :text "This is just a string of text to demonstrate the text facilities of canvas widgets. You can point, click, and type.  You can also select and then delete with Control-d.")))
+
+    (pack c :side "top" :expand #t :fill "both")
+
+    ;; First, create the text item and give it bindings so it can be edited.
+    (add-tag txt "text")
+    (bind c "text" "<1>" 	       (lambda (x y) (B1-press c x y)))
+    (bind c "text" "<B1-Motion>"       (lambda (x y) (B1-move c x y)))
+    (bind c "text" "<Shift-B1-Motion>" (lambda (x y) (B1-move c x y)))
+    (bind c "text" "<KeyPress>"        (lambda (|A|) (Insert c |A|)))
+    (bind c "text" "<Return>" 	       (lambda ()    (Insert c "\n")))
+    (bind c "text" "<Control-h>"       (lambda ()    (BS c)))
+    (bind c "text" "<BackSpace>"       (lambda ()    (BS c)))
+    (bind c "text" "<Delete>" 	       (lambda ()    (Del c)))
+    (bind c "text" "<2>"	       (lambda (x y) (Paste c x y)))
+
+    (let* ((x	      50)
+	   (y	      50)
+	   (color      "LightSkyBlue1")
+	   (txt-config (lambda (x y option value color)
+			 (let ((item (make <Rectangle> 
+					   :parent c 
+					   :coords (list x y (+ x 30) (+ y 30))
+					   :outline "black"
+					   :tags "square"
+					   :fill color
+					   :width 1)))
+			   (bind item "<1>" (lambda ()
+					      (slot-set! txt option value)))))))
+
+      ;; Create some items that allow the text's anchor position to be edited.
+      (txt-config (+ x 00) (+ y 00) 'anchor "se" 	"LightSkyBlue1")
+      (txt-config (+ x 30) (+ y 00) 'anchor "s" 	"LightSkyBlue1")
+      (txt-config (+ x 60) (+ y 00) 'anchor "sw" 	"LightSkyBlue1")
+      (txt-config (+ x 00) (+ y 30) 'anchor "e" 	"LightSkyBlue1")
+      (txt-config (+ x 30) (+ y 30) 'anchor "center" 	"LightSkyBlue1")
+      (txt-config (+ x 60) (+ y 30) 'anchor "w" 	"LightSkyBlue1")
+      (txt-config (+ x 00) (+ y 60) 'anchor "ne" 	"LightSkyBlue1")
+      (txt-config (+ x 30) (+ y 60) 'anchor "n" 	"LightSkyBlue1")
+      (txt-config (+ x 60) (+ y 60) 'anchor "nw"	"LightSkyBlue1")
+     
+      ;; Create some items that allow the text's justification to be changed.
+      (txt-config (+ x 300) y 'justify "left"	"SeaGreen2")
+      (txt-config (+ x 330) y 'justify "center"	"SeaGreen2")
+      (txt-config (+ x 360) y 'justify "right"	"SeaGreen2")
+
+      ;; The two little red squares and the both titles
+      (let ((item1 (make <Rectangle> :parent c 
+			 :coords (list (+ x 40) (+ y 40) (+ x 50) (+ y 50))
+			 :outline "black" :fill "red"))
+	    (item2 (make <Rectangle> :parent c 
+			 :coords '(245 195 255 205) :outline "black" :fill "red")))
+
+	(bind item1 "<1>" (lambda () 
+			   (slot-set! txt 'anchor "center")))
+	
+	(make <Text-item> :parent c :text "Text Position" :anchor "s"
+	      :font font :fill "brown":coords (list (+ x 45) (- y 5)))
+	
+	(make <Text-item> :parent c :text "Justification" :anchor "s"
+	      :font font :fill "brown":coords (list (+ x 345) (- y 5))))
+
+      ;; Associate bindings to squares
+      (bind c "square" "<Enter>" (lambda () (Enter c)))
+      (bind c "square" "<Leave>" (lambda () (Leave c))))))
+
+
+
diff --git a/Demos/Widget/Wdialog1.stklos b/Demos/Widget/Wdialog1.stklos
new file mode 100644
index 0000000..a6ed585
--- /dev/null
+++ b/Demos/Widget/Wdialog1.stklos
@@ -0,0 +1,18 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;;  This demonstration script creates a dialog box with a local grab.
+;;;;
+
+
+(define (demo-dialog1)
+  (STk:make-dialog :title "Dialog with local grab" 
+		   :text  "This is a modal dialog box. It uses Tk's \"grab\" command to create a \"local grab\" on the dialog box. The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications."
+		   :bitmap "info"
+		   :default 0
+		   :grab    #t
+		   :buttons 
+		      `(("OK"       ,(lambda () (display "You pressed OK\n")))
+			("Cancel"   ,(lambda () (display "You pressed Cancel\n")))
+			("See Code" ,(lambda () (show-code "dialog1"))))))
+
diff --git a/Demos/Widget/Wdialog2.stklos b/Demos/Widget/Wdialog2.stklos
new file mode 100644
index 0000000..058fdce
--- /dev/null
+++ b/Demos/Widget/Wdialog2.stklos
@@ -0,0 +1,18 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;;  This demonstration script creates a dialog box with a global grab.
+;;;;
+
+
+(define (demo-dialog2)
+  (STk:make-dialog :title "Dialog with global grab" 
+		   :text  "This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below.  Global grabs are almost always a bad idea; don't use them unless you're truly desperate."
+		   :bitmap "info"
+		   :default 0
+		   :grab    'global
+		   :buttons 
+		      `(("OK"       ,(lambda () (display "You pressed OK\n")))
+			("Cancel"   ,(lambda () (display "You pressed Cancel\n")))
+			("See Code" ,(lambda () (show-code "dialog2"))))))
+
diff --git a/Demos/Widget/Wentry1.stklos b/Demos/Widget/Wentry1.stklos
new file mode 100644
index 0000000..6d5705f
--- /dev/null
+++ b/Demos/Widget/Wentry1.stklos
@@ -0,0 +1,20 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates several entry widgets without
+;;;; scrollbars.
+;;;;
+(require "Tk-classes")
+
+(define (demo-entry1)
+  (define w (make-demo-toplevel "entry1"
+				"Entry Demonstration (no scrollbars)"
+				"Three different entries are displayed below.  You can add characters by pointing, clicking and typing.  The normal Motif editing characters are supported, along with many Emacs bindings.  For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor.  For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with Shift key and mouse button2 pressed."))
+  
+  (pack (make <Entry> :parent w :relief "sunken" :value "Initial value")
+	(make <Entry> :parent w :relief "sunken" :value "This entry contains a long value, much too long to fit in the window at one time, so long in fact that you'll have to scan or scroll to see the end.")
+	(make <Entry> :parent w :relief "sunken")
+	:side "top"
+	:padx 10
+	:pady 5
+	:fill "x"))
diff --git a/Demos/Widget/Wentry2.stklos b/Demos/Widget/Wentry2.stklos
new file mode 100644
index 0000000..de89626
--- /dev/null
+++ b/Demos/Widget/Wentry2.stklos
@@ -0,0 +1,33 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script is the same as the entry1.tcl script
+;;;; except that it creates scrollbars for the entries.
+;;;;
+(require "Tk-classes")
+
+(define (demo-entry2)
+  (define w (make-demo-toplevel "entry2"
+				"Entry Demonstration (with scrollbars)"
+				"Three different entries are displayed below, with a scrollbar for each entry.  You can add characters by pointing, clicking and typing.  The normal Motif editing characters are supported, along with many Emacs bindings.  For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor.  For entries that are too large to fit in the window all at once, you can scan through the entries with the scrollbars, or by dragging with Shift key and mouse button2 pressed."))
+
+  (define (scroll-entry  value)
+    (let* 
+	((f (make <Frame>     :parent w))
+	 (s (make <Scrollbar> :parent f :relief "sunken" :orientation 'h :width 10))
+	 (e (make <Entry>     :parent f :relief "sunken" :value value)))
+      ;; pack entry and scrollbar.
+      (pack e s :side "top" :fill "x")
+      ;; Associate bindings
+      (slot-set! e 'x-scroll-command (lambda l (apply (slot-ref s 'Id) 'set  l)))
+      (slot-set! s 'command 	     (lambda l (apply (slot-ref e 'Id) 'xview l)))
+      ;; return the enclosing frame
+      f))
+
+    (pack (scroll-entry "Initial value")
+	  (scroll-entry "This entry contains a long value, much too long to fit in the window at one time, so long in fact that you'll have to scan or scroll to see the end.")
+	  (scroll-entry "")
+	  :side "top"
+	  :padx 10
+	  :pady 10
+	  :fill "x"))
diff --git a/Demos/Widget/Wform.stklos b/Demos/Widget/Wform.stklos
new file mode 100644
index 0000000..8a9aa76
--- /dev/null
+++ b/Demos/Widget/Wform.stklos
@@ -0,0 +1,25 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a simple form with a bunch
+;;;; of entry widgets.
+;;;;
+(require "Tk-classes")
+
+(define (demo-form)
+  (let  ((w (make-demo-toplevel "form"
+				"Form Demonstration"
+				"This window contains a simple form where you can type in the various entries and use tabs to move circularly between the entries.")))
+
+    ;; Make the entries
+    (for-each (lambda (x) 
+		(pack (make <Labeled-entry> 
+			    :parent w 	    :title x 
+			    :title-width 8  :width 40
+			    :anchor "w"	    :entry-relief "sunken")
+		      :padx 5))
+		
+	      (list "Name:" "Address:" "" "" "Phone:"))
+    ;; destroy the window when  <Return> is typed in the current toplevelel
+    (let ((top (winfo 'toplevel w)))
+      (bind top "<Return>" (lambda () (catch (destroy top)))))))
diff --git a/Demos/Widget/Whscale.stklos b/Demos/Widget/Whscale.stklos
new file mode 100644
index 0000000..2e0dead
--- /dev/null
+++ b/Demos/Widget/Whscale.stklos
@@ -0,0 +1,36 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script shows an example with a horizontal scale.
+;;;;
+
+(define (demo-hscale)
+  
+  (define (set-width! c poly line width)
+    (let* ((width (+ width 21))
+	   (x2     (max (- width 30) 21)))
+      (set! (coords poly) (list 20 15 20 35 x2 35 x2 45 width 25 x2 5 x2 15 20 15))
+      (set! (coords line) (list 20 15 20 35 x2 35 x2 45 width 25 x2 5 x2 15 20 15)))
+    )
+    
+
+  (let* ((w (make-demo-toplevel  "hscale"
+				 "Horizontal Scale Demonstration"
+				 "An arrow and a horizontal scale are displayed below.  If you click or drag mouse button 1 in the scale, you can change the length of the arrow."))
+	 (f    (make <Frame> :parent w :border-width 10))
+	 (c    (make <Canvas> :parent f :width 50 :height 50 :border-width 0 
+		     :highlight-thickness 0))
+	 (poly  (make <Polygon> :parent c :coords '(0 0 1 1 2 2) 
+		      :fill "DeepSkyBlue3"))
+	 (line  (make <Line> :parent c :coords '(0 0 1 1 2 2 0 0) :fill "black"))
+	 (s     (make <Scale> :parent f :orientation "horizontal" :scale-length 284 
+		      :from 0 :to 250
+		      :tick-interval 50 :value 75
+		      :command (lambda (v) (set-width! c poly line v)))))
+    
+    (pack f :side "top" :fill "x")
+    (pack s :side "left" :side "bottom" :expand #t :anchor "n")
+    (pack c :side "left" :side "top" :expand #t :anchor "s" :fill "x" :padx 15)))
+
+    
+
diff --git a/Demos/Widget/Wicon.stklos b/Demos/Widget/Wicon.stklos
new file mode 100644
index 0000000..03d3b0a
--- /dev/null
+++ b/Demos/Widget/Wicon.stklos
@@ -0,0 +1,42 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; buttons that display bitmaps instead of text.
+;;;;
+
+(define (demo-icon)
+  (let* ((w     (make-demo-toplevel  "icon"
+				     "Iconic Button Demonstration"   
+				     "This window shows three ways of using bitmaps or images in radiobuttons and checkbuttons.  On the left are two radiobuttons, each of which displays a bitmap and an indicator.  In the middle is a checkbutton that displays a different image depending on whether it is selected or not.  On the right is a checkbutton that displays a single bitmap but changes its background color to indicate whether or not it is selected."))
+	 (up    (make <Bitmap-Image> :file (string-append *STk-images* "flagup")))
+	 (down  (make <Bitmap-Image> :file (string-append *STk-images* "flagdown")))
+	 (left  (make <Frame> :parent w :border-width 10))
+	 (right (make <Frame> :parent w :border-width 10)))
+
+	;; Create Radio buttons
+	(pack (make <Radio-button>
+		    :parent left
+		    :bitmap (string-append "@" *STk-images* "letters")
+		    :variable 'letters
+		    :value "full")	      
+	      (make <Radio-button>
+		    :parent left
+		    :bitmap (string-append "@" *STk-images* "noletters")
+		    :variable 'letters
+		    :value "empty")
+	      :pady "3m")
+
+	;; Create check buttons
+	(pack (make <Check-button>
+		    :parent right
+		    :image down
+		    :select-image up
+		    :indicator-on #f)
+	      (make <Check-button>
+		    :parent right
+		    :bitmap (string-append "@" *STk-images* "letters")
+		    :indicator-on "0"
+		    :select-color "SeaGreen1")
+	      :side "left" :expand #t :padx "5m")
+	(pack left right :side "left" :expand #t)))
diff --git a/Demos/Widget/Wimage1.stklos b/Demos/Widget/Wimage1.stklos
new file mode 100644
index 0000000..1701e06
--- /dev/null
+++ b/Demos/Widget/Wimage1.stklos
@@ -0,0 +1,23 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script displays two image widgets.
+;;;;
+
+(require "Button")
+(require "Image")
+
+(define (demo-image1)
+  (let ((w (make-demo-toplevel "image1"
+			       "Image Demonstration #1"
+			       "This demonstration displays two images, each in a separate label widget.")))
+    
+    (pack (make <Label> 
+		:parent w
+		:image (make <Photo-Image> 
+			     :file (string-append *STk-images* "earth.gif")))
+	  (make <Label> 
+		:parent w
+		:image (make <Photo-Image> 
+			     :file (string-append *STk-images* "earthris.gif")))
+	  :side "top" :padx ".5m" :pady ".5m")))
diff --git a/Demos/Widget/Wimage2.stklos b/Demos/Widget/Wimage2.stklos
new file mode 100644
index 0000000..34c3f74
--- /dev/null
+++ b/Demos/Widget/Wimage2.stklos
@@ -0,0 +1,40 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script displays two image widgets.
+;;;;
+(require "Tk-classes")
+
+(define image-directory *STk-images*)
+
+(define (demo-image2)
+  (let* ((w   (make-demo-toplevel "image2"
+				  "Image Demonstration #2"
+				  "This demonstration allows you to view images using an Tk \"photo\" image.  First type a directory name in the listbox, then type Return to load the directory into the listbox.  Then double-click on a file name in the listbox to see that image."))
+	 (dir (make <Entry> :parent w :width 30 :text-variable 'image-directory))
+	 (lst (make <Scroll-listbox> :parent w 
+		    :value '("earth.gif" "earthris.gif" "mickey.gif" "teapot.ppm")))
+	 (img (make <Photo-Image>))
+	 (lab (make <Label> :parent w :image img)))
+    
+    (pack (make <Label> :parent w :text "Directory:") 
+	  dir 
+	  (make <Label> :parent w :text "File:")
+	  lst
+	  (make <Label> :parent w :text "Image:")
+	  lab
+	  :side "top" :anchor "w")
+    
+    ;; Add binding to listbox and entry
+    (let ((lb (slot-ref lst 'listbox)))
+      (bind lb  "<Double-1>" 
+	    (lambda ()
+	      (let ((file (selection 'get)))
+		(slot-set! img 'file (string-append image-directory "/" file)))))
+
+      (bind dir "<Return>" 
+	    (lambda () 
+	      (slot-set! lb 'value
+			 (sort (map basename 
+				    (glob (string-append image-directory "/*")))
+			       string<?)))))))
diff --git a/Demos/Widget/Witems.stklos b/Demos/Widget/Witems.stklos
new file mode 100644
index 0000000..1198acf
--- /dev/null
+++ b/Demos/Widget/Witems.stklos
@@ -0,0 +1,257 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a canvas that displays the
+;;;; canvas item types.
+;;;;
+
+(define (demo-items)
+  ;;
+  ;; Functions used by this demo
+  ;;
+  (let* ((w    (make-demo-toplevel  "items"
+				    "Canvas Item Demonstration"
+				    "This window contains a canvas widget with examples of the various kinds of items supported by canvases.  The following operations are supported:\n  Button-1 drag:\tmoves item under pointer.\n  Button-2 drag:\trepositions view.\n  Button-3 drag:\tstrokes out area.\n  Ctrl+f:\t\tprints items under area."))
+	 (c    (make <Scroll-Canvas>
+		     :parent	   w
+		     :scroll-region (list 0 0 '30c '24c) 
+		     :width  	   "15c" 
+		     :height 	   "10c"
+		     :relief	   "groove"
+		     :border-width 3
+		     :h-scroll-side "bottom"))
+	 (font1  "-Adobe-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-*")
+	 (font2  "-Adobe-Helvetica-Bold-R-Normal--*-240-*-*-*-*-*-*")
+	 (mono   (= (winfo 'depth c) 1))
+	 (blue   (if mono "black" "DeepSkyBlue3"))
+	 (red    (if mono "black" "red"))
+	 (bisque (if mono "black" "bisque3"))
+	 (green  (if mono "black" "SeaGreen3")))
+    
+      (pack c :expand #t :fill "both")
+      
+      ;; Display a 3x3 rectangular grid.
+      (make <Rectangle> :parent c :coords '(0c 0c 30c 24c)  :width 2)
+      (make <Line>      :parent c :coords '(0c 8c 30c 8c)   :width 2)
+      (make <Line>      :parent c :coords '(0c 16c 30c 16c) :width 2)
+      (make <Line>      :parent c :coords '(10c 0c 10c 24c) :width 2)
+      (make <Line>      :parent c :coords '(20c 0c 20c 24c) :width 2)
+
+      ;;
+      ;; Set up demos within each of the areas of the grid.
+      ;;
+
+      ;; Lines
+      (make <Text-item> :parent c :coords '(5c .2c) :text "Lines" :anchor "n")
+      (make <Line> :parent c :coords '(1c 1c 3c 1c 1c 4c 3c 4c) :width "2m" 
+	    :fill blue :cap "butt" :join "miter" :tags "item")
+      (make <Line> :parent c :coords '(4.67c 1c 4.67c 4c) :arrow "last" 
+	    :tags "item")
+      (make <Line> :parent c :coords '(6.33c 1c 6.33c 4c) :arrow "both" 
+	    :tags "item")
+      (make <Line> :parent c 
+	    :coords '(5c 6c 9c 6c 9c 1c 8c 1c 8c 4.8c 8.8c 4.8c 8.8c 1.2c 8.2c 1.2c 8.2c 4.6c 8.6c 4.6c 8.6c 1.4c 8.4c 1.4c 8.4c 4.4c) 
+	    :width 3 :fill red :tags "item")
+      (make <Line> :parent c :coords '(1c 5c 7c 5c 7c 7c 9c 7c) :width '.5c 
+	    :stipple (string-append "@" *STk-images* "grey.25")
+	    :arrow "both" :arrow-shape (list 15 15 7) :tags "item")
+      (make <Line> :parent c 
+	    :coords '(1c 7c 1.75c 5.8c 2.5c 7c 3.25c 5.8c 4c 7c) :width '.5c
+	    :cap-style "round" :join-style "round" :tags "item")
+
+      ;; Smoothed lines
+       (make <Text-item> :parent c :coords '(15c .2c) 
+	     :text "Curves (smoothed lines)" :anchor "n")
+       (make <Line> :parent c :coords '(11c 4c 11.5c 1c 13.5c 1c 14c 4c)
+	     :smooth #t :fill blue :tags "item")
+       (make <Line> :parent c :coords '(15.5c 1c 19.5c 1.5c 15.5c 4.5c 19.5c 4c)
+	     :smooth #t :arrow "both" :width 3 :tags "item")
+       (make <Line> :parent c 
+	     :coords '(12c 6c 13.5c 4.5c 16.5c 7.5c 18c 6c 16.5c 4.5c 13.5c 7.5c 12c 6c)
+	     :smooth #t :width '3m :cap-style "round"
+	     :stipple (string-append "@" *STk-images* "grey.25")
+	     :fill red :tags "item")
+
+       ;; Polygons
+       (make <Text-item> :parent c :coords '(25c .2c) :text "Polygons"
+	     :anchor "n")
+       (make <Polygon> :parent c 
+	     :coords '(21c 1.0c 22.5c 1.75c 24c 1.0c 23.25c 2.5c 24c 4.0c 22.5c 3.25c 21c 4.0c 21.75c 2.5c)
+	     :fill green :outline "black" :width 4 :tags "item")
+       (make <Polygon> :parent c 
+	     :coords '(25c 4c 25c 4c 25c 1c 26c 1c 27c 4c 28c 1c 29c 1c 29c 4c 29c 4c)
+	     :fill red :smooth #t :tags "item")
+       (make <Polygon> :parent c 
+	     :coords '(22c 4.5c 25c 4.5c 25c 6.75c 28c 6.75c 28c 5.25c 24c 5.25c 24c 6.0c 26c 6c 26c 7.5c 22c 7.5c)
+	     :stipple (string-append "@" *STk-images* "grey.25")
+	     :outline "black" :tags "item")
+
+       ;; Rectangles
+       (make <Text-item> :parent c :coords '(5c 8.2c) :text "Rectangles" 
+	     :anchor "n")
+       (make <Rectangle> :parent c :coords '(1c 9.5c 4c 12.5c)
+	     :outline red :width '3m :tags "item")
+       (make <Rectangle> :parent c :coords '(0.5c 13.5c 4.5c 15.5c)
+	     :fill green :tags "item")
+       (make <Rectangle> :parent c :coords '(6c 10c 9c 15c)
+	     :stipple (string-append "@" *STk-images* "grey.25")
+	     :outline "" :fill blue :tags "item")
+
+       ;; Ovals
+       (make <Text-item> :parent c :coords '(15c 8.2c) :text "Ovals" :anchor "n")
+       (make <Oval> :parent c :coords '(11c 9.5c 14c 12.5c)
+	     :outline red :width '3m :tags "item")
+       (make <Oval> :parent c :coords '(10.5c 13.5c 14.5c 15.5c)
+	     :fill green :tags "item")
+       (make <Oval> :parent c :coords '(16c 10c 19c 15c)
+	     :stipple (string-append "@" *STk-images* "grey.25")
+	     :outline "" :fill blue :tags "item")
+
+       ;; Texts
+       (make <Text-item> :parent c :coords '(25c 8.2c) :text "Text" :anchor "n")
+       (make <Rectangle> :parent c :coords '(22.4c 8.9c 22.6c 9.1c))
+       (make <Text-item> :parent c :coords '(22.5c 9c) :anchor "n"
+	     :font font1 :width '4c 
+	     :text "A short string of text, word-wrapped, justified left, and anchored north (at the top).  The rectangles show the anchor points for each piece of text." 
+	     :tags "item")
+       (make <Rectangle> :parent c :coords '(25.4c 10.9c 25.6c 11.1c))
+       (make <Text-item> :parent c :coords '(25.5c 11c) :anchor "w" 
+	     :font font1 :fill blue
+	     :text "Several lines,\n each centered\nindividually,\nand all anchored\nat the left edge." 
+	     :justify "center" :tags "item")
+       (make <Rectangle> :parent c :coords '(24.9c 13.9c 25.1c 14.1c))
+       (make <Text-item> :parent c :coords '(25c 14c)
+	     :font font2 :anchor "c" :fill red
+	     :stipple (string-append "@" *STk-images* "grey.5")
+	     :text "Stippled characters" :tags "item")
+
+       ;; Arcs
+       (make <Text-item> :parent c :coords '(5c 16.2c) :text "Arcs" :anchor "n")
+       (make <Arc> :parent c :coords '(0.5c 17c 7c 20c) :fill green 
+	     :outline "black" :start 45 :extent 270 :style "pieslice" :tags "item")
+       (make <Arc> :parent c :coords '(6.5c 17c 9.5c 20c) :width '4m :style "arc"
+	     :outline blue :start -135 :extent 270
+	     :outline-stipple (string-append "@" *STk-images* "grey.25")
+	     :tags "item")
+       (make <Arc> :parent c :coords '(0.5c 20c 9.5c 24c) :width '4m 
+	     :style "pieslice" :fill "" :outline red :start 225 :extent -90 
+	     :tags "item")
+       (make <Arc> :parent c :coords '(5.5c 20.5c 9.5c 23.5c) :width '4m 
+	     :style "chord" :fill blue :outline "" :start 45 :extent 270 
+	     :tags "item")
+       
+       ;; Bitmaps
+       (make <Text-item> :parent c :coords '(15c 16.2c) :text "Bitmaps" :anchor "n")
+
+       (make <Bitmap-item> :parent c :coords '(13c 20c)
+	     :bitmap-name (string-append "@" *STk-images* "face")
+	     :tags "item")
+       (make <Bitmap-item> :parent c :coords '(17c 18.5c)
+	     :bitmap-name (string-append "@" *STk-images* "noletters")
+	     :tags "item")
+       (make <Bitmap-item> :parent c :coords '(17c 21.5c)
+	     :bitmap-name (string-append "@" *STk-images* "letters")
+	     :tags "item")
+       
+       ;; Windows
+       (make <Text-item> :parent c :coords '(25c 16.2c) :text "Windows" :anchor "n")
+       (make <Canvas-window> :parent c :coords '(21c 18c) :anchor "nw"
+	     :window (make <Button> :text "Press Me" :parent c
+			   :command (lambda () 
+				      (let ((i (make <Text-item> :parent c 
+						     :coords '(25c 18.1c) 
+						     :anchor "n" 
+						     :text "Ouch!!" 
+						     :fill "Red")))
+					(after 500 (lambda ()
+						     (destroy i))))))
+	     :tags "item")
+       (make <Canvas-window> :parent c :coords '(21c 21c) :anchor "nw"
+	     :window (make <Entry>  :parent c :width 20 :relief "sunken"
+			   :value "Edit thid text")
+	     :tags "item")
+      
+       (make <Canvas-window> :parent c :coords '(28.5c 17.5c) :anchor "n" 
+	     :window (make <Scale> :parent c :from 0 :to 100 :length '6c 
+			   :slider-length '.4c :width '.5c :tick-interval 0)
+	     :tags "item")
+       (make <Text-item> :parent c :coords '(21c 17.9c) :text "Button" :anchor "sw")
+       (make <Text-item> :parent c :coords '(21c 20.9c) :text "Entry"  :anchor "sw")
+       (make <Text-item> :parent c :coords '(28.5c 17.4c) :text "Scale" :anchor "s")
+
+       ;; Set up event bindings for canvas:
+       (let ((action #f)
+	     (x0 0) (y0 0)
+	     (x1 0) (y1 0)
+	     (x2 0) (y2 0))
+
+	 (define (item-enter c)
+	   (let ((item (car (find-items c 'with "current"))))
+	     (cond
+	      ((= (winfo 'depth c) 1)  
+	       		(set! action #f))
+	      ((is-a? item <Canvas-window>)  
+			(set! action #f))
+	      ((is-a? item <Bitmap-item>)
+	       		(let ((bg (slot-ref item 'background)))
+			  (set! action `(slot-set! ,item 'background ,bg))
+			  (slot-set! item 'background "SteelBlue2")))
+	      ((and (or (is-a? item <Rectangle>)
+			(is-a? item <Oval>)
+			(is-a? item <Arc>))
+		    (equal? (slot-ref item 'fill) ""))
+	       		(let ((outline (slot-ref item 'outline)))
+			  (set! action `(slot-set! ,item 'outline ,outline))
+			  (slot-set! item 'outline "SteelBlue2")))
+	      (ELSE	(let ((fill (slot-ref item 'fill)))
+			  (set! action `(slot-set! ,item 'fill ,fill))
+			  (slot-set! item 'fill "SteelBlue2"))))))
+
+	 ;; Utility procedures for stroking out a rectangle and printing what's
+	 ;; underneath the rectangle's area.
+	 
+	 (define (item-mark c x y)
+	   (set! x1 (canvas-x c x))
+	   (set! y1 (canvas-y c y))
+	   (canvas-delete c "area"))
+
+	 (define (item-stroke c x y)
+	   (let ((x (canvas-x c x))
+		 (y (canvas-y c y)))
+	     (unless (and (= x x1) (= y y1))
+	       (canvas-delete c "area")
+	       (make <Rectangle> :parent c :coords (list x1 y1 x y) :tags "area")
+	       (set! x2 x)
+	       (set! y2 y))))
+
+	 (define (items-under-area c)
+	   (format #t "Items enclosed by area: ~S\n" 
+		   (find-items c 'enclosed x1 y1 x2 y2))
+	   (format #t "Items overlapping area: ~S\n"
+		   (cdr (reverse (find-items c 'overlapping x1 y1 x2 y2)))))
+
+	 ;; Utility procedures to support dragging of items.
+	 (define (item-start-drag c x y)
+	   (set! x0 (canvas-x c x))
+	   (set! y0 (canvas-x c y)))
+	 
+	 (define (item-drag c x y)
+	   (let ((x (canvas-x c x))
+		 (y (canvas-x c y)))
+	     (move c "current" (- x x0) (- y y0))
+	     (set! x0 x)
+	     (set! y0 y)))
+
+       (bind c "item" "<Any-Enter>" (lambda () (item-enter c)))
+       (bind c "item" "<Any-Leave>" (lambda () (eval action)))
+
+       (bind c "<1>" 		    (lambda (x y) (item-start-drag c x y)))
+       (bind c "<B1-Motion>" 	    (lambda (x y) (item-drag c x y)))
+       (bind c "<2>" 		    (lambda (x y) (scan c 'mark x y)))
+       (bind c "<B2-Motion>"	    (lambda (x y) (scan c 'dragto x y)))
+       (bind c "<3>" 	    	    (lambda (x y) (item-mark c x y)))
+       (bind c "<B3-Motion>" 	    (lambda (x y) (item-stroke c x y)))
+       (bind c "<Control-f>"	    (lambda () (items-under-area c))))
+       (focus c)
+       
+))
diff --git a/Demos/Widget/Wlabel.stklos b/Demos/Widget/Wlabel.stklos
new file mode 100644
index 0000000..d52da9e
--- /dev/null
+++ b/Demos/Widget/Wlabel.stklos
@@ -0,0 +1,34 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; several label widgets.
+;;;;
+
+(require "Button")
+
+(define (demo-label)
+  (let* ((w     (make-demo-toplevel "label"
+				    "Label Demonstration"  
+				    "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right.  Labels are pretty boring because you can't do anything with them."))
+	 (left  (make <Frame> :parent w))
+	 (right (make <Frame> :parent w)))
+    
+    ;; The labels on the left
+    (pack (make <Label> :parent left :text "First label")
+	  (make <Label> :parent left :text "Second label, raised" :relief "raised")
+	  (make <Label> :parent left :text "Third label, sunken"  :relief "sunken")
+	  :side "top"
+	  :expand #t
+	  :pady 2
+	  :anchor "w")
+
+    ;; labels on the right
+    (pack (make <Label> :parent right :border-width 2 :relief "sunken"
+		:bitmap (string-append "@" *STk-images* "face"))
+	  (make <Label> :parent right :text "Tcl/Tk Proprietor")
+	  :side "top")
+
+    (pack left right :side "left"   :expand #t :padx 10 :pady 10 :fill "both")))
+
+
diff --git a/Demos/Widget/Wmenu.stklos b/Demos/Widget/Wmenu.stklos
new file mode 100644
index 0000000..84527ef
--- /dev/null
+++ b/Demos/Widget/Wmenu.stklos
@@ -0,0 +1,115 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a window with a bunch of menus
+;;;; and cascaded menus.
+;;;;
+
+
+(define (demo-menu)
+  (let ((w   (make-demo-toplevel  "menu" "Menu Demonstration" #f))
+	(txt "This window contains a collection of menus and cascaded menus.  You can post a menu from the keyboard by typing Alt+x, where \"x\" is the character underlined on the menu.  You can then traverse among the menus using the arrow keys.  When a menu is posted, you can invoke the current entry by typing space, or you can invoke any entry by typing its underlined character.  If a menu entry has an accelerator, you can invoke the entry without posting the menu just by typing the accelerator."))
+    (define (mess str) 
+      (error "This is just a demo: no action has been defined for the \"~A\" entry"
+	     str))
+    
+    (define (print-letter letter)
+      (let ((binding (lambda () (display letter) (newline))))
+	(bind w (format #f "<Meta-~A>" letter) binding)
+	`(command :label ,(format #f "Print letter ~S" letter) :underline 14 
+		  :accel ,(format #f "Meta+~a" letter) :command ,binding)))
+
+    (define (print-hello-goodbye text letter)
+      (let ((binding (lambda () (display text) (newline))))
+	(bind w (format #f "<Control-~A>" letter) binding)
+	`(command :label ,(format #f "Print ~A" text)
+		  :underline 6 :accel ,(format #f "Control+~a" letter)
+		  :command ,binding)))
+
+    (define (print-message mess)
+      `(command :label ,mess :command ,(lambda ()
+					 (format #t "You invoked ~S\n" mess))))
+
+    (define (print-message2 mess)
+      `(command :label ,mess :background ,mess
+		:command ,(lambda () (format #t "You invoked ~S\n" mess))))
+    
+    (define f (make-menubar w 
+	`(("File" 
+	     ("Open ..." 	,(lambda () (mess "Open ...")))
+	     ("New"	 	,(lambda () (mess "New")))
+	     ("Save"	 	,(lambda () (mess "Save")))
+	     ("Save As ..."	,(lambda () (mess "Save As ...")))
+	     ("")
+	     ("Print Setup ..." ,(lambda () (mess "Print Setup ...")))
+	     ("Print ..."	,(lambda () (mess "Print ...")))
+	     ("")
+	     ("Quit"		,(lambda () (destroy (winfo 'toplevel w)))))
+	  ("Basic"
+	     ("Long entry that does nothing"
+	      			,(lambda () #f))
+	     ,(print-letter "a")
+	     ,(print-letter "b")
+	     ,(print-letter "c")
+	     ,(print-letter "d")
+	     ,(print-letter "e")
+	     ,(print-letter "f")
+	     ,(print-letter "g"))
+	  ("Cascades"
+	     ,(print-hello-goodbye "Hello" "a") 
+	     ,(print-hello-goodbye "Goodbye" "b")
+	     ("Check buttons"
+	         ((check :label "Oil checked" :variable oil)
+		  (check :label "Transmission checked" :variable trans)
+		  (check :label "Brakes checked" :variable brakes)
+		  (check :label "Lights checked" :variable lights)
+		  ("")
+		  ("Show current values" 
+		   		,(lambda () 
+				   (show-variables w '(oil trans brakes lights))))))
+	     ("Radio buttons"
+	         ((radio :label "10 point" :variable point-size :value 10)
+		  (radio :label "14 point" :variable point-size :value 14)
+		  (radio :label "18 point" :variable point-size :value 18)
+		  (radio :label "24 point" :variable point-size :value 24)
+		  (radio :label "32 point" :variable point-size :value 32)
+		  ("")
+		  (radio :label "Roman"  :variable style :value "roman")
+		  (radio :label "Bold"   :variable style :value "bold")
+		  (radio :label "Italic" :variable style :value "italic")
+		  ("")
+		  ("Show current values" 
+		         ,(lambda () (show-variables w '(style point-size)))))))
+	  ("Icons"
+  	     (command :bitmap ,(string-append "@" *stk-images* "/pattern")
+		      :command ,(lambda ()
+				  (STk:make-dialog :text "The menu entry you invoked displays a bitmap rather than a text string.  Other than this, it is just like any other menu entry." :buttons (list (list "OK" (lambda () 'OK))))))
+	     (command :bitmap "info" 
+		      :command (format #t "You invoked the info bitmap\n"))
+	     (command :bitmap "questhead" 
+		      :command (format #t "You invoked the questhead bitmap\n"))
+	     (command :bitmap "error" 
+		      :command (format #t "You invoked the error bitmap\n")))
+	  ("More"
+	     ,(print-message "An entry")
+	     ,(print-message "Another entry")
+	     ,(print-message "Does nothing")
+	     ,(print-message "Does almost nothing")
+	     ,(print-message "Make life meaningful"))
+
+	  ("Colors"
+	     ,(print-message2 "red")
+	     ,(print-message2 "orange")
+	     ,(print-message2 "yellow")
+	     ,(print-message2 "green")
+	     ,(print-message2 "blue")))))
+
+    (slot-set! f 'border-width 3)
+    (slot-set! f 'relief "raised")
+    (pack f 
+	  (make <Label> :parent w 
+			:wrap-length 	"4i" 
+			:justify 	"left"
+			:font		demo-font
+			:text txt)
+	  :expand #t :fill "x")))
diff --git a/Demos/Widget/Wplot.stk b/Demos/Widget/Wplot.stk
new file mode 100644
index 0000000..733fddd
--- /dev/null
+++ b/Demos/Widget/Wplot.stk
@@ -0,0 +1,81 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a canvas widget showing a 2-D
+;;;; plot with data points that can be dragged with the mouse.
+;;;;
+
+;; demo-plot can be used also by the text embedded windows demos. In this case,
+;; it is called with an argument which its embedding window
+
+(define (demo-plot . arg)
+  (let* ((w          (if (null? arg)
+			 (make-demo-toplevel  "plot"
+					      "Plot Demonstration"
+					      "This window displays a canvas widget containing a simple 2-dimensional plot.  You can doctor the data by dragging any of the points with mouse button 1.")
+			 (car arg)))
+	 (c          (make <Canvas> :parent w :width 450 :height 300
+			   	    :cursor "top_left_arrow"))
+	 (plot-font  "-*-Helvetica-Medium-R-Normal--*-180-*-*-*-*-*-*")
+	 (last-x     0)
+	 (last-y     0))
+
+    (define (plot-down w x y)
+      (delete-tag w 'selected)
+      (add-tag w 'selected 'withtag 'current)
+      (raise c 'current)
+      (set! last-x x)
+      (set! last-y y))
+    
+    (define (plot-move w x y)
+      (move c 'selected (- x last-x) (- y last-y))
+      (set! last-x x)
+      (set! last-y y))
+    
+    (pack c :side "top" :fill "x")
+    
+    (make <Line>      :parent c :coords '(100 250 400 250) :width 2)
+    (make <Line>      :parent c :coords '(100 250 100 50)  :width 2)
+    (make <Text-item> :parent c :coords '(225 20) :text "A Simple Plot"
+	    	      :font plot-font :fill "brown")
+      
+    (dotimes (i 11)
+      (let ((x (+ 100 (* 30 i))))
+	(make <Line> 	    :parent c :coords (list x 250 x 245) :width 2)
+	(make <Text-item> :parent c :coords (list x 254) :anchor "n"
+	      		  :text (* 10 i) :font plot-font)))
+
+    (dotimes (i 6)
+      (let ((y (- 250 (* 40 i))))
+	(make <Line> 	  :parent c :coords (list 100 y 105 y) :width 2)
+	(make <Text-item> :parent c :coords (list 96 y) :anchor "e"
+			  :text (* 50 i) :font plot-font)))
+      
+    (for-each (lambda (point)
+		(let ((x (+ 100 (* 3 (car point))))
+		      (y (- 250 (* 0.8 (cadr point)))))
+		  (make <Oval> :parent  c 
+			       :coords  (list (- x 6) (- y 6) (+ x 6) (+ y 6))
+			       :width 1 
+			       :outline "black"
+			       :fill "SkyBlue2"
+			       :tags "point")))
+	      '((12 56) (20 94) (33 98) (32 120) (61 180) (75 160) (98 223)))
+
+
+    (bind c "point" "<Any-Enter>" 
+	  (lambda () 
+	    (let ((i (car (find-items c 'withtag 'current))))
+	      (set! (fill i) "red"))))
+
+    (bind c "point" "<Any-Leave>" 
+	  (lambda () 
+	    (let ((i (car (find-items c 'withtag 'current))))
+	      (set! (fill i) "SkyBlue2"))))
+      
+    (bind c "point" "<1>" (lambda (x y) (plot-down c x y)))
+    (bind c "point" "<ButtonRelease-1>" (lambda ()
+					  (delete-tag c 'selected)))
+
+    (bind c "<B1-Motion>" (lambda (x y) (plot-move c x y)))
+    c))
diff --git a/Demos/Widget/Wpuzzle.stklos b/Demos/Widget/Wpuzzle.stklos
new file mode 100644
index 0000000..d64b4d8
--- /dev/null
+++ b/Demos/Widget/Wpuzzle.stklos
@@ -0,0 +1,60 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; buttons that display bitmaps instead of text.
+;;;;
+
+(require "Button")
+
+(define (demo-puzzle)
+  
+  (define (puzzle-switch w num xpos ypos space)
+    (let ((x     (vector-ref xpos num)) 
+	  (y     (vector-ref ypos num))
+	  (x_spc (vector-ref xpos space)) 
+	  (y_spc (vector-ref ypos space)))
+      (when (or (and (>= y (- y_spc 0.01)) (<= y (+ y_spc 0.01))
+		     (>= x (- x_spc 0.26)) (<= x (+ x_spc 0.26)))
+		(and (>= x (- x_spc 0.01)) (<= x (+ x_spc 0.01))
+		     (>= y (- y_spc 0.26)) (<= y (+ y_spc 0.26))))
+	    (vector-set! xpos space x)
+	    (vector-set! xpos num x_spc)
+	    (vector-set! ypos space y)
+	    (vector-set! ypos num y_spc)
+	    (place w :relx x_spc :rely y_spc))))
+
+
+  (let* ((w     (make-demo-toplevel "puzzle"
+				    "15-Puzzle Demonstration"
+				    "This window shows three ways of using bitmaps or images in radiobuttons and checkbuttons.  On the left are two radiobuttons, each of which displays a bitmap and an indicator.  In the middle is a checkbutton that displays a different image depending on whether it is selected or not.  On the right is a checkbutton that displays a single bitmap but changes its background color to indicate whether or not it is selected."))
+	 (frame	(make <Frame> :parent w :width 120 :height 120 :border-width 2
+		      	      :relief "sunken")))
+
+    (pack frame :side "top" :pady 20 :padx 20)
+
+    (let ((order '#(3 1 6 2 5 7 15 13 4 11 8 9 14 10 12))
+	  (xpos  (make-vector 16))
+	  (ypos  (make-vector 16))
+	  (space 0))
+	  
+      (do ((i   0 (+ i 1)))
+	  ((= i 15))
+	  (let* ((num (vector-ref order i))
+		 (b   (make <Button> :parent frame :text num
+			    :highlight-thickness 0)))
+	    ;; Set the command of the button (and grab current environment)
+	    (set! (command b)  (lambda ()
+				 (puzzle-switch b num xpos ypos space)))
+		 
+	    (vector-set! xpos num (* (modulo i 4) 0.25))
+	    (vector-set! ypos num (* (floor (/ i 4)) 0.25))
+	    
+	    (place b :relx (vector-ref xpos num)
+		     :rely (vector-ref ypos num)
+		     :relwidth 0.25
+		     :relheight 0.25)))
+      (vector-set! xpos space 0.75)
+      (vector-set! ypos space 0.75))))
+
+
diff --git a/Demos/Widget/Wradio.stklos b/Demos/Widget/Wradio.stklos
new file mode 100644
index 0000000..98b6730
--- /dev/null
+++ b/Demos/Widget/Wradio.stklos
@@ -0,0 +1,46 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a toplevel window containing
+;;;; several  radiobutton widgets.
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require "Button")
+
+(define (demo-radio)
+  (let* ((w      (make-demo-toplevel "radio"
+				     "Radiobutton Demonstration"
+				     "Two groups of radiobuttons are displayed below.  If you click on a button then the button will become selected exclusively among all the buttons in its group.  A Tcl variable is associated with each group to indicate which of the group's buttons is selected.  Click the \"See Variables\" button to see the current values of the variables."
+				     'radio-size 'radio-color))
+	 (radios (make <Frame> :parent w))
+	 (left   (make <Frame> :parent radios))
+	 (right  (make <Frame> :parent radios)))
+
+	;; Create radiobuttons
+	(for-each (lambda (pt)
+		    (pack (make <Radio-button>
+				:parent left
+				:text (format #f "Point Size ~A" pt)
+				:variable 'radio-size
+				:relief "flat"
+				:width 15
+				:anchor "w"
+				:value pt)))
+		  '(10 12 18 24))
+	
+	(for-each (lambda (color)
+		    (pack (make <Radio-button>
+				:parent right
+				:text color 
+				:variable 'radio-color
+				:relief "flat"
+				:width 15
+				:anchor "w"
+				:value color)))
+		  '("Red" "Green" "Blue" "Yellow" "Orange" "Purple"))
+	
+	(pack left right :side "left" :expand #f :pady ".5c" :padx ".5c")
+	(pack radios)))
+
diff --git a/Demos/Widget/Wsayings.stklos b/Demos/Widget/Wsayings.stklos
new file mode 100644
index 0000000..81198a3
--- /dev/null
+++ b/Demos/Widget/Wsayings.stklos
@@ -0,0 +1,18 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a listbox that can be scrolled
+;;;; both horizontally and vertically.  It displays a collection of
+;;;; well-known sayings.
+;;;;
+(require "Tk-classes")
+
+(define (demo-sayings)
+  (let ((w (make-demo-toplevel "sayings"
+			       "Listbox Demonstration (well-known sayings)"
+			       "The listbox below contains a collection of well-known sayings.  You can scan the list using either of the scrollbars or by dragging in the listbox window with Shift key and button 2 pressed.")))
+
+    (pack (make <Scroll-listbox> :parent w
+		:h-scroll-side "bottom"
+		:v-scroll-side "right"
+		:value (list "Waste not, want not" "Early to bed and early to rise makes a man healthy, wealthy, and wise" "Ask not what your country can do for you, ask what you can do for your country" "I shall return" "NOT" "A picture is worth a thousand words" "User interfaces are hard to build" "Thou shalt not steal" "A penny for your thoughts" "Fool me once, shame on you;  fool me twice, shame on me" "Every cloud has a silver lining" "Where there's smoke there's fire" "It takes one to know one" "Curiosity killed the cat" "Take this job and shove it" "Up a creek without a paddle" "I'm mad as hell and I'm not going to take it any more" "An apple a day keeps the doctor away" "Don't look a gift horse in the mouth")))))
diff --git a/Demos/Widget/Wsearch.stklos b/Demos/Widget/Wsearch.stklos
new file mode 100644
index 0000000..0c6f9ae
--- /dev/null
+++ b/Demos/Widget/Wsearch.stklos
@@ -0,0 +1,85 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a collection of widgets that
+;;;; allow you to load a file into a text widget, then perform searches
+;;;; on that file.
+;;;;
+
+(define Wsearch-name   "")
+(define Wsearch-string "")
+
+
+(define (demo-search)
+  ;;
+  ;; Functions used by this demo
+  ;;
+  (define (load-file t file)
+    (text-delete t 0.0 "end")
+    (with-input-from-file file
+      (lambda ()
+	(do ((l (read-line) (read-line)))
+	    ((eof-object? l))
+	  (text-insert t "end" l)
+	  (text-insert t "end" "\n")))))
+
+
+  (define (search t str tag)
+    ; Search for all instances of a given string in a text widget and
+    ; apply a given tag to each instance found.
+    (tag-remove tag 0.0 "end")
+    (let ((length (string-length str)))
+      (when (> length 0)
+	 (let loop ((cur (text-search t str 1.0 "end")))
+	   (when cur
+	      (let ((last (cons (car cur) (+ (cdr cur) length))))
+		(tag-add tag cur last)
+		(loop (text-search t str last "end"))))))))
+
+  (define (toggle t tag)
+    (catch (let ((bg (slot-ref tag 'background))
+		 (fg (slot-ref tag 'foreground)))
+	     (slot-set! tag 'foreground bg)
+	     (slot-set! tag 'background fg)
+	     (update)
+	     (after t (lambda () (toggle t tag))))))
+
+  (let* ((w   (make-demo-toplevel  "search"
+				   "Text Demonstration - Search and Highlight"
+				   ""))
+	 (t   (make <Scroll-Text> :wrap "word" :parent w))
+	 (tag (make <Text-tag> :parent t :foreground "IndianRed1")))
+
+    (when (= (winfo 'depth w) 1)
+       (slot-set! tag 'background "white")
+       (slot-set! tag 'foreground "black"))	     
+
+    (let* ((f1 (make <Frame>  :parent w))
+	   (l1 (make <Label>  :parent f1 :text "File name:" :width 13 :anchor "w"))
+	   (e1 (make <Entry>  :parent f1 :width 40 :text-variable 'Wsearch-name))
+	   (b1 (make <Button> :parent f1 :text "Load File" 
+		     	      :command (lambda () (load-file t Wsearch-name))))
+	   (f2 (make <Frame>  :parent w))
+	   (l2 (make <Label>  :parent f2 :text "Search string:" :width 13
+		    	      :anchor "w"))
+	   (e2 (make <Entry>  :parent f2 :width 40 :text-variable 'Wsearch-string))
+	   (b2 (make <Button> :parent f2 :text "Highlight"
+		   	      :command (lambda () 
+					 (search t Wsearch-string tag)))))
+	  
+      (pack l1 e1 b1 :side "left" :expand #t)
+      (pack l2 e2 b2 :side "left" :expand #t)
+      (bind e1 "<Return>" (lambda () (load-file t Wsearch-name) (focus e2)))
+      (bind e2 "<Return>" (lambda () (search t Wsearch-string tag)))
+      (pack f1 f2 t :side "top")
+      
+      ;; Fill in text widget and pack it
+      (text-insert t "end" "This window demonstrates how to use the tagging facilities in text widgets to implement a searching mechanism.  First, type a file name in the top entry, then type <Return> or click on \"Load File\".  Then type a string in the lower entry and type <Return> or click on \"Highlight\".  This will cause all of the instances of the string to be tagged with the same tag, and it will arrange for the tag's display attributes to change to make all of the strings blink.")
+      (pack t :side "top" :expand #t :fill "both"))
+  
+    ;; Toggle the bg and fg colors of the search tag
+    (toggle 500 tag))
+  
+  ;; Reste global varaiable (for multiple executions)
+  (set! Wsearch-name   "")
+  (set! Wsearch-string ""))
diff --git a/Demos/Widget/Wstates.stklos b/Demos/Widget/Wstates.stklos
new file mode 100644
index 0000000..72dd20f
--- /dev/null
+++ b/Demos/Widget/Wstates.stklos
@@ -0,0 +1,33 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a listbox widget that displays
+;;;; the names of the 50 states in the United States of America.
+;;;;
+
+(require "Scrollbox")
+
+(define (demo-states)
+  (let* ((w     (make-demo-toplevel "states"
+				    "Listbox Demonstration (50 states)"
+				    "A listbox containing the 50 states is displayed below, along with a scrollbar.  You can scan the list either using the scrollbar or by scanning.  To scan, press Shift key and button 2 in the widget and drag up or down."))
+	 (l	'("Alabama" "Alaska" "Arizona" "Arkansas" "California" 
+		  "Colorado" "Connecticut" "Delaware" "Florida" "Georgia" 
+		  "Hawaii" "Idaho" "Illinois" "Indiana" "Iowa"
+		  "Kansas" "Kentucky" "Louisiana" "Maine" "Maryland"
+		  "Massachusetts" "Michigan" "Minnesota" "Mississippi" 
+		  "Missouri" "Montana" "Nebraska" "Nevada" "New Hampshire"
+		  "New Jersey" "New Mexico" "New York" "North Carolina"
+		  "North Dakota" "Ohio" "Oklahoma" "Oregon" "Pennsylvania"
+		  "Rhode Island" "South Carolina" "South Dakota" "Tennessee" 
+		  "Texas" "Utah" "Vermont" "Virginia" "Washington"
+		  "West Virginia" "Wisconsin" "Wyoming")))
+
+
+    (pack (make <Scroll-listbox> :parent w :value l)
+	  :padx 20 :pady 20)))
+
+
+    
+
+
diff --git a/Demos/Widget/Wstyles.stklos b/Demos/Widget/Wstyles.stklos
new file mode 100644
index 0000000..c0e5381
--- /dev/null
+++ b/Demos/Widget/Wstyles.stklos
@@ -0,0 +1,164 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a text widget that illustrates the
+;;;; various display styles that may be set for tags.
+;;;;
+(require "Tk-classes")
+
+(define (demo-styles)
+  (let* ((w          (make-demo-toplevel "styles"
+					 "Text Demonstration - Display Styles"
+					 ""))
+	 (t          (make <Scroll-Text> :parent w :setgrid #t :width 70 
+			   :height 23 :wrap "word"))
+	 (bold       (make <Text-tag> :parent t 
+			   :font "-*-Courier-Bold-O-Normal--*-120-*-*-*-*-*-*"))
+	 (big        (make <Text-tag> :parent t
+			   :font "-*-Courier-Bold-R-Normal--*-140-*-*-*-*-*-*"))
+	 (huge       (make <Text-tag> :parent t
+			   :font "-*-Helvetica-Bold-R-Normal--*-240-*-*-*-*-*-*"))
+	 (color1     (make <Text-tag> :parent t
+			   :background "#a0b7ce"))
+	 (color2     (make <Text-tag> :parent t
+			   :foreground "red"))
+	 (raised     (make <Text-tag> :parent t
+			   :relief "raised" :border-width 1))		       
+	 (sunken     (make <Text-tag> :parent t
+			   :relief "sunken" :border-width 1))
+	 (bgstipple  (make <Text-tag> :parent t
+			   :background "black" :border-width 0 
+			   :bg-stipple "gray25"))
+	 (fgstipple  (make <Text-tag> :parent t
+			   :fg-stipple "gray50"))
+	 (underline  (make <Text-tag> :parent t
+			   :underline #t))
+	 (overstrike (make <Text-tag> :parent t
+			   :overstrike #t))
+	 (right      (make <Text-tag> :parent t
+			   :justify "right"))
+	 (center     (make <Text-tag> :parent t
+			   :justify "center"))
+	 (super      (make <Text-tag> :parent t
+			   :font "-Adobe-Courier-Medium-R-Normal--*-100-*-*-*-*-*-*"
+			   :offset 4))
+	 (sub 	     (make <Text-tag> :parent t
+			   :font "-Adobe-Courier-Medium-R-Normal--*-100-*-*-*-*-*-*"
+			   :offset -2))
+	 (margins    (make <Text-tag> :parent t
+			   :lmargin1 "12m" 
+			   :lmargin2 "6m"
+			   :rmargin  "10m"))
+	 (spacing    (make <Text-tag> :parent t
+			   :spacing1 "10p" 
+			   :spacing2 "2p"
+			   :lmargin1 "12m"
+			   :lmargin2 "6m" 
+			   :rmargin "10m")))
+
+    (when (= (winfo 'depth w) 1)
+        ;; Monochrome
+	(slot-set! color1 :background   "black")
+	(slot-set! color1 :foreground   "white")
+	(slot-set! color2 :background   "black")
+	(slot-set! color2 :foreground   "white")
+	(slot-set! raised :background   "white")
+	(slot-set! raised :relief       "raised")
+	(slot-set! raised :border-width 1)
+	(slot-set! sunken :background   "white")
+	(slot-set! sunken :relief       "sunken")
+	(slot-set! sunken :border-width 1))
+
+    (pack t :expand #t :fill "both")
+
+    (text-insert t "end" 
+"Text widgets like this one allow you to display information in a
+variety of styles.  Display styles are controlled using a mechanism
+called "						'()
+"tags" 							bold
+". Tags are just textual names that you can apply to one
+or more ranges of characters within a text widget.  You can configure
+tags with various display styles.  If you do this, then the tagged
+characters will be displayed with the styles you chose.  The
+available display styles are:" 				'()
+"\n1. Font." 						big
+"  You can choose any X font, " 			'()
+"large" 						huge
+" or "  						'()
+"small.\n"	 					'()
+"\n2. Color." 						big
+"  You can change either the " 				'()
+"background" 						color1
+" or "							'()
+"foreground" 						color2
+"\ncolor, or "						'()
+"both" 							(list color1 color2)
+".\n"							'()
+"\n3. Stippling." 					big
+"  You can cause either the "				'()
+"background" 						bgstipple
+" or "							'()
+"foreground " 						fgstipple
+"information to be drawn with a stipple fill instead of a solid fill."
+							'()
+"\n4. Underlining." 					big
+"  You can "						'()
+"underline" 						underline
+" ranges of text.\n"					'()
+"\n5. Overstrikes." 					big
+"  You can "						'()
+"draw lines through" 					overstrike
+" ranges of text.\n"					'()
+"\n6. 3-D effects." 					big
+"  You can arrange for the background to be drawn
+with a border that makes characters appear either "	'()
+"raised" 						raised
+" or "							'()
+"sunken" 						sunken
+".\n"							'()
+"\n7. Justification." 					big
+" You can arrange for lines to be displayed
+left-justified,\n"					'()
+"right-justified, or\n"					right
+"centered.\n" 						center
+"\n8. Superscripts and subscripts."  			big
+" You can control the vertical position of text \
+to generate superscript effects like 10"		'()
+"n" 							super
+" or\nsubscript effects like X"				'()
+"i" 							sub
+".\n"							'()
+"\n9. Margins." 					big
+" You can control the amount of extra space left"	'()
+" on\neach side of the text:\n"				'()
+"This paragraph is an example of the use of " 		margins
+"margins.  It consists of a single line of text "	margins
+"that wraps around on the screen.  There are two "	margins
+"separate left margin values, one for the first "	margins
+"display line associated with the text line, "		margins
+"and one for the subsequent display lines, which "	margins
+"occur because of wrapping.  There is also a "		margins
+"separate specification for the right margin, "		margins
+"which is used to choose wrap points for lines.\n"	margins
+"\n10. Spacing." 					big
+" You can control the spacing of lines with three\n"	'()
+"separate parameters.  \"Spacing1\" tells how much "	'()
+"extra space to leave\nabove a line, \"spacing3\" "	'()
+"tells how much space to leave below a line,\nand "	'()
+"if a text line wraps, \"spacing2\" tells how much "	'()
+"space to leave\nbetween the display lines that "	'()
+"make up the text line.\n"				'()
+"These indented paragraphs illustrate how spacing " 	spacing
+"can be used.  Each paragraph is actually a " 		spacing
+"single line in the text widget, which is " 		spacing
+"word-wrapped by the widget.\n" 			spacing
+"Spacing1 is set to 10 points for this text, " 		spacing
+"which results in relatively large gaps between " 	spacing
+"the paragraphs.  Spacing2 is set to 2 points, " 	spacing
+"which results in just a bit of extra space " 		spacing
+"within a pararaph.  Spacing3 isn't used " 		spacing
+"in this example.\n" 					spacing
+"To see where the space is, select ranges of " 		spacing
+"text within these paragraphs.  The selection " 	spacing
+"highlight will cover the extra space." 		spacing
+)))
diff --git a/Demos/Widget/Wtext.stklos b/Demos/Widget/Wtext.stklos
new file mode 100644
index 0000000..a5b6043
--- /dev/null
+++ b/Demos/Widget/Wtext.stklos
@@ -0,0 +1,66 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script creates a text widget that describes
+;;;; the basic editing functions.
+;;;;
+(require "Tk-classes")
+
+(define (demo-text)
+  (let ((w (make-demo-toplevel "text"
+			       "Text Demonstration - Basic Facilities"
+			       "")))
+    (pack (make <Text> :relief "sunken"
+		       :parent w
+		       :border-width 2 
+		       :set-grid #t
+		       :height 30
+		       :value 
+"This window is a text widget.  It displays one or more lines of text
+and allows you to edit the text.  Here is a summary of the things you
+can do to a text widget:
+
+1. Scrolling. Use the scrollbar to adjust the view in the text window.
+
+2. Scanning. Press mouse button 2 in the text window and drag up or down.
+This will drag the text at high speed to allow you to scan its contents.
+
+3. Insert text. Press mouse button 1 to set the insertion cursor, then
+type text.  What you type will be added to the widget.
+
+4. Select. Press mouse button 1 and drag to select a range of characters.
+Once you've released the button, you can adjust the selection by pressing
+button 1 with the shift key down.  This will reset the end of the
+selection nearest the mouse cursor and you can drag that end of the
+selection by dragging the mouse before releasing the mouse button.
+You can double-click to select whole words or triple-click to select
+whole lines.
+
+5. Delete and replace. To delete text, select the characters you'd like
+to delete and type Backspace or Delete.  Alternatively, you can type new
+text, in which case it will replace the selected text.
+
+6. Copy the selection. To copy the selection into this window, select
+what you want to copy (either here or in another application), then
+click button 2 to copy the selection to the point of the mouse cursor.
+
+7. Edit.  Text widgets support the standard Motif editing characters
+plus many Emacs editing characters.  Backspace and Control-h erase the
+character to the left of the insertion cursor.  Delete and Control-d
+erase the character to the right of the insertion cursor.  Meta-backspace
+deletes the word to the left of the insertion cursor, and Meta-d deletes
+the word to the right of the insertion cursor.  Control-k deletes from
+the insertion cursor to the end of the line, or it deletes the newline
+character if that is the only thing left on the line.  Control-o opens
+a new line by inserting a newline character to the right of the insertion
+cursor.  Control-t transposes the two characters on either side of the
+insertion cursor.
+
+7. Resize the window.  This widget has been configured with the \"set-grid\"
+option on, so that if you resize the window it will always resize to an
+even number of characters high and wide.  Also, if you make the window
+narrow you can see that long lines automatically wrap around onto
+additional lines so that all the information is always visible.")
+	:side "top"
+	:padx 5
+	:fill "both")))
\ No newline at end of file
diff --git a/Demos/Widget/Wvscale.stklos b/Demos/Widget/Wvscale.stklos
new file mode 100644
index 0000000..202e9b7
--- /dev/null
+++ b/Demos/Widget/Wvscale.stklos
@@ -0,0 +1,30 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This demonstration script shows an example with a vertical scale.
+;;;;
+
+(define (demo-vscale)
+  
+  (define (set-height! c poly line height)
+    (let* ((height (+ height 21))
+	   (y2     (max (- height 30) 21)))
+      (set! (coords poly) (list 15 20 35 20 35 y2 45 y2 25 height 5 y2 15 y2 15 20))
+      (set! (coords line) (list 15 20 35 20 35 y2 45 y2 25 height 5 y2 15 y2 15 20))))
+
+  (let* ((w (make-demo-toplevel  "vscale"
+				 "Vertical Scale Demonstration"
+				 "An arrow and a vertical scale are displayed below.  If you click or drag mouse button 1 in the scale, you can change the size of the arrow."))
+	 (f    (make <Frame> :parent w :border-width 10))
+	 (c    (make <Canvas> :parent f :width 50 :height 50 :border-width 0 
+		     :highlight-thickness 0))
+	 (poly  (make <Polygon> :parent c :coords '(0 0 1 1 2 2) :fill "SeaGreen3"))
+	 (line  (make <Line> :parent c :coords '(0 0 1 1 2 2 0 0) :fill "black"))
+	 (s     (make <Scale> :parent f :orientation "vertical" :scale-length 284 
+		      :from 0 :to 250
+		      :tick-interval 50 :value 75
+		      :command (lambda (v) (set-height! c poly line v)))))
+    
+    (pack f)
+    (pack s :side "left" :anchor "ne")
+    (pack c :side "left" :anchor "nw" :fill "y")))
diff --git a/Demos/Widget/Wwind.stklos b/Demos/Widget/Wwind.stklos
new file mode 100644
index 0000000..4137b98
--- /dev/null
+++ b/Demos/Widget/Wwind.stklos
@@ -0,0 +1,105 @@
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;;  This demonstration script creates a text widget with a bunch of
+;;;; embedded windows.
+;;;;
+
+(define (demo-wind)
+
+  (define embedded-canvas #f)
+
+  (define (text-window-on t)
+    (slot-set! t 'wrap "none")
+    (slot-set! t 'h-scroll-side "bottom"))
+
+  (define (text-window-off t)
+    (slot-set! t 'wrap "word")
+    (slot-set! t 'h-scroll-side #f))
+
+  (define (text-window-plot t mark)
+    (unless embedded-canvas 
+      (let ((idx (Mid mark)))
+	(text-insert t idx "\n")
+	(set! embedded-canvas (demo-plot t))
+	(make <Text-window> :parent t :index idx :window embedded-canvas)
+	(text-insert t idx"\n"))))
+
+  (define (text-window-delete t mark)
+    (when embedded-canvas
+      (destroy embedded-canvas)
+      (text-delete t mark)
+      (text-delete t mark)
+      (text-delete t mark)
+      (set! embedded-canvas #f)))
+    
+  (let* ((w     (make-demo-toplevel  "wind"
+				     "Text Demonstration - Embedded Windows"
+				     ""))
+	 (t	(make <Scroll-text> :parent w :set-grid #t :font demo-font 
+		      :width 70 :height 35 :wrap "word" :highlight-thickness 0 
+		      :border-width 0))
+	 (on    (make <Button> :parent t :text "Turn On" :cursor "top_left_arrow"
+		      :command (lambda () (text-window-on t))))
+	 (off   (make <Button> :parent t :text "Turn Off" :cursor "top_left_arrow"
+		      :command (lambda () (text-window-off t))))
+	 (mrk  #f)
+	 (click (make <Button> :parent t :text "Click here" :cursor "top_left_arrow"
+		      :command (lambda () (text-window-plot t mrk))))
+	 (del	(make <Button> :parent t :text "Delete" :cursor "top_left_arrow"
+		      :command (lambda () (text-window-delete t mrk)))))
+
+    (pack t :expand #t :fill "both")
+
+    (text-insert t "end" "A text widget can contain other widgets embedded it.  These are called \"embedded windows\", and they can consist of arbitrary widgets.  For example, here are two embedded button widgets.  You can click on the first button to ")
+    (make <Text-window> :window on :index "end")
+    (text-insert t "end" " horizontal scrolling, which also turns off word wrapping.  Or, you can click on the second button to\n")
+    (make <Text-window> :window off :index "end")
+    (text-insert t "end" " horizontal scrolling and turn back on word wrapping.\n\nOr, here is another example.  If you ")
+    (make <Text-window> :window click :index "end")
+    (text-insert t "end" " a canvas displaying an x-y plot will appear right here. ")
+
+    (set! mrk (make <Text-mark> :parent t :gravity "left"  :index "insert"))
+    
+    (text-insert t "end" "You can drag the data points around with the mouse, or you can click here to ")
+    (make <Text-window> :window del :index "end")
+    (text-insert t "end" " the plot again.\n\n")
+
+    (text-insert t "end" "You may also find it useful to put embedded windows in a text without any actual text.  In this case the text widget acts like a geometry manager.  For example, here is a collection of buttons laid out neatly into rows by the text widget.  These buttons can be used to change the background color of the text widget (\"Default\" restores the color to its default).  If you click on the button labeled \"Short\", it changes to a longer string so that you can see how the text widget automatically changes the layout.  Click on the button again  to restore the short string.\n")
+    (make <Text-window> 
+	  :index "end" 
+	  :pad-x 3
+	  :pad-x 2
+	  :window (make <Button> 
+			:parent t
+			:text "Default"
+			:cursor "top_left_arrow"
+			:command (lambda () 
+				   (slot-set! t 'background 
+					      (get-Tk-default-value t 
+								    'background)))))
+    (make <Text-window>
+	  :index "end"
+	  :pad-x 3
+	  :pad-y 2
+	  :window (make <Check-Button>
+			:parent t
+			:text-variable 'demo-wind-toggle
+			:indicator-on #f
+			:variable 'demo-wind-toggle
+			:string-value #t
+			:on-value "A much longer string"
+			:off-value "Short"
+			:cursor "top_left_arrow"))
+    (for-each (lambda (color)
+		(make <Text-window>
+		      :index "end"
+		      :pad-x 3
+		      :pad-y 2
+		      :window (make <Button>
+				    :parent t
+				    :text color
+				    :cursor "top_left_arrow"
+				    :command (lambda ()
+					       (slot-set! t 'background color)))))
+	      '("AntiqueWhite3" "Bisque1" "Bisque2" "Bisque3" "Bisque4" "SlateBlue3" "RoyalBlue1" "SteelBlue2" "DeepSkyBlue3" "LightBlue1" "DarkSlateGray1" "Aquamarine2" "DarkSeaGreen2" "SeaGreen1" "Yellow1" "IndianRed1" "IndianRed2" "Tan1" "Tan4"))))
diff --git a/Demos/Widget/widget.stk b/Demos/Widget/widget.stk
new file mode 100644
index 0000000..13e8af9
--- /dev/null
+++ b/Demos/Widget/widget.stk
@@ -0,0 +1,282 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This script demonstrates the various widgets provided by Tk, along
+;;;; with many of the features of the Tk toolkit.  This file only
+;;;; contains code to generate the main window for the application,
+;;;; which invokes individual demonstrations.  The code for the actual
+;;;; demonstrations is contained in separate ".stklos" files in this
+;;;; directory, which are sourced by this script as needed.
+
+(require "Tk-classes")
+
+(define demo-font     "-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*")
+(define *STk-images*  (string-append  *STk-library* "/images/"))
+(set!   *load-path*   `("./Widget" 
+			,(string-append *STk-library* "/demos")
+			,@*load-path*))
+
+;;
+;; make-demo-toplevel
+;;
+(define (make-demo-toplevel name title text . variables)
+  (let* ((t (make <Toplevel> :title title :geometry "+300+300"))
+	 (f (make <Frame> :parent t))
+	 (b (make <Frame> :parent t)))
+
+    ;; Pack the demo text
+    (when text 
+      (pack (make <Label> :font   	demo-font 
+		  	  :parent 	t
+			  :wrap-length 	"4i"
+			  :justify 	"left" 
+			  :text 	text)
+	    :side "top" :expand #f :fill "both"))
+    
+    ;; Pack the frame where the demo will be done
+    (pack f :side "top" :expand #t :fill "both")
+    
+    ;; Add the two bottom buttons
+    (pack (make <Button> :parent b :text "Dismiss" 
+		:command (lambda () (destroy t)))
+	  (make <Button> :parent b :text "See Code" 
+		:command (lambda () (show-code name)))
+	  :side   "left"
+	  :expand #t)
+
+    ;; If variables is not null, add a 'See variables' button
+    (unless (null? variables)
+       (pack (make <Button> :parent b :text "Show Variables"
+		   :command (lambda () (show-variables t variables)))
+	     :side   "left"
+	     :expand #t))
+    
+    (pack b :side "bottom" :expand #f :fill "x" :pady "2m")
+
+    ;; return the middle frame
+    f))
+
+
+;;;; show-code
+;;;; This procedure creates a toplevel window that displays the code for
+;;;; a demonstration and allows it to be edited and reinvoked.
+(define (show-code name)
+  (define (show file)
+    (if (file-exists? file)
+	(let* ((top (make <Toplevel> :title (format #f "Demo code: ~A" file)
+			  	     :geometry "+400+400"))
+	       (but (make <Frame> :parent top))
+	       (txt (make <Scroll-Text>  :parent top  :wrap "none"
+			  :h-scroll-side "bottom" :width 85 :height 30 :font "fixed"
+			  :value (exec (string-append "cat " file)))))
+      
+	  (pack txt :side "top"    :expand #t :fill "both")
+	  (pack but :side "bottom" :expand #f :fill "x")
+      
+	  (pack  (make <Button> :text "Dismiss" :parent top
+		       :command (lambda() (destroy top)))
+		 (make <Button> :text "Rerun Demo" :parent top
+		       :command (lambda ()
+				  (eval-string 
+				    (format #f "(begin ~A (demo-~A))"
+					    (slot-ref txt 'value)
+					    name))))
+		 :side   "left" 
+		 :expand #t)
+	  #t)
+	  #f))
+  (let ((file (string-append "W" name ".stklos")))
+    (unless (show (string-append *STk-library* "/../Demos/Widget/" file))
+	    (unless (show (string-append *STk-library* "/demos/" file))
+	       (error "Unable to show the code of the file ~S" file)))))
+
+
+;;;; show-variables
+;;;; Displays the values of one or more variables in a window, and
+;;;; updates the display whenever any of the variables changes.
+(define (show-variables parent vars)
+  (unless (null? vars)
+     (let ((top (make <Toplevel> :parent parent :title "Variable values")))
+
+       (pack (make <Label> :text "Variable values:" 
+		   :width 20
+		   :parent top
+		   :anchor "center"
+		   :font "-Adobe-helvetica-medium-r-normal--*-180-*-*-*-*-*-*")
+	     :side "top" 
+	     :fill "x")
+
+       ;; For each variable create a trace.
+       (for-each (lambda (x)
+		   (let ((f (make <Frame> :parent top)))
+		     (pack (make <Label> :parent f :text (format #f "~A = " x))
+			   :side "left")
+		     (pack (make <Label> :parent f :text-variable x :anchor "w")
+			   :side "left" :expand #t :fill "x")
+		     (pack f :side "top" :anchor "w" :fill "x")))
+		 vars)
+
+       ;; Create a destroy button
+       (pack (make <Button> :parent top :text "Dismiss" 
+		   	    :command (lambda () (destroy top)))
+	     :side "bottom"
+	     :pady 2))))
+
+;;;;--------------------------------------------------------------------------
+;;;;
+;;;; Create the main window widgets
+;;;;
+;;;;--------------------------------------------------------------------------
+
+(slot-set! *top-root* 'title  "Widget Demonstration")
+
+(let* ((t          (make <Scroll-Text> :wrap "word" :width 60 :height 30 
+			 :font demo-font :set-grid #t))
+       (quit	   (make <Button> :text "Quit" :command (lambda () (exit 0))))
+       (title      (make <Text-tag> :parent t
+			 :font "-*-Helvetica-Bold-R-Normal--*-180-*-*-*-*-*-*"))
+       (demo       (make <Text-tag> :parent t :lmargin1 "1c" :lmargin2 "1c"))
+       (hot        (apply make <Text-tag> :parent t
+			  (if (= (winfo 'depth *root*) 1)
+			      (list :background "black" :foreground "white")
+			      (list :relief "raised" :border-width 1 
+				    :background "SeaGreen3"))))
+       (last-line '()))
+  
+  (pack t    :expand #t :fill "both")
+  (pack quit :expand #f :fill "x")
+  
+  ;; Associate binfings to tags
+  (bind demo "<Button-1>" 
+	(lambda ()
+	  (invoke-demo-binding t (text-index t 'current))))
+
+  (bind demo "<Enter>"
+	(lambda (x y)
+	  (set! last-line (text-index t (format #f "@~A,~A linestart" x y)))
+	  (tag-add hot last-line (cons (car last-line) "end"))))
+  
+  (bind demo "<Leave>"
+	(lambda ()
+	  (tag-remove hot '(1 . 0) "end")))
+
+  (bind demo "<Motion>" 
+	(lambda (x y)
+	  (let ((new-line (text-index t (format #f "@~A,~A linestart" x y))))
+	    (unless (equal? new-line last-line)
+	       (tag-remove hot '(1 . 0) "end")
+	       (tag-add hot new-line (cons (car new-line) "end"))
+	       (set! last-line new-line)))))
+
+  ;; Create the text for the text widget.
+
+  (text-insert t "end" 
+	       "Tk Widget Demonstrations\n\n" (list title)
+	       "This application provides a front end for several short scripts that demonstrate what you can do with Tk widgets.  Each of the numbered lines below describes a demonstration;  you can click on it to invoke the demonstration.  Once the demonstration window appears, you can click the \"See Code\" button to see the Tcl/Tk code that created the demonstration.  If you wish, you can edit the code and click the \"Rerun Demo\" button in the code window to reinvoke the demonstration with the modified code.\n" '()
+"\nLabels, buttons, checkbuttons, and radiobuttons\n" (list title)
+"1. Labels (text and bitmaps).\n" 		   (list demo 'demo-label)
+"2. Buttons.\n" 			 	   (list demo 'demo-button)
+"3. Checkbuttons (select any of a group).\n" 	   (list demo 'demo-check)
+"4. Radiobuttons (select one of a group).\n" 	   (list demo 'demo-radio)
+"5. A 15-puzzle game made out of buttons.\n" 	   (list demo 'demo-puzzle)
+"6. Iconic buttons that use bitmaps.\n" 	   (list demo 'demo-icon)
+"7. Two labels displaying images.\n" 		   (list demo 'demo-image1)
+"8. A simple user interface for viewing images.\n" (list demo 'demo-image2)
+;;;;;;       
+"\nListboxes\n" (list title)
+"1. 50 states.\n" 				   (list demo 'demo-states)
+"2. Colors: change the color scheme for the application.\n" 
+	       					   (list demo 'demo-colors)
+"3. A collection of famous sayings.\n" 		   (list demo 'demo-sayings)
+;;;;;;
+"\nEntries\n" title
+"1. Without scrollbars.\n" 			   (list demo 'demo-entry1)
+"2. With scrollbars.\n" 			   (list demo 'demo-entry2)
+"3. Simple Rolodex-like form.\n" 		   (list demo 'demo-form)
+;;;;;;
+"\nText\n" title
+"1. Basic editable text.\n" 			   (list demo 'demo-text)
+"2. Text display styles.\n" 			   (list demo 'demo-styles)
+"3. Hypertext (tag bindings).\n" 		   (list demo 'demo-bind)
+"4. A text widget with embedded windows.\n" 	   (list demo 'demo-wind)
+"5. A search tool built with a text widget.\n" 	   (list demo 'demo-search)
+;;;;
+"\nCanvases\n" title
+"1. The canvas item types.\n" 			   (list demo 'demo-items)
+"2. A simple 2-D plot.\n" 			   (list demo 'demo-plot)
+"3. Text items in canvases.\n" 			   (list demo 'demo-ctext)
+"4. An editor for arrowheads on canvas lines.\n"   (list demo 'demo-arrow)
+"5. A ruler with adjustable tab stops.\n" 	   (list demo 'demo-ruler)
+"6. A building floor plan.\n" 			   (list demo 'demo-floor)
+"7. A simple scrollable canvas.\n" 		   (list demo 'demo-cscroll)
+;;;;
+"\nScales\n" title
+"1. Vertical scale.\n" 				   (list demo 'demo-vscale)
+"2. Horizontal scale.\n" 			   (list demo 'demo-hscale)
+;;;;
+"\nMenus\n" title
+"1. A window containing several menus and cascades.\n" 
+						   (list demo 'demo-menu)
+;;;;
+"\nMiscellaneous\n" title
+"1. The built-in bitmaps.\n" 			   (list demo 'demo-bitmap)
+"2. A dialog box with a local grab.\n" 		   (list demo 'demo-dialog1)
+"3. A dialog box with a global grab.\n" 	   (list demo 'demo-dialog2)
+))
+
+(define (invoke-demo-binding t index)
+  (let loop ((t  (text-tags t index)))
+    (cond 
+       ((null? t) 	      		#f)
+       ((string-find? "demo-" (car t))  (apply (eval (string->symbol (car t)))
+					       '()))
+       (ELSE		      		(loop (cdr t))))))
+
+(define (NYI)
+  (error "This demo is not yet implemented"))
+
+;;
+;; Autolooads
+;;
+
+(autoload "Wlabel"	demo-label)
+(autoload "Wbutton" 	demo-button)
+(autoload "Wcheck"	demo-check)
+(autoload "Wradio"	demo-radio)
+(autoload "Wpuzzle"	demo-puzzle)
+(autoload "Wicon"	demo-icon)
+(autoload "Wimage1"	demo-image1)
+(autoload "Wimage2"	demo-image2)
+
+(autoload "Wstates"	demo-states)
+(autoload "Wcolors"	demo-colors)
+(autoload "Wsayings"	demo-sayings)
+
+(autoload "Wentry1"	demo-entry1)
+(autoload "Wentry2"	demo-entry2)
+(autoload "Wform"	demo-form)
+
+(autoload "Wtext"	demo-text)
+(autoload "Wstyles"	demo-styles)
+(autoload "Wbind"	demo-bind)
+(autoload "Wwind"	demo-wind)
+(autoload "Wsearch"	demo-search)
+
+(autoload "Witems"	demo-items)
+(autoload "Wplot"	demo-plot)
+(autoload "Wctext"	demo-ctext)
+(autoload "Warrow"	demo-arrow)
+(define demo-ruler NYI)
+(define demo-floor NYI)
+(define demo-cscroll NYI)
+
+(autoload "Wvscale"	demo-vscale)
+(autoload "Whscale"	demo-hscale)
+
+(autoload "Wmenu"	demo-menu)
+
+(autoload "Wbitmap"	demo-bitmap)
+(autoload "Wdialog1"	demo-dialog1)
+(autoload "Wdialog2"	demo-dialog2)
diff --git a/Demos/amib.stklos b/Demos/amib.stklos
new file mode 100755
index 0000000..1464b6b
--- /dev/null
+++ b/Demos/amib.stklos
@@ -0,0 +1,600 @@
+#!/bin/sh
+:; exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; a m i b . s t k l o s  --  A mini interface builder. I hope it will serve 
+;;;;			        as the basis of something more complete...
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 22-May-1995 14:56
+;;;; Last file update: 26-Sep-1996 19:21
+
+(require "Tk-classes")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Definitions.
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define *amib-version*		 0.3)
+(define *pretty-names*		(make-hash-table))
+(define *current-file*		#f)
+(define *special-slots*		'("id" "eid" "parent"))
+(define *delay*			100)
+;;;;
+;;;; All the widgets and their defaults
+;;;;
+(define *table-defaults*
+  `(("Button"		,<Button>
+			(:text "Button"))
+    ("Canvas"		,<Canvas>
+			(:width 200 :height 100 :border-width 3 :relief "raised"))
+    ("Check button"	,<Check-button>	
+			(:text "Check" :anchor "w"))
+    ("Frame"		,<Frame>
+			(:width 50 :height 50 :relief "ridge" :border-width 2))
+    ("Label"		,<Label>
+			(:text "Label"))
+    ("Labeled entry"	,<Labeled-entry>
+			(:title "Title"))
+    ("Listbox"		,<Listbox>
+		        (:relief raised))
+    ("Message"		,<Message>
+			(:text "Message" :relief "raised" :aspect 1000))
+    ("Radio button"	,<Radio-button>	
+			(:text "Radio" :anchor "w"))
+    ("Scale"		,<Scale>
+			())	))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Drag and Drop stuff
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define d-n-d-widget   #f)	; The widget whih we can drag and drop
+(define d-n-d-defaults #f)	; Its defaults
+
+;; Default bindings
+(bind "Dnd" "<ButtonRelease-1>" (lambda (|X| |Y| x y)
+				  (Drag-n-Drop-Finish |X| |Y|)
+				  'break))
+
+(define (make-drag-n-drop-widget type initargs)
+  (let ((m (make <Menu> :border-width 12 :background "Blue")))
+    (pack (apply make type :parent m initargs) :padx 2 :pady 2)
+    m))
+
+(define (Drag-n-Drop-Motion)
+  (when d-n-d-widget
+      (apply menu-post d-n-d-widget (winfo 'pointerxy d-n-d-widget))
+      (after *delay* (lambda () (Drag-n-Drop-Motion)))))
+
+(define (Drag-n-Drop-Finish X Y)
+  (when d-n-d-widget
+    (let ((dwidth  (winfo 'width d-n-d-widget))
+	  (dheight (winfo 'height d-n-d-widget)))
+      ;; Unpost the d-n-d-widget to see on which window we depose it
+      (menu-unpost d-n-d-widget)
+      
+      (let* ((p    (Id->instance (winfo 'containing X Y)))
+	     (top  (Id->instance (winfo 'toplevel p))))
+	(when (string=? (slot-ref top 'class) "Amib-toplevel")
+	  ;; OK. We try to depose the new widget in a valid toplevel
+	  (let* ((w    (apply make (car d-n-d-defaults) :parent p 
+			      (cadr d-n-d-defaults)))
+		 (pw   (max 1 (winfo 'width  p)))
+		 (ph   (max 1 (winfo 'height p)))
+		 (x    (- X (winfo 'x top) (winfo 'x p)))
+		 (y    (- Y (winfo 'y top) (winfo 'y p)))
+		 (relw (/ dwidth pw))
+		 (relh (/ dheight ph)))
+	    (place w :relx (/ x pw) :rely (/ y ph) :relwidth relw :relheight relh)
+	    (raise w)
+
+	    ;; Associate bindings for manipulating the new widget
+	    (bind w "<Shift-1>"     (lambda (|X| |Y|)
+				      (widget-resize-start w |X| |Y|)
+				      'break))
+	    (bind w "<Button-2>"    (lambda () (edit-widget w) 'break))
+	    (bind w "<Shift-3>"	    (lambda () (edit-widget w) 'break)) ; for Win32
+	    (bind w "<Button-3>"    (lambda () (destroy w) 'break))))))
+
+    ;; We can now delete the drag and drop window,which doesn't serve anymore
+    (destroy d-n-d-widget)
+    (set! d-n-d-widget #f)))
+
+
+
+(define (create-new-widget lb x y Xabs Yabs)
+  (unless d-n-d-widget
+      (let* ((index  (nearest lb y))
+	     (type   (list-ref (value lb) index))
+	     (search (assoc type *table-defaults*)))
+	(when search 
+	    ;; Create a drag and drow window and post it under the mouse
+	    (let ((W (apply make-drag-n-drop-widget (cadr search) (cddr search))))
+	      (menu-post W Xabs Yabs)
+	      (bindtags W (cons "Dnd" (bindtags W)))
+	      (set! d-n-d-widget   W)
+	      (set! d-n-d-defaults (cdr search))
+	      (after *delay* (lambda () (Drag-n-Drop-Motion))))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Define a Toplevel for working
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define new-amib-toplevel
+  (let ((count 0))
+    (lambda ()
+      (let* ((n (* count 20))
+	     (t (make <Toplevel> :title (format #f "Toplevel # ~A" count)
+		      :class "Amib-toplevel"
+		      :geometry (format #f "450x300+~A+~A" n n))))
+	(set! count (+ count 1))
+	(pack  (make <Frame> :parent t) :expand #t :fill "both")))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; build-interface		-- construct the button panel
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (build-interface)
+  (let* ((mess   (make <Label> :relief "ridge" :border-width 3 :foreground "blue"
+			       :text (format #f "A Mini Interface Builder (V~A)" 
+					     *amib-version*)))
+	 ;; Menus
+	 (menus  `((" File "
+		      ("Load"	 ,load-file)
+		      ("Save"	 ,save-file)
+		      ("Save as" ,write-file)
+		      ("")
+		      ("Quit"	 ,quit))
+		   (" Toplevel "
+		      ("Create"	,new-amib-toplevel))
+		   ((" Help " :side "right" :fill "x")
+		      ("About"	,(lambda () 
+				   (stk:show-help-file "amib-abt.html")))
+		      ("Help"   ,(lambda () 
+				   (stk:show-help-file "amib-hlp.html"))))))
+	 ;; Menu bar
+	 (bar     (make-menubar *top-root* menus))
+	 ;; Widget Panel
+	 (chooser (make <Scroll-Listbox> :value (map car *table-defaults*)))
+	 (lb      (listbox-of chooser)))
+
+    ;; Associate new bindings to the listbox
+    (bind lb "<ButtonRelease-1>"  (lambda (x y |X| |Y|)
+				    (create-new-widget lb x y |X| |Y|)))
+
+    ;; Change characteristics of root window
+    (set! (title *top-root*) 	     (format #f "AMIB ~A" *amib-version*))
+    (set! (maximum-size *top-root*) '(1000 1000))
+    (set! (geometry *top-root*)	    "+10-10")
+
+    ;; Pack everybody
+    (pack mess :fill "x" :ipadx 30 :ipady 5 :padx 5 :pady 5)
+    (pack bar  :fill "x" :ipadx 30)
+    (pack chooser :expand #t :fill 'both :ipadx 5 :ipady 5 :padx 5 :pady 5)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Widget resize
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define *cursors* #("top_left_corner"    "top_side"    "top_right_corner"
+		    "left_side"          "crosshair"   "right_side"
+		    "bottom_left_corner" "bottom_side" "bottom_right_corner"))
+
+(define *positions* #(NW N NE W center E SW S SE))
+
+(define *grips-on* #f)
+(define *resizing* #f)
+(define *vector-of-grips* (make-vector 9 #f))
+
+(define (widget-resize-start W X Y)
+  (let ((parent (parent W))
+	(width  (winfo 'width  W))
+	(height (winfo 'height W))
+	(bw     (if (slot-exists? W 'border-width) (border-width W) 0)))
+    (if (equal? *grips-on* W)
+	(begin
+	  (widget-resize-clear)
+	  (set! *grips-on* #f))
+	(begin
+	  (widget-resize-clear)
+	  (set! *grips-on* W)
+	  (dotimes (i 9)
+	     (let ((butt (make <Frame> :parent parent :width 8 :height 8
+			       :background "blue" :border-width 2 :relief "raised" 
+			       :cursor (vector-ref *cursors* i))))
+	       (place butt :in W :bordermode "outside" 
+		      :anchor (vector-ref *positions* (- 8 i))
+		      :relx (* 0.5 (modulo i 3))
+		      :rely (* 0.5 (quotient i 3)))
+
+	       ;; Associate bindings to this grip
+	       (bind butt "<ButtonPress-1>"
+		     (lambda ()
+		       (set! *resizing* #t)
+		       (widget-resize-motion W (vector-ref *positions* i))
+		       'break))
+	       (bind butt "<ButtonRelease-1>" 
+		     (lambda ()
+		       (set! *resizing* #f)
+		       (widget-resize-release W)
+		       'break))
+
+	       ;; Keep the grip in the global vector
+	       (vector-set! *vector-of-grips* i butt)))
+
+	  ;; Place the central button on top (its index is 4)
+	  (raise W)
+	  (raise (vector-ref *vector-of-grips* 4))))))
+
+(define (widget-resize-clear)
+  (for-each (lambda (x) (if (Tk-widget? x) (destroy x)))
+	    (vector->list *vector-of-grips*)))
+
+(define (widget-resize-motion W index)
+  (when *resizing*
+    (let* ((parent (parent W))
+	   (pos-x  (winfo 'rootx parent))
+	   (pos-y  (winfo 'rooty parent))
+	   (width  (winfo 'width W))
+	   (height (winfo 'height W))
+	   (x      (winfo 'pointerx W))
+	   (y      (winfo 'pointery W))
+	   (x1     (- (winfo 'rootx W) pos-x))
+	   (y1	   (- (winfo 'rooty W) pos-y))
+	   (x2     (+ x1 width))
+	   (y2	   (+ y1 height))
+	   (x      (- X pos-x))
+	   (y	   (- Y pos-y)))
+      (case index
+	 ((NW) 	   (set! x1 x)	(set! y1 y))
+	 ((N) 			(set! y1 y))
+	 ((NE)     (set! x2 x)	(set! y1 y))
+	 ((W)	   (set! x1 x))
+         ((E) 	   (set! x2 x))
+         ((SW) 	   (set! x1 x)	(set! y2 y))
+         ((S) 			(set! y2 y))
+	 ((SE) 	   (set! x2 x)	(set! y2 y))
+	 ((center) (set! x1 (- x (quotient width 2)))
+	           (set! y1 (- y (quotient height 2)))
+		   (set! x2 (+ x1 width))		
+		   (set! y2 (+ y1 height))))
+      (place 'forget W)
+      (place W :in parent :x x1 :y y1 :width (- x2 x1) :height (- y2 y1))
+
+      (after 30 (lambda () (widget-resize-motion W index))))))
+      
+(define (widget-resize-release W)
+  ;; Calculate the relative width and height of the widget 
+  (let* ((parent (parent W))
+	 (pw     (winfo 'width  parent))
+	 (ph     (winfo 'height parent))
+	 (pos-x  (winfo 'rootx parent))
+	 (pos-y  (winfo 'rooty parent))
+	 (width  (winfo 'width W))
+	 (height (winfo 'height W))
+	 (x      (- (winfo 'rootx W) pos-x))
+	 (y	 (- (winfo 'rooty W) pos-y)))
+    (place 'forget W)
+    (place W :in parent 
+	     :relx      (if (= pw 0) 0 (/ x pw))
+	     :rely      (if (= ph 0) 0 (/ y ph))
+	     :relwidth  (if (= pw 0) 0 (/ width pw))
+	     :relheight (if (= ph 0) 0 (/ height ph)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Widget Geometry management
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (MAKE-PACKING-WINDOW W)
+  (define old-packing-options (if (equal? (winfo 'manager W) "pack")
+				  (pack 'info W)
+				  '()))
+  (define (build-var-name x)
+    (string->symbol (format #f "amib-~A~A" x (widget-name (Id W)))))
+  
+  (define (make-var v val)
+    (let ((var (build-var-name v)))
+      (eval `(define ,var ',val) (global-environment))
+      var))
+
+  (define (change-pack-opt)
+    (pack 'forget W)
+    (pack W :side    (eval (build-var-name 'side))
+	    :anchor  (eval (build-var-name 'anchor))
+	    :fill    (eval (build-var-name 'fill))
+	    :expand  (eval (build-var-name 'expand))
+	    :padx    (eval (build-var-name 'padx))
+	    :pady    (eval (build-var-name 'pady))
+	    :ipadx   (eval (build-var-name 'ipadx))
+	    :ipady   (eval (build-var-name 'ipady))))
+
+  (define (make-side parent)
+    (let* ((f   (make <Frame> :parent parent :relief "groove" :border-width 2))
+	   (val (get-keyword :side old-packing-options "top"))
+	   (v   (make-var 'side val)))
+      (pack (make <Label> :text "Side: " :parent f :font "fixed") :side "left")
+      (for-each (lambda (x)
+		  (pack (make <Radio-button> :parent f :text x :variable v
+			      		     :value x :command change-pack-opt)
+			:side "left" :expand #t :fill "x"))
+		'("top" "bottom" "left" "right"))
+      f))
+
+  (define (make-anchor parent)
+    (let* ((f   (make <Frame> :parent parent :relief "groove" :border-width 2))
+	   (val (string->symbol (get-keyword :anchor old-packing-options "center")))
+	   (v   (make-var 'anchor val)))
+      (dotimes (i 3)
+	(let ((g (make <Frame> :parent f)))
+	  (dotimes (j 3)
+	    (let ((anchor (vector-ref *positions* (+ (* i 3) j))))
+	      (pack (make <Radio-Button> :text anchor :width 10 :parent g
+			  		 :variable v :value anchor :anchor "w"
+					 :command change-pack-opt)
+		    :side "left" :expand #t :fill "x")))
+	  (pack g :side "top")))
+      f))
+  
+  (define (make-fill parent)
+    (let* ((f   (make <Frame> :parent parent :relief "groove" :border-width 2))
+	   (val (get-keyword :fill old-packing-options "none"))
+	   (v   (make-var 'fill val)))
+      (pack (make <Label> :text "Fill: " :parent f :font "fixed") :side "left")
+      (for-each (lambda (x)
+		  (pack (make <Radio-button> :parent f :text x :variable v
+			      :value x :command  change-pack-opt)
+			:side "left" :expand #t :fill "x"))
+		  '("none" "x" "y" "both"))
+      f))
+
+  (define (make-expand parent)
+    (let ((val (get-keyword :expand old-packing-options #f)))
+      (make <Check-button> :parent parent :relief "groove" :border-width 2
+	    :text "Expand" :variable (make-var 'expand val) :value val
+	    :command change-pack-opt)))
+  
+  (define (make-padding parent)
+    (let ((f (make <Frame> :parent parent :relief "groove" :border-width 2)))
+      (for-each (lambda (x)
+		  (let* ((val (get-keyword (make-keyword x) old-packing-options 10))
+			 (v   (make-var x val)))
+		    (pack (make <Scale> :orientation "h" :parent f :text x
+				:variable v :value val 
+				:command (lambda (_) (change-pack-opt)))
+			  :expand #t :fill "x")))
+		'(ipadx ipady padx pady))
+      f))
+
+  ;; MAKE-PACKING-WINDOW starts here
+  (let ((top     (make <Toplevel> :title "Packer options" :class "Amib" 
+		       		  :geometry "-100+100")))
+    (pack (make-side   top)
+	  (make-anchor top)
+	  (make-fill top) 
+	  (make-expand top)
+	  (make-padding top)
+	  :padx 5 :pady 5 :fill "x")
+    (pack (make <Button> :parent top :text "Dismiss" :command (lambda () 
+								(destroy top)))
+	  :fill "x")))
+
+(define (use-pack-for-widget W)
+  (place 'forget W)
+  (pack W :in (parent W))
+  (update)
+  (make-packing-window W))
+
+(define (use-place-for-widget W)
+    (pack 'forget W)
+    (place W :in (parent W))
+    (update))	   
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; edit-widget		-- Interactively change widget options
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
+(define (edit-widget w)
+  (letrec ((top    (make <Toplevel> :class "Amib" :title "Widget Editor"
+			 	    :geometry "-10+10"))
+	   (slots  (map (lambda (x) (symbol->string (if (pair? x) (car x) x)))
+			(class-slots (class-of w))))
+	   (filter (lambda (slots forget)
+		     (let loop ((l slots) (res '()))
+		       (cond 
+			((null? l) 	res)
+			((member (car l) forget)
+			 		(loop (cdr l) res))
+			(else		(loop (cdr l) (cons (car l) res)))))))
+	   (maxl  0))
+    
+    ;; Display only useful slots
+    (set! slots (sort (filter slots *special-slots*) string<?))
+    (set! maxl (apply max (map string-length slots)))
+    
+    ;; Pretty name of this object
+    (let ((name-editor (make <Labeled-Entry> 
+			     :parent top 
+			     :title "Widget name"
+			     :value (hash-table-get *pretty-names* w "?none?"))))
+      (bind (entry-of name-editor) "<Return>"
+	    (lambda ()
+	      (hash-table-put! *pretty-names* w (value name-editor))))
+      (pack name-editor :expand #t :fill 'x))
+
+    ;; Display the geometry manager used for this widget
+    (let* ((f  (make <Frame> :border-width 2 :relief "ridge" :parent top))
+	   (v  (string->symbol (format #f "cb-var~A" (widget-name (Id w)))))
+	   (c1 (make <Radio-Button> :text "Packed" :variable v :parent f
+		     :value "pack" 
+		     :command (lambda () (Use-pack-for-widget w))))
+	   (c2 (make <Radio-Button> :text "Placed" :variable v :parent f
+		     :value "place"
+		     :command (lambda () (Use-place-for-widget w)))))
+      ;; Set the valid check button
+      (eval `(set! ,v ,(if (null? (place 'info w)) "pack" "place")))
+      (pack c1 c2 :side "left" :expand #t :fill "x")
+      (pack f :expand #t :fill "x"))
+
+    ;; Display the widget editor
+    (for-each (lambda (s)
+		(let* ((name (string->symbol s))
+		       (le   (make <Labeled-Entry> :parent top :title name
+				   :width 40
+				   :value (slot-ref w (string->symbol s)))))
+		  ;; Customize label
+		  (set! (width  (label-of le))  maxl)
+		  (set! (anchor (label-of le)) "e")
+		  ;; Customize entry
+		  (bind (entry-of le) "<Return>" (lambda ()
+						   (slot-set! w name (value le))))
+		  ;; Pack the new entry
+		  (pack le :fill "y" :expand #t)))
+	      slots)
+    ;; Dismiss button
+    (pack (make <Button> :text "Dismiss" :parent top
+			 :command (lambda () (destroy top)))
+	  :expand #t 
+	  :fill 'x)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Code generation
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (Pretty-name w)
+  (let ((name (hash-table-get *pretty-names* w #f)))
+    (unless name
+       ;; If this object has no name, a name is generated for it
+       (set! name (if (eqv? w *root*) "*root*" (gensym "W")))
+       (hash-table-put! *pretty-names* w name))
+    name))
+
+;;;;
+;;;; Generate-placement: generate pack or place depending of the geometry manager
+;;;; used.
+;;;;
+(define-method generate-placement ((w <Tk-widget>))
+  (let* ((infos      (place 'info w))
+	 (use-pack?  (null? infos)))
+    (if use-pack?
+	(set! infos (pack 'info w)))
+
+    (format #t "(~A ~A " (if use-pack? "pack " "place") (pretty-name w))
+
+    ;; Display informations returned by Tk
+    (let loop ((i infos))
+      (cond 
+         ((null? i)		(display ")\n\n"))
+	 ((eqv? (car i) ':in)	(format #t "\n       :in ~A" 
+					(pretty-name 
+					    (Id->instance (eval (cadr i)))))
+				(loop (cddr i)))
+	 (ELSE			(let ((val (cadr i)))
+				  (format #t "\n       ~S " (car i))
+				  (if (number? val)
+				      (display val)
+				      (format #t "\"~A\"" val)))
+				(loop (cddr i)))))))
+
+(define-method generate-placement ((w <Toplevel>))
+  (format #f ";; End of Toplevel ~A\n\n" (pretty-name w)))
+
+;;;;
+;;;; Generate-code-for-widget methods
+;;;;
+(define-method generate-code-for-widget ((w <Toplevel>))
+  (format #t "\n;; Start of Toplevel ~A\n" (pretty-name w))
+  (next-method))
+
+(define-method generate-code-for-widget ((w <Tk-widget>))
+  ;; Generate name
+  (format #t ";-----------\n(define ~A (make ~A\n\t:parent ~A\n" 
+	     (pretty-name w) (class-name (class-of w)) (pretty-name (parent w)))
+
+  ;; Generate non special slots
+  (for-each (lambda (slot)
+	      (unless (member slot *special-slots*)
+		    (unless (member (symbol->string (car slot)) *special-slots*)
+		       ;; Generate code for this slot (which is for sure a list)
+		       (let* ((slot-name (car slot))
+			      (val       (slot-ref w slot-name))
+			      (init-key  (get-keyword :init-keyword (cdr slot) #f)))
+		      (when (and init-key (not (equal? (slot-ref w slot-name) "")))
+			 (format #t "\t~S ~A~S\n"
+				init-key (if (list? val) "'" "") val))))))
+	    (class-slots (class-of w)))
+  ;; Close parenthesis
+  (format #t "))\n\n")
+  
+  ;; Generate code for embedded widgets. Don't do this if w is a composite
+  (unless (is-a? w <Tk-composite-widget>)
+     (for-each generate-code-for-widget
+	       (map Id->instance (winfo 'children w))))
+  
+  ;; Generate placement for this widget
+  (generate-placement w))
+
+;;;;
+;;;; Generate-code (the entry point of code generation)
+;;;;
+(define (generate-code file)
+  (with-output-to-file file
+    (lambda ()
+      (format #t ";;\n;; Code generated by Amib (v~A)\n;;\n" *amib-version*)
+      (for-each (lambda (x)
+		  (when (and (is-a? x <Toplevel>) 
+			     (not (equal? (slot-ref x 'class) "Amib")))
+			(generate-code-for-widget x)))
+		(map Id->instance (winfo 'children *root*))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; File Management
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (save-file)
+  (if *current-file*
+      (generate-code *current-file*)
+      (write-file)))
+
+(define (load-file)
+  (let ((f (make-file-box)))
+    (when f (load f))))
+
+(define (write-file)
+  (let ((f (make-file-box)))
+    (when f
+      (set! *current-file* f)
+      (generate-code f))))
+	  
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Inits
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(bind "all" "<ButtonRelease-1>" (lambda () (set! *resizing* #f)))
+(new-amib-toplevel)
+(build-interface)
diff --git a/Demos/browse.stk b/Demos/browse.stk
new file mode 100755
index 0000000..6728767
--- /dev/null
+++ b/Demos/browse.stk
@@ -0,0 +1,52 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; A simple STk browser 
+;;;;
+;;;; This script generates a directory browser, which lists the working
+;;;; directory and allows you to open files or subdirectories by
+;;;; double-clicking.
+;;;; This is a new version of the demo which can be run before STk is installed
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  3-Aug-1993 17:33
+;;;; Last file update: 18-Sep-1995 14:25
+
+(require "unix")
+
+;; Create a scrollbar on the right side of the main window and a listbox
+;; on the left side.
+(frame '.f)
+(scrollbar '.f.scroll :command (lambda l (apply .f.list   'yview l)))
+(listbox   '.f.list   :yscroll (lambda l (apply .f.scroll 'set   l))
+	   	      :width 30 :height 20 :font "fixed")
+
+(pack .f.scroll .f.list :side "right" :expand #t :fill "both")
+(pack .f :side "top" :fill "both" :expand #t)
+
+(button '.quit :text "Quit" :command (lambda () (exit)))
+(pack .quit :fill "x" :side "bottom" :expand #t)
+
+;;;
+;;; Callback
+;;;
+(define (fill-listbox dir)
+  (chdir dir)
+  (.f.list 'delete 0 "end")
+  (apply .f.list 'insert 0 (sort (glob "*" ".*") string<?)))
+
+(define (browse)
+  (catch 
+    (let ((file (string-append (getcwd) "/" (selection 'get))))
+      (cond
+        ((file-is-directory? file) (fill-listbox file))
+	((file-is-readable? file)  (system (string-append "xedit " file "&")))
+	(else			   (error "Bad directory or file ~S" file))))))
+
+
+;; Fill the listbox with a list of all the files (in the given directory or ".")
+(fill-listbox (if (> *argc* 0) (car *argv*) (getcwd)))
+
+;; Set binding for "Double-click" on the listbox
+(bind .f.list "<Double-Button-1>" browse)
diff --git a/Demos/browse.stklos b/Demos/browse.stklos
new file mode 100755
index 0000000..d67f5d5
--- /dev/null
+++ b/Demos/browse.stklos
@@ -0,0 +1,48 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; A simple STk browser 
+;;;;
+;;;; This script generates a directory browser, which lists the working
+;;;; directory and allows you to open files or subdirectories by
+;;;; double-clicking.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  3-Aug-1993 17:33
+;;;; Last file update: 18-Sep-1995 14:25
+
+(require "Tk-classes")
+(require "unix")
+
+;;;;
+;;;; Interface
+;;;;
+(define lb (make <Scroll-Listbox> :width 30 :height 20 :font 'fixed))
+(pack lb :fill "both" :side "top" :expand #t)
+
+(define quit (make <Button> :text "Quit" :command '(exit)))
+(pack quit :fill "x" :side "bottom" :expand #t)
+
+;;;
+;;; Callback
+;;;
+(define (fill-listbox lb dir)
+  (chdir dir)
+  (delete lb 0 'end)
+  (apply insert lb 0 (sort (glob "*" ".*") string<?)))
+
+(define (browse)
+  (catch 
+    (let ((file  (string-append (getcwd) "/" (selection 'get))))
+      (cond
+        ((file-is-directory? file) (fill-listbox lb file))
+	((file-is-readable? file)  (system (string-append "xedit " file "&")))
+	(else			   (error "Bad directory or file ~S" file))))))
+
+
+;; Fill the listbox with a list of all the files (in the given directory or ".")
+(fill-listbox lb (if (> *argc* 0) (car *argv*) (getcwd)))
+
+;; Set binding for "Double-click" on the listbox
+(bind (listbox-of lb) "<Double-Button-1>" browse)
diff --git a/Demos/calc.stklos b/Demos/calc.stklos
new file mode 100755
index 0000000..34d8dc4
--- /dev/null
+++ b/Demos/calc.stklos
@@ -0,0 +1,80 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; c a l c . s t k l o s  --  A very simplistic calculator
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  6-Apr-1995 18:11
+;;;; Last file update: 18-Sep-1995 14:25
+
+(require "Tk-classes")
+(define Result   0)
+
+(define (get-Screen)
+  (string->number (value Screen)))
+
+(define (digit? s)
+  (or (string->number s) (string=? s ".")))
+
+(define execute-action 
+  (let ((previous-action "") (Acc 0) (operator +))
+    (lambda (str)
+      (cond
+       ((string=? str "Off")  (exit 0))
+       ((string=? str "Sqrt") (set! Result (sqrt (get-screen))))
+       ((string=? str "C")    (set! Result 0))
+       ((string=? str "/")    (set! operator /))
+       ((string=? str "*")    (set! operator *))
+       ((string=? str "-")    (set! operator -))
+       ((string=? str "+")    (set! operator +))
+       ((string=? str "+/-")  (set! Result (- (get-screen))))
+       ((string=? str "=")    (set! Result (operator Acc (get-screen))))
+       (ELSE		       (if (digit? previous-action)
+				   (set! Result (string-append (value Screen) str))
+				   (begin
+				     (set! Acc (get-screen))
+				     (set! Result str)))))
+	(set! previous-action str))))
+
+;;;;
+;;;; Make the interface
+;;;;
+(define Screen (make <Entry> :text-variable 'Result :border-width 3 
+		     	     :relief 'ridge :foreground "Blue"))
+(define rows ;; Rows is a vector of 5 frames
+  (vector (make <Frame>)(make <Frame>)(make <Frame>)(make <Frame>)(make <Frame>)))
+
+(for-each  (let ((count 0))
+	     (lambda (text)
+	       (pack (make <Button> 
+			   :text   text 
+			   :parent (vector-ref rows (quotient count 4))
+			   :width  6
+			   :command (lambda ()  (execute-action text)))
+		     :side "left" :padx 4 :pady 2)
+	       (set! count (+ 1 count))))
+	   '("Off"  "Sqrt"  "C"  "/"
+	      "7"    "8"    "9"  "*"
+	      "4"    "5"    "6"  "-"
+	      "1"    "2"    "3"  "+"
+	      "0"    "."   "+/-" "="))
+;;;
+;;; And pack its components
+;;;
+(pack Screen :expand #t :fill "x" :padx 5 :pady 5 :ipadx 5 :ipady 5)
+(for-each (lambda (row) (pack row :expand #t :fill "x"))
+	  (vector->list rows))
+
+
+
+
diff --git a/Demos/colormap.stk b/Demos/colormap.stk
new file mode 100755
index 0000000..600c524
--- /dev/null
+++ b/Demos/colormap.stk
@@ -0,0 +1,49 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;;  Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;;  Permission to use, copy, and/or distribute this software and its
+;;;;  documentation for any purpose and without fee is hereby granted, provided
+;;;;  that both the above copyright notice and this permission notice appear in
+;;;;  all copies and derived works.  Fees for distribution or use of this
+;;;;  software or derived works may only be charged with express written
+;;;;  permission of the copyright holder.  
+;;;;  This software is provided ``as is'' without express or implied warranty.
+;;;; 
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 19-Aug-1993 15:08
+;;;; Last file update: 21-Jul-1996 11:24
+
+(define Color "#000000")
+(define V     (vector 0 0 0))
+
+(define (make-color index name)
+  (let* ((f    (format #f ".f.v~a"    index))
+	 (conv (lambda (n)
+		 (string-append (if (>= n 16) "" "0") (number->string n 16))))
+	 (cmd (lambda (val)
+		(vector-set! V index val)
+		(set! Color (apply string-append "#" (map conv (vector->list V))))
+		(tk-set! .sample :bg Color))))
+    
+    (frame f :relief "groove" :bd 2)
+    (pack
+       [label (format #f "~a.l" f) :text name :width 10]
+       [scale (format #f "~a.s" f) :from 0 :to 255 :orient "horiz" 
+	      :command cmd :length 300]
+       :side "left" :padx 2 :pady 2)
+    (pack f :padx 5 :pady 5)))
+
+;;; Make interface
+(pack 
+    [frame '.f :relief "raised" :bd 2]
+    [frame '.sample :width 30 :height 50 :bg Color]
+    [label '.color :font "fixed" :textvariable 'Color :relief "ridge" :bd 4]
+    [button '.quit :text "Quit"  :command (lambda ()
+					    (format #t "color=~A~%" Color)
+					    (destroy *root*))]
+    :fill "both")
+
+(let ((c '#("Red" "Green" "Blue")))
+  (dotimes (i 3) (make-color i (vector-ref c i))))
diff --git a/Demos/compo-demo.stklos b/Demos/compo-demo.stklos
new file mode 100755
index 0000000..9210ab4
--- /dev/null
+++ b/Demos/compo-demo.stklos
@@ -0,0 +1,133 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;
+;; A quick demo of the composite widgets
+;; This code is a contribution of Drew.Whitehouse@anu.edu.au
+;;
+;; Multiple-window added by eg on 96/04/14
+
+(require "Tk-classes")
+
+(define main-frame (make <Frame>))
+(define title (make <Label> :parent main-frame :text "Composite Widgets Demo"))
+(define button-box (make <Frame> :parent main-frame :width 200 :height 100))
+(define quit (make <Button> :parent main-frame 
+                   :text " quit "
+                   :command (lambda () 
+			      (destroy *root*))))
+
+(define composite-widgets '(Choicebox 
+                            Defbutton 
+                            Filebox 
+                            Lentry 
+                            Paned 
+                            Scrollbox
+			    Multiwin))
+(for-each (lambda (x)
+            (let ((cmd (string-append "(demo-" (symbol->string x) ")")))
+              (pack (make <Button> :parent button-box :text x :command cmd)
+                    :fill 'x :padx 5 )))
+          composite-widgets)
+
+(pack title button-box :fill 'x :padx 10 :pady 10)
+(pack quit :padx 10 :pady 10 )
+(pack main-frame)
+
+(define (demo-choicebox)
+  (let* ((tl (make <Toplevel> :title "Choice Box"))
+         (cb (make <Choice-box> :value "empty for now!" :parent tl)))
+    ;; add some entries
+    (for-each (lambda (x) (add-choice cb (symbol->string x))) 
+	      composite-widgets)
+    (pack cb)))
+
+(define (demo-defbutton)
+  (pack (make <Default-button> 
+	      :text "button"
+	      :width 20
+	      :parent (make <Toplevel> :title "Default Button"))))
+         
+(define (demo-filebox)
+  (let ((f (make-file-box)))
+    (if f
+	(format #t "You have selected ~S\n" f)
+	(format #t "Cancel\n"))))
+
+(define (demo-lentry)
+  (pack (make <Labeled-entry> 
+	      :title "title" 
+	      :parent (make <Toplevel> :title "Labeled entry"))
+	:padx 5 :pady 5))
+    
+(define (demo-paned)
+  (let* ((tl (make <Toplevel> :title "Paned demo"))
+         (hp (make <HPaned> :fraction 0.3 :width 300 :height 300 :parent tl))
+         (f1 (make <Label> :text "top pane" :parent (top-frame-of hp)))
+         (f2 (make <Label> :text "bottom-pane" :parent (bottom-frame-of hp)))
+         (vp (make <VPaned> :fraction 0.3 :width 300 :height 300 :parent tl))
+         (f3 (make <Label> :text "left pane" :parent (left-frame-of vp)))
+         (f4 (make <Label> :text "right-pane" :parent (right-frame-of vp))))
+    (pack f1 f2 f3 f4 :expand #t)
+    (pack hp vp)))
+
+(define (demo-scrollbox)
+  (let* ((tl (make <Toplevel> :title "Scroll box"))
+         (sb (make <Scroll-listbox> :parent tl :geometry "20x6")))
+    ;; add some entries into the listbox
+    (for-each (lambda (x) 
+                (insert (listbox-of sb) 0 x))
+              (append composite-widgets composite-widgets))
+    (pack sb)))
+
+
+(define (demo-multiwin) 
+  ;;
+  ;; Make a Menu bar
+  ;;
+  (define tl   (make <Toplevel> :title "Multiple and Inner windows demo"))
+  (define top  (make <Frame> :parent tl))
+  (define col '#("violet" "skyblue1" "Misty Rose" "Plum" "grey40"))
+  (define menu (make-menubar top 
+     `(("Menu" 
+	("Add one"  ,(let ((counter 0))
+		       (lambda () 
+			 (place (make <Inner-window> :parent f
+				      :title (format #f "Window #~A" counter)
+				      :background (vector-ref col (random 5)))
+				:x (random 200) :y (random 200))
+			 (set! counter (1+ counter)))))
+	("")
+	("Quit"     ,(lambda () (destroy tl)))))))
+  (pack menu :side "left" :expand #f)
+  (pack top :fill "x")
+  ;;
+  ;; Make a multiple window
+  ;;
+  (define f (make <Multiple-window> :parent tl :background "cyan4"))
+  (pack f :fill "both" :expand #t)
+
+  ;;
+  ;; First child
+  ;;
+  (define f1 (make <Inner-window> :parent f :title "A Text window"))
+  (define t1 (make <Scroll-Text> :highlight-thickness 0 :parent f1 :height 8 
+		   :background "lightblue3" :wrap "word"
+		   :value "Hi!I'm a text window\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nEnd"))
+  (define t2 (make <Scroll-Text> :highlight-thickness 0 :parent f1 
+		   :background "lightblue3" :wrap "word"
+		   :value "Hi, I'm also embedded in a window.\nUse the mouse in the border of my enclosing window to enlarge or shrink this editor"))
+  (pack t1 t2 :fill "both" :expand #t)
+  (place f1 :x 100 :y 70)
+
+  ;;
+  ;; Second child
+  ;;
+  (define f2 (make <Inner-window> :parent f :title "A canvas window"))
+  (define c1 (make <Canvas> :parent f2 :background "#c4b6a7"))
+  (make <Rectangle> :parent c1 :fill "IndianRed1"     :coords '(0 0 50 50))
+  (make <Oval>	  :parent c1 :fill "DarkOliveGreen" :coords '(100 100 150 150))
+  (bind-for-dragging c1)
+  (pack c1 :fill "both" :expand #t)
+  (place f2 :x 10 :y 10))
+
+
diff --git a/Demos/filebox.stklos b/Demos/filebox.stklos
new file mode 100755
index 0000000..0e19c49
--- /dev/null
+++ b/Demos/filebox.stklos
@@ -0,0 +1,37 @@
+#!/usr/local/bin/stk -f
+;;;; f i l e b o x  . s t k l o s 	-- A demo of the <FileBox> class
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 12-Jun-1994 11:24
+;;;; Last file update: 22-Aug-1996 18:14
+
+(require "Tk-classes")
+
+(define b (make <Button> :text "Quit the demo" :foreground "red" 
+		         :command (lambda () (exit))))
+(pack b)
+
+
+;;; Just create a filebox and return the selected value
+(let loop ((result (make-file-box)))
+  (apply format #t (if result
+		       (list "You have selected the file ~S\n" result)
+		       (list "CANCEL. No file selected\n")))
+  (loop (make-file-box)))
+
+
+
+
diff --git a/Demos/hanoi.stk b/Demos/hanoi.stk
new file mode 100755
index 0000000..4a23270
--- /dev/null
+++ b/Demos/hanoi.stk
@@ -0,0 +1,267 @@
+#!/usr/local/bin/stk -f
+;;
+;; Hanoi - Towers of Hanoi diversion
+;;
+;; This program is a rewriting in STk of a program found on the net. Original
+;; author is Damon A Permezel (probably fubar!dap@natinst.com)
+;; Re-writing is very direct and needs much more working
+;;
+
+(define *gc-verbose*	#f)
+
+(define hanoi-canvas	"")
+(define hanoi-running 	#f)
+(define hanoi-stop	#f)
+(define previousRings   0)
+(define max-rings 	20)
+(define num-rings	6)
+(define colours		'(DarkOliveGreen snow4 royalblue2 palegreen4
+			  rosybrown1 wheat4 tan2 brown2 tomato3 hotpink3))
+
+(define pole		(make-vector 3))	     ; elts are <nRing . xPos>
+(define ring 		(make-vector (+ max-rings 1))); elts are <pole width . obj>
+
+(define accel		0)
+(define base		32)
+(define fly-row 	32)
+(define width-incr	12)
+(define width-min	(* 8 width-incr))    
+(define ring-height 	26)
+(define ring-spacing	(* 2 (/ ring-height 3)))
+
+
+;;
+;; Setup the main window
+;;
+(define (SetupHanoi)
+  (wm 'title "." "Towers of Hanoi")
+
+  ;;
+  ;; setup frame and main menu button
+  ;;
+  (label ".title" :text "Towers of Hanoi" :bd 4 :fg "RoyalBlue" :relief "ridge")
+  (frame ".f")
+  (button ".f.run"  :text "Run"  :command (lambda ()
+					    (DoHanoi (.nrframe.scale 'get) #t)))
+  (button ".f.stop" :text "Stop" :command (lambda ()
+					    (set! hanoi-stop 1)))
+  (button ".f.quit" :text "Quit" :command (lambda ()
+					    (exit 0)))
+  (pack .f.run .f.stop .f.quit :fill "x" :side "left" :expand #t)
+
+  ;;
+  ;; setup next frame, for #rings slider
+  ;;
+  (frame ".nrframe" :bd 2 :relief 'raised)
+  (pack [label ".nrframe.label" :text "Number of Rings: " :width 15 :anchor 'e]
+	:side "left")
+  (pack [scale ".nrframe.scale" :orient 'hor :from 1 :to max-rings :font "fixed"
+			        :command (lambda (val)
+					   (set! num-rings val))]
+	:side "right" :expand #t :fill "x")
+  (.nrframe.scale 'set num-rings)
+
+  ;;
+  ;; setup next frame, for speed slider
+  ;;
+  (frame ".speed-frame" :bd 2 :relief 'raised)
+  (pack [label ".speed-frame.label" :text "Speed: " :width 15 :anchor 'e]
+	:side "left")
+  (pack [scale ".speed-frame.scale" :orient 'hor :from 1 :to 100 :font "fixed"
+	                      :command (lambda (val)
+					 (set! accel val))]
+	:side "right" :expand #t :fill "x")	
+  (.speed-frame.scale 'set 100)
+
+  ;;
+  ;; setup frame for canvas to appear in
+  ;;
+  (frame ".canv-frame" :bd 4 :relief 'groove)
+  (pack [canvas ".canv-frame.canvas" :relief 'sunken])
+  (set! hanoi-canvas .canv-frame.canvas)
+
+  ;; 
+  ;; Pack evrybody
+  ;;
+  (pack .title .nrframe .speed-frame .canv-frame .f :expand #t :fill "x")
+
+  ;;
+  ;; key bindings
+  ;;
+  (bind "." "<KeyPress-r>"  (lambda () (DoHanoi [.nrframe.scale 'get] #t)))
+  (bind "." "<KeyPress-s>"  (lambda () (set! hanoi-stop #t)))
+  (bind "." "<KeyPress-q>"  (lambda () (exit 0)))
+  
+  ;; 
+  ;; Display tower
+  ;;
+  (DoHanoi num-rings #f)
+)
+
+;;
+;; DoHanoi	
+;;
+;; Input:
+;;	n	# of rings
+;;
+;; setup the canvas for displaying the Hanoi simulation
+;; Call hanoi if run-it is true.
+;;
+(define (DoHanoi n run-it)
+  (unless hanoi-running
+    (define ring-width 		(+ width-min (* n width-incr)))
+    (define wm-width 		(+ (* 3 ring-width) (* 4 12)))
+    (define wm-height           (+ (* ring-spacing n) fly-row (* 2 ring-height)))
+
+
+    (set! hanoi-stop 	 #f)
+    (set! hanoi-running	 #t)
+    (set! base 		 (- wm-height 32))
+
+    ;;
+    ;; cleanup from previous run
+    ;;
+    (do ((i 1 (+ i 1)))
+	((> i previousRings))
+      (hanoi-canvas 'delete (cddr (vector-ref ring i))))
+    
+    ;;
+    ;; configure the canvas appropriately
+    ;;
+    (hanoi-canvas 'configure :width wm-width :height wm-height)
+    
+    ;;
+    ;; setup poles
+    ;;
+    (let loop ((i 0))
+      (vector-set! pole i (cons 0 (+ (* i (/ wm-width 3)) (/ ring-width 2) 8)))
+      (when (< i 2) (loop (+ 1 i))))
+    ;;
+    ;; setup rings
+    ;;
+    
+    (let loop ((i 0))
+      (let* ((colour (list-ref colours (modulo i 10)))
+	     (w      (- ring-width (* i 12)))
+	     (y	     (- base (* i ring-spacing)))
+	     (x      (- (cdr (vector-ref pole 0)) (/ w 2)))
+	     (r      (- n i)))
+      
+	(vector-set! ring r 
+		     (cons 0
+			   (cons w
+				 (hanoi-canvas 'create 
+					      'oval x y (+ x w) (+ y ring-height)
+					      :fill colour 
+					      :outline colour
+					      :width 12)))))
+      (if (< i (- n 1)) (loop (+ i 1))))
+    
+    (vector-set! pole 0 (cons n (cdr (vector-ref pole 0))))
+    (set! previousRings n)
+
+    (update)
+    (when run-it (Hanoi n 0 2 1))
+    (set! hanoi-running #f)))
+;;
+;; Hanoi : the guts of the algorithm
+;;
+;; Input:
+;;	n	# of rings
+;;	from	pole to move from
+;;	to	pole to move to
+;;	work	pole to aid in performing work
+;;
+(define (Hanoi n from to work)
+  (when (and (> n 0) (not hanoi-stop))
+    (Hanoi (- n 1) from work to)
+    (unless  hanoi-stop (MoveRing n to))
+    (Hanoi (- n 1) work to from)))
+
+;;
+;; MoveRing :	move a ring to a new pole
+;;
+;; Input:
+;;	n	ring number
+;;	to	destination pole
+;;
+(define (MoveRing n to)
+  ;;
+  ;; ring(n,obj) can be queried as to its current position.
+  ;; Thus, we don't need to know which pole the ring is moving from.
+  ;;
+  (let* ((inc	  0)
+	 (tox     0)
+	 (toy  	  0)
+	 
+	 (r  	  (cddr (vector-ref ring n)))
+	 (coords  (hanoi-canvas 'coords r))
+	 (x0 	  (list-ref coords 0))
+	 (y0 	  (list-ref coords 1))
+	 (x1 	  (list-ref coords 2))
+	 (y1 	  (list-ref coords 3)))
+    
+    ;;
+    ;; move up to the "fly row"
+    ;;
+    (do ()
+	((<= y0 fly-row))
+      (set! inc (if (> (- y0 fly-row) accel) accel (- y0 fly-row)))
+      (set! y0  (- y0 inc))
+      (set! y1  (- y1 inc))
+      (hanoi-canvas 'coords r x0 y0 x1 y1)
+      (update))
+
+    ;;
+    ;; one less ring on this pole
+    ;;
+    (let ((tmp (car (vector-ref ring n))))
+      (set-car! (vector-ref pole tmp) (- (car (vector-ref pole tmp)) 1)))
+
+    ;;
+    ;; determine target X position, based on destination pole, and fly ring
+    ;; over to new pole
+    ;;
+    (set! toX (- (cdr (vector-ref pole to)) 
+		 (/ (cadr (vector-ref ring n)) 2)))
+
+    (do ()
+	((>= x0 toX))
+      (set! inc (if (> (- toX x0) accel) accel (- toX x0)))
+      (set! x0 (+ x0 inc))
+      (set! x1 (+ x1 inc))
+      (hanoi-canvas 'coords r x0 y0 x1 y1)
+      (update))
+
+    (do ()
+	((<= x0 toX))
+      (set! inc (if (> (- x0 toX) accel) accel (- x0 toX)))
+      (set! x0 (- x0 inc))
+      (set! x1 (- x1 inc))
+      (hanoi-canvas 'coords r x0 y0 x1 y1)
+      (update))
+
+    ;;
+    ;; determine target Y position, based on ;; rings on destination pole.
+    ;;
+    (set! toY (- base (* (car (vector-ref pole to)) ring-spacing)))
+
+    ;;
+    ;; float ring down
+    ;;
+    (do ()
+	((>= y0 toY))
+      (set! inc (if (> (- toY y0) accel) accel (- toY y0)))
+      (set! y0 (+ y0 inc))
+      (set! y1 (+ y1 inc))
+      (hanoi-canvas 'coords r x0 y0 x1 y1)
+      (update))
+
+    ;;
+    ;; increase destination pole usage
+    ;;
+    (set-car! (vector-ref pole to) (+ (car (vector-ref pole to)) 1))
+    (set-car! (vector-ref ring n) to)))
+
+
+(SetupHanoi)
diff --git a/Demos/hbrowse.stklos b/Demos/hbrowse.stklos
new file mode 100644
index 0000000..fbc3323
--- /dev/null
+++ b/Demos/hbrowse.stklos
@@ -0,0 +1,109 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; h b r o w s e 		-- A HTML browser
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 31-Aug-1995 15:15
+;;;; Last file update: 17-Sep-1996 11:49
+;;;;
+
+(require "Tk-classes")
+(require "Basics")
+(require "html")
+
+(expand-heap 100000) ; but far lower than netscape ;-)
+
+;;;
+;;; <Gauge> class definition 
+;;;
+;;; I don't use the <Canvas> class to avoid its (long) loading.
+;;; Only a little bit of canvas capabilities are used here
+
+(define-class <Gauge> (<Tk-simple-widget> <Tk-sizeable>)
+  ((foreground  :accessor foreground :initform "red" :init-keyword :foreground)))
+
+(define-method tk-constructor ((self <Gauge>))
+  Tk:canvas)
+
+(define-method initialize ((self <Gauge>) initargs)
+  (next-method)
+  (slot-set! self 'highlight-thickness 0)
+  ((slot-ref self 'Id) 'create 'line 0 0 0 0
+		       :fill (foreground self)
+		       :width (* 2 (+ (height self) 2))))
+
+(define (update-gauge g percent)
+  ((slot-ref g 'Id) 'coords "1" 0 0 (quotient (* (width g) percent) 100) 0)
+  (update))
+
+;;;
+;;; Make interface
+;;;
+(let ((loc (make <Labeled-entry> 
+		 :title "Location:" 
+		 :text-variable '*location*
+		 :font "fixed"))
+      (txt (make <Scroll-text> 
+		 :font "fixed"
+		 :width 80 
+		 :height 45)))
+
+  (bind (Id loc) "<Return>" (lambda () (Html:view-url (Id txt) (value loc))))
+  (pack loc :expand #f :fill "x"    :padx 30 :pady 4)
+  (pack txt :expand #t :fill "both")
+
+  (let* ((f     (make <Frame>))
+	 (lab   (make <Label> :parent f :anchor "w"))
+	 (gauge (make <Gauge> :width 200 :height 10 :background "blue")))
+    (pack lab   :padx 30 :pady 4 :side "left")
+    (pack gauge :padx 10 :side "right")
+    (pack f     :fill "x")
+    
+    ;; See if a file was specified 
+    (when (> *argc* 0)
+	(set! *location* (car *argv*))
+	(Html:view-url (Id txt) *location*))
+
+    ;; Initialize hooks
+    (let ((counter    0)
+	  (pos	     0))
+      (set! html:hook-formatting 
+	    (lambda ()
+	      (when (= counter 20)
+		(set! pos (modulo (+ pos 5) 105))
+		(set! counter 0)
+		(update-gauge gauge pos))
+	      (set! counter (+ counter 1))))
+
+      (set! html:hook-start-loading
+	    (lambda ()
+	      (slot-set! txt 'cursor "watch")
+	      (slot-set! lab 'text "Loading Document ...")
+	      (update)))
+	
+      (set! html:hook-stop-loading 
+	    (lambda ()
+	      (update-gauge gauge 0)
+	      (slot-set! lab 'text "Document done.")
+	      (slot-set! txt 'cursor "top_left_arrow")
+	      (after 5000 (lambda () (slot-set! lab 'text "")))))
+
+      (set! html:hook-title 
+	    (lambda (value)
+	      (slot-set! *top-root* 'title value)))
+
+      (set! html:hook-location
+	    (lambda (value)
+	      (set! *location* value))))))
+
diff --git a/Demos/hello.stk b/Demos/hello.stk
new file mode 100755
index 0000000..c088c3b
--- /dev/null
+++ b/Demos/hello.stk
@@ -0,0 +1,14 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;; Simple Tk script to create a button that prints "Hello, world".
+;; Click on the button to terminate the program.
+;; 
+;; The first line below creates the button, and the second line
+;; arranges for packer to manage the button's geometry, centering
+;; it in the application's main window.
+
+(button '.hello :text "Hello, world" 
+		:command (lambda ()
+			   (display "Hello, world\n")
+			   (destroy *root*)))
+(pack .hello)
diff --git a/Demos/hello.stklos b/Demos/hello.stklos
new file mode 100755
index 0000000..6e950e5
--- /dev/null
+++ b/Demos/hello.stklos
@@ -0,0 +1,17 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;; Simple Tk script to create a button that prints "Hello, world".
+;; Click on the button to terminate the program.
+;; 
+;; The first line below creates the button, and the second line
+;; arranges for packer to manage the button's geometry, centering
+;; it in the application's main window.
+
+(require "Tk-classes")
+
+(define b (make <Button> :text "Hello, world" 
+			 :command (lambda () 
+				    (format #t "Hello, world~%")
+				    (destroy *root*))))
+(pack b)
+
diff --git a/Demos/inspector.stk b/Demos/inspector.stk
new file mode 100755
index 0000000..321e345
--- /dev/null
+++ b/Demos/inspector.stk
@@ -0,0 +1,25 @@
+#!/usr/local/bin/stk -f
+;;;;
+;;;; i n s p e c t o r . s t k   --  A very simple demo of the inspector
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 22-Jan-1995 18:09
+;;;; Last file update: 22-Jan-1995 18:10
+
+
+(label '.l1 :text "Click on a node of the viewer to see the selected widget" 
+	    :relief 'ridge :fg "blue")
+(label '.l2 :text "Double click on a node to inspect it" :relief 'ridge :fg "blue")
+(inspect .l1)
+(view .inspector)
+(pack .l1 .l2 :expand #t :fill 'x)
diff --git a/Demos/mc-server.stk b/Demos/mc-server.stk
new file mode 100755
index 0000000..7f80a87
--- /dev/null
+++ b/Demos/mc-server.stk
@@ -0,0 +1,88 @@
+#!/usr/local/bin/stk -load
+;;;;
+;;;; m c - s e r v e r  . s t k		-- A simple server which accept
+;;;;					   multiple client connections
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 23-Jul-1996 09:00
+;;;; Last file update: 23-Jul-1996 10:09
+
+(require "posix")
+(require "socket")
+
+(define register-connection
+  (let ((sockets '()))
+
+    (lambda (s cnt)
+      ;; Accept connection
+      (socket-accept-connection s)
+
+      ;; Save socket somewher to avoid GC problems
+      (set! sockets (cons s sockets))
+  
+      (let ((in   (socket-input s))
+	    (out  (socket-output s))
+	    (who  (socket-host-name s))
+	    (addr (socket-host-address s)))
+		 
+	;; Display a greeting message
+	(format out "Welcome ~A on server ~A\n" who (posix-host-name))
+	(flush out)
+
+	;; Signal new connection on standard output
+	(format #t  "New connection detected from ~A (~A)\n" who addr)
+
+	;; Create a handler for reading inputs from this new connection
+	(when-port-readable in 
+		(lambda ()
+		  ;; And read all the lines comming from distant machine
+		  (let ((l (read-line in)))
+		    (if (eof-object? l)
+			;; delete current handler
+			(begin
+			  (when-port-readable in #f)
+			  (socket-shutdown s))
+			;; Just write the line read on the socket
+			(begin
+			  (format out "On connection #~S I've read --> ~A\n" cnt l)
+			  (flush out))))))))))
+
+;;;;
+;;;; Program starts here
+;;;;
+(system "clear")
+
+(define s (make-server-socket))
+
+(format #t "Welcome on the multi-server demo
+To use it you can open several windows and you can create a new connection with
+	telnet ~A ~A
+To exit this demo, just type
+	(exit)
+at the STk prompt
+---------------------------------\n\n"
+(posix-host-name) (socket-port-number s))
+
+(when-socket-ready s (let ((count 0))
+		       (lambda ()
+			 (set! count (+ count 1))
+			 (register-connection (socket-dup s) count))))
+
+
+(format #t "Server ~A (~A) is waiting connection on port ~A ...\n"
+	(posix-host-name) (socket-local-address s) (socket-port-number s))
+(flush (current-output-port))
+
diff --git a/Demos/queens.stk b/Demos/queens.stk
new file mode 100755
index 0000000..ceea363
--- /dev/null
+++ b/Demos/queens.stk
@@ -0,0 +1,318 @@
+#!/usr/local/bin/stk -f
+
+; -* Lisp -*-
+
+; Yet another "my first STk program" type thing.  This one is the "8
+; queens" puzzle.  You try to figure out how to place 8 queens on a
+; chessboard so that none of the queens can be taken in a single move.
+;
+; You can do it yourself (and it will make sure you follow the rules)
+; or you can ask it to solve the puzzle starting with a given board
+; configuration.
+;
+; It expects to fined the queen bitmap in the images directory 
+; in the STk library directory.
+
+; 27 Jan 96: ported to STk 3.0
+
+; Grant Edwards
+;
+; grante@winternet.com
+; grante@rosemount.com
+; grante@ep.frco.com
+; edwards@grad.cs.umn.edu
+
+
+
+(define queen-bitmap (string-append "@" *STk-library* "/images/queen"))
+
+; size of board (it's square)
+
+(define size 8)
+
+
+; Predicate that is true if the queens at p1 and p2 can't take each
+; other in 1 move.  p1 and p2 are pairs of the form ( x . y ) where
+; x is column and y is row (both from 0 to size-1).
+
+(define legal-position-pair? 
+  (lambda (p1 p2)
+    (let ([x1 (car p1)] [y1 (cdr p1)] [x2 (car p2)] [y2 (cdr p2)])
+      (not (or 
+	     (= x1 x2) 
+	     (= y1 y2) 
+	     (= (abs (- x1 x2)) (abs (- y1 y2))))))))
+
+
+; Predicate that is true if none of the queens in list history can
+; take queen at postion new in one move.  "history" is a list of
+; position pairs.  "new" is the position pair which we are testing.
+
+(define legal-move? 
+  (lambda (history new)
+    (cond 
+      [(null? history) #t]
+      [(not (legal-position-pair? (car history) new)) #f]
+      [else (legal-move? (cdr history) new)])))
+
+
+; This is the procedure that solves the puzzle given a list of
+; occupied squares and a list of empty rows.  It's also passed a
+; continuation so that it can abort when the user asks it to stop.
+
+; Add a legal move to history list and recurse to build up strings of
+; legal moves.  The chessboard is updated as pieces are placed. When
+; it reaches the required length, it waits for user to press the Next
+; or Stop button. "history" is a list of pairs that denotes where
+; there are already queens.  "ylist" is a list of rows that still need
+; to be filled. "break" is a continuation to be called when the
+; procedure is to be aborted.
+
+(define add-queen 
+  (lambda (history ylist break)
+    (cond
+      [stopPushed    (break #f)]
+      [(null? ylist) (begin (write history)(newline)(waitForNextButton)(if stopPushed (break #f)))]
+      [else          (let ([newy (car ylist)])
+		       (dotimes (newx size)
+			 (if (legal-move? history (cons newx newy))
+			   (begin
+			     (activate-button newx newy)
+			     (update)
+			     (add-queen (cons (cons newx newy) history) (cdr ylist) break)
+			     (deactivate-button newx newy)
+			     (update)))))])))
+
+; global boolean used to keep track of whether or not the user is
+; allowed to rearrange the board.
+
+(define userModsEnabled #t)
+
+
+; set up button states and solve the puzzle starting with the current
+; board configuration.
+
+(define do-solve 
+  (lambda ()
+    (set! stopPushed #f)
+    (.upper.solve 'configure :state 'disabled)
+    (.upper.stop  'configure :state 'normal)
+    (.upper.clear 'configure :state 'disabled)
+    (set! userModsEnabled #f)
+    (call/cc (lambda (break)(add-queen (current-positions)(empty-rows) break)))
+    (.upper.stop 'configure :state 'disabled)
+    (.upper.clear 'configure :state 'normal)
+    (set! userModsEnabled #t)
+    (.upper.solve 'configure :state 'normal)))
+
+
+; define some procedures to create and operate on matrixes
+
+(define make-matrix 
+  (lambda (i j v) 
+    (let ([m (make-vector i)])
+      (dotimes (c j m)
+	(vector-set! m c (make-vector j v))))))
+
+(define matrix-ref 
+  (lambda (m i j)
+    (vector-ref (vector-ref m i) j)))
+
+(define matrix-row 
+  (lambda (m i)
+    (vector-ref m i)))
+
+(define matrix-set! 
+  (lambda (m i j v)
+    (vector-set! (vector-ref m i) j v)))
+
+
+; Create two matrixes.  Each has an entry for each square on the
+; board.  One matrix is Tk button procedures, the other is booleans
+; that reflect whether or not the square is occupied.
+
+(define board-buttons (make-matrix size size #f))
+(define board-states  (make-matrix size size #f))
+  
+
+; redraw the button so that it is occupied and update the matrix of
+; booleans
+
+(define activate-button 
+  (lambda (x y)
+    ((matrix-ref board-buttons y x) 'configure :relief 'raised :foreground "#000")
+    (matrix-set! board-states y x #t)))
+
+
+; redraw the button so that it is empty and update the matrix of
+; booleans
+
+(define deactivate-button 
+  (lambda (x y)
+    (let* ([b (matrix-ref board-buttons y x)]
+	    [bg (cadr (cdddr (b 'configure :background)))])
+	  (b 'configure :relief 'flat :foreground bg)
+	  (matrix-set! board-states y x #f))))
+
+; flash a button
+
+(define flash-button 
+  (lambda (x y)
+    ((matrix-ref board-buttons y x) 'flash)))
+
+
+; Procedure called when the user clicks on a square in the chessboard.
+; If user modifications are not enabled, then do nothing.  Otherwise
+; toggle the sate of the square.  When placing a queen on a previously
+; empty square, remove existing queens that could be taken by the new
+; one.
+
+(define toggle-button 
+  (lambda (x y)
+    (cond
+      [ (not userModsEnabled) #f]
+      [ (matrix-ref board-states y x)  (deactivate-button x y)]
+      [else (begin
+	      (activate-button x y)
+	      (update)
+	      (dotimes (ox size) 
+		(dotimes (oy size)
+		  (if (and
+			(matrix-ref board-states  oy ox)
+			(not (and (= x ox) (= y oy)))
+			(not (legal-position-pair? (cons x y) (cons ox oy))))
+		      (begin
+			(flash-button ox oy)
+			(flash-button ox oy)
+			(flash-button ox oy)
+			(deactivate-button ox oy)
+			(update))))))])))
+
+
+; clear the board
+
+(define clear-board 
+  (lambda ()
+    (dotimes (x size) (dotimes (y size) (deactivate-button x y)))))
+
+
+; Procedures to return a list of consecutive integers from start to
+; end (inclusive).
+
+(define interval 
+  (lambda (start end)
+    (let loop ([s start] [e end] [l ()])
+      (if (> s e) l (loop s (- e 1) (cons e l))))))
+
+(define rinterval 
+  (lambda (start end)
+    (let loop ([s start] [e end] [l ()])
+      (if (> s e) l (loop (+ s 1) e (cons s l))))))
+   
+
+; Return a list of integers that identify the rows on the chessboard
+; that are empty
+
+(define empty-rows 
+  (lambda ()
+    (let loop ([rows (rinterval 0 (- size 1))] [empty ()])
+      (if (null? rows)
+	empty
+	(if (member #t (vector->list (matrix-row board-states (car rows))))
+	  (loop (cdr rows) empty)
+	  (loop (cdr rows) (cons (car rows) empty)))))))
+
+
+; Return a list of pairs ( x . y ) indicating which squares are
+; currently occupied.
+
+(define current-positions 
+  (lambda ()
+    (let ([p ()])
+      (dotimes (x size) 
+	(dotimes (y size) 
+	  (if (matrix-ref board-states y x) (set! p (cons (cons x y) p)))))
+      p)))
+
+
+; Booleans used to detect when user presses a button 
+
+(define nextOrStopPushed #f)
+(define stopPushed #f)
+
+
+; Procedure to wait for the user to press either the next or stop
+; buttons.
+
+(define waitForNextButton 
+  (lambda () 
+    (.upper.next 'configure :state 'normal)
+    (tkwait 'variable 'nextOrStopPushed)
+    (.upper.next 'configure :state 'disabled)))
+
+
+; Define two frames.  The upper will hold control buttons, the lower
+; the chessboard buttons
+
+(frame '.lower :relief 'raised :borderwidth 2)
+(frame '.upper)
+
+; procedure that does nothing other than return the break symbol
+
+(define noop-break (lambda () 'break))
+
+
+; add a frame to the lower frame for each row of sqaures on the
+; chessboard and fill that row with buttons (one per square).
+
+(dotimes (y size)
+  (let ([rowframe (format #f ".lower.row~a" y)])
+    (frame rowframe)
+    (dotimes (x size)
+      (let* ([bn (format #f "~a.b~a" rowframe x)]
+	      [bp (eval (button bn 
+			  :bitmap queen-bitmap
+			  :highlightthickness 0
+			  :relief 'flat))])
+	    (matrix-set! board-buttons y x bp)
+	    (let ([bg (if (odd? (+ x y)) "#bbb" "#eee")])
+	      (bp 'configure :background bg :activebackground "#fff" :foreground bg))
+	    (bind bn "<Button-1>" (lambda () (toggle-button x y) 'break))
+	    (bind bn "<Any-Enter>" noop-break)
+	    (bind bn "<Any-Leave>" noop-break)
+	    (bind bn "<ButtonRelease-1>"  noop-break)
+	    (pack bn :side 'left)
+	    )
+      )
+    (pack rowframe :side 'bottom)
+    )
+  )
+
+
+; add control buttons to upper frame
+
+(button '.upper.quit  :text "Quit" :command (lambda () (exit)))
+(button '.upper.solve :text "Solve" :command do-solve)
+(button '.upper.Clear :text "Clear" :command clear-board)
+(button '.upper.next 
+	:text "Next" 
+	:state 'disabled 
+	:command (lambda () (set! stopPushed #f)(set! nextOrStopPushed #t)))
+(button '.upper.stop 
+	:text "Stop" 
+	:state 'disabled 
+	:command (lambda () (set! stopPushed #t)(set! nextOrStopPushed #t)))
+(frame  '.upper.fill)
+(pack '.upper.solve :side 'left)
+(pack '.upper.next :side 'left)
+(pack '.upper.stop :side 'left)
+(pack '.upper.clear :side 'left)
+(pack '.upper.quit :side 'right)
+(pack '.upper.fill :side 'right)
+
+; arrange the two top level frames
+
+(pack '.upper :side 'top :fill 'x)
+(pack '.lower :side 'bottom) 
+
+
diff --git a/Demos/server.stk b/Demos/server.stk
new file mode 100755
index 0000000..4976a02
--- /dev/null
+++ b/Demos/server.stk
@@ -0,0 +1,44 @@
+#!/usr/local/bin/stk -f
+;;;; s e r v e r  . s t k		-- A simple sever
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  4-Feb-1995 18:17
+;;;; Last file update: 12-Feb-1995 11:57
+
+(define s (make-server-socket))
+
+(dynamic-wind 
+ ;; Init: Launch an xterm with telnet running on the s listening port and connect
+ (lambda ()
+   (run-process "xterm" "-e" "telnet" "localhost" 
+		(number->string (socket-port-number s)))
+   (socket-accept-connection s)
+   (format (socket-output s) "\nWelcome on the socket REPL.\n\n> ")
+   (flush (socket-output s)))
+
+ ;; Action: A toplevel like loop
+ (lambda ()
+   (let loop ()
+     (format (socket-output s) "; Result: ~s\n> " (eval (read (socket-input s))))
+     (flush (socket-output s))
+     (loop)))
+
+ ;; Termination: We go here when 
+ ;;     a) an error occurs 
+ ;;	b) connection is closed
+ (lambda ()
+   (format #t "Shutdown ......\n")
+   (socket-shutdown s)))
diff --git a/Demos/showvars.stk b/Demos/showvars.stk
new file mode 100755
index 0000000..1605cf2
--- /dev/null
+++ b/Demos/showvars.stk
@@ -0,0 +1,54 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -l "$0" "$@"
+;;
+;; show-vars w var var var ...
+;;
+;; Create a top-level window that displays a bunch of global variable values
+;; and keeps the display up-to-date even when the variables change value
+;;
+;; Arguments:
+;;    w -        Name to use for new top-level window.
+;;    var -      Name of variable to monitor.
+;;
+;;
+;; Note that this demo is run with the -l option (instead of the classical -f)
+;;
+;;
+;;           Author: Erick Gallesio [eg@unice.fr]
+;;    Creation date:  9-Aug-1993 22:06
+;; Last file update: 17-Jan-1996 16:54
+
+(define (show-vars w . args)
+  (catch (destroy w))
+  (toplevel w)
+  (wm 'title w "Variable values")
+  (label (& w ".title")
+	 :text "Variable values:" 
+	 :width 20
+	 :anchor "center"
+	 :font "-Adobe-helvetica-medium-r-normal--*-180*")
+  (pack (& w ".title") :side "top" :fill "x")
+  
+  (for-each (lambda(i)
+	      (let* ((w.i 	(& w "." i))
+		     (w.i.name  (& w.i ".name"))
+		     (w.i.value (& w.i ".value")))
+		(frame w.i)
+		(label w.i.name :text (format #f "~A: " i))
+		(label w.i.value :textvar i)
+		(pack w.i.name w.i.value :side "left")
+		(pack w.i :side "top" :anchor "w")))
+	    args)
+
+  (pack [button (& w ".ok") :text " OK " :command (lambda () 
+						    (destroy w))]
+	:side "bottom" 
+	:pady 2))
+
+
+(define a 1)
+(define b '(1 2 (a b d) x 1))
+(define c "A string")
+(show-vars '.test 'a 'b 'c)
+(format #t "Try to modify value of displayed variables with set!\n")
+
diff --git a/Demos/small-ed.stk b/Demos/small-ed.stk
new file mode 100755
index 0000000..6522c85
--- /dev/null
+++ b/Demos/small-ed.stk
@@ -0,0 +1,26 @@
+#!/usr/local/bin/stk -f
+;;;; s m a l l - e d . s t k		-- A small editor to create enhanced
+;;;;					   text (used for Help page construction)
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  6-Dec-1993 17:25
+;;;; Last file update: 26-Nov-1994 10:41
+
+(require "editor")
+
+;;; Build an editor instance
+(stk:make-editor '.ed '(exit))
+(wm 'withdraw *root*)
diff --git a/Demos/stetris.stk b/Demos/stetris.stk
new file mode 120000
index 0000000..14f2d5b
--- /dev/null
+++ b/Demos/stetris.stk
@@ -0,0 +1 @@
+../Contrib/Stetris/stetris.stk
\ No newline at end of file
diff --git a/Demos/stklos-demo.stklos b/Demos/stklos-demo.stklos
new file mode 100755
index 0000000..cb46a35
--- /dev/null
+++ b/Demos/stklos-demo.stklos
@@ -0,0 +1,52 @@
+#!/usr/local/bin/stk -f
+;;;;
+;;;; s t k l o s - d e m o . s t k 	  --  A demo which use some STklos classes
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 24-Aug-1993 19:55
+;;;; Last file update: 21-Jul-1996 11:32
+
+(require "Tk-classes")
+
+;;;; Utilities
+
+(define (make-rectangle coords tags)
+  (make <Rectangle> :parent c :coords coords :fill "Ivory4" :tags tags))
+
+(define (make-circle coords tags)
+  (make <Oval> :parent c :coords coords :fill "Ivory4" :tags tags))
+
+;;;; Make canvas
+(define f (make <Frame>))
+(define l (make <Label>  :parent f :text "A simple demo written in STklos"))
+(define c (make <Canvas> :parent f :relief "groove" :height 400 :width 700))
+(define m (make <Label>  :parent f :font "fixed"
+			 :foreground "red"
+		         :text "Left button to move squares. Right button to move circles"))
+(define q (make <Button> :text "Quit" :command '(exit)))
+
+(pack l c m q :in f :expand #t :fill 'both)
+(pack f)
+
+;;;; Make items
+(define r1 (make-rectangle '(0 0 50 50) 	"Rect"))
+(define r2 (make-rectangle '(100 100 150 150)   "Rect"))
+(define r3 (make-rectangle '(200 200 250 250)   "Rect"))
+
+(define c1 (make-circle '(50 50 100 100)   "Circle"))
+(define c2 (make-circle '(150 150 200 200) "Circle"))
+(define c3 (make-circle '(250 250 300 300) "Circle"))
+
+;;;; Make rectangles movable with button 1 and circles with button 2
+(bind-for-dragging c :button 1 :tag "Rect")
+(bind-for-dragging c :button 3 :tag "Circle")
diff --git a/Demos/stklos-demo2.stklos b/Demos/stklos-demo2.stklos
new file mode 100755
index 0000000..99a7d45
--- /dev/null
+++ b/Demos/stklos-demo2.stklos
@@ -0,0 +1,59 @@
+#!/usr/local/bin/stk -f
+;;;;
+;;;; s t k l o s - d e m o 2 . s t k 	  --  A demo which use some STklos classes
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 24-Aug-1993 19:55
+;;;; Last file update: 21-Jul-1996 11:44
+
+(require "Tk-classes")
+
+(format #t "
+This demo file illustrates the use of bind-for-dragging with various 
+parameters. 
+
+Left button to drag any kind of object
+Left button with Shift key pressed to drag an object and executes user hooks
+Right button to move red objects only.\n")
+
+
+(define c (make <Canvas> :border-width 0))
+(pack c)
+
+
+(define r1 (make <rectangle> :coords '(0 0 50 50) 
+		 	     :parent c 
+			     :fill "red"
+			     :tags "red"))
+(define r2 (make <rectangle> :coords '(100 100 150 150) 
+		 	     :parent c 
+			      :fill "blue"))
+(define t  (make <Text-Item> :coords '(80 80) 
+		 	     :parent c 
+			     :fill "red"
+			     :tags "red"
+			     :text "Hello world!"))
+
+;; Button 1 for dragging objects
+(bind-for-dragging c)
+
+;; Button 1 for dragging objects (with user hooks)
+(bind-for-dragging c :tag 'all
+		     :modifier "Shift"
+		     :start  (lambda (w x y) (format #t "Start to drag ~S\n" w))
+		     :motion (lambda (w x y) (format #t "Move ~A ~A\n" x y))
+		     :stop   (lambda (w x y) (format #t "Stop with ~S\n" w)))
+
+;; Button 3 for dragging red objects (i.e. r1 and t)
+(bind-for-dragging c :tag "red" :button 3)
+
diff --git a/Demos/term.stk b/Demos/term.stk
new file mode 100755
index 0000000..27d3bb9
--- /dev/null
+++ b/Demos/term.stk
@@ -0,0 +1,22 @@
+;;;;
+;;;;  t e r m  . s t k  --  A simple terminal emulator written in Scheme
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  7-Oct-1995 10:39
+;;;; Last file update: 22-Feb-1996 00:29
+
+(require "sterm")
+
+(wm 'withdraw *root*)
+(sterm) ;; Easy no? 
diff --git a/Demos/tkcolor.stklos b/Demos/tkcolor.stklos
new file mode 100755
index 0000000..fe33f31
--- /dev/null
+++ b/Demos/tkcolor.stklos
@@ -0,0 +1,128 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;; 
+;;;; A simple color picker in Tk.
+;;;;
+;;;; Clicking button 1 on the color box sets the text color
+;;;; to that color; Clicking button 3 sets the background.
+;;;; We read /usr/X11R6/lib/X11/rgb.txt by default.  Change the
+;;;; file here if it is somewhere else on your system; if it
+;;;; is a different file, it must have the same format, e.g.
+;;;;    rrr ggg bbb color name
+;;;;
+;;;; This demo is inspired from a Tcl program found on the News. 
+;;;; Original author is <schmi107@maroon.tc.umn.edu>. 
+
+(require "Tk-classes")
+(define max-page	10)
+
+(define color-file 	"/usr/X11R6/lib/X11/rgb.txt")
+(define colors		'())
+(define item-text	(make-vector max-page))
+(define item-color	(make-vector max-page))
+(define color-count	0)
+(define color-index	0)
+
+
+;;;; We cannot create all the colors in the canvas immediately because that uses
+;;;; up the colormap. Instead we only display N items and then configure their
+;;;; colors as we do fake scroll.
+
+(define (color-adjust s args)
+  (case (car args)
+    ((moveto) (set! color-index (inexact->exact (* (cadr args) color-count))))
+    ((scroll) (case (caddr args)
+		((pages) (set! color-index (+ color-index 
+					      (* max-page (cadr args)))))
+		((units) (set! color-index (+ color-index (cadr args)))))))
+  (if (< color-index  0) 
+      (set! color-index 0))
+  (if (>  (+ color-index max-page) color-count)
+      (set! color-index (- color-count max-page)))
+
+  (dotimes (i max-page)
+    (let ((col (vector-ref colors (+ color-index i))))
+      (set! (fill    (vector-ref item-color i)) col)
+      (set! (text-of (vector-ref item-text  i)) col)))
+  (update-scrollbar s))
+
+
+(define (update-scrollbar s)
+  (scrollbar-set! s (/ color-index color-count) 
+		    (/ (+ color-index max-page) color-count))
+  (update 'idletasks))
+
+
+;;;; Read the color file
+(define (read-database file)
+  (with-input-from-file file
+    (lambda ()
+      (display "Reading RGB file ...") (flush)
+      (let ((rgx (string->regexp 
+		  "^[ \t]*[0-9]+[ \t]+[0-9]+[ \t]+[0-9]+[ \t]*(.*)$")))
+	(do ((l (read-line) (read-line)))
+	    ((eof-object? l))
+	  (let ((match (rgx l)))
+	    (when match
+	      (set! colors (cons (apply substring l (cadr match)) colors)))))
+	(set! colors (list->vector (reverse colors)))
+	(set! color-count (vector-length colors)))
+      (display " done\n"))))
+
+(define (make-chooser parent)
+  ;; Make the scroll
+  (let* ((f (make <Frame> :parent parent))
+	 (c (make <Canvas> :parent f :width 200 :height 200))
+	 (s (make <Scrollbar> :parent f :relief "sunken" :width 10)))
+    
+    (pack s :side "left" :fill "y")
+    (pack c :expand #t :fill "x")
+    (dotimes (i 10)
+      (let ((pos (* i 20))
+	    (col (vector-ref colors i)))
+	
+	(vector-set! item-color i (make <Rectangle> 
+					:parent c 
+					:coords (list 0 pos 50 (+ pos 19))
+					:fill col 
+					:outline ""))
+	(vector-set! item-text  i (make <Text-item> 
+					:parent c 
+					:coords (list 55 (+ pos 3))
+					:anchor "nw" 
+					:text col 
+					:tags "text"))))
+    (bind c "<Button-1>" (lambda (y)
+			   (let ((item (vector-ref item-text (quotient y 20))))
+			     (set! (background c) (text-of item)))))
+    (bind c "<Button-3>" (lambda (y)
+			   (let ((item (vector-ref item-text (quotient y 20))))
+			     (item-configure c "text" :fill (text-of item)))))
+    ;; Set the command associated to the scrollbar
+    (set! (command s) (lambda l (color-adjust s l)))
+    (update-scrollbar s)
+    (pack f :fill "x")
+
+    (pack (make <Button> :parent parent :text "Select" 
+		:command (let ((e (make <Entry>)))
+			   ;; Create an entry to set the selection
+			   ;; This is silly but can we do better in Tk?
+			   (lambda ()
+			     (let ((s (format #f "-bg ~s -fg ~s"
+					   (background c)
+					   (list-ref (item-configure c "text" :fill)
+						     4))))
+			       (set! (value e) s)
+			       (selection-set! e 0 (string-length s))))))
+
+	  (make <Button> :parent parent :text "Quit" 
+		:command (lambda () (exit 0)))
+	  :side "left" :fill "both" :expand #t)
+    (pack f :expand #t :fill "both")))
+
+(wm 'withdraw ".")
+(read-database color-file)	     
+(make-chooser (make <Toplevel> :title "Tkcolors"))
+
+
+
diff --git a/Demos/ttt.stk b/Demos/ttt.stk
new file mode 100755
index 0000000..1910150
--- /dev/null
+++ b/Demos/ttt.stk
@@ -0,0 +1,665 @@
+#!/bin/sh
+:;  exec /usr/local/bin/stk -f "$0" "$@"
+;;;
+;;; 3D Tic-Tac-Toe
+;;; written by Edin "Dino" Hodzic
+;;; mailto:ehodzic@scu.edu
+
+;;; last update: Jun 30, 1996.
+
+;;; This is a free program written for STk 3.0.
+
+;;; GUI related variables
+
+; sizes and positions
+(define cell-width 15)
+(define cell-height 15)
+(define distance 15)			; vertical between planes
+(define x0 distance)
+(define y0 distance)
+(define modx0 0)				; actual x0
+(define mody0 0)				; actual y0
+(define angle 45)			; plane drawing angle
+(define delx 0)				; x change from row to row
+(define dely 0)				; y change from row to row
+
+; colors
+(if (eq? (winfo 'visual '.) 'staticgray)
+    (begin
+      (define grid-color 'black)
+      (define sign-color 'black)
+      (define win-sign-color 'black)
+      (define last-move-sign-color 'black)
+      (define show-line-color 'black))
+    (begin
+      (define grid-color 'white)
+      (define sign-color 'navy)
+      (define win-sign-color 'red)
+      (define last-move-sign-color 'blue)
+      (define show-line-color 'magenta)))
+
+;;; GUI related functions
+
+(define (set-angle! ang)
+  (set! angle ang)
+  (let* ((pi (* (atan 1) 4))
+	 (rangle (* angle (/ pi 180))))
+    (set! delx (round (- (* cell-height (cos rangle)))))
+    (set! dely (round (* cell-height (sin rangle))))))
+
+; draw a 4x4 plane with x0 y0 reference point (in the canvas)
+(define (draw-plane x0 y0)
+  (for-each-5
+   (lambda (i)
+     (let* ((rowx1 (+ x0 (* delx i)))
+	    (rowy1 (+ y0 (* dely i)))
+	    (rowx2 (+ rowx1 (* cell-width 4)))
+	    (rowy2 rowy1)
+	    (colx1 (+ x0 (* cell-width i)))
+	    (coly1 y0)
+	    (colx2 (+ colx1 (* delx 4)))
+	    (coly2 (+ y0 (* dely 4))))
+       (.board 'create 'line		; horizontal line
+	       rowx1 rowy1 
+	       rowx2 rowy2
+	       :fill grid-color
+	       :width 1)
+       (.board 'create 'line		; vertical line
+	       colx1 coly1
+	       colx2 coly2
+	       :fill grid-color
+	       :width 1)
+       (if (= i 4)
+	   (begin
+	     (.board 'create 'line	; plane bottom horizontal line
+		     rowx1 (+ 2 rowy1)
+		     rowx2 (+ 2 rowy2)
+		     :fill grid-color
+		     :width 2)
+	     (.board 'create 'line	; plane side vertical line
+		     colx1 (+ 2 coly1)
+		     colx2 (+ 2 coly2)
+		     :fill grid-color
+		     :width 2)))))))
+
+; screen coordinates to point
+(define (screenxy->point x y)
+  (let* ((canx (.board 'canvasx x))
+	 (cany (.board 'canvasy y))
+	 (x0 modx0)
+	 (y0 mody0)
+	 (plane (inexact->exact 
+		 (floor (/ (- cany y0)
+			   (+ (* dely 4) distance)))))
+	 (rowq (/ (- cany y0 (+ (* dely 4 plane) (* distance plane)))
+		  dely))
+	 (row (inexact->exact (floor rowq)))
+	 (col (inexact->exact (floor 
+			       (/ (- canx (+ x0 (* delx rowq))) 
+				  cell-width)))))
+    (if (and (<= 0 plane 3) (<= 0 row 3) (<= 0 col 3))
+	(make-point plane row col)
+	#f)))
+
+; north-west corner of a point to board screen coordinates
+(define (point->screen point)
+  (let ((plane (point-plane point))
+	(row (point-row point))
+	(col (point-column point)))
+    (cons (inexact->exact (+ modx0 (* delx row) 
+			     (* cell-width col)))
+	  (inexact->exact (+ mody0 (* plane dely 4) 
+			     (* row dely) (* plane distance))))))
+
+; center of a point to board screen coordinates
+(define (point->screen-center point)
+  (let* ((scr (point->screen point))
+	 (x (inexact->exact (+ (car scr) (* cell-width 0.5) (* delx 0.5))))
+	 (y (inexact->exact (+ (cdr scr) (* dely 0.5)))))
+    (cons x y)))
+
+; the last point for which lines have been shown
+(define shown-lines-point #f)
+
+; line showing flag
+(define show-lines-flag #f)
+
+(define (show-lines point)
+  (if (and point (or (not shown-lines-point)
+		     (not (point-equal? point shown-lines-point))))
+      (begin
+	(set! shown-lines-point point)
+	(.board 'delete "lines")
+	(for-each
+	 (lambda (line)
+	   (let* ((first (line 0))
+		  (last (line 3))
+		  (scr-first (point->screen-center first))
+		  (scr-last (point->screen-center last)))
+	     (.board 'create 'line	; draw the line
+		     (car scr-first) (cdr scr-first)
+		     (car scr-last) (cdr scr-last)
+		     :tag  "lines"
+		     :width 0
+		     :fill show-line-color)
+	     (for-each-point-in-line	; mark the point thru which line goes
+	      (lambda (point)
+		(let ((scr (point->screen-center point)))
+		  (.board 'create 'text (car scr) (cdr scr)
+			  :text "="
+			  :tag "lines"
+			  :fill show-line-color)))
+	      line)))
+	 (point-lines point))))
+  (if (not show-lines-flag)
+      (.board 'delete "lines")))
+
+(define (toggle-show-lines point)
+  (set! show-lines-flag (not show-lines-flag))
+  (set! shown-lines-point #f)
+  (note (string-append "Line showing is " (if show-lines-flag "ON" "OFF")))
+  (show-lines point))
+
+; show the move on the board
+(define (draw-move point val . high)
+  (let* ((scr (point->screen-center point))
+	 (x (car scr))
+	 (y (cdr scr)))
+    (.board 'delete (point->string point))
+    (.board 'create 'text x y
+	    :text (value->sign val) 
+	    :tag (point->string point)
+	    :fill (cond
+		   ((or (null? high) (eq? (car high) 'plain)) sign-color)
+		   ((equal? (car high) 'highlight) win-sign-color)
+		   ((equal? (car high) 'last) last-move-sign-color)
+		   (#t sign-color)))))
+
+(define (clear-move point)
+  (.board 'delete (point->string point)))
+
+; draw the 3D 4x4x4 board
+(define (draw-board)
+  (catch (entry '.note :state 'disabled))
+  (catch (canvas '.board :relief 'sunken :borderwidth 2))
+  (catch
+   (menubutton '.mb :text "File")
+   (menu '.mb.m)
+   (.mb.m 'add 'command :label "New Game" :command new-game)
+   (.mb.m 'add 'command :label "Take Back" :command take-back-move)
+   (.mb.m 'add 'command :label "Toggle Lines" 
+	  :command (lambda () (toggle-show-lines #f)))
+   (.mb.m 'add 'command :label "Resize" :command tune)
+   (.mb.m 'add 'command :label "Quit" :command (lambda () (quit)))
+   (.mb 'config :menu '.mb.m))
+  (catch
+   (menubutton '.help :text "Help")
+   (menu '.help.m)
+   (.help.m 'add 'command :label "About" :command about)
+   (.help 'config :menu '.help.m))
+  (.board 'delete 'all)
+  (bind '.board "<1>" (lambda (x y) (action x y)))
+  (bind '.board "<2>" take-back-move)
+  (bind '.board "<3>" tune)
+  (bind '.board "<Any-Motion>" 
+	(lambda (x y) (show-lines (screenxy->point x y))))
+  (bind '.board "<l>" 
+	(lambda (x y) (toggle-show-lines (screenxy->point x y))))
+  (bind '.board "<L>" 
+	(lambda (x y) (toggle-show-lines (screenxy->point x y))))
+  (bind '. "<Q>" (lambda () (quit)))
+  (bind '. "<q>" (lambda () (quit)))
+  (bind '. "<space>" new-game)
+  (bind '. "<m>" (lambda () (display moves) (newline)))
+  (focus '.board)
+  (for-each-4				; draw plane
+   (lambda (i)
+     (draw-plane 0 (+ (* dely 4 i) (* distance i)))))
+  (let* ((bbox (.board 'bbox 'all))
+	 (width (+ (- (caddr bbox) (car bbox)) x0 x0))
+	 (height (+ (- (cadddr bbox) (cadr bbox)) y0 y0)))
+    (set! modx0 (- x0 (car bbox)))
+    (set! mody0 (- y0 (cadr bbox)))
+    (.board 'move 'all modx0 mody0)
+    (.board 'configure :width width :height height)
+    (pack '.note :expand #t :fill "x" :side 'bottom)
+    (pack '.board :expand #t :fill "both" :side 'bottom)
+    (pack '.mb :side 'left)
+    (pack '.help :side 'right))
+  (for-each-point1			; draw point state sign
+   (lambda (point)
+     (let ((val (state-ref1 point)))
+       (if (not (= val empty-value))
+	   (if (crosses? win-line point)
+	       (draw-move point val 'highlight)
+	       (if (or (and (not (null? moves))
+			    (point-equal? (car moves) point))
+		       (and (not (null? (cdr moves)))
+			    (point-equal? (cadr moves) point)))
+		   (draw-move point val 'last)
+		   (draw-move point val)))))))
+  (let ((point shown-lines-point))	; show lines if on
+    (set! shown-lines-point #f)
+    (show-lines point))
+  (note ""))
+
+(define (about)
+  (catch (destroy .about))
+  (toplevel '.about)
+  (message '.about.m 
+	   :width 250
+	   :justify 'center
+	   :text 
+	   "3D Tic-Tac-Toe\n\
+by\n\
+Edin \"Dino\" Hodzic\n\
+mailto:ehodzic@scu.edu")
+  (button '.about.ok :text "OK" :command (lambda () (destroy '.about)))
+  (pack '.about.m :expand #t :fill 'both :side 'top)
+  (pack '.about.ok :side 'top))
+
+; reset the board size/angle
+(define (tune-reset)
+  (set! cell-width 15)
+  (set! cell-height 15)
+  (set-angle! 45))
+
+; show the resizing window
+(define (tune)
+  (catch (destroy '.tune))
+  (toplevel '.tune)
+  (scale '.tune.cw 
+	 :label "Cell Width"
+	 :variable 'cell-width 
+	 :command (lambda (v) (set-angle! angle) (draw-board))
+	 :relief 'sunken
+	 :orient 'horizontal)
+  (scale '.tune.ch 
+	 :label "Cell Height"
+	 :variable 'cell-height
+	 :command (lambda (v) (set-angle! angle) (draw-board))
+	 :relief 'sunken
+	 :orient 'horizontal)
+  (scale '.tune.an
+	 :label "Angle"
+	 :variable 'angle
+	 :orient 'horizontal
+	 :relief 'sunken
+	 :to 180
+	 :command (lambda (v) (set-angle! angle) (draw-board)))
+  (button '.tune.quit :text "Close"
+	  :command (lambda () (destroy '.tune)))
+  (button '.tune.reset :text "Reset"
+	  :command (lambda () (tune-reset) (draw-board)))
+  (pack '.tune.cw :fill 'x :side 'top)
+  (pack '.tune.ch :fill 'x :side 'top)
+  (pack '.tune.an :fill 'x :side 'top)
+  (pack '.tune.reset :fill 'x :side 'left)
+  (pack '.tune.quit :fill 'x :side 'right))
+
+; highlight the winning line
+(define (show-winning move)
+  (let ((val (state-ref1 move)))
+    (for-each-point-in-line		; draw highlighed point
+     (lambda (point)
+       (draw-move point val 'highlight))
+     win-line)
+    (note (string-append 
+	   "Game Over - " 
+	   (if (= val comp-value) 
+	       "I win!" 
+	       "You win!")))))
+
+; show a note
+(define (note str)
+  (.note 'config :state 'normal)
+  (.note 'delete 0 'end)
+  (.note 'insert 0 str)
+  (.note 'config :state 'disabled))
+
+; clear up everything and restart the game
+(define (new-game)
+  (clear-state!)
+  (set! game-over #f)
+  (set! win-line #f)
+  (set! moves '())
+  (draw-board))
+
+;;; state and other game related variables
+
+
+(define signs (vector #f "o" "x"))	; player signs
+(define game-over #f)			; game over flag
+(define win-line #f)			; the winning line
+(define empty-value 0)			; available point value in the state
+(define user-value 1)			; user value in the state vector
+(define comp-value 2)			; compute value in the state vector
+(define state #f)			; the board state
+(define moves '())			; the list of all moves played
+
+;;; state access functions
+
+(define (value->sign val) 
+  (vector-ref signs val))
+
+(define (state-ref p r c)
+  (let ((ind (inexact->exact (+ c (* 4 (+ r (* 4 p)))))))
+    (vector-ref state ind)))
+
+(define (state-ref1 point)
+  (state-ref (point-plane point)
+	     (point-row point)
+	     (point-column point)))
+
+(define (state-set! p r c v)
+  (let ((ind (inexact->exact (+ c (* 4 (+ r (* 4 p)))))))
+    (vector-set! state ind v)))
+
+(define (state-set1! point val)
+  (state-set! (point-plane point)
+	      (point-row point)
+	      (point-column point) val))
+
+(define (clear-state!)
+  (set! state (make-vector 64 empty-value)))
+
+;;; playing functions
+
+; entry point on user click
+(define (action x y)
+  (let* ((user-move (screenxy->point x y)))
+    (if (and (not game-over) user-move)
+	(play user-move))))
+
+(define (acceptable-move? move)
+  (and (not game-over)
+       (= (state-ref1 move) empty-value)))
+
+; play with user's move
+(define (play move)
+  (if (acceptable-move? move)
+      (begin
+	(note "")
+	(enter-move move user-value)
+	(if (won? move)
+	    (show-winning move)
+	    (let ((comp-move (make-move)))
+	      (enter-move comp-move comp-value)
+	      (if (won? comp-move)
+		  (show-winning comp-move)
+		  (if (draw?)
+		      (note "It's a draw!"))))))
+      (note "Bad move")))
+
+; change the state and draw the move on the board
+(define (enter-move move val)
+  (if move
+      (begin
+	(state-set1! move val)
+	(set! moves (cons move moves))
+	(if (and 
+	     (not (null? (cdr moves)))
+	     (not (null? (cddr moves))))
+	    (begin
+	      (clear-move (caddr moves))
+	      (draw-move (caddr moves) val 'plain)))
+	(draw-move move val 'last)
+	(update 'idletasks))))
+
+; take a move back
+(define (take-back-move)
+  (if (null? moves)
+      (note "No more moves")
+      (let ((take-one
+	     (lambda ()
+	       (if (not (null? moves))
+		   (begin
+		     (state-set1! (car moves) empty-value)
+		     (clear-move (car moves))
+		     (set! moves (cdr moves)))))))
+	(take-one)
+	(if (= (state-ref1 (car moves)) user-value)
+	    (take-one)) ; one more for the user move
+	(set! game-over #f)
+	(set! win-line #f)
+	(draw-board))))
+
+; deciding among same score moves
+(define (doexchange?)
+  (= (random 5) 0))
+
+; find the best move
+(define (make-move)
+  (let ((best-score -1)
+	(best-move #f))
+    (for-each-point1
+     (lambda (point)
+       (if (= (state-ref1 point) empty-value)
+	   (let ((score (score-if-played point)))
+	     (if (or (> score best-score)
+		     (and (= score best-score) (doexchange?)))
+		 (begin
+		   (set! best-score score)
+		   (set! best-move point)))))))
+    best-move))
+
+; position evaluation
+(define (score-if-played point)
+  (let ((score 0))
+    (for-each 
+     (lambda (line)
+       (let ((user-count 0)
+	     (comp-count 1))
+	 (for-each-point-in-line
+	  (lambda (point)
+	    (let ((val (state-ref1 point)))
+	      (cond 
+	       ((= val comp-value)
+		(set! comp-count (1+ comp-count)))
+	       ((= val user-value)
+		(set! user-count (1+ user-count))))))
+	  line)
+	 (cond ((= user-count 0) ; offensive
+		(begin
+		  (set! score (+ score (vector-ref
+					#(0 80 100 2000 100000)
+					comp-count)))
+		  (if (= comp-count 2)
+		      (for-each-point-in-line
+		       (lambda (p)
+			 (if (and (= (state-ref1 p) empty-value)
+				  (not (point-equal? point p)))
+			     (for-each
+			      (lambda (line)
+				(let ((user-count 0)
+				      (comp-count 0))
+				  (for-each-point-in-line
+				   (lambda (point)
+				     (let ((val (state-ref1 point)))
+				       (cond 
+					((= val comp-value)
+					 (set! comp-count (1+ comp-count)))
+					((= val user-value)
+					 (set! user-count 
+					       (1+ user-count))))))
+				   line)
+				  (if (and (= user-count 0)
+					   (>= comp-count 2))
+				      (set! score (+ score 800)))))
+			      (point-lines p))))
+		       line))))
+	       ((= comp-count 1) ; defensive
+		(set! score (+ score (vector-ref
+				      #(0 50 1500 10000)
+				      user-count)))))))
+     (point-lines point))
+    score))
+
+; checking if the game is won
+(define (won? move)
+  (let ((val (state-ref1 move)))
+    (for-each
+     (lambda (line)
+       (if (full-line? line val)
+	   (set! win-line line)))
+     (point-lines move)))
+  (set! game-over win-line)
+  game-over)
+
+; is it a draw?
+(define (draw?)
+  (= (length moves) 64))
+
+;;; point functions
+
+(define (make-point p r c)
+  (vector p r c))
+
+(define (point-equal? p1 p2)
+  (and (= (point-plane p1) (point-plane p2))
+       (= (point-row p1) (point-row p2))
+       (= (point-column p1) (point-column p2))))
+
+(define (point-plane point)
+  (vector-ref point 0))
+
+(define (point-row point)
+  (vector-ref point 1))
+
+(define (point-column point)
+  (vector-ref point 2))
+
+(define (point->string point)
+  (string-append
+   (number->string (point-plane point))
+   ","
+   (number->string (point-row point))
+   ","
+   (number->string (point-column point))))
+
+;;; line functions
+
+(define (complement x)
+  (- 3 x))
+
+; line templates:
+; car is the predicate for the line to go through a point. 
+; cdr is the line.
+(define line-tpl
+  (list
+   (cons 
+    (lambda (p r c) #t)
+    (lambda (p r c) (lambda (x)	(make-point p r x))))
+   (cons 
+    (lambda (p r c) #t)
+    (lambda (p r c) (lambda (x) (make-point p x c))))
+   (cons 
+    (lambda (p r c) #t)
+    (lambda (p r c) (lambda (x) (make-point x r c))))
+   (cons 
+    (lambda (p r c) (= r c))
+    (lambda (p r c) (lambda (x) (make-point p x x))))
+   (cons 
+    (lambda (p r c) (= r (complement c)))
+    (lambda (p r c) (lambda (x) (make-point p x (complement x)))))
+   (cons 
+    (lambda (p r c) (= p c))
+    (lambda (p r c) (lambda (x) (make-point x r x))))
+   (cons 
+    (lambda (p r c) (= p (complement c)))
+    (lambda (p r c) (lambda (x) (make-point x r (complement x)))))
+   (cons 
+    (lambda (p r c) (= p r))
+    (lambda (p r c) (lambda (x) (make-point x x c))))
+   (cons 
+    (lambda (p r c) (= p (complement r)))
+    (lambda (p r c) (lambda (x) (make-point x (complement x) c))))
+   (cons 
+    (lambda (p r c) (= p r c))
+    (lambda (p r c) (lambda (x) (make-point x x x))))
+   (cons 
+    (lambda (p r c) (= p r (complement c)))
+    (lambda (p r c) (lambda (x) (make-point x x (complement x)))))
+   (cons 
+    (lambda (p r c) (= p (complement r) c))
+    (lambda (p r c) (lambda (x) (make-point x (complement x) x))))
+   (cons 
+    (lambda (p r c) (= (complement p) r c))
+    (lambda (p r c) (lambda (x) (make-point (complement x) x x))))))
+
+; list of lines going through a point
+(define (point-lines point)
+  (let ((plane (point-plane point))
+	(row (point-row point))
+	(column (point-column point))
+	(lines '()))
+    (for-each
+     (lambda (tpl)
+       (if ((car tpl) plane row column)
+	   (set! lines
+		 (cons 
+		  ((cdr tpl) plane row column)
+		  lines))))
+     line-tpl)
+    lines))
+
+; whther line crosses point
+(define (crosses? line point)
+  (if line
+      (let ((crosses?
+	     (lambda (return)
+	       (for-each-point-in-line 
+		(lambda (line-point)
+		  (if (point-equal? line-point point)
+		      (return #t)))
+		line)
+	       (return #f))))
+	(call/cc crosses?))
+      #f))
+
+;;; iterators
+
+(define (for-each-4 func)
+  (for-each func '(0 1 2 3)))
+
+(define (for-each-5 func)
+  (for-each func '(0 1 2 3 4)))
+
+; each point on the board (func plane row col)
+(define (for-each-point func)
+  (for-each-4
+   (lambda (plane)
+     (for-each-4
+      (lambda (row)
+	(for-each-4
+	 (lambda (col)
+	   (func plane row col))))))))
+
+; similar to the above (func point)
+(define (for-each-point1 func)
+  (for-each-point 
+   (lambda (plane row col)
+     (func (make-point plane row col)))))
+
+; for each point in a line call (func point)
+(define (for-each-point-in-line func line)
+  (for-each-4
+   (lambda (x)
+     (func (line x)))))
+
+; is the line full of value
+(define (full-line? line value)
+  (let ((full?
+	 (lambda (return)
+	   (for-each-point-in-line
+	    (lambda (point)
+	      (if (not (= (state-ref1 point) value))
+		  (return #f)))
+	    line)
+	   (return #t))))
+    (call/cc full?)))
+
+;;; game initiation
+
+(tune-reset)
+(new-game)
diff --git a/Demos/turtle.stk b/Demos/turtle.stk
new file mode 100755
index 0000000..bc0ae2d
--- /dev/null
+++ b/Demos/turtle.stk
@@ -0,0 +1,561 @@
+#!/bin/sh
+:; exec /usr/local/bin/stk -f "$0" "$@"
+;;;
+;;; STkTurtle v1.0
+;;; 
+;;; A (direct) rewritting of the TkTurtle demo found on the net in STk.
+;;; Original copyright:
+;;; 		Copyright 1993 James Noble, kjx@comp.vuw.ac.nz
+;;;
+
+;;; This file comports two distinct parts. 
+;;;	First part is the turtle package 
+;;;	Second parts contains a set of examples using the turtle package
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; T u r t l e   p a c k a g e 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define turtle-canvas-name 	".c")
+(define turtle-canvas      	'())
+
+(define turtle-colours 		#("" "root_weave" "stipple" "gray1" "boxes" 
+				  "hlines2" "vlines2" "cross_weave" 
+				  "light_gray" "dimple1" "vlines3" "hlines3" 
+				  "grid4" "gray3" "dimple3" "grid8"))
+
+(define turtle-num_colours 16)
+
+(define turtle-d2r	(/ 180 3.14159))
+
+(define turtle-x		0)
+(define turtle-y		0)
+(define turtle-direction 	270)
+(define turtle-width 		0)
+(define turtle-colour 		0)
+(define turtle-pen 		#t)
+
+(define turtle-speed		#t)
+(define turtle-show		#t)
+
+
+;;;
+;;; initialise turtle
+;;;
+(define (turtle)
+  ;;  clear actually does this, plus draw-turtle
+  (set! turtle-x 	 0)
+  (set! turtle-y 	 0)
+  (set! turtle-direction 270)
+  (set! turtle-width 	 0)
+  (set! turtle-colour 	 0)
+  (set! turtle-pen 	 #t)
+
+  ;;  debugging
+  (set! turtle-speed	 #t)
+  (set! turtle-show	 #t)
+
+  (if (winfo 'exists turtle-canvas-name)
+      (new)
+      (begin
+	(scrollbar ".v" :relief "sunken" :borderwidth 3 
+		        :command (lambda l (apply turtle-canvas 'yview l)))
+	(scrollbar ".h" :relief "sunken" :borderwidth 3 
+		        :orient 'horiz :command (lambda l 
+						  (apply turtle-canvas 'xview l)))
+  
+	(canvas turtle-canvas-name :borderwidth     3 
+				   :scrollregion    '(-1000 -1000 1000 1000)
+				   :xscrollcommand  (lambda l (apply .h 'set l))
+				   :yscrollcommand  (lambda l (apply .v 'set l))
+				   :height          500 
+				   :width           500)
+	
+	(set! turtle-canvas (string->widget turtle-canvas-name))
+
+	(centre)
+  
+	(pack .h :side "bottom" :fill "x")
+	(pack .v :side "right"  :fill "y")
+	(pack turtle-canvas :expand #t :fill "both")
+
+
+	(bind turtle-canvas "<2>"         (lambda (x y)
+					    (turtle-canvas 'scan 'mark x y)))
+	(bind turtle-canvas "<B2-Motion>" (lambda (x y)
+					    (turtle-canvas 'scan 'dragto x y)))
+	(bind turtle-canvas "<c>" 	  centre)
+	(bind turtle-canvas "<Control-c>" (lambda () (destroy ".")))
+	(bind turtle-canvas "<Control-q>" (lambda () (destroy ".")))
+	(bind turtle-canvas "<f>"         toggle-speed)
+	(bind turtle-canvas "<s>"	  toggle-show)
+	
+	(focus turtle-canvas)
+
+	(wm 'minsize    "." 10 10)
+	(wm 'title      "." "Turtle")
+	(wm 'iconname   "." "Turtle")
+
+	(draw-turtle))))
+
+;;;
+;;;  drawing
+;;;
+
+(define (make-stipple n)
+  (let ((name (vector-ref turtle-colours n)))
+    (if (string=? name "")
+	""
+	(string-append "@" *STk-library* "/images/" name))))
+
+(define (go length)
+  (let ((newx (+ turtle-x (* (cos (/ turtle-direction turtle-d2r)) length)))
+	(newy (+ turtle-y (* (sin (/ turtle-direction turtle-d2r)) length))))
+
+    (goto newx newy)
+    length))
+
+(define (goto x y)
+  (when turtle-pen
+     (turtle-canvas 'create 'line turtle-x turtle-y x y 
+		    :width turtle-width 
+		    :stipple (make-stipple turtle-colour)
+		    :tags 'line))
+
+  (set! turtle-x x)
+  (set! turtle-y y)
+  (when turtle-show  (draw-turtle))
+  (when turtle-speed (update))
+  (list x y))
+
+
+;;;  writing text
+(define (Write text)
+  (turtle-canvas 'create 'text turtle-x turtle-y 
+		 :text text 
+		 :stipple (make-stipple turtle-colour)
+		 :tags 'text)
+  (when turtle-speed (update)))
+
+
+;;;  writing windows
+(define (window name)
+  (turtle-canvas 'create 'window turtle-x turtle-y 
+		 :window name
+		 :tags 'window)
+  (update))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; drawing parameters
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; change pen state
+(define (pen . p)
+  (if (null? p)
+      turtle-pen
+      (set! turtle-pen (car p))))
+
+(define (down) (pen #t))
+(define (up)   (pen #f))
+
+
+;;; change direction
+(define (turn n)
+  (turnto (+ turtle-direction n)))
+
+(define (turnto n)
+  (set! turtle-direction (modulo (floor n) 360))
+  (draw-turtle)
+  turtle-direction)
+
+(define (east)  (turnto 0))
+(define (south) (turnto 90))
+(define (west)  (turnto 180))
+(define (north) (turnto 270))
+
+(define (direction) 
+  turtle-direction)
+
+(define (location)
+  (list turtle-x turtle-y))
+
+(define (width . w)
+  (unless (null? w)
+     (set! turtle-width (car w))
+     (draw-turtle))
+  turtle-width)
+
+(define (colour . c)
+  (if (null? c) 
+      turtle-colour
+      (set! turtle-colour (modulo (floor (car c)) turtle-num_colours))))
+
+(define (status . c)
+  (if (null? c)
+      (list turtle-x turtle-y turtle-direction turtle-width turtle-colour 
+	    turtle-pen)
+      (if (not (= (length (car c)) 6))
+	  (error "Can't restore saved state")
+	  (let ((c (car c)))
+	    (set! turtle-x         (list-ref c 0))
+	    (set! turtle-y         (list-ref c 1))
+	    (set! turtle-direction (list-ref c 2))
+	    (set! turtle-width     (list-ref c 3))
+	    (set! turtle-colour    (list-ref c 4))
+	    (set! turtle-pen       (list-ref c 5))
+	    (draw-turtle)
+	    c))))
+
+(define (draw-turtle)
+  (when turtle-show
+     (turtle-canvas 'delete 'turtle)
+     (turtle-canvas 'create 'line 
+		    turtle-x 
+		    turtle-y 
+		    (+ turtle-x (* (cos (/ turtle-direction turtle-d2r)) 10))
+		    (+ turtle-y (* (sin (/ turtle-direction turtle-d2r)) 10))
+		    :arrow 'last 
+		    :fill  "red"
+		    :tags 'turtle 
+		    :width turtle-width))
+  0)
+
+(define (show)
+  (set! turtle-show #t)
+  (draw-turtle)
+  #t)
+
+(define (hide)
+   (set! turtle-show #f)
+   (turtle-canvas 'delete 'turtle)
+   #f)
+
+(define (toggle-show)
+  (if turtle-show (hide) (show)))
+
+
+;;; misc
+(define (home)
+  (set! turtle-x 0)
+  (set! turtle-y 0)
+  (set! turtle-direction 270)
+  (draw-turtle))
+
+(define (clear)
+  (home)
+  (down)
+  (width 0)
+  (colour 0)
+  (turtle-canvas 'delete 'line 'text)
+  (draw-turtle))
+
+(define (new)
+  (clear)
+  (turtle-canvas 'delete 'window))
+
+(define (screen-dump . file)
+  (turtle-canvas 'postscript 
+		 :file (if (null? file) "Screen-dump.ps" (car file))))
+
+(define (centre)
+  (turtle-canvas 'xview 'moveto 0.37)
+  (turtle-canvas 'yview 'moveto 0.37))
+
+
+;;;conversion
+(define (d2r degrees)
+  (/ degrees turtle-d2r))
+
+;;; speed
+(define (speed . s)
+  (if (null? s) 
+      turtle-speed
+      (set! turtle-speed (car s))))
+
+(define (slow) (speed #t))
+(define (fast) (speed #f))
+(define (toggle-speed) (if turtle-speed (fast) (slow)))
+
+;;; MACROS - move, moveto
+(define (move distance)
+  (let ((oldpen (pen)))
+    (go distance)
+    (pen oldpen)))
+
+(define (moveto x y)
+  (let ((oldpen (pen)))
+    (goto x y)
+    (pen oldpen)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; E x a m p l e s
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;; polygon
+(define (polygon n length)
+  (do ((k 0 (+ k 1)))
+      ((= k n))
+    (turn (/ 360 n))
+    (go length)))
+
+;; polygon, with a functional parameter 
+(define (fungon n length F)
+  (do ((k 0 (+ k 1)))
+      ((= k n))
+    (turn (/ 360 n))
+    (F length)))
+
+;; Iterative Spiral
+(define (spiral angle length)
+  (while (>= length 1)
+	 (go length)
+	 (turn angle)
+	 (set! length (- length 5))))
+
+;; Recursive spiral
+(define (rspiral angle length)
+  (when (>= length 1)
+	(go length)
+	(turn angle)
+	(rspiral angle (- length 5))))
+
+;; "Koch's" a single line - used in snowflake
+(define (koch order length)
+  (if (or (<= order  1) (<= length 1))
+      (go length)
+      (begin
+	(koch (- order 1) (/ length 3))
+	(turn -60)
+	(koch (- order 1) (/ length 3))
+	(turn 120)
+	(koch (- order 1) (/ length 3))
+	(turn -60)
+	(koch (- order 1) (/ length 3)))))
+
+;; Koch's snowflake fractal
+(define (kochflake order length)
+  (do ((k 0 (+ k 1)))
+      ((= k 3))
+    (turn 120)
+    (koch order length)))
+
+;; tricky version of kochflake
+(define (tricky-kochflake order length)
+  (fungon 3 (lambda () (koch order length))))
+
+;; Four sided koch 
+(define (squarekoch order length)
+  (if (or (<= order 1) (<= length 1))
+      (go length)
+      (begin
+	(squarekoch (- order 1) (/ length 3))
+	(turn -90)
+	(squarekoch (- order 1) (/ length 3))
+	(turn 90)
+	(squarekoch (- order 1) (/ length 3))
+	(turn 90)
+	(squarekoch (- order 1) (/ length 3))
+	(turn -90)
+	(squarekoch (- order 1) (/ length 3)))))
+
+(define (squareflake order length)
+  (do ((k 0 (+ k 1)))
+      ((= k 4))
+    (turn 90)
+    (squarekoch order length)))
+
+;; Fractal line
+(define (fracline order angle length)
+  (if (< order 1)
+      (go length)
+      (let* ((ang  (- [random (* 2 angle)] angle))
+	     (len  (/ length (* 2 [cos (d2r ang)]))))
+	(turn ang)
+	(fracline (- order 1) angle len)
+	(turn (- (* ang 2)))
+	(fracline (- order 1) angle len)
+	(turn ang))))
+
+;; binary tree
+(define (bintree depth length angle)
+  (when (> depth 0)
+	(let ((saved (status)))
+	  (set! depth (- depth 1))
+	  (go length)
+	  (turn (- angle))
+	  (bintree depth length angle)
+	  (turn (+ angle 2))
+	  (bintree depth length angle)
+	  (status saved))))
+
+;; C curve fractal
+(define (ccurv order length)
+  (if (<= order 1) 
+      (go length)
+      (begin
+	(ccurv (- order 1) length)
+	(turn 90)
+	(ccurv (- order 1) length)
+	(turn -90))))
+
+;; Dragon curve fractal
+(define (dragon order length)
+  (letrec ((dragon-aux (lambda (order length dirn)
+			 (if (<= order 1) 
+			     (go length)
+			     (begin
+			       (dragon-aux (- order 1) length 90)
+			       (turn dirn)
+			       (dragon-aux (- order 1) length -90))))))
+    (dragon-aux order length 90)))
+
+;; Sierpinski's gasket
+(define (gasket order length)
+  (when (> order  0)
+	(do ((k 0 (+ k 1)))
+	    ((= k 3))
+	  (gasket (- order 1)  (/ length 2))
+	  (go length)
+	  (turn 120))))
+
+;; Sierpinski's carpet
+(define (carpet order length)
+  (if (< order 1)
+      (go length)
+      (begin
+	(carpet (- order 1) (/ length 3))
+	(turn -90)
+	(carpet (- order 1) (/ length 3))
+	(turn 90)
+	(carpet (- order 1) (/ length 3))
+	(turn 90)
+	(carpet (- order 1) (/ length 3))
+	(let ((saved (status)))
+	  (carpet (- order 1) (/ length 3))
+	  (turn 90)
+	  (carpet (- order 1) (/ length 3))
+	  (turn 90)
+	  (carpet (- order 1) (/ length 3))
+	  (status saved)
+	  (turn -90)
+	  (carpet (- order 1) (/ length 3))))))
+
+;; "Bendy" - simple fractal (C curve  variation)
+(define (bendy order length)
+  (if  (< order 1)
+       (go length)
+       (begin
+	 (turn 30)
+	 (bendy (- order 1) (/ length 2))
+	 (turn -60)
+	 (bendy (- order 1) (/ length 2))
+	 (turn 30))))
+
+;; "Squigly" - simple fractal (C curve variation)
+(define (squigly order length)
+  (if  (< order 1)
+       (go length)
+       (begin
+	 (turn 30)
+	 (squigly (- order 1) (/ length 4))
+	 (turn -60)
+	 (squigly (- order 1) (/ length 2))
+	 (turn 60)
+	 (squigly (- order 1) (/ length 4))
+	 (turn -30))))
+
+(define (randtree depth length angle branch)
+  (when (>= depth 1)
+	(let ((saved (status))
+	      (thisbranch (random branch)))
+	  (set! depth (- depth 1))
+	  (go (+ (random length) length))
+	  (turn (- (/ (* angle thisbranch) 4)))
+	  (do ((k 0 (+ k 1)))
+	      ((= k thisbranch))
+	    (turn (random angle))
+	    (randtree depth length angle branch))
+	  (status saved))))
+
+;;windows-demo
+(define (windows-demo)
+  (let ((S (scale (& turtle-canvas "scale"))))
+    (show)
+    (up)
+    (goto -200 -200)
+    (window S)
+    (goto -150 -200)
+    (window (button (& turtle-canvas ".spiral-button") :text "Spiral"
+		    :command (lambda () (spiral [S 'get] 100))))
+    (goto -100 -200)
+    (window [button (& turtle-canvas ".clear-button") :text "Clear" :command clear])
+    (goto -50 -200)
+    (window [button (& turtle-canvas ".home-button") :text "Home" :command home])
+    (goto 180 -200)
+    (window [button (& turtle-canvas ".quit-button") :text "Quit Demo" 
+		    :fg "CadetBlue" :command (lambda () (exit))])
+    (S 'set 45)
+    (down)
+    (home)))
+
+(define (item message demo)
+  (clear)
+  (up)
+  (goto 0 220)
+  (down)
+  (Write message)
+  (home)
+  (demo))
+
+(define (run-demo)
+  (item "Polygon" 
+	(lambda () 
+	  (do ((k 3 (+ k 1))) ((= k 12))
+	    (home) (polygon k 50))))
+  (item "Lines"   
+	(lambda ()
+	  (do ((k 0 (+ k 1))) ((= k 16))
+	    (moveto 0 0) (turn 22.5) (width k) (go 200))))
+
+  (item "Stipple"
+	(lambda () 
+	  (width 15)
+	  (do ((k 0 (+ k 1))) ((= k 16))
+	    (moveto 0 0) (turn 22.5) (colour k) (go 200))))
+
+  (item "Fractal lines"    
+	(lambda () 
+	  (do ((k 0 (+ k 1))) ((= k 7))
+	    (home) (fracline 6 40 200))))
+
+  (item "Spiral"           (lambda () (spiral 50 100)))
+  (item "Recursive spiral" (lambda () (rspiral 89 100)))
+  (item "Recursive spiral" (lambda () (rspiral -90 100)))
+  (item "Koch flake"	   (lambda () (kochflake 3 150)))
+  (item "Square flake"     (lambda () (squareflake 3 150)))
+  (item "Squigly"	   (lambda () (squigly 4 200)))
+  (item "C curve"          (lambda () (ccurv 6 20)))
+  (item "Dragon"	   (lambda () (dragon 6 20)))
+  (item "Gasket"	   (lambda () (gasket 6 200)))
+  (item "Carpet"	   (lambda () (carpet 3 250)))
+  (item "Binary tree"	   (lambda () (bintree 6 30 20)))
+  (item "Random tree"	   (lambda () (randtree 4 20 30 6)))
+  (item "Windows Demo"     windows-demo))
+
+
+
+;; Init part - Run the demo
+(expand-heap 50000)
+(set! *gc-verbose* #f)
+
+(turtle)
+(hide)
+
+(run-demo)
diff --git a/Demos/widget.stk b/Demos/widget.stk
new file mode 100755
index 0000000..13e8af9
--- /dev/null
+++ b/Demos/widget.stk
@@ -0,0 +1,282 @@
+#!/bin/sh
+:;exec /usr/local/bin/stk -f "$0" "$@"
+;;;;
+;;;; STk adaptation of the Tk widget demo.
+;;;;
+;;;; This script demonstrates the various widgets provided by Tk, along
+;;;; with many of the features of the Tk toolkit.  This file only
+;;;; contains code to generate the main window for the application,
+;;;; which invokes individual demonstrations.  The code for the actual
+;;;; demonstrations is contained in separate ".stklos" files in this
+;;;; directory, which are sourced by this script as needed.
+
+(require "Tk-classes")
+
+(define demo-font     "-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*")
+(define *STk-images*  (string-append  *STk-library* "/images/"))
+(set!   *load-path*   `("./Widget" 
+			,(string-append *STk-library* "/demos")
+			,@*load-path*))
+
+;;
+;; make-demo-toplevel
+;;
+(define (make-demo-toplevel name title text . variables)
+  (let* ((t (make <Toplevel> :title title :geometry "+300+300"))
+	 (f (make <Frame> :parent t))
+	 (b (make <Frame> :parent t)))
+
+    ;; Pack the demo text
+    (when text 
+      (pack (make <Label> :font   	demo-font 
+		  	  :parent 	t
+			  :wrap-length 	"4i"
+			  :justify 	"left" 
+			  :text 	text)
+	    :side "top" :expand #f :fill "both"))
+    
+    ;; Pack the frame where the demo will be done
+    (pack f :side "top" :expand #t :fill "both")
+    
+    ;; Add the two bottom buttons
+    (pack (make <Button> :parent b :text "Dismiss" 
+		:command (lambda () (destroy t)))
+	  (make <Button> :parent b :text "See Code" 
+		:command (lambda () (show-code name)))
+	  :side   "left"
+	  :expand #t)
+
+    ;; If variables is not null, add a 'See variables' button
+    (unless (null? variables)
+       (pack (make <Button> :parent b :text "Show Variables"
+		   :command (lambda () (show-variables t variables)))
+	     :side   "left"
+	     :expand #t))
+    
+    (pack b :side "bottom" :expand #f :fill "x" :pady "2m")
+
+    ;; return the middle frame
+    f))
+
+
+;;;; show-code
+;;;; This procedure creates a toplevel window that displays the code for
+;;;; a demonstration and allows it to be edited and reinvoked.
+(define (show-code name)
+  (define (show file)
+    (if (file-exists? file)
+	(let* ((top (make <Toplevel> :title (format #f "Demo code: ~A" file)
+			  	     :geometry "+400+400"))
+	       (but (make <Frame> :parent top))
+	       (txt (make <Scroll-Text>  :parent top  :wrap "none"
+			  :h-scroll-side "bottom" :width 85 :height 30 :font "fixed"
+			  :value (exec (string-append "cat " file)))))
+      
+	  (pack txt :side "top"    :expand #t :fill "both")
+	  (pack but :side "bottom" :expand #f :fill "x")
+      
+	  (pack  (make <Button> :text "Dismiss" :parent top
+		       :command (lambda() (destroy top)))
+		 (make <Button> :text "Rerun Demo" :parent top
+		       :command (lambda ()
+				  (eval-string 
+				    (format #f "(begin ~A (demo-~A))"
+					    (slot-ref txt 'value)
+					    name))))
+		 :side   "left" 
+		 :expand #t)
+	  #t)
+	  #f))
+  (let ((file (string-append "W" name ".stklos")))
+    (unless (show (string-append *STk-library* "/../Demos/Widget/" file))
+	    (unless (show (string-append *STk-library* "/demos/" file))
+	       (error "Unable to show the code of the file ~S" file)))))
+
+
+;;;; show-variables
+;;;; Displays the values of one or more variables in a window, and
+;;;; updates the display whenever any of the variables changes.
+(define (show-variables parent vars)
+  (unless (null? vars)
+     (let ((top (make <Toplevel> :parent parent :title "Variable values")))
+
+       (pack (make <Label> :text "Variable values:" 
+		   :width 20
+		   :parent top
+		   :anchor "center"
+		   :font "-Adobe-helvetica-medium-r-normal--*-180-*-*-*-*-*-*")
+	     :side "top" 
+	     :fill "x")
+
+       ;; For each variable create a trace.
+       (for-each (lambda (x)
+		   (let ((f (make <Frame> :parent top)))
+		     (pack (make <Label> :parent f :text (format #f "~A = " x))
+			   :side "left")
+		     (pack (make <Label> :parent f :text-variable x :anchor "w")
+			   :side "left" :expand #t :fill "x")
+		     (pack f :side "top" :anchor "w" :fill "x")))
+		 vars)
+
+       ;; Create a destroy button
+       (pack (make <Button> :parent top :text "Dismiss" 
+		   	    :command (lambda () (destroy top)))
+	     :side "bottom"
+	     :pady 2))))
+
+;;;;--------------------------------------------------------------------------
+;;;;
+;;;; Create the main window widgets
+;;;;
+;;;;--------------------------------------------------------------------------
+
+(slot-set! *top-root* 'title  "Widget Demonstration")
+
+(let* ((t          (make <Scroll-Text> :wrap "word" :width 60 :height 30 
+			 :font demo-font :set-grid #t))
+       (quit	   (make <Button> :text "Quit" :command (lambda () (exit 0))))
+       (title      (make <Text-tag> :parent t
+			 :font "-*-Helvetica-Bold-R-Normal--*-180-*-*-*-*-*-*"))
+       (demo       (make <Text-tag> :parent t :lmargin1 "1c" :lmargin2 "1c"))
+       (hot        (apply make <Text-tag> :parent t
+			  (if (= (winfo 'depth *root*) 1)
+			      (list :background "black" :foreground "white")
+			      (list :relief "raised" :border-width 1 
+				    :background "SeaGreen3"))))
+       (last-line '()))
+  
+  (pack t    :expand #t :fill "both")
+  (pack quit :expand #f :fill "x")
+  
+  ;; Associate binfings to tags
+  (bind demo "<Button-1>" 
+	(lambda ()
+	  (invoke-demo-binding t (text-index t 'current))))
+
+  (bind demo "<Enter>"
+	(lambda (x y)
+	  (set! last-line (text-index t (format #f "@~A,~A linestart" x y)))
+	  (tag-add hot last-line (cons (car last-line) "end"))))
+  
+  (bind demo "<Leave>"
+	(lambda ()
+	  (tag-remove hot '(1 . 0) "end")))
+
+  (bind demo "<Motion>" 
+	(lambda (x y)
+	  (let ((new-line (text-index t (format #f "@~A,~A linestart" x y))))
+	    (unless (equal? new-line last-line)
+	       (tag-remove hot '(1 . 0) "end")
+	       (tag-add hot new-line (cons (car new-line) "end"))
+	       (set! last-line new-line)))))
+
+  ;; Create the text for the text widget.
+
+  (text-insert t "end" 
+	       "Tk Widget Demonstrations\n\n" (list title)
+	       "This application provides a front end for several short scripts that demonstrate what you can do with Tk widgets.  Each of the numbered lines below describes a demonstration;  you can click on it to invoke the demonstration.  Once the demonstration window appears, you can click the \"See Code\" button to see the Tcl/Tk code that created the demonstration.  If you wish, you can edit the code and click the \"Rerun Demo\" button in the code window to reinvoke the demonstration with the modified code.\n" '()
+"\nLabels, buttons, checkbuttons, and radiobuttons\n" (list title)
+"1. Labels (text and bitmaps).\n" 		   (list demo 'demo-label)
+"2. Buttons.\n" 			 	   (list demo 'demo-button)
+"3. Checkbuttons (select any of a group).\n" 	   (list demo 'demo-check)
+"4. Radiobuttons (select one of a group).\n" 	   (list demo 'demo-radio)
+"5. A 15-puzzle game made out of buttons.\n" 	   (list demo 'demo-puzzle)
+"6. Iconic buttons that use bitmaps.\n" 	   (list demo 'demo-icon)
+"7. Two labels displaying images.\n" 		   (list demo 'demo-image1)
+"8. A simple user interface for viewing images.\n" (list demo 'demo-image2)
+;;;;;;       
+"\nListboxes\n" (list title)
+"1. 50 states.\n" 				   (list demo 'demo-states)
+"2. Colors: change the color scheme for the application.\n" 
+	       					   (list demo 'demo-colors)
+"3. A collection of famous sayings.\n" 		   (list demo 'demo-sayings)
+;;;;;;
+"\nEntries\n" title
+"1. Without scrollbars.\n" 			   (list demo 'demo-entry1)
+"2. With scrollbars.\n" 			   (list demo 'demo-entry2)
+"3. Simple Rolodex-like form.\n" 		   (list demo 'demo-form)
+;;;;;;
+"\nText\n" title
+"1. Basic editable text.\n" 			   (list demo 'demo-text)
+"2. Text display styles.\n" 			   (list demo 'demo-styles)
+"3. Hypertext (tag bindings).\n" 		   (list demo 'demo-bind)
+"4. A text widget with embedded windows.\n" 	   (list demo 'demo-wind)
+"5. A search tool built with a text widget.\n" 	   (list demo 'demo-search)
+;;;;
+"\nCanvases\n" title
+"1. The canvas item types.\n" 			   (list demo 'demo-items)
+"2. A simple 2-D plot.\n" 			   (list demo 'demo-plot)
+"3. Text items in canvases.\n" 			   (list demo 'demo-ctext)
+"4. An editor for arrowheads on canvas lines.\n"   (list demo 'demo-arrow)
+"5. A ruler with adjustable tab stops.\n" 	   (list demo 'demo-ruler)
+"6. A building floor plan.\n" 			   (list demo 'demo-floor)
+"7. A simple scrollable canvas.\n" 		   (list demo 'demo-cscroll)
+;;;;
+"\nScales\n" title
+"1. Vertical scale.\n" 				   (list demo 'demo-vscale)
+"2. Horizontal scale.\n" 			   (list demo 'demo-hscale)
+;;;;
+"\nMenus\n" title
+"1. A window containing several menus and cascades.\n" 
+						   (list demo 'demo-menu)
+;;;;
+"\nMiscellaneous\n" title
+"1. The built-in bitmaps.\n" 			   (list demo 'demo-bitmap)
+"2. A dialog box with a local grab.\n" 		   (list demo 'demo-dialog1)
+"3. A dialog box with a global grab.\n" 	   (list demo 'demo-dialog2)
+))
+
+(define (invoke-demo-binding t index)
+  (let loop ((t  (text-tags t index)))
+    (cond 
+       ((null? t) 	      		#f)
+       ((string-find? "demo-" (car t))  (apply (eval (string->symbol (car t)))
+					       '()))
+       (ELSE		      		(loop (cdr t))))))
+
+(define (NYI)
+  (error "This demo is not yet implemented"))
+
+;;
+;; Autolooads
+;;
+
+(autoload "Wlabel"	demo-label)
+(autoload "Wbutton" 	demo-button)
+(autoload "Wcheck"	demo-check)
+(autoload "Wradio"	demo-radio)
+(autoload "Wpuzzle"	demo-puzzle)
+(autoload "Wicon"	demo-icon)
+(autoload "Wimage1"	demo-image1)
+(autoload "Wimage2"	demo-image2)
+
+(autoload "Wstates"	demo-states)
+(autoload "Wcolors"	demo-colors)
+(autoload "Wsayings"	demo-sayings)
+
+(autoload "Wentry1"	demo-entry1)
+(autoload "Wentry2"	demo-entry2)
+(autoload "Wform"	demo-form)
+
+(autoload "Wtext"	demo-text)
+(autoload "Wstyles"	demo-styles)
+(autoload "Wbind"	demo-bind)
+(autoload "Wwind"	demo-wind)
+(autoload "Wsearch"	demo-search)
+
+(autoload "Witems"	demo-items)
+(autoload "Wplot"	demo-plot)
+(autoload "Wctext"	demo-ctext)
+(autoload "Warrow"	demo-arrow)
+(define demo-ruler NYI)
+(define demo-floor NYI)
+(define demo-cscroll NYI)
+
+(autoload "Wvscale"	demo-vscale)
+(autoload "Whscale"	demo-hscale)
+
+(autoload "Wmenu"	demo-menu)
+
+(autoload "Wbitmap"	demo-bitmap)
+(autoload "Wdialog1"	demo-dialog1)
+(autoload "Wdialog2"	demo-dialog2)
diff --git a/Demos/wtour.stk b/Demos/wtour.stk
new file mode 120000
index 0000000..d887504
--- /dev/null
+++ b/Demos/wtour.stk
@@ -0,0 +1 @@
+../Contrib/STk-wtour/lib/wtour.stk
\ No newline at end of file
diff --git a/Doc/%README b/Doc/%README
new file mode 100644
index 0000000..c8ed5ba
--- /dev/null
+++ b/Doc/%README
@@ -0,0 +1,18 @@
+This directory contains various documentation files:
+
+Documentation
+-------------
+
+Extension: 	contains a document which explains how to extend the STk 
+		interpreter (i.e. adding new SUBRs or new types).
+Reference:	contains the STk reference manual 
+STklos+Tk:	contains a document on how to program the toolkit with 
+		the STklos object system
+Manual:		contains stk(1) manual page in various formats
+
+Papers
+------
+
+Tcl93:		contains a paper presented at TCl/Tk 93 Workshop (Berkeley)
+Xhibition94:	contains a paper presented at X'hibition 94 conference (San Jose CA)
+Isotas96:	contains a paper which will be presented at Isotas 96 (Japan)
diff --git a/Doc/Extension/Extending.ps b/Doc/Extension/Extending.ps
new file mode 100644
index 0000000..250ecf2
--- /dev/null
+++ b/Doc/Extension/Extending.ps
@@ -0,0 +1,2458 @@
+%!PS-Adobe-2.0
+%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
+%%Title: Extending.dvi
+%%Pages: 22
+%%PageOrder: Ascend
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%EndComments
+%DVIPSCommandLine: dvips -f Extending
+%DVIPSParameters: dpi=300, compressed, comments removed
+%DVIPSSource:  TeX output 1996.09.25:1558
+%%BeginProcSet: texc.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
+forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
+/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
+/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
+/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
+string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
+end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
+/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
+N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
+length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
+128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
+get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
+dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
+/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
+/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
+0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
+setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
+.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
+/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
+gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
+add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
+/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
+dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
+adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
+idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
+adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
+{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
+adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
+chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
+}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
+length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
+cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
+0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
+add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
+/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
+RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
+false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
+round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
+rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
+{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
+B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
+4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
+p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
+a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+TeXDict begin 39158280 55380996 1000 300 300 (Extending.dvi)
+@start /Fa 32 122 df<EAFF80A2090280870C>45 D<126012F0A2126004047D830A>I<
+EA07C0EA1830EA3018EA701CEA600CA2EAE00EA9EA600CA2EA701CEA3018EA1C70EA07C0
+0F157F9412>48 D<EA0F80EA30E0EA4070EA8030EAC03812E0124012001370A2136013C0
+EA0180EA03001206EA0C081208EA1018EA3FF0127F12FF0D157E9412>50
+D<EA0FE0EA3030EA6018EA701CA21200131813381360EA07E0EA00301318130C130EA212
+E0A2EAC00CEA4018EA3030EA0FE00F157F9412>I<1330A2137013F01201137012021204
+1208121812101220124012C0EAFFFEEA0070A5EA03FE0F157F9412>I<EA01F0EA0608EA
+080CEA181C1230EA7000126012E0EAE3E0EAEC30EAF018130CEAE00EA31260A2EA300C13
+18EA1830EA07C00F157F9412>54 D<126012F0A212601200A6126012F0A212701210A212
+20A21240A204147D8D0A>59 D<387FFFF83860381800401308A200801304A300001300AF
+3803FF8016177F9619>84 D<38FF80FE381C00381410B06C132012066C13403801818038
+007E0017177F961A>I<EA3FC0EA70601330EA20381200EA03F8EA1E3812301270EAE039
+A21379EA70FFEA1F1E100E7F8D12>97 D<12F81238A8EA39F0EA3E0CEA380613077F1480
+A414005B1306EA361CEA21F011177F9614>I<EA07F0EA18381230EA7010EA600012E0A4
+1260EA70081230EA1830EA07C00D0E7F8D10>I<133E130EA8EA07CEEA1C3EEA300E1270
+126012E0A412601270EA301EEA182E3807CF8011177F9614>I<EA0FC0EA1860EA3030EA
+7038EAE018EAFFF8EAE000A31260EA7008EA3010EA1830EA07C00D0E7F8D10>I<EA03E0
+EA0670120EEA1C201300A5EAFF80EA1C00ACEA7F800C1780960B>I<EA0F9EEA18E3EA30
+60EA7070A3EA3060EA18C0EA2F80EA20001260EA3FE013F813FCEA600EEAC006A3EA600C
+EA3838EA0FE010157F8D12>I<12F81238A813F8EA3B1CEA3C0E1238AA38FE3F8011177F
+9614>I<12301278A212301200A512F81238AC12FE07177F960A>I<12F81238A8133E1338
+1330134013801239EA3FC0EA39E0123813F01378133CA2EAFE7F10177F9613>107
+D<12F81238B3A312FE07177F960A>I<EAF8F8EA3B1CEA3C0E1238AA38FE3F80110E7F8D
+14>110 D<EA07C0EA1830EA3018EA600CA2EAE00EA5EA701CEA3018EA1830EA07C00F0E
+7F8D12>I<EAF9F0EA3E1CEA380613077F1480A414005B130EEA3E1CEA39F00038C7FCA5
+12FE11147F8D14>I<EAF9E0EA3A70123CEA38201300A9B4FC0C0E7F8D0E>114
+D<EA1F40EA60C0EAC040A2EAE000B4FCEA7F80EA1FC0EA01E0EA8060A212C0EAE0C0EA9F
+000B0E7F8D0E>I<1208A31218A21238EAFFC0EA3800A71340A4EA1C80EA0F000A147F93
+0E>I<EAF83EEA380EAA131EEA1C2E3807CF80110E7F8D14>I<EAFE1FEA380EEA3C0CEA1C
+08A2EA0E10A2EA0720A213E0EA03C0A2EA0180A2100E7F8D13>I<38FEFE7C3838383814
+10133C001C1320134C381E4E60380ECE401387000713801303A200031300EA0201160E7F
+8D19>I<EAFE3FEA3C1CEA1C10EA0E20EA074013C0EA0380EA01C0EA02E0EA04F0EA0870
+EA1838EA383CEAFC7F100E7F8D13>I<EAFE1FEA380EEA3C0CEA1C08A2EA0E10A2EA0720
+A213E0EA03C0A2EA0180A21300A212E2A212A4127810147F8D13>I
+E /Fb 2 51 df<1218127812981218AC12FF08107D8F0F>49 D<121FEA6180EA40C0EA80
+6012C01200A213C0EA0180EA030012065AEA10201220EA7FC012FF0B107F8F0F>I
+E /Fc 27 122 df<1370A338186180EA3CE7EA3EFF381FFE00EA07F0A2EA1FFCEA7DBEEA
+F19EEA6384EA0380A290C7FC11107C9214>42 D<127012F8A212F012E00505778414>46
+D<140C141C143C1478147014F0EB01E0EB03C014801307EB0F00131E131C133C5B5B485A
+5B1203485A48C7FC120E121E5A5A127012F05A5A161D7E9914>I<EB0780130FA2131BA2
+133B13331373A2EBE300A2485AA2EA0387A248B4FCA2EA0E07A2121E121C38FF1FC0A212
+177F9614>65 D<3807FFFEA23801C01CA2143C1203EB8000A2EB87801207EBFF00A2130F
+120F000EC7FCA3001E13E0121CA21301B5FC14C017177F9614>69
+D<EA03D8EA0FFCEA1C7CEA38781278127012F0EAE070A213F013FEEAE1EEA2EAE3FEEA7F
+FCEA3C380F107B8F14>97 D<12FEA2121CA2123CA21238EA3BC0EA7FF0EA7E78EA7C3812
+7812F0A212E0A21378137013F0EAE1E0EAF3C0EA7F80EA1E000D177A9614>I<EA03E0EA
+0FF8EA1E38123C1278EA700012F05AA51318EA707CEA7FF8EA1FE00E107A8F14>I<137F
+A2130EA2131EA2131CEA03DCEA0FFCEA1C7CEA38781278127012F0EAE070A213F013FEEA
+E1EEA2EAE3FEEA7FFCEA3C3810177B9614>I<EA03E0EA0FF8EA1E3CEA3C1C1278EA703C
+EAF0F8EAFFE01380EAE000A31318EA707CEA7FF8EA1FE00E107A8F14>I<EB07E0EB1FF0
+EB1C70133CEB3800A33803FFC0A238007000A513F05BA512015BA412035B12C300E7C7FC
+12FE127C141F7E9614>I<13F33803FF80EA079F380F0F00121E121C123CEA380EA2131E
+A25B137CEA3CFC121FEA07B8EA00381378A21370EAC0F0EAE1E0B45A007EC7FC11187C8F
+14>I<EA3F80A20007C7FCA35A120E13F8EA0FFCEA1F8E130E121EEA1C1EEA3C1CA21238
+133C38783B801270137BEB7700EAF03FEA601C11177D9614>I<136013E0A21300A5120E
+EA3F80127312F312E312E7EA07005AA2120EEA1E70121C13F013E0EA1FC0EA07000C187A
+9714>I<B4FCA2120EA2121EA2121CA2123CA21238A21278A21270A212F0EAF38012E3A2
+EAE700127F123C0917789614>108 D<380FE3C0381FF7E0EB3E70EA1E3CA2383C78F014
+E0A2EA3870EA78F114C0EA70E1A200F1138014C0EA60C014107E8F14>I<EA30F8EA7FFC
+EAFF8E130E12FEEAFC1EEA3C1CA21238EA783C133F1270137F12F0133EEA601C10107C8F
+14>I<EA03E0EA0FF8EA1E38EA3C1C1278127012F012E0A2133C1338137813F0EA71E0EA
+7FC0EA1F000E107B8F14>I<EA070F380FFF80381FF1C0EA1DE1A2EA1FC112031381A2EA
+0783148013871400EA0F8E13FCEA0EF090C7FC121EA2121CA2123CB47EA212187F8F14>
+I<EA387E387FFF80EAFFC3EAEF83130300FEC7FC121EA2121C123CA21238A21278A21230
+11107B8F14>114 D<EA01F8EA07FEEA0C0E1218A2EA1C00EA1FC0EA0FF8EA01FCEA001C
+130C12E0131CEAF038EA7FF0EA1FC00F107C8F14>I<EA01801203A412071300EAFFF0A2
+EA0F00120EA3121E121CA3EA3C70123813F0EA39E0EA3FC0EA0F000C177A9614>I<EA1C
+0CEA7E1E1277EAEF1C12EE133C121EEA1C38A21378EA3C7FEA387713F7EA3DFFEA1FFEEA
+0F1C10107C8F14>I<EA1E06EA3F07EA738712F312E7130FEA0F0E120EA2131EEA1E1C12
+1C1338EA0E78EA0FF0EA03C010107C8F14>I<386030E0EA7878EA3870A313F13878E1C0
+1270A2EA71E300F11380EAE1C3EAE3E700731300EA7FFFEA1E3C13107D8F14>I<EA079F
+381FFFC0EA3DF1EA78E112703871E000EA01C0A31203EB838012E3138738E7CF00EAFFFE
+EA3C7812107D8F14>I<EA1C03387E07800077130012EF12EE5BEA1E0E121CA2131EEA3C
+1CEA383CA2EA1C7CEA1FF8EA07B8EA003813781370EA70F0EA71E0EA73C0EA7F80001EC7
+FC11187C8F14>I E /Fd 2 104 df<133C13E0EA01C0EA0380ADEA0700121E12F8121E12
+07EA0380ADEA01C0EA00E0133C0E257E9B13>102 D<12F8121E1207EA0380ADEA01C0EA
+00E0133C13E0EA01C0EA0380ADEA0700121E12F80E257E9B13>I
+E /Fe 2 84 df<3801FFFE39003C03C090383800E015F01570A24913F0A3EC01E001E013
+C0EC0780EC1E00EBFFF03801C038140C140EA2EA0380A43807001E1508A2151048130FD8
+FFE01320C7EA03C01D1D7E9B20>82 D<EB0FC1EB3033EB400FEB80061201EA0300A20006
+1304A200071300A27FEA03F06CB4FC6C13C0EB3FE01303EB00F014701430A21220A20060
+1360A214C0148038F00300EACC06EA83F8181E7E9C19>I E /Ff
+3 53 df<120C121C12EC120CAFEAFFC00A137D9211>49 D<121FEA60C01360EAF0701330
+1260EA0070A2136013C012011380EA02005AEA08101210EA2020EA7FE012FF0C137E9211
+>I<136013E0A2EA016012021206120C120812101220126012C0EAFFFCEA0060A5EA03FC
+0E137F9211>52 D E /Fg 44 122 df<14FE90380301801306EB0C03EB1C0191C7FC1318
+1338A43803FFFE3800700EA35CA213E0A25CA3EA01C01472A438038034141891C7FC90C8
+FCA25A12C612E65A12781925819C17>12 D<12E0A3127012301210121812080508749C15
+>18 D<EA1830EA3C78A2EA3870EA0810A2EA1020A2EA2040A2EA4080EA81000D0C799C15
+>34 D<13031306130813181330136013C0A2EA0180EA0300A21206A25AA2121C1218A212
+381230A21270A21260A412E0A51260A51220123012107EA2102A7B9E11>40
+D<1310A21308130C13041306A51307A51306A4130EA2130CA2131C1318A213381330A213
+60A213C0A2EA0180EA0300A212065A5A121012605A102A809E11>I<1218123812781238
+1208A21210A212201240A21280050C7D830D>44 D<14031407140E140C141C1418143814
+30147014E014C013011480130314005B1306130E5B1318133813301370136013E05B1201
+485A90C7FC5A1206120E120C121C121812385A126012E05AA218297F9E15>47
+D<1418A21438A21478A214B8EB0138A2EB023C141C1304130C13081310A21320A2EB7FFC
+EBC01C1380EA0100141E0002130EA25A120C001C131EB4EBFFC01A1D7E9C1F>65
+D<48B5FC39003C038090383801C0EC00E0A35B1401A2EC03C001E01380EC0F00141EEBFF
+FC3801C00E801580A2EA0380A43907000F00140E141E5C000E13F0B512C01B1C7E9B1D>
+I<903803F02090381E0C6090383002E09038E003C03801C001EA038048C7FC000E148012
+1E121C123C15005AA35AA41404A35C12705C6C5B00185B6C485AD80706C7FCEA01F81B1E
+7A9C1E>I<48B512F038003C00013813301520A35BA214081500495AA21430EBFFF03801
+C020A448485A91C7FCA348C8FCA45AEAFFF01C1C7E9B1B>70 D<EA03FFEA00781370A413
+E0A4EA01C0A4EA0380A4EA0700A4120EA4121EEAFFC0101C7D9B10>73
+D<3801FFC038003C001338A45BA45BA4485AA438038002A31404EA0700140C1418143800
+0E13F0B5FC171C7E9B1A>76 D<3801FFFE39003C038090383801C0EC00E0A3EB7001A315
+C0EBE0031580EC0700141C3801FFF001C0C7FCA3485AA448C8FCA45AEAFFE01B1C7E9B1C
+>80 D<3801FFFE39003C078090383801C015E01400A2EB7001A3EC03C001E01380EC0700
+141CEBFFE03801C03080141CA2EA0380A43807003C1520A348144039FFE01E80C7EA0F00
+1B1D7E9B1E>82 D<EB0F84EB304CEB403CEB8018EA01005AA200061310A214001207A2EA
+03E013FC6CB4FC38007F80EB07C01301A21300A21220A238600180A2EB03001302EAF004
+EACC18EA83E0161E7D9C17>I<001FB512C0381C070138300E0000201480126012405B12
+80A2000014005BA45BA45BA4485AA41203EA7FFE1A1C799B1E>I<3AFF83FF07F03A3C00
+7001C00038158002F01300A290380170025D13025D13045D13085D131001305B1320D81C
+405BA2D98071C7FCA2381D0072A2001E1374A2001C1338A20018133014201210241D779B
+29>87 D<EB3F80EB7F001360A35BA4485AA448C7FCA41206A45AA45AA45AA45AA45AA212
+FEA211297E9E0D>91 D<EA0408EA0810EA1020EA2040A2EA4080A2EA8100EAE1C0EAF1E0
+A2EAE1C00D0C749C15>I<EB3F80EB7F001303A31306A45BA45BA45BA45BA45BA4485AA4
+48C7FCA41206A212FEA21129819E0D>I<EA01E3EA0717EA0C0F1218EA380E12301270A2
+EAE01CA41339A3EA6079EA319AEA1E0C10127C9115>97 D<123F1207A2120EA45AA4EA39
+E0EA3A18EA3C0C12381270130EA3EAE01CA31318133813301360EA60C0EA3180EA1E000F
+1D7C9C13>I<13F8EA0304120EEA1C0EEA181CEA30001270A25AA51304EA60081310EA30
+60EA0F800F127C9113>I<EB07E01300A2EB01C0A4EB0380A43801E700EA0717EA0C0F12
+18EA380E12301270A2485AA41339A3EA6079EA319AEA1E0C131D7C9C15>I<13F8EA0704
+120CEA1802EA38041230EA7008EA7FF0EAE000A5EA60041308EA30101360EA0F800F127C
+9113>I<EB03C0EB0670130CEB1C601400A25BA53803FF8038007000A55BA5485AA5485A
+A390C7FCA25A12C612E65A12781425819C0D>I<EB78C0EA01C5EA03031206000E138012
+0C121CA238380700A4130EA3EA181EEA0C7CEA079CEA001CA25BA2EAC030EAE070EAC1C0
+007FC7FC121A7E9113>I<EA0FC01201A2485AA448C7FCA4EA0E3E13C3380F0380120E12
+1E121CA338380700A3130E00701340A2131C1480EAE00C38600700121D7E9C15>I<EA01
+801203EA0100C7FCA7121C12261247A2128EA2120E5AA35AA21271A31272A2123C091C7C
+9B0D>I<1303130713031300A71378138CEA010C1202131C12041200A21338A41370A413
+E0A4EA01C0A2EAC180EAE30012C612781024819B0D>I<EA0FC01201A2485AA448C7FCA4
+380E07801308EB11C01321381C4180EB8000001DC7FC121EEA3FC0EA38E01370A2EA7071
+A31372EAE032EA601C121D7E9C13>I<EA1F801203A2EA0700A4120EA45AA45AA45AA412
+E2A312E412641238091D7D9C0B>I<391C1E078039266318C0394683A0E0384703C0008E
+1380A2120EA2391C0701C0A3EC0380D8380E1388A2EC0708151039701C032039300C01C0
+1D127C9122>I<EA383EEA4CC3384D0380124E129E129C121CA238380700A3130E007013
+40A2131C1480EAE00C3860070012127C9117>I<13F8EA030CEA0E06487E121812300070
+1380A238E00700A3130EA25BEA60185BEA30E0EA0F8011127C9115>I<380387803804C8
+60EBD03013E0EA09C014381201A238038070A31460380700E014C0EB0180EB8300EA0E86
+137890C7FCA25AA45AB4FC151A809115>I<EA1C3CEA2642EA4687EA4707EA8E06130012
+0EA25AA45AA45A123010127C9112>114 D<EA01F0EA0608120C131CEA1818EA1C00121F
+13C0EA0FF01207EA00781338EA603012E012C0EA8060EA60C0EA1F000E127D9111>I<12
+035AA3120EA4EAFFE0EA1C00A35AA45AA4EAE080A2EAE100A2126612380B1A7C990E>I<
+381C0180EA2E03124EA2388E0700A2121CA2EA380EA438301C80A3EA383C38184D00EA0F
+8611127C9116>I<EA1C06EA2E0EEA4E06A2EA8E02A2121CA2EA3804A313081230A21310
+EA3820EA1840EA0F800F127C9113>I<381E0183382703871247148338870701A2120EA2
+381C0E02A31404EA180C131C1408EA1C1E380C26303807C3C018127C911C>I<381C0180
+EA2E03124EA2388E0700A2121CA2EA380EA4EA301CA3EA383CEA1878EA0FB8EA00381330
+1370EAE0605BEA81800043C7FC123C111A7C9114>121 D E /Fh
+2 104 df<137813C0EA0180EA0300AB12065A12F0120C7E7EABEA0180EA00C013780D21
+7E9812>102 D<12F0120C7E7EABEA0180EA00C0137813C0EA0180EA0300AB12065A12F0
+0D217E9812>I E /Fi 22 119 df<5A5AA2EA6330EA7B70EA3FE0EA0F80EA1F00EA7FC0
+EAEDE0EACC60EA0C00A212080C0E7C9011>42 D<13031307130F130E131E131C133C1378
+137013F013E0120113C01203EA078013005A120E121E5A12381278127012F05A5A101A7E
+9611>47 D<EA07FE7FEA0387EB03801301A212071206A3380E0300120CA21306121CEA18
+0C5B1338EAFFE05B1114809311>68 D<13F3EA03FFEA070FEA0E06120CA21300A2120FEA
+07E0EA00F013301338A2EA6030A21370EA70E0EAFFC0EACF0010147E9311>83
+D<EA7FFC12FFEAE398EAC318A2EA03005A1206A3120E120CA3121C1218A312FEA20E147B
+9311>I<EA0760EA0FE0121D1238EA70C01260A21261EAE188EAC19812E3EA67B8EA7FF0
+EA38E00D0E7D8D11>97 D<12F8A212381230A31277EA7FC0EA78E0EA706012E0A212C013
+E013C012C1138012E7EA7E00123C0B147C9311>I<EA0780EA1FE012381270EA60C0EAE0
+005AA41330EAE0F0EA7FC0EA1F000C0E7C8D11>I<EA07C0EA1FE0EA38701270EAE060EA
+C3E0EAFFC0EAFC0012C0A21330EAE0F0EA7FC0EA1F000C0E7C8D11>101
+D<131C137E136E1366136013E0EA07FCA2EA00C0A312011380A412031300A45A120612E6
+12EE12FC12780F1B7F9311>I<EA01C0A21380C7FCA4121C123F1273126712E61246120E
+120CEA1C40EA18C012191380121FEA0E000A157C9411>105 D<131CA213181300A4EA01
+C0EA07F0EA0E30EA0C70121CEA0860120013E0A213C0A21201A21380A21203130012E712
+EE12FC12780E1C7D9411>I<123EA2120E120CA2121C1338EA18FCEA19DCEA3B9CEA3F18
+EA3E00123FEA7F80EA71C4EA60CCA2EAE0DC13F8EAC0700E147E9311>I<12FEA2120E12
+0CA2121CA21218A21238A21230A212701380126112631300127F121C09147B9311>I<EA
+1B8EEA1FDF381EFB80EA3CF33838E300A2EA30C3EA71C713C6EA6186138EEAE38C138EEA
+C306110E7F8D11>I<EA38E0EA7FF0EA6F3812FEEADC30125C1218EA38701364EA306C13
+ECEA70DC13F8EA60700E0E7E8D11>I<1207EA1FC0EA38E0EA7060126012E012C013E013
+C012C1138012E7EA7E00123C0B0E7C8D11>I<EA0738EA1FFCEA19EEEA1BC6EA3B86EA13
+061203EA070E130C1206EA071CEA0F3813F0EA0DC0EA0C00121CA21218A212FEA20F1580
+8D11>I<EA3878EA7FFCEA678EEAEF0EEAEE0CEA4E00120C121CA21218A21238A212300F
+0E7E8D11>114 D<EA07C0EA0FF0EA1C7012181300121CEA0F80EA03E0EA006012E0A2EA
+C0E0EAFFC0EA3F000C0E7D8D11>I<1206120EA2120CA2121CEAFF80A2EA18001238A212
+30A21270138012611263EA6700127E123C09147B9311>I<EA1C0C123E1276EA661CEAEE
+18124C120C1338EA1C3012181370EA1CE0EA0FC0EA07800E0E7E8D11>118
+D E /Fj 72 126 df<126012F0AB1200A4126012F0A212600414799312>33
+D<EAE0E0A8EA60C00B097D9312>I<EA0E38A4EAFFFEA3EA1C70A5EAFFFEA3EA38E0A50F
+147F9312>I<EA3018EA7838EAFC781370A213F013E0A21279EA31C0120112031380A212
+071300A2EA0F18EA0E3C137E121E121CA2123CEA383CEA18180F1A7F9612>37
+D<120FEA1F80EA39C0A4EA3BBEA2EA3F78EA1E70121CEA3EF0EA7EE012EFEAE7C013C4EA
+E3CEEAE7EEEA7FFEEA3C380F147F9312>I<EA01801207EA0F00121E5A12381278127012
+F05AA77E127012781238123C7E7EEA0780120109197B9612>40 D<12C012F012787E7E12
+0E120F7E13801203A7120713005A120E121E5A5A5A12C009197D9612>I<1207A3EAE738
+EAFFF8EA7FF0EA1FC0A2EA7FF0EAFFF8EAE738EA0700A30D0E7E9012>I<EA0380A6EAFF
+FEA3EA0380A60F0F7F9112>I<1230127CA2123C120C121C123812F012E006097A8312>I<
+EAFFF8A30D037E8B12>I<126012F0A212600404798312>I<131813381378137013F013E0
+A2120113C01203138012071300A25A120E121E121C123C1238A21278127012F05AA20D1A
+7E9612>I<EA07C0EA0FE0EA1C70EA3838EA701CA2EAE00EA7131EEA701CA2EA3838EA1C
+70EA0FE0EA07C00F147F9312>I<1206120EA2123E12FE12EE120EACEAFFE0A20B147D93
+12>I<EA0F80EA3FE0EA70F0EAF078EAE038A2124012001378137013F0EA01E0EA03C0EA
+0780EA0F00121EEA38381270EAFFF8A20D147E9312>I<126012F0A212601200A6126012
+F0A21260040E798D12>58 D<12301278A212301200A612301278A2123812181238123012
+F012C005137A8D12>I<1338137813F8EA01E0EA07C0EA0F80EA1F00123C12F85A7E123C
+121FEA0F80EA07C0EA01E0EA00F8137813380D137E9312>I<EAFFFEA3C7FCA3EAFFFEA3
+0F097F8E12>I<12E07E7E123C121FEA0F80EA07C0EA01E0EA00F8137813F8EA01E0EA07
+C0EA0F80EA1F00123C12F85A5A0D137E9312>I<EA1FC0EA7FF0EAF078EAE0381378EA00
+F0EA03E0EA07801300A4C7FCA41206120FA212060D147E9312>I<EA0380EA07C0A21206
+A2EA0EE0A4EA0C60EA1C70A3EA1FF0A2EA3838A3EAFEFEA20F147F9312>65
+D<EA03E6EA0FFEEA1C3EEA381E1278EA700E12F0EAE000A6EAF00E12701278EA381EEA1C
+3CEA0FF8EA03E00F147F9312>67 D<EAFFC013F0EA38781338131CA2131E130EA7131CA2
+13381378EAFFF013C00F147F9312>I<EAFFFEA2EA380EA31300A213E0A2123FA21238A2
+1300130EA4EAFFFEA20F147F9312>I<EAFFFEA2EA380EA31300A21370A2EA3FF0A2EA38
+70A21300A5B4FCA20F147F9312>I<EAFFF8A2EA0700B0EAFFF8A20D147E9312>73
+D<EAFEFEA2EA3878A213F0EA39E0EA3BC0A2EA3F8013C0A213E0123DEA38F0A21378A213
+3CEAFE7EA20F147F9312>75 D<B4FCA21238AC1304130EA3EAFFFEA20F147F9312>I<38
+FE3F80A2383E3E00EA3A2EEA3B6EA613EEEA39CEA2EA380EA538FE3F80A21114809312>
+I<EAFEFEA2EA3E38123A123BA6EA39B8A6123813F812FEA20F147F9312>I<EA3FE0EA7F
+F0EA7070EAE038AEEA7070EA7FF0EA3FE00D147E9312>I<EAFFE013F8EA383C131C130E
+A4131C133CEA3FF813E0EA3800A612FEA20F147F9312>I<EAFF8013E0EA38F013781338
+A3137813F0EA3FE0A2EA38F01370A41377A2EAFE3F131C10147F9312>82
+D<EA1F30EA3FF0127012E01370A2EAF000A2127FEA3FE0EA0FF012001378133812E0A2EA
+F0781370EAFFE0EACF800D147E9312>I<EAFFFEA2EAE38EA3EA0380ADEA1FF0A20F147F
+9312>I<38FE3F80A238380E00ADEA3C1EEA1C1CEA1E3CEA0FF8EA03E01114809312>I<EA
+FC7EA2EA783CEA3838A4EA1C70A4EA0C60EA0EE0A3EA06C0A21207A2EA03800F147F9312
+>I<38FE3F80A238380E00A6EA3BEEA3EA1B6CA6EA1E3CA2EA0E381114809312>I<EAFCFC
+A2EA3C70EA1CF0EA1EE0120F13C0120713801203120713C0120FEA0EE0121EEA1C70A2EA
+3838EAFEFEA20F147F9312>I<EAFC7EA2EA3838A2EA1C70A2EA0EE0A3EA07C0A2EA0380
+A7EA0FE0A20F147F9312>I<EAFFC0A2EAE000B3A4EAFFC0A20A1A7A9612>91
+D<12E0A27E127012781238A2123C121C121E120E120F7EA21380120313C0120113E01200
+A213F013701378133813180D1A7E9612>I<EAFFC0A21201B3A412FFA20A1A7F9612>I<EA
+FFF8A30D037E7F12>95 D<EA1FC0EA3FF0EA3838EA101C1200EA07FC123FEA781C12F012
+E0A2EAF03C387FFF80EA1FCF110E7F8D12>97 D<12FCA2121CA4EA1DF0EA1FF8131EEA1E
+0EEA1C0F1307A4130FEA1E0EEA1F1C13F8EA1DE01014809312>I<EA07F0EA1FF8EA3838
+EA7010EAF0005AA47EEA7038EA3878EA1FF0EA07E00D0E7E8D12>I<EA01F8A2EA0038A4
+EA07B8EA1FF8EA38781270EAF03812E0A412F0EA7078EA78F8EA1FFFEA0FBF10147F9312
+>I<EA0780EA1FE0EA38F0EA7078EAF03812E0EAFFF8A2EAE0007EEA7038EA3878EA1FF0
+EA07C00D0E7E8D12>I<137EEA01FFEA03C713821380A2EAFFFEA2EA0380AAEA7FFCA210
+14809312>I<EA0F9EEA1FFFEA38E7EA7070A4EA38E0EA3FC0EA7F80EA7000EA3FE013F8
+EA7FFCEAF01EEAE00EA3EAF01EEA783CEA3FF8EA0FE010167F8D12>I<12FCA2121CA413
+F0EA1FF8131C121E121CA838FF9F80A21114809312>I<1206120FA21206C7FCA3B4FCA2
+1207AAEAFFF8A20D157D9412>I<12FCA2121CA4EA1DFFA2EA1C785BEA1DE0EA1FC07FA2
+EA1EF0EA1C787FA238FF3F80A21114809312>107 D<B4FCA21207B0EAFFF8A20D147E93
+12>I<EAFB8EB51280EA3EFBEA3CF3EA38E3A838FEFBE0A2130E818D12>I<EAFCF0B47EEA
+1F1C121E121CA838FF9F80A2110E808D12>I<EA0F80EA3FE01238EA7070EAE038A5EAF0
+78EA7070EA38E0123FEA0F800D0E7E8D12>I<EAFDF0EAFFF8EA1F1EEA1E0EEA1C0F1307
+A4130FEA1E0EEA1F1C13F8EA1DE0EA1C00A5EAFF80A21015808D12>I<EAFE3C13FEEA0F
+CE13841300120EA7EAFFF0A20F0E7F8D12>114 D<EA1FF0127FEAE07012C0EAE000B4FC
+EA3FE0EA0FF0EA0078EAE018A2EAF038EAFFF0EADFC00D0E7E8D12>I<120EA4EAFFF8A2
+EA0E00A7131CA2EA0F3CEA07F8EA01E00E127F9112>I<EAFCFCA2EA1C1CA9133C380FFF
+80EA07DF110E808D12>I<EAFEFEA2EA3838A2EA1C70A3EA0EE0A4EA07C0A2EA03800F0E
+7F8D12>I<38FF7F80A238380E00A3EA180CEA1DDCEA1FFCA2EA1D5C121CEA0E78A3110E
+808D12>I<EAFCFEA2EA1CF0EA0EE0EA0FC01207EA0380120713C0EA0EE0EA1EF0EA1C70
+EAFEFEA20F0E7F8D12>I<EAFEFEA2EA3838121C1370A2120E136013E01206A2EA07C012
+03A21380A3EA7700127F127E12380F157F8D12>I<EA7FFCA2EA70381370EA00E0EA01C0
+EA0380EA0700120EEA1C1C12381270EAFFFCA20E0E7F8D12>I<13F81203EA07801300A8
+5A12FEA2120F7EA81380EA03F812000D1A7E9612>I<12F812FE120F7EA81380EA03F8A2
+EA07801300A85A12FE12F80D1A7E9612>125 D E /Fk 1 16 df<EA07E0EA1FF8EA3FFC
+EA7FFEA2B5FCA6EA7FFEA2EA3FFCEA1FF8EA07E010107E9115>15
+D E /Fl 77 126 df<126012F0AD12601200A4126012F0A212600417789614>33
+D<EAC060EAE0E0A5EAC060A50B0B7C9614>I<EA071CA5B51280A3380E3800A7B51280A3
+381C7000A511177F9614>I<1207EA1FC0EA1DE01238A43839CF80EA3B9F383F9C00EA1F
+1CEA1E3C1338123EEA3F78EA77F012E7EAE3E038E1E380A2EAF3F3387F7F00EA1E1E1117
+7F9614>38 D<1230127CA2123C120CA3121C1238127012E012C0060C799614>I<EA0180
+1203EA0700120E5A5AA25AA35AA91270A37EA27E7E7EEA03801201091D799914>I<12C0
+7E12707E7E7EA27EA3EA0380A9EA0700A3120EA25A5A5A5A5A091D7D9914>I<EA0380A3
+EA638CEAF39EEA7FFCEA3FF8EA0FE0A2EA3FF8EA7FFCEAF39EEA638CEA0380A30F107E92
+14>I<EA01C0A7B51280A33801C000A711117F9314>I<127012F812FCA2127C121C121812
+3812F012C0060A798414>I<EAFFFEA30F037E8C14>I<127012F8A312700505798414>I<
+1306130E131E131C133C133813781370A213F013E0120113C012031380120713005A120E
+121E121CA2123C12381278127012F05AA20F1D7E9914>I<EA07C0EA0FE0EA1C70EA3838
+EA3018EA701CA2EAE00EA9EA701CA2EA3838A2EA1C70EA0FE0EA07C00F177E9614>I<12
+035AA25A123F12F712471207AEEAFFF0A20C177C9614>I<EA0FC0EA3FF0EA7878EA703C
+131C12201200133C13381370EA0FE013F0EA0038131C131E130E124012E0131EEAF01CEA
+7838EA3FF0EA0FC00F177E9614>51 D<EA01F0EA07F8EA0E1C121C1238EA7800127012F0
+5AEAE7C0EAFFF0EAF838EAF01C131EEAE00E12F0A21270131EEA381CEA3C38EA1FF0EA07
+C00F177E9614>54 D<127012F8A312701200A6127012F8A312700510798F14>58
+D<127012F8A312701200A6127012F8A3127812181238127012E012C00515798F14>I<13
+0E131E133E13F8EA01F0EA03E0EA0F80EA1F00123E12F85A7E123E7EEA0F80EA03E0EA01
+F0EA00F8133E131E130E0F157E9514>I<B51280A3C8FCA3B51280A311097F8F14>I<12E0
+7E7E123E7EEA0F80EA03E0EA01F0EA00F8133E131E133E13F8EA01F0EA03E0EA0F80EA1F
+00123E12F85A5A0F157E9514>I<EA1FE0EA7FF8EAF01EEAE00EA2EA401EEA003C13F0EA
+01E0EA03C01380A41300C7FCA41203EA0780A2EA03000F177E9614>I<EA01C0487EA213
+60A2EA0770A4EA0630EA0E38A4487EEA1FFCA2EA1C1CA2487EA238FE3F80A211177F9614
+>65 D<EAFFF013FCEA381E130E1307A4130E131EEA3FFCA2EA381E130E1307A5130E131E
+EAFFFC13F810177F9614>I<3801F180EA07FFEA1E1FEA3C0FEA3807EA7803127012F048
+C7FCA738F0038012701278EA3807003C1300EA1E1EEA07FCEA01F011177F9614>I<EAFF
+E013F8EA383C7F130E7FA3EB0380A8EB0700A2130E131E5BEAFFF813E011177F9614>I<
+B51280A2EA1C03A490C7FCA2131CA2EA1FFCA2EA1C1CA290C7FCA3EB01C0A4B5FCA21217
+809614>I<B512C0A2EA1C01A490C7FCA2131CA2EA1FFCA2EA1C1CA290C7FCA7B47EA212
+17809614>I<EA03C6EA0FFEEA1C3EEA3C1E1238EA700EA212F048C7FCA4EB7F80A2EB0E
+0012F01270131E1238123CEA1C3EEA0FFEEA03CE11177F9614>I<38FE3F80A238380E00
+A8EA3FFEA2EA380EA938FE3F80A211177F9614>I<EAFFF8A2EA0700B3EAFFF8A20D177D
+9614>I<EAFE7FA2EA383CA25B5BA2EA39E0EA3BC0A2123F7F123E7FEA3C70EA38781338
+133C131C131E130E38FE1F80A211177F9614>75 D<EAFFC0A2001CC7FCAFEB0380A4B5FC
+A211177F9614>I<38FE0FE0A2003E1380EA3B1BA413BBA2EA39B3A313F3EA38E3A21303
+A638FE0FE0A21317809614>I<38FE3F80A2383E0E00123BA4138E1239A213CEA31238A2
+13EE136EA4133E12FEA211177F9614>I<EA1FF0EA7FFCEA783CEA701CEAE00EAFEA701C
+EA783CEA7FFCEA1FF00F177E9614>I<EAFFF813FEEA1C0F7FEB0380A5EB07005BEA1FFE
+13F8001CC7FCA8B47EA21117809614>I<EAFFE013F8EA383C131C7FA45B133CEA3FF85B
+EA38787F131CA4EB1DC0A3EAFE0FEB070012177F9614>82 D<EA0FCCEA3FFCEA787CEAF0
+3C12E0131CA2EAF0007E127EEA3FE0EA0FF8EA01FCEA003C131E130E12E0A3EAF01CEAF8
+3CEAFFF8EAC7E00F177E9614>I<B51280A2EAE1C3A43801C000AFEA0FF8A211177F9614>
+I<38FF8FF8A2381C01C0B0380E0380EA0F0738078F00EA03FEEA00F81517819614>I<38
+FE3F80A238380E00A3EA3C1EEA1C1CA46C5AA4EA0630EA0770A3EA0360A213E0A26C5A11
+177F9614>I<38FE0FE0A238380380A73818E300EA19F3EA1DF713B7A5EA0DB6A21316EA
+0F1EA31317809614>I<EAFE7FA2EA1C3CEA1E38EA0E78EA0F7012075B12035B12011203
+7FA2EA0770A2EA0E781338EA1C3C131CEA3C1E38FE3F80A211177F9614>I<38FE3F80A2
+38380E00EA3C1EEA1C1CEA1E3CEA0E38A26C5AA2EA036013E0A26C5AA8EA07F0A211177F
+9614>I<EAFFE0A2EAE000B3A7EAFFE0A20B1D799914>91 D<12E0A27E12701278123812
+3C121CA2121E120E120F7E1380120313C0120113E0120013F01370A213781338133C131C
+131E130E13060F1D7E9914>I<EAFFE0A21200B3A712FFA20B1D7F9914>I<EAFFFEA30F03
+7E7E14>95 D<EA1FC0EA7FF0EA7078EA203CEA001CA2EA07FC121FEA7C1C12F012E0A3EA
+707C383FFF80EA0F8F11107E8F14>97 D<12FCA2121CA513F8EA1FFE130F381E0780EA1C
+0314C01301A41303001E13801307381F0F0013FEEA1CF81217809614>I<EA03F8EA0FFE
+EA3C0EEA7804EA700012F05AA47E1270EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<13
+7EA2130EA5EA07CEEA1FFEEA3C3EEA781EEA700E12F012E0A412F0EA701E1278EA3C3E38
+1FFFC0EA07CF12177F9614>I<EA07E0EA1FF8EA3C3CEA781CEA701EEAF00E12E0EAFFFE
+A2EAE0007E1270EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<13FCEA01FEEA078E1304
+1300A3EAFFFEA2EA0700ACEAFFF8A20F177F9614>I<EA07CF381FFF80EA3C7B38783C00
+EA701CA3EA783C6C5AEA3FF0EA77C00070C7FCA2EA3FF813FE7F38700F80EAF007EAE003
+A338700700EA7C1FEA1FFCEA07F011197F8F14>I<12FCA2121CA51378EA1DFEEA1F8FEA
+1E07A2121CA938FF9FE0A21317809614>I<1203EA0780A2EA0300C7FCA4EAFF80A21203
+ACEAFFFCA20E187D9714>I<136013F0A213601300A4EA1FF0A2EA0070B2EAE0E012E1EA
+FFC0EA3F000C207E9714>I<12FCA2121CA5EBFFC0A2EB3E005B5BEA1DF0EA1FE0A27F13
+70EA1E78EA1C3C7FA238FF3FC0A21217809614>I<EAFF80A21203B3EAFFFEA20F177E96
+14>I<EAFB8EB51280EA3EFBEA3CF3EA38E3AA38FEFBE0A21310808F14>I<EAFC78EAFDFE
+EA1F8FEA1E07A2121CA938FF9FE0A21310808F14>I<EA07C0EA1FF0EA3C78EA701CA2EA
+E00EA6EA701CEA783CEA3C78EA1FF0EA07C00F107E8F14>I<EAFCF8EAFFFEEA1F0F381E
+0780EA1C0314C01301A41303001E13801307381F0F0013FEEA1CF890C7FCA6B47EA21218
+808F14>I<EAFE1FEB7F80EA0FE3EB8100138090C7FC120EA8EAFFF8A211107F8F14>114
+D<EA0FD8EA7FF8EAE078EAC038A2EAF000EA7F80EA3FF0EA07FCEA001EEAE00E130612F0
+EAF81CEAFFF8EACFE00F107E8F14>I<120EA5EAFFFCA2EA0E00A8130EA3EA0F1EEA07FC
+EA01F00F157F9414>I<EAFC3FA2EA1C07AA5BEA1E1F380FFFE0EA03E71310808F14>I<38
+FF7F80A2383C1E00EA1C1CA36C5AA3EA0630EA0770A36C5AA311107F8F14>I<38FF7F80
+A238700700EA380EA3EA39CEA3EA1B6C121AA3EA1E7CA2EA0E3811107F8F14>I<38FE7F
+80A2381E3C00EA0E78EA07705B12036C5A12037FEA0770EA0E781338487E38FF7F80A211
+107F8F14>I<38FF7F80A2381C0E005BA2120E5BA212071330A2EA0370A25B1201A25BA3
+485A12730077C7FC127E123C11187F8F14>I<EA7FFFA2EA700E131C1338EA007013E0EA
+01C0EA0380EA0700120EEA1C0712381270B5FCA210107F8F14>I<133EEA01FEEA03E013
+80A91207EA7F0012FE127FEA07801203A913E0EA01FEEA003E0F1D7E9914>I<12F8B4FC
+EA0F801203A913C0EA01FCEA00FEEA01FCEA03C01380A9120FEAFF0012F80F1D7E9914>
+125 D E /Fm 65 123 df<126012F0AF12601200A4126012F0A212600419779816>33
+D<EA6030EAF078A8EAE038A30D0C7C9916>I<EA0387A6B512E0A338070E00A3EA0F1EEA
+0E1CA3B512E0A3381C3800A613197F9816>I<13E01201EA07C013005A121E5A12381278
+1270A312F05AA77E1270A312781238123C7E7E7E13C0EA01E012000B217A9C16>40
+D<12E07E127C121C121E7EEA0780120313C01201A313E01200A7120113C0A31203138012
+07EA0F00121E121C127C12F05A0B217C9C16>I<EA0380A4EAE38EEAF39EEAFFFEEA3FF8
+EA0FE0A2EA3FF8EAFFFEEAF39EEAE38EEA0380A40F127D9516>I<1238127C127EA2123E
+120E121E123C127C12F81260070B798416>44 D<B51280A311037E8D16>I<127012F8A3
+12700505788416>I<EB01801303130714005B130E131E131C133C13381378137013F05B
+12015BA212035B120790C7FC5A120E121E121C123C12381278127012F05AA211207E9C16
+>I<EA03E0EA0FF8487EEA1E3CEA380EEA780FEA7007A238E00380A8EAF00700701300A2
+EA780FEA3C1E6C5AEA1FFC6C5AEA03E011197E9816>I<12035A5AA25AB4FCA212F71207
+AEEAFFF8A30D197B9816>I<EA07E0EA1FF8EA7FFEEA783FEAF00FEB07801303A21200A2
+130714005B131E5B5B5BEA03E0EA078048C7FC381E0380123CEA7FFFB5FC7E11197E9816
+>I<EA07E0EA1FFCEA7FFEEA781F7F7F12005BA2133EEA07FC5B7FEA001E130714801303
+A212F013071400EAF81FEA7FFE6C5AEA07E011197E9816>I<127012F8A312701200A812
+7012F8A312700512789116>58 D<1238127CA312381200A81238127CA3123C121C123C12
+38127812F012600618799116>I<EA0FF0EA3FFE487E38F00F801303A2EA600738001F00
+137E13F85B485A5BA45BC8FCA4487E487EA26C5A11197E9816>63
+D<13E0487EA213B0A2EA03B8A31318EA071CA5EA0E0EA2EA0FFEA2487EEA1C07A3387E0F
+C038FF1FE0387E0FC013197F9816>65 D<EA7FF8EAFFFE6C7EEA1C0714801303A4EB0700
+EA1FFF5BA2EA1C1FEB038014C01301A41303EB0780EA7FFFB51200EA7FFC12197F9816>
+I<3801F180EA07FF5AEA1F0FEA3C0712781303127000F0C7FC5AA77E387003801278A2EA
+3C07381F0F00EA0FFE6C5AEA01F011197E9816>I<EA7FF8EAFFFE6C7EEA1C0FEB0780EB
+03C01301A214E01300A8EB01C0A21303EB0780130F387FFF00485AEA7FF81319809816>
+I<387FFFC0B5FC7EEA1C01A490C7FCA2131CA2EA1FFCA3EA1C1CA290C7FC14E0A5EA7FFF
+B5FC7E13197F9816>I<387FFFE0B5FC7EEA1C00A41400A2131CA2EA1FFCA3EA1C1CA290
+C7FCA6EA7F80487E6C5A13197F9816>I<3801F180EA07FF5AEA1F0FEA3C071278130312
+7000F0C7FC5AA4EB1FC014E014C038F003801270EA7807A2EA3C0FEA1E1FEA0FFFEA07FB
+EA01F313197F9816>I<EA7FFCEAFFFEEA7FFCEA0380B3EA7FFCEAFFFEEA7FFC0F197D98
+16>73 D<48B4FC4813806C1300EA001CB0126012F0137CB45A6C5AEA1FC011197E9816>
+I<387F0FE038FF8FF0387F0FE0381C0780EB0F00131E131C133C5B5BEA1DE07F121F7F13
+38EA1E3C131CEA1C1E7F7F14801303387F07E038FF8FF0387F07E01419809816>I<B47E
+7F5B001CC7FCAE144014E0A4B5FCA313197F9816>I<38FC07E0EAFE0FA2383A0B80EA3B
+1BA513BBEA39B3A413F3EA38E3A21303A538FE0FE0A313197F9816>I<387E07F038FF0F
+F8387F07F0381D81C0A313C1121C13E1A213611371A313311339A21319131D130DA3EA7F
+07EAFF87EA7F031519809816>I<EA1FFC487E487EEA780F38F00780EAE003AEEAF007A2
+38780F00EA7FFF6C5A6C5A11197E9816>I<EA7FF8EAFFFE6C7E381C0F80130314C01301
+A313031480130F381FFF005B13F8001CC7FCA7127F487E6CC7FC12197F9816>I<EA7FF0
+EAFFFC6C7EEA1C0FEB07801303A41307EB0F00EA1FFE5B7FEA1C1F1307A414101438A200
+7F13F838FF83F0387F01E01519809816>82 D<EA07E3EA1FFF127FEA781F487E487EA290
+C7FC7E1278EA7F80EA1FF0EA07FCC67E130FEB07801303A212E0A2EAF00738F80F00EAFF
+FE5BEAC7F011197E9816>I<387FFFE0B5FCA2EAE0E0A400001300AFEA07FC487E6C5A13
+197F9816>I<387F07F038FF8FF8387F07F0381C01C0B0EA1E03000E1380EA0F8F3807FF
+006C5AEA00F81519809816>I<38FE0FE0A338380380EA3C07001C1300A3EA1E0FEA0E0E
+A46C5AA4EA031813B8A3EA01B013F0A26C5A13197F9816>I<387E03F038FF07F8387E03
+F0383800E0A4381C01C0A3137113F9A213D9A2000C1380A3EA0DDD138DA338078F00A213
+071519809816>I<387F1F80EB3FC0EB1F80380E1E00131C12075BEA03B813F012015B12
+0012017F120313B81207131C120FEA0E0EA2487E387E0FC038FF1FE0387E0FC013197F98
+16>I<B51280A311037E7E16>95 D<EA1FE0EA7FF87FEA783EEA301EEA000EA2EA03FE12
+1FEA7E0E12F012E0A2EAF01EEAF83E387FFFE0EA3FE7EA0F8313127E9116>97
+D<12FCA3121CA4137CEA1DFF001F1380EB07C0EA1E03381C01E0A21300A41301001E13C0
+1303381F078013FF381DFE00EA0C7813197F9816>I<EA03F8EA0FFE121FEA3C1EEA780C
+EA700012F05AA47EEA70071278EA3E0FEA1FFEEA0FFCEA03F010127D9116>I<133FA313
+07A4EA03C7EA0FF7EA3FFFEA3C1F487EEA700712F012E0A412F05BEA781FEA7C3F383FFF
+E0EA1FF7EA07C713197F9816>I<EA03F0EA0FFC487EEA3E1FEA780700701380EAF003B5
+FCA300E0C7FC7E387003801278EA3E0F381FFF006C5AEA03F811127E9116>I<131FEBFF
+805AEA03C7EB83001380A2EA7FFFB5FCA2EA0380ACEA7FFC487E6C5A11197F9816>I<38
+03E3C0380FFFE05A381E3CC0383C1E00EA380EA3EA3C1E6C5AEA1FFC5BEA3BE00038C7FC
+A2EA1FFC13FF4813C0EA780338F001E0EAE000A3EAF001387C07C0383FFF80380FFE00EA
+03F8131C7F9116>I<12FCA3121CA41378EA1DFEEA1FFF130FEA1E07A2121CA938FF8FE0
+139F138F13197F9816>I<1203EA0780A2EA0300C7FCA4EAFF80A31203ACEAFFFC13FE13
+FC0F1A7C9916>I<13301378A213301300A4EA0FF8121F120FEA0038B3EA6078EAF0F0EA
+FFE0EA7FC0EA3F800D237E9916>I<127E12FE127E120EA4EB7FE0A3EB0F00131E5B5B5B
+EA0FF8A213BC131EEA0E0E130FEB0780387F87F0EAFFCFEA7F871419809816>I<EA7FC0
+12FF127F1201B3EA7FFFB512806C130011197E9816>I<38F9C38038FFEFC0EBFFE0EA3E
+7CEA3C78EA3870AA38FE7CF8A31512809116>I<EAFC78EAFDFEB5FCEA1F0FEA1E07A212
+1CA938FF8FE0139F138F13127F9116>I<EA03E0EA0FF8487EEA3C1E487EEA700738E003
+80A5EAF00700701300EA780FEA3C1EEA1FFC6C5AEA03E011127E9116>I<EAFC7CEAFDFF
+B51280381F07C0EA1E03381C01E0A21300A41301001E13C01303381F078013FF381DFE00
+EA1C7890C7FCA6B47EA3131B7F9116>I<387F0FC038FF3FE0EA7F7F3807F040EBE0005B
+5BA290C7FCA7EA7FFC12FF127F13127F9116>114 D<EA0FECEA3FFC127FEAF03CEAE01C
+A2EAF000EA7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC13F8EAC7E00F127D
+9116>I<12035AA4EA7FFFB5FCA20007C7FCA75BEB0380A2130713873803FF005BEA00F8
+11177F9616>I<EAFC3FA3EA1C07AA5BEA1E1F381FFFE07EEA07C713127F9116>I<387F1F
+C038FF9FE0387F1FC0381C0700A2EA0E0EA36C5AA4EA03B8A3EA01F0A26C5A13127F9116
+>I<38FF1FE0A338380380A4EA39F3A20019130013B3A3EA1DB71317EA1F1FEA0F1EEA0E
+0E13127F9116>I<387F1FC0133F131F380F1E006C5AEA03B813F012016C5A12017FEA03
+B8EA073C131CEA0E0E387F1FC038FF3FE0387F1FC013127F9116>I<387F1FC038FF9FE0
+387F1FC0381C0700120E130EA212075BA2EA039CA21398EA01B8A2EA00F0A35BA3485A12
+79127BEA7F8090C7FC123C131B7F9116>I<383FFFC05AA238700780EB0F00131EC65A13
+F8485A485A485A48C7FC381E01C0123C1278B5FCA312127F9116>I
+E /Fn 6 116 df<3803F040380C0CC0EA1002EA3001EA600012E01440A36C13007E127E
+EA7FE0EA3FFC6CB4FC00071380EA007FEB07C0EB03E0130113007EA36C13C0A238E00180
+38D00300EACE06EA81F8131E7D9C19>83 D<007FB512C038700F010060130000401440A2
+00C014201280A300001400B1497E3803FFFC1B1C7D9B21>I<38FF81F8381C01E0148014
+0013025B5B5B1330137013B8EA1D1C121EEA1C0E7F14801303EB01C014E014F038FF83FC
+16157F941A>107 D<EAFFC0001CC7FCAC1480A3130114005B5BB5FC11157F9415>I<EA01
+F8EA070EEA0C03001C1380383801C0007813E0EA700000F013F0A7007013E0EA78010038
+13C0381C0380EA1E0738070E00EA01F814157E941A>111 D<EA1F10EA30F0EA603012C0
+1310A2EAE000A2127EEA3FC0EA1FE0EA03F0EA0078133813181280A21310EAC030EAF060
+EA8F800D157E9413>115 D E /Fo 53 122 df<EB3FC03801F0303803C0380007137CEA
+0F80A2143891C7FCA4B512FCA2380F807CAE397FE1FF80A2191D809C1B>12
+D<EB3FFC3801F07CEA03C01207EA0F80A7B512FCA2380F807CAE397FF3FF80A2191D809C
+1B>I<127812FCA212FEA2127A1202A21204A21208A212101260070E7D9C0D>39
+D<EB0380AEB612FCA33900038000AE1E1F7D9925>43 D<127812FCA4127806067D850D>
+46 D<1360EA01E0120F12FF12F31203B3A2387FFF80A2111B7D9A18>49
+D<EA07F8EA1FFE38383F8038780FC0EAFC0714E01303A21278EA000714C0A2EB0F80EB1F
+00131E13385B5B38018060EA03001206000813E0381FFFC05A5AB5FCA2131B7E9A18>I<
+EA07F8EA1FFEEA3C1FEB0F80387C07C0127E127C123838000F80A2EB1E005BEA03F8EA00
+1EEB0F80EB07C0A214E01230127812FCA214C038780F80EB1F00EA1FFEEA07F8131B7E9A
+18>I<EB018013031307130F131F133F136F13CF138F1201EA030F1206120C1218123012
+6012C0B512F8A238000F80A6EBFFF8A2151B7F9A18>I<38380180383FFF005B5B5B13C0
+0030C7FCA4EA31F8EA361E38380F80EA3007000013C014E0A3127812F8A214C012F03860
+0F8038381F00EA1FFEEA07F0131B7E9A18>I<137EEA03FF38078180380F03C0EA1E0712
+3C387C03800078C7FCA212F813F8EAFB0E38FA0780EAFC0314C000F813E0A41278A214C0
+123CEB0780381E0F00EA07FEEA03F8131B7E9A18>I<1260387FFFE0A214C01480A238E0
+0300EAC0065B5BC65AA25B13E0A212015B1203A41207A66C5A131C7D9B18>I<EA03F8EA
+0FFE381E0F80EA3807EB03C01278127C127E387F8380383FC70013FE6C5A6C7E6C7E001D
+138038387FC038781FE0EA700FEAF0031301A3007813C0EB0380EA3E07381FFE00EA03F8
+131B7E9A18>I<EA03F8EA0FFEEA1E0F383C07801278EB03C012F8A214E0A4EA78071238
+EA3C0BEA0E1BEA03E3EA000314C0A2EA3807007C13801400EA780FEA383CEA1FF8EA0FE0
+131B7E9A18>I<127812FCA412781200A6127812FCA4127806127D910D>I<EA0FF0EA303C
+EA601EEAF01F12F8A21270EA003E133C137013E0EA01C01380A2EA0300A5C7FCA4EA0780
+EA0FC0A4EA0780101D7D9C17>63 D<EB0380A2497EA3497EA2497E131BEB3BF81331A2EB
+60FCA2EBE0FEEBC07EA248487E90B5FC481480EB001F4814C00006130FA248EB07E0A239
+FF803FFEA21F1C7E9B24>65 D<90381FE0209038FFF8E03803F80F3807C003380F800148
+C7FC123E1560127E127C00FC1400A8007C1460127E123E15C07E390F8001803907C00300
+3803F80E3800FFFCEB1FE01B1C7D9B22>67 D<B512F814FF390FC01FC0EC07E0EC01F015
+F8140015FC157CA2157EA8157CA315F8A2EC01F0EC07E0EC1FC0B6120014F81F1C7E9B25
+>I<B6FCA2380FC01F1407801580A214C1A39038C1C00013C313FFA213C313C113C01560
+A2EC00E015C0A21401A21403EC0F80B6FCA21B1C7E9B1F>I<90380FF00890387FFE3839
+01FC07F83807E001390F80007848C7FC481438123E007E1418127C00FC1400A6EC7FFFA2
+007CEB01F8127E123E123F7EEA0F80EA07E03801FC0739007FFE7890380FF818201C7D9B
+26>71 D<39FFFC3FFFA2390FC003F0AA90B5FCA2EBC003AC39FFFC3FFFA2201C7E9B25>
+I<EAFFFCA2EA0FC0B3A6EAFFFCA20E1C7E9B12>I<EAFFFEA2EA0FC0AF1403A31407A214
+06140E141E147EB512FEA2181C7E9B1D>76 D<39FFE003FFA2390FF000307FEA0DFCEA0C
+FE137E7FEB1F8014C0EB0FE0EB07F01303EB01F814FCEB00FE147F143FEC1FB015F0140F
+1407140314011400A2D8FFC013701530201C7E9B25>78 D<B512F014FE380FC03FEC0F80
+6E7E81A55D4A5A023EC7FCEBFFF0EBC07C80143F6E7EA6ED8180A2EC0FC13AFFFC07C300
+EC01FE211C7E9B24>82 D<3807F820381FFEE0EA3C07EA7801EA700012F01460A26C1300
+12FEEAFFE0EA7FFE6C7E1480000F13C06C13E0EA007FEB03F01301130012C0A214E07E38
+F001C0EAFC0338EFFF00EA83FC141C7D9B1B>I<007FB512E0A238781F81007013800060
+146000E0147000C01430A400001400B03807FFFEA21C1C7E9B21>I<3AFFFC01FF80A23A
+0FC00018006D1338000714306D1370000314607F00015CA26C6C485AA2EBFE03017E90C7
+FCEB7F07EB3F061486EB1F8CA2EB0FD8A214F86D5AA26D5AA26D5AA2211C7F9B24>86
+D<D8FFFCEBFF80A2D80FE0EB18006C6C5B15706C6C13606C6C5B3800FE015DD97F03C7FC
+EB3F871486EB1FCEEB0FFC5C13076D5AAAEB3FFFA2211C7F9B24>89
+D<EA0FF8EA1C1E383E0F80130714C0121C1200137FEA07E7EA1F07123C127C12F8A3EA78
+0B383E13F8EA0FE115127F9117>97 D<B4FCA2121FA9EB3F80EBE1E0EB8070EB0078143C
+A2143EA6143CA21478EB8070381EC1E0381C3F00171D7F9C1B>I<EA03FCEA0E0EEA1C1F
+123C1278130E00F8C7FCA61278EB0180123C381C0300EA0E0EEA03F811127E9115>I<EB
+0FF0A21301A9EA01F9EA0F07EA1C03EA3C011278A212F8A61278A2123CEA1C03380F0FFE
+EA03F9171D7E9C1B>I<EA03FCEA0F07381C0380383C01C0127814E012F8A2B5FC00F8C7
+FCA3127814607E6C13C0380F03803801FC0013127F9116>I<137F3801E3803803C7C0EA
+0787120FEB8380EB8000A5EAFFF8A2EA0F80AEEA7FF0A2121D809C0F>I<3803F0F0380E
+1F38EA3C0F3838073000781380A400381300EA3C0FEA1E1CEA33F00030C7FCA3EA3FFF14
+C06C13E014F0387801F838F00078A300701370007813F0381E03C03807FF00151B7F9118
+>I<B4FCA2121FA9EB0FC0EB31E0EB40F0EB80F8A21300AB38FFE7FFA2181D7F9C1B>I<12
+1E123FA4121EC7FCA6127FA2121FAEEAFFC0A20A1E7F9D0E>I<B4FCA2121FA9EB03FCA2
+EB01C0EB0300130E5B5B137813FC13BE131F7F1480EB07C0EB03E0130138FFE7FEA2171D
+7F9C19>107 D<B4FCA2121FB3A7EAFFE0A20B1D7F9C0E>I<39FF0FC07E903831E18F3A1F
+40F20780D980FC13C0A2EB00F8AB3AFFE7FF3FF8A225127F9128>I<38FF0FC0EB31E038
+1F40F0EB80F8A21300AB38FFE7FFA218127F911B>I<EA01FC380F0780381C01C0003C13
+E0387800F0A200F813F8A6007813F0A2383C01E0381E03C0380F07803801FC0015127F91
+18>I<38FF3F80EBE1E0381F80F0EB0078147C143C143EA6143C147C1478EB80F0EBC1E0
+EB3F0090C7FCA6EAFFE0A2171A7F911B>I<EAFE3E1347381E8F80A3381F070090C7FCAA
+EAFFE0A211127F9114>114 D<EA1FD8EA3078EA601812E0A2EAF000EAFF80EA7FE013F0
+EA1FF8EA07FCEA007CEAC01CA212E01318EAF830EACFC00E127E9113>I<1203A45AA25A
+A2EA3FFC12FFEA1F00A9130CA4EA0F08EA0798EA03F00E1A7F9913>I<38FF07F8A2EA1F
+00AC1301120F380786FFEA01F818127F911B>I<38FFC1FCA2381F00601380000F13C0A2
+3807C180A23803E300A213F7EA01F613FE6C5AA21378A2133016127F9119>I<39FF8FF8
+FEA2391F03E030A3390F87F06013869038C6F8E03907CC78C0A23903FC7D80EBF83D143F
+3901F01F00A20000131EEBE00EA21F127F9122>I<38FFC7FCA2381F81C0380F83803807
+C700EA03EEEA01FC5B1200137C13FEEA01DF38039F80EA070F380607C0380C03E038FF07
+FCA216127F9119>I<38FFC1FCA2381F00601380000F13C0A23807C180A23803E300A213
+F7EA01F613FE6C5AA21378A21330A25B1270EAF8E05BEAF9800073C7FC123E161A7F9119
+>I E /Fp 42 122 df<1406140FB3007FB712C0B812E0A26C16C0C7000FC8FCB314062B
+2C7CA434>43 D<130E131E137EEA07FE12FFA212F81200B3ABB512FEA317277BA622>49
+D<EBFF80000713F04813FC381E03FE393800FF80007C133F00FE14C06C131F15E0140FA2
+127E003C131FC7FC15C0A2EC3F801500147E5C5C495A495AEB078049C7FC131E4913E013
+705B3901C001C0EA0380EA0600000FB5FC5A5A5AB61280A31B277DA622>I<EB7F803803
+FFF04813FC380F81FE381F007FEA3F80EC3F80A3121F1300C7EA7F00A2147E5C495AEB07
+F0EBFFC0A2EB01F8EB007E801580EC1FC0A215E0A2123C127EB4FCA215C0143F48148000
+7CEB7F00383F01FE6CB45A000713F0C613801B277DA622>I<140FA25C5C5C5C5BA2EB03
+BFEB073F130E131C133C1338137013E0EA01C0EA038012071300120E5A5A5A12F0B612F8
+A3C7EA7F00A890381FFFF8A31D277EA622>I<00181303381F801FEBFFFE5C5C5C14C091
+C7FC001CC8FCA7EB7FC0381DFFF8381F80FC381E003F121CC7EA1F8015C0A215E0A21218
+127C12FEA315C05A0078EB3F80A26CEB7F00381F01FE6CB45A000313F0C613801B277DA6
+22>I<EB07F8EB3FFE90B5FC3901FC07803903F00FC03807C01FEA0F80121F130048EB0F
+8091C7FC127EA3EAFE02EB1FF0EB3FFCEB603EEB801F00FF14809038000FC0A24814E0A4
+127EA4123E003F14C07EEC1F80D80F8013003807E07E6CB45A6C5B38003FC01B277DA622
+>I<1238123E003FB512F0A34814E015C0A215803970000F00141E5C48133814785CC648
+5A495A5C130749C7FCA25B131E133EA2137EA2137C13FCA41201A8EA00701C297CA822>
+I<EB3FC03801FFF04813FC3807C07E48C67E001E7FEC0F80123EA2123F138001C01300EB
+F01F381FFC1E6D5A380FFFF86C13E06C7F6C13FC8000077FD80F0F1380D81E0713C0EA3E
+01397C007FE0141F48130F14071403A315C0127C007EEB07806CEB0F00381FC03F380FFF
+FC00035B38007FC01B277DA622>I<EB7F803801FFF000077F380FC0FC381F803E48487E
+007E1480A2140F00FE14C0A315E0A5007E131FA26C133F6C132F380F80CF3807FF8F0001
+130FEA0008010013C0A3EC1F80123E127FEC3F00143E147E007E5B383E03F8381FFFE06C
+1380D801FEC7FC1B277DA622>I<EC0780A24A7EA34A7EA24A7EA3EC77F8A2ECF7FC14E3
+A2903801C1FEA201037F1480A249486C7EA24980010E133FA2496D7EA2013FB57EA39039
+700007F8A201F080491303000181491301A2000381D8FFFE013F13FCA32E297EA833>65
+D<91387FE003903907FFFC07011FEBFF0F90397FF00F9F9039FF0001FFD801FC7F484814
+7F4848143F4848141F485A160F485A1607127FA290C9FC5AA97E7F1607123FA26C7E160E
+6C7E6C6C141C6C6C143C6C6C14786CB4EB01F090397FF007C0011FB512800107EBFE0090
+38007FF028297CA831>67 D<B712E0A33903FC001FED07F01501A215001670A3913801C0
+781638A302031300A2140F90B5FCA3EBFC0F1403A20201130EA3161C91C7FCA3163C1638
+167816F815011503151FB712F0A327297EA82C>69 D<B512F0A33803FC00B3B1B512F0A3
+14297EA819>73 D<B512FCA3D803FCC8FCB3A3ED01C0A415031680A21507A2150FA2151F
+157F913801FF00B7FCA322297EA828>76 D<B612E015FE6F7E3A03FC003FE0ED0FF06F7E
+6F7E150182A65E4B5A1507ED0FE0ED3FC090B500FEC7FCA29039FC00FF80ED3FE06F7E15
+0F821507A8170EA2ED03FC171EB539F001FE3C9238007FF8EE0FE02F297EA832>82
+D<9038FF80600003EBF0E0000F13F8381F80FD383F001F003E1307481303A200FC1301A2
+14007EA26C140013C0EA7FFCEBFFE06C13F86C13FE80000714806C14C0C6FC010F13E0EB
+007FEC1FF0140F140700E01303A46C14E0A26C13076C14C0B4EB0F80EBE03F39E3FFFE00
+00E15B38C01FF01C297CA825>I<007FB71280A39039807F807FD87C00140F00781507A2
+0070150300F016C0A2481501A5C791C7FCB3A490B612C0A32A287EA72F>I<B500F0EB7F
+FFA3D803FEC7EA01C00001ED0380A26D14076C16006E5B017F140E80013F5CA26E133C01
+1F14386E1378010F14708001075CA26D6C485AA2ECFE0301015CECFF076D91C7FC1587EC
+7F8EA215DEEC3FDC15FC6E5AA26E5AA36E5AA26E5AA230297FA833>86
+D<3803FF80000F13F0381F01FC383F80FE147F801580EA1F00C7FCA4EB3FFF3801FC3FEA
+0FE0EA1F80EA3F00127E5AA4145F007EEBDFC0393F839FFC381FFE0F3803FC031E1B7E9A
+21>97 D<EAFFE0A3120FACEBE1FE9038EFFF809038FE07E09038F803F09038F001F89038
+E000FCA2157EA2157FA8157EA315FCA29038F001F89038F803F090389C0FE090380FFF80
+390E01FC00202A7EA925>I<EB3FF03801FFFC3803F03E380FC07FEA1F80EA3F00A24813
+3E007E90C7FCA212FEA7127EA2127F6CEB03801380001FEB0700380FE00E3803F83C3801
+FFF838003FC0191B7E9A1E>I<EC7FF0A31407ACEB3F873801FFF73807F03F380FC00F38
+1F8007EA3F00A2127EA312FEA8127EA27EA2381F800F380FC01F3907E07FFF3801FFE738
+007F87202A7EA925>I<EB3FC03801FFF03807E07C48487E48487ED83F001380140F5A00
+7E14C012FE1407A2B6FCA248C8FCA4127E127F6CEB01C01380001F1303390FC007803903
+F01F003800FFFCEB3FE01A1B7E9A1F>I<EB07F8EB3FFCEB7E3E3801FC7FEA03F813F012
+07143E1400A7B512C0A33807F000B3A3387FFF80A3182A7EA915>I<9038FF80F00003EB
+E3F8390FC1FE1C391F007C7C48137E003EEB3E10007EEB3F00A6003E133E003F137E6C13
+7C380FC1F8380BFFE00018138090C8FC1238A2123C383FFFF814FF6C14C06C14E06C14F0
+121F383C0007007CEB01F8481300A4007CEB01F0A2003FEB07E0390FC01F806CB5120038
+007FF01E287E9A22>I<EAFFE0A3120FAC147E9038E1FF809038E30FC001E413E0EBE807
+01F813F013F0A213E0B039FFFE3FFFA3202A7DA925>I<1207EA1FC0EA3FE0A5EA1FC0EA
+0700C7FCA7EAFFE0A3120FB3A3EAFFFEA30F2B7EAA12>I<EAFFE0A3120FACEC1FFCA3EC
+07C0EC0F80EC1E00147C5CEBE1F0EBE3E013E713EFEBFFF080EBFBFC13F1EBE1FEEBC0FF
+EC7F80143F15C0EC1FE0EC0FF0140739FFFC1FFFA3202A7FA923>107
+D<EAFFE0A3120FB3B2EAFFFEA30F2A7EA912>I<26FFC07FEB1FC0903AC1FFC07FF0903A
+C307E0C1F8D80FC49038F101FC9039C803F20001D801FE7F01D05BA201E05BB03CFFFE3F
+FF8FFFE0A3331B7D9A38>I<38FFC07E9038C1FF809038C30FC0D80FC413E0EBC80701D8
+13F013D0A213E0B039FFFE3FFFA3201B7D9A25>I<EB3FE03801FFFC3803F07E390FC01F
+80391F800FC0393F0007E0A2007EEB03F0A300FE14F8A8007E14F0A26CEB07E0A2391F80
+0FC0390FC01F803907F07F003801FFFC38003FE01D1B7E9A22>I<38FFE1FE9038EFFF80
+9038FE0FE0390FF803F09038F001F801E013FC140015FEA2157FA8157E15FEA215FC1401
+01F013F89038F807F09038FC0FE09038EFFF809038E1FC0001E0C7FCA9EAFFFEA320277E
+9A25>I<38FFC1F0EBC7FCEBC63E380FCC7F13D813D0A2EBF03EEBE000B0B5FCA3181B7F
+9A1B>114 D<3803FE30380FFFF0EA3E03EA7800127000F01370A27E00FE1300EAFFE06C
+B4FC14C06C13E06C13F0000713F8C6FCEB07FC130000E0137C143C7E14387E6C137038FF
+01E038E7FFC000C11300161B7E9A1B>I<13E0A41201A31203A21207120F381FFFE0B5FC
+A2380FE000AD1470A73807F0E0000313C03801FF8038007F0014267FA51A>I<39FFE07F
+F0A3000F1307B2140FA2000713173903F067FF3801FFC738007F87201B7D9A25>I<39FF
+FC03FFA3390FF000F0000714E07F0003EB01C0A2EBFC0300011480EBFE070000140013FF
+EB7F0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA2201B7F9A23>I<3BFFFC7FFC1F
+FCA33B0FE00FE001C02607F007EB0380A201F8EBF00700031600EC0FF801FC5C0001150E
+EC1FFC2600FE1C5B15FE9039FF387E3C017F1438EC787F6D486C5A16F0ECE01F011F5CA2
+6D486C5AA2EC800701075CA22E1B7F9A31>I<39FFFC1FFEA33907F003803803F8079038
+FC0F003801FE1E00005BEB7F3814F86D5A6D5A130F806D7E130F497EEB3CFEEB38FFEB78
+7F9038F03F803901E01FC0D803C013E0EB800F39FFF03FFFA3201B7F9A23>I<39FFFC03
+FFA3390FF000F0000714E07F0003EB01C0A2EBFC0300011480EBFE070000140013FFEB7F
+0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA25CA21307003890C7FCEA7C0FEAFE0E
+131E131C5BEA74F0EA3FE0EA0F8020277F9A23>I E /Fq 54 122
+df<EB07E0EB1C10EB7038EBE078EA01C014301400A2485AA3383FFFF0EA038014703807
+00E0A6380E01C0A6381C038014C038FF8FF0151D7F9C17>12 D<1270A212F0126004047C
+830C>46 D<13181330EA03F0EA0C701200A313E0A6EA01C0A6EA0380A6EA07001380EAFF
+F80D1C7C9B15>49 D<137E38018380380201C0380400E0A2120FA25AA2120EEA000114C0
+EB0380A2EB0700130E5B5B13605B485A380300801206380801001210EA3FFF485A12FF13
+1C7E9B15>I<137CEA0187380203801204000F13C0A3000E13801200EB070013065B1338
+EA03F0EA001C7FA2130FA3127012F8A2EAF00EEAE01EEA801CEA4038EA3070EA0F80121D
+7D9B15>I<14C0EB01801303A21307130B1313EB2700136713C71387EA01071202EA040E
+12081218121012201240B512C038001C00A55B133C3803FF80121C7E9B15>I<380301C0
+EBFF803807FE0013F80004C7FCA45AA213F8EA0B0CEA0C0EEA0807121012001480A33870
+0F0012F0A2130EEA801E131CEA40381330EA30E0EA0F80121D7D9B15>I<133E13C13801
+8080EA0303EA0607120C001C13000018C7FC12381230EA71F0EA7618EA780CEAE80EEAF0
+06A2EAE007A3130E12C0A35BEAE018EA60381330EA30C0EA0F80111D7C9B15>I<121038
+3FFFC0A2148038600100EA40025B485A12005B5B5B13C05B1201A248C7FC5AA25A120EA2
+121EA35AA31218121D7B9B15>I<13F8EA0304EA0606487E121C1238148012301270A413
+0714005B1230EA1817EA0827EA07CEEA000E130C131CEA6018EAF0381330485AEA80C0EA
+4380003EC7FC111D7C9B15>57 D<14201430147014F0A2130180EB0278A21304A2130880
+1310A21320A2EB403E141EEBFFFEEB801EEA0100141F00027FA25A120C001E148039FF80
+7FF01C1D7F9C1F>65 D<3807FFFE3900F807809038F001C015E0140015F0A2484813E014
+0115C01403EC0780EC1E003803FFFCEBC00FEC0780EC03C0A3EA0780A4EC0780EC0F0038
+0F001E5CB512E01C1C7F9B1D>I<903807F01090381C0C3090387002609038C001E03803
+800048C7FC000E1460A2481440123C123800781400A35AA51580EC01001270A26C13025C
+7E000C13186C1320380380C0D8007FC7FC1C1E7C9C1E>I<380FFFFC3900F807809038F0
+01C0EC00E01570A2157848481338A4153C1538485A1578A3157015F0484813E0A2EC01C0
+EC03801407EC0E0048485A1470B512C01E1C7E9B20>I<0007B512E03800F801EBF00015
+40A4485A14201500A2146014E048B45A13C01440A3158038078000A2EC0100A25C140638
+0F000E143EB512FC1B1C7E9B1C>I<0007B512C03800F803EBF001EC0080A4485A142015
+00A2146014E048B45A13C01440A44848C7FCA648C8FC7FEAFFF81A1C7E9B1B>I<903807
+F01090381C0C3090387002609038C001E03803800048C7FC000E1460A2481440123C1238
+00781400A35AA3ECFFF0EC0F801407EC0F001270A27EA26C5B000C131E6C136638038182
+D8007EC7FC1C1E7C9C21>I<3A07FF87FF803A00F800F800495BA54848485AA648B55AEB
+C003A54848485AA6484848C7FC01807F39FFF0FFF0211C7F9B1F>I<EA07FFEA00F813F0
+A5EA01E0A6EA03C0A6EA0780A6EA0F001380EAFFF0101C7F9B0F>I<3907FF80FF3900F8
+007849136015401580EC0100140448485A5C5C5C14C0EBE3E0EA03C5EBC9F013D0EBE0F8
+EBC078147C3807803C143E141E141F801580380F00079038800FC039FFF03FF0201C7F9B
+20>75 D<3807FFC03800F8005BA5485AA6485AA51404EA0780A31408A21418380F003814
+F0B5FC161C7E9B1A>I<D807F8EB07FC0000EC0FC001BC14801517A21527A2D8011EEB4F
+00A2158FA2EC010F130F0002EB021EA21404A2EB0788149000045C14A0A214C013031480
+000C5C001EEB007C3AFF8307FF80261C7E9B26>I<D807F8EBFF800000EC3C0001BC1318
+1510139E139F138F39010F8020130714C0130314E01301390200F040A21478A2143CA248
+6D5A141F140FA21407A2000C6DC7FC001E7FEAFF80211C7F9B1F>I<EB07F0EB381CEBE0
+0E3801C003D80380138039070001C0120E001E14E0001C1300123C1238007814F0A348EB
+01E0A4EC03C0A30070EB0780150000785B0038131E003C131C001C5B6C13E038038380D8
+00FEC7FC1C1E7C9C20>I<3807FFFC3800F80F9038F0038015C01401A33801E003A31580
+EC0700140E3803C03CEBFFE001C0C7FCA4485AA648C8FC7FEAFFF01A1C7E9B1C>I<380F
+FFF83800F80E9038F00780EC03C0140115E0A23901E003C0A21580EC0700140E143C3803
+FFE0EBC078141C141E140E140F3807801EA51508D80F001310138039FFF00E20C7EA03C0
+1D1D7E9B1F>82 D<EB3F04EBC0CC38018038EA030000061318120EA3001E13101400121F
+6C7E13F86CB4FC6C13806C13C038003FE0130313011300A21240A314C0EA600100E01380
+38F00300EACC0EEA83F8161E7E9C17>I<001FB512F0383C07C00030EB80300020142012
+601240A2EB0F00128000001400A4131EA65BA65B137C381FFFE01C1C7C9B1E>I<39FFE0
+07F8391F0001C06C14801500A2EB800212075C140C14086D5A12035CA25C13E000015BA2
+01E1C7FC13E3EA00F213F4A213F8A21370A21360A21D1D7B9B1F>86
+D<3BFFE1FFC0FF803B1F003E003E006C011E1318A2161016301620023E1360D9802F1340
+0007014F13C05EEC8F0193C7FCEB810F9038C10782EA03C2158413C601C4138813CC01C8
+13D03801F80301F013E0A201E05BA201C05B00001301018090C8FC291D7B9B2B>I<3907
+FF03FE3900FC01F090387800C0017C138090383C0100EB3E02EB1E04EB1F0CEB0F081490
+EB07A014C01303801301497E13041308497EEB3078EB607CEB403CEB803E3801001E0002
+131F00067F001FEB1F8039FF807FF01F1C7F9B1F>I<39FFE007F8391F8001C0D80F0013
+8001801300000713026D5A0003130C14086D5A00015BEBF060000013406D5A01F9C7FC13
+7B137E133CA213381378A5137013F07FEA0FFF1D1C7B9B1F>I<EA07F0EA1C18EA1E0CEA
+1C0E12181200A2EA01FEEA0F0EEA1C1C1230127000E01340A2133CEB5C80EA709D383F0E
+0012127D9115>97 D<123F120F120EA65AA3137CEA1D87381E0180123C003813C0130014
+E0A3387001C0A3EB038014001306EAF00CEACC38EA83E0131D7C9C17>I<13FEEA030700
+0E1380001C1300EA380690C7FC5AA35AA31260EA70025BEA3008EA1C30EA07C011127E91
+12>I<EB01F8EB00781470A614E0A313F8EA0386EA0601000C13C0121812381270A338E0
+0380A312601270EA3007EB0F00381C37803807C7E0151D7E9C17>I<EA01F8EA070CEA0C
+06EA1807EA380312301270EA7FFFEA70005AA312601302EA7004EA3008EA1C30EA07C010
+127E9112>I<EB0F80EB39C0136113E33801C180EBC000A3485AA3EA3FF8EA0380A248C7
+FCA6120EA65A121EEAFFC0121D7F9C0D>I<1438EB7CCC3801871C380303080007138012
+0EA4EB0700EA0606EA070CEA09F00008C7FC1218A2EA1FFE380FFF8014C0EA3001EA6000
+14E04813C0A23860018038200300EA180EEA07F0161C809215>I<EA07E012015BA6485A
+A3EB8F80EBB0C0EBC0E0EA0780A21300A4380E01C0A6381C0380001E13C038FF9FF0141D
+7F9C17>I<13C01201A21380C7FCA7EA1F8012071203EA0700A6120EA65A121EEAFF800A
+1D7F9C0C>I<EA07E012015BA6485AA3EB81FCEB80E014C038070100130213085B133013
+F8EA0F38EA0E3C131C131E130E130F487EEB0F8038FF9FE0161D7F9C16>107
+D<EA07E0120113C0A6EA0380A6EA0700A6120EA65A121EEAFF800B1D7F9C0C>I<391F8F
+C0FC39079061063903E0760738078078A2EB0070A4000EEBE00EA64848485A001EEBE01E
+3AFF8FF8FF8021127F9124>I<381F8F803807B0C03803C0E0EA0780A21300A4380E01C0
+A6381C0380001E13C038FF9FF014127F9117>I<13FCEA0307380E0180001C13C0EA3800
+1230007013E0A338E001C0A300601380130338700700EA380EEA1C18EA07E013127E9115
+>I<380FC7C03803D8703801E0383803C018EB801C140C140EA33807001CA31438143014
+604813C0380EC380EB3E0090C7FCA35AA4B47E171A809117>I<EA1F9CEA07EEEA03CFEA
+078E138C1300A4120EA65A121EEAFFC010127F9110>114 D<EA03F2EA0C0EEA1806EA10
+0412301238EA3E00EA1FE0EA0FF0EA07F8EA003CEA401C130CA2EA6018EAE010EAD060EA
+8FC00F127F9110>I<1202A31206A25A121C123CEAFFE0EA1C00A25AA65A1340A41380A2
+EA3100121E0B1A7C9910>I<38FC1F80EA3C07EA1C0338380700A6EA700EA4131EA25BEA
+305E381F9F8011127C9117>I<38FF07E0383C03801400EA1C02A25B5B120E5BA25B120F
+6C5A13C05B90C7FC7E120213127C9116>I<381FE1FC380781E038038080EBC100EA01C2
+EA00E613EC137813707F137C139CEA011EEA020E487E120C003C138038FE1FF016127F91
+16>120 D<380FF07E3803C038143000011320A214401480EA00E0EBE100A213E213F213
+74137C1378137013301320A25BA2EA708000F1C7FC12F312E61278171A809116>I
+E /Fr 82 125 df<EB7E1F3901C1B180390303E3C0000713C3000EEBC180903801C000A6
+B512FC380E01C0B0387F87FC1A1D809C18>11 D<137E3801C180EA0301380703C0120EEB
+018090C7FCA5B512C0EA0E01B0387F87F8151D809C17>I<EB7FC0EA01C1EA03031207EA
+0E01A7B5FCEA0E01B0387FCFF8151D809C17>I<90383F07E03901C09C18380380F0D807
+01133C000E13E00100131892C7FCA5B612FC390E00E01CB03A7FC7FCFF80211D809C23>
+I<120EA2121E1238127012E012800707779C15>19 D<EA6060EAF0F0EAF8F8EA6868EA08
+08A3EA1010A2EA2020EA4040EA80800D0C7F9C15>34 D<9038030180A3EB070301061300
+A3EB0E07EB0C06A3EB1C0EEB180CB612FCA23900301800A3EB7038EB6030A4B612FCA239
+00C06000000113E0495AA3EA0381EB0180A3EA0703000690C7FCA21E257E9C23>I<1260
+12F012F812681208A31210A2122012401280050C7C9C0C>39 D<1380EA0100120212065A
+A25AA25AA35AA412E0AC1260A47EA37EA27EA27E12027EEA0080092A7C9E10>I<7E1240
+7E12307EA27EA27EA37EA41380AC1300A41206A35AA25AA25A12205A5A092A7E9E10>I<
+1203A4EAC30CEAE31CEA7338EA1FE0EA0780A2EA1FE0EA7338EAE31CEAC30CEA0300A40E
+127D9E15>I<126012F0A212701210A41220A212401280040C7C830C>44
+D<EAFFE0A20B0280890E>I<126012F0A2126004047C830C>I<1303A213071306A2130E13
+0C131C1318A213381330A213701360A213E013C0A21201138012031300A25A1206A2120E
+120CA2121C1218A21238123012701260A212E05AA210297E9E15>I<EA03C0EA0C30EA18
+18EA300CA2EA700EEA6006A2EAE007ADEA6006A2EA700EEA300CA2EA1818EA0C30EA07E0
+101D7E9B15>I<5A1207123F12C71207B3A5EAFFF80D1C7C9B15>I<EA07C0EA1830EA201C
+EA400C130EEAF00F12F81307A21270EA000F130EA2131CA213381370136013C0EA0180EA
+0300EA0601120C1218EA1002EA3FFE127F12FF101C7E9B15>I<EA07E0EA1830EA201CA2
+EA781E130E131E1238EA001CA2131813301360EA07C0EA0030131CA2130E130FA2127012
+F8A3EAF00EEA401C1220EA1830EA07C0101D7E9B15>I<130CA2131C133CA2135C13DC13
+9CEA011C120312021204120C1208121012301220124012C0B512C038001C00A73801FFC0
+121C7F9B15>I<EA300CEA3FF813F013C0EA2000A6EA23E0EA2C30EA3018131CEA200E12
+00130FA3126012F0A3EA800EEA401E131CEA2038EA1870EA07C0101D7E9B15>I<13F0EA
+030CEA0404EA0C0EEA181E1230130CEA7000A21260EAE3E0EAE430EAE818EAF00C130EEA
+E0061307A51260A2EA7006EA300E130CEA1818EA0C30EA03E0101D7E9B15>I<1240387F
+FF801400A2EA4002485AA25B485AA25B1360134013C0A212015BA21203A41207A66CC7FC
+111D7E9B15>I<EA03E0EA0C30EA1008EA200C13061260A21270A2EA7C0CEA3E18EA3FB0
+EA1FE0EA07F013F8EA18FCEA307EEA601E130FEAC0071303A4EA60021304EA300CEA1C10
+EA07E0101D7E9B15>I<EA03C0EA0C30EA1818EA300C1270EA600EEAE006A21307A51260
+EA700F1230EA1817EA0C27EA07C7EA0006A2130EEA300C127813181270EA2030EA10C0EA
+0F80101D7E9B15>I<126012F0A212601200AA126012F0A2126004127C910C>I<126012F0
+A212601200AA126012F0A212701210A41220A212401280041A7C910C>I<EA0FE0EA3038
+EA401CEAE00E12F0A3EA000C131C1330136013C0138012011300A6C7FCA51203EA0780A2
+EA03000F1D7E9C14>63 D<1306A3130FA3EB1780A2EB37C01323A2EB43E01341A2EB80F0
+A338010078A2EBFFF83802003CA3487FA2000C131F80001E5BB4EBFFF01C1D7F9C1F>65
+D<B512C0380F00788080140E140FA4140E141E5C14F8EBFFF0EB003C8080801580A5EC0F
+00A2141E1478B512E0191C7F9B1D>I<90381F8080EBE0613801801938070007000E1303
+5A14015A00781300A2127000F01400A8007014801278A212386CEB0100A26C13026C5B38
+0180083800E030EB1FC0191E7E9C1E>I<B512C0380F00F0143C140E80A2EC038015C014
+01A215E0A815C0A21403158014071500140E5C1470B512C01B1C7E9B20>I<B512FC380F
+003C140C1404A214061402A213011400A35B13FF13037FA3140113001402A31406A2140C
+143CB512FC181C7E9B1C>I<B512F8380F007814181408A2140C1404A213011400A35B13
+FF13037FA490C7FCA8EAFFF8161C7E9B1B>I<90381F8080EBE061380180193807000700
+0E13035A14015A00781300A2127000F01400A6ECFFF0EC0F80007013071278A212387EA2
+7E6C130B380180113800E06090381F80001C1E7E9C21>I<39FFF0FFF0390F000F00AC90
+B5FCEB000FAD39FFF0FFF01C1C7F9B1F>I<EAFFF0EA0F00B3A8EAFFF00C1C7F9B0F>I<38
+07FF8038007C00133CB3127012F8A21338EA7078EA4070EA30E0EA0F80111D7F9B15>I<
+39FFF01FE0390F000780EC060014045C5C5C5C5C49C7FC13021306130FEB17801327EB43
+C0EB81E013016D7E1478A280143E141E80158015C039FFF03FF01C1C7F9B20>I<EAFFF8
+EA0F8090C7FCB01408A31418A2141014301470EB01F0B5FC151C7E9B1A>I<B46CEBFF80
+000FECF800A2390BC00178A33809E002A23808F004A3EB7808A3EB3C10A3EB1E20A3EB0F
+40A2EB0780A3EB0300121C3AFF8307FF80211C7E9B26>I<B4EB1FF0390F8003809038C0
+0100120BEA09E0EA08F0A21378133C133E131E130F14811307EB03C1EB01E114F1130014
+79147D143D141FA2808080121CB46C7E1C1C7F9B1F>I<EB3F80EBE0E03803803848487E
+000E7F487F003C148000381303007814C0A20070130100F014E0A8007014C000781303A2
+00381480003C1307001C14006C130E6C5B6C6C5A3800E0E0EB3F801B1E7E9C20>I<B512
+80380F00E01478143C141C141EA5141C143C147814E0EBFF8090C7FCACEAFFF0171C7E9B
+1C>I<B5FC380F01E0EB007880141C141EA4141C143C5CEB01E001FFC7FCEB01E0EB0070
+147880A61510A2141CA239FFF00E20C7EA03C01C1D7E9B1F>82 D<3807E080EA1C19EA30
+051303EA600112E01300A36C13007E127CEA7FC0EA3FF8EA1FFEEA07FFC61380130FEB07
+C0130313011280A300C01380A238E00300EAD002EACC0CEA83F8121E7E9C17>I<007FB5
+12C038700F010060130000401440A200C014201280A300001400B1497E3803FFFC1B1C7F
+9B1E>I<39FFF01FF0390F000380EC0100B3A26C1302138000035BEA01C03800E018EB70
+60EB0F801C1D7F9B1F>I<39FFE00FF0391F0003C0EC01806C1400A238078002A213C000
+035BA2EBE00C00011308A26C6C5AA213F8EB7820A26D5AA36D5AA2131F6DC7FCA21306A3
+1C1D7F9B1F>I<3AFFE1FFC0FF3A1F003E003C001E013C13186C6D1310A32607801F1320
+A33A03C0278040A33A01E043C080A33A00F081E100A39038F900F3017913F2A2017E137E
+013E137CA2013C133C011C1338A20118131801081310281D7F9B2B>I<39FFF07FC0390F
+C01E003807800CEBC00800035B6C6C5A13F000005BEB7880137C013DC7FC133E7F7F80A2
+EB13C0EB23E01321EB40F0497E14783801007C00027F141E0006131F001F148039FF807F
+F01C1C7F9B1F>I<39FFF003FC390F8001E00007EB00C06D13800003EB01006D5A000113
+026C6C5A13F8EB7808EB7C18EB3C10EB3E20131F6D5A14C06D5AABEB7FF81E1C809B1F>
+I<12FEA212C0B3B312FEA207297C9E0C>91 D<12FEA21206B3B312FEA20729809E0C>93
+D<EA1FC0EA3070EA78387F12301200A2EA01FCEA0F1C12381270126000E01340A3EA603C
+38304E80381F870012127E9115>97 D<12FC121CAA137CEA1D87381E0180381C00C014E0
+14601470A6146014E014C0381E018038190700EA10FC141D7F9C17>I<EA03F8EA0C0CEA
+181E1230EA700CEA600012E0A61260EA70021230EA1804EA0C18EA03E00F127F9112>I<
+EB1F801303AAEA03F3EA0E0BEA1807EA30031270126012E0A6126012701230EA1807EA0E
+1B3803E3F0141D7F9C17>I<EA07E0EA0C30EA1818EA300CEA700EEA600612E0EAFFFEEA
+E000A41260EA70021230EA1804EA0C18EA03E00F127F9112>I<13F8EA018CEA071E1206
+EA0E0C1300A6EAFFE0EA0E00B0EA7FE00F1D809C0D>I<EB03803807C4C0EA1C78383838
+8038301800EA701CA4EA3018EA38386C5AEA27C00020C7FCA21230EA3FF86CB4FC1480EA
+2003386001C0EAC000A33860018038300300EA1C0EEA07F8121C7F9215>I<12FC121CAA
+137C1387EA1D03001E1380121CAD38FF9FF0141D7F9C17>I<1218123CA21218C7FCA712
+FC121CB0EAFF80091D7F9C0C>I<13C0EA01E0A2EA00C01300A7EA07E01200B3A21260EA
+F0C012F1EA6180EA3E000B25839C0D>I<12FC121CAAEB0FE0EB0780EB06005B13105B5B
+13E0121DEA1E70EA1C781338133C131C7F130F148038FF9FE0131D7F9C16>I<12FC121C
+B3A9EAFF80091D7F9C0C>I<39FC7E07E0391C838838391D019018001EEBE01C001C13C0
+AD3AFF8FF8FF8021127F9124>I<EAFC7CEA1C87EA1D03001E1380121CAD38FF9FF01412
+7F9117>I<EA03F0EA0E1CEA1806487E00701380EA600100E013C0A600601380EA700300
+301300EA1806EA0E1CEA03F012127F9115>I<EAFC7CEA1D87381E0180001C13C0EB00E0
+A21470A614E0A2EB01C0001E1380381D0700EA1CFC90C7FCA7B47E141A7F9117>I<3803
+E080EA0E19EA1805EA3807EA7003A212E0A61270A2EA38071218EA0E1BEA03E3EA0003A7
+EB1FF0141A7F9116>I<EAFCE0EA1D38EA1E78A2EA1C301300ACEAFFC00D127F9110>I<EA
+1F90EA2070EA4030EAC010A212E0EAF800EA7F80EA3FE0EA0FF0EA00F8EA8038131812C0
+A2EAE010EAD060EA8FC00D127F9110>I<1204A4120CA2121C123CEAFFE0EA1C00A91310
+A5120CEA0E20EA03C00C1A7F9910>I<38FC1F80EA1C03AD1307120CEA0E1B3803E3F014
+127F9117>I<38FF07E0383C0380381C0100A2EA0E02A2EA0F06EA0704A2EA0388A213C8
+EA01D0A2EA00E0A3134013127F9116>I<39FF3FC7E0393C0703C0001CEB01801500130B
+000E1382A21311000713C4A213203803A0E8A2EBC06800011370A2EB8030000013201B12
+7F911E>I<38FF0FE0381E0700EA1C06EA0E046C5AEA039013B0EA01E012007F12011338
+EA021C1204EA0C0E487E003C138038FE1FF014127F9116>I<38FF07E0383C0380381C01
+00A2EA0E02A2EA0F06EA0704A2EA0388A213C8EA01D0A2EA00E0A31340A25BA212F000F1
+C7FC12F312661238131A7F9116>I<EA7FFCEA70381260EA407013F013E0EA41C0120313
+80EA0700EA0F04120E121CEA3C0CEA380812701338EAFFF80E127F9112>I<B512F01401
+808B15>I<B812802901808B2A>I E /Fs 7 118 df<EB1F801303A3EB0700A4130EA2EA
+03CEEA0E2EEA181C123812301270485AA4EAC072A3EA60F2EA6134EA1E18111A7C9914>
+100 D<EA01E0EA0E18EA1C08123812701310EAFFE0EAE000A41308EA60101320EA30C0EA
+1F000D107C8F12>I<121F1207A3120EA4121CA41238A41270A412E4A412E81230081A7D
+990A>108 D<38307C1E38598663399E0783801403129CA239380E0700A3140ED8701C13
+40A2141C158038E0380C39601807001A107C8F1F>I<EA01F0EA0618EA0C0CEA180E1230
+1270126012E0A2130C131C13181330EA6060EA30C0EA1F000F107C8F14>111
+D<EA03E0EA04301208EA18701360EA1C00EA1F8013C0EA0FE01200136012E0A2EA80C0EA
+4180EA3E000C107D8F10>115 D<EA3806EA4C07EA4E0E128E129CA2EA1C1C1238A3EA70
+39A3EA3079EA389AEA0F0C10107C8F15>117 D E /Ft 3 108 df<EA07E1EA181BEA2007
+EA600312C07FA36CC7FC1270127EEA3FE0EA1FFCEA03FEEA003F1307EB0380A2EA8001A3
+00C013005BEAE002EADC0CEA83F0111A7D9917>83 D<007FB5FC38701C0700401301A200
+C0148000801300A300001400B13803FFE0191A7E991D>I<38FF81F8381C01E01480EB03
+0013045B5B5B137013F8EA1F38EA1C1C7FA27FEB038014C014E038FF87F815137F9218>
+107 D E /Fu 30 122 df<EAFFC0A20A0280880D>45 D<126012F0A2126004047D830B>
+I<130CA2131C1318A213381330A213701360A213E013C0A212011380A2120313005A1206
+A2120E120CA2121C1218A212381230A212701260A212E05AA20E257E9B13>I<EB3F0238
+01C0C63803002E000E131E48130E14065A007813021270A200F01300A600701302A21278
+003813047E14087E000313303801C0C038003F00171A7E991C>67
+D<B512F8380E003814181408140C1404A3EB0100A35BEA0FFFEA0E037FA3EB0002A31406
+1404A2140C143CB512FC171A7F991A>69 D<00FEEB7FC0000FEB0E001404EA0B80EA09C0
+A2EA08E01370A21338131CA2130E1307EB0384A2EB01C4EB00E4A21474143CA2141C140C
+121C38FF80041A1A7F991D>78 D<007FB5FC38701C0700401301A200C0148000801300A3
+00001400B13803FFE0191A7F991C>84 D<EA1FC0EA38707FEA101C1200A2EA03FCEA1E1C
+1238127012E01480A2133CEA705F381F8F0011107F8F13>97 D<12FC121CA913FCEA1D07
+381E0380381C01C0130014E0A6EB01C01480381E0300EA1906EA10F8131A809915>I<EA
+07F8EA1C1C1238EA700813005AA612701304EA3808EA1C18EA07E00E107F8F11>I<133F
+1307A9EA03E7EA0C17EA180F487E127012E0A6126012706C5AEA1C373807C7E0131A7F99
+15>I<EA07C0EA1C30EA30181270EA600C12E0EAFFFCEAE000A41260EA7004EA3808EA1C
+18EA07E00E107F8F11>I<EA01F0EA0718EA0E38EA1C101300A6EAFFC0EA1C00AEEAFF80
+0D1A80990C>I<EA0FCF3818718038303000EA7038A4EA30306C5AEA2FC00060C7FCA212
+70EA3FF013FC6C7EEA600FEAC003A4EA6006EA381CEA07E011187F8F13>I<12FC121CA9
+137CEA1D87381E0380A2121CAB38FF9FF0141A809915>I<1218123CA212181200A612FC
+121CAE12FF081A80990A>I<12FC121CA9EB1FC0EB0F00130C5B13205B13E0121DEA1E70
+EA1C7813387F131E7F148038FF9FE0131A809914>107 D<12FC121CB3A6EAFF80091A80
+990A>I<38FC7C1F391D8E6380391E0781C0A2001C1301AB39FF9FE7F81D107F8F20>I<EA
+FC7CEA1D87381E0380A2121CAB38FF9FF01410808F15>I<EA07E0EA1C38EA300CEA700E
+EA6006EAE007A6EA6006EA700EEA381CEA1C38EA07E010107F8F13>I<EAFCFCEA1D0738
+1E0380381C01C0A2EB00E0A6EB01C01480381E0300EA1D06EA1CF890C7FCA6B47E131780
+8F15>I<EAFC78EA1D9CEA1E1C1308EA1C00ABEAFF800E10808F0F>114
+D<EA1F20EA60E0EA402012C0A2EAF000127FEA3FC0EA1FE0EA00F0EA8070133012C01320
+EAF040EA8F800C107F8F0F>I<1208A41218A21238EAFFC0EA3800A81320A41218EA1C40
+EA07800B177F960F>I<38FC1F80EA1C03AB1307120CEA0E0B3803F3F01410808F15>I<38
+FF0F80383C0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0A36C5A11107F8F14>I<
+39FE7F1F8039381C0700003C1306381C0C04130E380E16081317A238072310149013A338
+03C1A014E0380180C0A319107F8F1C>I<38FE3F80383C1E00EA1C086C5AEA0F306C5A6C
+5A12017F1203EA0270487E1208EA181CEA381E38FC3FC012107F8F14>I<38FF0F80383C
+0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0A36C5AA248C7FCA212E112E212E412
+7811177F8F14>I E /Fv 7 117 df<1303497EA2497EA3EB1BE0A2EB3BF01331A2EB60F8
+A2EBE0FCEBC07CA248487EEBFFFE487FEB001F4814800006130FA248EB07C039FF803FFC
+A21E1A7F9921>65 D<EA1FF0EA383CEA7C1E7FA21238120013FFEA0FCFEA3E0F127C12F8
+A31317387C27E0EA1FC313117F9015>97 D<12FCA2123CA713FE383F8780383E01C0003C
+13E0EB00F0A214F8A514F0A2EB01E0003E13C0383B07803830FE00151A7E9919>I<EA03
+FCEA0F0EEA1C1F123C1278130E00F8C7FCA51278A2383C0180381C0300EA0F06EA03FC11
+117F9014>I<EAF8F0EAF938EA3A7CA2123C13381300A9EAFF80A20E117E9012>114
+D<EA1FD8EA2078EA401812C0A2EAF000EAFF80EA7FE0EA3FF0EA07F8EA003CEAC00CA212
+E01308EAF830EACFE00E117F9011>I<1206A4120EA2121EEA3FF012FFEA1E00A81318A5
+EA0F30EA03E00D187F9711>I E /Fw 49 122 df<1207A2120F121E121C123812601240
+1280080976A218>19 D<EAFFF8A20D02808B10>45 D<127012F8A3127005057C840E>I<
+EA01F0EA071CEA0C06487E00381380A2387001C0A400F013E0AE007013C0A3EA78030038
+1380A2381C0700EA0C06EA071CEA01F013227EA018>48 D<13801203120F12F31203B3A9
+EA07C0EAFFFE0F217CA018>I<EA03F8EA0C1EEA100F38200780004013C0127813031307
+123800001380A214005B130C1338EA03F0EA001C130FEB0780A2EB03C0A214E012201270
+12F8A200F013C01240EB0780122038100F00EA0C1CEA03F013227EA018>51
+D<1303A25BA25B1317A21327136713471387120113071202120612041208A212101220A2
+124012C0B512F838000700A7EB0F80EB7FF015217FA018>I<00101380381E0700EA1FFF
+5B13F8EA17E00010C7FCA6EA11F8EA120CEA1C07381803801210380001C0A214E0A41270
+12F0A200E013C01280EA4003148038200700EA1006EA0C1CEA03F013227EA018>I<137E
+EA01C138030080380601C0EA0C03121C381801800038C7FCA212781270A2EAF0F8EAF30C
+EAF4067F00F81380EB01C012F014E0A51270A3003813C0A238180380001C1300EA0C06EA
+070CEA01F013227EA018>I<12401260387FFFE014C0A23840008038C0010012801302A2
+485A5BA25B5BA21360134013C0A21201A25B1203A41207A76CC7FC13237DA118>I<EA01
+F0EA060C487EEA1807383803801270A238F001C0A314E0A5127013031238EA1805120CEA
+0619EA03E1380001C0A3EB0380A21230387807001306EA700CEA20186C5AEA0FC013227E
+A018>57 D<127012F8A312701200AB127012F8A3127005157C940E>I<EB0FE0EB701CEB
+800239030001800004EB0040481420A2391007C0103920183008EB300839406004049038
+C007840041130300811482EA8380A7EA81C0124100401307016013843820300B90381831
+88391007C0F06CC8FCA27E0003140EC66C137890387007C090380FFC001F237DA226>64
+D<497EA3497EA3EB05E0A2EB09F01308A2EB1078A3497EA3497EA2EBC01F497EA248B512
+80EB0007A20002EB03C0A348EB01E0A348EB00F0121C003EEB01F839FF800FFF20237EA2
+25>I<B512F8380F800E0007EB0780EC03C015E0140115F0A515E01403EC07C0EC0F80EC
+3E00EBFFFE9038800780EC03C0EC01E015F0140015F8A6EC01F0A2EC03E0EC07C0000FEB
+0F00B512FC1D227EA123>I<903807E0109038381830EBE0063901C0017039038000F048
+C7FC000E1470121E001C1430123CA2007C14101278A200F81400A812781510127C123CA2
+001C1420121E000E14407E6C6C13803901C001003800E002EB381CEB07E01C247DA223>
+I<B612C0380F80070007130114001540A215601520A314201500A3146014E013FF138014
+601420A315081400A21510A31530A2157015E0000F1303B6FC1D227EA121>69
+D<B612C0380F80070007130114001540A215601520A314201500A3146014E013FF138014
+601420A491C7FCA9487EEAFFFE1B227EA120>I<903807F00890383C0C18EBE0023901C0
+01B839038000F848C71278481438121E15185AA2007C14081278A200F81400A7EC1FFF00
+78EB00F81578127C123CA27EA27E7E6C6C13B86C7E3900E0031890383C0C08903807F000
+20247DA226>I<EAFFFCEA0FC0EA0780B3ACEA0FC0EAFFFC0E227EA112>73
+D<3803FFE038001F007FB3A6127012F8A2130EEAF01EEA401C6C5AEA1870EA07C013237E
+A119>I<EAFFFCEA1F806CC7FCB3A21401A41403A214021406A2141E48137EB512FE1822
+7DA11E>76 D<39FF8007FF3907C000F81570D805E01320EA04F0A21378137C133C7F131F
+7FEB0780A2EB03C0EB01E0A2EB00F014F81478143C143E141E140FA2EC07A0EC03E0A214
+01A21400000E1460121FD8FFE0132020227EA125>78 D<B512F0380F803C0007130FEC07
+8015C0140315E0A615C014071580EC0F00143CEBFFF00180C7FCAE487EEAFFFC1B227EA1
+21>80 D<B512E0380F803C0007130E6E7E81140381A55D14075D020EC7FC143CEBFFE0EB
+80708080141E140E140FA481A3168015C014073A0FC003C10039FFFC01E2C8127C21237E
+A124>82 D<3803F020380C0C60EA1802383001E0EA70000060136012E0A21420A36C1300
+A21278127FEA3FF0EA1FFE6C7E0003138038003FC0EB07E01301EB00F0A214707EA46C13
+60A26C13C07E38C8018038C60700EA81FC14247DA21B>I<39FFFC07FF390FC000F86C48
+13701520B3A5000314407FA2000114806C7E9038600100EB3006EB1C08EB03F020237EA1
+25>85 D<EA1FE0EA3038EA780C130EEA30071200A313FFEA07C7EA1E07123C1278127000
+F01308A3130FEA7817383C2390380FC1E015157E9418>97 D<120E12FE121E120EAB131F
+EB61C0EB8060380F0030000E1338143C141C141EA7141C143C1438000F1370380C8060EB
+41C038083F0017237FA21B>I<EA01FEEA0703380C0780121C383803000078C7FC127012
+F0A712700078134012386C1380380C0100EA0706EA01F812157E9416>I<14E0130F1301
+1300ABEA01F8EA0704EA0C02EA1C01EA38001278127012F0A7127012781238EA1801EA0C
+0238070CF03801F0FE17237EA21B>I<EA01FCEA0707380C0380381C01C01238007813E0
+EA700012F0B5FC00F0C7FCA512700078132012386C13406C138038070300EA00FC13157F
+9416>I<133E13E33801C780EA0387130748C7FCA9EAFFF80007C7FCB27FEA7FF0112380
+A20F>I<14703803F198380E1E18EA1C0E38380700A200781380A400381300A2EA1C0EEA
+1E1CEA33F00020C7FCA212301238EA3FFE381FFFC06C13E0383000F0481330481318A400
+601330A2003813E0380E03803803FE0015217F9518>I<120E12FE121E120EABEB1F80EB
+60C0EB80E0380F0070A2120EAF38FFE7FF18237FA21B>I<121C123EA3121CC7FCA8120E
+127E121E120EB1EAFFC00A227FA10E>I<120E12FE121E120EABEB03FCEB01F014C01480
+EB02005B5B5B133813F8EA0F1CEA0E1E130E7F1480EB03C0130114E0EB00F014F838FFE3
+FE17237FA21A>107 D<120E12FE121E120EB3ADEAFFE00B237FA20E>I<390E1FC07F3AFE
+60E183803A1E807201C03A0F003C00E0A2000E1338AF3AFFE3FF8FFE27157F942A>I<38
+0E1F8038FE60C0381E80E0380F0070A2120EAF38FFE7FF18157F941B>I<EA01FCEA0707
+380C0180381800C0003813E0481370A200F01378A700701370007813F0003813E0381C01
+C0380E038038070700EA01FC15157F9418>I<EA0E1F38FE61C0380E8060380F0070000E
+1338143CA2141EA7143CA21438000F1370380E80E0EB41C0EB3F0090C7FCA9EAFFE0171F
+7F941B>I<EA0E3CEAFE46EA1E8FEA0F0F13061300120EAD120FEAFFF010157F9413>114
+D<EA0F88EA3078EA601812C01308A212E0EAF000127FEA3FE0EA0FF0EA01F8EA003CEA80
+1C130CA212C01308EAE018EAD030EA8FC00E157E9413>I<1202A41206A3120E121E123E
+EAFFFCEA0E00AB1304A6EA07081203EA01F00E1F7F9E13>I<000E137038FE07F0EA1E00
+000E1370AD14F0A238060170380382783800FC7F18157F941B>I<38FF80FE381E007814
+30000E1320A26C1340A2EB80C000031380A23801C100A2EA00E2A31374A21338A3131017
+157F941A>I<38FF83FE381F00F0000E13C06C1380EB8100EA0383EA01C2EA00E41378A2
+1338133C134E138FEA0187EB0380380201C0000413E0EA0C00383E01F038FF03FE17157F
+941A>120 D<38FF80FE381E00781430000E1320A26C1340A2EB80C000031380A23801C1
+00A2EA00E2A31374A21338A31310A25BA35B12F05B12F10043C7FC123C171F7F941A>I
+E /Fx 40 122 df<EB0FF0EB7FFC3801F80E3803E01F48485AEA0F80A2141E140C91C7FC
+A4B6FCA2380F801FB2397FF0FFE0A21B237FA21F>12 D<1238127C12FEA3127C12380707
+7C8610>46 D<13181378EA01F812FFA21201B3A7387FFFE0A213207C9F1C>49
+D<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE0314F8A21301127CEA3803120014F0
+A2EB07E014C0EB0F80EB1F00133E13385BEBE018EA01C0EA0380EA0700000E1338380FFF
+F05A5A5AB5FCA215207D9F1C>I<13FE3807FFC0380F07E0381E03F0123FEB81F8A3EA1F
+0314F0120014E0EB07C0EB1F803801FE007F380007C0EB01F014F8EB00FCA2003C13FE12
+7EB4FCA314FCEA7E01007813F8381E07F0380FFFC03801FE0017207E9F1C>I<14E01301
+1303A21307130F131FA21337137713E7EA01C71387EA03071207120E120C121812381270
+12E0B6FCA2380007E0A790B5FCA218207E9F1C>I<00301320383E01E0383FFFC0148014
+005B13F8EA33C00030C7FCA4EA31FCEA37FF383E0FC0383807E0EA3003000013F0A214F8
+A21238127C12FEA200FC13F0A2387007E0003013C0383C1F80380FFF00EA03F815207D9F
+1C>I<12601278387FFFFEA214FC14F8A214F038E0006014C038C00180EB0300A2EA0006
+5B131C131813381378A25BA31201A31203A76C5A17227DA11C>55
+D<1238127C12FEA3127C12381200A81238127C12FEA3127C123807167C9510>58
+D<1470A214F8A3497EA2497EA3EB067FA2010C7F143FA2496C7EA201307F140F01707FEB
+6007A201C07F90B5FC4880EB8001A2D803007F14004880000680A23AFFE007FFF8A22522
+7EA12A>65 D<D903FE138090381FFF819038FF01E33901F8003FD803E0131F4848130F48
+481307121F48C71203A2481401127EA200FE91C7FCA8127EED0180127F7E15036C6C1400
+120F6C6C1306D803F05B6C6C13386CB413F090381FFFC0D903FEC7FC21227DA128>67
+D<B67E15F03907F003FCEC007E81ED1F80ED0FC0ED07E0A216F01503A316F8A916F0A3ED
+07E0A2ED0FC0ED1F80ED3F00157EEC03FCB612F0158025227EA12B>I<B612FCA23807F0
+00153C151C150C150EA21506140CA31500141C143CEBFFFCA2EBF03C141C140CA21503A2
+14001506A3150EA2151E153EEC01FCB6FCA220227EA125>I<B538803FFCA23A07F00003
+80ED0700150E15185D15E04A5A4A5A4AC7FC140E1418143C14FCEBF1FEEBF3FFEBF77F90
+38FE3F8001F87F496C7E140F6E7E816E7E1401816E7E81ED3F8016C0ED1FE0B53881FFFE
+A227227EA12C>75 D<B6FC15E03907F007F0EC01FC1400157EA2157FA5157EA215FC1401
+EC07F090B512E0150001F0C7FCADB57EA220227EA126>80 D<3801FE023807FF86381F01
+FE383C007E007C131E0078130EA200F81306A27E1400B4FC13E06CB4FC14C06C13F06C13
+F86C13FC000313FEEA003F1303EB007F143FA200C0131FA36C131EA26C133C12FCB413F8
+38C7FFE00080138018227DA11F>83 D<B5EB0FFEA2D807F0EB00C0A26C6CEB0180A26D13
+03000115007F000014067F6D5BA2EC801C013F1318ECC038011F133014E0010F5BA26D6C
+5AA214F901035B14FD6DB4C7FCA26D5AA3147CA21438A227227FA12A>86
+D<B53A0FFFF00FFEA2260FF00090C712E000076E14C0A26C6C90393F800180A26D14C000
+01EE0300A26D496C5A0000026F1306A2017F9038C7F00CA2028113F8013F01835BA29139
+C301FC38011F153016FE90260FE6005BA202FEEBFFE06D486D5AA26D486D5AA36D486DC7
+FCA36D48130EA237227FA13A>I<EA0FFC383FFF80387E07C0EB03E0130114F0123C1200
+A2133FEA03FDEA1FC1EA3F01127E12FCA4EA7E02EB0CF8381FF87F3807E03F18167E951B
+>97 D<B4FCA2121FABEB0FE0EB3FF8EBE07CEB803E497EEC0F80A215C0A81580141F0180
+1300EBC03E381EE07C381C3FF838180FC01A237EA21F>I<EBFF80000713E0380F83F0EA
+1F03123E127E387C01E090C7FC12FCA6127C127EA2003E13186C1330380FC0603807FFC0
+C6130015167E9519>I<EB01FEA2EB003EABEA01FC3807FFBE380F81FE381F007E003E13
+3E127E127C12FCA8127CA26C137E6C13FE380F83BE3907FF3FC0EA01FC1A237EA21F>I<
+13FE3807FF80380F87C0381E01E0003E13F0EA7C0014F812FCA2B5FCA200FCC7FCA3127C
+A2127E003E13186C1330380FC0703803FFC0C6130015167E951A>I<EB1FC0EB7FE0EBF1
+F0EA01E31203EA07C3EBC1E0EBC000A6EAFFFEA2EA07C0B2EA3FFCA2142380A211>I<38
+01FE0F3907FFBF80380F87C7381F03E7391E01E000003E7FA5001E5BEA1F03380F87C0EB
+FF80D809FEC7FC0018C8FCA2121C381FFFE06C13F86C13FE001F7F383C003F48EB0F8048
+1307A40078EB0F006C131E001F137C6CB45A000113C019217F951C>I<B4FCA2121FABEB
+07E0EB1FF8EB307CEB403CEB803EA21300AE39FFE1FFC0A21A237EA21F>I<121C123E12
+7FA3123E121CC7FCA7B4FCA2121FB2EAFFE0A20B247EA310>I<B4FCA2121FABECFF80A2
+EC38001460495A495A49C7FC130E5B137E13FF13CFEB0F806D7E6D7E1301806D7E147C14
+3C39FFE0FFC0A21A237EA21E>107 D<B4FCA2121FB3ADEAFFE0A20B237EA210>I<3AFF07
+F007F090391FFC1FFC3A1F303E303E01401340496C487EA201001300AE3BFFE0FFE0FFE0
+A22B167E9530>I<38FF07E0EB1FF8381F307CEB403CEB803EA21300AE39FFE1FFC0A21A
+167E951F>I<13FE3807FFC0380F83E0381E00F0003E13F848137CA300FC137EA7007C13
+7CA26C13F8381F01F0380F83E03807FFC03800FE0017167E951C>I<38FF0FE0EB3FF838
+1FE07CEB803E497E1580A2EC0FC0A8EC1F80A29038803F00EBC03EEBE0FCEB3FF8EB0FC0
+90C8FCA8EAFFE0A21A207E951F>I<EAFE1FEB3FC0381E67E013C71387A2381F83C090C7
+FCADEAFFF0A213167E9517>114 D<EA0FF3EA3FFFEA781FEA6007EAE003A212F000FCC7
+FCEA7FE013F8EA3FFEEA0FFF120138000F80EAC007130312E0A238F00700EAFC0EEAEFFC
+EAC7F011167E9516>I<487EA41203A21207A2120F123FB5FCA2EA0F80ABEB8180A5EB83
+00EA07C3EA03FEEA00F811207F9F16>I<38FF01FEA2381F003EAF147E14FE380F81BE39
+07FF3FC0EA01FC1A167E951F>I<39FFE01FE0A2391F800700000F1306EBC00E0007130C
+13E000035BA26C6C5AA26C6C5AA2EB7CC0A2137F6D5AA26DC7FCA2130EA21B167F951E>
+I<39FFE07FC0A2390F801C006C6C5A6C6C5AEBF0606C6C5A3800F980137F6DC7FC7F8049
+7E1337EB63E0EBC1F03801C0F848487E3807007E000E133E39FF80FFE0A21B167F951E>
+120 D<39FFE01FE0A2391F800700000F1306EBC00E0007130C13E000035BA26C6C5AA26C
+6C5AA2EB7CC0A2137F6D5AA26DC7FCA2130EA2130CA25B1278EAFC3813305BEA69C0EA7F
+80001FC8FC1B207F951E>I E /Fy 13 121 df<B712F0A23907E0000700031400167816
+381618A21608A41604A315401600A415C0A2140390B5FCA2EBE0031400A21540A31601A2
+15001602A41606A21604160CA2161C163C16FC0007EC07F8B7FCA228317DB02D>69
+D<90387F80203801FFE03907C07860380F001C001EEB06E0481303003813010078130012
+70156012F0A21520A37E1500127C127E7E13C0EA1FF86CB47E6C13F06C13FCC613FF010F
+1380010013C0EC1FE01407EC03F01401140015F8A26C1478A57E15706C14F015E07E6CEB
+01C000ECEB038000C7EB070038C1F01E38807FFCEB0FF01D337CB125>83
+D<007FB712E0A23A7E000F800700781501007015000060166000401620A200C01630A248
+1610A6C71500B3AC4A7E010FB57EA22C317EB030>I<15F0141FA214011400AFEB0FC0EB
+70303801C00C3803800238070001120E001E13005AA2127C1278A212F8A71278A2127C12
+3CA27E000E13016C1302380380046C6C487E3A00F030FF80EB1FC021327EB125>100
+D<EB3F80EBE0E0380380383807003C000E7F121E001C7F123C127C00781480140712F8A2
+B6FC00F8C8FCA61278127C123C15807E000EEB0100000F13027E3801C00C3800F030EB1F
+C0191F7E9E1D>I<15F090387F03083901C1C41C380380E8390700700848EB7800001E7F
+A2003E133EA6001E133CA26C5B6C13706D5A3809C1C0D8087FC7FC0018C8FCA5121C7E38
+0FFFF86C13FF6C1480390E000FC00018EB01E048EB00F000701470481438A500701470A2
+6C14E06CEB01C00007EB07003801C01C38003FE01E2F7E9F21>103
+D<EA078012FFA2120F1207AF14FE903883078090388C03C090389001E013A06E7E13C0A2
+5BB3A2486C487E3AFFFC1FFF80A221327EB125>I<120FEA1F80A4EA0F00C7FCABEA0780
+127FA2120F1207B3A6EA0FC0EAFFF8A20D307EAF12>I<380780FE39FF83078090388C03
+C0390F9001E0EA07A06E7E13C0A25BB3A2486C487E3AFFFC1FFF80A2211F7E9E25>110
+D<380781FC39FF86078090388801C0390F9000E0D807A0137001C01378497F153E151E15
+1FA2811680A716005DA2151E153E153C6D5B01A013705D90389803C0D9860FC7FCEB81F8
+0180C8FCAB487EEAFFFCA2212D7E9E25>112 D<380783E038FF8418EB887CEA0F90EA07
+A01438EBC000A35BB3487EEAFFFEA2161F7E9E19>114 D<1340A513C0A31201A2120312
+07120F381FFFE0B5FC3803C000B01410A80001132013E000001340EB78C0EB1F00142C7F
+AB19>116 D<39FFF003FFA2390FE001F8D803C013E001E01380000191C7FC6C6C5AEB78
+02EB7C04EB3C086D5AEB0F3014A0EB07C01303806D7E1302EB0478EB087CEB183EEB101E
+497E01407F9038C007C0EB800348486C7E000780D81F807F3AFFC007FFC0A2221F7F9E23
+>120 D E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+%%PaperSize: a4
+%%BeginPaperSize: a4
+/setpagedevice where {
+pop 1 dict dup /PageSize [ 595 842 ] put setpagedevice
+} {
+statusdict /a4tray known {
+statusdict begin a4tray end
+/a4 where { pop a4 } if
+} {
+/a4 where {
+pop a4
+} {
+statusdict /setpage known {
+statusdict begin
+595 842 0 setpage
+end
+} if
+} ifelse
+} ifelse
+} ifelse
+%%EndPaperSize
+
+%%EndSetup
+%%Page: 1 1
+1 0 bop 515 369 a Fy(Extending)20 b(the)i(ST)p Fx(K)f
+Fy(in)n(terpreter)808 513 y Fw(Eric)o(k)15 b(Gallesio)543
+572 y(Univ)o(ersit)o(\023)-23 b(e)14 b(de)i(Nice)31 b(-)i(Sophia-An)o
+(tip)q(olis)494 630 y(Lab)q(oratoire)18 b(I3S)f(-)f(CNRS)g(URA)f(1376)j
+(-)f(ESSI.)778 688 y(Route)f(des)h(Colles)866 746 y(B.P)l(.)e(145)507
+804 y(06903)k(Sophia-An)o(tip)q(olis)d(Cedex)f(-)i(FRANCE)760
+898 y(email:)j(eg@unice.fr)854 1019 y(July)15 b(1995)872
+1171 y Fv(Abstract)236 1243 y Fu(This)h(do)q(cumen)o(t)g(describ)q(es)g
+(ho)o(w)f(to)g(extend)g(the)g Ft(STk)g Fu(in)o(terpreter)h(with)f(new)g
+(primitiv)o(es)i(pro)q(ce-)179 1289 y(dures)12 b(and/or)h(new)e(t)o(yp)
+q(es.)17 b(Extending)d(the)d(in)o(terpreter)i(can)f(b)q(e)g(done)g(b)o
+(y)g(writing)h(new)e Fs(mo)n(dules)f Fu(in)i(C.)179 1335
+y(New)d(C)h(co)q(de)h(can)f(b)q(e)g(statically)j(link)o(ed)f(to)e(the)g
+(core)h(in)o(terpreter)g(or)f(dynamically)k(loaded)d(on)g(op)q(erating)
+179 1380 y(systems)16 b(whic)o(h)g(supp)q(ort)g(shared)g(libraries.)26
+b(This)16 b(do)q(cumen)o(t)h(also)f(presen)o(ts)g(ho)o(w)f(to)g(in)o
+(tegrate)i(new)179 1426 y(Tk)c(widgets)g(written)h(for)f(the)g(Tcl)g
+(in)o(terpreter)h(in)g Ft(STk)p Fu(.)946 2960 y Fr(1)p
+eop
+%%Page: 2 2
+2 1 bop 75 35 a Fq(CONTENTS)1292 b(CONTENTS)p 75 51 1763
+2 v 75 195 a Fp(Con)n(ten)n(ts)75 310 y Fo(1)38 b(In)o(tro)q(duction)
+1410 b(3)75 425 y(2)38 b(Adding)14 b(new)i(primiti)o(v)o(es)1197
+b(3)137 498 y Fr(2.1)42 b(A)14 b(simple)e(example)h(.)20
+b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)73 b(3)137 572 y(2.2)42 b(P)o(assing)14 b(argumen)o(ts)f(to)g(a)h
+(primitiv)o(e)24 b(.)d(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(4)137 645 y(2.3)42 b(Ev)n(aluating)12 b(argumen)o(ts)36
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(7)137 719 y(2.4)42 b(Signaling)12 b(errors)21 b(.)g(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(8)75 834 y Fo(3)38 b(V)l(ariables)1483 b(9)137 907
+y Fr(3.1)42 b(Sc)o(heme)13 b(Sym)o(b)q(ols)g(and)g(V)m(ariables)34
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(9)137
+981 y(3.2)42 b(Connecting)14 b(Sc)o(heme)g(and)f(C)h(v)n(ariables)41
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(10)75 1095 y
+Fo(4)38 b(Calling)14 b(Sc)o(heme)g(from)h(C)1169 b(11)75
+1210 y(5)38 b(Adding)14 b(new)i(t)o(yp)q(es)1273 b(11)137
+1284 y Fr(5.1)42 b(De\014nition)13 b(of)g(a)h(Sc)o(heme)g(extended)h(t)
+o(yp)q(e)e(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(11)233
+1357 y(5.1.1)46 b(Ho)o(w)13 b(the)i(GC)e(w)o(orks)19
+b(.)h(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(11)233 1431 y(5.1.2)46 b(The)14 b(Extended)h(t)o(yp)q(e)g(data)e
+(structure)35 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(12)233 1504
+y(5.1.3)46 b(Registering)13 b(the)i(new)f(t)o(yp)q(e)41
+b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(13)233
+1578 y(5.1.4)46 b(New)14 b(t)o(yp)q(e)g(instances)h(creation)j(.)i(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(14)137 1651 y(5.2)42
+b(De\014nition)13 b(of)g(a)h(C)g(extended)h(t)o(yp)q(e)21
+b(.)f(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(15)137
+1724 y(5.3)42 b(Ab)q(out)14 b(memory:)h(Common)c(pitfalls)19
+b(.)i(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(15)75
+1839 y Fo(6)38 b(Loading)14 b(an)i(extension)1206 b(15)75
+1954 y(7)38 b(Adding)14 b(new)i(Tk)g(widgets)1152 b(16)137
+2028 y Fr(7.1)42 b(Widget)13 b(compilation)8 b(.)20 b(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(16)137 2101 y(7.2)42 b(Widget)13 b(linking)33 b(.)21
+b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)52 b(17)75 2216 y Fo(8)38 b(Extending)14 b(the)h(in)o(terpr)o
+(eter)d(with)j(C++)881 b(18)75 2331 y(9)38 b(Em)o(b)q(edding)13
+b(the)i(STk)h(in)o(terpret)o(er)987 b(18)946 2960 y Fr(2)p
+eop
+%%Page: 3 3
+3 2 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)p
+75 51 1763 2 v 75 195 a Fp(1)67 b(In)n(tro)r(duction)75
+310 y Fr(This)12 b(do)q(cumen)o(t)g(describ)q(es)j(ho)o(w)c(to)i
+(extend)g(the)g Fn(STk)p Fr([2])e(in)o(terpreter)k(using)d(the)h(C)f
+(language[4)n(].)17 b(T)m(o)12 b(b)q(egin,)75 359 y(w)o(e)k(will)e
+(start)i(with)f(a)g(simple)f(extension)j(whic)o(h)e(will)f(only)h
+(consist)h(to)f(add)h(some)e(simple)g(new)i(primitiv)o(es)75
+409 y(to)h(the)g(in)o(terpreter.)30 b(Second)17 b(section)h(will)e
+(describ)q(e)i(ho)o(w)f(to)g(add)f(a)h(new)h(t)o(yp)q(e)f(\(and)g(the)h
+(primitiv)o(es)d(for)75 459 y(manipulating)9 b(this)j(new)g(t)o(yp)q
+(e\).)18 b(Another)13 b(in)o(teresting)f(extension)h(consists)g(to)e
+(add)h(new)h(kind)e(of)g(primitiv)o(es)75 509 y(\(i.e.)21
+b(primitiv)o(es)13 b(whic)o(h)h(ev)n(aluate)h(their)g(argumen)o(t)f(in)
+g(particular)h(w)o(a)o(y\).)20 b(This)15 b(kind)g(of)f(extension)h
+(will)f(b)q(e)75 559 y(discussed)f(in)d(the)i(third)f(section.)18
+b(F)m(ourth)11 b(section)g(discusses)i(ho)o(w)e(to)g(add)g(a)f(new)i
+(widget)f(to)f(the)i(in)o(terpreter.)75 609 y(Calling)h(some)g(Sc)o
+(heme)i(co)q(de)g(from)e(a)h(C)g(function)h(is)f(sho)o(w)o(ed)h(in)f
+(section)h(5.)20 b(And)15 b(last,)f(w)o(e)g(will)f(sho)o(w)i(ho)o(w)75
+658 y(to)d(load)g(an)h(extension)g(at)f(load)g(time.)k(This)d(facilit)o
+(y)e(will)g(p)q(ermit)h(to)g(extend)i(the)f Fn(STk)g
+Fr(in)o(terpreter)i(without)75 708 y(ha)o(ving)e(to)g(recompile)g(it,)g
+(on)h(systems)g(whic)o(h)g(supp)q(ort)h(dynamic)d(loading.)75
+869 y Fp(2)67 b(Adding)23 b(new)f(primiti)q(v)n(es)75
+992 y Fx(2.1)56 b(A)19 b(simple)d(example)75 1092 y Fr(One)i(of)g(the)g
+(simpler)e(extension)j(one)f(can)g(wish)f(to)h(do)g(consists)g(to)g
+(add)f(new)i(primitiv)o(es)d(pro)q(cedures)k(to)75 1142
+y(the)15 b(in)o(terpreter.)20 b(T)m(o)14 b(illustrate)g(this,)f(supp)q
+(ose)j(w)o(e)e(w)o(an)o(t)g(to)g(add)g(t)o(w)o(o)f(new)i(primitiv)o(es)
+d(to)i(the)h(in)o(terpreter:)75 1192 y Fm(posix-time)10
+b Fr(and)j Fm(posix-ctime)p Fr(.)i(The)e(former)e(function)h(corresp)q
+(ond)i(to)e(the)h(POSIX.1[1])f(function)g Fm(time)p Fr(:)75
+1242 y(it)f(returns)i(the)f(n)o(um)o(b)q(er)f(of)g(seconds)i(elapsed)f
+(since)h(00:00:00)c(on)i(Jan)o(uary)g(1,)h(1970,)e(Co)q(ordinated)i
+(Univ)o(ersal)75 1291 y(Time)g(\(UTC\).)h(The)h(latter)g(is)f(a)g
+(wrapp)q(er)i(around)e(the)h(POSIX.1)f(function)h Fm(ctime)e
+Fr(whic)o(h)h(returns)i(a)e(string)75 1341 y(con)o(taining)g(the)h
+(curren)o(t)i(time)c(in)i(an)f(h)o(uman)g(readable)h(format.)75
+1415 y(First,)21 b(w)o(e)g(will)d(see)j(ho)o(w)f(to)g(write)g(the)h
+(new)f(Sc)o(heme)g(primitiv)o(e)e Fm(posix-time)p Fr(.)34
+b(Implemen)o(ting)17 b(a)j(new)75 1464 y(primitiv)o(e)e(requires)k(to)e
+(write)g(a)g(new)h(C)f(function)g(whic)o(h)g(will)f(do)h(the)h(w)o
+(ork.)37 b(Here,)23 b(w)o(e)d(write)h(the)g(C)75 1514
+y(function)15 b Fm(posix)p 352 1514 14 2 v 14 w(time)f
+Fr(to)h(implemen)o(t)e(the)i(Sc)o(heme)g(primitiv)o(e)e
+Fm(posix-time)p Fr(.)19 b(The)c(co)q(de)h(of)f(this)g(function)75
+1564 y(is)f(giv)o(en)f(b)q(elo)o(w.)277 1659 y Fl(static)k(PRIMITIVE)f
+(posix_time)o(\(vo)o(id)o(\))277 1705 y({)316 1750 y(return)h
+(STk_makeint)o(eg)o(er\()o(\(l)o(ong)o(\))f(time\(NULL\)\))o(;)277
+1796 y(})75 1889 y Fr(This)f(function)g(uses)h(the)g(in)o(terpreter)h
+Fm(STk)p 774 1889 V 15 w(makeinteger)c Fr(function)i(whic)o(h)g(con)o
+(v)o(erts)i(a)e(C)g(long)f(in)o(teger)i(to)75 1939 y(a)d
+Fn(STk)g Fr(in)o(teger.)18 b(Once)c(the)g Fm(posix)p
+648 1939 V 14 w(time)f Fr(C)f(function)h(is)g(written,)g(w)o(e)g(ha)o
+(v)o(e)g(to)g(bind)f(this)h(new)h(primitiv)o(e)d(to)75
+1989 y(the)j(Sc)o(heme)g(sym)o(b)q(ol)e Fm(posix-time)p
+Fr(.)k(This)e(is)g(ac)o(hiev)o(ed)g(b)o(y)g(the)g(follo)o(wing)d(C)j
+(function)g(call.)277 2093 y Fl(STk_add_n)o(ew_)o(pr)o(imi)o(tiv)o(e\()
+o("po)o(si)o(x-t)o(im)o(e",)i(tc_subr_0)o(,)h(posix_tim)o(e\))o(;)75
+2227 y Fo(Note:)41 b Fr(The)14 b(C)g(t)o(yp)q(e)g Fm(SCM)f
+Fr(is)g(used)h(to)g(describ)q(e)h(the)f(ob)r(jects)h(manipulated)c(in)i
+(Sc)o(heme.)18 b Fm(PRIMITIVE)11 b Fr(is)j(an)75 2277
+y(alias)f(for)g(this)h(t)o(yp)q(e;)g(it)g(is)f(preferably)i(used)f
+(when)h(de\014ning)f(a)f(new)i(primitiv)o(e.)75 2350
+y Fm(STk)p 144 2350 V 15 w(add)p 225 2350 V 15 w(new)p
+306 2350 V 15 w(primitive)c Fr(tells)h(the)i(in)o(terpreter)g(that)f
+(the)g(Sc)o(heme)f(sym)o(b)q(ol)f Fm(posix-time)g Fr(m)o(ust)g(b)q(e)i
+(b)q(ound)75 2400 y(to)i(the)i(\(C)e(written\))i(primitiv)o(e)c
+Fm(posix)p 718 2400 V 15 w(time)p Fr(.)22 b(The)16 b(constan)o(t)g
+Fm(tc)p 1155 2400 V 15 w(subr)p 1258 2400 V 15 w(0)g
+Fr(used)g(as)g(the)g(second)h(argumen)o(t)75 2450 y(indicates)d(the)h
+(arit)o(y)e(of)g(this)h(primitiv)o(e.)i(In)e(this)g(case,)g(the)h(arit)
+o(y)e(of)g(the)i(primitiv)o(e)c(is)j(0.)75 2523 y(Let's)g(no)o(w)g(ha)o
+(v)o(e)f(a)h(lo)q(ok)f(at)h(the)g(primitiv)o(e)e Fm(posix-ctime)p
+Fr(.)k(A)e(\014rst)g(writing)f(of)h(this)g(primitiv)o(e)d(could)j(b)q
+(e)946 2960 y(3)p eop
+%%Page: 4 4
+4 3 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)448
+b(2.2)40 b(P)o(assing)14 b(argumen)o(ts)f(to)h(a)g(primitiv)o(e)p
+75 51 1763 2 v 277 180 a Fl(static)j(PRIMITIVE)f(posix_ctim)o(e\(v)o
+(oi)o(d\))277 225 y({)316 271 y(char)i(*s;)316 317 y(time_t)f(t)j(=)f
+(time\(NULL)o(\);)316 408 y(s)g(=)h(ctime\(&t)o(\);)316
+454 y(return)d(STk_makestr)o(in)o(g\(s)o(\);)277 499
+y(})75 594 y Fr(This)12 b(functions)g(uses)h(another)f(in)o(terpreter)i
+(routine)e(\()p Fm(STk)p 1012 594 14 2 v 15 w(makestring)p
+Fr(\))e(whic)o(h)i(tak)o(es)g(as)g(parameter)g(a)f(n)o(ull)75
+644 y(terminated)i(string)h(and)g(returns)h(a)f(Sc)o(heme)g(string.)75
+718 y(Binding)f(of)h(the)g(sc)o(heme)g(sym)o(b)q(ol)e
+Fm(time-string)g Fr(to)h(the)i(C)f(function)f Fm(get)p
+1285 718 V 15 w(time)g Fr(is)h(done)g(b)o(y)g(the)g(call)277
+822 y Fl(STk_add_n)o(ew_)o(pr)o(imi)o(tiv)o(e\()o("po)o(si)o(x-c)o(ti)o
+(me")o(,)j(tc_subr_)o(0,)f(posix_ctim)o(e\);)75 931 y
+Fr(A)d(complete)f(listing)g(of)g(this)h(co)q(de)g(is)g(giv)o(en)f(in)h
+(Figure)f(2.1.)17 b(Pro)o(vided)c(that)g(w)o(e)g(ha)o(v)o(e)f(done)h(a)
+g(shared)h(ob)r(ject)75 981 y(of)f(this)g(\014le,)g(and)g(that)h(its)f
+(name)f(is)h Fm(posix.so)p Fr(,)f(our)h(t)o(w)o(o)g(new)h(primitiv)o
+(es)d(can)j(b)q(e)g(loaded)f(dynamically)d(b)o(y:)277
+1088 y Fl(\(load)18 b("time.so)o("\))75 1219 y Fo(Notes:)137
+1326 y Fk(\017)j Fr(Su\016x)c(can)h(b)q(e)h(omitted.)28
+b(Su\016xes)18 b(giv)o(en)f(in)h(the)g(Sc)o(heme)g(v)n(ariable)f
+Fm(*load-suffixes*)d Fr(giv)o(es)k(the)179 1375 y(order)g(in)g(whic)o
+(h)f(su\016xes)i(m)o(ust)d(b)q(e)j(tried)f(for)f(loading)f(a)i(\014le.)
+30 b(Default)17 b(v)n(alue)g(for)g(this)h(v)n(ariable)f(is)179
+1425 y Fm(\("stk")j("stklos")g("scm")h("so"\))p Fr(.)137
+1508 y Fk(\017)g Fr(When)16 b(dynamic)f(loading)f(is)j(used,)g(the)g
+(in)o(terpreter)h(try)e(to)g(call)g(a)g(function)g(whose)h(name)e(is)h
+(equal)179 1558 y(to)h(the)h(string)f Fm("STk)p 520 1558
+V 15 w(init)p 623 1558 V 15 w(")g Fr(follo)o(w)o(ed)f(b)o(y)h(the)h
+(name)e(of)h(the)h(\014le,)g(without)f(su\016x.)28 b(De\014nitions)17
+b(of)179 1608 y(new)c(primitiv)o(es)d(are)j(generally)f(done)h(in)f
+(this)h(function.)k(Here,)c(the)g(C)g(function)f(in)g(c)o(harge)h(of)f
+(mo)q(dule)179 1658 y(initialization)f(m)o(ust)i(b)q(e)h(called)g
+Fm(STk)p 767 1658 V 15 w(init)p 870 1658 V 15 w(posix)p
+Fr(.)75 1831 y Fx(2.2)56 b(P)n(assing)19 b(argumen)n(ts)f(to)g(a)h
+(primitiv)n(e)75 1931 y Fr(This)g(section)h(sho)o(ws)g(ho)o(w)f(to)g
+(pass)g(argumen)o(ts)g(to)g(a)g(new)h(primitiv)o(e)d(written)i(in)g(C.)
+g(T)m(o)f(illustrate)h(our)75 1981 y(purp)q(ose,)i(w)o(e)f(will)e
+(rewrite)i(the)g(primitiv)o(e)d Fm(posix-ctime)g Fr(to)i(b)q(e)h
+(conform)e(to)h(POSIX.1)g(\(this)h(function)75 2031 y(should)14
+b(tak)o(e)h(an)f(in)o(teger,)h(a)f(coun)o(t)h(of)e(seconds,)j(and)e
+(should)h(return)g(corresp)q(onding)h(date)f(as)f(a)g(string\).)20
+b(A)75 2080 y(second)15 b(writing)e(of)g(previous)i(function)e(could)h
+(b)q(e:)277 2184 y Fl(static)j(PRIMITIVE)f(posix_ctim)o(e\(S)o(CM)g
+(seconds\))277 2229 y({)316 2275 y(long)i(sec;)316 2366
+y(sec)h(=)g(STk_integ)o(er_)o(va)o(lue)o(_n)o(o_o)o(ve)o(rfl)o(ow\()o
+(se)o(con)o(ds)o(\);)316 2412 y(return)e(STk_makestr)o(in)o(g\(c)o(ti)o
+(me\()o(\(t)o(ime)o(_t)f(*\)&sec\)\);)277 2458 y(})75
+2559 y Fr(This)c(function)f(has)h(one)g(parameter)f(since)i(Sc)o(heme)e
+(primitiv)o(e)f(arit)o(y)h(is)g(one.)18 b(The)12 b(C)g(primitiv)o(es)d
+(parameters)75 2609 y(are)19 b(alw)o(a)o(ys)e Fm(SCM)g
+Fr(ob)r(jects.)32 b(An)18 b(ob)r(ject)h(of)f(this)g(t)o(yp)q(e)h(is)f
+(a)g(p)q(oin)o(ter)g(to)g(a)g Fm(struct)i(obj)p Fr(:)26
+b(the)19 b(t)o(yp)q(e)g(whic)o(h)75 2658 y(p)q(ermits)d(to)g(represen)o
+(t)j(all)c(the)i(Sc)o(heme)f(ob)r(jects.)26 b(The)17
+b Fm(SCM)f Fr(and)g Fm(struct)k(obj)c Fr(t)o(yp)q(es)h(de\014nitions)f
+(can)h(b)q(e)75 2708 y(found)c(in)h(the)g Fm(Src/stk.h)e
+Fr(header)j(\014le.)75 2782 y(The)g(\014rst)g(job)f(of)g(this)h
+(function)f(consists)h(to)g(con)o(v)o(ert)g(the)g(Sc)o(heme)f
+(parameter)h(\()p Fm(seconds)p Fr(\))e(to)h(a)h(C)f(in)o(teger)75
+2832 y Fm(long)21 b(int)p Fr(.)c(This)12 b(is)f(done)i(with)e(the)i
+(function)f Fm(STk)p 901 2832 V 15 w(integer)p 1070 2832
+V 14 w(value)p 1194 2832 V 15 w(no)p 1253 2832 V 15 w(overflow)p
+Fr(whic)o(h)e(tak)o(es)j(a)e Fm(SCM)h Fr(and)946 2960
+y(4)p eop
+%%Page: 5 5
+5 4 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)448
+b(2.2)40 b(P)o(assing)14 b(argumen)o(ts)f(to)h(a)g(primitiv)o(e)p
+75 51 1763 2 v 179 177 a Fj(#include)h(<sys/type)o(s.h)o(>)179
+216 y(#include)g(<sys/time)o(.h>)179 256 y(#include)g(<time.h>)179
+295 y(#include)g(<stk.h>)156 b Fi(/*)18 b(Declarati)q(on)j(of)d(STk)h
+(objects/)q(pr)q(imi)q(ti)q(ve)q(s)h(*/)179 374 y Fj(static)15
+b(PRIMITIVE)g(posix_tim)o(e\(v)o(oid)o(\))179 413 y Fh(f)214
+453 y Fj(return)h(STk_makei)o(nte)o(ger)o(\(\()o(lon)o(g\))e
+(time\(NULL\)\))o(;)179 492 y Fh(g)179 571 y Fj(static)h(PRIMITIVE)g
+(posix_cti)o(me\()o(voi)o(d\))179 610 y Fh(f)214 650
+y Fj(char)h(*s;)214 689 y(time_t)g(t)h(=)g(time\(NULL\);)214
+768 y(s)g(=)h(ctime\(&t\))o(;)214 808 y(return)e(STk_makes)o(tri)o
+(ng\()o(s\))o(;)179 847 y Fh(g)179 926 y Fj(PRIMITIVE)e(STk_init_po)o
+(six)o(\(v)o(oid)o(\))179 965 y Fh(f)214 1005 y Fj(STk_add_ne)o(w_p)o
+(rim)o(iti)o(ve\()o("p)o(osi)o(x-t)o(ime)o(",)32 b(tc_subr_0,)14
+b(posix_time)o(\);)214 1044 y(STk_add_ne)o(w_p)o(rim)o(iti)o(ve\()o("p)
+o(osi)o(x-c)o(tim)o(e",)g(tc_subr_0,)g(posix_ctim)o(e\);)214
+1084 y(return)i(UNDEFINED)o(;)179 1123 y Fh(g)596 1214
+y Fr(Figure)e(1:)k(A)c(\014rst)h(v)o(ersion)f(of)f(\014le)h
+Fm(posix.c)p 75 1249 V 75 1426 a Fr(returns)i(a)d Fm(long)21
+b(int)p Fr(.)d(This)c(functions)g(returns)i Fm(LONG)p
+967 1426 14 2 v 15 w(MIN)d Fr(if)h(the)g(argumen)o(t)f(is)h(not)g(a)g
+(an)g(in)o(teger)g(n)o(um)o(b)q(er)75 1475 y(\(or)i(a)f(n)o(um)o(b)q
+(er)g(whic)o(h)g(don't)g(\014t)h(in)f(the)h(C)f(represen)o(tation)j(of)
+c(a)i(C)f Fm(long)21 b(int)p Fr(\).)i(Once)16 b(this)g(con)o(v)o
+(ersion)g(is)75 1525 y(done,)e(the)g(rest)h(of)f(the)g(job)f(is)h
+(similar)e(to)h(the)i(co)q(de)f(presen)o(ted)i(ab)q(o)o(v)o(e.)75
+1599 y(T)m(o)9 b(add)g(this)g(primitiv)o(e)e(to)i(the)h(global)e(Sc)o
+(heme)h(en)o(vironmen)o(t,)f(w)o(e)i(ha)o(v)o(e)f(to)g(c)o(hange)h(the)
+g(previous)f Fm(STk)p 1701 1599 V 15 w(add)p 1782 1599
+V 15 w(new)p 1863 1599 V 15 w(primitive)75 1648 y Fr(for)14
+b(this)f(primitiv)o(e)f(b)o(y:)277 1761 y Fl(STk_add_n)o(ew_)o(pr)o
+(imi)o(tiv)o(e\()o("po)o(si)o(x-c)o(ti)o(me")o(,)17 b(tc_subr_)o(1,)f
+(posix_ctim)o(e\);)75 1878 y Fr(in)c(the)g(init)f(section.)19
+b(This)12 b(call)f(states)i(that)f(the)h(t)o(yp)q(e)f(of)g(this)g
+(primitiv)o(e)e(is)i(\014xed)g(to)g(a)g Fm(tc)p 1520
+1878 V 15 w(subr)p 1623 1878 V 15 w(1)g Fr(\(a)f(arit)o(y-1)75
+1928 y(primitiv)o(e\).)75 2002 y(Ho)o(w)o(ev)o(er,)17
+b(this)f(function)g(is)g(not)h(to)q(o)f(satisfying,)f(ev)o(en)i(if)f
+(close)g(to)h(the)g(POSIX)f(de\014nition:)23 b(it)16
+b(obliges)g(to)75 2051 y(pass)e(a)f(parameter)h(whic)o(h)f(will)f(b)q
+(e)i(probably)f(most)f(of)h(the)h(time)f(the)h(result)g(of)f(the)h
+(primitiv)o(e)e Fm(posix-time)75 2101 y Fr(\(i.e.)18
+b(the)c(most)f(frequen)o(t)i(usage)f(of)f(this)h(function)g(will)e(b)q
+(e)277 2214 y Fl(\(posix-ct)o(ime)k(\(posix-ti)o(me\))o(\))75
+2331 y Fr(whic)o(h)f(is)f(not)h(v)o(ery)g(elegan)o(t\).)21
+b(A)15 b(b)q(etter)i(approac)o(h)e(consists)g(to)g(allo)o(w)e(this)i
+(primitiv)o(e)e(to)i(ha)o(v)o(e)f(a)h(optional)75 2381
+y(parameter.)22 b(This)15 b(p)q(ermits)f(to)h(b)q(e)h(at)f(the)h(same)e
+(time)g(conform)g(to)h(the)g(POSIX)h(con)o(v)o(en)o(tion)f(and)g(close)
+h(to)75 2431 y(Sc)o(heme)e(habits.)k(The)c(follo)o(wing)d(v)o(ersion)j
+(implemen)o(ts)e(the)i Fm(posix-ctime)e Fr(with)h(a)h(optional)e
+(parameter:)277 2527 y Fl(static)17 b(PRIMITIVE)f(posix_ctim)o(e\(S)o
+(CM)g(seconds\))277 2572 y({)316 2618 y(long)i(sec;)316
+2709 y(sec)h(=)g(\(seconds=)o(=UN)o(BO)o(UND)o(\))d(?)k(time\(NULL)o
+(\))806 2755 y(:)g(STk_integ)o(er)o(_va)o(lu)o(e_n)o(o_o)o(ve)o(rfl)o
+(ow)o(\(se)o(con)o(ds)o(\);)316 2801 y(return)d(STk_makestr)o(in)o
+(g\(c)o(ti)o(me\()o(\(t)o(ime)o(_t)f(*\))j(&sec\)\);)277
+2846 y(})946 2960 y Fr(5)p eop
+%%Page: 6 6
+6 5 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)448
+b(2.2)40 b(P)o(assing)14 b(argumen)o(ts)f(to)h(a)g(primitiv)o(e)p
+75 51 1763 2 v 75 195 a Fr(If)k(the)g(Sc)o(heme)g Fm(posix-ctime)e
+Fr(primitiv)o(e)g(is)i(called)g(with)g(one)g(parameter,)h(it)e(will)g
+(b)q(e)i(passed)g(to)f(the)h(C)75 245 y(function)c(in)g(the)h
+Fm(seconds)d Fr(parameter.)22 b(If)15 b Fm(posix-ctime)e
+Fr(is)i(called)g(without)g(parameter,)g Fm(seconds)e
+Fr(is)j(set)75 295 y(to)g(the)g(sp)q(ecial)g(v)n(alue)f
+Fm(UNBOUND)p Fr(.)f(So,)i(the)g(\014rst)h(test)g(in)e(this)h(function)f
+(consists)i(to)f(set)g(a)g(correct)h(v)n(alue)f(to)75
+345 y(the)g(v)n(ariable)e Fm(sec)p Fr(;)h(this)g(v)n(alue)g(is)g
+(either)h(the)g(curren)o(t)h(time,)d(either)i(the)g(giv)o(en)f(in)o
+(teger,)g(dep)q(ending)h(of)f(the)75 394 y(n)o(um)o(b)q(er)e(of)g
+(parameters)h(giv)o(en)g(to)g Fm(posix-ctime)p Fr(.)75
+468 y(Of)e(course,)i(the)f(t)o(yp)q(e)g(of)f(this)h(new)f(primitiv)o(e)
+f(m)o(ust)g(b)q(e)i(c)o(hanged)g(to)g(allo)o(w)d(0)j(or)f(1)g
+(parameter.)17 b(This)c(is)f(done)75 518 y(b)o(y)i(c)o(hanging)f(the)h
+Fm(tc)p 425 518 14 2 v 16 w(subr)p 529 518 V 14 w(0)g
+Fr(in)f(the)i(previous)f Fm(STk)p 930 518 V 15 w(add)p
+1011 518 V 15 w(new)p 1092 518 V 15 w(primitive)e Fr(b)o(y)i
+Fm(tc)p 1419 518 V 15 w(subr)p 1522 518 V 15 w(0)p 1559
+518 V 16 w(or)p 1619 518 V 15 w(1)p Fr(.)75 591 y(The)g(follo)o(wing)e
+(t)o(yp)q(es)i(are)h(a)o(v)n(ailable)c(for)j(C)g(primitiv)o(es:)137
+698 y Fk(\017)21 b Fm(tc)p 226 698 V 15 w(subr)p 329
+698 V 15 w(0)14 b Fr(for)f(arit)o(y-0)g(primitiv)o(es)137
+781 y Fk(\017)21 b Fm(tc)p 226 781 V 15 w(subr)p 329
+781 V 15 w(1)14 b Fr(for)f(arit)o(y-1)g(primitiv)o(es)137
+864 y Fk(\017)21 b Fm(tc)p 226 864 V 15 w(subr)p 329
+864 V 15 w(2)14 b Fr(for)f(arit)o(y-2)g(primitiv)o(es)137
+947 y Fk(\017)21 b Fm(tc)p 226 947 V 15 w(subr)p 329
+947 V 15 w(3)14 b Fr(for)f(arit)o(y-3)g(primitiv)o(es)137
+1030 y Fk(\017)21 b Fm(tc)p 226 1030 V 15 w(subr)p 329
+1030 V 15 w(0)p 366 1030 V 15 w(or)p 425 1030 V 16 w(1)14
+b Fr(for)h(primitiv)o(es)e(whic)o(h)h(ha)o(v)o(e)h(0)g(or)f(1)h
+(parameter)f(\(e.g.)g Fm(read)p Fr(\).)20 b(On)c(the)f(C)g(side)g(y)o
+(ou)179 1080 y(ha)o(v)o(e)k(to)h(declare)g(a)f(function)h(whic)o(h)f
+(tak)o(es)h(one)g Fm(SCM)f Fr(argumen)o(t.)34 b(This)19
+b(argumen)o(t)g(is)g(set)h(to)g(the)179 1129 y(\(ev)n(aluated\))14
+b(parameter)f(if)g(presen)o(t,)i(to)f Fm(UNBOUND)e Fr(otherwise.)137
+1212 y Fk(\017)21 b Fm(tc)p 226 1212 V 15 w(subr)p 329
+1212 V 15 w(1)p 366 1212 V 15 w(or)p 425 1212 V 16 w(2)13
+b Fr(for)h(primitiv)o(es)e(whic)o(h)i(ha)o(v)o(e)g(1)f(or)h(2)g
+(parameters)g(\(e.g.)f Fm(write)p Fr(\).)k(Here)e(y)o(ou)f(ha)o(v)o(e)g
+(to)179 1262 y(declare)i(a)g(C)f(function)h(with)f(t)o(w)o(o)g
+Fm(SCM)g Fr(parameters.)23 b(The)16 b(\014rst)h(one)f(will)e(con)o
+(tain)h(the)h(\014rst)h(Sc)o(heme)179 1312 y(argumen)o(t)c(and)g(the)i
+(second)g(will)d(con)o(tain)i(the)g(second)h(argumen)o(t)e(v)n(alue)g
+(or)h Fm(UNBOUND)e Fr(if)h(omitted.)137 1395 y Fk(\017)21
+b Fm(tc)p 226 1395 V 15 w(subr)p 329 1395 V 15 w(2)p
+366 1395 V 15 w(or)p 425 1395 V 16 w(3)11 b Fr(for)g(primitiv)o(es)e
+(whic)o(h)i(ha)o(v)o(e)g(2)g(or)h(3)f(parameters)g(\(there's)i(no)e
+(primitiv)o(e)e(of)i(this)g(t)o(yp)q(e)179 1445 y(in)f(core)h(in)o
+(terpreter\).)19 b(Of)11 b(course,)h(y)o(ou'll)c(ha)o(v)o(e)i(to)h
+(declare)g(a)f(C)h(function)f(with)g(three)i Fm(SCM)e
+Fr(parameters.)179 1495 y(Apart)k(that,)f(con)o(v)o(en)o(tions)h(are)h
+(the)f(same)f(has)h(b)q(efore.)137 1578 y Fk(\017)21
+b Fm(tc)p 226 1578 V 15 w(lsubr)c Fr(for)h(primitiv)o(es)f(whic)o(h)h
+(ha)o(v)o(e)g(a)g(v)n(ariable)f(n)o(um)o(b)q(er)h(of)g(argumen)o(ts.)30
+b(Actuals)19 b(argumen)o(ts)179 1628 y(are)d(collected)h(in)f(a)g(list)
+f(whic)o(h)h(is)g(giv)o(en)g(as)g(the)g(\014rst)h(argumen)o(t)e(of)h
+(the)g(C)g(primitiv)o(e.)23 b(The)16 b(second)179 1677
+y(argumen)o(t)d(of)g(the)h(C)g(function)g(is)f(an)h(in)o(teger)g(coun)o
+(ting)g(the)g(actual)g(n)o(um)o(b)q(er)f(of)g(argumen)o(ts)g(giv)o(en)h
+(to)179 1727 y(the)g(primitiv)o(e.)i(Hence,)e(the)h(signature)f(of)f
+(the)h(C)f(function)h(whic)o(h)f(implemen)o(t)e(a)i Fm(tc)p
+1557 1727 V 16 w(lsubr)f Fr(m)o(ust)h(b)q(e)270 1802
+y Fm(PRIMITIVE)20 b(function\(SCM)f(arglist,)h(int)i(argcount\);)179
+1885 y Fr(Note)14 b(that)g(all)f(the)h(Sc)o(heme)g(argumen)o(ts)f(are)h
+(ev)n(aluated)g(during)f(the)i(construction)g(of)e(the)h(list)g(whic)o
+(h)179 1935 y(is)g(passed)g(to)g(the)h(C)e(function.)137
+2018 y Fk(\017)21 b Fm(tc)p 226 2018 V 15 w(fsubr)10
+b Fr(is)g(similar)e(to)j Fm(tc)p 624 2018 V 15 w(lsubr)f
+Fr(except)i(that)f(argumen)o(ts)e(are)j(not)e(ev)n(aluated.)17
+b(On)11 b(the)g(C)g(side,)g(y)o(ou)179 2068 y(ha)o(v)o(e)h(to)g
+(declare)h(a)f(function)g(with)f(three)j Fm(SCM)d Fr(parameters:)18
+b(the)12 b(list)g(of)f(\(non)i(ev)n(aluated\))f(argumen)o(ts,)179
+2117 y(the)e(curren)o(t)h(en)o(vironmen)o(t)e(and)h(the)g(length)g(of)f
+(the)i(argumen)o(ts)e(list.)16 b(The)10 b(signature)g(of)g(the)g(C)g
+(function)179 2167 y(whic)o(h)k(implem)o(en)o(t)e(a)h
+Fm(tc)p 583 2167 V 16 w(fsubr)f Fr(m)o(ust)h(b)q(e)270
+2242 y Fm(PRIMITIVE)20 b(function\(SCM)f(arglist,)h(SCM)i(env,)f(int)g
+(argcount\);)179 2325 y Fr(See)15 b Fo(??)d Fr(more)h(details)h(ab)q
+(out)g Fm(tc)p 713 2325 V 15 w(fsubr)p Fr(.)137 2408
+y Fk(\017)21 b Fm(tc)p 226 2408 V 15 w(tkcommand)10 b
+Fr(for)i(primitiv)o(es)f(whic)o(h)h(follo)o(w)e(the)j(Tcl)f(command)e
+(argumen)o(t)h(passing)h(st)o(yle)h(\(i.e.)e Fg(\022)-21
+b(a)14 b(la)179 2458 y Fm(argc/argv)p Fr(\).)k(This)c(is)g(this)g(kind)
+g(of)g(pro)q(cedure)i(that)f(will)e(b)q(e)i(used)g(for)f(to)g(add)g
+(new)h(widgets)g(in)f(the)179 2508 y Fn(STk)g Fr(in)o(terpreter.)20
+b(See)15 b Fo(??)e Fr(and)g([5])g(for)h(more)e(details.)75
+2614 y(T)m(o)h(illustrate)g(ho)o(w)h(to)f(write)h(a)g
+Fm(tc)p 636 2614 V 15 w(lsubr)e Fr(primitiv)o(e,)f(let's)j(ha)o(v)o(e)g
+(a)f(lo)q(ok)g(at)g(the)i(co)q(de,)f(giv)o(en)f(b)q(elo)o(w,)g(of)g
+(the)75 2664 y(function)h(whic)o(h)f(implemen)o(t)e(the)k(Sc)o(heme)f
+(primitiv)o(e)d Fm(vector)p Fr(:)946 2960 y(6)p eop
+%%Page: 7 7
+7 6 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)651
+b(2.3)41 b(Ev)n(aluating)12 b(argumen)o(ts)p 75 51 1763
+2 v 179 195 a Fl(PRIMITIVE)k(STk_vecto)o(r\(S)o(CM)g(arglist,)h(int)h
+(argcount\))179 241 y({)218 286 y(int)g(j;)218 332 y(SCM)g(z)i(=)f
+(STk_makev)o(ect)o(\(ar)o(gc)o(oun)o(t,)d(NULL\);)218
+423 y(for)i(\(j)h(=)h(0;)e(j)i(<)f(argcount;)d(j++,)i(arglist=CD)o(R\()
+o(arg)o(li)o(st\))o(\))f({)257 469 y(VECT\(z\)[j])f(=)j(CAR\(arglis)o
+(t\);)218 515 y(})218 560 y(return)e(z;)179 606 y(})75
+708 y Fr(This)d(function)f(receiv)o(es)j(the)e(v)n(alues)g(passed)h(to)
+f(the)g Fm(vector)f Fr(primitiv)o(es)f(in)h(the)i(list)e(arglist)h
+(\(the)g(length)g(of)75 758 y(this)f(list)g(is)h(stored)g(in)f
+Fm(argcount)p Fr(\).)j(This)e(function)f(uses)i Fm(STk)p
+1072 758 14 2 v 15 w(makevect)c Fr(whic)o(h)j(returns)h(a)e(Sc)o(heme)g
+(v)o(ector.)75 808 y(Its)k(\014rst)g(argumen)o(t)e(is)h(the)h(length)f
+(of)g(the)h(v)o(ector)g(and)f(its)g(second)h(argumen)o(t)e(is)h(the)h
+(initial)e(v)n(alue)g(of)h(the)75 858 y(v)o(ector's)f(elemen)o(ts.)k
+(Next)c(section)g(will)e(sho)o(w)h(ho)o(w)g(to)g(implemen)o(t)e(a)i
+(primitiv)o(e)e(whic)o(h)i(ev)n(aluates)g(itself)g(its)75
+907 y(parameters)g(\(i.e.)k(a)13 b Fm(tc)p 459 907 V
+15 w(fsubr)g Fr(primitiv)o(e.)75 1046 y Fx(2.3)56 b(Ev)m(aluating)17
+b(argumen)n(ts)75 1147 y Fr(In)e(some)f(circumstances)i(it)f(could)g(b)
+q(e)h(useful)f(to)g(add)g(new)h(primitiv)o(es)d(whic)o(h)i(don't)f(ev)n
+(aluate)h(their)h(argu-)75 1196 y(men)o(ts.)22 b(This)15
+b(p)q(ermits)g(to)g(add)g(new)h(con)o(trol)f(structures)j(to)d(the)h
+(in)o(terpreter.)24 b(T)m(o)15 b(illustrate)g(this,)g(w)o(e)h(will)75
+1246 y(add)e(t)o(w)o(o)f(new)h(primitiv)o(es)e(to)i(the)g
+Fn(STk)g Fr(in)o(terpreter:)20 b Fm(when)13 b Fr(and)g
+Fm(unless)p Fr(.)k(As)d(explained)g(in)f(the)h(preceding)75
+1296 y(section,)g(the)g(C)f(functions)h(whic)o(h)f(will)f(implemen)o(t)
+f(those)j(con)o(trol)f(structures)j(m)o(ust)d(b)q(e)h(of)f(t)o(yp)q(e)h
+Fm(tc)p 1705 1296 V 15 w(fsubr)p Fr(.)75 1346 y(A)g Fm(tc)p
+167 1346 V 15 w(fsubr)f Fr(primitiv)o(e,)e(on)j(the)g(C)g(side,)g(is)g
+(giv)o(en)f(three)i(parameters)f(when)h(called:)126 1448
+y(1.)20 b(a)13 b(list)h(of)f(its)h(\(non)g(ev)n(aluated\))g
+(parameters,)126 1529 y(2.)20 b(the)d(lo)q(cal)f(en)o(vironmen)o(t)g
+(when)h(it)g(w)o(as)g(called)f(\(and)h(in)g(whic)o(h)f(ev)n(aluations)g
+(should)h(generally)f(tak)o(e)179 1578 y(place\),)126
+1659 y(3.)k(the)14 b(length)g(of)f(the)i(parameters)f(list.)75
+1761 y(The)e(C)g(function)f(can)h(step)h(through)f(its)g(parameter)f
+(list)h(using)f(the)i(C)e(macros)g Fm(CAR)p Fr(,)g Fm(CDR)g
+Fr(and)h Fm(NULLP)e Fr(\(whic)o(h)75 1811 y(do)16 b(the)g(ob)o(vious)f
+(w)o(ork\))h(and)f(ev)n(aluates)h(elemen)o(ts)g(of)f(this)h(list)f(as)h
+(needed.)25 b(Ev)n(aluation)15 b(of)g(an)g(expression)75
+1861 y(can)i(b)q(e)h(done)f(with)g(the)h Fm(STk)p 558
+1861 V 15 w(eval)e Fr(C)h(function.)27 b Fm(STk)p 978
+1861 V 15 w(eval)16 b Fr(tak)o(es)i(t)o(w)o(o)e(parameters:)25
+b(the)17 b(expression)i(to)75 1911 y(ev)n(aluate)d(and)g(the)h(en)o
+(vironmen)o(t)e(in)h(whic)o(h)h(ev)n(aluation)e(tak)o(es)h(place)h
+(\(the)g Fm(NIL)f Fr(v)n(ariable,)f(b)o(y)h(con)o(v)o(en)o(tion,)75
+1961 y(denotes)f(the)g(Indexglobal)d(en)o(vironmen)o(t\).)75
+2091 y Fo(Note:)48 b(a)15 b(list)f(of)g(argumen)o(ts)f(is)i(alw)o(a)o
+(ys)g(a)g(prop)q(er)f(list.)20 b(Y)l(ou)14 b(don't)h(need)f(to)h(test)f
+(if)g(it)g(is)h(w)o(ell)75 2141 y(formed.)75 2214 y Fr(Hereafter)g(is)f
+(the)h(co)q(de)f(of)g(the)g Fm(when)f Fr(primitiv)o(e.)277
+2305 y Fl(static)k(PRIMITIVE)f(when\(SCM)h(l,)i(SCM)f(env,)g(int)h
+(argcount\))277 2351 y({)316 2396 y(SCM)g(res)f(=)h(UNDEFINED;)316
+2488 y(if)g(\(argcount)d(>)j(1\))g({)355 2533 y(if)g(\(STk_eval\()o
+(CAR)o(\(l)o(\),)d(env\))i(!=)h(Ntruth\))e({)395 2579
+y(for)h(\(l)h(=)g(CDR\(l\);)e(!NULLP\(l\))o(;)g(l)i(=)g(CDR\(l\)\))e({)
+434 2625 y(res)h(=)h(STk_eval\(CA)o(R\()o(l\),)d(env\);)395
+2670 y(})355 2716 y(})316 2762 y(})316 2807 y(return)h(res;)277
+2853 y(})946 2960 y Fr(7)p eop
+%%Page: 8 8
+8 7 bop 75 35 a Fq(2)41 b(ADDING)13 b(NEW)h(PRIMITIVES)765
+b(2.4)40 b(Signaling)12 b(errors)p 75 51 1763 2 v 179
+174 a Fj(#include)j(<stk.h>)179 253 y(static)g(PRIMITIVE)g(when\(SCM)f
+(l,)j(SCM)g(env,)f(int)h(argcount\))179 292 y({)214 332
+y(SCM)g(res)f(=)h(UNDEFINED;)214 410 y(if)g(\(argcount)d(>)k(1\))f({)
+249 450 y(if)g(\(STk_eval\(C)o(AR\()o(l\),)d(env\))i(!=)h(Ntruth\))e({)
+285 489 y(for)h(\(l)h(=)g(CDR\(l\);)f(!NULLP\(l\))o(;)f(l)i(=)g
+(CDR\(l\)\))e({)320 529 y(res)h(=)i(STk_eval\(C)o(AR)o(\(l\))o(,)d
+(env\);)285 568 y(})249 608 y(})214 647 y(})214 687 y(return)h(res;)179
+726 y(})179 805 y(static)f(PRIMITIVE)g(unless\(SC)o(M)g(l,)i(SCM)f
+(env,)g(int)h(argcount\))179 844 y({)214 884 y(SCM)g(res)f(=)h
+(UNDEFINED;)214 963 y(if)g(\(argcount)d(>)k(1\))f({)249
+1002 y(if)g(\(STk_eval\(C)o(AR\()o(l\),)d(env\))i(==)h(Ntruth\))e({)285
+1041 y(for)h(\(l)h(=)g(CDR\(l\);)f(!NULLP\(l\))o(;)f(l)i(=)g
+(CDR\(l\)\))e({)320 1081 y(res)h(=)i(STk_eval\(C)o(AR)o(\(l\))o(,)d
+(env\);)285 1120 y(})249 1160 y(})214 1199 y(})214 1239
+y(return)h(res;)179 1278 y(})179 1357 y(PRIMITIVE)e(STk_init_wh)o(en_)o
+(un)o(les)o(s\(v)o(oid)o(\))179 1396 y({)214 1436 y(add_new_pr)o(imi)o
+(tiv)o(e\(")o(whe)o(n")o(,)138 b(tc_fsubr,)15 b(when\);)214
+1475 y(add_new_pr)o(imi)o(tiv)o(e\(")o(unl)o(es)o(s",)102
+b(tc_fsubr,)15 b(unless\);)214 1515 y(return)h(UNDEFINED)o(;)179
+1554 y(})540 1687 y Fr(Figure)e(2:)k(Source)d(listing)e(of)g(\014le)h
+Fm(when)p 1186 1687 14 2 v 15 w(unless.c)p 75 1720 1763
+2 v 75 1880 a Fr(Some)f(p)q(oin)o(ts)g(to)h(note)g(here:)137
+1987 y Fk(\017)21 b Fm(UNDEFINED)13 b Fr(is)i(an)f(in)o(terpreter)j
+Fg(c)n(onstant)p Fr(.)22 b(It)15 b(serv)o(es)i(to)e(denote)h(the)f
+(notion)f(of)h Fg(\\unsp)n(e)n(ci\014e)n(d)i(r)n(esult")179
+2037 y Fr(of)c Fg(R)256 2022 y Ff(4)268 2037 y Fe(RS)r
+Fr(.)137 2120 y Fk(\017)21 b Fm(Truth)12 b Fr(and)i Fm(Ntruth)e
+Fr(are)i(t)o(w)o(o)g(global)e Fg(c)n(onstants)i Fr(of)f(the)h(in)o
+(terpreter)i(whic)o(h)d(denote)i(resp)q(ectiv)o(ely)g(the)179
+2170 y Fm(#t)e Fr(and)h Fm(#f)f Fr(Sc)o(heme)h(constan)o(ts.)75
+2276 y(Figure)g(2.3)f(sho)o(ws)h(a)g(complete)f(implemen)o(tatio)o(n)e
+(of)j Fm(when)f Fr(and)g Fm(unless)p Fr(.)75 2416 y Fx(2.4)56
+b(Signaling)18 b(errors)75 2516 y Fr(F)m(or)13 b(no)o(w,)g(only)g(one)h
+(function)f(is)h(pro)o(vided)f(to)h(signal)e(errors:)20
+b Fm(STk)p 1160 2516 14 2 v 15 w(err)p Fr(.)d(This)d(function)f(tak)o
+(es)h(t)o(w)o(o)f(param-)75 2566 y(eters:)20 b(a)13 b(C)h(string)g
+(whic)o(h)g(constitutes)i(the)e(b)q(o)q(dy)g(of)g(the)g(message)g(and)g
+(a)f(Sc)o(heme)h(ob)r(ject)h(\(a)f Fm(SCM)f Fr(p)q(oin)o(ter\))75
+2616 y(designating)f(the)i Fg(err)n(one)n(ous)e Fr(ob)r(ject.)19
+b(If)12 b(the)h(second)h(argumen)o(t)e(is)h Fm(NIL)p
+Fr(,)e(it)i(will)e(not)h(b)q(e)i(prin)o(ted.)k(Execution)75
+2666 y(of)12 b(the)h(function)f Fm(STk)p 421 2666 V 16
+w(err)f Fr(nev)o(er)j(returns.)19 b(It)13 b(pro)o(v)o(ok)o(es)f(a)h
+(jump)e(at)h(the)h(start)g(of)f(the)i(top-lev)o(el)e(lo)q(op.)k(Here-)
+75 2716 y(after,)e(is)f(a)h(new)g(implem)o(en)o(tation)d(of)i(the)h
+Fm(when)f Fr(function)h(whic)o(h)f(uses)i Fm(STk)p 1299
+2716 V 15 w(err)e Fr(when)h(giv)o(en)g(an)f(erroneous)75
+2765 y(argumen)o(ts)g(list.)946 2960 y(8)p eop
+%%Page: 9 9
+9 8 bop 75 35 a Fq(3)41 b(V)-5 b(ARIABLES)p 75 51 1763
+2 v 179 180 a Fl(static)17 b(PRIMITIVE)f(when\(SCM)h(l,)i(SCM)f(env,)g
+(int)h(argcount)o(\))179 225 y Fd(f)218 271 y Fl(SCM)f(res)h(=)g
+(UNDEFINED;)218 362 y(switch)e(\(argcount\))f Fd(f)257
+408 y Fl(case)i(0:)39 b(STk_err\(")o(whe)o(n:)16 b(no)j(argument)d
+(list)i(given",)f(NIL\);)257 454 y(case)h(1:)39 b(STk_err\(")o(whe)o
+(n:)16 b(null)i(body",)f(NIL\);)257 499 y(default:)36
+b Fc(/*)19 b(Argument)e(list)h(is)h(well)f(formed.)453
+545 y(*)i(Evaluate)c(each)i(expression)e(of)j(the)f(body)453
+590 y(*/)434 636 y Fl(if)h(\(STk_eval)o(\(C)o(AR\()o(l\))o(,)e(env\))h
+(!=)h(Ntruth\))473 682 y(for)f(\(l)h(=)h(CDR\(l\);)c(!NULLP\(l\);)g(l)j
+(=)h(CDR\(l\)\))512 727 y(res)f(=)g(STk_eval\()o(CAR)o(\(l)o(\),)d
+(env\);)218 773 y Fd(g)218 819 y Fl(return)h(res;)179
+864 y Fd(g)75 1006 y Fp(3)67 b(V)-6 b(ariables)75 1120
+y Fr(This)15 b(section)h(sho)o(ws)f(ho)o(w)g(y)o(ou)g(can)g(access)i(a)
+e(Sc)o(heme)g(v)n(ariable)f(within)g(C)h(co)q(de.)23
+b(It)15 b(also)g(sho)o(ws)g(ho)o(w)g(y)o(ou)75 1170 y(can)e(connect)h
+(a)e(Sc)o(heme)h(and)f(C)h(v)n(ariable)e(suc)o(h)j(that)e(mo)q(difying)
+e(it)i(in)g(Sc)o(heme)h(will)e(mo)q(dify)f(the)k(asso)q(ciated)75
+1220 y(v)n(ariable)f(and)g Fg(vic)n(e)i(versa)p Fr(.)75
+1360 y Fx(3.1)56 b(Sc)n(heme)17 b(Sym)n(b)r(ols)g(and)i(V)-5
+b(ariables)75 1446 y Fo(De\014ning)13 b(a)j(sym)o(b)q(ol:)241
+1496 y Fr(In)o(terning)11 b(a)f(sym)o(b)q(ol)f(in)h(the)h(global)e
+(table)i(of)f(sym)o(b)q(ols)f(is)i(done)g(with)f(the)h
+Fm(STk)p 1483 1496 14 2 v 15 w(intern)f Fr(C)g(function.)241
+1545 y(Since)17 b(this)f(function)g(is)g(often)h(used,)g(y)o(ou)f(can)g
+(use)h(the)g(C)f(macro)f Fm(Intern)g Fr(as)i(a)f(shortcut.)26
+b(The)241 1595 y(result)16 b(of)e(In)o(tern)i(is)f(the)g
+Fm(SCM)g Fr(ob)r(ject)g(whic)o(h)g(denotes)h(the)g(sc)o(heme)f(sym)o(b)
+q(ol)e(asso)q(ciated)j(to)f(the)h(C)241 1645 y(string)e(passed)h(as)f
+(parameter.)k(F)m(or)13 b(example,)f(assigning)h(the)i(list)430
+1726 y Fl('\(green)i(orange)h(red\))241 1811 y Fr(to)c(the)g(C)g(v)n
+(ariable)f Fm(fire)g Fr(can)h(b)q(e)g(done)h(b)o(y)430
+1882 y Fl(SCM)k(fire)f(=)39 b(Cons\(Inte)o(rn\()o("g)o(ree)o(n")o(\),)
+764 1928 y(Cons\(Inte)o(rn\()o("o)o(ran)o(ge")o(\),)862
+1974 y(Cons\(Inte)o(rn\()o("re)o(d")o(\),)16 b(NIL\)\)\);)241
+2045 y Fr(Since)f(this)f(notation)f(is)h(di\016cult)f(to)h(read,)g
+(some)g(macros)f(ha)o(v)o(e)h(b)q(een)h(de\014ned)g(in)f
+Fm(Src/stk.h)e Fr(for)241 2095 y(building)h(list.)k(These)f(macros)d
+(are)h(called)g Fm(LISTx)f Fr(where)i(x)f(is)g(a)f(n)o(um)o(b)q(er)h
+(\(comprised)f(b)q(et)o(w)o(een)j(1)241 2145 y(and)c(9\))g(whic)o(h)h
+(represen)o(t)h(the)f(length)g(of)e(the)i(list)f(to)g(create.)19
+b(Th)o(us,)13 b(the)g(previous)g(example)e(could)241
+2195 y(ha)o(v)o(e)j(b)q(een)h(written)f(as)430 2276 y
+Fl(SCM)19 b(fire)f(=)39 b(LIST3\(Int)o(ern)o(\(")o(gre)o(en)o("\),)16
+b(Intern\("o)o(ran)o(ge")o(\),)g(Intern\("r)o(ed")o(\)\);)75
+2350 y Fo(Reading)e(a)i(v)m(ariable:)241 2400 y Fr(Reading)10
+b(a)g(v)n(ariable)g(in)g(Sc)o(heme)h(corresp)q(onds)h(in)f(fact)f(to)h
+(lo)q(ok)f(at)g(the)h(v)n(alue)f(asso)q(ciated)i(to)e(a)h(sym-)241
+2450 y(b)q(ol.)19 b(The)14 b(v)n(alue)g(asso)q(ciated)h(to)f(a)g(sym)o
+(b)q(ol)f(can)h(b)q(e)h(obtained)f(with)g(the)h Fm(STk)p
+1489 2450 V 15 w(get)p 1570 2450 V 15 w(symbol)p 1717
+2450 V 15 w(value)241 2500 y Fr(C)g(macro.)k(This)c(macro)f(returns)i
+(a)f Fm(SCM)f Fr(ob)r(ject)i(whic)o(h)e(corresp)q(ond)j(to)d(the)i(v)n
+(alue)e(asso)q(ciated)i(to)241 2550 y(the)d(sym)o(b)q(ol)d(whose)j
+(name)e(is)h(equal)g(to)g(the)h(parameter)f(string.)17
+b Fm(STk)p 1347 2550 V 15 w(get)p 1428 2550 V 15 w(symbol)p
+1575 2550 V 15 w(value)11 b Fr(returns)241 2600 y(the)16
+b(sp)q(ecial)g(v)n(alue)f Fm(UNBOUND)f Fr(is)i(this)f(sym)o(b)q(ols)f
+(has)i(no)g(v)n(alue)f(in)g(the)h(global)e(en)o(vironmen)o(t.)22
+b(The)241 2649 y(follo)o(wing)11 b(piece)k(of)e(co)q(de)946
+2960 y(9)p eop
+%%Page: 10 10
+10 9 bop 75 35 a Fq(3)41 b(V)-5 b(ARIABLES)715 b(3.2)41
+b(Connecting)14 b(Sc)o(heme)g(and)f(C)h(v)n(ariables)p
+75 51 1763 2 v 430 180 a Fl({)470 225 y(SCM)k(val)h(=)g(STk_get_s)o
+(ymb)o(ol)o(_va)o(lu)o(e\(")o(foo)o("\))o(;)470 317 y(if)g(\(val)f(==)g
+(UNBOUND\))509 362 y(STk_err\(")o(foo)e(is)j(undefined)o(",)d(NIL\);)
+470 408 y(else)509 454 y(STk_displ)o(ay\()o(va)o(l,)g(UNBOUND\);)430
+499 y(})241 568 y Fr(displa)o(ys)i(the)i(v)n(alue)f(of)f(the)i
+Fm(foo)e Fr(sym)o(b)q(ol,)g(or)h(a)g(message)f(is)h Fm(foo)g
+Fr(is)g(unde\014ned)h(in)e(the)i(global)241 617 y(en)o(vironmen)o(t.)h
+(Note)16 b(the)g(use)g(of)f(the)h Fm(STk)p 939 617 14
+2 v 15 w(display)e Fr(function)h(whic)o(h)g(implemen)o(t)e(the)j(b)q
+(eha)o(vior)241 667 y(of)g(the)g(Sc)o(heme)g Fm(display)f
+Fr(primitiv)o(e.)23 b(This)16 b(call)f(corresp)q(ond)j(to)e(a)f(call)h
+(to)g Fm(display)e Fr(with)i(only)241 717 y(one)c(parameter,)f(since)i
+(second)g(parameter)e(is)h(set)h(to)e Fm(UNBOUND)f Fr(\(output)i(is)g
+(done)g(on)g(the)g(standard)241 767 y(output)i(p)q(ort)g(in)g(this)g
+(case\).)75 843 y Fo(Setting)f(a)j(v)m(ariable:)241 893
+y Fr(Setting)f(a)f(Sc)o(heme)h(v)n(ariable)e(corresp)q(onds)k(to)d
+(asso)q(ciate)h(a)g(new)g(v)n(alue)f(to)g(a)h(sym)o(b)q(ol.)j(The)d(v)n
+(alue)241 942 y(of)e(a)h(sym)o(b)q(ol)e(can)i(b)q(e)h(set)f(with)g(the)
+g Fm(STk)p 897 942 V 15 w(set)p 978 942 V 16 w(symbol)p
+1126 942 V 14 w(value)f Fr(C)h(macro.)i(F)m(or)e(example,)430
+1023 y Fl(STk_set_sym)o(bo)o(l_v)o(al)o(ue\()o("ba)o(r")o(,)j
+(STk_makei)o(nt)o(ege)o(r\()o(3L\))o(\);)241 1107 y Fr(sets)f(the)g(v)n
+(alue)e(of)g(the)i Fm(bar)e Fr(sym)o(b)q(ol)f(to)i(the)g(in)o(teger)h
+(3.)21 b(Note)15 b(that)g(y)o(ou)f(can)i(set)f(a)g(sym)o(b)q(ol)e(in)i
+(C)241 1157 y(without)f(using)f(a)h Fm(define)e Fr(form)g(as)i(it)g(is)
+g(necessary)i(in)d(Sc)o(heme.)75 1296 y Fx(3.2)56 b(Connecting)18
+b(Sc)n(heme)f(and)i(C)h(v)m(ariables)75 1396 y Fr(When)g(building)f(a)g
+(sp)q(ecialized)i(in)o(terpreter,)i(it)c(could)h(b)q(e)h(useful)f(to)g
+(ha)o(v)o(e)f(a)h(v)n(ariable)f(y)o(ou)g(can)i(access)75
+1446 y(b)q(oth)e(in)g(Sc)o(heme)g(an)g(in)g(C.)f(Mo)q(difying)g(suc)o
+(h)i(a)f(v)n(ariable)f(in)h(C)g(m)o(ust)f(mo)q(dify)f(the)j(Sc)o(heme)f
+(asso)q(ciated)75 1496 y(v)n(ariable)c(and,)h(symmetrically)l(,)e(mo)q
+(difying)f(it)i(in)h(Sc)o(heme)g(m)o(ust)f(mo)q(dify)e(the)k(corresp)q
+(onding)g(C)f(v)n(ariable.)75 1546 y(One)21 b(w)o(a)o(y)f(to)g(do)g
+(this)g(connection)h(consists)g(to)f(create)i(a)e(sp)q(ecial)h(Sc)o
+(heme)f(v)n(ariable)f(whose)i(con)o(ten)o(t)g(is)75 1596
+y(read/written)g(b)o(y)g(a)f(sp)q(ecial)h(getter/setter.)40
+b(De\014nition)20 b(of)g(suc)o(h)h(a)g(v)n(ariable,)f(is)h(done)f(b)o
+(y)h(calling)e(the)75 1645 y(function)14 b Fm(STk)p 307
+1645 V 15 w(define)p 454 1645 V 14 w(C)p 490 1645 V 16
+w(variable)p Fr(.)i(The)e(C)g(protot)o(yp)q(e)g(for)g(this)g(function)g
+(is)277 1739 y Fl(void)k(STk_defin)o(e_C)o(_va)o(ri)o(abl)o(e\()o(cha)o
+(r)e(*var,)806 1784 y(SCM)38 b(\(*getter\)\(c)o(ha)o(r)17
+b(*var\),)806 1830 y(void)h(\(*setter\)\(c)o(ha)o(r)f(*var,)g(SCM)i
+(value\)\);)75 1923 y Fr(The)f(follo)o(wing)e(piece)j(of)e(co)q(de)i
+(sho)o(ws)f(ho)o(w)g(w)o(e)g(can)g(connect)h(the)g(Sc)o(heme)f(v)n
+(ariable)f Fm(*errno*)f Fr(to)i(the)h(C)75 1973 y(v)n(ariable)13
+b Fm(errno)p Fr(:)277 2067 y Fl(static)k(SCM)i(get_errno)o(\(c)o(har)d
+(*s\))277 2112 y({)316 2158 y(return)h(STk_makeint)o(eg)o(er\()o(\(l)o
+(ong)o(\))f(errno\);)277 2204 y(})277 2300 y(static)h(void)h
+(set_errno\()o(cha)o(r)e(*s,)j(SCM)f(value\))277 2346
+y({)316 2391 y(long)g(n)h(=)h(STk_integ)o(er)o(_va)o(lu)o(e_n)o(o_)o
+(ove)o(rfl)o(ow)o(\(va)o(lu)o(e\);)316 2483 y(if)f(\(n)g(==)g
+(LONG_MIN\))d(Err\("sett)o(in)o(g)h(*errno*:)f(bad)j(integer",)d
+(value\);)316 2528 y(errno)i(=)h(n;)277 2574 y(})277
+2670 y({)316 2716 y(...)316 2762 y(STk_define)o(_C)o(_va)o(ria)o(bl)o
+(e\(")o(*e)o(rrn)o(o*)o(",)d(get_errno,)g(set_errno\))o(;)316
+2807 y(...)277 2853 y(})935 2960 y Fr(10)p eop
+%%Page: 11 11
+11 10 bop 75 35 a Fq(5)41 b(ADDING)13 b(NEW)h(TYPES)p
+75 51 1763 2 v 75 195 a Fr(After)d(this)f(call)g(to)g
+Fm(STk)p 446 195 14 2 v 15 w(define)p 593 195 V 15 w(C)p
+630 195 V 15 w(variable)p Fr(,)f(reading)h(\()p Fg(r)n(esp)p
+Fr(.)17 b(writing\))9 b(the)i(v)n(alue)f(of)g(the)h Fm(*errno*)e
+Fr(Sc)o(heme)75 245 y(v)n(ariable)k(calls)g(the)i Fm(get)p
+464 245 V 15 w(errno)e Fr(\()p Fg(r)n(esp)p Fr(.)k Fm(set)p
+786 245 V 15 w(errno)p Fr(\))c(C)h(function.)75 406 y
+Fp(4)67 b(Calling)24 b(Sc)n(heme)e(from)g(C)75 520 y
+Fr(Sometimes,)11 b(it)j(could)f(b)q(e)i(necessary)h(to)d(execute)j
+(some)d(Sc)o(heme)h(co)q(de)h(from)d(a)h(C)h(function.)k(If)13
+b(the)i(Sc)o(heme)75 570 y(function)20 b(y)o(ou)g(ha)o(v)o(e)g(to)h
+(call)e(is)h(a)h(primitiv)o(e,)e(it)h(is)g(preferred)j(to)d(call)f
+(directly)i(the)g(C)f(function)h(whic)o(h)75 620 y(implemen)o(t)13
+b(it.)23 b(T)m(o)14 b(kno)o(w)h(the)i(name)d(of)h(the)h(C)g(function)f
+(whic)o(h)g(implemen)o(t)e(a)j(Sc)o(heme)f(primitiv)o(e,)e(y)o(ou'll)75
+670 y(ha)o(v)o(e)18 b(to)g(lo)q(ok)f(in)h(the)h(C)f(\014le)g
+Fm(primitive_)-22 b(c)16 b Fr(whic)o(h)j(con)o(tains)f(the)h(list)e(of)
+h(all)f(the)i(primitiv)o(es)d(of)i(the)h(core)75 720
+y(in)o(terpreter.)28 b(If)16 b(the)i(Sc)o(heme)e(co)q(de)i(y)o(ou)e(w)o
+(an)o(t)g(to)h(execute)h(is)f(not)f(a)h(call)e(to)i(a)f(primitiv)o(e,)f
+(it)h(is)h(generally)75 769 y(easier)f(to)f(put)h(y)o(our)f(co)q(de)h
+(in)e(a)h(C)h(string)f(and)g(call)f(the)i(C)f(function)g
+Fm(STk)p 1275 769 V 15 w(eval)p 1378 769 V 15 w(C)p 1415
+769 V 16 w(string)p Fr(.)21 b(This)15 b(function)75 819
+y(tak)o(es)g(t)o(w)o(o)f(parameters:)19 b(the)c(string)f(to)g(ev)n
+(aluate)g(and)h(the)g(en)o(vironmen)o(t)e(in)h(whic)o(h)g(ev)n
+(aluation)f(m)o(ust)g(tak)o(e)75 869 y(place.)k(As)12
+b(for)f Fm(STk)p 385 869 V 15 w(eval)p Fr(,)g(a)g Fm(NIL)f
+Fr(v)n(alue)h(for)g(the)h(en)o(vironmen)o(t)e(denotes)i(the)g(global)e
+(en)o(vironmen)o(t.)16 b(Supp)q(ose,)75 919 y(for)c(instance,)h(that)f
+(y)o(ou)f(ha)o(v)o(e)h(already)g(written)h(in)e(Sc)o(heme)h(the)h
+Fm(fact)e Fr(pro)q(cedure;)j(ev)n(aluating)d(the)i(factorial)75
+969 y(of)g(10)h(can)g(b)q(e)g(done)g(in)g(C)g(with:)277
+1073 y Fl(STk_eval_)o(str)o(in)o(g\(")o(\(fa)o(ct)i(10\)",)i(NIL\);)75
+1182 y Fr(This)c(call)f(returns)i(a)f(p)q(oin)o(ter)g(on)g(a)f(Sc)o
+(heme)h(ob)r(ject)h(\(a)e Fm(SCM)g Fr(p)q(oin)o(ter\))i(con)o(taining)d
+(the)j(result)g(of)e(the)h(ev)n(alu-)75 1232 y(ation.)22
+b(If)15 b(an)g(error)h(o)q(ccurs)h(during)e(ev)n(aluation.)21
+b(It)16 b(is)f(signaled)g(to)g(the)h(user)h(and)e(the)h(constan)o(t)g
+(NULL)g(is)75 1282 y(returned)g(b)o(y)d Fm(STk)p 370
+1282 V 15 w(eval)p 473 1282 V 15 w(string)p Fr(.)75 1442
+y Fp(5)67 b(Adding)23 b(new)f(t)n(yp)r(es)75 1557 y Fr(This)14
+b(sections)g(discusses)i(ho)o(w)e(to)f(add)h(a)f(new)h(t)o(yp)q(e)h(to)
+e(the)i Fn(STk)f Fr(in)o(terpreter.)19 b(In)o(terested)d(reader)f(can)f
+(\014nd)75 1607 y(some)e(new)g(t)o(yp)q(es)i(de\014nitions)e(in)g(the)h
+Fm(Extensions)d Fr(directory)j(of)f(STk.)18 b Fn(STklos)p
+Fr(,)13 b(in)f(particular,)g(is)g(written)75 1657 y(as)17
+b(an)g(extended)i(t)o(yp)q(e)f(whose)g(de\014nition)e(is)h(dynamically)
+e(done)i(as)g(so)q(on)h(as)f Fg(obje)n(cts)g Fr(are)h(needed.)29
+b(Hash)75 1706 y(tables,)14 b(pro)q(cesses)i(and)e(so)q(c)o(k)o(ets)h
+(are)f(other)h(examples)e(of)g(extended)j(t)o(yp)q(es.)75
+1846 y Fx(5.1)56 b(De\014nition)17 b(of)i(a)g(Sc)n(heme)e(extended)g(t)
+n(yp)r(e)75 1947 y Fr(De\014ning)h(a)f(sc)o(heme)h(extended)i(t)o(yp)q
+(e)e(is)g(a)g(little)f(bit)g(more)g(complicated)g(than)h(de\014ning)g
+(new)g(primitiv)o(es)75 1996 y(since)c(it)e(implies)f(to)i(tak)o(e)g
+(in)o(to)f(accoun)o(t)h(ho)o(w)g(this)g(new)g(t)o(yp)q(e)g(in)o(teract)
+h(with)f(the)g(GC)f(\(Garbage)h(Collector\).)75 2046
+y(Note)f(that)g(un)o(til)g(no)o(w)f(w)o(e)h(ha)o(v)o(e)g(not)g
+(discussed)i(ab)q(out)d(GC)h(problems)f(since)i(the)f(in)o(terpreter)i
+(is)e(able)g(to)f(hide)75 2096 y(y)o(ou)i(it,)g(as)h(far)g(as)g(y)o(ou)
+f(don't)h(de\014ne)h(new)f(t)o(yp)q(es.)75 2169 y(T)m(o)e(illustrate)g
+(the)h(discussion,)g(w)o(e)g(will)e(sho)o(w)i(ho)o(w)f(to)g(add)g(the)i
+Fg(stack)e Fr(t)o(yp)q(e)h(to)g(the)g Fn(STk)g Fr(in)o(terpreter)h(in)e
+(this)75 2219 y(section.)19 b(The)14 b(complete)f(co)q(de)i(for)f(this)
+g(section)g(can)g(b)q(e)h(found)e(in)h(app)q(endix.)75
+2351 y Fo(5.1.1)48 b(Ho)o(w)16 b(the)f(GC)h(w)o(orks)75
+2451 y Fr(Before)c(sho)o(wing)e(ho)o(w)g(to)h(de\014ne)g(a)g(new)g(Sc)o
+(heme)f(t)o(yp)q(e,)i(it)e(is)h(imp)q(ortan)o(t)e(to)h(understand)i(ho)
+o(w)e(the)i(GC)e(w)o(orks.)75 2501 y(First)16 b(a)e(certain)i(n)o(um)o
+(b)q(er)f(of)f(cells)i(are)f(created)846 2486 y Ff(1)867
+2501 y Fr(.)21 b(When)16 b(the)g(in)o(terpreter)h(needs)f(a)f(new)h
+(cell,)f(in)g(the)g Fm(cons)75 2551 y Fr(primitiv)o(e)c(for)i
+(instance,)h(it)f(will)f(tak)o(e)h(an)g(un)o(used)h(cell)f(in)g(the)h
+(p)q(o)q(ol)f(of)g(pre-allo)q(cated)g(cells.)18 b(If)13
+b(no)g(more)g(cell)75 2600 y(is)h(a)o(v)n(ailable)d(in)i(this)h(area,)g
+(the)g(GC)f(is)h(called.)k(Its)c(w)o(orks)g(is)f(divided)g(in)h(t)o(w)o
+(o)f(phases.)19 b(First)14 b(phase)g(consists)75 2650
+y(to)i(mark)f(all)g(the)i(cells)g(whic)o(h)f(are)h(curren)o(tly)g(in)f
+(use.)26 b(Finding)15 b(the)i(cells)g(whic)o(h)f(are)h(in)f(used)h(is)f
+(done)h(b)o(y)75 2700 y(marking)12 b(recursiv)o(ely)j(all)d(the)j(ob)r
+(ject)f(whic)o(h)g(are)g(accessible)i(from)p 75 2735
+705 2 v 121 2762 a Fb(1)139 2773 y Fa(b)o(y)11 b(default)e(20)i(000;)g
+(Use)g(the)g(-cells)g(option)e(of)j(the)e(in)o(terpreter)f(to)i(c)o
+(hange)f(this)g(default)935 2960 y Fr(11)p eop
+%%Page: 12 12
+12 11 bop 75 35 a Fq(5)41 b(ADDING)13 b(NEW)h(TYPES)483
+b(5.1)41 b(De\014nition)13 b(of)g(a)h(Sc)o(heme)g(extended)h(t)o(yp)q
+(e)p 75 51 1763 2 v 137 195 a Fk(\017)21 b Fr(the)14
+b(Sc)o(heme)g(sym)o(b)q(ol)e(table,)137 278 y Fk(\017)21
+b Fr(the)14 b(registers)i(used)e(b)o(y)g(the)h(program,)137
+361 y Fk(\017)21 b Fr(the)14 b(C)g(stac)o(k,)137 444
+y Fk(\017)21 b Fr(global)12 b(v)n(ariables)h(of)g(t)o(yp)q(e)i
+Fm(SCM)p Fr(.)75 551 y(Marking)g(phase)i(is)f(recursiv)o(e;)i(that)f
+(means)e(that)h(if)f(a)h(v)n(ariable)f(denotes)j(a)e(list,)f(all)g(the)
+i(elemen)o(ts)f(of)f(this)75 601 y(list)d(ha)o(v)o(e)h(to)g(b)q(e)g
+(mark)o(ed)f(,)h(to)f(a)o(v)o(oid)g(that)h(the)g(GC)g(frees)h(some)e
+(of)g(them.)17 b(Of)c(course,)h(the)f(recursiv)o(e)i(call)d(for)75
+650 y(marking)f(the)i(comp)q(onen)o(t)g(of)f(a)h(cell)g(dep)q(ends)h
+(on)f(the)h(cell's)f(t)o(yp)q(e.)18 b(This)13 b(\014rst)h(phase)f(is)g
+(called)g(the)h Fg(marking)75 700 y(phase)p Fr(.)75 774
+y(The)i(second)h(phase)f(of)f(the)h(GC)f(is)g(called)g(the)h
+Fg(swe)n(eping)h(phase)p Fr(.)23 b(It)16 b(is)f(relativ)o(ely)g
+(simple:)20 b(eac)o(h)c(allo)q(cated)75 823 y(cells)e(whose)g(mark)e
+(bit)i(is)f(unset)i(is)e(placed)h(in)g(the)g(list)f(of)g(free)i(cells,)
+e(since)i(nob)q(o)q(dy)e(p)q(oin)o(ts)h(an)o(ymore)e(on)h(it.)75
+897 y(If)f(no)f(cells)h(can)h(b)q(e)f(obtained)g(when)g(the)h(sw)o
+(eeping)f(phase)h(terminates,)e(the)i(p)q(o)q(ol)e(of)h(pre-allo)q
+(cated)g(cells)g(will)75 947 y(b)q(e)j(extended)g(b)o(y)f(a)f(new)h
+(bank)g(of)f(cells.)75 1078 y Fo(5.1.2)48 b(The)15 b(Extended)g(t)o(yp)
+q(e)g(data)g(structure)75 1179 y Fr(De\014ning)c(a)g(new)h(Sc)o(heme)g
+(t)o(yp)q(e)g(consists)g(mainly)d(to)i(de\014ne)i(a)e(new)h
+Fm(STk)p 1226 1179 14 2 v 15 w(extended)p 1417 1179 V
+14 w(scheme)p 1563 1179 V 15 w(type)e Fr(structure)75
+1228 y(and)k(\014ll)f(in)g(this)h(\014elds.)19 b(This)13
+b(structure)j(is)e(de\014ned)h(as:)277 1315 y Fl(typedef)i(struct)g({)
+316 1361 y(char)h(*type_name)o(;)316 1407 y(int)38 b(flags;)316
+1452 y(void)18 b(\(*gc_mark_)o(fct)o(\)\()o(SCM)e(x\);)316
+1498 y(void)i(\(*gc_sweep)o(_fc)o(t\))o(\(SC)o(M)e(x\);)316
+1544 y(SCM)38 b(\(*apply_fc)o(t\)\()o(SC)o(M)17 b(x,)h(SCM)h(args,)f
+(SCM)g(env\);)316 1589 y(void)g(\(*display_)o(fct)o(\)\()o(SCM)e(x,)j
+(SCM)f(port,)g(int)g(mode\);)277 1635 y(})h(STk_extend)o(ed)o(_sc)o
+(hem)o(e_)o(typ)o(e;)75 1733 y Fr(Eac)o(h)14 b(\014eld)g(of)f(this)h
+(structure)i(is)e(de\014ned)h(b)q(elo)o(w)75 1820 y Fo(t)o(yp)q(e)p
+171 1820 15 2 v 16 w(name:)241 1870 y Fr(is)h(a)g(string.)25
+b(It)16 b(denotes)h(the)g(external)g(name)e(of)g(the)i(new)g(t)o(yp)q
+(e.)25 b(The)16 b(purp)q(ose)i(of)d(this)h(\014eld)h(is)241
+1920 y(mainly)11 b(for)j(debugging.)75 2003 y Fo(\015ags:)60
+b Fr(is)14 b(the)g(union)g(of)f(binary)g(constan)o(ts.)19
+b(F)m(or)14 b(no)o(w,)f(only)g(t)o(w)o(o)g(constan)o(ts)i(are)f
+(de\014ned:)291 2086 y Fk(\017)20 b Fm(EXT)p 401 2086
+14 2 v 15 w(ISPROC)11 b Fr(m)o(ust)g(b)q(e)i(set)g(if)e(the)h(new)h(t)o
+(yp)q(e)f(is)g(a)g(pro)q(cedure)i(\(i.e.)j(if)11 b(the)i(Sc)o(heme)f
+(pro)q(cedure)332 2136 y(m)o(ust)h(answ)o(er)i(#t)e(when)i(called)e
+(with)h(this)g(ob)r(ject\).)291 2202 y Fk(\017)20 b Fm(EXT)p
+401 2202 V 15 w(EVALPARAM)d Fr(m)o(ust)g(b)q(e)i(set)g(if)e(the)i(new)g
+(t)o(yp)q(e)g(m)o(ust)e(ev)n(aluates)h(its)h(parameters)f(when)332
+2252 y(used)d(as)f(a)g(function.)75 2318 y Fo(gc)p 123
+2318 15 2 v 17 w(mark)p 248 2318 V 17 w(fct:)241 2368
+y Fr(is)9 b(a)h(p)q(oin)o(ter)g(to)f(the)h(function)f(whic)o(h)h(marks)
+e(ob)r(jects)j(of)e(the)h(extended)h(t)o(yp)q(e.)17 b(The)10
+b(co)q(de)h(asso)q(ciated)241 2418 y(to)j(this)h(function)f(is)h
+(simple.)j(It)d(consists)g(to)g(call)e(on)i(eac)o(h)g(\014eld)f(whose)h
+(t)o(yp)q(e)g(is)g Fm(SCM)f Fr(in)g(the)h(t)o(yp)q(e)241
+2468 y(asso)q(ciated)i(data.)24 b(This)15 b(function)h(is)g
+(automatically)d(called)i(b)o(y)h(the)h(in)o(terpreter)g(when)g(it)e
+(scans)241 2517 y(all)d(the)h(used)h(cells)g(in)e(the)i(GC)e(marking)f
+(phase.)18 b(One)c(example)e(of)g Fm(gc)p 1380 2517 14
+2 v 16 w(mark)p 1484 2517 V 14 w(fct)h Fr(is)g(giv)o(en)f(b)q(elo)o(w.)
+75 2593 y Fo(gc)p 123 2593 15 2 v 17 w(sw)o(eep)p 263
+2593 V 17 w(fct:)241 2643 y Fr(is)j(a)f(p)q(oin)o(ter)h(to)f(the)h
+(function)g(whic)o(h)f(frees)i(the)f(resources)i(allo)q(cated)d(for)h
+(represen)o(ting)h(the)f(new)241 2693 y(t)o(yp)q(e)i(of)e(ob)r(ject.)25
+b(This)16 b(function)g(is)g(automatically)d(called)i(b)o(y)h(the)h(GC)e
+(in)h(the)g(sw)o(eeping)h(phase)241 2742 y(for)d(eac)o(h)g(cell)g(whic)
+o(h)g(is)f(un)o(used.)935 2960 y(12)p eop
+%%Page: 13 13
+13 12 bop 75 35 a Fq(5)41 b(ADDING)13 b(NEW)h(TYPES)483
+b(5.1)41 b(De\014nition)13 b(of)g(a)h(Sc)o(heme)g(extended)h(t)o(yp)q
+(e)p 75 51 1763 2 v 75 182 a Fo(apply)p 194 182 15 2
+v 16 w(function:)241 232 y Fr(is)d(a)f(p)q(oin)o(ter)h(to)g(a)f
+(function)h(whic)o(h)g(is)f(called)h(when)g(applying)f(this)g(ob)r
+(ject)i(to)f(a)f(list)g(of)h(argumen)o(ts.)241 282 y(This)k(function)g
+(can)h(only)f(b)q(e)h(called)f(if)f(the)i(bit)f Fm(EXT)p
+1105 282 14 2 v 15 w(ISPROC)g Fr(is)g(set.)26 b(The)17
+b(argumen)o(ts)f(giv)o(en)g(to)241 332 y(this)f(function)g(are)g(ev)n
+(aluated)g(if)f(the)h Fm(EXT)p 924 332 V 15 w(EVALPARAM)e
+Fr(bit)i(is)g(set.)22 b(Finally)m(,)13 b(the)i(en)o(vironmen)o(t)f(in)
+241 382 y(whic)o(h)g(the)h(call)e(is)h(done)h(is)e(passed)j(as)e(the)h
+(third)f(argumen)o(t)f(of)g(the)i Fm(apply)p 1469 382
+V 15 w(function)p Fr(.)i(It)d(serv)o(es)241 431 y(principally)f(when)h
+(the)g Fm(EXT)p 696 431 V 16 w(EVALPARAM)d Fr(bit)j(is)g(unset.)241
+498 y(Set)19 b(the)f Fm(apply)p 505 498 V 15 w(function)e
+Fr(to)i(NULL)g(to)g(use)h(the)f(in)o(terpreter)i(default)e(apply)f
+(function.)30 b(The)241 548 y(default)14 b(function)g(raises)h(an)f
+(error)h(when)g(called.)k(Y)m(ou)14 b(can)g(use)h(the)g(default)f
+(function)g(when)h(the)241 598 y(new)f(t)o(yp)q(e)h(y)o(ou)e(de\014ne)i
+(is)f(not)g(a)f(function.)75 672 y Fo(displa)o(y)p 226
+672 15 2 v 15 w(fct:)241 722 y Fr(is)f(a)h(p)q(oin)o(ter)f(to)h(a)f(C)g
+(function)g(whic)o(h)h(displa)o(ys)f(ob)r(jects)h(of)f(the)h(new)g(t)o
+(yp)q(e.)18 b(The)13 b(displa)o(y)f(function)241 771
+y(has)i(three)i(parameters.)i(The)d(\014rst)g(parameter)e(is)h(the)h
+(ob)r(ject)g(to)f(prin)o(t.)k(The)d(second)g(parameter)241
+821 y(is)g(the)g(p)q(ort)h(to)f(whic)o(h)f(the)i(ob)r(ject)g(m)o(ust)e
+(b)q(e)h(prin)o(ted.)22 b(Prin)o(ting)14 b(an)h(ob)r(ject)h(m)o(ust)e
+(b)q(e)i(done)f(with)241 871 y(one)f(of)f(the)i(follo)o(wing)c
+(functions)291 954 y Fk(\017)20 b Fm(int)i(STk)p 489
+954 14 2 v 15 w(getc\(FILE)e(*f\);)291 1020 y Fk(\017)g
+Fm(int)i(STk)p 489 1020 V 15 w(ungetc\(int)d(c,)j(FILE)f(*f\);)291
+1087 y Fk(\017)f Fm(int)i(STk)p 489 1087 V 15 w(putc\(int)e(c,)h(FILE)g
+(*f\);)291 1153 y Fk(\017)f Fm(int)i(STk)p 489 1153 V
+15 w(puts\(char)e(*s,)h(FILE)g(*f\);)291 1220 y Fk(\017)f
+Fm(int)i(STk)p 489 1220 V 15 w(eof\(FILE)e(*f\);)241
+1303 y Fr(Those)d(functions)f(are)g(extensions)h(of)e(their)i(C)f
+(equiv)n(alen)o(t:)21 b(they)c(are)f(able)g(to)g(handle)g(the)g
+Fn(STk)241 1353 y Fr(string)e(p)q(orts.)241 1419 y(The)d(third)f
+(parameter)f(of)h(the)g Fm(display)p 885 1419 V 14 w(fct)g
+Fr(is)g(a)f(mo)q(de)g(constan)o(t)i(whic)o(h)f(can)g(tak)o(e)g(three)h
+(di\013eren)o(t)241 1469 y(v)n(alues.)291 1552 y Fk(\017)20
+b Fm(DSP)p 401 1552 V 15 w(MODE)c Fr(is)h(used)h(when)f(the)g(ob)r
+(ject)h(m)o(ust)e(b)q(e)h Fg(displaye)n(d)g Fr(in)g(a)f(h)o(uman)f
+(readable)i(format)332 1602 y(\(as)d(with)g Fm(display)p
+Fr(\);)291 1668 y Fk(\017)20 b Fm(WRT)p 401 1668 V 15
+w(MODE)12 b Fr(is)g(used)i(when)f(the)g(ob)r(ject)g(m)o(ust)e(b)q(e)i
+Fg(written)f Fr(in)g(a)g(mac)o(hine)f(readable)i(format)d(\(as)332
+1718 y(with)k Fm(write)p Fr(\);)291 1784 y Fk(\017)20
+b Fm(TK)p 379 1784 V 16 w(MODE)14 b Fr(is)h(used)h(when)g(the)g(ob)r
+(ject)g(m)o(ust)f(b)q(e)h(passed)g(to)f(a)g(Tk)g(command.)20
+b(This)15 b(p)q(ermits)332 1834 y(to)e(customize)f(the)h(w)o(a)o(y)f(a)
+g(Sc)o(heme)h(ob)r(ject)g(is)g(con)o(v)o(erted)g(to)g(a)f(string)h
+(when)g(discussing)g(with)332 1884 y(the)i(Tk)f(library)m(.)241
+2008 y Fo(Note:)44 b Fm(display)p 557 2008 V 14 w(fct)17
+b Fr(can)i(b)q(e)f(set)i(to)e(NULL.)f(In)h(this)h(case)g(the)g(in)o
+(terpreter)h(uses)f(a)f(default)241 2058 y(prin)o(ting)10
+b(format.)16 b(This)10 b(default)h(format)e(prin)o(t)i(the)h(name)e(of)
+g(the)i(t)o(yp)q(e)f(\(found)g(in)g(the)g Fm(type)p 1722
+2058 V 15 w(name)p Fr(\))241 2108 y(follo)o(w)o(ed)h(b)o(y)i(an)g
+(hexadecimal)e(address.)75 2240 y Fo(5.1.3)48 b(Registerin)o(g)13
+b(the)i(new)h(t)o(yp)q(e)75 2340 y Fr(Once)g(a)f Fm(STk)p
+287 2340 V 15 w(extended)p 478 2340 V 14 w(scheme)p 624
+2340 V 14 w(type)g Fr(structure)i(is)e(de\014ned,)g(the)h(new)g(t)o(yp)
+q(e)f(can)g(b)q(e)h(registered)h(in)o(to)d(the)75 2390
+y(in)o(terpreter.)21 b(Registering)14 b(a)g(new)h(t)o(yp)q(e)g(is)f
+(done)g(b)o(y)g(the)h Fm(STk)p 1072 2390 V 15 w(add)p
+1153 2390 V 15 w(new)p 1234 2390 V 15 w(type)f Fr(function.)19
+b(The)14 b(protot)o(yp)q(e)h(of)75 2439 y(this)f(function)g(is)f(giv)o
+(en)h(b)q(elo)o(w)277 2544 y Fl(int)k(STk_add_ne)o(w_t)o(ype)o(\(S)o
+(Tk_)o(ex)o(ten)o(de)o(d_s)o(che)o(me)o(_ty)o(pe)e(*p\))75
+2653 y Fr(The)e(in)o(teger)h(returned)h(b)o(y)d(this)h(function)g(is)g
+(the)h(\(unique\))f(k)o(ey)g(asso)q(ciated)h(to)f(the)g(new)h(t)o(yp)q
+(e.)k(This)14 b(k)o(ey)g(is)75 2703 y(stored)h(in)e(eac)o(h)i(cell)f
+(of)f(the)h(new)h(t)o(yp)q(e.)75 2776 y(W)m(e)g(ha)o(v)o(e)h(no)o(w)g
+(enough)g(material)d(to)j(de\014ne)h(the)g Fm(STk)p 963
+2776 V 15 w(extended)p 1154 2776 V 14 w(scheme)p 1300
+2776 V 14 w(type)e Fr(for)h(the)g(new)g(t)o(yp)q(e)h
+Fg(stack)p Fr(.)75 2826 y(This)d(declaration)f(can)h(b)q(e)h(done)f(in)
+g(the)g(follo)o(wing)d(w)o(a)o(y:)935 2960 y(13)p eop
+%%Page: 14 14
+14 13 bop 75 35 a Fq(5)41 b(ADDING)13 b(NEW)h(TYPES)483
+b(5.1)41 b(De\014nition)13 b(of)g(a)h(Sc)o(heme)g(extended)h(t)o(yp)q
+(e)p 75 51 1763 2 v 277 180 a Fl(static)i(void)h(mark_stack)o(\(SC)o(M)
+e(p\);)277 225 y(static)h(void)h(free_stack)o(\(SC)o(M)e(p\);)277
+271 y(static)h(void)h(display_st)o(ack)o(\(S)o(CM)e(s,)j(SCM)g(port,)e
+(int)i(mode\);)277 317 y(static)e(int)i(tc_stack;)277
+408 y(static)e(STk_extend)o(ed_)o(sc)o(hem)o(e_)o(typ)o(e)f(stack_type)
+g(=)j({)316 454 y("stack",)272 b(/*)18 b(name)g(*/)316
+499 y(0,)392 b(/*)18 b(is_procp)f(*/)316 545 y(mark_stack)o(,)213
+b(/*)18 b(gc_mark_fct)e(*/)316 591 y(free_stack)o(,)213
+b(/*)18 b(gc_sweep_fc)o(t)e(*/)316 636 y(NULL,)332 b(/*)18
+b(apply_fct)f(*/)316 682 y(display_st)o(ac)o(k)174 b(/*)18
+b(display_fct)e(*/)277 728 y(};)75 824 y Fr(This)e(de\014nition)g
+(tells)g(the)g(in)o(terpreter)i(that)e(the)h(new)f(t)o(yp)q(e)h(is)f
+(not)g(a)f(pro)q(cedure)j(\(\014eld)f Fm(is)p 1559 824
+14 2 v 15 w(procp)e Fr(is)h(set)h(to)75 874 y(0\).)23
+b(Consequen)o(tly)m(,)16 b(the)g Fm(apply)p 601 874 V
+14 w(fct)f Fr(is)h(set)g(to)g(NULL.)f(Note)h(that)g(a)f(displa)o(y)g
+(function)g(is)g(pro)o(vided)h(here.)75 924 y(It)e(p)q(ermits)f(to)h
+(used)h(a)e(customized)h(prin)o(ting)f(function.)75 1054
+y Fo(5.1.4)48 b(New)16 b(t)o(yp)q(e)g(instances)d(creation)75
+1154 y Fr(Creation)c(of)g(a)g(new)h(instance)g(of)f(the)h(extended)h(t)
+o(yp)q(e)f(necessitates)h(the)f(de\014nition)f(of)g(a)g(constructor)i
+(function.)75 1204 y(This)19 b(constructor)h(ob)q(eys)f(alw)o(a)o(ys)f
+(the)h(same)f(framew)o(ork.)31 b(First)19 b(y)o(ou)f(ha)o(v)o(e)g(to)h
+(create)h(a)e(new)h(cell)g(with)75 1254 y(the)h Fm(NEWCELL)e
+Fr(macro.)34 b(This)19 b(macro)g(has)g(t)o(w)o(o)g(parameters,)i(a)e
+Fm(SCM)g Fr(ob)r(ject)h(whic)o(h)g(will)e(p)q(oin)o(t)h(the)h(new)75
+1304 y(cell)g(and)f(the)i(t)o(yp)q(e)f(of)f(the)i(cell)f(to)f(create.)
+37 b(The)21 b(second)g(argumen)o(t)d(is)i(generally)g(equal)f(to)h(the)
+g(v)n(alue)75 1353 y(returned)i(b)o(y)e Fm(STk)p 383
+1353 V 15 w(add)p 464 1353 V 15 w(new)p 545 1353 V 15
+w(type)p Fr(.)36 b(Once)22 b(the)f(cell)f(is)g(created,)j(w)o(e)d(ha)o
+(v)o(e)g(generally)g(to)g(\(dynamically\))75 1403 y(allo)q(cate)13
+b(a)f(C)h(structure)j(whic)o(h)c(con)o(tains)h(the)h(informations)d
+(whic)o(h)i(are)g(necessary)i(to)e(implemen)o(t)d(the)k(new)75
+1453 y(t)o(yp)q(e.)k(Dynamic)12 b(allo)q(cation)f(can)j(b)q(e)g(done)g
+(with)f(the)h(function)f Fm(STk)p 1176 1453 V 15 w(must)p
+1279 1453 V 15 w(malloc)p Fr(.)j(The)e(area)g(returned)h(b)o(y)75
+1503 y Fm(STk)p 144 1503 V 15 w(must)p 247 1503 V 15
+w(malloc)c Fr(m)o(ust)h(b)q(e)i(stored)f(in)g(the)g Fm(data)f
+Fr(\014eld)h(of)f(the)i(new)f(cell.)18 b(This)12 b(\014eld)h(can)g(b)q
+(e)h(accessed)h(with)75 1553 y(the)f Fm(EXTDATA)f Fr(macro.)75
+1626 y(Let's)20 b(go)f(bac)o(k)g(to)h(the)g(stac)o(k)g(example.)33
+b(W)m(e)19 b(can)h(no)o(w)f(de\014ne)i(a)e(new)h(primitiv)o(e)d
+(function)i(to)h(mak)o(e)e(a)75 1676 y(new)g(stac)o(k.)30
+b(Pro)o(vided)18 b(that)f(the)i(global)d(v)n(ariable)g
+Fm(tc)p 979 1676 V 16 w(stack)g Fr(already)h(con)o(tains)h(the)g(v)n
+(alue)f(returned)j(b)o(y)75 1726 y Fm(STk)p 144 1726
+V 15 w(add)p 225 1726 V 15 w(new)p 306 1726 V 15 w(type)p
+Fr(,)13 b(w)o(e)h(can)g(write)277 1821 y Fl(#define)j(STACKP\(x\))134
+b(\(TYPEP\(x)o(,)17 b(tc_stack\))o(\))277 1867 y(#define)g(NSTACKP\(x)o
+(\))115 b(\(NTYPEP\()o(x,)16 b(tc_stack\)\))277 1913
+y(#define)h(STACK\(x\))154 b(\(\(Stack)16 b(*\))j(EXTDATA\(x\))o(\))277
+2004 y(typedef)e(struct)g({)316 2050 y(int)i(len;)316
+2095 y(SCM)g(values;)277 2141 y(})g(Stack;)277 2232 y(static)e
+(PRIMITIVE)f(make_stack)o(\(vo)o(id)o(\))277 2278 y({)316
+2324 y(SCM)j(z;)316 2415 y(NEWCELL\(z,)d(tc_stack\))o(;)316
+2461 y(EXTDATA\(z\))134 b(=)19 b(STk_must_)o(ma)o(llo)o(c\(s)o(iz)o
+(eof)o(\(S)o(tac)o(k\)\))o(;)316 2506 y(STACK\(z\)->)o(le)o(n)76
+b(=)19 b(0;)316 2552 y(STACK\(z\)->)o(va)o(lue)o(s)e(=)i(NIL;)316
+2598 y(return)e(z;)277 2643 y(})75 2736 y Fr(Here,)h(the)g
+Fm(Stack)e Fr(structure)j(is)e(used)g(to)g(represen)o(t)i(a)e(stac)o
+(k.)27 b(This)17 b(structure)i(con)o(tains)e(t)o(w)o(o)g(\014elds:)24
+b Fm(len)75 2785 y Fr(and)14 b Fm(values)p Fr(.)19 b(Since)c(the)g
+(latter)g(\014eld)f(is)h(a)f Fm(SCM)g Fr(ob)r(ject,)h(it)f(m)o(ust)f(b)
+q(e)j(recursiv)o(ely)f(mark)o(ed)e(when)i(a)g(stac)o(k)g(is)75
+2835 y(mark)o(ed.)i(W)m(e)c(can)h(no)o(w)g(de\014ne)h(the)f(utilit)o(y)
+f(function)g(necessary)j(for)e(the)g(GC:)935 2960 y(14)p
+eop
+%%Page: 15 15
+15 14 bop 75 35 a Fq(6)41 b(LO)o(ADING)14 b(AN)g(EXTENSION)493
+b(5.2)41 b(De\014nition)13 b(of)g(a)h(C)g(extended)h(t)o(yp)q(e)p
+75 51 1763 2 v 277 180 a Fl(static)i(void)h(mark_stack)o(\(SC)o(M)e
+(p\))277 225 y({)316 271 y(STk_gc_mar)o(k\()o(STA)o(CK\()o(p\))o(->v)o
+(al)o(ues)o(\);)277 317 y(})277 408 y(static)h(void)h(free_stack)o
+(\(SC)o(M)e(p\))277 454 y({)316 499 y(free\(EXTDA)o(TA)o(\(p\))o(\);)
+277 545 y(})75 638 y Fr(T)m(o)h(terminate)g(with)h(this)g(example,)f(w)
+o(e)h(giv)o(e)f(b)q(elo)o(w)h(the)h(co)q(de)f(of)g(the)g(primitiv)o(e)e
+Fm(stack)p 1569 638 14 2 v 14 w(push!)p Fr(.)29 b(Other)75
+688 y(primitiv)o(e)13 b(are)i(built)f(in)h(the)h(same)e(fashion)g(and)h
+(will)e(not)i(b)q(e)h(describ)q(ed)h(here.)22 b(A)15
+b(complete)g(listing)e(of)i(the)75 737 y(stac)o(k)f(implemen)o(tation)d
+(is)i(giv)o(en)h(in)f(app)q(endix.)277 832 y Fl(static)k(PRIMITIVE)f
+(stack_push)o(\(SC)o(M)g(s,)j(SCM)g(val\))277 878 y({)316
+924 y(Stack)f(*sp;)316 1015 y(if)h(\(NSTACKP\()o(s\)\))d(STk_err\(")o
+(sta)o(ck)o(-pu)o(sh:)g(bad)i(stack",)f(s\);)316 1106
+y(sp)176 b(=)39 b(STACK\(s\);)316 1152 y(sp->len)56 b(+=)19
+b(1;)316 1198 y(sp->values)d(=)j(Cons\(val,)d(sp->values)o(\);)316
+1289 y(return)h(UNDEFINED;)277 1335 y(})75 1458 y Fx(5.2)56
+b(De\014nition)17 b(of)i(a)g(C)g(extended)e(t)n(yp)r(e)75
+1558 y Fr(The)e Fn(STk)f Fr(in)o(terpreter)i(p)q(ermits)e(to)g(handle)g
+(C)h(p)q(oin)o(ters)g(as)f(\014rst)h(class)g(ob)r(jects.)20
+b([for)13 b(eg:)19 b(\014nd)c(an)f(example)75 1608 y(to)g(explain)f(ho)
+o(w)g(it)h(w)o(orks:)k(gdbm?])75 1748 y Fx(5.3)56 b(Ab)r(out)18
+b(memory:)j(Common)c(pitfalls)75 1873 y Fp(6)67 b(Loading)23
+b(an)f(extension)75 1988 y Fn(STk)c Fr(supp)q(ort)h(dynamic)e(loading)f
+(for)i(sev)o(eral)g(arc)o(hitectures/systems.)33 b(The)18
+b(w)o(a)o(y)f(to)h(pro)o(vide)g(dynamic)75 2038 y(loadable)13
+b(mo)q(dules)f(is)i(di\013eren)o(t)g(from)e(one)i(system)g(to)f
+(another)h(and)g(y)o(ou)f(will)f(ha)o(v)o(e)i(to)f(adapt)h(what)f(is)h
+(said)75 2087 y(here)g(to)f(the)g(con)o(v)o(en)o(tions)g(used)h(b)o(y)f
+(y)o(our)f(system,)h(arc)o(hitecture)i(or)d(compiler.)17
+b(Static)c(loading)e(can)i(b)q(e)h(used)75 2137 y(for)i(systems)h(whic)
+o(h)f(do)q(esn')h(supp)q(ort)g(dynamic)d(loading)h(\(suc)o(h)j(as)e
+(Ultrix\))g(or)g(for)g(whic)o(h)h(the)g(in)o(terpreter)75
+2187 y(do)q(esn't)d(supp)q(ort)h(y)o(et)f(dynamic)e(loading.)75
+2319 y Fo(Note:)46 b Fn(STk)p Fr(\))13 b(also)e(supp)q(orts)j(the)f
+(DLD)f(Gn)o(u)g(pac)o(k)n(age)g(for)g(dynamic)f(loading.)k(DlD)d(is)g
+(a)g(library)g(pac)o(k)n(age)75 2368 y(of)f(C)h(functions)g(that)f(p)q
+(erforms)h("dynamic)d(link)i(editing".)17 b(Since)12
+b(the)g(time)e(to)i(load)f(dynamically)d(a)k(mo)q(dule)75
+2418 y(with)f(this)h(pac)o(k)n(age)f(is)h(rather)g(long,)f(it)g(is)h
+(preferred)h(to)f(a)o(v)o(oid)e(to)h(use)i(it.)k(Ho)o(w)o(ev)o(er,)12
+b(this)f(pac)o(k)n(age)h(is)f(the)h(only)75 2468 y(w)o(a)o(y)h(to)g
+(pro)o(vide)h(dynamic)d(loading)h(on)i(Lin)o(ux)f(systems)g(whic)o(h)h
+(don't)f(supp)q(ort)h(the)g(ELF)g(format)e(\(v)o(ersions)75
+2518 y(1.0)i(to)i(1.2\).)21 b(Since)16 b(the)g(ELF)g(format)d(is)i(b)q
+(ecoming)f(the)i(new)g(standard)g(for)f(Lin)o(ux,)g(this)g(pac)o(k)n
+(age)g(will)f(b)q(e)75 2568 y(no)g(more)f(necessary)i(in)f(the)g
+(future.)75 2641 y(The)g(last)g(v)o(ersion)g(of)f(the)i(DLD)e(pac)o(k)n
+(age)g(can)i(b)q(e)f(found)g(at)f(sev)o(eral)i(places:)137
+2748 y Fk(\017)21 b Fm(ftp-swiss.ai.mit)o(.edu:)o(pub/s)o(cm)137
+2831 y Fk(\017)g Fm(prep.ai.mit.edu:)o(/pub/)o(gnu/j)o(acal)935
+2960 y Fr(15)p eop
+%%Page: 16 16
+16 15 bop 75 35 a Fq(7)41 b(ADDING)13 b(NEW)h(TK)g(WIDGETS)p
+75 51 1763 2 v 137 195 a Fk(\017)21 b Fm(ftp.cs.indiana.e)o(du:/p)o
+(ub/sc)o(heme-)o(repos)o(itory)o(/imp)o(/SCM-)o(suppo)o(rt)75
+298 y Fr(W)m(e)16 b(supp)q(ose)h(here)g(that)f(w)o(e)h(w)o(an)o(t)e(to)
+h(include)g(the)h Fm(posix)e Fr(mo)q(dule)g(de\014ned)i(in)e
+(section2.1)h(in)o(to)f(the)i Fn(STk)75 348 y Fr(in)o(terpreter.)75
+442 y Fo(Dynamic)e(Loading:)241 491 y Fr(If)i(the)g(system)g(running)f
+Fn(STk)i Fr(supp)q(orts)g(dynamic)d(loading)g(\(and)i(if)f(the)i(in)o
+(terpreter)g(has)f(b)q(een)241 541 y(compiled)8 b(with)h(dynamic)f
+(loading)g(supp)q(ort\),)j(y)o(ou)e(compile)f(y)o(our)h(source)i
+(\014le)e(\014le)h(to)f(mak)o(e)f(a)i Fg(shar)n(e)n(d)241
+591 y(obje)n(ct)15 b Fr(\014le.)22 b(On)15 b(SunOs)h(4.1,)e(for)h
+(instance,)h(this)f(can)h(b)q(e)f(done)h(b)o(y)f(compiling)d(the)k(mo)q
+(dule)e(with)241 641 y(the)h Fg(pic)g(c)n(ompilation)g(option)f
+Fr(\(pic)h(stands)g(for)e Fg(p)n(osition)i(indep)n(endent)i(c)n(o)n(de)
+p Fr(\).)i(Once)c(compilation)241 691 y(is)f(done,)f(y)o(ou)h(can)g
+(pre-load)g(y)o(our)f(\014le)h(with)g(the)g(line)430
+769 y Fl(ld)19 b(-assert)e(pure-text)f(-o)j(time.so)e(time.o)241
+853 y Fr(This)j(will)e(pro)q(duce)i(a)g(\014le)f(name)g
+Fm(posix.so)f Fr(whic)o(h)h(can)h(b)q(e)g(loaded)f(with)h(the)g
+Fm(load)f Fr(Sc)o(heme)241 903 y(primitiv)o(e)12 b(pro)q(cedure.)23
+b(The)15 b Fm(load)e Fr(primitiv)o(e)g(recognizes)j(that)f(this)f
+(\014le)h(is)f(a)h(shared)g(ob)r(ject)h(and)241 952 y(calls)11
+b(a)g(function)f(whose)i(name)e(the)i(concatenation)f(of)f(the)i
+(string)f Fm(STk)p 1378 952 14 2 v 15 w(init)p 1481 952
+V 26 w Fr(and)g(the)h(base)g(name)241 1002 y(of)i(\014le)g(loaded.)19
+b(Th)o(us,)14 b(loading)f(the)h(\014le)h Fm(posix.so)d
+Fr(impies)h(the)i(call)e(of)h(a)g(pimitiv)o(e)e(whose)j(name)241
+1052 y(is)f Fm(STk)p 352 1052 V 15 w(init)p 455 1052
+V 15 w(posix)p Fr(.)241 1117 y(Lo)q(ok)f(at)h Fm(Src/Extensions)d
+Fr(directory)k(to)e(see)j(some)d(examples)g(of)g(shared)i(ob)r(ject)f
+(construction.)241 1240 y Fo(Note:)41 b Fr(when)21 b(the)g
+Fn(STk)f Fr(is)g(built,)g(the)g Fm(Makefile)f Fr(in)g(the)i
+Fm(Src/Extensions)c Fr(is)j(customized)241 1290 y(for)c(y)o(our)h
+(system/compiler.)24 b(A)16 b(simple)f(w)o(a)o(y)h(to)h(determine)f
+(the)h(options)g(y)o(ou)f(ha)o(v)o(e)g(to)g(use)i(for)241
+1340 y(compiling)13 b(y)o(our)i(program)f(consist)i(to)f(run)h(the)g
+Fm(make)e Fr(command)f(on)i(one)h(of)e(the)j(\014le)e(presen)o(t)i(in)
+241 1390 y(this)d(directory)m(.)k(F)m(or)c(instance,)g(issuing)g(the)g
+(follo)o(wing)d(command)430 1468 y Fl(make)19 b(-n)f(posix.so)241
+1552 y Fr(on)c(a)f(Lin)o(ux)g(b)q(o)o(x)h(using)g(the)g(DLD)f(pac)o(k)n
+(age)h(will)e(output)i(the)h(follo)o(wing)c(lines:)430
+1621 y Fl(gcc)39 b(-g)18 b(-DSTk_CODE)e(-DUSE_DLD)g(-DLINUX)56
+b(-DHAVE_UNIS)o(TD)o(_H=)o(1)16 b(\\)587 1667 y(-DHAVE_SIG)o(ACT)o(ION)
+o(=1)g(-I../Tk)h(-I../Tcl)f(-I../Src)h(-I../Mp)g(\\)587
+1712 y(-I/usr/X11)o(R6/)o(inc)o(lu)o(de)36 b(-c)19 b(posix.c)e(-o)h
+(posix.o)430 1758 y(ld)h(-r)g(-o)g(posix.so)d(posix.o)75
+1831 y Fo(Static)e(loading:)241 1880 y Fr(A)g(C)f(mo)q(dule)f(whic)o(h)
+h(de\014ne)i(a)e(new)h(t)o(yp)q(e)g(can)g(also)f(b)q(e)h(statically)e
+(lo)q(ded)i(in)f(the)h(in)o(terepreter.)20 b(T)m(o)241
+1930 y(load)15 b(y)o(our)h(mo)q(dule,)f(y)o(ou)g(ha)o(v)o(e)h(to)g(mo)q
+(dify)e(the)i Fm(Src/Makefile)e Fr(or)i Fm(Snow/Makefile)p
+Fr(.)22 b(Once)17 b(y)o(o)241 1980 y(ha)o(v)o(e)g(added)g(y)o(our)g
+(extension)h(ob)r(ject)g(in)f(the)g Fm(USER)p 1096 1980
+V 15 w(OBJ)g Fr(v)n(ariable)f(,)h(y)o(ou)g(m)o(ust)f(mo)q(dify)f(the)i
+(\014le)241 2030 y Fm(Src/userinit.c)e Fr(to)j(add)g(y)o(ou)f
+(initialization)e(\(and)j(ev)o(en)o(tually)g(clean)o(up\))g(co)q(de.)31
+b(The)18 b(call)g(to)241 2080 y(y)o(our)13 b(initialization)e(function)
+j(m)o(ust)e(b)q(e)i(done)g(in)f(the)h Fm(STk)p 1185 2080
+V 15 w(user)p 1288 2080 V 15 w(init)f Fr(C)h(function.)j(Once)e(this)f
+(is)241 2129 y(done,)g(y)o(ou)f(can)h(run)g(the)h Fm(make)e
+Fr(command)e(again)i(to)h(build)f(the)h(extended)i(in)o(terpreter.)75
+2290 y Fp(7)67 b(Adding)23 b(new)f(Tk)h(widgets)75 2412
+y Fx(7.1)56 b(Widget)17 b(compilation)75 2513 y Fr(Adding)g(a)f(new)i
+(Tk)f(widget)g(to)g(the)g Fn(STk)h Fr(in)o(terpreter)h(is)e(generally)f
+(a)h(simple)f Fg(hack)p Fr(.)28 b(Most)17 b(of)g(the)g(time,)75
+2562 y(extension)i(widgets)f(written)h(for)f(Tcl/Tk)g(can)g(b)q(e)h
+(added)f(to)g(the)h Fn(STk)g Fr(in)o(terpreter)h(without)d(mo)q
+(difying)75 2612 y(the)g(source)g(co)q(de)g(of)f(the)h(widget.)25
+b(Ho)o(w)o(ev)o(er,)16 b(there)i(is)e(no)g(unique)g(metho)q(d)g(to)g
+(add)g(a)g(widget)g(to)g(the)h(Tcl)75 2662 y(in)o(terpreter;)e
+(consequen)o(tly)m(,)e(what)g(is)g(giv)o(en)g(b)q(elo)o(w)g(is)g(a)g
+(set)h(of)f(hin)o(ts)g(to)g(widget)g(in)o(tegration)f(rather)j(than)e
+(a)75 2712 y Fg(always)i(working)g(r)n(e)n(cip)n(e)p
+Fr(.)k(T)m(o)13 b(illustrate)i(this)f(section,)h(w)o(e)f(will)f(see)j
+(ho)o(w)e(w)o(e)h(can)f(add)g(the)h Fg(fsc)n(ale)f Fr(widget)h(\(a)75
+2762 y(\015oating-p)q(oin)o(t)c(scale)h(widget)g(a)o(v)n(ailable)e(on)i
+(the)h(Tcl/Tk)f(rep)q(ository)g(in)g(the)h Fm(tkFScale-?.?.tar.)o(gz)c
+Fr(\014le\))1807 2747 y Ff(2)1826 2762 y Fr(.)p 75 2797
+705 2 v 121 2823 a Fb(2)139 2835 y Fa(This)i(widget)g(is)g(no)o(w)h(in)
+o(tegrated)c(in)k(the)e(standard)g(Tk4.0;)g(it)i(is)f(pro)o(vided)e(as)
+j(an)f(extension)e(widget)h(with)i(Tk3.6.)935 2960 y
+Fr(16)p eop
+%%Page: 17 17
+17 16 bop 75 35 a Fq(7)41 b(ADDING)13 b(NEW)h(TK)g(WIDGETS)753
+b(7.2)41 b(Widget)13 b(linking)p 75 51 1763 2 v 75 195
+a Fr(Generally)m(,)j(the)i(co)q(de)g(of)e(a)h(Tcl/Tk)f(extension)i
+(widget)e(can)i(b)q(e)f(divided)g(in)f(t)o(w)o(o)h(parts:)24
+b(the)18 b(co)q(de)g(whic)o(h)75 245 y(implemen)o(t)12
+b(widget's)i(b)q(eha)o(vior)g(and)h(the)g(extension)g(initialization)d
+(co)q(de.)21 b(Extension)15 b(initialization)d(co)q(de,)75
+295 y(in)f(Tcl/Tk,)g(m)o(ust)g(b)q(e)h(placed)f(in)h(the)g(pro)q
+(cedure)h Fm(Tcl)p 933 295 14 2 v 15 w(AppInit)d Fr(whic)o(h)h(is)h(lo)
+q(cated)g(in)f(the)h(\014le)f Fm(tkAppInit.c)p Fr(.)75
+345 y(If)17 b(the)h(extension)f(pac)o(k)n(age)g(adds)g(a)g(lot)g(of)f
+(widgets,)i(it)f(generally)g(de\014nes)h(a)f(function)g(to)g(do)g(all)f
+(the)i(ini-)75 394 y(tializations.)h(On)d(the)f(other)g(hand,)g(if)f
+(the)h(extension)h(only)e(de\014nes)i(a)f(single)f(widget,)h(the)g
+(extension)h(co)q(de)75 444 y(generally)f(consists)i(to)f(call)e(the)j
+(C)e(function)h Fm(Tcl)p 891 444 V 15 w(CreateCommand)d
+Fr(for)i(eac)o(h)h(new)g(widget)g(de\014ned)h(in)e(the)75
+494 y(extension.)26 b Fm(Tcl)p 351 494 V 15 w(CreateCommand)13
+b Fr(is)j(the)h(Tcl)f(standard)h(w)o(a)o(y)f(to)g(add)g(a)g(new)g
+(command.)23 b(This)16 b(function)75 544 y(also)c(exists)i(in)e(the)i
+Fn(STk)f Fr(in)o(terpreter;)i(it)d(creates)j(a)d(new)i(Tk)e(command)e
+(ob)r(ject)k([3)o(].)j(The)d(protot)o(yp)q(e)f(of)f(this)75
+594 y(function)i(is:)277 681 y Fl(void)k(Tcl_Creat)o(eCo)o(mma)o(nd)o
+(\(Tc)o(l_)o(Int)o(er)o(p)f(*interp,)728 726 y(char)h(*cmdName,)728
+772 y(Tcl_CmdPr)o(oc)e(*proc,)728 818 y(ClientDat)o(a)h(clientDat)o(a,)
+728 863 y(Tcl_CmdDe)o(let)o(ePr)o(oc)f(*deletePro)o(c\))o(\);)75
+958 y Fr(F)m(or)d Fn(STk)p Fr(,)137 1064 y Fk(\017)21
+b Fr(the)14 b Fm(interp)f Fr(is)h(alw)o(a)o(ys)e(the)j(global)d(v)n
+(ariable)h Fm(Stk)p 988 1064 V 15 w(main)p 1091 1064
+V 15 w(interp)137 1147 y Fk(\017)21 b Fm(cmdName)12 b
+Fr(is)i(the)g(name)f(of)g(the)i(widget)f(in)f(the)i(Sc)o(heme)e(w)o
+(orld.)137 1230 y Fk(\017)21 b Fm(proc)13 b Fr(is)h(the)g(name)f(of)g
+(the)h(C)g(function)g(whic)o(h)g(implem)o(en)o(t)e(the)i
+Fg(Tk)h(c)n(ommand)137 1313 y Fk(\017)21 b Fm(clientData)14
+b Fr(are)j(informations)d(whic)o(h)i(are)h(asso)q(ciated)g(to)f(the)h
+(widget)f(co)q(de.)26 b(F)m(or)16 b(a)g(new)h(widget,)179
+1363 y Fm(clientData)12 b Fr(can)i(generally)f(set)i(to)f(the)g(result)
+h(of)368 1444 y Fl(Tk_MainWin)o(dow)o(\(S)o(tk_)o(ma)o(in_)o(int)o(er)o
+(p\);)137 1529 y Fk(\017)21 b Fm(deleteProc)11 b Fr(is)j(a)f(function)g
+(whic)o(h)h(is)f(called)g(when)i(the)f(widget)f(is)h(destro)o(y)o(ed.)
+19 b(Y)m(ou)13 b(generally)g(don't)179 1579 y(need)i(to)e(c)o(hange)i
+(the)f(v)n(alue)f(of)h(this)g(parameter)f(\(whic)o(h)h(is)g(often)g
+(set)g(to)g Fm(NULL)p Fr(\).)75 1686 y(The)21 b(usual)f(w)o(a)o(y)g(to)
+h(in)o(tegrate)g(this)g(initialization)d(co)q(de)j(in)f(a)h(Tcl)f(in)o
+(terpreter)j(consists)e(to)g(patc)o(h)g(the)75 1736 y
+Fm(tkAppInit.c)14 b Fr(\014le)j(to)f(add)h(the)g(call)e(to)i(the)g
+(initialization)d(\(or)i(the)i Fm(Tcl)p 1276 1736 V 15
+w(CreateCommand)p Fr(\))c(function.)25 b(T)m(o)75 1785
+y(add)12 b(an)g(extension)h(written)g(for)f(Tcl/Tk)g(to)g
+Fn(STk)p Fr(,)h(all)e(that)h(is)h(needed)h(consists)f(to)f(adapt)g(the)
+h(initialization)75 1835 y(co)q(de)j(for)f Fn(STk)p Fr(.)23
+b(F)m(or)15 b(example,)f(the)i Fm(fscale)f Fr(widget)g(initialization)e
+(co)q(de)j(adds)f(the)h(follo)o(wing)d(call)i(in)g(the)75
+1885 y(b)q(o)q(dy)f(of)f(the)i Fm(Tcl)p 368 1885 V 15
+w(AppInit)d Fr(function:)277 1981 y Fl(Tcl_Creat)o(eCo)o(mm)o(and)o
+(\(in)o(te)o(rp,)k("fscale",)g(Tk_FScale)o(Cmd)o(,)630
+2027 y(\(ClientDa)o(ta\))g(main,)630 2072 y(\(void)i(\(*\)\(\)\))f
+(NULL\);)75 2167 y Fr(F)m(or)c Fn(STk)p Fr(,)h(this)g(call)f(can)h(b)q
+(e)h(written)277 2262 y Fl(Tcl_Creat)o(eCo)o(mm)o(and)o(\(ST)o(k_)o
+(mai)o(n_)o(int)o(er)o(p,)h("fscale",)g(Tk_FScaleCm)o(d,)630
+2308 y(\(ClientDa)o(ta\))g(Tk_MainWi)o(ndo)o(w\()o(STk)o(_ma)o(in)o
+(_in)o(te)o(rp\))o(,)630 2354 y(\(void)i(\(*\)\(\)\))f(NULL\);)75
+2449 y Fr(This)d(call)f(m)o(ust)g(executed)j(b)q(efore)e(trying)g(to)f
+(create)j(a)d(new)i Fm(fscale)d Fr(widget.)75 2589 y
+Fx(7.2)56 b(Widget)17 b(linking)75 2689 y Fr(The)12 b(cleaner)h(w)o(a)o
+(y)e(to)g(add)h(a)f(new)h(widget)g(to)g Fn(STk)g Fr(consists)g(to)g
+(de\014ne)h(a)e(sp)q(ecial)h(C)g(mo)q(dule)e(for)h(this)h(widget.)75
+2739 y(De\014ning)i(the)h(widget)f(in)g(a)g(C)g(mo)q(dule)f(allo)o(ws)g
+(us)i(to)f(mak)o(e)f(the)i(new)f(widget)h(dynamically)c(loadable.)18
+b(The)75 2788 y(co)q(de)d(for)e(making)f(the)i Fm(fscale)f
+Fr(widget)h(dynamically)c(loadable)j(could)h(b)q(e:)935
+2960 y(17)p eop
+%%Page: 18 18
+18 17 bop 75 35 a Fq(9)41 b(EMBEDDING)14 b(THE)g(STK)h(INTERPRETER)p
+75 51 1763 2 v 277 180 a Fl(/*)k(Contents)d(of)j(the)g(file)f(fscale.c)
+e(*/)277 225 y(#ifndef)h(USE_TK)277 271 y(#define)g(USE_TK)277
+317 y(#endif)277 409 y(#include)f(<stk.h>)277 454 y(/*)296
+500 y(*include)h(the)h(widget)g(source)f(code.)h(Ugly)g(but)g(this)g
+(avoid)g(to)h(have)f(two)296 546 y(*)i(source)d(files)h(to)h(link)296
+591 y(*/)277 637 y(#include)d("tkFScale.c)o(")277 732
+y(PRIMITIVE)g(STk_init_f)o(sc)o(ale)o(\(v)o(oid)o(\))277
+778 y({)316 823 y(Tcl_Create)o(Co)o(mma)o(nd\()o(ST)o(k_m)o(ai)o(n_i)o
+(nt)o(erp)o(,)669 869 y("fscale",)669 915 y(Tk_FScaleC)o(md)o(,)669
+960 y(\(ClientDat)o(a\))g(Tk_MainWin)o(do)o(w\(S)o(Tk_)o(ma)o(in_)o(in)
+o(ter)o(p\),)669 1006 y(\(void)i(\(*\)\(\)\))f(NULL\);)277
+1052 y(})75 1187 y Fp(8)67 b(Extending)24 b(the)f(in)n(terpreter)h
+(with)g(C++)75 1301 y Fr([for)13 b(eg)h(:)k(Iden)o(tify)c(the)g
+(problems])75 1462 y Fp(9)67 b(Em)n(b)r(edding)24 b(the)f(STk)g(in)n
+(terpreter)75 1577 y Fr([for)13 b(eg:)18 b(This)c(parts)g(need)h(some)e
+(w)o(ork)h(in)f(the)i(in)o(terpreter])935 2960 y(18)p
+eop
+%%Page: 19 19
+19 18 bop 75 35 a Fq(9)41 b(EMBEDDING)14 b(THE)g(STK)h(INTERPRETER)p
+75 51 1763 2 v 75 195 a Fp(App)r(endix)75 263 y Fr(Hereafter)g(is)f
+(the)h(complete)e(co)q(de)i(for)e(the)i(stac)o(k)f(t)o(yp)q(e)g
+(discussed)i(in)d(5.1)75 336 y Fj(/*)93 375 y(*)93 415
+y(*)k(s)g(t)g(a)h(c)f(k)35 b(.)17 b(c)h(--)e(Implementati)o(on)e(of)j
+(the)g(extended)d(type)j(Stack)93 454 y(*)93 494 y(*/)75
+573 y(#include)e(<stk.h>)75 651 y(static)g(void)i(mark_stac)o(k\(S)o
+(CM)d(p\);)75 691 y(static)h(void)i(free_stac)o(k\(S)o(CM)d(p\);)75
+730 y(static)h(void)i(display_s)o(tac)o(k\(S)o(CM)d(s,)j(SCM)g(port,)f
+(int)g(mode\);)75 770 y(static)f(int)i(tc_stack;)75 849
+y(static)e(STk_extended)o(_s)o(che)o(me_)o(typ)o(e)g(stack_typ)o(e)g(=)
+i({)110 888 y("stack",/*)d(name)j(*/)110 928 y(0,/*)f(is_procp)f(*/)110
+967 y(mark_stack,)o(/*)f(gc_mark_fct)g(*/)110 1006 y(free_stack,)o(/*)g
+(gc_sweep_fc)o(t)h(*/)110 1046 y(NULL,/*)g(apply_fct)g(*/)110
+1085 y(display_sta)o(ck)f(/*)j(display_fct)d(*/)75 1125
+y(};)75 1204 y(#define)h(STACKP\(x\))g(\(TYPEP\(x,)f(tc_stack\)\))75
+1243 y(#define)h(NSTACKP\(x\))f(\(NTYPEP\(x,)g(tc_stack\)\))75
+1282 y(#define)h(STACK\(x\))g(\(\(Stack)g(*\))i(EXTDATA\(x\))o(\))75
+1361 y(typedef)e(struct)h({)110 1401 y(int)h(len;)110
+1440 y(SCM)g(values;)75 1480 y(})g(Stack;)75 1558 y(static)e(void)i
+(mark_stac)o(k\(S)o(CM)d(p\))75 1598 y({)110 1637 y(STk_gc_mark)o(\(ST)
+o(ACK)o(\(p)o(\)->)o(val)o(ues)o(\);)75 1677 y(})75 1756
+y(static)h(void)i(free_stac)o(k\(S)o(CM)d(p\))75 1795
+y({)110 1835 y(free\(EXTDAT)o(A\(p)o(\)\);)75 1874 y(})75
+1953 y(static)h(void)i(display_s)o(tac)o(k\(S)o(CM)d(s,)j(SCM)g(port,)f
+(int)g(mode\))75 1992 y({)110 2032 y(char)g(buffer[100];)110
+2071 y(if)h(\(mode)f(==)h(DSP_MODE\))d({)146 2111 y(/*)i(A)i(verbose)d
+(display)g(*/)146 2150 y(if)h(\(STACK\(s\)->l)o(en)o(\))f({)181
+2189 y(sprintf\(bu)o(ffe)o(r,)f("Stack)i(length)f(=)i(\045d\\nValues)d
+(=)k(",)f(STACK\(s\)-)o(>le)o(n\);)181 2229 y(Puts\(buffe)o(r,)d
+(PORT_FILE\(p)o(ort)o(\)\))o(;)181 2268 y(STk_displa)o(y\(S)o(TA)o
+(CK\()o(s\)-)o(>va)o(lue)o(s,)g(port\);)146 2308 y(})146
+2347 y(else)181 2387 y(Puts\("Stac)o(k)h(is)h(empty",)g(PORT_FILE)o
+(\(po)o(rt\))o(\);)110 2426 y(})110 2465 y(else)g({)i(/*)f(WRT_MODE)d
+(or)j(TK_MODE)f(*/)146 2505 y(sprintf\(b)o(uff)o(er,)e("#<stack)h
+(\(length=\045)o(d\))f(\045ld>",)i(STACK\(s\)->)o(len)o(,)e(s\);)146
+2544 y(Puts\(buff)o(er,)g(PORT_FILE\()o(por)o(t\)\))o(;)110
+2584 y(})75 2623 y(})75 2702 y(static)h(PRIMITIVE)g(make_stack)o(\(vo)o
+(id\))75 2742 y({)110 2781 y(SCM)i(z;)935 2960 y Fr(19)p
+eop
+%%Page: 20 20
+20 19 bop 75 35 a Fq(9)41 b(EMBEDDING)14 b(THE)g(STK)h(INTERPRETER)p
+75 51 1763 2 v 110 195 a Fj(NEWCELL\(z,)f(tc_stack\);)110
+235 y(EXTDATA\(z\))120 b(=)17 b(STk_must_mal)o(lo)o(c\(s)o(ize)o(of\()o
+(Sta)o(ck)o(\)\);)110 274 y(STACK\(z\)->l)o(en)67 b(=)17
+b(0;)110 313 y(STACK\(z\)->v)o(alu)o(es)d(=)j(NIL;)110
+353 y(return)f(z;)75 392 y(})75 471 y(static)f(PRIMITIVE)g(stackp\(SCM)
+f(s\))75 511 y({)110 550 y(return)i(STACKP\(s\)?)e(Truth:)h(Ntruth;)75
+589 y(})75 668 y(static)g(PRIMITIVE)g(stack_push)o(\(SC)o(M)g(s,)h(SCM)
+h(val\))75 708 y({)110 747 y(Stack)f(*sp;)110 826 y(if)h
+(\(NSTACKP\(s\))o(\))e(STk_err\(")o(sta)o(ck-)o(pu)o(sh:)f(bad)j
+(stack",)e(s\);)110 905 y(sp)158 b(=)35 b(STACK\(s\);)110
+944 y(sp->len)51 b(+=)17 b(1;)110 984 y(sp->values)d(=)k(Cons\(val,)c
+(sp->values)o(\);)110 1063 y(return)i(UNDEFINED;)75 1102
+y(})75 1181 y(static)f(PRIMITIVE)g(stack_pop\()o(SCM)f(s\))75
+1220 y({)110 1260 y(Stack)i(*sp;)110 1299 y(SCM)h(res;)110
+1378 y(if)g(\(NSTACKP\(s\))o(\))e(STk_err\(")o(sta)o(ck-)o(po)o(p:)f
+(bad)j(stack",)e(s\);)110 1457 y(sp)i(=)35 b(STACK\(s\);)110
+1536 y(if)17 b(\(sp->len)e(==)i(0\))g(STk_err\("s)o(tac)o(k-)o(pop)o(:)
+e(empty)h(stack",)f(s\);)110 1575 y(res)158 b(=)17 b(CAR\(sp->val)o
+(ues)o(\);)110 1615 y(sp->len)68 b(-=)17 b(1;)110 1654
+y(sp->values)32 b(=)17 b(CDR\(sp->val)o(ues)o(\);)110
+1733 y(return)f(res;)75 1773 y(})75 1851 y(static)f(PRIMITIVE)g
+(stack_empt)o(yp\()o(SCM)f(s\))75 1891 y({)110 1930 y(if)j
+(\(NSTACKP\(s\))o(\))e(STk_err\(")o(sta)o(ck-)o(em)o(pty)o(?:)f(bad)j
+(stack",)e(s\);)110 1970 y(return)h(\(STACK\(s\)-)o(>l)o(en\))e(?)j
+(Truth:)f(Ntruth;)75 2009 y(})75 2127 y(PRIMITIVE)e(STk_init_st)o(ack)o
+(\(vo)o(id\))75 2167 y({)110 2206 y(/*)j(Register)e(the)i(new)f(type)g
+(*/)110 2246 y(tc_stack)f(=)i(STk_add_new)o(_ty)o(pe\()o(&st)o(ac)o
+(k_t)o(ype)o(\);)110 2325 y(/*)g(Declare)e(new)i(primitives)d(*/)110
+2364 y(STk_add_new)o(_pr)o(imi)o(ti)o(ve\()o("ma)o(ke-)o(sta)o(ck)o(",)
+85 b(tc_subr_0,)102 b(make_stack\))o(;)110 2403 y(STk_add_new)o(_pr)o
+(imi)o(ti)o(ve\()o("st)o(ack)o(?",)31 b(tc_subr_1,)103
+b(stackp\);)110 2443 y(STk_add_new)o(_pr)o(imi)o(ti)o(ve\()o("st)o(ack)
+o(-pu)o(sh)o(!",)67 b(tc_subr_2,)102 b(stack_push\))o(;)110
+2482 y(STk_add_new)o(_pr)o(imi)o(ti)o(ve\()o("st)o(ack)o(-po)o(p")o(,)h
+(tc_subr_1,)f(stack_pop\);)110 2522 y(STk_add_new)o(_pr)o(imi)o(ti)o
+(ve\()o("st)o(ack)o(-em)o(pt)o(y?")o(,)50 b(tc_subr_1,)102
+b(stack_empty)o(p\);)110 2601 y(return)16 b(UNDEFINED;)75
+2640 y(})935 2960 y Fr(20)p eop
+%%Page: 21 21
+21 20 bop 75 35 a Fq(REFERENCES)1192 b(REFERENCES)p 75
+51 1763 2 v 75 195 a Fp(References)75 303 y Fr([1])20
+b(POSIX)15 b(Committee.)j Fg(System)e(Applic)n(ation)g(Pr)n(o)n(gr)n
+(am)f(Interfac)n(e)g(\(API\))h([C)f(L)n(anguage])p Fr(.)22
+b(Information)140 352 y(tec)o(hnology|P)o(ortable)17
+b(Op)q(erating)h(System)g(In)o(terface)h(\(POSIX\).)f(IEEE)h(Computer)e
+(So)q(ciet)o(y)h(Press,)140 402 y(1109)12 b(Spring)i(Street,)h(Suite)f
+(300,)f(Silv)o(er)g(Spring,)g(MD)h(20910,)e(USA,)i(1990.)75
+485 y([2])20 b(Eric)o(k)e(Gallesio.)30 b(Em)o(b)q(edding)17
+b(a)h(sc)o(heme)g(in)o(terpreter)j(in)d(the)g(Tk)h(to)q(olkit.)30
+b(In)18 b(La)o(wrence)i(A.)e(Ro)o(w)o(e,)140 535 y(editor,)13
+b Fg(First)h(Tcl/Tk)g(Workshop,)i(Berkeley)p Fr(,)d(pages)h(103{109,)e
+(June)j(1993.)75 618 y([3])20 b(Eric)o(k)13 b(Gallesio.)i
+Fn(STk)e Fr(reference)j(man)o(ual.)e(T)m(ec)o(hnical)e(Rep)q(ort)i(R)m
+(T)e(95-31,)f(I3S)i(CNRS)g(/)f(Univ)o(ersit)o(\023)-20
+b(e)14 b(de)140 668 y(Nice)g(-)g(Sophia)f(An)o(tip)q(olis,)f(juillet)h
+(1995.)75 751 y([4])20 b(Brian)c(W.)f(Kernighan)i(and)f(Dennis)g(M.)g
+(Ritc)o(hie.)25 b Fg(The)17 b(C)g(Pr)n(o)n(gr)n(amming)f(L)n(anguage)p
+Fr(.)27 b(Prentice-Hall,)140 801 y(Englew)o(o)q(o)q(d)13
+b(Cli\013s,)g(NJ)h(07632,)f(USA,)g(second)i(edition,)e(1988.)75
+884 y([5])20 b(John)14 b(K.)f(Ousterhout.)20 b Fg(Tcl)14
+b(and)i(the)f(Tk)f(to)n(olkit)p Fr(.)k(Addison-W)m(esley)m(,)12
+b(1994.)935 2960 y(21)p eop
+%%Page: 22 22
+22 21 bop 75 258 a Fp(Index)75 340 y Fr(*load-su\016xes*,)13
+b(4)75 390 y(#f,)g(8)75 440 y(#t,)g(8)75 531 y(DLD)g(Gn)o(u)h(pac)o(k)n
+(age,)f(15)75 581 y(DSP)p 160 581 13 2 v 15 w(MODE,)h(13)75
+672 y(ELF,)g(15)75 722 y(EXT)p 166 722 V 15 w(EV)-5 b(ALP)m(ARAM,)14
+b(12,)f(13)75 772 y(EXT)p 166 772 V 15 w(ISPR)o(OC,)h(12,)f(13)75
+822 y(EXTD)o(A)m(T)m(A,)g(14)75 913 y(Garbage)g(Collector,)h(11)75
+1004 y(In)o(tern,)g(9)75 1096 y(LISTx,)f(9)75 1146 y(load,)f(16)75
+1237 y(mak)o(e,)g(16)75 1287 y(Mak)o(e\014le,)h(16)75
+1337 y(marking)f(phase,)i(12)75 1428 y(NEW)o(CELL,)f(14)75
+1478 y(NIL,)g(7,)h(8,)f(11)75 1527 y(Ntruth,)h(8)75 1619
+y(pic)g(compilation)d(option,)i(16)75 1669 y(PRIMITIVE,)h(3)75
+1760 y(SCM,)f(3,)h(4)75 1810 y(shared)h(ob)r(ject,)f(16)75
+1860 y(Src/stk.h,)g(4,)f(9)75 1909 y(Src/userinit.c,)h(16)75
+1959 y(STk)p 152 1959 V 15 w(add)p 234 1959 V 15 w(new)p
+320 1959 V 15 w(primitiv)o(e,)d(3)75 2009 y(STk)p 152
+2009 V 15 w(add)p 234 2009 V 15 w(new)p 320 2009 V 15
+w(t)o(yp)q(e,)j(13,)f(14)75 2059 y(STk)p 152 2059 V 15
+w(de\014ne)p 272 2059 V 16 w(C)p 318 2059 V 15 w(v)n(ariable,)f(10)75
+2109 y(STk)p 152 2109 V 15 w(displa)o(y)m(,)g(10)75 2158
+y(STk)p 152 2158 V 15 w(eof,)h(13)75 2208 y(STk)p 152
+2208 V 15 w(err,)h(8)75 2258 y(STk)p 152 2258 V 15 w(ev)n(al,)f(7)75
+2308 y(STk)p 152 2308 V 15 w(ev)n(al)p 238 2308 V 14
+w(C)p 282 2308 V 15 w(string,)h(11)75 2358 y(STk)p 152
+2358 V 15 w(extended)p 328 2358 V 16 w(sc)o(heme)p 472
+2358 V 16 w(t)o(yp)q(e,)g(12)75 2408 y(STk)p 152 2408
+V 15 w(gc)p 206 2408 V 15 w(mark,)e(12)75 2457 y(STk)p
+152 2457 V 15 w(get)p 222 2457 V 15 w(sym)o(b)q(ol)p
+367 2457 V 13 w(v)n(alue,)h(9)75 2507 y(STk)p 152 2507
+V 15 w(getc,)h(13)75 2557 y(STk)p 152 2557 V 15 w(init)p
+230 2557 V 28 w(pre\014x,)g(16)75 2607 y(STk)p 152 2607
+V 15 w(in)o(teger)p 290 2607 V 15 w(v)n(alue)p 399 2607
+V 15 w(no)p 458 2607 V 14 w(o)o(v)o(er\015o)o(w,)g(4)75
+2657 y(STk)p 152 2657 V 15 w(in)o(tern,)g(9)75 2706 y(Stk)p
+138 2706 V 15 w(main)p 245 2706 V 13 w(in)o(terp,)g(17)75
+2756 y(STk)p 152 2756 V 15 w(mak)o(ein)o(teger,)e(3)75
+2806 y(STk)p 152 2806 V 15 w(mak)o(estring,)g(4)1029
+340 y(STk)p 1106 340 V 15 w(mak)o(ev)o(ect,)h(7)1029
+390 y(STk)p 1106 390 V 15 w(m)o(ust)p 1211 390 V 14 w(mallo)q(c,)e(14)
+1029 440 y(STk)p 1106 440 V 15 w(putc,)j(13)1029 490
+y(STk)p 1106 490 V 15 w(puts,)g(13)1029 540 y(STk)p 1106
+540 V 15 w(set)p 1171 540 V 16 w(sym)o(b)q(ol)p 1317
+540 V 13 w(v)n(alue,)f(10)1029 589 y(STk)p 1106 589 V
+15 w(ungetc,)h(13)1029 639 y(STk)p 1106 639 V 15 w(user)p
+1194 639 V 16 w(init,)f(16)1029 689 y(struct)i(ob)r(j,)e(4)1029
+739 y(sw)o(eeping)h(phase,)g(12)1029 830 y(tc)p 1065
+830 V 15 w(fsubr,)g(6,)f(7)1029 880 y(tc)p 1065 880 V
+15 w(lsubr,)h(6)1029 930 y(tc)p 1065 930 V 15 w(subr)p
+1158 930 V 16 w(0,)f(3,)g(6)1029 980 y(tc)p 1065 980
+V 15 w(subr)p 1158 980 V 16 w(0)p 1195 980 V 15 w(or)p
+1247 980 V 15 w(1,)g(6)1029 1029 y(tc)p 1065 1029 V 15
+w(subr)p 1158 1029 V 16 w(1,)g(5,)g(6)1029 1079 y(tc)p
+1065 1079 V 15 w(subr)p 1158 1079 V 16 w(1)p 1195 1079
+V 15 w(or)p 1247 1079 V 15 w(2,)g(6)1029 1129 y(tc)p
+1065 1129 V 15 w(subr)p 1158 1129 V 16 w(2,)g(6)1029
+1179 y(tc)p 1065 1179 V 15 w(subr)p 1158 1179 V 16 w(2)p
+1195 1179 V 15 w(or)p 1247 1179 V 15 w(3,)g(6)1029 1229
+y(tc)p 1065 1229 V 15 w(subr)p 1158 1229 V 16 w(3,)g(6)1029
+1278 y(Tcl)p 1091 1278 V 15 w(CreateCommand,)e(17)1029
+1328 y(Tk)j(command,)c(17)1029 1378 y(TK)p 1093 1378
+V 15 w(MODE,)k(13)1029 1428 y(T)m(ruth,)f(8)1029 1519
+y(UNBOUND,)h(6,)f(9)1029 1569 y(UNDEFINED,)h(8)1029 1619
+y(unsp)q(eci\014ed)h(result,)g(8)1029 1669 y(USER)p 1144
+1669 V 15 w(OBJ,)f(16)1029 1760 y(WR)m(T)p 1132 1760
+V 14 w(MODE,)f(13)935 2960 y(22)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/Extension/Extending.tex b/Doc/Extension/Extending.tex
new file mode 100644
index 0000000..f0f1429
--- /dev/null
+++ b/Doc/Extension/Extending.tex
@@ -0,0 +1,1182 @@
+%
+% A note on how to extend the STk interpreter
+%
+% Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+% 
+%
+% Permission to use, copy, and/or distribute this software and its
+% documentation for any purpose and without fee is hereby granted, provided
+% that both the above copyright notice and this permission notice appear in
+% all copies and derived works.  Fees for distribution or use of this
+% software or derived works may only be charged with express written
+% permission of the copyright holder.  
+% This software is provided ``as is'' without express or implied warranty.
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date:  in 1993
+% Last file update: 21-Jul-1996 19:47
+%
+
+\documentclass[10pt]{article}
+\usepackage{a4wide}
+\usepackage{fancyheadings}
+\usepackage{fancybox}
+\usepackage{eg-commands}
+
+\pagestyle{fancyplain}
+\makeindex\parindent0pt\parskip2mm
+\begin{document}
+\bibliographystyle{plain}
+
+\title{Extending the ST{\large\bf{K}} interpreter}
+\author{Erick Gallesio \\
+Universit\'e de Nice~~-~~Sophia-Antipolis \\
+Laboratoire I3S - CNRS URA 1376 - ESSI. \\
+Route des Colles\\
+B.P. 145\\
+06903 Sophia-Antipolis Cedex - FRANCE\\[3mm]
+email: eg@unice.fr}
+\date{July 1995}
+\maketitle
+
+\begin{abstract}
+This document describes how to extend the {\stk} interpreter with new
+primitives procedures and/or new types. Extending the interpreter can be done
+by writing new {\em modules} in C. New C code can be statically linked to the
+core interpreter or dynamically loaded on operating systems which support
+shared libraries. This document also presents how to integrate new
+Tk widgets written for the Tcl interpreter in {\stk}.
+\end{abstract}
+
+
+\pagebreak
+\tableofcontents
+\pagebreak
+\section{Introduction}
+This document describes how to extend the {\stk}\cite{Gallesio93-1}
+interpreter using the C language\cite{Kernighan:CPL88}. To begin, we
+will start with a simple extension which will only consist to add some
+simple new primitives to the interpreter. Second section will describe
+how to add a new type (and the primitives for manipulating this new
+type). Another interesting extension consists to add new kind of
+primitives (i.e.  primitives which evaluate their argument in
+particular way). This kind of extension will be discussed in the third
+section.  Fourth section discusses how to add a new widget to the
+interpreter. Calling some Scheme code from a C function is showed in
+section 5. And last, we will show how to load an extension at load
+time. This facility will permit to extend the {\stk} interpreter
+without having to recompile it, on systems which support dynamic
+loading.
+
+\section{Adding new primitives}
+
+\subsection{A simple example}
+
+\label{simple-example}
+One of the simpler extension one can wish to do consists to add new
+primitives procedures to the interpreter. To illustrate this, suppose
+we want to add two new primitives to the interpreter: {\tt posix-time}
+and {\tt posix-ctime}.  The former function correspond to the
+POSIX.1\cite{POSIX.1-90} function {\tt time}: it returns the number
+of seconds elapsed since 00:00:00 on January 1, 1970, Coordinated
+Universal Time (UTC).  The latter is a wrapper around the POSIX.1
+function {\tt ctime} which returns a string containing the current
+time in an human readable format.
+
+First, we will see how to write the new Scheme primitive {\tt posix-time}.
+Implementing a new primitive requires to write a new C function which will do
+the work. Here, we write the C function {\tt posix\_time} to implement the
+Scheme primitive {\tt posix-time}. The code of this function is given below.
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE posix_time(void)
+{
+  return STk_makeinteger((long) time(NULL));
+}
+\end{listing}
+\end{Code}
+This function uses the interpreter \Indextt{STk\_makeinteger} function
+which converts a C long integer to a {\stk} integer. Once the {\tt
+posix\_time} C function is written, we have to bind this new primitive to
+the Scheme symbol {\tt posix-time}. This is achieved by the following C
+function call.
+\begin{Code}
+\begin{listing}[200]{2}
+STk_add_new_primitive("posix-time", tc_subr_0, posix_time);
+\end{listing}
+\end{Code}
+
+\paragraph*{Note:} The C type \Indextt{SCM} is used to describe the objects
+manipulated in Scheme. \Indextt{PRIMITIVE} is an alias for this type; it
+is preferably used when defining a new primitive.
+
+\Indextt{STk\_add\_new\_primitive} tells the interpreter that the Scheme 
+symbol {\tt posix-time} must be bound to the (C written) primitive
+{\tt posix\_time}.  The constant \Indextt{tc\_subr\_0} used as the second
+argument indicates the arity of this primitive. In this case, the
+arity of the primitive is 0.
+
+Let's now have a look at the primitive {\tt posix-ctime}. A first
+writing of this primitive could be
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE posix_ctime(void)
+{
+  char *s;
+  time_t t = time(NULL);
+
+  s = ctime(&t);
+  return STk_makestring(s);
+}
+\end{listing}
+\end{Code}
+
+This functions uses another interpreter routine (\Indextt{STk\_makestring})
+which takes as parameter a null terminated string and returns a
+Scheme string. 
+
+Binding of the scheme symbol {\tt time-string} to the C function 
+{\tt get\_time} is done by the call 
+\begin{Code}
+\begin{listing}[200]{2}
+STk_add_new_primitive("posix-ctime", tc_subr_0, posix_ctime);
+\end{listing}
+\end{Code}
+
+A complete listing of this code is given in Figure~\ref{posix-1}.
+Provided that we have done a shared object of this file, and that its
+name is {\tt posix.so}, our two new primitives can be loaded
+dynamically by:
+\begin{Code}
+\begin{listing}[200]{2}
+(load "time.so")
+\end{listing}
+\end{Code}
+
+\paragraph*{Notes:}
+\begin{itemize}
+\item Suffix can be omitted. Suffixes given in the Scheme variable 
+\Indextt{*load-suffixes*} gives the order in which suffixes must be
+tried for loading a file.  Default value for this variable is
+{\tt ("stk" "stklos" "scm" "so")}.
+
+\item When dynamic loading is used, the interpreter try to call a 
+function whose name is equal to the string {\tt "STk\_init\_"} followed by the
+name of the file, without suffix. Definitions of new primitives are generally done
+in this function. Here, the C function in charge of module initialization must
+be called {\tt STk\_init\_posix}.
+\end{itemize}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\begin{figure}
+\begin{quote} \footnotesize
+\begin{alltt}
+#include <sys/types.h>
+#include <sys/time.h>
+#include <time.h>
+#include <stk.h>        {\em /* Declaration of STk objects/primitives */}
+
+static PRIMITIVE posix_time(void)
+\{
+  return STk_makeinteger((long) time(NULL));
+\}
+
+static PRIMITIVE posix_ctime(void)
+\{
+  char *s;
+  time_t t = time(NULL);
+
+  s = ctime(&t);
+  return STk_makestring(s);
+\}
+
+PRIMITIVE STk_init_posix(void)
+\{
+  STk_add_new_primitive("posix-time",  tc_subr_0, posix_time);
+  STk_add_new_primitive("posix-ctime", tc_subr_0, posix_ctime);
+  return UNDEFINED;
+\}
+\end{alltt}
+{\caption{A first version of file {\tt posix.c}}}
+\label{posix-1}
+\vskip2mm\hrule\vskip3mm
+\end{quote}
+\end{figure} 
+
+\subsection{Passing arguments to a primitive}
+
+This section shows how to pass arguments to a new primitive written in
+C. To illustrate our purpose, we will rewrite the primitive {\tt
+posix-ctime} to be conform to POSIX.1 (this function should take an
+integer, a count of seconds, and should return corresponding date as a
+string). A second writing of previous function could be:
+
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE posix_ctime(SCM seconds)
+{
+  long sec;
+
+  sec = STk_integer_value_no_overflow(seconds);
+  return STk_makestring(ctime((time_t *)&sec));
+}
+\end{listing}
+\end{Code}
+
+
+This function has one parameter since Scheme primitive arity is one. The
+C primitives parameters are always \Indextt{SCM} objects. An object of this type is
+a pointer to a \Indextt{struct obj}: the type which permits to represent all the
+Scheme objects.  The {\tt SCM} and {\tt struct~obj} types definitions can
+be found in the \Indextt{Src/stk.h} header file. 
+
+The first job of this function consists to convert the Scheme
+parameter ({\tt seconds}) to a C integer {\tt long int}. This is done with the
+function \Indextt{STk\_integer\_value\_no\_overflow}which takes a {\tt SCM}
+and returns a {\tt long int}. This functions returns {\tt LONG\_MIN} if
+the argument is not a an integer number (or a number which don't fit in the C
+representation of a C {\tt long int}). Once this conversion is done,
+the rest of the job is similar to the code presented above.
+
+To add this primitive to the global Scheme environment, we have to
+change the previous {\tt STk\_add\_new\_primitive} for this primitive by:
+
+\begin{Code}
+\begin{listing}[200]{2}
+STk_add_new_primitive("posix-ctime", tc_subr_1, posix_ctime);
+\end{listing}
+\end{Code}
+
+in the init section. This call states that the type of this primitive
+is fixed to a \Indextt{tc\_subr\_1} (a arity-1 primitive).
+
+However, this function is not too satisfying, even if close to the
+POSIX definition: it obliges to pass a parameter which will be
+probably most of the time the result of the primitive {\tt
+posix-time} (i.e. the most frequent usage of this function will be
+
+\begin{Code}
+\begin{listing}[200]{2}
+(posix-ctime (posix-time))
+\end{listing}
+\end{Code}
+
+which is not very elegant). A better approach consists to allow this
+primitive to have a optional parameter. This permits to be at the
+same time conform to the POSIX convention and close to Scheme habits. 
+The following version implements the {\tt posix-ctime} with a optional
+parameter:
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE posix_ctime(SCM seconds)
+{
+  long sec;
+
+  sec = (seconds==UNBOUND) ? time(NULL)
+                           : STk_integer_value_no_overflow(seconds);
+  return STk_makestring(ctime((time_t *) &sec));
+}
+\end{listing}
+\end{Code}
+
+If the Scheme {\tt posix-ctime} primitive is called with one parameter, it
+will be passed to the C function in the {\tt seconds} parameter. If {\tt
+posix-ctime} is called without parameter, {\tt seconds} is set to the special
+value \Indextt{UNBOUND}. So, the first test in this function consists to set a
+correct value to the variable {\tt sec}; this value is either the current
+time, either the given integer, depending of the number of parameters
+given to {\tt posix-ctime}.
+
+Of course, the type of this new primitive must be changed to allow 0 or 1
+parameter. This is done by changing the {\tt tc\_subr\_0} in the previous 
+{\tt STk\_add\_new\_primitive} by \Indextt{tc\_subr\_0\_or\_1}.
+
+The following types are available for C primitives:
+\begin{itemize}
+\item \Indextt{tc\_subr\_0} for arity-0 primitives
+\item \Indextt{tc\_subr\_1} for arity-1 primitives
+\item \Indextt{tc\_subr\_2} for arity-2 primitives
+\item \Indextt{tc\_subr\_3} for arity-3 primitives
+\item \Indextt{tc\_subr\_0\_or\_1} for primitives 
+      which have 0 or 1 parameter
+      (e.g.~{\tt read}). On the C side you have to declare a function
+      which takes one {\tt SCM} argument. This argument is set to the
+      (evaluated) parameter if present, to {\tt UNBOUND} otherwise.
+\item \Indextt{tc\_subr\_1\_or\_2} for 
+      primitives which have 1 or 2 parameters
+      (e.g.~{\tt write}). Here you have to declare a C function with
+      two {\tt SCM} parameters. The first one will contain the first Scheme 
+      argument and the second will contain the second argument value
+      or {\tt UNBOUND} if omitted.
+\item \Indextt{tc\_subr\_2\_or\_3} for 
+      primitives which have 2 or 3 parameters
+      (there's no primitive of this type in core interpreter).
+      Of course, you'll have to declare a C function with three {\tt SCM}
+      parameters. Apart that, conventions are the same has before.
+\item \Indextt{tc\_lsubr} for primitives which have a variable number of
+      arguments. Actuals arguments are collected in a list which is given as the
+      first argument of the C primitive. The second argument of the C function
+      is an integer counting the actual number of arguments given to the
+      primitive. Hence, the signature of the C function which implement a {\tt
+      tc\_lsubr} must be
+\begin{quote}
+\begin{verbatim}
+PRIMITIVE function(SCM arglist, int argcount);
+\end{verbatim}
+\end{quote}
+      Note that all the Scheme arguments are evaluated during the
+      construction of the list which is passed to the C function.
+\item \Indextt{tc\_fsubr} is similar to {\tt tc\_lsubr} except that
+      arguments are not evaluated. On the C side, you have to declare a function
+      with three {\tt SCM} parameters: the list of (non evaluated) arguments,
+      the current environment and the length of the arguments list. The
+      signature of the C function which implement a {\tt tc\_fsubr} must be
+\begin{quote}
+\begin{verbatim}
+PRIMITIVE function(SCM arglist, SCM env, int argcount);
+\end{verbatim}
+\end{quote}
+      See \ref{evaluating-args} more details about {\tt tc\_fsubr}.
+
+\item {\tt tc\_tkcommand} for primitives which follow  the Tcl
+      command argument passing style (i.e.~{\em \`a la} {\tt argc/argv}). This
+      is this kind of procedure that will be used for to add new widgets in the
+      {\stk} interpreter. See \ref{new-widget} and \cite{ouster-book} for more
+      details.
+\end{itemize}
+
+To illustrate how to write a {\tt tc\_lsubr} primitive, let's have a look at the
+code, given below, of the function which implement the Scheme primitive {\tt
+vector}:
+\begin{quote}{\small
+\begin{verbatim}
+PRIMITIVE STk_vector(SCM arglist, int argcount)
+{
+  int j;
+  SCM z = STk_makevect(argcount, NULL);
+  
+  for (j = 0; j < argcount; j++, arglist=CDR(arglist)) {
+    VECT(z)[j] = CAR(arglist);
+  }
+  return z;
+}
+\end{verbatim}
+}\end{quote}
+
+This function receives the values passed to the {\tt vector} primitives in the
+list arglist (the length of this list is stored in {\tt argcount}). This
+function uses \Indextt{STk\_makevect} which returns a Scheme vector. Its first
+argument is the length of the vector and its second argument is the initial
+value of the vector's elements.  Next section will show how to implement a
+primitive which evaluates itself its parameters (i.e. a {\tt tc\_fsubr}
+primitive.
+
+\subsection{Evaluating arguments}
+
+In some circumstances it could be useful to add new primitives which don't
+evaluate their arguments. This permits to add new control structures to the
+interpreter. To illustrate this, we will add two new primitives to the {\stk}
+interpreter: {\tt when} and {\tt unless}. As explained in the preceding
+section, the C functions which will implement those control structures must be
+of type \Indextt{tc\_fsubr}. A {\tt tc\_fsubr} primitive, on the C
+side, is given three parameters when called: 
+\begin{enumerate}
+\item a list of its (non evaluated) parameters, 
+\item the local environment when it was called (and in which
+evaluations should generally take place),
+\item the length of the parameters list.
+\end{enumerate}
+
+The C function can step through its parameter list using the C macros
+{\tt CAR}, {\tt CDR} and {\tt NULLP} (which do the obvious work) and evaluates elements
+of this list as needed. Evaluation of an expression can be done with
+the \Indextt{STk\_eval} C function. {\tt STk\_eval} takes two parameters: the
+expression to evaluate and the environment in which evaluation takes
+place (the \Indextt{NIL} variable, by convention, denotes the Index{global environment}).
+
+\paragraph*{Note:} {\bf a list of arguments is always a proper list. You don't need to test
+if it is well formed.}
+
+Hereafter is the code of the {\tt when} primitive.
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE when(SCM l, SCM env, int argcount)
+{
+  SCM res = UNDEFINED;
+
+  if (argcount > 1) {
+    if (STk_eval(CAR(l), env) != Ntruth) {
+      for (l = CDR(l); !NULLP(l); l = CDR(l)) {
+        res = STk_eval(CAR(l), env);
+      }
+    }
+  }
+  return res;
+}
+\end{listing}
+\end{Code}
+
+\noindent
+Some points to note here:
+\begin{itemize}
+\item \Indextt{UNDEFINED} is an interpreter {\em constant}. It serves to denote
+the notion of {\em ``\Index{unspecified result}''} of {\rrrr}.
+\item \Indextt{Truth} and \Indextt{Ntruth} are two global {\em constants} of the
+interpreter which denote respectively the \Indextt{\#t} and \Indextt{\#f} Scheme
+constants.
+\end{itemize}
+
+\noindent
+Figure~\ref{when} shows a complete implementation of {\tt when} and {\tt unless}.
+
+\begin{figure}
+\begin{quote}\footnotesize
+\begin{verbatim}
+#include <stk.h>
+
+static PRIMITIVE when(SCM l, SCM env, int argcount)
+{
+  SCM res = UNDEFINED;
+
+  if (argcount > 1) {
+    if (STk_eval(CAR(l), env) != Ntruth) {
+      for (l = CDR(l); !NULLP(l); l = CDR(l)) {
+        res = STk_eval(CAR(l), env);
+      }
+    }
+  }
+  return res;
+}
+
+static PRIMITIVE unless(SCM l, SCM env, int argcount)
+{
+  SCM res = UNDEFINED;
+
+  if (argcount > 1) {
+    if (STk_eval(CAR(l), env) == Ntruth) {
+      for (l = CDR(l); !NULLP(l); l = CDR(l)) {
+        res = STk_eval(CAR(l), env);
+      }
+    }
+  }
+  return res;
+}
+
+PRIMITIVE STk_init_when_unless(void)
+{
+  add_new_primitive("when",        tc_fsubr, when);
+  add_new_primitive("unless",      tc_fsubr, unless);
+  return UNDEFINED;
+}
+\end{verbatim}
+\end{quote}
+{\caption{Source listing of file {\tt when\_unless.c}}}
+\label{when}
+\vskip2mm\hrule\vskip3mm
+\end{figure}
+
+\subsection{Signaling errors}
+For now, only one function is provided to signal errors: \Indextt{STk\_err}. This
+function takes two parameters: a C string which constitutes the body of the
+message and a Scheme object (a {\tt SCM} pointer) designating the {\em
+erroneous} object.  If the second argument is \Indextt{NIL}, it will not be
+printed. Execution of the function {\tt STk\_err} never returns.  It provokes a
+jump at the start of the top-level loop. Hereafter, is a new implementation of
+the {\tt when} function which uses {\tt STk\_err} when given an erroneous
+arguments list.
+\begin{Code}
+\begin{alltt}
+static PRIMITIVE when(SCM l, SCM env, int argcount)
+\{
+  SCM res = UNDEFINED;
+
+  switch (argcount) \{
+    case 0:  STk_err("when: no argument list given", NIL);
+    case 1:  STk_err("when: null body", NIL);
+    default: {\em /* Argument list is well formed.
+              * Evaluate each expression of the body 
+              */}
+             if (STk_eval(CAR(l), env) != Ntruth)
+               for (l = CDR(l); !NULLP(l); l = CDR(l)) 
+                 res = STk_eval(CAR(l), env);
+  \}
+  return res;
+\}
+\end{alltt}
+\end{Code}
+
+\section{Variables}
+
+This section shows how you can access a Scheme variable within C code. It also
+shows how you can connect a Scheme and C variable such that modifying it in
+Scheme will modify the associated variable and {\em vice versa}.
+
+\subsection{Scheme Symbols and Variables}
+
+\begin{Lentry}
+\item[Defining a symbol]
+Interning a symbol in the global table of symbols is done with the
+\Indextt{STk\_intern} C function. Since this function is often used, you can use
+the C macro \Indextt{Intern} as a shortcut. The result of Intern is the {\tt SCM}
+object which denotes the scheme symbol associated to the C string passed as parameter.
+For example, assigning the list 
+\begin{Code}
+\begin{listing}[200]{2}
+'(green orange red)
+\end{listing}
+\end{Code}
+to the C variable {\tt fire} can be done by
+\begin{Code}
+\begin{listing}[200]{2}
+SCM fire =  Cons(Intern("green"),
+                 Cons(Intern("orange"),
+                      Cons(Intern("red"), NIL)));
+\end{listing}
+\end{Code}
+Since this notation is difficult to read, some macros have been defined in
+\Indextt{Src/stk.h} for building list. These macros are called \Indextt{LISTx} where
+x is a number (comprised between 1 and 9) which represent the length of the list
+to create. Thus, the previous example could have been written as 
+\begin{Code}
+\begin{listing}[200]{2}
+SCM fire =  LIST3(Intern("green"), Intern("orange"), Intern("red"));
+\end{listing}
+\end{Code}
+
+\item[Reading a variable]
+Reading a variable in Scheme corresponds in fact to look at the value associated
+to a symbol. The value associated to a symbol can be obtained with the 
+\Indextt{STk\_get\_symbol\_value} C macro. This macro returns a {\tt SCM} object
+which correspond to the value associated to the symbol whose name is equal to
+the parameter string. \Indextt{STk\_get\_symbol\_value} returns the special
+value \Indextt{UNBOUND} is this symbols has no value in the global
+environment. The following piece of code
+\begin{Code}
+\begin{listing}[200]{2}
+{
+  SCM val = STk_get_symbol_value("foo");
+
+  if (val == UNBOUND)
+    STk_err("foo is undefined", NIL);
+  else
+    STk_display(val, UNBOUND);
+}
+\end{listing}
+\end{Code}
+displays the value of the {\tt foo} symbol, or a message is {\tt foo} is undefined in the
+global environment. Note the use of the \Indextt{STk\_display} function which
+implement the behavior of the Scheme {\tt display} primitive. This call correspond to
+a call to {\tt display} with only one parameter, since second parameter is set
+to {\tt UNBOUND} (output is done on the standard output port in this case).
+
+\item[Setting a variable]
+Setting a Scheme variable corresponds to associate a new value to a symbol. The
+value of a symbol can be set with the \Indextt{STk\_set\_symbol\_value} C macro.
+For example, 
+\begin{Code}
+\begin{listing}[200]{2}
+STk_set_symbol_value("bar", STk_makeinteger(3L));
+\end{listing}
+\end{Code}
+sets the value of the {\tt bar} symbol to the integer 3. Note that you can set a
+symbol in C without using a {\tt define} form as it is necessary in Scheme.
+\end{Lentry}
+
+\subsection{Connecting Scheme and C variables}
+
+When building a specialized interpreter, it could be useful to have a variable
+you can access both in Scheme an in C. Modifying such a variable in C must
+modify the Scheme associated variable and, symmetrically, modifying it in Scheme
+must modify the corresponding C variable. One way to do this connection consists
+to create a special Scheme variable whose content is read/written by a special
+getter/setter. Definition of such a variable, is done by calling the function
+\Indextt{STk\_define\_C\_variable}. The C prototype for this function is
+\begin{Code}
+\begin{listing}[200]{2}
+void STk_define_C_variable(char *var, 
+                           SCM  (*getter)(char *var), 
+                           void (*setter)(char *var, SCM value));
+\end{listing}
+\end{Code}
+
+The following piece of code shows how we can connect the Scheme variable {\tt *errno*} to the C
+variable {\tt errno}:
+
+\begin{Code}
+\begin{listing}[200]{2}
+static SCM get_errno(char *s)
+{
+  return STk_makeinteger((long) errno);
+}
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+static void set_errno(char *s, SCM value)
+{
+  long n = STk_integer_value_no_overflow(value);
+
+  if (n == LONG_MIN) Err("setting *errno*: bad integer", value);
+  errno = n;
+}
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+{
+  ...
+  STk_define_C_variable("*errno*", get_errno, set_errno);
+  ...
+}
+\end{listing}
+\end{Code}
+
+After this call to {\tt STk\_define\_C\_variable}, reading ({\em
+resp}. writing) the value of the {\tt *errno*} Scheme variable calls the
+{\tt get\_errno} ({\em resp}. {\tt set\_errno}) C function.
+
+\section{Calling Scheme from C}
+
+Sometimes, it could be necessary to execute some Scheme code from a C function.
+If the Scheme function you have to call is a primitive, it is preferred to call
+directly the C function which implement it. To know the name of the C function
+which implement a Scheme primitive, you'll have to look in the C file {\tt
+primitive\.c} which contains the list of all the primitives of the core
+interpreter. If the Scheme code you want to execute is not a call to a
+primitive, it is generally easier to put your code in a C string and call the C
+function \Indextt{STk\_eval\_C\_string}. This function takes two parameters: the string
+to evaluate and the environment in which evaluation must take place. As for {\tt
+STk\_eval}, a \Indextt{NIL} value for the environment denotes the global
+environment. Suppose, for instance, that you have already written in Scheme the
+{\tt fact} procedure; evaluating the factorial of 10 can be done in C with:
+\begin{Code}
+\begin{listing}[200]{2}
+STk_eval_string("(fact 10)", NIL);
+\end{listing}
+\end{Code}
+This call returns a pointer on a Scheme object (a {\tt SCM} pointer) containing
+the result of the evaluation. If an error occurs during evaluation. It is
+signaled to the user and the constant NULL is returned by {\tt STk\_eval\_string}.
+
+\section{Adding new types}
+
+This sections discusses how to add a new type to the {\stk} interpreter. Interested
+reader can find some new types definitions in the {\tt Extensions} directory of
+STk. {\stklos}, in particular, is written as an extended type whose definition
+is dynamically done as soon as {\em objects} are needed. Hash tables, processes
+and sockets are other examples of extended types. 
+
+\subsection{Definition of a Scheme extended type}
+
+Defining a scheme extended type is a little bit more complicated than
+defining new primitives since it implies to take into account how this
+new type interact with the GC (\Index{Garbage Collector}). Note that
+until now we have not discussed about GC problems since the
+interpreter is able to hide you it, as far as you don't define new
+types. 
+
+To illustrate the discussion, we will show how to add the {\em stack}
+type to the {\stk} interpreter in this section. The complete code for
+this section can be found in appendix.\label{stack}
+
+\subsubsection{How the GC works}
+
+Before showing how to define a new Scheme type, it is important to understand
+how the GC works. First a certain number of cells are created\footnote{by
+default 20~000; Use the -cells option of the interpreter to change this
+default}. When the interpreter needs a new cell, in the {\tt cons} primitive for
+instance, it will take an unused cell in the pool of pre-allocated cells. If no
+more cell is available in this area, the GC is called. Its works is divided in
+two phases. First phase consists to mark all the cells which are currently in
+use. Finding the cells which are in used is done by marking recursively all the
+object which are accessible from
+\begin{itemize}
+    \item the Scheme symbol table,
+    \item the registers used by the program,  
+    \item the C stack,
+    \item global variables of type {\tt SCM}.
+\end{itemize}
+Marking phase is recursive; that means that if a variable denotes a list, all
+the elements of this list have to be marked , to avoid that the GC frees some of
+them. Of course, the recursive call for marking the component of a cell depends
+on the cell's type. This first phase is called the {\em \Index{marking phase}}.
+
+The second phase of the GC is called the {\em \Index{sweeping phase}}. It is
+relatively simple: each allocated cells whose mark bit is unset is placed in the
+list of free cells, since nobody points anymore on it.
+
+If no cells can be obtained when the sweeping phase terminates, the pool of
+pre-allocated cells will be extended by a new bank of cells. 
+
+\subsubsection{The Extended type data structure}
+
+Defining a new Scheme type consists mainly to define a new
+\Indextt{STk\_extended\_scheme\_type} structure and fill in this fields. This
+structure is defined as:
+\begin{Code}
+\begin{listing}[200]{2}
+typedef struct {
+  char *type_name;
+  int  flags;                   
+  void (*gc_mark_fct)(SCM x);
+  void (*gc_sweep_fct)(SCM x);
+  SCM  (*apply_fct)(SCM x, SCM args, SCM env);
+  void (*display_fct)(SCM x, SCM port, int mode);
+} STk_extended_scheme_type;
+\end{listing}
+\end{Code}
+Each field of this structure is defined below
+\begin{Lentry}
+\item[type\_name] is a string. It denotes the external name of the new type. The
+purpose of this field is mainly for debugging.
+
+\item[flags] is the union of binary constants. For now, only two constants are
+defined:
+    \begin{itemize}
+    \item \Indextt{EXT\_ISPROC} must be set if the new type is a procedure (i.e. if the Scheme
+    procedure must answer \#t when called with this object).
+    \item \Indextt{EXT\_EVALPARAM} must be set if the new type must evaluates its parameters
+    when used as a function.
+    \end{itemize}
+
+\item [gc\_mark\_fct] is a pointer to the function which marks objects of the
+extended type. The code associated to this function is simple. It consists to
+call \index{STk\_gc\_mark} on each field whose type is {\tt SCM} in the type
+associated data. This function is automatically called by the interpreter when
+it scans all the used cells in the GC \Index{marking phase}.
+One example of {\tt gc\_mark\_fct} is given below. 
+
+\item [gc\_sweep\_fct] is a pointer to the function which frees the resources
+allocated for representing the new type of object. This function is
+automatically called by the GC in the sweeping phase for each cell which is
+unused. 
+
+\item [apply\_function] is a pointer to a function which is called when applying
+this object to a list of arguments.  This function can only be called if the bit
+\Indextt{EXT\_ISPROC} is set. The arguments given to this function are 
+evaluated if the \Indextt{EXT\_EVALPARAM} bit is set. Finally, the environment in
+which the call is done is passed as the third argument of the {\tt
+apply\_function}. It serves principally when the {\tt EXT\_EVALPARAM} bit is
+unset.
+
+Set the {\tt apply\_function} to NULL to use the interpreter default apply
+function. The default function raises an error when called. You can use the
+default function when the new type you define is not a function.
+
+\item [display\_fct] is a pointer to a C function which displays objects of the
+new type. The display function has three parameters. The first parameter is the
+object to print. The second parameter is the port to which the object must be
+printed. Printing an object must be done with one of the following functions
+{\tt
+\begin{itemize}
+\item int  \Index{STk\_getc}(FILE *f);
+\item int  \Index{STk\_ungetc}(int c, FILE *f);
+\item int  \Index{STk\_putc}(int c, FILE *f);
+\item int  \Index{STk\_puts}(char *s, FILE *f);
+\item int  \Index{STk\_eof}(FILE *f);
+\end{itemize}
+}
+Those functions are extensions of their C equivalent: they are able to handle the
+{\stk} string ports.
+
+The third parameter of the {\tt display\_fct} is a mode constant which can take three
+different values. 
+\begin{itemize}
+\item \Indextt{DSP\_MODE} is used when the object must be {\em displayed} in a
+human readable format (as with {\tt display});
+\item \Indextt{WRT\_MODE} is used when the object must be {\em written} in a
+machine readable format (as with {\tt write});
+\item \Indextt{TK\_MODE} is used when the object must be passed to a Tk
+command. This permits to customize the way a Scheme object is converted to a
+string when discussing with the Tk library.
+\end{itemize}
+\paragraph*{Note:} {\tt  display\_fct} can be set to NULL. In this
+case the interpreter uses a default printing format. This default
+format print the name of the type (found in the {\tt type\_name})
+followed by an hexadecimal address.
+\end{Lentry}
+\subsubsection{Registering the new type}
+
+Once a {\tt STk\_extended\_scheme\_type} structure is defined, the new type can
+be registered into the interpreter. Registering a new type is done by the 
+\Indextt{STk\_add\_new\_type} function. 
+The prototype of this function is given below
+\begin{Code}
+\begin{listing}[200]{2}
+int STk_add_new_type(STk_extended_scheme_type *p)
+\end{listing}
+\end{Code}
+The integer returned by this function is the (unique) key associated to the new
+type. This key is stored in each cell of the new type.
+
+We have now enough material to define the {\tt
+STk\_extended\_scheme\_type} for the new type {\em stack}. This
+declaration can be done in the following way:
+\begin{Code}
+\begin{listing}[200]{2}
+static void mark_stack(SCM p);
+static void free_stack(SCM p);
+static void display_stack(SCM s, SCM port, int mode);
+static int tc_stack;
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+static STk_extended_scheme_type stack_type = {
+  "stack",              /* name */
+  0,                    /* is_procp */
+  mark_stack,           /* gc_mark_fct */
+  free_stack,           /* gc_sweep_fct */
+  NULL,                 /* apply_fct */
+  display_stack         /* display_fct */
+};
+\end{listing}
+\end{Code}
+
+This definition tells the interpreter that the new type is not a
+procedure (field  {\tt is\_procp} is set to 0). Consequently, the 
+{\tt apply\_fct} is set to NULL. Note that a display function is
+provided here. It permits to used a customized printing
+function. 
+
+\subsubsection{New type instances creation}
+
+Creation of a new instance of the extended type necessitates the
+definition of a constructor function. This constructor obeys always
+the same framework. First you have to create a new cell with the
+\Indextt{NEWCELL} macro. This macro has two parameters, a {\tt SCM}
+object which will point the new cell and the type of the cell to
+create. The second argument is generally equal to the value returned by 
+\Indextt{STk\_add\_new\_type}. 
+Once the cell is created, we have generally to (dynamically) allocate
+a C structure which contains the informations which are necessary to
+implement the new type. Dynamic allocation  can be done with the
+function \Indextt{STk\_must\_malloc}. The area returned by 
+\Indextt{STk\_must\_malloc} must be stored in the {\tt data} field of
+the new cell. This field can be accessed with the \Indextt{EXTDATA}
+macro. 
+
+Let's go back to the stack example. We can now define a new primitive
+function to make a new stack. Provided that the global variable {\tt tc\_stack}
+already contains the value returned by {\tt STk\_add\_new\_type}, we
+can write
+
+\begin{Code}
+\begin{listing}[200]{2}
+#define STACKP(x)       (TYPEP(x, tc_stack))
+#define NSTACKP(x)      (NTYPEP(x, tc_stack))
+#define STACK(x)        ((Stack *) EXTDATA(x))
+
+typedef struct {
+  int len;
+  SCM values;
+} Stack;
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE make_stack(void)
+{
+  SCM z;
+
+  NEWCELL(z, tc_stack);
+  EXTDATA(z)       = STk_must_malloc(sizeof(Stack));
+  STACK(z)->len    = 0;
+  STACK(z)->values = NIL;
+  return z;
+}
+\end{listing}
+\end{Code}
+
+Here, the {\tt Stack} structure is used to represent a stack. This
+structure contains two fields: {\tt len} and {\tt values}. Since the latter
+field is a {\tt SCM} object, it must be recursively marked when a
+stack is marked. We can now define the utility function necessary for
+the GC:
+\begin{Code}
+\begin{listing}[200]{2}
+static void mark_stack(SCM p)
+{
+  STk_gc_mark(STACK(p)->values);
+}
+
+static void free_stack(SCM p)
+{
+  free(EXTDATA(p));
+}
+\end{listing}
+\end{Code}
+
+To terminate with this example, we give below the code of the primitive 
+{\tt stack\_push!}. Other primitive are built in the same fashion and
+will not be described here. A complete listing of the stack
+implementation is given in appendix.
+\begin{Code}
+\begin{listing}[200]{2}
+static PRIMITIVE stack_push(SCM s, SCM val)
+{
+  Stack *sp;
+
+  if (NSTACKP(s)) STk_err("stack-push: bad stack", s);
+
+  sp         =  STACK(s);
+  sp->len   += 1;
+  sp->values = Cons(val, sp->values);
+  
+  return UNDEFINED;
+}
+\end{listing}
+\end{Code}
+
+\subsection{Definition of a C extended type}
+
+The {\stk} interpreter permits to handle C pointers as first class
+objects. 
+[for eg: find an example to explain how it works: gdbm?]
+
+\subsection{About memory: Common pitfalls}
+
+
+\section{Loading an extension}
+
+{\stk} support dynamic loading for several architectures/systems. The
+way to provide dynamic loadable modules is different from one system
+to another and you will have to adapt what is said here to the
+conventions used by your system, architecture or compiler. 
+Static loading can be used for systems which doesn' support dynamic
+loading (such as Ultrix) or for which the interpreter doesn't support
+yet dynamic loading.
+
+\paragraph*{Note:} {\stk) also supports the \Index{DLD Gnu package} for
+dynamic loading. DlD is a library package of C functions that performs
+"dynamic link editing".  Since the time to load dynamically a module
+with this package is rather long, it is preferred to avoid to use it.
+However, this package is the only way to provide dynamic loading on
+Linux systems which don't support the \Index{ELF} format (versions 1.0
+to 1.2). Since the ELF format is becoming the new standard for Linux,
+this package will be no more necessary in the future.
+
+The last version of the DLD package can be found at several places:
+{\tt
+\begin{itemize}
+\item ftp-swiss.ai.mit.edu:pub/scm
+\item prep.ai.mit.edu:/pub/gnu/jacal
+\item ftp.cs.indiana.edu:/pub/scheme-repository/imp/SCM-support
+\end{itemize}
+}
+
+We suppose here that we want to include the {\tt posix} module defined
+in section\ref{simple-example} into the {\stk} interpreter. 
+\begin{Lentry}
+
+\item [Dynamic Loading]
+If the system running {\stk} supports dynamic loading (and if the
+interpreter has been compiled with dynamic loading support), you
+compile your source file file to make a {\em \Index{shared object}}
+file. On SunOs~4.1, for instance, this can be done by compiling the
+module with the {\em \Index{pic compilation option}} (pic stands for 
+{\em position independent code}). Once compilation is done, you can
+pre-load your file with the line
+\begin{Code}
+\begin{listing}[200]{2}
+ld -assert pure-text -o time.so time.o
+\end{listing}
+\end{Code}
+This will produce a file name {\tt posix.so} which can be loaded with the 
+\Indextt{load} Scheme primitive procedure. The {\tt load} primitive recognizes
+that this file is a shared object and calls a function whose
+name the concatenation of the string 
+{\tt STk\_init\_}\index{STk\_init\_ prefix} and the base name of file
+loaded. Thus, loading the file {\tt posix.so} impies the call of a
+pimitive whose name is {\tt STk\_init\_posix}. 
+
+Look at {\tt Src/Extensions} directory to see some examples of shared
+object construction.
+
+\paragraph*{Note:} when the {\stk} is built, the \Indextt{Makefile}  in
+the {\tt Src/Extensions} is customized for your system/compiler. A
+simple way to determine the options you have to use for compiling your
+program consist to run the \Indextt{make} command on one of the file present in
+this directory. For instance, issuing the following command
+\begin{Code}
+\begin{listing}[200]{2}
+make -n posix.so
+\end{listing}
+\end{Code}
+on a Linux box using the DLD package will output the following lines:
+\begin{Code}
+\begin{listing}[200]{2}
+gcc  -g -DSTk_CODE -DUSE_DLD -DLINUX   -DHAVE_UNISTD_H=1 \
+        -DHAVE_SIGACTION=1 -I../Tk -I../Tcl -I../Src -I../Mp \
+        -I/usr/X11R6/include  -c posix.c -o posix.o
+ld -r -o posix.so posix.o
+\end{listing}
+\end{Code}
+
+\item [Static loading]
+A C module which define a new type can also be statically loded in the
+interepreter. To load your module, you have to modify the {\tt Src/Makefile}
+or {\tt  Snow/Makefile}. Once yo have added your extension object in
+the \Indextt{USER\_OBJ} variable , you must modify the file
+\Indextt{Src/userinit.c} to add you initialization (and eventually
+cleanup) code. The call to your initialization function must be done in
+the \Indextt{STk\_user\_init} C function. Once this is done, you can
+run the {\tt make} command again to build the extended interpreter.
+\end{Lentry}
+
+\section{Adding new Tk widgets}
+
+\subsection{Widget compilation}
+
+Adding a new Tk widget to the {\stk} interpreter is generally a simple
+{\em hack}. Most of the time, extension widgets written
+for Tcl/Tk can be added to the {\stk} interpreter without modifying
+the source code of the widget. However, there is no unique method to
+add a widget to the Tcl interpreter; consequently, what is given below
+is a set of hints to widget integration rather than a {\em always
+working recipe}. To illustrate this section, we will see how we can add
+the {\em fscale} widget (a floating-point scale widget available on the
+Tcl/Tk repository in the {\tt tkFScale-?.?.tar.gz} file)\footnote{
+This widget is now integrated in the standard Tk4.0; it is provided as
+an extension widget with Tk3.6.}.
+
+Generally, the code of a Tcl/Tk extension widget can be divided in two
+parts: the code which implement widget's behavior and the extension
+initialization code. Extension initialization code, in Tcl/Tk, must be
+placed in the procedure {\tt Tcl\_AppInit} which is located in the file
+{\tt tkAppInit.c}. If the extension package adds a lot of widgets, it
+generally defines a function to do all the initializations. On the
+other hand, if the extension only defines a single widget, the
+extension code generally consists to call the C function 
+\Indextt{Tcl\_CreateCommand} for each new widget defined in the
+extension. {\tt Tcl\_CreateCommand} is the Tcl standard way to add a
+new command. This function also exists in the {\stk} interpreter; it
+creates a new \Index{Tk command} object~\cite{Gallesio95-1}. The
+prototype of this function is:
+\begin{Code}
+\begin{listing}[200]{2}
+void Tcl_CreateCommand(Tcl_Interp *interp,
+                       char *cmdName, 
+                       Tcl_CmdProc *proc,
+                       ClientData clientData,
+                       Tcl_CmdDeleteProc *deleteProc));
+\end{listing}
+\end{Code}
+
+For {\stk},
+\begin{itemize}
+\item the {\tt interp} is always the global variable
+                \Indextt{Stk\_main\_interp}
+\item {\tt cmdName} is the name of the widget in the Scheme world.
+\item {\tt proc} is the name of the C function which implement the {\em Tk command}
+\item {\tt clientData} are informations which are associated to the
+widget code. For a new widget, {\tt clientData} can generally set to 
+the result of 
+\begin{Code}
+\begin{listing}[200]{2}
+Tk_MainWindow(Stk_main_interp);
+\end{listing}
+\end{Code}
+\item {\tt deleteProc} is a function which is called when the widget
+is destroyed. You generally don't need to change the value of this
+parameter (which is often set to {\tt NULL}). 
+\end{itemize}
+
+The usual way to integrate this initialization code in a Tcl interpreter
+consists to patch the {\tt tkAppInit.c} file to add the call to the
+initialization (or the {\tt Tcl\_CreateCommand}) function.
+To add an extension written for Tcl/Tk to {\stk}, all that is needed
+consists to adapt the initialization code for {\stk}. For example, the
+{\tt fscale} widget initialization code adds the following call in the
+body of the {\tt Tcl\_AppInit} function:
+\begin{Code}
+\begin{listing}[200]{2}
+Tcl_CreateCommand(interp, "fscale", Tk_FScaleCmd, 
+                  (ClientData) main, 
+                  (void (*)()) NULL);
+\end{listing}
+\end{Code}
+
+For {\stk}, this call can be written 
+\begin{Code}
+\begin{listing}[200]{2}
+Tcl_CreateCommand(STk_main_interp, "fscale", Tk_FScaleCmd, 
+                  (ClientData) Tk_MainWindow(STk_main_interp), 
+                  (void (*)()) NULL);
+\end{listing}
+\end{Code}
+
+This call must executed before trying to create a new {\tt fscale}
+widget.
+
+\subsection{Widget linking}
+
+The cleaner way to add a new widget to {\stk} consists to define a
+special C module for this widget. Defining the widget in a C module
+allows us to make the new widget dynamically loadable. The code for 
+making the {\tt fscale} widget dynamically loadable could be:
+
+\begin{Code}
+\begin{listing}[200]{2}
+/* Contents of the file fscale.c */
+#ifndef USE_TK
+#define USE_TK
+#endif
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+#include <stk.h>
+/* 
+ *include the widget source code. Ugly but this avoid to have two
+ * source files to link
+ */
+#include "tkFScale.c"
+\end{listing}
+\end{Code}
+\begin{Code}
+\begin{listing}[200]{2}
+PRIMITIVE STk_init_fscale(void)
+{
+  Tcl_CreateCommand(STk_main_interp, 
+                    "fscale", 
+                    Tk_FScaleCmd, 
+                    (ClientData) Tk_MainWindow(STk_main_interp), 
+                    (void (*)()) NULL);
+}
+\end{listing}
+\end{Code}
+
+\section{Extending the interpreter with C++}
+
+[for eg : Identify the problems]
+
+\section{Embedding the STk interpreter}
+
+[for eg: This parts need some work in the interpreter]
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\pagebreak
+{\Large\bf Appendix}
+\par
+Hereafter is the complete code for the stack type discussed in \ref{stack}
+{\footnotesize
+\verbatiminput{stack.c}
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\bibliography{bibliography}
+\input{Extending.ind}
+
+\end{document}
+% LocalWords:  STk RS unsrt pt Erick Gallesio Universit de Antipolis CNRS URA
+% LocalWords:  Laboratoire ESSI des Colles Cedex mm email eg unice fr fancybox
+% LocalWords:  fancyheadings fancyplain posix ctime UTC makeinteger tc subr SCM
+% LocalWords:  arity makestring stk stklos scm init sec struct obj Src int MIN
+% LocalWords:  lsubr argcount fsubr env tkcommand Tcl argc argv makevect CDR GC
+% LocalWords:  VECT NULLP eval Ntruth LISTx val foo var errno resp pre gc fct
+% LocalWords:  args EXT ISPROC EVALPARAM getc ungetc putc eof DSP WRT TK Tk pic
+% LocalWords:  Solaris SunOs ld
diff --git a/Doc/Extension/Makefile b/Doc/Extension/Makefile
new file mode 100644
index 0000000..05bbc0d
--- /dev/null
+++ b/Doc/Extension/Makefile
@@ -0,0 +1,24 @@
+#
+# Makefile for Doc/Extension
+#
+
+SRC = Extending.tex
+
+all: dvi ps
+
+dvi: 	Extending.dvi
+ps:	Extending.ps
+
+Extending.dvi: $(SRC)
+	echo -n > Extending.ind
+	latex Extending; makeindex Extending; bibtex Extending;
+	latex Extending; latex Extending
+
+Extending.ps: Extending.dvi
+	dvips -f Extending > Extending.ps
+
+clean:
+	rm -f *.aux *.idx *.log *~ *.so *.bbl *.blg *.ilg *.ind *.toc
+
+very-clean: clean
+	rm -f *.dvi *.ps
diff --git a/Doc/Extension/bibliography.bib b/Doc/Extension/bibliography.bib
new file mode 120000
index 0000000..1ef17d3
--- /dev/null
+++ b/Doc/Extension/bibliography.bib
@@ -0,0 +1 @@
+../Reference/bibliography.bib
\ No newline at end of file
diff --git a/Doc/Extension/eg-commands.sty b/Doc/Extension/eg-commands.sty
new file mode 120000
index 0000000..565743a
--- /dev/null
+++ b/Doc/Extension/eg-commands.sty
@@ -0,0 +1 @@
+../Reference/eg-commands.sty
\ No newline at end of file
diff --git a/Doc/Extension/hash.c b/Doc/Extension/hash.c
new file mode 120000
index 0000000..9facf3d
--- /dev/null
+++ b/Doc/Extension/hash.c
@@ -0,0 +1 @@
+../../Extensions/hash.c
\ No newline at end of file
diff --git a/Doc/Extension/posix.c b/Doc/Extension/posix.c
new file mode 120000
index 0000000..78c1a99
--- /dev/null
+++ b/Doc/Extension/posix.c
@@ -0,0 +1 @@
+../../Extensions/posix.c
\ No newline at end of file
diff --git a/Doc/Extension/stack.c b/Doc/Extension/stack.c
new file mode 120000
index 0000000..8df3e5a
--- /dev/null
+++ b/Doc/Extension/stack.c
@@ -0,0 +1 @@
+../../Extensions/stack.c
\ No newline at end of file
diff --git a/Doc/Extension/time.c b/Doc/Extension/time.c
new file mode 120000
index 0000000..3392706
--- /dev/null
+++ b/Doc/Extension/time.c
@@ -0,0 +1 @@
+../../Extensions/time.c
\ No newline at end of file
diff --git a/Doc/FAQ/FAQ-1.html b/Doc/FAQ/FAQ-1.html
new file mode 100644
index 0000000..fb0f810
--- /dev/null
+++ b/Doc/FAQ/FAQ-1.html
@@ -0,0 +1,224 @@
+<HTML>
+<HEAD>
+<TITLE>Introduction </TITLE>
+</HEAD>
+<BODY>
+<H1>1. <A NAME="s1"></A>Introduction </H1>
+<P>
+<A HREF="FAQ.html#toc1">Contents of this section</A></P>
+
+<P></P>
+<P>The aim of this document is to answer to the frequently asked questions about STk. First versions of this document were written by Marc Furrer 
+<A HREF="mailto:furrer@di.epfl.ch">(furrer@di.epfl.ch)</A>
+with the support of Erick Gallesio 
+<A HREF="mailto:eg@unice.fr">(eg@unice.fr)</A>
+ Marc has not enough time to continue to maintain the FAQ up to date and he asked me to continue. Since I too have not a lot of time for keeping the FAQ alive, any help would be greatly apreciated. </P>
+<P>The latest version of the FAQ is available at 
+<A HREF="http://kaolin.unice.fr/FAQ/FAQ.html">http://kaolin.unice.fr/FAQ/FAQ.html</A>
+ Text and Postscript versions of this document are also available at 
+<A HREF="ftp://kaolin.unice.fr/pub/FAQ">ftp://kaolin.unice.fr/pub/FAQ</A>
+ The HTML version is the recommended version of this document since all the links to other documents or softwares can be followed just by clicking on them.</P>
+<P>This version of the document is very incomplete and if you think of questions that are appropriate for this FAQ, or would like to improve an answer, please send me e-mail. </P>
+<H2>1.1 <A NAME="ss1.1"></A> Subject: What is STk</H2>
+
+<P></P>
+<P>STk is a R4RS Scheme interpreter which can access to the Tk graphical package. It can be seen as the John Ousterhout's Tk package where the Tcl language has been replaced by Scheme (for more information on Scheme, Tcl and Tk, see the references below).</P>
+<P>STk also provides an efficient object oriented system called STklos. STklos is an OO system with multi-inheritance, generic functions, multi-methods. It's implementation relies on a Meta Object Protocol (MOP) inspired from the Tiny -CLOS model. </P>
+<P>Other features of STk are:
+<UL>
+<LI>Interpreter can be easily extended by adding new C modules. </LI>
+<LI>All the commands defined by the Tk toolkit are available to the STk interpreter (Tk commands are seen as a special type of objects by the interpreter). </LI>
+<LI>Widgets callbacks are Scheme closures </LI>
+<LI>Based on Tk4.1 (the last stable release of Tk)</LI>
+<LI>STk does not use the Tcl interpreter for Tk programming </LI>
+<LI>Tk variables (such are -textvariable) are reflected back into Scheme as Scheme variables. </LI>
+<LI>A set of STklos classes have been defined to manipulate Tk commands (menu, buttons, scales, canvas, canvas items) as STklos objects. </LI>
+<LI>New widgets can easily be built in STklos by composition of existing widgets.</LI>
+</UL>
+</P>
+
+<H2>1.2 <A NAME="ss1.2"></A> Subject: Where do I get STk from</H2>
+
+<P></P>
+<P>STk distribution is available on various sites. The official distribution site is 
+<A HREF="http://kaolin.unice.fr/">http://kaolin.unice.fr/</A>
+or 
+<A HREF="ftp://kaolin.unice.fr/pub">ftp://kaolin.unice.fr/pub</A>
+ Distribution file names have the form <CODE>STk-x.y.tar.gz,</CODE> where <CODE>x</CODE> and <CODE>y</CODE> represent the version and the release of the package. You can also find here interim releases of STk. Intermediate releases are stored in file whose name have the form <CODE>STk-x.y.z.tar.gz</CODE> where <CODE>z</CODE> is the intermediate release number. Last stable release can be taken from 
+<A HREF="http://kaolin.unice.fr/STk.tar.gz">http://kaolin.unice.fr/STk.tar.gz</A>
+or 
+<A HREF="ftp://kaolin.unice.fr/pub/STk.tar.gz">ftp://kaolin.unice.fr/pub/STk.tar.gz</A>
+</P>
+
+<H2>1.3 <A NAME="ss1.3"></A> Subject: Are there distribution mirror sites</H2>
+
+<P></P>
+<P>Stable releases of STk are also placed in 
+<A HREF="ftp://sunsite.unc.edu/pub/Linux/devel/lang/lisp">ftp://sunsite.unc.edu/pub/Linux/devel/lang/lisp</A>
+ Since this site is eavily mirrored around the planet, you should easily find a stable release near you.</P>
+<P>David Fox also maintain a mirror site of kaolin (daily updated) in the USA at the following URL 
+<A HREF="ftp://cs.nyu.edu/pub/local/fox/stk">ftp://cs.nyu.edu/pub/local/fox/stk</A>
+</P>
+
+<H2>1.4 <A NAME="ss1.4"></A> Subject: Which are the systems STk support</H2>
+
+<P></P>
+<P>STk runs on a large variety of Unixes. It is known to run on:
+<UL>
+<LI>Sparc (SunOs 4.1.x &amp; Solaris 2.{34})</LI>
+<LI>Dec 5xxx (Ultrix 4.2)</LI>
+<LI>SGI (IRIX 4.05, 5.1.1, 5.2)</LI>
+<LI>DEC Alpha 3000/400 (OSF-1 V1.3)</LI>
+<LI>RS6000 AIX 3.2.5</LI>
+<LI>HP 9000/735 (HP-UX 9.01)</LI>
+<LI>PC (Linux 1.0 -&gt; 2.0)</LI>
+<LI>PC (FreeBSD 1.1) </LI>
+<LI>PC (SCO) Thanks to markd@grizzly.com</LI>
+<LI>PC (NetBSD-1.0)</LI>
+<LI>Sony WS (Sony NEWS, NEWSOS 4.2R)</LI>
+<LI>...</LI>
+</UL>
+</P>
+
+<H2>1.5 <A NAME="ss1.5"></A> Subject: STk and Windows</H2>
+
+<P></P>
+<P>Starting with release 3.1, STk runs on 32 bits Microsoft Windows (only tested on Windows 95, but it should run on Windows NT). This version is based on the Tk 4.1 final release.</P>
+<P>STk Win32 version is distributed in source and binary forms, since binary release seems more convenient on Windows.</P>
+<P>Development of STk on this platform is not easy for me since it is not the system I use dayly. In particular, a lot of work need to be done (loading of packages compiled in DLL, sockets, ...). Help of a Win32 hacker would be greatly appreciated to achieve those tasks. </P>
+
+<H2>1.6 <A NAME="ss1.6"></A> Subject: STk and MacOS</H2>
+
+<P></P>
+<P>It is not intended to port STk on MAcOS, by lack of resource (and interest of myself :). However, port should be simple for a Mac hacker. I can provide help if necessary for this job. </P>
+<P>Another way to run STk on a Mac consists to run STk under Mach Ten. If I have well understood, Mach Ten is a Unix (Mach-) like system running on top of MacOS. STk compiles fine on this system.</P>
+
+<H2>1.7 <A NAME="ss1.7"></A> Subject: Getting more information about Scheme</H2>
+
+<P></P>
+<P><B>The R4RS document</B>
+<UL>
+<LI>R4RS is the document which fully describes the Scheme Programming Language, it can be found in the Scheme repository at the following URL 
+<A HREF="ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc">ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc</A>
+</LI>
+<LI>Aubrey Jaffer has also translated this document in HTML. A version of this document can be browsed at 
+<A HREF="http://www-swiss.ai.mit.edu/~jaffer/r4rs\_toc.html">http://www-swiss.ai.mit.edu/~jaffer/r4rs\_toc.html</A>
+</LI>
+</UL>
+</P>
+<P><B>The Scheme Repository </B></P>
+<P>The main site where you can find (many) informations about Scheme is located in the University of Indiana. The Scheme repository is maintained by David Eby. The repository currently consists of the following areas:
+<UL>
+<LI>Lots of scheme code meant for benchmarking, library/support, research, education, and fun. </LI>
+<LI>On-line documents: Machine readable standards documents, standards proposals, various Scheme-related tech reports, conference papers, mail archives, etc. </LI>
+<LI>Most of the publicly available Scheme Implementations. </LI>
+<LI>Material designed primarily for instruction.</LI>
+<LI>Freely-distributable promotional or demonstration material for Scheme-related products. </LI>
+<LI>Utilities (e.g., Schemeweb, SLaTeX). </LI>
+<LI>Extraneous stuff, extensions, etc. </LI>
+</UL>
+</P>
+<P>You can access the Scheme repository at:
+<UL>
+<LI>
+<A HREF="ftp://ftp.cs.indiana.edu/pub/scheme-repository">ftp://ftp.cs.indiana.edu/pub/scheme-repository</A>
+</LI>
+<LI>
+<A HREF="http://www.cs.indiana.edu/scheme-repository/SRhome.html">http://www.cs.indiana.edu/scheme-repository/SRhome.html</A>
+</LI>
+</UL>
+</P>
+<P>The Scheme Repository is mirrored in Europe at: 
+<UL>
+<LI>
+<A HREF="ftp://ftp.inria.fr/lang/Scheme">ftp://ftp.inria.fr/lang/Scheme</A>
+</LI>
+<LI>
+<A HREF="ftp://faui80.informatik.uni-erlangen.de/pub/scheme/yorku">ftp://faui80.informatik.uni-erlangen.de/pub/scheme/yorku</A>
+</LI>
+<LI>
+<A HREF="ftp://ftp.informatik.uni-muenchen.de/pub/comp/programming/ languftp://ftp.informatik.uni-muenchen.de/pub/comp/programming/ languages/scheme/scheme-repository">ftp://ftp.informatik.uni-muenchen.de/pub/comp/programming/ languages/scheme/scheme-repository</A>
+</LI>
+</UL>
+</P>
+<P><B>Usenet newsgroup and other addresses</B></P>
+<P>There is a usenet newsgroup about the Scheme Programming language: 
+<A HREF="news:comp.lang.scheme">comp.lang.scheme</A>
+</P>
+<P><B>Miscelleanous</B></P>
+<P>Following addresses contains also interesting material about the Scheme language
+<UL>
+<LI>The Scheme FAQ 
+<A HREF="http://www.cs.cmu.edu:8001/Web/Groups/AI/html/faqs/lang/scheme/thttp://www.cs.cmu.edu:8001/Web/Groups/AI/html/faqs/lang/scheme/top.htmlheme/scheme-repository">http://www.cs.cmu.edu:8001/Web/Groups/AI/html/faqs/lang/scheme/top.htmlheme/scheme-repository</A>
+</LI>
+<LI>The Scheme Home Page at MIT 
+<A HREF="http://www-swiss.ai.mit.edu/scheme-home.html">http://www-swiss.ai.mit.edu/scheme-home.html</A>
+</LI>
+<LI>The Scheme Underground web page: 
+<A HREF="http://www.ai.mit.edu/projects/su/su.html">http://www.ai.mit.edu/projects/su/su.html</A>
+</LI>
+</UL>
+</P>
+
+<H2>1.8 <A NAME="ss1.8"></A> Subject: Differences with R4RS</H2>
+
+<P></P>
+<P><B>Symbols</B></P>
+<P>STk symbol syntax has been augmented to allow case significant symbols. Many global symbols have been added to the global environment, see Appendix B of the <CODE></CODE><CODE><B>STk</B></CODE><B></B> Reference Manual. </P>
+<P><B>Types </B></P>
+<P>STk implements all the types defined as mandatory in R4RS. However, complex numbers and rational numbers (which are defined but not required in R4RS) are not implemented. The lack of these types implies that some functions of R4RS are not defined. </P>
+<P>Some types which are not defined in R4RS are implemented in STk. Those types are listed below:
+<UL>
+<LI>input string port type </LI>
+<LI>output string port type </LI>
+<LI>keyword type </LI>
+<LI>Tk command type (to use the Tk widgets)</LI>
+<LI>environment type (environments are first class in STk)</LI>
+<LI>macro type </LI>
+<LI>address type (obsolete now)</LI>
+<LI>hash table type </LI>
+<LI>process type (launch and communication with subprocess)</LI>
+<LI>socket type (TCP/UDP sockets)</LI>
+<LI>regexp type (access to tcl regexp)</LI>
+</UL>
+</P>
+<P><B>Procedures</B></P>
+<P>The following procedures are required by R4RS and are not implemented in the STk interpreter: 
+<UL>
+<LI>transcript-off </LI>
+<LI>transcript-on</LI>
+</UL>
+</P>
+<P>These procedure can be easily simulated with various Unix tools such as <EM>script </EM>or <EM>fep</EM>. </P>
+<P>The following procedures are not implemented in the STk interpreter whereas they are defined in R4RS (but not required). They are all related to complex or rational numbers:
+<UL>
+<LI>numerator </LI>
+<LI>denominator </LI>
+<LI>rationalize </LI>
+<LI>make-rectangular </LI>
+<LI>make-polar </LI>
+<LI>real-part </LI>
+<LI>imag-part</LI>
+<LI>magnitude </LI>
+<LI>angle</LI>
+</UL>
+</P>
+<P>This is more detailed in the Appendix B of the STk Reference Manual.</P>
+
+<H2>1.9 <A NAME="ss1.9"></A> Subject: Compatibility with SLIB</H2>
+
+<P></P>
+<P>Aubrey Jaffer maintains a package called <B>SLIB</B> which is a portable Scheme library which provides compatibility and utility functions for all standard Scheme implementations. To use this package, you have just to type </P>
+<P><CODE>(require "slib")</CODE></P>
+<P>and follow the instructions given in the library to use a particular package. </P>
+
+<HR>
+<P>
+<A HREF="FAQ-2.html">Next</A> Chapter<P>
+Table of contents of <A HREF="FAQ.html#toc1">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ-2.html b/Doc/FAQ/FAQ-2.html
new file mode 100644
index 0000000..4fe7e8e
--- /dev/null
+++ b/Doc/FAQ/FAQ-2.html
@@ -0,0 +1,67 @@
+<HTML>
+<HEAD>
+<TITLE>Contributed Packages</TITLE>
+</HEAD>
+<BODY>
+<H1>2. <A NAME="s2"></A>Contributed Packages</H1>
+<P>
+<A HREF="FAQ.html#toc2">Contents of this section</A></P>
+
+<P></P>
+<P>Small (in size) contributions are included in the release. Among them we can cite:
+<UL>
+<LI><EM>STk-wtour</EM>: A didactic demo to learn <B>STk</B> written by Suresh Srinivas 
+<A HREF="mailto:ssriniva@cs.indiana.edu">(ssriniva@cs.indiana.edu)</A>
+</LI>
+<LI><EM>Stetris : </EM>A tetris game written by Harvey J. Stein 
+<A HREF="mailto:hjstein@math.huji.ac.il">(hjstein@math.huji.ac.il)</A>
+</LI>
+<LI><EM>Queens</EM>: The famous 8 queens problem by Grant Edwards 
+<A HREF="mailto:grante@winternet.com">(grante@winternet.com)</A>
+</LI>
+<LI><EM>Ttt</EM>: A 3-D Tic-Tac-Toe by Edin "Dino" Hodzic 
+<A HREF="mailto:ehodzic@scu.edu">ehodzic@scu.edu</A>
+</LI>
+</UL>
+</P>
+<P>Complex contributions are kept in the 
+<A HREF="ftp://kaolin.unice.fr/pub/Contrib">ftp://kaolin.unice.fr/pub/Contrib</A>
+directory. This directory contains also old code which should probably be updated to work with current STk release. Among the packages which can be found in this directory are:
+<UL>
+<LI><EM>EnvDraw</EM>: is a environment diagramming package which draws environment diagrams as taught in Abelson and Sussman's <EM>Structure and Interpretation of Computer Languages</EM>. It was written as an instructional tool for the CS61A course at the University of California at Berkeley. The environment diagrammer is a metacircular evaluator which draws procedures, environments, and box and pointer diagrams along with all the accompanying symbols and mutation. It includes a box and pointer diagrammer which handles circular list structures, cons cell mutation, and also will watch for modification of any symbols known to be pointing to drawn cells. The author of this very neat package is Josh MacDonald 
+<A HREF="mailto:jmacd@po.EECS.Berkeley.EDU">jmacd@po.EECS.Berkeley.EDU</A>
+</LI>
+<LI><EM>WWW </EM>is a HTML browser which greatly enhances the hbrowse demo which is part of STk distribution. You should look at this package. Author: Harvey J. Stein 
+<A HREF="mailto:hjstein@math.huji.ac.il">hjstein@math.huji.ac.il</A>
+</LI>
+<LI><EM>Nanocad</EM> is chemistery CAD program which allows you to create small molecules and to rotate them. The author of this package is Will Ware 
+<A HREF="mailto:wware@world.std.com">wware@world.std.com</A>
+</LI>
+<LI>...</LI>
+</UL>
+</P>
+<P>Some packages are not in the <CODE>kaolin</CODE> <CODE>Contrib</CODE> directory:
+<UL>
+<LI>A preemptive thread package can be found at 
+<A HREF="ftp://ftp.cs.uoregon.edu/pub/lth/tasking-alpha2.tar.gz">ftp://ftp.cs.uoregon.edu/pub/lth/tasking-alpha2.tar.gz</A>
+ The uthor of this package is Lars Thomas Hansen 
+<A HREF="lth@cs.uoregon.edu">lth@cs.uoregon.edu</A>
+</LI>
+<LI>A low level interface to the Postgres 95 Database can be found at http://www.webbuild.com/~rtoy/pgstk/http://www.webbuild.com/~rtoy/pgstk/ .</LI>
+<LI><EM>Tabula rasa </EM>is a system written by David Fox which use the STk interpreter (but not Tk).This package can be found at ?????. (TO BE COMPLETED)</LI>
+<LI>spice package from Fritz.Heinrichmeyer@fernuni-hagen.de (I cannot find the reference)</LI>
+<LI>...</LI>
+</UL>
+</P>
+<HR>
+<P>
+<A HREF="FAQ-3.html">Next</A> Chapter,
+<A HREF="FAQ-1.html">Previous</A> Chapter
+<P>
+Table of contents of <A HREF="FAQ.html#toc2">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ-3.html b/Doc/FAQ/FAQ-3.html
new file mode 100644
index 0000000..507c1c5
--- /dev/null
+++ b/Doc/FAQ/FAQ-3.html
@@ -0,0 +1,23 @@
+<HTML>
+<HEAD>
+<TITLE>STk tips</TITLE>
+</HEAD>
+<BODY>
+<H1>3. <A NAME="s3"></A>STk tips</H1>
+<P>
+<A HREF="FAQ.html#toc3">Contents of this section</A></P>
+
+<P></P>
+<P>TO BE COMPLETED</P>
+<HR>
+<P>
+<A HREF="FAQ-4.html">Next</A> Chapter,
+<A HREF="FAQ-2.html">Previous</A> Chapter
+<P>
+Table of contents of <A HREF="FAQ.html#toc3">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ-4.html b/Doc/FAQ/FAQ-4.html
new file mode 100644
index 0000000..d74f82a
--- /dev/null
+++ b/Doc/FAQ/FAQ-4.html
@@ -0,0 +1,23 @@
+<HTML>
+<HEAD>
+<TITLE>STklos tips</TITLE>
+</HEAD>
+<BODY>
+<H1>4. <A NAME="s4"></A>STklos tips</H1>
+<P>
+<A HREF="FAQ.html#toc4">Contents of this section</A></P>
+
+<P></P>
+<P>TO BE COMPLETED</P>
+<HR>
+<P>
+<A HREF="FAQ-5.html">Next</A> Chapter,
+<A HREF="FAQ-3.html">Previous</A> Chapter
+<P>
+Table of contents of <A HREF="FAQ.html#toc4">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ-5.html b/Doc/FAQ/FAQ-5.html
new file mode 100644
index 0000000..4f874e8
--- /dev/null
+++ b/Doc/FAQ/FAQ-5.html
@@ -0,0 +1,33 @@
+<HTML>
+<HEAD>
+<TITLE>Getting more information about Tk</TITLE>
+</HEAD>
+<BODY>
+<H1>5. <A NAME="s5"></A>Getting more information about Tk</H1>
+<P>
+<A HREF="FAQ.html#toc5">Contents of this section</A></P>
+
+<P></P>
+<P>There are two reference book about Tk (of course, you better not read the chapters about Tcl ;-):
+<UL>
+<LI>"Tcl and the Tk Toolkit" by John Ousterhout (the author of the Tcl/Tk package), ISBN  0-201-63337-X, Addison-Wesley, April 1994.</LI>
+<LI>"Practical Programming in Tcl and Tk" by Brent Welch, ISBN 0-13-182007-9, Prentice Hall, 1995.</LI>
+</UL>
+</P>
+<P>There is also a Usenet newsgroup for Tcl/Tk: 
+<A HREF="news:comp.lang.tcl">comp.lang.tcl</A>
+ A FAQ, for Tcl/Tk is regulary posted in 
+<A HREF="news:comp.lang.tcl.annonce">comp.lang.tcl.annonce</A>
+ </P>
+<HR>
+<P>
+<A HREF="FAQ-6.html">Next</A> Chapter,
+<A HREF="FAQ-4.html">Previous</A> Chapter
+<P>
+Table of contents of <A HREF="FAQ.html#toc5">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ-6.html b/Doc/FAQ/FAQ-6.html
new file mode 100644
index 0000000..eaefc0f
--- /dev/null
+++ b/Doc/FAQ/FAQ-6.html
@@ -0,0 +1,66 @@
+<HTML>
+<HEAD>
+<TITLE>Miscelleanous</TITLE>
+</HEAD>
+<BODY>
+<H1>6. <A NAME="s6"></A>Miscelleanous</H1>
+<P>
+<A HREF="FAQ.html#toc6">Contents of this section</A></P>
+
+<P></P>
+<H2>6.1 <A NAME="ss6.1"></A> Subject: The STk Mailing List</H2>
+
+<P></P>
+<P>There is a mailing list for STk located on <CODE>kaolin.unice.fr</CODE>. The intent of this mailing list is to permit to STk users to share experiences, expose problems, submit ideas and everything which you find interesting (and which is related to STk). </P>
+<P>To <EM>subscribe</EM> to the mailing list, simply send a message with the word <CODE>"subscribe"</CODE> in the <CODE>Subject:</CODE> field of you mail. Mail must be sent to the following address: <CODE>
+<A HREF="mailto:stk-request@kaolin.unice.fr">stk-request@kaolin.unice.fr</A>
+.</CODE></P>
+<P>To <EM>unsubscribe</EM> from the mailing list, send a mail at previous e-mail address with the word <CODE>"unsubscribe"</CODE> in the <CODE>Subject:</CODE> field. </P>
+<P>For more information on the mailing list management, send a message with the word <CODE>"help"</CODE> in the <CODE>Subject:</CODE> field of your mail. In particular, it is possible to find all the messages which have already been sent on the STk mailing list. </P>
+<P>Subscription/un-subscription/information requests are processed automatically without human intervention. If something goes wrong, send a mail to 
+<A HREF="mailto:eg@unice.fr">eg@unice.fr</A>
+ </P>
+<P>Once you have properly subscribe to the mailing list, 
+<UL>
+<LI>you can send your messages about STk to 
+<A HREF="mailto:stk@kaolin.unice.fr">stk@kaolin.unice.fr</A>
+ </LI>
+<LI>you will receive all the messages of the mailing list to the e-mail address you used when you subscribed to the list.</LI>
+</UL>
+</P>
+<P>The mailing list is archived at: 
+<UL>
+<LI>
+<A HREF="http://kaolin.unice.fr/mlist/Hypermail/index.html">http://kaolin.unice.fr/mlist/Hypermail/index.html</A>
+in hypertext format, or</LI>
+<LI>
+<A HREF="ftp://kaolin.unice.fr/pub/MailingList/index.html">ftp://kaolin.unice.fr/pub/MailingList/index.html</A>
+as raw text.</LI>
+</UL>
+</P>
+
+<H2>6.2 <A NAME="ss6.2"></A> Subject: Reporting a Bug</H2>
+
+<P></P>
+<P>When you find a bug in STk, please send its description to the following address 
+<A HREF="mailto:stk-bugs@kaolin.unice.fr">stk-bugs@kaolin.unice.fr</A>
+. Don't forget to indicate the STk version you use, the architecture and the system release on which you run the interpreter. STk version and architecture can be found by using the <CODE>version</CODE> and <CODE>machine-type</CODE> Scheme primitives. If possible, try to find a small program which exhibit the bug. Even better, if you have a patch, plese send it at the previous address. </P>
+
+<H2>6.3 <A NAME="ss6.3"></A> Subject: Using STk from Emacs</H2>
+
+<P></P>
+<P>There are several ways to call <CODE>STk</CODE> from emacs. One simple way consists to add the following lines in your file <CODE>$HOME/.emacs:</CODE></P>
+<P>TO BE COMPLETED (with ILISP)</P>
+<P></P>
+
+<HR>
+<P>
+<A HREF="FAQ-5.html">Previous</A> Chapter
+<P>
+Table of contents of <A HREF="FAQ.html#toc6">this chapter</A>,
+ General <A HREF="FAQ.html#toc">table of contents</A></P>
+<P>
+<A HREF="FAQ.html">Top</A> of the document,
+ <A HREF="#0"> Beginning of this Chapter</A></P>
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ.dvi b/Doc/FAQ/FAQ.dvi
new file mode 100644
index 0000000..1c02af4
Binary files /dev/null and b/Doc/FAQ/FAQ.dvi differ
diff --git a/Doc/FAQ/FAQ.html b/Doc/FAQ/FAQ.html
new file mode 100644
index 0000000..eed3f98
--- /dev/null
+++ b/Doc/FAQ/FAQ.html
@@ -0,0 +1,54 @@
+
+<HTML>
+<HEAD>
+<TITLE>Answers to the Frequently Asked Questions about STk</TITLE>
+</HEAD>
+<BODY>
+<H1>Answers to the Frequently Asked Questions about STk</H1>
+
+<H2>Erick Gallesio</H2>July 1996
+<P>
+<H2><A NAME="toc1"></A>1. <A HREF="FAQ-1.html">Introduction </A></H2>
+<UL>
+<LI><A HREF="FAQ-1.html#ss1.1">1.1 Subject: What is STk</A>
+<LI><A HREF="FAQ-1.html#ss1.2">1.2 Subject: Where do I get STk from</A>
+<LI><A HREF="FAQ-1.html#ss1.3">1.3 Subject: Are there distribution mirror sites</A>
+<LI><A HREF="FAQ-1.html#ss1.4">1.4 Subject: Which are the systems STk support</A>
+<LI><A HREF="FAQ-1.html#ss1.5">1.5 Subject: STk and Windows</A>
+<LI><A HREF="FAQ-1.html#ss1.6">1.6 Subject: STk and MacOS</A>
+<LI><A HREF="FAQ-1.html#ss1.7">1.7 Subject: Getting more information about Scheme</A>
+<LI><A HREF="FAQ-1.html#ss1.8">1.8 Subject: Differences with R4RS</A>
+<LI><A HREF="FAQ-1.html#ss1.9">1.9 Subject: Compatibility with SLIB</A>
+</UL>
+
+<P>
+<H2><A NAME="toc2"></A>2. <A HREF="FAQ-2.html">Contributed Packages</A></H2>
+<UL>
+</UL>
+
+<P>
+<H2><A NAME="toc3"></A>3. <A HREF="FAQ-3.html">STk tips</A></H2>
+<UL>
+</UL>
+
+<P>
+<H2><A NAME="toc4"></A>4. <A HREF="FAQ-4.html">STklos tips</A></H2>
+<UL>
+</UL>
+
+<P>
+<H2><A NAME="toc5"></A>5. <A HREF="FAQ-5.html">Getting more information about Tk</A></H2>
+<UL>
+</UL>
+
+<P>
+<H2><A NAME="toc6"></A>6. <A HREF="FAQ-6.html">Miscelleanous</A></H2>
+<UL>
+<LI><A HREF="FAQ-6.html#ss6.1">6.1 Subject: The STk Mailing List</A>
+<LI><A HREF="FAQ-6.html#ss6.2">6.2 Subject: Reporting a Bug</A>
+<LI><A HREF="FAQ-6.html#ss6.3">6.3 Subject: Using STk from Emacs</A>
+</UL>
+
+
+</BODY>
+</HTML>
diff --git a/Doc/FAQ/FAQ.ps b/Doc/FAQ/FAQ.ps
new file mode 100644
index 0000000..ea512e9
--- /dev/null
+++ b/Doc/FAQ/FAQ.ps
@@ -0,0 +1,1024 @@
+%!PS-Adobe-2.0
+%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
+%%Title: FAQ.dvi
+%%Pages: 9
+%%PageOrder: Ascend
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%EndComments
+%DVIPSCommandLine: dvips -q -o FAQ.ps FAQ.dvi
+%DVIPSParameters: dpi=300, compressed, comments removed
+%DVIPSSource:  TeX output 1996.07.22:1839
+%%BeginProcSet: texc.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
+forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
+/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
+/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
+/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
+string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
+end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
+/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
+N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
+length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
+128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
+get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
+dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
+/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
+/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
+0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
+setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
+.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
+/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
+gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
+add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
+/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
+dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
+adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
+idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
+adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
+{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
+adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
+chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
+}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
+length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
+cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
+0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
+add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
+/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
+RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
+false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
+round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
+rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
+{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
+B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
+4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
+p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
+a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+TeXDict begin 39158280 55380996 1000 300 300 (FAQ.dvi)
+@start /Fa 32 120 df<EAFFC0A30A037D890F>45 D<1206120FA212061200AA123012
+7812F0126008127C910D>58 D<903803F02090381E0C6090383002E09038E003C03801C0
+01EA038048C7FC000E1480121E121C123C15005AA35AA41404A35C12705C6C5B00185B6C
+485AD80706C7FCEA01F81B1E7A9C1E>67 D<48B5FC39003C03C090383800E0A21570A249
+13781538A215785BA4484813F0A315E03803800115C0140315803907000700140E5C5C00
+0E13E0B512801D1C7E9B1F>I<48B512F038003C00013813301520A35BA214081500495A
+A21430EBFFF03801C020A439038040801400A2EC0100EA07005C14021406000E133CB512
+FC1C1C7E9B1C>I<EA03FFEA00781370A413E0A4EA01C0A4EA0380A4EA0700A4120EA412
+1EEAFFC0101C7D9B10>73 D<3801FFC038003C001338A45BA45BA4485AA438038002A314
+04EA0700140C14181438000E13F0B5FC171C7E9B1A>76 D<D801FCEBFF80D8001CEB1C00
+012E13181510A2132701475B13431480A2903881C040A3EB80E0D801005B1470A3000201
+39C7FCA3141D48131E140EA2120C001C1304EAFF80211C7E9B1F>78
+D<EB07F0EB1C1CEB700E497ED801C0138038038003EA0700000E14C0121E121C123CA25A
+A348EB0780A3EC0F00A2140E141E141C38707838EB8070387104E0383905C0381D078038
+0F0E04EA03FC3800040CEB0608EB0E18EB0FF013075CEB03801A257A9C20>81
+D<EB0F84EB304CEB403CEB8018EA01005AA200061310A214001207A2EA03E013FC6CB4FC
+38007F80EB07C01301A21300A21220A238600180A2EB03001302EAF004EACC18EA83E016
+1E7D9C17>83 D<001FB512C0381C070138300E0000201480126012405B1280A200001400
+5BA45BA45BA4485AA41203EA7FFE1A1C799B1E>I<3AFF83FF07F03A3C007001C0003815
+8002F01300A290380170025D13025D13045D13085D131001305B1320D81C405BA2D98071
+C7FCA2381D0072A2001E1374A2001C1338A20018133014201210241D779B29>87
+D<EA01E3EA0717EA0C0F1218EA380E12301270A2EAE01CA41339A3EA6079EA319AEA1E0C
+10127C9115>97 D<123F1207A2120EA45AA4EA39E0EA3A18EA3C0C12381270130EA3EAE0
+1CA31318133813301360EA60C0EA3180EA1E000F1D7C9C13>I<13F8EA0304120EEA1C0E
+EA181CEA30001270A25AA51304EA60081310EA3060EA0F800F127C9113>I<EB07E01300
+A2EB01C0A4EB0380A43801E700EA0717EA0C0F1218EA380E12301270A2485AA41339A3EA
+6079EA319AEA1E0C131D7C9C15>I<13F8EA0704120CEA1802EA38041230EA7008EA7FF0
+EAE000A5EA60041308EA30101360EA0F800F127C9113>I<EB03C0EB0670130CEB1C6014
+00A25BA53803FF8038007000A55BA5485AA5485AA390C7FCA25A12C612E65A1278142581
+9C0D>I<EB78C0EA01C5EA03031206000E1380120C121CA238380700A4130EA3EA181EEA
+0C7CEA079CEA001CA25BA2EAC030EAE070EAC1C0007FC7FC121A7E9113>I<EA01801203
+EA0100C7FCA7121C12261247A2128EA2120E5AA35AA21271A31272A2123C091C7C9B0D>
+105 D<EA0FC01201A2485AA448C7FCA4380E07801308EB11C01321381C4180EB8000001D
+C7FC121EEA3FC0EA38E01370A2EA7071A31372EAE032EA601C121D7E9C13>107
+D<EA1F801203A2EA0700A4120EA45AA45AA45AA412E2A312E412641238091D7D9C0B>I<
+391C1E078039266318C0394683A0E0384703C0008E1380A2120EA2391C0701C0A3EC0380
+D8380E1388A2EC0708151039701C032039300C01C01D127C9122>I<EA383EEA4CC3384D
+0380124E129E129C121CA238380700A3130E00701340A2131C1480EAE00C386007001212
+7C9117>I<13F8EA030CEA0E06487E1218123000701380A238E00700A3130EA25BEA6018
+5BEA30E0EA0F8011127C9115>I<380387803804C860EBD03013E0EA09C014381201A238
+038070A31460380700E014C0EB0180EB8300EA0E86137890C7FCA25AA45AB4FC151A8091
+15>I<EA1C3CEA2642EA4687EA4707EA8E061300120EA25AA45AA45A123010127C9112>
+114 D<EA01F0EA0608120C131CEA1818EA1C00121F13C0EA0FF01207EA00781338EA6030
+12E012C0EA8060EA60C0EA1F000E127D9111>I<12035AA3120EA4EAFFE0EA1C00A35AA4
+5AA4EAE080A2EAE100A2126612380B1A7C990E>I<381C0180EA2E03124EA2388E0700A2
+121CA2EA380EA438301C80A3EA383C38184D00EA0F8611127C9116>I<EA1C06EA2E0EEA
+4E06A2EA8E02A2121CA2EA3804A313081230A21310EA3820EA1840EA0F800F127C9113>
+I<381E0183382703871247148338870701A2120EA2381C0E02A31404EA180C131C1408EA
+1C1E380C26303807C3C018127C911C>I E /Fb 1 63 df<12C012F0123C120FEA03C0EA
+00F0133C130E6D7EEB01E0EB0078141EEC0780A2EC1E001478EB01E0EB0780010EC7FC13
+3C13F0EA03C0000FC8FC123C12F012C0191A7D9620>62 D E /Fc
+41 123 df<EA6030EAF078A8EAE038A30D0C7C9916>34 D<13C01201A3EA07F0EA1FFC48
+B4FCEA7DCF38F1C78012E1A338F1C300EA79C0127FEA1FF0EA07FCEA01FE13CFEBC780EA
+F1C3A3EAE1C712F13879DF00EA3FFE6C5AEA07E0EA01C0A2120011207E9C16>36
+D<13E01201EA07C013005A121E5A123812781270A312F05AA77E1270A312781238123C7E
+7E7E13C0EA01E012000B217A9C16>40 D<12E07E127C121C121E7EEA0780120313C01201
+A313E01200A7120113C0A3120313801207EA0F00121E121C127C12F05A0B217C9C16>I<
+1238127C127EA2123E120E121E123C127C12F81260070B798416>44
+D<B51280A311037E8D16>I<127012F8A312700505788416>I<EB01801303130714005B13
+0E131E131C133C13381378137013F05B12015BA212035B120790C7FC5A120E121E121C12
+3C12381278127012F05AA211207E9C16>I<127012F8A312701200A8127012F8A3127005
+12789116>58 D<13F8EA03FEEA0FFF381F0F80EA3E3FEA3CFF007913C0EA73C7EAF38312
+E71301A5138300F31380EA73C73879FF006C5AEA3E38381F03C0EA0FFF00031300EA00FC
+12197E9816>64 D<3801F180EA07FF5AEA1F0FEA3C0712781303127000F0C7FC5AA77E38
+7003801278A2EA3C07381F0F00EA0FFE6C5AEA01F011197E9816>67
+D<387FFFC0B5FC7EEA1C01A490C7FCA2131CA2EA1FFCA3EA1C1CA290C7FC14E0A5EA7FFF
+B5FC7E13197F9816>69 D<387F07F038FF8FF8387F07F0381C01C0A7EA1FFFA3EA1C01A9
+387F07F038FF8FF8387F07F01519809816>72 D<38FC07E0EAFE0FA2383A0B80EA3B1BA5
+13BBEA39B3A413F3EA38E3A21303A538FE0FE0A313197F9816>77
+D<EA1FFC487E487EEA780F38F00780EAE003AEEAF007A238780F00EA7FFF6C5A6C5A1119
+7E9816>79 D<EA07E3EA1FFF127FEA781F487E487EA290C7FC7E1278EA7F80EA1FF0EA07
+FCC67E130FEB07801303A212E0A2EAF00738F80F00EAFFFE5BEAC7F011197E9816>83
+D<387FFFE0B5FCA2EAE0E0A400001300AFEA07FC487E6C5A13197F9816>I<EA1FE0EA7F
+F87FEA783EEA301EEA000EA2EA03FE121FEA7E0E12F012E0A2EAF01EEAF83E387FFFE0EA
+3FE7EA0F8313127E9116>97 D<12FCA3121CA4137CEA1DFF001F1380EB07C0EA1E03381C
+01E0A21300A41301001E13C01303381F078013FF381DFE00EA0C7813197F9816>I<EA03
+F8EA0FFE121FEA3C1EEA780CEA700012F05AA47EEA70071278EA3E0FEA1FFEEA0FFCEA03
+F010127D9116>I<EA03F0EA0FFC487EEA3E1FEA780700701380EAF003B5FCA300E0C7FC
+7E387003801278EA3E0F381FFF006C5AEA03F811127E9116>101
+D<131FEBFF805AEA03C7EB83001380A2EA7FFFB5FCA2EA0380ACEA7FFC487E6C5A11197F
+9816>I<3803E3C0380FFFE05A381E3CC0383C1E00EA380EA3EA3C1E6C5AEA1FFC5BEA3B
+E00038C7FCA2EA1FFC13FF4813C0EA780338F001E0EAE000A3EAF001387C07C0383FFF80
+380FFE00EA03F8131C7F9116>I<12FCA3121CA41378EA1DFEEA1FFF130FEA1E07A2121C
+A938FF8FE0139F138F13197F9816>I<1203EA0780A2EA0300C7FCA4EAFF80A31203ACEA
+FFFC13FE13FC0F1A7C9916>I<13301378A213301300A4EA0FF8121F120FEA0038B3EA60
+78EAF0F0EAFFE0EA7FC0EA3F800D237E9916>I<127E12FE127E120EA4EB7FE0A3EB0F00
+131E5B5B5BEA0FF8A213BC131EEA0E0E130FEB0780387F87F0EAFFCFEA7F871419809816
+>I<EA7FC012FF127F1201B3EA7FFFB512806C130011197E9816>I<38F9C38038FFEFC0EB
+FFE0EA3E7CEA3C78EA3870AA38FE7CF8A31512809116>I<EAFC78EAFDFEB5FCEA1F0FEA
+1E07A2121CA938FF8FE0139F138F13127F9116>I<EA03E0EA0FF8487EEA3C1E487EEA70
+0738E00380A5EAF00700701300EA780FEA3C1EEA1FFC6C5AEA03E011127E9116>I<EAFC
+7CEAFDFFB51280381F07C0EA1E03381C01E0A21300A41301001E13C01303381F078013FF
+381DFE00EA1C7890C7FCA6B47EA3131B7F9116>I<3803E380EA0FFBEA1FFFEA3E1FEA78
+0FEA7007EAF00312E0A412F0EA7007EA780FEA3C1FEA3FFFEA0FFBEA03E3EA0003A6EB1F
+F0EB3FF8EB1FF0151B7F9116>I<387F0FC038FF3FE0EA7F7F3807F040EBE0005B5BA290
+C7FCA7EA7FFC12FF127F13127F9116>I<EA0FECEA3FFC127FEAF03CEAE01CA2EAF000EA
+7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC13F8EAC7E00F127D9116>I<12
+035AA4EA7FFFB5FCA20007C7FCA75BEB0380A2130713873803FF005BEA00F811177F9616
+>I<EAFC3FA3EA1C07AA5BEA1E1F381FFFE07EEA07C713127F9116>I<387F1FC038FF9FE0
+387F1FC0381C0700A2EA0E0EA36C5AA4EA03B8A3EA01F0A26C5A13127F9116>I<387F1F
+C0133F131F380F1E006C5AEA03B813F012016C5A12017FEA03B8EA073C131CEA0E0E387F
+1FC038FF3FE0387F1FC013127F9116>120 D<387F1FC038FF9FE0387F1FC0381C070012
+0E130EA212075BA2EA039CA21398EA01B8A2EA00F0A35BA3485A1279127BEA7F8090C7FC
+123C131B7F9116>I<383FFFC05AA238700780EB0F00131EC65A13F8485A485A485A48C7
+FC381E01C0123C1278B5FCA312127F9116>I E /Fd 3 104 df<EA07E0EA1FF8EA3FFCEA
+7FFEA2B5FCA6EA7FFEA2EA3FFCEA1FF8EA07E010107E9115>15 D<133C13E0EA01C01380
+1203AD13005A121C12F0121C12077E1380AD120113C0EA00E0133C0E297D9E15>102
+D<12F0121C12077E1380AD120113C0EA00E0133C13E0EA01C013801203AD13005A121C12
+F00E297D9E15>I E /Fe 49 122 df<90380FF83F90397FFDFFC03A01F81FE3E03903E0
+3F87EA07C0D80F801307ED03C06EC7FCA6B612FCA2260F801FC7FCB2397FF0FFF0A22323
+7FA221>11 D<1238127C12FEA3127C123807077C8610>46 D<13181378EA01F812FFA212
+01B3A7387FFFE0A213207C9F1C>49 D<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE
+0314F8A21301127CEA3803120014F0A2EB07E014C0EB0F80EB1F00133E13385BEBE018EA
+01C0EA0380EA0700000E1338380FFFF05A5A5AB5FCA215207D9F1C>I<13FE3807FFC038
+0F07E0381E03F0123FEB81F8A3EA1F0314F0120014E0EB07C0EB1F803801FE007F380007
+C0EB01F014F8EB00FCA2003C13FE127EB4FCA314FCEA7E01007813F8381E07F0380FFFC0
+3801FE0017207E9F1C>I<14E013011303A21307130F131FA21337137713E7EA01C71387
+EA03071207120E120C12181238127012E0B6FCA2380007E0A790B5FCA218207E9F1C>I<
+00301320383E01E0383FFFC0148014005B13F8EA33C00030C7FCA4EA31FCEA37FF383E0F
+C0383807E0EA3003000013F0A214F8A21238127C12FEA200FC13F0A2387007E0003013C0
+383C1F80380FFF00EA03F815207D9F1C>I<EB1F80EBFFE03803E0703807C0F0380F01F8
+121F123EA2387E00F0007C1300A2EAFC08EB7FC0EBFFE038FD80F038FF00F848137CA248
+137EA4127CA3003C137C123E001E13F86C13F0380783E03803FFC0C6130017207E9F1C>
+I<12601278387FFFFEA214FC14F8A214F038E0006014C038C00180EB0300A2EA00065B13
+1C131813381378A25BA31201A31203A76C5A17227DA11C>I<13FE3803FFC0380703E038
+0E00F05A1478123C123E123F1380EBE0F0381FF9E0EBFFC06C13806C13C06C13E04813F0
+381E7FF8383C1FFCEA7807EB01FEEAF000143E141EA36C131C007813387E001F13F0380F
+FFC00001130017207E9F1C>I<EA01FE3807FF80380F83E0381E01F0EA3E004813F81478
+00FC137CA3147EA4007C13FEA2EA3E01381E037EEA0FFEEA07FCEA0020EB007CA2121E00
+3F13F8A214F0EB01E0381E03C0381C0F80380FFE00EA03F817207E9F1C>I<1238127C12
+FEA3127C12381200A81238127C12FEA3127C123807167C9510>I<1470A214F8A3497EA2
+497EA3EB067FA2010C7F143FA2496C7EA201307F140F01707FEB6007A201C07F90B5FC48
+80EB8001A2D803007F14004880000680A23AFFE007FFF8A225227EA12A>65
+D<B67E15F03907F001F86E7E157EA2157FA5157E15FE5DEC03F890B55AA29038F001FCEC
+007E811680151F16C0A6ED3F80A2ED7F00EC01FEB612F815C022227EA128>I<D903FE13
+8090381FFF819038FF01E33901F8003FD803E0131F4848130F48481307121F48C71203A2
+481401127EA200FE91C7FCA8127EED0180127F7E15036C6C1400120F6C6C1306D803F05B
+6C6C13386CB413F090381FFFC0D903FEC7FC21227DA128>I<B67E15F03907F003FCEC00
+7E81ED1F80ED0FC0ED07E0A216F01503A316F8A916F0A3ED07E0A2ED0FC0ED1F80ED3F00
+157EEC03FCB612F0158025227EA12B>I<B612FCA23807F000153C151C150C150EA21506
+140CA31500141C143CEBFFFCA2EBF03C141C140CA21503A214001506A3150EA2151E153E
+EC01FCB6FCA220227EA125>I<D903FE134090391FFFC0C090387F00F1D801F8133F4848
+130FD807C01307000F1403485A48C71201A2481400127EA200FE1500A791380FFFFC127E
+007F9038001FC0A27EA26C7E6C7E6C7E6C7ED801FC133F39007F80E790381FFFC3010313
+0026227DA12C>71 D<B51280A23807F000B3ACB51280A211227EA115>73
+D<B512C0A2D807F0C7FCB31518A41538A21570A215F014011407B6FCA21D227EA122>76
+D<D8FFF0EC0FFF6D5C000716E0D806FC1437A3017E1467A26D14C7A290391F800187A290
+390FC00307A3903807E006A2903803F00CA2903801F818A3903800FC30A2EC7E60A2EC3F
+C0A2EC1F80A3EC0F00D8FFF091B5FC140630227EA135>I<EB07FC90383FFF809038FC07
+E03903F001F848486C7E4848137E48487FA248C7EA1F80A24815C0007E140FA200FE15E0
+A9007E15C0007F141FA26C15806D133F001F15006C6C137E6C6C5B6C6C485A3900FC07E0
+90383FFF80D907FCC7FC23227DA12A>79 D<B512FEECFFC03907F007F0EC01F86E7E157E
+157FA6157E5D4A5AEC07F090B512C05D9038F00FE06E7E6E7E6E7EA81606EC00FEEDFF0C
+B538803FF8ED0FF027227EA12A>82 D<3801FE023807FF86381F01FE383C007E007C131E
+0078130EA200F81306A27E1400B4FC13E06CB4FC14C06C13F06C13F86C13FC000313FEEA
+003F1303EB007F143FA200C0131FA36C131EA26C133C12FCB413F838C7FFE00080138018
+227DA11F>I<007FB61280A2397E03F80F00781407007014030060140100E015C0A200C0
+1400A400001500B3A248B512F0A222227EA127>I<B538803FFCA23A07F0000180B3A600
+03EC03007F000114066C6C130E017E5B90383F80F890380FFFE0010190C7FC26227EA12B
+>I<B53A0FFFF00FFEA2260FF00090C712E000076E14C0A26C6C90393F800180A26D14C0
+0001EE0300A26D496C5A0000026F1306A2017F9038C7F00CA2028113F8013F01835BA291
+39C301FC38011F153016FE90260FE6005BA202FEEBFFE06D486D5AA26D486D5AA36D486D
+C7FCA36D48130EA237227FA13A>87 D<EA0FFC383FFF80387E07C0EB03E0130114F0123C
+1200A2133FEA03FDEA1FC1EA3F01127E12FCA4EA7E02EB0CF8381FF87F3807E03F18167E
+951B>97 D<B4FCA2121FABEB0FE0EB3FF8EBE07CEB803E497EEC0F80A215C0A81580141F
+01801300EBC03E381EE07C381C3FF838180FC01A237EA21F>I<EBFF80000713E0380F83
+F0EA1F03123E127E387C01E090C7FC12FCA6127C127EA2003E13186C1330380FC0603807
+FFC0C6130015167E9519>I<EB01FEA2EB003EABEA01FC3807FFBE380F81FE381F007E00
+3E133E127E127C12FCA8127CA26C137E6C13FE380F83BE3907FF3FC0EA01FC1A237EA21F
+>I<13FE3807FF80380F87C0381E01E0003E13F0EA7C0014F812FCA2B5FCA200FCC7FCA3
+127CA2127E003E13186C1330380FC0703803FFC0C6130015167E951A>I<EB1FC0EB7FE0
+EBF1F0EA01E31203EA07C3EBC1E0EBC000A6EAFFFEA2EA07C0B2EA3FFCA2142380A211>
+I<3801FE0F3907FFBF80380F87C7381F03E7391E01E000003E7FA5001E5BEA1F03380F87
+C0EBFF80D809FEC7FC0018C8FCA2121C381FFFE06C13F86C13FE001F7F383C003F48EB0F
+80481307A40078EB0F006C131E001F137C6CB45A000113C019217F951C>I<B4FCA2121F
+ABEB07E0EB1FF8EB307CEB403CEB803EA21300AE39FFE1FFC0A21A237EA21F>I<121C12
+3E127FA3123E121CC7FCA7B4FCA2121FB2EAFFE0A20B247EA310>I<1338137C13FEA313
+7C13381300A7EA03FEA2EA003EB3A5127812FC133C137CEA78F8EA7FE0EA1F800F2E83A3
+11>I<B4FCA2121FABECFF80A2EC38001460495A495A49C7FC130E5B137E13FF13CFEB0F
+806D7E6D7E1301806D7E147C143C39FFE0FFC0A21A237EA21E>I<B4FCA2121FB3ADEAFF
+E0A20B237EA210>I<3AFF07F007F090391FFC1FFC3A1F303E303E01401340496C487EA2
+01001300AE3BFFE0FFE0FFE0A22B167E9530>I<38FF07E0EB1FF8381F307CEB403CEB80
+3EA21300AE39FFE1FFC0A21A167E951F>I<13FE3807FFC0380F83E0381E00F0003E13F8
+48137CA300FC137EA7007C137CA26C13F8381F01F0380F83E03807FFC03800FE0017167E
+951C>I<38FF0FE0EB3FF8381FE07CEB803E497E1580A2EC0FC0A8EC1F80A29038803F00
+EBC03EEBE0FCEB3FF8EB0FC090C8FCA8EAFFE0A21A207E951F>I<EAFE1FEB3FC0381E67
+E013C71387A2381F83C090C7FCADEAFFF0A213167E9517>114 D<EA0FF3EA3FFFEA781F
+EA6007EAE003A212F000FCC7FCEA7FE013F8EA3FFEEA0FFF120138000F80EAC007130312
+E0A238F00700EAFC0EEAEFFCEAC7F011167E9516>I<487EA41203A21207A2120F123FB5
+FCA2EA0F80ABEB8180A5EB8300EA07C3EA03FEEA00F811207F9F16>I<38FF01FEA2381F
+003EAF147E14FE380F81BE3907FF3FC0EA01FC1A167E951F>I<3AFFE3FF07F8A23A1F00
+7800C09038807C01000F1580A23A07C07E030014DE5D3903E1DF06148FD801F1138CEBF3
+07A2D800FF13D8EBFE0315F890387C01F0A2013C5BEB3800A225167F9528>119
+D<39FFE01FE0A2391F800700000F1306EBC00E0007130C13E000035BA26C6C5AA26C6C5A
+A2EB7CC0A2137F6D5AA26DC7FCA2130EA2130CA25B1278EAFC3813305BEA69C0EA7F8000
+1FC8FC1B207F951E>121 D E /Ff 41 122 df<127812FCA4127806067D850D>46
+D<1360EA01E0120F12FF12F31203B3A2387FFF80A2111B7D9A18>49
+D<EA07F8EA1FFE38383F8038780FC0EAFC0714E01303A21278EA000714C0A2EB0F80EB1F
+00131E13385B5B38018060EA03001206000813E0381FFFC05A5AB5FCA2131B7E9A18>I<
+EA07F8EA1FFEEA3C1FEB0F80387C07C0127E127C123838000F80A2EB1E005BEA03F8EA00
+1EEB0F80EB07C0A214E01230127812FCA214C038780F80EB1F00EA1FFEEA07F8131B7E9A
+18>I<EB018013031307130F131F133F136F13CF138F1201EA030F1206120C1218123012
+6012C0B512F8A238000F80A6EBFFF8A2151B7F9A18>I<38380180383FFF005B5B5B13C0
+0030C7FCA4EA31F8EA361E38380F80EA3007000013C014E0A3127812F8A214C012F03860
+0F8038381F00EA1FFEEA07F0131B7E9A18>I<137EEA03FF38078180380F03C0EA1E0712
+3C387C03800078C7FCA212F813F8EAFB0E38FA0780EAFC0314C000F813E0A41278A214C0
+123CEB0780381E0F00EA07FEEA03F8131B7E9A18>I<1260387FFFE0A214C01480A238E0
+0300EAC0065B5BC65AA25B13E0A212015B1203A41207A66C5A131C7D9B18>I<EA03F8EA
+0FFE381E0F80EA3807EB03C01278127C127E387F8380383FC70013FE6C5A6C7E6C7E001D
+138038387FC038781FE0EA700FEAF0031301A3007813C0EB0380EA3E07381FFE00EA03F8
+131B7E9A18>I<B512F814FF390FC01F80EC0FC0140715E0A515C0EC0F80EC3F00EBFFFE
+9038C00F80EC07C0EC03E0A215F0A5EC07E0A2EC1FC0B6120014FC1C1C7E9B22>66
+D<90381FE0209038FFF8E03803F80F3807C003380F800148C7FC123E1560127E127C00FC
+1400A8007C1460127E123E15C07E390F8001803907C003003803F80E3800FFFCEB1FE01B
+1C7D9B22>I<90380FF00890387FFE383901FC07F83807E001390F80007848C7FC481438
+123E007E1418127C00FC1400A6EC7FFFA2007CEB01F8127E123E123F7EEA0F80EA07E038
+01FC0739007FFE7890380FF818201C7D9B26>71 D<EAFFFCA2EA0FC0B3A6EAFFFCA20E1C
+7E9B12>73 D<EAFFFEA2EA0FC0AF1403A31407A21406140E141E147EB512FEA2181C7E9B
+1D>76 D<D8FFC0EB03FF6D5B000F15F0D80DF0130DA3D80CF81319A2017C1331A26D1361
+A26D13C1A390380F8181A2903807C301A2EB03E6A2EB01FCA3EB00F8A23AFFC0701FFFA2
+281C7E9B2D>I<B512F814FE390FC03F80140FEC07C015E0A515C0A2EC0F80EC3F00EBFF
+FC01C0C7FCABEAFFFCA21B1C7E9B21>80 D<B512F014FE380FC03FEC0F806E7E81A55D4A
+5A023EC7FCEBFFF0EBC07C80143F6E7EA6ED8180A2EC0FC13AFFFC07C300EC01FE211C7E
+9B24>82 D<3807F820381FFEE0EA3C07EA7801EA700012F01460A26C130012FEEAFFE0EA
+7FFE6C7E1480000F13C06C13E0EA007FEB03F01301130012C0A214E07E38F001C0EAFC03
+38EFFF00EA83FC141C7D9B1B>I<007FB512E0A238781F81007013800060146000E01470
+00C01430A400001400B03807FFFEA21C1C7E9B21>I<39FFFC03FFA2390FC00030B31207
+15606C6C13E03901F001C03900FC078090387FFE00EB0FF8201C7E9B25>I<EA0FF8EA1C
+1E383E0F80130714C0121C1200137FEA07E7EA1F07123C127C12F8A3EA780B383E13F8EA
+0FE115127F9117>97 D<B4FCA2121FA9EB3F80EBE1E0EB8070EB0078143CA2143EA6143C
+A21478EB8070381EC1E0381C3F00171D7F9C1B>I<EA03FCEA0E0EEA1C1F123C1278130E
+00F8C7FCA61278EB0180123C381C0300EA0E0EEA03F811127E9115>I<EB0FF0A21301A9
+EA01F9EA0F07EA1C03EA3C011278A212F8A61278A2123CEA1C03380F0FFEEA03F9171D7E
+9C1B>I<EA03FCEA0F07381C0380383C01C0127814E012F8A2B5FC00F8C7FCA312781460
+7E6C13C0380F03803801FC0013127F9116>I<137F3801E3803803C7C0EA0787120FEB83
+80EB8000A5EAFFF8A2EA0F80AEEA7FF0A2121D809C0F>I<3803F0F0380E1F38EA3C0F38
+38073000781380A400381300EA3C0FEA1E1CEA33F00030C7FCA3EA3FFF14C06C13E014F0
+387801F838F00078A300701370007813F0381E03C03807FF00151B7F9118>I<B4FCA212
+1FA9EB0FC0EB31E0EB40F0EB80F8A21300AB38FFE7FFA2181D7F9C1B>I<121E123FA412
+1EC7FCA6127FA2121FAEEAFFC0A20A1E7F9D0E>I<B4FCA2121FA9EB03FCA2EB01C0EB03
+00130E5B5B137813FC13BE131F7F1480EB07C0EB03E0130138FFE7FEA2171D7F9C19>
+107 D<B4FCA2121FB3A7EAFFE0A20B1D7F9C0E>I<39FF0FC07E903831E18F3A1F40F207
+80D980FC13C0A2EB00F8AB3AFFE7FF3FF8A225127F9128>I<38FF0FC0EB31E0381F40F0
+EB80F8A21300AB38FFE7FFA218127F911B>I<EA01FC380F0780381C01C0003C13E03878
+00F0A200F813F8A6007813F0A2383C01E0381E03C0380F07803801FC0015127F9118>I<
+38FF3F80EBE1E0381F80F0EB0078147C143C143EA6143C147C1478EB80F0EBC1E0EB3F00
+90C7FCA6EAFFE0A2171A7F911B>I<EAFE3E1347381E8F80A3381F070090C7FCAAEAFFE0
+A211127F9114>114 D<EA1FD8EA3078EA601812E0A2EAF000EAFF80EA7FE013F0EA1FF8
+EA07FCEA007CEAC01CA212E01318EAF830EACFC00E127E9113>I<1203A45AA25AA2EA3F
+FC12FFEA1F00A9130CA4EA0F08EA0798EA03F00E1A7F9913>I<38FF07F8A2EA1F00AC13
+01120F380786FFEA01F818127F911B>I<39FF8FF8FEA2391F03E030A3390F87F0601386
+9038C6F8E03907CC78C0A23903FC7D80EBF83D143F3901F01F00A20000131EEBE00EA21F
+127F9122>119 D<38FFC1FCA2381F00601380000F13C0A23807C180A23803E300A213F7
+EA01F613FE6C5AA21378A21330A25B1270EAF8E05BEAF9800073C7FC123E161A7F9119>
+121 D E /Fg 31 118 df<130E131E137EEA07FE12FFA212F81200B3ABB512FEA317277B
+A622>49 D<EBFF80000713F04813FC381E03FE393800FF80007C133F00FE14C06C131F15
+E0140FA2127E003C131FC7FC15C0A2EC3F801500147E5C5C495A495AEB078049C7FC131E
+4913E013705B3901C001C0EA0380EA0600000FB5FC5A5A5AB61280A31B277DA622>I<EB
+7F803803FFF04813FC380F81FE381F007FEA3F80EC3F80A3121F1300C7EA7F00A2147E5C
+495AEB07F0EBFFC0A2EB01F8EB007E801580EC1FC0A215E0A2123C127EB4FCA215C0143F
+481480007CEB7F00383F01FE6CB45A000713F0C613801B277DA622>I<140FA25C5C5C5C
+5BA2EB03BFEB073F130E131C133C1338137013E0EA01C0EA038012071300120E5A5A5A12
+F0B612F8A3C7EA7F00A890381FFFF8A31D277EA622>I<00181303381F801FEBFFFE5C5C
+5C14C091C7FC001CC8FCA7EB7FC0381DFFF8381F80FC381E003F121CC7EA1F8015C0A215
+E0A21218127C12FEA315C05A0078EB3F80A26CEB7F00381F01FE6CB45A000313F0C61380
+1B277DA622>I<EB07F8EB3FFE90B5FC3901FC07803903F00FC03807C01FEA0F80121F13
+0048EB0F8091C7FC127EA3EAFE02EB1FF0EB3FFCEB603EEB801F00FF14809038000FC0A2
+4814E0A4127EA4123E003F14C07EEC1F80D80F8013003807E07E6CB45A6C5B38003FC01B
+277DA622>I<91387FE003903907FFFC07011FEBFF0F90397FF00F9F9039FF0001FFD801
+FC7F4848147F4848143F4848141F485A160F485A1607127FA290C9FC5AA97E7F1607123F
+A26C7E160E6C7E6C6C141C6C6C143C6C6C14786CB4EB01F090397FF007C0011FB5128001
+07EBFE009038007FF028297CA831>67 D<91387FE003903907FFFC07011FEBFF0F90397F
+F00F9F9039FF0001FFD801FC7F484880484880484880485A82485A82127FA290CAFC5AA8
+92B512F87E7F03001300123FA26C7EA26C7E6C7E6C7E6C7E6CB45B90387FF007011FB512
+9F0107EBFE0F9039007FF0032D297CA835>71 D<B512F0A33803FC00B3B1B512F0A31429
+7EA819>73 D<D8FFFE92383FFF80A26D5D0003EFE000A2D9BF8014EFA2D99FC0EB01CFA2
+D98FE0EB038FA3D987F0EB070FA2D983F8130EA2D981FC131CA3D980FE1338A2027F1370
+A291383F80E0A391381FC1C0A291380FE380A2913807F700A3EC03FEA26E5AA26E5AD8FF
+FE0203B51280A2157039297DA840>77 D<B612F815FF16C03A03FC003FE0ED07F0ED03F8
+16FC150116FEA716FC150316F8ED07F0ED3FE090B61280EDFE0001FCC8FCB0B512F0A327
+297EA82E>80 D<9038FF80600003EBF0E0000F13F8381F80FD383F001F003E1307481303
+A200FC1301A214007EA26C140013C0EA7FFCEBFFE06C13F86C13FE80000714806C14C0C6
+FC010F13E0EB007FEC1FF0140F140700E01303A46C14E0A26C13076C14C0B4EB0F80EBE0
+3F39E3FFFE0000E15B38C01FF01C297CA825>83 D<007FB71280A39039807F807FD87C00
+140F00781507A20070150300F016C0A2481501A5C791C7FCB3A490B612C0A32A287EA72F
+>I<3803FF80000F13F0381F01FC383F80FE147F801580EA1F00C7FCA4EB3FFF3801FC3F
+EA0FE0EA1F80EA3F00127E5AA4145F007EEBDFC0393F839FFC381FFE0F3803FC031E1B7E
+9A21>97 D<EAFFE0A3120FACEBE1FE9038EFFF809038FE07E09038F803F09038F001F890
+38E000FCA2157EA2157FA8157EA315FCA29038F001F89038F803F090389C0FE090380FFF
+80390E01FC00202A7EA925>I<EB3FF03801FFFC3803F03E380FC07FEA1F80EA3F00A248
+133E007E90C7FCA212FEA7127EA2127F6CEB03801380001FEB0700380FE00E3803F83C38
+01FFF838003FC0191B7E9A1E>I<EC7FF0A31407ACEB3F873801FFF73807F03F380FC00F
+381F8007EA3F00A2127EA312FEA8127EA27EA2381F800F380FC01F3907E07FFF3801FFE7
+38007F87202A7EA925>I<EB3FC03801FFF03807E07C48487E48487ED83F001380140F5A
+007E14C012FE1407A2B6FCA248C8FCA4127E127F6CEB01C01380001F1303390FC0078039
+03F01F003800FFFCEB3FE01A1B7E9A1F>I<EB07F8EB3FFCEB7E3E3801FC7FEA03F813F0
+1207143E1400A7B512C0A33807F000B3A3387FFF80A3182A7EA915>I<9038FF80F00003
+EBE3F8390FC1FE1C391F007C7C48137E003EEB3E10007EEB3F00A6003E133E003F137E6C
+137C380FC1F8380BFFE00018138090C8FC1238A2123C383FFFF814FF6C14C06C14E06C14
+F0121F383C0007007CEB01F8481300A4007CEB01F0A2003FEB07E0390FC01F806CB51200
+38007FF01E287E9A22>I<1207EA1FC0EA3FE0A5EA1FC0EA0700C7FCA7EAFFE0A3120FB3
+A3EAFFFEA30F2B7EAA12>105 D<EAFFE0A3120FACEC1FFCA3EC07C0EC0F80EC1E00147C
+5CEBE1F0EBE3E013E713EFEBFFF080EBFBFC13F1EBE1FEEBC0FFEC7F80143F15C0EC1FE0
+EC0FF0140739FFFC1FFFA3202A7FA923>107 D<EAFFE0A3120FB3B2EAFFFEA30F2A7EA9
+12>I<26FFC07FEB1FC0903AC1FFC07FF0903AC307E0C1F8D80FC49038F101FC9039C803
+F20001D801FE7F01D05BA201E05BB03CFFFE3FFF8FFFE0A3331B7D9A38>I<38FFC07E90
+38C1FF809038C30FC0D80FC413E0EBC80701D813F013D0A213E0B039FFFE3FFFA3201B7D
+9A25>I<EB3FE03801FFFC3803F07E390FC01F80391F800FC0393F0007E0A2007EEB03F0
+A300FE14F8A8007E14F0A26CEB07E0A2391F800FC0390FC01F803907F07F003801FFFC38
+003FE01D1B7E9A22>I<38FFE1FE9038EFFF809038FE0FE0390FF803F09038F001F801E0
+13FC140015FEA2157FA8157E15FEA215FC140101F013F89038F807F09038FC0FE09038EF
+FF809038E1FC0001E0C7FCA9EAFFFEA320277E9A25>I<38FFC1F0EBC7FCEBC63E380FCC
+7F13D813D0A2EBF03EEBE000B0B5FCA3181B7F9A1B>114 D<3803FE30380FFFF0EA3E03
+EA7800127000F01370A27E00FE1300EAFFE06CB4FC14C06C13E06C13F0000713F8C6FCEB
+07FC130000E0137C143C7E14387E6C137038FF01E038E7FFC000C11300161B7E9A1B>I<
+13E0A41201A31203A21207120F381FFFE0B5FCA2380FE000AD1470A73807F0E0000313C0
+3801FF8038007F0014267FA51A>I<39FFE07FF0A3000F1307B2140FA2000713173903F0
+67FF3801FFC738007F87201B7D9A25>I E /Fh 78 127 df<EB7E1F3901C1B180390303
+E3C0000713C3000EEBC180903801C000A6B512FC380E01C0B0387F87FC1A1D809C18>11
+D<137E3801C180EA0301380703C0120EEB018090C7FCA5B512C0EA0E01B0387F87F8151D
+809C17>I<EB7FC0EA01C1EA03031207EA0E01A7B5FCEA0E01B0387FCFF8151D809C17>I<
+90383F07E03901C09C18380380F0D80701133C000E13E00100131892C7FCA5B612FC390E
+00E01CB03A7FC7FCFF80211D809C23>I<EA6060EAF0F0EAF8F8EA6868EA0808A3EA1010
+A2EA2020EA4040EA80800D0C7F9C15>34 D<13E0EA0310EA0608A2120EA45BA25B6C5AEC
+3FE09038800F80EC06000003130412073809C00800115BEA30E03820F020EA607038E038
+40EB3C80131C90380F00207F0070EB8040383009C0391830E180390FC03F001B1F7E9D20
+>38 D<126012F012F812681208A31210A2122012401280050C7C9C0C>I<1380EA010012
+0212065AA25AA25AA35AA412E0AC1260A47EA37EA27EA27E12027EEA0080092A7C9E10>
+I<7E12407E12307EA27EA27EA37EA41380AC1300A41206A35AA25AA25A12205A5A092A7E
+9E10>I<126012F0A212701210A41220A212401280040C7C830C>44
+D<EAFFE0A20B0280890E>I<126012F0A2126004047C830C>I<1303A213071306A2130E13
+0C131C1318A213381330A213701360A213E013C0A21201138012031300A25A1206A2120E
+120CA2121C1218A21238123012701260A212E05AA210297E9E15>I<EA03C0EA0C30EA18
+18EA300CA2EA700EEA6006A2EAE007ADEA6006A2EA700EEA300CA2EA1818EA0C30EA07E0
+101D7E9B15>I<5A1207123F12C71207B3A5EAFFF80D1C7C9B15>I<EA07C0EA1830EA201C
+EA400C130EEAF00F12F81307A21270EA000F130EA2131CA213381370136013C0EA0180EA
+0300EA0601120C1218EA1002EA3FFE127F12FF101C7E9B15>I<EA07E0EA1830EA201CA2
+EA781E130E131E1238EA001CA2131813301360EA07C0EA0030131CA2130E130FA2127012
+F8A3EAF00EEA401C1220EA1830EA07C0101D7E9B15>I<130CA2131C133CA2135C13DC13
+9CEA011C120312021204120C1208121012301220124012C0B512C038001C00A73801FFC0
+121C7F9B15>I<EA300CEA3FF813F013C0EA2000A6EA23E0EA2C30EA3018131CEA200E12
+00130FA3126012F0A3EA800EEA401E131CEA2038EA1870EA07C0101D7E9B15>I<13F0EA
+030CEA0404EA0C0EEA181E1230130CEA7000A21260EAE3E0EAE430EAE818EAF00C130EEA
+E0061307A51260A2EA7006EA300E130CEA1818EA0C30EA03E0101D7E9B15>I<1240387F
+FF801400A2EA4002485AA25B485AA25B1360134013C0A212015BA21203A41207A66CC7FC
+111D7E9B15>I<EA03E0EA0C30EA1008EA200C13061260A21270A2EA7C0CEA3E18EA3FB0
+EA1FE0EA07F013F8EA18FCEA307EEA601E130FEAC0071303A4EA60021304EA300CEA1C10
+EA07E0101D7E9B15>I<EA03C0EA0C30EA1818EA300C1270EA600EEAE006A21307A51260
+EA700F1230EA1817EA0C27EA07C7EA0006A2130EEA300C127813181270EA2030EA10C0EA
+0F80101D7E9B15>I<126012F0A212601200AA126012F0A2126004127C910C>I<126012F0
+A212601200AA126012F0A212701210A41220A212401280041A7C910C>I<EA0FE0EA3038
+EA401CEAE00E12F0A3EA000C131C1330136013C0138012011300A6C7FCA51203EA0780A2
+EA03000F1D7E9C14>63 D<EB3F80EBC0603803001800041304487F487F39201F0080EB70
+803940E04040EBC0381241D8818013201283A51281EA41C000401440EBE0783920709880
+90381F0F006CC8FC7E7E0003EB01E03900C01F8090383FF0001B1D7E9C20>I<1306A313
+0FA3EB1780A2EB37C01323A2EB43E01341A2EB80F0A338010078A2EBFFF83802003CA348
+7FA2000C131F80001E5BB4EBFFF01C1D7F9C1F>I<B512C0380F00788080140E140FA414
+0E141E5C14F8EBFFF0EB003C8080801580A5EC0F00A2141E1478B512E0191C7F9B1D>I<
+90381F8080EBE0613801801938070007000E13035A14015A00781300A2127000F01400A8
+007014801278A212386CEB0100A26C13026C5B380180083800E030EB1FC0191E7E9C1E>
+I<B512C0380F00F0143C140E80A2EC038015C01401A215E0A815C0A21403158014071500
+140E5C1470B512C01B1C7E9B20>I<B512FC380F003C140C1404A214061402A213011400
+A35B13FF13037FA3140113001402A31406A2140C143CB512FC181C7E9B1C>I<B512F838
+0F007814181408A2140C1404A213011400A35B13FF13037FA490C7FCA8EAFFF8161C7E9B
+1B>I<90381F8080EBE0613801801938070007000E13035A14015A00781300A2127000F0
+1400A6ECFFF0EC0F80007013071278A212387EA27E6C130B380180113800E06090381F80
+001C1E7E9C21>I<39FFF0FFF0390F000F00AC90B5FCEB000FAD39FFF0FFF01C1C7F9B1F>
+I<EAFFF0EA0F00B3A8EAFFF00C1C7F9B0F>I<3807FF8038007C00133CB3127012F8A213
+38EA7078EA4070EA30E0EA0F80111D7F9B15>I<EAFFF8EA0F8090C7FCB01408A31418A2
+141014301470EB01F0B5FC151C7E9B1A>76 D<B46CEBFF80000FECF800A2390BC00178A3
+3809E002A23808F004A3EB7808A3EB3C10A3EB1E20A3EB0F40A2EB0780A3EB0300121C3A
+FF8307FF80211C7E9B26>I<B4EB1FF0390F8003809038C00100120BEA09E0EA08F0A213
+78133C133E131E130F14811307EB03C1EB01E114F113001479147D143D141FA280808012
+1CB46C7E1C1C7F9B1F>I<EB3F80EBE0E03803803848487E000E7F487F003C1480003813
+03007814C0A20070130100F014E0A8007014C000781303A200381480003C1307001C1400
+6C130E6C5B6C6C5A3800E0E0EB3F801B1E7E9C20>I<B51280380F00E01478143C141C14
+1EA5141C143C147814E0EBFF8090C7FCACEAFFF0171C7E9B1C>I<EB3F80EBE0E0380380
+3848487E000E7F487F003C148000381303007814C0A20070130100F014E0A8007014C000
+781303A200381480383C0E07D81C111300380E208E0007135C3803A0783900F0E020133F
+EB0060EC3060EC38E0EC3FC0A2EC1F80EC0F001B257E9C20>I<B5FC380F01E0EB007880
+141C141EA4141C143C5CEB01E001FFC7FCEB01E0EB0070147880A61510A2141CA239FFF0
+0E20C7EA03C01C1D7E9B1F>I<3807E080EA1C19EA30051303EA600112E01300A36C1300
+7E127CEA7FC0EA3FF8EA1FFEEA07FFC61380130FEB07C0130313011280A300C01380A238
+E00300EAD002EACC0CEA83F8121E7E9C17>I<007FB512C038700F010060130000401440
+A200C014201280A300001400B1497E3803FFFC1B1C7F9B1E>I<39FFF01FF0390F000380
+EC0100B3A26C1302138000035BEA01C03800E018EB7060EB0F801C1D7F9B1F>I<39FFE0
+0FF0391F0003C0EC01806C1400A238078002A213C000035BA2EBE00C00011308A26C6C5A
+A213F8EB7820A26D5AA36D5AA2131F6DC7FCA21306A31C1D7F9B1F>I<3AFFE1FFC0FF3A
+1F003E003C001E013C13186C6D1310A32607801F1320A33A03C0278040A33A01E043C080
+A33A00F081E100A39038F900F3017913F2A2017E137E013E137CA2013C133C011C1338A2
+0118131801081310281D7F9B2B>I<39FFF07FC0390FC01E003807800CEBC00800035B6C
+6C5A13F000005BEB7880137C013DC7FC133E7F7F80A2EB13C0EB23E01321EB40F0497E14
+783801007C00027F141E0006131F001F148039FF807FF01C1C7F9B1F>I<39FFF003FC39
+0F8001E00007EB00C06D13800003EB01006D5A000113026C6C5A13F8EB7808EB7C18EB3C
+10EB3E20131F6D5A14C06D5AABEB7FF81E1C809B1F>I<EA1FC0EA3070EA78387F123012
+00A2EA01FCEA0F1C12381270126000E01340A3EA603C38304E80381F870012127E9115>
+97 D<12FC121CAA137CEA1D87381E0180381C00C014E014601470A6146014E014C0381E
+018038190700EA10FC141D7F9C17>I<EA03F8EA0C0CEA181E1230EA700CEA600012E0A6
+1260EA70021230EA1804EA0C18EA03E00F127F9112>I<EB1F801303AAEA03F3EA0E0BEA
+1807EA30031270126012E0A6126012701230EA1807EA0E1B3803E3F0141D7F9C17>I<EA
+07E0EA0C30EA1818EA300CEA700EEA600612E0EAFFFEEAE000A41260EA70021230EA1804
+EA0C18EA03E00F127F9112>I<13F8EA018CEA071E1206EA0E0C1300A6EAFFE0EA0E00B0
+EA7FE00F1D809C0D>I<EB03803807C4C0EA1C783838388038301800EA701CA4EA3018EA
+38386C5AEA27C00020C7FCA21230EA3FF86CB4FC1480EA2003386001C0EAC000A3386001
+8038300300EA1C0EEA07F8121C7F9215>I<12FC121CAA137C1387EA1D03001E1380121C
+AD38FF9FF0141D7F9C17>I<1218123CA21218C7FCA712FC121CB0EAFF80091D7F9C0C>I<
+13C0EA01E0A2EA00C01300A7EA07E01200B3A21260EAF0C012F1EA6180EA3E000B25839C
+0D>I<12FC121CAAEB0FE0EB0780EB06005B13105B5B13E0121DEA1E70EA1C781338133C
+131C7F130F148038FF9FE0131D7F9C16>I<12FC121CB3A9EAFF80091D7F9C0C>I<39FC7E
+07E0391C838838391D019018001EEBE01C001C13C0AD3AFF8FF8FF8021127F9124>I<EA
+FC7CEA1C87EA1D03001E1380121CAD38FF9FF014127F9117>I<EA03F0EA0E1CEA180648
+7E00701380EA600100E013C0A600601380EA700300301300EA1806EA0E1CEA03F012127F
+9115>I<EAFC7CEA1D87381E0180001C13C0EB00E0A21470A614E0A2EB01C0001E138038
+1D0700EA1CFC90C7FCA7B47E141A7F9117>I<3803E080EA0E19EA1805EA3807EA7003A2
+12E0A61270A2EA38071218EA0E1BEA03E3EA0003A7EB1FF0141A7F9116>I<EAFCE0EA1D
+38EA1E78A2EA1C301300ACEAFFC00D127F9110>I<EA1F90EA2070EA4030EAC010A212E0
+EAF800EA7F80EA3FE0EA0FF0EA00F8EA8038131812C0A2EAE010EAD060EA8FC00D127F91
+10>I<1204A4120CA2121C123CEAFFE0EA1C00A91310A5120CEA0E20EA03C00C1A7F9910>
+I<38FC1F80EA1C03AD1307120CEA0E1B3803E3F014127F9117>I<38FF07E0383C038038
+1C0100A2EA0E02A2EA0F06EA0704A2EA0388A213C8EA01D0A2EA00E0A3134013127F9116
+>I<39FF3FC7E0393C0703C0001CEB01801500130B000E1382A21311000713C4A2132038
+03A0E8A2EBC06800011370A2EB8030000013201B127F911E>I<38FF0FE0381E0700EA1C
+06EA0E046C5AEA039013B0EA01E012007F12011338EA021C1204EA0C0E487E003C138038
+FE1FF014127F9116>I<38FF07E0383C0380381C0100A2EA0E02A2EA0F06EA0704A2EA03
+88A213C8EA01D0A2EA00E0A31340A25BA212F000F1C7FC12F312661238131A7F9116>I<
+EA7FFCEA70381260EA407013F013E0EA41C012031380EA0700EA0F04120E121CEA3C0CEA
+380812701338EAFFF80E127F9112>I<EA1C04EA3F08EA43F0EA80E00E047D9B15>126
+D E /Fi 22 122 df<EC0FF8A34A7EA3EC3F7EA3EC7E7F81A202FE7F14FC151F01018014
+F8150F01038014F01507010780A214E0010F6D7EA214C0011F6D7EA21480013F6D7EA291
+C7FC49147FA2137E01FE6E7EA248B77EA34882A201F8C7120F4848811607A24848811603
+A24848811601A24848811600A248C97E83A200FE1780313C7EBB36>65
+D<B712C0A648C9FCB3A3B612FCA548C9FCB3AA223C78BB2E>70 D<EC07FC91383FFF8091
+B512E0010314F8010F14FE90391FFC07FF90263FE0007FD97F80EB3FC049C76C7E48486E
+7E48486E7E49140348486E7E000F82491400001F824981A24848ED3F80A290C9121F4817
+C0A400FEEE0FE0AC007FEE1FC0A56C6CED3F80A29026C003F8137F001F6D6C140081260F
+E00014FE6DEB7F010007ED81FC6C6C90383F83F86DEB1FC76C6CECEFF06C6C6DB45A6D6C
+6C5BD93FE05CD91FFC91C7FC6DB55A13036D80EB003F913907FC7F8091C76C7EA2707E83
+160F707E831603707E8333487CBC3C>81 D<EB03FF011F13E0017F13FC48B6FC4815805A
+380FFC013A1FF0003F004848130F01807F007F140190C9FCA212FEA67E7E7F7F6C7E13F8
+EA1FFE380FFFE06C13FE6CEBFFC06C806C6C13F8011F7F01017F9038003FFF0203138014
+00ED7FC0153FED1FE0150F16F0A21507A6ED0FE0124012600070EC1FC0007C143FB4EC7F
+8001C013FFD9F80713006CB55A001F5C6C5C000314E0C66C1380D907FCC7FC243E7CBC2D
+>83 D<B9FCA6C7D807F0C7FCB3B3B2303C7DBB37>I<EB3FF03801FFFC000713FF001F14
+8015C09038C01FE0381E000F0018EB07F01210C7EA03F8A7EB07FF137F48B5FC1207001F
+1303EA3FF0EA7FC013005A5AA46C1307387F800FEBE07F6CB5FCA26C13FB000713E33803
+FE031D257DA427>97 D<12FEB3A5EB03FCEB1FFF017F138090B512C0B612E09038F03FF0
+9038C00FF8EB000748EB03FC140115FE1400A215FF157FA915FEA3EC01FCA26C1303EC07
+F89038800FF09038E07FE090B512C04814806D1300EB1FFEEB07F0203C7ABB2A>I<157F
+B3A5EB1FE0EB7FF83801FFFE4890B5FC5A380FFE07EBF00148487E4848137F5B127F90C7
+FCA312FEA9127FA37F123F6D13FF6C6C5A6D5A380FFC0F6CB6FC6C147F6C13FC38007FF8
+EB1FC0203C7DBB2A>100 D<EB07F8EB3FFE90B512804814C04814E03907FC1FF0380FF0
+07391FE003F8EBC001393F8000FCA248C7FC157E90B512FEB6FCA448C8FCA5127E127FA2
+6C7EA26C6C13046D131CD80FF8137C3907FE03FC6CB5FC6C14F86C6C13E0011F13809038
+03FC001F257EA424>I<12FEB3A5EB03FCEB0FFF013F13C04913E090B5FC39FFF01FF0EB
+E00F9038C007F81380EB0003A35AB3A71D3C7ABB2A>104 D<12FEA71200AE12FEB3B307
+3A7AB914>I<12FEB3A5EC0FF815F0EC1FE0EC3FC0EC7F80ECFF00495A495A495A495A13
+1F5C495A495A13FFB5FC8080A2EBEFF08013C7EB83FC1303486C7E807FEC7F8015C0143F
+EC1FE015F0140FEC07F8A2EC03FC15FE1F3C7ABB27>107 D<12FEB3B3B3A6073C7ABB14>
+I<38FE03FCEB0FFF013F13C04913E090B5FC39FFF01FF0EBE00F9038C007F81380EB0003
+A35AB3A71D257AA42A>110 D<EB07FCEB1FFF017F13C048B512F048803907FC07FC390F
+F001FE48486C7E497F4848EB3F80A248C7EA1FC0A2007E140F00FE15E0A9007FEC1FC0A3
+6C6CEB3F80A26C6CEB7F006D5B6C6C485A3907FE0FFC6CB55A6C5C6C6C13C0011F90C7FC
+EB07FC23257EA428>I<90380FE07FEB3FF8EBFFFE4813FF4814FF3807FE07380FF80338
+1FE001497E123F49137F127F90C7FCA212FEA9127FA37F123F6D13FF6C6C5A6D5A380FFC
+0F6CB6FC6C147F6C13FC38007FF8EB1FC090C7FCB120367DA42A>113
+D<00FE13F01307131F133F137F13FFB5120013F85B5B5B5BA290C7FCA25AB3A414257AA4
+1C>I<EB7FC03803FFFC4813FF4814805A383F803F9038000F00007E130391C7FCA4127F
+13C0EA3FFCEBFFC06C13F06C13FC6C7F00017F6C7E01071380EB007FEC1FC0A2140FA212
+4012600078EB1F8012FC38FF807F90B512006C5B001F5B00075B38007FC01A257EA41F>
+I<EA03F8ABB512FEA5D803F8C7FCB3A65C6D5A9038FE0F806CB5FCA26CEBFE00EB7FF8EB
+3FC019307FAF1D>I<00FEEB03F8B3A91407A2140F6C131FEB807F6CB5FC14FB6C13E36C
+13833807FC031D257AA42A>I<00FED903FCEB07F0007FEE0FE0140781018013BE003FEE
+1FC0140F153FD81FC0ED3F80141F1680151F260FE01EEC7F00143E16C00007020F137E01
+F015FE147C16E0000302075B01F814E11478000101F85CED03F114F001FC14F300005E15
+01EBFDE0017DECFBE01500A25C013FECFFC0167F5CA234257FA437>119
+D<B4EC1FC06CEC3F80A27F003FEC7F007F001F5C5D7F000F13015DEA07F04A5A13F81203
+5D3801FC07A25D3800FE0FA2017E5BA2EB7F1F013F5BA3D91F9FC7FC14BFEB0FBEA3EB07
+BC14FC13035CA35CA213075CA2130F5CA2495AEA403F007890C8FCEA7FFF5B5B5BEA0FE0
+22367FA425>121 D E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+%%PaperSize: a4
+%%BeginPaperSize: a4
+/setpagedevice where {
+pop 1 dict dup /PageSize [ 595 842 ] put setpagedevice
+} {
+statusdict /a4tray known {
+statusdict begin a4tray end
+/a4 where { pop a4 } if
+} {
+/a4 where {
+pop a4
+} {
+statusdict /setpage known {
+statusdict begin
+595 842 0 setpage
+end
+} if
+} ifelse
+} ifelse
+} ifelse
+%%EndPaperSize
+
+%%EndSetup
+%%Page: 1 1
+1 0 bop 0 99 a Fi(Answ)n(ers)26 b(to)i(the)f(F)n(requently)d(Ask)n(ed)j
+(Questions)f(ab)r(out)h(STk)p 0 156 1950 12 v 14 213
+a Fh(Eric)o(k)14 b(Gallesio)1507 b(July)14 b(1996)0 535
+y Fg(Con)n(ten)n(ts)0 655 y Ff(1)38 b(In)o(tro)q(duction)1597
+b(1)62 733 y Fh(1.1)42 b(Sub)r(ject:)19 b(What)13 b(is)h(STk)34
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)66 b(2)62 811 y(1.2)42 b(Sub)r(ject:)19
+b(Where)c(do)e(I)h(get)g(STk)g(from)30 b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(2)62 889 y(1.3)42
+b(Sub)r(ject:)19 b(Are)c(there)g(distribution)e(mirror)g(sites)34
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(3)62
+967 y(1.4)42 b(Sub)r(ject:)19 b(Whic)o(h)13 b(are)i(the)f(systems)g
+(STk)g(supp)q(ort)32 b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66
+b(3)62 1046 y(1.5)42 b(Sub)r(ject:)19 b(STk)14 b(and)f(Windo)o(ws)27
+b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)66 b(3)62 1124 y(1.6)42 b(Sub)r(ject:)19 b(STk)14
+b(and)f(MacOS)30 b(.)20 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(4)62 1202 y(1.7)42
+b(Sub)r(ject:)19 b(Getting)13 b(more)g(information)e(ab)q(out)j(Sc)o
+(heme)i(.)k(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(4)62 1280 y(1.8)42
+b(Sub)r(ject:)19 b(Di\013erences)d(with)d(R4RS)k(.)j(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(5)62
+1359 y(1.9)42 b(Sub)r(ject:)19 b(Compatibili)o(t)o(y)11
+b(with)j(SLIB)40 b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)66 b(6)0 1478 y Ff(2)38 b(Con)o(tributed)12
+b(P)o(ac)o(k)m(ages)1408 b(6)0 1598 y(3)38 b(STk)16 b(tips)1684
+b(7)0 1718 y(4)38 b(STklos)15 b(tips)1628 b(7)0 1838
+y(5)38 b(Getting)13 b(more)i(information)d(ab)q(out)j(Tk)1114
+b(8)0 1957 y(6)38 b(Miscelleanous)1573 b(8)62 2036 y
+Fh(6.1)42 b(Sub)r(ject:)19 b(The)14 b(STk)g(Mailing)e(List)33
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)66 b(8)62 2114 y(6.2)42 b(Sub)r(ject:)19 b(Rep)q(orting)14
+b(a)f(Bug)28 b(.)20 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(9)62 2192 y(6.3)42 b(Sub)r(ject:)19
+b(Using)14 b(STk)f(from)g(Emacs)37 b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)66 b(9)0 2361 y Fg(1)h(In)n(tro)r
+(duction)0 2481 y Fh(The)16 b(aim)c(of)j(this)g(do)q(cumen)o(t)g(is)g
+(to)g(answ)o(er)h(to)e(the)i(frequen)o(tly)g(ask)o(ed)f(questions)h(ab)
+q(out)f(STk.)21 b(First)16 b(v)o(ersions)f(of)g(this)0
+2537 y(do)q(cumen)o(t)g(w)o(ere)i(written)f(b)o(y)g(Marc)g(F)m(urrer)h
+(\(furrer@di.ep\015.c)o(h\)with)f(the)g(supp)q(ort)h(of)e(Eric)o(k)h
+(Gallesio)e(\(eg@unice.fr\))p eop
+%%Page: 2 2
+2 1 bop 0 -84 1950 3 v 0 -100 a Ff(1.)37 b(In)o(tro)q(duction)1588
+b Fh(2)0 81 y(Marc)14 b(has)g(not)g(enough)g(time)e(to)i(con)o(tin)o
+(ue)g(to)g(main)o(tain)d(the)j(F)-5 b(A)o(Q)15 b(up)f(to)f(date)i(and)e
+(he)i(ask)o(ed)f(me)f(to)g(con)o(tin)o(ue.)18 b(Since)0
+138 y(I)c(to)q(o)f(ha)o(v)o(e)h(not)g(a)g(lot)f(of)g(time)g(for)g(k)o
+(eeping)h(the)h(F)-5 b(A)o(Q)14 b(aliv)o(e,)f(an)o(y)g(help)h(w)o(ould)
+f(b)q(e)h(greatly)g(apreciated.)0 216 y(The)20 b(latest)f(v)o(ersion)h
+(of)f(the)h(F)-5 b(A)o(Q)20 b(is)f(a)o(v)n(ailable)e(at)i(h)o(ttp://k)n
+(aolin.unice.fr/F)-5 b(A)o(Q/F)g(A)o(Q.h)o(tm)o(l)16
+b(T)m(ext)k(and)f(P)o(ostscript)0 273 y(v)o(ersions)g(of)g(this)g(do)q
+(cumen)o(t)f(are)i(also)e(a)o(v)n(ailable)f(at)i(ftp://k)n(aolin.)o
+(unice.fr/pub/F)-5 b(A)o(Q)17 b(The)i(HTML)g(v)o(ersion)h(is)e(the)0
+329 y(recommended)c(v)o(ersion)i(of)e(this)i(do)q(cumen)o(t)e(since)i
+(all)e(the)i(links)f(to)g(other)g(do)q(cumen)o(ts)h(or)f(soft)o(w)o
+(ares)g(can)h(b)q(e)g(follo)o(w)o(ed)0 386 y(just)e(b)o(y)g(clic)o
+(king)f(on)g(them.)0 464 y(This)h(v)o(ersion)h(of)f(the)h(do)q(cumen)o
+(t)f(is)h(v)o(ery)g(incomplete)e(and)h(if)g(y)o(ou)g(think)g(of)g
+(questions)i(that)e(are)h(appropriate)g(for)f(this)0
+521 y(F)-5 b(A)o(Q,)14 b(or)g(w)o(ould)f(lik)o(e)g(to)h(impro)o(v)o(e)e
+(an)i(answ)o(er,)g(please)g(send)h(me)e(e-mail.)0 667
+y Fe(1.1)56 b(Sub)s(ject:)24 b(What)19 b(is)f(STk)0 772
+y Fh(STk)13 b(is)f(a)g(R4RS)g(Sc)o(heme)g(in)o(terpreter)j(whic)o(h)d
+(can)h(access)i(to)d(the)i(Tk)e(graphical)g(pac)o(k)n(age.)17
+b(It)c(can)g(b)q(e)g(seen)h(as)f(the)g(John)0 829 y(Ousterhout's)19
+b(Tk)e(pac)o(k)n(age)f(where)j(the)f(Tcl)f(language)f(has)h(b)q(een)i
+(replaced)f(b)o(y)f(Sc)o(heme)g(\(for)g(more)f(information)e(on)0
+886 y(Sc)o(heme,)f(Tcl)h(and)g(Tk,)f(see)i(the)g(references)h(b)q(elo)o
+(w\).)0 964 y(STk)h(also)f(pro)o(vides)h(an)f(e\016cien)o(t)h(ob)r
+(ject)h(orien)o(ted)f(system)g(called)f(STklos.)26 b(STklos)16
+b(is)h(an)f(OO)i(system)e(with)g(m)o(ulti-)0 1021 y(inheritance,)d
+(generic)h(functions,)f(m)o(ulti-m)o(etho)q(ds.)i(It's)e(implemen)o
+(tation)c(relies)14 b(on)e(a)h(Meta)g(Ob)r(ject)h(Proto)q(col)f
+(\(MOP\))0 1077 y(inspired)h(from)e(the)j(Tin)o(y)e(-CLOS)h(mo)q(del.)0
+1156 y(Other)h(features)g(of)e(STk)h(are:)62 1267 y Fd(\017)21
+b Fh(In)o(terpreter)16 b(can)e(b)q(e)h(easily)e(extended)i(b)o(y)f
+(adding)f(new)h(C)g(mo)q(dules.)62 1357 y Fd(\017)21
+b Fh(All)15 b(the)h(commands)d(de\014ned)k(b)o(y)f(the)g(Tk)f(to)q
+(olkit)g(are)h(a)o(v)n(ailable)e(to)h(the)h(STk)g(in)o(terpreter)i
+(\(Tk)d(commands)f(are)104 1414 y(seen)h(as)f(a)g(sp)q(ecial)g(t)o(yp)q
+(e)g(of)f(ob)r(jects)i(b)o(y)f(the)h(in)o(terpreter\).)62
+1504 y Fd(\017)21 b Fh(Widgets)14 b(callbac)o(ks)f(are)h(Sc)o(heme)g
+(closures)62 1594 y Fd(\017)21 b Fh(Based)15 b(on)e(Tk4.1)g(\(the)i
+(last)e(stable)i(release)g(of)e(Tk\))62 1684 y Fd(\017)21
+b Fh(STk)14 b(do)q(es)g(not)g(use)h(the)f(Tcl)g(in)o(terpreter)i(for)d
+(Tk)h(programming)62 1774 y Fd(\017)21 b Fh(Tk)14 b(v)n(ariables)f
+(\(suc)o(h)h(are)h(-textv)n(ariable\))e(are)h(re\015ected)j(bac)o(k)c
+(in)o(to)h(Sc)o(heme)f(as)h(Sc)o(heme)g(v)n(ariables.)62
+1864 y Fd(\017)21 b Fh(A)13 b(set)g(of)f(STklos)h(classes)h(ha)o(v)o(e)
+e(b)q(een)i(de\014ned)g(to)f(manipulate)e(Tk)h(commands)e(\(men)o(u,)i
+(buttons,)h(scales,)h(can)o(v)n(as,)104 1921 y(can)o(v)n(as)f(items\))h
+(as)f(STklos)h(ob)r(jects.)62 2011 y Fd(\017)21 b Fh(New)14
+b(widgets)g(can)g(easily)g(b)q(e)g(built)f(in)h(STklos)f(b)o(y)h(comp)q
+(osition)e(of)h(existing)h(widgets.)0 2156 y Fe(1.2)56
+b(Sub)s(ject:)24 b(Where)18 b(do)h(I)f(get)g(STk)h(from)0
+2262 y Fh(STk)j(distribution)f(is)h(a)o(v)n(ailable)d(on)j(v)n(arious)f
+(sites.)42 b(The)23 b(o\016cial)d(distribution)h(site)h(is)g(h)o
+(ttp://k)n(aolin.unice.fr/or)0 2318 y(ftp://k)n(aolin.uni)o(ce.fr/pub)c
+(Distribution)h(\014le)h(names)f(ha)o(v)o(e)g(the)i(form)d
+Fc(STk-x.y.tar.gz,)g Fh(where)k Fc(x)d Fh(and)h Fc(y)g
+Fh(repre-)0 2375 y(sen)o(t)i(the)g(v)o(ersion)f(and)g(the)g(release)i
+(of)d(the)i(pac)o(k)n(age.)39 b(Y)m(ou)21 b(can)g(also)f(\014nd)i(here)
+g(in)o(terim)d(releases)k(of)e(STk.)39 b(In-)0 2432 y(termediate)20
+b(releases)i(are)f(stored)g(in)f(\014le)h(whose)g(name)e(ha)o(v)o(e)h
+(the)h(form)e Fc(STk-x.y.z.tar.gz)e Fh(where)k Fc(z)f
+Fh(is)h(the)g(in-)0 2489 y(termediate)i(release)i(n)o(um)o(b)q(er.)47
+b(Last)24 b(stable)g(release)h(can)f(b)q(e)g(tak)o(en)g(from)e(h)o
+(ttp://k)n(aolin.uni)o(ce.fr/STk.tar.gzor)0 2545 y(ftp://k)n(aolin.uni)
+o(ce.fr/pub/STk.tar.g)o(z)p eop
+%%Page: 3 3
+3 2 bop 0 -84 1950 3 v 0 -100 a Ff(1.)37 b(In)o(tro)q(duction)1588
+b Fh(3)0 81 y Fe(1.3)56 b(Sub)s(ject:)24 b(Are)18 b(there)g
+(distribution)g(mirror)e(sites)0 186 y Fh(Stable)f(releases)h(of)e(STk)
+g(are)h(also)f(placed)h(in)f(ftp://sunsite.unc.edu/pub/Lin)o(ux/dev)o
+(el/lang/lisp)e(Since)j(this)g(site)g(is)0 243 y(ea)o(vily)e(mirrored)g
+(around)h(the)g(planet,)f(y)o(ou)h(should)g(easily)f(\014nd)h(a)g
+(stable)g(release)h(near)f(y)o(ou.)0 321 y(Da)o(vid)23
+b(F)m(o)o(x)h(also)g(main)o(tain)e(a)i(mirror)f(site)i(of)f(k)n(aolin)f
+(\(daily)g(up)q(dated\))j(in)e(the)h(USA)g(at)f(the)h(follo)o(wing)d
+(URL)0 378 y(ftp://cs.n)o(yu.edu/pub/lo)q(cal/fo)o(x/stk)0
+523 y Fe(1.4)56 b(Sub)s(ject:)24 b(Whic)n(h)19 b(are)f(the)g(systems)f
+(STk)h(supp)r(ort)0 629 y Fh(STk)c(runs)g(on)g(a)g(large)f(v)n(ariet)o
+(y)h(of)f(Unixes.)18 b(It)c(is)g(kno)o(wn)f(to)h(run)g(on:)62
+740 y Fd(\017)21 b Fh(Sparc)14 b(\(SunOs)h(4.1.x)d(&)i(Solaris)g(2.)p
+Fd(f)p Fh(34)p Fd(g)p Fh(\))62 830 y Fd(\017)21 b Fh(Dec)14
+b(5xxx)g(\(Ultrix)f(4.2\))62 920 y Fd(\017)21 b Fh(SGI)13
+b(\(IRIX)h(4.05,)e(5.1.1,)g(5.2\))62 1010 y Fd(\017)21
+b Fh(DEC)14 b(Alpha)f(3000/400)f(\(OSF-1)i(V1.3\))62
+1100 y Fd(\017)21 b Fh(RS6000)12 b(AIX)i(3.2.5)62 1190
+y Fd(\017)21 b Fh(HP)14 b(9000/735)e(\(HP-UX)i(9.01\))62
+1280 y Fd(\017)21 b Fh(PC)14 b(\(Lin)o(ux)f(1.0)g(-)p
+Fb(>)h Fh(2.0\))62 1370 y Fd(\017)21 b Fh(PC)14 b(\(F)m(reeBSD)h(1.1\))
+62 1460 y Fd(\017)21 b Fh(PC)14 b(\(SCO\))g(Thanks)g(to)g
+(markd@grizzly)m(.com)62 1550 y Fd(\017)21 b Fh(PC)14
+b(\(NetBSD-1.0\))62 1640 y Fd(\017)21 b Fh(Son)o(y)13
+b(WS)h(\(Son)o(y)f(NEWS,)h(NEWSOS)g(4.2R\))62 1730 y
+Fd(\017)21 b Fh(...)0 1876 y Fe(1.5)56 b(Sub)s(ject:)24
+b(STk)18 b(and)i(Windo)n(ws)0 1981 y Fh(Starting)12 b(with)g(release)h
+(3.1,)e(STk)i(runs)g(on)f(32)f(bits)i(Microsoft)f(Windo)o(ws)f(\(only)h
+(tested)i(on)e(Windo)o(ws)f(95,)h(but)g(it)g(should)0
+2038 y(run)i(on)g(Windo)o(ws)f(NT\).)h(This)f(v)o(ersion)h(is)g(based)h
+(on)e(the)i(Tk)f(4.1)e(\014nal)i(release.)0 2116 y(STk)f(Win32)e(v)o
+(ersion)i(is)g(distributed)g(in)g(source)h(and)f(binary)f(forms,)f
+(since)j(binary)e(release)i(seems)f(more)f(con)o(v)o(enien)o(t)h(on)0
+2173 y(Windo)o(ws.)0 2251 y(Dev)o(elopmen)o(t)f(of)g(STk)h(on)g(this)h
+(platform)c(is)j(not)g(easy)h(for)f(me)f(since)i(it)f(is)g(not)g(the)g
+(system)g(I)g(use)h(da)o(yly)m(.)j(In)c(particular,)0
+2308 y(a)i(lot)f(of)h(w)o(ork)f(need)i(to)f(b)q(e)h(done)f(\(loading)f
+(of)h(pac)o(k)n(ages)g(compiled)e(in)i(DLL,)f(so)q(c)o(k)o(ets,)i
+(...\).)k(Help)15 b(of)g(a)g(Win32)e(hac)o(k)o(er)0 2364
+y(w)o(ould)g(b)q(e)i(greatly)e(appreciated)i(to)f(ac)o(hiev)o(e)g
+(those)h(tasks.)p eop
+%%Page: 4 4
+4 3 bop 0 -84 1950 3 v 0 -100 a Ff(1.)37 b(In)o(tro)q(duction)1588
+b Fh(4)0 81 y Fe(1.6)56 b(Sub)s(ject:)24 b(STk)18 b(and)i(MacOS)0
+186 y Fh(It)e(is)f(not)g(in)o(tended)h(to)g(p)q(ort)f(STk)h(on)f
+(MAcOS,)h(b)o(y)f(lac)o(k)g(of)g(resource)i(\(and)f(in)o(terest)g(of)f
+(m)o(yself)f(:\).)28 b(Ho)o(w)o(ev)o(er,)19 b(p)q(ort)0
+243 y(should)14 b(b)q(e)g(simple)f(for)g(a)h(Mac)g(hac)o(k)o(er.)k(I)c
+(can)g(pro)o(vide)g(help)g(if)f(necessary)j(for)d(this)h(job.)0
+321 y(Another)i(w)o(a)o(y)e(to)h(run)h(STk)f(on)g(a)g(Mac)g(consists)h
+(to)f(run)h(STk)f(under)h(Mac)o(h)f(T)m(en.)22 b(If)15
+b(I)g(ha)o(v)o(e)g(w)o(ell)g(understo)q(o)q(d,)h(Mac)o(h)0
+378 y(T)m(en)e(is)g(a)f(Unix)h(\(Mac)o(h-\))g(lik)o(e)f(system)h
+(running)f(on)h(top)g(of)f(MacOS.)h(STk)g(compiles)e(\014ne)j(on)e
+(this)h(system.)0 523 y Fe(1.7)56 b(Sub)s(ject:)24 b(Getting)18
+b(more)e(information)h(ab)r(out)i(Sc)n(heme)0 629 y Ff(The)d(R4RS)e(do)
+q(cumen)o(t)62 740 y Fd(\017)21 b Fh(R4RS)14 b(is)i(the)g(do)q(cumen)o
+(t)f(whic)o(h)h(fully)e(describ)q(es)k(the)e(Sc)o(heme)g(Programmi)o
+(ng)d(Language,)i(it)g(can)h(b)q(e)g(found)f(in)104 797
+y(the)f(Sc)o(heme)g(rep)q(ository)h(at)e(the)i(follo)o(wing)c(URL)i
+(ftp://ftp.cs.indiana.edu/pub/sc)o(heme-rep)q(ository/do)q(c)62
+887 y Fd(\017)21 b Fh(Aubrey)13 b(Ja\013er)g(has)f(also)g(translated)h
+(this)f(do)q(cumen)o(t)g(in)g(HTML.)f(A)i(v)o(ersion)f(of)g(this)g(do)q
+(cumen)o(t)g(can)g(b)q(e)h(bro)o(wsed)104 944 y(at)h(h)o
+(ttp://www-swiss.ai.m)o(it.)o(edu/)e(ja\013er/r4rs)p
+892 944 13 2 v 15 w(to)q(c.h)o(tml)0 1055 y Ff(The)k(Sc)o(heme)e(Rep)q
+(ository)0 1133 y Fh(The)f(main)d(site)i(where)i(y)o(ou)d(can)i(\014nd)
+f(\(man)o(y\))f(informations)e(ab)q(out)j(Sc)o(heme)h(is)f(lo)q(cated)g
+(in)g(the)h(Univ)o(ersit)o(y)f(of)f(Indiana.)0 1190 y(The)h(Sc)o(heme)g
+(rep)q(ository)h(is)f(main)o(tained)e(b)o(y)h(Da)o(vid)g(Eb)o(y)m(.)17
+b(The)c(rep)q(ository)f(curren)o(tly)h(consists)g(of)f(the)g(follo)o
+(wing)e(areas:)62 1301 y Fd(\017)21 b Fh(Lots)14 b(of)f(sc)o(heme)h(co)
+q(de)h(mean)o(t)e(for)g(b)q(enc)o(hmarking,)f(library/supp)q(ort,)i
+(researc)o(h,)h(education,)f(and)f(fun.)62 1391 y Fd(\017)21
+b Fh(On-line)e(do)q(cumen)o(ts:)29 b(Mac)o(hine)19 b(readable)h
+(standards)g(do)q(cumen)o(ts,)g(standards)g(prop)q(osals,)h(v)n(arious)
+d(Sc)o(heme-)104 1448 y(related)c(tec)o(h)h(rep)q(orts,)g(conference)h
+(pap)q(ers,)e(mail)e(arc)o(hiv)o(es,)h(etc.)62 1538 y
+Fd(\017)21 b Fh(Most)14 b(of)f(the)i(publicly)e(a)o(v)n(ailable)e(Sc)o
+(heme)j(Implemen)o(tations.)62 1628 y Fd(\017)21 b Fh(Material)13
+b(designed)i(primarily)c(for)i(instruction.)62 1718 y
+Fd(\017)21 b Fh(F)m(reely-distributable)14 b(promotional)d(or)j
+(demonstration)e(material)g(for)i(Sc)o(heme-related)g(pro)q(ducts.)62
+1808 y Fd(\017)21 b Fh(Utilities)13 b(\(e.g.,)g(Sc)o(hemew)o(eb,)g
+(SLaT)m(eX\).)62 1898 y Fd(\017)21 b Fh(Extraneous)15
+b(stu\013,)f(extensions,)g(etc.)0 2010 y(Y)m(ou)f(can)h(access)i(the)f
+(Sc)o(heme)e(rep)q(ository)i(at:)62 2121 y Fd(\017)21
+b Fh(ftp://ftp.cs.indiana.edu/pub/sc)o(heme-rep)q(ository)62
+2211 y Fd(\017)g Fh(h)o(ttp://www.cs.indiana.edu/sc)o(heme-rep)q
+(ository/SRhom)o(e.h)o(tm)o(l)0 2323 y(The)14 b(Sc)o(heme)g(Rep)q
+(ository)g(is)g(mirrored)f(in)g(Europ)q(e)i(at:)62 2434
+y Fd(\017)21 b Fh(ftp://ftp.inria.f)o(r/lang/)o(Sc)o(heme)62
+2524 y Fd(\017)g Fh(ftp://faui80.i)o(nform)o(a)o(tik.uni)o
+(-erlangen.de/pub/sc)o(heme/y)o(orku)p eop
+%%Page: 5 5
+5 4 bop 0 -84 1950 3 v 0 -100 a Ff(1.)37 b(In)o(tro)q(duction)1588
+b Fh(5)62 81 y Fd(\017)21 b Fh(ftp://ftp.inform)o(ati)o(k.uni-)o(m)n
+(uenc)o(hen.de/pub/comp/prog)o(ram)o(m)o(i)o(ng/)8 b(languages/sc)o
+(heme/sc)o(heme-rep)q(ository)0 190 y Ff(Usenet)14 b(newsgroup)g(and)i
+(other)e(addresses)0 268 y Fh(There)h(is)f(a)f(usenet)j(newsgroup)e(ab)
+q(out)g(the)h(Sc)o(heme)e(Programming)e(language:)17
+b(comp.lang.sc)o(heme)0 346 y Ff(Miscelleanous)0 424
+y Fh(F)m(ollo)o(wing)11 b(addresses)16 b(con)o(tains)e(also)f(in)o
+(teresting)i(material)d(ab)q(out)h(the)i(Sc)o(heme)f(language)62
+533 y Fd(\017)21 b Fh(The)1640 b(Sc)o(heme)104 590 y(F)-5
+b(A)o(Q)40 b(h)o(ttp://www.cs.cm)o(u.edu:8001/W)l(eb/Groups/AI/h)o(tm)n
+(l/f)o(aqs/la)o(ng/sc)o(heme/top.)o(h)o(tm)o(lhem)o(e/sc)o(heme-)104
+647 y(rep)q(ository)62 736 y Fd(\017)21 b Fh(The)14 b(Sc)o(heme)g(Home)
+f(P)o(age)h(at)f(MIT)h(h)o(ttp://www-swiss.ai.mi)o(t.edu/sc)o(heme-hom)
+o(e.h)o(tm)n(l)62 824 y Fd(\017)21 b Fh(The)14 b(Sc)o(heme)g
+(Underground)h(w)o(eb)f(page:)k(h)o(ttp://www.ai.m)o(i)o(t.edu/pro)r
+(jects/su/su.h)o(tml)0 969 y Fe(1.8)56 b(Sub)s(ject:)24
+b(Di\013erences)17 b(with)h(R4RS)0 1074 y Ff(Sym)o(b)q(ols)0
+1153 y Fh(STk)c(sym)o(b)q(ol)f(syn)o(tax)h(has)h(b)q(een)g(augmen)o
+(ted)f(to)g(allo)o(w)f(case)i(signi\014can)o(t)f(sym)o(b)q(ols.)k(Man)o
+(y)c(global)f(sym)o(b)q(ols)g(ha)o(v)o(e)h(b)q(een)0
+1209 y(added)g(to)g(the)g(global)f(en)o(vironmen)o(t,)f(see)j(App)q
+(endix)f(B)h(of)e(the)h Ff(STk)g Fh(Reference)i(Man)o(ual.)0
+1288 y Ff(T)o(yp)q(es)0 1366 y Fh(STk)k(implemen)o(ts)e(all)g(the)j(t)o
+(yp)q(es)g(de\014ned)g(as)f(mandatory)e(in)i(R4RS.)e(Ho)o(w)o(ev)o(er,)
+k(complex)d(n)o(um)o(b)q(ers)g(and)h(rational)0 1423
+y(n)o(um)o(b)q(ers)12 b(\(whic)o(h)g(are)h(de\014ned)g(but)g(not)f
+(required)h(in)f(R4RS\))f(are)i(not)f(implemen)o(ted.)j(The)e(lac)o(k)e
+(of)h(these)i(t)o(yp)q(es)f(implies)0 1480 y(that)h(some)f(functions)h
+(of)f(R4RS)g(are)h(not)g(de\014ned.)0 1558 y(Some)f(t)o(yp)q(es)h(whic)
+o(h)g(are)h(not)e(de\014ned)i(in)f(R4RS)f(are)h(implemen)o(ted)d(in)j
+(STk.)k(Those)c(t)o(yp)q(es)h(are)f(listed)g(b)q(elo)o(w:)62
+1667 y Fd(\017)21 b Fh(input)13 b(string)h(p)q(ort)h(t)o(yp)q(e)62
+1755 y Fd(\017)21 b Fh(output)14 b(string)g(p)q(ort)g(t)o(yp)q(e)62
+1844 y Fd(\017)21 b Fh(k)o(eyw)o(ord)14 b(t)o(yp)q(e)62
+1933 y Fd(\017)21 b Fh(Tk)14 b(command)d(t)o(yp)q(e)j(\(to)g(use)h(the)
+f(Tk)g(widgets\))62 2021 y Fd(\017)21 b Fh(en)o(vironmen)o(t)13
+b(t)o(yp)q(e)h(\(en)o(vironmen)o(ts)f(are)i(\014rst)f(class)h(in)e
+(STk\))62 2110 y Fd(\017)21 b Fh(macro)12 b(t)o(yp)q(e)62
+2199 y Fd(\017)21 b Fh(address)15 b(t)o(yp)q(e)f(\(obsolete)h(no)o(w\))
+62 2287 y Fd(\017)21 b Fh(hash)14 b(table)g(t)o(yp)q(e)62
+2376 y Fd(\017)21 b Fh(pro)q(cess)15 b(t)o(yp)q(e)g(\(launc)o(h)f(and)f
+(comm)o(unication)e(with)i(subpro)q(cess\))62 2465 y
+Fd(\017)21 b Fh(so)q(c)o(k)o(et)15 b(t)o(yp)q(e)f(\(TCP/UDP)g(so)q(c)o
+(k)o(ets\))62 2554 y Fd(\017)21 b Fh(regexp)14 b(t)o(yp)q(e)h(\(access)
+h(to)d(tcl)h(regexp\))p eop
+%%Page: 6 6
+6 5 bop 0 -84 1950 3 v 0 -100 a Ff(2.)37 b(Con)o(tributed)12
+b(P)o(ac)o(k)m(ages)1399 b Fh(6)0 81 y Ff(Pro)q(cedures)0
+159 y Fh(The)14 b(follo)o(wing)e(pro)q(cedures)k(are)e(required)h(b)o
+(y)f(R4RS)e(and)i(are)g(not)g(implemen)o(ted)e(in)h(the)i(STk)e(in)o
+(terpreter:)62 270 y Fd(\017)21 b Fh(transcript-o\013)62
+360 y Fd(\017)g Fh(transcript-on)0 470 y(These)15 b(pro)q(cedure)h(can)
+e(b)q(e)h(easily)e(sim)o(ulated)f(with)i(v)n(arious)f(Unix)g(to)q(ols)h
+(suc)o(h)h(as)e Fa(script)i Fh(or)e Fa(fep)s Fh(.)0 549
+y(The)f(follo)o(wing)e(pro)q(cedures)k(are)e(not)g(implemen)o(ted)d(in)
+j(the)g(STk)g(in)o(terpreter)i(whereas)f(they)f(are)g(de\014ned)h(in)f
+(R4RS)f(\(but)0 605 y(not)j(required\).)19 b(They)14
+b(are)g(all)f(related)i(to)e(complex)g(or)h(rational)e(n)o(um)o(b)q
+(ers:)62 716 y Fd(\017)21 b Fh(n)o(umerator)62 806 y
+Fd(\017)g Fh(denominator)62 895 y Fd(\017)g Fh(rationalize)62
+985 y Fd(\017)g Fh(mak)o(e-rectangular)62 1075 y Fd(\017)g
+Fh(mak)o(e-p)q(olar)62 1164 y Fd(\017)g Fh(real-part)62
+1254 y Fd(\017)g Fh(imag-part)62 1344 y Fd(\017)g Fh(magnitude)62
+1433 y Fd(\017)g Fh(angle)0 1544 y(This)14 b(is)g(more)e(detailed)i(in)
+g(the)g(App)q(endix)g(B)h(of)e(the)h(STk)g(Reference)i(Man)o(ual.)0
+1690 y Fe(1.9)56 b(Sub)s(ject:)24 b(Compatibilit)n(y)16
+b(with)j(SLIB)0 1795 y Fh(Aubrey)14 b(Ja\013er)h(main)o(tains)c(a)i
+(pac)o(k)n(age)g(called)h Ff(SLIB)e Fh(whic)o(h)i(is)f(a)g(p)q(ortable)
+h(Sc)o(heme)f(library)g(whic)o(h)h(pro)o(vides)f(compat-)0
+1852 y(ibilit)o(y)f(and)i(utilit)o(y)e(functions)i(for)g(all)f
+(standard)h(Sc)o(heme)g(implem)o(en)o(tations.)i(T)m(o)d(use)i(this)f
+(pac)o(k)n(age,)f(y)o(ou)g(ha)o(v)o(e)h(just)g(to)0 1908
+y(t)o(yp)q(e)0 1987 y Fc(\(require)20 b("slib"\))0 2065
+y Fh(and)14 b(follo)o(w)e(the)i(instructions)h(giv)o(en)e(in)h(the)g
+(library)f(to)h(use)h(a)e(particular)h(pac)o(k)n(age.)0
+2234 y Fg(2)67 b(Con)n(tributed)24 b(P)n(ac)n(k)l(ages)0
+2353 y Fh(Small)11 b(\(in)j(size\))h(con)o(tributions)f(are)g(included)
+g(in)f(the)i(release.)k(Among)12 b(them)h(w)o(e)h(can)g(cite:)62
+2464 y Fd(\017)21 b Fa(STk-wtour)t Fh(:)d(A)c(didactic)f(demo)g(to)h
+(learn)g Ff(STk)f Fh(written)i(b)o(y)f(Suresh)h(Sriniv)n(as)e
+(\(ssriniv)n(a@cs.indiana.edu\))62 2554 y Fd(\017)21
+b Fa(Stetris)14 b(:)19 b Fh(A)14 b(tetris)g(game)f(written)h(b)o(y)g
+(Harv)o(ey)g(J.)g(Stein)g(\(hjstein@math.h)o(uji.ac.il)o(\))p
+eop
+%%Page: 7 7
+7 6 bop 0 -84 1950 3 v 0 -100 a Ff(3.)37 b(STk)16 b(tips)1675
+b Fh(7)62 81 y Fd(\017)21 b Fa(Que)n(ens)s Fh(:)e(The)14
+b(famous)e(8)i(queens)h(problem)d(b)o(y)i(Gran)o(t)f(Edw)o(ards)i
+(\(gran)o(te@win)o(ternet.com\))62 167 y Fd(\017)21 b
+Fa(Ttt)t Fh(:)c(A)d(3-D)f(Tic-T)m(ac-T)m(o)q(e)g(b)o(y)h(Edin)g("Dino")
+e(Ho)q(dzic)i(eho)q(dzic@scu.edu)0 271 y(Complex)g(con)o(tributions)i
+(are)g(k)o(ept)g(in)g(the)g(ftp://k)n(aolin.unice.fr/pub/Co)o(n)o(trib)
+q(directory)m(.)22 b(This)15 b(directory)i(con)o(tains)0
+327 y(also)f(old)h(co)q(de)g(whic)o(h)g(should)g(probably)f(b)q(e)i(up)
+q(dated)f(to)g(w)o(ork)g(with)f(curren)o(t)j(STk)e(release.)28
+b(Among)15 b(the)j(pac)o(k)n(ages)0 384 y(whic)o(h)c(can)g(b)q(e)g
+(found)g(in)f(this)h(directory)h(are:)62 488 y Fd(\017)21
+b Fa(EnvDr)n(aw)t Fh(:)26 b(is)18 b(a)g(en)o(vironmen)o(t)e(diagrammi)o
+(ng)f(pac)o(k)n(age)i(whic)o(h)h(dra)o(ws)g(en)o(vironmen)o(t)f
+(diagrams)f(as)i(taugh)o(t)f(in)104 545 y(Ab)q(elson)h(and)f(Sussman's)
+g Fa(Structur)n(e)g(and)i(Interpr)n(etation)f(of)g(Computer)g(L)n
+(anguages)s Fh(.)30 b(It)17 b(w)o(as)h(written)g(as)f(an)104
+602 y(instructional)d(to)q(ol)g(for)g(the)i(CS61A)e(course)i(at)f(the)g
+(Univ)o(ersit)o(y)g(of)f(California)e(at)j(Berk)o(eley)m(.)21
+b(The)15 b(en)o(vironmen)o(t)104 658 y(diagramm)o(er)e(is)j(a)f
+(metacircular)g(ev)n(aluator)g(whic)o(h)h(dra)o(ws)g(pro)q(cedures,)h
+(en)o(vironmen)o(ts,)e(and)h(b)q(o)o(x)f(and)h(p)q(oin)o(ter)104
+715 y(diagrams)d(along)h(with)g(all)g(the)i(accompan)o(ying)c(sym)o(b)q
+(ols)i(and)h(m)o(utation.)k(It)c(includes)g(a)g(b)q(o)o(x)g(and)g(p)q
+(oin)o(ter)g(dia-)104 772 y(grammer)9 b(whic)o(h)j(handles)f(circular)h
+(list)f(structures,)j(cons)f(cell)e(m)o(utation,)f(and)h(also)g(will)f
+(w)o(atc)o(h)i(for)f(mo)q(di\014cation)104 829 y(of)16
+b(an)o(y)h(sym)o(b)q(ols)f(kno)o(wn)h(to)g(b)q(e)h(p)q(oin)o(ting)e(to)
+h(dra)o(wn)h(cells.)28 b(The)18 b(author)f(of)g(this)g(v)o(ery)h(neat)f
+(pac)o(k)n(age)g(is)g(Josh)104 886 y(MacDonald)c(jmacd@p)q(o.EECS.Berk)
+o(eley)m(.EDU)62 972 y Fd(\017)21 b Fa(WWW)13 b Fh(is)e(a)f(HTML)h(bro)
+o(wser)h(whic)o(h)f(greatly)g(enhances)h(the)f(h)o(bro)o(wse)h(demo)e
+(whic)o(h)g(is)h(part)g(of)f(STk)h(distribution.)104
+1028 y(Y)m(ou)i(should)h(lo)q(ok)f(at)g(this)h(pac)o(k)n(age.)k
+(Author:)g(Harv)o(ey)d(J.)e(Stein)h(hjstein@math.h)o(uji.ac.il)62
+1115 y Fd(\017)21 b Fa(Nano)n(c)n(ad)e Fh(is)14 b(c)o(hemistery)g(CAD)g
+(program)f(whic)o(h)h(allo)o(ws)f(y)o(ou)h(to)g(create)h(small)d
+(molecules)i(and)g(to)g(rotate)g(them.)104 1171 y(The)g(author)g(of)f
+(this)h(pac)o(k)n(age)g(is)f(Will)g(W)m(are)g(ww)o(are@w)o
+(orld.std.com)62 1258 y Fd(\017)21 b Fh(...)0 1361 y(Some)13
+b(pac)o(k)n(ages)h(are)g(not)g(in)f(the)i Fc(kaolin)d(Contrib)h
+Fh(directory:)62 1465 y Fd(\017)21 b Fh(A)14 b(preemptiv)o(e)h(thread)g
+(pac)o(k)n(age)f(can)h(b)q(e)g(found)f(at)g
+(ftp://ftp.cs.uoregon.edu/pub/lth/tasking-alpha2.)o(tar.gz)104
+1522 y(The)g(uthor)g(of)g(this)f(pac)o(k)n(age)h(is)g(Lars)g(Thomas)e
+(Hansen)j(lth@cs.uoregon.edu)62 1608 y Fd(\017)21 b Fh(A)68
+b(lo)o(w)f(lev)o(el)h(in)o(terface)h(to)f(the)h(P)o(ostgres)g(95)f
+(Database)g(can)g(b)q(e)h(found)f(at)104 1665 y(h)o(ttp://www.w)o
+(ebbuild.com)o(/~rto)o(y/pg)o(stk/h)o(ttp://www.)o(w)o(ebbuild.com)n
+(/~rto)o(y/pg)o(stk/)11 b(.)62 1751 y Fd(\017)21 b Fa(T)m(abula)13
+b(r)n(asa)f Fh(is)g(a)f(system)h(written)g(b)o(y)g(Da)o(vid)e(F)m(o)o
+(x)h(whic)o(h)h(use)h(the)f(STk)g(in)o(terpreter)h(\(but)f(not)g
+(Tk\).This)f(pac)o(k)n(age)104 1808 y(can)j(b)q(e)g(found)g(at)g
+(?????.)i(\(TO)e(BE)g(COMPLETED\))62 1894 y Fd(\017)21
+b Fh(spice)14 b(pac)o(k)n(age)g(from)e(F)m(ritz.Heinric)o(hmey)o
+(er@fern)o(uni-hagen.de)i(\(I)g(cannot)g(\014nd)g(the)g(reference\))62
+1980 y Fd(\017)21 b Fh(...)0 2147 y Fg(3)67 b(STk)23
+b(tips)0 2267 y Fh(TO)14 b(BE)h(COMPLETED)0 2434 y Fg(4)67
+b(STklos)23 b(tips)0 2554 y Fh(TO)14 b(BE)h(COMPLETED)p
+eop
+%%Page: 8 8
+8 7 bop 0 -84 1950 3 v 0 -100 a Ff(5.)37 b(Getting)13
+b(more)i(information)d(ab)q(out)j(Tk)1105 b Fh(8)0 81
+y Fg(5)67 b(Getting)23 b(more)f(information)i(ab)r(out)e(Tk)0
+200 y Fh(There)15 b(are)f(t)o(w)o(o)g(reference)i(b)q(o)q(ok)e(ab)q
+(out)f(Tk)h(\(of)g(course,)g(y)o(ou)g(b)q(etter)h(not)f(read)g(the)h(c)
+o(hapters)g(ab)q(out)f(Tcl)g(;-\):)62 312 y Fd(\017)21
+b Fh("Tcl)9 b(and)h(the)g(Tk)f(T)m(o)q(olkit")f(b)o(y)h(John)h
+(Ousterhout)h(\(the)g(author)f(of)f(the)h(Tcl/Tk)f(pac)o(k)n(age\),)h
+(ISBN)g(0-201-63337-X,)104 368 y(Addison-W)m(esley)m(,)i(April)i(1994.)
+62 458 y Fd(\017)21 b Fh("Practical)13 b(Programming)e(in)i(Tcl)h(and)g
+(Tk")f(b)o(y)h(Bren)o(t)h(W)m(elc)o(h,)e(ISBN)h(0-13-182007-9,)d(Pren)o
+(tice)k(Hall,)d(1995.)0 570 y(There)21 b(is)g(also)e(a)h(Usenet)i
+(newsgroup)f(for)f(Tcl/Tk:)30 b(comp.lang.tcl)17 b(A)k(F)-5
+b(A)o(Q,)20 b(for)g(Tcl/Tk)g(is)g(regulary)g(p)q(osted)h(in)0
+627 y(comp.lang.tcl.a)o(nnonce)0 796 y Fg(6)67 b(Miscelleanous)0
+925 y Fe(6.1)56 b(Sub)s(ject:)24 b(The)18 b(STk)h(Mailing)f(List)0
+1030 y Fh(There)e(is)e(a)g(mailing)d(list)j(for)g(STk)g(lo)q(cated)h
+(on)f Fc(kaolin.unice.fr)p Fh(.)j(The)d(in)o(ten)o(t)h(of)f(this)g
+(mailing)d(list)j(is)g(to)h(p)q(ermit)e(to)0 1086 y(STk)k(users)h(to)f
+(share)h(exp)q(eriences,)i(exp)q(ose)e(problems,)e(submit)g(ideas)h
+(and)g(ev)o(erything)g(whic)o(h)g(y)o(ou)f(\014nd)h(in)o(teresting)0
+1143 y(\(and)d(whic)o(h)g(is)f(related)i(to)f(STk\).)0
+1221 y(T)m(o)e Fa(subscrib)n(e)j Fh(to)e(the)g(mailing)d(list,)i
+(simply)f(send)i(a)g(message)f(with)h(the)g(w)o(ord)f
+Fc("subscribe")f Fh(in)h(the)i Fc(Subject:)i Fh(\014eld)d(of)0
+1278 y(y)o(ou)g(mail.)j(Mail)d(m)o(ust)f(b)q(e)j(sen)o(t)g(to)e(the)i
+(follo)o(wing)c(address:)19 b Fc(stk-request@kaolin.)o(unice)o(.fr.)0
+1357 y Fh(T)m(o)13 b Fa(unsubscrib)n(e)18 b Fh(from)12
+b(the)j(mailing)c(list,)j(send)h(a)e(mail)f(at)i(previous)h(e-mail)c
+(address)16 b(with)e(the)h(w)o(ord)f Fc("unsubscribe")0
+1413 y Fh(in)f(the)i Fc(Subject:)i Fh(\014eld.)0 1492
+y(F)m(or)10 b(more)g(information)e(on)j(the)g(mailing)d(list)i
+(managemen)o(t,)f(send)i(a)g(message)g(with)f(the)i(w)o(ord)e
+Fc("help")g Fh(in)g(the)i Fc(Subject:)0 1548 y Fh(\014eld)j(of)f(y)o
+(our)g(mail.)j(In)e(particular,)f(it)g(is)h(p)q(ossible)f(to)h(\014nd)g
+(all)e(the)i(messages)g(whic)o(h)f(ha)o(v)o(e)h(already)f(b)q(een)i
+(sen)o(t)f(on)f(the)0 1605 y(STk)g(mailing)c(list.)0
+1683 y(Subscription/un-subscription/information)e(requests)13
+b(are)f(pro)q(cessed)h(automatically)8 b(without)i(h)o(uman)g(in)o
+(terv)o(en)o(tion.)0 1740 y(If)k(something)e(go)q(es)i(wrong,)g(send)g
+(a)g(mail)d(to)j(eg@unice.fr)0 1818 y(Once)h(y)o(ou)e(ha)o(v)o(e)h
+(prop)q(erly)g(subscrib)q(e)i(to)e(the)g(mailing)d(list,)62
+1930 y Fd(\017)21 b Fh(y)o(ou)13 b(can)h(send)h(y)o(our)f(messages)g
+(ab)q(out)f(STk)h(to)g(stk@k)n(aolin.unice.fr)62 2020
+y Fd(\017)21 b Fh(y)o(ou)11 b(will)g(receiv)o(e)i(all)e(the)i(messages)
+f(of)f(the)i(mailing)c(list)i(to)h(the)h(e-mail)c(address)14
+b(y)o(ou)d(used)i(when)g(y)o(ou)e(subscrib)q(ed)104 2077
+y(to)j(the)g(list.)0 2188 y(The)g(mailing)d(list)i(is)h(arc)o(hiv)o(ed)
+g(at:)62 2299 y Fd(\017)21 b Fh(h)o(ttp://k)n(aolin.uni)o(ce.fr/m)o(li)
+o(st/Hyp)q(ermai)o(l/i)o(ndex.h)o(tm)o(l)o(in)11 b(h)o(yp)q(ertext)k
+(format,)d(or)62 2389 y Fd(\017)21 b Fh(ftp://k)n(aolin.)o
+(unice.fr/pub/Mail)o(ing)o(List/index.h)o(tm)n(las)11
+b(ra)o(w)j(text.)p eop
+%%Page: 9 9
+9 8 bop 0 -84 1950 3 v 0 -100 a Ff(6.)37 b(Miscelleanous)1564
+b Fh(9)0 81 y Fe(6.2)56 b(Sub)s(ject:)24 b(Rep)r(orting)17
+b(a)i(Bug)0 186 y Fh(When)c(y)o(ou)g(\014nd)h(a)f(bug)g(in)g(STk,)g
+(please)g(send)i(its)e(description)h(to)f(the)h(follo)o(wing)c(address)
+17 b(stk-bugs@k)n(aolin.unice.fr.)0 243 y(Don't)c(forget)h(to)g
+(indicate)g(the)g(STk)g(v)o(ersion)g(y)o(ou)g(use,)g(the)h(arc)o
+(hitecture)g(and)f(the)h(system)e(release)j(on)d(whic)o(h)h(y)o(ou)g
+(run)0 299 y(the)e(in)o(terpreter.)20 b(STk)11 b(v)o(ersion)h(and)g
+(arc)o(hitecture)i(can)e(b)q(e)g(found)g(b)o(y)g(using)f(the)i
+Fc(version)d Fh(and)i Fc(machine-type)d Fh(Sc)o(heme)0
+356 y(primitiv)o(es.)16 b(If)d(p)q(ossible,)h(try)g(to)f(\014nd)h(a)f
+(small)e(program)h(whic)o(h)i(exhibit)f(the)h(bug.)k(Ev)o(en)c(b)q
+(etter,)h(if)d(y)o(ou)h(ha)o(v)o(e)h(a)f(patc)o(h,)0
+413 y(plese)i(send)f(it)g(at)g(the)g(previous)g(address.)0
+559 y Fe(6.3)56 b(Sub)s(ject:)24 b(Using)19 b(STk)f(from)f(Emacs)0
+664 y Fh(There)f(are)g(sev)o(eral)f(w)o(a)o(ys)g(to)g(call)f
+Fc(STk)h Fh(from)e(emacs.)21 b(One)16 b(simple)d(w)o(a)o(y)i(consists)h
+(to)f(add)g(the)g(follo)o(wing)e(lines)i(in)f(y)o(our)0
+721 y(\014le)g Fc($HOME/.emacs:)0 799 y Fh(TO)g(BE)h(COMPLETED)f
+(\(with)g(ILISP\))p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/FAQ/FAQ.txt b/Doc/FAQ/FAQ.txt
new file mode 100644
index 0000000..5b3d749
--- /dev/null
+++ b/Doc/FAQ/FAQ.txt
@@ -0,0 +1,462 @@
+  Answers to the Frequently Asked Questions about STk
+  Erick Gallesio
+  July 1996
+
+  11..  IInnttrroodduuccttiioonn
+
+
+  The aim of this document is to answer to the frequently asked
+  questions about STk. First versions of this document were written by
+  Marc Furrer (furrer@di.epfl.ch)with the support of Erick Gallesio
+  (eg@unice.fr) Marc has not enough time to continue to maintain the FAQ
+  up to date and he asked me to continue. Since I too have not a lot of
+  time for keeping the FAQ alive, any help would be greatly apreciated.
+
+  The latest version of the FAQ is available at
+  http://kaolin.unice.fr/FAQ/FAQ.html Text and Postscript versions of
+  this document are also available at ftp://kaolin.unice.fr/pub/FAQ The
+  HTML version is the recommended version of this document since all the
+  links to other documents or softwares can be followed just by clicking
+  on them.
+
+  This version of the document is very incomplete and if you think of
+  questions that are appropriate for this FAQ, or would like to improve
+  an answer, please send me e-mail.
+
+  11..11..  SSuubbjjeecctt:: WWhhaatt iiss SSTTkk
+
+
+  STk is a R4RS Scheme interpreter which can access to the Tk graphical
+  package. It can be seen as the John Ousterhout's Tk package where the
+  Tcl language has been replaced by Scheme (for more information on
+  Scheme, Tcl and Tk, see the references below).
+
+  STk also provides an efficient object oriented system called STklos.
+  STklos is an OO system with multi-inheritance, generic functions,
+  multi-methods. It's implementation relies on a Meta Object Protocol
+  (MOP) inspired from the Tiny -CLOS model.
+
+  Other features of STk are:
+
+  +o  Interpreter can be easily extended by adding new C modules.
+
+  +o  All the commands defined by the Tk toolkit are available to the STk
+     interpreter (Tk commands are seen as a special type of objects by
+     the interpreter).
+
+  +o  Widgets callbacks are Scheme closures
+
+  +o  Based on Tk4.1 (the last stable release of Tk)
+
+  +o  STk does not use the Tcl interpreter for Tk programming
+
+  +o  Tk variables (such are -textvariable) are reflected back into
+     Scheme as Scheme variables.
+
+  +o  A set of STklos classes have been defined to manipulate Tk commands
+     (menu, buttons, scales, canvas, canvas items) as STklos objects.
+
+  +o  New widgets can easily be built in STklos by composition of
+     existing widgets.
+
+  11..22..  SSuubbjjeecctt:: WWhheerree ddoo II ggeett SSTTkk ffrroomm
+
+
+  STk distribution is available on various sites. The official
+  distribution site is http://kaolin.unice.fr/or
+  ftp://kaolin.unice.fr/pub Distribution file names have the form STk-
+  x.y.tar.gz, where x and y represent the version and the release of the
+  package. You can also find here interim releases of STk. Intermediate
+  releases are stored in file whose name have the form STk-x.y.z.tar.gz
+  where z is the intermediate release number. Last stable release can be
+  taken from http://kaolin.unice.fr/STk.tar.gzor
+  ftp://kaolin.unice.fr/pub/STk.tar.gz
+
+  11..33..  SSuubbjjeecctt:: AArree tthheerree ddiissttrriibbuuttiioonn mmiirrrroorr ssiitteess
+
+
+  Stable releases of STk are also placed in
+  ftp://sunsite.unc.edu/pub/Linux/devel/lang/lisp Since this site is
+  eavily mirrored around the planet, you should easily find a stable
+  release near you.
+
+  David Fox also maintain a mirror site of kaolin (daily updated) in the
+  USA at the following URL ftp://cs.nyu.edu/pub/local/fox/stk
+
+  11..44..  SSuubbjjeecctt:: WWhhiicchh aarree tthhee ssyysstteemmss SSTTkk ssuuppppoorrtt
+
+
+  STk runs on a large variety of Unixes. It is known to run on:
+
+  +o  Sparc (SunOs 4.1.x & Solaris 2.{34})
+
+  +o  Dec 5xxx (Ultrix 4.2)
+
+  +o  SGI (IRIX 4.05, 5.1.1, 5.2)
+
+  +o  DEC Alpha 3000/400 (OSF-1 V1.3)
+
+  +o  RS6000 AIX 3.2.5
+
+  +o  HP 9000/735 (HP-UX 9.01)
+
+  +o  PC (Linux 1.0 -> 2.0)
+
+  +o  PC (FreeBSD 1.1)
+
+  +o  PC (SCO) Thanks to markd@grizzly.com
+
+  +o  PC (NetBSD-1.0)
+
+  +o  Sony WS (Sony NEWS, NEWSOS 4.2R)
+
+  +o
+
+  11..55..  SSuubbjjeecctt:: SSTTkk aanndd WWiinnddoowwss
+
+
+  Starting with release 3.1, STk runs on 32 bits Microsoft Windows (only
+  tested on Windows 95, but it should run on Windows NT). This version
+  is based on the Tk 4.1 final release.
+
+  STk Win32 version is distributed in source and binary forms, since
+  binary release seems more convenient on Windows.
+
+  Development of STk on this platform is not easy for me since it is not
+  the system I use dayly. In particular, a lot of work need to be done
+  (loading of packages compiled in DLL, sockets, ...). Help of a Win32
+  hacker would be greatly appreciated to achieve those tasks.
+
+
+
+
+  11..66..  SSuubbjjeecctt:: SSTTkk aanndd MMaaccOOSS
+
+
+  It is not intended to port STk on MAcOS, by lack of resource (and
+  interest of myself :). However, port should be simple for a Mac
+  hacker. I can provide help if necessary for this job.
+
+  Another way to run STk on a Mac consists to run STk under Mach Ten. If
+  I have well understood, Mach Ten is a Unix (Mach-) like system running
+  on top of MacOS. STk compiles fine on this system.
+
+  11..77..  SSuubbjjeecctt:: GGeettttiinngg mmoorree iinnffoorrmmaattiioonn aabboouutt SScchheemmee
+
+
+  TThhee RR44RRSS ddooccuummeenntt
+
+  +o  R4RS is the document which fully describes the Scheme Programming
+     Language, it can be found in the Scheme repository at the following
+     URL ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc
+
+  +o  Aubrey Jaffer has also translated this document in HTML. A version
+     of this document can be browsed at http://www-
+     swiss.ai.mit.edu/~jaffer/r4rs_toc.html
+
+  TThhee SScchheemmee RReeppoossiittoorryy
+
+  The main site where you can find (many) informations about Scheme is
+  located in the University of Indiana. The Scheme repository is
+  maintained by David Eby. The repository currently consists of the
+  following areas:
+
+  +o  Lots of scheme code meant for benchmarking, library/support,
+     research, education, and fun.
+
+  +o  On-line documents: Machine readable standards documents, standards
+     proposals, various Scheme-related tech reports, conference papers,
+     mail archives, etc.
+
+  +o  Most of the publicly available Scheme Implementations.
+
+  +o  Material designed primarily for instruction.
+
+  +o  Freely-distributable promotional or demonstration material for
+     Scheme-related products.
+
+  +o  Utilities (e.g., Schemeweb, SLaTeX).
+
+  +o  Extraneous stuff, extensions, etc.
+
+  You can access the Scheme repository at:
+
+  +o  ftp://ftp.cs.indiana.edu/pub/scheme-repository
+
+  +o  http://www.cs.indiana.edu/scheme-repository/SRhome.html
+
+  The Scheme Repository is mirrored in Europe at:
+
+  +o  ftp://ftp.inria.fr/lang/Scheme
+
+  +o  ftp://faui80.informatik.uni-erlangen.de/pub/scheme/yorku
+
+  +o  ftp://ftp.informatik.uni-muenchen.de/pub/comp/programming/
+     languages/scheme/scheme-repository
+
+  UUsseenneett nneewwssggrroouupp aanndd ootthheerr aaddddrreesssseess
+
+  There is a usenet newsgroup about the Scheme Programming language:
+  comp.lang.scheme
+
+  MMiisscceelllleeaannoouuss
+
+  Following addresses contains also interesting material about the
+  Scheme language
+
+  +o  The Scheme FAQ
+     http://www.cs.cmu.edu:8001/Web/Groups/AI/html/faqs/lang/scheme/top.htmlheme/scheme-
+     repository
+
+  +o  The Scheme Home Page at MIT http://www-swiss.ai.mit.edu/scheme-
+     home.html
+
+  +o  The Scheme Underground web page:
+     http://www.ai.mit.edu/projects/su/su.html
+
+  11..88..  SSuubbjjeecctt:: DDiiffffeerreenncceess wwiitthh RR44RRSS
+
+
+  SSyymmbboollss
+
+  STk symbol syntax has been augmented to allow case significant
+  symbols. Many global symbols have been added to the global
+  environment, see Appendix B of the SSTTkk Reference Manual.
+
+  TTyyppeess
+
+  STk implements all the types defined as mandatory in R4RS. However,
+  complex numbers and rational numbers (which are defined but not
+  required in R4RS) are not implemented. The lack of these types implies
+  that some functions of R4RS are not defined.
+
+  Some types which are not defined in R4RS are implemented in STk. Those
+  types are listed below:
+
+  +o  input string port type
+
+  +o  output string port type
+
+  +o  keyword type
+
+  +o  Tk command type (to use the Tk widgets)
+
+  +o  environment type (environments are first class in STk)
+
+  +o  macro type
+
+  +o  address type (obsolete now)
+
+  +o  hash table type
+
+  +o  process type (launch and communication with subprocess)
+
+  +o  socket type (TCP/UDP sockets)
+
+  +o  regexp type (access to tcl regexp)
+
+  PPrroocceedduurreess
+
+  The following procedures are required by R4RS and are not implemented
+  in the STk interpreter:
+
+  +o  transcript-off
+
+  +o  transcript-on
+
+  These procedure can be easily simulated with various Unix tools such
+  as _s_c_r_i_p_t or _f_e_p.
+
+  The following procedures are not implemented in the STk interpreter
+  whereas they are defined in R4RS (but not required). They are all
+  related to complex or rational numbers:
+
+  +o  numerator
+
+  +o  denominator
+
+  +o  rationalize
+
+  +o  make-rectangular
+
+  +o  make-polar
+
+  +o  real-part
+
+  +o  imag-part
+
+  +o  magnitude
+
+  +o  angle
+
+  This is more detailed in the Appendix B of the STk Reference Manual.
+
+  11..99..  SSuubbjjeecctt:: CCoommppaattiibbiilliittyy wwiitthh SSLLIIBB
+
+
+  Aubrey Jaffer maintains a package called SSLLIIBB which is a portable
+  Scheme library which provides compatibility and utility functions for
+  all standard Scheme implementations. To use this package, you have
+  just to type
+
+  (require "slib")
+
+  and follow the instructions given in the library to use a particular
+  package.
+
+  22..  CCoonnttrriibbuutteedd PPaacckkaaggeess
+
+
+  Small (in size) contributions are included in the release. Among them
+  we can cite:
+
+  +o  _S_T_k_-_w_t_o_u_r: A didactic demo to learn SSTTkk written by Suresh Srinivas
+     (ssriniva@cs.indiana.edu)
+
+  +o  _S_t_e_t_r_i_s _: A tetris game written by Harvey J. Stein
+     (hjstein@math.huji.ac.il)
+
+  +o  _Q_u_e_e_n_s: The famous 8 queens problem by Grant Edwards
+     (grante@winternet.com)
+
+  +o  _T_t_t: A 3-D Tic-Tac-Toe by Edin "Dino" Hodzic ehodzic@scu.edu
+
+  Complex contributions are kept in the
+  ftp://kaolin.unice.fr/pub/Contribdirectory. This directory contains
+  also old code which should probably be updated to work with current
+  STk release. Among the packages which can be found in this directory
+  are:
+
+
+  +o  _E_n_v_D_r_a_w: is a environment diagramming package which draws
+     environment diagrams as taught in Abelson and Sussman's _S_t_r_u_c_t_u_r_e
+     _a_n_d _I_n_t_e_r_p_r_e_t_a_t_i_o_n _o_f _C_o_m_p_u_t_e_r _L_a_n_g_u_a_g_e_s. It was written as an
+     instructional tool for the CS61A course at the University of
+     California at Berkeley. The environment diagrammer is a
+     metacircular evaluator which draws procedures, environments, and
+     box and pointer diagrams along with all the accompanying symbols
+     and mutation. It includes a box and pointer diagrammer which
+     handles circular list structures, cons cell mutation, and also will
+     watch for modification of any symbols known to be pointing to drawn
+     cells. The author of this very neat package is Josh MacDonald
+     jmacd@po.EECS.Berkeley.EDU
+
+  +o  _W_W_W is a HTML browser which greatly enhances the hbrowse demo which
+     is part of STk distribution. You should look at this package.
+     Author: Harvey J. Stein hjstein@math.huji.ac.il
+
+  +o  _N_a_n_o_c_a_d is chemistery CAD program which allows you to create small
+     molecules and to rotate them. The author of this package is Will
+     Ware wware@world.std.com
+
+  +o
+
+  Some packages are not in the kaolin Contrib directory:
+
+  +o  A preemptive thread package can be found at
+     ftp://ftp.cs.uoregon.edu/pub/lth/tasking-alpha2.tar.gz The uthor of
+     this package is Lars Thomas Hansen lth@cs.uoregon.edu
+
+  +o  A low level interface to the Postgres 95 Database can be found at
+     http://www.webbuild.com/~rtoy/pgstk/http://www.webbuild.com/~rtoy/pgstk/
+     .
+
+  +o  _T_a_b_u_l_a _r_a_s_a is a system written by David Fox which use the STk
+     interpreter (but not Tk).This package can be found at ?????. (TO BE
+     COMPLETED)
+
+  +o  spice package from Fritz.Heinrichmeyer@fernuni-hagen.de (I cannot
+     find the reference)
+
+  +o
+
+  33..  SSTTkk ttiippss
+
+
+  TO BE COMPLETED
+
+  44..  SSTTkkllooss ttiippss
+
+
+  TO BE COMPLETED
+
+  55..  GGeettttiinngg mmoorree iinnffoorrmmaattiioonn aabboouutt TTkk
+
+
+  There are two reference book about Tk (of course, you better not read
+  the chapters about Tcl ;-):
+
+  +o  "Tcl and the Tk Toolkit" by John Ousterhout (the author of the
+     Tcl/Tk package), ISBN  0-201-63337-X, Addison-Wesley, April 1994.
+
+  +o  "Practical Programming in Tcl and Tk" by Brent Welch, ISBN
+     0-13-182007-9, Prentice Hall, 1995.
+
+  There is also a Usenet newsgroup for Tcl/Tk: comp.lang.tcl A FAQ, for
+  Tcl/Tk is regulary posted in comp.lang.tcl.annonce
+  66..  MMiisscceelllleeaannoouuss
+
+
+  66..11..  SSuubbjjeecctt:: TThhee SSTTkk MMaaiilliinngg LLiisstt
+
+
+  There is a mailing list for STk located on kaolin.unice.fr. The intent
+  of this mailing list is to permit to STk users to share experiences,
+  expose problems, submit ideas and everything which you find
+  interesting (and which is related to STk).
+
+  To _s_u_b_s_c_r_i_b_e to the mailing list, simply send a message with the word
+  "subscribe" in the Subject: field of you mail. Mail must be sent to
+  the following address: stk-request@kaolin.unice.fr.
+
+  To _u_n_s_u_b_s_c_r_i_b_e from the mailing list, send a mail at previous e-mail
+  address with the word "unsubscribe" in the Subject: field.
+
+  For more information on the mailing list management, send a message
+  with the word "help" in the Subject: field of your mail. In
+  particular, it is possible to find all the messages which have already
+  been sent on the STk mailing list.
+
+  Subscription/un-subscription/information requests are processed
+  automatically without human intervention. If something goes wrong,
+  send a mail to eg@unice.fr
+
+  Once you have properly subscribe to the mailing list,
+
+  +o  you can send your messages about STk to stk@kaolin.unice.fr
+
+  +o  you will receive all the messages of the mailing list to the e-mail
+     address you used when you subscribed to the list.
+
+  The mailing list is archived at:
+
+  +o  http://kaolin.unice.fr/mlist/Hypermail/index.htmlin hypertext
+     format, or
+
+  +o  ftp://kaolin.unice.fr/pub/MailingList/index.htmlas raw text.
+
+  66..22..  SSuubbjjeecctt:: RReeppoorrttiinngg aa BBuugg
+
+
+  When you find a bug in STk, please send its description to the
+  following address stk-bugs@kaolin.unice.fr. Don't forget to indicate
+  the STk version you use, the architecture and the system release on
+  which you run the interpreter. STk version and architecture can be
+  found by using the version and machine-type Scheme primitives. If
+  possible, try to find a small program which exhibit the bug. Even
+  better, if you have a patch, plese send it at the previous address.
+
+  66..33..  SSuubbjjeecctt:: UUssiinngg SSTTkk ffrroomm EEmmaaccss
+
+
+  There are several ways to call STk from emacs. One simple way consists
+  to add the following lines in your file $HOME/.emacs:
+
+  TO BE COMPLETED (with ILISP)
+
+
+
+
+
+
+
diff --git a/Doc/Isotas96/Isotas96.ps b/Doc/Isotas96/Isotas96.ps
new file mode 100644
index 0000000..39d98f6
--- /dev/null
+++ b/Doc/Isotas96/Isotas96.ps
@@ -0,0 +1,2482 @@
+%!PS-Adobe-2.0
+%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
+%%Title: Isotas96.dvi
+%%Pages: 20
+%%PageOrder: Ascend
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%EndComments
+%DVIPSCommandLine: dvips -f Isotas96.dvi
+%DVIPSParameters: dpi=300, compressed, comments removed
+%DVIPSSource:  TeX output 1996.09.25:1600
+%%BeginProcSet: texc.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
+forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
+/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
+/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
+/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
+string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
+end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
+/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
+N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
+length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
+128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
+get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
+dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
+/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
+/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
+0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
+setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
+.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
+/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
+gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
+add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
+/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
+dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
+adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
+idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
+adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
+{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
+adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
+chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
+}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
+length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
+cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
+0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
+add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
+/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
+RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
+false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
+round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
+rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
+{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
+B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
+4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
+p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
+a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+%%BeginProcSet: special.pro
+TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
+/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
+false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
+/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
+div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
+/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
+10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
+/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
+true def end /@MacSetUp{userdict /md known{userdict /md get type
+/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
+length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
+N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
+clippath mark{transform{itransform moveto}}{transform{itransform lineto}
+}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
+itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
+closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
+0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
+/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
+scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
+ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
+not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
+TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
+pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
+-1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
+TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
+sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
+0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
+2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
+{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
+div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
+N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
+maxlength dict begin /magscale true def normalscale currentpoint TR
+/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
+/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
+psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
+scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
+/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
+begin /SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
+{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
+}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
+end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
+N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
+/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
+SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
+/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
+yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
+%%EndProcSet
+TeXDict begin 39158280 55380996 1000 300 300 (Isotas96.dvi)
+@start /Fa 6 119 df<3803FFF83800700FEC0780140301E013C0A43901C00780150014
+1E14783803FFC0EB8060801438EA0700A4000E1378A21540158048133C39FFC01F001A1A
+7E991D>82 D<EB0FC01301A3EB0380A4EB0700A2EA03E7EA0617EA1C0E123812301270EA
+601C12E0A3133912C012E0EA6079EA219AEA1E0E121A7F9914>100
+D<EA01F0EA0608EA1C04123812701308EAFFF0EAE000A41304EA60081310EA3060EA0F80
+0E107F8F12>I<120313801300C7FCA7123C124EA2128EA2129C121CA25AA212391271A2
+1272A2123C091A7E990D>105 D<EA03E0EA06181208EA18381330EA1C00EA1FC0EA0FE0
+EA07F0EA0070133012E0A2EA8060EA40C0EA3F000D107E8F12>115
+D<EA380CEA4C0E124EEA8E06129CA2EA1C041238A213081270A2EA3010EA3820EA1840EA
+0F800F107E8F13>118 D E /Fb 6 55 df<1218127812981218AC12FF08107D8F0F>49
+D<121FEA6180EA40C0EA806012C01200A213C0EA0180EA030012065AEA10201220EA7FC0
+12FF0B107F8F0F>I<121FEA2180EA60C0A212001380EA0100121FEA00801340136012C0
+A2EA8040EA6080EA1F000B107F8F0F>I<EA0180A212031205120D121912111221124112
+C1EAFFE0EA0180A4EA0FE00B107F8F0F>I<EA20C0EA3F80EA2E001220A3122FEA3080EA
+2040EA0060A312C0EA80C0EA6180EA1F000B107F8F0F>I<EA0780EA1840EA30C0126013
+005A12CFEAF080EAE040EAC060A31240EA60C0EA3080EA1F000B107F8F0F>I
+E /Fc 6 55 df<120C121C12EC120CAFEAFFC00A137D9211>49 D<121FEA60C01360EAF0
+7013301260EA0070A2136013C012011380EA02005AEA08101210EA2020EA7FE012FF0C13
+7E9211>I<EA0FC0EA3070EA7038A31200133013E0EA0FC0EA007013381318131C126012
+F01318EAE038EA6070EA1FC00E137F9211>I<136013E0A2EA016012021206120C120812
+101220126012C0EAFFFCEA0060A5EA03FC0E137F9211>I<EA6060EA7FC01380EA440012
+40A3124FEA70C0EA40E0EA00601370A212E0A21360EA40E0EA21C0EA1F000C137E9211>
+I<EA07C0EA0C20EA10701220EA6000A25A12CFEAD0C0EAE060EAC0201330A31240EA6020
+EA2060EA10C0EA0F000C137E9211>I E /Fd 59 123 df<EB03FEEB0E03EB1C07EB1806
+EB3800A35BA33807FFFC3800701CEBE038A41470EA01C0A314E4A2EA0380A21468143090
+C7FC5AA2126612E65A12781821819916>12 D<EA0180EA03C0A21380A212071300A31206
+A35AA31208A3C7FCA4123012785A12600A1A7C990C>33 D<1218123CA2121C1208A31210
+122012401280060B78990C>39 D<130413181330136013C013801201EA0300A21206120E
+120C121C1218A212381230A21270A21260A312E0A35AA51260A31220123012107E0E267B
+9B10>I<134013601320133013101318AB1338A21330A21370A2136013E013C0A2120113
+80120313001206A25A5A12105A5A5A0D267F9B10>I<121812381278123812081210A212
+20A212401280050B7D830C>44 D<EAFF80A2130009037D880E>I<1230127812F0126005
+047C830C>I<140C141C141814381470146014E014C013011480130314005B130E130C13
+1C13181338133013705B5B12015B120390C7FC5A1206120E5A1218123812301270126012
+E05A16257F9B14>I<1308131813301370EA01F0EA0E70EA00E0A4EA01C0A4EA0380A4EA
+0700A45AEAFFE00D187C9714>49 D<137CEA0186EA020300041380138312081210A33811
+07001212EA0C0EC65A13305BEA01800002C7FC120CEA10011220EA3C06EA67FEEAC1FCEA
+80F011187D9714>I<13031480EB0700A3130EA35BA213185BA25B5B13C6EA018EEA030E
+EA021C120412081210EA7FB838807F8038003800A25BA41360111F7F9714>52
+D<137CEA0186EA0703120E000C1380121C1238A3130714005BEA1817EA0C27EA07CEEA00
+0E130C131C1318EAE0305BEA80C0EAC380003EC7FC11187C9714>57
+D<1206120F121E120C1200A81230127812F0126008107C8F0C>I<1203EA0780EA0F0012
+06C7FCA8121812381278123812085AA25AA25A5A09177D8F0C>I<1420146014E0A21301
+14F0EB0270A213041308A21310A213201340A2EB8038EBFFF8380100381202A25AA25A12
+1838FE01FF181A7E991D>65 D<3803FFF83800700E1406140713E0A43801C00E141C1438
+14703803FFE0EB80781438141CEA0700A4000E1338A2147014E0381C03C0B51200181A7D
+991B>I<EB0F82EB7062EBC0163803801E3807000C120E5A121800381308123000701300
+A25AA41420A314401260148038300100EA1006EA0C18EA03E0171A7A991B>I<3803FFF8
+3800700E80809038E00180A315C0EA01C0A43903800380A3150048485AA2140E140C000E
+131C5C5C5C381C0380D8FFFEC7FC1A1A7D991D>I<0003B5FC380070071403140113E0A4
+3801C080A313C13803FF001381A3EA0702EB0004A21408120E1418141014304813E0B5FC
+181A7D991A>I<0003B5FC380070071403140113E0A43801C080A313C13803FF001381A3
+EA070290C7FCA3120EA4121EEAFFC0181A7D9919>I<EB0FC1EB3021EBC0133801800F38
+070006120E120C5A00381304123000701300A25AA3EB07FEEB0070A4006013E0A27EEA18
+01380C0640EA03F8181A7A991E>I<EA03FFEA0070A313E0A4EA01C0A4EA0380A4EA0700
+A4120EA45AEAFF80101A7D990F>73 D<EBFFC0EB0E00A35BA45BA45BA45BA4EA61C012E1
+5B12830047C7FC123C121A7C9914>I<EA03FFEA0070A35BA4485AA4485AA448C7FC1410
+A21420120E1460144014C0381C0380B5FC141A7D9918>76 D<D803F8EB1FC0D80078EB3C
+00A2155C01B85BA290389C0138A239011C0270A21404140800025C1410A214200004EB41
+C0A21481A239080F0380A2130EEA180C4AC7FC39FE083FE0221A7D9922>I<3903F007F8
+39007800C01580A290389C0100A3138E38010E0213061307A238020384A3EB01C4000413
+C8A2EB00E8A24813F01470A21218142012FE1D1A7D991D>I<EB1F80EB70603801C03038
+0300180006131C000E130C5A0018130E123812301270A248131CA31438A21430147014E0
+14C03860018038700300EA3806EA1C1CEA07E0171A7A991D>I<3803FFF83800701C1406
+140713E0A43801C00EA2141C143838038060EBFF80EB8000A248C7FCA4120EA45AB47E18
+1A7D991A>I<3803FFF03800701C140E140713E0A43801C00E141C143814E03803FF80EB
+80C014601470EA0700A4000E13E0A214E114E248136238FF803C181A7D991C>82
+D<EB3F10EB60903801807013004813201206A31400120713C0EA03F8EA01FEEA007FEB0F
+8013031301A21220A238600300A21306EA700CEAC818EA87E0141A7D9916>I<383FFFFC
+38381C0C00201304124013381280A338007000A45BA4485AA4485AA41207EAFFF8161A79
+991B>I<387FE0FF380E00181410A2481320A4481340A4481380A438E00100A31302A25B
+EA60085BEA3860EA0F80181A78991D>I<3AFF87FC1FC03A3C00E007000038140413015D
+1302001C5C13045D13085D13105DD920E1C7FC134014E2138014E4EA1D0014E8121E1470
+121C146012181440221A789926>87 D<3901FF07F839007801C00138138090383C0300EB
+1C025CEB1E08EB0E105C6D5A5CA21303A2497E13091311EB20E01340497E380100705A00
+021378000C1338121CB448B4FC1D1A7E991D>I<EA03CCEA0E2EEA181C123812301270EA
+E038A4EAC072A3EA60F2EA6134EA1E180F107C8F14>97 D<127E120EA35AA45AA2EA3BC0
+EA3C301278EA7018A3EAE038A4EAC070136013E0EA60C0EA6380EA1E000D1A7C9912>I<
+EA01E0EA0618120CEA1838EA3010EA7000126012E0A413081310EA6020EA30C0EA1F000D
+107C8F12>I<EB1F801303A3EB0700A4130EA2EA03CEEA0E2EEA181C123812301270485A
+A4EAC072A3EA60F2EA6134EA1E18111A7C9914>I<EA01E0EA0E18EA1C08123812701310
+EAFFE0EAE000A41308EA60101320EA30C0EA1F000D107C8F12>I<1307EB0980131BEB3B
+00133813301370A4EA07FFEA00E0A5485AA5485AA490C7FC5AA21206126612E412CC1270
+112181990C>I<13F338038B8038060700120E120C121CEA380EA4EA301CA3EA183C5BEA
+07B8EA0038A25B1260EAE0E0EAC1C0007FC7FC11177E8F12>I<EA1F801203A348C7FCA4
+120EA2137CEA0F86EA1E07A2121CA2EA380EA35B00701380A21338EB3900EAE019EA600E
+111A7E9914>I<1203120712061200A61238124C124E128E129CA2121C1238A212701272
+A212E212E41264123808197C980C>I<130C130E130C1300A613E0EA013812021204A3EA
+0070A413E0A4EA01C0A4EA03801263EAE70012CE12780F2081980C>I<EA1F801203A3EA
+0700A4120EA2130E1313EA1C2713431380EA1F00123CEA3F80EA39C0EA38E0EA70E2A313
+E4EAE064EA6038101A7E9912>I<121F1207A3120EA4121CA41238A41270A412E4A412E8
+1230081A7D990A>I<38307C1E38598663399E0783801403129CA239380E0700A3140ED8
+701C1340A2141C158038E0380C39601807001A107C8F1F>I<EA307CEA5986EA9E07A212
+9CA2EA380EA35B00701380A21338EB3900EAE019EA600E11107C8F16>I<EA01F0EA0618
+EA0C0CEA180E12301270126012E0A2130C131C13181330EA6060EA30C0EA1F000F107C8F
+14>I<EA030F380590C0EA09E0EBC060A3380380E0A4380701C0148013031400EA0E8E13
+7890C7FCA25AA4B4FC1317808F14>I<EA30F0EA5D18EA9E38EA9C181300A25AA45AA45A
+12600D107C8F10>114 D<EA03E0EA04301208EA18701360EA1C00EA1F8013C0EA0FE012
+00136012E0A2EA80C0EA4180EA3E000C107D8F10>I<1206120EA45AA2EAFFC0EA1C005A
+A45AA412E1A312E212E412380A177C960D>I<EA3806EA4C07EA4E0E128E129CA2EA1C1C
+1238A3EA7039A3EA3079EA389AEA0F0C10107C8F15>I<EA3818EA4C1C124EEA8E0C129C
+A2EA1C081238A213101270A21320EA3040EA18C0EA0F000E107C8F12>I<38380C10384C
+0E38EA4E1C008E1318129CA2381C38101238A338707020A2144012303818B880380F0F00
+15107C8F19>I<EA3806EA4C07EA4E0E128E129CA2EA1C1C1238A3EA7038A3EA3078EA38
+F0EA0F7012001360EA60E0EAE1C0EAC180EA4700123C10177C8F13>121
+D<EA0382EA07C4EA0FFCEA10081310EA00201340EA0180EA03001204EA08081210EA2018
+EA7FF0EA43E0EA81C00F107E8F10>I E /Fe 46 123 df<126012F0AF12601200A41260
+12F0A212600419779816>33 D<EA6030EAF078A8EAE038A30D0C7C9916>I<13E01201EA
+07C013005A121E5A123812781270A312F05AA77E1270A312781238123C7E7E7E13C0EA01
+E012000B217A9C16>40 D<12E07E127C121C121E7EEA0780120313C01201A313E01200A7
+120113C0A3120313801207EA0F00121E121C127C12F05A0B217C9C16>I<B51280A31103
+7E8D16>45 D<127012F8A312700505788416>I<EB01801303130714005B130E131E131C
+133C13381378137013F05B12015BA212035B120790C7FC5A120E121E121C123C12381278
+127012F05AA211207E9C16>I<12035A5AA25AB4FCA212F71207AEEAFFF8A30D197B9816>
+49 D<EA07E0EA1FF8EA7FFEEA783FEAF00FEB07801303A21200A2130714005B131E5B5B
+5BEA03E0EA078048C7FC381E0380123CEA7FFFB5FC7E11197E9816>I<127012F8A31270
+1200A8127012F8A312700512789116>58 D<EB03801307131FEB3E0013FCEA03F0485AEA
+1F80003EC7FC12FC12F012FC123E6C7EEA07E06C7EEA00FC133EEB1F801307130311157E
+9616>60 D<12E07E12FC123E6C7EEA07E06C7EEA00FC133EEB1F801307131FEB3E0013FC
+EA03F0485AEA1F80003EC7FC12FC12F05A11157E9616>62 D<EA7FF8EAFFFE6C7EEA1C07
+14801303A4EB0700EA1FFF5BA2EA1C1FEB038014C01301A41303EB0780EA7FFFB51200EA
+7FFC12197F9816>66 D<3801F180EA07FF5AEA1F0FEA3C0712781303127000F0C7FC5AA7
+7E387003801278A2EA3C07381F0F00EA0FFE6C5AEA01F011197E9816>I<387F07F038FF
+8FF8387F07F0381C01C0A7EA1FFFA3EA1C01A9387F07F038FF8FF8387F07F01519809816
+>72 D<EA7FFCEAFFFEEA7FFCEA0380B3EA7FFCEAFFFEEA7FFC0F197D9816>I<B47E7F5B
+001CC7FCAE144014E0A4B5FCA313197F9816>76 D<EA7FF8EAFFFE6C7E381C0F80130314
+C01301A313031480130F381FFF005B13F8001CC7FCA7127F487E6CC7FC12197F9816>80
+D<EA7FF0EAFFFC6C7EEA1C0FEB07801303A41307EB0F00EA1FFE5B7FEA1C1F1307A41410
+1438A2007F13F838FF83F0387F01E01519809816>82 D<EA07E3EA1FFF127FEA781F487E
+487EA290C7FC7E1278EA7F80EA1FF0EA07FCC67E130FEB07801303A212E0A2EAF00738F8
+0F00EAFFFE5BEAC7F011197E9816>I<387FFFE0B5FCA2EAE0E0A400001300AFEA07FC48
+7E6C5A13197F9816>I<EA1FE0EA7FF87FEA783EEA301EEA000EA2EA03FE121FEA7E0E12
+F012E0A2EAF01EEAF83E387FFFE0EA3FE7EA0F8313127E9116>97
+D<12FCA3121CA4137CEA1DFF001F1380EB07C0EA1E03381C01E0A21300A41301001E13C0
+1303381F078013FF381DFE00EA0C7813197F9816>I<EA03F8EA0FFE121FEA3C1EEA780C
+EA700012F05AA47EEA70071278EA3E0FEA1FFEEA0FFCEA03F010127D9116>I<133FA313
+07A4EA03C7EA0FF7EA3FFFEA3C1F487EEA700712F012E0A412F05BEA781FEA7C3F383FFF
+E0EA1FF7EA07C713197F9816>I<EA03F0EA0FFC487EEA3E1FEA780700701380EAF003B5
+FCA300E0C7FC7E387003801278EA3E0F381FFF006C5AEA03F811127E9116>I<131FEBFF
+805AEA03C7EB83001380A2EA7FFFB5FCA2EA0380ACEA7FFC487E6C5A11197F9816>I<38
+03E3C0380FFFE05A381E3CC0383C1E00EA380EA3EA3C1E6C5AEA1FFC5BEA3BE00038C7FC
+A2EA1FFC13FF4813C0EA780338F001E0EAE000A3EAF001387C07C0383FFF80380FFE00EA
+03F8131C7F9116>I<12FCA3121CA41378EA1DFEEA1FFF130FEA1E07A2121CA938FF8FE0
+139F138F13197F9816>I<1203EA0780A2EA0300C7FCA4EAFF80A31203ACEAFFFC13FE13
+FC0F1A7C9916>I<13301378A213301300A4EA0FF8121F120FEA0038B3EA6078EAF0F0EA
+FFE0EA7FC0EA3F800D237E9916>I<127E12FE127E120EA4EB7FE0A3EB0F00131E5B5B5B
+EA0FF8A213BC131EEA0E0E130FEB0780387F87F0EAFFCFEA7F871419809816>I<EA7FC0
+12FF127F1201B3EA7FFFB512806C130011197E9816>I<38F9C38038FFEFC0EBFFE0EA3E
+7CEA3C78EA3870AA38FE7CF8A31512809116>I<EAFC78EAFDFEB5FCEA1F0FEA1E07A212
+1CA938FF8FE0139F138F13127F9116>I<EA03E0EA0FF8487EEA3C1E487EEA700738E003
+80A5EAF00700701300EA780FEA3C1EEA1FFC6C5AEA03E011127E9116>I<EAFC7CEAFDFF
+B51280381F07C0EA1E03381C01E0A21300A41301001E13C01303381F078013FF381DFE00
+EA1C7890C7FCA6B47EA3131B7F9116>I<387F0FC038FF3FE0EA7F7F3807F040EBE0005B
+5BA290C7FCA7EA7FFC12FF127F13127F9116>114 D<EA0FECEA3FFC127FEAF03CEAE01C
+A2EAF000EA7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC13F8EAC7E00F127D
+9116>I<12035AA4EA7FFFB5FCA20007C7FCA75BEB0380A2130713873803FF005BEA00F8
+11177F9616>I<EAFC3FA3EA1C07AA5BEA1E1F381FFFE07EEA07C713127F9116>I<387F1F
+C038FF9FE0387F1FC0381C0700A2EA0E0EA36C5AA4EA03B8A3EA01F0A26C5A13127F9116
+>I<38FF1FE0A338380380A4EA39F3A20019130013B3A3EA1DB71317EA1F1FEA0F1EEA0E
+0E13127F9116>I<387F1FC0133F131F380F1E006C5AEA03B813F012016C5A12017FEA03
+B8EA073C131CEA0E0E387F1FC038FF3FE0387F1FC013127F9116>I<387F1FC038FF9FE0
+387F1FC0381C0700120E130EA212075BA2EA039CA21398EA01B8A2EA00F0A35BA3485A12
+79127BEA7F8090C7FC123C131B7F9116>I<383FFFC05AA238700780EB0F00131EC65A13
+F8485A485A485A48C7FC381E01C0123C1278B5FCA312127F9116>I
+E /Ff 63 127 df<126012F0AD12601200A4126012F0A212600417789614>33
+D<EAC060EAE0E0A5EAC060A50B0B7C9614>I<EA071CA5B51280A3380E3800A7B51280A3
+381C7000A511177F9614>I<EA3806EA7C0EEAFE1EEAEE1CA2133C1338EAFE78EA7C7012
+38EA00F05BA212015B12035BA21207130EEA0F1F380E3F80133B121E121CA2EA3C3F3838
+1F00EA180E111D7F9914>37 D<1230127CA2123C120CA3121C1238127012E012C0060C79
+9614>39 D<EA01801203EA0700120E5A5AA25AA35AA91270A37EA27E7E7EEA0380120109
+1D799914>I<12C07E12707E7E7EA27EA3EA0380A9EA0700A3120EA25A5A5A5A5A091D7D
+9914>I<EA0380A3EA638CEAF39EEA7FFCEA3FF8EA0FE0A2EA3FF8EA7FFCEAF39EEA638C
+EA0380A30F107E9214>I<EA01C0A7B51280A33801C000A711117F9314>I<127012F812FC
+A2127C121C1218123812F012C0060A798414>I<EAFFFEA30F037E8C14>I<127012F8A312
+700505798414>I<EA07C0EA0FE0EA1C70EA3838EA3018EA701CA2EAE00EA9EA701CA2EA
+3838A2EA1C70EA0FE0EA07C00F177E9614>48 D<12035AA25A123F12F712471207AEEAFF
+F0A20C177C9614>I<EA0FC0EA3FF0EA7838EA701CEAE01E130EA212401200131E131C13
+3C137813F0EA01E0EA03C0EA0780EA0F00121EEA3C0E1270EAFFFEA20F177E9614>I<EA
+0FC0EA3FF0EA7878EA703C131C12201200133C13381370EA0FE013F0EA0038131C131E13
+0E124012E0131EEAF01CEA7838EA3FF0EA0FC00F177E9614>I<137813F8EA01B8A2EA03
+38A21206120E120C121C12381230127012E0B51280A238003800A53803FF80A211177F96
+14>I<EA7FFCA2EA7000A7EA77C0EA7FF0EA7838EA601CEA001E130EA212E0A2131EEAF0
+3CEA7878EA3FF0EA0FC00F177E9614>I<127012F8A312701200A6127012F8A312700510
+798F14>58 D<130E131E133E13F8EA01F0EA03E0EA0F80EA1F00123E12F85A7E123E7EEA
+0F80EA03E0EA01F0EA00F8133E131E130E0F157E9514>60 D<12E07E7E123E7EEA0F80EA
+03E0EA01F0EA00F8133E131E133E13F8EA01F0EA03E0EA0F80EA1F00123E12F85A5A0F15
+7E9514>62 D<EA1FE0EA7FF8EAF01EEAE00EA2EA401EEA003C13F0EA01E0EA03C01380A4
+1300C7FCA41203EA0780A2EA03000F177E9614>I<EA01C0487EA21360A2EA0770A4EA06
+30EA0E38A4487EEA1FFCA2EA1C1CA2487EA238FE3F80A211177F9614>65
+D<EAFFF013FCEA381E130E1307A4130E131EEA3FFCA2EA381E130E1307A5130E131EEAFF
+FC13F810177F9614>I<3801F180EA07FFEA1E1FEA3C0FEA3807EA7803127012F048C7FC
+A738F0038012701278EA3807003C1300EA1E1EEA07FCEA01F011177F9614>I<B51280A2
+EA1C03A490C7FCA2131CA2EA1FFCA2EA1C1CA290C7FCA3EB01C0A4B5FCA21217809614>
+69 D<B512C0A2EA1C01A490C7FCA2131CA2EA1FFCA2EA1C1CA290C7FCA7B47EA2121780
+9614>I<38FE3F80A238380E00A8EA3FFEA2EA380EA938FE3F80A211177F9614>72
+D<EAFFF8A2EA0700B3EAFFF8A20D177D9614>I<EAFFC0A2001CC7FCAFEB0380A4B5FCA2
+11177F9614>76 D<38FE0FE0A2003E1380EA3B1BA413BBA2EA39B3A313F3EA38E3A21303
+A638FE0FE0A21317809614>I<EAFFF813FEEA1C0F7FEB0380A5EB07005BEA1FFE13F800
+1CC7FCA8B47EA21117809614>80 D<EAFFE013F8EA383C131C7FA45B133CEA3FF85BEA38
+787F131CA4EB1DC0A3EAFE0FEB070012177F9614>82 D<EA0FCCEA3FFCEA787CEAF03C12
+E0131CA2EAF0007E127EEA3FE0EA0FF8EA01FCEA003C131E130E12E0A3EAF01CEAF83CEA
+FFF8EAC7E00F177E9614>I<B51280A2EAE1C3A43801C000AFEA0FF8A211177F9614>I<12
+E0A27E127012781238123C121CA2121E120E120F7E1380120313C0120113E0120013F013
+70A213781338133C131C131E130E13060F1D7E9914>92 D<EA1FC0EA7FF0EA7078EA203C
+EA001CA2EA07FC121FEA7C1C12F012E0A3EA707C383FFF80EA0F8F11107E8F14>97
+D<12FCA2121CA513F8EA1FFE130F381E0780EA1C0314C01301A41303001E13801307381F
+0F0013FEEA1CF81217809614>I<EA03F8EA0FFEEA3C0EEA7804EA700012F05AA47E1270
+EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<137EA2130EA5EA07CEEA1FFEEA3C3EEA78
+1EEA700E12F012E0A412F0EA701E1278EA3C3E381FFFC0EA07CF12177F9614>I<EA07E0
+EA1FF8EA3C3CEA781CEA701EEAF00E12E0EAFFFEA2EAE0007E1270EA780EEA3C1EEA0FFC
+EA03F00F107E8F14>I<13FCEA01FEEA078E13041300A3EAFFFEA2EA0700ACEAFFF8A20F
+177F9614>I<EA07CF381FFF80EA3C7B38783C00EA701CA3EA783C6C5AEA3FF0EA77C000
+70C7FCA2EA3FF813FE7F38700F80EAF007EAE003A338700700EA7C1FEA1FFCEA07F01119
+7F8F14>I<12FCA2121CA51378EA1DFEEA1F8FEA1E07A2121CA938FF9FE0A21317809614>
+I<1203EA0780A2EA0300C7FCA4EAFF80A21203ACEAFFFCA20E187D9714>I<136013F0A2
+13601300A4EA1FF0A2EA0070B2EAE0E012E1EAFFC0EA3F000C207E9714>I<12FCA2121C
+A5EBFFC0A2EB3E005B5BEA1DF0EA1FE0A27F1370EA1E78EA1C3C7FA238FF3FC0A2121780
+9614>I<EAFF80A21203B3EAFFFEA20F177E9614>I<EAFB8EB51280EA3EFBEA3CF3EA38E3
+AA38FEFBE0A21310808F14>I<EAFC78EAFDFEEA1F8FEA1E07A2121CA938FF9FE0A21310
+808F14>I<EA07C0EA1FF0EA3C78EA701CA2EAE00EA6EA701CEA783CEA3C78EA1FF0EA07
+C00F107E8F14>I<EAFCF8EAFFFEEA1F0F381E0780EA1C0314C01301A41303001E138013
+07381F0F0013FEEA1CF890C7FCA6B47EA21218808F14>I<EA03E7EA0FF7EA3C3FEA780F
+1270EAF00712E0A412F0EA700FEA781F6C5AEA1FF7EA07C7EA0007A6EB3FE0A213187F8F
+14>I<EAFE1FEB7F80EA0FE3EB8100138090C7FC120EA8EAFFF8A211107F8F14>I<EA0FD8
+EA7FF8EAE078EAC038A2EAF000EA7F80EA3FF0EA07FCEA001EEAE00E130612F0EAF81CEA
+FFF8EACFE00F107E8F14>I<120EA5EAFFFCA2EA0E00A8130EA3EA0F1EEA07FCEA01F00F
+157F9414>I<EAFC3FA2EA1C07AA5BEA1E1F380FFFE0EA03E71310808F14>I<38FF7F80A2
+383C1E00EA1C1CA36C5AA3EA0630EA0770A36C5AA311107F8F14>I<38FF7F80A2387007
+00EA380EA3EA39CEA3EA1B6C121AA3EA1E7CA2EA0E3811107F8F14>I<38FE7F80A2381E
+3C00EA0E78EA07705B12036C5A12037FEA0770EA0E781338487E38FF7F80A211107F8F14
+>I<38FF7F80A2381C0E005BA2120E5BA212071330A2EA0370A25B1201A25BA3485A1273
+0077C7FC127E123C11187F8F14>I<EA7FFFA2EA700E131C1338EA007013E0EA01C0EA03
+80EA0700120EEA1C0712381270B5FCA210107F8F14>I<EA1C18EA7F38EAE7F0EAC1C00D
+047D9614>126 D E /Fg 6 116 df<3801F8083807FF18381E0398383800F80030137800
+7013380060131812E01408A36C13001278127CEA3F8013F86CB4FC000713C0000113E038
+001FF01301EB00781438143C141C7EA46C13186C1338143000F8136038CF01E038C7FF80
+3880FE0016247CA21E>83 D<007FB6FCA2397801E00F0060140381124000C01580A20080
+1400A400001500B3A290B512C0A221227DA127>I<39FFC01FC0391E000F00140C5C1410
+1460148049C7FC13025B130C131E133E134FEB8F80EA1F07381E03C08013016D7E801478
+80143E143F39FFC07FC01A1A7E9920>107 D<EAFFE0001FC7FC121EAF1410A314301420
+146014E01301B5FC141A7E991A>I<EB7F803801C0E038070038000E7F487F003C130F00
+387F0078148000701303A200F014C0A70078EB0780A200381400003C5B001C130E6C5B6C
+5B3801C0E038007F801A1A7E9920>111 D<EA07E1EA181BEA3007487EA2EAE001A36CC7
+FC12FCEA7F80EA3FF86C7E6C7EC67E131FEB0780A2EA8003A300C013005BEAE006EADC0C
+EA83F0111A7E9917>115 D E /Fh 6 116 df<3803F040380C0CC0EA1002EA3001EA6000
+12E01440A36C13007E127EEA7FE0EA3FFC6CB4FC00071380EA007FEB07C0EB03E0130113
+007EA36C13C0A238E0018038D00300EACE06EA81F8131E7D9C19>83
+D<007FB512C038700F010060130000401440A200C014201280A300001400B1497E3803FF
+FC1B1C7D9B21>I<38FF81F8381C01E01480140013025B5B5B1330137013B8EA1D1C121E
+EA1C0E7F14801303EB01C014E014F038FF83FC16157F941A>107
+D<EAFFC0001CC7FCAC1480A3130114005B5BB5FC11157F9415>I<EA01F8EA070EEA0C03
+001C1380383801C0007813E0EA700000F013F0A7007013E0EA7801003813C0381C0380EA
+1E0738070E00EA01F814157E941A>111 D<EA1F10EA30F0EA603012C01310A2EAE000A2
+127EEA3FC0EA1FE0EA03F0EA0078133813181280A21310EAC030EAF060EA8F800D157E94
+13>115 D E /Fi 47 124 df<EB3FC03801F0303803C0380007137CEA0F80A2143891C7
+FCA4B512FCA2380F807CAE397FE1FF80A2191D809C1B>12 D<90383FC1FE3A01F03F8180
+3A03C03E01C0000790387E03E0380F807CA2ED01C092C7FCA4B712E0A2390F807C03AE3A
+7FE1FF0FFCA2261D809C28>14 D<127812FCA4127806067D850D>46
+D<1360EA01E0120F12FF12F31203B3A2387FFF80A2111B7D9A18>49
+D<EA07F8EA1FFE38383F8038780FC0EAFC0714E01303A21278EA000714C0A2EB0F80EB1F
+00131E13385B5B38018060EA03001206000813E0381FFFC05A5AB5FCA2131B7E9A18>I<
+EA07F8EA1FFEEA3C1FEB0F80387C07C0127E127C123838000F80A2EB1E005BEA03F8EA00
+1EEB0F80EB07C0A214E01230127812FCA214C038780F80EB1F00EA1FFEEA07F8131B7E9A
+18>I<EB018013031307130F131F133F136F13CF138F1201EA030F1206120C1218123012
+6012C0B512F8A238000F80A6EBFFF8A2151B7F9A18>I<127812FCA412781200A6127812
+FCA4127806127D910D>58 D<EB0380A2497EA3497EA2497E131BEB3BF81331A2EB60FCA2
+EBE0FEEBC07EA248487E90B5FC481480EB001F4814C00006130FA248EB07E0A239FF803F
+FEA21F1C7E9B24>65 D<B512F814FF390FC01F80EC0FC0140715E0A515C0EC0F80EC3F00
+EBFFFE9038C00F80EC07C0EC03E0A215F0A5EC07E0A2EC1FC0B6120014FC1C1C7E9B22>
+I<90381FE0209038FFF8E03803F80F3807C003380F800148C7FC123E1560127E127C00FC
+1400A8007C1460127E123E15C07E390F8001803907C003003803F80E3800FFFCEB1FE01B
+1C7D9B22>I<B512F814FF390FC01FC0EC07E0EC01F015F8140015FC157CA2157EA8157C
+A315F8A2EC01F0EC07E0EC1FC0B6120014F81F1C7E9B25>I<39FFFC3FFFA2390FC003F0
+AA90B5FCA2EBC003AC39FFFC3FFFA2201C7E9B25>72 D<EAFFFCA2EA0FC0B3A6EAFFFCA2
+0E1C7E9B12>I<EAFFFEA2EA0FC0AF1403A31407A21406140E141E147EB512FEA2181C7E
+9B1D>76 D<D8FFC0EB03FF6D5B000F15F0D80DF0130DA3D80CF81319A2017C1331A26D13
+61A26D13C1A390380F8181A2903807C301A2EB03E6A2EB01FCA3EB00F8A23AFFC0701FFF
+A2281C7E9B2D>I<EB3FE03801F07C3803C01E390F800F80391F0007C0001E1303003E14
+E0007E14F0007C1301A200FC14F8A8007C14F0007E1303A2003E14E0003F13076C14C039
+0F800F803903C01E003801F07C38003FE01D1C7D9B24>79 D<B512F814FE390FC03F8014
+0FEC07C015E0A515C0A2EC0F80EC3F00EBFFFC01C0C7FCABEAFFFCA21B1C7E9B21>I<38
+07F820381FFEE0EA3C07EA7801EA700012F01460A26C130012FEEAFFE0EA7FFE6C7E1480
+000F13C06C13E0EA007FEB03F01301130012C0A214E07E38F001C0EAFC0338EFFF00EA83
+FC141C7D9B1B>83 D<007FB512E0A238781F81007013800060146000E0147000C01430A4
+00001400B03807FFFEA21C1C7E9B21>I<39FFFC03FFA2390FC00030B3120715606C6C13
+E03901F001C03900FC078090387FFE00EB0FF8201C7E9B25>I<3BFFF87FFE0FFCA23B0F
+C007E000C081D9E003130100071680EC07F801F014030003D90FFC1300140CD801F81406
+EC1CFE9039FC187E0E0000150CEC303F01FE141CD97E701398EC601F013F14B002E013F0
+ECC00F011F5CEC8007A2010F5CEC00036D5CA22E1C7F9B31>87 D<EA0FF8EA1C1E383E0F
+80130714C0121C1200137FEA07E7EA1F07123C127C12F8A3EA780B383E13F8EA0FE11512
+7F9117>97 D<B4FCA2121FA9EB3F80EBE1E0EB8070EB0078143CA2143EA6143CA21478EB
+8070381EC1E0381C3F00171D7F9C1B>I<EA03FCEA0E0EEA1C1F123C1278130E00F8C7FC
+A61278EB0180123C381C0300EA0E0EEA03F811127E9115>I<EB0FF0A21301A9EA01F9EA
+0F07EA1C03EA3C011278A212F8A61278A2123CEA1C03380F0FFEEA03F9171D7E9C1B>I<
+EA03FCEA0F07381C0380383C01C0127814E012F8A2B5FC00F8C7FCA3127814607E6C13C0
+380F03803801FC0013127F9116>I<137F3801E3803803C7C0EA0787120FEB8380EB8000
+A5EAFFF8A2EA0F80AEEA7FF0A2121D809C0F>I<3803F0F0380E1F38EA3C0F3838073000
+781380A400381300EA3C0FEA1E1CEA33F00030C7FCA3EA3FFF14C06C13E014F0387801F8
+38F00078A300701370007813F0381E03C03807FF00151B7F9118>I<B4FCA2121FA9EB0F
+C0EB31E0EB40F0EB80F8A21300AB38FFE7FFA2181D7F9C1B>I<121E123FA4121EC7FCA6
+127FA2121FAEEAFFC0A20A1E7F9D0E>I<137813FCA413781300A6EA03FCA2EA007CB212
+7012F8137813F0EA70E0EA1F800E26839D0F>I<B4FCA2121FA9EB03FCA2EB01C0EB0300
+130E5B5B137813FC13BE131F7F1480EB07C0EB03E0130138FFE7FEA2171D7F9C19>I<B4
+FCA2121FB3A7EAFFE0A20B1D7F9C0E>I<39FF0FC07E903831E18F3A1F40F20780D980FC
+13C0A2EB00F8AB3AFFE7FF3FF8A225127F9128>I<38FF0FC0EB31E0381F40F0EB80F8A2
+1300AB38FFE7FFA218127F911B>I<EA01FC380F0780381C01C0003C13E0387800F0A200
+F813F8A6007813F0A2383C01E0381E03C0380F07803801FC0015127F9118>I<38FF3F80
+EBE1E0381F80F0EB0078147C143C143EA6143C147C1478EB80F0EBC1E0EB3F0090C7FCA6
+EAFFE0A2171A7F911B>I<EAFE3E1347381E8F80A3381F070090C7FCAAEAFFE0A211127F
+9114>114 D<EA1FD8EA3078EA601812E0A2EAF000EAFF80EA7FE013F0EA1FF8EA07FCEA
+007CEAC01CA212E01318EAF830EACFC00E127E9113>I<1203A45AA25AA2EA3FFC12FFEA
+1F00A9130CA4EA0F08EA0798EA03F00E1A7F9913>I<38FFC1FCA2381F00601380000F13
+C0A23807C180A23803E300A213F7EA01F613FE6C5AA21378A2133016127F9119>118
+D<39FF8FF8FEA2391F03E030A3390F87F06013869038C6F8E03907CC78C0A23903FC7D80
+EBF83D143F3901F01F00A20000131EEBE00EA21F127F9122>I<38FFC7FCA2381F81C038
+0F83803807C700EA03EEEA01FC5B1200137C13FEEA01DF38039F80EA070F380607C0380C
+03E038FF07FCA216127F9119>I<38FFC1FCA2381F00601380000F13C0A23807C180A238
+03E300A213F7EA01F613FE6C5AA21378A21330A25B1270EAF8E05BEAF9800073C7FC123E
+161A7F9119>I<387FFF8038781F00EA703FEA603E5B13FC5BEA01F01203485AEBC180EA
+0F81121F1303003E1300EA7E07EA7C0FB5FC11127F9115>I<B512FE1701808B18>I
+E /Fj 30 123 df<14FE90380301801306EB0C03EB1C0191C7FC13181338A43803FFFE38
+00700EA35CA213E0A25CA3EA01C01472A438038034141891C7FC90C8FCA25A12C612E65A
+12781925819C17>12 D<12E0A3127012301210121812080508749C15>18
+D<EAFFC0A30A037D890F>45 D<1230127812F0126005047C830D>I<001FB512C0381C07
+0138300E0000201480126012405B1280A2000014005BA45BA45BA4485AA41203EA7FFE1A
+1C799B1E>84 D<EA01E3EA0717EA0C0F1218EA380E12301270A2EAE01CA41339A3EA6079
+EA319AEA1E0C10127C9115>97 D<123F1207A2120EA45AA4EA39E0EA3A18EA3C0C123812
+70130EA3EAE01CA31318133813301360EA60C0EA3180EA1E000F1D7C9C13>I<13F8EA03
+04120EEA1C0EEA181CEA30001270A25AA51304EA60081310EA3060EA0F800F127C9113>
+I<EB07E01300A2EB01C0A4EB0380A43801E700EA0717EA0C0F1218EA380E12301270A248
+5AA41339A3EA6079EA319AEA1E0C131D7C9C15>I<13F8EA0704120CEA1802EA38041230
+EA7008EA7FF0EAE000A5EA60041308EA30101360EA0F800F127C9113>I<EB03C0EB0670
+130CEB1C601400A25BA53803FF8038007000A55BA5485AA5485AA390C7FCA25A12C612E6
+5A12781425819C0D>I<EB78C0EA01C5EA03031206000E1380120C121CA238380700A413
+0EA3EA181EEA0C7CEA079CEA001CA25BA2EAC030EAE070EAC1C0007FC7FC121A7E9113>
+I<EA0FC01201A2485AA448C7FCA4EA0E3E13C3380F0380120E121E121CA338380700A313
+0E00701340A2131C1480EAE00C38600700121D7E9C15>I<EA01801203EA0100C7FCA712
+1C12261247A2128EA2120E5AA35AA21271A31272A2123C091C7C9B0D>I<EA0FC01201A2
+485AA448C7FCA4380E07801308EB11C01321381C4180EB8000001DC7FC121EEA3FC0EA38
+E01370A2EA7071A31372EAE032EA601C121D7E9C13>107 D<EA1F801203A2EA0700A412
+0EA45AA45AA45AA412E2A312E412641238091D7D9C0B>I<391C1E078039266318C03946
+83A0E0384703C0008E1380A2120EA2391C0701C0A3EC0380D8380E1388A2EC0708151039
+701C032039300C01C01D127C9122>I<EA383EEA4CC3384D0380124E129E129C121CA238
+380700A3130E00701340A2131C1480EAE00C3860070012127C9117>I<13F8EA030CEA0E
+06487E1218123000701380A238E00700A3130EA25BEA60185BEA30E0EA0F8011127C9115
+>I<380387803804C860EBD03013E0EA09C014381201A238038070A31460380700E014C0
+EB0180EB8300EA0E86137890C7FCA25AA45AB4FC151A809115>I<EA01E1EA0713EA0C0F
+1218EA380E12301270A2EAE01CA41338A3EA6078EA31F0EA1E701200A213E0A4EA01C0EA
+0FF8101A7C9113>I<EA1C3CEA2642EA4687EA4707EA8E061300120EA25AA45AA45A1230
+10127C9112>I<EA01F0EA0608120C131CEA1818EA1C00121F13C0EA0FF01207EA007813
+38EA603012E012C0EA8060EA60C0EA1F000E127D9111>I<12035AA3120EA4EAFFE0EA1C
+00A35AA45AA4EAE080A2EAE100A2126612380B1A7C990E>I<381C0180EA2E03124EA238
+8E0700A2121CA2EA380EA438301C80A3EA383C38184D00EA0F8611127C9116>I<EA1C06
+EA2E0EEA4E06A2EA8E02A2121CA2EA3804A313081230A21310EA3820EA1840EA0F800F12
+7C9113>I<381E0183382703871247148338870701A2120EA2381C0E02A31404EA180C13
+1C1408EA1C1E380C26303807C3C018127C911C>I<38038780380CC840380870E0121038
+20E0C014001200A2485AA4EA03811263EAE38212C5EA8584EA787813127E9113>I<381C
+0180EA2E03124EA2388E0700A2121CA2EA380EA4EA301CA3EA383CEA1878EA0FB8EA0038
+13301370EAE0605BEA81800043C7FC123C111A7C9114>I<EA01C1EA07E1EA0FF6EA081C
+EA1008EA0010132013401380EA010012025AEA08041210EA2C0CEA73F8EA41F0EA80E010
+127E9111>I E /Fk 36 121 df<13181378EA01F812FFA21201B3A7387FFFE0A213207C
+9F1C>49 D<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE0314F8A21301127CEA3803
+120014F0A2EB07E014C0EB0F80EB1F00133E13385BEBE018EA01C0EA0380EA0700000E13
+38380FFFF05A5A5AB5FCA215207D9F1C>I<13FE3807FFC0380F07E0381E03F0123FEB81
+F8A3EA1F0314F0120014E0EB07C0EB1F803801FE007F380007C0EB01F014F8EB00FCA200
+3C13FE127EB4FCA314FCEA7E01007813F8381E07F0380FFFC03801FE0017207E9F1C>I<
+14E013011303A21307130F131FA21337137713E7EA01C71387EA03071207120E120C1218
+1238127012E0B6FCA2380007E0A790B5FCA218207E9F1C>I<00301320383E01E0383FFF
+C0148014005B13F8EA33C00030C7FCA4EA31FCEA37FF383E0FC0383807E0EA3003000013
+F0A214F8A21238127C12FEA200FC13F0A2387007E0003013C0383C1F80380FFF00EA03F8
+15207D9F1C>I<1238127C12FEA3127C12381200A81238127C12FEA3127C123807167C95
+10>58 D<1470A214F8A3497EA2497EA3EB067FA2010C7F143FA2496C7EA201307F140F01
+707FEB6007A201C07F90B5FC4880EB8001A2D803007F14004880000680A23AFFE007FFF8
+A225227EA12A>65 D<D903FE138090381FFF819038FF01E33901F8003FD803E0131F4848
+130F48481307121F48C71203A2481401127EA200FE91C7FCA8127EED0180127F7E15036C
+6C1400120F6C6C1306D803F05B6C6C13386CB413F090381FFFC0D903FEC7FC21227DA128
+>67 D<B51280A23807F000B3ACB51280A211227EA115>73 D<D8FFF0EC0FFF6D5C000716
+E0D806FC1437A3017E1467A26D14C7A290391F800187A290390FC00307A3903807E006A2
+903803F00CA2903801F818A3903800FC30A2EC7E60A2EC3FC0A2EC1F80A3EC0F00D8FFF0
+91B5FC140630227EA135>77 D<EB07FC90383FFF809038FC07E03903F001F848486C7E48
+48137E48487FA248C7EA1F80A24815C0007E140FA200FE15E0A9007E15C0007F141FA26C
+15806D133F001F15006C6C137E6C6C5B6C6C485A3900FC07E090383FFF80D907FCC7FC23
+227DA12A>79 D<B6FC15E03907F007F0EC01FC1400157EA2157FA5157EA215FC1401EC07
+F090B512E0150001F0C7FCADB57EA220227EA126>I<B512FEECFFC03907F007F0EC01F8
+6E7E157E157FA6157E5D4A5AEC07F090B512C05D9038F00FE06E7E6E7E6E7EA81606EC00
+FEEDFF0CB538803FF8ED0FF027227EA12A>82 D<007FB61280A2397E03F80F0078140700
+7014030060140100E015C0A200C01400A400001500B3A248B512F0A222227EA127>84
+D<EA0FFC383FFF80387E07C0EB03E0130114F0123C1200A2133FEA03FDEA1FC1EA3F0112
+7E12FCA4EA7E02EB0CF8381FF87F3807E03F18167E951B>97 D<B4FCA2121FABEB0FE0EB
+3FF8EBE07CEB803E497EEC0F80A215C0A81580141F01801300EBC03E381EE07C381C3FF8
+38180FC01A237EA21F>I<EBFF80000713E0380F83F0EA1F03123E127E387C01E090C7FC
+12FCA6127C127EA2003E13186C1330380FC0603807FFC0C6130015167E9519>I<EB01FE
+A2EB003EABEA01FC3807FFBE380F81FE381F007E003E133E127E127C12FCA8127CA26C13
+7E6C13FE380F83BE3907FF3FC0EA01FC1A237EA21F>I<13FE3807FF80380F87C0381E01
+E0003E13F0EA7C0014F812FCA2B5FCA200FCC7FCA3127CA2127E003E13186C1330380FC0
+703803FFC0C6130015167E951A>I<EB1FC0EB7FE0EBF1F0EA01E31203EA07C3EBC1E0EB
+C000A6EAFFFEA2EA07C0B2EA3FFCA2142380A211>I<3801FE0F3907FFBF80380F87C738
+1F03E7391E01E000003E7FA5001E5BEA1F03380F87C0EBFF80D809FEC7FC0018C8FCA212
+1C381FFFE06C13F86C13FE001F7F383C003F48EB0F80481307A40078EB0F006C131E001F
+137C6CB45A000113C019217F951C>I<121C123E127FA3123E121CC7FCA7B4FCA2121FB2
+EAFFE0A20B247EA310>105 D<1338137C13FEA3137C13381300A7EA03FEA2EA003EB3A5
+127812FC133C137CEA78F8EA7FE0EA1F800F2E83A311>I<B4FCA2121FABECFF80A2EC38
+001460495A495A49C7FC130E5B137E13FF13CFEB0F806D7E6D7E1301806D7E147C143C39
+FFE0FFC0A21A237EA21E>I<B4FCA2121FB3ADEAFFE0A20B237EA210>I<3AFF07F007F090
+391FFC1FFC3A1F303E303E01401340496C487EA201001300AE3BFFE0FFE0FFE0A22B167E
+9530>I<38FF07E0EB1FF8381F307CEB403CEB803EA21300AE39FFE1FFC0A21A167E951F>
+I<13FE3807FFC0380F83E0381E00F0003E13F848137CA300FC137EA7007C137CA26C13F8
+381F01F0380F83E03807FFC03800FE0017167E951C>I<38FF0FE0EB3FF8381FE07CEB80
+3E497E1580A2EC0FC0A8EC1F80A29038803F00EBC03EEBE0FCEB3FF8EB0FC090C8FCA8EA
+FFE0A21A207E951F>I<EAFE1FEB3FC0381E67E013C71387A2381F83C090C7FCADEAFFF0
+A213167E9517>114 D<EA0FF3EA3FFFEA781FEA6007EAE003A212F000FCC7FCEA7FE013
+F8EA3FFEEA0FFF120138000F80EAC007130312E0A238F00700EAFC0EEAEFFCEAC7F01116
+7E9516>I<487EA41203A21207A2120F123FB5FCA2EA0F80ABEB8180A5EB8300EA07C3EA
+03FEEA00F811207F9F16>I<38FF01FEA2381F003EAF147E14FE380F81BE3907FF3FC0EA
+01FC1A167E951F>I<39FFE01FE0A2391F800700000F1306EBC00E0007130C13E000035B
+A26C6C5AA26C6C5AA2EB7CC0A2137F6D5AA26DC7FCA2130EA21B167F951E>I<3AFFE3FF
+07F8A23A1F007800C09038807C01000F1580A23A07C07E030014DE5D3903E1DF06148FD8
+01F1138CEBF307A2D800FF13D8EBFE0315F890387C01F0A2013C5BEB3800A225167F9528
+>I<39FFE07FC0A2390F801C006C6C5A6C6C5AEBF0606C6C5A3800F980137F6DC7FC7F80
+497E1337EB63E0EBC1F03801C0F848487E3807007E000E133E39FF80FFE0A21B167F951E
+>I E /Fl 6 116 df<EA07E1EA181BEA2007EA600312C07FA36CC7FC1270127EEA3FE0EA
+1FFCEA03FEEA003F1307EB0380A2EA8001A300C013005BEAE002EADC0CEA83F0111A7D99
+17>83 D<007FB5FC38701C0700401301A200C0148000801300A300001400B13803FFE019
+1A7E991D>I<38FF81F8381C01E01480EB030013045B5B5B137013F8EA1F38EA1C1C7FA2
+7FEB038014C014E038FF87F815137F9218>107 D<B47E001CC7FCAB1480A2130114005B
+5BB5FC1113809213>I<EA03F8EA0E0E487E38380380387001C0A2EA600000E013E0A638
+7001C0A238380380381C0700EA0E0EEA03F813137E9218>111 D<EA1F90EA2070EA4030
+EAC010A213007E127CEA7F80EA3FC0EA07E0EA0070A213301280A2EAC020EAE040EA9F80
+0C137E9211>115 D E /Fm 23 120 df<127812FCA4127806067D850C>46
+D<EA0180120712FFA21207B2EAFFFCA20E187C9716>49 D<1303497EA2497EA3EB1BE0A2
+EB3BF01331A2EB60F8A2EBE0FCEBC07CA248487EEBFFFE487FEB001F4814800006130FA2
+48EB07C039FF803FFCA21E1A7F9921>65 D<90381FE0209038FFFCE03803F80F3807C003
+381F800190C7FC123E007E1460127C00FC1400A8007C1460127E123E6C14C07F3907C003
+803903F80F003800FFFCEB1FF01B1A7E9920>67 D<B512FCA2380F803C141C140C140E14
+06A2EB81861480A2138313FFA213831381A3EB8000A6EAFFFCA2171A7E991C>70
+D<3807F040381FFDC0EA3C0FEA7803EA700112F01300A26C1300B4FCEA7FF86CB4FC6C13
+806C13C0000113E0EA000FEB03F01301EAC000A36C13E0EAF00138FC03C038EFFF803883
+FE00141A7E9919>83 D<39FFF81FF8A2390F800180B20007EB030013C0000313063801F0
+1C38007FF8EB1FE01D1A7E9922>85 D<EA1FF0EA383CEA7C1E7FA21238120013FFEA0FCF
+EA3E0F127C12F8A31317387C27E0EA1FC313117F9015>97 D<12FCA2123CA713FE383F87
+80383E01C0003C13E0EB00F0A214F8A514F0A2EB01E0003E13C0383B07803830FE00151A
+7E9919>I<EA03FCEA0F0EEA1C1F123C1278130E00F8C7FCA51278A2383C0180381C0300
+EA0F06EA03FC11117F9014>I<EB07E0A21301A7EA03F9EA0F07EA1C03EA3C011278A212
+F8A51278A2123CEA1C03380F0DF8EA03F9151A7F9919>I<EA03F0EA0E1C487EEA3C0712
+78148012F8A2B5FC00F8C7FCA21278A2383C0180381C0300EA0E06EA03FC11117F9014>
+I<3807F1C0381C1EE0EA380E38780FC01400A4EA380E6C5AEA37F00020C7FC1230A2EA3F
+FE381FFF8014C0EA700338E000E0A4387001C0383C07803807FC0013197F9016>103
+D<123C127EA4123C1200A412FCA2123CAD12FFA2081B7E9A0D>105
+D<12FCA2123CB3A412FFA2081A7E990D>108 D<39FC3E03E09038C78C78393D03903800
+3EEBE03CA2003C13C0AA39FF0FF0FFA220117E9025>I<EAFC3EEBC780EA3D03003E13C0
+A2123CAA38FF0FF0A214117E9019>I<EAFCFE38FF8780383E03C0383C01E014F0130014
+F8A514F0130114E0383E03C0383F0780383CFE0090C7FCA5B4FCA215187E9019>112
+D<EAF8F0EAF938EA3A7CA2123C13381300A9EAFF80A20E117E9012>114
+D<EA1FD8EA2078EA401812C0A2EAF000EAFF80EA7FE0EA3FF0EA07F8EA003CEAC00CA212
+E01308EAF830EACFE00E117F9011>I<1206A4120EA2121EEA3FF012FFEA1E00A81318A5
+EA0F30EA03E00D187F9711>I<38FF03F0A2383E01C0001E1380EA1F03000F1300A2EA07
+86A2EA03CCA213FC6C5AA26C5AA2136014117F9017>118 D<39FF1FE1F8A2393C078060
+001E14C014C0EB0DC1000F1480EB1DE1390798E30014F3EBB0733803F076147EEBE03E00
+01133CA23800C0181D117F9020>I E /Fn 77 124 df<EBFE7C380381C6380603CE000E
+1384001C1380A6B512F0381C0380AE38FF8FF0171A809916>11 D<13FEEA038138060180
+EA0E03381C010090C7FCA5B51280EA1C03AE38FF8FF0141A809915>I<EBFF80EA0383EA
+0603120E121CA6B5FCEA1C03AE38FF9FF0141A809915>I<90387E1F803901C170403907
+03C0600006EB80E0000E14401500A5B612E0380E0380AE397F8FE3FC1E1A809920>I<12
+E0A212F012381218120C120406077C9913>18 D<121CA2123C1270126012C01280060778
+9913>I<EA60C0EAF1E0EAF9F0EA68D0EA0810A3EA1020A2EA2040EA40800C0B7F9913>
+34 D<1380EA010012025A120C120812185AA35AA412E0AA1260A47EA37E1208120C1204
+7E7EEA008009267D9B0F>40 D<7E12407E7E12181208120C7EA37EA41380AA1300A41206
+A35A1208121812105A5A5A09267E9B0F>I<126012F0A212701210A31220A21240A2040B
+7D830B>44 D<EAFFC0A20A0280880D>I<126012F0A2126004047D830B>I<130CA2131C13
+18A213381330A213701360A213E013C0A212011380A2120313005A1206A2120E120CA212
+1C1218A212381230A212701260A212E05AA20E257E9B13>I<EA07E0EA1C38EA381CEA30
+0CEA700EEA6006A2EAE007AAEA6006A2EA700EEA300CEA381CEA1C38EA07E010187F9713
+>I<12035AB4FC1207B3A2EA7FF80D187D9713>I<EA0F80EA1060EA2030EA4038EA803CEA
+C01C12E01240EA003C1338A21370136013C0EA018013001202EA040412081210EA3008EA
+3FF8127F12FF0E187E9713>I<EA07E0EA1838EA201CEA601EEA700EEA201E1200131CA2
+13381370EA07E0EA0038131C130E130FA212E0A212C0EA400EEA601CEA1838EA07E01018
+7F9713>I<1318A21338137813F813B8EA01381202A212041208121812101220124012C0
+B5FCEA0038A6EA03FF10187F9713>I<EA3018EA3FF013E01380EA2000A5EA2FC0EA3060
+EA2030EA00381318131CA2124012E0A2EA8018EA40381330EA30E0EA0F800E187E9713>
+I<EA01F8EA0704EA0C06EA180E123013001270126012E0EAE3E0EAE418EAE80CEAF00EEA
+E0061307A31260A2EA7006EA300EEA180CEA0C38EA07E010187F9713>I<1240EA7FFF13
+FEA2EA4004EA80081310A2EA00201340A21380120113005AA25A1206A2120EA512041019
+7E9813>I<EA07E0EA1818EA300CEA20061260A21270EA780CEA3E18EA1F30EA07C0EA03
+E0EA0CF8EA307CEA601E130FEAC0071303A3EA6002EA2004EA1818EA07E010187F9713>
+I<EA07E0EA1C30EA3018EA700CEA600EEAE006A21307A31260EA700FEA3017EA1827EA07
+C7EA00071306130E130C12701318EA6030EA3060EA0F8010187F9713>I<126012F0A212
+601200A8126012F0A2126004107D8F0B>I<126012F0A212601200A8126012F0A2127012
+10A31220A21240A204177D8F0B>I<137F380180C03806003000081308487F38203E0213
+E13841C081384380710083EB7080EA8700A6EA838012433941C0F1003820E131EB3E1E6C
+C8FC7E0006EB03803901803E0038007FE0191A7E991E>64 D<130CA3131EA2132F1327A2
+EB4380A3EB81C0A200017F1300A248B47E38020070A2487FA3487FA2003C131EB4EBFFC0
+1A1A7F991D>I<B51280380E00E014701438143CA514781470EB01E0380FFFC0380E00F0
+1478143C141C141EA4141C143C147814F0B512C0171A7F991B>I<EB3F023801C0C63803
+002E000E131E48130E14065A007813021270A200F01300A600701302A21278003813047E
+14087E000313303801C0C038003F00171A7E991C>I<B57E380E00E01470808080A280A2
+1580A81500A25C140E5CA2147814E0B51280191A7F991D>I<B512F8380E003814181408
+140C1404A3EB0100A35BEA0FFFEA0E037FA3EB0002A314061404A2140C143CB512FC171A
+7F991A>I<B512F8380E003814181408140C1404A3EB0100A35BEA0FFFEA0E037FA390C7
+FCA8EAFFE0161A7F9919>I<EB3F023801C0C63803002E000E131E48130E14065A007813
+021270A200F090C7FCA5903801FFC03970000E00A2127812387EA27E000313163801C066
+38003F821A1A7E991E>I<39FFE1FFC0390E001C00AB380FFFFC380E001CAC39FFE1FFC0
+1A1A7F991D>I<EAFF80EA1C00B3A6EAFF80091A7E990E>I<EA0FFEEA0070B3124012E0A2
+EA40E0EA61C0EA1F000F1A7E9914>I<39FFE01FC0390E000F00140C14085C5C5C495A01
+02C7FC5B130C131C132E1347EB8380EA0F03380E01C06D7EA2147080A280141E141F39FF
+E07FC01A1A7F991E>I<EAFFE0000EC7FCB01408A3141814101430147014F0B5FC151A7F
+9918>I<B414FF000F14F0A2390B800170A23809C002A33808E004A2EB7008A3EB3810A3
+EB1C20A2EB0E40A3EB0780A2EB0300121C39FF8307FF201A7F9923>I<00FEEB7FC0000F
+EB0E001404EA0B80EA09C0A2EA08E01370A21338131CA2130E1307EB0384A2EB01C4EB00
+E4A21474143CA2141C140C121C38FF80041A1A7F991D>I<137F3801C1C038070070000E
+7F487F003C131E0038130E0078130F00707F00F01480A80078EB0F00A20038130E003C13
+1E001C131C6C5B6C5B3801C1C0D8007FC7FC191A7E991E>I<B51280380E01E0EB007014
+781438143CA4143814781470EB01E0380FFF80000EC7FCABEAFFE0161A7F991A>I<B5FC
+380E01C0EB0070147880A55C1470EB01C0D80FFFC7FC380E0380EB00C0801470A31478A3
+1540143CEC1C8039FFE00F001A1A7F991C>82 D<EA0FC2EA1836EA200EEA600612C01302
+A3EAE0001270127EEA3FE0EA1FF8EA03FCEA007E130E130713031280A3EAC0021306EAE0
+04EAD818EA87E0101A7E9915>I<007FB5FC38701C0700401301A200C0148000801300A3
+00001400B13803FFE0191A7F991C>I<39FFE07FC0390E000E001404B200065B12076C5B
+6C6C5A3800E0C0013FC7FC1A1A7F991D>I<3AFF81FF07F03A3C007801C0001CEC0080A3
+6C90389C0100A33907010E02A33903830F04EB8207A2150C3901C40388A33900E801D0A3
+90387000E0A301305B01201340241A7F9927>87 D<39FFC0FF80390F003C0014106C5BEA
+03806D5A00015BEA00E101F1C7FC137A133E131C131EA21317EB27801343EB41C0EB81E0
+EA010048137000021378481338000C7F001E133EB4EB7FC01A1A7F991D>I<12FEA212C0
+B3AF12FEA207257D9B0B>91 D<EA2040A2EA4080A2EA8100A3EAE1C0EAF1E0A2EA60C00B
+0B7A9913>I<12FEA21206B3AF12FEA20725809B0B>I<EA1FC0EA38707FEA101C1200A2EA
+03FCEA1E1C1238127012E01480A2133CEA705F381F8F0011107F8F13>97
+D<12FC121CA913FCEA1D07381E0380381C01C0130014E0A6EB01C01480381E0300EA1906
+EA10F8131A809915>I<EA07F8EA1C1C1238EA700813005AA612701304EA3808EA1C18EA
+07E00E107F8F11>I<133F1307A9EA03E7EA0C17EA180F487E127012E0A6126012706C5A
+EA1C373807C7E0131A7F9915>I<EA07C0EA1C30EA30181270EA600C12E0EAFFFCEAE000
+A41260EA7004EA3808EA1C18EA07E00E107F8F11>I<EA01F0EA0718EA0E38EA1C101300
+A6EAFFC0EA1C00AEEAFF800D1A80990C>I<EA0FCF3818718038303000EA7038A4EA3030
+6C5AEA2FC00060C7FCA21270EA3FF013FC6C7EEA600FEAC003A4EA6006EA381CEA07E011
+187F8F13>I<12FC121CA9137CEA1D87381E0380A2121CAB38FF9FF0141A809915>I<1218
+123CA212181200A612FC121CAE12FF081A80990A>I<EA0180EA03C0A2EA0180C7FCA6EA
+0FC01201B21241EAE180EAE300127E0A2182990C>I<12FC121CA9EB1FC0EB0F00130C5B
+13205B13E0121DEA1E70EA1C7813387F131E7F148038FF9FE0131A809914>I<12FC121C
+B3A6EAFF80091A80990A>I<38FC7C1F391D8E6380391E0781C0A2001C1301AB39FF9FE7
+F81D107F8F20>I<EAFC7CEA1D87381E0380A2121CAB38FF9FF01410808F15>I<EA07E0EA
+1C38EA300CEA700EEA6006EAE007A6EA6006EA700EEA381CEA1C38EA07E010107F8F13>
+I<EAFCFCEA1D07381E0380381C01C0A2EB00E0A6EB01C01480381E0300EA1D06EA1CF890
+C7FCA6B47E1317808F15>I<EAFC78EA1D9CEA1E1C1308EA1C00ABEAFF800E10808F0F>
+114 D<EA1F20EA60E0EA402012C0A2EAF000127FEA3FC0EA1FE0EA00F0EA8070133012C0
+1320EAF040EA8F800C107F8F0F>I<1208A41218A21238EAFFC0EA3800A81320A41218EA
+1C40EA07800B177F960F>I<38FC1F80EA1C03AB1307120CEA0E0B3803F3F01410808F15>
+I<38FF0F80383C0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0A36C5A11107F8F14
+>I<39FE7F1F8039381C0700003C1306381C0C04130E380E16081317A238072310149013
+A33803C1A014E0380180C0A319107F8F1C>I<38FE3F80383C1E00EA1C086C5AEA0F306C
+5A6C5A12017F1203EA0270487E1208EA181CEA381E38FC3FC012107F8F14>I<38FF0F80
+383C0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0A36C5AA248C7FCA212E112E212
+E4127811177F8F14>I<EAFFF8EAE07012C0EA80E0EA81C0A2EA0380EA0700A2EA0E0412
+1CA2EA380812701338EAFFF80E107F8F11>I<B512C01201808913>I
+E /Fo 74 123 df<EB7E1F3901C1B180390303E3C0000713C3000EEBC180903801C000A6
+B512FC380E01C0B0387F87FC1A1D809C18>11 D<137E3801C180EA0301380703C0120EEB
+018090C7FCA5B512C0EA0E01B0387F87F8151D809C17>I<EB7FC0EA01C1EA03031207EA
+0E01A7B5FCEA0E01B0387FCFF8151D809C17>I<90383F07E03901C09C18380380F0D807
+01133C000E13E00100131892C7FCA5B612FC390E00E01CB03A7FC7FCFF80211D809C23>
+I<126012F0A71260AD1200A5126012F0A21260041E7C9D0C>33 D<EA6060EAF0F0EAF8F8
+EA6868EA0808A3EA1010A2EA2020EA4040EA80800D0C7F9C15>I<126012F012F8126812
+08A31210A2122012401280050C7C9C0C>39 D<1380EA0100120212065AA25AA25AA35AA4
+12E0AC1260A47EA37EA27EA27E12027EEA0080092A7C9E10>I<7E12407E12307EA27EA2
+7EA37EA41380AC1300A41206A35AA25AA25A12205A5A092A7E9E10>I<1306ADB612E0A2
+D80006C7FCAD1B1C7E9720>43 D<126012F0A212701210A41220A212401280040C7C830C
+>I<EAFFE0A20B0280890E>I<126012F0A2126004047C830C>I<1303A213071306A2130E
+130C131C1318A213381330A213701360A213E013C0A21201138012031300A25A1206A212
+0E120CA2121C1218A21238123012701260A212E05AA210297E9E15>I<EA03C0EA0C30EA
+1818EA300CA2EA700EEA6006A2EAE007ADEA6006A2EA700EEA300CA2EA1818EA0C30EA07
+E0101D7E9B15>I<5A1207123F12C71207B3A5EAFFF80D1C7C9B15>I<EA07C0EA1830EA20
+1CEA400C130EEAF00F12F81307A21270EA000F130EA2131CA213381370136013C0EA0180
+EA0300EA0601120C1218EA1002EA3FFE127F12FF101C7E9B15>I<EA07E0EA1830EA201C
+A2EA781E130E131E1238EA001CA2131813301360EA07C0EA0030131CA2130E130FA21270
+12F8A3EAF00EEA401C1220EA1830EA07C0101D7E9B15>I<130CA2131C133CA2135C13DC
+139CEA011C120312021204120C1208121012301220124012C0B512C038001C00A73801FF
+C0121C7F9B15>I<EA300CEA3FF813F013C0EA2000A6EA23E0EA2C30EA3018131CEA200E
+1200130FA3126012F0A3EA800EEA401E131CEA2038EA1870EA07C0101D7E9B15>I<13F0
+EA030CEA0404EA0C0EEA181E1230130CEA7000A21260EAE3E0EAE430EAE818EAF00C130E
+EAE0061307A51260A2EA7006EA300E130CEA1818EA0C30EA03E0101D7E9B15>I<124038
+7FFF801400A2EA4002485AA25B485AA25B1360134013C0A212015BA21203A41207A66CC7
+FC111D7E9B15>I<EA03E0EA0C30EA1008EA200C13061260A21270A2EA7C0CEA3E18EA3F
+B0EA1FE0EA07F013F8EA18FCEA307EEA601E130FEAC0071303A4EA60021304EA300CEA1C
+10EA07E0101D7E9B15>I<126012F0A212601200AA126012F0A2126004127C910C>58
+D<126012F0A212601200AA126012F0A212701210A41220A212401280041A7C910C>I<13
+06A3130FA3EB1780A2EB37C01323A2EB43E01341A2EB80F0A338010078A2EBFFF8380200
+3CA3487FA2000C131F80001E5BB4EBFFF01C1D7F9C1F>65 D<B512C0380F00788080140E
+140FA4140E141E5C14F8EBFFF0EB003C8080801580A5EC0F00A2141E1478B512E0191C7F
+9B1D>I<90381F8080EBE0613801801938070007000E13035A14015A00781300A2127000
+F01400A8007014801278A212386CEB0100A26C13026C5B380180083800E030EB1FC0191E
+7E9C1E>I<B512C0380F00F0143C140E80A2EC038015C01401A215E0A815C0A214031580
+14071500140E5C1470B512C01B1C7E9B20>I<B512FC380F003C140C1404A214061402A2
+13011400A35B13FF13037FA3140113001402A31406A2140C143CB512FC181C7E9B1C>I<
+B512F8380F007814181408A2140C1404A213011400A35B13FF13037FA490C7FCA8EAFFF8
+161C7E9B1B>I<90381F8080EBE0613801801938070007000E13035A14015A00781300A2
+127000F01400A6ECFFF0EC0F80007013071278A212387EA27E6C130B380180113800E060
+90381F80001C1E7E9C21>I<39FFF0FFF0390F000F00AC90B5FCEB000FAD39FFF0FFF01C
+1C7F9B1F>I<EAFFF0EA0F00B3A8EAFFF00C1C7F9B0F>I<EAFFF8EA0F8090C7FCB01408A3
+1418A2141014301470EB01F0B5FC151C7E9B1A>76 D<B46CEBFF80000FECF800A2390BC0
+0178A33809E002A23808F004A3EB7808A3EB3C10A3EB1E20A3EB0F40A2EB0780A3EB0300
+121C3AFF8307FF80211C7E9B26>I<B4EB1FF0390F8003809038C00100120BEA09E0EA08
+F0A21378133C133E131E130F14811307EB03C1EB01E114F113001479147D143D141FA280
+8080121CB46C7E1C1C7F9B1F>I<EB3F80EBE0E03803803848487E000E7F487F003C1480
+00381303007814C0A20070130100F014E0A8007014C000781303A200381480003C130700
+1C14006C130E6C5B6C6C5A3800E0E0EB3F801B1E7E9C20>I<B51280380F00E01478143C
+141C141EA5141C143C147814E0EBFF8090C7FCACEAFFF0171C7E9B1C>I<B5FC380F01E0
+EB007880141C141EA4141C143C5CEB01E001FFC7FCEB01E0EB0070147880A61510A2141C
+A239FFF00E20C7EA03C01C1D7E9B1F>82 D<3807E080EA1C19EA30051303EA600112E013
+00A36C13007E127CEA7FC0EA3FF8EA1FFEEA07FFC61380130FEB07C0130313011280A300
+C01380A238E00300EAD002EACC0CEA83F8121E7E9C17>I<007FB512C038700F01006013
+0000401440A200C014201280A300001400B1497E3803FFFC1B1C7F9B1E>I<39FFF01FF0
+390F000380EC0100B3A26C1302138000035BEA01C03800E018EB7060EB0F801C1D7F9B1F
+>I<3AFFE1FFC0FF3A1F003E003C001E013C13186C6D1310A32607801F1320A33A03C027
+8040A33A01E043C080A33A00F081E100A39038F900F3017913F2A2017E137E013E137CA2
+013C133C011C1338A20118131801081310281D7F9B2B>87 D<39FFF07FC0390FC01E0038
+07800CEBC00800035B6C6C5A13F000005BEB7880137C013DC7FC133E7F7F80A2EB13C0EB
+23E01321EB40F0497E14783801007C00027F141E0006131F001F148039FF807FF01C1C7F
+9B1F>I<12FEA212C0B3B312FEA207297C9E0C>91 D<EA0808EA1010EA2020EA4040A2EA
+8080A3EAB0B0EAF8F8EA7878EA30300D0C7A9C15>I<12FEA21206B3B312FEA20729809E
+0C>I<EA1FC0EA3070EA78387F12301200A2EA01FCEA0F1C12381270126000E01340A3EA
+603C38304E80381F870012127E9115>97 D<12FC121CAA137CEA1D87381E0180381C00C0
+14E014601470A6146014E014C0381E018038190700EA10FC141D7F9C17>I<EA03F8EA0C
+0CEA181E1230EA700CEA600012E0A61260EA70021230EA1804EA0C18EA03E00F127F9112
+>I<EB1F801303AAEA03F3EA0E0BEA1807EA30031270126012E0A6126012701230EA1807
+EA0E1B3803E3F0141D7F9C17>I<EA07E0EA0C30EA1818EA300CEA700EEA600612E0EAFF
+FEEAE000A41260EA70021230EA1804EA0C18EA03E00F127F9112>I<13F8EA018CEA071E
+1206EA0E0C1300A6EAFFE0EA0E00B0EA7FE00F1D809C0D>I<EB03803807C4C0EA1C7838
+38388038301800EA701CA4EA3018EA38386C5AEA27C00020C7FCA21230EA3FF86CB4FC14
+80EA2003386001C0EAC000A33860018038300300EA1C0EEA07F8121C7F9215>I<12FC12
+1CAA137C1387EA1D03001E1380121CAD38FF9FF0141D7F9C17>I<1218123CA21218C7FC
+A712FC121CB0EAFF80091D7F9C0C>I<13C0EA01E0A2EA00C01300A7EA07E01200B3A212
+60EAF0C012F1EA6180EA3E000B25839C0D>I<12FC121CAAEB0FE0EB0780EB06005B1310
+5B5B13E0121DEA1E70EA1C781338133C131C7F130F148038FF9FE0131D7F9C16>I<12FC
+121CB3A9EAFF80091D7F9C0C>I<39FC7E07E0391C838838391D019018001EEBE01C001C
+13C0AD3AFF8FF8FF8021127F9124>I<EAFC7CEA1C87EA1D03001E1380121CAD38FF9FF0
+14127F9117>I<EA03F0EA0E1CEA1806487E00701380EA600100E013C0A600601380EA70
+0300301300EA1806EA0E1CEA03F012127F9115>I<EAFC7CEA1D87381E0180001C13C0EB
+00E0A21470A614E0A2EB01C0001E1380381D0700EA1CFC90C7FCA7B47E141A7F9117>I<
+3803E080EA0E19EA1805EA3807EA7003A212E0A61270A2EA38071218EA0E1BEA03E3EA00
+03A7EB1FF0141A7F9116>I<EAFCE0EA1D38EA1E78A2EA1C301300ACEAFFC00D127F9110>
+I<EA1F90EA2070EA4030EAC010A212E0EAF800EA7F80EA3FE0EA0FF0EA00F8EA80381318
+12C0A2EAE010EAD060EA8FC00D127F9110>I<1204A4120CA2121C123CEAFFE0EA1C00A9
+1310A5120CEA0E20EA03C00C1A7F9910>I<38FC1F80EA1C03AD1307120CEA0E1B3803E3
+F014127F9117>I<38FF07E0383C0380381C0100A2EA0E02A2EA0F06EA0704A2EA0388A2
+13C8EA01D0A2EA00E0A3134013127F9116>I<39FF3FC7E0393C0703C0001CEB01801500
+130B000E1382A21311000713C4A213203803A0E8A2EBC06800011370A2EB803000001320
+1B127F911E>I<38FF0FE0381E0700EA1C06EA0E046C5AEA039013B0EA01E012007F1201
+1338EA021C1204EA0C0E487E003C138038FE1FF014127F9116>I<38FF07E0383C038038
+1C0100A2EA0E02A2EA0F06EA0704A2EA0388A213C8EA01D0A2EA00E0A31340A25BA212F0
+00F1C7FC12F312661238131A7F9116>I<EA7FFCEA70381260EA407013F013E0EA41C012
+031380EA0700EA0F04120E121CEA3C0CEA380812701338EAFFF80E127F9112>I
+E /Fp 25 117 df<B612FCEDFF8016E03A03FC001FF8ED03FCED00FE167FEE3F80EE1FC0
+A2EE0FE0A2EE07F0A417F8AA17F0A3EE0FE0A217C0161FEE3F80EE7F005EED03FCED1FF8
+B75A168003FCC7FC2D297EA834>68 D<91387FE003903907FFFC07011FEBFF0F90397FF0
+0F9F9039FF0001FFD801FC7F484880484880484880485A82485A82127FA290CAFC5AA892
+B512F87E7F03001300123FA26C7EA26C7E6C7E6C7E6C7E6CB45B90387FF007011FB5129F
+0107EBFE0F9039007FF0032D297CA835>71 D<D8FFFE92383FFF80A26D5D0003EFE000A2
+D9BF8014EFA2D99FC0EB01CFA2D98FE0EB038FA3D987F0EB070FA2D983F8130EA2D981FC
+131CA3D980FE1338A2027F1370A291383F80E0A391381FC1C0A291380FE380A2913807F7
+00A3EC03FEA26E5AA26E5AD8FFFE0203B51280A2157039297DA840>77
+D<ECFFC0010F13FC90383F807F9039FE001FC0D801F8EB07E048486D7E48486D7E000F81
+48486D7EA24848147FA2007F168090C8123FA34816C0AA6C16806D147FA2003F1600A26C
+6C14FEA26C6C495A6C6C495A6C6C495A6C6C495A6C6C495A90263FC0FFC7FC90380FFFFC
+010013C02A297CA833>79 D<B612F815FF16C03A03FC003FE0ED07F0ED03F816FC150116
+FEA716FC150316F8ED07F0ED3FE090B61280EDFE0001FCC8FCB0B512F0A327297EA82E>
+I<9038FF80600003EBF0E0000F13F8381F80FD383F001F003E1307481303A200FC1301A2
+14007EA26C140013C0EA7FFCEBFFE06C13F86C13FE80000714806C14C0C6FC010F13E0EB
+007FEC1FF0140F140700E01303A46C14E0A26C13076C14C0B4EB0F80EBE03F39E3FFFE00
+00E15B38C01FF01C297CA825>83 D<007FB71280A39039807F807FD87C00140F00781507
+A20070150300F016C0A2481501A5C791C7FCB3A490B612C0A32A287EA72F>I<B53CE07F
+FFE01FFFC0A32803FC0003FCC7EA7000A26D6D7E000160A26D6E13016C604B1380028015
+03017F5F4B13C0D93FC0013F49C7FCA2913AE00E1FE00F011F160E17F09126F01C0F131E
+010F161C033C13F8902707F838075BA2037813FC902703FC70035BA2913AFEE001FEF001
+015E02FF14FF4B7E6D5EA26E486D5AA36EC76CC8FCA2023E80021E141EA242297FA845>
+87 D<3803FF80000F13F0381F01FC383F80FE147F801580EA1F00C7FCA4EB3FFF3801FC
+3FEA0FE0EA1F80EA3F00127E5AA4145F007EEBDFC0393F839FFC381FFE0F3803FC031E1B
+7E9A21>97 D<EAFFE0A3120FACEBE1FE9038EFFF809038FE07E09038F803F09038F001F8
+9038E000FCA2157EA2157FA8157EA315FCA29038F001F89038F803F090389C0FE090380F
+FF80390E01FC00202A7EA925>I<EB3FF03801FFFC3803F03E380FC07FEA1F80EA3F00A2
+48133E007E90C7FCA212FEA7127EA2127F6CEB03801380001FEB0700380FE00E3803F83C
+3801FFF838003FC0191B7E9A1E>I<EC7FF0A31407ACEB3F873801FFF73807F03F380FC0
+0F381F8007EA3F00A2127EA312FEA8127EA27EA2381F800F380FC01F3907E07FFF3801FF
+E738007F87202A7EA925>I<EB3FC03801FFF03807E07C48487E48487ED83F001380140F
+5A007E14C012FE1407A2B6FCA248C8FCA4127E127F6CEB01C01380001F1303390FC00780
+3903F01F003800FFFCEB3FE01A1B7E9A1F>I<9038FF80F00003EBE3F8390FC1FE1C391F
+007C7C48137E003EEB3E10007EEB3F00A6003E133E003F137E6C137C380FC1F8380BFFE0
+0018138090C8FC1238A2123C383FFFF814FF6C14C06C14E06C14F0121F383C0007007CEB
+01F8481300A4007CEB01F0A2003FEB07E0390FC01F806CB5120038007FF01E287E9A22>
+103 D<EAFFE0A3120FAC147E9038E1FF809038E30FC001E413E0EBE80701F813F013F0A2
+13E0B039FFFE3FFFA3202A7DA925>I<1207EA1FC0EA3FE0A5EA1FC0EA0700C7FCA7EAFF
+E0A3120FB3A3EAFFFEA30F2B7EAA12>I<1307EB1FC0EB3FE0A5EB1FC0EB070090C7FCA7
+EBFFE0A3130FB3AA127C12FEEB1FC0A21480387C3F00EA3FFCEA0FF0133784AA15>I<EA
+FFE0A3120FACEC1FFCA3EC07C0EC0F80EC1E00147C5CEBE1F0EBE3E013E713EFEBFFF080
+EBFBFC13F1EBE1FEEBC0FFEC7F80143F15C0EC1FE0EC0FF0140739FFFC1FFFA3202A7FA9
+23>I<EAFFE0A3120FB3B2EAFFFEA30F2A7EA912>I<38FFC07E9038C1FF809038C30FC0D8
+0FC413E0EBC80701D813F013D0A213E0B039FFFE3FFFA3201B7D9A25>110
+D<EB3FE03801FFFC3803F07E390FC01F80391F800FC0393F0007E0A2007EEB03F0A300FE
+14F8A8007E14F0A26CEB07E0A2391F800FC0390FC01F803907F07F003801FFFC38003FE0
+1D1B7E9A22>I<38FFE1FE9038EFFF809038FE0FE0390FF803F09038F001F801E013FC14
+0015FEA2157FA8157E15FEA215FC140101F013F89038F807F09038FC0FE09038EFFF8090
+38E1FC0001E0C7FCA9EAFFFEA320277E9A25>I<38FFC1F0EBC7FCEBC63E380FCC7F13D8
+13D0A2EBF03EEBE000B0B5FCA3181B7F9A1B>114 D<3803FE30380FFFF0EA3E03EA7800
+127000F01370A27E00FE1300EAFFE06CB4FC14C06C13E06C13F0000713F8C6FCEB07FC13
+0000E0137C143C7E14387E6C137038FF01E038E7FFC000C11300161B7E9A1B>I<13E0A4
+1201A31203A21207120F381FFFE0B5FCA2380FE000AD1470A73807F0E0000313C03801FF
+8038007F0014267FA51A>I E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+%%PaperSize: a4
+%%BeginPaperSize: a4
+/setpagedevice where {
+pop 1 dict dup /PageSize [ 595 842 ] put setpagedevice
+} {
+statusdict /a4tray known {
+statusdict begin a4tray end
+/a4 where { pop a4 } if
+} {
+/a4 where {
+pop a4
+} {
+statusdict /setpage known {
+statusdict begin
+595 842 0 setpage
+end
+} if
+} ifelse
+} ifelse
+} ifelse
+%%EndPaperSize
+
+%%EndSetup
+%%Page: 1 1
+1 0 bop 236 194 a Fp(Designing)22 b(a)g(Meta)g(Ob)t(ject)f(Proto)r(col)
+i(to)f(W)-6 b(rap)24 b(a)498 263 y(Standard)g(Graphical)g(T)-6
+b(o)r(olkit)777 408 y Fo(Eric)o(k)14 b(Gallesio)579 495
+y Fn(Univ)o(ersit)o(\023)-18 b(e)15 b(de)e(Nice)25 b(-)g(Sophia)15
+b(An)o(tip)q(olis)753 540 y(I3S/CNRS)e(-)g(ESSI)673 586
+y(Route)g(des)h(Colles)g(-)f(B.P)m(.)f(145)550 632 y(06903)h(Sophia-An)
+o(tip)q(o)q(li)q(s)j(Cedex)d(-)g(FRANCE)747 677 y(Email:)h(eg@unice.fr)
+301 800 y Fm(Abstract.)22 b Fn(This)14 b(pap)q(er)g(presen)o(ts)g(a)f
+(graphical)j(pac)o(k)n(age)e(whic)o(h)g(relies)h(on)e(the)301
+846 y(Tk)i(to)q(olkit)i(and)g(the)e(Sc)o(heme)i(programming)g
+(language.)g(The)f(Tk)f(pac)o(k)n(age)i(is)301 892 y(a)f(widely)i(used)
+g(graphical)g(to)q(olkit)h(built)f(up)q(on)g(the)e(Tcl)h(scripting)i
+(language.)301 937 y(Tcl)c(w)o(as)h(not)f(designed)j(as)d(a)g(general)i
+(purp)q(ose)g(programming)g(language)h(and)301 983 y(its)d(usage)h(for)
+e(large-scale)j(soft)o(w)o(are)e(dev)o(elopmen)o(t)i(is)e(generally)i
+(not)e(suitable.)301 1029 y(T)m(o)h(impro)o(v)o(e)i(the)f(programming)i
+(lev)o(el)f(of)f(the)g(Tk)f(to)q(olkit,)i(w)o(e)f(ha)o(v)o(e)g
+(de\014ned)301 1074 y Fl(STklos)p Fn(,)e(a)g(Sc)o(heme)h(language)i
+(with)e(a)g(CLOS-lik)o(e)g(ob)r(ject)g(system.)g(This)g(al-)301
+1120 y(ternativ)o(e)d(language)g(has)g(b)q(een)f(used)g(to)g(em)o(b)q
+(o)q(dy)h(the)e(standard)i(Tk)f(widgets)g(in)301 1166
+y(a)f(clean)i(hierarc)o(h)o(y)g(of)f(classes,)g(whic)o(h)h(is)f(presen)
+o(ted)h(here.)e(The)h Fl(STklos)f Fn(ob)r(ject)301 1211
+y(system)i(implemen)o(tation)k(is)d(based)g(on)g(a)f(Meta)g(Ob)r(ject)h
+(Proto)q(col;)g(this)g(proto-)301 1257 y(col)f(and)g(its)g(usage)g(for)
+f(accessing)i(the)f(Tk)f(to)q(olkit)i(in)f(an)g(e\016cien)o(t)g(w)o(a)o
+(y)g(are)f(also)301 1303 y(presen)o(ted)i(here.)183 1440
+y Fk(1)56 b(Motiv)m(ations)183 1535 y Fo(The)17 b(Tk)f(pac)o(k)n(age)h
+([13)o(])f(is)g(a)h(widely)f(used)i(graphical)d(to)q(olkit)h(whic)o(h)h
+(pro)o(vides)f(a)h(large)183 1585 y(set)i(of)g(widgets)g(suc)o(h)h(as)f
+(buttons,)g(scrollbars,)f(men)o(us)h(or)f(text)i(editors.)f(With)f
+(these)183 1635 y(high)12 b(lev)o(el)h(widgets,)g(one)g(can)h(build)e
+(rather)i(complex)e(in)o(terfaces)i(with)f(little)g(e\013ort)h(and)183
+1685 y(without)g(coping)g(with)g(the)h(usual)g(in)o(tricacies)g(needed)
+h(when)f(programmi)o(ng)d(under)j(the)183 1734 y(X)f(windo)o(w)g
+(system)g([14)o(].)g(The)h(Tk)g(to)q(olkit)e(relies)i(on)f(a)h(small)d
+(in)o(terpretativ)o(e)j(scripting)183 1784 y(language)h(named)g(Tcl)h
+(\(T)m(o)q(ol)f(Command)e(Language\))e([11)o(],)k(a)h(string)h(based)f
+(language)183 1834 y(with)c(a)h(shell-lik)o(e)f(syn)o(tax.)245
+1884 y(Tcl)20 b(is)f(a)h(small)d(scripting)j(language.)f(T)m(o)g
+(easily)g(em)o(b)q(ed)g(the)i(Tcl)e(in)o(terpreter)j(in)183
+1934 y(application)9 b(programs,)h(some)g(usual)h(programmi)o(ng)d
+(languages)i(capabilities)h(ha)o(v)o(e)f(b)q(een)183
+1983 y(set)21 b(aside)f(b)o(y)g(its)h(author.)e(In)i(particular,)e(Tcl)
+h(has)h(a)f(p)q(o)q(or)g(set)h(of)f(data)g(structures)183
+2033 y(reduced)c(to)e(c)o(haracter)h(strings)g(and)f(asso)q(ciativ)o(e)
+g(arra)o(ys.)g(It)g(pro)o(vides)g(n)o(um)o(b)q(ers,)g(whic)o(h)183
+2083 y(are)h(sim)o(ulated)f(with)h(strings)h(and)f(whic)o(h)h(are,)f
+(consequen)o(tly)m(,)h(slo)o(w.)e(In)h(fact,)g(a)h(prop)q(er)183
+2133 y(usage)10 b(of)g(Tcl)g(consists)h(in)f(writing)f(small)f(scripts)
+j(to)f Fj(glue)g Fo(large)g(application)f(comp)q(onen)o(ts)183
+2183 y(written)16 b(in)g(C)g(or)h(C++.)f(Ho)o(w)o(ev)o(er,)g(exp)q
+(erience)j(sho)o(ws)d(that)g(p)q(eople)h(are)g(reluctan)o(t)g(to)183
+2232 y(use)d(it)g(in)f(this)h(w)o(a)o(y)m(,)e(and)i(that)g(they)g
+(often)g(prefer)h(to)f(write)g(applications)f(with)g(a)h(single)183
+2282 y(programmi)o(ng)d(language.)245 2332 y(Tk)g(is)f(indeed)i(an)e
+(application)g(with)g(an)h(em)o(b)q(edded)g(Tcl)g(in)o(terpreter)j([12)
+o(].)c(The)h(in)o(ter-)183 2382 y(pretativ)o(e)j(nature)g(of)e(Tcl)i
+(pro)o(vides)f(Tk)g(a)h(simple)d(and)j(attractiv)o(e)f(in)o(terface)h
+(to)g(dev)o(elop)183 2432 y(simple)d(graphical)i(programs.)e(Ho)o(w)o
+(ev)o(er,)i(the)h(easiness)g(a\013orded)g(b)o(y)f(Tcl)g(for)g(the)g
+(design)p eop
+%%Page: 2 2
+2 1 bop 340 194 a Fo(of)16 b(small)e(in)o(terfaces)k(is)e(misleading)e
+(and)i(it)g(often)h(encourages)g(p)q(eople)g(to)f(start)h(hea)o(vy)340
+244 y(dev)o(elopmen)o(ts)10 b(with)g(this)h(language.)e(But,)i(writing)
+e(large)h(applications)g(with)g(a)g(language)340 293
+y(whic)o(h)15 b(lac)o(ks)f(w)o(a)o(ys)g(of)g(structuring)i(data)e
+(tends)h(to)g(b)q(e)g(more)e(and)i(more)e(painful)g(as)i(the)340
+343 y(program)f(gro)o(ws.)h(W)m(e)f(think)h(that)h(this)f(kind)g(of)f
+(usage)i(is)f(b)q(ey)o(ond)g(the)h(scop)q(e)h(of)d(a)h(lan-)340
+393 y(guage)f(suc)o(h)g(as)g(Tcl,)f(and)h(w)o(e)g(ha)o(v)o(e)f(tried)h
+(to)g(prop)q(ose)g(a)g(solution)e(for)i(a)f(b)q(etter)i(using)f(of)340
+443 y(the)h(Tk)f(to)q(olkit.)403 493 y(In)20 b(order)i(to)f(impro)o(v)o
+(e)e(the)i(Tk)g(to)q(olkit)e(for)i(large)f(applications,)g(w)o(e)h
+(decided)g(to)340 542 y(replace)11 b(Tcl)e(b)o(y)g(a)g(con)o(v)o(en)o
+(tional)f(programming)e(language.)i(F)m(urthermore,)h(the)h
+Fj(substitute)340 592 y Fo(language)j(m)o(ust)g(ful\014ll)f(some)h(imp)
+q(ortan)o(t)g(requiremen)o(ts;)g(it)h(m)o(ust)f(b)q(e)366
+665 y Fi({)21 b(high)c(lev)o(el)e Fo(and)h(pro)o(vides)h(useful)f(data)
+g(t)o(yp)q(es)i(suc)o(h)f(as)g(structures,)h(arra)o(ys,)e(lists)411
+715 y(or)e(strings)366 765 y Fi({)21 b(small)12 b Fo(enough)i(for)g
+(allo)o(wing)d(to)j(em)o(b)q(ed)f(it)h(in)f(applications)g(\(as)h
+(Tcl\))366 815 y Fi({)21 b(e\016cien)o(t)12 b Fo(so)i(that)h(most)e
+(applications)g(can)i(b)q(e)g(written)g(en)o(tirely)f(in)g(this)g
+(language)411 864 y(without)f(ha)o(ving)g(to)h(resort)h(to)f(C)g(or)f
+(C++)i(programmi)o(ng.)366 914 y Fi({)21 b Fo(easily)15
+b Fi(extensible)d Fo(so)k(that)g(user)h(can)e(in)o(v)o(estigate)h(sev)o
+(eral)g(in)o(teresting)g(program-)411 964 y(ming)c(paradigms)g(\()p
+Fj(e.g.)h Fo(ob)r(jects,)i(protot)o(yp)q(es,)f(actors,)f(.)6
+b(.)h(.)f(\))366 1014 y Fi({)21 b Fo(already)13 b Fi(de\014ned)p
+Fo(.)d(This)j(p)q(oin)o(t)g(is,)f(of)h(course,)h(not)f(mandatory)m(,)d
+(but)j(w)o(e)g(think)g(that)411 1064 y(it)h(is)g(preferable)h(to)f(use)
+h(an)f(existing)g(programmi)o(ng)d(language,)i(if)g(p)q(ossible,)h
+(rather)411 1113 y(than)g(de\014ning)g(a)f(new)i(one.)340
+1186 y(Sc)o(heme)f([1)o(])f(is)g(a)g(Lisp)g(dialect)h(whic)o(h)f
+(satis\014es)h(quite)g(w)o(ell)e(the)i(previous)g(p)q(oin)o(ts.)f(It)g
+(is)h(a)340 1236 y(statically)g(scop)q(ed)h(language)e(with)h(a)g
+(clear)h(and)f(simple)e(seman)o(tic.)h(Moreo)o(v)o(er,)h(Sc)o(heme)340
+1286 y(pro)q(cedures)22 b(are)e(\014rst)g(class)f(ob)r(jects)i(able)e
+(to)g(capture)i(their)e(creation)h(en)o(vironmen)o(t.)340
+1336 y(This)c(language)f(feature)i(is)f(imp)q(ortan)o(t)e(since)j(it)f
+(allo)o(ws)f(us)h(to)g(en)o(vision)f(the)i(co)q(ding)f(of)340
+1386 y(in)o(terfaces)d Fj(c)n(al)r(lb)n(acks)e Fo(in)h(a)f(clean)h(w)o
+(a)o(y)m(.)e(In)h(this)h(framew)o(ork,)e(w)o(e)i(ha)o(v)o(e)f
+(de\014ned)i Fh(STk)g Fo([3)o(],)e(a)340 1435 y(graphical)i(pac)o(k)n
+(age)g(based)i(on)e(Tk)g(to)q(olkit)g(where)i(the)f(Tcl)f(language)g
+(as)h(b)q(een)g(replaced)340 1485 y(b)o(y)g(a)g(Sc)o(heme)f(in)o
+(terpreter.)403 1535 y Fh(STk)j Fo(is)g(a)f(small)f(and)i(e\016cien)o
+(t)g(Sc)o(heme)g(in)o(terpreter.)h(As)g(Tcl,)e(it)h(is)g(small)d
+(enough)340 1585 y(to)h(b)q(e)h(used)f(simply)e(as)i(a)g
+Fj(glue)h(language)g Fo(whic)o(h)e(can)h(b)q(e)h(em)o(b)q(edded)f(in)f
+(an)h(existing)g(ap-)340 1635 y(plication.)e(F)m(urthermore,)g(the)i
+(solid)f(basis)g(pro)o(vided)g(b)o(y)g(the)h(Sc)o(heme)f(language)f
+(a\013ords)340 1685 y(the)19 b(to)q(ols)f(necessary)j(for)d(writing,)f
+(and)h(main)o(taining)d(medium)h(size)j(Graphical)e(User)340
+1734 y(In)o(terfaces)g(\(GUI\).)d(Nev)o(ertheless,)i(w)o(e)f(think)g
+(the)g(expressiv)o(e)h(p)q(o)o(w)o(er)f(of)f(Sc)o(heme)h(is)f(not)340
+1784 y(su\016cien)o(t)h(to)f(en)o(visage)g(its)g(use)h(for)e
+(large-scale)h(soft)o(w)o(are)g(dev)o(elopmen)o(t.)f(In)h(particular,)
+340 1834 y(the)g(lac)o(k)f(of)f(an)h(ob)r(ject)h(mec)o(hanism)d
+(increases)k(the)f(programming)c(complexit)o(y)h(of)i(large)340
+1884 y(applications.)k Fh(STklos)q Fo(,)g(the)h(ob)r(ject)h(extension)f
+(of)f Fh(STk)q Fo(,)g(has)h(b)q(een)h(de\014ned)g(to)e(alle-)340
+1934 y(viate)g(this)h(problem.)d(This)j(extension)g(pro)o(vides)f(meta)
+f(classes,)j(m)o(ultiple)c(inheritance)340 1983 y(and)k(generic)h
+(functions)g Fj(\022)-21 b(a)20 b(la)e Fo(CLOS)13 b([7)o(,)19
+b(15])f(or)h(Dylan)12 b([2)o(].)18 b Fh(STklos)i Fo(has)g(also)e(b)q
+(een)340 2033 y(used)g(to)f(em)o(b)q(o)q(dy)f(the)i(prede\014ned)h(Tk)d
+(widgets)i(in)e(a)h(hierarc)o(h)o(y)g(of)g(classes.)g(Usage)h(of)340
+2083 y(these)13 b(classes)g(simpli\014es)d(the)i(core)g(Tk)f(usage)h(b)
+o(y)f(pro)o(viding)g(an)g(homogeneous)f(access)j(to)340
+2133 y(widget)g(options)f(and)h(b)o(y)g(hiding)e(the)j(Tk)e(widgets)h
+(lo)o(w)f(lev)o(el)h(idiosyncrasies.)f(Moreo)o(v)o(er,)340
+2183 y(as)17 b(exp)q(ected,)i(usage)e(of)f(ob)r(jects)j(facilitates)d
+(co)q(de)i(reuse)g(and)f(de\014nition)f(of)h(new)g(wid-)340
+2232 y(gets)e(classes.)f(Finally)m(,)d(w)o(e)j(think)g(that)f(the)i(ob)
+r(ject)f(orien)o(tation)f(of)g Fh(STklos)q Fo(,)g(as)h(w)o(ell)f(as)340
+2282 y(the)j(solid)e(basis)h(of)f(the)i(Sc)o(heme)e(programming)d
+(language,)j(a\013ord)h(therefore)h(the)g(to)q(ols)340
+2332 y(necessary)g(to)e(en)o(vision)f(writing,)g(and)h(main)o(taining)o
+(,)d(complex)h(GUI.)403 2382 y(The)i(rest)g(of)f(this)g(pap)q(er)h(is)g
+(divided)f(in)g(three)h(sections.)g(The)g(next)g(section)g(presen)o(ts)
+340 2432 y(the)i Fh(STk)g Fo(pac)o(k)n(age)f(and)g(its)g(ob)r(ject)h
+(system.)f(W)m(rapping)f(the)h(standard)h(Tk)f(widgets)h(in)p
+eop
+%%Page: 3 3
+3 2 bop 183 194 a Fh(STklos)15 b Fo(classes)g(and)g(the)f(in\015uence)i
+(of)d(this)i(in)o(tegration)e(in)h(in)o(terfaces)h(programming)183
+244 y(are)21 b(describ)q(ed)h(in)e(section)h(3.)f Fh(STklos)h
+Fo(implemen)o(tation)c(relies)k(on)g(a)f(MOP)h(\(Meta)183
+293 y(Ob)r(ject)12 b(Proto)q(col\),)e(in)g(the)i(spirit)e(of)g(the)h
+(one)g(de\014ned)h(for)e(CLOS)j([6)o(].)d(Section)h(4)g(presen)o(ts)183
+343 y(this)j(proto)q(col)g(and)f(ho)o(w)h(it)g(has)g(b)q(een)h(used)g
+(to)f(in)o(tegrate)g(the)h(Tk)e(standard)i(widgets)f(in)183
+393 y(the)g(Sc)o(heme)g(w)o(orld.)183 534 y Fk(2)56 b(Presen)n(tation)
+18 b(of)h Fg(STklos)183 639 y Fo(Programmi)o(ng)12 b(with)j
+Fh(STk)g Fo(can)g(b)q(e)h(done)f(at)g(t)o(w)o(o)f(distinct)h(lev)o
+(els.)g(The)g(\014rst)h(lev)o(el)e(uses)183 689 y(only)9
+b(the)i(standard)g(Sc)o(heme)f(constructs)i(and)e(is)h(quite)f
+(classical.)g(The)g(second)i(lev)o(el)e(giv)o(es)183
+739 y(access)15 b(to)f Fh(STklos)q Fo(,)g(the)g(ob)r(ject)h(orien)o
+(ted)f(extension)h(of)e Fh(STk)q Fo(.)g(Of)h(course,)g(b)q(oth)h(lev)o
+(els)183 789 y(can)g(b)q(e)i(used)f(at)f(the)i(same)d(time)g(in)i(a)f
+(single)g(program.)e(Ho)o(w)o(ev)o(er,)j(most)e(of)h(the)h(time,)183
+838 y(one)11 b(will)f(use)i(the)g(higher)g(lev)o(el,)e(resorting)i(to)f
+(the)h(lo)o(w)o(er)f(one)h(for)f(sp)q(eci\014c)h(purp)q(oses)h(only)m
+(.)183 969 y Fi(2.1)47 b Fh(STk)q Fi(:)16 b(the)f(Basic)g(La)o(y)o(er)
+183 1058 y Fo(Starting)d(a)g(session)h(with)f Fh(STk)g
+Fo(brings)g(the)h(user)h(in)d(the)i(basic)g(la)o(y)o(er)f(whic)o(h)g
+(giv)o(es)g(access)183 1108 y(to)j(an)g(extended)i(Sc)o(heme)e(in)o
+(terpreter)i(able)e(to)g(handle)h(the)g(Tk)f(to)q(olkit.)f(With)g(a)h
+(little)183 1158 y(set)e(of)e(rewriting)i(rules)f(from)f(the)i
+(original)d(Tcl/Tk)i(library)m(,)e(and)j(the)f(Tk)g(man)o(ual)e(pages)
+183 1208 y(close)k(at)g(hand,)f(one)h(can)g(easily)g(build)f(a)g
+Fh(STk)i Fo(program)d(using)h(the)i(Tk)f(to)q(olkit.)245
+1259 y(Creation)g(of)f(new)i(widgets)f(\(button,)g(lab)q(el,)f(can)o(v)
+n(as,)h(.)6 b(.)h(.)f(\))15 b(is)f(done)g(b)o(y)g(sp)q(ecial)g
+Fh(STk)183 1309 y Fo(primitiv)o(es)g(pro)q(cedures.)j(F)m(or)e
+(instance,)h(creating)g(a)g(new)g(button)g(can)g(b)q(e)g(done)g(as)g
+(fol-)183 1358 y(lo)o(w)o(ed)253 1442 y Ff(\(button)h('.b\))183
+1529 y Fo(Tk)10 b(uses)h(a)f(v)o(ery)h(sp)q(ecial)g(w)o(a)o(y)e(to)h
+(name)g(widgets:)g(a)g(widget)g(name)f(is)h(a)g(kind)g(of)g(pathname)
+183 1579 y(whic)o(h)i(re\015ects)i(its)f(p)q(osition)e(in)h(the)h
+(graphical)f(hierarc)o(h)o(y)h(of)e(widgets.)i(In)f(this)g(example,)183
+1628 y(the)h(name)f(of)g(the)i(newly)e(created)j(button)e(is)g(\\)p
+Fe(.b)p Fo(".)e(This)i(pathname)f(states)i(that)f(\\)p
+Fe(b)p Fo(")f(is)183 1678 y(a)g(son)g(of)g(\\)p Fe(.)p
+Fo(",)f(the)i(ro)q(ot)f(windo)o(w.)f(Note)i(that)f(the)h(name)e(of)h
+(the)h(widget)f(m)o(ust)f(b)q(e)i Fj(quote)n(d)183 1728
+y Fo(due)h(to)g(the)g(Sc)o(heme)g(ev)n(aluation)f(mec)o(hanism.)245
+1779 y(Calling)j(a)h(widget)g(creation)h(primitiv)o(e,)d(suc)o(h)k(as)e
+Fe(button)p Fo(,)f(builds)h(a)h(new)g(Sc)o(heme)183 1829
+y(ob)r(ject)j(whic)o(h)e(is)h(called)g(a)g Fj(Tk-c)n(ommand)p
+Fo(.)g(This)g(ob)r(ject,)g(whic)o(h)g(is)g(considered)i(as)e(a)183
+1879 y(new)f(basic)g(t)o(yp)q(e)g(b)o(y)g(the)g Fh(STk)g
+Fo(in)o(terpreter,)i(is)d(automatically)e(stored)k(in)e(a)h(v)n
+(ariable)183 1928 y(whose)f(name)e(is)h(the)h(sym)o(b)q(ol)e(giv)o(en)h
+(to)g(the)i(creation)e(function)h(\()p Fe(.b)f Fo(in)g(this)g(case\).)h
+(A)183 1978 y(Tk-command)9 b(is)k(a)f(sp)q(ecial)h(kind)f(of)g
+(function)h(whic)o(h)f(is)h(generally)f(used,)h(as)g(in)f(Tcl/Tk,)183
+2028 y(to)h(customize)h(its)g(asso)q(ciated)h(widget.)e(F)m(or)g
+(instance,)i(the)f(expression)253 2112 y Ff(\(.b)19 b('configur)o(e)d
+(:text)i("Hello,)f(world")g(:border)g(3\))183 2199 y
+Fo(allo)o(ws)11 b(us)i(to)g(set)g(the)h(text)f(and)f(bac)o(kground)h
+(options)f(of)h(the)g Fe(.b)f Fo(button.)g(Of)h(course,)g(as)183
+2248 y(in)g(Tcl/Tk,)g(parameters)h(can)h(b)q(e)f(passed)h(at)f(widget)g
+(creation)g(time,)f(and)h(the)g(previous)183 2298 y(button)i(creation)g
+(and)g(initialization)d(could)j(ha)o(v)o(e)g(b)q(een)h(done)f(in)g(a)f
+(single)h(expression,)183 2348 y(suc)o(h)e(as)253 2432
+y Ff(\(button)j('.b)i(:text)e("Hello,)g(world")g(:border)g(3\))p
+eop
+%%Page: 4 4
+4 3 bop 403 194 a Fo(Tk)17 b(prop)q(oses)h(a)f(general)g(purp)q(ose)i
+(binding)d(mec)o(hanism)f(to)i(asso)q(ciate)h(a)f(handlers)340
+244 y(to)f(an)g(external)h(ev)o(en)o(t)g(\()p Fj(e.g.)f
+Fo(a)g(k)o(ey)g(press)i(or)e(a)g(mouse)f(action\).)h(An)g(ev)o(en)o(t)h
+(handler)f(is)340 293 y(automatically)d(triggered)j(b)o(y)f(the)i
+(library)e(when)h(the)g(giv)o(en)f(ev)o(en)o(t)h(o)q(ccurs.)h(In)e
+(Tcl,)h(an)340 343 y(ev)o(en)o(t)f(handler)f(is)g(a)f(string)h(whic)o
+(h)g(is)g(ev)n(aluated)g(at)f(the)i(global)d(lev)o(el,)h(whereas)i(in)f
+Fh(STk)340 393 y Fo(it)e(is)h(a)f(Sc)o(heme)g(closure.)h(The)f(follo)o
+(wing)e(expression)k(adds)e(a)g(new)h(ev)o(en)o(t)g(handler)f(to)h(the)
+340 443 y Fe(.b)h Fo(button)g(when)g(the)h(third)f(mouse)f(button)h(is)
+g(depressed)i(o)o(v)o(er)e(it:)411 527 y Ff(\(bind)k(.b)g("<ButtonPre)o
+(ss)o(-3>)o(")529 572 y(\(let)g(\(\(count)f(0\)\))568
+618 y(\(lambda)g(\(\))607 664 y(\(set!)h(count)f(\(+)i(count)f(1\)\))
+607 709 y(\(format)f(#t)i("#)g(of)g(button)e(press:)g(~A~\045")h
+(count\)\)\)\))403 796 y Fo(This)11 b(simple)g(example)f(sho)o(ws)j
+(that)e Fh(STk)i Fo(handlers)f(are)g(cleaner)h(than)f(Tcl)g(ones:)g
+(the)340 846 y(standard)i(Sc)o(heme)g(lexical)e(scoping)i(allo)o(ws)e
+(a)h(handler)h(to)g(ha)o(v)o(e)f(its)g(o)o(wn)h(priv)n(ate)f(global)340
+896 y(v)n(ariables)e(\(as)h Fe(count)e Fo(here\);)i(on)f(the)h(other)g
+(hand,)f(a)g(Tcl)g(handler)h(is)f(a)g(\015at)g(string)g(unable)340
+945 y(to)j(carry)h(an)e(en)o(vironmen)o(t.)403 997 y(Ev)o(en)j(if)e
+(closures)j(a\013ord)f(a)f(b)q(etter)i(expressiv)o(e)h(p)q(o)o(w)o(er)d
+(for)h(writing)f(ev)o(en)o(t)h(handlers)340 1046 y(than)g(Tcl)f
+(strings,)g(programming)d(an)j(in)o(terface)h(resorting)g(only)f(to)g
+(the)h(constructions)340 1096 y(of)f(the)h(basic)f(la)o(y)o(er)g(b)q
+(ecomes)g(rapidly)f(tedious.)h(In)g(fact,)g(the)h Fh(STk)f
+Fo(basic)h(la)o(y)o(er)e(can)i(b)q(e)340 1146 y(considered)j(as)e(a)g
+(kind)g(of)f Fj(assembly)i(language)h Fo(for)d(in)o(terfaces)j
+(programmi)o(ng)14 b(and)j(w)o(e)340 1196 y(will)d(see)j(in)d(section)g
+(3)h(ho)o(w)f(it)h(can)h(b)q(e)g(used)g(for)f(the)h Fj(r)n(ei\014c)n
+(ation)f Fo(of)f(the)i(Tk)f(widgets)h(in)340 1246 y Fh(STklos)f
+Fo(classes.)340 1376 y Fi(2.2)48 b Fh(STk)q Fi(:)16 b(the)f(Ob)s(ject)f
+(La)o(y)o(er)340 1466 y Fh(STklos)q Fo(,)19 b(the)g(ob)r(ject)h
+(extension)f(of)f Fh(STk)q Fo(,)g(is)g(close)i(to)e(the)i(CLOS)f
+(system)12 b([7)o(];)18 b(it)g(is)340 1515 y(brie\015y)10
+b(in)o(tro)q(duced)g(in)f(this)h(section.)f(Note)h(that)g(w)o(e)f
+(consider)h(only)f(the)h(language)f(asp)q(ects)340 1565
+y(of)14 b Fh(STklos)g Fo(here)h(and)f(w)o(e)g(forget)g(its)g(use)g(for)
+g(in)o(tegrating)f(the)h(Tk)g(to)q(olkit)e(for)i(a)f(while.)403
+1616 y(De\014nition)d(of)h(a)g(new)h(class)f(is)g(done)h(with)f(the)h
+Fe(define-class)d Fo(macro.)g(F)m(or)i(instance,)411
+1700 y Ff(\(define-c)o(las)o(s)17 b(Point)g(\(\))470
+1746 y(\(\(x)h(:init-keyw)o(ord)e(:x)j(:accessor)d(x-of\))489
+1792 y(\(y)j(:init-keyw)o(ord)d(:y)j(:accessor)d(y-of\)\)\))340
+1878 y Fo(de\014nes)22 b(the)g(c)o(haracteristics)g(of)e(a)g(p)q(oin)o
+(t.)g(Tw)o(o)g(slots)h(are)f(declared)i(here:)f Fe(x)g
+Fo(and)f Fe(y)p Fo(.)340 1928 y(Creation)14 b(of)f(new)i(instances)g
+(is)f(done)g(with)f(the)i Fe(make)e Fo(constructor:)411
+2012 y Ff(\(define)k(p)i(\(make)f(Point)f(:x)i(10)g(:y)g(20\)\))340
+2099 y Fo(The)14 b(ev)n(aluation)f(of)g(the)h(preceding)h(form)d
+(builds)h(a)g(new)h(p)q(oin)o(t)g(and)f(initializes)f(its)i(slots)340
+2149 y Fe(x)e Fo(and)g Fe(y)g Fo(with)g(the)g(v)n(alues)g(10)g(and)f
+(20.)h(Slot)f(con)o(ten)o(t)i(can)f(b)q(e)h(accessed)h(b)o(y)e(the)h(t)
+o(w)o(o)e(basic)340 2198 y(primitiv)o(es)k Fe(slot-ref)g
+Fo(and)h Fe(slot-set!)p Fo(.)e(These)k(primitiv)o(es)d(are)h(lo)o(w)g
+(lev)o(el)g(primitiv)o(es)340 2248 y(and)11 b(users)g(often)g(prefer)g
+(to)f(use)h(accessors,)h(since)g(they)e(generally)g(lead)g(to)h(a)f
+(clearer)h(co)q(de.)340 2298 y(F)m(or)k(instance,)f(getting)h(the)g(v)n
+(alue)f(of)g(the)h Fe(y)f Fo(slot)g(of)g Fe(p)g Fo(could)h(b)q(e)g
+(done)g(in)f(the)h(follo)o(wing)340 2348 y(w)o(a)o(y:)411
+2432 y Ff(\(y-of)j(p\))326 b Fd(;)14 b(or)f(\(slot-r)n(ef)f(p)h('y\))p
+eop
+%%Page: 5 5
+5 4 bop 183 194 a Fo(since)15 b(the)h Fe(y-of)e Fo(accessor)j(has)e(b)q
+(een)h(de\014ned)g(for)e(slot)h Fe(y)p Fo(.)f(This)h(slot)g(can)g(b)q
+(e)g(set)h(b)o(y)f(the)183 244 y(generalized)f Fe(set!)f
+Fo(form,)f(as)i(illustrated)g(b)o(y)f(the)i(follo)o(wing)c(example:)253
+322 y Ff(\(set!)18 b(\(y-of)g(p\))g(1\))151 b Fd(;)13
+b(or)h(\(slot-set!)c(p)k('y)f(1\))183 405 y Fo(No)o(w,)g(w)o(e)h(can)g
+(de\014ne)h(the)f Fe(Rectangle)e Fo(class)j(whic)o(h)e(inherits)i(from)
+d(the)i Fe(Point)f Fo(class:)253 484 y Ff(\(define-cl)o(ass)j
+(Rectangle)g(\(Point\))292 529 y(\(\(width)37 b(:init-key)o(wor)o(d)17
+b(:width)36 b(:accessor)17 b(width-of\))312 575 y(\(height)g(:init-key)
+o(wor)o(d)g(:height)f(:accessor)h(height-of)o(\)\))o(\))183
+658 y Fo(The)e(instances)h(of)e(this)h(class)g(ha)o(v)o(e)g(four)g
+(slots)g(\()p Fe(x)p Fo(,)f Fe(y)p Fo(,)g Fe(width)g
+Fo(and)h Fe(height)p Fo(\).)e(Metho)q(ds)1604 643 y Fc(1)183
+708 y Fo(de\014ned)19 b(for)f(instances)h(of)f(the)h
+Fe(Point)e Fo(class)h(can)h(also)e(b)q(e)i(used)g(for)f(instances)h(of)
+f(the)183 757 y Fe(Rectangle)11 b Fo(class.)h(F)m(or)h(example,)e(the)i
+Fe(x)g Fo(co)q(ordinate)g(of)f(a)h Fe(Rectangle)e Fo(can)i(b)q(e)g
+(accessed)183 807 y(with)g(the)i(accessor)g(metho)q(d)e
+Fe(x-of)g Fo(de\014ned)i(b)q(efore.)245 857 y(Previous)d(class)g
+(de\014nition)f(represen)o(ts)j(rectangles)e(with)f(a)g(reference)j(p)q
+(oin)o(t,)d(a)g(width)183 907 y(and)i(a)g(heigh)o(t.)g(This)g(represen)
+o(tation)i(for)e(rectangles)h(is,)f(most)f(of)h(the)h(time,)d(con)o(v)o
+(enien)o(t)183 957 y(but)16 b(w)o(e)g(sometimes)e(need)j(a)e(represen)o
+(tation)j(using)e(the)g(co)q(ordinates)h(of)e(t)o(w)o(o)g(opp)q(osite)
+183 1006 y(corners.)h(In)f(that)g(case,)h Fj(virtual)f(slots)g
+Fo(can)g(b)q(e)h(used.)f(A)h(virtual)e(slot)h(is)g(a)g(slot)g(whic)o(h)
+g(is)183 1056 y(de\014ned)i(as)f(a)f(normal)f(slot)i(but)g(whose)h
+(allo)q(cation)d(is)i(declared)h(as)f Fe(:virtual)p Fo(.)d(Suc)o(h)k(a)
+183 1106 y(slot)d(has)h(a)f(n)o(ull)f(allo)q(cation)g(and)h(its)h
+(reading)f(\(resp.)h(writing\))f(pro)o(v)o(ok)o(es)h(the)g(execution)
+183 1156 y(of)c(a)h(getter)h(\(resp.)g(setter\))h(function)e(whic)o(h)g
+(m)o(ust)g(b)q(e)g(pro)o(vided)g(b)o(y)g(the)h(user)g(within)f(the)183
+1206 y(class)h(de\014nition.)g(The)g(getter)i(and)e(setter)i(functions)
+e(are)g(de\014ned)i(with)e(the)g Fe(:slot-ref)183 1255
+y Fo(and)i Fe(:slot-set!)e Fo(options.)h(Here)j(is)e(another)h(writing)
+e(of)h(the)h Fe(Rectangle)d Fo(class)j(using)183 1305
+y(virtual)d(slots:)253 1392 y Ff(\(define-cl)o(ass)j(Rectangle)g
+(\(Point\))292 1438 y(\(\(width)37 b(:init-key)o(wor)o(d)17
+b(:width)36 b(:accessor)17 b(width-of\))312 1484 y(\(height)g
+(:init-key)o(wor)o(d)g(:height)f(:accessor)h(height-of)o(\))312
+1570 y(\(x2)97 b(:init-key)o(wor)o(d)17 b(:x2)96 b(:accessor)17
+b(x2-of)469 1616 y(:allocati)o(on)56 b(:virtual)469 1662
+y(:slot-ref)36 b(\(lambda)17 b(\(obj\))g(\(+)i(\(x-of)f(obj\))g
+(\(width-of)e(obj\)\)\))469 1707 y(:slot-set)o(!)h(\(lambda)g(\(obj)h
+(val\))724 1753 y(\(set!)g(\(width-of)e(obj\))i(\(-)h(val)f(\(x-of)g
+(obj\)\)\)\)\))312 1840 y(\(y2)97 b(:init-key)o(wor)o(d)17
+b(:y2)h(:accessor)e(y2-of)469 1886 y(:allocati)o(on)56
+b(:virtual)469 1931 y(:slot-ref)36 b(\(lambda)17 b(\(obj\))g(\(+)i
+(\(y-of)f(obj\))g(\(height-o)o(f)f(obj\)\)\))469 1977
+y(:slot-set)o(!)g(\(lambda)g(\(obj)h(val\))724 2023 y(\(set!)g
+(\(height-o)o(f)e(obj\))i(\(-)h(val)g(\(y-of)e(obj\)\)\)\)\)\)\))183
+2114 y Fo(In)c(this)g(new)h(de\014nition)f(of)f Fe(Rectangle)p
+Fo(,)f Fe(x2)i Fo(and)g Fe(y2)g Fo(are)g(virtual)g(slots.)g(The)g
+(getter)i(and)183 2163 y(setter)j(asso)q(ciated)f(functions)g(are)g
+(lam)o(b)q(da)d(expressions)19 b(whic)o(h)d(compute)g(or)h(set)g(their)
+183 2213 y(v)n(alue)e(dep)q(ending)j(on)e(other)h(slots)g(v)n(alue.)e
+(Note)i(that)f(a)h(virtual)e(slot)h(accessor)j(closure)183
+2263 y(can)14 b(c)o(hange)g(the)g(v)n(alue)g(of)f(standard)h(slots)g
+(in)g(order)g(to)g(k)o(eep)h(the)f(system)g(coheren)o(t.)p
+183 2298 237 2 v 191 2325 a Fb(1)221 2340 y Fn(In)e Fl(STklos)p
+Fn([5)o(],)f(the)h(execution)h(of)e(a)h(metho)q(d)g(rely)g(on)g(a)g
+(subset)g(of)f(the)h(CLOS)f Fd(generic)f(func-)221 2386
+y(tions)e Fn(mec)o(hanism)j(\(only)f(primary)h(metho)q(ds)f(are)g(supp)
+q(orted)h(and)f(the)f(metho)q(ds)i(com)o(bination)221
+2432 y(cannot)j(b)q(e)f(c)o(hanged\).)p eop
+%%Page: 6 6
+6 5 bop 403 194 a Fo(Since)20 b(virtual)g(slots)g(do)g(not)g(imply)e
+(memory)f(allo)q(cation,)h(they)j(could)f(easily)g(b)q(e)340
+244 y(sim)o(ulated)11 b(with)g(classical)h(accessor)i(metho)q(ds.)d
+(But,)h(declaring)g(a)g(slot)f(as)h(virtual)g(allo)o(ws)340
+293 y(in)o(trosp)q(ecting)k(functions)g(to)f(\\see")h(it)f(as)g(a)g
+(standard)h(slot.)e(On)i(the)g(con)o(trary)m(,)f(using)g(a)340
+343 y(couple)g(of)e(metho)q(ds)g(to)h(sim)o(ulate)e(suc)o(h)j(a)e(slot)
+h(w)o(ould)f(hide)h(it)f(to)h(these)i(functions.)340
+482 y Fk(3)56 b(In)n(tegration)19 b(of)f(Tk)h(widgets)340
+587 y Fi(3.1)48 b(The)16 b(Class)f(Hierarc)o(h)o(y)340
+674 y Fo(This)22 b(section)g(presen)o(ts)h(ho)o(w)e(the)h(standard)g
+(Tk)g(widgets)f(ha)o(v)o(e)h(b)q(een)g(em)o(b)q(o)q(died)f(in)340
+724 y Fh(STklos)16 b Fo(classes.)f(Eac)o(h)g(graphical)e(ob)r(ject)j
+(de\014ned)f(in)f(the)h(Tk)g(to)q(olkit)e(suc)o(h)i(as)g(men)o(u,)340
+774 y(lab)q(el)k(or)g(button)g(is)f(represen)o(ted)k(b)o(y)d(a)f
+Fh(STklos)i Fo(class.)f(The)g(corresp)q(onding)h(classes)340
+824 y(constitute)14 b(a)f(hierarc)o(h)o(y)g(whic)o(h)g(is)g(brie\015y)g
+(describ)q(ed)i(here.)e(First,)g(all)f(the)h(classes)h(share)340
+874 y(a)g(unique)g(ancestor:)g(the)h Fe(<Tk-object>)c
+Fo(class)1093 859 y Fc(2)1112 874 y Fo(.)j(This)g(class)g(de\014nes)h
+(a)f(set)g(of)g(slots)g(nec-)340 923 y(essary)21 b(to)f(establish)g(a)f
+(comm)o(unication)d(b)q(et)o(w)o(een)21 b(the)g(Sc)o(heme)e(and)h(Tk)f
+(w)o(orlds.)g(In)340 973 y(particular,)14 b(t)o(w)o(o)f(slots)h(are)g
+(de\014ned)h(in)f(this)g(class)1142 958 y Fc(3)1161 973
+y Fo(:)366 1060 y Fi({)21 b Fo(The)c Fe(parent)e Fo(slot)h(con)o(tains)
+h(a)f(reference)j(to)e(the)g(ob)r(ject)g(whic)o(h)g(\(graphically\))e
+(in-)411 1110 y(cludes)g(the)f(curren)o(t)i(ob)r(ject.)366
+1161 y Fi({)21 b Fo(The)c Fe(Id)f Fo(slot)h(con)o(tains)f(a)h
+(reference)i(to)d(the)h(lo)o(w)f(lev)o(el)g Fh(STk)h
+Fj(Tk-c)n(ommand)g Fo(whic)o(h)411 1210 y(implemen)o(ts)f(the)i
+Fh(STklos)i Fo(widget.)d(This)h Fj(Tk-c)n(ommand)p Fo(,)g(whic)o(h)g
+(is)h(di\013eren)o(t)g(for)411 1260 y(eac)o(h)13 b(class,)g(is)f
+(created)i(during)e Fh(STklos)i Fo(instance)f(initialization.)d(This)i
+(slot)h(estab-)411 1310 y(lishes)h(the)g(link)f(b)q(et)o(w)o(een)i(the)
+g Fh(STk)f Fo(and)g(the)g Fh(STklos)h Fo(la)o(y)o(ers)f(and)f(guaran)o
+(tees,)i(b)o(y)411 1360 y(k)o(eeping)c(a)f(reference)k(to)c(the)i(lo)o
+(w)e(lev)o(el)g(widget,)h(a)f(protection)i(against)e(GC)g(reco)o(v)o
+(ery)m(.)403 1446 y(The)17 b(next)g(lev)o(el)g(of)f(the)h(class)g
+(hierarc)o(h)o(y)g(de\014nes)i(a)d(fork)g(with)h(t)o(w)o(o)f(branc)o
+(hes:)i(the)340 1496 y Fe(<Tk-widget>)c Fo(class)j(and)f
+Fe(<Tk-canvas-item>)d Fo(class.)j(Instances)i(of)e(the)h(former)e
+(class)340 1545 y(are)e(classical)f(widgets)h(suc)o(h)g(as)f(buttons)h
+(or)f(men)o(us)g(whereas)h(instances)h(of)e(the)g(later)h(are)340
+1595 y(ob)r(jects)18 b(con)o(tained)f(in)g(a)f(can)o(v)n(as)883
+1580 y Fc(4)919 1595 y Fo(suc)o(h)h(as)g(lines,)f(o)o(v)n(als)g(or)h
+(rectangles.)g(Both)h(kind)e(of)340 1645 y(Tk)c(ob)r(jects)i(are)e
+(directly)h(implem)o(en)o(ted)e(as)h Fh(STklos)h Fo(classes)g(in)f(a)g
+(one-to-one)g(relation-)340 1695 y(ship.)i(A)g(partial)e(view)i(of)f
+(the)i Fh(STklos)f Fo(hierarc)o(h)o(y)h(is)e(sho)o(wn)h(in)f(Fig.)f(1.)
+h(Here)i(are)f(some)340 1745 y(imp)q(ortan)o(t)f(p)q(oin)o(ts:)366
+1831 y Fi({)21 b Fo(In)10 b(Tk,)f(in)o(terface)h(widgets)g(\()p
+Fj(e.g.)f Fo(buttons\))i(are)f(\014rst)g(class)g(ob)r(jects,)h(but)f
+(can)o(v)n(as)f(items)411 1881 y(\()p Fj(e.g.)i Fo(rectangles\))i(can)e
+(b)q(e)h(accessed)i(only)c(through)i(their)g(con)o(taining)e(can)o(v)n
+(as.)g(Th)o(us,)411 1931 y(actions)h(on)h(widgets)f(or)h(can)o(v)n(as)f
+(items)f(m)o(ust)h(b)q(e)h(done)g(in)f(di\013eren)o(t)h(w)o(a)o(ys.)f
+(Accessing)411 1981 y(a)e(can)o(v)n(as)g(item)f(option)h(requires)h(t)o
+(w)o(o)f(references:)j(one)e(to)f(the)h(can)o(v)n(as)f(whic)o(h)g(con)o
+(tains)411 2031 y(it)15 b(and)g(one)g(to)g(its)g(iden)o(ti\014cation)f
+(\(a)h(n)o(um)o(b)q(er\))g(in)f(this)i(can)o(v)n(as.)e(In)h(order)h(to)
+f(mak)o(e)411 2080 y(can)o(v)n(as)9 b(items)g(\014rst)i(class)f(ob)r
+(jects,)g(the)h(class)f Fe(<Tk-canvas-item>)c Fo(de\014nes)11
+b(the)g(extra)411 2130 y(slot)h Fe(Cid)f Fo(whic)o(h)h(con)o(tains)g
+(the)h(Tk)f(iden)o(ti\014cation)f(n)o(um)o(b)q(er)h(asso)q(ciated)g(to)
+g(the)h(item.)p 340 2161 237 2 v 349 2188 a Fb(2)379
+2203 y Fn(End)h(users)f(will)i(not)e(ha)o(v)o(e)h(to)f(use)h(direct)g
+(instances)g(of)f(the)h Ff(<Tk-objec)o(t>)9 b Fn(class)14
+b(\(all)h(classes)379 2249 y(whose)g(name)f(b)q(egins)j(with)e(the)f
+(\\Tk-")h(pre\014x)g(are)g(abstract)g(classes)g(whic)o(h)h(should)g
+(not)f(b)q(e)379 2295 y(instanced;)f(they)g(corresp)q(ond)g(to)f(the)g
+Fd(implementation)e(sp)n(e)n(ci\014c)f Fn(classes)15
+b(of)d([9]\).)349 2325 y Fb(3)379 2340 y Fn(The)h(actual)i(implemen)o
+(tation)h(is)e(more)g(complex,)g(but)g(to)f(mak)o(e)h(easier)h(the)e
+(reading)i(of)e(this)379 2386 y(pap)q(er,)g(w)o(e)g(ha)o(v)o(e)g
+(simpli\014ed)j(the)e(de\014nition)h(of)e(classes,)h(and)f(hence)h(the)
+f(class)h(hierarc)o(h)o(y)m(.)349 2416 y Fb(4)379 2432
+y Fn(The)f(can)o(v)n(as)h(widget)f(a\013orded)i(b)o(y)e(the)g(Tk)g
+(library)i(allo)o(ws)f(2D)g(structured)g(dra)o(wing.)p
+eop
+%%Page: 7 7
+7 6 bop 194 152 a
+ 22376157 14544495 0 0 35587932 23418306 startTexFig
+ 194 152 a
+%%BeginDocument: hierarchy.eps
+%Magnification: 0.80
+/$F2psDict 200 dict def
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/col-1 {0 setgray} bind def
+/col0 {0.000 0.000 0.000 srgb} bind def
+/col1 {0.000 0.000 1.000 srgb} bind def
+/col2 {0.000 1.000 0.000 srgb} bind def
+/col3 {0.000 1.000 1.000 srgb} bind def
+/col4 {1.000 0.000 0.000 srgb} bind def
+/col5 {1.000 0.000 1.000 srgb} bind def
+/col6 {1.000 1.000 0.000 srgb} bind def
+/col7 {1.000 1.000 1.000 srgb} bind def
+/col8 {0.000 0.000 0.560 srgb} bind def
+/col9 {0.000 0.000 0.690 srgb} bind def
+/col10 {0.000 0.000 0.820 srgb} bind def
+/col11 {0.530 0.810 1.000 srgb} bind def
+/col12 {0.000 0.560 0.000 srgb} bind def
+/col13 {0.000 0.690 0.000 srgb} bind def
+/col14 {0.000 0.820 0.000 srgb} bind def
+/col15 {0.000 0.560 0.560 srgb} bind def
+/col16 {0.000 0.690 0.690 srgb} bind def
+/col17 {0.000 0.820 0.820 srgb} bind def
+/col18 {0.560 0.000 0.000 srgb} bind def
+/col19 {0.690 0.000 0.000 srgb} bind def
+/col20 {0.820 0.000 0.000 srgb} bind def
+/col21 {0.560 0.000 0.560 srgb} bind def
+/col22 {0.690 0.000 0.690 srgb} bind def
+/col23 {0.820 0.000 0.820 srgb} bind def
+/col24 {0.500 0.190 0.000 srgb} bind def
+/col25 {0.630 0.250 0.000 srgb} bind def
+/col26 {0.750 0.380 0.000 srgb} bind def
+/col27 {1.000 0.500 0.500 srgb} bind def
+/col28 {1.000 0.630 0.630 srgb} bind def
+/col29 {1.000 0.750 0.750 srgb} bind def
+/col30 {1.000 0.880 0.880 srgb} bind def
+/col31 {1.000 0.840 0.000 srgb} bind def
+
+end
+save
+-40.0 377.0 translate
+1 -1 scale
+
+/cp {closepath} bind def
+/ef {eofill} bind def
+/gr {grestore} bind def
+/gs {gsave} bind def
+/sa {save} bind def
+/rs {restore} bind def
+/l {lineto} bind def
+/m {moveto} bind def
+/rm {rmoveto} bind def
+/n {newpath} bind def
+/s {stroke} bind def
+/sh {show} bind def
+/slc {setlinecap} bind def
+/slj {setlinejoin} bind def
+/slw {setlinewidth} bind def
+/srgb {setrgbcolor} bind def
+/rot {rotate} bind def
+/sc {scale} bind def
+/sd {setdash} bind def
+/ff {findfont} bind def
+/sf {setfont} bind def
+/scf {scalefont} bind def
+/sw {stringwidth} bind def
+/tr {translate} bind def
+/tnt {dup dup currentrgbcolor
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
+  bind def
+/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+  4 -2 roll mul srgb} bind def
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+
+$F2psBegin
+10 setmiterlimit
+n 0 842 m 0 0 l 595 0 l 595 842 l cp clip
+ 0.04800 0.04800 sc
+7.500 slw
+% Polyline
+n 2655 6225 m 2550 6225 2550 6570 105 arcto 4 {pop} repeat
+  2550 6675 4695 6675 105 arcto 4 {pop} repeat
+  4800 6675 4800 6330 105 arcto 4 {pop} repeat
+  4800 6225 2655 6225 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+2632 6502 m
+gs 1 -1 sc (<Tk-complex-button>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5070 m
+gs 1 -1 sc (<Labeled-Entry>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5340 m
+gs 1 -1 sc (<Choice-box>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5610 m
+gs 1 -1 sc (...) col-1 sh gr
+% Polyline
+n 6007 450 m 5902 450 5902 795 105 arcto 4 {pop} repeat
+  5902 900 8092 900 105 arcto 4 {pop} repeat
+  8197 900 8197 555 105 arcto 4 {pop} repeat
+  8197 450 6007 450 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+6450 727 m
+gs 1 -1 sc (<Tk-object>) col-1 sh gr
+% Polyline
+n 3592 1500 m 3487 1500 3487 1845 105 arcto 4 {pop} repeat
+  3487 1950 5632 1950 105 arcto 4 {pop} repeat
+  5737 1950 5737 1605 105 arcto 4 {pop} repeat
+  5737 1500 3592 1500 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+3997 1777 m
+gs 1 -1 sc (<Tk-widget>) col-1 sh gr
+% Polyline
+n 8392 1500 m 8287 1500 8287 1845 105 arcto 4 {pop} repeat
+  8287 1950 10432 1950 105 arcto 4 {pop} repeat
+  10537 1950 10537 1605 105 arcto 4 {pop} repeat
+  10537 1500 8392 1500 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+8527 1800 m
+gs 1 -1 sc (<Tk-canvas-item>) col-1 sh gr
+% Polyline
+n 1417 2700 m 1312 2700 1312 3045 105 arcto 4 {pop} repeat
+  1312 3150 3457 3150 105 arcto 4 {pop} repeat
+  3562 3150 3562 2805 105 arcto 4 {pop} repeat
+  3562 2700 1417 2700 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+1470 2977 m
+gs 1 -1 sc (<Tk-simple-widget>) col-1 sh gr
+% Polyline
+n 5505 2737 m 5400 2737 5400 3082 105 arcto 4 {pop} repeat
+  5400 3187 7545 3187 105 arcto 4 {pop} repeat
+  7650 3187 7650 2842 105 arcto 4 {pop} repeat
+  7650 2737 5505 2737 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+5400 3015 m
+gs 1 -1 sc (<Tk-composite-widget>) col-1 sh gr
+% Polyline
+n 6360 3105 m 6360 3105 l gs col-1 s gr
+% Polyline
+n 7192 4012 m 7087 4012 7087 4357 105 arcto 4 {pop} repeat
+  7087 4462 9232 4462 105 arcto 4 {pop} repeat
+  9337 4462 9337 4117 105 arcto 4 {pop} repeat
+  9337 4012 7192 4012 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+gs  clippath
+4650 1495 m 4526 1493 l 4636 1436 l 4478 1474 l 4492 1533 l  cp clip
+n 6975 900 m 4500 1500 l gs col-1 s gr gr
+
+% arrowhead
+n 4650 1495 m 4526 1493 l 4636 1436 l 4643 1465 l 4650 1495 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+9239 1436 m 9348 1493 l 9225 1495 l 9383 1533 l 9397 1474 l  cp clip
+n 6900 900 m 9375 1500 l gs col-1 s gr gr
+
+% arrowhead
+n 9239 1436 m 9348 1493 l 9225 1495 l 9232 1465 l 9239 1436 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+2549 2679 m 2425 2690 l 2528 2622 l 2376 2677 l 2396 2733 l  cp clip
+n 4500 1950 m 2400 2700 l gs col-1 s gr gr
+
+% arrowhead
+n 2549 2679 m 2425 2690 l 2528 2622 l 2538 2651 l 2549 2679 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+6471 2624 m 6574 2691 l 6451 2680 l 6604 2733 l 6624 2677 l  cp clip
+n 4425 1950 m 6600 2700 l gs col-1 s gr gr
+
+% arrowhead
+n 6471 2624 m 6574 2691 l 6451 2680 l 6461 2652 l 6471 2624 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+1411 3912 m 1296 3959 l 1376 3864 l 1245 3960 l 1281 4008 l  cp clip
+n 2400 3150 m 1275 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 1411 3912 m 1296 3959 l 1376 3864 l 1394 3888 l 1411 3912 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3568 3870 m 3652 3960 l 3535 3920 l 3671 4008 l 3704 3958 l  cp clip
+n 2400 3150 m 3675 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 3568 3870 m 3652 3960 l 3535 3920 l 3552 3895 l 3568 3870 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3630 4953 m 3600 5073 l 3570 4953 l 3570 5115 l 3630 5115 l  cp clip
+n 3600 4500 m 3600 5100 l gs col-1 s gr gr
+
+% arrowhead
+n 3630 4953 m 3600 5073 l 3570 4953 l 3600 4953 l 3630 4953 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3630 6078 m 3600 6198 l 3570 6078 l 3570 6240 l 3630 6240 l  cp clip
+n 3600 5550 m 3600 6225 l gs col-1 s gr gr
+
+% arrowhead
+n 3630 6078 m 3600 6198 l 3570 6078 l 3600 6078 l 3630 6078 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+8276 3864 m 8188 3951 l 8224 3833 l 8142 3973 l 8193 4003 l  cp clip
+n 9375 1950 m 8175 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 8276 3864 m 8188 3951 l 8224 3833 l 8250 3849 l 8276 3864 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+10883 3841 m 10933 3953 l 10836 3877 l 10936 4005 l 10983 3968 l  cp clip
+n 9375 1950 m 10950 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 10883 3841 m 10933 3953 l 10836 3877 l 10860 3859 l 10883 3841 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+6480 4728 m 6450 4848 l 6420 4728 l 6420 4890 l 6480 4890 l  cp clip
+n 6450 3150 m 6450 4875 l gs col-1 s gr gr
+
+% arrowhead
+n 6480 4728 m 6450 4848 l 6420 4728 l 6450 4728 l 6480 4728 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+1948 7326 m 1825 7340 l 1927 7270 l 1775 7327 l 1796 7383 l  cp clip
+n 3600 6675 m 1800 7350 l gs col-1 s gr gr
+
+% arrowhead
+n 1948 7326 m 1825 7340 l 1927 7270 l 1938 7298 l 1948 7326 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+5199 7268 m 5299 7340 l 5177 7324 l 5328 7383 l 5350 7328 l  cp clip
+n 3600 6675 m 5325 7350 l gs col-1 s gr gr
+
+% arrowhead
+n 5199 7268 m 5299 7340 l 5177 7324 l 5188 7296 l 5199 7268 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+n 2617 4012 m 2512 4012 2512 4357 105 arcto 4 {pop} repeat
+  2512 4462 4657 4462 105 arcto 4 {pop} repeat
+  4762 4462 4762 4117 105 arcto 4 {pop} repeat
+  4762 4012 2617 4012 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 967 7387 m 862 7387 862 7732 105 arcto 4 {pop} repeat
+  862 7837 3007 7837 105 arcto 4 {pop} repeat
+  3112 7837 3112 7492 105 arcto 4 {pop} repeat
+  3112 7387 967 7387 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 4267 7387 m 4162 7387 4162 7732 105 arcto 4 {pop} repeat
+  4162 7837 6307 7837 105 arcto 4 {pop} repeat
+  6412 7837 6412 7492 105 arcto 4 {pop} repeat
+  6412 7387 4267 7387 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 9930 3975 m 9825 3975 9825 4320 105 arcto 4 {pop} repeat
+  9825 4425 11970 4425 105 arcto 4 {pop} repeat
+  12075 4425 12075 4080 105 arcto 4 {pop} repeat
+  12075 3975 9930 3975 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 2617 5137 m 2512 5137 2512 5482 105 arcto 4 {pop} repeat
+  2512 5587 4657 5587 105 arcto 4 {pop} repeat
+  4762 5587 4762 5242 105 arcto 4 {pop} repeat
+  4762 5137 2617 5137 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+/Times-Bold ff 210.00 scf sf
+885 4185 m
+gs 1 -1 sc (<Frame>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4455 m
+gs 1 -1 sc (<Scale>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4725 m
+gs 1 -1 sc (<Menu>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+7657 4290 m
+gs 1 -1 sc (<Rectangle>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+3270 4312 m
+gs 1 -1 sc (<Label>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+3232 5437 m
+gs 1 -1 sc (<Button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+1245 7687 m
+gs 1 -1 sc (<Check-button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+4582 7687 m
+gs 1 -1 sc (<Radio-button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+10635 4275 m
+gs 1 -1 sc (<Line>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4995 m
+gs 1 -1 sc (<Canvas>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 5265 m
+gs 1 -1 sc (...) col-1 sh gr
+$F2psEnd
+rs
+%%EndDocument
+
+ endTexFig
+ 508 1161 a Fm(Fig.)7 b(1.)13 b Fd(A)g(p)n(artial)f(view)i(of)f(the)f
+Fl(STklos)i Fd(hier)n(ar)n(chy)209 1315 y Fi({)20 b Fo(The)12
+b(hierarc)o(hical)g(view)f(of)g(Tk)g(widgets)h(p)q(ermits)f(a)g(b)q
+(etter)i(apprehension)g(of)e(the)h(Tk)253 1365 y(to)q(olkit,)i(ev)o(en)
+h(if)f(there)j(is)e(no)f(notion)h(of)f(inheritance)i(in)e(standard)i
+(Tk.)e(According)253 1415 y(to)k(Fig.)12 b(1,)17 b(a)h
+Fj(button)h Fo(can)g(b)q(e)g(seen)g(as)g(a)f(reactiv)o(e)h
+Fj(lab)n(el)p Fo(.)e(As)i(a)f(consequence,)i(the)253
+1465 y(metho)q(ds)e(in)f(c)o(harge)h(of)g(the)g(lo)q(ok)f(of)g(a)h(lab)
+q(el)f(or)h(button)g(text)h(\(fon)o(t,)d(foreground)253
+1514 y(color,)e(.)7 b(.)f(.)h(\))15 b(can)g(b)q(e)h(gathered)g(in)e
+(the)i Fe(<Label>)d Fo(class.)i(Th)o(us,)g(the)h Fe(<Button>)d
+Fo(class)253 1564 y(has)g(only)e(to)h(manage)f(the)h(op)q(erations)h
+(whic)o(h)f(are)h(sp)q(eci\014c)g(to)g(a)e(reactiv)o(e)i(text,)g(suc)o
+(h)253 1614 y(as)j(the)h(asso)q(ciated)g(command)c(to)j(in)o(v)o(ok)o
+(e)f(when)i(the)g(mouse)e(button)h(is)g(depressed)253
+1664 y(o)o(v)o(er)e(it.)209 1719 y Fi({)20 b Fo(Simple)f(and)h(comp)q
+(osite)f(widgets)i(share)g(a)f(common)e(ancestor)j(\()p
+Fe(<Tk-widget>)p Fo(\).)253 1769 y(Consequen)o(tly)m(,)e(comp)q(osites)
+f(widgets,)h(whic)o(h)f(are)h(written)h(in)e(Sc)o(heme,)g(are)h(con-)
+253 1819 y(trolled)10 b(exactly)g(in)g(the)g(same)f(w)o(a)o(y)h(as)g(C)
+g(built-in)f(Tk)h(widgets.)f(This)h(kind)g(of)f(widgets)253
+1869 y(is)14 b(discussed)i(in)c([4)o(].)183 2022 y Fi(3.2)47
+b(Accessing)15 b(Tk)h(Widgets)f(Options)183 2133 y Fo(Eac)o(h)e(Tk)f
+(to)q(olkit)g(widget)h(accepts)h(a)f(sp)q(eci\014c)h(set)g(of)e
+(options)g(whic)o(h)h(enables)g(its)g(asp)q(ect)183 2183
+y(customization)k(suc)o(h)i(as)f(its)h(color,)e(fon)o(t,)h(text)h(or)f
+(relief.)g(Options)h(ma)o(y)d(b)q(e)j(sp)q(eci\014ed)183
+2232 y(either)c(on)g(the)g(command)e(line)h(when)h(the)h(widget)f(is)f
+(created)j(or)d(with)h(the)g Fe(configure)183 2282 y
+Fo(op)q(eration)i(whic)o(h)g(is)g(applicable)f(to)i(all)e(Tk)h
+(widgets.)g(In)g Fh(STklos)q Fo(,)g(eac)o(h)h(option)e(of)h(a)183
+2332 y(Tk)e(widget)g(is)g(seen)i(as)e(an)g(ob)r(ject)h(slot,)f(and)g
+(getting)g(or)h(setting)f(the)h(con\014guration)f(of)183
+2382 y(a)d(Tk)h(option)g(is)g(equiv)n(alen)o(t)f(to)h(read)h(or)f
+(write)g(an)g(ob)r(ject)h(slot.)f(The)g(follo)o(wing)e(example)183
+2432 y(sho)o(ws)j(a)f(p)q(ossible)i Fh(STklos)g Fo(de\014nition)e(of)g
+(a)h(Tk)g(button.)p eop
+%%Page: 8 8
+8 7 bop 411 178 a Ff(\(define-c)o(las)o(s)17 b(<Button>)f(\(<Label>\))
+470 224 y(\(\(command)g(:accessor)g(command)h(:init-keyw)o(or)o(d)g
+(:command)666 269 y(:allocati)o(on)f(:tk-virtua)o(l\)\))470
+315 y(:metaclas)o(s)h(<Tk-meta)o(cla)o(ss>)o(\))340 373
+y Fo(This)11 b(new)g(class)f(inherits)h(from)e Fe(<Label>)g
+Fo(and)h(o)o(wns)g(an)g(extra)h(slot)f(called)g Fe(command)p
+Fo(.)f(The)340 423 y(allo)q(cation)j(of)g(this)h(slot)f(is)h
+(quali\014ed)f(with)h Fe(:tk-virtual)p Fo(.)d(Tk-virtual)i(slots)h(are)
+g(sp)q(ecial)340 473 y(purp)q(ose)h(slots:)e(they)g(can)h(b)q(e)g(used)
+g(as)f(normal)f(slots)h(but)g(they)h(are)g(not)f(allo)q(cated)g(in)g
+(the)340 523 y(Sc)o(heme)i(w)o(orld)f(\()p Fj(i.e.)g
+Fo(their)h(v)n(alue)f(is)g(stored)i(in)e(one)h(of)f(the)h(structures)i
+(manipulated)c(b)o(y)340 573 y(the)j(Tk)f(library)f(instead)h(of)f(in)h
+(a)f(Sc)o(heme)h(ob)r(ject\).)g(Consequen)o(tly)m(,)g(reading)f(or)h
+(writing)340 622 y(suc)o(h)g(a)f(slot)f(is)h(done)g(in)f(a)h
+(particular)g(w)o(a)o(y:)e(access)k(to)e(Tk-virtual)e(slot)i(uses)h(in)
+e(turn)i(the)340 672 y(standard)d(Tk)f Fe(configure)f
+Fo(op)q(eration)h(as)g(in)g(2.1.)f(Tk-virtual)g(widgets)i(slots)f(are)h
+(a)f(sp)q(ecial)340 722 y(kind)19 b(of)g(virtual)f(slots)i(whic)o(h)f
+(are)h(managed)e(b)o(y)h(the)h(meta)e(class)i Fe(<Tk-metaclass>)p
+Fo(.)340 772 y(De\014ning)14 b(a)f(class)h(using)f(this)h(meta)e(class)
+i(allo)o(ws)f(the)h(mo)q(di\014cation)d(of)i(a)h(slot)f(accessors)340
+822 y(at)f(the)h(lo)o(w)o(est)f(lev)o(el.)f(Therefore,)i(the)g(v)n
+(alue)e(of)g(a)h(virtual)f(slot)h(alw)o(a)o(ys)f(re\015ect)j(the)f
+(actual)340 871 y(v)n(alue)i(of)g(the)h(asso)q(ciated)g(Tk)f(option)g
+(\(remem)o(b)q(er)g(that)g(no)g(space)i(is)e(reserv)o(ed)i(for)e(this)
+340 921 y(slot)g(in)f(the)h(Sc)o(heme)g(core)g(and)g(that)g(accesses)i
+(are)e(directly)g(done)g(within)f(the)h(Tk)g(data)340
+971 y(structures\).)k(The)e(sp)q(eci\014cation)g(of)f(the)h(meta)e
+(class)i(of)e(the)i Fe(<Button>)e Fo(class)i(in)f(giv)o(en)340
+1021 y(with)g(the)h Fe(:metaclass)d Fo(option)861 1006
+y Fc(5)878 1021 y Fo(.)i(It)g(is)g(imp)q(ortan)o(t)e(to)i(note)g(that)g
+(the)h(construction)g(of)340 1071 y(the)h(slot)f(accessors)i(is)e(made)
+e(at)i(class)g(creation)h(so)f(that)g(no)f(particular)h(computation)340
+1121 y(is)e(necessary)i(when)e(accessing)h(suc)o(h)f(a)f(slot.)g(Th)o
+(us,)h(customizing)e(a)h(widget)h(b)o(y)f(using)h(a)340
+1170 y(slot)h(access)i(at)d(the)i Fh(STklos)f Fo(lev)o(el)g(is)f
+Fi(as)k(e\016cien)o(t)c(as)h Fo(using)g(a)f(standard)h(Tk)g(option)340
+1220 y(con\014guration)e(at)g(the)g Fh(STk)g Fo(base)h(lev)o(el.)403
+1270 y(The)f(previous)h(de\014nition)f(of)g Fe(<Button>)f
+Fo(is)h(not)g(su\016cien)o(t)h(for)f(a)g(complete)g(in)o(tegra-)340
+1320 y(tion)f(of)g(the)h(Tk)f(button)g(widget)h(in)f(a)g
+Fh(STklos)h Fo(class.)f(Indeed,)h(the)g(MOP)g(ensures)h(that)340
+1370 y Fe(Tk-constructor)d Fo(is)j(called)f(when)i(creating)f(a)f(new)h
+Fe(<Tk-widget>)e Fo(\(and)h Fe(<Button>)f Fo(is)340 1419
+y(an)19 b(indirect)g(instance)g(of)f Fe(<Tk-widget>)e
+Fo(as)j(sho)o(wn)f(in)g(Fig.)12 b(1\).)18 b(This)g(function)g(m)o(ust)
+340 1469 y(determine)g(the)g(Tk)f(library)f(function)h(\(a)h
+Fj(Tk-c)n(ommand)p Fo(\))g(whic)o(h)f(has)g(to)g(b)q(e)h(called)f(to)
+340 1519 y(create)e(the)e(new)g(widget.)f(The)h(follo)o(wing)d(metho)q
+(d)i(for)g Fe(Tk-constructor)e Fo(su\016ces)k(to)f(do)340
+1569 y(this)h(job:)411 1632 y Ff(\(define-m)o(eth)o(od)i(Tk-constru)o
+(cto)o(r)g(\(\(b)j(<Button>\))o(\))470 1678 y(button\))340
+1745 y Fo(The)f(previous)f Fe(<Button>)e Fo(class)i(and)g
+Fe(Tk-constructor)d Fo(metho)q(d)i(de\014nitions)g(are)i(the)340
+1795 y(t)o(w)o(o)j(only)e(things)i(necessary)i(for)d(de\014ning)h(a)f
+(new)h Fh(STklos)h Fo(widget.)e(This)g(p)q(oin)o(t)g(is)340
+1845 y(particularly)14 b(imp)q(ortan)o(t)f(since)j(it)e(p)q(ermits)h
+(to)f(minimi)o(ze)f(the)i(in)o(tegration)f(cost)i(of)e(new)340
+1895 y(Tk)f(widgets)f(and,)g(consequen)o(tly)m(,)g(to)g
+Fj(fol)r(low)f Fo(future)i(Tk)f(releases)i(with)e(minima)o(l)d(co)q
+(ding.)403 1945 y(The)14 b(follo)o(wing)d(v)n(ariable)i(de\014nition)g
+(sho)o(ws)i(ho)o(w)e(w)o(e)h(can)g(use)h(the)f(ab)q(o)o(v)o(e)g
+Fe(<Button>)340 1995 y Fo(class:)411 2058 y Ff(\(define)j(b)i(\(make)f
+(<Button>)e(:font)i("fixed")901 2104 y(:command)f(\(lambda)g(\(\))i
+(\(display)d("Hello\\n"\))o(\)\))o(\))340 2171 y Fo(This)f(expression)g
+(assigns)g(to)f(the)h(sym)o(b)q(ol)d Fe(b)i Fo(a)h(new)f(instance)h(of)
+f Fe(<Button>)p Fo(.)e(Changing)340 2221 y(the)i(fon)o(t)e(or)g(the)h
+(command)d(asso)q(ciated)j(to)g(this)f(ob)r(ject)i(could)e(b)q(e)h
+(done)g(b)o(y)f(using)g(either)340 2271 y(the)j Fe(slot-set)p
+Fo(!)d(or)h(the)i(generalized)g Fe(set)p Fo(!)d(primitiv)o(es)g(as)i
+(sho)o(wn)g(in)e(2.2.)p 340 2298 237 2 v 349 2325 a Fb(5)379
+2340 y Fn(In)f(fact,)g(this)h(meta)f(class)h(citation)h(can)f(b)q(e)f
+(omitted)h(since)h Ff(<Label>)8 b Fn(\(or)j(one)h(of)f(its)g
+(ancestor\))379 2386 y(has)j(probably)i(already)g(sp)q(eci\014ed)g(it.)
+e(In)g(this)h(case)f(the)g(system)h(will)g(automatically)i(c)o(ho)q
+(ose)379 2432 y(the)c(most)g(sp)q(eci\014c)i(meta)e(class.)p
+eop
+%%Page: 9 9
+9 8 bop 183 194 a Fi(3.3)47 b(Comparison)14 b(of)i Fh(STklos)h
+Fi(and)e(Standard)e(Tk)183 276 y Fo(Some)j(of)h(the)h(adv)n(an)o(tages)
+f(of)g Fh(STklos)q Fo(,)g(approac)o(h)h(o)o(v)o(er)f(standard)h(Tk)g
+(ha)o(v)o(e)f(already)183 325 y(b)q(een)e(discussed)g(b)q(efore.)f(In)g
+(this)g(section,)g(w)o(e)g(go)g(on)f(further)i(this)f(discussion.)183
+449 y Fi(Lo)o(w)g(Lev)o(el)f(Detail)f(Hiding)18 b Fo(One)13
+b(of)f(the)i(most)d(imp)q(ortan)o(t)g(b)q(ene\014ts)k(when)e(em)o(b)q
+(o)q(dy-)183 499 y(ing)h(Tk)i(widgets)f(in)g Fh(STklos)i
+Fo(is)e(that)h(most)e(of)h(the)h(Tk)f(idiosyncrasies)h(are)g(hidden)g
+(to)183 548 y(the)e(user.)h(As)g(a)e(p)q(ositiv)o(e)h(consequence,)i
+(this)e(impro)o(v)o(es)f(greatly)h(the)g(lev)o(el)g(w)o(e)g(can)h(pro-)
+183 598 y(gram)e(GUI.)h(A)g(ma)r(jor)f(impro)o(v)o(emen)o(t)g
+(concerning)i(this)g(p)q(oin)o(t)f(is)h(that)f(w)o(e)h(do)g(not)g(need)
+183 648 y(an)o(ymore)9 b(to)i(tak)o(e)g(care)h(of)f(the)g(Tk)g(widget)g
+(naming)e(con)o(v)o(en)o(tions.)h(The)i(fact)f(that)g(Tk)g(im-)183
+698 y(p)q(oses)k(that)f(the)h(name)e(of)h(a)g(widget)g(m)o(ust)f
+(re\015ect)j(the)f(hierarc)o(h)o(y)g(to)f(whic)o(h)g(it)g(b)q(elongs,)
+183 748 y(and)k(the)h(lac)o(k)e(of)h(relativ)o(e)g(naming)e(con)o(v)o
+(en)o(tions)i(are)h(v)o(ery)f(sev)o(ere)i(constrain)o(ts)f(when)183
+798 y(designing)14 b(a)h(GUI.)f(These)j(p)q(oin)o(ts)e(mak)o(e)e
+(di\016cult,)h(in)h(standard)g(Tk,)g(the)g(de\014nition)g(of)183
+847 y(reusable)g(in)o(terface)g(comp)q(onen)o(ts)f(and)h(usage)f(of)g
+(long)g(pathnames)g(\(whic)o(h)g(are)h(curren)o(t)183
+897 y(in)c(non)g(to)o(y)h(applications\))e(is)i(v)o(ery)g(a)o(wkw)o
+(ard)f(to)h(manage.)d(F)m(urthermore,)i(these)i(con)o(v)o(en-)183
+947 y(tions)f(lead)h(to)f(c)o(hange)h(large)g(pieces)g(of)g(co)q(de)g
+(as)g(so)q(on)g(as)f(a)h(mo)q(di\014cation)d(is)j(done)g(in)f(the)183
+997 y(widget)g(hierarc)o(h)o(y)m(.)h(In)g(this)g(sense,)h(Tk)f(naming)d
+(con)o(v)o(en)o(tions)j(do)g(not)g(\014t)g(w)o(ell)f(with)h(GUI)183
+1047 y(programmi)o(ng)h(since)k(the)f(design)g(of)f(an)h(in)o(terface)h
+(brings)f(aesthetic)h(problems)e(whic)o(h)183 1096 y(often)e(conduct)g
+(to)g(dev)o(elop)g(it)g(on)f(a)h(trial)f(and)h(error)g(basis.)245
+1146 y(In)e Fh(STklos)q Fo(,)f(Tk)h(naming)d(con)o(v)o(en)o(tion)j(are)
+g(completely)f(hidden)h(and)g(the)g(only)f(thing)183
+1196 y(the)i(user)g(needs)h(to)f(kno)o(w)f(when)h(creating)g(a)f(new)h
+(ob)r(ject)g(is)g(the)g(widget)f(whic)o(h)h(con)o(tains)183
+1246 y(it.)18 b(This)g(ob)r(ject)i(is)f(called)f(its)h(paren)o(t.)g(An)
+g(example)e(of)h(nested)j(widgets)e(creation)g(is)183
+1296 y(sho)o(wn)14 b(b)q(elo)o(w:)253 1381 y Ff(\(define)j(f)39
+b(\(make)18 b(<Frame>\)\))253 1427 y(\(define)f(b1)i(\(make)f(<Button>)
+e(:text)i("B1")g(:parent)f(f\)\))253 1473 y(\(define)g(b2)i(\(make)f
+(<Button>)e(:text)i("B2")g(:parent)f(f\)\))183 1563 y
+Fo(The)10 b(buttons)h Fe(b1)f Fo(and)g Fe(b2)f Fo(created)j(here)f(sp)q
+(ecify)g(that)f(their)g(paren)o(t)h(is)f(the)h(frame)e
+Fe(f)p Fo(.)g(Since)183 1613 y(this)18 b(frame)f(do)q(es)i(not)f(sp)q
+(ecify)h(a)f(particular)g(paren)o(t,)h(it)f(is)g(supp)q(osed)i(to)e(b)q
+(e)h(a)f(direct)183 1662 y(descendan)o(t)i(of)e(the)h(ro)q(ot)g(windo)o
+(w.)f(Note)h(that)f(only)g(the)i(de\014nition)e(of)g
+Fe(f)g Fo(should)h(b)q(e)183 1712 y(c)o(hanged)12 b(if)g(w)o(e)g
+(decide)i(that)e Fe(f)g Fo(should)g(no)h(more)e(b)q(e)i(a)f(top-lev)o
+(el)g(frame.)e(A)j(mo)q(di\014cation)183 1762 y(in)k(the)g(hierarc)o(h)
+o(y)h(of)f(this)g(widget)g(is)h(automatically)c(propagated)j(to)g(all)f
+(the)i(widgets)183 1812 y(b)q(elonging)11 b(to)h(this)h(hierarc)o(h)o
+(y)m(.)e Fh(STklos)j Fo(also)d(extends)j(this)e(paren)o(t)h(notion)f
+(to)g(tak)o(e)g(in)o(to)183 1862 y(accoun)o(t)k(can)o(v)n(as)f(items)f
+(\(rectangles,)j(lines,)e(o)o(v)n(als,)c(.)6 b(.)h(.)f(\):)15
+b(a)g(can)o(v)n(as)h(item)e(is)h(considered)183 1911
+y(to)i(b)q(e)h(a)f(descendan)o(t)i(of)e(the)h(can)o(v)n(as)g(whic)o(h)f
+(con)o(tains)g(it.)g(This)g(vision)g(of)g(the)h(can)o(v)n(as)183
+1961 y(items)12 b(allo)o(ws)h(the)h Fh(STklos)h Fo(user)g(to)e
+(manipulate)f(can)o(v)n(as)i(items)e(as)i(\014rst)h(class)f(ob)r
+(jects.)183 2011 y(F)m(or)f(instance,)253 2097 y Ff(\(define)k(c)i
+(\(make)f(<Canvas>\)\))253 2143 y(\(define)f(r)i(\(make)f(<Rectangle)o
+(>)e(:parent)h(c)j(:coords)c('\(0)j(0)g(50)g(50\)\)\))183
+2232 y Fo(de\014nes)13 b(a)e(rectangle)i(called)f Fe(r)f
+Fo(in)h(the)g Fe(c)g Fo(can)o(v)n(as.)f(As)h(said)g(b)q(efore,)g
+(accessing)h(this)f(rectan-)183 2282 y(gle)i(implies)e(the)j(use)g(of)f
+(t)o(w)o(o)g(references)j(in)d(standard)h(Tk:)e(the)i(can)o(v)n(as)f
+(whic)o(h)h(con)o(tains)183 2332 y(it,)g(and)g(its)h(iden)o
+(ti\014cation)f(n)o(um)o(b)q(er)g(in)h(this)g(can)o(v)n(as.)f(In)h
+Fh(STklos)q Fo(,)f(b)q(oth)h(informations)183 2382 y(are)i(con)o
+(tained)h(in)e(the)i(ob)r(ject)g(whic)o(h)f(represen)o(t)j(the)d
+(rectangle.)h(F)m(or)f(instance,)g(after)183 2432 y(executing)c(the)h
+(expression,)p eop
+%%Page: 10 10
+10 9 bop 411 194 a Ff(\(bind)18 b(r)h("<Enter>")d(\(lambda)h(\(x)i(y\))
+823 239 y(\(format)e(#t)i("Mouse)e(enters)g(in)i(~A)g(~A~\045")f(x)h
+(y\)\)\))340 325 y Fo(a)13 b(message)f(is)h(displa)o(y)o(ed,)e(eac)o(h)
+j(times)d(the)j(mouse)e(en)o(ters)i(the)f Fe(r)g Fo(rectangle.)g(It)g
+(is)f(imp)q(or-)340 374 y(tan)o(t)f(to)g(note)g(here)h(that)f(w)o(e)g
+(w)o(ould)f(use)i Fj(exactly)f Fo(the)g(same)f(expression)i(to)f(asso)q
+(ciate)h(suc)o(h)340 424 y(a)j(binding)f(to)h(a)g(simple)f(widget)g
+(suc)o(h)i(as)f(a)g(button)g(or)g(a)g(lab)q(el,)f(whereas)j(it)d(needs)
+j(t)o(w)o(o)340 474 y(di\013eren)o(t)f(syn)o(tactic)f(forms)d(in)i
+(Tcl/Tk,)g(since)h(the)g(pro)q(cedures)h(whic)o(h)e(access)i(a)e(can)o
+(v)n(as)340 524 y(item)f(or)h(an)f(in)o(terface)i(widget)f(are)g
+(di\013eren)o(t.)340 652 y Fi(Uniform)c(Access)h(to)g(the)g(T)l(o)q
+(olkit)16 b Fo(Usage)11 b(of)f(generic)h(functions)f(is)g(also)g(a)g
+(signi\014can)o(t)340 702 y(impro)o(v)o(emen)o(t)15 b(o)o(v)o(er)i(the)
+g(Tk)g(basic)g(lev)o(el)g(programmi)o(ng)d(since)k(it)f(allo)o(ws)e(an)
+i(homoge-)340 752 y(neous)c(access)i(to)d(Tk)g(commands.)e(Supp)q(ose)j
+(that)g(w)o(e)f(w)o(an)o(t)g(to)h(giv)o(e)e(access)k(to)d(the)h(v)n
+(alue)340 801 y(of)g(a)h Fe(scale)e Fo(or)i(an)f Fe(entry)g
+Fo(widget)g(with)g(the)i(generic)f(function)f Fe(value)p
+Fo(.)f(This)i(can)g(easily)340 851 y(b)q(e)h(done)f(b)o(y)g(the)g
+(follo)o(wing)d(metho)q(d)j(in)f Fh(STklos)q Fo(:)411
+942 y Ff(\(define-m)o(eth)o(od)j(value)i(\(\(obj)g(<Tk-simp)o(le-)o
+(wid)o(ge)o(t>\))o(\))470 988 y(\(\(Id)g(obj\))g('get\)\))403
+1082 y Fo(In)c(this)h(case,)f(one)h(metho)q(d)f(is)g(su\016cien)o(t)h
+(to)f(implemen)o(t)e(the)j(getter)g(function)f(since)340
+1132 y(the)d(Tk)f(sub-option)g(for)g(reading)g(the)h(v)n(alue)f(of)g(a)
+g(scale)h(or)f(an)g(en)o(try)h(is)f(the)h(same.)e(W)m(riting)340
+1182 y(the)18 b(setter)g(function)e(for)g(those)i(widgets)f(is)f(a)g
+(little)g(bit)g(more)g(complicated)f(since)j(the)340
+1231 y(w)o(a)o(y)g(of)g(c)o(hanging)f(a)h(scale)h(v)n(alue)e(is)h
+(di\013eren)o(t)i(from)c(the)j(w)o(a)o(y)f(of)f(c)o(hanging)h(an)g(en)o
+(try)340 1281 y(v)n(alue)c(in)f(Tk:)411 1372 y Ff(\(define-m)o(eth)o
+(od)j(\(setter)h(value\))g(\(\(obj)h(<Scale>\))f(v\))450
+1418 y(\(\(Id)h(obj\))g('set)g(v\)\))411 1509 y(\(define-m)o(eth)o(od)e
+(\(setter)h(value\))g(\(\(obj)h(<Entry>\))f(v\))450 1555
+y(\(\(Id)h(obj\))g('delete)f(0)i('end\))450 1600 y(\(\(Id)f(obj\))g
+('insert)f(0)i(v\)\))403 1695 y Fo(Using)10 b(the)i(same)e(generic)i
+(function)f(\(with)g(t)o(w)o(o)f(di\013eren)o(t)i(metho)q(ds\))f(p)q
+(ermits)f(to)h(hide)340 1744 y(to)17 b(the)h(user)h(these)f(lo)o(w)e
+(lev)o(el)h(details)g(and)g(giv)o(es)g(him/her)f(a)h(coheren)o(t)i
+(access)g(to)e(the)340 1794 y(to)q(olkit.)c(In)h(the)g(call,)411
+1876 y Ff(\(set!)k(\(value)f(x\))i(100\))340 1961 y Fo(the)14
+b(system)f(c)o(ho)q(oses)i(the)f(metho)q(d)e(to)i(apply)e(dep)q(ending)
+i(on)f(the)h(class)g(of)f Fe(x)p Fo(.)f(Of)h(course,)340
+2011 y(an)j(error)487 1996 y Fc(6)522 2011 y Fo(will)e(b)q(e)j
+(signaled)e(if)g Fe(x)g Fo(is)g(not)h(an)f(en)o(try)i(or)e(a)h(scale.)f
+(Note)i(that)e(this)h(notion)340 2061 y(of)i(widget)f(v)n(alue)h(could)
+f(also)h(b)q(e)g(easily)g(implem)o(en)o(ted)e(with)i(a)g(virtual)f
+(slot)g(\(see)d(2.2\))340 2111 y(ev)o(en)19 b(if)e Fe(:value)g
+Fo(do)q(es)h(not)g(exist)g(as)g(a)g(Tk)g(option)f Fj(p)n(er)12
+b(se)p Fo(.)17 b(This)h(approac)o(h,)g(whic)o(h)f(is)340
+2160 y(the)f(one)e(c)o(hosen)i(in)e(the)h(curren)o(t)h(released)g
+(library)m(,)d(allo)o(ws)g(in)o(trosp)q(ecting)i(functions)f(to)340
+2210 y(manage)d(the)i(v)n(alue)f(of)f(a)h(widget)h(as)f(a)g(standard)h
+(slot.)e(In)i(particular,)e(this)i(library)e(o\013ers)340
+2260 y(a)j(small)e(in)o(terface)j(builder)f(whic)o(h)g(hea)o(vily)f
+(use)i(in)o(trosp)q(ection)f(to)g(automatically)d(build)p
+340 2298 237 2 v 349 2325 a Fb(6)379 2340 y Fn(more)16
+b(exactly)m(,)h(the)f(system)h(calls)g(the)g Ff(no-appli)o(cab)o(le-)o
+(me)o(tho)o(d)c Fn(generic)k(function)h(whic)o(h,)379
+2386 y(b)o(y)12 b(default,)h(signals)h(an)e(error,)f(as)h(in)h(CLOS.)e
+(User)h(can)g(sp)q(ecialize)j(this)e(function)g(to)f(pro)o(vide)379
+2432 y(another)i(handler.)p eop
+%%Page: 11 11
+11 10 bop 183 194 a Fo(sp)q(ecialized)19 b(widget)f(editors.)g
+(De\014ning)g Fe(value)f Fo(as)h(a)g(virtual)f(slots)h(for)g(most)f
+(widgets)183 244 y(allo)o(ws)12 b(the)j(user)g(to)e(tune)i(it)e(in)h
+(the)g(same)f(fashion)g(as)h(the)g(fon)o(t)g(or)f(the)i(bac)o(kground)f
+(Tk)183 293 y(options.)d(Designing)g(an)h(in)o(terface)g(builder)g
+(using)g(only)f(standard)i(Tk)e(constructs)j(w)o(ould)183
+343 y(ha)o(v)o(e)f(b)q(een)i(a)f(lot)f(more)g(painful.)245
+393 y(The)21 b(previous)f(examples)g(sho)o(w)g(that)h(programmi)o(ng)c
+(with)j Fh(STklos)i Fo(brings)e(the)183 443 y(p)q(o)o(w)o(er)15
+b(of)f(a)g(full)f(featured)j(ob)r(ject)f(language)f(in)g(the)i(area)e
+(of)h(GUI)f(construction.)h(Ho)o(w-)183 493 y(ev)o(er,)i(this)f(\014ne)
+h(in)o(tegration)f(of)g(the)h(Tk)g(to)q(olkit)e(could)i(not)f(ha)o(v)o
+(e)g(b)q(een)i(done)f(without)183 542 y(the)e(underlying)g(Meta)g(Ob)r
+(ject)i(Proto)q(col)e(of)f Fh(STklos)q Fo(.)h(This)g(proto)q(col)f(is)h
+(discussed)i(in)183 592 y(the)d(follo)o(wing)d(section.)183
+721 y Fk(4)56 b(Implem)o(en)n(tation)183 814 y Fo(In)13
+b(the)g(previous)h(section,)f(w)o(e)g(sho)o(w)g(through)g(sev)o(eral)h
+(examples)e(the)i(gain)e(pro)o(vided)h(b)o(y)183 864
+y(an)e(ob)r(ject)i(language)e(to)h(use)h(the)g(Tk)e(to)q(olkit.)g(The)h
+(simplicit)o(y)e(of)h(these)j(examples)d(could)183 914
+y(mak)o(e)h(think)i(that)g(the)h(de\014nition)e(of)h(an)g
+Fj(ad-ho)n(c)g Fo(ob)r(ject)h(system)f(for)g(Tk)f(widgets)i(could)183
+964 y(su\016ce)f(to)e(ha)o(v)o(e)h(an)g(OO)h(vision)e(of)g(the)i(to)q
+(olkit.)d(Ho)o(w)o(ev)o(er,)i(w)o(e)h(feel)f(that)g(this)g(approac)o
+(h,)183 1014 y(whic)o(h)k(has)g(b)q(een)h(widely)f(used)h(for)f(Tcl,)g
+(is)g(not)g(the)h(go)q(o)q(d)e(one.)h(Pro)o(viding)f(a)h(general)183
+1063 y(purp)q(ose)i(Sc)o(heme)f(ob)r(ject)g(system,)g(whic)o(h)g(can)g
+(easily)f(b)q(e)i(customized)f(for)f(using)h(Tk,)183
+1113 y(seems)12 b(a)g(far)g(b)q(etter)i(approac)o(h.)d(Indeed,)i(in)f
+(the)h(GUI)e(area,)h(applications)f(programmers)183 1163
+y(often)f(need)h(to)f(b)q(e)h(able)f(to)g(use)h(in)o(trosp)q(ection)g
+(on)f(the)h(ob)r(jects)g(they)g(manipulate,)d(or)i(they)183
+1213 y(need)k(to)g(de\014ne)g(new)g(w)o(a)o(ys)g(to)f(access)i(ob)r
+(ject)g(slots)f(when)g(comp)q(osing)e(sev)o(eral)i(widgets.)183
+1263 y(These)g(constrain)o(ts)g(ha)o(v)o(e)f(led)g(us)h(to)f(de\014ne)h
+(a)f(MOP)h(based)g(ob)r(ject)g(extension)g(for)f Fh(STk)p
+Fo(,)183 1312 y(b)q(ecause)18 b(it)e(is)h(probably)f(the)h(cleanest)h
+(w)o(a)o(y)e(to)h(ac)o(hiev)o(e)g(the)g(requiremen)o(ts)g(expressed)183
+1362 y(ab)q(o)o(v)o(e.)245 1412 y(This)c(section)h(presen)o(ts)h(ho)o
+(w)e(to)g(in)o(tegrate)g(Tk)g(widgets)h(in)e(a)h(hierarc)o(h)o(y)h(suc)
+o(h)g(as)f(the)183 1462 y(one)j(sho)o(wn)f(in)h(Fig.)11
+b(1.)k(The)h(discussion)h(is)e(split)h(in)f(t)o(w)o(o)g(parts.)h
+(First,)g(w)o(e)g(presen)o(t)h(the)183 1512 y(services)g(a)f(MOP)h(m)o
+(ust)e(o\013er)h(for)g(this)g(in)o(tegration)f(and)h(then,)g(w)o(e)h
+(sho)o(w)e(ho)o(w)h(w)o(e)g(can)183 1561 y(exploit)d(them)g(to)h(build)
+f(this)h(hierarc)o(h)o(y)m(.)183 1680 y Fi(4.1)47 b(The)16
+b Fh(STklos)h Fi(Meta)f(Ob)s(ject)e(Proto)q(col)183 1757
+y Fh(STklos)g Fo(meta)e(ob)r(ject)j(proto)q(col)e(implemen)o(tatio)o(n)
+e(is)i(based)h(on)f(Tin)o(y-Clos)f([8)o(],)g(a)i(min-)183
+1807 y(imal)g(MOP)k(written)f(in)g(Sc)o(heme.)g(Curren)o(t)h(v)o
+(ersion)f(of)g Fh(STklos)h Fo(MOP)f(is)g(written)h(in)183
+1857 y(C)d(and)g(in)g(Sc)o(heme.)g(Co)q(de)h(written)f(in)g(C)h
+(corresp)q(ond)h(to)e(the)h(generic)g(functions)f(calls,)183
+1906 y(whic)o(h)d(allo)o(ws)f(to)i(implemen)o(t)d(them)h(as)i
+(e\016cien)o(tly)g(as)f(p)q(ossible.)h(The)g(rest)g(of)f(the)i(imple-)
+183 1956 y(men)o(tation,)d(where)j(time)e(consumption)g(is)h(less)h
+(imp)q(ortan)o(t)d(\()p Fj(e.g.)h Fo(computation)g(of)g(class)183
+2006 y(precedence)j(lists)e(or)f(prin)o(ting)g(metho)q(ds\),)f(is)i
+(written)g(in)f(Sc)o(heme.)f(This)i(conducts)g(to)g(an)183
+2056 y(e\016cien)o(t)i(implem)o(en)o(tation)d(where)k(the)f(o)o(v)o
+(erhead)g(of)f(OO)h(programmi)o(ng)d Fj(vs)i Fo(\\classical")183
+2106 y(programmi)o(ng)d(is)j(as)g(lo)o(w)f(as)g(p)q(ossible.)245
+2155 y(As)21 b(said)f(b)q(efore,)h Fh(STklos)g Fo(is)f(a)h(general)f
+(purp)q(ose)i(OO)f(extension,)f(but)h(a)f(great)183 2205
+y(atten)o(tion)d(has)h(b)q(een)h(carried)f(for)g(the)g(services)i(its)d
+(MOP)i(m)o(ust)d(pro)o(vide)i(in)f(order)i(to)183 2255
+y(in)o(tegrate)h(easily)g(and)h(e\016cien)o(tly)f(Tk)g(widgets)h(in)f
+Fh(STklos)h Fo(ob)r(jects.)h(The)f Fh(STklos)183 2305
+y Fo(proto)q(col)13 b(m)o(ust)g(at)h(least)g(o\013er)h(follo)o(wing)c
+(capabilities:)209 2382 y Fi({)20 b Fo(a)15 b(w)o(a)o(y)g(to)h(in)o
+(terv)o(ene)g(in)f(the)i(initialization)12 b(of)j(a)h
+Fh(STklos)g Fo(widget.)f(The)h(\014rst)g(task)253 2432
+y(whic)o(h)d(m)o(ust)g(b)q(e)h(done)f(at)g(this)h(stage)f(consists)i
+(to)e(generate)h(a)f(name)g(\(using)g(the)h(Tk)p eop
+%%Page: 12 12
+12 11 bop 411 194 a Fo(con)o(v)o(en)o(tions\))16 b(for)g(the)h(widget)f
+(whic)o(h)h(will)d(implemen)o(t)g(the)j(new)g(instance.)f(Then,)411
+244 y(the)e(instance)h(creation)f(argumen)o(ts)f(list)h(m)o(ust)f(b)q
+(e)h(\014ltered)h(to)e(distinguish)h(the)g(user)411 293
+y(argumen)o(ts)9 b(whic)o(h)g(concern)i(only)e Fh(STklos)h
+Fo(\()p Fj(e.g.)i Fo(the)f Fe(parent)d Fo(slot)h(discussed)i(in)e
+(3.1\))411 343 y(from)j(those)i(whic)o(h)f(corresp)q(ond)j(to)d(Tk)g
+(options.)g(This)h(distinction)f(among)e(param-)411 393
+y(eters)16 b(is)e(necessary)i(b)q(ecause)g(the)f(Tk)f(library)f(raises)
+i(an)f(error)h(when)g(it)e(encoun)o(ters)411 443 y(a)h(parameter)f(it)h
+(do)q(es)g(not)g(kno)o(w)f(ho)o(w)h(to)g(manage.)366
+493 y Fi({)21 b Fo(the)13 b(p)q(ossibilit)o(y)e(to)i(de\014ne)g(slots)g
+(with)f(sp)q(ecial)h(b)q(eha)o(viour)f(and)g(allo)q(cation)f(sc)o
+(hemes.)411 543 y(In)k(e\013ect,)i(b)q(ey)o(ond)f(virtual)e(slots)i
+(already)f(discussed)i(in)e(2.2,)f(the)i(proto)q(col)f(should)411
+593 y(allo)o(w)k(to)h(map)f(the)j(Tk)e(widget)g(options)h(as)f(slots)h
+(of)f(a)g Fh(STklos)i Fo(ob)r(ject.)f(Note)411 643 y(that)14
+b(the)h(w)o(a)o(y)e(to)h(do)g(this)g(mapping)e(will)h(b)q(e)h
+(di\013eren)o(t)i(for)d(a)h(simple)f(widget)h(and)g(a)411
+693 y(can)o(v)n(as)c(item,)f(since)i(Tk)f(o\013ers)i(t)o(w)o(o)d
+(di\013eren)o(t)j(metho)q(ds)e(for)g(accessing)h(their)g(options.)411
+742 y(F)m(urthermore,)16 b(the)i(proto)q(col)f(for)g(de\014ning)g
+(slots)g(m)o(ust)f(b)q(e)i(as)f(simple)f(as)h(p)q(ossible)411
+792 y(to)f(allo)o(w)f(application)h(programmers)e(to)j(extend)h(the)f
+(library)f(with)g(new)h(kinds)g(of)411 842 y(widgets.)403
+927 y(The)10 b(creation)g(of)f(a)h Fh(STklos)h Fo(ob)r(ject)f(is)g
+(done)g(with)f(the)i Fe(make)e Fo(generic)h(function.)f(As)i(in)340
+977 y(CLOS,)f(this)h(function)f(\014rst)h(allo)q(cates)f(a)g(new)h
+(instance)g(\(b)o(y)f(calling)f(the)i(generic)h(function)340
+1027 y Fe(allocate-instance)p Fo(\))e(and)k(then)g(returns)h(this)f
+(instance)g(initialized.)e(Initialization)f(of)340 1077
+y(the)k(new)f(instance)h(is)f(p)q(erformed)f(b)o(y)h(the)g
+Fe(initialize)e Fo(generic)j(function.)403 1127 y(Class)i(slots)h(are)h
+(computed)e(when)h(the)h(class)f(is)g(initialized.)e(The)i
+Fh(STklos)h Fo(MOP)340 1177 y(calls)e(the)g(generic)g(function)f
+Fe(compute-get-n-set)d Fo(whic)o(h,)j(giv)o(en)g(the)h(de\014nition)g
+(of)f(a)340 1227 y(slot,)e(returns)h(a)e(couple)i(of)e(pro)q(cedures.)i
+(These)g(pro)q(cedures)i(corresp)q(ond)e(to)f(the)g(reader)340
+1277 y(and)k(writer)g(functions)g(for)g(the)g(slot.)f(In)h(case)h(of)e
+(a)h(virtual)f(slot)g(de\014nition)h(\(see)c(2.2\),)340
+1327 y(for)f(instance,)f Fe(compute-get-n-set)d Fo(returns)14
+b(a)f(list)f(constituted)h(of)f(the)h(t)o(w)o(o)g(ev)n(aluated)340
+1377 y(lam)o(b)q(da)f(expressions)j(giv)o(en)f(in)f(the)i
+Fe(:slot-ref)d Fo(and)h Fe(:slot-set!)f Fo(options.)340
+1505 y Fi(4.2)48 b(Using)14 b(the)h(MOP)h(to)f(W)l(rap)h(Tk)g(Widgets)
+340 1592 y Fo(W)m(e)c(presen)o(t)i(here)f(only)f(the)h(salien)o(t)e(p)q
+(oin)o(ts)i(whic)o(h)f(are)g(necessary)j(to)d(the)g(in)o(tegration)g
+(of)340 1642 y(Tk)i(widgets)g(and)g(simple)e(can)o(v)n(as)i(items)f(in)
+h(an)f(ob)r(ject)i(w)o(orld.)e(The)h(co)q(de)h(exp)q(osed)g(here)340
+1692 y(is)i(simpler)f(than)h(the)h(one)f(whic)o(h)g(is)g(used)h(in)e
+(the)i(curren)o(t)g(distribution)f(of)f Fh(STk)q Fo(,)g(but)340
+1741 y(principles)f(are)g(the)g(same.)f(A)g(complete)g(listing)g(of)g
+(the)h(source)h(co)q(de)f(of)f(this)h(simpli\014ed)340
+1791 y(implemen)o(tation)c(is)i(giv)o(en)h(in)f(annex.)340
+1920 y Fi(Managing)k(Tk)h(Options)d(as)j(Ob)s(ject)e(Slots.)21
+b Fo(When)16 b(a)f(new)h(class)g(is)f(created,)i(the)340
+1970 y(generic)j(function)e Fe(compute-get-n-set)d Fo(is)j(called)g
+(for)h(eac)o(h)g(slot)f(this)g(class)h(de\014nes.)340
+2019 y(This)12 b(function)f(tak)o(es)h(t)o(w)o(o)f(parameters:)g(the)h
+(class)g(whic)o(h)f(is)h(b)q(eing)f(created)i(and)e(the)i(slot)340
+2069 y(de\014nition)g(\(a)f(list\).)g(This)g(allo)o(ws)g(us)h(to)f
+(de\014ne)i(a)e(meta)f(class)i(whic)o(h)g(tak)o(es)g(in)o(to)f(accoun)o
+(t)340 2119 y(a)f(sp)q(ecial)g(kind)f(of)h(slots:)f Fj(tk-virtual)g
+Fo(allo)q(cated)g(slots.)h(The)g(meta)f(class)h(in)f(c)o(harge)i(of)e
+(these)340 2169 y(slots)k(is)g(called)g Fe(<Tk-metaclass>)p
+Fo(.)c(This)k(class)g(is)g(de\014ned)h(as:)411 2251 y
+Ff(\(define-c)o(las)o(s)i(<Tk-meta)o(cla)o(ss>)f(\(<class>\))450
+2297 y(\(\(valid-op)o(tio)o(ns)g(:accessor)g(Tk-valid-o)o(pti)o(on)o
+(\)\)\))340 2382 y Fo(The)k(slot)e Fe(valid-options)f
+Fo(con)o(tains)h(the)i(list)e(of)h(options)f(a)h(Tk)f(widget)h
+(recognizes.)340 2432 y(This)14 b(slot)f(is)g(initialized)f(when)i(a)g
+(new)g(widget)f(class)h(is)f(de\014ned)i(\(its)f(v)n(alue)f(is)g(set)h
+(to)g(the)p eop
+%%Page: 13 13
+13 12 bop 183 194 a Fo(list)13 b(of)f(the)i(slots)g(whose)g(allo)q
+(cation)e(is)h Fj(Tk-virtual)p Fo(\).)f(Usage)i(of)e
+Fe(valid-options)f Fo(will)h(b)q(e)183 244 y(discussed)j(later.)245
+293 y(Tk-virtual)c(slots)i(ha)o(v)o(e)f(b)q(een)i(presen)o(ted)g(in)e
+(3.2.)f(Reading)h(and)g(writing)g(this)g(kind)g(of)183
+343 y(slot)k(implies)e(the)j(use)g(of)f(the)h Fe(configure)e
+Fo(sub-option)h(whic)o(h)g(is)g(alw)o(a)o(ys)g(a)o(v)n(ailable)e(for)
+183 393 y(Tk)d(widgets.)g(In)g(standard)h(Tk,)e(reading)h(the)h(v)n
+(alue)f(of)g(a)g(widget)g(option,)f(suc)o(h)i(as)f Fe(width)p
+Fo(,)183 443 y(for)i(a)h(giv)o(en)f(widget)h Fe(w)g Fo(m)o(ust)e(b)q(e)
+j(done)f(with)253 517 y Ff(\(list-ref)i(\(w)j('configure)d(:width\))h
+(4\))183 595 y Fo(Setting)d(the)h(width)g(of)e(this)i(widget)f(to)h
+(the)g(v)n(alue)f Fe(val)f Fo(is)i(a)f(little)g(bit)g(simpler)f(and)h
+(can)183 645 y(b)q(e)g(expressed)i(as:)253 719 y Ff(\(w)j('configure)d
+(:width)h(val\))183 797 y Fo(Consider)f(no)o(w)f(a)h(can)o(v)n(as)g
+(item)e(whose)j(enclosing)f(can)o(v)n(as)f(and)h(iden)o(ti\014cation)f
+(n)o(um)o(b)q(er)183 846 y(are)e(resp)q(ectiv)o(ely)i
+Fe(c)e Fo(and)g Fe(id)p Fo(;)f(reading)h(and)g(writing)g(the)g(v)n
+(alue)g(of)g(its)g Fe(width)f Fo(option)g(can)183 896
+y(b)q(e)i(done)g(with)253 970 y Ff(\(list-ref)i(\(c)j('itemconfi)o(gur)
+o(e)d(id)j(:width\))e(4\))183 1048 y Fo(and)253 1122
+y Ff(\(c)i('itemconfi)o(gu)o(re)d(id)j(:width)e(val\))183
+1200 y Fo(W)m(e)g(said)g(in)g(previous)h(subsection)h(that)f(the)g
+(generic)h(function)e Fe(compute-get-n-set)183 1250 y
+Fo(has)12 b(in)f(c)o(harge)h(slot)g(allo)q(cation.)d(Giv)o(en)i(the)i
+(Tk)e(con)o(v)o(en)o(tions)h(exp)q(osed)h(b)q(efore,)f(it)f(is)h(easy)
+183 1300 y(to)i(de\014ne)i(a)e Fe(<Tk-metaclass>)e Fo(sp)q(ecialized)k
+(metho)q(d)e(for)g(this)h(function.)f(This)g(metho)q(d)183
+1350 y(m)o(ust)c(return)j(a)f(list)f(whose)h(\014rst)h(elemen)o(t)e(is)
+h(a)f(closure)i(for)e(reading)h(the)g(slot,)f(and)h(whose)183
+1400 y(second)j(elemen)o(t)e(is)h(a)f(closure)i(for)f(its)f(writing:)
+253 1481 y Ff(\(define-me)o(tho)o(d)j(compute-get)o(-n)o(-se)o(t)g
+(\(\(class)h(<Tk-Metacla)o(ss)o(>\))f(slot\))292 1526
+y(\(if)j(\(eqv?)f(\(get-slo)o(t-a)o(llo)o(ca)o(tio)o(n)e(slot\))i
+(:tk-virtua)o(l\))385 1572 y Fd(;;)13 b(this)f(is)i(a)f(Tk-virtual)f
+(slot)371 1618 y Ff(\(let)18 b(\(\(opt)g(\(make-key)o(wo)o(rd)e(\(car)i
+(slot\)\)\)\))410 1663 y(\(list)g(\(lambda)f(\(obj\))g(\(list-ref)g
+(\(\(Id)h(obj\))g('configur)o(e)e(opt\))i(4\)\))528 1709
+y(\(lambda)f(\(obj)h(val\))g(\(\(Id)g(obj\))g('configure)e(opt)i
+(val\)\)\)\))385 1755 y Fd(;;)13 b(c)n(al)r(l)f(sup)n(er)h(c)n
+(ompute-get-n)o(-se)o(t)371 1800 y Ff(\(next-met)o(hod)o(\)\))o(\))183
+1885 y Fo(This)c(metho)q(d)f(\014rst)i(tests)h(the)f(allo)q(cation)e(t)
+o(yp)q(e)h(of)g(the)h(slot)f(with)g Fe(get-slot-allocati)o(on)p
+Fo(.)183 1935 y(If)16 b(the)i(slot)e(is)h(a)g(Tk-virtual)f(one,)g(this)
+h(metho)q(d)g(returns)h(the)g(reader)g(and)f(writer)g(clo-)183
+1985 y(sures)j(in)e(a)h(list.)e(Otherwise,)j(this)f(metho)q(d)f(calls)g
+Fe(next-method)p Fo(,)e(that)j(is)g(to)f(sa)o(y)h(the)183
+2035 y Fe(compute-get-n-se)o(t)11 b Fo(metho)q(d)i(de\014ned)i(o)o(v)o
+(er)f(the)g(sup)q(er)i(class)e(of)f Fe(<Tk-metaclass>)p
+Fo(.)245 2085 y(Since)e(Tk)g(accesses)j(can)o(v)n(as)d(items)f(options)
+g(in)h(a)g(di\013eren)o(t)h(w)o(a)o(y)e(than)h(simple)e(widgets)183
+2134 y(ones,)h Fe(<Tk-metaclass>)d Fo(cannot)j(b)q(e)h(used)g(for)f
+(reading)g(and)g(writing)f(their)i(slots.)e(A)i(meta)183
+2184 y(class)j(for)g(can)o(v)n(as)f(items)g(can)h(b)q(e)h(simply)d
+(de\014ned)j(as)253 2258 y Ff(\(define-cl)o(ass)h(<Tk-item-)o(met)o(ac)
+o(las)o(s>)g(\(<Tk-Metac)o(la)o(ss>)o(\))292 2304 y(\(\)\))183
+2382 y Fo(Giv)o(en)10 b(this)i(meta)e(class)i(and)f(the)h(Tk)f(con)o(v)
+o(en)o(tions)h(sho)o(wn)f(b)q(efore,)h(it)f(is)g(simple)f(to)i
+(de\014ne)183 2432 y(a)h Fe(compute-get-n-set)e Fo(metho)q(d)i(sp)q
+(ecialized)h(for)g(can)o(v)n(as)f(items:)p eop
+%%Page: 14 14
+14 13 bop 411 194 a Ff(\(define-m)o(eth)o(od)16 b(compute-ge)o(t-n)o
+(-s)o(et)g(\(\(class)h(<Tk-item-m)o(et)o(acl)o(ass)o(>\))f(slot\))450
+239 y(\(if)j(\(eqv?)e(\(get-slot-)o(all)o(oca)o(ti)o(on)f(slot\))i
+(:tk-virtu)o(al\))529 285 y(\(let)g(\(\(opt)f(\(make-keywo)o(rd)f
+(\(car)i(slot\)\)\)\))568 331 y(\(list)g(\(lambda)e(\(obj\))725
+376 y(\(list-ref)g(\(\(Id)i(obj\))g('itemconfi)o(gu)o(re)e(\(Cid)i
+(obj\))g(opt\))g(4\)\))686 422 y(\(lambda)e(\(obj)j(val\))725
+468 y(\(\(Id)f(obj\))g('itemconf)o(igu)o(re)e(\(Cid)i(obj\))g(opt)h
+(val\)\)\)\))529 513 y(\(next-met)o(ho)o(d\)\))o(\))340
+590 y Fo(Tw)o(o)14 b(p)q(oin)o(ts)g(are)g(imp)q(ortan)o(t)e(to)i(note)g
+(here:)366 666 y Fi({)21 b Fo(Metho)q(ds)15 b(of)e(the)h(generic)h
+(function)e Fe(compute-get-n-set)d Fo(are)k(v)o(ery)g(dep)q(enden)o(t)i
+(of)411 716 y(the)c(pro)q(cedure)h(Tk)e(prop)q(oses)i(for)e(accessing)h
+(widget)g(options.)e(Ho)o(w)o(ev)o(er,)h(it)g(m)o(ust)g(b)q(e)411
+766 y(noted)i(that)g(only)e(the)i(t)o(w)o(o)f(returned)j(lam)o(b)q(da)
+10 b(expressions)k(should)e(b)q(e)i(re-written)f(if)411
+816 y(the)i(author)f(of)f(the)i(Tk)f(to)q(olkit)f(decides)i(to)f(c)o
+(hange)g(curren)o(t)i(con)o(v)o(en)o(tions.)d(W)m(e)h(can)411
+866 y(ev)o(en)f(sa)o(y)g(that)g(the)h(MOP)f(p)q(ermits)f(to)h(write)g
+(programs)f(whic)o(h)h(are)g(less)h(dep)q(enden)o(t)411
+915 y(of)f(the)i(Tk)f(to)q(olkit)f(than)h(Tcl/Tk)g(programs,)e(since)j
+(dep)q(endences)j(can)c(b)q(e)h(isolated)411 965 y(in)e(a)h(few)g
+(metho)q(ds)f(instead)i(of)e(b)q(eing)h(spread)g(all)f(o)o(v)o(er)h
+(the)h(co)q(de.)366 1015 y Fi({)21 b Fo(The)11 b(proto)q(col)g(for)g
+(accessing)h(the)f(slots)g(of)g(new)g(kind)f(of)h(widgets)g(is)g
+(easily)f(customiz-)411 1065 y(able.)15 b(The)g Fh(STklos)i
+Fo(library)d(uses)j(it)e(for)g(the)g(Tk)h(text)f(tags)h(\(a)f(tag)g(is)
+g(an)g(annota-)411 1115 y(tion)f(whic)o(h)h(allo)o(ws)f(to)h(asso)q
+(ciate)h(a)e(script)i(to)f(a)g(p)q(ortion)f(of)h(the)g(string)h(asso)q
+(ciated)411 1164 y(to)e(a)h(Tk)f Fe(text)g Fo(widget\).)g(De\014ning)g
+(a)g(meta)g(class)h(for)f(text)h(tags)g(and)f(a)h(sp)q(ecialized)411
+1214 y Fe(compute-get-n-set)10 b Fo(metho)q(d)k(su\016ce)h(to)e(see)j
+(them)d(as)h(\014rst)h(class)f(ob)r(jects)i(whose)411
+1264 y(state)k(is)e(stored)i(in)f(the)g(slots)g(of)f(a)h
+Fh(STklos)h Fo(instance.)f(Similarly)l(,)d(the)j Fh(STklos)411
+1314 y Fo(library)e(de\014nes)j(a)e(meta)e(class)j(for)f(managing)d
+(comp)q(osite)i(widgets)i(where)g(a)f(slot)411 1364 y(access)f(for)e(a)
+f(comp)q(ound)g(widget)h(can)g(b)q(e)h(propagated)f(to)g(some)f(of)h
+(its)g(comp)q(osing)411 1414 y(widgets.)340 1532 y Fi(Widget)20
+b(Initiali)o(zati)o(on.)j Fo(When)c(a)e(new)i(ob)r(ject)g(is)f
+(initialized,)e(the)j(MOP)f(ensures)340 1581 y(that)i(the)h
+Fe(initialize)d Fo(generic)j(function)f(is)g(called.)f(This)h(metho)q
+(d)f(m)o(ust)g(\014lter)i(the)340 1631 y(argumen)o(ts)14
+b(giv)o(en)g(to)g Fe(make)g Fo(in)g(order)h(to)f(pass)h(only)f(v)n
+(alid)f(options)h(to)g(Tk,)g(and)g(to)g(tak)o(e)340 1681
+y(in)o(to)f(accoun)o(t)h(slots)g(whic)o(h)f(deal)g(only)g(with)g
+Fh(STklos)h Fo(\(suc)o(h)h(as)e Fe(parent)p Fo(,)f(for)h(example\).)340
+1731 y(This)h(metho)q(d)f(is)h(giv)o(en)f(b)q(elo)o(w:)411
+1803 y Ff(\(define-m)o(eth)o(od)j(initialize)g(\(\(self)h(<Tk-simple)o
+(-wi)o(dg)o(et>)o(\))f(initargs\))464 1849 y Fd(;;)d(Use)g(split-optio)
+o(ns)d(on)j(initar)n(gs)f(to)h(sep)n(ar)n(ate)e(STklos)i(slots)f(fr)n
+(om)i(Tk)464 1894 y(;;)f(ones.)f(Set)h(p)n(ar)n(ent)f(to)h(the)g(r)n(o)
+n(ot)g(window)g(if)g(not)g(sp)n(e)n(ci\014e)n(d)e(in)i(initar)n(gs)450
+1940 y Ff(\(let*)18 b(\(\(options)e(\(split-opt)o(io)o(ns)g
+(\(Tk-valid-)o(opt)o(io)o(ns)g(\(class-of)g(self\)\))1058
+1986 y(initargs\)\))587 2031 y(\(parent)37 b(\(get-keywo)o(rd)16
+b(:parent)h(\(cdr)h(options\))e(*root*\)\)\))503 2077
+y Fd(;;)d(Cal)r(l)h(the)e(Tk)i(c)n(ommand)f(which)g(cr)n(e)n(ates)e
+(the)i(widget)489 2123 y Ff(\(set!)18 b(\(Id)h(self\))e(\(apply)h
+(\(tk-cons)o(tru)o(cto)o(r)e(self\))941 2168 y(\(make-tk)o(-na)o(me)g
+(parent\))941 2214 y(\(car)i(options\)\))o(\))503 2260
+y Fd(;;)13 b(Initialize)e(other)i(slots)f(\(i.e.)g(non)h(Tk-virtual)f
+(ones\))489 2305 y Ff(\(next-metho)o(d)k(self)i(\(cdr)h(options\))o
+(\)\)\))340 2382 y Fo(The)d(list)f(of)g(v)n(alid)f(Tk)h(options)h(is)f
+(found)g(in)g(the)h(slot)f Fe(valid-options)e Fo(of)i(the)h(class)g(of)
+340 2432 y(the)i(widget)f(whic)o(h)f(m)o(ust)g(b)q(e)i(initialized.)d
+(Giv)o(en)h(this)h(list,)f(options)g(are)i(separated)g(in)p
+eop
+%%Page: 15 15
+15 14 bop 183 194 a Fo(t)o(w)o(o)16 b(lists)h(with)f(the)h
+Fe(split-options)e Fo(help)q(er)i(function)g(\(this)g(function)f
+(returns)j(a)d(list)183 244 y(whose)g(\014rst)h(elemen)o(t)f(is)f(the)i
+(set)g(of)e(Tk)h(options)g(and)g(whose)g(rest)h(con)o(tains)f(the)h
+(other)183 293 y(argumen)o(ts\).)12 b(Giv)o(en)i(for)f(instance)i(the)f
+(call)253 375 y Ff(\(define)j(b)i(\(make)f(<Button>)f(:parent)f(p)k
+(:text)d("Hi")h(:counter)f(12\)\))183 459 y Fo(this)22
+b(metho)q(d)f(will)g(call)h(the)g(generic)h(function)f
+Fe(Tk-constructor)e Fo(to)i(\014nd)g(the)h Fj(Tk-)183
+509 y(c)n(ommand)12 b Fo(whic)o(h)f(implemen)o(ts)e(the)j(widget)g(at)f
+(the)h(STk)g(basic)f(lev)o(el.)g(Then,)g(it)g(calls)g(this)183
+559 y(command)e(with)i(a)g(generated)i(name)e(and)g(the)i(list)e
+Fe(\(:text)20 b("Hi"\))p Fo(.)10 b(As)j(said)e(b)q(efore,)h(the)183
+609 y(v)n(alue)f(returned)j(b)o(y)d(the)i(Tk)f(widget)g(constructor)h
+(m)o(ust)e(b)q(e)i(stored)g(in)f(the)g Fe(Id)g Fo(slot)g(of)f(the)183
+659 y(new)k(instance.)g(F)m(rom)f(this)h(p)q(oin)o(t,)f(all)g
+Fj(tk-virtual)g Fo(slots)h(are)g(initialized)f(and)h(the)g(call)g(to)
+183 708 y Fe(next-method)c Fo(at)i(the)h(end)g(of)f(this)g(metho)q(d)g
+(ensures)i(the)f(initializations)e(of)g(other)i(slots)183
+758 y(with)f(the)i(list)e Fe(\(:parent)20 b(p)i(:counter)e(12\))p
+Fo(.)12 b(So,)i(slots)g(of)f(user)i(de\014ned)g(classes)g(whic)o(h)183
+808 y(inherit)e(from)f(standard)i Fh(STklos)g Fo(classes)h(are)f(prop)q
+(erly)g(initialized.)e(The)i Fe(initialize)183 858 y
+Fo(metho)q(d)f(for)i(can)o(v)n(as)f(items)g(follo)o(ws)f(the)i(same)e
+(principles)i(and)g(is)f(not)h(dev)o(elop)q(ed)g(here.)183
+908 y(In)o(terested)h(readers)f(can)f(\014nd)g(it)g(in)f(the)i(annex.)
+183 1035 y Fi(P)o(erformances)i Fo(In)c(order)h(to)f(compare)f(the)i(p)
+q(erformances)f(of)g(STk)g(against)f(Tcl)h(ones,)183
+1085 y(w)o(e)e(will)g(compare)f(the)i Fh(STk)g Fo(basic)g(la)o(y)o(er)f
+(with)g(Tcl/Tk)g(\014rst)i(and)e(then)h(w)o(e)g(will)e(compare)183
+1135 y Fh(STk)k Fo(and)g Fh(STklos)q Fo(.)245 1185 y(Tcl)g(is)g(b)o(y)g
+(nature)h(an)f(in)o(terpreted)i(language)d(and)h(some)f(of)h(its)g(asp)
+q(ects)i(mak)o(e)d(di\016-)183 1235 y(cult)e(the)h(writing)f(of)g(a)g
+(compiler)f(for)h(this)h(language.)e(F)m(urthermore,)h(the)h(fact)g
+(that)f(Tcl)h(is)183 1285 y(a)f(string)g(language)f(implies)g(that)h
+(the)h(v)n(alues)f(manipulated)e(b)o(y)j(a)f(program)e(m)o(ust)i(alw)o
+(a)o(ys)183 1335 y(b)q(e)17 b(con)o(v)o(erted)g(to)g(strings,)f(whic)o
+(h)h(is)f(time)f(consuming.)g(This)h(explains)g(the)h(p)q(o)q(or)g(p)q
+(er-)183 1384 y(formances)12 b(of)h(the)h(curren)o(t)h(Tcl)f(in)o
+(terpreter.)h(Some)d(compilers)g(for)i(this)f(language)g(ha)o(v)o(e)183
+1434 y(b)q(een)i(announced)f(but,)g(to)g(our)f(kno)o(wledge,)h(none)g
+(has)g(b)q(een)h(ac)o(hiev)o(ed)f(at)g(this)g(date.)245
+1485 y Fh(STk)i Fo(curren)o(t)h(implemen)o(tatio)o(n)c(also)i(relies)h
+(on)g(an)f(in)o(terpreter.)i(Ho)o(w)o(ev)o(er,)f(the)g(se-)183
+1534 y(man)o(tic)11 b(of)i(the)h(Sc)o(heme)f(programmi)o(ng)d(language)
+j(has)g(b)q(een)h(designed)g(to)f(allo)o(w)f(simple)183
+1584 y(and)f(e\016cien)o(t)g(in)o(terpreters)j(or)d(compilers)f
+(implemen)o(tatio)o(ns.)f Fh(STk)i Fo(in)o(terpreter)i(is)e(hence)183
+1634 y(small)f(an)i(o\013ers)i(go)q(o)q(d)e(p)q(erformances.)g(In)g
+(particular,)g(it)g(runs)h(4)g(to)f(7)g(times)f(faster)j(than)183
+1684 y(Tcl)c(in)o(terpreter)i(on)e(general)h(purp)q(ose)g
+(computations.)e(When)i(using)f(the)h(Tk)f(to)q(olkit,)f(Tcl)183
+1734 y(tak)o(es)k(adv)n(an)o(tage)e(of)h(the)i(w)o(a)o(y)d(argumen)o
+(ts)h(are)h(passed)h(to)e(the)h(functions)g(of)f(the)h(library)m(.)183
+1784 y(In)g(e\013ect,)i(the)f(Tk)f(to)q(olkit)f(uses)j(the)f(C)f
+(language)f Fe(argc/argv)g Fo(classical)h(con)o(v)o(en)o(tion)g(for)183
+1833 y(argumen)o(ts)h(passing.)g(Giv)o(en)g(these)i(con)o(v)o(en)o
+(tions,)e(the)i Fh(STk)f Fo(in)o(terpreter)h(m)o(ust)e(con)o(v)o(ert)
+183 1883 y(to)f(strings)g(the)h(parameters)f(giv)o(en)g(to)g
+Fj(Tk)g(c)n(ommands)p Fo(,)h(whereas)g(this)f(con)o(v)o(ersion)h(is)f
+(un-)183 1933 y(necessary)j(in)e(Tcl)g(since)i(ev)o(erything)e(is)h(k)o
+(ept)f(as)h(strings)g(in)f(the)h(in)o(terpreter.)h(Ho)o(w)o(ev)o(er,)
+183 1983 y(the)e(p)q(enalt)o(y)g(induced)g(b)o(y)g(these)h(con)o(v)o
+(ersions)g(is)e(generally)h(negligible)e(facing)h(the)i(o)o(v)o(er-)183
+2033 y(all)d(computation)g(time)g(of)h(a)g(program,)e(and)j(in)o
+(terfaces)g(written)g(with)g Fh(STk)f Fo(tend)i(to)e(b)q(e)183
+2082 y(faster)h(than)g(Tcl)g(ones.)245 2133 y(Let)20
+b(us)g(consider)h(no)o(w)e(the)h(p)q(erformances)g(of)f
+Fh(STklos)i Fo(comparing)d(to)h Fh(STk)p Fo(.)h(In)183
+2183 y Fh(STklos)q Fo(,)14 b(as)h(in)f(CLOS,)g(the)h(generic)h
+(function)e(call)g(mec)o(hanism)e(costs)k(a)e(lot.)g(Because)183
+2232 y(this)f(mec)o(hanism)e(can)i(b)q(e)h(the)f(b)q(ottlenec)o(k)h(of)
+f(a)g(MOP)g(based)h(arc)o(hitecture,)g(it)f(has)g(b)q(een)183
+2282 y(implem)o(en)o(ted)d(in)h(C)g(to)g(b)q(e)h(as)f(fast)h(as)f(p)q
+(ossible.)g(Ho)o(w)o(ev)o(er,)g(the)h(curren)o(t)h(implemen)o(tation)
+183 2332 y(is)j(relativ)o(ely)f(direct)i(and)f(don't)f(use)i(y)o(et)g
+(the)f(optimizations)e(whic)o(h)i(can)g(generally)g(b)q(e)183
+2382 y(applied)f(on)g(generic)i(function)f(calls.)e(This)i(explains)f
+(the)i(relativ)o(e)e(p)q(o)q(or)h(p)q(erformances)183
+2432 y(of)k(generic)i(function)e(calls)g(compared)h(to)f(closure)i(in)o
+(v)o(o)q(cation.)d(Actually)m(,)g(a)i(generic)p eop
+%%Page: 16 16
+16 15 bop 340 194 a Fo(function)12 b(call)g(is)f(6)h(times)f(slo)o(w)o
+(er)i(than)f(a)f(simple)g(Sc)o(heme)h(function)g(call.)f(Consequen)o
+(tly)m(,)340 244 y(an)i(in)o(terface)g(written)h(in)e
+Fh(STklos)i Fo(is)e(far)h(m)o(uc)o(h)e(slo)o(w)o(er)i(than)g(an)f
+(application)g(resorting)340 293 y(only)i(on)h(simple)e
+Fh(STk)i Fo(constructs.)i(The)e(generic)g(function)g(o)o(v)o(erhead)g
+(can)g(ev)o(en)g(mak)o(es)340 343 y Fh(STklos)22 b Fo(programs,)d
+(under)j(certain)f(circumstances,)g(a)g(little)f(bit)g(slo)o(w)o(er)h
+(than)f(Tcl)340 393 y(programs.)13 b(Ho)o(w)o(ev)o(er,)i(applying)e
+Fj(memoization)i Fo(optimization)d(tec)o(hniques)k(suc)o(h)g(as)f(the)
+340 443 y(one)k(presen)o(ted)h(in)d([10)o(])h(will)e(decrease)k(the)f
+(ratio)e(b)q(et)o(w)o(een)j(generic)f(and)f(non)f(generic)340
+493 y(functions)d(to)g(pro)o(vide)g(p)q(erformances)g(close)g(to)g(the)
+h(basic)f(la)o(y)o(er.)340 625 y Fk(5)56 b(Conclusion)340
+722 y Fo(W)m(e)19 b(ha)o(v)o(e)g(sho)o(wn)g(in)g(this)h(pap)q(er)f(the)
+h Fh(STklos)h Fo(ob)r(ject)f(system)f(and)g(ho)o(w)f(it)h(can)h(b)q(e)
+340 771 y(tailored)d(to)g(pro)o(vide)g(an)g(easy)g(access)i(to)e(a)g
+(standard)h(graphical)e(to)q(olkit.)f(One)j(of)f(the)340
+821 y(ma)r(jor)f(b)q(ene\014ts)i(of)e(this)h(system)g(is)f(that)h(it)g
+(allo)o(ws)e(a)i(neat)g Fj(r)n(ei\014c)n(ation)g Fo(of)f(a)g
+(class-less)340 871 y(to)q(olkit.)h(This)i(p)q(oin)o(t)f(is)g(imp)q
+(ortan)o(t)f(since)i(it)g(is)f(generally)g(admitted)g(that)g(an)g(ob)r
+(ject)340 921 y(vision)13 b(of)h(widgets)g(greatly)f(impro)o(v)o(es)g
+(the)h(lev)o(el)g(of)f(GUI)h(programmi)o(ng.)403 971
+y Fh(STklos)h Fo(pro)o(vides)g(a)g(real)f(programming)d(language)j(for)
+h(the)g(Tk)g(to)q(olkit.)e(F)m(urther-)340 1021 y(more,)h(the)h
+(underlying)g(meta)f(ob)r(ject)h(proto)q(col)g(of)f Fh(STklos)i
+Fo(pro)o(vides)g(a)e(pleasan)o(t)h(w)o(a)o(y)340 1070
+y(to)e(access)h(the)f(to)q(olkit)f(options)g(for)g(eac)o(h)i(widget)e
+(and)h(it)f(allo)o(ws)f(us)i(to)g(hide)f(most)g(of)g(the)340
+1120 y(idiosyncrasies)i(of)e(this)h(to)q(olkit)e(in)i(a)f(clean)h(w)o
+(a)o(y)m(.)f(It)h(mak)o(es)e(easier)j(the)f(dev)o(elop)q(emen)o(t)g(of)
+340 1170 y(large)j(Graphical)f(User)i(In)o(terfaces)h(with)d(Tk,)h(and)
+g(extend)h(hence)g(the)g(in)o(terest)g(of)e(this)340
+1220 y(to)q(olkit.)340 1342 y Fi(Av)m(ailabilit)n(y)340
+1422 y Fh(STklos)21 b Fo(is)e(distributed)h(with)f(the)g
+Fh(STk)h Fo(pac)o(k)n(age)f(and)g(runs)h(on)f(a)g(wide)g(v)n(ariet)o(y)
+g(of)340 1472 y(arc)o(hitectures)h(and)d(systems.)g(The)g(last)g(v)o
+(ersion)h(of)e(this)i(pac)o(k)n(age)f(is)g(a)o(v)n(ailable)e(at)i(the)
+340 1522 y(follo)o(wing)12 b(address:)i Fe(ftp://kaolin.unice.)o(fr/pu)
+o(b/STk)o(.tar.)o(gz)m Fo(.)340 1654 y Fk(References)360
+1747 y Fn(1.)20 b(Willia)q(m)12 b(Clinger)f(and)f(Jonathan)k(Rees)c
+(\(editors\).)16 b Fa(Rev)q(ised)1316 1731 y Fb(4)1343
+1747 y Fn(Rep)q(ort)10 b(on)g(the)g(Algorithmic)410 1792
+y(Language)15 b(Sc)o(heme.)i Fd(A)o(CM)d(Lisp)f(Pointers)p
+Fn(,)e(4\(3\),)h(1991.)360 1838 y(2.)20 b(Apple)14 b(Computer.)k
+Fd(Dylan:)12 b(an)g(Obje)n(ct)h(Oriente)n(d)f(Dynamic)h(L)n(anguage)p
+Fn(.)h(April)g(1992.)360 1884 y(3.)20 b(Eric)o(k)12 b(Gallesio.)19
+b(Em)o(b)q(edding)14 b(a)d(sc)o(heme)h(in)o(terpreter)h(in)f(the)f(Tk)h
+(to)q(olkit.)18 b(In)11 b(La)o(wrence)i(A.)410 1929 y(Ro)o(w)o(e,)g
+(editor,)h Fd(First)f(Tcl/Tk)g(Workshop,)f(Berkeley)p
+Fn(,)e(pages)k(103{109,)g(June)f(1993.)360 1975 y(4.)20
+b(Eric)o(k)f(Gallesio.)34 b Fl(STklos)p Fn(:)18 b(A)f(sc)o(heme)i(ob)r
+(ject)f(orien)o(ted)h(system)f(dealing)j(with)d(the)g(tk)410
+2021 y(to)q(olkit.)h(In)13 b(ICS,)f(editor,)i Fd(Xhibition)d(94,)h(San)
+h(Jose,)f(CA)p Fn(,)h(pages)g(63{71,)h(June)f(1994.)360
+2066 y(5.)20 b(Eric)o(k)15 b(Gallesio.)20 b Fl(STk)14
+b Fn(reference)f(man)o(ual.)20 b(T)m(ec)o(hnical)15 b(Rep)q(ort)f(R)m
+(T)e(95-31a,)i(I3S)g(CNRS)f(/)410 2112 y(Univ)o(ersit)o(\023)-18
+b(e)15 b(de)e(Nice)h(-)e(Sophia)j(An)o(tip)q(olis,)g(juillet)g(1995.)
+360 2158 y(6.)20 b(Jim)13 b(de)g(Rivi)o(\022)-18 b(eres)15
+b(Gregor)e(Kic)o(kzales)i(and)e(Daniel)i(G.)e(Bobro)o(w.)k
+Fd(The)c(A)o(rt)g(of)g(Meta)g(Obje)n(ct)410 2203 y(Pr)n(oto)n(c)n(ol)p
+Fn(.)i(MIT)e(Press,)g(1991.)360 2249 y(7.)20 b(Daniel)12
+b(D.)d(Bobro)o(w,)g(Linda)i(G)e(DeMic)o(hiel,)j(Ric)o(hard)f(P)m(.)e
+(Gabriel,)14 b(Son)o(y)o(a)c(E.)f(Keene,)h(Gregor)410
+2295 y(Kiczales)k(and)f(Da)o(vid)h(A.)e(Mo)q(on.)17 b(Common)c(Lisp)g
+(Ob)r(ject)f(System)h(sp)q(eci\014cation.)20 b Fd(Sigplan)410
+2340 y(Notic)n(es)p Fn(,)10 b(23\(Sp)q(ecial)16 b(Issue\),)d(no)o(v)o
+(em)o(b)q(er)h(1986.)360 2386 y(8.)20 b(Gregor)c(Kic)o(kzales.)27
+b(Tin)o(y-clos.)g(Source)17 b(a)o(v)n(ailable)h(on)f(parcftp.xero)o
+(x.com)f(in)h(directory)410 2432 y(/pub/mops)r(,)c(Decem)o(b)q(er)h
+(1992.)p eop
+%%Page: 17 17
+17 16 bop 202 194 a Fn(9.)20 b(Gregor)12 b(Kic)o(kzales)g(and)g(John)f
+(Lamping.)18 b(Issues)11 b(in)h(the)f(design)h(and)g(sp)q
+(eci\014cation)i(of)c(class)252 239 y(libraries.)20 b(In)13
+b Fd(Pr)n(o)n(c)n(e)n(e)n(dings)e(of)i(OOPSLA)p Fn(,)f(1992.)183
+285 y(10.)20 b(Gregor)14 b(J.)e(Kiczales)j(and)f(Luis)h(H.)d(Ro)q
+(driguez)j(Jr.)j Fd(Obje)n(ct-Oriente)n(d)11 b(Pr)n(o)n(gr)n(amming:)i
+(The)252 331 y(CLOS)f(Persp)n(e)n(ctive)p Fn(,)7 b(c)o(hapter)k
+(E\016cien)o(t)g(Metho)q(d)g(Dispatc)o(h)h(in)f(PCL,)e(pages)i
+(335{348.)17 b(The)252 376 y(MIT)c(Press,)g(Cam)o(bridge,)h(MA,)e
+(1993.)183 422 y(11.)20 b(John)14 b(K.)c(Ousterhout.)17
+b(Tcl:)11 b(an)g(em)o(b)q(eddable)j(command)d(language.)19
+b(In)11 b Fd(USENIX)e(Winter)252 468 y(Confer)n(enc)n(e)p
+Fn(,)i(pages)i(183{192,)h(Jan)o(uary)g(1990.)183 513
+y(12.)20 b(John)14 b(K.)i(Ousterhout.)30 b(An)17 b(X11)g(to)q(olkit)i
+(based)f(on)f(the)g(Tcl)g(Language.)31 b(In)17 b Fd(USENIX)252
+559 y(Winter)c(Confer)n(enc)n(e)p Fn(,)e(pages)i(105{115,)h(Jan)o(uary)
+g(1991.)183 605 y(13.)20 b(John)14 b(K.)e(Ousterhout.)18
+b Fd(Tcl)13 b(and)g(the)g(Tk)g(to)n(olkit)p Fn(.)i(Addison-W)m(esley)m
+(,)g(1994.)183 650 y(14.)20 b(Rob)q(ert)14 b(W.)d(Sc)o(hei\015ert)i
+(and)f(Jim)f(Gett)o(ys.)17 b(The)11 b(X)g(Windo)o(w)h(System.)17
+b Fd(A)o(CM)12 b(T)m(r)n(ansactions)252 696 y(on)h(Gr)n(aphics)p
+Fn(,)e(5\(2\):79{109,)i(April)h(1986.)183 742 y(15.)20
+b(Guy)14 b(L.)i(Steele)i(Jr.)28 b Fd(Common)17 b(Lisp:)f(the)g(L)n
+(anguage,)f(2nd)h(Edition)p Fn(.)26 b(Digital)19 b(Press,)e(12)252
+787 y(Crosb)o(y)d(Driv)o(e,)g(Bedford,)f(MA)g(01730,)g(USA,)g(1990.)183
+986 y Fk(Annex:)18 b(A)h(Minimal)d(Meta)j(Ob)s(ject)f(Proto)r(col)g
+(for)h(Tk)183 1078 y Fo(Hereafter)e(is)f(a)g(minimal)c(implemen)o
+(tation)h(of)j(the)g(Meta)h(Ob)r(ject)h(Proto)q(col)e(describ)q(ed)183
+1123 y(in)c(section)i(3.)f(Three)h(widgets)g(classes)g(\()p
+Fe(<Canvas>)p Fo(,)d Fe(<Label>)h Fo(and)h Fe(<Button>)p
+Fo(\))f(and)h(t)o(w)o(o)183 1169 y(can)o(v)n(as)h(items)f(\()p
+Fe(<Line>)h Fo(and)g Fe(<Rectangle>)p Fo(\))e(are)j(de\014ned)g(using)f
+(this)h(MOP)m(.)f(The)h(pro-)183 1215 y(to)q(col)i(exp)q(osed)j(here)f
+(has)f(b)q(een)h(simpli\014ed)d(to)i(\014t)g(in)g(the)h(limited)d(size)
+i(of)g(this)g(pap)q(er)183 1260 y(and)d(de\014ned)i(widgets)e
+(recognize)i(only)d(a)i(small)d(subset)k(of)e(the)h(Tk)f(options.)g(Ho)
+o(w)o(ev)o(er,)183 1306 y(in)e(spite)h(of)g(this)g(size,)g(this)g(MOP)g
+(is)g(completely)f(op)q(erational.)196 1427 y Fd(;;;;)196
+1473 y(;;;;)28 b Fm(Utilities)196 1518 y Fd(;;;;)183
+1564 y Ff(\(define)17 b(make-tk-)o(nam)o(e)222 1610 y(\(lambda)g
+(\(parent\))261 1655 y(\(gensym)g(\(format)g(#f)i("~A.v")e(\(if)i
+(\(eq?)f(parent)f(*root*\))g("")i(\(Id)f(parent\)\)\)\))o(\)\))183
+1747 y(\(define)f(split-op)o(tio)o(ns)222 1792 y(\(lambda)g(\(valid-sl)
+o(ots)f(initargs\))261 1838 y(\(letrec)340 1884 y(\(\(separa)o(te)379
+1929 y(\(lambda)h(\(valids)g(args)h(tk-opt)f(other\))418
+1975 y(\(if)h(\(null?)g(args\))496 2021 y(\(cons)g(tk-opt)f(other\))496
+2066 y(\(if)i(\(member)e(\(car)h(args\))g(valids\))575
+2112 y(\(separate)e(valids)h(\(cddr)h(args\))771 2158
+y(\(list*)f(\(car)h(args\))g(\(cadr)g(args\))f(tk-opt\))771
+2203 y(other\))575 2249 y(\(separate)f(valids)h(\(cddr)h(args\))771
+2295 y(tk-opt)771 2340 y(\(list*)f(\(car)h(args\))g(\(cadr)g(args\))f
+(other\)\)\)\)\)\))o(\))300 2386 y(\(separate)f(valid-slots)g(initargs)
+g('\(\))j('\(\)\)\)\)\))p eop
+%%Page: 18 18
+18 17 bop 354 194 a Fd(;;;;)354 239 y(;;;;)28 b Fm(Simple)12
+b(widgets)354 285 y Fd(;;;;)354 331 y(;;)354 376 y(;;)h
+Ff(<)p Fd(Tk-metaclass)p Ff(>)e Fd(class)h(de\014nition)f(and)h(asso)n
+(ciate)n(d)e(metho)n(ds)354 422 y(;;)340 468 y Ff(\(define-cla)o(ss)16
+b(<Tk-Metacl)o(as)o(s>)g(\(<class>\))380 513 y(\(\(valid-o)o(pt)o(ion)o
+(s)g(:accessor)h(Tk-valid)o(-op)o(tio)o(ns)o(\)\)\))340
+650 y(\(define-met)o(ho)o(d)g(initializ)o(e)f(\(\(class)h(<Tk-Metacl)o
+(ass)o(>\))f(initargs\))380 696 y(\(next-met)o(ho)o(d\))393
+742 y Fd(;;)e(Build)e(a)h(list)g(of)g(al)r(lowe)n(d)f(keywor)n(ds.)g
+(These)h(keywor)n(ds)f(wil)r(l)i(b)n(e)f(p)n(asse)n(d)f(to)393
+787 y(;;)i(the)e(Tk-c)n(ommand)h(at)g(build)f(time)380
+833 y Ff(\(let)18 b(\(\(slots)154 b(\(slot-ref)16 b(class)i('slots\)\))
+497 879 y(\(res)175 b('\(\)\))497 924 y(\(tk-virtua)o(l?)36
+b(\(lambda\(s)o(\))811 970 y(\(eqv?)18 b(\(get-slot)o(-al)o(lo)o(cat)o
+(io)o(n)f(s\))i(:tk-virt)o(ual)o(\)\)\))o(\))419 1016
+y(\(for-each)d(\(lambda)h(\(s\))654 1061 y(\(when)h(\(tk-virtu)o(al?)e
+(s\))693 1107 y(\(let)j(\(\(key)e(\(make-keyw)o(ord)f(\(car)i
+(s\)\)\)\))733 1153 y(\(set!)f(res)i(\(cons)e(key)i(res\)\)\)\)\))615
+1198 y(slots\))433 1244 y Fd(;;)13 b(Stor)n(e)f(this)h(list)g(in)g(the)
+f(new)i(al)r(lo)n(c)n(ate)n(d)d(class)419 1290 y Ff(\(set!)18
+b(\(Tk-vali)o(d-o)o(pti)o(on)o(s)f(class\))g(res\)\)\))340
+1427 y(\(define-met)o(ho)o(d)g(compute-g)o(et)o(-n-)o(se)o(t)g
+(\(\(class)g(<Tk-Meta)o(cla)o(ss>)o(\))f(slot\))380 1472
+y(\(if)i(\(eqv?)g(\(get-slot)o(-al)o(lo)o(cat)o(io)o(n)f(slot\))g
+(:tk-virtua)o(l\))472 1518 y Fd(;;)c(this)g(is)g(a)g(Tk-virtual)f(slot)
+458 1564 y Ff(\(let)18 b(\(\(opt)g(\(make-key)o(wor)o(d)e(\(car)i
+(slot\)\)\)\))497 1609 y(\(list)g(\(lambda)f(\(o\))58
+b(\(list-re)o(f)17 b(\(\(Id)h(o\))h('configur)o(e)d(opt\))i(4\)\))615
+1655 y(\(lambda)f(\(o)i(v\))g(\(\(Id)f(o\))g('configure)e(opt)j
+(v\)\)\)\))472 1701 y Fd(;;)13 b(c)n(al)r(l)g(sup)n(er)f(c)n
+(ompute-get-n)o(-se)o(t)458 1746 y Ff(\(next-meth)o(od)o(\)\)\))354
+1838 y Fd(;;)354 1883 y(;;)h(Basic)g(virtual)f(classes)f(for)j
+(widgets:)e Ff(<)p Fd(Tk-obje)n(ct)p Ff(>)p Fd(,)e Ff(<)p
+Fd(Tk-widget)p Ff(>)i Fd(and)354 1929 y(;;)h Ff(<)p Fd
+(Tk-simple-widget)p Ff(>)354 1975 y Fd(;;)340 2020 y
+Ff(\(define-cla)o(ss)j(<Tk-object)o(>)g(\(\))380 2066
+y(\(\(Id)116 b(:accessor)16 b(Id\))581 b Fd(;;)13 b(Widget)g(Id)399
+2111 y Ff(\(parent)37 b(:accessor)16 b(parent)h(:init-keyw)o(ord)f
+(:parent\)\))o(\))30 b Fd(;;)13 b(Par)n(ent)g(widget)340
+2203 y Ff(\(define-cla)o(ss)j(<Tk-widget)o(>)g(\(<Tk-objec)o(t>\))380
+2248 y(\(\)\))340 2431 y(\(define-cla)o(ss)g(<Tk-simple)o(-w)o(idg)o
+(et)o(>)h(\(<Tk-widg)o(et)o(>\))p eop
+%%Page: 19 19
+19 18 bop 236 194 a Fd(;;)13 b(Each)f(widget)h(has)g(at)g(le)n(ast)f
+(the)h(slot)f(b)n(g)h(for)g(its)g(b)n(ackgr)n(ound)e(c)n(olour)222
+239 y Ff(\(\(bg)18 b(:accessor)e(bg)j(:init-key)o(wor)o(d)e(:bg)h
+(:allocati)o(on)e(:tk-virtua)o(l\)\))222 285 y(:metaclas)o(s)h
+(<Tk-Metac)o(la)o(ss>)o(\))183 422 y(\(define-m)o(et)o(hod)f(initializ)
+o(e)h(\(\(self)g(<Tk-simpl)o(e-w)o(id)o(get)o(>\))f(initargs\))236
+468 y Fd(;;)d(Use)f(split-options)e(on)j(initar)n(gs)f(to)h(sep)n(ar)n
+(ate)e(STklos)i(slots)236 513 y(;;)g(fr)n(om)h(Tk)f(ones.)f(Set)h(p)n
+(ar)n(ent)f(to)h(the)g(r)n(o)n(ot)g(window)g(if)g(not)g(sp)n(e)n
+(ci\014e)n(d)236 559 y(;;)g(in)g(initar)n(gs)222 605
+y Ff(\(let*)18 b(\(\(option)o(s)f(\(split-op)o(ti)o(ons)f(\(Tk-valid)o
+(-op)o(ti)o(ons)g(\(class-of)g(self\)\))830 650 y(initargs\))o(\))359
+696 y(\(parent)37 b(\(get-keyw)o(or)o(d)17 b(:parent)g(\(cdr)h
+(options\))e(*root*\)\)\))275 742 y Fd(;;)d(Cal)r(l)g(the)g(Tk)h(c)n
+(ommand)e(which)h(cr)n(e)n(ates)f(the)h(widget)261 787
+y Ff(\(set!)18 b(\(Id)g(self\))g(\(apply)f(\(tk-constr)o(uct)o(or)f
+(self\))712 833 y(\(make-tk-n)o(ame)g(parent\))712 879
+y(\(car)i(options\)\)\))275 924 y Fd(;;)13 b(Initialize)e(other)h
+(slots)h(\(i.e.)f(non)g(Tk-virtual)g(ones\))261 970 y
+Ff(\(next-meth)o(od)k(self)i(\(cdr)g(options\)\)\))o(\))196
+1107 y Fd(;;)196 1153 y(;;)c(We)f(c)n(an)g(now)g(de\014ne)f(thr)n(e)n
+(e)h(widget)f(classes:)f Ff(<)p Fd(L)n(ab)n(el)p Ff(>)p
+Fd(,)h Ff(<)p Fd(Button)p Ff(>)f Fd(and)i Ff(<)p Fd(Canvas)p
+Ff(>)196 1198 y Fd(;;)h(as)f(wel)r(l)g(as)g(their)g(asso)n(ciate)n(d)d
+(Tk-c)n(ommand)196 1244 y(;;)183 1290 y Ff(\(define-c)o(la)o(ss)16
+b(<Label>)h(\(<Tk-simpl)o(e-w)o(id)o(get)o(>\))222 1335
+y(\(\(font)g(:accessor)f(font)i(:init-keywo)o(rd)e(:font)i(:allocati)o
+(on)e(:tk-virtua)o(l\))241 1381 y(\(text)i(:accessor)e(text)i
+(:init-keywo)o(rd)e(:text)i(:allocati)o(on)e(:tk-virtua)o(l\))o(\)\))
+183 1472 y(\(define-c)o(la)o(ss)g(<Button>)h(\(<Label>\))222
+1518 y(\(\(command)f(:accessor)g(command)h(:init-keyw)o(or)o(d)g
+(:command)418 1564 y(:allocatio)o(n)f(:tk-virtual)o(\)\))o(\))183
+1655 y(\(define-c)o(la)o(ss)g(<Canvas>)h(\(<Tk-simp)o(le-)o(wi)o(dge)o
+(t>)o(\))222 1701 y(\(\)\))183 1792 y(\(define-m)o(et)o(hod)f
+(tk-constr)o(uct)o(or)g(\(\(self)h(<Label>\)\))36 b(label\))183
+1838 y(\(define-m)o(et)o(hod)16 b(tk-constr)o(uct)o(or)g(\(\(self)h
+(<Button>\)\))f(button\))183 1883 y(\(define-m)o(et)o(hod)g(tk-constr)o
+(uct)o(or)g(\(\(self)h(<Canvas>\)\))f(canvas\))196 2020
+y Fd(;;;;)196 2066 y(;;;;)28 b Fm(Can)o(v)n(as)15 b(items)g(widgets)196
+2111 y Fd(;;;;)196 2157 y(;;)196 2203 y(;;)f Ff(<)p Fd
+(Tk-item-metaclas)o(s)p Ff(>)c Fd(class)i(de\014nition)f(and)i(asso)n
+(ciate)n(d)d(metho)n(ds)196 2248 y(;;)183 2340 y Ff(\(define-c)o(la)o
+(ss)16 b(<Tk-item-m)o(eta)o(cl)o(ass)o(>)h(\(<Tk-Met)o(acl)o(as)o(s>\))
+222 2385 y(\(\)\))p eop
+%%Page: 20 20
+20 19 bop 340 194 a Ff(\(define-met)o(ho)o(d)17 b(compute-g)o(et)o(-n-)
+o(se)o(t)g(\(\(class)g(<Tk-item)o(-me)o(tac)o(la)o(ss>)o(\))f(slot\))
+380 239 y(\(if)i(\(eqv?)g(\(get-slot)o(-al)o(lo)o(cat)o(io)o(n)f
+(slot\))g(:tk-virtua)o(l\))472 285 y Fd(;;)c(this)g(is)g(a)g
+(Tk-virtual)f(slot)458 331 y Ff(\(let)18 b(\(\(opt)g(\(make-key)o(wor)o
+(d)e(\(car)i(slot\)\)\)\))497 376 y(\(list)g(\(lambda)f(\(obj\))654
+422 y(\(list-ref)f(\(\(Id)i(obj\))g('itemconfig)o(ur)o(e)f(\(Cid)h
+(obj\))g(opt\))g(4\)\))615 468 y(\(lambda)f(\(obj)h(val\))654
+513 y(\(\(Id)g(obj\))g('itemconfi)o(gur)o(e)f(\(Cid)h(obj\))g(opt)g
+(val\)\)\)\))472 559 y Fd(;;)13 b(c)n(al)r(l)g(sup)n(er)f(c)n
+(ompute-get-n)o(-se)o(t)458 605 y Ff(\(next-meth)o(od)o(\)\)\))354
+696 y Fd(;;)354 742 y(;;)h(Basic)g(virtual)f(class:)g
+Ff(<)p Fd(Tk-c)n(anvas-i)o(tem)p Ff(>)354 787 y Fd(;;)340
+833 y Ff(\(define-cla)o(ss)k(<Tk-canvas)o(-i)o(tem)o(>)g(\(<Tk-object)o
+(>\))380 879 y(\(\(Cid)h(:accessor)36 b(Cid\))399 924
+y(\(width)18 b(:accesso)o(r)f(width)g(:allocatio)o(n)g(:tk-virtu)o(al)o
+(\)\))380 970 y(:metaclas)o(s)f(<Tk-item-me)o(ta)o(cla)o(ss)o(>\))340
+1107 y(\(define-met)o(ho)o(d)h(initializ)o(e)f(\(\(self)i(<Tk-canva)o
+(s-)o(ite)o(m>)o(\))f(initargs\))380 1153 y(\(let*)g(\(\(options)f
+(\(split-opti)o(on)o(s)h(\(Tk-valid)o(-o)o(pti)o(on)o(s)g(\(class-of)f
+(self\)\))988 1198 y(initargs\))o(\))517 1244 y(\(parent)36
+b(\(get-keywor)o(d)16 b(:parent)h(\(cdr)h(options\))f(#f\)\))517
+1290 y(\(coords)36 b(\(get-keywor)o(d)16 b(:coords)h(\(cdr)h(options\))
+f(#f\)\)\))419 1335 y(\(if)h(\(not)g(\(and)g(parent)g(coords\)\))497
+1381 y(\(error)g("Parent)f(widget)g(and)h(coordinate)o(s)f(must)h(be)h
+(given!!")o(\)\))419 1427 y(\(set!)f(\(Id)38 b(self\))17
+b(\(Id)i(parent\)\))419 1472 y(\(set!)f(\(CId)g(self\))f(\(apply)h
+(\(Id)g(parent\))890 1518 y('create)890 1564 y(\(canvas-)o(ite)o(m-i)o
+(ni)o(tia)o(li)o(zer)e(self\))890 1609 y(\(append)g(coords)i(\(car)g
+(options\)\))o(\)\))433 1655 y Fd(;;)13 b(Initialize)e(other)h(slots)g
+(\(i.e.)h(non)f(Tk-virtual)g(ones\))419 1701 y Ff(\(next-met)o(hod)k
+(self)i(\(cdr)g(options\)\))o(\)\))354 1792 y Fd(;;)354
+1838 y(;;)13 b(We)h(c)n(an)f(now)g(de\014ne)f(two)h(c)n(anvas)f(item)h
+(classes:)e Ff(<)p Fd(Line)p Ff(>)h Fd(and)h Ff(<)p Fd(R)n(e)n(ctangle)
+p Ff(>)354 1883 y Fd(;;)g(as)g(wel)r(l)h(as)f(their)f(asso)n(ciate)n(d)
+f(initializer)354 1929 y(;;)340 1975 y Ff(\(define-cla)o(ss)16
+b(<Line>)115 b(\(<Tk-canva)o(s-i)o(tem)o(>\))380 2020
+y(\(\)\))340 2111 y(\(define-cla)o(ss)16 b(<Rectangle)o(>)g
+(\(<Tk-canva)o(s-i)o(tem)o(>\))380 2157 y(\(\(fill)37
+b(:accesso)o(r)17 b(fill)h(:init-key)o(wo)o(rd)e(:fill)i(:allocatio)o
+(n)e(:tk-virtual)o(\)\))o(\))340 2248 y(\(define-met)o(ho)o(d)h
+(canvas-it)o(em)o(-in)o(it)o(ial)o(iz)o(er)f(\(\(self)i(<Rectangl)o(e>)
+o(\)\))e("rectangle)o("\))340 2294 y(\(define-met)o(ho)o(d)h(canvas-it)
+o(em)o(-in)o(it)o(ial)o(iz)o(er)f(\(\(self)i(<Line>\)\))114
+b("line"\))p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/Isotas96/Isotas96.tex b/Doc/Isotas96/Isotas96.tex
new file mode 100644
index 0000000..4952db9
--- /dev/null
+++ b/Doc/Isotas96/Isotas96.tex
@@ -0,0 +1,1026 @@
+%
+% ISOTAS'96 paper
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: 20-Jun-1995 11:54
+% Last file update:  1-Dec-1995 14:57
+%
+
+\documentstyle[alltt,psfig]{llncs}
+\begin{document}
+% Command definitions
+\newcommand{\figsize}{\small}
+\newcommand{\stk}{\mbox{\sc STk}}
+\newcommand{\stklos}{\mbox{\sc STklos}}
+\newcommand{\Indextt}[1]{{\tt{#1}}\index{#1}}
+\newcommand{\Index}[1]{{#1}\index{#1}}
+\newcommand{\rrrr}{{\em R$^{4}\!RS$}}
+\newcommand{\codesize}{\small}
+\newenvironment{Code}{\begin{quote}\begin{minipage}{12cm}\codesize}{\end{minipage}\end{quote}}
+
+
+\title{Designing a Meta Object Protocol to Wrap a Standard Graphical Toolkit}
+
+\author{Erick Gallesio}
+\institute {Universit\'e de Nice~~-~~Sophia~Antipolis \\
+I3S/CNRS -  ESSI\\
+Route des Colles - B.P. 145\\
+06903 Sophia-Antipolis Cedex - FRANCE\\
+Email: eg@unice.fr}
+
+\maketitle
+
+
+\begin{abstract}
+This paper presents a graphical package which relies on the Tk toolkit and
+the Scheme programming language. The Tk package is a widely used graphical
+toolkit built upon the Tcl scripting language. Tcl was not designed as a
+general purpose programming language and its usage for large-scale software
+development is generally not suitable. To improve the programming level of
+the Tk toolkit, we have defined {\stklos}, a Scheme language with a
+CLOS-like object system. This alternative language has been used to embody
+the standard Tk widgets in a clean hierarchy of classes, which is presented
+here. The {\stklos} object system implementation is based on a Meta Object
+Protocol; this protocol and its usage for accessing the Tk toolkit in an
+efficient way are also presented here.
+\end{abstract}
+
+
+\section{Motivations}
+
+The Tk package \cite{Ouster-book} is a widely used graphical toolkit which
+provides a large set of widgets such as buttons, scrollbars, menus or text
+editors. With these high level widgets, one can build rather complex
+interfaces with little effort and without coping with the usual intricacies
+needed when programming under the X window system {\cite{X11}}. The Tk
+toolkit relies on a small interpretative scripting language named Tcl (Tool
+Command Language)~\cite{Ouster-Tcl}, a string based language with a
+shell-like syntax.
+
+Tcl is a small scripting language. To easily embed the Tcl interpreter
+in application programs, some usual programming languages capabilities
+have been set aside by its author. In particular, Tcl has a poor set
+of data structures reduced to character strings and associative
+arrays. It provides numbers, which are simulated with strings and
+which are, consequently, slow. In fact, a proper usage of Tcl consists
+in writing small scripts to {\em glue} large application components
+written in C or C++. However, experience shows that people are
+reluctant to use it in this way, and that they often prefer to write
+applications with a single programming language.
+
+Tk is indeed an application with an embedded Tcl
+interpreter~\cite{Ouster-Tk}. The interpretative nature of Tcl
+provides Tk a simple and attractive interface to develop simple
+graphical programs. However, the easiness afforded by Tcl for the
+design of small interfaces is misleading and it often encourages
+people to start heavy developments with this language. But, writing
+large applications with a language which lacks ways of structuring
+data tends to be more and more painful as the program grows. We think
+that this kind of usage is beyond the scope of a language such as Tcl,
+and we have tried to propose a solution for a better using of the 
+Tk toolkit. 
+
+In order to improve the Tk toolkit for large applications, we decided
+to replace Tcl by a conventional programming language. Furthermore,
+the {\em substitute} language must fulfill some important
+requirements; it must be
+\begin{itemize}
+\item {\bf high level} and provides useful data types such as 
+structures, arrays, lists or strings 
+\item {\bf small} enough for allowing to embed it in
+applications (as Tcl) 
+\item {\bf efficient} so that most applications can be written
+entirely in this language without having to resort to C or C++ programming.
+\item easily {\bf extensible} so that user can investigate several
+interesting programming paradigms ({\em e.g.} objects, prototypes,
+actors,~\ldots)
+\item already {\bf defined}. This point is, of course, not mandatory, but we
+think that it is preferable to use an existing programming language, if
+possible, rather than defining a new one.
+\end{itemize}
+Scheme \cite{R4RS} is a Lisp dialect which satisfies quite well the
+previous points. It is a statically scoped language with a clear and
+simple semantic. Moreover, Scheme procedures are first class objects
+able to capture their creation environment. This language feature is
+important since it allows us to envision the coding of interfaces {\em
+callbacks} in a clean way. In this framework, we have defined
+{\stk}~{\cite{Gallesio93-1}, a graphical package based on Tk toolkit
+where the Tcl language as been replaced by a Scheme interpreter. 
+
+
+{\stk} is a small and efficient Scheme interpreter.  As Tcl, it is
+small enough to be used simply as a {\em glue language} which can be
+embedded in an existing application. Furthermore, the solid basis
+provided by the Scheme language affords the tools necessary for
+writing, and maintaining medium size Graphical User Interfaces
+(GUI). Nevertheless, we think the expressive power of Scheme is not
+sufficient to envisage its use for large-scale software development.
+In particular, the lack of an object mechanism increases the
+programming complexity of large applications. {\stklos}, the object
+extension of {\stk}, has been defined to alleviate this problem.  This
+extension provides meta classes, multiple inheritance and generic
+functions {\em \`a la} CLOS~\cite{CLOS,CLtL2} or Dylan~\cite{Dylan}.
+{\stklos} has also been used to embody the predefined Tk widgets in a
+hierarchy of classes. Usage of these classes simplifies the core Tk
+usage by providing an homogeneous access to widget options and by
+hiding the Tk widgets low level idiosyncrasies. Moreover, as expected,
+usage of objects facilitates code reuse and definition of new widgets
+classes. Finally, we think that the object orientation of {\stklos},
+as well as the solid basis of the Scheme programming language, afford
+therefore the tools necessary to envision writing, and maintaining,
+complex GUI.
+
+
+The rest of this paper is divided in three sections. The next section
+presents the {\stk} package and its object system. Wrapping the
+standard Tk widgets in {\stklos} classes and the influence of this
+integration in interfaces programming are described in section 3.
+{\stklos} implementation relies on a MOP (Meta Object Protocol), in
+the spirit of the one defined for CLOS~\cite{AMOP}. Section 4 presents
+this protocol and how it has been used to integrate the Tk standard
+widgets in the Scheme world.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\section{Presentation of {\stklos}}
+
+Programming with {\stk} can be done at two distinct levels. The first
+level uses only the standard Scheme constructs and is quite
+classical. The second level gives access to {\stklos}, the object
+oriented extension of {\stk}. Of course, both levels can be used at
+the same time in a single program. However, most of the time, one will
+use the higher level, resorting to the lower one for specific purposes
+only.
+
+\subsection{\stk: the Basic Layer}
+
+Starting a session with {\stk} brings the user in the
+basic layer which gives access to an extended Scheme interpreter
+able to handle the Tk toolkit. With a little set of rewriting
+rules from the original Tcl/Tk library, and the Tk manual pages close
+at hand, one can easily build a {\stk} program using the Tk toolkit.
+
+Creation of new widgets (button, label, canvas, \ldots) is done by
+special {\stk} primitives procedures. For instance, creating a new
+button can be done as followed
+\begin{quote}\figsize
+\begin{verbatim}
+(button '.b)
+\end{verbatim}
+\end{quote}
+Tk uses a very special way to name widgets: a widget name is a kind
+of pathname which reflects its position in
+the graphical hierarchy of widgets. In this example, the name of the
+newly created button is ``{\tt .b}''. This pathname states that ``{\tt
+b}'' is a son of ``{\tt .}'', the root window. Note that the name of
+the widget must be {\em quoted} due to the Scheme evaluation
+mechanism. 
+
+Calling a widget creation primitive, such as {\tt button},
+builds a new Scheme object which is called a {\em Tk-command}. This
+object, which is considered as a new basic type by the {\stk}
+interpreter, is automatically stored in a variable whose name is the
+symbol given to the creation function ({\tt .b} in this case).  A
+Tk-command is a special kind of function which is generally used, as
+in Tcl/Tk, to customize its associated widget. For instance, the
+expression\label{configure}
+\begin{quote}\figsize
+\begin{verbatim}
+(.b 'configure :text "Hello, world" :border 3)
+\end{verbatim}
+\end{quote}
+\noindent
+allows us to set the text and background options of
+the~{\tt .b} button. Of course, as in Tcl/Tk, parameters can be passed
+at widget creation time, and the previous button creation and
+initialization could have been done in a single expression, such as
+\begin{quote}\figsize
+\begin{verbatim}
+(button '.b :text "Hello, world" :border 3)
+\end{verbatim}
+\end{quote}
+\noindent
+
+Tk proposes a general purpose binding mechanism to associate 
+a handlers to an external event ({\em e.g.} a key press or a mouse
+action). An event handler is automatically triggered by the library
+when the given event occurs. In Tcl, an event handler is a string which is
+evaluated at the global level, whereas in {\stk} it is a Scheme
+closure. The following expression adds a new event handler to the {\tt
+.b} button when the third mouse button is depressed over it:
+\begin{quote}\figsize
+\begin{verbatim}
+(bind .b "<ButtonPress-3>"
+      (let ((count 0))
+        (lambda ()
+          (set! count (+ count 1))
+          (format #t "# of button press: ~A~%" count))))
+\end{verbatim}
+\end{quote}
+
+This simple example shows that {\stk} handlers are cleaner than Tcl ones: 
+the standard Scheme lexical scoping allows a handler to have its own
+private global variables (as {\tt count} here); on the other hand, a Tcl
+handler is a flat string unable to carry an environment.
+
+Even if closures afford a better expressive power for writing event
+handlers than Tcl strings, programming an interface resorting only to the
+constructions of the basic layer becomes rapidly tedious. In fact, the
+{\stk} basic layer can be considered as a kind of {\em assembly language}
+for interfaces programming and we will see in section~\ref{reification} how
+it can be used for the {\em reification} of the Tk widgets in {\stklos}
+classes.
+
+%%%%%%%%%%%%%%%%%%%%
+
+\subsection{\stk: the Object Layer}
+
+{\stklos}, the object extension of {\stk}, is close to the CLOS
+system~\cite{CLOS}; it is briefly introduced in this section. Note that we
+consider only the language aspects of {\stklos} here and we 
+forget its use for integrating the Tk toolkit for a while.
+
+
+Definition of a new class is done with the {\tt define-class} macro. For
+instance, 
+\begin{quote}\figsize
+\begin{verbatim}
+(define-class Point ()
+   ((x :init-keyword :x :accessor x-of)
+    (y :init-keyword :y :accessor y-of)))
+\end{verbatim}
+\end{quote}
+defines the characteristics of a point. Two slots are declared here: {\tt
+x} and {\tt y}.
+\noindent
+Creation of new instances is done with the {\tt make} constructor: 
+\begin{quote}\figsize
+\begin{verbatim}
+(define p (make Point :x 10 :y 20))
+\end{verbatim}
+\end{quote}
+\noindent
+The evaluation of the preceding form builds a new point and initializes
+its slots {\tt x} and {\tt y} with the values 10 and 20. Slot content
+can be accessed by the two basic primitives {\tt slot-ref} and {\tt
+slot-set!}. These primitives are low level primitives and users often
+prefer to use accessors, since they generally lead to a clearer
+code. For instance, getting the value of the {\tt y} slot of {\tt
+p} could be done in the following way:
+\begin{quote}\figsize
+\begin{alltt}
+(y-of p)                {\em ; or (slot-ref p 'y)}
+\end{alltt}
+\end{quote}
+\noindent
+since the {\tt y-of} accessor has been defined for slot {\tt
+y}. This slot can be set by the generalized {\tt set!}\label{set!}
+form, as illustrated by the following example:
+\begin{quote}\figsize
+\begin{alltt}
+(set! (y-of p) 1)       {\em ; or (slot-set! p 'y 1)}
+\end{alltt}
+\end{quote}
+
+\noindent
+Now, we can define the {\tt Rectangle} class which inherits from the {\tt
+Point} class: 
+\begin{quote}\figsize
+\begin{verbatim}
+(define-class Rectangle (Point)
+  ((width  :init-keyword :width  :accessor width-of)
+   (height :init-keyword :height :accessor height-of)))
+\end{verbatim}
+\end{quote}
+\noindent
+The instances of this class have four slots ({\tt x}, {\tt y}, {\tt width}
+and {\tt height}).  Methods\footnote{In {\stklos}\cite{Gallesio95-1a}, the
+execution of a method rely on a subset of the CLOS {\em generic functions}
+mechanism (only primary methods are supported and the methods combination
+cannot be changed).}  defined for instances of the {\tt Point} class can
+also be used for instances of the {\tt Rectangle} class. For example, the
+{\tt x} coordinate of a {\tt Rectangle} can be accessed with the accessor
+method {\tt x-of} defined before.
+
+
+Previous class definition represents rectangles with a reference point, a
+width and a height. This representation for rectangles is, most of the
+time, convenient but we sometimes need a representation using the
+coordinates of two opposite corners. In that case, {\em virtual slots} can
+be used\label{virtual-slot}. A virtual slot is a slot which is defined as a
+normal slot but whose allocation is declared as {\tt :virtual}. Such a slot
+has a null allocation and its reading (resp. writing) provokes the
+execution of a getter (resp. setter) function which must be provided by the
+user within the class definition. The getter and setter functions are
+defined with the {\tt :slot-ref} and {\tt :slot-set!} options. Here is
+another writing of the {\tt Rectangle} class using virtual slots:
+
+\begin{quote}\figsize
+%\begin{minipage}{12.2cm}
+\begin{alltt}
+(define-class Rectangle (Point)
+  ((width  :init-keyword :width  :accessor width-of)
+   (height :init-keyword :height :accessor height-of)
+\end{alltt}
+%\end{minipage}
+%\begin{minipage}{12.2cm}
+\begin{alltt}
+   (x2     :init-keyword :x2     :accessor x2-of 
+           :allocation   :virtual
+           :slot-ref  (lambda (obj) (+ (x-of obj) (width-of obj)))
+           :slot-set! (lambda (obj val) 
+                        (set! (width-of obj) (- val (x-of obj)))))
+\end{alltt}
+%\end{minipage}
+%\begin{minipage}{12.2cm}
+\begin{alltt}
+   (y2     :init-keyword :y2 :accessor y2-of 
+           :allocation   :virtual
+           :slot-ref  (lambda (obj) (+ (y-of obj) (height-of obj)))
+           :slot-set! (lambda (obj val) 
+                        (set! (height-of obj) (- val (y-of obj)))))))
+\end{alltt}
+%\end{minipage}
+\end{quote}
+In this new definition of {\tt Rectangle}, {\tt x2} and {\tt y2} are
+virtual slots. The getter and setter associated functions are
+lambda expressions which  compute or set their value depending on
+other slots value. Note that a  virtual slot accessor closure can
+change the value of standard slots in order to keep the system
+coherent.
+
+Since virtual slots do not imply memory allocation, they could easily be
+simulated with classical accessor methods. But, declaring a slot as
+virtual allows introspecting functions to ``see'' it as a standard slot. On
+the contrary, using a couple of methods to simulate such a slot would hide
+it to these functions.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\section{Integration of Tk widgets}
+\label{reification}
+
+\subsection{The Class Hierarchy}
+
+This section presents how the standard Tk widgets have been embodied in
+{\stklos} classes. Each graphical object defined in the Tk toolkit such as
+menu, label or button is represented by a {\stklos} class. The
+corresponding classes constitute a hierarchy which is briefly described
+here. First, all the classes share a unique ancestor: the {\tt <Tk-object>}
+class\footnote{End users will not have to use direct instances of the {\tt
+<Tk-object>} class (all classes whose name begins with the ``Tk-'' prefix
+are abstract classes which should not be instanced; they correspond to the
+{\em implementation specific} classes of
+\cite{Kickzales:oopsla92}).}. This class defines a set of slots
+necessary to establish a communication between the Scheme and Tk
+worlds. In particular, two slots are defined in this
+class\footnote{The actual implementation is more complex, but to make
+easier the reading of this paper, we have simplified the definition of
+classes, and hence the class hierarchy.}:
+\begin{itemize}
+		\item The {\tt parent}\label{parent-slot} slot contains a
+reference to the object which (graphically) includes the current object.
+\item The {\tt Id} slot contains a reference to the low level {\stk} {\em
+Tk-command} which implements the {\stklos} widget. This {\em Tk-command},
+which is different for each class, is created during {\stklos} instance
+initialization. This slot establishes the link between the {\stk} and the
+{\stklos} layers and guarantees, by keeping a reference to the low level
+widget, a protection against GC recovery.
+\end{itemize}
+
+The next level of the class hierarchy defines a fork with two
+branches: the {\tt <Tk-widget>} class and {\tt <Tk-canvas-item>}
+class. Instances of the former class are classical widgets such as
+buttons or menus whereas instances of the later are objects contained
+in a canvas\footnote{The canvas widget afforded by the Tk library
+allows 2D structured drawing.} such as lines, ovals or
+rectangles. Both kind of Tk objects are directly implemented as
+{\stklos} classes in a one-to-one relationship. A partial view of the
+{\stklos} hierarchy is shown in Fig.~1. Here are some important
+points:
+\begin{figure}
+%\centerline{\epsfig{file= hierarchy.eps, clip=, width=13cm,height=13cm}}
+\centerline{\psfig{file= hierarchy.eps,width=12.0cm}}
+\caption[]{\em A partial view of the {\stklos} hierarchy}
+\end{figure}
+\begin{itemize}
+		\item In Tk, interface widgets ({\em e.g.} buttons) are
+first class objects, but canvas items ({\em e.g.} rectangles) can be
+accessed only through their containing canvas. Thus, actions on widgets or
+canvas items must be done in different ways.  Accessing a canvas item
+option requires two references: one to the canvas which contains it and one
+to its identification (a number) in this canvas. In order to make canvas
+items first class objects, the class {\tt <Tk-canvas-item>} defines the
+extra slot {\tt Cid} which contains the Tk identification number associated
+to the item.
+
+		\item The hierarchical view of Tk widgets permits a better
+apprehension of the Tk toolkit, even if there is no notion of inheritance
+in standard Tk. According to Fig.~1, a {\em button} can be seen as a
+reactive {\em label}. As a consequence, the methods in charge of the look
+of a label or button text (font, foreground color, \ldots) can be gathered
+in the {\tt <Label>} class. Thus, the {\tt <Button>} class has only to
+manage the operations which are specific to a reactive text, such as the
+associated command to invoke when the mouse button is depressed over it.
+
+		\item Simple and composite widgets share a common
+ancestor ({\tt <Tk-widget>}). Consequently, composites widgets, which
+are written in Scheme, are controlled exactly in the same way as C
+built-in Tk widgets. This kind of widgets is discussed in~\cite{Gallesio94-1}.
+\end{itemize}
+
+\subsection{Accessing Tk Widgets Options}
+
+Each Tk toolkit widget accepts a specific set of options which enables its
+aspect customization such as its color, font, text or relief. Options may
+be specified either on the command line when the widget is created or with
+the {\tt configure} operation which is applicable to all Tk widgets. In
+{\stklos}, each option of a Tk widget is seen as an object slot, and
+getting or setting the configuration of a Tk option is equivalent to read
+or write an object slot. The following example shows a possible {\stklos}
+definition of a Tk button.
+
+\begin{quote}\figsize
+\begin{minipage}{12cm}
+\begin{verbatim}
+(define-class <Button> (<Label>)
+   ((command :accessor command :init-keyword :command 
+             :allocation :tk-virtual))
+   :metaclass <Tk-metaclass>)
+\end{verbatim}
+\end{minipage}
+\end{quote}
+This new class inherits from {\tt <Label>} and owns an extra slot
+called {\tt command}.  The allocation of this slot is qualified with
+{\tt :tk-virtual}. \label{tk-virtual}Tk-virtual slots are special
+purpose slots: they can be used as normal slots but they are not
+allocated in the Scheme world ({\em i.e.} their value is stored in one
+of the structures manipulated by the Tk library instead of in a Scheme
+object). Consequently, reading or writing such a slot is done in a
+particular way: access to Tk-virtual slot uses in turn the standard Tk
+{\tt configure} operation as in \ref{configure}. Tk-virtual widgets
+slots are a special kind of virtual slots which are managed by the
+meta class {\tt <Tk-metaclass>}. Defining a class using this meta
+class allows the modification of a slot accessors at the lowest
+level. Therefore, the value of a virtual slot always reflect the
+actual value of the associated Tk option (remember that no space is
+reserved for this slot in the Scheme core and that accesses are
+directly done within the Tk data structures). The specification of the
+meta class of the {\tt <Button>} class in given with the {\tt
+:metaclass} option\footnote{In fact, this meta class citation can be
+omitted since {\tt <Label>} (or one of its ancestor) has probably
+already specified it. In this case the system will automatically
+choose the most specific meta class.}.  It is important to note that
+the construction of the slot accessors is made at class creation so
+that no particular computation is necessary when accessing such a
+slot. Thus, customizing a widget by using a slot access at the
+{\stklos} level is {\bf as efficient as} using a standard Tk option
+configuration at the {\stk} base level.
+
+The previous definition of {\tt <Button>} is not sufficient for a
+complete integration of the Tk button widget in a {\stklos} class. Indeed,
+the MOP ensures that {\tt Tk-constructor}\label{Tk-constructor} is called
+when creating a new {\tt <Tk-widget>} (and {\tt <Button>} is an indirect
+instance of {\tt <Tk-widget>} as shown in Fig.~1). This function must
+determine the Tk library function (a {\em Tk-command}) which has to be
+called to create the new widget.  The following method for {\tt
+Tk-constructor} suffices to do this job:
+\begin{quote}\figsize
+\begin{verbatim}
+(define-method Tk-constructor ((b <Button>)) 
+   button)
+\end{verbatim}
+\end{quote}
+The previous {\tt <Button>} class and {\tt Tk-constructor} method
+definitions are the two only things necessary for defining a new {\stklos}
+widget. This point is particularly important since it permits to minimize
+the integration cost of new Tk widgets and, consequently, to {\em follow}
+future Tk releases with minimal coding.
+
+The following variable definition shows how we can use the above 
+{\tt <Button>} class:
+\begin{quote}\figsize
+\begin{verbatim}
+(define b (make <Button> :font "fixed" 
+                         :command (lambda () (display "Hello\n"))))
+\end{verbatim}
+\end{quote}
+
+\noindent
+This expression assigns to the symbol {\tt b} a new instance of 
+{\tt <Button>}. Changing the font or the command associated to
+this object could be done by using either the {\tt slot-set}! or the
+generalized {\tt set}!  primitives as shown in~\ref{set!}.
+
+
+\subsection{Comparison of {\stklos} and Standard Tk}
+
+Some of the advantages of {\stklos}, approach over standard Tk have
+already been discussed before. In this section, we go on further this
+discussion.
+
+\subsubsection{Low Level Detail Hiding}
+
+One of the most important benefits when embodying Tk widgets in {\stklos}
+is that most of the Tk idiosyncrasies are hidden to the user. As a positive
+consequence, this improves greatly the level we can program GUI. A
+major improvement concerning this point is that we do not need anymore to
+take care of the Tk widget naming conventions. The fact that Tk imposes
+that the name of a widget must reflect the hierarchy to which it belongs,
+and the lack of relative naming conventions are very severe constraints
+when designing a GUI. These points make difficult, in standard Tk, the
+definition of reusable interface components and usage of long pathnames
+(which are current in non toy applications) is very awkward to
+manage. Furthermore, these conventions lead to change large pieces of code
+as soon as a modification is done in the widget hierarchy. In this sense,
+Tk naming conventions do not fit well with GUI programming since the design
+of an interface brings aesthetic problems which often conduct to develop it
+on a trial and error basis.
+
+In {\stklos}, Tk naming convention are completely hidden and the only
+thing the user needs to know when creating a new object is the widget
+which contains it. This object is called its parent. An example of
+nested widgets creation is shown below:
+
+\begin{quote}\figsize
+\begin{verbatim}
+(define f  (make <Frame>))
+(define b1 (make <Button> :text "B1" :parent f))
+(define b2 (make <Button> :text "B2" :parent f))
+\end{verbatim}
+\end{quote}
+
+\noindent
+The buttons {\tt b1} and {\tt b2} created here specify that their parent
+is the frame {\tt f}. Since this frame does not specify a particular
+parent, it is supposed to be a direct descendant of the root
+window. Note that only the definition of {\tt f} should be changed if
+we decide that {\tt f} should no more be a top-level frame. A
+modification in the hierarchy of this widget is automatically
+propagated to all the widgets belonging to this hierarchy.  {\stklos}
+also extends this parent notion to take into account canvas items
+(rectangles, lines, ovals,~\ldots): a canvas item is considered to be
+a descendant of the canvas which contains it. This vision of the
+canvas items allows the {\stklos} user to manipulate canvas items as
+first class objects. For instance,
+
+\begin{quote}\figsize
+\begin{verbatim}
+(define c (make <Canvas>))
+(define r (make <Rectangle> :parent c :coords '(0 0 50 50)))
+\end{verbatim}
+\end{quote}
+
+
+\noindent
+defines a rectangle called {\tt r} in the {\tt c} canvas. As said
+before, accessing this rectangle implies the use of two references in
+standard Tk: the canvas which contains it, and its identification
+number in this canvas. In {\stklos}, both informations are contained in the object
+which represent the rectangle. For instance, after executing the expression,
+\begin{quote}\figsize
+\begin{verbatim}
+(bind r "<Enter>" (lambda (x y) 
+                     (format #t "Mouse enters in ~A ~A~%" x y)))
+\end{verbatim}
+\end{quote}
+
+\noindent
+a message is displayed, each times the mouse enters the {\tt r}
+rectangle. It is important to note here that we would use {\em
+exactly} the same expression to associate such a binding to a simple
+widget such as a button or a label, whereas it needs two different
+syntactic forms in Tcl/Tk, since the procedures which access
+a canvas item or an interface widget are different.
+
+\subsubsection{Uniform Access to the Toolkit}
+Usage of generic functions is also a significant improvement over the
+Tk basic level programming since it allows an homogeneous access to
+Tk commands. Suppose that we want to give access to
+the value of a {\tt scale} or an {\tt entry} widget with the generic
+function {\tt value}. This can easily be done by the following method
+in {\stklos}:
+
+\begin{quote}\figsize
+\begin{verbatim}
+(define-method value ((obj <Tk-simple-widget>))
+   ((Id obj) 'get))
+\end{verbatim}
+\end{quote}
+
+In this case, one method is sufficient to implement the getter
+function since the Tk sub-option for reading the value of a scale or
+an entry is the same. Writing the setter function for those widgets is
+a little bit more complicated since the way of changing a scale value
+is different from the way of changing an entry value in Tk:
+
+\begin{quote}\figsize
+\begin{verbatim}
+(define-method (setter value) ((obj <Scale>) v)
+  ((Id obj) 'set v))
+
+(define-method (setter value) ((obj <Entry>) v)
+  ((Id obj) 'delete 0 'end)
+  ((Id obj) 'insert 0 v))
+\end{verbatim}
+\end{quote}
+
+Using the same generic function (with two different methods) permits to
+hide to the user these low level details and gives him/her a coherent
+access to the toolkit. In the call, {\label{value}}
+\begin{quote}{\figsize
+\begin{verbatim}
+(set! (value x) 100)
+\end{verbatim}
+}\end{quote}
+\noindent
+the system chooses the method to apply depending on the class of {\tt
+x}. Of course, an error\footnote{more exactly, the system calls the
+{\tt no-applicable-method} generic function which, by default, signals
+an error, as in CLOS. User can specialize this function to provide
+another handler.} will be signaled if {\tt x} is not an
+entry or a scale.  Note that this notion of widget value could also be
+easily implemented with a virtual slot (see~\ref{virtual-slot}) even
+if {\tt :value} does not exist as a Tk option {\it per~se}. This
+approach, which is the one chosen in the current released library,
+allows introspecting functions to manage the value of a widget as
+a standard slot. In particular, this library offers a small interface
+builder which heavily use introspection to automatically build
+specialized widget editors. Defining {\tt value} as a virtual slots
+for most widgets allows the user to tune it in the same fashion as the
+font or the background Tk options. Designing an interface builder
+using only standard Tk constructs would have been a lot more
+painful.
+
+
+The previous examples show that programming with {\stklos} brings the power
+of a full featured object language in the area of GUI
+construction. However, this fine integration of the Tk toolkit could not
+have been done without the underlying Meta Object Protocol of
+{\stklos}. This protocol is discussed in the following section.
+
+
+\section{Implementation}
+
+In the previous section, we show through several examples the gain provided
+by an object language to use the Tk toolkit. The simplicity of these
+examples could make think that the definition of an {\em ad-hoc} object
+system for Tk widgets could suffice to have an OO vision of the
+toolkit. However, we feel that this approach, which has been widely
+used for Tcl, is not the good one. Providing a general purpose Scheme
+object system, which can easily be customized for using Tk, seems a
+far better approach.  Indeed, in the GUI area, applications
+programmers often need to be able to use introspection on the objects
+they manipulate, or they need to define new ways to access object
+slots when composing several widgets. These constraints have led us to
+define a MOP based object extension for {\stk}, because it is probably
+the cleanest way to achieve the requirements expressed above.
+
+This section presents how to integrate Tk widgets in a hierarchy such
+as the one shown in Fig.~1. The discussion is split in two
+parts. First, we present the services a MOP must offer for this
+integration and then, we show how we can exploit them to build
+this hierarchy.
+
+\subsection{The {\stklos} Meta Object Protocol}
+
+{\stklos} meta object protocol implementation is based on
+Tiny-Clos~\cite{Tiny-Clos}, a minimal MOP written in Scheme. Current
+version of {\stklos} MOP is written in C and in Scheme. Code written in C
+correspond to the generic functions calls, which allows to implement them
+as efficiently as possible.  The rest of the implementation, where time
+consumption is less important ({\em e.g.}~computation of class
+precedence lists or printing methods), is written in Scheme. This conducts
+to an efficient implementation where the overhead of OO programming {\it
+vs} ``classical'' programming is as low as possible.
+
+As said before, {\stklos} is a general purpose OO extension, but a great
+attention has been carried for the services its MOP must provide in order
+to integrate easily and efficiently Tk widgets in {\stklos} objects. The
+{\stklos} protocol must at least offer following capabilities:
+\begin{itemize}
+\item a way to  intervene in the initialization of a {\stklos} widget.
+The first task which must be done at this stage consists to generate a
+name (using the Tk conventions) for the widget which will implement
+the new instance. Then, the instance creation arguments list must be
+filtered to distinguish the user arguments which concern only
+{\stklos} ({\em e.g.}~the {\tt parent} slot discussed in
+\ref{parent-slot}) from those which correspond to Tk
+options. This distinction among parameters is necessary because the Tk
+library raises an error when it encounters a parameter it does not know
+how to manage.
+
+\item the possibility to define slots with special behaviour and
+allocation schemes. In effect, beyond virtual slots already discussed
+in \ref{virtual-slot}, the protocol should allow to map the Tk widget
+options  as slots of a {\stklos} object. Note that the
+way to do this mapping will be different for a simple widget and a
+canvas item, since Tk offers two different methods for accessing their
+options. Furthermore, the protocol for defining slots must be as
+simple as possible to allow application programmers to extend the
+library with new kinds of widgets.
+\end{itemize}
+
+The creation of a {\stklos} object is done with the {\tt make} generic
+function. As in CLOS, this function first allocates a new instance
+(by calling the generic function {\tt allocate-instance})
+and then returns this instance initialized. Initialization of the
+new instance is performed by the {\tt initialize} generic function. 
+
+Class slots are computed when the class is initialized. The {\stklos}
+MOP calls the generic function {\tt compute-get-n-set} which, given
+the definition of a slot, returns a couple of procedures. These
+procedures correspond to the reader and writer functions for the
+slot. In case of a virtual slot definition (see~\ref{virtual-slot}),
+for instance, {\tt compute-get-n-set} returns a list constituted of
+the two evaluated lambda expressions given in the {\tt :slot-ref}
+and {\tt :slot-set!} options.
+
+\subsection{Using the MOP to Wrap Tk Widgets}
+
+We present here only the salient points which are necessary to the
+integration of Tk widgets and simple canvas items in an object
+world. The code exposed here is simpler than the one which is used in
+the current distribution of {\stk}, but principles are the same. A
+complete listing of the source code of this simplified implementation
+is given in annex.
+
+\subsubsection{Managing Tk Options as Object Slots.} 
+
+When a new class is created, the generic function {\tt
+compute-get-n-set} is called for each slot this class defines. This
+function takes two parameters: the class which is being created and
+the slot definition (a list). This allows us to define a meta class
+which takes into account a special kind of slots: {\em tk-virtual}
+allocated slots. The meta class in charge of these slots is called
+{\tt <Tk-metaclass>}. This class is defined as:
+\begin{quote}\figsize
+\begin{verbatim}
+(define-class <Tk-metaclass> (<class>)
+  ((valid-options :accessor Tk-valid-option)))
+\end{verbatim}
+\end{quote}
+The slot {\tt valid-options} contains the list of options a Tk widget
+recognizes. This slot is initialized when a new widget class is defined
+(its value is set to the list of the slots whose allocation is {\em
+Tk-virtual}). Usage of {\tt valid-options} will be discussed later.
+
+Tk-virtual slots have been presented in~\ref{tk-virtual}. Reading and
+writing this kind of slot implies the use of the {\tt configure} sub-option
+which is always available for Tk widgets. In standard Tk, reading the value
+of a widget option, such as {\tt width}, for a given widget {\tt w} must
+be done with
+\begin{quote}\figsize
+\begin{verbatim}
+(list-ref (w 'configure :width) 4)
+\end{verbatim}
+\end{quote}
+\noindent
+Setting the width of this widget to the value {\tt val} is a little
+bit simpler and can be expressed as:
+\begin{quote}\figsize
+\begin{verbatim}
+(w 'configure :width val)
+\end{verbatim}
+\end{quote}
+
+\noindent
+Consider now a canvas item whose enclosing canvas and identification number
+are respectively {\tt c} and {\tt id}; reading and writing the value 
+of its {\tt width} option can be done with 
+\begin{quote}\figsize
+\begin{verbatim}
+(list-ref (c 'itemconfigure id :width) 4)
+\end{verbatim}
+\end{quote}
+and
+\begin{quote}\figsize
+\begin{verbatim}
+(c 'itemconfigure id :width val)
+\end{verbatim}
+\end{quote}
+
+\noindent
+We said in previous subsection that the generic function {\tt
+compute-get-n-set} has in charge slot allocation.  Given the Tk conventions
+exposed before, it is easy to define a {\tt <Tk-metaclass>} specialized
+method for this function. This method must return a list whose first
+element is a closure for reading the slot, and whose second element is a
+closure for its writing:
+
+\begin{quote}\figsize
+\begin{alltt}
+(define-method compute-get-n-set ((class <Tk-Metaclass>) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      {\em ;; this is a Tk-virtual slot}
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (obj) (list-ref ((Id obj) 'configure opt) 4))
+              (lambda (obj val) ((Id obj) 'configure opt val))))
+      {\em ;; call super compute-get-n-set}
+      (next-method)))
+\end{alltt}
+\end{quote}
+
+\noindent
+This method first tests the allocation type of the slot with {\tt
+get-slot-allocation}. If the slot is a Tk-virtual one, this method
+returns the reader and writer closures in a list. Otherwise, this
+method calls {\tt next-method}, that is to say the {\tt
+compute-get-n-set} method defined over the super class of {\tt
+<Tk-metaclass>}.
+
+Since Tk accesses canvas items options in a different way than simple
+widgets ones, {\tt <Tk-metaclass>} cannot be used for reading and
+writing their slots. A meta class for canvas items can be simply
+defined as
+\begin{quote}\figsize
+\begin{alltt}
+(define-class <Tk-item-metaclass> (<Tk-Metaclass>)
+  ())
+\end{alltt}
+\end{quote}
+\noindent
+Given this meta class and the Tk conventions shown before, it is simple to
+define a {\tt compute-get-n-set} method specialized for canvas items:
+\begin{quote}\figsize
+\begin{alltt}
+(define-method compute-get-n-set ((class <Tk-item-metaclass>) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (obj)   
+                (list-ref ((Id obj) 'itemconfigure (Cid obj) opt) 4))
+              (lambda (obj val) 
+                ((Id obj) 'itemconfigure (Cid obj) opt val))))
+      (next-method)))
+\end{alltt}
+\end{quote}
+
+\noindent
+Two points are important to note here:
+\begin{itemize}
+\item  Methods of the generic function {\tt compute-get-n-set} are 
+very dependent of the procedure Tk proposes for accessing widget
+options. However, it must be noted that only the two returned lambda
+expressions should be re-written if the author of the Tk toolkit
+decides to change current conventions. We can even say that the MOP
+permits to write programs which are less dependent of the Tk toolkit
+than Tcl/Tk programs, since dependences can be isolated in a few
+methods instead of being spread all over the code.
+\item The protocol for accessing the slots of new kind of widgets is
+easily customizable. The {\stklos} library uses it for the Tk text tags (a
+tag is an annotation which allows to associate a script to a portion of the
+string associated to a Tk {\tt text} widget). Defining a meta class for
+text tags and a specialized {\tt compute-get-n-set} method suffice to see
+them as first class objects whose state is stored in the slots of a
+{\stklos} instance. Similarly, the {\stklos} library defines a meta class
+for managing composite widgets where a slot access for a compound widget
+can be propagated to some of its composing widgets.
+\end{itemize}
+
+\subsubsection{Widget Initialization.} 
+
+\label{widget-init}When a new object is initialized, the MOP ensures that the 
+{\tt initialize} generic function is called. This method must filter
+the arguments given to {\tt make} in order to pass only
+valid options to Tk, and to take into account slots which deal only with
+{\stklos} (such as {\tt parent}, for example). This method is given below: 
+\begin{quote}\figsize
+\begin{alltt}
+(define-method initialize ((self <Tk-simple-widget>) initargs)
+  {\em ;; Use split-options on initargs to separate STklos slots from Tk}
+  {\em ;; ones. Set parent to the root window if not specified in initargs}
+  (let* ((options (split-options (Tk-valid-options (class-of self))
+                                 initargs))
+         (parent  (get-keyword :parent (cdr options) *root*)))
+    {\em ;; Call the Tk command which creates the widget}
+    (set! (Id self) (apply (tk-constructor self)
+                           (make-tk-name parent) 
+                           (car options)))
+    {\em ;; Initialize other slots (i.e. non Tk-virtual ones)}
+    (next-method self (cdr options))))
+\end{alltt}
+\end{quote}
+
+\noindent
+The list of valid Tk options is found in the slot {\tt valid-options} of the
+class of the widget which must be initialized. Given this list,
+options are separated in two lists with the {\tt split-options} helper
+function (this function returns a list whose first element is the set 
+of Tk options and whose rest contains the other arguments). Given for
+instance the call 
+\begin{quote}\figsize
+\begin{verbatim}
+(define b (make <Button> :parent p :text "Hi" :counter 12))
+\end{verbatim}
+\end{quote}
+this method will call the generic function {\tt Tk-constructor} to
+find the {\em Tk-command} which implements the widget at the STk basic
+level. Then, it calls this command with a
+generated name and the list {\tt (:text "Hi")}.  As said before, the
+value returned by the Tk widget constructor must be stored in the {\tt
+Id} slot of the new instance.  From this point, all {\em tk-virtual}
+slots are initialized and the call to {\tt next-method} at the end of
+this method ensures the initializations of other slots with the list
+{\tt (:parent p :counter 12)}. So, slots of user defined classes which
+inherit from standard {\stklos} classes are properly initialized. The
+{\tt initialize} method for canvas items follows the same principles
+and is not developed here. Interested readers can find it in the
+annex.
+
+\subsubsection{Performances}
+
+In order to compare the performances of STk against Tcl ones, we will
+compare the {\stk} basic layer with Tcl/Tk first and then we will
+compare {\stk} and {\stklos}. 
+
+Tcl is by nature an interpreted language and some of its aspects make
+difficult the writing of a compiler for this language. Furthermore, the
+fact that Tcl is a string language implies that the values manipulated by
+a program must always be converted to strings, which is time consuming. This
+explains the poor performances of the current Tcl interpreter. Some
+compilers for this language have been announced but, to our knowledge, none
+has been achieved at this date.
+
+{\stk} current implementation also relies on an interpreter. However, the
+semantic of the Scheme programming language has been designed to allow
+simple and efficient interpreters or compilers implementations. {\stk}
+interpreter is hence small an offers good performances. In particular, it
+runs 4 to 7 times faster than Tcl interpreter on general purpose
+computations. When using the Tk toolkit, Tcl takes advantage of the way
+arguments are passed to the functions of the library. In effect, the Tk
+toolkit uses the C language \mbox{\tt argc/argv} classical convention for
+arguments passing. Given these conventions, the {\stk} interpreter must
+convert to strings the parameters given to {\em Tk commands}, whereas this
+conversion is unnecessary in Tcl since everything is kept as strings in the
+interpreter. However, the penalty induced by these conversions is generally
+negligible facing the overall computation time of a program, and interfaces
+written with {\stk} tend to be faster than Tcl ones.
+
+Let us consider now the performances of {\stklos} comparing to {\stk}. In
+{\stklos}, as in CLOS, the generic function call mechanism costs a
+lot. Because this mechanism can be the bottleneck of a MOP based
+architecture, it has been implemented in C to be as fast as
+possible. However, the current implementation is relatively direct and
+don't use yet the optimizations which can generally be applied on generic
+function calls. This explains the relative poor performances of generic
+function calls compared to closure invocation. Actually, a generic function
+call is 6 times slower than a simple Scheme function call. Consequently, an
+interface written in {\stklos} is far much slower than an application
+resorting only on simple {\stk} constructs. The generic function overhead
+can even makes {\stklos} programs, under certain circumstances, a little
+bit slower than Tcl programs. However, applying {\em memoization}
+optimization techniques such as the one presented in \cite{Kickzales:PCL}
+will decrease the ratio between generic and non generic functions to
+provide performances close to the basic layer.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\section{Conclusion}
+
+We have shown in this paper the {\stklos} object system and how it can be
+tailored to provide an easy access to a standard graphical toolkit. One of
+the major benefits of this system is that it allows a neat {\em
+reification} of a class-less toolkit. This point is important since it is
+generally admitted that an object vision of widgets greatly improves the
+level of GUI programming. 
+
+{\stklos} provides a real programming language for the Tk toolkit.
+Furthermore, the underlying meta object protocol of {\stklos} provides a
+pleasant way to access the toolkit options for each widget and it allows us
+to hide most of the idiosyncrasies of this toolkit in a clean way. It makes
+easier the developement of large Graphical User Interfaces with Tk, and
+extend hence the interest of this toolkit.
+
+\subsection*{Availability}
+
+{\stklos} is distributed with the {\stk} package and runs on a wide variety
+of architectures and systems. The last version of this package is available
+at the following address: \mbox{\tt ftp://kaolin.unice.fr/pub/STk.tar.gz}.
+
+
+\bibliographystyle{plain}
+\bibliography{bibliography}
+\bigskip
+\section*{Annex: A Minimal Meta Object Protocol for Tk}
+Hereafter is a minimal implementation of the Meta Object Protocol described
+in section 3. Three widgets classes ({\tt <Canvas>}, {\tt <Label>} and {\tt
+<Button>}) and two canvas items ({\tt <Line>} and {\tt <Rectangle>}) are
+defined using this MOP. The protocol exposed here has been simplified to
+fit in the limited size of this paper and defined widgets recognize only a
+small subset of the Tk options. However, in spite of this size, this MOP is
+completely operational.
+\bigskip
+{
+\footnotesize
+\input{mop.tex}
+}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\end{document}
+% LocalWords:  Tk coords STk STklos Erick Gallesio Universit de GUI ButtonPress
+% LocalWords:  reification init accessor ref resp obj obj obj val GC Cid eps tk
+% LocalWords:  metaclass metaclass aesthetic se vs itemconfigure eqv initargs
+% LocalWords:  cdr argc argv memoization gz callback
diff --git a/Doc/Isotas96/Makefile b/Doc/Isotas96/Makefile
new file mode 100644
index 0000000..b4673a0
--- /dev/null
+++ b/Doc/Isotas96/Makefile
@@ -0,0 +1,26 @@
+LATEX=latex
+
+dvi: Isotas96.dvi
+
+ps: Isotas96.ps
+
+Isotas96.ps: Isotas96.dvi
+	dvips -f Isotas96.dvi > Isotas96.ps
+Isotas96.dvi: Isotas96.tex prog
+	$(LATEX) Isotas96
+	bibtex Isotas96
+	$(LATEX) Isotas96
+	$(LATEX) Isotas96
+prog: 
+	echo '\begin{alltt}' > mop.tex
+	expand mop.stk | sed -e 's/;\(.*\)/{\\it ;\1}/' \
+			     -e 's/</{\\tt{}<}/g' \
+			     -e 's/>/{\\tt{}>}/g' >> mop.tex
+	echo '\end{alltt}' >> mop.tex
+
+clean: 
+	rm -f *.aux *.bbl *.blg *.log core *~
+
+very-clean: clean
+	rm -f Isotas96.ps *.dvi mop.tex
+
diff --git a/Doc/Isotas96/bibliography.bib b/Doc/Isotas96/bibliography.bib
new file mode 120000
index 0000000..715b57e
--- /dev/null
+++ b/Doc/Isotas96/bibliography.bib
@@ -0,0 +1 @@
+../bibliography.bib
\ No newline at end of file
diff --git a/Doc/Isotas96/eg-commands.sty b/Doc/Isotas96/eg-commands.sty
new file mode 100644
index 0000000..f28216a
--- /dev/null
+++ b/Doc/Isotas96/eg-commands.sty
@@ -0,0 +1,76 @@
+%										-*- LaTeX -*-
+% e g c o m m a n d . s t y
+%
+% Various commands which I often used in my documents
+% Code is most of the time stolen from ``The LaTeX Companion''
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date:  4-Jun-1995 18:13
+% Last file update:  3-Nov-1995 17:59
+
+\input{alltt.sty}
+%\input{moreverb}
+\input{psfig}
+
+
+%
+% Entry
+%
+\newcommand{\Entryfont}{\textbf}
+
+\newcommand{\Entrylabel}[1]{\mbox{\Entryfont{#1:}}\hfil}
+
+\newenvironment{Entry}%
+   {\begin{list}{}%
+          {\renewcommand{\makelabel}{\Entrylabel}%
+	   \setlength{\labelwidth}{35pt}%
+	   \setlength{\leftmargin}{\labelwidth+\labelsep}%
+	  }%
+   }%
+   {\end{list}}
+
+%
+% Ventry
+%
+\newenvironment{Ventry}[1]%
+   {\begin{list}{}%
+	  {\renewcommand{\makelabel}{\makelabel}[1]{\Entryfont{##1:}\hfil}%
+	   \settowidth{\labelwidth}{\Entryfont{#1:}}%
+	   \setlength{\leftmargin}{\labelwidth+\labelsep}%
+	  }%
+   }%
+   {\end{list}}
+
+%
+% Lentry
+%
+\newlength{\lentrylen}
+
+\newcommand{\Lentrylabel}[1]{%
+   \settowidth{\lentrylen}{\Entryfont{#1:}}%
+   \ifthenelse{\lengthtest{\lentrylen > \labelwidth}}%
+	{\parbox[b]{\labelwidth}%				term > labelwidth
+		   {\makebox[0pt][l]{\Entryfont{#1:}}\\}}%
+	{\Entryfont{#1:}}%					term < labelwidth
+   \hfil\relax}
+
+\newenvironment{Lentry}%
+   {\renewcommand{\Entrylabel}{\Lentrylabel}\begin{Entry}}%
+   {\end{Entry}}
+
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% STk stuff
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\stk}{{\sc STk}}
+\newcommand{\stklos}{{\sc STklos}}
+\newcommand{\Indextt}[1]{{\tt{#1}}\index{#1}}
+\newcommand{\Index}[1]{{#1}\index{#1}}
+\newcommand{\rrrr}{{\em R$^{4}\!RS$}}
+\newcommand{\codesize}{\small}
+\newenvironment{Code}{\begin{quote}\begin{minipage}{12cm}\codesize}{\end{minipage}\end{quote}}
+
diff --git a/Doc/Isotas96/hierarchy.eps b/Doc/Isotas96/hierarchy.eps
new file mode 100644
index 0000000..e589538
--- /dev/null
+++ b/Doc/Isotas96/hierarchy.eps
@@ -0,0 +1,322 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: h.fig
+%%Creator: fig2dev Version 3.1 Patchlevel 2
+%%CreationDate: Wed Nov 29 23:53:05 1995
+%%For: eg@biot (Erick Gallesio)
+%Magnification: 0.80
+%%Orientation: Portrait
+%%BoundingBox: 0 0 541 356
+%%Pages: 0
+%%BeginSetup
+%%IncludeFeature: *PageSize A4
+%%EndSetup
+%%EndComments
+/$F2psDict 200 dict def
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/col-1 {0 setgray} bind def
+/col0 {0.000 0.000 0.000 srgb} bind def
+/col1 {0.000 0.000 1.000 srgb} bind def
+/col2 {0.000 1.000 0.000 srgb} bind def
+/col3 {0.000 1.000 1.000 srgb} bind def
+/col4 {1.000 0.000 0.000 srgb} bind def
+/col5 {1.000 0.000 1.000 srgb} bind def
+/col6 {1.000 1.000 0.000 srgb} bind def
+/col7 {1.000 1.000 1.000 srgb} bind def
+/col8 {0.000 0.000 0.560 srgb} bind def
+/col9 {0.000 0.000 0.690 srgb} bind def
+/col10 {0.000 0.000 0.820 srgb} bind def
+/col11 {0.530 0.810 1.000 srgb} bind def
+/col12 {0.000 0.560 0.000 srgb} bind def
+/col13 {0.000 0.690 0.000 srgb} bind def
+/col14 {0.000 0.820 0.000 srgb} bind def
+/col15 {0.000 0.560 0.560 srgb} bind def
+/col16 {0.000 0.690 0.690 srgb} bind def
+/col17 {0.000 0.820 0.820 srgb} bind def
+/col18 {0.560 0.000 0.000 srgb} bind def
+/col19 {0.690 0.000 0.000 srgb} bind def
+/col20 {0.820 0.000 0.000 srgb} bind def
+/col21 {0.560 0.000 0.560 srgb} bind def
+/col22 {0.690 0.000 0.690 srgb} bind def
+/col23 {0.820 0.000 0.820 srgb} bind def
+/col24 {0.500 0.190 0.000 srgb} bind def
+/col25 {0.630 0.250 0.000 srgb} bind def
+/col26 {0.750 0.380 0.000 srgb} bind def
+/col27 {1.000 0.500 0.500 srgb} bind def
+/col28 {1.000 0.630 0.630 srgb} bind def
+/col29 {1.000 0.750 0.750 srgb} bind def
+/col30 {1.000 0.880 0.880 srgb} bind def
+/col31 {1.000 0.840 0.000 srgb} bind def
+
+end
+save
+-40.0 377.0 translate
+1 -1 scale
+
+/cp {closepath} bind def
+/ef {eofill} bind def
+/gr {grestore} bind def
+/gs {gsave} bind def
+/sa {save} bind def
+/rs {restore} bind def
+/l {lineto} bind def
+/m {moveto} bind def
+/rm {rmoveto} bind def
+/n {newpath} bind def
+/s {stroke} bind def
+/sh {show} bind def
+/slc {setlinecap} bind def
+/slj {setlinejoin} bind def
+/slw {setlinewidth} bind def
+/srgb {setrgbcolor} bind def
+/rot {rotate} bind def
+/sc {scale} bind def
+/sd {setdash} bind def
+/ff {findfont} bind def
+/sf {setfont} bind def
+/scf {scalefont} bind def
+/sw {stringwidth} bind def
+/tr {translate} bind def
+/tnt {dup dup currentrgbcolor
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add
+  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
+  bind def
+/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+  4 -2 roll mul srgb} bind def
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+%%EndProlog
+
+$F2psBegin
+10 setmiterlimit
+n 0 842 m 0 0 l 595 0 l 595 842 l cp clip
+ 0.04800 0.04800 sc
+7.500 slw
+% Polyline
+n 2655 6225 m 2550 6225 2550 6570 105 arcto 4 {pop} repeat
+  2550 6675 4695 6675 105 arcto 4 {pop} repeat
+  4800 6675 4800 6330 105 arcto 4 {pop} repeat
+  4800 6225 2655 6225 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+2632 6502 m
+gs 1 -1 sc (<Tk-complex-button>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5070 m
+gs 1 -1 sc (<Labeled-Entry>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5340 m
+gs 1 -1 sc (<Choice-box>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+5625 5610 m
+gs 1 -1 sc (...) col-1 sh gr
+% Polyline
+n 6007 450 m 5902 450 5902 795 105 arcto 4 {pop} repeat
+  5902 900 8092 900 105 arcto 4 {pop} repeat
+  8197 900 8197 555 105 arcto 4 {pop} repeat
+  8197 450 6007 450 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+6450 727 m
+gs 1 -1 sc (<Tk-object>) col-1 sh gr
+% Polyline
+n 3592 1500 m 3487 1500 3487 1845 105 arcto 4 {pop} repeat
+  3487 1950 5632 1950 105 arcto 4 {pop} repeat
+  5737 1950 5737 1605 105 arcto 4 {pop} repeat
+  5737 1500 3592 1500 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+3997 1777 m
+gs 1 -1 sc (<Tk-widget>) col-1 sh gr
+% Polyline
+n 8392 1500 m 8287 1500 8287 1845 105 arcto 4 {pop} repeat
+  8287 1950 10432 1950 105 arcto 4 {pop} repeat
+  10537 1950 10537 1605 105 arcto 4 {pop} repeat
+  10537 1500 8392 1500 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+8527 1800 m
+gs 1 -1 sc (<Tk-canvas-item>) col-1 sh gr
+% Polyline
+n 1417 2700 m 1312 2700 1312 3045 105 arcto 4 {pop} repeat
+  1312 3150 3457 3150 105 arcto 4 {pop} repeat
+  3562 3150 3562 2805 105 arcto 4 {pop} repeat
+  3562 2700 1417 2700 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+1470 2977 m
+gs 1 -1 sc (<Tk-simple-widget>) col-1 sh gr
+% Polyline
+n 5505 2737 m 5400 2737 5400 3082 105 arcto 4 {pop} repeat
+  5400 3187 7545 3187 105 arcto 4 {pop} repeat
+  7650 3187 7650 2842 105 arcto 4 {pop} repeat
+  7650 2737 5505 2737 105 arcto 4 {pop} repeat
+ cp gs col-1 s gr 
+/Times-Italic ff 210.00 scf sf
+5400 3015 m
+gs 1 -1 sc (<Tk-composite-widget>) col-1 sh gr
+% Polyline
+n 6360 3105 m 6360 3105 l gs col-1 s gr
+% Polyline
+n 7192 4012 m 7087 4012 7087 4357 105 arcto 4 {pop} repeat
+  7087 4462 9232 4462 105 arcto 4 {pop} repeat
+  9337 4462 9337 4117 105 arcto 4 {pop} repeat
+  9337 4012 7192 4012 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+gs  clippath
+4650 1495 m 4526 1493 l 4636 1436 l 4478 1474 l 4492 1533 l  cp clip
+n 6975 900 m 4500 1500 l gs col-1 s gr gr
+
+% arrowhead
+n 4650 1495 m 4526 1493 l 4636 1436 l 4643 1465 l 4650 1495 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+9239 1436 m 9348 1493 l 9225 1495 l 9383 1533 l 9397 1474 l  cp clip
+n 6900 900 m 9375 1500 l gs col-1 s gr gr
+
+% arrowhead
+n 9239 1436 m 9348 1493 l 9225 1495 l 9232 1465 l 9239 1436 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+2549 2679 m 2425 2690 l 2528 2622 l 2376 2677 l 2396 2733 l  cp clip
+n 4500 1950 m 2400 2700 l gs col-1 s gr gr
+
+% arrowhead
+n 2549 2679 m 2425 2690 l 2528 2622 l 2538 2651 l 2549 2679 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+6471 2624 m 6574 2691 l 6451 2680 l 6604 2733 l 6624 2677 l  cp clip
+n 4425 1950 m 6600 2700 l gs col-1 s gr gr
+
+% arrowhead
+n 6471 2624 m 6574 2691 l 6451 2680 l 6461 2652 l 6471 2624 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+1411 3912 m 1296 3959 l 1376 3864 l 1245 3960 l 1281 4008 l  cp clip
+n 2400 3150 m 1275 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 1411 3912 m 1296 3959 l 1376 3864 l 1394 3888 l 1411 3912 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3568 3870 m 3652 3960 l 3535 3920 l 3671 4008 l 3704 3958 l  cp clip
+n 2400 3150 m 3675 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 3568 3870 m 3652 3960 l 3535 3920 l 3552 3895 l 3568 3870 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3630 4953 m 3600 5073 l 3570 4953 l 3570 5115 l 3630 5115 l  cp clip
+n 3600 4500 m 3600 5100 l gs col-1 s gr gr
+
+% arrowhead
+n 3630 4953 m 3600 5073 l 3570 4953 l 3600 4953 l 3630 4953 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+3630 6078 m 3600 6198 l 3570 6078 l 3570 6240 l 3630 6240 l  cp clip
+n 3600 5550 m 3600 6225 l gs col-1 s gr gr
+
+% arrowhead
+n 3630 6078 m 3600 6198 l 3570 6078 l 3600 6078 l 3630 6078 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+8276 3864 m 8188 3951 l 8224 3833 l 8142 3973 l 8193 4003 l  cp clip
+n 9375 1950 m 8175 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 8276 3864 m 8188 3951 l 8224 3833 l 8250 3849 l 8276 3864 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+10883 3841 m 10933 3953 l 10836 3877 l 10936 4005 l 10983 3968 l  cp clip
+n 9375 1950 m 10950 3975 l gs col-1 s gr gr
+
+% arrowhead
+n 10883 3841 m 10933 3953 l 10836 3877 l 10860 3859 l 10883 3841 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+6480 4728 m 6450 4848 l 6420 4728 l 6420 4890 l 6480 4890 l  cp clip
+n 6450 3150 m 6450 4875 l gs col-1 s gr gr
+
+% arrowhead
+n 6480 4728 m 6450 4848 l 6420 4728 l 6450 4728 l 6480 4728 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+1948 7326 m 1825 7340 l 1927 7270 l 1775 7327 l 1796 7383 l  cp clip
+n 3600 6675 m 1800 7350 l gs col-1 s gr gr
+
+% arrowhead
+n 1948 7326 m 1825 7340 l 1927 7270 l 1938 7298 l 1948 7326 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+gs  clippath
+5199 7268 m 5299 7340 l 5177 7324 l 5328 7383 l 5350 7328 l  cp clip
+n 3600 6675 m 5325 7350 l gs col-1 s gr gr
+
+% arrowhead
+n 5199 7268 m 5299 7340 l 5177 7324 l 5188 7296 l 5199 7268 l  cp gs 0.00 setgray ef gr  col-1 s
+% Polyline
+n 2617 4012 m 2512 4012 2512 4357 105 arcto 4 {pop} repeat
+  2512 4462 4657 4462 105 arcto 4 {pop} repeat
+  4762 4462 4762 4117 105 arcto 4 {pop} repeat
+  4762 4012 2617 4012 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 967 7387 m 862 7387 862 7732 105 arcto 4 {pop} repeat
+  862 7837 3007 7837 105 arcto 4 {pop} repeat
+  3112 7837 3112 7492 105 arcto 4 {pop} repeat
+  3112 7387 967 7387 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 4267 7387 m 4162 7387 4162 7732 105 arcto 4 {pop} repeat
+  4162 7837 6307 7837 105 arcto 4 {pop} repeat
+  6412 7837 6412 7492 105 arcto 4 {pop} repeat
+  6412 7387 4267 7387 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 9930 3975 m 9825 3975 9825 4320 105 arcto 4 {pop} repeat
+  9825 4425 11970 4425 105 arcto 4 {pop} repeat
+  12075 4425 12075 4080 105 arcto 4 {pop} repeat
+  12075 3975 9930 3975 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+% Polyline
+n 2617 5137 m 2512 5137 2512 5482 105 arcto 4 {pop} repeat
+  2512 5587 4657 5587 105 arcto 4 {pop} repeat
+  4762 5587 4762 5242 105 arcto 4 {pop} repeat
+  4762 5137 2617 5137 105 arcto 4 {pop} repeat
+ cp gs 0.95 setgray ef gr gs col-1 s gr 
+/Times-Bold ff 210.00 scf sf
+885 4185 m
+gs 1 -1 sc (<Frame>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4455 m
+gs 1 -1 sc (<Scale>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4725 m
+gs 1 -1 sc (<Menu>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+7657 4290 m
+gs 1 -1 sc (<Rectangle>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+3270 4312 m
+gs 1 -1 sc (<Label>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+3232 5437 m
+gs 1 -1 sc (<Button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+1245 7687 m
+gs 1 -1 sc (<Check-button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+4582 7687 m
+gs 1 -1 sc (<Radio-button>) col-1 sh gr
+/Times-Roman ff 210.00 scf sf
+10635 4275 m
+gs 1 -1 sc (<Line>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 4995 m
+gs 1 -1 sc (<Canvas>) col-1 sh gr
+/Times-Bold ff 210.00 scf sf
+885 5265 m
+gs 1 -1 sc (...) col-1 sh gr
+$F2psEnd
+rs
diff --git a/Doc/Isotas96/hierarchy.fig b/Doc/Isotas96/hierarchy.fig
new file mode 100644
index 0000000..dbeded4
--- /dev/null
+++ b/Doc/Isotas96/hierarchy.fig
@@ -0,0 +1,114 @@
+#FIG 2.1
+80 2
+6 389 29 549 59
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 545 59 545 29 392 29 392 59 545 59 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 68 435 50 <Tk-object>

+-6
+6 229 99 384 129
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 381 129 381 99 231 99 231 129 381 129 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 71 271 120 <Tk-widget>

+-6
+6 84 174 239 204
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 236 204 236 174 86 174 86 204 236 204 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 112 105 195 <Tk-simple-widget>

+-6
+6 354 174 504 209
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 504 206 504 176 354 176 354 206 504 206 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 130 364 197 <Tk-composite-widget>

+-6
+6 164 414 319 444
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 316 444 316 414 166 414 166 444 316 444 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 118 182 435 <Tk-complex-button>

+-6
+6 554 104 709 134
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 706 134 706 104 556 104 556 134 706 134 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 9 102 580 123 <Tk-canvas-item>

+-6
+6 374 325 470 373
+4 0 2 12 0 -1 0 0.00000 4 12 96 374 337 <Labeled-Entry>

+4 0 2 12 0 -1 0 0.00000 4 9 79 374 355 <Choice-box>

+4 0 2 18 0 -1 0 0.00000 4 3 15 374 373 ...

+-6
+6 164 264 319 299
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 316 298 316 268 166 268 166 298 316 298 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 44 218 287 <Label>

+-6
+6 164 339 319 374
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 316 371 316 341 166 341 166 371 316 371 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 50 215 360 <Button>

+-6
+6 54 494 209 529
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 206 525 206 495 56 495 56 525 206 525 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 87 86 514 <Check-button>

+-6
+6 274 489 429 524
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 428 523 428 493 278 493 278 523 428 523 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 85 309 512 <Radio-button>

+-6
+6 469 264 624 299
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 621 296 621 266 471 266 471 296 621 296 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 66 511 287 <Rectangle>

+-6
+6 654 264 804 299
+2 4 0 1 -1 0 0 2 0.000 7 0 0
+	 804 299 804 264 654 264 654 299 804 299 9999 9999
+4 0 0 12 0 -1 0 0.00000 4 15 38 709 286 <Line>

+-6
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 2.000 4.000 8.000
+	 467 59 639 104 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 2.000 4.000 8.000
+	 472 59 299 99 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 238 298 238 341 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 239 371 239 414 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 238 445 125 495 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 239 444 365 493 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 294 129 432 176 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 299 129 154 174 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 154 204 244 266 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 154 204 154 204 69 264 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 423 206 9999 9999
+2 1 0 1 -1 0 0 0 0.000 7 1 0
+	0 0 1.000 4.000 8.000
+	 424 209 424 324 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 624 134 544 264 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 624 134 724 264 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 51 58 278 <Frame>

+4 0 2 12 0 -1 0 0.00000 4 2 12 59 330 ...

+4 0 2 12 0 -1 0 0.00000 4 9 45 58 314 <Menu>

+4 0 2 12 0 -1 0 0.00000 4 15 45 58 296 <Scale>

+4 0 0 12 0 -1 0 0.00000 4 15 6 19 19   

diff --git a/Doc/Isotas96/llncs.sty b/Doc/Isotas96/llncs.sty
new file mode 100644
index 0000000..1fac86a
--- /dev/null
+++ b/Doc/Isotas96/llncs.sty
@@ -0,0 +1,794 @@
+% LLNCS DOCUMENT STYLE -- version 1.2
+% for LaTeX version 2.09
+
+% This style file is an adaptation of
+% the original LaTeX article.sty
+
+\typeout{Document Style `llncs', <version 1.2>}
+
+\frenchspacing
+\def~{\penalty\@M\kern3pt}
+
+% Language dependant section
+\def\literaturename{References}
+\def\contentsname{Table of Contents}
+\def\listoffiguresname{List of Figures}
+\def\figurename{Fig.\thinspace}
+\def\listoftablesname{List of Tables}
+\def\tablename{Table }
+\def\abstractname{Abstract.}
+\newif\if@deutsch\@deutschfalse
+%
+\def\ds@deutsch{\typeout{German version}
+\def\literaturename{Literatur}
+\def\contentsname{Inhaltsverzeichnis}
+\def\listoffiguresname{Abbildungsverzeichnis}
+\def\figurename{Abb.\thinspace}
+\def\listoftablesname{Tabellenverzeichnis}
+\def\tablename{Tabelle }
+\def\abstractname{Zusammenfassung.}
+\@deutschtrue}
+
+\def\thebibliography#1{\section*{\literaturename}\small\list
+  {\arabic{enumi}.}{\settowidth\labelwidth{#1.}\leftmargin\labelwidth
+    \advance\leftmargin\labelsep
+    \usecounter{enumi}}
+    \def\newblock{\hskip .11em plus .33em minus -.07em}
+    \sloppy
+    \sfcode`\.=1000\relax}
+
+\def\ds@citeauthoryear{\def\thebibliography##1{\section*{\literaturename}%
+    \small\list{}{\settowidth\labelwidth{}\leftmargin\parindent
+    \itemindent=-\parindent
+    \labelsep=\z@
+    \usecounter{enumi}}%
+    \def\newblock{\hskip .11em plus .33em minus -.07em}%
+    \sloppy
+    \sfcode`\.=1000\relax}%
+    \def\@cite##1{##1}%
+    \def\@lbibitem[##1]##2{\item[]\if@filesw
+      {\def\protect####1{\string ####1\space}\immediate
+    \write\@auxout{\string\bibcite{##2}{##1}}}\fi\ignorespaces}}%
+
+\newif\if@envcountreset\@envcountresetfalse
+\def\ds@envcountreset{\@envcountresettrue}
+
+\def\@mbi{cmmib10}
+\def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
+\@namedef{ds@12pt}{\def\@ptsize{2}}
+\def\ds@twoside{\@twosidetrue \@mparswitchtrue}
+\def\ds@draft{\overfullrule
+5pt}
+\@options
+
+\ds@twoside
+
+\lineskip 1pt \normallineskip 1pt
+\def\baselinestretch{1}
+
+\def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt
+\abovedisplayskip=3 mm plus6pt minus 4pt
+\belowdisplayskip=3 mm plus6pt minus 4pt
+\abovedisplayshortskip=0mm plus6pt minus 2pt
+\belowdisplayshortskip=2 mm plus4pt minus 4pt}
+
+\mathchardef\Gamma="0100
+\mathchardef\Delta="0101
+\mathchardef\Theta="0102
+\mathchardef\Lambda="0103
+\mathchardef\Xi="0104
+\mathchardef\Pi="0105
+\mathchardef\Sigma="0106
+\mathchardef\Upsilon="0107
+\mathchardef\Phi="0108
+\mathchardef\Psi="0109
+\mathchardef\Omega="010A
+
+\def\small{\@setsize\small{11pt}\ixpt\@ixpt
+\abovedisplayskip=2.5 mm plus5pt minus 3pt
+\belowdisplayskip=2.5 mm plus5pt minus 3pt
+\abovedisplayshortskip=0mm plus6pt minus 2pt
+\belowdisplayshortskip=2 mm plus4pt minus 4pt
+\def\@listi{\leftmargin\leftmargini\topsep 4pt plus 2pt minus 2pt}}
+
+\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
+\abovedisplayskip=2.5 mm plus5pt minus 3pt
+\belowdisplayskip=2.5 mm plus5pt minus 3pt
+\abovedisplayshortskip=0mm plus6pt minus 2pt
+\belowdisplayshortskip=2 mm plus4pt minus 4pt
+\def\@listi{\leftmargin\leftmargini\topsep 4pt plus 2pt minus 2pt}}
+
+\def\scriptsize{\@setsize\scriptsize{8.4pt}\viipt\@viipt}
+
+\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
+\def\large{\@setsize\large{13.2pt}\xipt\@xipt}
+\def\Large{\@setsize\Large{14.4pt}\xiipt\@xiipt}
+\def\LARGE{\@setsize\LARGE{16.8pt}\xivpt\@xivpt}
+\def\huge{\@setsize\huge{22pt}\xxpt\@xxpt}
+\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
+\@normalsize
+
+\if@twoside
+   \oddsidemargin  44pt
+   \evensidemargin 82pt
+   \marginparwidth 107pt
+\else \oddsidemargin 63pt \evensidemargin 63pt
+ \marginparwidth 90pt
+\fi
+\marginparsep 11pt
+\topmargin 11pt \headheight 12pt \headsep 13.66pt
+\footheight 12pt \footskip 30pt
+\textwidth 12.2truecm
+\textheight 19.3truecm
+\columnsep 1cc \columnseprule 0pt
+
+\footnotesep 7.7pt
+\skip\footins 9pt plus 4pt minus 2pt
+\floatsep 12pt plus 2pt minus 2pt
+\textfloatsep 8mm plus 2pt minus 4pt
+\intextsep 8mm plus 2pt minus 2pt
+\@maxsep 8mm
+
+\dblfloatsep 12pt plus 2pt minus 2pt
+\dbltextfloatsep 20pt plus 2pt minus 4pt
+\@dblmaxsep 20pt
+
+\@fptop 0pt plus 1fil \@fpsep 8pt plus 2fil \@fpbot 0pt plus 1fil
+\@dblfptop0pt plus1fil \@dblfpsep8pt plus2fil\@dblfpbot 0pt plus1fil
+\marginparpush 5pt
+
+\parskip 0pt plus 1pt \parindent 1.5em \topsep 8pt plus 2pt minus 4pt
+\partopsep 2pt plus 1pt minus 1pt \itemsep \z@
+\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
+\@beginparpenalty-\@lowpenalty\@endparpenalty -\@lowpenalty\@itempenalty
+-\@lowpenalty
+
+\def\vec#1{\mathchoice{\mbox{\boldmath$\displaystyle\bf#1$}}
+{\mbox{\boldmath$\textstyle\bf#1$}}
+{\mbox{\boldmath$\scriptstyle\bf#1$}}
+{\mbox{\boldmath$\scriptscriptstyle\bf#1$}}}
+
+\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
+  \def\@svsec{}\else
+  \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname\quad }\fi
+  \@tempskipa #5\relax
+   \ifdim \@tempskipa>\z@
+  \begingroup #6\relax
+  \noindent{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}
+  \endgroup
+    \csname #1mark\endcsname{#7}\addcontentsline
+   {toc}{#1}{\ifnum #2>\c@secnumdepth \else
+            \protect\numberline{\csname the#1\endcsname}\fi
+          #7}\else
+  \def\@svsechd{#6\hskip #3\@svsec #8\csname #1mark\endcsname
+            {#7}\addcontentsline
+             {toc}{#1}{\ifnum #2>\c@secnumdepth \else
+               \protect\numberline{\csname the#1\endcsname}\fi
+             #7}}\fi
+  \@xsect{#5}}
+
+\def\part{\par \addvspace{4ex} \@afterindentfalse \secdef\@part\@spart}
+
+\def\@part[#1]#2{\ifnum \c@secnumdepth >\m@ne \refstepcounter{part}
+\addcontentsline{toc}{part}{\thepart \hspace{1em}#1}\else
+\addcontentsline{toc}{part}{#1}\fi { \parindent 0pt \raggedright
+ \ifnum \c@secnumdepth >\m@ne \Large \bf
+ Part\thepart\par\nobreak\fi\huge
+\bf #2\markboth{}{}\par } \nobreak \vskip 3ex \@afterheading }
+
+\def\@spart#1{{\parindent 0pt \raggedright
+ \huge \bf
+ #1\par} \nobreak \vskip 3ex \@afterheading }
+
+\def\section{\@startsection {section}{1}{\z@}{-18pt plus -4pt minus
+-4pt}{12pt plus 4pt minus 4pt}{\Large\bf\boldmath
+\pretolerance=10000\relax\rightskip=0pt plus8em}}
+\def\subsection{\@startsection{subsection}{2}{\z@}{-18pt plus-4pt minus
+ -4pt}{8pt plus 4pt minus 4pt}{\normalsize\bf\boldmath
+\pretolerance=10000\relax\rightskip=0pt plus8em}}
+\def\subsubsection{\@startsection{subsubsection}{3}{\z@}{-18pt plus-4pt
+ minus -4pt}{-0.5em plus -.22em minus -0.1em}{\normalsize\bf\boldmath}}
+\def\paragraph{\@startsection{paragraph}{4}{\z@}{-12pt plus -4pt minus
+ -4pt}{-0.5em plus -.22em minus -0.1em}{\normalsize\it}}
+\def\subparagraph#1{\typeout{LLNCS Warning: You should not use
+\protect\subparagraph \space in this style.}\vskip0.5cm
+You should not use $\backslash${\tt subparagraph} in this
+style.\vskip0.5cm}
+
+\setcounter{secnumdepth}{2}
+
+\def\appendix{\par
+ \setcounter{section}{0}
+ \setcounter{subsection}{0}
+ \def\thesection{\Alph{section}}}
+
+\leftmargini 17pt     \leftmarginii 17pt
+\leftmarginiii 17pt   \leftmarginiv 17pt
+\leftmarginv 10pt       \leftmarginvi 10pt
+\leftmargin\leftmargini \labelwidth\leftmargini
+\advance\labelwidth-\labelsep
+\labelsep 5pt
+\parsep 0pt plus 1pt
+\def\@listi{\leftmargin\leftmargini}
+\def\@listii{\leftmargin\leftmarginii
+ \labelwidth\leftmarginii\advance\labelwidth-\labelsep
+ \topsep 0pt plus 1pt}
+\def\@listiii{\leftmargin\leftmarginiii
+ \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
+ \topsep 0pt plus 1pt}
+\def\@listiv{\leftmargin\leftmarginiv
+ \labelwidth\leftmarginiv\advance\labelwidth-\labelsep
+ \topsep 0pt plus 1pt}
+\def\@listv{\leftmargin\leftmarginv
+ \labelwidth\leftmarginv\advance\labelwidth-\labelsep
+ \topsep 0pt plus 1pt}
+\def\@listvi{\leftmargin\leftmarginvi
+ \labelwidth\leftmarginvi\advance\labelwidth-\labelsep
+ \topsep 0pt plus 1pt}
+
+\def\labelenumi{\arabic{enumi}.}
+\def\theenumi{\arabic{enumi}}
+\def\labelenumii{(\alph{enumii})}
+\def\theenumii{\alph{enumii}}
+\def\p@enumii{\theenumi}
+\def\labelenumiii{\roman{enumiii}.}
+\def\theenumiii{\roman{enumiii}}
+\def\p@enumiii{\theenumi(\theenumii)}
+\def\labelenumiv{\Alph{enumiv}.}
+\def\theenumiv{\Alph{enumiv}}
+\def\p@enumiv{\p@enumiii\theenumiii}
+
+\def\labelitemi{\bf --}
+\def\labelitemii{$\bullet$}
+\def\labelitemiii{$\ast$}
+\def\labelitemiv{$\cdot$}
+
+\def\verse{\let\\=\@centercr
+ \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent
+ \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
+\let\endverse\endlist
+\def\quotation{\list{}{\listparindent 1.5em
+ \itemindent\listparindent
+ \rightmargin\leftmargin}\item[]}
+\let\endquotation=\endlist
+\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
+\let\endquote=\endlist
+
+\def\descriptionlabel#1{\hspace\labelsep \bf #1}
+\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
+ \let\makelabel\descriptionlabel}}
+\let\enddescription\endlist
+
+\def\theequation{\arabic{equation}}
+
+\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
+ \else \newpage \fi \thispagestyle{empty}\c@page\z@}
+\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}
+
+\arraycolsep 1.4pt \tabcolsep 1.4pt \arrayrulewidth .4pt \doublerulesep
+2pt
+\tabbingsep \labelsep
+
+\skip\@mpfootins = \skip\footins
+\fboxsep = 3pt \fboxrule = .4pt
+
+\newcounter{part}
+\newcounter {section}
+\newcounter {subsection}[section]
+\newcounter {subsubsection}[subsection]
+\newcounter {paragraph}[subsubsection]
+
+\def\thepart{\Roman{part}}
+\def\thesection {\arabic{section}}
+\def\thesubsection {\thesection.\arabic{subsection}}
+\def\thesubsubsection {\thesubsection.\arabic{subsubsection}}
+\def\theparagraph {\thesubsubsection.\arabic{paragraph}}
+
+\def\@pnumwidth{1.55em}
+\def\@tocrmarg {2.55em}
+\def\@dotsep{4.5}
+\setcounter{tocdepth}{3}
+
+\def\tableofcontents{\section*{\contentsname}
+ \@starttoc{toc}}
+\def\l@part#1#2{\addpenalty{\@secpenalty}
+ \addvspace{2.25em plus 1pt} \begingroup
+ \@tempdima 3em \parindent \z@ \rightskip \@pnumwidth \parfillskip
+-\@pnumwidth
+ {\Large \bf \leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
+ \nobreak \endgroup}
+%
+\def\numberline#1{\advance\hangindent by\@tempdima%
+\hbox to\@tempdima{\hss#1\enspace}}
+%
+\def\bf@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
+  \vskip \z@ plus .2pt
+  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
+    \parindent #2\relax\@afterindenttrue
+   \interlinepenalty\@M
+   \leavevmode
+   \@tempdima #3\relax \advance\leftskip \@tempdima \hbox{}\hskip
+   -\leftskip
+{\bf#4}\nobreak\leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep
+       mu$}\hfill \nobreak \hbox to\@pnumwidth{\hfil\rm #5}\par}\fi}
+%
+\def\l@section{\vskip2mm\bf@dottedtocline{1}{0em}{1.7em}}
+\def\l@subsection{\@dottedtocline{2}{1.7em}{2.3em}}
+\def\l@subsubsection{\@dottedtocline{3}{4em}{2em}}
+\def\l@paragraph{\@dottedtocline{4}{6em}{2em}}
+\def\l@subparagraph{\@dottedtocline{5}{8em}{2em}}
+\def\listoffigures{\section*{\listoffiguresname\markboth
+ {\listoffiguresname}{\listoffiguresname}}\@starttoc{lof}}
+\def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
+\def\listoftables{\section*{\listoftablesname\markboth
+ {\listoftablesname}{\listoftablesname}}\@starttoc{lot}}
+\let\l@table\l@figure
+
+\def\endthebibliography{\endlist\normalsize}
+
+\newif\if@restonecol
+\def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
+\columnseprule \z@
+\columnsep 35pt\twocolumn[\section*{Index}]
+ \markboth{Index}{Index}\thispagestyle{plain}\parindent\z@
+ \parskip\z@ plus .3pt\relax\let\item\@idxitem}
+\def\@idxitem{\par\hangindent 40pt}
+\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
+\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
+\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
+\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}
+
+\def\footnoterule{\kern-3\p@\hrule width 2 true cm\kern 2.6\p@}
+
+\long\def\@makefntext#1{\@setpar{\@@par\@tempdima \hsize
+  \advance\@tempdima-1em\parshape \@ne 1em\@tempdima}\par
+  \parindent 1em\noindent \hbox to \z@{\hss$^{\@thefnmark}$\ }#1}
+
+\setcounter{topnumber}{2}
+\def\topfraction{.9}
+\setcounter{bottomnumber}{1}
+\def\bottomfraction{.3}
+\setcounter{totalnumber}{3}
+\def\textfraction{.15}
+\def\floatpagefraction{.85}
+\setcounter{dbltopnumber}{2}
+\def\dbltopfraction{.85}
+\def\dblfloatpagefraction{.85}
+
+\long\def\@makecaption#1#2{
+ \vskip 10pt
+ \setbox\@tempboxa\hbox{{\bf #1} #2}
+ \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox
+to\hsize{\hfil\box\@tempboxa\hfil}
+ \fi\vskip5pt}
+
+\long\def\@caption#1[#2]#3{\addcontentsline{\csname
+  ext@#1\endcsname}{#1}{\protect\numberline{\csname
+  the#1\endcsname}{\ignorespaces #2}}\par
+  \begingroup
+    \@parboxrestore
+    \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
+  \endgroup}
+
+\newcounter{figure}
+\def\thefigure{\@arabic\c@figure}
+
+\def\fps@figure{htbp}
+\def\ftype@figure{1}
+\def\ext@figure{lof}
+\def\fnum@figure{\figurename\thefigure.}
+\def\figure{\small\rm\@float{figure}}
+\def\endfigure{\vskip-5pt\end@float}
+\@namedef{figure*}{\@dblfloat{figure}}
+\@namedef{endfigure*}{\end@dblfloat}
+
+\newcounter{table}
+\def\thetable{\@arabic\c@table}
+\def\fps@table{htbp}
+\def\ftype@table{2}
+\def\ext@table{lot}
+\def\fnum@table{\tablename\thetable.}
+\def\table{\small\rm\@float{table}}
+\let\endtable\end@float
+\@namedef{table*}{\@dblfloat{table}}
+\@namedef{endtable*}{\end@dblfloat}
+
+% LaTeX does not provide a command to enter the authors institute
+% addresses. The \institute command is defined here.
+
+\newcounter{@inst}
+\newcounter{@auth}
+
+\def\institute#1{\gdef\@institute{#1}}
+
+\def\institutename{\par
+ \begingroup
+ \parskip=\z@
+ \parindent=\z@
+ \setcounter{@inst}{1}%
+ \def\and{\par\stepcounter{@inst}%
+ \noindent$^{\the@inst}$\enspace\ignorespaces}%
+ \setbox0=\vbox{\def\thanks##1{}\@institute}%
+ \ifnum\c@@inst=1\relax
+ \else
+   \setcounter{footnote}{\c@@inst}%
+   \setcounter{@inst}{1}%
+   \noindent$^{\the@inst}$\enspace
+ \fi
+ \ignorespaces
+ \@institute\par
+ \endgroup}
+
+\def\@thanks{}
+
+\def\@fnsymbol#1{\ifcase#1\or\star\or{\star\star}\or{\star\star\star}%
+   \or \dagger\or \ddagger\or
+   \mathchar "278\or \mathchar "27B\or \|\or **\or \dagger\dagger
+   \or \ddagger\ddagger\else\@ctrerr\fi\relax}
+
+\def\inst#1{\unskip$^{#1}$}
+
+\def\subtitle#1{\gdef\@subtitle{#1}}
+\def\@subtitle{}
+
+\def\maketitle{\par
+ \begingroup
+ \parindent=\z@
+ \def\thefootnote{\fnsymbol{footnote}}
+ \if@twocolumn
+ \twocolumn[\@maketitle]
+ \else \newpage
+ \global\@topnum\z@ \@maketitle \fi\thispagestyle{empty}\@thanks
+ \endgroup
+ \let\maketitle\relax
+ \let\@maketitle\relax
+ \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\gdef\@subtitle{}%
+ \let\thanks\relax}
+
+\def\@maketitle{\newpage
+ \begin{center}%
+ {\LARGE \bf\boldmath
+  \pretolerance=10000
+  \@title \par}\vskip .8cm
+\if!\@subtitle!\else {\Large \bf\boldmath
+  \vskip -.65cm
+  \pretolerance=10000
+  \@subtitle \par}\vskip .8cm\fi
+{\normalsize\rm\lineskip .5em
+\@author\vskip.35cm}
+ {\small\rm\institutename}
+ \end{center}%
+ }
+
+\mark{{}{}}
+
+% Define `abstract' environment
+\def\abstract{%
+\list{}{\advance\topsep by0.35cm\relax\small\rm
+ \leftmargin=1cm
+ \labelwidth=\z@
+ \listparindent=\z@
+ \itemindent\listparindent
+ \rightmargin\leftmargin}\item[\hskip\labelsep\bf\abstractname]}
+\let\endabstract=\endlist
+\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
+\let\endquote=\endlist
+
+\def\ps@headings{\def\@evenhead{}%
+\let\@oddhead\@evenhead
+\let\@evenfoot\@evenhead
+\let\@oddfoot\@evenhead
+\def\sectionmark##1{}%
+\def\subsectionmark##1{}}
+\def\ps@myheadings{\let\@mkboth\@gobbletwo
+\def\@oddhead{\hbox{}\small\rm\rightmark \hfil\thepage}%
+\def\@oddfoot{}\def\@evenhead{\small\rm\thepage\hfil
+\leftmark\hbox {}}%
+\def\@evenfoot{}\def\sectionmark##1{}\def\subsectionmark##1{}}
+
+\def\today{\ifcase\month\or
+ January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi
+ \space\number\day, \number\year}
+
+\ps@headings \pagenumbering{arabic} \onecolumn
+\if@twoside\else\raggedbottom\fi
+
+% new environments and theorems
+% borrowed form the LTMP-style of Springer-Verlag
+% designed by Dr. Christoph Ender
+%
+% define the new theorem like environments
+% define a new style of environments where it is possible to define
+% the font % used as the theorem name and the fontfamily for the text.
+%
+% \newstytheorem{name}{thefont}{txtfont}{Text}[Counter]
+% \newstytheorem{name}{thefont}{txtfont}[oldname]{Text}
+%
+% #1 - name of theorem
+% #2 - theorem font
+% #3 - text font
+%
+\def\newstytheorem#1#2#3{%
+\@ifnextchar[{\che@othm{#1}{#2}{#3}}{\che@nthm{#1}{#2}{#3}}}
+%
+% #1 - name of theorem
+% #2 - theorem font
+% #3 - text font
+% #4 - text string of thorem name
+%
+\def\che@nthm#1#2#3#4{%
+\@ifnextchar[{\che@xnthm{#1}{#2}{#3}{#4}}{\che@ynthm{#1}{#2}{#3}{#4}}}
+%
+% #1 - name of theorem
+% #2 - theorem font
+% #3 - text font
+% #4 - text string of thorem name
+% #5 - add theorem counter to reset list of another counter
+%
+\def\che@xnthm#1#2#3#4[#5]{\expandafter
+\@ifdefinable\csname #1\endcsname
+{\@definecounter{#1}\if@envcountreset\@addtoreset{#1}{#5}\fi
+\expandafter\xdef\csname the#1\endcsname{\@thmcounter{#1}}%
+\global\@namedef{#1}{\che@thm{#1}{#4}{#2}{#3}}\global
+\@namedef{end#1}{\@endtheorem}}}
+%
+% #1 - name of theorem
+% #2 - theorem font
+% #3 - text font
+% #4 - text string of thorem name
+%
+\def\che@ynthm#1#2#3#4{\expandafter\@ifdefinable\csname #1\endcsname
+{\@definecounter{#1}%
+\expandafter\xdef\csname the#1\endcsname{\@thmcounter{#1}}%
+\global\@namedef{#1}{\che@thm{#1}{#2}{#3}{#4}}\global
+\@namedef{end#1}{\@endtheorem}}}
+%
+% change oldthm if oldname in specification is '*'
+% then don't use a counter
+% #1 - countername
+% #2 - theorem font
+% #3 - text font
+% #4 - counter used
+% #5 - string containing theorem name to print
+%
+\def\che@othm#1#2#3[#4]#5{\expandafter\@ifdefinable
+\csname#1\endcsname%
+{\@@othm@{#1}{#2}{#3}{#4}{#5}\global\@namedef{end#1}{\@endtheorem}}}
+%
+\def\@@othm@#1#2#3#4#5{\if *#4{\global\@namedef{the#1}{\relax}
+\global\@namedef{#1}{\@bthm@{}{#5}{#2}{#3}}}\else
+{\global\@namedef{the#1}{\@nameuse{the#4}}% define the counter
+\global\@namedef{#1}{\che@thm{#4}{#5}{#2}{#3}}}\fi}
+%
+% new defs for theorem environment che 17-MAR-1989
+% it improves the option possible
+%
+% #1 - countername  = theorem name
+% #2 - string containing theorem name to print
+% #3 - theorem font
+% #4 - text font
+\def\che@thm#1#2#3#4{\@ifnextchar({\@athm{#1}{#2}{#3}{#4}}{%
+\@ifnextchar *{\@bthm{#1}{#2}{#3}{#4}}%
+{\@@thm{#1}{#2}{#3}{#4}}}}
+%
+% \begin{thm}(A.1)[test]      results in:
+% \end{thm}                               thm A.1 (test) ....
+% #1 - theorem
+% #2 - string of theorem name
+% #3 - font for theorem name and label
+% #4 - Text font
+% #5 - is the new label
+% #6 - optional string
+%
+\def\@athm#1#2#3#4(#5){\@ifnextchar[{%
+\@aythm{#1}{#2}{#3}{#4}{#5}}{\@axthm{#1}{#2}{#3}{#4}{#5}}}
+\def\@axthm#1#2#3#4#5{\@@locthmlab{#1}{#5}%
+\@begintheorem{#2}{#5}{#3}{#4}\ignorespaces}
+\def\@aythm#1#2#3#4#5[#6]{\@@locthmlab{#1}{#5}%
+\fuh@opargbegintheorem{#2}{#5}{#6}{#3}{#4}\ignorespaces}
+%
+% \begin{thm}*[xytest]        results in:
+% \end{thm}                               thm (xytest) ....
+% #1 - theorem
+% #2 - string of theorem name
+% #3 - font for theorem name and label
+% #4 - Text font
+% #5 - optional string
+%
+\def\@bthm@#1#2#3#4{\@ifnextchar[{\@bythm{#1}{#2}{#3}{#4}}{%
+\@bxthm{#1}{#2}{#3}{#4}}}
+\def\@bthm#1#2#3#4*{\@ifnextchar[{\@bythm{#1}{#2}{#3}{#4}}{%
+\@bxthm{#1}{#2}{#3}{#4}}}
+\def\@bxthm#1#2#3#4{\if !#1!\relax\else\@@locthmlab{#1}{}\fi
+\@@begintheorem{#2}{#3}{#4}\ignorespaces}
+\def\@bythm#1#2#3#4[#5]{%
+\@@opargbegintheorem{#2}{#3}{#4}{#5}\ignorespaces}
+%
+% define local label
+%   if no number or a user specified label occured
+%
+\def\@@locthmlab#1#2{\expandafter\def\csname the#1\endcsname{#2}
+\let\@chetempa\protect\def\protect{\noexpand\protect\noexpand}%
+\edef\@currentlabel{\csname p@#1\endcsname\csname the#1\endcsname}%
+\let\protect\@chetempa}
+%
+% #1 - counter = theorem name
+% #2 - string with name
+% #3 - font for theorem name and label
+% #4 - font for text
+\def\@@thm#1#2#3#4{\refstepcounter
+    {#1}\@ifnextchar[{\che@ythm{#1}{#2}{#3}{#4}}{%
+    \che@xthm{#1}{#2}{#3}{#4}}}
+%
+\def\che@xthm#1#2#3#4{\che@begintheorem{#2}{\csname
+the#1\endcsname}{#3}{#4}\ignorespaces}
+\def\che@ythm#1#2#3#4[#5]{\che@opargbegintheorem{#2}{\csname
+       the#1\endcsname}{#5}{#3}{#4}\ignorespaces}
+%
+% #1 - name of theorem
+% #2 - label string
+% #3 - font for name and lable
+% #4 - text fomt
+%
+\def\che@begintheorem#1#2#3#4{#4\trivlist\item[\hskip\labelsep
+#3#1\ts #2.]}
+%
+% #1 - name of theorem
+% #2 - label string
+% #3 - additonal text
+% #4 - font for name and lable
+% #5 - text fomt
+%
+\def\che@opargbegintheorem#1#2#3#4#5{#5\trivlist
+\item[\hskip\labelsep#4#1\ts #2\ #3.]}
+%
+\def\fuh@opargbegintheorem#1#2#3{\it \trivlist
+      \item[\hskip \labelsep{\bf #1\ #2\ (#3).}]}
+%
+\def\@@begintheorem#1#2#3{#3\trivlist\item[\hskip\labelsep
+#2#1.]}
+\def\@@opargbegintheorem#1#2#3#4{#3\trivlist\item[\hskip\labelsep
+#2#1 #4.]}
+
+\if@deutsch
+\newstytheorem{theorem}{\bf}{\it}{Theorem}[section]
+\newstytheorem{example}{\it}{\rm}{Beispiel}[section]
+\newstytheorem{proposition}{\bf}{\it}[theorem]{Proposition}
+\newstytheorem{corollary}{\bf}{\it}[theorem]{Korollar}
+\newstytheorem{lemma}{\bf}{\it}[theorem]{Lemma}
+\newstytheorem{proof}{\it}{\rm}[*]{Beweis}
+\newstytheorem{definition}{\bf}{\rm}[theorem]{Definition}
+\newstytheorem{remark}{\it}{\rm}[*]{Anmerkung}
+\newstytheorem{exercise}{\it}{\rm}[theorem]{\"{U}bung}
+\newstytheorem{problem}{\it}{\rm}[theorem]{Problem}
+\newstytheorem{solution}{\it}{\rm}[theorem]{L\"{o}sung}
+\newstytheorem{note}{\it}{\rm}[theorem]{Hinweis}
+\newstytheorem{question}{\it}{\rm}[theorem]{Frage}
+\else
+\newstytheorem{theorem}{\bf}{\it}{Theorem}[section]
+\newstytheorem{example}{\it}{\rm}{Example}[section]
+\newstytheorem{proposition}{\bf}{\it}[theorem]{Proposition}
+\newstytheorem{corollary}{\bf}{\it}[theorem]{Corollary}
+\newstytheorem{lemma}{\bf}{\it}[theorem]{Lemma}
+\newstytheorem{proof}{\it}{\rm}[*]{Proof}
+\newstytheorem{definition}{\bf}{\rm}[theorem]{Definition}
+\newstytheorem{remark}{\it}{\rm}[*]{Remark}
+\newstytheorem{exercise}{\it}{\rm}[theorem]{Exercise}
+\newstytheorem{problem}{\it}{\rm}[theorem]{Problem}
+\newstytheorem{solution}{\it}{\rm}[theorem]{Solution}
+\newstytheorem{note}{\it}{\rm}[theorem]{Note}
+\newstytheorem{question}{\it}{\rm}[theorem]{Question}
+\fi
+
+\def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}}
+\def\qed{\ifmmode\squareforqed\else{\unskip\nobreak\hfil
+\penalty50\hskip1em\null\nobreak\hfil\squareforqed
+\parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi}
+
+\def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip
+\halign{\hfil
+$\displaystyle##$\hfil\cr\gets\cr\to\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\gets
+\cr\to\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\gets
+\cr\to\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
+\gets\cr\to\cr}}}}}
+\def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
+$\displaystyle##$\hfil\cr<\cr\noalign{\vskip1.2pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr
+\noalign{\vskip1.2pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr
+\noalign{\vskip1pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
+<\cr
+\noalign{\vskip0.9pt}=\cr}}}}}
+\def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
+$\displaystyle##$\hfil\cr>\cr\noalign{\vskip1.2pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr
+\noalign{\vskip1.2pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr
+\noalign{\vskip1pt}=\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
+>\cr
+\noalign{\vskip0.9pt}=\cr}}}}}
+\def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip
+\halign{\hfil
+$\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1pt}<\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr
+>\cr\noalign{\vskip-1pt}<\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr
+>\cr\noalign{\vskip-0.8pt}<\cr}}}
+{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
+>\cr\noalign{\vskip-0.3pt}<\cr}}}}}
+\def\bbbr{{\rm I\!R}} %reelle Zahlen
+\def\bbbm{{\rm I\!M}}
+\def\bbbn{{\rm I\!N}} %natuerliche Zahlen
+\def\bbbf{{\rm I\!F}}
+\def\bbbh{{\rm I\!H}}
+\def\bbbk{{\rm I\!K}}
+\def\bbbp{{\rm I\!P}}
+\def\bbbone{{\mathchoice {\rm 1\mskip-4mu l} {\rm 1\mskip-4mu l}
+{\rm 1\mskip-4.5mu l} {\rm 1\mskip-5mu l}}}
+\def\bbbc{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm C$}\hbox{\hbox
+to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\textstyle\rm C$}\hbox{\hbox
+to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptstyle\rm C$}\hbox{\hbox
+to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptscriptstyle\rm C$}\hbox{\hbox
+to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}}}
+\def\bbbq{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm
+Q$}\hbox{\raise
+0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
+{\setbox0=\hbox{$\textstyle\rm Q$}\hbox{\raise
+0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptstyle\rm Q$}\hbox{\raise
+0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptscriptstyle\rm Q$}\hbox{\raise
+0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}}}
+\def\bbbt{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm
+T$}\hbox{\hbox to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\textstyle\rm T$}\hbox{\hbox
+to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptstyle\rm T$}\hbox{\hbox
+to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptscriptstyle\rm T$}\hbox{\hbox
+to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}}}
+\def\bbbs{{\mathchoice
+{\setbox0=\hbox{$\displaystyle     \rm S$}\hbox{\raise0.5\ht0\hbox
+to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
+to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
+{\setbox0=\hbox{$\textstyle        \rm S$}\hbox{\raise0.5\ht0\hbox
+to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
+to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptstyle      \rm S$}\hbox{\raise0.5\ht0\hbox
+to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
+to0pt{\kern0.5\wd0\vrule height0.45\ht0\hss}\box0}}
+{\setbox0=\hbox{$\scriptscriptstyle\rm S$}\hbox{\raise0.5\ht0\hbox
+to0pt{\kern0.4\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
+to0pt{\kern0.55\wd0\vrule height0.45\ht0\hss}\box0}}}}
+\def\bbbz{{\mathchoice {\hbox{$\sf\textstyle Z\kern-0.4em Z$}}
+{\hbox{$\sf\textstyle Z\kern-0.4em Z$}}
+{\hbox{$\sf\scriptstyle Z\kern-0.3em Z$}}
+{\hbox{$\sf\scriptscriptstyle Z\kern-0.2em Z$}}}}
+\def\ts{\thinspace}
+
+\if@deutsch
+\def\typeset{\vfill\small\noindent Dieser Artikel wurde mit
+dem \LaTeX\ Makro-Paket und dem LLNCS-Style formatiert.\par}
+\else
+%\def\typeset{\vfill\small\noindent This article was processed using
+%the \LaTeX\ macro package with LLNCS style\par}
+\def\typeset{\vfill\small\noindent{\ }}
+\fi
+
+\def\enddocument{\par\typeset
+\@checkend{document}\clearpage\begingroup
+\if@filesw \immediate\closeout\@mainaux
+\def\global\@namedef##1##2{}\def\newlabel{\@testdef r}%
+\def\bibcite{\@testdef b}\@tempswafalse\makeatletter\input \jobname.aux
+\if@tempswa \@warning{Label(s) may have changed. Rerun to get
+cross-references right}\fi\fi\endgroup\deadcycles\z@\@@end}
+
diff --git a/Doc/Isotas96/mop.stk b/Doc/Isotas96/mop.stk
new file mode 100644
index 0000000..8bac7f3
--- /dev/null
+++ b/Doc/Isotas96/mop.stk
@@ -0,0 +1,170 @@
+;;;;
+;;;; {\bf Utilities}
+;;;;
+(define make-tk-name 
+  (lambda (parent)
+    (gensym (format #f "~A.v" (if (eq? parent *root*) "" (Id parent))))))
+
+(define split-options
+  (lambda (valid-slots initargs)
+    (letrec 
+        ((separate 
+          (lambda (valids args tk-opt other)
+            (if (null? args)
+                (cons tk-opt other)
+                (if (member (car args) valids)
+                    (separate valids (cddr args)
+                              (list* (car args) (cadr args) tk-opt)
+                              other)
+                    (separate valids (cddr args)
+                              tk-opt 
+                              (list* (car args) (cadr args) other)))))))
+      (separate valid-slots initargs '() '()))))
+
+;;;;
+;;;; {\bf Simple widgets}
+;;;;
+;; 
+;; <Tk-metaclass> class definition and associated methods
+;;
+(define-class <Tk-Metaclass> (<class>)
+  ((valid-options :accessor Tk-valid-options)))
+
+
+(define-method initialize ((class <Tk-Metaclass>) initargs)
+  (next-method)
+  ;; Build a list of allowed keywords. These keywords will be passed to
+  ;; the Tk-command at build time
+  (let ((slots        (slot-ref class 'slots))
+        (res         '())
+        (tk-virtual?  (lambda(s) 
+                        (eqv? (get-slot-allocation s) :tk-virtual))))
+    (for-each (lambda (s)
+                (when (tk-virtual? s)
+                  (let ((key (make-keyword (car s))))
+                    (set! res (cons key res)))))
+              slots)
+    ;; Store this list in the new allocated class
+    (set! (Tk-valid-options class) res)))
+
+
+(define-method compute-get-n-set ((class <Tk-Metaclass>) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      ;; this is a Tk-virtual slot
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (o)   (list-ref ((Id o) 'configure opt) 4))
+              (lambda (o v) ((Id o) 'configure opt v))))
+      ;; call super compute-get-n-set
+      (next-method)))
+
+;;
+;; Basic virtual classes for widgets: <Tk-object>, <Tk-widget> and 
+;; <Tk-simple-widget>
+;;
+(define-class <Tk-object> ()
+  ((Id      :accessor Id)                             ;; Widget Id
+   (parent  :accessor parent :init-keyword :parent))) ;; Parent widget
+
+(define-class <Tk-widget> (<Tk-object>)
+  ())
+
+
+
+(define-class <Tk-simple-widget> (<Tk-widget>)
+  ;; Each widget has at least the slot bg for its background colour
+  ((bg :accessor bg :init-keyword :bg :allocation :tk-virtual))
+  :metaclass <Tk-Metaclass>)
+
+
+(define-method initialize ((self <Tk-simple-widget>) initargs)
+  ;; Use split-options on initargs to separate STklos slots 
+  ;; from Tk ones. Set parent to the root window if not specified
+  ;; in initargs
+  (let* ((options (split-options (Tk-valid-options (class-of self))
+				 initargs))
+         (parent  (get-keyword :parent (cdr options) *root*)))
+    ;; Call the Tk command which creates the widget
+    (set! (Id self) (apply (tk-constructor self)
+                           (make-tk-name parent) 
+                           (car options)))
+    ;; Initialize other slots (i.e. non Tk-virtual ones)
+    (next-method self (cdr options))))
+
+
+;;
+;; We can now define three widget classes: <Label>, <Button> and <Canvas>
+;; as well as their associated Tk-command
+;;
+(define-class <Label> (<Tk-simple-widget>)
+  ((font :accessor font :init-keyword :font :allocation :tk-virtual)
+   (text :accessor text :init-keyword :text :allocation :tk-virtual)))
+
+(define-class <Button> (<Label>)
+  ((command :accessor command :init-keyword :command 
+	    :allocation :tk-virtual)))
+
+(define-class <Canvas> (<Tk-simple-widget>)
+  ())
+
+(define-method tk-constructor ((self <Label>))  label)
+(define-method tk-constructor ((self <Button>)) button)
+(define-method tk-constructor ((self <Canvas>)) canvas)
+
+
+;;;;
+;;;; {\bf Canvas items widgets}
+;;;;
+;; 
+;; <Tk-item-metaclass> class definition and associated methods  
+;; 
+
+(define-class <Tk-item-metaclass> (<Tk-Metaclass>)
+  ())
+
+(define-method compute-get-n-set ((class <Tk-item-metaclass>) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      ;; this is a Tk-virtual slot
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (obj)   
+		(list-ref ((Id obj) 'itemconfigure (Cid obj) opt) 4))
+              (lambda (obj val) 
+		((Id obj) 'itemconfigure (Cid obj) opt val))))
+      ;; call super compute-get-n-set
+      (next-method)))
+
+;;
+;; Basic virtual class: <Tk-canvas-item> 
+;;
+(define-class <Tk-canvas-item> (<Tk-object>)
+  ((Cid :accessor  Cid)
+   (width :accessor width :allocation :tk-virtual))
+  :metaclass <Tk-item-metaclass>)
+
+
+(define-method initialize ((self <Tk-canvas-item>) initargs)
+  (let* ((options (split-options (Tk-valid-options (class-of self))
+				 initargs))
+         (parent  (get-keyword :parent (cdr options) #f))
+         (coords  (get-keyword :coords (cdr options) #f)))
+    (if (not (and parent coords))
+	(error "Parent widget and coordinates must be given!!"))
+    (set! (Id  self) (Id parent))
+    (set! (CId self) (apply (Id parent) 
+                            'create
+                            (canvas-item-initializer self)
+                            (append coords (car options))))
+    ;; Initialize other slots (i.e. non Tk-virtual ones)
+    (next-method self (cdr options))))
+
+;;
+;; We can now define two canvas item classes: <Line> and <Rectangle>
+;; as well as their associated initializer
+;;
+(define-class <Line>      (<Tk-canvas-item>)
+  ())
+
+(define-class <Rectangle> (<Tk-canvas-item>)
+  ((fill  :accessor fill :init-keyword :fill :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer ((self <Rectangle>)) "rectangle")
+(define-method canvas-item-initializer ((self <Line>))      "line")
diff --git a/Doc/Isotas96/mop.tex b/Doc/Isotas96/mop.tex
new file mode 100644
index 0000000..c5476ab
--- /dev/null
+++ b/Doc/Isotas96/mop.tex
@@ -0,0 +1,172 @@
+\begin{alltt}
+{\it ;;;;}
+{\it ;;;; {\bf Utilities}}
+{\it ;;;;}
+(define make-tk-name 
+  (lambda (parent)
+    (gensym (format #f "~A.v" (if (eq? parent *root*) "" (Id parent))))))
+
+(define split-options
+  (lambda (valid-slots initargs)
+    (letrec 
+        ((separate 
+          (lambda (valids args tk-opt other)
+            (if (null? args)
+                (cons tk-opt other)
+                (if (member (car args) valids)
+                    (separate valids (cddr args)
+                              (list* (car args) (cadr args) tk-opt)
+                              other)
+                    (separate valids (cddr args)
+                              tk-opt 
+                              (list* (car args) (cadr args) other)))))))
+      (separate valid-slots initargs '() '()))))
+
+{\it ;;;;}
+{\it ;;;; {\bf Simple widgets}}
+{\it ;;;;}
+{\it ;; }
+{\it ;; {\tt{}<}Tk-metaclass{\tt{}>} class definition and associated methods}
+{\it ;;}
+(define-class {\tt{}<}Tk-Metaclass{\tt{}>} ({\tt{}<}class{\tt{}>})
+  ((valid-options :accessor Tk-valid-options)))
+
+
+(define-method initialize ((class {\tt{}<}Tk-Metaclass{\tt{}>}) initargs)
+  (next-method)
+  {\it ;; Build a list of allowed keywords. These keywords will be passed to}
+  {\it ;; the Tk-command at build time}
+  (let ((slots        (slot-ref class 'slots))
+        (res         '())
+        (tk-virtual?  (lambda(s) 
+                        (eqv? (get-slot-allocation s) :tk-virtual))))
+    (for-each (lambda (s)
+                (when (tk-virtual? s)
+                  (let ((key (make-keyword (car s))))
+                    (set! res (cons key res)))))
+              slots)
+    {\it ;; Store this list in the new allocated class}
+    (set! (Tk-valid-options class) res)))
+
+
+(define-method compute-get-n-set ((class {\tt{}<}Tk-Metaclass{\tt{}>}) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      {\it ;; this is a Tk-virtual slot}
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (o)   (list-ref ((Id o) 'configure opt) 4))
+              (lambda (o v) ((Id o) 'configure opt v))))
+      {\it ;; call super compute-get-n-set}
+      (next-method)))
+
+{\it ;;}
+{\it ;; Basic virtual classes for widgets: {\tt{}<}Tk-object{\tt{}>}, {\tt{}<}Tk-widget{\tt{}>} and }
+{\it ;; {\tt{}<}Tk-simple-widget{\tt{}>}}
+{\it ;;}
+(define-class {\tt{}<}Tk-object{\tt{}>} ()
+  ((Id      :accessor Id)                             {\it ;; Widget Id}
+   (parent  :accessor parent :init-keyword :parent))) {\it ;; Parent widget}
+
+(define-class {\tt{}<}Tk-widget{\tt{}>} ({\tt{}<}Tk-object{\tt{}>})
+  ())
+
+
+
+(define-class {\tt{}<}Tk-simple-widget{\tt{}>} ({\tt{}<}Tk-widget{\tt{}>})
+  {\it ;; Each widget has at least the slot bg for its background colour}
+  ((bg :accessor bg :init-keyword :bg :allocation :tk-virtual))
+  :metaclass {\tt{}<}Tk-Metaclass{\tt{}>})
+
+
+(define-method initialize ((self {\tt{}<}Tk-simple-widget{\tt{}>}) initargs)
+  {\it ;; Use split-options on initargs to separate STklos slots }
+  {\it ;; from Tk ones. Set parent to the root window if not specified}
+  {\it ;; in initargs}
+  (let* ((options (split-options (Tk-valid-options (class-of self))
+                                 initargs))
+         (parent  (get-keyword :parent (cdr options) *root*)))
+    {\it ;; Call the Tk command which creates the widget}
+    (set! (Id self) (apply (tk-constructor self)
+                           (make-tk-name parent) 
+                           (car options)))
+    {\it ;; Initialize other slots (i.e. non Tk-virtual ones)}
+    (next-method self (cdr options))))
+
+
+{\it ;;}
+{\it ;; We can now define three widget classes: {\tt{}<}Label{\tt{}>}, {\tt{}<}Button{\tt{}>} and {\tt{}<}Canvas{\tt{}>}}
+{\it ;; as well as their associated Tk-command}
+{\it ;;}
+(define-class {\tt{}<}Label{\tt{}>} ({\tt{}<}Tk-simple-widget{\tt{}>})
+  ((font :accessor font :init-keyword :font :allocation :tk-virtual)
+   (text :accessor text :init-keyword :text :allocation :tk-virtual)))
+
+(define-class {\tt{}<}Button{\tt{}>} ({\tt{}<}Label{\tt{}>})
+  ((command :accessor command :init-keyword :command 
+            :allocation :tk-virtual)))
+
+(define-class {\tt{}<}Canvas{\tt{}>} ({\tt{}<}Tk-simple-widget{\tt{}>})
+  ())
+
+(define-method tk-constructor ((self {\tt{}<}Label{\tt{}>}))  label)
+(define-method tk-constructor ((self {\tt{}<}Button{\tt{}>})) button)
+(define-method tk-constructor ((self {\tt{}<}Canvas{\tt{}>})) canvas)
+
+
+{\it ;;;;}
+{\it ;;;; {\bf Canvas items widgets}}
+{\it ;;;;}
+{\it ;; }
+{\it ;; {\tt{}<}Tk-item-metaclass{\tt{}>} class definition and associated methods  }
+{\it ;; }
+
+(define-class {\tt{}<}Tk-item-metaclass{\tt{}>} ({\tt{}<}Tk-Metaclass{\tt{}>})
+  ())
+
+(define-method compute-get-n-set ((class {\tt{}<}Tk-item-metaclass{\tt{}>}) slot)
+  (if (eqv? (get-slot-allocation slot) :tk-virtual)
+      {\it ;; this is a Tk-virtual slot}
+      (let ((opt (make-keyword (car slot))))
+        (list (lambda (obj)   
+                (list-ref ((Id obj) 'itemconfigure (Cid obj) opt) 4))
+              (lambda (obj val) 
+                ((Id obj) 'itemconfigure (Cid obj) opt val))))
+      {\it ;; call super compute-get-n-set}
+      (next-method)))
+
+{\it ;;}
+{\it ;; Basic virtual class: {\tt{}<}Tk-canvas-item{\tt{}>} }
+{\it ;;}
+(define-class {\tt{}<}Tk-canvas-item{\tt{}>} ({\tt{}<}Tk-object{\tt{}>})
+  ((Cid :accessor  Cid)
+   (width :accessor width :allocation :tk-virtual))
+  :metaclass {\tt{}<}Tk-item-metaclass{\tt{}>})
+
+
+(define-method initialize ((self {\tt{}<}Tk-canvas-item{\tt{}>}) initargs)
+  (let* ((options (split-options (Tk-valid-options (class-of self))
+                                 initargs))
+         (parent  (get-keyword :parent (cdr options) #f))
+         (coords  (get-keyword :coords (cdr options) #f)))
+    (if (not (and parent coords))
+        (error "Parent widget and coordinates must be given!!"))
+    (set! (Id  self) (Id parent))
+    (set! (CId self) (apply (Id parent) 
+                            'create
+                            (canvas-item-initializer self)
+                            (append coords (car options))))
+    {\it ;; Initialize other slots (i.e. non Tk-virtual ones)}
+    (next-method self (cdr options))))
+
+{\it ;;}
+{\it ;; We can now define two canvas item classes: {\tt{}<}Line{\tt{}>} and {\tt{}<}Rectangle{\tt{}>}}
+{\it ;; as well as their associated initializer}
+{\it ;;}
+(define-class {\tt{}<}Line{\tt{}>}      ({\tt{}<}Tk-canvas-item{\tt{}>})
+  ())
+
+(define-class {\tt{}<}Rectangle{\tt{}>} ({\tt{}<}Tk-canvas-item{\tt{}>})
+  ((fill  :accessor fill :init-keyword :fill :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer ((self {\tt{}<}Rectangle{\tt{}>})) "rectangle")
+(define-method canvas-item-initializer ((self {\tt{}<}Line{\tt{}>}))      "line")
+\end{alltt}
diff --git a/Doc/LaTeX-packages/%README b/Doc/LaTeX-packages/%README
new file mode 100644
index 0000000..307d33f
--- /dev/null
+++ b/Doc/LaTeX-packages/%README
@@ -0,0 +1,5 @@
+This directory contains files which are used in various doc files but which 
+are not distributed in some LaTeX versions.
+This are mainly files for using A4 paper. 
+You must place this directory in your TEXINPUTS shell variable if you want to use 
+one of this file. 
diff --git a/Doc/LaTeX-packages/a4.sty b/Doc/LaTeX-packages/a4.sty
new file mode 100644
index 0000000..905aef9
--- /dev/null
+++ b/Doc/LaTeX-packages/a4.sty
@@ -0,0 +1,150 @@
+%% 
+%% This is file `a4.sty', generated 
+%% on <1995/8/21> with the docstrip utility (2.2i).
+%% 
+%% The original source files were:
+%% 
+%% a4.dtx  (with options: `package')
+%% 
+%% Copyright (C) 1994,1995 Nederlandstalige TeX Gebruikersgroep. 
+%% All rights reserved. 
+%% For additional copyright information see further down in this file. 
+%% 
+%% This file is part of the NTG document classes distribution 
+%% ---------------------------------------------------------- 
+%% 
+%% This file is distributed in the hope that it will be useful, 
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
+%% 
+%% 
+%% IMPORTANT NOTICE: 
+%% 
+%% For error reports in case of UNCHANGED versions see readme file. 
+%% 
+%% Please do not request updates from us directly. Distribution is 
+%% done through Mail-Servers and TeX organizations. 
+%% 
+%% You are not allowed to change this file. 
+%% 
+%% You are allowed to distribute this file under the condition that 
+%% it is distributed together with all files mentioned in 00readme.txt. 
+%% 
+%% If you receive only some of these files from someone, complain! 
+%% 
+%% You are NOT ALLOWED to distribute this file alone. You are NOT 
+%% ALLOWED to take money for the distribution or use of either this 
+%% file or a changed version, except for a nominal charge for copying 
+%% etc. 
+\ifx\ProvidesPackage\undefined
+  \def\ProvidesPackage#1[#2 #3 #4]{%
+    \wlog{LaTeX Package `#1' #3 <#2> #4}}
+\fi
+\ProvidesPackage{a4}
+       [1995/08/10 v1.2d A4 based page layout]
+\ifx\documentclass\undefined
+\else
+  \DeclareOption{widemargins}{\WideMargins}
+\fi
+
+\topmargin 0pt
+\ifcase \@ptsize
+    \textheight 53\baselineskip
+\or
+    \textheight 46\baselineskip
+\or
+    \textheight 42\baselineskip
+\fi
+\advance\textheight by \topskip
+\ifcase \@ptsize
+    \textwidth      5.00in
+    \marginparwidth 1.00in
+  \if@twoside
+    \oddsidemargin  0.55in
+    \evensidemargin 0.75in
+  \else
+    \oddsidemargin  0.55in
+    \evensidemargin 0.55in
+  \fi
+\or
+    \textwidth      5.20in
+    \marginparwidth 1.00in
+  \if@twoside
+    \oddsidemargin  0.45in
+    \evensidemargin 0.65in
+  \else
+    \oddsidemargin  0.45in
+    \evensidemargin 0.45in
+  \fi
+\or
+    \textwidth      5.70in
+    \marginparwidth 0.80in
+  \if@twoside
+    \oddsidemargin  0.20in
+    \evensidemargin 0.40in
+  \else
+    \oddsidemargin  0.20in
+    \evensidemargin 0.20in
+  \fi
+\fi
+\def\WideMargins{%
+  \newdimen\ExtraWidth
+  \ifcase \@ptsize
+    \ExtraWidth = 0.5in
+    \@widemargins
+  \or
+    \ExtraWidth = 0.5in
+    \@widemargins
+  \or
+    \ExtraWidth = 0.7in
+    \@widemargins
+  \fi\let\WideMargins\relax\let\@widemargins\relax}
+{\def\do{\noexpand\do\noexpand}
+ \xdef\@preamblecmds{\@preamblecmds \do\WideMargins}
+}
+\def\@widemargins{%
+    \global\advance\textwidth by -\ExtraWidth
+    \global\advance\marginparwidth by \ExtraWidth
+    \if@twoside
+      \tw@sidedwidemargins
+    \else
+      \@nesidedwidemargins
+    \fi}
+\def\tw@sidedwidemargins{%
+    \if@reversemargin
+      \@tempdima=\evensidemargin
+      \advance\@tempdima by -\oddsidemargin
+      \advance\oddsidemargin by \ExtraWidth
+      \advance\oddsidemargin by \@tempdima
+      \advance\evensidemargin by -\@tempdima
+    \else
+      \advance\evensidemargin by \ExtraWidth
+    \fi}
+\def\@nesidedwidemargins{%
+    \if@reversemargin
+      \advance\oddsidemargin by \ExtraWidth
+      \advance\evensidemargin by \ExtraWidth
+    \fi}
+\ifx\documentclass\undefined
+\else
+  \ProcessOptions
+\fi
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+\endinput
+%% 
+%% End of file `a4.sty'.
diff --git a/Doc/LaTeX-packages/a4wide.sty b/Doc/LaTeX-packages/a4wide.sty
new file mode 100644
index 0000000..2985221
--- /dev/null
+++ b/Doc/LaTeX-packages/a4wide.sty
@@ -0,0 +1,36 @@
+%
+% "moretext" document style option.
+% Jean-Francois Lamy, July 86
+%
+% Redefines the margins so that they are more in line with 
+% what we are used to see.
+%
+
+\input a4.sty
+
+\ifcase \@ptsize
+    % mods for 10 pt
+    \oddsidemargin  0.15 in     %   Left margin on odd-numbered pages.
+    \evensidemargin 0.35 in     %   Left margin on even-numbered pages.
+    \marginparwidth 1 in        %   Width of marginal notes.
+    \oddsidemargin 0.25 in      %   Note that \oddsidemargin = \evensidemargin
+    \evensidemargin 0.25 in
+    \marginparwidth 0.75 in
+    \textwidth 5.875 in % Width of text line.
+\or % mods for 11 pt
+    \oddsidemargin 0.1 in      %   Left margin on odd-numbered pages.
+    \evensidemargin 0.15 in    %   Left margin on even-numbered pages.
+    \marginparwidth 1 in       %   Width of marginal notes.
+    \oddsidemargin 0.125 in    %   Note that \oddsidemargin = \evensidemargin
+    \evensidemargin 0.125 in
+    \marginparwidth 0.75 in
+    \textwidth 6.125 in % Width of text line.
+\or % mods for 12 pt
+    \oddsidemargin -10 pt      %   Left margin on odd-numbered pages.
+    \evensidemargin 10 pt      %   Left margin on even-numbered pages.
+    \marginparwidth 1 in       %   Width of marginal notes.
+    \oddsidemargin 0 in      %   Note that \oddsidemargin = \evensidemargin
+    \evensidemargin 0 in
+    \marginparwidth 0.75 in
+    \textwidth 6.375 true in % Width of text line.
+\fi
diff --git a/Doc/LaTeX-packages/moreverb.sty b/Doc/LaTeX-packages/moreverb.sty
new file mode 100644
index 0000000..ea6d0db
--- /dev/null
+++ b/Doc/LaTeX-packages/moreverb.sty
@@ -0,0 +1,184 @@
+%%% moreverb.sty
+%%% AJCD 20 Sep 91
+%%% adds various verbatim environments using Rainer Sch\"opf's new verbatim
+%%% environment.
+
+%%% load verbatim style if not already loaded.
+\@ifundefined{verbatim@processline}{\input verbatim.sty}{}
+
+%%% verbatimwrite writes all text in its body to a file, the name of which it
+%%% is given as an argument. Written by RmS.
+\newwrite \verbatim@out
+\def\verbatimwrite#1{%
+  \@bsphack
+  \immediate\openout \verbatim@out #1
+  \let\do\@makeother\dospecials
+  \catcode`\^^M\active \catcode`\^^I=12
+  \def\verbatim@processline{%
+    \immediate\write\verbatim@out
+      {\the\verbatim@line}}%
+  \verbatim@start}
+
+\def\endverbatimwrite{%
+  \immediate\closeout\verbatim@out
+  \@esphack}
+
+%%% Auxiliary macros and counters for expanding tabs. Use by listing and
+%%% verbatimtab environments.
+\newcount\tab@position \newcount\tab@size
+\newcount\verbatimtabsize \verbatimtabsize=8
+\def\@xobeytab{\leavevmode\penalty\@M
+   {\loop\ \global\advance\tab@position-1 \ifnum\tab@position>0 \repeat}}
+\begingroup
+  \catcode`\^^I=\active
+  \gdef\@vobeytabs{\catcode`\^^I\active\let^^I\@xobeytab}%
+\endgroup
+\def\verbatim@tabexpand#1{%
+  \ifx#1\@nil \let\next\par \else
+    \ifx#1\@xobeysp \@xobeysp\advance\tab@position-1 \else
+    \ifx#1\@xobeytab \@xobeytab\else
+       #1\advance\tab@position-1
+    \fi\fi
+    \ifnum\tab@position=0 \tab@position\tab@size \fi
+    \let\next\verbatim@tabexpand
+  \fi\next
+}
+
+%%% listing defines a verbatim environment with numbered lines; it takes an
+%%% optional argument specifying the number of lines between numbered
+%%% lines, and a mandatory argument specifying the starting line. listingcont
+%%% continues from the place where listing left off.
+%%% The style in which the label is set can be altered by re-defining
+%%% \listinglabel. * versions are provided.
+\newcount\listing@line \listing@line=1 \newcount\listing@step \listing@step=1
+% Adding an \hbox in front of the line causes a line break, so I go
+% through this rigmarole to get the lines aligned nicely. I probably
+% missed some obvious reason why \hboxes don't work.
+\def\listinglabel#1{\rlap{\small\rm\the#1}\hskip2.5em}
+\def\thelisting@line{%
+  \setbox0\hbox{\listinglabel\listing@line}%
+  \@tempcnta=\listing@line
+  \divide\@tempcnta\listing@step \multiply\@tempcnta\listing@step
+  \ifnum\listing@line=1 \unhbox0
+  \else \ifnum\@tempcnta=\listing@line \unhbox0
+  \else \hskip\wd0
+  \fi\fi}
+\def\listing{\@ifnextchar[{\@listing}{\@listing[1]}}
+\def\@listing[#1]#2{%
+  \global\listing@line=#2\global\listing@step=#1\listingcont}
+\def\listingcont{%
+  \tab@size=\verbatimtabsize
+  \def\verbatim@processline{\tab@position\tab@size
+    \thelisting@line \global\advance\listing@line1
+    \expandafter\verbatim@tabexpand\the\verbatim@line\@nil}%
+  \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs\verbatim@start}
+\let\endlisting=\endtrivlist
+\let\endlistingcont=\endtrivlist
+\@namedef{listing*}{\@ifnextchar[{\@listingstar}{\@listingstar[1]}}
+\def\@listingstar[#1]#2{%
+  \global\listing@line=#2\global\listing@step=#1\relax
+  \csname listingcont*\endcsname}
+\@namedef{listingcont*}{%
+  \def\verbatim@processline{%
+    \thelisting@line \global\advance\listing@line1
+    \the\verbatim@line\par}%
+  \@verbatim\verbatim@start}
+\expandafter\let\csname endlisting*\endcsname =\endtrivlist
+\expandafter\let\csname endlistingcont*\endcsname =\endtrivlist
+
+%%% file input version of listing
+\def\listinginput{%
+   \@ifnextchar[{\@listinginput}{\@listinginput[1]}}
+{\catcode`\~=\active \lccode`\~=`\^^M \lccode`\N=`\N
+ \lowercase{%
+  \gdef\@listinginput[#1]#2#3{\begingroup
+     \global\listing@line=#2\global\listing@step=#1
+     \tab@size=\verbatimtabsize
+     \def\verbatim@processline{\tab@position\tab@size
+        \thelisting@line \global\advance\listing@line1
+        \expandafter\verbatim@tabexpand\the\verbatim@line\@nil}%
+     \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs
+     \def\verbatim@addtoline##1~{%
+        \verbatim@line\expandafter{\the\verbatim@line##1}}%
+     \openin\verbtab@in=#3
+     \ifeof\verbtab@in\typeout{No file #3.}\else
+       \verbtab@oktrue
+       \loop
+          \read\verbtab@in to \verbtab@line
+          \ifeof\verbtab@in\verbtab@okfalse\else
+             \expandafter\verbatim@addtoline\verbtab@line
+             \verbatim@processline
+             \verbatim@startline
+          \fi
+       \ifverbtab@ok\repeat
+       \closein\verbtab@in\fi
+     \endtrivlist\endgroup\@doendpe}}}
+
+%%% verbatimcmd is a verbatim environment with the exception of the escape and
+%%% grouping characters \, {, }.
+\def\verbatimcmd{%
+  \@verbatim \catcode`\\=0 \catcode`\{=1 \catcode`\}=2
+  \frenchspacing\@vobeyspaces\verbatim@start
+}
+\def\endverbatimcmd{%
+  \let\par\relax
+  \def\verbatim@{\endtrivlist\endgroup}%
+  \begingroup}
+
+%%% boxedverbatim produces a verbatim environment in a framed box.
+%%% written by Victor Eijkhout
+\def\boxedverbatim{%
+  % redefine `processline' to produce only a line as wide
+  % as the natural width of the line
+  \def\verbatim@processline{%
+    {\setbox0=\hbox{\the\verbatim@line}%
+    \hsize=\wd0 \the\verbatim@line\par}}%
+  % save the verbatim code in a box
+  \setbox0=\vbox\bgroup \verbatim
+}
+\def\endboxedverbatim{%
+  \endverbatim
+  \egroup % close the box and `fbox' it
+  \fbox{\box0}% <<<=== change here for centering,...
+}
+
+%%% verbatimtab is a verbatim environment which expands tab characters; it
+%%% takes an optional argument specifying the width of tab stops
+\def\verbatimtab{\futurelet\next\@verbatimtab}
+\def\@verbatimtab{\if\next[ \let\next\@@verbatimtab\else
+                     \def\next{\@@verbatimtab[\the\verbatimtabsize]}\fi\next}
+\def\@@verbatimtab[#1]{%
+  \do@verbatimtab{#1}{%
+     \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs\verbatim@start}%
+}
+\def\do@verbatimtab#1#2{%
+  \tab@size=#1
+  \def\verbatim@processline{\tab@position\tab@size
+     \expandafter\verbatim@tabexpand\the\verbatim@line\@nil}#2
+}
+\let\endverbatimtab=\endtrivlist
+
+%%% file input version of verbatimtab
+\newread\verbtab@in \newif\ifverbtab@ok
+\def\verbatimtabinput{%
+   \@ifnextchar[{\@verbatimtabinput}{\@verbatimtabinput[\the\verbatimtabsize]}}
+{\catcode`\~=\active \lccode`\~=`\^^M \lccode`\N=`\N
+ \lowercase{%
+  \gdef\@verbatimtabinput[#1]#2{\begingroup
+     \do@verbatimtab{#1}{%
+       \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs}%
+     \def\verbatim@addtoline##1~{%
+        \verbatim@line\expandafter{\the\verbatim@line##1}}%
+     \openin\verbtab@in=#2
+     \ifeof\verbtab@in\typeout{No file #2.}\else
+       \verbtab@oktrue
+       \loop
+          \read\verbtab@in to \verbtab@line
+          \ifeof\verbtab@in\verbtab@okfalse\else
+             \expandafter\verbatim@addtoline\verbtab@line
+             \verbatim@processline
+             \verbatim@startline
+          \fi
+       \ifverbtab@ok\repeat
+       \closein\verbtab@in\fi
+     \endtrivlist\endgroup\@doendpe}}}
diff --git a/Doc/Makefile b/Doc/Makefile
new file mode 100644
index 0000000..d2931e1
--- /dev/null
+++ b/Doc/Makefile
@@ -0,0 +1,68 @@
+#
+# Documentation Makefile
+# 
+# Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: 21-Oct-1994 11:25
+# Last file update: 24-Jul-1996 19:04
+
+include ../config.make
+
+# Don't use $(mandir) for manual. Always put it in $(prefix)/man/man1
+# This allows us to avoid the destruction of true Tk4.0 man pages
+# which are quite different.
+MAN1_DIR=$(mandir)/man1
+MANN_DIR=$(mandir)/mann
+
+
+DIRS=Extension Reference STklos+Tk Manual Isotas96
+
+install: 
+
+all:	dvi ps
+	
+dvi:
+	for i in $(DIRS) ;do \
+	  (cd $$i; $(MAKE) dvi); \
+	done
+
+ps:	
+	for i in $(DIRS) ;do \
+	  (cd $$i; $(MAKE) ps); \
+	done
+		
+install.man:
+	-if [ ! -d $(mandir) ] ; then mkdir -p $(mandir); fi
+	rm -f $(stkdir)/man
+	(cd $(stkdir) ; ln -s $(VERSION)/man ./man)
+	-if [ ! -d $(MAN1_DIR) ] ; then mkdir -p $(MAN1_DIR); fi
+	rm -f $(MAN1_DIR)/*.n $(MAN1_DIR)/stk.1 $(MAN1_DIR)/snow.1
+	$(CP) Manual/STk-man.macros $(MAN1_DIR)
+	$(CP) Manual/stk.1 $(MAN1_DIR)/stk.1
+	ln $(MAN1_DIR)/stk.1 $(MAN1_DIR)/snow.1
+	chmod 444 $(MAN1_DIR)/*
+	-if [ ! -d $(MANN_DIR) ] ; then mkdir -p $(MANN_DIR); fi
+	$(CP) Manual/STk-man.macros $(MANN_DIR)
+	(cd Manual ;for  i in *.n ;do \
+			  $(CP) $$i $(MANN_DIR)/stk_$$i; \
+		    done)
+
+clean:
+	for i in $(DIRS) ;do \
+	  (cd $$i; $(MAKE) clean); \
+	done
+
+very-clean:
+	for i in $(DIRS) ;do \
+	  (cd $$i; $(MAKE) very-clean); \
+	done
+
diff --git a/Doc/Manual/Makefile b/Doc/Manual/Makefile
new file mode 100644
index 0000000..9bafece
--- /dev/null
+++ b/Doc/Manual/Makefile
@@ -0,0 +1,34 @@
+###
+### Makefile for the man pages
+###
+
+
+all: ps txt
+
+dvi:
+
+ps: stk.ps stk.txt man-pages.ps
+
+txt: stk.txt
+
+#
+# Manual pages
+#
+man-pages.ps: 
+	groff -man *.n > man-pages.ps
+
+#
+# STk man page 
+#
+stk.ps: stk.1
+	groff -man stk.1 > stk.ps
+
+stk.txt: stk.1
+	nroff -man stk.1 > stk.txt
+
+clean:
+	rm -f *~
+
+very-clean: clean
+	rm -f *.ps
+	
\ No newline at end of file
diff --git a/Doc/Manual/STk-man.macros b/Doc/Manual/STk-man.macros
new file mode 100644
index 0000000..6436876
--- /dev/null
+++ b/Doc/Manual/STk-man.macros
@@ -0,0 +1,242 @@
+'\" This is slighly modified for STk
+'\"
+'\" The definitions below are for supplemental macros used in Tcl/Tk
+'\" manual entries.
+'\"
+'\" .AP type name in/out ?indent?
+'\"	Start paragraph describing an argument to a library procedure.
+'\"	type is type of argument (int, etc.), in/out is either "in", "out",
+'\"	or "in/out" to describe whether procedure reads or modifies arg,
+'\"	and indent is equivalent to second arg of .IP (shouldn't ever be
+'\"	needed;  use .AS below instead)
+'\"
+'\" .AS ?type? ?name?
+'\"	Give maximum sizes of arguments for setting tab stops.  Type and
+'\"	name are examples of largest possible arguments that will be passed
+'\"	to .AP later.  If args are omitted, default tab stops are used.
+'\"
+'\" .BS
+'\"	Start box enclosure.  From here until next .BE, everything will be
+'\"	enclosed in one large box.
+'\"
+'\" .BE
+'\"	End of box enclosure.
+'\"
+'\" .CS
+'\"	Begin code excerpt.
+'\"
+'\" .CE
+'\"	End code excerpt.
+'\"
+'\" .VS ?br?
+'\"	Begin vertical sidebar, for use in marking newly-changed parts
+'\"	of man pages.  If an argument is present, then a line break is
+'\"	forced before starting the sidebar.
+'\"
+'\" .VE
+'\"	End of vertical sidebar.
+'\"
+'\" .DS
+'\"	Begin an indented unfilled display.
+'\"
+'\" .DE
+'\"	End of indented unfilled display.
+'\"
+'\" .SO
+'\"	Start of list of standard options for a Tk widget.  The
+'\"	options follow on successive lines, in four columns separated
+'\"	by tabs.
+'\"
+'\" .SE
+'\"	End of list of standard options for a Tk widget.
+'\"
+'\" .OP cmdName dbName dbClass STklosName
+'\"	Start of description of a specific option.  cmdName gives the
+'\"	option's name as specified in the class command, dbName gives
+'\"	the option's name in the option database, and dbClass gives
+'\"	the option's class in the option database.
+'\"
+'\" .UL arg1 arg2
+'\"	Print arg1 underlined, then print arg2 normally.
+'\"
+'\" SCCS: @(#) man.macros 1.8 96/02/15 20:02:24
+'\"
+'\"	# Set up traps and other miscellaneous stuff for Tcl/Tk man pages.
+.if t .wh -1.3i ^B
+.nr ^l \n(.l
+.ad b
+'\"	# Start an argument description
+.de AP
+.ie !"\\$4"" .TP \\$4
+.el \{\
+.   ie !"\\$2"" .TP \\n()Cu
+.   el          .TP 15
+.\}
+.ie !"\\$3"" \{\
+.ta \\n()Au \\n()Bu
+\&\\$1	\\fI\\$2\\fP	(\\$3)
+.\".b
+.\}
+.el \{\
+.br
+.ie !"\\$2"" \{\
+\&\\$1	\\fI\\$2\\fP
+.\}
+.el \{\
+\&\\fI\\$1\\fP
+.\}
+.\}
+..
+'\"	# define tabbing values for .AP
+.de AS
+.nr )A 10n
+.if !"\\$1"" .nr )A \\w'\\$1'u+3n
+.nr )B \\n()Au+15n
+.\"
+.if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
+.nr )C \\n()Bu+\\w'(in/out)'u+2n
+..
+.AS Tcl_Interp Tcl_CreateInterp in/out
+'\"	# BS - start boxed text
+'\"	# ^y = starting y location
+'\"	# ^b = 1
+.de BS
+.br
+.mk ^y
+.nr ^b 1u
+.if n .nf
+.if n .ti 0
+.if n \l'\\n(.lu\(ul'
+.if n .fi
+..
+'\"	# BE - end boxed text (draw box now)
+.de BE
+.nf
+.ti 0
+.mk ^t
+.ie n \l'\\n(^lu\(ul'
+.el \{\
+.\"	Draw four-sided box normally, but don't draw top of
+.\"	box if the box started on an earlier page.
+.ie !\\n(^b-1 \{\
+\h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
+.\}
+.el \}\
+\h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
+.\}
+.\}
+.fi
+.br
+.nr ^b 0
+..
+'\"	# VS - start vertical sidebar
+'\"	# ^Y = starting y location
+'\"	# ^v = 1 (for troff;  for nroff this doesn't matter)
+.de VS
+.if !"\\$1"" .br
+.mk ^Y
+.ie n 'mc \s12\(br\s0
+.el .nr ^v 1u
+..
+'\"	# VE - end of vertical sidebar
+.de VE
+.ie n 'mc
+.el \{\
+.ev 2
+.nf
+.ti 0
+.mk ^t
+\h'|\\n(^lu+3n'\L'|\\n(^Yu-1v\(bv'\v'\\n(^tu+1v-\\n(^Yu'\h'-|\\n(^lu+3n'
+.sp -1
+.fi
+.ev
+.\}
+.nr ^v 0
+..
+'\"	# Special macro to handle page bottom:  finish off current
+'\"	# box/sidebar if in box/sidebar mode, then invoked standard
+'\"	# page bottom macro.
+.de ^B
+.ev 2
+'ti 0
+'nf
+.mk ^t
+.if \\n(^b \{\
+.\"	Draw three-sided box if this is the box's first page,
+.\"	draw two sides but no top otherwise.
+.ie !\\n(^b-1 \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
+.el \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
+.\}
+.if \\n(^v \{\
+.nr ^x \\n(^tu+1v-\\n(^Yu
+\kx\h'-\\nxu'\h'|\\n(^lu+3n'\ky\L'-\\n(^xu'\v'\\n(^xu'\h'|0u'\c
+.\}
+.bp
+'fi
+.ev
+.if \\n(^b \{\
+.mk ^y
+.nr ^b 2
+.\}
+.if \\n(^v \{\
+.mk ^Y
+.\}
+..
+'\"	# DS - begin display
+.de DS
+.RS
+.nf
+.sp
+..
+'\"	# DE - end display
+.de DE
+.fi
+.RE
+.sp
+..
+'\"	# SO - start of list of standard options
+.de SO
+.SH "STANDARD OPTIONS"
+.LP
+.nf
+.ta 4c 8c 12c
+.ft B
+..
+'\"	# SE - end of list of standard options
+.de SE
+.fi
+.ft R
+.LP
+See the \\fBoptions\\fR manual entry for details on the standard options.
+..
+'\"	# OP - start of full description for a single option
+.de OP
+.LP
+.nf
+.ta 5c
+Name:	\\fB\\$2\\fR
+Class:	\\fB\\$3\\fR
+Option keyword:	\\fB\\$1\\fR
+STklos slot name:	\\fB\\$4\\fR
+
+.fi
+.IP
+..
+'\"	# CS - begin code excerpt
+.de CS
+.RS
+.nf
+.ta .25i .5i .75i 1i
+..
+'\"	# CE - end code excerpt
+.de CE
+.fi
+.RE
+..
+.de UL
+\\$1\l'|0\(ul'\\$2
+..
+'\"	# SP - a synonym of .sp
+.de SP
+.sp
+..
diff --git a/Doc/Manual/after.n b/Doc/Manual/after.n
new file mode 100644
index 0000000..5baafee
--- /dev/null
+++ b/Doc/Manual/after.n
@@ -0,0 +1,97 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) after.n 1.21 95/09/01 10:35:38
+'\" 
+.so STk-man.macros
+.TH after n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+after \- Execute a command after a time delay
+.SH SYNOPSIS
+(\fBafter \fIms\fR)
+.sp
+(\fBafter \fIms \fR\fIthunk\fR)
+.sp
+(\fBafter 'cancel \fIid\fR)
+.sp
+(\fBafter 'cancel \fIthunk)\fR
+.sp
+(\fBafter 'idle \fR?\fIthunk\fR?)
+.sp
+(\fBafter info\fR)
+.sp
+(\fBafter info \fR\fIid\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBafter\fR procedure is used to delay execution of the program or to execute
+a procedure in background after a delay.  It has several forms,
+depending on the first argument to the procedure:
+.TP
+(\fBafter \fIms\fR)
+\fIMs\fR must be an integer giving a time in milliseconds.
+The procedure sleeps for \fIms\fR milliseconds and then returns.
+While the procedure is sleeping the application does not respond to
+X events or any other events.
+.TP
+(\fBafter \fIms \fIthunk\fR)
+In this form the procedure returns immediately, but it arranges
+for a STk procedure to be executed \fIms\fR milliseconds later as a
+background event handler.
+The procedure will be executed exactly once, at the given time.
+The delayed procedure must be a \fIthunk\fR.
+If an error occurs while executing the delayed procedure then the
+\fBtkerror\fR mechanism is used to report the error.
+The \fBafter\fR procedure returns a symbol that can be used
+to cancel the delayed procedure using \fBafter cancel\fR.
+.TP
+(\fBafter 'cancel \fIid\fR)
+Cancels the execution of a delayed procedure that
+was previously scheduled.
+\fIId\fR indicates which procedure should be canceled;  it must have
+been the return value from a previous \fBafter\fR procedure.
+If the procedure given by \fIid\fR has already been executed then
+the \fBafter cancel\fR procedure has no effect.
+.TP
+(\fBafter 'cancel \fIthunk\fR)
+This procedure also cancels the execution of a delayed procedure. If there is
+a pending procedure that matches \fIthunk\fR, it is cancelled and will
+never be executed; if no such procedure is currently
+pending then the \fBafter cancel\fR procedure has no effect.
+.TP
+(\fBafter 'idle \fIthunk\fR)
+Arranges for the given \fIthunk\fR to be evaluated later as an idle handler
+The script will be run exactly once, the next time the Tk event
+loop is entered and there are no events to process.
+The procedure returns an identifier that can be used
+to cancel the delayed procedure using \fBafter cancel\fR.
+If an error occurs while executing the script then the
+\fBtkerror\fR mechanism is used to report the error.
+.TP
+(\fBafter 'info \fR\fIid\fR)
+.TP
+(\fBafter 'info\fR)
+This procedure returns information about existing event handlers.
+If no \fIid\fR argument is supplied, then the procedure returns
+a list of the identifiers for all existing
+event handlers created by the \fBafter\fR procedure for this
+interpreter.
+If \fIid\fR is supplied, it specifies an existing handler;
+\fIid\fR must have been the return value from some previous call
+to \fBafter\fR and it must not have triggered yet or been cancelled.
+In this case the procedure returns a list with two elements.
+The first element of the list is the script associated
+with \fIid\fR, and the second element is either
+\fBidle\fR or \fBtimer\fR to indicate what kind of event
+handler it is.
+
+
+.SH "SEE ALSO"
+tkerror
diff --git a/Doc/Manual/bell.n b/Doc/Manual/bell.n
new file mode 100644
index 0000000..4555150
--- /dev/null
+++ b/Doc/Manual/bell.n
@@ -0,0 +1,33 @@
+'\"
+'\" Copyright (c) 1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) bell.n 1.6 95/06/07 21:15:04
+'\" 
+.so STk-man.macros
+.TH bell n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+bell \- Ring a display's bell
+.SH SYNOPSIS
+(\fBbell\fR)
+.sp
+(\fBbell \fR\fB:displayof \fIwindow\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure rings the bell on the display for \fIwindow\fR and
+returns an empty string.
+If the \fB:displayof\fR option is omitted, the display of the
+application's main window is used by default.
+The procedure uses the current bell-related settings for the display, which
+may be modified with programs such as \fBxset\fR.
+.PP
+This procedure also resets the screen saver for the screen.  Some
+screen savers will ignore this, but others will reset so that the
+screen becomes visible again.
diff --git a/Doc/Manual/bind.n b/Doc/Manual/bind.n
new file mode 100644
index 0000000..08d7a2e
--- /dev/null
+++ b/Doc/Manual/bind.n
@@ -0,0 +1,415 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) bind.n 1.35 95/08/26 16:27:12
+'\" 
+.so STk-man.macros
+.TH bind n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+bind \- Arrange for X events to invoke STk scripts
+.SH SYNOPSIS
+(\fBbind\fI tag\fR)
+.sp
+(\fBbind\fI tag sequence\fR)
+.sp
+(\fBbind\fI tag sequence script\fR)
+.BE
+
+.SH INTRODUCTION
+.PP
+The \fBbind\fR procedure associates STk scripts with X events.
+If all three arguments are specified, \fBbind\fR will
+arrange for \fIscript\fR (a STk script) to be evaluated whenever
+the event(s) given by \fIsequence\fR occur in the window(s)
+identified by \fItag\fR.
+If is specified for a given sequence, it replaces
+the previous binding.
+If \fIscript\fR is an empty string then the current binding for
+\fIsequence\fR is destroyed, leaving \fIsequence\fR unbound.
+In all of the cases where a \fIscript\fR argument is provided,
+\fBbind\fR returns an empty list.
+.PP
+If \fIsequence\fR is specified without a \fIscript\fR, then the
+script currently bound to \fIsequence\fR is returned, or
+an empty list is returned if there is no binding for \fIsequence\fR.
+If neither \fIsequence\fR nor \fIscript\fR is specified, then the
+return value is a list whose elements are all the sequences
+for which there exist bindings for \fItag\fR.
+.PP
+The \fItag\fR argument determines which window(s) the binding applies to.
+If \fItag\fR begins with a dot, as in \fB.a.b.c\fR, then it must
+be the path name for a window; otherwise it may be an arbitrary
+string.
+Each window has an associated list of tags, and a binding applies
+to a particular window if its tag is among those specified for
+the window.
+Although the \fBbindtags\fR procedure may be used to assign an
+arbitrary set of binding tags to a window, the default binding
+tags provide the following behavior:
+.IP
+If a tag is the name of an internal window the binding applies
+to that window.
+.IP
+If the tag is the name of a toplevel window the binding applies
+to the toplevel window and all its internal windows.
+.IP
+If the tag is the name of a class of widgets, such as \fBButton\fR,
+the binding applies to all widgets in that class;
+.IP
+If \fItag\fR has the value \fB"all"\fR,
+the binding applies to all windows in the application.
+
+.SH "EVENT PATTERNS"
+.PP
+The \fIsequence\fR argument specifies a sequence of one or more
+event patterns, with optional white space between the patterns.  Each
+event pattern may
+take either of two forms.  In the simplest case it is a single
+printing ASCII character, such as \fBa\fR or \fB[\fR.  The character
+may not be a space character or the character \fB<\fR.  This form of
+pattern matches a \fBKeyPress\fR event for the particular
+character.  The second form of pattern is longer but more general.
+It has the following syntax:
+.CS
+\fB<\fImodifier-modifier-type-detail\fB>\fR
+.CE
+The entire event pattern is surrounded by angle brackets.
+Inside the angle brackets are zero or more modifiers, an event
+type, and an extra piece of information (\fIdetail\fR) identifying
+a particular button or keysym.  Any of the fields may be omitted,
+as long as at least one of \fItype\fR and \fIdetail\fR is present.
+The fields must be separated by white space or dashes.
+
+.SH "MODIFIERS"
+.PP
+Modifiers consist of any of the following values:
+.DS
+.ta 6c
+\fBControl\fR	 	\fBMod2, M2\fR
+\fBShift\fR		\fBMod3, M3\fR	
+\fBLock\fR 		\fBMod4, M4\fR
+\fBButton1, B1\fR	\fBMod5, M5\fR	
+\fBButton2, B2\fR	\fBMeta, M\fR
+\fBButton3, B3\fR	\fBAlt\fR
+\fBButton4, B4\fR	\fBDouble\fR
+\fBButton5, B5\fR	\fBTriple\fR
+\fBMod1, M1\fR
+.DE
+Where more than one value is listed, separated by commas, the values
+are equivalent.
+Most of the modifiers have the obvious X meanings.
+For example, \fBButton1\fR requires that
+button 1 be depressed when the event occurs.
+For a binding to match a given event, the modifiers in the event
+must include all of those specified in the event pattern.
+An event may also contain additional modifiers not specified in
+the binding.
+For example, if button 1 is pressed while the shift and control keys
+are down, the pattern \fB<Control-Button-1>\fR will match
+the event, but \fB<Mod1-Button-1>\fR will not.
+If no modifiers are specified, then any combination of modifiers may
+be present in the event.
+.PP
+\fBMeta\fR and \fBM\fR refer to whichever of the
+\fBM1\fR through \fBM5\fR modifiers is associated with the meta
+key(s) on the keyboard (keysyms \fBMeta_R\fR and \fBMeta_L\fR).
+If there are no meta keys, or if they are not associated with any
+modifiers, then \fBMeta\fR and \fBM\fR will not match any events.
+Similarly, the \fBAlt\fR modifier refers to whichever modifier
+is associated with the alt key(s) on the keyboard (keysyms
+\fBAlt_L\fR and \fBAlt_R\fR).
+.PP
+The \fBDouble\fR and \fBTriple\fR modifiers are a convenience
+for specifying double mouse clicks and other repeated
+events. They cause a particular event pattern to be
+repeated 2 or 3 times, and also place a time and space requirement
+on the sequence:  for a sequence of events to match a \fBDouble\fR
+or \fBTriple\fR pattern, all of the events must occur close together
+in time and without substantial mouse motion in between.
+For example, \fB<Double-Button-1>\fR
+is equivalent to \fB<Button-1><Button-1>\fR with the extra
+time and space requirement.
+
+.SH "EVENT TYPES"
+.PP
+The \fItype\fR field may be any of the standard X event types, with a
+few extra abbreviations.  Below is a list of all the val%id types;
+where two names appear together, they are synonyms.
+.DS C
+.ta 5c 10c
+\fBButtonPress, Button	Expose	Map
+ButtonRelease	FocusIn	Motion
+Circulate	FocusOut	Property	
+Colormap	Gravity	Reparent
+Configure	KeyPress, Key	Unmap
+Destroy	KeyRelease	Visibility
+Enter	Leave\fR
+.DE
+.PP
+The last part of a long event specification is \fIdetail\fR.  In the
+case of a \fBButtonPress\fR or \fBButtonRelease\fR event, it is the
+number of a button (1-5).  If a button number is given, then only an
+event on that particular button will match;  if no button number is
+given, then an event on any button will match.  Note:  giving a
+specific button number is different than specifying a button modifier;
+in the first case, it refers to a button being pressed or released,
+while in the second it refers to some other button that is already
+depressed when the matching event occurs.  If a button
+number is given then \fItype\fR may be omitted:  if will default
+to \fBButtonPress\fR.  For example, the specifier \fB<1>\fR
+is equivalent to \fB<ButtonPress-1>\fR.
+.PP
+If the event type is \fBKeyPress\fR or \fBKeyRelease\fR, then
+\fIdetail\fR may be specified in the form of an X keysym.  Keysyms
+are textual specifications for particular keys on the keyboard;
+they include all the alphanumeric ASCII characters (e.g. ``a'' is
+the keysym for the ASCII character ``a''), plus descriptions for
+non-alphanumeric characters (``comma'' is the keysym for the comma
+character), plus descriptions for all the non-ASCII keys on the
+keyboard (``Shift_L'' is the keysm for the left shift key, and
+``F1'' is the keysym for the F1 function key, if it exists).  The
+complete list of keysyms is not presented here;  it is
+available in other X documentation and may vary from system to
+system.
+If necessary, you can use the \fB|K|\fR closure parameter described below
+to print out the keysym name for a particular key.
+If a keysym \fIdetail\fR is given, then the
+\fItype\fR field may be omitted;  it will default to \fBKeyPress\fR.
+For example, \fB<Control-comma>\fR is equivalent to
+\fB<Control-KeyPress-comma>\fR.
+
+.SH "BINDING SCRIPTS AND SUBSTITUTIONS"
+.PP
+
+
+The \fIscript\fR argument to \fBbind\fR must be a closure, which will
+be executed whenever the given event sequence occurs. The closure can
+have parameters. Those parameters are one character symbols (with
+convention which are described below). Parameter list will be
+evaluated just before the script is fired. Note that some parameters
+are only valid for certain types of events; if they are used for other
+types of events the value substituted is undefined.
+
+.IP \fB%\fR 5
+Replaced with a single percent.
+.IP \fB#\fR 5
+The number of the last client request processed by the server
+(the \fIserial\fR field from the event).  Valid for all event
+types.
+.IP \fBa\fR 5
+The \fIabove\fR field from the event,
+formatted as a hexadecimal number.
+Valid only for \fBConfigure\fR events.
+.IP \fBb\fR 5
+The number of the button that was pressed or released.  Valid only
+for \fBButtonPress\fR and \fBButtonRelease\fR events.
+.IP \fBc\fR 5
+The \fIcount\fR field from the event.  Valid only for \fBExpose\fR events.
+.IP \fBd\fR 5
+The \fIdetail\fR field from the event.  The \fBd\fR is replaced by
+a string identifying the detail.  For \fBEnter\fR,
+\fBLeave\fR, \fBFocusIn\fR, and \fBFocusOut\fR events,
+the string will be one of the following:
+.RS
+.DS
+.ta 6c
+\fBNotifyAncestor	NotifyNonlinearVirtual
+NotifyDetailNone	NotifyPointer
+NotifyInferior	NotifyPointerRoot
+NotifyNonlinear	NotifyVirtual\fR
+.DE
+For events other than these, the substituted string is undefined.
+.RE
+.IP \fBf\fR 5
+The \fIfocus\fR field from the event (\fB#f\fR or \fB#t\fR).  Valid only
+for \fBEnter\fR and \fBLeave\fR events.
+.IP \fBh\fR 5
+The \fIheight\fR field from the event.  Valid only for \fBConfigure\fR,
+\fBExpose\fR, and \fBGraphicsExpose\fR events.
+.IP \fBk\fR 5
+The \fIkeycode\fR field from the event.  Valid only for \fBKeyPress\fR
+and \fBKeyRelease\fR events.
+.IP \fBm\fR 5
+The \fImode\fR field from the event.  The substituted string is one of
+\fBNotifyNormal\fR, \fBNotifyGrab\fR, \fBNotifyUngrab\fR, or
+\fBNotifyWhileGrabbed\fR.  Valid only for \fBEnterWindow\fR,
+\fBFocusIn\fR, \fBFocusOut\fR, and \fBLeaveWindow\fR events.
+.IP \fBo\fR 5
+The \fIoverride_redirect\fR field from the event.  Valid only for
+\fBMap\fR, \fBReparent\fR, and \fBConfigure\fR events.
+.IP \fBp\fR 5
+The \fIplace\fR field from the event, substituted as one of the
+strings \fBPlaceOnTop\fR or \fBPlaceOnBottom\fR.  Valid only
+for \fBCirculate\fR events.
+.IP \fBs\fR 5
+The \fIstate\fR field from the event.  For \fBButtonPress\fR,
+\fBButtonRelease\fR, \fBEnter\fR, \fBKeyPress\fR, \fBKeyRelease\fR,
+\fBLeave\fR, and \fBMotion\fR events,
+a decimal string
+is substituted.  For \fBVisibility\fR, one of the strings
+\fBVisibilityUnobscured\fR, \fBVisibilityPartiallyObscured\fR,
+and \fBVisibilityFullyObscured\fR is substituted.
+.IP \fBt\fR 5
+The \fItime\fR field from the event.  Valid only for events that
+contain a \fItime\fR field.
+.IP \fBw\fR 5
+The \fIwidth\fR field from the event.  Valid only for
+\fBConfigure\fR, \fBExpose\fR, and \fBGraphicsExpose\fR events.
+.IP \fBx\fR 5
+The \fIx\fR field from the event.  Valid only for events containing
+an \fIx\fR field.
+.IP \fBy\fR 5
+The \fIy\fR field from the event.  Valid only for events containing
+a \fIy\fR field.
+.IP \fBA\fR 5
+Substitutes the ASCII character corresponding to the event, or
+the empty string if the event doesn't correspond to an ASCII character
+(e.g. the shift key was pressed).  \fBXLookupString\fR does all the
+work of translating from the event to an ASCII character.
+Valid only for \fBKeyPress\fR and \fBKeyRelease\fR events.
+.IP \fBB\fR 5
+The \fIborder_width\fR field from the event.  Valid only for
+\fBConfigure\fR events.
+.IP \fBE\fR 5
+The \fIsend_event\fR field from the event.  Valid for all event types.
+.IP \fBK\fR 5
+The keysym corresponding to the event, substituted as a textual
+string.  Valid only for \fBKeyPress\fR and \fBKeyRelease\fR events.
+.IP \fBN\fR 5
+The keysym corresponding to the event, substituted as
+a decimal
+number.  Valid only for \fBKeyPress\fR and \fBKeyRelease\fR events.
+.IP \fBR\fR 5
+The \fIroot\fR window identifier from the event.  Valid only for
+events containing a \fIroot\fR field.
+.IP \fBS\fR 5
+The \fIsubwindow\fR window identifier from the event,
+formatted as a hexadecimal number.
+Valid only for events containing a \fIsubwindow\fR field.
+.IP \fBT\fR 5
+The \fItype\fR field from the event.  Valid for all event types.
+.IP \fBW\fR 5
+The path name of the window to which the event was reported (the
+\fIwindow\fR field from the event).  Valid for all event types.
+.IP \fBX\fR 5
+The \fIx_root\fR field from the event.
+If a virtual-root window manager is being used then the substituted
+value is the corresponding x-coordinate in the virtual root.
+Valid only for
+\fBButtonPress\fR, \fBButtonRelease\fR, \fBKeyPress\fR, \fBKeyRelease\fR,
+and \fBMotion\fR events.
+.IP \fBY\fR 5
+The \fIy_root\fR field from the event.
+If a virtual-root window manager is being used then the substituted
+value is the corresponding y-coordinate in the virtual root.
+Valid only for
+\fBButtonPress\fR, \fBButtonRelease\fR, \fBKeyPress\fR, \fBKeyRelease\fR,
+and \fBMotion\fR events.
+.LP
+
+The following example show how to display a message each time the l1 or l2 label is entered: 
+.DS
+(pack (label '.l1 :text "One"))
+(pack (label '.l2 :text "Two"))
+(let ((mess (lambda (|W| x y)
+              (format #t "Entering ~S x=~a y=~a\n" |W| x y))))
+  (bind .l1 "<Enter>" mess)
+  (bind .l2 "<Enter>" mess))
+.DE
+\fBNote the usage of the "|" convention for the symbol parameters which must be in left in
+upper-case.\fR
+
+.SH MULTIPLE MATCHES
+.PP
+It is possible for several bindings to match a given X event.
+If the bindings are associated with different \fItag\fR's,
+then each of the bindings will be executed, in order.
+By default, a binding for the widget will be executed first, followed
+by a class binding, a binding for its toplevel, and
+an \fBall\fR binding.
+The \fBbindtags\fR procedure may be used to change this order for
+a particular window or to associate additional binding tags with
+the window.
+.PP
+If the binding procedure result is the symbol \fBbreak\fR, then no
+other scripts will be invoked for the event.
+.PP
+If more than one binding matches a particular event and they
+have the same \fItag\fR, then the most specific binding
+is chosen and its script is evaluated.
+The following tests are applied, in order, to determine which of
+several matching sequences is more specific:
+(a) a longer sequence (in terms of number
+of events matched) is more specific than a shorter sequence;
+(b) an event pattern that specifies a specific button or key is more specific
+than one that doesn't;
+(c) if the modifiers specified in one pattern are a subset of the
+modifiers in another pattern, then the pattern with more modifiers
+is more specific.
+If the matching sequences contain more than
+one event, then tests (c)-(e) are applied in order from the most
+recent event to the least recent event in the sequences.  If these
+tests fail to determine a winner, then the most recently registered
+sequence is the winner.
+.PP
+If an X event does not match any of the existing bindings, then the
+event is ignored.
+An unbound event is not considered to be an error.
+
+.LP
+The following example illustrates how to use the \fBbreak\fR symbol to
+break a binding chain.
+.DS
+(pack (entry '.e))
+(bind .e "<KeyPress>" (lambda (|A|)
+                        (unless (string->number |A|) 'break)))
+.DE
+Bindings for the entry \fB.e\fR are executed before those for its
+class (i.e. \fBEntry\fR). This allows us to filter the characters
+which are effectively passed to the \fB.e\fR widget. The test in this
+binding closure breaks the chain of bindings if the typed character is
+not a digit. Otherwise, the following binding, the one for the
+\fBEntry\fR class, is executed and inserts the character typed (a
+digit).
+Consequently, the simple previous binding makes \fB.e\fR a
+controlled entry which only accepts integer numbers.
+
+
+.SH "MULTI-EVENT SEQUENCES AND IGNORED EVENTS"
+.PP
+When a \fIsequence\fR specified in a \fBbind\fR procedure contains
+more than one event pattern, then its script is executed whenever
+the recent events (leading up to and including the current event)
+match the given sequence.  This means, for example, that if button 1 is
+clicked repeatedly the sequence \fB<Double-ButtonPress-1>\fR will match
+each button press but the first.
+If extraneous events that would prevent a match occur in the middle
+of an event sequence then the extraneous events are
+ignored unless they are \fBKeyPress\fR or \fBButtonPress\fR events.
+For example, \fB<Double-ButtonPress-1>\fR will match a sequence of
+presses of button 1, even though there will be \fBButtonRelease\fR
+events (and possibly \fBMotion\fR events) between the
+\fBButtonPress\fR events.
+Furthermore, a \fBKeyPress\fR event may be preceded by any number
+of other \fBKeyPress\fR events for modifier keys without the
+modifier keys preventing a match.
+For example, the event sequence \fBaB\fR will match a press of the
+\fBa\fR key, a release of the \fBa\fR key, a press of the \fBShift\fR
+key, and a press of the \fBb\fR key:  the press of \fBShift\fR is
+ignored because it is a modifier key.
+Finally, if several \fBMotion\fR events occur in a row, only
+the last one is used for purposes of matching binding sequences.
+
+.SH ERRORS
+.PP
+If an error occurs in executing the script for a binding then the
+\fBtkerror\fR mechanism is used to report the error.
+
+.SH "SEE ALSO"
+bindtags, tkerror
diff --git a/Doc/Manual/bindtags.n b/Doc/Manual/bindtags.n
new file mode 100644
index 0000000..d5047ac
--- /dev/null
+++ b/Doc/Manual/bindtags.n
@@ -0,0 +1,77 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) bindtags.n 1.6 95/08/12 17:35:01
+'\" 
+.so STk-man.macros
+.TH bindtags n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+bindtags \- Determine which bindings apply to a window, and order of evaluation
+.SH SYNOPSIS
+.sp
+(\fBbindtags \fIwindow \fR?\fItagList\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+When a binding is created with the \fBbind\fR procedure, it is
+associated either with a particular window such as \fB.a.b.c\fR,
+a class name such as \fBButton\fR, the constant  \fB"all"\fR, or any
+other string.
+All of these forms are called \fIbinding tags\fR.
+Each window contains a list of binding tags that determine how
+events are processed for the window.
+When an event occurs in a window, it is applied to each of the
+window's tags in order:  for each tag, the most specific binding
+that matches the given tag and event is executed.
+See the \fBbind\fR procedure for more information on the matching
+process.
+.PP
+By default, each window has four binding tags consisting of the
+name of the window, the window's class name, the name of the window's
+nearest toplevel ancestor, and \fB"all"\fR, in that order.
+Toplevel windows have only three tags by default, since the toplevel
+name is the same as that of the window.
+The \fBbindtags\fR procedure allows the binding tags for a window to be
+read and modified.
+.PP
+If \fBbindtags\fR is invoked with only one argument, then the
+current set of binding tags for \fIwindow\fR is returned as a list.
+If the \fItagList\fR argument is specified to \fBbindtags\fR,
+then it must be a proper list; the tags for \fIwindow\fR are changed
+to the elements of the list.
+The elements of \fItagList\fR may be arbitrary strings;  however,
+any tag starting with a dot is treated as the name of a window;  if
+no window by that name exists at the time an event is processed,
+then the tag is ignored for that event.
+The order of the elements in \fItagList\fR determines the order in
+which binding scripts are executed in response to events.
+For example, the call
+.CS
+\fB(bindtags .b '("all" *root* "Button" .b))\fR
+.CE
+reverses the order in which binding scripts will be evaluated for
+a button named \fB.b\fR so that \fB"all"\fR bindings are invoked
+first, following by bindings for \fB.b\fR's toplevel (\fB*root\fR* or ``.''), 
+followed by class bindings, followed by bindings for \fB.b\fR.
+.PP
+The \fBbindtags\fR procedure may be used to introduce arbitrary
+additional binding tags for a window, or to remove standard tags.
+For example, 
+.CS
+\fB(bindtags .b '(.b "TrickyButton" *root* "all"})\fR
+.CE
+replaces the \fBButton\fR tag for \fB.b\fR with \fBTrickyButton\fR.
+This means that the default widget bindings for buttons, which are
+associated with the \fBButton\fR tag, will no longer apply to \fB.b\fR,
+but any bindings associated with \fBTrickyButton\fR (perhaps some
+new button behavior) will apply.
+
+.SH "SEE ALSO"
+bind
diff --git a/Doc/Manual/bitmap.n b/Doc/Manual/bitmap.n
new file mode 100644
index 0000000..b8098f8
--- /dev/null
+++ b/Doc/Manual/bitmap.n
@@ -0,0 +1,114 @@
+'\"
+'\" Copyright (c) 1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) bitmap.n 1.7 95/08/12 17:35:01
+'\" 
+.so STk-man.macros
+.TH bitmap n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+bitmap \- Images that display two colors
+.SH SYNOPSIS
+(\fBimage 'create 'bitmap \fR?\fIname\fR? ?\fIoptions\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+A bitmap is an image whose pixels can display either of two colors
+or be transparent.
+A bitmap image is defined by four things:  a background color,
+a foreground color, and two bitmaps, called the \fIsource\fR
+and the \fImask\fR.
+Each of the bitmaps specifies 0/1 values for a rectangular
+array of pixels, and the two bitmaps must have the same
+dimensions.
+For pixels where the mask is zero, the image displays nothing,
+producing a transparent effect.
+For other pixels, the image displays the foreground color if
+the source data is one and the background color if the source
+data is zero.
+
+.SH "CREATING BITMAPS"
+.PP
+Like all images, bitmaps are created using the \fBimage create\fR
+procedure.
+Bitmaps support the following \fIoptions\fR:
+.TP
+\fB:background \fIcolor\fR
+Specifies a background color for the image in any of the standard
+ways accepted by Tk.  If this option is set to an empty string
+then the background pixels will be transparent.  This effect
+is achieved by using the source bitmap as the mask bitmap, ignoring
+any \fB:maskdata\fR or \fB:maskfile\fR options.
+.TP
+\fB:data \fIstring\fR
+Specifies the contents of the source bitmap as a string.
+The string must adhere to X11 bitmap format (e.g., as generated
+by the \fBbitmap\fR program).
+If both the \fB:data\fR and \fB:file\fR options are specified,
+the \fB:data\fR option takes precedence.
+.TP
+\fB:file \fIname\fR
+\fIname\fR gives the name of a file whose contents define the
+source bitmap.
+The file must adhere to X11 bitmap format (e.g., as generated
+by the \fBbitmap\fR program).
+.TP
+\fB:foreground \fIcolor\fR
+Specifies a foreground color for the image in any of the standard
+ways accepted by Tk.
+.TP
+\fB:maskdata \fIstring\fR
+Specifies the contents of the mask as a string.
+The string must adhere to X11 bitmap format (e.g., as generated
+by the \fBbitmap\fR program).
+If both the \fB:maskdata\fR and \fB:maskfile\fR options are specified,
+the \fB:maskdata\fR option takes precedence.
+.TP
+\fB:maskfile \fIname\fR
+\fIname\fR gives the name of a file whose contents define the
+mask.
+The file must adhere to X11 bitmap format (e.g., as generated
+by the \fBbitmap\fR program).
+
+.SH "IMAGE PROCEDURE"
+.PP
+When a bitmap image is created, Tk also creates a new procedure
+whose name is the same as the image.
+This procedure may be used to invoke various operations
+on the image.
+It has the following general form:
+.CS
+(\fIimageName option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for bitmap images:
+.TP
+(\fIimageName \fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the
+\fBimage create bitmap\fR procedure.
+.TP
+(\fIimageName \fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options for the image.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIimageName\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the
+\fBimage create bitmap\fR procedure.
+
+.SH SEE ALSO
+image, photo, pixmap
diff --git a/Doc/Manual/button.n b/Doc/Manual/button.n
new file mode 100644
index 0000000..f6645cc
--- /dev/null
+++ b/Doc/Manual/button.n
@@ -0,0 +1,158 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) button.n 1.33 95/08/12 17:35:02
+'\" 
+.so STk-man.macros
+.TH button n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+button \- Create and manipulate button widgets
+.SH SYNOPSIS
+(\fBbutton\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:cursor	:highlightthickness	:takefocus
+:activeforeground	:disabledforeground	:image	:text
+:anchor	:font	:justify	:textvariable
+:background	:foreground	:padx	:underline
+:bitmap	:highlightbackground	:pady	:wraplength
+:borderwidth	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :command command Command command
+Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.
+.OP :height height Height height
+Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+.OP :state state State state
+Specifies one of three states for the button:  \fBnormal\fR, \fBactive\fR,
+or \fBdisabled\fR.  In normal state the button is displayed using the
+\fBforeground\fR and \fBbackground\fR options.  The active state is
+typically used when the pointer is over the button.  In active state
+the button is displayed using the \fBactiveForeground\fR and
+\fBactiveBackground\fR options.  Disabled state means that the button
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the \fBdisabledForeground\fR and
+\fBbackground\fR options determine how the button is displayed.
+.OP :width width Width width
+Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBbutton\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a button widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the button such as its colors, font,
+text, and initial relief.  The \fBbutton\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A button is a widget
+that displays a textual string, bitmap or image.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the \fBwrapLength\fR option) and
+one of the characters may optionally be underlined using the
+\fBunderline\fR option.
+It can display itself in either of three different ways, according
+to
+the \fBstate\fR option; 
+it can be made to appear raised, sunken, or flat;
+and it can be made to flash.  When a user invokes the
+button (by pressing mouse button 1 with the cursor over the
+button), then the STk procedure specified in the \fB:command\fR
+option is invoked.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBbutton\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for button widgets:
+.TP
+(\fIwidget\-name \fB'cget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBbutton\fR
+procedure.
+.TP
+(\fIwidget\-name \fB'configure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBbutton\fR
+procedure.
+.TP
+(\fIwidget\-name \fB'flash\fR)
+Flash the button.  This is accomplished by redisplaying the button
+several times, alternating between active and normal colors.  At
+the end of the flash the button is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the button's state is \fBdisabled\fR.
+.TP
+(\fIwidget\-name \fB'invoke\fR)
+Invoke the STk procedure associated with the button, if there is one
+(return value is undefined).
+This procedure is ignored if the button's state is \fBdisabled\fR.
+
+.SH "DEFAULT BINDINGS"
+.PP
+Tk automatically creates class bindings for buttons that give them
+the following default behavior:
+.IP [1]
+A button activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the button.
+.IP [2]
+A button's relief is changed to sunken whenever mouse button 1 is
+pressed over the button, and the relief is restored to its original
+value when button 1 is later released.
+.IP [3]
+If mouse button 1 is pressed over a button and later released over
+the button, the button is invoked.  However, if the mouse is not
+over the button when button 1 is released, then no invocation occurs.
+.IP [4]
+When a button has the input focus, the space key causes the button
+to be invoked.
+.PP
+If the button's state is \fBdisabled\fR then none of the above
+actions occur:  the button is completely non-responsive.
+.PP
+The behavior of buttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH SEE ALSO
+checkbutton, radiobutton
diff --git a/Doc/Manual/canvas.n b/Doc/Manual/canvas.n
new file mode 100644
index 0000000..6fda415
--- /dev/null
+++ b/Doc/Manual/canvas.n
@@ -0,0 +1,1542 @@
+'\"
+'\" Copyright (c) 1992-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) canvas.n 1.44 95/08/12 17:35:03
+'\"
+.so STk-man.macros
+.TH canvas n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+canvas \- Create and manipulate canvas widgets
+.SH SYNOPSIS
+(\fBcanvas\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:background	:highlightthickness	:insertwidth	:takefocus
+:borderwidth	:insertbackground	:relief	:xscrollcommand
+:cursor	:insertborderwidth	:selectbackground	:yscrollcommand
+:highlightbackground	:insertofftime	:selectborderwidth
+:highlightcolor	:insertontime	:selectforeground
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :closeenough closeEnough CloseEnough close-enough
+Specifies a floating-point value indicating how close the mouse cursor
+must be to an item before it is considered to be ``inside'' the item.
+Defaults to 1.0.
+.OP :confine confine Confine confine
+Specifies a boolean value that indicates whether or not it should be
+allowable to set the canvas's view outside the region defined by the
+\fBscrollRegion\fR argument.
+Defaults to true, which means that the view will
+be constrained within the scroll region.
+.OP :height height Height height
+Specifies a desired window height that the canvas widget should request from
+its geometry manager.  The value may be specified in any
+of the forms described in the COORDINATES section below.
+.OP :scrollregion scrollRegion ScrollRegion scroll-region
+Specifies a list with four coordinates describing the left, top, right, and
+bottom coordinates of a rectangular region.
+This region is used for scrolling purposes and is considered to be
+the boundary of the information in the canvas.
+Each of the coordinates may be specified
+in any of the forms given in the COORDINATES section below.
+.OP :width width width width
+Specifies a desired window width that the canvas widget should request from
+its geometry manager.  The value may be specified in any
+of the forms described in the COORDINATES section below.
+.br
+.OP :xscrollincrement xScrollIncrement ScrollIncrement x-scroll-indent
+Specifies an increment for horizontal scrolling, in any of the usual forms
+permitted for screen distances.  If the value of this option is greater
+than zero, the horizontal view in the window will be constrained so that
+the canvas x coordinate at the left edge of the window is always an even
+multiple of \fBxScrollIncrement\fR;  furthermore, the units for scrolling
+(e.g., the change in view when the left and right arrows of a scrollbar
+are selected) will also be \fBxScrollIncrement\fR.  If the value of
+this option is less than or equal to zero, then horizontal scrolling
+is unconstrained.
+.OP :yscrollincrement yScrollIncrement ScrollIncrement y-scroll-indent
+Specifies an increment for vertical scrolling, in any of the usual forms
+permitted for screen distances.  If the value of this option is greater
+than zero, the vertical view in the window will be constrained so that
+the canvas y coordinate at the top edge of the window is always an even
+multiple of \fByScrollIncrement\fR;  furthermore, the units for scrolling
+(e.g., the change in view when the top and bottom arrows of a scrollbar
+are selected) will also be \fByScrollIncrement\fR.  If the value of
+this option is less than or equal to zero, then vertical scrolling
+is unconstrained.
+.BE
+
+.SH INTRODUCTION
+.PP
+The \fBcanvas\fR procedure creates a new window (given
+by the \fIwidget\-name\fR argument) and makes it into a canvas widget.
+Additional options, described above, may be specified on the
+procedure line or in the option database
+to configure aspects of the canvas such as its colors and 3-D relief.
+The \fBcanvas\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+Canvas widgets implement structured graphics.
+A canvas displays any number of \fIitems\fR, which may be things like
+rectangles, circles, lines, and text.
+Items may be manipulated (e.g. moved or re-colored) and procedures may
+be associated with items in much the same way that the \fBbind\fR
+procedure allows procedures to be bound to widgets.  For example,
+a particular procedure may be associated with the <Button-1> event
+so that the procedure is invoked whenever button 1 is pressed with
+the mouse cursor over an item.
+This means that items in a canvas can have behaviors defined by
+the STk scripts bound to them.
+
+.SH "DISPLAY LIST"
+.PP
+The items in a canvas are ordered for purposes of display,
+with the first item in the display list being displayed
+first, followed by the next item in the list, and so on.
+Items later in the display list obscure those that are
+earlier in the display list and are sometimes referred to
+as being ``on top'' of earlier items.
+When a new item is created it is placed at the end of the
+display list, on top of everything else.
+Widget procedures may be used to re-arrange the order of the
+display list.
+
+.SH "ITEM IDS AND TAGS"
+.PP
+Items in a canvas widget may be named in either of two ways:
+by id or by tag.
+Each item has a unique identifying number which is assigned to
+that item when it is created.  The id of an item never changes
+and id numbers are never re-used within the lifetime of a
+canvas widget.
+.PP
+Each item may also have any number of \fItags\fR associated
+with it.  A tag is just a string of characters, and it may
+take any form except that of an integer.
+For example, ``x123'' is OK but ``123'' isn't.
+The same tag may be associated with many different items.
+This is commonly done to group items in various interesting
+ways;  for example, all selected items might be given the
+tag ``selected''.
+.PP
+The tag \fBall\fR is implicitly associated with every item
+in the canvas;  it may be used to invoke operations on
+all the items in the canvas.
+.PP
+The tag \fBcurrent\fR is managed automatically by Tk;
+it applies to the \fIcurrent item\fR, which is the
+topmost item whose drawn area covers the position of
+the mouse cursor.
+If the mouse is not in the canvas widget or is not over
+an item, then no item has the \fBcurrent\fR tag.
+.PP
+When specifying items in canvas widget procedures, if the
+specifier is an integer then it is assumed to refer to
+the single item with that id.
+If the specifier is not an integer, then it is assumed to
+refer to all of the items in the canvas that have a tag
+matching the specifier.
+The symbol \fItagOrId\fR is used below to indicate that
+an argument specifies either an id that selects a single
+item or a tag that selects zero or more items.
+Some widget procedures only operate on a single item at a
+time;  if \fItagOrId\fR is specified in a way that
+names multiple items, then the normal behavior is for
+the procedure to use the first (lowest) of these items in
+the display list that is suitable for the procedure.
+Exceptions are noted in the widget procedure descriptions
+below.
+
+.SH "COORDINATES"
+.PP
+All coordinates related to canvases are stored as floating-point
+numbers.
+Coordinates and distances are specified in screen units,
+which are floating-point numbers optionally followed
+by one of several letters.
+If no letter is supplied then the distance is in pixels.
+If the letter is \fBm\fR then the distance is in millimeters on
+the screen;  if it is \fBc\fR then the distance is in centimeters;
+\fBi\fR means inches, and \fBp\fR means printers points (1/72 inch).
+Larger y-coordinates refer to points lower on the screen;  larger
+x-coordinates refer to points farther to the right.
+
+.SH TRANSFORMATIONS
+.PP
+Normally the origin of the canvas coordinate system is at the
+upper-left corner of the window containing the canvas.
+It is possible to adjust the origin of the canvas
+coordinate system relative to the origin of the window using the
+\fBxview\fR and \fByview\fR widget procedures;  this is typically used
+for scrolling.
+Canvases do not support scaling or rotation of the canvas coordinate
+system relative to the window coordinate system.
+.PP
+Individual items may be moved or scaled using widget procedures
+described below, but they may not be rotated.
+
+.SH "INDICES"
+.PP
+Text items support the notion of an \fIindex\fR for identifying
+particular positions within the item.
+Indices are used for procedures such as inserting text, deleting
+a range of characters, and setting the insertion cursor position.
+An index may be specified in any of a number of ways, and
+different types of items may support different forms for
+specifying indices.
+Text items support the following forms for an index;  if you
+define new types of text-like items, it would be advisable to
+support as many of these forms as practical.
+Note that it is possible to refer to the character just after
+the last one in the text item;  this is necessary for such
+tasks as inserting new text at the end of the item.
+.TP 10
+\fInumber\fR
+A decimal number giving the position of the desired character
+within the text item.
+0 refers to the first character, 1 to the next character, and
+so on.
+A number less than 0 is treated as if it were zero, and a
+number greater than the length of the text item is treated
+as if it were equal to the length of the text item.
+.TP 10
+\fBend\fR
+Refers to the character just after the last one in the item
+(same as the number of characters in the item).
+.TP 10
+\fBinsert\fR
+Refers to the character just before which the insertion cursor
+is drawn in this item.
+.TP 10
+\fBsel.first\fR
+Refers to the first selected character in the item.
+If the selection isn't in this item then this form is illegal.
+.TP 10
+\fBsel.last\fR
+Refers to the last selected character in the item.
+If the selection isn't in this item then this form is illegal.
+.TP 10
+\fB@\fIx,y\fR
+Refers to the character at the point given by \fIx\fR and
+\fIy\fR, where \fIx\fR and \fIy\fR are specified in the coordinate
+system of the canvas.
+If \fIx\fR and \fIy\fR lie outside the coordinates covered by the
+text item, then they refer to the first or last character in the
+line that is closest to the given point.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBcanvas\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.
+The following widget procedures are possible for canvas widgets:
+.TP
+(\fIwidget\-name '\fBaddtag \fItag searchSpec \fR?\fIarg arg ...\fR?)
+For each item that meets the constraints specified by
+\fIsearchSpec\fR and the \fIarg\fRs, add
+\fItag\fR to the list of tags associated with the item if it
+isn't already present on that list.
+It is possible that no items will satisfy the constraints
+given by \fIsearchSpec and \fIarg\fRs, in which case the
+procedure has no effect.
+This procedure returns an empty list as result.
+\fISearchSpec\fR and \fIarg\fR's may take any of the following
+forms:
+.RS
+.TP
+\fBabove \fItagOrId\fR
+Selects the item just after (above) the one given by \fItagOrId\fR
+in the display list.
+If \fItagOrId\fR denotes more than one item, then the last (topmost)
+of these items in the display list is used.
+.TP
+\fBall\fR
+Selects all the items in the canvas.
+.TP
+\fBbelow \fItagOrId\fR
+Selects the item just before (below) the one given by \fItagOrId\fR
+in the display list.
+If \fItagOrId\fR denotes more than one item, then the first (lowest)
+of these items in the display list is used.
+.TP
+\fBclosest \fIx y \fR?\fIhalo\fR? ?\fIstart\fR?
+Selects the item closest to the point given by \fIx\fR and \fIy\fR.
+If more than one item is at the same closest distance (e.g. two
+items overlap the point), then the top-most of these items (the
+last one in the display list) is used.
+If \fIhalo\fR is specified, then it must be a non-negative
+value.
+Any item closer than \fIhalo\fR to the point is considered to
+overlap it.
+The \fIstart\fR argument may be used to step circularly through
+all the closest items.
+If \fIstart\fR is specified, it names an item using a tag or id
+(if by tag, it selects the first item in the display list with
+the given tag).
+Instead of selecting the topmost closest item, this form will
+select the topmost closest item that is below \fIstart\fR in
+the display list;  if no such item exists, then the selection
+behaves as if the \fIstart\fR argument had not been specified.
+.TP
+\fBenclosed\fR \fIx1\fR \fIy1\fR \fIx2\fR \fIy2\fR
+Selects all the items completely enclosed within the rectangular
+region given by \fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR.
+\fIX1\fR must be no greater then \fIx2\fR and \fIy1\fR must be
+no greater than \fIy2\fR.
+.TP
+\fBoverlapping\fR \fIx1\fR \fIy1\fR \fIx2\fR \fIy2\fR
+Selects all the items that overlap or are enclosed within the
+rectangular region given by \fIx1\fR, \fIy1\fR, \fIx2\fR,
+and \fIy2\fR.
+\fIX1\fR must be no greater then \fIx2\fR and \fIy1\fR must be
+no greater than \fIy2\fR.
+.TP
+\fBwithtag \fItagOrId\fR
+Selects all the items given by \fItagOrId\fR.
+.RE
+.TP
+(\fIwidget\-name '\fBbbox \fItagOrId\fR ?\fItagOrId tagOrId ...\fR?)
+Returns a list with four elements giving an approximate bounding box
+for all the items named by the \fItagOrId\fR arguments.
+The list has the form \fI(x1 y1 x2 y2)\fR such that the drawn
+areas of all the named elements are within the region bounded by
+\fIx1\fR on the left, \fIx2\fR on the right, \fIy1\fR on the top,
+and \fIy2\fR on the bottom.
+The return value may overestimate the actual bounding box by
+a few pixels.
+If no items match any of the \fItagOrId\fR arguments or if the
+matching items have empty bounding boxes (i.e. they have nothing
+to display) then an empty list is returned.
+.TP
+(\fIwidget\-name '\fBbind \fItagOrId\fR ?\fIsequence\fR? ?\fIprocedure\fR?)
+This procedure associates \fIprocedure\fR with all the items given by
+\fItagOrId\fR such that whenever the event sequence given by
+\fIsequence\fR occurs for one of the items the procedure will
+be invoked.
+This widget procedure is similar to the \fBbind\fR procedure except that
+it operates on items in a canvas rather than entire widgets.
+See the \fBbind\fR manual entry for complete details
+on the syntax of \fIsequence\fR and the substitutions performed
+on \fIprocedure\fR before invoking it.
+If all arguments are specified then a new binding is created, replacing
+any existing binding for the same \fIsequence\fR and \fItagOrId\fR
+(if the first character of \fIprocedure\fR is ``+'' then \fIprocedure\fR
+augments an existing binding rather than replacing it).
+In this case the return value is an empty list.
+If \fIprocedure\fR is omitted then the procedure returns the \fIprocedure\fR
+associated with \fItagOrId\fR and \fIsequence\fR (an error occurs
+if there is no such binding).
+If both \fIprocedure\fR and \fIsequence\fR are omitted then the procedure
+returns a list of all the sequences for which bindings have been
+defined for \fItagOrId\fR.
+.RS
+.LP
+Example:
+.DS
+(pack (canvas '.c))
+            (define item (.c 'create 'rectangle 0 0 10 10))
+            (.c 'bind item "<Enter>" (lambda() (display "You enter\n")))
+
+.DE
+.RE
+.RS
+.PP
+The only events for which bindings may be specified are those related
+to the mouse and keyboard, such as \fBEnter\fR, \fBLeave\fR,
+\fBButtonPress\fR, \fBMotion\fR, and \fBKeyPress\fR.
+The handling of events in canvases uses the current item defined
+in ITEM IDS AND TAGS above.
+\fBEnter\fR and \fBLeave\fR events trigger for an item when it
+becomes the current item or ceases to be the current item;  note
+that these events are different than \fBEnter\fR and \fBLeave\fR
+events for windows.
+Mouse-related events are directed to the current item, if any.
+Keyboard-related events are directed to the focus item, if any
+(see the \fBfocus\fR widget procedure below for more on this).
+.PP
+It is possible for multiple bindings to match a particular event.
+This could occur, for example, if one binding is associated with the
+item's id and another is associated with one of the item's tags.
+When this occurs, all of the matching bindings are invoked.
+A binding associated with the \fBall\fR tag is invoked first,
+followed by one binding for each of the item's tags (in order),
+followed by a binding associated with the item's id.
+If there are multiple matching bindings for a single tag,
+then only the most specific binding is invoked.
+If a binding script returns the symbol \fBbreak\fR, remaining scripts 
+for the event are skipped, just as for the \fBbind\fR procedure.
+
+.PP
+If bindings have been created for a canvas window using the \fBbind\fR
+procedure, then they are invoked in addition to bindings created for
+the canvas's items using the \fBbind\fR widget procedure.
+The bindings for items will be invoked before any of the bindings
+for the window as a whole.
+.RE
+.LP
+.TP
+(\fIwidget\-name '\fBcanvasx \fIscreenx\fR)
+.TP
+(\fIwidget\-name '\fBcanvasx \fIscreenx\fR \fIgridspacing\fR)
+Given a screen x-coordinate \fIscreenx\fR this procedure returns
+the canvas x-coordinate that is displayed at that location.
+If \fIgridspacing\fR is specified, then the canvas coordinate is
+rounded to the nearest multiple of \fIgridspacing\fR units.
+.TP
+(\fIwidget\-name '\fBcanvasy \fIscreeny\fR)
+.TP
+(\fIwidget\-name '\fBcanvasy \fIscreeny\fR \fIgridspacing\fR)
+Given a screen y-coordinate \fIscreeny\fR this procedure returns
+the canvas y-coordinate that is displayed at that location.
+If \fIgridspacing\fR is specified, then the canvas coordinate is
+rounded to the nearest multiple of \fIgridspacing\fR units.
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBcanvas\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure \fR?\fIoption\fR? ?\fIvalue\fR? ?\fIoption value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+\fIOption\fR may have any of the values accepted by the \fBcanvas\fR
+procedure.
+.TP
+(\fIwidget\-name\fR '\fBcoords \fItagOrId \fR?\fIx0 y0 ...\fR?)
+Query or modify the coordinates that define an item.
+If no coordinates are specified, this procedure returns a list
+whose elements are the coordinates of the item named by
+\fItagOrId\fR.
+If coordinates are specified, then they replace the current
+coordinates for the named item.
+If \fItagOrId\fR refers to multiple items, then
+the first one in the display list is used.
+.TP
+(\fIwidget\-name '\fBcreate \fItype x y \fR?\fIx y ...\fR? ?\fIoption value ...\fR?)
+Create a new item in \fIwidget\-name\fR of type \fItype\fR.
+The exact format of the arguments after \fBtype\fR depends
+on \fBtype\fR, but usually they consist of the coordinates for
+one or more points, followed by specifications for zero or
+more item options.
+See the subsections on individual item types below for more
+on the syntax of this procedure.
+This procedure returns the id for the new item.
+.TP
+(\fIwidget\-name '\fBdchars \fItagOrId first \fR)
+.TP
+(\fIwidget\-name '\fBdchars \fItagOrId first \fR\fIlast\fR)
+For each item given by \fItagOrId\fR, delete the characters
+in the range given by \fIfirst\fR and \fIlast\fR,
+inclusive.
+If some of the items given by \fItagOrId\fR don't support
+text operations, then they are ignored.
+\fIFirst\fR and \fIlast\fR are indices of characters
+within the item(s) as described in INDICES above.
+If \fIlast\fR is omitted, it defaults to \fIfirst\fR.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBdelete \fR?\fItagOrId tagOrId ...\fR?)
+Delete each of the items given by each \fItagOrId\fR, and return
+an empty list.
+.TP
+(\fIwidget\-name '\fBdtag \fItagOrId \fR)
+.TP
+(\fIwidget\-name '\fBdtag \fItagOrId \fR\fItagToDelete\fR)
+For each of the items given by \fItagOrId\fR, delete the
+tag given by \fItagToDelete\fR from the list of those
+associated with the item.
+If an item doesn't have the tag \fItagToDelete\fR then
+the item is unaffected by the procedure.
+If \fItagToDelete\fR is omitted then it defaults to \fItagOrId\fR.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBfind \fIsearchProcedure \fR?\fIarg arg ...\fR?)
+This procedure returns a list consisting of all the items that
+meet the constraints specified by \fIsearchProcedure\fR and
+\fIarg\fR's.
+\fISearchProcedure\fR and \fIargs\fR have any of the forms
+accepted by the \fBaddtag\fR procedure.
+.TP
+(\fIwidget\-name '\fBfocus \fR)
+.TP
+(\fIwidget\-name '\fBfocus \fR\fItagOrId\fR)
+Set the keyboard focus for the canvas widget to the item given by
+\fItagOrId\fR.
+If \fItagOrId\fR refers to several items, then the focus is set
+to the first such item in the display list that supports the
+insertion cursor.
+If \fItagOrId\fR doesn't refer to any items, or if none of them
+support the insertion cursor, then the focus isn't changed.
+If \fItagOrId\fR is an empty
+string, then the focus item is reset so that no item has the focus.
+If \fItagOrId\fR is not specified then the procedure returns the
+id for the item that currently has the focus, or an empty list
+if no item has the focus.
+.RS
+.PP
+Once the focus has been set to an item, the item will display
+the insertion cursor and all keyboard events will be directed
+to that item.
+The focus item within a canvas and the focus window on the
+screen (set with the \fBfocus\fR procedure) are totally independent:
+a given item doesn't actually have the input focus unless (a)
+its canvas is the focus window and (b) the item is the focus item
+within the canvas.
+In most cases it is advisable to follow the \fBfocus\fR widget
+procedure with the \fIfocus\fR option to set the focus window to
+the canvas (if it wasn't there already).
+.RE
+.LP
+.TP
+(\fIwidget\-name '\fBgettags\fR \fItagOrId\fR)
+Return a list whose elements are the tags associated with the
+item given by \fItagOrId\fR.
+If \fItagOrId\fR refers to more than one item, then the tags
+are returned from the first such item in the display list.
+If \fItagOrId\fR doesn't refer to any items, or if the item
+contains no tags, then an empty list is returned.
+.TP
+(\fIwidget\-name '\fBicursor \fItagOrId index\fR)
+Set the position of the insertion cursor for the item(s)
+given by \fItagOrId\fR
+to just before the character whose position is given by \fIindex\fR.
+If some or all of the items given by \fItagOrId\fR don't support
+an insertion cursor then this procedure has no effect on them.
+See INDICES above for a description of the
+legal forms for \fIindex\fR.
+Note:  the insertion cursor is only displayed in an item if
+that item currently has the keyboard focus (see the widget
+procedure \fBfocus\fR, below), but the cursor position may
+be set even when the item doesn't have the focus.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBindex \fItagOrId index\fR)
+This procedure returns a decimal string giving the numerical index
+within \fItagOrId\fR corresponding to \fIindex\fR.
+\fIIndex\fR gives a textual description of the desired position
+as described in INDICES above.
+The return value is guaranteed to lie between 0 and the number
+of characters within the item, inclusive.
+If \fItagOrId\fR refers to multiple items, then the index
+is processed in the first of these items that supports indexing
+operations (in display list order).
+.TP
+(\fIwidget\-name '\fBinsert \fItagOrId beforeThis string\fR)
+For each of the items given by \fItagOrId\fR, if the item supports
+text insertion then \fIstring\fR is inserted into the item's
+text just before the character whose index is \fIbeforeThis\fR.
+See INDICES above for information about the forms allowed
+for \fIbeforeThis\fR.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBitemcget\fR \fItagOrId\fR \fIoption\fR)
+Returns the current value of the configuration option for the
+item given by \fItagOrId\fR whose name is \fIoption\fR.
+This procedure is similar to the \fBcget\fR widget procedure except that
+it applies to a particular item rather than the widget as a whole.
+\fIOption\fR may have any of the values accepted by the \fBcreate\fR
+widget procedure when the item was created.
+If \fItagOrId\fR is a tag that refers to more than one item,
+the first (lowest) such item is used.
+.TP
+(\fIwidget\-name '\fBitemconfigure \fItagOrId\fR ?\fIoption\fR? ?\fIvalue\fR? ?\fIoption value ...\fR?)
+This procedure is similar to the \fBconfigure\fR widget procedure except
+that it modifies item-specific options for the items given by
+\fItagOrId\fR instead of modifying options for the overall
+canvas widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for the first item given by \fItagOrId\fR
+(see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s) in
+each of the items given by \fItagOrId\fR;  in
+this case the procedure returns an empty list.
+The \fIoption\fRs and \fIvalue\fRs are the same as those permissible
+in the \fBcreate\fR widget procedure when the item(s) were created;
+see the sections describing individual item types below for details
+on the legal options.
+.TP
+(\fIwidget\-name '\fBlower \fItagOrId \fR)
+.TP
+(\fIwidget\-name '\fBlower \fItagOrId \fR\fIbelowThis\fR)
+Move all of the items given by \fItagOrId\fR to a new position
+in the display list just before the item given by \fIbelowThis\fR.
+If \fItagOrId\fR refers to more than one item then all are moved
+but the relative order of the moved items will not be changed.
+\fIBelowThis\fR is a tag or id;  if it refers to more than one
+item then the first (lowest) of these items in the display list is used
+as the destination location for the moved items.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBmove \fItagOrId xAmount yAmount\fR)
+Move each of the items given by \fItagOrId\fR in the canvas coordinate
+space by adding \fIxAmount\fR to the x-coordinate of each point
+associated with the item and \fIyAmount\fR to the y-coordinate of
+each point associated with the item.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBpostscript \fR?\fIoption value option value ...\fR?)
+Generate a Postscript representation for part or all of the canvas.
+If the \fB:file\fR option is specified then the Postscript is written
+to a file and an empty list is returned;  otherwise the Postscript
+is returned as the result of the procedure.
+The Postscript is created in Encapsulated Postscript form using
+version 3.0 of the Document Structuring Conventions.
+Note: by default Postscript is only generated for information that
+appears in the canvas's window on the screen.  If the canvas is
+freshly created it may still have its initial size of 1x1 pixel
+so nothing will appear in the Postscript.  To get around this problem
+either invoke the "update" procedure to wait for the canvas window
+to reach its final size, or else use the \fB:width\fR and \fB:height\fR
+options to specify the area of the canvas to print.
+The \fIoption\fR\-\fIvalue\fR argument pairs provide additional
+information to control the generation of Postscript.  The following
+options are supported:
+.RS
+.TP
+\fB:colormap \fIvarName\fR
+\fBNOT IMPLEMENTED IN STk\fR
+.TP
+\fB:colormode \fImode\fR
+Specifies how to output color information.  \fIMode\fR must be either
+\fBcolor\fR (for full color output), \fBgray\fR (convert all colors
+to their gray-scale equivalents) or \fBmono\fR (convert all colors
+to black or white).
+.TP
+\fB:file \fIfileName\fR
+Specifies the name of the file in which to write the Postscript.
+If this option isn't specified then the Postscript is returned as the
+result of the procedure instead of being written to a file.
+.TP
+\fB:fontmap \fIvarName\fR
+\fBNOT IMPLEMENTED IN STk\fR
+.TP
+\fB:height \fIsize\fR
+Specifies the height of the area of the canvas to print.
+Defaults to the height of the canvas window.
+.TP
+\fB:pageanchor \fIanchor\fR
+Specifies which point of the printed area of the canvas should appear over
+the positioning point on the page (which is given by the \fB:pagex\fR
+and \fB:pagey\fR options).
+For example, \fB:pageanchor n\fR means that the top center of the
+area of the canvas being printed (as it appears in the canvas window)
+should be over the positioning point. Defaults to \fBcenter\fR.
+.TP
+\fB:pageheight \fIsize\fR
+Specifies that the Postscript should be scaled in both x and y so
+that the printed area is \fIsize\fR high on the Postscript page.
+\fISize\fR consists of a floating-point number followed by
+\fBc\fR for centimeters, \fBi\fR for inches, \fBm\fR for millimeters,
+or \fBp\fR or nothing for printer's points (1/72 inch).
+Defaults to the height of the printed area on the screen.
+If both \fB:pageheight\fR and \fB:pagewidth\fR are specified then
+the scale factor from \fB:pagewidth\fR  is used (non-uniform scaling
+is not implemented).
+.TP
+\fB:pagewidth \fIsize\fR
+Specifies that the Postscript should be scaled in both x and y so
+that the printed area is \fIsize\fR wide on the Postscript page.
+\fISize\fR has the same form as for \fB:pageheight\fR.
+Defaults to the width of the printed area on the screen.
+If both \fB:pageheight\fR and \fB:pagewidth\fR are specified then
+the scale factor from  \fB:pagewidth\fR is used (non-uniform scaling
+is not implemented).
+.TP
+\fB:pagex \fIposition\fR
+\fIPosition\fR gives the x-coordinate of the positioning point on
+the Postscript page, using any of the forms allowed for \fB:pageheight\fR.
+Used in conjunction with the \fB:pagey\fR and \fB:pageanchor\fR options
+to determine where the printed area appears on the Postscript page.
+Defaults to the center of the page.
+.TP
+\fB:pagey \fIposition\fR
+\fIPosition\fR gives the y-coordinate of the positioning point on
+the Postscript page, using any of the forms allowed for \fB:pageheight\fR.
+Used in conjunction with the \fB:pagex\fR and \fB:pageanchor\fR options
+to determine where the printed area appears on the Postscript page.
+Defaults to the center of the page.
+.TP
+\fB:rotate \fIboolean\fR
+\fIBoolean\fR specifies whether the printed area is to be rotated 90
+degrees.
+In non-rotated output the x-axis of the printed area runs along
+the short dimension of the page (``portrait'' orientation);
+in rotated output the x-axis runs along the long dimension of the
+page (``landscape'' orientation).
+Defaults to non-rotated.
+.TP
+\fB:width \fIsize\fR
+Specifies the width of the area of the canvas to print.
+Defaults to the width of the canvas window.
+.TP
+\fB:x \fIposition\fR
+Specifies the x-coordinate of the left edge of the area of the
+canvas that is to be printed, in canvas coordinates, not window
+coordinates.
+Defaults to the coordinate of the left edge of the window.
+.TP
+\fB:y \fIposition\fR
+Specifies the y-coordinate of the top edge of the area of the
+canvas that is to be printed, in canvas coordinates, not window
+coordinates.
+Defaults to the coordinate of the top edge of the window.
+.RE
+.TP
+(\fIwidget\-name '\fBraise \fItagOrId \fR)
+.TP
+(\fIwidget\-name '\fBraise \fItagOrId \fR\fIaboveThis\fR)
+Move all of the items given by \fItagOrId\fR to a new position
+in the display list just after the item given by \fIaboveThis\fR.
+If \fItagOrId\fR refers to more than one item then all are moved
+but the relative order of the moved items will not be changed.
+\fIAboveThis\fR is a tag or id;  if it refers to more than one
+item then the last (topmost) of these items in the display list is used
+as the destination location for the moved items.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBscale \fItagOrId xOrigin yOrigin xScale yScale\fR)
+Rescale all of the items given by \fItagOrId\fR in canvas coordinate
+space.
+\fIXOrigin\fR and \fIyOrigin\fR identify the origin for the scaling
+operation and \fIxScale\fR and \fIyScale\fR identify the scale
+factors for x- and y-coordinates, respectively (a scale factor of
+1.0 implies no change to that coordinate).
+For each of the points defining each item, the x-coordinate is
+adjusted to change the distance from \fIxOrigin\fR by a factor
+of \fIxScale\fR.
+Similarly, each y-coordinate is adjusted to change the distance
+from \fIyOrigin\fR by a factor of \fIyScale\fR.
+This procedure returns an empty list.
+.TP
+(\fIwidget\-name '\fBscan\fR \fIoption args\fR)
+This procedure is used to implement scanning on canvases.  It has
+two forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name '\fBscan 'mark \fIx y\fR)
+Records \fIx\fR and \fIy\fR and the canvas's current view;  used
+in conjunction with later \fBscan dragto\fR procedures.
+Typically this procedure is associated with a mouse button press in
+the widget and \fIx\fR and \fIy\fR are the coordinates of the
+mouse.  It returns an empty list.
+.TP
+(\fIwidget\-name '\fBscan 'dragto \fIx y\fR)
+This procedure computes the difference between its \fIx\fR and \fIy\fR
+arguments (which are typically mouse coordinates) and the \fIx\fR and
+\fIy\fR arguments to the last \fBscan mark\fR procedure for the widget.
+It then adjusts the view by 10 times the
+difference in coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the canvas at high speed through its window.  The return
+value is an empty list.
+.RE
+.TP
+(\fIwidget\-name '\fBselect \fIoption\fR ?\fItagOrId arg\fR?)
+Manipulates the selection in one of several ways, depending on
+\fIoption\fR.
+The procedure may take any of the forms described below.
+In all of the descriptions below, \fItagOrId\fR must refer to
+an item that supports indexing and selection;  if it refers to
+multiple items then the first of
+these that supports indexing and the selection is used.
+\fIIndex\fR gives a textual description of a position
+within \fItagOrId\fR, as described in INDICES above.
+.RS
+.TP
+(\fIwidget\-name '\fBselect adjust \fItagOrId index\fR)
+Locate the end of the selection in \fItagOrId\fR nearest
+to the character given by \fIindex\fR, and adjust that
+end of the selection to be at \fIindex\fR (i.e. including
+but not going beyond \fIindex\fR).
+The other end of the selection is made the anchor point
+for future \fBselect to\fR procedures.
+If the selection isn't currently in \fItagOrId\fR then
+this procedure behaves the same as the \fBselect to\fR widget
+procedure.
+Returns an empty list.
+.TP
+(\fIwidget\-name '\fBselect 'clear\fR)
+Clear the selection if it is in this widget.
+If the selection isn't in this widget then the procedure
+has no effect.
+Returns an empty list.
+.TP
+(\fIwidget\-name '\fBselect 'from \fItagOrId index\fR)
+Set the selection anchor point for the widget to be just
+before the character
+given by \fIindex\fR in the item given by \fItagOrId\fR.
+This procedure doesn't change the selection;  it just sets
+the fixed end of the selection for future \fBselect to\fR
+procedures.
+Returns an empty list.
+.TP
+(\fIwidget\-name '\fBselect 'item\fR)
+Returns the id of the selected item, if the selection is in an
+item in this canvas.
+If the selection is not in this canvas then an empty list
+is returned.
+.TP
+(\fIwidget\-name '\fBselect 'to \fItagOrId index\fR)
+Set the selection to consist of those characters of \fItagOrId\fR
+between the selection anchor point and
+\fIindex\fR.
+The new selection will include the character given by \fIindex\fR;
+it will include the character given by the anchor point only if
+\fIindex\fR is greater than or equal to the anchor point.
+The anchor point is determined by the most recent \fBselect adjust\fR
+or \fBselect from\fR procedure for this widget.
+If the selection anchor point for the widget isn't currently in
+\fItagOrId\fR, then it is set to the same character given
+by \fIindex\fR.
+Returns an empty list.
+.RE
+.TP
+(\fIwidget\-name '\fBtype\fI tagOrId\fR)
+Returns the type of the item given by \fItagOrId\fR, such as
+\fBrectangle\fR or \fBtext\fR.
+If \fItagOrId\fR refers to more than one item, then the type
+of the first item in the display list is returned.
+If \fItagOrId\fR doesn't refer to any items at all then
+an empty list is returned.
+.TP
+(\fIwidget\-name '\fBxview  \fR?\fIargs\fR?)
+This procedure is used to query and change the horizontal position of the
+information displayed in the canvas's window.
+It can take any of the following forms:
+.RS
+.TP
+(\fIwidget\-name '\fBxview\fR)
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the canvas's area (as defined by the \fB:scrollregion\fR option)
+is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the canvas is off-screen to the right.
+These are the same values passed to scrollbars via the \fB:xscrollcommand\fR
+option.
+.TP
+(\fIwidget\-name '\fBxview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that \fIfraction\fR of the
+total width of the canvas is off-screen to the left.
+\fIFraction\fR must be a fraction between 0 and 1.
+.TP
+(\fIwidget\-name '\fBxview 'scroll \fInumber what\fR)
+This procedure shifts the view in the window left or right according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR or an abbreviation
+of one of these.
+If \fIwhat\fR is \fBunits\fR, the view adjusts left or right in units
+of the \fBxScrollIncrement\fR option, if it is greater than zero,
+or in units of one-tenth the window's width otherwise.
+If \fIwhat is \fBpages\fR then the view
+adjusts in units of nine-tenths the window's width.
+If \fInumber\fR is negative then information farther to the left
+becomes visible;  if it is positive then information farther to the right
+becomes visible.
+.RE
+.TP
+(\fIwidget\-name '\fByview \fI?args\fR?)
+This procedure is used to query and change the vertical position of the
+information displayed in the canvas's window.
+It can take any of the following forms:
+.RS
+.TP
+(\fIwidget\-name '\fByview\fR)
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the vertical span that is visible in the window.
+For example, if the first element is .6 and the second element is 1.0,
+the lowest 40% of the canvas's area (as defined by the \fB:scrollregion\fR
+option) is visible in the window.
+These are the same values passed to scrollbars via the \fB:yscrollcommand\fR
+option.
+.TP
+(\fIwidget\-name '\fByview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that \fIfraction\fR of the canvas's
+area is off-screen to the top.
+\fIFraction\fR is a fraction between 0 and 1.
+.TP
+(\fIwidget\-name '\fByview 'scroll \fInumber what\fR)
+This procedure adjusts the view in the window up or down according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR.
+If \fIwhat\fR is \fBunits\fR, the view adjusts up or down in units
+of the \fByScrollIncrement\fR option, if it is greater than zero,
+or in units of one-tenth the window's height otherwise.
+If \fIwhat\fR is \fBpages\fR then
+the view adjusts in units of nine-tenths the window's height.
+If \fInumber\fR is negative then higher information becomes
+visible;  if it is positive then lower information
+becomes visible.
+.RE
+
+.SH "OVERVIEW OF ITEM TYPES"
+.PP
+The sections below describe the various types of items supported
+by canvas widgets.  Each item type is characterized by two things:
+first, the form of the \fBcreate\fR procedure used to create
+instances of the type;  and second, a set of configuration options
+for items of that type, which may be used in the
+\fBcreate\fR and \fBitemconfigure\fR widget procedures.
+Most items don't support indexing or selection or the procedures
+related to them, such as \fBindex\fR and \fBinsert\fR.
+Where items do support these facilities, it is noted explicitly
+in the descriptions below (at present, only text items provide
+this support).
+
+.SH "ARC ITEMS"
+.PP
+Items of type \fBarc\fR appear on the display as arc-shaped regions.
+An arc is a section of an oval delimited by two angles (specified
+by the \fB:start\fR and \fB:extent\fR options) and displayed in
+one of several ways (specified by the \fB:style\fR option).
+Arcs are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'arc \fIx1 y1 x2 y2 \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR give
+the coordinates of two diagonally opposite corners of a
+rectangular region enclosing the oval that defines the arc.
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for arcs:
+.TP
+\fB:extent \fIdegrees\fR
+Specifies the size of the angular range occupied by the arc.
+The arc's range extends for \fIdegrees\fR degrees counter-clockwise
+from the starting angle given by the \fB:start\fR option.
+\fIDegrees\fR may be negative.
+If it is greater than 360 or less than -360, then \fIdegrees\fR
+modulo 360 is used as the extent.
+.TP
+\fB:fill \fIcolor\fR
+Fill the region of the arc with \fIcolor\fR.
+\fIColor\fR may have any of the forms accepted by \fBTk_GetColor\fR.
+If \fIcolor\fR is an empty string (the default), then
+then the arc will not be filled.
+.TP
+\fB:outline \fIcolor\fR
+\fIColor\fR specifies a color to use for drawing the arc's
+outline;  it may have any of the forms accepted by \fBTk_GetColor\fR.
+This option defaults to \fBblack\fR.  If \fIcolor\fR is specified
+as an empty string then no outline is drawn for the arc.
+.TP
+\fB:outlinestipple \fIbitmap\fR
+Indicates that the outline for the arc should be drawn with a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If the \fB:outline\fR option hasn't been specified then this option
+has no effect.
+If \fIbitmap\fR is an empty string (the default), then the outline is drawn
+in a solid fashion.
+.TP
+\fB:start \fIdegrees\fR
+Specifies the beginning of the angular range occupied by the
+arc.
+\fIDegrees\fR is given in units of degrees measured counter-clockwise
+from the 3-o'clock position;  it may be either positive or negative.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the arc should be filled in a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If the \fB:fill\fR option hasn't been specified then this option
+has no effect.
+If \fIbitmap\fR is an empty string (the default), then filling is done
+in a solid fashion.
+.TP
+\fB:style \fItype\fR
+Specifies how to draw the arc.  If \fItype\fR is \fBpieslice\fR
+(the default) then the arc's region is defined by a section
+of the oval's perimeter plus two line segments, one between the center
+of the oval and each end of the perimeter section.
+If \fItype\fR is \fBchord\fR then the arc's region is defined
+by a section of the oval's perimeter plus a single line segment
+connecting the two end points of the perimeter section.
+If \fItype\fR is \fBarc\fR then the arc's region consists of
+a section of the perimeter alone.
+In this last case the \fB:fill\fR option is ignored.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIoutlineWidth\fR
+Specifies the width of the outline to be drawn around
+the arc's region, in any of the forms described in the COORDINATES
+section above.
+If the \fB:outline\fR option has been specified as an empty string
+then this option has no effect.
+Wide outlines will be drawn centered on the edges of the arc's region.
+This option defaults to 1.0.
+
+.SH "BITMAP ITEMS"
+.PP
+Items of type \fBbitmap\fR appear on the display as images with
+two colors, foreground and background.
+Bitmaps are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'bitmap \fIx y \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx\fR and \fIy\fR specify the coordinates of a
+point used to position the bitmap on the display (see the \fB:anchor\fR
+option below for more information on how bitmaps are displayed).
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for bitmaps:
+.TP
+\fB:anchor \fIanchorPos\fR
+\fIAnchorPos\fR tells how to position the bitmap relative to the
+positioning point for the item;  it may have any of the forms
+accepted by \fBTk_GetAnchor\fR.  For example, if \fIanchorPos\fR
+is \fBcenter\fR then the bitmap is centered on the point;  if
+\fIanchorPos\fR is \fBn\fR then the bitmap will be drawn so that
+its top center point is at the positioning point.
+This option defaults to \fBcenter\fR.
+.TP
+\fB:background \fIcolor\fR
+Specifies a color to use for each of the bitmap pixels
+whose value is 0.
+\fIColor\fR may have any of the forms accepted by \fBTk_GetColor\fR.
+If this option isn't specified, or if it is specified as an empty
+string, then nothing is displayed where the bitmap pixels are 0;  this
+produces a transparent effect.
+.TP
+\fB:bitmap \fIbitmap\fR
+Specifies the bitmap to display in the item.
+\fIBitmap\fR may have any of the forms accepted by \fBTk_GetBitmap\fR.
+.TP
+\fB:foreground \fIcolor\fR
+Specifies a color to use for each of the bitmap pixels
+whose value is 1.
+\fIColor\fR may have any of the forms accepted by \fBTk_GetColor\fR and
+defaults to \fBblack\fR.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+
+.SH "IMAGE ITEMS"
+.PP
+Items of type \fBimage\fR are used to display images on a
+canvas.
+Images are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'image \fIx y \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx\fR and \fIy\fR specify the coordinates of a
+point used to position the image on the display (see the \fB:anchor\fR
+option below for more information).
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for images:
+.TP
+\fB:anchor \fIanchorPos\fR
+\fIAnchorPos\fR tells how to position the image relative to the
+positioning point for the item;  it may have any of the forms
+accepted by \fBTk_GetAnchor\fR.  For example, if \fIanchorPos\fR
+is \fBcenter\fR then the image is centered on the point;  if
+\fIanchorPos\fR is \fBn\fR then the image will be drawn so that
+its top center point is at the positioning point.
+This option defaults to \fBcenter\fR.
+.TP
+\fB:image \fIname\fR
+Specifies the name of the image to display in the item.
+This image must have been created previously with the
+\fBimage create\fR procedure.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item;  it may be an empty list.
+
+.SH "LINE ITEMS"
+.PP
+Items of type \fBline\fR appear on the display as one or more connected
+line segments or curves.
+Lines are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'line \fIx1 y1... xn yn \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx1\fR through \fIyn\fR give
+the coordinates for a series of two or more points that describe
+a series of connected line segments.
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for lines:
+.TP
+\fB:arrow \fIwhere\fR
+Indicates whether or not arrowheads are to be drawn at one or both
+ends of the line.
+\fIWhere\fR must have one of the values \fBnone\fR (for no arrowheads),
+\fBfirst\fR (for an arrowhead at the first point of the line),
+\fBlast\fR (for an arrowhead at the last point of the line), or
+\fBboth\fR (for arrowheads at both ends).
+This option defaults to \fBnone\fR.
+.TP
+\fB:arrowshape \fIshape\fR
+This option indicates how to draw arrowheads.
+The \fIshape\fR argument must be a list with three elements, each
+specifying a distance in any of the forms described in
+the COORDINATES section above.
+The first element of the list gives the distance along the line
+from the neck of the arrowhead to its tip.
+The second element gives the distance along the line from the
+trailing points of the arrowhead to the tip, and the third
+element gives the distance from the outside edge of the line to the
+trailing points.
+If this option isn't specified then Tk picks a ``reasonable'' shape.
+.TP
+\fB:capstyle \fIstyle\fR
+Specifies the ways in which caps are to be drawn at the endpoints
+of the line.
+\fIStyle\fR may have any of the forms accepted by \fBTk_GetCapStyle\fR
+(\fBbutt\fR, \fBprojecting\fR, or \fBround\fR).
+If this option isn't specified then it defaults to \fBbutt\fR.
+Where arrowheads are drawn the cap style is ignored.
+.TP
+\fB:fill \fIcolor\fR
+\fIColor\fR specifies a color to use for drawing the line; it may have
+any of the forms acceptable to \fBTk_GetColor\fR.  It may also be an
+empty string, in which case the line will be transparent.
+This option defaults to \fBblack\fR.
+.TP
+\fB:joinstyle \fIstyle\fR
+Specifies the ways in which joints are to be drawn at the vertices
+of the line.
+\fIStyle\fR may have any of the forms accepted by \fBTk_GetCapStyle\fR
+(\fBbevel\fR, \fBmiter\fR, or \fBround\fR).
+If this option isn't specified then it defaults to \fBmiter\fR.
+If the line only contains two points then this option is
+irrelevant.
+.TP
+\fB:smooth \fIboolean\fR
+\fIBoolean\fR must have one of the forms accepted by \fBTk_GetBoolean\fR.
+It indicates whether or not the line should be drawn as a curve.
+If so, the line is rendered as a set of Bezier splines: one spline
+is drawn for the first and second line segments, one for the second
+and third, and so on.  Straight-line segments can be generated within
+a curve by duplicating the end-points of the desired line segment.
+.TP
+\fB:splinesteps \fInumber\fR
+Specifies the degree of smoothness desired for curves:  each spline
+will be approximated with \fInumber\fR line segments.  This
+option is ignored unless the \fB:smooth\fR option is true.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the line should be filled in a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If \fIbitmap\fR is an empty string (the default), then filling is
+done in a solid fashion.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIlineWidth\fR
+\fILineWidth\fR specifies the width of the line, in any of the forms
+described in the COORDINATES section above.
+Wide lines will be drawn centered on the path specified by the
+points.
+If this option isn't specified then it defaults to 1.0.
+
+.SH "OVAL ITEMS"
+.PP
+Items of type \fBoval\fR appear as circular or oval regions on
+the display.  Each oval may have an outline, a fill, or
+both.  Ovals are created with widget procedures of the
+following form:
+.CS
+(\fIwidget\-name '\fBcreate 'oval \fIx1 y1 x2 y2 \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR give
+the coordinates of two diagonally opposite corners of a
+rectangular region enclosing the oval.
+The oval will include the top and left edges of the rectangle
+not the lower or right edges.
+If the region is square then the resulting oval is circular;
+otherwise it is elongated in shape.
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for ovals:
+.TP
+\fB:fill \fIcolor\fR
+Fill the area of the oval with \fIcolor\fR.
+\fIColor\fR may have any of the forms accepted by \fBTk_GetColor\fR.
+If \fIcolor\fR is an empty string (the default), then
+then the oval will not be filled.
+.TP
+\fB:outline \fIcolor\fR
+\fIColor\fR specifies a color to use for drawing the oval's
+outline;  it may have any of the forms accepted by \fBTk_GetColor\fR.
+This option defaults to \fBblack\fR.
+If \fIcolor\fR is an empty string then no outline will be
+drawn for the oval.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the oval should be filled in a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If the \fB:fill\fR option hasn't been specified then this option
+has no effect.
+If \fIbitmap\fR is an empty string (the default), then filling is done
+in a solid fashion.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIoutlineWidth\fR
+\fIoutlineWidth\fR specifies the width of the outline to be drawn around
+the oval, in any of the forms described in the COORDINATES section above.
+If the \fB:outline\fR option hasn't been specified then this option
+has no effect.
+Wide outlines are drawn centered on the oval path defined by
+\fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR.
+This option defaults to 1.0.
+
+.SH "POLYGON ITEMS"
+.PP
+Items of type \fBpolygon\fR appear as polygonal or curved filled regions
+on the display.
+Polygons are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'polygon \fIx1 y1 ... xn yn \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx1\fR through \fIyn\fR specify the coordinates for
+three or more points that define a closed polygon.
+The first and last points may be the same;  whether they are or not,
+Tk will draw the polygon as a closed polygon.
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for polygons:
+.TP
+\fB:fill \fIcolor\fR
+\fIColor\fR specifies a color to use for filling the area of the
+polygon; it may have any of the forms acceptable to \fBTk_GetColor\fR.
+If \fIcolor\fR is an empty string then the polygon will be
+transparent.
+This option defaults to \fBblack\fR.
+.TP
+\fB:outline \fIcolor\fR
+\fIColor\fR specifies a color to use for drawing the polygon's
+outline;  it may have any of the forms accepted by \fBTk_GetColor\fR.
+If \fIcolor\fR is an empty string then no outline will be
+drawn for the polygon.
+This option defaults to empty (no outline).
+.TP
+\fB:smooth \fIboolean\fR
+\fIBoolean\fR must have one of the forms accepted by \fBTk_GetBoolean\fR
+It indicates whether or not the polygon should be drawn with a
+curved perimeter.
+If so, the outline of the polygon becomes a set of Bezier splines,
+one spline for the first and second line segments, one for the second
+and third, and so on.  Straight-line segments can be generated in a
+smoothed polygon by duplicating the end-points of the desired line segment.
+.TP
+\fB:splinesteps \fInumber\fR
+Specifies the degree of smoothness desired for curves:  each spline
+will be approximated with \fInumber\fR line segments.  This
+option is ignored unless the \fB:smooth\fR option is true.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the polygon should be filled in a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If \fIbitmap\fR is an empty string (the default), then filling is
+done in a solid fashion.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIoutlineWidth\fR
+\fIOutlineWidth\fR specifies the width of the outline to be drawn around
+the polygon, in any of the forms described in the COORDINATES section above.
+If the \fB:outline\fR option hasn't been specified then this option
+has no effect.  This option defaults to 1.0.
+.PP
+Polygon items are different from other items such as rectangles, ovals
+and arcs in that interior points are considered to be ``inside'' a
+polygon (e.g. for purposes of the \fBfind closest\fR and
+\fBfind overlapping\fR widget commands) even if it is not filled.
+For most other item types, an
+interior point is considered to be inside the item only if the item
+is filled or if it has neither a fill nor an outline.  If you would
+like an unfilled polygon whose interior points are not considered
+to be inside the polygon, use a line item instead.
+
+.SH "RECTANGLE ITEMS"
+.PP
+Items of type \fBrectangle\fR appear as rectangular regions on
+the display.  Each rectangle may have an outline, a fill, or
+both.  Rectangles are created with widget procedures of the
+following form:
+.CS
+(\fIwidget\-name '\fBcreate 'rectangle \fIx1 y1 x2 y2 \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR give
+the coordinates of two diagonally opposite corners of the rectangle
+(the rectangle will include its upper and left edges but not
+its lower or right edges).
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for rectangles:
+.TP
+\fB:fill \fIcolor\fR
+Fill the area of the rectangle with \fIcolor\fR, which may be
+specified in any of the forms accepted by \fBTk_GetColor\fR.
+If \fIcolor\fR is an empty string (the default),
+then the rectangle will not be filled.
+.TP
+\fB:outline \fIcolor\fR
+Draw an outline around the edge of the rectangle in \fIcolor\fR.
+\fIColor\fR may have any of the forms accepted by \fBTk_GetColor\fR.
+This option defaults to \fBblack\fR.
+If \fIcolor\fR is an empty string then no outline will be
+drawn for the rectangle.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the rectangle should be filled in a stipple pattern;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If the \fB:fill\fR option hasn't been specified then this option
+has no effect.
+If \fIbitmap\fR is an empty string (the default), then filling
+is done in a solid fashion.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIoutlineWidth\fR
+\fIOutlineWidth\fR specifies the width of the outline to be drawn around
+the rectangle, in any of the forms described in the COORDINATES section above.
+If the \fB:outline\fR option hasn't been specified then this option
+has no effect.
+Wide outlines are drawn centered on the rectangular path
+defined by \fIx1\fR, \fIy1\fR, \fIx2\fR, and \fIy2\fR.
+This option defaults to 1.0.
+
+.SH "TEXT ITEMS"
+.PP
+A text item displays a string of characters on the screen in one
+or more lines.
+Text items support indexing and selection, along with the
+following text-related canvas widget procedures:  \fBdchars\fR,
+\fBfocus\fR, \fBicursor\fR, \fBindex\fR, \fBinsert\fR,
+\fBselect\fR.
+Text items are created with widget procedures of the following
+form:
+.CS
+(\fIwidget\-name '\fBcreate 'text \fIx y \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx\fR and \fIy\fR specify the coordinates of a
+point used to position the text on the display (see the options
+below for more information on how text is displayed).
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for text items:
+.TP
+\fB:anchor \fIanchorPos\fR
+\fIAnchorPos\fR tells how to position the text relative to the
+positioning point for the text;  it may have any of the forms
+accepted by \fBTk_GetAnchor\fR.  For example, if \fIanchorPos\fR
+is \fBcenter\fR then the text is centered on the point;  if
+\fIanchorPos\fR is \fBn\fR then the text will be drawn such that
+the top center point of the rectangular region occupied by the
+text will be at the positioning point.
+This option defaults to \fBcenter\fR.
+.TP
+\fB:fill \fIcolor\fR
+\fIColor\fR specifies a color to use for filling the text characters;
+it may have any of the forms accepted by \fBTk_GetColor\fR.
+If this option isn't specified then it defaults to \fBblack\fR.
+.TP
+\fB:font \fIfontName\fR
+Specifies the font to use for the text item.
+\fIFontName\fR may be any string acceptable to \fBTk_GetFontStruct\fR.
+If this option isn't specified, it defaults to a system-dependent
+font.
+.TP
+\fB:justify \fIhow\fR
+Specifies how to justify the text within its bounding region.
+\fIHow\fR must be one of the values \fBleft\fR, \fBright\fR,
+or \fBcenter\fR.
+This option will only matter if the text is displayed as multiple
+lines.
+If the option is omitted, it defaults to \fBleft\fR.
+.TP
+\fB:stipple \fIbitmap\fR
+Indicates that the text should be drawn in a stippled pattern
+rather than solid;
+\fIbitmap\fR specifies the stipple pattern to use, in any of the
+forms accepted by \fBTk_GetBitmap\fR.
+If \fIbitmap\fR is an empty string (the default) then the text
+is drawn in a solid fashion.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:text \fIstring\fR
+\fIString\fR specifies the characters to be displayed in the text item.
+Newline characters cause line breaks.
+The characters in the item may also be changed with the
+\fBinsert\fR and \fBdelete\fR widget procedures.
+This option defaults to an empty string.
+.TP
+\fB:width \fIlineLength\fR
+Specifies a maximum line length for the text, in any of the forms
+described in the COORDINATES section above.
+If this option is zero (the default) the text is broken into
+lines only at newline characters.
+However, if this option is non-zero then any line that would
+be longer than \fIlineLength\fR is broken just before a space
+character to make the line shorter than \fIlineLength\fR;  the
+space character is treated as if it were a newline
+character.
+
+.SH "WINDOW ITEMS"
+.PP
+Items of type \fBwindow\fR cause a particular window to be displayed
+at a given position on the canvas.
+Window items are created with widget procedures of the following form:
+.CS
+(\fIwidget\-name '\fBcreate 'window \fIx y \fR?\fIoption value option value ...\fR?)
+.CE
+The arguments \fIx\fR and \fIy\fR specify the coordinates of a
+point used to position the window on the display (see the \fB:anchor\fR
+option below for more information on how bitmaps are displayed).
+After the coordinates there may be any number of \fIoption\fR\-\fIvalue\fR
+pairs, each of which sets one of the configuration options
+for the item.  These same \fIoption\fR\-\fIvalue\fR pairs may be
+used in \fBitemconfigure\fR widget procedures to change the item's
+configuration.
+The following options are supported for window items:
+.TP
+\fB:anchor \fIanchorPos\fR
+\fIAnchorPos\fR tells how to position the window relative to the
+positioning point for the item;  it may have any of the forms
+accepted by \fBTk_GetAnchor\fR.  For example, if \fIanchorPos\fR
+is \fBcenter\fR then the window is centered on the point;  if
+\fIanchorPos\fR is \fBn\fR then the window will be drawn so that
+its top center point is at the positioning point.
+This option defaults to \fBcenter\fR.
+.TP
+\fB:height \fIpixels\fR
+Specifies the height to assign to the item's window.
+\fIPixels\fR may have any of the
+forms described in the COORDINATES section above.
+If this option isn't specified, or if it is specified as an empty
+string, then the window is given whatever height it requests internally.
+.TP
+\fB:tags \fItagList\fR
+Specifies a set of tags to apply to the item.
+\fITagList\fR consists of a list of tag names, which replace any
+existing tags for the item.
+\fITagList\fR may be an empty list.
+.TP
+\fB:width \fIpixels\fR
+Specifies the width to assign to the item's window.
+\fIPixels\fR may have any of the
+forms described in the COORDINATES section above.
+If this option isn't specified, or if it is specified as an empty
+string, then the window is given whatever width it requests internally.
+.TP
+\fB:window \fIwidget\-name\fR
+Specifies the window to associate with this item.
+The window specified by \fIwidget\-name\fR must either be a child of
+the canvas widget or a child of some ancestor of the canvas widget.
+\fIPathName\fR may not refer to a top-level window.
+
+.SH "APPLICATION-DEFINED ITEM TYPES"
+.PP
+It is possible for individual applications to define new item
+types for canvas widgets using C code.
+See the documentation for \fBTk_CreateItemType\fR.
+
+
+.SH BINDINGS
+.PP
+In the current implementation, new canvases are not given any
+default behavior:  you'll have to execute explicit STk procedures
+to give the canvas its behavior.
+
+.SH CREDITS
+.PP
+Tk's canvas widget is a blatant ripoff of ideas from Joel Bartlett's
+\fIezd\fR program.  \fIEzd\fR provides structured graphics in a Scheme
+environment and preceded canvases by a year or two.  Its simple
+mechanisms for placing and animating graphical objects inspired the
+functions of canvases.
+
diff --git a/Doc/Manual/checkbutton.n b/Doc/Manual/checkbutton.n
new file mode 100644
index 0000000..05ea811
--- /dev/null
+++ b/Doc/Manual/checkbutton.n
@@ -0,0 +1,236 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) checkbutton.n 1.36 95/08/12 17:35:04
+'\" 
+.so STk-man.macros
+.TH checkbutton n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+checkbutton \- Create and manipulate checkbutton widgets
+.SH SYNOPSIS
+(\fBcheckbutton\fI widget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:cursor	:highlightthickness	:takefocus
+:activeforeground	:disabledforeground	:image	:text
+:anchor	:font	:justify	:textvariable
+:background	:foreground	:padx	:underline
+:bitmap	:highlightbackground	:pady	:wraplength
+:borderwidth	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :command command Command command
+Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.  The button's global variable (\fB:variable\fR option) will
+be updated before the procedure is invoked.
+.OP :height height Height height
+Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+.OP :indicatoron indicatorOn IndicatorOn indicator-on
+Specifies whether or not the indicator should be drawn.  Must be a
+proper boolean value.  If false, the \fBrelief\fR option is
+ignored and the widget's relief is always sunken if the widget is
+selected and raised otherwise.
+.OP :offvalue offValue Value off-value
+Specifies value to store in the button's associated variable whenever
+this button is deselected.  Defaults to \fB#f\fR.
+.OP :onvalue onValue Value on-value
+Specifies value to store in the button's associated variable whenever
+this button is selected.  Defaults to \fB#t\fR.
+.OP :selectcolor selectColor Background select-color
+Specifies a background color to use when the button is selected.
+If \fBindicatorOn\fR is true then the color applicies to the indicator.
+If \fBindicatorOn\fR is false, this color is used as the background
+for the entire widget, in place of \fBbackground\fR or \fBactiveBackground\fR,
+whenever the widget is selected.
+If specified as an empty string then no special color is used for
+displaying when the widget is selected.
+.OP :selectimage selectImage SelectImage select-image
+Specifies an image to display (in place of the \fBimage\fR option)
+when the checkbutton is selected.
+This option is ignored unless the \fBimage\fR option has been
+specified.
+.OP :state state State state
+Specifies one of three states for the checkbutton:  \fBnormal\fR, \fBactive\fR,
+or \fBdisabled\fR.  In normal state the checkbutton is displayed using the
+\fBforeground\fR and \fBbackground\fR options.  The active state is
+typically used when the pointer is over the checkbutton.  In active state
+the checkbutton is displayed using the \fBactiveForeground\fR and
+\fBactiveBackground\fR options.  Disabled state means that the checkbutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the \fBdisabledForeground\fR and
+\fBbackground\fR options determine how the checkbutton is displayed.
+.OP :stringvalue stringvalue StringValue string-value
+Specifies if the value set to \fBvariable\fR by \fB:offvalue\fR or 
+\fB:onvalue\fR must be \fIstringified\fR. For instance, with
+.RS
+.DS
+(checkbutton '.c :text "Try" :variable 'x :stringvalue #t 
+                 :onvalue 10 :offvalue 20)
+.DE
+the variabe \fBx\fR var is set to \fI"10"\fR or \fI"20"\fR, whereas
+with 
+.DS
+(checkbutton '.c :text "Try" :variable 'x :stringvalue #f 
+                 :onvalue 10 :offvalue 20)
+.DE
+it is set to 10 or 20. Default value for \fB:stringvalue\fR is \fB#t\fR. 
+.RE
+.OP :variable variable Variable variable
+Specifies name of global variable to set to indicate whether
+or not this button is selected.  Defaults to the name of the
+button within its parent (i.e. the last element of the button
+window's path name).
+.OP :width width Width width
+Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBcheckbutton\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a checkbutton widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the checkbutton such as its colors, font,
+text, and initial relief.  The \fBcheckbutton\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A checkbutton is a widget
+that displays a textual string, bitmap or image
+and a square called an \fIindicator\fR.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the \fBwrapLength\fR option) and
+one of the characters may optionally be underlined using the
+\fBunderline\fR option.
+A checkbutton has
+all of the behavior of a simple button, including the
+following: it can display itself in either of three different
+ways, according to the \fBstate\fR option;
+it can be made to appear
+raised, sunken, or flat; it can be made to flash; and it invokes
+a STk procedure whenever mouse button 1 is clicked over the
+checkbutton.
+.PP
+In addition, checkbuttons can be \fIselected\fR.
+If a checkbutton is selected then the indicator is normally
+drawn with a sunken relief and a special color, and
+a STk variable associated with the checkbutton is set to a particular
+value (normally 1).
+If the checkbutton is not selected, then the indicator is drawn with a
+raised relief and no special color, and the associated variable is
+set to a different value (typically 0).
+By default, the name of the variable associated with a checkbutton is the
+same as the \fIname\fR used to create the checkbutton.
+The variable name, and the ``on'' and ``off'' values stored in it,
+may be modified with options on the procedure line or in the option
+database.
+Configuration options may also be used to modify the way the
+indicator is displayed (or whether it is displayed at all).
+By default a checkbutton is configured to select and deselect
+itself on alternate button clicks.
+In addition, each checkbutton monitors its associated variable and
+automatically selects and deselects itself when the variables value
+changes to and from the button's ``on'' value.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBcheckbutton\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for checkbutton widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBcheckbutton\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+\fIOption\fR may have any of the values accepted by the \fBcheckbutton\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdeselect\fR)
+Deselects the checkbutton and sets the associated variable to its ``off''
+value.
+.TP
+(\fIwidget\-name '\fBflash\fR)
+Flashes the checkbutton.  This is accomplished by redisplaying the checkbutton
+several times, alternating between active and normal colors.  At
+the end of the flash the checkbutton is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the checkbutton's state is \fBdisabled\fR.
+.TP
+(\fIwidget\-name '\fBinvoke\fR)
+Does just what would have happened if the user invoked the checkbutton
+with the mouse: toggle the selection state of the button and invoke
+the STk procedure associated with the checkbutton, if there is one
+(return value is undefined)
+This procedure is ignored if the checkbutton's state is \fBdisabled\fR.
+.TP
+(\fIwidget\-name '\fBselect\fR)
+Selects the checkbutton and sets the associated variable to its ``on''
+value.
+.TP
+(\fIwidget\-name '\fBtoggle\fR)
+Toggles the selection state of the button, redisplaying it and
+modifying its associated variable to reflect the new state.
+
+.SH BINDINGS
+.PP
+Tk automatically creates class bindings for checkbuttons that give them
+the following default behavior:
+.IP [1]
+A checkbutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the checkbutton.
+.IP [2]
+When mouse button 1 is pressed over a checkbutton it is invoked (its
+selection state toggles and the procedure associated with the button is
+invoked, if there is one).
+.IP [3]
+When a checkbutton has the input focus, the space key causes the checkbutton
+to be invoked.
+.PP
+If the checkbutton's state is \fBdisabled\fR then none of the above
+actions occur:  the checkbutton is completely non-responsive.
+.PP
+The behavior of checkbuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH SEE ALSO
+button, radiobutton
diff --git a/Doc/Manual/clipboard.n b/Doc/Manual/clipboard.n
new file mode 100644
index 0000000..ee34233
--- /dev/null
+++ b/Doc/Manual/clipboard.n
@@ -0,0 +1,83 @@
+'\"
+'\" Copyright (c) 1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) clipboard.n 1.7 95/08/12 17:35:27
+'\" 
+.so STk-man.macros
+.TH clipboard n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+clipboard \- Manipulate Tk clipboard
+.SH SYNOPSIS
+(\fBclipboard \fIoption\fR ?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure provides a STk interface to the Tk clipboard,
+which stores data for later retrieval using the selection mechanism.
+In order to copy data into the clipboard, \fBclipboard clear\fR must
+be called, followed by a sequence of one or more calls to \fBclipboard
+append\fR.  To ensure that the clipboard is updated atomically, all
+appends should be completed before returning to the event loop.
+.PP
+The first argument to \fBclipboard\fR determines the format of the
+rest of the arguments and the behavior of the procedure.  The following
+forms are currently supported:
+.PP
+.TP
+(\fBclipboard 'clear\fR)
+.TP
+(\fBclipboard 'clear\fR ?\fB:display-of\fR \fIwindow\fR?)
+Claims ownership of the clipboard on \fIwindow\fR's display and removes
+any previous contents.  \fIWindow\fR defaults to \fB*root*\fR.  Returns an
+empty list.
+.TP
+(\fBclipboard 'append\fR ?\fB:display-of\fR \fIwindow\fR? ?\fB:format\fR \fIformat\fR? ?\fB:type\fR \fItype\fR? ?\fB:\|\-\fR? \fIdata\fR)
+Appends \fIdata\fR to the clipboard on \fIwindow\fR's
+display in the form given by \fItype\fR with the representation given
+by \fIformat\fR and claims ownership of the clipboard on \fIwindow\fR's
+display.
+.RS
+.PP
+\fIType\fR specifies the form in which the selection is to be returned
+(the desired ``target'' for conversion, in ICCCM terminology), and
+should be an atom name such as STRING or FILE_NAME; see the
+Inter-Client Communication Conventions Manual for complete details.
+\fIType\fR defaults to STRING.
+.PP
+The \fIformat\fR argument specifies the representation that should be
+used to transmit the selection to the requester (the second column of
+Table 2 of the ICCCM), and defaults to STRING.  If \fIformat\fR is
+STRING, the selection is transmitted as 8-bit ASCII characters.  If
+\fIformat\fR is ATOM, then the \fIdata\fR is
+divided into fields separated by white space; each field is converted
+to its atom value, and the 32-bit atom value is transmitted instead of
+the atom name.  For any other \fIformat\fR,  \fIdata\fR is divided
+into fields separated by white space and each 
+field is converted to a 32-bit integer; an array of integers is
+transmitted to the selection requester.  Note that strings passed to
+\fBclipboard append\fR are concatenated before conversion, so the
+caller must take care to ensure appropriate spacing across string
+boundaries.  All items appended to the clipboard with the same
+\fItype\fR must have the same \fIformat\fR.
+.PP
+The \fIformat\fR argument is needed only for compatibility with
+clipboard requesters that don't use Tk.  If the Tk toolkit is being
+used to retrieve the CLIPBOARD selection then the value is converted back to
+a string at the requesting end, so \fIformat\fR is
+irrelevant.
+.PP
+A \fB:\|\-\fR argument may be specified to mark the end of options:  the
+next argument will always be used as \fIdata\fR.
+This feature may be convenient if, for example, \fIdata\fR starts
+with a \fB:\fR.
+.RE
+
+.SH SEE ALSO
+selection
diff --git a/Doc/Manual/destroy.n b/Doc/Manual/destroy.n
new file mode 100644
index 0000000..9537bb4
--- /dev/null
+++ b/Doc/Manual/destroy.n
@@ -0,0 +1,28 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) destroy.n 1.11 95/06/07 21:15:12
+'\" 
+.so STk-man.macros
+.TH destroy n "4.1" Tk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+destroy \- Destroy one or more windows
+.SH SYNOPSIS
+(\fBdestroy \fR?\fIwindow window ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure deletes the windows given by the
+\fIwindow\fR arguments, plus all of their descendants.
+If a \fIwindow\fR \fB*root*\fR (or ``.'') is deleted then the entire application
+will be destroyed.
+The \fIwindow\fRs are destroyed in order, and if an error occurs
+in destroying a window the procedure aborts without destroying the
+remaining windows.
diff --git a/Doc/Manual/entry.n b/Doc/Manual/entry.n
new file mode 100644
index 0000000..4606d4f
--- /dev/null
+++ b/Doc/Manual/entry.n
@@ -0,0 +1,419 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) entry.n 1.35 95/08/12 17:35:05
+'\" 
+.so STk-man.macros
+.TH entry n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+entry \- Create and manipulate entry widgets
+.SH SYNOPSIS
+(\fBentry\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:background	:highlightbackground	:insertontime	:selectforeground
+:borderwidth	:highlightcolor	:insertwidth	:takefocus
+:cursor	:highlightthickness	:justify	:textvariable
+:exportselection	:insertbackground	:relief	:xscrollcommand
+:font	:insertborderwidth	:selectbackground
+:foreground	:insertofftime	:selectborderwidth
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :show show Show show
+If this option is specified, then the true contents of the entry
+are not displayed in the window.
+Instead, each character in the entry's value will be displayed as
+the first character in the value of this option, such as ``*''.
+This is useful, for example, if the entry is to be used to enter
+a password.
+If characters in the entry are selected and copied elsewhere, the
+information copied will be what is displayed, not the true contents
+of the entry.
+.OP :state state State state
+Specifies one of two states for the entry:  \fBnormal\fR or \fBdisabled\fR.
+If the entry is disabled then the value may not be changed using widget
+procedures and no insertion cursor will be displayed, even if the input focus is
+in the widget.
+.OP :width width Width width
+Specifies an integer value indicating the desired width of the entry window,
+in average-size characters of the widget's font.
+If the value is less than or equal to zero, the widget picks a
+size just large enough to hold its current text.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBentry\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into an entry widget.
+Additional options, described above, may be specified on the
+procedure line or in the option database
+to configure aspects of the entry such as its colors, font,
+and relief.  The \fBentry\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+An entry is a widget that displays a one-line text string and
+allows that string to be edited using widget procedures described below, which
+are typically bound to keystrokes and mouse actions.
+When first created, an entry's string is empty.
+A portion of the entry may be selected as described below.
+If an entry is exporting its selection (see the \fBexportSelection\fR
+option), then it will observe the standard X11 protocols for handling the
+selection;  entry selections are available as type \fBSTRING\fR.
+Entries also observe the standard Tk rules for dealing with the
+input focus.  When an entry has the input focus it displays an
+\fIinsertion cursor\fR to indicate where new characters will be
+inserted.
+.PP
+Entries are capable of displaying strings that are too long to
+fit entirely within the widget's window.  In this case, only a
+portion of the string will be displayed;  procedures described below
+may be used to change the view in the window.  Entries use
+the standard \fBxScrollCommand\fR mechanism for interacting with
+scrollbars (see the description of the \fBxScrollCommand\fR option
+for details).  They also support scanning, as described below.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBentry\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.
+.PP
+Many of the widget procedures for entries take one or more indices as
+arguments.  An index specifies a particular character in the entry's
+string, in any of the following ways:
+.TP 12
+\fInumber\fR
+Specifies the character as a numerical index, where 0 corresponds
+to the first character in the string.
+.TP 12
+\fBanchor\fR
+Indicates the anchor point for the selection, which is set with the
+\fBselect from\fR and \fBselect adjust\fR widget procedures.
+.TP 12
+\fBend\fR
+Indicates the character just after the last one in the entry's string.
+This is equivalent to specifying a numerical index equal to the length
+of the entry's string.
+.TP 12
+\fBinsert\fR
+Indicates the character adjacent to and immediately following the
+insertion cursor.
+.TP 12
+\fBsel.first\fR
+Indicates the first character in the selection.  It is an error to
+use this form if the selection isn't in the entry window.
+.TP 12
+\fBsel.last\fR
+Indicates the character just after the last one in the selection.
+It is an error to use this form if the selection isn't in the
+entry window.
+.TP 12
+\fB@\fInumber\fR
+In this form, \fInumber\fR is treated as an x-coordinate in the
+entry's window;  the character spanning that x-coordinate is used.
+For example, ``\fB@0\fR'' indicates the left-most character in the
+window.
+.LP
+Abbreviations may be used for any of the forms above, e.g. ``\fBe\fR''
+or ``\fBsel.f\fR''.  In general, out-of-range indices are automatically
+rounded to the nearest legal value.
+.PP
+The following procedures are possible for entry widgets:
+.TP
+(\fIwidget\-name '\fBbbox \fIindex\fR)
+Returns a list of four numbers describing the bounding box of the
+character given by \fIindex\fR.
+The first two elements of the list give the x and y coordinates of
+the upper-left corner of the screen area covered by the character
+(in pixels relative to the widget) and the last two elements give
+the width and height of the character, in pixels.
+The bounding box may refer to a region outside the visible area
+of the window.
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBentry\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBentry\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdelete \fIfirst\fR)
+.TP
+(\fIwidget\-name '\fBdelete \fIfirst \fR\fIlast\fR)
+Delete one or more elements of the entry.
+\fIFirst\fR is the index of the first character to delete, and
+\fIlast\fR is the index of the character just after the last
+one to delete.
+If \fIlast\fR isn't specified it defaults to \fIfirst\fR+1,
+i.e. a single character is deleted.
+This procedure returns an empty string.
+.TP
+(\fIwidget\-name '\fBget\fR)
+Returns the entry's string.
+.TP
+(\fIwidget\-name '\fBicursor \fIindex\fR)
+Arrange for the insertion cursor to be displayed just before the character
+given by \fIindex\fR.  Returns an empty string.
+.TP
+(\fIwidget\-name '\fBindex\fI index\fR)
+Returns the numerical index corresponding to \fIindex\fR.
+.TP
+(\fIwidget\-name '\fBinsert \fIindex string\fR)
+Insert the characters of \fIstring\fR just before the character
+indicated by \fIindex\fR.  Returns an empty string.
+.TP
+(\fIwidget\-name '\fBscan\fR \fIoption args\fR)
+This procedure is used to implement scanning on entries.  It has
+two forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name '\fBscan 'mark \fIx\fR)
+Records \fIx\fR and the current view in the entry window;  used in
+conjunction with later \fBscan dragto\fR procedures.  Typically this
+procedure is associated with a mouse button press in the widget.  It
+returns an empty string.
+.TP
+(\fIwidget\-name '\fBscan 'dragto \fIx\fR)
+This procedure computes the difference between its \fIx\fR argument
+and the \fIx\fR argument to the last \fBscan mark\fR procedure for
+the widget.  It then adjusts the view left or right by 10 times the
+difference in x-coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the entry at high speed through the window.  The return
+value is an empty string.
+.RE
+.TP
+(\fIwidget\-name '\fBselection \fIoption arg\fR)
+This procedure is used to adjust the selection within an entry.  It
+has several forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name '\fBselection 'adjust \fIindex\fR)
+Locate the end of the selection nearest to the character given by
+\fIindex\fR, and adjust that end of the selection to be at \fIindex\fR
+(i.e including but not going beyond \fIindex\fR).  The other
+end of the selection is made the anchor point for future
+\fBselect to\fR procedures.  If the selection
+isn't currently in the entry, then a new selection is created to
+include the characters between \fIindex\fR and the most recent
+selection anchor point, inclusive.
+Returns an empty string.
+.TP
+(\fIwidget\-name '\fBselection 'clear\fR)
+Clear the selection if it is currently in this widget.  If the
+selection isn't in this widget then the procedure has no effect.
+Returns an empty string.
+.TP
+(\fIwidget\-name '\fBselection 'from \fIindex\fR)
+Set the selection anchor point to just before the character
+given by \fIindex\fR.  Doesn't change the selection.
+Returns an empty string.
+.TP
+(\fIwidget\-name '\fBselection 'present\fR)
+Returns \fB#t\fR if there is are characters selected in the entry,
+\fB#f\fR if nothing is selected.
+.TP
+(\fIwidget\-name '\fBselection 'range \fIstart\fR \fIend\fR)
+Sets the selection to include the characters starting with
+the one indexed by \fIstart\fR and ending with the one just
+before \fIend\fR.
+If \fIend\fR refers to the same character as \fIstart\fR or an
+earlier one, then the entry's selection is cleared.
+.TP
+(\fIwidget\-name '\fBselection 'to \fIindex\fR)
+If \fIindex\fR is before the anchor point, set the selection
+to the characters from \fIindex\fR up to but not including
+the anchor point.
+If \fIindex\fR is the same as the anchor point, do nothing.
+If \fIindex\fR is after the anchor point, set the selection
+to the characters from the anchor point up to but not including
+\fIindex\fR.
+The anchor point is determined by the most recent \fBselect from\fR
+or \fBselect adjust\fR procedure in this widget.
+If the selection isn't in this widget then a new selection is
+created using the most recent anchor point specified for the widget.
+Returns an empty string.
+.RE
+.TP
+(\fIwidget\-name '\fBxview \fIargs\fR)
+This procedure is used to query and change the horizontal position of the
+text in the widget's window.  It can take any of the following
+forms:
+.RS
+.TP
+(\fIwidget\-name '\fBxview\fR)
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the entry's text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+These are the same values passed to scrollbars via the \fB:xscrollcommand\fR
+option.
+.TP
+(\fIwidget\-name '\fBxview\fR \fIindex\fR)
+Adjusts the view in the window so that the character given by \fIindex\fR
+is displayed at the left edge of the window.
+.TP
+(\fIwidget\-name '\fBxview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that the character \fIfraction\fR of the
+way through the text appears at the left edge of the window.
+\fIFraction\fR must be a fraction between 0 and 1.
+.TP
+(\fIwidget\-name '\fBxview 'scroll \fInumber what\fR)
+This procedure shifts the view in the window left or right according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR or an abbreviation
+of one of these.
+If \fIwhat\fR is \fBunits\fR, the view adjusts left or right by
+\fInumber\fR average-width characters on the display;  if it is
+\fBpages\fR then the view adjusts by \fInumber\fR screenfuls.
+If \fInumber\fR is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+.RE
+
+.SH "DEFAULT BINDINGS"
+.PP
+Tk automatically creates class bindings for entries that give them
+the following default behavior.
+In the descriptions below, ``word'' refers to a contiguous group
+of letters, digits, or ``_'' characters, or any single character
+other than these.
+.IP [1]
+Clicking mouse button 1 positions the insertion cursor
+just before the character underneath the mouse cursor, sets the
+input focus to this widget, and clears any selection in the widget.
+Dragging with mouse button 1 strokes out a selection between
+the insertion cursor and the character under the mouse.
+.IP [2]
+Double-clicking with mouse button 1 selects the word under the mouse
+and positions the insertion cursor at the beginning of the word.
+Dragging after a double click will stroke out a selection consisting
+of whole words.
+.IP [3]
+Triple-clicking with mouse button 1 selects all of the text in the
+entry and positions the insertion cursor before the first character.
+.IP [4]
+The ends of the selection can be adjusted by dragging with mouse
+button 1 while the Shift key is down;  this will adjust the end
+of the selection that was nearest to the mouse cursor when button
+1 was pressed.
+If the button is double-clicked before dragging then the selection
+will be adjusted in units of whole words.
+.IP [5]
+Clicking mouse button 1 with the Control key down will position the
+insertion cursor in the entry without affecting the selection.
+.IP [6]
+If any normal printing characters are typed in an entry, they are
+inserted at the point of the insertion cursor.
+.IP [7]
+The view in the entry can be adjusted by dragging with mouse button 2.
+If mouse button 2 is clicked without moving the mouse, the selection
+is copied into the entry at the position of the mouse cursor.
+.IP [8]
+If the mouse is dragged out of the entry on the left or right sides
+while button 1 is pressed, the entry will automatically scroll to
+make more text visible (if there is more text off-screen on the side
+where the mouse left the window).
+.IP [9]
+The Left and Right keys move the insertion cursor one character to the
+left or right;  they also clear any selection in the entry and set
+the selection anchor.
+If Left or Right is typed with the Shift key down, then the insertion
+cursor moves and the selection is extended to include the new character.
+Control-Left and Control-Right move the insertion cursor by words, and
+Control-Shift-Left and Control-Shift-Right move the insertion cursor
+by words and also extend the selection.
+Control-b and Control-f behave the same as Left and Right, respectively.
+Meta-b and Meta-f behave the same as Control-Left and Control-Right,
+respectively.
+.IP [10]
+The Home key, or Control-a, will move the insertion cursor to the
+beginning of the entry and clear any selection in the entry.
+Shift-Home moves the insertion cursor to the beginning of the entry
+and also extends the selection to that point.
+.IP [11]
+The End key, or Control-e, will move the insertion cursor to the
+end of the entry and clear any selection in the entry.
+Shift-End moves the cursor to the end and extends the selection
+to that point.
+.IP [12]
+The Select key and Control-Space set the selection anchor to the position
+of the insertion cursor.  They don't affect the current selection.
+Shift-Select and Control-Shift-Space adjust the selection to the
+current position of the insertion cursor, selecting from the anchor
+to the insertion cursor if there was not any selection previously.
+.IP [13]
+Control-/ selects all the text in the entry.
+.IP [14]
+Control-\e clears any selection in the entry.
+.IP [15]
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is a selection.
+.IP [16]
+The F20 key (labelled Cut on many Sun workstations) or Control-w
+copies the selection in the widget to the clipboard and deletes
+the selection.
+If there is no selection in the widget then these keys have no effect.
+.IP [17]
+The F18 key (labelled Paste on many Sun workstations) or Control-y
+inserts the contents of the clipboard at the position of the
+insertion cursor.
+.IP [18]
+The Delete key deletes the selection, if there is one in the entry.
+If there is no selection, it deletes the character to the right of
+the insertion cursor.
+.IP [19]
+The BackSpace key and Control-h delete the selection, if there is one
+in the entry.
+If there is no selection, it deletes the character to the left of
+the insertion cursor.
+.IP [20]
+Control-d deletes the character to the right of the insertion cursor.
+.IP [21]
+Meta-d deletes the word to the right of the insertion cursor.
+.IP [22]
+Control-k deletes all the characters to the right of the insertion
+cursor.
+.IP [23]
+Control-w deletes the word to the left of the insertion cursor.
+.IP [24]
+Control-t reverses the order of the two characters to the right of
+the insertion cursor.
+.PP
+If the entry is disabled using the \fB:state\fR option, then the entry's
+view can still be adjusted and text in the entry can still be selected,
+but no insertion cursor will be displayed and no text modifications will
+take place.
+.PP
+The behavior of entries can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
diff --git a/Doc/Manual/focus-next.n b/Doc/Manual/focus-next.n
new file mode 100644
index 0000000..a05b379
--- /dev/null
+++ b/Doc/Manual/focus-next.n
@@ -0,0 +1,70 @@
+'\" Color=Green
+'\" 
+'\"
+'\" Copyright (c) 1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) focusNext.n 1.8 95/08/12 17:35:28
+'\" 
+.so STk-man.macros
+.TH Tk:focus-next n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+Tk:focus-next, Tk:focus-prev, Tk:focus-follows-mouse, Tk:focus-on, Tk:focus-off \- Utility procedures for managing the input focus.
+.SH SYNOPSIS
+(\fBTk:focus-next \fIwindow\fR)
+.sp
+(\fBTk:focus-prev \fIwindow\fR)
+.sp
+(\fBTk:focus-follows-mouse\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+\fBTk:focus-next\fR is a utility procedure used for keyboard traversal.
+It returns the ``next'' window after \fIwindow\fR in focus order.
+The focus order is determined by
+the stacking order of windows and the structure of the window hierarchy.
+Among siblings, the focus order is the same as the stacking order, with the
+lowest window being first.
+If a window has children, the window is visited first, followed by
+its children (recursively), followed by its next sibling.
+Top-level windows other than \fIwindow\fR are skipped, so that
+\fBTk:focus-next\fR never returns a window in a different top-level
+from \fIwindow\fR.
+.PP
+After computing the next window, \fBTk:focus-next\fR examines the
+window's \fB:takefocus\fR option to see whether it should be skipped.
+If so, \fBTk:focus-next\fR continues on to the next window in the focus
+order, until it eventually finds a window that will accept the focus
+or returns back to \fIwindow\fR.
+.PP
+\fBTk:focus-prev\fR is similar to \fBTk:focus-next\fR except that it
+returns the window just before \fIwindow\fR in the focus order.
+.PP
+\fBTk:focus-follows-mouse\fR changes the focus model for the application
+to an implicit one where the window under the mouse gets the focus.
+After this procedure is called, whenever the mouse enters a window
+Tk will automatically give it the input focus.
+The \fBfocus\fR command may be used to move the focus to a window
+other than the one under the mouse, but as soon as the mouse moves
+into a new window the focus will jump to that window.
+Note: at present there is no built-in support for returning the
+application to an explicit focus model;  to do this you'll have
+to write a script that deletes the bindings created by
+\fBTk:focus-follows-mouse\fR.
+
+.PP
+\fBTk:focus-on\fR and \fBTk:focus-off\fR are simpy defined as
+.CS
+(define Tk:focus-on  (lambda (w) #t))
+(define Tk:focus-off (lambda (w) #f))
+.CE
+This procedures can be used by the focus traversal algorithm presented in the 
+\fBoptions\fR manual page.
+.SH SEE ALSO
+focus, toplevel
diff --git a/Doc/Manual/focus.n b/Doc/Manual/focus.n
new file mode 100644
index 0000000..49a2180
--- /dev/null
+++ b/Doc/Manual/focus.n
@@ -0,0 +1,112 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) focus.n 1.19 95/08/12 17:35:07
+'\" 
+.so STk-man.macros
+.TH focus n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+focus \- Manage the input focus
+.SH SYNOPSIS
+(\fBfocus\fR)
+.sp
+(\fBfocus \fIwindow\fR)
+.sp
+(\fBfocus \fIoption\fR ?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBfocus\fR procedure is used to manage the Tk input focus.
+At any given time, one window on each display is designated as
+the \fIfocus window\fR;  any key press or key release events for the
+display are sent to that window.
+It is normally up to the window manager to redirect the focus among the
+top-level windows of a display.  For example, some window managers
+automatically set the input focus to a top-level window whenever
+the mouse enters it;  others redirect the input focus only when
+the user clicks on a window.
+Usually the window manager will set the focus
+only to top-level windows, leaving it up to the application to
+redirect the focus among the children of the top-level.
+.PP
+Tk remembers one focus window for each top-level (the most recent
+descendant of that top-level to receive the focus);  when the window
+manager gives the focus
+to a top-level, Tk automatically redirects it to the remembered
+window.  Within a top-level Tk uses an \fIexplicit\fR focus model
+by default.  Moving the mouse within a top-level does not normally
+change the focus;  the focus changes only when a widget
+decides explicitly to claim the focus (e.g., because of a button
+click), or when the user types a key such as Tab that moves the
+focus.
+.PP
+The STk procedure \fBTk:focus-follows-mouse\fR may be invoked to
+create an \fIimplicit\fR focus model:  it reconfigures Tk so that
+the focus is set to a window whenever the mouse enters it.
+The STk procedures \fBTk:focus-next\fR and \fB Tk:focus-prev\fR
+implement a focus order among the windows of a top-level;  they
+are used in the default bindings for Tab and Shift-Tab, among other
+things.
+.PP
+The \fBfocus\fR procedure can take any of the following forms:
+.TP
+(\fBfocus\fR)
+Returns the path name of the focus window on the display containing
+the application's main window,  or \fB#f\fR if no window in
+this application has the focus on that display.   Note:  it is
+better to specify the display explicitly using \fB:displayof\fR
+(see below) so that the code will work in applications using multiple
+displays.
+.TP
+(\fBfocus \fIwindow\fR)
+If the application currently has the input focus on \fIwindow\fR's
+display, this procedure resets the input focus for \fIwindow\fR's display
+to \fIwindow\fR and returns an empty string.
+If the application doesn't currently have the  input focus on
+\fIwindow\fR's display, \fIwindow\fR will be remembered as the focus
+for its top-level;  the next time the focus arrives at the top-level,
+Tk will redirect it to \fIwindow\fR.
+If \fIwindow\fR is an empty string then the procedure does nothing.
+.TP
+(\fBfocus :displayof\fR \fIwindow\fR)
+Returns the name of the focus window on the display containing \fIwindow\fR.
+If the focus window for \fIwindow\fR's display isn't in this
+application, the return value is an empty list.
+.TP
+(\fBfocus :force \fIwindow\fR)
+Sets the focus of \fIwindow\fR's display to \fIwindow\fR, even if
+the application doesn't currently have the input focus for the display.
+This procedure should be used sparingly, if at all.
+In normal usage, an application should not claim the focus for
+itself;  instead, it should wait for the window manager to give it
+the focus.
+If \fIwindow\fR is an empty string then the procedure does nothing.
+.TP
+(\fBfocus :lastfor\fR \fIwindow\fR)
+Returns the name of the most recent window to have the input focus
+among all the windows in the same top-level as \fIwindow\fR.
+If no window in that top-level has ever had the input focus, or
+if the most recent focus window has been deleted, then the name
+of the top-level is returned.  The return value is the window that
+will receive the input focus the next time the window manager gives
+the focus to the top-level.
+
+.SH "QUIRKS"
+.PP
+When an internal window receives the input focus, Tk doesn't actually
+set the X focus to that window;  as far as X is concerned, the focus
+will stay on the top-level window containing the window with the focus.
+However, Tk generates FocusIn and FocusOut events just as if the X
+focus were on the internal window.   This approach gets around a
+number of problems that would occur if the X focus were actually moved;
+the fact that the X focus is on the top-level is invisible unless
+you use C code to query the X server directly.
+.SH SEE ALSO
+grab
\ No newline at end of file
diff --git a/Doc/Manual/frame.n b/Doc/Manual/frame.n
new file mode 100644
index 0000000..2794917
--- /dev/null
+++ b/Doc/Manual/frame.n
@@ -0,0 +1,120 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\"
+'\" @(#) frame.n 1.23 95/08/12 17:35:08
+'\" 
+.so STk-man.macros
+.TH frame n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+frame \- Create and manipulate frame widgets
+.SH SYNOPSIS
+(\fBframe\fI \fIwidget\-name ?\fIoptions\fR?)
+.SO
+:borderwidth	:highlightbackground	:highlightthickness	:takefocus
+:cursor	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :background background Background background
+This option is the same as the standard \fBbackground\fR option
+except that its value may also be specified as an empty string.
+In this case, the widget will display no background or border, and
+no colors will be consumed from its colormap for its background
+and border.
+.OP :class class Class class
+Specifies a class for the window.
+This class will be used when querying the option database for
+the window's other options, and it will also be used later for
+other purposes such as bindings.
+The \fBclass\fR option may not be changed with the \fBconfigure\fR
+widget procedure.
+.OP :colormap colormap Colormap colormap
+Specifies a colormap to use for the window.
+The value may be either \fBnew\fR, in which case a new colormap is
+created for the window and its children, or the name of another
+window (which must be on the same screen and have the same visual
+as \fIwidget\-name\fR), in which case the new window will use the colormap
+from the specified window.
+If the \fBcolormap\fR option is not specified, the new window
+uses the same colormap as its parent.
+This option may not be changed with the \fBconfigure\fR
+widget procedure.
+.OP :height height Height height
+Specifies the desired height for the window in any of the forms
+acceptable to \fBTk_GetPixels\fR.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+.OP :visual visual Visual visual
+Specifies visual information for the new window in any of the
+forms accepted by \fBTk_GetVisual\fR.
+If this option is not specified, the new window will use the same
+visual as its parent.
+The \fBvisual\fR option may not be modified with the \fBconfigure\fR
+widget procedure.
+.OP :width width Width width
+Specifies the desired width for the window in any of the forms
+acceptable to \fBTk_GetPixels\fR.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBframe\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a frame widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the frame such as its background color
+and relief.  The \fBframe\fR procedure returns the
+path name of the new window.
+.PP
+A frame is a simple widget.  Its primary purpose is to act as a
+spacer or container for complex window layouts.  The only features
+of a frame are its background color and an optional 3-D border to make the
+frame appear raised or sunken.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBframe\fR procedure creates a new STk procedure whose
+name is the same as the path name of the frame's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIPathName\fR is the name of the procedure, which is the same as
+the frame widget's path name.  \fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for frame widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBframe\fR
+procedure.
+.TP
+(\fIwidget\-name \fBconfigure\fR ?\fIoption\fR? \fI?value option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBframe\fR
+procedure.
+
+.SH BINDINGS
+.PP
+When a new frame is created, it has no default event bindings:
+frames are not intended to be interactive.
diff --git a/Doc/Manual/ftp.n b/Doc/Manual/ftp.n
new file mode 100644
index 0000000..7849695
--- /dev/null
+++ b/Doc/Manual/ftp.n
@@ -0,0 +1,126 @@
+'\" Color=Yellow
+'\"
+'\" Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+'\" 
+'\" Permission to use, copy, and/or distribute this software and its
+'\" documentation for any purpose and without fee is hereby granted, provided
+'\" that both the above copyright notice and this permission notice appear in
+'\" all copies and derived works.  Fees for distribution or use of this
+'\" software or derived works may only be charged with express written
+'\" permission of the copyright holder.  
+'\" This software is provided ``as is'' without express or implied warranty.
+'\"
+'\"           Author: Erick Gallesio [eg@unice.fr]
+'\"    Creation date:  8-Jul-1996 08:16
+'\" Last file update: 19-Jul-1996 11:29
+'\" 
+.so STk-man.macros
+.TH ftp n 3.1 STk "STk procedures"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+ftp  \- A small (and very incomplete) FTP library
+.SH SYNOPSIS
+(\fBmake \fI<FTP-connection> \fR?\fIoptions\fR?)
+.sp
+(\fBftp-login f user pass\fR)
+.sp
+(\fBftp-quit f\fR)
+.sp
+(\fBftp-chdir f dir\fR)
+.sp
+(\fBftp-pwd f\fR)
+.sp
+(\fBftp-type f mode\fR)
+.sp
+(\fBftp-help f\fR)
+.sp
+(\fBftp-help f command\fR)
+.sp
+(\fBftp-dir f\fR)
+.sp
+(\fBftp-dir f args\fR)
+.sp
+(\fBftp-get f file\fR)
+.sp
+(\fBftp-put f file\fR)
+.sp
+(\fBftp-display f file\fR)
+.BE
+.SH CLASS DESCRIPTION
+.IP \fIIncluded\ with:\fR
+(require "ftp")
+.IP \fIInherits\ from:\fR
+<top>
+.IP \fIDirect\ slots:\fR
+\fBhost\fR contains the name of the host to connect to.
+.SP 
+\fBport\fR specifies the port to use to establish the ftp connection. 
+This slot is initialized by default to 21 by default (the standard ftp port).
+.SP 
+\fBecho\fR is the name of a one parameter procedure used to display
+the messages sent by the ftp server. This slot is initialized to by
+default to the standard \fIdisplay\fR procedure.
+
+.SH DESCRIPTION
+.PP
+This library is a first attempt to make the FTP protocol available
+from the STk interpreter.  It is still very incomplete and has not
+been intensively tested. Any help to make the subset implemented
+conform to RFC 959 would be greatly appreciated.
+
+.PP
+The following procedure are implemented by the library:
+.TP
+(\fBftp-quit f\fR)
+close the connection \fIf\fR to the remote host and the associated files.
+.TP
+(\fBftp-chdir f dir\fR)
+changes the remote working directory on the \fIf\fR connection.
+.TP
+(\fBftp-pwd f\fR)
+returns the remote working directory on the \fIf\fR connection.
+.TP
+(\fBftp-type f mode\fR) 
+set the file transfer type to \fImode\fR on the \fIf\fR
+connection. \fIMode\fR must be a one letter symbol such as
+'a (for ASCII) or 'i (for image).
+.TP
+(\fBftp-help f\fR)
+.TP
+(\fBftp-help f command\fR)
+prints help from the server connected to \fIf\fR on the standard output port.
+.TP
+(\fBftp-dir f\fR)
+.TP
+(\fBftp-dir f args\fR)
+gives the list of files in the current remote directory. If args is specified
+it is passed to the ftp server.
+.TP
+(\fBftp-get f file\fR)
+retrieves \fIfile\fR on the remote server.
+.TP
+(\fBftp-put f file\fR)
+stores \fIfile\fR on the remote server.
+.TP
+(\fBftp-display f file\fR)
+prints on the standard output port the content of the file \fIfile\fR 
+located the remote server.
+
+.LP
+All these procedures return a boolean value which indicate if the requested 
+operation succeeded or not.
+
+.SH EXAMPLE
+Hereafter is a simple session which prints the content of the /pub
+directory and gets the last release of STk on the \fIkaolin\fR
+workstation:
+.CS
+(define f (make <FTP-connection> :host "kaolin.unice.fr"))
+(when (ftp-login "anonymous" "eg@unice.fr")
+   (ftp-chdir f "/pub")
+   (ftp-dir f "-lsa")
+   (ftp-get f "STk.tar.gz")
+   (ftp-quit f))
+.CE
+
diff --git a/Doc/Manual/grab.n b/Doc/Manual/grab.n
new file mode 100644
index 0000000..d63ed47
--- /dev/null
+++ b/Doc/Manual/grab.n
@@ -0,0 +1,130 @@
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) grab.n 1.13 95/08/12 17:35:09
+'\" 
+.so STk-man.macros
+.TH grab n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+grab \- Confine pointer and keyboard events to a window sub-tree
+.SH SYNOPSIS
+(\fBgrab \fIwindow\fR)
+.sp
+(\fBgrab \fR\fB:global\fR \fIwindow\fR)
+.sp
+(\fBgrab \fIoption \fR?\fIarg arg \fR...?)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure implements simple pointer and keyboard grabs for Tk.
+Tk's grabs are different than the grabs
+described in the Xlib documentation.
+When a grab is set for a particular window, Tk restricts all pointer
+events to the grab window and its descendants in Tk's window hierarchy.
+Whenever the pointer is within the grab window's subtree, the pointer
+will behave exactly the same as if there had been no grab at all
+and all events will be reported in the normal fashion.
+When the pointer is outside \fIwindow\fR's tree, button presses and
+releases and
+mouse motion events are reported to \fIwindow\fR, and window entry
+and window exit events are ignored.
+The grab subtree ``owns'' the pointer:
+windows outside the grab subtree will be visible on the screen
+but they will be insensitive until the grab is released.
+The tree of windows underneath the grab window can include top-level
+windows, in which case all of those top-level windows
+and their descendants will continue to receive mouse events
+during the grab.
+.PP
+Two forms of grabs are possible:  local and global.
+A local grab affects only the grabbing application:  events will
+be reported to other applications as if the grab had never occurred.
+Grabs are local by default.
+A global grab locks out all applications on the screen,
+so that only the given subtree of the grabbing application will be
+sensitive to pointer events (mouse button presses, mouse button releases,
+pointer motions, window entries, and window exits).
+During global grabs the window manager will not receive pointer
+events either.
+.PP
+During local grabs, keyboard events (key presses and key releases)
+are delivered as usual:  the window
+manager controls which application receives keyboard events, and
+if they are sent to any window in the grabbing application then they are
+redirected to the focus window.
+During a global grab Tk grabs the keyboard so that all keyboard events
+are always sent to the grabbing application.
+The \fBfocus\fR procedure is still used to determine which window in the
+application receives the keyboard events.
+The keyboard grab is released when the grab is released.
+.PP
+Grabs apply to particular displays.  If an application has windows
+on multiple displays then it can establish a separate grab on each
+display.
+The grab on a particular display affects only the windows on
+that display.
+It is possible for different applications on a single display to have
+simultaneous local grabs, but only one application can have a global
+grab on a given display at once.
+.PP
+The \fBgrab\fR procedure can take any of the following forms:
+.TP
+(\fBgrab \fR \fIwindow\fR)
+.TP
+(\fBgrab \fR\fB:global\fR \fIwindow\fR)
+Same as \fBgrab set\fR, described below.
+.TP
+(\fBgrab 'current \fR)
+.TP
+(\fBgrab 'current \fR\fIwindow\fR)
+If \fIwindow\fR is specified, returns the name of the current grab
+window in this application for \fIwindow\fR's display, or an empty
+string if there is no such window.
+If \fIwindow\fR is omitted, the procedure returns a list whose elements
+are all of the windows grabbed by this application for all displays,
+or an empty string if the application has no grabs.
+.TP
+(\fBgrab 'release \fIwindow\fR)
+Releases the grab on \fIwindow\fR if there is one, otherwise does
+nothing.  Returns an empty string.
+.TP
+(\fBgrab 'set \fR \fIwindow\fR)
+.TP
+(\fBgrab 'set \fR\fB:global\fR \fIwindow\fR)
+Sets a grab on \fIwindow\fR.  If \fB:global\fR is specified then the
+grab is global, otherwise it is local.
+If a grab was already in effect for this application on
+\fIwindow\fR's display then it is automatically released.
+If there is already a grab on \fIwindow\fR and it has the same
+global/local form as the requested grab, then the procedure
+does nothing.  Returns an empty string.
+.TP
+(\fBgrab 'status \fIwindow\fR)
+Returns \fB"none"\fR if no grab is currently set on \fIwindow\fR,
+\fB"local"\fR if a local grab is set on \fIwindow\fR, and
+\fB"global"\fR if a global grab is set.
+
+.SH BUGS
+.PP
+It took an incredibly complex and gross implementation to produce
+the simple grab effect described above.
+Given the current implementation, it isn't safe for applications
+to use the Xlib grab facilities at all except through the Tk grab
+procedures.
+If applications try to manipulate X's grab mechanisms directly,
+things will probably break.
+.PP
+If a single process is managing several different Tk applications,
+only one of those applications can have a local grab for a given
+display at any given time.  If the applications are in different
+processes, this restriction doesn't exist.
+
+.SH SEE ALSO
+focus
diff --git a/Doc/Manual/grid.n b/Doc/Manual/grid.n
new file mode 100644
index 0000000..dfbfc1e
--- /dev/null
+++ b/Doc/Manual/grid.n
@@ -0,0 +1,260 @@
+'\"
+'\" Copyright (c) 1996 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" SCCS: @(#) grid.n 1.10 96/03/21 16:54:24
+'\" 
+.so STk-man.macros
+.TH grid n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+grid \- Geometry manager that arranges widgets in a grid
+.SH SYNOPSIS
+(\fBgrid \fIoption arg \fR?\fIarg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBgrid\fR procedure is used to communicate with the grid
+geometry manager that arranges widgets in rows and columns inside
+of another window, called the geometry master (or master window).
+The \fBgrid\fR procedure can have any of several forms, depending
+on the \fIoption\fR argument:
+.TP
+(\fBgrid \fIslave \fR?\fIslave ...\fR? ?\fIoptions\fR?)
+If the first argument to \fBgrid\fR is a window name (any value
+starting with ``.''), then the procedure is processed in the same
+way as \fBgrid configure\fR.
+.TP
+(\fBgrid 'bbox \fImaster column row\fR)
+The bounding box (in pixels) is returned for the space occupied by
+the grid position indicated by \fIcolumn\fP and \fIrow\fP.  The
+return value consists of 4 integers.  The first two are the pixel offset
+from the master window (x then y) of the top-left corner of the grid
+cell, and the second two are the width and height of the cell.
+.TP
+(\fBgrid 'columnconfigure \fImaster index \fR?\fI:option value...\fR?)
+Query or set the column properties of the \fIindex\fP column of the 
+geometry master, \fImaster\fP.
+The valid options are \fB:minsize\fP and \fB:weight\fP.
+The \fB:minsize\fP option sets the minimum column size, in screen units,
+and the \fB:weight\fP option (a floating point value)
+sets the relative weight for apportioning
+any extra spaces among
+columns.  If no value is specified, the current value is returned.
+.TP
+(\fBgrid 'configure \fIslave \fR?\fIslave ...\fR? ?\fIoptions\fR?)
+The arguments consist of the names of one or more slave windows
+followed by pairs of arguments that specify how
+to manage the slaves.
+The characters \fB:\fP,  \fBx\fP and \fB^\fP, 
+can be specified instead of a window name to alter the default
+location of a \fIslave\fP, as described in the ``RELATIVE PLACEMENT''
+section, below.
+The following options are supported:
+.RS
+.TP
+\fB:column \fIn\fR
+Insert the slave so that it occupies the \fIn\fPth column in the grid.
+Column numbers start with 0.  If this option is not supplied, then the
+slave is arranged just to the right of previous slave specified on this
+call to \fIgrid\fP, or column "0" if it is the first slave.  For each
+\fBx\fP that immediately precedes the \fIslave\fP, the column position
+is incremented by one.  Thus the \fBx\fP represents a blank column
+for this row in the grid.
+.TP
+\fB:columnspan \fIn\fR
+Insert the slave so that it occupies \fIn\fP columns in the grid.
+The default is one column, unless the window name is followed by a
+\fB:\fP, in which case the columnspan is incremented once for each immediately
+following \fB:\fP.
+.TP
+\fB:in \fIother\fR
+Insert the slave(s) in the master
+window given by \fIother\fR.  The default is the first slave's
+parent window.
+.TP
+\fB:ipadx \fIamount\fR
+The \fIamount\fR specifies how much horizontal internal padding to
+leave on each side of the slave(s).
+The \fIamount\fR must be a valid screen distance, such as \fB2\fR or \fB.5c\fR.
+It defaults to 0.
+.TP
+\fB:ipady \fIamount\fR
+The \fIamount\fR specifies how much vertical internal padding to
+leave on on the top and bottom of the slave(s).
+The \fIamount\fR  defaults to 0.
+.TP
+\fB:padx \fIamount\fR
+The \fIamount\fR specifies how much horizontal external padding to
+leave on each side of the slave(s).
+The \fIamount\fR defaults to 0.
+.TP
+\fB:pady \fIamount\fR
+The \fIamount\fR specifies how much vertical external padding to
+leave on the top and bottom of the slave(s).
+The \fIamount\fR defaults to 0.
+.TP
+\fB:row \fIn\fR
+Insert the slave so that it occupies the \fIn\fPth row in the grid.
+Row numbers start with 0.  If this option is not supplied, then the
+slave is arranged on the same row as the previous slave specified on this
+call to \fBgrid\fP, or the first unoccupied row if this is the first slave.
+.TP
+\fB:rowspan \fIn\fR
+Insert the slave so that it occupies \fIn\fP rows in the grid.
+The default is one row.  If the next \fBgrid\fP procedure contains
+\fB^\fP characters instead of \fIslaves\fP that line up with the columns
+of this \fIslave\fP, then the \fBrowspan\fP of this \fIslave\fP is
+extended by one.
+.TP
+\fB:sticky \fIstyle\fR
+If a slave's parcel is larger than its requested dimensions, this
+option may be used to position (or stretch) the slave within its cavity.
+\fIStyle\fR  is a string that contains zero or more of the characters
+\fBn\fP, \fBs\fP, \fBe\fP or \fBw\fP.
+The string can optionally contains spaces or
+commas, but they are ignored.  Each letter refers to a side (north, south,
+east, or west) that the slave will "stick" to.  If both \fBn\fP and \fBs\fP (or
+\fBe\fP and \fBw\fP) are specified, the slave will be stretched to fill the entire
+height (or width) of its cavity.  The \fBsticky\fP option subsumes the
+combination of \fB:anchor\fP and \fB:fill\fP that is used by \fBpack\fP.
+The default is the empty string, which causes the slave to be centered
+in its cavity, at its requested size.
+.LP
+If any of the slaves are already managed by the geometry manager
+then any unspecified options for them retain their previous values rather
+than receiving default values.
+.RE
+.TP
+(\fBgrid 'forget \fIslave \fR?\fIslave ...\fR?)
+Removes each of the \fIslave\fRs from grid for its
+master and unmaps their windows.
+The slaves will no longer be managed by the grid geometry manager.
+.TP
+(\fBgrid 'info \fIslave\fR)
+Returns a list whose elements are the current configuration state of
+the slave given by \fIslave\fR in the same option-value form that
+might be specified to \fBgrid configure\fR.
+The first two elements of the list are ``\fB:in \fImaster\fR'' where
+\fImaster\fR is the slave's master.
+.TP
+(\fBgrid 'location \fImaster x y\fR)
+Given  \fIx\fP and \fIy\fP values in screen units relative to the master window, 
+the column and row number at that \fIx\fP and \fIy\fP location is returned.
+For locations that are above or to the left of the grid, \fB-1\fP is returned.
+.TP
+(\fBgrid 'propagate \fImaster\fR)
+.TP
+(\fBgrid 'propagate \fImaster\fR \fIboolean\fR)
+If \fIboolean\fR has a true boolean value
+then propagation is enabled for \fImaster\fR, which must be a window
+name (see ``GEOMETRY PROPAGATION'' below).
+If \fIboolean\fR has a false boolean value then propagation is
+disabled for \fImaster\fR.
+In either of these cases an empty list is returned.
+If \fIboolean\fR is omitted then the procedure returns \fB#f\fR or
+\fB#t\fR to indicate whether propagation is currently enabled
+for \fImaster\fR.
+Propagation is enabled by default.
+.TP
+(\fBgrid 'rowconfigure\fR \fImaster index \fR)
+.TP
+(\fBgrid 'rowconfigure\fR \fImaster index \fR\fI:option value...\fR)
+Query or set the row properties of the \fIindex\fP row of the 
+geometry master, \fImaster\fP.
+The valid options are \fB:minsize\fP and \fB:weight\fP.
+\fBMinsize\fP sets the minimum row size, in screen units, and \fBweight\fP
+sets the relative weight for apportioning any extra spaces among
+rows.  If no value is specified, the current value is returned.
+.TP
+(\fBgrid 'size \fImaster\fR)
+Returns the size of the grid (in columns then rows) for \fImaster\fP.
+The size is determined either by the \fIslave\fP occupying the largest
+row or column, or the largest column or row with a \fBminsize\fP or
+\fBweight\fP.
+.TP
+(\fBgrid 'slaves \fImaster\fR)
+.TP
+(\fBgrid 'slaves \fImaster\fR \fI:option value\fR)
+If no options are supplied, a list of all of the slaves in \fImaster\fR
+are returned. \fIOption\fP can be either \fB:row\fP or \fB:column\fP which
+causes only the slaves in the row (or column) specified by \fIvalue\fP
+to be returned.
+.SH "RELATIVE PLACEMENT"
+.PP
+The \fBgrid\fP procedure contains a limited set of capabilities that
+permit layouts to be created without specifying the row and column 
+information for each slave.  This permits slaves to be rearranged, 
+added, or removed without the need to explicitly specify row and
+column information.
+When no column or row information is specified for a \fIslave\fP, 
+default values are chosen for
+\fBcolumn\fP, \fBrow\fP, \fBcolumnspan\fP and \fBrowspan\fP
+at the time the \fIslave\fP is managed. The values are chosen
+based upon the current layout of the grid, the position of the \fIslave\fP
+relative to other \fIslave\fPs in the same grid procedure, and the presence
+of the characters \fB:\fP, \fB^\fP, and \fB^\fP in \fBgrid\fP
+procedure where \fIslave\fP names are normally expected.
+.RS
+.TP
+\fB:\fP
+This increases the columnspan of the \fIslave\fP to the left.  Several
+\fB:\fP's in a row will successively increase the columnspan. S \fB:\fP
+may not follow a \fB^\fP or a \fBx\fP.
+.TP
+\fBx\fP
+This leaves an empty column between the \fIslave\fP on the left and
+the \fIslave\fP on the right.
+.TP
+\fB^\fP
+This extends the \fBrowspan\fP of the \fIslave\fP above the \fB^\fP's
+in the grid.  The number of \fB^\fP's in a row must match the number of
+columns spanned by the \fIslave\fP above it.
+.RE
+.SH "GEOMETRY PROPAGATION"
+.PP
+Grid normally computes how large a master must be to
+just exactly meet the needs of its slaves, and it sets the
+requested width and height of the master to these dimensions.
+This causes geometry information to propagate up through a
+window hierarchy to a top-level window so that the entire
+sub-tree sizes itself to fit the needs of the leaf windows.
+However, the \fBgrid propagate\fR procedure may be used to
+turn off propagation for one or more masters.
+If propagation is disabled then grid will not set
+the requested width and height of the master window.
+This may be useful if, for example, you wish for a master
+window to have a fixed size that you specify.
+
+.SH "RESTRICTIONS ON MASTER WINDOWS"
+.PP
+The master for each slave must either be the slave's parent
+(the default) or a descendant of the slave's parent.
+This restriction is necessary to guarantee that the
+slave can be placed over any part of its master that is
+visible without danger of the slave being clipped by its parent.
+
+.SH "STACKING ORDER"
+.PP
+If the master for a slave is not its parent then you must make sure
+that the slave is higher in the stacking order than the master.
+Otherwise the master will obscure the slave and it will appear as
+if the slave hasn't been managed correctly.
+The easiest way to make sure the slave is higher than the master is
+to create the master window first:  the most recently created window
+will be highest in the stacking order.
+
+.SH CREDITS
+.PP
+The \fBgrid\fP procedure is based on the \fIGridBag\fP geometry manager
+written by D. Stein.  The first table-based geometry manager for Tk
+was \fBblt_table\fR, written by George Howlett;  many of the features
+of \fBgrid\fR are similar to features in \fBblt_table\fR.
+
+.SH SEE ALSO
+pack, place
+
diff --git a/Doc/Manual/image.n b/Doc/Manual/image.n
new file mode 100644
index 0000000..fccb367
--- /dev/null
+++ b/Doc/Manual/image.n
@@ -0,0 +1,94 @@
+'\"
+'\" Copyright (c) 1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) image.n 1.6 95/06/07 21:15:16
+'\" 
+.so STk-man.macros
+.TH image n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+image \- Create and manipulate images
+.SH SYNOPSIS
+(\fBimage\fR \fIoption \fR?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBimage\fR command is used to create, delete, and query images.
+It can take several different forms, depending on the
+\fIoption\fR argument.  The legal forms are:
+.TP
+(\fBimage 'create \fItype \fR?\fIname\fR? ?\fIoption value ...\fR?)
+Creates a new image and returns its name.
+\fItype\fR specifies the type of the image, which must be one of
+the types currently defined (e.g., \fBbitmap\fR).
+\fIname\fR specifies the name for the image;  if it is omitted then
+Tk picks a name of the form \fBimage\fIx\fR, where \fIx\fR is
+an integer.
+There may be any number of \fIoption\fR\-\fIvalue\fR pairs,
+which provide configuration options for the new image.
+The legal set of options is defined separately for each image
+type;  see below for details on the options for built-in image types.
+If an image already exists by the given name then it is replaced
+with the new image and any instances of that image will redisplay
+with the new contents.
+.TP
+(\fBimage 'delete \fIname\fR ?\fIname name\fR ...?)
+Deletes each of the named images and returns an empty list.
+If there are instances of the images displayed in widgets,
+the images won't actually be deleted until all of the instances
+are released.
+However, the association between the instances and the image
+manager will be dropped.
+Existing instances will retain their sizes but redisplay as
+empty areas.
+If a deleted image is recreated with another call to \fBimage create\fR,
+the existing instances will use the new image.
+.TP
+(\fBimage 'height \fIname\fR)
+Returns a decimal string giving the height of image \fIname\fR
+in pixels.
+.TP
+(\fBimage 'names\fR)
+Returns a list containing the names of all existing images.
+.TP
+(\fBimage 'type \fIname\fR)
+Returns the type of image \fIname\fR (the value of the \fItype\fR
+argument to \fBimage create\fR when the image was created).
+.TP
+(\fBimage 'types\fR)
+Returns a list whose elements are all of the valid image types
+(i.e., all of the values that may be supplied for the \fItype\fR
+argument to \fBimage create\fR).
+.TP
+(\fBimage 'width \fIname\fR)
+Returns a decimal string giving the width of image \fIname\fR
+in pixels.
+
+.SH "BUILT-IN IMAGE TYPES"
+.PP
+The following image types are defined by Tk so they will be available
+in any Tk application.
+Individual applications or extensions may define additional types.
+.TP
+\fBbitmap\fR
+Each pixel in the image displays a foreground color, a background
+color, or nothing.
+See the \fBbitmap\fR manual entry for more information.
+.TP
+\fBphoto\fR
+Displays a variety of full-color images, using dithering to
+approximate colors on displays with limited color capabilities.
+See the \fBphoto\fR manual entry for more information.
+.TP
+\fBpixmap\fR
+Displays a color images in X11 pixmap format. See the \fBpixmap\fR manual entry
+for more information.
+
+.SH SEE ALSO
+bitmap, photo, pixmap
diff --git a/Doc/Manual/label.n b/Doc/Manual/label.n
new file mode 100644
index 0000000..9a4c1d8
--- /dev/null
+++ b/Doc/Manual/label.n
@@ -0,0 +1,104 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) label.n 1.26 95/08/12 17:35:10
+'\" 
+.so STk-man.macros
+.TH label n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+label \- Create and manipulate label widgets
+.SH SYNOPSIS
+(\fBlabel\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:anchor	:font	:image	:takefocus
+:background	:foreground	:justify	:text
+:bitmap	:highlightbackground	:padx	:textvariable
+:borderwidth	:highlightcolor	:pady	:underline
+:cursor	:highlightthickness	:relief	:wraplength
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :height height Height height
+Specifies a desired height for the label.
+If an image or bitmap is being displayed in the label then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in lines of text.
+If this option isn't specified, the label's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+.OP :width width Width width
+Specifies a desired width for the label.
+If an image or bitmap is being displayed in the label then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in characters.
+If this option isn't specified, the label's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBlabel\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a label widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the label such as its colors, font,
+text, and initial relief.  The \fBlabel\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A label is a widget
+that displays a textual string, bitmap or image.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the \fBwrapLength\fR option) and
+one of the characters may optionally be underlined using the
+\fBunderline\fR option.
+The label can be manipulated in a few simple ways, such as
+changing its relief or text, using the procedures described below.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBlabel\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for label widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBlabel\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBlabel\fR
+procedure.
+
+.SH BINDINGS
+.PP
+When a new label is created, it has no default event bindings:
+labels are not intended to be interactive.
+
+.SH SEE ALSO
+message
diff --git a/Doc/Manual/listbox.n b/Doc/Manual/listbox.n
new file mode 100644
index 0000000..cf7d4cb
--- /dev/null
+++ b/Doc/Manual/listbox.n
@@ -0,0 +1,495 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) listbox.n 1.33 95/08/12 17:34:58
+'\" 
+.so STk-man.macros
+.TH listbox n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+listbox \- Create and manipulate listbox widgets
+.SH SYNOPSIS
+(\fBlistbox\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:background	:foreground	:relief	:takefocus
+:borderwidth	:height	:selectbackground	:width
+:cursor	:highlightbackground	:selectborderwidth	:xscrollcommand
+:exportselection	:highlightcolor	:selectforeground	:yscrollcommand
+:font	:highlightthickness	:setgrid
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :height height Height height
+Specifies the desired height for the window, in lines.
+If zero or less, then the desired height for the window is made just
+large enough to hold all the elements in the listbox.
+.OP :selectmode selectMode SelectMode select-mode
+Speifies one of several styles for manipulating the selection.
+The value of the option may be arbitrary, but the default bindings
+expect it to be either \fBsingle\fR, \fBbrowse\fR, \fBmultiple\fR,
+or \fBextended\fR;  the default value is \fBbrowse\fR.
+.OP :width width Width width
+Specifies the desired width for the window in characters.
+If the font doesn't have a uniform width then the width of the
+character ``0'' is used in translating from character units to
+screen units.
+If zero or less, then the desired width for the window is made just
+large enough to hold all the elements in the listbox.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBlistbox\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a listbox widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the listbox such as its colors, font,
+text, and relief.  The \fBlistbox\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A listbox is a widget that displays a list of strings, one per line.
+When first created, a new listbox has no elements.
+Elements may be added or deleted using widget procedures described
+below.  In addition, one or more elements may be selected as described
+below.
+If a listbox is exporting its selection (see \fBexportSelection\fR
+option), then it will observe the standard X11 protocols
+for handling the selection.
+Listbox selections are available as type \fBSTRING\fR;
+the value of the selection will be the text of the selected elements, with
+newlines separating the elements.
+.PP
+It is not necessary for all the elements to be
+displayed in the listbox window at once;  procedures described below
+may be used to change the view in the window.  Listboxes allow
+scrolling in both directions using the standard \fBxScrollProcedure\fR
+and \fByScrollProcedure\fR options.
+They also support scanning, as described below.
+
+.SH "INDICES"
+.PP
+Many of the widget procedures for listboxes take one or more indices
+as arguments.
+An index specifies a particular element of the listbox, in any of
+the following ways:
+.TP 12
+\fInumber\fR
+Specifies the element as a numerical index, where 0 corresponds
+to the first element in the listbox.
+.TP 12
+\fBactive\fR
+Indicates the element that has the location cursor.  This element
+will be displayed with an underline when the listbox has the
+keyboard focus, and it is specified with the \fBactivate\fR
+widget procedure.
+.TP 12
+\fBanchor\fR
+Indicates the anchor point for the selection, which is set with the
+``\fIselection anchor\fR'' widget procedure.
+.TP 12
+\fBend\fR
+Indicates the end of the listbox.
+For some procedures this means just after the last element;
+for other procedures it means the last element.
+.TP 12
+\fB@\fIx\fB,\fIy\fR
+Indicates the element that covers the point in the listbox window
+specified by \fIx\fR and \fIy\fR (in pixel coordinates).  If no
+element covers that point, then the closest element to that
+point is used.
+.LP
+In the widget procedure descriptions below, arguments named \fIindex\fR,
+\fIfirst\fR, and \fIlast\fR always contain text indices in one of
+the above forms.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBlistbox\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for listbox widgets:
+.TP
+(\fIwidget\-name '\fBactivate\fR \fIindex\fR)
+Sets the active element to the one indicated by \fIindex\fR.
+The active element is drawn with an underline when the widget
+has the input focus, and its index may be retrieved with the
+index \fBactive\fR.
+.TP
+(\fIwidget\-name '\fBbbox\fR \fIindex\fR)
+Returns a list of four numbers describing the bounding box of
+the text in the element given by \fIindex\fR.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the screen area covered by the text
+(specified in pixels relative to the widget) and the last two
+elements give the width and height of the area, in pixels.
+If no part of the element given by \fIindex\fR is visible on the
+screen then the result is an empty list;  if the element is
+partially visible, the result gives the full area of the element,
+including any parts that are not visible.
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBlistbox\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+\fIOption\fR may have any of the values accepted by the \fBlistbox\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBcurselection\fR)
+Returns a list containing the numerical indices of
+all of the elements in the listbox that are currently selected.
+If there are no elements selected in the listbox then \fB#f\fR
+is returned.
+.TP
+(\fIwidget\-name '\fBdelete \fIfirst\fR)
+.TP
+(\fIwidget\-name '\fBdelete \fIfirst \fR\fIlast\fR)
+Deletes one or more elements of the listbox.  \fIFirst\fR and \fIlast\fR
+are indices specifying the first and last elements in the range
+to delete.  If \fIlast\fR isn't specified it defaults to
+\fIfirst\fR, i.e. a single element is deleted.
+.TP
+(\fIwidget\-name '\fBget \fIfirst\fR)
+.TP
+(\fIwidget\-name '\fBget \fIfirst\fR \fIlast\fR)
+If \fIlast\fR is omitted, returns the contents of the listbox
+element indicated by \fIfirst\fR.
+If \fIlast\fR is specified, the procedure returns a list whose elements
+are all of the listbox elements between \fIfirst\fR and \fIlast\fR,
+inclusive.
+Both \fIfirst\fR and \fIlast\fR may have any of the standard
+forms for indices.
+.TP
+(\fIwidget\-name '\fBindex \fIindex\fR)
+Returns a decimal string giving the integer index value that
+corresponds to \fIindex\fR.
+.TP
+(\fIwidget\-name '\fBinsert \fIindex \fR?\fIelement element ...\fR?)
+Inserts zero or more new elements in the list just before the
+element given by \fIindex\fR.  If \fIindex\fR is specified as
+\fBend\fR then the new elements are added to the end of the
+list.  Returns an empty list.
+.TP
+(\fIwidget\-name '\fBnearest \fIy\fR)
+Given a y-coordinate within the listbox window, this procedure returns
+the index of the (visible) listbox element nearest to that y-coordinate.
+.TP
+(\fIwidget\-name '\fBscan\fR \fIoption args\fR)
+This procedure is used to implement scanning on listboxes.  It has
+two forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name '\fBscan 'mark \fIx y\fR)
+Records \fIx\fR and \fIy\fR and the current view in the listbox
+window;  used in conjunction with later \fBscan dragto\fR procedures.
+Typically this procedure is associated with a mouse button press in
+the widget.  It returns an empty list.
+.TP
+(\fIwidget\-name '\fBscan 'dragto \fIx y\fR)
+This procedure computes the difference between its \fIx\fR and \fIy\fR
+arguments and the \fIx\fR and \fIy\fR arguments to the last
+\fBscan mark\fR procedure for the widget.
+It then adjusts the view by 10 times the
+difference in coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the list at high speed through the window.  The return
+value is an empty list.
+.RE
+.TP
+(\fIwidget\-name '\fBsee \fIindex\fR)
+Adjust the view in the listbox so that the element given by \fIindex\fR
+is visible.
+If the element is already visible then the procedure has no effect;
+if the element is near one edge of the window then the listbox
+scrolls to bring the element into view at the edge;  otherwise
+the listbox scrolls to center the element.
+.TP
+(\fIwidget\-name '\fBselection \fIoption arg\fR)
+This procedure is used to adjust the selection within a listbox.  It
+has several forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name \fB'selection 'anchor \fIindex\fR)
+Sets the selection anchor to the element given by \fIindex\fR.
+The selection anchor is the end of the selection that is fixed
+while dragging out a selection with the mouse.
+The index \fBanchor\fR may be used to refer to the anchor
+element.
+.TP
+(\fIwidget\-name \fB'selection 'clear \fIfirst\fR)
+.TP
+(\fIwidget\-name \fB'selection 'clear \fIfirst \fR\fIlast\fR)
+If any of the elements between \fIfirst\fR and \fIlast\fR
+(inclusive) are selected, they are deselected.
+The selection state is not changed for elements outside
+this range.
+.TP
+(\fIwidget\-name \fB'selection 'includes \fIindex\fR)
+Returns #t if the element indicated by \fIindex\fR is currently
+selected, #f if it isn't.
+.TP
+(\fIwidget\-name \fB'selection 'set \fIfirst\fR)
+.TP
+(\fIwidget\-name \fB'selection 'set \fIfirst \fR\fIlast\fR)
+Selects all of the elements in the range between
+\fIfirst\fR and \fIlast\fR, inclusive, without affecting
+the selection state of elements outside that range.
+.RE
+.TP
+(\fIwidget\-name '\fBsize\fR)
+Returns a decimal string indicating the total number of elements
+in the listbox.
+.TP
+(\fIwidget\-name '\fBxview \fIargs\fR)
+This procedure is used to query and change the horizontal position of the
+information in the widget's window.  It can take any of the following
+forms:
+.RS
+.TP
+(\fIwidget\-name '\fBxview\fR)
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the listbox's text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+These are the same values passed to scrollbars via the \fB:xscrollprocedure\fR
+option.
+.TP
+(\fIwidget\-name '\fBxview\fR \fIindex\fR)
+Adjusts the view in the window so that the character position given by
+\fIindex\fR is displayed at the left edge of the window.
+Character positions are defined by the width of the character \fB0\fR.
+.TP
+(\fIwidget\-name \fB'xview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that \fIfraction\fR of the
+total width of the listbox text is off-screen to the left.
+\fIfraction\fR must be a fraction between 0 and 1.
+.TP
+(\fIwidget\-name \fB'xview 'scroll \fInumber what\fR)
+This procedure shifts the view in the window left or right according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR or an abbreviation
+of one of these.
+If \fIwhat\fR is \fBunits\fR, the view adjusts left or right by
+\fInumber\fR character units (the width of the \fB0\fR character)
+on the display;  if it is \fBpages\fR then the view adjusts by
+\fInumber\fR screenfuls.
+If \fInumber\fR is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+.RE
+.TP
+(\fIwidget\-name '\fByview \fI?args\fR?)
+This procedure is used to query and change the vertical position of the
+text in the widget's window.
+It can take any of the following forms:
+.RS
+.TP
+(\fIwidget\-name '\fByview\fR)
+Returns a list containing two elements, both of which are real fractions
+between 0 and 1.
+The first element gives the position of the listbox element at the
+top of the window, relative to the listbox as a whole (0.5 means
+it is halfway through the listbox, for example).
+The second element gives the position of the listbox element just after
+the last one in the window, relative to the listbox as a whole.
+These are the same values passed to scrollbars via the \fB:yscrollprocedure\fR
+option.
+.TP
+(\fIwidget\-name '\fByview\fR \fIindex\fR)
+Adjusts the view in the window so that the element given by
+\fIindex\fR is displayed at the top of the window.
+.TP
+(\fIwidget\-name \fB'yview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that the element given by \fIfraction\fR
+appears at the top of the window.
+\fIFraction\fR is a fraction between 0 and 1;  0 indicates the first
+element in the listbox, 0.33 indicates the element one-third the
+way through the listbox, and so on.
+.TP
+(\fIwidget\-name \fB'yview 'scroll \fInumber what\fR)
+This procedure adjusts the view in the window up or down according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR.
+If \fIwhat\fR is \fBunits\fR, the view adjusts up or down by
+\fInumber\fR lines;  if it is \fBpages\fR then
+the view adjusts by \fInumber\fR screenfuls.
+If \fInumber\fR is negative then earlier elements
+become visible;  if it is positive then later elements
+become visible.
+.RE
+
+.SH "DEFAULT BINDINGS"
+.PP
+Tk automatically creates class bindings for listboxes that give them
+Motif-like behavior.  Much of the behavior of a listbox is determined
+by its \fBselectMode\fR option, which selects one of four ways
+of dealing with the selection.
+.PP
+If the selection mode is \fBsingle\fR or \fBbrowse\fR, at most one
+element can be selected in the listbox at once.
+In both modes, clicking button 1 on an element selects
+it and deselects any other selected item.
+In \fBbrowse\fR mode it is also possible to drag the selection
+with button 1.
+.PP
+If the selection mode is \fBmultiple\fR or \fBextended\fR,
+any number of elements may be selected at once, including discontiguous
+ranges.  In \fBmultiple\fR mode, clicking button 1 on an element
+toggles its selection state without affecting any other elements.
+In \fBextended\fR mode, pressing button 1 on an element selects
+it, deselects everything else, and sets the anchor to the element
+under the mouse;  dragging the mouse with button 1
+down extends the selection to include all the elements between
+the anchor and the element under the mouse, inclusive.
+.PP
+Most people will probably want to use \fBbrowse\fR mode for
+single selections and \fBextended\fR mode for multiple selections;
+the other modes appear to be useful only in special situations.
+.PP
+In addition to the above behavior, the following additional behavior
+is defined by the default bindings:
+.IP [1]
+In \fBextended\fR mode, the selected range can be adjusted by pressing
+button 1 with the Shift key down:  this modifies the selection to
+consist of the elements between the anchor and the element under
+the mouse, inclusive.
+The un-anchored end of this new selection can also be dragged with
+the button down.
+.IP [2]
+In \fBextended\fR mode, pressing button 1 with the Control key down
+starts a toggle operation: the anchor is set to the element under
+the mouse, and its selection state is reversed.  The selection state
+of other elements isn't changed.
+If the mouse is dragged with button 1 down, then the selection state
+of all elements between the anchor and the element under the mouse
+is set to match that of the anchor element;  the selection state of
+all other elements remains what it was before the toggle operation
+began.
+.IP [3]
+If the mouse leaves the listbox window with button 1 down, the window
+scrolls away from the mouse, making information visible that used
+to be off-screen on the side of the mouse.
+The scrolling continues until the mouse re-enters the window, the
+button is released, or the end of the listbox is reached.
+.IP [4]
+Mouse button 2 may be used for scanning.
+If it is pressed and dragged over the listbox, the contents of
+the listbox drag at high speed in the direction the mouse moves.
+.IP [5]
+If the Up or Down key is pressed, the location cursor (active
+element) moves up or down one element.
+If the selection mode is \fBbrowse\fR or \fBextended\fR then the
+new active element is also selected and all other elements are
+deselected.
+In \fBextended\fR mode the new active element becomes the
+selection anchor.
+.IP [6]
+In \fBextended\fR mode, Shift-Up and Shift-Down move the location
+cursor (active element) up or down one element and also extend
+the selection to that element in a fashion similar to dragging
+with mouse button 1.
+.IP [7]
+The Left and Right keys scroll the listbox view left and right
+by the width of the character \fB0\fR.
+Control-Left and Control-Right scroll the listbox view left and
+right by the width of the window.
+Control-Prior and Control-Next also scroll left and right by
+the width of the window.
+.IP [8]
+The Prior and Next keys scroll the listbox view up and down
+by one page (the height of the window).
+.IP [9]
+The Home and End keys scroll the listbox horizontally to
+the left and right edges, respectively.
+.IP [10]
+Control-Home sets the location cursor to the the first element in
+the listbox, selects that element, and deselects everything else
+in the listbox.
+.IP [11]
+Control-End sets the location cursor to the the last element in
+the listbox, selects that element, and deselects everything else
+in the listbox.
+.IP [12]
+In \fBextended\fR mode, Control-Shift-Home extends the selection
+to the first element in the listbox and Control-Shift-End extends
+the selection to the last element.
+.IP [13]
+In \fBmultiple\fR mode, Control-Shift-Home moves the location cursor
+to the first element in the listbox and Control-Shift-End moves
+the location cursor to the last element.
+.IP [14]
+The space and Select keys make a selection at the location cursor
+(active element) just as if mouse button 1 had been pressed over
+this element.
+.IP [15]
+In \fBextended\fR mode, Control-Shift-space and Shift-Select
+extend the selection to the active element just as if button 1
+had been pressed with the Shift key down.
+.IP [16]
+In \fBextended\fR mode, the Escape key cancels the most recent
+selection and restores all the elements in the selected range
+to their previous selection state.
+.IP [17]
+Control-slash selects everything in the widget, except in
+\fBsingle\fR and \fBbrowse\fR modes, in which case it selects
+the active element and deselects everything else.
+.IP [18]
+Control-backslash deselects everything in the widget, except in
+\fBbrowse\fR mode where it has no effect.
+.IP [19]
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is
+a selection.
+
+.PP
+The behavior of listboxes can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH EXAMPLE
+.LP
+Herafter is an example of a listbox connected to a scrollbar
+.DS
+;; Create list box and scrollbar
+(listbox   '.l :height 5 
+	       :yscroll (lambda l (apply .s 'set l)))
+(scrollbar '.s :command (lambda l (apply .l 'yview l)))
+
+;; Set some elements in the listbox
+(.l 'insert 0 'one 'two 'three 'four 'five 'six 'seven 'eight)
+
+;; Pack elements
+(pack .l :side "left" :expand #t  :fill "both")
+(pack .s :side "right" :expand #f :fill "y")
+.DE
+
+.SH SEE ALSO
+scrollbar
diff --git a/Doc/Manual/listener.n b/Doc/Manual/listener.n
new file mode 100644
index 0000000..f1965dc
--- /dev/null
+++ b/Doc/Manual/listener.n
@@ -0,0 +1,81 @@
+'\" Color=Green
+'\"
+'\" Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+'\" 
+'\" Permission to use, copy, and/or distribute this software and its
+'\" documentation for any purpose and without fee is hereby granted, provided
+'\" that both the above copyright notice and this permission notice appear in
+'\" all copies and derived works.  Fees for distribution or use of this
+'\" software or derived works may only be charged with express written
+'\" permission of the copyright holder.  
+'\" This software is provided ``as is'' without express or implied warranty.
+'\"
+'\"           Author: Erick Gallesio [eg@unice.fr]
+'\"    Creation date: 19-Jul-1996 15:21
+'\" Last file update: 19-Jul-1996 16:31
+'\" 
+'\" 
+.so STk-man.macros
+.TH listener n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+listener \- Create and manipulate listener widgets
+.SH SYNOPSIS
+(\fBlistener\fI \fIwidget\-name \fR?\fIoptions\fR?)
+
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :command "" "" command
+Specifies a STk procedure to associate with the listener.  This procedure
+is invoked when a complete s-expr is entered in the listener. This s-expr is
+passed as a string to the procedure. The procedure must return the string
+which will be inserted in response to the s-expr input. The default procedure
+is the Identity procdure.
+.OP :output-color "" "" output-color
+Specifies the color used the output lines
+.OP :prompt-color "" "" prompt-color
+Specifies the color used for the prompt
+.OP :prompt "" "" prompt
+Specifies the prompt used for reading s-expr. Defaults to "> "
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBlistener\fR procedure creates a new text window (given by the
+\fIwidget\-name\fR argument) and associates it bindiangs suitable for a listener.
+Since a listener is in fact a text widget, all the options of \fBtext\fR
+are applicable to a listener.
+The \fBlistener\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A listener is a widget for doing interactive I/O. Typical usage for
+this widget consists of a text window whose inputs are sent to the
+Scheme evaluator and whose result is displayed in the listener. An
+example for this is shown at the end of this page.
+
+.SH "WIDGET PROCEDURE"
+.PP
+All the \fBtext\fR procedure are avialble for a listener, plus
+
+.TP
+(\fBlistener-insert-string\fR \fIwidget-name str\fR)
+inserts the string \fIstr\fR just before the input prompt. 
+.SH EXAMPLE
+Hereafter is a simple use of the listener widget which interact with the 
+evaluator.
+.sp
+.CS
+(listener '.t :width   50 
+              :height  10
+              :command (lambda (x) 
+                         (eval-string x (global-environment))))
+(pack .t)
+.CE
+.SH "DEFAULT BINDINGS"
+.PP
+The defaults bindings are identical to the \fBtext\fR bindings.
+
+.SH SEE ALSO
+text
diff --git a/Doc/Manual/lower.n b/Doc/Manual/lower.n
new file mode 100644
index 0000000..64b90ec
--- /dev/null
+++ b/Doc/Manual/lower.n
@@ -0,0 +1,37 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) lower.n 1.5 95/06/07 21:15:19
+'\" 
+.so STk-man.macros
+.TH lower n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+lower \- Change a window's position in the stacking order
+.SH SYNOPSIS
+(\fBlower \fIwindow\fR)
+.sp
+(\fBlower \fIwindow \fR\fIbelowThis\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+If the \fIbelowThis\fR argument is omitted then the procedure lowers
+\fIwindow\fR so that it is below all of its siblings in the stacking
+order (it will be obscured by any siblings that overlap it and
+will not obscure any siblings).
+If \fIbelowThis\fR is specified then it must be the path name of
+a window that is either a sibling of \fIwindow\fR or the descendant
+of a sibling of \fIwindow\fR.
+In this case the \fBlower\fR procedure will insert
+\fIwindow\fR into the stacking order just below \fIbelowThis\fR
+(or the ancestor of \fIbelowThis\fR that is a sibling of \fIwindow\fR);
+this could end up either raising or lowering \fIwindow\fR.
+
+.SH SEE ALSO
+raise
diff --git a/Doc/Manual/make-dialog.n b/Doc/Manual/make-dialog.n
new file mode 100644
index 0000000..9184297
--- /dev/null
+++ b/Doc/Manual/make-dialog.n
@@ -0,0 +1,96 @@
+'\" Color=Green
+'\" 
+'\" Derived from a document with following copyright
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) dialog.n 1.4 95/06/07 21:15:13
+'\" 
+.so STk-man.macros
+.TH STk:make-dialog n 4.1 STk "STk procedure"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+STk:make-dialog \- Create modal dialog and wait for response
+.SH SYNOPSIS
+(\fBSTk:make-dialog\fR \fIarguments ...\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure is part of the STk library. Its arguments describe a dialog box. 
+They can be set using the following keywords.
+.TP
+\fB:window\fR
+Name of top-level window to use for dialog. The default value for 
+this parameter is  \fI.dialog\fR. If a window with this name 
+already exists, it is destroyed.
+.TP
+\fB:title\fR
+Text to appear in the window manager's title bar for the dialog. Default to 
+\fB"Dialog"\fR.
+.TP
+\fB:text\fR
+Message to appear in the top portion of the dialog box. Default to the empty string.
+.TP
+\fB:bitmap\fR
+If non-empty, specifies a bitmap to display in the top portion of
+the dialog, to the left of the text.
+If this is an empty string (or if not specified) then no bitmap is displayed 
+in the dialog.
+.TP
+\fB:default\fR
+If this is an integer greater than or equal to zero, then it gives
+the index of the button that is to be the default button for the dialog
+(0 for the leftmost button, and so on).
+If less than zero then there won't be any default button.
+By default, there is no default button.
+.TP
+\fB:buttons\fR
+the given argument must be a list of couples indicating for each the button text and
+its associated action (a closure). The sepcified buttons are displayed 
+in order from left to right.
+.TP
+\fB:grab\fR
+is a boolean value indicating if the \fBSTk:make-dialog\fR must wait that a
+button be pressed before returning. Use the symbol \fBglobal\fR to have
+a global grab. If grabbing is set, \fBSTk:make-dialog\fR returns the button
+pressed index (or -1 if the window is detroyed before a button is pressed).
+By default, the grab is unset.
+
+.LP
+Hereafter are simple uses of the \fBSTk:make-dialog\fR procedure
+.LP
+\fI;; A simple dialog; returns after displaying the window\fR
+.CS
+(STk:make-dialog :text    "Do you want to exit?"
+                 :bitmap  "question"
+                 :buttons (list (list "Yes" (lambda () 
+                                              (display "Yes\n")))
+                                (list "No"  (lambda () 
+                                              (display "No\n")))))
+.CE
+.LP
+\fI;; Another one which wait that the user chooses a response\fR
+.br
+\fI;; Default is "bar"\fR
+.br
+\fI;; Return value will be 0 1 or 2\fR
+.br
+\fI;; The @ in a bitmap allows to specify a file\fR
+.CS
+(STk:make-dialog :text    "Choose one"
+                 :bitmap  "@/usr/include/X11/bitmaps/terminal"
+                 :default 1
+                 :grab    #t
+                 :buttons (list (list "foo" (lambda () 
+                                              (display "foo\n")))
+                                (list "bar" (lambda () 
+                                              (display "bar\n")))
+                                (list "baz" (lambda ()
+                                              (display "baz\n")))))
+.CE
diff --git a/Doc/Manual/menu.n b/Doc/Manual/menu.n
new file mode 100644
index 0000000..423a733
--- /dev/null
+++ b/Doc/Manual/menu.n
@@ -0,0 +1,620 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) menu.n 1.43 95/08/30 09:51:30
+'\" 
+.so STk-man.macros
+.TH menu n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+menu \- Create and manipulate menu widgets
+.SH SYNOPSIS
+(\fBmenu\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:background	:disabledforeground	:relief
+:activeborderwidth	:borderwidth	:font	:takefocus
+:activeforeground	:cursor	:foreground
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :postcommand postCommand Command post-command
+If this option is specified then it provides a STk procedure to execute
+each time the menu is posted.  The procedure is invoked by the \fBpost\fR
+widget procedure before posting the menu.
+.OP :selectcolor selectColor Background select-color
+For menu entries that are check buttons or radio buttons, this option
+specifies the color to display in the indicator when the check button
+or radio button is selected.
+.OP :tearoff tearOff TearOff tear-off
+This option must have a proper boolean value, which specifies
+whether or not the menu should include a tear-off entry at the
+top.  If so, it will exist as entry 0 of the menu and the other
+entries will number starting at 1.  The default
+menu bindings arrange for the menu to be torn off when the tear-off
+entry is invoked.
+.OP :tearoffcommand tearOffCommand TearOffCommand tear-off-command
+If this option has a non-empty value, then it specifies a STk procedure
+to invoke whenever the menu is torn off.  The actual procedure will
+be called with two parameters:  the name of the menu window and 
+the name of the name of the torn off menu window.
+.OP :transient transient Transient transcient
+This option must have a boolean value.  True means that the menu
+is used on a transient basis, e.g. as a pop-up, pull-down, or
+cascaded menu.  False means that the menu will be displayed
+on the screen continuously, for example as a torn-off menu.
+If the option is true, no window manager border
+will be displayed around the menu and redisplay will be optimized
+using X's ``save under'' facility.
+.BE
+
+.SH INTRODUCTION
+.PP
+The \fBmenu\fR procedure creates a new top-level window (given
+by the \fIwidget\-name\fR argument) and makes it into a menu widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the menu such as its colors and font.
+The \fBmenu\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A menu is a widget that displays a collection of one-line entries arranged
+in a column.  There exist several different types of entries,
+each with different properties.  Entries of different types may be
+combined in a single menu.  Menu entries are not the same as
+entry widgets.  In fact, menu entries are not even distinct widgets;
+the entire menu is one widget.
+.PP
+Menu entries are displayed with up to three separate fields.
+The main field is a label in the form of a text string,
+a bitmap, or an image, controlled by the \fB:label\fR,
+\fB:bitmap\fR, and \fB:image\fR options for the entry.
+If the  \fB:accelerator\fR option is specified for an entry then a second
+textual field is displayed to the right of the label.  The accelerator
+typically describes a keystroke sequence that may be typed in the
+application to cause the same result as invoking the menu entry.
+The third field is an \fIindicator\fR.  The indicator is present only for
+checkbutton or radiobutton entries.  It indicates whether the entry
+is selected or not, and is displayed to the left of the entry's
+string.
+.PP
+In normal use, an entry becomes active (displays itself differently)
+whenever the mouse pointer is over the entry.  If a mouse
+button is released over the entry then the entry is \fIinvoked\fR.
+The effect of invocation is different for each type of entry;
+these effects are described below in the sections on individual
+entries.
+.PP
+Entries may be \fIdisabled\fR, which causes their labels
+and accelerators to be displayed
+with dimmer colors.
+The default menu bindings will not allow
+a disabled entry to be activated or invoked.
+Disabled entries may be re-enabled, at which point it becomes
+possible to activate and invoke them again.
+
+.SH "PROCEDURE ENTRIES"
+.PP
+The most common kind of menu entry is a procedure entry, which
+behaves much like a button widget.  When a procedure entry is
+invoked, a STk procedure is executed.  The STk
+procedure is specified with the \fB:command\fR option.
+
+.SH "SEPARATOR ENTRIES"
+.PP
+A separator is an entry that is displayed as a horizontal dividing
+line.  A separator may not be activated or invoked, and it has
+no behavior other than its display appearance.
+
+.SH "CHECKBUTTON ENTRIES"
+.PP
+A checkbutton menu entry behaves much like a checkbutton widget.
+When it is invoked it toggles back and forth between the selected
+and deselected states.  When the entry is selected, a particular
+value is stored in a particular global variable (as determined by
+the \fB:onvalue\fR and \fB:variable\fR options for the entry);  when
+the entry is deselected another value (determined by the
+\fB:offvalue\fR option) is stored in the global variable.
+An indicator box is displayed to the left of the label in a checkbutton
+entry.  If the entry is selected then the indicator's center is displayed
+in the color given by the \fB:selectcolor\fR option for the entry;
+otherwise the indicator's center is displayed in the background color for
+the menu.  If a \fB:command\fR option is specified for a checkbutton
+entry, then its value is evaluated as a STk procedure each time the entry
+is invoked;  this happens after toggling the entry's
+selected state.
+
+.SH "RADIOBUTTON ENTRIES"
+.PP
+A radiobutton menu entry behaves much like a radiobutton widget.
+Radiobutton entries are organized in groups of which only one
+entry may be selected at a time.  Whenever a particular entry
+becomes selected it stores a particular value into a particular
+global variable (as determined by the \fB:value\fR and
+\fB:variable\fR options for the entry).  This action
+causes any previously-selected entry in the same group
+to deselect itself.
+Once an entry has become selected, any change to the entry's
+associated variable will cause the entry to deselect itself.
+Grouping of radiobutton entries is determined by their
+associated variables:  if two entries have the same associated
+variable then they are in the same group.
+An indicator diamond is displayed to the left of the label in each
+radiobutton entry.  If the entry is selected then the indicator's
+center is displayed in the color given by the \fB:selectcolor\fR option
+for the entry;
+otherwise the indicator's center is displayed in the background color for
+the menu.  If a \fB:command\fR option is specified for a radiobutton
+entry, then its value is evaluated as a STk procedure each time the entry
+is invoked;  this happens after selecting the entry.
+
+.SH "CASCADE ENTRIES"
+.PP
+A cascade entry is one with an associated menu (determined
+by the \fB:menu\fR option).  Cascade entries allow the construction
+of cascading menus.
+The \fBpostcascade\fR widget procedure can be used to post and unpost
+the associated menu just to the right of the cascade entry.
+The associated menu must be a child of the menu containing
+the cascade entry (this is needed in order for menu traversal to
+work correctly).
+.PP
+A cascade entry posts its associated menu by invoking a
+STk procedure of the form
+.CS
+(\fImenu\fB 'post \fIx y\fR)
+.CE
+where \fImenu\fR is the path name of the associated menu, and \fIx\fR
+and \fIy\fR are the root-window coordinates of the upper-right
+corner of the cascade entry.
+The lower-level menu is unposted by executing a STk procedure with
+the form
+.CS
+(\fImenu\fB 'unpost\fR)
+.CE
+where \fImenu\fR is the name of the associated menu.
+.PP
+If a \fB:command\fR option is specified for a cascade entry then it is
+evaluated as a STk procedure
+whenever the entry is invoked.
+
+.SH "TEAR-OFF ENTRIES"
+.PP
+A tear-off entry appears at the top of the menu if enabled with the
+\fBtearOff\fR option.  It is not like other menu entries in that
+it cannot be created with the \fBadd\fR widget procedure and
+cannot be deleted with the \fBdelete\fR widget procedure.
+When a tear-off entry is created it appears as a dashed line at
+the top of the menu.  Under the default bindings, invoking the
+tear-off entry causes a torn-off copy to be made of the menu and
+all of its submenus.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBmenu\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.
+.PP
+Many of the widget procedures for a menu take as one argument an
+indicator of which entry of the menu to operate on.  These
+indicators are called \fIindex\fRes and may be specified in
+any of the following forms:
+.TP 12
+\fInumber\fR
+Specifies the entry numerically, where 0 corresponds
+to the top-most entry of the menu, 1 to the entry below it, and
+so on.
+.TP 12
+\fBactive\fR
+Indicates the entry that is currently active.  If no entry is
+active then this form is equivalent to \fBnone\fR.  This form may
+not be abbreviated.
+.TP 12
+\fBend\fR
+Indicates the bottommost entry in the menu.  If there are no
+entries in the menu then this form is equivalent to \fBnone\fR.
+This form may not be abbreviated.
+.TP 12
+\fBlast\fR
+Same as \fBend\fR.
+.TP 12
+\fBnone\fR
+Indicates ``no entry at all'';  this is used most commonly with
+the \fBactivate\fR option to deactivate all the entries in the
+menu.  In most cases the specification of \fBnone\fR causes
+nothing to happen in the widget procedure.
+This form may not be abbreviated.
+.TP 12
+\fB@\fInumber\fR
+In this form, \fInumber\fR is treated as a y-coordinate in the
+menu's window;  the entry closest to that y-coordinate is used.
+For example, ``\fB@0\fR'' indicates the top-most entry in the
+window.
+.TP 12
+\fIpattern\fR
+If the index doesn't satisfy one of the above forms then this
+form is used.  \fIPattern\fR is pattern-matched against the label of
+each entry in the menu, in order from the top down, until a
+matching entry is found.  The rules of \fBTcl_StringMatch\fR
+are used.
+.PP
+The following widget procedures are possible for menu widgets:
+.TP
+(\fIwidget\-name '\fBactivate \fIindex\fR)
+Change the state of the entry indicated by \fIindex\fR to \fBactive\fR
+and redisplay it using its active colors.
+Any previously-active entry is deactivated.  If \fIindex\fR
+is specified as \fBnone\fR, or if the specified entry is
+disabled, then the menu ends up with no active entry.
+Returns an empty string.
+.TP
+(\fIwidget\-name \fBadd \fItype \fR?\fIoption value option value ...\fR?)
+Add a new entry to the bottom of the menu.  The new entry's type
+is given by \fItype\fR and must be one of \fBcascade\fR,
+\fBcheckbutton\fR, \fBcommand\fR, \fBradiobutton\fR, or \fBseparator\fR,
+or a unique abbreviation of one of the above.  If additional arguments
+are present, they specify any of the following options:
+.RS
+.TP
+\fB:activebackground \fIvalue\fR
+Specifies a background color to use for displaying this entry when it
+is active.
+If this option is specified as an empty string (the default), then the
+\fBactiveBackground\fR option for the overall menu is used.
+If the \fB*tk-strict-Motif*\fR variable has been set to request strict
+Motif compliance, then this option is ignored and the \fB:background\fR
+option is used in its place.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:activeforeground \fIvalue\fR
+Specifies a foreground color to use for displaying this entry when it
+is active.
+If this option is specified as an empty string (the default), then the
+\fBactiveForeground\fR option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:accelerator \fIvalue\fR
+Specifies a string to display at the right side of the menu entry.
+Normally describes an accelerator keystroke sequence that may be
+typed to invoke the same function as the menu entry.  This option
+is not available for separator or tear-off entries.
+.TP
+\fB:background \fIvalue\fR
+Specifies a background color to use for displaying this entry when it
+is in the normal state (neither active nor disabled).
+If this option is specified as an empty string (the default), then the
+\fBbackground\fR option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:bitmap \fIvalue\fR
+Specifies a bitmap to display in the menu instead of a textual
+label, in any of the forms accepted by \fBTk_GetBitmap\fR.
+This option overrides the \fB:label\fR option but may be reset
+to an empty string to enable a textual label to be displayed.
+If a \fB:image\fR option has been specified, it overrides
+\fB:bitmap\fR.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:command \fIvalue\fR
+Specifies a STk procedure to execute when the menu entry is invoked.
+Not available for separator or tear-off entries.
+.TP
+\fB:font \fIvalue\fR
+Specifies the font to use when drawing the label or accelerator
+string in this entry.
+If this option is specified as an empty string (the default) then
+the \fBfont\fR option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:foreground \fIvalue\fR
+Specifies a foreground color to use for displaying this entry when it
+is in the normal state (neither active nor disabled).
+If this option is specified as an empty string (the default), then the
+\fBforeground\fR option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:image \fIvalue\fR
+Specifies an image to display in the menu instead of a text string
+or bitmap
+The image must have been created by some previous invocation of
+\fBimage create\fR.
+This option overrides the \fB:label\fR and \fB:bitmap\fR options
+but may be reset to an empty string to enable a textual or
+bitmap label to be displayed.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:indicatoron \fIvalue\fR
+Available only for checkbutton and radiobutton entries.
+\fIValue\fR is a boolean that determines whether or not the
+indicator should be displayed.
+.TP
+\fB:label \fIvalue\fR
+Specifies a string to display as an identifying label in the menu
+entry.  Not available for separator or tear-off entries.
+.TP
+\fB:menu \fIvalue\fR
+Available only for cascade entries.  Specifies the path name of
+the submenu associated with this entry.
+The submenu must be a child of the menu.
+.TP
+\fB:offvalue \fIvalue\fR
+Available only for checkbutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is
+deselected.
+.TP
+\fB:onvalue \fIvalue\fR
+Available only for checkbutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is selected.
+.TP
+\fB:selectcolor \fIvalue\fR
+Available only for checkbutton and radiobutton entries.
+Specifies the color to display in the indicator when the entry is
+selected.
+If the value is an empty string (the default) then the \fBselectColor\fR
+option for the menu determines the indicator color.
+.TP
+\fB:selectimage \fIvalue\fR
+Available only for checkbutton and radiobutton entries.
+Specifies an image to display in the entry (in place of
+the \fB:image\fR option) when it is selected.
+\fIValue\fR is the name of an image, which must have been created
+by some previous invocation of \fBimage create\fR.
+This option is ignored unless the \fB:image\fR option has
+been specified.
+.TP
+\fB:state \fIvalue\fR
+Specifies one of three states for the entry:  \fBnormal\fR, \fBactive\fR,
+or \fBdisabled\fR.  In normal state the entry is displayed using the
+\fBforeground\fR option for the menu and the \fBbackground\fR
+option from the entry or the menu.
+The active state is typically used when the pointer is over the entry.
+In active state the entry is displayed using the \fBactiveForeground\fR
+option for the menu along with the \fBactivebackground\fR option from
+the entry.  Disabled state means that the entry
+should be insensitive:  the default bindings will refuse to activate
+or invoke the entry.
+In this state the entry is displayed according to the 
+\fBdisabledForeground\fR option for the menu and the
+\fBbackground\fR option from the entry.
+This option is not available for separator entries.
+.TP
+\fB:underline \fIvalue\fR
+Specifies the integer index of a character to underline in the entry.
+This option is also queried by the default bindings and used to
+implement keyboard traversal.
+0 corresponds to the first character of the text displayed in the entry,
+1 to the next character, and so on.
+If a bitmap or image is displayed in the entry then this option is ignored.
+This option is not available for separator or tear-off entries.
+.TP
+\fB:value \fIvalue\fR
+Available only for radiobutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is selected.
+.TP
+\fB:variable \fIvalue\fR
+Available only for checkbutton and radiobutton entries.  Specifies
+the name of a global value to set when the entry is selected.
+For checkbutton entries the variable is also set when the entry
+is deselected.  For radiobutton entries, changing the variable
+causes the currently-selected entry to deselect itself.
+.LP
+The \fBadd\fR widget procedure returns an empty list.
+.RE
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBmenu\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBmenu\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdelete \fIindex1\fR)
+.TP
+(\fIwidget\-name '\fBdelete \fIindex1\fR \fIindex2\fR)
+Delete all of the menu entries between \fIindex1\fR and
+\fIindex2\fR inclusive.
+If \fIindex2\fR is omitted then it defaults to \fIindex1\fR.
+Attempts to delete a tear-off menu entry are ignored (instead, you
+should change the \fBtearOff\fR option to remove the tear-off entry).
+.TP
+(\fIwidget\-name '\fBentrycget\fR \fIindex option\fR)
+Returns the current value of a configuration option for
+the entry given by \fIindex\fR.
+\fIOption\fR may have any of the values accepted by the \fBadd\fR
+widget procedure.
+.TP
+(\fIwidget\-name '\fBentryconfigure \fIindex \fR?\fIoptions\fR?)
+This procedure is similar to the \fBconfigure\fR procedure, except that
+it applies to the options for an individual entry, whereas \fBconfigure\fR
+applies to the options for the menu as a whole.
+\fIOptions\fR may have any of the values accepted by the \fBadd\fR
+widget procedure.  If \fIoptions\fR are specified, options are modified
+as indicated
+in the procedure and the procedure returns an empty string.
+If no \fIoptions\fR are specified, returns a list describing
+the current options for entry \fIindex\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).
+.TP
+(\fIwidget\-name '\fBindex \fIindex\fR)
+Returns the numerical index corresponding to \fIindex\fR, or
+\fB"none"\fR if \fIindex\fR was specified as \fBnone\fR.
+.TP
+(\fIwidget\-name \fBinsert \fIindex\fR \fItype \fR?\fIoption value option value ...\fR?)
+Same as the \fBadd\fR widget procedure except that it inserts the new
+entry just before the entry given by \fIindex\fR, instead of appending
+to the end of the menu.  The \fItype\fR, \fIoption\fR, and \fIvalue\fR
+arguments have the same interpretation as for the \fBadd\fR widget
+procedure.  It is not possible to insert new menu entries before the
+tear-off entry, if the menu has one.
+.TP
+(\fIwidget\-name '\fBinvoke \fIindex\fR)
+Invoke the action of the menu entry.  See the sections on the
+individual entries above for details on what happens.  If the
+menu entry is disabled then nothing happens.  If the
+entry has a procedure associated with it then the result of that
+procedure is returned as the result of the \fBinvoke\fR widget
+procedure.  Otherwise the result is an empty list.  Note:  invoking
+a menu entry does not automatically unpost the menu;  the default
+bindings normally take care of this before invoking the \fBinvoke\fR
+widget procedure.
+.TP
+(\fIwidget\-name '\fBpost \fIx y\fR)
+Arrange for the menu to be displayed on the screen at the root-window
+coordinates given by \fIx\fR and \fIy\fR.  These coordinates are
+adjusted if necessary to guarantee that the entire menu is visible on
+the screen.  This procedure normally returns an empty string.
+If the \fBpostCommand\fR option has been specified, then it is called
+before posting the menu.
+If an error returns while executing the procedure, then the error is
+returned without posting the menu.
+.TP
+(\fIwidget\-name '\fBpostcascade \fIindex\fR)
+Posts the submenu associated with the cascade entry given by
+\fIindex\fR, and unposts any previously posted submenu.
+If \fIindex\fR doesn't correspond to a cascade entry,
+or if \fIwidget\-name\fR isn't posted,
+the procedure has no effect except to unpost any currently posted
+submenu.
+.TP
+(\fIwidget\-name '\fBtype \fIindex\fR)
+Returns the type of the menu entry given by \fIindex\fR.
+This is the \fItype\fR argument passed to the \fBadd\fR widget
+procedure when the entry was created, such as \fB"command"\fR
+or \fB"separator"\fR, or \fB"tearoff"\fR for a tear-off entry.
+.TP
+(\fIwidget\-name '\fBunpost\fR)
+Unmap the window so that it is no longer displayed.  If a
+lower-level cascaded menu is posted, unpost that menu.  Returns an
+empty string.
+.TP
+(\fIwidget\-name '\fByposition \fIindex\fR)
+Returns a decimal string giving the y-coordinate within the menu
+window of the topmost pixel in the entry specified by \fIindex\fR.
+
+.SH "MENU CONFIGURATIONS"
+.PP
+The default bindings support four different ways of using menus:
+.TP
+\fBPulldown Menus\fR
+This is the most common case.  You create one menubutton widget for
+each top-level menu, and typically you arrange a series of menubuttons
+in a row in a menubar window.  You also create the top-level menus
+and any cascaded submenus, and tie them together with \fB:menu\fR
+options in menubuttons and cascade menu entries.  The top-level menu must
+be a child of the menubutton, and each submenu must be a child of the
+menu that refers to it.  Once you have done this, the default bindings
+will allow users to traverse and invoke the tree of menus via its
+menubutton;  see the \fBmenubutton\fR manual entry for details.
+.TP
+\fBPopup Menus\fR
+Popup menus typically post in response to a mouse button press or
+keystroke.  You create the popup menus and any cascaded submenus,
+then you call the \fBTk:popup\fR (see \fBpopup\fR) procedure 
+at the appropriate time
+to post the top-level menu.
+.TP
+\fBOption Menus\fR
+An option menu consists of a menubutton with an associated menu
+that allows you to select one of several values.  The current value
+is displayed in the menubutton and is also stored in a global
+variable.  Use the \fBTk:option-menu\fR (see \fBoption-menu\fR)
+ procedure to create option
+menubuttons and their menus.
+.TP
+\fBTorn-off Menus\fR
+You create a torn-off menu by invoking the tear-off entry at
+the top of an existing menu.  The default bindings will create a new menu
+that is a copy of the original menu and leave it permanently
+posted as a top-level window.  The torn-off menu behaves just
+the same as the original menu.
+
+.SH "DEFAULT BINDINGS"
+.PP
+Tk automatically creates class bindings for menus that give them
+the following default behavior:
+.IP [1]
+When the mouse enters a menu, the entry underneath the mouse
+cursor activates;  as the mouse moves around the menu, the active
+entry changes to track the mouse.
+.IP [2]
+When the mouse leaves a menu all of the entries in the menu
+deactivate, except in the special case where the mouse moves from
+a menu to a cascaded submenu.
+.IP [3]
+When a button is released over a menu, the active entry (if any) is invoked.
+The menu also unposts unless it is a torn-off menu.
+.IP [4]
+The Space and Return keys invoke the active entry and
+unpost the menu.
+.IP [5]
+If any of the entries in a menu have letters underlined with
+with \fB:underline\fR option, then pressing one of the underlined
+letters (or its upper-case or lower-case equivalent) invokes that
+entry and unposts the menu.
+.IP [6]
+The Escape key aborts a menu selection in progress without invoking any
+entry.  It also unposts the menu unless it is a torn-off menu.
+.IP [7]
+The Up and Down keys activate the next higher or lower entry
+in the menu.  When one end of the menu is reached, the active
+entry wraps around to the other end.
+.IP [8]
+The Left key moves to the next menu to the left.
+If the current menu is a cascaded submenu, then the submenu is
+unposted and the current menu entry becomes the cascade entry
+in the parent.
+If the current menu is a top-level menu posted from a
+menubutton, then the current menubutton is unposted and the
+next menubutton to the left is posted.
+Otherwise the key has no effect.
+The left-right order of menubuttons is determined by their stacking
+order:  Tk assumes that the lowest menubutton (which by default
+is the first one created) is on the left.
+.IP [9]
+The Right key moves to the next menu to the right.
+If the current entry is a cascade entry, then the submenu is
+posted and the  current menu entry becomes the first entry
+in the submenu.
+Otherwise, if the current menu was posted from a
+menubutton, then the current menubutton is unposted and the
+next menubutton to the right is posted.
+.PP
+Disabled menu entries are non-responsive:  they don't activate and
+they ignore mouse button presses and releases.
+.PP
+The behavior of menus can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH BUGS
+.PP
+At present it isn't possible to use the
+option database to specify values for the options to individual
+entries.
+
+.SH SEE ALSO 
+popup option-menu menubutton
diff --git a/Doc/Manual/menubutton.n b/Doc/Manual/menubutton.n
new file mode 100644
index 0000000..e79a8a6
--- /dev/null
+++ b/Doc/Manual/menubutton.n
@@ -0,0 +1,187 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) menubutton.n 1.29 95/08/12 17:35:13
+'\" 
+.so STk-man.macros
+.TH menubutton n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+menubutton \- Create and manipulate menubutton widgets
+.SH SYNOPSIS
+(\fBmenubutton\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:cursor	:highlightthickness	:takefocus
+:activeforeground	:disabledforeground	:image	:text
+:anchor	:font	:justify	:textvariable
+:background	:foreground	:padx	:underline
+:bitmap	:highlightbackground	:pady	:wraplength
+:borderwidth	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :height height Height height
+Specifies a desired height for the menubutton.
+If an image or bitmap is being displayed in the menubutton then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in lines of text.
+If this option isn't specified, the menubutton's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+.OP :indicatoron indicatorOn IndicatorOn indicator-on
+The value must be a proper boolean value.  If it is true then
+a small indicator rectangle will be displayed on the right side
+of the menubutton and the default menu bindings will treat this
+as an option menubutton.  If false then no indicator will be
+displayed.
+.OP :menu menu MenuName menu-name
+Specifies the path name of the menu associated with this menubutton.
+The menu must be a child of the menubutton.
+.OP :state state State state
+Specifies one of three states for the menubutton:  \fBnormal\fR, \fBactive\fR,
+or \fBdisabled\fR.  In normal state the menubutton is displayed using the
+\fBforeground\fR and \fBbackground\fR options.  The active state is
+typically used when the pointer is over the menubutton.  In active state
+the menubutton is displayed using the \fBactiveForeground\fR and
+\fBactiveBackground\fR options.  Disabled state means that the menubutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the \fBdisabledForeground\fR and
+\fBbackground\fR options determine how the button is displayed.
+.OP :width width Width width
+Specifies a desired width for the menubutton.
+If an image or bitmap is being displayed in the menubutton then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in characters.
+If this option isn't specified, the menubutton's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+.BE
+
+.SH INTRODUCTION
+.PP
+The \fBmenubutton\fR command creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a menubutton widget.
+Additional
+options, described above, may be specified on the command line
+or in the option database
+to configure aspects of the menubutton such as its colors, font,
+text, and initial relief.  The \fBmenubutton\fR command returns its
+\fIwidget\-name\fR argument.  At the time this command is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A menubutton is a widget that displays a
+textual string, bitmap, or image
+and is associated with a menu widget.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the \fBwrapLength\fR option) and
+one of the characters may optionally be underlined using the
+\fBunderline\fR option.
+In normal usage, pressing
+mouse button 1 over the menubutton causes the associated menu to
+be posted just underneath the menubutton.  If the mouse is moved over
+the menu before releasing the mouse button, the button release
+causes the underlying menu entry to be invoked.  When the button
+is released, the menu is unposted.
+.PP
+Menubuttons are typically organized into groups called menu bars
+that allow scanning:
+if the mouse button is pressed over one menubutton (causing it
+to post its menu) and the mouse is moved over another menubutton
+in the same menu bar without releasing the mouse button, then the
+menu of the first menubutton is unposted and the menu of the
+new menubutton is posted instead.
+.PP
+There are several interactions between menubuttons and menus;  see
+the \fBmenu\fR manual entry for information on various menu configurations,
+such as pulldown menus and option menus.
+
+.SH "WIDGET COMMAND"
+.PP
+The \fBmenubutton\fR command creates a new STk command whose
+name is \fIwidget\-name\fR.  This
+command may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the command.  The following
+commands are possible for menubutton widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBmenubutton\fR
+command.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the command returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the command
+modifies the given widget option(s) to have the given value(s);  in
+this case the command returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBmenubutton\fR
+command.
+
+.SH "DEFAULT BINDINGS"
+.PP
+Tk automatically creates class bindings for menubuttons that give them
+the following default behavior:
+.IP [1]
+A menubutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves it.
+.IP [2]
+Pressing mouse button 1 over a menubutton posts the menubutton:
+its relief changes to raised and its associated menu is posted
+under the menubutton.  If the mouse is dragged down into the menu
+with the button still down, and if the mouse button is then
+released over an entry in the menu, the menubutton is unposted
+and the menu entry is invoked.
+.IP [3]
+If button 1 is pressed over a menubutton and then released over that
+menubutton, the menubutton stays posted: you can still move the mouse
+over the menu and click button 1 on an entry to invoke it.
+Once a menu entry has been invoked, the menubutton unposts itself.
+.IP [4]
+If button 1 is pressed over a menubutton and then dragged over some
+other menubutton, the original menubutton unposts itself and the
+new menubutton posts.
+.IP [5]
+If button 1 is pressed over a menubutton and released outside
+any menubutton or menu, the menubutton unposts without invoking
+any menu entry.
+.IP [6]
+When a menubutton is posted, its associated menu claims the input
+focus to allow keyboard traversal of the menu and its submenus.
+See the \fBmenu\fR manual entry for details on these bindings.
+.IP [7]
+If the \fBunderline\fR option has been specified for a menubutton
+then keyboard traversal may be used to post the menubutton:
+Alt+\fIx\fR, where \fIx\fR is the underlined character (or its
+lower-case or upper-case equivalent), may be typed in any window
+under the menubutton's toplevel to post the menubutton.
+.IP [8]
+The F10 key may be typed in any window to post the first menubutton
+under its toplevel window that isn't disabled.
+.IP [9]
+If a menubutton has the input focus, the space and return keys
+post the menubutton.
+.PP
+If the menubutton's state is \fBdisabled\fR then none of the above
+actions occur:  the menubutton is completely non-responsive.
+.PP
+The behavior of menubuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH SEE ALSO
+menu option-menu
diff --git a/Doc/Manual/message.n b/Doc/Manual/message.n
new file mode 100644
index 0000000..68dad69
--- /dev/null
+++ b/Doc/Manual/message.n
@@ -0,0 +1,147 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) message.n 1.28 95/08/12 17:35:14
+'\" 
+.so STk-man.macros
+.TH message n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+message \- Create and manipulate message widgets
+.SH SYNOPSIS
+(\fBmessage\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:anchor	:font	:highlightthickness	:takefocus
+:background	:foreground	:padx	:text
+:borderwidth	:highlightbackground	:pady	:textvariable
+:cursor	:highlightcolor	:relief	:width
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :aspect aspect Aspect aspect
+Specifies a non-negative integer value indicating desired
+aspect ratio for the text.  The aspect ratio is specified as
+100*width/height.  100 means the text should
+be as wide as it is tall, 200 means the text should
+be twice as wide as it is tall, 50 means the text should
+be twice as tall as it is wide, and so on.
+Used to choose line length for text if \fBwidth\fR option
+isn't specified.
+Defaults to 150.
+.OP :justify justify Justify justify
+Specifies how to justify lines of text.
+Must be one of \fBleft\fR, \fBcenter\fR, or \fBright\fR.  Defaults
+to \fBleft\fR.
+This option works together with the \fBanchor\fR, \fBaspect\fR,
+\fBpadX\fR, \fBpadY\fR, and \fBwidth\fR options to provide a variety
+of arrangements of the text within the window.
+The \fBaspect\fR and \fBwidth\fR options determine the amount of
+screen space needed to display the text.
+The \fBanchor\fR, \fBpadX\fR, and \fBpadY\fR options determine where this
+rectangular area is displayed within the widget's window, and the
+\fBjustify\fR option determines how each line is displayed within that
+rectangular region.
+For example, suppose \fBanchor\fR is \fBe\fR and \fBjustify\fR is
+\fBleft\fR, and that the message window is much larger than needed
+for the text.
+The the text will displayed so that the left edges of all the lines
+line up and the right edge of the longest line is \fBpadX\fR from
+the right side of the window;  the entire text block will be centered
+in the vertical span of the window.
+.OP :width width Width width
+Specifies the length of lines in the window.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+If this option has a value greater than zero then the \fBaspect\fR
+option is ignored and the \fBwidth\fR option determines the line
+length.
+If this option has a value less than or equal to zero, then
+the \fBaspect\fR option determines the line length.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBmessage\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a message widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the message such as its colors, font,
+text, and initial relief.  The \fBmessage\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A message is a widget that displays a textual string.  A message
+widget has three special features.  First, it breaks up
+its string into lines in order to produce a given aspect ratio
+for the window.  The line breaks are chosen at word boundaries
+wherever possible (if not even a single word would fit on a
+line, then the word will be split across lines).  Newline characters
+in the string will force line breaks;  they can be used, for example,
+to leave blank lines in the display.
+.PP
+The second feature of a message widget is justification.  The text
+may be displayed left-justified (each line starts at the left side of
+the window), centered on a line-by-line basis, or right-justified
+(each line ends at the right side of the window).
+.PP
+The third feature of a message widget is that it handles control
+characters and non-printing characters specially.  Tab characters
+are replaced with enough blank space to line up on the next
+8-character boundary.  Newlines cause line breaks.  Other control
+characters (ASCII code less than 0x20) and characters not defined
+in the font are displayed as a four-character sequence \fB\ex\fIhh\fR where
+\fIhh\fR is the two-digit hexadecimal number corresponding to
+the character.  In the unusual case where the font doesn't contain
+all of the characters in ``0123456789abcdef\ex'' then control
+characters and undefined characters are not displayed at all.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBmessage\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for message widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBmessage\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBmessage\fR
+procedure.
+
+.SH "DEFAULT BINDINGS"
+.PP
+When a new message is created, it has no default event bindings:
+messages are intended for output purposes only.
+
+.SH BUGS
+.PP
+Tabs don't work very well with text that is centered or right-justified.
+The most common result is that the line is justified wrong.
+
+.SH KEYWORDS
+message, widget
diff --git a/Doc/Manual/option-menu.n b/Doc/Manual/option-menu.n
new file mode 100644
index 0000000..a37fe7f
--- /dev/null
+++ b/Doc/Manual/option-menu.n
@@ -0,0 +1,47 @@
+'\" Color=Green
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) optionMenu.n 1.3 95/06/07 21:15:45
+'\" 
+.so STk-man.macros
+.TH option-menu n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+option-menu \- Create an option menubutton and its menu
+.SH SYNOPSIS
+(\fBTk:option-menu \fIw varname value \fR?\fIvalue value ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure creates an option menubutton whose name is \fIw\fR,
+plus an associated menu.
+Together they allow the user to select one of the values
+given by the \fIvalue\fR arguments.
+The current value will be stored in the global variable whose
+name is given by \fIvarname\fR and it will also be displayed as the label
+in the option menubutton.
+The user can click on the menubutton to display a menu containing
+all of the \fIvalue\fRs and thereby select a new value.
+Once a new value is selected, it will be stored in the variable
+and appear in the option menubutton.
+The current value can also be changed by setting the variable.
+.PP
+The return value from \fBTk:option-menu\fR is the menu
+associated with \fIw\fR, so that the caller can change its configuration
+options or manipulate it in other ways.
+
+.SH EXAMPLE
+.DS
+(Tk:option-menu '.m 'foo "One" "Two" "Three") 
+(pack .m)
+.DE
+
+.SH SEE ALSO
+menu, popup
diff --git a/Doc/Manual/option.n b/Doc/Manual/option.n
new file mode 100644
index 0000000..07fdb7f
--- /dev/null
+++ b/Doc/Manual/option.n
@@ -0,0 +1,93 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) option.n 1.8 95/06/07 21:15:24
+'\" 
+.so STk-man.macros
+.TH option n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+option \- Add/retrieve window options to/from the option database
+.SH SYNOPSIS
+(\fBoption 'add \fIpattern value\fR)
+.sp
+(\fBoption 'add \fIpattern value \fR\fIpriority\fR)
+.sp
+(\fBoption 'clear\fR)
+.sp
+(\fBoption 'get \fIwindow name class\fR)
+.sp
+(\fBoption 'readfile \fIfileName \fR?\fIpriority\fR?)
+.sp
+(\fBoption 'readfile \fIfileName \fR\fIpriority\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBoption\fR procedure allows you to add entries to the Tk option
+database or to retrieve options from the database.  The \fBadd\fR
+form of the procedure adds a new option to the database.
+\fIPattern\fR contains
+the option being specified, and consists of names and/or classes
+separated by asterisks or dots, in the usual X format.  \fIValue\fR
+contains a text string to associate with \fIpattern\fR;  this is the
+value that will be returned in calls to \fBTk_GetOption\fR or by
+invocations of the \fBoption get\fR procedure.  If \fIpriority\fR
+is specified, it indicates the priority level for this option (see
+below for legal values);  it defaults to \fBinteractive\fR.
+This procedure always returns an empty list.
+.PP
+The \fBoption clear\fR procedure clears the option database.  Default
+options (from the
+\fBRESOURCE_MANAGER\fR property or the \fB.Xdefaults\fR
+file) will be reloaded automatically the next time an
+option is added to the database or removed from it.  This procedure
+always returns an empty string.
+.PP
+The \fBoption get\fR procedure returns the value of the option
+specified for \fIwindow\fR
+under \fIname\fR and \fIclass\fR.  If several entries in the option
+database match \fIwindow\fR, \fIname\fR, and \fIclass\fR, then
+the procedure returns whichever was created with highest
+\fIpriority\fR level.  If there are several matching
+entries at the same priority level, then it returns whichever entry
+was most recently entered into the option database.  If there are
+no matching entries, then the empty string is returned.
+.PP
+The \fBreadfile\fR form of the procedure reads \fIfileName\fR,
+which should have the standard format for an
+X resource database such as \fB.Xdefaults\fR, and adds all the
+options specified in that file to the option database.  If \fIpriority\fR
+is specified, it indicates the priority level at which to enter the
+options;  \fIpriority\fR defaults to \fBinteractive\fR.
+.PP
+The \fIpriority\fR arguments to the \fBoption\fR procedure are
+normally specified symbolically using one of the following values:
+.TP
+\fBwidgetDefault\fR
+Level 20.  Used for default values hard-coded into widgets.
+.TP
+\fBstartupFile\fR
+Level 40.  Used for options specified in application-specific
+startup files.
+.TP
+\fBuserDefault\fR
+Level 60.  Used for options specified in user-specific defaults
+files, such as \fB.Xdefaults\fR, resource databases loaded into
+the X server, or user-specific startup files.
+.TP
+\fBinteractive\fR
+Level 80.  Used for options specified interactively after the application
+starts running.  If \fIpriority\fR isn't specified, it defaults to
+this level.
+.LP
+Any of the above keywords may be abbreviated.  In addition, priorities
+may be specified numerically using integers between 0 and 100,
+inclusive.  The numeric form is probably a bad idea except for new priority
+levels other than the ones given above.
+
diff --git a/Doc/Manual/options.n b/Doc/Manual/options.n
new file mode 100644
index 0000000..65d6e69
--- /dev/null
+++ b/Doc/Manual/options.n
@@ -0,0 +1,334 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) options.n 1.40 95/10/03 08:40:46
+'\" 
+.so STk-man.macros
+.TH options n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+options \- Standard options supported by widgets
+.BE
+
+.SH DESCRIPTION
+This manual entry describes the common configuration options supported
+by widgets in the Tk toolkit.  Every widget does not necessarily support
+every option (see the manual entries for individual widgets for a list
+of the standard options supported by that widget), but if a widget does
+support an option with one of the names listed below, then the option
+has exactly the effect described below.
+.PP
+In the descriptions below, ``Command-Line Name'' refers to the
+switch used in class commands and \fBconfigure\fR widget commands to
+set this value.  For example, if an option's command-line switch is
+\fB:foreground\fR and there exists a widget \fB.a.b.c\fR, then the
+command
+.CS
+\&\fB(.a.b.c\0\0'configure\0\0:foreground "black"\fR)
+.CE
+may be used to specify the value \fBblack\fR for the option in the
+the widget \fB.a.b.c\fR.  Command-line switches may be abbreviated,
+as long as the abbreviation is unambiguous.
+``Name'' refers to the option's name in the option database (e.g.
+in .Xdefaults files).  ``Class'' refers to the option's class value
+in the option database. For each option, the \fBSTklos\fR name is also 
+specified. The \fBSTklos\fR name is usually the same as the option 
+name, except when it is a composite word, in which case words 
+are separated with a dash.
+
+
+.OP :activebackground activeBackground Foreground active-background
+Specifies background color to use when drawing active elements.
+An element (a widget or portion of a widget) is active if the
+mouse cursor is positioned over the element and pressing a mouse button
+will cause some action to occur.
+If strict Motif compliance has been requested by setting the
+\fB*tk-strict-motif*\fR variable, this option will normally be
+ignored;  the normal background color will be used instead.
+.OP :activeborderwidth activeBorderWidth BorderWidth active-border-width
+Specifies a non-negative value indicating
+the width of the 3-D border drawn around active elements.  See above for
+definition of active elements.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+This option is typically only available in widgets displaying more
+than one element at a time (e.g. menus but not buttons).
+.OP :activeforeground activeForeground Background active-foreground
+Specifies foreground color to use when drawing active elements.
+See above for definition of active elements.
+.OP :anchor anchor Anchor anchor
+Specifies how the information in a widget (e.g. text or a bitmap)
+is to be displayed in the widget.
+Must be one of the values \fBn\fR, \fBne\fR, \fBe\fR, \fBse\fR,
+\fBs\fR, \fBsw\fR, \fBw\fR, \fBnw\fR, or \fBcenter\fR.
+For example, \fBnw\fR means display the information such that its
+top-left corner is at the top-left corner of the widget.
+.OP :background background Background background
+Specifies the normal background color to use when displaying the
+widget. This option can also be specified as \fB:bg\fR.
+.OP :bitmap bitmap Bitmap bitmap
+Specifies a bitmap to display in the widget, in any of the forms
+acceptable to \fBTk_GetBitmap\fR.
+The exact way in which the bitmap is displayed may be affected by
+other options such as \fBanchor\fR or \fBjustify\fR.
+Typically, if this option is specified then it overrides other
+options that specify a textual value to display in the widget;
+the \fBbitmap\fR option may be reset to an empty string to re-enable
+a text display.
+In widgets that support both \fBbitmap\fR and \fBimage\fR options,
+\fBimage\fR will usually override \fBbitmap\fR.
+.OP :borderwidth borderWidth BorderWidth :border-width
+Specifies a non-negative value indicating the width
+of the 3-D border to draw around the outside of the widget (if such a
+border is being drawn;  the \fBrelief\fR option typically determines
+this).  The value may also be used when drawing 3-D effects in the
+interior of the widget.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+This option can also be specified as \fB:bd\fR.
+.OP :cursor cursor Cursor cursor
+Specifies the mouse cursor to be used for the widget.
+The value may have any of the forms acceptable to \fBTk_GetCursor\fR.
+.OP :disabledforeground disabledForeground DisabledForeground disabled-foreground
+Specifies foreground color to use when drawing a disabled element.
+If the option is specified as an empty string (which is typically the
+case on monochrome displays), disabled elements are drawn with the
+normal foreground color but they are dimmed by drawing them
+with a stippled fill pattern.
+.OP :exportselection exportSelection ExportSelection export-selection
+Specifies whether or not a selection in the widget should also be the
+X selection.  The value must be a boolean value. If the selection is
+exported, then selecting in the widget deselects the current X
+selection, selecting outside the widget deselects any widget
+selection, and the widget will respond to selection retrieval requests
+when it has a selection.  The default is usually for widgets to export
+selections.
+.OP :font font Font font
+Specifies the font to use when drawing text inside the widget.
+.OP :foreground foreground Foreground foreground
+Specifies the normal foreground color to use when displaying the widget.
+This option can also be specified as \fB:fg\fR.
+.OP :geometry geometry Geometry geometry
+Specifies the desired geometry for the widget's window, in the
+form \fIwidth\fBx\fIheight\fR, where \fIwidth\fR is the desired
+width of the window and \fIheight\fR is the desired height.  The
+units for \fIwidth\fR and \fIheight\fR depend on the particular
+widget.  For widgets displaying text the units are usually the
+size of the characters in the font being displayed;  for other
+widgets the units are usually pixels.
+.OP :highlightbackground highlightBackground HighlightBackground highlight-background
+Specifies the color to display in the traversal highlight region when
+the widget does not have the input focus.
+.OP :highlightcolor highlightColor HighlightColor highlight-color
+Specifies the color to use for the traversal highlight rectangle that is
+drawn around the widget when it has the input focus.
+.OP :highlightthickness highlightThickness HighlightThickness highlight-thickness
+Specifies a non-negative value indicating the width of the highlight
+rectangle to draw around the outside of the widget when it has the
+input focus.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+If the value is zero, no focus highlight is drawn around the widget.
+.OP :image image Image image
+Specifies an image to display in the widget, which must have been
+created with the \fBimage create\fR command.
+Typically, if the \fBimage\fR option is specified then it overrides other
+options that specify a bitmap or textual value to display in the widget;
+the \fBimage\fR option may be reset to an empty string to re-enable
+a bitmap or text display.
+.OP :insertbackground insertBackground Foreground insert-background
+Specifies the color to use as background in the area covered by the
+insertion cursor.  This color will normally override either the normal
+background for the widget (or the selection background if the insertion
+cursor happens to fall in the selection).
+.OP :insertborderwidth insertBorderWidth BorderWidth insert-border-width
+Specifies a non-negative value indicating the width
+of the 3-D border to draw around the insertion cursor.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+.OP :insertofftime insertOffTime OffTime insert-off-time
+Specifies a non-negative integer value indicating the number of
+milliseconds the insertion cursor should remain ``off'' in each blink cycle.
+If this option is zero then the cursor doesn't blink:  it is on
+all the time.
+.OP :insertontime insertOnTime OnTime insert-on-time
+Specifies a non-negative integer value indicating the number of
+milliseconds the insertion cursor should remain ``on'' in each blink cycle.
+.OP :insertwidth insertWidth InsertWidth insert-width
+Specifies a  value indicating the total width of the insertion cursor.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+If a border has been specified for the insertion
+cursor (using the \fBinsertBorderWidth\fR option), the border
+will be drawn inside the width specified by the \fBinsertWidth\fR
+option.
+.OP :jump jump Jump jump
+For widgets with a slider that can be dragged to adjust a value,
+such as scrollbars, this option determines when
+notifications are made about changes in the value.
+The option's value must be a boolean of the form accepted by
+\fBTcl_GetBoolean\fR.
+If the value is false, updates are made continuously as the
+slider is dragged.
+If the value is true, updates are delayed until the mouse button
+is released to end the drag;  at that point a single notification
+is made (the value ``jumps'' rather than changing smoothly).
+.OP :justify justify Justify justify
+When there are multiple lines of text displayed in a widget, this
+option determines how the lines line up with each other.
+Must be one of \fBleft\fR, \fBcenter\fR, or \fBright\fR.
+\fBLeft\fR means that the lines' left edges all line up, \fBcenter\fR
+means that the lines' centers are aligned, and \fBright\fR means
+that the lines' right edges line up.
+.OP :orient orient Orient orientation
+For widgets that can lay themselves out with either a horizontal
+or vertical orientation, such as scrollbars, this option specifies
+which orientation should be used.  Must be either \fBhorizontal\fR
+or \fBvertical\fR or an abbreviation of one of these.
+.OP :padx padX Pad padx
+Specifies a non-negative value indicating how much extra space
+to request for the widget in the X-direction.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+When computing how large a window it needs, the widget will
+add this amount to the width it would normally need (as determined
+by the width of the things displayed in the widget);  if the geometry
+manager can satisfy this request, the widget will end up with extra
+internal space to the left and/or right of what it displays inside.
+Most widgets only use this option for padding text:  if they are
+displaying a bitmap or image, then they usually ignore padding
+options.
+.OP :pady padY Pad pady
+Specifies a non-negative value indicating how much extra space
+to request for the widget in the Y-direction.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+When computing how large a window it needs, the widget will add
+this amount to the height it would normally need (as determined by
+the height of the things displayed in the widget);  if the geometry
+manager can satisfy this request, the widget will end up with extra
+internal space above and/or below what it displays inside.
+Most widgets only use this option for padding text:  if they are
+displaying a bitmap or image, then they usually ignore padding
+options.
+.OP :relief relief Relief relief
+Specifies the 3-D effect desired for the widget.  Acceptable
+values are \fBraised\fR, \fBsunken\fR, \fBflat\fR, \fBridge\fR,
+and \fBgroove\fR.
+The value
+indicates how the interior of the widget should appear relative
+to its exterior;  for example, \fBraised\fR means the interior of
+the widget should appear to protrude from the screen, relative to
+the exterior of the widget.
+.OP :repeatdelay repeatDelay RepeatDelay repeat-delay
+Specifies the number of milliseconds a button or key must be held
+down before it begins to auto-repeat.  Used, for example, on the
+up- and down-arrows in scrollbars.
+.OP :repeatinterval repeatInterval RepeatInterval repeat-interval
+Used in conjunction with \fBrepeatDelay\fR:  once auto-repeat
+begins, this option determines the number of milliseconds between
+auto-repeats.
+.OP :selectbackground selectBackground Foreground select-background
+Specifies the background color to use when displaying selected
+items.
+.OP :selectborderwidth selectBorderWidth BorderWidth select-border-width
+Specifies a non-negative value indicating the width
+of the 3-D border to draw around selected items.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+.OP :selectforeground selectForeground Background select-foreground
+Specifies the foreground color to use when displaying selected
+items.
+.OP :setgrid setGrid SetGrid set-grid
+Specifies a boolean value that determines whether this widget controls the
+resizing grid for its top-level window.
+This option is typically used in text widgets, where the information
+in the widget has a natural size (the size of a character) and it makes
+sense for the window's dimensions to be integral numbers of these units.
+These natural window sizes form a grid.
+If the \fBsetGrid\fR option is set to true then the widget will
+communicate with the window manager so that when the user interactively
+resizes the top-level window that contains the widget, the dimensions of
+the window will be displayed to the user in grid units and the window
+size will be constrained to integral numbers of grid units.
+See the section GRIDDED GEOMETRY MANAGEMENT in the \fBwm\fR manual
+entry for more details.
+.OP :takefocus takeFocus TakeFocus take-focus
+Determines whether the window accepts the focus during keyboard
+traversal (e.g., Tab and Shift-Tab).
+Before setting the focus to a window, the traversal scripts
+consult the value of the \fBtakeFocus\fR option.
+A value of \fB#f\fR means that the window should be skipped entirely
+during keyboard traversal. 
+\fB#t\fR means that the window should receive the input
+focus as long as it is viewable (it and all of its ancestors are mapped).
+An empty string for the option means that the traversal scripts make
+the decision about whether or not to focus on the window:  the current
+algorithm is to skip the window if it is
+disabled, if it has no key bindings, or if it is not viewable.
+Value can also be a one parameter procedure. This procedure is called
+by the traversal algorithm with the window as parameter. The 
+value retuned by he procedure must be \fB#f\fR, \fB#t\fR, or an empty string:  a 
+\fB#f\fR or \fB#t\fR value specifies whether the window will receive
+the input focus, and an empty string results in the default decision
+described above. See the \fBfocus-next\fR page for the \fBfocus-on\fR
+and \fBfocus-off\fR procedures.
+\fBNote\fR: this interpretation of the option is defined entirely by
+the STk scripts that implement traversal:  the widget implementations
+ignore the option entirely, so you can change its meaning if you
+redefine the keyboard traversal scripts.
+.OP :text text Text text
+Specifies a string to be displayed inside the widget.  The way in which
+the string is displayed depends on the particular widget and may be
+determined by other options, such as \fBanchor\fR or \fBjustify\fR.
+.OP :textvariable textVariable Variable text-variable
+Specifies the name of a variable.  The value of the variable is a text
+string to be displayed inside the widget;  if the variable value changes
+then the widget will automatically update itself to reflect the new value.
+The way in which the string is displayed in the widget depends on the
+particular widget and may be determined by other options, such as
+\fBanchor\fR or \fBjustify\fR.
+.OP :troughcolor troughColor Background trough-color
+Specifies the color to use for the rectangular trough areas
+in widgets such as scrollbars and scales.
+.OP :underline underline Underline underline
+Specifies the integer index of a character to underline in the widget.
+This option is used by the default bindings to implement keyboard
+traversal for menu buttons and menu entries.
+0 corresponds to the first character of the text displayed in the
+widget, 1 to the next character, and so on.
+.OP :wraplength wrapLength WrapLength wrap-length
+For widgets that can perform word-wrapping, this option specifies
+the maximum line length.
+Lines that would exceed this length are wrapped onto the next line,
+so that no line is longer than the specified length.
+The value may be specified in any of the standard forms for
+screen distances.
+If this value is less than or equal to 0 then no wrapping is done:  lines
+will break only at newline characters in the text.
+.OP :xscrollcommand xScrollCommand ScrollCommand x-scroll-command
+Specifies the procedure used to communicate with horizontal scrollbars.
+When the view in the widget's window changes (or
+whenever anything else occurs that could change the display in a
+scrollbar, such as a change in the total size of the widget's
+contents), the widget call this procedure with two numbers as parameters.
+Each of the numbers is a fraction between 0 and 1, which indicates
+a position in the document.  0 indicates the beginning of the document,
+1 indicates the end, .333 indicates a position one third the way through
+the document, and so on.
+The first fraction indicates the first information in the document
+that is visible in the window, and the second fraction indicates
+the information just after the last portion that is visible.
+Typically the
+\fBxScrollCommand\fR option consists of a procedure of the form
+.CS
+(lambda l (apply .x.scrollbar 'set l))
+.CE
+this will cause the scrollbar to be updated whenever the view in the
+window changes.  If this option is not specified, then no command will
+be executed.
+.OP :yscrollcommand yScrollCommand ScrollCommand y-scroll-command
+Specifies the prefix for a command used to communicate with vertical
+scrollbars.  This option is treated in the same way as the
+\fBxScrollCommand\fR option, except that it is used for vertical
+scrollbars and is provided by widgets that support vertical scrolling.
+See the description of \fBxScrollCommand\fR for details
+on how this option is used.
+
diff --git a/Doc/Manual/pack.n b/Doc/Manual/pack.n
new file mode 100644
index 0000000..376edc3
--- /dev/null
+++ b/Doc/Manual/pack.n
@@ -0,0 +1,264 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) pack.n 1.16 95/06/22 14:07:50
+'\" 
+.so STk-man.macros
+.TH pack n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+pack \- Geometry manager that packs around edges of cavity
+.SH SYNOPSIS
+(\fBpack \fIoption arg \fR?\fIarg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBpack\fR procedure is used to communicate with the packer,
+a geometry manager that arranges the children of a parent by
+packing them in order around the edges of the parent.
+The \fBpack\fR procedure can have any of several forms, depending
+on the \fIoption\fR argument:
+.TP
+(\fBpack \fIslave \fR?\fIslave ...\fR? ?\fIoptions\fR?)
+If the first argument to \fBpack\fR is a window name (any value
+starting with ``.''), then the procedure is processed in the same
+way as \fBpack configure\fR.
+.TP
+(\fBpack 'configure \fIslave \fR?\fIslave ...\fR? ?\fIoptions\fR?)
+The arguments consist of the names of one or more slave windows
+followed by pairs of arguments that specify how
+to manage the slaves.
+See ``THE PACKER ALGORITHM'' below for details on how the options
+are used by the packer.
+The following options are supported:
+.RS
+.TP
+\fB:after \fIother\fR
+\fIOther\fR must the name of another window.
+Use its master as the master for the slaves, and insert
+the slaves just after \fIother\fR in the packing order.
+.TP
+\fB:anchor \fIanchor\fR
+\fIAnchor\fR must be a valid anchor position such as \fBn\fR
+or \fBsw\fR; it specifies where to position each slave in its
+parcel.
+Defaults to \fBcenter\fR.
+.TP
+\fB:before \fIother\fR
+\fIOther\fR must the name of another window.
+Use its master as the master for the slaves, and insert
+the slaves just before \fIother\fR in the packing order.
+.TP
+\fB:expand \fIboolean\fR
+Specifies whether the slaves should be expanded to consume
+extra space in their master.
+\fIBoolean\fR may have any proper boolean value. Defaults to #f.
+.TP
+\fB:fill \fIstyle\fR
+If a slave's parcel is larger than its requested dimensions, this
+option may be used to stretch the slave.
+\fIStyle\fR must have one of the following values:
+.RS
+.TP
+\fBnone\fR
+Give the slave its requested dimensions plus any internal padding
+requested with \fB:ipadx\fR or \fB:ipady\fR.  This is the default.
+.TP
+\fBx\fR
+Stretch the slave horizontally to fill the entire width of its
+parcel (except leave external padding as specified by \fB:padx\fR).
+.TP
+\fBy\fR
+Stretch the slave vertically to fill the entire height of its
+parcel (except leave external padding as specified by \fB:pady\fR).
+.TP
+\fBboth\fR
+Stretch the slave both horizontally and vertically.
+.RE
+.TP
+\fB:in \fIother\fR
+Insert the slave(s) at the end of the packing order for the master
+window given by \fIother\fR.
+.TP
+\fB:ipadx \fIamount\fR
+\fIAmount\fR specifies how much horizontal internal padding to
+leave on each side of the slave(s).
+\fIAmount\fR must be a valid screen distance, such as \fB2\fR or \fB.5c\fR.
+It defaults to 0.
+.TP
+\fB:ipady \fIamount\fR
+\fIAmount\fR specifies how much vertical internal padding to
+leave on each side of the slave(s).
+\fIAmount\fR  defaults to 0.
+.TP
+\fB:padx \fIamount\fR
+\fIAmount\fR specifies how much horizontal external padding to
+leave on each side of the slave(s).
+\fIAmount\fR defaults to 0.
+.TP
+\fB:pady \fIamount\fR
+\fIAmount\fR specifies how much vertical external padding to
+leave on each side of the slave(s).
+\fIAmount\fR defaults to 0.
+.TP
+\fB:side \fIside\fR
+Specifies which side of the master the slave(s) will be packed against.
+Must be \fBleft\fR, \fBright\fR, \fBtop\fR, or \fBbottom\fR.
+Defaults to \fBtop\fR.
+.LP
+If no \fB:in\fR, \fB:after\fR or \fB:before\fR option is specified
+then each of the slaves will be inserted at the end of the packing list
+for its parent unless it is already managed by the packer (in which
+case it will be left where it is).
+If one of these options is specified then all the slaves will be
+inserted at the specified point.
+If any of the slaves are already managed by the geometry manager
+then any unspecified options for them retain their previous values rather
+than receiving default values.
+.RE
+.TP
+(\fBpack 'forget \fIslave \fR?\fIslave ...\fR?)
+Removes each of the \fIslave\fRs from the packing order for its
+master and unmaps their windows.
+The slaves will no longer be managed by the packer.
+.TP
+(\fBpack 'info \fIslave\fR)
+Returns a list whose elements are the current configuration state of
+the slave given by \fIslave\fR in the same option-value form that
+might be specified to \fBpack configure\fR.
+The first two elements of the list are ``\fB:in \fImaster\fR'' where
+\fImaster\fR is the slave's master.
+.TP
+(\fBpack 'propagate \fImaster\fR ?\fIboolean\fR?)
+If \fIboolean\fR has a true boolean value such as \fB1\fR or \fBon\fR
+then propagation is enabled for \fImaster\fR, which must be a window
+name (see ``GEOMETRY PROPAGATION'' below).
+If \fIboolean\fR has a false boolean value then propagation is
+disabled for \fImaster\fR.
+In either of these cases an empty string is returned.
+If \fIboolean\fR is omitted then the procedure returns \fB#f\fR or
+\fB#t\fR to indicate whether propagation is currently enabled
+for \fImaster\fR.
+Propagation is enabled by default.
+.TP
+(\fBpack 'slaves \fImaster\fR)
+Returns a list of all of the slaves in the packing order for \fImaster\fR.
+The order of the slaves in the list is the same as their order in
+the packing order.
+If \fImaster\fR has no slaves then an empty string is returned.
+
+.SH "THE PACKER ALGORITHM"
+.PP
+For each master the packer maintains an ordered list of slaves
+called the \fIpacking list\fR.
+The \fB:in\fR, \fB:after\fR, and \fB:before\fR configuration
+options are used to specify the master for each slave and the slave's
+position in the packing list.
+If none of these options is given for a slave then the slave
+is added to the end of the packing list for its parent.
+.PP
+The packer arranges the slaves for a master by scanning the
+packing list in order.
+At the time it processes each slave, a rectangular area within
+the master is still unallocated.
+This area is called the \fIcavity\fR;  for the first slave it
+is the entire area of the master.
+.PP
+For each slave the packer carries out the following steps:
+.IP [1]
+The packer allocates a rectangular \fIparcel\fR for the slave
+along the side of the cavity given by the slave's \fB:side\fR option.
+If the side is top or bottom then the width of the parcel is
+the width of the cavity and its height is the requested height
+of the slave plus the \fB:ipady\fR and \fB:pady\fR options.
+For the left or right side the height of the parcel is
+the height of the cavity and the width is the requested width
+of the slave plus the \fB:ipadx\fR and \fB:padx\fR options.
+The parcel may be enlarged further because of the \fB:expand\fR
+option (see ``EXPANSION'' below)
+.IP [2]
+The packer chooses the dimensions of the slave.
+The width will normally be the slave's requested width plus
+twice its \fB:ipadx\fR option and the height will normally be
+the slave's requested height plus twice its \fB:ipady\fR
+option.
+However, if the \fB:fill\fR option is \fBx\fR or \fBboth\fR
+then the width of the slave is expanded to fill the width of the parcel,
+minus twice the \fB:padx\fR option.
+If the \fB:fill\fR option is \fBy\fR or \fBboth\fR
+then the height of the slave is expanded to fill the width of the parcel,
+minus twice the \fB:pady\fR option.
+.IP [3]
+The packer positions the slave over its parcel.
+If the slave is smaller than the parcel then the \fB:anchor\fR
+option determines where in the parcel the slave will be placed.
+If \fB:padx\fR or \fB:pady\fR is non-zero, then the given
+amount of external padding will always be left between the
+slave and the edges of the parcel.
+.PP
+Once a given slave has been packed, the area of its parcel
+is subtracted from the cavity, leaving a smaller rectangular
+cavity for the next slave.
+If a slave doesn't use all of its parcel, the unused space
+in the parcel will not be used by subsequent slaves.
+If the cavity should become too small to meet the needs of
+a slave then the slave will be given whatever space is
+left in the cavity.
+If the cavity shrinks to zero size, then all remaining slaves
+on the packing list will be unmapped from the screen until
+the master window becomes large enough to hold them again.
+
+.SH "EXPANSION"
+.PP
+If a master window is so large that there will be extra space
+left over after all of its slaves have been packed, then the
+extra space is distributed uniformly among all of the slaves
+for which the \fB:expand\fR option is set.
+Extra horizontal space is distributed among the expandable
+slaves whose \fB:side\fR is \fBleft\fR or \fBright\fR,
+and extra vertical space is distributed among the expandable
+slaves whose \fB:side\fR is \fBtop\fR or \fBbottom\fR.
+
+.SH "GEOMETRY PROPAGATION"
+.PP
+The packer normally computes how large a master must be to
+just exactly meet the needs of its slaves, and it sets the
+requested width and height of the master to these dimensions.
+This causes geometry information to propagate up through a
+window hierarchy to a top-level window so that the entire
+sub-tree sizes itself to fit the needs of the leaf windows.
+However, the \fBpack propagate\fR procedure may be used to
+turn off propagation for one or more masters.
+If propagation is disabled then the packer will not set
+the requested width and height of the packer.
+This may be useful if, for example, you wish for a master
+window to have a fixed size that you specify.
+
+.SH "RESTRICTIONS ON MASTER WINDOWS"
+.PP
+The master for each slave must either be the slave's parent
+(the default) or a descendant of the slave's parent.
+This restriction is necessary to guarantee that the
+slave can be placed over any part of its master that is
+visible without danger of the slave being clipped by its parent.
+
+.SH "PACKING ORDER"
+.PP
+If the master for a slave is not its parent then you must make sure
+that the slave is higher in the stacking order than the master.
+Otherwise the master will obscure the slave and it will appear as
+if the slave hasn't been packed correctly.
+The easiest way to make sure the slave is higher than the master is
+to create the master window first:  the most recently created window
+will be highest in the stacking order.
+Or, you can use the \fBraise\fR and \fBlower\fR procedures to change
+the stacking order of either the master or the slave.
+
+.SH SEE ALSO
+grid, place
diff --git a/Doc/Manual/palette.n b/Doc/Manual/palette.n
new file mode 100644
index 0000000..53b3334
--- /dev/null
+++ b/Doc/Manual/palette.n
@@ -0,0 +1,72 @@
+'\" Color=Green
+'\" 
+'\" Copyright (c) 1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) palette.n 1.3 95/08/12 17:35:36
+'\" 
+.so STk-man.macros
+.TH Tk:set-palette! n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+Tk:set-palette!, Tk:bisque \- Modify the Tk color palette
+.SH SYNOPSIS
+(\fBTk:set-palette! \fIbackground\fR)
+.sp
+(\fBTk:set-palette! \fIname value \fR?\fIname value ...\fR?)
+.sp
+(\fBTk:bisque\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBTk:set-palette!\fR procedure changes the color scheme for Tk.
+It does this by modifying the colors of existing widgets and by changing
+the option database so that future widgets will use the new color scheme.
+If \fBTk:set-palette!\fR is invoked with a single argument, the
+argument is the name of a color to use as the normal background
+color;  \fBTk:set-palette!\fR will compute a complete color palette
+from this background color.
+Alternatively, the arguments to \fBTk:set-palette!\fR may consist of any number
+of \fIname\fR\-\fIvalue\fR pairs, where the first argument of the pair
+is the name of an option in the Tk option database and the second
+argument is the new value to use for that option.  The following
+database names are currently supported:
+.DS L
+.ta 4c 8c
+\fBactiveBackground	foreground	selectColor
+activeForeground	highlightBackground	selectBackground
+background	highlightColor	selectForeground
+disabledForeground	insertBackground	troughColor\fR
+.DE
+\fBTk:set-palette!\fR tries to compute reasonable defaults for any
+options that you don't specify.  You can specify options other
+than the above ones and Tk will change those options on widgets as
+well.  This feature may be useful if you are using custom widgets with
+additional color options.
+.PP
+Once it has computed the new value to use for each of the color options,
+\fBTk:set-palette!\fR scans the widget hierarchy to modify the options
+of all existing widgets.  For each widget, it checks to see if any
+of the above options is defined for the widget.  If so, and if the
+option's current value is the default, then the value is changed;  if
+the option has a value other than the default, \fBTk:set-palette!\fR
+will not change it.  The default for an option is the one provided by
+the widget \fB(list-ref (w 'configure option) 3)\fR unless
+\fBTk:set-palette!\fR has been run previously, in which case it is the
+value specified in the previous invocation of \fBTk:set-palette!\fR.
+.PP
+After modifying all the widgets in the application, \fBTk:set-palette!\fR
+adds options to the option database to change the defaults for
+widgets created in the future.  The new options are added at
+priority \fBwidgetDefault\fR, so they will be overridden by options
+from the .Xdefaults file or options specified on the command-line
+that creates a widget.
+.PP
+The procedure \fBTk:bisque\fR is provided for backward compatibility:
+it restores the application's colors to the light brown (``bisque'')
+color scheme used in Tk 3.6 and earlier versions.
+
diff --git a/Doc/Manual/photo.n b/Doc/Manual/photo.n
new file mode 100644
index 0000000..e7fc7e5
--- /dev/null
+++ b/Doc/Manual/photo.n
@@ -0,0 +1,346 @@
+'\"
+'\" Copyright (c) 1994 The Australian National University
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" Author: Paul Mackerras (paulus@cs.anu.edu.au),
+'\"	    Department of Computer Science,
+'\"	    Australian National University.
+'\"
+'\" "@(#) photo.n 1.9 95/08/12 17:35:29"
+'\" 
+.so STk-man.macros
+.TH photo n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+photo \- Full-color images
+.SH SYNOPSIS
+(\fBimage 'create 'photo \fR?\fIname\fR? ?\fIoptions\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+A photo is an image whose pixels can display any color or be
+transparent.  A photo image is stored internally in full color (24
+bits per pixel), and is displayed using dithering if necessary.  Image
+data for a photo image can be obtained from a file or a string, or it
+can be supplied from
+C code through a procedural interface.  At present, only GIF and PPM/PGM
+formats are supported, but an interface exists to allow additional
+image file formats to be added easily.  A photo image is transparent
+in regions where no image data has been supplied.
+
+.SH "CREATING PHOTOS"
+.PP
+Like all images, photos are created using the \fBimage create\fR
+command.
+Photos support the following \fIoptions\fR:
+.TP
+\fB:data \fIstring\fR
+Specifies the contents of the image as a string.  The format of the
+string must be one of those for which there is an image file format
+handler that will accept string data.  If both the \fB:data\fR
+and \fB:file\fR options are specified, the \fB:file\fR option takes
+precedence.
+.TP
+\fB:format \fIformat-name\fR
+Specifies the name of the file format for the data specified with the
+\fB:data\fR or \fB:file\fR option.
+.TP
+\fB:file \fIname\fR
+\fIname\fR gives the name of a file that is to be read to supply data
+for the photo image.  The file format must be one of those for which
+there is an image file format handler that can read data from a file.
+.TP
+\fB:gamma \fIvalue\fR
+Specifies that the colors allocated for displaying this image in a
+window should be corrected for a non-linear display with the specified
+gamma exponent value.  (The intensity produced by most
+CRT displays is a power function of the input value, to a good
+approximation; gamma is the exponent and is typically around 2).
+The value specified must be greater than zero.  The default
+value is one (no correction).  In general, values greater than one
+will make the image lighter, and values less than one will make it
+darker.
+.TP
+\fB:height \fInumber\fR
+Specifies the height of the image, in pixels.  This option is useful
+primarily in situations where the user wishes to build up the contents
+of the image piece by piece.  A value of zero (the default) allows the
+image to expand or shrink vertically to fit the data stored in it.
+.TP
+\fB:palette \fIpalette-spec\fR
+Specifies the resolution of the color cube to be allocated for
+displaying this image, and thus the number of colors used from the
+colormaps of the windows where it is displayed.  The
+\fIpalette-spec\fR string may be either a single decimal number,
+specifying the number of shades of gray to use, or three decimal
+numbers separated by slashes (/), specifying the number of shades of
+red, green and blue to use, respectively.  If the first form (a single
+number) is used, the image will be displayed in monochrome (i.e.,
+grayscale).
+.TP
+\fB:width \fInumber\fR
+Specifies the width of the image, in pixels.    This option is useful
+primarily in situations where the user wishes to build up the contents
+of the image piece by piece.  A value of zero (the default) allows the
+image to expand or shrink horizontally to fit the data stored in it.
+
+.SH "IMAGE COMMAND"
+.PP
+When a photo image is created, Tk also creates a new command
+whose name is the same as the image.
+This command may be used to invoke various operations
+on the image.
+It has the following general form:
+.CS
+(\fIimageName option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the command.
+.PP
+Those options that write data to the image generally expand the size
+of the image, if necessary, to accommodate the data written to the
+image, unless the user has specified non-zero values for the
+\fB:width\fR and/or \fB:height\fR configuration options, in which
+case the width and/or height, respectively, of the image will not be
+changed.
+.PP
+The following commands are possible for photo images:
+.TP
+(\fIimageName '\fBblank\fR)
+Blank the image; that is, set the entire image to have no data, so it
+will be displayed as transparent, and the background of whatever
+window it is displayed in will show through.
+.TP
+(\fIimageName '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the
+\fBimage create photo\fR command.
+.TP
+(\fIimageName '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options for the image.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIimageName\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the command returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the command
+modifies the given option(s) to have the given value(s);  in
+this case the command returns an empty string.
+\fIOption\fR may have any of the values accepted by the
+\fBimage create photo\fR command.
+.TP
+(\fIimageName '\fBcopy\fR \fIsourceImage\fR ?\fIoption value(s) ...\fR?)
+Copies a region from the image called \fIsourceImage\fR (which must
+be a photo image) to the image called \fIimageName\fR, possibly with
+pixel zooming and/or subsampling.  If no options are specified, this
+command copies the whole of \fIsourceImage\fR into \fIimageName\fR,
+starting at coordinates (0,0) in \fIimageName\fR.  The following
+options may be specified:
+.RS
+.TP
+\fB:from \fIx1 y1 x2 y2\fR
+Specifies a rectangular sub-region of the source image to be copied.
+(\fIx1,y1\fR) and (\fIx2,y2\fR) specify diagonally opposite corners of
+the rectangle.  If \fIx2\fR and \fIy2\fR are not specified, the
+default value is the bottom-right corner of the source image.  The
+pixels copied will include the left and top edges of the specified
+rectangle but not the bottom or right edges.  If the \fB:from\fR
+option is not given, the default is the whole source image.
+.TP
+\fB:to \fIx1 y1 x2 y2\fR
+Specifies a rectangular sub-region of the destination image to be
+affected.  (\fIx1,y1\fR) and (\fIx2,y2\fR) specify diagonally opposite
+corners of the rectangle.  If \fIx2\fR and \fIy2\fR are not specified,
+the default value is (\fIx1,y1\fR) plus the size of the source
+region (after subsampling and zooming, if specified).  If \fIx2\fR and
+\fIy2\fR are specified, the source region will be replicated if
+necessary to fill the destination region in a tiled fashion.
+.TP
+\fB:shrink\fR
+Specifies that the size of the destination image should be reduced, if
+necessary, so that the region being copied into is at the bottom-right
+corner of the image.  This option will not affect the width or height
+of the image if the user has specified a non-zero value for the
+\fB:width\fR or \fB:height\fR configuration option, respectively.
+.TP
+\fB:zoom \fIx y\fR
+Specifies that the source region should be magnified by a factor of
+\fIx\fR in the X direction and \fIy\fR in the Y direction.  If \fIy\fR
+is not given, the default value is the same as \fIx\fR.  With this
+option, each pixel in the source image will be expanded into a block
+of \fIx\fR x \fIy\fR pixels in the destination image, all the same
+color.  \fIx\fR and \fIy\fR must be greater than 0.
+.TP
+\fB:subsample \fIx y\fR
+Specifies that the source image should be reduced in size by using
+only every \fIx\fRth pixel in the X direction and \fIy\fRth pixel in
+the Y direction.  Negative values will cause the image to be flipped
+about the Y or X axes, respectively.  If \fIy\fR is not given, the
+default value is the same as \fIx\fR.
+.RE
+.TP
+(\fIimageName '\fBget\fR \fIx y\fR)
+Returns the color of the pixel at coordinates (\fIx\fR,\fIy\fR) in the
+image as a list of three integers between 0 and 255, representing the
+red, green and blue components respectively.
+.TP
+(\fIimageName '\fBput \fIdata\fR)
+.TP
+(option	\fIimageName '\fBput \fIdata\fR \fB:to\fI x1 y1 x2 y2\fR)
+Sets pixels in \fIimageName\fR to the colors specified in \fIdata\fR.
+\fIdata\fR is used to form a two-dimensional array of pixels that are
+then copied into the \fIimageName\fR.  \fIdata\fR is structured as a
+list of horizontal rows, from top to bottom, each of which is a list
+of colors, listed from left to right.  Each color may be specified by name
+(e.g., blue) or in hexadecimal form (e.g., #2376af).  The
+\fB:to\fR option can be used to specify the area of \fIimageName\fR to be
+affected.  If only \fIx1\fR and \fIy1\fR are given, the area affected
+has its top-left corner at (\fIx1,y1\fR) and is the same size as the
+array given in \fIdata\fR.  If all four coordinates are given, they
+specify diagonally opposite corners of the affected rectangle, and the
+array given in \fIdata\fR will be replicated as necessary in the X and
+Y directions to fill the rectangle.
+.TP
+(\fIimageName '\fBread\fR \fIfilename\fR ?\fIoption value(s) ...\fR?)
+Reads image data from the file named \fIfilename\fR into the image.
+This command first searches the list of
+image file format handlers for a handler that can interpret the data
+in \fIfilename\fR, and then reads the image in \fIfilename\fR into
+\fIimageName\fR (the destination image).  The following options may be
+specified:
+.RS
+.TP
+\fB:format \fIformat-name\fR
+Specifies the format of the image data in \fIfilename\fR.
+Specifically, only image file format handlers whose names begin with
+\fIformat-name\fR will be used while searching for an image data
+format handler to read the data.
+.TP
+\fB:from \fIx1 y1 x2 y2\fR
+Specifies a rectangular sub-region of the image file data to be copied
+to the destination image.  If only \fIx1\fR and \fIy1\fR are
+specified, the region extends from (\fIx1,y1\fR) to the bottom-right
+corner of the image in the image file.  If all four coordinates are
+specified, they specify diagonally opposite corners or the region.
+The default, if this option is not specified, is the whole of the
+image in the image file.
+.TP
+\fB:shrink\fR
+If this option, the size of \fIimageName\fR will be reduced, if
+necessary, so that the region into which the image file data are read
+is at the bottom-right corner of the \fIimageName\fR.  This option
+will not affect the width or height of the image if the user has
+specified a non-zero value for the \fB:width\fR or \fB:height\fR
+configuration option, respectively.
+.TP
+\fB:to \fIx y\fR
+Specifies the coordinates of the top-left corner of the region of
+\fIimageName\fR into which data from \fIfilename\fR are to be read.
+The default is (0,0).
+.RE
+.TP
+(\fIimageName '\fBredither\fR)
+The dithering algorithm used in displaying photo images propagates
+quantization errors from one pixel to its neighbors.
+If the image data for \fIimageName\fR is supplied in pieces, the
+dithered image may not be exactly correct.  Normally the difference is
+not noticeable, but if it is a problem, this command can be used to
+recalculate the dithered image in each window where the image is
+displayed.
+.TP
+(\fIimageName '\fBwrite \fIfilename\fR ?\fIoption value(s) ...\fR?)
+Writes image data from \fIimageName\fR to a file named \fIfilename\fR.
+The following options may be specified:
+.RS
+.TP
+\fB:format\fI format-name\fR
+Specifies the name of the image file format handler to be used to
+write the data to the file.  Specifically, this subcommand searches
+for the first handler whose name matches a initial substring of
+\fIformat-name\fR and which has the capability to write an image
+file.  If this option is not given, this subcommand uses the first
+handler that has the capability to write an image file.
+.TP
+\fB:from \fIx1 y1 x2 y2\fR
+Specifies a rectangular region of \fIimageName\fR to be written to the
+image file.  If only \fIx1\fR and \fIy1\fR are specified, the region
+extends from \fI(x1,y1)\fR to the bottom-right corner of
+\fIimageName\fR.  If all four coordinates are given, they specify
+diagonally opposite corners of the rectangular region.  The default,
+if this option is not given, is the whole image.
+.RE
+.SH "IMAGE FORMATS"
+.PP
+The photo image code is structured to allow handlers for additional
+image file formats to be added easily.  The photo image code maintains
+a list of these handlers.  Handlers are added to the list by
+registering them with a call to \fBTk_CreatePhotoImageFormat\fR.  The
+standard Tk distribution comes with handlers for PPM/PGM and GIF formats,
+which are automatically registered on initialization.
+.PP
+When reading an image file or processing
+string data specified with the \fB:data\fR configuration option, the
+photo image code invokes each handler in turn until one is
+found that claims to be able to read the data in the file or string.
+Usually this will find the correct handler, but if it doesn't, the
+user may give a format name with the \fB:format\fR option to specify
+which handler to use.  In fact the photo image code will try those
+handlers whose names begin with the string specified for the
+\fB:format\fR option (the comparison is case-insensitive).  For
+example, if the user specifies \fB:format gif\fR, then a handler
+named GIF87 or GIF89 may be invoked, but a handler
+named JPEG may not (assuming that such handlers had been
+registered).
+.PP
+When writing image data to a file, the processing of the
+\fB:format\fR option is slightly different: the string value given
+for the \fB:format\fR option must begin with the complete name of the
+requested handler, and may contain additional information following
+that, which the handler can use, for example, to specify which variant
+to use of the formats supported by the handler.
+
+.SH "COLOR ALLOCATION"
+.PP
+When a photo image is displayed in a window, the photo image code
+allocates colors to use to display the image and dithers the image, if
+necessary, to display a reasonable approximation to the image using
+the colors that are available.  The colors are allocated as a color
+cube, that is, the number of colors allocated is the product of the
+number of shades of red, green and blue.
+.PP
+Normally, the number of
+colors allocated is chosen based on the depth of the window.  For
+example, in an 8-bit PseudoColor window, the photo image code will
+attempt to allocate seven shades of red, seven shades of green and
+four shades of blue, for a total of 198 colors.  In a 1-bit StaticGray
+(monochrome) window, it will allocate two colors, black and white.  In
+a 24-bit DirectColor or TrueColor window, it will allocate 256 shades
+each of red, green and blue.  Fortunately, because of the way that
+pixel values can be combined in DirectColor and TrueColor windows,
+this only requires 256 colors to be allocated.  If not all of the
+colors can be allocated, the photo image code reduces the number of
+shades of each primary color and tries again.
+.PP
+The user can exercise some control over the number of colors that a
+photo image uses with the \fB:palette\fR configuration option.  If
+this option is used, it specifies the maximum number of shades of
+each primary color to try to allocate.  It can also be used to force
+the image to be displayed in shades of gray, even on a color display,
+by giving a single number rather than three numbers separated by
+slashes.
+
+.SH CREDITS
+.PP
+The photo image type was designed and implemented by Paul Mackerras,
+based on his earlier photo widget and some suggestions from
+John Ousterhout.
+
+.SH SEE ALSO
+bitmap, image, pixmap
diff --git a/Doc/Manual/place.n b/Doc/Manual/place.n
new file mode 100644
index 0000000..0d56c53
--- /dev/null
+++ b/Doc/Manual/place.n
@@ -0,0 +1,237 @@
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) place.n 1.10 95/08/12 17:35:16
+'\" 
+.so STk-man.macros
+.TH place n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+place \- Geometry manager for fixed or rubber-sheet placement
+.SH SYNOPSIS
+(\fBplace \fIwindow option value \fR?\fIoption value ...\fR?)
+.sp
+(\fBplace 'configure \fIwindow option value \fR?\fIoption value ...\fR?)
+.sp
+(\fBplace 'forget \fIwindow\fR)
+.sp
+(\fBplace 'info \fIwindow\fR)
+.sp
+(\fBplace 'slaves \fIwindow\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+The placer is a geometry manager for Tk.
+It provides simple fixed placement of windows, where you specify
+the exact size and location of one window, called the \fIslave\fR,
+within another window, called the \fImaster\fR.
+The placer also provides rubber-sheet placement, where you specify the
+size and location of the slave in terms of the dimensions of
+the master, so that the slave changes size and location
+in response to changes in the size of the master.
+Lastly, the placer allows you to mix these styles of placement so
+that, for example, the slave has a fixed width and height but is
+centered inside the master.
+.PP
+If the first argument to the \fBplace\fR procedure is a window path
+name or \fBconfigure\fR then the procedure arranges for the placer
+to manage the geometry of a slave whose path name is \fIwindow\fR.
+The remaining arguments consist of one or more \fIoption:value\fR
+pairs that specify the way in which \fIwindow\fR's
+geometry is managed.
+If the placer is already managing \fIwindow\fR, then the
+\fIoption:value\fR pairs modify the configuration for \fIwindow\fR.
+In this form the \fBplace\fR procedure returns an empty string as result.
+The following \fIoption:value\fR pairs are supported:
+.TP
+\fB:in \fImaster\fR
+\fIMaster\fR specifes the path name of the window relative
+to which \fIwindow\fR is to be placed.
+\fIMaster\fR must either be \fIwindow\fR's parent or a descendant
+of \fIwindow\fR's parent.
+In addition, \fImaster\fR and \fIwindow\fR must both be descendants
+of the same top-level window.
+These restrictions are necessary to guarantee
+that \fIwindow\fR is visible whenever \fImaster\fR is visible.
+If this option isn't specified then the master defaults to
+\fIwindow\fR's parent.
+.TP
+\fB:x \fIlocation\fR
+\fILocation\fR specifies the x-coordinate within the master window
+of the anchor point for \fIwindow\fR.
+The location is specified in screen units (i.e. any of the forms
+accepted by \fBTk_GetPixels\fR) and need not lie within the bounds
+of the master window.
+.TP
+\fB:relx \fIlocation\fR
+\fILocation\fR specifies the x-coordinate within the master window
+of the anchor point for \fIwindow\fR.
+In this case the location is specified in a relative fashion
+as a floating-point number:  0.0 corresponds to the left edge
+of the master and 1.0 corresponds to the right edge of the master.
+\fILocation\fR need not be in the range 0.0\-1.0.
+If both \fB:x\fR and \fB:relx\fR are specified for a slave
+then their values are summed.  For example, \fB:relx 0.5 :x -2\fR
+positions the left edge of the slave 2 pixels to the left of the
+center of its master.
+.TP
+\fB:y \fIlocation\fR
+\fILocation\fR specifies the y-coordinate within the master window
+of the anchor point for \fIwindow\fR.
+The location is specified in screen units (i.e. any of the forms
+accepted by \fBTk_GetPixels\fR) and need not lie within the bounds
+of the master window.
+.TP
+\fB:rely \fIlocation\fR
+\fILocation\fR specifies the y-coordinate within the master window
+of the anchor point for \fIwindow\fR.
+In this case the value is specified in a relative fashion
+as a floating-point number:  0.0 corresponds to the top edge
+of the master and 1.0 corresponds to the bottom edge of the master.
+\fILocation\fR need not be in the range 0.0\-1.0.
+If both \fB:y\fR and \fB:rely\fR are specified for a slave
+then their values are summed.  For example, \fB:rely 0.5 :x 3\fR
+positions the top edge of the slave 3 pixels below the
+center of its master.
+.TP
+\fB:anchor \fIwhere\fR
+\fIWhere\fR specifies which point of \fIwindow\fR is to be positioned
+at the (x,y) location selected by the \fB:x\fR, \fB:y\fR,
+\fB:relx\fR, and \fB:rely\fR options.
+The anchor point is in terms of the outer area of \fIwindow\fR
+including its border, if any.
+Thus if \fIwhere\fR is \fBse\fR then the lower-right corner of
+\fIwindow\fR's border will appear at the given (x,y) location
+in the master.
+The anchor position defaults to \fBnw\fR.
+.TP
+\fB:width \fIsize\fR
+\fISize\fR specifies the width for \fIwindow\fR in screen units
+(i.e. any of the forms accepted by \fBTk_GetPixels\fR).
+The width will be the outer width of \fIwindow\fR including its
+border, if any.
+If \fIsize\fR is an empty string, or if no \fB:width\fR
+or \fB:relwidth\fR option is specified, then the width requested
+internally by the window will be used.
+.TP
+\fB:relwidth \fIsize\fR
+\fISize\fR specifies the width for \fIwindow\fR.
+In this case the width is specified as a floating-point number
+relative to the width of the master: 0.5 means \fIwindow\fR will
+be half as wide as the master, 1.0 means \fIwindow\fR will have
+the same width as the master, and so on.
+If both \fB:width\fR and \fB:relwidth\fR are specified for a slave,
+their values are summed.  For example, \fB:relwidth 1.0 :width 5\fR
+makes the slave 5 pixels wider than the master.
+.TP
+\fB:height \fIsize\fR
+\fISize\fR specifies the height for \fIwindow\fR in screen units
+(i.e. any of the forms accepted by \fBTk_GetPixels\fR).
+The height will be the outer dimension of \fIwindow\fR including its
+border, if any.
+If \fIsize\fR is an empty string, or if no \fB:height\fR or
+\fB:relheight\fR option is specified, then the height requested
+internally by the window will be used.
+.TP
+\fB:relheight \fIsize\fR
+\fISize\fR specifies the height for \fIwindow\fR.
+In this case the height is specified as a floating-point number
+relative to the height of the master: 0.5 means \fIwindow\fR will
+be half as high as the master, 1.0 means \fIwindow\fR will have
+the same height as the master, and so on.
+If both \fB:height\fR and \fB:relheight\fR are specified for a slave,
+their values are summed.  For example, \fB:relheight 1.0 :height :2\fR
+makes the slave 2 pixels shorter than the master.
+.TP
+\fB:bordermode \fImode\fR
+\fIMode\fR determines the degree to which borders within the
+master are used in determining the placement of the slave.
+The default and most common value is \fBinside\fR.
+In this case the placer considers the area of the master to
+be the innermost area of the master, inside any border:
+an option of \fB:x 0\fR corresponds to an x-coordinate just
+inside the border and an option of \fB:relwidth 1.0\fR
+means \fIwindow\fR will fill the area inside the master's
+border.
+If \fImode\fR is \fBoutside\fR then the placer considers
+the area of the master to include its border;
+this mode is typically used when placing \fIwindow\fR
+outside its master, as with the options \fB:x 0 :y 0 :anchor 'ne\fR.
+Lastly, \fImode\fR may be specified as \fBignore\fR, in which
+case borders are ignored:  the area of the master is considered
+to be its official X area, which includes any internal border but
+no external border.  A bordermode of \fBignore\fR is probably
+not very useful.
+.PP
+If the same value is specified separately with
+two different options, such as \fB:x\fR and \fB:relx\fR, then
+the most recent option is used and the older one is ignored.
+.PP
+The \fBplace slaves\fR procedure returns a list of all the slave
+windows for which \fIwindow\fR is the master.
+If there are no slaves for \fIwindow\fR then an empty string is
+returned.
+.PP
+The \fBplace forget\fR procedure causes the placer to stop managing
+the geometry of \fIwindow\fR.  As a side effect of this procedure
+\fIwindow\fR will be unmapped so that it doesn't appear on the
+screen.
+If \fIwindow\fR isn't currently managed by the placer then the
+procedure has no effect.
+\fBPlace forget\fR returns an empty string as result.
+.PP
+The \fBplace info\fR procedure returns a list giving the current
+configuration of \fIwindow\fR.
+The list consists of \fIoption\-value\fR pairs in exactly the
+same form as might be specified to the \fBplace configure\fR
+procedure.
+If the configuration of a window has been retrieved with
+\fBplace info\fR, that configuration can be restored later by
+first using \fBplace forget\fR to erase any existing information
+for the window and then invoking \fBplace configure\fR with
+the saved information.
+
+.SH "FINE POINTS"
+.PP
+It is not necessary for the master window to be the parent
+of the slave window.
+This feature is useful in at least two situations.
+First, for complex window layouts it means you can create a
+hierarchy of subwindows whose only purpose
+is to assist in the layout of the parent.
+The ``real children'' of the parent (i.e. the windows that
+are significant for the application's user interface) can be
+children of the parent yet be placed inside the windows
+of the geometry-management hierarchy.
+This means that the path names of the ``real children''
+don't reflect the geometry-management hierarchy and users
+can specify options for the real children
+without being aware of the structure of the geometry-management
+hierarchy.
+.PP
+A second reason for having a master different than the slave's
+parent is to tie two siblings together.
+For example, the placer can be used to force a window always to
+be positioned centered just below one of its
+siblings by specifying the configuration
+.CS
+\fB:in \fIsibling\fB :relx 0.5 :rely 1.0 :anchor 'n :bordermode 'outside\fR
+.CE
+Whenever the sibling is repositioned in the future, the slave
+will be repositioned as well.
+.PP
+Unlike many other geometry managers (such as the packer)
+the placer does not make any attempt to manipulate the geometry of
+the master windows or the parents of slave windows (i.e. it doesn't
+set their requested sizes).
+To control the sizes of these windows, make them windows like
+frames and canvases that provide configuration options for this purpose.
+
+.SH SEE ALSO
+grid, pack
diff --git a/Doc/Manual/popup.n b/Doc/Manual/popup.n
new file mode 100644
index 0000000..d2d096e
--- /dev/null
+++ b/Doc/Manual/popup.n
@@ -0,0 +1,36 @@
+'\" Color=Green
+'\"
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) popup.n 1.3 95/06/07 21:15:43
+'\" 
+.so STk-man.macros
+.TH Tk:popup n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+popup \- Post a popup menu
+.SH SYNOPSIS
+\fB(Tk:popup \fImenu x y \fR)
+.sp
+\fB(Tk:popup \fImenu x y \fR \fIentry\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure posts a menu at a given position on the screen and
+configures Tk so that the menu and its cascaded children can be
+traversed with the mouse or the keyboard.
+\fIMenu\fR is the name of a menu widget and \fIx\fR and \fIy\fR
+are the root coordinates at which to display the menu.
+If \fIentry\fR is omitted or an empty string, the
+menu's upper left corner is positioned at the given point.
+Otherwise \fIentry\fR gives the index of an entry in \fImenu\fR and
+the menu will be positioned so that the entry is positioned over
+the given point.
+
+.SH SEE ALSO
+menu, option-menu
diff --git a/Doc/Manual/posix.n b/Doc/Manual/posix.n
new file mode 100644
index 0000000..8fc3cfa
--- /dev/null
+++ b/Doc/Manual/posix.n
@@ -0,0 +1,135 @@
+'\" Color=Yellow
+'\"
+'\" Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+'\" 
+'\" Permission to use, copy, and/or distribute this software and its
+'\" documentation for any purpose and without fee is hereby granted, provided
+'\" that both the above copyright notice and this permission notice appear in
+'\" all copies and derived works.  Fees for distribution or use of this
+'\" software or derived works may only be charged with express written
+'\" permission of the copyright holder.  
+'\" This software is provided ``as is'' without express or implied warranty.
+'\"
+'\"           Author: Erick Gallesio [eg@unice.fr]
+'\"    Creation date:  8-Jul-1996 08:16
+'\" Last file update: 19-Jul-1996 14:47
+'\" 
+.so STk-man.macros
+.TH posix n 3.1 STk "STk procedures"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+posix  \- Access to posix functions
+.SH SYNOPSIS
+
+.IP \fIERROR\ MANAGEMENT\fR
+\fB*errno*\fR
+.SP
+(\fBposix-perror\fR \fIstr\fR)
+.IP \fIFILES\ AND\ DIRECTORIES\fR
+(\fBposix-stat\fR \fIfilename\fR)
+.SP
+(\fBposix-stat->vector\fR \fIdescr\fR)
+.SP
+(\fBposix-access \fIfilename mode\fR)
+.SP
+(\fBposix-pipe\fR)
+.IP \fITIME\ FUNCTIONS\fR
+(\fBposix-time\fR)
+.SP
+(\fBposix-asctime\fR)
+.SP
+(\fBposix-asctime\fR seconds)
+.SP
+(\fBposix-ctime\fR)
+.SP
+(\fBposix-ctime\fR \fIseconds\fR)
+.SP
+(\fBposix-localtime\fR \fI seconds\fR)
+.SP
+(\fBposix-gmtime\fR \fIseconds\fR)
+.SP
+(\fBposix-mktime\fR \fItime\fR)
+.SP
+(\fBposix-tm->vector\fR \fItime\fR)
+.SP
+(\fBvector->posix-tm\fR \fIvect\fR)
+.SP
+(\fBposix-strftime\fR \fIformat\fR)
+.SP
+(\fBposix-strftime\fR \fIformat time\fR)
+.IP \fIPROCESSES\ FUNCTIONS\fR
+.SP
+(\fBposix-fork\fR)
+.SP
+(\fBposix-wait\fR)
+.IP \fISYSTEM\ INFORMATIONS\fR
+.SP
+(\fBposix-uname\fR)
+.SP
+(\fBposix-host\fR)
+.SP
+(\fBposix-domain\fR)
+.BE
+
+.SH DESCRIPTION
+
+The functions of the posix library must be loaded before use with:
+.CS
+(require "posix")
+.CE
+The functions will not be described here completely. For full details
+about a functions and its behaviour, look at the corresponding Unix
+manual page or to the POSIX.1 document.
+
+.IP \fIERROR\ MANAGEMENT\fR
+.sp
+.TP 
+\fB*errno*\fR 
+is a variable which always contains the error number of last 
+encountered error. It is equivalent to the errno POSIX.1 variable.
+.TP
+(\fBposix-perror\fR \fIstr\fR)
+produces a message on the standard error output, describing the last
+ error encountered during a call to a system  or library function. The 
+\fIstr\fR parameter is an identifying string which will be printed before 
+the error message.
+See \fBperror(3)\fR.
+
+.IP \fIFILES\ AND\ DIRECTORIES\fR
+.sp
+.TP
+(\fBposix-stat\fR \fIfilename\fR)
+returns a C structure which contains a description of \fIfilename\fR). This 
+structure is not viewable by itself. Use, \fBposix-stat->vector\fR
+to access its content in Scheme.If \fIfilename\fR does not exists, this procedure
+returns \fI#f\fR.
+.TP
+(\fBposix-stat->vector\fR \fIdescr\fR)
+transforms a file description sructure obtained by \fBposix-stat\fR to a Scheme 
+vector. The components of the vector are given here with their index:
+.CS
+   st_dev   (0)          st_ino    (1)
+   st_mode  (2)          st_nlink  (3)
+   st_uid   (4)          st_gid    (5)
+   st_size  (6)          st_atime  (7)
+   st_mtime (8)          st_ctime  (9)
+.CE
+.DS
+See \fBfstat(2)\fR for details on the semantic of this fields.
+.DE
+.TP
+(\fBposix-access \fIfilename mode\fR)
+checks whether the interpreter is  allowed to read, write, execute  or test for 
+existence of \fIfilename\fR. \fIMode\fR must be one of the following constants:
+\fB|R_OK|\fR, \fB|W_OK|\fR, \fB|X_OK|\fR or \fB|F_OK|\fR. 
+If \fIfilename\fR does not exit, this function returns \fB#f\fR.
+See \fBaccess(2)\fR for details.
+.TP
+(\fBposix-pipe\fR) 
+returns a pair of Scheme ports associated to a
+pipe inode. If a pipe cannot be created, this function returns
+\fB#f\fR.
+
+.LP
+\fBTO BE CONTINUED\fR
diff --git a/Doc/Manual/radiobutton.n b/Doc/Manual/radiobutton.n
new file mode 100644
index 0000000..02799df
--- /dev/null
+++ b/Doc/Manual/radiobutton.n
@@ -0,0 +1,222 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) radiobutton.n 1.36 95/08/12 17:35:17
+'\" 
+.so STk-man.macros
+.TH radiobutton n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+radiobutton \- Create and manipulate radiobutton widgets
+.SH SYNOPSIS
+(\fBradiobutton\fI \fIwidget\-name \fR?\fIoptions\fR?-
+.SO
+:activebackground	:cursor	:highlightthickness	:takefocus
+:activeforeground	:disabledforeground	:image	:text
+:anchor	:font	:justify	:textvariable
+:background	:foreground	:padx	:underline
+:bitmap	:highlightbackground	:pady	:wraplength
+:borderwidth	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :command command Command command
+Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.  The button's global variable (\fB:variable\fR option) will
+be updated before the procedure is invoked.
+.OP :height height Height height
+Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+.OP :indicatoron indicatorOn IndicatorOn indicator-on
+Specifies whether or not the indicator should be drawn.  Must be a
+proper boolean value.  If false, the \fBrelief\fR option is
+ignored and the widget's relief is always sunken if the widget is
+selected and raised otherwise.
+.OP :selectcolor selectColor Background select-color
+Specifies a background color to use when the button is selected.
+If \fBindicatorOn\fR is true, the color applicies to the indicator.
+If \fBindicatorOn\fR is false, this color is used as the background
+for the entire widget, in place of \fBbackground\fR or \fBactiveBackground\fR,
+whenever the widget is selected.
+If specified as an empty string, no special color is used for
+displaying when the widget is selected.
+.OP :selectimage selectImage SelectImage select-image
+Specifies an image to display (in place of the \fBimage\fR option)
+when the radiobutton is selected.
+This option is ignored unless the \fBimage\fR option has been
+specified.
+.OP :state state State state
+Specifies one of three states for the radiobutton:  \fBnormal\fR, \fBactive\fR,
+or \fBdisabled\fR.  In normal state the radiobutton is displayed using the
+\fBforeground\fR and \fBbackground\fR options.  The active state is
+typically used when the pointer is over the radiobutton.  In active state
+the radiobutton is displayed using the \fBactiveForeground\fR and
+\fBactiveBackground\fR options.  Disabled state means that the radiobutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+.VE
+In this state the \fBdisabledForeground\fR and
+\fBbackground\fR options determine how the radiobutton is displayed.
+.OP :stringvalue stringvalue StringValue string-value
+Specifies if the value set to \fBvariable\fR by \fB:value\fR must be 
+\fIstringified\fR. Default value for this option is \fB#t\fR. 
+See \fBcheckbutton\fR for a similar example.
+.OP :value value Value  value
+Specifies value to store in the button's associated variable whenever
+this button is selected.
+.OP :variable variable Variable variable
+Specifies name of global variable to set whenever this button is
+selected.  Changes in this variable also cause the button to select
+or deselect itself.
+Defaults to the value \fB*selected-button*\fR.
+.OP :width width Width width
+Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button, the value is in
+screen units (i.e. any of the forms acceptable to \fBTk_GetPixels\fR);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBradiobutton\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a radiobutton widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the radiobutton such as its colors, font,
+text, and initial relief.  The \fBradiobutton\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A radiobutton is a widget
+that displays a textual string, bitmap or image
+and a diamond called an \fIindicator\fR.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the \fBwrapLength\fR option) and
+one of the characters may optionally be underlined using the
+\fBunderline\fR option.
+A radiobutton has
+all of the behavior of a simple button: it can display itself in either
+of three different ways, according to the \fBstate\fR option;
+it can be made to appear
+raised, sunken, or flat; it can be made to flash; and it invokes
+a STk procedure whenever mouse button 1 is clicked over the
+check button.
+.PP
+In addition, radiobuttons can be \fIselected\fR.
+If a radiobutton is selected, the indicator is normally
+drawn with a sunken relief and a special color, and
+a STk variable associated with the radiobutton is set to a particular
+value.
+If the radiobutton is not selected, the indicator is drawn with a
+raised relief and no special color.
+Typically, several radiobuttons share a single variable and the
+value of the variable indicates which radiobutton is to be selected.
+When a radiobutton is selected it sets the value of the variable to
+indicate that fact;  each radiobutton also monitors the value of
+the variable and automatically selects and deselects itself when the
+variable's value changes.
+By default the variable \fB*selected-button*\fR
+is used;  its contents give the name of the button that is
+selected, or the empty string if no button associated with that
+variable is selected.
+The name of the variable for a radiobutton,
+plus the variable to be stored into it, may be modified with options
+on the procedure line or in the option database.
+Configuration options may also be used to modify the way the
+indicator is displayed (or whether it is displayed at all).
+By default a radio
+button is configured to select itself on button clicks.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBradiobutton\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for radiobutton widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBradiobutton\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBradiobutton\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdeselect\fR)
+Deselects the radiobutton and sets the associated variable to an
+empty string.
+If this radiobutton was not currently selected, the procedure has
+no effect.
+.TP
+(\fIwidget\-name '\fBflash\fR)
+Flashes the radiobutton.  This is accomplished by redisplaying the radiobutton
+several times, alternating between active and normal colors.  At
+the end of the flash the radiobutton is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the radiobutton's state is \fBdisabled\fR.
+.TP
+(\fIwidget\-name '\fBinvoke\fR)
+Does just what would have happened if the user invoked the radiobutton
+with the mouse: selects the button and invokes
+its associated STk procedure, if there is one (return value is undifined)..
+This procedure is ignored if the radiobutton's state is \fBdisabled\fR.
+.TP
+(\fIwidget\-name '\fBselect\fR)
+Selects the radiobutton and sets the associated variable to the
+value corresponding to this widget.
+
+.SH BINDINGS
+.PP
+Tk automatically creates class bindings for radiobuttons that give them
+the following default behavior:
+.IP [1]
+The radiobutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the radiobutton.
+.IP [2]
+When mouse button 1 is pressed over a radiobutton it is invoked (it
+becomes selected and the procedure associated with the button is
+invoked, if there is one).
+.IP [3]
+When a radiobutton has the input focus, the space key causes the radiobutton
+to be invoked.
+.PP
+If the radiobutton's state is \fBdisabled\fR then none of the above
+actions occur:  the radiobutton is completely non-responsive.
+.PP
+The behavior of radiobuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH SEE ALSO
+button, checkbutton
diff --git a/Doc/Manual/raise.n b/Doc/Manual/raise.n
new file mode 100644
index 0000000..2bd5dac
--- /dev/null
+++ b/Doc/Manual/raise.n
@@ -0,0 +1,37 @@
+'\"
+'\" Copyright (c) 1990 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) raise.n 1.5 95/06/05 13:21:38
+'\" 
+.so STk-man.macros
+.TH raise n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+raise \- Change a window's position in the stacking order
+.SH SYNOPSIS
+(\fBraise \fIwindow\fR)
+.sp
+(\fBraise \fIwindow \fR\fIaboveThis\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+If the \fIaboveThis\fR argument is omitted then the procedure raises
+\fIwindow\fR so that it is above all of its siblings in the stacking
+order (it will not be obscured by any siblings and will obscure
+any siblings that overlap it).
+If \fIaboveThis\fR is specified then it must be the path name of
+a window that is either a sibling of \fIwindow\fR or the descendant
+of a sibling of \fIwindow\fR.
+In this case the \fBraise\fR procedure will insert
+\fIwindow\fR into the stacking order just above \fIaboveThis\fR
+(or the ancestor of \fIaboveThis\fR that is a sibling of \fIwindow\fR);
+this could end up either raising or lowering \fIwindow\fR.
+
+.SH SEE ALSO
+lower
diff --git a/Doc/Manual/report-error.n b/Doc/Manual/report-error.n
new file mode 100644
index 0000000..8cfc5fb
--- /dev/null
+++ b/Doc/Manual/report-error.n
@@ -0,0 +1,45 @@
+'\" Color=Green
+'\"
+'\" 
+.so STk-man.macros
+.TH report-error n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+report-error \- Command invoked to process errors
+.SH SYNOPSIS
+(\fBreport-error \fIhead message obj\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+\fBReport-error\fR is called by the interpreter when an error occurs.
+This procedure is written in Scheme and can be by an application which
+needs to handle redefined to handle errors. The \fIhead\fR argument is
+a string which identify the kind of error. The \fIhead\fR argument
+contains the error message and \fIobj\fR contains the object which 
+causes the error (or the empty list when there is no object to incriminate).
+.PP
+The STk library includes a default \fBreport-error\fR procedure
+that posts a dialog box containing the error message and offers
+the user a chance to see a stack trace showing where the
+error occurred and its associated environment..
+.PP 
+If an error occurs while is \fBreport-error\fR execution, the
+interpreter detect that the procedure is buggy and it redirect further
+messages on the standard error port.
+.LP
+Hereafter is a simple non-graphical error reporter.
+.CS
+(define (report-error head message obj)
+  (let ((port (current-error-port)))
+    ;; Display message
+    (format port "~A: ~A ~S\n\n"  head message obj)
+    ;; Display stack
+    (let ((stack (%get-eval-stack))
+	  (env   (%get-environment-stack)))
+      (for-each (lambda (x y) (format port "~A ~A\n" x (uncode y)))
+		env 
+		stack))))
+.CE
+
diff --git a/Doc/Manual/scale.n b/Doc/Manual/scale.n
new file mode 100644
index 0000000..3f80746
--- /dev/null
+++ b/Doc/Manual/scale.n
@@ -0,0 +1,252 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) scale.n 1.28 95/09/26 16:53:06
+'\" 
+.so STk-man.macros
+.TH scale n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+scale \- Create and manipulate scale widgets
+.SH SYNOPSIS
+(\fBscale\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:font	:highlightthickness	:repeatinterval
+:background	:foreground	:orient	:takefocus
+:borderwidth	:highlightbackground	:relief	:troughcolor
+:cursor	:highlightcolor	:repeatdelay
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :bigincrement bigIncrement BigIncrement big-increment
+Some interactions with the scale cause its value to change by
+``large'' increments;  this option specifies the size of the
+large increments.  If specified as 0, the large increments default
+to 1/10 the range of the scale.
+.OP :command command Command command
+Specifies a STk command to invoke whenever the scale's
+value is changed via a widget command.
+The procedure is called with a real number indicating the
+new value of the scale. Example:
+.RS
+.RS
+(scale '.s :command (lambda (x) 
+                       (format #t "New position is ~S\n" x)))
+.RE
+.RE
+.OP :digits digits Digits digits
+An integer specifying how many significant digits should be retained
+when converting the value of the scale to a string.
+If the number is less than or equal to zero, then the scale picks
+the smallest value that guarantees that every possible slider
+position prints as a different string.
+.OP :from from From from
+A real value corresponding to the left or top end of the scale.
+.OP :label label Label label
+A string to display as a label for the scale.  For
+vertical scales the label is displayed just to the right of the
+top end of the scale.  For horizontal scales the label is displayed
+just above the left end of the scale.  If the option is specified
+as an empty string, no label is displayed.
+.OP :length length Length length
+Specifies the desired long dimension of the scale in screen units
+(i.e. any of the forms acceptable to \fBTk_GetPixels\fR).
+For vertical scales this is the scale's height;  for horizontal scales
+it is the scale's width.
+.OP :resolution resolution Resolution resolution
+A real value specifying the resolution for the scale.
+If this value is greater than zero then the scale's value will always be
+rounded to an even multiple of this value, as will tick marks and
+the endpoints of the scale.  If the value is less than zero then no
+rounding occurs.  Defaults to 1 (i.e., the value will be integral).
+.OP :showvalue showValue ShowValue show-value
+Specifies a boolean value indicating whether or not the current
+value of the scale is to be displayed.
+.OP :sliderlength sliderLength SliderLength
+Specifies the size of the slider, measured in screen units along the slider's
+long dimension.  The value may be specified in any of the forms acceptable
+to \fBTk_GetPixels\fR.
+.OP :sliderrelief sliderRelief SliderRelief slider-relief
+Specifies the relief to use when drawing the slider, such as \fBraised\fR
+or \fBsunken\fR.
+.OP :state state State  state
+Specifies one of three states for the scale:  \fB"normal"\fR,
+\fB"active"\fR, or \fB"disabled"\fR.
+If the scale is disabled then the value may not be changed and the scale
+won't activate.
+If the scale is active, the slider is displayed using the color
+specified by the \fBactiveBackground\fR option.
+.OP :tickinterval tickInterval TickInterval tick-interval
+Must be a real value.
+Determines the spacing between numerical
+tick marks displayed below or to the left of the slider.
+If 0, no tick marks will be displayed.
+.OP :to to To to
+Specifies a real value corresponding
+to the right or bottom end of the scale.
+This value may be either less than or greater than the \fBfrom\fR option.
+.OP :variable variable Variable variable
+Specifies the name of a global variable to link to the scale.  Whenever the
+value of the variable changes, the scale will update to reflect this
+value.
+Whenever the scale is manipulated interactively, the variable
+will be modified to reflect the scale's new value.
+.OP :width width Width width
+Specifies the desired narrow dimension of the trough in screen units
+(i.e. any of the forms acceptable to \fBTk_GetPixels\fR).
+For vertical scales this is the trough's width;  for horizontal scales
+this is the trough's height.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBscale\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a scale widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the scale such as its colors, orientation,
+and relief.  The \fBscale\fR procedure returns its
+\fIwidget\-name\fR argument.  At the time this procedure is invoked,
+there must not exist a window named \fIwidget\-name\fR, but
+\fIwidget\-name\fR's parent must exist.
+.PP
+A scale is a widget that displays a rectangular \fItrough\fR and a
+small \fIslider\fR.  The trough corresponds to a range
+of real values (determined by the \fBfrom\fR, \fBto\fR, and
+\fBresolution\fR options),
+and the position of the slider selects a particular real value.
+The slider's position (and hence the scale's value) may be adjusted
+with the mouse or keyboard as described in the BINDINGS
+section below.  Whenever the scale's value is changed, a STk
+procedure is invoked (using the \fBcommand\fR option) to notify
+other interested widgets of the change.
+In addition, the value
+of the scale can be linked to a STk variable (using the \fBvariable\fR
+option), so that changes in either are reflected in the other.
+.PP
+Three annotations may be displayed in a scale widget:  a label
+appearing at the top right of the widget (top left for horizontal
+scales), a number displayed just to the left of the slider
+(just above the slider for horizontal scales), and a collection
+of numerical tick marks just to the left of the current value
+(just below the trough for horizontal scales).  Each of these three
+annotations may be enabled or disabled using the
+configuration options.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBscale\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for scale widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBscale\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+\fIOption\fR may have any of the values accepted by the \fBscale\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBcoords \fR)
+.TP
+(\fIwidget\-name '\fBcoords \fR\fIvalue\fR)
+Returns a list whose elements are the x and y coordinates of
+the point along the centerline of the trough that corresponds
+to \fIvalue\fR.
+If \fIvalue\fR is omitted then the scale's current value is used.
+.TP
+(\fIwidget\-name '\fBget\fR)
+.TP
+(\fIwidget\-name '\fBget\fR \fIx y\fR)
+If \fIx\fR and \fIy\fR are omitted, returns the current value
+of the scale.  If \fIx\fR and \fIy\fR are specified, they give
+pixel coordinates within the widget;  the procedure returns
+the scale value corresponding to the given pixel.
+Only one of \fIx\fR or \fIy\fR is used:  for horizontal scales
+\fIy\fR is ignored, and for vertical scales \fIx\fR is ignored.
+.TP
+(\fIwidget\-name '\fBidentify\fR \fIx y\fR)
+Returns a string indicating what part of the scale lies under
+the coordinates given by \fIx\fR and \fIy\fR.
+A return value of \fB"slider"\fR means that the point is over
+the slider;  \fB"trough1"\fR means that the point is over the
+portion of the slider above  or to the left of the slider;
+and \fB"trough2"\fR means that the point is over the portion
+of the slider below or to the right of the slider.
+If the point isn't over one of these elements, an empty list
+is returned.
+.TP
+(\fIwidget\-name '\fBset\fR \fIvalue\fR)
+This procedure is invoked to change the current value of the scale,
+and hence the position at which the slider is displayed.  \fIValue\fR
+gives the new value for the scale.
+The procedure has no effect if the scale is disabled.
+
+.SH BINDINGS
+.PP
+Tk automatically creates class bindings for scales that give them
+the following default behavior.
+Where the behavior is different for vertical and horizontal scales,
+the horizontal behavior is described in parentheses.
+.IP [1]
+If button 1 is pressed in the trough, the scale's value will
+be incremented or decremented by the value of the \fBresolution\fR
+option so that the slider moves in the direction of the cursor. 
+If the button is held down, the action auto-repeats.
+.IP [2]
+If button 1 is pressed over the slider, the slider can be dragged
+with the mouse.
+.IP [3]
+If button 1 is pressed in the trough with the Control key down,
+the slider moves all the way to the end of its range, in the
+direction towards the mouse cursor.
+.IP [4]
+If button 2 is pressed, the scale's value is set to the mouse
+position.  If the mouse is dragged with button 2 down, the scale's
+value changes with the drag.
+.IP [5]
+The Up and Left keys move the slider up (left) by the value
+of the \fBresolution\fR option.
+.IP [6]
+The Down and Right keys move the slider down (right) by the value
+of the \fBresolution\fR option.
+.IP [7]
+Control-Up and Control-Left move the slider up (left) by the
+value of the \fBbigIncrement\fR option.
+.IP [8]
+Control-Down and Control-Right move the slider down (right) by the
+value of the \fBbigIncrement\fR option.
+.IP [9]
+Home moves the slider to the top (left) end of its range.
+.IP [10]
+End moves the slider to the bottom (right) end of its range.
+.PP
+If the scale is disabled using the \fBstate\fR option then
+none of the above bindings have any effect.
+.PP
+The behavior of scales can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
diff --git a/Doc/Manual/scrollbar.n b/Doc/Manual/scrollbar.n
new file mode 100644
index 0000000..4592474
--- /dev/null
+++ b/Doc/Manual/scrollbar.n
@@ -0,0 +1,351 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) scrollbar.n 1.27 95/08/30 10:11:01
+'\" 
+.so STk-man.macros
+.TH scrollbar n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+scrollbar \- Create and manipulate scrollbar widgets
+.SH SYNOPSIS
+(\fBscrollbar\fI widget\-name \fR?\fIoptions\fR?)
+.SO
+:activebackground	:highlightbackground	:orient	:takefocus
+:background	:highlightcolor	:relief	:troughcolor
+:borderwidth	:highlightthickness	:repeatdelay
+:cursor	:jump	:repeatinterval
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :activerelief activeRelief ActiveRelief active-relief
+Specifies the relief to use when displaying the element that is
+active, if any.
+Elements other than the active element are always displayed with
+a raised relief.
+.OP :command command Command command
+Specifies a STk procedure to invoke to change the view
+in the widget associated with the scrollbar.  When a user requests
+a view change by manipulating the scrollbar, the procedure is
+invoked.  The parameters given to this
+procedure are described later.
+.OP :elementborderwidth elementBorderWidth BorderWidth element-border-width
+Specifies the width of borders drawn around the internal elements
+of the scrollbar (the two arrows and the slider).  The value may
+have any of the forms acceptable to \fBTk_GetPixels\fR.
+If this value is less than zero, the value of the \fBborderWidth\fR
+option is used in its place.
+.OP :width width Width  width
+Specifies the desired narrow dimension of the scrollbar window,
+not including 3-D border, if any.  For vertical
+scrollbars this will be the width and for horizontal scrollbars
+this will be the height.
+The value may have any of the forms acceptable to \fBTk_GetPixels\fR.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBscrollbar\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a scrollbar widget.
+Additional options, described above, may be specified on the procedure
+line or in the option database to configure aspects of the scrollbar
+such as its colors, orientation, and relief.
+The \fBscrollbar\fR procedure returns its \fIwidget\-name\fR argument.
+At the time this procedure is invoked, there must not exist a window
+named \fIwidget\-name\fR, but \fIwidget\-name\fR's parent must exist.
+.PP
+A scrollbar is a widget that displays two arrows, one at each end of
+the scrollbar, and a \fIslider\fR in the middle portion of the
+scrollbar.
+It provides information about what is visible in an \fIassociated window\fR
+that displays an document of some sort (such as a file being edited or
+a drawing).
+The position and size of the slider indicate which portion of the
+document is visible in the associated window.  For example, if the
+slider in a vertical scrollbar covers the top third of the area
+between the two arrows, it means that the associated window displays
+the top third of its document.
+.PP
+Scrollbars can be used to adjust the view in the associated window
+by clicking or dragging with the mouse.  See the BINDINGS section
+below for details.
+
+.SH "ELEMENTS"
+.PP
+A scrollbar displays five elements, which are referred to in the
+widget procedures for the scrollbar:
+.TP 10
+\fBarrow1\fR
+The top or left arrow in the scrollbar.
+.TP 10
+\fBtrough1\fR
+The region between the slider and \fBarrow1\fR.
+.TP 10
+\fBslider\fR
+The rectangle that indicates what is visible in the associated widget.
+.TP 10
+\fBtrough2\fR
+The region between the slider and \fBarrow2\fR.
+.TP 10
+\fBarrow2\fR
+The bottom or right arrow in the scrollbar.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBscrollbar\fR procedure creates a new STk procedure whose
+name is \fIwidget\-name\fR.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for scrollbar widgets:
+.TP
+(\fIwidget\-name '\fBactivate \fR)
+.TP
+(\fIwidget\-name '\fBactivate \fR\fIelement\fR)
+Marks the element indicated by \fIelement\fR as active, which
+causes it to be displayed as specified by the \fBactiveBackground\fR
+and \fBactiveRelief\fR options.
+The only element values understood by this procedure are \fBarrow1\fR,
+\fBslider\fR, or \fBarrow2\fR.
+If any other value is specified then no element of the scrollbar
+will be active.
+If \fIelement\fR is not specified, the procedure returns
+the name of the element that is currently active, or an empty list
+if no element is active.
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBscrollbar\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBscrollbar\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdelta \fIdeltaX deltaY\fR)
+Returns a real number indicating the fractional change in
+the scrollbar setting that corresponds to a given change
+in slider position.  For example, if the scrollbar is horizontal,
+the result indicates how much the scrollbar setting must change
+to move the slider \fIdeltaX\fR pixels to the right (\fIdeltaY\fR is
+ignored in this case).
+If the scrollbar is vertical, the result indicates how much the
+scrollbar setting must change to move the slider \fIdeltaY\fR pixels
+down.  The arguments and the result may be zero or negative.
+.TP
+(\fIwidget\-name '\fBfraction \fIx y\fR)
+Returns a real number between 0 and 1 indicating where the point
+given by \fIx\fR and \fIy\fR lies in the trough area of the scrollbar.
+The value 0 corresponds to the top or left of the trough, the
+value 1 corresponds to the bottom or right, 0.5 corresponds to
+the middle, and so on.
+\fIX\fR and \fIy\fR must be pixel coordinates relative to the scrollbar
+widget.
+If \fIx\fR and \fIy\fR refer to a point outside the trough, the closest
+point in the trough is used.
+.TP
+(\fIwidget\-name '\fBget\fR)
+Returns the scrollbar settings in the form of a list whose
+elements are the arguments to the most recent \fBset\fR widget procedure.
+.TP
+(\fIwidget\-name '\fBidentify\fR \fIx y\fR)
+Returns the name of the element under the point given by \fIx\fR and
+\fIy\fR (such as \fB"arrow1"\fR), or  \fB#f\fRif the point does
+not lie in any element of the scrollbar.
+\fIX\fR and \fIy\fR must be pixel coordinates relative to the scrollbar
+widget.
+.TP
+(\fIwidget\-name '\fBset\fR \fIfirst last\fR)
+This procedure is invoked by the scrollbar's associated widget to
+tell the scrollbar about the current view in the widget.
+The procedure takes two arguments, each of which is a real fraction
+between 0 and 1.
+The fractions describe the range of the document that is visible in
+the associated widget.
+For example, if \fIfirst\fR is 0.2 and \fIlast\fR is 0.4, it means
+that the first part of the document visible in the window is 20%
+of the way through the document, and the last visible part is 40%
+of the way through.
+
+.SH "SCROLLING PROCEDURES"
+.PP
+When the user interacts with the scrollbar, for example by dragging
+the slider, the scrollbar notifies the associated widget that it
+must change its view.
+The scrollbar makes the notification by calling the STk procedure
+given to the scrollbar's \fB\:command\fR option. The parameters
+passed to the procedure may take any of the following forms:
+.TP
+'\fBmoveto \fIfraction\fR
+\fIFraction\fR is a real number between 0 and 1.
+The widget should adjust its view so that the point given
+by \fIfraction\fR appears at the beginning of the widget.
+If \fIfraction\fR is 0 it refers to the beginning of the
+document.  1.0 refers to the end of the document, 0.333
+refers to a point one-third of the way through the document,
+and so on.
+.TP
+'\fBscroll \fInumber '\fBunit\fR
+The widget should adjust its view by \fInumber\fR units.
+The units are defined in whatever way makes sense for the widget,
+such as characters or lines in a text widget.
+\fINumber\fR is either 1, which means one unit should scroll off
+the top or left of the window, or \-1, which means that one unit
+should scroll off the bottom or right of the window.
+.TP
+'\fBscroll \fInumber '\fBpage\fR
+The widget should adjust its view by \fInumber\fR pages.
+It is up to the widget to define the meaning of a page;  typically
+it is slightly less than what fits in the window, so that there
+is a slight overlap between the old and new views.
+\fINumber\fR is either 1, which means the next page should
+become visible, or \-1, which means that the previous page should
+become visible.
+
+.SH "OLD PROCEDURE SYNTAX"
+.PP
+In versions of Tk before 4.0, the \fBset\fR and \fBget\fR widget
+procedures used a different form.
+This form is still supported for backward compatibility, but it
+is deprecated.
+In the old procedure syntax, the \fBset\fR widget procedure has the
+following form:
+.TP
+(\fIwidget\-name '\fBset\fR \fItotalUnits windowUnits firstUnit lastUnit\fR)
+In this form the arguments are all integers.
+\fITotalUnits\fR gives the total size of the object being displayed in the
+associated widget.  The meaning of one unit depends on the associated
+widget;  for example, in a text editor widget units might
+correspond to lines of
+text.  \fIWindowUnits\fR indicates the total number of units that
+can fit in the associated window at one time.  \fIFirstUnit\fR
+and \fIlastUnit\fR give the indices of the first and last units
+currently visible in the associated window (zero corresponds to the
+first unit of the object).
+.LP
+Under the old syntax the \fBget\fR widget procedure returns a list
+of four integers, consisting of the \fItotalUnits\fR, \fIwindowUnits\fR,
+\fIfirstUnit\fR, and \fIlastUnit\fR values from the last \fBset\fR
+widget procedure.
+.PP
+The procedures generated by scrollbars also have a different form
+when the old syntax is being used: a single parameter is passed to 
+the procedure given to the \fB:command\fR option. This integer 
+indicates what should appear at
+the top or left of the associated widget's window.
+It has the same meaning as the \fIfirstUnit\fR and \fIlastUnit\fR
+arguments to the \fBset\fR widget procedure.
+.LP
+The most recent \fBset\fR widget procedure determines whether or not
+to use the old syntax.
+If it is given two real arguments then the new syntax will be
+used in the future, and if it is given four integer arguments then
+the old syntax will be used.
+
+.SH EXAMPLE
+The following example shows a procedure which is compatible with 
+the old and new syntax for procedure scrolling discussed earlier:
+.DS
+.;; Create list box and scrollbar
+(listbox   '.l :height 5 
+	       :yscroll (lambda l (apply .s 'set l)))
+(scrollbar '.s :command (lambda l (apply .l 'yview l)))
+
+;; Set some elements in the listbox
+(.l 'insert 0 'one 'two 'three 'four 'five 'six 'seven 'eight)
+
+;; Pack elements
+(pack .l :side "left" :expand #t  :fill "both")
+(pack .s :side "right" :expand #f :fill "y")
+.DE
+
+Using apply and a variable length list of parameters for the scrollbar
+procedure is compatible with old and new scrollbar procedure syntax.
+
+.SH BINDINGS
+Tk automatically creates class bindings for scrollbars that give them
+the following default behavior.
+If the behavior is different for vertical and horizontal scrollbars,
+the horizontal behavior is described in parentheses.
+
+.IP [1]
+Pressing button 1 over \fBarrow1\fR causes the view in the
+associated widget to shift up (left) by one unit so that the
+document appears to move down (right) one unit.
+If the button is held down, the action auto-repeats.
+.IP [2]
+Pressing button 1 over \fBtrough1\fR causes the view in the
+associated widget to shift up (left) by one screenful so that the
+document appears to move down (right) one screenful.
+If the button is held down, the action auto-repeats.
+.IP [3]
+Pressing button 1 over the slider and dragging causes the view
+to drag with the slider.
+If the \fBjump\fR option is true, then the view doesn't drag along
+with the slider;  it changes only when the mouse button is released.
+.IP [4]
+Pressing button 1 over \fBtrough2\fR causes the view in the
+associated widget to shift down (right) by one screenful so that the
+document appears to move up (left) one screenful.
+If the button is held down, the action auto-repeats.
+.IP [5]
+Pressing button 1 over \fBarrow2\fR causes the view in the
+associated widget to shift down (right) by one unit so that the
+document appears to move up (left) one unit.
+If the button is held down, the action auto-repeats.
+.IP [6]
+If button 2 is pressed over the trough or the slider, it sets
+the view to correspond to the mouse position;  dragging the
+mouse with button 2 down causes the view to drag with the mouse.
+If button 2 is pressed over one of the arrows, it causes the
+same behavior as pressing button 1.
+.IP [7]
+If button 1 is pressed with the Control key down, then if the
+mouse is over \fBarrow1\fR or \fBtrough1\fR the view changes
+to the very top (left) of the document;  if the mouse is over
+\fBarrow2\fR or \fBtrough2\fR the view changes
+to the very bottom (right) of the document;  if the mouse is
+anywhere else then the button press has no effect.
+.IP [8]
+In vertical scrollbars the Up and Down keys have the same behavior
+as mouse clicks over \fBarrow1\fR and \fBarrow2\fR, respectively.
+In horizontal scrollbars these keys have no effect.
+.IP [9]
+In vertical scrollbars Control-Up and Control-Down have the same
+behavior as mouse clicks over \fBtrough1\fR and \fBtrough2\fR, respectively.
+In horizontal scrollbars these keys have no effect.
+.IP [10]
+In horizontal scrollbars the Up and Down keys have the same behavior
+as mouse clicks over \fBarrow1\fR and \fBarrow2\fR, respectively.
+In vertical scrollbars these keys have no effect.
+.IP [11]
+In horizontal scrollbars Control-Up and Control-Down have the same
+behavior as mouse clicks over \fBtrough1\fR and \fBtrough2\fR, respectively.
+In vertical scrollbars these keys have no effect.
+.IP [12]
+The Prior and Next keys have the same behavior
+as mouse clicks over \fBtrough1\fR and \fBtrough2\fR, respectively.
+.IP [13]
+The Home key adjusts the view to the top (left edge) of the document.
+.IP [14]
+The End key adjusts the view to the bottom (right edge) of the document.
+
diff --git a/Doc/Manual/selection.n b/Doc/Manual/selection.n
new file mode 100644
index 0000000..5a3f4c3
--- /dev/null
+++ b/Doc/Manual/selection.n
@@ -0,0 +1,127 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) selection.n 1.15 95/08/12 17:35:20
+'\" 
+.so STk-man.macros
+.TH selection n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+selection \- Manipulate the X selection
+.SH SYNOPSIS
+(\fBselection \fIoption\fR ?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure provides a STk interface to the X selection mechanism and
+implements the full selection functionality described in the
+X Inter-Client Communication Conventions Manual (ICCCM).
+.PP
+The first argument to \fBselection\fR determines the format of the
+rest of the arguments and the behavior of the procedure.  The following
+forms are currently supported:
+.PP
+.TP
+(\fBselection 'clear\fR ?\fB:displayof\fR \fIwindow\fR? ?\fB:selection\fR \fIselection\fR?)
+If \fIselection\fR exists anywhere on \fIwindow\fR's display, clear it
+so that no window owns the selection anymore.  \fISelection\fR
+specifies the X selection that should be cleared, and should be an
+atom name such as PRIMARY or CLIPBOARD; see the Inter-Client
+Communication Conventions Manual for complete details.
+\fISelection\fR defaults to PRIMARY and \fIwindow\fR defaults to ``.''.
+Returns an empty list. 
+.TP
+(\fBselection 'get\fR ?\fB:displayof\fR \fIwindow\fR? ?\fB:selection\fR \fIselection\fR? ?\fB:type\fR \fItype\fR?)
+Retrieves the value of \fIselection\fR from \fIwindow\fR's display and
+returns it as a result.  \fISelection\fR defaults to PRIMARY and
+\fIwindow\fR defaults to ``*root*''. 
+\fIType\fR specifies the form in which the selection is to be returned
+(the desired ``target'' for conversion, in ICCCM terminology), and
+should be an atom name such as STRING or FILE_NAME; see the
+Inter-Client Communication Conventions Manual for complete details.
+\fIType\fR defaults to STRING.  The selection owner may choose to
+return the selection in any of several different representation
+formats, such as STRING, ATOM, INTEGER, etc. (this format is different
+than the selection type; see the ICCCM for all the confusing details).
+If the selection is returned in a non-string format, such as INTEGER
+or ATOM, the \fBselection\fR procedure converts it to string format as a
+collection of fields separated by spaces: atoms are converted to their
+textual names, and anything else is converted to hexadecimal integers.
+.PP
+.TP
+(\fBselection 'handle\fR ?\fB:selection\fR \fIselection\fR? ?\fB:type\fR \fItype\fR? ?\fB:format\fR \fIformat\fR? \fIwindow procedure\fR)
+Creates a handler for selection requests, such that \fIprocedure\fR will
+be executed whenever \fIselection\fR is owned by \fIwindow\fR and
+someone attempts to retrieve it in the form given by \fItype\fR
+(e.g. \fItype\fR is specified in the \fBselection get\fR procedure).
+\fISelection\fR defaults to PRIMARY, \fItype\fR defaults to STRING, and
+\fIformat\fR defaults to STRING.  If \fIprocedure\fR is an empty string
+then any existing handler for \fIwindow\fR, \fItype\fR, and
+\fIselection\fR is removed.
+.RS
+.PP
+When \fIselection\fR is requested, \fIwindow\fR is the selection owner,
+and \fItype\fR is the requested type, \fIprocedure\fR will be applied
+as a STk procedure with a list of two numbers.
+The two additional numbers
+are \fIoffset\fR and \fImaxBytes\fR:  \fIoffset\fR specifies a starting
+character position in the selection and \fImaxBytes\fR gives the maximum
+number of bytes to retrieve.  The procedure should return a value consisting
+of at most \fImaxBytes\fR of the selection, starting at position
+\fIoffset\fR.  For very large selections (larger than \fImaxBytes\fR)
+the selection will be retrieved using several invocations of \fIprocedure\fR
+with increasing \fIoffset\fR values.  If \fIprocedure\fR returns a string
+whose length is less than \fImaxBytes\fR, the return value is assumed to
+include all of the remainder of the selection;  if the length of
+\fIprocedure\fR's result is equal to \fImaxBytes\fR then
+\fIprocedure\fR will be invoked again, until it eventually
+returns a result shorter than \fImaxBytes\fR.  The value of \fImaxBytes\fR
+will always be relatively large (thousands of bytes).
+.PP
+If \fIprocedure\fR returns an error then the selection retrieval is rejected
+just as if the selection didn't exist at all.
+.PP
+The \fIformat\fR argument specifies the representation that should be
+used to transmit the selection to the requester (the second column of
+Table 2 of the ICCCM), and defaults to STRING.  If \fIformat\fR is
+STRING, the selection is transmitted as 8-bit ASCII characters (i.e.
+just in the form returned by \fIprocedure\fR).  If \fIformat\fR is
+ATOM, then the return value from \fIprocedure\fR is divided into fields
+separated by white space;  each field is converted to its atom value,
+and the 32-bit atom value is transmitted instead of the atom name.
+For any other \fIformat\fR, the return value from \fIprocedure\fR is
+divided into fields separated by white space and each field is
+converted to a 32-bit integer;  an array of integers is transmitted
+to the selection requester.
+.PP
+The \fIformat\fR argument is needed only for compatibility with
+selection requesters that don't use Tk.  If Tk is being
+used to retrieve the selection then the value is converted back to
+a string at the requesting end, so \fIformat\fR is
+irrelevant.
+.RE
+.PP
+.TP
+(\fBselection 'own\fR ?\fB:displayof\fR \fIwindow\fR? ?\fB:selection\fR \fIselection\fR?)
+.TP
+(\fBselection 'own\fR ?\fB:procedure\fR \fIprocedure\fR? ?\fB:selection\fR \fIselection\fR? \fIwindow\fR)
+The first form of \fBselection own\fR returns the path name of the
+window in this application that owns \fIselection\fR on the display
+containing \fIwindow\fR, or \fB#f\fR if no window in this
+application owns the selection.  \fISelection\fR defaults to "PRIMARY" and
+\fIwindow\fR defaults to ``*root*''.
+.br
+The second form of \fBselection own\fR causes \fIwindow\fR to become
+the new owner of \fIselection\fR on \fIwindow\fR's display, returning
+an empty list as result. The existing owner, if any, is notified
+that it has lost the selection.
+If \fIprocedure\fR is specified, it is a STk script to execute when
+some other window claims ownership of the selection away from
+\fIwindow\fR. \fISelection\fR defaults to "PRIMARY".
+
diff --git a/Doc/Manual/send.n b/Doc/Manual/send.n
new file mode 100644
index 0000000..185c791
--- /dev/null
+++ b/Doc/Manual/send.n
@@ -0,0 +1,95 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) send.n 1.15 95/08/12 17:35:21
+'\" 
+.so STk-man.macros
+.TH send n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+send \- Execute a command in a different application
+.SH SYNOPSIS
+(\fBsend ?\fIoptions\fR? \fIapp cmd \fR?\fIarg arg ...\fR?)
+.br
+(\fBinhibit-send\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure arranges for \fIcmd\fR (and \fIarg\fRs) to be executed in the
+application named by \fIapp\fR. It returns the result (converted to a string)
+that procedure execution.
+\fIApp\fR may be the name of any application whose main window is
+on the display containing the sender's main window;  it need not
+be within the same process.
+If no \fIarg\fR arguments are present, then the procedure to be executed is
+contained entirely within the \fIcmd\fR argument.  If one or
+more \fIarg\fRs are present, they are concatenated to form the
+procedure to be executed, just as for the \fBeval\fR procedure.
+.PP
+If the initial arguments of the procedure begin with ``\-''
+they are treated as options.  The following options are
+currently defined:
+.TP
+\fB:async\fR
+Requests asynchronous invocation.  In this case the \fBsend\fR
+procedure will complete immediately without waiting for \fIcmd\fR
+to complete in the target application;  no result will be available
+and errors in the sent procedure will be ignored.
+If the target application is in the same process as the sending
+application then the \fB\:async\fR option is ignored.
+.TP
+\fB:displayof\fR \fIwidget\-name\fR
+Specifies that the target application's main window is on the display
+of the window given by \fIwidget\-name\fR, instead of the display containing
+the application's main window.
+.TP
+\fB:-\fR
+Serves no purpose except to terminate the list of options.  This
+option is needed only if \fIapp\fR could contain a leading ``\-''
+character.
+
+.SH "APPLICATION NAMES"
+.PP
+The name of an application is set initially from the name of the
+program or script that created the application.
+You can query and change the name of an application with the
+\fBtk appname\fR procedure.
+
+.SH "DISABLING SENDS"
+.PP
+The \fBsend\fR procedure can be removed from an application 
+by calling the \fBinhibit-send\fI procedure.
+If the \fBsend\fR procedure is removed then the application
+will not respond to incoming send requests anymore,  nor will it
+be able to issue outgoing requests.
+Communication can be reenabled by invoking the \fBtk appname\fR
+procedure.
+
+.SH SECURITY
+.PP
+The \fBsend\fR procedure is potentially a serious security loophole,
+since any application that can connect to your X server can send
+scripts to your applications.
+These incoming scripts can use STk to read and
+write your files and invoke subprocesses under your name.
+Host-based access control such as that provided by \fBxhost\fR
+is particularly insecure, since it allows anyone with an account
+on particular hosts to connect to your server, and if disabled it
+allows anyone anywhere to connect to your server.
+In order to provide at least a small amount of
+security, Tk checks the access control being used by the server
+and rejects incoming sends unless (a) \fBxhost\fR-style access control
+is enabled (i.e. only certain hosts can establish connections) and (b) the
+list of enabled hosts is empty.
+This means that applications cannot connect to your server unless
+they use some other form of authorization
+such as that provide by \fBxauth\fR.
+
+.SH SEE ALSO
+tk
\ No newline at end of file
diff --git a/Doc/Manual/stk.1 b/Doc/Manual/stk.1
new file mode 100644
index 0000000..265739a
--- /dev/null
+++ b/Doc/Manual/stk.1
@@ -0,0 +1,185 @@
+'\" Color=White
+'\"
+'\" File modified by Erick Gallesio for STk man page. Original file Copyright:
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" All rights reserved.
+'\"
+'\" Permission is hereby granted, without written agreement and without
+'\" license or royalty fees, to use, copy, modify, and distribute this
+'\" documentation for any purpose, provided that the above copyright
+'\" notice and the following two paragraphs appear in all copies.
+'\"
+'\" IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY
+'\" FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+'\" ARISING OUT OF THE USE OF THIS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
+'\" CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+'\"
+'\" THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
+'\" INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+'\" AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
+'\" ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
+'\" PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
+'\" 
+'\" $Header: /users/eg/STk/STk/Doc/Manual/RCS/stk.1,v 1.3 1996/07/24 13:39:51 eg Exp $ SPRITE (Berkeley)
+'/"
+.so STk-man.macros
+.TH STk 1 3.1 July_1996 ""
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+stk, snow \- A Scheme interpreter using the Tk toolkit
+.SH SYNOPSIS
+\fBstk\fR  [\fIoptions\fR] [\fIarg arg ...\fR]
+.br
+\fBsnow\fR [\fIoptions\fR] [\fIarg arg ...\fR]
+.SH OPTIONS
+.LP 
+\fBstk\fR interpreter accepts several command-line options which  may
+be abbreviated, as long as the abbreviation
+is unambiguous (e.g. \fB-h\fR, \fB-he\fR, \fB-hel\fR are three possibe 
+abbreviations for the \fB-help\fR option).
+
+.IP "\fB\-display \fIdisplay\fR" 15
+Display (and screen) on which to display window.
+.IP "\fB\-file \fIfileName\fR" 15
+Read commands from \fIfileName\fR rather than standard input.  The
+last element in \fIfileName\fR will be used as the title for the
+application and name of its interpreter for \fBsend\fR
+commands (unless overridden by the \fB\-name\fR option\fR).
+.IP "\fB\-geometry \fIgeometry\fR" 15
+Initial geometry to use for window.
+.IP "\fB\-name \fIname\fR" 15
+Use \fIname\fR as the title to be displayed in the window, and
+as the name of the interpreter for \fBsend\fR commands.
+.IP  "\fB\-new-colormap\fR" 15
+Specifies that the main window should have a new private colormap instead of
+using the default colormap for the screen.
+.IP "\fB\-sync\fR" 15
+Execute all X server commands synchronously, so that errors
+are reported immediately.  This will result in much slower
+execution, but it is useful for debugging.
+.IP "\fB\-visual \fIvisual\fR" 15
+Specifies the visual to use for the window.\fIVisual\fR may be one of the following:
+\fIbest\fR, \fIdirectcolor\fR, \fIgrayscale\fR, \fIgreyscale\fR, 
+\fIpseudocolor\fR, \fIstaticcolor\fR, \fIstaticgray\fR, 
+\fIstaticgrey\fR, \fItruecolor\fR, or \fIdefault\fR
+.IP "\fB\-no-tk\fR" 15
+Don't initialize the Tk toolkit
+.IP "\fB\-load \fIfileName\fR" 15
+Evaluate expressions contained in \fIfileName\fR before reading 
+expressions from standard input.
+.IP "\fB\-image \fIfileName\fR" 15
+Restore the state saved in \fIfileName\fR by the \fIdump\fR primitive
+(Note: For now, \fIdump\fR works only on SunOS 4.1.x, Linux 1.x (a.out format) 
+and FreeBSD).
+.IP "\fB\-cells \fInumber\fR" 15
+Set the default size for the heap to \fInumber\fR cells. The given number is
+also the amount of cells used when extending the heap. Default value is 20000.
+.IP "\fB\-interactive\fR" 15
+Tell the interpreter that it is used interactively (even if it doesn't
+think so).  
+.IP "\fB\-help\fR" 15
+Print a summary of the command-line options and exit.
+.IP "\fB\-\|\-\fR" 15
+Pass all remaining arguments through to the script's \fBargv\fR
+variable without interpreting them.
+This provides a mechanism for passing arguments such as \fB\-name\fR
+to a script instead of having \fBwish\fR interpret them.
+.BE
+
+.SH DESCRIPTION 
+.PP 
+
+\fBStk\fR is a Scheme R4RS interpreter which provide a simple access to the
+X11 Tk toolkit. If the \fB\-no-tk\fR option is provided to the interpreter,
+the Tk library is not initialized and no main window is created.  If
+\fBstk\fR is invoked with no \fB\-f\fR option then it reads Scheme
+expressions interactively from standard input.  It will continue processing
+commands until all windows have been deleted or until end-of-file is
+reached on standard input.
+
+.PP 
+\fBSnow\fR is a \fIlight\fR version of the \fBstk\fR interpreter which
+does not provide support for the Tk toolkit. This interpreter does not
+recognize the options \fB\-display\fR, \fB\-geometry\fR, \fB\-sync\fR 
+\fBnew-colormap\fR, \fBvisual\fR and \fB\-no-tk\fR which are meaningless 
+without Tk. This interpreter is called, rather than the standard one, 
+when the shell DISPLAY variable is not initialized.
+
+.PP
+If the \fB\-file\fR option is provided to Tk, then \fBstk\fR reads Scheme
+forms from the file named in the \fB\-file\fR option.  These
+forms will normally create an interactive interface consisting
+of one or more widgets.  When the end of the command file is
+reached, \fBstk\fR will continue to respond to X events until
+all windows have been deleted.
+
+.PP 
+The \fB\-interactive\fR option forces the interpreter in interactive
+mode. In this mode, standard output and standard error are unbuffered. 
+Use this option when you launch \fBstk\fR from \fBemacs\fR.
+
+
+.SH "VARIABLES"
+.PP
+Following Scheme variables are set when \fBStk\fR starts:
+.TP 15
+\fB*argc*\fR
+Contains a count of the number of \fIarg\fR arguments (0 if none),
+not including the options described above.
+.TP 15
+\fB*argv*\fR
+Contains a Scheme list whose elements are the \fIarg\fR arguments (not
+including the options described above), in order, or an empty list
+if there are no \fIarg\fR arguments.
+.TP 15
+\fB*program-name*\fR
+Contains \fIfileName\fR if it was specified.
+Otherwise, contains the name by which \fBstk\fR was invoked.
+
+
+.SH "SCRIPT FILES"
+.PP
+If you create a STk script in a file whose first line is
+.DS
+\fB#!/usr/local/bin/stk -f\fR
+.DE
+then you can invoke the script file directly from your shell if
+you mark it as executable.
+This assumes that \fBstk\fR has been installed in the default
+location in /usr/local/bin;  if it's installed somewhere else
+then you'll have to modify the above line to match.
+
+.SH ENVIRONMENT VARIABLES
+.PP
+\fBstk\fR uses the following shell variables:
+.IP "\fISTK_LIBRARY\fR" 15
+This variable indicates where the library files are located. This variable
+allows to overload the default value of the Scheme variable \fI*stk-library*\fR 
+which is automatically calculated by the interpreter.(i.e. \fIstk\fR or \fIsnow\fR).
+.IP "\fISTK_LOAD_PATH\fR" 15
+This variable serves to initialize the \fI*load-path*\fR Scheme variable. This
+variable is a list of paths to try when in a load command. 
+.IP "\fISTK_HELP_PATH\fR" 15
+This variable serves to initialize the \fI*help-path*\fR Scheme variable. It 
+must contain a list of documentation directories. This variable is used by the help 
+procedure.
+
+
+.SH FILES
+.IP "\fI./init.stk\fR" 15
+.IP "\fI$STK_LIBRARY/STk/init.stk\fR" 15
+When \fBstk\fR starts running, it tries to load the file \fIinit.stk\fR
+in the current directory. If this file is not present, it tries to load 
+this file in the \fBSTk_LIBRARY\fR directory (the value of \fBSTk_LIBRARY\fR
+is automatically computed to be in a sibling directory of the interpreter 
+executable.
+
+.IP "\fI~/.stkrc\fR" 15
+Standard \fIinit.stk\fR file tries to load the file \fI~/.stkrc\fR. This file 
+can be used to store function definitions or variables settings that you want
+to be executed at each interpretater invocation.
+
+.SH SEE ALSO
+wish(1)
diff --git a/Doc/Manual/stk.ps b/Doc/Manual/stk.ps
new file mode 100644
index 0000000..ad01433
--- /dev/null
+++ b/Doc/Manual/stk.ps
@@ -0,0 +1,507 @@
+%!PS-Adobe-3.0
+%%Creator: groff version 1.10
+%%CreationDate: Wed Sep 25 16:00:06 1996
+%%DocumentNeededResources: font Times-Roman
+%%+ font Times-Bold
+%%+ font Times-Italic
+%%DocumentSuppliedResources: procset grops 1.10 0
+%%Pages: 3
+%%PageOrder: Ascend
+%%Orientation: Portrait
+%%EndComments
+%%BeginProlog
+%%BeginResource: procset grops 1.10 0
+/setpacking where{
+pop
+currentpacking
+true setpacking
+}if
+/grops 120 dict dup begin
+/SC 32 def
+/A/show load def
+/B{0 SC 3 -1 roll widthshow}bind def
+/C{0 exch ashow}bind def
+/D{0 exch 0 SC 5 2 roll awidthshow}bind def
+/E{0 rmoveto show}bind def
+/F{0 rmoveto 0 SC 3 -1 roll widthshow}bind def
+/G{0 rmoveto 0 exch ashow}bind def
+/H{0 rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
+/I{0 exch rmoveto show}bind def
+/J{0 exch rmoveto 0 SC 3 -1 roll widthshow}bind def
+/K{0 exch rmoveto 0 exch ashow}bind def
+/L{0 exch rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
+/M{rmoveto show}bind def
+/N{rmoveto 0 SC 3 -1 roll widthshow}bind def
+/O{rmoveto 0 exch ashow}bind def
+/P{rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
+/Q{moveto show}bind def
+/R{moveto 0 SC 3 -1 roll widthshow}bind def
+/S{moveto 0 exch ashow}bind def
+/T{moveto 0 exch 0 SC 5 2 roll awidthshow}bind def
+/SF{
+findfont exch
+[exch dup 0 exch 0 exch neg 0 0]makefont
+dup setfont
+[exch/setfont cvx]cvx bind def
+}bind def
+/MF{
+findfont
+[5 2 roll
+0 3 1 roll
+neg 0 0]makefont
+dup setfont
+[exch/setfont cvx]cvx bind def
+}bind def
+/level0 0 def
+/RES 0 def
+/PL 0 def
+/LS 0 def
+/MANUAL{
+statusdict begin/manualfeed true store end
+}bind def
+/PLG{
+gsave newpath clippath pathbbox grestore
+exch pop add exch pop
+}bind def
+/BP{
+/level0 save def
+1 setlinecap
+1 setlinejoin
+72 RES div dup scale
+LS{
+90 rotate
+}{
+0 PL translate
+}ifelse
+1 -1 scale
+}bind def
+/EP{
+level0 restore
+showpage
+}bind def
+/DA{
+newpath arcn stroke
+}bind def
+/SN{
+transform
+.25 sub exch .25 sub exch
+round .25 add exch round .25 add exch
+itransform
+}bind def
+/DL{
+SN
+moveto
+SN
+lineto stroke
+}bind def
+/DC{
+newpath 0 360 arc closepath
+}bind def
+/TM matrix def
+/DE{
+TM currentmatrix pop
+translate scale newpath 0 0 .5 0 360 arc closepath
+TM setmatrix
+}bind def
+/RC/rcurveto load def
+/RL/rlineto load def
+/ST/stroke load def
+/MT/moveto load def
+/CL/closepath load def
+/FL{
+currentgray exch setgray fill setgray
+}bind def
+/BL/fill load def
+/LW/setlinewidth load def
+/RE{
+findfont
+dup maxlength 1 index/FontName known not{1 add}if dict begin
+{
+1 index/FID ne{def}{pop pop}ifelse
+}forall
+/Encoding exch def
+dup/FontName exch def
+currentdict end definefont pop
+}bind def
+/DEFS 0 def
+/EBEGIN{
+moveto
+DEFS begin
+}bind def
+/EEND/end load def
+/CNT 0 def
+/level1 0 def
+/PBEGIN{
+/level1 save def
+translate
+div 3 1 roll div exch scale
+neg exch neg exch translate
+0 setgray
+0 setlinecap
+1 setlinewidth
+0 setlinejoin
+10 setmiterlimit
+[]0 setdash
+/setstrokeadjust where{
+pop
+false setstrokeadjust
+}if
+/setoverprint where{
+pop
+false setoverprint
+}if
+newpath
+/CNT countdictstack def
+userdict begin
+/showpage{}def
+}bind def
+/PEND{
+clear
+countdictstack CNT sub{end}repeat
+level1 restore
+}bind def
+end def
+/setpacking where{
+pop
+setpacking
+}if
+%%EndResource
+%%IncludeResource: font Times-Roman
+%%IncludeResource: font Times-Bold
+%%IncludeResource: font Times-Italic
+grops begin/DEFS 1 dict def DEFS begin/u{.001 mul}bind def end/RES 72
+def/PL 792 def/LS false def/ENC0[/asciicircum/asciitilde/Scaron/Zcaron
+/scaron/zcaron/Ydieresis/trademark/quotesingle/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/space/exclam/quotedbl/numbersign/dollar/percent
+/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen
+/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon
+/semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O
+/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/circumflex
+/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y
+/z/braceleft/bar/braceright/tilde/.notdef/quotesinglbase/guillemotleft
+/guillemotright/bullet/florin/fraction/perthousand/dagger/daggerdbl
+/endash/emdash/ff/fi/fl/ffi/ffl/dotlessi/dotlessj/grave/hungarumlaut
+/dotaccent/breve/caron/ring/ogonek/quotedblleft/quotedblright/oe/lslash
+/quotedblbase/OE/Lslash/.notdef/exclamdown/cent/sterling/currency/yen
+/brokenbar/section/dieresis/copyright/ordfeminine/guilsinglleft
+/logicalnot/minus/registered/macron/degree/plusminus/twosuperior
+/threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior
+/ordmasculine/guilsinglright/onequarter/onehalf/threequarters
+/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE
+/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
+/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
+/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
+/germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
+/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
+/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash
+/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]def
+/Times-Italic@0 ENC0/Times-Italic RE/Times-Bold@0 ENC0/Times-Bold RE
+/Times-Roman@0 ENC0/Times-Roman RE
+%%EndProlog
+%%Page: 1 1
+%%BeginPageSetup
+BP
+%%EndPageSetup
+/F0 10/Times-Roman@0 SF 408.84(STk\(1\) STk\(1\))72 48 R/F1 9
+/Times-Bold@0 SF -.18(NA)72 84 S(ME).18 E F0(stk, sno)108 96 Q 2.5
+(w\255AS)-.25 G(cheme interpreter using the Tk toolkit)-2.5 E F1
+(SYNOPSIS)72 112.8 Q/F2 10/Times-Bold@0 SF(stk)108 124.8 Q F0([)5 E/F3
+10/Times-Italic@0 SF(options)A F0 2.5(][)C F3(ar)-2.5 E 2.5(ga)-.37 G
+.74 -.37(rg .)-2.5 H(..).37 E F0(])A F2(sno)108 136.8 Q(w)-.1 E F0([)2.5
+E F3(options)A F0 2.5(][)C F3(ar)-2.5 E 2.5(ga)-.37 G .74 -.37(rg .)-2.5
+H(..).37 E F0(])A F1(OPTIONS)72 153.6 Q F2(stk)108 165.6 Q F0 .81
+(interpreter accepts se)3.31 F -.15(ve)-.25 G .809
+(ral command-line options which).15 F .809(may be abbre)5.809 F .809
+(viated, as long as the abbre)-.25 F(via-)-.25 E
+(tion is unambiguous \(e.g.)108 177.6 Q F2(-h)2.5 E F0(,)A F2(-he)2.5 E
+F0(,)A F2(-hel)2.5 E F0(are three possibe abbre)2.5 E(viations for the)
+-.25 E F2(-help)2.5 E F0(option\).)2.5 E F2(\255display)108 206.4 Q F3
+(display)2.5 E F0(Display \(and screen\) on which to display windo)7.34
+E -.65(w.)-.25 G F2<ad8c6c65>108 223.2 Q F3(\214leName)2.5 E F0 .31
+(Read commands from)18.47 F F3(\214leName)2.81 E F0 .31
+(rather than standard input.)2.81 F .31(The last element in)5.31 F F3
+(\214leName)2.81 E F0 1.378(will be used as the title for the applicati\
+on and name of its interpreter for)183 235.2 R F2(send)3.878 E F0(com-)
+3.878 E(mands \(unless o)183 247.2 Q -.15(ve)-.15 G(rridden by the).15 E
+F2(\255name)2.5 E F0(option\).)2.5 E F2(\255geometry)108 264 Q F3 -.1
+(ge)2.5 G(ometry).1 E F0(Initial geometry to use for windo)183 276 Q
+-.65(w.)-.25 G F2(\255name)108 292.8 Q F3(name)2.5 E F0(Use)21.81 E F3
+(name)3.262 E F0 .762(as the title to be displayed in the windo)3.262 F
+2.062 -.65(w, a)-.25 H .763(nd as the name of the interpreter).65 F(for)
+183 304.8 Q F2(send)2.5 E F0(commands.)2.5 E F2(\255new-colormap)108
+321.6 Q F0 .362(Speci\214es that the main windo)8.2 F 2.862(ws)-.25 G
+.362(hould ha)-2.862 F .661 -.15(ve a n)-.2 H .861 -.25(ew p).15 H(ri)
+.25 E -.25(va)-.25 G .361(te colormap instead of using the).25 F(def)183
+333.6 Q(ault colormap for the screen.)-.1 E F2(\255sync)108 350.4 Q F0
+(Ex)50.41 E .712(ecute all X serv)-.15 F .713(er commands synchronously)
+-.15 F 3.213(,s)-.65 G 3.213(ot)-3.213 G .713
+(hat errors are reported immediately)-3.213 F(.)-.65 E
+(This will result in much slo)183 362.4 Q(wer e)-.25 E -.15(xe)-.15 G
+(cution, b).15 E(ut it is useful for deb)-.2 E(ugging.)-.2 E F2
+(\255visual)108 379.2 Q F3(visual)2.5 E F0 1.748
+(Speci\214es the visual to use for the windo)17.9 F -.65(w.)-.25 G F3
+-.74(Vi).65 G(sual).74 E F0 1.748(may be one of the follo)4.248 F(wing:)
+-.25 E F3(best)4.247 E F0(,)A F3(dir)183 391.2 Q(ectcolor)-.37 E F0(,)A
+F3(gr)4.11 E(ayscale)-.15 E F0(,)A F3(gr)4.11 E -.3(ey)-.37 G(scale).3 E
+F0(,)A F3(pseudocolor)4.11 E F0(,)A F3(staticcolor)4.11 E F0(,)A F3
+(staticgr)4.11 E(ay)-.15 E F0(,)A F3(staticgr)4.11 E -.3(ey)-.37 G F0(,)
+.3 E F3(true-)4.11 E(color)183 403.2 Q F0 2.5(,o)C(r)-2.5 E F3(default)
+2.5 E F2(\255no-tk)108 420 Q F0(Don')46.52 E 2.5(ti)-.18 G
+(nitialize the Tk toolkit)-2.5 E F2(\255load)108 436.8 Q F3(\214leName)
+2.5 E F0(Ev)12.91 E 1.743(aluate e)-.25 F 1.743(xpressions contained in)
+-.15 F F3(\214leName)4.242 E F0 1.742(before reading e)4.242 F 1.742
+(xpressions from standard)-.15 F(input.)183 448.8 Q F2(\255image)108
+465.6 Q F3(\214leName)2.5 E F0 .697(Restore the state sa)5.7 F -.15(ve)
+-.2 G 3.198(di).15 G(n)-3.198 E F3(\214leName)3.198 E F0 .698(by the)
+3.198 F F3(dump)3.198 E F0(primiti)3.198 E .998 -.15(ve \()-.25 H .698
+(Note: F).15 F .698(or no)-.15 F -.65(w,)-.25 G F3(dump)3.848 E F0 -.1
+(wo)3.198 G(rks).1 E
+(only on SunOS 4.1.x, Linux 1.x \(a.out format\) and FreeBSD\).)183
+477.6 Q F2(\255cells)108 494.4 Q F3(number)2.5 E F0 .183(Set the def)
+17.92 F .183(ault size for the heap to)-.1 F F3(number)2.683 E F0 .183
+(cells. The gi)2.683 F -.15(ve)-.25 G 2.683(nn).15 G .183
+(umber is also the amount of)-2.683 F(cells used when e)183 506.4 Q
+(xtending the heap. Def)-.15 E(ault v)-.1 E(alue is 20000.)-.25 E F2
+(\255interacti)108 523.2 Q -.1(ve)-.1 G F0 -.7(Te)24.06 G
+(ll the interpreter that it is used interacti).7 E -.15(ve)-.25 G
+(ly \(e).15 E -.15(ve)-.25 G 2.5(ni).15 G 2.5(fi)-2.5 G 2.5(td)-2.5 G
+(oesn')-2.5 E 2.5(tt)-.18 G(hink so\).)-2.5 E F2(\255help)108 540 Q F0
+(Print a summary of the command-line options and e)50.96 E(xit.)-.15 E
+F2 1.666<adad>108 556.8 S F0 -.15(Pa)60.268 G 1.029(ss all remaining ar)
+.15 F 1.029(guments through to the script')-.18 F(s)-.55 E F2(ar)3.529 E
+(gv)-.1 E F0 -.25(va)3.529 G 1.029(riable without interpreting).25 F
+4.36(them. This)183 568.8 R(pro)4.36 E 1.859
+(vides a mechanism for passing ar)-.15 F 1.859(guments such as)-.18 F F2
+(\255name)4.359 E F0 1.859(to a script)4.359 F(instead of ha)183 580.8 Q
+(ving)-.2 E F2(wish)2.5 E F0(interpret them.)2.5 E .4 LW 64.5 585.3 64.5
+595.3 DL 64.5 575.3 64.5 585.3 DL 64.5 565.3 64.5 575.3 DL 64.5 555.3
+64.5 565.3 DL 64.5 545.3 64.5 555.3 DL 64.5 535.3 64.5 545.3 DL 64.5
+525.3 64.5 535.3 DL 64.5 515.3 64.5 525.3 DL 64.5 505.3 64.5 515.3 DL
+64.5 495.3 64.5 505.3 DL 64.5 485.3 64.5 495.3 DL 64.5 475.3 64.5 485.3
+DL 64.5 465.3 64.5 475.3 DL 64.5 455.3 64.5 465.3 DL 64.5 445.3 64.5
+455.3 DL 64.5 435.3 64.5 445.3 DL 64.5 425.3 64.5 435.3 DL 64.5 415.3
+64.5 425.3 DL 64.5 405.3 64.5 415.3 DL 64.5 395.3 64.5 405.3 DL 64.5
+385.3 64.5 395.3 DL 64.5 375.3 64.5 385.3 DL 64.5 365.3 64.5 375.3 DL
+64.5 355.3 64.5 365.3 DL 64.5 345.3 64.5 355.3 DL 64.5 335.3 64.5 345.3
+DL 64.5 325.3 64.5 335.3 DL 64.5 315.3 64.5 325.3 DL 64.5 305.3 64.5
+315.3 DL 64.5 295.3 64.5 305.3 DL 64.5 285.3 64.5 295.3 DL 64.5 275.3
+64.5 285.3 DL 64.5 265.3 64.5 275.3 DL 64.5 255.3 64.5 265.3 DL 64.5
+245.3 64.5 255.3 DL 64.5 235.3 64.5 245.3 DL 64.5 225.3 64.5 235.3 DL
+64.5 215.3 64.5 225.3 DL 64.5 205.3 64.5 215.3 DL 64.5 195.3 64.5 205.3
+DL 64.5 185.3 64.5 195.3 DL 64.5 175.3 64.5 185.3 DL 64.5 165.3 64.5
+175.3 DL 64.5 155.3 64.5 165.3 DL 64.5 145.3 64.5 155.3 DL 64.5 135.3
+64.5 145.3 DL 64.5 125.3 64.5 135.3 DL 64.5 115.3 64.5 125.3 DL 64.5
+105.3 64.5 115.3 DL 64.5 95.3 64.5 105.3 DL 64.5 85.3 64.5 95.3 DL 64.5
+75.3 64.5 85.3 DL 64.5 74.5 64.5 84.5 DL 69.5 74.5 64.5 74.5 DL 72.5
+74.5 67.5 74.5 DL 77.5 74.5 72.5 74.5 DL 82.5 74.5 77.5 74.5 DL 87.5
+74.5 82.5 74.5 DL 92.5 74.5 87.5 74.5 DL 97.5 74.5 92.5 74.5 DL 102.5
+74.5 97.5 74.5 DL 107.5 74.5 102.5 74.5 DL 112.5 74.5 107.5 74.5 DL
+117.5 74.5 112.5 74.5 DL 122.5 74.5 117.5 74.5 DL 127.5 74.5 122.5 74.5
+DL 132.5 74.5 127.5 74.5 DL 137.5 74.5 132.5 74.5 DL 142.5 74.5 137.5
+74.5 DL 147.5 74.5 142.5 74.5 DL 152.5 74.5 147.5 74.5 DL 157.5 74.5
+152.5 74.5 DL 162.5 74.5 157.5 74.5 DL 167.5 74.5 162.5 74.5 DL 172.5
+74.5 167.5 74.5 DL 177.5 74.5 172.5 74.5 DL 182.5 74.5 177.5 74.5 DL
+187.5 74.5 182.5 74.5 DL 192.5 74.5 187.5 74.5 DL 197.5 74.5 192.5 74.5
+DL 202.5 74.5 197.5 74.5 DL 207.5 74.5 202.5 74.5 DL 212.5 74.5 207.5
+74.5 DL 217.5 74.5 212.5 74.5 DL 222.5 74.5 217.5 74.5 DL 227.5 74.5
+222.5 74.5 DL 232.5 74.5 227.5 74.5 DL 237.5 74.5 232.5 74.5 DL 242.5
+74.5 237.5 74.5 DL 247.5 74.5 242.5 74.5 DL 252.5 74.5 247.5 74.5 DL
+257.5 74.5 252.5 74.5 DL 262.5 74.5 257.5 74.5 DL 267.5 74.5 262.5 74.5
+DL 272.5 74.5 267.5 74.5 DL 277.5 74.5 272.5 74.5 DL 282.5 74.5 277.5
+74.5 DL 287.5 74.5 282.5 74.5 DL 292.5 74.5 287.5 74.5 DL 297.5 74.5
+292.5 74.5 DL 302.5 74.5 297.5 74.5 DL 307.5 74.5 302.5 74.5 DL 312.5
+74.5 307.5 74.5 DL 317.5 74.5 312.5 74.5 DL 322.5 74.5 317.5 74.5 DL
+327.5 74.5 322.5 74.5 DL 332.5 74.5 327.5 74.5 DL 337.5 74.5 332.5 74.5
+DL 342.5 74.5 337.5 74.5 DL 347.5 74.5 342.5 74.5 DL 352.5 74.5 347.5
+74.5 DL 357.5 74.5 352.5 74.5 DL 362.5 74.5 357.5 74.5 DL 367.5 74.5
+362.5 74.5 DL 372.5 74.5 367.5 74.5 DL 377.5 74.5 372.5 74.5 DL 382.5
+74.5 377.5 74.5 DL 387.5 74.5 382.5 74.5 DL 392.5 74.5 387.5 74.5 DL
+397.5 74.5 392.5 74.5 DL 402.5 74.5 397.5 74.5 DL 407.5 74.5 402.5 74.5
+DL 412.5 74.5 407.5 74.5 DL 417.5 74.5 412.5 74.5 DL 422.5 74.5 417.5
+74.5 DL 427.5 74.5 422.5 74.5 DL 432.5 74.5 427.5 74.5 DL 437.5 74.5
+432.5 74.5 DL 442.5 74.5 437.5 74.5 DL 447.5 74.5 442.5 74.5 DL 452.5
+74.5 447.5 74.5 DL 457.5 74.5 452.5 74.5 DL 462.5 74.5 457.5 74.5 DL
+467.5 74.5 462.5 74.5 DL 472.5 74.5 467.5 74.5 DL 477.5 74.5 472.5 74.5
+DL 482.5 74.5 477.5 74.5 DL 487.5 74.5 482.5 74.5 DL 492.5 74.5 487.5
+74.5 DL 497.5 74.5 492.5 74.5 DL 502.5 74.5 497.5 74.5 DL 507.5 74.5
+502.5 74.5 DL 512.5 74.5 507.5 74.5 DL 517.5 74.5 512.5 74.5 DL 522.5
+74.5 517.5 74.5 DL 527.5 74.5 522.5 74.5 DL 532.5 74.5 527.5 74.5 DL
+537.5 74.5 532.5 74.5 DL 542.5 74.5 537.5 74.5 DL 547.5 74.5 542.5 74.5
+DL 547.5 74.5 547.5 84.5 DL 547.5 75.3 547.5 85.3 DL 547.5 85.3 547.5
+95.3 DL 547.5 95.3 547.5 105.3 DL 547.5 105.3 547.5 115.3 DL 547.5 115.3
+547.5 125.3 DL 547.5 125.3 547.5 135.3 DL 547.5 135.3 547.5 145.3 DL
+547.5 145.3 547.5 155.3 DL 547.5 155.3 547.5 165.3 DL 547.5 165.3 547.5
+175.3 DL 547.5 175.3 547.5 185.3 DL 547.5 185.3 547.5 195.3 DL 547.5
+195.3 547.5 205.3 DL 547.5 205.3 547.5 215.3 DL 547.5 215.3 547.5 225.3
+DL 547.5 225.3 547.5 235.3 DL 547.5 235.3 547.5 245.3 DL 547.5 245.3
+547.5 255.3 DL 547.5 255.3 547.5 265.3 DL 547.5 265.3 547.5 275.3 DL
+547.5 275.3 547.5 285.3 DL 547.5 285.3 547.5 295.3 DL 547.5 295.3 547.5
+305.3 DL 547.5 305.3 547.5 315.3 DL 547.5 315.3 547.5 325.3 DL 547.5
+325.3 547.5 335.3 DL 547.5 335.3 547.5 345.3 DL 547.5 345.3 547.5 355.3
+DL 547.5 355.3 547.5 365.3 DL 547.5 365.3 547.5 375.3 DL 547.5 375.3
+547.5 385.3 DL 547.5 385.3 547.5 395.3 DL 547.5 395.3 547.5 405.3 DL
+547.5 405.3 547.5 415.3 DL 547.5 415.3 547.5 425.3 DL 547.5 425.3 547.5
+435.3 DL 547.5 435.3 547.5 445.3 DL 547.5 445.3 547.5 455.3 DL 547.5
+455.3 547.5 465.3 DL 547.5 465.3 547.5 475.3 DL 547.5 475.3 547.5 485.3
+DL 547.5 485.3 547.5 495.3 DL 547.5 495.3 547.5 505.3 DL 547.5 505.3
+547.5 515.3 DL 547.5 515.3 547.5 525.3 DL 547.5 525.3 547.5 535.3 DL
+547.5 535.3 547.5 545.3 DL 547.5 545.3 547.5 555.3 DL 547.5 555.3 547.5
+565.3 DL 547.5 565.3 547.5 575.3 DL 547.5 575.3 547.5 585.3 DL 547.5
+585.3 547.5 595.3 DL 69.5 595.3 64.5 595.3 DL 72.5 595.3 67.5 595.3 DL
+77.5 595.3 72.5 595.3 DL 82.5 595.3 77.5 595.3 DL 87.5 595.3 82.5 595.3
+DL 92.5 595.3 87.5 595.3 DL 97.5 595.3 92.5 595.3 DL 102.5 595.3 97.5
+595.3 DL 107.5 595.3 102.5 595.3 DL 112.5 595.3 107.5 595.3 DL 117.5
+595.3 112.5 595.3 DL 122.5 595.3 117.5 595.3 DL 127.5 595.3 122.5 595.3
+DL 132.5 595.3 127.5 595.3 DL 137.5 595.3 132.5 595.3 DL 142.5 595.3
+137.5 595.3 DL 147.5 595.3 142.5 595.3 DL 152.5 595.3 147.5 595.3 DL
+157.5 595.3 152.5 595.3 DL 162.5 595.3 157.5 595.3 DL 167.5 595.3 162.5
+595.3 DL 172.5 595.3 167.5 595.3 DL 177.5 595.3 172.5 595.3 DL 182.5
+595.3 177.5 595.3 DL 187.5 595.3 182.5 595.3 DL 192.5 595.3 187.5 595.3
+DL 197.5 595.3 192.5 595.3 DL 202.5 595.3 197.5 595.3 DL 207.5 595.3
+202.5 595.3 DL 212.5 595.3 207.5 595.3 DL 217.5 595.3 212.5 595.3 DL
+222.5 595.3 217.5 595.3 DL 227.5 595.3 222.5 595.3 DL 232.5 595.3 227.5
+595.3 DL 237.5 595.3 232.5 595.3 DL 242.5 595.3 237.5 595.3 DL 247.5
+595.3 242.5 595.3 DL 252.5 595.3 247.5 595.3 DL 257.5 595.3 252.5 595.3
+DL 262.5 595.3 257.5 595.3 DL 267.5 595.3 262.5 595.3 DL 272.5 595.3
+267.5 595.3 DL 277.5 595.3 272.5 595.3 DL 282.5 595.3 277.5 595.3 DL
+287.5 595.3 282.5 595.3 DL 292.5 595.3 287.5 595.3 DL 297.5 595.3 292.5
+595.3 DL 302.5 595.3 297.5 595.3 DL 307.5 595.3 302.5 595.3 DL 312.5
+595.3 307.5 595.3 DL 317.5 595.3 312.5 595.3 DL 322.5 595.3 317.5 595.3
+DL 327.5 595.3 322.5 595.3 DL 332.5 595.3 327.5 595.3 DL 337.5 595.3
+332.5 595.3 DL 342.5 595.3 337.5 595.3 DL 347.5 595.3 342.5 595.3 DL
+352.5 595.3 347.5 595.3 DL 357.5 595.3 352.5 595.3 DL 362.5 595.3 357.5
+595.3 DL 367.5 595.3 362.5 595.3 DL 372.5 595.3 367.5 595.3 DL 377.5
+595.3 372.5 595.3 DL 382.5 595.3 377.5 595.3 DL 387.5 595.3 382.5 595.3
+DL 392.5 595.3 387.5 595.3 DL 397.5 595.3 392.5 595.3 DL 402.5 595.3
+397.5 595.3 DL 407.5 595.3 402.5 595.3 DL 412.5 595.3 407.5 595.3 DL
+417.5 595.3 412.5 595.3 DL 422.5 595.3 417.5 595.3 DL 427.5 595.3 422.5
+595.3 DL 432.5 595.3 427.5 595.3 DL 437.5 595.3 432.5 595.3 DL 442.5
+595.3 437.5 595.3 DL 447.5 595.3 442.5 595.3 DL 452.5 595.3 447.5 595.3
+DL 457.5 595.3 452.5 595.3 DL 462.5 595.3 457.5 595.3 DL 467.5 595.3
+462.5 595.3 DL 472.5 595.3 467.5 595.3 DL 477.5 595.3 472.5 595.3 DL
+482.5 595.3 477.5 595.3 DL 487.5 595.3 482.5 595.3 DL 492.5 595.3 487.5
+595.3 DL 497.5 595.3 492.5 595.3 DL 502.5 595.3 497.5 595.3 DL 507.5
+595.3 502.5 595.3 DL 512.5 595.3 507.5 595.3 DL 517.5 595.3 512.5 595.3
+DL 522.5 595.3 517.5 595.3 DL 527.5 595.3 522.5 595.3 DL 532.5 595.3
+527.5 595.3 DL 537.5 595.3 532.5 595.3 DL 542.5 595.3 537.5 595.3 DL
+547.5 595.3 542.5 595.3 DL F1(DESCRIPTION)72 621.6 Q F2(Stk)108 633.6 Q
+F0 .019(is a Scheme R4RS interpreter which pro)2.519 F .02
+(vide a simple access to the X11 Tk toolkit. If the)-.15 F F2(\255no-tk)
+2.52 E F0(option)2.52 E 1.378(is pro)108 645.6 R 1.378
+(vided to the interpreter)-.15 F 3.878(,t)-.4 G 1.378
+(he Tk library is not initialized and no main windo)-3.878 F 3.878(wi)
+-.25 G 3.878(sc)-3.878 G 3.878(reated. If)-3.878 F F2(stk)3.877 E F0(is)
+3.877 E(in)108 657.6 Q -.2(vo)-.4 G -.1(ke).2 G 3.009(dw).1 G .509
+(ith no)-3.009 F F2<ad66>3.009 E F0 .509(option then it reads Scheme e)
+3.009 F .509(xpressions interacti)-.15 F -.15(ve)-.25 G .51
+(ly from standard input.).15 F .51(It will con-)5.51 F .493
+(tinue processing commands until all windo)108 669.6 R .493(ws ha)-.25 F
+.793 -.15(ve b)-.2 H .492
+(een deleted or until end-of-\214le is reached on standard).15 F(input.)
+108 681.6 Q 183.58(July_1996 3.1)72 768 R(1)222.75 E EP
+%%Page: 2 2
+%%BeginPageSetup
+BP
+%%EndPageSetup
+/F0 10/Times-Roman@0 SF 408.84(STk\(1\) STk\(1\))72 48 R/F1 10
+/Times-Bold@0 SF(Sno)108 84 Q(w)-.1 E F0 .46(is a)2.96 F/F2 10
+/Times-Italic@0 SF(light)2.96 E F0 -.15(ve)2.96 G .46(rsion of the).15 F
+F1(stk)2.96 E F0 .46(interpreter which does not pro)2.96 F .46
+(vide support for the Tk toolkit. This inter)-.15 F(-)-.2 E 1.997
+(preter does not recognize the options)108 96 R F1(\255display)4.497 E
+F0(,)A F1(\255geometry)4.497 E F0(,)A F1 1.996(\255sync new-colormap)
+4.497 F F0(,)A F1(visual)4.496 E F0(and)4.496 E F1(\255no-tk)4.496 E F0
+.807(which are meaningless without Tk. This interpreter is called, rath\
+er than the standard one, when the shell)108 108 R(DISPLA)108 120 Q 2.5
+(Yv)-1.05 G(ariable is not initialized.)-2.75 E .595(If the)108 148.8 R
+F1<ad8c6c65>3.095 E F0 .595(option is pro)3.095 F .595
+(vided to Tk, then)-.15 F F1(stk)3.095 E F0 .594
+(reads Scheme forms from the \214le named in the)3.095 F F1<ad8c6c65>
+3.094 E F0(option.)3.094 E .266
+(These forms will normally create an interacti)108 160.8 R .566 -.15
+(ve i)-.25 H(nterf).15 E .266(ace consisting of one or more widgets.)-.1
+F .267(When the end)5.267 F 1.666(of the command \214le is reached,)108
+172.8 R F1(stk)4.166 E F0 1.666(will continue to respond to X e)4.166 F
+-.15(ve)-.25 G 1.666(nts until all windo).15 F 1.666(ws ha)-.25 F 1.966
+-.15(ve b)-.2 H(een).15 E(deleted.)108 184.8 Q(The)108 213.6 Q F1
+(\255interacti)3.094 E -.1(ve)-.1 G F0 .594
+(option forces the interpreter in interacti)3.194 F .895 -.15(ve m)-.25
+H .595(ode. In this mode, standard output and stan-).15 F
+(dard error are unb)108 225.6 Q(uf)-.2 E 2.5(fered. Use)-.25 F
+(this option when you launch)2.5 E F1(stk)2.5 E F0(from)2.5 E F1(emacs)
+2.5 E F0(.)A/F3 9/Times-Bold@0 SF -1.215(VA)72 266.4 S(RIABLES)1.215 E
+F0 -.15(Fo)108 278.4 S(llo).15 E(wing Scheme v)-.25 E
+(ariables are set when)-.25 E F1(Stk)2.5 E F0(starts:)2.5 E F1(*ar)108
+295.2 Q(gc*)-.1 E F0 .728(Contains a count of the number of)46.22 F F2
+(ar)3.227 E(g)-.37 E F0(ar)3.227 E .727
+(guments \(0 if none\), not including the options)-.18 F(described abo)
+183 307.2 Q -.15(ve)-.15 G(.).15 E F1(*ar)108 324 Q(gv*)-.1 E F0 .347
+(Contains a Scheme list whose elements are the)45.66 F F2(ar)2.848 E(g)
+-.37 E F0(ar)2.848 E .348(guments \(not including the options)-.18 F
+(described abo)183 336 Q -.15(ve)-.15 G(\), in order).15 E 2.5(,o)-.4 G
+2.5(ra)-2.5 G 2.5(ne)-2.5 G(mpty list if there are no)-2.5 E F2(ar)2.5 E
+(g)-.37 E F0(ar)2.5 E(guments.)-.18 E F1(*pr)108 352.8 Q(ogram-name*)
+-.18 E F0(Contains)183 364.8 Q F2(\214leName)3.442 E F0 .942(if it w)
+3.442 F .942(as speci\214ed.)-.1 F .941
+(Otherwise, contains the name by which)5.942 F F1(stk)3.441 E F0 -.1(wa)
+3.441 G(s).1 E(in)183 376.8 Q -.2(vo)-.4 G -.1(ke).2 G(d.).1 E F3
+(SCRIPT FILES)72 417.6 Q F0
+(If you create a STk script in a \214le whose \214rst line is)108 429.6
+Q F1(#!/usr/local/bin/stk -f)144 453.6 Q F0 .438(then you can in)108
+477.6 R -.2(vo)-.4 G .638 -.1(ke t).2 H .438
+(he script \214le directly from your shell if you mark it as e).1 F -.15
+(xe)-.15 G 2.939(cutable. This).15 F .439(assumes that)2.939 F F1(stk)
+108 489.6 Q F0 .832(has been installed in the def)3.332 F .832
+(ault location in /usr/local/bin;)-.1 F .832(if it')5.832 F 3.332(si)
+-.55 G .832(nstalled some)-3.332 F .831(where else then you')-.25 F(ll)
+-.1 E(ha)108 501.6 Q .3 -.15(ve t)-.2 H 2.5(om).15 G(odify the abo)-2.5
+E .3 -.15(ve l)-.15 H(ine to match.).15 E F3(ENVIR)72 530.4 Q(ONMENT V)
+-.27 E(ARIABLES)-1.215 E F1(stk)108 542.4 Q F0(uses the follo)2.5 E
+(wing shell v)-.25 E(ariables:)-.25 E F2(STK_LIBRAR)108 559.2 Q(Y)-.18 E
+F0 .896(This v)14.06 F .897
+(ariable indicates where the library \214les are located. This v)-.25 F
+.897(ariable allo)-.25 F .897(ws to o)-.25 F -.15(ve)-.15 G -.2(r-).15 G
+.189(load the def)183 571.2 R .189(ault v)-.1 F .188
+(alue of the Scheme v)-.25 F(ariable)-.25 E F2(*stk-libr)2.688 E(ary*)
+-.15 E F0 .188(which is automatically calcu-)2.688 F
+(lated by the interpreter)183 583.2 Q(.\(i.e.)-.55 E F2(stk)2.5 E F0(or)
+2.5 E F2(snow)2.5 E F0(\).)A F2(STK_LO)108 600 Q(AD_P)-.55 E -.37(AT)-.9
+G(H).37 E F0 .525(This v)183 612 R .525(ariable serv)-.25 F .525
+(es to initialize the)-.15 F F2(*load-path*)3.025 E F0 .525(Scheme v)
+3.025 F .526(ariable. This v)-.25 F .526(ariable is a list)-.25 F
+(of paths to try when in a load command.)183 624 Q F2(STK_HELP_P)108
+640.8 Q -.37(AT)-.9 G(H).37 E F0 .677(This v)183 652.8 R .677
+(ariable serv)-.25 F .677(es to initialize the)-.15 F F2(*help-path*)
+3.177 E F0 .677(Scheme v)3.177 F .677(ariable. It must contain a list)
+-.25 F(of documentation directories. This v)183 664.8 Q
+(ariable is used by the help procedure.)-.25 E 183.58(July_1996 3.1)72
+768 R(2)222.75 E EP
+%%Page: 3 3
+%%BeginPageSetup
+BP
+%%EndPageSetup
+/F0 10/Times-Roman@0 SF 408.84(STk\(1\) STk\(1\))72 48 R/F1 9
+/Times-Bold@0 SF(FILES)72 84 Q/F2 10/Times-Italic@0 SF(./init.stk)108 96
+Q($STK_LIBRAR)108 112.8 Q(Y/STk/init.stk)-.18 E F0(When)183 124.8 Q/F3
+10/Times-Bold@0 SF(stk)2.69 E F0 .19
+(starts running, it tries to load the \214le)2.69 F F2(init.stk)2.69 E
+F0 .19(in the current directory)2.69 F 2.69(.I)-.65 G 2.69(ft)-2.69 G
+.19(his \214le)-2.69 F 1.582
+(is not present, it tries to load this \214le in the)183 136.8 R F3
+(STk_LIBRAR)4.081 E(Y)-.35 E F0 1.581(directory \(the v)4.081 F 1.581
+(alue of)-.25 F F3(STk_LIBRAR)183 148.8 Q(Y)-.35 E F0 .244(is automatic\
+ally computed to be in a sibling directory of the interpreter)2.744 F
+-.15(exe)183 160.8 S(cutable.).15 E F2(~/.stkr)108 189.6 Q(c)-.37 E F0
+(Standard)47.32 E F2(init.stk)3.223 E F0 .723
+(\214le tries to load the \214le)3.223 F F2(~/.stkr)3.223 E(c)-.37 E F0
+3.222(.T)C .722(his \214le can be used to store function)-3.222 F .148
+(de\214nitions or v)183 201.6 R .148(ariables settings that you w)-.25 F
+.149(ant to be e)-.1 F -.15(xe)-.15 G .149
+(cuted at each interpretater in).15 F -.2(vo)-.4 G(ca-).2 E(tion.)183
+213.6 Q F1(SEE ALSO)72 242.4 Q F0(wish\(1\))108 254.4 Q 183.58
+(July_1996 3.1)72 768 R(3)222.75 E EP
+%%Trailer
+end
+%%EOF
diff --git a/Doc/Manual/stk.txt b/Doc/Manual/stk.txt
new file mode 100644
index 0000000..0bdb405
--- /dev/null
+++ b/Doc/Manual/stk.txt
@@ -0,0 +1,264 @@
+
+
+
+STk(1)                                                     STk(1)
+
+
+_________________________________________________________________
+
+NNAAMMEE
+       stk, snow - A Scheme interpreter using the Tk toolkit
+
+SSYYNNOOPPSSIISS
+       ssttkk  [_o_p_t_i_o_n_s] [_a_r_g _a_r_g _._._.]
+       ssnnooww [_o_p_t_i_o_n_s] [_a_r_g _a_r_g _._._.]
+
+OOPPTTIIOONNSS
+       ssttkk interpreter accepts several command-line options which
+       may be abbreviated, as long as the abbreviation  is  unam­
+       biguous  (e.g.  --hh,  --hhee, --hheell are three possibe abbrevia­
+       tions for the --hheellpp option).
+
+
+       --ddiissppllaayy _d_i_s_p_l_a_y
+                      Display (and screen) on  which  to  display
+                      window.
+
+       --ffiillee _f_i_l_e_N_a_m_e Read  commands  from  _f_i_l_e_N_a_m_e  rather than
+                      standard input.  The last element in  _f_i_l_e_­
+                      _N_a_m_e  will  be  used  as  the title for the
+                      application and name of its interpreter for
+                      sseenndd  commands  (unless  overridden  by the
+                      --nnaammee option).
+
+       --ggeeoommeettrryy _g_e_o_m_e_t_r_y
+                      Initial geometry to use for window.
+
+       --nnaammee _n_a_m_e     Use _n_a_m_e as the title to  be  displayed  in
+                      the  window,  and as the name of the inter­
+                      preter for sseenndd commands.
+
+       --nneeww--ccoolloorrmmaapp  Specifies that the main window should  have
+                      a new private colormap instead of using the
+                      default colormap for the screen.
+
+       --ssyynncc          Execute  all   X   server   commands   syn­
+                      chronously,  so  that  errors  are reported
+                      immediately.   This  will  result  in  much
+                      slower  execution,  but  it  is  useful for
+                      debugging.
+
+       --vviissuuaall _v_i_s_u_a_l Specifies the visual to use  for  the  win­
+                      dow._V_i_s_u_a_l  may  be  one  of the following:
+                      _b_e_s_t,  _d_i_r_e_c_t_c_o_l_o_r,  _g_r_a_y_s_c_a_l_e,  _g_r_e_y_s_c_a_l_e,
+                      _p_s_e_u_d_o_c_o_l_o_r, _s_t_a_t_i_c_c_o_l_o_r, _s_t_a_t_i_c_g_r_a_y, _s_t_a_t_­
+                      _i_c_g_r_e_y, _t_r_u_e_c_o_l_o_r, or _d_e_f_a_u_l_t
+
+       --nnoo--ttkk         Don't initialize the Tk toolkit
+
+       --llooaadd _f_i_l_e_N_a_m_e Evaluate expressions contained in  _f_i_l_e_N_a_m_e
+                      before  reading  expressions  from standard
+
+
+
+July_1996                      3.1                              1
+
+
+
+
+
+STk(1)                                                     STk(1)
+
+
+                      input.
+
+       --iimmaaggee _f_i_l_e_N_a_m_e
+                      Restore the state saved in _f_i_l_e_N_a_m_e by  the
+                      _d_u_m_p  primitive  (Note: For now, _d_u_m_p works
+                      only on SunOS 4.1.x, Linux 1.x (a.out  for­
+                      mat) and FreeBSD).
+
+       --cceellllss _n_u_m_b_e_r  Set the default size for the heap to _n_u_m_b_e_r
+                      cells. The given number is also the  amount
+                      of  cells  used  when  extending  the heap.
+                      Default value is 20000.
+
+       --iinntteerraaccttiivvee   Tell the interpreter that it is used inter­
+                      actively (even if it doesn't think so).
+
+       --hheellpp          Print a summary of the command-line options
+                      and exit.
+
+       ----             Pass all remaining arguments through to the
+                      script's aarrggvv variable without interpreting
+                      them.  This provides a mechanism for  pass­
+                      ing  arguments  such  as  --nnaammee to a script
+                      instead of having wwiisshh interpret them.
+_________________________________________________________________
+
+
+DDEESSCCRRIIPPTTIIOONN
+       SSttkk is a Scheme R4RS interpreter which  provide  a  simple
+       access to the X11 Tk toolkit. If the --nnoo--ttkk option is pro­
+       vided to the interpreter, the Tk library is  not  initial­
+       ized  and  no  main  window is created.  If ssttkk is invoked
+       with no --ff option then it reads Scheme expressions  inter­
+       actively from standard input.  It will continue processing
+       commands until all windows have been deleted or until end-
+       of-file is reached on standard input.
+
+
+       SSnnooww  is a _l_i_g_h_t version of the ssttkk interpreter which does
+       not provide support for the Tk toolkit.  This  interpreter
+       does  not recognize the options --ddiissppllaayy, --ggeeoommeettrryy, --ssyynncc
+       nneeww--ccoolloorrmmaapp, vviissuuaall  and  --nnoo--ttkk  which  are  meaningless
+       without  Tk.  This  interpreter is called, rather than the
+       standard one, when the shell DISPLAY variable is not  ini­
+       tialized.
+
+
+       If  the  --ffiillee  option  is  provided to Tk, then ssttkk reads
+       Scheme forms from the file  named  in  the  --ffiillee  option.
+       These  forms will normally create an interactive interface
+       consisting of one or more widgets.  When the  end  of  the
+       command file is reached, ssttkk will continue to respond to X
+       events until all windows have been deleted.
+
+
+
+
+July_1996                      3.1                              2
+
+
+
+
+
+STk(1)                                                     STk(1)
+
+
+       The --iinntteerraaccttiivvee option forces the interpreter in interac­
+       tive  mode.  In  this  mode,  standard output and standard
+       error are unbuffered.  Use this option when you launch ssttkk
+       from eemmaaccss.
+
+
+
+VVAARRIIAABBLLEESS
+       Following Scheme variables are set when SSttkk starts:
+
+       **aarrggcc**         Contains a count of the number of _a_r_g argu­
+                      ments  (0  if  none),  not  including   the
+                      options described above.
+
+       **aarrggvv**         Contains  a  Scheme list whose elements are
+                      the  _a_r_g  arguments  (not   including   the
+                      options  described  above), in order, or an
+                      empty list if there are no _a_r_g arguments.
+
+       **pprrooggrraamm--nnaammee** Contains  _f_i_l_e_N_a_m_e  if  it  was  specified.
+                      Otherwise,  contains  the name by which ssttkk
+                      was invoked.
+
+
+
+SSCCRRIIPPTT FFIILLEESS
+       If you create a STk script in a file whose first line is
+
+              ##!!//uussrr//llooccaall//bbiinn//ssttkk --ff
+
+       then you can invoke the script  file  directly  from  your
+       shell if you mark it as executable.  This assumes that ssttkk
+       has  been   installed   in   the   default   location   in
+       /usr/local/bin;   if  it's  installed  somewhere else then
+       you'll have to modify the above line to match.
+
+
+EENNVVIIRROONNMMEENNTT VVAARRIIAABBLLEESS
+       ssttkk uses the following shell variables:
+
+       _S_T_K___L_I_B_R_A_R_Y    This variable indicates where  the  library
+                      files  are located. This variable allows to
+                      overload the default value  of  the  Scheme
+                      variable  _*_s_t_k_-_l_i_b_r_a_r_y_*  which is automati­
+                      cally calculated by  the  interpreter.(i.e.
+                      _s_t_k or _s_n_o_w).
+
+       _S_T_K___L_O_A_D___P_A_T_H  This  variable  serves  to  initialize  the
+                      _*_l_o_a_d_-_p_a_t_h_* Scheme variable. This  variable
+                      is  a  list  of paths to try when in a load
+                      command.
+
+       _S_T_K___H_E_L_P___P_A_T_H  This  variable  serves  to  initialize  the
+                      _*_h_e_l_p_-_p_a_t_h_*   Scheme   variable.   It  must
+
+
+
+July_1996                      3.1                              3
+
+
+
+
+
+STk(1)                                                     STk(1)
+
+
+                      contain a list  of  documentation  directo­
+                      ries.  This  variable  is  used by the help
+                      procedure.
+
+
+
+FFIILLEESS
+       _._/_i_n_i_t_._s_t_k
+
+       _$_S_T_K___L_I_B_R_A_R_Y_/_S_T_k_/_i_n_i_t_._s_t_k
+                      When ssttkk starts running, it tries  to  load
+                      the file _i_n_i_t_._s_t_k in the current directory.
+                      If this file is not present,  it  tries  to
+                      load this file in the SSTTkk__LLIIBBRRAARRYY directory
+                      (the value of SSTTkk__LLIIBBRRAARRYY is  automatically
+                      computed  to  be  in a sibling directory of
+                      the interpreter executable.
+
+
+       _~_/_._s_t_k_r_c       Standard _i_n_i_t_._s_t_k file tries  to  load  the
+                      file  _~_/_._s_t_k_r_c.  This  file  can be used to
+                      store  function  definitions  or  variables
+                      settings  that  you  want to be executed at
+                      each interpretater invocation.
+
+
+SSEEEE AALLSSOO
+       wish(1)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+July_1996                      3.1                              4
+
+
diff --git a/Doc/Manual/text.n b/Doc/Manual/text.n
new file mode 100644
index 0000000..b78c92b
--- /dev/null
+++ b/Doc/Manual/text.n
@@ -0,0 +1,1499 @@
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) text.n 1.56 95/08/12 17:35:15
+'\" 
+.so STk-man.macros
+.TH text n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+text \- Create and manipulate text widgets
+.SH SYNOPSIS
+(\fBtext\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:background	:highlightbackground	:insertontime	:selectborderwidth
+:borderwidth	:highlightcolor	:insertwidth	:selectforeground
+:cursor	:highlightthickness	:padx	:setgrid
+:exportselection	:insertbackground	:pady	:takefocus
+:font	:insertborderwidth	:relief	:xscrollcommand
+:foreground	:insertofftime	:selectbackground	:yscrollcommand
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :height height Height height
+Specifies the desired height for the window, in units of characters
+in the font given by the \fB:font\fR option.
+Must be at least one.
+.OP :spacing1 spacing1 Spacing1 spacing1
+Requests additional space above each text line in the widget,
+using any of the standard forms for screen distances.
+If a line wraps, this option only applies to the first line
+on the display.
+This option may be overriden with \fB:spacing1\fR options in
+tags.
+.OP :spacing2 spacing2 Spacing2 spacing2
+For lines that wrap (so that they cover more than one line on the
+display) this option specifies additional space to provide between
+the display lines that represent a single line of text.
+The value may have any of the standard forms for screen distances.
+This option may be overriden with \fB:spacing2\fR options in
+tags.
+.OP :spacing3 spacing3 Spacing3 spacing3
+Requests additional space below each text line in the widget,
+using any of the standard forms for screen distances.
+If a line wraps, this option only applies to the last line
+on the display.
+This option may be overriden with \fB:spacing3\fR options in
+tags.
+.OP :state state State state
+Specifies one of two states for the text:  \fBnormal\fR or \fBdisabled\fR.
+If the text is disabled then characters may not be inserted or deleted
+and no insertion cursor will be displayed, even if the input focus is
+in the widget.
+.OP :tabs tabs Tabs tabs
+Specifies a set of tab stops for the window.  The option's value consists
+of a list of screen distances giving the positions of the tab stops.  Each
+position may optionally be followed in the next list element
+by one of the keywords \fBleft\fR, \fBright\fR, \fBcenter\fR,
+or \fBnumeric\fR, which specifies how to justify
+text relative to the tab stop.  \fBLeft\fR is the default; it causes
+the text following the tab character to be positioned with its left edge
+at the tab position.  \fBRight\fR means that the right edge of the text
+following the tab character is positioned at the tab position, and
+\fBcenter\fR means that the text is centered at the tab position.
+\fBNumeric\fR means that the decimal point in the text is positioned
+at the tab position;  if there is no decimal point then the least
+significant digit of the number is positioned just to the left of the
+tab position;  if there is no number in the text then the text is
+right-justified at the tab position.
+For example, \fB:tabs `(2c left 4c 6c center)\fR creates three
+tab stops at two-centimeter intervals;  the first two use left
+justification and the third uses center justification.
+If the list of tab stops does not have enough elements to cover all
+of the tabs in a text line, then Tk extrapolates new tab stops using
+the spacing and alignment from the last tab stop in the list.
+The value of the \fBtabs\fR option may be overridden by \fB:tabs\fR
+options in tags.
+If no \fB:tabs\fR option is specified, or if it is specified as
+an empty list, then Tk uses default tabs spaced every eight
+(average size) characters.
+.OP :width width Width width
+Specifies the desired width for the window in units of characters
+in the font given by the \fB:font\fR option.
+If the font doesn't have a uniform width then the width of the
+character ``0'' is used in translating from character units to
+screen units.
+.OP :wrap wrap Wrap wrap
+Specifies how to handle lines in the text that are too long to be
+displayed in a single line of the text's window.
+The value must be \fBnone\fR or \fBchar\fR or \fBword\fR.
+A wrap mode of \fBnone\fR means that each line of text appears as
+exactly one line on the screen;  extra characters that don't fit
+on the screen are not displayed.
+In the other modes each line of text will be broken up into several
+screen lines if necessary to keep all the characters visible.
+In \fBchar\fR mode a screen line break may occur after any character;
+in \fBword\fR mode a line break will only be made at word boundaries.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBtext\fR procedure creates a new window (given by the
+\fIwidget\-name\fR argument) and makes it into a text widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the text such as its default background color
+and relief.  The \fBtext\fR procedure returns the
+path name of the new window.
+.PP
+A text widget displays one or more lines of text and allows that
+text to be edited.
+Text widgets support three different kinds of annotations on the
+text, called tags, marks, and embedded windows.
+Tags allow different portions of the text
+to be displayed with different fonts and colors.
+In addition, STk procedures can be associated with tags so
+that scripts are invoked when particular actions such as keystrokes
+and mouse button presses occur in particular ranges of the text.
+See TAGS below for more details.
+.PP
+The second form of annotation consists of marks, which are floating
+markers in the text.
+Marks are used to keep track of various interesting positions in the
+text as it is edited.
+See MARKS below for more details.
+.PP
+The third form of annotation allows arbitrary windows to be
+embedded in a text widget.
+See EMBEDDED WINDOWS below for more details.
+
+.SH INDICES
+.PP
+Many of the widget procedures for texts take one or more indices
+as arguments.
+An index is a string used to indicate a particular place within
+a text, such as a place to insert characters or one endpoint of a
+range of characters to delete.
+Indices have the syntax
+.CS
+\fIbase modifier modifier modifier ...\fR
+.CE
+Where \fIbase\fR gives a starting point and the \fImodifier\fRs
+adjust the index from the starting point (e.g. move forward or
+backward one character).  Every index must contain a \fIbase\fR,
+but the \fImodifier\fRs are optional.
+.PP
+The \fIbase\fR for an index must have one of the following forms:
+.TP 12
+\fIline\fB.\fIchar\fR
+.TP 12
+(\fIline\fB . \fIchar\fR)
+Indicates \fIchar\fR'th character on line \fIline\fR.
+Lines are numbered from 1 for consistency with other UNIX programs
+that use this numbering scheme.
+Within a line, characters are numbered from 0.
+.TP 12
+\fB@\fIx\fB,\fIy\fR
+Indicates the character that covers the pixel whose x and y coordinates
+within the text's window are \fIx\fR and \fIy\fR.
+.TP 12
+\fBend\fR
+Indicates the end of the text (the character just after the last
+newline).
+.TP 12
+\fImark\fR
+Indicates the character just after the mark whose name is \fImark\fR.
+.TP 12
+\fItag\fB.first\fR
+Indicates the first character in the text that has been tagged with
+\fItag\fR.
+This form generates an error if no characters are currently tagged
+with \fItag\fR.
+.TP 12
+\fItag\fB.last\fR
+Indicates the character just after the last one in the text that has
+been tagged with \fItag\fR.
+This form generates an error if no characters are currently tagged
+with \fItag\fR.
+.TP 12
+\fIwidget\-name\fR
+Indicates the position of the embedded window whose name is
+\fIwidget\-name\fR.
+This form generates an error if there is no embedded window
+by the given name.
+.PP
+If modifiers follow the base index, each one of them must have one
+of the forms listed below.  Keywords such as \fBchars\fR and \fBwordend\fR
+may be abbreviated as long as the abbreviation is unambiguous.
+.TP
+\fB+ \fIcount\fB chars\fR
+Adjust the index forward by \fIcount\fR characters, moving to later
+lines in the text if necessary.  If there are fewer than \fIcount\fR
+characters in the text after the current index, then set the index
+to the last character in the text.
+Spaces on either side of \fIcount\fR are optional.
+.TP
+\fB: \fIcount\fB chars\fR
+Adjust the index backward by \fIcount\fR characters, moving to earlier
+lines in the text if necessary.  If there are fewer than \fIcount\fR
+characters in the text before the current index, then set the index
+to the first character in the text.
+Spaces on either side of \fIcount\fR are optional.
+.TP
+\fB+ \fIcount\fB lines\fR
+Adjust the index forward by \fIcount\fR lines, retaining the same
+character position within the line.  If there are fewer than \fIcount\fR
+lines after the line containing the current index, then set the index
+to refer to the same character position on the last line of the text.
+Then, if the line is not long enough to contain a character at the indicated
+character position, adjust the character position to refer to the last
+character of the line (the newline).
+Spaces on either side of \fIcount\fR are optional.
+.TP
+\fB- \fIcount\fB lines\fR
+Adjust the index backward by \fIcount\fR lines, retaining the same
+character position within the line.  If there are fewer than \fIcount\fR
+lines before the line containing the current index, then set the index
+to refer to the same character position on the first line of the text.
+Then, if the line is not long enough to contain a character at the indicated
+character position, adjust the character position to refer to the last
+character of the line (the newline).
+Spaces on either side of \fIcount\fR are optional.
+.TP
+\fBlinestart\fR
+Adjust the index to refer to the first character on the line.
+.TP
+\fBlineend\fR
+Adjust the index to refer to the last character on the line (the newline).
+.TP
+\fBwordstart\fR
+Adjust the index to refer to the first character of the word containing
+the current index.  A word consists of any number of adjacent characters
+that are letters, digits, or underscores, or a single character that
+is not one of these.
+.TP
+\fBwordend\fR
+Adjust the index to refer to the character just after the last one of the
+word containing the current index.  If the current index refers to the last
+character of the text then it is not modified.
+.PP
+If more than one modifier is present then they are applied in
+left-to-right order.  For example, the index ``\fBend \- 1 chars\fR''
+refers to the next-to-last character in the text and
+``\fBinsert wordstart \- 1 c\fR'' refers to the character just before
+the first one in the word containing the insertion cursor.
+.SH TAGS
+.PP
+The first form of annotation in text widgets is a tag.
+A tag is a textual string that is associated with some of the characters
+in a text.
+Tags may contain arbitrary characters, but it is probably best to
+avoid using the the characters `` '' (space), \fB+\fR, or \fB:\fR:
+these characters have special meaning in indices, so tags containing
+them can't be used as indices.
+There may be any number of tags associated with characters in a
+text.
+Each tag may refer to a single character, a range of characters, or
+several ranges of characters.
+An individual character may have any number of tags associated with it.
+.PP
+A priority order is defined among tags, and this order is used in
+implementing some of the tag-related functions described below.
+When a tag is defined (by associating it with characters or setting
+its display options or binding procedures to it), it is given
+a priority higher than any existing tag.
+The priority order of tags may be redefined using the
+``\fIwidget\-name \fB'tag 'raise\fR'' and ``\fIwidget\-name \fB'tag 'lower\fR''
+widget procedures.
+.PP
+Tags serve three purposes in text widgets.
+First, they control the way information is displayed on the screen.
+By default, characters are displayed as determined by the
+\fBbackground\fR, \fBfont\fR, and \fBforeground\fR options for the
+text widget.
+However, display options may be associated with individual tags
+using the ``\fIwidget\-name \fBtag configure\fR'' widget procedure.
+If a character has been tagged, then the display options associated
+with the tag override the default display style.
+The following options are currently supported for tags:
+.TP
+\fB:background \fIcolor\fR
+\fIColor\fR specifies the background color to use for characters
+associated with the tag.
+It may have any of the forms accepted by \fBTk_GetColor\fR.
+.TP
+\fB:bgstipple \fIbitmap\fR
+\fIBitmap\fR specifies a bitmap that is used as a stipple pattern
+for the background.
+It may have any of the forms accepted by \fBTk_GetBitmap\fR.
+If \fIbitmap\fR hasn't been specified, or if it is specified
+as an empty string, then a solid fill will be used for the
+background.
+.TP
+\fB:borderwidth \fIpixels\fR
+\fIPixels\fR specifies the width of a 3-D border to draw around
+the background.
+It may have any of the forms accepted by \fBTk_GetPixels\fR.
+This option is used in conjunction with the \fB:relief\fR
+option to give a 3-D appearance to the background for characters;
+it is ignored unless the \fB:background\fR option
+has been set for the tag.
+.TP
+\fB:fgstipple \fIbitmap\fR
+\fIBitmap\fR specifies a bitmap that is used as a stipple pattern
+when drawing text and other foreground information such as
+underlines.
+It may have any of the forms accepted by \fBTk_GetBitmap\fR.
+If \fIbitmap\fR hasn't been specified, or if it is specified
+as an empty string, then a solid fill will be used.
+.TP
+\fB:font \fIfontName\fR
+\fIFontName\fR is the name of a font to use for drawing characters.
+It may have any of the forms accepted by \fBTk_GetFontStruct\fR.
+.TP
+\fB:foreground \fIcolor\fR
+\fIColor\fR specifies the color to use when drawing text and other
+foreground information such as underlines.
+It may have any of the forms accepted by \fBTk_GetColor\fR.
+.TP
+\fB:justify \fIjustify\fR
+If the first character of a display line has a tag for which this
+option has been specified, then \fIjustify\fR determines how to
+justify the line.
+It must be one of \fBleft\fR, \fBright\fR, or \fBcenter\fR.
+If a line wraps, then the justification for each line on the
+display is determined by the first character of that display line.
+.TP
+\fB:lmargin1 \fIpixels\fR
+If the first character of a text line has a tag for which this
+option has been specified, then \fIpixels\fR specifies how
+much the line should be indented from the left edge of the
+window.
+\fIPixels\fR may have any of the standard forms for screen
+distances.
+If a line of text wraps, this option only applies to the
+first line on the display;  the \fB:lmargin2\fR option controls
+the indentation for subsequent lines.
+.TP
+\fB:lmargin2 \fIpixels\fR
+If the first character of a display line has a tag for which this
+option has been specified, and if the display line is not the
+first for its text line (i.e., the text line has wrapped), then
+\fIpixels\fR specifies how much the line should be indented from
+the left edge of the window.
+\fIPixels\fR may have any of the standard forms for screen
+distances.
+This option is only used when wrapping is enabled, and it only
+applies to the second and later display lines for a text line.
+.TP
+\fB:offset \fIpixels\fR
+\fIPixels\fR specifies an amount by which the text's baseline
+should be offset vertically from the baseline of the overall
+line, in pixels.
+For example, a positive offset can be used for superscripts
+and a negative offset can be used for subscripts.
+\fIPixels\fR may have any of the standard forms for screen
+distances.
+.TP
+\fB:overstrike \fIboolean\fR
+Specifies whether or not to draw a horizontal rule through
+the middle of characters.
+\fIBoolean\fR may have any of the forms accepted by \fBTk_GetBoolean\fR.
+.TP
+\fB:relief \fIrelief\fR
+\fIRelief\fR specifies the 3-D relief to use for drawing backgrounds,
+in any of the forms accepted by \fBTk_GetRelief\fR.
+This option is used in conjunction with the \fB:borderwidth\fR
+option to give a 3-D appearance to the background for characters;
+it is ignored unless the \fB:background\fR option
+has been set for the tag.
+.TP
+\fB:rmargin \fIpixels\fR
+If the first character of a display line has a tag for which this
+option has been specified, then \fIpixels\fR specifies how wide
+a margin to leave between the end of the line and the right
+edge of the window.
+\fIPixels\fR may have any of the standard forms for screen
+distances.
+This option is only used when wrapping is enabled.
+If a text line wraps, the right margin for each line on the
+display is determined by the first character of that display
+line.
+.TP
+\fB:spacing1 \fIpixels\fR
+\fIPixels\fR specifies how much additional space should be
+left above each text line, using any of the standard forms for
+screen distances.
+If a line wraps, this option only applies to the first
+line on the display.
+.TP
+\fB:spacing2 \fIpixels\fR
+For lines that wrap, this option specifies how much additional
+space to leave between the display lines for a single text line.
+\fIPixels\fR may have any of the standard forms for screen
+distances.
+.TP
+\fB:spacing3 \fIpixels\fR
+\fIPixels\fR specifies how much additional space should be
+left below each text line, using any of the standard forms for
+screen distances.
+If a line wraps, this option only applies to the last
+line on the display.
+.TP
+\fB:tabs \fItabList\fR
+\fITabList\fR specifies a set of tab stops in the same form
+as for the \fB:tabs\fR option for the text widget.  This
+option only applies to a display line if it applies to the
+first character on that display line.
+If this option is specified as an empty string, it cancels
+the option, leaving it unspecified for the tag (the default).
+If the option is specified as a non-empty string that is
+an empty list, such as \fB:tags\0"\0"\fR, then it requests
+default 8-character tabs as described for the \fBtags\fR
+widget option.
+.TP
+\fB:underline \fIboolean\fR
+\fIBoolean\fR specifies whether or not to draw an underline underneath
+characters.
+It may have any of the forms accepted by \fBTk_GetBoolean\fR.
+.TP
+\fB:wrap \fImode\fR
+\fIMode\fR specifies how to handle lines that are wider than the
+text's window.
+It has the same legal values as the \fB:wrap\fR option
+for the text widget:  \fBnone\fR, \fBchar\fR, or \fBword\fR.
+If this tag option is specified, it overrides the \fB:wrap\fR option
+for the text widget.
+.PP
+If a character has several tags associated with it, and if their
+display options conflict, then the options of the highest priority
+tag are used.
+If a particular display option hasn't been specified for a
+particular tag, or if it is specified as an empty string, then
+that option will never be used;  the next-highest-priority
+tag's option will used instead.
+If no tag specifies a particular display option, then the default
+style for the widget will be used.
+.PP
+The second purpose for tags is event bindings.
+You can associate bindings with a tag in much the same way you can
+associate bindings with a widget class:  whenever particular X
+events occur on characters with the given tag, a given
+STk procedure will be executed.
+Tag bindings can be used to give behaviors to ranges of characters;
+among other things, this allows hypertext-like
+features to be implemented.
+For details, see the description of the \fBtag bind\fR widget
+procedure below.
+.PP
+The third use for tags is in managing the selection.
+See THE SELECTION below.
+
+.SH MARKS
+.PP
+The second form of annotation in text widgets is a mark.
+Marks are used for remembering particular places in a text.
+They are something like tags, in that they have names and
+they refer to places in the file, but a mark isn't associated
+with particular characters.
+Instead, a mark is associated with the gap between two characters.
+Only a single position may be associated with a mark at any given
+time.
+If the characters around a mark are deleted the mark will still
+remain;  it will just have new neighbor characters.
+In contrast, if the characters containing a tag are deleted then
+the tag will no longer have an association with characters in
+the file.
+Marks may be manipulated with the ``\fIwidget\-name \fBmark\fR'' widget
+procedure, and their current locations may be determined by using the
+mark name as an index in widget procedures.
+.PP
+Each mark also has a \fIgravity\fR, which is either \fBleft\fR or
+\fBright\fR.
+The gravity for a mark specifies what happens to the mark when
+text is inserted at the point of the mark.
+If a mark has left gravity, then the mark is treated as if it
+were attached to the character on its left, so the mark will
+remain to the left of any text inserted at the mark position.
+If the mark has right gravity, new text inserted at the mark
+position will appear to the right of the mark.  The gravity
+for a mark defaults to \fBright\fR.
+.PP
+The name space for marks is different from that for tags:  the
+same name may be used for both a mark and a tag, but they will refer
+to different things.
+.PP
+Two marks have special significance.
+First, the mark \fBinsert\fR is associated with the insertion cursor,
+as described under THE INSERTION CURSOR below.
+Second, the mark \fBcurrent\fR is associated with the character
+closest to the mouse and is adjusted automatically to track the
+mouse position and any changes to the text in the widget (one
+exception:  \fBcurrent\fR is not updated in response to mouse
+motions if a mouse button is down;  the update will be deferred
+until all mouse buttons have been released).
+Neither of these special marks may be deleted.
+
+.SH EMBEDDED WINDOWS
+.PP
+The third form of annotation in text widgets is an embedded window.
+Each embedded window annotation causes a window to be displayed
+at a particular point in  the text.
+There may be any number of embedded windows in a text widget,
+and any widget may be used as an embedded window (subject to the
+usual rules for geometry management, which require the text window
+to be the parent of the embedded window or a descendant of its
+parent).
+The embedded window's position on the screen will be updated as the
+text is modified or scrolled, and it will be mapped and unmapped as
+it moves into and out of the visible area of the text widget.
+Each embedded window occupies one character's worth of index space
+in the text widget, and it may be referred to either by the name
+of its embedded window or by its position in the widget's
+index space.
+If the range of text containing the embedded window is deleted then
+the window is destroyed.
+.PP
+When an embedded window is added to a text widget with the
+\fBwindow create\fR widget procedure, several configuration
+options may be associated with it.
+These options may be  modified later with the \fBwindow configure\fR
+widget procedure.
+The following options are currently supported:
+.TP
+\fB:align \fIwhere\fR
+If the window is not as tall as the line in which it is displayed,
+this option determines where the window is displayed in the line.
+\fIWhere\fR must have one of the values \fBtop\fR (align the top of the window
+with the top of the line), \fBcenter\fR (center the window
+within the range of the line), \fBbottom\fR (align the bottom of the
+window with the bottom of the line's area),
+or \fBbaseline\fR (align the bottom of the window with the baseline
+of the line).
+.TP
+\fB:create \fIprocedure\fR
+Specifies a STk procedure that may be evaluated to create the window
+for the annotation.
+If no \fB:window\fR option has been specified for the annotation
+this script will be evaluated when the annotation is about to
+be displayed on the screen.
+\fIScript\fR must create a window for the annotation and return
+that window as its result.
+If the annotation's window should ever be deleted, \fIprocedure\fR
+will be evaluated again the next time the annotation is displayed.
+.TP
+\fB:padx \fIpixels\fR
+\fIPixels\fR specifies the amount of extra space to leave on
+each side of the embedded window.
+It may have any of the usual forms defined for a screen distance.
+.TP
+\fB:pady \fIpixels\fR
+\fIPixels\fR specifies the amount of extra space to leave on
+the top and on the bottom of the embedded window.
+It may have any of the usual forms defined for a screen distance.
+.TP
+\fB:stretch \fIboolean\fR
+If the requested height of the embedded window is less than the
+height of the line in which it is displayed, this option can be
+used to specify whether the window should be stretched vertically
+to fill its line.
+If the \fB:pady\fR option has been specified as well, then the
+requested padding will be retained even if the window is
+stretched.
+.TP
+\fB:window \fIwidget\-name\fR
+Specifies the window to display in the annotation.
+
+.SH THE SELECTION
+.PP
+Text widgets support the standard X selection.
+Selection support is implemented via tags.
+If the \fBexportSelection\fR option for the text widget is true
+then the \fBsel\fR tag will be associated with the selection:
+.IP [1]
+Whenever characters are tagged with \fBsel\fR the text widget
+will claim ownership of the selection.
+.IP [2]
+Attempts to retrieve the
+selection will be serviced by the text widget, returning all the
+characters with the \fBsel\fR tag.
+.IP [3]
+If the selection is claimed away by another application or by another
+window within this application, then the \fBsel\fR tag will be removed
+from all characters in the text.
+.PP
+The \fBsel\fR tag is automatically defined when a text widget is
+created, and it may not be deleted with the ``\fIwidget\-name \fB'tag 'delete\fR''
+widget procedure.  Furthermore, the \fBselectBackground\fR,
+\fBselectBorderWidth\fR, and \fBselectForeground\fR options for
+the text widget are tied to the \fB:background\fR,
+\fB:borderwidth\fR, and \fB:foreground\fR options for the \fBsel\fR
+tag:  changes in either will automatically be reflected in the
+other.
+
+.SH THE INSERTION CURSOR
+.PP
+The mark named \fBinsert\fR has special significance in text widgets.
+It is defined automatically when a text widget is created and it
+may not be unset with the ``\fIwidget\-name \fBmark unset\fR'' widget
+procedure.
+The \fBinsert\fR mark represents the position of the insertion
+cursor, and the insertion cursor will automatically be drawn at
+this point whenever the text widget has the input focus.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBtext\fR procedure creates a new STk procedure whose
+name is the same as the path name of the text's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIPathName\fR is the name of the procedure, which is the same as
+the text widget's path name.  \fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for text widgets:
+.TP
+(\fIwidget\-name '\fBbbox \fIindex\fR)
+Returns a list of four elements describing the screen area
+of the character given by \fIindex\fR.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the area occupied by the
+character, and the last two elements give the width and height
+of the area.
+If the character is only partially visible on the screen, then
+the return value reflects just the visible part.
+If the character is not visible on the screen then the return
+value is an empty list.
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBtext\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBcompare\fR \fIindex1 op index2\fR)
+Compares the indices given by \fIindex1\fR and \fIindex2\fR according
+to the relational operator given by \fIop\fR, and returns 1 if
+the relationship is satisfied and 0 if it isn't.
+\fIOp\fR must be one of the operators <, <=, ==, >=, >, or !=.
+If \fIop\fR is == then 1 is returned if the two indices refer to
+the same character, if \fIop\fR is < then 1 is returned if \fIindex1\fR
+refers to an earlier character in the text than \fIindex2\fR, and
+so on.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? \fI?value option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBtext\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBdebug \fR)
+.TP
+(\fIwidget\-name '\fBdebug \fR\fIboolean\fR)
+If \fIboolean\fR is specified, then it must have one of the true or
+false values accepted by Tcl_GetBoolean.
+If the value is a true one then internal consistency checks will be
+turned on in the B-tree code associated with text widgets.
+If \fIboolean\fR has a false value then the debugging checks will
+be turned off.
+In either case the procedure returns an empty string.
+If \fIboolean\fR is not specified then the procedure returns \fBon\fR
+or \fBoff\fR to indicate whether or not debugging is turned on.
+There is a single debugging switch shared by all text widgets:  turning
+debugging on or off in any widget turns it on or off for all widgets.
+For widgets with large amounts of text, the consistency checks may
+cause a noticeable slow-down.
+.TP
+(\fIwidget\-name '\fBdelete \fIindex1 \fR)
+.TP
+(\fIwidget\-name '\fBdelete \fIindex1 \fR\fIindex2\fR)
+Delete a range of characters from the text.
+If both \fIindex1\fR and \fIindex2\fR are specified, then delete
+all the characters starting with the one given by \fIindex1\fR
+and stopping just before \fIindex2\fR (i.e. the character at
+\fIindex2\fR is not deleted).
+If \fIindex2\fR doesn't specify a position later in the text
+than \fIindex1\fR then no characters are deleted.
+If \fIindex2\fR isn't specified then the single character at
+\fIindex1\fR is deleted.
+It is not allowable to delete characters in a way that would leave
+the text without a newline as the last character.
+The procedure returns an empty string.
+.TP
+(\fIwidget\-name '\fBdlineinfo \fIindex\fR)
+Returns a list with five elements describing the area occupied
+by the display line containing \fIindex\fR.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the area occupied by the
+line, the third and fourth elements give the width and height
+of the area, and the fifth element gives the position of the baseline
+for the line, measured down from the top of the area.
+All of this information is measured in pixels.
+If the current wrap mode is \fBnone\fR and the line extends beyond
+the boundaries of the window,
+the area returned reflects the entire area of the line, including the
+portions that are out of the window.
+If the line is shorter than the full width of the window then the
+area returned reflects just the portion of the line that is occupied
+by characters and embedded windows.
+If the display line containing \fIindex\fR is not visible on
+the screen then the return value is an empty list.
+.TP
+(\fIwidget\-name \fB'dump \fR?\fIswitches\fR? \fIindex1 \fR?\fIindex2\fR?)
+.VS
+Return the contents of the text widget from \fIindex1\fR up to,
+but not including \fIindex2\fR,
+including the text and
+information about marks, tags, and embedded windows.
+If \fIindex2\fR is not specified, then it defaults to
+one character past \fIindex1\fR.  The information is returned
+in the following format:
+.LP
+.RS
+\fIkey1 value1 index1 key2 value2 index2\fR ...
+.LP
+The possible \fIkey\fP values are \fBtext\fP, \fBmark\fP,
+\fBtagon\fP, \fBtagoff\fP, and \fBwindow\fP.  The corresponding
+\fIvalue\fP is the text, mark name, tag name, or window name.
+The \fIindex\fP information is the index of the
+start of the text, the mark, the tag transition, or the window.
+One or more of the following switches (or abbreviations thereof)
+may be specified to control the dump:
+.TP
+\fB:all\fR
+Return information about all elements: text, marks, tags, and windows.
+This is the default.
+.TP
+\fB:command \fIclosure\fR
+Instead of returning the information as the result of the dump operation,
+invoke the \fIclosure\fR on each element of the text widget within the range.
+The command must have three arguments:  \fIkey\fP, \fIvalue\fP, and \fIindex\fP.
+.TP
+\fB:mark\fR
+Include information about marks in the dump results.
+.TP
+\fB:tag\fR
+Include information about tag transitions in the dump results. Tag information is
+returned as \fBtagon\fP and \fBtagoff\fP elements that indicate the
+begin and end of each range of each tag, respectively.
+.TP
+\fB:text\fR
+Include information about text in the dump results.  The value is the
+text up to the next element or the end of range indicated by \fIindex2\fR.
+A text element does not span newlines.  A multi-line block of text that
+contains no marks or tag transitions will still be dumped as a set
+of text seqments that each end with a newline.  The newline is part
+of the value.
+.TP
+\fB:window\fR
+Include information about embedded windows in the dump results.
+The value of a window is its Tk pathname, unless the window
+has not been created yet.  (It must have a create script.)
+In this case an empty string is returned, and you must query the
+window by its index position to get more information.
+.RE
+.VE
+.TP
+(\fIwidget\-name \fB'get \fIindex1 \fR)
+.TP
+(\fIwidget\-name \fB'get \fIindex1 \fR\fIindex2\fR)
+Return a range of characters from the text.
+The return value will be all the characters in the text starting
+with the one whose index is \fIindex1\fR and ending just before
+the one whose index is \fIindex2\fR (the character at \fIindex2\fR
+will not be returned).
+If \fIindex2\fR is omitted then the single character at \fIindex1\fR
+is returned.
+If there are no characters in the specified range (e.g. \fIindex1\fR
+is past the end of the file or \fIindex2\fR is less than or equal
+to \fIindex1\fR) then an empty string is returned.
+If the specified range contains embedded windows, no information
+about them is included in the returned string.
+.TP
+(\fIwidget\-name '\fBindex \fIindex\fR)
+Returns the position corresponding to \fIindex\fR in the form
+\fI(line . char)\fR where \fIline\fR is the line number and \fIchar\fR
+is the character number.
+\fIIndex\fR may have any of the forms described under INDICES above.
+.TP
+(\fIwidget\-name '\fBinsert \fIindex chars \fR?\fItagList chars tagList ...\fR?)
+Inserts all of the \fIchars\fR arguments just before the character at
+\fIindex\fR.
+If \fIindex\fR refers to the end of the text (the character after
+the last newline) then the new text is inserted just before the
+last newline instead.
+If there is a single \fIchars\fR argument and no \fItagList\fR, then
+the new text will receive any tags that are present on both the
+character before and the character after the insertion point; if a tag
+is present on only one of these characters then it will not be
+applied to the new text.
+If \fItagList\fR is specified then it consists of a list of
+tag names;  the new characters will receive all of the tags in
+this list and no others, regardless of the tags present around
+the insertion point.
+If multiple \fIchars\fR\-\fItagList\fR argument pairs are present,
+they produce the same effect as if a separate \fBinsert\fR widget
+procedure had been issued for each pair, in order.
+The last \fItagList\fR argument may be omitted.
+.TP
+(\fIwidget\-name '\fBmark \fIoption \fR?\fIarg arg ...\fR?)
+This procedure is used to manipulate marks.  The exact behavior of
+the procedure depends on the \fIoption\fR argument that follows
+the \fBmark\fR argument.  The following forms of the procedure
+are currently supported:
+.RS
+.TP
+(\fIwidget\-name '\fBmark 'gravity \fImarkName\fR)
+.TP
+(\fIwidget\-name '\fBmark 'gravity \fImarkName\fR \fIdirection\fR)
+If \fIdirection\fR is not specified, returns \fBleft\fR or \fBright\fR
+to indicate which of its adjacent characters \fImarkName\fR is attached
+to.
+If \fIdirection\fR is specified, it must be \fBleft\fR or \fBright\fR;
+the gravity of \fImarkName\fR is set to the given value.
+.TP
+(\fIwidget\-name '\fBmark 'names\fR)
+Returns a list whose elements are the names of all the marks that
+are currently set.
+.TP
+(\fIwidget\-name '\fBmark 'next \fIindex\fR)
+Returns the name of the next mark at or after \fIindex\fR.
+If \fIindex\fR is specified in numerical form, then the search for
+the next mark begins at that index.
+If \fIindex\fR is the name of a mark, then the search for
+the next mark begins immediately after that mark.
+This can still return a mark at the same position if
+there are multiple marks at the same index.
+These semantics mean that the \fBmark next\fP operation can be used to
+step through all the marks in a text widget in the same order
+as the mark information returned by the \fBdump\fP operation.
+If a mark has been set to the special \fBend\fB index,
+then it appears to be \fIafter\fP \fBend\fP with respect to the \fBmark next\fP operation.
+An empty list is returned if there are no marks after \fIindex\fR.
+.TP
+(\fIwidget\-name '\fBmark 'previous \fIindex\fR)
+Returns the name of the mark at or before \fIindex\fR.
+If \fIindex\fR is specified in numerical form, then the search for
+the previous mark begins with the character just before that index.
+If \fIindex\fR is the name of a mark, then the search for
+the next mark begins immediately before that mark.
+This can still return a mark at the same position if
+there are multiple marks at the same index.
+These semantics mean that the \fBmark previous\fP operation can be used to
+step through all the marks in a text widget in the reverse order
+as the mark information returned by the \fBdump\fP operation.
+An empty list is returned if there are no marks before \fIindex\fR.
+.TP
+(\fIwidget\-name '\fBmark 'set \fImarkName index\fR)
+Sets the mark named \fImarkName\fR to a position just before the
+character at \fIindex\fR.
+If \fImarkName\fR already exists, it is moved from its old position;
+if it doesn't exist, a new mark is created.
+This procedure returns an empty string.
+.TP
+(\fIwidget\-name '\fBmark 'unset \fImarkName \fR?\fImarkName markName ...\fR?)
+Remove the mark corresponding to each of the \fImarkName\fR arguments.
+The removed marks will not be usable in indices and will not be
+returned by future calls to ``\fIwidget\-name \fBmark names\fR''.
+This procedure returns an empty string.
+.RE
+.TP
+(\fIwidget\-name '\fBscan\fR \fIoption args\fR)
+This procedure is used to implement scanning on texts.  It has
+two forms, depending on \fIoption\fR:
+.RS
+.TP
+(\fIwidget\-name '\fBscan 'mark \fIx y\fR)
+Records \fIx\fR and \fIy\fR and the current view in the text window,
+for use in conjunction with later \fBscan dragto\fR procedures.
+Typically this procedure is associated with a mouse button press in
+the widget.  It returns an empty string.
+.TP
+(\fIwidget\-name '\fBscan 'dragto \fIx y\fR)
+This procedure computes the difference between its \fIx\fR and \fIy\fR
+arguments and the \fIx\fR and \fIy\fR arguments to the last
+\fBscan mark\fR procedure for the widget.
+It then adjusts the view by 10 times the difference in coordinates.
+This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the text at high speed through the window.  The return
+value is an empty string.
+.RE
+.TP
+(\fIwidget\-name \fBsearch \fR?\fIswitches\fR? \fIpattern index \fR?\fIstopIndex\fR?)
+Searches the text in \fIwidget\-name\fR starting at \fIindex\fR for a range
+of characters that matches \fIpattern\fR.
+If a match is found, the index of the first character in the match is
+returned as result;  otherwise an empty string is returned.
+One or more of the following switches (or abbreviations thereof)
+may be specified to control the search:
+.RS
+.TP
+\fB:forwards\fR
+The search will proceed forward through the text, finding the first
+matching range starting at or after the position given by \fIindex\fR.
+This is the default.
+.TP
+\fB:backwards\fR
+The search will proceed backward through the text, finding the
+matching range closest to \fIindex\fR whose first character
+is before \fIindex\fR.
+.TP
+\fB:exact\fR
+Use exact matching:  the characters in the matching range must be
+identical to those in \fIpattern\fR.
+This is the default.
+.TP
+\fB:regexp\fR
+Treat \fIpattern\fR as a regular expression and match it against
+the text using the rules for regular expressions (see the \fBregexp\fR
+procedure for details).
+.TP
+\fB:nocase\fR
+Ignore case differences between the pattern and the text.
+.TP
+\fB:count\fI varName\fR
+The argument following \fB:count\fR gives the name of a variable;
+if a match is found, the number of characters in the matching
+range will be stored in the variable.
+.TP
+\fB:\-\fR
+This switch has no effect except to terminate the list of switches:
+the next argument will be treated as \fIpattern\fR even if it starts
+with \fB:\fR.
+.LP
+The matching range must be entirely within a single line of text.
+For regular expression matching the newlines are removed from the ends
+of the lines before matching:  use the \fB$\fR feature in regular
+expressions to match the end of a line.
+For exact matching the newlines are retained.
+If \fIstopIndex\fR is specified, the search stops at that index:
+for forward searches, no match at or after \fIstopIndex\fR will
+be considered;  for backward searches, no match earlier in the
+text than \fIstopIndex\fR will be considered.
+If \fIstopIndex\fR is omitted, the entire text will be searched:
+when the beginning or end of the text is reached, the search
+continues at the other end until the starting location is reached
+again;  if \fIstopIndex\fR is specified, no wrap-around will occur.
+.RE
+.TP
+(\fIwidget\-name '\fBsee \fIindex\fR)
+Adjusts the view in the window so that the character given by \fIindex\fR
+is completely visible.
+If \fIindex\fR is already visible then the procedure does nothing.
+If \fIindex\fR is a short distance out of view, the procedure
+adjusts the view just enough to make \fIindex\fR visible at the
+edge of the window.
+If \fIindex\fR is far out of view, then the procedure centers
+\fIindex\fR in the window.
+.TP
+(\fIwidget\-name \fB'tag \fIoption \fR?\fIarg arg ...\fR?)
+This procedure is used to manipulate tags.  The exact behavior of the
+procedure depends on the \fIoption\fR argument that follows the
+\fBtag\fR argument.  The following forms of the procedure are currently
+supported:
+.RS
+.TP
+(\fIwidget\-name \fB'tag 'add \fItagName index1 \fR?\fIindex2 index1 index2 ...\fR?)
+Associate the tag \fItagName\fR with all of the characters starting
+with \fIindex1\fR and ending just before
+\fIindex2\fR (the character at \fIindex2\fR isn't tagged).
+A single procedure may contain any number of \fIindex1\fR\-\fIindex2\fR
+pairs.
+If the last \fIindex2\fR is omitted then the single character at
+\fIindex1\fR is tagged.
+If there are no characters in the specified range (e.g. \fIindex1\fR
+is past the end of the file or \fIindex2\fR is less than or equal
+to \fIindex1\fR) then the procedure has no effect.
+.TP
+(\fIwidget\-name \fB'tag 'bind \fItagName\fR)
+.TP
+(\fIwidget\-name \fB'tag 'bind \fItagName\fR \fIsequence\fR)
+.TP
+(\fIwidget\-name \fB'tag 'bind \fItagName\fR \fIsequence\fR \fIscript\fR)
+This procedure associates \fIscript\fR with the tag given by
+\fItagName\fR.
+Whenever the event sequence given by \fIsequence\fR occurs for a
+character that has been tagged with \fItagName\fR,
+the script will be invoked.
+This widget procedure is similar to the \fBbind\fR procedure except that
+it operates on characters in a text rather than entire widgets.
+See the \fBbind\fR manual entry for complete details
+on the syntax of \fIsequence\fR and the substitutions performed
+on \fIscript\fR before invoking it.
+If all arguments are specified then a new binding is created, replacing
+any existing binding for the same \fIsequence\fR and \fItagName\fR.
+In this case the return value is an empty string.
+If \fIscript\fR is omitted then the procedure returns the \fIscript\fR
+associated with \fItagName\fR and \fIsequence\fR (an error occurs
+if there is no such binding).
+If both \fIscript\fR and \fIsequence\fR are omitted then the procedure
+returns a list of all the sequences for which bindings have been
+defined for \fItagName\fR.
+.RS
+.PP
+The only events for which bindings may be specified are those related
+to the mouse and keyboard, such as \fBEnter\fR, \fBLeave\fR,
+\fBButtonPress\fR, \fBMotion\fR, and \fBKeyPress\fR.
+Event bindings for a text widget use the \fBcurrent\fR mark
+described under MARKS above.
+An \fBEnter\fR event triggers for a tag when the tag first
+becomes present on the current character, and a \fBLeave\fR
+event triggers for a tag when it ceases to be present on
+the current character.
+\fBEnter\fR and \fBLeave\fR events can happen either because the
+\fBcurrent\fR mark moved or because the character at that
+position changed.
+Note that these events are different than \fBEnter\fR and \fBLeave\fR
+events for windows.
+Mouse and keyboard events are directed to the current character.
+.PP
+It is possible for the current character to have multiple tags,
+and for each of them to have a binding for a particular event
+sequence.
+When this occurs, one binding is invoked for each tag, in order
+from lowest-priority to highest priority.
+If there are multiple matching bindings for a single tag, then
+the most specific binding is chosen (see the manual entry for
+the \fBbind\fR procedure for details).
+\fBcontinue\fR and \fBbreak\fR procedures within binding scripts
+are processed in the same way as for bindings created with
+the \fBbind\fR procedure.
+.PP
+If bindings are created for the widget as a whole using the
+\fBbind\fR procedure, then those bindings will supplement the
+tag bindings.
+The tag bindings will be invoked first, followed by bindings
+for the window as a whole.
+.RE
+.TP
+(\fIwidget\-name \fB'tag 'cget\fR \fItagName option\fR)
+This procedure returns the current value of the option named \fIoption\fR
+associated with the tag given by \fItagName\fR.
+\fIOption\fR may have any of the values accepted by the \fBtag configure\fR
+widget procedure.
+.TP
+(\fIwidget\-name \fB'tag 'configure \fItagName\fR ?\fIoption\fR? ?\fIvalue\fR? ?\fIoption value ...\fR?)
+This procedure is similar to the \fBconfigure\fR widget procedure except
+that it modifies options associated with the tag given by \fItagName\fR
+instead of modifying options for the overall text widget.
+If no \fIoption\fR is specified, the procedure returns a list describing
+all of the available options for \fItagName\fR (see \fBTk_ConfigureInfo\fR
+for information on the format of this list).
+If \fIoption\fR is specified with no \fIvalue\fR, then the procedure returns
+a list describing the one named option (this list will be identical to
+the corresponding sublist of the value returned if no \fIoption\fR
+is specified).
+If one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s) in \fItagName\fR;
+in this case the procedure returns an empty list.
+See TAGS above for details on the options available for tags.
+.TP
+(\fIwidget\-name \fB'tag 'delete \fItagName \fR?\fItagName ...\fR?)
+Deletes all tag information for each of the \fItagName\fR
+arguments.
+The procedure removes the tags from all characters in the file
+and also deletes any other information associated with the tags,
+such as bindings and display information.
+The procedure returns an empty list.
+.TP
+(\fIwidget\-name\fB'tag 'lower \fItagName \fR)
+.TP
+(\fIwidget\-name\fB'tag 'lower \fItagName \fR \fIbelowThis\fR)
+Changes the priority of tag \fItagName\fR so that it is just lower
+in priority than the tag whose name is \fIbelowThis\fR.
+If \fIbelowThis\fR is omitted, then \fItagName\fR's priority
+is changed to make it lowest priority of all tags.
+.TP
+(\fIwidget\-name \fB'tag 'names \fR)
+.TP
+(\fIwidget\-name \fB'tag 'names \fR \fIindex\fR)
+Returns a list whose elements are the names of all the tags that
+are active at the character position given by \fIindex\fR.
+If \fIindex\fR is omitted, then the return value will describe
+all of the tags that exist for the text (this includes all tags
+that have been named in a ``\fIwidget\-name \fBtag\fR'' widget
+procedure but haven't been deleted by a ``\fIwidget\-name \fBtag delete\fR''
+widget procedure, even if no characters are currently marked with
+the tag).
+The list will be sorted in order from lowest priority to highest
+priority.
+.TP
+(\fIwidget\-name \fB'tag 'nextrange \fItagName index1 \fR)
+.TP
+(\fIwidget\-name \fB'tag 'nextrange \fItagName index1 \fR \fIindex2\fR)
+This procedure searches the text for a range of characters tagged
+with \fItagName\fR where the first character of the range is
+no earlier than the character at \fIindex1\fR and no later than
+the character just before \fIindex2\fR (a range starting at
+\fIindex2\fR will not be considered).
+If several matching ranges exist, the first one is chosen.
+The procedure's return value is a list containing
+two elements, which are the index of the first character of the
+range and the index of the character just after the last one in
+the range.
+If no matching range is found then the return value is an
+empty list.
+If \fIindex2\fR is not given then it defaults to the end of the text.
+.TP
+(\fIwidget\-name '\fBtag 'prevrange \fItagName index1 \fR)
+.TP
+(\fIwidget\-name '\fBtag 'prevrange \fItagName index1 \fR \fIindex2\fR)
+This command searches the text for a range of characters tagged
+with \fItagName\fR where the first character of the range is
+before the character at \fIindex1\fR and no earlier than
+the character at \fIindex2\fR (a range starting at
+\fIindex2\fR will be considered).
+If several matching ranges exist, the one closest to \fIindex1\fR is chosen.
+The command's return value is a list containing
+two elements, which are the index of the first character of the
+range and the index of the character just after the last one in
+the range.
+If no matching range is found then the return value is an
+empty string.
+If \fIindex2\fR is not given then it defaults to the beginning of the text.
+.TP
+(\fIwidget\-name\fB'tag 'raise \fItagName \fR)
+.TP
+(\fIwidget\-name\fB'tag 'raise \fItagName \fR \fIaboveThis\fR)
+Changes the priority of tag \fItagName\fR so that it is just higher
+in priority than the tag whose name is \fIaboveThis\fR.
+If \fIaboveThis\fR is omitted, then \fItagName\fR's priority
+is changed to make it highest priority of all tags.
+.TP
+(\fIwidget\-name \fB'tag 'ranges \fItagName\fR)
+Returns a list describing all of the ranges of text that have been
+tagged with \fItagName\fR.
+The first two elements of the list describe the first tagged range
+in the text, the next two elements describe the second range, and
+so on.
+The first element of each pair contains the index of the first
+character of the range, and the second element of the pair contains
+the index of the character just after the last one in the
+range.
+If there are no characters tagged with \fItag\fR then an
+empty list is returned.
+.TP
+(\fIwidget\-name \fB'tag 'remove \fItagName index1 \fR?\fIindex2 index1 index2 ...\fR?)
+Remove the tag \fItagName\fR from all of the characters starting
+at \fIindex1\fR and ending just before
+\fIindex2\fR (the character at \fIindex2\fR isn't affected).
+A single procedure may contain any number of \fIindex1\fR\-\fIindex2\fR
+pairs.
+If the last \fIindex2\fR is omitted then the single character at
+\fIindex1\fR is tagged.
+If there are no characters in the specified range (e.g. \fIindex1\fR
+is past the end of the file or \fIindex2\fR is less than or equal
+to \fIindex1\fR) then the procedure has no effect.
+This procedure returns an empty list.
+.RE
+.TP
+(\fIwidget\-name '\fBwindow \fIoption \fR?\fIarg arg ...\fR?)
+This procedure is used to manipulate embedded windows.
+The behavior of the procedure depends on the \fIoption\fR argument
+that follows the \fBtag\fR argument.
+The following forms of the procedure are currently supported:
+.RS
+.TP
+(\fIwidget\-name '\fBwindow 'cget\fR \fIindex option\fR)
+Returns the value of a configuration option for an embedded window.
+\fIIndex\fR identifies the embedded window, and \fIoption\fR
+specifies a particular configuration option, which must be one of
+the ones listed in the section EMBEDDED WINDOWS.
+.TP
+(\fIwidget\-name '\fBwindow 'configure \fIindex\fR ?\fIoption value ...\fR?)
+Query or modify the configuration options for an embedded window.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for the embedded window at \fIindex\fR
+(see \fBTk_ConfigureInfo\fR for information on the format of this list).
+If \fIoption\fR is specified with no \fIvalue\fR, then the procedure
+returns a list describing the one named option (this list will be
+identical to the corresponding sublist of the value returned if no
+\fIoption\fR is specified).
+If one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+See EMBEDDED WINDOWS for information on the options that
+are supported.
+.TP
+(\fIwidget\-name '\fBwindow 'create \fIindex\fR ?\fIoption value ...\fR?)
+This procedure creates a new window annotation, which will appear
+in the text at the position given by \fIindex\fR.
+Any number of \fIoption\-value\fR pairs may be specified to
+configure the annotation.
+See EMBEDDED WINDOWS for information on the options that
+are supported.
+Returns an empty list.
+.TP
+(\fIwidget\-name '\fBwindow 'names\fR)
+Returns a list whose elements are the names of all windows currently
+embedded in \fIwindow\fR.
+.RE
+.TP
+(\fIwidget\-name '\fBxview \fIoption args\fR)
+This procedure is used to query and change the horizontal position of the
+text in the widget's window.  It can take any of the following
+forms:
+.RS
+.TP
+(\fIwidget\-name '\fBxview\fR)
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the portion of the document's horizontal span that is visible in
+the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+The fractions refer only to the lines that are actually visible in the
+window:  if the lines in the window are all very short, so that they
+are entirely visible, the returned fractions will be 0 and 1,
+even if there are other lines in the text that are
+much wider than the window.
+These are the same values passed to scrollbars via the \fB:xscrollprocedure\fR
+option.
+.TP
+(\fIwidget\-name '\fBxview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that \fIfraction\fR of the horizontal
+span of the text is off-screen to the left.
+\fIFraction\fR is a fraction between 0 and 1.
+.TP
+(\fIwidget\-name '\fBxview 'scroll \fInumber what\fR)
+This procedure shifts the view in the window left or right according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR or an abbreviation
+of one of these.
+If \fIwhat\fR is \fBunits\fR, the view adjusts left or right by
+\fInumber\fR average-width characters on the display;  if it is
+\fBpages\fR then the view adjusts by \fInumber\fR screenfuls.
+If \fInumber\fR is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+.RE
+.TP
+(\fIwidget\-name '\fByview \fI?args\fR?)
+This procedure is used to query and change the vertical position of the
+text in the widget's window.
+It can take any of the following forms:
+.RS
+.TP
+(\fIwidget\-name '\fByview\fR)
+Returns a list containing two elements, both of which are real fractions
+between 0 and 1.
+The first element gives the position of the first character in the
+top line in the window, relative to the text as a whole (0.5 means
+it is halfway through the text, for example).
+The second element gives the position of the character just after
+the last one in the bottom line of the window,
+relative to the text as a whole.
+These are the same values passed to scrollbars via the \fB:yscrollprocedure\fR
+option.
+.TP
+(\fIwidget\-name '\fByview 'moveto\fI fraction\fR)
+Adjusts the view in the window so that the character given by \fIfraction\fR
+appears on the top line of the window.
+\fIFraction\fR is a fraction between 0 and 1;  0 indicates the first
+character in the text, 0.33 indicates the character one-third the
+way through the text, and so on.
+.TP
+(\fIwidget\-name '\fByview 'scroll \fInumber what\fR)
+This procedure adjust the view in the window up or down according to
+\fInumber\fR and \fIwhat\fR.
+\fINumber\fR must be an integer.
+\fIWhat\fR must be either \fBunits\fR or \fBpages\fR.
+If \fIwhat\fR is \fBunits\fR, the view adjusts up or down by
+\fInumber\fR lines on the display;  if it is \fBpages\fR then
+the view adjusts by \fInumber\fR screenfuls.
+If \fInumber\fR is negative then earlier positions in the text
+become visible;  if it is positive then later positions in the text
+become visible.
+.TP
+(\fIwidget\-name \fByview \fR \fIindex\fR)
+.TP
+(\fIwidget\-name \fByview \fR\fB:pickplace\fR \fIindex\fR)
+Changes the view in the widget's window to make \fIindex\fR visible.
+If the \fB:pickplace\fR option isn't specified then \fIindex\fR will
+appear at the top of the window.
+If \fB:pickplace\fR is specified then the widget chooses where
+\fIindex\fR appears in the window:
+.RS
+.IP [1]
+If \fIindex\fR is already visible somewhere in the window then the
+procedure does nothing.
+.IP [2]
+If \fIindex\fR is only a few lines off-screen above the window then
+it will be positioned at the top of the window.
+.IP [3]
+If \fIindex\fR is only a few lines off-screen below the window then
+it will be positioned at the bottom of the window.
+.IP [4]
+Otherwise, \fIindex\fR will be centered in the window.
+.LP
+The \fB:pickplace\fR option has been obsoleted by the \fBsee\fR widget
+procedure (\fBsee\fR handles both x- and y-motion to make a location
+visible, whereas \fB:pickplace\fR only handles motion in y).
+.RE
+.TP
+(\fIwidget\-name '\fByview \fInumber\fR)
+This procedure makes the first character on the line after
+the one given by \fInumber\fR visible at the top of the window.
+\fINumber\fR must be an integer.
+This procedure used to be used for scrolling, but now it is obsolete.
+.RE
+
+.SH BINDINGS
+.PP
+Tk automatically creates class bindings for texts that give them
+the following default behavior.
+In the descriptions below, ``word'' refers to a contiguous group
+of letters, digits, or ``_'' characters, or any single character
+other than these.
+.IP [1]
+Clicking mouse button 1 positions the insertion cursor
+just before the character underneath the mouse cursor, sets the
+input focus to this widget, and clears any selection in the widget.
+Dragging with mouse button 1 strokes out a selection between
+the insertion cursor and the character under the mouse.
+.IP [2]
+Double-clicking with mouse button 1 selects the word under the mouse
+and positions the insertion cursor at the beginning of the word.
+Dragging after a double click will stroke out a selection consisting
+of whole words.
+.IP [3]
+Triple-clicking with mouse button 1 selects the line under the mouse
+and positions the insertion cursor at the beginning of the line.
+Dragging after a triple click will stroke out a selection consisting
+of whole lines.
+.IP [4]
+The ends of the selection can be adjusted by dragging with mouse
+button 1 while the Shift key is down;  this will adjust the end
+of the selection that was nearest to the mouse cursor when button
+1 was pressed.
+If the button is double-clicked before dragging then the selection
+will be adjusted in units of whole words;  if it is triple-clicked
+then the selection will be adjusted in units of whole lines.
+.IP [5]
+Clicking mouse button 1 with the Control key down will reposition the
+insertion cursor without affecting the selection.
+.IP [6]
+If any normal printing characters are typed, they are
+inserted at the point of the insertion cursor.
+.IP [7]
+The view in the widget can be adjusted by dragging with mouse button 2.
+If mouse button 2 is clicked without moving the mouse, the selection
+ is copied into the text at the position of the mouse cursor.
+The Insert key also inserts the selection, but at the position of
+the insertion cursor.
+.IP [8]
+If the mouse is dragged out of the widget
+while button 1 is pressed, the entry will automatically scroll to
+make more text visible (if there is more text off-screen on the side
+where the mouse left the window).
+.IP [9]
+The Left and Right keys move the insertion cursor one character to the
+left or right;  they also clear any selection in the text.
+If Left or Right is typed with the Shift key down, then the insertion
+cursor moves and the selection is extended to include the new character.
+Control-Left and Control-Right move the insertion cursor by words, and
+Control-Shift-Left and Control-Shift-Right move the insertion cursor
+by words and also extend the selection.
+Control-b and Control-f behave the same as Left and Right, respectively.
+Meta-b and Meta-f behave the same as Control-Left and Control-Right,
+respectively.
+.IP [10]
+The Next and Prior keys move the insertion cursor forward or backwards
+by one screenful and clear any selection in the text.
+If the Shift key is held down while Next or Prior is typed, then
+the selection is extended to include the new character.
+Control-v moves the view down one screenful without moving the
+insertion cursor or adjusting the selection.
+.IP [11]
+Control-Next and Control-Prior scroll the view right or left by one page
+without moving the insertion cursor or affecting the selection.
+.IP [12]
+Home and Control-a move the insertion cursor to the
+beginning of its line and clear any selection in the widget.
+Shift-Home moves the insertion cursor to the beginning of the line
+and also extends the selection to that point.
+.IP [13]
+End and Control-e move the insertion cursor to the
+end of the line and clear any selection in the widget.
+Shift-End moves the cursor to the end of the line and extends the selection
+to that point.
+.IP [14]
+Control-Home and Meta-< move the insertion cursor to the beginning of
+the text and clear any selection in the widget.
+Control-Shift-Home moves the insertion cursor to the beginning of the text
+and also extends the selection to that point.
+.IP [15]
+Control-End and Meta-> move the insertion cursor to the end of the
+text and clear any selection in the widget.
+Control-Shift-End moves the cursor to the end of the text and extends
+the selection to that point.
+.IP [16]
+The Select key and Control-Space set the selection anchor to the position
+of the insertion cursor.  They don't affect the current selection.
+Shift-Select and Control-Shift-Space adjust the selection to the
+current position of the insertion cursor, selecting from the anchor
+to the insertion cursor if there was not any selection previously.
+.IP [17]
+Control-/ selects the entire contents of the widget.
+.IP [18]
+Control-\e clears any selection in the widget.
+.IP [19]
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is a selection.
+.IP [20]
+The F20 key (labelled Cut on many Sun workstations) or Control-w
+copies the selection in the widget to the clipboard and deletes
+the selection.
+If there is no selection in the widget then these keys have no effect.
+.IP [21]
+The F18 key (labelled Paste on many Sun workstations) or Control-y
+inserts the contents of the clipboard at the position of the
+insertion cursor.
+.IP [22]
+The Delete key deletes the selection, if there is one in the widget.
+If there is no selection, it deletes the character to the right of
+the insertion cursor.
+.IP [23]
+Backspace and Control-h delete the selection, if there is one
+in the widget.
+If there is no selection, they delete the character to the left of
+the insertion cursor.
+.IP [24]
+Control-d deletes the character to the right of the insertion cursor.
+.IP [25]
+Meta-d deletes the word to the right of the insertion cursor.
+.IP [26]
+Control-k deletes from the insertion cursor to the end of its line;
+if the insertion cursor is already at the end of a line, then
+Control-k deletes the newline character.
+.IP [27]
+Control-o opens a new line by inserting a newline character in
+front of the insertion cursor without moving the insertion cursor.
+.IP [28]
+Meta-backspace and Meta-Delete delete the word to the left of the
+insertion cursor.
+.IP [29]
+Control-x deletes whatever is selected in the text widget.
+.IP [30]
+Control-t reverses the order of the two characters to the right of
+the insertion cursor. 
+.PP
+If the widget is disabled using the \fB:state\fR option, then its
+view can still be adjusted and text can still be selected,
+but no insertion cursor will be displayed and no text modifications will
+take place.
+.PP
+The behavior of texts can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+.SH "PERFORMANCE ISSUES"
+.PP
+Text widgets should run efficiently under a variety
+of conditions.  The text widget uses about 2-3 bytes of
+main memory for each byte of text, so texts containing a megabyte
+or more should be practical on most workstations.
+Text is represented internally with a modified B-tree structure
+that makes operations relatively efficient even with large texts.
+Tags are included in the B-tree structure in a way that allows
+tags to span large ranges or have many disjoint smaller ranges
+without loss of efficiency.
+Marks are also implemented in a way that allows large numbers of
+marks.
+In most cases it is fine to have large numbers of unique tags,
+or a tag that has many distinct ranges.
+.PP
+One performance problem can arise if you have hundreds or thousands
+of different tags that all have the following characteristics:
+the first and last ranges of each tag are near the beginning and
+end of the text, respectively,
+or a single tag range covers most of the text widget.
+The cost of adding and deleting tags like this is proportional
+to the number of other tags with the same properties.
+In contrast, there is no problem with having thousands of distinct
+tags if their overall ranges are localized and spread uniformly throughout
+the text.
+.PP
+Very long text lines can be expensive,
+especially if they have many marks and tags within them.
+.PP
+The display line with the insert cursor is redrawn each time the
+cursor blinks, which causes a steady stream of graphics traffic.
+Set the \fBinsertOffTime\fP attribute to 0 avoid this.
diff --git a/Doc/Manual/tk.n b/Doc/Manual/tk.n
new file mode 100644
index 0000000..9fa8126
--- /dev/null
+++ b/Doc/Manual/tk.n
@@ -0,0 +1,50 @@
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) tk.n 1.10 95/06/22 14:08:44
+'\" 
+.so STk-man.macros
+.TH tk n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+tk \- Manipulate Tk internal state
+.SH SYNOPSIS
+(\fBtk\fR \fIoption \fR?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBtk\fR procedure provides access to miscellaneous
+elements of Tk's internal state.
+Most of the information manipulated by this procedure pertains to the
+application as a whole, or to a screen or display, rather than to a
+particular window.
+The procedure can take any of a number of different forms
+depending on the \fIoption\fR argument.  The legal forms are:
+.TP
+(\fBtk 'appname\fR)
+.TP
+(\fBtk 'appname \fInewName\fR)
+If \fInewName\fR isn't specified, this procedure returns the name
+of the application (the name that may be used in \fBsend\fR
+procedures to communicate with the application).
+If \fInewName\fR is specified, then the name of the application
+is changed to \fInewName\fR.
+If the given name is already in use, then a suffix of the form
+``\fB #2\fR'' or ``\fB #3\fR'' is appended in order to make the name unique.
+The procedure's result is the name actually chosen.
+\fInewName\fR should not start with a capital letter.
+This will interfere with option processing, since names starting with
+capitals are assumed to be classes;  as a result, Tk may not
+be able to find some options for the application.
+If sends have been disabled by deleting the \fBsend\fR procedure,
+(with \fBinhibit-send\fR) this procedure will reenable them and 
+recreate the \fBsend\fR procedure.
+
+.SH SEE ALSO
+send
diff --git a/Doc/Manual/tkvars.n b/Doc/Manual/tkvars.n
new file mode 100644
index 0000000..8ca1566
--- /dev/null
+++ b/Doc/Manual/tkvars.n
@@ -0,0 +1,47 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) tkvars.n 1.18 95/08/12 17:35:22
+'\" 
+.so STk-man.macros
+.TH tkvars n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+tkvars \- Variables used or set by Tk
+.BE
+
+.SH DESCRIPTION
+.PP
+The following STk variables are either set or used by Tk at various times
+in its execution:
+.TP
+\fB*tk-patch-level*\fR
+Contains a string which represent the current patch level for Tk.
+The patch level is incremented for each new release or patch, and
+it uniquely identifies an official version of Tk.
+.TP
+\fB*tk-strict-motif*\fR
+This variable is set to \fB#f\fR by default.
+If an application sets it to a true value, then Tk attempts to adhere as
+closely as possible to Motif look-and-feel standards.
+For example, active elements such as buttons and scrollbar
+sliders will not change color when the pointer passes over them.
+.TP 15
+\fB*tk-version*\fR 
+Tk sets this variable in the interpreter for each
+application.  The value of this variable is a string which holds the
+current version number of the Tk library in the form
+\fImajor\fR.\fIminor\fR.  \fIMajor\fR and \fIminor\fR are integers.
+The major version number increases in any Tk release that includes
+changes that are not backward compatible (i.e. whenever existing Tk
+applications and scripts may have to change to work with the new
+release).  The minor version number increases with each new release of
+Tk, except that it resets to zero whenever the major version number
+changes.
+
+
diff --git a/Doc/Manual/tkwait.n b/Doc/Manual/tkwait.n
new file mode 100644
index 0000000..0ff73d7
--- /dev/null
+++ b/Doc/Manual/tkwait.n
@@ -0,0 +1,46 @@
+'\"
+'\" Copyright (c) 1992 The Regents of the University of California.
+'\" Copyright (c) 1994 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) tkwait.n 1.10 95/08/12 17:35:23
+'\" 
+.so STk-man.macros
+.TH tkwait n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+tkwait \- Wait for variable to change or window to be destroyed
+.SH SYNOPSIS
+(\fBtkwait 'variable \fIname\fR)
+.sp
+(\fBtkwait 'visibility \fIname\fR)
+.sp
+(\fBtkwait 'window \fIname\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBtkwait\fR procedure waits for one of several things to happen,
+then it returns without taking any other actions.
+The return value is always an empty string.
+If the first argument is \fBvariable\fR (or any abbreviation of
+it) then the second argument is the name of a global variable and the
+procedure waits for that variable to be modified.
+If the first argument is \fBvisibility\fR (or any abbreviation
+of it) then the second argument is the name of a window and the
+\fBtkwait\fR procedure waits for a change in its
+visibility state (as indicated by the arrival of a VisibilityNotify
+event).  This form is typically used to wait for a newly-created
+window to appear on the screen before taking some action.
+If the first argument is \fBwindow\fR (or any abbreviation
+of it) then the second argument is the name of a window and the
+\fBtkwait\fR procedure waits for that window to be destroyed.
+This form is typically used to wait for a user to finish interacting
+with a dialog box before using the result of that interaction.
+.PP
+While the \fBtkwait\fR procedure is waiting it processes events in
+the normal fashion, so the application will continue to respond
+to user interactions.
diff --git a/Doc/Manual/toplevel.n b/Doc/Manual/toplevel.n
new file mode 100644
index 0000000..e26779d
--- /dev/null
+++ b/Doc/Manual/toplevel.n
@@ -0,0 +1,132 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) toplevel.n 1.21 95/08/12 17:35:25
+'\" 
+.so STk-man.macros
+.TH toplevel n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+toplevel \- Create and manipulate toplevel widgets
+.SH SYNOPSIS
+(\fBtoplevel\fI \fIwidget\-name \fR?\fIoptions\fR?)
+.SO
+:borderwidth	:highlightbackground	:highlightthickness	:takefocus
+:cursor	:highlightcolor	:relief
+.SE
+.SH "WIDGET-SPECIFIC OPTIONS"
+.OP :background background Background background
+This option is the same as the standard \fBbackground\fR option
+except that its value may also be specified as an empty string.
+In this case, the widget will display no background or border, and
+no colors will be consumed from its colormap for its background
+and border.
+.OP :class class Class class
+Specifies a class for the window.
+This class will be used when querying the option database for
+the window's other options, and it will also be used later for
+other purposes such as bindings.
+The \fBclass\fR option may not be changed with the \fBconfigure\fR
+widget procedure.
+.OP :colormap colormap Colormap colormap
+Specifies a colormap to use for the window.
+The value may be either \fBnew\fR, in which case a new colormap is
+created for the window and its children, or the name of another
+window (which must be on the same screen and have the same visual
+as \fIwidget\-name\fR), in which case the new window will use the colormap
+from the specified window.
+If the \fBcolormap\fR option is not specified, the new window
+uses the default colormap of its screen.
+This option may not be changed with the \fBconfigure\fR
+widget procedure.
+.OP :height height Height height
+Specifies the desired height for the window in any of the forms
+acceptable to \fBTk_GetPixels\fR.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+.OP :screen "" "" ""
+Specifies the screen on which to place the new window.
+Any valid screen name may be used, even one associated with a
+different display.
+Defaults to the same screen as its parent.
+This option is special in that it may not be specified via the option
+database, and it may not be modified with the \fBconfigure\fR
+widget procedure.
+.OP :visual visual Visual visual
+Specifies visual information for the new window in any of the
+forms accepted by \fBTk_GetVisual\fR.
+If this option is not specified, the new window will use the default
+visual for its screen.
+The \fBvisual\fR option may not be modified with the \fBconfigure\fR
+widget procedure.
+.OP :width width Width width
+Specifies the desired width for the window in any of the forms
+acceptable to \fBTk_GetPixels\fR.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBtoplevel\fR procedure creates a new toplevel widget (given
+by the \fIwidget\-name\fR argument).  Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the toplevel such as its background color
+and relief.  The \fBtoplevel\fR procedure returns the
+path name of the new window.
+.PP
+A toplevel is similar to a frame except that it is created as a
+top-level window:  its X parent is the root window of a screen
+rather than the logical parent from its path name.  The primary
+purpose of a toplevel is to serve as a container for dialog boxes
+and other collections of widgets.  The only visible features
+of a toplevel are its background color and an optional 3-D border
+to make the toplevel appear raised or sunken.
+
+.SH "WIDGET PROCEDURE"
+.PP
+The \fBtoplevel\fR procedure creates a new STk procedure whose
+name is the same as the path name of the toplevel's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+.CS
+(\fIwidget\-name option \fR?\fIarg arg ...\fR?)
+.CE
+\fIPathName\fR is the name of the procedure, which is the same as
+the toplevel widget's path name.  \fIOption\fR and the \fIarg\fRs
+determine the exact behavior of the procedure.  The following
+procedures are possible for toplevel widgets:
+.TP
+(\fIwidget\-name '\fBcget\fR \fIoption\fR)
+Returns the current value of the configuration option given
+by \fIoption\fR.
+\fIOption\fR may have any of the values accepted by the \fBtoplevel\fR
+procedure.
+.TP
+(\fIwidget\-name '\fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR?)
+Query or modify the configuration options of the widget.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for \fIwidget\-name\fR (see \fBTk_ConfigureInfo\fR for
+information on the format of this list).  If \fIoption\fR is specified
+with no \fIvalue\fR, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified).  If
+one or more \fIoption\-value\fR pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+\fIOption\fR may have any of the values accepted by the \fBtoplevel\fR
+procedure.
+
+.SH BINDINGS
+.PP
+When a new toplevel is created, it has no default event bindings:
+toplevels are not intended to be interactive.
+
+.SH SEE ALSO
+wm
diff --git a/Doc/Manual/update.n b/Doc/Manual/update.n
new file mode 100644
index 0000000..520bcc3
--- /dev/null
+++ b/Doc/Manual/update.n
@@ -0,0 +1,52 @@
+'\"
+'\" Copyright (c) 1990-1992 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) update.n 1.9 95/05/20 16:34:48
+'\" 
+.so STk-man.macros
+.TH update n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+update \- Process pending events and/or when-idle handlers
+.SH SYNOPSIS
+(\fBupdate\fR)
+.sp
+(\fBupdate\fR '\fBidletasks\fR)
+.BE
+
+.SH DESCRIPTION
+.PP
+This procedure is used to bring the entire application world
+``up to date.''
+It flushes all pending output to the display,  waits for the
+server to process that output and return errors or events,
+handles all pending events of any sort (including when-idle handlers),
+and repeats this set of operations until there are no pending
+events, no pending when-idle handlers, no pending output to the server,
+and no operations still outstanding at the server.  
+.PP
+If the \fBidletasks\fR option is specified as an argument to the
+procedure, then no new events or errors are processed;  only when-idle
+idlers are invoked.
+This causes operations that are normally deferred, such as display
+updates and window layout calculations, to be performed immediately.
+.PP
+The \fBupdate idletasks\fR procedure is useful in scripts where
+changes have been made to the application's state and you want those
+changes to appear on the display immediately, rather than waiting
+for the script to complete.  Most display updates are performed as
+idle handlers, so \fBupdate idletasks\fR will cause them to run.
+However, there are some kinds of updates that only happen in
+response to events, such as those triggered by window size changes;
+these updates will not occur in \fBupdate idletasks\fR.
+.PP
+The \fBupdate\fR procedure with no options is useful in scripts where
+you are performing a long-running computation but you still want
+the application to respond to user interactions;  if you occasionally
+call \fBupdate\fR then user input will be processed during the
+next call to \fBupdate\fR.
diff --git a/Doc/Manual/winfo.n b/Doc/Manual/winfo.n
new file mode 100644
index 0000000..53693d7
--- /dev/null
+++ b/Doc/Manual/winfo.n
@@ -0,0 +1,333 @@
+'\"
+'\" Copyright (c) 1990-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) winfo.n 1.39 95/09/27 10:50:13
+'\" 
+.so STk-man.macros
+.TH winfo n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+winfo \- Return window-related information
+.SH SYNOPSIS
+(\fBwinfo\fR \fIoption \fR?\fIarg arg ...\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBwinfo\fR procedure is used to retrieve information about windows
+managed by Tk.  It can take any of a number of different forms,
+depending on the \fIoption\fR argument.  The legal forms are:
+.TP
+(\fBwinfo 'atom \fR \fIname\fR)
+.TP
+(\fBwinfo 'atom \fR\fB:displayof \fIwindow\fR \fIname\fR)
+Returns a  the integer identifier for the
+atom whose name is \fIname\fR.  If no atom exists with the name
+\fIname\fR then a new one is created.
+If the \fB:displayof\fR option is given then the atom is looked
+up on the display of \fIwindow\fR;  otherwise it is looked up on
+the display of the application's main window.
+.TP
+(\fBwinfo 'atomname \fR \fIid\fR)
+.TP
+(\fBwinfo 'atomname \fR\fB:displayof \fIwindow\fR \fIid\fR)
+Returns the textual name for the atom whose integer identifier is
+\fIid\fR.
+If the \fB:displayof\fR option is given then the identifier is looked
+up on the display of \fIwindow\fR;  otherwise it is looked up on
+the display of the application's main window.
+This procedure is the inverse of the \fBwinfo atom\fR procedure.
+It generates an error if no such atom exists.
+.TP
+(\fBwinfo 'cells \fIwindow\fR)
+Returns a decimal string giving the number of cells in the
+color map for \fIwindow\fR.
+.TP
+(\fBwinfo 'children \fIwindow\fR)
+Returns a list containing the path names of all the children
+of \fIwindow\fR.  Top-level windows are returned as children
+of their logical parents.
+.TP
+(\fBwinfo 'class \fIwindow\fR)
+Returns the class name for \fIwindow\fR.
+.TP
+(\fBwinfo 'colormapfull \fIwindow\fR)
+Returns \fB#t\fR if the colormap for \fIwindow\fR is known to be full, \fB#f\fR
+otherwise.  The colormap for a window is ``known'' to be full if the last
+attempt to allocate a new color on that window failed and this
+application hasn't freed any colors in the colormap since the
+failed allocation.
+.TP
+(\fBwinfo 'containing \fR \fIrootX rootY\fR)
+.TP
+(\fBwinfo 'containing \fR\fB:displayof \fIwindow\fR \fIrootX rootY\fR)
+Returns the path name for the window containing the point given
+by \fIrootX\fR and \fIrootY\fR.
+\fIRootX\fR and \fIrootY\fR are specified in screen units (i.e.
+any form acceptable to \fBTk_GetPixels\fR) in the coordinate
+system of the root window (if a virtual-root window manager is in
+use then the coordinate system of the virtual root window is used).
+If the \fB:displayof\fR option is given then the coordinates refer
+to the screen containing \fIwindow\fR;  otherwise they refer to the
+screen of the application's main window.
+If no window in this application contains the point then an empty
+list is returned.
+In selecting the containing window, children are given higher priority
+than parents and among siblings the highest one in the stacking order is
+chosen.
+.TP
+(\fBwinfo 'depth \fIwindow\fR)
+Returns an integer giving the depth of \fIwindow\fR (number
+of bits per pixel).
+.TP
+(\fBwinfo 'exists \fIwindow\fR)
+Returns #t if there exists a window named \fIwindow\fR, #f if no such
+window exists.
+.TP
+(\fBwinfo 'fpixels \fIwindow\fR \fInumber\fR)
+Returns a floating-point value giving the number of pixels
+in \fIwindow\fR corresponding to the distance given by \fInumber\fR.
+\fINumber\fR may be specified in any of the forms acceptable
+to \fBTk_GetScreenMM\fR, such as ``2.0c'' or ``1i''.
+The return value may be fractional;  for an integer value, use
+\fBwinfo pixels\fR.
+.TP
+(\fBwinfo 'geometry \fIwindow\fR)
+Returns the geometry for \fIwindow\fR, in the form
+\fIwidth\fBx\fIheight\fB+\fIx\fB+\fIy\fR.  All dimensions are
+in pixels.
+.TP
+(\fBwinfo 'height \fIwindow\fR)
+Returns a decimal string giving \fIwindow\fR's height in pixels.
+When a window is first created its height will be 1 pixel;  the
+height will eventually be changed by a geometry manager to fulfill
+the window's needs.
+If you need the true height immediately after creating a widget,
+invoke \fBupdate\fR to force the geometry manager to arrange it,
+or use \fBwinfo reqheight\fR to get the window's requested height
+instead of its actual height.
+.TP
+(\fBwinfo 'id \fIwindow\fR)
+Returns an integer indicating the X identifier for \fIwindow\fR.
+.TP
+(\fBwinfo 'interps \fR)
+.TP
+(\fBwinfo 'interps \fR\fB:displayof \fIwindow\fR)
+Returns a list whose members are the names of all STk interpreters
+(e.g. all Tk-based applications) currently registered for
+a particular display.
+If the \fB:displayof\fR option is given then the return value refers
+to the display of \fIwindow\fR;  otherwise it refers to
+the display of the application's main window.
+.TP
+(\fBwinfo 'ismapped \fIwindow\fR)
+Returns \fB#t\fR if \fIwindow\fR is currently mapped, \fB#f\fR otherwise.
+.TP
+(\fBwinfo 'manager \fIwindow\fR)
+Returns the name of the geometry manager currently
+responsible for \fIwindow\fR, or an empty list if \fIwindow\fR
+isn't managed by any geometry manager.
+The name is usually the name of the STk procedure for the geometry
+manager, such as \fBpack\fR or \fBplace\fR.
+If the geometry manager is a widget, such as canvases or text, the
+name is the widget's class procedure, such as \fBcanvas\fR.
+.TP
+(\fBwinfo 'name \fIwindow\fR)
+Returns \fIwindow\fR's name (i.e. its name within its parent, as opposed
+to its full path name).
+The procedure \fB(winfo name *root*)\fR will return the name of the application.
+.TP
+(\fBwinfo 'parent \fIwindow\fR)
+Returns the path name of \fIwindow\fR's parent, or an empty list
+if \fIwindow\fR is the main window of the application.
+.TP
+(\fBwinfo 'pathname \fR \fIid\fR)
+.TP
+(\fBwinfo 'pathname \fR\fB:displayof \fIwindow\fR \fIid\fR)
+Returns the path name of the window whose X identifier is \fIid\fR.
+\fIId\fR must be a decimal, hexadecimal, or octal integer and must
+correspond to a window in the invoking application.
+If the \fB:displayof\fR option is given then the identifier is looked
+up on the display of \fIwindow\fR;  otherwise it is looked up on
+the display of the application's main window.
+.TP
+(\fBwinfo 'pixels \fIwindow\fR \fInumber\fR)
+Returns the number of pixels in \fIwindow\fR corresponding
+to the distance given by \fInumber\fR.
+\fINumber\fR may be specified in any of the forms acceptable
+to \fBTk_GetPixels\fR, such as ``2.0c'' or ``1i''.
+The result is rounded to the nearest integer value;  for a
+fractional result, use \fBwinfo fpixels\fR.
+.TP
+(\fBwinfo 'pointerx \fIwindow\fR)
+If the mouse pointer is on the same screen as \fIwindow\fR, returns the
+pointer's x coordinate, measured in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position is
+measured in the virtual root.
+If the mouse pointer isn't on the same screen as \fIwindow\fR then
+-1 is returned.
+.TP
+(\fBwinfo 'pointerxy \fIwindow\fR)
+If the mouse pointer is on the same screen as \fIwindow\fR, returns a list
+with two elements, which are the pointer's x and y coordinates measured
+in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position
+is computed in the virtual root.
+If the mouse pointer isn't on the same screen as \fIwindow\fR then
+both of the returned coordinates are -1.
+.TP
+(\fBwinfo 'pointery \fIwindow\fR)
+If the mouse pointer is on the same screen as \fIwindow\fR, returns the
+pointer's y coordinate, measured in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position
+is computed in the virtual root.
+If the mouse pointer isn't on the same screen as \fIwindow\fR then
+-1 is returned.
+.TP
+(\fBwinfo 'reqheight \fIwindow\fR)
+Returns an integer giving \fIwindow\fR's requested height,
+in pixels.  This is the value used by \fIwindow\fR's geometry
+manager to compute its geometry.
+.TP
+(\fBwinfo 'reqwidth \fIwindow\fR)
+Returns an integer giving \fIwindow\fR's requested width,
+in pixels.  This is the value used by \fIwindow\fR's geometry
+manager to compute its geometry.
+.TP
+(\fBwinfo 'rgb \fIwindow color\fR)
+Returns a list containing three decimal values, which are the
+red, green, and blue intensities that correspond to \fIcolor\fR in
+the window given by \fIwindow\fR.  \fIColor\fR
+may be specified in any of the forms acceptable for a color
+option.
+.TP
+(\fBwinfo 'rootx \fIwindow\fR)
+Returns an integer giving the x-coordinate, in the root
+window of the screen, of the
+upper-left corner of \fIwindow\fR's border (or \fIwindow\fR if it
+has no border).
+.TP
+(\fBwinfo 'rooty \fIwindow\fR)
+Returns an integer giving the y-coordinate, in the root
+window of the screen, of the
+upper-left corner of \fIwindow\fR's border (or \fIwindow\fR if it
+has no border).
+.TP
+(\fBwinfo 'screen \fIwindow\fR)
+Returns the name of the screen associated with \fIwindow\fR, in
+the form \fIdisplayName\fR.\fIscreenIndex\fR.
+.TP
+(\fBwinfo 'screencells \fIwindow\fR)
+Returns an integer giving the number of cells in the default
+color map for \fIwindow\fR's screen.
+.TP
+(\fBwinfo 'screendepth \fIwindow\fR)
+Returns an integer giving the depth of the root window
+of \fIwindow\fR's screen (number of bits per pixel).
+.TP
+(\fBwinfo 'screenheight \fIwindow\fR)
+Returns an integer giving the height of \fIwindow\fR's screen,
+in pixels.
+.TP
+(\fBwinfo 'screenmmheight \fIwindow\fR)
+Returns an integer giving the height of \fIwindow\fR's screen,
+in millimeters.
+.TP
+\fBwinfo screenmmwidth \fIwindow\fR
+Returns an integer giving the width of \fIwindow\fR's screen,
+in millimeters.
+.TP
+(\fBwinfo 'screenvisual \fIwindow\fR)
+Returns one of the following symbol to indicate the default visual
+class for \fIwindow\fR's screen: \fBdirectcolor\fR, \fBgrayscale\fR,
+\fBpseudocolor\fR, \fBstaticcolor\fR, \fBstaticgray\fR, or
+\fBtruecolor\fR.
+.TP
+(\fBwinfo 'screenwidth \fIwindow\fR)
+Returns an integer giving the width of \fIwindow\fR's screen,
+in pixels.
+.TP
+(\fBwinfo 'server \fIwindow\fR)
+Returns a string containing information about the server for
+\fIwindow\fR's display.  The exact format of this string may vary
+from platform to platform.  For X servers the string
+has the form ``\fBX\fImajor\fBR\fIminor vendor vendorVersion\fR''
+where \fImajor\fR and \fIminor\fR are the version and revision
+numbers provided by the server (e.g., \fBX11R5\fR), \fIvendor\fR
+is the name of the vendor for the server, and \fIvendorRelease\fR
+is an integer release number provided by the server.
+.TP
+(\fBwinfo 'toplevel \fIwindow\fR)
+Returns the path name of the top-level window containing \fIwindow\fR.
+.TP
+(\fBwinfo 'viewable \fIwindow\fR)
+Returns \fB#t\fR if \fIwindow\fR and all of its ancestors up through the
+nearest toplevel window are mapped.  Returns \fB#f\fR if any of these
+windows are not mapped.
+.TP
+(\fBwinfo 'visual \fIwindow\fR)
+Returns one of the following strings to indicate the visual
+class for \fIwindow\fR: \fBdirectcolor\fR, \fBgrayscale\fR,
+\fBpseudocolor\fR, \fBstaticcolor\fR, \fBstaticgray\fR, or
+\fBtruecolor\fR.
+.TP
+(\fBwinfo 'visualid \fIwindow\fR)
+Returns the X identifier for the visual for \fIwindow\fR.
+.TP
+(\fBwinfo 'visualsavailable \fIwindow\fR)
+.TP
+(\fBwinfo 'visualsavailable \fIwindow\fR \fB'includeids\fR)
+Returns a list whose elements describe the visuals available for
+\fIwindow\fR's screen.
+Each element consists of a visual class followed by an integer depth.
+The class has the same form as returned by \fBwinfo visual\fR.
+The depth gives the number of bits per pixel in the visual.
+In addition, if the \fBincludeids\fR argument is provided, then the
+depth is followed by the X identifier for the visual.
+.TP
+(\fBwinfo 'vrootheight \fIwindow\fR)
+Returns the height of the virtual root window associated with \fIwindow\fR
+if there is one;  otherwise returns the height of \fIwindow\fR's screen.
+.TP
+(\fBwinfo 'vrootwidth \fIwindow\fR)
+Returns the width of the virtual root window associated with \fIwindow\fR
+if there is one;  otherwise returns the width of \fIwindow\fR's screen.
+.TP
+(\fBwinfo 'vrootx \fIwindow\fR)
+Returns the x-offset of the virtual root window associated with \fIwindow\fR,
+relative to the root window of its screen.
+This is normally either zero or negative.
+Returns 0 if there is no virtual root window for \fIwindow\fR.
+.TP
+(\fBwinfo 'vrooty \fIwindow\fR)
+Returns the y-offset of the virtual root window associated with \fIwindow\fR,
+relative to the root window of its screen.
+This is normally either zero or negative.
+Returns 0 if there is no virtual root window for \fIwindow\fR.
+.TP
+(\fBwinfo 'width \fIwindow\fR)
+Returns an integer giving \fIwindow\fR's width in pixels.
+When a window is first created its width will be 1 pixel;  the
+width will eventually be changed by a geometry manager to fulfill
+the window's needs.
+If you need the true width immediately after creating a widget,
+invoke \fBupdate\fR to force the geometry manager to arrange it,
+or use \fBwinfo reqwidth\fR to get the window's requested width
+instead of its actual width.
+.TP
+(\fBwinfo 'x \fIwindow\fR)
+Returns an integer giving the x-coordinate, in \fIwindow\fR's
+parent, of the
+upper-left corner of \fIwindow\fR's border (or \fIwindow\fR if it
+has no border).
+.TP
+(\fBwinfo 'y \fIwindow\fR)
+Returns an integer giving the y-coordinate, in \fIwindow\fR's
+parent, of the
+upper-left corner of \fIwindow\fR's border (or \fIwindow\fR if it
+has no border).
diff --git a/Doc/Manual/wm.n b/Doc/Manual/wm.n
new file mode 100644
index 0000000..1bd850c
--- /dev/null
+++ b/Doc/Manual/wm.n
@@ -0,0 +1,539 @@
+'\"
+'\" Copyright (c) 1991-1994 The Regents of the University of California.
+'\" Copyright (c) 1994-1995 Sun Microsystems, Inc.
+'\"
+'\" See the file "license.terms" for information on usage and redistribution
+'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+'\" 
+'\" @(#) wm.n 1.30 95/08/12 17:34:53
+'\" 
+.so STk-man.macros
+.TH wm n 3.1 STk "Tk Built-In Commands"
+.BS
+'\" Note:  do not modify the .SH NAME line immediately below!
+.SH NAME
+wm \- Communicate with window manager
+.SH SYNOPSIS
+(\fBwm\fR \fIoption window \fR?\fIargs\fR?)
+.BE
+
+.SH DESCRIPTION
+.PP
+The \fBwm\fR procedure is used to interact with window managers in
+order to control such things as the title for a window, its geometry,
+or the increments in terms of which it may be resized.  The \fBwm\fR
+procedure can take any of a number of different forms, depending on
+the \fIoption\fR argument.  All of the forms expect at least one
+additional argument, \fIwindow\fR, which must be the path name of a
+top-level window.
+.PP
+The legal forms for the \fBwm\fR procedure are:
+.TP
+(\fBwm 'aspect \fIwindow\fR ?\fIminNumer minDenom maxNumer maxDenom\fR?)
+If \fIminNumer\fR, \fIminDenom\fR, \fImaxNumer\fR, and \fImaxDenom\fR
+are all specified, then they will be passed to the window manager
+and the window manager should use them to enforce a range of
+acceptable aspect ratios for \fIwindow\fR.  The aspect ratio of
+\fIwindow\fR (width/length) will be constrained to lie
+between \fIminNumer\fR/\fIminDenom\fR and \fImaxNumer\fR/\fImaxDenom\fR.
+If \fIminNumer\fR etc. are all specified as empty strings, then
+any existing aspect ratio restrictions are removed.
+If \fIminNumer\fR etc. are specified, then the procedure returns an
+empty list.  Otherwise, it returns
+a STk list containing four elements, which are the current values
+of \fIminNumer\fR, \fIminDenom\fR, \fImaxNumer\fR, and \fImaxDenom\fR
+(if no aspect restrictions are in effect, then an empty list is
+returned).
+.TP
+(\fBwm 'client \fIwindow\fR)
+.TP
+(\fBwm 'client \fIwindow\fR \fIname\fR)
+If \fIname\fR is specified, this procedure stores \fIname\fR (which
+should be the name of
+the host on which the application is executing) in \fIwindow\fR's
+\fBWM_CLIENT_MACHINE\fR property for use by the window manager or
+session manager.
+The procedure returns an empty list in this case.
+If \fIname\fR isn't specified, the procedure returns the last name
+set in a \fBwm client\fR procedure for \fIwindow\fR.
+If \fIname\fR is specified as an empty string, the procedure deletes the
+\fBWM_CLIENT_MACHINE\fR property from \fIwindow\fR.
+.TP
+(\fBwm 'colormapwindows \fIwindow\fR)
+.TP
+(\fBwm 'colormapwindows \fIwindow\fR \fIwindowList\fR)
+This procedure is used to manipulate the \fBWM_COLORMAP_WINDOWS\fR
+property, which provides information to the window managers about
+windows that have private colormaps.
+If \fIwindowList\fR isn't specified, the procedure returns a list
+whose elements are the names of the windows in the \fBWM_COLORMAP_WINDOWS\fR
+property.
+If \fIwindowList\fR is specified, it consists of a list of window
+path names;  the procedure overwrites the \fBWM_COLORMAP_WINDOWS\fR
+property with the given windows and returns an empty list.
+The \fBWM_COLORMAP_WINDOWS\fR property should normally contain a
+list of the internal windows within \fIwindow\fR whose colormaps differ
+from their parents.
+The order of the windows in the property indicates a priority order:
+the window manager will attempt to install as many colormaps as possible
+from the head of this list when \fIwindow\fR gets the colormap focus.
+If \fIwindow\fR is not included among the windows in \fIwindowList\fR,
+Tk implicitly adds it at the end of the \fBWM_COLORMAP_WINDOWS\fR
+property, so that its colormap is lowest in priority.
+If \fBwm colormapwindows\fR is not invoked, Tk will automatically set
+the property for each top-level window to all the internal windows
+whose colormaps differ from their parents, followed by the top-level
+itself;  the order of the internal windows is undefined.
+See the ICCCM documentation for more information on the
+\fBWM_COLORMAP_WINDOWS\fR property.
+.TP
+(\fBwm 'command \fIwindow\fR)
+.TP
+(\fBwm 'command \fIwindow\fR \fIvalue\fR)
+If \fIvalue\fR is specified, this procedure stores \fIvalue\fR in \fIwindow\fR's
+\fBWM_COMMAND\fR property for use by the window manager or
+session manager and returns an empty list.
+\fIValue\fR must have proper list structure;  the elements should
+contain the words of the procedure used to invoke the application.
+If \fIvalue\fR isn't specified then the procedure returns the last value
+set in a \fBwm procedure\fR command for \fIwindow\fR.
+If \fIvalue\fR is specified as an empty string, the procedure
+deletes the \fBWM_COMMAND\fR property from \fIwindow\fR.
+.TP
+(\fBwm 'deiconify \fIwindow\fR)
+Arrange for \fIwindow\fR to be displayed in normal (non-iconified) form.
+This is done by mapping the window.  If the window has never been
+mapped then this procedure will not map the window, but it will ensure
+that when the window is first mapped it will be displayed
+in de-iconified form.  Returns an empty list.
+.TP
+(\fBwm 'focusmodel \fIwindow\fR)
+.TP
+(\fBwm 'focusmodel \fIwindow\fR '\fBactive\fR)
+.TP
+(\fBwm 'focusmodel \fIwindow\fR '\fBpassive\fR)
+If \fBactive\fR or \fBpassive\fR is supplied as an optional argument
+to the procedure, then it specifies the focus model for \fIwindow\fR.
+In this case the procedure returns an empty list.  If no additional
+argument is supplied, then the procedure returns the current focus
+model for \fIwindow\fR.
+An \fBactive\fR focus model means that \fIwindow\fR will claim the
+input focus for itself or its descendants, even at times when
+the focus is currently in some other application.  \fBPassive\fR means that
+\fIwindow\fR will never claim the focus for itself:  the window manager
+should give the focus to \fIwindow\fR at appropriate times.  However,
+once the focus has been given to \fIwindow\fR or one of its descendants,
+the application may re-assign the focus among \fIwindow\fR's descendants.
+The focus model defaults to \fBpassive\fR, and Tk's \fBfocus\fR procedure
+assumes a passive model of focussing.
+.TP
+(\fBwm 'frame \fIwindow\fR)
+If \fIwindow\fR has been reparented by the window manager into a
+decorative frame, the procedure returns the X window identifier for
+the outermost frame that contains \fIwindow\fR (the window whose
+parent is the root or virtual root).  If \fIwindow\fR hasn't been
+reparented by the window manager then the procedure returns the
+X window identifier for \fIwindow\fR.
+.TP
+(\fBwm 'geometry \fIwindow\fR)
+.TP
+(\fBwm 'geometry \fIwindow\fR \fInewGeometry\fR)
+If \fInewGeometry\fR is specified, then the geometry of \fIwindow\fR
+is changed and an empty list is returned.  Otherwise the current
+geometry for \fIwindow\fR is returned (this is the most recent
+geometry specified either by manual resizing or
+in a \fBwm geometry\fR procedure).  \fINewGeometry\fR has
+the form "\fB=\fIwidth\fBx\fIheight\fB\(+-\fIx\fB\(+-\fIy\fR", where
+any of \fB=\fR, \fIwidth\fBx\fIheight\fR, or \fB\(+-\fIx\fB\(+-\fIy\fR
+may be omitted.  \fIWidth\fR and \fIheight\fR are positive integers
+specifying the desired dimensions of \fIwindow\fR.  If \fIwindow\fR
+is gridded (see GRIDDED GEOMETRY MANAGEMENT below) then the dimensions
+are specified in grid units;  otherwise they are specified in pixel
+units.  \fIX\fR and \fIy\fR specify the desired location of
+\fIwindow\fR on the screen, in pixels.
+If \fIx\fR is preceded by \fB+\fR, it specifies
+the number of pixels between the left edge of the screen and the left
+edge of \fIwindow\fR's border;  if preceded by \fB:\fR then
+\fIx\fR specifies the number of pixels
+between the right edge of the screen and the right edge of \fIwindow\fR's
+border.  If \fIy\fR is preceded by \fB+\fR then it specifies the
+number of pixels between the top of the screen and the top
+of \fIwindow\fR's border;  if \fIy\fR is preceded by \fB:\fR then
+it specifies the number of pixels between the bottom of \fIwindow\fR's
+border and the bottom of the screen.
+If \fInewGeometry\fR is specified as an empty string then any
+existing user-specified geometry for \fIwindow\fR is cancelled, and
+the window will revert to the size requested internally by its
+widgets.
+.TP
+(\fBwm 'grid \fIwindow\fR)
+.TP
+(\fBwm 'grid \fIwindow\fR \fIbaseWidth baseHeight widthInc heightInc\fR)
+This procedure indicates that \fIwindow\fR is to be managed as a
+gridded window.
+It also specifies the relationship between grid units and pixel units.
+\fIBaseWidth\fR and \fIbaseHeight\fR specify the number of grid
+units corresponding to the pixel dimensions requested internally
+by \fIwindow\fR using \fBTk_GeometryRequest\fR.  \fIWidthInc\fR
+and \fIheightInc\fR specify the number of pixels in each horizontal
+and vertical grid unit.
+These four values determine a range of acceptable sizes for
+\fIwindow\fR, corresponding to grid-based widths and heights
+that are non-negative integers.
+Tk will pass this information to the window manager;  during
+manual resizing, the window manager will restrict the window's size
+to one of these acceptable sizes.
+Furthermore, during manual resizing the window manager will display
+the window's current size in terms of grid units rather than pixels.
+If \fIbaseWidth\fR etc. are all specified as empty strings, then
+\fIwindow\fR will no longer be managed as a gridded window.  If
+\fIbaseWidth\fR etc. are specified then the return value is an
+empty list.
+Otherwise the return value is a STk list containing
+four elements corresponding to the current \fIbaseWidth\fR,
+\fIbaseHeight\fR, \fIwidthInc\fR, and \fIheightInc\fR;  if
+\fIwindow\fR is not currently gridded, then \fB#f\fR
+is returned.
+Note: this procedure should not be needed very often, since the
+\fBTk_SetGrid\fR library procedure and the \fBsetGrid\fR option
+provide easier access to the same functionality.
+.TP
+(\fBwm 'group \fIwindow\fR)
+.TP
+(\fBwm 'group \fIwindow\fR \fIwidget\-name\fR)
+If \fIwidget\-name\fR is specified, it gives the path name for the leader of
+a group of related windows.  The window manager may use this information,
+for example, to unmap all of the windows in a group when the group's
+leader is iconified.  \fIPathName\fR may be specified as \fB#f\fR to
+remove \fIwindow\fR from any group association.  If \fIwidget\-name\fR is
+specified then the procedure returns an empty list;  otherwise it
+returns the path name of \fIwindow\fR's current group leader, or \fB#f\fR
+if \fIwindow\fR isn't part of any group.
+.TP
+(\fBwm 'iconbitmap \fIwindow\fR)
+.TP
+(\fBwm 'iconbitmap \fIwindow\fR \fIbitmap\fR)
+If \fIbitmap\fR is specified, then it names a bitmap in the standard
+forms accepted by Tk (see the \fBTk_GetBitmap\fR manual entry for details).
+This bitmap is passed to the window manager to be displayed in
+\fIwindow\fR's icon, and the procedure returns an empty list.  If
+\fB#f\fR is specified for \fIbitmap\fR, then any current icon
+bitmap is cancelled for \fIwindow\fR.
+If \fIbitmap\fR is specified then the procedure returns an empty list.
+Otherwise it returns the name of
+the current icon bitmap associated with \fIwindow\fR, or \fB#f\fR
+string if \fIwindow\fR has no icon bitmap.
+.TP
+(\fBwm 'iconify \fIwindow\fR)
+Arrange for \fIwindow\fR to be iconified.  It \fIwindow\fR hasn't
+yet been mapped for the first time, this procedure will arrange for
+it to appear in the iconified state when it is eventually mapped.
+.TP
+(\fBwm 'iconmask \fIwindow\fR)
+.TP
+(\fBwm 'iconmask \fIwindow\fR \fIbitmap\fR)
+If \fIbitmap\fR is specified, then it names a bitmap in the standard
+forms accepted by Tk (see the \fBTk_GetBitmap\fR manual entry for details).
+This bitmap is passed to the window manager to be used as a mask
+in conjunction with the \fBiconbitmap\fR option:  where the mask
+has zeroes no icon will be displayed;  where it has ones, the bits
+from the icon bitmap will be displayed.  If
+\fB#f\fR is specified for \fIbitmap\fR then any current icon
+mask is cancelled for \fIwindow\fR (this is equivalent to specifying
+a bitmap of all ones).  If \fIbitmap\fR is specified
+then the procedure returns an empty string.  Otherwise it
+returns the name of the current icon mask associated with
+\fIwindow\fR, or \fB#f\fR if no mask is in effect.
+.TP
+(\fBwm 'iconname \fIwindow\fR)
+.TP
+(\fBwm 'iconname \fIwindow\fR \fInewName\fR)
+If \fInewName\fR is specified, then it is passed to the window
+manager;  the window manager should display \fInewName\fR inside
+the icon associated with \fIwindow\fR.  In this case an empty
+list is returned as result.  If \fInewName\fR isn't specified
+then the procedure returns the current icon name for \fIwindow\fR,
+or an empty string if no icon name has been specified (in this
+case the window manager will normally display the window's title,
+as specified with the \fBwm title\fR procedure).
+.TP
+(\fBwm 'iconposition \fIwindow\fR)
+.TP
+(\fBwm 'iconposition \fIwindow\fR \fIx y\fR)
+If \fIx\fR and \fIy\fR are specified, they are passed to the window
+manager as a hint about where to position the icon for \fIwindow\fR.
+In this case an empty list is returned.  If \fIx\fR and \fIy\fR are
+specified as \fB#f\fR then any existing icon position hint is cancelled.
+If neither \fIx\fR nor \fIy\fR is specified, then the procedure returns
+a list containing two values, which are the current icon position
+hints (if no hints are in effect then \fB#f\fR list is returned).
+.TP
+(\fBwm 'iconwindow \fIwindow\fR)
+.TP
+(\fBwm 'iconwindow \fIwindow\fR \fIwidget\-name\fR)
+If \fIwidget\-name\fR is specified, it is the path name for a window to
+use as icon for \fIwindow\fR: when \fIwindow\fR is iconified then
+\fIwidget\-name\fR will be mapped to serve as icon, and when \fIwindow\fR
+is de-iconified then \fIwidget\-name\fR will be unmapped again.  If
+\fIwidget\-name\fR is specified as \fB#f\fR then any existing
+icon window association for \fIwindow\fR will be cancelled.  If
+the \fIwidget\-name\fR argument is specified then an empty list is
+returned.  Otherwise the procedure returns the path name of the
+current icon window for \fIwindow\fR, or \fB#f\fR if there
+is no icon window currently specified for \fIwindow\fR.
+Button press events are disabled for \fIwindow\fR as long as it is
+an icon window;  this is needed in order to allow window managers
+to ``own'' those events.
+Note: not all window managers support the notion of an icon window.
+.TP
+(\fBwm 'maxsize \fIwindow\fR)
+.TP
+(\fBwm 'maxsize \fIwindow\fR \fIwidth height\fR)
+If \fIwidth\fR and \fIheight\fR are specified, they give
+the maximum permissible dimensions for \fIwindow\fR.
+For gridded windows the dimensions are specified in
+grid units;  otherwise they are specified in pixel units.
+The window manager will restrict the window's dimensions to be
+less than or equal to \fIwidth\fR and \fIheight\fR.
+If \fIwidth\fR and \fIheight\fR are
+specified, then the procedure returns an empty string.  Otherwise
+it returns a list with two elements, which are the
+maximum width and height currently in effect.
+The maximum size defaults to the size of the screen.
+If resizing has been disabled with the \fBwm resizable\fR procedure,
+then this procedure has no effect.
+See the sections on geometry management below for more information.
+.TP
+(\fBwm 'minsize \fIwindow\fR)
+.TP
+(\fBwm 'minsize \fIwindow\fR \fIwidth height\fR)
+If \fIwidth\fR and \fIheight\fR are specified, they give the
+minimum permissible dimensions for \fIwindow\fR.
+For gridded windows the dimensions are specified in
+grid units;  otherwise they are specified in pixel units.
+The window manager will restrict the window's dimensions to be
+greater than or equal to \fIwidth\fR and \fIheight\fR.
+If \fIwidth\fR and \fIheight\fR are
+specified, then the procedure returns an empty string.  Otherwise
+it returns a list with two elements, which are the
+minimum width and height currently in effect.
+The minimum size defaults to one pixel in each dimension.
+If resizing has been disabled with the \fBwm resizable\fR procedure,
+then this procedure has no effect.
+See the sections on geometry management below for more information.
+.TP
+(\fBwm 'overrideredirect \fIwindow\fR)
+.TP
+(\fBwm 'overrideredirect \fIwindow\fR \fIboolean\fR)
+If \fIboolean\fR is specified, it must have a proper boolean form and
+the override-redirect flag for \fIwindow\fR is set to that value.
+If \fIboolean\fR is not specified then \fB#t\fR or \fB#f\fR is
+returned to indicate whether or not the override-redirect flag
+is currently set for \fIwindow\fR.
+Setting the override-redirect flag for a window causes
+it to be ignored by the window manager;  among other things, this means
+that the window will not be reparented from the root window into a
+decorative frame and the user will not be able to manipulate the
+window using the normal window manager mechanisms.
+.TP
+(\fBwm 'positionfrom \fIwindow\fR)
+.TP
+(\fBwm 'positionfrom \fIwindow\fR \fIwho\fR)
+If \fIwho\fR is specified, it must be \fBprogram\fR,
+\fBuser\fR (or an abbreviation of one of these two), or \fB#f\fR.
+It indicates
+whether \fIwindow\fR's current position was requested by the
+program or by the user.  Many window managers ignore program-requested
+initial positions and ask the user to manually position the window;  if
+\fBuser\fR is specified then the window manager should position the
+window at the given place without asking the user for assistance.
+If \fIwho\fR is specified as \fB#f\fR, then the current position
+source is cancelled.
+If \fIwho\fR is specified, then the procedure returns an empty list.
+Otherwise it returns \fBuser\fR or \fBwindow\fR to indicate the
+source of the window's current position, or \fB#F\fR if
+no source has been specified yet.  Most window managers interpret
+``no source'' as equivalent to \fBprogram\fR.
+Tk will automatically set the position source to \fBuser\fR
+when a \fBwm geometry\fR procedure is invoked, unless the source has
+been set explicitly to \fBprogram\fR.
+.TP
+(\fBwm 'protocol \fIwindow\fR ?\fIname\fR? ?\fIprocedure\fR?)
+This procedure is used to manage window manager protocols such as
+\fBWM_DELETE_WINDOW\fR.
+\fIName\fR is the name of an atom corresponding to a window manager
+protocol, such as \fBWM_DELETE_WINDOW\fR or \fBWM_SAVE_YOURSELF\fR
+or \fBWM_TAKE_FOCUS\fR.
+If both \fIname\fR and \fIprocedure\fR are specified, then \fIprocedure\fR
+is associated with the protocol specified by \fIname\fR.
+\fIName\fR will be added to \fIwindow\fR's \fBWM_PROTOCOLS\fR
+property to tell the window manager that the application has a
+protocol handler for \fIname\fR, and \fIprocedure\fR will
+be invoked in the future whenever the window manager sends a
+message to the client for that protocol.
+In this case the procedure returns an empty list.
+If \fIname\fR is specified but \fIprocedure\fR isn't, then the current
+procedure for \fIname\fR is returned, or an empty list if there
+is no handler defined for \fIname\fR.
+If \fIprocedure\fR is specified as an empty string then the current
+handler for \fIname\fR is deleted and it is removed from the
+\fBWM_PROTOCOLS\fR property on \fIwindow\fR;  an empty string is
+returned.
+Lastly, if neither \fIname\fR nor \fIprocedure\fR is specified, the
+procedure returns a list of all the protocols for which handlers
+are currently defined for \fIwindow\fR.
+.RS
+.PP
+Tk always defines a protocol handler for \fBWM_DELETE_WINDOW\fR, even if
+you haven't asked for one with \fBwm protocol\fR.
+If a \fBWM_DELETE_WINDOW\fR message arrives when you haven't defined
+a handler, then Tk handles the message by destroying the window for
+which it was received.
+.RE
+.TP
+(\fBwm 'resizable \fIwindow\fR)
+.TP
+(\fBwm 'resizable \fIwindow\fR \fIwidth height\fR)
+This procedure controls whether or not the user may interactively
+resize a top-level window.  If \fIwidth\fR and \fIheight\fR are
+specified, they are boolean values that determine whether the
+width and height of \fIwindow\fR may be modified by the user.
+In this case the procedure returns an empty string.
+If \fIwidth\fR and \fIheight\fR are omitted then the procedure
+returns a list with two boolean elements that indicate whether the
+width and height of \fIwindow\fR are currently resizable.
+By default, windows are resizable in both dimensions.
+If resizing is disabled, then the window's size will be the size
+from the most recent interactive resize or \fBwm geometry\fR
+procedure.  If there has been no such operation then
+the window's natural size will be used.
+.TP
+(\fBwm 'sizefrom \fIwindow\fR)
+.TP
+(\fBwm 'sizefrom \fIwindow\fR \fIwho\fR)
+If \fIwho\fR is specified, it must be \fBprogram\fR
+\fBuser\fR (or an abbreviation of one of these two) or \fB#f\fR .  It indicates
+whether \fIwindow\fR's current size was requested by the
+program or by the user.  Some window managers ignore program-requested
+sizes and ask the user to manually size the window;  if
+\fBuser\fR is specified then the window manager should give the
+window its specified size without asking the user for assistance.
+If \fIwho\fR is specified as \fB#f\fR, then the current size
+source is cancelled.
+If \fIwho\fR is specified, then the procedure returns an empty string.
+Otherwise it returns \fBuser\fR or \fBwindow\fR to indicate the
+source of the window's current size, or \fB#f\fR if
+no source has been specified yet.  Most window managers interpret
+``no source'' as equivalent to \fBprogram\fR.
+.TP
+(\fBwm 'state \fIwindow\fR)
+Returns the current state of \fIwindow\fR:  either "\fBnormal\fR",
+"\fBiconic\fR", or "\fBwithdrawn\fR".
+.TP
+(\fBwm 'title \fIwindow\fR)
+.TP
+(\fBwm 'title \fIwindow\fR \fIstring\fR)
+If \fIstring\fR is specified, then it will be passed to the window
+manager for use as the title for \fIwindow\fR (the window manager
+should display this string in \fIwindow\fR's title bar).  In this
+case the procedure returns an empty list.  If \fIstring\fR isn't
+specified then the procedure returns the current title for the
+\fIwindow\fR.  The title for a window defaults to its name.
+.TP
+(\fBwm 'transient \fIwindow\fR)
+.TP
+(\fBwm 'transient \fIwindow\fR \fImaster\fR)
+If \fImaster\fR is specified, then the window manager is informed
+that \fIwindow\fR is a transient window (e.g. pull-down menu) working
+on behalf of \fImaster\fR (where \fImaster\fR is the
+path name for a top-level window).  Some window managers will use
+this information to manage \fIwindow\fR specially.  If \fImaster\fR
+is specified as \fB#f\fR then \fIwindow\fR is marked as not
+being a transient window any more.  If \fImaster\fR is specified,
+then the procedure returns an empty list.  Otherwise the procedure
+returns the path name of \fIwindow\fR's current master, or 
+\fB#f\fR if \fIwindow\fR isn't currently a transient window.
+.TP
+(\fBwm 'withdraw \fIwindow\fR)
+Arranges for \fIwindow\fR to be withdrawn from the screen.  This
+causes the window to be unmapped and forgotten about by the window
+manager.  If the window
+has never been mapped, then this procedure
+causes the window to be mapped in the withdrawn state.  Not all
+window managers appear to know how to handle windows that are
+mapped in the withdrawn state.
+Note: it sometimes seems to be necessary to withdraw a
+window and then re-map it (e.g. with \fBwm deiconify\fR) to get some
+window managers to pay attention to changes in window attributes
+such as group.
+
+.SH "GEOMETRY MANAGEMENT"
+.PP
+By default a top-level window appears on the screen in its
+\fInatural size\fR, which is the one determined internally by its
+widgets and geometry managers.
+If the natural size of a top-level window changes, then the window's size
+changes to match.
+A top-level window can be given a size other than its natural size in two ways.
+First, the user can resize the window manually using the facilities
+of the window manager, such as resize handles.
+Second, the application can request a particular size for a
+top-level window using the \fBwm geometry\fR procedure.
+These two cases are handled identically by Tk;  in either case,
+the requested size overrides the natural size.
+You can return the window to its natural by invoking \fBwm geometry\fR
+with an empty \fIgeometry\fR string.
+.PP
+Normally a top-level window can have any size from one pixel in each
+dimension up to the size of its screen.
+However, you can use the \fBwm minsize\fR and \fBwm maxsize\fR procedures
+to limit the range of allowable sizes.
+The range set by \fBwm minsize\fR and \fBwm maxsize\fR applies to
+all forms of resizing, including the window's natural size as
+well as manual resizes and the \fBwm geometry\fR procedure.
+You can also use the procedure \fBwm resizable\fR to completely
+disable interactive resizing in one or both dimensions.
+
+.SH "GRIDDED GEOMETRY MANAGEMENT"
+.PP
+Gridded geometry management occurs when one of the widgets of an
+application supports a range of useful sizes.
+This occurs, for example, in a text editor where the scrollbars,
+menus, and other adornments are fixed in size but the edit widget
+can support any number of lines of text or characters per line.
+In this case, it is usually desirable to let the user specify the
+number of lines or characters-per-line, either with the
+\fBwm geometry\fR procedure or by interactively resizing the window.
+In the case of text, and in other interesting cases also, only
+discrete sizes of the window make sense, such as integral numbers
+of lines and characters-per-line;  arbitrary pixel sizes are not useful.
+.PP
+Gridded geometry management provides support for this kind of
+application.
+Tk (and the window manager) assume that there is a grid of some
+sort within the application and that the application should be
+resized in terms of \fIgrid units\fR rather than pixels.
+Gridded geometry management is typically invoked by turning on
+the \fBsetGrid\fR option for a widget;  it can also be invoked
+with the \fBwm grid\fR procedure or by calling \fBTk_SetGrid\fR.
+In each of these approaches the particular widget (or sometimes
+code in the application as a whole) specifies the relationship between 
+integral grid sizes for the window and pixel sizes.
+To return to non-gridded geometry management, invoke
+\fBwm grid\fR with empty argument strings.
+.PP
+When gridded geometry management is enabled then all the dimensions specified
+in \fBwm minsize\fR, \fBwm maxsize\fR, and \fBwm geometry\fR procedures
+are treated as grid units rather than pixel units.
+Interactive resizing is also carried out in even numbers of grid units
+rather than pixels.
+
+.SH BUGS
+.PP
+Most existing window managers appear to have bugs that affect the
+operation of the \fBwm\fR procedure.  For example, some changes won't
+take effect if the window is already active:  the window will have
+to be withdrawn and de-iconified in order to make the change happen.
+
+.SH SEE ALSO
+toplevel 
diff --git a/Doc/Reference/Appendix-A.tex b/Doc/Reference/Appendix-A.tex
new file mode 100644
index 0000000..44e7654
--- /dev/null
+++ b/Doc/Reference/Appendix-A.tex
@@ -0,0 +1,186 @@
+%
+% STk Reference manual (Appendix: Using the Tk toolkit)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: ??-Nov-1993 ??:??
+% Last file update: 21-Jan-1996 18:29
+%
+
+When {\stk} detects that a \var{tk-command} must be called, parameters are
+processed to be recognized by the corresponding toolkit function. Since the Tk
+toolkit is left (mostly) unmodified, all its primitives ``think'' there is a
+running Tcl interpreter behind the scene. Consequently, to work with the Tk
+toolkit, a little set of rewriting rules must be known. These rules are
+described hereafter.
+
+\begin{note}
+This appendix is placed here to permit an {\stk} user to make programs with
+the original Tcl/Tk documentation by hand. In no case will it substitute to
+the abundant Tcl/Tk manual pages nor to the excellent book by
+J.~Ousterhout\cite{Ouster-book}
+\end{note}
+
+\section{Calling a Tk-command}
+
+Since Tcl uses strings to communicate with the Tk toolkit, parameters to a
+\var{Tk-command} must be translated to strings before calling the C function
+which implement it. The following conversions are done, depending on the type
+of the parameter that {\stk} must give to the toolkit:
+\begin{quote}
+\begin{description}
+\item[symbol:] the print name of the symbol;
+\item[number:] the external representation of the number expressed in radix 10;
+\item[string:] no conversion;
+\item[keyword:] the print name of the keyword where the initial semicolon has
+been replaced by a dash (``-'');
+\item[boolean:] the string "0" if {\schfalse} and "1" if \schtrue
+\item[tk-command:] the name of the \var{tk-command}
+\item[closure:] the address of the closure using the representation
+  shown in \ref{addresses}.
+\item[otherwise:] the external ``slashified'' version of the object.
+\end{description}
+\end{quote}
+As an example, let us make a button with a label containing the
+string {\tt "Hello, word"}. According the original Tk/Tcl documentation,
+this can be done in Tcl with
+\begin{scheme}
+button .hello -text "Hello, world"
+\end{scheme}
+Following the rewriting rules expressed above, this can be done in {\stk} with
+\begin{scheme}
+(button '.hello '-text "Hello, world")
+\end{scheme}
+This call defines a new widget object which is stored in the {\stk} variable {\tt
+.hello}. This object can be used as a procedure to customize our button.
+For instance, setting the border of this button to 5 pixels wide and its
+background to gray would be done in Tcl with
+\begin{scheme}
+.hello configure -border 5 -background gray
+\end{scheme}
+In {\stk} this would be expressed as
+\begin{scheme}
+(.hello 'configure '-border 5 '-background "gray")
+\end{scheme}
+Since keyword colon is replaced by a dash when a \ide{Tk-command} is called, this
+expression could also have been written as:
+\begin{scheme}
+(.hello 'configure{\bf :border} 5{\bf :background} "gray")
+\end{scheme}
+
+\section{Associating Callbacks to Tk-commands}
+
+Starting with version 3.0, {\stk} callbacks are Scheme
+closures\footnote{Old syntax for callbacks (i.e. strings) is always
+  supported but its use is deprecated.}. Apart scroll commands, callbacks are 
+Schemes procedures without parameter. Suppose for example, that we want to
+associate a command with the previous {\tt .hello} button. In
+Tcl, such a command can be expressed as
+\begin{scheme}
+.hello configure -command \{puts stdout "Hello, world"; destroy .\}
+\end{scheme}
+In {\stk}, we can write
+\begin{scheme}
+(.hello 'configure{\bf :command} (lambda ()
+                                   (display "Hello, world\backwhack{}n")
+                                   (destroy *root*)))
+\end{scheme}
+
+When the user will press the mouse left button, the closure associated
+to the {\tt :command} option will be evaluated in the global
+environment.  Evaluation of the given closure will display the message
+and call the {\tt destroy} {\em Tk-command}.
+
+\begin{note}
+\label{root window}\mainindex{root window}
+The root widget is denoted ``.'' in Tcl. This convention is ambiguous with the
+dotted pair convention and the dot must be quoted to avoid problems. Since
+this problem arises so often, the variable \ide{*root*} has been introduced in
+{\stk} to denote the Tk main window.
+\end{note}
+
+\subsection*{Managing Widget Scrollbars}
+
+When using scrollbars, Tk library passes parameters to the widget
+associated to the scrollbar (and {\em vice versa}). Let us look at a
+text widget with an associated scrollbar. When the scrollbar is moved,
+the command of the associated widget is invoked to change its view.
+On the other side, when browsing the content of the text widget (with
+arrows for example), the scrollbar is updated by calling it's
+associated closure. Tk library passes position informations to
+scrolling closures. This informations are the parameters of the
+closure.  Hereafter is an example implementing a text widget with a
+scrollbar (see the help pages for details):
+\begin{scheme}
+(text '.txt :yscrollcommand  (lambda l (apply .scroll 'set l)))
+(scrollbar '.scroll :command (lambda l (apply .txt 'yview l)))
+
+(pack .txt :side "left")   
+(pack .scroll :fill "y" :expand \schtrue :side "left")
+\end{scheme}
+
+\section{Tk bindings}
+
+\subsection*{Bindings are Scheme closures}
+
+The Tk \ide{bind} command associates Scheme scripts with X events.
+Starting with version 3.0 those scripts must be Scheme
+closures\footnote{Old syntax for bindings (i.e. strings) is no more
+  supported. Old bindings scripts must hence be rewritten.}. Binding
+closures can have parameters. Those parameters are one char symbols
+(with the same conventions than the Tcl \% char, see the \texttt{bind}
+help page for details). For instance, the following Tcl script 
+\begin{scheme}
+bind .w <ButtonPress-3> \{puts "Press on widget \%W at position \%x \%y"\}
+\end{scheme}
+can be translated into
+\begin{scheme}
+(bind .w "<ButtonPress-3>" 
+         (lambda (|W| x y)
+            (format \schtrue "Press on widget \verb+~+A at position \verb+~+A \verb+~+A\verb+\+n" |W| x y)))
+\end{scheme}
+
+\begin{note}
+  Usage of verticals bars for the \texttt{W} symbol is necessary here
+  because the Tk toolkit is case sensitive ({\em e.g.}~\texttt{W}~in
+  bindings is the path name of the window to which the event was
+  reported, whereas \texttt{w} is the width field from the event. 
+\end{note}
+
+\subsection*{Bindings are chained}
+
+In Tk4.0 and later, bindings are chained since it is possible for
+several bindings to match a given X event.  If the bindings are
+associated with different tags, then each of the bindings will be
+executed, in order.  By default, a class binding will be executed
+first, followed by a binding for the widget, a binding for its
+toplevel, and an \texttt{all} binding.  The \ide{bindtags} command may
+be used to change this order for a particular window or to associate
+additional binding tags with the window (see corresponding help page
+for details). If the result of closure in the bindings chain is the symbol 
+\ide{break}, the next closures of the chain are not executed. The example below
+illustrates this:
+\begin{scheme}
+(pack (entry '.e))
+(bind .e "<KeyPress>" (lambda (|A|)
+                        (unless (string->number |A|) 'break)))
+\end{scheme}
+
+Bindings for the entry \texttt{.e} are executed before those for its
+class (i.e. \texttt{Entry}). This allows us to filter the characters
+which are effectively passed to the \texttt{.e} widget. The test in this
+binding closure breaks the chain of bindings if the typed character is
+not a digit. Otherwise, the following binding, the one for the
+\texttt{Entry} class, is executed and inserts the character typed (a
+digit).
+Consequently, the simple previous binding makes \texttt{.e} a
+controlled entry which only accepts integer numbers.
+
+
+
+% LocalWords:  tk Ousterhout slashified stdout
+
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: "manual"
+%%% End: 
+
diff --git a/Doc/Reference/Appendix-B.tex b/Doc/Reference/Appendix-B.tex
new file mode 100644
index 0000000..f42ab1e
--- /dev/null
+++ b/Doc/Reference/Appendix-B.tex
@@ -0,0 +1,137 @@
+%
+% STk Reference manual (Appendix: Using the Tk toolkit)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: ??-Nov-1993 ??:??
+% Last file update:  8-Jul-1996 21:52
+%
+
+\newcommand{\schglob}[1]{*#1*}
+
+This appendix summarizes the main differences between the {\stk} Scheme
+implementation and the language described in {\rrrr}.
+
+\section{Symbols}
+
+{\stk} symbol syntax has been augmented to allow case significant symbols. 
+This extension is discussed in \ref{symbolsection}.
+
+The following symbols are defined in the global environment.
+
+\begin{itemize}
+
+\item {\tt\schglob{debug}}\schindex{\schglob{debug}}. Setting
+    {\tt \schglob{debug}} to {\schtrue} prevents macro inlining and 
+    expression recoding (see~\ref{uncode}).
+        
+\item {\tt\schglob{gc-verbose}}\schindex{\schglob{gc-verbose}}. If 
+      {\tt\schglob{gc-verbose}} is {\schtrue}, a message will be printed before
+      and after each run of garbage collector. The message is printed on the
+      standard error stream.
+     
+\item {\tt\schglob{load-verbose}}\schindex{\schglob{load-verbose}}. If 
+      {\tt\schglob{load-verbose}} is {\schtrue}, the absolute path name of
+      each loaded file is printed before its effective reading. File names
+      are printed on the standard error stream.
+      
+    \item {\tt\schglob{load-path}}\schindex{\schglob{load-path}} must
+      contain a list of strings. Each string is taken as a directory
+      path name in which a file will be searched for loading. This
+      variable can be set automatically from the {\tt STK\_LOAD\_PATH}
+      shell variable. See {\tt stk(1)} for more details.
+
+\item  {\tt\schglob{load-suffixes}}\schindex{\schglob{load-suffixes}}
+      must contain a list of strings. When the system try to load a
+      file in a given directory (according to {\tt\schglob{load-path}}
+      value), it will first try to load it without suffix. If this
+      file does not exist, the system will sequentially try to find the file by
+      appending each suffix of this list. A typical value for this
+      variable may be {\tt ("stk" "stklos" "scm" "so")}.
+      
+    \item {\tt\schglob{help-path}}\schindex{help,
+        getting}\schindex{\schglob{help-path}} must contain a list of
+      strings.  Each string is taken as a directory path name in which
+      documentation files are searched. This variable can be set
+      automatically from the {\tt STK\_HELP\_PATH} shell variable. See
+      {\tt stk(1)} for more details.
+
+\item {\tt\schglob{argc}}\schindex{\schglob{argc}} contains the
+       number of arguments  (0 if none), not including interpreter
+       options. See {\tt stk(1)} for more details.
+
+\item {\tt\schglob{argv}}\schindex{\schglob{argv}} contains a Scheme 
+      list whose elements are the arguments (not including the interpreter
+      options), in order, or an empty list if there are no arguments.
+      See {\tt stk(1)} for more details.
+
+\item {\tt\schglob{program-name}}\schindex{\schglob{program-name}} contains
+      the file name specified with the {\tt -file} option, if present.
+      Otherwise, it contains the name through which the interpreter was invoked.
+      See {\tt stk(1)} for more details.
+
+\item {\tt\schglob{print-banner}}\schindex{\schglob{print-banner}}. If 
+      {\tt\schglob{print-verbose}} is {\schfalse}, the usual copyright
+      message is not displayed when the interpreter is started.
+
+\item {\tt\schglob{root}}\schindex{\schglob{root}} designates the Tk main
+      window (see~A-\ref{root window}). This variable is not set if
+      the Tk toolkit is not initialized.
+\end{itemize}
+
+\section{Types}
+
+{\stk} implements all the types defined as mandatory in {\rrrr}. However, complex
+numbers and rational numbers (which are defined but not required in \rrrr) are
+not implemented. The lack of these types implies that some functions of
+{\rrrr} are not defined.
+
+Some types which are not defined in {\rrrr} are implemented in {\stk}. Those 
+types are listed below:
+\begin{itemize}
+\item input string port type (\ref{inputoutput})
+\item output string port type (\ref{inputoutput})
+\item keyword type (\ref{keywords})
+\item Tk command type (\ref{tkcommand})
+\item environment type (\ref{environment})
+\item macro type (\ref{macros})
+\item address type (\ref{addresses})
+\item hash table type (\ref{hashtables})
+\item Regular expression type (\ref{regexp-type})
+\item process type (\ref{process-type})
+\item socket type (\ref{socket-type})
+\end{itemize}
+
+\section{Procedures}
+
+The following procedures are required by {\rrrr} and are not implemented in the
+{\stk} interpreter.
+\begin{itemize}
+\item{transcript-off}\schindex{transcript-off}
+\item{transcript-on}\schindex{transcript-on}
+\end{itemize}
+
+\ide{Transcript-off} and \ide{transcript-on} can be simulated with 
+various Unix tools such as {\tt script} or {\tt fep}.
+
+\vskip3mm
+The following procedures are not implemented in the {\stk} interpreter whereas
+they are defined in {\rrrr} (but not required). They are all 
+related to complex or rational numbers.
+\begin{itemize}
+\item{numerator}\schindex{numerator}
+\item{denominator}\schindex{denominator}
+\item{rationalize}\schindex{rationalize}
+\item{make-rectangular}\schindex{make-rectangular}
+\item{make-polar}\schindex{make-polar}
+\item{real-part}\schindex{real-part}
+\item{imag-part}\schindex{imag-part}
+\item{magnitude}\schindex{magnitude}
+\item{angle}\schindex{angle}
+\end{itemize}
+
+
+
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: "manual"
+%%% End: 
diff --git a/Doc/Reference/Appendix-C.tex b/Doc/Reference/Appendix-C.tex
new file mode 100644
index 0000000..ffe2636
--- /dev/null
+++ b/Doc/Reference/Appendix-C.tex
@@ -0,0 +1,623 @@
+%
+% STk Reference manual (Appendix: An Introdution to STklos)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: 22-May-1994 22:13
+% Last file update: 21-Jan-1996 17:35
+%
+
+\section{Introduction}
+
+{\stklos} is the object oriented layer of {\stk}. Its implementation is
+derived from version 1.3 of the Gregor Kickzales Tiny Clos
+package~\cite{Tiny-Clos}.  However, it has been extended to be as close as
+possible to CLOS, the Common Lisp Object System{\cite{CLtL2}}. Some features
+of {\stklos} are also issued from Dylan{\cite{Dylan}} or SOS{\cite{SOS}}.
+
+Briefly stated, the {\stklos} extension gives the user a full object
+oriented system with meta-classes, multiple inheritance, generic
+functions and multi-methods.  Furthermore, the whole implementation
+relies on a true meta object protocol, in the spirit of the one
+defined for CLOS\cite{AMOP}. This model has also been used to embody
+the predefined Tk widgets in a hierarchy of {\stklos} classes. This
+set of classes permits to simplify the core Tk usage by providing
+homogeneous accesses to widget options and by hiding the low level
+details of Tk widgets, such as naming conventions. Furthermore, as
+expected, using of objects facilitates code reuse and definition
+of new widgets classes.
+
+The purpose of this appendix is to introduce briefly the {\stklos}
+package and in no case will it replace the {\stklos} reference manual (which
+needs to be urgently written now~\ldots).
+In particular, methods relative to the meta object
+protocol and access to the Tk toolkit will not be described here.
+
+\section{Class definition and instantiation}
+
+\subsection {Class definition}
+
+A new class\mainindex{class} is defined with the {\tt
+define-class}{\schindex{define-class} macro. The syntax of {\tt define-class}
+is close to CLOS {\tt defclass}:
+
+\begin{scheme}
+(define-class \var{class} (\hyperi{superclass} \hyperii{superclass}...)
+   (\hyperi{slot description} \hyperii{slot description}...)
+   \hyper{metaclass option})
+\end{scheme}
+
+
+The \hyper{metaclass option} will not be discussed in this appendix.
+The \hyper{superclass}es list specifies the super classes of \var{class} (see 
+\ref{inheritance} for more details). 
+A \hyper{slot description} gives the name of a slot\mainindex{slot} and,
+eventually, some ``properties'' of this slot (such as its initial value, the
+function which permit to access its value, \ldots). Slot descriptions will be
+discussed in
+\ref{slot-description}.
+
+As an exemple, consider now that we have to define a complex number. This can
+be done with the following class definition:
+
+\begin{scheme}
+(define-class  <complex> (<number>)
+   (r i))
+\end{scheme}
+
+This binds the symbol {\tt <complex>} to a new class whose instances contain
+two slots. These slots are called {\tt r} an {\tt i} and we suppose here
+that they contain respectively the real part and the imaginary part of a
+complex number. Note that this class inherits from {\tt <number>} which is a
+pre-defined class ({\tt <number>} is the super class of the {\tt <real>} and
+{\tt <integer>} pre-defined classes).\footnote{With this definition, a {\tt
+<real>} is not a {\tt <complex>} since {\tt <real>} inherits from {\tt
+<number>} rather than {\tt <complex>}. In practice, inheritance could be
+modified {\em a posteriori}, if needed. However, this necessitates some
+knowledge of the meta object protocol and it will not be shown in this
+document}.
+
+\section{Inheritance}
+\label{inheritance}
+\subsection{Class hierarchy and inheritance of slots}
+Inheritance is specified upon class
+definition. As said in the introduction, {\stklos} supports multiple inheritance. 
+Hereafter are some classes definition: 
+\begin{scheme}
+(define-class A () (a))
+(define-class B () (b))
+(define-class C () (c))
+(define-class D (A B) (d a))
+(define-class E (A C) (e c))
+(define-class F (D E) (f))
+\end{scheme}
+
+{\tt A}, {\tt B}, {\tt C} have a null list of super classes. In this case, the
+system will replace it by the list which only contains \ide{<object>}, the
+root of all the classes defined by \ide{define-class}. {\tt D}, {\tt E}, {\tt
+F} use multiple inheritance: each class inherits from two previously
+defined classes.  Those class definitions define a hierarchy which is
+shown in Figure~1.  In this figure, the class \ide{<top>} is also shown; this
+class is the super class of all Scheme objects. In particular,
+\ide{<top>} is the super class of all standard Scheme types.
+
+\begin{figure}
+\centerline{\psfig{figure={hierarchy.eps}}}
+\caption{A class hierarchy}
+\end{figure}
+
+The set of slots of a given class is calculated by ``unioning'' the slots of
+all its super class. For instance, each instance of the class D, defined
+before will have three slots ({\tt a}, {\tt b} and {\tt d}). The slots of a class 
+can be obtained by the \ide{class-slots} primitive.
+For instance, 
+\begin{scheme}
+(class-slots A) \lev (a)
+(class-slots E) \lev (a e c)
+(class-slots F) \lev (d a b c f)
+\end{scheme}
+
+\begin{note}
+The order of slots is not significant.
+\end{note}
+
+\subsection {Instance creation and slot access}
+
+Creation of an instance\mainindex{instance} of a previously defined
+class can be done with the {\tt make}\schindex{make} procedure. This
+procedure takes one mandatory parameter which is the class of the
+instance which must be created and a list of optional
+arguments. Optional arguments are generally used to initialize some
+slots of the newly created instance. For instance, the following form
+
+\begin{scheme}
+(define c (make <complex>))
+\end{scheme}
+
+will create a new {\tt <complex>} object and will bind it to the {\tt c}
+Scheme variable.
+
+Accessing the slots of the new complex number can be done with the {\tt
+slot-ref}\schindex{slot-ref} and the {\tt slot-set!}\schindex{slot-set!}
+primitives. {\tt Slot-set!} primitive permits to set the value of an object
+slot and {\tt slot-ref} permits to get its value.
+
+\begin{scheme}
+(slot-set! c 'r 10)
+(slot-set! c 'i 3)
+(slot-ref c 'r) \lev 10
+(slot-ref c 'i) \lev 3
+\end{scheme}
+
+Using the \ide{describe} generic function is a simple way to see all
+the slots of an object at one time: this function prints all the slots
+of an object on the standard output. For instance, the expression
+
+\begin{scheme}
+(describe c)
+\end{scheme}
+will print the following informations on the standard output:
+\begin{scheme}
+\sharpsign[<complex> 122398] is an instance of class <complex>
+Slots are: 
+     r = 10
+     i = 3
+\end{scheme}
+
+\subsection{Slot description}
+\label{slot-description}
+
+When specifying a slot, a set of options can be given to the system. Each option 
+is specified with a keyword{\mainindex{keyword}}. The list of authorised keywords is 
+given below:
+\begin{itemize}
+
+\item {\tt :initform}\schindex{:initform}\schindex{default slot value} 
+permits to supply a default value for the slot. This default value is obtained
+by evaluating the form given after the {\tt :initform} in the global
+environment\mainindex{top level environment}.
+
+\item{\tt :init-keyword}\schindex{:init-keyword} permits to specify the 
+keyword for initializing a slot. The init-keyword may be provided 
+during instance creation (i.e. in the make optional parameter list). Specifying 
+such a keyword during instance initialization will supersede the 
+default slot initialization possibly given with {\tt :initform}.
+
+\item {\tt :getter}{\schindex{:getter}} permits to supply the name for the 
+slot getter\mainindex{getter}. The name binding is done in the global 
+environment\mainindex{top level environment}.
+
+\item {\tt :setter}{\schindex{:setter}} permits to supply the name for the 
+slot setter\mainindex{setter}. The name binding is done in the global 
+environment\mainindex{top level environment}.
+
+\item {\tt :accessor}\schindex{:accessor} permits to supply the name for the 
+slot accessor\mainindex{accessor}. The name binding is done in the global
+environment\mainindex{top level environment}. An accessor permits to get and
+set the value of a slot. Setting the value of a slot is done with the extended
+version of {\tt set!}\schindex{set!}.
+
+\item {\tt :allocation}\schindex{:allocation} permits to specify how storage for
+the slot is allocated. Three kinds of allocation are provided. 
+They are described below:
+  \begin{itemize}
+     \item {\tt :instance}\schindex{:instance} indicates that each instance gets
+     its own storage for the slot. This is the default.
+     \item {\tt :class}\schindex{:class} indicates that there is one storage 
+     location used by all the direct and indirect instances of the class. This 
+     permits to define a kind of global variable which can be accessed only 
+     by (in)direct instances of the class which defines this slot.
+     \item {\tt :virtual}\schindex{:virtual} indicates that no storage will
+     be allocated for this slot.  It is up to the user to define a getter 
+     and a setter function for this slot. Those functions must be defined with the
+     {\tt :slot-ref}\schindex{:slot-ref}
+      and {\tt :slot-set!}\schindex{:slot-set!} options. See the example below.
+  \end{itemize}
+\end{itemize}
+
+To illustrate slot description, we shall redefine the {\tt <complex>} class 
+seen before. A definition could be:
+\begin{scheme}
+(define-class <complex> (<number>) 
+   ((r :initform 0 :getter get-r :setter set-r! :init-keyword :r)
+    (i :initform 0 :getter get-i :setter set-i! :init-keyword :i)))
+\end{scheme}
+With this definition, the {\tt r} and {\tt i} slot are set to 0 by default. 
+Value of a slot can also be specified by calling {\tt make} with 
+the {\tt :r} and {\tt :i} keywords. Furthermore, the generic functions {\tt get-r} 
+and {\tt set-r!} (resp. {\tt get-i} and {\tt set-i!}) are automatically defined
+by the system to read and write the {\tt r} (resp. {\tt i}) slot.
+\begin{scheme}
+(define c1 (make <complex> :r 1 :i 2))
+(get-r c1) \lev 1
+(set-r! c1 12)
+(get-r c1) \lev 12
+(define c2 (make <complex> :r 2))
+(get-r c2) \lev 2
+(get-i c2) \lev 0
+\end{scheme}
+
+Accessors provide an uniform access for reading and writing an object slot.
+Writing a slot is done with an extended form of {\tt set!}\schindex{set!}
+which is close to the  Common Lisp {\tt setf} macro. So, another definition of the
+previous {\tt <complex>} class, using the {\tt :accessor} option, could be:
+\begin{scheme}
+(define-class <complex> (<number>) 
+   ((r :initform 0 :accessor real-part :init-keyword :r)
+    (i :initform 0 :accessor imag-part :init-keyword :i)))
+\end{scheme}
+
+Using this class definition, reading the real part of the {\tt c} complex can
+be done with:
+\begin{scheme}
+(real-part c)
+\end{scheme}
+and setting it to the value contained in the {\tt new-value} variable 
+can be done using the extended form of {\tt set!}.
+\begin{scheme}
+(set! (real-part c) new-value)
+\end{scheme}
+
+Suppose now that we have to manipulate complex numbers with rectangular
+coordinates as well as with polar coordinates. One solution could be to
+have a definition of complex numbers which uses one particular representation
+and some conversion functions to pass from one representation to the other.
+A better solution uses virtual slots. A complete definition of the {\tt <complex>}
+class using virtual slots is given in Figure~2.
+\begin{figure}
+{\footnotesize
+\begin{quote}
+\begin{quote}
+\begin{verbatim}
+(define-class <complex> (<number>)
+   (;; True slots use rectangular coordinates
+    (r :initform 0 :accessor real-part :init-keyword :r)
+    (i :initform 0 :accessor imag-part :init-keyword :i)
+    ;; Virtual slots access do the conversion
+    (m :accessor magnitude :init-keyword :magn  
+       :allocation :virtual
+       :slot-ref (lambda (o)
+                   (let ((r (slot-ref o 'r)) (i (slot-ref o 'i)))
+                     (sqrt (+ (* r r) (* i i)))))
+       :slot-set! (lambda (o m)
+                     (let ((a (slot-ref o 'a)))
+                       (slot-set! o 'r (* m (cos a)))
+                       (slot-set! o 'i (* m (sin a))))))
+    (a :accessor angle :init-keyword :angle
+       :allocation :virtual
+       :slot-ref (lambda (o)
+                   (atan (slot-ref o 'i) (slot-ref o 'r)))
+       :slot-set! (lambda(o a)
+                    (let ((m (slot-ref o 'm)))
+                       (slot-set! o 'r (* m (cos a)))
+                       (slot-set! o 'i (* m (sin a))))))))
+
+\end{verbatim}
+\caption{\em A {\tt <complex>} number class definition using virtual slots}
+\end{quote}
+\end{quote}
+}
+\end{figure}
+
+\bigskip
+This class definition implements two real slots ({\tt r} and {\tt i}). Values
+of the {\tt m} and {\tt a} virtual slots are calculated from real slot
+values. Reading a virtual slot leads to the application of the function
+defined in the {\tt :slot-ref}\schindex{:slot-ref} option. Writing such a slot 
+leads to the application of the function defined in the {\tt :slot-set!}\schindex{:slot-set!} option.
+For instance, the following expression
+\begin{scheme}
+(slot-set! c 'a 3)
+\end{scheme} 
+permits to set the angle of the {\tt c} complex number. This expression
+conducts, in fact, to the evaluation of the following expression
+\begin{scheme}
+((lambda o m)
+    (let ((m (slot-ref o 'm)))
+       (slot-set! o 'r (* m (cos a)))
+       (slot-set! o 'i (* m (sin a))))
+  c 3)
+\end{scheme}
+A more complete example is given below:
+\begin{scheme}
+(define c (make <complex> :r 12 :i 20))
+(real-part c) \lev 12
+(angle c) \lev 1.03037682652431
+(slot-set! c 'i 10)
+(set! (real-part c) 1)
+(describe c) \lev 
+          \sharpsign[<complex> 128bf8] is an instance of class <complex>
+          Slots are: 
+               r = 1
+               i = 10
+               m = 10.0498756211209
+               a = 1.47112767430373
+\end{scheme}
+
+Since initialization keywords have been defined for the four slots, we
+can now define the \ide{make-rectangular} and \ide{make-polar}
+standard Scheme primitives.
+\begin{scheme}
+(define make-rectangular 
+   (lambda (x y) (make <complex> :r x :i y)))
+
+(define make-polar
+   (lambda (x y) (make <complex> :magn x :angle y)))
+
+\end{scheme}
+
+\subsection{Class precedence list}
+
+A class may have more than one superclass.{\footnote{
+This section is an adaptation of Jeff Dalton's (J.Dalton@ed.ac.uk)
+Brief introduction to CLOS)}}
+With single inheritance (one superclass), it is easy to order the super classes 
+from most to least specific. This is the rule:
+
+\begin{quote}
+\begin{quote}
+{\bf Rule 1: Each class is more specific than its superclasses.
+}
+\end{quote}
+\end{quote}
+
+With multiple inheritance, ordering is harder. Suppose we have
+\begin{scheme}
+(define-class X ()
+   ((x :initform 1)))
+
+(define-class Y ()
+   ((x :initform 2)))
+
+(define-class Z (X Y)
+   (...))
+\end{scheme}
+
+In this case, the {\tt Z} class is more specific than the {\tt X} or 
+{\tt Y} class for instances of {\tt Z}. However, the {\tt :initform} 
+specified in {\tt X} and {\tt Y} leads to a problem: which one
+overrides the other?  The rule in {\stklos}, as in CLOS, 
+is that the superclasses listed earlier are more specific than those listed later. 
+So:
+\begin{quote}
+\begin{quote}
+{\bf Rule 2: For a given class, superclasses listed earlier are more
+        specific than those listed later.
+}
+\end{quote}
+\end{quote}
+
+These rules are used to compute a linear order for a class and all its
+superclasses, from most specific to least specific.  This order is called the
+``class precedence list'' of the class. Given those two rules, we can claim
+that the initial form for the {\tt x} slot of previous example is 2 since the
+class {\tt X} is placed before {\tt Y} in class precedence list of {\tt Z}.
+
+This two rules are not always enough to determine a unique order, however, but
+they give an idea of how things work. {\stklos} algorithm for calculating the
+precedence list is a little simpler than the CLOS one described in
+\cite{AMOP} for breaking ties. Consequently the calculated class precedence
+list could be different. Taking the {\tt F} class shown in Figure~1, the {\stklos} 
+calculated class precedence list is
+
+\begin{quote}
+{\tt
+(f d e a b c <object> <top>)
+}
+\end{quote}
+whereas it would be the following list with a CLOS-like algorithm:
+\begin{quote}
+{\tt
+(f d e a c b <object> <top>)
+}
+\end{quote}
+
+However, it is usually considered a bad idea for programmers to rely on
+exactly what the order is.  If the order for some superclasses is important,
+it can be expressed directly in the class definition.
+
+The precedence list of a class can be obtained by the function 
+\ide{class-precedence-list}. This function returns a ordered 
+list whose first element is the most specific class. For instance, 
+\begin{scheme}
+(class-precedence-list B) \lev (\sharpsign[<class> 12a248] \sharpsign[<class> 1074e8] \sharpsign[<class> 107498])
+\end{scheme}
+However, this result is not too much readable; using the function class-name
+yields a clearer result:
+\begin{scheme}
+(map class-name (class-precedence-list B)) \lev (b <object> <top>)
+\end{scheme}
+
+\section{Generic functions}
+
+\subsection{Generic functions and methods}
+
+\label{gf-n-methods}
+Neither {\stklos} nor CLOS use the message mechanism for methods as
+most Object Oriented language do. Instead, they use the notion of
+generic function.  A generic function can be seen as a methods
+``tanker''. When the evaluator requestd the application of a generic
+function, all the methods of this generic function will be grabbed and
+the most specific among them will be applied. We say that a method
+{\em M} is {\em more specific} than a method {\em M'} if the class of
+its parameters are more specific than the {\em M'} ones.  To be more
+precise, when a generic funtion must be ``called'' the system will
+
+\begin{enumerate}
+\item search among all the generic function those which are applicable
+\item sort the list of applicable methods in the ``most specific'' order
+\item call the most specific method of this list (i.e. the first method of 
+the sorted methods list).
+\end{enumerate}
+
+The definition of a generic function is done with the \ide{define-generic}
+macro. Definition of a new method is done with the \ide{define-method} macro.
+Note that \ide{define-method} automatically defines the generic function if it
+has not been defined before. Consequently, most of the time, the
+\ide{define-generic} needs not be used.
+
+Consider the following definitions:
+\begin{scheme}
+(define-generic M)
+(define-method M((a <integer>) b) 'integer)
+(define-method M((a <real>) b) 'real)
+(define-method M(a b) 'top)
+\end{scheme}
+
+The \ide{define-generic} call defines {\tt M} as a generic
+function. Note that the signature of the generic function is not given
+upon definition, contrarily to CLOS. This will permit methods with
+different signatures for a given generic function, as we shall see
+later. The three next lines define methods for the {\tt M} generic
+function. Each method uses a sequence of {\em parameter specializers}
+that specify when the given method is applicable. A specializer
+permits to indicate the class a parameter must belong to (directly or
+indirectly) to be applicable. If no speciliazer is given, the system
+defaults it to \ide{<top>}. Thus, the first method definition
+is equivalent to
+
+\begin{scheme}
+(define-method M((a <integer>) (b <top>)) 'integer)
+\end{scheme}
+
+Now, let us look at some possible calls to generic function {\tt M}:
+\begin{scheme}
+(M 2 3) \lev integer
+(M 2 \schtrue) \lev integer
+(M 1.2 'a) \lev real
+(M {\sharpsign}3 'a) \lev real
+(M {\schtrue} {\schfalse}) \lev top
+(M 1 2 3) \lev error (since no method exists for 3 parameters)
+\end{scheme}
+
+The preceding methods use only one specializer per parameter list. Of course, 
+each parameter can use a specializer. In this case, the parameter list is scanned 
+from left to right to determine the applicability of a method. Suppose we declare
+now
+\begin{scheme}
+(define-method M ((a <integer>) (b <number>)) 'integer-number)
+(define-method M ((a <integer>) (b <real>))   'integer-real)
+(define-method M (a (b <number>)) 'top-number)
+\end{scheme}
+
+In this case, 
+\begin{scheme}
+(M 1 2) \lev integer-integer
+(M 1 1.0) \lev integer-real
+(M 1 {\schtrue}) \lev integer
+(M 'a 1) \lev 'top-number
+\end{scheme}
+
+\subsection{Next-method}
+
+When a generic function is called, the list of applicable methods is built. As
+mentioned before, the most specific method of this list is applied
+(see~\ref{gf-n-methods}). This method may call the next method in
+the list of applicable methods. This is done by using the special form
+\ide{next-method}. Consider the following definitions
+\begin{scheme}
+(define-method Test((a <integer>))  (cons 'integer (next-method)))
+(define-method Test((a <number>))   (cons 'number  (next-method)))
+(define-method Test(a)		    (list 'top))
+\end{scheme}
+
+With those definitions,
+\begin{scheme}
+(Test 1) \lev (integer number top)
+(Test 1.0) \lev (number top)
+(Test \schtrue) \lev (top)
+\end{scheme}
+
+\subsection{Example} 
+
+In this section we shall continue to define operations on the {\tt <complex>}
+class defined in Figure~2. Suppose that we want to use it to implement 
+complex numbers completely. For instance a definition for the addition of 
+two complexes could be
+\begin{scheme}
+(define-method new-+ ((a <complex>) (b <complex>))
+  (make-rectangular (+ (real-part a) (real-part b))
+                    (+ (imag-part a) (imag-part b))))
+\end{scheme}
+
+To be sure that the {\tt +} used in the method {\tt new-+} is the standard
+addition we can do:
+\begin{scheme}
+(define-generic new-+)
+
+(let ((+ +))
+  (define-method new-+ ((a <complex>) (b <complex>))
+    (make-rectangular (+ (real-part a) (real-part b))
+                      (+ (imag-part a) (imag-part b)))))
+\end{scheme}
+
+The {\tt define-generic} ensures here that {\tt new-+} will be defined in the global
+environment. Once this is done, we can add methods to the generic function 
+{\tt new-+} which make a closure on the {\tt +} symbol.
+A complete writing of the {\tt new-+} methods is shown in Figure~3.
+
+\begin{figure}
+{\footnotesize
+\begin{quote}
+\begin{quote}
+\begin{verbatim}
+(define-generic new-+)
+
+(let ((+ +))
+
+  (define-method new-+ ((a <real>) (b <real>)) (+ a b))
+
+  (define-method new-+ ((a <real>) (b <complex>)) 
+    (make-rectangular (+ a (real-part b)) (imag-part b)))
+
+  (define-method new-+ ((a <complex>) (b <real>))
+    (make-rectangular (+ (real-part a) b) (imag-part a)))
+
+  (define-method new-+ ((a <complex>) (b <complex>))
+    (make-rectangular (+ (real-part a) (real-part b))
+                      (+ (imag-part a) (imag-part b))))
+
+  (define-method new-+ ((a <number>))  a)
+  
+  (define-method new-+ () 0)
+
+  (define-method new-+ args  (new-+ (car args) (apply new-+ (cdr args)))))
+
+(set! + new-+)
+\end{verbatim}
+\caption{\em Extending {\tt +} for dealing with complex numbers}
+\end{quote}
+\end{quote}
+}
+\end{figure}
+
+\bigskip
+We use here the fact that generic function are not obliged to have the same
+number of parameters, contrarily to CLOS.  The four first methods
+implement the dyadic addition. The fifth method says that the addition of a single
+element is this element itself. The sixth method says that using the addition with
+no parameter always return 0. The last method takes an arbitrary number of
+parameters\footnote{The third parameter of a define-method is a parameter list
+which follow the conventions used for lambda expressions. In particular it can
+use the dot notation or a symbol to denote an arbitrary number of parameters}.
+This method acts as a kind of {\tt reduce}: it calls the dyadic addition on
+the {\em car} of the list and on the result of applying it on its rest.  To
+finish, the {\tt set!} permits to redefine the {\tt + symbol} to our extended
+addition.
+
+\bigskip
+To terminate our implementation (integration?) of  complex numbers, we can 
+redefine standard Scheme predicates in the following manner:
+\begin{scheme}
+(define-method complex? (c <complex>) \schtrue)
+(define-method complex? (c)           \schfalse)
+
+(define-method number? (n <number>) \schtrue)
+(define-method number? (n)          \schfalse)
+...
+...
+\end{scheme}
+
+Standard primitives in which complex numbers are involved could also be redefined
+in the same manner.
+
+This ends this brief presentation of the {\stklos} extension.  
diff --git a/Doc/Reference/Appendix-D.tex b/Doc/Reference/Appendix-D.tex
new file mode 100644
index 0000000..c6b5e5c
--- /dev/null
+++ b/Doc/Reference/Appendix-D.tex
@@ -0,0 +1,280 @@
+%
+% STk Reference manual (Appendix: Miscellaneous Informations)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: 21-Dec-1994 12:05
+% Last file update:  8-Jul-1996 22:18
+%
+
+\section{Introduction}
+This appendix list a number of things which cannot go elsewhere in this
+document. The only link between the items listed her is that they should
+ease your life when using {\stk}. 
+
+\section{About \stk}
+
+\subsection{Last release}
+
+{\stk} distribution is available on various sites. The original distribution
+site is {\tt kaolin.unice.fr} {\tt (193.48.229.225)}. Files are available
+through anonymous ftp and are located in the {\tt /pub}
+directory. Distribution file names have the form {\tt STk-x.y.tar.gz}, where {\tt
+x} and {\tt y} represent the version and the release of the package. You can
+also find interim releases of {\stk}. Interim releases are stored in file
+whose name have the form {\tt STk-x.y.z.tar.gz} where {\tt z} is the interim
+release number.
+
+David Fox maintains a mirror site of {\tt kaolin.unice.fr}. This site is
+located in the USA and is available at the following URL: 
+{\tt ftp://cs.nyu.edu/pub/local/fox/stk}.
+
+\subsection{Sharing Code}
+
+If you have written code that you want to share with the (small) {\stk}
+community, you can deposit it in the directory {\tt /pub/Incoming} of {\tt
+kaolin.unice.fr}. Mail me a small note when you deposit a file in this
+directory so I can put in in its definitive place ({\tt /pub/Contrib} 
+directory contains the contributed code).
+
+\subsection{{\stk} Mailing list}
+
+There is a mailing list for {\stk} located on {\tt kaolin.unice.fr}.  The
+intent of this mailing list is to permit to {\stk} users to share experiences,
+expose problems, submit ideas and \ldots everything which you find interesting
+(and which is related to \stk).
+
+To subscribe to the mailing list, simply send a message with the word {\tt
+subscribe} in the {\tt Subject:} field of you mail.  Mail must be sent to the
+following address: {\tt stk-request@kaolin.unice.fr}
+
+To unsubscribe from the mailing list, send a mail at previous email address with the word {\tt unsubscribe} in the {\tt Subject:} field.
+
+For more information on the mailing list management send a message with the
+word {\tt help} in the {\tt Subject:} field of your mail. In particular, it
+is possible to find all the messages which have already been sent on the {\stk} 
+mailing list.
+
+Subscription/un-subscription/information requests are processed
+automatically without human intervention. If you something goes wrong, send a
+mail to {\tt eg@unice.fr}.
+
+Once you have properly subscribe to the mailing list, 
+\begin{itemize}
+\item you can send your messages about {\stk} to {\tt stk@kaolin.unice.fr},
+\item you will receive all the messages of the mailing list to the email 
+address you used when you subscribed to the list.
+\end{itemize}
+
+\subsection{{\stk} FAQ}
+
+Marc Furrer has set up a FAQ{\index{FAQ} for {\stk}. 
+This FAQ is regularly posted on the {\stk} mailing list. It can
+also be accessed through  {\tt
+http://ltiwww.epfl.ch/~furrer/STk/FAQ.html}. ASCII version of the FAQ is
+available from {\tt http://ltiwww.epfl.ch/~furrer/STk/FAQ.txt}.
+
+\subsection{Reporting a bug}
+
+When you find a bug in {\stk}, please send its description to the following
+address {\tt stk-bugs@kaolin.unice.fr}. Don't forget to indicate the version
+you use and the architecture the system is compiled on.  {\stk} version and
+architecture can be found by using the {\tt version} and {\tt machine-type}
+Scheme primitives. If possible, try to find a small program which exhibit the bug.
+
+\section{{\stk} and Emacs}
+
+The Emacs family editors\index{Emacs editor} can be customized to ease
+viewing and editing programs of a particular sort. Hints given below
+enable a fine ``integration'' of {\stk} in Emacs.
+
+\subsection*{Automatic scheme-mode setting}
+
+Emacs mode can be chosen automatically on the file's name. To edit file
+ended by {\tt .stk }or {\tt .stklos} in Scheme mode, you have to set the
+Elisp variable {\tt auto-mode-alist} to control the correspondence between
+those suffixes and the scheme mode. The simpler way to set this variable
+consists to add the following lines in your .{\tt emacs} startup file.
+
+
+\begin{quote}
+\begin{verbatim}
+;; Add the '.stk' and '.stklos' suffix in the auto-mode-alist Emacs
+;; variable. Setting this variable permits to automagically place the
+;; buffer in scheme-mode.
+(setq-default auto-mode-alist (append auto-mode-alist 
+                                      ("\\.stk$"    . scheme-mode)
+                                      ("\\.stklos$" . scheme-mode)))
+\end{verbatim}
+\end{quote}
+
+\subsection*{Using Emacs and {\em CMU Scheme}}
+
+{\em CMU Scheme} package\index{CMU Scheme} package} permits to run the {\stk} interpreter in an Emacs
+window. Once the package is loaded, you can send  text to the inferior
+{\stk} interpreter from other buffers containing Scheme source. 
+The {\em CMU Scheme} package is distributed with Emacs (both FSF-Emacs and
+Xemacs) and you should have it if you are running this editor.
+
+To use the {\em CMU Scheme} package with {\stk}, place the following lines in
+your {\tt .emacs} startup file.
+
+\begin{quote}
+\begin{verbatim}
+;; Use cmu-scheme rather than xscheme which is launched by default
+;; whence running 'run-scheme' (xscheme is wired with CScheme)
+(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme" t)
+(setq scheme-program-name "stk")
+(setq inferior-scheme-mode-hook '(lambda() (split-window)))
+\end{verbatim}
+\end{quote}
+
+
+After having entered those lines in your {\tt .emacs} file, you can simply
+run the {\stk} interpreter by typing
+\begin{quote}
+\begin{verbatim}
+M-x run-scheme
+\end{verbatim}
+\end{quote}
+
+
+Read the {\em CMU Scheme} documentation (or use the describe-mode Elisp command)
+for a complete description of this package.
+
+\subsection*{Using Emacs and the {\em Ilisp} package}
+
+{\em Ilisp}\index{Ilisp package} is another scheme package which allows to
+run the {\stk} interpreter in an Emacs window. This is a rich package with
+a lot of nice features.  {\em Ilisp} comes pre-installed with Xemacs; it
+has to be installed with FSF Emacs (the last version of {\em Ilisp} can be
+ftp'ed anonymously from {\tt ftp.cs.cmu.edu} (128.2.206.173) in the {\tt
+/user/ai/lang/lisp/util/emacs/ilisp} directory).
+
+To use the {\em Ilisp} package with {\stk}, place the following lines in
+your {\tt .emacs} startup file.
+
+
+\begin{quote}
+\begin{verbatim}
+(autoload 'run-ilisp              "ilisp" "Select a new inferior LISP." t)
+(autoload 'stk                    "ilisp" "Run stk in ILISP." t)
+(add-hook 'ilisp-load-hook
+          '(lambda ()
+             (require 'completer)
+
+             ;; Define STk dialect characteristics
+             (defdialect stk "STk Scheme"
+               scheme
+               (setq comint-prompt-regexp "^STk> ")
+               (setq ilisp-program "stk -interactive")
+               (setq comint-ptyp t)
+               (setq comint-always-scroll t)
+               (setq ilisp-last-command "*"))))
+\end{verbatim}
+\end{quote}
+
+
+After having entered those lines in your {\tt .emacs} file, you can simply
+run the {\stk} interpreter by typing
+\begin{quote}
+\begin{verbatim}
+M-x stk
+\end{verbatim}
+\end{quote}
+
+
+The Ilisp package comes with a rich documentation which describe how to
+customize the package. 
+
+\subsection*{Other packages}
+
+Another way to use {\stk} and Emacs consists to use a special purpose
+{\stk} mode. You can find two such modes in the {\tt /pub/Contrib}
+directory of {\tt kaolin.unice.fr}.
+
+\subsection {Using the SLIB package with \stk}
+
+Aubrey Jaffer maintains a package called {\em SLIB}\index{SLIB package}
+which is a portable Scheme library which provides compatibility and utility
+functions for all standard Scheme implementations. To use this package, you
+have just to type
+\begin{quote}
+\begin{verbatim}
+(require "slib")
+\end{verbatim}
+\end{quote}
+and follow the instructions given in the {\em SLIB} library to use a
+particular package. 
+\begin{note}
+{\em SLIB} uses also the {\em require/provide} mechanism to load components
+of the library. Once {\em SLIB} has been loaded, the standard {\stk} 
+{\tt require}\schindex{require} and {\tt provide}\schindex{provide}
+are overloaded such as if their parameter
+is a string this is the old {\stk} procedure which is called, and if their
+parameter is a symbol, this is the {\em SLIB} one which is called.
+\end{note}
+
+\section{Getting information about Scheme}
+
+\subsection{The {\rrrr} document}
+
+{\rrrr}{\index{R4RS}} is the document which fully describe the Scheme
+Programming Language, it can be found in the Scheme repository
+(see~\ref{scheme-repository}) in the directory:
+\begin{quote}
+{\tt ftp.cs.indiana.edu:/pub/scheme-repository/doc}
+\end{quote}
+
+Aubrey Jaffer has also translated this document in HTML. A version of this 
+document is available at
+\begin{quote}
+{\tt file://swiss-ftp.ai.mit.edu/pub/scm/HTML/r4rs\_toc.html}
+\end{quote}
+
+\subsection{The Scheme Repository}
+
+The main site where you can find (many) informations about Scheme is
+located in the University of Indiana. The Scheme repository\index{Scheme
+Repository} is maintained by David Eby.  The repository currently consists
+of the following areas:
+\begin{itemize}
+\item      Lots of scheme code meant for benchmarking, library/support, research, education, and fun. 
+\item      On-line documents: Machine readable standards documents, standards proposals, various Scheme-related tech reports, conference papers, mail archives, etc. 
+\item      Most of the publicly distributable Scheme Implementations. 
+\item    Material designed primarily for instruction. 
+\item Freely-distributable promotional or demonstration material for Scheme-related products. 
+\item   Utilities (e.g., Schemeweb, SLaTeX). 
+\item   Extraneous stuff, extensions, etc. 
+\end{itemize}
+
+You can access the Scheme repository with
+{\tt
+\begin{itemize}
+\item ftp.cs.indiana.edu:/pub/scheme-repository
+\item http://www.cs.indiana.edu/scheme-repository/SRhome.html
+\end{itemize}
+}
+
+The Scheme Repository is mirrored in Europe: 
+{\tt
+\begin{itemize}
+\item     ftp.inria.fr:/lang/Scheme
+\item     faui80.informatik.uni-erlangen.de:/pub/scheme/yorku
+\item     ftp.informatik.uni-muenchen.de:/pub/comp/programming/languages/scheme/scheme-repository
+\end{itemize}
+}
+\subsection{Usenet newsgroup and other addresses}
+
+There is a usenet newsgroup about the Scheme Programming language: {\tt
+comp.lang.scheme}.
+
+Following addresses contains also material about the Scheme language
+
+\begin{itemize}
+\item {\tt http://www.cs.cmu.edu:8001/Web/Groups/AI/html/faqs/lang/scheme/top.html}
+contains the Scheme FAQ.
+\item {\tt http://www-swiss.ai.mit.edu/scheme-home.html} is the Scheme Home page
+at MIT
+\item {\tt http://www.ai.mit.edu/projects/su/su.html} is the Scheme Underground
+web page
+\end{itemize}
diff --git a/Doc/Reference/Detail.ps b/Doc/Reference/Detail.ps
new file mode 100644
index 0000000..2c5b0a0
--- /dev/null
+++ b/Doc/Reference/Detail.ps
@@ -0,0 +1,4791 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Detail.ps
+%%Creator: XV Version 3.00  Rev: 3/30/93  -  by John Bradley
+%%BoundingBox: 37 87 314 467
+%%Pages: 1
+%%DocumentFonts:
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 346 string def
+
+% lower left corner
+37 87 translate
+
+% size of image (on paper, in 1/72inch coords)
+276.76800 380.01600 scale
+
+346 475 8			% dimensions of data
+[346 0 0 -475 0 475]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686868686865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686868686865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c4c486c4c4c4c486c4c486c4
+c4868686c4c4c48686868686868686868686868686868686868686868686c4c4c4868686
+86868686868686868686868686868686c4c4c4c4c4868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c3c3c3c3c3c3c3c3c3508686505086c3c3868686868686868686868686868686
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3c35086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c48686c48686c4
+c486868686c4c4868686868686868686868686868686c48686868686868686c4c4868686
+868686868686c4868686868686868686c4c486c4c4868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c38686c3c3c3c3c3c3c3c3c350508686505086c3c3868686868686868686868686868686
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3505086865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4868686
+8686868686c4c48686868686868686868686868686c4c48686868686868686c4c4868686
+8686868686c4c4868686868686868686868686c4c4868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686505086865050
+c3c38686505050505050505050505086865050c3c3868686c4c4c48686c486c4c486c4c4
+c48686c4c4c4c48686c4c4c4c4c486c4c4c4c486c4c4c4c48686868686c4c4c4c48686c4
+c4c4c486c4c4c4c48686c4c4c4c486c4c4c486c4c48686c4c4c4c486c4c486c4c4868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c38686c3c3c3c3c3c3c3c3c3c3508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c3c3c3508686868686
+505086c3c38686868686868686868686505086865050
+c3c38686868686868686868686868686865050c3c386868686c4c486c4c486c4868686c4
+c486c4c486c4c486c4c48686c486c4c48686c4c486c4c48686868686c4c486c4c486c4c4
+8686c4c486c4c48686c4c48686c4c486c4c486c4c486c4c48686c4c486c4c486c4868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c38686c3c3c3c3c3c3c3c3c350508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c3c350508686868686
+505086c3c38686868686868686868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c486c4c486c4868686c4
+c486c4c486c4c486c4c48686c486c4c4c4c4c4c486c4c48686868686c4c486c4c486c4c4
+c4c4c4c486c4c486868686c4c4c4c486c4c486c4c486c4c4c4c4c4c486c4c48686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c38686c3c38686868686868650508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c38650508686868686
+505086c3c3c3c3c3c3c3c3c350868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c386868686c4c4c486c4c4c4868686c4
+c486c4c486c4c486c4c4c4c48686c4c48686868686c4c48686868686c4c486c4c486c4c4
+8686868686c4c48686c4c48686c4c486c4c486c4c486c4c48686868686c4c48686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c38686c3505050505050505050508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3505050508686868686
+505086c3c3c3c3c3c3c3c35050868686505086865050
+c3c38686c35050505050505050505086865050c3c38686868686c4c48686c486868686c4
+c486c4c486c4c48686c4c4868686c4c4c48686c486c4c48686868686c4c486c4c486c4c4
+c48686c486c4c48686c4c48686c4c486c4c486c4c486c4c4c48686c486c4c48686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868650505050505050505050508686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868650505050508686868686
+505086c3c38686868686865050868686505086865050
+c3c38686505050505050505050505086865050c3c38686868686c4868686c4868686c4c4
+c4c486c4c486c4c486c4c4c4c48686c4c4c4c4868686c4c48686868686c4c486c4c486c4
+c4c4c4868686c4c48686c4c4c486c4c4c4c4c4c4c4c486c4c4c4c486c4c4c4c486868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686868686868686c4c48686c4c486868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c38686c3505050505050505050508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686868686868686c4c48686c4c486868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868650505050505050505050508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686c4c4c4c48686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050c350505050505050505050505050505050505086c3
+50505050505050505050505050505050505086c350505050505050505050505050505050
+505086c3505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050508650
+505050505050505050505050505050505050865050505050505050505050505050505050
+50508650505050505050505050505050505050505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888888888888888888888888888888888888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b433333333b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b43333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b4333333333333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b4b4b4b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b433b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b4b4b43333b4b4b4b4b4b4b4b4b46cecb4b433b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff2f2
+f2f2f2f2f27ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b43333b4b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f
+f27f7ff27f7f7ff27ff27f7ff27f7f7f7ff2f2f27f7f7ff27ff2f27f7f7f7ff2f27ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7ff2f2f2f2f2f27f7f7f7f7ff2f27f7f7f
+7ff27f7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff2f2
+7ff2f27ff27f7ff2f27ff2f27ff27f7ff27f7f7ff27f7ff2f27f7ff27f7ff27f7ff2f27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7ff2f27f7f7f7f7f
+7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b4b43333333333b43333b43333b4b43333b4333333
+333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7ff2f2f2f2f2f27ff2f27f7f7f7f7f7f7f
+7ff27f7f7f7ff2f27f7f7f7ff2f2f2f2f27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff2f2f2f27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4b43333b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7ff2f27f7f7f7f7f
+7ff27f7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b43333b43333b4333333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7f7f7ff2f27f7f7f
+7ff27f7f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff2f27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4333333b433333333b4b43333b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff2f2f27ff27ff27f7f7ff27f7f7ff2f27ff27f
+7f7f7f7f7ff27f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b43333b4b4b43333b43333b43333b43333b43333b4
+b4b43333b43333b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4333333
+33b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b4333333b43333b43333b4333333b43333b4333333b43333
+b43333b4333333b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+3333b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b43333b4b4
+3333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b433333333
+3333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4b4b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4333333b43333b43333b4b43333
+b43333b4333333b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+3333b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b43333b4b43333b4b43333b43333b43333b43333b4b43333
+b4b43333b43333b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4333333
+33b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b433
+333333b4b4b433333333b4b4b433333333b4b4b4b4b46cecb4b4b4b433b4b4b4b4b4b433
+3333b4b4b433b43333b4b4b4b43333b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46cecb4b4b4b433b4b4b4b4b433b4
+b4b433b4b43333b4b433b4b433b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b4b4
+b4b43333b4333333b4b4b4b4333333b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4
+b4b433b43333b4b4b433b433b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b433
+33333333b4b4b4333333b4b4b4b4333333b4b4b4b4b46cecb4b4b433b4b4b4b4b4b43333
+3333b4b433b4b4b433b43333333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333
+b4b43333b4b4b4b4333333b4b4b4b4333333b4b4b4b46cecb4b4b433b4b4b4b4b433b4b4
+b433b4b433b4b4b433b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4
+33b4b43333b4b433b4b433b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b433
+3333b43333b433333333b4b4b433333333b4b4b4b4b46cecb4b43333333333b4b4333333
+b433b433b43333b4b4b4b4333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b43333
+33b4b4b433b43333b4b4333333b4b4b4333333b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b43333b43333b4b4b433333333b4b433
+33b43333b4b4b433333333b4b43333b43333b4b4b4b46c6cb4b433b4b4b433b4b433b4b4
+b433b4b43333b4b433b4b433b4b4b433b4b4b433b4b43333b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4333333b43333b43333b4b43333b433
+3333b43333b43333b4b43333b43333333333b4b4b4b46c6cb4b433b4b4b4b4b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b4333333b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b4333333
+3333b4b433b4b4b433b4b433b4b4b43333333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333333333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b433b4b4
+b4b4b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b4b43333b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b43333
+33b4b4b433b4b4b433b4b43333b4b4b4333333b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b433333333b4b43333b4b433333333b4b433
+33b4b43333b4b433333333b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+333333b4b4b433b433b433b4b433b4b433b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4
+b4b433b4b4b4b4b4b4b4b433b433b4b4333333b4b4b4b4333333b4b4b433b43333b4b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4
+b4b433333333b4b43333b4b43333b4b43333b43333b43333b43333b433333333b4b43333
+b4b43333b43333b43333b4b4b43333b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b43333b4b433b433b4b4b4b43333b4b4b4b4b433b4b4b433b4b433b4b4b433
+b4b433b4b4b4b4b4b4b4b43333b4b433b4b4b433b4b433b4b4b433b4b43333b4b433b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333
+b43333b4b43333b43333b43333b4b43333b4333333b433333333333333b4b43333b43333
+b4b43333b4333333b43333b43333b4333333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+b4b4b433b4b433b4b4b43333b4b4b4b4b4b4b43333b4b4b433b4b4b433b4b4b4b4b4b433
+b4b433b4b4b4333333b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333
+b43333b4b4b4b4b433333333b4b4b43333b4b43333b4333333b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+33333333b4b433b4b4b43333b4b4b4b4b4b4b4b4b433b4b43333333333b4b4b433333333
+b4b433b4b4b4b4b433b4b433b4b4b43333333333b4b43333333333b4b433b4b4b433b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333333333
+b43333b4b4b4b4b433333333b4b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b433b4b4b433b433b4b4b433b4b4b4b433b4b433b4b4b4b4b4b433b4b4b433
+b4b433b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333
+b43333b4b4b4b4b43333b43333b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b433b4b4b433
+b4b4b433b4b433b4b4b433b4b433b4b433b4b4b4b433b4b433b4b4b433b4b433b4b4b433
+b4b4b433b4b4b43333b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333
+b43333b4b43333b43333b4b43333b43333b4333333b43333b4b4b43333b4b43333b43333
+b4333333b43333b4b43333b43333b4333333b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+333333b433b433b4b4b433b4b4b433b4b433333333b4b4b4b4333333b4b4b4b4333333b4
+33b4b4b4333333b433b4b433b4b4b4b4333333b4b4b4b4333333b4b4b433b4b4b433b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b4333333b433
+33b433333333b4b43333b4b4b43333b43333b43333b43333b4b4b4b433333333b4b4b433
+33b43333b43333b4b43333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b433333333b433b4333333b4
+333333b4b4b433333333b4b43333b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b4b43333b4b43333
+b4b43333b43333b4b43333b4333333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b4b4b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b4b43333333333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b4333333b4b43333
+b4b43333b43333b4b43333b4333333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b4b4b43333b43333b4b43333
+b4b43333b4b4333333b433333333b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333
+b43333b43333b43333b4b433333333b4b43333b433333333b4b43333b4b43333b43333b4
+b43333b43333b433333333b43333b43333b4b4b4b4b46c6cb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333
+3333333333b4333333b43333b4b43333b433333333333333b4b43333b4b43333b43333b4
+3333b4333333b4b43333b4b4333333b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+33b4b43333b4b43333b43333b4b43333b4333333b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b4b433b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+b4b4b43333b4b43333b4333333333333b43333b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+b4b4b43333b4b43333b43333b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333
+b4b4b43333b4333333b43333b4b43333b43333b4b4b4b4b43333b4b43333b4b4b43333b4
+3333b4333333b4b43333b4333333b4b43333b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333
+b4b4b4b43333b43333b4b433333333b4b43333b4b4b4b4b43333b4b43333b4b4b43333b4
+b43333b43333b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4
+33333333b4b4b433333333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4333333333333
+33b4b43333b43333b4b43333b43333333333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b4333333b4b433
+3333b4b4b4b43333b4b43333b4333333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b4b4
+b4333333b4b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b4b4
+b4b4333333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4333333b43333b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b43333b4b4b4b4
+33333333b4b4b433333333b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333
+3333b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b43333333333b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+33b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b43333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+33b433b4b4b4b4b43333b433b4b4b4333333b4b4b433b43333b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b433b4b4b433b4b4b43333
+33b4b4333333b4b433b4b4b4333333b4b4b4b4333333b4b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b4b4333333b4b4b433b4b4b43333b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b433b4b4b433b4b4b4333333b4b4b433b433b433b433b4b433
+b4b4b4b4333333b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4
+33333333b4b43333b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b433b4b43333b4b433b4b4b433b4b43333b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b433b4b4b433b4b433b4b4b433b4b43333b4b43333b43333b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b4333333b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433333333333333b4b433b4b4b433b4b433b4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4333333
+3333b4b4b433b4b4b433b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b43333333333b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b4b4b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b43333333333b4b4b4b433
+33333333b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b43333333333b4b433
+33333333b4b4b433b4b4b4b4b433b4b43333333333b4b433b4b4b433b433b4b4b4333333
+3333b4b433b4b4b433b4b433b4b4b4b4b4b4b433333333b4b43333333333b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b43333333333b4b4b433b4b4b433b4
+b4b43333333333b4b4b433b4b4b433b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b4b433333333b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b4b4b4b433b4b4b433b433b4b4b433b4b4
+b4b4b4b433b4b4b433b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b433b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b433b4b43333b4b433b4b4b433b4b43333b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b433b4b433b4b4b4b433b4b4b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b4b43333b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b4b43333b433b4b4b4333333b4b4b433b43333b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b4b4b433b4b4b4b4b43333
+33b4b4b43333b4b433b4b4b4333333b4b4b4b4333333b433b4b4b4b4b4b4b4b4b4333333
+3333b4b4b4b4333333b4b4b433b4b4b43333b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b4b433b4b433b4b4
+33b4b4b4333333b433b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+33333333b4b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433333333b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b4b433b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b433
+b433b4b4333333b4b4b433b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4333333
+33b4b43333b43333b433333333b4b4b43333b43333b43333b43333b433333333b4b43333
+b4b43333b43333b43333b4b4b43333b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b433
+33b4b433b4b4b433b4b433b4b4b433b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b433333333333333b4b43333b43333b4333333b433333333333333b4b43333b43333
+b4b43333b4333333b43333b43333b4333333b4b4b4b46c6cb4b433b4b4b4333333b4b433
+b4b4b433b4b4b433b4b433b4b4b433b4b4b4b433b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b4333333b4b43333b4b43333b43333b4b43333b4333333b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b43333333333b4b433b4b433b4b4b4b433b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b4333333333333b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b4b4b4b4b4b433b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b4b433b4b4b43333b4b433
+b4b4b433b4b4b433b4b4b433b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b43333b4b43333b43333b4333333b43333b4b4b43333b4b43333b43333
+b4333333b43333b4b43333b43333b4333333b4b4b4b46c6cb4b4b4b4333333b433b4b433
+b4b4b4b4333333b4b4b4b4b433b4b4b4b43333333333b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4333333
+33b4b43333b4b4b4b433333333b4b4b43333b43333b43333b4b4b4b433333333b4b4b433
+33b43333b43333b4b43333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333b4b4
+3333b43333b43333b43333b4b433333333b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333b433
+33b4333333b4333333b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4333333333333b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b4b4b4b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b433
+33b4333333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b4b4
+3333b43333b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4333333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433
+333333b4b4b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333
+b4b43333b43333b4333333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b433
+33333333b43333b4b43333b4b4b43333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333
+b4b43333b43333b4333333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433
+3333b43333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4333333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b43333
+3333b4b4b43333b43333b43333b4b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4
+b43333b43333b4333333b43333b4b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4
+b43333b43333b4b43333b4b43333b43333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333
+333333b43333b4b43333b4b43333b43333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4
+b43333b43333b4b43333b4b4b4333333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4
+b43333b43333b4333333b4b4b4333333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b43333
+33b43333b43333b43333b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b43333b4b4b4b4b4b4b4b4b4b4333333b4b4b4b46c6cb4b433b4b433b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4333333b433b4b4b4333333
+b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b433333333b4b4
+3333b43333b4b433333333b4b433333333b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b43333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4333333
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4333333333333b4
+3333b43333b4333333333333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+3333b43333b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4333333
+b433b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433333333b4b4
+3333b43333b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4333333b4b4333333b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4
+33333333b4b43333b4b43333b433333333b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+3333333333b4b4b43333b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333
+33b4b43333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b433b4b4b4333333b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+33333333b4b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b433333333b4b43333b4b4
+3333b433333333b43333b4b4b43333b4b433333333b4b43333b433333333b4b433333333
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4b4
+3333b4b43333b4b43333b4b4b43333b43333b4b43333b433333333333333b43333b4b433
+33b4333333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4333333
+33b4b4b43333b4b4b43333b43333b4b4b4b4b4b43333b4333333b4b43333b4b4b4b4b433
+33b43333b4b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4333333333333b4b4b43333
+b4b4b4b43333b4b4b43333b43333b4b4b43333333333b43333b4b4b43333b4b433333333
+33b43333b4b43333b43333b4333333333333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4333333
+33b4b4b43333b4b4b4b4333333b4b4b43333b4b43333b43333b4b4b43333b43333b4b433
+33b43333b4b43333b43333b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4333333b4b43333b43333b4b4
+3333b4b43333b433b4b4333333b4b4b43333b4b43333b43333b4b4b43333b43333b4b433
+33b4333333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b43333b4b4
+3333b4b4b43333b4b4b4b433b4b4b4b4b4333333b433333333b4b4b43333b4b4333333b4
+33333333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4
+b43333b43333b433333333b43333b43333b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4
+3333b4333333b4b43333b4b4333333b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b43333b4
+3333b4333333b4b43333b4333333b4b43333b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b43333b4
+b43333b43333b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b4b4b4b43333b43333b4b4b4b4b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b43333b4
+3333b43333b433333333b4b43333b43333b4b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4333333b43333b43333b43333b43333b4333333b4
+33333333333333b4b43333b4333333b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+333333b4b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+3333b4b4b4333333333333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+3333b4b4b43333b4b4b4b4b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b43333b43333b43333b43333b4333333b4
+3333b4b4b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b43333b43333b43333b4b43333b43333b4
+3333b4b4b4b433333333b4b43333b4b43333b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
diff --git a/Doc/Reference/Inspector.ps b/Doc/Reference/Inspector.ps
new file mode 100644
index 0000000..ba823c7
--- /dev/null
+++ b/Doc/Reference/Inspector.ps
@@ -0,0 +1,1791 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Inspector.ps
+%%Creator: XV Version 3.00  Rev: 3/30/93  -  by John Bradley
+%%BoundingBox: 37 367 415 467
+%%Pages: 1
+%%DocumentFonts:
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 472 string def
+
+% lower left corner
+37 367 translate
+
+% size of image (on paper, in 1/72inch coords)
+377.56800 100.00800 scale
+
+472 125 8			% dimensions of data
+[472 0 0 -125 0 125]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+86c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+86c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686868686
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686868686
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c4c486c4868686868686
+868686868686868686868686868686868686868686868686868686c4c4c486868686c4c4
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c3c3c3c3c3c3c3c3c35086865050
+86c3c3868686868686868686868686868686505086c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c4868686868686
+86868686868686868686868686868686868686868686868686868686c4c486868686c4c4
+868686868686868686868686868686868686868686868686868686868686868686c48686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686c3c3c3c3c3c3c3c3c3505086865050
+86c3c3868686868686868686868686868686505086c3c3c3c3c3c3c3c3c3c3c3c3c35050
+86865050
+c3c38686c35050505050505050505086865050c3c38686c4c486868686c4868686868686
+86868686868686868686868686868686868686868686868686868686c4c4868686868686
+8686868686868686868686868686868686868686868686868686868686868686c4c48686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686865050
+86865050
+c3c38686505050505050505050505086865050c3c38686c4c48686868686868686c4c4c4
+c486c4c4c4c4c4868686c4c4c4c486c4c486c4c48686c4c4c4c48686c4c4868686c4c4c4
+c4c4c4c4c4868686c4c4c4c4c4c4c4c4c4868686c4c4c4c4868686c4c4c4c4c4c4c4c486
+86c4c4c4c486c4c486c4c4868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+86c3c3c3c3c3c3c3c3c3c3508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c3c3c3508686868686505086c3c386868686868686868686865050
+86865050
+c3c38686868686868686868686868686865050c3c38686c4c486868686868686c4c48686
+c4c486c4c486c4c486c4c48686c4c486c4c486c486c4c48686c4c486c4c486868686c4c4
+86c4c486c4c486c4c48686c486c4c486c4c486c4c48686c4c486c4c48686c486c4c48686
+c4c48686c4c486c4c486c486868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+86c3c3c3c3c3c3c3c3c350508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c3c350508686868686505086c3c386868686868686868686865050
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c48686c4c4c4c486c4c4c4c4
+c4c486c4c486c4c486c4c4c4c4c4c486c4c48686868686c4c4c4c486c4c486868686c4c4
+86c4c486c4c486c4c4c4c48686c4c486c4c486c4c4c4c4c4c486c4c486868686c4c48686
+c4c48686c4c486c4c48686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+86c3c38686868686868650508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c38650508686868686505086c3c3c3c3c3c3c3c3c3508686865050
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c38686c4c4868686c4c48686c4c48686
+868686c4c486c4c486c4c48686868686c4c4868686c4c48686c4c486c4c486868686c4c4
+86c4c486c4c48686c4c4c4c486c4c486c4c486c4c48686868686c4c486868686c4c48686
+c4c48686c4c486c4c4868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+86c3505050505050505050508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3505050508686868686505086c3c3c3c3c3c3c3c350508686865050
+86865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4c4c486
+86c486c4c486c4c486c4c4c48686c486c4c4868686c4c48686c4c486c4c486868686c4c4
+86c4c486c4c486c48686c4c486c4c486c4c486c4c4c48686c486c4c4c486c486c4c48686
+c4c48686c4c486c4c48686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8650505050505050505050508686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868650505050508686868686505086c3c386868686868650508686865050
+86865050
+c3c38686505050505050505050505086865050c3c386868686c4c4c4c486868686c4c4c4
+c486c4c4c486c4c4c486c4c4c4c486c4c4c4c4868686c4c4c486c4c4c4c4c48686c4c4c4
+c4c4c486c4c4c4c4c4c4c48686c4c4c4c4868686c4c4c4c4868686c4c4c4868686c4c486
+86c4c4c4c486c4c4c4c48686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686c4c4868686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686c35050505050505050505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686c4c4868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686505050505050505050505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686c4c4c4c48686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050c35050
+5050505050505050505050505050505086c3505050505050505050505050505050505050
+86c350505050505050505050505050505050505086c35050505050505050505050505050
+50505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050508650505050505050505050505050505050505050
+865050505050505050505050505050505050505086505050505050505050505050505050
+50505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b433333333b4b43333b43333b43333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b43333b43333b4333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b433333333333333b43333b4b43333b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4333333333333b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b4b4b4b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b43333b43333b4333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b433333333b4b43333b43333b43333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433
+33b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433
+33b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b4
+3333b4b433333333b4b4b433333333b4b433333333b4b433333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b4b433333333b4b43333b43333b4b43333b4b433333333b4b4b433333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b4
+3333b43333b4b43333b43333b4b43333b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b43333b4b43333b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b43333b4b43333b43333b4b4b4b4b4b43333b4b4333333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b4b4b4b4b43333b43333b43333b4b43333b43333b4b43333b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b4333333333333b43333b4b4b4b4b4b43333b4b4b4b4333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b433b4
+b4b43333333333b43333b43333b4b43333b4333333333333b4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b43333b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4
+b43333b4b43333b43333b43333b4b43333b43333b4b4b4b4b4b4b4b4333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b4
+3333b43333b4b43333b43333b4b43333b4b43333b4333333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b43333b4b43333b43333b43333b4333333b43333b4b43333b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b4
+3333b4b433333333b4b4b433333333b4b4b4b43333b4b433333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b4b4333333b433333333b4b43333b43333b4b433333333b4b4b433333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6cb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4cb4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433333333333333333333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4333333b4b4b4b4b4b4b4b4b4
+33b4b4333333b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b4b4b4b4b43333333333b433b4
+b4b433b4b4b4b4b4b4b4b4b4333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7f
+7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7ff2
+f2f2f2f27ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7ff27f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4333333b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433
+b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7ff27f7f7ff27f
+7f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7ff2
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433
+b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b433b4b4b4b4b4b4b433b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7ff27ff27f7f7f7f7f7f7ff2
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4
+b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b433b433b4b4b4b4b4b4b433333333b4b4b4b4
+33b4b4b433b4b4b4b4b4b433b43333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7ff27f7f
+7f7f7f7f7ff27f7f7f7f7ff2f27f7f7f7f7f7f7ff27f7f7f7ff27ff27f7f7f7f7f7f7ff2
+f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7ff27ff2f27f7f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b43333333333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b43333b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7f
+7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff2f27f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b433333333b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b433b4b4b4b4b4b433b4b4333333333333b4b4b4b4b4b433b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7ff2f2f2f2f2f27f7f7f7f7f7ff2
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff2
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b43333333333b4b4b4b4b4b433b4
+b4b4b4333333b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4333333b4b4b4b4
+33b4b4b433b4b4b4b4b4b4b4333333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff2f2f2f2f27f
+7f7f7f7f7ff27f7f7f7ff2f2f27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b43333333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b433333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6cb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4cb4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433333333333333333333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff2f2f2f2f2f2f27f
+f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b433
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b433b4b4
+b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b433b433b4b433b4b4b433b433b4b4
+33b4b4b4b4333333b4b4b433b43333b4b4b4b43333b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7ff27f7f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27ff27f7ff27f7f
+7ff27ff27f7ff27f7f7f7ff2f2f27f7f7ff27ff2f27f7f7f7ff2f27ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4333333333333b4b4b4b4b43333b4b4b4b433b4b4b4b433b433b4b4b4
+b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b43333b43333b433b4b43333b43333
+b433b4b433b4b4b433b4b43333b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7ff2f2f2f2f2f27f7f7f7f7ff2f27f7f7f7ff27f7f7f7f
+f27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff2f27ff2f27ff27f
+7ff2f27ff2f27ff27f7ff27f7f7ff27f7ff2f27f7ff27f7ff27f7ff2f27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b43333333333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b43333b4b4b4b4b4b433b4b4b4b43333b4b4b4b4
+b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b4b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7ff2f27f7f7f7f7f7ff27f7f7f7f
+f2f27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4333333333333b43333b4b4b4b4b4b4b4b433b4b4b4b43333b4b4b4b4
+3333333333b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b433333333b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7ff2f2f2f2f2f27ff2f27f7f7f7f7f7f7f7ff27f7f7f7f
+f2f27f7f7f7ff2f2f2f2f27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7ff2f2f2f27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b433333333b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b43333b4b4b4b4b4b433b4b4b4b433b433b4b4b4
+b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7ff2f27f7f7f7f7f7ff27f7f7f7f
+f27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b4b4b43333b4b4b4b433b4b4b4b433b4b433b4b4
+b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7f7f7ff2f27f7f7f7ff27f7f7f7f
+f27f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff2f27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b433b4
+b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b4333333b433b433b4b4b433b4b4b43333b433b4b4b4b4b4b433b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7f7ff27f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7ff2f2f27ff27ff27f7f7ff27f7f7ff2f27ff27f7f7f7f7f7ff2
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b43333333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b433333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
diff --git a/Doc/Reference/Makefile b/Doc/Reference/Makefile
new file mode 100644
index 0000000..19a328c
--- /dev/null
+++ b/Doc/Reference/Makefile
@@ -0,0 +1,29 @@
+# Makefile for Manual building
+
+TEX= manual.tex commands.tex Reference1.tex Reference2.tex \
+     Appendix-A.tex Appendix-B.tex Appendix-C.tex Appendix-D.tex
+
+all: dvi ps
+
+dvi: 	manual.dvi
+ps: 	manual.ps
+
+manual.dvi: $(TEX)
+	echo -n > index.tex
+	latex manual.tex
+	tr A-Z a-z < manual.idx> manual2.idx
+	mv manual2.idx manual.idx
+	STK_LIBRARY=../../Lib ../../Src/stk -no -file index.stk
+	bibtex manual
+	latex manual.tex
+	latex manual.tex
+	
+manual.ps: manual.dvi
+	dvips -t a4 -f manual.dvi > manual.ps
+
+clean: 
+	rm -f  *.aux *.idx  *.log *.aux *.bbl *.blg  *.idx *.toc *~ index.tex
+
+very-clean: clean
+	rm -f manual.ps manual.dvi
+
diff --git a/Doc/Reference/Reference1.tex b/Doc/Reference/Reference1.tex
new file mode 100644
index 0000000..4248c9c
--- /dev/null
+++ b/Doc/Reference/Reference1.tex
@@ -0,0 +1,1370 @@
+%
+% STk Reference manual (Part 1)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: ??-Nov-1993 ??:??
+% Last file update: 24-Jul-1996 13:38
+%
+
+\section*{Introduction}
+
+This document provides a complete list of procedures and special forms
+implemented in version {\stkversion} of {\stk}. Since {\stk} is (nearly) 
+compliant with the language described in the {\em Revised$^{4}$ Report on the
+Algorithmic Language Scheme} \mainindex{R4RS}(denoted {\rrrr} hereafter{\footnote{The {\em
+Revised$^{4}$ Report on the Algorithmic Language Scheme} is available
+through anonymous FTP from {\tt ftp.cs.indiana.edu} in the directory
+{\tt /pub/scheme-repository/doc}}})\cite{R4RS}, the organization of
+this manual follows the {\rrrr} and only describes extensions.
+
+\section{Overview of \stk}
+
+Today's graphical toolkits for applicative languages are often not
+satisfactory. Most of the time, they ask the user to be an X window system
+\mainindex{X window system} expert and force him/her to cope with arcane
+details such as server connections and event queues. This is a real
+problem, since programmers using this kind of languages are generally not
+inclined to system programming, and few of them will bridge the gap between
+the different abstraction levels.
+
+
+~~~~Tk\index{Tk toolkit}\index{toolkit} is a powerful graphical tool\-kit
+promising to fill that gap. It was developed at the University of Berkeley
+by John Ousterhout~\cite{Ouster-Tk}. The toolkit offers high level widgets
+such as buttons or menus and is easily programmable, requiring little
+knowledge of X fundamentals. Tk relies on an interpretative shell-like
+language named Tcl~\cite{Ouster-Tcl}.
+
+~~~~{\stk} is an implementation of the Scheme programming language,
+providing a full integration of the Tk toolkit. In this implementation,
+Scheme establishes the link between the user and the Tk toolkit, replacing
+Tcl.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{Lexical conventions}
+
+\subsection{Identifiers}
+
+Syntactic keywords can be used as variables in \stk. Users must be
+aware that this extension of the language could lead to ambiguities in
+some situations.
+
+\subsection{Comments}
+
+As in the {\rrrr}, a semicolon (;) indicates the start of a comment.
+In {\stk}, comments can also be introduced by \sharpsign$!$.  This
+extension is particularly useful for building {\stk} scripts. On most
+Unix implementations, if the first line of a script looks like this:
+\begin{scheme}
+\sharpsign$!$/usr/local/bin/stk -file
+\end{scheme}
+then the script can be started directly as if it were a binary. {\stk}
+is loaded behind the scenes and reads and executes the script as a
+Scheme program. Of course this assumes that {\stk} is located in {\tt
+  /usr/local/bin}.
+
+\subsection{Other notations}
+
+{\stk} accepts all the notations defined in {\rrrr} plus
+
+\begin{description}{}{}
+
+\setbox0\hbox{\tt \char"5B{} \char"5D{} }
+\item[\copy0] Brackets are equivalent to parentheses. They are used
+  for grouping and to notate lists. A list opened with a left square
+  bracket must be closed with a right square bracket
+  (section~\ref{listsection}).
+
+\item[\tt:] A colon at the beginning of a symbol introduces a keyword.
+  Keywords are described in section~\ref{keywords}.
+  
+\item[\tt\sharpsign.<expr>] is read as the evaluation of the Scheme
+  expression {\tt <expr>}. The evaluation is done during the
+  \ide{read} process, when the \var{\sharpsign.} is encountered.
+  Evalustaion is done in the global-environment.
+  \begin{scheme}
+    (define foo 1)
+    \sharpsign.foo                                 \lev 1
+    '(foo \sharpsign.foo \sharpsign.(+ foo foo))   \lev (foo 1 2)
+    (let ((foo 2))
+       \sharpsign.foo)                             \lev 1
+    
+  \end{scheme}
+\end{description}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{Basic concepts}
+
+{\doc}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{Expressions}
+
+\subsection{Primitive expression types}
+
+\begin{entry}{%
+\proto{quote}{ \hyper{datum}}{\exprtype}
+\pproto{\singlequote\hyper{datum}}{\exprtype}}
+\saut
+The quoting mechanism is identical to {\rrrr}. Keywords (see
+section~\ref{keywords}), as
+numerical constants, string constants, character constants, and boolean
+constants evaluate ``to themselves''; they need not be quoted.
+\begin{scheme}
+'"abc"     \ev  "abc"
+"abc"      \ev  "abc"
+'145932    \ev  145932
+145932     \ev  145932
+'\schtrue  \ev  \schtrue
+\schtrue   \ev  \schtrue
+':key      \ev  {:key}
+:key       \ev  {:key}
+\end{scheme}
+\begin{note}
+  {\rrrr} requires to quote constant lists and constant vectors. This
+  is not necessary with {\stk}.
+\end{note}
+\end{entry}
+
+\begin{entry}{%
+\pproto{(\hyper{operator} \hyperi{operand} \dotsfoo)}{\exprtype}}
+\saut
+{\doc} Furthermore, \hyper{operator} can be a macro (see section~\ref{macros}).
+\end{entry}
+
+\begin{entry}{%
+\proto{lambda}{ \hyper{formals} \hyper{body}}{\exprtype}
+\proto{if}{ \hyper{test} \hyper{consequent} \hyper{alternate}} {\exprtype}
+\proto{if}{ \hyper{test} \hyper{consequent}}{\exprtype}
+\proto{set!}{ \hyper{variable} \hyper{expression}}{\exprtype}}
+\saut
+\doc
+\end{entry}
+
+\subsection{Derived expression types}
+
+\begin{entry}{%
+\proto{cond}{ \hyperi{clause} \hyperii{clause} \dotsfoo}{\exprtype}
+\proto{case}{ \hyper{key} \hyperi{clause} \hyperii{clause} \dotsfoo}{\exprtype}
+\proto{and}{ \hyperi{test} \dotsfoo}{\exprtype}
+\proto{or}{ \hyperi{test} \dotsfoo}{\exprtype}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{when}{ \hyper{test} \hyperi{expression} \hyperii{expression} \dotsfoo}{\exprtype}}
+\saut
+If the \hyper{test} expression yields a true value, the \hyper{expression}s are
+evaluated from left to right and the value of the last \hyper{expression} is
+returned.
+\end{entry}
+
+\begin{entry}{%
+\proto{unless}{ \hyper{test} \hyperi{expression} \hyperii{expression} \dotsfoo}
+            {\exprtype}}
+\saut
+If the \hyper{test} expression yields a false value, the \hyper{expression}s are
+evaluated from left to right and the value of the last \hyper{expression} is
+returned.
+\end{entry}
+
+\begin{entry}{%
+\proto{let}{ \hyper{bindings} \hyper{body}}{\exprtype}
+\proto{let}{ \hyper{variable} \hyper{bindings} \hyper{body}}{\exprtype}
+\proto{let*}{ \hyper{bindings} \hyper{body}}{\exprtype}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{fluid-let}{ \hyper{bindings} \hyper{body}}{\exprtype}}
+\saut
+The \var{bindings} are evaluated in the current environment, in some
+unspecified order, the current values of the variables present in
+\var{bindings} are saved, and the new evaluated values are assigned to the 
+\var{bindings} variables. Once this is done, the expressions of \var{body}
+are evaluated sequentially in the current environment; the value of the
+last expression is the result of {\tt fluid-let}. Upon exit, the stored
+variables values are restored. An error is signalled if any of the 
+\var{bindings} variable is unbound.
+\begin{scheme}
+(let* ((a 'out)
+       (f (lambda () a)))
+  (list a 
+        (fluid-let ((a 'in)) (f))
+        a)) \lev (out in out)
+\end{scheme}
+When the body of a \ide{fluid-let} is exited by invoking a continuation,
+the new variable values are saved, and the variables are set to their old 
+values. Then, if the body is reentered by invoking a continuation, the old
+values are saved and new values are restored. The following example illustrates
+this behaviour
+\begin{scheme}
+(let ((cont \schfalse)
+      (l    '())
+      (a    'out))
+
+  (set! l (cons a l))
+  (fluid-let ((a 'in))
+    (set! cont (call/cc (lambda (k) k)))
+    (set! l (cons a l)))
+  (set! l (cons a l))
+
+  (if cont (cont \schfalse) l)) \lev (out in out in out)
+
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{letrec}{ \hyper{bindings} \hyper{body}}{\exprtype}
+\proto{begin}{ \hyperi{expression} \hyperii{expression} \dotsfoo}{\exprtype}
+\proto{do} { \hyper{inits} \hyper{test} \hyper{body}}{\exprtype}
+\proto{delay}{ \hyper{expression}}{\exprtype}
+\proto{quasiquote}{ \hyper{template}}{\exprtype} \nopagebreak
+\pproto{\backquote\hyper{template}}{\exprtype}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{
+\proto{dotimes}{ (var count) \hyperi{expression} \hyperii{expression} \dotsfoo} {\exprtype}
+\proto{dotimes}{ (var count result) \hyperi{expression} \hyperii{expression} \dotsfoo} {\exprtype}}
+\saut 
+
+\ide{Dotimes} evaluates the \var{count} form, which must return an
+integer.  It then evaluates the \hyper{expression}s once for each
+integer from zero (inclusive) to \var{count} (exclusive), in order,
+with the variable \var{var} bound to the integer; if the value of
+\var{count} is zero or negative, then the \hyper{expression}s are not
+evaluated. When the loop completes, \var{result} is evaluated and its
+value is returned as the value of the \ide{dotimes} expression. If
+\var{result} is omitted, \ide{dotimes} returns {\schfalse}.
+
+\begin{scheme}
+(let ((l '()))
+  (dotimes (i 4 l)
+     (set! l (cons i l)))) \lev (3 2 1 0)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{while} { \hyper{test} \hyperi{expression} \hyperii{expression} \dotsfoo}{\exprtype}}
+\saut
+\ide{While} evaluates the \hyper{expression}s until \hyper{test} 
+returns a false value. The value of a \ide{while} construct is unspecified.
+\end{entry}
+
+\begin{entry}{
+\proto{until} { \hyper{test} \hyperi{expression} \hyperii{expression} \dotsfoo}{\exprtype}}
+\saut
+\ide{Until} evaluates the \hyper{expression}s while \hyper{test} 
+returns a false value. The value of an \ide{unless} construct is unspecified.
+\end{entry}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{Program structure}
+
+\doc
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{Standard procedures}
+\label{initialenv}
+\label{builtinchapter}
+
+\mainindex{initial environment}
+\mainindex{top level environment}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Booleans}
+\label{booleansection}
+
+In {\stk} the boolean value {\schfalse} is different from the empty list, as
+required by \rrrr.
+
+\begin{entry}{%
+\proto{not}{ obj}{procedure}
+\proto{boolean?}{ obj}{procedure}}
+\saut
+\doc
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Equivalence predicates}
+\label{equivalencesection}
+
+\begin{entry}{%
+\proto{eqv?}{ \vari{obj} \varii{obj}}{procedure}}
+\saut
+{\stk} extends the \ide{eqv?} predicate defined in the {\rrrr} to take
+keywords into account: if \vari{obj} and \varii{obj} are both
+keywords, the \ide{eqv?} predicate will yield {\schtrue} if and only
+if
+\begin{scheme}
+(string=? (keyword->string obj1)
+          (keyword->string obj2))
+    \ev  \schtrue%
+\end{scheme}
+\end{entry}
+
+%%%% EQ?
+\begin{entry}{%
+\proto{eq?}{ \vari{obj} \varii{obj}}{procedure}}
+\saut
+{\stk} extends the \ide{eq?} predicate defined in {\rrrr} to take
+keywords into account. On keywords, \ide{eq?} behaves like \ide{eqv?}.
+
+\begin{scheme}
+(eq? :key :key)                 \ev  \schtrue
+\end{scheme}
+\end{entry}
+
+%%%% EQUAL?
+\begin{entry}{%
+\proto{equal?}{ \vari{obj} \varii{obj}}{procedure}}
+\saut
+{\doc}
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Pairs and lists}
+\label{listsection}
+
+\begin{entry}{%
+\proto{pair?}{ obj}{procedure}
+\proto{cons}{ \vari{obj} \varii{obj}}{procedure}
+\proto{car}{ pair}{procedure}
+\proto{cdr}{ pair}{procedure}
+\proto{set-car!}{ pair obj}{procedure}
+\proto{set-cdr!}{ pair obj}{procedure}
+\setbox0\hbox{\tt(cadr \var{pair})}
+\setbox1\hbox{procedure}
+\proto{caar}{ pair}{procedure}
+\proto{cadr}{ pair}{procedure}
+\pproto{\hbox to 1\wd0 {\hfil$\vdots$\hfil}}{\hbox to 1\wd1 {\hfil$\vdots$\hfil}}
+\proto{cdddar}{ pair}{procedure}
+\proto{cddddr}{ pair}{procedure}
+\proto{null?}{ obj}{procedure}
+\proto{list?}{ obj}{procedure}
+\proto{list}{ \var{obj} \dotsfoo}{procedure}
+\proto{length}{ list}{procedure}
+\proto{append}{ list \dotsfoo}{procedure}
+\proto{reverse}{ list}{procedure}
+\proto{list-tail}{ list \vr{k}}{procedure}
+\proto{list-ref}{ list \vr{k}}{procedure}
+\proto{memq}{ obj list}{procedure}
+\proto{memv}{ obj list}{procedure}
+\proto{member}{ obj list}{procedure}
+\proto{assq}{ obj alist}{procedure}
+\proto{assv}{ obj alist}{procedure}
+\proto{assoc}{ obj alist}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{list*}{ obj}{procedure}}
+\saut
+\ide{list*} is like \ide{list} except that the last argument to \ide{list*} is
+used as the {\em cdr} of the last pair constructed.
+\begin{scheme}
+(list* 1 2 3) \ev (1 2 . 3)
+(list* 1 2 3 '(4 5)) \ev (1 2 3 4 5)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{copy-tree}{ obj}{procedure}}
+\saut
+\ide{Copy-tree} recursively copies trees of pairs. If \ide{obj} is not
+a pair, it is returned; otherwise the result is a new pair whose {\em
+  car} and {\em cdr} are obtained by calling \ide{copy-tree} on the
+{\em car} and {\em cdr} of \ide{obj}, respectively.
+\end{entry}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Symbols}
+\label{symbolsection}
+
+The {\stk} reader can cope with symbols whose names contain special
+characters or letters in the non standard case.  When a symbol is
+read, the parts enclosed in bars (``\verb+|+'') will be entered
+verbatim into the symbol's name. The ``\verb+|+'' characters are not
+part of the symbol; they only serve to delimit the sequence of
+characters that must be entered ``as is''. In order to maintain
+read-write invariance, symbols containing such sequences of special
+characters will be written between a pair of ``\verb+|+''
+
+\begin{scheme}
+'|x|                  \ev x
+(string->symbol "X")  \ev |X|
+(symbol->string '|X|) \ev "X"
+'|a  b|               \ev |a  b|
+'a|B|c                \ev |aBc|
+(write '|FoO|)        \ev writes the string "|FoO|" 
+(display '|FoO|)      \ev writes the string "FoO" 
+\end{scheme}
+
+\begin{note}
+  This notation has been introduced because {\rrrr} states that case
+  must not be significant in symbols whereas the Tk toolkit is case
+  significant (or more precisely thinks it runs over Tcl which is case
+  significant). %% axe:
+  However, symbols containing the character ``\verb+|+'' itself still
+  can't be read in.
+\end{note}
+
+\begin{entry}{%
+\proto{symbol?}{ obj}{procedure}}
+\saut
+Returns \schtrue{} if \var{obj} is a symbol, otherwise returns {\schfalse}.
+
+\begin{scheme}
+(symbol? 'foo)          \ev  \schtrue
+(symbol? (car '(a b)))  \ev  \schtrue
+(symbol? "bar")         \ev  \schfalse
+(symbol? 'nil)          \ev  \schtrue
+(symbol? '())           \ev  \schfalse
+(symbol? \schfalse)     \ev  \schfalse
+(symbol? :key)          \ev  \schfalse
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{symbol->string}{ symbol}{procedure}
+\proto{string->symbol}{ string}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{gensym}{}{procedure}
+\proto{gensym}{ prefix}{procedure}}
+\saut
+\ide{Gensym} creates a new symbol. The print name of the generated symbol 
+consists of a prefix (which defaults to {\tt "G"}) followed by the decimal
+representation of a number. If \var{prefix} is specified, it must be a
+string.
+\begin{scheme}
+(gensym) \lev |G100|
+(gensym "foo-") \lev foo-101
+\end{scheme}
+\end{entry}
+
+\subsection {Numbers}
+
+The only numbers recognized by {\stk} are integers (with arbitrary
+precision) and reals (implemented as C {\tt double float}s). 
+
+\begin{entry}{%
+\proto{number?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a number, otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{complex?}{ obj}{procedure}}
+\saut
+Returns the same result as \var{number?}.  Note that complex numbers
+are not implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{real?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a float number, otherwise returns
+{\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{rational?}{ obj}{procedure}}
+\saut
+Returns the same result as \var{number?}. Note that rational numbers are not
+implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{integer?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is an integer, otherwise returns {\schfalse}.
+\begin{note}
+  The {\stk} interpreter distinguishes between integers which fit in a
+  C {\tt long int} (minus 8 bits) and integers of arbitrary length
+  (aka ``bignums''). This should be transparent to the user, though.
+%% shouldn't it? :-)  axe
+\end{note}
+\end{entry}
+
+\begin{entry}{%
+\proto{exact?}{ \vr{z}}{procedure}
+\proto{inexact?}{ \vr{z}}{procedure}}
+\saut
+In this implementation, integers (C {\tt long int} or ``bignums'') are exact
+numbers and floats are inexact.
+\end{entry}
+
+\begin{entry}{%
+\proto{=}{ \vri{z} \vrii{z} \vriii{z} \dotsfoo}{procedure}
+\proto{<}{ \vri{x} \vrii{x} \vriii{x} \dotsfoo}{procedure}
+\proto{>}{ \vri{x} \vrii{x} \vriii{x} \dotsfoo}{procedure}
+\proto{<=}{ \vri{x} \vrii{x} \vriii{x} \dotsfoo}{procedure}
+\proto{>=}{ \vri{x} \vrii{x} \vriii{x} \dotsfoo}{procedure}
+\proto{zero?} { z}{procedure}
+\proto{positive?} { z}{procedure}
+\proto{negative?} { z}{procedure}
+\proto{odd?} { z}{procedure}
+\proto{even?} { z}{procedure}
+\proto{max}{ \vri{x} \vrii{x} \dotsfoo}{procedure}
+\proto{min}{ \vri{x} \vrii{x} \dotsfoo}{procedure}
+\proto{+}{ \vri{z} \dotsfoo}{procedure}
+\proto{*}{ \vri{z} \dotsfoo}{procedure}
+\proto{-}{ \vri{z} \vrii{z}}{procedure}
+\proto{-}{ \vr{z}}{procedure}
+\proto{-}{ \vri{z} \vrii{z} \dotsfoo}{procedure}
+\proto{/}{ \vri{z} \vrii{z}}{procedure}
+\proto{/}{ \vr{z}}{procedure}
+\proto{/}{ \vri{z} \vrii{z} \dotsfoo}{procedure}
+\proto{abs}{ x}{procedure}
+\proto{quotient}{ \vri{n} \vrii{n}}{procedure}
+\proto{remainder}{ \vri{n} \vrii{n}}{procedure}
+\proto{modulo}{ \vri{n} \vrii{n}}{procedure}
+\proto{gcd}{ \vri{n} \dotsfoo}{procedure}
+\proto{lcm}{ \vri{n} \dotsfoo}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{numerator}{ \vr{q}}{procedure}
+\proto{denominator}{ \vr{q}}{procedure}}
+\saut
+Not implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{floor}{ x}{procedure}
+\proto{ceiling}{ x}{procedure}
+\proto{truncate}{ x}{procedure}
+\proto{round}{ x}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{rationalize}{ x y}{procedure}}
+\saut
+not yet implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{exp}{ \vr{z}}{procedure}
+\proto{log}{ \vr{z}}{procedure}
+\proto{sin}{ \vr{z}}{procedure}
+\proto{cos}{ \vr{z}}{procedure}
+\proto{tan}{ \vr{z}}{procedure}
+\proto{asin}{ \vr{z}}{procedure}
+\proto{acos}{ \vr{z}}{procedure}
+\proto{atan}{ \vr{z}}{procedure}
+\proto{atan}{ \vr{y} \vr{x}}{procedure}
+\proto{sqrt}{ \vr{z}}{procedure}
+\proto{expt}{ \vri{z} \vrii{z}}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{
+\proto{make-rectangular}{ \vri{x} \vrii{x}}{procedure}
+\proto{make-polar}{ \vri{x} \vrii{x}}{procedure}
+\proto{real-part}{ \vr{z}}{procedure}
+\proto{imag-part}{ \vr{z}}{procedure}
+\proto{magnitude}{ \vr{z}}{procedure}
+\proto{angle}{ \vr{z}}{procedure}}
+\saut
+These procedures are not implemented since complex numbers are not defined.
+\end{entry}
+
+\begin{entry}{%
+\proto{exact->inexact}{ \vr{z}}{procedure}
+\proto{inexact->exact}{ \vr{z}}{procedure}
+\proto{number->string}{ number}{procedure}
+\proto{number->string}{ number radix}{procedure}
+\proto{string->number}{ string}{procedure}
+\proto{string->number}{ string radix}{procedure}}
+\saut
+\doc
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Characters}
+
+\mainindex{characters}
+Table 1 gives the list of allowed character names together with their ASCII
+equivalent expressed in octal.
+
+\begin{table}[t]
+{\small
+\begin{center}
+% \begin{tabular}{|c|c|c|} \hline
+%   {\em name}&{\em value}&{\em alternate name} \\
+% \hline
+%   nul        &000     & null\\
+%   soh        &001&\\
+%   stx        &002&\\
+%   etx        &003&\\
+%   eot        &004&\\
+%   enq        &005&\\
+%   ack        &006&\\
+%   bel        &007     & bell\\[2mm]
+%   bs         &010     & backspace\\
+%   ht         &011&\\
+%   tab        &011&\\
+%   nl         &012     & newline\\
+%   vt         &013&\\
+%   np         &014     & page\\
+%   cr         &015     & return\\
+%   so         &016&\\
+%   si         &017&\\[2mm]
+%   dle        &020&\\
+%   dc1        &021&\\
+%   dc2        &022&\\
+%   dc3        &023&\\
+%   dc4        &024&\\
+%   nak        &025&\\
+%   syn        &026&\\
+%   etb        &027&\\[2mm]
+%   can        &030&\\
+%   em         &031&\\
+%   sub        &032&\\
+%   esc        &033     & escape\\
+%   fs         &034&\\
+%   gs         &035&\\
+%   rs         &036&\\
+%   us         &037&\\[2mm]
+%   sp       &040       & space\\[2mm]
+%   del      &177       & delete\\
+\begin{tabular}{|c|c|c||c|c|c|} \hline
+{\em name}&{\em value}&{\em alternate name}&{\em name}&{\em value}&{\em alternate name} \\
+\hline
+  nul        &000       & null  &  bs         &010      & backspace\\
+  soh        &001&              &  ht         &011      & tab\\
+  stx        &002&              &  nl         &012      & newline\\
+  etx        &003&              &  vt         &013&\\
+  eot        &004&              &  np         &014      & page\\
+  enq        &005&              &  cr         &015      & return\\
+  ack        &006&              &  so         &016&\\
+  bel        &007       & bell  &  si         &017&\\[2mm]
+%%%%%
+  dle        &020&              &  can        &030&\\
+  dc1        &021&              &  em         &031&\\
+  dc2        &022&              &  sub        &032&\\
+  dc3        &023&              &  esc        &033      & escape\\
+  dc4        &024&              &  fs         &034&\\
+  nak        &025&              &  gs         &035&\\
+  syn        &026&              &  rs         &036&\\
+  etb        &027&              &  us         &037&\\[2mm]
+%%%%%
+  sp         &040       & space&&&\\[2mm]
+%%%%%
+  del        &177       & delete&&&\\
+\hline
+\end{tabular}
+\end{center}
+}
+\caption {Valid character names }
+\end{table}
+
+\begin{entry}{%
+\proto{char?}{ obj}{procedure}
+\proto{char=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char<?}{ \vari{char} \varii{char}}{procedure}
+\proto{char>?}{ \vari{char} \varii{char}}{procedure}
+\proto{char<=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char>=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-ci=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-ci<?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-ci>?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-ci<=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-ci>=?}{ \vari{char} \varii{char}}{procedure}
+\proto{char-alphabetic?}{ char}{procedure}
+\proto{char-numeric?}{ char}{procedure}
+\proto{char-whitespace?}{ char}{procedure}
+\proto{char-upper-case?}{ letter}{procedure}
+\proto{char-lower-case?}{ letter}{procedure}
+\proto{char->integer}{ char}{procedure}
+\proto{integer->char}{ \vr{n}}{procedure}
+\proto{char-upcase}{ char}{procedure}
+\proto{char-downcase}{ char}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\subsection{Strings}
+
+{\stk} string constants allow the insertion of arbitrary characters by
+encoding them as escape sequences, introduced by a backslash
+(\backwhack{}).  The valid escape sequences are shown in Table 2. For
+instance, the string
+
+\begin{scheme}
+"ab\backwhack{}040c\backwhack{}nd\backwhack{}
+e"
+\end{scheme}
+is the string consisting of the characters \sharpsign\backwhack{a}, 
+\sharpsign\backwhack{b},\sharpsign\backwhack{space}, \sharpsign\backwhack{c},
+\sharpsign\backwhack{newline}, \sharpsign\backwhack{d} and \sharpsign\backwhack{e}.
+
+\begin{table}[t]
+{\small
+\begin{center}
+\begin{tabular}{|l|l|} \hline
+\multicolumn{1}{|c|}{\em Sequence}&\multicolumn{1}{|c|}{\em Character inserted}\\
+\hline
+\backwhack{b}& Backspace \\
+\backwhack{e}& Escape \\
+\backwhack{n}& Newline \\
+\backwhack{t}& Horizontal Tab \\
+\backwhack{n}& Carriage Return \\
+\backwhack{0abc}& ASCII character with octal value abc \\
+\backwhack{\tt<newline>}& None (permits to enter a string on several lines)\\
+\backwhack{\tt<other>}& {\tt<other>}\\
+\hline
+\end{tabular}
+\end{center}
+}
+\caption {String escape sequences}
+\end{table}
+
+\begin{entry}{%
+\proto{string?}{ obj}{procedure}
+\proto{make-string}{ \vr{k}}{procedure}
+\proto{make-string}{ \vr{k} char}{procedure}
+\proto{string}{ char \dotsfoo}{procedure}
+\proto{string-length}{ string}{procedure}
+\proto{string-ref}{ string \vr{k}}{procedure}
+\proto{string-set!}{ string k char}{procedure}
+\proto{string=?}{ \vari{string} \varii{string}}{procedure}
+\proto{string-ci=?}{ \vari{string} \varii{string}}{procedure}
+\proto{string<?}{ \vari{string} \varii{string}}{procedure}
+\proto{string>?}{ \vari{string} \varii{string}}{procedure}
+\proto{string<=?}{ \vari{string} \varii{string}}{procedure}
+\proto{string>=?}{ \vari{string} \varii{string}}{procedure}
+\proto{string-ci<?}{ \vari{string} \varii{string}}{procedure}
+\proto{string-ci>?}{ \vari{string} \varii{string}}{procedure}
+\proto{string-ci<=?}{ \vari{string} \varii{string}}{procedure}
+\proto{string-ci>=?}{ \vari{string} \varii{string}}{procedure}
+\proto{substring}{ string start end}{procedure}
+\proto{string-append}{ \var{string} \dotsfoo}{procedure}
+\proto{string->list}{ string}{procedure}
+\proto{list->string}{ chars}{procedure}
+\proto{string-copy}{ string}{procedure}
+\proto{string-fill!}{ string char}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{string-find?}{  \vari{string} \varii{string}}{procedure}}
+\saut
+Returns {\schtrue} if \vari{string} appears somewhere in
+\varii{string}; otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{string-index}{  \vari{string} \varii{string}}{procedure}}
+\saut
+Returns the index of where \vari{string} is a substring of
+\varii{string} if it exists; returns {\schfalse} otherwise.
+\begin{scheme}
+(string-index "ca" "abracadabra") \lev 4
+(string-index "ba" "abracadabra") \lev \schfalse
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{string-lower}{ string}{procedure}}
+\saut
+Returns a string in which all upper case letters of \ide{string} have been
+replaced by their lower case equivalent.
+\end{entry}
+
+\begin{entry}{%
+\proto{string-upper}{ string}{procedure}}
+\saut
+Returns a string in which all lower case letters of \ide{string} have been
+replaced by their upper case equivalent.
+\end{entry}
+
+
+\subsection {Vectors}
+
+\begin{entry}{%
+\proto{vector?}{ obj}{procedure}
+\proto{make-vector}{ k}{procedure}
+\proto{make-vector}{ k fill}{procedure}
+\proto{vector}{ obj \dotsfoo}{procedure}
+\proto{vector-length}{ vector}{procedure}
+\proto{vector-ref}{ vector k}{procedure}
+\proto{vector-set!}{ vector k obj}{procedure}
+\proto{vector->list}{ vector}{procedure}
+\proto{list->vector}{ list}{procedure}
+\proto{vector-fill!}{ vector fill}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{vector-copy}{ vector}{procedure}}
+\saut
+returns a copy of \var{vector}.
+\end{entry}
+
+\begin{entry}{%
+\proto{vector-resize}{ vector size}{procedure}}
+\saut
+\var{vector-resize} physically changes the size of \var{vector}. If
+\var{size} is greater than the old vector size, the contents of the
+newly allocated cells are undefined.
+\end{entry}
+
+\subsection{Control features}
+
+\begin{entry}{%
+\proto{procedure?}{ obj}{procedure}
+\proto{apply}{ proc args}{procedure}
+\proto{apply}{ proc \vari{arg} $\ldots$ args}{procedure}
+\proto{map}{ proc \vari{list} \varii{list} \dotsfoo}{procedure}
+\proto{for-each}{ proc \vari{list} \varii{list} \dotsfoo}{procedure}
+\proto{force}{ promise}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{call-with-current-continuation}{ proc}{procedure}
+\proto{call/cc} { proc}{procedure}}
+\saut
+\ide{Call/cc} is a shorter name for \ide{call-with-current-continuation}.
+\mainindex{continuation}
+\end{entry}
+
+\begin{entry}{%
+\proto{closure?}{ obj}{procedure}}
+\saut
+returns {\schtrue} if \var{obj} is a procedure created by evaluating a
+lambda expression, otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{primitive?}{ obj}{procedure}}
+\saut
+returns {\schtrue} if \var{obj} is a procedure and is not a closure,
+otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{% 
+\proto{promise?} { obj}{procedure}}
+\saut
+returns {\schtrue} if \var{obj} is an object returned by the
+application of \ide{delay}, otherwise returns {\schfalse}.
+\end{entry} 
+
+\begin{entry}{%
+\proto{continuation?} { obj} {procedure}}
+\saut
+\mainindex{continuation}
+returns {\schtrue} if \var{obj} is a continuation obtained by
+\ide{call/cc}, otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{dynamic-wind}{ \hyperi{thunk} \hyperii{thunk} \hyperiii{thunk}} {procedure}}
+\saut
+\hyperi{Thunk}, \hyperii{thunk} and \hyperiii{thunk} are called in
+order. The result of \ide{dynamic-wind} is the value returned by
+\hyperii{thunk}.  If \hyperii{thunk} escapes from its continuation
+during evaluation (by calling a continuation obtained by \ide{call/cc}
+or on error), \hyperiii{thunk} is called. If \hyperii{thunk} is later
+reentered, \hyperi{thunk} is called.
+\end{entry}
+
+\begin{entry}{%
+\proto{catch} { \hyperi{expression} \hyperii{expression} \dotsfoo} {\exprtype}}
+\saut
+The \hyper{expression}s are evaluated from left to right. If an error
+occurs, evaluation of the \hyper{expression}s is aborted, and {\schtrue}
+is returned to \ide{catch}'s caller.  If evaluation finishes without
+an error, \ide{catch} returns {\schfalse}.
+%% axe: why isn't this a procedure taking a thunk?
+\begin {scheme}
+(let* ((x 0)
+       (y (catch
+             (set! x 1)
+             (/ 0) ; causes a "division by 0" error
+             (set! x 2))))
+  (cons x y))   \lev (1 . {\schtrue})
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{%
+\proto{procedure-body}{ \hyper{procedure}} {procedure}}
+\saut
+returns the body of \hyper{procedure}. If \hyper{procedure} is not a closure,
+\ide{procedure-body} returns {\schfalse}.
+\begin{scheme}
+(define (f a b)
+   (+ a (* b 2)))
+
+(procedure-body f)     \ev (lambda (a b)
+                                  (+ a (* b 2)))
+(procedure-body car)   \ev \schfalse
+\end{scheme}
+\end{entry}
+
+\subsection{Input and output}
+
+\label{inputoutput}
+The {\rrrr} states that ports represent input and output devices.
+However, it defines only ports which are attached to files.  In
+{\stk}, ports can also be attached to strings or to a external command
+input or output. String ports are similar to file ports, except that
+characters are read from (or written to) a string rather than a file.
+External command input or output ports are implemented with Unix pipes
+and are called pipe ports. A pipe port is created by specifying the
+command to execute prefixed with the string {\tt "|~"}. Specification
+of a pipe port can occur everywhere a file name is needed.
+
+
+\begin{entry}{%
+\proto{call-with-input-file}{ string proc}{procedure}
+\proto{call-with-output-file}{ string proc}{procedure}}
+\saut
+\begin{note}
+if {\var string} starts with the two characters {\tt "| "}, these procedures
+return a pipe port. Consequently, it is not possible to open a file
+whose name starts with those two characters.
+\end{note}
+\end{entry}
+
+\begin{entry}{%
+\proto{call-with-input-string}{ string proc}{procedure}}
+\saut
+behaves exactly as \ide{call-with-input-file} except that the port passed to
+\var{proc} is the string port obtained from \var{string}.
+
+\begin{scheme}
+(call-with-input-string "123 456" (lambda (x) (read x))) \lev 123
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{call-with-output-string}{ proc}{procedure}}
+\saut
+\var{Proc} should be a procedure of one argument.
+\ide{Call-with-output-string} calls \var{proc} with a freshly opened
+output string port. The result of this procedure is a string
+containing all the text that has been written on the string port.
+\begin{scheme}
+(call-with-output-string
+   (lambda (x) (write 123 x) (display "Hello" x))) \lev "123Hello"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{input-port?}{ obj}{procedure}
+\proto{output-port?}{ obj}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{input-string-port?}{ obj}{procedure}
+\proto{output-string-port?}{ obj}{procedure}}
+\saut
+Returns \schtrue{} if \var{obj} is either an input or an output string port,
+otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{current-input-port}{}{procedure}
+\proto{current-output-port}{}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{current-error-port}{}{procedure}}
+\saut
+Returns the current default error port.
+\end{entry}
+
+\begin{entry}{%
+\proto{with-input-from-file}{ string thunk}{procedure}
+\proto{with-output-to-file}{ string thunk}{procedure}}
+\saut
+\doc
+
+The following example uses a pipe port opened for reading. It permits
+to read all the lines produced by an external {\tt ls} command
+(i.e. the ouput of the {\tt ls} command is {\em redirected} to the
+Scheme pipe port).
+
+\begin{scheme}
+(with-input-from-file "\verb+|+ ls -ls" 
+  (lambda ()
+    (do ((l (read-line) (read-line)))
+        ((eof-object? l))
+      (display l)
+      (newline))))
+\end{scheme}
+
+Hereafter is another example of Unix command redirection. This time,
+it is the standard input of the Unix command which is redirected.
+\begin{scheme}  
+(with-output-to-file "| mail root"
+  (lambda()
+    (format {\schtrue} "A simple mail sent from STk\verb+\+n")))
+\end{scheme}  
+\end{entry}
+
+\begin{entry}{%
+\proto{with-input-from-string}{ string thunk}{procedure}}
+\saut
+A string port is opened for input from \var{string}. \ide{Current-input-port}
+is set to the port and \var{thunk} is called. When \var{thunk} returns,
+the previous default input port is restored.
+\ide{With-input-from-string} returns the value yielded by \var{thunk}.
+
+\begin{scheme}
+(with-input-from-string "123 456" (lambda () (read)))   \lev 123
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{with-output-to-string}{ thunk}{procedure}}
+\saut
+A string port is opened for output. \ide{Current-output-port}
+is set to it and \var{thunk} is called. When the \var{thunk} returns,
+the previous default output port is restored. \ide{With-output-to-string}
+returns the string containing all the text written on the string port.
+
+\begin{scheme}
+(with-output-to-string (lambda () (write 123) (write "Hello"))) \lev "123Hello"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{open-input-file}{ filename}{procedure}
+\proto{open-output-file}{ filename}{procedure}}
+\saut
+\doc
+
+\begin{note}
+if {\var filename} starts with the string {\tt "| "}, these procedure
+return a pipe port. Consequently, it is not possible to open a file
+whose name starts with those two characters.
+\end{note}
+\end{entry}
+
+\begin{entry}{%
+\proto{open-input-string}{ string}{procedure}}
+\saut
+Returns an input string port capable of delivering characters from
+\var{string}.
+\end{entry}
+
+\begin{entry}{%
+\proto{open-output-string}{}{procedure}}
+\saut
+Returns an output string port capable of receiving and collecting characters.
+\end{entry}
+
+\begin{entry}{%
+\proto{get-output-string}{ port}{procedure}}
+\saut
+Returns a string containing all the text that has been written on the
+output string \var{port}.
+\begin{scheme}
+(let ((p (open-output-string)))
+  (display "Hello, world" p)
+  (get-output-string p))         \lev "Hello, world"
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{%
+\proto{close-input-port}{ port}{procedure}
+\proto{close-output-port}{ port}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{read}{}{procedure}
+\proto{read}{ port}{procedure}
+\proto{read-char}{}{procedure}
+\proto{read-char}{ port}{procedure}
+\proto{peek-char}{}{procedure}
+\proto{peek-char}{ port}{procedure}
+\proto{char-ready?}{}{procedure}
+\proto{char-ready?}{ port}{procedure}}
+\saut
+\doc
+\end{entry}
+
+%% axe: the question of `new line or not new line?' was left open
+\begin{entry}{%
+\proto{read-line}{}{procedure}
+\proto{read-line}{ port}{procedure}}
+\saut
+Reads the next line available from the input port \var{port} and
+returns it as a string. The terminating newline is not included in the
+string. If no more characters are available, an end of file object is
+returned.  \var{Port} may be omitted, in which case it defaults to the
+value returned by \ide{current-input-port}.
+\end{entry}
+
+\begin{entry}{%
+\proto{write}{ obj}{procedure}
+\proto{write}{ obj port}{procedure}
+\proto{display}{ obj}{procedure}
+\proto{display}{ obj port}{procedure}
+\proto{newline}{}{procedure}
+\proto{newline}{ port}{procedure}
+\proto{write-char}{ char}{procedure}
+\proto{write-char}{ char port}{procedure}}
+\saut
+\doc
+\end{entry}
+
+\begin{entry}{%
+\proto{format}{ port string \vri{obj} \vrii{obj} \dotsfoo}{procedure}}
+\saut
+\label{format}
+Writes the \var{obj}s to the given \var{port}, according to the format
+string \var{string}.  \var{String} is written literally, except for
+the following sequences:
+%
+\begin{itemize}
+\item \tilda{}a or \tilda{}A is replaced by the printed representation of the
+next \var{obj}.
+\item \tilda{}s or \tilda{}S is replaced by the ``slashified'' printed
+representation of the next \var{obj}.
+\item \tilda{}\tilda{} is replaced by a single tilde.
+\item \tilda{}\% is replaced by a newline
+\end{itemize}
+
+\var{Port} can be a boolean, a port or a string port.  If \var{port}
+is {\schtrue}, output goes to the current output port; if \var{port}
+is {\schfalse}, the output is returned as a string.  Otherwise, the output is
+printed on the specified port.
+%
+\begin{scheme}
+(format {\schfalse} "A test.")       \lev "A test."
+(format {\schfalse} "A \tilda{}a." "test")  \lev "A test."
+(format {\schfalse} "A \tilda{}s." "test")  \lev "A \backwhack{}"test\backwhack{}"."
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{get-output-string}{ port}{procedure}}
+\saut
+Returns the string associated with the output string \var{port}.
+\begin{scheme}
+(let ((p (open-output-string)))
+  (display "Hello, world" p)
+  (get-output-string p))         \lev "Hello, world"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{flush}{}{procedure}
+\proto{flush}{ port}{procedure}}
+\saut
+Flushes the buffer associated with the given \var{port}. The
+\var{port} argument may be omitted, in which case it defaults to the value
+returned by \ide{current-output-port}.
+\end{entry}
+
+\begin{entry}{%
+\proto{when-port-readable}{ port handler}{procedure}
+\proto{when-port-readable}{ port}{procedure}}
+\saut
+When \var{port} is ready for reading, \var{handler}, which must be a
+thunk, is called leaving the current evaluation suspended.  When
+\var{handler} execution is terminated, normal evaluation is resumed at
+its suspension point.  If the special value \schfalse{} is provided as
+\var{handler}, the current handler for \var{port} is deleted. If a
+handler is provided, the value returned by \ide{when-port-readable} is
+undefined. Otherwise, it returns the handler currently associated to
+\var{port}.
+
+The example below shows a simple usage of the \ide{when-port-readable} procedure:
+the command \var{cmd} is run with its output redirected in a pipe associated to the 
+\var{p} Scheme port. 
+\begin{scheme}
+(define p (open-input-file "| cmd"))
+(when-port-readable p 
+            (lambda()
+              (let (( l (read-line p)))
+                (if (eof-object? l)
+                    (begin
+                      ;; delete handler
+                      (when-port-readable p \schfalse)
+                      ;; and close port
+                      (close-input-port p))
+                    (format \schtrue{} "Line read: \tilda{}A\verb+\+n" l)))))
+
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{when-port-writable}{ port handler}{procedure}
+\proto{when-port-writable}{ port}{procedure}}
+\saut
+When \var{port} is ready for writing, \var{handler}, which must be a
+thunk, is called leaving the current evaluation suspended.  When
+\var{handler} execution is terminated, normal evaluation is resumed at
+its suspension point.  If the special value \schfalse{} is provided as
+\var{handler}, the current handler for \var{port} is deleted. If a
+handler is provided, the value returned by \ide{when-port-writable} is
+undefined. Otherwise, it returns the handler currently associated to
+\var{port}.
+\end{entry}
+
+
+\begin{entry}{%
+\proto{load}{ filename}{procedure}}
+\saut
+\doc
+
+\begin{note}
+  The \var{load} primitive has been extended to allow loading of
+  object files, though this is not implemented on all systems
+  \footnote{Current version (\stkversion) allows image dumping
+            only on some platforms:SunOs~4.1.x, SunOs~5.3, NetBSD~1.0, 
+            HPUX, Irix 5.3}. See~\cite{STkExtension} for more details.
+\end{note}
+\end{entry}
+
+\begin{entry}{%
+\proto{try-load}{ filename}{procedure}}
+\saut
+Tries to load the file named \var{filename}. If \var{filename} exists and is
+readable, it is loaded, and \ide{try-load} returns {\schtrue}. 
+Otherwise, the result of the call is {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{autoload}{ filename \hyperi{symbol} \hyperii{symbol} \dotsfoo}{\exprtype}}
+\saut
+Defines \hyper{symbol}s as autoload symbols associated to file
+\var{filename}. 
+Fisrt evaluation of an autoload symbol will cause the loading of its
+associated file. \var{Filename} must provide a definition for the symbol which
+lead to its loading, otherwise an error is signaled.
+\end{entry}
+
+\begin{entry}{%
+\proto{autoload?}{ symbol}{procedure}}
+\saut
+Returns {\schtrue} if \var{symbol} is an autoload symbol; returns {\schfalse}
+otherwise.
+\end{entry}
+
+\begin{entry}{%
+\proto{require}{ string}{procedure}
+\proto{provide}{ string}{procedure}
+\proto{provided?}{ string}{procedure}}
+\saut
+\ide{Require} loads the file whose name is \var{string} if it was not
+previously ``provided''.\ide{Provide} permits to store \var{string} in
+the list of already provided files. Providing a file permits to avoid
+subsequent loads of this file. \ide{Provided?} returns {\schtrue} if
+\var{string} was already provided; it returns {\schfalse} otherwise.
+\end{entry}
+
+\begin{entry}{%
+\proto{transcript-on}{ filename}{procedure}\nopagebreak{}
+\proto{transcript-off}{}{procedure}}
+\saut
+Not implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{open-file}{ filename mode}{procedure}}
+\saut
+Opens the file whose name is \var{filename} with the specified
+\var{mode}. \var{Mode} must be ``r'' to open for reading or ``w''
+to open for writing. If the file can be opened, \var{open-file}
+returns the port associated with the given file, otherwise it returns
+{\schfalse}. Here again, the ``magic'' string {\tt "|~``} permit to
+open a pipe port.
+\end{entry}
+
+\begin{entry}{%
+\proto{close-port}{ port}{procedure}}
+\saut
+Closes \var{port}. If \var{port} denotes a string port, further
+reading or writing on this port is disallowed.
+\end{entry}
+
+\begin{entry}{%
+\proto{transcript-on}{ filename}{procedure}\nopagebreak{}
+\proto{transcript-off}{}{procedure}}
+\saut
+Not implemented.
+\end{entry}
+
+\begin{entry}{%
+\proto{port->string}{ port}{procedure}
+\proto{port->list}{ reader port}{procedure}
+\proto{port->string-list}{ port}{procedure}
+\proto{port->sexp-list}{ port}{procedure}}
+\saut
+Those procedures are utility for generally parsing input streams. Their
+specification has been stolen from {\tt scsh}. 
+
+\ide{Port->string} reads the input port until eof, then returns the
+accumulated string. 
+\begin{scheme}
+(port->string (open-input-file "\verb+|+ (echo AAA; echo BBB)"))
+    \ev "AAA\verb+\+nBBB\verb+\+n"
+(define exec 
+        (lambda (command)
+           (call-with-input-file 
+              (string-append "\verb+|+ " command) port->string)))
+
+(exec "ls -l") \ev a string which contains the result of "ls -l"
+\end{scheme}
+
+\ide{Port->list} uses the \var{reader} function to repeatedly read
+objects from \var{port}. Thes objects are accumulated in a list which 
+is returned upon eof.
+\begin{scheme}
+(port->list read-line (open-input-file "\verb+|+ (echo AAA; echo BBB)"))
+   \ev ("AAA" "BBB")
+\end{scheme}
+
+\ide{Port->string-list} reads the input port line by line until eof, 
+then returns the accumulated list of lines. This procedure is defined as
+\begin{scheme}
+(define port->string-list (lambda (p)(port->list read-line p)))
+\end{scheme}
+
+\ide{Port->sexp-list} repeatedly reads data from the port until eof, 
+then returns the accumulated list of items. This procedure is defined as
+\begin{scheme}
+(define port->sexp-list (lambda (p) (port->list read p)))
+\end{scheme}
+For instance, the following expression gives the list of users currently 
+connected on the machine running the {\stk} interpreter.
+\begin{scheme}
+(port->sexp-list (open-input-file "| users"))
+\end{scheme}
+\end{entry}
+
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: "manual"
+%%% End: 
diff --git a/Doc/Reference/Reference2.tex b/Doc/Reference/Reference2.tex
new file mode 100644
index 0000000..4d5f895
--- /dev/null
+++ b/Doc/Reference/Reference2.tex
@@ -0,0 +1,1788 @@
+%
+% STk Reference manual (Part 2)
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: ??-Nov-1993 ??:??
+% Last file update: 23-Jul-1996 08:59
+%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.11 Keywords
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Keywords}
+\label{keywords}
+
+Keywords are symbolic constants which evaluate to themselves. A keyword must
+begin with a colon.
+
+\begin{entry}{%
+\proto{keyword?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a keyword, otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{make-keyword}{ obj}{procedure}}
+\saut
+Builds a keyword from the given \var{obj}. \var{obj} must be a symbol
+or a string. A colon is automatically prepended.
+\begin{scheme}
+(make-keyword "test")    \lev :test
+(make-keyword 'test)     \lev :test
+(make-keyword ":hello")  \lev ::hello
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{keyword->string}{ keyword}{procedure}}
+\saut
+Returns the name of \var{keyword} as a string. The leading colon is
+included in the result. %%     axe: why this asymmetry ?
+\begin{scheme}
+(keyword->string :test)    \lev ":test"
+\end{scheme}
+\end{entry}
+
+%% axe: added description of list's format. (proposals for better
+%% phrasing are welcome)
+\begin{entry}{%
+\proto{get-keyword}{ keyword list}{procedure}
+\proto{get-keyword}{ keyword list default}{procedure}}
+\saut
+
+\var{List} must be a list of keywords and their respective values.
+\ide{Get-keyword} scans the \var{list} and returns the value
+associated with the given \var{keyword}.  If the \var{keyword} does
+not appear in an odd position in \var{list}, the specified
+\var{default} is returned, or an error is raised if no default was
+specified.
+\begin{scheme}
+(get-keyword :one '(:one 1 :two 2)) \lev 1
+(get-keyword :four '(:one 1 :two 2) \schfalse) \lev \schfalse
+(get-keyword :four '(:one 1 :two 2)) \lev \scherror
+\end{scheme}
+\end{entry}
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.12: Tk commands
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Tk commands}
+
+\label{tkcommand}
+As we mentioned in the introduction, {\stk} can easily communicate
+with the Tk toolkit\index{Tk toolkit}\index{toolkit}. All the commands
+defined by the Tk toolkit are visible as \ide{Tk-command}s, a basic
+type recognized by the interpreter.  \ide{Tk-command}s can be called
+like regular scheme procedures, serving as an entry point into the Tk
+library.
+%
+\vskip3mm
+\begin{note}
+  Some \ide{Tk-command}s can dynamically create other
+  \ide{Tk-command}s.  For instance, execution of the expression
+  \begin{scheme}
+(label '.lab)
+  \end{scheme} %
+  will create a new \ide{Tk-command} called ``\var{.lab}''. This new
+  object, which was created by a primitive \ide{Tk-command}, will be
+  called a \var{widget}\index{widget}.
+\end{note}
+
+\begin{note}
+When a new widget is created, it captures its creation environment. This
+permits to have bindings which access variables in the scope of the widget
+creation call (see \ref{addresses}).  %% ??
+\end{note}
+
+\begin{entry}{%
+\proto{tk-command?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a \ide{Tk-command}, otherwise
+returns {\schfalse}.
+\begin{scheme}
+(tk-command? label) \lev {\schtrue}
+(begin (label '.lab) (tk-command? .lab)) \lev {\schtrue}
+(tk-command? 12) \lev {\schfalse}
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{widget?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a widget, otherwise returns
+{\schfalse}. A widget is a \ide{Tk-command} created by a primitive
+\ide{Tk-command} such as \ide{button}, \ide{label}, \ide{menu}, etc.
+\begin{scheme}
+(widget? label) \lev {\schfalse}
+(begin (label '.lab) (widget? .lab)) \lev {\schtrue}
+(widget? 12) \lev {\schfalse}
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{widget->string}{ widget}{procedure}}
+\saut
+Returns the widget name of \var{widget} as a string.
+\begin{scheme}
+(begin (label '.lab) (widget->string .lab)) \lev ".lab"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{string->widget}{ str}{procedure}}
+\saut
+Returns the widget whose name is \var{str} if it exists; otherwise
+returns {\schfalse}.
+\begin{scheme}
+(begin (label '.lab) (string->widget ".lab")) \lev the \ide{Tk-command} named ".lab"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{widget-name}{ widget}{procedure}}
+\saut
+Returns the widget name of \var{widget} as a symbol. 
+\begin{scheme}
+(begin (label '.lab) (widget->name .lab)) \lev .lab
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{set-widget-data!}{ widget expr}{procedure}}
+\saut
+%
+\ide{Set-widget-data!} associates arbitrary data with a \var{widget}.
+The system makes no assumptions about the type of {\tt expr}; the data
+is for programmer convenience only. As shown below, it could be used
+as a kind of property list for widgets.
+\end{entry}
+
+\begin{entry}{
+\proto{get-widget-data}{ widget}{procedure}}
+\saut
+Returns the data previously associated with \var{widget} if it exists;
+otherwise returns {\schfalse}.
+\begin{scheme}
+(begin 
+   (set-widget-data! .w '(:mapped {\schtrue} :geometry "10x50"))
+   (get-keyword :mapped (get-widget-data .w))) \lev {\schtrue}
+\end{scheme}
+\end{entry}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.13:  Environments
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Environments}
+
+\label{environment}
+Environments are first class objects in STk. The following primitives
+are defined on environments.
+
+\begin{entry}{%
+\proto{environment?}{ obj} {procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is an environment, otherwise returns
+{\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{the-environment} {} {procedure}}
+\saut
+Returns the current environment.
+\end{entry}
+
+\begin{entry}{%
+\proto{global-environment} {} {procedure}}
+\saut
+Returns the ``global'' environment (i.e. the toplevel environment).
+\mainindex{top level environment}
+\end{entry}
+
+\begin{entry}{%
+\proto{parent-environment} { env} {procedure}}
+\saut
+Returns the parent environment of \var{env}. If env is the ``global''
+environment (i.e. the toplevel environment), \ide{parent-environment}
+returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{environment->list}{ environment} {procedure}}
+\saut
+Returns a list of {\em a-lists}, representing the bindings in
+\var{environment}. Each {\em a-list} describes one level of bindings,
+with the innermost level coming first.
+\begin{scheme}
+(define E (let ((a 1) (b 2))
+            (let ((c 3))
+              (the-environment))))
+
+(car (environment->list E)) \ev ((c . 3))
+
+(cadr (environment->list E)) \ev ((b . 2) (a . 1))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{procedure-environment}{ procedure} {procedure}}
+\saut
+Returns the environment associated with \var{procedure}.
+\ide{Procedure-environment} returns {\schfalse} if \var{procedure}
+is not a closure.
+\begin{scheme}
+(define foo (let ((a 1)) (lambda () a)))
+(car (environment->list 
+         (procedure-environment foo))) 
+                      \ev ((a . 1))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{symbol-bound?}{ symbol}{procedure}
+\proto{symbol-bound?}{ symbol environment}{procedure}}
+\saut
+Returns {\schtrue} if \var{symbol} has a value in the given
+\var{environment}, otherwise returns {\schfalse}. \var{Environment}
+may be omitted, in which case it defaults to the global environment.
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.14: Macros
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Macros}
+\label{macros}
+
+{\stk} provides low level macros. 
+
+\begin{note}
+{\stk} macros are not the sort of macros defined in the appendix of {\rrrr},
+but rather the macros one can find in most of Lisp dialects.
+\end{note}
+
+\begin{entry}{%
+\proto{macro}{ \hyper{formals} \hyper{body}}{\exprtype}}
+\saut
+{\tt Macro} permits to create a macro. When a macro is called, the whole form
+(i.e. the macro itself and its parameters) is passed to the macro body.
+Binding association is done in the environment of the call. The result of the
+binding association is called the {\em macro-expansion}\index{macro-expansion}.
+The result of the macro call is the result of the evaluation of the
+macro expansion in the call environment.
+%% FIXME: This needs rephrasing...
+
+\begin{scheme}
+(define foo (macro f `(quote ,f)))
+(foo 1 2 3) \ev (foo 1 2 3)
+
+(define 1+ (macro form (list + (cadr form) 1)))
+(let ((x 1)) (1+ x)) \ev 2
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{macro?}{ obj}{procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a macro, otherwise returns {\schfalse}.
+\end{entry}
+
+\begin{entry}{%
+\proto{macro-expand-1}{ form}{procedure}
+\proto{macro-expand}{ form}{procedure}}
+\saut
+\ide{Macro-expand-1} returns the macro expansion of \var{form} if
+it is a macro call, otherwise \var{form} is returned unchanged. 
+\ide{Macro-expand} is similar to \ide{macro-expand-1}, but repeately 
+expand \var{form} until it is no longer a macro call.
+\begin{scheme}
+(define 1- (macro form `(-  ,(cadr form) 1))) 
+(define -- (macro form `(1- ,(cadr form)))) 
+(macro-expand-1 '(1- 10)) \ev (- 10 1) 
+(macro-expand   '(1- 10)) \ev (- 10 1) 
+(macro-expand-1 '(-- 10)) \ev (1- 10)
+(macro-expand   '(-- 10)) \ev (- 10 1)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{macro-expand}{ form}{procedure}}
+\saut
+Returns the macro expansion of \var{form} if it is a macro call, otherwise
+\var{form} is returned unchanged. Macro expansion continue until, the form
+obtained is 
+\begin{scheme}
+(define 1- (macro form (list '- (cadr form) 1)))
+(macro-expand '(1- 10)) \ev (- 10 1)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{macro-body}{ macro}{procedure}}
+\saut
+Returns the body of \var{macro}
+\begin{scheme}
+(macro-body 1+)
+                \ev (macro form (list + (cadr form) 1))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{define-macro}{ (\hyper{name} \hyper{formals}) \hyper{body}}{macro}}
+\saut
+\ide{Define-macro} is a macro which permits to define a macro more easily than
+with the \ide{macro} form. It is similar to the {\tt defmacro} of Common
+Lisp~\cite{CLtL2}.
+\begin{scheme}
+(define-macro (incr x) `(set! ,x (+ ,x 1)))
+(let ((a 1)) (incr a) a) \ev 2
+
+(define-macro (when test . body)
+  `(if ,test ,@(if (null? (cdr body)) body `((begin ,@body)))))
+(macro-expand '(when a b)) \ev (if a b)
+(macro-expand '(when a b c d)) 
+                           \ev (if a (begin b c d))
+\end{scheme}
+
+\begin{note}
+Calls to macros defined by \ide{define-macro} are physically replaced by their
+macro-expansion if the variable \ide{*debug*} is {\schfalse} (i.e. their body
+is ``in-lined'' in the macro call). To avoid this
+feature, and to ease debugging, you have to set this variable to {\schtrue}.
+(See also \ref{uncode}).
+\end{note}
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.15: System procedures
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{System procedures}
+
+This section lists a set of procedures which permits to access some system
+internals.
+
+
+\begin{entry}{%
+\proto{expand-file-name}{ string} {procedure}}
+\saut
+\ide{Expand-file-name} expands the filename given in \var{string} to
+an absolute path. This function understands the {\em tilde
+  convention}\index{tilde expansion} for filenames.
+
+\begin{scheme}
+;; Current directory is /users/eg/STk
+(expand-file-name "..") \lev "/users/eg"
+(expand-file-name "{\tilda}root/bin) \lev "/bin"
+(expand-file-name "{\tilda}/STk)" \lev "/users/eg/STk"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{canonical-path}{ path} {procedure}}
+\saut
+Expands all symbolic links in \var{path} and returns its canonicalized
+absolute pathname. The resulting path do not have symbolic links. If
+\var{path} doesn't designate a valid pathname, \var{canonical-path} returns 
+\schfalse.
+\end{entry}
+
+
+\begin{entry}{%
+\proto{dirname}{ string} {procedure}}
+\saut
+Returns a string containing all but the last component of the path name given in 
+\var{string}.
+\begin{scheme}
+(dirname "/a/b/c.stk") \lev "/a/b"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{basename}{ string} {procedure}}
+\saut
+Returns a string containing the last component of the path name given in 
+\var{string}.
+\begin{scheme}
+(basname "/a/b/c.stk") \lev "c.stk"
+\end{scheme}
+\end{entry}
+ 
+\begin{entry}{%
+\proto{decompose-file-name}{ string} {procedure}}
+\saut
+Returns an ``exploded'' list of the path name components given in
+\var{string}.
+The first element in the list denotes if the given \var{string} is an
+absolute path or a relative one, being {\tt "/"} or {\tt "."} respectively.
+Each component of this list is a string.
+\begin{scheme}
+(decompose-file-name "/a/b/c.stk") \lev ("/" "a" "b" "c.stk")
+(decompose-file-name "a/b/c.stk")  \lev ("." "a" "b" "c.stk")
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{file-is-directory?}{ string} {procedure}
+\proto{file-is-regular?}{ string} {procedure}
+\proto{file-is-readable?}{ string} {procedure}
+\proto{file-is-writable?}{ string} {procedure}
+\proto{file-is-executable?}{ string} {procedure}
+\proto{file-exists?}{ string} {procedure}}
+\saut
+Returns {\schtrue} if the predicate is true for the path name given in
+\var{string}; returns {\schfalse} otherwise (or if \var{string} denotes a file
+which does not exist).
+\end{entry}
+
+\begin{entry}{%
+\proto{glob}{ \vri{pattern} \vrii{pattern} \dotsfoo} {procedure}}
+\saut
+
+%%%%%%%%%%%%%%   Irgendwann h"alt Gott seine Arme auf:
+%%%%%%%%%%%%%%       BIS HIERHIN UND NICHT WEITER!
+
+The code for \ide{glob} is taken from the Tcl library. It performs
+file name ``globbing'' in a fashion similar to the csh shell.
+\ide{Glob} returns a list of the filenames that match at least one of
+the {\em pattern} arguments.  The \var{pattern} arguments may contain
+the following special characters:
+
+\begin{itemize}
+\item ? Matches any single character.
+\item \etoile~Matches any sequence of zero or more characters.
+\item {\leftbracket}chars\rightbracket~Matches any single character in chars. 
+      If chars contains a sequence of the form {\tt a-b} then any character between
+       {\tt a} and {\tt b} (inclusive) will match.
+\item  \verb+\+x  Matches the character {\tt x}.
+\item \{a,b,...\} Matches any of the strings {\tt a}, {\tt b}, etc.
+\end{itemize}
+
+As with csh, a ``.'' at the beginning of a file's name or just after a ``/''
+must be matched explicitly or with a \{\} construct.  In addition, all ``/''
+characters must be matched explicitly.
+
+If the first character in a pattern is ``{\tilda}'' then it refers to
+the home directory of the user whose name follows the ``{\tilda}''.
+If the ``{\tilda}'' is followed immediately by ``/'' then the value of
+the environment variable HOME is used.
+
+\ide{Glob} differs from csh globbing in two ways.  First, it does not
+sort its result list (use the \ide{sort} procedure if you want the list sorted).
+Second, glob only returns the names of files that actually exist; in csh no
+check for existence is made unless a pattern contains a ?, \etoile, or  
+\leftbracket\rightbracket
+construct.
+\end{entry}
+
+\begin{entry}{%
+\proto{getcwd}{ string} {procedure}}
+\saut
+\ide{Getcwd} returns a string containing the current working directory.
+\end{entry}
+
+\begin{entry}{%
+\proto{chdir}{ string} {procedure}}
+\saut
+\ide{Chdir} changes the current directory to the directory given in
+\var{string}.
+\end{entry}
+
+\begin{entry}{%
+\proto{getpid}{ string} {procedure}}
+\saut
+Returns the system process number of the current {\stk} interpreter (i.e. the
+Unix {\em pid}). Result is an integer.
+\end{entry}
+
+\begin{entry}{%
+\proto{system}{ string} {procedure}
+\proto{!}{ string} {procedure}}
+\saut
+Sends the given \var{string} to the system shell \var{/bin/sh}. The result of
+\ide{system} is the integer status code the shell returns.
+\end{entry}
+
+\begin{entry}{%
+\proto{exec}{ string} {procedure}}
+\saut
+Executes the command contained in \var{string} and redirects its output in
+a string. This string constitutes the result of \ide{exec}.
+\end{entry}
+
+\begin{entry}{%
+\proto{getenv}{ string} {procedure}}
+\saut
+Looks for the environment variable named \var{string} and returns its
+value as a string, if it exists. Otherwise, \ide{getenv} returns
+{\schfalse}.
+\begin{scheme}
+(getenv "SHELL")   \lev "/bin/zsh"
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{setenv!}{ var value} {procedure}}
+\saut
+Sets the environment variable \var{var} to \var{value}.  \var{Var} and
+\var{value} must be strings. The result of {\tt setenv!} is undefined.
+\begin{scheme}
+(getenv "SHELL")   \lev "/bin/zsh"
+\end{scheme}
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.16: Addresses
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Addresses}
+
+\label{addresses}
+An {\em address} is a Scheme object which contains a reference to
+another Scheme object. This type can be viewed as a kind of pointer to
+a Scheme object.  Addresses, even though they are very dangerous, have
+been introduced in {\stk} so that objects that have no ``readable''
+external representation can still be transformed into strings and back
+without loss of information. Adresses were useful with pre-3.0 version
+of {\stk}; their usage is now {\bf stongly discouraged}, unless you know what you
+do. In particular, an address can designate an object at a time and
+another one later (i.e. after the garbage collector has marked the zone
+as free).
+
+Addresses are printed with a special syntax: {\tt {\sharpsign}pNNN},
+where {\tt NNN} is an hexadecimal value. Reading this value back
+yields the original object whose location is {\tt NNN}.
+
+\begin{entry}{%
+\proto{address-of}{ obj} {procedure}}
+\saut
+Returns the address of \ide{obj}.
+\end{entry}
+
+\begin{entry}{%
+\proto{address?}{ obj} {procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is an address; returns {\schfalse} otherwise.
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.17: Signals
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{Signals}
+
+\label{signals}
+{\stk} allows the use to associate handlers to signals. Signal
+handlers for a given signal can even be chained in a list. When a
+signal occurs, the first signal of the list is executed. Unless this
+signal yields the symbol \ide{break} the next signal of the list is
+evaluated. When a signal handler is called, the integer value of this
+signal is passed to it as (the only) parameter.
+
+The following POXIX.1\mainindex{POSIX.1} constants for signal numbers
+are defined: \ide{SIGABRT}, \ide{SIGALRM}, \ide{SIGFPE}, \ide{SIGHUP},
+\ide{SIGILL}, \ide{SIGINT}, \ide{SIGKILL}, \ide{SIGPIPE}, {\tt
+  SIGQUIT}, \ide{SIGSEGV}, \ide{SIGTERM}, \ide{SIGUSR1}, {\tt
+  SIGUSR2}, \ide{SIGCHLD}, \ide{SIGCONT}, \ide{SIGSTOP}, {\tt
+  SIGTSTP}, \ide{SIGTTIN}, \ide{SIGTTOU}.  Moreover, the following
+constants, which are often available on most systems are also
+defined\footnote{Some of these constants may be undefined if they are
+  not supported by your system}: \ide{SIGTRAP}, \ide{SIGIOT}, {\tt
+  SIGEMT}, \ide{SIGBUS}, \ide{SIGSYS}, \ide{SIGURG}, \ide{SIGCLD},
+\ide{SIGIO}, \ide{SIGPOLL}, \ide{SIGXCPU}, \ide{SIGXFSZ}, {\tt
+  SIGVTALRM}, \ide{SIGPROF}, \ide{SIGWINCH}, \ide{SIGLOST}.
+
+See your Unix documentation for the exact meaning of each constant or
+\cite{Posix.1-90}. Use symbolic constants rather than their numeric
+value if you plan to port your program on another system.
+
+\label{GCSTART}
+A special signal, managed by the interpreter, is also defined: {\tt
+  SIGHADGC}. This signal is raised when the garbage collector phase
+terminates.
+
+When the interpreter starts running, all signals are sets to their
+default value, excepted \ide{SIGINT} (generally bound to {\ide
+  Control-C}) which is handled specially.
+
+\begin{entry}{%
+\proto{set-signal-handler!}{ sig handler} {procedure}}
+\saut
+Replace the handler for signal \var{sig} with \var{handler}. 
+Handler can be 
+\begin{itemize}
+\item [-] {\schtrue} to reset the signal handler for \var{sig} to the
+  default system handler.
+\item [-] {\schfalse} to completly ignore  \var{sig} (Note that
+  Posix.1 states that \ide{SIGKILL} and \ide{SIGSTOP} cannot be caught
+  or ignored).
+\item [-] a one parameter procedure.
+\end{itemize}
+This procedure returns the new handler, or (length 1) handler list,
+associated to \var{sig}.
+
+\begin{scheme}
+(let* ((x       \schfalse)
+       (handler (lambda (i) (set! x \schtrue))))
+  (set-signal-handler! |SIGHADGC| handler)
+  (gc)
+  x)  \lev \schtrue
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+    \proto{add-signal-handler!}{ sig handler} {procedure}} 
+\saut 
+Adds \var{handler} to the list of handlers for signal \var{sig}. If
+the old signal handler is a boolean, this procedure is equivalent to
+\ide{set-signal-handler!}. Otherwise, the new handler is added in
+front of the previous list of handler. This procedure returns the new
+handler, or handler list, associated to \var{sig}.
+
+\begin{scheme}
+(let* ((x        '())
+       (handler1 (lambda (i) (set! x (cons 1 x))))
+       (handler2 (lambda (i) (set! x (cons 2 x)))))
+  (add-signal-handler! |SIGHADGC| handler1)
+  (add-signal-handler! |SIGHADGC| handler2)
+  (gc)
+  x)  \lev (1 2)
+\end{scheme}
+\saut
+\begin{scheme}
+(let* ((x        '())
+       (handler1 (lambda (i) (set! x (cons 1 x))))
+       (handler2 (lambda (i) (set! x (cons 2 x)) 'break)))
+  (add-signal-handler! |SIGHADGC| handler1)
+  (add-signal-handler! |SIGHADGC| handler2)
+  (gc)
+  x)  \lev (2)
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{%
+\proto{get-signal-handlers}{} {procedure}
+\proto{get-signal-handlers}{ sig} {procedure}}
+\saut 
+Returns the handlers, or the list of handlers, associated to the signal
+\var{sig}.  If \var{sig} is omitted, \ide{get-signal-handlers} returns
+a vector of all the signal handlers currently in effect. 
+\end{entry}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.18: Hash tables
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Hash tables}
+
+\label{hashtables}
+A hash table consists of zero or more entries, each consisting of a key and a
+value. Given the key for an entry, the hashing function can very quickly
+locate the entry, and hence the corresponding value. There may be at most one
+entry in a hash table with a particular key, but many entries may have the
+same value.
+
+{\stk} hash tables grow gracefully as the number of entries increases, so that
+there are always less than three entries per hash bucket, on average.  This
+allows for fast lookups regardless of the number of entries in a table.
+
+\vskip3mm
+\begin{note}
+Hash table manipulation procedures are built upon the efficient Tcl hash
+table package.
+\end{note}
+
+\begin{entry}{
+\proto{make-hash-table}{}{ procedure}
+\proto{make-hash-table}{ comparison}{ procedure}
+\proto{make-hash-table}{ comparison hash}{ procedure}}
+\saut
+\ide{Make-hash-table} admits three different forms. 
+The most general form admit two arguments. The first argument is a
+comparison function  which determine how keys are compared; the second
+argument is a function which computes a hash code for an object and
+returns the hash code as a non negative integer. Objets with the same
+hash code are stored in an A-list registered in the bucket
+corresponding to the key.
+
+If omitted, 
+\begin{itemize}
+\item {\tt hash} defaults to the \ide{hash-table-hash}
+procedure. 
+\item {\tt comparison } defaults to the \ide{eq?} procedure
+\end{itemize}
+
+Consequently, 
+\begin{scheme}
+(define h (make-hash-table))
+\end{scheme}
+is equivalent to
+\begin{scheme}
+(define h (make-hash-table eq? hash-table-hash))
+\end{scheme}
+Another interesting example is 
+\begin{scheme}
+(define h (make-hash-table string-ci=? string-length))
+\end{scheme}
+which defines a new hash table which uses {\tt string-ci=?} for
+comparing keys. Here, we use the string-length as a (very simple) 
+hashing function. Of course, a function which gives a key depending 
+of the characters composing the string gives a better repartition
+and should probably enhance performances. For instance, the following
+call to {\tt make-hash-table} should return a more efficient, even if
+not perfect, hash table:
+\begin{scheme}
+(make-hash-table 
+    string-ci=? 
+    (lambda (s)
+      (let ((len (string-length s)))
+        (do ((h 0)  (i 0 (+ i 1)))
+            ((= i len) h)
+          (set! h (+ h (char->integer 
+                         (char-downcase (string-ref s i)))))))))
+\end{scheme}
+
+\begin{note}
+Hash tables with a comparison function equal to \ide{eq?} or {\tt
+string=?} are handled in an more efficient way (in fact, they
+don't use the \ide{hash-table-hash} fucntion to speed up hash table
+retrievals).
+\end{note}
+\end{entry}
+ 
+\begin{entry}{
+\proto{hash-table?}{ obj}{ procedure}}
+\saut
+Returns {\schtrue} if \var{obj} is a hash table, returns {\schfalse} otherwise.
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-hash}{ obj}{ procedure}}
+\saut
+\ide{hash-table-hash} computes a hash code for an object and returns
+the hash code as a non negative integer. A property of {\tt
+hash-table-hash} is that 
+\begin{quote}
+{\tt (equal? x y)} implies {\tt (equal? (hash-table-hash x) (hash-table-hash y)}
+\end{quote}
+as the the Common Lisp {\tt sxhash} function from which this procedure is
+modeled.
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-put!}{ hash key value}{ procedure}}
+\saut
+\ide{Hash-table-put!} enters an association between \var{key} and \var{value} in the
+\var{hash} table. The value returned by \ide{hash-table-put!} is undefined.
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-get}{ hash key}{ procedure}
+\proto{hash-table-get}{ hash key default}{ procedure}}
+\saut
+\ide{Hash-table-get} returns the value associated with \var{key} in
+the given \var{hash} table. If no value has been associated with \var{key} in
+\var{hash}, the specified \var{default} is returned if given; otherwise an
+error is raised.
+\begin{scheme}
+(define h1 (make-hash-table))
+(hash-table-put! h1 'foo (list 1 2 3))
+(hash-table-get  h1 'foo) \lev (1 2 3)
+(hash-table-get  h1 'bar 'absent) \lev absent
+(hash-table-get  h1 'bar) \lev \scherror
+(hash-table-put! h1 '(a b c) 'present)
+(hash-table-get  h1 '(a b c) 'absent) \lev 'absent
+
+(define h2 (make-hash-table equal?))
+(hash-table-put! h2 '(a b c) 'present)
+(hash-table-get  h2 '(a b c)) \lev 'present
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{
+\proto{hash-table-remove!}{ hash key}{ procedure}}
+\saut 
+\var{hash} must be a hash table containing an entry for \var{key}.
+\ide{Hash-table-remove!} deletes the entry for  \var{key} in
+\var{hash}, if it exists. Result of {\tt Hash-table-remove!} is unspecified. 
+
+\begin{scheme}
+(define h (make-hash-table))
+(hash-table-put! h 'foo (list 1 2 3))
+(hash-table-get h 'foo) \lev (1 2 3)
+(hash-table-remove! h 'foo) 
+(hash-table-get h 'foo 'absent) \lev absent
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-for-each}{ hash proc}{procedure}}
+\saut %
+\var{Proc} must be a procedure taking two arguments.
+\ide{Hash-table-for-each} calls \var{proc} on each key/value
+association in \var{hash}, with the key as the first argument and the
+value as the second.  The value returned by \ide{hash-table-for-each}
+is undefined. 
+\vskip3mm
+\begin{note}
+The order of application of \var{proc} is unspecified.
+\end{note}
+\begin{scheme}
+(let ((h   (make-hash-table))
+      (sum 0))
+  (hash-table-put! h 'foo 2)
+  (hash-table-put! h 'bar 3)
+  (hash-table-for-each h (lambda (key value)
+                           (set! sum (+ sum value))))
+  sum) \lev 5
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-map}{ hash proc}{procedure}}
+\saut %
+\var{Proc} must be a procedure taking two arguments.
+\ide{Hash-table-map} calls \var{proc} on each entry in \var{hash},
+with the entry's key as the first argument and the entry's value as
+the second.  The result of \ide{hash-table-map} is a list of the
+values returned by \var{proc}, in unspecified order. %
+\vskip3mm
+\begin{note}
+The order of application of \var{proc} is unspecified.
+\end{note}
+\begin{scheme}
+(let ((h (make-hash-table)))
+  (dotimes (i 5) 
+    (hash-table-put! h i (number->string i)))
+  (hash-table-map h (lambda (key value)
+                       (cons key value)))) \lev ((0 . "0") (3 . "3") (2 . "2") (1 . "1") (4 . "4"))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table->list}{ hash}{ procedure}}
+\saut %
+\ide{hash-table->list} returns an ``association list'' built from the
+entries in \var{hash}.  Each entry in \var{hash} will be represented
+as a pair whose \var{car} is the entry's key and whose \var{cdr} is
+its value.
+\begin{note}
+The order of pairs in the resulting list is unspecified.
+\end{note}
+\begin{scheme}
+(let ((h (make-hash-table)))
+  (dotimes (i 5) 
+    (hash-table-put! h i (number->string i)))
+  (hash-table->list h)) \lev ((0 . "0") (3 . "3") (2 . "2") (1 . "1") (4 . "4"))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{hash-table-stats}{ hash}{procedure}}
+\saut %
+\ide{Hash-table-stats} returns a string with overall information about
+\var{hash}, such as the number of entries it contains, the number of
+buckets in its hash array, and the utilization of the buckets.
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.19: Regular Expressions
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+\subsection{Regular expressions}
+
+\label{regexp-type}
+Regular expressions\mainindex{regular expression} are first class objects in
+{\stk}. A regular expression is created by the \ide{string->regexp}
+procedure. Matching a regular expression against a string is simply done by
+applying a previously created regular expression to this string. 
+Regular expressions are implemented using code in the Henry Spencer's
+package, and much of the description of regular expressions below is copied
+from his manual.
+
+\begin{entry}{
+\proto{string->regexp}{ string}{procedure}}
+\saut
+\ide{String->regexp} compiles the \var{string} and returns the
+corresponding regular expression.
+
+\smallskip
+Matching a regular expression against a string is done by applying the result
+of \ide{string->regexp} to this string. This application yields a list of
+integer couples if a matching occurs; it returns {\schfalse} otherwise.  Those
+integers correspond to indexes in the string which match the regular
+expression.
+
+A regular expression is zero or more {\em branches}, separated by ``{\tt |}''.  It
+matches anything that matches one of the branches.
+
+A branch is zero or more {\em pieces}, concatenated.  It matches a match for
+the first, followed by a match for the second, etc.
+
+A piece is an {\em atom} possibly followed by ``{\tt *}'', ``{\tt +}'', or
+``{\tt ?}''. An atom followed by ``{\tt *}'' matches a sequence of 0 or more
+matches of the atom.  An atom followed by ``{\tt +}'' matches a sequence of 1
+or more matches of the atom.  An atom followed by ``{\tt ?}'' matches a match
+of the atom, or the null string.
+
+An atom is a regular expression in parentheses (matching a match for the
+regular expression), a {\em range} (see below), ``{\tt .}''  (matching any
+single character), ``{\tt \verb+^+}'' (matching the null string at the
+beginning of the input string), ``{\tt \verb|$|}'' % $
+(matching the null string
+at the end of the input string), a ``{\tt \verb+\+}'' followed by a single
+character (matching that character), or a single character with no other
+significance (matching that character).
+
+A {\em range} is a sequence of characters enclosed in ``{\tt []}''.  It
+normally matches any single character from the sequence.  If the sequence
+begins with ``{\tt \verb+^+}'', it matches any single character {\em not} from
+the rest of the sequence.  If two characters in the sequence are separated by
+``{\tt -}'', this is shorthand for the full list of ASCII characters between
+them (e.g. ``{\tt [0-9]}'' matches any decimal digit).  To include a literal
+``{\tt ]}'' in the sequence, make it the first character (following a possible
+``{\tt \verb+^+}'').  To include a literal ``{\tt -}'', make it the first or
+last character.
+
+In general there may be more than one way to match a regular expression to an
+input string. Considering only the rules given so far could lead to
+ambiguities. To resolve those ambiguities, the generated regular expression
+chooses among alternatives using the rule ``first then longest''.  In other
+words, it considers the possible matches in order working from left to right
+across the input string and the pattern, and it attempts to match longer
+pieces of the input string before shorter ones. More specifically, the
+following rules apply in decreasing order of priority:
+\begin{enumerate}
+\item If a regular expression could match two different parts of an
+input string then it will match the one that begins earliest.
+
+\item If a regular expression contains ``{\tt |}'' operators then the leftmost
+matching sub-expression is chosen.
+
+\item In ``{\tt *}'', ``{\tt +}'', and ``{\tt ?}'' constructs, longer matches are  chosen
+in preference to shorter ones.
+
+\item In sequences of expression components the components are considered 
+from left to right.
+\end{enumerate}
+
+\begin{scheme}
+(define r1 (string->regexp "abc"))
+(r1 "xyz") \ev \schfalse
+(r1 "12abc345") \ev ((2 5))
+(define r2 (string->regexp "[a-z]+"))
+(r2 "12abc345") \ev ((2 5))
+\end{scheme}
+
+If the regular expression  contains parenthesis, and if there is a match, the
+result returned by the application will contain several couples of integers.
+First couple will be the indexes of the first longest substring which match
+the regular expression. Subsequent couples, will be the indexes of all the
+sub-parts of this regular expression, in sequence.
+
+\begin{scheme}
+(define r3 (string->regexp "(a*)(b*)c"))
+(r3 "abc") \ev ((0 3) (0 1) (1 2))
+(r3 "c")   \ev ((0 1) (0 0) (0 0))
+((string->regexp "([a-z]+),([a-z]+)") "XXabcd,eXX")
+           \ev ((2 8) (2 6) (7 8))
+
+\end{scheme}
+\end{entry}
+
+
+
+\begin{entry}{
+\proto{regexp?}{ obj}{procedure}}
+\saut
+Returns \schtrue{} if \var{obj} is a regular expression created by
+\ide{string->regexp}; otherwise returns {\schfalse}.
+
+\begin{scheme}
+(regexp? (string->regexp "[a-zA-Z][a-zA-Z0-9]*")) 
+                    \ev  \schtrue
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{regexp-replace}{ pattern string substitution}{procedure}
+\proto{regexp-replace-all}{ pattern string substitution}{procedure}}
+\saut
+\ide{Regexp-replace}  matches the regular expression \var{pattern} against
+\var{string}. If there is a match, the  portion of \var{string} which match 
+\var{pattern} is replaced by the \var{substitution} string. If there is no match, 
+\ide{regexp-replace} returns \var{string} unmodified. Note that the given 
+\var{pattern} could be here either a string or a regular expression.
+\smallskip
+If \var{pattern} contains strings of the form ``{\tt \verb+\+n}'',
+where {\em n} is a digit between 1 and 9, then it is replaced in the
+substitution with the portion of string that matched the {\em n}-th
+parenthesized subexpression of {\em pattern}. If {\em n} is equal to
+0, then it is replaced in \var{substitution} with the portion of
+\var{string} that matched \var{pattern}.
+\begin{scheme}
+(regexp-replace "a*b" "aaabbcccc" "X")
+                   \ev "Xbcccc"
+(regexp-replace (string->regexp "a*b") "aaabbcccc" "X")
+                   \ev "Xbcccc"
+(regexp-replace "(a*)b" "aaabbcccc" "X\verb+\\+1Y")
+                   \ev "XaaaYbcccc"
+(regexp-replace "(a*)b" "aaabbcccc" "X\verb+\\+0Y")
+                   \ev "XaaabYbcccc"
+(regexp-replace "([a-z]*) ([a-z]*)" "john brown" "\verb+\\2 \\1+")
+                   \ev "brown john"
+\end{scheme}
+
+\ide{Regexp-replace} replaces the first occurence of \var{pattern} in
+\var{string}. To replace {\em all} the occurences of the {\em pattern}, use
+\ide{regexp-replace-all}
+
+\begin{scheme}
+(regexp-replace "a*b" "aaabbcccc" "X")
+                   \ev "Xbcccc"
+(regexp-replace-all "a*b" "aaabbcccc" "X")
+                   \ev "XXcccc"
+\end{scheme}
+\end{entry}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.20:  Processes
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Processes}
+
+\label{process-type}
+{\stk} provides access to Unix processes as first class objects. Basically,
+a process contains four informations: the standard Unix process
+identification (aka PID\mainindex{PID}) and the three standard files
+of the process.
+
+\begin{entry}{
+\proto{run-process}{ command \vri{p} \vrii{p} \vriii{p} \dotsfoo}{procedure}}
+\saut
+\ide{run-process} creates a new process and run the executable
+specified in \var{command}. The \var{p} correspond to the command line
+arguments. The following values of \var{p} have a special meaning:
+\begin{itemize}
+\item {\tt :input} permits to redirect the standard input file of the
+process. Redirection can come from a file or from a pipe. To redirect
+the standard input from a file, the name of this file must be
+specified after {\tt :input}. Use the special keyword {\tt :pipe} to
+redirect the standard input from a pipe. 
+
+\item {\tt :output} permits to redirect the standard output file of the
+process. Redirection can go to a file or to a pipe. To redirect
+the standard output to a file, the name of this file must be
+specified after {\tt :output}. Use the special keyword {\tt :pipe} to
+redirect the standard output to a pipe.
+
+\item {\tt :error} permits to redirect the standard error file of the
+process. Redirection can go to a file or to a pipe. To redirect
+the standard error to a file, the name of this file must be
+specified after {\tt :error}. Use the special keyword {\tt :pipe} to
+redirect the standard error to a pipe.
+
+\item {\tt :wait} must be followed by a boolean value. This value
+specifies if the process must be run asynchronously or not. By
+default, the process is run asynchronously (i.e. {\tt :wait} is
+\schfalse).
+
+\item {\tt :host} must be followed by a string. This string represents
+the name of the machine on which the command must be executed. This
+option uses the external command {\tt rsh}. The shell variable {\tt
+PATH} must be correctly set for accessing it without specifying its
+abolute path.
+
+\end{itemize}
+The following example launches a process which execute the
+Unix command {\tt ls} with the arguments {\tt -l} and {\tt
+/bin}. The lines printed by this command are stored in the file {\tt /tmp/X}
+\begin{scheme}
+(run-process "ls" "-l" "/bin" :output "/tmp/X" :wait \schfalse)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{process?}{ process}{procedure}}
+\saut
+Returns \schtrue{} if \var{process} is a process, otherwise returns
+{\schfalse}.
+\end{entry}
+
+\begin{entry}{
+\proto{process-alive?}{ process}{procedure}}
+\saut
+Returns \schtrue{} if \var{process} if the process is currently running, 
+otherwise returns {\schfalse}.
+\end{entry}
+
+
+\begin{entry}{
+\proto{process-pid}{ process}{procedure}}
+\saut
+Returns an integer value which represents the Unix identification 
+(PID\mainindex{PID}) of \var{process}.
+\end{entry}
+
+\begin{entry}{
+\proto{process-input}{ process}{procedure}
+\proto{process-output}{ process}{procedure}
+\proto{process-error}{ process}{procedure}}
+\saut
+Returns the file port associated to the standard input, output or error
+of \var{process}, if it is redirected in (or to) a pipe; otherwise
+returns \schfalse. Note that the returned port is opened for reading
+when calling {\tt process-output} or {\tt process-error}; it is opened
+for writing when calling {\tt process-input}.
+\end{entry}
+
+\begin{entry}{
+\proto{process-wait}{ process}{procedure}}
+\saut
+\ide{Process-wait} stops the current process until
+\var{process} completion. \ide{Process-wait} returns {\schfalse}
+when \var{process} is already terminated; it returns {\schtrue} otherwise.
+\end{entry}
+
+\begin{entry}{
+\proto{process-exit-status}{ process}{procedure}}
+\saut
+\ide{Process-exit-status} returns the exit status of \var{process} if
+it has finished its execution; returns {\schfalse} otherwise.
+\end{entry}
+
+\begin{entry}{
+\proto{process-send-signal}{ process n}{procedure}}
+\saut
+Send the signal whose integer value is \var{n} to \var{process}. Value
+of \var{n} is system dependant. Use the defined signal constants to
+make your program indpendant of the running system (see
+\ref{signals}).  The result of \var{process-send-signal} is undefined.
+\end{entry}
+
+\begin{entry}{
+\proto{process-kill}{ process}{procedure}}
+\saut
+\ide{Process-kill} brutally kills \var{process}. The result of
+\ide{process-kill}
+is undefined. This procedure is equivalent to
+\begin{scheme}
+(process-send-signal process |SIGTERM|)
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{
+\proto{process-stop}{ process}{procedure}
+\proto{process-continue}{ process}{procedure}}
+\saut
+Those procedures are only available on systems which support job
+control. \var{Process-stop} stops the execution of
+\var{process} and  \var{process-continue} resumes its execution. They
+are equivalent to 
+\begin{scheme}
+(process-send-signal process |SIGSTOP|)
+(process-send-signal process |SIGCONT|)
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{
+\proto{process-list}{}{procedure}}
+\saut
+\ide{process-list} returns the  list of processes which are currently
+running (i.e. alive).
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.21: Sockets
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{Sockets}
+
+\label{socket-type}
+{\stk} defines sockets, on systems which support them, as first class
+objects. Sockets permits processes to communicate even if they are on
+different machines. Sockets are useful for creating client-server
+applications.
+
+\begin{entry}{
+\proto{make-client-socket}{ hostname port-number}{procedure}}
+\saut
+\ide{make-client-socket} returns a new socket object. This socket
+establishes a link between the running application listening on port
+\var{port-number} of \var{hostname}.
+\end{entry}
+
+\begin{entry}{
+\proto{socket?}{ socket}{procedure}}
+\saut
+Returns \schtrue{} if \var{socket} is a socket, otherwise returns
+{\schfalse}.
+\end{entry}
+
+\begin{entry}{
+\proto{socket-host-name}{ socket}{procedure}}
+\saut
+Returns a string which contains the name of the distant host attached to  
+\var{socket}. If \var{socket} has been created with \ide{make-client-socket}
+this procedure returns the official name of the distant machine used for 
+connection. If \var{socket} has been created with \ide{make-server-socket},
+this function returns the official name of the client connected to the socket. 
+If no client has used yet the socket, this function returns \schfalse.
+\end{entry}
+
+\begin{entry}{
+\proto{socket-host-address}{ socket}{procedure}}
+\saut
+Returns a string which contains the IP\mainindex{IP number} number of
+the distant host attached to \var{socket}. If \var{socket} has been
+created with \ide{make-client-socket} this procedure returns the
+IP number of the distant machine used for connection. If
+\var{socket} has been created with \ide{make-server-socket}, this
+function returns the address of the client connected to the
+socket.  If no client has used yet the socket, this function returns
+\schfalse.
+\end{entry}
+
+\begin{entry}{
+\proto{socket-local-address}{ socket}{procedure}}
+\saut
+Returns a string which contains the IP\mainindex{IP number} number of
+the local host attached to \var{socket}.
+\end{entry}
+
+
+\begin{entry}{
+\proto{socket-port-number}{ socket}{procedure}}
+\saut
+Returns the integer number of the port used for \var{socket}.
+\end{entry}
+
+\begin{entry}{
+\proto{socket-input} { socket}{procedure}
+\proto{socket-output}{ socket}{procedure}}
+\saut
+Returns the file port associated for reading or writing with the program 
+connected with \var{socket}. If no connection has already been established,
+these functions return \schfalse.
+
+The following example shows how to make a client socket. Here we create a
+socket on port 13 of the machine ``{\tt kaolin.unice.fr}''\footnote{Port 13
+is generally used for testing: making a connection to it permits to know
+the distant system's idea of the time of day.}:
+\begin{scheme}
+(let ((s (make-client-socket "kaolin.unice.fr" 13)))
+  (format {\schtrue}  "Time is: {\tilda}A\verb+\+n" (read-line (socket-input s)))
+  (socket-shutdown  s))
+\end{scheme}
+\end{entry}
+
+
+\begin{entry}{
+\proto{make-server-socket}{}{procedure}
+\proto{make-server-socket}{ port-number}{procedure}}
+\saut
+\ide{make-server-socket} returns a new socket object. If \var{port-number}
+is specified, the socket is listening on the specified port; otherwise, the
+communication port is choosen by the system. 
+\end{entry}
+
+
+\begin{entry}{
+\proto{socket-accept-connection}{ socket}{procedure}}
+\saut
+\ide{socket-accept-connection} waits for a client connection on the given
+\var{socket}. If no client is already waiting for a connection, this
+procedure blocks its caller; otherwise, the first connection request on the
+queue of pending connections is connected to \var{socket}. 
+This procedure must be called on a server socket created
+with \ide{make-server-socket}. The result of \ide{socket-accept-connection}
+is undefined. 
+
+The following exemple is a simple server which waits for a connection
+on the port 1234\footnote{Under Unix, you can simply connect to
+  listening socket with the {\tt telnet} command. With the given
+  example, this can be
+  achived by typing the following command in a window shell:\\
+  {\tt \$ telnet localhost 1234}}. Once the connection with the
+distant program is established, we read a line on the input port
+associated to the socket and we write the length of this line on its
+output port.
+\begin{scheme}
+(let ((s (make-server-socket 1234)))
+  (socket-accept-connection s)
+  (let ((l (read-line (socket-input s))))
+    (format (socket-output s) "Length is: {\tilda}A\verb+\+n" (string-length l))
+    (flush (socket-output s)))
+  (socket-shutdown s))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{socket-shutdown}{ socket}{procedure}
+\proto{socket-shutdown}{ socket close}{procedure}}
+\saut
+\ide{Socket-shutdown} shutdowns the connection associated to \var{socket}.
+\var{Close} is a boolean; it indicates if the socket must be close or not, when
+the connection is dstroyed. Closing the socket forbids further connections on
+the same port with the \ide{socket-accept-connection} procedure.
+Omitting a value for \var{close} implies the closing of socket.
+The result of \ide{socket-shutdown} is undefined. 
+
+The following example shows a simple server: when there is a new connection
+on the port number 1234, the server displays the first line sent to it by the
+client, discards the others and go back waiting for further client connections.
+\begin{scheme}
+(let ((s (make-server-socket 1234)))
+  (let loop ()
+    (socket-accept-connection s)
+    (format {\schtrue} "I've read: {\tilda}A\verb+\+n" (read-line (socket-input s)))
+    (socket-shutdown s \schfalse)
+    (loop)))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{socket-down?}{ socket}{procedure}}
+\saut
+Returns {\schtrue} if \var{socket} has been previously closed 
+with \ide{socket-shutdown}. It returns {\schfalse} otherwise.
+\end{entry}
+
+\begin{entry}{
+\proto{socket-dup}{ socket}{procedure}}
+\saut
+Returns a copy of \var{socket}. The original and the copy socket can be used 
+interchangeably. However, if a new connection is accepted on one socket, 
+the characters exchanged on this socket are not visible on the other socket.
+Duplicating a socket is useful when a server must accept multiple simultaneous
+connections.
+The following example creates a server listening on port 1234. This server is 
+duplicated and, once two clients are present, a message is sent on both 
+connections.
+\begin{scheme}
+(define s1 (make-server-socket 1234))
+(define s2 (socket-dup s1))
+(socket-accept-connection s1)
+(socket-accept-connection s2)
+;; blocks until two clients are present
+(display "Hello,\verb+\+n" (socket-output s1))
+(display "world\verb+\+n"  (socket-output s2))
+(flush (socket-output s1))
+(flush (socket-output s2))
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{when-socket-ready}{ socket handler}{procedure}
+\proto{when-socket-ready}{ socket}{procedure}}
+\saut
+Defines a handler for \var{socket}. The handler is a thumk which is 
+executed when a connection is available on \var{socket}. If the special value
+\schfalse{} is provided as \var{handler}, the current handler for \var{socket}
+is deleted. If a handler is provided, the value returned by 
+\ide{when-socket-ready} is undefined. Otherwise, it 
+returns the handler currently associated to \var{socket}.
+
+This procedure, in conjonction with \ide{socket-dup} permits to build
+multiple-clients servers which work asynchronously. Such a server is
+shown below.
+\begin{scheme}
+(define p (make-server-socket 1234))
+(when-socket-ready p 
+                  (let ((count 0))
+                    (lambda ()
+                      (set! count (+ count 1))
+                      (register-connection (socket-dup p) count))))
+
+(define register-connection
+  (let ((sockets '()))
+    (lambda (s cnt)
+      ;; Accept connection
+      (socket-accept-connection s)
+      ;; Save socket somewhere to avoid GC problems
+      (set! sockets (cons s sockets))
+      ;; Create a handler for reading inputs from this new connection
+      (let ((in  (socket-input s))
+            (out (socket-output s)))
+        (when-port-readable in 
+             (lambda ()
+               (let ((l (read-line in)))
+                 (if (eof-object? l)
+                     ;; delete current handler
+                     (when-port-readable in \schfalse)
+                     ;; Just write the line read on the socket
+                     (begin
+                       (format out "On {\sharpsign}{\tilda}A --> {\tilda}A\verb+\+n" cnt l)
+                       (flush out))))))))))
+\end{scheme}
+\end{entry}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%
+%%%% Section 6.22: Misc
+%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+\subsection{Miscellaneous}
+
+This section lists the primitives defined in {\stk} that did not fit
+anywhere else.
+
+\begin{entry}{
+\proto{eval}{ \hyper{expr}}{syntax}
+\proto{eval}{ \hyper{expr} \hyper{environment}}{syntax}}
+\saut
+Evaluates \hyper{expr} in the given environment. \hyper{Environment} may be
+omitted, in which case it defaults to the global environment.
+\begin{scheme}
+(define foo (let ((a 1)) (lambda () a)))
+(foo) \ev 1
+(eval '(set! a 2) (procedure-environment foo))
+(foo) \ev 2
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{version}{} {procedure}}
+\saut
+returns a string identifying the current version of {\stk}.
+\end{entry}
+
+\begin{entry}{
+\proto{machine-type}{} {procedure}}
+\saut
+returns a string identifying the kind of machine which is running the
+interpreter. The form of the result is {\tt [os-name]-[os-version]-[processor-type]}.
+\end{entry}
+
+\begin{entry}{
+\proto{random}{ n} {procedure}}
+\saut
+returns an integer in the range 0, $\var{n}-1$ inclusive.
+\end{entry}
+
+\begin{entry}{%
+\proto{set-random-seed!} { seed} {procedure}}
+\saut
+Set the random seed to the specified \var{seed}. {\tt Seed} must be an integer
+which fits in a C {\tt long int}.
+\end{entry}
+
+\begin{entry}{
+\proto{eval-string}{ string environment} {procedure}}
+\saut
+Evaluates the contents of the given \var{string} in the given
+\var{environment} and returns its result. 
+If \var{environment} is omitted it defaults to the global
+environment. If evaluation leads to an error, the result of \ide{eval-string} 
+is undefined.
+\begin{scheme}
+(define x 1)
+(eval-string "(+ x 1)")   \lev 2
+(eval-string "x" (let ((x 2)) (the-environment))) \lev 2
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{read-from-string}{ \hyper{string}} {procedure}}
+\saut
+Performs a read from the given \var{string}. If \var{string} is the empty
+string, an end of file object is returned. If an error occurs during string
+reading, the result of \ide{read-from-string} is undefined.
+\begin{scheme}
+(read-from-string "123 456") \lev 123
+(read-from-string "")        \lev an eof object
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\proto{dump}{ string} {procedure}}
+\saut
+\ide{Dump} grabs the current continuation
+\mainindex{continuation} and creates an image of the current {\stk}
+interpreter in the file whose name is \var{string}{\footnote{
+Image creation is not yet implemented on all systems. The current version
+(\stkversion) allows image dumping only on some platforms: 
+SunOs~4.1.x, Linux~1, FreeBsd}}.
+This image can be used later to restart the interpreter from the saved
+state. See the {\stk} man page about the {\tt -image} option for more details.
+
+\begin{note}
+Image creation cannot be done if Tk is initialized.
+\end{note}
+\end{entry}
+
+\begin{entry}{
+\proto{trace-var}{ symbol thunk} {procedure}}
+\saut
+\ide{Trace-var} call the given \var{thunk} when the value
+of the variable denoted by \var{symbol} is changed.
+\begin{scheme}
+(define x 1)
+(define y 0)
+(trace-var 'x (lambda () (set! y 1)))
+(set! x 2)
+(cons x y)                      \lev (2 . 1)
+\end{scheme}
+
+\begin{note}
+Several traces can be associated with a single symbol. They are executed in
+reverse order to their definition. For instance, the execution of 
+\begin{scheme}
+(begin 
+  (trace-var 'z (lambda () (display "One")))
+  (trace-var 'z (lambda () (display "Two")))
+  (set! z 10))
+\end{scheme}
+will display the string {\tt"Two"} before the string {\tt"One"} on the
+current output port.
+\end{note}
+\end{entry}
+
+\begin{entry}{
+\proto{untrace-var}{ symbol} {procedure}}
+\saut
+Deletes all the traces associated to the variable denoted by \var{symbol}.
+\end{entry}
+
+\begin{entry}{
+\proto{error}{ string \vri{string} \vrii{obj} \dotsfoo}{procedure}}
+\saut
+\ide{error} prints the \var{obj}s according to the specification given in 
+\var{string} on the current error port (or in an error window if Tk is
+initialized\index{Tk toolkit}\index{toolkit}). The specification string
+follows the ``tilde conventions'' of \ide{format}(see \ref{format}). Once the
+message is printed, execution returns to toplevel.
+\end{entry}
+
+\begin{entry}{
+\proto{gc}{}{procedure}}
+\saut
+Runs the garbage collector. See \ref{GCSTART} for the signals associated to 
+garbage collection.
+\end{entry}
+
+\begin{entry}{
+\proto{gc-stats}{}{procedure}}
+\saut %
+Provides some statistics about current memory usage. This procedure is
+primarily for debugging the {\stk} interpreter, hence its weird
+printing format.
+\end{entry}
+
+
+\begin{entry}{
+\proto{expand-heap}{ n}{procedure}}
+\saut %
+Expand the heap so that it will contains at least \var{n}
+cells. Normally, the heap automatically grows when more memory is needed.
+However, using only automatic heap growing is sometimes very penalizing.
+This is particulary true for programs which uses a lot of temporary data
+(which are not pointed by any a variable) and a small amount of global
+data. In this case, the garbage collector will be often called and the heap
+will not be automatically expanded (since most of the consumed heap will be
+reclaimed by the GC). This could be annoying epecially for program where
+response time is critical. Using \ide{expand-heap} permits to enlarge 
+the heap size (which is set to 20000 cells by default), to avoid those
+continual calls to the GC.
+\end{entry}
+
+
+\begin{entry}{
+\proto{get-internal-info}{}{procedure}}
+\saut %
+Returns a 7-length vector which contains the following informations:
+\begin{enumerate}
+\item[0] total cpu used in milli-seconds
+\item[1] number of cells currently in use.
+\item[2] total number of allocated cells
+\item[3] number of cells used since the last call to \ide{get-internal-info}
+\item[4] number of gc runs
+\item[5] total time used in the gc
+\item[6] a boolean indicating if Tk is initialized
+\end{enumerate}
+\end{entry}
+
+
+\begin{entry}{
+\proto{sort}{ obj predicate}{procedure}}
+\saut
+\var{Obj} must be a list or a vector. \ide{Sort} returns a copy of \var{obj} sorted
+according to \var{predicate}. \var{Predicate} must be a procedure which takes
+two arguments and returns a true value if the first argument is strictly ``before''
+the second.
+\begin{scheme}
+(sort '(1 2 -4 12 9 -1 2 3) <) 
+               \ev (-4 -1 1 2 2 3 9 12)
+(sort \sharpsign("one" "two" "three" "four") 
+      (lambda (x y) (> (string-length x) (string-length y))))
+                       \ev \sharpsign("three" "four" "one" "two")
+\end{scheme}
+\end{entry}
+
+\begin{entry}{
+\label{uncode}
+\proto{uncode}{ form}{procedure}}
+\saut %
+When {\stk} evaluates an expression it encodes it so that further
+evaluations of this expression will be more efficient. Since encoded
+forms are generally difficult to read, \ide{uncode} can be used to
+(re-)obtain the original form.
+\begin{scheme}
+(define (foo a b) 
+   (let ((x a) (y (+ b 1))) (cons x y)))
+
+(procedure-body foo)
+                \ev (lambda (a b) 
+                       (let ((x a) (y (+ b 1))) (cons x y)))
+(foo 1 2)       \ev (1 . 3)
+(procedure-body foo)
+                \ev  (lambda (a b) 
+                       ({\sharpsign}let (x y) 
+                             ({\sharpsign}<local a @0,0)> 
+                              ({\sharpsign}<global +> {\sharpsign}<local b @0,1)> 1)) 
+                         ({\sharpsign}<global cons> {\sharpsign}<local x @0,0)> 
+                                         {\sharpsign}<local y @0,1)>)))
+
+(uncode (procedure-body foo))
+                 \ev (lambda (a b)
+                        (let ((x a) (y (+ b 1))) (cons x y)))
+\end{scheme}
+
+\begin{note}
+When a macro has been directly expanded into the macro call code, it is not
+possible to retrieve the original macro call. Set \ide{*debug*} to
+{\schtrue} to avoid macro expansion in-lining.
+\end{note}
+\end{entry}
+
+\begin{entry}{
+\proto{time} { \hyper{expr}}{macro}}
+\saut
+Evaluates the expression \hyper{expr} in the current environment. Prints the
+elapsed CPU time and the number of conses used before returning the result of
+this evaluation.
+\end{entry}
+
+\begin{entry}{%
+\proto{apropos}{ symbol}{ procedure}}
+\saut
+\ide{Apropos} returns a list of symbol whose print name contains the characters 
+of \var{symbol}. Symbols are searched for in the current environment. 
+\begin{scheme}
+(apropos 'cadd) \lev (caddar caddr cadddr)
+\end{scheme}
+\end{entry}
+
+\begin{entry}{%
+\proto{inspect}{ obj}{ procedure}}
+\saut %
+\ide{Inspect} permits to graphically inspect an object. The first call
+of this procedure creates a top level window containing the object to
+inspect and its current value. If the inspector window is already on
+screen, \var{obj} will be appended to the list of inspected objects.
+The inspector window contains menus which permit to call the viewer or
+detailer on each inspected object. See the on-line documentation for
+further details. A view of the general inspector is given in figure~1.
+
+\begin{note}
+Tk must be initialized to use \ide{inspect}.
+\end{note}
+
+\begin{figure}
+\centerline{\psfig{figure={Inspector.ps}}}
+\caption{A view of the Inspector}
+\end{figure}
+\end{entry}
+
+
+\begin{entry}{%
+\proto{view}{ obj}{ procedure}}
+\saut %
+\ide{View} permits to obtain a graphical representation of an {\stk}
+object. The type of representation depends on the type of the viewed
+object. Here again, menus are provided to switch to the inspector or
+to the detailer. See the on-line documentation for more details. A
+snapshot of the viewer is given in figure~2.
+
+\begin{note}
+Tk must be initialized to use \ide{view}.
+\end{note}
+
+\begin{figure}
+\centerline{\psfig{figure={View.ps}}}
+\caption{A view of the Viewer}
+\end{figure}
+
+\end{entry}
+
+
+\begin{entry}{%
+\proto{detail}{ obj}{ procedure}}
+\saut %
+\ide{detail} permits to display the fields of a composite Scheme
+object.  The type of detailer depends on the type of the composite
+object detailed. Here again, menus are provided to go to the inspector
+or to the viewer. See the on-line documentation for more details.
+Figure~3 shows the detailer examining a {\em tk-command}.
+
+\begin{note}
+Tk must be initialized to use \ide{detail}.
+\end{note}
+
+\begin{figure}
+\centerline{\psfig{figure={Detail.ps}}}
+\caption{A view of the Detailer}
+\end{figure}
+\end{entry}
+
+\begin{entry}{%
+\proto{quit}{ retcode} {procedure}
+\proto{quit}{} {procedure}
+\proto{exit}{ retcode} {procedure}
+\proto{exit}{} {procedure}
+\proto{bye}{ retcode} {procedure}
+\proto{bye}{} {procedure}}
+\saut
+Exits the {\stk} interpreter with the specified integer return code. If
+omitted, the interpreter terminates with a return code of 0.
+\end{entry}
+
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: "manual"
+%%% End: 
diff --git a/Doc/Reference/View.ps b/Doc/Reference/View.ps
new file mode 100644
index 0000000..7be009e
--- /dev/null
+++ b/Doc/Reference/View.ps
@@ -0,0 +1,4111 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: View.ps
+%%Creator: XV Version 3.00  Rev: 3/30/93  -  by John Bradley
+%%BoundingBox: 37 171 342 467
+%%Pages: 1
+%%DocumentFonts:
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 381 string def
+
+% lower left corner
+37 171 translate
+
+% size of image (on paper, in 1/72inch coords)
+304.77600 295.99200 scale
+
+381 370 8			% dimensions of data
+[381 0 0 -370 0 370]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686868686865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686868686865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c4c4c48686c4c4c48686
+8686c4c4868686868686868686868686868686868686868686868686868686c4c4868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c3c3c3c3c3c3c3c3c3508686505086c3c386868686868686868686868686868650
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c35086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c48686c4c48686
+8686c4c4868686868686868686868686868686c48686868686868686868686c4c4868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+8686c3c3c3c3c3c3c3c3c350508686505086c3c386868686868686868686868686868650
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3505086865050
+c3c38686c35050505050505050505086865050c3c38686c4c486868686c4c486c4c48686
+868686868686868686868686868686868686c4c486868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686505050505050505050505086865050c3c38686c4c486868686c4c486c4c4c4c4
+86c4c4c48686c4c4c4c4868686c4c4c4c4c4c4c4c4868686c4c4c48686c4c4c4c48686c4
+c4c4c486c4c4c486c4c4c486c4c486c4c4c4c486c4c486c4c4868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c38686c3c3c3c3c3c3c3c3c3c3508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3c3c350868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686868686868686868686868686865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c48686c4c486c4c48686c486c4c48686868686c4c48686c486c4c486c4c4
+8686c4c486c4c48686c48686c486c4c48686c4c486c4c486c486868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c38686c3c3c3c3c3c3c3c3c350508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3c35050868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c4c4c4c4c486c4c486868686c4c4868686868686c4c486c486c4c486c4c4
+c4c4c4c48686c4c486c4c486c486c4c4c4c4c4c486c4c48686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c38686c3c38686868686868650508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3865050868686868650
+5086c3c3c3c3c3c3c3c3c350868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c48686868686c4c486868686c4c4868686868686c4c4c4c486c4c486c4c4
+868686868686c4c486c4c4c48686c4c48686868686c4c4868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c38686c3505050505050505050508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c350505050868686868650
+5086c3c3c3c3c3c3c3c35050868686505086865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4c486c4
+c486c4c486c4c4c48686c486c4c4c486c486c4c486868686868686c4c48686c4c486c4c4
+c48686c4868686c4c486c4c48686c4c4c48686c486c4c48686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868650505050505050505050508686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686865050505050868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686505050505050505050505086865050c3c386868686c4c4c4c4868686c486c4c4
+8686c4c48686c4c4c4c4868686c4c4c4868686c4c4868686868686c4c486c4c4c4c486c4
+c4c4c486868686c4c486c4c4868686c4c4c4c486c4c4c4c48686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686c4c48686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+8686c3505050505050505050508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686c4c48686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868650505050505050505050508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+86c4c4868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+5050505050505050505050505050c350505050505050505050505050505050505086c350
+505050505050505050505050505050505086c35050505050505050505050505050505050
+5086c3505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050865050
+505050505050505050505050505050505086505050505050505050505050505050505050
+508650505050505050505050505050505050505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4333333b4b4b4b4b4b4b4b4b433b4b4333333b4b4b4b4b4b4b4b4b433b4b4b4b433b4
+b4b4b4b4b4b43333333333b433b4b4b433b4b4b4b4b4b4b4b4b4333333b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4333333b4b4b4b4b4b4b4
+b433b4b4b433b4b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b43333b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433b4b4b433b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b433333333b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b433b433b4
+b4b4b4b4b4b433333333b4b4b4b433b4b4b433b4b4b4b4b4b433b43333b4b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b43333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4
+b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b43333b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b4333333333333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4
+b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b4b4b4b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4333333333333
+b4b4b4b4b4b433b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b433b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b4b4b43333b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b43333333333b4b4b4b4b4b433b4b4b4b4333333b4b4b4b4b4b4b433b4b4b4b4b4b433b4
+b4b4b4b4b4b4b4333333b4b4b4b433b4b4b433b4b4b4b4b4b4b4333333b4b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b433b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f
+7ff2f2f27f7f7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f
+7f7f7f7f7ff2f2f2f2f27ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7ff27f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f
+f27f7f7ff27f7f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7ff2f27f7f
+7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b43333b4b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7ff27ff27f7f
+7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7ff2f27f7f7f7f7f7f7ff27f7f7f7ff27ff27f7f
+7f7f7f7f7ff2f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7ff27ff2f27f7f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7f
+7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff2f27f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b4b43333333333b43333b43333b4b43333b4333333
+333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7ff27f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7f
+7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4b43333b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7ff2f2f2f2f2f27f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b43333b43333b4333333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7ff27f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4333333b433333333b4b43333b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f2f2f2f2f27f7f7f7f7f7ff27f7f7f7ff2f2f27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f
+7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b433333333
+b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b433
+33b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b43333b4b433
+33b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333333333
+33b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4b4
+b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b433
+33b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b433333333
+b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4b47db4b4b4b4b4b4b4ececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4ececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececec6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfd7d7d7db4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfdd17d7db4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdfdd1d1d17d7db4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdfdd1d1d17d7db4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdd1d1d1d1d17d7db4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d17d7db4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d17d7db4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fd7d7d7d7d7d7d7d7d7d7d7d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cfd7d7d7d7d7d7d7d7d7d7d7d7d7d7dececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfdfdb4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfd7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b300000000000000000000000000000000000000000000000000000000b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000
+0000000000000000000000000000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000000000000000000000000000
+0000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+00b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000000000000000000000000000
+0000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+00b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b30000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3b3b3b3b3b3b3b3b300b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3b3b3b3b3b3b3b300b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3b3b3b3b3b3b300b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3b3b3b3b3b300b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3b3b3b3b300b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3b3b3b300b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300b3b300b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b30000b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b300000000000000000000000000000000000000000000000000000000b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b30000b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300b3b300b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3b3b3b300b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3b3b3b3b300b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3b3b3b3b3b300b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3b3b3b3b3b3b300b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3b3b3b3b3b3b3b300b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3b3b3b3b3b3b3b3b300b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b30000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfd7d7d7d7d7d7d7d7d7d7d7db4b4b4b4b4b4b4b4b4b4b4b4b4fdb4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4fdfdb4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4fd7d7d7d7d7d7d7d7d7d7d7d7db4b4b4b4b4b4b4b4b4b4b4fdfd7dfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdb4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdb4b4b4b4b4b4b4b4b4fdfd7d7dfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fd7dfdfdfdfdfdb4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfdfd7db4b4b4b4b4b4b4fdfdfdd17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1fdfdfdb4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4fdd1d1d1d1d1d1d1d1d17d7db4b4b4b4b4b4fdfdfdd1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1fdfdfdb4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d1d17d7db4b4b4b4b4fdfdfdd1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1fdfdfdb4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdd1d1d1d1d1d1d17d7db4b4b4b4fdfdfdd1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d1fdfdfdb4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdd1d1d1d1d1d17db4b4b47d7d7dd1d1d1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d1d17d7d7dececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdd1d1d1d1d17d7db4b4b4b4b47d7d7dd1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d17d7d7db4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdfdd1d1d17d7db4b4b4b4b4b4b4b47d7d7dd1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d17d7d7db4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdd1d1d17d7db4b4b4b4b4b4b4b4b47d7d7dd1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d17d7d7db4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfdd17d7db4b4b4b4b4b4b4b4b4b4b4b47d7d7dd17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d17d7d7db4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4b4b4b4b4b4b4b4b4b47d7d7d7dfdfd
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7dfdfd7d7d7db4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b47d7d7dfd7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7dfdfd7d7db4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4b47db4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b47db4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4fd7db4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cecececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
diff --git a/Doc/Reference/bibliography.bib b/Doc/Reference/bibliography.bib
new file mode 120000
index 0000000..715b57e
--- /dev/null
+++ b/Doc/Reference/bibliography.bib
@@ -0,0 +1 @@
+../bibliography.bib
\ No newline at end of file
diff --git a/Doc/Reference/commands.tex b/Doc/Reference/commands.tex
new file mode 100644
index 0000000..14304b0
--- /dev/null
+++ b/Doc/Reference/commands.tex
@@ -0,0 +1,203 @@
+% Macros for R^nRS.
+
+\makeatletter
+
+% Chapters, sections, etc.
+
+\newcommand{\extrapart}[1]{
+  \chapter*{#1}
+  \markboth{#1}{#1}
+  \vskip 1ex
+  \addcontentsline{toc}{chapter}{#1}}
+
+\newcommand{\clearchapterstar}[1]{
+  \clearpage
+  \topnewpage[
+    \centerline{\large\bf\uppercase{#1}}
+    \bigskip]}
+
+\newcommand{\clearextrapart}[1]{
+  \clearchapterstar{#1}
+  \markboth{#1}{#1}
+  \addcontentsline{toc}{chapter}{#1}}
+
+
+\newcommand{\vest}{}
+\newcommand{\dotsfoo}{$\ldots\,$}
+
+\newcommand{\sharpfoo}[1]{{\tt\##1}}
+\newcommand{\schfalse}{\sharpfoo{f}}
+\newcommand{\schtrue}{\sharpfoo{t}}
+
+\newcommand{\singlequote}{{\tt'}}  %\char19
+\newcommand{\doublequote}{{\tt"}}
+\newcommand{\backquote}{{\tt\char18}}
+\newcommand{\backwhack}{{\tt\char`\\}}
+\newcommand{\atsign}{{\tt\char`\@}}
+\newcommand{\sharpsign}{{\tt\#}}
+\newcommand{\verticalbar}{{\tt|}}
+
+\newcommand{\coerce}{\discretionary{->}{}{->}}
+
+% Knuth's \in sucks big boulders
+\def\elem{\hbox{\raise.13ex\hbox{$\scriptstyle\in$}}}
+
+\newcommand{\meta}[1]{{\noindent\hbox{\rm$\langle$#1$\rangle$}}}
+\let\hyper=\meta
+\newcommand{\hyperi}[1]{\hyper{#1$_1$}}
+\newcommand{\hyperii}[1]{\hyper{#1$_2$}}
+\newcommand{\hyperj}[1]{\hyper{#1$_i$}}
+\newcommand{\hypern}[1]{\hyper{#1$_n$}}
+\newcommand{\var}[1]{\noindent\hbox{\it{}#1\/}}  % Careful, is \/ always the right thing?
+\newcommand{\vari}[1]{\var{#1$_1$}}
+\newcommand{\varii}[1]{\var{#1$_2$}}
+\newcommand{\variii}[1]{\var{#1$_3$}}
+\newcommand{\variv}[1]{\var{#1$_4$}}
+\newcommand{\varj}[1]{\var{#1$_j$}}
+\newcommand{\varn}[1]{\var{#1$_n$}}
+
+\newcommand{\vr}[1]{{\noindent\hbox{$#1$\/}}}  % Careful, is \/ always the right thing?
+\newcommand{\vri}[1]{\vr{#1_1}}
+\newcommand{\vrii}[1]{\vr{#1_2}}
+\newcommand{\vriii}[1]{\vr{#1_3}}
+\newcommand{\vriv}[1]{\vr{#1_4}}
+\newcommand{\vrj}[1]{\vr{#1_j}}
+\newcommand{\vrn}[1]{\vr{#1_n}}
+
+
+\newcommand{\defining}[1]{\mainindex{#1}{\em #1}}
+\newcommand{\ide}[1]{{\schindex{#1}\frenchspacing\tt#1}}
+
+\newcommand{\lambdaexp}{lambda expression}
+\newcommand{\Lambdaexp}{Lambda expression}
+
+% \reallyindex{SORTKEY}{HEADCS}{TYPE}
+% writes (index-entry "SORTKEY" "HEADCS" TYPE PAGENUMBER)
+% which becomes  \item \HEADCS{SORTKEY} mainpagenumber ; auxpagenumber ...
+
+\global\def\reallyindex#1#2#3{%
+\write\@indexfile{(index-entry "#1" "#2" #3 \thepage)}}
+
+\newcommand{\mainschindex}[1]{\label{#1}\reallyindex{#1}{tt}{main}}
+\newcommand{\mainindex}[1]{\reallyindex{#1}{rm}{main}}
+\newcommand{\schindex}[1]{\reallyindex{#1}{tt}{aux}}
+\newcommand{\sharpindex}[1]{\reallyindex{#1}{sharpfoo}{aux}}
+\renewcommand{\index}[1]{\reallyindex{#1}{rm}{aux}}
+
+\newcommand{\domain}[1]{#1}
+\newcommand{\nodomain}[1]{}
+%\newcommand{\todo}[1]{{\rm$[\![$!!~#1$]\!]$}}
+\newcommand{\todo}[1]{}
+
+% \frobq will make quote and backquote look nicer.
+\def\frobqcats{%\catcode`\'=13
+\catcode`\`=13{}}
+{\frobqcats
+\gdef\frobqdefs{%\def'{\singlequote}
+\def`{\backquote}}}
+\def\frobq{\frobqcats\frobqdefs}
+
+% \cf = code font
+% Unfortunately, \cf \cf won't work at all, so don't even attempt to
+% next constructions which use them...
+\newcommand{\cf}{\frenchspacing\frobq\tt}
+
+% Same as \obeycr, but doesn't do a \@gobblecr.
+{\catcode`\^^M=13 \gdef\myobeycr{\catcode`\^^M=13 \def^^M{\\}}%
+\gdef\restorecr{\catcode`\^^M=5 }}
+
+{\catcode`\^^I=13 \gdef\obeytabs{\catcode`\^^I=13 \def^^I{\hbox{\hskip 4em}}}}
+
+{\obeyspaces\gdef {\hbox{\hskip0.5em}}}
+
+\gdef\gobblecr{\@gobblecr}
+
+\def\setupcode{\@makeother\^}
+
+% Scheme example environment
+% At 11 points, one column, these are about 56 characters wide.
+% That's 32 characters to the left of the => and about 20 to the right.
+
+\newenvironment{schemenoindent}{
+  % Commands for scheme examples
+  \newcommand{\ev}{\>\>\evalsto}
+  \newcommand{\lev}{\\\>\evalsto}
+  \newcommand{\unspecified}{{\em{}unspecified}}
+  \newcommand{\scherror}{{\em{}error}}
+  \setupcode
+  \small \cf \obeytabs \obeyspaces \myobeycr
+  \begin{tabbing}%
+\qquad\=\hspace*{5em}\=\hspace*{9em}\=\kill%   was 16em
+\gobblecr}{\unskip\end{tabbing}}
+
+%\newenvironment{scheme}{\begin{schemenoindent}\+\kill}{\end{schemenoindent}}
+\newenvironment{scheme}{
+  % Commands for scheme examples
+  \newcommand{\ev}{\>\>\evalsto}
+  \newcommand{\lev}{\\\>\evalsto}
+  \newcommand{\unspecified}{{\em{}unspecified}}
+  \newcommand{\scherror}{{\em{}error}}
+  \setupcode
+  \small \cf \obeyspaces \myobeycr
+  \begin{tabbing}%
+\qquad\=\hspace*{5em}\=\hspace*{9em}\=\+\kill%   was 16em
+\gobblecr}{\unskip\end{tabbing}}
+
+
+\newcommand{\evalsto}{$\Longrightarrow$}
+
+% Rationale
+
+\newenvironment{rationale}{%
+\bgroup\small\noindent{\em Rationale:}\space}{%
+\egroup}
+
+% Notes
+
+\newenvironment{note}{%
+\bgroup\small\noindent{\em Note:}\space}{%
+\egroup}
+
+% Manual entries
+
+\newenvironment{entry}[1]{
+  \vspace{3.1ex plus .5ex minus .3ex}\noindent#1%
+\unpenalty\nopagebreak}{\vspace{0ex plus 1ex minus 1ex}}
+
+\newcommand{\exprtype}{syntax}
+
+% Primitive prototype
+\newcommand{\pproto}[2]{\unskip%
+\hbox{\cf\spaceskip=0.5em#1}\hfill\penalty 0%
+\hbox{ }\nobreak\hfill\hbox{\rm #2}\break}
+
+% Parenthesized prototype
+\newcommand{\proto}[3]{\pproto{(\mainschindex{#1}\hbox{#1}{\it#2\/})}{#3}}
+
+% Variable prototype
+\newcommand{\vproto}[2]{\mainschindex{#1}\pproto{#1}{#2}}
+
+% Random prototype
+\newcommand{\rproto}[3]{\proto{#1}{#2}{#3}}
+
+% Grammar environment
+
+\newenvironment{grammar}{
+  \def\:{\goesto{}}
+  \def\|{$\vert$}
+  \cf \myobeycr
+  \begin{tabbing}
+    %\qquad\quad \= 
+    \qquad \= $\vert$ \= \kill
+  }{\unskip\end{tabbing}}
+
+%\newcommand{\unsection}{\unskip}
+\newcommand{\unsection}{{\vskip -2ex}}
+
+% Commands for grammars
+\newcommand{\arbno}[1]{#1\hbox{\rm*}}  
+\newcommand{\atleastone}[1]{#1\hbox{$^+$}}
+
+\newcommand{\goesto}{$\longrightarrow$}
+
+\makeatother
diff --git a/Doc/Reference/eg-commands.sty b/Doc/Reference/eg-commands.sty
new file mode 100644
index 0000000..5f73908
--- /dev/null
+++ b/Doc/Reference/eg-commands.sty
@@ -0,0 +1,80 @@
+%										-*- LaTeX -*-
+% e g c o m m a n d . s t y
+%
+% Various commands which I often used in my documents
+% Code is most of the time stolen from ``The LaTeX Companion''
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date:  4-Jun-1995 18:13
+% Last file update: 15-Jul-1995 13:23
+
+%
+% Some useful packages
+%
+\usepackage{calc}
+\usepackage{ifthen}
+\usepackage{alltt}
+\usepackage{moreverb}
+\usepackage[dvips]{epsfig}
+
+
+%
+% Entry
+%
+\newcommand{\Entryfont}{\textbf}
+
+\newcommand{\Entrylabel}[1]{\mbox{\Entryfont{#1:}}\hfil}
+
+\newenvironment{Entry}%
+   {\begin{list}{}%
+          {\renewcommand{\makelabel}{\Entrylabel}%
+	   \setlength{\labelwidth}{35pt}%
+	   \setlength{\leftmargin}{\labelwidth+\labelsep}%
+	  }%
+   }%
+   {\end{list}}
+
+%
+% Ventry
+%
+\newenvironment{Ventry}[1]%
+   {\begin{list}{}%
+	  {\renewcommand{\makelabel}{\makelabel}[1]{\Entryfont{##1:}\hfil}%
+	   \settowidth{\labelwidth}{\Entryfont{#1:}}%
+	   \setlength{\leftmargin}{\labelwidth+\labelsep}%
+	  }%
+   }%
+   {\end{list}}
+
+%
+% Lentry
+%
+\newlength{\lentrylen}
+
+\newcommand{\Lentrylabel}[1]{%
+   \settowidth{\lentrylen}{\Entryfont{#1:}}%
+   \ifthenelse{\lengthtest{\lentrylen > \labelwidth}}%
+	{\parbox[b]{\labelwidth}%				term > labelwidth
+		   {\makebox[0pt][l]{\Entryfont{#1:}}\\}}%
+	{\Entryfont{#1:}}%					term < labelwidth
+   \hfil\relax}
+
+\newenvironment{Lentry}%
+   {\renewcommand{\Entrylabel}{\Lentrylabel}\begin{Entry}}%
+   {\end{Entry}}
+
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% STk stuff
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\stk}{{\sc STk}}
+\newcommand{\stklos}{{\sc STklos}}
+\newcommand{\Indextt}[1]{{\tt{#1}}\index{#1}}
+\newcommand{\Index}[1]{{#1}\index{#1}}
+\newcommand{\rrrr}{{\em R$^{4}\!RS$}}
+\newcommand{\codesize}{\small}
+\newenvironment{Code}{\begin{quote}\begin{minipage}{12cm}\codesize}{\end{minipage}\end{quote}}
diff --git a/Doc/Reference/hierarchy.eps b/Doc/Reference/hierarchy.eps
new file mode 100644
index 0000000..7b1a986
--- /dev/null
+++ b/Doc/Reference/hierarchy.eps
@@ -0,0 +1,127 @@
+%!PS-Adobe-2.0 EPSF
+%%Title: /tmp/xfig-fig016295
+%%Creator: fig2dev
+%%CreationDate: Fri Jun 10 23:18:16 1994
+%%For: eg@kaolin (Erick Gallesio)
+%%BoundingBox: 0 0 361 217
+%%Pages: 0
+%%EndComments
+/$F2psDict 200 dict def 
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/l {lineto} bind def
+/m {moveto} bind def
+/s {stroke} bind def
+/n {newpath} bind def
+/gs {gsave} bind def
+/gr {grestore} bind def
+/clp {closepath} bind def
+/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+4 -2 roll mul setrgbcolor} bind def
+/col-1 {} def
+/col0 {0 0 0 setrgbcolor} bind def
+/col1 {0 0 1 setrgbcolor} bind def
+/col2 {0 1 0 setrgbcolor} bind def
+/col3 {0 1 1 setrgbcolor} bind def
+/col4 {1 0 0 setrgbcolor} bind def
+/col5 {1 0 1 setrgbcolor} bind def
+/col6 {1 1 0 setrgbcolor} bind def
+/col7 {1 1 1 setrgbcolor} bind def
+	end
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+%%EndProlog
+
+$F2psBegin
+0 setlinecap 0 setlinejoin
+-216.0 288.0 translate 0.900 -0.900 scale
+0.500 setlinewidth
+n 309 159 m 309 159 l gs col-1 s gr
+n 246.401 216.889 m 244.000 209.000 l 249.831 214.831 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 244 209 m 274 259 l gs col-1 s gr
+n 298.169 214.831 m 304.000 209.000 l 301.599 216.889 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 304 209 m 274 259 l gs col-1 s gr
+n 255.721 213.778 m 249.000 209.000 l 257.179 210.053 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 249 209 m 364 254 l gs col-1 s gr
+n 370.312 216.376 m 374.000 209.000 l 374.217 217.243 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 374 209 m 364 254 l gs col-1 s gr
+n 283.772 280.725 m 279.000 274.000 l 286.376 277.688 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 279 274 m 314 304 l gs col-1 s gr
+n 351.457 272.333 m 359.000 269.000 l 353.913 275.490 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 359 269 m 314 304 l gs col-1 s gr
+n 300.950 165.789 m 309.000 164.000 l 302.739 169.367 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 249 194 l gs col-1 s gr
+n 307.000 172.000 m 309.000 164.000 l 311.000 172.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 309 199 l gs col-1 s gr
+n 315.261 169.367 m 309.000 164.000 l 317.050 165.789 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 379 199 l gs col-1 s gr
+n 406.949 101.701 m 404.000 94.000 l 410.226 99.407 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 439 144 l gs col-1 s gr
+n 410.363 99.245 m 404.000 94.000 l 412.083 95.634 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 509 144 l gs col-1 s gr
+n 411.173 98.068 m 404.000 94.000 l 412.243 94.214 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 584 144 l gs col-1 s gr
+n 396.075 96.277 m 404.000 94.000 l 398.079 99.739 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 309 149 l gs col-1 s gr
+% Polyline
+n 584 229 m 584 204 l gs col-1 s gr
+n 582.000 212.000 m 584.000 204.000 l 586.000 212.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 584 189 m 584 159 l gs col-1 s gr
+n 582.000 167.000 m 584.000 159.000 l 586.000 167.000 l gs 2 setlinejoin col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+239 209 m 
+gs 1 -1 scale (A) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+274 274 m 
+gs 1 -1 scale (D) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+359 269 m 
+gs 1 -1 scale (E) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+304 209 m 
+gs 1 -1 scale (B) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+374 209 m 
+gs 1 -1 scale (C) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+314 319 m 
+gs 1 -1 scale (F) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+289 159 m 
+gs 1 -1 scale (<object>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+389 89 m 
+gs 1 -1 scale (<top>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+424 154 m 
+gs 1 -1 scale (<pair>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+474 154 m 
+gs 1 -1 scale (<procedure>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 154 m 
+gs 1 -1 scale (<number>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+629 154 m 
+gs 1 -1 scale (...) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+569 199 m 
+gs 1 -1 scale (<real>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 239 m 
+gs 1 -1 scale (<integer>) col-1 show gr
+$F2psEnd
diff --git a/Doc/Reference/hierarchy.fig b/Doc/Reference/hierarchy.fig
new file mode 100644
index 0000000..9b7f629
--- /dev/null
+++ b/Doc/Reference/hierarchy.fig
@@ -0,0 +1,63 @@
+#FIG 2.1
+80 2
+2 1 0 1 -1 0 0 0 0.000 -1 0 0
+	 309 159 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 244 209 274 259 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 304 209 274 259 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 249 209 364 254 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 374 209 364 254 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 279 274 314 304 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 359 269 314 304 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 309 164 249 194 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 309 164 309 199 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 309 164 379 199 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 404 94 439 144 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 404 94 509 144 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 404 94 584 144 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 0 1
+	0 0 1.000 4.000 8.000
+	 404 94 309 149 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 584 229 584 204 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 584 189 584 159 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 9 239 209 A

+4 0 2 12 0 -1 0 0.00000 4 9 9 274 274 D

+4 0 2 12 0 -1 0 0.00000 4 9 8 359 269 E

+4 0 2 12 0 -1 0 0.00000 4 9 9 304 209 B

+4 0 2 12 0 -1 0 0.00000 4 9 8 374 209 C

+4 0 2 12 0 -1 0 0.00000 4 9 8 314 319 F

+4 0 2 12 0 -1 0 0.00000 4 12 48 289 159 <object>

+4 0 2 12 0 -1 0 0.00000 4 11 32 389 89 <top>

+4 0 2 12 0 -1 0 0.00000 4 12 36 424 154 <pair>

+4 0 2 12 0 -1 0 0.00000 4 12 70 474 154 <procedure>

+4 0 2 12 0 -1 0 0.00000 4 9 54 559 154 <number>

+4 0 2 12 0 -1 0 0.00000 4 2 12 629 154 ...

+4 0 2 12 0 -1 0 0.00000 4 9 37 569 199 <real>

+4 0 2 12 0 -1 0 0.00000 4 12 53 559 239 <integer>

diff --git a/Doc/Reference/index.stk b/Doc/Reference/index.stk
new file mode 100644
index 0000000..08f5b4c
--- /dev/null
+++ b/Doc/Reference/index.stk
@@ -0,0 +1,129 @@
+(define main 0)
+(define aux 1)
+
+(define pretty-print (lambda (expr) (format #t "Pretty: ~S\n" expr) expr))
+
+(define every?
+    (lambda (test . lists)
+      (let scan ((tails lists))
+	(if (member #t (map null? tails))             ;(any null? lists)
+	    #t
+	    (and (apply test (map car tails))
+		 (scan (map cdr tails)))))))
+
+(define (make-entry key font main/aux page)
+  (list key font main/aux page))
+(define (entry-key x) (car x))
+(define (entry-font x) (cadr x))
+(define (entry-main/aux x) (caddr x))
+(define (entry-page x) (cadddr x))
+
+(define *database* '())
+
+(define (index-entry key font main/aux page)
+  (set! *database*
+        (cons (make-entry (string-lower key)
+                          font
+                          main/aux
+                          page)
+              *database*))
+  #t)
+
+(define (create-index p)
+  (define (loop)
+    (if (null? *database*)
+        'done
+        (begin (process-key (collect-entries) p)
+               (loop))))
+  (set! *database*
+        (sort *database*
+              (lambda (x y)
+                (string<? (entry-key x)
+                          (entry-key y)))))
+  (loop))
+
+(define (collect-entries)
+  (define (loop key entries)
+    (cond ((null? *database*) entries)
+          ((string=? key (entry-key (car *database*)))
+           (let ((x (car *database*)))
+             (set! *database* (cdr *database*))
+             (loop key (cons x entries))))
+          (else entries)))
+  (loop (caar *database*) '()))
+
+(define (process-key entries p)
+  (let ((entries (sort entries entry<?)))
+    (if (not (consistent? entries))
+        (begin (display "Inconsistent entries:")
+               (newline)
+               (pretty-print entries)
+               (newline)
+               (newline)))
+    (let ((key (entry-key (car entries)))
+          (font (entry-font (car entries)))
+          (main? (entry-main/aux (car entries)))
+          (pages (remove-duplicates (map entry-page entries))))
+      (if main?
+          (write-entries key font (car pages) (cdr pages) p)
+          (write-entries key font #f pages p)))))
+
+(define (entry<? x y)
+  (let ((x1 (entry-main/aux x))
+        (y1 (entry-main/aux y)))
+    (or (< x1 y1)
+        (and (eq? x1 y1)
+             (< (entry-page x) (entry-page y))))))
+
+(define (consistent? entries)
+  (let ((x (car entries)))
+    (let ((key (entry-key x))
+          (font (entry-font x)))
+      (every? (lambda (x)
+                (and (string=? key (entry-key x))
+                     (string=? font (entry-font x))
+                     ;(eq? aux (entry-main/aux x))
+                     ))
+              (cdr entries)))))
+
+(define (remove-duplicates x)
+  (define (loop x y)
+    (cond ((null? x) (reverse y))
+          ((memq (car x) y) (loop (cdr x) y))
+          (else (loop (cdr x) (cons (car x) y)))))
+  (loop (cdr x) (list (car x))))
+
+(define *last-key* "%")
+(define *s1* (string-append "\\item{" (list->string '(#\\))))
+(define *s2* "{")
+(define *s3* "}}\\dotfill\\ ")
+(define *semi* "\; ")
+(define *comma* ", ")
+
+(define (write-entries key font main pages p)
+  (if (and (char-alphabetic? (string-ref key 0))
+           (not (char=? (string-ref *last-key* 0)
+                        (string-ref key 0))))
+      (begin (display "\\indexspace" p)
+	     (newline p)
+	     (display "{\\vskip3mm\\LARGE " p)
+	     (display (string-upper (substring key 0 1)) p)
+	     (display "\\nopagebreak}\\" p)
+             (newline p)))
+  (set! *last-key* key)
+  (display (string-append *s1* font *s2* key *s3*) p)
+  (if main
+      (begin (write main p)
+             (if (not (null? pages))
+                 (display *semi* p))))
+  (if (not (null? pages))
+      (begin (write (car pages) p)
+             (for-each (lambda (page)
+                         (display *comma* p)
+                         (write page p))
+                       (cdr pages))))
+  (newline p))
+
+(load "manual.idx")
+(define p (open-output-file "index.tex"))
+(create-index p)
diff --git a/Doc/Reference/manual.ps b/Doc/Reference/manual.ps
new file mode 100644
index 0000000..5ba7a80
--- /dev/null
+++ b/Doc/Reference/manual.ps
@@ -0,0 +1,17478 @@
+%!PS-Adobe-2.0
+%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
+%%Title: manual.dvi
+%%Pages: 78
+%%PageOrder: Ascend
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%EndComments
+%DVIPSCommandLine: dvips -t a4 -f manual.dvi
+%DVIPSParameters: dpi=300, compressed, comments removed
+%DVIPSSource:  TeX output 1996.09.25:1558
+%%BeginProcSet: texc.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
+forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
+/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
+/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
+/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
+string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
+end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
+/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
+N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
+length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
+128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
+get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
+dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
+/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
+/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
+0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
+setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
+.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
+/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
+gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
+add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
+/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
+dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
+adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
+idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
+adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
+{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
+adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
+chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
+}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
+length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
+cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
+0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
+add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
+/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
+RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
+false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
+round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
+rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
+{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
+B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
+4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
+p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
+a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+%%BeginProcSet: special.pro
+TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
+/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
+false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
+/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
+div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
+/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
+10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
+/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
+true def end /@MacSetUp{userdict /md known{userdict /md get type
+/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
+length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
+N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
+clippath mark{transform{itransform moveto}}{transform{itransform lineto}
+}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
+itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
+closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
+0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
+/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
+scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
+ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
+not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
+TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
+pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
+-1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
+TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
+sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
+0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
+2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
+{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
+div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
+N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
+maxlength dict begin /magscale true def normalscale currentpoint TR
+/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
+/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
+psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
+scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
+/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
+begin /SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
+{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
+}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
+end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
+N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
+/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
+SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
+/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
+yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
+%%EndProcSet
+TeXDict begin 39158280 55380996 1000 300 300 (manual.dvi)
+@start /Fa 24 91 df<1403A34A7EA24A7EA3EC17E01413A2EC23F01421A2EC40F8A3EC
+807CA2903801007E153EA20102133F81A2496D7EA3496D7EA2011880011FB5FCA2903920
+0003F01501A2496D7EA349147CA20001157E90C8123EA248153F825AD81F80EC3F80D8FF
+E0903801FFFCA22E327EB132>65 D<B612E015FC3907E0003E0003EC0F80ED07C0ED03E0
+150116F0150016F8A616F01501A2ED03E0ED07C0ED0F80ED1F00157C90B55A9038E0001F
+ED0780ED03E0ED01F0ED00F81678167CA2163EA7167CA316F8ED01F0ED03E0ED07C00007
+EC3F80B6EAFE0015F827317CB02F>I<91383FE001903901FFF803903807F01E90391F80
+0307013EC712870178144F49142F4848141F4848140F485A000F150790C8FC481503121E
+123E003C1501127CA30078150012F8AB1278127C1601A2123C123E121E001F15027E6D14
+06000715046C6C14086C7E6C6C141001781420013E14C090391F800380903907F00F0090
+3801FFFC9038003FE028337CB130>I<B612E015FC3907E0007F0003EC0F80ED03C06F7E
+6F7E16788282A282A21780160717C0A21603A217E0AB17C0A21607A21780A2160F17005E
+161E5E5E16F84B5A4B5AED0F800007023FC7FCB612FC15E02B317CB033>I<B712F0A239
+07E0000700031400167816381618A21608A41604A315401600A415C0A2140390B5FCA2EB
+E0031400A21540A31601A215001602A41606A21604160CA2161C163C16FC0007EC07F8B7
+FCA228317DB02D>I<B712E0A23907E0000F00031401ED00F016701630A21610A41608A3
+15401600A415C0A2140390B5FCA2EBE0031400A21540A592C7FCAD487EB512C0A225317D
+B02B>I<DA1FE013809138FFFC01903807F00F90390F800183013EC712C3017814274914
+174848140F485A48481407160348C8FC481501121E123E123C1600127CA20078160012F8
+AA92380FFFFC1278007C9138001FC0EE0F80123CA2123E121E121F7E6C7E7F12036C7E6C
+6C1417137C6D1463D90F8013C3903907F00781903900FFFE00DA1FF013002E337CB134>
+I<B539807FFFC0A23B07F00003F8006C486D5AB3A290B6FCA29038E00001B3A3486C497E
+B539807FFFC0A22A317CB032>I<B51280A23807F0006C5AB3B3A7487EB51280A211317D
+B017>I<B56CEB7FF0A2D807F0C7EA1F806C48EC1E00161816105E5E5E4BC7FC15025D5D
+5D5D5D5D4AC8FC14021406140F4A7E142FEC47C0EC87E0EBE1039038E201F001E47FEBE8
+0001F07F49137C81153F816F7E8215076F7E8215016F7E82167C167E163E163F486CEC7F
+C0B5398001FFF8A22D317CB034>75 D<B512C0A2D807F0C8FC6C5AB3AA1620A41640A416
+C0A21501A21503ED0780151F0007147FB7FCA223317DB029>I<D8FFF0ED7FF8A2000717
+00D802F815BEA3017CEC013EA26D1402A36D1404A36D6C1308A36D6C1310A36D6C1320A2
+6D6C1340A36D6C1380A391387C0100A3EC3E02A36E5AA2EC0F88A3EC07D0A3EC03E0A300
+076D5AD80F80157FD8FFF891380FFFF8EC008035317CB03D>I<D8FFE0903807FFC07F00
+039138007C00D802F814386D1410137C7FA27F80130F6D7E8013038013016D7E80147C14
+7E143E801580140F15C01407EC03E015F01401EC00F8A2157C157E153E151FA2ED0F9016
+D01507ED03F0A21501A2150016701207486C1430EAFFF816102A317CB032>I<EC3FC090
+3801C038903807000E011CEB0380496D7E01F0EB00F04848147848488049141C0007151E
+48C87EA2001EED0780A248ED03C0A2007C16E0A200781501A200F816F0AB007CED03E0A4
+003C16C0003E1507001E1680A26CED0F00A26C6C141E6C6C5CA26C6C5C6C6C5C0138EB01
+C06D495A0107010EC7FC903801E0789038003FC02C337CB134>I<B612E015FC3907E000
+3F0003EC0F80ED03C0ED01E016F0ED00F8A21678167CA6167816F816F0150116E0ED03C0
+ED0F80ED3E0090B512F801E0C8FCB3A3487EB57EA226317DB02D>I<EC3FC0903801C038
+903807000E011CEB0380496D7E01F0EB00F04848147848488049141C0007151E48C87EA2
+001EED0780A2003E16C0003C1503007C16E0A30078150100F816F0AB007816E0007C1503
+A3003C16C0003E1507001E1680A26CED0F00140F3A078010401E0003903820201C9039C0
+40103CD801E05CD800F06D5A0138EB09C0011CEB0B80902607200EC7FC902601D03C1310
+9038003FCCEC0004A215061730150717601680923803C1E0EEFFC08117806F1300163E2C
+407CB134>I<B6FC15F03907E001FC0003EB003EED0F806F7E6F7E150182150082A65E15
+015E4B5A4B5A4BC7FC153CEC01F090B5C8FC9038E001F0EC007C151E6F7E1507826F7EAB
+1708A21501A2486C903800F010B56C1370EE3860C9EA0F802D327CB031>I<90387F8020
+3801FFE03907C07860380F001C001EEB06E048130300381301007813001270156012F0A2
+1520A37E1500127C127E7E13C0EA1FF86CB47E6C13F06C13FCC613FF010F1380010013C0
+EC1FE01407EC03F01401140015F8A26C1478A57E15706C14F015E07E6CEB01C000ECEB03
+8000C7EB070038C1F01E38807FFCEB0FF01D337CB125>I<007FB712E0A23A7E000F8007
+00781501007015000060166000401620A200C01630A2481610A6C71500B3AC4A7E010FB5
+7EA22C317EB030>I<B5398007FFC0A2D807F0C7EA7C006C4814381610B3AF00015D7FA2
+00005DA201785C6D130193C7FC6D1306903807800C903803E078903800FFF0EC3F802A32
+7CB032>I<D8FFFEEC07FFA2D807F0EC01F849EC00E0000316407F00011680A26D140100
+001600A2017C1402A2137E013E5CA26D5CA280010F5CA26E133001071420A26D6C5BA280
+01015CA26D6C48C7FCA214FCEC7C02A2EC7E06EC3E04A26E5AA21588EC0F90A2EC07E0A3
+6E5AA36E5AA230327FB032>I<D8FFFE903B3FFF8001FFC0A2D80FE0D903F8C7EA7E006C
+480101151C19186C6C01001510A2826C6C5FA36DEB013E000060A2ED021F017C5FA24B6C
+7E6D4CC7FCA217C06DD908071302A3913A801003E006010F1604A29139C02001F001075E
+A292384000F8D903E05DA203C013FC6D6C48EB7C20A2177E02F9C7EA3E6001001640A202
+FE141F027E5DA2027C140F023C92C8FCA202388002181406A342327FB044>I<267FFF80
+EBFFF8A2D803FEC7EA3F806C48EC1E0000001518017E141016306D14206D6C5B16C06D6C
+5B6D6C48C7FC0103130214F06D6C5A01005B14FCEC7E10EC3E20EC3F606E5A6E5A816E7E
+14034A7EEC05F814084A7E157EEC203EEC403F9138C01F80EC800FD901007F496D7E0102
+13034980010C6D7E0108130049800130147E0120143E49143F01C0EC1F801201D80FE0EC
+3FE0D8FFF891B5FCA230317FB032>I<003FB6FCA29038E0003E90C7FC003C5C003814FC
+00305C4A5A5A4A5AA24A5A0040130F5D4AC7FCA2C7123E147E147C5CA2495AA2495A1307
+5C495AA249C8FCA2013E1480137E137C5BA2485A000314015B485A160048485BA248C75A
+485C003E5C485C4AB4FCB7FCA221317CB028>90 D E /Fb 2 84
+df<90B512C090380F0078151C81011E130F811680A249EB0F00A3151E495B5D15E0EC03
+80D9FFFCC7FCEBF0076E7E8148486C7EA44848485AA44848485A1680A29138038100120F
+39FFF801C6C8127821237DA125>82 D<903803F81090380E0420903818026090382001E0
+EB400001C013C05B1201A200031480A21500A27FEA01F013FE3800FFE06D7EEB1FF8EB01
+FCEB003C141C80A30020130CA3140800601318141000705B5C00C85BD8C603C7FCEA81FC
+1C247DA21E>I E /Fc 14 116 df<91387FC020903903FFF0E090380FE03990383F001F
+01FCEB0FC048481307485A485A000F1580491303485A003F1407160048C9FCA312FEA45A
+A2151CA25DA2007C5C007E5C003E495A003F495A6C6C48C7FC3807E03E3803FFF838007F
+C0232277A129>67 D<90B51280A2903807F000130FA25CA2131FA25CA2133FA25CA2137F
+A291C7FCA25BA25BA21201A25BA21203A25BA21207B57EA219227DA117>73
+D<D9FFF8EC7FF817FF01074A1300130F6E495A130EEE077E011EEC0EFE5F011C141C1638
+D93C7E1339EE71F8013814E1A20178EB01C35F0170EB0383ED0703D9F03F1307030E5B01
+E0131CA20001EC380F5F01C01370EC1FE00003151F03C05B01801380A20007EC003F3BFF
+F81E07FFF8140E35227CA135>77 D<90B512FCEDFF80903907F00FE0010FEB03F016F8EC
+E001A2131F150314C0A2013FEB07F016E09138800FC0ED1F80017FEB7F00ECFFFC15F0EC
+01FC496C7E157F5BA200015CA2495BA212030201131C01F813FC0200133C0007ECFE38B5
+38C07FF0ED0FC026227CA12B>82 D<903801FC0890380FFF3890381E07F8EB3C01017813
+F0EBF0001201A2000314E0A215007F13FF14E014FC6C7F807E013F13801307EB007F143F
+141FA200381400A3141E00785B127C007E5B387F81F038E3FFC000C090C7FC1D227BA120
+>I<B538C1FFF8A23A07F0001F00000F141E151C5BA2001F143C15385BA2003F14781570
+5BA2007F14F05D90C7FCA24813015D5AA214035D5A14074AC7FC140E007E5B14786C485A
+380FFFC0D801FEC8FC252274A12C>85 D<EB1FC0EB7FF03801F0783807C0F8EA0F81A2EA
+1F01383F00E0003E1300127EA35AA3127C141014386C13F0381F03E0380FFFC03803FE00
+15167B951B>99 D<EB3F803801FFE03803E0F0380F8070EA1F005A123E007E13E0387C03
+C0B51280EBFE0000FCC7FC5AA414201470387C01E0383E07C0381FFF803807FC0014167A
+951B>101 D<EA0FF8A2EA01F0A21203A25BA21207A25BA2120FEBCFE0EBBFF0EBF07838
+1FE07C13C0138013005A5C123EA2387E01F0A2127C903803E38012FCECE70038F807C714
+C6EB03CE38F001FC38E000F019237BA21D>104 D<1338137C13FCA213F813701300A8EA
+0780EA1FC0EA39E0EA71F0A2EAE3E0A3EA07C0A2EA0F80A3EA1F00131CA2EA3E38A21370
+1360EA1FC0EA07800E247BA312>I<EA0FF8A2EA01F0A21203A213E0A21207A213C0A212
+0FA21380A2121FA21300A25AA2123EA2127EA2127C13E012FCEAFDC012F9A2EA7980EA3F
+00121E0D237BA20F>108 D<3A0F01FC07F03A1FC7FE1FF83A33EE0F383CD873FCEBF03E
+D863F813E0D8E3F013C001E01380A23A07C01F007CA35E380F803EA2923801F0E0A2261F
+007CEBF1C0ED03E1EEE380923801E700001E90387800FE001C0170137C2B167B952F>I<
+3801E07E3903F9FF8039077FC3C0EC03E0390E7E01F0137CA213FC0000130313F8A21201
+EC07E013F015C00003130F1580EC1F00141E3807F87CEBFFF8EBCFC001C0C7FC120FA25B
+A2121FA290C8FCEAFFE0A21C207F951D>112 D<133FEBFFC03801C1E0EA038113031207
+EB01C0EBC00013FC13FF6C13806C13C038003FE01303EA3C01127C00FC13C0A238F80380
+38780F00EA3FFEEA0FF013167C9518>115 D E /Fd 3 108 df<3801F8083807FF18381E
+0398383800F800301378007013380060131812E01408A36C13001278127CEA3F8013F86C
+B4FC000713C0000113E038001FF01301EB00781438143C141C7EA46C13186C1338143000
+F8136038CF01E038C7FF803880FE0016247CA21E>83 D<007FB6FCA2397801E00F006014
+0381124000C01580A200801400A400001500B3A290B512C0A221227DA127>I<39FFC01F
+C0391E000F00140C5C14101460148049C7FC13025B130C131E133E134FEB8F80EA1F0738
+1E03C08013016D7E80147880143E143F39FFC07FC01A1A7E9920>107
+D E /Fe 6 116 df<DAFFC01330010701F81370011F01FF13F090397F003F80D801FCEB
+07E1D803F0EB01F34848EB007B4848143F4848141F90C8120F123E1607007E1503127C16
+0112FC1600A37E17707EA27F6C6C15007F7FEA3FFCEBFF806C13F86CEBFF8015FC6CECFF
+806C15E0C615F86D14FE011F8001071580D9007F14C0020714E0DA007F13F01507923800
+7FF8163FEE0FFC1607160317FE160112E01600A2177EA37EA2177C7E17FC6C16F8A26CED
+01F06C15036D15E06DEC07C0D8FDF0EC0F80D8FCFCEC1F00D8F87F147E3AF01FF003FC01
+07B512F048C614C048D90FFEC7FC2F4979C73F>83 D<003FBA12E0A39026FC0007EB0001
+01C06D48EB001F49170F007EC7EE03F0007C1801A200781800A300701970A500F0197848
+1938A5C81700B3B3A64B7E031F13C049B712FCA345467BC551>I<B500F8903801FFFEA3
+000790C813F0D801FC1680EFFE005FEE01F04C5A4C5A4C5A4CC7FC163E16785E4B5AED07
+C04B5A4BC8FC153E5D15FC14014A7EEC0FFF4A6C7EEC3E3F027C7F4A6C7E9039FDE00FF0
+EBFFC04A6C7E4A6C7E496D7E5B6F7E707E707EA2707E707E707EA2707E707E707EA21880
+18C0D807FF16F0B500F8010713FFA338357BB442>107 D<B512FEA3000790C9FCEA01FE
+5BB3AA1770A417F017E0A31601A21603A21607160F161FEE7FC0D807FEEB03FFB8FCA32C
+357BB435>I<EC03FF023F13F09138FE01FC903903F0003FD90FE0EB1FC0D91F80EB07E0
+49C76C7E017E6E7E496E7E4848157E0003167F4848ED3F80000F17C049151F001F17E0A2
+4848ED0FF0A3007F17F8491507A200FF17FCAB007F17F86D150FA3003F17F06D151F001F
+17E0A26C6CED3FC0A26C6CED7F80000317006C6C15FE6D140100005E017F4A5AD91FC0EB
+0FE06D6C495AD903F8017FC7FC903900FE01FC91383FFFF0020390C8FC36377AB542>
+111 D<D90FF813C090387FFF0148B512C33903F007E7390FC000FF4848137F90C7123F00
+3E141F48140F1507127800F81403A46C1401A27E6C91C7FC6C7E13E0EA3FFCEBFFC06C13
+FC6CEBFFC06C14F0000114FC6C6C13FF011F1480010114C0EB001F020013E0ED3FF0150F
+1507ED03F8A200E01401A21500A37EA26CEC01F0A26C15E06C14036CEC07C06DEB0F80D8
+FBE0EB1F00D8F9FE13FE39F07FFFF8D8E01F13E0D8C001138025377BB52F>115
+D E /Ff 3 115 df<EA03E0EA0FF8EA1E3CEA3C1C1278EA703CEAF0F8EAFFE01380EAE0
+00A31318EA707CEA7FF8EA1FE00E107A8F14>101 D<EA03E0EA0FF8EA1E38EA3C1C1278
+127012F012E0A2133C1338137813F0EA71E0EA7FC0EA1F000E107B8F14>111
+D<EA387E387FFF80EAFFC3EAEF83130300FEC7FC121EA2121C123CA21238A21278A21230
+11107B8F14>114 D E /Fg 14 118 df<127812FCA412781200A5127812FCA412780611
+7D900C>58 D<EA1FF0EA303CEA701EEAF81FA3EA703EEA007C13F013C0EA0180A2EA0300
+A4C7FCA4EA0780EA0FC0A4EA0780101A7E9915>63 D<EA1FF0EA383CEA7C1E7FA2123812
+0013FFEA0FCFEA3E0F127C12F8A31317387C27E0EA1FC313117F9015>97
+D<12FCA2123CA713FE383F8780383E01C0003C13E0EB00F0A214F8A514F0A2EB01E0003E
+13C0383B07803830FE00151A7E9919>I<EA03FCEA0F0EEA1C1F123C1278130E00F8C7FC
+A51278A2383C0180381C0300EA0F06EA03FC11117F9014>I<EB07E0A21301A7EA03F9EA
+0F07EA1C03EA3C011278A212F8A51278A2123CEA1C03380F0DF8EA03F9151A7F9919>I<
+EA03F0EA0E1C487EEA3C071278148012F8A2B5FC00F8C7FCA21278A2383C0180381C0300
+EA0E06EA03FC11117F9014>I<3807F1C0381C1EE0EA380E38780FC01400A4EA380E6C5A
+EA37F00020C7FC1230A2EA3FFE381FFF8014C0EA700338E000E0A4387001C0383C078038
+07FC0013197F9016>103 D<12FCA2123CA7EB1FC0A2EB0E005B5B13605BEA3FE07FEA3E
+78EA3C387F131E7F7F38FF0FE0A2131A7E9917>107 D<39FC3E03E09038C78C78393D03
+9038003EEBE03CA2003C13C0AA39FF0FF0FFA220117E9025>109
+D<EAFC3EEBC780EA3D03003E13C0A2123CAA38FF0FF0A214117E9019>I<EA03F8EA0E0E
+383C0780EA3803007813C0A200F813E0A6007813C0EA7C07003C1380380E0E00EA03F813
+117F9016>I<EAF8F0EAF938EA3A7CA2123C13381300A9EAFF80A20E117E9012>114
+D<38FC0FC0A2EA3C03AB1307A2381E0BF0EA07F314117E9019>117
+D E /Fh 3 108 df<EA07E1EA181BEA2007EA600312C07FA36CC7FC1270127EEA3FE0EA
+1FFCEA03FEEA003F1307EB0380A2EA8001A300C013005BEAE002EADC0CEA83F0111A7D99
+17>83 D<007FB5FC38701C0700401301A200C0148000801300A300001400B13803FFE019
+1A7E991D>I<38FF81F8381C01E01480EB030013045B5B5B137013F8EA1F38EA1C1C7FA2
+7FEB038014C014E038FF87F815137F9218>107 D E /Fi 2 84 df<3803FFF83800700F
+EC0780140301E013C0A43901C007801500141E14783803FFC0EB8060801438EA0700A400
+0E1378A21540158048133C39FFC01F001A1A7E991D>82 D<EB1F08EB60D8EB8038EA0100
+4813101206A31400120713C0EA03FC6CB4FC38007F80EB0FC01301A213001220A2386001
+80A2EB0300EA7006EACC1CEA83F0151A7E9917>I E /Fj 31 120
+df<1230127812F0126005047C830C>46 D<140C141C141814381470146014E014C01301
+1480130314005B130E130C131C13181338133013705B5B12015B120390C7FC5A1206120E
+5A1218123812301270126012E05A16257F9B14>I<1206120F121E120C1200A812301278
+12F0126008107C8F0C>58 D<3803FFF83800700E1406140713E0A43801C00E141C143814
+703803FFE0EB80781438141CEA0700A4000E1338A2147014E0381C03C0B51200181A7D99
+1B>66 D<EB0F82EB7062EBC0163803801E3807000C120E5A121800381308123000701300
+A25AA41420A314401260148038300100EA1006EA0C18EA03E0171A7A991B>I<EA03FFEA
+0070A313E0A4EA01C0A4EA0380A4EA0700A4120EA45AEAFF80101A7D990F>73
+D<EA03FFEA0070A35BA4485AA4485AA448C7FC1410A21420120E1460144014C0381C0380
+B5FC141A7D9918>76 D<3903F007F839007800C01580A290389C0100A3138E38010E0213
+061307A238020384A3EB01C4000413C8A2EB00E8A24813F01470A21218142012FE1D1A7D
+991D>78 D<3803FFF03800701C140E140713E0A43801C00E141C143814E03803FF80EB80
+C014601470EA0700A4000E13E0A214E114E248136238FF803C181A7D991C>82
+D<EB3F10EB60903801807013004813201206A31400120713C0EA03F8EA01FEEA007FEB0F
+8013031301A21220A238600300A21306EA700CEAC818EA87E0141A7D9916>I<EA03CCEA
+0E2EEA181C123812301270EAE038A4EAC072A3EA60F2EA6134EA1E180F107C8F14>97
+D<127E120EA35AA45AA2EA3BC0EA3C301278EA7018A3EAE038A4EAC070136013E0EA60C0
+EA6380EA1E000D1A7C9912>I<EA01E0EA0618120CEA1838EA3010EA7000126012E0A413
+081310EA6020EA30C0EA1F000D107C8F12>I<EB1F801303A3EB0700A4130EA2EA03CEEA
+0E2EEA181C123812301270485AA4EAC072A3EA60F2EA6134EA1E18111A7C9914>I<EA01
+E0EA0E18EA1C08123812701310EAFFE0EAE000A41308EA60101320EA30C0EA1F000D107C
+8F12>I<1307EB0980131BEB3B00133813301370A4EA07FFEA00E0A5485AA5485AA490C7
+FC5AA21206126612E412CC1270112181990C>I<13F338038B8038060700120E120C121C
+EA380EA4EA301CA3EA183C5BEA07B8EA0038A25B1260EAE0E0EAC1C0007FC7FC11177E8F
+12>I<EA1F801203A348C7FCA4120EA2137CEA0F86EA1E07A2121CA2EA380EA35B007013
+80A21338EB3900EAE019EA600E111A7E9914>I<1203120712061200A61238124C124E12
+8E129CA2121C1238A212701272A212E212E41264123808197C980C>I<121F1207A3120E
+A4121CA41238A41270A412E4A412E81230081A7D990A>108 D<38307C1E38598663399E
+0783801403129CA239380E0700A3140ED8701C1340A2141C158038E0380C39601807001A
+107C8F1F>I<EA307CEA5986EA9E07A2129CA2EA380EA35B00701380A21338EB3900EAE0
+19EA600E11107C8F16>I<EA01F0EA0618EA0C0CEA180E12301270126012E0A2130C131C
+13181330EA6060EA30C0EA1F000F107C8F14>I<EA030F380590C0EA09E0EBC060A33803
+80E0A4380701C0148013031400EA0E8E137890C7FCA25AA4B4FC1317808F14>I<EA03C2
+EA0E2EEA181C123812301270EAE038A4EAC070A3EA60F0EA61E0121E1200A2EA01C0A4EA
+1FF00F177C8F12>I<EA30F0EA5D18EA9E38EA9C181300A25AA45AA45A12600D107C8F10>
+I<EA03E0EA04301208EA18701360EA1C00EA1F8013C0EA0FE01200136012E0A2EA80C0EA
+4180EA3E000C107D8F10>I<1206120EA45AA2EAFFC0EA1C005AA45AA412E1A312E212E4
+12380A177C960D>I<EA3806EA4C07EA4E0E128E129CA2EA1C1C1238A3EA7039A3EA3079
+EA389AEA0F0C10107C8F15>I<EA3818EA4C1C124EEA8E0C129CA2EA1C081238A2131012
+70A21320EA3040EA18C0EA0F000E107C8F12>I<38380C10384C0E38EA4E1C008E131812
+9CA2381C38101238A338707020A2144012303818B880380F0F0015107C8F19>I
+E /Fk 6 106 df<B61280A219027D8A20>0 D<EA07E0EA1FF8EA3FFCEA7FFEA2B5FCA6EA
+7FFEA2EA3FFCEA1FF8EA07E010107E9115>15 D<133C13E0EA01C013801203AD13005A12
+1C12F0121C12077E1380AD120113C0EA00E0133C0E297D9E15>102
+D<12F0121C12077E1380AD120113C0EA00E0133C13E0EA01C013801203AD13005A121C12
+F00E297D9E15>I<13C0A21201138012031300A25A1206120E120CA2121C121812381230
+A21270126012E05AA27E126012701230A212381218121C120CA2120E120612077EA21380
+120113C01200A20A2A7D9E10>I<12C0A27E126012701230A212381218121C120CA2120E
+120612077EA21380120113C01200A21201138012031300A25A1206120E120CA2121C1218
+12381230A21270126012E05AA20A2A7E9E10>I E /Fl 5 106 df<141880A280140780B6
+12C081C81238151EED0780ED0E0015385DB612C05DC70003C7FC1406A25CA25C21167E93
+26>41 D<133C13E0EA01C0EA0380ADEA0700121E12F8121E1207EA0380ADEA01C0EA00E0
+133C0E257E9B13>102 D<12F8121E1207EA0380ADEA01C0EA00E0133C13E0EA01C0EA03
+80ADEA0700121E12F80E257E9B13>I<EA0180A2120313005A1206A2120E120C121C1218
+A212381230A21270126012E05AA27E126012701230A212381218A2121C120C120E1206A2
+12077E13801201A209267D9B0F>I<12C0A27E126012701230A212381218121C120CA212
+0E1206A212077E13801201A2120313005A1206A2120E120CA2121C121812381230A21270
+126012E05AA209267E9B0F>I E /Fm 45 122 df<126012F0AB1200A4126012F0A21260
+0414799312>33 D<1203A3EA0F80EA3FE0EA7370EAE378EAC338A2EAE310EAF300127FEA
+3FC0EA0FF012031338EAE318A3EAF338EA7370EA3FE0EA0F80EA0300A30D1A7E9612>36
+D<1230127CA2123C120CA3121C1238123012F012C0060C7A9312>39
+D<EA01801207EA0F00121E5A12381278127012F05AA77E127012781238123C7E7EEA0780
+120109197B9612>I<12C012F012787E7E120E120F7E13801203A7120713005A120E121E
+5A5A5A12C009197D9612>I<1207A3EAE738EAFFF8EA7FF0EA1FC0A2EA7FF0EAFFF8EAE7
+38EA0700A30D0E7E9012>I<EA0380A6EAFFFEA3EA0380A60F0F7F9112>I<EAFFF8A30D03
+7E8B12>45 D<126012F0A212600404798312>I<131813381378137013F013E0A2120113
+C01203138012071300A25A120E121E121C123C1238A21278127012F05AA20D1A7E9612>
+I<EA07C0EA0FE0EA1C70EA3838EA701CA2EAE00EA7131EEA701CA2EA3838EA1C70EA0FE0
+EA07C00F147F9312>I<1206120EA2123E12FE12EE120EACEAFFE0A20B147D9312>I<EA0F
+80EA3FE0EA70F0EAF078EAE038A2124012001378137013F0EA01E0EA03C0EA0780EA0F00
+121EEA38381270EAFFF8A20D147E9312>I<EA0FC0EA3FF0EA783CEA701CA21200133C13
+78EA07F0A2EA003C131C130EA212E0A2131CEAF83CEA3FF0EA0FC00F147F9312>I<13F0
+1201EA0370A21206120E120C121C1238A2127012E0EAFFFEA2EA0070A4EA03FEA20F147F
+9312>I<126012F0A212601200A6126012F0A21260040E798D12>58
+D<12301278A212301200A612301278A2123812181238123012F012C005137A8D12>I<13
+38137813F8EA01E0EA07C0EA0F80EA1F00123C12F85A7E123C121FEA0F80EA07C0EA01E0
+EA00F8137813380D137E9312>I<12E07E7E123C121FEA0F80EA07C0EA01E0EA00F81378
+13F8EA01E0EA07C0EA0F80EA1F00123C12F85A5A0D137E9312>62
+D<EAFFFEA2EAE38EA3EA0380ADEA1FF0A20F147F9312>84 D<EAFC7EA2EA783CEA3838A4
+EA1C70A4EA0C60EA0EE0A3EA06C0A21207A2EA03800F147F9312>86
+D<EA1FC0EA3FF0EA3838EA101C1200EA07FC123FEA781C12F012E0A2EAF03C387FFF80EA
+1FCF110E7F8D12>97 D<12FCA2121CA4EA1DF0EA1FF8131EEA1E0EEA1C0F1307A4130FEA
+1E0EEA1F1C13F8EA1DE01014809312>I<EA07F0EA1FF8EA3838EA7010EAF0005AA47EEA
+7038EA3878EA1FF0EA07E00D0E7E8D12>I<EA01F8A2EA0038A4EA07B8EA1FF8EA387812
+70EAF03812E0A412F0EA7078EA78F8EA1FFFEA0FBF10147F9312>I<EA0780EA1FE0EA38
+F0EA7078EAF03812E0EAFFF8A2EAE0007EEA7038EA3878EA1FF0EA07C00D0E7E8D12>I<
+137EEA01FFEA03C713821380A2EAFFFEA2EA0380AAEA7FFCA21014809312>I<EA0F9EEA
+1FFFEA38E7EA7070A4EA38E0EA3FC0EA7F80EA7000EA3FE013F8EA7FFCEAF01EEAE00EA3
+EAF01EEA783CEA3FF8EA0FE010167F8D12>I<12FCA2121CA413F0EA1FF8131C121E121C
+A838FF9F80A21114809312>I<1206120FA21206C7FCA3B4FCA21207AAEAFFF8A20D157D
+9412>I<12FCA2121CA4EA1DFFA2EA1C785BEA1DE0EA1FC07FA2EA1EF0EA1C787FA238FF
+3F80A21114809312>107 D<B4FCA21207B0EAFFF8A20D147E9312>I<EAFB8EB51280EA3E
+FBEA3CF3EA38E3A838FEFBE0A2130E818D12>I<EAFCF0B47EEA1F1C121E121CA838FF9F
+80A2110E808D12>I<EA0F80EA3FE01238EA7070EAE038A5EAF078EA7070EA38E0123FEA
+0F800D0E7E8D12>I<EAFDF0EAFFF8EA1F1EEA1E0EEA1C0F1307A4130FEA1E0EEA1F1C13
+F8EA1DE0EA1C00A5EAFF80A21015808D12>I<EA079CEA1FFCEA387CEA703CEAF01C12E0
+A412F0EA703CEA387CEA1FFCEA079CEA001CA5EBFF80A211157F8D12>I<EAFE3C13FEEA
+0FCE13841300120EA7EAFFF0A20F0E7F8D12>I<EA1FF0127FEAE07012C0EAE000B4FCEA
+3FE0EA0FF0EA0078EAE018A2EAF038EAFFF0EADFC00D0E7E8D12>I<120EA4EAFFF8A2EA
+0E00A7131CA2EA0F3CEA07F8EA01E00E127F9112>I<EAFCFCA2EA1C1CA9133C380FFF80
+EA07DF110E808D12>I<EAFEFEA2EA3838A2EA1C70A3EA0EE0A4EA07C0A2EA03800F0E7F
+8D12>I<38FF7F80A238380E00A3EA180CEA1DDCEA1FFCA2EA1D5C121CEA0E78A3110E80
+8D12>I<EAFCFEA2EA1CF0EA0EE0EA0FC01207EA0380120713C0EA0EE0EA1EF0EA1C70EA
+FEFEA20F0E7F8D12>I<EAFEFEA2EA3838121C1370A2120E136013E01206A2EA07C01203
+A21380A3EA7700127F127E12380F157F8D12>I E /Fn 21 119 df<EB0180A21303A213
+07A2130B1313A2EB21C0A213411381A2EA010113FFEA0201A212041208A2001813E038FE
+07F815177E961A>65 D<EA03FEEA00E0A4485AA4485AA448C7FC1420A21440120E14C014
+801301EA1C07B5120013177E9616>76 D<3803FFE03800E038141CA3EA01C0A314383803
+8070EB81C0EBFF00EB8180380700C014E0A3380E01C0A214C2A2381C00C438FF80781717
+7E961A>82 D<EB7C4038018280EA03011206A2000C1300A2000EC7FCA2EA0FC0EA07F86C
+7EEA007C130EA213061220485AA2EA60085BEAD860EA87C012177D9614>I<EA0390EA0C
+701218EA303013601260A3EAC0C013C812401241EA62D0EA1C700D0E7C8D12>97
+D<EA07C0EA0C60EA30E01220EA60005AA35AA2EAC0201340EA6180EA3E000B0E7C8D10>
+99 D<133E130CA41318A4EA03B0EA0C701218EA303013601260A3EAC0C013C812401241
+EA62D0EA1C700F177C9612>I<EA0780EA1840EA302012601340EAFF80EAC000A4132013
+40EA6180EA3E000B0E7C8D10>I<EA01C4EA063CEA0C1C121813181230A3EA2030A3EA30
+70EA11E0EA0E601200A2EA60C012E0EAC380EA7E000E147E8D10>103
+D<121F1206A45AA4EA19E0EA1A30EA1C101218EA3030A4EA6060136413C413C8EAC04813
+700E177D9612>I<1203120712061200A61218122C124CA2128C1218A312301232126212
+641224123808177D960B>I<123E120CA41218A41230A41260A412C012C8A312D0126007
+177D9609>108 D<3830783C38498CC6384E0502EA4C06389C0E06EA180CA348485A1580
+1418A23960300900140E190E7D8D1D>I<EA3078EA498CEA4E04124CEA9C0C1218A3EA30
+1813191331A2EA6012131C100E7D8D14>I<EA0780EA18C0EA3040EA6060A212C0A3EA80
+C0A2EA8180EAC1001246123C0B0E7B8D12>I<EA0C38EA12C4EA1306A212261206A3EA0C
+0CA213181310EA1A20EA19C0EA1800A25AA312FC0F147F8D12>I<EA30F0EA4B18EA4E38
+EA4C30EA98001218A35AA45AA20D0E7D8D0F>114 D<EA0780EA0C40EA18E0A2EA380012
+1EEA1F80EA07C01200126012E0EAC180EAC300123E0B0E7D8D0F>I<1206A25AA4EAFF80
+EA1800A35AA45A1261A212621264123809147D930C>I<EA3804EA2C0C124CA2EA8C1812
+18A3EA30301332A21372EA18B4EA0F1C0F0E7D8D13>I<EA3810EA2C18124CA2EA8C1012
+18A3EA3020A21340A2EA1880EA0F000D0E7D8D10>I E /Fo 55 122
+df<EBFCF83807839CEA0E07001C13081400A5B512E0381C0700AC387F1FE01617809615>
+11 D<13FCEA0782EA0E07121C130290C7FCA4B5FCEA1C07AC387F1FC01217809614>I<12
+6012F0A212701210A21220A21240A2040A7D960A>39 D<120112021204120C1218A21230
+A212701260A312E0AA1260A312701230A21218A2120C12041202120108227D980E>I<12
+801240122012301218A2120CA2120E1206A31207AA1206A3120E120CA21218A212301220
+1240128008227E980E>I<126012F0A212701210A21220A21240A2040A7D830A>44
+D<EAFF80A2090280870C>I<126012F0A2126004047D830A>I<EA07C0EA1830EA3018EA70
+1CEA600CA2EAE00EA9EA600CA2EA701CEA3018EA1C70EA07C00F157F9412>48
+D<1206120E12FE120EB1EAFFE00B157D9412>I<EA0FE0EA3030EA6018EA701CA2120013
+1813381360EA07E0EA00301318130C130EA212E0A2EAC00CEA4018EA3030EA0FE00F157F
+9412>51 D<1330A2137013F012011370120212041208121812101220124012C0EAFFFEEA
+0070A5EA03FE0F157F9412>I<EA6030EA7FE013C0EA44001240A4EA4F80EA70E0EA4070
+EA00301338A2124012E0A2EA8030EA4060EA20C0EA1F000D157E9412>I<126012F0A212
+601200A6126012F0A21260040E7D8D0A>58 D<13FCEA0303380C00C00010132038207810
+EA218438430208384701C8008613C4128EA512861247EA4303382184C8382078706CC7FC
+000C131C000313F03800FF0016177E961B>64 D<EAFFFE381C0380EB00E014601470A414
+E0EB01C0381FFF8014C0381C00E0147014301438A4147014E0EB01C0B5120015177F9619
+>66 D<EBFC1038038330380E00B0481370481330123000701310126012E01400A5141012
+6012700030132012386C13406C138038038300EA00FC14177E9619>I<B5FC381C01C0EB
+00E0143014381418141C140C140EA7140C141CA2143814301460EB01C0B5120017177F96
+1B>I<B512E0EA1C00146014201410A3EB0400A3130CEA1FFCEA1C0C1304A390C7FCA6EA
+FFC014177F9617>70 D<38FF83FE381C0070AA381FFFF0381C0070AA38FF83FE17177F96
+1A>72 D<EAFFE0EA0E00B3A3EAFFE00B177F960D>I<EA0FF8EA00E0B112E0A2EAC1C0EA
+6180EA1F000D177E9612>I<EAFFC0001CC7FCAD1420A31460A2144014C01303B5FC1317
+7F9616>76 D<00FC13FE001E1338001F13101217EA1380EA11C0A2EA10E013701338A213
+1C130E130F1307EB0390EB01D0A2EB00F014701430123800FE131017177F961A>78
+D<13FCEA0303380E01C0381C00E048137000301330007013380060131800E0131CA70070
+1338A200301330003813706C13E0380E01C038030300EA00FC16177E961B>I<EAFFFE38
+1C0380EB00C014601470A4146014C0EB0380381FFE00001CC7FCAAB47E14177F9618>I<
+EA0FC4EA302CEA601CEA400CEAC004A3EAE0001270127FEA3FE0EA0FF8EA01FCEA001C13
+0E13061280A3EAC004EAE008EAD810EA87E00F177E9614>83 D<387FFFF8386038180040
+1308A200801304A300001300AF3803FF8016177F9619>I<38FF80FE381C00381410B06C
+132012066C13403801818038007E0017177F961A>I<3AFF07FC3F803A3C00E00E00001C
+1404A2EB0170000E5CA2EB023800075CA2EB041CD803845BA2EB880ED801C85BA2EBD007
+D800F05BA3EBE003016090C7FCA221177F9624>87 D<38FF83FC381F01E0380E00807EEB
+8100EA0382EA01C213E4EA00E81378A21338137C135E138EEA0187EB0780EA0203380601
+C0000413E0EA0C00001C13F038FF03FE17177F961A>I<EA3FC0EA70601330EA20381200
+EA03F8EA1E3812301270EAE039A21379EA70FFEA1F1E100E7F8D12>97
+D<12F81238A8EA39F0EA3E0CEA380613077F1480A414005B1306EA361CEA21F011177F96
+14>I<EA07F0EA18381230EA7010EA600012E0A41260EA70081230EA1830EA07C00D0E7F
+8D10>I<133E130EA8EA07CEEA1C3EEA300E1270126012E0A412601270EA301EEA182E38
+07CF8011177F9614>I<EA0FC0EA1860EA3030EA7038EAE018EAFFF8EAE000A31260EA70
+08EA3010EA1830EA07C00D0E7F8D10>I<EA03E0EA0670120EEA1C201300A5EAFF80EA1C
+00ACEA7F800C1780960B>I<EA0F9EEA18E3EA3060EA7070A3EA3060EA18C0EA2F80EA20
+001260EA3FE013F813FCEA600EEAC006A3EA600CEA3838EA0FE010157F8D12>I<12F812
+38A813F8EA3B1CEA3C0E1238AA38FE3F8011177F9614>I<12301278A212301200A512F8
+1238AC12FE07177F960A>I<1203EA0780A2EA0300C7FCA5EA1F801203AF1243EAE30012
+E7127C091D82960B>I<12F81238A8133E13381330134013801239EA3FC0EA39E0123813
+F01378133CA2EAFE7F10177F9613>I<12F81238B3A312FE07177F960A>I<38F8F83E383B
+1CC7393C0F0380EA380EAA39FE3F8FE01B0E7F8D1E>I<EAF8F8EA3B1CEA3C0E1238AA38
+FE3F80110E7F8D14>I<EA07C0EA1830EA3018EA600CA2EAE00EA5EA701CEA3018EA1830
+EA07C00F0E7F8D12>I<EAF9F0EA3E1CEA380613077F1480A414005B130EEA3E1CEA39F0
+0038C7FCA512FE11147F8D14>I<EAF9E0EA3A70123CEA38201300A9B4FC0C0E7F8D0E>
+114 D<EA1F40EA60C0EAC040A2EAE000B4FCEA7F80EA1FC0EA01E0EA8060A212C0EAE0C0
+EA9F000B0E7F8D0E>I<1208A31218A21238EAFFC0EA3800A71340A4EA1C80EA0F000A14
+7F930E>I<EAF83EEA380EAA131EEA1C2E3807CF80110E7F8D14>I<EAFE1FEA380EEA3C0C
+EA1C08A2EA0E10A2EA0720A213E0EA03C0A2EA0180A2100E7F8D13>I<38FEFE7C383838
+381410133C001C1320134C381E4E60380ECE401387000713801303A200031300EA020116
+0E7F8D19>I<EAFE3FEA3C1CEA1C10EA0E20EA074013C0EA0380EA01C0EA02E0EA04F0EA
+0870EA1838EA383CEAFC7F100E7F8D13>I<EAFE1FEA380EEA3C0CEA1C08A2EA0E10A2EA
+0720A213E0EA03C0A2EA0180A21300A212E2A212A4127810147F8D13>I
+E /Fp 6 55 df<1218127812981218AC12FF08107D8F0F>49 D<121FEA6180EA40C0EA80
+6012C01200A213C0EA0180EA030012065AEA10201220EA7FC012FF0B107F8F0F>I<121F
+EA2180EA60C0A212001380EA0100121FEA00801340136012C0A2EA8040EA6080EA1F000B
+107F8F0F>I<EA0180A212031205120D121912111221124112C1EAFFE0EA0180A4EA0FE0
+0B107F8F0F>I<EA20C0EA3F80EA2E001220A3122FEA3080EA2040EA0060A312C0EA80C0
+EA6180EA1F000B107F8F0F>I<EA0780EA1840EA30C0126013005A12CFEAF080EAE040EA
+C060A31240EA60C0EA3080EA1F000B107F8F0F>I E /Fq 66 123
+df<13FEEA038138060180EA0E03381C010090C7FCA5B51280EA1C03AE38FF8FF0141A80
+9915>12 D<90387E1F803901C17040390703C0600006EB80E0000E14401500A5B612E038
+0E0380AE397F8FE3FC1E1A809920>14 D<126012F0A61260AA12201200A4126012F0A212
+60041A7D990B>33 D<EA60C0EAF1E0EAF9F0EA68D0EA0810A3EA1020A2EA2040EA40800C
+0B7F9913>I<126012F012F812681208A31210A212201240050B7D990B>39
+D<1380EA010012025A120C120812185AA35AA412E0AA1260A47EA37E1208120C12047E7E
+EA008009267D9B0F>I<7E12407E7E12181208120C7EA37EA41380AA1300A41206A35A12
+08121812105A5A5A09267E9B0F>I<126012F0A212701210A31220A21240A2040B7D830B>
+44 D<EAFFC0A20A0280880D>I<126012F0A2126004047D830B>I<130CA2131C1318A213
+381330A213701360A213E013C0A212011380A2120313005A1206A2120E120CA2121C1218
+A212381230A212701260A212E05AA20E257E9B13>I<EA07E0EA1C38EA381CEA300CEA70
+0EEA6006A2EAE007AAEA6006A2EA700EEA300CEA381CEA1C38EA07E010187F9713>I<12
+035AB4FC1207B3A2EA7FF80D187D9713>I<EA0F80EA1060EA2030EA4038EA803CEAC01C
+12E01240EA003C1338A21370136013C0EA018013001202EA040412081210EA3008EA3FF8
+127F12FF0E187E9713>I<EA07E0EA1838EA201CEA601EEA700EEA201E1200131CA21338
+1370EA07E0EA0038131C130E130FA212E0A212C0EA400EEA601CEA1838EA07E010187F97
+13>I<1318A21338137813F813B8EA01381202A212041208121812101220124012C0B5FC
+EA0038A6EA03FF10187F9713>I<EA3018EA3FF013E01380EA2000A5EA2FC0EA3060EA20
+30EA00381318131CA2124012E0A2EA8018EA40381330EA30E0EA0F800E187E9713>I<EA
+01F8EA0704EA0C06EA180E123013001270126012E0EAE3E0EAE418EAE80CEAF00EEAE006
+1307A31260A2EA7006EA300EEA180CEA0C38EA07E010187F9713>I<1240EA7FFF13FEA2
+EA4004EA80081310A2EA00201340A21380120113005AA25A1206A2120EA5120410197E98
+13>I<EA07E0EA1818EA300CEA20061260A21270EA780CEA3E18EA1F30EA07C0EA03E0EA
+0CF8EA307CEA601E130FEAC0071303A3EA6002EA2004EA1818EA07E010187F9713>I<B6
+1280A2C9FCA6B61280A2190A7E8D1E>61 D<130CA3131EA2132F1327A2EB4380A3EB81C0
+A200017F1300A248B47E38020070A2487FA3487FA2003C131EB4EBFFC01A1A7F991D>65
+D<B51280380E00E014701438143CA514781470EB01E0380FFFC0380E00F01478143C141C
+141EA4141C143C147814F0B512C0171A7F991B>I<EB3F023801C0C63803002E000E131E
+48130E14065A007813021270A200F01300A600701302A21278003813047E14087E000313
+303801C0C038003F00171A7E991C>I<B512F8380E003814181408140C1404A3EB0100A3
+5BEA0FFFEA0E037FA3EB0002A314061404A2140C143CB512FC171A7F991A>69
+D<B512F8380E003814181408140C1404A3EB0100A35BEA0FFFEA0E037FA390C7FCA8EAFF
+E0161A7F9919>I<39FFE1FFC0390E001C00AB380FFFFC380E001CAC39FFE1FFC01A1A7F
+991D>72 D<EAFF80EA1C00B3A6EAFF80091A7E990E>I<EA0FFEEA0070B3124012E0A2EA
+40E0EA61C0EA1F000F1A7E9914>I<EAFFE0000EC7FCB01408A3141814101430147014F0
+B5FC151A7F9918>76 D<00FEEB7FC0000FEB0E001404EA0B80EA09C0A2EA08E01370A213
+38131CA2130E1307EB0384A2EB01C4EB00E4A21474143CA2141C140C121C38FF80041A1A
+7F991D>78 D<137F3801C1C038070070000E7F487F003C131E0038130E0078130F00707F
+00F01480A80078EB0F00A20038130E003C131E001C131C6C5B6C5B3801C1C0D8007FC7FC
+191A7E991E>I<B5FC380E01C0EB0070147880A55C1470EB01C0D80FFFC7FC380E0380EB
+00C0801470A31478A31540143CEC1C8039FFE00F001A1A7F991C>82
+D<EA0FC2EA1836EA200EEA600612C01302A3EAE0001270127EEA3FE0EA1FF8EA03FCEA00
+7E130E130713031280A3EAC0021306EAE004EAD818EA87E0101A7E9915>I<007FB5FC38
+701C0700401301A200C0148000801300A300001400B13803FFE0191A7F991C>I<39FFE0
+7FC0390E000E001404B200065B12076C5B6C6C5A3800E0C0013FC7FC1A1A7F991D>I<3A
+FF81FF07F03A3C007801C0001CEC0080A36C90389C0100A33907010E02A33903830F04EB
+8207A2150C3901C40388A33900E801D0A390387000E0A301305B01201340241A7F9927>
+87 D<12FEA212C0B3AF12FEA207257D9B0B>91 D<EA2040A2EA4080A2EA8100A3EAE1C0
+EAF1E0A2EA60C00B0B7A9913>I<12FEA21206B3AF12FEA20725809B0B>I<EA1FC0EA3870
+7FEA101C1200A2EA03FCEA1E1C1238127012E01480A2133CEA705F381F8F0011107F8F13
+>97 D<12FC121CA913FCEA1D07381E0380381C01C0130014E0A6EB01C01480381E0300EA
+1906EA10F8131A809915>I<EA07F8EA1C1C1238EA700813005AA612701304EA3808EA1C
+18EA07E00E107F8F11>I<133F1307A9EA03E7EA0C17EA180F487E127012E0A612601270
+6C5AEA1C373807C7E0131A7F9915>I<EA07C0EA1C30EA30181270EA600C12E0EAFFFCEA
+E000A41260EA7004EA3808EA1C18EA07E00E107F8F11>I<EA01F0EA0718EA0E38EA1C10
+1300A6EAFFC0EA1C00AEEAFF800D1A80990C>I<EA0FCF3818718038303000EA7038A4EA
+30306C5AEA2FC00060C7FCA21270EA3FF013FC6C7EEA600FEAC003A4EA6006EA381CEA07
+E011187F8F13>I<12FC121CA9137CEA1D87381E0380A2121CAB38FF9FF0141A809915>I<
+1218123CA212181200A612FC121CAE12FF081A80990A>I<EA0180EA03C0A2EA0180C7FC
+A6EA0FC01201B21241EAE180EAE300127E0A2182990C>I<12FC121CA9EB1FC0EB0F0013
+0C5B13205B13E0121DEA1E70EA1C7813387F131E7F148038FF9FE0131A809914>I<12FC
+121CB3A6EAFF80091A80990A>I<38FC7C1F391D8E6380391E0781C0A2001C1301AB39FF
+9FE7F81D107F8F20>I<EAFC7CEA1D87381E0380A2121CAB38FF9FF01410808F15>I<EA07
+E0EA1C38EA300CEA700EEA6006EAE007A6EA6006EA700EEA381CEA1C38EA07E010107F8F
+13>I<EAFCFCEA1D07381E0380381C01C0A2EB00E0A6EB01C01480381E0300EA1D06EA1C
+F890C7FCA6B47E1317808F15>I<EA03E1EA0C13EA180BEA300FEA700712E0A61270A26C
+5AEA1C37EA07C7EA0007A6EB3FE013177F8F14>I<EAFC78EA1D9CEA1E1C1308EA1C00AB
+EAFF800E10808F0F>I<EA1F20EA60E0EA402012C0A2EAF000127FEA3FC0EA1FE0EA00F0
+EA8070133012C01320EAF040EA8F800C107F8F0F>I<1208A41218A21238EAFFC0EA3800
+A81320A41218EA1C40EA07800B177F960F>I<38FC1F80EA1C03AB1307120CEA0E0B3803
+F3F01410808F15>I<38FF0F80383C0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0
+A36C5A11107F8F14>I<39FE7F1F8039381C0700003C1306381C0C04130E380E16081317
+A238072310149013A33803C1A014E0380180C0A319107F8F1C>I<38FE3F80383C1E00EA
+1C086C5AEA0F306C5A6C5A12017F1203EA0270487E1208EA181CEA381E38FC3FC012107F
+8F14>I<38FF0F80383C0700EA1C061304A26C5AA26C5AA3EA03A0A2EA01C0A36C5AA248
+C7FCA212E112E212E4127811177F8F14>I<EAFFF8EAE07012C0EA80E0EA81C0A2EA0380
+EA0700A2EA0E04121CA2EA380812701338EAFFF80E107F8F11>I
+E /Fr 85 127 df<12E012F812FE123F120708057C9614>18 D<126012F0AD12601200A4
+126012F0A212600417789614>33 D<EAC060EAE0E0A5EAC060A50B0B7C9614>I<EA071C
+A5B51280A3380E3800A7B51280A3381C7000A511177F9614>I<EA3806EA7C0EEAFE1EEA
+EE1CA2133C1338EAFE78EA7C701238EA00F05BA212015B12035BA21207130EEA0F1F380E
+3F80133B121E121CA2EA3C3F38381F00EA180E111D7F9914>37 D<1230127CA2123C120C
+A3121C1238127012E012C0060C799614>39 D<EA01801203EA0700120E5A5AA25AA35AA9
+1270A37EA27E7E7EEA03801201091D799914>I<12C07E12707E7E7EA27EA3EA0380A9EA
+0700A3120EA25A5A5A5A5A091D7D9914>I<EA0380A3EA638CEAF39EEA7FFCEA3FF8EA0F
+E0A2EA3FF8EA7FFCEAF39EEA638CEA0380A30F107E9214>I<EA01C0A7B51280A33801C0
+00A711117F9314>I<127012F812FCA2127C121C1218123812F012C0060A798414>I<EAFF
+FEA30F037E8C14>I<127012F8A312700505798414>I<1306130E131E131C133C13381378
+1370A213F013E0120113C012031380120713005A120E121E121CA2123C12381278127012
+F05AA20F1D7E9914>I<EA07C0EA0FE0EA1C70EA3838EA3018EA701CA2EAE00EA9EA701C
+A2EA3838A2EA1C70EA0FE0EA07C00F177E9614>I<12035AA25A123F12F712471207AEEA
+FFF0A20C177C9614>I<EA0FC0EA3FF0EA7838EA701CEAE01E130EA212401200131E131C
+133C137813F0EA01E0EA03C0EA0780EA0F00121EEA3C0E1270EAFFFEA20F177E9614>I<
+EA0FC0EA3FF0EA7878EA703C131C12201200133C13381370EA0FE013F0EA0038131C131E
+130E124012E0131EEAF01CEA7838EA3FF0EA0FC00F177E9614>I<137813F8EA01B8A2EA
+0338A21206120E120C121C12381230127012E0B51280A238003800A53803FF80A211177F
+9614>I<EA7FFCA2EA7000A7EA77C0EA7FF0EA7838EA601CEA001E130EA212E0A2131EEA
+F03CEA7878EA3FF0EA0FC00F177E9614>I<EA01F0EA07F8EA0E1C121C1238EA78001270
+12F05AEAE7C0EAFFF0EAF838EAF01C131EEAE00E12F0A21270131EEA381CEA3C38EA1FF0
+EA07C00F177E9614>I<12E0EAFFFEA2EAE01C1338EA0078137013E0120113C012031380
+A212071300A35A120EA60F187E9714>I<EA0FE0EA3FF8EA783CEA701CEAE00EA4EA701C
+EA1EF0EA0380EA1FF0EA3838EA701CEAE00EA4EAF01EEA701CEA3838EA1FF0EA07C00F17
+7E9614>I<EA07C0EA1FF0EA3C78EA7038EAF01C12E0131E130EA2EAF01E1270EA383EEA
+1FFEEA07CEEA000E131E131C133CEA70381378EA78F0EA3FC0EA1F000F177E9614>I<12
+7012F8A312701200A6127012F8A312700510798F14>I<127012F8A312701200A6127012
+F8A3127812181238127012E012C00515798F14>I<130E131E133E13F8EA01F0EA03E0EA
+0F80EA1F00123E12F85A7E123E7EEA0F80EA03E0EA01F0EA00F8133E131E130E0F157E95
+14>I<B51280A3C8FCA3B51280A311097F8F14>I<12E07E7E123E7EEA0F80EA03E0EA01F0
+EA00F8133E131E133E13F8EA01F0EA03E0EA0F80EA1F00123E12F85A5A0F157E9514>I<
+EA1FE0EA7FF8EAF01EEAE00EA2EA401EEA003C13F0EA01E0EA03C01380A41300C7FCA412
+03EA0780A2EA03000F177E9614>I<EA01E0EA07F8EA1E38EA3C1CEA38FCEA73FEEA77BE
+EAF71E12EFEAEE0EA5EAEF1EEAF71CEA77BCEA73F8EA38E0EA3C0EEA1E1EEA07FCEA01F0
+0F177E9614>I<EA01C0487EA21360A2EA0770A4EA0630EA0E38A4487EEA1FFCA2EA1C1C
+A2487EA238FE3F80A211177F9614>I<EAFFF013FCEA381E130E1307A4130E131EEA3FFC
+A2EA381E130E1307A5130E131EEAFFFC13F810177F9614>I<3801F180EA07FFEA1E1FEA
+3C0FEA3807EA7803127012F048C7FCA738F0038012701278EA3807003C1300EA1E1EEA07
+FCEA01F011177F9614>I<EAFFE013F8EA383C7F130E7FA3EB0380A8EB0700A2130E131E
+5BEAFFF813E011177F9614>I<B51280A2EA1C03A490C7FCA2131CA2EA1FFCA2EA1C1CA2
+90C7FCA3EB01C0A4B5FCA21217809614>I<B512C0A2EA1C01A490C7FCA2131CA2EA1FFC
+A2EA1C1CA290C7FCA7B47EA21217809614>I<EA03C6EA0FFEEA1C3EEA3C1E1238EA700E
+A212F048C7FCA4EB7F80A2EB0E0012F01270131E1238123CEA1C3EEA0FFEEA03CE11177F
+9614>I<38FE3F80A238380E00A8EA3FFEA2EA380EA938FE3F80A211177F9614>I<EAFFF8
+A2EA0700B3EAFFF8A20D177D9614>I<EA0FFEA2EA0070B012E0A2EAF0E0EA7FC0EA1F00
+0F177D9614>I<EAFE7FA2EA383CA25B5BA2EA39E0EA3BC0A2123F7F123E7FEA3C70EA38
+781338133C131C131E130E38FE1F80A211177F9614>I<EAFFC0A2001CC7FCAFEB0380A4
+B5FCA211177F9614>I<38FE0FE0A2003E1380EA3B1BA413BBA2EA39B3A313F3EA38E3A2
+1303A638FE0FE0A21317809614>I<38FE3F80A2383E0E00123BA4138E1239A213CEA312
+38A213EE136EA4133E12FEA211177F9614>I<EA1FF0EA7FFCEA783CEA701CEAE00EAFEA
+701CEA783CEA7FFCEA1FF00F177E9614>I<EAFFF813FEEA1C0F7FEB0380A5EB07005BEA
+1FFE13F8001CC7FCA8B47EA21117809614>I<EAFFE013F8EA383C131C7FA45B133CEA3F
+F85BEA38787F131CA4EB1DC0A3EAFE0FEB070012177F9614>82 D<EA0FCCEA3FFCEA787C
+EAF03C12E0131CA2EAF0007E127EEA3FE0EA0FF8EA01FCEA003C131E130E12E0A3EAF01C
+EAF83CEAFFF8EAC7E00F177E9614>I<B51280A2EAE1C3A43801C000AFEA0FF8A211177F
+9614>I<38FE0FE0A238380380A73818E300EA19F3EA1DF713B7A5EA0DB6A21316EA0F1E
+A31317809614>87 D<EAFE7FA2EA1C3CEA1E38EA0E78EA0F7012075B12035B120112037F
+A2EA0770A2EA0E781338EA1C3C131CEA3C1E38FE3F80A211177F9614>I<38FE3F80A238
+380E00EA3C1EEA1C1CEA1E3CEA0E38A26C5AA2EA036013E0A26C5AA8EA07F0A211177F96
+14>I<EAFFFEA2EAE01E133C13381378EA007013F013E0EA01C01203138012071300120E
+121E121CEA3C0E1238127812F0EAFFFEA20F177E9614>I<EAFFE0A2EAE000B3A7EAFFE0
+A20B1D799914>I<12E0A27E127012781238123C121CA2121E120E120F7E1380120313C0
+120113E0120013F01370A213781338133C131C131E130E13060F1D7E9914>I<EAFFE0A2
+1200B3A712FFA20B1D7F9914>I<EA1FC0EA7FF0EA7078EA203CEA001CA2EA07FC121FEA
+7C1C12F012E0A3EA707C383FFF80EA0F8F11107E8F14>97 D<12FCA2121CA513F8EA1FFE
+130F381E0780EA1C0314C01301A41303001E13801307381F0F0013FEEA1CF81217809614
+>I<EA03F8EA0FFEEA3C0EEA7804EA700012F05AA47E1270EA780EEA3C1EEA0FFCEA03F0
+0F107E8F14>I<137EA2130EA5EA07CEEA1FFEEA3C3EEA781EEA700E12F012E0A412F0EA
+701E1278EA3C3E381FFFC0EA07CF12177F9614>I<EA07E0EA1FF8EA3C3CEA781CEA701E
+EAF00E12E0EAFFFEA2EAE0007E1270EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<13FC
+EA01FEEA078E13041300A3EAFFFEA2EA0700ACEAFFF8A20F177F9614>I<EA07CF381FFF
+80EA3C7B38783C00EA701CA3EA783C6C5AEA3FF0EA77C00070C7FCA2EA3FF813FE7F3870
+0F80EAF007EAE003A338700700EA7C1FEA1FFCEA07F011197F8F14>I<12FCA2121CA513
+78EA1DFEEA1F8FEA1E07A2121CA938FF9FE0A21317809614>I<1203EA0780A2EA0300C7
+FCA4EAFF80A21203ACEAFFFCA20E187D9714>I<136013F0A213601300A4EA1FF0A2EA00
+70B2EAE0E012E1EAFFC0EA3F000C207E9714>I<12FCA2121CA5EBFFC0A2EB3E005B5BEA
+1DF0EA1FE0A27F1370EA1E78EA1C3C7FA238FF3FC0A21217809614>I<EAFF80A21203B3
+EAFFFEA20F177E9614>I<EAFB8EB51280EA3EFBEA3CF3EA38E3AA38FEFBE0A21310808F
+14>I<EAFC78EAFDFEEA1F8FEA1E07A2121CA938FF9FE0A21310808F14>I<EA07C0EA1FF0
+EA3C78EA701CA2EAE00EA6EA701CEA783CEA3C78EA1FF0EA07C00F107E8F14>I<EAFCF8
+EAFFFEEA1F0F381E0780EA1C0314C01301A41303001E13801307381F0F0013FEEA1CF890
+C7FCA6B47EA21218808F14>I<EA03E7EA0FF7EA3C3FEA780F1270EAF00712E0A412F0EA
+700FEA781F6C5AEA1FF7EA07C7EA0007A6EB3FE0A213187F8F14>I<EAFE1FEB7F80EA0F
+E3EB8100138090C7FC120EA8EAFFF8A211107F8F14>I<EA0FD8EA7FF8EAE078EAC038A2
+EAF000EA7F80EA3FF0EA07FCEA001EEAE00E130612F0EAF81CEAFFF8EACFE00F107E8F14
+>I<120EA5EAFFFCA2EA0E00A8130EA3EA0F1EEA07FCEA01F00F157F9414>I<EAFC3FA2EA
+1C07AA5BEA1E1F380FFFE0EA03E71310808F14>I<38FF7F80A2383C1E00EA1C1CA36C5A
+A3EA0630EA0770A36C5AA311107F8F14>I<38FF7F80A238700700EA380EA3EA39CEA3EA
+1B6C121AA3EA1E7CA2EA0E3811107F8F14>I<38FE7F80A2381E3C00EA0E78EA07705B12
+036C5A12037FEA0770EA0E781338487E38FF7F80A211107F8F14>I<38FF7F80A2381C0E
+005BA2120E5BA212071330A2EA0370A25B1201A25BA3485A12730077C7FC127E123C1118
+7F8F14>I<EA7FFFA2EA700E131C1338EA007013E0EA01C0EA0380EA0700120EEA1C0712
+381270B5FCA210107F8F14>I<12E0B3AB031D789914>124 D<EA1C18EA7F38EAE7F0EAC1
+C00D047D9614>126 D E /Fs 87 127 df<12E012F8127E123F120F08057B9816>18
+D<126012F0AF12601200A4126012F0A212600419779816>33 D<EA6030EAF078A8EAE038
+A30D0C7C9916>I<EA0387A6B512E0A338070E00A3EA0F1EEA0E1CA3B512E0A3381C3800
+A613197F9816>I<13C01201A3EA07F0EA1FFC48B4FCEA7DCF38F1C78012E1A338F1C300
+EA79C0127FEA1FF0EA07FCEA01FE13CFEBC780EAF1C3A3EAE1C712F13879DF00EA3FFE6C
+5AEA07E0EA01C0A2120011207E9C16>I<12301278127C123C121CA3123C1238127812F0
+12E012C0060D789816>39 D<13E01201EA07C013005A121E5A123812781270A312F05AA7
+7E1270A312781238123C7E7E7E13C0EA01E012000B217A9C16>I<12E07E127C121C121E
+7EEA0780120313C01201A313E01200A7120113C0A3120313801207EA0F00121E121C127C
+12F05A0B217C9C16>I<EA0380A4EAE38EEAF39EEAFFFEEA3FF8EA0FE0A2EA3FF8EAFFFE
+EAF39EEAE38EEA0380A40F127D9516>I<13E0A8B512E0A33800E000A813137F9516>I<12
+38127C127EA2123E120E121E123C127C12F81260070B798416>I<B51280A311037E8D16>
+I<127012F8A312700505788416>I<EB01801303130714005B130E131E131C133C133813
+78137013F05B12015BA212035B120790C7FC5A120E121E121C123C12381278127012F05A
+A211207E9C16>I<EA03E0EA0FF8487EEA1E3CEA380EEA780FEA7007A238E00380A8EAF0
+0700701300A2EA780FEA3C1E6C5AEA1FFC6C5AEA03E011197E9816>I<12035A5AA25AB4
+FCA212F71207AEEAFFF8A30D197B9816>I<EA07E0EA1FF8EA7FFEEA783FEAF00FEB0780
+1303A21200A2130714005B131E5B5B5BEA03E0EA078048C7FC381E0380123CEA7FFFB5FC
+7E11197E9816>I<EA07E0EA1FFCEA7FFEEA781F7F7F12005BA2133EEA07FC5B7FEA001E
+130714801303A212F013071400EAF81FEA7FFE6C5AEA07E011197E9816>I<137C13FC13
+DC1201EA039CA2EA071C120F120E121E123C1238127812F0B512E0A338001C00A53801FF
+C0A313197F9816>I<EA3FFE127FA20070C7FCA7EA77F0EA7FFC7FEA7C0FEA3007000013
+801303126012F01307EB0F006C5AEA7FFEEA1FF8EA07E011197E9816>I<EA07F0EA1FFC
+487EEA7C1F38F00780EAE003A338700700EA7C1FEA1FFCEA07F0EA1FFCEA3C1EEA700700
+F01380EAE003A3EAF00700701300EA7C1FEA3FFE6C5AEA07F011197E9816>56
+D<EA03E0EA0FF8EA3FFCEA7C1EEA780F12F0487E1480A21303EAF007A2EA780FEA3FFF13
+FBEA0FE3EA00071400EA300FEA780E131E137CEA7FF86C5AEA0F8011197E9816>I<1270
+12F8A312701200A8127012F8A312700512789116>I<1238127CA312381200A81238127C
+A3123C121C123C1238127812F012600618799116>I<EB03801307131FEB3E0013FCEA03
+F0485AEA1F80003EC7FC12FC12F012FC123E6C7EEA07E06C7EEA00FC133EEB1F80130713
+0311157E9616>I<B512E0A3C8FCA5B512E0A3130B7F9116>I<12E07E12FC123E6C7EEA07
+E06C7EEA00FC133EEB1F801307131FEB3E0013FCEA03F0485AEA1F80003EC7FC12FC12F0
+5A11157E9616>I<EA0FF0EA3FFE487E38F00F801303A2EA600738001F00137E13F85B48
+5A5BA45BC8FCA4487E487EA26C5A11197E9816>I<13F8EA03FEEA0FFF381F0F80EA3E3F
+EA3CFF007913C0EA73C7EAF38312E71301A5138300F31380EA73C73879FF006C5AEA3E38
+381F03C0EA0FFF00031300EA00FC12197E9816>I<13E0487EA213B0A2EA03B8A31318EA
+071CA5EA0E0EA2EA0FFEA2487EEA1C07A3387E0FC038FF1FE0387E0FC013197F9816>I<
+EA7FF8EAFFFE6C7EEA1C0714801303A4EB0700EA1FFF5BA2EA1C1FEB038014C01301A413
+03EB0780EA7FFFB51200EA7FFC12197F9816>I<3801F180EA07FF5AEA1F0FEA3C071278
+1303127000F0C7FC5AA77E387003801278A2EA3C07381F0F00EA0FFE6C5AEA01F011197E
+9816>I<EA7FF8EAFFFE6C7EEA1C0FEB0780EB03C01301A214E01300A8EB01C0A21303EB
+0780130F387FFF00485AEA7FF81319809816>I<387FFFC0B5FC7EEA1C01A490C7FCA213
+1CA2EA1FFCA3EA1C1CA290C7FC14E0A5EA7FFFB5FC7E13197F9816>I<387FFFE0B5FC7E
+EA1C00A41400A2131CA2EA1FFCA3EA1C1CA290C7FCA6EA7F80487E6C5A13197F9816>I<
+3801F180EA07FF5AEA1F0FEA3C0712781303127000F0C7FC5AA4EB1FC014E014C038F003
+801270EA7807A2EA3C0FEA1E1FEA0FFFEA07FBEA01F313197F9816>I<387F07F038FF8F
+F8387F07F0381C01C0A7EA1FFFA3EA1C01A9387F07F038FF8FF8387F07F01519809816>
+I<EA7FFCEAFFFEEA7FFCEA0380B3EA7FFCEAFFFEEA7FFC0F197D9816>I<387F0FE038FF
+8FF0387F0FE0381C0780EB0F00131E131C133C5B5BEA1DE07F121F7F1338EA1E3C131CEA
+1C1E7F7F14801303387F07E038FF8FF0387F07E01419809816>75
+D<B47E7F5B001CC7FCAE144014E0A4B5FCA313197F9816>I<38FC07E0EAFE0FA2383A0B
+80EA3B1BA513BBEA39B3A413F3EA38E3A21303A538FE0FE0A313197F9816>I<387E07F0
+38FF0FF8387F07F0381D81C0A313C1121C13E1A213611371A313311339A21319131D130D
+A3EA7F07EAFF87EA7F031519809816>I<EA1FFC487E487EEA780F38F00780EAE003AEEA
+F007A238780F00EA7FFF6C5A6C5A11197E9816>I<EA7FF8EAFFFE6C7E381C0F80130314
+C01301A313031480130F381FFF005B13F8001CC7FCA7127F487E6CC7FC12197F9816>I<
+EA1FFC487E487EEA780F38F00780EAE003AD13E312E1EAF0F738787F00EA7FFF6C5A6C5A
+EA001C131E130E130F7FA2111F7E9816>I<EA7FF0EAFFFC6C7EEA1C0FEB07801303A413
+07EB0F00EA1FFE5B7FEA1C1F1307A414101438A2007F13F838FF83F0387F01E015198098
+16>I<EA07E3EA1FFF127FEA781F487E487EA290C7FC7E1278EA7F80EA1FF0EA07FCC67E
+130FEB07801303A212E0A2EAF00738F80F00EAFFFE5BEAC7F011197E9816>I<387FFFE0
+B5FCA2EAE0E0A400001300AFEA07FC487E6C5A13197F9816>I<387F07F038FF8FF8387F
+07F0381C01C0B0EA1E03000E1380EA0F8F3807FF006C5AEA00F81519809816>I<38FE0F
+E0A338380380EA3C07001C1300A3EA1E0FEA0E0EA46C5AA4EA031813B8A3EA01B013F0A2
+6C5A13197F9816>I<387E03F038FF07F8387E03F0383800E0A4381C01C0A3137113F9A2
+13D9A2000C1380A3EA0DDD138DA338078F00A213071519809816>I<387F1F80EB3FC0EB
+1F80380E1E00131C12075BEA03B813F012015B120012017F120313B81207131C120FEA0E
+0EA2487E387E0FC038FF1FE0387E0FC013197F9816>I<38FE0FE0EAFF1FEAFE0F381C07
+00A2EA0E0EA26C5AA3EA03B8A2EA01F0A26C5AA8EA03F8487E6C5A13197F9816>I<387F
+FF80B5FCA238E007005B131E131CEA003C5B137013F0485A5B1203485A90C7FC5A381E03
+80121C123C12781270B5FCA311197E9816>I<EAFFF0A3EAE000B3A8EAFFF0A30C20789C
+16>I<12E0A27E127012781238123C121C121E120E120F7E7F12037F1201A27F12007F13
+7013781338133C131C131E130E130F7F14801303130111207E9C16>I<EAFFF0A3EA0070
+B3A8EAFFF0A30C207F9C16>I<1207EA1FC0EA7FF0EAFDF8EAF078EA40100D067C9816>I<
+120C121C123C1278127012F012E0A312F012F812781230060D789B16>96
+D<EA1FE0EA7FF87FEA783EEA301EEA000EA2EA03FE121FEA7E0E12F012E0A2EAF01EEAF8
+3E387FFFE0EA3FE7EA0F8313127E9116>I<12FCA3121CA4137CEA1DFF001F1380EB07C0
+EA1E03381C01E0A21300A41301001E13C01303381F078013FF381DFE00EA0C7813197F98
+16>I<EA03F8EA0FFE121FEA3C1EEA780CEA700012F05AA47EEA70071278EA3E0FEA1FFE
+EA0FFCEA03F010127D9116>I<133FA31307A4EA03C7EA0FF7EA3FFFEA3C1F487EEA7007
+12F012E0A412F05BEA781FEA7C3F383FFFE0EA1FF7EA07C713197F9816>I<EA03F0EA0F
+FC487EEA3E1FEA780700701380EAF003B5FCA300E0C7FC7E387003801278EA3E0F381FFF
+006C5AEA03F811127E9116>I<131FEBFF805AEA03C7EB83001380A2EA7FFFB5FCA2EA03
+80ACEA7FFC487E6C5A11197F9816>I<3803E3C0380FFFE05A381E3CC0383C1E00EA380E
+A3EA3C1E6C5AEA1FFC5BEA3BE00038C7FCA2EA1FFC13FF4813C0EA780338F001E0EAE000
+A3EAF001387C07C0383FFF80380FFE00EA03F8131C7F9116>I<12FCA3121CA41378EA1D
+FEEA1FFF130FEA1E07A2121CA938FF8FE0139F138F13197F9816>I<1203EA0780A2EA03
+00C7FCA4EAFF80A31203ACEAFFFC13FE13FC0F1A7C9916>I<13301378A213301300A4EA
+0FF8121F120FEA0038B3EA6078EAF0F0EAFFE0EA7FC0EA3F800D237E9916>I<127E12FE
+127E120EA4EB7FE0A3EB0F00131E5B5B5BEA0FF8A213BC131EEA0E0E130FEB0780387F87
+F0EAFFCFEA7F871419809816>I<EA7FC012FF127F1201B3EA7FFFB512806C130011197E
+9816>I<38F9C38038FFEFC0EBFFE0EA3E7CEA3C78EA3870AA38FE7CF8A31512809116>I<
+EAFC78EAFDFEB5FCEA1F0FEA1E07A2121CA938FF8FE0139F138F13127F9116>I<EA03E0
+EA0FF8487EEA3C1E487EEA700738E00380A5EAF00700701300EA780FEA3C1EEA1FFC6C5A
+EA03E011127E9116>I<EAFC7CEAFDFFB51280381F07C0EA1E03381C01E0A21300A41301
+001E13C01303381F078013FF381DFE00EA1C7890C7FCA6B47EA3131B7F9116>I<3803E3
+80EA0FFBEA1FFFEA3E1FEA780FEA7007EAF00312E0A412F0EA7007EA780FEA3C1FEA3FFF
+EA0FFBEA03E3EA0003A6EB1FF0EB3FF8EB1FF0151B7F9116>I<387F0FC038FF3FE0EA7F
+7F3807F040EBE0005B5BA290C7FCA7EA7FFC12FF127F13127F9116>I<EA0FECEA3FFC12
+7FEAF03CEAE01CA2EAF000EA7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC13
+F8EAC7E00F127D9116>I<12035AA4EA7FFFB5FCA20007C7FCA75BEB0380A21307138738
+03FF005BEA00F811177F9616>I<EAFC3FA3EA1C07AA5BEA1E1F381FFFE07EEA07C71312
+7F9116>I<387F1FC038FF9FE0387F1FC0381C0700A2EA0E0EA36C5AA4EA03B8A3EA01F0
+A26C5A13127F9116>I<38FF1FE0A338380380A4EA39F3A20019130013B3A3EA1DB71317
+EA1F1FEA0F1EEA0E0E13127F9116>I<387F1FC0133F131F380F1E006C5AEA03B813F012
+016C5A12017FEA03B8EA073C131CEA0E0E387F1FC038FF3FE0387F1FC013127F9116>I<
+387F1FC038FF9FE0387F1FC0381C0700120E130EA212075BA2EA039CA21398EA01B8A2EA
+00F0A35BA3485A1279127BEA7F8090C7FC123C131B7F9116>I<383FFFC05AA238700780
+EB0F00131EC65A13F8485A485A485A48C7FC381E01C0123C1278B5FCA312127F9116>I<
+12E0B3AE0320779C16>124 D<EA1E30EA3F78EAFFF8EAF7E0EA63C00D057C9816>126
+D E /Ft 3 108 df<017F13403903FFE0C0380780F0380E001948130748130300781301
+127000F01300A315407EA2007C1400127EEA7F80EA3FF06CB47E6C13F06C13FC00017F38
+003FFF010313809038003FC0EC0FE0140315F014017E1400A37E15E07E14016C14C06CEB
+038000E6EB070038C3E01E38C0FFF838801FE01C2B7CA925>83 D<007FB612FEA23A7C00
+3E003E0070150E006015061602124000C01503A2481501A5C71400B3A6147F90383FFFFE
+A228297DA82F>I<39FFF003FCA2390F0001E01580150014025C5C143014405C49C7FC5B
+497EEB0BC0EB13E01321EB40F0EB807813008080A280EC078015C01403EC01E0EC03F039
+FFF007FEA21F1F7D9E26>107 D E /Fu 42 122 df<49B4FC011F13C090387F81E0EBFC
+013901F807F01203EA07F0A4EC01C091C8FCA3EC3FF8B6FCA33807F003B3A33A7FFF3FFF
+80A3212A7FA925>12 D<B51280A611067F9016>45 D<130E131E137EEA07FE12FFA212F8
+1200B3ABB512FEA317277BA622>49 D<EBFF80000713F04813FC381E03FE393800FF8000
+7C133F00FE14C06C131F15E0140FA2127E003C131FC7FC15C0A2EC3F801500147E5C5C49
+5A495AEB078049C7FC131E4913E013705B3901C001C0EA0380EA0600000FB5FC5A5A5AB6
+1280A31B277DA622>I<EB7F803803FFF04813FC380F81FE381F007FEA3F80EC3F80A312
+1F1300C7EA7F00A2147E5C495AEB07F0EBFFC0A2EB01F8EB007E801580EC1FC0A215E0A2
+123C127EB4FCA215C0143F481480007CEB7F00383F01FE6CB45A000713F0C613801B277D
+A622>I<140FA25C5C5C5C5BA2EB03BFEB073F130E131C133C1338137013E0EA01C0EA03
+8012071300120E5A5A5A12F0B612F8A3C7EA7F00A890381FFFF8A31D277EA622>I<0018
+1303381F801FEBFFFE5C5C5C14C091C7FC001CC8FCA7EB7FC0381DFFF8381F80FC381E00
+3F121CC7EA1F8015C0A215E0A21218127C12FEA315C05A0078EB3F80A26CEB7F00381F01
+FE6CB45A000313F0C613801B277DA622>I<EB07F8EB3FFE90B5FC3901FC07803903F00F
+C03807C01FEA0F80121F130048EB0F8091C7FC127EA3EAFE02EB1FF0EB3FFCEB603EEB80
+1F00FF14809038000FC0A24814E0A4127EA4123E003F14C07EEC1F80D80F8013003807E0
+7E6CB45A6C5B38003FC01B277DA622>I<EC0780A24A7EA34A7EA24A7EA3EC77F8A2ECF7
+FC14E3A2903801C1FEA201037F1480A249486C7EA24980010E133FA2496D7EA2013FB57E
+A39039700007F8A201F080491303000181491301A2000381D8FFFE013F13FCA32E297EA8
+33>65 D<B612F815FF16C03A03F8001FE0ED0FF0ED07F8150316FCA21501A3150316F8A2
+ED07F0150FED1FC0EDFF8090B5EAFE00EDFFC09039F8000FF0ED03F8ED01FC16FE1500A2
+16FFA616FE1501ED03FC1507ED1FF8B712E016C0EDFE0028297DA830>I<91387FE00390
+3907FFFC07011FEBFF0F90397FF00F9F9039FF0001FFD801FC7F4848147F4848143F4848
+141F485A160F485A1607127FA290C9FC5AA97E7F1607123FA26C7E160E6C7E6C6C141C6C
+6C143C6C6C14786CB4EB01F090397FF007C0011FB512800107EBFE009038007FF028297C
+A831>I<B712E0A33903FC001FED07F01501A215001670A3913801C0781638A302031300
+A2140F90B5FCA3EBFC0F1403A20201130EA3161C91C7FCA3163C1638167816F815011503
+151FB712F0A327297EA82C>69 D<91387FE003903907FFFC07011FEBFF0F90397FF00F9F
+9039FF0001FFD801FC7F484880484880484880485A82485A82127FA290CAFC5AA892B512
+F87E7F03001300123FA26C7EA26C7E6C7E6C7E6C7E6CB45B90387FF007011FB5129F0107
+EBFE0F9039007FF0032D297CA835>71 D<B512F0A33803FC00B3B1B512F0A314297EA819
+>73 D<B512FCA3D803FCC8FCB3A3ED01C0A415031680A21507A2150FA2151F157F913801
+FF00B7FCA322297EA828>76 D<ECFFC0010F13FC90383F807F9039FE001FC0D801F8EB07
+E048486D7E48486D7E000F8148486D7EA24848147FA2007F168090C8123FA34816C0AA6C
+16806D147FA2003F1600A26C6C14FEA26C6C495A6C6C495A6C6C495A6C6C495A6C6C495A
+90263FC0FFC7FC90380FFFFC010013C02A297CA833>79 D<B612F815FF16C03A03FC003F
+E0ED07F0ED03F816FC150116FEA716FC150316F8ED07F0ED3FE090B61280EDFE0001FCC8
+FCB0B512F0A327297EA82E>I<9038FF80600003EBF0E0000F13F8381F80FD383F001F00
+3E1307481303A200FC1301A214007EA26C140013C0EA7FFCEBFFE06C13F86C13FE800007
+14806C14C0C6FC010F13E0EB007FEC1FF0140F140700E01303A46C14E0A26C13076C14C0
+B4EB0F80EBE03F39E3FFFE0000E15B38C01FF01C297CA825>83 D<007FB71280A3903980
+7F807FD87C00140F00781507A20070150300F016C0A2481501A5C791C7FCB3A490B612C0
+A32A287EA72F>I<3803FF80000F13F0381F01FC383F80FE147F801580EA1F00C7FCA4EB
+3FFF3801FC3FEA0FE0EA1F80EA3F00127E5AA4145F007EEBDFC0393F839FFC381FFE0F38
+03FC031E1B7E9A21>97 D<EAFFE0A3120FACEBE1FE9038EFFF809038FE07E09038F803F0
+9038F001F89038E000FCA2157EA2157FA8157EA315FCA29038F001F89038F803F090389C
+0FE090380FFF80390E01FC00202A7EA925>I<EB3FF03801FFFC3803F03E380FC07FEA1F
+80EA3F00A248133E007E90C7FCA212FEA7127EA2127F6CEB03801380001FEB0700380FE0
+0E3803F83C3801FFF838003FC0191B7E9A1E>I<EC7FF0A31407ACEB3F873801FFF73807
+F03F380FC00F381F8007EA3F00A2127EA312FEA8127EA27EA2381F800F380FC01F3907E0
+7FFF3801FFE738007F87202A7EA925>I<EB3FC03801FFF03807E07C48487E48487ED83F
+001380140F5A007E14C012FE1407A2B6FCA248C8FCA4127E127F6CEB01C01380001F1303
+390FC007803903F01F003800FFFCEB3FE01A1B7E9A1F>I<EB07F8EB3FFCEB7E3E3801FC
+7FEA03F813F01207143E1400A7B512C0A33807F000B3A3387FFF80A3182A7EA915>I<90
+38FF80F00003EBE3F8390FC1FE1C391F007C7C48137E003EEB3E10007EEB3F00A6003E13
+3E003F137E6C137C380FC1F8380BFFE00018138090C8FC1238A2123C383FFFF814FF6C14
+C06C14E06C14F0121F383C0007007CEB01F8481300A4007CEB01F0A2003FEB07E0390FC0
+1F806CB5120038007FF01E287E9A22>I<EAFFE0A3120FAC147E9038E1FF809038E30FC0
+01E413E0EBE80701F813F013F0A213E0B039FFFE3FFFA3202A7DA925>I<1207EA1FC0EA
+3FE0A5EA1FC0EA0700C7FCA7EAFFE0A3120FB3A3EAFFFEA30F2B7EAA12>I<EAFFE0A312
+0FACEC1FFCA3EC07C0EC0F80EC1E00147C5CEBE1F0EBE3E013E713EFEBFFF080EBFBFC13
+F1EBE1FEEBC0FFEC7F80143F15C0EC1FE0EC0FF0140739FFFC1FFFA3202A7FA923>107
+D<EAFFE0A3120FB3B2EAFFFEA30F2A7EA912>I<26FFC07FEB1FC0903AC1FFC07FF0903A
+C307E0C1F8D80FC49038F101FC9039C803F20001D801FE7F01D05BA201E05BB03CFFFE3F
+FF8FFFE0A3331B7D9A38>I<38FFC07E9038C1FF809038C30FC0D80FC413E0EBC80701D8
+13F013D0A213E0B039FFFE3FFFA3201B7D9A25>I<EB3FE03801FFFC3803F07E390FC01F
+80391F800FC0393F0007E0A2007EEB03F0A300FE14F8A8007E14F0A26CEB07E0A2391F80
+0FC0390FC01F803907F07F003801FFFC38003FE01D1B7E9A22>I<38FFE1FE9038EFFF80
+9038FE0FE0390FF803F09038F001F801E013FC140015FEA2157FA8157E15FEA215FC1401
+01F013F89038F807F09038FC0FE09038EFFF809038E1FC0001E0C7FCA9EAFFFEA320277E
+9A25>I<38FFC1F0EBC7FCEBC63E380FCC7F13D813D0A2EBF03EEBE000B0B5FCA3181B7F
+9A1B>114 D<3803FE30380FFFF0EA3E03EA7800127000F01370A27E00FE1300EAFFE06C
+B4FC14C06C13E06C13F0000713F8C6FCEB07FC130000E0137C143C7E14387E6C137038FF
+01E038E7FFC000C11300161B7E9A1B>I<13E0A41201A31203A21207120F381FFFE0B5FC
+A2380FE000AD1470A73807F0E0000313C03801FF8038007F0014267FA51A>I<39FFE07F
+F0A3000F1307B2140FA2000713173903F067FF3801FFC738007F87201B7D9A25>I<39FF
+FC03FFA3390FF000F0000714E07F0003EB01C0A2EBFC0300011480EBFE070000140013FF
+EB7F0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA2201B7F9A23>I<3BFFFC7FFC1F
+FCA33B0FE00FE001C02607F007EB0380A201F8EBF00700031600EC0FF801FC5C0001150E
+EC1FFC2600FE1C5B15FE9039FF387E3C017F1438EC787F6D486C5A16F0ECE01F011F5CA2
+6D486C5AA2EC800701075CA22E1B7F9A31>I<39FFFC1FFEA33907F003803803F8079038
+FC0F003801FE1E00005BEB7F3814F86D5A6D5A130F806D7E130F497EEB3CFEEB38FFEB78
+7F9038F03F803901E01FC0D803C013E0EB800F39FFF03FFFA3201B7F9A23>I<39FFFC03
+FFA3390FF000F0000714E07F0003EB01C0A2EBFC0300011480EBFE070000140013FFEB7F
+0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA25CA21307003890C7FCEA7C0FEAFE0E
+131E131C5BEA74F0EA3FE0EA0F8020277F9A23>I E /Fv 22 123
+df<126012F0A2126004047C830C>58 D<3801FFFE39003C03C090383800E015F01570A2
+4913F0A3EC01E001E013C0EC0780EC1E00EBFFF03801C038140C140EA2EA0380A4380700
+1E1508A2151048130FD8FFE01320C7EA03C01D1D7E9B20>82 D<EB0FC1EB3033EB400FEB
+80061201EA0300A200061304A200071300A27FEA03F06CB4FC6C13C0EB3FE01303EB00F0
+14701430A21220A200601360A214C0148038F00300EACC06EA83F8181E7E9C19>I<EA01
+E3EA0717EA0C0F1218EA380E12301270A2485AA4EB3880A3EA607838319900EA1E0E1112
+7E9116>97 D<123F1207A2120EA45AA4EA39E0EA3A30EA3C1812381270131CA3EAE038A3
+13301370136013C01261EA2300121E0E1D7E9C12>I<EB07E01300A2EB01C0A4EB0380A4
+3801E700EA0717EA0C0F1218EA380E12301270A2485AA4EB3880A3EA607838319900EA1E
+0E131D7E9C16>100 D<EA01F0EA0708120CEA1804EA38081230EA7030EA7FC0EAE000A5
+1304EA60081310EA3060EA0F800E127E9113>I<EB38C013C5EA0183EA03030007138012
+06120EA2381C0700A4130EA3EA0C1EEA047CEA039CEA001CA25B1260EAF0301370EAE0C0
+007FC7FC121A809114>103 D<EA01C01203A2EA0180C7FCA6121C12271247A21287A212
+0EA25AA35A1380A21270EA71001232121C0A1C7E9B0E>105 D<1307130FA213061300A6
+1378139CEA010C1202131C12041200A21338A41370A413E0A4EA01C01261EAF180EAF300
+12E6127C1024809B11>I<EA0FC01201A2485AA448C7FCA4EA0E07EB0880EB11C0132338
+1C4780EB8300001DC7FC121EEA3FC0EA38E01370A2EA7071A31372EAE032EA601C121D7E
+9C16>I<EA3C1F384E6180384681C0EA4701128F128E120EA2381C0380A3EB0700003813
+10A2130E1420387006403830038014127E9119>110 D<13F8EA030CEA0E06487E121812
+3000701380A238E00700A3130EA25BEA60185BEA30E0EA0F8011127E9114>I<38078780
+3809C8603808D03013E0EA11C014381201A238038070A31460380700E014C0EB0180EB83
+00EA0E86137890C7FCA25AA4123CB4FC151A819115>I<EA01C2EA0626EA0C1E1218EA38
+1C12301270A2EAE038A41370A3EA60F0EA23E0121C1200A2EA01C0A4EA0380EA1FF00F1A
+7E9113>I<EA3C3CEA4E42EA4687EA470FEA8E1E130CEA0E00A25AA45AA45A123010127E
+9113>I<EA01F0EA060CEA0C04130EEA180CEA1C00121FEA0FE013F0EA03F8EA0038EA20
+1CEA701812F01310EA8030EA6060EA1F800F127E9113>I<13C01201A3EA0380A4EAFFF0
+EA0700A3120EA45AA4EA3820A21340A2EA1880EA0F000C1A80990F>I<EA1C03EA270712
+471303EA8701A2120EA2EA1C02A3130412181308A2EA1C10EA0C20EA07C010127E9114>
+118 D<380787803808C8403810F0C03820F1E0EBE3C03840E1803800E000A2485AA43863
+808012F3EB810012E5EA84C6EA787813127E9118>120 D<001C13C0EA27011247A23887
+0380A2120EA2381C0700A4EA180EA3EA1C1EEA0C3CEA07DCEA001C1318EA6038EAF0305B
+485AEA4180003EC7FC121A7E9114>I<EA0381EA07C1EA0FF6EA081CEA1008EA00101320
+13401380EA010012025AEA08041210EA3C18EA67F8EA43F0EA81E010127E9113>I
+E /Fw 6 55 df<120C121C12EC120CAFEAFFC00A137D9211>49 D<121FEA60C01360EAF0
+7013301260EA0070A2136013C012011380EA02005AEA08101210EA2020EA7FE012FF0C13
+7E9211>I<EA0FC0EA3070EA7038A31200133013E0EA0FC0EA007013381318131C126012
+F01318EAE038EA6070EA1FC00E137F9211>I<136013E0A2EA016012021206120C120812
+101220126012C0EAFFFCEA0060A5EA03FC0E137F9211>I<EA6060EA7FC01380EA440012
+40A3124FEA70C0EA40E0EA00601370A212E0A21360EA40E0EA21C0EA1F000C137E9211>
+I<EA07C0EA0C20EA10701220EA6000A25A12CFEAD0C0EAE060EAC0201330A31240EA6020
+EA2060EA10C0EA0F000C137E9211>I E /Fx 6 116 df<3803F040380C0CC0EA1002EA30
+01EA600012E01440A36C13007E127EEA7FE0EA3FFC6CB4FC00071380EA007FEB07C0EB03
+E0130113007EA36C13C0A238E0018038D00300EACE06EA81F8131E7D9C19>83
+D<007FB512C038700F010060130000401440A200C014201280A300001400B1497E3803FF
+FC1B1C7D9B21>I<38FF81F8381C01E01480140013025B5B5B1330137013B8EA1D1C121E
+EA1C0E7F14801303EB01C014E014F038FF83FC16157F941A>107
+D<EAFFC0001CC7FCAC1480A3130114005B5BB5FC11157F9415>I<EA01F8EA070EEA0C03
+001C1380383801C0007813E0EA700000F013F0A7007013E0EA7801003813C0381C0380EA
+1E0738070E00EA01F814157E941A>111 D<EA1F10EA30F0EA603012C01310A2EAE000A2
+127EEA3FC0EA1FE0EA03F0EA0078133813181280A21310EAC030EAF060EA8F800D157E94
+13>115 D E /Fy 34 122 df<92261FFF80EBFFC00203B5D8F01F13F0021FDAFC7F13FC
+91267FF801B5EAC0FE902801FFC0003FEB03FF010790C7EAFFFE49484949481380494849
+13F8494815F0495AA201FF4C6C13005C70EC00FC70153097C7FCABBA12FEA4C601E0C701
+E0C8FCB3B3A2007F9026FFC07FEBFFF0A449487EC744>11 D<EE0F80A2161F163F167F16
+FFA25D5D5D5DA25D5D5D157B15F3EC01E31403EC07C31583EC0F03141E143E143C147814
+F01301EB03E014C0EB0780EB0F005B131E5B5B13F8485A5B485A485A120F90C7FC121E5A
+5A12F8B912E0A4C80007EB8000AD023FB612E0A433447DC33A>52
+D<EE07C04C7EA24C7EA34C7EA24C7EA34C7EA24B7FA34B80A24B8016DF16CF030F801687
+031F80160782033F80ED3E01037E80157C8203FC804B137F0201815D830203824B7F0207
+825D83020F824B7F021F8292C7FC834A82023E80027FB77EA391B87E02F8C8127F010183
+4A81A20103844A810107844A81A249488384011F8491C97EA249842601FFC081B66C0107
+B612FEA44F487CC758>65 D<B912C018FCF0FF8019E0D8001F90C7000313F805007FF03F
+FE727E1A807213C0841AE0A2841AF0A84E13E0A21AC0601A804E13004E5A4E5A4E5A0503
+13E0057F138092B600FCC7FCF0FF8019F092C8EA7FFCF01FFF060713807213C01AE07213
+F07213F81AFCA2F17FFEA31AFFA81AFEA219FF1AFC601AF84E13F04E13E04E13C0063F13
+804DB51200BA12FC19F0198006F8C7FC48477CC653>I<DC7FFE140E030FB500C0131E03
+7F02F8133E0203B600FE137E020F903AF800FF80FE023F0180EB1FE1DAFFFCC7EA07F301
+0301F0EC01FF4901C0804949157F4990C9123F4948161F4948160F494816074849160348
+5B1901485B481800A24849177EA25A91CBFC1A3E5AA21A005BA212FFAD127FA27FA21A1E
+7EA2807E1A3E6C6D173CA26C197C6C6D17781AF86C6D17F06C6D16016D6CEE03E06D6C16
+076D6CEE0FC06D6DED1F806D6DED3F006D01F0157E010001FCEC01F891263FFF80EB0FF0
+020F01F8EB7FC0020390B6C7FCDA007F14FC030F14E09226007FFEC8FC47497AC754>I<
+B97E18FCF0FF8019E0D8001F902680000F13F8050013FEF01FFF060713C0727F727F726C
+7E86737E191F737E1B80851BC0A27313E0A21BF085A31BF8A41BFCAE1BF8A41BF0A2611B
+E0A34F13C0A24F13801B0061624F5A4F5A4F5A06035B4E5B061F5BDE7FFEC7FC943807FF
+FCBA12F0198006FCC8FC18804E477CC659>I<B712F0A4D8001FEB8000B3B3B3A9B712F0
+A424477DC62B>73 D<B66C051FB512F86F5FA26F5FD8001FF3C000A2011E6D17F7A26E6C
+EE01E7A26E6CEE03C7A36E6CEE0787A26E6CEE0F07A26E6D151EA26E6D153CA36E6D1578
+A26E6D15F0A26F6CEC01E0A36F6CEC03C0A26F6CEC0780A26F6CEC0F00A26F6D131EA36F
+6D5BA26F6D5BA26F6D5BA3706C485AA2706C485AA2706C485AA3706C48C7FCA270139EA2
+7013FCA2705BA3705BA2715AA2715AEB7F80B600C0043FB612F8715AA271C7FC65477CC6
+6E>77 D<B812F8EFFFE018FC18FFD8001F902680003F13C0050313F005007FF07FFE727E
+84727F86A2727FA286A862A24E5BA2624E90C8FC4E5A4E5AF0FFF005075B053F138092B6
+00FCC9FC18E084DB800013FEEF1FFF7113C0717F717F717F8385A2727EA785A6F30180F3
+03C01A8084A2F2C00772158072EBE00FB700F06DEC1F0072EBF83E0600EBFFFC071F5BCC
+000113E052487CC657>82 D<DA7FF013070107B55B011FECE01F017FECF83F903AFFC00F
+FC7FD803FEC7B5FCD807F8143F4848140F4980001F8148488082485A83A200FF82A2837F
+A26D81A27F7F01FE92C7FC6C6C7E14F8ECFF806C14FCEDFFC06C15F816FF6C16C06C826C
+826C826C82013F81010F8101031680EB007F020315C0EC003F030114E0ED001F16077013
+F0828200F0167FA2173FA2171F7EA218E07EA27EEF3FC07E6DED7F807F6DEDFF0001F84A
+5A01FE4A5AD97FC0495A26FE3FFCEB3FF0D8FC0FB612C0D8F80392C7FC48C66C13FC4801
+0313E034497AC741>I<003FBA12FCA49026FE00079038E0007F01F0170FD87FC0EF03FE
+49170190C71600007E197EA2007C193EA30078191EA400F8191F48190FA5C81700B3B3A6
+0103B812C0A448467CC551>I<B700F00107B6FCA4D8001F0180C83803FE00F100F8B3B3
+AB6D170162A2816D1703626D6D1507626D170F6D6D4B5A6E6C4BC7FC6E6C157E6E6C5D6E
+6CEC03F86E01C0EB1FF0020101FCEBFFE06E6CB61280031F4AC8FC030314F8DB001F1380
+50487CC659>I<90380FFFF090B6FC000315C03A07F8007FF0486CEB1FFC486C6D7E6F7E
+6F7F6F7FA36C486D7F6C5A6C5AC9FCA5157F023FB5FC0103B6FC011F13F090387FFE0038
+01FFE0000713804890C7FC485A485A485A5BA2485AA35DA26D5B127F6D5B003F4A6C7ED8
+1FFE013E13FC3C0FFF80FC3FFFE000039038FFF01FC6ECC00F90390FFE0003332E7CAD38
+>97 D<EB7FC0B5FCA412037EB3A2ED1FFC92B57E02C314F09139CFE01FFC9139FF0007FE
+02FC903801FF804A6D13C04AEC7FE04A15F04A143F18F8171F18FCA2EF0FFEA318FFAB18
+FEA3171F18FCA218F8173F18F06EEC7FE06EECFFC06E491380027C491300D9FE3F495A90
+3AFC0FC03FF8D9F803B512E049C6148049D91FF8C7FC38487CC741>I<91381FFFC049B5
+12FC010714FF903A1FF8007F80D97FE0EBFFC09026FF800113E0000313005A5B485A121F
+496D13C0003FED7F80EE3F00007F92C7FC5BA212FFAC127F7FA2123FA26C6C15F0A26C6C
+14010007ED03E06D15C06C6D1307C66DEB0F80D97FF0EB3F0090391FFC01FC0107B512F0
+010114C09026001FFCC7FC2C2E7CAD34>I<EFFF804BB5FCA4ED000782B3A2EC1FFC49B5
+1283010714E390391FFC03FB90397FE0007F49487F48497F4890C77E484880484880121F
+5B123FA2127F5BA312FFAB127FA36C7EA2121F7F000F5D6D5C12076C6C143F6C6D5B2600
+7FE001FB13C090273FF807F313FF010FB512C3010114039038003FF038487CC741>I<EC
+3FFE49B512C0010F14F890393FF80FFC90397FE003FE9039FF8000FF4890C7EA7F804848
+EC3FC0000716E04848EC1FF0121F49140F003F16F8A2127F4915FC1607A212FFA290B7FC
+A301F0C9FCA5127FA37F123F173C6C7E000F167C17786C6C15F86C6CEC01F06C6DEB03E0
+6C6DEB0FC0D97FF0EB3F80903A1FFE01FF000107B512FC010014F0020F90C7FC2E2E7DAD
+35>I<EDFFC0021F13F0027F13FC903901FFC0FE0107EB03FFEB0FFE4948481380EB3FF8
+14F0137FA249486C1300A2ED00FC163093C7FCABB612FEA4C601E0C8FCB3B3A2007FEBFF
+F0A429487DC724>I<171FDA7FF0EBFFC00107B5000313E0011F9138CFE7F0903A7FE03F
+FF0F9039FF800FFE4890380007FC4848EB03FE00079238FF07E0000FEE83C0496DEB8000
+A2001F82A8000F5EA26D5B000793C7FC00035D6C6C495A6C6D485A489038E03FF091B512
+C0D803C791C8FC9038C07FF0000790CAFC5B7FA37F7F7F90B612F016FF6C16E017F86C82
+6C826D8148B812801207D81FF0C7001F13C04848140148489138007FE049153F12FF90C9
+121FA46D153F007F17C06D157F6C6CEDFF806C6C4A13006C6C4A5AD807FEEC0FFC2601FF
+E0EBFFF06C6CB612C0010F4AC7FCD9007F13C034447DAE3A>I<EB7FC0B5FCA412037EB3
+A2ED07FE92383FFFC092B512F09139C1F81FFC9138C7C00F9139CF8007FEDADE007FA202
+FC7F4A15805CA25CA35CB3A9B60081B6FCA438487BC741>I<137C48B4FC4813804813C0
+A24813E0A56C13C0A26C13806C1300EA007C90C7FCACEB7FC0B5FCA412037EB3B2B6FCA4
+18497CC820>I<EB7FC0B5FCA412037EB3A293383FFFF0A4933807FE00EE03F04C5AEE1F
+C04CC7FC167E5E4B5AED07E04B5A4B5A4BC8FC15FE14C1ECC3FF14C702CF7F91B57E8214
+FD02F87F4A7F4A6C7EEC803F6F7E826F7F6F7F81836F7F6F7F167F707E83707E824C13C0
+B690B512FEA437487DC73D>107 D<EB7FC0B5FCA412037EB3B3B3A8B61280A419487CC7
+20>I<9027FF8003FFEC03FFB5011F01E0011F13E0037F01F8017F13F8913D81F80FFC01
+F80FFC913D83C007FE03C007FE0003D987809026FF07807F6C90268F000390268F00037F
+029E159E02BC6D01BC7F02F803F8814A5DA24A5DA34A5DB3A9B66CB66CB61280A4592E7B
+AD62>I<9039FF8007FEB590383FFFC092B512F0913981F81FFC913887C00F000390398F
+8007FE6CD99E007FA202BC7F02F815805CA25CA35CB3A9B60081B6FCA4382E7BAD41>I<
+EC0FFE49B512F0010714FC90391FF803FF90267FE00013C0D9FF80EB3FE04890C76C7E48
+486E7E48486E7E000F82491403001F82003F17804980A2007F17C0A300FF17E0AA007F17
+C0A46C6C4A1380A2001F17006D5C000F5E6C6C4A5A00035E6C6C4A5A6C6D495AD97FE0EB
+FFC090261FFC0790C7FC0107B512FC010114F0D9001F90C8FC332E7DAD3A>I<90397FC0
+1FFCB590B57E02C314F09139CFE03FFC9139FF0007FE000301FC903803FF806C496D13C0
+4A6D13E04A15F04A147FEF3FF8A218FC171F18FEA3EF0FFFAB18FE171FA318FC173F18F8
+177F18F06EECFFE06E4913C06E4913806E49130002FF495A9139CFC03FF802C3B512E002
+C01480DB1FF8C7FC92C9FCB0B67EA438427CAD41>I<90397F803F80B5EBFFE0028313F8
+913887C3FC91388F07FE000390389E0FFF6C139C14BC14B814F814F0ED07FE9138E003FC
+ED01F892C7FCA35CB3A7B612E0A4282E7DAD2F>114 D<90390FFE01C090B512C7000314
+FF3807F801391FC0007F4848131F90C7120F127E150712FE15037EA27F01E090C7FC13F8
+EBFFC06C13FF15E06C14F86C14FE6C806C1580000115C06C6C14E0011F14F01300140391
+38007FF800F0141F150F6C1407A215037EA26C15F0A26C14076D14E06DEB0FC001F0EB1F
+8001FCEBFF0039FC7FFFFCD8F01F13F0D8E0031380252E7CAD2E>I<EB01E0A61303A313
+07A3130FA2131F133FA2137FEA01FF5A000F90B512C0B7FCA3C601E0C7FCB3A616F0A915
+01D97FF013E0A290393FF803C0011F130790390FFE0F806DB51200010113FC9038001FF0
+24427EC12D>I<D97FC0ECFF80B549B5FCA40003EC00076C81B3A95EA35EA26C5D5E6D6C
+137B6E01F313C090273FF803E313FF010FB512C3010314039038003FF8382E7BAD41>I<
+B5D8FE07B539E003FFFEA400039027C0001FF8C7EA3FC06CF10F006E6D7E6C191E16076E
+6E143E017F183C6E6E147C013F18785E6E6F13F8011F4A5D6E011EEBC001010F60EE3C7F
+6EEDE0036D027C5D923A80783FF0076D60EEF01F03C0ECF80F6D01C193C7FC923AE1E00F
+FC1F6D171E9238E3C00703F3ECFE3EDA7FF7153C923AFF8003FF7C6E16784C7E19F86E5E
+4B7F020F5E4B147FA202075E4B143F02035E4B141FA26E486EC8FC4F2E7EAD54>119
+D<B500FE90381FFFFCA4C601E0903803FE006EEB01F86D6C5C6D6C495A011F4A5A6D6C49
+5A6E49C7FC6D6D5A6DEBC07E6D147C6D6D5AEDF1F091387FFBE06EB45A806E5B93C8FC6E
+7F6E7F6E7FA24A7F4A7F8291380F9FFEEC1F0F91383E07FF027C804A6C7F01016D7F4948
+7E4A6D7E49488049486D7E49C76C7E013E140F017E6E7E48B41680B500E0017F13FFA438
+2E7EAD3D>I<B649B5FCA4000101C09038001FE06EEC0F806C17006E5C017F151E6E143E
+013F153C80011F5D8017F8010F5D6E13016D5DED80036D5DEDC0076D5D15E06D4AC7FC15
+F05E027F131EEDF83E023F133CEDFC7C021F1378EDFEF8020F5B15FF6E5BA36E5BA26E5B
+A26E90C8FCA2157EA2153CA2157C157815F85D1401001F5C383F8003D87FC05B38FFE007
+5D140F4AC9FC141E387FC07C495A383F03F06CB45A00071380D801FCCAFC38427EAD3D>
+I E /Fz 57 123 df<14FE90380301801306EB0C03EB1C0191C7FC13181338A43803FFFE
+3800700EA35CA213E0A25CA3EA01C01472A438038034141891C7FC90C8FCA25A12C612E6
+5A12781925819C17>12 D<1218123CA31204A21208A21210122012401280060C779C0D>
+39 D<13031306130813181330136013C0A2EA0180EA0300A21206A25AA2121C1218A212
+381230A21270A21260A412E0A51260A51220123012107EA2102A7B9E11>I<1310A21308
+130C13041306A51307A51306A4130EA2130CA2131C1318A213381330A21360A213C0A2EA
+0180EA0300A212065A5A121012605A102A809E11>I<12181238127812381208A21210A2
+12201240A21280050C7D830D>44 D<EAFFC0A30A037D890F>I<1230127812F012600504
+7C830D>I<14031407140E140C141C141814381430147014E014C013011480130314005B
+1306130E5B1318133813301370136013E05B1201485A90C7FC5A1206120E120C121C1218
+12385A126012E05AA218297F9E15>I<133EEB4180EB80C0EA0100000213E0EA0440A212
+08A3381081C0A238110380000E1300EA00065B5B136013800003C7FC1204481340481380
+5AEB0100EA7F07EA43FEEA81FCEA8078131D7D9B15>50 D<1206120FA212061200AA1230
+127812F0126008127C910D>58 D<EA01E0EA0618EA0808EA100CA212201240131CEA8018
+EAE03813F0EAC1E0EA03C0EA0780EA0F00121C5AEA3080A2EA3100121EC7FCA512301278
+5A12600E1E789D15>63 D<1418A21438A21478A214B8EB0138A2EB023C141C1304130C13
+081310A21320A2EB7FFCEBC01C1380EA0100141E0002130EA25A120C001C131EB4EBFFC0
+1A1D7E9C1F>65 D<48B5FC39003C038090383801C0EC00E0A35B1401A2EC03C001E01380
+EC0F00141EEBFFFC3801C00E801580A2EA0380A43907000F00140E141E5C000E13F0B512
+C01B1C7E9B1D>I<903803F02090381E0C6090383002E09038E003C03801C001EA038048
+C7FC000E1480121E121C123C15005AA35AA41404A35C12705C6C5B00185B6C485AD80706
+C7FCEA01F81B1E7A9C1E>I<48B5FC39003C03C090383800E0A21570A24913781538A215
+785BA4484813F0A315E03803800115C0140315803907000700140E5C5C000E13E0B51280
+1D1C7E9B1F>I<48B512F038003C00013813301520A35BA214081500495AA21430EBFFF0
+3801C020A439038040801400A2EC0100EA07005C14021406000E133CB512FC1C1C7E9B1C
+>I<48B512F038003C00013813301520A35BA214081500495AA21430EBFFF03801C020A4
+48485A91C7FCA348C8FCA45AEAFFF01C1C7E9B1B>I<EA03FFEA00781370A413E0A4EA01
+C0A4EA0380A4EA0700A4120EA4121EEAFFC0101C7D9B10>73 D<3801FFC038003C001338
+A45BA45BA4485AA438038002A31404EA0700140C14181438000E13F0B5FC171C7E9B1A>
+76 D<D801FEEB01FED8003E14E0012EEB03C01505A21509014EEB0B8015131523134701
+87EB4700A21587EC0107D80107130E14021404A20002495AEB0388149014A000045C14C0
+A2000C1380001CEB007839FF8307FF271C7E9B25>I<D801FCEBFF80D8001CEB1C00012E
+13181510A2132701475B13431480A2903881C040A3EB80E0D801005B1470A300020139C7
+FCA3141D48131E140EA2120C001C1304EAFF80211C7E9B1F>I<EB07F0EB1C1CEB700E49
+7E3901C00380EA0380EA0700000E14C0121E121C123CA25AA348EB0780A3EC0F00A2140E
+141E5C007013385C00785B383801C06C485AD80E0EC7FCEA03F81A1E7A9C20>I<3801FF
+FE39003C038090383801C0EC00E0A3EB7001A315C0EBE0031580EC0700141C3801FFF001
+C0C7FCA3485AA448C8FCA45AEAFFE01B1C7E9B1C>I<3801FFFE39003C078090383801C0
+15E01400A2EB7001A3EC03C001E01380EC0700141CEBFFE03801C03080141CA2EA0380A4
+3807003C1520A348144039FFE01E80C7EA0F001B1D7E9B1E>82 D<EB0F84EB304CEB403C
+EB8018EA01005AA200061310A214001207A2EA03E013FC6CB4FC38007F80EB07C01301A2
+1300A21220A238600180A2EB03001302EAF004EACC18EA83E0161E7D9C17>I<001FB512
+C0381C070138300E0000201480126012405B1280A2000014005BA45BA45BA4485AA41203
+EA7FFE1A1C799B1E>I<397FF03FE0390F000700000E13061404A3485BA4485BA4485BA4
+485BA35CA249C7FCEA60025B6C5AEA1830EA07C01B1D789B1F>I<39FF801FC0393C0007
+00001C1304A25C5CA25CA25C5CA26C48C7FCA213025BA25BA25B5B120F6C5AA25B90C8FC
+A21206A21A1D779B1F>I<3AFF83FF07F03A3C007001C00038158002F01300A290380170
+025D13025D13045D13085D131001305B1320D81C405BA2D98071C7FCA2381D0072A2001E
+1374A2001C1338A20018133014201210241D779B29>I<3901FF81FE39003E0078011C13
+6015C0011E138090380E0100EB0F026D5A5C1490EB03A014E06D5AA28013021304497EEB
+10701320EB603813C0EB803C3801001C12020006131E121EB4EB7FC01F1C7E9B1F>I<EB
+3F80EB7F001360A35BA4485AA448C7FCA41206A45AA45AA45AA45AA45AA212FEA211297E
+9E0D>91 D<EB3F80EB7F001303A31306A45BA45BA45BA45BA45BA4485AA448C7FCA41206
+A212FEA21129819E0D>93 D<EA01E3EA0717EA0C0F1218EA380E12301270A2EAE01CA413
+39A3EA6079EA319AEA1E0C10127C9115>97 D<123F1207A2120EA45AA4EA39E0EA3A18EA
+3C0C12381270130EA3EAE01CA31318133813301360EA60C0EA3180EA1E000F1D7C9C13>
+I<13F8EA0304120EEA1C0EEA181CEA30001270A25AA51304EA60081310EA3060EA0F800F
+127C9113>I<EB07E01300A2EB01C0A4EB0380A43801E700EA0717EA0C0F1218EA380E12
+301270A2485AA41339A3EA6079EA319AEA1E0C131D7C9C15>I<13F8EA0704120CEA1802
+EA38041230EA7008EA7FF0EAE000A5EA60041308EA30101360EA0F800F127C9113>I<EB
+03C0EB0670130CEB1C601400A25BA53803FF8038007000A55BA5485AA5485AA390C7FCA2
+5A12C612E65A12781425819C0D>I<EB78C0EA01C5EA03031206000E1380120C121CA238
+380700A4130EA3EA181EEA0C7CEA079CEA001CA25BA2EAC030EAE070EAC1C0007FC7FC12
+1A7E9113>I<EA0FC01201A2485AA448C7FCA4EA0E3E13C3380F0380120E121E121CA338
+380700A3130E00701340A2131C1480EAE00C38600700121D7E9C15>I<EA01801203EA01
+00C7FCA7121C12261247A2128EA2120E5AA35AA21271A31272A2123C091C7C9B0D>I<13
+03130713031300A71378138CEA010C1202131C12041200A21338A41370A413E0A4EA01C0
+A2EAC180EAE30012C612781024819B0D>I<EA0FC01201A2485AA448C7FCA4380E078013
+08EB11C01321381C4180EB8000001DC7FC121EEA3FC0EA38E01370A2EA7071A31372EAE0
+32EA601C121D7E9C13>I<EA1F801203A2EA0700A4120EA45AA45AA45AA412E2A312E412
+641238091D7D9C0B>I<391C1E078039266318C0394683A0E0384703C0008E1380A2120E
+A2391C0701C0A3EC0380D8380E1388A2EC0708151039701C032039300C01C01D127C9122
+>I<EA383EEA4CC3384D0380124E129E129C121CA238380700A3130E00701340A2131C14
+80EAE00C3860070012127C9117>I<13F8EA030CEA0E06487E1218123000701380A238E0
+0700A3130EA25BEA60185BEA30E0EA0F8011127C9115>I<380387803804C860EBD03013
+E0EA09C014381201A238038070A31460380700E014C0EB0180EB8300EA0E86137890C7FC
+A25AA45AB4FC151A809115>I<EA1C3CEA2642EA4687EA4707EA8E061300120EA25AA45A
+A45A123010127C9112>114 D<EA01F0EA0608120C131CEA1818EA1C00121F13C0EA0FF0
+1207EA00781338EA603012E012C0EA8060EA60C0EA1F000E127D9111>I<12035AA3120E
+A4EAFFE0EA1C00A35AA45AA4EAE080A2EAE100A2126612380B1A7C990E>I<381C0180EA
+2E03124EA2388E0700A2121CA2EA380EA438301C80A3EA383C38184D00EA0F8611127C91
+16>I<EA1C06EA2E0EEA4E06A2EA8E02A2121CA2EA3804A313081230A21310EA3820EA18
+40EA0F800F127C9113>I<381E0183382703871247148338870701A2120EA2381C0E02A3
+1404EA180C131C1408EA1C1E380C26303807C3C018127C911C>I<38038780380CC84038
+0870E012103820E0C014001200A2485AA4EA03811263EAE38212C5EA8584EA787813127E
+9113>I<381C0180EA2E03124EA2388E0700A2121CA2EA380EA4EA301CA3EA383CEA1878
+EA0FB8EA003813301370EAE0605BEA81800043C7FC123C111A7C9114>I<EA01C1EA07E1
+EA0FF6EA081CEA1008EA0010132013401380EA010012025AEA08041210EA2C0CEA73F8EA
+41F0EA80E010127E9111>I E /FA 52 124 df<90383FE3F83901F03F1C3903C03E3E00
+07137CEA0F80151C1500A5B612C0A2390F807C00AE397FE1FF80A21F1D809C1C>11
+D<EB3FC03801F0303803C0380007137CEA0F80A2143891C7FCA4B512FCA2380F807CAE39
+7FE1FF80A2191D809C1B>I<127012F812FCA3127C1204A21208A3121012201240060E7D
+850D>44 D<EAFFF8A40D04808A10>I<127812FCA4127806067D850D>I<EA03F8EA0F1EEA
+1C07003C1380EA3803007813C0A300F813E0AC007813C0A200381380EA3C07001C1300EA
+0F1EEA03F8131B7E9A18>48 D<1360EA01E0120F12FF12F31203B3A2387FFF80A2111B7D
+9A18>I<EA07F8EA1FFE38383F8038780FC0EAFC0714E01303A21278EA000714C0A2EB0F
+80EB1F00131E13385B5B38018060EA03001206000813E0381FFFC05A5AB5FCA2131B7E9A
+18>I<EA07F8EA1FFEEA3C1FEB0F80387C07C0127E127C123838000F80A2EB1E005BEA03
+F8EA001EEB0F80EB07C0A214E01230127812FCA214C038780F80EB1F00EA1FFEEA07F813
+1B7E9A18>I<EB018013031307130F131F133F136F13CF138F1201EA030F1206120C1218
+1230126012C0B512F8A238000F80A6EBFFF8A2151B7F9A18>I<38380180383FFF005B5B
+5B13C00030C7FCA4EA31F8EA361E38380F80EA3007000013C014E0A3127812F8A214C012
+F038600F8038381F00EA1FFEEA07F0131B7E9A18>I<137EEA03FF38078180380F03C0EA
+1E07123C387C03800078C7FCA212F813F8EAFB0E38FA0780EAFC0314C000F813E0A41278
+A214C0123CEB0780381E0F00EA07FEEA03F8131B7E9A18>I<1260387FFFE0A214C01480
+A238E00300EAC0065B5BC65AA25B13E0A212015B1203A41207A66C5A131C7D9B18>I<EA
+03F8EA0FFE381E0F80EA3807EB03C01278127C127E387F8380383FC70013FE6C5A6C7E6C
+7E001D138038387FC038781FE0EA700FEAF0031301A3007813C0EB0380EA3E07381FFE00
+EA03F8131B7E9A18>I<EA03F8EA0FFEEA1E0F383C07801278EB03C012F8A214E0A4EA78
+071238EA3C0BEA0E1BEA03E3EA000314C0A2EA3807007C13801400EA780FEA383CEA1FF8
+EA0FE0131B7E9A18>I<127812FCA412781200A6127812FCA4127806127D910D>I<EA0FF0
+EA303CEA601EEAF01F12F8A21270EA003E133C137013E0EA01C01380A2EA0300A5C7FCA4
+EA0780EA0FC0A4EA0780101D7D9C17>63 D<EB0380A2497EA3497EA2497E131BEB3BF813
+31A2EB60FCA2EBE0FEEBC07EA248487E90B5FC481480EB001F4814C00006130FA248EB07
+E0A239FF803FFEA21F1C7E9B24>65 D<B512F814FF390FC01F80EC0FC0140715E0A515C0
+EC0F80EC3F00EBFFFE9038C00F80EC07C0EC03E0A215F0A5EC07E0A2EC1FC0B6120014FC
+1C1C7E9B22>I<90381FE0209038FFF8E03803F80F3807C003380F800148C7FC123E1560
+127E127C00FC1400A8007C1460127E123E15C07E390F8001803907C003003803F80E3800
+FFFCEB1FE01B1C7D9B22>I<B512F814FF390FC01FC0EC07E0EC01F015F8140015FC157C
+A2157EA8157CA315F8A2EC01F0EC07E0EC1FC0B6120014F81F1C7E9B25>I<B6FCA2380F
+C01F1407801580A214C1A39038C1C00013C313FFA213C313C113C01560A2EC00E015C0A2
+1401A21403EC0F80B6FCA21B1C7E9B1F>I<B6FCA2380FC01F1407801580A2140114C1A2
+ECC00013C113C313FFA213C313C113C0A391C7FCA6EAFFFEA2191C7E9B1E>I<EAFFFCA2
+EA0FC0B3A6EAFFFCA20E1C7E9B12>73 D<D8FFC0EB03FF6D5B000F15F0D80DF0130DA3D8
+0CF81319A2017C1331A26D1361A26D13C1A390380F8181A2903807C301A2EB03E6A2EB01
+FCA3EB00F8A23AFFC0701FFFA2281C7E9B2D>77 D<B512F014FE380FC03FEC0F806E7E81
+A55D4A5A023EC7FCEBFFF0EBC07C80143F6E7EA6ED8180A2EC0FC13AFFFC07C300EC01FE
+211C7E9B24>82 D<3807F820381FFEE0EA3C07EA7801EA700012F01460A26C130012FEEA
+FFE0EA7FFE6C7E1480000F13C06C13E0EA007FEB03F01301130012C0A214E07E38F001C0
+EAFC0338EFFF00EA83FC141C7D9B1B>I<007FB512E0A238781F81007013800060146000
+E0147000C01430A400001400B03807FFFEA21C1C7E9B21>I<39FFFC03FFA2390FC00030
+B3120715606C6C13E03901F001C03900FC078090387FFE00EB0FF8201C7E9B25>I<EA0F
+F8EA1C1E383E0F80130714C0121C1200137FEA07E7EA1F07123C127C12F8A3EA780B383E
+13F8EA0FE115127F9117>97 D<B4FCA2121FA9EB3F80EBE1E0EB8070EB0078143CA2143E
+A6143CA21478EB8070381EC1E0381C3F00171D7F9C1B>I<EA03FCEA0E0EEA1C1F123C12
+78130E00F8C7FCA61278EB0180123C381C0300EA0E0EEA03F811127E9115>I<EB0FF0A2
+1301A9EA01F9EA0F07EA1C03EA3C011278A212F8A61278A2123CEA1C03380F0FFEEA03F9
+171D7E9C1B>I<EA03FCEA0F07381C0380383C01C0127814E012F8A2B5FC00F8C7FCA312
+7814607E6C13C0380F03803801FC0013127F9116>I<137F3801E3803803C7C0EA078712
+0FEB8380EB8000A5EAFFF8A2EA0F80AEEA7FF0A2121D809C0F>I<3803F0F0380E1F38EA
+3C0F3838073000781380A400381300EA3C0FEA1E1CEA33F00030C7FCA3EA3FFF14C06C13
+E014F0387801F838F00078A300701370007813F0381E03C03807FF00151B7F9118>I<B4
+FCA2121FA9EB0FC0EB31E0EB40F0EB80F8A21300AB38FFE7FFA2181D7F9C1B>I<121E12
+3FA4121EC7FCA6127FA2121FAEEAFFC0A20A1E7F9D0E>I<B4FCA2121FA9EB03FCA2EB01
+C0EB0300130E5B5B137813FC13BE131F7F1480EB07C0EB03E0130138FFE7FEA2171D7F9C
+19>107 D<B4FCA2121FB3A7EAFFE0A20B1D7F9C0E>I<39FF0FC07E903831E18F3A1F40F2
+0780D980FC13C0A2EB00F8AB3AFFE7FF3FF8A225127F9128>I<38FF0FC0EB31E0381F40
+F0EB80F8A21300AB38FFE7FFA218127F911B>I<EA01FC380F0780381C01C0003C13E038
+7800F0A200F813F8A6007813F0A2383C01E0381E03C0380F07803801FC0015127F9118>
+I<38FF3F80EBE1E0381F80F0EB0078147C143C143EA6143C147C1478EB80F0EBC1E0EB3F
+0090C7FCA6EAFFE0A2171A7F911B>I<EAFE3E1347381E8F80A3381F070090C7FCAAEAFF
+E0A211127F9114>114 D<EA1FD8EA3078EA601812E0A2EAF000EAFF80EA7FE013F0EA1F
+F8EA07FCEA007CEAC01CA212E01318EAF830EACFC00E127E9113>I<1203A45AA25AA2EA
+3FFC12FFEA1F00A9130CA4EA0F08EA0798EA03F00E1A7F9913>I<38FF07F8A2EA1F00AC
+1301120F380786FFEA01F818127F911B>I<38FFC1FCA2381F00601380000F13C0A23807
+C180A23803E300A213F7EA01F613FE6C5AA21378A2133016127F9119>I<39FF8FF8FEA2
+391F03E030A3390F87F06013869038C6F8E03907CC78C0A23903FC7D80EBF83D143F3901
+F01F00A20000131EEBE00EA21F127F9122>I<38FFC1FCA2381F00601380000F13C0A238
+07C180A23803E300A213F7EA01F613FE6C5AA21378A21330A25B1270EAF8E05BEAF98000
+73C7FC123E161A7F9119>121 D<B512FE1701808B18>123 D E /FB
+85 125 df<EB7E1F3901C1B180390303E3C0000713C3000EEBC180903801C000A6B512FC
+380E01C0B0387F87FC1A1D809C18>11 D<137E3801C180EA0301380703C0120EEB018090
+C7FCA5B512C0EA0E01B0387F87F8151D809C17>I<EB7FC0EA01C1EA03031207EA0E01A7
+B5FCEA0E01B0387FCFF8151D809C17>I<90383F07E03901C09C18380380F0D80701133C
+000E13E00100131892C7FCA5B612FC390E00E01CB03A7FC7FCFF80211D809C23>I<12E0
+A212F01238121C120E120207077C9C15>18 D<120EA2121E1238127012E012800707779C
+15>I<126012F0A71260AD1200A5126012F0A21260041E7C9D0C>33
+D<EA6060EAF0F0EAF8F8EA6868EA0808A3EA1010A2EA2020EA4040EA80800D0C7F9C15>
+I<000F14C038188001393060038038703807396027FF0038E01006140E5C141814381430
+1470386020E000705BEA30416C485A390F0303C0390007062090380E0C1090380C1C08EB
+1C18903838380413301370136013E0EA01C013800003EB18083807001C0006EB0C10000E
+EB0620000CEB03C01E217E9E23>37 D<126012F012F812681208A31210A2122012401280
+050C7C9C0C>39 D<1380EA0100120212065AA25AA25AA35AA412E0AC1260A47EA37EA27E
+A27E12027EEA0080092A7C9E10>I<7E12407E12307EA27EA27EA37EA41380AC1300A412
+06A35AA25AA25A12205A5A092A7E9E10>I<126012F0A212701210A41220A21240128004
+0C7C830C>44 D<EAFFE0A20B0280890E>I<126012F0A2126004047C830C>I<1303A21307
+1306A2130E130C131C1318A213381330A213701360A213E013C0A21201138012031300A2
+5A1206A2120E120CA2121C1218A21238123012701260A212E05AA210297E9E15>I<EA03
+C0EA0C30EA1818EA300CA2EA700EEA6006A2EAE007ADEA6006A2EA700EEA300CA2EA1818
+EA0C30EA07E0101D7E9B15>I<5A1207123F12C71207B3A5EAFFF80D1C7C9B15>I<EA07C0
+EA1830EA201CEA400C130EEAF00F12F81307A21270EA000F130EA2131CA2133813701360
+13C0EA0180EA0300EA0601120C1218EA1002EA3FFE127F12FF101C7E9B15>I<EA07E0EA
+1830EA201CA2EA781E130E131E1238EA001CA2131813301360EA07C0EA0030131CA2130E
+130FA2127012F8A3EAF00EEA401C1220EA1830EA07C0101D7E9B15>I<130CA2131C133C
+A2135C13DC139CEA011C120312021204120C1208121012301220124012C0B512C038001C
+00A73801FFC0121C7F9B15>I<EA300CEA3FF813F013C0EA2000A6EA23E0EA2C30EA3018
+131CEA200E1200130FA3126012F0A3EA800EEA401E131CEA2038EA1870EA07C0101D7E9B
+15>I<13F0EA030CEA0404EA0C0EEA181E1230130CEA7000A21260EAE3E0EAE430EAE818
+EAF00C130EEAE0061307A51260A2EA7006EA300E130CEA1818EA0C30EA03E0101D7E9B15
+>I<1240387FFF801400A2EA4002485AA25B485AA25B1360134013C0A212015BA21203A4
+1207A66CC7FC111D7E9B15>I<EA03E0EA0C30EA1008EA200C13061260A21270A2EA7C0C
+EA3E18EA3FB0EA1FE0EA07F013F8EA18FCEA307EEA601E130FEAC0071303A4EA60021304
+EA300CEA1C10EA07E0101D7E9B15>I<EA03C0EA0C30EA1818EA300C1270EA600EEAE006
+A21307A51260EA700F1230EA1817EA0C27EA07C7EA0006A2130EEA300C127813181270EA
+2030EA10C0EA0F80101D7E9B15>I<126012F0A212601200AA126012F0A2126004127C91
+0C>I<126012F0A212601200AA126012F0A212701210A41220A212401280041A7C910C>I<
+EA0FE0EA3038EA401CEAE00E12F0A3EA000C131C1330136013C0138012011300A6C7FCA5
+1203EA0780A2EA03000F1D7E9C14>63 D<1306A3130FA3EB1780A2EB37C01323A2EB43E0
+1341A2EB80F0A338010078A2EBFFF83802003CA3487FA2000C131F80001E5BB4EBFFF01C
+1D7F9C1F>65 D<B512C0380F00788080140E140FA4140E141E5C14F8EBFFF0EB003C8080
+801580A5EC0F00A2141E1478B512E0191C7F9B1D>I<90381F8080EBE061380180193807
+0007000E13035A14015A00781300A2127000F01400A8007014801278A212386CEB0100A2
+6C13026C5B380180083800E030EB1FC0191E7E9C1E>I<B512C0380F00F0143C140E80A2
+EC038015C01401A215E0A815C0A21403158014071500140E5C1470B512C01B1C7E9B20>
+I<B512FC380F003C140C1404A214061402A213011400A35B13FF13037FA3140113001402
+A31406A2140C143CB512FC181C7E9B1C>I<B512F8380F007814181408A2140C1404A213
+011400A35B13FF13037FA490C7FCA8EAFFF8161C7E9B1B>I<90381F8080EBE061380180
+1938070007000E13035A14015A00781300A2127000F01400A6ECFFF0EC0F800070130712
+78A212387EA27E6C130B380180113800E06090381F80001C1E7E9C21>I<39FFF0FFF039
+0F000F00AC90B5FCEB000FAD39FFF0FFF01C1C7F9B1F>I<EAFFF0EA0F00B3A8EAFFF00C
+1C7F9B0F>I<3807FF8038007C00133CB3127012F8A21338EA7078EA4070EA30E0EA0F80
+111D7F9B15>I<39FFF01FE0390F000780EC060014045C5C5C5C5C49C7FC13021306130F
+EB17801327EB43C0EB81E013016D7E1478A280143E141E80158015C039FFF03FF01C1C7F
+9B20>I<EAFFF8EA0F8090C7FCB01408A31418A2141014301470EB01F0B5FC151C7E9B1A>
+I<B46CEBFF80000FECF800A2390BC00178A33809E002A23808F004A3EB7808A3EB3C10A3
+EB1E20A3EB0F40A2EB0780A3EB0300121C3AFF8307FF80211C7E9B26>I<B4EB1FF0390F
+8003809038C00100120BEA09E0EA08F0A21378133C133E131E130F14811307EB03C1EB01
+E114F113001479147D143D141FA2808080121CB46C7E1C1C7F9B1F>I<EB3F80EBE0E038
+03803848487E000E7F487F003C148000381303007814C0A20070130100F014E0A8007014
+C000781303A200381480003C1307001C14006C130E6C5B6C6C5A3800E0E0EB3F801B1E7E
+9C20>I<B51280380F00E01478143C141C141EA5141C143C147814E0EBFF8090C7FCACEA
+FFF0171C7E9B1C>I<EB3F80EBE0E03803803848487E000E7F487F003C14800038130300
+7814C0A20070130100F014E0A8007014C000781303A200381480383C0E07D81C11130038
+0E208E0007135C3803A0783900F0E020133FEB0060EC3060EC38E0EC3FC0A2EC1F80EC0F
+001B257E9C20>I<B5FC380F01E0EB007880141C141EA4141C143C5CEB01E001FFC7FCEB
+01E0EB0070147880A61510A2141CA239FFF00E20C7EA03C01C1D7E9B1F>I<3807E080EA
+1C19EA30051303EA600112E01300A36C13007E127CEA7FC0EA3FF8EA1FFEEA07FFC61380
+130FEB07C0130313011280A300C01380A238E00300EAD002EACC0CEA83F8121E7E9C17>
+I<007FB512C038700F010060130000401440A200C014201280A300001400B1497E3803FF
+FC1B1C7F9B1E>I<39FFF01FF0390F000380EC0100B3A26C1302138000035BEA01C03800
+E018EB7060EB0F801C1D7F9B1F>I<39FFE00FF0391F0003C0EC01806C1400A238078002
+A213C000035BA2EBE00C00011308A26C6C5AA213F8EB7820A26D5AA36D5AA2131F6DC7FC
+A21306A31C1D7F9B1F>I<3AFFE1FFC0FF3A1F003E003C001E013C13186C6D1310A32607
+801F1320A33A03C0278040A33A01E043C080A33A00F081E100A39038F900F3017913F2A2
+017E137E013E137CA2013C133C011C1338A20118131801081310281D7F9B2B>I<39FFF0
+7FC0390FC01E003807800CEBC00800035B6C6C5A13F000005BEB7880137C013DC7FC133E
+7F7F80A2EB13C0EB23E01321EB40F0497E14783801007C00027F141E0006131F001F1480
+39FF807FF01C1C7F9B1F>I<39FFF003FC390F8001E00007EB00C06D13800003EB01006D
+5A000113026C6C5A13F8EB7808EB7C18EB3C10EB3E20131F6D5A14C06D5AABEB7FF81E1C
+809B1F>I<12FEA212C0B3B312FEA207297C9E0C>91 D<EA0808EA1010EA2020EA4040A2
+EA8080A3EAB0B0EAF8F8EA7878EA30300D0C7A9C15>I<12FEA21206B3B312FEA2072980
+9E0C>I<EA1FC0EA3070EA78387F12301200A2EA01FCEA0F1C12381270126000E01340A3
+EA603C38304E80381F870012127E9115>97 D<12FC121CAA137CEA1D87381E0180381C00
+C014E014601470A6146014E014C0381E018038190700EA10FC141D7F9C17>I<EA03F8EA
+0C0CEA181E1230EA700CEA600012E0A61260EA70021230EA1804EA0C18EA03E00F127F91
+12>I<EB1F801303AAEA03F3EA0E0BEA1807EA30031270126012E0A6126012701230EA18
+07EA0E1B3803E3F0141D7F9C17>I<EA07E0EA0C30EA1818EA300CEA700EEA600612E0EA
+FFFEEAE000A41260EA70021230EA1804EA0C18EA03E00F127F9112>I<13F8EA018CEA07
+1E1206EA0E0C1300A6EAFFE0EA0E00B0EA7FE00F1D809C0D>I<EB03803807C4C0EA1C78
+3838388038301800EA701CA4EA3018EA38386C5AEA27C00020C7FCA21230EA3FF86CB4FC
+1480EA2003386001C0EAC000A33860018038300300EA1C0EEA07F8121C7F9215>I<12FC
+121CAA137C1387EA1D03001E1380121CAD38FF9FF0141D7F9C17>I<1218123CA21218C7
+FCA712FC121CB0EAFF80091D7F9C0C>I<13C0EA01E0A2EA00C01300A7EA07E01200B3A2
+1260EAF0C012F1EA6180EA3E000B25839C0D>I<12FC121CAAEB0FE0EB0780EB06005B13
+105B5B13E0121DEA1E70EA1C781338133C131C7F130F148038FF9FE0131D7F9C16>I<12
+FC121CB3A9EAFF80091D7F9C0C>I<39FC7E07E0391C838838391D019018001EEBE01C00
+1C13C0AD3AFF8FF8FF8021127F9124>I<EAFC7CEA1C87EA1D03001E1380121CAD38FF9F
+F014127F9117>I<EA03F0EA0E1CEA1806487E00701380EA600100E013C0A600601380EA
+700300301300EA1806EA0E1CEA03F012127F9115>I<EAFC7CEA1D87381E0180001C13C0
+EB00E0A21470A614E0A2EB01C0001E1380381D0700EA1CFC90C7FCA7B47E141A7F9117>
+I<3803E080EA0E19EA1805EA3807EA7003A212E0A61270A2EA38071218EA0E1BEA03E3EA
+0003A7EB1FF0141A7F9116>I<EAFCE0EA1D38EA1E78A2EA1C301300ACEAFFC00D127F91
+10>I<EA1F90EA2070EA4030EAC010A212E0EAF800EA7F80EA3FE0EA0FF0EA00F8EA8038
+131812C0A2EAE010EAD060EA8FC00D127F9110>I<1204A4120CA2121C123CEAFFE0EA1C
+00A91310A5120CEA0E20EA03C00C1A7F9910>I<38FC1F80EA1C03AD1307120CEA0E1B38
+03E3F014127F9117>I<38FF07E0383C0380381C0100A2EA0E02A2EA0F06EA0704A2EA03
+88A213C8EA01D0A2EA00E0A3134013127F9116>I<39FF3FC7E0393C0703C0001CEB0180
+1500130B000E1382A21311000713C4A213203803A0E8A2EBC06800011370A2EB80300000
+13201B127F911E>I<38FF0FE0381E0700EA1C06EA0E046C5AEA039013B0EA01E012007F
+12011338EA021C1204EA0C0E487E003C138038FE1FF014127F9116>I<38FF07E0383C03
+80381C0100A2EA0E02A2EA0F06EA0704A2EA0388A213C8EA01D0A2EA00E0A31340A25BA2
+12F000F1C7FC12F312661238131A7F9116>I<EA7FFCEA70381260EA407013F013E0EA41
+C012031380EA0700EA0F04120E121CEA3C0CEA380812701338EAFFF80E127F9112>I<B5
+12F01401808B15>I<B812802901808B2A>I E /FC 47 121 df<1207A2120F121E121C12
+38126012401280080976A218>19 D<EAFFF8A20D02808B10>45 D<127012F8A312700505
+7C840E>I<EA01F0EA071CEA0C06487E00381380A2387001C0A400F013E0AE007013C0A3
+EA780300381380A2381C0700EA0C06EA071CEA01F013227EA018>48
+D<13801203120F12F31203B3A9EA07C0EAFFFE0F217CA018>I<EA03F8EA0C1EEA100F38
+200780004013C0127813031307123800001380A214005B130C1338EA03F0EA001C130FEB
+0780A2EB03C0A214E01220127012F8A200F013C01240EB0780122038100F00EA0C1CEA03
+F013227EA018>51 D<1303A25BA25B1317A2132713671347138712011307120212061204
+1208A212101220A2124012C0B512F838000700A7EB0F80EB7FF015217FA018>I<001013
+80381E0700EA1FFF5B13F8EA17E00010C7FCA6EA11F8EA120CEA1C073818038012103800
+01C0A214E0A4127012F0A200E013C01280EA4003148038200700EA1006EA0C1CEA03F013
+227EA018>I<137EEA01C138030080380601C0EA0C03121C381801800038C7FCA2127812
+70A2EAF0F8EAF30CEAF4067F00F81380EB01C012F014E0A51270A3003813C0A238180380
+001C1300EA0C06EA070CEA01F013227EA018>I<12401260387FFFE014C0A23840008038
+C0010012801302A2485A5BA25B5BA21360134013C0A21201A25B1203A41207A76CC7FC13
+237DA118>I<EA01F0EA060C487EEA1807383803801270A238F001C0A314E0A512701303
+1238EA1805120CEA0619EA03E1380001C0A3EB0380A21230387807001306EA700CEA2018
+6C5AEA0FC013227EA018>57 D<127012F8A312701200AB127012F8A3127005157C940E>
+I<EB0FE0EB701CEB800239030001800004EB0040481420A2391007C0103920183008EB30
+0839406004049038C007840041130300811482EA8380A7EA81C012410040130701601384
+3820300B9038183188391007C0F06CC8FCA27E0003140EC66C137890387007C090380FFC
+001F237DA226>64 D<497EA3497EA3EB05E0A2EB09F01308A2EB1078A3497EA3497EA2EB
+C01F497EA248B51280EB0007A20002EB03C0A348EB01E0A348EB00F0121C003EEB01F839
+FF800FFF20237EA225>I<B512F8380F800E0007EB0780EC03C015E0140115F0A515E014
+03EC07C0EC0F80EC3E00EBFFFE9038800780EC03C0EC01E015F0140015F8A6EC01F0A2EC
+03E0EC07C0000FEB0F00B512FC1D227EA123>I<903807E0109038381830EBE0063901C0
+017039038000F048C7FC000E1470121E001C1430123CA2007C14101278A200F81400A812
+781510127C123CA2001C1420121E000E14407E6C6C13803901C001003800E002EB381CEB
+07E01C247DA223>I<B612C0380F80070007130114001540A215601520A314201500A314
+6014E013FF138014601420A315081400A21510A31530A2157015E0000F1303B6FC1D227E
+A121>69 D<B612C0380F80070007130114001540A215601520A314201500A3146014E013
+FF138014601420A491C7FCA9487EEAFFFE1B227EA120>I<903807F00890383C0C18EBE0
+023901C001B839038000F848C71278481438121E15185AA2007C14081278A200F81400A7
+EC1FFF0078EB00F81578127C123CA27EA27E7E6C6C13B86C7E3900E0031890383C0C0890
+3807F00020247DA226>I<EAFFFCEA0FC0EA0780B3ACEA0FC0EAFFFC0E227EA112>73
+D<EAFFFCEA1F806CC7FCB3A21401A41403A214021406A2141E48137EB512FE18227DA11E
+>76 D<39FF8007FF3907C000F81570D805E01320EA04F0A21378137C133C7F131F7FEB07
+80A2EB03C0EB01E0A2EB00F014F81478143C143E141E140FA2EC07A0EC03E0A21401A214
+00000E1460121FD8FFE0132020227EA125>78 D<B512F0380F803C0007130FEC078015C0
+140315E0A615C014071580EC0F00143CEBFFF00180C7FCAE487EEAFFFC1B227EA121>80
+D<B512E0380F803C0007130E6E7E81140381A55D14075D020EC7FC143CEBFFE0EB807080
+80141E140E140FA481A3168015C014073A0FC003C10039FFFC01E2C8127C21237EA124>
+82 D<3803F020380C0C60EA1802383001E0EA70000060136012E0A21420A36C1300A212
+78127FEA3FF0EA1FFE6C7E0003138038003FC0EB07E01301EB00F0A214707EA46C1360A2
+6C13C07E38C8018038C60700EA81FC14247DA21B>I<39FFFC07FF390FC000F86C481370
+1520B3A5000314407FA2000114806C7E9038600100EB3006EB1C08EB03F020237EA125>
+85 D<EA1FE0EA3038EA780C130EEA30071200A313FFEA07C7EA1E07123C1278127000F0
+1308A3130FEA7817383C2390380FC1E015157E9418>97 D<120E12FE121E120EAB131FEB
+61C0EB8060380F0030000E1338143C141C141EA7141C143C1438000F1370380C8060EB41
+C038083F0017237FA21B>I<EA01FEEA0703380C0780121C383803000078C7FC127012F0
+A712700078134012386C1380380C0100EA0706EA01F812157E9416>I<14E0130F130113
+00ABEA01F8EA0704EA0C02EA1C01EA38001278127012F0A7127012781238EA1801EA0C02
+38070CF03801F0FE17237EA21B>I<EA01FCEA0707380C0380381C01C01238007813E0EA
+700012F0B5FC00F0C7FCA512700078132012386C13406C138038070300EA00FC13157F94
+16>I<133E13E33801C780EA0387130748C7FCA9EAFFF80007C7FCB27FEA7FF0112380A2
+0F>I<14703803F198380E1E18EA1C0E38380700A200781380A400381300A2EA1C0EEA1E
+1CEA33F00020C7FCA212301238EA3FFE381FFFC06C13E0383000F0481330481318A40060
+1330A2003813E0380E03803803FE0015217F9518>I<120E12FE121E120EABEB1F80EB60
+C0EB80E0380F0070A2120EAF38FFE7FF18237FA21B>I<121C123EA3121CC7FCA8120E12
+7E121E120EB1EAFFC00A227FA10E>I<120E12FE121E120EABEB03FCEB01F014C01480EB
+02005B5B5B133813F8EA0F1CEA0E1E130E7F1480EB03C0130114E0EB00F014F838FFE3FE
+17237FA21A>107 D<120E12FE121E120EB3ADEAFFE00B237FA20E>I<390E1FC07F3AFE60
+E183803A1E807201C03A0F003C00E0A2000E1338AF3AFFE3FF8FFE27157F942A>I<380E
+1F8038FE60C0381E80E0380F0070A2120EAF38FFE7FF18157F941B>I<EA01FCEA070738
+0C0180381800C0003813E0481370A200F01378A700701370007813F0003813E0381C01C0
+380E038038070700EA01FC15157F9418>I<EA0E1F38FE61C0380E8060380F0070000E13
+38143CA2141EA7143CA21438000F1370380E80E0EB41C0EB3F0090C7FCA9EAFFE0171F7F
+941B>I<EA0E3CEAFE46EA1E8FEA0F0F13061300120EAD120FEAFFF010157F9413>114
+D<EA0F88EA3078EA601812C01308A212E0EAF000127FEA3FE0EA0FF0EA01F8EA003CEA80
+1C130CA212C01308EAE018EAD030EA8FC00E157E9413>I<1202A41206A3120E121E123E
+EAFFFCEA0E00AB1304A6EA07081203EA01F00E1F7F9E13>I<000E137038FE07F0EA1E00
+000E1370AD14F0A238060170380382783800FC7F18157F941B>I<38FF80FE381E007814
+30000E1320A26C1340A2EB80C000031380A23801C100A2EA00E2A31374A21338A3131017
+157F941A>I<38FF83FE381F00F0000E13C06C1380EB8100EA0383EA01C2EA00E41378A2
+1338133C134E138FEA0187EB0380380201C0000413E0EA0C00383E01F038FF03FE17157F
+941A>120 D E /FD 10 116 df<127812FCA4127806067B8510>46
+D<132013E01201120F12FF12F11201B3AD487EB512C0A212287BA71D>49
+D<13FE3803FFC0380703E0380C01F0381000F8123C003E13FC147CA2001E13FC120CC712
+F8A214F0EB01E014C0EB0380EB0E00EA01FE380003C0EB00E014F81478147C143EA2143F
+A21230127812FCA2143E5A0040137E147C003013F86C13F0380F03E03803FFC03800FE00
+18297EA71D>51 D<D8FFFE903803FF80A2D80FE09038007C006C4814306C6C1420A27F00
+015DA26C6C5CA27F017C49C7FCA2017E5B013E1302A26D5BA21480010F5BA26D6C5AA36D
+6C5AA214F001015BA26D6C5AA214FC027DC8FCA2147F143EA2141CA31408292A7FA82C>
+86 D<13FC38038780380701C0000E13E0EA1C00003C13F0A2481378A212F8A2B512F800
+F8C7FCA51278A26C1308A26C1310000E13206C13403801C18038007E00151A7E991A>
+101 D<121E123FA4121EC7FCA9120FB4FCA2121F7EB3A2EAFFF0A20C297EA811>105
+D<380F07F038FF1838EB201C381F400E000F130F1380A21300B139FFF0FFF0A21C1A7E99
+21>110 D<137E3803C3C0380700E0000E1370481338003C133CA248131EA200F8131FA8
+0078131EA26C133CA2001C13386C13706C13E03803C3C038007E00181A7E991D>I<380F
+0F8038FF11C0EB23E0EA1F43EA0F83EB81C0EB800090C7FCB07FEAFFFCA2131A7E9917>
+114 D<3807F080EA1C0DEA3003EA600112E01300A27E6C1300127EEA7FE0EA3FFC6C7EEA
+07FF38003F801307388003C0A2130112C0A200E01380130300F01300EACC0EEA83F8121A
+7E9917>I E /FE 59 122 df<EB0FF0EB7FFC3801F80E3803E01F48485AEA0F80A2141E
+140C91C7FCA4B6FCA2380F801FB2397FF0FFE0A21B237FA21F>12
+D<EAFFFCA40E047F8C13>45 D<1238127C12FEA3127C123807077C8610>I<13FE3807FF
+C0380F83E0381F01F0383E00F8A248137CA312FC147EAD007C137CA36C13F8A2381F01F0
+380F83E03807FFC03800FE0017207E9F1C>48 D<13181378EA01F812FFA21201B3A7387F
+FFE0A213207C9F1C>I<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE0314F8A21301
+127CEA3803120014F0A2EB07E014C0EB0F80EB1F00133E13385BEBE018EA01C0EA0380EA
+0700000E1338380FFFF05A5A5AB5FCA215207D9F1C>I<13FE3807FFC0380F07E0381E03
+F0123FEB81F8A3EA1F0314F0120014E0EB07C0EB1F803801FE007F380007C0EB01F014F8
+EB00FCA2003C13FE127EB4FCA314FCEA7E01007813F8381E07F0380FFFC03801FE001720
+7E9F1C>I<14E013011303A21307130F131FA21337137713E7EA01C71387EA0307120712
+0E120C12181238127012E0B6FCA2380007E0A790B5FCA218207E9F1C>I<00301320383E
+01E0383FFFC0148014005B13F8EA33C00030C7FCA4EA31FCEA37FF383E0FC0383807E0EA
+3003000013F0A214F8A21238127C12FEA200FC13F0A2387007E0003013C0383C1F80380F
+FF00EA03F815207D9F1C>I<EB1F80EBFFE03803E0703807C0F0380F01F8121F123EA238
+7E00F0007C1300A2EAFC08EB7FC0EBFFE038FD80F038FF00F848137CA248137EA4127CA3
+003C137C123E001E13F86C13F0380783E03803FFC0C6130017207E9F1C>I<1260127838
+7FFFFEA214FC14F8A214F038E0006014C038C00180EB0300A2EA00065B131C1318133813
+78A25BA31201A31203A76C5A17227DA11C>I<13FE3803FFC0380703E0380E00F05A1478
+123C123E123F1380EBE0F0381FF9E0EBFFC06C13806C13C06C13E04813F0381E7FF8383C
+1FFCEA7807EB01FEEAF000143E141EA36C131C007813387E001F13F0380FFFC000011300
+17207E9F1C>I<EA01FE3807FF80380F83E0381E01F0EA3E004813F8147800FC137CA314
+7EA4007C13FEA2EA3E01381E037EEA0FFEEA07FCEA0020EB007CA2121E003F13F8A214F0
+EB01E0381E03C0381C0F80380FFE00EA03F817207E9F1C>I<1470A214F8A3497EA2497E
+A3EB067FA2010C7F143FA2496C7EA201307F140F01707FEB6007A201C07F90B5FC4880EB
+8001A2D803007F14004880000680A23AFFE007FFF8A225227EA12A>65
+D<B67E15F03907F001F86E7E157EA2157FA5157E15FE5DEC03F890B55AA29038F001FCEC
+007E811680151F16C0A6ED3F80A2ED7F00EC01FEB612F815C022227EA128>I<D903FE13
+8090381FFF819038FF01E33901F8003FD803E0131F4848130F48481307121F48C71203A2
+481401127EA200FE91C7FCA8127EED0180127F7E15036C6C1400120F6C6C1306D803F05B
+6C6C13386CB413F090381FFFC0D903FEC7FC21227DA128>I<B67E15F03907F003FCEC00
+7E81ED1F80ED0FC0ED07E0A216F01503A316F8A916F0A3ED07E0A2ED0FC0ED1F80ED3F00
+157EEC03FCB612F0158025227EA12B>I<B612FCA23807F000153C151C150C150EA21506
+140CA31500141C143CEBFFFCA2EBF03C141C140CA21503A214001506A3150EA2151E153E
+EC01FCB6FCA220227EA125>I<B612F8A23807F001EC007815381518151CA2150CA21418
+A21500A214381478EBFFF8A2EBF07814381418A491C7FCA8B512C0A21E227EA123>I<D9
+03FE134090391FFFC0C090387F00F1D801F8133F4848130FD807C01307000F1403485A48
+C71201A2481400127EA200FE1500A791380FFFFC127E007F9038001FC0A27EA26C7E6C7E
+6C7E6C7ED801FC133F39007F80E790381FFFC30103130026227DA12C>I<B53883FFFEA2
+3A07F0001FC0AD90B6FCA29038F0001FAFB53883FFFEA227227EA12C>I<B51280A23807
+F000B3ACB51280A211227EA115>I<B538803FFCA23A07F0000380ED0700150E15185D15
+E04A5A4A5A4AC7FC140E1418143C14FCEBF1FEEBF3FFEBF77F9038FE3F8001F87F496C7E
+140F6E7E816E7E1401816E7E81ED3F8016C0ED1FE0B53881FFFEA227227EA12C>75
+D<B512C0A2D807F0C7FCB31518A41538A21570A215F014011407B6FCA21D227EA122>I<
+D8FFF0EC0FFF6D5C000716E0D806FC1437A3017E1467A26D14C7A290391F800187A29039
+0FC00307A3903807E006A2903803F00CA2903801F818A3903800FC30A2EC7E60A2EC3FC0
+A2EC1F80A3EC0F00D8FFF091B5FC140630227EA135>I<D8FFF8EB1FFE7F0007EC00C07F
+EA06FF6D7E6D7E6D7E130F806D7E6D7E6D7E130080EC7F80EC3FC0EC1FE0EC0FF0140715
+F8EC03FCEC01FEEC00FF157FA2153F151F150F15071503A2D8FFF01301150027227EA12C
+>I<EB07FC90383FFF809038FC07E03903F001F848486C7E4848137E48487FA248C7EA1F
+80A24815C0007E140FA200FE15E0A9007E15C0007F141FA26C15806D133F001F15006C6C
+137E6C6C5B6C6C485A3900FC07E090383FFF80D907FCC7FC23227DA12A>I<B6FC15E039
+07F007F0EC01FC1400157EA2157FA5157EA215FC1401EC07F090B512E0150001F0C7FCAD
+B57EA220227EA126>I<EB07FC90383FFF809038FC07E03903F001F848486C7E4848137E
+48487FA248C7EA1F80A24815C0007E140FA200FE15E0A9007E15C0007F141FA26C158090
+3881F03F261F83F81300390FC70C7E3907E606FC3903F607F8D800FF13E090383FFF8001
+071420EB0003EC01C0EDE0E015FF16C080A2ED7F801600151E232C7DA12A>I<B512FEEC
+FFC03907F007F0EC01F86E7E157E157FA6157E5D4A5AEC07F090B512C05D9038F00FE06E
+7E6E7E6E7EA81606EC00FEEDFF0CB538803FF8ED0FF027227EA12A>I<3801FE023807FF
+86381F01FE383C007E007C131E0078130EA200F81306A27E1400B4FC13E06CB4FC14C06C
+13F06C13F86C13FC000313FEEA003F1303EB007F143FA200C0131FA36C131EA26C133C12
+FCB413F838C7FFE00080138018227DA11F>I<007FB61280A2397E03F80F007814070070
+14030060140100E015C0A200C01400A400001500B3A248B512F0A222227EA127>I<B538
+803FFCA23A07F0000180B3A60003EC03007F000114066C6C130E017E5B90383F80F89038
+0FFFE0010190C7FC26227EA12B>I<B5EB0FFEA2D807F0EB00C0A26C6CEB0180A26D1303
+000115007F000014067F6D5BA2EC801C013F1318ECC038011F133014E0010F5BA26D6C5A
+A214F901035B14FD6DB4C7FCA26D5AA3147CA21438A227227FA12A>I<B53A0FFFF00FFE
+A2260FF00090C712E000076E14C0A26C6C90393F800180A26D14C00001EE0300A26D496C
+5A0000026F1306A2017F9038C7F00CA2028113F8013F01835BA29139C301FC38011F1530
+16FE90260FE6005BA202FEEBFFE06D486D5AA26D486D5AA36D486DC7FCA36D48130EA237
+227FA13A>I<EA0FFC383FFF80387E07C0EB03E0130114F0123C1200A2133FEA03FDEA1F
+C1EA3F01127E12FCA4EA7E02EB0CF8381FF87F3807E03F18167E951B>97
+D<B4FCA2121FABEB0FE0EB3FF8EBE07CEB803E497EEC0F80A215C0A81580141F01801300
+EBC03E381EE07C381C3FF838180FC01A237EA21F>I<EBFF80000713E0380F83F0EA1F03
+123E127E387C01E090C7FC12FCA6127C127EA2003E13186C1330380FC0603807FFC0C613
+0015167E9519>I<EB01FEA2EB003EABEA01FC3807FFBE380F81FE381F007E003E133E12
+7E127C12FCA8127CA26C137E6C13FE380F83BE3907FF3FC0EA01FC1A237EA21F>I<13FE
+3807FF80380F87C0381E01E0003E13F0EA7C0014F812FCA2B5FCA200FCC7FCA3127CA212
+7E003E13186C1330380FC0703803FFC0C6130015167E951A>I<EB1FC0EB7FE0EBF1F0EA
+01E31203EA07C3EBC1E0EBC000A6EAFFFEA2EA07C0B2EA3FFCA2142380A211>I<3801FE
+0F3907FFBF80380F87C7381F03E7391E01E000003E7FA5001E5BEA1F03380F87C0EBFF80
+D809FEC7FC0018C8FCA2121C381FFFE06C13F86C13FE001F7F383C003F48EB0F80481307
+A40078EB0F006C131E001F137C6CB45A000113C019217F951C>I<B4FCA2121FABEB07E0
+EB1FF8EB307CEB403CEB803EA21300AE39FFE1FFC0A21A237EA21F>I<121C123E127FA3
+123E121CC7FCA7B4FCA2121FB2EAFFE0A20B247EA310>I<B4FCA2121FABECFF80A2EC38
+001460495A495A49C7FC130E5B137E13FF13CFEB0F806D7E6D7E1301806D7E147C143C39
+FFE0FFC0A21A237EA21E>107 D<B4FCA2121FB3ADEAFFE0A20B237EA210>I<3AFF07F007
+F090391FFC1FFC3A1F303E303E01401340496C487EA201001300AE3BFFE0FFE0FFE0A22B
+167E9530>I<38FF07E0EB1FF8381F307CEB403CEB803EA21300AE39FFE1FFC0A21A167E
+951F>I<13FE3807FFC0380F83E0381E00F0003E13F848137CA300FC137EA7007C137CA2
+6C13F8381F01F0380F83E03807FFC03800FE0017167E951C>I<38FF0FE0EB3FF8381FE0
+7CEB803E497E1580A2EC0FC0A8EC1F80A29038803F00EBC03EEBE0FCEB3FF8EB0FC090C8
+FCA8EAFFE0A21A207E951F>I<EBFE033807FF87380FC1C7381F006F48133F127E80127C
+12FCA7127EA2003E5B6C5B380FC1DF3807FF9F3801FC1FC7FCA8ECFFE0A21B207E951E>
+I<EAFE1FEB3FC0381E67E013C71387A2381F83C090C7FCADEAFFF0A213167E9517>I<EA
+0FF3EA3FFFEA781FEA6007EAE003A212F000FCC7FCEA7FE013F8EA3FFEEA0FFF12013800
+0F80EAC007130312E0A238F00700EAFC0EEAEFFCEAC7F011167E9516>I<487EA41203A2
+1207A2120F123FB5FCA2EA0F80ABEB8180A5EB8300EA07C3EA03FEEA00F811207F9F16>
+I<38FF01FEA2381F003EAF147E14FE380F81BE3907FF3FC0EA01FC1A167E951F>I<39FF
+E01FE0A2391F800700000F1306EBC00E0007130C13E000035BA26C6C5AA26C6C5AA2EB7C
+C0A2137F6D5AA26DC7FCA2130EA21B167F951E>I<3AFFE3FF07F8A23A1F007800C09038
+807C01000F1580A23A07C07E030014DE5D3903E1DF06148FD801F1138CEBF307A2D800FF
+13D8EBFE0315F890387C01F0A2013C5BEB3800A225167F9528>I<39FFE07FC0A2390F80
+1C006C6C5A6C6C5AEBF0606C6C5A3800F980137F6DC7FC7F80497E1337EB63E0EBC1F038
+01C0F848487E3807007E000E133E39FF80FFE0A21B167F951E>I<39FFE01FE0A2391F80
+0700000F1306EBC00E0007130C13E000035BA26C6C5AA26C6C5AA2EB7CC0A2137F6D5AA2
+6DC7FCA2130EA2130CA25B1278EAFC3813305BEA69C0EA7F80001FC8FC1B207F951E>I
+E /FF 23 121 df<ED01E04B7EA24B7EA34B7EA24B7EA34B7EA24B7F157BA203F37F15F1
+02018015E00203805D167F020780ED803F020F80ED001FA24A80021E130F023E80023C7F
+A24A818202F8814A7FA249B77EA24982A2D907C0C76C7E5C173F010F8291C8121F498201
+1E150FA2013E82013C81017C8301788113FCB500F00103B612C0A4423B7DBA49>65
+D<B87E17F817FF8428007FE0000313E004007FEF3FF8717EA2717EA28483A64D5AA34D5A
+4D5A60EFFFE04C5B040F90C7FC91B612FCA2EFFF8002E0C713E0EF3FF8EF0FFC84717E71
+1380A27113C0A219E0A819C05F19805F4D13004D5A4D5A4CB45AB95A18C095C7FC17F03B
+3B7CBA45>I<DB1FFE14E00203B5EAE001021FECF803027FECFE07903B01FFFC00FF0F01
+0701C0EB1FDF4990C7EA07FFD93FFC1401D97FF0804948157F4849153F4849151F5A91C9
+120F48481607A2485A1803123F5B007F1701A34993C7FC12FFAD127F7FF001E0A2123F7F
+121F18036C6C17C018076C7E6EED0F807E6C6DED1F006C6D153E6D6C5DD93FFC5DD90FFF
+EC03F06D01C0EB0FE0010101FCEB7FC06D6CB6C7FC021F14FC020314E09126001FFEC8FC
+3B3D7BBB46>I<B87E17F817FF18C028007FF000077F9338007FF8EF1FFC717EEF03FF71
+13807113C0F07FE0A2F03FF019F8181FA219FCA2F00FFEA519FFAC19FEA419FC181FA219
+F8183F19F0187F19E0F0FFC05F4D13804D1300EF1FFEEF7FF8933807FFF0B912C095C7FC
+17F81780403B7CBA4A>I<B612F8A439007FF000B3B3AFB612F8A41D3B7DBA24>73
+D<B8FC17F017FC17FF28007FF0000F13C0040113E09338007FF0EF3FF8EF1FFCA218FE17
+0FA218FFA718FEA2171F18FC18F8173FEF7FF0933801FFE0040F138091B7120017F817C0
+02F0C9FCB3A5B612F8A4383B7CBA42>80 D<B712F8EEFFC017F817FE3B007FF0001FFF04
+0313C004007F717E717EA284171FA284A660A2173F604D5A604C485A4C5BDC1FFEC8FC91
+B612F817C0A29139F0007FF0EE1FF8707E707E707E84A2707FA684A5F101E018F0A28219
+03DD7FF813C0B600F890383FFC0794391FFE1F8071B5120005035BCBEA3FF8433C7CBA48
+>82 D<D903FF1307011FEBE00F90B512FC486E5A3A07FE00FFBFD80FF0EB1FFF48481307
+497F48487F007F808290C8FC4881A282A27F827F7F6D91C7FCEA7FFCEBFF8014F86CEBFF
+C015FC6C14FF6C15C06C15F06C816C816C6C80011F8001031580EB001F020114C0EC000F
+15036F13E081167F00F0153FA3161FA27EA26C16C0A26C153F6C16806D147F6D15006D14
+FE01FCEB03FC3AFDFFC00FF8D8F87FB55AD8F01F14C0010391C7FC39E0003FF82B3D7BBB
+36>I<003FB912C0A4903AF8007FF001D87FC09238003FE049161F90C7150F007E170700
+7C1703A300781701A448EF00F0A5C81600B3AF010FB77EA43C3A7DB943>I<EB3FFE48B5
+12E0000714F8390FF007FE391FF801FF6E7F6F7EA2826C48133F6C5A6C5AC8FCA491B5FC
+131F90387FF83F3803FF803807FC00EA1FF8485A485A5B12FF5BA3157FA26D13FF397FE0
+01DF263FF00313F83B1FF80F9FFFE0390FFFFE0F0001497E39003FE0012B267DA52F>97
+D<903801FFF0010F13FE013FEBFF809039FF803FC03A03FE007FE0485A485A485AA24848
+EB3FC0ED1F80007FEC0F0092C7FC5B12FFAA127F7FA2123F6D14F0121F6D13016C6CEB03
+E06C6CEB07C06C6C130FC69038C03F0090383FFFFE010F13F8010113C024267DA52B>99
+D<EE3F80ED3FFFA4150181B0ECFF80010F13F0013F13FC9038FFC03F48EB000FD807FC7F
+48487F497F001F80485AA2127F5BA212FFAA127FA27F123FA26C6C5BA26C6C5B6C6C130F
+6C6C4913C02700FF807E13FE90387FFFF8010F13E0010113002F3C7DBB36>I<903803FF
+80011F13F0017F13FC9038FF81FE3A03FE007F80D807F8133F000FEC1FC0484814E0150F
+484814F01507127F4914F8A212FFA290B6FCA301C0C8FCA5127FA27F003F1578A26C6C14
+F8000F15F06C6C13016C6CEB03E06CB4EB0FC06C9038C07F8090393FFFFE00010F5B0101
+13C025267DA52C>I<EC1FF0ECFFFE01037F90390FF87F80D91FE013C090383FC0FF137F
+495AA2485BED7F80ED1E0092C7FCAAB67EA4000190C8FCB3AC007F13FEA4223C7DBB1E>
+I<EA03F0487E487E487EA66C5A6C5A6C5AC8FCAB13FE127FA412071203B3AAB512F0A414
+3D7DBC1A>105 D<13FE12FFA412071203B3B3AEB512F8A4153C7DBB1A>108
+D<D801FCD97FC0EB0FF800FF902603FFF8EB7FFF020F6D48B57E913C1F03FF03E07FE0DA
+780190380F003F0007D97000018E6D7E000349149CD9FDC0D97FF86D7E4A5C13FF91C75B
+A2495DB3A4B5D8F81FB50003B512E0A44B267CA552>I<D801FCEBFF8000FF010313F002
+0F13FC91383E07FEEC78030007496C7E000313E09026FDC0001380EBFF80A291C7FCA25B
+B3A4B5D8F83F13FEA42F267CA536>I<9038FE01FF00FF011F13F0027F13FC9039FFFC07
+FE9139F001FF800007D9C00013C06C49EB7FE091C7EA3FF049141F17F8160F17FCA3EE07
+FEAAEE0FFCA3EE1FF8A2EE3FF06D15E06E137F6EEBFFC06E4813009039FEFC07FE91387F
+FFF8021F13E0DA03FEC7FC91C9FCADB512F8A42F377DA536>112
+D<3901FC03F000FFEB0FFEEC3FFF91387C7F809138F0FFC000075B3803FDC0A2EBFF80ED
+7F809138003F00151E92C7FCA25BB3A2B512FCA422267DA528>114
+D<130FA55BA45BA25BA25B5A5A5A001FEBFFF0B6FCA3000190C7FCB3153CA8EC80787EEC
+C0F0EB7FE190381FFFE06D1380903801FE001E377EB626>116 D<01FEEC3F8000FFEC3F
+FFA400071401000380B3A35DA35D5D00015C6D011E13C06CD9807C13FE6DB45A011F13E0
+010313802F267CA536>I<B539E00FFFF8A4000190390001FC00028013F06CEBC0036D6C
+485A013F5C6D6C485A6D6C48C7FCECFC3E6D6C5A903803FFFC6D5B6D5B5D147F6E7E141F
+4A7E4A7E81ECFBFFD901F17FEB03E049486C7E010F8049486C7E4A6C7E013E130F496D7E
+496D7E000181B5011F13FCA42E267EA533>120 D E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+%%PaperSize: a4
+%%BeginPaperSize: a4
+/setpagedevice where {
+pop 1 dict dup /PageSize [ 595 842 ] put setpagedevice
+} {
+statusdict /a4tray known {
+statusdict begin a4tray end
+/a4 where { pop a4 } if
+} {
+/a4 where {
+pop a4
+} {
+statusdict /setpage known {
+statusdict begin
+595 842 0 setpage
+end
+} if
+} ifelse
+} ifelse
+} ifelse
+%%EndPaperSize
+
+%%EndSetup
+%%Page: 1 1
+1 0 bop 481 597 a FF(ST)p FE(K)32 b FF(Reference)g(man)m(ual)815
+682 y FD(V)-5 b(ersion)18 b(3.1)808 1095 y FC(Eric)o(k)d(Gallesio)560
+1153 y(Univ)o(ersit)o(\023)-23 b(e)14 b(de)i(Nice)e(-)j(Sophia)g(An)o
+(tip)q(olis)494 1211 y(Lab)q(oratoire)h(I3S)f(-)f(CNRS)g(URA)f(1376)j
+(-)f(ESSI.)778 1269 y(Route)f(des)h(Colles)866 1327 y(B.P)l(.)e(145)507
+1385 y(06903)k(Sophia-An)o(tip)q(olis)d(Cedex)f(-)i(FRANCE)760
+1471 y(email:)j(eg@unice.fr)1663 2507 y FB(July)13 b(1996)p
+eop
+%%Page: 2 2
+2 1 bop 75 465 a FA(Do)q(cumen)o(t)14 b(Reference)179
+548 y FB(Eric)o(k)i(Gallesio,)f Fz(STk)i(R)n(efer)n(enc)n(e)g(Manual)p
+FB(,)g(R)m(T)e(95-31b,)g(I3S-CNRS)h(/)g(Univ)o(ersit)o(\023)-20
+b(e)17 b(de)f(Nice)h(-)179 598 y(Sophia)c(An)o(tip)q(olis,)f(juillet)h
+(1995.)p eop
+%%Page: 3 3
+3 2 bop 75 512 a Fy(Con)m(ten)m(ts)75 729 y FE(I)56 b(Reference)17
+b(Man)n(ual)1215 b(5)137 781 y FB(1)75 b(Ov)o(erview)14
+b(of)f Fx(STk)23 b FB(.)d(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(7)137 832 y(2)i(Lexical)13
+b(con)o(v)o(en)o(tions)k(.)j(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(7)233 883 y(2.1)79 b(Iden)o(ti\014ers)
+25 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)73 b(7)233 935 y(2.2)79 b(Comm)o(en)o(ts)10
+b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)73 b(7)233 986 y(2.3)79 b(Other)15 b(notations)d(.)20
+b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(7)137 1038 y(3)i(Basic)14 b(concepts)41 b(.)21 b(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(8)137 1089 y(4)i(Expressions)29 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(8)233 1140 y(4.1)79 b(Primitiv)o(e)11 b(expression)16
+b(t)o(yp)q(es)g(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(8)233 1192 y(4.2)79 b(Deriv)o(ed)14 b(expression)h(t)o(yp)q(es)e(.)20
+b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(9)137
+1243 y(5)i(Program)12 b(structure)36 b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(10)137
+1295 y(6)75 b(Standard)14 b(pro)q(cedures)28 b(.)21 b(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(10)233
+1346 y(6.1)79 b(Bo)q(oleans)42 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(10)233 1397
+y(6.2)79 b(Equiv)n(alence)13 b(predicates)21 b(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)52 b(11)233 1449 y(6.3)79 b(P)o(airs)13
+b(and)h(lists)43 b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)52 b(11)233 1500 y(6.4)79 b(Sym)o(b)q(ols)18
+b(.)j(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(12)233 1551 y(6.5)79 b(Num)o(b)q(ers)41
+b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)52 b(13)233 1603 y(6.6)79 b(Characters)41
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)52 b(15)233 1654 y(6.7)79 b(Strings)12 b(.)20
+b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(15)233 1706 y(6.8)79 b(V)m(ectors)38
+b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)52 b(17)233 1757 y(6.9)79 b(Con)o(trol)13
+b(features)41 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)52 b(17)233 1808 y(6.10)58 b(Input)14 b(and)f(output)k(.)j(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(18)233 1860 y(6.11)58 b(Keyw)o(ords)27 b(.)20 b(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(24)233 1911 y(6.12)58 b(Tk)13 b(commands)c(.)21 b(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(25)233
+1963 y(6.13)58 b(En)o(vironmen)o(ts)16 b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(26)233 2014
+y(6.14)58 b(Macros)41 b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(27)233 2065
+y(6.15)58 b(System)13 b(pro)q(cedures)28 b(.)20 b(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(28)233 2117 y(6.16)58
+b(Addresses)27 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)52 b(31)233 2168 y(6.17)58 b(Signals)11
+b(.)20 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)52 b(31)233 2219 y(6.18)58 b(Hash)14
+b(tables)25 b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)52 b(32)233 2271 y(6.19)58 b(Regular)13
+b(expressions)41 b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)52 b(35)233 2322 y(6.20)58 b(Pro)q(cesses)36 b(.)20
+b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)52 b(37)233 2374 y(6.21)58 b(So)q(c)o(k)o(ets)38
+b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)52 b(39)233 2425 y(6.22)58 b(Miscellaneous)20
+b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+52 b(41)75 2571 y FE(I)r(I)j(Annexes)1399 b(49)75 2665
+y FA(A)26 b(Using)14 b(the)h(Tk)i(to)q(olkit)1220 b(51)137
+2716 y FB(1)75 b(Calling)12 b(a)h(Tk-command)g(.)20 b(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(51)137
+2767 y(2)75 b(Asso)q(ciating)14 b(Callbac)o(ks)f(to)g(Tk-commands)37
+b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(52)137 2819 y(3)75 b(Tk)13
+b(bindings)22 b(.)e(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(52)946 2924 y(3)p
+eop
+%%Page: 4 4
+4 3 bop 75 47 a FA(4)1260 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a(B)28 b(Di\013erences)14 b(with)g(R4RS)1176
+b(55)137 229 y FB(1)75 b(Sym)o(b)q(ols)22 b(.)f(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(55)137 278 y(2)75 b(T)o(yp)q(es)34 b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)52 b(56)137 328 y(3)75 b(Pro)q(cedures)42 b(.)20 b(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(56)75 420 y FA(C)28 b(An)16 b(in)o(tro)q(duct)o(ion)c(to)j
+Fx(STklos)1092 b FA(59)137 469 y FB(1)75 b(In)o(tro)q(duction)13
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)52 b(59)137 519 y(2)75 b(Class)14
+b(de\014nition)f(and)h(instan)o(tiation)22 b(.)f(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)52 b(59)233 569 y(2.1)79 b(Class)13 b(de\014nition)22
+b(.)e(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(59)137 619 y(3)75 b(Inheritance)37 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(60)233 669 y(3.1)79 b(Class)13 b(hierarc)o(h)o(y)i(and)e(inheritance)
+i(of)e(slots)40 b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(60)233 718 y(3.2)79
+b(Instance)15 b(creation)f(and)g(slot)f(access)33 b(.)21
+b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)52 b(61)233 768 y(3.3)79 b(Slot)13
+b(description)18 b(.)i(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(61)233 818 y(3.4)79 b(Class)13 b(precedence)k(list)23
+b(.)e(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(64)137 868 y(4)75 b(Generic)14 b(functions)20 b(.)g(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(65)233 918 y(4.1)79 b(Generic)14 b(functions)g(and)g(metho)q(ds)25
+b(.)20 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(65)233 967 y(4.2)79
+b(Next-metho)q(d)29 b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)52 b(66)233 1017 y(4.3)79 b(Example)11
+b(.)21 b(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)52 b(67)75 1109 y FA(D)25 b(Miscellaneous)13
+b(Informations)1079 b(69)137 1158 y FB(1)75 b(In)o(tro)q(duction)13
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)52 b(69)137 1208 y(2)75 b(Ab)q(out)14
+b Fx(STk)27 b FB(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(69)233 1258
+y(2.1)79 b(Last)14 b(release)24 b(.)c(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(69)233 1308
+y(2.2)79 b(Sharing)13 b(Co)q(de)23 b(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(69)233 1358 y(2.3)79
+b Fx(STk)14 b FB(Mailing)e(list)28 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(69)233 1408 y(2.4)79
+b Fx(STk)14 b FB(F)-5 b(A)o(Q)22 b(.)e(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(70)233 1457
+y(2.5)79 b(Rep)q(orting)13 b(a)h(bug)36 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(70)137 1507 y(3)75
+b Fx(STk)14 b FB(and)g(Emacs)39 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(70)233
+1557 y(3.1)79 b(Using)13 b(the)i(SLIB)f(pac)o(k)n(age)g(with)f
+Fx(STk)28 b FB(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(71)137 1607
+y(4)75 b(Getting)13 b(information)e(ab)q(out)j(Sc)o(heme)29
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(71)233 1657
+y(4.1)79 b(The)14 b Fz(R)481 1642 y Fw(4)493 1657 y Fv(RS)i
+FB(do)q(cumen)o(t)j(.)i(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+52 b(71)233 1706 y(4.2)79 b(The)14 b(Sc)o(heme)g(Rep)q(ository)31
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(72)233
+1756 y(4.3)79 b(Usenet)15 b(newsgroup)g(and)e(other)i(addresses)21
+b(.)g(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)52 b(72)p eop
+%%Page: 5 5
+5 4 bop 828 1059 a FF(P)m(art)32 b(I)497 1266 y Fy(Reference)38
+b(Man)m(ual)946 2924 y FB(5)p eop
+%%Page: 6 6
+6 5 bop eop
+%%Page: 7 7
+7 6 bop 75 179 a Fu(In)n(tro)r(duction)75 273 y FB(This)11
+b(do)q(cumen)o(t)f(pro)o(vides)h(a)g(complete)f(list)h(of)f(pro)q
+(cedures)j(and)e(sp)q(ecial)g(forms)e(implemen)o(ted)g(in)h(v)o(ersion)
+h(3.1)75 323 y(of)j Fx(STk)p FB(.)21 b(Since)15 b Fx(STk)g
+FB(is)g(\(nearly\))f(complian)o(t)f(with)h(the)h(language)f(describ)q
+(ed)j(in)d(the)h Fz(R)n(evise)n(d)1624 308 y Fw(4)1659
+323 y Fz(R)n(ep)n(ort)g(on)75 373 y(the)h(A)o(lgorithmic)e(L)n(anguage)
+j(Scheme)f FB(\(denoted)g Fz(R)912 358 y Fw(4)924 373
+y Fv(RS)h FB(hereafter)1157 358 y Fw(1)1177 373 y FB(\)[1],)d(the)h
+(organization)f(of)g(this)h(man)o(ual)75 423 y(follo)o(ws)d(the)j
+Fz(R)313 408 y Fw(4)325 423 y Fv(RS)h FB(and)e(only)f(describ)q(es)j
+(extensions.)75 570 y Fu(1)67 b(Ov)n(erview)23 b(of)f
+Ft(STk)75 665 y FB(T)m(o)q(da)o(y's)14 b(graphical)g(to)q(olkits)g(for)
+h(applicativ)o(e)f(languages)g(are)h(often)g(not)g(satisfactory)m(.)21
+b(Most)15 b(of)g(the)g(time,)75 714 y(they)d(ask)g(the)h(user)g(to)e(b)
+q(e)i(an)f(X)g(windo)o(w)f(system)23 b(exp)q(ert)13 b(and)f(force)h
+(him/her)d(to)i(cop)q(e)h(with)e(arcane)i(details)75
+764 y(suc)o(h)g(as)f(serv)o(er)i(connections)g(and)e(ev)o(en)o(t)h
+(queues.)18 b(This)13 b(is)f(a)g(real)g(problem,)f(since)i(programmers)
+d(using)i(this)75 814 y(kind)i(of)f(languages)g(are)i(generally)e(not)h
+(inclined)g(to)g(system)g(programmi)o(ng,)c(and)k(few)g(of)g(them)f
+(will)f(bridge)75 864 y(the)i(gap)g(b)q(et)o(w)o(een)h(the)g
+(di\013eren)o(t)g(abstraction)f(lev)o(els.)124 916 y(Tk)e(is)h(a)f(p)q
+(o)o(w)o(erful)g(graphical)f(to)q(olkit)g(promising)g(to)h(\014ll)f
+(that)i(gap.)k(It)12 b(w)o(as)g(dev)o(elop)q(ed)h(at)g(the)g(Univ)o
+(ersit)o(y)75 965 y(of)19 b(Berk)o(eley)h(b)o(y)f(John)h(Ousterhout)h
+([2)o(].)34 b(The)20 b(to)q(olkit)e(o\013ers)j(high)d(lev)o(el)h
+(widgets)h(suc)o(h)g(as)g(buttons)f(or)75 1015 y(men)o(us)13
+b(and)g(is)h(easily)f(programmabl)o(e,)e(requiring)i(little)g(kno)o
+(wledge)h(of)f(X)g(fundamen)o(tals.)k(Tk)c(relies)h(on)g(an)75
+1065 y(in)o(terpretativ)o(e)h(shell-lik)o(e)e(language)g(named)f(Tcl)i
+([3)o(].)134 1117 y Fx(STk)h FB(is)g(an)g(implemen)o(tati)o(on)d(of)i
+(the)i(Sc)o(heme)f(programmi)o(ng)d(language,)h(pro)o(viding)h(a)h
+(full)e(in)o(tegration)75 1167 y(of)i(the)g(Tk)g(to)q(olkit.)21
+b(In)15 b(this)g(implemen)o(tation,)c(Sc)o(heme)k(establishes)i(the)e
+(link)f(b)q(et)o(w)o(een)j(the)f(user)g(and)f(the)75
+1216 y(Tk)f(to)q(olkit,)e(replacing)i(Tcl.)75 1364 y
+Fu(2)67 b(Lexical)24 b(con)n(v)n(en)n(tions)75 1467 y
+FE(2.1)56 b(Iden)n(ti\014ers)75 1547 y FB(Syn)o(tactic)15
+b(k)o(eyw)o(ords)f(can)h(b)q(e)g(used)g(as)g(v)n(ariables)f(in)g
+Fx(STk)p FB(.)19 b(Users)d(m)o(ust)e(b)q(e)h(a)o(w)o(are)f(that)h(this)
+f(extension)h(of)75 1597 y(the)f(language)f(could)h(lead)g(to)g(am)o
+(biguiti)o(es)e(in)h(some)g(situations.)75 1723 y FE(2.2)56
+b(Commen)n(ts)75 1799 y FB(As)14 b(in)f(the)h Fz(R)285
+1784 y Fw(4)297 1799 y Fv(RS)r FB(,)g(a)f(semicolon)f(\(;\))h
+(indicates)h(the)g(start)g(of)f(a)g(commen)o(t.)j(In)d
+Fx(STk)p FB(,)h(commen)o(ts)d(can)j(also)f(b)q(e)75 1845
+y(in)o(tro)q(duced)k(b)o(y)f Fs(#)p FB(!.)24 b(This)16
+b(extension)g(is)g(particularly)g(useful)g(for)g(building)e
+Fx(STk)j FB(scripts.)26 b(On)16 b(most)f(Unix)75 1890
+y(implemen)o(tatio)o(ns,)c(if)i(the)i(\014rst)f(line)g(of)f(a)h(script)
+g(lo)q(oks)g(lik)o(e)f(this:)153 1977 y Fr(#)p Fq(!)p
+Fr(/usr/loca)o(l/)o(bin)o(/st)o(k)j(-file)75 2111 y FB(then)d(the)h
+(script)f(can)g(b)q(e)h(started)g(directly)f(as)g(if)f(it)g(w)o(ere)i
+(a)e(binary)m(.)17 b Fx(STk)c FB(is)g(loaded)f(b)q(ehind)h(the)h
+(scenes)h(and)75 2161 y(reads)h(and)e(executes)j(the)f(script)f(as)g(a)
+g(Sc)o(heme)g(program.)k(Of)c(course)h(this)f(assumes)f(that)h
+Fx(STk)h FB(is)e(lo)q(cated)75 2211 y(in)f Fs(/usr/local/bin)p
+FB(.)75 2337 y FE(2.3)56 b(Other)18 b(notations)75 2417
+y Fx(STk)c FB(accepts)i(all)c(the)j(notations)e(de\014ned)i(in)f
+Fz(R)852 2402 y Fw(4)864 2417 y Fv(RS)i FB(plus)75 2516
+y Fs([)22 b(])42 b FB(Brac)o(k)o(ets)12 b(are)f(equiv)n(alen)o(t)f(to)h
+(paren)o(theses.)19 b(They)11 b(are)h(used)f(for)g(grouping)f(and)g(to)
+h(notate)g(lists.)17 b(A)11 b(list)179 2566 y(op)q(ened)k(with)e(a)h
+(left)f(square)i(brac)o(k)o(et)g(m)o(ust)d(b)q(e)j(closed)f(with)g(a)g
+(righ)o(t)f(square)i(brac)o(k)o(et)f(\(section)h(6.3\).)75
+2657 y Fs(:)21 b FB(A)c(colon)f(at)h(the)h(b)q(eginning)e(of)h(a)g(sym)
+o(b)q(ol)e(in)o(tro)q(duces)j(a)f(k)o(eyw)o(ord.)27 b(Keyw)o(ords)18
+b(are)g(describ)q(ed)h(in)d(sec-)179 2707 y(tion)d(6.11.)p
+75 2741 705 2 v 121 2768 a Fp(1)139 2779 y Fo(The)21
+b Fn(R)n(evise)n(d)335 2768 y Fp(4)375 2779 y Fn(R)n(ep)n(ort)i(on)f
+(the)g(A)o(lgorithmic)h(L)n(anguage)h(Scheme)f Fo(is)e(a)o(v)n(ailable)
+e(through)g(anon)o(ymous)f(FTP)k(from)75 2819 y Fm(ftp.cs.ind)o(ian)o
+(a.e)o(du)8 b Fo(in)j(the)g(directory)e Fm(/pub/scheme)o(-re)o(pos)o
+(it)o(ory)o(/do)o(c)946 2924 y FB(7)p eop
+%%Page: 8 8
+8 7 bop 75 47 a FA(8)1260 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(#.<expr>)19 b FB(is)g(read)g(as)f(the)i(ev)n
+(aluation)d(of)h(the)h(Sc)o(heme)g(expression)g Fs(<expr>)p
+FB(.)31 b(The)19 b(ev)n(aluation)f(is)g(done)179 224
+y(during)g(the)h Fs(read)e FB(pro)q(cess,)k(when)e(the)g
+Fs(#)p Fz(.)e FB(is)h(encoun)o(tered.)34 b(Ev)n(alustaion)17
+b(is)h(done)h(in)e(the)i(global-)179 270 y(en)o(vironmen)o(t.)336
+381 y Fr(\(define)e(foo)h(1\))336 427 y(#.foo)453 473
+y Fq(=)-6 b Fl(\))20 b Fr(1)336 518 y('\(foo)d(#.foo)h(#.\(+)g(foo)h
+(foo\)\))453 564 y Fq(=)-6 b Fl(\))20 b Fr(\(foo)e(1)h(2\))336
+609 y(\(let)f(\(\(foo)f(2\)\))395 655 y(#.foo\))453 701
+y Fq(=)-6 b Fl(\))20 b Fr(1)75 950 y Fu(3)67 b(Basic)22
+b(concepts)75 1048 y Fz(Identic)n(al)15 b(to)g(R)325
+1033 y Fw(4)344 1048 y Fz(RS.)75 1206 y Fu(4)67 b(Expressions)75
+1313 y FE(4.1)56 b(Primitiv)n(e)15 b(expression)j(t)n(yp)r(es)75
+1460 y Fs(\(quote)j Fk(h)p FB(datum)p Fk(i)n Fs(\))1320
+b FB(syn)o(tax)75 1510 y Fs(')p Fk(h)p FB(datum)p Fk(i)1471
+b FB(syn)o(tax)75 1583 y(The)12 b(quoting)e(mec)o(hanism)f(is)j(iden)o
+(tical)e(to)i Fz(R)800 1568 y Fw(4)812 1583 y Fv(RS)r
+FB(.)17 b(Keyw)o(ords)c(\(see)f(section)g(6.11\),)f(as)g(n)o(umerical)f
+(constan)o(ts,)75 1629 y(string)k(constan)o(ts,)h(c)o(haracter)g
+(constan)o(ts,)g(and)f(b)q(o)q(olean)g(constan)o(ts)h(ev)n(aluate)e
+(\\to)h(themselv)o(es";)g(they)g(need)75 1675 y(not)g(b)q(e)g(quoted.)
+153 1769 y Fr('"abc")430 b Fq(=)-6 b Fl(\))39 b Fr("abc")153
+1815 y("abc")450 b Fq(=)-6 b Fl(\))39 b Fr("abc")153
+1861 y('145932)410 b Fq(=)-6 b Fl(\))39 b Fr(145932)153
+1906 y(145932)430 b Fq(=)-6 b Fl(\))39 b Fr(145932)153
+1952 y('#t)490 b Fq(=)-6 b Fl(\))39 b Fr(#t)153 1998
+y(#t)510 b Fq(=)-6 b Fl(\))39 b Fr(#t)153 2043 y(':key)450
+b Fq(=)-6 b Fl(\))39 b Fr(:key)153 2089 y(:key)470 b
+Fq(=)-6 b Fl(\))39 b Fr(:key)75 2229 y Fj(Note:)32 b(R)227
+2213 y Fp(4)238 2229 y Fi(RS)16 b Fq(requires)e(to)f(quote)h(constan)o
+(t)g(lists)g(and)g(constan)o(t)g(v)o(ectors.)j(This)d(is)f(not)h
+(necessary)g(with)f Fh(STk)p Fq(.)75 2364 y Fs(\()p Fk(h)p
+FB(op)q(erator)p Fk(i)22 b(h)p FB(op)q(erand)466 2370
+y Fw(1)486 2364 y Fk(i)g Fv(:)7 b(:)g(:)e Fs(\))1118
+b FB(syn)o(tax)75 2441 y Fz(Identic)n(al)15 b(to)g(R)325
+2426 y Fw(4)344 2441 y Fz(RS.)f FB(F)m(urthermore,)f
+Fk(h)p FB(op)q(erator)p Fk(i)i FB(can)f(b)q(e)g(a)g(macro)f(\(see)i
+(section)f(6.14\).)75 2575 y Fs(\(lambda)20 b Fk(h)p
+FB(formals)p Fk(i)g(h)p FB(b)q(o)q(dy)p Fk(i)q Fs(\))1137
+b FB(syn)o(tax)75 2625 y Fs(\(if)21 b Fk(h)p FB(test)p
+Fk(i)i(h)p FB(consequen)o(t)p Fk(i)h(h)p FB(alternate)p
+Fk(i)q Fs(\))967 b FB(syn)o(tax)75 2675 y Fs(\(if)21
+b Fk(h)p FB(test)p Fk(i)i(h)p FB(consequen)o(t)p Fk(i)r
+Fs(\))1183 b FB(syn)o(tax)75 2725 y Fs(\(set!)21 b Fk(h)p
+FB(v)n(ariable)p Fk(i)g(h)p FB(expression)p Fk(i)q Fs(\))1077
+b FB(syn)o(tax)75 2802 y Fz(Identic)n(al)15 b(to)g(R)325
+2787 y Fw(4)344 2802 y Fz(RS.)p eop
+%%Page: 9 9
+9 8 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1259
+b(9)p 75 64 1763 2 v 75 179 a FE(4.2)56 b(Deriv)n(ed)17
+b(expression)g(t)n(yp)r(es)75 307 y Fs(\(cond)k Fk(h)p
+FB(clause)330 313 y Fw(1)349 307 y Fk(i)h(h)p FB(clause)511
+313 y Fw(2)530 307 y Fk(i)g Fv(:)7 b(:)g(:)f Fs(\))1073
+b FB(syn)o(tax)75 357 y Fs(\(case)21 b Fk(h)p FB(k)o(ey)p
+Fk(i)h(h)p FB(clause)445 363 y Fw(1)464 357 y Fk(i)g(h)p
+FB(clause)626 363 y Fw(2)646 357 y Fk(i)g Fv(:)7 b(:)g(:)e
+Fs(\))958 b FB(syn)o(tax)75 407 y Fs(\(and)21 b Fk(h)p
+FB(test)266 413 y Fw(1)286 407 y Fk(i)h Fv(:)7 b(:)g(:)e
+Fs(\))1318 b FB(syn)o(tax)75 457 y Fs(\(or)21 b Fk(h)p
+FB(test)244 463 y Fw(1)264 457 y Fk(i)h Fv(:)7 b(:)g(:)e
+Fs(\))1340 b FB(syn)o(tax)75 530 y Fz(Identic)n(al)15
+b(to)g(R)325 515 y Fw(4)344 530 y Fz(RS.)75 621 y Fs(\(when)21
+b Fk(h)p FB(test)p Fk(i)i(h)p FB(expression)528 627 y
+Fw(1)548 621 y Fk(i)f(h)p FB(expression)787 627 y Fw(2)807
+621 y Fk(i)g Fv(:)7 b(:)g(:)e Fs(\))797 b FB(syn)o(tax)75
+694 y(If)14 b(the)i Fk(h)p FB(test)p Fk(i)g FB(expression)g(yields)e(a)
+h(true)h(v)n(alue,)d(the)j Fk(h)p FB(expression)p Fk(i)q
+FB(s)f(are)h(ev)n(aluated)e(from)f(left)i(to)f(righ)o(t)h(and)75
+744 y(the)f(v)n(alue)g(of)f(the)h(last)g Fk(h)p FB(expression)p
+Fk(i)h FB(is)f(returned.)75 834 y Fs(\(unless)20 b Fk(h)p
+FB(test)p Fk(i)k(h)p FB(expression)572 840 y Fw(1)592
+834 y Fk(i)d(h)p FB(expression)830 840 y Fw(2)850 834
+y Fk(i)h Fv(:)7 b(:)g(:)f Fs(\))753 b FB(syn)o(tax)75
+908 y(If)14 b(the)h Fk(h)p FB(test)p Fk(i)h FB(expression)f(yields)g(a)
+f(false)g(v)n(alue,)f(the)i Fk(h)p FB(expression)p Fk(i)r
+FB(s)g(are)f(ev)n(aluated)h(from)d(left)i(to)h(righ)o(t)f(and)75
+958 y(the)g(v)n(alue)g(of)f(the)h(last)g Fk(h)p FB(expression)p
+Fk(i)h FB(is)f(returned.)75 1048 y Fs(\(let)21 b Fk(h)p
+FB(bindings)p Fk(i)g(h)p FB(b)q(o)q(dy)p Fk(i)q Fs(\))1183
+b FB(syn)o(tax)75 1098 y Fs(\(let)21 b Fk(h)p FB(v)n(ariable)p
+Fk(i)g(h)p FB(bindings)p Fk(i)h(h)p FB(b)q(o)q(dy)p Fk(i)p
+Fs(\))987 b FB(syn)o(tax)75 1148 y Fs(\(let*)21 b Fk(h)p
+FB(bindings)p Fk(i)g(h)p FB(b)q(o)q(dy)p Fk(i)q Fs(\))1161
+b FB(syn)o(tax)75 1221 y Fz(Identic)n(al)15 b(to)g(R)325
+1206 y Fw(4)344 1221 y Fz(RS.)75 1312 y Fs(\(fluid-let)20
+b Fk(h)p FB(bindings)p Fk(i)h(h)p FB(b)q(o)q(dy)p Fk(i)q
+Fs(\))1052 b FB(syn)o(tax)75 1381 y(The)18 b Fz(bindings)k
+FB(are)c(ev)n(aluated)g(in)f(the)i(curren)o(t)g(en)o(vironmen)o(t,)e
+(in)h(some)f(unsp)q(eci\014ed)i(order,)h(the)e(curren)o(t)75
+1427 y(v)n(alues)e(of)f(the)h(v)n(ariables)f(presen)o(t)j(in)d
+Fz(bindings)20 b FB(are)c(sa)o(v)o(ed,)g(and)g(the)g(new)h(ev)n
+(aluated)e(v)n(alues)h(are)g(assigned)75 1472 y(to)e(the)g
+Fz(bindings)k FB(v)n(ariables.)f(Once)e(this)f(is)g(done,)g(the)g
+(expressions)h(of)f Fz(b)n(o)n(dy)k FB(are)c(ev)n(aluated)g(sequen)o
+(tially)f(in)75 1518 y(the)j(curren)o(t)h(en)o(vironmen)o(t;)d(the)i(v)
+n(alue)f(of)g(the)h(last)f(expression)h(is)f(the)h(result)g(of)f
+Fs(fluid-let)p FB(.)20 b(Up)q(on)c(exit,)75 1564 y(the)i(stored)g(v)n
+(ariables)e(v)n(alues)h(are)h(restored.)29 b(An)17 b(error)h(is)f
+(signalled)f(if)h(an)o(y)f(of)h(the)h Fz(bindings)j FB(v)n(ariable)16
+b(is)75 1609 y(un)o(b)q(ound.)153 1678 y Fr(\(let*)i(\(\(a)h('out\))291
+1723 y(\(f)g(\(lambda)e(\(\))h(a\)\)\))193 1769 y(\(list)f(a)310
+1815 y(\(fluid-let)f(\(\(a)j('in\)\))e(\(f\)\))310 1860
+y(a\)\))350 1906 y Fq(=)-6 b Fl(\))19 b Fr(\(out)f(in)h(out\))75
+2020 y FB(When)14 b(the)h(b)q(o)q(dy)g(of)e(a)h Fs(fluid-let)f
+FB(is)h(exited)h(b)o(y)f(in)o(v)o(oking)e(a)i(con)o(tin)o(uation,)f
+(the)i(new)g(v)n(ariable)e(v)n(alues)h(are)75 2066 y(sa)o(v)o(ed,)j
+(and)g(the)g(v)n(ariables)f(are)h(set)g(to)g(their)g(old)f(v)n(alues.)
+26 b(Then,)17 b(if)f(the)i(b)q(o)q(dy)e(is)h(reen)o(tered)i(b)o(y)d(in)
+o(v)o(oking)75 2111 y(a)j(con)o(tin)o(uation,)g(the)h(old)e(v)n(alues)h
+(are)h(sa)o(v)o(ed)f(and)g(new)h(v)n(alues)f(are)h(restored.)35
+b(The)20 b(follo)o(wing)d(example)75 2157 y(illustrates)d(this)g(b)q
+(eha)o(viour)153 2225 y Fr(\(let)19 b(\(\(cont)e(#f\))271
+2271 y(\(l)78 b('\(\)\))271 2317 y(\(a)g('out\)\))193
+2408 y(\(set!)17 b(l)j(\(cons)d(a)j(l\)\))193 2454 y(\(fluid-le)o(t)c
+(\(\(a)j('in\)\))232 2499 y(\(set!)f(cont)g(\(call/cc)e(\(lambda)h
+(\(k\))i(k\)\)\))232 2545 y(\(set!)f(l)h(\(cons)f(a)h(l\)\)\))193
+2591 y(\(set!)e(l)j(\(cons)d(a)j(l\)\))193 2682 y(\(if)e(cont)g(\(cont)
+g(#f\))g(l\)\))350 2728 y Fq(=)-6 b Fl(\))19 b Fr(\(out)f(in)h(out)f
+(in)h(out\))p eop
+%%Page: 10 10
+10 9 bop 75 47 a FA(10)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(letrec)20 b Fk(h)p FB(bindings)p
+Fk(i)i(h)p FB(b)q(o)q(dy)p Fk(i)p Fs(\))1118 b FB(syn)o(tax)75
+229 y Fs(\(begin)21 b Fk(h)p FB(expression)429 235 y
+Fw(1)449 229 y Fk(i)g(h)p FB(expression)687 235 y Fw(2)707
+229 y Fk(i)h Fv(:)7 b(:)g(:)f Fs(\))896 b FB(syn)o(tax)75
+278 y Fs(\(do)21 b Fk(h)p FB(inits)p Fk(i)h(h)p FB(test)p
+Fk(i)h(h)p FB(b)q(o)q(dy)p Fk(i)p Fs(\))1158 b FB(syn)o(tax)75
+328 y Fs(\(delay)21 b Fk(h)p FB(expression)p Fk(i)q Fs(\))1251
+b FB(syn)o(tax)75 378 y Fs(\(quasiquote)20 b Fk(h)p FB(template)p
+Fk(i)o Fs(\))1169 b FB(syn)o(tax)75 428 y Fs(\022)p Fk(h)p
+FB(template)p Fk(i)1430 b FB(syn)o(tax)75 507 y Fz(Identic)n(al)15
+b(to)g(R)325 492 y Fw(4)344 507 y Fz(RS.)75 653 y Fs(\(dotimes)20
+b Fz(\(var)i(c)n(ount\))g Fk(h)p FB(expression)705 659
+y Fw(1)725 653 y Fk(i)g(h)p FB(expression)964 659 y Fw(2)984
+653 y Fk(i)g Fv(:)7 b(:)g(:)e Fs(\))620 b FB(syn)o(tax)75
+703 y Fs(\(dotimes)20 b Fz(\(var)i(c)n(ount)g(r)n(esult\))f
+Fk(h)p FB(expression)825 709 y Fw(1)845 703 y Fk(i)h(h)p
+FB(expression)1084 709 y Fw(2)1104 703 y Fk(i)g Fv(:)7
+b(:)g(:)e Fs(\))500 b FB(syn)o(tax)75 782 y Fs(Dotimes)8
+b FB(ev)n(aluates)h(the)h Fz(c)n(ount)k FB(form,)8 b(whic)o(h)h(m)o
+(ust)f(return)j(an)e(in)o(teger.)17 b(It)9 b(then)h(ev)n(aluates)f(the)
+h Fk(h)p FB(expression)p Fk(i)r FB(s)75 832 y(once)18
+b(for)f(eac)o(h)g(in)o(teger)h(from)d(zero)j(\(inclusiv)o(e\))f(to)g
+Fz(c)n(ount)22 b FB(\(exclusiv)o(e\),)c(in)f(order,)h(with)e(the)i(v)n
+(ariable)e Fz(var)75 882 y FB(b)q(ound)j(to)f(the)h(in)o(teger;)i(if)d
+(the)i(v)n(alue)e(of)g Fz(c)n(ount)23 b FB(is)18 b(zero)i(or)e(negativ)
+o(e,)h(then)h(the)f Fk(h)p FB(expression)p Fk(i)r FB(s)f(are)i(not)75
+932 y(ev)n(aluated.)g(When)14 b(the)h(lo)q(op)f(completes,)g
+Fz(r)n(esult)k FB(is)c(ev)n(aluated)g(and)h(its)f(v)n(alue)g(is)g
+(returned)j(as)d(the)h(v)n(alue)f(of)75 982 y(the)g Fs(dotimes)f
+FB(expression.)19 b(If)14 b Fz(r)n(esult)i FB(is)e(omitted,)e
+Fs(dotimes)h FB(returns)i Fs(#f)p FB(.)153 1096 y Fr(\(let)k(\(\(l)f
+('\(\)\)\))193 1142 y(\(dotimes)e(\(i)j(4)g(l\))252 1188
+y(\(set!)e(l)i(\(cons)f(i)h(l\)\)\)\))350 1233 y Fq(=)-6
+b Fl(\))19 b Fr(\(3)g(2)g(1)g(0\))75 1484 y Fs(\(while)i
+Fk(h)p FB(test)p Fk(i)i(h)p FB(expression)550 1490 y
+Fw(1)570 1484 y Fk(i)f(h)p FB(expression)809 1490 y Fw(2)829
+1484 y Fk(i)g Fv(:)7 b(:)g(:)e Fs(\))775 b FB(syn)o(tax)75
+1563 y Fs(While)11 b FB(ev)n(aluates)g(the)i Fk(h)p FB(expression)p
+Fk(i)q FB(s)f(un)o(til)f Fk(h)p FB(test)p Fk(i)i FB(returns)g(a)f
+(false)f(v)n(alue.)17 b(The)12 b(v)n(alue)f(of)g(a)g
+Fs(while)g FB(construct)75 1613 y(is)j(unsp)q(eci\014ed.)75
+1759 y Fs(\(until)21 b Fk(h)p FB(test)p Fk(i)i(h)p FB(expression)550
+1765 y Fw(1)570 1759 y Fk(i)f(h)p FB(expression)809 1765
+y Fw(2)829 1759 y Fk(i)g Fv(:)7 b(:)g(:)e Fs(\))775 b
+FB(syn)o(tax)75 1838 y Fs(Until)19 b FB(ev)n(aluates)h(the)g
+Fk(h)p FB(expression)p Fk(i)r FB(s)g(while)f Fk(h)p FB(test)p
+Fk(i)i FB(returns)h(a)d(false)h(v)n(alue.)35 b(The)21
+b(v)n(alue)e(of)g(an)h Fs(unless)75 1888 y FB(construct)c(is)d(unsp)q
+(eci\014ed.)75 2079 y Fu(5)67 b(Program)22 b(structure)75
+2180 y Fz(Identic)n(al)15 b(to)g(R)325 2165 y Fw(4)344
+2180 y Fz(RS.)75 2347 y Fu(6)67 b(Standard)24 b(pro)r(cedures)75
+2456 y FE(6.1)56 b(Bo)r(oleans)75 2543 y FB(In)14 b Fx(STk)g
+FB(the)h(b)q(o)q(olean)e(v)n(alue)g Fs(#f)h FB(is)g(di\013eren)o(t)g
+(from)e(the)j(empt)o(y)e(list,)g(as)h(required)h(b)o(y)e
+Fz(R)1500 2528 y Fw(4)1512 2543 y Fv(RS)r FB(.)75 2666
+y Fs(\(not)21 b Fz(obj)6 b Fs(\))1394 b FB(pro)q(cedure)75
+2716 y Fs(\(boolean?)20 b Fz(obj)6 b Fs(\))1285 b FB(pro)q(cedure)75
+2795 y Fz(Identic)n(al)15 b(to)g(R)325 2780 y Fw(4)344
+2795 y Fz(RS.)p eop
+%%Page: 11 11
+11 10 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(11)p 75 64 1763 2 v 75 179 a FE(6.2)56 b(Equiv)m(alence)16
+b(predicates)75 316 y Fs(\(eqv?)21 b Fz(obj)259 322 y
+Fw(1)299 316 y Fz(obj)352 322 y Fw(2)371 316 y Fs(\))1266
+b FB(pro)q(cedure)75 387 y Fx(STk)15 b FB(extends)i(the)e
+Fs(eqv?)f FB(predicate)i(de\014ned)g(in)e(the)i Fz(R)978
+372 y Fw(4)990 387 y Fv(RS)h FB(to)e(tak)o(e)g(k)o(eyw)o(ords)g(in)o
+(to)g(accoun)o(t:)20 b(if)14 b Fz(obj)1737 393 y Fw(1)1771
+387 y FB(and)75 432 y Fz(obj)128 438 y Fw(2)161 432 y
+FB(are)g(b)q(oth)g(k)o(eyw)o(ords,)g(the)g Fs(eqv?)f
+FB(predicate)i(will)d(yield)i Fs(#t)f FB(if)g(and)h(only)f(if)153
+516 y Fr(\(string=?)k(\(keyword-)o(>s)o(tri)o(ng)f(obj1\))350
+562 y(\(keyword-)o(>s)o(tri)o(ng)g(obj2\)\))703 608 y
+Fq(=)-6 b Fl(\))39 b Fr(#t)75 758 y Fs(\(eq?)21 b Fz(obj)237
+764 y Fw(1)277 758 y Fz(obj)330 764 y Fw(2)349 758 y
+Fs(\))1288 b FB(pro)q(cedure)75 833 y Fx(STk)12 b FB(extends)i(the)f
+Fs(eq?)e FB(predicate)i(de\014ned)g(in)f Fz(R)864 818
+y Fw(4)876 833 y Fv(RS)j FB(to)d(tak)o(e)g(k)o(eyw)o(ords)g(in)o(to)g
+(accoun)o(t.)17 b(On)c(k)o(eyw)o(ords,)f Fs(eq?)75 883
+y FB(b)q(eha)o(v)o(es)j(lik)o(e)e Fs(eqv?)p FB(.)153
+976 y Fr(\(eq?)19 b(:key)f(:key\))253 b Fq(=)-6 b Fl(\))39
+b Fr(#t)75 1182 y Fs(\(equal?)20 b Fz(obj)302 1188 y
+Fw(1)343 1182 y Fz(obj)396 1188 y Fw(2)414 1182 y Fs(\))1223
+b FB(pro)q(cedure)75 1257 y Fz(Identic)n(al)15 b(to)g(R)325
+1242 y Fw(4)344 1257 y Fz(RS.)75 1386 y FE(6.3)56 b(P)n(airs)19
+b(and)g(lists)75 1523 y Fs(\(pair?)i Fz(obj)6 b Fs(\))1350
+b FB(pro)q(cedure)75 1573 y Fs(\(cons)21 b Fz(obj)259
+1579 y Fw(1)299 1573 y Fz(obj)352 1579 y Fw(2)371 1573
+y Fs(\))1266 b FB(pro)q(cedure)75 1623 y Fs(\(car)21
+b Fz(p)n(air)t Fs(\))1378 b FB(pro)q(cedure)75 1672 y
+Fs(\(cdr)21 b Fz(p)n(air)t Fs(\))1378 b FB(pro)q(cedure)75
+1722 y Fs(\(set-car!)20 b Fz(p)n(air)h(obj)6 b Fs(\))1193
+b FB(pro)q(cedure)75 1772 y Fs(\(set-cdr!)20 b Fz(p)n(air)h(obj)6
+b Fs(\))1193 b FB(pro)q(cedure)75 1822 y Fs(\(caar)21
+b Fz(p)n(air)t Fs(\))1356 b FB(pro)q(cedure)75 1872 y
+Fs(\(cadr)21 b Fz(p)n(air)t Fs(\))1356 b FB(pro)q(cedure)178
+1914 y Fs(.)178 1931 y(.)178 1947 y(.)1742 1914 y FB(.)1742
+1931 y(.)1742 1947 y(.)75 1997 y Fs(\(cdddar)20 b Fz(p)n(air)t
+Fs(\))1313 b FB(pro)q(cedure)75 2047 y Fs(\(cddddr)20
+b Fz(p)n(air)t Fs(\))1313 b FB(pro)q(cedure)75 2097 y
+Fs(\(null?)21 b Fz(obj)6 b Fs(\))1350 b FB(pro)q(cedure)75
+2146 y Fs(\(list?)21 b Fz(obj)6 b Fs(\))1350 b FB(pro)q(cedure)75
+2196 y Fs(\(list)21 b Fz(obj)28 b Fv(:)7 b(:)g(:)e Fs(\))1295
+b FB(pro)q(cedure)75 2246 y Fs(\(length)20 b Fz(list)t
+Fs(\))1329 b FB(pro)q(cedure)75 2296 y Fs(\(append)20
+b Fz(list)h Fv(:)7 b(:)g(:)f Fs(\))1256 b FB(pro)q(cedure)75
+2346 y Fs(\(reverse)20 b Fz(list)t Fs(\))1307 b FB(pro)q(cedure)75
+2395 y Fs(\(list-tail)20 b Fz(list)h Fv(k)q Fs(\))1223
+b FB(pro)q(cedure)75 2445 y Fs(\(list-ref)20 b Fz(list)h
+Fv(k)q Fs(\))1245 b FB(pro)q(cedure)75 2495 y Fs(\(memq)21
+b Fz(obj)h(list)t Fs(\))1297 b FB(pro)q(cedure)75 2545
+y Fs(\(memv)21 b Fz(obj)h(list)t Fs(\))1297 b FB(pro)q(cedure)75
+2595 y Fs(\(member)20 b Fz(obj)i(list)t Fs(\))1254 b
+FB(pro)q(cedure)75 2645 y Fs(\(assq)21 b Fz(obj)h(alist)t
+Fs(\))1276 b FB(pro)q(cedure)75 2694 y Fs(\(assv)21 b
+Fz(obj)h(alist)t Fs(\))1276 b FB(pro)q(cedure)75 2744
+y Fs(\(assoc)21 b Fz(obj)g(alist)t Fs(\))1255 b FB(pro)q(cedure)75
+2819 y Fz(Identic)n(al)15 b(to)g(R)325 2804 y Fw(4)344
+2819 y Fz(RS.)p eop
+%%Page: 12 12
+12 11 bop 75 47 a FA(12)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(list*)21 b Fz(obj)6 b Fs(\))1350
+b FB(pro)q(cedure)75 248 y Fs(list*)18 b FB(is)g(lik)o(e)g
+Fs(list)g FB(except)j(that)d(the)i(last)e(argumen)o(t)g(to)h
+Fs(list*)f FB(is)g(used)i(as)f(the)g Fz(c)n(dr)g FB(of)f(the)h(last)g
+(pair)75 294 y(constructed.)153 360 y Fr(\(list*)f(1)h(2)g(3\))294
+b Fq(=)-6 b Fl(\))19 b Fr(\(1)g(2)g(.)g(3\))153 405 y(\(list*)f(1)h(2)g
+(3)g('\(4)g(5\)\))156 b Fq(=)-6 b Fl(\))19 b Fr(\(1)g(2)g(3)g(4)h(5\))
+75 558 y Fs(\(copy-tree)g Fz(obj)6 b Fs(\))1263 b FB(pro)q(cedure)75
+631 y Fs(Copy-tree)10 b FB(recursiv)o(ely)j(copies)f(trees)i(of)d
+(pairs.)18 b(If)11 b Fs(obj)g FB(is)h(not)g(a)g(pair,)f(it)h(is)f
+(returned;)j(otherwise)f(the)g(result)75 681 y(is)k(a)g(new)g(pair)g
+(whose)h Fz(c)n(ar)e FB(and)h Fz(c)n(dr)g FB(are)h(obtained)e(b)o(y)h
+(calling)f Fs(copy-tree)f FB(on)i(the)h Fz(c)n(ar)e FB(and)h
+Fz(c)n(dr)g FB(of)g Fs(obj)p FB(,)75 731 y(resp)q(ectiv)o(ely)m(.)75
+830 y FE(6.4)56 b(Sym)n(b)r(ols)75 907 y FB(The)15 b
+Fx(STk)g FB(reader)h(can)g(cop)q(e)f(with)g(sym)o(b)q(ols)e(whose)i
+(names)f(con)o(tain)h(sp)q(ecial)g(c)o(haracters)i(or)d(letters)i(in)f
+(the)75 957 y(non)k(standard)h(case.)36 b(When)20 b(a)f(sym)o(b)q(ol)f
+(is)i(read,)g(the)h(parts)f(enclosed)g(in)f(bars)h(\(\\)p
+Fs(|)p FB("\))g(will)e(b)q(e)i(en)o(tered)75 1007 y(v)o(erbatim)12
+b(in)o(to)h(the)h(sym)o(b)q(ol's)d(name.)17 b(The)d(\\)p
+Fs(|)p FB(")f(c)o(haracters)i(are)f(not)f(part)h(of)f(the)h(sym)o(b)q
+(ol;)d(they)k(only)d(serv)o(e)75 1056 y(to)g(delimit)d(the)j(sequence)i
+(of)d(c)o(haracters)j(that)d(m)o(ust)g(b)q(e)h(en)o(tered)i(\\as)d
+(is".)17 b(In)12 b(order)g(to)g(main)o(tain)d(read-write)75
+1106 y(in)o(v)n(ariance,)j(sym)o(b)q(ols)f(con)o(taining)h(suc)o(h)h
+(sequences)j(of)c(sp)q(ecial)h(c)o(haracters)h(will)e(b)q(e)h(written)g
+(b)q(et)o(w)o(een)h(a)f(pair)75 1156 y(of)g(\\)p Fs(|)p
+FB(")153 1227 y Fr('|x|)470 b Fq(=)-6 b Fl(\))19 b Fr(x)153
+1273 y(\(string->sy)o(mb)o(ol)d("X"\))156 b Fq(=)-6 b
+Fl(\))19 b Fr(|X|)153 1318 y(\(symbol->st)o(ri)o(ng)d('|X|\))136
+b Fq(=)-6 b Fl(\))19 b Fr("X")153 1364 y('|a)39 b(b|)411
+b Fq(=)-6 b Fl(\))19 b Fr(|a)39 b(b|)153 1410 y('a|B|c)430
+b Fq(=)-6 b Fl(\))19 b Fr(|aBc|)153 1455 y(\(write)f('|FoO|\))272
+b Fq(=)-6 b Fl(\))19 b Fr(writes)e(the)i(string)e("|FoO|")153
+1501 y(\(display)g('|FoO|\))233 b Fq(=)-6 b Fl(\))19
+b Fr(writes)e(the)i(string)e("FoO")75 1622 y Fj(Note:)53
+b Fq(This)19 b(notation)h(has)e(b)q(een)h(in)o(tro)q(duced)h(b)q
+(ecause)g Fj(R)1014 1606 y Fp(4)1025 1622 y Fi(RS)g Fq(states)f(that)f
+(case)h(m)o(ust)f(not)g(b)q(e)h(signi\014can)o(t)i(in)75
+1671 y(sym)o(b)q(ols)14 b(whereas)f(the)g(Tk)g(to)q(olkit)h(is)f(case)g
+(signi\014can)o(t)j(\(or)c(more)h(precisely)i(thinks)f(it)f(runs)g(o)o
+(v)o(er)g(Tcl)g(whic)o(h)h(is)f(case)75 1721 y(signi\014can)o(t\).)19
+b(Ho)o(w)o(ev)o(er,)13 b(sym)o(b)q(ols)h(con)o(taining)i(the)d(c)o
+(haracter)h(\\)p Fr(|)p Fq(")f(itself)h(still)h(can't)e(b)q(e)g(read)g
+(in.)75 1822 y Fs(\(symbol?)20 b Fz(obj)6 b Fs(\))1307
+b FB(pro)q(cedure)75 1896 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(obj)20 b FB(is)14 b(a)f(sym)o(b)q(ol,)f(otherwise)j(returns)g
+Fs(#f)p FB(.)153 1966 y Fr(\(symbol?)i('foo\))273 b Fq(=)-6
+b Fl(\))39 b Fr(#t)153 2012 y(\(symbol?)17 b(\(car)h('\(a)h(b\)\)\))116
+b Fq(=)-6 b Fl(\))39 b Fr(#t)153 2058 y(\(symbol?)17
+b("bar"\))253 b Fq(=)-6 b Fl(\))39 b Fr(#f)153 2103 y(\(symbol?)17
+b('nil\))273 b Fq(=)-6 b Fl(\))39 b Fr(#t)153 2149 y(\(symbol?)17
+b('\(\)\))293 b Fq(=)-6 b Fl(\))39 b Fr(#f)153 2195 y(\(symbol?)17
+b(#f\))313 b Fq(=)-6 b Fl(\))39 b Fr(#f)153 2240 y(\(symbol?)17
+b(:key\))273 b Fq(=)-6 b Fl(\))39 b Fr(#f)75 2398 y Fs
+(\(symbol->string)19 b Fz(symb)n(ol)t Fs(\))1089 b FB(pro)q(cedure)75
+2448 y Fs(\(string->symbol)19 b Fz(string)t Fs(\))1105
+b FB(pro)q(cedure)75 2522 y Fz(Identic)n(al)15 b(to)g(R)325
+2506 y Fw(4)344 2522 y Fz(RS.)75 2608 y Fs(\(gensym)o(\))1409
+b FB(pro)q(cedure)75 2658 y Fs(\(gensym)20 b Fz(pr)n(e\014x)5
+b Fs(\))1285 b FB(pro)q(cedure)75 2728 y Fs(Gensym)11
+b FB(creates)k(a)d(new)h(sym)o(b)q(ol.)j(The)d(prin)o(t)f(name)g(of)g
+(the)h(generated)h(sym)o(b)q(ol)c(consists)k(of)e(a)g(pre\014x)h
+(\(whic)o(h)75 2773 y(defaults)g(to)g Fs("G")p FB(\))g(follo)o(w)o(ed)e
+(b)o(y)i(the)h(decimal)d(represen)o(tation)k(of)d(a)h(n)o(um)o(b)q(er.)
+k(If)c Fz(pr)n(e\014x)18 b FB(is)13 b(sp)q(eci\014ed,)i(it)d(m)o(ust)75
+2819 y(b)q(e)j(a)e(string.)p eop
+%%Page: 13 13
+13 12 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(13)p 75 64 1763 2 v 153 179 a Fr(\(gensym\))350 224
+y Fq(=)-6 b Fl(\))19 b Fr(|G100|)153 270 y(\(gensym)e("foo-"\))350
+316 y Fq(=)-6 b Fl(\))19 b Fr(foo-101)75 512 y FE(6.5)56
+b(Num)n(b)r(ers)75 589 y FB(The)18 b(only)g(n)o(um)o(b)q(ers)f
+(recognized)i(b)o(y)f Fx(STk)g FB(are)h(in)o(tegers)f(\(with)g
+(arbitrary)g(precision\))g(and)g(reals)g(\(imple-)75
+639 y(men)o(ted)13 b(as)h(C)g Fs(double)21 b(float)p
+FB(s\).)75 745 y Fs(\(number?)f Fz(obj)6 b Fs(\))1307
+b FB(pro)q(cedure)75 818 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(obj)20 b FB(is)14 b(a)f(n)o(um)o(b)q(er,)g(otherwise)i(returns)g
+Fs(#f)p FB(.)75 924 y Fs(\(complex?)20 b Fz(obj)6 b Fs(\))1285
+b FB(pro)q(cedure)75 998 y(Returns)15 b(the)f(same)f(result)i(as)f
+Fz(numb)n(er?)5 b FB(.)18 b(Note)d(that)f(complex)e(n)o(um)o(b)q(ers)i
+(are)g(not)g(implemen)o(ted.)75 1104 y Fs(\(real?)21
+b Fz(obj)6 b Fs(\))1350 b FB(pro)q(cedure)75 1177 y(Returns)15
+b Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14 b(a)f(\015oat)h(n)o(um)o(b)q
+(er,)f(otherwise)i(returns)g Fs(#f)p FB(.)75 1284 y Fs(\(rational?)20
+b Fz(obj)6 b Fs(\))1263 b FB(pro)q(cedure)75 1357 y(Returns)15
+b(the)f(same)f(result)i(as)f Fz(numb)n(er?)5 b FB(.)18
+b(Note)d(that)f(rational)e(n)o(um)o(b)q(ers)i(are)g(not)g(implemen)o
+(ted.)75 1463 y Fs(\(integer?)20 b Fz(obj)6 b Fs(\))1285
+b FB(pro)q(cedure)75 1537 y(Returns)10 b Fs(#t)g FB(if)e
+Fz(obj)16 b FB(is)9 b(an)h(in)o(teger,)g(otherwise)h(returns)g
+Fs(#f)p FB(.)16 b Fj(Note:)28 b Fq(The)9 b Fh(STk)g Fq(in)o(terpreter)h
+(distinguis)q(hes)i(b)q(et)o(w)o(een)75 1587 y(in)o(tegers)i(whic)o(h)g
+(\014t)g(in)g(a)f(C)g Fr(long)18 b(int)12 b Fq(\(min)o(us)i(8)f(bits\))
+h(and)g(in)o(tegers)g(of)f(arbitrary)i(length)g(\(ak)n(a)e(\\bign)o
+(ums"\).)20 b(This)75 1636 y(should)15 b(b)q(e)e(transparen)o(t)h(to)f
+(the)g(user,)g(though.)75 1743 y Fs(\(exact?)20 b Fv(z)r
+Fs(\))1367 b FB(pro)q(cedure)75 1792 y Fs(\(inexact?)20
+b Fv(z)r Fs(\))1323 b FB(pro)q(cedure)75 1866 y(In)18
+b(this)g(implemen)o(tati)o(on,)e(in)o(tegers)i(\(C)g
+Fs(long)j(int)c FB(or)h(\\bign)o(ums"\))e(are)i(exact)h(n)o(um)o(b)q
+(ers)e(and)h(\015oats)g(are)75 1916 y(inexact.)75 2022
+y Fs(\(=)j Fv(z)159 2028 y Fw(1)200 2022 y Fv(z)219 2028
+y Fw(2)260 2022 y Fv(z)279 2028 y Fw(3)320 2022 y Fv(:)7
+b(:)g(:)e Fs(\))1262 b FB(pro)q(cedure)75 2072 y Fs(\(<)21
+b Fv(x)164 2078 y Fw(1)205 2072 y Fv(x)229 2078 y Fw(2)269
+2072 y Fv(x)293 2078 y Fw(3)333 2072 y Fv(:)7 b(:)g(:)e
+Fs(\))1249 b FB(pro)q(cedure)75 2121 y Fs(\(>)21 b Fv(x)164
+2127 y Fw(1)205 2121 y Fv(x)229 2127 y Fw(2)269 2121
+y Fv(x)293 2127 y Fw(3)333 2121 y Fv(:)7 b(:)g(:)e Fs(\))1249
+b FB(pro)q(cedure)75 2171 y Fs(\(<=)21 b Fv(x)186 2177
+y Fw(1)226 2171 y Fv(x)250 2177 y Fw(2)290 2171 y Fv(x)314
+2177 y Fw(3)355 2171 y Fv(:)7 b(:)g(:)e Fs(\))1227 b
+FB(pro)q(cedure)75 2221 y Fs(\(>=)21 b Fv(x)186 2227
+y Fw(1)226 2221 y Fv(x)250 2227 y Fw(2)290 2221 y Fv(x)314
+2227 y Fw(3)355 2221 y Fv(:)7 b(:)g(:)e Fs(\))1227 b
+FB(pro)q(cedure)75 2271 y Fs(\(zero?)21 b Fz(z)5 b Fs(\))1387
+b FB(pro)q(cedure)75 2321 y Fs(\(positive?)20 b Fz(z)5
+b Fs(\))1300 b FB(pro)q(cedure)75 2371 y Fs(\(negative?)20
+b Fz(z)5 b Fs(\))1300 b FB(pro)q(cedure)75 2420 y Fs(\(odd?)21
+b Fz(z)5 b Fs(\))1409 b FB(pro)q(cedure)75 2470 y Fs(\(even?)21
+b Fz(z)5 b Fs(\))1387 b FB(pro)q(cedure)75 2520 y Fs(\(max)21
+b Fv(x)208 2526 y Fw(1)248 2520 y Fv(x)272 2526 y Fw(2)312
+2520 y Fv(:)7 b(:)g(:)f Fs(\))1269 b FB(pro)q(cedure)75
+2570 y Fs(\(min)21 b Fv(x)208 2576 y Fw(1)248 2570 y
+Fv(x)272 2576 y Fw(2)312 2570 y Fv(:)7 b(:)g(:)f Fs(\))1269
+b FB(pro)q(cedure)75 2620 y Fs(\(+)21 b Fv(z)159 2626
+y Fw(1)200 2620 y Fv(:)7 b(:)g(:)e Fs(\))1382 b FB(pro)q(cedure)75
+2669 y Fs(\(*)21 b Fv(z)159 2675 y Fw(1)200 2669 y Fv(:)7
+b(:)g(:)e Fs(\))1382 b FB(pro)q(cedure)75 2719 y Fs(\(-)21
+b Fv(z)159 2725 y Fw(1)200 2719 y Fv(z)219 2725 y Fw(2)238
+2719 y Fs(\))1399 b FB(pro)q(cedure)75 2769 y Fs(\(-)21
+b Fv(z)s Fs(\))1475 b FB(pro)q(cedure)75 2819 y Fs(\(-)21
+b Fv(z)159 2825 y Fw(1)200 2819 y Fv(z)219 2825 y Fw(2)260
+2819 y Fv(:)7 b(:)g(:)e Fs(\))1322 b FB(pro)q(cedure)p
+eop
+%%Page: 14 14
+14 13 bop 75 47 a FA(14)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(/)21 b Fv(z)159 185 y Fw(1)200
+179 y Fv(z)219 185 y Fw(2)238 179 y Fs(\))1399 b FB(pro)q(cedure)75
+229 y Fs(\(/)21 b Fv(z)s Fs(\))1475 b FB(pro)q(cedure)75
+278 y Fs(\(/)21 b Fv(z)159 284 y Fw(1)200 278 y Fv(z)219
+284 y Fw(2)260 278 y Fv(:)7 b(:)g(:)e Fs(\))1322 b FB(pro)q(cedure)75
+328 y Fs(\(abs)21 b Fz(x)5 b Fs(\))1429 b FB(pro)q(cedure)75
+378 y Fs(\(quotient)20 b Fv(n)318 384 y Fw(1)358 378
+y Fv(n)383 384 y Fw(2)402 378 y Fs(\))1235 b FB(pro)q(cedure)75
+428 y Fs(\(remainder)20 b Fv(n)340 434 y Fw(1)380 428
+y Fv(n)405 434 y Fw(2)424 428 y Fs(\))1213 b FB(pro)q(cedure)75
+478 y Fs(\(modulo)20 b Fv(n)274 484 y Fw(1)315 478 y
+Fv(n)340 484 y Fw(2)358 478 y Fs(\))1279 b FB(pro)q(cedure)75
+527 y Fs(\(gcd)21 b Fv(n)209 533 y Fw(1)249 527 y Fv(:)7
+b(:)g(:)f Fs(\))1332 b FB(pro)q(cedure)75 577 y Fs(\(lcm)21
+b Fv(n)209 583 y Fw(1)249 577 y Fv(:)7 b(:)g(:)f Fs(\))1332
+b FB(pro)q(cedure)75 651 y Fz(Identic)n(al)15 b(to)g(R)325
+636 y Fw(4)344 651 y Fz(RS.)75 741 y Fs(\(numerator)20
+b Fv(q)q Fs(\))1302 b FB(pro)q(cedure)75 791 y Fs(\(denominator)19
+b Fv(q)q Fs(\))1259 b FB(pro)q(cedure)75 865 y(Not)14
+b(implemen)o(ted.)75 955 y Fs(\(floor)21 b Fz(x)5 b Fs(\))1385
+b FB(pro)q(cedure)75 1005 y Fs(\(ceiling)20 b Fz(x)5
+b Fs(\))1342 b FB(pro)q(cedure)75 1055 y Fs(\(truncate)20
+b Fz(x)5 b Fs(\))1320 b FB(pro)q(cedure)75 1105 y Fs(\(round)21
+b Fz(x)5 b Fs(\))1385 b FB(pro)q(cedure)75 1178 y Fz(Identic)n(al)15
+b(to)g(R)325 1163 y Fw(4)344 1178 y Fz(RS.)75 1268 y
+Fs(\(rationalize)k Fz(x)j(y)t Fs(\))1214 b FB(pro)q(cedure)75
+1342 y(not)14 b(y)o(et)g(implemen)o(ted.)75 1432 y Fs(\(exp)21
+b Fv(z)r Fs(\))1432 b FB(pro)q(cedure)75 1482 y Fs(\(log)21
+b Fv(z)r Fs(\))1432 b FB(pro)q(cedure)75 1532 y Fs(\(sin)21
+b Fv(z)r Fs(\))1432 b FB(pro)q(cedure)75 1582 y Fs(\(cos)21
+b Fv(z)r Fs(\))1432 b FB(pro)q(cedure)75 1632 y Fs(\(tan)21
+b Fv(z)r Fs(\))1432 b FB(pro)q(cedure)75 1682 y Fs(\(asin)21
+b Fv(z)r Fs(\))1410 b FB(pro)q(cedure)75 1731 y Fs(\(acos)21
+b Fv(z)r Fs(\))1410 b FB(pro)q(cedure)75 1781 y Fs(\(atan)21
+b Fv(z)r Fs(\))1410 b FB(pro)q(cedure)75 1831 y Fs(\(atan)21
+b Fv(y)i(x)p Fs(\))1364 b FB(pro)q(cedure)75 1881 y Fs(\(sqrt)21
+b Fv(z)r Fs(\))1410 b FB(pro)q(cedure)75 1931 y Fs(\(expt)21
+b Fv(z)225 1937 y Fw(1)265 1931 y Fv(z)284 1937 y Fw(2)303
+1931 y Fs(\))1334 b FB(pro)q(cedure)75 2004 y Fz(Identic)n(al)15
+b(to)g(R)325 1989 y Fw(4)344 2004 y Fz(RS.)75 2095 y
+Fs(\(make-rectangular)j Fv(x)491 2101 y Fw(1)531 2095
+y Fv(x)555 2101 y Fw(2)574 2095 y Fs(\))1063 b FB(pro)q(cedure)75
+2144 y Fs(\(make-polar)20 b Fv(x)361 2150 y Fw(1)401
+2144 y Fv(x)425 2150 y Fw(2)443 2144 y Fs(\))1194 b FB(pro)q(cedure)75
+2194 y Fs(\(real-part)20 b Fv(z)r Fs(\))1301 b FB(pro)q(cedure)75
+2244 y Fs(\(imag-part)20 b Fv(z)r Fs(\))1301 b FB(pro)q(cedure)75
+2294 y Fs(\(magnitude)20 b Fv(z)r Fs(\))1301 b FB(pro)q(cedure)75
+2344 y Fs(\(angle)21 b Fv(z)r Fs(\))1388 b FB(pro)q(cedure)75
+2417 y(These)15 b(pro)q(cedures)h(are)f(not)e(implemen)o(ted)f(since)j
+(complex)d(n)o(um)o(b)q(ers)i(are)g(not)g(de\014ned.)75
+2508 y Fs(\(exact->inexact)19 b Fv(z)r Fs(\))1192 b FB(pro)q(cedure)75
+2557 y Fs(\(inexact->exact)19 b Fv(z)r Fs(\))1192 b FB(pro)q(cedure)75
+2607 y Fs(\(number->string)19 b Fz(numb)n(er)t Fs(\))1076
+b FB(pro)q(cedure)75 2657 y Fs(\(number->string)19 b
+Fz(numb)n(er)j(r)n(adix)5 b Fs(\))963 b FB(pro)q(cedure)75
+2707 y Fs(\(string->number)19 b Fz(string)t Fs(\))1105
+b FB(pro)q(cedure)75 2757 y Fs(\(string->number)19 b
+Fz(string)i(r)n(adix)5 b Fs(\))993 b FB(pro)q(cedure)75
+2830 y Fz(Identic)n(al)15 b(to)g(R)325 2815 y Fw(4)344
+2830 y Fz(RS.)p eop
+%%Page: 15 15
+15 14 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(15)p 75 64 1763 2 v 376 139 1161 2 v 375 185 2 46 v
+401 171 a Fj(name)p 515 185 V 49 w(value)p 650 185 V
+48 w(alternate)11 b(name)p 951 185 V 960 185 V 57 w(name)p
+1100 185 V 49 w(value)p 1235 185 V 48 w(alternate)h(name)p
+1536 185 V 376 186 1161 2 v 375 232 2 46 v 420 218 a
+Fq(n)o(ul)p 515 232 V 84 w(000)p 650 232 V 158 w(n)o(ull)p
+951 232 V 960 232 V 181 w(bs)p 1100 232 V 91 w(010)p
+1235 232 V 107 w(bac)o(kspace)p 1536 232 V 375 278 V
+418 264 a(soh)p 515 278 V 82 w(001)p 650 278 V 951 278
+V 960 278 V 401 w(h)o(t)p 1100 278 V 91 w(011)p 1235
+278 V 162 w(tab)p 1536 278 V 375 323 V 421 310 a(stx)p
+515 323 V 84 w(002)p 650 323 V 951 323 V 960 323 V 402
+w(nl)p 1100 323 V 94 w(012)p 1235 323 V 127 w(newline)p
+1536 323 V 375 369 V 420 355 a(etx)p 515 369 V 83 w(003)p
+650 369 V 951 369 V 960 369 V 401 w(vt)p 1100 369 V 91
+w(013)p 1235 369 V 1536 369 V 375 415 V 420 401 a(eot)p
+515 415 V 84 w(004)p 650 415 V 951 415 V 960 415 V 397
+w(np)p 1100 415 V 88 w(014)p 1235 415 V 152 w(page)p
+1536 415 V 375 460 V 416 447 a(enq)p 515 460 V 81 w(005)p
+650 460 V 951 460 V 960 460 V 402 w(cr)p 1100 460 V 93
+w(015)p 1235 460 V 138 w(return)p 1536 460 V 375 506
+V 418 492 a(ac)o(k)p 515 506 V 82 w(006)p 650 506 V 951
+506 V 960 506 V 401 w(so)p 1100 506 V 92 w(016)p 1235
+506 V 1536 506 V 375 575 2 70 v 421 538 a(b)q(el)p 515
+575 V 85 w(007)p 650 575 V 159 w(b)q(ell)p 951 575 V
+960 575 V 187 w(si)p 1100 575 V 97 w(017)p 1235 575 V
+1536 575 V 375 621 2 46 v 421 607 a(dle)p 515 621 V 86
+w(020)p 650 621 V 951 621 V 960 621 V 390 w(can)p 1100
+621 V 80 w(030)p 1235 621 V 1536 621 V 375 666 V 417
+653 a(dc1)p 515 666 V 81 w(021)p 650 666 V 951 666 V
+960 666 V 394 w(em)p 1100 666 V 84 w(031)p 1235 666 V
+1536 666 V 375 712 V 417 698 a(dc2)p 515 712 V 81 w(022)p
+650 712 V 951 712 V 960 712 V 389 w(sub)p 1100 712 V
+81 w(032)p 1235 712 V 1536 712 V 375 758 V 417 744 a(dc3)p
+515 758 V 81 w(023)p 650 758 V 951 758 V 960 758 V 394
+w(esc)p 1100 758 V 84 w(033)p 1235 758 V 136 w(escap)q(e)p
+1536 758 V 375 803 V 417 790 a(dc4)p 515 803 V 81 w(024)p
+650 803 V 951 803 V 960 803 V 405 w(fs)p 1100 803 V 95
+w(034)p 1235 803 V 1536 803 V 375 849 V 415 835 a(nak)p
+515 849 V 80 w(025)p 650 849 V 951 849 V 960 849 V 401
+w(gs)p 1100 849 V 92 w(035)p 1235 849 V 1536 849 V 375
+895 V 417 881 a(syn)p 515 895 V 82 w(026)p 650 895 V
+951 895 V 960 895 V 403 w(rs)p 1100 895 V 94 w(036)p
+1235 895 V 1536 895 V 375 964 2 70 v 419 927 a(etb)p
+515 964 V 83 w(027)p 650 964 V 951 964 V 960 964 V 400
+w(us)p 1100 964 V 91 w(037)p 1235 964 V 1536 964 V 375
+1033 V 428 996 a(sp)p 515 1033 V 91 w(040)p 650 1033
+V 145 w(space)p 951 1033 V 960 1033 V 1100 1033 V 1235
+1033 V 1536 1033 V 375 1079 2 46 v 421 1065 a(del)p 515
+1079 V 86 w(177)p 650 1079 V 140 w(delete)p 951 1079
+V 960 1079 V 1100 1079 V 1235 1079 V 1536 1079 V 376
+1081 1161 2 v 660 1197 a FB(T)m(able)h(.1:)k(V)m(alid)12
+b(c)o(haracter)k(names)75 1322 y FE(6.6)56 b(Characters)75
+1399 y FB(T)m(able)14 b(1)g(giv)o(es)h(the)g(list)f(of)h(allo)o(w)o(ed)
+e(c)o(haracter)j(names)e(together)i(with)e(their)h(ASCI)q(I)g(equiv)n
+(alen)o(t)f(expressed)75 1448 y(in)f(o)q(ctal.)75 1554
+y Fs(\(char?)21 b Fz(obj)6 b Fs(\))1350 b FB(pro)q(cedure)75
+1604 y Fs(\(char=?)20 b Fz(char)328 1610 y Fw(1)369 1604
+y Fz(char)448 1610 y Fw(2)466 1604 y Fs(\))1171 b FB(pro)q(cedure)75
+1654 y Fs(\(char<?)20 b Fz(char)328 1660 y Fw(1)369 1654
+y Fz(char)448 1660 y Fw(2)466 1654 y Fs(\))1171 b FB(pro)q(cedure)75
+1704 y Fs(\(char>?)20 b Fz(char)328 1710 y Fw(1)369 1704
+y Fz(char)448 1710 y Fw(2)466 1704 y Fs(\))1171 b FB(pro)q(cedure)75
+1753 y Fs(\(char<=?)20 b Fz(char)350 1759 y Fw(1)391
+1753 y Fz(char)470 1759 y Fw(2)488 1753 y Fs(\))1149
+b FB(pro)q(cedure)75 1803 y Fs(\(char>=?)20 b Fz(char)350
+1809 y Fw(1)391 1803 y Fz(char)470 1809 y Fw(2)488 1803
+y Fs(\))1149 b FB(pro)q(cedure)75 1853 y Fs(\(char-ci=?)20
+b Fz(char)394 1859 y Fw(1)434 1853 y Fz(char)513 1859
+y Fw(2)532 1853 y Fs(\))1105 b FB(pro)q(cedure)75 1903
+y Fs(\(char-ci<?)20 b Fz(char)394 1909 y Fw(1)434 1903
+y Fz(char)513 1909 y Fw(2)532 1903 y Fs(\))1105 b FB(pro)q(cedure)75
+1953 y Fs(\(char-ci>?)20 b Fz(char)394 1959 y Fw(1)434
+1953 y Fz(char)513 1959 y Fw(2)532 1953 y Fs(\))1105
+b FB(pro)q(cedure)75 2002 y Fs(\(char-ci<=?)20 b Fz(char)416
+2008 y Fw(1)456 2002 y Fz(char)535 2008 y Fw(2)554 2002
+y Fs(\))1083 b FB(pro)q(cedure)75 2052 y Fs(\(char-ci>=?)20
+b Fz(char)416 2058 y Fw(1)456 2052 y Fz(char)535 2058
+y Fw(2)554 2052 y Fs(\))1083 b FB(pro)q(cedure)75 2102
+y Fs(\(char-alphabetic?)18 b Fz(char)t Fs(\))1087 b FB(pro)q(cedure)75
+2152 y Fs(\(char-numeric?)19 b Fz(char)t Fs(\))1152 b
+FB(pro)q(cedure)75 2202 y Fs(\(char-whitespace?)18 b
+Fz(char)t Fs(\))1087 b FB(pro)q(cedure)75 2252 y Fs(\(char-upper-case?)
+18 b Fz(letter)t Fs(\))1071 b FB(pro)q(cedure)75 2301
+y Fs(\(char-lower-case?)18 b Fz(letter)t Fs(\))1071 b
+FB(pro)q(cedure)75 2351 y Fs(\(char->integer)19 b Fz(char)t
+Fs(\))1152 b FB(pro)q(cedure)75 2401 y Fs(\(integer->char)19
+b Fv(n)p Fs(\))1210 b FB(pro)q(cedure)75 2451 y Fs(\(char-upcase)19
+b Fz(char)t Fs(\))1196 b FB(pro)q(cedure)75 2501 y Fs(\(char-downcase)
+19 b Fz(char)t Fs(\))1152 b FB(pro)q(cedure)75 2574 y
+Fz(Identic)n(al)15 b(to)g(R)325 2559 y Fw(4)344 2574
+y Fz(RS.)75 2692 y FE(6.7)56 b(Strings)75 2769 y Fx(STk)21
+b FB(string)f(constan)o(ts)i(allo)o(w)d(the)i(insertion)f(of)g
+(arbitrary)g(c)o(haracters)j(b)o(y)d(enco)q(ding)h(them)e(as)i(escap)q
+(e)75 2819 y(sequences,)c(in)o(tro)q(duced)f(b)o(y)f(a)f(bac)o(kslash)h
+(\()p Fs(\\)p FB(\).)21 b(The)16 b(v)n(alid)d(escap)q(e)k(sequences)g
+(are)e(sho)o(wn)g(in)g(T)m(able)f(2.)21 b(F)m(or)p eop
+%%Page: 16 16
+16 15 bop 75 47 a FA(16)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 404 139 1105 2 v 403 185 2 46 v 453 171
+a Fj(Se)n(quenc)n(e)p 649 185 V 649 185 V 321 w(Char)n(acter)e(inserte)
+n(d)p 1508 185 V 404 186 1105 2 v 403 232 2 46 v 429
+218 a Fr(\\)p Fq(b)p 649 232 V 205 w(Bac)o(kspace)p 1508
+232 V 403 278 V 429 264 a Fr(\\)p Fq(e)p 649 278 V 209
+w(Escap)q(e)p 1508 278 V 403 323 V 429 310 a Fr(\\)p
+Fq(n)p 649 323 V 205 w(Newline)p 1508 323 V 403 369 V
+429 355 a Fr(\\)p Fq(t)p 649 369 V 211 w(Horizon)o(tal)j(T)m(ab)p
+1508 369 V 403 415 V 429 401 a Fr(\\)p Fq(n)p 649 415
+V 205 w(Carriage)f(Return)p 1508 415 V 403 460 V 429
+447 a Fr(\\)p Fq(0ab)q(c)p 649 460 V 149 w(ASCI)q(I)e(c)o(haracter)i
+(with)f(o)q(ctal)h(v)n(alue)h(ab)q(c)p 1508 460 V 403
+506 V 429 492 a Fr(\\<newline)o(>)p 649 506 V 47 w Fq(None)e(\(p)q
+(ermits)h(to)f(en)o(ter)g(a)g(string)h(on)g(sev)o(eral)g(lines\))p
+1508 506 V 403 552 V 429 538 a Fr(\\<other>)p 649 552
+V 86 w(<other>)p 1508 552 V 404 553 1105 2 v 653 669
+a FB(T)m(able)f(.2:)18 b(String)13 b(escap)q(e)j(sequences)75
+801 y(instance,)e(the)h(string)153 888 y Fr("ab\\040c\\nd)o(\\)153
+933 y(e")75 1069 y FB(is)f(the)g(string)g(consisting)g(of)f(the)i(c)o
+(haracters)g Fs(#\\)p FB(a,)e Fs(#\\)p FB(b,)p Fs(#\\)p
+FB(space,)g Fs(#\\)p FB(c,)h Fs(#\\)p FB(newline,)f Fs(#\\)p
+FB(d)g(and)h Fs(#\\)p FB(e.)75 1174 y Fs(\(string?)20
+b Fz(obj)6 b Fs(\))1307 b FB(pro)q(cedure)75 1224 y Fs(\(make-string)19
+b Fv(k)q Fs(\))1256 b FB(pro)q(cedure)75 1274 y Fs(\(make-string)19
+b Fv(k)k Fz(char)t Fs(\))1151 b FB(pro)q(cedure)75 1324
+y Fs(\(string)20 b Fz(char)i Fv(:)7 b(:)g(:)f Fs(\))1231
+b FB(pro)q(cedure)75 1374 y Fs(\(string-length)19 b Fz(string)t
+Fs(\))1127 b FB(pro)q(cedure)75 1423 y Fs(\(string-ref)20
+b Fz(string)h Fv(k)q Fs(\))1152 b FB(pro)q(cedure)75
+1473 y Fs(\(string-set!)19 b Fz(string)j(k)f(char)t Fs(\))1030
+b FB(pro)q(cedure)75 1523 y Fs(\(string=?)20 b Fz(string)397
+1529 y Fw(1)437 1523 y Fz(string)541 1529 y Fw(2)559
+1523 y Fs(\))1078 b FB(pro)q(cedure)75 1573 y Fs(\(string-ci=?)19
+b Fz(string)462 1579 y Fw(1)502 1573 y Fz(string)606
+1579 y Fw(2)624 1573 y Fs(\))1013 b FB(pro)q(cedure)75
+1623 y Fs(\(string<?)20 b Fz(string)397 1629 y Fw(1)437
+1623 y Fz(string)541 1629 y Fw(2)559 1623 y Fs(\))1078
+b FB(pro)q(cedure)75 1672 y Fs(\(string>?)20 b Fz(string)397
+1678 y Fw(1)437 1672 y Fz(string)541 1678 y Fw(2)559
+1672 y Fs(\))1078 b FB(pro)q(cedure)75 1722 y Fs(\(string<=?)20
+b Fz(string)419 1728 y Fw(1)459 1722 y Fz(string)563
+1728 y Fw(2)581 1722 y Fs(\))1056 b FB(pro)q(cedure)75
+1772 y Fs(\(string>=?)20 b Fz(string)419 1778 y Fw(1)459
+1772 y Fz(string)563 1778 y Fw(2)581 1772 y Fs(\))1056
+b FB(pro)q(cedure)75 1822 y Fs(\(string-ci<?)19 b Fz(string)462
+1828 y Fw(1)502 1822 y Fz(string)606 1828 y Fw(2)624
+1822 y Fs(\))1013 b FB(pro)q(cedure)75 1872 y Fs(\(string-ci>?)19
+b Fz(string)462 1878 y Fw(1)502 1872 y Fz(string)606
+1878 y Fw(2)624 1872 y Fs(\))1013 b FB(pro)q(cedure)75
+1922 y Fs(\(string-ci<=?)19 b Fz(string)484 1928 y Fw(1)524
+1922 y Fz(string)628 1928 y Fw(2)646 1922 y Fs(\))991
+b FB(pro)q(cedure)75 1971 y Fs(\(string-ci>=?)19 b Fz(string)484
+1977 y Fw(1)524 1971 y Fz(string)628 1977 y Fw(2)646
+1971 y Fs(\))991 b FB(pro)q(cedure)75 2021 y Fs(\(substring)20
+b Fz(string)h(start)g(end)t Fs(\))1025 b FB(pro)q(cedure)75
+2071 y Fs(\(string-append)19 b Fz(string)25 b Fv(:)7
+b(:)g(:)e Fs(\))1051 b FB(pro)q(cedure)75 2121 y Fs(\(string->list)19
+b Fz(string)t Fs(\))1149 b FB(pro)q(cedure)75 2171 y
+Fs(\(list->string)19 b Fz(chars)s Fs(\))1158 b FB(pro)q(cedure)75
+2220 y Fs(\(string-copy)19 b Fz(string)t Fs(\))1171 b
+FB(pro)q(cedure)75 2270 y Fs(\(string-fill!)19 b Fz(string)i(char)t
+Fs(\))1049 b FB(pro)q(cedure)75 2344 y Fz(Identic)n(al)15
+b(to)g(R)325 2329 y Fw(4)344 2344 y Fz(RS.)75 2448 y
+Fs(\(string-find?)k Fz(string)484 2454 y Fw(1)524 2448
+y Fz(string)628 2454 y Fw(2)646 2448 y Fs(\))991 b FB(pro)q(cedure)75
+2521 y(Returns)15 b Fs(#t)e FB(if)g Fz(string)432 2527
+y Fw(1)464 2521 y FB(app)q(ears)i(somewhere)f(in)f Fz(string)980
+2527 y Fw(2)999 2521 y FB(;)g(otherwise)i(returns)g Fs(#f)p
+FB(.)75 2626 y Fs(\(string-index)k Fz(string)484 2632
+y Fw(1)524 2626 y Fz(string)628 2632 y Fw(2)646 2626
+y Fs(\))991 b FB(pro)q(cedure)75 2695 y(Returns)15 b(the)f(index)g(of)f
+(where)i Fz(string)687 2701 y Fw(1)719 2695 y FB(is)f(a)g(substring)g
+(of)f Fz(string)1127 2701 y Fw(2)1159 2695 y FB(if)g(it)h(exists;)g
+(returns)h Fs(#f)f FB(otherwise.)153 2773 y Fr(\(string-ind)o(ex)i
+("ca")i("abracadab)o(ra)o("\))350 2819 y Fq(=)-6 b Fl(\))19
+b Fr(4)p eop
+%%Page: 17 17
+17 16 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(17)p 75 64 1763 2 v 153 179 a Fr(\(string-ind)o(ex)16
+b("ba")i("abracadab)o(ra)o("\))350 224 y Fq(=)-6 b Fl(\))19
+b Fr(#f)75 419 y Fs(\(string-lower)g Fz(string)t Fs(\))1149
+b FB(pro)q(cedure)75 494 y(Returns)15 b(a)f(string)g(in)g(whic)o(h)g
+(all)f(upp)q(er)i(case)g(letters)g(of)f Fs(string)f FB(ha)o(v)o(e)h(b)q
+(een)h(replaced)g(b)o(y)f(their)h(lo)o(w)o(er)e(case)75
+543 y(equiv)n(alen)o(t.)75 657 y Fs(\(string-upper)19
+b Fz(string)t Fs(\))1149 b FB(pro)q(cedure)75 732 y(Returns)15
+b(a)f(string)g(in)g(whic)o(h)g(all)f(lo)o(w)o(er)h(case)h(letters)g(of)
+f Fs(string)e FB(ha)o(v)o(e)i(b)q(een)i(replaced)f(b)o(y)f(their)g(upp)
+q(er)h(case)75 781 y(equiv)n(alen)o(t.)75 908 y FE(6.8)56
+b(V)-5 b(ectors)75 1045 y Fs(\(vector?)20 b Fz(obj)6
+b Fs(\))1307 b FB(pro)q(cedure)75 1095 y Fs(\(make-vector)19
+b Fz(k)t Fs(\))1256 b FB(pro)q(cedure)75 1145 y Fs(\(make-vector)19
+b Fz(k)j(\014l)r(l)t Fs(\))1187 b FB(pro)q(cedure)75
+1194 y Fs(\(vector)20 b Fz(obj)i Fv(:)7 b(:)g(:)f Fs(\))1257
+b FB(pro)q(cedure)75 1244 y Fs(\(vector-length)19 b Fz(ve)n(ctor)t
+Fs(\))1123 b FB(pro)q(cedure)75 1294 y Fs(\(vector-ref)20
+b Fz(ve)n(ctor)h(k)t Fs(\))1148 b FB(pro)q(cedure)75
+1344 y Fs(\(vector-set!)19 b Fz(ve)n(ctor)j(k)g(obj)6
+b Fs(\))1049 b FB(pro)q(cedure)75 1394 y Fs(\(vector->list)19
+b Fz(ve)n(ctor)t Fs(\))1145 b FB(pro)q(cedure)75 1443
+y Fs(\(list->vector)19 b Fz(list)t Fs(\))1198 b FB(pro)q(cedure)75
+1493 y Fs(\(vector-fill!)19 b Fz(ve)n(ctor)j(\014l)r(l)t
+Fs(\))1076 b FB(pro)q(cedure)75 1568 y Fz(Identic)n(al)15
+b(to)g(R)325 1553 y Fw(4)344 1568 y Fz(RS.)75 1681 y
+Fs(\(vector-copy)k Fz(ve)n(ctor)t Fs(\))1167 b FB(pro)q(cedure)75
+1756 y(returns)15 b(a)f(cop)o(y)g(of)f Fz(ve)n(ctor)t
+FB(.)75 1869 y Fs(\(vector-resize)19 b Fz(ve)n(ctor)i(size)s
+Fs(\))1037 b FB(pro)q(cedure)75 1944 y Fz(ve)n(ctor-r)n(esize)17
+b FB(ph)o(ysically)d(c)o(hanges)h(the)h(size)g(of)e Fz(ve)n(ctor)t
+FB(.)21 b(If)15 b Fz(size)j FB(is)d(greater)h(than)f(the)g(old)g(v)o
+(ector)g(size,)h(the)75 1994 y(con)o(ten)o(ts)f(of)e(the)i(newly)f
+(allo)q(cated)f(cells)h(are)g(unde\014ned.)75 2121 y
+FE(6.9)56 b(Con)n(trol)19 b(features)75 2257 y Fs(\(procedure?)h
+Fz(obj)6 b Fs(\))1241 b FB(pro)q(cedure)75 2307 y Fs(\(apply)21
+b Fz(pr)n(o)n(c)g(ar)n(gs)s Fs(\))1237 b FB(pro)q(cedure)75
+2357 y Fs(\(apply)21 b Fz(pr)n(o)n(c)g(ar)n(g)380 2363
+y Fw(1)420 2357 y Fv(:)7 b(:)g(:)20 b Fz(ar)n(gs)s Fs(\))1071
+b FB(pro)q(cedure)75 2407 y Fs(\(map)21 b Fz(pr)n(o)n(c)h(list)336
+2413 y Fw(1)375 2407 y Fz(list)430 2413 y Fw(2)470 2407
+y Fv(:)7 b(:)g(:)e Fs(\))1112 b FB(pro)q(cedure)75 2457
+y Fs(\(for-each)20 b Fz(pr)n(o)n(c)i(list)445 2463 y
+Fw(1)484 2457 y Fz(list)539 2463 y Fw(2)579 2457 y Fv(:)7
+b(:)g(:)e Fs(\))1003 b FB(pro)q(cedure)75 2506 y Fs(\(force)21
+b Fz(pr)n(omise)s Fs(\))1265 b FB(pro)q(cedure)75 2581
+y Fz(Identic)n(al)15 b(to)g(R)325 2566 y Fw(4)344 2581
+y Fz(RS.)75 2695 y Fs(\(call-with-curren)o(t-con)o(tinua)o(tion)j
+Fz(pr)n(o)n(c)r Fs(\))788 b FB(pro)q(cedure)75 2744 y
+Fs(\(call/cc)20 b Fz(pr)n(o)n(c)r Fs(\))1289 b FB(pro)q(cedure)75
+2819 y Fs(Call/cc)12 b FB(is)i(a)g(shorter)h(name)e(for)g
+Fs(call-with-current-)o(conti)o(nuati)o(on)p FB(.)p eop
+%%Page: 18 18
+18 17 bop 75 47 a FA(18)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(closure?)20 b Fz(obj)6 b
+Fs(\))1285 b FB(pro)q(cedure)75 253 y(returns)14 b Fs(#t)f
+FB(if)f Fz(obj)18 b FB(is)13 b(a)g(pro)q(cedure)h(created)h(b)o(y)d(ev)
+n(aluating)g(a)g(lam)o(b)q(da)e(expression,)k(otherwise)g(returns)g
+Fs(#f)p FB(.)75 363 y Fs(\(primitive?)20 b Fz(obj)6 b
+Fs(\))1241 b FB(pro)q(cedure)75 437 y(returns)15 b Fs(#t)f
+FB(if)f Fz(obj)20 b FB(is)14 b(a)f(pro)q(cedure)j(and)e(is)f(not)h(a)g
+(closure,)g(otherwise)h(returns)g Fs(#f)p FB(.)75 548
+y Fs(\(promise?)20 b Fz(obj)6 b Fs(\))1285 b FB(pro)q(cedure)75
+622 y(returns)15 b Fs(#t)f FB(if)f Fz(obj)20 b FB(is)14
+b(an)f(ob)r(ject)i(returned)g(b)o(y)f(the)h(application)d(of)h
+Fs(delay)p FB(,)g(otherwise)i(returns)g Fs(#f)p FB(.)75
+732 y Fs(\(continuation?)k Fz(obj)6 b Fs(\))1176 b FB(pro)q(cedure)75
+807 y(returns)15 b Fs(#t)f FB(if)f Fz(obj)20 b FB(is)14
+b(a)f(con)o(tin)o(uation)g(obtained)h(b)o(y)f Fs(call/cc)p
+FB(,)f(otherwise)j(returns)g Fs(#f)p FB(.)75 917 y Fs(\(dynamic-wind)k
+Fk(h)p FB(th)o(unk)502 923 y Fw(1)521 917 y Fk(i)j(h)p
+FB(th)o(unk)681 923 y Fw(2)700 917 y Fk(i)g(h)p FB(th)o(unk)860
+923 y Fw(3)879 917 y Fk(i)p Fs(\))742 b FB(pro)q(cedure)75
+991 y Fk(h)p FB(Th)o(unk)211 997 y Fw(1)230 991 y Fk(i)p
+FB(,)17 b Fk(h)p FB(th)o(unk)397 997 y Fw(2)416 991 y
+Fk(i)g FB(and)g Fk(h)p FB(th)o(unk)655 997 y Fw(3)674
+991 y Fk(i)h FB(are)f(called)g(in)g(order.)28 b(The)18
+b(result)g(of)f Fs(dynamic-wind)d FB(is)j(the)h(v)n(alue)75
+1041 y(returned)g(b)o(y)e Fk(h)p FB(th)o(unk)428 1047
+y Fw(2)447 1041 y Fk(i)p FB(.)26 b(If)16 b Fk(h)p FB(th)o(unk)667
+1047 y Fw(2)685 1041 y Fk(i)h FB(escap)q(es)h(from)d(its)h(con)o(tin)o
+(uation)g(during)g(ev)n(aluation)f(\(b)o(y)h(calling)f(a)75
+1091 y(con)o(tin)o(uation)f(obtained)g(b)o(y)h Fs(call/cc)e
+FB(or)i(on)f(error\),)i Fk(h)p FB(th)o(unk)1076 1097
+y Fw(3)1094 1091 y Fk(i)f FB(is)g(called.)20 b(If)14
+b Fk(h)p FB(th)o(unk)1468 1097 y Fw(2)1487 1091 y Fk(i)h
+FB(is)g(later)g(reen)o(tered,)75 1141 y Fk(h)p FB(th)o(unk)197
+1147 y Fw(1)216 1141 y Fk(i)f FB(is)g(called.)75 1251
+y Fs(\(catch)21 b Fk(h)p FB(expression)429 1257 y Fw(1)449
+1251 y Fk(i)g(h)p FB(expression)687 1257 y Fw(2)707 1251
+y Fk(i)h Fv(:)7 b(:)g(:)f Fs(\))896 b FB(syn)o(tax)75
+1321 y(The)10 b Fk(h)p FB(expression)p Fk(i)r FB(s)g(are)g(ev)n
+(aluated)f(from)f(left)i(to)f(righ)o(t.)17 b(If)9 b(an)h(error)g(o)q
+(ccurs,)i(ev)n(aluation)c(of)h(the)i Fk(h)p FB(expression)p
+Fk(i)q FB(s)75 1367 y(is)17 b(ab)q(orted,)h(and)f Fs(#t)g
+FB(is)g(returned)i(to)e Fs(catch)p FB('s)f(caller.)28
+b(If)16 b(ev)n(aluation)g(\014nishes)i(without)f(an)g(error,)i
+Fs(catch)75 1412 y FB(returns)c Fs(#f)p FB(.)153 1494
+y Fr(\(let*)j(\(\(x)h(0\))291 1540 y(\(y)g(\(catch)408
+1585 y(\(set!)f(x)h(1\))408 1631 y(\(/)g(0\))g(;)g(causes)f(a)h
+("division)d(by)j(0")g(error)408 1677 y(\(set!)f(x)h(2\)\)\)\))193
+1722 y(\(cons)e(x)j(y\)\))350 1768 y Fq(=)-6 b Fl(\))19
+b Fr(\(1)g(.)g(#t\))75 1959 y Fs(\(procedure-body)g Fk(h)p
+FB(pro)q(cedure)p Fk(i)r Fs(\))1002 b FB(pro)q(cedure)75
+2029 y(returns)15 b(the)f(b)q(o)q(dy)g(of)f Fk(h)p FB(pro)q(cedure)p
+Fk(i)r FB(.)18 b(If)13 b Fk(h)p FB(pro)q(cedure)p Fk(i)j
+FB(is)d(not)h(a)f(closure,)h Fs(procedure-body)d FB(returns)k
+Fs(#f)p FB(.)153 2110 y Fr(\(define)i(\(f)i(a)g(b\))212
+2156 y(\(+)g(a)g(\(*)g(b)g(2\)\)\))153 2247 y(\(procedure-)o(bo)o(dy)d
+(f\))196 b Fq(=)-6 b Fl(\))19 b Fr(\(lambda)e(\(a)i(b\))820
+2293 y(\(+)g(a)g(\(*)g(b)g(2\)\)\))153 2339 y(\(procedure-)o(bo)o(dy)d
+(car\))156 b Fq(=)-6 b Fl(\))19 b Fr(#f)75 2542 y FE(6.10)56
+b(Input)18 b(and)i(output)75 2620 y FB(The)d Fz(R)193
+2605 y Fw(4)205 2620 y Fv(RS)i FB(states)e(that)g(p)q(orts)g(represen)o
+(t)h(input)e(and)h(output)f(devices.)27 b(Ho)o(w)o(ev)o(er,)17
+b(it)e(de\014nes)j(only)e(p)q(orts)75 2669 y(whic)o(h)10
+b(are)h(attac)o(hed)h(to)e(\014les.)17 b(In)11 b Fx(STk)p
+FB(,)g(p)q(orts)g(can)g(also)f(b)q(e)h(attac)o(hed)g(to)g(strings)g(or)
+f(to)h(a)f(external)h(command)75 2719 y(input)16 b(or)g(output.)26
+b(String)16 b(p)q(orts)h(are)f(similar)e(to)i(\014le)g(p)q(orts,)h
+(except)h(that)e(c)o(haracters)i(are)f(read)g(from)d(\(or)75
+2769 y(written)g(to\))f(a)g(string)h(rather)g(than)f(a)h(\014le.)j
+(External)d(command)d(input)i(or)g(output)h(p)q(orts)g(are)g(implem)o
+(en)o(ted)75 2819 y(with)g(Unix)h(pip)q(es)g(and)f(are)h(called)g(pip)q
+(e)f(p)q(orts.)21 b(A)15 b(pip)q(e)g(p)q(ort)g(is)f(created)j(b)o(y)d
+(sp)q(ecifying)h(the)g(command)d(to)p eop
+%%Page: 19 19
+19 18 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(19)p 75 64 1763 2 v 75 179 a FB(execute)19 b(pre\014xed)f(with)f(the)
+h(string)f Fs("|)22 b(")p FB(.)27 b(Sp)q(eci\014cation)18
+b(of)e(a)h(pip)q(e)g(p)q(ort)h(can)f(o)q(ccur)h(ev)o(erywhere)i(a)c
+(\014le)75 229 y(name)d(is)g(needed.)75 338 y Fs(\(call-with-input-)o
+(file)18 b Fz(string)k(pr)n(o)n(c)r Fs(\))880 b FB(pro)q(cedure)75
+388 y Fs(\(call-with-output)o(-file)18 b Fz(string)j(pr)n(o)n(c)r
+Fs(\))859 b FB(pro)q(cedure)75 463 y Fj(Note:)35 b Fq(if)14
+b Fj(s)s Fq(tring)h(starts)e(with)i(the)f(t)o(w)o(o)f(c)o(haracters)h
+Fr("|)19 b(")p Fq(,)13 b(these)h(pro)q(cedures)h(return)g(a)e(pip)q(e)i
+(p)q(ort.)20 b(Consequen)o(tly)m(,)75 513 y(it)13 b(is)h(not)f(p)q
+(ossible)j(to)d(op)q(en)g(a)g(\014le)h(whose)g(name)f(starts)g(with)h
+(those)f(t)o(w)o(o)g(c)o(haracters.)75 628 y Fs(\(call-with-input-)o
+(strin)o(g)19 b Fz(string)i(pr)n(o)n(c)r Fs(\))837 b
+FB(pro)q(cedure)75 703 y(b)q(eha)o(v)o(es)15 b(exactly)f(as)f
+Fs(call-with-input-file)d FB(except)15 b(that)f(the)h(p)q(ort)f(passed)
+h(to)e Fz(pr)n(o)n(c)j FB(is)e(the)g(string)g(p)q(ort)75
+753 y(obtained)g(from)e Fz(string)s FB(.)153 846 y Fr(\(call-with-)o
+(in)o(put)o(-st)o(ri)o(ng)k("123)i(456")g(\(lambda)f(\(x\))i(\(read)e
+(x\)\)\))350 892 y Fq(=)-6 b Fl(\))19 b Fr(123)75 1099
+y Fs(\(call-with-output)o(-stri)o(ng)g Fz(pr)n(o)n(c)r
+Fs(\))940 b FB(pro)q(cedure)75 1169 y Fz(Pr)n(o)n(c)14
+b FB(should)e(b)q(e)g(a)g(pro)q(cedure)i(of)d(one)h(argumen)o(t.)k
+Fs(Call-with-output-st)o(ring)8 b FB(calls)k Fz(pr)n(o)n(c)i
+FB(with)e(a)f(freshly)75 1215 y(op)q(ened)i(output)g(string)f(p)q(ort.)
+18 b(The)13 b(result)g(of)f(this)g(pro)q(cedure)j(is)d(a)g(string)g
+(con)o(taining)g(all)f(the)i(text)g(that)f(has)75 1261
+y(b)q(een)j(written)f(on)g(the)h(string)f(p)q(ort.)153
+1345 y Fr(\(call-with-)o(ou)o(tpu)o(t-s)o(tr)o(ing)212
+1391 y(\(lambda)j(\(x\))i(\(write)e(123)h(x\))h(\(display)e("Hello")g
+(x\)\)\))350 1436 y Fq(=)-6 b Fl(\))19 b Fr("123Hello")75
+1633 y Fs(\(input-port?)g Fz(obj)6 b Fs(\))1220 b FB(pro)q(cedure)75
+1683 y Fs(\(output-port?)19 b Fz(obj)6 b Fs(\))1198 b
+FB(pro)q(cedure)75 1758 y Fz(Identic)n(al)15 b(to)g(R)325
+1743 y Fw(4)344 1758 y Fz(RS.)75 1873 y Fs(\(input-string-por)o(t?)k
+Fz(obj)6 b Fs(\))1067 b FB(pro)q(cedure)75 1923 y Fs
+(\(output-string-po)o(rt?)19 b Fz(obj)6 b Fs(\))1045
+b FB(pro)q(cedure)75 1998 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(obj)20 b FB(is)14 b(either)h(an)e(input)h(or)g(an)f(output)h(string)
+g(p)q(ort,)g(otherwise)h(returns)g Fs(#f)p FB(.)75 2113
+y Fs(\(current-input-po)o(rt)m(\))1148 b FB(pro)q(cedure)75
+2163 y Fs(\(current-output-p)o(ort)m(\))1126 b FB(pro)q(cedure)75
+2238 y Fz(Identic)n(al)15 b(to)g(R)325 2223 y Fw(4)344
+2238 y Fz(RS.)75 2353 y Fs(\(current-error-po)o(rt)m(\))1148
+b FB(pro)q(cedure)75 2428 y(Returns)15 b(the)f(curren)o(t)i(default)d
+(error)i(p)q(ort.)75 2543 y Fs(\(with-input-from-)o(file)j
+Fz(string)k(thunk)t Fs(\))854 b FB(pro)q(cedure)75 2593
+y Fs(\(with-output-to-f)o(ile)19 b Fz(string)i(thunk)t
+Fs(\))876 b FB(pro)q(cedure)75 2668 y Fz(Identic)n(al)15
+b(to)g(R)325 2653 y Fw(4)344 2668 y Fz(RS.)75 2719 y
+FB(The)10 b(follo)o(wing)e(example)g(uses)j(a)f(pip)q(e)g(p)q(ort)g(op)
+q(ened)h(for)e(reading.)17 b(It)10 b(p)q(ermits)f(to)h(read)g(all)f
+(the)h(lines)g(pro)q(duced)75 2769 y(b)o(y)15 b(an)g(external)g
+Fs(ls)g FB(command)d(\(i.e.)21 b(the)16 b(ouput)f(of)g(the)g
+Fs(ls)g FB(command)d(is)j Fz(r)n(e)n(dir)n(e)n(cte)n(d)f
+FB(to)h(the)g(Sc)o(heme)g(pip)q(e)75 2819 y(p)q(ort\).)p
+eop
+%%Page: 20 20
+20 19 bop 75 47 a FA(20)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(with-input)o(-f)o(rom)o(-fi)o(le)i("|)j
+(ls)g(-ls")193 224 y(\(lambda)e(\(\))232 270 y(\(do)h(\(\(l)h
+(\(read-lin)o(e\))d(\(read-line)o(\)\)\))310 316 y(\(\(eof-objec)o(t?)g
+(l\)\))271 361 y(\(display)h(l\))271 407 y(\(newline\)\))o(\)\))75
+546 y FB(Hereafter)e(is)e(another)g(example)f(of)g(Unix)h(command)d
+(redirection.)19 b(This)13 b(time,)e(it)i(is)g(the)h(standard)f(input)g
+(of)75 592 y(the)h(Unix)g(command)d(whic)o(h)j(is)g(redirected.)153
+678 y Fr(\(with-outpu)o(t-)o(to-)o(fil)o(e)i("|)j(mail)f(root")193
+723 y(\(lambda\(\))232 769 y(\(format)f(#t)i("A)g(simple)e(mail)h(sent)
+g(from)g(STk\\n"\)\)\))75 969 y Fs(\(with-input-from-)o(strin)o(g)h
+Fz(string)i(thunk)t Fs(\))811 b FB(pro)q(cedure)75 1044
+y(A)12 b(string)f(p)q(ort)h(is)g(op)q(ened)g(for)g(input)f(from)f
+Fz(string)s FB(.)17 b Fs(Current-input-port)8 b FB(is)j(set)i(to)e(the)
+i(p)q(ort)e(and)h Fz(thunk)17 b FB(is)75 1093 y(called.)f(When)10
+b Fz(thunk)15 b FB(returns,)c(the)g(previous)f(default)f(input)g(p)q
+(ort)h(is)g(restored.)18 b Fs(With-input-from-st)o(ring)75
+1143 y FB(returns)d(the)g(v)n(alue)e(yielded)h(b)o(y)g
+Fz(thunk)5 b FB(.)153 1239 y Fr(\(with-input)o(-f)o(rom)o(-st)o(ri)o
+(ng)16 b("123)i(456")g(\(lambda)f(\(\))i(\(read\)\)\))350
+1284 y Fq(=)-6 b Fl(\))19 b Fr(123)75 1494 y Fs(\(with-output-to-s)o
+(tring)f Fz(thunk)t Fs(\))958 b FB(pro)q(cedure)75 1569
+y(A)14 b(string)g(p)q(ort)g(is)g(op)q(ened)h(for)f(output.)k
+Fs(Current-output-po)o(rt)11 b FB(is)j(set)g(to)g(it)g(and)g
+Fz(thunk)19 b FB(is)13 b(called.)18 b(When)75 1619 y(the)c
+Fz(thunk)19 b FB(returns,)14 b(the)g(previous)g(default)f(output)h(p)q
+(ort)g(is)f(restored.)20 b Fs(With-output-to-s)o(tring)10
+b FB(returns)75 1669 y(the)k(string)g(con)o(taining)f(all)g(the)h(text)
+h(written)f(on)g(the)g(string)g(p)q(ort.)153 1764 y Fr(\(with-outpu)o
+(t-)o(to-)o(str)o(in)o(g)j(\(lambda)f(\(\))j(\(write)f(123\))g(\(write)
+f("Hello"\)\)\))350 1810 y Fq(=)-6 b Fl(\))19 b Fr("123Hello")75
+2019 y Fs(\(open-input-file)f Fz(\014lename)s Fs(\))1039
+b FB(pro)q(cedure)75 2069 y Fs(\(open-output-file)18
+b Fz(\014lename)s Fs(\))1017 b FB(pro)q(cedure)75 2144
+y Fz(Identic)n(al)15 b(to)g(R)325 2129 y Fw(4)344 2144
+y Fz(RS.)75 2196 y Fj(Note:)31 b Fq(if)12 b Fj(f)c Fq(ilename)14
+b(starts)e(with)g(the)g(string)h Fr("|)19 b(")p Fq(,)11
+b(these)i(pro)q(cedure)g(return)f(a)g(pip)q(e)i(p)q(ort.)i(Consequen)o
+(tly)m(,)e(it)f(is)f(not)75 2245 y(p)q(ossible)j(to)e(op)q(en)h(a)f
+(\014le)h(whose)f(name)h(starts)f(with)g(those)h(t)o(w)o(o)e(c)o
+(haracters.)75 2363 y Fs(\(open-input-strin)o(g)19 b
+Fz(string)t Fs(\))1040 b FB(pro)q(cedure)75 2438 y(Returns)15
+b(an)e(input)h(string)g(p)q(ort)g(capable)g(of)f(deliv)o(ering)h(c)o
+(haracters)h(from)d Fz(string)t FB(.)75 2555 y Fs(\(open-output-stri)o
+(ng)m(\))1148 b FB(pro)q(cedure)75 2630 y(Returns)15
+b(an)e(output)h(string)g(p)q(ort)h(capable)f(of)f(receiving)h(and)g
+(collecting)f(c)o(haracters.)75 2748 y Fs(\(get-output-strin)o(g)19
+b Fz(p)n(ort)t Fs(\))1072 b FB(pro)q(cedure)75 2819 y(Returns)15
+b(a)e(string)h(con)o(taining)f(all)g(the)h(text)h(that)f(has)g(b)q(een)
+h(written)f(on)g(the)g(output)g(string)g Fz(p)n(ort)t
+FB(.)p eop
+%%Page: 21 21
+21 20 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(21)p 75 64 1763 2 v 153 179 a Fr(\(let)19 b(\(\(p)f(\(open-outp)o(ut)
+o(-st)o(ri)o(ng\))o(\)\))193 224 y(\(display)e("Hello,)h(world")g(p\))
+193 270 y(\(get-outp)o(ut)o(-st)o(rin)o(g)f(p\)\))350
+316 y Fq(=)-6 b Fl(\))19 b Fr("Hello,)e(world")75 505
+y Fs(\(close-input-port)h Fz(p)n(ort)t Fs(\))1094 b FB(pro)q(cedure)75
+555 y Fs(\(close-output-por)o(t)19 b Fz(p)n(ort)t Fs(\))1072
+b FB(pro)q(cedure)75 629 y Fz(Identic)n(al)15 b(to)g(R)325
+613 y Fw(4)344 629 y Fz(RS.)75 738 y Fs(\(read)o(\))1453
+b FB(pro)q(cedure)75 787 y Fs(\(read)21 b Fz(p)n(ort)t
+Fs(\))1355 b FB(pro)q(cedure)75 837 y Fs(\(read-char)n(\))1344
+b FB(pro)q(cedure)75 887 y Fs(\(read-char)20 b Fz(p)n(ort)t
+Fs(\))1246 b FB(pro)q(cedure)75 937 y Fs(\(peek-char)n(\))1344
+b FB(pro)q(cedure)75 987 y Fs(\(peek-char)20 b Fz(p)n(ort)t
+Fs(\))1246 b FB(pro)q(cedure)75 1037 y Fs(\(char-ready?)n(\))1300
+b FB(pro)q(cedure)75 1086 y Fs(\(char-ready?)19 b Fz(p)n(ort)t
+Fs(\))1203 b FB(pro)q(cedure)75 1160 y Fz(Identic)n(al)15
+b(to)g(R)325 1145 y Fw(4)344 1160 y Fz(RS.)75 1269 y
+Fs(\(read-line)n(\))1344 b FB(pro)q(cedure)75 1319 y
+Fs(\(read-line)20 b Fz(p)n(ort)t Fs(\))1246 b FB(pro)q(cedure)75
+1393 y(Reads)18 b(the)h(next)g(line)f(a)o(v)n(ailable)e(from)g(the)j
+(input)f(p)q(ort)h Fz(p)n(ort)j FB(and)c(returns)i(it)d(as)i(a)f
+(string.)31 b(The)19 b(termi-)75 1443 y(nating)d(newline)h(is)g(not)g
+(included)g(in)g(the)g(string.)27 b(If)17 b(no)g(more)f(c)o(haracters)i
+(are)g(a)o(v)n(ailable,)d(an)i(end)g(of)f(\014le)75 1493
+y(ob)r(ject)k(is)g(returned.)37 b Fz(Port)23 b FB(ma)o(y)18
+b(b)q(e)i(omitted,)f(in)h(whic)o(h)f(case)i(it)e(defaults)h(to)f(the)h
+(v)n(alue)f(returned)j(b)o(y)75 1543 y Fs(current-input-por)o(t)p
+FB(.)75 1652 y Fs(\(write)f Fz(obj)6 b Fs(\))1350 b FB(pro)q(cedure)75
+1702 y Fs(\(write)21 b Fz(obj)g(p)n(ort)t Fs(\))1259
+b FB(pro)q(cedure)75 1751 y Fs(\(display)20 b Fz(obj)6
+b Fs(\))1307 b FB(pro)q(cedure)75 1801 y Fs(\(display)20
+b Fz(obj)i(p)n(ort)t Fs(\))1215 b FB(pro)q(cedure)75
+1851 y Fs(\(newline)n(\))1388 b FB(pro)q(cedure)75 1901
+y Fs(\(newline)20 b Fz(p)n(ort)t Fs(\))1290 b FB(pro)q(cedure)75
+1951 y Fs(\(write-char)20 b Fz(char)t Fs(\))1217 b FB(pro)q(cedure)75
+2000 y Fs(\(write-char)20 b Fz(char)h(p)n(ort)t Fs(\))1124
+b FB(pro)q(cedure)75 2074 y Fz(Identic)n(al)15 b(to)g(R)325
+2059 y Fw(4)344 2074 y Fz(RS.)75 2183 y Fs(\(format)20
+b Fz(p)n(ort)i(string)f Fv(obj)523 2189 y Fw(1)563 2183
+y Fv(obj)618 2189 y Fw(2)659 2183 y Fv(:)7 b(:)g(:)e
+Fs(\))923 b FB(pro)q(cedure)75 2257 y(W)m(rites)12 b(the)h
+Fz(obj)6 b FB(s)13 b(to)f(the)h(giv)o(en)f Fz(p)n(ort)t
+FB(,)g(according)g(to)g(the)h(format)e(string)h Fz(string)s
+FB(.)18 b Fz(String)e FB(is)c(written)h(literally)m(,)75
+2307 y(except)i(for)f(the)g(follo)o(wing)e(sequences:)137
+2392 y Fk(\017)21 b Fs(~)p FB(a)13 b(or)h Fs(~)p FB(A)g(is)g(replaced)g
+(b)o(y)g(the)h(prin)o(ted)f(represen)o(tation)h(of)e(the)i(next)f
+Fz(obj)6 b FB(.)137 2477 y Fk(\017)21 b Fs(~)p FB(s)14
+b(or)g Fs(~)p FB(S)f(is)h(replaced)h(b)o(y)f(the)g(\\slashi\014ed")g
+(prin)o(ted)g(represen)o(tation)h(of)f(the)g(next)g Fz(obj)7
+b FB(.)137 2562 y Fk(\017)21 b Fs(~~)13 b FB(is)h(replaced)h(b)o(y)e(a)
+h(single)g(tilde.)137 2647 y Fk(\017)21 b Fs(~)p FB(\045)13
+b(is)h(replaced)h(b)o(y)e(a)h(newline)75 2728 y Fz(Port)19
+b FB(can)d(b)q(e)g(a)f(b)q(o)q(olean,)g(a)g(p)q(ort)h(or)g(a)f(string)h
+(p)q(ort.)23 b(If)15 b Fz(p)n(ort)k FB(is)c Fs(#t)p FB(,)g(output)h(go)
+q(es)g(to)f(the)h(curren)o(t)h(output)75 2773 y(p)q(ort;)i(if)d
+Fz(p)n(ort)k FB(is)d Fs(#f)p FB(,)g(the)h(output)f(is)g(returned)i(as)e
+(a)g(string.)28 b(Otherwise,)19 b(the)e(output)h(is)f(prin)o(ted)g(on)g
+(the)75 2819 y(sp)q(eci\014ed)e(p)q(ort.)p eop
+%%Page: 22 22
+22 21 bop 75 47 a FA(22)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(format)j(#f)i("A)g(test."\))350
+224 y Fq(=)-6 b Fl(\))19 b Fr("A)g(test.")153 270 y(\(format)e(#f)i("A)
+g(~a.")f("test"\))350 316 y Fq(=)-6 b Fl(\))19 b Fr("A)g(test.")153
+361 y(\(format)e(#f)i("A)g(~s.")f("test"\))350 407 y
+Fq(=)-6 b Fl(\))19 b Fr("A)g(\\"test\\".)o(")75 586 y
+Fs(\(get-output-strin)o(g)g Fz(p)n(ort)t Fs(\))1072 b
+FB(pro)q(cedure)75 656 y(Returns)15 b(the)f(string)g(asso)q(ciated)h
+(with)e(the)i(output)f(string)g Fz(p)n(ort)s FB(.)153
+732 y Fr(\(let)19 b(\(\(p)f(\(open-outp)o(ut)o(-st)o(ri)o(ng\))o(\)\))
+193 778 y(\(display)e("Hello,)h(world")g(p\))193 824
+y(\(get-outp)o(ut)o(-st)o(rin)o(g)f(p\)\))350 869 y Fq(=)-6
+b Fl(\))19 b Fr("Hello,)e(world")75 1049 y Fs(\(flush)o(\))1431
+b FB(pro)q(cedure)75 1099 y Fs(\(flush)21 b Fz(p)n(ort)t
+Fs(\))1333 b FB(pro)q(cedure)75 1172 y(Flushes)16 b(the)f(bu\013er)h
+(asso)q(ciated)g(with)f(the)g(giv)o(en)g Fz(p)n(ort)s
+FB(.)21 b(The)16 b Fz(p)n(ort)i FB(argumen)o(t)c(ma)o(y)f(b)q(e)j
+(omitted,)d(in)i(whic)o(h)75 1222 y(case)g(it)e(defaults)h(to)g(the)h
+(v)n(alue)e(returned)i(b)o(y)f Fs(current-output-po)o(rt)p
+FB(.)75 1324 y Fs(\(when-port-readab)o(le)19 b Fz(p)n(ort)i(hand)r(ler)
+t Fs(\))893 b FB(pro)q(cedure)75 1374 y Fs(\(when-port-readab)o(le)19
+b Fz(p)n(ort)t Fs(\))1050 b FB(pro)q(cedure)75 1447 y(When)18
+b Fz(p)n(ort)j FB(is)c(ready)h(for)f(reading,)h Fz(hand)r(ler)5
+b FB(,)18 b(whic)o(h)f(m)o(ust)g(b)q(e)h(a)f(th)o(unk,)h(is)f(called)h
+(lea)o(ving)e(the)i(curren)o(t)75 1497 y(ev)n(aluation)d(susp)q(ended.)
+29 b(When)17 b Fz(hand)r(ler)k FB(execution)c(is)g(terminated,)f
+(normal)f(ev)n(aluation)g(is)i(resumed)g(at)75 1547 y(its)e(susp)q
+(ension)i(p)q(oin)o(t.)22 b(If)14 b(the)i(sp)q(ecial)g(v)n(alue)f
+Fs(#f)f FB(is)h(pro)o(vided)h(as)f Fz(hand)r(ler)5 b
+FB(,)15 b(the)h(curren)o(t)h(handler)e(for)g Fz(p)n(ort)75
+1597 y FB(is)j(deleted.)34 b(If)18 b(a)g(handler)h(is)f(pro)o(vided,)i
+(the)f(v)n(alue)f(returned)i(b)o(y)e Fs(when-port-readable)d
+FB(is)k(unde\014ned.)75 1647 y(Otherwise,)c(it)e(returns)j(the)e
+(handler)g(curren)o(tly)h(asso)q(ciated)g(to)f Fz(p)n(ort)s
+FB(.)75 1692 y(The)i(example)e(b)q(elo)o(w)h(sho)o(ws)h(a)f(simple)f
+(usage)i(of)f(the)h Fs(when-port-reada)o(ble)c FB(pro)q(cedure:)23
+b(the)16 b(command)75 1738 y Fz(cmd)i FB(is)c(run)g(with)g(its)g
+(output)g(redirected)i(in)d(a)h(pip)q(e)g(asso)q(ciated)h(to)e(the)i
+Fz(p)h FB(Sc)o(heme)e(p)q(ort.)153 1815 y Fr(\(define)j(p)j(\(open-inp)
+o(ut)o(-fi)o(le)c("|)j(cmd"\)\))153 1861 y(\(when-port-)o(re)o(ada)o
+(ble)d(p)389 1906 y(\(lambda\(\))428 1952 y(\(let)i(\(\()h(l)g
+(\(read-line)d(p\)\)\))467 1997 y(\(if)j(\(eof-obje)o(ct)o(?)e(l\))546
+2043 y(\(begin)585 2089 y(;;)i(delete)e(handler)585 2134
+y(\(when-por)o(t-r)o(ead)o(ab)o(le)f(p)j(#f\))585 2180
+y(;;)g(and)f(close)g(port)585 2226 y(\(close-in)o(put)o(-po)o(rt)e
+(p\)\))546 2271 y(\(format)h(#t)h("Line)g(read:)g(~A\\n")g(l\)\)\)\)\))
+75 2496 y Fs(\(when-port-writab)o(le)h Fz(p)n(ort)i(hand)r(ler)t
+Fs(\))893 b FB(pro)q(cedure)75 2546 y Fs(\(when-port-writab)o(le)19
+b Fz(p)n(ort)t Fs(\))1050 b FB(pro)q(cedure)75 2620 y(When)18
+b Fz(p)n(ort)j FB(is)d(ready)g(for)g(writing,)f Fz(hand)r(ler)5
+b FB(,)18 b(whic)o(h)g(m)o(ust)f(b)q(e)h(a)f(th)o(unk,)i(is)e(called)h
+(lea)o(ving)f(the)h(curren)o(t)75 2669 y(ev)n(aluation)d(susp)q(ended.)
+29 b(When)17 b Fz(hand)r(ler)k FB(execution)c(is)g(terminated,)f
+(normal)f(ev)n(aluation)g(is)i(resumed)g(at)75 2719 y(its)e(susp)q
+(ension)i(p)q(oin)o(t.)22 b(If)14 b(the)i(sp)q(ecial)g(v)n(alue)f
+Fs(#f)f FB(is)h(pro)o(vided)h(as)f Fz(hand)r(ler)5 b
+FB(,)15 b(the)h(curren)o(t)h(handler)e(for)g Fz(p)n(ort)75
+2769 y FB(is)j(deleted.)34 b(If)18 b(a)g(handler)h(is)f(pro)o(vided,)i
+(the)f(v)n(alue)f(returned)i(b)o(y)e Fs(when-port-writable)d
+FB(is)k(unde\014ned.)75 2819 y(Otherwise,)c(it)e(returns)j(the)e
+(handler)g(curren)o(tly)h(asso)q(ciated)g(to)f Fz(p)n(ort)s
+FB(.)p eop
+%%Page: 23 23
+23 22 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(23)p 75 64 1763 2 v 75 179 a Fs(\(load)21 b Fz(\014lename)s
+Fs(\))1278 b FB(pro)q(cedure)75 252 y Fz(Identic)n(al)15
+b(to)g(R)325 237 y Fw(4)344 252 y Fz(RS.)75 302 y Fj(Note:)28
+b Fq(The)10 b Fj(lo)n(ad)h Fq(primitiv)o(e)g(has)f(b)q(een)g(extended)g
+(to)f(allo)o(w)h(loading)i(of)d(ob)r(ject)g(\014les,)i(though)f(this)g
+(is)g(not)f(implemen)o(ted)75 352 y(on)k(all)i(systems)324
+336 y Fp(2)341 352 y Fq(.)i(See)c([)p Fg(?)p Fq(])f(for)h(more)g
+(details.)75 447 y Fs(\(try-load)20 b Fz(\014lename)s
+Fs(\))1191 b FB(pro)q(cedure)75 520 y(T)m(ries)11 b(to)g(load)g(the)h
+(\014le)f(named)f Fz(\014lename)t FB(.)17 b(If)11 b Fz(\014lename)k
+FB(exists)d(and)f(is)g(readable,)g(it)g(is)g(loaded,)g(and)g
+Fs(try-load)75 570 y FB(returns)k Fs(#t)p FB(.)j(Otherwise,)d(the)f
+(result)h(of)e(the)i(call)e(is)h Fs(#f)p FB(.)75 665
+y Fs(\(autoload)20 b Fz(\014lename)i Fk(h)p FB(sym)o(b)q(ol)611
+671 y Fw(1)628 665 y Fk(i)g(h)p FB(sym)o(b)q(ol)812 671
+y Fw(2)829 665 y Fk(i)g Fv(:)7 b(:)g(:)f Fs(\))774 b
+FB(syn)o(tax)75 738 y(De\014nes)14 b Fk(h)p FB(sym)o(b)q(ol)p
+Fk(i)n FB(s)f(as)g(autoload)f(sym)o(b)q(ols)f(asso)q(ciated)i(to)g
+(\014le)f Fz(\014lename)t FB(.)18 b(Fisrt)13 b(ev)n(aluation)e(of)h(an)
+h(autoload)75 788 y(sym)o(b)q(ol)i(will)h(cause)i(the)f(loading)f(of)g
+(its)h(asso)q(ciated)h(\014le.)28 b Fz(Filename)20 b
+FB(m)o(ust)c(pro)o(vide)h(a)g(de\014nition)f(for)h(the)75
+838 y(sym)o(b)q(ol)12 b(whic)o(h)i(lead)f(to)h(its)g(loading,)e
+(otherwise)j(an)e(error)i(is)f(signaled.)75 933 y Fs(\(autoload?)20
+b Fz(symb)n(ol)t Fs(\))1198 b FB(pro)q(cedure)75 1006
+y(Returns)15 b Fs(#t)e FB(if)g Fz(symb)n(ol)18 b FB(is)c(an)g(autoload)
+e(sym)o(b)q(ol;)g(returns)j Fs(#f)f FB(otherwise.)75
+1101 y Fs(\(require)20 b Fz(string)t Fs(\))1258 b FB(pro)q(cedure)75
+1151 y Fs(\(provide)20 b Fz(string)t Fs(\))1258 b FB(pro)q(cedure)75
+1200 y Fs(\(provided?)20 b Fz(string)t Fs(\))1214 b FB(pro)q(cedure)75
+1274 y Fs(Require)13 b FB(loads)h(the)h(\014le)g(whose)g(name)e(is)i
+Fz(string)j FB(if)13 b(it)h(w)o(as)h(not)f(previously)h(\\pro)o
+(vided".)p Fs(Provide)d FB(p)q(ermits)75 1324 y(to)k(store)g
+Fz(string)j FB(in)c(the)i(list)e(of)g(already)h(pro)o(vided)f(\014les.)
+24 b(Pro)o(viding)15 b(a)h(\014le)f(p)q(ermits)h(to)f(a)o(v)o(oid)g
+(subsequen)o(t)75 1374 y(loads)e(of)h(this)g(\014le.)k
+Fs(Provided?)12 b FB(returns)j Fs(#t)e FB(if)g Fz(string)k
+FB(w)o(as)d(already)g(pro)o(vided;)f(it)h(returns)h Fs(#f)e
+FB(otherwise.)75 1468 y Fs(\(transcript-on)19 b Fz(\014lename)s
+Fs(\))1082 b FB(pro)q(cedure)75 1518 y Fs(\(transcript-off)m(\))1235
+b FB(pro)q(cedure)75 1592 y(Not)14 b(implemen)o(ted.)75
+1686 y Fs(\(open-file)20 b Fz(\014lename)i(mo)n(de)s
+Fs(\))1054 b FB(pro)q(cedure)75 1760 y(Op)q(ens)18 b(the)f(\014le)f
+(whose)h(name)e(is)i Fz(\014lename)j FB(with)c(the)h(sp)q(eci\014ed)h
+Fz(mo)n(de)s FB(.)26 b Fz(Mo)n(de)20 b FB(m)o(ust)15
+b(b)q(e)j(\\r")e(to)g(op)q(en)h(for)75 1810 y(reading)c(or)f(\\w")g(to)
+h(op)q(en)g(for)g(writing.)j(If)d(the)g(\014le)g(can)g(b)q(e)g(op)q
+(ened,)h Fz(op)n(en-\014le)i FB(returns)e(the)g(p)q(ort)f(asso)q
+(ciated)75 1859 y(with)h(the)g(giv)o(en)f(\014le,)h(otherwise)h(it)e
+(returns)j Fs(#f)p FB(.)h(Here)e(again,)e(the)h(\\magic")d(string)j
+Fs("|)22 b(``)13 b FB(p)q(ermit)g(to)h(op)q(en)75 1909
+y(a)g(pip)q(e)g(p)q(ort.)75 2004 y Fs(\(close-port)20
+b Fz(p)n(ort)t Fs(\))1224 b FB(pro)q(cedure)75 2078 y(Closes)14
+b Fz(p)n(ort)t FB(.)k(If)13 b Fz(p)n(ort)18 b FB(denotes)d(a)e(string)h
+(p)q(ort,)g(further)h(reading)f(or)f(writing)h(on)f(this)h(p)q(ort)g
+(is)g(disallo)o(w)o(ed.)75 2172 y Fs(\(transcript-on)19
+b Fz(\014lename)s Fs(\))1082 b FB(pro)q(cedure)75 2222
+y Fs(\(transcript-off)m(\))1235 b FB(pro)q(cedure)75
+2296 y(Not)14 b(implemen)o(ted.)75 2390 y Fs(\(port->string)19
+b Fz(p)n(ort)t Fs(\))1181 b FB(pro)q(cedure)75 2440 y
+Fs(\(port->list)20 b Fz(r)n(e)n(ader)h(p)n(ort)t Fs(\))1091
+b FB(pro)q(cedure)75 2490 y Fs(\(port->string-lis)o(t)19
+b Fz(p)n(ort)t Fs(\))1072 b FB(pro)q(cedure)75 2540 y
+Fs(\(port->sexp-list)18 b Fz(p)n(ort)t Fs(\))1116 b FB(pro)q(cedure)75
+2613 y(Those)19 b(pro)q(cedures)i(are)e(utilit)o(y)e(for)h(generally)g
+(parsing)g(input)g(streams.)32 b(Their)19 b(sp)q(eci\014cation)g(has)f
+(b)q(een)75 2663 y(stolen)c(from)e Fs(scsh)p FB(.)75
+2709 y Fs(Port->string)f FB(reads)k(the)g(input)e(p)q(ort)h(un)o(til)f
+(eof,)h(then)g(returns)i(the)e(accum)o(ulated)f(string.)p
+75 2741 705 2 v 121 2768 a Fp(2)139 2779 y Fo(Curren)o(t)h(v)o(ersion)g
+(\(3.1\))g(allo)o(ws)h(image)f(dumping)f(only)h(on)h(some)g
+(platforms:Su)o(nOs)e(4.1.x,)i(SunOs)g(5.3,)h(NetBSD)f(1.0,)75
+2819 y(HPUX,)e(Irix)d(5.3)p eop
+%%Page: 24 24
+24 23 bop 75 47 a FA(24)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(port->stri)o(ng)i(\(open-inpu)o(t-)o(fil)
+o(e)g("|)j(\(echo)f(AAA;)g(echo)g(BBB\)"\)\))703 224
+y Fq(=)-6 b Fl(\))19 b Fr("AAA\\nBBB\\)o(n")153 270 y(\(define)e(exec)
+310 316 y(\(lambda)g(\(command\))369 361 y(\(call-with)o(-in)o(pu)o
+(t-f)o(il)o(e)428 407 y(\(string-ap)o(pe)o(nd)f("|)j(")g(command\))e
+(port->str)o(ing)o(\)\))o(\))153 498 y(\(exec)h("ls)h(-l"\))273
+b Fq(=)-6 b Fl(\))19 b Fr(a)g(string)f(which)f(contains)g(the)h(result)
+g(of)g("ls)h(-l")75 623 y Fs(Port->list)f FB(uses)j(the)f
+Fz(r)n(e)n(ader)j FB(function)d(to)f(rep)q(eatedly)i(read)g(ob)r(jects)
+g(from)c Fz(p)n(ort)t FB(.)36 b(Thes)20 b(ob)r(jects)h(are)75
+668 y(accum)o(ulated)13 b(in)g(a)h(list)f(whic)o(h)h(is)g(returned)i
+(up)q(on)d(eof.)153 747 y Fr(\(port->list)j(read-line)g(\(open-inp)o
+(ut-)o(fil)o(e)g("|)j(\(echo)f(AAA;)g(echo)g(BBB\)"\)\))703
+793 y Fq(=)-6 b Fl(\))19 b Fr(\("AAA")e("BBB"\))75 917
+y Fs(Port->string-list)10 b FB(reads)15 b(the)g(input)e(p)q(ort)i(line)
+e(b)o(y)h(line)f(un)o(til)g(eof,)g(then)i(returns)g(the)g(accum)o
+(ulated)e(list)75 963 y(of)g(lines.)18 b(This)c(pro)q(cedure)i(is)e
+(de\014ned)h(as)153 1042 y Fr(\(define)i(port->strin)o(g-)o(lis)o(t)f
+(\(lambda)h(\(p\)\(port->)o(lis)o(t)g(read-lin)o(e)g(p\)\)\))75
+1166 y Fs(Port->sexp-list)9 b FB(rep)q(eatedly)k(reads)f(data)g(from)e
+(the)i(p)q(ort)g(un)o(til)f(eof,)h(then)g(returns)i(the)e(accum)o
+(ulated)f(list)75 1212 y(of)i(items.)k(This)d(pro)q(cedure)i(is)e
+(de\014ned)h(as)153 1290 y Fr(\(define)i(port->sexp-)o(li)o(st)f
+(\(lambda)h(\(p\))i(\(port->l)o(ist)d(read)i(p\)\)\))75
+1415 y FB(F)m(or)d(instance,)i(the)f(follo)o(wing)d(expression)j(giv)o
+(es)g(the)g(list)f(of)g(users)i(curren)o(tly)g(connected)g(on)f(the)g
+(mac)o(hine)75 1460 y(running)e(the)g Fx(STk)g FB(in)o(terpreter.)153
+1539 y Fr(\(port->sexp)o(-l)o(ist)i(\(open-inp)o(ut-)o(fi)o(le)g("|)j
+(users"\)\))75 1734 y FE(6.11)56 b(Keyw)n(ords)75 1810
+y FB(Keyw)o(ords)18 b(are)g(sym)o(b)q(olic)d(constan)o(ts)j(whic)o(h)g
+(ev)n(aluate)e(to)i(themselv)o(es.)28 b(A)17 b(k)o(eyw)o(ord)g(m)o(ust)
+g(b)q(egin)g(with)g(a)75 1860 y(colon.)75 1965 y Fs(\(keyword?)j
+Fz(obj)6 b Fs(\))1285 b FB(pro)q(cedure)75 2039 y(Returns)15
+b Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14 b(a)f(k)o(eyw)o(ord,)h
+(otherwise)h(returns)g Fs(#f)p FB(.)75 2144 y Fs(\(make-keyword)k
+Fz(obj)6 b Fs(\))1198 b FB(pro)q(cedure)75 2213 y(Builds)14
+b(a)f(k)o(eyw)o(ord)h(from)e(the)i(giv)o(en)f Fz(obj)6
+b FB(.)18 b Fz(obj)i FB(m)o(ust)12 b(b)q(e)j(a)e(sym)o(b)q(ol)f(or)i(a)
+f(string.)18 b(A)c(colon)f(is)h(automatically)75 2259
+y(prep)q(ended.)153 2338 y Fr(\(make-keywo)o(rd)i("test"\))350
+2383 y Fq(=)-6 b Fl(\))19 b Fr(:test)153 2429 y(\(make-keywo)o(rd)d
+('test\))350 2475 y Fq(=)-6 b Fl(\))19 b Fr(:test)153
+2520 y(\(make-keywo)o(rd)d(":hello"\))350 2566 y Fq(=)-6
+b Fl(\))19 b Fr(::hello)75 2750 y Fs(\(keyword->string)f
+Fz(keywor)n(d)t Fs(\))1044 b FB(pro)q(cedure)75 2819
+y(Returns)15 b(the)f(name)f(of)g Fz(keywor)n(d)18 b FB(as)c(a)g
+(string.)k(The)c(leading)f(colon)g(is)h(included)g(in)g(the)g(result.)p
+eop
+%%Page: 25 25
+25 24 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(25)p 75 64 1763 2 v 153 179 a Fr(\(keyword->s)o(tr)o(ing)16
+b(:test\))350 224 y Fq(=)-6 b Fl(\))19 b Fr(":test")75
+380 y Fs(\(get-keyword)g Fz(keywor)n(d)j(list)t Fs(\))1054
+b FB(pro)q(cedure)75 430 y Fs(\(get-keyword)19 b Fz(keywor)n(d)j(list)f
+(default)t Fs(\))912 b FB(pro)q(cedure)75 499 y Fz(List)14
+b FB(m)o(ust)c(b)q(e)i(a)f(list)f(of)h(k)o(eyw)o(ords)g(and)g(their)g
+(resp)q(ectiv)o(e)i(v)n(alues.)k Fs(Get-keyword)9 b FB(scans)j(the)f
+Fz(list)j FB(and)d(returns)75 545 y(the)16 b(v)n(alue)e(asso)q(ciated)i
+(with)f(the)g(giv)o(en)g Fz(keywor)n(d)t FB(.)22 b(If)14
+b(the)i Fz(keywor)n(d)j FB(do)q(es)d(not)f(app)q(ear)h(in)e(an)h(o)q
+(dd)g(p)q(osition)75 591 y(in)e Fz(list)s FB(,)h(the)g(sp)q(eci\014ed)i
+Fz(default)h FB(is)d(returned,)h(or)f(an)g(error)h(is)e(raised)i(if)e
+(no)g(default)h(w)o(as)g(sp)q(eci\014ed.)153 658 y Fr(\(get-keywor)o(d)
+i(:one)j('\(:one)e(1)i(:two)f(2\)\))350 704 y Fq(=)-6
+b Fl(\))19 b Fr(1)153 749 y(\(get-keywor)o(d)d(:four)i('\(:one)f(1)j
+(:two)e(2\))h(#f\))350 795 y Fq(=)-6 b Fl(\))19 b Fr(#f)153
+841 y(\(get-keywor)o(d)d(:four)i('\(:one)f(1)j(:two)e(2\)\))350
+886 y Fq(=)-6 b Fl(\))19 b Ff(error)75 1054 y FE(6.12)56
+b(Tk)18 b(commands)75 1131 y FB(As)e(w)o(e)f(men)o(tioned)f(in)g(the)i
+(in)o(tro)q(duction,)f Fx(STk)g FB(can)h(easily)e(comm)o(unicate)f
+(with)i(the)g(Tk)g(to)q(olkit.)21 b(All)14 b(the)75 1181
+y(commands)f(de\014ned)k(b)o(y)e(the)i(Tk)e(to)q(olkit)g(are)h(visible)
+f(as)g Fs(Tk-command)p FB(s,)f(a)i(basic)f(t)o(yp)q(e)i(recognized)f(b)
+o(y)g(the)75 1231 y(in)o(terpreter.)21 b Fs(Tk-command)p
+FB(s)13 b(can)i(b)q(e)g(called)f(lik)o(e)f(regular)i(sc)o(heme)f(pro)q
+(cedures,)j(serving)d(as)h(an)f(en)o(try)h(p)q(oin)o(t)75
+1280 y(in)o(to)e(the)i(Tk)e(library)m(.)75 1362 y Fj(Note:)50
+b Fq(Some)18 b Fr(Tk-comman)o(d)p Fq(s)c(can)k(dynamically)j(create)c
+(other)h Fr(Tk-comman)o(d)p Fq(s.)27 b(F)m(or)17 b(instance,)j
+(execution)f(of)e(the)75 1407 y(expression)153 1474 y
+Fr(\(label)h('.lab\))75 1591 y Fq(will)11 b(create)f(a)g(new)g
+Fr(Tk-command)c Fq(called)12 b(\\)p Fj(.lab)q Fq(".)k(This)10
+b(new)g(ob)r(ject,)h(whic)o(h)f(w)o(as)g(created)g(b)o(y)h(a)e
+(primitiv)o(e)k Fr(Tk-comman)o(d)p Fq(,)75 1641 y(will)i(b)q(e)e
+(called)i(a)e Fj(widget)r Fq(.)75 1691 y Fj(Note:)31
+b Fq(When)12 b(a)f(new)h(widget)g(is)g(created,)f(it)h(captures)g(its)g
+(creation)h(en)o(vironmen)o(t.)18 b(This)12 b(p)q(ermits)g(to)g(ha)o(v)
+o(e)f(bindings)75 1741 y(whic)o(h)j(access)f(v)n(ariables)j(in)d(the)h
+(scop)q(e)f(of)g(the)g(widget)h(creation)g(call)h(\(see)e(6.16\).)75
+1842 y Fs(\(tk-command?)19 b Fz(obj)6 b Fs(\))1220 b
+FB(pro)q(cedure)75 1911 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(obj)20 b FB(is)14 b(a)f Fs(Tk-command)p FB(,)f(otherwise)j(returns)g
+Fs(#f)p FB(.)153 1979 y Fr(\(tk-command)o(?)h(label\))350
+2024 y Fq(=)-6 b Fl(\))19 b Fr(#t)153 2070 y(\(begin)f(\(label)f
+('.lab\))g(\(tk-comman)o(d?)f(.lab\)\))350 2116 y Fq(=)-6
+b Fl(\))19 b Fr(#t)153 2161 y(\(tk-command)o(?)d(12\))350
+2207 y Fq(=)-6 b Fl(\))19 b Fr(#f)75 2363 y Fs(\(widget?)h
+Fz(obj)6 b Fs(\))1307 b FB(pro)q(cedure)75 2432 y(Returns)20
+b Fs(#t)f FB(if)f Fz(obj)25 b FB(is)19 b(a)g(widget,)h(otherwise)g
+(returns)h Fs(#f)p FB(.)34 b(A)19 b(widget)g(is)g(a)g
+Fs(Tk-command)e FB(created)k(b)o(y)e(a)75 2478 y(primitiv)o(e)12
+b Fs(Tk-command)f FB(suc)o(h)k(as)f Fs(button)p FB(,)e
+Fs(label)p FB(,)h Fs(menu)p FB(,)f(etc.)153 2545 y Fr(\(widget?)17
+b(label\))350 2591 y Fq(=)-6 b Fl(\))19 b Fr(#f)153 2636
+y(\(begin)f(\(label)f('.lab\))g(\(widget?)g(.lab\)\))350
+2682 y Fq(=)-6 b Fl(\))19 b Fr(#t)153 2728 y(\(widget?)e(12\))350
+2773 y Fq(=)-6 b Fl(\))19 b Fr(#f)p eop
+%%Page: 26 26
+26 25 bop 75 47 a FA(26)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(widget->string)19 b Fz(widget)t
+Fs(\))1095 b FB(pro)q(cedure)75 248 y(Returns)15 b(the)f(widget)g(name)
+f(of)g Fz(widget)k FB(as)d(a)g(string.)153 322 y Fr(\(begin)k(\(label)f
+('.lab\))g(\(widget->s)o(tri)o(ng)f(.lab\)\))350 368
+y Fq(=)-6 b Fl(\))19 b Fr(".lab")75 540 y Fs(\(string->widget)g
+Fz(str)t Fs(\))1160 b FB(pro)q(cedure)75 610 y(Returns)15
+b(the)f(widget)g(whose)g(name)f(is)h Fz(str)j FB(if)d(it)f(exists;)h
+(otherwise)h(returns)g Fs(#f)p FB(.)153 684 y Fr(\(begin)j(\(label)f
+('.lab\))g(\(string->w)o(idg)o(et)f(".lab"\)\))350 729
+y Fq(=)-6 b Fl(\))19 b Fr(the)g(Tk-comma)o(nd)d(named)i(".lab")75
+902 y Fs(\(widget-name)h Fz(widget)t Fs(\))1161 b FB(pro)q(cedure)75
+971 y(Returns)15 b(the)f(widget)g(name)f(of)g Fz(widget)k
+FB(as)d(a)g(sym)o(b)q(ol.)153 1045 y Fr(\(begin)k(\(label)f('.lab\))g
+(\(widget->n)o(ame)f(.lab\)\))350 1091 y Fq(=)-6 b Fl(\))19
+b Fr(.lab)75 1264 y Fs(\(set-widget-data!)f Fz(widget)k(expr)t
+Fs(\))953 b FB(pro)q(cedure)75 1337 y Fs(Set-widget-data!)13
+b FB(asso)q(ciates)18 b(arbitrary)e(data)g(with)g(a)g
+Fz(widget)t FB(.)26 b(The)17 b(system)f(mak)o(es)f(no)h(assumptions)75
+1387 y(ab)q(out)f(the)h(t)o(yp)q(e)g(of)f Fs(expr)p FB(;)f(the)i(data)f
+(is)g(for)g(programmer)e(con)o(v)o(enience)k(only)m(.)k(As)15
+b(sho)o(wn)h(b)q(elo)o(w,)f(it)g(could)75 1437 y(b)q(e)g(used)f(as)g(a)
+g(kind)f(of)h(prop)q(ert)o(y)g(list)g(for)f(widgets.)75
+1535 y Fs(\(get-widget-data)18 b Fz(widget)t Fs(\))1074
+b FB(pro)q(cedure)75 1604 y(Returns)15 b(the)f(data)g(previously)f
+(asso)q(ciated)i(with)f Fz(widget)j FB(if)c(it)h(exists;)g(otherwise)g
+(returns)i Fs(#f)p FB(.)153 1678 y Fr(\(begin)212 1724
+y(\(set-widge)o(t-d)o(ata)o(!)g(.w)j('\(:mapped)d(#t)j(:geometry)d
+("10x50"\)\))212 1770 y(\(get-keywo)o(rd)g(:mapped)h(\(get-widge)o(t-d)
+o(at)o(a)g(.w\)\)\))350 1815 y Fq(=)-6 b Fl(\))19 b Fr(#t)75
+2000 y FE(6.13)56 b(En)n(vironmen)n(ts)75 2076 y FB(En)o(vironmen)o(ts)
+11 b(are)h(\014rst)g(class)g(ob)r(jects)h(in)e(STk.)17
+b(The)c(follo)o(wing)c(primitiv)o(es)g(are)j(de\014ned)h(on)f(en)o
+(vironmen)o(ts.)75 2180 y Fs(\(environment?)19 b Fz(obj)6
+b Fs(\))1198 b FB(pro)q(cedure)75 2253 y(Returns)15 b
+Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14 b(an)f(en)o(vironmen)o(t,)g
+(otherwise)i(returns)g Fs(#f)p FB(.)75 2352 y Fs(\(the-environment)m
+(\))1213 b FB(pro)q(cedure)75 2425 y(Returns)15 b(the)f(curren)o(t)i
+(en)o(vironmen)o(t.)75 2524 y Fs(\(global-environme)o(nt)m(\))1148
+b FB(pro)q(cedure)75 2597 y(Returns)15 b(the)f(\\global")e(en)o
+(vironmen)o(t)h(\(i.e.)k(the)e(toplev)o(el)e(en)o(vironmen)o(t\).)75
+2696 y Fs(\(parent-environme)o(nt)19 b Fz(env)t Fs(\))1061
+b FB(pro)q(cedure)75 2769 y(Returns)20 b(the)f(paren)o(t)g(en)o
+(vironmen)o(t)f(of)g Fz(env)5 b FB(.)33 b(If)18 b(en)o(v)h(is)g(the)g
+(\\global")e(en)o(vironmen)o(t)g(\(i.e.)32 b(the)20 b(toplev)o(el)75
+2819 y(en)o(vironmen)o(t\),)12 b Fs(parent-environment)f
+FB(returns)k Fs(#f)p FB(.)p eop
+%%Page: 27 27
+27 26 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(27)p 75 64 1763 2 v 75 179 a Fs(\(environment->lis)o(t)19
+b Fz(envir)n(onment)t Fs(\))920 b FB(pro)q(cedure)75
+248 y(Returns)15 b(a)e(list)h(of)f Fz(a-lists)p FB(,)g(represen)o(ting)
+i(the)g(bindings)e(in)h Fz(envir)n(onment)t FB(.)k(Eac)o(h)d
+Fz(a-list)e FB(describ)q(es)j(one)e(lev)o(el)75 294 y(of)f(bindings,)g
+(with)h(the)g(innermost)f(lev)o(el)h(coming)e(\014rst.)153
+360 y Fr(\(define)17 b(E)j(\(let)e(\(\(a)g(1\))h(\(b)g(2\)\))389
+406 y(\(let)f(\(\(c)g(3\)\))428 451 y(\(the-envir)o(on)o(men)o(t\))o
+(\)\)\))153 543 y(\(car)h(\(environ)o(men)o(t->)o(li)o(st)d(E\)\))j
+Fq(=)-6 b Fl(\))19 b Fr(\(\(c)g(.)g(3\)\))153 634 y(\(cadr)f
+(\(environme)o(nt-)o(>l)o(ist)e(E\)\))p Fq(=)-6 b Fl(\))18
+b Fr(\(\(b)h(.)g(2\))g(\(a)f(.)i(1\)\))75 788 y Fs(\(procedure-enviro)o
+(nment)e Fz(pr)n(o)n(c)n(e)n(dur)n(e)s Fs(\))890 b FB(pro)q(cedure)75
+857 y(Returns)10 b(the)g(en)o(vironmen)o(t)e(asso)q(ciated)i(with)f
+Fz(pr)n(o)n(c)n(e)n(dur)n(e)s FB(.)16 b Fs(Procedure-environme)o(nt)6
+b FB(returns)11 b Fs(#f)e FB(if)f Fz(pr)n(o)n(c)n(e)n(dur)n(e)75
+903 y FB(is)14 b(not)g(a)f(closure.)153 969 y Fr(\(define)k(foo)i
+(\(let)f(\(\(a)g(1\)\))h(\(lambda)e(\(\))i(a\)\)\))153
+1015 y(\(car)g(\(environ)o(men)o(t->)o(li)o(st)330 1061
+y(\(procedure)o(-e)o(nvi)o(ro)o(nme)o(nt)d(foo\)\)\))703
+1106 y Fq(=)-6 b Fl(\))19 b Fr(\(\(a)g(.)g(1\)\))75 1260
+y Fs(\(symbol-bound?)g Fz(symb)n(ol)t Fs(\))1111 b FB(pro)q(cedure)75
+1310 y Fs(\(symbol-bound?)19 b Fz(symb)n(ol)j(envir)n(onment)t
+Fs(\))865 b FB(pro)q(cedure)75 1384 y(Returns)17 b Fs(#t)e
+FB(if)h Fz(symb)n(ol)k FB(has)c(a)f(v)n(alue)h(in)f(the)i(giv)o(en)e
+Fz(envir)n(onment)5 b FB(,)16 b(otherwise)h(returns)g
+Fs(#f)p FB(.)24 b Fz(Envir)n(onment)75 1434 y FB(ma)o(y)12
+b(b)q(e)i(omitted,)e(in)i(whic)o(h)g(case)h(it)e(defaults)h(to)g(the)g
+(global)e(en)o(vironmen)o(t.)75 1534 y FE(6.14)56 b(Macros)75
+1610 y Fx(STk)14 b FB(pro)o(vides)g(lo)o(w)f(lev)o(el)h(macros.)75
+1660 y Fj(Note:)38 b Fh(STk)14 b Fq(macros)h(are)f(not)h(the)f(sort)h
+(of)f(macros)h(de\014ned)g(in)h(the)e(app)q(endix)j(of)d
+Fj(R)1373 1644 y Fp(4)1384 1660 y Fi(RS)r Fq(,)h(but)g(rather)f(the)h
+(macros)75 1710 y(one)e(can)h(\014nd)g(in)f(most)g(of)g(Lisp)h
+(dialects.)75 1811 y Fs(\(macro)21 b Fk(h)p FB(formals)p
+Fk(i)f(h)p FB(b)q(o)q(dy)p Fk(i)p Fs(\))1159 b FB(syn)o(tax)75
+1884 y Fs(Macro)14 b FB(p)q(ermits)h(to)g(create)i(a)e(macro.)21
+b(When)16 b(a)f(macro)f(is)h(called,)g(the)h(whole)f(form)f(\(i.e.)22
+b(the)16 b(macro)e(itself)75 1934 y(and)g(its)g(parameters\))g(is)g
+(passed)h(to)e(the)i(macro)e(b)q(o)q(dy)m(.)18 b(Binding)13
+b(asso)q(ciation)g(is)h(done)g(in)g(the)h(en)o(vironmen)o(t)75
+1984 y(of)e(the)i(call.)i(The)e(result)g(of)e(the)i(binding)d(asso)q
+(ciation)i(is)g(called)g(the)g Fz(macr)n(o-exp)n(ansion)p
+FB(.)19 b(The)c(result)f(of)g(the)75 2034 y(macro)f(call)g(is)g(the)i
+(result)g(of)e(the)h(ev)n(aluation)f(of)g(the)i(macro)d(expansion)i(in)
+g(the)g(call)f(en)o(vironmen)o(t.)153 2105 y Fr(\(define)k(foo)i
+(\(macro)e(f)i(\022\(quote)e(,f\)\)\))153 2151 y(\(foo)i(1)g(2)g(3\))
+333 b Fq(=)-6 b Fl(\))19 b Fr(\(foo)f(1)h(2)h(3\))153
+2242 y(\(define)d(1+)i(\(macro)f(form)g(\(list)f(+)i(\(cadr)f(form\))g
+(1\)\)\))153 2288 y(\(let)h(\(\(x)f(1\)\))g(\(1+)h(x\)\))156
+b Fq(=)-6 b Fl(\))19 b Fr(2)75 2447 y Fs(\(macro?)h Fz(obj)6
+b Fs(\))1329 b FB(pro)q(cedure)75 2521 y(Returns)15 b
+Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14 b(a)f(macro,)g(otherwise)h
+(returns)i Fs(#f)p FB(.)75 2608 y Fs(\(macro-expand-1)j
+Fz(form)s Fs(\))1124 b FB(pro)q(cedure)75 2658 y Fs(\(macro-expand)19
+b Fz(form)s Fs(\))1168 b FB(pro)q(cedure)75 2728 y Fs(Macro-expand-1)16
+b FB(returns)21 b(the)e(macro)f(expansion)h(of)f Fz(form)k
+FB(if)c(it)h(is)g(a)f(macro)g(call,)h(otherwise)h Fz(form)i
+FB(is)75 2773 y(returned)d(unc)o(hanged.)31 b Fs(Macro-expand)15
+b FB(is)j(similar)d(to)j Fs(macro-expand-1)p FB(,)d(but)j(rep)q(eately)
+h(expand)f Fz(form)75 2819 y FB(un)o(til)13 b(it)h(is)f(no)h(longer)g
+(a)f(macro)g(call.)p eop
+%%Page: 28 28
+28 27 bop 75 47 a FA(28)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(define)j(1-)i(\(macro)f(form)g(\022\(-)38
+b(,\(cadr)17 b(form\))h(1\)\)\))153 224 y(\(define)f(--)i(\(macro)f
+(form)g(\022\(1-)g(,\(cadr)f(form\)\)\)\))153 270 y(\(macro-expa)o(nd)o
+(-1)f('\(1-)i(10\)\))58 b Fq(=)-6 b Fl(\))19 b Fr(\(-)g(10)g(1\))153
+316 y(\(macro-expa)o(nd)55 b('\(1-)18 b(10\)\))58 b Fq(=)-6
+b Fl(\))19 b Fr(\(-)g(10)g(1\))153 361 y(\(macro-expa)o(nd)o(-1)d
+('\(--)i(10\)\))58 b Fq(=)-6 b Fl(\))19 b Fr(\(1-)g(10\))153
+407 y(\(macro-expa)o(nd)55 b('\(--)18 b(10\)\))58 b Fq(=)-6
+b Fl(\))19 b Fr(\(-)g(10)g(1\))75 567 y Fs(\(macro-expand)g
+Fz(form)s Fs(\))1168 b FB(pro)q(cedure)75 636 y(Returns)15
+b(the)f(macro)e(expansion)i(of)f Fz(form)j FB(if)d(it)g(is)h(a)f(macro)
+f(call,)h(otherwise)h Fz(form)j FB(is)c(returned)i(unc)o(hanged.)75
+682 y(Macro)f(expansion)g(con)o(tin)o(ue)g(un)o(til,)e(the)j(form)d
+(obtained)i(is)153 750 y Fr(\(define)j(1-)i(\(macro)f(form)g(\(list)f
+('-)i(\(cadr)f(form\))f(1\)\)\))153 796 y(\(macro-expa)o(nd)f('\(1-)i
+(10\)\))97 b Fq(=)-6 b Fl(\))19 b Fr(\(-)g(10)g(1\))75
+956 y Fs(\(macro-body)h Fz(macr)n(o)s Fs(\))1186 b FB(pro)q(cedure)75
+1025 y(Returns)15 b(the)f(b)q(o)q(dy)g(of)f Fz(macr)n(o)153
+1093 y Fr(\(macro-body)j(1+\))703 1139 y Fq(=)-6 b Fl(\))19
+b Fr(\(macro)e(form)h(\(list)g(+)h(\(cadr)f(form\))g(1\)\))75
+1299 y Fs(\(define-macro)h Fz(\()p Fk(h)p FB(name)p Fk(i)i(h)p
+FB(formals)p Fk(i)n Fz(\))h Fk(h)p FB(b)q(o)q(dy)p Fk(i)p
+Fs(\))830 b FB(macro)75 1368 y Fs(Define-macro)10 b FB(is)j(a)g(macro)f
+(whic)o(h)h(p)q(ermits)f(to)h(de\014ne)h(a)f(macro)f(more)g(easily)g
+(than)h(with)g(the)h Fs(macro)e FB(form.)75 1414 y(It)i(is)g(similar)d
+(to)j(the)g Fs(defmacro)f FB(of)g(Commo)o(n)e(Lisp)j([4)o(].)153
+1482 y Fr(\(define-mac)o(ro)i(\(incr)i(x\))h(\022\(set!)e(,x)i(\(+)g
+(,x)f(1\)\)\))153 1528 y(\(let)h(\(\(a)f(1\)\))g(\(incr)g(a\))h(a\))78
+b Fq(=)-6 b Fl(\))19 b Fr(2)153 1619 y(\(define-mac)o(ro)d(\(when)i
+(test)g(.)h(body\))193 1665 y(\022\(if)f(,test)f(,@\(if)h(\(null?)f
+(\(cdr)h(body\)\))g(body)g(\022\(\(begin)e(,@body\)\)\)\)\))153
+1711 y(\(macro-expa)o(nd)g('\(when)h(a)j(b\)\))38 b Fq(=)-6
+b Fl(\))19 b Fr(\(if)g(a)g(b\))153 1756 y(\(macro-expa)o(nd)d('\(when)h
+(a)j(b)f(c)g(d\)\))703 1802 y Fq(=)-6 b Fl(\))19 b Fr(\(if)g(a)g
+(\(begin)e(b)i(c)h(d\)\))75 1920 y Fj(Note:)35 b Fq(Calls)14
+b(to)g(macros)g(de\014ned)h(b)o(y)f Fr(define-m)o(acr)o(o)c
+Fq(are)k(ph)o(ysically)j(replaced)e(b)o(y)f(their)g(macro-expansion)i
+(if)e(the)75 1970 y(v)n(ariable)h Fr(*debug*)10 b Fq(is)k
+Fr(#f)e Fq(\(i.e.)18 b(their)c(b)q(o)q(dy)g(is)g(\\in-lined")i(in)e
+(the)f(macro)g(call\).)19 b(T)m(o)13 b(a)o(v)o(oid)h(this)g(feature,)f
+(and)h(to)f(ease)75 2020 y(debugging,)i(y)o(ou)f(ha)o(v)o(e)f(to)g(set)
+g(this)h(v)n(ariable)h(to)e Fr(#t)p Fq(.)j(\(See)d(also)h(6.22\).)75
+2123 y FE(6.15)56 b(System)16 b(pro)r(cedures)75 2200
+y FB(This)e(section)g(lists)g(a)g(set)h(of)e(pro)q(cedures)j(whic)o(h)e
+(p)q(ermits)f(to)h(access)i(some)d(system)g(in)o(ternals.)75
+2302 y Fs(\(expand-file-name)18 b Fz(string)t Fs(\))1062
+b FB(pro)q(cedure)75 2375 y Fs(Expand-file-name)12 b
+FB(expands)k(the)g(\014lename)f(giv)o(en)g(in)g Fz(string)j
+FB(to)d(an)h(absolute)f(path.)23 b(This)15 b(function)h(un-)75
+2425 y(derstands)f(the)g Fz(tilde)f(c)n(onvention)h FB(for)f
+(\014lenames.)153 2499 y Fr(;;)19 b(Current)e(directory)f(is)j
+(/users/eg/)o(STk)153 2545 y(\(expand-fil)o(e-)o(nam)o(e)e(".."\))350
+2591 y Fq(=)-6 b Fl(\))19 b Fr("/users/eg)o(")153 2636
+y(\(expand-fil)o(e-)o(nam)o(e)e("~root/b)o(in\))350 2682
+y Fq(=)-6 b Fl(\))19 b Fr("/bin")153 2728 y(\(expand-fil)o(e-)o(nam)o
+(e)e("~/STk\)")350 2773 y Fq(=)-6 b Fl(\))19 b Fr("/users/eg)o(/S)o
+(Tk")p eop
+%%Page: 29 29
+29 28 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(29)p 75 64 1763 2 v 75 179 a Fs(\(canonical-path)19
+b Fz(p)n(ath)s Fs(\))1135 b FB(pro)q(cedure)75 252 y(Expands)12
+b(all)e(sym)o(b)q(olic)g(links)h(in)g Fz(p)n(ath)k FB(and)d(returns)h
+(its)e(canonicalized)h(absolute)f(pathname.)16 b(The)c(resulting)75
+302 y(path)e(do)f(not)h(ha)o(v)o(e)g(sym)o(b)q(olic)e(links.)16
+b(If)9 b Fz(p)n(ath)14 b FB(do)q(esn't)c(designate)g(a)g(v)n(alid)e
+(pathname,)h Fz(c)n(anonic)n(al-p)n(ath)14 b FB(returns)75
+352 y Fs(#f)p FB(.)75 458 y Fs(\(dirname)20 b Fz(string)t
+Fs(\))1258 b FB(pro)q(cedure)75 527 y(Returns)15 b(a)e(string)h(con)o
+(taining)f(all)g(but)h(the)g(last)g(comp)q(onen)o(t)f(of)g(the)i(path)f
+(name)e(giv)o(en)i(in)f Fz(string)s FB(.)153 606 y Fr(\(dirname)k
+("/a/b/c.st)o(k")o(\))350 652 y Fq(=)-6 b Fl(\))19 b
+Fr("/a/b")75 836 y Fs(\(basename)h Fz(string)t Fs(\))1236
+b FB(pro)q(cedure)75 906 y(Returns)15 b(a)e(string)h(con)o(taining)f
+(the)i(last)e(comp)q(onen)o(t)g(of)h(the)g(path)g(name)f(giv)o(en)g(in)
+h Fz(string)s FB(.)153 985 y Fr(\(basname)j("/a/b/c.st)o(k")o(\))350
+1030 y Fq(=)-6 b Fl(\))19 b Fr("c.stk")75 1215 y Fs(\(decompose-file-n)
+o(ame)g Fz(string)t Fs(\))996 b FB(pro)q(cedure)75 1284
+y(Returns)14 b(an)e(\\explo)q(ded")h(list)f(of)g(the)h(path)g(name)e
+(comp)q(onen)o(ts)i(giv)o(en)f(in)g Fz(string)s FB(.)18
+b(The)13 b(\014rst)g(elemen)o(t)g(in)f(the)75 1330 y(list)g(denotes)i
+(if)e(the)i(giv)o(en)e Fz(string)k FB(is)d(an)f(absolute)h(path)g(or)g
+(a)g(relativ)o(e)f(one,)h(b)q(eing)g Fs("/")f FB(or)h
+Fs(".")f FB(resp)q(ectiv)o(ely)m(.)75 1376 y(Eac)o(h)i(comp)q(onen)o(t)
+f(of)h(this)g(list)f(is)h(a)f(string.)153 1455 y Fr(\(decompose-)o(fi)o
+(le-)o(nam)o(e)j("/a/b/c.st)o(k"\))350 1501 y Fq(=)-6
+b Fl(\))19 b Fr(\("/")f("a")h("b")f("c.stk"\))153 1546
+y(\(decompose-)o(fi)o(le-)o(nam)o(e)e("a/b/c.stk)o("\))350
+1592 y Fq(=)-6 b Fl(\))19 b Fr(\(".")f("a")h("b")f("c.stk"\))75
+1777 y Fs(\(file-is-director)o(y?)h Fz(string)t Fs(\))1018
+b FB(pro)q(cedure)75 1826 y Fs(\(file-is-regular?)18
+b Fz(string)t Fs(\))1062 b FB(pro)q(cedure)75 1876 y
+Fs(\(file-is-readable)o(?)19 b Fz(string)t Fs(\))1040
+b FB(pro)q(cedure)75 1926 y Fs(\(file-is-writable)o(?)19
+b Fz(string)t Fs(\))1040 b FB(pro)q(cedure)75 1976 y
+Fs(\(file-is-executab)o(le?)19 b Fz(string)t Fs(\))996
+b FB(pro)q(cedure)75 2026 y Fs(\(file-exists?)19 b Fz(string)t
+Fs(\))1149 b FB(pro)q(cedure)75 2099 y(Returns)16 b Fs(#t)e
+FB(if)g(the)i(predicate)g(is)f(true)h(for)e(the)i(path)f(name)e(giv)o
+(en)i(in)f Fz(string)s FB(;)h(returns)i Fs(#f)d FB(otherwise)i(\(or)f
+(if)75 2149 y Fz(string)i FB(denotes)e(a)f(\014le)g(whic)o(h)f(do)q(es)
+i(not)f(exist\).)75 2255 y Fs(\(glob)21 b Fv(patter)q(n)343
+2261 y Fw(1)383 2255 y Fv(patter)q(n)520 2261 y Fw(2)560
+2255 y Fv(:)7 b(:)g(:)f Fs(\))1021 b FB(pro)q(cedure)75
+2328 y(The)17 b(co)q(de)h(for)e Fs(glob)g FB(is)g(tak)o(en)h(from)e
+(the)j(Tcl)e(library)m(.)26 b(It)16 b(p)q(erforms)h(\014le)f(name)g
+(\\globbing")f(in)h(a)g(fashion)75 2378 y(similar)11
+b(to)i(the)h(csh)g(shell.)j Fs(Glob)c FB(returns)h(a)f(list)g(of)g(the)
+h(\014lenames)e(that)h(matc)o(h)f(at)h(least)h(one)f(of)g(the)h
+Fz(p)n(attern)75 2428 y FB(argumen)o(ts.)j(The)e Fz(p)n(attern)h
+FB(argumen)o(ts)e(ma)o(y)e(con)o(tain)h(the)h(follo)o(wing)e(sp)q
+(ecial)i(c)o(haracters:)137 2519 y Fk(\017)21 b FB(?)d(Matc)o(hes)d(an)
+o(y)e(single)h(c)o(haracter.)137 2603 y Fk(\017)21 b
+Fs(*)13 b FB(Matc)o(hes)i(an)o(y)f(sequence)i(of)d(zero)i(or)f(more)f
+(c)o(haracters.)137 2686 y Fk(\017)21 b Fs([)p FB(c)o(hars)p
+Fs(])14 b FB(Matc)o(hes)g(an)o(y)f(single)h(c)o(haracter)h(in)e(c)o
+(hars.)18 b(If)13 b(c)o(hars)i(con)o(tains)e(a)g(sequence)j(of)d(the)h
+(form)e Fs(a-b)179 2736 y FB(then)i(an)o(y)g(c)o(haracter)h(b)q(et)o(w)
+o(een)g Fs(a)f FB(and)g Fs(b)f FB(\(inclusiv)o(e\))h(will)f(matc)o(h.)
+137 2819 y Fk(\017)21 b Fs(\\)p FB(x)13 b(Matc)o(hes)i(the)g(c)o
+(haracter)g Fs(x)p FB(.)p eop
+%%Page: 30 30
+30 29 bop 75 47 a FA(30)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 137 179 a Fk(\017)21 b(f)p FB(a,b,...)p
+Fk(g)11 b FB(Matc)o(hes)k(an)o(y)e(of)g(the)i(strings)f
+Fs(a)p FB(,)f Fs(b)p FB(,)g(etc.)75 282 y(As)g(with)g(csh,)h(a)e(\\.")
+18 b(at)12 b(the)i(b)q(eginning)e(of)h(a)g(\014le's)f(name)g(or)h(just)
+g(after)h(a)e(\\/")h(m)o(ust)f(b)q(e)h(matc)o(hed)f(explicitly)75
+332 y(or)i(with)f(a)h Fk(fg)f FB(construct.)20 b(In)14
+b(addition,)e(all)h(\\/")g(c)o(haracters)j(m)o(ust)c(b)q(e)j(matc)o
+(hed)e(explicitly)m(.)75 385 y(If)k(the)g(\014rst)h(c)o(haracter)g(in)f
+(a)g(pattern)h(is)f(\\)p Fs(~)p FB(")f(then)h(it)g(refers)i(to)d(the)i
+(home)e(directory)i(of)e(the)i(user)g(whose)75 435 y(name)11
+b(follo)o(ws)f(the)j(\\)p Fs(~)p FB(".)k(If)12 b(the)g(\\)p
+Fs(~)p FB(")g(is)g(follo)o(w)o(ed)e(immediately)f(b)o(y)j(\\/")f(then)i
+(the)g(v)n(alue)e(of)h(the)h(en)o(vironmen)o(t)75 484
+y(v)n(ariable)g(HOME)h(is)g(used.)75 537 y Fs(Glob)i
+FB(di\013ers)i(from)d(csh)j(globbing)d(in)i(t)o(w)o(o)f(w)o(a)o(ys.)27
+b(First,)17 b(it)g(do)q(es)h(not)e(sort)i(its)f(result)g(list)g(\(use)h
+(the)f Fs(sort)75 587 y FB(pro)q(cedure)g(if)c(y)o(ou)i(w)o(an)o(t)f
+(the)h(list)f(sorted\).)22 b(Second,)15 b(glob)e(only)h(returns)j(the)e
+(names)f(of)g(\014les)h(that)f(actually)75 637 y(exist;)g(in)f(csh)i
+(no)f(c)o(hec)o(k)g(for)g(existence)i(is)d(made)g(unless)i(a)e(pattern)
+i(con)o(tains)f(a)f(?,)g Fs(*)p FB(,)h(or)f Fs([])p FB(construct.)75
+765 y Fs(\(getcwd)20 b Fz(string)t Fs(\))1280 b FB(pro)q(cedure)75
+841 y Fs(Getcwd)13 b FB(returns)i(a)f(string)g(con)o(taining)e(the)j
+(curren)o(t)g(w)o(orking)e(directory)m(.)75 969 y Fs(\(chdir)21
+b Fz(string)t Fs(\))1301 b FB(pro)q(cedure)75 1045 y
+Fs(Chdir)13 b FB(c)o(hanges)h(the)h(curren)o(t)g(directory)g(to)f(the)g
+(directory)h(giv)o(en)e(in)h Fz(string)s FB(.)75 1173
+y Fs(\(getpid)20 b Fz(string)t Fs(\))1280 b FB(pro)q(cedure)75
+1250 y(Returns)15 b(the)g(system)g(pro)q(cess)h(n)o(um)o(b)q(er)e(of)g
+(the)h(curren)o(t)h Fx(STk)f FB(in)o(terpreter)h(\(i.e.)k(the)15
+b(Unix)f Fz(pid)p FB(\).)20 b(Result)15 b(is)75 1300
+y(an)f(in)o(teger.)75 1427 y Fs(\(system)20 b Fz(string)t
+Fs(\))1280 b FB(pro)q(cedure)75 1477 y Fs(\(!)21 b Fz(string)t
+Fs(\))1389 b FB(pro)q(cedure)75 1554 y(Sends)13 b(the)g(giv)o(en)f
+Fz(string)j FB(to)d(the)h(system)f(shell)g Fz(/bin/sh)t
+FB(.)17 b(The)c(result)g(of)e Fs(system)g FB(is)h(the)h(in)o(teger)g
+(status)g(co)q(de)75 1603 y(the)h(shell)g(returns.)75
+1731 y Fs(\(exec)21 b Fz(string)t Fs(\))1323 b FB(pro)q(cedure)75
+1808 y(Executes)23 b(the)e(command)d(con)o(tained)j(in)f
+Fz(string)k FB(and)d(redirects)h(its)f(output)g(in)f(a)h(string.)39
+b(This)20 b(string)75 1857 y(constitutes)15 b(the)g(result)f(of)g
+Fs(exec)p FB(.)75 1985 y Fs(\(getenv)20 b Fz(string)t
+Fs(\))1280 b FB(pro)q(cedure)75 2058 y(Lo)q(oks)17 b(for)h(the)g(en)o
+(vironmen)o(t)f(v)n(ariable)f(named)h Fz(string)j FB(and)e(returns)h
+(its)f(v)n(alue)f(as)h(a)f(string,)h(if)f(it)g(exists.)75
+2103 y(Otherwise,)e Fs(getenv)d FB(returns)k Fs(#f)p
+FB(.)153 2194 y Fr(\(getenv)h("SHELL"\))350 2240 y Fq(=)-6
+b Fl(\))19 b Fr("/bin/zsh")75 2453 y Fs(\(setenv!)h Fz(var)i(value)s
+Fs(\))1191 b FB(pro)q(cedure)75 2525 y(Sets)13 b(the)f(en)o(vironmen)o
+(t)f(v)n(ariable)g Fz(var)16 b FB(to)c Fz(value)s FB(.)18
+b Fz(V)m(ar)d FB(and)d Fz(value)j FB(m)o(ust)c(b)q(e)i(strings.)18
+b(The)12 b(result)h(of)e Fs(setenv!)75 2571 y FB(is)j(unde\014ned.)153
+2662 y Fr(\(getenv)j("SHELL"\))350 2707 y Fq(=)-6 b Fl(\))19
+b Fr("/bin/zsh")p eop
+%%Page: 31 31
+31 30 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(31)p 75 64 1763 2 v 75 179 a FE(6.16)56 b(Addresses)75
+256 y FB(An)12 b Fz(addr)n(ess)f FB(is)g(a)h(Sc)o(heme)f(ob)r(ject)h
+(whic)o(h)g(con)o(tains)f(a)g(reference)j(to)e(another)f(Sc)o(heme)h
+(ob)r(ject.)18 b(This)11 b(t)o(yp)q(e)h(can)75 305 y(b)q(e)f(view)o(ed)
+f(as)g(a)f(kind)h(of)f(p)q(oin)o(ter)h(to)g(a)g(Sc)o(heme)g(ob)r(ject.)
+17 b(Addresses,)c(ev)o(en)e(though)e(they)i(are)f(v)o(ery)g(dangerous,)
+75 355 y(ha)o(v)o(e)j(b)q(een)h(in)o(tro)q(duced)f(in)g
+Fx(STk)g FB(so)g(that)g(ob)r(jects)h(that)f(ha)o(v)o(e)g(no)g
+(\\readable")f(external)i(represen)o(tation)g(can)75
+405 y(still)g(b)q(e)h(transformed)e(in)o(to)h(strings)h(and)f(bac)o(k)h
+(without)f(loss)g(of)g(information.)j(Adresses)g(w)o(ere)e(useful)g
+(with)75 455 y(pre-3.0)f(v)o(ersion)g(of)f Fx(STk)p FB(;)h(their)g
+(usage)h(is)e(no)o(w)h FA(stongly)g(discouraged)p FB(,)d(unless)k(y)o
+(ou)e(kno)o(w)h(what)g(y)o(ou)f(do.)75 505 y(In)i(particular,)h(an)f
+(address)i(can)e(designate)h(an)f(ob)r(ject)i(at)e(a)g(time)f(and)i
+(another)g(one)f(later)h(\(i.e.)22 b(after)16 b(the)75
+554 y(garbage)e(collector)g(has)g(mark)o(ed)f(the)h(zone)h(as)f
+(free\).)75 604 y(Addresses)i(are)f(prin)o(ted)f(with)g(a)f(sp)q(ecial)
+i(syn)o(tax:)j Fs(#pNNN)p FB(,)12 b(where)j Fs(NNN)f
+FB(is)g(an)f(hexadecimal)g(v)n(alue.)k(Reading)75 654
+y(this)d(v)n(alue)f(bac)o(k)h(yields)g(the)g(original)e(ob)r(ject)j
+(whose)f(lo)q(cation)f(is)h Fs(NNN)p FB(.)75 760 y Fs(\(address-of)20
+b Fz(obj)6 b Fs(\))1241 b FB(pro)q(cedure)75 833 y(Returns)15
+b(the)f(address)h(of)f Fs(obj)p FB(.)75 939 y Fs(\(address?)20
+b Fz(obj)6 b Fs(\))1285 b FB(pro)q(cedure)75 1012 y(Returns)15
+b Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14 b(an)f(address;)i(returns)h
+Fs(#f)d FB(otherwise.)75 1129 y FE(6.17)56 b(Signals)75
+1206 y Fx(STk)13 b FB(allo)o(ws)e(the)i(use)g(to)f(asso)q(ciate)i
+(handlers)e(to)h(signals.)k(Signal)11 b(handlers)i(for)f(a)g(giv)o(en)g
+(signal)f(can)i(ev)o(en)g(b)q(e)75 1256 y(c)o(hained)i(in)f(a)h(list.)
+20 b(When)15 b(a)g(signal)f(o)q(ccurs,)i(the)f(\014rst)h(signal)d(of)i
+(the)g(list)f(is)h(executed.)23 b(Unless)16 b(this)e(signal)75
+1306 y(yields)g(the)i(sym)o(b)q(ol)d Fs(break)g FB(the)i(next)g(signal)
+f(of)g(the)h(list)g(is)f(ev)n(aluated.)20 b(When)15 b(a)f(signal)g
+(handler)h(is)f(called,)75 1355 y(the)g(in)o(teger)h(v)n(alue)e(of)g
+(this)h(signal)f(is)h(passed)h(to)f(it)f(as)h(\(the)h(only\))e
+(parameter.)75 1405 y(The)19 b(follo)o(wing)e(PO)o(XIX.1)h(constan)o
+(ts)i(for)f(signal)e(n)o(um)o(b)q(ers)i(are)g(de\014ned:)29
+b Fs(SIGABRT)p FB(,)17 b Fs(SIGALRM)p FB(,)g Fs(SIGFPE)p
+FB(,)75 1455 y Fs(SIGHUP)p FB(,)i Fs(SIGILL)p FB(,)g
+Fs(SIGINT)p FB(,)g Fs(SIGKILL)p FB(,)f Fs(SIGPIPE)p FB(,)h
+Fs(SIGQUIT)p FB(,)g Fs(SIGSEGV)p FB(,)f Fs(SIGTERM)p
+FB(,)h Fs(SIGUSR1)p FB(,)h Fs(SIGUSR2)p FB(,)75 1505
+y Fs(SIGCHLD)p FB(,)g Fs(SIGCONT)p FB(,)g Fs(SIGSTOP)p
+FB(,)f Fs(SIGTSTP)p FB(,)h Fs(SIGTTIN)p FB(,)g Fs(SIGTTOU)p
+FB(.)g(Moreo)o(v)o(er,)k(the)e(follo)o(wing)d(constan)o(ts,)75
+1555 y(whic)o(h)c(are)h(often)g(a)o(v)n(ailable)d(on)i(most)g(systems)g
+(are)h(also)f(de\014ned)1147 1540 y Fw(3)1167 1555 y
+FB(:)21 b Fs(SIGTRAP)p FB(,)14 b Fs(SIGIOT)p FB(,)f Fs(SIGEMT)p
+FB(,)h Fs(SIGBUS)p FB(,)75 1605 y Fs(SIGSYS)p FB(,)j
+Fs(SIGURG)p FB(,)f Fs(SIGCLD)p FB(,)h Fs(SIGIO)p FB(,)g
+Fs(SIGPOLL)p FB(,)f Fs(SIGXCPU)p FB(,)h Fs(SIGXFSZ)p
+FB(,)f Fs(SIGVTALRM)p FB(,)g Fs(SIGPROF)p FB(,)h Fs(SIGWINCH)p
+FB(,)75 1654 y Fs(SIGLOST)p FB(.)75 1704 y(See)11 b(y)o(our)f(Unix)f
+(do)q(cumen)o(tation)g(for)h(the)g(exact)h(meaning)d(of)h(eac)o(h)i
+(constan)o(t)f(or)g([5)o(].)17 b(Use)10 b(sym)o(b)q(olic)f(constan)o
+(ts)75 1754 y(rather)15 b(than)f(their)g(n)o(umeric)f(v)n(alue)g(if)g
+(y)o(ou)h(plan)f(to)h(p)q(ort)g(y)o(our)g(program)e(on)h(another)i
+(system.)75 1804 y(A)d(sp)q(ecial)h(signal,)e(managed)g(b)o(y)h(the)h
+(in)o(terpreter,)h(is)e(also)f(de\014ned:)19 b Fs(SIGHADGC)p
+FB(.)10 b(This)i(signal)f(is)h(raised)h(when)75 1854
+y(the)h(garbage)g(collector)g(phase)h(terminates.)75
+1904 y(When)h(the)g(in)o(terpreter)i(starts)f(running,)e(all)g(signals)
+g(are)h(sets)i(to)d(their)h(default)g(v)n(alue,)f(excepted)j
+Fs(SIGINT)75 1953 y FB(\(generally)c(b)q(ound)g(to)f
+Fs(C)p FB(on)o(trol-C\))g(whic)o(h)h(is)g(handled)g(sp)q(ecially)m(.)75
+2059 y Fs(\(set-signal-handl)o(er!)19 b Fz(sig)i(hand)r(ler)t
+Fs(\))894 b FB(pro)q(cedure)75 2132 y(Replace)14 b(the)h(handler)f(for)
+f(signal)g Fz(sig)k FB(with)d Fz(hand)r(ler)5 b FB(.)18
+b(Handler)c(can)g(b)q(e)144 2216 y(-)21 b Fs(#t)13 b
+FB(to)h(reset)h(the)g(signal)e(handler)h(for)f Fz(sig)18
+b FB(to)13 b(the)i(default)e(system)h(handler.)144 2299
+y(-)21 b Fs(#f)15 b FB(to)g(completly)e(ignore)i Fz(sig)k
+FB(\(Note)d(that)f(P)o(osix.1)f(states)j(that)e Fs(SIGKILL)f
+FB(and)h Fs(SIGSTOP)e FB(cannot)j(b)q(e)179 2349 y(caugh)o(t)e(or)g
+(ignored\).)144 2432 y(-)21 b(a)13 b(one)h(parameter)g(pro)q(cedure.)75
+2515 y(This)g(pro)q(cedure)i(returns)f(the)g(new)f(handler,)f(or)h
+(\(length)g(1\))g(handler)g(list,)f(asso)q(ciated)i(to)e
+Fz(sig)t FB(.)153 2603 y Fr(\(let*)18 b(\(\(x)136 b(#f\))291
+2648 y(\(handler)16 b(\(lambda)h(\(i\))i(\(set!)e(x)j(#t\)\)\)\))193
+2694 y(\(set-sign)o(al)o(-ha)o(ndl)o(er)o(!)d(|SIGHADG)o(C|)f
+(handler\))193 2740 y(\(gc\))p 75 2780 705 2 v 121 2807
+a Fp(3)139 2819 y Fo(Some)10 b(of)h(these)f(constan)o(ts)f(ma)o(y)i(b)q
+(e)g(unde\014ned)e(if)i(they)f(are)h(not)g(supp)q(orted)e(b)o(y)i(y)o
+(our)f(system)p eop
+%%Page: 32 32
+32 31 bop 75 47 a FA(32)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 193 179 a Fr(x\))350 224 y Fq(=)-6 b Fl(\))19
+b Fr(#t)75 418 y Fs(\(add-signal-handl)o(er!)g Fz(sig)i(hand)r(ler)t
+Fs(\))894 b FB(pro)q(cedure)75 492 y(Adds)18 b Fz(hand)r(ler)k
+FB(to)17 b(the)h(list)f(of)g(handlers)h(for)f(signal)g
+Fz(sig)s FB(.)29 b(If)17 b(the)h(old)f(signal)f(handler)h(is)h(a)f(b)q
+(o)q(olean,)g(this)75 542 y(pro)q(cedure)g(is)f(equiv)n(alen)o(t)e(to)h
+Fs(set-signal-handler!)o FB(.)20 b(Otherwise,)d(the)f(new)f(handler)h
+(is)f(added)h(in)f(fron)o(t)75 592 y(of)d(the)h(previous)g(list)f(of)g
+(handler.)17 b(This)c(pro)q(cedure)h(returns)g(the)f(new)g(handler,)g
+(or)f(handler)h(list,)f(asso)q(ciated)75 641 y(to)i Fz(sig)s
+FB(.)153 729 y Fr(\(let*)k(\(\(x)156 b('\(\)\))291 775
+y(\(handler1)16 b(\(lambda)h(\(i\))h(\(set!)g(x)h(\(cons)f(1)h
+(x\)\)\)\))291 821 y(\(handler2)d(\(lambda)h(\(i\))h(\(set!)g(x)h
+(\(cons)f(2)h(x\)\)\)\)\))193 866 y(\(add-sign)o(al)o(-ha)o(ndl)o(er)o
+(!)e(|SIGHADG)o(C|)f(handler1\))193 912 y(\(add-sign)o(al)o(-ha)o(ndl)o
+(er)o(!)h(|SIGHADG)o(C|)f(handler2\))193 958 y(\(gc\))193
+1003 y(x\))350 1049 y Fq(=)-6 b Fl(\))19 b Fr(\(1)g(2\))153
+1224 y(\(let*)f(\(\(x)156 b('\(\)\))291 1270 y(\(handler1)16
+b(\(lambda)h(\(i\))h(\(set!)g(x)h(\(cons)f(1)h(x\)\)\)\))291
+1316 y(\(handler2)d(\(lambda)h(\(i\))h(\(set!)g(x)h(\(cons)f(2)h(x\)\))
+g('break\)\))o(\))193 1361 y(\(add-sign)o(al)o(-ha)o(ndl)o(er)o(!)e
+(|SIGHADG)o(C|)f(handler1\))193 1407 y(\(add-sign)o(al)o(-ha)o(ndl)o
+(er)o(!)h(|SIGHADG)o(C|)f(handler2\))193 1453 y(\(gc\))193
+1498 y(x\))350 1544 y Fq(=)-6 b Fl(\))19 b Fr(\(2\))75
+1738 y Fs(\(get-signal-handl)o(ers)m(\))1126 b FB(pro)q(cedure)75
+1788 y Fs(\(get-signal-handl)o(ers)19 b Fz(sig)t Fs(\))1051
+b FB(pro)q(cedure)75 1861 y(Returns)21 b(the)g(handlers,)h(or)e(the)h
+(list)e(of)h(handlers,)i(asso)q(ciated)f(to)f(the)g(signal)g
+Fz(sig)s FB(.)37 b(If)20 b Fz(sig)j FB(is)d(omitted,)75
+1911 y Fs(get-signal-handle)o(rs)11 b FB(returns)k(a)f(v)o(ector)h(of)e
+(all)g(the)h(signal)f(handlers)h(curren)o(tly)h(in)e(e\013ect.)75
+2029 y FE(6.18)56 b(Hash)19 b(tables)75 2106 y FB(A)14
+b(hash)g(table)f(consists)i(of)e(zero)h(or)g(more)f(en)o(tries,)h(eac)o
+(h)g(consisting)g(of)f(a)g(k)o(ey)h(and)f(a)h(v)n(alue.)j(Giv)o(en)c
+(the)h(k)o(ey)75 2156 y(for)f(an)h(en)o(try)m(,)f(the)i(hashing)e
+(function)h(can)g(v)o(ery)g(quic)o(kly)f(lo)q(cate)g(the)i(en)o(try)m
+(,)e(and)h(hence)h(the)g(corresp)q(onding)75 2205 y(v)n(alue.)23
+b(There)17 b(ma)o(y)d(b)q(e)j(at)e(most)g(one)h(en)o(try)g(in)g(a)f
+(hash)h(table)g(with)g(a)f(particular)h(k)o(ey)m(,)f(but)h(man)o(y)e
+(en)o(tries)75 2255 y(ma)o(y)e(ha)o(v)o(e)i(the)g(same)f(v)n(alue.)75
+2305 y Fx(STk)i FB(hash)f(tables)h(gro)o(w)e(gracefully)h(as)g(the)h(n)
+o(um)o(b)q(er)f(of)g(en)o(tries)h(increases,)h(so)e(that)g(there)i(are)
+f(alw)o(a)o(ys)e(less)75 2355 y(than)18 b(three)i(en)o(tries)g(p)q(er)f
+(hash)g(buc)o(k)o(et,)g(on)g(a)o(v)o(erage.)31 b(This)19
+b(allo)o(ws)e(for)h(fast)g(lo)q(okups)g(regardless)i(of)e(the)75
+2405 y(n)o(um)o(b)q(er)13 b(of)g(en)o(tries)i(in)f(a)f(table.)75
+2490 y Fj(Note:)32 b Fq(Hash)14 b(table)g(manipulation)i(pro)q(cedures)
+f(are)e(built)i(up)q(on)f(the)f(e\016cien)o(t)h(Tcl)f(hash)h(table)g
+(pac)o(k)n(age.)75 2596 y Fs(\(make-hash-table)m(\))1213
+b FB(pro)q(cedure)75 2646 y Fs(\(make-hash-table)18 b
+Fz(c)n(omp)n(arison)s Fs(\))985 b FB(pro)q(cedure)75
+2695 y Fs(\(make-hash-table)18 b Fz(c)n(omp)n(arison)k(hash)s
+Fs(\))883 b FB(pro)q(cedure)75 2769 y Fs(Make-hash-table)15
+b FB(admits)i(three)j(di\013eren)o(t)f(forms.)30 b(The)19
+b(most)e(general)i(form)d(admit)h(t)o(w)o(o)h(argumen)o(ts.)75
+2819 y(The)c(\014rst)g(argumen)o(t)f(is)g(a)g(comparison)f(function)i
+(whic)o(h)f(determine)h(ho)o(w)f(k)o(eys)h(are)g(compared;)e(the)i
+(second)p eop
+%%Page: 33 33
+33 32 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(33)p 75 64 1763 2 v 75 179 a FB(argumen)o(t)15 b(is)h(a)f(function)h
+(whic)o(h)g(computes)f(a)h(hash)g(co)q(de)h(for)e(an)h(ob)r(ject)h(and)
+f(returns)h(the)g(hash)f(co)q(de)g(as)75 229 y(a)f(non)g(negativ)o(e)f
+(in)o(teger.)22 b(Ob)r(jets)17 b(with)d(the)i(same)e(hash)h(co)q(de)h
+(are)g(stored)g(in)e(an)h(A-list)g(registered)h(in)f(the)75
+278 y(buc)o(k)o(et)g(corresp)q(onding)f(to)g(the)h(k)o(ey)m(.)75
+328 y(If)f(omitted,)137 398 y Fk(\017)21 b Fs(hash)13
+b FB(defaults)h(to)f(the)i Fs(hash-table-hash)c FB(pro)q(cedure.)137
+474 y Fk(\017)21 b Fs(comparison)33 b FB(defaults)14
+b(to)g(the)g Fs(eq?)g FB(pro)q(cedure)75 540 y(Consequen)o(tly)m(,)153
+605 y Fr(\(define)j(h)j(\(make-has)o(h-)o(tab)o(le)o(\)\))75
+717 y FB(is)14 b(equiv)n(alen)o(t)f(to)153 782 y Fr(\(define)k(h)j
+(\(make-has)o(h-)o(tab)o(le)c(eq?)i(hash-table-)o(ha)o(sh\))o(\))75
+893 y FB(Another)d(in)o(teresting)f(example)f(is)153
+959 y Fr(\(define)k(h)j(\(make-has)o(h-)o(tab)o(le)c(string-ci=)o(?)g
+(string-leng)o(th)o(\)\))75 1070 y FB(whic)o(h)k(de\014nes)i(a)e(new)h
+(hash)g(table)f(whic)o(h)g(uses)i Fs(string-ci=?)36 b
+FB(for)20 b(comparing)e(k)o(eys.)38 b(Here,)23 b(w)o(e)e(use)75
+1116 y(the)d(string-length)g(as)g(a)f(\(v)o(ery)h(simple\))f(hashing)g
+(function.)29 b(Of)18 b(course,)h(a)e(function)h(whic)o(h)f(giv)o(es)h
+(a)f(k)o(ey)75 1161 y(dep)q(ending)e(of)g(the)g(c)o(haracters)i(comp)q
+(osing)c(the)i(string)g(giv)o(es)g(a)g(b)q(etter)h(repartition)f(and)f
+(should)h(probably)75 1207 y(enhance)f(p)q(erformances.)k(F)m(or)12
+b(instance,)i(the)f(follo)o(wing)d(call)i(to)h Fs(make-hash-table)c
+FB(should)k(return)h(a)e(more)75 1253 y(e\016cien)o(t,)i(ev)o(en)g(if)f
+(not)h(p)q(erfect,)h(hash)f(table:)153 1318 y Fr(\(make-hash-)o(ta)o
+(ble)232 1364 y(string-ci)o(=?)232 1409 y(\(lambda)j(\(s\))271
+1455 y(\(let)h(\(\(len)g(\(string-l)o(eng)o(th)e(s\)\)\))310
+1501 y(\(do)j(\(\(h)f(0\))39 b(\(i)19 b(0)g(\(+)g(i)g(1\)\)\))389
+1546 y(\(\(=)f(i)i(len\))e(h\))350 1592 y(\(set!)f(h)j(\(+)e(h)i
+(\(char->i)o(nte)o(ger)644 1638 y(\(char-dow)o(nca)o(se)c(\(string-re)o
+(f)g(s)k(i\)\)\)\)\)\)\)\))o(\))75 1753 y Fj(Note:)31
+b Fq(Hash)13 b(tables)g(with)f(a)g(comparison)i(function)g(equal)f(to)f
+Fr(eq?)e Fq(or)i Fr(string=?)i Fq(are)e(handled)i(in)f(an)f(more)g
+(e\016cien)o(t)75 1803 y(w)o(a)o(y)h(\(in)h(fact,)e(they)h(don't)h(use)
+f(the)g Fr(hash-table)o(-ha)o(sh)c Fq(fucn)o(tion)14
+b(to)f(sp)q(eed)h(up)g(hash)g(table)g(retriev)n(als\).)75
+1889 y Fs(\(hash-table?)19 b Fz(obj)6 b Fs(\))1220 b
+FB(pro)q(cedure)75 1963 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(obj)20 b FB(is)14 b(a)f(hash)i(table,)e(returns)i
+Fs(#f)f FB(otherwise.)75 2049 y Fs(\(hash-table-hash)k
+Fz(obj)6 b Fs(\))1133 b FB(pro)q(cedure)75 2123 y Fs(hash-table-hash)8
+b FB(computes)j(a)g(hash)h(co)q(de)g(for)f(an)g(ob)r(ject)h(and)f
+(returns)i(the)f(hash)f(co)q(de)h(as)g(a)e(non)i(negativ)o(e)75
+2173 y(in)o(teger.)18 b(A)c(prop)q(ert)o(y)h(of)e Fs(hash-table-hash)e
+FB(is)j(that)179 2242 y Fs(\(equal?)42 b(x)22 b(y\))13
+b FB(implies)f Fs(\(equal?)42 b(\(hash-table-hash)18
+b(x\))k(\(hash-table-hash)c(y\))75 2312 y FB(as)c(the)g(the)h(Common)c
+(Lisp)i Fs(sxhash)g FB(function)g(from)g(whic)o(h)g(this)h(pro)q
+(cedure)i(is)e(mo)q(deled.)75 2399 y Fs(\(hash-table-put!)k
+Fz(hash)23 b(key)f(value)s Fs(\))914 b FB(pro)q(cedure)75
+2472 y Fs(Hash-table-put!)17 b FB(en)o(ters)k(an)f(asso)q(ciation)f(b)q
+(et)o(w)o(een)i Fz(key)j FB(and)c Fz(value)j FB(in)c(the)i
+Fz(hash)i FB(table.)36 b(The)20 b(v)n(alue)75 2522 y(returned)c(b)o(y)d
+Fs(hash-table-put!)e FB(is)j(unde\014ned.)75 2608 y Fs
+(\(hash-table-get)19 b Fz(hash)j(key)t Fs(\))1049 b FB(pro)q(cedure)75
+2658 y Fs(\(hash-table-get)19 b Fz(hash)j(key)g(default)t
+Fs(\))906 b FB(pro)q(cedure)75 2728 y Fs(Hash-table-get)13
+b FB(returns)18 b(the)f(v)n(alue)f(asso)q(ciated)h(with)f
+Fz(key)k FB(in)c(the)h(giv)o(en)f Fz(hash)k FB(table.)25
+b(If)16 b(no)g(v)n(alue)f(has)75 2773 y(b)q(een)h(asso)q(ciated)g(with)
+f Fz(key)k FB(in)c Fz(hash)s FB(,)g(the)h(sp)q(eci\014ed)h
+Fz(default)i FB(is)c(returned)i(if)d(giv)o(en;)h(otherwise)h(an)f
+(error)h(is)75 2819 y(raised.)p eop
+%%Page: 34 34
+34 33 bop 75 47 a FA(34)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(define)j(h1)i(\(make-hash)o(-ta)o(bl)o
+(e\)\))153 224 y(\(hash-table)o(-p)o(ut!)d(h1)j('foo)f(\(list)f(1)j(2)f
+(3\)\))153 270 y(\(hash-table)o(-g)o(et)36 b(h1)19 b('foo\))350
+316 y Fq(=)-6 b Fl(\))19 b Fr(\(1)g(2)g(3\))153 361 y(\(hash-table)o
+(-g)o(et)36 b(h1)19 b('bar)f('absent\))350 407 y Fq(=)-6
+b Fl(\))19 b Fr(absent)153 453 y(\(hash-table)o(-g)o(et)36
+b(h1)19 b('bar\))350 498 y Fq(=)-6 b Fl(\))19 b Ff(error)153
+544 y Fr(\(hash-table)o(-p)o(ut!)d(h1)j('\(a)f(b)h(c\))g('present\))153
+590 y(\(hash-table)o(-g)o(et)36 b(h1)19 b('\(a)f(b)h(c\))g('absent\))
+350 635 y Fq(=)-6 b Fl(\))19 b Fr('absent)153 727 y(\(define)e(h2)i
+(\(make-hash)o(-ta)o(bl)o(e)e(equal?\)\))153 772 y(\(hash-table)o(-p)o
+(ut!)f(h2)j('\(a)f(b)h(c\))g('present\))153 818 y(\(hash-table)o(-g)o
+(et)36 b(h2)19 b('\(a)f(b)h(c\)\))350 864 y Fq(=)-6 b
+Fl(\))19 b Fr('present)75 1049 y Fs(\(hash-table-remov)o(e!)g
+Fz(hash)j(key)t Fs(\))962 b FB(pro)q(cedure)75 1122 y
+Fz(hash)20 b FB(m)o(ust)15 b(b)q(e)i(a)f(hash)h(table)f(con)o(taining)f
+(an)h(en)o(try)h(for)f Fz(key)t FB(.)25 b Fs(Hash-table-remov)o(e!)13
+b FB(deletes)18 b(the)f(en)o(try)75 1172 y(for)d Fz(key)j
+FB(in)d Fz(hash)t FB(,)f(if)g(it)h(exists.)k(Result)c(of)g
+Fs(Hash-table-remo)o(ve!)h FB(is)f(unsp)q(eci\014ed.)153
+1259 y Fr(\(define)j(h)j(\(make-has)o(h-)o(tab)o(le)o(\)\))153
+1305 y(\(hash-table)o(-p)o(ut!)c(h)j('foo)f(\(list)g(1)h(2)g(3\)\))153
+1351 y(\(hash-table)o(-g)o(et)d(h)k('foo\))350 1396 y
+Fq(=)-6 b Fl(\))19 b Fr(\(1)g(2)g(3\))153 1442 y(\(hash-table)o(-r)o
+(emo)o(ve!)d(h)j('foo\))153 1488 y(\(hash-table)o(-g)o(et)d(h)k('foo)e
+('absent\))350 1533 y Fq(=)-6 b Fl(\))19 b Fr(absent)75
+1727 y Fs(\(hash-table-for-e)o(ach)g Fz(hash)j(pr)n(o)n(c)r
+Fs(\))925 b FB(pro)q(cedure)75 1800 y Fz(Pr)n(o)n(c)23
+b FB(m)o(ust)e(b)q(e)h(a)f(pro)q(cedure)i(taking)d(t)o(w)o(o)h(argumen)
+o(ts.)40 b Fs(Hash-table-for-eac)o(h)18 b FB(calls)j
+Fz(pr)n(o)n(c)j FB(on)d(eac)o(h)75 1850 y(k)o(ey/v)n(alue)11
+b(asso)q(ciation)g(in)h Fz(hash)s FB(,)g(with)g(the)g(k)o(ey)g(as)g
+(the)g(\014rst)h(argumen)o(t)d(and)i(the)g(v)n(alue)f(as)h(the)h
+(second.)18 b(The)75 1900 y(v)n(alue)13 b(returned)j(b)o(y)d
+Fs(hash-table-for-each)d FB(is)k(unde\014ned.)75 1981
+y Fj(Note:)32 b Fq(The)13 b(order)h(of)f(application)j(of)d
+Fj(pr)n(o)n(c)h Fq(is)f(unsp)q(eci\014ed.)153 2060 y
+Fr(\(let)19 b(\(\(h)57 b(\(make-hash)o(-ta)o(bl)o(e\)\))271
+2106 y(\(sum)18 b(0\)\))193 2151 y(\(hash-tab)o(le)o(-pu)o(t!)e(h)j
+('foo)f(2\))193 2197 y(\(hash-tab)o(le)o(-pu)o(t!)e(h)j('bar)f(3\))193
+2243 y(\(hash-tab)o(le)o(-fo)o(r-e)o(ac)o(h)f(h)i(\(lambda)e(\(key)h
+(value\))683 2288 y(\(set!)g(sum)g(\(+)h(sum)f(value\)\)\)\))193
+2334 y(sum\))350 2380 y Fq(=)-6 b Fl(\))19 b Fr(5)75
+2565 y Fs(\(hash-table-map)g Fz(hash)j(pr)n(o)n(c)r Fs(\))1034
+b FB(pro)q(cedure)75 2638 y Fz(Pr)n(o)n(c)19 b FB(m)o(ust)e(b)q(e)h(a)f
+(pro)q(cedure)i(taking)e(t)o(w)o(o)g(argumen)o(ts.)28
+b Fs(Hash-table-map)14 b FB(calls)j Fz(pr)n(o)n(c)j FB(on)d(eac)o(h)h
+(en)o(try)g(in)75 2688 y Fz(hash)t FB(,)d(with)g(the)h(en)o(try's)f(k)o
+(ey)h(as)f(the)h(\014rst)g(argumen)o(t)e(and)h(the)h(en)o(try's)g(v)n
+(alue)f(as)g(the)h(second.)23 b(The)16 b(result)75 2738
+y(of)d Fs(hash-table-map)e FB(is)j(a)g(list)f(of)g(the)i(v)n(alues)e
+(returned)j(b)o(y)e Fz(pr)n(o)n(c)r FB(,)f(in)h(unsp)q(eci\014ed)h
+(order.)75 2819 y Fj(Note:)32 b Fq(The)13 b(order)h(of)f(application)j
+(of)d Fj(pr)n(o)n(c)h Fq(is)f(unsp)q(eci\014ed.)p eop
+%%Page: 35 35
+35 34 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(35)p 75 64 1763 2 v 153 179 a Fr(\(let)19 b(\(\(h)f(\(make-hash)o(-t)
+o(abl)o(e\))o(\)\))193 224 y(\(dotimes)e(\(i)j(5\))232
+270 y(\(hash-tab)o(le-)o(put)o(!)d(h)k(i)f(\(number->)o(str)o(in)o(g)e
+(i\)\)\))193 316 y(\(hash-tab)o(le)o(-ma)o(p)g(h)i(\(lambda)e(\(key)h
+(value\))605 361 y(\(cons)f(key)i(value\)\)\)\))350 407
+y Fq(=)-6 b Fl(\))19 b Fr(\(\(0)g(.)g("0"\))f(\(3)h(.)g("3"\))f(\(2)h
+(.)g("2"\))f(\(1)h(.)g("1"\))f(\(4)h(.)g("4"\)\))75 595
+y Fs(\(hash-table->list)f Fz(hash)s Fs(\))1087 b FB(pro)q(cedure)75
+665 y Fs(hash-table->list)8 b FB(returns)13 b(an)f(\\asso)q(ciation)e
+(list")h(built)g(from)f(the)i(en)o(tries)h(in)e Fz(hash)s
+FB(.)18 b(Eac)o(h)11 b(en)o(try)i(in)e Fz(hash)75 710
+y FB(will)i(b)q(e)j(represen)o(ted)i(as)d(a)f(pair)h(whose)g
+Fz(c)n(ar)k FB(is)c(the)g(en)o(try's)h(k)o(ey)f(and)g(whose)g
+Fz(c)n(dr)k FB(is)c(its)g(v)n(alue.)20 b Fj(Note:)36
+b Fq(The)75 756 y(order)13 b(of)g(pairs)h(in)g(the)f(resulting)i(list)g
+(is)e(unsp)q(eci\014ed.)153 836 y Fr(\(let)19 b(\(\(h)f(\(make-hash)o
+(-t)o(abl)o(e\))o(\)\))193 882 y(\(dotimes)e(\(i)j(5\))232
+928 y(\(hash-tab)o(le-)o(put)o(!)d(h)k(i)f(\(number->)o(str)o(in)o(g)e
+(i\)\)\))193 973 y(\(hash-tab)o(le)o(->l)o(ist)f(h\)\))350
+1019 y Fq(=)-6 b Fl(\))19 b Fr(\(\(0)g(.)g("0"\))f(\(3)h(.)g("3"\))f
+(\(2)h(.)g("2"\))f(\(1)h(.)g("1"\))f(\(4)h(.)g("4"\)\))75
+1207 y Fs(\(hash-table-stats)f Fz(hash)s Fs(\))1087 b
+FB(pro)q(cedure)75 1280 y Fs(Hash-table-stats)12 b FB(returns)17
+b(a)f(string)f(with)h(o)o(v)o(erall)e(information)f(ab)q(out)i
+Fz(hash)t FB(,)h(suc)o(h)g(as)g(the)g(n)o(um)o(b)q(er)f(of)75
+1330 y(en)o(tries)g(it)e(con)o(tains,)h(the)g(n)o(um)o(b)q(er)f(of)h
+(buc)o(k)o(ets)h(in)e(its)h(hash)g(arra)o(y)m(,)f(and)h(the)g
+(utilization)e(of)i(the)g(buc)o(k)o(ets.)75 1450 y FE(6.19)56
+b(Regular)18 b(expressions)75 1528 y FB(Regular)9 b(expressions)h(are)g
+(\014rst)g(class)g(ob)r(jects)g(in)f Fx(STk)p FB(.)17
+b(A)9 b(regular)h(expression)g(is)f(created)i(b)o(y)e(the)h
+Fs(string->regexp)75 1577 y FB(pro)q(cedure.)19 b(Matc)o(hing)12
+b(a)g(regular)g(expression)i(against)d(a)h(string)g(is)g(simply)f(done)
+h(b)o(y)g(applying)f(a)h(previously)75 1627 y(created)k(regular)f
+(expression)h(to)f(this)g(string.)20 b(Regular)14 b(expressions)j(are)e
+(implemen)o(ted)d(using)j(co)q(de)h(in)e(the)75 1677
+y(Henry)g(Sp)q(encer's)h(pac)o(k)n(age,)d(and)h(m)o(uc)o(h)f(of)g(the)i
+(description)f(of)g(regular)g(expressions)h(b)q(elo)o(w)f(is)g(copied)g
+(from)75 1727 y(his)h(man)o(ual.)75 1833 y Fs(\(string->regexp)19
+b Fz(string)t Fs(\))1105 b FB(pro)q(cedure)75 1907 y
+Fs(String->regexp)11 b FB(compiles)i(the)h Fz(string)j
+FB(and)d(returns)h(the)g(corresp)q(onding)f(regular)g(expression.)75
+1970 y(Matc)o(hing)f(a)h(regular)g(expression)h(against)e(a)g(string)h
+(is)g(done)g(b)o(y)g(applying)e(the)j(result)f(of)f Fs(string->regexp)
+75 2020 y FB(to)h(this)h(string.)21 b(This)14 b(application)f(yields)i
+(a)f(list)g(of)g(in)o(teger)h(couples)h(if)d(a)i(matc)o(hing)d(o)q
+(ccurs;)k(it)f(returns)h Fs(#f)75 2070 y FB(otherwise.)j(Those)13
+b(in)o(tegers)g(corresp)q(ond)h(to)f(indexes)g(in)f(the)h(string)g
+(whic)o(h)g(matc)o(h)e(the)i(regular)g(expression.)75
+2120 y(A)e(regular)g(expression)h(is)f(zero)h(or)f(more)f
+Fz(br)n(anches)p FB(,)h(separated)h(b)o(y)f(\\)p Fs(|)p
+FB(".)16 b(It)11 b(matc)o(hes)g(an)o(ything)f(that)h(matc)o(hes)75
+2170 y(one)j(of)f(the)i(branc)o(hes.)75 2220 y(A)i(branc)o(h)h(is)f
+(zero)h(or)f(more)f Fz(pie)n(c)n(es)p FB(,)h(concatenated.)29
+b(It)17 b(matc)o(hes)g(a)g(matc)o(h)f(for)h(the)g(\014rst,)h(follo)o(w)
+o(ed)e(b)o(y)h(a)75 2270 y(matc)o(h)c(for)g(the)i(second,)f(etc.)75
+2320 y(A)j(piece)h(is)e(an)h Fz(atom)g FB(p)q(ossibly)g(follo)o(w)o(ed)
+e(b)o(y)h(\\)p Fs(*)p FB(",)h(\\)p Fs(+)p FB(",)f(or)h(\\)p
+Fs(?)p FB(".)26 b(An)17 b(atom)e(follo)o(w)o(ed)h(b)o(y)g(\\)p
+Fs(*)p FB(")g(matc)o(hes)h(a)75 2370 y(sequence)f(of)d(0)g(or)h(more)f
+(matc)o(hes)g(of)g(the)i(atom.)h(An)e(atom)e(follo)o(w)o(ed)g(b)o(y)h
+(\\)p Fs(+)p FB(")g(matc)o(hes)h(a)f(sequence)j(of)d(1)g(or)75
+2420 y(more)h(matc)o(hes)i(of)e(the)j(atom.)k(An)15 b(atom)f(follo)o(w)
+o(ed)g(b)o(y)h(\\)p Fs(?)p FB(")23 b(matc)o(hes)15 b(a)g(matc)o(h)f(of)
+h(the)h(atom,)e(or)h(the)h(n)o(ull)75 2469 y(string.)75
+2520 y(An)i(atom)e(is)h(a)g(regular)h(expression)h(in)e(paren)o(theses)
+j(\(matc)o(hing)c(a)h(matc)o(h)f(for)i(the)g(regular)g(expression\),)75
+2569 y(a)f Fz(r)n(ange)f FB(\(see)j(b)q(elo)o(w\),)e(\\)p
+Fs(.)p FB(")26 b(\(matc)o(hing)15 b(an)o(y)i(single)f(c)o(haracter\),)j
+(\\)p Fs(^)p FB(")d(\(matc)o(hing)f(the)i(n)o(ull)f(string)h(at)g(the)
+75 2619 y(b)q(eginning)f(of)h(the)g(input)g(string\),)h(\\)p
+Fs($)p FB(")e(\(matc)o(hing)f(the)j(n)o(ull)e(string)h(at)g(the)h(end)f
+(of)g(the)g(input)g(string\),)h(a)75 2669 y(\\)p Fs(\\)p
+FB(")c(follo)o(w)o(ed)f(b)o(y)h(a)h(single)f(c)o(haracter)i(\(matc)o
+(hing)d(that)h(c)o(haracter\),)i(or)f(a)f(single)g(c)o(haracter)i(with)
+e(no)h(other)75 2719 y(signi\014cance)f(\(matc)o(hing)e(that)i(c)o
+(haracter\).)75 2769 y(A)j Fz(r)n(ange)f FB(is)g(a)h(sequence)h(of)e(c)
+o(haracters)i(enclosed)g(in)e(\\)p Fs([])p FB(".)25 b(It)16
+b(normally)e(matc)o(hes)i(an)o(y)g(single)g(c)o(haracter)75
+2819 y(from)c(the)j(sequence.)21 b(If)13 b(the)i(sequence)h(b)q(egins)f
+(with)e(\\)p Fs(^)p FB(",)g(it)h(matc)o(hes)f(an)o(y)h(single)g(c)o
+(haracter)h Fz(not)g FB(from)d(the)p eop
+%%Page: 36 36
+36 35 bop 75 47 a FA(36)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a FB(rest)k(of)f(the)g(sequence.)30
+b(If)16 b(t)o(w)o(o)h(c)o(haracters)i(in)d(the)i(sequence)h(are)e
+(separated)i(b)o(y)d(\\)p Fs(-)p FB(",)h(this)g(is)g(shorthand)75
+229 y(for)d(the)i(full)d(list)i(of)f(ASCI)q(I)h(c)o(haracters)h(b)q(et)
+o(w)o(een)g(them)e(\(e.g.)21 b(\\)p Fs([0-9])p FB(")13
+b(matc)o(hes)h(an)o(y)g(decimal)g(digit\).)19 b(T)m(o)75
+278 y(include)e(a)g(literal)f(\\)p Fs(])p FB(")g(in)h(the)g(sequence,)j
+(mak)o(e)15 b(it)i(the)h(\014rst)g(c)o(haracter)g(\(follo)o(wing)c(a)j
+(p)q(ossible)g(\\)p Fs(^)p FB("\).)27 b(T)m(o)75 328
+y(include)14 b(a)g(literal)f(\\)p Fs(-)p FB(",)f(mak)o(e)h(it)g(the)i
+(\014rst)f(or)g(last)g(c)o(haracter.)75 378 y(In)k(general)g(there)h
+(ma)o(y)d(b)q(e)i(more)f(than)h(one)g(w)o(a)o(y)f(to)h(matc)o(h)f(a)g
+(regular)h(expression)h(to)f(an)f(input)h(string.)75
+428 y(Considering)e(only)g(the)h(rules)f(giv)o(en)g(so)h(far)f(could)g
+(lead)g(to)g(am)o(biguities.)23 b(T)m(o)15 b(resolv)o(e)i(those)g(am)o
+(biguities,)75 478 y(the)12 b(generated)i(regular)e(expression)h(c)o
+(ho)q(oses)g(among)c(alternativ)o(es)j(using)g(the)g(rule)g(\\\014rst)h
+(then)f(longest".)17 b(In)75 527 y(other)d(w)o(ords,)f(it)g(considers)h
+(the)g(p)q(ossible)f(matc)o(hes)g(in)g(order)h(w)o(orking)e(from)f
+(left)i(to)g(righ)o(t)g(across)h(the)g(input)75 577 y(string)h(and)f
+(the)i(pattern,)f(and)g(it)f(attempts)h(to)f(matc)o(h)g(longer)h
+(pieces)h(of)e(the)h(input)g(string)g(b)q(efore)g(shorter)75
+627 y(ones.)k(More)14 b(sp)q(eci\014cally)m(,)f(the)i(follo)o(wing)c
+(rules)j(apply)g(in)f(decreasing)i(order)g(of)e(priorit)o(y:)126
+702 y(1.)20 b(If)13 b(a)g(regular)h(expression)h(could)f(matc)o(h)e(t)o
+(w)o(o)h(di\013eren)o(t)i(parts)f(of)f(an)h(input)f(string)h(then)g(it)
+f(will)g(matc)o(h)179 752 y(the)h(one)g(that)g(b)q(egins)h(earliest.)
+126 831 y(2.)20 b(If)14 b(a)g(regular)g(expression)i(con)o(tains)e(\\)p
+Fs(|)p FB(")g(op)q(erators)h(then)g(the)g(leftmost)e(matc)o(hing)g
+(sub-expression)j(is)179 880 y(c)o(hosen.)126 959 y(3.)k(In)14
+b(\\)p Fs(*)p FB(",)e(\\)p Fs(+)p FB(",)h(and)h(\\)p
+Fs(?)p FB(")j(constructs,)f(longer)e(matc)o(hes)f(are)h(c)o(hosen)h(in)
+f(preference)i(to)e(shorter)h(ones.)126 1038 y(4.)20
+b(In)14 b(sequences)i(of)d(expression)i(comp)q(onen)o(ts)f(the)g(comp)q
+(onen)o(ts)g(are)g(considered)i(from)c(left)h(to)h(righ)o(t.)153
+1115 y Fr(\(define)j(r1)i(\(string->r)o(ege)o(xp)d("abc"\)\))153
+1161 y(\(r1)j("xyz"\))351 b Fq(=)-6 b Fl(\))19 b Fr(#f)153
+1206 y(\(r1)g("12abc345)o("\))252 b Fq(=)-6 b Fl(\))19
+b Fr(\(\(2)g(5\)\))153 1252 y(\(define)e(r2)i(\(string->r)o(ege)o(xp)d
+("[a-z]+"\)\))153 1298 y(\(r2)j("12abc345)o("\))252 b
+Fq(=)-6 b Fl(\))19 b Fr(\(\(2)g(5\)\))75 1424 y FB(If)14
+b(the)h(regular)f(expression)i(con)o(tains)e(paren)o(thesis,)i(and)e
+(if)g(there)h(is)f(a)h(matc)o(h,)d(the)j(result)h(returned)g(b)o(y)e
+(the)75 1474 y(application)h(will)h(con)o(tain)g(sev)o(eral)i(couples)f
+(of)f(in)o(tegers.)28 b(First)17 b(couple)g(will)f(b)q(e)h(the)g
+(indexes)h(of)e(the)i(\014rst)75 1524 y(longest)c(substring)h(whic)o(h)
+f(matc)o(h)f(the)i(regular)f(expression.)20 b(Subsequen)o(t)c(couples,)
+f(will)d(b)q(e)j(the)g(indexes)g(of)75 1574 y(all)e(the)h(sub-parts)h
+(of)e(this)h(regular)g(expression,)h(in)e(sequence.)153
+1650 y Fr(\(define)k(r3)i(\(string->r)o(ege)o(xp)d("\(a*\)\(b*\)c)o
+("\))o(\))153 1696 y(\(r3)j("abc"\))351 b Fq(=)-6 b Fl(\))19
+b Fr(\(\(0)g(3\))f(\(0)h(1\))g(\(1)g(2\)\))153 1742 y(\(r3)g("c"\))391
+b Fq(=)-6 b Fl(\))19 b Fr(\(\(0)g(1\))f(\(0)h(0\))g(\(0)g(0\)\))153
+1787 y(\(\(string->r)o(eg)o(exp)d("\([a-z]+\))o(,\([)o(a-)o(z]+)o
+(\)"\))g("XXabcd,e)o(XX")o(\))703 1833 y Fq(=)-6 b Fl(\))19
+b Fr(\(\(2)g(8\))f(\(2)h(6\))g(\(7)g(8\)\))75 2049 y
+Fs(\(regexp?)h Fz(obj)6 b Fs(\))1307 b FB(pro)q(cedure)75
+2123 y(Returns)15 b Fs(#t)e FB(if)g Fz(obj)20 b FB(is)14
+b(a)f(regular)h(expression)h(created)h(b)o(y)d Fs(string->regexp)p
+FB(;)e(otherwise)k(returns)g Fs(#f)p FB(.)153 2199 y
+Fr(\(regexp?)i(\(string->r)o(eg)o(exp)f("[a-zA-Z])o([a-)o(zA)o(-Z0)o
+(-9)o(]*")o(\)\))703 2245 y Fq(=)-6 b Fl(\))39 b Fr(#t)75
+2415 y Fs(\(regexp-replace)19 b Fz(p)n(attern)i(string)h(substitution)s
+Fs(\))726 b FB(pro)q(cedure)75 2465 y Fs(\(regexp-replace-a)o(ll)19
+b Fz(p)n(attern)i(string)h(substitution)s Fs(\))639 b
+FB(pro)q(cedure)75 2535 y Fs(Regexp-replace)13 b FB(matc)o(hes)i(the)h
+(regular)g(expression)h Fz(p)n(attern)h FB(against)d
+Fz(string)s FB(.)23 b(If)16 b(there)h(is)e(a)g(matc)o(h,)g(the)75
+2580 y(p)q(ortion)e(of)g Fz(string)j FB(whic)o(h)e(matc)o(h)e
+Fz(p)n(attern)k FB(is)e(replaced)g(b)o(y)f(the)h Fz(substitution)j
+FB(string.)h(If)13 b(there)i(is)e(no)g(matc)o(h,)75 2626
+y Fs(regexp-replace)j FB(returns)21 b Fz(string)h FB(unmo)q(di\014ed.)
+32 b(Note)19 b(that)g(the)h(giv)o(en)e Fz(p)n(attern)k
+FB(could)d(b)q(e)g(here)i(either)75 2672 y(a)16 b(string)f(or)h(a)g
+(regular)g(expression.)25 b(If)15 b Fz(p)n(attern)k FB(con)o(tains)d
+(strings)g(of)g(the)g(form)e(\\)p Fs(\\n)p FB(",)h(where)i
+Fz(n)f FB(is)g(a)f(digit)75 2728 y(b)q(et)o(w)o(een)e(1)e(and)g(9,)g
+(then)h(it)f(is)h(replaced)g(in)f(the)h(substitution)f(with)g(the)h(p)q
+(ortion)f(of)g(string)h(that)f(matc)o(hed)g(the)75 2773
+y Fz(n)p FB(-th)k(paren)o(thesized)i(sub)q(expression)f(of)e
+Fz(p)n(attern)p FB(.)20 b(If)15 b Fz(n)g FB(is)f(equal)h(to)f(0,)g
+(then)i(it)e(is)g(replaced)i(in)e Fz(substitution)75
+2819 y FB(with)g(the)g(p)q(ortion)g(of)f Fz(string)k
+FB(that)d(matc)o(hed)f Fz(p)n(attern)s FB(.)p eop
+%%Page: 37 37
+37 36 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(37)p 75 64 1763 2 v 153 179 a Fr(\(regexp-rep)o(la)o(ce)16
+b("a*b")i("aaabbccc)o(c")e("X"\))703 224 y Fq(=)-6 b
+Fl(\))19 b Fr("Xbcccc")153 270 y(\(regexp-rep)o(la)o(ce)d(\(string->r)o
+(ege)o(xp)g("a*b"\))h("aaabbcccc")f("X"\))703 316 y Fq(=)-6
+b Fl(\))19 b Fr("Xbcccc")153 361 y(\(regexp-rep)o(la)o(ce)d("\(a*\)b")h
+("aaabbcccc)o(")g("X\\\\1Y"\))703 407 y Fq(=)-6 b Fl(\))19
+b Fr("XaaaYbccc)o(c")153 453 y(\(regexp-rep)o(la)o(ce)d("\(a*\)b")h
+("aaabbcccc)o(")g("X\\\\0Y"\))703 498 y Fq(=)-6 b Fl(\))19
+b Fr("XaaabYbcc)o(cc)o(")153 544 y(\(regexp-rep)o(la)o(ce)d
+("\([a-z]*\))g(\([a-z]*\)")h("john)g(brown")h("\\\\2)g(\\\\1"\))703
+590 y Fq(=)-6 b Fl(\))19 b Fr("brown)e(john")75 719 y
+Fs(Regexp-replace)10 b FB(replaces)k(the)g(\014rst)g(o)q(ccurence)i(of)
+c Fz(p)n(attern)k FB(in)d Fz(string)s FB(.)18 b(T)m(o)12
+b(replace)i Fz(al)r(l)e FB(the)i(o)q(ccurences)i(of)75
+769 y(the)e Fz(p)n(attern)p FB(,)g(use)g Fs(regexp-replace-all)153
+856 y Fr(\(regexp-rep)o(la)o(ce)i("a*b")i("aaabbccc)o(c")e("X"\))703
+902 y Fq(=)-6 b Fl(\))19 b Fr("Xbcccc")153 948 y(\(regexp-rep)o(la)o
+(ce-)o(all)d("a*b")h("aaabbcccc")f("X"\))703 993 y Fq(=)-6
+b Fl(\))19 b Fr("XXcccc")75 1198 y FE(6.20)56 b(Pro)r(cesses)75
+1275 y Fx(STk)18 b FB(pro)o(vides)f(access)i(to)e(Unix)g(pro)q(cesses)j
+(as)d(\014rst)h(class)g(ob)r(jects.)29 b(Basically)m(,)17
+b(a)f(pro)q(cess)k(con)o(tains)d(four)75 1325 y(informations:)h(the)e
+(standard)g(Unix)f(pro)q(cess)i(iden)o(ti\014cation)d(\(ak)n(a)h(PID\))
+g(and)g(the)h(three)h(standard)e(\014les)h(of)75 1375
+y(the)e(pro)q(cess.)75 1480 y Fs(\(run-process)19 b Fz(c)n(ommand)k
+Fv(p)573 1486 y Fw(1)613 1480 y Fv(p)634 1486 y Fw(2)675
+1480 y Fv(p)696 1486 y Fw(3)736 1480 y Fv(:)7 b(:)g(:)e
+Fs(\))846 b FB(pro)q(cedure)75 1554 y Fs(run-process)13
+b FB(creates)k(a)e(new)h(pro)q(cess)h(and)f(run)f(the)h(executable)h
+(sp)q(eci\014ed)g(in)e Fz(c)n(ommand)5 b FB(.)22 b(The)16
+b Fz(p)i FB(corre-)75 1604 y(sp)q(ond)c(to)g(the)h(command)c(line)i
+(argumen)o(ts.)k(The)e(follo)o(wing)c(v)n(alues)j(of)f
+Fz(p)j FB(ha)o(v)o(e)e(a)g(sp)q(ecial)g(meaning:)137
+1687 y Fk(\017)21 b Fs(:input)10 b FB(p)q(ermits)h(to)h(redirect)h(the)
+f(standard)g(input)f(\014le)h(of)f(the)h(pro)q(cess.)19
+b(Redirection)12 b(can)f(come)g(from)179 1737 y(a)g(\014le)h(or)g(from)
+f(a)g(pip)q(e.)18 b(T)m(o)11 b(redirect)j(the)e(standard)h(input)e
+(from)g(a)g(\014le,)h(the)h(name)e(of)g(this)h(\014le)g(m)o(ust)f(b)q
+(e)179 1787 y(sp)q(eci\014ed)16 b(after)g Fs(:input)p
+FB(.)k(Use)15 b(the)h(sp)q(ecial)f(k)o(eyw)o(ord)g Fs(:pipe)f
+FB(to)h(redirect)h(the)g(standard)f(input)g(from)179
+1836 y(a)e(pip)q(e.)137 1920 y Fk(\017)21 b Fs(:output)13
+b FB(p)q(ermits)i(to)g(redirect)i(the)e(standard)h(output)f(\014le)g
+(of)g(the)h(pro)q(cess.)23 b(Redirection)16 b(can)f(go)g(to)179
+1970 y(a)g(\014le)g(or)h(to)f(a)g(pip)q(e.)22 b(T)m(o)15
+b(redirect)i(the)f(standard)g(output)f(to)h(a)f(\014le,)g(the)h(name)e
+(of)h(this)g(\014le)h(m)o(ust)e(b)q(e)179 2020 y(sp)q(eci\014ed)i
+(after)g Fs(:output)p FB(.)j(Use)d(the)g(sp)q(ecial)f(k)o(eyw)o(ord)g
+Fs(:pipe)f FB(to)h(redirect)h(the)g(standard)f(output)h(to)179
+2069 y(a)d(pip)q(e.)137 2153 y Fk(\017)21 b Fs(:error)11
+b FB(p)q(ermits)g(to)i(redirect)g(the)g(standard)g(error)g(\014le)f(of)
+g(the)h(pro)q(cess.)19 b(Redirection)12 b(can)h(go)e(to)i(a)e(\014le)
+179 2203 y(or)j(to)f(a)h(pip)q(e.)19 b(T)m(o)13 b(redirect)i(the)g
+(standard)f(error)h(to)f(a)f(\014le,)h(the)g(name)f(of)h(this)g(\014le)
+f(m)o(ust)g(b)q(e)i(sp)q(eci\014ed)179 2253 y(after)f
+Fs(:error)p FB(.)j(Use)d(the)h(sp)q(ecial)f(k)o(eyw)o(ord)g
+Fs(:pipe)f FB(to)g(redirect)j(the)e(standard)h(error)g(to)e(a)h(pip)q
+(e.)137 2336 y Fk(\017)21 b Fs(:wait)13 b FB(m)o(ust)g(b)q(e)i(follo)o
+(w)o(ed)e(b)o(y)h(a)g(b)q(o)q(olean)g(v)n(alue.)k(This)d(v)n(alue)e(sp)
+q(eci\014es)j(if)e(the)h(pro)q(cess)h(m)o(ust)d(b)q(e)i(run)179
+2386 y(async)o(hronously)f(or)g(not.)k(By)c(default,)f(the)h(pro)q
+(cess)i(is)e(run)g(async)o(hronously)g(\(i.e.)k Fs(:wait)12
+b FB(is)i Fs(#f)p FB(\).)137 2469 y Fk(\017)21 b Fs(:host)c
+FB(m)o(ust)g(b)q(e)i(follo)o(w)o(ed)e(b)o(y)h(a)g(string.)31
+b(This)18 b(string)g(represen)o(ts)j(the)e(name)e(of)h(the)h(mac)o
+(hine)e(on)179 2519 y(whic)o(h)e(the)i(command)c(m)o(ust)i(b)q(e)h
+(executed.)26 b(This)15 b(option)g(uses)i(the)g(external)f(command)d
+Fs(rsh)p FB(.)23 b(The)179 2569 y(shell)12 b(v)n(ariable)f
+Fs(PATH)h FB(m)o(ust)f(b)q(e)i(correctly)h(set)f(for)f(accessing)i(it)e
+(without)g(sp)q(ecifying)g(its)h(ab)q(olute)f(path.)75
+2648 y(The)f(follo)o(wing)d(example)h(launc)o(hes)i(a)f(pro)q(cess)i
+(whic)o(h)e(execute)j(the)e(Unix)f(command)d Fs(ls)j
+FB(with)g(the)h(argumen)o(ts)75 2694 y Fs(-l)i FB(and)h
+Fs(/bin)p FB(.)j(The)e(lines)e(prin)o(ted)i(b)o(y)e(this)h(command)d
+(are)k(stored)g(in)e(the)h(\014le)g Fs(/tmp/X)153 2773
+y Fr(\(run-proces)o(s)i("ls")j("-l")f("/bin")f(:output)g("/tmp/X")f
+(:wait)i(#f\))p eop
+%%Page: 38 38
+38 37 bop 75 47 a FA(38)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(\(process?)20 b Fz(pr)n(o)n(c)n(ess)s
+Fs(\))1215 b FB(pro)q(cedure)75 252 y(Returns)15 b Fs(#t)e
+FB(if)g Fz(pr)n(o)n(c)n(ess)k FB(is)d(a)g(pro)q(cess,)h(otherwise)g
+(returns)g Fs(#f)p FB(.)75 358 y Fs(\(process-alive?)k
+Fz(pr)n(o)n(c)n(ess)s Fs(\))1084 b FB(pro)q(cedure)75
+431 y(Returns)15 b Fs(#t)e FB(if)g Fz(pr)n(o)n(c)n(ess)k
+FB(if)c(the)i(pro)q(cess)g(is)f(curren)o(tly)h(running,)e(otherwise)i
+(returns)g Fs(#f)p FB(.)75 537 y Fs(\(process-pid)k Fz(pr)n(o)n(c)n
+(ess)s Fs(\))1150 b FB(pro)q(cedure)75 611 y(Returns)15
+b(an)e(in)o(teger)i(v)n(alue)e(whic)o(h)h(represen)o(ts)i(the)f(Unix)e
+(iden)o(ti\014cation)g(\(PID\))i(of)e Fz(pr)n(o)n(c)n(ess)s
+FB(.)75 716 y Fs(\(process-input)19 b Fz(pr)n(o)n(c)n(ess)s
+Fs(\))1106 b FB(pro)q(cedure)75 766 y Fs(\(process-output)19
+b Fz(pr)n(o)n(c)n(ess)s Fs(\))1084 b FB(pro)q(cedure)75
+816 y Fs(\(process-error)19 b Fz(pr)n(o)n(c)n(ess)s Fs(\))1106
+b FB(pro)q(cedure)75 890 y(Returns)13 b(the)f(\014le)g(p)q(ort)h(asso)q
+(ciated)f(to)g(the)h(standard)f(input,)g(output)g(or)g(error)h(of)e
+Fz(pr)n(o)n(c)n(ess)s FB(,)h(if)f(it)h(is)f(redirected)75
+939 y(in)k(\(or)h(to\))f(a)g(pip)q(e;)h(otherwise)g(returns)h
+Fs(#f)p FB(.)23 b(Note)16 b(that)f(the)h(returned)h(p)q(ort)f(is)f(op)q
+(ened)i(for)e(reading)g(when)75 989 y(calling)c Fs(process-output)f
+FB(or)i Fs(process-error)p FB(;)e(it)i(is)h(op)q(ened)g(for)g(writing)e
+(when)j(calling)d Fs(process-input)p FB(.)75 1145 y Fs(\(process-wait)
+19 b Fz(pr)n(o)n(c)n(ess)s Fs(\))1128 b FB(pro)q(cedure)75
+1218 y Fs(Process-wait)9 b FB(stops)k(the)g(curren)o(t)g(pro)q(cess)h
+(un)o(til)d Fz(pr)n(o)n(c)n(ess)k FB(completion.)h Fs(Process-wait)9
+b FB(returns)k Fs(#f)f FB(when)75 1268 y Fz(pr)n(o)n(c)n(ess)17
+b FB(is)d(already)f(terminated;)g(it)h(returns)h Fs(#t)e
+FB(otherwise.)75 1374 y Fs(\(process-exit-sta)o(tus)19
+b Fz(pr)n(o)n(c)n(ess)s Fs(\))975 b FB(pro)q(cedure)75
+1447 y Fs(Process-exit-stat)o(us)9 b FB(returns)14 b(the)f(exit)f
+(status)h(of)e Fz(pr)n(o)n(c)n(ess)16 b FB(if)11 b(it)h(has)g
+(\014nished)h(its)f(execution;)h(returns)h Fs(#f)75 1497
+y FB(otherwise.)75 1603 y Fs(\(process-send-sig)o(nal)19
+b Fz(pr)n(o)n(c)n(ess)i(n)s Fs(\))931 b FB(pro)q(cedure)75
+1676 y(Send)18 b(the)g(signal)e(whose)i(in)o(teger)g(v)n(alue)f(is)g
+Fz(n)k FB(to)c Fz(pr)n(o)n(c)n(ess)s FB(.)29 b(V)m(alue)17
+b(of)g Fz(n)j FB(is)e(system)f(dep)q(endan)o(t.)30 b(Use)18
+b(the)75 1726 y(de\014ned)c(signal)f(constan)o(ts)h(to)f(mak)o(e)f(y)o
+(our)h(program)f(indp)q(endan)o(t)i(of)e(the)i(running)f(system)h
+(\(see)g(6.17\).)j(The)75 1776 y(result)e(of)e Fz(pr)n(o)n(c)n
+(ess-send-signal)18 b FB(is)c(unde\014ned.)75 1882 y
+Fs(\(process-kill)19 b Fz(pr)n(o)n(c)n(ess)s Fs(\))1128
+b FB(pro)q(cedure)75 1951 y Fs(Process-kill)11 b FB(brutally)i(kills)f
+Fz(pr)n(o)n(c)n(ess)s FB(.)18 b(The)c(result)h(of)e Fs(process-kill)e
+FB(is)i(unde\014ned.)20 b(This)13 b(pro)q(cedure)j(is)75
+1997 y(equiv)n(alen)o(t)d(to)153 2076 y Fr(\(process-se)o(nd)o(-si)o
+(gna)o(l)j(process)h(|SIGTERM|\))75 2260 y Fs(\(process-stop)i
+Fz(pr)n(o)n(c)n(ess)s Fs(\))1128 b FB(pro)q(cedure)75
+2310 y Fs(\(process-continue)18 b Fz(pr)n(o)n(c)n(ess)s
+Fs(\))1041 b FB(pro)q(cedure)75 2380 y(Those)13 b(pro)q(cedures)j(are)d
+(only)f(a)o(v)n(ailable)f(on)i(systems)g(whic)o(h)f(supp)q(ort)i(job)f
+(con)o(trol.)k Fz(Pr)n(o)n(c)n(ess-stop)e FB(stops)f(the)75
+2425 y(execution)h(of)e Fz(pr)n(o)n(c)n(ess)k FB(and)d
+Fz(pr)n(o)n(c)n(ess-c)n(ontinue)j FB(resumes)d(its)g(execution.)19
+b(They)14 b(are)g(equiv)n(alen)o(t)g(to)153 2504 y Fr(\(process-se)o
+(nd)o(-si)o(gna)o(l)i(process)h(|SIGSTOP|\))153 2550
+y(\(process-se)o(nd)o(-si)o(gna)o(l)f(process)h(|SIGCONT|\))75
+2735 y Fs(\(process-list)m(\))1279 b FB(pro)q(cedure)75
+2808 y Fs(process-list)11 b FB(returns)16 b(the)e(list)g(of)f(pro)q
+(cesses)k(whic)o(h)c(are)i(curren)o(tly)f(running)g(\(i.e.)k(aliv)o
+(e\).)p eop
+%%Page: 39 39
+39 38 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(39)p 75 64 1763 2 v 75 179 a FE(6.21)56 b(So)r(c)n(k)n(ets)75
+256 y Fx(STk)20 b FB(de\014nes)i(so)q(c)o(k)o(ets,)g(on)e(systems)g
+(whic)o(h)g(supp)q(ort)h(them,)g(as)f(\014rst)h(class)f(ob)r(jects.)38
+b(So)q(c)o(k)o(ets)21 b(p)q(ermits)75 306 y(pro)q(cesses)d(to)d(comm)o
+(unicate)e(ev)o(en)j(if)f(they)g(are)h(on)f(di\013eren)o(t)h(mac)o
+(hines.)22 b(So)q(c)o(k)o(ets)16 b(are)g(useful)f(for)g(creating)75
+356 y(clien)o(t-serv)o(er)g(applications.)75 462 y Fs
+(\(make-client-sock)o(et)k Fz(hostname)j(p)n(ort-numb)n(er)t
+Fs(\))710 b FB(pro)q(cedure)75 536 y Fs(make-client-socke)o(t)16
+b FB(returns)k(a)e(new)h(so)q(c)o(k)o(et)h(ob)r(ject.)33
+b(This)19 b(so)q(c)o(k)o(et)g(establishes)h(a)e(link)g(b)q(et)o(w)o
+(een)i(the)75 586 y(running)14 b(application)e(listening)h(on)h(p)q
+(ort)g Fz(p)n(ort-numb)n(er)k FB(of)13 b Fz(hostname)t
+FB(.)75 695 y Fs(\(socket?)20 b Fz(so)n(cket)t Fs(\))1255
+b FB(pro)q(cedure)75 769 y(Returns)15 b Fs(#t)e FB(if)g
+Fz(so)n(cket)18 b FB(is)c(a)f(so)q(c)o(k)o(et,)i(otherwise)g(returns)g
+Fs(#f)p FB(.)75 877 y Fs(\(socket-host-name)j Fz(so)n(cket)t
+Fs(\))1059 b FB(pro)q(cedure)75 951 y(Returns)18 b(a)e(string)h(whic)o
+(h)g(con)o(tains)f(the)i(name)d(of)h(the)i(distan)o(t)e(host)h(attac)o
+(hed)h(to)e Fz(so)n(cket)5 b FB(.)26 b(If)17 b Fz(so)n(cket)j
+FB(has)75 1001 y(b)q(een)f(created)g(with)e Fs(make-client-sock)o(et)d
+FB(this)k(pro)q(cedure)h(returns)g(the)f(o\016cial)e(name)h(of)g(the)h
+(distan)o(t)75 1051 y(mac)o(hine)12 b(used)i(for)f(connection.)18
+b(If)13 b Fz(so)n(cket)k FB(has)d(b)q(een)g(created)h(with)d
+Fs(make-server-socket)p FB(,)e(this)j(function)75 1100
+y(returns)h(the)f(o\016cial)e(name)g(of)h(the)h(clien)o(t)g(connected)h
+(to)e(the)h(so)q(c)o(k)o(et.)19 b(If)12 b(no)g(clien)o(t)g(has)h(used)g
+(y)o(et)g(the)g(so)q(c)o(k)o(et,)75 1150 y(this)h(function)g(returns)h
+Fs(#f)p FB(.)75 1259 y Fs(\(socket-host-addr)o(ess)k
+Fz(so)n(cket)t Fs(\))993 b FB(pro)q(cedure)75 1333 y(Returns)16
+b(a)f(string)h(whic)o(h)f(con)o(tains)h(the)g(IP)f(n)o(um)o(b)q(er)g
+(of)g(the)h(distan)o(t)f(host)h(attac)o(hed)g(to)g Fz(so)n(cket)t
+FB(.)22 b(If)15 b Fz(so)n(cket)75 1383 y FB(has)f(b)q(een)h(created)h
+(with)e Fs(make-client-socke)o(t)d FB(this)j(pro)q(cedure)i(returns)g
+(the)f(IP)f(n)o(um)o(b)q(er)f(of)h(the)h(distan)o(t)75
+1432 y(mac)o(hine)d(used)i(for)f(connection.)18 b(If)13
+b Fz(so)n(cket)k FB(has)d(b)q(een)g(created)h(with)d
+Fs(make-server-socket)p FB(,)e(this)j(function)75 1482
+y(returns)i(the)f(address)g(of)f(the)g(clien)o(t)h(connected)h(to)e
+(the)g(so)q(c)o(k)o(et.)19 b(If)13 b(no)g(clien)o(t)g(has)g(used)h(y)o
+(et)g(the)g(so)q(c)o(k)o(et,)f(this)75 1532 y(function)h(returns)h
+Fs(#f)p FB(.)75 1641 y Fs(\(socket-local-add)o(ress)j
+Fz(so)n(cket)t Fs(\))972 b FB(pro)q(cedure)75 1714 y(Returns)15
+b(a)e(string)h(whic)o(h)g(con)o(tains)g(the)g(IP)g(n)o(um)o(b)q(er)g
+(of)f(the)h(lo)q(cal)f(host)i(attac)o(hed)f(to)g Fz(so)n(cket)t
+FB(.)75 1823 y Fs(\(socket-port-numb)o(er)19 b Fz(so)n(cket)t
+Fs(\))1015 b FB(pro)q(cedure)75 1897 y(Returns)15 b(the)f(in)o(teger)h
+(n)o(um)o(b)q(er)e(of)g(the)i(p)q(ort)f(used)g(for)g
+Fz(so)n(cket)t FB(.)75 2005 y Fs(\(socket-input)19 b
+Fz(so)n(cket)t Fs(\))1146 b FB(pro)q(cedure)75 2055 y
+Fs(\(socket-output)19 b Fz(so)n(cket)t Fs(\))1124 b FB(pro)q(cedure)75
+2129 y(Returns)14 b(the)f(\014le)g(p)q(ort)g(asso)q(ciated)g(for)f
+(reading)h(or)g(writing)e(with)i(the)g(program)e(connected)k(with)d
+Fz(so)n(cket)t FB(.)18 b(If)75 2179 y(no)c(connection)g(has)g(already)g
+(b)q(een)h(established,)f(these)h(functions)f(return)h
+Fs(#f)p FB(.)75 2225 y(The)g(follo)o(wing)c(example)i(sho)o(ws)i(ho)o
+(w)f(to)g(mak)o(e)f(a)h(clien)o(t)g(so)q(c)o(k)o(et.)20
+b(Here)c(w)o(e)f(create)g(a)f(so)q(c)o(k)o(et)i(on)e(p)q(ort)g(13)g(of)
+75 2271 y(the)g(mac)o(hine)f(\\)p Fs(kaolin.unice.fr)p
+FB(")680 2256 y Fw(4)696 2271 y FB(:)153 2351 y Fr(\(let)19
+b(\(\(s)f(\(make-clie)o(nt)o(-so)o(ck)o(et)e("kaolin.un)o(ice)o(.f)o
+(r")g(13\)\)\))193 2397 y(\(format)h(#t)38 b("Time)18
+b(is:)g(~A\\n")g(\(read-lin)o(e)f(\(socket-i)o(np)o(ut)f(s\)\)\))193
+2443 y(\(socket-s)o(hu)o(tdo)o(wn)36 b(s\)\))75 2631
+y Fs(\(make-server-sock)o(et)m(\))1148 b FB(pro)q(cedure)75
+2681 y Fs(\(make-server-sock)o(et)19 b Fz(p)n(ort-numb)n(er)t
+Fs(\))902 b FB(pro)q(cedure)p 75 2741 705 2 v 121 2768
+a Fp(4)139 2779 y Fo(P)o(ort)12 b(13)g(is)h(generally)d(used)i(for)g
+(testing:)17 b(making)10 b(a)j(connection)d(to)i(it)h(p)q(ermits)e(to)h
+(kno)o(w)h(the)f(distan)o(t)f(system's)g(idea)h(of)75
+2819 y(the)f(time)f(of)h(da)o(y)m(.)p eop
+%%Page: 40 40
+40 39 bop 75 47 a FA(40)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(make-server-socke)o(t)f FB(returns)18
+b(a)e(new)h(so)q(c)o(k)o(et)g(ob)r(ject.)25 b(If)16 b
+Fz(p)n(ort-numb)n(er)k FB(is)d(sp)q(eci\014ed,)g(the)g(so)q(c)o(k)o(et)
+g(is)f(lis-)75 229 y(tening)e(on)f(the)i(sp)q(eci\014ed)g(p)q(ort;)f
+(otherwise,)h(the)f(comm)o(unication)c(p)q(ort)15 b(is)e(c)o(ho)q(osen)
+i(b)o(y)f(the)g(system.)75 348 y Fs(\(socket-accept-co)o(nnect)o(ion)19
+b Fz(so)n(cket)t Fs(\))884 b FB(pro)q(cedure)75 424 y
+Fs(socket-accept-con)o(necti)o(on)16 b FB(w)o(aits)j(for)g(a)h(clien)o
+(t)f(connection)h(on)f(the)h(giv)o(en)f Fz(so)n(cket)t
+FB(.)35 b(If)19 b(no)g(clien)o(t)h(is)75 473 y(already)15
+b(w)o(aiting)g(for)g(a)g(connection,)i(this)e(pro)q(cedure)j(blo)q(c)o
+(ks)e(its)f(caller;)h(otherwise,)h(the)f(\014rst)h(connection)75
+523 y(request)c(on)e(the)h(queue)g(of)f(p)q(ending)g(connections)h(is)g
+(connected)h(to)e Fz(so)n(cket)t FB(.)17 b(This)11 b(pro)q(cedure)j(m)o
+(ust)c(b)q(e)i(called)75 573 y(on)h(a)f(serv)o(er)j(so)q(c)o(k)o(et)f
+(created)g(with)f Fs(make-server-socke)o(t)p FB(.)i(The)e(result)h(of)e
+Fs(socket-accept-connec)o(tion)75 623 y FB(is)i(unde\014ned.)75
+671 y(The)e(follo)o(wing)e(exemple)h(is)h(a)f(simple)g(serv)o(er)i
+(whic)o(h)f(w)o(aits)g(for)f(a)h(connection)g(on)g(the)h(p)q(ort)f
+(1234)1629 655 y Fw(5)1646 671 y FB(.)18 b(Once)13 b(the)75
+716 y(connection)h(with)e(the)i(distan)o(t)f(program)e(is)i
+(established,)g(w)o(e)g(read)h(a)e(line)h(on)f(the)i(input)f(p)q(ort)g
+(asso)q(ciated)h(to)75 762 y(the)g(so)q(c)o(k)o(et)h(and)f(w)o(e)g
+(write)g(the)h(length)f(of)f(this)h(line)f(on)h(its)g(output)g(p)q
+(ort.)153 848 y Fr(\(let)19 b(\(\(s)f(\(make-serv)o(er)o(-so)o(ck)o(et)
+e(1234\)\)\))193 894 y(\(socket-a)o(cc)o(ept)o(-co)o(nn)o(ect)o(io)o(n)
+h(s\))193 940 y(\(let)h(\(\(l)g(\(read-line)e(\(socket-i)o(npu)o(t)h
+(s\)\)\)\))232 985 y(\(format)g(\(socket-o)o(utp)o(ut)f(s\))j("Length)e
+(is:)h(~A\\n")g(\(string-l)o(eng)o(th)e(l\)\))232 1031
+y(\(flush)h(\(socket-ou)o(tpu)o(t)f(s\)\)\))193 1077
+y(\(socket-s)o(hu)o(tdo)o(wn)g(s\)\))75 1279 y Fs(\(socket-shutdown)i
+Fz(so)n(cket)t Fs(\))1081 b FB(pro)q(cedure)75 1329 y
+Fs(\(socket-shutdown)18 b Fz(so)n(cket)k(close)s Fs(\))973
+b FB(pro)q(cedure)75 1404 y Fs(Socket-shutdown)10 b FB(sh)o(utdo)o(wns)
+k(the)f(connection)h(asso)q(ciated)g(to)f Fz(so)n(cket)t
+FB(.)18 b Fz(Close)e FB(is)d(a)g(b)q(o)q(olean;)f(it)h(indicates)75
+1454 y(if)j(the)h(so)q(c)o(k)o(et)h(m)o(ust)e(b)q(e)h(close)g(or)g
+(not,)g(when)g(the)h(connection)f(is)g(dstro)o(y)o(ed.)27
+b(Closing)16 b(the)h(so)q(c)o(k)o(et)h(forbids)75 1504
+y(further)c(connections)h(on)e(the)h(same)f(p)q(ort)h(with)f(the)h
+Fs(socket-accept-conn)o(ectio)o(n)d FB(pro)q(cedure.)19
+b(Omitting)75 1554 y(a)14 b(v)n(alue)f(for)g Fz(close)k
+FB(implies)12 b(the)j(closing)e(of)g(so)q(c)o(k)o(et.)19
+b(The)c(result)f(of)f Fs(socket-shutdown)e FB(is)j(unde\014ned.)75
+1601 y(The)f(follo)o(wing)d(example)h(sho)o(ws)i(a)f(simple)f(serv)o
+(er:)19 b(when)13 b(there)g(is)g(a)f(new)h(connection)g(on)f(the)h(p)q
+(ort)g(n)o(um)o(b)q(er)75 1647 y(1234,)k(the)h(serv)o(er)g(displa)o(ys)
+f(the)h(\014rst)g(line)f(sen)o(t)h(to)f(it)g(b)o(y)g(the)h(clien)o(t,)f
+(discards)h(the)g(others)h(and)e(go)f(bac)o(k)75 1693
+y(w)o(aiting)c(for)i(further)h(clien)o(t)f(connections.)153
+1779 y Fr(\(let)19 b(\(\(s)f(\(make-serv)o(er)o(-so)o(ck)o(et)e
+(1234\)\)\))193 1825 y(\(let)i(loop)g(\(\))232 1871 y(\(socket-a)o(cce)
+o(pt-)o(co)o(nne)o(ct)o(ion)e(s\))232 1916 y(\(format)h(#t)i("I've)e
+(read:)h(~A\\n")g(\(read-lin)o(e)e(\(socket-inp)o(ut)g(s\)\)\))232
+1962 y(\(socket-s)o(hut)o(dow)o(n)g(s)k(#f\))232 2008
+y(\(loop\)\)\))75 2210 y Fs(\(socket-down?)f Fz(so)n(cket)t
+Fs(\))1146 b FB(pro)q(cedure)75 2285 y(Returns)14 b Fs(#t)f
+FB(if)g Fz(so)n(cket)k FB(has)c(b)q(een)i(previously)e(closed)h(with)f
+Fs(socket-shutdown)p FB(.)i(It)e(returns)i Fs(#f)e FB(otherwise.)75
+2405 y Fs(\(socket-dup)20 b Fz(so)n(cket)t Fs(\))1189
+b FB(pro)q(cedure)75 2476 y(Returns)13 b(a)e(cop)o(y)h(of)f
+Fz(so)n(cket)t FB(.)18 b(The)12 b(original)e(and)i(the)g(cop)o(y)g(so)q
+(c)o(k)o(et)g(can)h(b)q(e)f(used)h(in)o(terc)o(hangeably)m(.)j(Ho)o(w)o
+(ev)o(er,)75 2522 y(if)g(a)h(new)h(connection)f(is)g(accepted)i(on)e
+(one)g(so)q(c)o(k)o(et,)i(the)e(c)o(haracters)i(exc)o(hanged)f(on)f
+(this)g(so)q(c)o(k)o(et)h(are)g(not)75 2568 y(visible)f(on)h(the)g
+(other)g(so)q(c)o(k)o(et.)31 b(Duplicating)16 b(a)i(so)q(c)o(k)o(et)g
+(is)g(useful)g(when)g(a)g(serv)o(er)h(m)o(ust)e(accept)i(m)o(ultiple)75
+2613 y(sim)o(ultaneous)c(connections.)28 b(The)18 b(follo)o(wing)c
+(example)i(creates)i(a)f(serv)o(er)h(listening)f(on)f(p)q(ort)i(1234.)
+26 b(This)75 2659 y(serv)o(er)15 b(is)f(duplicated)g(and,)f(once)i(t)o
+(w)o(o)e(clien)o(ts)h(are)h(presen)o(t,)g(a)e(message)h(is)g(sen)o(t)g
+(on)g(b)q(oth)g(connections.)p 75 2701 705 2 v 121 2728
+a Fp(5)139 2740 y Fo(Under)d(Unix,)i(y)o(ou)e(can)h(simply)f(connect)f
+(to)i(listening)f(so)q(c)o(k)o(et)g(with)h(the)g Fm(telnet)f
+Fo(command.)k(With)d(the)g(giv)o(en)f(example,)75 2779
+y(this)g(can)f(b)q(e)i(ac)o(hiv)o(ed)d(b)o(y)i(t)o(yping)f(the)h(follo)
+o(wing)e(command)g(in)i(a)h(windo)o(w)f(shell:)75 2819
+y Fm($)17 b(telnet)f(localhost)e(1234)p eop
+%%Page: 41 41
+41 40 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(41)p 75 64 1763 2 v 153 179 a Fr(\(define)17 b(s1)i(\(make-serv)o
+(er-)o(so)o(cke)o(t)d(1234\)\))153 224 y(\(define)h(s2)i(\(socket-du)o
+(p)e(s1\)\))153 270 y(\(socket-acc)o(ep)o(t-c)o(onn)o(ec)o(tio)o(n)f
+(s1\))153 316 y(\(socket-acc)o(ep)o(t-c)o(onn)o(ec)o(tio)o(n)g(s2\))153
+361 y(;;)j(blocks)f(until)f(two)i(clients)e(are)h(present)153
+407 y(\(display)f("Hello,\\n")f(\(socket-o)o(ut)o(put)g(s1\)\))153
+453 y(\(display)h("world\\n")36 b(\(socket-o)o(ut)o(put)16
+b(s2\)\))153 498 y(\(flush)i(\(socket-o)o(utp)o(ut)e(s1\)\))153
+544 y(\(flush)i(\(socket-o)o(utp)o(ut)e(s2\)\))75 696
+y Fs(\(when-socket-read)o(y)j Fz(so)n(cket)j(hand)r(ler)t
+Fs(\))879 b FB(pro)q(cedure)75 746 y Fs(\(when-socket-read)o(y)19
+b Fz(so)n(cket)t Fs(\))1037 b FB(pro)q(cedure)75 819
+y(De\014nes)19 b(a)f(handler)g(for)g Fz(so)n(cket)t FB(.)30
+b(The)19 b(handler)f(is)g(a)f(th)o(umk)g(whic)o(h)h(is)g(executed)i
+(when)e(a)g(connection)h(is)75 869 y(a)o(v)n(ailable)12
+b(on)i Fz(so)n(cket)5 b FB(.)19 b(If)14 b(the)h(sp)q(ecial)g(v)n(alue)f
+Fs(#f)g FB(is)g(pro)o(vided)g(as)h Fz(hand)r(ler)5 b
+FB(,)14 b(the)h(curren)o(t)h(handler)e(for)g Fz(so)n(cket)75
+919 y FB(is)20 b(deleted.)37 b(If)20 b(a)g(handler)g(is)g(pro)o(vided,)
+h(the)f(v)n(alue)g(returned)i(b)o(y)d Fs(when-socket-ready)e
+FB(is)j(unde\014ned.)75 969 y(Otherwise,)15 b(it)e(returns)j(the)e
+(handler)g(curren)o(tly)h(asso)q(ciated)g(to)f Fz(so)n(cket)t
+FB(.)75 1014 y(This)i(pro)q(cedure,)i(in)e(conjonction)g(with)f
+Fs(socket-dup)g FB(p)q(ermits)g(to)h(build)f(m)o(ultiple-clien)o(ts)g
+(serv)o(ers)j(whic)o(h)75 1060 y(w)o(ork)c(async)o(hronously)m(.)j(Suc)
+o(h)e(a)e(serv)o(er)j(is)d(sho)o(wn)h(b)q(elo)o(w.)153
+1125 y Fr(\(define)j(p)j(\(make-ser)o(ve)o(r-s)o(oc)o(ket)c(1234\)\))
+153 1171 y(\(when-socke)o(t-)o(rea)o(dy)g(p)507 1217
+y(\(let)i(\(\(count)e(0\)\))546 1262 y(\(lambda)h(\(\))585
+1308 y(\(set!)h(count)f(\(+)i(count)f(1\)\))585 1354
+y(\(register)o(-co)o(nne)o(ct)o(ion)e(\(socket-d)o(up)g(p\))j
+(count\)\)\)\))153 1445 y(\(define)e(register-co)o(nn)o(ect)o(io)o(n)
+193 1491 y(\(let)h(\(\(sockets)e('\(\)\)\))232 1536 y(\(lambda)h(\(s)i
+(cnt\))271 1582 y(;;)g(Accept)e(connection)271 1628 y(\(socket-ac)o
+(cep)o(t-)o(con)o(ne)o(cti)o(on)f(s\))271 1673 y(;;)j(Save)f(socket)f
+(somewhere)f(to)j(avoid)f(GC)h(problems)271 1719 y(\(set!)f(sockets)f
+(\(cons)g(s)j(sockets\)\))271 1764 y(;;)f(Create)e(a)j(handler)c(for)j
+(reading)e(inputs)g(from)h(this)g(new)h(connectio)o(n)271
+1810 y(\(let)f(\(\(in)38 b(\(socket-i)o(npu)o(t)16 b(s\)\))389
+1856 y(\(out)i(\(socket-o)o(utp)o(ut)e(s\)\)\))310 1901
+y(\(when-port-)o(re)o(ada)o(bl)o(e)h(in)408 1947 y(\(lambda)g(\(\))448
+1993 y(\(let)h(\(\(l)g(\(read-line)e(in\)\)\))487 2038
+y(\(if)i(\(eof-objec)o(t?)e(l\))565 2084 y(;;)j(delete)e(current)g
+(handler)565 2130 y(\(when-port)o(-re)o(ada)o(bl)o(e)g(in)h(#f\))565
+2175 y(;;)h(Just)f(write)g(the)g(line)g(read)h(on)f(the)h(socket)565
+2221 y(\(begin)605 2267 y(\(format)d(out)j("On)f(#~A)h(-->)f(~A\\n")g
+(cnt)g(l\))605 2312 y(\(flush)f(out\)\)\)\)\)\))o(\)\)\))o(\))75
+2477 y FE(6.22)56 b(Miscellaneous)75 2553 y FB(This)14
+b(section)g(lists)g(the)h(primitiv)o(es)d(de\014ned)j(in)e
+Fx(STk)h FB(that)g(did)g(not)g(\014t)g(an)o(ywhere)g(else.)75
+2654 y Fs(\(eval)21 b Fk(h)p FB(expr)p Fk(i)q Fs(\))1379
+b FB(syn)o(tax)75 2704 y Fs(\(eval)21 b Fk(h)p FB(expr)p
+Fk(i)i(h)p FB(en)o(vironmen)o(t)p Fk(i)o Fs(\))1100 b
+FB(syn)o(tax)75 2773 y(Ev)n(aluates)20 b Fk(h)p FB(expr)p
+Fk(i)g FB(in)f(the)i(giv)o(en)e(en)o(vironmen)o(t.)34
+b Fk(h)p FB(En)o(vironmen)o(t)p Fk(i)19 b FB(ma)o(y)f(b)q(e)i(omitted,)
+f(in)h(whic)o(h)f(case)i(it)75 2819 y(defaults)14 b(to)g(the)g(global)e
+(en)o(vironmen)o(t.)p eop
+%%Page: 42 42
+42 41 bop 75 47 a FA(42)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(define)j(foo)i(\(let)f(\(\(a)g(1\)\))h
+(\(lambda)e(\(\))i(a\)\)\))153 224 y(\(foo\))450 b Fq(=)-6
+b Fl(\))19 b Fr(1)153 270 y(\(eval)f('\(set!)f(a)j(2\))f(\(procedu)o
+(re-)o(en)o(vir)o(onm)o(en)o(t)e(foo\)\))153 316 y(\(foo\))450
+b Fq(=)-6 b Fl(\))19 b Fr(2)75 489 y Fs(\(version)n(\))1388
+b FB(pro)q(cedure)75 562 y(returns)15 b(a)f(string)g(iden)o(tifying)e
+(the)j(curren)o(t)g(v)o(ersion)f(of)g Fx(STk)p FB(.)75
+661 y Fs(\(machine-type)m(\))1279 b FB(pro)q(cedure)75
+735 y(returns)15 b(a)d(string)i(iden)o(tifying)d(the)j(kind)e(of)h(mac)
+o(hine)f(whic)o(h)h(is)f(running)h(the)h(in)o(terpreter.)20
+b(The)13 b(form)e(of)i(the)75 784 y(result)i(is)e Fs
+([os-name]-[os-versi)o(on]-[)o(proce)o(ssor-)o(type])o
+FB(.)75 883 y Fs(\(random)20 b Fz(n)s Fs(\))1362 b FB(pro)q(cedure)75
+957 y(returns)15 b(an)f(in)o(teger)g(in)g(the)g(range)g(0,)g
+Fz(n)e Fk(\000)e FB(1)j(inclusiv)o(e.)75 1055 y Fs(\(set-random-seed!)
+18 b Fz(se)n(e)n(d)t Fs(\))1094 b FB(pro)q(cedure)75
+1129 y(Set)14 b(the)h(random)d(seed)j(to)f(the)h(sp)q(eci\014ed)g
+Fz(se)n(e)n(d)5 b FB(.)18 b Fs(Seed)13 b FB(m)o(ust)f(b)q(e)j(an)f(in)o
+(teger)g(whic)o(h)g(\014ts)g(in)g(a)f(C)h Fs(long)21
+b(int)p FB(.)75 1228 y Fs(\(eval-string)e Fz(string)j(envir)n(onment)t
+Fs(\))925 b FB(pro)q(cedure)75 1297 y(Ev)n(aluates)18
+b(the)h(con)o(ten)o(ts)h(of)e(the)h(giv)o(en)f Fz(string)k
+FB(in)c(the)h(giv)o(en)f Fz(envir)n(onment)k FB(and)d(returns)h(its)e
+(result.)33 b(If)75 1343 y Fz(envir)n(onment)18 b FB(is)c(omitted)f(it)
+h(defaults)g(to)g(the)g(global)f(en)o(vironmen)o(t.)k(If)d(ev)n
+(aluation)e(leads)j(to)e(an)h(error,)h(the)75 1388 y(result)g(of)e
+Fs(eval-string)e FB(is)j(unde\014ned.)153 1463 y Fr(\(define)j(x)j(1\))
+153 1508 y(\(eval-strin)o(g)c("\(+)j(x)g(1\)"\))350 1554
+y Fq(=)-6 b Fl(\))19 b Fr(2)153 1600 y(\(eval-strin)o(g)d("x")j(\(let)f
+(\(\(x)g(2\)\))h(\(the-envi)o(ron)o(me)o(nt\))o(\)\))350
+1645 y Fq(=)-6 b Fl(\))19 b Fr(2)75 1818 y Fs(\(read-from-string)f
+Fk(h)p FB(string)p Fk(i)q Fs(\))1033 b FB(pro)q(cedure)75
+1888 y(P)o(erforms)9 b(a)h(read)g(from)f(the)h(giv)o(en)g
+Fz(string)s FB(.)16 b(If)10 b Fz(string)j FB(is)d(the)g(empt)o(y)f
+(string,)h(an)g(end)g(of)g(\014le)g(ob)r(ject)g(is)g(returned.)75
+1933 y(If)k(an)f(error)i(o)q(ccurs)g(during)f(string)g(reading,)f(the)i
+(result)f(of)g Fs(read-from-strin)o(g)d FB(is)j(unde\014ned.)153
+2007 y Fr(\(read-from-)o(st)o(rin)o(g)j("123)h(456"\))350
+2053 y Fq(=)-6 b Fl(\))19 b Fr(123)153 2099 y(\(read-from-)o(st)o(rin)o
+(g)e(""\))350 2144 y Fq(=)-6 b Fl(\))19 b Fr(an)g(eof)f(object)75
+2318 y Fs(\(dump)j Fz(string)t Fs(\))1323 b FB(pro)q(cedure)75
+2391 y Fs(Dump)14 b FB(grabs)g(the)h(curren)o(t)h(con)o(tin)o(uation)28
+b(and)15 b(creates)h(an)e(image)f(of)h(the)h(curren)o(t)h
+Fx(STk)e FB(in)o(terpreter)j(in)d(the)75 2441 y(\014le)g(whose)g(name)e
+(is)i Fz(string)523 2426 y Fw(6)541 2441 y FB(.)k(This)c(image)d(can)j
+(b)q(e)g(used)h(later)e(to)h(restart)h(the)f(in)o(terpreter)h(from)d
+(the)i(sa)o(v)o(ed)75 2491 y(state.)19 b(See)c(the)f
+Fx(STk)g FB(man)f(page)g(ab)q(out)h(the)h Fs(-image)d
+FB(option)h(for)h(more)f(details.)75 2540 y Fj(Note:)32
+b Fq(Image)14 b(creation)g(cannot)g(b)q(e)f(done)h(if)f(Tk)g(is)g
+(initiali)q(zed)q(.)75 2639 y Fs(\(trace-var)20 b Fz(symb)n(ol)h(thunk)
+t Fs(\))1078 b FB(pro)q(cedure)75 2709 y Fs(Trace-var)11
+b FB(call)i(the)h(giv)o(en)f Fz(thunk)18 b FB(when)c(the)g(v)n(alue)f
+(of)f(the)i(v)n(ariable)e(denoted)j(b)o(y)e Fz(symb)n(ol)k
+FB(is)c(c)o(hanged.)p 75 2741 705 2 v 121 2768 a Fp(6)139
+2779 y Fo(Image)8 b(creation)g(is)j(not)f(y)o(et)f(implemen)o(ted)e(on)
+j(all)g(systems.)j(The)e(curren)o(t)d(v)o(ersion)h(\(3.1\))g(allo)o(ws)
+h(image)f(dumping)f(only)h(on)75 2819 y(some)h(platforms:)j(SunOs)e
+(4.1.x,)f(Lin)o(ux)h(1,)g(F)m(reeBsd)p eop
+%%Page: 43 43
+43 42 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(43)p 75 64 1763 2 v 153 179 a Fr(\(define)17 b(x)j(1\))153
+224 y(\(define)d(y)j(0\))153 270 y(\(trace-var)c('x)j(\(lambda)e(\(\))i
+(\(set!)e(y)j(1\)\)\))153 316 y(\(set!)e(x)h(2\))153
+361 y(\(cons)f(x)h(y\))350 407 y Fq(=)-6 b Fl(\))19 b
+Fr(\(2)g(.)g(1\))75 531 y Fj(Note:)32 b Fq(Sev)o(eral)14
+b(traces)f(can)g(b)q(e)g(asso)q(ciated)h(with)g(a)e(single)j(sym)o(b)q
+(ol.)j(They)13 b(are)g(executed)g(in)h(rev)o(erse)f(order)g(to)f(their)
+75 577 y(de\014nition.)20 b(F)m(or)12 b(instance,)j(the)e(execution)i
+(of)153 655 y Fr(\(begin)193 701 y(\(trace-va)o(r)h('z)j(\(lambda)e
+(\(\))i(\(display)e("One"\)\)\))193 747 y(\(trace-va)o(r)f('z)j
+(\(lambda)e(\(\))i(\(display)e("Two"\)\)\))193 792 y(\(set!)g(z)j
+(10\)\))75 921 y Fq(will)15 b(displa)o(y)g(the)e(string)h
+Fr("Two")d Fq(b)q(efore)i(the)g(string)i Fr("One")10
+b Fq(on)k(the)f(curren)o(t)g(output)h(p)q(ort.)75 1025
+y Fs(\(untrace-var)19 b Fz(symb)n(ol)t Fs(\))1155 b FB(pro)q(cedure)75
+1099 y(Deletes)15 b(all)e(the)h(traces)h(asso)q(ciated)g(to)f(the)g(v)n
+(ariable)f(denoted)i(b)o(y)e Fz(symb)n(ol)5 b FB(.)75
+1204 y Fs(\(error)21 b Fz(string)g Fv(str)q(ing)466 1210
+y Fw(1)507 1204 y Fv(obj)562 1210 y Fw(2)602 1204 y Fv(:)7
+b(:)g(:)e Fs(\))980 b FB(pro)q(cedure)75 1277 y Fs(error)14
+b FB(prin)o(ts)h(the)h Fz(obj)6 b FB(s)15 b(according)g(to)g(the)g(sp)q
+(eci\014cation)h(giv)o(en)e(in)h Fz(string)j FB(on)c(the)i(curren)o(t)g
+(error)g(p)q(ort)f(\(or)75 1327 y(in)e(an)g(error)h(windo)o(w)f(if)g
+(Tk)g(is)g(initialized\).)k(The)d(sp)q(eci\014cation)g(string)f(follo)o
+(ws)f(the)i(\\tilde)f(con)o(v)o(en)o(tions")g(of)75 1377
+y Fs(format)p FB(\(see)h(6.10\).)j(Once)e(the)g(message)e(is)h(prin)o
+(ted,)g(execution)g(returns)i(to)d(toplev)o(el.)75 1481
+y Fs(\(gc)o(\))1497 b FB(pro)q(cedure)75 1555 y(Runs)14
+b(the)g(garbage)g(collector.)k(See)d(6.17)e(for)g(the)i(signals)e(asso)
+q(ciated)i(to)e(garbage)h(collection.)75 1659 y Fs(\(gc-stats)n(\))1366
+b FB(pro)q(cedure)75 1733 y(Pro)o(vides)15 b(some)e(statistics)i(ab)q
+(out)f(curren)o(t)i(memory)11 b(usage.)19 b(This)c(pro)q(cedure)h(is)e
+(primarily)d(for)j(debugging)75 1783 y(the)g Fx(STk)h
+FB(in)o(terpreter,)g(hence)g(its)f(w)o(eird)g(prin)o(ting)f(format.)75
+1887 y Fs(\(expand-heap)19 b Fz(n)s Fs(\))1253 b FB(pro)q(cedure)75
+1961 y(Expand)14 b(the)g(heap)f(so)h(that)g(it)f(will)f(con)o(tains)h
+(at)g(least)h Fz(n)j FB(cells.)h(Normally)m(,)10 b(the)k(heap)g
+(automatically)d(gro)o(ws)75 2011 y(when)17 b(more)f(memory)e(is)j
+(needed.)28 b(Ho)o(w)o(ev)o(er,)17 b(using)g(only)f(automatic)f(heap)i
+(gro)o(wing)f(is)g(sometimes)f(v)o(ery)75 2060 y(p)q(enalizing.)h(This)
+11 b(is)g(particulary)f(true)i(for)e(programs)g(whic)o(h)g(uses)i(a)f
+(lot)f(of)g(temp)q(orary)g(data)h(\(whic)o(h)f(are)i(not)75
+2110 y(p)q(oin)o(ted)i(b)o(y)g(an)o(y)g(a)f(v)n(ariable\))h(and)f(a)h
+(small)e(amoun)o(t)g(of)i(global)e(data.)19 b(In)14 b(this)g(case,)h
+(the)f(garbage)g(collector)75 2160 y(will)d(b)q(e)j(often)e(called)h
+(and)f(the)i(heap)f(will)e(not)i(b)q(e)g(automatically)d(expanded)j
+(\(since)h(most)d(of)h(the)i(consumed)75 2210 y(heap)g(will)e(b)q(e)i
+(reclaimed)e(b)o(y)i(the)g(GC\).)f(This)g(could)g(b)q(e)h(anno)o(ying)f
+(ep)q(ecially)g(for)g(program)f(where)j(resp)q(onse)75
+2260 y(time)f(is)h(critical.)21 b(Using)14 b Fs(expand-heap)f
+FB(p)q(ermits)i(to)g(enlarge)g(the)h(heap)f(size)h(\(whic)o(h)f(is)g
+(set)h(to)e(20000)g(cells)75 2310 y(b)o(y)g(default\),)f(to)h(a)o(v)o
+(oid)e(those)j(con)o(tin)o(ual)e(calls)g(to)h(the)g(GC.)75
+2414 y Fs(\(get-internal-inf)o(o)m(\))1170 b FB(pro)q(cedure)75
+2488 y(Returns)15 b(a)e(7-length)h(v)o(ector)g(whic)o(h)g(con)o(tains)g
+(the)g(follo)o(wing)e(informations:)137 2570 y(0)21 b(total)13
+b(cpu)h(used)h(in)f(milli)o(-seconds)137 2653 y(1)21
+b(n)o(um)o(b)q(er)13 b(of)g(cells)h(curren)o(tly)h(in)f(use.)137
+2736 y(2)21 b(total)13 b(n)o(um)o(b)q(er)g(of)g(allo)q(cated)h(cells)
+137 2819 y(3)21 b(n)o(um)o(b)q(er)13 b(of)g(cells)h(used)h(since)g(the)
+f(last)g(call)f(to)h Fs(get-internal-info)p eop
+%%Page: 44 44
+44 43 bop 75 47 a FA(44)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 137 179 a FB(4)21 b(n)o(um)o(b)q(er)13
+b(of)g(gc)h(runs)137 268 y(5)21 b(total)13 b(time)f(used)j(in)f(the)g
+(gc)137 357 y(6)21 b(a)13 b(b)q(o)q(olean)h(indicating)f(if)g(Tk)g(is)h
+(initialized)75 510 y Fs(\(sort)21 b Fz(obj)h(pr)n(e)n(dic)n(ate)s
+Fs(\))1194 b FB(pro)q(cedure)75 581 y Fz(Obj)18 b FB(m)o(ust)11
+b(b)q(e)i(a)e(list)h(or)g(a)g(v)o(ector.)18 b Fs(Sort)11
+b FB(returns)j(a)e(cop)o(y)g(of)f Fz(obj)19 b FB(sorted)13
+b(according)f(to)g Fz(pr)n(e)n(dic)n(ate)r FB(.)18 b
+Fz(Pr)n(e)n(dic)n(ate)75 626 y FB(m)o(ust)13 b(b)q(e)i(a)f(pro)q
+(cedure)j(whic)o(h)d(tak)o(es)g(t)o(w)o(o)g(argumen)o(ts)g(and)g
+(returns)i(a)e(true)h(v)n(alue)f(if)f(the)i(\014rst)g(argumen)o(t)f(is)
+75 672 y(strictly)g(\\b)q(efore")g(the)h(second.)153
+757 y Fr(\(sort)j('\(1)h(2)g(-4)g(12)g(9)g(-1)g(2)g(3\))g(<\))703
+803 y Fq(=)-6 b Fl(\))19 b Fr(\(-4)g(-1)f(1)i(2)f(2)g(3)g(9)h(12\))153
+848 y(\(sort)e(#\("one")f("two")h("three")f("four"\))271
+894 y(\(lambda)g(\(x)i(y\))g(\(>)g(\(string-)o(len)o(gth)d(x\))j
+(\(string-l)o(en)o(gth)d(y\)\)\)\))703 940 y Fq(=)-6
+b Fl(\))19 b Fr(#\("three")d("four")i("one")f("two"\))89
+1138 y Fs(\(uncode)j Fz(form)s Fs(\))1285 b FB(pro)q(cedure)75
+1209 y(When)18 b Fx(STk)h FB(ev)n(aluates)f(an)g(expression)h(it)f
+(enco)q(des)i(it)d(so)h(that)h(further)g(ev)n(aluations)e(of)g(this)h
+(expression)75 1255 y(will)13 b(b)q(e)i(more)e(e\016cien)o(t.)20
+b(Since)15 b(enco)q(ded)h(forms)d(are)i(generally)f(di\016cult)g(to)g
+(read,)h Fs(uncode)e FB(can)h(b)q(e)h(used)h(to)75 1300
+y(\(re-\)obtain)e(the)g(original)e(form.)153 1385 y Fr(\(define)17
+b(\(foo)h(a)i(b\))212 1431 y(\(let)e(\(\(x)h(a\))g(\(y)g(\(+)f(b)i
+(1\)\)\))e(\(cons)f(x)j(y\)\)\))153 1522 y(\(procedure-)o(bo)o(dy)c
+(foo\))703 1568 y Fq(=)-6 b Fl(\))19 b Fr(\(lambda)e(\(a)i(b\))605
+1613 y(\(let)f(\(\(x)g(a\))h(\(y)g(\(+)g(b)g(1\)\)\))f(\(cons)g(x)h
+(y\)\)\))153 1659 y(\(foo)g(1)g(2\))372 b Fq(=)-6 b Fl(\))19
+b Fr(\(1)g(.)g(3\))153 1705 y(\(procedure-)o(bo)o(dy)d(foo\))703
+1750 y Fq(=)-6 b Fl(\))39 b Fr(\(lambda)17 b(\(a)h(b\))605
+1796 y(\(#let)f(\(x)i(y\))722 1842 y(\(#<local)e(a)i(@0,0\)>)742
+1887 y(\(#<global)d(+>)j(#<local)e(b)i(@0,1\)>)e(1\)\))644
+1933 y(\(#<global)f(cons>)i(#<local)f(x)i(@0,0\)>)958
+1979 y(#<local)e(y)i(@0,1\)>\)\)\))153 2070 y(\(uncode)e(\(procedure-)o
+(bo)o(dy)f(foo\)\))703 2116 y Fq(=)-6 b Fl(\))19 b Fr(\(lambda)e(\(a)i
+(b\))624 2161 y(\(let)f(\(\(x)h(a\))g(\(y)f(\(+)h(b)g(1\)\)\))g(\(cons)
+e(x)i(y\)\)\))75 2295 y Fj(Note:)35 b Fq(When)15 b(a)f(macro)g(has)g(b)
+q(een)h(directly)g(expanded)h(in)o(to)f(the)f(macro)g(call)h(co)q(de,)f
+(it)g(is)g(not)h(p)q(ossible)h(to)d(retriev)o(e)75 2344
+y(the)g(original)j(macro)d(call.)18 b(Set)c Fr(*debug*)c
+Fq(to)j Fr(#t)f Fq(to)h(a)o(v)o(oid)h(macro)f(expansion)j(in-lining.)75
+2461 y Fs(\(time)21 b Fk(h)p FB(expr)p Fk(i)q Fs(\))1387
+b FB(macro)75 2536 y(Ev)n(aluates)12 b(the)h(expression)h
+Fk(h)p FB(expr)p Fk(i)f FB(in)f(the)h(curren)o(t)h(en)o(vironmen)o(t.)i
+(Prin)o(ts)d(the)g(elapsed)g(CPU)g(time)e(and)h(the)75
+2586 y(n)o(um)o(b)q(er)h(of)g(conses)j(used)f(b)q(efore)f(returning)h
+(the)f(result)h(of)e(this)h(ev)n(aluation.)75 2702 y
+Fs(\(apropos)20 b Fz(symb)n(ol)t Fs(\))1242 b FB(pro)q(cedure)75
+2773 y Fs(Apropos)15 b FB(returns)j(a)e(list)g(of)f(sym)o(b)q(ol)g
+(whose)i(prin)o(t)f(name)f(con)o(tains)h(the)h(c)o(haracters)h(of)e
+Fz(symb)n(ol)t FB(.)25 b(Sym)o(b)q(ols)75 2819 y(are)14
+b(searc)o(hed)i(for)d(in)h(the)g(curren)o(t)i(en)o(vironmen)o(t.)p
+eop
+%%Page: 45 45
+45 44 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(45)p 75 64 1763 2 v 169 137 a
+ 24865505 6578176 2433925 24141905 27299430 30720081 startTexFig
+ 169 137 a
+%%BeginDocument: Inspector.ps
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 472 string def
+
+% lower left corner
+37 367 translate
+
+% size of image (on paper, in 1/72inch coords)
+377.56800 100.00800 scale
+
+472 125 8			% dimensions of data
+[472 0 0 -125 0 125]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+86c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+86c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686868686
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686868686
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c4c486c4868686868686
+868686868686868686868686868686868686868686868686868686c4c4c486868686c4c4
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c3c3c3c3c3c3c3c3c35086865050
+86c3c3868686868686868686868686868686505086c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c4868686868686
+86868686868686868686868686868686868686868686868686868686c4c486868686c4c4
+868686868686868686868686868686868686868686868686868686868686868686c48686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686c3c3c3c3c3c3c3c3c3505086865050
+86c3c3868686868686868686868686868686505086c3c3c3c3c3c3c3c3c3c3c3c3c35050
+86865050
+c3c38686c35050505050505050505086865050c3c38686c4c486868686c4868686868686
+86868686868686868686868686868686868686868686868686868686c4c4868686868686
+8686868686868686868686868686868686868686868686868686868686868686c4c48686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868686868686865050
+86865050
+c3c38686505050505050505050505086865050c3c38686c4c48686868686868686c4c4c4
+c486c4c4c4c4c4868686c4c4c4c486c4c486c4c48686c4c4c4c48686c4c4868686c4c4c4
+c4c4c4c4c4868686c4c4c4c4c4c4c4c4c4868686c4c4c4c4868686c4c4c4c4c4c4c4c486
+86c4c4c4c486c4c486c4c4868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+86c3c3c3c3c3c3c3c3c3c3508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c3c3c3508686868686505086c3c386868686868686868686865050
+86865050
+c3c38686868686868686868686868686865050c3c38686c4c486868686868686c4c48686
+c4c486c4c486c4c486c4c48686c4c486c4c486c486c4c48686c4c486c4c486868686c4c4
+86c4c486c4c486c4c48686c486c4c486c4c486c4c48686c4c486c4c48686c486c4c48686
+c4c48686c4c486c4c486c486868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+86c3c3c3c3c3c3c3c3c350508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c3c350508686868686505086c3c386868686868686868686865050
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c48686c4c4c4c486c4c4c4c4
+c4c486c4c486c4c486c4c4c4c4c4c486c4c48686868686c4c4c4c486c4c486868686c4c4
+86c4c486c4c486c4c4c4c48686c4c486c4c486c4c4c4c4c4c486c4c486868686c4c48686
+c4c48686c4c486c4c48686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+86c3c38686868686868650508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3c38650508686868686505086c3c3c3c3c3c3c3c3c3508686865050
+86865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c38686c4c4868686c4c48686c4c48686
+868686c4c486c4c486c4c48686868686c4c4868686c4c48686c4c486c4c486868686c4c4
+86c4c486c4c48686c4c4c4c486c4c486c4c486c4c48686868686c4c486868686c4c48686
+c4c48686c4c486c4c4868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+86c3505050505050505050508686505086c3c38686c3c386868686868686505086865050
+86c3c38686868686c3505050508686868686505086c3c3c3c3c3c3c3c350508686865050
+86865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4c4c486
+86c486c4c486c4c486c4c4c48686c486c4c4868686c4c48686c4c486c4c486868686c4c4
+86c4c486c4c486c48686c4c486c4c486c4c486c4c4c48686c486c4c4c486c486c4c48686
+c4c48686c4c486c4c48686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8650505050505050505050508686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868650505050508686868686505086c3c386868686868650508686865050
+86865050
+c3c38686505050505050505050505086865050c3c386868686c4c4c4c486868686c4c4c4
+c486c4c4c486c4c4c486c4c4c4c486c4c4c4c4868686c4c4c486c4c4c4c4c48686c4c4c4
+c4c4c486c4c4c4c4c4c4c48686c4c4c4c4868686c4c4c4c4868686c4c4c4868686c4c486
+86c4c4c4c486c4c4c4c48686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686c3c386868686868686505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686c4c4868686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686c35050505050505050505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686c4c4868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686505050505050505050505086865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686c4c4c4c48686868686868686868686868686868686868686
+8686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c48686865050c3c386
+8686868686868686868686868686505086c3c38686868686868686868686868686865050
+86c3c3868686868686868686868686868686505086c3c386868686868650508686865050
+86865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050c35050
+5050505050505050505050505050505086c3505050505050505050505050505050505050
+86c350505050505050505050505050505050505086c35050505050505050505050505050
+50505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050508650505050505050505050505050505050505050
+865050505050505050505050505050505050505086505050505050505050505050505050
+50505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b433333333b4b43333b43333b43333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b43333b43333b4333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b433333333333333b43333b4b43333b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4333333333333b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b4b4b4b43333b43333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b43333b4b43333b43333b4333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b43333b4b433333333b4b43333b43333b43333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433
+33b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433
+33b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b4
+3333b4b433333333b4b4b433333333b4b433333333b4b433333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b4b433333333b4b43333b43333b4b43333b4b433333333b4b4b433333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b4
+3333b43333b4b43333b43333b4b43333b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b43333b4b43333b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b43333b4b43333b43333b4b4b4b4b4b43333b4b4333333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333
+b4b4b4b4b43333b43333b43333b4b43333b43333b4b43333b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b4333333333333b43333b4b4b4b4b4b43333b4b4b4b4333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b433b4
+b4b43333333333b43333b43333b4b43333b4333333333333b4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b4
+3333b43333b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4
+b43333b4b43333b43333b43333b4b43333b43333b4b4b4b4b4b4b4b4333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b4
+3333b43333b4b43333b43333b4b43333b4b43333b4333333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b43333b4b43333b43333b43333b4333333b43333b4b43333b43333b4b43333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b4
+3333b4b433333333b4b4b433333333b4b4b4b43333b4b433333333b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b4b4333333b433333333b4b43333b43333b4b433333333b4b4b433333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6cb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4cb4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433333333333333333333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4333333b4b4b4b4b4b4b4b4b4
+33b4b4333333b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b4b4b4b4b43333333333b433b4
+b4b433b4b4b4b4b4b4b4b4b4333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7f
+7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7ff2
+f2f2f2f27ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7ff27f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4333333b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433
+b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7ff27f7f7ff27f
+7f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7ff2
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433
+b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b433b4b4b4b4b4b4b433b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7ff27ff27f7f7f7f7f7f7ff2
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4
+b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b433b433b4b4b4b4b4b4b433333333b4b4b4b4
+33b4b4b433b4b4b4b4b4b433b43333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7ff27f7f
+7f7f7f7f7ff27f7f7f7f7ff2f27f7f7f7f7f7f7ff27f7f7f7ff27ff27f7f7f7f7f7f7ff2
+f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7ff27ff2f27f7f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b43333333333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b43333b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7f
+7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff2f27f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b433333333b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b433b4b4b4b4b4b433b4b4333333333333b4b4b4b4b4b433b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7ff2f2f2f2f2f27f7f7f7f7f7ff2
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b4b4b4
+33b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff2
+7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4b43333333333b4b4b4b4b4b433b4
+b4b4b4333333b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4333333b4b4b4b4
+33b4b4b433b4b4b4b4b4b4b4333333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7ff2f2f2f2f27f
+7f7f7f7f7ff27f7f7f7ff2f2f27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b43333333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4
+b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b433333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecececececececececececececececececececececececec
+b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6cb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececececececececececececececececececececececec6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4cb4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433333333333333333333b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff2f2f2f2f2f2f27f
+f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b433
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b433b4b4
+b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b433b433b4b433b4b4b433b433b4b4
+33b4b4b4b4333333b4b4b433b43333b4b4b4b43333b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7ff27f7f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27ff27f7ff27f7f
+7ff27ff27f7ff27f7f7f7ff2f2f27f7f7ff27ff2f27f7f7f7ff2f27ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4333333333333b4b4b4b4b43333b4b4b4b433b4b4b4b433b433b4b4b4
+b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b43333b43333b433b4b43333b43333
+b433b4b433b4b4b433b4b43333b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7ff2f2f2f2f2f27f7f7f7f7ff2f27f7f7f7ff27f7f7f7f
+f27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff2f27ff2f27ff27f
+7ff2f27ff2f27ff27f7ff27f7f7ff27f7ff2f27f7ff27f7ff27f7ff2f27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b43333333333b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b433b433b4b4b4b43333b4b4b4b4b4b433b4b4b4b43333b4b4b4b4
+b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b4b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7ff27ff27f7f7f7ff2f27f7f7f7f7f7ff27f7f7f7f
+f2f27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4333333333333b43333b4b4b4b4b4b4b4b433b4b4b4b43333b4b4b4b4
+3333333333b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b433333333b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7ff2f2f2f2f2f27ff2f27f7f7f7f7f7f7f7ff27f7f7f7f
+f2f27f7f7f7ff2f2f2f2f27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7ff2f2f2f27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b433333333b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b43333b4b4b4b4b4b433b4b4b4b433b433b4b4b4
+b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7ff2f27f7f7f7f7f7ff27f7f7f7f
+f27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b4b4b43333b4b4b4b433b4b4b4b433b4b433b4b4
+b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b433b4b433b4b433b4b433b4b433b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b433b4b4b4
+b433b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7f7f7ff2f27f7f7f7ff27f7f7f7f
+f27f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff2f27f7f7f7f7f7f7f
+7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4333333333333b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b433b4b4b433b4
+b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b433b4b433b4b433b4b433b4b433b4
+b433b4b4b4333333b433b433b4b4b433b4b4b43333b433b4b4b4b4b4b433b4b433b4b4b4
+b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+f27f7f7ff27f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f7ff27f7ff27f
+7ff27f7ff27f7ff27f7f7ff2f2f27ff27ff27f7f7ff27f7f7ff2f27ff27f7f7f7f7f7ff2
+7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b433b4b4b4b4b4b4b4b43333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b43333333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b433333333333333333333b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7fb2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b46cecb4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c
+b4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%EndDocument
+
+ endTexFig
+ 646 645 a FB(Figure)14 b(.1:)j(A)d(view)f(of)h(the)g(Insp)q(ector)153
+778 y Fr(\(apropos)j('cadd\))350 824 y Fq(=)-6 b Fl(\))19
+b Fr(\(caddar)e(caddr)h(cadddr\))75 1008 y Fs(\(inspect)i
+Fz(obj)6 b Fs(\))1307 b FB(pro)q(cedure)75 1081 y Fs(Inspect)15
+b FB(p)q(ermits)g(to)h(graphically)f(insp)q(ect)i(an)f(ob)r(ject.)25
+b(The)17 b(\014rst)g(call)e(of)h(this)g(pro)q(cedure)i(creates)g(a)e
+(top)75 1131 y(lev)o(el)g(windo)o(w)g(con)o(taining)g(the)h(ob)r(ject)h
+(to)e(insp)q(ect)i(and)f(its)f(curren)o(t)i(v)n(alue.)26
+b(If)17 b(the)g(insp)q(ector)h(windo)o(w)e(is)75 1181
+y(already)g(on)g(screen,)j Fz(obj)j FB(will)15 b(b)q(e)i(app)q(ended)h
+(to)e(the)h(list)f(of)g(insp)q(ected)i(ob)r(jects.)27
+b(The)17 b(insp)q(ector)g(windo)o(w)75 1230 y(con)o(tains)i(men)o(us)f
+(whic)o(h)g(p)q(ermit)g(to)g(call)g(the)i(view)o(er)f(or)f(detailer)h
+(on)g(eac)o(h)g(insp)q(ected)h(ob)r(ject.)33 b(See)20
+b(the)75 1280 y(on-line)13 b(do)q(cumen)o(tation)g(for)g(further)i
+(details.)j(A)c(view)g(of)f(the)h(general)g(insp)q(ector)h(is)f(giv)o
+(en)g(in)f(\014gure)h(1.)75 1330 y Fj(Note:)32 b Fq(Tk)13
+b(m)o(ust)g(b)q(e)h(initialize)q(d)i(to)d(use)g Fr(inspect)p
+Fq(.)75 1435 y Fs(\(view)21 b Fz(obj)6 b Fs(\))1372 b
+FB(pro)q(cedure)75 1509 y Fs(View)14 b FB(p)q(ermits)g(to)h(obtain)f(a)
+h(graphical)f(represen)o(tation)i(of)e(an)h Fx(STk)g
+FB(ob)r(ject.)22 b(The)15 b(t)o(yp)q(e)h(of)e(represen)o(tation)75
+1559 y(dep)q(ends)21 b(on)f(the)g(t)o(yp)q(e)g(of)g(the)g(view)o(ed)g
+(ob)r(ject.)36 b(Here)21 b(again,)f(men)o(us)f(are)h(pro)o(vided)g(to)f
+(switc)o(h)h(to)g(the)75 1608 y(insp)q(ector)d(or)f(to)g(the)h
+(detailer.)24 b(See)17 b(the)g(on-line)e(do)q(cumen)o(tation)g(for)h
+(more)f(details.)24 b(A)16 b(snapshot)g(of)g(the)75 1658
+y(view)o(er)e(is)g(giv)o(en)f(in)h(\014gure)g(2.)75 1708
+y Fj(Note:)32 b Fq(Tk)13 b(m)o(ust)g(b)q(e)h(initialize)q(d)i(to)d(use)
+g Fr(view)p Fq(.)75 1813 y Fs(\(detail)20 b Fz(obj)6
+b Fs(\))1329 b FB(pro)q(cedure)75 1887 y Fs(detail)9
+b FB(p)q(ermits)h(to)h(displa)o(y)e(the)j(\014elds)f(of)f(a)g(comp)q
+(osite)g(Sc)o(heme)g(ob)r(ject.)18 b(The)11 b(t)o(yp)q(e)g(of)f
+(detailer)g(dep)q(ends)j(on)75 1936 y(the)i(t)o(yp)q(e)f(of)g(the)g
+(comp)q(osite)g(ob)r(ject)g(detailed.)19 b(Here)c(again,)e(men)o(us)g
+(are)h(pro)o(vided)g(to)g(go)g(to)g(the)g(insp)q(ector)75
+1986 y(or)k(to)f(the)h(view)o(er.)30 b(See)19 b(the)f(on-line)f(do)q
+(cumen)o(tation)f(for)h(more)g(details.)29 b(Figure)18
+b(3)f(sho)o(ws)h(the)g(detailer)75 2036 y(examining)11
+b(a)j Fz(tk-c)n(ommand)p FB(.)75 2086 y Fj(Note:)32 b
+Fq(Tk)13 b(m)o(ust)g(b)q(e)h(initialize)q(d)i(to)d(use)g
+Fr(detail)p Fq(.)75 2191 y Fs(\(quit)21 b Fz(r)n(etc)n(o)n(de)s
+Fs(\))1303 b FB(pro)q(cedure)75 2241 y Fs(\(quit)o(\))1453
+b FB(pro)q(cedure)75 2291 y Fs(\(exit)21 b Fz(r)n(etc)n(o)n(de)s
+Fs(\))1303 b FB(pro)q(cedure)75 2341 y Fs(\(exit)o(\))1453
+b FB(pro)q(cedure)75 2390 y Fs(\(bye)21 b Fz(r)n(etc)n(o)n(de)s
+Fs(\))1325 b FB(pro)q(cedure)75 2440 y Fs(\(bye)o(\))1475
+b FB(pro)q(cedure)75 2514 y(Exits)20 b(the)h Fx(STk)g
+FB(in)o(terpreter)h(with)e(the)g(sp)q(eci\014ed)i(in)o(teger)f(return)g
+(co)q(de.)38 b(If)20 b(omitted,)g(the)h(in)o(terpreter)75
+2563 y(terminates)14 b(with)f(a)h(return)h(co)q(de)g(of)e(0.)p
+eop
+%%Page: 46 46
+46 45 bop 75 47 a FA(46)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 321 812 a
+ 20063436 19471401 2433925 11248680 22497361 30720081 startTexFig
+ 321 812 a
+%%BeginDocument: View.ps
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 381 string def
+
+% lower left corner
+37 171 translate
+
+% size of image (on paper, in 1/72inch coords)
+304.77600 295.99200 scale
+
+381 370 8			% dimensions of data
+[381 0 0 -370 0 370]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686868686865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686868686865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c4c4c48686c4c4c48686
+8686c4c4868686868686868686868686868686868686868686868686868686c4c4868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c3c3c3c3c3c3c3c3c3508686505086c3c386868686868686868686868686868650
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3c35086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c48686c4c48686
+8686c4c4868686868686868686868686868686c48686868686868686868686c4c4868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+8686c3c3c3c3c3c3c3c3c350508686505086c3c386868686868686868686868686868650
+5086c3c3c3c3c3c3c3c3c3c3c3c3c3505086865050
+c3c38686c35050505050505050505086865050c3c38686c4c486868686c4c486c4c48686
+868686868686868686868686868686868686c4c486868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686868686868686868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686505050505050505050505086865050c3c38686c4c486868686c4c486c4c4c4c4
+86c4c4c48686c4c4c4c4868686c4c4c4c4c4c4c4c4868686c4c4c48686c4c4c4c48686c4
+c4c4c486c4c4c486c4c4c486c4c486c4c4c4c486c4c486c4c4868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c38686c3c3c3c3c3c3c3c3c3c3508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3c3c350868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686868686868686868686868686865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c48686c4c486c4c48686c486c4c48686868686c4c48686c486c4c486c4c4
+8686c4c486c4c48686c48686c486c4c48686c4c486c4c486c486868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c38686c3c3c3c3c3c3c3c3c350508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3c35050868686868650
+5086c3c38686868686868686868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c4c4c4c4c486c4c486868686c4c4868686868686c4c486c486c4c486c4c4
+c4c4c4c48686c4c486c4c486c486c4c4c4c4c4c486c4c48686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c38686c3c38686868686868650508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c3c3865050868686868650
+5086c3c3c3c3c3c3c3c3c350868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c38686c4c486868686c4c486c4c486c4
+c486c4c486c4c48686868686c4c486868686c4c4868686868686c4c4c4c486c4c486c4c4
+868686868686c4c486c4c4c48686c4c48686868686c4c4868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c38686c3505050505050505050508686505086c3c3
+8686c3c38686868686868650508686505086c3c38686868686c350505050868686868650
+5086c3c3c3c3c3c3c3c35050868686505086865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4c486c4
+c486c4c486c4c4c48686c486c4c4c486c486c4c486868686868686c4c48686c4c486c4c4
+c48686c4868686c4c486c4c48686c4c4c48686c486c4c48686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868650505050505050505050508686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686865050505050868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686505050505050505050505086865050c3c386868686c4c4c4c4868686c486c4c4
+8686c4c48686c4c4c4c4868686c4c4c4868686c4c4868686868686c4c486c4c4c4c486c4
+c4c4c486868686c4c486c4c4868686c4c4c4c486c4c4c4c48686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+8686c3c38686868686868650508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686c4c48686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+8686c3505050505050505050508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686c4c48686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868650505050505050505050508686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+86c4c4868686868686868686868686868686868686868686868686868686868686868686
+86868686868686868686868686868686868686868686868686868686c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+8686868686868686868686868686868686868686868686868686868686c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3c3
+868686868686868686868686868686505086c3c386868686868686868686868686868650
+5086c3c38686868686865050868686505086865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+5050505050505050505050505050c350505050505050505050505050505050505086c350
+505050505050505050505050505050505086c35050505050505050505050505050505050
+5086c3505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050865050
+505050505050505050505050505050505086505050505050505050505050505050505050
+508650505050505050505050505050505050505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4333333b4b4b4b4b4b4b4b4b433b4b4333333b4b4b4b4b4b4b4b4b433b4b4b4b433b4
+b4b4b4b4b4b43333333333b433b4b4b433b4b4b4b4b4b4b4b4b4333333b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4333333b4b4b4b4b4b4b4
+b433b4b4b433b4b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b43333b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433b4b4b433b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b433333333b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b433b433b4
+b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b43333b4b4b4b4b4b4b433b4b4b4b433b433b4
+b4b4b4b4b4b433333333b4b4b4b433b4b4b433b4b4b4b4b4b433b43333b4b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b43333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b433b4
+b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b43333b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b4333333333333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4
+b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b4b4b4b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4333333333333
+b4b4b4b4b4b433b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b433b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4
+b4b4b4b4b4b433b4b4b433b4b4b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b4b4b43333b4b4b4b4b4b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4b4b4b4b4
+b43333333333b4b4b4b4b4b433b4b4b4b4333333b4b4b4b4b4b4b433b4b4b4b4b4b433b4
+b4b4b4b4b4b4b4333333b4b4b4b433b4b4b433b4b4b4b4b4b4b4333333b4b4b4b433b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b433b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f
+7ff2f2f27f7f7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f
+7f7f7f7f7ff2f2f2f2f27ff27f7f7ff27f7f7f7f7f7f7f7f7ff2f2f27f7ff27f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f
+f27f7f7ff27f7f7f7f7f7f7ff27f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7ff2f27f7f
+7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b43333b4b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7ff27ff27f7f
+7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7ff2f27f7f7f7f7f7f7ff27f7f7f7ff27ff27f7f
+7f7f7f7f7ff2f2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7ff27ff2f27f7f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7ff27f7f7f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f7f
+7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff2f27f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b4b43333333333b43333b43333b4b43333b4333333
+333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+7ff27f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7f
+7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4b43333b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7ff2f2f2f2f2f27f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b43333b43333b4333333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7f7f7f7ff27f7f
+7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4333333b433333333b4b43333b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27f7f7f7f7ff27f7f7f7f7f7f7f7f
+f2f2f2f2f27f7f7f7f7f7ff27f7f7f7ff2f2f27f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f
+7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7ff27f7f7f7f7f7f7ff2f2f27f7f7f7ff27f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b433333333
+b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b433
+33b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b43333b4b433
+33b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333333333
+33b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4b4
+b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b433
+33b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b433333333
+b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4b47db4b4b4b4b4b4b4ececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4ececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececec6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfd7d7d7db4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfdd17d7db4b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdfdd1d1d17d7db4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdfdd1d1d17d7db4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdd1d1d1d1d17d7db4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d17d7db4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d17d7db4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fd7d7d7d7d7d7d7d7d7d7d7d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cfd7d7d7d7d7d7d7d7d7d7d7d7d7d7dececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfdfdb4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfd7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b300000000000000000000000000000000000000000000000000000000b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000
+0000000000000000000000000000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000000000000000000000000000
+0000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+00b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b30000000000000000000000000000000000000000000000
+0000000000b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+0000b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+000000b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300
+b3b300b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000
+00b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3
+b3b3b300b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3
+b3b3b3b300b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3
+b3b3b3b3b300b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3
+b3b3b3b3b3b300b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3
+b3b3b3b3b3b3b300b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3
+b3b3b3b3b3b3b3b300b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5
+e5e5e500b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b30000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000000000000000000000000000
+0000000000000000000000000000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b30000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3b3b3b3b3b3b3b3b300b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3b3b3b3b3b3b3b300b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3b3b3b3b3b3b300b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3b3b3b3b3b300b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3b3b3b3b300b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b40000b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3b3b3b300b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300b3b300b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e5e5e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b30000b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b300000000000000000000000000000000000000000000000000000000b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b30000b3b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b300b3b300b3b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b300b3b3b3b300b3b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b300b3b3b3b3b3b300b3b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b300b3b3b3b3b3b3b3b300b3b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b300b3b3b3b3b3b3b3b3b3b300b3b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b300b3b3b3b3b3b3b3b3b3b3b3b300b3b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e500b300b3b3b3b3b3b3b3b3b3b3b3b3b3b300b300b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b400e5e5e5e5e5e5e5e5e500e5e5e5e5e5e5e5e5e500b3b3b3b3b3b3b3b3
+b3b3b3b3b3b3b3b3b3b300b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400e5e5e5e5
+e5e5e5e5e500e5e5e5e5e5e5e5e5e50000b3b3b3b3b3b3b3b3b3b3b3b3b3b3b3b30000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b40000000000000000000000000000000000000000000000000000000000
+0000000000000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000
+0000000000000000000000000000000000000000000000000000000000000000000000b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b400b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b400000000000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b40000b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b40000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b400000000b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ececb4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b46c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfdd1d1d1d1d1d1d1d1d17d7db4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cececb4b4b4b4
+b4b4b4b46c6cb4fdfd7d7d7d7d7d7d7d7d7d7d7db4b4b4b4b4b4b4b4b4b4b4b4b4fdb4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4fdfdb4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4fd7d7d7d7d7d7d7d7d7d7d7d7db4b4b4b4b4b4b4b4b4b4b4fdfd7dfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdb4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdb4b4b4b4b4b4b4b4b4fdfd7d7dfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfdfd
+fd7dfdfdfdfdfdb4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4fdfdfdfdfdfdfdfdfdfdfdfdfd7db4b4b4b4b4b4b4fdfdfdd17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1fdfdfdb4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4fdd1d1d1d1d1d1d1d1d17d7db4b4b4b4b4b4fdfdfdd1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1fdfdfdb4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4fdfdd1d1d1d1d1d1d1d17d7db4b4b4b4b4fdfdfdd1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1fdfdfdb4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdd1d1d1d1d1d1d17d7db4b4b4b4fdfdfdd1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d1fdfdfdb4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4fdfdd1d1d1d1d1d17db4b4b47d7d7dd1d1d1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d1d17d7d7dececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdd1d1d1d1d17d7db4b4b4b4b47d7d7dd1d1d1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d1d1d17d7d7db4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4fdfdd1d1d17d7db4b4b4b4b4b4b4b47d7d7dd1d1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d1d17d7d7db4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdd1d1d17d7db4b4b4b4b4b4b4b4b47d7d7dd1d1d17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d1d1d17d7d7db4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4fdfdd17d7db4b4b4b4b4b4b4b4b4b4b4b47d7d7dd17d7dfdfd
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1d1
+7d7dfdfdd1d17d7d7db4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4b4b4b4b4b4b4b4b4b47d7d7d7dfdfd
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7dfdfd7d7d7db4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4fd7d7db4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b47d7d7dfd7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7dfdfd7d7db4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cb4b4b4b4b4b4b47db4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b47db4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4fd7db4b4b4b4b4b4b4b4b4b4b4ececb4b4b4b4
+b4b4b4b46c6cecececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b46cececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%EndDocument
+
+ endTexFig
+ 668 2136 a FB(Figure)g(.2:)j(A)d(view)g(of)f(the)h(View)o(er)p
+eop
+%%Page: 47 47
+47 46 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(47)p 75 64 1763 2 v 379 637 a
+ 18221547 24997068 2433925 5723013 20655472 30720081 startTexFig
+ 379 637 a
+%%BeginDocument: Detail.ps
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 346 string def
+
+% lower left corner
+37 87 translate
+
+% size of image (on paper, in 1/72inch coords)
+276.76800 380.01600 scale
+
+346 475 8			% dimensions of data
+[346 0 0 -475 0 475]		% mapping matrix
+{currentfile pix readhexstring pop}
+image
+
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c350c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c35086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c350
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+c3c3c3c3c3c3c3c3c3c3c3c3c35050c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3
+c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c3c35050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686868686865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686868686865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c38686c4c4c486c4c4c4c486c4c486c4
+c4868686c4c4c48686868686868686868686868686868686868686868686c4c4c4868686
+86868686868686868686868686868686c4c4c4c4c4868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c3c3c3c3c3c3c3c3c3508686505086c3c3868686868686868686868686868686
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3c35086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c3868686c4c48686c4c48686c48686c4
+c486868686c4c4868686868686868686868686868686c48686868686868686c4c4868686
+868686868686c4868686868686868686c4c486c4c4868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c38686c3c3c3c3c3c3c3c3c350508686505086c3c3868686868686868686868686868686
+505086c3c3c3c3c3c3c3c3c3c3c3c3c3505086865050
+c3c38686c35050505050505050505086865050c3c3868686c4c48686c4c48686c4868686
+8686868686c4c48686868686868686868686868686c4c48686868686868686c4c4868686
+8686868686c4c4868686868686868686868686c4c4868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868686868686868686868686
+505086c3c38686868686868686868686505086865050
+c3c38686505050505050505050505086865050c3c3868686c4c4c48686c486c4c486c4c4
+c48686c4c4c4c48686c4c4c4c4c486c4c4c4c486c4c4c4c48686868686c4c4c4c48686c4
+c4c4c486c4c4c4c48686c4c4c4c486c4c4c486c4c48686c4c4c4c486c4c486c4c4868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c38686c3c3c3c3c3c3c3c3c3c3508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c3c3c3508686868686
+505086c3c38686868686868686868686505086865050
+c3c38686868686868686868686868686865050c3c386868686c4c486c4c486c4868686c4
+c486c4c486c4c486c4c48686c486c4c48686c4c486c4c48686868686c4c486c4c486c4c4
+8686c4c486c4c48686c4c48686c4c486c4c486c4c486c4c48686c4c486c4c486c4868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c38686c3c3c3c3c3c3c3c3c350508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c3c350508686868686
+505086c3c38686868686868686868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3c35086865050c3c386868686c4c486c4c486c4868686c4
+c486c4c486c4c486c4c48686c486c4c4c4c4c4c486c4c48686868686c4c486c4c486c4c4
+c4c4c4c486c4c486868686c4c4c4c486c4c486c4c486c4c4c4c4c4c486c4c48686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c38686c3c38686868686868650508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3c38650508686868686
+505086c3c3c3c3c3c3c3c3c350868686505086865050
+c3c38686c3c3c3c3c3c3c3c3c3505086865050c3c386868686c4c4c486c4c4c4868686c4
+c486c4c486c4c486c4c4c4c48686c4c48686868686c4c48686868686c4c486c4c486c4c4
+8686868686c4c48686c4c48686c4c486c4c486c4c486c4c48686868686c4c48686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c38686c3505050505050505050508686505086c3
+c38686c3c38686868686868650508686505086c3c38686868686c3505050508686868686
+505086c3c3c3c3c3c3c3c35050868686505086865050
+c3c38686c35050505050505050505086865050c3c38686868686c4c48686c486868686c4
+c486c4c486c4c48686c4c4868686c4c4c48686c486c4c48686868686c4c486c4c486c4c4
+c48686c486c4c48686c4c48686c4c486c4c486c4c486c4c4c48686c486c4c48686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868650505050505050505050508686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868650505050508686868686
+505086c3c38686868686865050868686505086865050
+c3c38686505050505050505050505086865050c3c38686868686c4868686c4868686c4c4
+c4c486c4c486c4c486c4c4c4c48686c4c4c4c4868686c4c48686868686c4c486c4c486c4
+c4c4c4868686c4c48686c4c4c486c4c4c4c4c4c4c4c486c4c4c4c486c4c4c4c486868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c38686c3c38686868686868650508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686868686868686c4c48686c4c486868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c38686c3505050505050505050508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+8686868686868686c4c48686c4c486868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868650505050505050505050508686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686c4c4c4c48686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486
+c486c486c486c486c486c486865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3c38686868686868686868686868686865050c3c3868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+868686868686868686868686868686868686868686868686868686868686868686868686
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c486c4
+86c486c486c486c486c48686865050c3c3868686868686868686868686868686505086c3
+c3868686868686868686868686868686505086c3c3868686868686868686868686868686
+505086c3c38686868686865050868686505086865050
+c3505050505050505050505050505050505050c350505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050c350505050505050505050505050505050505086c3
+50505050505050505050505050505050505086c350505050505050505050505050505050
+505086c3505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050505050
+505050505050505050505050505050505050505050505050505050505050505050508650
+505050505050505050505050505050505050865050505050505050505050505050505050
+50508650505050505050505050505050505050505050
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888888
+88888888888888888888888888888888888888888888
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b433333333b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b43333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b4333333333333b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b43333b4b43333b43333b43333b4b4b4b4b43333
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4333333b43333b43333b43333b4b43333b43333
+b4b43333b4b43333b433b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b4b43333b4b433333333b4b4b433
+333333b4b4b4b43333b4b4b4b4b4b4b4b4b46cecb4b433b4b433b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c
+4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff2f2
+f2f2f2f2f27ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b43333b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7ff2f2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b43333b4b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f
+f27f7ff27f7f7ff27ff27f7ff27f7f7f7ff2f2f27f7f7ff27ff2f27f7f7f7ff2f27ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7ff2f2f2f2f2f27f7f7f7f7ff2f27f7f7f
+7ff27f7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff2f2
+7ff2f27ff27f7ff2f27ff2f27ff27f7ff27f7f7ff27f7ff2f27f7ff27f7ff27f7ff2f27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333b43333b43333b4b43333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7ff27ff27f7f7f7ff2f27f7f7f7f7f
+7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7f7f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b4b43333333333b43333b43333b4b43333b4333333
+333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7ff2f2f2f2f2f27ff2f27f7f7f7f7f7f7f
+7ff27f7f7f7ff2f27f7f7f7ff2f2f2f2f27f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff2f2f2f27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4b43333b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7ff2f27f7f7f7f7f
+7ff27f7f7f7ff27ff27f7f7f7f7f7f7f7f7f7f7ff27f7f7f7f7f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b43333b43333b4333333b43333b4
+b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7f7f7ff2f27f7f7f
+7ff27f7f7f7ff27f7ff27f7f7f7f7f7f7f7f7f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff27f7ff27f7f7ff27f7ff27f7ff2f27f
+7f7f7f7f7f7f7f7ff27f7f7f7ff27f7f7f7ff2f27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4333333b433333333b4b43333b43333b4b43333
+3333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7ff27ff27f7f7f7f7f7f7f7f7f7f7f7f
+7ff27f7f7f7ff27f7f7ff27f7f7f7f7f7f7f7f7f7ff2f2f27f7f7f7ff2f2f27f7f7ff27f
+7ff27f7ff27f7ff27f7ff27f7ff27f7f7ff2f2f27ff27ff27f7f7ff27f7f7ff2f27ff27f
+7f7f7f7f7ff27f7ff27f7f7f7ff27f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44c7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f
+7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7fb2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b44cb2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2
+b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b4b433333333b4b433b4333333b4333333b4b433
+b4333333b4333333b4b4b433333333b4b43333b43333b4b4b43333b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b43333b4b4b43333b43333b43333b43333b43333b4
+b4b43333b43333b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4333333
+33b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b4333333b43333b43333b4333333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b4333333b43333b43333b4333333b43333b4333333b43333
+b43333b4333333b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+3333b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b43333b4b4
+3333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b43333333333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b433333333
+3333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4b43333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4b43333b43333b43333b4b43333
+b43333b4b43333b4b4b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b43333b4b433333333b4b43333b43333b4b43333b4b43333b433
+33b4b43333b4b43333b43333b4b43333b43333b4b43333b43333b4333333b4b4b4b4b4b4
+b4b43333b4b4b43333b43333b43333b4b43333b43333b4333333b43333b43333b4b43333
+b43333b4333333b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b43333b4b4
+3333b43333b4333333b43333b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b433333333b4b433333333b4b43333b4b43333b4b43333b433
+33b4b43333b4b43333b4b4333333b433333333b4b43333b4b43333b43333b4b4b4b4b4b4
+b4b4333333333333b4b43333b43333b4b43333b4b43333b43333b43333b43333b4b43333
+b4b43333b43333b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4333333
+33b4b43333b43333b43333b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececececb4b4b4b4
+b4b4b4b4ecececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececececececec6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b433
+333333b4b4b433333333b4b4b433333333b4b4b4b4b46cecb4b4b4b433b4b4b4b4b4b433
+3333b4b4b433b43333b4b4b4b43333b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46cecb4b4b4b433b4b4b4b4b433b4
+b4b433b4b43333b4b433b4b433b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b4b4
+b4b43333b4333333b4b4b4b4333333b4b4b4b4b4b4b46cecb4b4b433b4b4b4b4b4b4b4b4
+b4b433b43333b4b4b433b433b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b433
+33333333b4b4b4333333b4b4b4b4333333b4b4b4b4b46cecb4b4b433b4b4b4b4b4b43333
+3333b4b433b4b4b433b43333333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333
+b4b43333b4b4b4b4333333b4b4b4b4333333b4b4b4b46cecb4b4b433b4b4b4b4b433b4b4
+b433b4b433b4b4b433b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b4b433b4b4b4
+33b4b43333b4b433b4b433b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b433
+3333b43333b433333333b4b4b433333333b4b4b4b4b46cecb4b43333333333b4b4333333
+b433b433b43333b4b4b4b4333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b43333
+33b4b4b433b43333b4b4333333b4b4b4333333b4b4b433b433b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b43333b43333b4b4b433333333b4b433
+33b43333b4b4b433333333b4b43333b43333b4b4b4b46c6cb4b433b4b4b433b4b433b4b4
+b433b4b43333b4b433b4b433b4b4b433b4b4b433b4b43333b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4333333b43333b43333b4b43333b433
+3333b43333b43333b4b43333b43333333333b4b4b4b46c6cb4b433b4b4b4b4b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b4333333b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b4333333
+3333b4b433b4b4b433b4b433b4b4b43333333333b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333333333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b433b4b4
+b4b4b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b4b4b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b4b43333b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b43333
+33b4b4b433b4b4b433b4b43333b4b4b4333333b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b433333333b4b43333b4b433333333b4b433
+33b4b43333b4b433333333b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b433b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+333333b4b4b433b433b433b4b433b4b433b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4
+b4b433b4b4b4b4b4b4b4b433b433b4b4333333b4b4b4b4333333b4b4b433b43333b4b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4
+b4b433333333b4b43333b4b43333b4b43333b43333b43333b43333b433333333b4b43333
+b4b43333b43333b43333b4b4b43333b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b43333b4b433b433b4b4b4b43333b4b4b4b4b433b4b4b433b4b433b4b4b433
+b4b433b4b4b4b4b4b4b4b43333b4b433b4b4b433b4b433b4b4b433b4b43333b4b433b4b4
+b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333
+b43333b4b43333b43333b43333b4b43333b4333333b433333333333333b4b43333b43333
+b4b43333b4333333b43333b43333b4333333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+b4b4b433b4b433b4b4b43333b4b4b4b4b4b4b43333b4b4b433b4b4b433b4b4b4b4b4b433
+b4b433b4b4b4333333b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b43333
+b43333b4b4b4b4b433333333b4b4b43333b4b43333b4333333b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b4b4
+33333333b4b433b4b4b43333b4b4b4b4b4b4b4b4b433b4b43333333333b4b4b433333333
+b4b433b4b4b4b4b433b4b433b4b4b43333333333b4b43333333333b4b433b4b4b433b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333333333
+b43333b4b4b4b4b433333333b4b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b433b4b4b433b433b4b4b433b4b4b4b433b4b433b4b4b4b4b4b433b4b4b433
+b4b433b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b433b4b4b4b4b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333
+b43333b4b4b4b4b43333b43333b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b433b4b4b433
+b4b4b433b4b433b4b4b433b4b433b4b433b4b4b4b433b4b433b4b4b433b4b433b4b4b433
+b4b4b433b4b4b43333b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333
+b43333b4b43333b43333b4b43333b43333b4333333b43333b4b4b43333b4b43333b43333
+b4333333b43333b4b43333b43333b4333333b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+333333b433b433b4b4b433b4b4b433b4b433333333b4b4b4b4333333b4b4b4b4333333b4
+33b4b4b4333333b433b4b433b4b4b4b4333333b4b4b4b4333333b4b4b433b4b4b433b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b4333333b433
+33b433333333b4b43333b4b4b43333b43333b43333b43333b4b4b4b433333333b4b4b433
+33b43333b43333b4b43333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b433333333b433b4333333b4
+333333b4b4b433333333b4b43333b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b4b43333b4b43333
+b4b43333b43333b4b43333b4333333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b4b4b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b4b43333333333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4b43333b4b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b4333333b4b43333
+b4b43333b43333b4b43333b4333333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b43333b4b4b43333b43333b4b43333
+b4b43333b4b4333333b433333333b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333
+b43333b43333b43333b4b433333333b4b43333b433333333b4b43333b4b43333b43333b4
+b43333b43333b433333333b43333b43333b4b4b4b4b46c6cb4b4b4b4b433b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333
+3333333333b4333333b43333b4b43333b433333333333333b4b43333b4b43333b43333b4
+3333b4333333b4b43333b4b4333333b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+33b4b43333b4b43333b43333b4b43333b4333333b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b4b433b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+b4b4b43333b4b43333b4333333333333b43333b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333
+b4b4b43333b4b43333b43333b4b4b4b4b43333b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333
+b4b4b43333b4333333b43333b4b43333b43333b4b4b4b4b43333b4b43333b4b4b43333b4
+3333b4333333b4b43333b4333333b4b43333b4b4b4b46c6cb4b43333333333b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333
+b4b4b4b43333b43333b4b433333333b4b43333b4b4b4b4b43333b4b43333b4b4b43333b4
+b43333b43333b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b43333b4b43333b43333b43333b4
+33333333b4b4b433333333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b4333333333333
+33b4b43333b43333b4b43333b43333333333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b4333333b4b433
+3333b4b4b4b43333b4b43333b4333333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b4b4
+b4333333b4b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b4b4
+b4b4333333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4333333b43333b4b4b433
+33b4b43333b43333b4b43333b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b43333b43333b43333b4b4b4b4
+33333333b4b4b433333333b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333
+3333b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b43333333333b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+33b433b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b4b4b4b4b4b4b4b433b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b43333b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+33b433b4b4b4b4b43333b433b4b4b4333333b4b4b433b43333b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b433b4b4b433b4b4b43333
+33b4b4333333b4b433b4b4b4333333b4b4b4b4333333b4b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b4b4333333b4b4b433b4b4b43333b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b433b4b4b433b4b4b4333333b4b4b433b433b433b433b4b433
+b4b4b4b4333333b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4
+33333333b4b43333b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b433b4b43333b4b433b4b4b433b4b43333b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b433b4b4b433b4b433b4b4b433b4b43333b4b43333b43333b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b4333333b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b433
+b4b4b433b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433333333333333b4b433b4b4b433b4b433b4b433b4b4b433b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4333333
+3333b4b4b433b4b4b433b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b43333333333b4
+b4b4b4b4b4b4b4b4b4b433b4b433b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b4b4b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b43333333333b4b4b4b433
+33333333b4b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b43333333333b4b433
+33333333b4b4b433b4b4b4b4b433b4b43333333333b4b433b4b4b433b433b4b4b4333333
+3333b4b433b4b4b433b4b433b4b4b4b4b4b4b433333333b4b43333333333b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b43333333333b4b4b433b4b4b433b4
+b4b43333333333b4b4b433b4b4b433b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b4b433333333b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b4b4b4b433b4b4b433b433b4b4b433b4b4
+b4b4b4b433b4b4b433b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b433b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b433b4b43333b4b433b4b4b433b4b43333b4b433b4b433b4b4b433b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b433b4b4b433b4b433b4b4b4b433b4b4b4b433b4b4
+b433b4b433b4b4b433b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4b4b4b433b4b4
+b4b433b4b433b4b4b433b4b433b4b433b4b43333b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b4b43333b4b433b4b4b433b4b433b4b4b433b4b433b4b4
+33b4b433b4b4b433b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b433b4
+b4b4b4b433b4b4b43333b433b4b4b4333333b4b4b433b43333b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b4b4b433b4b4b4b4b43333
+33b4b4b43333b4b433b4b4b4333333b4b4b4b4333333b433b4b4b4b4b4b4b4b4b4333333
+3333b4b4b4b4333333b4b4b433b4b4b43333b433b4b4b4b4b4b4b4b4b4b433b4b4b4b433
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b433b4b4b4333333b4b4b433b4b4b433b4b433b4b4
+33b4b4b4333333b433b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+33333333b4b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433333333b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b4b433b4b4b4b433b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b433
+b433b4b4333333b4b4b433b4b4b433b4b4b4b4b4b433b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4333333
+33b4b43333b43333b433333333b4b4b43333b43333b43333b43333b433333333b4b43333
+b4b43333b43333b43333b4b4b43333b43333b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b433
+33b4b433b4b4b433b4b433b4b4b433b4b4b4b4b433b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b433333333333333b4b43333b43333b4333333b433333333333333b4b43333b43333
+b4b43333b4333333b43333b43333b4333333b4b4b4b46c6cb4b433b4b4b4333333b4b433
+b4b4b433b4b4b433b4b433b4b4b433b4b4b4b433b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b4333333b4b43333b4b43333b43333b4b43333b4333333b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b43333333333b4b433b4b433b4b4b4b433b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b4333333333333b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b433b4b4b4b4b433b4b433
+b4b4b433b4b4b4b4b4b4b433b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b43333b4b4b4b4b43333b4b43333b43333b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b43333b4b43333b4b4b4b46c6cb4b4b433b4b4b43333b4b433
+b4b4b433b4b4b433b4b4b433b433b4b4b433b4b4b4b4b4b433b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4
+3333b43333b4b4b43333b4b43333b43333b4333333b43333b4b4b43333b4b43333b43333
+b4333333b43333b4b43333b43333b4333333b4b4b4b46c6cb4b4b4b4333333b433b4b433
+b4b4b4b4333333b4b4b4b4b433b4b4b4b43333333333b4b4b4333333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4333333
+33b4b43333b4b4b4b433333333b4b4b43333b43333b43333b4b4b4b433333333b4b4b433
+33b43333b43333b4b43333b4b43333b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433333333b4b43333b4b4
+3333b43333b43333b43333b4b433333333b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4b43333b43333b433
+33b4333333b4333333b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4333333333333b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b4b4b4b43333b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4b43333b43333b433
+33b4333333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b433333333b4b43333b4b4
+3333b43333b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433
+33b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+33333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4333333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433
+333333b4b4b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333
+b4b43333b43333b4333333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b433
+33333333b43333b4b43333b4b4b43333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333
+b4b43333b43333b4333333b43333b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b433
+3333b43333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4333333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b43333
+3333b4b4b43333b43333b43333b4b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4
+b43333b43333b4333333b43333b4b4b43333b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4
+b43333b43333b4b43333b4b43333b43333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333
+333333b43333b4b43333b4b43333b43333b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b43333b4
+b43333b43333b4b43333b4b4b4333333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b43333b43333b4
+b43333b43333b4333333b4b4b4333333b4b4b4b4b4b46c6cb4b4b4b433b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b4b4b43333
+33b43333b43333b43333b4b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b433b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b43333b4b4b4b4b4b4b4b4b4b4333333b4b4b4b46c6cb4b433b4b433b4b4b4b4b4b4
+b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+3333b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4333333b433b4b4b4333333
+b4b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b433333333b4b4
+3333b43333b4b433333333b4b433333333b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333333333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4333333b4b43333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4333333
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4333333333333b4
+3333b43333b4333333333333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b4b4b4b4
+3333b43333b43333b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b433b4b4b4
+33b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b43333b4b43333b4
+3333b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b4333333
+b433b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b433333333b4b4
+3333b43333b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b43333b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b46c6cb4333333b4b4333333b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b4
+33333333b4b43333b4b43333b433333333b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b43333b4b43333b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b43333b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+3333333333b4b4b43333b4b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433
+33b4b4b4b4b4b433333333b4b4b43333b4b4b4b4b4b46c6cb4b433b4b433b4b4b433b4b4
+33b4b4b433b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333
+33b4b43333b43333b4b43333b4b43333b433b4b4b4b46c6cb4b433b4b4b4333333b4b4b4
+b4333333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4
+33333333b4b43333b4b43333b4b4b43333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4
+b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b43333b4b4b4b4b43333b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b433333333b4b433333333b4b43333b4b4
+3333b433333333b43333b4b4b43333b4b433333333b4b43333b433333333b4b433333333
+b4b43333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4b4
+3333b4b43333b4b43333b4b4b43333b43333b4b43333b433333333333333b43333b4b433
+33b4333333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b4b4333333
+33b4b4b43333b4b4b43333b43333b4b4b4b4b4b43333b4333333b4b43333b4b4b4b4b433
+33b43333b4b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b4333333333333b4b4b43333
+b4b4b4b43333b4b4b43333b43333b4b4b43333333333b43333b4b4b43333b4b433333333
+33b43333b4b43333b43333b4333333333333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b4b4b4b4333333
+33b4b4b43333b4b4b4b4333333b4b4b43333b4b43333b43333b4b4b43333b43333b4b433
+33b43333b4b43333b43333b43333b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4333333b4b43333b43333b4b4
+3333b4b43333b433b4b4333333b4b4b43333b4b43333b43333b4b4b43333b43333b4b433
+33b4333333b43333b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b43333b4b4
+3333b4b4b43333b4b4b4b433b4b4b4b4b4333333b433333333b4b4b43333b4b4333333b4
+33333333b43333b4b43333b4b433333333b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b43333b4b43333b4b43333b4b4b4b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4
+b43333b43333b433333333b43333b43333b4b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b43333b43333b4
+3333b4333333b4b43333b4b4333333b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b43333b43333b4b43333b4
+3333b4b43333b4b43333b4b43333b4b43333b4b4b4b46c6cb4b433b4b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b43333b4
+3333b4333333b4b43333b4333333b4b43333b4b4b4b46c6cb4b4b4333333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b43333b4b43333b4b4b43333b4
+b43333b43333b4b4b43333b43333b4b43333b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4ececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cecececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b4b4b4b43333b43333b4b4b4b4b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b43333b4b43333b43333b4b43333b43333b4
+3333b43333b433333333b4b43333b43333b4b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b4333333b43333b43333b43333b43333b4333333b4
+33333333333333b4b43333b4333333b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+333333b4b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+3333b4b4b4333333333333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b43333b4b4b4b4b43333b4b43333b43333b43333b43333b4b43333b4
+3333b4b4b43333b4b4b4b4b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b43333b4b433333333b4b43333b43333b43333b43333b4333333b4
+3333b4b4b43333b4b43333b43333b4b43333b4b4b4b46cecb4b433b4b4b4b433b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b433333333b43333b4b43333b43333b43333b4b43333b43333b4
+3333b4b4b4b433333333b4b43333b4b43333b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b433b4b433b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b43333b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cecb4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b46cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cec6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6cecb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46cececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ecececececececececececececececececececececececececececececececececececec
+ececececececececececececb4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ececb4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b46c6cb4b4b4b4
+b4b4b4b4ecec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4ec6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c
+6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6c6cb4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4b4
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%EndDocument
+
+ endTexFig
+ 657 2311 a FB(Figure)14 b(.3:)k(A)c(view)f(of)h(the)g(Detailer)p
+eop
+%%Page: 48 48
+48 47 bop 75 47 a FA(48)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v eop
+%%Page: 49 49
+49 48 bop 809 1059 a FF(P)m(art)32 b(I)s(I)741 1266 y
+Fy(Annexes)935 2924 y FB(49)p eop
+%%Page: 50 50
+50 49 bop eop
+%%Page: 51 51
+51 50 bop 75 490 a FF(App)s(endix)33 b(A)75 698 y Fy(Using)39
+b(the)f(Tk)h(to)s(olkit)75 914 y FB(When)13 b Fx(STk)g
+FB(detects)i(that)e(a)f Fz(tk-c)n(ommand)18 b FB(m)o(ust)12
+b(b)q(e)h(called,)f(parameters)h(are)g(pro)q(cessed)i(to)e(b)q(e)g
+(recognized)75 964 y(b)o(y)18 b(the)g(corresp)q(onding)h(to)q(olkit)d
+(function.)30 b(Since)18 b(the)h(Tk)e(to)q(olkit)g(is)h(left)f
+(\(mostly\))g(unmo)q(di\014ed,)g(all)f(its)75 1014 y(primitiv)o(es)g
+(\\think")h(there)j(is)d(a)h(running)g(Tcl)g(in)o(terpreter)h(b)q
+(ehind)g(the)f(scene.)32 b(Consequen)o(tly)m(,)19 b(to)f(w)o(ork)75
+1064 y(with)h(the)h(Tk)f(to)q(olkit,)g(a)f(little)h(set)h(of)f
+(rewriting)g(rules)g(m)o(ust)g(b)q(e)g(kno)o(wn.)34 b(These)20
+b(rules)g(are)g(describ)q(ed)75 1113 y(hereafter.)75
+1163 y Fj(Note:)36 b Fq(This)14 b(app)q(endix)i(is)f(placed)g(here)f
+(to)g(p)q(ermit)h(an)f Fh(STk)f Fq(user)i(to)e(mak)o(e)h(programs)h
+(with)f(the)g(original)j(Tcl/Tk)75 1213 y(do)q(cumen)o(tation)g(b)o(y)e
+(hand.)23 b(In)15 b(no)g(case)g(will)i(it)e(substitute)h(to)f(the)g
+(abundan)o(t)h(Tcl/Tk)g(man)o(ual)g(pages)f(nor)g(to)g(the)75
+1263 y(excellen)o(t)g(b)q(o)q(ok)f(b)o(y)f(J.)f(Ousterhout[6)q(])75
+1401 y Fu(1)67 b(Calling)24 b(a)e(Tk-command)75 1492
+y FB(Since)13 b(Tcl)f(uses)i(strings)f(to)f(comm)o(unicate)e(with)i
+(the)h(Tk)f(to)q(olkit,)f(parameters)i(to)f(a)g Fz(Tk-c)n(ommand)17
+b FB(m)o(ust)12 b(b)q(e)75 1542 y(translated)i(to)g(strings)h(b)q
+(efore)f(calling)f(the)i(C)e(function)h(whic)o(h)g(implemen)o(t)d(it.)
+18 b(The)c(follo)o(wing)e(con)o(v)o(ersions)75 1592 y(are)i(done,)g
+(dep)q(ending)g(on)g(the)h(t)o(yp)q(e)f(of)f(the)i(parameter)e(that)h
+Fx(STk)h FB(m)o(ust)d(giv)o(e)i(to)f(the)i(to)q(olkit:)179
+1676 y FA(sym)o(b)q(ol:)k FB(the)c(prin)o(t)e(name)g(of)g(the)i(sym)o
+(b)q(ol;)179 1742 y FA(n)o(um)o(b)q(er:)j FB(the)d(external)f(represen)
+o(tation)i(of)d(the)h(n)o(um)o(b)q(er)g(expressed)i(in)d(radix)h(10;)
+179 1809 y FA(string:)k FB(no)c(con)o(v)o(ersion;)179
+1876 y FA(k)o(eyw)o(ord:)20 b FB(the)11 b(prin)o(t)f(name)f(of)h(the)g
+(k)o(eyw)o(ord)h(where)g(the)g(initial)d(semicolon)h(has)h(b)q(een)i
+(replaced)270 1926 y(b)o(y)i(a)f(dash)h(\(\\-"\);)179
+1993 y FA(b)q(o)q(olean:)20 b FB(the)14 b(string)g("0")f(if)g
+Fs(#f)h FB(and)f("1")g(if)g Fs(#t)179 2059 y FA(tk-command:)19
+b FB(the)c(name)e(of)g(the)h Fz(tk-c)n(ommand)179 2126
+y FA(closure:)19 b FB(the)c(address)g(of)e(the)h(closure)h(using)f(the)
+g(represen)o(tation)i(sho)o(wn)e(in)f(6.16.)179 2193
+y FA(otherwise:)19 b FB(the)14 b(external)h(\\slashi\014ed")e(v)o
+(ersion)h(of)f(the)i(ob)r(ject.)75 2272 y(As)c(an)g(example,)f(let)h
+(us)h(mak)o(e)d(a)i(button)g(with)g(a)g(lab)q(el)f(con)o(taining)g(the)
+i(string)f Fs("Hello,)20 b(word")p FB(.)c(According)75
+2318 y(the)e(original)f(Tk/Tcl)g(do)q(cumen)o(tation,)f(this)i(can)g(b)
+q(e)h(done)f(in)f(Tcl)h(with)153 2398 y Fr(button)k(.hello)f(-text)h
+("Hello,)f(world")75 2523 y FB(F)m(ollo)o(wing)11 b(the)k(rewriting)f
+(rules)g(expressed)i(ab)q(o)o(v)o(e,)d(this)h(can)g(b)q(e)h(done)f(in)g
+Fx(STk)g FB(with)153 2602 y Fr(\(button)j('.hello)g('-text)h("Hello,)e
+(world"\))75 2728 y FB(This)c(call)g(de\014nes)h(a)f(new)h(widget)f(ob)
+r(ject)h(whic)o(h)f(is)g(stored)i(in)d(the)i Fx(STk)g
+FB(v)n(ariable)e Fs(.hello)p FB(.)16 b(This)c(ob)r(ject)h(can)75
+2773 y(b)q(e)j(used)g(as)f(a)g(pro)q(cedure)j(to)d(customize)g(our)g
+(button.)23 b(F)m(or)14 b(instance,)i(setting)g(the)g(b)q(order)g(of)f
+(this)g(button)75 2819 y(to)f(5)f(pixels)h(wide)g(and)g(its)f(bac)o
+(kground)h(to)g(gra)o(y)f(w)o(ould)g(b)q(e)i(done)f(in)g(Tcl)f(with)935
+2924 y(51)p eop
+%%Page: 52 52
+52 51 bop 75 47 a FA(52)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(.hello)k(configure)e(-border)h(5)i
+(-backgroun)o(d)d(gray)75 287 y FB(In)e Fx(STk)g FB(this)g(w)o(ould)f
+(b)q(e)i(expressed)h(as)153 350 y Fr(\(.hello)h('configure)f('-border)h
+(5)i('-backgro)o(und)d("gray"\))75 459 y FB(Since)d(k)o(eyw)o(ord)g
+(colon)f(is)g(replaced)i(b)o(y)e(a)h(dash)g(when)g(a)f
+Fs(Tk-command)f FB(is)h(called,)g(this)h(expression)h(could)e(also)75
+504 y(ha)o(v)o(e)i(b)q(een)h(written)f(as:)153 567 y
+Fr(\(.hello)j('configure)i Fg(:b)q(order)h Fr(5)h Fg(:bac)o(kground)e
+Fr("gray"\))75 747 y Fu(2)67 b(Asso)r(ciating)22 b(Callbac)n(ks)h(to)f
+(Tk-commands)75 834 y FB(Starting)13 b(with)h(v)o(ersion)f(3.0,)f
+Fx(STk)i FB(callbac)o(ks)g(are)g(Sc)o(heme)f(closures)1180
+819 y Fw(1)1200 834 y FB(.)18 b(Apart)c(scroll)f(commands,)e(callbac)o
+(ks)75 879 y(are)18 b(Sc)o(hemes)f(pro)q(cedures)j(without)c
+(parameter.)28 b(Supp)q(ose)18 b(for)f(example,)f(that)i(w)o(e)f(w)o
+(an)o(t)g(to)g(asso)q(ciate)h(a)75 925 y(command)11 b(with)j(the)g
+(previous)g Fs(.hello)f FB(button.)18 b(In)c(Tcl,)f(suc)o(h)i(a)f
+(command)d(can)j(b)q(e)g(expressed)j(as)153 988 y Fr(.hello)h
+(configure)e(-command)g Fl(f)p Fr(puts)j(stdout)e("Hello,)g(world";)g
+(destroy)g(.)p Fl(g)75 1096 y FB(In)d Fx(STk)p FB(,)g(w)o(e)g(can)g
+(write)153 1159 y Fr(\(.hello)j('configure)i Fg(:command)g
+Fr(\(lambda)d(\(\))840 1205 y(\(display)g("Hello,)h(world\\n"\))840
+1251 y(\(destroy)f(*root*\)\)\))75 1363 y FB(When)c(the)h(user)g(will)d
+(press)j(the)g(mouse)e(left)h(button,)g(the)g(closure)h(asso)q(ciated)f
+(to)g(the)h Fs(:command)d FB(option)h(will)75 1413 y(b)q(e)k(ev)n
+(aluated)g(in)f(the)h(global)e(en)o(vironmen)o(t.)19
+b(Ev)n(aluation)13 b(of)h(the)h(giv)o(en)f(closure)i(will)d(displa)o(y)
+h(the)h(message)75 1463 y(and)f(call)f(the)h Fs(destroy)f
+Fz(Tk-c)n(ommand)p FB(.)75 1513 y Fj(Note:)75 b Fq(The)17
+b(ro)q(ot)h(widget)g(is)g(denoted)g(\\.")30 b(in)18 b(Tcl.)31
+b(This)18 b(con)o(v)o(en)o(tion)h(is)f(am)o(biguous)h(with)f(the)f
+(dotted)h(pair)75 1563 y(con)o(v)o(en)o(tion)c(and)e(the)g(dot)f(m)o
+(ust)h(b)q(e)g(quoted)h(to)e(a)o(v)o(oid)i(problems.)18
+b(Since)13 b(this)f(problem)h(arises)g(so)f(often,)f(the)h(v)n(ariable)
+75 1612 y Fr(*root*)e Fq(has)k(b)q(een)g(in)o(tro)q(duced)h(in)f
+Fh(STk)e Fq(to)h(denote)h(the)f(Tk)g(main)h(windo)o(w.)75
+1725 y FE(Managing)19 b(Widget)f(Scrollbars)75 1798 y
+FB(When)h(using)f(scrollbars,)i(Tk)f(library)f(passes)i(parameters)f
+(to)f(the)i(widget)e(asso)q(ciated)i(to)e(the)i(scrollbar)75
+1843 y(\(and)14 b Fz(vic)n(e)g(versa)p FB(\).)k(Let)c(us)g(lo)q(ok)f
+(at)g(a)h(text)g(widget)f(with)g(an)h(asso)q(ciated)g(scrollbar.)k
+(When)c(the)g(scrollbar)g(is)75 1889 y(mo)o(v)o(ed,)g(the)i(command)d
+(of)i(the)h(asso)q(ciated)g(widget)f(is)h(in)o(v)o(ok)o(ed)e(to)i(c)o
+(hange)f(its)h(view.)23 b(On)15 b(the)h(other)h(side,)75
+1935 y(when)d(bro)o(wsing)f(the)h(con)o(ten)o(t)g(of)f(the)h(text)g
+(widget)f(\(with)h(arro)o(ws)f(for)g(example\),)f(the)i(scrollbar)f(is)
+h(up)q(dated)75 1980 y(b)o(y)k(calling)e(it's)i(asso)q(ciated)h
+(closure.)31 b(Tk)18 b(library)f(passes)j(p)q(osition)d(informations)f
+(to)h(scrolling)h(closures.)75 2026 y(This)13 b(informations)d(are)j
+(the)h(parameters)f(of)f(the)h(closure.)19 b(Hereafter)14
+b(is)f(an)f(example)g(implemen)o(ting)d(a)k(text)75 2072
+y(widget)h(with)f(a)h(scrollbar)g(\(see)h(the)f(help)g(pages)h(for)e
+(details\):)153 2135 y Fr(\(text)18 b('.txt)g(:yscrollc)o(omm)o(an)o(d)
+36 b(\(lambda)17 b(l)i(\(apply)f(.scroll)f('set)h(l\)\)\))153
+2180 y(\(scrollbar)e('.scroll)h(:command)f(\(lambda)h(l)i(\(apply)f
+(.txt)g('yview)f(l\)\)\))153 2272 y(\(pack)h(.txt)g(:side)g("left"\))
+153 2317 y(\(pack)g(.scroll)f(:fill)h("y")g(:expand)f(#t)i(:side)f
+("left"\))75 2497 y Fu(3)67 b(Tk)23 b(bindings)75 2596
+y FE(Bindings)18 b(are)h(Sc)n(heme)e(closures)75 2668
+y FB(The)e(Tk)f Fs(bind)g FB(command)d(asso)q(ciates)16
+b(Sc)o(heme)e(scripts)i(with)e(X)h(ev)o(en)o(ts.)20 b(Starting)15
+b(with)f(v)o(ersion)g(3.0)g(those)75 2714 y(scripts)j(m)o(ust)d(b)q(e)i
+(Sc)o(heme)f(closures)661 2699 y Fw(2)681 2714 y FB(.)23
+b(Binding)15 b(closures)i(can)e(ha)o(v)o(e)h(parameters.)22
+b(Those)17 b(parameters)e(are)p 75 2741 705 2 v 121 2768
+a Fp(1)139 2779 y Fo(Old)c(syn)o(tax)f(for)h(callbac)o(ks)e(\(i.e.)15
+b(strings\))9 b(is)j(alw)o(a)o(ys)f(supp)q(orted)e(but)h(its)i(use)f
+(is)g(deprecated.)121 2807 y Fp(2)139 2819 y Fo(Old)g(syn)o(tax)f(for)h
+(bindings)e(\(i.e.)15 b(strings\))10 b(is)h(no)g(more)f(supp)q(orted.)j
+(Old)f(bindings)d(scripts)h(m)o(ust)g(hence)g(b)q(e)i(rewritten.)p
+eop
+%%Page: 53 53
+53 52 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(53)p 75 64 1763 2 v 75 179 a FB(one)17 b(c)o(har)h(sym)o(b)q(ols)e
+(\(with)h(the)h(same)e(con)o(v)o(en)o(tions)h(than)g(the)h(Tcl)f(\045)g
+(c)o(har,)h(see)g(the)g Fs(bind)e FB(help)i(page)f(for)75
+224 y(details\).)h(F)m(or)13 b(instance,)i(the)f(follo)o(wing)d(Tcl)j
+(script)153 303 y Fr(bind)19 b(.w)f(<ButtonPres)o(s-)o(3>)e
+Fl(f)p Fr(puts)i("Press)g(on)h(widget)e(\045W)i(at)g(position)d(\045x)j
+(\045y")p Fl(g)75 428 y FB(can)14 b(b)q(e)h(translated)f(in)o(to)153
+507 y Fr(\(bind)k(.w)h("<ButtonPr)o(es)o(s-3)o(>")330
+552 y(\(lambda)e(\(|W|)h(x)h(y\))389 598 y(\(format)e(#t)i("Press)e(on)
+i(widget)e(~A)i(at)g(position)d(~A)j(~A\\n")f(|W|)g(x)h(y\)\)\))75
+727 y Fj(Note:)35 b Fq(Usage)14 b(of)f(v)o(erticals)i(bars)f(for)g(the)
+f Fr(W)g Fq(sym)o(b)q(ol)i(is)f(necessary)h(here)f(b)q(ecause)h(the)f
+(Tk)f(to)q(olkit)i(is)f(case)g(sensitiv)o(e)75 777 y(\()p
+Fj(e.g.)9 b Fr(W)i Fq(in)g(bindings)j(is)e(the)f(path)g(name)h(of)e
+(the)h(windo)o(w)h(to)f(whic)o(h)g(the)h(ev)o(en)o(t)f(w)o(as)f(rep)q
+(orted,)i(whereas)g Fr(w)e Fq(is)h(the)h(width)75 826
+y(\014eld)i(from)f(the)g(ev)o(en)o(t.)75 943 y FE(Bindings)18
+b(are)h(c)n(hained)75 1015 y FB(In)12 b(Tk4.0)e(and)h(later,)h
+(bindings)f(are)h(c)o(hained)g(since)g(it)f(is)g(p)q(ossible)h(for)f
+(sev)o(eral)h(bindings)f(to)h(matc)o(h)e(a)h(giv)o(en)g(X)75
+1061 y(ev)o(en)o(t.)18 b(If)10 b(the)i(bindings)e(are)h(asso)q(ciated)h
+(with)f(di\013eren)o(t)h(tags,)f(then)g(eac)o(h)h(of)e(the)i(bindings)e
+(will)f(b)q(e)j(executed,)75 1106 y(in)i(order.)22 b(By)15
+b(default,)f(a)h(class)g(binding)f(will)f(b)q(e)j(executed)h(\014rst,)e
+(follo)o(w)o(ed)e(b)o(y)i(a)f(binding)g(for)h(the)g(widget,)75
+1152 y(a)g(binding)g(for)g(its)g(toplev)o(el,)g(and)h(an)f
+Fs(all)g FB(binding.)21 b(The)16 b Fs(bindtags)e FB(command)f(ma)o(y)g
+(b)q(e)j(used)h(to)e(c)o(hange)75 1198 y(this)h(order)h(for)f(a)g
+(particular)g(windo)o(w)g(or)g(to)g(asso)q(ciate)h(additional)d
+(binding)i(tags)g(with)g(the)h(windo)o(w)e(\(see)75 1243
+y(corresp)q(onding)h(help)g(page)g(for)f(details\).)23
+b(If)15 b(the)h(result)g(of)f(closure)h(in)g(the)g(bindings)f(c)o(hain)
+g(is)g(the)h(sym)o(b)q(ol)75 1289 y Fs(break)p FB(,)c(the)j(next)f
+(closures)h(of)f(the)g(c)o(hain)g(are)g(not)g(executed.)20
+b(The)14 b(example)f(b)q(elo)o(w)g(illustrates)h(this:)153
+1368 y Fr(\(pack)k(\(entry)f('.e\)\))153 1414 y(\(bind)h(.e)h
+("<KeyPress)o(>")d(\(lambda)h(\(|A|\))624 1459 y(\(unless)g
+(\(string->n)o(um)o(ber)f(|A|\))i('break\)\)\))75 1588
+y FB(Bindings)e(for)f(the)i(en)o(try)g Fs(.e)e FB(are)i(executed)h(b)q
+(efore)e(those)h(for)f(its)g(class)g(\(i.e.)24 b Fs(Entry)p
+FB(\).)g(This)15 b(allo)o(ws)g(us)i(to)75 1638 y(\014lter)c(the)g(c)o
+(haracters)i(whic)o(h)d(are)h(e\013ectiv)o(ely)h(passed)f(to)g(the)g
+Fs(.e)f FB(widget.)17 b(The)d(test)f(in)f(this)h(binding)f(closure)75
+1688 y(breaks)g(the)g(c)o(hain)g(of)f(bindings)g(if)f(the)i(t)o(yp)q
+(ed)h(c)o(haracter)f(is)g(not)f(a)h(digit.)k(Otherwise,)d(the)f(follo)o
+(wing)d(binding,)75 1737 y(the)16 b(one)f(for)g(the)h
+Fs(Entry)e FB(class,)h(is)g(executed)i(and)e(inserts)h(the)g(c)o
+(haracter)g(t)o(yp)q(ed)g(\(a)f(digit\).)21 b(Consequen)o(tly)m(,)75
+1787 y(the)14 b(simple)f(previous)h(binding)f(mak)o(es)g
+Fs(.e)g FB(a)h(con)o(trolled)f(en)o(try)i(whic)o(h)f(only)f(accepts)i
+(in)o(teger)g(n)o(um)o(b)q(ers.)p eop
+%%Page: 54 54
+54 53 bop 75 47 a FA(54)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v eop
+%%Page: 55 55
+55 54 bop 75 492 a FF(App)s(endix)33 b(B)75 701 y Fy(Di\013erences)38
+b(with)h(R4RS)75 918 y FB(This)12 b(app)q(endix)f(summarizes)f(the)i
+(main)e(di\013erences)k(b)q(et)o(w)o(een)f(the)f Fx(STk)g
+FB(Sc)o(heme)f(implemen)o(tation)d(and)k(the)75 968 y(language)h
+(describ)q(ed)j(in)d Fz(R)510 953 y Fw(4)522 968 y Fv(RS)r
+FB(.)75 1114 y Fu(1)67 b(Sym)n(b)r(ols)75 1208 y Fx(STk)20
+b FB(sym)o(b)q(ol)d(syn)o(tax)j(has)f(b)q(een)i(augmen)o(ted)d(to)h
+(allo)o(w)f(case)i(signi\014can)o(t)f(sym)o(b)q(ols.)33
+b(This)20 b(extension)g(is)75 1257 y(discussed)c(in)d(6.4.)75
+1309 y(The)h(follo)o(wing)e(sym)o(b)q(ols)g(are)i(de\014ned)h(in)f(the)
+g(global)e(en)o(vironmen)o(t.)137 1407 y Fk(\017)21 b
+Fs(*debug*)p FB(.)16 b(Setting)d Fs(*debug*)e FB(to)h
+Fs(#t)h FB(prev)o(en)o(ts)h(macro)d(inlining)g(and)h(expression)i(reco)
+q(ding)f(\(see)h(6.22\).)137 1496 y Fk(\017)21 b Fs(*gc-verbose*)p
+FB(.)c(If)d Fs(*gc-verbose*)d FB(is)j Fs(#t)p FB(,)g(a)g(message)g
+(will)f(b)q(e)i(prin)o(ted)f(b)q(efore)i(and)e(after)g(eac)o(h)h(run)
+179 1546 y(of)e(garbage)h(collector.)k(The)c(message)g(is)g(prin)o(ted)
+g(on)g(the)g(standard)g(error)h(stream.)137 1635 y Fk(\017)21
+b Fs(*load-verbose*)p FB(.)i(If)17 b Fs(*load-verbose*)c
+FB(is)k Fs(#t)p FB(,)f(the)i(absolute)e(path)h(name)e(of)h(eac)o(h)i
+(loaded)e(\014le)h(is)179 1685 y(prin)o(ted)d(b)q(efore)h(its)f
+(e\013ectiv)o(e)h(reading.)j(File)13 b(names)g(are)i(prin)o(ted)f(on)f
+(the)i(standard)f(error)h(stream.)137 1774 y Fk(\017)21
+b Fs(*load-path*)13 b FB(m)o(ust)h(con)o(tain)h(a)f(list)h(of)g
+(strings.)22 b(Eac)o(h)16 b(string)f(is)g(tak)o(en)g(as)h(a)f
+(directory)g(path)h(name)179 1824 y(in)d(whic)o(h)h(a)f(\014le)h(will)e
+(b)q(e)i(searc)o(hed)i(for)d(loading.)j(This)e(v)n(ariable)e(can)i(b)q
+(e)h(set)f(automatically)d(from)h(the)179 1874 y Fs(STK)p
+248 1874 14 2 v 15 w(LOAD)p 351 1874 V 15 w(PATH)h FB(shell)h(v)n
+(ariable.)i(See)f Fs(stk\(1\))e FB(for)g(more)g(details.)137
+1963 y Fk(\017)21 b Fs(*load-suffixes*)14 b FB(m)o(ust)i(con)o(tain)g
+(a)h(list)g(of)f(strings.)28 b(When)17 b(the)h(system)f(try)g(to)g
+(load)f(a)h(\014le)g(in)g(a)179 2013 y(giv)o(en)d(directory)i
+(\(according)f(to)f Fs(*load-path*)f FB(v)n(alue\),)h(it)g(will)g
+(\014rst)h(try)h(to)e(load)g(it)h(without)f(su\016x.)179
+2063 y(If)f(this)h(\014le)g(do)q(es)g(not)g(exist,)g(the)g(system)g
+(will)e(sequen)o(tially)h(try)h(to)g(\014nd)g(the)g(\014le)g(b)o(y)f
+(app)q(ending)h(eac)o(h)179 2113 y(su\016x)g(of)f(this)h(list.)j(A)d(t)
+o(ypical)f(v)n(alue)h(for)f(this)h(v)n(ariable)f(ma)o(y)f(b)q(e)i
+Fs(\("stk")21 b("stklos")f("scm")h("so"\))p FB(.)137
+2202 y Fk(\017)g Fs(*help-path*)13 b FB(m)o(ust)h(con)o(tain)h(a)f
+(list)h(of)g(strings.)22 b(Eac)o(h)16 b(string)f(is)g(tak)o(en)g(as)h
+(a)f(directory)g(path)h(name)179 2252 y(in)e(whic)o(h)g(do)q(cumen)o
+(tation)f(\014les)i(are)f(searc)o(hed.)21 b(This)14 b(v)n(ariable)g
+(can)g(b)q(e)h(set)g(automatically)c(from)i(the)179 2302
+y Fs(STK)p 248 2302 V 15 w(HELP)p 351 2302 V 15 w(PATH)g
+FB(shell)h(v)n(ariable.)i(See)f Fs(stk\(1\))e FB(for)g(more)g(details.)
+137 2391 y Fk(\017)21 b Fs(*argc*)11 b FB(con)o(tains)h(the)h(n)o(um)o
+(b)q(er)f(of)g(argumen)o(ts)f(\(0)h(if)g(none\),)h(not)f(including)f
+(in)o(terpreter)j(options.)k(See)179 2441 y Fs(stk\(1\))12
+b FB(for)i(more)f(details.)137 2530 y Fk(\017)21 b Fs(*argv*)14
+b FB(con)o(tains)i(a)f(Sc)o(heme)h(list)f(whose)h(elemen)o(ts)g(are)g
+(the)h(argumen)o(ts)e(\(not)g(including)g(the)h(in)o(ter-)179
+2580 y(preter)h(options\),)e(in)g(order,)h(or)f(an)g(empt)o(y)g(list)g
+(if)f(there)j(are)f(no)f(argumen)o(ts.)22 b(See)16 b
+Fs(stk\(1\))e FB(for)h(more)179 2630 y(details.)137 2719
+y Fk(\017)21 b Fs(*program-name*)12 b FB(con)o(tains)i(the)i(\014le)e
+(name)g(sp)q(eci\014ed)i(with)f(the)g Fs(-file)f FB(option,)f(if)h
+(presen)o(t.)22 b(Other-)179 2769 y(wise,)13 b(it)h(con)o(tains)f(the)i
+(name)d(through)i(whic)o(h)f(the)i(in)o(terpreter)g(w)o(as)f(in)o(v)o
+(ok)o(ed.)j(See)e Fs(stk\(1\))d FB(for)h(more)179 2819
+y(details.)935 2924 y(55)p eop
+%%Page: 56 56
+56 55 bop 75 47 a FA(56)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 137 179 a Fk(\017)21 b Fs(*print-banner*)p
+FB(.)f(If)c Fs(*print-verbose*)c FB(is)k Fs(#f)p FB(,)f(the)i(usual)e
+(cop)o(yrigh)o(t)g(message)h(is)f(not)h(displa)o(y)o(ed)179
+229 y(when)e(the)h(in)o(terpreter)g(is)f(started.)137
+312 y Fk(\017)21 b Fs(*root*)12 b FB(designates)j(the)g(Tk)f(main)e
+(windo)o(w)h(\(see)i(A-2\).)j(This)c(v)n(ariable)f(is)h(not)g(set)h(if)
+e(the)i(Tk)f(to)q(olkit)179 362 y(is)g(not)f(initialized.)75
+499 y Fu(2)67 b(T)n(yp)r(es)75 590 y Fx(STk)17 b FB(implemen)o(ts)d
+(all)i(the)h(t)o(yp)q(es)h(de\014ned)g(as)f(mandatory)e(in)h
+Fz(R)1142 575 y Fw(4)1154 590 y Fv(RS)r FB(.)27 b(Ho)o(w)o(ev)o(er,)18
+b(complex)d(n)o(um)o(b)q(ers)i(and)75 640 y(rational)12
+b(n)o(um)o(b)q(ers)h(\(whic)o(h)g(are)h(de\014ned)g(but)g(not)f
+(required)h(in)f Fz(R)1130 625 y Fw(4)1142 640 y Fv(RS)r
+FB(\))h(are)g(not)f(implemen)o(ted.)j(The)d(lac)o(k)g(of)75
+690 y(these)i(t)o(yp)q(es)g(implies)d(that)i(some)f(functions)h(of)f
+Fz(R)882 675 y Fw(4)894 690 y Fv(RS)k FB(are)d(not)g(de\014ned.)75
+740 y(Some)d(t)o(yp)q(es)h(whic)o(h)g(are)g(not)g(de\014ned)h(in)e
+Fz(R)764 725 y Fw(4)776 740 y Fv(RS)j FB(are)f(implem)o(en)o(ted)d(in)h
+Fx(STk)p FB(.)18 b(Those)12 b(t)o(yp)q(es)h(are)f(listed)g(b)q(elo)o
+(w:)137 823 y Fk(\017)21 b FB(input)13 b(string)h(p)q(ort)h(t)o(yp)q(e)
+f(\(6.10\))137 906 y Fk(\017)21 b FB(output)14 b(string)g(p)q(ort)g(t)o
+(yp)q(e)g(\(6.10\))137 990 y Fk(\017)21 b FB(k)o(eyw)o(ord)14
+b(t)o(yp)q(e)g(\(6.11\))137 1073 y Fk(\017)21 b FB(Tk)14
+b(command)d(t)o(yp)q(e)j(\(6.12\))137 1156 y Fk(\017)21
+b FB(en)o(vironmen)o(t)13 b(t)o(yp)q(e)h(\(6.13\))137
+1239 y Fk(\017)21 b FB(macro)12 b(t)o(yp)q(e)j(\(6.14\))137
+1323 y Fk(\017)21 b FB(address)15 b(t)o(yp)q(e)f(\(6.16\))137
+1406 y Fk(\017)21 b FB(hash)14 b(table)g(t)o(yp)q(e)g(\(6.18\))137
+1489 y Fk(\017)21 b FB(Regular)13 b(expression)i(t)o(yp)q(e)f(\(6.19\))
+137 1573 y Fk(\017)21 b FB(pro)q(cess)15 b(t)o(yp)q(e)g(\(6.20\))137
+1656 y Fk(\017)21 b FB(so)q(c)o(k)o(et)15 b(t)o(yp)q(e)f(\(6.21\))75
+1794 y Fu(3)67 b(Pro)r(cedures)75 1885 y FB(The)14 b(follo)o(wing)d
+(pro)q(cedures)16 b(are)e(required)g(b)o(y)g Fz(R)863
+1870 y Fw(4)875 1885 y Fv(RS)i FB(and)d(are)h(not)g(implem)o(en)o(ted)e
+(in)h(the)h Fx(STk)g FB(in)o(terpreter.)137 1968 y Fk(\017)21
+b FB(transcript-o\013)137 2051 y Fk(\017)g FB(transcript-on)75
+2134 y Fs(Transcript-off)9 b FB(and)k Fs(transcript-on)c
+FB(can)k(b)q(e)g(sim)o(ulated)d(with)i(v)n(arious)g(Unix)g(to)q(ols)g
+(suc)o(h)h(as)f Fs(script)f FB(or)75 2184 y Fs(fep)p
+FB(.)75 2269 y(The)i(follo)o(wing)d(pro)q(cedures)15
+b(are)e(not)f(implemen)o(ted)f(in)h(the)h Fx(STk)g FB(in)o(terpreter)h
+(whereas)g(they)f(are)g(de\014ned)h(in)75 2319 y Fz(R)105
+2304 y Fw(4)117 2319 y Fv(RS)j FB(\(but)d(not)g(required\).)19
+b(They)14 b(are)g(all)f(related)h(to)g(complex)f(or)h(rational)e(n)o
+(um)o(b)q(ers.)137 2402 y Fk(\017)21 b FB(n)o(umerator)137
+2486 y Fk(\017)g FB(denominator)137 2569 y Fk(\017)g
+FB(rationalize)137 2652 y Fk(\017)g FB(mak)o(e-rectangular)137
+2736 y Fk(\017)g FB(mak)o(e-p)q(olar)137 2819 y Fk(\017)g
+FB(real-part)p eop
+%%Page: 57 57
+57 56 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(57)p 75 64 1763 2 v 137 179 a Fk(\017)21 b FB(imag-part)137
+262 y Fk(\017)g FB(magnitude)137 345 y Fk(\017)g FB(angle)p
+eop
+%%Page: 58 58
+58 57 bop 75 47 a FA(58)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v eop
+%%Page: 59 59
+59 58 bop 75 491 a FF(App)s(endix)33 b(C)75 699 y Fy(An)38
+b(in)m(tro)s(duction)g(to)h Fe(STklos)75 941 y Fu(1)67
+b(In)n(tro)r(duction)75 1034 y Fx(STklos)14 b FB(is)e(the)h(ob)r(ject)h
+(orien)o(ted)f(la)o(y)o(er)f(of)g Fx(STk)p FB(.)18 b(Its)13
+b(implemen)o(tatio)o(n)d(is)j(deriv)o(ed)g(from)e(v)o(ersion)h(1.3)g
+(of)g(the)75 1084 y(Gregor)i(Kic)o(kzales)g(Tin)o(y)g(Clos)f(pac)o(k)n
+(age)h([7)o(].)k(Ho)o(w)o(ev)o(er,)c(it)f(has)i(b)q(een)g(extended)g
+(to)f(b)q(e)h(as)f(close)g(as)g(p)q(ossible)75 1133 y(to)j(CLOS,)g(the)
+h(Common)c(Lisp)j(Ob)r(ject)i(System[4)o(].)28 b(Some)16
+b(features)i(of)f Fx(STklos)i FB(are)e(also)g(issued)h(from)75
+1183 y(Dylan[8)n(])c(or)f(SOS[9].)75 1234 y(Brie\015y)e(stated,)g(the)g
+Fx(STklos)h FB(extension)f(giv)o(es)f(the)h(user)g(a)g(full)e(ob)r
+(ject)i(orien)o(ted)g(system)f(with)g(meta-classes,)75
+1284 y(m)o(ultiple)j(inheritance,)i(generic)h(functions)g(and)f(m)o
+(ulti-m)o(etho)q(ds.)k(F)m(urthermore,)c(the)h(whole)f(implem)o(en)o
+(ta-)75 1333 y(tion)i(relies)h(on)f(a)h(true)g(meta)e(ob)r(ject)j
+(proto)q(col,)f(in)f(the)h(spirit)f(of)g(the)h(one)g(de\014ned)h(for)e
+(CLOS[10)o(].)29 b(This)75 1383 y(mo)q(del)12 b(has)h(also)f(b)q(een)i
+(used)g(to)f(em)o(b)q(o)q(dy)f(the)i(prede\014ned)h(Tk)e(widgets)g(in)g
+(a)g(hierarc)o(h)o(y)g(of)g Fx(STklos)h FB(classes.)75
+1433 y(This)i(set)h(of)f(classes)h(p)q(ermits)f(to)g(simplify)e(the)j
+(core)g(Tk)f(usage)g(b)o(y)g(pro)o(viding)f(homogeneous)h(accesses)j
+(to)75 1483 y(widget)e(options)h(and)f(b)o(y)h(hiding)e(the)i(lo)o(w)f
+(lev)o(el)g(details)h(of)f(Tk)g(widgets,)h(suc)o(h)h(as)f(naming)d(con)
+o(v)o(en)o(tions.)75 1533 y(F)m(urthermore,)j(as)g(exp)q(ected,)i
+(using)e(of)f(ob)r(jects)i(facilitates)e(co)q(de)i(reuse)g(and)e
+(de\014nition)h(of)f(new)h(widgets)75 1583 y(classes.)75
+1633 y(The)e(purp)q(ose)i(of)d(this)h(app)q(endix)g(is)g(to)g(in)o(tro)
+q(duce)h(brie\015y)f(the)g Fx(STklos)h FB(pac)o(k)n(age)f(and)g(in)g
+(no)f(case)i(will)e(it)75 1683 y(replace)e(the)f Fx(STklos)h
+FB(reference)h(man)o(ual)9 b(\(whic)o(h)j(needs)h(to)e(b)q(e)i(urgen)o
+(tly)e(written)h(no)o(w)g(.)6 b(.)h(.)f(\).)17 b(In)12
+b(particular,)75 1733 y(metho)q(ds)j(relativ)o(e)h(to)f(the)i(meta)d
+(ob)r(ject)j(proto)q(col)e(and)h(access)h(to)f(the)g(Tk)g(to)q(olkit)e
+(will)h(not)g(b)q(e)i(describ)q(ed)75 1783 y(here.)75
+1925 y Fu(2)67 b(Class)21 b(de\014nition)k(and)e(instan)n(tiation)75
+2026 y FE(2.1)56 b(Class)19 b(de\014nition)75 2104 y
+FB(A)e(new)g(class)g(is)g(de\014ned)h(with)e(the)i Fs(define-class)c
+FB(macro.)25 b(The)18 b(syn)o(tax)e(of)g Fs(define-class)f
+FB(is)h(close)i(to)75 2154 y(CLOS)c Fs(defclass)p FB(:)153
+2245 y Fr(\(define-cla)o(ss)i Fj(class)21 b Fr(\()p Fl(h)p
+Fq(sup)q(erclass)730 2249 y Fp(1)749 2245 y Fl(i)f(h)p
+Fq(sup)q(erclass)965 2249 y Fp(2)984 2245 y Fl(i)p Fr(...\))212
+2291 y(\()p Fl(h)p Fq(slot)g(description)507 2295 y Fp(1)527
+2291 y Fl(i)g(h)p Fq(slot)g(description)837 2295 y Fp(2)857
+2291 y Fl(i)p Fr(...\))212 2337 y Fl(h)p Fq(metaclass)h(option)p
+Fl(i)q Fr(\))75 2477 y FB(The)13 b Fk(h)p FB(metaclass)g(option)p
+Fk(i)e FB(will)g(not)h(b)q(e)h(discussed)h(in)d(this)h(app)q(endix.)18
+b(The)12 b Fk(h)p FB(sup)q(erclass)p Fk(i)r FB(es)h(list)f(sp)q
+(eci\014es)i(the)75 2527 y(sup)q(er)j(classes)f(of)f
+Fz(class)k FB(\(see)d(3)g(for)f(more)f(details\).)22
+b(A)16 b Fk(h)p FB(slot)e(description)p Fk(i)i FB(giv)o(es)f(the)h
+(name)e(of)h(a)g(slot)g(and,)75 2577 y(ev)o(en)o(tually)m(,)g(some)f
+(\\prop)q(erties")j(of)e(this)g(slot)h(\(suc)o(h)g(as)g(its)f(initial)f
+(v)n(alue,)h(the)h(function)f(whic)o(h)h(p)q(ermit)f(to)75
+2627 y(access)h(its)e(v)n(alue,)e(.)7 b(.)f(.)h(\).)18
+b(Slot)13 b(descriptions)i(will)d(b)q(e)j(discussed)h(in)d(3.3.)75
+2677 y(As)j(an)g(exemple,)f(consider)h(no)o(w)f(that)h(w)o(e)g(ha)o(v)o
+(e)g(to)f(de\014ne)i(a)e(complex)f(n)o(um)o(b)q(er.)23
+b(This)16 b(can)g(b)q(e)g(done)g(with)75 2727 y(the)e(follo)o(wing)e
+(class)i(de\014nition:)153 2819 y Fr(\(define-cla)o(ss)36
+b(<complex>)16 b(\(<number>)o(\))935 2924 y FB(59)p eop
+%%Page: 60 60
+60 59 bop 75 47 a FA(60)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 204 137 a
+ 23747215 14274641 0 0 23747215 14274641 startTexFig
+ 204 137 a
+%%BeginDocument: hierarchy.eps
+/$F2psDict 200 dict def 
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/l {lineto} bind def
+/m {moveto} bind def
+/s {stroke} bind def
+/n {newpath} bind def
+/gs {gsave} bind def
+/gr {grestore} bind def
+/clp {closepath} bind def
+/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+4 -2 roll mul setrgbcolor} bind def
+/col-1 {} def
+/col0 {0 0 0 setrgbcolor} bind def
+/col1 {0 0 1 setrgbcolor} bind def
+/col2 {0 1 0 setrgbcolor} bind def
+/col3 {0 1 1 setrgbcolor} bind def
+/col4 {1 0 0 setrgbcolor} bind def
+/col5 {1 0 1 setrgbcolor} bind def
+/col6 {1 1 0 setrgbcolor} bind def
+/col7 {1 1 1 setrgbcolor} bind def
+	end
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+
+$F2psBegin
+0 setlinecap 0 setlinejoin
+-216.0 288.0 translate 0.900 -0.900 scale
+0.500 setlinewidth
+n 309 159 m 309 159 l gs col-1 s gr
+n 246.401 216.889 m 244.000 209.000 l 249.831 214.831 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 244 209 m 274 259 l gs col-1 s gr
+n 298.169 214.831 m 304.000 209.000 l 301.599 216.889 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 304 209 m 274 259 l gs col-1 s gr
+n 255.721 213.778 m 249.000 209.000 l 257.179 210.053 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 249 209 m 364 254 l gs col-1 s gr
+n 370.312 216.376 m 374.000 209.000 l 374.217 217.243 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 374 209 m 364 254 l gs col-1 s gr
+n 283.772 280.725 m 279.000 274.000 l 286.376 277.688 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 279 274 m 314 304 l gs col-1 s gr
+n 351.457 272.333 m 359.000 269.000 l 353.913 275.490 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 359 269 m 314 304 l gs col-1 s gr
+n 300.950 165.789 m 309.000 164.000 l 302.739 169.367 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 249 194 l gs col-1 s gr
+n 307.000 172.000 m 309.000 164.000 l 311.000 172.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 309 199 l gs col-1 s gr
+n 315.261 169.367 m 309.000 164.000 l 317.050 165.789 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 309 164 m 379 199 l gs col-1 s gr
+n 406.949 101.701 m 404.000 94.000 l 410.226 99.407 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 439 144 l gs col-1 s gr
+n 410.363 99.245 m 404.000 94.000 l 412.083 95.634 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 509 144 l gs col-1 s gr
+n 411.173 98.068 m 404.000 94.000 l 412.243 94.214 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 584 144 l gs col-1 s gr
+n 396.075 96.277 m 404.000 94.000 l 398.079 99.739 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 404 94 m 309 149 l gs col-1 s gr
+% Polyline
+n 584 229 m 584 204 l gs col-1 s gr
+n 582.000 212.000 m 584.000 204.000 l 586.000 212.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 584 189 m 584 159 l gs col-1 s gr
+n 582.000 167.000 m 584.000 159.000 l 586.000 167.000 l gs 2 setlinejoin col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+239 209 m 
+gs 1 -1 scale (A) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+274 274 m 
+gs 1 -1 scale (D) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+359 269 m 
+gs 1 -1 scale (E) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+304 209 m 
+gs 1 -1 scale (B) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+374 209 m 
+gs 1 -1 scale (C) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+314 319 m 
+gs 1 -1 scale (F) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+289 159 m 
+gs 1 -1 scale (<object>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+389 89 m 
+gs 1 -1 scale (<top>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+424 154 m 
+gs 1 -1 scale (<pair>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+474 154 m 
+gs 1 -1 scale (<procedure>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 154 m 
+gs 1 -1 scale (<number>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+629 154 m 
+gs 1 -1 scale (...) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+569 199 m 
+gs 1 -1 scale (<real>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 239 m 
+gs 1 -1 scale (<integer>) col-1 show gr
+$F2psEnd
+%%EndDocument
+
+ endTexFig
+ 690 1133 a FB(Figure)g(C.1:)j(A)d(class)g(hierarc)o(h)o(y)212
+1271 y Fr(\(r)19 b(i\)\))75 1420 y FB(This)11 b(binds)g(the)h(sym)o(b)q
+(ol)d Fs(<complex>)h FB(to)h(a)f(new)i(class)g(whose)f(instances)i(con)
+o(tain)d(t)o(w)o(o)h(slots.)17 b(These)c(slots)e(are)75
+1470 y(called)i Fs(r)h FB(an)f Fs(i)h FB(and)f(w)o(e)h(supp)q(ose)h
+(here)g(that)e(they)i(con)o(tain)e(resp)q(ectiv)o(ely)i(the)f(real)g
+(part)g(and)f(the)h(imaginary)75 1519 y(part)k(of)e(a)h(complex)g(n)o
+(um)o(b)q(er.)27 b(Note)18 b(that)g(this)f(class)h(inherits)g(from)d
+Fs(<number>)h FB(whic)o(h)h(is)h(a)f(pre-de\014ned)75
+1569 y(class)d(\()p Fs(<number>)f FB(is)g(the)i(sup)q(er)g(class)f(of)g
+(the)g Fs(<real>)f FB(and)g Fs(<integer>)f FB(pre-de\014ned)k
+(classes\).)1613 1554 y Fw(1)1633 1569 y FB(.)75 1722
+y Fu(3)67 b(Inheritance)75 1826 y FE(3.1)56 b(Class)19
+b(hierarc)n(h)n(y)f(and)h(inheritance)f(of)g(slots)75
+1904 y FB(Inheritance)k(is)e(sp)q(eci\014ed)i(up)q(on)f(class)g
+(de\014nition.)38 b(As)21 b(said)f(in)g(the)h(in)o(tro)q(duction,)h
+Fx(STklos)f FB(supp)q(orts)75 1950 y(m)o(ultiple)12 b(inheritance.)18
+b(Hereafter)e(are)e(some)f(classes)i(de\014nition:)153
+2040 y Fr(\(define-cla)o(ss)h(A)j(\(\))g(\(a\)\))153
+2086 y(\(define-cla)o(ss)d(B)j(\(\))g(\(b\)\))153 2132
+y(\(define-cla)o(ss)d(C)j(\(\))g(\(c\)\))153 2177 y(\(define-cla)o(ss)d
+(D)j(\(A)g(B\))g(\(d)g(a\)\))153 2223 y(\(define-cla)o(ss)d(E)j(\(A)g
+(C\))g(\(e)g(c\)\))153 2269 y(\(define-cla)o(ss)d(F)j(\(D)g(E\))g
+(\(f\)\))75 2406 y Fs(A)p FB(,)c Fs(B)p FB(,)g Fs(C)g
+FB(ha)o(v)o(e)g(a)g(n)o(ull)g(list)g(of)g(sup)q(er)i(classes.)24
+b(In)15 b(this)h(case,)g(the)g(system)g(will)e(replace)i(it)f(b)o(y)g
+(the)i(list)e(whic)o(h)75 2456 y(only)e(con)o(tains)h
+Fs(<object>)p FB(,)d(the)j(ro)q(ot)g(of)f(all)g(the)h(classes)h
+(de\014ned)g(b)o(y)e Fs(define-class)p FB(.)j Fs(D)p
+FB(,)d Fs(E)p FB(,)g Fs(F)g FB(use)i(m)o(ultiple)75 2506
+y(inheritance:)k(eac)o(h)14 b(class)g(inherits)g(from)e(t)o(w)o(o)h
+(previously)g(de\014ned)i(classes.)k(Those)c(class)f(de\014nitions)f
+(de\014ne)75 2556 y(a)j(hierarc)o(h)o(y)h(whic)o(h)f(is)g(sho)o(wn)h
+(in)f(Figure)g(1.)25 b(In)17 b(this)f(\014gure,)h(the)g(class)g
+Fs(<top>)e FB(is)i(also)e(sho)o(wn;)j(this)e(class)75
+2605 y(is)h(the)h(sup)q(er)g(class)g(of)e(all)g(Sc)o(heme)h(ob)r
+(jects.)29 b(In)17 b(particular,)h Fs(<top>)e FB(is)h(the)h(sup)q(er)g
+(class)g(of)e(all)g(standard)75 2655 y(Sc)o(heme)e(t)o(yp)q(es.)p
+75 2701 705 2 v 121 2728 a Fp(1)139 2740 y Fo(With)d(this)g
+(de\014nition,)e(a)i Fm(<real>)f Fo(is)i(not)e(a)i Fm(<complex>)d
+Fo(since)h Fm(<real>)g Fo(inherits)g(from)g Fm(<number>)f
+Fo(rather)h(than)h Fm(<complex>)p Fo(.)75 2779 y(In)f(practice,)e
+(inheritance)f(could)i(b)q(e)h(mo)q(di\014ed)e Fn(a)k(p)n(osteriori)p
+Fo(,)f(if)g(needed.)h(Ho)o(w)o(ev)o(er,)e(this)g(necessitates)e(some)h
+(kno)o(wledge)f(of)i(the)75 2819 y(meta)g(ob)r(ject)g(proto)q(col)f
+(and)i(it)g(will)h(not)f(b)q(e)g(sho)o(wn)g(in)g(this)g(do)q(cumen)o(t)
+p eop
+%%Page: 61 61
+61 60 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(61)p 75 64 1763 2 v 75 179 a FB(The)17 b(set)h(of)e(slots)h(of)f(a)g
+(giv)o(en)g(class)i(is)e(calculated)h(b)o(y)f(\\unioning")f(the)j
+(slots)f(of)f(all)f(its)i(sup)q(er)h(class.)27 b(F)m(or)75
+224 y(instance,)14 b(eac)o(h)h(instance)g(of)e(the)i(class)g(D,)e
+(de\014ned)i(b)q(efore)g(will)d(ha)o(v)o(e)i(three)i(slots)e(\()p
+Fs(a)p FB(,)g Fs(b)f FB(and)h Fs(d)p FB(\).)19 b(The)14
+b(slots)75 270 y(of)f(a)h(class)g(can)g(b)q(e)h(obtained)e(b)o(y)h(the)
+h Fs(class-slots)c FB(primitiv)o(e.)16 b(F)m(or)d(instance,)153
+352 y Fr(\(class-slot)o(s)j(A\))350 397 y Fq(=)-6 b Fl(\))19
+b Fr(\(a\))153 443 y(\(class-slot)o(s)d(E\))350 489 y
+Fq(=)-6 b Fl(\))19 b Fr(\(a)g(e)g(c\))153 534 y(\(class-slot)o(s)d(F\))
+350 580 y Fq(=)-6 b Fl(\))19 b Fr(\(d)g(a)g(b)g(c)h(f\))75
+711 y Fj(Note:)32 b Fq(The)13 b(order)h(of)f(slots)g(is)h(not)f
+(signi\014can)o(t.)75 830 y FE(3.2)56 b(Instance)18 b(creation)g(and)h
+(slot)f(access)75 908 y FB(Creation)d(of)f(an)g(instance)i(of)e(a)g
+(previously)h(de\014ned)h(class)f(can)g(b)q(e)g(done)g(with)g(the)g
+Fs(make)f FB(pro)q(cedure.)23 b(This)75 958 y(pro)q(cedure)13
+b(tak)o(es)f(one)f(mandatory)e(parameter)i(whic)o(h)g(is)g(the)h(class)
+f(of)g(the)g(instance)h(whic)o(h)f(m)o(ust)f(b)q(e)i(created)75
+1008 y(and)h(a)f(list)g(of)g(optional)g(argumen)o(ts.)17
+b(Optional)11 b(argumen)o(ts)h(are)i(generally)e(used)i(to)e
+(initialize)f(some)h(slots)h(of)75 1058 y(the)h(newly)g(created)i
+(instance.)i(F)m(or)c(instance,)g(the)h(follo)o(wing)c(form)153
+1148 y Fr(\(define)17 b(c)j(\(make)d(<complex>\))o(\))75
+1288 y FB(will)12 b(create)k(a)d(new)i Fs(<complex>)d
+FB(ob)r(ject)i(and)g(will)e(bind)i(it)g(to)f(the)i Fs(c)e
+FB(Sc)o(heme)h(v)n(ariable.)75 1338 y(Accessing)f(the)e(slots)h(of)e
+(the)i(new)f(complex)f(n)o(um)o(b)q(er)g(can)i(b)q(e)f(done)h(with)f
+(the)g Fs(slot-ref)f FB(and)h(the)g Fs(slot-set!)75 1388
+y FB(primitiv)o(es.)16 b Fs(Slot-set!)h FB(primitiv)o(e)11
+b(p)q(ermits)j(to)f(set)i(the)f(v)n(alue)f(of)h(an)f(ob)r(ject)i(slot)e
+(and)h Fs(slot-ref)e FB(p)q(ermits)75 1438 y(to)i(get)g(its)g(v)n
+(alue.)153 1529 y Fr(\(slot-set!)i(c)j('r)g(10\))153
+1574 y(\(slot-set!)d(c)j('i)g(3\))153 1620 y(\(slot-ref)e(c)i('r\))350
+1666 y Fq(=)-6 b Fl(\))19 b Fr(10)153 1711 y(\(slot-ref)e(c)i('i\))350
+1757 y Fq(=)-6 b Fl(\))19 b Fr(3)75 1897 y FB(Using)14
+b(the)g Fs(describe)f FB(generic)h(function)g(is)g(a)g(simple)e(w)o(a)o
+(y)h(to)h(see)h(all)e(the)h(slots)g(of)g(an)g(ob)r(ject)g(at)g(one)g
+(time:)75 1946 y(this)f(function)g(prin)o(ts)g(all)e(the)j(slots)f(of)f
+(an)h(ob)r(ject)h(on)e(the)i(standard)f(output.)18 b(F)m(or)12
+b(instance,)i(the)f(expression)153 2037 y Fr(\(describe)k(c\))75
+2172 y FB(will)12 b(prin)o(t)i(the)h(follo)o(wing)c(informations)g(on)j
+(the)g(standard)h(output:)153 2254 y Fr(#[<complex>)h(122398])h(is)i
+(an)f(instance)f(of)i(class)e(<complex>)153 2300 y(Slots)h(are:)252
+2345 y(r)h(=)g(10)252 2391 y(i)g(=)g(3)75 2556 y FE(3.3)56
+b(Slot)18 b(description)75 2634 y FB(When)c(sp)q(ecifying)f(a)g(slot,)g
+(a)g(set)h(of)f(options)g(can)h(b)q(e)g(giv)o(en)f(to)g(the)h(system.)k
+(Eac)o(h)c(option)f(is)g(sp)q(eci\014ed)i(with)75 2684
+y(a)f(k)o(eyw)o(ord.)k(The)c(list)f(of)h(authorised)g(k)o(eyw)o(ords)g
+(is)g(giv)o(en)f(b)q(elo)o(w:)137 2769 y Fk(\017)21 b
+Fs(:initform)12 b FB(p)q(ermits)i(to)g(supply)g(a)g(default)g(v)n(alue)
+f(for)h(the)h(slot.)j(This)c(default)g(v)n(alue)g(is)g(obtained)g(b)o
+(y)179 2819 y(ev)n(aluating)e(the)j(form)d(giv)o(en)h(after)h(the)h
+Fs(:initform)d FB(in)h(the)i(global)d(en)o(vironmen)o(t.)p
+eop
+%%Page: 62 62
+62 61 bop 75 47 a FA(62)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 137 179 a Fk(\017)21 b Fs(:init-keyword)10
+b FB(p)q(ermits)i(to)h(sp)q(ecify)g(the)g(k)o(eyw)o(ord)g(for)f
+(initializing)f(a)h(slot.)17 b(The)d(init-k)o(eyw)o(ord)d(ma)o(y)179
+229 y(b)q(e)k(pro)o(vided)g(during)g(instance)g(creation)g(\(i.e.)21
+b(in)14 b(the)i(mak)o(e)d(optional)h(parameter)g(list\).)21
+b(Sp)q(ecifying)179 278 y(suc)o(h)e(a)e(k)o(eyw)o(ord)h(during)g
+(instance)h(initialization)d(will)g(sup)q(ersede)21 b(the)e(default)e
+(slot)h(initialization)179 328 y(p)q(ossibly)13 b(giv)o(en)h(with)f
+Fs(:initform)p FB(.)137 407 y Fk(\017)21 b Fs(:getter)14
+b FB(p)q(ermits)h(to)h(supply)f(the)i(name)d(for)h(the)i(slot)e
+(getter.)25 b(The)16 b(name)e(binding)h(is)h(done)g(in)f(the)179
+457 y(global)d(en)o(vironmen)o(t.)137 535 y Fk(\017)21
+b Fs(:setter)14 b FB(p)q(ermits)i(to)f(supply)h(the)h(name)e(for)g(the)
+i(slot)e(setter.)26 b(The)17 b(name)d(binding)h(is)h(done)g(in)g(the)
+179 585 y(global)c(en)o(vironmen)o(t.)137 664 y Fk(\017)21
+b Fs(:accessor)13 b FB(p)q(ermits)i(to)g(supply)g(the)g(name)f(for)h
+(the)h(slot)f(accessor.)23 b(The)16 b(name)d(binding)i(is)g(done)g(in)
+179 714 y(the)g(global)d(en)o(vironmen)o(t.)19 b(An)14
+b(accessor)i(p)q(ermits)e(to)h(get)f(and)g(set)i(the)f(v)n(alue)e(of)h
+(a)g(slot.)19 b(Setting)c(the)179 763 y(v)n(alue)e(of)g(a)h(slot)g(is)f
+(done)h(with)g(the)g(extended)i(v)o(ersion)e(of)f Fs(set!)p
+FB(.)137 842 y Fk(\017)21 b Fs(:allocation)11 b FB(p)q(ermits)i(to)g
+(sp)q(ecify)h(ho)o(w)e(storage)i(for)f(the)h(slot)f(is)g(allo)q(cated.)
+k(Three)e(kinds)e(of)g(allo)q(ca-)179 892 y(tion)g(are)h(pro)o(vided.)k
+(They)d(are)f(describ)q(ed)i(b)q(elo)o(w:)225 970 y FA({)21
+b Fs(:instance)15 b FB(indicates)i(that)f(eac)o(h)h(instance)g(gets)h
+(its)e(o)o(wn)g(storage)h(for)f(the)h(slot.)26 b(This)16
+b(is)h(the)270 1020 y(default.)225 1082 y FA({)k Fs(:class)14
+b FB(indicates)h(that)g(there)i(is)d(one)i(storage)f(lo)q(cation)f
+(used)i(b)o(y)f(all)f(the)h(direct)h(and)f(indirect)270
+1132 y(instances)j(of)e(the)i(class.)27 b(This)17 b(p)q(ermits)f(to)g
+(de\014ne)i(a)f(kind)f(of)g(global)f(v)n(ariable)h(whic)o(h)h(can)g(b)q
+(e)270 1182 y(accessed)f(only)d(b)o(y)h(\(in\)direct)h(instances)g(of)e
+(the)h(class)h(whic)o(h)f(de\014nes)h(this)f(slot.)225
+1244 y FA({)21 b Fs(:virtual)13 b FB(indicates)j(that)f(no)g(storage)g
+(will)f(b)q(e)i(allo)q(cated)e(for)h(this)g(slot.)21
+b(It)16 b(is)f(up)g(to)g(the)g(user)270 1294 y(to)g(de\014ne)h(a)f
+(getter)h(and)f(a)g(setter)h(function)f(for)g(this)g(slot.)21
+b(Those)16 b(functions)f(m)o(ust)f(b)q(e)h(de\014ned)270
+1344 y(with)f(the)g Fs(:slot-ref)e FB(and)i Fs(:slot-set!)i
+FB(options.)i(See)d(the)f(example)f(b)q(elo)o(w.)75 1418
+y(T)m(o)e(illustrate)h(slot)f(description,)i(w)o(e)f(shall)f
+(rede\014ne)j(the)e Fs(<complex>)e FB(class)j(seen)g(b)q(efore.)18
+b(A)12 b(de\014nition)g(could)75 1464 y(b)q(e:)153 1534
+y Fr(\(define-cla)o(ss)k(<complex>)g(\(<number>\))212
+1580 y(\(\(r)j(:initform)d(0)j(:getter)e(get-r)h(:setter)f(set-r!)g
+(:init-key)o(wor)o(d)g(:r\))232 1625 y(\(i)i(:initform)d(0)j(:getter)e
+(get-i)h(:setter)f(set-i!)g(:init-key)o(wor)o(d)g(:i\)\)\))75
+1741 y FB(With)10 b(this)i(de\014nition,)e(the)i Fs(r)f
+FB(and)g Fs(i)g FB(slot)f(are)i(set)g(to)f(0)g(b)o(y)f(default.)17
+b(V)m(alue)11 b(of)f(a)h(slot)g(can)g(also)f(b)q(e)i(sp)q(eci\014ed)h
+(b)o(y)75 1787 y(calling)f Fs(make)h FB(with)g(the)h
+Fs(:r)f FB(and)g Fs(:i)g FB(k)o(eyw)o(ords.)18 b(F)m(urthermore,)13
+b(the)h(generic)h(functions)e Fs(get-r)f FB(and)i Fs(set-r!)75
+1832 y FB(\(resp.)19 b Fs(get-i)12 b FB(and)i Fs(set-i!)p
+FB(\))j(are)d(automatically)c(de\014ned)15 b(b)o(y)e(the)h(system)f(to)
+g(read)h(and)g(write)f(the)h Fs(r)g FB(\(resp.)75 1878
+y Fs(i)p FB(\))g(slot.)153 1948 y Fr(\(define)j(c1)i(\(make)f
+(<complex>)e(:r)j(1)g(:i)g(2\)\))153 1994 y(\(get-r)f(c1\))350
+2039 y Fq(=)-6 b Fl(\))19 b Fr(1)153 2085 y(\(set-r!)e(c1)i(12\))153
+2131 y(\(get-r)f(c1\))350 2176 y Fq(=)-6 b Fl(\))19 b
+Fr(12)153 2222 y(\(define)e(c2)i(\(make)f(<complex>)e(:r)j(2\)\))153
+2268 y(\(get-r)f(c2\))350 2313 y Fq(=)-6 b Fl(\))19 b
+Fr(2)153 2359 y(\(get-i)f(c2\))350 2405 y Fq(=)-6 b Fl(\))19
+b Fr(0)75 2520 y FB(Accessors)d(pro)o(vide)c(an)h(uniform)e(access)k
+(for)e(reading)f(and)h(writing)f(an)h(ob)r(ject)h(slot.)j(W)m(riting)12
+b(a)h(slot)f(is)h(done)75 2566 y(with)18 b(an)f(extended)j(form)c(of)i
+Fs(set!)29 b FB(whic)o(h)18 b(is)g(close)h(to)e(the)i(Common)c(Lisp)j
+Fs(setf)f FB(macro.)29 b(So,)18 b(another)75 2612 y(de\014nition)13
+b(of)h(the)g(previous)g Fs(<complex>)e FB(class,)i(using)g(the)g
+Fs(:accessor)e FB(option,)h(could)h(b)q(e:)153 2682 y
+Fr(\(define-cla)o(ss)i(<complex>)g(\(<number>\))212 2728
+y(\(\(r)j(:initform)d(0)j(:accessor)d(real-part)g(:init-keywo)o(rd)g
+(:r\))232 2773 y(\(i)j(:initform)d(0)j(:accessor)d(imag-part)g
+(:init-keywo)o(rd)g(:i\)\)\))p eop
+%%Page: 63 63
+63 62 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(63)p 75 64 1763 2 v 270 160 a Fm(\(define-cla)o(ss)14
+b(<complex>)h(\(<number>)o(\))323 200 y(\(;;)i(True)f(slots)g(use)g
+(rectangular)e(coordinate)o(s)341 239 y(\(r)j(:initform)d(0)j
+(:accessor)e(real-part)f(:init-keywo)o(rd)g(:r\))341
+279 y(\(i)j(:initform)d(0)j(:accessor)e(imag-part)f(:init-keywo)o(rd)g
+(:i\))341 318 y(;;)j(Virtual)e(slots)h(access)f(do)i(the)g(conversio)o
+(n)341 358 y(\(m)g(:accessor)d(magnitude)g(:init-keywor)o(d)g(:magn)394
+397 y(:allocati)o(on)g(:virtual)394 436 y(:slot-ref)g(\(lambda)h(\(o\))
+605 476 y(\(let)i(\(\(r)f(\(slot-ref)f(o)i('r\)\))f(\(i)h(\(slot-ref)d
+(o)k('i\)\)\))641 515 y(\(sqrt)d(\(+)i(\(*)g(r)h(r\))f(\(*)f(i)i
+(i\)\)\)\)\))394 555 y(:slot-set)o(!)d(\(lambda)g(\(o)i(m\))641
+594 y(\(let)f(\(\(a)g(\(slot-ref)f(o)i('a\)\)\))676 634
+y(\(slot-set!)d(o)j('r)g(\(*)g(m)g(\(cos)g(a\)\)\))676
+673 y(\(slot-set!)d(o)j('i)g(\(*)g(m)g(\(sin)g(a\)\)\)\)\)\))341
+712 y(\(a)g(:accessor)d(angle)i(:init-keyw)o(ord)e(:angle)394
+752 y(:allocati)o(on)g(:virtual)394 791 y(:slot-ref)g(\(lambda)h(\(o\))
+605 831 y(\(atan)h(\(slot-ref)f(o)i('i\))f(\(slot-ref)f(o)i('r\)\)\))
+394 870 y(:slot-set)o(!)e(\(lambda\(o)f(a\))623 910 y(\(let)i(\(\(m)h
+(\(slot-ref)d(o)j('m\)\)\))676 949 y(\(slot-set!)d(o)j('r)g(\(*)g(m)g
+(\(cos)g(a\)\)\))676 988 y(\(slot-set!)d(o)j('i)g(\(*)g(m)g(\(sin)g
+(a\)\)\)\)\)\)\)\))339 1119 y FB(Figure)d(C.2:)j Fz(A)e
+Fs(<complex>)e Fz(numb)n(er)i(class)g(de\014nition)g(using)h(virtual)e
+(slots)75 1275 y FB(Using)g(this)g(class)g(de\014nition,)f(reading)h
+(the)g(real)g(part)g(of)f(the)i Fs(c)e FB(complex)g(can)h(b)q(e)h(done)
+f(with:)153 1356 y Fr(\(real-part)i(c\))75 1483 y FB(and)f(setting)h
+(it)f(to)h(the)g(v)n(alue)f(con)o(tained)g(in)h(the)g
+Fs(new-value)d FB(v)n(ariable)i(can)h(b)q(e)g(done)g(using)f(the)h
+(extended)75 1528 y(form)c(of)h Fs(set!)p FB(.)153 1610
+y Fr(\(set!)18 b(\(real-part)e(c\))j(new-value)o(\))75
+1740 y FB(Supp)q(ose)d(no)o(w)e(that)h(w)o(e)g(ha)o(v)o(e)g(to)g
+(manipulate)e(complex)g(n)o(um)o(b)q(ers)i(with)f(rectangular)i(co)q
+(ordinates)f(as)g(w)o(ell)75 1790 y(as)g(with)f(p)q(olar)g(co)q
+(ordinates.)21 b(One)16 b(solution)d(could)i(b)q(e)g(to)g(ha)o(v)o(e)f
+(a)h(de\014nition)f(of)g(complex)f(n)o(um)o(b)q(ers)i(whic)o(h)75
+1840 y(uses)g(one)f(particular)f(represen)o(tation)i(and)f(some)e(con)o
+(v)o(ersion)i(functions)g(to)f(pass)h(from)e(one)i(represen)o(tation)75
+1890 y(to)i(the)g(other.)25 b(A)16 b(b)q(etter)i(solution)d(uses)i
+(virtual)e(slots.)24 b(A)16 b(complete)g(de\014nition)f(of)g(the)i
+Fs(<complex>)d FB(class)75 1940 y(using)g(virtual)f(slots)h(is)f(giv)o
+(en)h(in)f(Figure)h(2.)75 2038 y(This)h(class)g(de\014nition)g
+(implemen)o(ts)e(t)o(w)o(o)h(real)h(slots)g(\()p Fs(r)g
+FB(and)g Fs(i)p FB(\).)21 b(V)m(alues)15 b(of)g(the)g
+Fs(m)g FB(and)g Fs(a)g FB(virtual)f(slots)h(are)75 2084
+y(calculated)i(from)e(real)i(slot)g(v)n(alues.)26 b(Reading)16
+b(a)h(virtual)f(slot)g(leads)h(to)g(the)h(application)d(of)h(the)i
+(function)75 2129 y(de\014ned)i(in)d(the)i Fs(:slot-ref)e
+FB(option.)31 b(W)m(riting)17 b(suc)o(h)i(a)f(slot)g(leads)h(to)f(the)h
+(application)e(of)h(the)h(function)75 2175 y(de\014ned)c(in)e(the)i
+Fs(:slot-set!)h FB(option.)i(F)m(or)13 b(instance,)h(the)h(follo)o
+(wing)c(expression)153 2256 y Fr(\(slot-set!)16 b(c)j('a)g(3\))75
+2383 y FB(p)q(ermits)g(to)g(set)h(the)g(angle)f(of)g(the)h
+Fs(c)f FB(complex)f(n)o(um)o(b)q(er.)34 b(This)19 b(expression)i
+(conducts,)g(in)e(fact,)i(to)e(the)75 2428 y(ev)n(aluation)12
+b(of)i(the)g(follo)o(wing)e(expression)153 2510 y Fr(\(\(lambda)17
+b(o)i(m\))232 2555 y(\(let)f(\(\(m)g(\(slot-ref)f(o)i('m\)\)\))291
+2601 y(\(slot-set)o(!)e(o)i('r)g(\(*)f(m)i(\(cos)e(a\)\)\))291
+2647 y(\(slot-set)o(!)f(o)i('i)g(\(*)f(m)i(\(sin)e(a\)\)\)\))193
+2692 y(c)h(3\))75 2819 y FB(A)14 b(more)f(complete)g(example)g(is)g
+(giv)o(en)h(b)q(elo)o(w:)p eop
+%%Page: 64 64
+64 63 bop 75 47 a FA(64)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 153 179 a Fr(\(define)j(c)j(\(make)d(<complex>)f(:r)j
+(12)g(:i)g(20\)\))153 224 y(\(real-part)d(c\))350 270
+y Fq(=)-6 b Fl(\))19 b Fr(12)153 316 y(\(angle)f(c\))350
+361 y Fq(=)-6 b Fl(\))19 b Fr(1.03037682)o(65)o(243)o(1)153
+407 y(\(slot-set!)d(c)j('i)g(10\))153 453 y(\(set!)f(\(real-part)e(c\))
+j(1\))153 498 y(\(describe)e(c\))350 544 y Fq(=)-6 b
+Fl(\))350 590 y Fr(#[<comple)o(x>)16 b(128bf8])h(is)i(an)g(instance)d
+(of)j(class)f(<complex>)350 635 y(Slots)f(are:)448 681
+y(r)i(=)g(1)448 727 y(i)g(=)g(10)448 772 y(m)g(=)g(10.0498756)o(21)o
+(120)o(9)448 818 y(a)g(=)g(1.47112767)o(43)o(037)o(3)75
+946 y FB(Since)10 b(initialization)c(k)o(eyw)o(ords)k(ha)o(v)o(e)f(b)q
+(een)h(de\014ned)h(for)e(the)h(four)f(slots,)g(w)o(e)h(can)f(no)o(w)g
+(de\014ne)i(the)e Fs(make-rectangular)75 991 y FB(and)14
+b Fs(make-polar)d FB(standard)k(Sc)o(heme)f(primitiv)o(es.)153
+1074 y Fr(\(define)j(make-rectan)o(gu)o(lar)212 1120
+y(\(lambda)g(\(x)i(y\))g(\(make)f(<complex)o(>)f(:r)i(x)g(:i)g(y\)\)\))
+153 1211 y(\(define)e(make-polar)212 1257 y(\(lambda)g(\(x)i(y\))g
+(\(make)f(<complex)o(>)f(:magn)g(x)j(:angle)d(y\)\)\))75
+1470 y FE(3.4)56 b(Class)19 b(precedence)e(list)75 1549
+y FB(A)e(class)g(ma)o(y)e(ha)o(v)o(e)h(more)g(than)g(one)h(sup)q
+(erclass.)877 1534 y Fw(2)918 1549 y FB(With)f(single)g(inheritance)i
+(\(one)f(sup)q(erclass\),)h(it)e(is)h(easy)75 1599 y(to)f(order)g(the)h
+(sup)q(er)g(classes)g(from)d(most)h(to)h(least)g(sp)q(eci\014c.)19
+b(This)14 b(is)g(the)g(rule:)270 1694 y FA(Rule)g(1:)22
+b(Eac)o(h)16 b(class)f(is)g(more)g(sp)q(eci\014c)g(than)f(its)h(sup)q
+(erclasses.)75 1786 y FB(With)e(m)o(ultiple)f(inheritance,)i(ordering)g
+(is)g(harder.)k(Supp)q(ose)d(w)o(e)f(ha)o(v)o(e)153 1869
+y Fr(\(define-cla)o(ss)i(X)j(\(\))212 1914 y(\(\(x)g(:initform)d
+(1\)\)\))153 2006 y(\(define-cla)o(ss)g(Y)j(\(\))212
+2051 y(\(\(x)g(:initform)d(2\)\)\))153 2143 y(\(define-cla)o(ss)g(Z)j
+(\(X)g(Y\))212 2188 y(\(...\)\))75 2320 y FB(In)f(this)f(case,)i(the)f
+Fs(Z)g FB(class)g(is)f(more)g(sp)q(eci\014c)i(than)e(the)h
+Fs(X)g FB(or)f Fs(Y)h FB(class)g(for)f(instances)i(of)e
+Fs(Z)p FB(.)f(Ho)o(w)o(ev)o(er,)j(the)75 2370 y Fs(:initform)14
+b FB(sp)q(eci\014ed)j(in)f Fs(X)g FB(and)f Fs(Y)h FB(leads)g(to)g(a)g
+(problem:)k(whic)o(h)c(one)g(o)o(v)o(errides)h(the)f(other?)25
+b(The)17 b(rule)f(in)75 2420 y Fx(STklos)p FB(,)j(as)f(in)f(CLOS,)h(is)
+f(that)h(the)g(sup)q(erclasses)j(listed)c(earlier)h(are)g(more)f(sp)q
+(eci\014c)i(than)f(those)g(listed)75 2469 y(later.)g(So:)270
+2556 y FA(Rule)c(2:)21 b(F)l(or)15 b(a)h(giv)o(en)e(class,)h(sup)q
+(erclasses)f(listed)f(earlier)g(are)i(more)g(sp)q(e-)270
+2605 y(ci\014c)g(than)g(those)g(listed)e(later.)75 2692
+y FB(These)20 b(rules)f(are)g(used)h(to)e(compute)g(a)g(linear)h(order)
+g(for)f(a)g(class)h(and)g(all)e(its)i(sup)q(erclasses,)j(from)17
+b(most)75 2741 y(sp)q(eci\014c)f(to)e(least)h(sp)q(eci\014c.)21
+b(This)14 b(order)h(is)f(called)h(the)g(\\class)f(precedence)k(list")13
+b(of)h(the)h(class.)20 b(Giv)o(en)14 b(those)p 75 2780
+705 2 v 121 2807 a Fp(2)139 2819 y Fo(This)d(section)f(is)h(an)g
+(adaptation)e(of)i(Je\013)g(Dalton's)f(\(J.Dalton@ed.ac.u)o(k\))e
+(Brief)j(in)o(tro)q(duction)d(to)j(CLOS\))p eop
+%%Page: 65 65
+65 64 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(65)p 75 64 1763 2 v 75 179 a FB(t)o(w)o(o)13 b(rules,)g(w)o(e)h(can)f
+(claim)f(that)h(the)h(initial)d(form)h(for)h(the)g Fs(x)g
+FB(slot)h(of)e(previous)i(example)e(is)h(2)g(since)h(the)g(class)75
+229 y Fs(X)g FB(is)f(placed)i(b)q(efore)f Fs(Y)g FB(in)f(class)i
+(precedence)i(list)c(of)g Fs(Z)p FB(.)75 278 y(This)g(t)o(w)o(o)f
+(rules)h(are)g(not)g(alw)o(a)o(ys)e(enough)i(to)g(determine)f(a)g
+(unique)h(order,)g(ho)o(w)o(ev)o(er,)g(but)g(they)g(giv)o(e)f(an)h
+(idea)75 328 y(of)g(ho)o(w)h(things)g(w)o(ork.)19 b Fx(STklos)c
+FB(algorithm)c(for)j(calculating)f(the)i(precedence)i(list)c(is)h(a)g
+(little)g(simpler)e(than)75 378 y(the)g(CLOS)f(one)h(describ)q(ed)h(in)
+e([10)o(])g(for)g(breaking)g(ties.)18 b(Consequen)o(tly)11
+b(the)h(calculated)g(class)g(precedence)i(list)75 428
+y(could)f(b)q(e)i(di\013eren)o(t.)j(T)m(aking)12 b(the)j
+Fs(F)e FB(class)h(sho)o(wn)f(in)g(Figure)h(1,)f(the)h
+Fx(STklos)h FB(calculated)e(class)h(precedence)75 478
+y(list)f(is)179 566 y Fs(\(f)21 b(d)h(e)f(a)h(b)g(c)f(<object>)f
+(<top>\))75 654 y FB(whereas)15 b(it)f(w)o(ould)f(b)q(e)h(the)h(follo)o
+(wing)c(list)i(with)h(a)g(CLOS-lik)o(e)f(algorithm:)179
+734 y Fs(\(f)21 b(d)h(e)f(a)h(c)g(b)f(<object>)f(<top>\))75
+815 y FB(Ho)o(w)o(ev)o(er,)13 b(it)f(is)h(usually)f(considered)i(a)e
+(bad)h(idea)f(for)g(programmers)f(to)i(rely)g(on)f(exactly)h(what)f
+(the)i(order)f(is.)75 865 y(If)f(the)i(order)f(for)g(some)f(sup)q
+(erclasses)j(is)e(imp)q(ortan)o(t,)d(it)j(can)g(b)q(e)g(expressed)i
+(directly)e(in)g(the)g(class)g(de\014nition.)75 910 y(The)18
+b(precedence)j(list)c(of)g(a)g(class)h(can)g(b)q(e)g(obtained)f(b)o(y)h
+(the)g(function)f Fs(class-precedence-)o(list)p FB(.)26
+b(This)75 956 y(function)14 b(returns)h(a)f(ordered)h(list)e(whose)i
+(\014rst)f(elemen)o(t)g(is)f(the)i(most)e(sp)q(eci\014c)i(class.)j(F)m
+(or)c(instance,)153 1032 y Fr(\(class-prec)o(ed)o(enc)o(e-l)o(is)o(t)j
+(B\))350 1078 y Fq(=)-6 b Fl(\))19 b Fr(\(#[<class>)d(12a248])h
+(#[<class>)f(1074e8])h(#[<class>)f(107498]\))75 1200
+y FB(Ho)o(w)o(ev)o(er,)21 b(this)f(result)h(is)f(not)f(to)q(o)h(m)o(uc)
+o(h)f(readable;)j(using)e(the)h(function)e(class-name)g(yields)h(a)f
+(clearer)75 1246 y(result:)153 1322 y Fr(\(map)g(class-na)o(me)d
+(\(class-pre)o(ced)o(en)o(ce-)o(lis)o(t)g(B\)\))350 1368
+y Fq(=)-6 b Fl(\))19 b Fr(\(b)g(<object>)d(<top>\))75
+1550 y Fu(4)67 b(Generic)23 b(functions)75 1649 y FE(4.1)56
+b(Generic)17 b(functions)i(and)g(metho)r(ds)75 1726 y
+FB(Neither)g Fx(STklos)g FB(nor)f(CLOS)h(use)f(the)h(message)f(mec)o
+(hanism)e(for)h(metho)q(ds)h(as)g(most)f(Ob)r(ject)i(Orien)o(ted)75
+1776 y(language)d(do.)29 b(Instead,)18 b(they)g(use)h(the)f(notion)e
+(of)h(generic)h(function.)29 b(A)17 b(generic)h(function)g(can)f(b)q(e)
+h(seen)75 1826 y(as)f(a)g(metho)q(ds)g(\\tank)o(er".)28
+b(When)18 b(the)f(ev)n(aluator)g(requestd)i(the)f(application)e(of)g(a)
+h(generic)h(function,)g(all)75 1875 y(the)f(metho)q(ds)f(of)f(this)i
+(generic)g(function)f(will)e(b)q(e)j(grabb)q(ed)g(and)f(the)h(most)e
+(sp)q(eci\014c)j(among)c(them)h(will)g(b)q(e)75 1925
+y(applied.)i(W)m(e)c(sa)o(y)g(that)g(a)f(metho)q(d)h
+Fz(M)g FB(is)g Fz(mor)n(e)g(sp)n(e)n(ci\014c)h FB(than)f(a)g(metho)q(d)
+f Fz(M')h FB(if)f(the)h(class)h(of)e(its)h(parameters)75
+1975 y(are)h(more)g(sp)q(eci\014c)h(than)f(the)h Fz(M')f
+FB(ones.)19 b(T)m(o)13 b(b)q(e)i(more)e(precise,)i(when)g(a)e(generic)i
+(fun)o(tion)f(m)o(ust)f(b)q(e)h(\\called")75 2025 y(the)g(system)g
+(will)126 2113 y(1.)20 b(searc)o(h)15 b(among)d(all)g(the)j(generic)g
+(function)e(those)i(whic)o(h)e(are)i(applicable)126 2195
+y(2.)20 b(sort)14 b(the)h(list)e(of)g(applicable)g(metho)q(ds)h(in)f
+(the)i(\\most)d(sp)q(eci\014c")j(order)126 2277 y(3.)20
+b(call)13 b(the)h(most)f(sp)q(eci\014c)i(metho)q(d)e(of)h(this)g(list)f
+(\(i.e.)18 b(the)c(\014rst)h(metho)q(d)e(of)g(the)i(sorted)g(metho)q
+(ds)e(list\).)75 2365 y(The)19 b(de\014nition)g(of)f(a)h(generic)g
+(function)g(is)g(done)g(with)f(the)i Fs(define-generic)c
+FB(macro.)31 b(De\014nition)18 b(of)h(a)75 2415 y(new)f(metho)q(d)e(is)
+i(done)f(with)g(the)i Fs(define-method)14 b FB(macro.)28
+b(Note)17 b(that)h Fs(define-method)d FB(automatically)75
+2464 y(de\014nes)g(the)f(generic)g(function)f(if)g(it)g(has)g(not)h(b)q
+(een)g(de\014ned)h(b)q(efore.)j(Consequen)o(tly)m(,)13
+b(most)f(of)h(the)h(time,)e(the)75 2514 y Fs(define-generic)f
+FB(needs)k(not)f(b)q(e)g(used.)75 2560 y(Consider)g(the)h(follo)o(wing)
+c(de\014nitions:)153 2636 y Fr(\(define-gen)o(er)o(ic)16
+b(M\))153 2682 y(\(define-met)o(ho)o(d)h(M\(\(a)h(<integer>)o(\))e(b\))
+j('integer\))153 2728 y(\(define-met)o(ho)o(d)e(M\(\(a)h(<real>\))f
+(b\))h('real\))153 2773 y(\(define-met)o(ho)o(d)f(M\(a)h(b\))h('top\))p
+eop
+%%Page: 66 66
+66 65 bop 75 47 a FA(66)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a FB(The)h Fs(define-generic)d
+FB(call)i(de\014nes)j Fs(M)d FB(as)h(a)g(generic)h(function.)21
+b(Note)15 b(that)g(the)g(signature)h(of)e(the)i(generic)75
+229 y(function)c(is)g(not)g(giv)o(en)g(up)q(on)h(de\014nition,)e(con)o
+(trarily)h(to)g(CLOS.)g(This)g(will)f(p)q(ermit)h(metho)q(ds)g(with)f
+(di\013eren)o(t)75 278 y(signatures)k(for)e(a)h(giv)o(en)g(generic)g
+(function,)g(as)g(w)o(e)g(shall)f(see)i(later.)k(The)14
+b(three)h(next)g(lines)f(de\014ne)h(metho)q(ds)75 328
+y(for)i(the)h Fs(M)f FB(generic)h(function.)28 b(Eac)o(h)17
+b(metho)q(d)g(uses)h(a)f(sequence)i(of)e Fz(p)n(ar)n(ameter)g(sp)n(e)n
+(cializers)g FB(that)g(sp)q(ecify)75 378 y(when)c(the)f(giv)o(en)g
+(metho)q(d)f(is)h(applicable.)17 b(A)12 b(sp)q(ecializer)h(p)q(ermits)f
+(to)g(indicate)g(the)g(class)h(a)f(parameter)f(m)o(ust)75
+428 y(b)q(elong)i(to)g(\(directly)g(or)g(indirectly\))g(to)g(b)q(e)g
+(applicable.)k(If)c(no)g(sp)q(eciliazer)g(is)g(giv)o(en,)f(the)i
+(system)f(defaults)g(it)75 478 y(to)h Fs(<top>)p FB(.)j(Th)o(us,)c(the)
+i(\014rst)g(metho)q(d)e(de\014nition)g(is)h(equiv)n(alen)o(t)f(to)153
+560 y Fr(\(define-met)o(ho)o(d)k(M\(\(a)h(<integer>)o(\))e(\(b)j
+(<top>\)\))e('integer\))75 689 y FB(No)o(w,)c(let)h(us)g(lo)q(ok)f(at)h
+(some)f(p)q(ossible)h(calls)g(to)f(generic)i(function)f
+Fs(M)p FB(:)153 764 y Fr(\(M)19 b(2)h(3\))350 810 y Fq(=)-6
+b Fl(\))19 b Fr(integer)153 855 y(\(M)g(2)h(#t\))350
+901 y Fq(=)-6 b Fl(\))19 b Fr(integer)153 947 y(\(M)g(1.2)g('a\))350
+992 y Fq(=)-6 b Fl(\))19 b Fr(real)153 1038 y(\(M)g(#3)g('a\))350
+1084 y Fq(=)-6 b Fl(\))19 b Fr(real)153 1129 y(\(M)g(#t)g(#f\))350
+1175 y Fq(=)-6 b Fl(\))19 b Fr(top)153 1221 y(\(M)g(1)h(2)f(3\))350
+1266 y Fq(=)-6 b Fl(\))19 b Fr(error)f(\(since)f(no)i(method)e(exists)g
+(for)i(3)g(parameters)o(\))75 1387 y FB(The)12 b(preceding)i(metho)q
+(ds)d(use)i(only)e(one)h(sp)q(ecializer)h(p)q(er)g(parameter)f(list.)17
+b(Of)12 b(course,)h(eac)o(h)g(parameter)e(can)75 1433
+y(use)17 b(a)f(sp)q(ecializer.)26 b(In)16 b(this)h(case,)g(the)g
+(parameter)f(list)g(is)g(scanned)h(from)e(left)h(to)g(righ)o(t)g(to)g
+(determine)g(the)75 1478 y(applicabilit)o(y)c(of)h(a)g(metho)q(d.)18
+b(Supp)q(ose)c(w)o(e)h(declare)f(no)o(w)153 1554 y Fr(\(define-met)o
+(ho)o(d)j(M)i(\(\(a)f(<integer>\))e(\(b)j(<number>\))o(\))e('integer-)o
+(nu)o(mbe)o(r\))153 1599 y(\(define-met)o(ho)o(d)g(M)i(\(\(a)f
+(<integer>\))e(\(b)j(<real>\)\))56 b('integer-)o(re)o(al\))153
+1645 y(\(define-met)o(ho)o(d)17 b(M)i(\(a)g(\(b)g(<number>)o(\)\))d
+('top-numbe)o(r\))75 1766 y FB(In)e(this)g(case,)153
+1841 y Fr(\(M)19 b(1)h(2\))350 1887 y Fq(=)-6 b Fl(\))19
+b Fr(integer-in)o(te)o(ger)153 1933 y(\(M)g(1)h(1.0\))350
+1978 y Fq(=)-6 b Fl(\))19 b Fr(integer-re)o(al)153 2024
+y(\(M)g(1)h(#t\))350 2070 y Fq(=)-6 b Fl(\))19 b Fr(integer)153
+2115 y(\(M)g('a)g(1\))350 2161 y Fq(=)-6 b Fl(\))19 b
+Fr('top-numbe)o(r)75 2322 y FE(4.2)56 b(Next-me)o(tho)r(d)75
+2394 y FB(When)16 b(a)g(generic)h(function)f(is)g(called,)g(the)h(list)
+e(of)h(applicable)f(metho)q(ds)h(is)g(built.)24 b(As)16
+b(men)o(tioned)f(b)q(efore,)75 2440 y(the)g(most)f(sp)q(eci\014c)i
+(metho)q(d)d(of)h(this)h(list)f(is)g(applied)g(\(see)i(4.1\).)j(This)c
+(metho)q(d)f(ma)o(y)e(call)i(the)h(next)g(metho)q(d)75
+2486 y(in)f(the)h(list)f(of)g(applicable)f(metho)q(ds.)20
+b(This)14 b(is)g(done)h(b)o(y)f(using)g(the)h(sp)q(ecial)g(form)e
+Fs(next-method)p FB(.)k(Consider)75 2531 y(the)d(follo)o(wing)e
+(de\014nitions)153 2607 y Fr(\(define-met)o(ho)o(d)17
+b(Test\(\(a)g(<integer)o(>\)\))36 b(\(cons)17 b('integer)g(\(next-met)o
+(hod)o(\)\))o(\))153 2652 y(\(define-met)o(ho)o(d)g(Test\(\(a)g
+(<number>)o(\)\))56 b(\(cons)17 b('number)37 b(\(next-met)o(hod)o(\)\))
+o(\))153 2698 y(\(define-met)o(ho)o(d)17 b(Test\(a\))95
+b(\(list)18 b('top\)\))75 2819 y FB(With)13 b(those)i(de\014nitions,)p
+eop
+%%Page: 67 67
+67 66 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(67)p 75 64 1763 2 v 270 160 a Fm(\(define-gen)o(er)o(ic)14
+b(new-+\))270 239 y(\(let)i(\(\(+)h(+\)\))305 318 y(\(define-met)o(hod)
+d(new-+)i(\(\(a)g(<real>\))g(\(b)h(<real>\)\))d(\(+)j(a)h(b\)\))305
+397 y(\(define-met)o(hod)c(new-+)i(\(\(a)g(<real>\))g(\(b)h(<complex>)o
+(\)\))341 436 y(\(make-rec)o(tan)o(gul)o(ar)d(\(+)j(a)g(\(real-part)e
+(b\)\))h(\(imag-part)e(b\)\)\))305 515 y(\(define-met)o(hod)g(new-+)i
+(\(\(a)g(<complex>\))f(\(b)h(<real>\)\))341 555 y(\(make-rec)o(tan)o
+(gul)o(ar)e(\(+)j(\(real-part)d(a\))j(b\))g(\(imag-part)d(a\)\)\))305
+634 y(\(define-met)o(hod)g(new-+)i(\(\(a)g(<complex>\))f(\(b)h
+(<complex>\)\))341 673 y(\(make-rec)o(tan)o(gul)o(ar)e(\(+)j
+(\(real-part)d(a\))j(\(real-part)d(b\)\))658 712 y(\(+)j(\(imag-part)d
+(a\))j(\(imag-part)d(b\)\)\)\))305 791 y(\(define-met)o(hod)g(new-+)i
+(\(\(a)g(<number>\)\))32 b(a\))305 870 y(\(define-met)o(hod)14
+b(new-+)i(\(\))h(0\))305 949 y(\(define-met)o(hod)d(new-+)i(args)34
+b(\(new-+)15 b(\(car)h(args\))g(\(apply)g(new-+)g(\(cdr)g
+(args\)\)\)\)\))270 1028 y(\(set!)g(+)h(new-+\))427 1119
+y FB(Figure)d(C.3:)j Fz(Extending)f Fs(+)f Fz(for)f(de)n(aling)h(with)f
+(c)n(omplex)h(numb)n(ers)153 1273 y Fr(\(Test)j(1\))350
+1319 y Fq(=)-6 b Fl(\))19 b Fr(\(integer)e(number)g(top\))153
+1365 y(\(Test)h(1.0\))350 1410 y Fq(=)-6 b Fl(\))19 b
+Fr(\(number)e(top\))153 1456 y(\(Test)h(#t\))350 1502
+y Fq(=)-6 b Fl(\))19 b Fr(\(top\))75 1666 y FE(4.3)56
+b(Example)75 1739 y FB(In)14 b(this)g(section)h(w)o(e)f(shall)g(con)o
+(tin)o(ue)g(to)g(de\014ne)h(op)q(erations)f(on)g(the)h
+Fs(<complex>)d FB(class)i(de\014ned)h(in)f(Figure)g(2.)75
+1785 y(Supp)q(ose)c(that)g(w)o(e)f(w)o(an)o(t)g(to)h(use)g(it)f(to)g
+(implemen)o(t)e(complex)h(n)o(um)o(b)q(ers)h(completely)m(.)15
+b(F)m(or)9 b(instance)h(a)f(de\014nition)75 1831 y(for)14
+b(the)g(addition)f(of)g(t)o(w)o(o)g(complexes)h(could)g(b)q(e)153
+1911 y Fr(\(define-met)o(ho)o(d)j(new-+)g(\(\(a)i(<complex>)o(\))e(\(b)
+h(<complex>\)\))193 1957 y(\(make-rec)o(ta)o(ngu)o(lar)e(\(+)j
+(\(real-pa)o(rt)d(a\))j(\(real-part)d(b\)\))546 2003
+y(\(+)j(\(imag-pa)o(rt)d(a\))j(\(imag-part)d(b\)\)\)\))75
+2129 y FB(T)m(o)d(b)q(e)i(sure)g(that)f(the)g Fs(+)g
+FB(used)g(in)g(the)g(metho)q(d)f Fs(new-+)g FB(is)h(the)g(standard)h
+(addition)d(w)o(e)j(can)f(do:)153 2209 y Fr(\(define-gen)o(er)o(ic)i
+(new-+\))153 2301 y(\(let)j(\(\(+)f(+\)\))193 2346 y(\(define-m)o(et)o
+(hod)e(new-+)i(\(\(a)g(<complex>\))e(\(b)j(<complex>)o(\)\))232
+2392 y(\(make-rec)o(tan)o(gul)o(ar)d(\(+)j(\(real-par)o(t)e(a\))h
+(\(real-part)e(b\)\))585 2438 y(\(+)j(\(imag-par)o(t)e(a\))h
+(\(imag-part)e(b\)\)\)\)\))75 2568 y FB(The)h Fs(define-generic)d
+FB(ensures)19 b(here)e(that)g Fs(new-+)f FB(will)f(b)q(e)i(de\014ned)h
+(in)e(the)i(global)d(en)o(vironmen)o(t.)25 b(Once)75
+2617 y(this)16 b(is)h(done,)f(w)o(e)h(can)f(add)g(metho)q(ds)g(to)g
+(the)h(generic)g(function)f Fs(new-+)g FB(whic)o(h)g(mak)o(e)f(a)h
+(closure)h(on)f(the)h Fs(+)75 2667 y FB(sym)o(b)q(ol.)f(A)e(complete)f
+(writing)h(of)f(the)h Fs(new-+)f FB(metho)q(ds)h(is)f(sho)o(wn)h(in)g
+(Figure)g(3.)75 2769 y(W)m(e)d(use)i(here)g(the)f(fact)g(that)g
+(generic)g(function)g(are)g(not)g(obliged)e(to)i(ha)o(v)o(e)g(the)g
+(same)f(n)o(um)o(b)q(er)g(of)g(parameters,)75 2819 y(con)o(trarily)18
+b(to)f(CLOS.)h(The)h(four)e(\014rst)i(metho)q(ds)f(implemen)o(t)d(the)k
+(dy)o(adic)e(addition.)30 b(The)18 b(\014fth)g(metho)q(d)p
+eop
+%%Page: 68 68
+68 67 bop 75 47 a FA(68)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a FB(sa)o(ys)g(that)f(the)h(addition)f(of)g(a)g
+(single)g(elemen)o(t)g(is)g(this)h(elemen)o(t)f(itself.)k(The)d(sixth)g
+(metho)q(d)e(sa)o(ys)i(that)g(using)75 229 y(the)i(addition)e(with)h
+(no)g(parameter)g(alw)o(a)o(ys)g(return)h(0.)23 b(The)15
+b(last)h(metho)q(d)e(tak)o(es)i(an)f(arbitrary)g(n)o(um)o(b)q(er)g(of)
+75 278 y(parameters)276 263 y Fw(3)295 278 y FB(.)27
+b(This)17 b(metho)q(d)f(acts)i(as)f(a)f(kind)h(of)f Fs(reduce)p
+FB(:)23 b(it)17 b(calls)f(the)i(dy)o(adic)e(addition)g(on)h(the)g
+Fz(c)n(ar)g FB(of)75 328 y(the)e(list)f(and)g(on)h(the)g(result)g(of)f
+(applying)f(it)h(on)g(its)h(rest.)21 b(T)m(o)13 b(\014nish,)i(the)g
+Fs(set!)k FB(p)q(ermits)14 b(to)g(rede\014ne)j(the)e
+Fs(+)75 378 y(symbol)e FB(to)g(our)h(extended)i(addition.)75
+474 y(T)m(o)g(terminate)f(our)i(implemen)o(tatio)o(n)d(\(in)o
+(tegration?\))25 b(of)16 b(complex)f(n)o(um)o(b)q(ers,)h(w)o(e)h(can)g
+(rede\014ne)h(standard)75 519 y(Sc)o(heme)c(predicates)h(in)f(the)g
+(follo)o(wing)d(manner:)153 598 y Fr(\(define-met)o(ho)o(d)17
+b(complex?)f(\(c)j(<complex>\))d(#t\))153 644 y(\(define-met)o(ho)o(d)h
+(complex?)f(\(c\))215 b(#f\))153 735 y(\(define-met)o(ho)o(d)17
+b(number?)g(\(n)h(<number>\))f(#t\))153 781 y(\(define-met)o(ho)o(d)g
+(number?)g(\(n\))195 b(#f\))153 826 y(...)153 872 y(...)75
+1001 y FB(Standard)15 b(primitiv)o(es)f(in)h(whic)o(h)g(complex)f(n)o
+(um)o(b)q(ers)h(are)h(in)o(v)o(olv)o(ed)e(could)h(also)g(b)q(e)h
+(rede\014ned)h(in)e(the)h(same)75 1051 y(manner.)75 1100
+y(This)e(ends)h(this)f(brief)f(presen)o(tation)i(of)e(the)i
+Fx(STklos)g FB(extension.)p 75 2741 705 2 v 121 2768
+a Fp(3)139 2779 y Fo(The)h(third)f(parameter)e(of)j(a)g(de\014ne-meth)o
+(o)q(d)d(is)j(a)g(parameter)e(list)h(whic)o(h)h(follo)o(w)f(the)h(con)o
+(v)o(en)o(tions)d(used)i(for)h(lam)o(b)q(da)75 2819 y(expressions.)d
+(In)e(particular)d(it)k(can)e(use)h(the)g(dot)g(notation)e(or)i(a)h
+(sym)o(b)q(ol)d(to)i(denote)f(an)h(arbitrary)e(n)o(um)o(b)q(er)h(of)h
+(parameters)p eop
+%%Page: 69 69
+69 68 bop 75 490 a FF(App)s(endix)33 b(D)75 698 y Fy(Miscellaneous)39
+b(Informations)75 938 y Fu(1)67 b(In)n(tro)r(duction)75
+1029 y FB(This)13 b(app)q(endix)g(list)f(a)h(n)o(um)o(b)q(er)f(of)g
+(things)h(whic)o(h)f(cannot)h(go)g(elsewhere)i(in)d(this)h(do)q(cumen)o
+(t.)k(The)c(only)f(link)75 1079 y(b)q(et)o(w)o(een)j(the)g(items)e
+(listed)h(her)g(is)g(that)g(they)g(should)g(ease)h(y)o(our)f(life)f
+(when)h(using)g Fx(STk)p FB(.)75 1215 y Fu(2)67 b(Ab)r(out)22
+b Ft(STk)75 1314 y FE(2.1)56 b(Last)18 b(release)75 1391
+y Fx(STk)d FB(distribution)f(is)g(a)o(v)n(ailable)f(on)h(v)n(arious)g
+(sites.)21 b(The)15 b(original)e(distribution)h(site)h(is)g
+Fs(kaolin.unice.fr)75 1440 y(\(193.48.229.225\))p FB(.)f(Files)f(are)h
+(a)o(v)n(ailable)c(through)j(anon)o(ymous)f(ftp)g(and)h(are)h(lo)q
+(cated)f(in)f(the)i Fs(/pub)e FB(direc-)75 1490 y(tory)m(.)17
+b(Distribution)12 b(\014le)h(names)f(ha)o(v)o(e)h(the)g(form)e
+Fs(STk-x.y.tar.gz)p FB(,)f(where)k Fs(x)e FB(and)h Fs(y)g
+FB(represen)o(t)i(the)e(v)o(ersion)75 1540 y(and)j(the)h(release)h(of)d
+(the)i(pac)o(k)n(age.)25 b(Y)m(ou)16 b(can)h(also)e(\014nd)i(in)o
+(terim)e(releases)i(of)f Fx(STk)p FB(.)26 b(In)o(terim)15
+b(releases)j(are)75 1590 y(stored)13 b(in)e(\014le)g(whose)h(name)f(ha)
+o(v)o(e)g(the)h(form)e Fs(STk-x.y.z.tar.gz)e FB(where)13
+b Fs(z)e FB(is)h(the)g(in)o(terim)e(release)j(n)o(um)o(b)q(er.)75
+1640 y(Da)o(vid)i(F)m(o)o(x)g(main)o(tains)f(a)i(mirror)f(site)i(of)e
+Fs(kaolin.unice.fr)p FB(.)22 b(This)16 b(site)h(is)f(lo)q(cated)g(in)g
+(the)h(USA)g(and)f(is)75 1689 y(a)o(v)n(ailable)c(at)h(the)i(follo)o
+(wing)c(URL:)i Fs(ftp://cs.nyu.edu/p)o(ub/lo)o(cal/f)o(ox/st)o(k)p
+FB(.)75 1804 y FE(2.2)56 b(Sharing)18 b(Co)r(de)75 1881
+y FB(If)11 b(y)o(ou)g(ha)o(v)o(e)h(written)g(co)q(de)h(that)e(y)o(ou)g
+(w)o(an)o(t)h(to)f(share)i(with)e(the)h(\(small\))e Fx(STk)i
+FB(comm)o(unit)o(y)l(,)d(y)o(ou)i(can)h(dep)q(osit)75
+1930 y(it)i(in)g(the)h(directory)g Fs(/pub/Incoming)d
+FB(of)h Fs(kaolin.unice.fr)p FB(.)k(Mail)c(me)g(a)h(small)e(note)j
+(when)g(y)o(ou)f(dep)q(osit)75 1980 y(a)f(\014le)h(in)f(this)g
+(directory)i(so)e(I)h(can)f(put)h(in)f(in)g(its)h(de\014nitiv)o(e)f
+(place)h(\()p Fs(/pub/Contrib)d FB(directory)j(con)o(tains)g(the)75
+2030 y(con)o(tributed)h(co)q(de\).)75 2144 y FE(2.3)56
+b Fd(STk)19 b FE(Mailing)f(list)75 2221 y FB(There)d(is)f(a)f(mailing)e
+(list)i(for)h Fx(STk)g FB(lo)q(cated)g(on)g Fs(kaolin.unice.fr)p
+FB(.)h(The)f(in)o(ten)o(t)g(of)f(this)h(mailing)c(list)k(is)g(to)75
+2271 y(p)q(ermit)d(to)g Fx(STk)h FB(users)i(to)d(share)i(exp)q
+(eriences,)h(exp)q(ose)f(problems,)d(submit)h(ideas)h(and)f(.)c(.)f(.)h
+(ev)o(erything)12 b(whic)o(h)75 2321 y(y)o(ou)h(\014nd)h(in)o
+(teresting)h(\(and)f(whic)o(h)g(is)f(related)i(to)e Fx(STk)p
+FB(\).)75 2371 y(T)m(o)e(subscrib)q(e)j(to)f(the)f(mailing)d(list,)j
+(simply)e(send)j(a)f(message)g(with)g(the)h(w)o(ord)f
+Fs(subscribe)f FB(in)g(the)i Fs(Subject:)75 2420 y FB(\014eld)h(of)f(y)
+o(ou)h(mail.)h(Mail)e(m)o(ust)g(b)q(e)h(sen)o(t)h(to)f(the)g(follo)o
+(wing)d(address:)20 b Fs(stk-request@kao)o(lin.u)o(nice.)o(fr)75
+2470 y FB(T)m(o)h(unsubscrib)q(e)j(from)c(the)j(mailing)c(list,)k(send)
+g(a)f(mail)d(at)j(previous)g(email)e(address)j(with)f(the)h(w)o(ord)75
+2520 y Fs(unsubscribe)12 b FB(in)h(the)h Fs(Subject:)j
+FB(\014eld.)75 2570 y(F)m(or)d(more)f(information)e(on)j(the)h(mailing)
+c(list)j(managemen)o(t)d(send)k(a)f(message)g(with)g(the)h(w)o(ord)f
+Fs(help)f FB(in)h(the)75 2620 y Fs(Subject:)h FB(\014eld)c(of)f(y)o
+(our)g(mail.)15 b(In)10 b(particular,)h(it)f(is)g(p)q(ossible)h(to)g
+(\014nd)g(all)e(the)i(messages)g(whic)o(h)f(ha)o(v)o(e)h(already)75
+2669 y(b)q(een)k(sen)o(t)g(on)e(the)i Fx(STk)f FB(mailing)d(list.)75
+2719 y(Subscription/un-subscription/information)17 b(requests)22
+b(are)e(pro)q(cessed)i(automatically)16 b(without)j(h)o(uman)75
+2769 y(in)o(terv)o(en)o(tion.)f(If)13 b(y)o(ou)h(something)e(go)q(es)j
+(wrong,)e(send)i(a)e(mail)e(to)j Fs(eg@unice.fr)p FB(.)75
+2819 y(Once)h(y)o(ou)e(ha)o(v)o(e)h(prop)q(erly)g(subscrib)q(e)i(to)e
+(the)g(mailing)d(list,)935 2924 y(69)p eop
+%%Page: 70 70
+70 69 bop 75 47 a FA(70)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 137 179 a Fk(\017)21 b FB(y)o(ou)13 b(can)h(send)h(y)o
+(our)f(messages)g(ab)q(out)f Fx(STk)i FB(to)e Fs(stk@kaolin.unice.fr)o
+FB(,)137 262 y Fk(\017)21 b FB(y)o(ou)13 b(will)f(receiv)o(e)j(all)e
+(the)h(messages)g(of)f(the)i(maili)o(ng)c(list)i(to)h(the)g(email)e
+(address)j(y)o(ou)e(used)i(when)f(y)o(ou)179 312 y(subscrib)q(ed)h(to)f
+(the)h(list.)75 429 y FE(2.4)56 b Fd(STk)19 b FE(F)-6
+b(A)n(Q)75 505 y FB(Marc)13 b(F)m(urrer)h(has)f(set)h(up)f(a)g(F)-5
+b(A)o(Q)14 b(for)e Fx(STk)p FB(.)18 b(This)13 b(F)-5
+b(A)o(Q)14 b(is)f(regularly)f(p)q(osted)i(on)f(the)g
+Fx(STk)g FB(mailing)d(list.)17 b(It)75 555 y(can)g(also)f(b)q(e)h
+(accessed)i(through)d Fs(http://ltiwww.epfl.)o(ch/)j(furrer/STk/FAQ.)o
+(html)p FB(.)k(ASCI)q(I)16 b(v)o(ersion)75 605 y(of)d(the)i(F)-5
+b(A)o(Q)14 b(is)g(a)o(v)n(ailable)e(from)g Fs(http://ltiwww.epf)o
+(l.ch/)18 b(furrer/STk/FAQ.txt)o FB(.)75 722 y FE(2.5)56
+b(Rep)r(orting)17 b(a)i(bug)75 799 y FB(When)9 b(y)o(ou)g(\014nd)h(a)f
+(bug)g(in)g Fx(STk)p FB(,)h(please)f(send)i(its)e(description)h(to)f
+(the)h(follo)o(wing)c(address)11 b Fs(stk-bugs@kaolin.un)o(ice.)o(fr)p
+FB(.)75 848 y(Don't)h(forget)i(to)f(indicate)g(the)h(v)o(ersion)f(y)o
+(ou)g(use)h(and)f(the)h(arc)o(hitecture)h(the)f(system)f(is)g(compiled)
+f(on.)17 b Fx(STk)75 898 y FB(v)o(ersion)11 b(and)g(arc)o(hitecture)h
+(can)g(b)q(e)f(found)g(b)o(y)f(using)h(the)g Fs(version)f
+FB(and)h Fs(machine-type)d FB(Sc)o(heme)j(primitiv)o(es.)75
+948 y(If)j(p)q(ossible,)f(try)h(to)g(\014nd)g(a)g(small)d(program)i
+(whic)o(h)g(exhibit)h(the)g(bug.)75 1086 y Fu(3)67 b
+Ft(STk)22 b Fu(and)h(Emacs)75 1177 y FB(The)13 b(Emacs)f(family)e
+(editors)j(can)g(b)q(e)h(customized)e(to)h(ease)h(viewing)e(and)g
+(editing)h(programs)e(of)h(a)h(particular)75 1227 y(sort.)19
+b(Hin)o(ts)13 b(giv)o(en)h(b)q(elo)o(w)f(enable)i(a)e(\014ne)i(\\in)o
+(tegration")d(of)i Fx(STk)g FB(in)f(Emacs.)75 1343 y
+FE(Automatic)k(sc)n(heme-mo)r(de)e(setting)75 1420 y
+FB(Emacs)k(mo)q(de)h(can)g(b)q(e)h(c)o(hosen)g(automatically)c(on)j
+(the)g(\014le's)g(name.)36 b(T)m(o)19 b(edit)h(\014le)g(ended)i(b)o(y)e
+Fs(.stk)g FB(or)75 1470 y Fs(.stklos)d FB(in)h(Sc)o(heme)g(mo)q(de,)g
+(y)o(ou)g(ha)o(v)o(e)h(to)f(set)h(the)g(Elisp)g(v)n(ariable)e
+Fs(auto-mode-alist)e FB(to)k(con)o(trol)f(the)75 1520
+y(corresp)q(ondence)e(b)q(et)o(w)o(een)e(those)f(su\016xes)g(and)g(the)
+g(sc)o(heme)g(mo)q(de.)j(The)e(simpler)d(w)o(a)o(y)h(to)g(set)i(this)f
+(v)n(ariable)75 1570 y(consists)i(to)f(add)f(the)i(follo)o(wing)c
+(lines)j(in)f(y)o(our)h(.)p Fs(emacs)e FB(startup)j(\014le.)179
+1661 y Fs(;;)21 b(Add)g(the)h('.stk')e(and)h('.stklos')f(suffix)h(in)g
+(the)g(auto-mode-alist)e(Emacs)179 1711 y(;;)i(variable.)f(Setting)g
+(this)h(variable)g(permits)f(to)h(automagically)e(place)i(the)179
+1761 y(;;)g(buffer)g(in)g(scheme-mode.)179 1811 y(\(setq-default)e
+(auto-mode-alist)g(\(append)h(auto-mode-alist)1007 1861
+y(\("\\\\.stk$")85 b(.)22 b(scheme-mode\))1007 1910 y(\("\\\\.stklos$")
+d(.)j(scheme-mode\)\)\))75 2027 y FE(Using)d(Emacs)e(and)i
+Fc(CMU)i(Scheme)75 2104 y Fz(CMU)13 b(Scheme)f FB(pac)o(k)n(age)f(pac)o
+(k)n(age)g(p)q(ermits)g(to)h(run)g(the)g Fx(STk)g FB(in)o(terpreter)h
+(in)e(an)h(Emacs)f(windo)o(w.)16 b(Once)d(the)75 2154
+y(pac)o(k)n(age)g(is)f(loaded,)h(y)o(ou)f(can)h(send)h(text)g(to)e(the)
+i(inferior)e Fx(STk)i FB(in)o(terpreter)g(from)e(other)h(bu\013ers)i
+(con)o(taining)75 2203 y(Sc)o(heme)20 b(source.)37 b(The)20
+b Fz(CMU)g(Scheme)h FB(pac)o(k)n(age)e(is)h(distributed)g(with)g(Emacs)
+f(\(b)q(oth)h(FSF-Emacs)g(and)75 2253 y(Xemacs\))14 b(and)f(y)o(ou)h
+(should)g(ha)o(v)o(e)f(it)h(if)f(y)o(ou)g(are)i(running)e(this)h
+(editor.)75 2303 y(T)m(o)f(use)h(the)g Fz(CMU)g(Scheme)g
+FB(pac)o(k)n(age)f(with)g Fx(STk)p FB(,)g(place)h(the)g(follo)o(wing)c
+(lines)k(in)f(y)o(our)g Fs(.emacs)f FB(startup)i(\014le.)179
+2395 y Fs(;;)21 b(Use)g(cmu-scheme)f(rather)h(than)g(xscheme)f(which)h
+(is)g(launched)f(by)i(default)179 2445 y(;;)f(whence)g(running)f
+('run-scheme')f(\(xscheme)i(is)g(wired)g(with)g(CScheme\))179
+2494 y(\(autoload)f('run-scheme)f("cmuscheme")h("Run)h(an)g(inferior)f
+(Scheme")h(t\))179 2544 y(\(setq)g(scheme-program-)o(name)d("stk"\))179
+2594 y(\(setq)j(inferior-scheme)o(-mode)o(-hook)d('\(lambda\(\))i
+(\(split-window\)\)\))75 2686 y FB(After)c(ha)o(ving)e(en)o(tered)j
+(those)e(lines)g(in)g(y)o(our)g Fs(.emacs)f FB(\014le,)h(y)o(ou)g(can)g
+(simply)e(run)i(the)h Fx(STk)g FB(in)o(terpreter)h(b)o(y)75
+2736 y(t)o(yping)179 2819 y Fs(M-x)k(run-scheme)p eop
+%%Page: 71 71
+71 70 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(71)p 75 64 1763 2 v 75 179 a FB(Read)13 b(the)g Fz(CMU)h(Scheme)f
+FB(do)q(cumen)o(tation)f(\(or)h(use)g(the)h(describ)q(e-mo)q(de)f
+(Elisp)g(command\))d(for)j(a)f(complete)75 229 y(description)j(of)e
+(this)h(pac)o(k)n(age.)75 343 y FE(Using)19 b(Emacs)e(and)i(the)f
+Fc(Ilisp)i FE(pac)n(k)m(age)75 420 y Fz(Ilisp)d FB(is)f(another)i(sc)o
+(heme)f(pac)o(k)n(age)g(whic)o(h)g(allo)o(ws)f(to)h(run)g(the)h
+Fx(STk)f FB(in)o(terpreter)i(in)d(an)h(Emacs)g(windo)o(w.)75
+469 y(This)j(is)g(a)h(ric)o(h)f(pac)o(k)n(age)g(with)g(a)g(lot)g(of)g
+(nice)g(features.)39 b Fz(Ilisp)20 b FB(comes)g(pre-installed)g(with)g
+(Xemacs;)j(it)75 519 y(has)18 b(to)g(b)q(e)g(installed)g(with)f(FSF)i
+(Emacs)e(\(the)i(last)e(v)o(ersion)h(of)g Fz(Ilisp)f
+FB(can)h(b)q(e)h(ftp'ed)f(anon)o(ymously)d(from)75 569
+y Fs(ftp.cs.cmu.edu)c FB(\(128.2.206.17)o(3\))g(in)j(the)g
+Fs(/user/ai/lang/lisp)o(/util)o(/emac)o(s/ili)o(sp)d
+FB(directory\).)75 619 y(T)m(o)i(use)i(the)f Fz(Ilisp)g
+FB(pac)o(k)n(age)f(with)h Fx(STk)p FB(,)g(place)g(the)g(follo)o(wing)d
+(lines)j(in)g(y)o(our)f Fs(.emacs)g FB(startup)h(\014le.)179
+700 y Fs(\(autoload)20 b('run-ilisp)303 b("ilisp")20
+b("Select)g(a)i(new)f(inferior)f(LISP.")h(t\))179 750
+y(\(autoload)f('stk)435 b("ilisp")20 b("Run)h(stk)g(in)h(ILISP.")e(t\))
+179 799 y(\(add-hook)g('ilisp-load-hook)397 849 y('\(lambda)g(\(\))462
+899 y(\(require)g('completer\))462 999 y(;;)h(Define)g(STk)g(dialect)g
+(characteristics)462 1048 y(\(defdialect)f(stk)h("STk)g(Scheme")506
+1098 y(scheme)506 1148 y(\(setq)f(comint-prompt-regexp)e("^STk>)j("\))
+506 1198 y(\(setq)f(ilisp-program)g("stk)h(-interactive"\))506
+1248 y(\(setq)f(comint-ptyp)g(t\))506 1298 y(\(setq)g
+(comint-always-scroll)e(t\))506 1347 y(\(setq)i(ilisp-last-command)f
+("*"\)\)\)\))75 1428 y FB(After)d(ha)o(ving)e(en)o(tered)j(those)e
+(lines)g(in)g(y)o(our)g Fs(.emacs)f FB(\014le,)h(y)o(ou)g(can)g(simply)
+e(run)i(the)h Fx(STk)g FB(in)o(terpreter)h(b)o(y)75 1478
+y(t)o(yping)179 1553 y Fs(M-x)k(stk)75 1627 y FB(The)13
+b(Ilisp)f(pac)o(k)n(age)g(comes)h(with)f(a)g(ric)o(h)h(do)q(cumen)o
+(tation)e(whic)o(h)i(describ)q(e)h(ho)o(w)e(to)h(customize)f(the)h(pac)
+o(k)n(age.)75 1742 y FE(Other)18 b(pac)n(k)m(ages)75
+1818 y FB(Another)e(w)o(a)o(y)e(to)h(use)h Fx(STk)g FB(and)f(Emacs)f
+(consists)j(to)e(use)h(a)e(sp)q(ecial)i(purp)q(ose)g
+Fx(STk)g FB(mo)q(de.)k(Y)m(ou)15 b(can)g(\014nd)75 1868
+y(t)o(w)o(o)e(suc)o(h)i(mo)q(des)e(in)h(the)g Fs(/pub/Contrib)e
+FB(directory)i(of)f Fs(kaolin.unice.fr)p FB(.)75 1983
+y FE(3.1)56 b(Using)18 b(the)g(SLIB)h(pac)n(k)m(age)f(with)h
+Fd(STk)75 2059 y FB(Aubrey)13 b(Ja\013er)h(main)o(tains)c(a)i(pac)o(k)n
+(age)g(called)h Fz(SLIB)g FB(whic)o(h)f(is)h(a)f(p)q(ortable)h(Sc)o
+(heme)f(library)g(whic)o(h)g(pro)o(vides)75 2109 y(compatibilit)o(y)d
+(and)k(utilit)o(y)e(functions)i(for)f(all)g(standard)h(Sc)o(heme)g
+(implem)o(en)o(tations.)i(T)m(o)d(use)i(this)e(pac)o(k)n(age,)75
+2159 y(y)o(ou)h(ha)o(v)o(e)h(just)g(to)g(t)o(yp)q(e)179
+2234 y Fs(\(require)20 b("slib"\))75 2308 y FB(and)12
+b(follo)o(w)f(the)i(instructions)g(giv)o(en)f(in)g(the)h
+Fz(SLIB)h FB(library)d(to)i(use)g(a)f(particular)h(pac)o(k)n(age.)k
+Fj(Note:)31 b(SLIB)11 b Fq(uses)75 2358 y(also)16 b(the)e
+Fj(r)n(e)n(quir)n(e/pr)n(ovide)d Fq(mec)o(hanism)16 b(to)e(load)i(comp)
+q(onen)o(ts)g(of)e(the)h(library)m(.)23 b(Once)15 b Fj(SLIB)f
+Fq(has)h(b)q(een)g(loaded,)h(the)75 2408 y(standard)g
+Fh(STk)e Fr(require)e Fq(and)j Fr(provide)d Fq(are)i(o)o(v)o(erloaded)j
+(suc)o(h)e(as)g(if)g(their)g(parameter)g(is)h(a)e(string)i(this)f(is)h
+(the)e(old)75 2458 y Fh(STk)f Fq(pro)q(cedure)h(whic)o(h)g(is)g
+(called,)g(and)g(if)f(their)h(parameter)f(is)h(a)f(sym)o(b)q(ol,)h
+(this)g(is)g(the)f Fj(SLIB)f Fq(one)h(whic)o(h)h(is)g(called.)75
+2593 y Fu(4)67 b(Getting)23 b(information)g(ab)r(out)g(Sc)n(heme)75
+2692 y FE(4.1)56 b(The)18 b Fc(R)360 2674 y Fo(4)371
+2692 y Fb(RS)k FE(do)r(cumen)n(t)75 2769 y Fz(R)105 2754
+y Fw(4)117 2769 y Fv(RS)17 b FB(is)e(the)g(do)q(cumen)o(t)f(whic)o(h)h
+(fully)e(describ)q(e)k(the)e(Sc)o(heme)f(Programming)e(Language,)h(it)i
+(can)g(b)q(e)g(found)75 2819 y(in)e(the)i(Sc)o(heme)f(rep)q(ository)g
+(\(see)h FA(??)o FB(\))f(in)g(the)g(directory:)p eop
+%%Page: 72 72
+72 71 bop 75 47 a FA(72)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 179 179 a Fs(ftp.cs.indiana.e)o(du:/p)o(ub/sc)o(heme-)o
+(repos)o(itory)o(/doc)75 262 y FB(Aubrey)f(Ja\013er)g(has)f(also)f
+(translated)h(this)g(do)q(cumen)o(t)g(in)f(HTML.)h(A)g(v)o(ersion)g(of)
+f(this)h(do)q(cumen)o(t)g(is)g(a)o(v)n(ailable)75 312
+y(at)179 395 y Fs(file://swiss-ftp)o(.ai.m)o(it.ed)o(u/pub)o(/scm/)o
+(HTML/)o(r4rs)p 1165 395 14 2 v 12 w(toc.html)75 511
+y FE(4.2)56 b(The)18 b(Sc)n(heme)f(Rep)r(ository)75 587
+y FB(The)d(main)d(site)j(where)h(y)o(ou)e(can)g(\014nd)h(\(man)o(y\))e
+(informations)f(ab)q(out)i(Sc)o(heme)g(is)h(lo)q(cated)f(in)g(the)i
+(Univ)o(ersit)o(y)75 637 y(of)d(Indiana.)17 b(The)c(Sc)o(heme)f(rep)q
+(ository)h(is)f(main)o(tained)e(b)o(y)j(Da)o(vid)e(Eb)o(y)m(.)17
+b(The)c(rep)q(ository)g(curren)o(tly)g(consists)75 687
+y(of)g(the)i(follo)o(wing)c(areas:)137 770 y Fk(\017)21
+b FB(Lots)12 b(of)f(sc)o(heme)h(co)q(de)h(mean)o(t)e(for)g(b)q(enc)o
+(hmarking,)g(library/supp)q(ort,)h(researc)o(h,)h(education,)f(and)g
+(fun.)137 853 y Fk(\017)21 b FB(On-line)c(do)q(cumen)o(ts:)25
+b(Mac)o(hine)17 b(readable)h(standards)g(do)q(cumen)o(ts,)f(standards)h
+(prop)q(osals,)g(v)n(arious)179 903 y(Sc)o(heme-related)c(tec)o(h)h
+(rep)q(orts,)g(conference)h(pap)q(ers,)e(mail)d(arc)o(hiv)o(es,)j(etc.)
+137 986 y Fk(\017)21 b FB(Most)14 b(of)f(the)i(publicly)e
+(distributable)g(Sc)o(heme)h(Implemen)o(tations.)137
+1069 y Fk(\017)21 b FB(Material)13 b(designed)i(primarily)c(for)i
+(instruction.)137 1152 y Fk(\017)21 b FB(F)m(reely-distributable)14
+b(promotional)d(or)j(demonstration)e(material)g(for)i(Sc)o
+(heme-related)g(pro)q(ducts.)137 1235 y Fk(\017)21 b
+FB(Utilities)13 b(\(e.g.,)g(Sc)o(hemew)o(eb,)g(SLaT)m(eX\).)137
+1318 y Fk(\017)21 b FB(Extraneous)15 b(stu\013,)f(extensions,)g(etc.)75
+1401 y(Y)m(ou)f(can)h(access)i(the)f(Sc)o(heme)e(rep)q(ository)i(with)
+137 1484 y Fk(\017)21 b Fs(ftp.cs.indiana.e)o(du:/p)o(ub/sc)o(heme-)o
+(repos)o(itory)137 1567 y Fk(\017)g Fs(http://www.cs.in)o(diana)o
+(.edu/)o(schem)o(e-rep)o(osito)o(ry/S)o(Rhome)o(.html)75
+1650 y FB(The)14 b(Sc)o(heme)g(Rep)q(ository)g(is)g(mirrored)f(in)g
+(Europ)q(e:)137 1733 y Fk(\017)21 b Fs(ftp.inria.fr:/la)o(ng/Sc)o(heme)
+137 1816 y Fk(\017)g Fs(faui80.informati)o(k.uni)o(-erla)o(ngen.)o
+(de:/p)o(ub/sc)o(heme)o(/york)o(u)137 1899 y Fk(\017)g
+Fs(ftp.informatik.u)o(ni-mu)o(enche)o(n.de:)o(/pub/)o(comp/)o(prog)o
+(rammi)o(ng/la)o(nguag)o(es/sc)o(heme/)o(sche)o(me-re)o(posit)o(ory)75
+2015 y FE(4.3)56 b(Usenet)18 b(newsgroup)h(and)g(other)f(addresses)75
+2092 y FB(There)d(is)f(a)f(usenet)j(newsgroup)e(ab)q(out)g(the)h(Sc)o
+(heme)e(Programming)e(language:)17 b Fs(comp.lang.scheme)p
+FB(.)75 2142 y(F)m(ollo)o(wing)11 b(addresses)16 b(con)o(tains)e(also)f
+(material)f(ab)q(out)i(the)g(Sc)o(heme)g(language)137
+2233 y Fk(\017)21 b Fs(http://www.cs.cm)o(u.edu)o(:8001)o(/Web/)o
+(Group)o(s/AI/)o(html)o(/faqs)o(/lang)o(/sche)o(me/to)o(p.htm)o(l)6
+b FB(con)o(tains)179 2283 y(the)14 b(Sc)o(heme)g(F)-5
+b(A)o(Q.)137 2366 y Fk(\017)21 b Fs(http://www-swiss)o(.ai.m)o(it.ed)o
+(u/sch)o(eme-h)o(ome.h)o(tml)11 b FB(is)i(the)i(Sc)o(heme)e(Home)g
+(page)h(at)g(MIT)137 2449 y Fk(\017)21 b Fs(http://www.ai.mi)o(t.edu)o
+(/proj)o(ects/)o(su/su)o(.html)10 b FB(is)k(the)g(Sc)o(heme)g
+(Underground)h(w)o(eb)f(page)p eop
+%%Page: 73 73
+73 72 bop 75 511 a Fy(Bibliograph)m(y)96 735 y FB([1])19
+b(William)8 b(Clinger)j(and)h(Jonathan)g(Rees)g(\(editors\).)k
+Fv(Rev)q(ised)1142 720 y Fw(4)1173 735 y FB(Rep)q(ort)d(on)e(the)h
+(Algorithmic)e(Language)160 785 y(Sc)o(heme.)18 b Fz(A)o(CM)d(Lisp)g
+(Pointers)p FB(,)e(4\(3\),)g(1991.)96 868 y([2])19 b(John)i(K.)g
+(Ousterhout.)40 b(An)21 b(X11)f(to)q(olkit)g(based)i(on)e(the)i(Tcl)e
+(Language.)38 b(In)21 b Fz(USENIX)h(Winter)160 918 y(Confer)n(enc)n(e)p
+FB(,)14 b(pages)g(105{115,)e(Jan)o(uary)h(1991.)96 1001
+y([3])19 b(John)10 b(K.)f(Ousterhout.)j(Tcl:)k(an)9 b(em)o(b)q(eddable)
+f(command)f(language.)i(In)h Fz(USENIX)g(Winter)h(Confer)n(enc)n(e)p
+FB(,)160 1050 y(pages)k(183{192,)c(Jan)o(uary)j(1990.)96
+1133 y([4])19 b(Guy)13 b(L.)f(Steele)i(Jr.)j Fz(Common)d(Lisp:)k(the)c
+(L)n(anguage,)h(2nd)g(Edition)p FB(.)h(Digital)11 b(Press,)j(12)e
+(Crosb)o(y)h(Driv)o(e,)160 1183 y(Bedford,)h(MA)g(01730,)f(USA,)g
+(1990.)96 1266 y([5])19 b(POSIX)14 b(Commi)o(ttee.)h
+Fz(System)f(Applic)n(ation)g(Pr)n(o)n(gr)n(am)f(Interfac)n(e)h(\(API\))
+g([C)g(L)n(anguage])p FB(.)j(Information)160 1316 y(tec)o(hnology|P)o
+(ortable)e(Op)q(erating)h(System)f(In)o(terface)h(\(POSIX\).)g(IEEE)g
+(Computer)f(So)q(ciet)o(y)g(Press,)160 1366 y(1109)e(Spring)h(Street,)h
+(Suite)f(300,)e(Silv)o(er)i(Spring,)f(MD)g(20910,)g(USA,)g(1990.)96
+1449 y([6])19 b(John)14 b(K.)g(Ousterhout.)20 b Fz(Tcl)14
+b(and)h(the)g(Tk)g(to)n(olkit)p FB(.)i(Addison-W)m(esley)m(,)c(1994.)96
+1532 y([7])19 b(Gregor)14 b(Kic)o(kzales.)19 b(Tin)o(y-clos.)e(Source)e
+(a)o(v)n(ailable)d(on)h(parcftp.xero)o(x.com)f(in)i(directory)g
+(/pub/mops)o(,)160 1582 y(Decem)o(b)q(er)h(1992.)96 1665
+y([8])k(Apple)14 b(Computer.)k Fz(Dylan:)h(an)d(Obje)n(ct)e(Oriente)n
+(d)g(Dynamic)i(L)n(anguage)p FB(.)j(April)13 b(1992.)96
+1748 y([9])19 b(Chris)h(Hanson.)34 b(The)19 b(sos)h(reference)i(man)o
+(ual,)c(v)o(ersion)h(1.5.)33 b Fz(in-line)19 b(do)n(cumentation)i(of)f
+(the)g(SOS)160 1798 y(p)n(ackage.)c(Sour)n(c)n(e)f(available)g(on)g
+(martigny.ai.mit.e)n(du)f(in)h(/ar)n(chive/cph)g(dir)n(e)n(ctory)p
+FB(,)e(Marc)o(h)h(1993.)75 1881 y([10])19 b(Jim)14 b(de)h(Rivi)o(\022)
+-20 b(eres)16 b(Gregor)f(Kic)o(kzales)g(and)g(Daniel)g(G.)f(Bobro)o(w.)
+22 b Fz(The)16 b(A)o(rt)f(of)h(Meta)g(Obje)n(ct)g(Pr)n(oto)n(c)n(ol)p
+FB(.)160 1930 y(MIT)e(Press,)h(1991.)935 2924 y(73)p
+eop
+%%Page: 74 74
+74 73 bop 75 417 a Fy(Index)75 624 y Fs(!)9 b Fv(:)d(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(30)75 674 y Fs(*)9 b Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(13)75
+725 y Fs(*argc*)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)24 b FB(55)75 775 y Fs(*argv*)10 b Fv(:)5
+b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(55)75 825 y Fs(*debug*)6 b Fv(:)f(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(28;)13 b(44,)g(55)75 875 y Fs(*gc-verbose*)c Fv(:)t(:)d(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)23 b FB(55)75 926 y Fs(*help-path*)8 b
+Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(55)75
+976 y Fs(*load-path*)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(55)75 1026 y Fs(*load-suffixes*)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(55)75 1076 y Fs(*load-verbose*)6 b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(55)75 1127 y Fs(*print-banner*)6 b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(56)75 1177 y Fs(*program-name*)6 b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(55)75 1227 y Fs(*root*)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)18 b FB(52;)13 b(56)75 1277 y Fs(+)c Fv(:)d(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(13)75 1328 y Fs(-)9 b Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(13)75
+1378 y Fs(/)9 b Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(14)75 1428 y
+Fs(:accessor)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19
+b FB(62)75 1478 y Fs(:allocation)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)25 b FB(62)75 1529 y Fs(:class)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24 b FB(62)75 1579
+y Fs(:getter)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(62)75 1629 y Fs(:init-keyword)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)22 b FB(62)75 1679 y Fs(:initform)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(61)75 1730 y Fs(:instance)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19
+b FB(62)75 1780 y Fs(:setter)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)22 b FB(62)75 1830 y Fs(:slot-ref)8
+b Fv(:)d(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)22 b FB(62;)13 b(63)75
+1880 y Fs(:slot-set!)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)21
+b FB(62;)13 b(63)75 1931 y Fs(:virtual)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)21 b FB(62)75 1981 y Fs(<)9
+b Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)23 b FB(13)75 2031 y Fs(<=)7 b Fv(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)21
+b FB(13)75 2081 y Fs(<object>)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)21 b FB(60)75 2132 y Fs(<top>)6 b
+Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(60;)13 b(66)75 2182 y Fs(=)c Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(13)75 2232 y Fs(>)9 b Fv(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(13)75
+2282 y Fs(>=)7 b Fv(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)21 b FB(13)75 2417 y Fa(A)75
+2467 y Fs(abs)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(14)75 2517 y(accessor)13
+b Fv(:)7 b(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26
+b FB(62)75 2568 y Fs(acos)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18 b FB(14)75 2618
+y Fs(add-signal-handle)o(r!)7 b Fv(:)s(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21 b FB(32)75 2668
+y Fs(address-of)s Fv(:)5 b(:)h(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)17
+b FB(31)75 2718 y Fs(address?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)21 b FB(31)75 2769 y Fs(and)7 b Fv(:)f(:)g(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)21
+b FB(9)75 2819 y Fs(angle)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)20 b FB(14;)13 b(57)1029 624 y Fs(append)d
+Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(11)1029 674 y Fs(apply)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(17)1029 725 y Fs(apropos)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(44)1029 775 y Fs(asin)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(14)1029 825
+y Fs(assoc)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)26 b FB(11)1029 876 y Fs(assq)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18
+b FB(11)1029 926 y Fs(assv)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(11)1029 976
+y Fs(atan)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)18 b FB(14)1029 1027 y Fs(autoload)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(23)1029 1077 y Fs(autoload?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)19 b FB(23)1029 1212 y Fa(B)1029 1262
+y Fs(basename)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)21 b FB(29)1029 1313 y Fs(begin)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(10)1029 1363
+y Fs(bind)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)18 b FB(52)1029 1413 y Fs(bindtags)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(53)1029 1464 y Fs(boolean?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)21 b FB(10)1029 1514 y Fs(break)6
+b Fv(:)f(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(31;)13 b(53)1029 1564 y Fs(button)d Fv(:)5 b(:)h(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(25)1029 1615
+y Fs(bye)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)20 b FB(45)1029 1763 y Fa(C)1029
+1813 y Fs(c)9 b Fv(:)d(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(31)1029 1863
+y Fs(caar)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)18 b FB(11)1029 1913 y Fs(cadr)t Fv(:)5
+b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+18 b FB(11)1029 1964 y Fs(call-with-current)o(-cont)o(inuat)o(ion)6
+b Fv(:)t(:)g(:)h(:)f(:)21 b FB(17)1029 2014 y Fs(call-with-input-f)o
+(ile)5 b Fv(:)s(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)19 b FB(19)1029 2064 y Fs(call-with-input-s)o(tring)7
+b Fv(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)25
+b FB(19)1029 2115 y Fs(call-with-output-)o(file)s Fv(:)s(:)7
+b(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)18
+b FB(19)1029 2165 y Fs(call-with-output-)o(strin)o(g)9
+b Fv(:)t(:)d(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)23
+b FB(19)1029 2215 y Fs(call/cc)10 b Fv(:)d(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)26 b FB(17;)13 b(18)1029 2266 y Fs(canonical-path)6
+b Fv(:)s(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(29)1029 2316 y Fs(car)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)20 b FB(11)1029 2366 y Fs(case)5 b Fv(:)h(:)g(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)20
+b FB(9)1029 2416 y Fs(catch)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(18)1029 2467 y Fs(cdddar)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(11)1029 2517 y Fs(cddddr)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(11)1029 2567 y Fs(cdr)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)20 b FB(11)1029 2618 y Fs(ceiling)8 b Fv(:)d(:)i(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(14)1029 2668
+y Fs(char->integer)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)22
+b FB(15)1029 2718 y Fs(char-alphabetic?)8 b Fv(:)f(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(15)1029 2769 y Fs(char-ci<=?)s Fv(:)t(:)7 b(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)17 b FB(15)1029 2819 y Fs(char-ci<?)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)19
+b FB(15)935 2924 y(74)p eop
+%%Page: 75 75
+75 74 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(75)p 75 64 1763 2 v 75 179 a Fs(char-ci=?)5 b Fv(:)t(:)i(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(15)75 229 y Fs(char-ci>=?)s
+Fv(:)5 b(:)h(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)17 b
+FB(15)75 279 y Fs(char-ci>?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)19 b FB(15)75 329 y Fs(char-downcase)7 b
+Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22 b FB(15)75 379 y Fs(char-lower-case?)
+8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)26 b FB(15)75 429 y Fs(char-numeric?)7
+b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22 b FB(15)75 479 y Fs(char-ready?)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(21)75
+529 y Fs(char-upcase)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(15)75 578 y Fs(char-upper-case?)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26
+b FB(15)75 628 y Fs(char-whitespace?)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26
+b FB(15)75 678 y Fs(char<=?)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)22 b FB(15)75 728 y Fs(char<?)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(15)75 778 y Fs(char=?)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)24 b FB(15)75 828 y Fs(char>=?)8
+b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(15)75 878 y Fs(char>?)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)24 b FB(15)75 928 y Fs(char?)10
+b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26
+b FB(15)75 978 y(c)o(haracters)13 b Fv(:)6 b(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)25 b FB(15)75 1028 y Fs(chdir)10 b
+Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26
+b FB(30)75 1078 y(class)6 b Fv(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(59)75 1128 y
+Fs(class-precedence-)o(list)s Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)17 b FB(65)75 1178 y Fs(class-slots)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(61)75
+1228 y Fs(close-input-port)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26 b FB(21)75
+1278 y Fs(close-output-port)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(21)75
+1328 y Fs(close-port)s Fv(:)5 b(:)h(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+17 b FB(23)75 1378 y Fs(closure?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)21 b FB(18)75 1428 y(cm)o(u)13 b(sc)o(heme)t
+Fv(:)6 b(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)18 b
+FB(70)75 1478 y Fs(complex?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)21 b FB(13)75 1528 y Fs(cond)5 b Fv(:)h(:)g(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)20
+b FB(9)75 1578 y Fs(cons)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18 b FB(11)75 1628 y(con)o(tin)o
+(uation)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(17;)13 b(18,)g(42)75
+1678 y Fs(continuation?)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22
+b FB(18)75 1728 y Fs(copy-tree)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)19 b FB(12)75 1778 y Fs(cos)6 b Fv(:)f(:)i(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(14)75 1828 y Fs(current-error-por)o(t)8 b Fv(:)t(:)e(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(19)75 1878 y Fs(current-input-por)o(t)6 b Fv(:)t(:)g(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(19;)13 b(20,)g(21)75
+1927 y Fs(current-output-po)o(rt)t Fv(:)t(:)6 b(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)18 b FB(19;)13 b(20,)g(22)75 2069 y Fa(D)75
+2119 y Fs(decompose-file-na)o(me)7 b Fv(:)s(:)g(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21 b FB(29)75
+2169 y Fs(default)f(slot)h(value)8 b Fv(:)e(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(61)75
+2219 y Fs(define-class)s Fv(:)t(:)7 b(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)17
+b FB(59;)c(60)75 2269 y Fs(define-generic)c Fv(:)t(:)d(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(65;)13 b(66)75 2319 y Fs(define-macro)c Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(28)75 2369 y Fs(define-method)7 b Fv(:)t(:)g(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)22 b FB(65)75 2419 y Fs(delay)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(10;)13 b(18)75 2469
+y Fs(denominator)5 b Fv(:)t(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(14;)13
+b(56)75 2519 y Fs(describe)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)21 b FB(61)75 2569 y Fs(detail)10 b Fv(:)5
+b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(45)75 2619 y Fs(dirname)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)22 b FB(29)75 2669 y Fs(display)8
+b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(21)75 2719 y Fs(do)7 b Fv(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)21 b FB(10)75
+2769 y Fs(dotimes)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)22 b FB(10)75 2819 y Fs(dump)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18 b
+FB(42)1029 179 y Fs(dynamic-wind)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+23 b FB(18)1029 324 y Fa(E)1029 374 y FB(emacs)13 b(editor)7
+b Fv(:)g(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)21 b FB(70)1029
+424 y Fs(environment->list)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24 b FB(27)1029
+474 y Fs(environment?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23
+b FB(26)1029 524 y Fs(eq?)9 b Fv(:)d(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)23 b FB(11;)13 b(33)1029 575 y
+Fs(equal?)d Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)24 b FB(11)1029 625 y Fs(eqv?)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(11)1029
+675 y Fs(error)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)26 b FB(43)1029 725 y Fs(eval)t Fv(:)5
+b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+18 b FB(41)1029 775 y Fs(eval-string)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)25 b FB(42)1029 825 y Fs(even?)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(13)1029
+875 y Fs(exact->inexact)6 b Fv(:)s(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(14)1029 925 y Fs(exact?)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(13)1029 976 y Fs(exec)t
+Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)18 b FB(30)1029 1026 y Fs(exit)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(45)1029
+1076 y Fs(exp)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(14)1029 1126 y Fs(expand-file-name)8
+b Fv(:)f(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)26 b FB(28)1029 1176 y Fs(expand-heap)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(43)1029
+1226 y Fs(expt)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(14)1029 1371 y Fa(F)1029
+1422 y FB(faq)10 b Fv(:)c(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(70)1029 1472 y Fs(file-exists?)9
+b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(29)1029 1522
+y Fs(file-is-directory)o(?)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)23 b FB(29)1029
+1572 y Fs(file-is-executabl)o(e?)7 b Fv(:)s(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)21 b FB(29)1029
+1622 y Fs(file-is-readable?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24 b FB(29)1029
+1672 y Fs(file-is-regular?)8 b Fv(:)f(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(29)1029
+1722 y Fs(file-is-writable?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24 b FB(29)1029
+1772 y Fs(floor)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)26 b FB(14)1029 1823 y Fs(fluid-let)6
+b Fv(:)t(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)21
+b FB(9)1029 1873 y Fs(flush)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(22)1029 1923 y Fs(for-each)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(17)1029 1973 y Fs(force)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(17)1029 2023 y
+Fs(format)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(21;)13 b(43)1029 2167 y Fa(G)1029 2217 y Fs(gc)7
+b Fv(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)22 b FB(43)1029 2267 y Fs(gc-stats)6 b
+Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(43)1029 2317 y Fs(gcd)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(14)1029
+2368 y Fs(gensym)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)24 b FB(12)1029 2418 y Fs(get-internal-info)9
+b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)24 b FB(43)1029 2468 y Fs(get-keyword)8 b
+Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(25)1029
+2518 y Fs(get-output-string)s Fv(:)t(:)6 b(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(20;)13 b(22)1029
+2568 y Fs(get-signal-handle)o(rs)7 b Fv(:)s(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)21 b FB(32)1029
+2618 y Fs(get-widget-data)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18
+b FB(26)1029 2668 y Fs(getcwd)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(30)1029 2719 y Fs(getenv)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(30)1029 2769 y Fs(getpid)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(30)1029 2819 y(getter)t
+Fv(:)7 b(:)g(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)18 b FB(62)p eop
+%%Page: 76 76
+76 75 bop 75 47 a FA(76)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(glob)7 b Fv(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)21 b FB(29;)13 b(30)75 229 y
+Fs(global-environmen)o(t)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(26)75 366
+y Fa(H)75 416 y Fs(hash-table->list)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26
+b FB(35)75 465 y Fs(hash-table-for-ea)o(ch)7 b Fv(:)s(:)g(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(34)75 515 y Fs(hash-table-get)6 b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(33)75 565 y Fs(hash-table-hash)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(33)75 615 y Fs(hash-table-map)6 b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(34)75 665 y Fs(hash-table-put!)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(33)75 715 y Fs(hash-table-remove)o(!)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(34)75 764 y Fs(hash-table-stats)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26
+b FB(35)75 814 y Fs(hash-table?)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)25 b FB(33)75 864 y Fs(help,)c(getting)7 b Fv(:)e(:)i(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)22 b FB(55)75 1001 y Fa(I)75 1051 y Fs(if)8 b
+Fv(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)23 b FB(8)75 1101 y(ilisp)13 b(pac)o(k)n(age)7
+b Fv(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)21 b FB(71)75
+1151 y Fs(imag-part)8 b Fv(:)d(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(14;)13 b(57)75 1201 y Fs(inexact->exact)6 b Fv(:)s(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)20 b FB(14)75 1250 y Fs(inexact?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)21 b FB(13)75 1300 y(initial)12
+b(en)o(vironmen)o(t)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)18 b FB(10)75
+1350 y Fs(input-port?)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(19)75 1400 y Fs(input-string-port)o(?)8 b Fv(:)t(:)e(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(19)75 1450 y Fs(inspect)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)22 b FB(45)75 1499 y(instance)11
+b Fv(:)c(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)25
+b FB(61)75 1549 y Fs(integer->char)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+22 b FB(15)75 1599 y Fs(integer?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)21 b FB(13)75 1649 y(ip)13 b(n)o(um)o(b)q(er)d
+Fv(:)c(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24
+b FB(39)75 1785 y Fa(K)75 1835 y FB(k)o(eyw)o(ord)9 b
+Fv(:)e(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)24
+b FB(61)75 1885 y Fs(keyword->string)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(24)75 1934 y Fs(keyword?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)21 b FB(24)75 2072 y Fa(L)75 2121
+y Fs(label)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)26 b FB(25)75 2171 y Fs(lambda)10 b Fv(:)c(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)25 b FB(8)75
+2221 y Fs(lcm)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(14)75 2271 y Fs(length)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(11)75 2321 y Fs(let)7 b Fv(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)21 b FB(9)75
+2371 y Fs(let*)5 b Fv(:)h(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)20 b FB(9)75 2420 y Fs(letrec)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(10)75 2470 y Fs(list)7 b Fv(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)21 b FB(11;)13 b(12)75 2520 y Fs(list*)d
+Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26
+b FB(12)75 2570 y Fs(list->string)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)23 b FB(16)75 2620 y Fs(list->vector)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(17)75 2669 y Fs(list-ref)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)21 b FB(11)75 2719 y Fs(list-tail)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19
+b FB(11)75 2769 y Fs(list?)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)26 b FB(11)75 2819 y Fs(load)t
+Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)18 b FB(23)1029 179 y Fs(log)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b
+FB(14)1029 335 y Fa(M)1029 386 y Fs(machine-type)9 b
+Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(42)1029 437
+y Fs(macro)6 b Fv(:)f(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+20 b FB(27;)13 b(28)1029 488 y Fs(macro-body)s Fv(:)t(:)7
+b(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)17 b FB(28)1029
+539 y Fs(macro-expand)s Fv(:)t(:)7 b(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)17 b
+FB(27;)c(28)1029 589 y Fs(macro-expand-1)6 b Fv(:)s(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+20 b FB(27)1029 640 y(macro-expansion)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(27)1029 691 y Fs(macro?)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(27)1029 742 y Fs(magnitude)8
+b Fv(:)d(:)h(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(14;)13 b(57)1029
+792 y Fs(make)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)18 b FB(61)1029 843 y Fs(make-client-socke)o(t)8
+b Fv(:)t(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)23 b FB(39)1029 894 y Fs(make-hash-table)t Fv(:)s(:)7
+b(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)18 b FB(32)1029 945 y Fs(make-keyword)9
+b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(24)1029 996
+y Fs(make-polar)8 b Fv(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(14;)13 b(56,)g(64)1029
+1046 y Fs(make-rectangular)c Fv(:)s(:)e(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)23 b FB(14;)13 b(56,)g(64)1029 1097 y
+Fs(make-server-socke)o(t)c Fv(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)26 b FB(39;)13 b(40)1029 1148 y Fs(make-string)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(16)1029
+1199 y Fs(make-vector)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(17)1029 1250 y Fs(map)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(17)1029
+1300 y Fs(max)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(13)1029 1351 y Fs(member)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(11)1029 1402 y Fs(memq)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(11)1029 1453
+y Fs(memv)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)18 b FB(11)1029 1504 y Fs(menu)t Fv(:)5
+b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+18 b FB(25)1029 1554 y Fs(min)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(13)1029
+1605 y Fs(modulo)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)24 b FB(14)1029 1749 y Fa(N)1029 1800
+y Fs(negative?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+19 b FB(13)1029 1851 y Fs(newline)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(21)1029 1902 y Fs(next-method)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(66)1029
+1952 y Fs(not)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(10)1029 2003 y Fs(null?)10
+b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(11)1029 2054 y Fs(number->string)6 b Fv(:)s(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(14)1029 2105 y Fs(number?)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(13)1029 2156 y Fs(numerator)8
+b Fv(:)d(:)h(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(14;)13 b(56)1029
+2311 y Fa(O)1029 2362 y Fs(obj)c Fv(:)d(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(12;)13 b(31)1029 2413
+y Fs(odd?)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)18 b FB(13)1029 2463 y Fs(open-file)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)19
+b FB(23)1029 2514 y Fs(open-input-file)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18
+b FB(20)1029 2565 y Fs(open-input-string)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24
+b FB(20)1029 2616 y Fs(open-output-file)8 b Fv(:)f(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(20)1029 2667 y Fs(open-output-strin)o(g)8 b Fv(:)t(:)e(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)23
+b FB(20)1029 2717 y Fs(or)8 b Fv(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)23 b FB(9)1029
+2768 y Fs(output-port?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23
+b FB(19)1029 2819 y Fs(output-string-por)o(t?)7 b Fv(:)s(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)21
+b FB(19)p eop
+%%Page: 77 77
+77 76 bop 75 47 a Fx(STk)16 b FA(Reference)f(Man)o(ual)1235
+b(77)p 75 64 1763 2 v 75 186 a Fa(P)75 236 y Fs(pair?)10
+b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26
+b FB(11)75 286 y Fs(parent-environmen)o(t)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(26)75 336 y Fs(peek-char)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)19 b FB(21)75 386 y(pid)t Fv(:)6 b(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)18 b FB(37;)13
+b(38)75 436 y Fs(port->list)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)21
+b FB(23;)13 b(24)75 486 y Fs(port->sexp-list)7 b Fv(:)t(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22
+b FB(23;)13 b(24)75 536 y Fs(port->string)c Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(23)75 586 y Fs(port->string-list)s Fv(:)t(:)7
+b(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(23;)13 b(24)75 636 y Fs(positive?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(13)75 686 y(p)q(osix.1)11
+b Fv(:)6 b(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(31)75 736 y Fs(primitive?)s Fv(:)5 b(:)h(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)17 b FB(18)75 786 y Fs(procedure-body)6 b
+Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(18)75 836 y Fs(procedure-environ)o
+(ment)s Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)17 b FB(27)75 886 y Fs(procedure?)s Fv(:)5 b(:)h(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)17 b FB(17)75 936 y Fs(process-alive?)6
+b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(38)75 986 y Fs(process-continue)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)26 b FB(38)75 1036 y Fs(process-error)7
+b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22 b FB(38)75 1086 y
+Fs(process-exit-stat)o(us)7 b Fv(:)s(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21 b FB(38)75 1136 y
+Fs(process-input)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22
+b FB(38)75 1186 y Fs(process-kill)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)23 b FB(38)75 1236 y Fs(process-list)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(38)75 1286 y Fs(process-output)6 b Fv(:)s(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)20 b FB(38)75 1336 y Fs(process-pid)8 b Fv(:)f(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)25 b FB(38)75 1386 y Fs(process-send-sign)o(al)7
+b Fv(:)s(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)21 b FB(38)75 1435 y Fs(process-stop)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(38)75 1485 y Fs(process-wait)9 b Fv(:)t(:)d(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)23 b FB(38)75 1535 y Fs(process?)6 b Fv(:)f(:)i(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)21 b FB(38)75 1585 y
+Fs(promise?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+21 b FB(18)75 1635 y Fs(provide)10 b Fv(:)d(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)26 b FB(23;)13 b(71)75 1685 y Fs(provided?)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19
+b FB(23)75 1827 y Fa(Q)75 1877 y Fs(quasiquote)s Fv(:)5
+b(:)h(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)17 b FB(10)75
+1927 y Fs(quit)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)18 b FB(45)75 1977 y Fs(quote)s
+Fv(:)6 b(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)18 b FB(8)75 2027 y Fs(quotient)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)21 b FB(14)75 2169 y Fa(R)75
+2219 y FB(r4rs)8 b Fv(:)f(:)g(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)22 b FB(7;)13 b(71)75 2269 y Fs(random)d
+Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(42)75 2319 y Fs(rational?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)19 b FB(13)75 2369 y Fs(rationalize)5
+b Fv(:)t(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(14;)13 b(56)75 2419
+y Fs(read)c Fv(:)c(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)23 b FB(21;)13 b(8)75 2469 y Fs(read-char)5 b Fv(:)t(:)i(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19 b FB(21)75 2519 y Fs
+(read-from-string)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26 b FB(42)75 2569
+y Fs(read-line)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+19 b FB(21)75 2619 y Fs(real-part)8 b Fv(:)d(:)h(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)22 b FB(14;)13 b(56)75 2669 y Fs(real?)d Fv(:)d(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)26 b FB(13)75
+2719 y Fs(regexp-replace)9 b Fv(:)t(:)d(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(36;)13
+b(37)75 2769 y Fs(regexp-replace-al)o(l)c Fv(:)d(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26 b FB(36;)13 b(37)75
+2819 y Fs(regexp?)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)22 b FB(36)1029 179 y(regular)14 b(expression)t
+Fv(:)7 b(:)g(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)18 b FB(35)1029 229 y Fs(remainder)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)19
+b FB(14)1029 279 y Fs(require)10 b Fv(:)d(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)26 b FB(23;)13 b(71)1029 329 y Fs(reverse)8 b
+Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(11)1029 379 y(ro)q(ot)14 b(windo)o(w)8 b Fv(:)e(:)g(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)23 b FB(52)1029 429 y Fs(round)10
+b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(14)1029 479 y Fs(run-process)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)25 b FB(37)1029 621 y Fa(S)1029 670 y FB(sc)o(heme)14
+b(rep)q(ository)5 b Fv(:)i(:)g(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)19 b FB(72)1029
+720 y Fs(set!)9 b Fv(:)c(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)23 b FB(8;)13 b(62)1029 770 y Fs(set-car!)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(11)1029 820 y Fs(set-cdr!)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)21 b FB(11)1029 870 y Fs(set-random-seed!)8
+b Fv(:)f(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)26 b FB(42)1029 920 y Fs(set-signal-handle)o(r!)7
+b Fv(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24
+b FB(31;)13 b(32)1029 970 y Fs(set-widget-data!)8 b Fv(:)f(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(26)1029 1020 y Fs(setenv!)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(30)1029 1070 y(setter)6
+b Fv(:)i(:)e(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)20 b FB(62)1029 1120 y Fs(sigabrt)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 1170 y Fs(sigalrm)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(31)1029 1220 y Fs(sigbus)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(31)1029 1270 y Fs(sigchld)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(31)1029 1320 y Fs(sigcld)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(31)1029 1370 y Fs(sigcont)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(31)1029 1420 y Fs(sigfpe)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(31)1029 1470 y Fs(sighup)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(31)1029 1520 y Fs(sigill)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(31)1029 1570 y Fs(sigint)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(31)1029 1620 y Fs(sigio)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(31)1029 1670 y
+Fs(sigiot)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)24 b FB(31)1029 1720 y Fs(sigkill)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 1770
+y Fs(siglost)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 1820 y Fs(sigpipe)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 1870 y
+Fs(sigpoll)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 1920 y Fs(sigprof)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 1970 y
+Fs(sigsegv)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 2019 y Fs(sigstop)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 2069 y
+Fs(sigsys)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)24 b FB(31)1029 2119 y Fs(sigterm)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 2169
+y Fs(sigtrap)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 2219 y Fs(sigttin)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 2269 y
+Fs(sigttou)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 2319 y Fs(sigurg)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24 b FB(31)1029 2369
+y Fs(sigusr1)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(31)1029 2419 y Fs(sigwinch)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)21 b FB(31)1029 2469 y Fs(sigxcpu)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(31)1029 2519 y Fs(sigxfsz)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(31)1029 2569 y Fs(sin)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)20 b FB(14)1029 2619 y(slib)13 b(pac)o(k)n(age)t
+Fv(:)6 b(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)18 b
+FB(71)1029 2669 y(slot)6 b Fv(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)20 b FB(59)1029 2719
+y Fs(slot-ref)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)21 b FB(61)1029 2769 y Fs(slot-set!)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)19 b FB(61)1029 2819 y Fs(socket-accept-con)o
+(necti)o(on)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)22
+b FB(40)p eop
+%%Page: 78 78
+78 77 bop 75 47 a FA(78)1236 b Fx(STk)17 b FA(Reference)d(Man)o(ual)p
+75 64 1763 2 v 75 179 a Fs(socket-down?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(40)75 229 y Fs(socket-dup)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)21 b FB(40;)13 b(41)75 279 y Fs(socket-host-addre)o(ss)7
+b Fv(:)s(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)21 b FB(39)75 329 y Fs(socket-host-name)8 b Fv(:)f(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)26
+b FB(39)75 379 y Fs(socket-input)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+23 b FB(39)75 429 y Fs(socket-local-addr)o(ess)5 b Fv(:)s(:)i(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)19
+b FB(39)75 479 y Fs(socket-output)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22
+b FB(39)75 529 y Fs(socket-port-numbe)o(r)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(39)75 578 y Fs(socket-shutdown)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18
+b FB(40)75 628 y Fs(socket?)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)22 b FB(39)75 678 y Fs(sort)7 b Fv(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)21 b FB(44;)13
+b(30)75 728 y Fs(sqrt)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18 b FB(14)75 778 y Fs(string)t
+Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18
+b FB(16;)13 b(17)75 828 y Fs(string->list)c Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(16)75 878 y Fs(string->number)6 b Fv(:)s(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)20 b FB(14)75 928 y Fs(string->regexp)9 b Fv(:)t(:)d(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(35;)13 b(36)75 978 y Fs(string->symbol)6 b Fv(:)s(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)20 b FB(12)75 1028 y Fs(string->widget)6 b Fv(:)s(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)20 b FB(26)75 1078 y Fs(string-append)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)22 b FB(16)75 1128 y Fs(string-ci<=?)9 b Fv(:)t(:)d(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)23 b FB(16)75 1178 y Fs(string-ci<?)8 b Fv(:)f(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)25 b FB(16)75 1228 y Fs(string-ci=?)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(16)75
+1278 y Fs(string-ci>=?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(16)75 1328 y Fs(string-ci>?)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)25 b FB(16)75 1378 y Fs(string-copy)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)25 b FB(16)75 1428 y Fs(string-fill!)9 b
+Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23 b FB(16)75 1478
+y Fs(string-find?)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(16)75 1528 y Fs(string-index)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)23 b FB(16)75 1578 y Fs(string-length)7 b Fv(:)t(:)g(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)22 b FB(16)75 1628 y Fs(string-lower)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)23 b FB(17)75 1678 y Fs(string-ref)s Fv(:)5 b(:)h(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)17 b FB(16)75 1728 y Fs(string-set!)8
+b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)25 b FB(16)75
+1778 y Fs(string-upper)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)23
+b FB(17)75 1828 y Fs(string<=?)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)19 b FB(16)75 1878 y Fs(string<?)6 b
+Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)21
+b FB(16)75 1927 y Fs(string=?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)21 b FB(16)75 1977 y Fs(string>=?)5
+b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)19
+b FB(16)75 2027 y Fs(string>?)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)21 b FB(16)75 2077 y Fs(string?)8
+b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(16)75 2127 y Fs(substring)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)19 b FB(16)75 2177 y Fs(symbol->string)6
+b Fv(:)s(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(12)75 2227 y Fs(symbol-bound?)7
+b Fv(:)t(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)22 b FB(27)75 2277 y
+Fs(symbol?)8 b Fv(:)d(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)22 b FB(12)75 2327 y Fs(system)10 b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24 b FB(30)75 2469
+y Fa(T)75 2519 y Fs(tan)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)20 b FB(14)75 2569
+y Fs(the-environment)t Fv(:)s(:)7 b(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)18 b FB(26)75
+2619 y(tilde)c(expansion)s Fv(:)6 b(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)17
+b FB(28)75 2669 y Fs(time)t Fv(:)6 b(:)g(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)18 b FB(44)75 2719
+y(tk)c(to)q(olkit)7 b Fv(:)e(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(7;)13 b(25,)g(43)75 2769 y Fs(tk-command)8 b Fv(:)e(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)24
+b FB(25;)13 b(26,)g(52)75 2819 y Fs(tk-command?)8 b Fv(:)f(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)25 b FB(25)1029 179 y(to)q(olkit)5
+b Fv(:)g(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)19 b FB(7;)13
+b(25,)g(43)1029 229 y(top)h(lev)o(el)f(en)o(vironmen)o(t)c
+Fv(:)d(:)g(:)g(:)h(:)f(:)h(:)f(:)23 b FB(10;)13 b(26,)g(61,)g(62)1029
+278 y Fs(trace-var)5 b Fv(:)t(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)19 b FB(42)1029 328 y Fs(transcript-off)9 b Fv(:)t(:)d(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23
+b FB(23;)13 b(56)1029 378 y Fs(transcript-on)8 b Fv(:)e(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(23;)13 b(56)1029 428 y Fs(truncate)6 b Fv(:)f(:)i(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)21 b FB(14)1029 478 y Fs(try-load)6
+b Fv(:)f(:)i(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)21
+b FB(23)1029 617 y Fa(U)1029 667 y Fs(uncode)10 b Fv(:)5
+b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(44)1029 717 y Fs(unless)5 b Fv(:)g(:)i(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)20 b FB(9;)13 b(10)1029 766 y Fs(until)d
+Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26
+b FB(10)1029 816 y Fs(untrace-var)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)25 b FB(43)1029 943 y Fa(V)1029 993 y Fs(vector)10
+b Fv(:)5 b(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)24
+b FB(17)1029 1043 y Fs(vector->list)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)
+h(:)23 b FB(17)1029 1092 y Fs(vector-copy)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)
+f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)25 b FB(17)1029 1142 y Fs(vector-fill!)9
+b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)23 b FB(17)1029 1192
+y Fs(vector-length)7 b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)22
+b FB(17)1029 1242 y Fs(vector-ref)s Fv(:)t(:)7 b(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)17 b FB(17)1029 1292 y Fs(vector-resize)7
+b Fv(:)t(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)22 b FB(17)1029 1341
+y Fs(vector-set!)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)25
+b FB(17)1029 1391 y Fs(vector?)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(17)1029 1441 y Fs(version)8
+b Fv(:)d(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22
+b FB(42)1029 1491 y Fs(view)t Fv(:)5 b(:)i(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)18 b FB(45)1029 1618
+y Fa(W)1029 1668 y Fs(when)5 b Fv(:)h(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)20 b FB(9)1029
+1717 y Fs(when-port-readabl)o(e)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)23 b FB(22)1029
+1767 y Fs(when-port-writabl)o(e)8 b Fv(:)t(:)e(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)23 b FB(22)1029
+1817 y Fs(when-socket-ready)9 b Fv(:)t(:)d(:)h(:)f(:)h(:)f(:)g(:)h(:)f
+(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)24 b FB(41)1029
+1867 y Fs(while)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)26 b FB(10)1029 1917 y(widget)6 b Fv(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)20 b FB(25)1029
+1966 y Fs(widget->string)6 b Fv(:)s(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)20
+b FB(26)1029 2016 y Fs(widget-name)8 b Fv(:)f(:)f(:)h(:)f(:)h(:)f(:)g
+(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)
+h(:)f(:)25 b FB(26)1029 2066 y Fs(widget?)8 b Fv(:)d(:)i(:)f(:)g(:)h(:)
+f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h
+(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)22 b FB(25)1029 2116
+y Fs(with-input-from-f)o(ile)5 b Fv(:)s(:)i(:)f(:)g(:)h(:)f(:)h(:)f(:)h
+(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)19 b FB(19)1029 2166 y
+Fs(with-input-from-s)o(tring)7 b Fv(:)g(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f
+(:)h(:)f(:)g(:)h(:)25 b FB(20)1029 2215 y Fs(with-output-to-fi)o(le)7
+b Fv(:)s(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)
+f(:)21 b FB(19)1029 2265 y Fs(with-output-to-st)o(ring)s
+Fv(:)s(:)7 b(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)18
+b FB(20)1029 2315 y Fs(write)10 b Fv(:)d(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)
+g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f
+(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)26 b FB(21)1029 2365 y
+Fs(write-char)s Fv(:)t(:)7 b(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)17
+b FB(21)1029 2492 y Fa(X)1029 2541 y FB(x)d(windo)o(w)f(system)t
+Fv(:)6 b(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)
+f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)19 b FB(7)1029 2680 y
+Fa(Z)1029 2729 y Fs(zero?)5 b Fv(:)g(:)h(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)
+h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)h(:)f(:)h
+(:)f(:)g(:)h(:)f(:)h(:)f(:)19 b FB(13)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/Reference/manual.tex b/Doc/Reference/manual.tex
new file mode 100644
index 0000000..ad08627
--- /dev/null
+++ b/Doc/Reference/manual.tex
@@ -0,0 +1,149 @@
+%
+% STk Reference manual (Main file)
+%
+% Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+%
+% Permission to use, copy, and/or distribute this software and its
+% documentation for any purpose and without fee is hereby granted, provided
+% that both the above copyright notice and this permission notice appear in
+% all copies and derived works.  Fees for distribution or use of this
+% software or derived works may only be charged with express written
+% permission of the copyright holder.  
+% This software is provided ``as is'' without express or implied warranty.
+%
+%           Author: Erick Gallesio [eg@unice.fr]
+%    Creation date: ??-Nov-1993 ??:??
+% Last file update: 24-Jul-1996 13:53
+%
+
+\documentclass[10pt,a4paper]{book}
+\usepackage{a4wide}
+\usepackage{fancyheadings}
+\pagestyle{fancy}
+\setlength{\headheight}{15pt}
+
+\makeindex                              % Build Index
+
+\begin{document}
+
+\input{commands}                        % Stolen macros from R4RS
+\input{psfig}                           % Postscript stuff
+\parindent 0pt                          % No indentation at paragraph
+                                        % beginning
+\bibliographystyle{unsrt}               % Unsorted bibliography
+
+% \showboxdepth=0                               
+
+%
+%  Some changes in standard commands
+% 
+\renewcommand{\thechapter}{}                    % No chapter number
+\renewcommand{\thesection}{\arabic{section}}    % Subsection inherits from this
+
+%
+% Some new commands
+%
+\newcommand{\stkversion}{3.1}
+\newcommand{\stk}{{\sc STk}}
+\newcommand{\stklos}{{\sc STklos}}
+\newcommand{\doc}{{\em Identical to R$^{4}$RS.}}
+\newcommand{\rrrr}{{\em R$^{4}\!RS$}}
+\newcommand{\saut}{\vskip2mm}
+\newcommand{\tilda}{{\tt\char126}}
+\newcommand{\etoile}{{\tt\char42}}
+\newcommand{\leftbracket}{{\tt\char91}}
+\newcommand{\rightbracket}{{\tt\char93}}
+\newcommand{\hyperiii}[1]{\hyper{#1$_3$}}
+\newcommand{\clearemptydoublepage}{\newpage{\thispagestyle{empty}\cleardoublepage}}
+
+%
+% Title page
+%
+\thispagestyle{empty}
+\begin{center}   
+\ \\[3cm]
+{\huge\bf ST{\large\bf{K}} Reference manual}\\[3mm]
+{\Large Version \stkversion}\\[3cm]
+{\large Erick Gallesio \\
+Universit\'e de Nice~-~Sophia Antipolis \\
+Laboratoire I3S - CNRS URA 1376 - ESSI. \\
+Route des Colles\\
+B.P. 145\\
+06903 Sophia-Antipolis Cedex - FRANCE\\[3mm]
+email: eg@unice.fr}
+\end{center}
+\vskip8cm
+\begin{flushright}
+July 1996
+\end{flushright}
+\newpage
+\thispagestyle{empty}
+{\ }
+\vskip2cm
+{\bf Document Reference}
+\begin{quote}
+Erick Gallesio, {\em STk Reference Manual}, RT 95-31b,
+I3S-CNRS~/~Universit\'e de Nice - Sophia Antipolis, juillet 1995.
+\end{quote}
+
+
+
+%\renewcommand{\sectionmark}[1]{\markboth{\bf #1}{}}
+%\renewcommand{\subsectionmark}[1]{\markright{\bf\thesubsection~~#1}}
+%\lhead[\fancyplain{}{\bf\thepage}]{\fancyplain{}{\rightmark}}
+%\chead{}
+%\rhead[\fancyplain{}{\leftmark}]{\fancyplain{}{\bf\thepage}}
+
+\lhead[\fancyplain{}{\bf\thepage}]{\fancyplain{}{\bf{\stk} Reference Manual}}
+\chead{}
+\rhead[\fancyplain{}{\bf{\stk} Reference Manual}]{\fancyplain{}{\bf\thepage}}
+\lfoot{}
+\cfoot{\fancyplain{\bf\thepage}{}}
+\rfoot{}
+
+
+%
+% Table of content
+%
+\tableofcontents
+
+
+
+%
+% Part 1: Reference manual
+%
+\part{Reference Manual}
+\pagestyle{fancy}
+\thispagestyle{plain}
+\input{Reference1.tex}
+\input{Reference2.tex}
+
+%
+% Annexes
+%
+\part{Annexes}
+\appendix
+
+
+\chapter{Using the Tk toolkit}
+\input{Appendix-A}
+
+\chapter{Differences with R4RS}
+\input{Appendix-B}
+
+\chapter{An introduction to {\stklos}}
+\input{Appendix-C}
+
+\chapter{Miscellaneous Informations}
+\input{Appendix-D}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\bibliography{bibliography}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\begin{theindex}
+\bigskip
+\input{index}
+\end{theindex}
+
+\end{document}
diff --git a/Doc/STklos+Tk/Basic-Fig-1.ps b/Doc/STklos+Tk/Basic-Fig-1.ps
new file mode 100644
index 0000000..6ee05ef
--- /dev/null
+++ b/Doc/STklos+Tk/Basic-Fig-1.ps
@@ -0,0 +1,443 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Basic-Fig-1.ps
+%%Creator: XV Version 3.00  Rev: 3/30/93  -  by John Bradley
+%%BoundingBox: 210 300 385 550
+%%Pages: 1
+%%DocumentFonts:
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% lower left corner
+210 300 translate
+
+% size of image (on paper, in 1/72inch coords)
+175.03200 249.98400 scale
+
+% define 'colorimage' if it isn't defined
+%   ('colortogray' and 'mergeprocs' come from xwd2ps
+%     via xgrab)
+/colorimage where   % do we know about 'colorimage'?
+  { pop }           % yes: pop off the 'dict' returned
+  {                 % no:  define one
+    /colortogray {  % define an RGB->I function
+      /rgbdata exch store    % call input 'rgbdata'
+      rgbdata length 3 idiv
+      /npixls exch store
+      /rgbindx 0 store
+      /grays npixls string store  % str to hold the result
+      0 1 npixls 1 sub {
+        grays exch
+        rgbdata rgbindx       get 20 mul    % Red
+        rgbdata rgbindx 1 add get 32 mul    % Green
+        rgbdata rgbindx 2 add get 12 mul    % Blue
+        add add 64 idiv      % I = .5G + .31R + .18B
+        put
+        /rgbindx rgbindx 3 add store
+      } for
+      grays
+    } bind def
+
+    % Utility procedure for colorimage operator.
+    % This procedure takes two procedures off the
+    % stack and merges them into a single procedure.
+
+    /mergeprocs { % def
+      dup length
+      3 -1 roll
+      dup
+      length
+      dup
+      5 1 roll
+      3 -1 roll
+      add
+      array cvx
+      dup
+      3 -1 roll
+      0 exch
+      putinterval
+      dup
+      4 2 roll
+      putinterval
+    } bind def
+
+    /colorimage { % def
+      pop pop     % remove 'false 3' operands
+      {colortogray} mergeprocs
+      image
+    } bind def
+  } ifelse          % end of 'false' case
+
+
+
+% define the colormap
+/cmap 27 string def
+
+
+% load up the colormap
+currentfile cmap readhexstring
+ffffff 000000 ffe4c4 998976 cccccc 7a7a7a db7093 6d3849 ff9dce 
+pop pop   % lose return values from readhexstring
+
+
+% rlecmapimage expects to have 'w h bits matrix' on stack
+/rlecmapimage {
+  /buffer 1 string def
+  /rgbval 3 string def
+  /block  384 string def
+
+  % proc to read a block from file, and return RGB data
+  { currentfile buffer readhexstring pop
+    /bcount exch 0 get store
+    bcount 128 ge
+    {  % it's a non-run block
+      0 1 bcount 128 sub
+      { currentfile buffer readhexstring pop pop
+
+        % look up value in color map
+        /rgbval cmap buffer 0 get 3 mul 3 getinterval store
+
+        % and put it in position i*3 in block
+        block exch 3 mul rgbval putinterval
+      } for
+      block  0  bcount 127 sub 3 mul  getinterval
+    }
+
+    { % else it's a run block
+      currentfile buffer readhexstring pop pop
+
+      % look up value in colormap
+      /rgbval cmap buffer 0 get 3 mul 3 getinterval store
+
+      0 1 bcount { block exch 3 mul rgbval putinterval } for
+
+      block 0 bcount 1 add 3 mul getinterval
+    } ifelse
+  } % end of proc
+  false 3 colorimage
+} bind def
+
+
+175 250 8			% dimensions of data
+[175 0 0 -250 0 250]		% mapping matrix
+rlecmapimage
+
+14088107087f0801088107081308
+130801077f080108010713080007
+010813078108077f0701078108071007810807
+01087f07290701080007
+0108010710088107085d088107080f088107080f088107080f08810708810807
+010801070f0801075d0801070f0801070f0801070f08010701080007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d060107010823060401010609012606010701080d06010701080d060107
+01080d06010701080007
+0108010701080d0601070108220601010206010103060101020601012606010701080d06
+010701080d06010701080d06010701080007
+0108010701080d0601070108220601010206010103060101020601010106010122060107
+01080d06010701080d06010701080d06010701080007
+0108010701080d0601070108230602010606010102060101810601810106220601070108
+0d06010701080306040881070602060107010806068108060406010701080007
+010801070108810608090882070607810708810806240602010406010102060301240601
+0701080d0601070108040681080601068107060206010701080506820807060406010701
+080007
+010801070108820608060806820706078107088108062506020103060101020603012406
+010701080506820807060406010701080406810806820607060306010701080506830806
+07060306010701080007
+010801070108820608060806820706078107088108062106010102060101030601010206
+010181060181010622060107010805068208070604060107010805068308060706030601
+0701080406810806820607060306010701080007
+010801070108820608070907810607810708810806210601010206010103060101020601
+01010601012206010701080d060107010805068208070604060107010804068108060106
+8107060206010701080007
+0108010701080d0601070108230604010406010102060101020601012106010701080d06
+010701080606810706040601070108030681080703070306010701080007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+81080701078108070f078108075d078108070f078108070f078108070f078108070007
+7f072e07
+02088107047f0425048107080108
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+01080107200401010d040101120401010b040101080401010f0402013204810708810807
+
+010801071f04030121040101160401010e0401013404810708810807
+010801071f04810104820401040504030101040101830401040101018104010101010401
+018104018101048104018101048104010201050401018104018201040181010481040102
+01010403010104010181040104010104030102040301020403011f04810708810807
+010801071e04010101040101040401010104010181040182010401810104810401810104
+810401820104010101810401820104018201040181010481040181010403040101810401
+010181040181010481040181010481040181010481040182010401030181040181010481
+040181010481040182010401810104810401820104018101048104018101041d04810708
+810807
+010801071e04010101040101040402010304010181040181010481040181010481040182
+010401810104810401820104018201040181010481040181010403040101810401810104
+810401810104810401810104810401810104810401820104010101020401010504010181
+040181010403040101010401011e04810708810807
+010801071e04050106040201010401018104018101048104018101048104018201040181
+010481040182010401820104010401040401018104018101048104018101048104018101
+0481040104018104018101040204010102040401810401810104030405011e0481070881
+0807
+010801071d04010103040101060402018104018201040181010481040181010481040182
+010401810104810401820104018201040181010407040101810401810104810401810104
+810401810104810401810104030401010304010101040101010401018104018101040304
+01012204810708810807
+010801071d04010103040101030401010104010181040182010401810104810401810104
+810401820104010101810401820104018201040181010481040181010403040101810401
+810104810401810104810401820104010101010401018104018101040204010101040101
+01040101810401810104810401820104018101048104018101041d04810708810807
+010801071d04010103040101040403010104010181040181010481040181010481040182
+010401820104018101048104018101048104010201050401018104018101048104018101
+040104010101040301010401010304010102040201810401820104010201020403011f04
+810708810807
+010801073e0401016504810708810807
+010801073e0401016504810708810807
+010801073e0401016504810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f002600810708810807
+010801078100047f04230482050708810807
+01080107820004057f0521058304050708810807
+0108010783000405047f0417048103040504840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f041504010002030404840004050708810807
+0108010783000405047f04150401008102038103040304840004050708810807
+0108010783000405047f0414040100020201030304840004050708810807
+0108010783000405047f0413040200020201030304840004050708810807
+0108010783000405047f0413040100040201030204840004050708810807
+0108010783000405047f0412040100060201030104840004050708810807
+0108010783000405047f0412040100060201030104840004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f0411048100030a0385040004050708810807
+0108010783000405047f0410048100030c03840004050708810807
+0108010783000405047f0411040c0085040004050708810807
+0108010783000405047f0411040b008603040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000a0385040004050708810807
+0108010783000405047f0411048100030a0385040004050708810807
+0108010783000405047f0410040f008304050708810807
+0108010783000405047f0411040c0085030004050708810807
+0108010783000405047f0412048100020702010385040004050708810807
+0108010783000405047f04120401000702010385040004050708810807
+0108010783000405047f041304810002050201030104840004050708810807
+0108010783000405047f041304010005028103040104840004050708810807
+0108010783000405047f041404810002030201030204840004050708810807
+0108010783000405047f0414040100020201030304840004050708810807
+0108010783000405047f041504810002010201030304840004050708810807
+0108010783000405047f04150401008102038103040304840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0417048103040504840004050708810807
+0108010783000405007f0020008304050708810807
+010801078100047f04230482050708810807
+010801078100057f052405810708810807
+0108010742041f004304810708810807
+0108010742041e008105044204810708810807
+8108070107420401001b0401054304820708070007
+0307420401001b04010543040307
+0208810704410401001b04010543048107080108
+0108010742040100020403010904010101040101040401054304810708810807
+010801074204010001040101010401010c040101040401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018201040102
+01030401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018101048104
+01810104030401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018101048104
+01810104030401054304810708810807
+010801074204010081040181010483040104018201040181010481040182010401810104
+810401810104030401054304810708810807
+010801074204010081040181010481040102018104018101048104018201040181010481
+0401810104030401054304810708810807
+010801074204010001040101010401010104010181040101018104018101048104018301
+040104010401054304810708810807
+010801074204010002040501010401018104018201040181010401040101030401054304
+810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001d054304810708810807
+0108010742048100051d054304810708810807
+01087f07290701080007
+010881070810088107087f08010881070812080007
+130801077f080108010713080007
+81080713078108077f0701078108071207
+
+%
+% Compression made this file 6.07% of the uncompressed size.
+%
+
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
diff --git a/Doc/STklos+Tk/Chap1.tex b/Doc/STklos+Tk/Chap1.tex
new file mode 100644
index 0000000..d51abd4
--- /dev/null
+++ b/Doc/STklos+Tk/Chap1.tex
@@ -0,0 +1,809 @@
+%
+% Chapter Getting Started
+%
+%           Author: Erick Gallesio [eg@kaolin.unice.fr]
+%    Creation date:  4-Nov-1992 15:37
+% Last file update: 24-Jul-1996 16:28
+
+\chapter{Getting Started}
+
+%\begin{flushright}
+%{\Huge\bf 1}\\[5mm]
+%{\Huge\bf Getting Started}
+%\end{flushright}
+
+
+This chapter will explain the things you must know to begin to manipulate Tk
+widgets as {\stklos} objects. This is a short introduction for programming the
+Tk toolkit with objects. If you know how to program it with the Tcl language,
+you will see that things are not too much different (at least at first
+sight). A good introduction to Tk programming in Tcl can be found in
+\cite{Ouster-bok} or \cite{Welch-book}.
+
+\section{First steps}
+
+When you want to use the Tk toolkit with the {\stklos}, you must first call
+the {\stk} interpreter. Launching the interpreter is usually done by a
+call to the shell script {\tt stk} which must have been installed in a
+standard place. Once, the interpreter is initialized, a small square window
+will appear on your display. This window is called the {\em root
+window\index{root window}}. Its value is always retained in the global
+variable {\tt *top-root*\index{*top-root*}}.
+
+Once the Tk initialization is complete, you have to load the file 
+{\tt Tk-classes}. This can be done by 
+\begin{quote}
+\begin{verbatim}
+(require "Tk-classes")
+\end{verbatim}
+\end{quote}
+
+The {\tt Tk-classes} file contains a set of {\tt autoload}s for all the
+Tk widgets defined in the {\stk} release. If you plan to always work with
+those classes, you can put this line in your {\stk} init file (i.e. in the
+file ``{\tt \~/.stkrc}'') to avoid (manual) loading of this file.
+
+From now, we are able to interact with the Tk toolkit. Try to enter the following
+lines at the {\stk} prompt: 
+\begin{quote}
+\begin{verbatim}        
+(define hello (make <Label> :text "Hello, world"))
+\end{verbatim}
+\end{quote}
+
+The call to {\tt make} creates a new object (i.e. an instance of the class {\tt
+<Label>}) with its slot {\tt text} filled with the string {\tt "Hello,
+world"}. In the above example, this new object is assigned to the symbol
+{\tt hello}. Even, if a new label is created, nothing will be displayed on
+your screen. You'll have to use a {\em geometry manager}\index{geometry
+manager} for displaying a Tk widget onto screen. Two window managers are
+provided with Tk, namely the {\em packer}\index{packer} and the {\em
+placer}\index{placer}. Both command have a full set of options which will
+be detailed later (see \ref{packer}). For now, we will just use the packer
+in its simpler form:
+\begin{quote}
+\begin{verbatim}        
+(pack hello)
+\end{verbatim}
+\end{quote}
+permits to map the {\tt hello} button onto screen. 
+
+Let us see further how the {\tt hello} button is built. Using describe
+on it will display:
+\begin{quote}
+\begin{verbatim}
+#[<label> e1444] is an instance of class <label>
+Slots are: 
+     id = #[Tk-command .v1]
+     eid = #[Tk-command .v1]
+     parent = #[Tk-command .]
+     bitmap = ""
+     width = 0
+     height = 0
+     anchor = "center"
+     font = "9x15"
+     foreground = "Black"
+     pad-x = 1
+     pad-y = 1
+     text = "Hello, world"
+     text-variable = ""
+     background = "#cccccc"
+     border-width = 0
+     cursor = ""
+     relief = "flat"
+\end{verbatim}
+\end{quote}
+
+{\tt Id\index{Id slot}}, {\tt Eid\index{Eid slot}} and {\tt
+parent\index{parent slot}} slots are present in all Tk widgets and are used
+by the system. Don't try to change their value.  Other slots depend of the
+kind (i.e. the class) of widget. The slots listed above correspond to
+the various Tk options available on a label.  Of course you can
+consult/change their value with the standard {\tt slot-ref} or {\tt
+slot-set!} primitives.  For instance, one can change the background color
+of the {\tt hello} button with the following form:
+\begin{quote}
+\begin{verbatim}
+(slot-set! hello 'background "Chocolate")
+\end{verbatim}
+\end{quote}
+or, using the {\stklos} generalized assignment,
+\begin{quote}
+\begin{verbatim}
+(set! (background hello) "Chocolate")
+\end{verbatim}
+\end{quote}
+
+Of course, the background value can be queried with
+\begin{quote}
+\begin{verbatim}
+(slot-ref hello 'background)
+        --> "Chocolate"
+\end{verbatim}
+\end{quote}
+\noindent
+or
+\begin{quote}
+\begin{verbatim}
+(background hello)
+        --> "Chocolate"
+\end{verbatim}
+\end{quote}
+
+Here, {\tt background} is used as an accessor\index{accessor} of the label
+background. It would be also possible to specify this value at label
+instantiation with the {\tt :background} {\em initialization keyword
+\index{initialization keyword}} and the same window could have be obtained
+with the following {\tt make} call 
+\begin{quote}
+\begin{verbatim}
+(define hello (make <Label> :text "Hello world" 
+                            :background "Chocolate"))
+\end{verbatim}
+\end{quote}
+
+\section{Class Hierarchy}
+
+{\stklos} Tk classes permit to {\em reify} the Tk widgets into {\stklos
+objects}. It means that every graphical object used in a program such as a
+menu, a label or a button is represented as a {\stklos} object. All the
+defined {\stklos} classes build a hierarchy which is briefly described
+here. Firstly, all the classes shared a unique ancestor: the {\tt <Tk-object>}
+class. Instances of this class contain informations which are necessary for
+establishing a communication between the Scheme and Tk worlds. Principally,
+objects of this class have the three slots cited before {\tt Id\index{Id
+slot}}, {\tt Eid\index{Eid slot}} and {\tt parent\index{parent slot}}. The
+{\tt Id} slot contains a Tk command \cite{STk-ref-man}, generated by
+{\stklos} itself, which correspond to the {\stk} command which implement the
+object.  The {\tt parent} slot contains a reference to the object which
+(graphically) include the current object. This slot will be discussed later.
+Normally, end users will not have to use direct instances of the {\tt
+<Tk-object>} class\footnote{All classes whose name begin with the ``Tk-''
+prefix are not are not intended for the final user. They will be discussed in
+this document only if it seems necessary for a good class hierarchy
+comprehension.}.
+
+The next level in our class hierarchy define a fork with two branches: the
+{\tt <Tk-widget>}\index{<Tk-widget> class} class and {\tt<Tk-canvas-item>}
+\index{<Tk-canvas-item> class} class. Instances of the
+former class are classical widgets such as buttons, menus or canvases since
+instances of the later are objects contained in a canvas such as lines or
+rectangles.  {\tt <Tk-widget>}s are also divided in two categories: {\tt
+<Tk-simple-widget>}s and {\tt <Tk-composite-widget>}s. Simples widgets are
+directly implemented as Tk objects and composite ones are build upon simple
+widgets (e.g. file browser, alert messages and so on). The head of the
+{\stklos} hierarchy is shown in Figure \ref{Head-hierarchy}.
+\begin{figure}
+%\centerline{\epsfig{figure={Fig1-1.idraw},height={2.00in},width={2.00in}}}
+\centerline{\epsfig{file={Fig1-1.eps}}}
+\caption{Head of the {\stklos} hierarchy}
+\label{Head-hierarchy}
+\end{figure}
+
+\subsection{The {\tt <Tk-widget>} class}
+
+No slot is defined for this class. However, since this class is common to all
+the interface objects (menus, buttons, label, \ldots), it permits to define
+their common behavior. The behavior of those objects is described using
+{\stklos} methods with one of their argument (generally the first) which is a
+{\tt <Tk-widget>}. The {\em pack\index{pack}} geometry manager cited below is
+one of such methods. The {\em packer} will be fully described below (see
+\pageref{packer-doc}); however, briefly stated, we can say that it permits to
+explain the geometry of a widget depending of its neighbors.  The example below
+shows how to use the pack primitive with arguments.
+\begin{quote}
+\begin{verbatim}
+(define lab1 (make <Label> :text "Label 1"))
+(define lab2 (make <Label> :text "Label 2"))
+
+(pack lab1 :side "bottom")
+(pack lab2 :side "top" :expand #t :fill "both")
+\end{verbatim}
+\end{quote}
+
+Here, two labels are defined {\tt lab1} and {\tt lab2}. The first call to
+pack says that {\tt lab1} should occupy the bottom of the window. Second
+call states that {\tt lab2} will occupy the top of the window. Furthermore,
+the  options {\tt :expand} and {\tt :fill} specified during {\tt lab2}
+packing tells to the packer that its geometry must be adjusted to fill all
+the space if its containing window is resized. If we do now 
+\begin{quote}
+\begin{verbatim}
+(define lab3 (make <Label> :text "Label 3"))
+(pack lab3 :after lab2)
+\end{verbatim}
+\end{quote}
+we will define a new label which will be inserted between the {\tt lab1} and
+{\tt lab2} labels.  Of course, the window containing the two labels  will
+be {\em automagically} resized to take into account the insertion of the third.
+
+Windows can also be unmapped from screen with the {\tt
+unpack\index{unpack}} method. This method tells {\em pack} to suspend
+geometry management of the specified window. Another call to a geometry
+manager should be used to map again the window on display.
+
+Suppose now that we want to delete the top most label of our previous
+window (i.e. {\tt lab2}). 
+This can be done with the {\tt <Tk-widget>} method {\tt destroy} as
+shown below: 
+\begin{quote}
+\begin{verbatim}
+(destroy lab2)
+\end{verbatim}
+\end{quote}
+\noindent
+Here, the window is unmapped from screen and definitively destroyed
+(i.e. it cannot be mapped on the screen anymore). Technically speaking, the
+widget will be destroyed and its class will be changed to the special class
+{\tt <Destroyed-object>}\index{<Destroyed-object>}.
+
+\paragraph{\bf Note:} Destroying the root window 
+({\tt *top-root*\index{*top-root*}}) will destroy the root window
+and, consequently, the interpreter since it as nothing more to manage.
+
+\subsection{The {\tt <Tk-simple-widget>} class}
+
+{\stklos} defines a class for each simple widgets (such as labels, buttons or
+messages) of the Tk library. The {\tt <Tk-simple-widget>} class defines slots
+and methods which are common to all those objects. The main slots defined for
+simple widgets are:
+\begin {ip}
+\ITEM{background}\label{background}
+which specifies
+the normal background color to use when displaying the widget.  The value of
+this slot should be a {\em string} or a {\em symbol}. It can be 
+\begin{itemize}
+\item a textual name
+for a color defined in the server's color database file (e.g. "Chocolate" or
+"Dark Olive Green").
+\item a numeric specification of the red, green, and blue intensities
+to use to display the color (such as {\tt \#aabbcc} or even {\tt rgb:aa/bb/cc})
+using the standard X11 notation.
+\end{itemize}
+
+\ITEM{border-width}\label{border-width}
+which specifies a non-negative value indicating the width of the 3-D border to
+draw around the outside of the widget (if such a border is being drawn; the
+{\em relief} option typically determines this).
+
+\ITEM{cursor}\label{cursor}
+which specifies the mouse
+cursor to be used for the widget. Valid values for this slot are given in
+Table~\ref{cursor-table}. Be aware that case is significant when naming a cursor.
+
+\ITEM{relief}\label{relief}
+which specifies the 3-D
+effect desired for the widget.  Acceptable values are {\tt :raised}, {\tt
+:sunken}, {\tt :flat}, {\tt :ridge} or {\tt :groove}.  The value indicates how
+the interior of the widget should appear relative to its exterior; for
+example, {\tt :raised} means the interior of the widget should appear to
+protrude from the screen, relative to the exterior of the widget.
+\end{ip}
+\begin{table}
+{\footnotesize
+\begin{center}
+\begin{tabular}{|l|l|l|l|} \hline
+X\_cursor               & fleur                 & sailboat      \\
+arrow                   & gobbler               & sb\_down\_arrow       \\
+based\_arrow\_down      & gumby                 & sb\_h\_double\_arrow  \\
+based\_arrow\_up                & hand1                 & sb\_left\_arrow       \\
+boat                    & hand2                 & sb\_right\_arrow      \\
+bogosity                & heart                 & sb\_up\_arrow \\
+bottom\_left\_corner    & icon                  & sb\_v\_double\_arrow  \\
+bottom\_right\_corner   & iron\_cross           & shuttle       \\
+bottom\_side            & left\_ptr             & sizing        \\
+bottom\_tee             & left\_side            & spider        \\
+box\_spiral             & left\_tee             & spraycan      \\
+center\_ptr             & leftbutton            & star  \\
+circle                  & ll\_angle             & target        \\
+clock                   & lr\_angle             & tcross        \\
+coffee\_mug             & man                   & top\_left\_arrow      \\
+cross                   & middlebutton          & top\_left\_corner     \\
+cross\_reverse          & mouse                 & top\_right\_corner    \\
+crosshair               & pencil                & top\_side     \\
+diamond\_cross          & pirate                & top\_tee      \\
+dot                     & plus                  & trek  \\
+dotbox                  & question\_arrow       & ul\_angle     \\
+double\_arrow           & right\_ptr            & umbrella      \\
+draft\_large            & right\_side           & ur\_angle     \\
+draft\_small            & right\_tee            & watch \\
+draped\_box             & rightbutton           & xterm \\
+exchange                & rtl\_logo             & {\ } \\ \hline 
+\end{tabular}
+\end{center}
+}
+\caption {Valid cursor values for slot {\tt cursor}}
+\label{cursor-table}
+\end{table}
+These slots are defined for all the basic widgets of the {\stklos}
+package. However, they are not defined as real {\stklos} slots (i.e. they are not
+implanted in the Scheme world). Instead, this kind of slot has its value which
+is stored inside the internal structures of the Tk library. Those slots are
+allocated with a special allocation scheme which is called {\tt
+:tk-virtual}. Tk virtual slots are managed by the {\tt
+<With-Tk-virtual-slots-metaclass>} meta-class.
+
+Consequently, reading or writing a {\em tk-virtual} slot will provoke a direct
+reading or writing of a field of the Tk-library C-structure associated to the
+object (this avoid to have to synchronize values in the Tk and Scheme
+world). For each {\em tk-virtual}, {\stklos} provides an accessor; the
+following example shows some simple usages of this kind of slots.
+
+\noindent
+{\em Example:}
+\begin{quote}
+\begin{verbatim}
+(define lab (make <Label> :text "Hello" :relief "raised" :background "grey"))
+(relief lab)
+        --> "raised"
+(set! (border-width lab) 4)
+(border-width lab)
+        --> 4
+\end{verbatim}
+\end{quote}
+\noindent
+The first expression creates a new instance of a label, as we have seen before. The
+second one queries the Tk server about the relief of the label {\tt lab}.
+Finally, the {\tt set!} expression permits to change the value of the
+width of {\tt lab}'s border.
+
+\subsection{The {\tt <Tk-canvas-item>} class}
+
+Instances of {\tt <Tk-canvas-item>} class, as said before, are objects such as
+rectangles, circles or bitmaps which are contained in a window. A window
+containing this kind of object is a special simple widget called a {\em
+canvas}. All the objects defined in a {\em canvas} can be manipulated
+(e.g. moved, re-colored or re-sized) and even Scheme command can be associated
+to them.  All the actions available for {\tt <Tk-canvas-item>}s 
+are deferred to a next chapter (\ref{Canvas-chapter}).
+
+\section{Functions of this chapter}
+This section presents in details the methods and functions seen in this
+chapter (or methods and functions related to things seen in this chapter).
+Functions are listed below in alphabetical order.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESTROY
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\label{packer-doc}
+\schemetitle{destroy}{method}
+
+\begin{schemedoc}{Syntax}
+\begin{verbatim}
+destroy         ((self <Tk-widget>))
+destroy         l
+\end{verbatim}
+\end{schemedoc}
+
+\begin{schemedoc}{Arguments (first form)}
+\begin{description}
+\item[self] the window to destroy.
+\end{description}
+\end{schemedoc}
+
+\begin{schemedoc}{Arguments (second form)}
+\begin{description}
+\item[l] a list of window to destroy (this form maps in facts the previous one to
+all its arguments to allow multiple destruction).
+\end{description}
+\end{schemedoc}
+
+\begin{schemedoc}{Description}
+{\tt Destroy} deletes the {\tt self} widget window and all of its descendants.
+If {\tt self} equals to {\tt *top-root*}, the interpreter terminates its execution.
+\end{schemedoc}
+
+\begin{schemedoc}{Result}
+The destroyed object (see note below)
+\end{schemedoc}
+
+\begin{schemedoc}{Example}
+\begin{verbatim}
+(define l1 (make <Label> :text "lab1"))
+...
+(define l5 (make <Label> :text "lab5"))
+(destroy l1)             ;; direct call of first form
+(destroy l2 l3 l4 l5)    ;; call of the second form
+\end{verbatim}
+\end{schemedoc}
+
+
+\begin{schemedoc}{Note}
+When a widget is destroyed, its class is changed to <Destroyed-object> as
+shown below:
+\begin{quote}
+\begin{verbatim}
+(define lab (make <Label> :text "A label"))
+(class-name (class-of lab))
+        --> <label>
+(destroy lab)
+(class-name (class-of lab))
+        --> <destroyed-object>
+\end{verbatim}
+\end{quote}
+
+\end{schemedoc}
+
+\begin{schemedoc}{See also}
+{\tt destroy} method for canvases, unpack
+\end{schemedoc}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% PACK
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\schemetitle{pack}{procedure}
+\label{pack-doc}
+\begin{schemedoc}{Syntax}
+\begin{verbatim}
+pack l 
+\end{verbatim}
+\end{schemedoc}
+
+\begin{schemedoc}{Arguments}
+{\tt pack} accepts a list of arguments whose behavior depends on the first
+element of this list.
+
+\paragraph{\tt (pack 'slave [slave ...] [option])}
+\begin{quote}
+If the first argument to {\tt pack} is a widget, then the command is
+processed in the same way as {\tt (pack 'configure ...)}.
+\end{quote}
+
+\paragraph{\tt (pack 'configure [slave ...] [option])}
+
+\begin{quote}
+The arguments consist of one or more slave windows followed by pairs of
+arguments that specify how to manage the slaves.  See ``THE PACKER
+ALGORITHM'' below for details on how the options are used by the packer.
+The following options are supported:
+\begin{quote}
+\par
+{\tt :after  other}\\
+{\tt :before other}
+        \begin{quote}
+                     {\tt Other} must the name of another window.   Use
+                     its master as the master for the slaves, and
+                     insert the slaves just after (or before)  {\tt other} 
+                     in  the packing order.
+        \end{quote}
+
+\par
+{\tt :anchor anchor}
+        \begin{quote}
+                     {\tt Anchor} must be a valid anchor position such as
+                     ``{\tt n}'' or ``{\tt sw}''; it specifies where to
+                     position each slave in its parcel.  Defaults to 
+                     ``{\tt center}''.
+        \end{quote}
+\par
+{\tt :expand boolean}
+        \begin{quote}
+                     Specifies   whether  the  slaves  should  be
+                     expanded to consume  extra  space  in  their
+                     master.  Defaults to {\tt \#f}.
+        \end{quote}
+\par
+{\tt :fill style}
+        \begin{quote}
+         If a  slave's  parcel  is  larger  than  its
+         requested  dimensions,  this  option  may be
+         used to stretch the slave.  {\tt Style} must  have
+         one of the following values:
+
+         \begin{description}
+          \item["none"]   Give  the slave its requested dimensions
+                  plus  any  internal   padding
+                 requested  with  {\tt :ipadx}  or  {\tt :ipady}.
+                 This is the default.
+
+          \item["x"]  Stretch the  slave  horizontally  to
+                 fill  the entire width of its parcel
+                 (except leave  external  padding  as
+                 specified by {\tt :padx}).
+
+          \item["y"]      Stretch the slave vertically to fill
+                 the  entire  height  of  its  parcel
+                 (except  leave  external  padding as
+                 specified by {\tt :pady}).
+
+          \item["both"]   Stretch the slave both  horizontally
+                 and vertically.
+         \end{description}
+         \end{quote}
+\par
+{\tt :in other} 
+        \begin{quote} 
+        Insert the slave(s) at the end of the packing
+        order for the master window given by other.  
+        \end{quote}
+
+\par
+{\tt :ipadx amount}\\
+{\tt :ipady amount}
+        \begin{quote}
+         {\tt Amount} specifies how much horizontal (or vertical) 
+         internal padding to leave on each side of the slave(s).  
+         {\tt Amount} must be a valid screen  distance, such as 2 or
+         ``.5c''. It defaults to 0.
+        \end{quote}
+
+\par
+{\tt :padx amount}\\
+{\tt :pady amount}  
+        \begin{quote}
+        {\tt Amount} specifies how much horizontal external
+        padding to leave on each side of the slave(s).  {\tt Amount}
+        defaults to 0.
+        \end{quote}
+
+\par
+{\tt :side side}
+        \begin{quote}
+        Specifies which side of the master the slave(s) will be packed against.
+        Must be ``{\tt left}'', ``{\tt right}'', ``{\tt top}'', or ``{\tt
+        bottom}''.  Defaults to ``{\tt top}''.
+        \end{quote}
+\end{quote}
+If no {\tt :in}, {\tt :after} or {\tt :before} option is specified then
+each of the slaves will be inserted at the end of the packing list for its
+parent unless it is already managed by the packer (in which case it will be
+left where it is).  If one of these options is specified then all the
+slaves will be inserted at the specified point.  If any of the slaves are
+already managed by the geometry manager then any unspecified options for
+them retain their previous values rather than receiving default values.
+\end{quote}
+
+\paragraph{\tt (pack 'newinfo slave)}
+\begin{quote}
+Returns a list whose elements are the current configuration state of the
+slave given by slave in the same option-value form that might be specified
+to {\tt pack 'configure}.  The first two elements of the list are ``{\tt
+-in master}'' where master is the slave's {\tt master}.  Starting with Tk
+4.0 this option will be renamed ``{\tt (pack 'info ...)}''.
+\end{quote}
+
+\paragraph{\tt (pack 'propagate master [boolean])}
+\begin{quote}
+If {\tt boolean} is {\tt \#t} then propagation is enabled for {\tt master},
+which must be a window name (see ``GEOMETRY PROPAGATION'' below).  If {\tt
+boolean} has a false boolean value then propagation is disabled for {\tt
+master}.  In either of these cases an empty string is returned.  If {\tt boolean}
+is omitted then the command returns 0 or 1 to indicate whether propagation
+is currently enabled for {\tt master}.  Propagation is enabled by default.
+\end{quote}
+
+\paragraph{\tt (pack 'slaves master)}
+\begin{quote}
+Returns a list of all of the slaves in the packing order for {\tt master}.
+The order of the slaves in the list is the same as their order in the
+packing order.  If {\tt master} has no slaves then an empty string is
+returned.
+\end{quote}
+\end{schemedoc}
+
+\begin{schemedoc}{Description}
+
+{\bf THE PACKER ALGORITHM} For each master the packer maintains an ordered
+list of slaves called the {\em packing list}.  The {\tt :in}, {\tt
+:after}, and {\tt :before} configuration options are used to specify the
+master for each slave and the slave's position in the packing list.  If
+none of these options is given for a slave then the slave is added to the
+end of the packing list for its parent.
+
+The packer arranges the slaves for a master by scanning the packing list in
+order.  At the time it processes each slave, a rectangular area within the
+master is still unallocated.  This area is called the {\em cavity}; for the
+first slave it is the entire area of the master.
+
+For each slave the packer carries out the following steps:
+
+\begin{enumerate}
+\item
+The packer allocates a rectangular {\em parcel} for the slave
+along the side of the cavity given by the slave's {\tt :side} option.
+If the side is top or bottom then the width of the parcel is
+the width of the cavity and its height is the requested height
+of the slave plus the {\tt :ipady} and {\tt :pady} options.
+For the left or right side the height of the parcel is
+the height of the cavity and the width is the requested width
+of the slave plus the {\tt :ipadx} and {\tt :padx} options.
+The parcel may be enlarged further because of the {\tt :expand}
+option (see ``EXPANSION'' below)
+
+\item
+The packer chooses the dimensions of the slave.
+The width will normally be the slave's requested width plus
+twice its {\tt :ipadx} option and the height will normally be
+the slave's requested height plus twice its {\tt :ipady}
+option.
+However, if the {\tt :fill} option is ``{\tt x}'' or ``{\tt both}''
+then the width of the slave is expanded to fill the width of the parcel,
+minus twice the {\tt :padx} option.
+If the {\tt :fill} option is ``{\tt y}'' or ``{\tt both}''
+then the height of the slave is expanded to fill the width of the parcel,
+minus twice the {\tt :pady} option.
+
+\item
+The packer positions the slave over its parcel.
+If the slave is smaller than the parcel then the {\tt :anchor}
+option determines where in the parcel the slave will be placed.
+If {\tt :padx} or {\tt :pady} is non-zero, then the given
+amount of external padding will always be left between the
+slave and the edges of the parcel.
+\end{enumerate}
+
+Once a given slave has been packed, the area of its parcel is subtracted
+from the cavity, leaving a smaller rectangular cavity for the next slave.
+If a slave doesn't use all of its parcel, the unused space in the parcel
+will not be used by subsequent slaves.  If the cavity should become too
+small to meet the needs of a slave then the slave will be given whatever
+space is left in the cavity.  If the cavity shrinks to zero size, then all
+remaining slaves on the packing list will be unmapped from the screen until
+the master window becomes large enough to hold them again.
+
+{\bf EXPANSION} If a master window is so large that there will be extra
+space left over after all of its slaves have been packed, then the extra
+space is distributed uniformly among all of the slaves for which the {\tt
+:expand} option is set.  Extra horizontal space is distributed among the
+expandable slaves whose {\tt :side} is ``{\tt left}'' or ``{\tt right}'',
+and extra vertical space is distributed among the expandable slaves whose
+{\tt :side} is ``{\tt top}'' or ``{\tt bottom}''.
+
+{\bf GEOMETRY PROPAGATION} The packer normally computes how large a master
+must be to just exactly meet the needs of its slaves, and it sets the
+requested width and height of the master to these dimensions.  This causes
+geometry information to propagate up through a window hierarchy to a
+top-level window so that the entire sub-tree sizes itself to fit the needs
+of the leaf windows.  However, the {\tt pack 'propagate} command may be used
+to turn off propagation for one or more masters.  If propagation is
+disabled then the packer will not set the requested width and height of the
+packer.  This may be useful if, for example, you wish for a master window
+to have a fixed size that you specify.
+
+{\bf RESTRICTIONS ON MASTER WINDOWS} The master for each slave must either
+be the slave's parent (the default) or a descendant of the slave's parent.
+This restriction is necessary to guarantee that the slave can be placed
+over any part of its master that is visible without danger of the slave
+being clipped by its parent.
+
+{\bf PACKING ORDER} If the master for a slave is not its parent then you
+must make sure that the slave is higher in the stacking order than the
+master.  Otherwise the master will obscure the slave and it will appear as
+if the slave hasn't been packed correctly.  The easiest way to make sure
+the slave is higher than the master is to create the master window first:
+the most recently created window will be highest in the stacking order.
+Or, you can use the {\tt raise} and {\tt lower} commands to change the
+stacking order of either the master or the slave.
+\end{schemedoc}
+
+\begin{schemedoc}{Result}
+None
+\end{schemedoc}
+
+\begin{schemedoc}{Example}
+\begin{verbatim}
+(define b1 (make <Button> :text "a button"))
+(define b2 (make <Button> :text "a button with a long text"))
+(define b3 (make <Button> :text "expanded button"))
+(define b4 (make <Button> :text "LARGE BUTTON")) 
+(pack b1 b2)
+(pack b3 :expand #t :fill "x")
+(pack b4 :expand #t :fill "both" :side "right" :before b1)
+\end{verbatim}
+These calls to {\tt pack} will produce the output shown in
+Figure~\ref{pack-options}.
+\end{schemedoc}
+\begin{figure}
+\centerline{\epsfig{file={Packing-demo.ps}}}
+\caption{Using the pack options}
+\label{pack-options}
+\end{figure}
+
+\begin{schemedoc}{See also}
+{\tt place}, {\tt unpack}
+\end{schemedoc}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% PLACE
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\schemetitle{place}{procedure}
+
+\begin{schemedoc}{Syntax}
+\begin{verbatim}
+place           l
+\end{verbatim}
+\end{schemedoc}
+
+SEE TK MAN PAGE :-<
+
+% \begin{schemedoc}{Arguments}
+% \begin{description}
+% \item[]
+% \end{description}
+% \end{schemedoc}
+% 
+% \begin{schemedoc}{Description}
+% 
+% \end{schemedoc}
+% 
+% \begin{schemedoc}{Result}
+% 
+% \end{schemedoc}
+% 
+% \begin{schemedoc}{Example}
+% 
+% \end{schemedoc}
+% 
+% \begin{schemedoc}{Note}
+% 
+% \end{schemedoc}
+% 
+% 
+% \begin{schemedoc}{See also}
+% 
+% \end{schemedoc}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% UNPACK
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\schemetitle{unpack}{procedure}
+
+\begin{schemedoc}{Syntax}
+\begin{verbatim}
+unpack  l
+\end{verbatim}
+\end{schemedoc}
+
+\begin{schemedoc}{Arguments}
+\begin{description}
+\item[l] a list of widgets to unmap.
+\end{description}
+\end{schemedoc}
+
+\begin{schemedoc}{Description}
+{\tt Unpack} is a simple way to unmap the widgets of the {\tt l} list. 
+This procedure calls in fact {\tt pack 'forget} procedure. After the execution
+of this procedure the {\em pack} geometry manager will no longer manage
+the geometry of given widgets.
+\end{schemedoc}
+
+\begin{schemedoc}{Result}
+Undefined
+\end{schemedoc}
+
+\begin{schemedoc}{Example}
+(define l1 (make <Label> :text "lab1"))
+...
+(define l5 (make <Label> :text "lab5"))
+(destroy l1)             ;; Object is unmapped AND destroyed
+(unpack l2 l3 l4 l5)      ;; Objects are ONLY unmapped
+(class-name (class-of l1))
+        --> <destroyed-object>
+(class-name (class-of l2))
+        --> <label>
+\end{schemedoc}
+
+%\begin{schemedoc}{Note}
+%
+%\end{schemedoc}
+
+\begin{schemedoc}{See also}
+{\tt place}, {\tt pack}, {\tt destroy}
+\end{schemedoc}
+% LocalWords:  sb bogosity ptr spraycan leftbutton ll lr tcross middlebutton ul
+% LocalWords:  crosshair dotbox ur rightbutton xterm rtl logo tk slave's ipadx
+% LocalWords:  ipady padx pady newinfo unmap
+
diff --git a/Doc/STklos+Tk/Chap2.tex b/Doc/STklos+Tk/Chap2.tex
new file mode 100644
index 0000000..e2d313f
--- /dev/null
+++ b/Doc/STklos+Tk/Chap2.tex
@@ -0,0 +1,654 @@
+%
+% Chapter Basic
+%
+%           Author: Erick Gallesio [eg@kaolin.unice.fr]
+%    Creation date:  6-Jan-1993 12:31
+% Last file update: 20-May-1995 13:13
+
+
+\chapter{Basic widgets}
+
+This chapter is devoted to the simplest widgets of the {\stklos} package.
+In fact, all the Tk widgets, except the {\em canvas} and {\em text} widgets,
+are presented here.
+
+\section{Introduction}
+
+\subsection{A simple interface}
+
+\subsubsection{Defining the widgets}
+Before detailing all the simple widgets of the Tk library, we will see how to
+build the simple interface which is shown in Figure~\ref{fig-simple-interface}. 
+\begin{figure}
+\centerline{\epsfig{file=Basic-Fig-1.ps}}
+\caption{A simple interface}
+\label{fig-simple-interface}
+\end{figure}
+This interface is composed of three main components: 
+\begin{enumerate}
+\item a label which is situated at top
+\item a frame which is itself constituted of two components: 
+\begin{enumerate}
+\item a listbox, and
+\item a scrollbar
+\end{enumerate}
+\item a ``quit'' button
+\end{enumerate}
+Let's have look now to  the objects we'll have to create for this interface.
+First we can create the top label and the quit button which are relatively
+simple. This can be done with the following definitions:
+\begin{quote}
+\begin{verbatim}
+(define lab  (make <Label>  :text "A simple interface"))
+(define quit (make <Button> :text "Quit" :command '(exit)))
+\end{verbatim}
+\end{quote}
+The {\tt :command} init-keyword permits to associate an action to the button
+(this action will be triggered when the mouse button 1 will be released over
+the {\tt quit} button.
+
+The interface shown in Figure~\ref{fig-simple-interface} can be seen as a vertical alignment of
+ three components (a label, a listbox with a scrollbar and a button). The
+second component is itself an alignment of two object (a scrollbar and a
+listbox). What is important to note here is that this alignment is an
+horizontal one situated inside a vertical one. In this case, we have to place
+the components of our horizontal alignment in a container which acts as a kind
+of back box for further layout. The widget which permit to ``embody'' several
+widgets is called a frame in the Tk toolkit. Consequently, the listbox and its
+scrollbar can be defined by:
+\begin{quote}
+\begin{verbatim}
+(define box  (make <Frame> :border-width 3 :relief "ridge"))
+(define l    (make <Listbox>   :parent box))
+(define s    (make <Scrollbar> :parent box :orientation "vertical"))
+\end{verbatim}
+\end{quote}
+What is important to note is that the listbox and the scrollbar both tell that
+their {\em parent} is the frame {\tt box}. This is this indication which
+effectively embody them in the frame.
+
+
+All the basic components of our interface have been created. What it
+rests to do consists to place the graphic components we have just defined
+onto screen. First we can map the listbox and its scrollbar in the {\tt
+box} object with the {\em packer}\index{packer} geometry manager (see
+page \pageref{pack-doc}):
+\begin{quote}
+\begin{verbatim}
+(pack l :expand #t :fill "both" :side "left")
+(pack s :expand #t :fill "y" :side "right")
+\end{verbatim}
+\end{quote}
+Both calls to {\tt pack} permit to define the arrangement of the listbox
+and the scrollbar into the frame. Here we claim that the scrollbar should
+stay on the right side of the frame and that it must expand itself only in
+the vertical direction if its containing frame (i.e. {\tt box}) is resized.
+Concerning the listbox, it will stay on rigth and it will fill all the
+space ({\tt :fill~"both"}) if {\tt box} size changes.
+
+Now we can {\em pack} the three components of this simple interface to show
+up them on screen; it can be easily done by:
+\begin{quote}
+\begin{verbatim}
+(pack lab box quit)
+\end{verbatim}
+\end{quote}
+The complete program for the building the previous interface is given in
+Figure~\ref{simple:the_code}.
+
+\begin{figure}
+{\footnotesize
+\begin{verbatim}
+;;; Defining the components
+(define lab  (make <Label>  :text "A simple interface"))
+(define quit (make <Button> :text "Quit" :command '(exit)))
+(define box  (make <Frame>  :border-width 3 :relief "ridge"))
+
+;;; Zoom in the box
+(define l    (make <Listbox>   :parent box))
+(define s    (make <Scrollbar> :parent box :orientation "vertical"))
+
+(pack l :expand #t :fill "both" :side "left")
+(pack s :expand #t :fill "y" :side "right")
+
+;;; Pack the components
+(pack lab box quit)
+\end{verbatim}
+}
+\caption{Complete code for the simple interface}
+\label{simple:the_code}
+\end{figure}
+
+\subsubsection{Filling the listbox}
+
+Filling the listbox can be done by calling the {\tt insert}
+\index{listbox insert} method. This method permits to add elements in the
+listbox. A way to fill the previous lisbox could be:
+\begin{quote}
+\begin{verbatim}
+(insert l 0 "a" "b" "c")
+\end{verbatim}
+\end{quote}
+This will insert 3 lines (containing {\tt "a"}, {\tt "b"} and {\tt "c"})
+after the element whose index is 0. Inserting a {\tt "d"} between {\tt "a"}
+and {\tt "b"} could be done by the following expression:
+\begin{quote}
+\begin{verbatim}
+(insert l 1 "d")
+\end{verbatim}
+\end{quote}
+
+Deleting elements of listbox necessitates a call to the {\tt delete}
+method. For instance,
+\begin{quote}
+\begin{verbatim}
+(delete l 1)
+\end{verbatim}
+\end{quote}
+deletes the second element of the listbox (first element is at index 0), and
+\begin{quote}
+\begin{verbatim}
+(delete l 0 2)
+\end{verbatim}
+\end{quote}
+permits to delete the three remaining elements. 
+
+{\tt Insert} and {\tt delete} are simple methods built upon Tk commands to
+accesss listbox. Most of the time, this way of accessing a listbox is not
+too convenient, and it is more easy to see the content of a listbox as its
+value. Consequently, the {\tt stklos} {\tt <Listbox>} class defines a
+virtual slot\cite{virtual slot} called {\tt value}\index{value} which
+permits to read/fill the contents of a listbox as a {\stklos} slot.
+For instance, the previous listbox can be filled with:
+\begin{quote}
+\begin{verbatim}
+(set! (value l) '("a" "b" "c"))  ;; or (slot-set! l 'value '(...))
+\end{verbatim}
+\end{quote}
+and the value of the second element of the listbox can be obtained by
+\begin{quote}
+\begin{verbatim}
+(list-ref (value l) 1)
+\end{verbatim}
+\end{quote}
+
+Of course, the value slot has an initialization keword associated to it,
+and the filling of the listbox could have been done during the definition
+of the listbox:
+\begin{quote}
+\begin{verbatim}
+(define l (make <Listbox> :parent box 
+                          :value  '("a" "b" "c")))
+\end{verbatim}
+\end{quote}
+
+\subsubsection{Bringing the scrollbar to life}
+
+For now, the lisbox and the scrollbar are disconnected (i.e. moving the
+listbox, with {\tt <Shift-Button2>} doesn't move the scrollbar and clicking
+the scrollbar does nothing). To make both widgets working accordingly, we have
+to associate a command to each widget. First, we can associate a command to
+the scrollbar, such as moving it with mouse button will move the listbox. This
+can be done with:
+\begin{quote}
+\begin{verbatim}
+(set! (command s) (format #f "y-view ~S " (address-of l)))
+\end{verbatim}
+\end{quote}
+which associates the prefix of a Scheme command to invoke to change the view
+in the listbox when the user manipulates the scrollbar. This command is
+partial and will be completed effectively when the user will click the
+scrollbar (see the <Scrollbar> class description on
+page~\pageref{Scrollbar-class} for more details).
+
+This is at  half way of what we have to do for cleanly associate the scrollbar
+and the listbox. On the listbox side, we have to associate a command for its 
+vertical movement:
+\begin{quote}
+\begin{verbatim}
+(set! (y-scroll-command l) 
+      (format #f "scrollbar-set! ~S " (address-of s)))
+\end{verbatim}
+\end{quote}
+Here again, the command associated to the listbox is a partial since it will
+be completed by Tk when needed.
+
+As we will see in a next chapter, {\em composite widgets} will permit
+to hide all this stuff, and we will be able to define a new class
+which will embody a listbox and one (or two) scrollbar.
+
+\subsection{Defining Menus}
+
+\subsubsection{Menu-buttons and Menus}
+Tk provides two widgets for building a menu: {\em menubuttons} and
+{\em menus}. Those widgets are available through the {\tt
+<Menu-button>} and {\tt <Menu>} classes. Instances of {\tt
+<Menu-button>} class display a textual string (or a bitmap) and are
+associated with an instance of the {\tt <Menu>} class.
+
+\subsubsection{Creating a simple menu bar}
+
+The most current task with menus concerns menu bars
+building. {\stklos} provides the convenience function \Indextt{make-menubar}
+to ease to the construction of menu bars. To illustrate how this
+function work, we'll present the call we must write to produce the
+menu bar of Figure~\ref{Menus}.
+\begin{figure}
+\centerline{\epsfig{file=Fig2-2.eps}}
+\caption{A simple menu}
+\label{Menus}
+\end{figure}
+{\tt Make-menubar} is a function which takes a list of menu buttons
+specifications. Each menu button specification is also a list.  First item
+of this list is the specification of the menu button; the rest of this list
+correspond to the specifaction of the menu items associated to this menu
+button. To represent the menu bar of Figure\ref{Menus}, we have a
+specification whih looks like:
+\begin{quote}
+\begin{alltt}
+	((Description of {\it Work days} menu button
+	     (Fisrt item of {\it Work days})
+	     (Second item of {\it Work days}))
+	 (Description of {\it Week end} menu button
+	     (Fisrt item of {\it Week-end})
+	     (Second item of {\it Week-end}))
+	)
+\end{alltt}
+\end{quote}
+The complete code for this menu bar is given in Figure\ref{Menus:code}.
+Struture of menu buttons and menu items specifications is defined in
+\ref{make-menubar}.
+\begin{figure}
+{\small
+\begin{verbatim}
+(define l `(("Work days" 
+                 ("Monday"    ,(lambda () (format #t "Monday\n")))
+                 ("Tuesday"   ,(lambda () (format #t "Tuesday\n")))
+                 ("")
+                 ("Wednesday"
+                     ((command :bitmap error :state disabled)
+                      ("Yes" ,(lambda () (format #t "Wednesday (Yes)\n")))
+                      ("No"  ,(lambda () (format #t "Wednesday (No) \n")))))
+                 ("")
+                 ("Thursday"  ,(lambda () (format #t "Thursday\n")))
+                 ("Friday"    ,(lambda () (format #t "Friday\n"))))
+           ("Week-end"
+                 ("Saturday"  ,(lambda () (format #t "Saturday\n")))
+                 ("Sunday"    ,(lambda () (format #t "Sunday\n"))))))
+
+(pack (make-menubar *top-root* l))
+\end{verbatim}
+}
+\caption{Code of menu of Figure\ref{Menus}}
+\label{Menus:code}
+\end{figure}
+
+
+
+
+\section{Simple widgets classes}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% FRAME
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\subsection{The {\tt Frame} class}
+
+A frame is a {\stklos} simple widget whose primary purpose is to act as a
+spacer or container for complex window layouts. A frame object has several
+Tk-virtual slots which are listed here:
+
+\begin{ip}
+
+\ITEM{background}
+See section \ref{background}.
+
+\ITEM{border-width}
+See section \ref{border-width}.
+
+\ITEM{cursor}
+See section \ref{cursor}.
+
+\ITEM{height}\label{height}
+specifies the desired height for the window. This slot is only
+used if the {\em geometry} slots is unspecified. If this pseudo-slot is less than 
+or equal to zero (and {\em geometry} is not specified) then the window will 
+not request any size at all.
+
+\ITEM{geometry}\label{geometry}
+specifies the desired geometry for the widget's window, in the
+form {\em width}x{\em height}, where {\em width} is the desired
+width of the window and {\em height} is the desired height.  The
+units for {\em width} and {\em height} depend on the particular
+widget.  For widgets displaying text the units are usually the
+size of the characters in the font being displayed;  for other
+widgets the units are usually pixels.
+
+\ITEM{relief}
+See section \ref{relief}.
+
+\ITEM{width}
+specifies the desired width for the window. This slot is only
+used if the {\em geometry} slots is unspecified. If this pseudo-slot is less than 
+or equal to zero (and {\em  geometry} is not specified) then the window will 
+not request any size at all.
+\end{ip}
+
+\noindent
+Furthermore, the {\em Frame} class admits a special initarg {\tt :class} which
+permits to specify the new widget X11 resource class (if the {\tt :class} is
+not passed as a parameter during the {\tt make-instance} of the frame, the
+widget resource class will be "Frame"). The resource class of a widget can be
+specified only at initialization. It can be queried by the {\tt class} reader
+but cannot be changed.
+
+Further example use a frame to group three labels in a single object. Here,
+the two 
+\begin{verbatim}
+(setq f (make-instance 'Frame))
+(setq l1 (make-instance 'Label :parent f :text " Label 1 " :relief :raised 
+                               :map '(:position :left)))
+(setq l2 (make-instance 'Label :parent f :text " Label 2 " :relief :raised 
+                               :map '(:position :left)))
+(setq l3 (make-instance 'Label :text " Label 3 " :relief :raised))
+\end{verbatim}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% LABEL
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\subsection{The label class}
+
+The {\em Label} class defines widgets which are capable to display a textual
+string or a bitmap. A label object has several pseudo-slots which are listed here:
+\begin{ip}
+
+\ITEM{anchor}\label{anchor}
+specifies how the information in a widget (e.g. text or a bitmap) is to be
+displayed in the widget. Must be one of the values {\em :n}, {\em :ne}, {\em
+:e}, {\em :se}, {\em :s}, {\em :sw}, {\em :w}, {\em :nw}, or {\em `:center}.  For
+example, {\em :nw} means display the information such that its top-left corner
+is at the top-left corner of the widget.
+
+\ITEM{background}
+See section \ref{background}.
+
+\ITEM{bitmap}\label{bitmap}
+specifies a string containing the file name of the bitmap to display in the
+widget. The exact way in which the bitmap is displayed may be affected by
+other slots values such as {\em anchor} or {\em justify}.  Typically, if this
+slot is non {\tt nil} is specified then it overrides other pseudo-slots that
+specify a textual value to display in the widget; the {\em bitmap} slot may be
+reset to an empty string to re-enable a text display.
+
+\ITEM{border-width}
+See section \ref{border-width}.
+
+\ITEM{cursor}
+See section \ref{cursor}.
+
+\ITEM{font}\label{font}
+specifies the font to use when drawing text inside the widget.
+
+\ITEM{foreground}\label{foreground}
+specifies the normal foreground color to use when displaying the widget.
+
+\ITEM{height}
+specifies a desired height for the label.  If a bitmap is being displayed in
+the label then the value is in screen units; for text it is in lines of text.
+If this pseudo-slot isn't specified, the label's desired height is computed from
+the size of the bitmap or text being displayed in it.
+
+\ITEM{pad-x}\label{pad-x}
+specifies a non-negative value indicating how much extra space to request for
+the widget in the X-direction. When computing how large a window it needs, the
+widget will add this amount to the width it would normally need (as determined
+by the width of the things displayed in the widget); if the geometry manager
+can satisfy this request, the widget will end up with extra internal space to
+the left and/or right of what it displays inside.
+
+\ITEM{pad-y}\label{pad-y}
+specifies a non-negative value indicating how much extra space to request for
+the widget in the Y-direction. When computing how large a window it needs,
+the widget will add this amount to the height it would normally need (as
+determined by the height of the things displayed in the widget); if the
+geometry manager can satisfy this request, the widget will end up with extra
+internal space above and/or below what it displays inside.
+
+\ITEM{relief}
+See section \ref{relief}.
+
+\ITEM{text}\label{text}
+specifies a string to be displayed inside the widget.  The way in which
+the string is displayed depends on the particular widget and may be
+determined by other pseudo-slots, such as {\em anchor} or {\em justify}.
+
+\ITEM{text-variable}\label{text-variable}
+specifies the name of a variable. The value of the variable is a text
+string to be displayed inside the widget; if the variable value changes
+then the widget will automatically update itself to reflect the new value.
+The way in which the string is displayed in the widget depends on the
+particular widget and may be determined by other pseudo-slots, such as
+{\em anchor} or {\em justify}. See below how to use this mechanism.
+
+\ITEM{width}
+Specifies a desired width for the label. If a bitmap is being displayed in
+the label then the value is in screen units; for text it is in characters.  If
+this pseudo-slot isn't specified, the label's desired width is computed from the
+size of the bitmap or text being displayed in it.
+
+\end{ip}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% MESSAGE
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{The Message class}
+The {\em Message} class defines widgets that display a textual string.  A {\em
+message}widget has three special features. First, it breaks up its string into
+lines in order to produce a given aspect ratio for the window.  The line
+breaks are chosen at word boundaries wherever possible (if not even a single
+word would fit on a line, then the word will be split across lines).  Newline
+characters in the string will force line breaks; they can be used, for
+example, to leave blank lines in the display.
+
+The second feature of a message widget is justification.  The text may be
+displayed left-justified, centered on a line-by-line basis, or right-justified.
+
+The third feature of a message widget is that it handles control characters
+and non-printing characters specially.  Tab characters are replaced with
+enough blank space to line up on the next 8-character boundary.  Newlines
+cause line breaks.  Other control characters (ASCII code less than hexadecimal
+code 20) and characters not defined in the font are displayed as a
+four-character sequence \\x{\it hh} where {\it hh} is the two-digit
+hexadecimal number corresponding to the character.
+
+\noindent
+A message object has several pseudo-slots which are listed here:
+\begin{ip}
+
+\ITEM{anchor}
+(see section \ref{anchor})
+
+\ITEM{aspect}\label{aspect}
+specifies a non-negative integer value indicating desired aspect ratio for the
+text. The aspect ratio is specified as 100*width/height. 100 means the text
+should be as wide as it is tall, 200 means the text should be twice as wide as
+it is tall, 50 means the text should be twice as tall as it is wide, and so
+on. Used to choose line length for text if {\em width} pseudo-slot isn't
+specified.
+
+\ITEM{background}
+(see section \ref{background})
+
+\ITEM{border-width}
+(see section \ref{border-width})
+
+\ITEM{cursor}
+(see section \ref{cursor})
+
+\ITEM{font}
+(see section \ref{font})
+
+\ITEM{justify}\label{justify}
+specifies how to justify lines of text. Must be one of {\em :left}, {\em
+:center}, or {\em :right}. Defaults to {\em left}. This pseudo-slot works
+together with the {\em anchor}, {\em aspect}, {\em padX}, {\em padY}, and {\em
+width} pseudo-slots to provide a variety of arrangements of the text within
+the window.  The {\em aspect} and {\em width} pseudo-slots determine the
+amount of screen space needed to display the text.  The {\em anchor}, {\em
+padX}, and {\em padY} pseudo-slots determine where this rectangular area is
+displayed within the widget's window, and the {\em justify} pseudo-slot determines
+how each line is displayed within that rectangular region.  For example,
+suppose {\em anchor} is {\em :e} and {\em justify} is {\em :left}, and that the
+message window is much larger than needed for the text. The text will
+displayed so that the left edges of all the lines line up and the right edge
+of the longest line is {\em pad-x} from the right side of the window; the
+entire text block will be centered in the vertical span of the window.
+\ITEM{pad-x}
+(see section \ref{pad-x})
+
+\ITEM{pad-y}
+(see section \ref{pad-y})
+
+\ITEM{relief}
+(see section \ref{relief})
+
+\ITEM{text}
+(see section \ref{text})
+
+\ITEM{text-variable}
+(see section \ref{text-variable})
+
+\ITEM{width}\label{width}
+specifies the length of lines in the window. If this pseudo-slot has a value
+greater than zero then the {\em aspect} pseudo-slot is ignored and the {\em
+width} pseudo-slot determines the line length.  If this pseudo-slot has a
+value less than or equal to zero, then the {\em aspect} pseudo-slot determines
+the line length.
+
+\end {ip}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% BUTTON
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\section{The Button class}
+
+The {\em Button} class defines widgets that display a ``reactive'' textual
+string or bitmap. It can display itself in either of three different ways,
+according to the {\em state} pseudo-slot; it can be made to appear raised,
+sunken, or flat; and it can be made to flash.  When a user invokes the button
+(defaultly, by pressing mouse button 1 with the cursor over the button), then
+the command specified in the {\em command} pseudo-slot is invoked. Several
+methods are also defined for buttons. They are presented at end of chapter.
+
+A button object has several pseudo-slots which are listed here:
+
+\begin{ip}
+
+\ITEM{active-background}\label{active-background}
+specifies background color to use when drawing active elements.
+An element (a widget or portion of a widget) is active if the
+mouse cursor is positioned over the element and pressing a mouse button
+will cause some action to occur.
+
+\ITEM{active-foreground}\label{active-foreground}
+specifies foreground color to use when drawing active elements.
+See above for definition of active elements.
+
+\ITEM{anchor}
+(see section \ref{anchor})
+
+\ITEM{background}
+(see section \ref{background})
+
+\ITEM{bitmap}
+(see section \ref{bitmap})
+
+\ITEM{border-width}
+(see section \ref{border-width})
+
+\ITEM{command}\label{command}
+specifies a command to associate with the button. This command is typically
+invoked when mouse button 1 is released over the button window.
+
+\ITEM{cursor}
+(see section \ref{cursor})
+
+\ITEM{disabled-foreground}\label{disabled-foreground}
+specifies foreground color to use when drawing a disabled element. If the
+pseudo-slot is specified as an empty string (which is typically the case on
+monochrome displays), disabled elements are drawn with the normal foreground
+color but they are dimmed by drawing them with a stippled fill pattern.
+
+\ITEM{font}
+(see section \ref{font})
+
+\ITEM{foreground}
+(see section \ref{foreground})
+
+\ITEM{height}
+specifies a desired height for the button. If a bitmap is being displayed in
+the button then the value is in screen units; for text it is in lines of text.
+If this pseudo-slot isn't specified, the button's desired height is computed from
+the size of the bitmap or text being displayed in it.
+
+\ITEM{pad-x}
+(see section \ref{pad-x})
+
+\ITEM{pad-y}
+(see section \ref{pad-y})
+
+\ITEM{relief}
+(see section \ref{relief})
+
+\ITEM{state}
+specifies one of three states for the button:  {\em :normal}, {\em :active},
+or {\em `:disabled}.  In normal state the button is displayed using the
+{\em foreground} and {\em background} pseudo-slots.  The active state is
+typically used when the pointer is over the button.  In active state
+the button is displayed using the {\em activeForeground} and
+{\em activeBackground} pseudo-slots.  Disabled state means that the button
+is insensitive:  it doesn't activate and doesn't respond to mouse
+button presses.  In this state the {\em disabledForeground} and
+{\em background} pseudo-slots determine how the button is displayed.
+
+\ITEM{text}
+(see section \ref{text})
+
+\ITEM{text-variable}
+(see section \ref{text-variable})
+
+\ITEM{width}
+Specifies a desired width for the button.  If a bitmap is being displayed in
+the button then the value is in screen units;for text it is in characters.  If
+this option isn't specified, the button's desired width is computed from the
+size of the bitmap or text being displayed in it.
+
+\end {ip}
+\noindent
+{\em Example}
+The following example show a simple use of buttons. 
+{\tt 
+\begin{quote}
+\begin{verbatim}
+(setq b1 (make-instance 'Button :text "Yes" 
+                                :command '(format t "You said Yes")))
+(setq b2 (make-instance 'Button :text "No"
+                                :command '(format t "You said No")))
+(event-loop)
+\end{verbatim}
+\end{quote}}
+
+%anchor
+%background
+%bitmap
+%borderwidth
+%cursor
+%font
+%foreground
+%pad-x
+%pad-y
+%relief
+%text
+%text-variable
+
+\section {Functions of this chapter}
+
diff --git a/Doc/STklos+Tk/Fig1-1.eps b/Doc/STklos+Tk/Fig1-1.eps
new file mode 120000
index 0000000..03c2121
--- /dev/null
+++ b/Doc/STklos+Tk/Fig1-1.eps
@@ -0,0 +1 @@
+Fig1-1.idraw
\ No newline at end of file
diff --git a/Doc/STklos+Tk/Fig1-1.idraw b/Doc/STklos+Tk/Fig1-1.idraw
new file mode 100644
index 0000000..1e03432
--- /dev/null
+++ b/Doc/STklos+Tk/Fig1-1.idraw
@@ -0,0 +1,695 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%DocumentFonts: Courier-Bold
+%%Pages: 1
+%%BoundingBox: 157 611 457 761
+%%EndComments
+
+/IdrawDict 51 dict def
+IdrawDict begin
+
+/reencodeISO {
+dup dup findfont dup length dict begin
+{ 1 index /FID ne { def }{ pop pop } ifelse } forall
+/Encoding ISOLatin1Encoding def
+currentdict end definefont
+} def
+
+/ISOLatin1Encoding [
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
+/parenleft/parenright/asterisk/plus/comma/minus/period/slash
+/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
+/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
+/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
+/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
+/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
+/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
+/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
+/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
+/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
+/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
+/guillemotright/onequarter/onehalf/threequarters/questiondown
+/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
+/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
+/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
+/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
+/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
+/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
+/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
+/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
+/yacute/thorn/ydieresis
+] def
+/Courier-Bold reencodeISO def
+
+/arrowHeight 8 def
+/arrowWidth 4 def
+/none null def
+/numGraphicParameters 17 def
+/stringLimit 65535 def
+
+/Begin {
+save
+numGraphicParameters dict begin
+} def
+
+/End {
+end
+restore
+} def
+
+/SetB {
+dup type /nulltype eq {
+pop
+false /brushRightArrow idef
+false /brushLeftArrow idef
+true /brushNone idef
+} {
+/brushDashOffset idef
+/brushDashArray idef
+0 ne /brushRightArrow idef
+0 ne /brushLeftArrow idef
+/brushWidth idef
+false /brushNone idef
+} ifelse
+} def
+
+/SetCFg {
+/fgblue idef
+/fggreen idef
+/fgred idef
+} def
+
+/SetCBg {
+/bgblue idef
+/bggreen idef
+/bgred idef
+} def
+
+/SetF {
+/printSize idef
+/printFont idef
+} def
+
+/SetP {
+dup type /nulltype eq {
+pop true /patternNone idef
+} {
+dup -1 eq {
+/patternGrayLevel idef
+/patternString idef
+} {
+/patternGrayLevel idef
+} ifelse
+false /patternNone idef
+} ifelse
+} def
+
+/BSpl {
+0 begin
+storexyn
+newpath
+n 1 gt {
+0 0 0 0 0 0 1 1 true subspline
+n 2 gt {
+0 0 0 0 1 1 2 2 false subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
+} if
+n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Circ {
+newpath
+0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/CBSpl {
+0 begin
+dup 2 gt {
+storexyn
+newpath
+n 1 sub dup 0 0 1 1 2 2 true subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
+n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
+patternNone not { ifill } if
+brushNone not { istroke } if
+} {
+Poly
+} ifelse
+end
+} dup 0 4 dict put def
+
+/Elli {
+0 begin
+newpath
+4 2 roll
+translate
+scale
+0 0 1 0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 1 dict put def
+
+/Line {
+0 begin
+2 storexyn
+newpath
+x 0 get y 0 get moveto
+x 1 get y 1 get lineto
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+0 0 1 1 rightarrow
+end
+} dup 0 4 dict put def
+
+/MLine {
+0 begin
+storexyn
+newpath
+n 1 gt {
+x 0 get y 0 get moveto
+1 1 n 1 sub {
+/i exch def
+x i get y i get lineto
+} for
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Poly {
+3 1 roll
+newpath
+moveto
+-1 add
+{ lineto } repeat
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/Rect {
+0 begin
+/t exch def
+/r exch def
+/b exch def
+/l exch def
+newpath
+l b moveto
+l t lineto
+r t lineto
+r b lineto
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 4 dict put def
+
+/Text {
+ishow
+} def
+
+/idef {
+dup where { pop pop pop } { exch def } ifelse
+} def
+
+/ifill {
+0 begin
+gsave
+patternGrayLevel -1 ne {
+fgred bgred fgred sub patternGrayLevel mul add
+fggreen bggreen fggreen sub patternGrayLevel mul add
+fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
+eofill
+} {
+eoclip
+originalCTM setmatrix
+pathbbox /t exch def /r exch def /b exch def /l exch def
+/w r l sub ceiling cvi def
+/h t b sub ceiling cvi def
+/imageByteWidth w 8 div ceiling cvi def
+/imageHeight h def
+bgred bggreen bgblue setrgbcolor
+eofill
+fgred fggreen fgblue setrgbcolor
+w 0 gt h 0 gt and {
+l b translate w h scale
+w h true [w 0 0 h neg 0 h] { patternproc } imagemask
+} if
+} ifelse
+grestore
+end
+} dup 0 8 dict put def
+
+/istroke {
+gsave
+brushDashOffset -1 eq {
+[] 0 setdash
+1 setgray
+} {
+brushDashArray brushDashOffset setdash
+fgred fggreen fgblue setrgbcolor
+} ifelse
+brushWidth setlinewidth
+originalCTM setmatrix
+stroke
+grestore
+} def
+
+/ishow {
+0 begin
+gsave
+fgred fggreen fgblue setrgbcolor
+printFont printSize scalefont setfont
+/descender 0 printFont /FontBBox get 1 get printFont /FontMatrix
+get transform exch pop def
+/vertoffset 1 printSize sub descender sub def {
+0 vertoffset moveto show
+/vertoffset vertoffset printSize sub def
+} forall
+grestore
+end
+} dup 0 2 dict put def
+
+/patternproc {
+0 begin
+/patternByteLength patternString length def
+/patternHeight patternByteLength 8 mul sqrt cvi def
+/patternWidth patternHeight def
+/patternByteWidth patternWidth 8 idiv def
+/imageByteMaxLength imageByteWidth imageHeight mul
+stringLimit patternByteWidth sub min def
+/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
+patternHeight mul patternHeight max def
+/imageHeight imageHeight imageMaxHeight sub store
+/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
+0 1 imageMaxHeight 1 sub {
+/y exch def
+/patternRow y patternByteWidth mul patternByteLength mod def
+/patternRowString patternString patternRow patternByteWidth getinterval def
+/imageRow y imageByteWidth mul def
+0 patternByteWidth imageByteWidth 1 sub {
+/x exch def
+imageString imageRow x add patternRowString putinterval
+} for
+} for
+imageString
+end
+} dup 0 12 dict put def
+
+/min {
+dup 3 2 roll dup 4 3 roll lt { exch } if pop
+} def
+
+/max {
+dup 3 2 roll dup 4 3 roll gt { exch } if pop
+} def
+
+/arrowhead {
+0 begin
+transform originalCTM itransform
+/taily exch def
+/tailx exch def
+transform originalCTM itransform
+/tipy exch def
+/tipx exch def
+/dy tipy taily sub def
+/dx tipx tailx sub def
+/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
+gsave
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+patternNone not {
+originalCTM setmatrix
+/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
+arrowWidth div def
+/padtail brushWidth 2 div def
+tipx tipy translate
+angle rotate
+padtip 0 translate
+arrowHeight padtip add padtail add arrowHeight div dup scale
+arrowheadpath
+ifill
+} if
+brushNone not {
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+arrowheadpath
+istroke
+} if
+grestore
+end
+} dup 0 9 dict put def
+
+/arrowheadpath {
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+} def
+
+/leftarrow {
+0 begin
+y exch get /taily exch def
+x exch get /tailx exch def
+y exch get /tipy exch def
+x exch get /tipx exch def
+brushLeftArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/rightarrow {
+0 begin
+y exch get /tipy exch def
+x exch get /tipx exch def
+y exch get /taily exch def
+x exch get /tailx exch def
+brushRightArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/midpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 x1 add 2 div
+y0 y1 add 2 div
+end
+} dup 0 4 dict put def
+
+/thirdpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 2 mul x1 add 3 div
+y0 2 mul y1 add 3 div
+end
+} dup 0 4 dict put def
+
+/subspline {
+0 begin
+/movetoNeeded exch def
+y exch get /y3 exch def
+x exch get /x3 exch def
+y exch get /y2 exch def
+x exch get /x2 exch def
+y exch get /y1 exch def
+x exch get /x1 exch def
+y exch get /y0 exch def
+x exch get /x0 exch def
+x1 y1 x2 y2 thirdpoint
+/p1y exch def
+/p1x exch def
+x2 y2 x1 y1 thirdpoint
+/p2y exch def
+/p2x exch def
+x1 y1 x0 y0 thirdpoint
+p1x p1y midpoint
+/p0y exch def
+/p0x exch def
+x2 y2 x3 y3 thirdpoint
+p2x p2y midpoint
+/p3y exch def
+/p3x exch def
+movetoNeeded { p0x p0y moveto } if
+p1x p1y p2x p2y p3x p3y curveto
+end
+} dup 0 17 dict put def
+
+/storexyn {
+/n exch def
+/y n array def
+/x n array def
+n 1 sub -1 0 {
+/i exch def
+y i 3 2 roll put
+x i 3 2 roll put
+} for
+} def
+
+%%EndProlog
+
+%I Idraw 9 Grid 8 
+
+%%Page: 1 1
+
+Begin
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ .8 0 0 .8 0 0 ] concat
+/originalCTM matrix currentmatrix def
+
+Begin %I Pict
+%I b u
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 34 190.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg Black
+0 0 0 SetCBg
+none SetP %I p n
+%I t
+[ 1 0 0 1 145 197.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 319 747 ] concat
+%I
+[
+(Tk-object)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 4 .5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg LtGray
+.762951 .762951 .762951 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 55 307.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 229 857 ] concat
+%I
+[
+(Tk-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -120.5 100.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 179.5 137.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 329 687 ] concat
+%I
+[
+(Tk-simple-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+254 530 136 480 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+134 449 134 410 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -4.5 55.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg LtGray
+.762951 .762951 .762951 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 302.5 252.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 459 802 ] concat
+%I
+[
+(Tk-canvas-item)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+255 528 385 480 Line
+End
+
+End %I eop
+
+showpage
+
+%%Trailer
+
+end
diff --git a/Doc/STklos+Tk/Fig1-2.idraw b/Doc/STklos+Tk/Fig1-2.idraw
new file mode 100644
index 0000000..6b854f3
--- /dev/null
+++ b/Doc/STklos+Tk/Fig1-2.idraw
@@ -0,0 +1,1255 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%DocumentFonts: Times-Italic
+%%Pages: 1
+%%BoundingBox: 30 369 553 760
+%%EndComments
+
+/IdrawDict 51 dict def
+IdrawDict begin
+
+/reencodeISO {
+dup dup findfont dup length dict begin
+{ 1 index /FID ne { def }{ pop pop } ifelse } forall
+/Encoding ISOLatin1Encoding def
+currentdict end definefont
+} def
+
+/ISOLatin1Encoding [
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
+/parenleft/parenright/asterisk/plus/comma/minus/period/slash
+/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
+/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
+/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
+/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
+/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
+/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
+/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
+/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
+/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
+/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
+/guillemotright/onequarter/onehalf/threequarters/questiondown
+/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
+/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
+/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
+/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
+/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
+/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
+/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
+/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
+/yacute/thorn/ydieresis
+] def
+/Times-Italic reencodeISO def
+
+/arrowHeight 8 def
+/arrowWidth 4 def
+/none null def
+/numGraphicParameters 17 def
+/stringLimit 65535 def
+
+/Begin {
+save
+numGraphicParameters dict begin
+} def
+
+/End {
+end
+restore
+} def
+
+/SetB {
+dup type /nulltype eq {
+pop
+false /brushRightArrow idef
+false /brushLeftArrow idef
+true /brushNone idef
+} {
+/brushDashOffset idef
+/brushDashArray idef
+0 ne /brushRightArrow idef
+0 ne /brushLeftArrow idef
+/brushWidth idef
+false /brushNone idef
+} ifelse
+} def
+
+/SetCFg {
+/fgblue idef
+/fggreen idef
+/fgred idef
+} def
+
+/SetCBg {
+/bgblue idef
+/bggreen idef
+/bgred idef
+} def
+
+/SetF {
+/printSize idef
+/printFont idef
+} def
+
+/SetP {
+dup type /nulltype eq {
+pop true /patternNone idef
+} {
+dup -1 eq {
+/patternGrayLevel idef
+/patternString idef
+} {
+/patternGrayLevel idef
+} ifelse
+false /patternNone idef
+} ifelse
+} def
+
+/BSpl {
+0 begin
+storexyn
+newpath
+n 1 gt {
+0 0 0 0 0 0 1 1 true subspline
+n 2 gt {
+0 0 0 0 1 1 2 2 false subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
+} if
+n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Circ {
+newpath
+0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/CBSpl {
+0 begin
+dup 2 gt {
+storexyn
+newpath
+n 1 sub dup 0 0 1 1 2 2 true subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
+n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
+patternNone not { ifill } if
+brushNone not { istroke } if
+} {
+Poly
+} ifelse
+end
+} dup 0 4 dict put def
+
+/Elli {
+0 begin
+newpath
+4 2 roll
+translate
+scale
+0 0 1 0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 1 dict put def
+
+/Line {
+0 begin
+2 storexyn
+newpath
+x 0 get y 0 get moveto
+x 1 get y 1 get lineto
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+0 0 1 1 rightarrow
+end
+} dup 0 4 dict put def
+
+/MLine {
+0 begin
+storexyn
+newpath
+n 1 gt {
+x 0 get y 0 get moveto
+1 1 n 1 sub {
+/i exch def
+x i get y i get lineto
+} for
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Poly {
+3 1 roll
+newpath
+moveto
+-1 add
+{ lineto } repeat
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/Rect {
+0 begin
+/t exch def
+/r exch def
+/b exch def
+/l exch def
+newpath
+l b moveto
+l t lineto
+r t lineto
+r b lineto
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 4 dict put def
+
+/Text {
+ishow
+} def
+
+/idef {
+dup where { pop pop pop } { exch def } ifelse
+} def
+
+/ifill {
+0 begin
+gsave
+patternGrayLevel -1 ne {
+fgred bgred fgred sub patternGrayLevel mul add
+fggreen bggreen fggreen sub patternGrayLevel mul add
+fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
+eofill
+} {
+eoclip
+originalCTM setmatrix
+pathbbox /t exch def /r exch def /b exch def /l exch def
+/w r l sub ceiling cvi def
+/h t b sub ceiling cvi def
+/imageByteWidth w 8 div ceiling cvi def
+/imageHeight h def
+bgred bggreen bgblue setrgbcolor
+eofill
+fgred fggreen fgblue setrgbcolor
+w 0 gt h 0 gt and {
+l b translate w h scale
+w h true [w 0 0 h neg 0 h] { patternproc } imagemask
+} if
+} ifelse
+grestore
+end
+} dup 0 8 dict put def
+
+/istroke {
+gsave
+brushDashOffset -1 eq {
+[] 0 setdash
+1 setgray
+} {
+brushDashArray brushDashOffset setdash
+fgred fggreen fgblue setrgbcolor
+} ifelse
+brushWidth setlinewidth
+originalCTM setmatrix
+stroke
+grestore
+} def
+
+/ishow {
+0 begin
+gsave
+fgred fggreen fgblue setrgbcolor
+printFont printSize scalefont setfont
+/descender 0 printFont /FontBBox get 1 get printFont /FontMatrix
+get transform exch pop def
+/vertoffset 1 printSize sub descender sub def {
+0 vertoffset moveto show
+/vertoffset vertoffset printSize sub def
+} forall
+grestore
+end
+} dup 0 2 dict put def
+
+/patternproc {
+0 begin
+/patternByteLength patternString length def
+/patternHeight patternByteLength 8 mul sqrt cvi def
+/patternWidth patternHeight def
+/patternByteWidth patternWidth 8 idiv def
+/imageByteMaxLength imageByteWidth imageHeight mul
+stringLimit patternByteWidth sub min def
+/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
+patternHeight mul patternHeight max def
+/imageHeight imageHeight imageMaxHeight sub store
+/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
+0 1 imageMaxHeight 1 sub {
+/y exch def
+/patternRow y patternByteWidth mul patternByteLength mod def
+/patternRowString patternString patternRow patternByteWidth getinterval def
+/imageRow y imageByteWidth mul def
+0 patternByteWidth imageByteWidth 1 sub {
+/x exch def
+imageString imageRow x add patternRowString putinterval
+} for
+} for
+imageString
+end
+} dup 0 12 dict put def
+
+/min {
+dup 3 2 roll dup 4 3 roll lt { exch } if pop
+} def
+
+/max {
+dup 3 2 roll dup 4 3 roll gt { exch } if pop
+} def
+
+/arrowhead {
+0 begin
+transform originalCTM itransform
+/taily exch def
+/tailx exch def
+transform originalCTM itransform
+/tipy exch def
+/tipx exch def
+/dy tipy taily sub def
+/dx tipx tailx sub def
+/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
+gsave
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+patternNone not {
+originalCTM setmatrix
+/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
+arrowWidth div def
+/padtail brushWidth 2 div def
+tipx tipy translate
+angle rotate
+padtip 0 translate
+arrowHeight padtip add padtail add arrowHeight div dup scale
+arrowheadpath
+ifill
+} if
+brushNone not {
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+arrowheadpath
+istroke
+} if
+grestore
+end
+} dup 0 9 dict put def
+
+/arrowheadpath {
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+} def
+
+/leftarrow {
+0 begin
+y exch get /taily exch def
+x exch get /tailx exch def
+y exch get /tipy exch def
+x exch get /tipx exch def
+brushLeftArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/rightarrow {
+0 begin
+y exch get /tipy exch def
+x exch get /tipx exch def
+y exch get /taily exch def
+x exch get /tailx exch def
+brushRightArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/midpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 x1 add 2 div
+y0 y1 add 2 div
+end
+} dup 0 4 dict put def
+
+/thirdpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 2 mul x1 add 3 div
+y0 2 mul y1 add 3 div
+end
+} dup 0 4 dict put def
+
+/subspline {
+0 begin
+/movetoNeeded exch def
+y exch get /y3 exch def
+x exch get /x3 exch def
+y exch get /y2 exch def
+x exch get /x2 exch def
+y exch get /y1 exch def
+x exch get /x1 exch def
+y exch get /y0 exch def
+x exch get /x0 exch def
+x1 y1 x2 y2 thirdpoint
+/p1y exch def
+/p1x exch def
+x2 y2 x1 y1 thirdpoint
+/p2y exch def
+/p2x exch def
+x1 y1 x0 y0 thirdpoint
+p1x p1y midpoint
+/p0y exch def
+/p0x exch def
+x2 y2 x3 y3 thirdpoint
+p2x p2y midpoint
+/p3y exch def
+/p3x exch def
+movetoNeeded { p0x p0y moveto } if
+p1x p1y p2x p2y p3x p3y curveto
+end
+} dup 0 17 dict put def
+
+/storexyn {
+/n exch def
+/y n array def
+/x n array def
+n 1 sub -1 0 {
+/i exch def
+y i 3 2 roll put
+x i 3 2 roll put
+} for
+} def
+
+%%EndProlog
+
+%I Idraw 9 Grid 8 
+
+%%Page: 1 1
+
+Begin
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ .8 0 0 .8 0 0 ] concat
+/originalCTM matrix currentmatrix def
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -173 155 ] concat
+%I
+592 414 435 351 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -173 155 ] concat
+%I
+596 414 596 359 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 121 382 ] concat
+%I
+230 272 299 227 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1.06542 0 0 1.06542 -16.1961 373.846 ] concat
+%I
+110 372 110 290 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -6.5094 391.991 ] concat
+%I
+268 448 129 408 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+254 530 136 480 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -9.00006 401.727 ] concat
+%I
+328 342 328 292 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t u
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 177.5 387 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 353 937.5 ] concat
+%I
+[
+(Tk-object)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 .5 0 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 58.5 307 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 233 857.5 ] concat
+%I
+[
+(Tk-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -158 0 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 59 238 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 210 788.5 ] concat
+%I
+[
+(Tk-simple-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t u
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 298 308 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 454.5 858.5 ] concat
+%I
+[
+(Tk-canvas-item)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+255 528 385 480 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -70 -30 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 191 237 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 349 787.5 ] concat
+%I
+[
+(Tk-simple-text)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 3 -39 ] concat
+
+Begin %I Elli
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ .822086 0 0 1.08565 .539814 365.776 ] concat
+%I
+129 308 80 20 Elli
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 81.0889 705.657 ] concat
+%I
+[
+(Message)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -9.00006 395.5 ] concat
+%I
+317 343 121 288 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 0 10 ] concat
+
+Begin %I Elli
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ .822086 0 0 1.08565 219.451 327.619 ] concat
+%I
+129 308 80 20 Elli
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 309 667.5 ] concat
+%I
+[
+(Label)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -9.00006 395.5 ] concat
+%I
+109 373 319 297 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -11 0 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 279 208 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 448.5 758.5 ] concat
+%I
+[
+(Tk-sizeable)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -41.5 7.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 459.5 200.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 633 751 ] concat
+%I
+[
+(Tk-bitmap)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 226 395 ] concat
+%I
+240 344 106 299 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 226 395 ] concat
+%I
+372 343 145 294 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 197 23 ] concat
+
+Begin %I Elli
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ .822086 0 0 1.08565 125.451 230.619 ] concat
+%I
+129 308 80 20 Elli
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 212 570.5 ] concat
+%I
+[
+(Button)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t u
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 329 123.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 499 674 ] concat
+%I
+[
+(Tk-reactive)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 121 382 ] concat
+%I
+413 273 307 226 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 23 4 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 4.99994 35.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 151 586 ] concat
+%I
+[
+(Tk-complex-button)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t u
+
+Begin %I Elli
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ .822086 0 0 1.08565 126.451 153.119 ] concat
+%I
+129 308 80 20 Elli
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 191 493 ] concat
+%I
+[
+(Check-button)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t u
+
+Begin %I Elli
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ .822086 0 0 1.08565 332.451 156.119 ] concat
+%I
+129 308 80 20 Elli
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-times-medium-i-*-140-*
+Times-Italic 14 SetF
+%I t
+[ 1 0 0 1 398 496 ] concat
+%I
+[
+(Radio-button)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -173 155 ] concat
+%I
+396 415 396 353 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 -173 155 ] concat
+%I
+399 415 551 345 Line
+End
+
+End %I eop
+
+showpage
+
+%%Trailer
+
+end
diff --git a/Doc/STklos+Tk/Fig2-2.eps b/Doc/STklos+Tk/Fig2-2.eps
new file mode 100644
index 0000000..12f4ed9
--- /dev/null
+++ b/Doc/STklos+Tk/Fig2-2.eps
@@ -0,0 +1,354 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%BoundingBox: 0 0 155 164
+%%Creator: xgrabsc
+%%Title: screen1
+%%File: screen1.dmp
+%%CreationDate: Sat May 20 00:30:06 1995
+%%EndComments
+%
+%
+%%BeginPreview: 155 164 1 110
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffff
+%%EndPreview
+%%EndProlog
+%%Page: 1 1
+/inch {72 mul} def
+/rlebuffer 2 string def
+/samples 256 string def
+/plotimage
+{155 164 8 [155 0 0 -164 0 164]
+% run-length decoding block
+  { currentfile rlebuffer readhexstring pop pop
+    rlebuffer 0 get 1 add       %% number of copies of the sample
+    /nsamples exch store        %% save it away
+    /lum rlebuffer 1 get store  %% the sample itself
+    0 1 nsamples 1 sub { samples exch lum put } for
+    samples 0 nsamples getinterval %% leave the pixels on the stack
+  }
+  image
+} def
+gsave
+155 164 scale
+plotimage
+fefffefffeffa9ff914408ff004414bd004463bd004414bd004408ff0044
+13bd014462bd014413bd014408ff004401bd134400bd634400bd114400bd
+014408ff004401bd8a4401bd014408ff004401bd014410bd00443fbd0044
+10bd004410bd004410bd004401bd014408ff004401bd01440fbd01443ebd
+01440fbd01440fbd01440fbd014401bd014408ff004401bd014401bd0d88
+014401bd3c88014401bd0d88014401bd0d88014401bd0d88014401bd0144
+08ff004401bd014401bd0d88014401bd0b880100048801002788014401bd
+0d88014401bd0d88014401bd0d88014401bd014408ff004401bd014401bd
+0d88014401bd0b880100048801002788014401bd0d88014401bd0d880144
+01bd0d88014401bd014408ff004401bd014401bd0d88014401bd0b880200
+028802000188030001880100008801000188010001880100018803000c88
+014401bd0d88014401bd0d88014401bd0d88014401bd014408ff004401bd
+014401bd0d88014401bd0b88020002880200008801000188010000880200
+00880100008801000188010000880100018801000b88014401bd0d880144
+01bd038804bd00440388014401bd058800bd00440588014401bd014408ff
+004401bd014401bd00880abd00440088014401bd0b880300008803000088
+01000188010000880100018801000088010001880100008802000e880144
+01bd0d88014401bd048800bd028800440388014401bd058800bd00440588
+014401bd014408ff004401bd014401bd008800bd098800440088014401bd
+0b8801000088000000880000008801000088050000880100018801000088
+010001880100028802000c88014401bd058800bd00440588014401bd0588
+00bd008800440488014401bd048800bd018800440488014401bd014408ff
+004401bd014401bd008800bd098800440088014401bd0b88010000880200
+008801000088010004880100018801000088010001880100038802000b88
+014401bd058800bd00440588014401bd058800bd008800440488014401bd
+048800bd018800440488014401bd014408ff004401bd014401bd008800bd
+0a440088014401bd0b880100018800000188010000880100018801000088
+010001880100008801000088020000880100018801000b88014401bd0d88
+014401bd058800bd008800440488014401bd048800bd0188004404880144
+01bd014408ff004401bd014401bd0d88014401bd0b880100018800000188
+01000188030001880100018801000188010000880100018803000c880144
+01bd0d88014401bd068800440588014401bd038800bd04440388014401bd
+014408ff004401bd014401bd0d88014401bd3c88014401bd0d88014401bd
+0d88014401bd0d88014401bd014408ff004401bd014401bd0d88014401bd
+3c88014401bd0d88014401bd0d88014401bd0d88014401bd014408ff0044
+01bd014401bd0d88014401bd3c88014401bd0d88014401bd0d88014401bd
+0d88014401bd014408ff004401bd014401bd0d88014401bd3c88014401bd
+0d88014401bd0d88014401bd0d88014401bd014408ff004400bd024400bd
+104400bd3f4400bd104400bd104400bd104400bd024408ff914408ff0044
+02bd004444ff42cf004402bd004408ff004401bd014443ff007d42cf0044
+01bd014408ff004400bd024401ff40cf017d42cf004400bd024408ff0444
+01ff40cf017d42cf044408ff004402bd004401ff40cf017d42cf004402bd
+004408ff004401bd014401ff40cf017d42cf004401bd014408ff004401bd
+014401ff01cf010001cf010001cf01000bcf01000ccf010017cf017d03cf
+010001cf010001cf01000dcf01001ecf010003cf004401bd014408ff0044
+01bd014401ff01cf010001cf010001cf01000bcf01000ccf010017cf017d
+03cf010001cf010001cf01000dcf01001ecf010003cf004401bd014408ff
+004401bd014401ff01cf010001cf010001cf010000cf030001cf010000cf
+030001cf010005cf010000cf010001cf030001cf010002cf010001cf0300
+02cf017d03cf010001cf010001cf010000cf030002cf030001cf010001cf
+010009cf030001cf010000cf010002cf010000cf010003cf004401bd0144
+08ff004401bd014401ff02cf000001cf010001cf000000cf010001cf0100
+00cf060000cf010005cf010000cf020000cf010001cf010000cf010002cf
+010000cf010001cf010001cf017d04cf000001cf010001cf000000cf0100
+01cf010000cf010001cf010000cf010000cf010009cf010001cf010000cf
+020000cf010000cf010000cf020003cf004401bd014408ff004401bd0144
+01ff02cf010000cf010000cf010000cf010001cf010000cf020001cf0300
+06cf010001cf010004cf010001cf010000cf010001cf020004cf017d04cf
+010000cf010000cf010000cf010001cf010000cf010001cf010000cf0300
+0acf010001cf010000cf010001cf010000cf010001cf010003cf004401bd
+014408ff004401bd014401ff02cf010000cf010000cf010000cf010001cf
+010000cf010002cf030006cf010001cf010001cf040001cf010000cf0100
+03cf020002cf017d04cf010000cf010000cf010000cf050000cf050000cf
+030003cf040001cf050000cf010001cf010000cf010001cf010003cf0044
+01bd014408ff004401bd014401ff03cf010001cf010001cf010001cf0100
+00cf010002cf010000cf010005cf010001cf010000cf010001cf010002cf
+020005cf020001cf017d05cf010001cf010001cf010004cf010004cf0100
+00cf010009cf010004cf010001cf010000cf010001cf010003cf004401bd
+014408ff004401bd014401ff03cf010001cf010001cf010001cf010000cf
+010002cf010001cf010004cf010000cf020000cf010001cf010002cf0200
+02cf010001cf010001cf017d05cf010001cf010001cf010001cf010000cf
+010001cf010000cf010001cf010008cf010001cf010000cf010001cf0100
+00cf010000cf020003cf004401bd014408ff004401bd014401ff03cf0100
+01cf010002cf030001cf010002cf010002cf010004cf010000cf010001cf
+020000cf010002cf010003cf030002cf017d05cf010001cf010002cf0300
+02cf030001cf010002cf010008cf030001cf010001cf010001cf010000cf
+010003cf004401bd014408ff004401bd014401ff33cf00000bcf017d42cf
+004401bd014408ff004401bd014401ff32cf01000bcf017d42cf004401bd
+014408ff004401bd014401ff31cf01000ccf017d42cf004401bd014408ff
+004401bd014401ff40cf017d42cf004401bd014408ff004401bd014401ff
+40cf017d42cf004401bd014408ff004401bd014401ff427d42cf004401bd
+014408ff004401bd014400ff437d42cf004401bd014408ff004401bd0144
+5eff294401bd014408ff004401bd004400bd5dff007d16bd004413bd0144
+08ff004403bd01ff5acf017d15bd014413bd014408ff004400bd024401ff
+5acf017d174400bd144408ff044401ff5acf017d2d440fff5acf017d3dff
+02cf010004cf010012cf010039cf017d3dff02cf010004cf010012cf0100
+39cf017d3dff02cf020002cf020001cf030001cf010000cf010002cf0100
+00cf010001cf030001cf010002cf01002acf017d3dff02cf020002cf0200
+00cf010001cf010000cf020000cf010000cf010000cf020000cf010001cf
+010000cf010002cf01002acf017d3dff02cf030000cf030000cf010001cf
+010000cf010001cf010000cf010001cf010004cf010001cf010000cf0100
+2bcf017d3dff02cf010000cf000000cf000000cf010000cf010001cf0100
+00cf010001cf010000cf010001cf010001cf040001cf010000cf01002bcf
+017d3dff02cf010000cf020000cf010000cf010001cf010000cf010001cf
+010000cf010001cf010000cf010001cf010002cf02002ccf017d3dff02cf
+010001cf000001cf010000cf010001cf010000cf010001cf010000cf0100
+00cf020000cf010001cf010002cf02002ccf017d3dff02cf010001cf0000
+01cf010001cf030001cf010001cf010001cf010000cf010001cf020000cf
+010002cf01002ccf017d3dff2bcf00002dcf017d3dff2acf01002dcf017d
+3dff29cf01002ecf017d3dff5acf017d3dff5acf017d3dff5acf017d3dff
+5acf017d3dff5acf017d3dff5acf017d3dff01cf070018cf010035cf017d
+3dff04cf01001bcf010035cf017d3dff04cf010002cf010001cf010001cf
+030002cf030002cf010000cf010001cf030001cf010002cf010026cf017d
+3dff04cf010002cf010001cf010000cf010001cf010000cf010001cf0100
+00cf010000cf020000cf010001cf010000cf010002cf010026cf017d3dff
+04cf010002cf010001cf010000cf010001cf010000cf020003cf010001cf
+010004cf010001cf010000cf010027cf017d3dff04cf010002cf010001cf
+010000cf050002cf020001cf010001cf010001cf040001cf010000cf0100
+27cf017d3dff04cf010002cf010001cf010000cf010007cf020000cf0100
+01cf010000cf010001cf010002cf020028cf017d3dff04cf010002cf0100
+00cf020000cf010001cf010000cf010001cf010000cf010000cf020000cf
+010001cf010002cf020028cf017d3dff04cf010003cf010000cf010001cf
+030002cf030002cf010000cf010001cf020000cf010002cf010028cf017d
+3dff2fcf000029cf017d3dff2ecf010029cf017d3dff2dcf01002acf017d
+3dff5acf017d3dff5acf017d3dff5acf017d3dff5acf017d3dff5acf017d
+3dff08cf487d08cf017d3dff07cf4aff07cf017d3dff5acf017d3dff5acf
+017d3dff5acf017d3dff5adb017d3dff00db589a005d017d1eff007d1dff
+00db589a005d017d01ff1bcf017d1dff00db589a005d017d01ff1bcf017d
+1dff00db009a0100019a0100019a01000a9a0100199a0100249a005d017d
+01ff05cf07b20dcf017d1dff00db009a0100019a0100019a01000a9a0100
+199a0100199a015d089a005d017d01ff04cf01b200cf00b200cf00b200cf
+00b200cf00b20ccf017d1dff00db009a0100019a0100019a0100009a0300
+029a0100009a0100009a0100009a0100029a0300029a0300029a0100009a
+0100019a0300019a0100029a01000a9a035d069a005d017d01ff03cf01b2
+00cf00b200cf00b200cf00b200cf00b200cf00b20bcf017d1dff00db019a
+0000019a0100019a0000009a0100019a0100009a0100009a0200009a0200
+009a0100009a0100019a0100009a0100019a0100009a0100009a0200009a
+0100019a0100009a0100029a01000a9a005d019a015d059a005d017d01ff
+02cf01b200cf00b206cf00b200cf00b20acf017d1dff00db019a0100009a
+0100009a0100009a0100019a0100009a0100019a0100009a0100019a0100
+009a0100019a0100009a0200039a0100019a0100049a0100019a0100009a
+01000b9a005d039a015d039a005d017d01ff01cf01b200cf00b200cf00b2
+06cf00b200cf00b209cf017d1dff00db019a0100009a0100009a0100009a
+0500009a0100019a0100009a0100019a0100009a0500029a0200019a0100
+019a0100019a0400019a0100009a01000b9a005d049a01db029a005d017d
+01ff01cf00b200cf00b200cf00b200cf00b206cf00b200cf00b208cf017d
+1dff00db029a0100019a0100019a0100049a0100019a0100009a0100019a
+0100009a0100079a0200009a0100019a0100009a0100019a0100029a0200
+0c9a005d039a01db039a005d017d01ff01cf01b202cf00b200cf00b205cf
+01b209cf017d1dff00db029a0100019a0100019a0100019a0100009a0100
+009a0200009a0100019a0100009a0100019a0100009a0100019a0100009a
+0100009a0200009a0100019a0100029a02000c9a005d019a01db059a005d
+017d01ff01cf00b200cf00b202cf00b200cf00b204cf00b200cf00b208cf
+017d1dff00db029a0100019a0100029a0300029a0100009a0100009a0100
+019a0100019a0300029a0300029a0100009a0100019a0200009a0100029a
+01000c9a005d02db069a005d017d01ff01cf01b204cf00b200cf00b203cf
+01b209cf017d1dff00db3e9a00000d9a005d00db089a005d017d01ff01cf
+00b200cf00b204cf00b200cf00b202cf00b200cf00b208cf017d1dff00db
+3d9a0100189a005d017d01ff01cf01b206cf00b200cf00b201cf01b209cf
+017d1dff00db3c9a0100199a005d017d01ff01cf00b200cf00b206cf00b2
+00cf02b200cf00b208cf017d1dff00db589a005d017d01ff02cf00b200cf
+00b206cf00b200cf00b200cf00b209cf017d1dff00db595d017d01ff03cf
+00b200cf00b205cf01b200cf00b20acf017d1dff5acf017d01ff04cf00b2
+00cf06b200cf00b20bcf017d1dff5acf017d01ff05cf00b200cf00b200cf
+00b200cf00b200cf00b20ccf017d1dff5acf017d01ff06cf00b200cf00b2
+00cf00b200cf00b20dcf017d1dff08cf487d08cf017d01ff1bcf017d1dff
+07cf4aff07cf017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf
+017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf017d01ff1bcf
+017d1dff5acf017d01ff01cf010003cf010011cf017d1dff5acf017d01ff
+01cf010003cf010011cf017d1dff5acf017d01ff02cf010001cf010001cf
+030002cf030005cf017d1dff01cf09001bcf010030cf017d01ff02cf0100
+01cf010000cf010001cf010000cf010001cf010004cf017d1dff04cf0100
+02cf01001bcf010030cf017d01ff03cf030001cf010001cf010000cf0200
+07cf017d1dff04cf010002cf010000cf010001cf010001cf010000cf0100
+00cf010000cf030002cf010000cf010001cf030001cf010002cf010021cf
+017d01ff04cf010002cf050002cf020005cf017d1dff04cf010002cf0200
+00cf010000cf010001cf010000cf060001cf010000cf010000cf020000cf
+010001cf010000cf010002cf010021cf017d01ff04cf010002cf010007cf
+020004cf017d1dff04cf010002cf010001cf010000cf010001cf010000cf
+020001cf020003cf010001cf010004cf010001cf010000cf010022cf017d
+01ff04cf010002cf010001cf010000cf010001cf010004cf017d1dff04cf
+010002cf010001cf010000cf010001cf010000cf010004cf020001cf0100
+01cf010001cf040001cf010000cf010022cf017d01ff04cf010003cf0300
+02cf030005cf017d1dff04cf010002cf010001cf010000cf010001cf0100
+00cf010005cf020000cf010001cf010000cf010001cf010002cf020023cf
+017d01ff1bcf017d1dff04cf010002cf010001cf010000cf010000cf0200
+00cf010002cf010001cf010000cf010000cf020000cf010001cf010002cf
+020023cf017d01ff1bcf017d1dff04cf010002cf010001cf010001cf0100
+00cf010000cf010003cf030002cf010000cf010001cf020000cf010002cf
+010023cf017d01ff1bcf017d1dff34cf000024cf017d01ff1bcf017d1dff
+33cf010024cf017d01ff1bcf017d1dff32cf010025cf017d01ff1bcf017d
+1dff5acf017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf017d
+01ff1bcf017d1dff5acf017d01ff02cf010002cf010011cf017d1dff5acf
+017d01ff02cf020001cf010011cf017d1dff5acf017d01ff02cf020001cf
+010001cf03000bcf017d1dff02cf050004cf010004cf010043cf017d01ff
+02cf010000cf000000cf010000cf010001cf01000acf017d1dff02cf0100
+0fcf010043cf017d01ff02cf010000cf000000cf010000cf010001cf0100
+0acf017d1dff02cf010003cf010000cf030001cf010000cf010001cf0300
+01cf010002cf010034cf017d01ff02cf010001cf020000cf010001cf0100
+0acf017d1dff02cf010003cf060000cf010000cf020000cf010001cf0100
+00cf010002cf010034cf017d01ff02cf010001cf020000cf010001cf0100
+0acf017d1dff02cf040000cf020001cf010000cf010001cf010004cf0100
+01cf010000cf010035cf017d01ff02cf010002cf010000cf010001cf0100
+0acf017d1dff02cf010003cf010002cf010000cf010001cf010001cf0400
+01cf010000cf010035cf017d01ff02cf010002cf010001cf03000bcf017d
+1dff02cf010003cf010002cf010000cf010001cf010000cf010001cf0100
+02cf020036cf017d01ff1bcf017d1dff02cf010003cf010002cf010000cf
+010000cf020000cf010001cf010002cf020036cf017d01ff1bcf017d1dff
+02cf010003cf010002cf010001cf010000cf010001cf020000cf010002cf
+010036cf017d01ff1bcf017d1dff21cf000037cf017d01ff1bcf017d1dff
+20cf010037cf017d01ff1bcf017d1dff1fcf010038cf017d01ff1d7d1dff
+5acf017d00ff1e7d1dff5acf017d3dff5c7d3cff5d7dfefffeff04ff
+
+%
+% Run-length encoding savings =  76.2%
+%
+
+
+
+grestore
+showpage
+
+%%Trailer
diff --git a/Doc/STklos+Tk/Makefile b/Doc/STklos+Tk/Makefile
new file mode 100644
index 0000000..0728b59
--- /dev/null
+++ b/Doc/STklos+Tk/Makefile
@@ -0,0 +1,23 @@
+# Makefile for STklos+Tk document building
+
+TEX= STklos+Tk.tex Chap1.tex Chap2.tex
+
+all: dvi ps
+
+dvi: 	STklos+Tk.dvi
+ps: 	STklos+Tk.ps
+
+STklos+Tk.dvi: $(TEX)
+	       latex STklos+Tk.tex
+	       makeindex STklos+Tk
+	       latex STklos+Tk.tex
+	       latex STklos+Tk.tex
+	
+STklos+Tk.ps: STklos+Tk.dvi
+	dvips -t a4 -f STklos+Tk.dvi > STklos+Tk.ps
+
+clean: 
+	@rm -f  *.aux *.idx  *.log *.aux *.bbl *.blg  *.idx *.toc *~ *.ilg *.ind 
+
+very-clean: clean
+	rm -f STklos+Tk.ps STklos+Tk.dvi
diff --git a/Doc/STklos+Tk/Packing-demo.ps b/Doc/STklos+Tk/Packing-demo.ps
new file mode 100644
index 0000000..a15ea3d
--- /dev/null
+++ b/Doc/STklos+Tk/Packing-demo.ps
@@ -0,0 +1,2213 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Packing-demo.eps
+%%Creator: XV Version 3.00  Rev: 3/30/93  -  by John Bradley
+%%BoundingBox: 36 397 303 489
+%%Pages: 1
+%%DocumentFonts:
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 801 string def
+
+% lower left corner
+36 397 translate
+
+% size of image (on paper, in 1/72inch coords)
+266.97600 92.01600 scale
+
+% define 'colorimage' if it isn't defined
+%   ('colortogray' and 'mergeprocs' come from xwd2ps
+%     via xgrab)
+/colorimage where   % do we know about 'colorimage'?
+  { pop }           % yes: pop off the 'dict' returned
+  {                 % no:  define one
+    /colortogray {  % define an RGB->I function
+      /rgbdata exch store    % call input 'rgbdata'
+      rgbdata length 3 idiv
+      /npixls exch store
+      /rgbindx 0 store
+      /grays npixls string store  % str to hold the result
+      0 1 npixls 1 sub {
+        grays exch
+        rgbdata rgbindx       get 20 mul    % Red
+        rgbdata rgbindx 1 add get 32 mul    % Green
+        rgbdata rgbindx 2 add get 12 mul    % Blue
+        add add 64 idiv      % I = .5G + .31R + .18B
+        put
+        /rgbindx rgbindx 3 add store
+      } for
+      grays
+    } bind def
+
+    % Utility procedure for colorimage operator.
+    % This procedure takes two procedures off the
+    % stack and merges them into a single procedure.
+
+    /mergeprocs { % def
+      dup length
+      3 -1 roll
+      dup
+      length
+      dup
+      5 1 roll
+      3 -1 roll
+      add
+      array cvx
+      dup
+      3 -1 roll
+      0 exch
+      putinterval
+      dup
+      4 2 roll
+      putinterval
+    } bind def
+
+    /colorimage { % def
+      pop pop     % remove 'false 3' operands
+      {colortogray} mergeprocs
+      image
+    } bind def
+  } ifelse          % end of 'false' case
+
+
+
+267 92 8			% dimensions of data
+[267 0 0 -92 0 92]		% mapping matrix
+{currentfile pix readhexstring pop}
+false 3 colorimage
+
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d3849ff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000000000000000000000000000db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192000000000000db7192db7192db7192db7192db7192000000000000db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192000000000000db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000db7192
+000000000000000000000000db7192db7192db7192000000000000000000000000db7192
+db7192000000000000db7192db7192000000000000db7192000000000000db7192000000
+000000db7192000000000000db7192db7192db7192000000000000db7192000000000000
+db7192db7192db7192db7192db7192db7192000000000000db7192000000000000db7192
+db7192000000000000000000000000db7192db7192000000db7192000000000000000000
+db7192000000000000000000db7192db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192000000000000db7192000000000000db7192db7192000000000000db7192000000
+000000000000db7192000000000000db7192000000000000db7192000000000000000000
+db7192db7192db7192db7192db7192000000000000db7192000000000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000000000000000000000000000db7192db7192
+db7192db7192db7192000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000000000000000db7192db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192ff9ecfdb7192db7192db71926d3849
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db71926d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192db7192
+000000000000000000000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000000000000000db7192db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000000000000000000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db71926d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000db7192000000000000db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000db7192db7192db7192db7192db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecf6d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192000000000000db7192db7192000000000000db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192000000000000000000
+db7192db7192db7192db7192db7192000000000000db7192000000000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192db7192
+000000000000000000db7192000000000000db7192000000000000000000000000db7192
+db7192000000000000db7192db7192db7192000000000000000000000000db7192000000
+000000db7192db7192000000000000db7192db7192000000000000db7192000000000000
+db7192db7192db7192db7192db7192db7192000000000000db7192000000000000db7192
+db7192000000000000000000000000db7192db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db71926d3849db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+ff9ecf6d38496d38496d38496d38496d3849db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d3849ff9ecf6d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecf6d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d3849
+ff9ecfff9ecfff9ecf6d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff6d3849
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+000000cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffff7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000000000000000
+000000000000000000000000000000000000000000000000000000000000000000000000
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000000000
+cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcf000000000000000000000000cfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000cfcfcfcfcfcf000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000000000cfcfcf000000000000cfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000000000000000000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000
+cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000cfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000000000000000000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcf
+000000cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffff7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecf6d38496d3849
+6d38496d38496d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+6d38496d38496d3849
+ff9ecfff9ecfff9ecf6d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+000000cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000000000cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000000000000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000000000000000000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d3849
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%Trailer
diff --git a/Doc/STklos+Tk/STklos+Tk.ps b/Doc/STklos+Tk/STklos+Tk.ps
new file mode 100644
index 0000000..4a5441f
--- /dev/null
+++ b/Doc/STklos+Tk/STklos+Tk.ps
@@ -0,0 +1,6319 @@
+%!PS-Adobe-2.0
+%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
+%%Title: STklos+Tk.dvi
+%%Pages: 30
+%%PageOrder: Ascend
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%EndComments
+%DVIPSCommandLine: dvips -t a4 -f STklos+Tk.dvi
+%DVIPSParameters: dpi=300, compressed, comments removed
+%DVIPSSource:  TeX output 1996.09.25:1559
+%%BeginProcSet: texc.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
+forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
+/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
+/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
+/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
+string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
+end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
+/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
+N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
+length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
+128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
+get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
+dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
+/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
+/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
+0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
+setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
+.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
+/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
+gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
+add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
+/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
+dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
+adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
+idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
+adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
+{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
+adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
+chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
+}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
+length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
+cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
+0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
+add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
+/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
+RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
+false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
+round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
+rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
+{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
+B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
+4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
+p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
+a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+%%BeginProcSet: special.pro
+TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
+/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
+false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
+/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
+div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
+/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
+10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
+/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
+true def end /@MacSetUp{userdict /md known{userdict /md get type
+/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
+length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
+N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
+clippath mark{transform{itransform moveto}}{transform{itransform lineto}
+}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
+itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
+closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
+0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
+/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
+scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
+ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
+not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
+TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
+pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
+-1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
+TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
+sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
+0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
+2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
+{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
+div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
+N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
+maxlength dict begin /magscale true def normalscale currentpoint TR
+/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
+/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
+psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
+scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
+/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
+begin /SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
+{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
+}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
+end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
+N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
+/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
+SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
+/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
+yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
+%%EndProcSet
+TeXDict begin 39158280 55380996 1000 300 300 (STklos+Tk.dvi)
+@start /Fa 36 122 df<EAC060EAE0E0A5EAC060A50B0B7C9614>34
+D<EA071CA5B51280A3380E3800A7B51280A3381C7000A511177F9614>I<EA01801203EA
+0700120E5A5AA25AA35AA91270A37EA27E7E7EEA03801201091D799914>40
+D<12C07E12707E7E7EA27EA3EA0380A9EA0700A3120EA25A5A5A5A5A091D7D9914>I<EA
+0380A3EA638CEAF39EEA7FFCEA3FF8EA0FE0A2EA3FF8EA7FFCEAF39EEA638CEA0380A30F
+107E9214>I<127012F812FCA2127C121C1218123812F012C0060A798414>44
+D<EAFFFEA30F037E8C14>I<127012F8A312701200A6127012F8A312700510798F14>58
+D<B512C0A2EA1C01A490C7FCA2131CA2EA1FFCA2EA1C1CA290C7FCA7B47EA21217809614
+>70 D<38FE0FE0A2003E1380EA3B1BA413BBA2EA39B3A313F3EA38E3A21303A638FE0FE0
+A21317809614>77 D<38FE3F80A2383E0E00123BA4138E1239A213CEA31238A213EE136E
+A4133E12FEA211177F9614>I<EA0FCCEA3FFCEA787CEAF03C12E0131CA2EAF0007E127E
+EA3FE0EA0FF8EA01FCEA003C131E130E12E0A3EAF01CEAF83CEAFFF8EAC7E00F177E9614
+>83 D<B51280A2EAE1C3A43801C000AFEA0FF8A211177F9614>I<38FE0FE0A238380380
+A73818E300EA19F3EA1DF713B7A5EA0DB6A21316EA0F1EA31317809614>87
+D<38FE3F80A238380E00EA3C1EEA1C1CEA1E3CEA0E38A26C5AA2EA036013E0A26C5AA8EA
+07F0A211177F9614>89 D<12E0A27E127012781238123C121CA2121E120E120F7E138012
+0313C0120113E0120013F01370A213781338133C131C131E130E13060F1D7E9914>92
+D<120C121C1238127012E012C0A312F012F8A21230060C799914>96
+D<EA1FC0EA7FF0EA7078EA203CEA001CA2EA07FC121FEA7C1C12F012E0A3EA707C383FFF
+80EA0F8F11107E8F14>I<12FCA2121CA513F8EA1FFE130F381E0780EA1C0314C01301A4
+1303001E13801307381F0F0013FEEA1CF81217809614>I<EA03F8EA0FFEEA3C0EEA7804
+EA700012F05AA47E1270EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<137EA2130EA5EA
+07CEEA1FFEEA3C3EEA781EEA700E12F012E0A412F0EA701E1278EA3C3E381FFFC0EA07CF
+12177F9614>I<EA07E0EA1FF8EA3C3CEA781CEA701EEAF00E12E0EAFFFEA2EAE0007E12
+70EA780EEA3C1EEA0FFCEA03F00F107E8F14>I<13FCEA01FEEA078E13041300A3EAFFFE
+A2EA0700ACEAFFF8A20F177F9614>I<12FCA2121CA51378EA1DFEEA1F8FEA1E07A2121C
+A938FF9FE0A21317809614>104 D<1203EA0780A2EA0300C7FCA4EAFF80A21203ACEAFF
+FCA20E187D9714>I<12FCA2121CA5EBFFC0A2EB3E005B5BEA1DF0EA1FE0A27F1370EA1E
+78EA1C3C7FA238FF3FC0A21217809614>107 D<EAFF80A21203B3EAFFFEA20F177E9614>
+I<EAFB8EB51280EA3EFBEA3CF3EA38E3AA38FEFBE0A21310808F14>I<EAFC78EAFDFEEA
+1F8FEA1E07A2121CA938FF9FE0A21310808F14>I<EA07C0EA1FF0EA3C78EA701CA2EAE0
+0EA6EA701CEA783CEA3C78EA1FF0EA07C00F107E8F14>I<EAFCF8EAFFFEEA1F0F381E07
+80EA1C0314C01301A41303001E13801307381F0F0013FEEA1CF890C7FCA6B47EA2121880
+8F14>I<EAFE1FEB7F80EA0FE3EB8100138090C7FC120EA8EAFFF8A211107F8F14>114
+D<EA0FD8EA7FF8EAE078EAC038A2EAF000EA7F80EA3FF0EA07FCEA001EEAE00E130612F0
+EAF81CEAFFF8EACFE00F107E8F14>I<120EA5EAFFFCA2EA0E00A8130EA3EA0F1EEA07FC
+EA01F00F157F9414>I<EAFC3FA2EA1C07AA5BEA1E1F380FFFE0EA03E71310808F14>I<38
+FF7F80A2381C0E005BA2120E5BA212071330A2EA0370A25B1201A25BA3485A12730077C7
+FC127E123C11187F8F14>121 D E /Fb 44 122 df<EAE0E0A8EA60C00B097D9312>34
+D<EA0E38A4EAFFFEA3EA1C70A5EAFFFEA3EA38E0A50F147F9312>I<1230127CA2123C12
+0CA3121C1238123012F012C0060C7A9312>39 D<EA01801207EA0F00121E5A1238127812
+7012F05AA77E127012781238123C7E7EEA0780120109197B9612>I<12C012F012787E7E
+120E120F7E13801203A7120713005A120E121E5A5A5A12C009197D9612>I<EAFFF8A30D
+037E8B12>45 D<EA0FC0EA3FF0EA783CEA701CA21200133C1378EA07F0A2EA003C131C13
+0EA212E0A2131CEAF83CEA3FF0EA0FC00F147F9312>51 D<126012F0A212601200A61260
+12F0A21260040E798D12>58 D<12301278A212301200A612301278A21238121812381230
+12F012C005137A8D12>I<1338137813F8EA01E0EA07C0EA0F80EA1F00123C12F85A7E12
+3C121FEA0F80EA07C0EA01E0EA00F8137813380D137E9312>I<12E07E7E123C121FEA0F
+80EA07C0EA01E0EA00F8137813F8EA01E0EA07C0EA0F80EA1F00123C12F85A5A0D137E93
+12>62 D<EA0380EA07C0A21206A2EA0EE0A4EA0C60EA1C70A3EA1FF0A2EA3838A3EAFEFE
+A20F147F9312>65 D<EAFFE013F0EA3838131CA413381378EA3FF013F8EA381C130EA413
+1E133CEAFFF813F00F147F9312>I<EAFFC013F0EA38781338131CA2131E130EA7131CA2
+13381378EAFFF013C00F147F9312>68 D<EAFFFEA2EA380EA31300A21370A2EA3FF0A2EA
+3870A21300A5B4FCA20F147F9312>70 D<B4FCA21238AC1304130EA3EAFFFEA20F147F93
+12>76 D<EAFFE013F8EA383C131C130EA4131C133CEA3FF813E0EA3800A612FEA20F147F
+9312>80 D<EA3FE0EA7FF0EA7070EAE038AB12E7EAE3B8A2EA73F0127FEA3FE01200A213
+F0137013780D197E9312>I<EA1F30EA3FF0127012E01370A2EAF000A2127FEA3FE0EA0F
+F012001378133812E0A2EAF0781370EAFFE0EACF800D147E9312>83
+D<EAFFF8A2EAE078137013E0120113C0120313801207EA0F00120E121E121CEA3C1C1238
+127012F0EAFFFCA20E147E9312>90 D<EA1FC0EA3FF0EA3838EA101C1200EA07FC123FEA
+781C12F012E0A2EAF03C387FFF80EA1FCF110E7F8D12>97 D<12FCA2121CA4EA1DF0EA1F
+F8131EEA1E0EEA1C0F1307A4130FEA1E0EEA1F1C13F8EA1DE01014809312>I<EA07F0EA
+1FF8EA3838EA7010EAF0005AA47EEA7038EA3878EA1FF0EA07E00D0E7E8D12>I<EA01F8
+A2EA0038A4EA07B8EA1FF8EA38781270EAF03812E0A412F0EA7078EA78F8EA1FFFEA0FBF
+10147F9312>I<EA0780EA1FE0EA38F0EA7078EAF03812E0EAFFF8A2EAE0007EEA7038EA
+3878EA1FF0EA07C00D0E7E8D12>I<137EEA01FFEA03C713821380A2EAFFFEA2EA0380AA
+EA7FFCA21014809312>I<EA0F9EEA1FFFEA38E7EA7070A4EA38E0EA3FC0EA7F80EA7000
+EA3FE013F8EA7FFCEAF01EEAE00EA3EAF01EEA783CEA3FF8EA0FE010167F8D12>I<12FC
+A2121CA413F0EA1FF8131C121E121CA838FF9F80A21114809312>I<1206120FA21206C7
+FCA3B4FCA21207AAEAFFF8A20D157D9412>I<12FCA2121CA4EA1DFFA2EA1C785BEA1DE0
+EA1FC07FA2EA1EF0EA1C787FA238FF3F80A21114809312>107 D<B4FCA21207B0EAFFF8
+A20D147E9312>I<EAFB8EB51280EA3EFBEA3CF3EA38E3A838FEFBE0A2130E818D12>I<EA
+FCF0B47EEA1F1C121E121CA838FF9F80A2110E808D12>I<EA0F80EA3FE01238EA7070EA
+E038A5EAF078EA7070EA38E0123FEA0F800D0E7E8D12>I<EAFDF0EAFFF8EA1F1EEA1E0E
+EA1C0F1307A4130FEA1E0EEA1F1C13F8EA1DE0EA1C00A5EAFF80A21015808D12>I<EA07
+9CEA1FFCEA387CEA703CEAF01C12E0A412F0EA703CEA387CEA1FFCEA079CEA001CA5EBFF
+80A211157F8D12>I<EAFE3C13FEEA0FCE13841300120EA7EAFFF0A20F0E7F8D12>I<EA1F
+F0127FEAE07012C0EAE000B4FCEA3FE0EA0FF0EA0078EAE018A2EAF038EAFFF0EADFC00D
+0E7E8D12>I<120EA4EAFFF8A2EA0E00A7131CA2EA0F3CEA07F8EA01E00E127F9112>I<EA
+FCFCA2EA1C1CA9133C380FFF80EA07DF110E808D12>I<EAFEFEA2EA3838A2EA1C70A3EA
+0EE0A4EA07C0A2EA03800F0E7F8D12>I<38FF7F80A238380E00A3EA180CEA1DDCEA1FFC
+A2EA1D5C121CEA0E78A3110E808D12>I<EAFCFEA2EA1CF0EA0EE0EA0FC01207EA038012
+0713C0EA0EE0EA1EF0EA1C70EAFEFEA20F0E7F8D12>I<EAFEFEA2EA3838121C1370A212
+0E136013E01206A2EA07C01203A21380A3EA7700127F127E12380F157F8D12>I
+E /Fc 14 122 df<3803FF80000F13E0003F13F880EB01FEEB007F001E7F000CEB1F80C7
+FC140FA2EB01FF133F48B5FC1207001F138F383FE00FEA7F80EA7E005AA25AA27E141F00
+7E133F387F81FF6CB512FE000F14FF6C13E30001EB01FE201F7C9E25>97
+D<EB1FFCEB7FFF48B512C01207380FF00FEA1FC09038800780393F000300007E90C7FCA2
+127C12FCA25AA57EA2127C127EEC01C06CEB03E0381F8007EBC00F390FF03FC06CB51280
+000114006C6C5AEB1FF01B1F7B9E25>99 D<EC7FC04A7EA2147F1403A9EB1FC3EB7FF348
+B5FC1207380FF07F381FC01FEB800FEA3F00007E1307A2007C130312FCA25AA67E007C13
+07127E140F7EEB801F381FC03F380FF07F6CB6FC000101FB13806C13F3D93FC11300212C
+7EAB25>I<EB1FE0EBFFF84813FE00077F390FF07F80391FC01FC0383F800F90380007E0
+007E130315F0127C00FC1301A2B6FCA315E000F8C8FC7EA2127C127E15E06CEB01F0381F
+8003EBC007390FF81FE00003B512C06C148039007FFE00EB1FF81C1F7C9E25>I<EA7F80
+487EA2127F1203A9EC7FFF1680A21600EC07E04A5A4A5A4AC7FC147E5CEBC1F8EBC3F0EB
+C7E013CFEBDFF0EBFFF813FEEBFC7CEBF87E497EEBC01F6E7E816E7E14036E7E813A7FFE
+07FF80B54813C0A26C486C1380222C7FAB25>107 D<EAFFFE7FA3EA001FB3B2B612E0A4
+1B2C7BAB25>I<387FC0FE39FFE3FF8001EF7F6CB57E000313879038FE03F013FCEBF801
+13F0A313E0B03A7FFF0FFF80B5009F13C0A26C010F1380221F7F9E25>110
+D<EB3FC0EBFFF0000313FC487F380FE07F391F801F80EB000F003EEB07C0A248EB03E0A2
+48EB01F0A86C1303007C14E0A26CEB07C0003F130F391F801F80EBC03F390FE07F003807
+FFFE6C5BC613F0EB3FC01C1F7C9E25>I<387FC1FE39FFE7FF8001EF7F6CB512F00003EB
+07F89038FC01FC496C7E157E497FA2497F1680150FA6151FA26D14005DA26D137E6D5B14
+019038FF07F8ECFFF001EF13C001E790C7FCEBE1FC01E0C8FCACEA7FFFB57EA26C90C8FC
+212F7F9E25>I<397FF007F839FFF83FFEEC7FFFD87FF9B5FC3900FBFC3FEBFFE0ECC01E
+EC800C91C7FCA25B5BA35BAD387FFFFCB57EA26C5B201F7E9E25>114
+D<3801FFCE000713FF121F5A48C6FC00FC133F5A487FA26C130E6C90C7FCEA7F8013FC38
+1FFFE06C13F8000313FE38001FFF01001380141F0070EB07C012F814037E14077E6CEB0F
+80EBC07F90B512005C00FB13F838707FC01A1F7B9E25>I<137013F8A8007FB512C0B612
+E0A26C14C0D800F8C7FCAF157015F8A4EBFC01A290387E07F0EB7FFF6D13C0010F138090
+3803FE001D287EA725>I<397FC03FE0486C487EA2007F133F00031301B21403A21407EB
+F00FEBF81F6CB612806C15C0EB7FFDD91FF01380221F7F9E25>I<39FFF00FFF6D5AA249
+7E39078001F015E013C01203EC03C013E01201EC0780EA00F0A29038F80F001378A2EB7C
+1E133CA26D5AA3EB0F38147813075CA213035CA35CA213075CA2130F91C7FC123CEA7E1E
+133E5BEA7FF8123FEA1FE0EA0F80202F7E9E25>121 D E /Fd 4
+12 df<127FEAFFE013F8EA7FFE3801FF8038003FC0EB0FF0EB03F8EB00FC147E8080EC0F
+8015C01407EC03E0A2EC01F0A21400A215F8A21578A515301D1D998332>8
+D<15301578A515F8A215F0A21401A2EC03E0A2EC07C0140F1580EC1F005C147E5CEB03F8
+EB0FF0EB3FC048B45AD87FFEC7FCEAFFF813E06CC8FC1D1D999C32>I<126012F0A57EA2
+1278127CA27EA27E7F120F6C7E7F6C7E6C7E6C7E137FEB3FC0EB0FF0EB07FE903801FFF0
+9038007FF8141FEC03F01D1D809C32>I<EC03F0EC1FF8147F903801FFF0903807FE00EB
+0FF0EB3FC049C7FC13FC485A485A485A5B485A121F90C8FC123EA25AA2127812F8A25AA5
+12601D1D808332>I E /Fe 1 16 df<EA07E0EA1FF8EA3FFCEA7FFEA2B5FCA6EA7FFEA2
+EA3FFCEA1FF8EA07E010107E9115>15 D E /Ff 37 123 df<EBFCF83807839CEA0E0700
+1C13081400A5B512E0381C0700AC387F1FE01617809615>11 D<13FCEA0782EA0E07121C
+130290C7FCA4B5FCEA1C07AC387F1FC01217809614>I<13FFEA0707120E121CA6B5FCEA
+1C07AC387F1FC01217809614>I<EA60C0EAF1E0A21270EA1020A2EA2040A2EA4080A20B
+0A7F9612>34 D<EAFF80A2090280870C>45 D<126012F0A2126004047D830A>I<120612
+0E12FE120EB1EAFFE00B157D9412>49 D<EA0F80EA30E0EA4070EA8030EAC03812E01240
+12001370A2136013C0EA0180EA03001206EA0C081208EA1018EA3FF0127F12FF0D157E94
+12>I<13101338A3135CA3138EA3EA0107A238020380A33807FFC0EA0401A2380800E0A2
+001813F0123838FE03FE17177F961A>65 D<387FFFF83860381800401308A200801304A3
+00001300AF3803FF8016177F9619>84 D<38FF83FC381F01E0380E00807EEB8100EA0382
+EA01C213E4EA00E81378A21338137C135E138EEA0187EB0780EA0203380601C0000413E0
+EA0C00001C13F038FF03FE17177F961A>88 D<EA2040A2EA4080A2EA8100A2EAE1C0EAF1
+E0A2EA60C00B0A7B9612>92 D<EA3FC0EA70601330EA20381200EA03F8EA1E3812301270
+EAE039A21379EA70FFEA1F1E100E7F8D12>97 D<12F81238A8EA39F0EA3E0CEA38061307
+7F1480A414005B1306EA361CEA21F011177F9614>I<EA07F0EA18381230EA7010EA6000
+12E0A41260EA70081230EA1830EA07C00D0E7F8D10>I<133E130EA8EA07CEEA1C3EEA30
+0E1270126012E0A412601270EA301EEA182E3807CF8011177F9614>I<EA0FC0EA1860EA
+3030EA7038EAE018EAFFF8EAE000A31260EA7008EA3010EA1830EA07C00D0E7F8D10>I<
+EA03E0EA0670120EEA1C201300A5EAFF80EA1C00ACEA7F800C1780960B>I<EA0F9EEA18
+E3EA3060EA7070A3EA3060EA18C0EA2F80EA20001260EA3FE013F813FCEA600EEAC006A3
+EA600CEA3838EA0FE010157F8D12>I<12F81238A813F8EA3B1CEA3C0E1238AA38FE3F80
+11177F9614>I<12301278A212301200A512F81238AC12FE07177F960A>I<12F81238A813
+3E13381330134013801239EA3FC0EA39E0123813F01378133CA2EAFE7F10177F9613>
+107 D<12F81238B3A312FE07177F960A>I<38F8F83E383B1CC7393C0F0380EA380EAA39
+FE3F8FE01B0E7F8D1E>I<EAF8F8EA3B1CEA3C0E1238AA38FE3F80110E7F8D14>I<EA07C0
+EA1830EA3018EA600CA2EAE00EA5EA701CEA3018EA1830EA07C00F0E7F8D12>I<EAF9F0
+EA3E1CEA380613077F1480A414005B130EEA3E1CEA39F00038C7FCA512FE11147F8D14>
+I<EA07C2EA1C26EA381EEA700E126012E0A412601270EA301EEA1C2EEA07CEEA000EA5EB
+3F8011147F8D13>I<EAF9E0EA3A70123CEA38201300A9B4FC0C0E7F8D0E>I<EA1F40EA60
+C0EAC040A2EAE000B4FCEA7F80EA1FC0EA01E0EA8060A212C0EAE0C0EA9F000B0E7F8D0E
+>I<1208A31218A21238EAFFC0EA3800A71340A4EA1C80EA0F000A147F930E>I<EAF83EEA
+380EAA131EEA1C2E3807CF80110E7F8D14>I<EAFE1FEA380EEA3C0CEA1C08A2EA0E10A2
+EA0720A213E0EA03C0A2EA0180A2100E7F8D13>I<38FEFE7C383838381410133C001C13
+20134C381E4E60380ECE401387000713801303A200031300EA0201160E7F8D19>I<EAFE
+3FEA3C1CEA1C10EA0E20EA074013C0EA0380EA01C0EA02E0EA04F0EA0870EA1838EA383C
+EAFC7F100E7F8D13>I<EAFE1FEA380EEA3C0CEA1C08A2EA0E10A2EA0720A213E0EA03C0
+A2EA0180A21300A212E2A212A4127810147F8D13>I<EAFFF0EAC0E01280EA81C0EA8380
+1287EA0700120EEA1E08121CEA3818EA70101330EAFFF00D0E7F8D10>I
+E /Fg 1 50 df<1218127812981218AC12FF08107D8F0F>49 D E
+/Fh 1 50 df<120C121C12EC120CAFEAFFC00A137D9211>49 D E
+/Fi 44 123 df<14FE90380301801306EB0C03EB1C0191C7FC13181338A43803FFFE3800
+700EA35CA213E0A25CA3EA01C01472A438038034141891C7FC90C8FCA25A12C612E65A12
+781925819C17>12 D<13031306130813181330136013C0A2EA0180EA0300A21206A25AA2
+121C1218A212381230A21270A21260A412E0A51260A51220123012107EA2102A7B9E11>
+40 D<1310A21308130C13041306A51307A51306A4130EA2130CA2131C1318A213381330
+A21360A213C0A2EA0180EA0300A212065A5A121012605A102A809E11>I<EAFFC0A30A03
+7D890F>45 D<1206120FA212061200AA1230127812F0126008127C910D>58
+D<1418A21438A21478A214B8EB0138A2EB023C141C1304130C13081310A21320A2EB7FFC
+EBC01C1380EA0100141E0002130EA25A120C001C131EB4EBFFC01A1D7E9C1F>65
+D<48B5FC39003C038090383801C0EC00E0A35B1401A2EC03C001E01380EC0F00141EEBFF
+FC3801C00E801580A2EA0380A43907000F00140E141E5C000E13F0B512C01B1C7E9B1D>
+I<48B5FC39003C03C090383800E0A21570A24913781538A215785BA4484813F0A315E038
+03800115C0140315803907000700140E5C5C000E13E0B512801D1C7E9B1F>68
+D<48B512F038003C00013813301520A35BA214081500495AA21430EBFFF03801C020A439
+038040801400A2EC0100EA07005C14021406000E133CB512FC1C1C7E9B1C>I<48B512F0
+38003C00013813301520A35BA214081500495AA21430EBFFF03801C020A448485A91C7FC
+A348C8FCA45AEAFFF01C1C7E9B1B>I<3801FFC038003C001338A45BA45BA4485AA43803
+8002A31404EA0700140C14181438000E13F0B5FC171C7E9B1A>76
+D<D801FEEB01FED8003E14E0012EEB03C01505A21509014EEB0B801513152313470187EB
+4700A21587EC0107D80107130E14021404A20002495AEB0388149014A000045C14C0A200
+0C1380001CEB007839FF8307FF271C7E9B25>I<D801FCEBFF80D8001CEB1C00012E1318
+1510A2132701475B13431480A2903881C040A3EB80E0D801005B1470A300020139C7FCA3
+141D48131E140EA2120C001C1304EAFF80211C7E9B1F>I<3801FFFE39003C0780903838
+01C015E01400A2EB7001A3EC03C001E01380EC0700141CEBFFE03801C03080141CA2EA03
+80A43807003C1520A348144039FFE01E80C7EA0F001B1D7E9B1E>82
+D<EB0F84EB304CEB403CEB8018EA01005AA200061310A214001207A2EA03E013FC6CB4FC
+38007F80EB07C01301A21300A21220A238600180A2EB03001302EAF004EACC18EA83E016
+1E7D9C17>I<3AFF83FF07F03A3C007001C00038158002F01300A290380170025D13025D
+13045D13085D131001305B1320D81C405BA2D98071C7FCA2381D0072A2001E1374A2001C
+1338A20018133014201210241D779B29>87 D<3901FF81FE39003E0078011C136015C001
+1E138090380E0100EB0F026D5A5C1490EB03A014E06D5AA28013021304497EEB10701320
+EB603813C0EB803C3801001C12020006131E121EB4EB7FC01F1C7E9B1F>I<39FFC00FE0
+391E000380000EEB02005C000F130C6C13086D5A00035B5CEBC0C000015B01C1C7FC13E2
+EA00E413EC13F81370A25BA4485AA4485AEA3FF81B1C789B1F>I<1204120812101220A2
+1240A2128012E012F0A212E0060C779C0D>96 D<EA01E3EA0717EA0C0F1218EA380E1230
+1270A2EAE01CA41339A3EA6079EA319AEA1E0C10127C9115>I<123F1207A2120EA45AA4
+EA39E0EA3A18EA3C0C12381270130EA3EAE01CA31318133813301360EA60C0EA3180EA1E
+000F1D7C9C13>I<13F8EA0304120EEA1C0EEA181CEA30001270A25AA51304EA60081310
+EA3060EA0F800F127C9113>I<EB07E01300A2EB01C0A4EB0380A43801E700EA0717EA0C
+0F1218EA380E12301270A2485AA41339A3EA6079EA319AEA1E0C131D7C9C15>I<13F8EA
+0704120CEA1802EA38041230EA7008EA7FF0EAE000A5EA60041308EA30101360EA0F800F
+127C9113>I<EB03C0EB0670130CEB1C601400A25BA53803FF8038007000A55BA5485AA5
+485AA390C7FCA25A12C612E65A12781425819C0D>I<EB78C0EA01C5EA03031206000E13
+80120C121CA238380700A4130EA3EA181EEA0C7CEA079CEA001CA25BA2EAC030EAE070EA
+C1C0007FC7FC121A7E9113>I<EA0FC01201A2485AA448C7FCA4EA0E3E13C3380F038012
+0E121E121CA338380700A3130E00701340A2131C1480EAE00C38600700121D7E9C15>I<
+EA01801203EA0100C7FCA7121C12261247A2128EA2120E5AA35AA21271A31272A2123C09
+1C7C9B0D>I<1303130713031300A71378138CEA010C1202131C12041200A21338A41370
+A413E0A4EA01C0A2EAC180EAE30012C612781024819B0D>I<EA0FC01201A2485AA448C7
+FCA4380E07801308EB11C01321381C4180EB8000001DC7FC121EEA3FC0EA38E01370A2EA
+7071A31372EAE032EA601C121D7E9C13>I<EA1F801203A2EA0700A4120EA45AA45AA45A
+A412E2A312E412641238091D7D9C0B>I<391C1E078039266318C0394683A0E0384703C0
+008E1380A2120EA2391C0701C0A3EC0380D8380E1388A2EC0708151039701C032039300C
+01C01D127C9122>I<EA383EEA4CC3384D0380124E129E129C121CA238380700A3130E00
+701340A2131C1480EAE00C3860070012127C9117>I<13F8EA030CEA0E06487E12181230
+00701380A238E00700A3130EA25BEA60185BEA30E0EA0F8011127C9115>I<3803878038
+04C860EBD03013E0EA09C014381201A238038070A31460380700E014C0EB0180EB8300EA
+0E86137890C7FCA25AA45AB4FC151A809115>I<EA1C3CEA2642EA4687EA4707EA8E0613
+00120EA25AA45AA45A123010127C9112>114 D<EA01F0EA0608120C131CEA1818EA1C00
+121F13C0EA0FF01207EA00781338EA603012E012C0EA8060EA60C0EA1F000E127D9111>
+I<12035AA3120EA4EAFFE0EA1C00A35AA45AA4EAE080A2EAE100A2126612380B1A7C990E
+>I<381C0180EA2E03124EA2388E0700A2121CA2EA380EA438301C80A3EA383C38184D00
+EA0F8611127C9116>I<EA1C06EA2E0EEA4E06A2EA8E02A2121CA2EA3804A313081230A2
+1310EA3820EA1840EA0F800F127C9113>I<381E0183382703871247148338870701A212
+0EA2381C0E02A31404EA180C131C1408EA1C1E380C26303807C3C018127C911C>I<3803
+8780380CC840380870E012103820E0C014001200A2485AA4EA03811263EAE38212C5EA85
+84EA787813127E9113>I<381C0180EA2E03124EA2388E0700A2121CA2EA380EA4EA301C
+A3EA383CEA1878EA0FB8EA003813301370EAE0605BEA81800043C7FC123C111A7C9114>
+I<EA01C1EA07E1EA0FF6EA081CEA1008EA0010132013401380EA010012025AEA08041210
+EA2C0CEA73F8EA41F0EA80E010127E9111>I E /Fj 44 122 df<B51280A611067F9016>
+45 D<121C127FA2EAFF80A3EA7F00A2121C09097B8813>I<130E131E137EEA07FE12FFA2
+12F81200B3ABB512FEA317277BA622>49 D<EBFF80000713F04813FC381E03FE393800FF
+80007C133F00FE14C06C131F15E0140FA2127E003C131FC7FC15C0A2EC3F801500147E5C
+5C495A495AEB078049C7FC131E4913E013705B3901C001C0EA0380EA0600000FB5FC5A5A
+5AB61280A31B277DA622>I<EB7F803803FFF04813FC380F81FE381F007FEA3F80EC3F80
+A3121F1300C7EA7F00A2147E5C495AEB07F0EBFFC0A2EB01F8EB007E801580EC1FC0A215
+E0A2123C127EB4FCA215C0143F481480007CEB7F00383F01FE6CB45A000713F0C613801B
+277DA622>I<140FA25C5C5C5C5BA2EB03BFEB073F130E131C133C1338137013E0EA01C0
+EA038012071300120E5A5A5A12F0B612F8A3C7EA7F00A890381FFFF8A31D277EA622>I<
+00181303381F801FEBFFFE5C5C5C14C091C7FC001CC8FCA7EB7FC0381DFFF8381F80FC38
+1E003F121CC7EA1F8015C0A215E0A21218127C12FEA315C05A0078EB3F80A26CEB7F0038
+1F01FE6CB45A000313F0C613801B277DA622>I<EB07F8EB3FFE90B5FC3901FC07803903
+F00FC03807C01FEA0F80121F130048EB0F8091C7FC127EA3EAFE02EB1FF0EB3FFCEB603E
+EB801F00FF14809038000FC0A24814E0A4127EA4123E003F14C07EEC1F80D80F80130038
+07E07E6CB45A6C5B38003FC01B277DA622>I<121C127FEAFF80A5EA7F00121CC7FCA512
+1CA4123EA8127FA8EAFF80A6EA7F00123E092A7B9D14>60 D<1370EA01FC487EA56C5AEA
+007090C7FCA51370A713F05B1201A2485A1207485A121F48C7FC5A007E133800FE137C14
+FEA3147E007E133C1478383F01F0381FFFC03803FE00172A7C9D20>62
+D<B612F815FF16C03A03F8001FE0ED0FF0ED07F8150316FCA21501A3150316F8A2ED07F0
+150FED1FC0EDFF8090B5EAFE00EDFFC09039F8000FF0ED03F8ED01FC16FE1500A216FFA6
+16FE1501ED03FC1507ED1FF8B712E016C0EDFE0028297DA830>66
+D<91387FE003903907FFFC07011FEBFF0F90397FF00F9F9039FF0001FFD801FC7F484814
+7F4848143F4848141F485A160F485A1607127FA290C9FC5AA97E7F1607123FA26C7E160E
+6C7E6C6C141C6C6C143C6C6C14786CB4EB01F090397FF007C0011FB512800107EBFE0090
+38007FF028297CA831>I<B712C0A33903FC003FED0FE015031501A21500A316F0913801
+C070A316001403A2140F90B5FCA3EBFC0F1403A21401A491C8FCA9B512FCA324297EA82A
+>70 D<91387FE003903907FFFC07011FEBFF0F90397FF00F9F9039FF0001FFD801FC7F48
+4880484880484880485A82485A82127FA290CAFC5AA892B512F87E7F03001300123FA26C
+7EA26C7E6C7E6C7E6C7E6CB45B90387FF007011FB5129F0107EBFE0F9039007FF0032D29
+7CA835>I<B5D8F00FB5FCA3D803FCC7EA3FC0AF90B7FCA301FCC7123FB1B5D8F00FB5FC
+A330297EA835>I<B512F0A33803FC00B3B1B512F0A314297EA819>I<D8FFFE92383FFF80
+A26D5D0003EFE000A2D9BF8014EFA2D99FC0EB01CFA2D98FE0EB038FA3D987F0EB070FA2
+D983F8130EA2D981FC131CA3D980FE1338A2027F1370A291383F80E0A391381FC1C0A291
+380FE380A2913807F700A3EC03FEA26E5AA26E5AD8FFFE0203B51280A2157039297DA840
+>77 D<9038FF80600003EBF0E0000F13F8381F80FD383F001F003E1307481303A200FC13
+01A214007EA26C140013C0EA7FFCEBFFE06C13F86C13FE80000714806C14C0C6FC010F13
+E0EB007FEC1FF0140F140700E01303A46C14E0A26C13076C14C0B4EB0F80EBE03F39E3FF
+FE0000E15B38C01FF01C297CA825>83 D<007FB71280A39039807F807FD87C00140F0078
+1507A20070150300F016C0A2481501A5C791C7FCB3A490B612C0A32A287EA72F>I<B53C
+E07FFFE01FFFC0A32803FC0003FCC7EA7000A26D6D7E000160A26D6E13016C604B138002
+801503017F5F4B13C0D93FC0013F49C7FCA2913AE00E1FE00F011F160E17F09126F01C0F
+131E010F161C033C13F8902707F838075BA2037813FC902703FC70035BA2913AFEE001FE
+F001015E02FF14FF4B7E6D5EA26E486D5AA36EC76CC8FCA2023E80021E141EA242297FA8
+45>87 D<3803FF80000F13F0381F01FC383F80FE147F801580EA1F00C7FCA4EB3FFF3801
+FC3FEA0FE0EA1F80EA3F00127E5AA4145F007EEBDFC0393F839FFC381FFE0F3803FC031E
+1B7E9A21>97 D<EAFFE0A3120FACEBE1FE9038EFFF809038FE07E09038F803F09038F001
+F89038E000FCA2157EA2157FA8157EA315FCA29038F001F89038F803F090389C0FE09038
+0FFF80390E01FC00202A7EA925>I<EB3FF03801FFFC3803F03E380FC07FEA1F80EA3F00
+A248133E007E90C7FCA212FEA7127EA2127F6CEB03801380001FEB0700380FE00E3803F8
+3C3801FFF838003FC0191B7E9A1E>I<EC7FF0A31407ACEB3F873801FFF73807F03F380F
+C00F381F8007EA3F00A2127EA312FEA8127EA27EA2381F800F380FC01F3907E07FFF3801
+FFE738007F87202A7EA925>I<EB3FC03801FFF03807E07C48487E48487ED83F00138014
+0F5A007E14C012FE1407A2B6FCA248C8FCA4127E127F6CEB01C01380001F1303390FC007
+803903F01F003800FFFCEB3FE01A1B7E9A1F>I<EB07F8EB3FFCEB7E3E3801FC7FEA03F8
+13F01207143E1400A7B512C0A33807F000B3A3387FFF80A3182A7EA915>I<9038FF80F0
+0003EBE3F8390FC1FE1C391F007C7C48137E003EEB3E10007EEB3F00A6003E133E003F13
+7E6C137C380FC1F8380BFFE00018138090C8FC1238A2123C383FFFF814FF6C14C06C14E0
+6C14F0121F383C0007007CEB01F8481300A4007CEB01F0A2003FEB07E0390FC01F806CB5
+120038007FF01E287E9A22>I<EAFFE0A3120FAC147E9038E1FF809038E30FC001E413E0
+EBE80701F813F013F0A213E0B039FFFE3FFFA3202A7DA925>I<1207EA1FC0EA3FE0A5EA
+1FC0EA0700C7FCA7EAFFE0A3120FB3A3EAFFFEA30F2B7EAA12>I<1307EB1FC0EB3FE0A5
+EB1FC0EB070090C7FCA7EBFFE0A3130FB3AA127C12FEEB1FC0A21480387C3F00EA3FFCEA
+0FF0133784AA15>I<EAFFE0A3120FACEC1FFCA3EC07C0EC0F80EC1E00147C5CEBE1F0EB
+E3E013E713EFEBFFF080EBFBFC13F1EBE1FEEBC0FFEC7F80143F15C0EC1FE0EC0FF01407
+39FFFC1FFFA3202A7FA923>I<EAFFE0A3120FB3B2EAFFFEA30F2A7EA912>I<26FFC07FEB
+1FC0903AC1FFC07FF0903AC307E0C1F8D80FC49038F101FC9039C803F20001D801FE7F01
+D05BA201E05BB03CFFFE3FFF8FFFE0A3331B7D9A38>I<38FFC07E9038C1FF809038C30F
+C0D80FC413E0EBC80701D813F013D0A213E0B039FFFE3FFFA3201B7D9A25>I<EB3FE038
+01FFFC3803F07E390FC01F80391F800FC0393F0007E0A2007EEB03F0A300FE14F8A8007E
+14F0A26CEB07E0A2391F800FC0390FC01F803907F07F003801FFFC38003FE01D1B7E9A22
+>I<38FFE1FE9038EFFF809038FE0FE0390FF803F09038F001F801E013FC140015FEA215
+7FA8157E15FEA215FC140101F013F89038F807F09038FC0FE09038EFFF809038E1FC0001
+E0C7FCA9EAFFFEA320277E9A25>I<38FFC1F0EBC7FCEBC63E380FCC7F13D813D0A2EBF0
+3EEBE000B0B5FCA3181B7F9A1B>114 D<3803FE30380FFFF0EA3E03EA7800127000F013
+70A27E00FE1300EAFFE06CB4FC14C06C13E06C13F0000713F8C6FCEB07FC130000E0137C
+143C7E14387E6C137038FF01E038E7FFC000C11300161B7E9A1B>I<13E0A41201A31203
+A21207120F381FFFE0B5FCA2380FE000AD1470A73807F0E0000313C03801FF8038007F00
+14267FA51A>I<39FFE07FF0A3000F1307B2140FA2000713173903F067FF3801FFC73800
+7F87201B7D9A25>I<39FFFC03FFA3390FF000F0000714E07F0003EB01C0A2EBFC030001
+1480EBFE070000140013FFEB7F0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA2201B
+7F9A23>I<3BFFFC7FFC1FFCA33B0FE00FE001C02607F007EB0380A201F8EBF007000316
+00EC0FF801FC5C0001150EEC1FFC2600FE1C5B15FE9039FF387E3C017F1438EC787F6D48
+6C5A16F0ECE01F011F5CA26D486C5AA2EC800701075CA22E1B7F9A31>I<39FFFC1FFEA3
+3907F003803803F8079038FC0F003801FE1E00005BEB7F3814F86D5A6D5A130F806D7E13
+0F497EEB3CFEEB38FFEB787F9038F03F803901E01FC0D803C013E0EB800F39FFF03FFFA3
+201B7F9A23>I<39FFFC03FFA3390FF000F0000714E07F0003EB01C0A2EBFC0300011480
+EBFE070000140013FFEB7F0EA2149EEB3F9C14FC6D5AA26D5AA36D5AA26D5AA25CA21307
+003890C7FCEA7C0FEAFE0E131E131C5BEA74F0EA3FE0EA0F8020277F9A23>I
+E /Fk 6 116 df<3803F040380C0CC0EA1002EA3001EA600012E01440A36C13007E127E
+EA7FE0EA3FFC6CB4FC00071380EA007FEB07C0EB03E0130113007EA36C13C0A238E00180
+38D00300EACE06EA81F8131E7D9C19>83 D<007FB512C038700F010060130000401440A2
+00C014201280A300001400B1497E3803FFFC1B1C7D9B21>I<38FF81F8381C01E0148014
+0013025B5B5B1330137013B8EA1D1C121EEA1C0E7F14801303EB01C014E014F038FF83FC
+16157F941A>107 D<EAFFC0001CC7FCAC1480A3130114005B5BB5FC11157F9415>I<EA01
+F8EA070EEA0C03001C1380383801C0007813E0EA700000F013F0A7007013E0EA78010038
+13C0381C0380EA1E0738070E00EA01F814157E941A>111 D<EA1F10EA30F0EA603012C0
+1310A2EAE000A2127EEA3FC0EA1FE0EA03F0EA0078133813181280A21310EAC030EAF060
+EA8F800D157E9413>115 D E /Fl 26 90 df<1270A212F0126004047C830C>46
+D<13181330EA03F0EA0C701200A313E0A6EA01C0A6EA0380A6EA07001380EAFFF80D1C7C
+9B15>49 D<137E38018380380201C0380400E0A2120FA25AA2120EEA000114C0EB0380A2
+EB0700130E5B5B13605B485A380300801206380801001210EA3FFF485A12FF131C7E9B15
+>I<137CEA0187380203801204000F13C0A3000E13801200EB070013065B1338EA03F0EA
+001C7FA2130FA3127012F8A2EAF00EEAE01EEA801CEA4038EA3070EA0F80121D7D9B15>
+I<14C0EB01801303A21307130B1313EB2700136713C71387EA01071202EA040E12081218
+121012201240B512C038001C00A55B133C3803FF80121C7E9B15>I<380301C0EBFF8038
+07FE0013F80004C7FCA45AA213F8EA0B0CEA0C0EEA0807121012001480A338700F0012F0
+A2130EEA801E131CEA40381330EA30E0EA0F80121D7D9B15>I<14201430147014F0A213
+0180EB0278A21304A21308801310A21320A2EB403E141EEBFFFEEB801EEA0100141F0002
+7FA25A120C001E148039FF807FF01C1D7F9C1F>65 D<3807FFFE3900F807809038F001C0
+15E0140015F0A2484813E0140115C01403EC0780EC1E003803FFFCEBC00FEC0780EC03C0
+A3EA0780A4EC0780EC0F00380F001E5CB512E01C1C7F9B1D>I<903807F01090381C0C30
+90387002609038C001E03803800048C7FC000E1460A2481440123C123800781400A35AA5
+1580EC01001270A26C13025C7E000C13186C1320380380C0D8007FC7FC1C1E7C9C1E>I<
+380FFFFC3900F807809038F001C0EC00E01570A2157848481338A4153C1538485A1578A3
+157015F0484813E0A2EC01C0EC03801407EC0E0048485A1470B512C01E1C7E9B20>I<00
+07B512E03800F801EBF0001540A4485A14201500A2146014E048B45A13C01440A3158038
+078000A2EC0100A25C1406380F000E143EB512FC1B1C7E9B1C>I<0007B512C03800F803
+EBF001EC0080A4485A14201500A2146014E048B45A13C01440A44848C7FCA648C8FC7FEA
+FFF81A1C7E9B1B>I<903807F01090381C0C3090387002609038C001E03803800048C7FC
+000E1460A2481440123C123800781400A35AA3ECFFF0EC0F801407EC0F001270A27EA26C
+5B000C131E6C136638038182D8007EC7FC1C1E7C9C21>I<3A07FF87FF803A00F800F800
+495BA54848485AA648B55AEBC003A54848485AA6484848C7FC01807F39FFF0FFF0211C7F
+9B1F>I<EA07FFEA00F813F0A5EA01E0A6EA03C0A6EA0780A6EA0F001380EAFFF0101C7F
+9B0F>I<3807FFC03800F8005BA5485AA6485AA51404EA0780A31408A21418380F003814
+F0B5FC161C7E9B1A>76 D<D807F8EB07FC0000EC0FC001BC14801517A21527A2D8011EEB
+4F00A2158FA2EC010F130F0002EB021EA21404A2EB0788149000045C14A0A214C0130314
+80000C5C001EEB007C3AFF8307FF80261C7E9B26>I<D807F8EBFF800000EC3C0001BC13
+181510139E139F138F39010F8020130714C0130314E01301390200F040A21478A2143CA2
+486D5A141F140FA21407A2000C6DC7FC001E7FEAFF80211C7F9B1F>I<EB07F0EB381CEB
+E00E3801C003D80380138039070001C0120E001E14E0001C1300123C1238007814F0A348
+EB01E0A4EC03C0A30070EB0780150000785B0038131E003C131C001C5B6C13E038038380
+D800FEC7FC1C1E7C9C20>I<3807FFFC3800F80F9038F0038015C01401A33801E003A315
+80EC0700140E3803C03CEBFFE001C0C7FCA4485AA648C8FC7FEAFFF01A1C7E9B1C>I<38
+0FFFF83800F80E9038F00780EC03C0140115E0A23901E003C0A21580EC0700140E143C38
+03FFE0EBC078141C141E140E140F3807801EA51508D80F001310138039FFF00E20C7EA03
+C01D1D7E9B1F>82 D<EB3F04EBC0CC38018038EA030000061318120EA3001E1310140012
+1F6C7E13F86CB4FC6C13806C13C038003FE0130313011300A21240A314C0EA600100E013
+8038F00300EACC0EEA83F8161E7E9C17>I<001FB512F0383C07C00030EB803000201420
+12601240A2EB0F00128000001400A4131EA65BA65B137C381FFFE01C1C7C9B1E>I<39FF
+F01FF0391F000780001EEB03001402A4485BA6485BA6485BA212705CA26C5B5C6C48C7FC
+EA0E0EEA01F01C1D7A9B1F>I<3BFFE1FFC0FF803B1F003E003E006C011E1318A2161016
+301620023E1360D9802F13400007014F13C05EEC8F0193C7FCEB810F9038C10782EA03C2
+158413C601C4138813CC01C813D03801F80301F013E0A201E05BA201C05B000013010180
+90C8FC291D7B9B2B>87 D<39FFE007F8391F8001C0D80F00138001801300000713026D5A
+0003130C14086D5A00015BEBF060000013406D5A01F9C7FC137B137E133CA213381378A5
+137013F07FEA0FFF1D1C7B9B1F>89 D E /Fm 71 127 df<126012F0AF12601200A41260
+12F0A212600419779816>33 D<EA6030EAF078A8EAE038A30D0C7C9916>I<EA0387A6B5
+12E0A338070E00A3EA0F1EEA0E1CA3B512E0A3381C3800A613197F9816>I<1230127812
+7C123C121CA3123C1238127812F012E012C0060D789816>39 D<13E01201EA07C013005A
+121E5A123812781270A312F05AA77E1270A312781238123C7E7E7E13C0EA01E012000B21
+7A9C16>I<12E07E127C121C121E7EEA0780120313C01201A313E01200A7120113C0A312
+0313801207EA0F00121E121C127C12F05A0B217C9C16>I<EA0380A4EAE38EEAF39EEAFF
+FEEA3FF8EA0FE0A2EA3FF8EAFFFEEAF39EEAE38EEA0380A40F127D9516>I<1238127C12
+7EA2123E120E121E123C127C12F81260070B798416>44 D<B51280A311037E8D16>I<12
+7012F8A312700505788416>I<EB01801303130714005B130E131E131C133C1338137813
+7013F05B12015BA212035B120790C7FC5A120E121E121C123C12381278127012F05AA211
+207E9C16>I<EA03E0EA0FF8487EEA1E3CEA380EEA780FEA7007A238E00380A8EAF00700
+701300A2EA780FEA3C1E6C5AEA1FFC6C5AEA03E011197E9816>I<12035A5AA25AB4FCA2
+12F71207AEEAFFF8A30D197B9816>I<EA07E0EA1FF8EA7FFEEA783FEAF00FEB07801303
+A21200A2130714005B131E5B5B5BEA03E0EA078048C7FC381E0380123CEA7FFFB5FC7E11
+197E9816>I<EA07E0EA1FFCEA7FFEEA781F7F7F12005BA2133EEA07FC5B7FEA001E1307
+14801303A212F013071400EAF81FEA7FFE6C5AEA07E011197E9816>I<137C13FC13DC12
+01EA039CA2EA071C120F120E121E123C1238127812F0B512E0A338001C00A53801FFC0A3
+13197F9816>I<EA3FFE127FA20070C7FCA7EA77F0EA7FFC7FEA7C0FEA30070000138013
+03126012F01307EB0F006C5AEA7FFEEA1FF8EA07E011197E9816>I<EA03E0EA0FF8EA3F
+FCEA7C1EEA780F12F0487E1480A21303EAF007A2EA780FEA3FFF13FBEA0FE3EA00071400
+EA300FEA780E131E137CEA7FF86C5AEA0F8011197E9816>57 D<127012F8A312701200A8
+127012F8A312700512789116>I<1238127CA312381200A81238127CA3123C121C123C12
+38127812F012600618799116>I<EB03801307131FEB3E0013FCEA03F0485AEA1F80003E
+C7FC12FC12F012FC123E6C7EEA07E06C7EEA00FC133EEB1F801307130311157E9616>I<
+B512E0A3C8FCA5B512E0A3130B7F9116>I<12E07E12FC123E6C7EEA07E06C7EEA00FC13
+3EEB1F801307131FEB3E0013FCEA03F0485AEA1F80003EC7FC12FC12F05A11157E9616>
+I<13E0487EA213B0A2EA03B8A31318EA071CA5EA0E0EA2EA0FFEA2487EEA1C07A3387E0F
+C038FF1FE0387E0FC013197F9816>65 D<EA7FF8EAFFFE6C7EEA1C0714801303A4EB0700
+EA1FFF5BA2EA1C1FEB038014C01301A41303EB0780EA7FFFB51200EA7FFC12197F9816>
+I<3801F180EA07FF5AEA1F0FEA3C0712781303127000F0C7FC5AA77E387003801278A2EA
+3C07381F0F00EA0FFE6C5AEA01F011197E9816>I<EA7FF8EAFFFE6C7EEA1C0FEB0780EB
+03C01301A214E01300A8EB01C0A21303EB0780130F387FFF00485AEA7FF81319809816>
+I<387FFFC0B5FC7EEA1C01A490C7FCA2131CA2EA1FFCA3EA1C1CA290C7FC14E0A5EA7FFF
+B5FC7E13197F9816>I<387FFFE0B5FC7EEA1C00A41400A2131CA2EA1FFCA3EA1C1CA290
+C7FCA6EA7F80487E6C5A13197F9816>I<3801F180EA07FF5AEA1F0FEA3C071278130312
+7000F0C7FC5AA4EB1FC014E014C038F003801270EA7807A2EA3C0FEA1E1FEA0FFFEA07FB
+EA01F313197F9816>I<387F07F038FF8FF8387F07F0381C01C0A7EA1FFFA3EA1C01A938
+7F07F038FF8FF8387F07F01519809816>I<EA7FFCEAFFFEEA7FFCEA0380B3EA7FFCEAFF
+FEEA7FFC0F197D9816>I<B47E7F5B001CC7FCAE144014E0A4B5FCA313197F9816>76
+D<38FC07E0EAFE0FA2383A0B80EA3B1BA513BBEA39B3A413F3EA38E3A21303A538FE0FE0
+A313197F9816>I<387E07F038FF0FF8387F07F0381D81C0A313C1121C13E1A213611371
+A313311339A21319131D130DA3EA7F07EAFF87EA7F031519809816>I<EA1FFC487E487E
+EA780F38F00780EAE003AEEAF007A238780F00EA7FFF6C5A6C5A11197E9816>I<EA1FFC
+487E487EEA780F38F00780EAE003AD13E312E1EAF0F738787F00EA7FFF6C5A6C5AEA001C
+131E130E130F7FA2111F7E9816>81 D<EA7FF0EAFFFC6C7EEA1C0FEB07801303A41307EB
+0F00EA1FFE5B7FEA1C1F1307A414101438A2007F13F838FF83F0387F01E01519809816>
+I<EA07E3EA1FFF127FEA781F487E487EA290C7FC7E1278EA7F80EA1FF0EA07FCC67E130F
+EB07801303A212E0A2EAF00738F80F00EAFFFE5BEAC7F011197E9816>I<387FFFE0B5FC
+A2EAE0E0A400001300AFEA07FC487E6C5A13197F9816>I<387F07F038FF8FF8387F07F0
+381C01C0B0EA1E03000E1380EA0F8F3807FF006C5AEA00F81519809816>I<387E03F038
+FF07F8387E03F0383800E0A4381C01C0A3137113F9A213D9A2000C1380A3EA0DDD138DA3
+38078F00A213071519809816>87 D<38FE0FE0EAFF1FEAFE0F381C0700A2EA0E0EA26C5A
+A3EA03B8A2EA01F0A26C5AA8EA03F8487E6C5A13197F9816>89 D<EAFFF0A3EAE000B3A8
+EAFFF0A30C20789C16>91 D<EAFFF0A3EA0070B3A8EAFFF0A30C207F9C16>93
+D<EA1FE0EA7FF87FEA783EEA301EEA000EA2EA03FE121FEA7E0E12F012E0A2EAF01EEAF8
+3E387FFFE0EA3FE7EA0F8313127E9116>97 D<12FCA3121CA4137CEA1DFF001F1380EB07
+C0EA1E03381C01E0A21300A41301001E13C01303381F078013FF381DFE00EA0C7813197F
+9816>I<EA03F8EA0FFE121FEA3C1EEA780CEA700012F05AA47EEA70071278EA3E0FEA1F
+FEEA0FFCEA03F010127D9116>I<133FA31307A4EA03C7EA0FF7EA3FFFEA3C1F487EEA70
+0712F012E0A412F05BEA781FEA7C3F383FFFE0EA1FF7EA07C713197F9816>I<EA03F0EA
+0FFC487EEA3E1FEA780700701380EAF003B5FCA300E0C7FC7E387003801278EA3E0F381F
+FF006C5AEA03F811127E9116>I<131FEBFF805AEA03C7EB83001380A2EA7FFFB5FCA2EA
+0380ACEA7FFC487E6C5A11197F9816>I<3803E3C0380FFFE05A381E3CC0383C1E00EA38
+0EA3EA3C1E6C5AEA1FFC5BEA3BE00038C7FCA2EA1FFC13FF4813C0EA780338F001E0EAE0
+00A3EAF001387C07C0383FFF80380FFE00EA03F8131C7F9116>I<12FCA3121CA41378EA
+1DFEEA1FFF130FEA1E07A2121CA938FF8FE0139F138F13197F9816>I<1203EA0780A2EA
+0300C7FCA4EAFF80A31203ACEAFFFC13FE13FC0F1A7C9916>I<13301378A213301300A4
+EA0FF8121F120FEA0038B3EA6078EAF0F0EAFFE0EA7FC0EA3F800D237E9916>I<127E12
+FE127E120EA4EB7FE0A3EB0F00131E5B5B5BEA0FF8A213BC131EEA0E0E130FEB0780387F
+87F0EAFFCFEA7F871419809816>I<EA7FC012FF127F1201B3EA7FFFB512806C13001119
+7E9816>I<38F9C38038FFEFC0EBFFE0EA3E7CEA3C78EA3870AA38FE7CF8A31512809116>
+I<EAFC78EAFDFEB5FCEA1F0FEA1E07A2121CA938FF8FE0139F138F13127F9116>I<EA03
+E0EA0FF8487EEA3C1E487EEA700738E00380A5EAF00700701300EA780FEA3C1EEA1FFC6C
+5AEA03E011127E9116>I<EAFC7CEAFDFFB51280381F07C0EA1E03381C01E0A21300A413
+01001E13C01303381F078013FF381DFE00EA1C7890C7FCA6B47EA3131B7F9116>I<3803
+E380EA0FFBEA1FFFEA3E1FEA780FEA7007EAF00312E0A412F0EA7007EA780FEA3C1FEA3F
+FFEA0FFBEA03E3EA0003A6EB1FF0EB3FF8EB1FF0151B7F9116>I<387F0FC038FF3FE0EA
+7F7F3807F040EBE0005B5BA290C7FCA7EA7FFC12FF127F13127F9116>I<EA0FECEA3FFC
+127FEAF03CEAE01CA2EAF000EA7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC
+13F8EAC7E00F127D9116>I<12035AA4EA7FFFB5FCA20007C7FCA75BEB0380A213071387
+3803FF005BEA00F811177F9616>I<EAFC3FA3EA1C07AA5BEA1E1F381FFFE07EEA07C713
+127F9116>I<387F1FC038FF9FE0387F1FC0381C0700A2EA0E0EA36C5AA4EA03B8A3EA01
+F0A26C5A13127F9116>I<38FF1FE0A338380380A4EA39F3A20019130013B3A3EA1DB713
+17EA1F1FEA0F1EEA0E0E13127F9116>I<387F1FC0133F131F380F1E006C5AEA03B813F0
+12016C5A12017FEA03B8EA073C131CEA0E0E387F1FC038FF3FE0387F1FC013127F9116>
+I<387F1FC038FF9FE0387F1FC0381C0700120E130EA212075BA2EA039CA21398EA01B8A2
+EA00F0A35BA3485A1279127BEA7F8090C7FC123C131B7F9116>I<EA1E30EA3F78EAFFF8
+EAF7E0EA63C00D057C9816>126 D E /Fn 59 122 df<EB3FC03801F0303803C0380007
+137CEA0F80A2143891C7FCA4B512FCA2380F807CAE397FE1FF80A2191D809C1B>12
+D<EA781EEAFC3FA200FE1380A2EA7A1EEA0200A238040100A2EA0802A2EA300CEA401011
+0E7E9C19>34 D<EAFFF8A40D04808A10>45 D<1360EA01E0120F12FF12F31203B3A2387F
+FF80A2111B7D9A18>49 D<EA07F8EA1FFE38383F8038780FC0EAFC0714E01303A21278EA
+000714C0A2EB0F80EB1F00131E13385B5B38018060EA03001206000813E0381FFFC05A5A
+B5FCA2131B7E9A18>I<EA07F8EA1FFEEA3C1FEB0F80387C07C0127E127C123838000F80
+A2EB1E005BEA03F8EA001EEB0F80EB07C0A214E01230127812FCA214C038780F80EB1F00
+EA1FFEEA07F8131B7E9A18>I<EB018013031307130F131F133F136F13CF138F1201EA03
+0F1206120C12181230126012C0B512F8A238000F80A6EBFFF8A2151B7F9A18>I<383801
+80383FFF005B5B5B13C00030C7FCA4EA31F8EA361E38380F80EA3007000013C014E0A312
+7812F8A214C012F038600F8038381F00EA1FFEEA07F0131B7E9A18>I<137EEA03FF3807
+8180380F03C0EA1E07123C387C03800078C7FCA212F813F8EAFB0E38FA0780EAFC0314C0
+00F813E0A41278A214C0123CEB0780381E0F00EA07FEEA03F8131B7E9A18>I<1260387F
+FFE0A214C01480A238E00300EAC0065B5BC65AA25B13E0A212015B1203A41207A66C5A13
+1C7D9B18>I<EA03F8EA0FFE381E0F80EA3807EB03C01278127C127E387F8380383FC700
+13FE6C5A6C7E6C7E001D138038387FC038781FE0EA700FEAF0031301A3007813C0EB0380
+EA3E07381FFE00EA03F8131B7E9A18>I<EA03F8EA0FFEEA1E0F383C07801278EB03C012
+F8A214E0A4EA78071238EA3C0BEA0E1BEA03E3EA000314C0A2EA3807007C13801400EA78
+0FEA383CEA1FF8EA0FE0131B7E9A18>I<127812FCA412781200A6127812FCA412780612
+7D910D>I<EA0FF0EA303CEA601EEAF01F12F8A21270EA003E133C137013E0EA01C01380
+A2EA0300A5C7FCA4EA0780EA0FC0A4EA0780101D7D9C17>63 D<EB0380A2497EA3497EA2
+497E131BEB3BF81331A2EB60FCA2EBE0FEEBC07EA248487E90B5FC481480EB001F4814C0
+0006130FA248EB07E0A239FF803FFEA21F1C7E9B24>65 D<B512F814FF390FC01F80EC0F
+C0140715E0A515C0EC0F80EC3F00EBFFFE9038C00F80EC07C0EC03E0A215F0A5EC07E0A2
+EC1FC0B6120014FC1C1C7E9B22>I<90381FE0209038FFF8E03803F80F3807C003380F80
+0148C7FC123E1560127E127C00FC1400A8007C1460127E123E15C07E390F8001803907C0
+03003803F80E3800FFFCEB1FE01B1C7D9B22>I<B512F814FF390FC01FC0EC07E0EC01F0
+15F8140015FC157CA2157EA8157CA315F8A2EC01F0EC07E0EC1FC0B6120014F81F1C7E9B
+25>I<B6FCA2380FC01F1407801580A214C1A39038C1C00013C313FFA213C313C113C015
+60A2EC00E015C0A21401A21403EC0F80B6FCA21B1C7E9B1F>I<B6FCA2380FC01F140780
+1580A2140114C1A2ECC00013C113C313FFA213C313C113C0A391C7FCA6EAFFFEA2191C7E
+9B1E>I<90380FF00890387FFE383901FC07F83807E001390F80007848C7FC481438123E
+007E1418127C00FC1400A6EC7FFFA2007CEB01F8127E123E123F7EEA0F80EA07E03801FC
+0739007FFE7890380FF818201C7D9B26>I<39FFFC3FFFA2390FC003F0AA90B5FCA2EBC0
+03AC39FFFC3FFFA2201C7E9B25>I<EAFFFCA2EA0FC0B3A6EAFFFCA20E1C7E9B12>I<39FF
+FC07FFA2390FC000E04A5A4A5A0206C7FC5C14385C5CEBC1C013C3EBC7E0EBCFF013FBEB
+F1F8EBE0FC497E147E806E7E81140F6E7E816E7E3AFFFC1FFF80A2211C7E9B25>75
+D<EAFFFEA2EA0FC0AF1403A31407A21406140E141E147EB512FEA2181C7E9B1D>I<D8FF
+C0EB03FF6D5B000F15F0D80DF0130DA3D80CF81319A2017C1331A26D1361A26D13C1A390
+380F8181A2903807C301A2EB03E6A2EB01FCA3EB00F8A23AFFC0701FFFA2281C7E9B2D>
+I<39FFE003FFA2390FF000307FEA0DFCEA0CFE137E7FEB1F8014C0EB0FE0EB07F01303EB
+01F814FCEB00FE147F143FEC1FB015F0140F1407140314011400A2D8FFC013701530201C
+7E9B25>I<EB3FE03801F07C3803C01E390F800F80391F0007C0001E1303003E14E0007E
+14F0007C1301A200FC14F8A8007C14F0007E1303A2003E14E0003F13076C14C0390F800F
+803903C01E003801F07C38003FE01D1C7D9B24>I<B512F814FE390FC03F80140FEC07C0
+15E0A515C0A2EC0F80EC3F00EBFFFC01C0C7FCABEAFFFCA21B1C7E9B21>I<B512F014FE
+380FC03FEC0F806E7E81A55D4A5A023EC7FCEBFFF0EBC07C80143F6E7EA6ED8180A2EC0F
+C13AFFFC07C300EC01FE211C7E9B24>82 D<3807F820381FFEE0EA3C07EA7801EA700012
+F01460A26C130012FEEAFFE0EA7FFE6C7E1480000F13C06C13E0EA007FEB03F013011300
+12C0A214E07E38F001C0EAFC0338EFFF00EA83FC141C7D9B1B>I<007FB512E0A238781F
+81007013800060146000E0147000C01430A400001400B03807FFFEA21C1C7E9B21>I<3B
+FFF87FFE0FFCA23B0FC007E000C081D9E003130100071680EC07F801F014030003D90FFC
+1300140CD801F81406EC1CFE9039FC187E0E0000150CEC303F01FE141CD97E701398EC60
+1F013F14B002E013F0ECC00F011F5CEC8007A2010F5CEC00036D5CA22E1C7F9B31>87
+D<397FFE1FFEA23907F001803803F803000149C7FCEBFC066C6C5AEB7F1C6D5A14B0EB1F
+E0130FA26D7E6D7E1307497EEB0CFEEB187EEB387F496C7E9038601FC013C000016D7E48
+486C7EEB00033AFFF01FFF80A2211C7F9B24>I<D8FFFCEBFF80A2D80FE0EB18006C6C5B
+15706C6C13606C6C5B3800FE015DD97F03C7FCEB3F871486EB1FCEEB0FFC5C13076D5AAA
+EB3FFFA2211C7F9B24>I<EA0FF8EA1C1E383E0F80130714C0121C1200137FEA07E7EA1F
+07123C127C12F8A3EA780B383E13F8EA0FE115127F9117>97 D<B4FCA2121FA9EB3F80EB
+E1E0EB8070EB0078143CA2143EA6143CA21478EB8070381EC1E0381C3F00171D7F9C1B>
+I<EA03FCEA0E0EEA1C1F123C1278130E00F8C7FCA61278EB0180123C381C0300EA0E0EEA
+03F811127E9115>I<EB0FF0A21301A9EA01F9EA0F07EA1C03EA3C011278A212F8A61278
+A2123CEA1C03380F0FFEEA03F9171D7E9C1B>I<EA03FCEA0F07381C0380383C01C01278
+14E012F8A2B5FC00F8C7FCA3127814607E6C13C0380F03803801FC0013127F9116>I<13
+7F3801E3803803C7C0EA0787120FEB8380EB8000A5EAFFF8A2EA0F80AEEA7FF0A2121D80
+9C0F>I<3803F0F0380E1F38EA3C0F3838073000781380A400381300EA3C0FEA1E1CEA33
+F00030C7FCA3EA3FFF14C06C13E014F0387801F838F00078A300701370007813F0381E03
+C03807FF00151B7F9118>I<B4FCA2121FA9EB0FC0EB31E0EB40F0EB80F8A21300AB38FF
+E7FFA2181D7F9C1B>I<121E123FA4121EC7FCA6127FA2121FAEEAFFC0A20A1E7F9D0E>I<
+137813FCA413781300A6EA03FCA2EA007CB2127012F8137813F0EA70E0EA1F800E26839D
+0F>I<B4FCA2121FA9EB03FCA2EB01C0EB0300130E5B5B137813FC13BE131F7F1480EB07
+C0EB03E0130138FFE7FEA2171D7F9C19>I<B4FCA2121FB3A7EAFFE0A20B1D7F9C0E>I<39
+FF0FC07E903831E18F3A1F40F20780D980FC13C0A2EB00F8AB3AFFE7FF3FF8A225127F91
+28>I<38FF0FC0EB31E0381F40F0EB80F8A21300AB38FFE7FFA218127F911B>I<EA01FC38
+0F0780381C01C0003C13E0387800F0A200F813F8A6007813F0A2383C01E0381E03C0380F
+07803801FC0015127F9118>I<38FF3F80EBE1E0381F80F0EB0078147C143C143EA6143C
+147C1478EB80F0EBC1E0EB3F0090C7FCA6EAFFE0A2171A7F911B>I<EAFE3E1347381E8F
+80A3381F070090C7FCAAEAFFE0A211127F9114>114 D<EA1FD8EA3078EA601812E0A2EA
+F000EAFF80EA7FE013F0EA1FF8EA07FCEA007CEAC01CA212E01318EAF830EACFC00E127E
+9113>I<1203A45AA25AA2EA3FFC12FFEA1F00A9130CA4EA0F08EA0798EA03F00E1A7F99
+13>I<38FF07F8A2EA1F00AC1301120F380786FFEA01F818127F911B>I<38FFC1FCA2381F
+00601380000F13C0A23807C180A23803E300A213F7EA01F613FE6C5AA21378A213301612
+7F9119>I<39FF8FF8FEA2391F03E030A3390F87F06013869038C6F8E03907CC78C0A239
+03FC7D80EBF83D143F3901F01F00A20000131EEBE00EA21F127F9122>I<38FFC7FCA238
+1F81C0380F83803807C700EA03EEEA01FC5B1200137C13FEEA01DF38039F80EA070F3806
+07C0380C03E038FF07FCA216127F9119>I<38FFC1FCA2381F00601380000F13C0A23807
+C180A23803E300A213F7EA01F613FE6C5AA21378A21330A25B1270EAF8E05BEAF9800073
+C7FC123E161A7F9119>I E /Fo 24 121 df<B912C018FCF0FF8019E0D8001F90C70003
+13F805007FF03FFE727E1A807213C0841AE0A2841AF0A84E13E0A21AC0601A804E13004E
+5A4E5A4E5A050313E0057F138092B600FCC7FCF0FF8019F092C8EA7FFCF01FFF06071380
+7213C01AE07213F07213F81AFCA2F17FFEA31AFFA81AFEA219FF1AFC601AF84E13F04E13
+E04E13C0063F13804DB51200BA12FC19F0198006F8C7FC48477CC653>66
+D<DC7FFE140E030FB500C0131E037F02F8133E0203B600FE137E020F903AF800FF80FE02
+3F0180EB1FE1DAFFFCC7EA07F3010301F0EC01FF4901C0804949157F4990C9123F494816
+1F4948160F4948160748491603485B1901485B481800A24849177EA25A91CBFC1A3E5AA2
+1A005BA212FFAD127FA27FA21A1E7EA2807E1A3E6C6D173CA26C197C6C6D17781AF86C6D
+17F06C6D16016D6CEE03E06D6C16076D6CEE0FC06D6DED1F806D6DED3F006D01F0157E01
+0001FCEC01F891263FFF80EB0FF0020F01F8EB7FC0020390B6C7FCDA007F14FC030F14E0
+9226007FFEC8FC47497AC754>I<DC7FFC141C030FB500C0133C92B600F0137C020303FC
+13FC021F9039F001FF01027F90C7EA3FC3DAFFF8EC07E7010301E0EC03FF4949804949EC
+007FD93FFEC9123F4948161F495A190F48491607485B4818035C4818015C481800A24890
+CBFCA21A7C5AA297C7FC5BA212FFAD007F043FB612FCA27FA294C7EBFC007EA2807EA26C
+7FA27E807E6C7F6C7F806D7E6D6C5D010F7F6D6D5C6D01F05C010001FC5C6EB46CEB1FCF
+021F01F8EBFF83020390B5EAFE00020003F8133C030F02E0130C9226007FFEC9FC4E497A
+C75B>71 D<B712F0A4D8001FEB8000B3B3B3A9B712F0A424477DC62B>73
+D<DA7FF013070107B55B011FECE01F017FECF83F903AFFC00FFC7FD803FEC7B5FCD807F8
+143F4848140F4980001F8148488082485A83A200FF82A2837FA26D81A27F7F01FE92C7FC
+6C6C7E14F8ECFF806C14FCEDFFC06C15F816FF6C16C06C826C826C826C82013F81010F81
+01031680EB007F020315C0EC003F030114E0ED001F16077013F0828200F0167FA2173FA2
+171F7EA218E07EA27EEF3FC07E6DED7F807F6DEDFF0001F84A5A01FE4A5AD97FC0495A26
+FE3FFCEB3FF0D8FC0FB612C0D8F80392C7FC48C66C13FC48010313E034497AC741>83
+D<003FBA12FCA49026FE00079038E0007F01F0170FD87FC0EF03FE49170190C71600007E
+197EA2007C193EA30078191EA400F8191F48190FA5C81700B3B3A60103B812C0A448467C
+C551>I<90380FFFF090B6FC000315C03A07F8007FF0486CEB1FFC486C6D7E6F7E6F7F6F
+7FA36C486D7F6C5A6C5AC9FCA5157F023FB5FC0103B6FC011F13F090387FFE003801FFE0
+000713804890C7FC485A485A485A5BA2485AA35DA26D5B127F6D5B003F4A6C7ED81FFE01
+3E13FC3C0FFF80FC3FFFE000039038FFF01FC6ECC00F90390FFE0003332E7CAD38>97
+D<91381FFFC049B512FC010714FF903A1FF8007F80D97FE0EBFFC09026FF800113E00003
+13005A5B485A121F496D13C0003FED7F80EE3F00007F92C7FC5BA212FFAC127F7FA2123F
+A26C6C15F0A26C6C14010007ED03E06D15C06C6D1307C66DEB0F80D97FF0EB3F0090391F
+FC01FC0107B512F0010114C09026001FFCC7FC2C2E7CAD34>99 D<EFFF804BB5FCA4ED00
+0782B3A2EC1FFC49B51283010714E390391FFC03FB90397FE0007F49487F48497F4890C7
+7E484880484880121F5B123FA2127F5BA312FFAB127FA36C7EA2121F7F000F5D6D5C1207
+6C6C143F6C6D5B26007FE001FB13C090273FF807F313FF010FB512C3010114039038003F
+F038487CC741>I<EC3FFE49B512C0010F14F890393FF80FFC90397FE003FE9039FF8000
+FF4890C7EA7F804848EC3FC0000716E04848EC1FF0121F49140F003F16F8A2127F4915FC
+1607A212FFA290B7FCA301F0C9FCA5127FA37F123F173C6C7E000F167C17786C6C15F86C
+6CEC01F06C6DEB03E06C6DEB0FC0D97FF0EB3F80903A1FFE01FF000107B512FC010014F0
+020F90C7FC2E2E7DAD35>I<171FDA7FF0EBFFC00107B5000313E0011F9138CFE7F0903A
+7FE03FFF0F9039FF800FFE4890380007FC4848EB03FE00079238FF07E0000FEE83C0496D
+EB8000A2001F82A8000F5EA26D5B000793C7FC00035D6C6C495A6C6D485A489038E03FF0
+91B512C0D803C791C8FC9038C07FF0000790CAFC5B7FA37F7F7F90B612F016FF6C16E017
+F86C826C826D8148B812801207D81FF0C7001F13C04848140148489138007FE049153F12
+FF90C9121FA46D153F007F17C06D157F6C6CEDFF806C6C4A13006C6C4A5AD807FEEC0FFC
+2601FFE0EBFFF06C6CB612C0010F4AC7FCD9007F13C034447DAE3A>103
+D<EB7FC0B5FCA412037EB3A2ED07FE92383FFFC092B512F09139C1F81FFC9138C7C00F91
+39CF8007FEDADE007FA202FC7F4A15805CA25CA35CB3A9B60081B6FCA438487BC741>I<
+137C48B4FC4813804813C0A24813E0A56C13C0A26C13806C1300EA007C90C7FCACEB7FC0
+B5FCA412037EB3B2B6FCA418497CC820>I<EB7FC0B5FCA412037EB3B3B3A8B61280A419
+487CC720>108 D<9027FF8003FFEC03FFB5011F01E0011F13E0037F01F8017F13F8913D
+81F80FFC01F80FFC913D83C007FE03C007FE0003D987809026FF07807F6C90268F000390
+268F00037F029E159E02BC6D01BC7F02F803F8814A5DA24A5DA34A5DB3A9B66CB66CB612
+80A4592E7BAD62>I<9039FF8007FEB590383FFFC092B512F0913981F81FFC913887C00F
+000390398F8007FE6CD99E007FA202BC7F02F815805CA25CA35CB3A9B60081B6FCA4382E
+7BAD41>I<EC0FFE49B512F0010714FC90391FF803FF90267FE00013C0D9FF80EB3FE048
+90C76C7E48486E7E48486E7E000F82491403001F82003F17804980A2007F17C0A300FF17
+E0AA007F17C0A46C6C4A1380A2001F17006D5C000F5E6C6C4A5A00035E6C6C4A5A6C6D49
+5AD97FE0EBFFC090261FFC0790C7FC0107B512FC010114F0D9001F90C8FC332E7DAD3A>
+I<90397FC01FFCB590B57E02C314F09139CFE03FFC9139FF0007FE000301FC903803FF80
+6C496D13C04A6D13E04A15F04A147FEF3FF8A218FC171F18FEA3EF0FFFAB18FE171FA318
+FC173F18F8177F18F06EECFFE06E4913C06E4913806E49130002FF495A9139CFC03FF802
+C3B512E002C01480DB1FF8C7FC92C9FCB0B67EA438427CAD41>I<90397F803F80B5EBFF
+E0028313F8913887C3FC91388F07FE000390389E0FFF6C139C14BC14B814F814F0ED07FE
+9138E003FCED01F892C7FCA35CB3A7B612E0A4282E7DAD2F>114
+D<90390FFE01C090B512C7000314FF3807F801391FC0007F4848131F90C7120F127E1507
+12FE15037EA27F01E090C7FC13F8EBFFC06C13FF15E06C14F86C14FE6C806C1580000115
+C06C6C14E0011F14F0130014039138007FF800F0141F150F6C1407A215037EA26C15F0A2
+6C14076D14E06DEB0FC001F0EB1F8001FCEBFF0039FC7FFFFCD8F01F13F0D8E003138025
+2E7CAD2E>I<EB01E0A61303A31307A3130FA2131F133FA2137FEA01FF5A000F90B512C0
+B7FCA3C601E0C7FCB3A616F0A91501D97FF013E0A290393FF803C0011F130790390FFE0F
+806DB51200010113FC9038001FF024427EC12D>I<B649B5FCA4000101C09038001FE06E
+EC0F806C17006E5C017F151E6E143E013F153C80011F5D8017F8010F5D6E13016D5DED80
+036D5DEDC0076D5D15E06D4AC7FC15F05E027F131EEDF83E023F133CEDFC7C021F1378ED
+FEF8020F5B15FF6E5BA36E5BA26E5BA26E90C8FCA2157EA2153C382E7EAD3D>118
+D<B5D8FE07B539E003FFFEA400039027C0001FF8C7EA3FC06CF10F006E6D7E6C191E1607
+6E6E143E017F183C6E6E147C013F18785E6E6F13F8011F4A5D6E011EEBC001010F60EE3C
+7F6EEDE0036D027C5D923A80783FF0076D60EEF01F03C0ECF80F6D01C193C7FC923AE1E0
+0FFC1F6D171E9238E3C00703F3ECFE3EDA7FF7153C923AFF8003FF7C6E16784C7E19F86E
+5E4B7F020F5E4B147FA202075E4B143F02035E4B141FA26E486EC8FC4F2E7EAD54>I<B5
+00FE90381FFFFCA4C601E0903803FE006EEB01F86D6C5C6D6C495A011F4A5A6D6C495A6E
+49C7FC6D6D5A6DEBC07E6D147C6D6D5AEDF1F091387FFBE06EB45A806E5B93C8FC6E7F6E
+7F6E7FA24A7F4A7F8291380F9FFEEC1F0F91383E07FF027C804A6C7F01016D7F49487E4A
+6D7E49488049486D7E49C76C7E013E140F017E6E7E48B41680B500E0017F13FFA4382E7E
+AD3D>I E /Fp 79 124 df<EB7E1F3901C1B180390303E3C0000713C3000EEBC1809038
+01C000A6B512FC380E01C0B0387F87FC1A1D809C18>11 D<137E3801C180EA0301380703
+C0120EEB018090C7FCA5B512C0EA0E01B0387F87F8151D809C17>I<EB7FC0EA01C1EA03
+031207EA0E01A7B5FCEA0E01B0387FCFF8151D809C17>I<EA6060EAF0F0EAF8F8EA6868
+EA0808A3EA1010A2EA2020EA4040EA80800D0C7F9C15>34 D<126012F012F812681208A3
+1210A2122012401280050C7C9C0C>39 D<1380EA0100120212065AA25AA25AA35AA412E0
+AC1260A47EA37EA27EA27E12027EEA0080092A7C9E10>I<7E12407E12307EA27EA27EA3
+7EA41380AC1300A41206A35AA25AA25A12205A5A092A7E9E10>I<1203A4EAC30CEAE31C
+EA7338EA1FE0EA0780A2EA1FE0EA7338EAE31CEAC30CEA0300A40E127D9E15>I<126012
+F0A212701210A41220A212401280040C7C830C>44 D<EAFFE0A20B0280890E>I<126012
+F0A2126004047C830C>I<1303A213071306A2130E130C131C1318A213381330A2137013
+60A213E013C0A21201138012031300A25A1206A2120E120CA2121C1218A2123812301270
+1260A212E05AA210297E9E15>I<EA03C0EA0C30EA1818EA300CA2EA700EEA6006A2EAE0
+07ADEA6006A2EA700EEA300CA2EA1818EA0C30EA07E0101D7E9B15>I<5A1207123F12C7
+1207B3A5EAFFF80D1C7C9B15>I<EA07C0EA1830EA201CEA400C130EEAF00F12F81307A2
+1270EA000F130EA2131CA213381370136013C0EA0180EA0300EA0601120C1218EA1002EA
+3FFE127F12FF101C7E9B15>I<EA07E0EA1830EA201CA2EA781E130E131E1238EA001CA2
+131813301360EA07C0EA0030131CA2130E130FA2127012F8A3EAF00EEA401C1220EA1830
+EA07C0101D7E9B15>I<130CA2131C133CA2135C13DC139CEA011C120312021204120C12
+08121012301220124012C0B512C038001C00A73801FFC0121C7F9B15>I<EA300CEA3FF8
+13F013C0EA2000A6EA23E0EA2C30EA3018131CEA200E1200130FA3126012F0A3EA800EEA
+401E131CEA2038EA1870EA07C0101D7E9B15>I<13F0EA030CEA0404EA0C0EEA181E1230
+130CEA7000A21260EAE3E0EAE430EAE818EAF00C130EEAE0061307A51260A2EA7006EA30
+0E130CEA1818EA0C30EA03E0101D7E9B15>I<1240387FFF801400A2EA4002485AA25B48
+5AA25B1360134013C0A212015BA21203A41207A66CC7FC111D7E9B15>I<EA03E0EA0C30
+EA1008EA200C13061260A21270A2EA7C0CEA3E18EA3FB0EA1FE0EA07F013F8EA18FCEA30
+7EEA601E130FEAC0071303A4EA60021304EA300CEA1C10EA07E0101D7E9B15>I<EA03C0
+EA0C30EA1818EA300C1270EA600EEAE006A21307A51260EA700F1230EA1817EA0C27EA07
+C7EA0006A2130EEA300C127813181270EA2030EA10C0EA0F80101D7E9B15>I<126012F0
+A212601200AA126012F0A2126004127C910C>I<126012F0A212601200AA126012F0A212
+701210A41220A212401280041A7C910C>I<126012F0A212601200A51260AD12F0A71260
+041E7C940C>I<1203EA0780A2EA0300C7FCA55AA21202A412061204120C5A12385A5A13
+1EA3130EEA6004EA3018EA0FE00F1D7E9414>62 D<1306A3130FA3EB1780A2EB37C01323
+A2EB43E01341A2EB80F0A338010078A2EBFFF83802003CA3487FA2000C131F80001E5BB4
+EBFFF01C1D7F9C1F>65 D<B512C0380F00788080140E140FA4140E141E5C14F8EBFFF0EB
+003C8080801580A5EC0F00A2141E1478B512E0191C7F9B1D>I<90381F8080EBE0613801
+801938070007000E13035A14015A00781300A2127000F01400A8007014801278A212386C
+EB0100A26C13026C5B380180083800E030EB1FC0191E7E9C1E>I<B512C0380F00F0143C
+140E80A2EC038015C01401A215E0A815C0A21403158014071500140E5C1470B512C01B1C
+7E9B20>I<B512FC380F003C140C1404A214061402A213011400A35B13FF13037FA31401
+13001402A31406A2140C143CB512FC181C7E9B1C>I<B512F8380F007814181408A2140C
+1404A213011400A35B13FF13037FA490C7FCA8EAFFF8161C7E9B1B>I<90381F8080EBE0
+613801801938070007000E13035A14015A00781300A2127000F01400A6ECFFF0EC0F8000
+7013071278A212387EA27E6C130B380180113800E06090381F80001C1E7E9C21>I<39FF
+F0FFF0390F000F00AC90B5FCEB000FAD39FFF0FFF01C1C7F9B1F>I<EAFFF0EA0F00B3A8
+EAFFF00C1C7F9B0F>I<39FFF01FE0390F000780EC060014045C5C5C5C5C49C7FC130213
+06130FEB17801327EB43C0EB81E013016D7E1478A280143E141E80158015C039FFF03FF0
+1C1C7F9B20>75 D<EAFFF8EA0F8090C7FCB01408A31418A2141014301470EB01F0B5FC15
+1C7E9B1A>I<B46CEBFF80000FECF800A2390BC00178A33809E002A23808F004A3EB7808
+A3EB3C10A3EB1E20A3EB0F40A2EB0780A3EB0300121C3AFF8307FF80211C7E9B26>I<B4
+EB1FF0390F8003809038C00100120BEA09E0EA08F0A21378133C133E131E130F14811307
+EB03C1EB01E114F113001479147D143D141FA2808080121CB46C7E1C1C7F9B1F>I<EB3F
+80EBE0E03803803848487E000E7F487F003C148000381303007814C0A20070130100F014
+E0A8007014C000781303A200381480003C1307001C14006C130E6C5B6C6C5A3800E0E0EB
+3F801B1E7E9C20>I<B51280380F00E01478143C141C141EA5141C143C147814E0EBFF80
+90C7FCACEAFFF0171C7E9B1C>I<B5FC380F01E0EB007880141C141EA4141C143C5CEB01
+E001FFC7FCEB01E0EB0070147880A61510A2141CA239FFF00E20C7EA03C01C1D7E9B1F>
+82 D<3807E080EA1C19EA30051303EA600112E01300A36C13007E127CEA7FC0EA3FF8EA
+1FFEEA07FFC61380130FEB07C0130313011280A300C01380A238E00300EAD002EACC0CEA
+83F8121E7E9C17>I<007FB512C038700F010060130000401440A200C014201280A30000
+1400B1497E3803FFFC1B1C7F9B1E>I<39FFF01FF0390F000380EC0100B3A26C13021380
+00035BEA01C03800E018EB7060EB0F801C1D7F9B1F>I<39FFE00FF0391F0003C0EC0180
+6C1400A238078002A213C000035BA2EBE00C00011308A26C6C5AA213F8EB7820A26D5AA3
+6D5AA2131F6DC7FCA21306A31C1D7F9B1F>I<3AFFE1FFC0FF3A1F003E003C001E013C13
+186C6D1310A32607801F1320A33A03C0278040A33A01E043C080A33A00F081E100A39038
+F900F3017913F2A2017E137E013E137CA2013C133C011C1338A20118131801081310281D
+7F9B2B>I<39FFF07FC0390FC01E003807800CEBC00800035B6C6C5A13F000005BEB7880
+137C013DC7FC133E7F7F80A2EB13C0EB23E01321EB40F0497E14783801007C00027F141E
+0006131F001F148039FF807FF01C1C7F9B1F>I<39FFF003FC390F8001E00007EB00C06D
+13800003EB01006D5A000113026C6C5A13F8EB7808EB7C18EB3C10EB3E20131F6D5A14C0
+6D5AABEB7FF81E1C809B1F>I<12FEA212C0B3B312FEA207297C9E0C>91
+D<EA0808EA1010EA2020EA4040A2EA8080A3EAB0B0EAF8F8EA7878EA30300D0C7A9C15>
+I<12FEA21206B3B312FEA20729809E0C>I<EA1FC0EA3070EA78387F12301200A2EA01FC
+EA0F1C12381270126000E01340A3EA603C38304E80381F870012127E9115>97
+D<12FC121CAA137CEA1D87381E0180381C00C014E014601470A6146014E014C0381E0180
+38190700EA10FC141D7F9C17>I<EA03F8EA0C0CEA181E1230EA700CEA600012E0A61260
+EA70021230EA1804EA0C18EA03E00F127F9112>I<EB1F801303AAEA03F3EA0E0BEA1807
+EA30031270126012E0A6126012701230EA1807EA0E1B3803E3F0141D7F9C17>I<EA07E0
+EA0C30EA1818EA300CEA700EEA600612E0EAFFFEEAE000A41260EA70021230EA1804EA0C
+18EA03E00F127F9112>I<13F8EA018CEA071E1206EA0E0C1300A6EAFFE0EA0E00B0EA7F
+E00F1D809C0D>I<EB03803807C4C0EA1C783838388038301800EA701CA4EA3018EA3838
+6C5AEA27C00020C7FCA21230EA3FF86CB4FC1480EA2003386001C0EAC000A33860018038
+300300EA1C0EEA07F8121C7F9215>I<12FC121CAA137C1387EA1D03001E1380121CAD38
+FF9FF0141D7F9C17>I<1218123CA21218C7FCA712FC121CB0EAFF80091D7F9C0C>I<13C0
+EA01E0A2EA00C01300A7EA07E01200B3A21260EAF0C012F1EA6180EA3E000B25839C0D>
+I<12FC121CAAEB0FE0EB0780EB06005B13105B5B13E0121DEA1E70EA1C781338133C131C
+7F130F148038FF9FE0131D7F9C16>I<12FC121CB3A9EAFF80091D7F9C0C>I<39FC7E07E0
+391C838838391D019018001EEBE01C001C13C0AD3AFF8FF8FF8021127F9124>I<EAFC7C
+EA1C87EA1D03001E1380121CAD38FF9FF014127F9117>I<EA03F0EA0E1CEA1806487E00
+701380EA600100E013C0A600601380EA700300301300EA1806EA0E1CEA03F012127F9115
+>I<EAFC7CEA1D87381E0180001C13C0EB00E0A21470A614E0A2EB01C0001E1380381D07
+00EA1CFC90C7FCA7B47E141A7F9117>I<3803E080EA0E19EA1805EA3807EA7003A212E0
+A61270A2EA38071218EA0E1BEA03E3EA0003A7EB1FF0141A7F9116>I<EAFCE0EA1D38EA
+1E78A2EA1C301300ACEAFFC00D127F9110>I<EA1F90EA2070EA4030EAC010A212E0EAF8
+00EA7F80EA3FE0EA0FF0EA00F8EA8038131812C0A2EAE010EAD060EA8FC00D127F9110>
+I<1204A4120CA2121C123CEAFFE0EA1C00A91310A5120CEA0E20EA03C00C1A7F9910>I<
+38FC1F80EA1C03AD1307120CEA0E1B3803E3F014127F9117>I<38FF07E0383C0380381C
+0100A2EA0E02A2EA0F06EA0704A2EA0388A213C8EA01D0A2EA00E0A3134013127F9116>
+I<39FF3FC7E0393C0703C0001CEB01801500130B000E1382A21311000713C4A213203803
+A0E8A2EBC06800011370A2EB8030000013201B127F911E>I<38FF0FE0381E0700EA1C06
+EA0E046C5AEA039013B0EA01E012007F12011338EA021C1204EA0C0E487E003C138038FE
+1FF014127F9116>I<38FF07E0383C0380381C0100A2EA0E02A2EA0F06EA0704A2EA0388
+A213C8EA01D0A2EA00E0A31340A25BA212F000F1C7FC12F312661238131A7F9116>I<EA
+7FFCEA70381260EA407013F013E0EA41C012031380EA0700EA0F04120E121CEA3C0CEA38
+0812701338EAFFF80E127F9112>I<B512F01401808B15>I E /Fq
+15 122 df<EBF8C0EA0185EA0705380E0380A2121C123C383807001278A3EAF00EA31410
+EB1C201270133C38305C40138C380F078014157B9419>97 D<137EEA01C138030180EA07
+03EA0E07121C003CC7FC12381278A35AA45B12701302EA300CEA1830EA0FC011157B9416
+>99 D<13F8EA0384EA0E02121C123C1238EA7804EAF018EAFFE0EAF000A25AA41302A2EA
+6004EA7018EA3060EA0F800F157A9416>101 D<13F0EA0FE01200A3485AA4485AA448C7
+FC131FEB2180EBC0C0380F00E0A2120EA2381C01C0A438380380A3EB070400701308130E
+1410130600E01320386003C016237DA219>104 D<EA01E0EA0FC01201A3EA0380A4EA07
+00A4120EA45AA45AA45AA3127112E2A4126412380B237CA20C>108
+D<391C0F80F8392610C10C39476066063987807807A2EB0070A2000EEBE00EA44848485A
+A3ED38202638038013401570168015303A7007003100D83003131E23157B9428>I<3838
+0F80384C30C0384E4060388E8070EA8F00128EA24813E0A4383801C0A3EB038400701388
+14081307EB031012E0386001E016157B941B>I<137EEA01C338038180380701C0120E00
+1C13E0123C12381278A338F003C0A21480130700701300130E130CEA3018EA1870EA07C0
+13157B9419>I<EA1C1F38262080384741C0EA87831303EB018090C7FC120EA45AA45AA4
+5A123012157B9415>114 D<13FCEA018338020080EA0401EA0C03140090C7FC120F13F0
+EA07FC6C7EEA003E130F7F1270EAF006A2EAE004EA4008EA2030EA1FC011157D9414>I<
+13C01201A4EA0380A4EA0700EAFFF8EA0700A2120EA45AA45AA31310EA7020A213401380
+EA3100121E0D1F7C9E10>I<001E1360002313E0EA4380EB81C01283EA8701A238070380
+120EA3381C0700A31408EB0E101218121CEB1E20EA0C263807C3C015157B941A>I<381C
+0180382603C0EA47071303EA8701EA8E00A2000E13805AA338380100A31302A25B5B1218
+EA0C30EA07C012157B9416>I<001EEB60E00023EBE0F0384380E1EB81C000831470D887
+011330A23907038020120EA3391C070040A31580A2EC0100130F380C0B02380613843803
+E0F81C157B9420>I<001E133000231370EA438014E01283EA8700A2380701C0120EA338
+1C0380A4EB0700A35BEA0C3EEA03CEEA000EA25B1260EAF0381330485AEA80C0EA438000
+3EC7FC141F7B9418>121 D E /Fr 24 120 df<387FFFC0B512E0A26C13C013047D901A>
+45 D<14C0EB03E01307EB0FC0EB3F80EB7F00EA01FC485AEA07E0EA1FC0485A007EC7FC
+5AA2127E6C7E6C7EEA07E0EA03F86C7EEA007FEB3F80EB0FC0EB07E01303EB00C0131A7D
+9B1A>60 D<126012F87E127E6C7E6C7EEA07F06C7EC67E137FEB3F80EB0FC0EB07E0A2EB
+0FC0EB3F80EB7F0013FCEA03F8485AEA1FC0485A007EC7FC5A5A1260131A7D9B1A>62
+D<B512F8A3381C0038A41400A31307A3EA1FFFA3EA1C07A390C7FCA8EAFFC0A3151E7E9D
+1A>70 D<387FFFFEB5FCA238E0380EA400001300B3A23803FF80A3171E7F9D1A>84
+D<387FFFC0B512E0A26C13C013047D7E1A>95 D<EA1FF0EA3FFC487EEA781F38300780EA
+0003A213FF1207121FEA3F83EA7C0312F012E0A3EAF007EA7C1F383FFFFCEA1FFDEA07F0
+16157D941A>97 D<3801FF80000713C04813E0EA1F01383C00C0481300127012F05AA57E
+1270007813707E381F01F0380FFFE06C13C00001130014157D941A>99
+D<EB0FC0131F130F1301A6EA01F9EA07FDEA0FFFEA1F0FEA3C07EA78031270EAF00112E0
+A5EAF00312701278EA3807EA3E1F381FFFF8380FFDFC3803F1F8161E7E9D1A>I<EA01FC
+EA07FF481380381F07C0383C01E0EA7800007013F000F013705AB512F0A300E0C7FC7E12
+70007813707E381F01F0380FFFE06C13C00001130014157D941A>I<EB0FF0EB1FF8133F
+EB7878EBF030EBE000A4387FFFF0B5FCA23800E000AF383FFF804813C06C1380151E7F9D
+1A>I<3801F8FC3807FFFE5A381F0F8C381C0380003C13C0EA3801A3EA3C03001C1380EA
+1F0FEBFF00485AEA39F80038C7FC123C121C381FFF8014F04813F8387C00FC0070131C00
+F0131E48130EA36C131E0078133C383F01F8381FFFF06C13E00001130017217F941A>I<
+13C0487EA26C5A90C7FCA6EA7FE0A31200AF387FFF80B512C06C1380121F7C9E1A>105
+D<12FEA3120EA6EB0FFC131F130FEB03C0EB0780EB0F00131E5B5B13FC120F13DE138F38
+0E0780EB03C0A2EB01E0EB00F038FFE3FEA3171E7F9D1A>107 D<EA7FE012FF127F1200
+B3A6387FFFC0B512E06C13C0131E7D9D1A>I<387DF1F038FFFBF86CB47E381F1F1CEA1E
+1EA2EA1C1CAC387F1F1F39FFBFBF80397F1F1F00191580941A>I<EA7E3F38FEFF80007F
+13C0380FE1E013801300A2120EAB387FC3FC38FFE7FE387FC3FC17157F941A>I<EA7E3F
+38FEFFC0007F13E0380FE1F0EB8070EB00781438000E133C141CA5000F133C14381478EB
+80F0EBC3E0EBFFC0000E1380EB7E0090C7FCA8EA7FC0487E6C5A16207F941A>112
+D<387F83F838FF8FFEEA7FBF3803FE1EEBF80CEBE000A25BA25BA9EA7FFFB5FC7E17157F
+941A>114 D<380FFB80EA3FFF5AEAF80FEAE003A300F8C7FCEA7FC0EA3FFCEA0FFF3800
+7F80EB07C0EA600112E012F0130338FC0F80B512005BEAE7F812157C941A>I<487E1203
+A6387FFFE0B5FCA238038000AA1470A314F0EBE1E0EA01FF6C13C0EB3F00141C7F9B1A>
+I<387E07E0EAFE0FEA7E07EA0E00AC1301A2EA0F073807FFFC6C13FE3801FCFC17157F94
+1A>I<387F83FC38FFC7FE387F83FC380E00E0A3380701C0A338038380A33801C700A3EA
+00EEA3137CA2133817157F941A>I<38FF83FEA338380038A26C1370A31338137CA2380C
+6C60380EEEE0A413C6000613C0EA07C71383A217157F941A>I E
+/Fs 13 116 df<132013401380EA01005A12061204120CA25AA25AA312701260A312E0AE
+1260A312701230A37EA27EA2120412067E7EEA0080134013200B327CA413>40
+D<7E12407E7E12187E12041206A27EA2EA0180A313C01200A313E0AE13C0A312011380A3
+EA0300A21206A21204120C5A12105A5A5A0B327DA413>I<B612C0380F80070007130114
+001540A215601520A314201500A3146014E013FF138014601420A315081400A21510A315
+30A2157015E0000F1303B6FC1D227EA121>69 D<903807F00890383C0C18EBE0023901C0
+01B839038000F848C71278481438121E15185AA2007C14081278A200F81400A7EC1FFF00
+78EB00F81578127C123CA27EA27E7E6C6C13B86C7E3900E0031890383C0C08903807F000
+20247DA226>71 D<EA1FE0EA3038EA780C130EEA30071200A313FFEA07C7EA1E07123C12
+78127000F01308A3130FEA7817383C2390380FC1E015157E9418>97
+D<EA01FEEA0703380C0780121C383803000078C7FC127012F0A712700078134012386C13
+80380C0100EA0706EA01F812157E9416>99 D<EA01FCEA0707380C0380381C01C0123800
+7813E0EA700012F0B5FC00F0C7FCA512700078132012386C13406C138038070300EA00FC
+13157F9416>101 D<121C123EA3121CC7FCA8120E127E121E120EB1EAFFC00A227FA10E>
+105 D<120E12FE121E120EABEB03FCEB01F014C01480EB02005B5B5B133813F8EA0F1CEA
+0E1E130E7F1480EB03C0130114E0EB00F014F838FFE3FE17237FA21A>107
+D<120E12FE121E120EB3ADEAFFE00B237FA20E>I<EA01FCEA0707380C0180381800C000
+3813E0481370A200F01378A700701370007813F0003813E0381C01C0380E038038070700
+EA01FC15157F9418>111 D<EA0E3CEAFE46EA1E8FEA0F0F13061300120EAD120FEAFFF0
+10157F9413>114 D<EA0F88EA3078EA601812C01308A212E0EAF000127FEA3FE0EA0FF0
+EA01F8EA003CEA801C130CA212C01308EAE018EAD030EA8FC00E157E9413>I
+E /Ft 50 122 df<EB0FF0EB7FFC3801F80E3803E01F48485AEA0F80A2141E140C91C7FC
+A4B6FCA2380F801FB2397FF0FFE0A21B237FA21F>12 D<38380380387C07C038FE0FE000
+FF13F0A2EA7F07383B03B038030030A300061360A24813C0EA1C010018138038700700EA
+200214117EA21D>34 D<1238127C12FEA3127C123807077C8610>46
+D<13181378EA01F812FFA21201B3A7387FFFE0A213207C9F1C>49
+D<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE0314F8A21301127CEA3803120014F0
+A2EB07E014C0EB0F80EB1F00133E13385BEBE018EA01C0EA0380EA0700000E1338380FFF
+F05A5A5AB5FCA215207D9F1C>I<13FE3807FFC0380F07E0381E03F0123FEB81F8A3EA1F
+0314F0120014E0EB07C0EB1F803801FE007F380007C0EB01F014F8EB00FCA2003C13FE12
+7EB4FCA314FCEA7E01007813F8381E07F0380FFFC03801FE0017207E9F1C>I<14E01301
+1303A21307130F131FA21337137713E7EA01C71387EA03071207120E120C121812381270
+12E0B6FCA2380007E0A790B5FCA218207E9F1C>I<00301320383E01E0383FFFC0148014
+005B13F8EA33C00030C7FCA4EA31FCEA37FF383E0FC0383807E0EA3003000013F0A214F8
+A21238127C12FEA200FC13F0A2387007E0003013C0383C1F80380FFF00EA03F815207D9F
+1C>I<EB1F80EBFFE03803E0703807C0F0380F01F8121F123EA2387E00F0007C1300A2EA
+FC08EB7FC0EBFFE038FD80F038FF00F848137CA248137EA4127CA3003C137C123E001E13
+F86C13F0380783E03803FFC0C6130017207E9F1C>I<12601278387FFFFEA214FC14F8A2
+14F038E0006014C038C00180EB0300A2EA00065B131C131813381378A25BA31201A31203
+A76C5A17227DA11C>I<13FE3803FFC0380703E0380E00F05A1478123C123E123F1380EB
+E0F0381FF9E0EBFFC06C13806C13C06C13E04813F0381E7FF8383C1FFCEA7807EB01FEEA
+F000143E141EA36C131C007813387E001F13F0380FFFC00001130017207E9F1C>I<1238
+127C12FEA3127C12381200A51238A8127CA812FEA5127C123807237B9811>60
+D<EA01C0487E487EA36C5A6C5AC8FCA513C0A212015BA41203A248C7FC5A5A123E5A38FC
+03C0EB07E0A31303387C01C0EB0780381FFF00EA0FF813237D981A>62
+D<1470A214F8A3497EA2497EA3EB067FA2010C7F143FA2496C7EA201307F140F01707FEB
+6007A201C07F90B5FC4880EB8001A2D803007F14004880000680A23AFFE007FFF8A22522
+7EA12A>65 D<D903FE138090381FFF819038FF01E33901F8003FD803E0131F4848130F48
+481307121F48C71203A2481401127EA200FE91C7FCA8127EED0180127F7E15036C6C1400
+120F6C6C1306D803F05B6C6C13386CB413F090381FFFC0D903FEC7FC21227DA128>67
+D<B67E15F03907F003FCEC007E81ED1F80ED0FC0ED07E0A216F01503A316F8A916F0A3ED
+07E0A2ED0FC0ED1F80ED3F00157EEC03FCB612F0158025227EA12B>I<B612FCA23807F0
+00153C151C150C150EA21506140CA31500141C143CEBFFFCA2EBF03C141C140CA21503A2
+14001506A3150EA2151E153EEC01FCB6FCA220227EA125>I<B612F8A23807F001EC0078
+15381518151CA2150CA21418A21500A214381478EBFFF8A2EBF07814381418A491C7FCA8
+B512C0A21E227EA123>I<B538803FFCA23A07F0000380ED0700150E15185D15E04A5A4A
+5A4AC7FC140E1418143C14FCEBF1FEEBF3FFEBF77F9038FE3F8001F87F496C7E140F6E7E
+816E7E1401816E7E81ED3F8016C0ED1FE0B53881FFFEA227227EA12C>75
+D<B512C0A2D807F0C7FCB31518A41538A21570A215F014011407B6FCA21D227EA122>I<
+D8FFF0EC0FFF6D5C000716E0D806FC1437A3017E1467A26D14C7A290391F800187A29039
+0FC00307A3903807E006A2903803F00CA2903801F818A3903800FC30A2EC7E60A2EC3FC0
+A2EC1F80A3EC0F00D8FFF091B5FC140630227EA135>I<EB07FC90383FFF809038FC07E0
+3903F001F848486C7E4848137E48487FA248C7EA1F80A24815C0007E140FA200FE15E0A9
+007E15C0007F141FA26C15806D133F001F15006C6C137E6C6C5B6C6C485A3900FC07E090
+383FFF80D907FCC7FC23227DA12A>79 D<B6FC15E03907F007F0EC01FC1400157EA2157F
+A5157EA215FC1401EC07F090B512E0150001F0C7FCADB57EA220227EA126>I<B512FEEC
+FFC03907F007F0EC01F86E7E157E157FA6157E5D4A5AEC07F090B512C05D9038F00FE06E
+7E6E7E6E7EA81606EC00FEEDFF0CB538803FF8ED0FF027227EA12A>82
+D<3801FE023807FF86381F01FE383C007E007C131E0078130EA200F81306A27E1400B4FC
+13E06CB4FC14C06C13F06C13F86C13FC000313FEEA003F1303EB007F143FA200C0131FA3
+6C131EA26C133C12FCB413F838C7FFE00080138018227DA11F>I<007FB61280A2397E03
+F80F00781407007014030060140100E015C0A200C01400A400001500B3A248B512F0A222
+227EA127>I<00041340000E13E038180180EA380300301300EA6006A2485AA338DC0DC0
+38FE0FE000FF13F0A2EA7F07383E03E0381C01C014117AA21D>92
+D<EA0FFC383FFF80387E07C0EB03E0130114F0123C1200A2133FEA03FDEA1FC1EA3F0112
+7E12FCA4EA7E02EB0CF8381FF87F3807E03F18167E951B>97 D<B4FCA2121FABEB0FE0EB
+3FF8EBE07CEB803E497EEC0F80A215C0A81580141F01801300EBC03E381EE07C381C3FF8
+38180FC01A237EA21F>I<EBFF80000713E0380F83F0EA1F03123E127E387C01E090C7FC
+12FCA6127C127EA2003E13186C1330380FC0603807FFC0C6130015167E9519>I<EB01FE
+A2EB003EABEA01FC3807FFBE380F81FE381F007E003E133E127E127C12FCA8127CA26C13
+7E6C13FE380F83BE3907FF3FC0EA01FC1A237EA21F>I<13FE3807FF80380F87C0381E01
+E0003E13F0EA7C0014F812FCA2B5FCA200FCC7FCA3127CA2127E003E13186C1330380FC0
+703803FFC0C6130015167E951A>I<EB1FC0EB7FE0EBF1F0EA01E31203EA07C3EBC1E0EB
+C000A6EAFFFEA2EA07C0B2EA3FFCA2142380A211>I<3801FE0F3907FFBF80380F87C738
+1F03E7391E01E000003E7FA5001E5BEA1F03380F87C0EBFF80D809FEC7FC0018C8FCA212
+1C381FFFE06C13F86C13FE001F7F383C003F48EB0F80481307A40078EB0F006C131E001F
+137C6CB45A000113C019217F951C>I<B4FCA2121FABEB07E0EB1FF8EB307CEB403CEB80
+3EA21300AE39FFE1FFC0A21A237EA21F>I<121C123E127FA3123E121CC7FCA7B4FCA212
+1FB2EAFFE0A20B247EA310>I<B4FCA2121FABECFF80A2EC38001460495A495A49C7FC13
+0E5B137E13FF13CFEB0F806D7E6D7E1301806D7E147C143C39FFE0FFC0A21A237EA21E>
+107 D<B4FCA2121FB3ADEAFFE0A20B237EA210>I<3AFF07F007F090391FFC1FFC3A1F30
+3E303E01401340496C487EA201001300AE3BFFE0FFE0FFE0A22B167E9530>I<38FF07E0
+EB1FF8381F307CEB403CEB803EA21300AE39FFE1FFC0A21A167E951F>I<13FE3807FFC0
+380F83E0381E00F0003E13F848137CA300FC137EA7007C137CA26C13F8381F01F0380F83
+E03807FFC03800FE0017167E951C>I<38FF0FE0EB3FF8381FE07CEB803E497E1580A2EC
+0FC0A8EC1F80A29038803F00EBC03EEBE0FCEB3FF8EB0FC090C8FCA8EAFFE0A21A207E95
+1F>I<EAFE1FEB3FC0381E67E013C71387A2381F83C090C7FCADEAFFF0A213167E9517>
+114 D<EA0FF3EA3FFFEA781FEA6007EAE003A212F000FCC7FCEA7FE013F8EA3FFEEA0FFF
+120138000F80EAC007130312E0A238F00700EAFC0EEAEFFCEAC7F011167E9516>I<487E
+A41203A21207A2120F123FB5FCA2EA0F80ABEB8180A5EB8300EA07C3EA03FEEA00F81120
+7F9F16>I<38FF01FEA2381F003EAF147E14FE380F81BE3907FF3FC0EA01FC1A167E951F>
+I<39FFE01FE0A2391F800700000F1306EBC00E0007130C13E000035BA26C6C5AA26C6C5A
+A2EB7CC0A2137F6D5AA26DC7FCA2130EA21B167F951E>I<3AFFE3FF07F8A23A1F007800
+C09038807C01000F1580A23A07C07E030014DE5D3903E1DF06148FD801F1138CEBF307A2
+D800FF13D8EBFE0315F890387C01F0A2013C5BEB3800A225167F9528>I<39FFE07FC0A2
+390F801C006C6C5A6C6C5AEBF0606C6C5A3800F980137F6DC7FC7F80497E1337EB63E0EB
+C1F03801C0F848487E3807007E000E133E39FF80FFE0A21B167F951E>I<39FFE01FE0A2
+391F800700000F1306EBC00E0007130C13E000035BA26C6C5AA26C6C5AA2EB7CC0A2137F
+6D5AA26DC7FCA2130EA2130CA25B1278EAFC3813305BEA69C0EA7F80001FC8FC1B207F95
+1E>I E /Fu 24 117 df<143C147CEB01FC1307133FB5FCA313CFEA000FB3B3A7007FB6
+1280A4213879B730>49 D<EB07FC90387FFFC048B512F04814FC390FE01FFE3A1F8007FF
+8048486C13C0003E7F007E6D13E0D87F8014F0486C137F7FED3FF8A56C5A001FC7FCC8FC
+16F0157FA216E015FF16C04A13804A13005D4A5A4A5A4A5A15C04A5A4AC7FC14FEEB01F8
+495A49481378495A495A49C7FC017C14F05B5B4848130148B6FC5A5A5A5A4815E0B7FCA4
+25387BB730>I<EB03FF011F13F0017F13FC3901FC07FF2603F00113802607C00013C048
+4814E001F0137F486C14F07FA66C5A6C4814E0D8008013FF90C713C0A24A13804A13005D
+4A5AEC1FF090380FFFC05D15F090380007FE913801FF806E13C0ED7FE0ED3FF016F816FC
+151FA216FEA2EA1F80EA7FE0A2487EA316FC153F5B007F15F80180EB7FF06CC712FF261F
+C00113E0260FF80313806CB61200000114FC6C6C13F0010790C7FC27397CB730>I<ED0F
+80A2151F153F157F15FFA25C5C5CA25C141E143E5C14785C495A13035C495A495A5B133E
+133C5B5B12015B485A485A120F48C7FC121E5A5A12F8B81280A4C70001EB8000AA0103B6
+1280A429377DB630>I<000C15C0D80F80130701F8137F90B612801600A215FC5D5D15C0
+92C7FC14FCEB1F8090C9FCA8EB03FE90381FFFE0017F13F89038FE07FC9038F001FFD9C0
+0013804914C090C7127F000E15E0C8FCED3FF0A316F8A3121FEA7F807F487EA316F05B15
+7F6C4814E0007CC7FCEDFFC07E6C491380D9C0031300390FF00FFE0003B512F86C14E06C
+6C1380D90FF8C7FC25397BB730>I<EC0FF8ECFFFE0103EBFF8090390FF80FC090393FE0
+03E090397F8001F09038FF00034848EB0FF84848131F12075B120F121F5B003FEC0FF0ED
+03C092C7FC485AA400FFEB7FF09038E1FFFC01E313FFD9E700138001EEEB3FC001FC14E0
+ED1FF04914F8150F4914FCA34914FEA5127FA5123F6D14FC121FA2ED1FF86C7E000715F0
+6DEB3FE06C6CEB7FC03A01FF81FF806C6CB512006D13FC010F13F00101138027397CB730
+>I<DB1FFE14E00203B5EAE001021FECF803027FECFE07903B01FFFC00FF0F010701C0EB
+1FDF4990C7EA07FFD93FFC1401D97FF0804948157F4849153F4849151F5A91C9120F4848
+1607A2485A1803123F5B007F1701A34993C7FC12FFAD127F7FF001E0A2123F7F121F1803
+6C6C17C018076C7E6EED0F807E6C6DED1F006C6D153E6D6C5DD93FFC5DD90FFFEC03F06D
+01C0EB0FE0010101FCEB7FC06D6CB6C7FC021F14FC020314E09126001FFEC8FC3B3D7BBB
+46>67 D<D903FF1307011FEBE00F90B512FC486E5A3A07FE00FFBFD80FF0EB1FFF484813
+07497F48487F007F808290C8FC4881A282A27F827F7F6D91C7FCEA7FFCEBFF8014F86CEB
+FFC015FC6C14FF6C15C06C15F06C816C816C6C80011F8001031580EB001F020114C0EC00
+0F15036F13E081167F00F0153FA3161FA27EA26C16C0A26C153F6C16806D147F6D15006D
+14FE01FCEB03FC3AFDFFC00FF8D8F87FB55AD8F01F14C0010391C7FC39E0003FF82B3D7B
+BB36>83 D<003FB912C0A4903AF8007FF001D87FC09238003FE049161F90C7150F007E17
+07007C1703A300781701A448EF00F0A5C81600B3AF010FB77EA43C3A7DB943>I<B600F8
+0107B512E0A426007FF0C83807E000725AB3B3A21807013F5F80A2011F160F6E93C7FC01
+0F5E6D6C153E606D6C5D6D01C013036D01F0EB0FF0DA3FFEEBFFC06EB65A02074AC8FC02
+0014F8030F1380433C7DBA4A>I<EB3FFE48B512E0000714F8390FF007FE391FF801FF6E
+7F6F7EA2826C48133F6C5A6C5AC8FCA491B5FC131F90387FF83F3803FF803807FC00EA1F
+F8485A485A5B12FF5BA3157FA26D13FF397FE001DF263FF00313F83B1FF80F9FFFE0390F
+FFFE0F0001497E39003FE0012B267DA52F>97 D<903801FFF0010F13FE013FEBFF809039
+FF803FC03A03FE007FE0485A485A485AA24848EB3FC0ED1F80007FEC0F0092C7FC5B12FF
+AA127F7FA2123F6D14F0121F6D13016C6CEB03E06C6CEB07C06C6C130FC69038C03F0090
+383FFFFE010F13F8010113C024267DA52B>99 D<903803FF80011F13F0017F13FC9038FF
+81FE3A03FE007F80D807F8133F000FEC1FC0484814E0150F484814F01507127F4914F8A2
+12FFA290B6FCA301C0C8FCA5127FA27F003F1578A26C6C14F8000F15F06C6C13016C6CEB
+03E06CB4EB0FC06C9038C07F8090393FFFFE00010F5B010113C025267DA52C>101
+D<EC1FF0ECFFFE01037F90390FF87F80D91FE013C090383FC0FF137F495AA2485BED7F80
+ED1E0092C7FCAAB67EA4000190C8FCB3AC007F13FEA4223C7DBB1E>I<161FD907FEEBFF
+C090383FFFC390B538F7CFE03A03FE07FF0F3907F801FE390FF000FFEE07C0484890387F
+8380EE8000003F81A7001F5DA26C6C49C7FCA26C6C485A3903FE07FC48B512F0013F13C0
+260E07FEC8FC90CAFCA2120F5A7F6C7E90B512F8EDFF8016E06C15F8826C81A2000F8139
+3FC0000F48480101138090C8127F12FE163FA46C157F6C16006D5C6C6C495AD81FF0EB07
+FCD807FEEB3FF00001B612C06C6C91C7FC010713F02B397DA630>I<13FE12FFA4120712
+03B0EDFF80020313F0020F13FC91383E07FEEC78034A6C7E14E06D486C13805CA291C7FC
+A25BB3A4B5D8F83F13FEA42F3C7CBB36>I<EA03F0487E487E487EA66C5A6C5A6C5AC8FC
+AB13FE127FA412071203B3AAB512F0A4143D7DBC1A>I<D801FCD97FC0EB0FF800FF9026
+03FFF8EB7FFF020F6D48B57E913C1F03FF03E07FE0DA780190380F003F0007D97000018E
+6D7E000349149CD9FDC0D97FF86D7E4A5C13FF91C75BA2495DB3A4B5D8F81FB50003B512
+E0A44B267CA552>109 D<D801FCEBFF8000FF010313F0020F13FC91383E07FEEC780300
+07496C7E000313E09026FDC0001380EBFF80A291C7FCA25BB3A4B5D8F83F13FEA42F267C
+A536>I<903801FFC0010F13F8017F13FFD9FF807F3A03FE003FE0D807F8EB0FF048486D
+7EA248486D7E003F81A248486D7EA400FF1680A9007F1600A36C6C495AA2001F5D6D1307
+000F5D6C6C495AD803FEEB3FE03A00FF80FF806DB5C7FC010F13F8010113C029267DA530
+>I<9038FE01FF00FF011F13F0027F13FC9039FFFC07FE9139F001FF800007D9C00013C0
+6C49EB7FE091C7EA3FF049141F17F8160F17FCA3EE07FEAAEE0FFCA3EE1FF8A2EE3FF06D
+15E06E137F6EEBFFC06E4813009039FEFC07FE91387FFFF8021F13E0DA03FEC7FC91C9FC
+ADB512F8A42F377DA536>I<3901FC03F000FFEB0FFEEC3FFF91387C7F809138F0FFC000
+075B3803FDC0A2EBFF80ED7F809138003F00151E92C7FCA25BB3A2B512FCA422267DA528
+>114 D<90383FF0383903FFFE78000FEBFFF8381FC00F383F0003007E1301007C130012
+FC1578A27E6C140013C013FC387FFFF014FE6CEBFF806C14C06C14F0000314F8C6FC011F
+13FCEB007FEC07FE00F0130114007E157EA27E6C147C15FC6C14F8EB80019038F00FF000
+F9B512C0D8F07F130038E01FF81F267DA526>I<130FA55BA45BA25BA25B5A5A5A001FEB
+FFF0B6FCA3000190C7FCB3153CA8EC80787EECC0F0EB7FE190381FFFE06D1380903801FE
+001E377EB626>I E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+%%PaperSize: a4
+%%BeginPaperSize: a4
+/setpagedevice where {
+pop 1 dict dup /PageSize [ 595 842 ] put setpagedevice
+} {
+statusdict /a4tray known {
+statusdict begin a4tray end
+/a4 where { pop a4 } if
+} {
+/a4 where {
+pop a4
+} {
+statusdict /setpage known {
+statusdict begin
+595 842 0 setpage
+end
+} if
+} ifelse
+} ifelse
+} ifelse
+%%EndPaperSize
+
+%%EndSetup
+%%Page: 1 1
+1 0 bop 136 613 a Fu(Using)34 b(ST)p Ft(KLOS)e Fu(for)g(graphic)h
+(programming)935 699 y Fs(or)337 796 y Ft(\\Programming)16
+b(the)i(Tk)h(to)r(olit)e(with)h(an)h(OO)g(Sc)n(heme")665
+1200 y Fs(Eric)o(k)d(Gallesio)f(\()p Fr(egunice)1179
+1191 y(_)1179 1200 y(fr)p Fs(\))603 1250 y Fq(any)i(other)h(volunte)n
+(ers)g(ar)n(e)f(welc)n(ome)1647 2522 y Fp(April)c(1995)p
+eop
+%%Page: 2 2
+2 1 bop 75 551 a Fo(Con)m(ten)m(ts)75 832 y Fn(1)38 b(Getting)13
+b(Started)1344 b(4)137 905 y Fp(1.1)42 b(First)14 b(steps)k(.)i(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)73 b(4)137 979 y(1.2)42 b(Class)14 b(Hierarc)o(h)o(y)20
+b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)73 b(5)233 1052 y(1.2.1)46 b(The)14 b Fm(<Tk-widget>)d
+Fp(class)41 b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73
+b(6)233 1126 y(1.2.2)46 b(The)14 b Fm(<Tk-simple-widget)o(>)d
+Fp(class)17 b(.)j(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(7)233
+1199 y(1.2.3)46 b(The)14 b Fm(<Tk-canvas-item>)c Fp(class)29
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(9)137 1272 y(1.3)42
+b(F)m(unctions)14 b(of)f(this)h(c)o(hapter)g(.)20 b(.)g(.)h(.)f(.)g(.)h
+(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)73 b(9)75 1387 y
+Fn(2)38 b(Basic)16 b(widgets)1367 b(15)137 1461 y Fp(2.1)42
+b(In)o(tro)q(duction)13 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52 b(15)233
+1534 y(2.1.1)46 b(A)14 b(simple)e(in)o(terface)37 b(.)20
+b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(15)233 1608 y(2.1.2)46 b(De\014ning)13 b(Men)o(us)19
+b(.)h(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(18)137 1681 y(2.2)42 b(Simple)12 b(widgets)i(classes)31
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(20)233 1755 y(2.2.1)46 b(The)14 b Fm(Frame)f Fp(class)42
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(20)233 1828 y(2.2.2)46 b(The)14 b(lab)q(el)f(class)33
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(21)137 1901 y(2.3)42 b(The)14 b(Message)h(class)38
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)52 b(22)137 1975 y(2.4)42 b(The)14 b(Button)g(class)27
+b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)52 b(24)137 2048 y(2.5)42 b(F)m(unctions)14
+b(of)f(this)h(c)o(hapter)g(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)52 b(25)75 2163 y Fn(3)38 b(Simple)13
+b(widget)i(metho)q(ds)1162 b(26)137 2237 y Fp(3.1)42
+b(pac)o(k)28 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(26)137 2310 y(3.2)42 b(raise)28 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)52 b(26)137 2384 y(3.3)42 b(lo)o(w)o(er)16 b(.)k(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)52 b(26)75 2498 y Fn(4)38 b(The)16 b(Can)o(v)m(as)g(widget)
+1252 b(27)137 2572 y Fp(4.1)42 b(The)14 b(<Can)o(v)n(as>)e(class)27
+b(.)20 b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)
+f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)52 b(27)137 2645 y(4.2)42 b(The)14 b(<Can)o(v)n(as-item>)d
+(class)29 b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f
+(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)
+f(.)52 b(27)233 2719 y(4.2.1)46 b(<Rectangle>)13 b(class)27
+b(.)20 b(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)
+h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(27)233 2792 y(4.2.2)46 b(<Ov)n(al>)12 b(class)24 b(.)c(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(27)946 2960 y(2)p eop
+%%Page: 3 3
+3 2 bop 75 35 a Fl(CONTENTS)1292 b(CONTENTS)p 75 51 1763
+2 v 137 195 a Fp(4.3)42 b(Grouping)13 b(can)o(v)n(as)g(item)g(ob)r
+(jects)25 b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(27)75 310 y Fn(5)38 b(The)16 b(T)l(ext)g(widget)1304
+b(28)137 383 y Fp(5.1)42 b(The)14 b(<T)m(ext>)f(class)41
+b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)52 b(28)137 457 y(5.2)42 b(The)14 b(<T)m(ext-tag>)f(class)33
+b(.)21 b(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)52 b(28)137 530 y(5.3)42 b(The)14 b(<T)m(ext-mark>)28
+b(.)20 b(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)
+h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g
+(.)h(.)f(.)52 b(28)75 645 y Fn(6)38 b(Comp)q(osite)15
+b(widgets)1255 b(29)137 719 y Fp(6.1)42 b(Standard)14
+b(comp)q(osite)f(widgets)19 b(.)i(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(29)233 792 y(6.1.1)46 b(Lab)q(eled)14
+b(En)o(try)41 b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(29)233 866 y(6.1.2)46 b(Default)13 b(button)31
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(29)233 939 y(6.1.3)46 b(Choice)14 b(button)43 b(.)20
+b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h
+(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(29)233 1012 y(6.1.4)46 b(P)o(aned)14 b(windo)o(w)37
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(29)233 1086 y(6.1.5)46 b(Scro)q(ol)13 b(Listb)q(o)o(x)40
+b(.)20 b(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)52
+b(29)233 1159 y(6.1.6)46 b(Scroll)13 b(T)m(ext)38 b(.)20
+b(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+52 b(29)233 1233 y(6.1.7)46 b(Scroll)13 b(Can)o(v)n(as)23
+b(.)e(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g
+(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)
+52 b(29)233 1306 y(6.1.8)46 b(File)13 b(b)q(o)o(x)23
+b(.)e(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g
+(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)
+g(.)h(.)f(.)52 b(29)137 1380 y(6.2)42 b(W)m(riting)12
+b(comp)q(osite)h(widgets)i(.)20 b(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f
+(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)g(.)g(.)h(.)f(.)g(.)h(.)f(.)
+g(.)g(.)h(.)f(.)52 b(29)946 2960 y(3)p eop
+%%Page: 4 4
+4 3 bop 75 530 a Fu(Chapter)31 b(1)75 761 y Fo(Getting)39
+b(Started)75 1001 y Fp(This)11 b(c)o(hapter)i(will)d(explain)h(the)h
+(things)f(y)o(ou)g(m)o(ust)g(kno)o(w)g(to)g(b)q(egin)h(to)f(manipulate)
+f(Tk)h(widgets)h(as)f Fk(STklos)75 1051 y Fp(ob)r(jects.)24
+b(This)16 b(is)f(a)g(short)h(in)o(tro)q(duction)g(for)f(programmi)o(ng)
+e(the)j(Tk)f(to)q(olkit)f(with)i(ob)r(jects.)24 b(If)15
+b(y)o(ou)g(kno)o(w)75 1100 y(ho)o(w)f(to)g(program)f(it)h(with)h(the)g
+(Tcl)f(language,)f(y)o(ou)h(will)f(see)j(that)f(things)f(are)h(not)f
+(to)q(o)h(m)o(uc)o(h)e(di\013eren)o(t)i(\(at)75 1150
+y(least)f(at)g(\014rst)g(sigh)o(t\).)k(A)c(go)q(o)q(d)g(in)o(tro)q
+(duction)f(to)h(Tk)g(programmi)o(ng)d(in)j(Tcl)f(can)h(b)q(e)h(found)e
+(in)h([)p Fn(?)o Fp(])f(or)h([)p Fn(?)o Fp(].)75 1309
+y Fj(1.1)66 b(First)24 b(steps)75 1424 y Fp(When)15 b(y)o(ou)e(w)o(an)o
+(t)h(to)h(use)g(the)g(Tk)f(to)q(olkit)f(with)h(the)h
+Fk(STklos)p Fp(,)g(y)o(ou)f(m)o(ust)g(\014rst)h(call)e(the)i
+Fk(STk)g Fp(in)o(terpreter.)75 1474 y(Launc)o(hing)f(the)i(in)o
+(terpreter)h(is)d(usually)g(done)i(b)o(y)e(a)h(call)f(to)h(the)g(shell)
+g(script)h Fm(stk)e Fp(whic)o(h)h(m)o(ust)f(ha)o(v)o(e)g(b)q(een)75
+1524 y(installed)19 b(in)f(a)h(standard)h(place.)34 b(Once,)21
+b(the)f(in)o(terpreter)h(is)e(initialized,)g(a)g(small)e(square)j
+(windo)o(w)e(will)75 1573 y(app)q(ear)13 b(on)g(y)o(our)g(displa)o(y)m
+(.)j(This)d(windo)o(w)f(is)g(called)h(the)g Fi(r)n(o)n(ot)h(window)p
+Fp(.)j(Its)c(v)n(alue)f(is)h(alw)o(a)o(ys)f(retained)h(in)g(the)75
+1623 y(global)f(v)n(ariable)h Fm(*top-root*)p Fp(.)75
+1697 y(Once)h(the)f(Tk)f(initialization)e(is)i(complete,)g(y)o(ou)g(ha)
+o(v)o(e)g(to)g(load)g(the)h(\014le)f Fm(Tk-classes)p
+Fp(.)k(This)c(can)h(b)q(e)g(done)g(b)o(y)179 1795 y Fm(\(require)20
+b("Tk-classes"\))75 1894 y Fp(The)12 b Fm(Tk-classes)e
+Fp(\014le)h(con)o(tains)h(a)g(set)g(of)f Fm(autoload)p
+Fp(s)g(for)g(all)f(the)j(Tk)e(widgets)h(de\014ned)h(in)e(the)i
+Fk(STk)f Fp(release.)75 1944 y(If)i(y)o(ou)h(plan)f(to)h(alw)o(a)o(ys)f
+(w)o(ork)g(with)h(those)g(classes,)h(y)o(ou)f(can)g(put)g(this)g(line)f
+(in)h(y)o(our)f Fk(STk)h Fp(init)f(\014le)h(\(i.e.)21
+b(in)75 1994 y(the)14 b(\014le)g(\\)234 1983 y Fm(~)234
+1994 y(/.stkrc)p Fp("\))e(to)i(a)o(v)o(oid)f(\(man)o(ual\))e(loading)i
+(of)g(this)h(\014le.)75 2067 y(F)m(rom)c(no)o(w,)i(w)o(e)g(are)h(able)f
+(to)g(in)o(teract)h(with)f(the)g(Tk)g(to)q(olkit.)17
+b(T)m(ry)12 b(to)g(en)o(ter)h(the)g(follo)o(wing)c(lines)j(at)g(the)h
+Fk(STk)75 2117 y Fp(prompt:)179 2216 y Fm(\(define)20
+b(hello)h(\(make)g(<Label>)f(:text)h("Hello,)f(world"\)\))75
+2315 y Fp(The)c(call)g(to)f Fm(make)g Fp(creates)j(a)e(new)g(ob)r(ject)
+h(\(i.e.)24 b(an)15 b(instance)i(of)f(the)g(class)g Fm(<Label>)p
+Fp(\))f(with)h(its)g(slot)f Fm(text)75 2365 y Fp(\014lled)g(with)f(the)
+i(string)f Fm("Hello,)21 b(world")p Fp(.)f(In)15 b(the)h(ab)q(o)o(v)o
+(e)e(example,)g(this)h(new)h(ob)r(ject)g(is)f(assigned)g(to)g(the)75
+2415 y(sym)o(b)q(ol)f Fm(hello)p Fp(.)23 b(Ev)o(en,)16
+b(if)f(a)h(new)g(lab)q(el)g(is)f(created,)j(nothing)d(will)f(b)q(e)j
+(displa)o(y)o(ed)e(on)h(y)o(our)f(screen.)26 b(Y)m(ou'll)75
+2464 y(ha)o(v)o(e)15 b(to)g(use)h(a)f Fi(ge)n(ometry)g(manager)h
+Fp(for)e(displa)o(ying)g(a)h(Tk)g(widget)f(on)o(to)h(screen.)24
+b(Tw)o(o)14 b(windo)o(w)g(managers)75 2514 y(are)f(pro)o(vided)f(with)h
+(Tk,)f(namely)f(the)i Fi(p)n(acker)f Fp(and)h(the)g Fi(plac)n(er)p
+Fp(.)k(Both)c(command)d(ha)o(v)o(e)i(a)g(full)f(set)j(of)e(options)75
+2564 y(whic)o(h)i(will)e(b)q(e)j(detailed)e(later)h(\(see)i
+Fn(??)o Fp(\).)i(F)m(or)13 b(no)o(w,)g(w)o(e)i(will)d(just)i(use)h(the)
+f(pac)o(k)o(er)h(in)e(its)h(simpler)f(form:)179 2663
+y Fm(\(pack)21 b(hello\))75 2762 y Fp(p)q(ermits)13 b(to)h(map)e(the)j
+Fm(hello)e Fp(button)h(on)o(to)f(screen.)75 2835 y(Let)h(us)h(see)g
+(further)g(ho)o(w)e(the)h Fm(hello)f Fp(button)h(is)g(built.)j(Using)d
+(describ)q(e)i(on)d(it)h(will)e(displa)o(y:)946 2960
+y(4)p eop
+%%Page: 5 5
+5 4 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)561
+b(1.2.)31 b(CLASS)14 b(HIERAR)o(CHY)p 75 51 1763 2 v
+179 195 a Fm(#[<label>)20 b(e1444])g(is)i(an)f(instance)f(of)i(class)e
+(<label>)179 245 y(Slots)h(are:)288 295 y(id)g(=)h(#[Tk-command)d(.v1])
+288 345 y(eid)i(=)h(#[Tk-command)d(.v1])288 394 y(parent)h(=)i
+(#[Tk-command)d(.])288 444 y(bitmap)h(=)i("")288 494
+y(width)f(=)g(0)288 544 y(height)f(=)i(0)288 594 y(anchor)e(=)i
+("center")288 643 y(font)f(=)g("9x15")288 693 y(foreground)e(=)j
+("Black")288 743 y(pad-x)f(=)g(1)288 793 y(pad-y)g(=)g(1)288
+843 y(text)g(=)g("Hello,)g(world")288 892 y(text-variable)e(=)i("")288
+942 y(background)e(=)j("#cccccc")288 992 y(border-width)d(=)j(0)288
+1042 y(cursor)e(=)i("")288 1092 y(relief)e(=)i("flat")75
+1189 y(Id)p Fp(,)13 b Fm(Eid)h Fp(and)g Fm(parent)f Fp(slots)i(are)f
+(presen)o(t)i(in)e(all)f(Tk)h(widgets)h(and)f(are)g(used)i(b)o(y)e(the)
+h(system.)k(Don't)13 b(try)i(to)75 1239 y(c)o(hange)d(their)g(v)n
+(alue.)17 b(Other)12 b(slots)g(dep)q(end)h(of)e(the)h(kind)g(\(i.e.)k
+(the)d(class\))f(of)f(widget.)17 b(The)12 b(slots)g(listed)g(ab)q(o)o
+(v)o(e)75 1289 y(corresp)q(ond)i(to)f(the)g(v)n(arious)f(Tk)h(options)f
+(a)o(v)n(ailable)e(on)j(a)f(lab)q(el.)17 b(Of)c(course)h(y)o(ou)e(can)h
+(consult/c)o(hange)g(their)75 1338 y(v)n(alue)k(with)f(the)i(standard)g
+Fm(slot-ref)d Fp(or)j Fm(slot-set!)26 b Fp(primitiv)o(es.)g(F)m(or)17
+b(instance,)h(one)g(can)f(c)o(hange)h(the)75 1388 y(bac)o(kground)c
+(color)f(of)h(the)g Fm(hello)f Fp(button)h(with)g(the)g(follo)o(wing)d
+(form:)179 1485 y Fm(\(slot-set!)20 b(hello)g('background)g
+("Chocolate"\))75 1583 y Fp(or,)13 b(using)h(the)g Fk(STklos)h
+Fp(generalized)g(assignmen)o(t,)179 1680 y Fm(\(set!)21
+b(\(background)e(hello\))i("Chocolate"\))75 1777 y Fp(Of)14
+b(course,)h(the)f(bac)o(kground)g(v)n(alue)f(can)h(b)q(e)h(queried)f
+(with)179 1874 y Fm(\(slot-ref)20 b(hello)g('background\))353
+1924 y(-->)h("Chocolate")75 2021 y Fp(or)179 2118 y Fm(\(background)e
+(hello\))353 2168 y(-->)i("Chocolate")75 2265 y Fp(Here,)e
+Fm(background)c Fp(is)i(used)h(as)f(an)g(accessor)h(of)f(the)h(lab)q
+(el)e(bac)o(kground.)28 b(It)17 b(w)o(ould)f(b)q(e)i(also)e(p)q
+(ossible)i(to)75 2315 y(sp)q(ecify)12 b(this)f(v)n(alue)g(at)g(lab)q
+(el)g(instan)o(tiation)f(with)h(the)g Fm(:background)e
+Fi(initialization)j(keywor)n(d)23 b Fp(and)11 b(the)h(same)75
+2365 y(windo)o(w)h(could)h(ha)o(v)o(e)f(b)q(e)i(obtained)f(with)f(the)i
+(follo)o(wing)c Fm(make)i Fp(call)179 2462 y Fm(\(define)20
+b(hello)h(\(make)g(<Label>)f(:text)h("Hello)f(world")789
+2512 y(:background)g("Chocolate"\)\))75 2671 y Fj(1.2)66
+b(Class)22 b(Hierarc)n(h)n(y)75 2785 y Fk(STklos)e Fp(Tk)f(classes)h(p)
+q(ermit)e(to)h Fi(r)n(eify)f Fp(the)i(Tk)e(widgets)i(in)o(to)e
+Fk(STklos)p Fp(ob)r(jects.)35 b(It)19 b(means)g(that)g(ev)o(ery)75
+2835 y(graphical)h(ob)r(ject)h(used)g(in)f(a)g(program)f(suc)o(h)i(as)g
+(a)f(men)o(u,)g(a)h(lab)q(el)f(or)g(a)g(button)h(is)f(represen)o(ted)j
+(as)e(a)946 2960 y(5)p eop
+%%Page: 6 6
+6 5 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)561
+b(1.2.)31 b(CLASS)14 b(HIERAR)o(CHY)p 75 51 1763 2 v
+331 779 a @beginspecial 157 @llx 611 @lly 457 @urx 761
+@ury 3000 @rwi @setspecial
+%%BeginDocument: Fig1-1.eps
+
+/IdrawDict 51 dict def
+IdrawDict begin
+
+/reencodeISO {
+dup dup findfont dup length dict begin
+{ 1 index /FID ne { def }{ pop pop } ifelse } forall
+/Encoding ISOLatin1Encoding def
+currentdict end definefont
+} def
+
+/ISOLatin1Encoding [
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
+/parenleft/parenright/asterisk/plus/comma/minus/period/slash
+/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
+/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
+/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
+/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
+/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
+/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
+/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
+/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
+/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
+/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
+/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
+/guillemotright/onequarter/onehalf/threequarters/questiondown
+/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
+/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
+/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
+/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
+/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
+/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
+/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
+/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
+/yacute/thorn/ydieresis
+] def
+/Courier-Bold reencodeISO def
+
+/arrowHeight 8 def
+/arrowWidth 4 def
+/none null def
+/numGraphicParameters 17 def
+/stringLimit 65535 def
+
+/Begin {
+save
+numGraphicParameters dict begin
+} def
+
+/End {
+end
+restore
+} def
+
+/SetB {
+dup type /nulltype eq {
+pop
+false /brushRightArrow idef
+false /brushLeftArrow idef
+true /brushNone idef
+} {
+/brushDashOffset idef
+/brushDashArray idef
+0 ne /brushRightArrow idef
+0 ne /brushLeftArrow idef
+/brushWidth idef
+false /brushNone idef
+} ifelse
+} def
+
+/SetCFg {
+/fgblue idef
+/fggreen idef
+/fgred idef
+} def
+
+/SetCBg {
+/bgblue idef
+/bggreen idef
+/bgred idef
+} def
+
+/SetF {
+/printSize idef
+/printFont idef
+} def
+
+/SetP {
+dup type /nulltype eq {
+pop true /patternNone idef
+} {
+dup -1 eq {
+/patternGrayLevel idef
+/patternString idef
+} {
+/patternGrayLevel idef
+} ifelse
+false /patternNone idef
+} ifelse
+} def
+
+/BSpl {
+0 begin
+storexyn
+newpath
+n 1 gt {
+0 0 0 0 0 0 1 1 true subspline
+n 2 gt {
+0 0 0 0 1 1 2 2 false subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
+} if
+n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Circ {
+newpath
+0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/CBSpl {
+0 begin
+dup 2 gt {
+storexyn
+newpath
+n 1 sub dup 0 0 1 1 2 2 true subspline
+1 1 n 3 sub {
+/i exch def
+i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
+} for
+n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
+n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
+patternNone not { ifill } if
+brushNone not { istroke } if
+} {
+Poly
+} ifelse
+end
+} dup 0 4 dict put def
+
+/Elli {
+0 begin
+newpath
+4 2 roll
+translate
+scale
+0 0 1 0 360 arc
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 1 dict put def
+
+/Line {
+0 begin
+2 storexyn
+newpath
+x 0 get y 0 get moveto
+x 1 get y 1 get lineto
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+0 0 1 1 rightarrow
+end
+} dup 0 4 dict put def
+
+/MLine {
+0 begin
+storexyn
+newpath
+n 1 gt {
+x 0 get y 0 get moveto
+1 1 n 1 sub {
+/i exch def
+x i get y i get lineto
+} for
+patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
+brushNone not { istroke } if
+0 0 1 1 leftarrow
+n 2 sub dup n 1 sub dup rightarrow
+} if
+end
+} dup 0 4 dict put def
+
+/Poly {
+3 1 roll
+newpath
+moveto
+-1 add
+{ lineto } repeat
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+} def
+
+/Rect {
+0 begin
+/t exch def
+/r exch def
+/b exch def
+/l exch def
+newpath
+l b moveto
+l t lineto
+r t lineto
+r b lineto
+closepath
+patternNone not { ifill } if
+brushNone not { istroke } if
+end
+} dup 0 4 dict put def
+
+/Text {
+ishow
+} def
+
+/idef {
+dup where { pop pop pop } { exch def } ifelse
+} def
+
+/ifill {
+0 begin
+gsave
+patternGrayLevel -1 ne {
+fgred bgred fgred sub patternGrayLevel mul add
+fggreen bggreen fggreen sub patternGrayLevel mul add
+fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
+eofill
+} {
+eoclip
+originalCTM setmatrix
+pathbbox /t exch def /r exch def /b exch def /l exch def
+/w r l sub ceiling cvi def
+/h t b sub ceiling cvi def
+/imageByteWidth w 8 div ceiling cvi def
+/imageHeight h def
+bgred bggreen bgblue setrgbcolor
+eofill
+fgred fggreen fgblue setrgbcolor
+w 0 gt h 0 gt and {
+l b translate w h scale
+w h true [w 0 0 h neg 0 h] { patternproc } imagemask
+} if
+} ifelse
+grestore
+end
+} dup 0 8 dict put def
+
+/istroke {
+gsave
+brushDashOffset -1 eq {
+[] 0 setdash
+1 setgray
+} {
+brushDashArray brushDashOffset setdash
+fgred fggreen fgblue setrgbcolor
+} ifelse
+brushWidth setlinewidth
+originalCTM setmatrix
+stroke
+grestore
+} def
+
+/ishow {
+0 begin
+gsave
+fgred fggreen fgblue setrgbcolor
+printFont printSize scalefont setfont
+/descender 0 printFont /FontBBox get 1 get printFont /FontMatrix
+get transform exch pop def
+/vertoffset 1 printSize sub descender sub def {
+0 vertoffset moveto show
+/vertoffset vertoffset printSize sub def
+} forall
+grestore
+end
+} dup 0 2 dict put def
+
+/patternproc {
+0 begin
+/patternByteLength patternString length def
+/patternHeight patternByteLength 8 mul sqrt cvi def
+/patternWidth patternHeight def
+/patternByteWidth patternWidth 8 idiv def
+/imageByteMaxLength imageByteWidth imageHeight mul
+stringLimit patternByteWidth sub min def
+/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
+patternHeight mul patternHeight max def
+/imageHeight imageHeight imageMaxHeight sub store
+/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
+0 1 imageMaxHeight 1 sub {
+/y exch def
+/patternRow y patternByteWidth mul patternByteLength mod def
+/patternRowString patternString patternRow patternByteWidth getinterval def
+/imageRow y imageByteWidth mul def
+0 patternByteWidth imageByteWidth 1 sub {
+/x exch def
+imageString imageRow x add patternRowString putinterval
+} for
+} for
+imageString
+end
+} dup 0 12 dict put def
+
+/min {
+dup 3 2 roll dup 4 3 roll lt { exch } if pop
+} def
+
+/max {
+dup 3 2 roll dup 4 3 roll gt { exch } if pop
+} def
+
+/arrowhead {
+0 begin
+transform originalCTM itransform
+/taily exch def
+/tailx exch def
+transform originalCTM itransform
+/tipy exch def
+/tipx exch def
+/dy tipy taily sub def
+/dx tipx tailx sub def
+/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
+gsave
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+patternNone not {
+originalCTM setmatrix
+/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
+arrowWidth div def
+/padtail brushWidth 2 div def
+tipx tipy translate
+angle rotate
+padtip 0 translate
+arrowHeight padtip add padtail add arrowHeight div dup scale
+arrowheadpath
+ifill
+} if
+brushNone not {
+originalCTM setmatrix
+tipx tipy translate
+angle rotate
+arrowheadpath
+istroke
+} if
+grestore
+end
+} dup 0 9 dict put def
+
+/arrowheadpath {
+newpath
+0 0 moveto
+arrowHeight neg arrowWidth 2 div lineto
+arrowHeight neg arrowWidth 2 div neg lineto
+closepath
+} def
+
+/leftarrow {
+0 begin
+y exch get /taily exch def
+x exch get /tailx exch def
+y exch get /tipy exch def
+x exch get /tipx exch def
+brushLeftArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/rightarrow {
+0 begin
+y exch get /tipy exch def
+x exch get /tipx exch def
+y exch get /taily exch def
+x exch get /tailx exch def
+brushRightArrow { tipx tipy tailx taily arrowhead } if
+end
+} dup 0 4 dict put def
+
+/midpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 x1 add 2 div
+y0 y1 add 2 div
+end
+} dup 0 4 dict put def
+
+/thirdpoint {
+0 begin
+/y1 exch def
+/x1 exch def
+/y0 exch def
+/x0 exch def
+x0 2 mul x1 add 3 div
+y0 2 mul y1 add 3 div
+end
+} dup 0 4 dict put def
+
+/subspline {
+0 begin
+/movetoNeeded exch def
+y exch get /y3 exch def
+x exch get /x3 exch def
+y exch get /y2 exch def
+x exch get /x2 exch def
+y exch get /y1 exch def
+x exch get /x1 exch def
+y exch get /y0 exch def
+x exch get /x0 exch def
+x1 y1 x2 y2 thirdpoint
+/p1y exch def
+/p1x exch def
+x2 y2 x1 y1 thirdpoint
+/p2y exch def
+/p2x exch def
+x1 y1 x0 y0 thirdpoint
+p1x p1y midpoint
+/p0y exch def
+/p0x exch def
+x2 y2 x3 y3 thirdpoint
+p2x p2y midpoint
+/p3y exch def
+/p3x exch def
+movetoNeeded { p0x p0y moveto } if
+p1x p1y p2x p2y p3x p3y curveto
+end
+} dup 0 17 dict put def
+
+/storexyn {
+/n exch def
+/y n array def
+/x n array def
+n 1 sub -1 0 {
+/i exch def
+y i 3 2 roll put
+x i 3 2 roll put
+} for
+} def
+
+
+%I Idraw 9 Grid 8 
+
+
+Begin
+%I b u
+%I cfg u
+%I cbg u
+%I f u
+%I p u
+%I t
+[ .8 0 0 .8 0 0 ] concat
+/originalCTM matrix currentmatrix def
+
+Begin %I Pict
+%I b u
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 34 190.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg Black
+0 0 0 SetCBg
+none SetP %I p n
+%I t
+[ 1 0 0 1 145 197.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 319 747 ] concat
+%I
+[
+(Tk-object)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 4 .5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg LtGray
+.762951 .762951 .762951 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 55 307.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 229 857 ] concat
+%I
+[
+(Tk-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -120.5 100.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 179.5 137.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 329 687 ] concat
+%I
+[
+(Tk-simple-widget)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+254 530 136 480 Line
+End
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+134 449 134 410 Line
+End
+
+Begin %I Pict
+%I b u
+%I cfg u
+%I cbg White
+1 1 1 SetCBg
+%I f u
+%I p u
+%I t
+[ 1 0 0 1 -4.5 55.5 ] concat
+
+Begin %I Rect
+%I b 65535
+2 0 0 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg LtGray
+.762951 .762951 .762951 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 302.5 252.5 ] concat
+%I
+141 530 270 560 Rect
+End
+
+Begin %I Text
+%I cfg Black
+0 0 0 SetCFg
+%I f *-courier-bold-r-*-120-*
+Courier-Bold 12 SetF
+%I t
+[ 1 0 0 1 459 802 ] concat
+%I
+[
+(Tk-canvas-item)
+] Text
+End
+
+End %I eop
+
+Begin %I Line
+%I b 65535
+1 0 1 [] 0 SetB
+%I cfg Black
+0 0 0 SetCFg
+%I cbg White
+1 1 1 SetCBg
+%I p
+1 SetP
+%I t
+[ 1 0 0 1 126 390 ] concat
+%I
+255 528 385 480 Line
+End
+
+End %I eop
+
+showpage
+
+
+end
+%%EndDocument
+ @endspecial 570 870 a Fp(Figure)g(1.1:)j(Head)d(of)g(the)g
+Fk(STklos)h Fp(hierarc)o(h)o(y)75 1002 y Fk(STklos)f
+Fp(ob)r(ject.)19 b(All)13 b(the)h(de\014ned)g Fk(STklos)h
+Fp(classes)g(build)d(a)h(hierarc)o(h)o(y)h(whic)o(h)g(is)f(brie\015y)g
+(describ)q(ed)j(here.)75 1052 y(Firstly)m(,)g(all)f(the)i(classes)h
+(shared)g(a)e(unique)g(ancestor:)25 b(the)17 b Fm(<Tk-object>)d
+Fp(class.)26 b(Instances)19 b(of)c(this)i(class)75 1102
+y(con)o(tain)e(informations)f(whic)o(h)i(are)g(necessary)i(for)d
+(establishing)h(a)f(comm)o(unication)e(b)q(et)o(w)o(een)k(the)g(Sc)o
+(heme)75 1151 y(and)h(Tk)f(w)o(orlds.)30 b(Principally)m(,)16
+b(ob)r(jects)j(of)f(this)f(class)i(ha)o(v)o(e)e(the)i(three)g(slots)f
+(cited)g(b)q(efore)h Fm(Id)p Fp(,)e Fm(Eid)h Fp(and)75
+1201 y Fm(parent)p Fp(.)i(The)15 b Fm(Id)g Fp(slot)f(con)o(tains)h(a)g
+(Tk)f(command)f([)p Fn(?)o Fp(],)h(generated)i(b)o(y)f
+Fk(STklos)h Fp(itself,)e(whic)o(h)h(corresp)q(ond)75
+1251 y(to)g(the)i Fk(STk)e Fp(command)e(whic)o(h)j(implem)o(en)o(t)d
+(the)j(ob)r(ject.)24 b(The)16 b Fm(parent)e Fp(slot)i(con)o(tains)f(a)g
+(reference)j(to)e(the)75 1301 y(ob)r(ject)e(whic)o(h)f(\(graphically\))
+f(include)i(the)g(curren)o(t)g(ob)r(ject.)19 b(This)13
+b(slot)g(will)f(b)q(e)i(discussed)h(later.)j(Normally)m(,)75
+1351 y(end)c(users)i(will)c(not)i(ha)o(v)o(e)g(to)f(use)i(direct)g
+(instances)g(of)e(the)i Fm(<Tk-object>)c Fp(class)1379
+1336 y Fh(1)1398 1351 y Fp(.)75 1424 y(The)19 b(next)h(lev)o(el)e(in)g
+(our)h(class)g(hierarc)o(h)o(y)h(de\014ne)f(a)g(fork)f(with)h(t)o(w)o
+(o)f(branc)o(hes:)29 b(the)20 b Fm(<Tk-widget>)c Fp(class)75
+1474 y(and)j Fm(<Tk-canvas-item>)c Fp(class.)34 b(Instances)20
+b(of)f(the)g(former)f(class)i(are)f(classical)g(widgets)g(suc)o(h)g(as)
+g(but-)75 1524 y(tons,)g(men)o(us)f(or)h(can)o(v)n(ases)g(since)g
+(instances)h(of)e(the)h(later)f(are)h(ob)r(jects)h(con)o(tained)f(in)f
+(a)g(can)o(v)n(as)g(suc)o(h)h(as)75 1573 y(lines)c(or)g(rectangles.)22
+b Fm(<Tk-widget>)p Fp(s)13 b(are)i(also)f(divided)h(in)f(t)o(w)o(o)g
+(categories:)21 b Fm(<Tk-simple-widget>)o Fp(s)13 b(and)75
+1623 y Fm(<Tk-composite-wid)o(get>)p Fp(s.)h(Simples)9
+b(widgets)i(are)g(directly)g(implem)o(en)o(ted)e(as)i(Tk)f(ob)r(jects)i
+(and)e(comp)q(osite)75 1673 y(ones)k(are)g(build)f(up)q(on)h(simple)e
+(widgets)i(\(e.g.)k(\014le)c(bro)o(wser,)g(alert)g(messages)f(and)h(so)
+g(on\).)k(The)c(head)g(of)f(the)75 1723 y Fk(STklos)i
+Fp(hierarc)o(h)o(y)f(is)g(sho)o(wn)g(in)f(Figure)h(1.1.)75
+1863 y Ft(1.2.1)55 b(The)19 b Fr(<Tk-widge)o(t>)c Ft(class)75
+1963 y Fp(No)g(slot)h(is)f(de\014ned)i(for)e(this)h(class.)23
+b(Ho)o(w)o(ev)o(er,)16 b(since)g(this)g(class)g(is)f(common)e(to)j(all)
+e(the)i(in)o(terface)g(ob)r(jects)75 2013 y(\(men)o(us,)f(buttons,)g
+(lab)q(el,)g(.)6 b(.)h(.)f(\),)15 b(it)g(p)q(ermits)g(to)g(de\014ne)h
+(their)g(common)c(b)q(eha)o(vior.)22 b(The)15 b(b)q(eha)o(vior)g(of)g
+(those)75 2062 y(ob)r(jects)f(is)e(describ)q(ed)i(using)e
+Fk(STklos)i Fp(metho)q(ds)e(with)g(one)h(of)f(their)g(argumen)o(t)g
+(\(generally)g(the)h(\014rst\))h(whic)o(h)75 2112 y(is)h(a)g
+Fm(<Tk-widget>)p Fp(.)20 b(The)c Fi(p)n(ack)g Fp(geometry)e(manager)g
+(cited)i(b)q(elo)o(w)f(is)g(one)h(of)f(suc)o(h)h(metho)q(ds.)22
+b(The)15 b Fi(p)n(acker)75 2162 y Fp(will)c(b)q(e)i(fully)e(describ)q
+(ed)k(b)q(elo)o(w)d(\(see)i(9\);)e(ho)o(w)o(ev)o(er,)h(brie\015y)g
+(stated,)g(w)o(e)g(can)g(sa)o(y)f(that)h(it)f(p)q(ermits)g(to)g
+(explain)75 2212 y(the)k(geometry)g(of)f(a)g(widget)h(dep)q(ending)g
+(of)g(its)f(neigh)o(b)q(ors.)25 b(The)16 b(example)e(b)q(elo)o(w)i(sho)
+o(ws)g(ho)o(w)g(to)f(use)i(the)75 2262 y(pac)o(k)d(primitiv)o(e)e(with)
+h(argumen)o(ts.)179 2368 y Fm(\(define)20 b(lab1)h(\(make)g(<Label>)f
+(:text)h("Label)g(1"\)\))179 2418 y(\(define)f(lab2)h(\(make)g(<Label>)
+f(:text)h("Label)g(2"\)\))179 2517 y(\(pack)g(lab1)g(:side)f
+("bottom"\))179 2567 y(\(pack)h(lab2)g(:side)f("top")h(:expand)f(#t)i
+(:fill)f("both"\))75 2673 y Fp(Here,)16 b(t)o(w)o(o)e(lab)q(els)g(are)h
+(de\014ned)h Fm(lab1)e Fp(and)h Fm(lab2)p Fp(.)k(The)c(\014rst)h(call)e
+(to)g(pac)o(k)h(sa)o(ys)g(that)g Fm(lab1)e Fp(should)i(o)q(ccup)o(y)75
+2723 y(the)20 b(b)q(ottom)e(of)h(the)h(windo)o(w.)35
+b(Second)20 b(call)f(states)h(that)g Fm(lab2)f Fp(will)f(o)q(ccup)o(y)i
+(the)g(top)g(of)f(the)h(windo)o(w.)p 75 2757 705 2 v
+121 2784 a Fg(1)139 2796 y Ff(All)13 b(classes)e(whose)i(name)e(b)q
+(egin)h(with)g(the)g(\\Tk-")h(pre\014x)e(are)h(not)g(are)h(not)f(in)o
+(tended)e(for)i(the)g(\014nal)g(user.)19 b(They)12 b(will)h(b)q(e)75
+2835 y(discussed)c(in)j(this)e(do)q(cumen)o(t)f(only)i(if)g(it)g(seems)
+g(necessary)e(for)i(a)g(go)q(o)q(d)f(class)h(hierarc)o(h)o(y)e
+(comprehensi)o(on.)946 2960 y Fp(6)p eop
+%%Page: 7 7
+7 6 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)561
+b(1.2.)31 b(CLASS)14 b(HIERAR)o(CHY)p 75 51 1763 2 v
+75 195 a Fp(F)m(urthermore,)j(the)h(options)f Fm(:expand)f
+Fp(and)h Fm(:fill)f Fp(sp)q(eci\014ed)j(during)e Fm(lab2)f
+Fp(pac)o(king)h(tells)g(to)g(the)h(pac)o(k)o(er)75 245
+y(that)d(its)g(geometry)g(m)o(ust)f(b)q(e)h(adjusted)h(to)f(\014ll)f
+(all)g(the)i(space)g(if)e(its)h(con)o(taining)f(windo)o(w)g(is)h
+(resized.)24 b(If)14 b(w)o(e)75 295 y(do)g(no)o(w)179
+401 y Fm(\(define)20 b(lab3)h(\(make)g(<Label>)f(:text)h("Label)g
+(3"\)\))179 451 y(\(pack)g(lab3)g(:after)f(lab2\))75
+558 y Fp(w)o(e)12 b(will)f(de\014ne)i(a)f(new)g(lab)q(el)g(whic)o(h)g
+(will)f(b)q(e)h(inserted)i(b)q(et)o(w)o(een)f(the)g Fm(lab1)e
+Fp(and)h Fm(lab2)f Fp(lab)q(els.)18 b(Of)12 b(course,)h(the)75
+608 y(windo)o(w)g(con)o(taining)g(the)i(t)o(w)o(o)f(lab)q(els)g(will)f
+(b)q(e)h Fi(automagic)n(al)r(ly)h Fp(resized)g(to)f(tak)o(e)g(in)o(to)g
+(accoun)o(t)h(the)f(insertion)75 657 y(of)f(the)i(third.)75
+731 y(Windo)o(ws)h(can)h(also)g(b)q(e)g(unmapp)q(ed)f(from)g(screen)j
+(with)d(the)i Fm(unpack)e Fp(metho)q(d.)26 b(This)17
+b(metho)q(d)f(tells)h Fi(p)n(ack)75 781 y Fp(to)e(susp)q(end)h
+(geometry)e(managemen)o(t)f(of)h(the)i(sp)q(eci\014ed)g(windo)o(w.)k
+(Another)c(call)e(to)h(a)g(geometry)f(manager)75 831
+y(should)g(b)q(e)g(used)h(to)f(map)e(again)h(the)h(windo)o(w)f(on)h
+(displa)o(y)m(.)75 904 y(Supp)q(ose)h(no)o(w)f(that)g(w)o(e)g(w)o(an)o
+(t)g(to)g(delete)h(the)f(top)g(most)f(lab)q(el)h(of)f(our)h(previous)g
+(windo)o(w)g(\(i.e.)k Fm(lab2)p Fp(\).)g(This)75 954
+y(can)c(b)q(e)h(done)f(with)f(the)i Fm(<Tk-widget>)c
+Fp(metho)q(d)i Fm(destroy)g Fp(as)h(sho)o(wn)g(b)q(elo)o(w:)179
+1060 y Fm(\(destroy)20 b(lab2\))75 1167 y Fp(Here,)c(the)f(windo)o(w)f
+(is)h(unmapp)q(ed)f(from)f(screen)k(and)e(de\014nitiv)o(ely)f(destro)o
+(y)o(ed)i(\(i.e.)k(it)15 b(cannot)g(b)q(e)g(mapp)q(ed)75
+1217 y(on)g(the)h(screen)h(an)o(ymore\).)k(T)m(ec)o(hnically)15
+b(sp)q(eaking,)g(the)h(widget)f(will)f(b)q(e)h(destro)o(y)o(ed)i(and)e
+(its)g(class)h(will)e(b)q(e)75 1267 y(c)o(hanged)g(to)g(the)h(sp)q
+(ecial)f(class)g Fm(<Destroyed-object)o(>)p Fp(.)75 1398
+y Fn(Note:)41 b Fp(Destro)o(ying)10 b(the)g(ro)q(ot)f(windo)o(w)g(\()p
+Fm(*top-root*)p Fp(\))f(will)g(destro)o(y)i(the)g(ro)q(ot)g(windo)o(w)f
+(and,)g(consequen)o(tly)m(,)75 1448 y(the)14 b(in)o(terpreter)i(since)f
+(it)e(as)h(nothing)g(more)f(to)g(manage.)75 1588 y Ft(1.2.2)55
+b(The)19 b Fr(<Tk-simpl)o(e-w)o(id)o(get)o(>)d Ft(class)75
+1688 y Fk(STklos)h Fp(de\014nes)h(a)e(class)g(for)g(eac)o(h)h(simple)e
+(widgets)h(\(suc)o(h)h(as)g(lab)q(els,)f(buttons)h(or)f(messages\))g
+(of)g(the)h(Tk)75 1738 y(library)m(.)g(The)c Fm(<Tk-simple-widget)o(>)d
+Fp(class)k(de\014nes)g(slots)f(and)g(metho)q(ds)g(whic)o(h)f(are)i
+(common)c(to)j(all)f(those)75 1788 y(ob)r(jects.)19 b(The)c(main)c
+(slots)j(de\014ned)h(for)f(simple)e(widgets)i(are:)228
+1854 y Fn(bac)o(kground)311 1937 y Fp(whic)o(h)f(sp)q(eci\014es)i(the)e
+(normal)e(bac)o(kground)i(color)g(to)f(use)i(when)g(displa)o(ying)d
+(the)i(widget.)18 b(The)311 1987 y(v)n(alue)13 b(of)h(this)g(slot)f
+(should)h(b)q(e)h(a)e Fi(string)g Fp(or)h(a)g Fi(symb)n(ol)p
+Fp(.)k(It)c(can)g(b)q(e)382 2070 y Fe(\017)p Fp(a)9 b(textual)h(name)f
+(for)h(a)g(color)g(de\014ned)h(in)f(the)g(serv)o(er's)i(color)e
+(database)g(\014le)g(\(e.g.)17 b("Cho)q(co-)403 2120
+y(late")c(or)h("Dark)f(Oliv)o(e)g(Green"\).)382 2186
+y Fe(\017)p Fp(a)c(n)o(umeric)g(sp)q(eci\014cation)h(of)g(the)g(red,)h
+(green,)g(and)e(blue)h(in)o(tensities)g(to)g(use)g(to)g(displa)o(y)f
+(the)403 2236 y(color)h(\(suc)o(h)i(as)f Fm(#aabbcc)e
+Fp(or)i(ev)o(en)g Fm(rgb:aa/bb/cc)p Fp(\))d(using)j(the)g(standard)g
+(X11)g(notation.)228 2319 y Fn(b)q(order-width)311 2402
+y Fp(whic)o(h)j(sp)q(eci\014es)j(a)d(non-negativ)o(e)g(v)n(alue)f
+(indicating)h(the)h(width)f(of)f(the)i(3-D)f(b)q(order)h(to)g(dra)o(w)
+311 2452 y(around)g(the)h(outside)g(of)f(the)h(widget)f(\(if)f(suc)o(h)
+i(a)f(b)q(order)i(is)e(b)q(eing)g(dra)o(wn;)g(the)h Fi(r)n(elief)e
+Fp(option)311 2502 y(t)o(ypically)f(determines)h(this\).)228
+2585 y Fn(cursor)311 2668 y Fp(whic)o(h)g(sp)q(eci\014es)h(the)f(mouse)
+f(cursor)i(to)e(b)q(e)h(used)h(for)e(the)h(widget.)k(V)m(alid)12
+b(v)n(alues)h(for)g(this)h(slot)311 2718 y(are)h(giv)o(en)e(in)g(T)m
+(able)g(1.1.)18 b(Be)c(a)o(w)o(are)g(that)g(case)h(is)e(signi\014can)o
+(t)h(when)g(naming)e(a)h(cursor.)228 2801 y Fn(relief)946
+2960 y Fp(7)p eop
+%%Page: 8 8
+8 7 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)561
+b(1.2.)31 b(CLASS)14 b(HIERAR)o(CHY)p 75 51 1763 2 v
+473 155 967 2 v 472 195 2 40 v 498 183 a Ff(X)p 526 183
+11 2 v 13 w(cursor)p 830 195 2 40 v 223 w(\015eur)p 1108
+195 V 208 w(sailb)q(oat)p 1439 195 V 472 234 V 498 222
+a(arro)o(w)p 830 234 V 270 w(gobbler)p 1108 234 V 162
+w(sb)p 1170 222 11 2 v 12 w(do)o(wn)p 1264 222 V 12 w(arro)o(w)p
+1439 234 2 40 v 472 274 V 498 262 a(based)p 588 262 11
+2 v 11 w(arro)o(w)p 687 262 V 12 w(do)o(wn)p 830 274
+2 40 v 77 w(gum)o(b)o(y)p 1108 274 V 173 w(sb)p 1170
+262 11 2 v 12 w(h)p 1202 262 V 13 w(double)p 1319 262
+V 10 w(arro)o(w)p 1439 274 2 40 v 472 313 V 498 301 a(based)p
+588 301 11 2 v 11 w(arro)o(w)p 687 301 V 12 w(up)p 830
+313 2 40 v 119 w(hand1)p 1108 313 V 182 w(sb)p 1170 301
+11 2 v 12 w(left)p 1233 301 V 12 w(arro)o(w)p 1439 313
+2 40 v 472 352 V 498 341 a(b)q(oat)p 830 352 V 287 w(hand2)p
+1108 352 V 182 w(sb)p 1170 341 11 2 v 12 w(righ)o(t)p
+1257 341 V 11 w(arro)o(w)p 1439 352 2 40 v 472 392 V
+498 380 a(b)q(ogosit)o(y)p 830 392 V 227 w(heart)p 1108
+392 V 196 w(sb)p 1170 380 11 2 v 12 w(up)p 1222 380 V
+12 w(arro)o(w)p 1439 392 2 40 v 472 431 V 498 419 a(b)q(ottom)p
+615 419 11 2 v 10 w(left)p 676 419 V 12 w(corner)p 830
+431 2 40 v 72 w(icon)p 1108 431 V 214 w(sb)p 1170 419
+11 2 v 12 w(v)p 1201 419 V 13 w(double)p 1318 419 V 10
+w(arro)o(w)p 1439 431 2 40 v 472 471 V 498 459 a(b)q(ottom)p
+615 459 11 2 v 10 w(righ)o(t)p 700 459 V 12 w(corner)p
+830 471 2 40 v 48 w(iron)p 920 459 11 2 v 11 w(cross)p
+1108 471 2 40 v 129 w(sh)o(uttle)p 1439 471 V 472 510
+V 498 498 a(b)q(ottom)p 615 498 11 2 v 10 w(side)p 830
+510 2 40 v 173 w(left)p 909 498 11 2 v 11 w(ptr)p 1108
+510 2 40 v 168 w(sizing)p 1439 510 V 472 550 V 498 538
+a(b)q(ottom)p 615 538 11 2 v 10 w(tee)p 830 550 2 40
+v 187 w(left)p 909 538 11 2 v 11 w(side)p 1108 550 2
+40 v 156 w(spider)p 1439 550 V 472 589 V 498 577 a(b)q(o)o(x)p
+557 577 11 2 v 12 w(spiral)p 830 589 2 40 v 203 w(left)p
+909 577 11 2 v 11 w(tee)p 1108 589 2 40 v 170 w(spra)o(ycan)p
+1439 589 V 472 628 V 498 617 a(cen)o(ter)p 595 617 11
+2 v 11 w(ptr)p 830 628 2 40 v 204 w(leftbutton)p 1108
+628 V 121 w(star)p 1439 628 V 472 668 V 498 656 a(circle)p
+830 668 V 276 w(ll)p 878 656 11 2 v 12 w(angle)p 1108
+668 2 40 v 164 w(target)p 1439 668 V 472 707 V 498 696
+a(clo)q(c)o(k)p 830 707 V 279 w(lr)p 882 696 11 2 v 12
+w(angle)p 1108 707 2 40 v 160 w(tcross)p 1439 707 V 472
+747 V 498 735 a(co\013ee)p 587 735 11 2 v 11 w(m)o(ug)p
+830 747 2 40 v 193 w(man)p 1108 747 V 210 w(top)p 1188
+735 11 2 v 12 w(left)p 1251 735 V 11 w(arro)o(w)p 1439
+747 2 40 v 472 786 V 498 774 a(cross)p 830 786 V 282
+w(middlebut)o(ton)p 1108 786 V 67 w(top)p 1188 774 11
+2 v 12 w(left)p 1251 774 V 11 w(corner)p 1439 786 2 40
+v 472 826 V 498 814 a(cross)p 576 814 11 2 v 12 w(rev)o(erse)p
+830 826 2 40 v 162 w(mouse)p 1108 826 V 180 w(top)p 1188
+814 11 2 v 12 w(righ)o(t)p 1275 814 V 11 w(corner)p 1439
+826 2 40 v 472 865 V 498 853 a(crosshair)p 830 865 V
+220 w(p)q(encil)p 1108 865 V 185 w(top)p 1188 853 11
+2 v 12 w(side)p 1439 865 2 40 v 472 905 V 498 893 a(diamond)p
+636 893 11 2 v 10 w(cross)p 830 905 2 40 v 136 w(pirate)p
+1108 905 V 186 w(top)p 1188 893 11 2 v 12 w(tee)p 1439
+905 2 40 v 472 944 V 498 932 a(dot)p 830 944 V 306 w(plus)p
+1108 944 V 214 w(trek)p 1439 944 V 472 983 V 498 972
+a(dotb)q(o)o(x)p 830 983 V 249 w(question)p 989 972 11
+2 v 10 w(arro)o(w)p 1108 983 2 40 v 49 w(ul)p 1166 972
+11 2 v 12 w(angle)p 1439 983 2 40 v 472 1023 V 498 1011
+a(double)p 604 1011 11 2 v 11 w(arro)o(w)p 830 1023 2
+40 v 155 w(righ)o(t)p 933 1011 11 2 v 11 w(ptr)p 1108
+1023 2 40 v 144 w(um)o(brella)p 1439 1023 V 472 1062
+V 498 1050 a(draft)p 577 1050 11 2 v 11 w(large)p 830
+1062 2 40 v 194 w(righ)o(t)p 933 1050 11 2 v 11 w(side)p
+1108 1062 2 40 v 132 w(ur)p 1170 1050 11 2 v 12 w(angle)p
+1439 1062 2 40 v 472 1102 V 498 1090 a(draft)p 577 1090
+11 2 v 11 w(small)p 830 1102 2 40 v 188 w(righ)o(t)p
+933 1090 11 2 v 11 w(tee)p 1108 1102 2 40 v 146 w(w)o(atc)o(h)p
+1439 1102 V 472 1141 V 498 1129 a(drap)q(ed)p 609 1129
+11 2 v 11 w(b)q(o)o(x)p 830 1141 2 40 v 181 w(righ)o(tbutto)o(n)p
+1108 1141 V 98 w(xterm)p 1439 1141 V 472 1181 V 498 1169
+a(exc)o(hange)p 830 1181 V 216 w(rtl)p 896 1169 11 2
+v 12 w(logo)p 1108 1181 2 40 v 1439 1181 V 473 1182 967
+2 v 543 1298 a Fp(T)m(able)f(1.1:)k(V)m(alid)12 b(cursor)j(v)n(alues)f
+(for)f(slot)h Fm(cursor)311 1423 y Fp(whic)o(h)f(sp)q(eci\014es)i(the)e
+(3-D)g(e\013ect)h(desired)g(for)f(the)g(widget.)18 b(Acceptable)c(v)n
+(alues)f(are)g Fm(:raised)p Fp(,)311 1473 y Fm(:sunken)p
+Fp(,)k Fm(:flat)p Fp(,)h Fm(:ridge)f Fp(or)h Fm(:groove)p
+Fp(.)29 b(The)18 b(v)n(alue)g(indicates)g(ho)o(w)g(the)h(in)o(terior)e
+(of)h(the)311 1522 y(widget)11 b(should)g(app)q(ear)g(relativ)o(e)g(to)
+g(its)g(exterior;)h(for)f(example,)e Fm(:raised)h Fp(means)g(the)i(in)o
+(terior)311 1572 y(of)j(the)h(widget)f(should)g(app)q(ear)h(to)f
+(protrude)h(from)e(the)i(screen,)h(relativ)o(e)e(to)g(the)h(exterior)g
+(of)311 1622 y(the)f(widget.)75 1731 y(These)i(slots)f(are)g(de\014ned)
+h(for)e(all)f(the)j(basic)e(widgets)h(of)f(the)i Fk(STklos)f
+Fp(pac)o(k)n(age.)23 b(Ho)o(w)o(ev)o(er,)16 b(they)g(are)h(not)75
+1781 y(de\014ned)c(as)f(real)h Fk(STklos)g Fp(slots)f(\(i.e.)17
+b(they)c(are)f(not)g(implan)o(ted)e(in)i(the)h(Sc)o(heme)f(w)o(orld\).)
+17 b(Instead,)c(this)f(kind)75 1831 y(of)j(slot)h(has)g(its)g(v)n(alue)
+f(whic)o(h)h(is)g(stored)h(inside)f(the)g(in)o(ternal)g(structures)i
+(of)e(the)g(Tk)g(library)m(.)23 b(Those)16 b(slots)75
+1880 y(are)g(allo)q(cated)e(with)h(a)g(sp)q(ecial)h(allo)q(cation)d(sc)
+o(heme)j(whic)o(h)f(is)g(called)g Fm(:tk-virtual)p Fp(.)k(Tk)c(virtual)
+g(slots)g(are)75 1930 y(managed)d(b)o(y)i(the)g Fm(<With-Tk-virtual-sl)
+o(ots-m)o(etacl)o(ass>)c Fp(meta-class.)75 2004 y(Consequen)o(tly)m(,)i
+(reading)h(or)f(writing)g(a)g Fi(tk-virtual)g Fp(slot)g(will)f(pro)o(v)
+o(ok)o(e)i(a)f(direct)h(reading)g(or)f(writing)g(of)g(a)g(\014eld)75
+2053 y(of)k(the)h(Tk-library)f(C-structure)i(asso)q(ciated)g(to)e(the)h
+(ob)r(ject)h(\(this)e(a)o(v)o(oid)g(to)g(ha)o(v)o(e)h(to)f(sync)o
+(hronize)i(v)n(alues)75 2103 y(in)f(the)g(Tk)g(and)g(Sc)o(heme)g(w)o
+(orld\).)26 b(F)m(or)17 b(eac)o(h)g Fi(tk-virtual)p Fp(,)g
+Fk(STklos)h Fp(pro)o(vides)f(an)g(accessor;)i(the)f(follo)o(wing)75
+2153 y(example)13 b(sho)o(ws)h(some)f(simple)f(usages)j(of)e(this)h
+(kind)f(of)h(slots.)75 2226 y Fi(Example:)179 2333 y
+Fm(\(define)20 b(lab)h(\(make)g(<Label>)f(:text)h("Hello")g(:relief)f
+("raised")g(:background)g("grey"\)\))179 2383 y(\(relief)g(lab\))353
+2433 y(-->)h("raised")179 2483 y(\(set!)g(\(border-width)e(lab\))i(4\))
+179 2532 y(\(border-width)e(lab\))353 2582 y(-->)i(4)75
+2689 y Fp(The)c(\014rst)h(expression)g(creates)h(a)d(new)h(instance)h
+(of)e(a)h(lab)q(el,)f(as)h(w)o(e)g(ha)o(v)o(e)g(seen)h(b)q(efore.)28
+b(The)17 b(second)h(one)75 2739 y(queries)f(the)g(Tk)e(serv)o(er)j(ab)q
+(out)e(the)g(relief)g(of)g(the)g(lab)q(el)g Fm(lab)p
+Fp(.)23 b(Finally)m(,)14 b(the)j Fm(set!)24 b Fp(expression)17
+b(p)q(ermits)f(to)75 2788 y(c)o(hange)e(the)h(v)n(alue)e(of)g(the)i
+(width)e(of)h Fm(lab)p Fp('s)f(b)q(order.)946 2960 y(8)p
+eop
+%%Page: 9 9
+9 8 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)305
+b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p 75 51
+1763 2 v 75 195 a Ft(1.2.3)55 b(The)19 b Fr(<Tk-canva)o(s-i)o(te)o(m>)c
+Ft(class)75 295 y Fp(Instances)20 b(of)e Fm(<Tk-canvas-item>)e
+Fp(class,)k(as)e(said)h(b)q(efore,)h(are)f(ob)r(jects)h(suc)o(h)f(as)g
+(rectangles,)i(circles)e(or)75 345 y(bitmaps)14 b(whic)o(h)i(are)g(con)
+o(tained)g(in)f(a)h(windo)o(w.)23 b(A)16 b(windo)o(w)e(con)o(taining)h
+(this)h(kind)f(of)g(ob)r(ject)i(is)f(a)f(sp)q(ecial)75
+395 y(simple)k(widget)h(called)g(a)g Fi(c)n(anvas)p Fp(.)37
+b(All)20 b(the)g(ob)r(jects)i(de\014ned)f(in)f(a)g Fi(c)n(anvas)h
+Fp(can)f(b)q(e)h(manipulated)d(\(e.g.)75 445 y(mo)o(v)o(ed,)f
+(re-colored)i(or)f(re-sized\))i(and)e(ev)o(en)h(Sc)o(heme)f(command)d
+(can)k(b)q(e)f(asso)q(ciated)h(to)f(them.)31 b(All)17
+b(the)75 495 y(actions)d(a)o(v)n(ailable)e(for)h Fm(<Tk-canvas-item>)p
+Fp(s)e(are)j(deferred)i(to)e(a)f(next)i(c)o(hapter)f(\()p
+Fn(??)p Fp(\).)75 655 y Fj(1.3)66 b(F)-6 b(unctions)24
+b(of)e(this)h(c)n(hapter)75 769 y Fp(This)15 b(section)h(presen)o(ts)h
+(in)e(details)g(the)h(metho)q(ds)f(and)g(functions)g(seen)h(in)f(this)g
+(c)o(hapter)i(\(or)e(metho)q(ds)g(and)75 819 y(functions)e(related)h
+(to)f(things)h(seen)g(in)f(this)g(c)o(hapter\).)19 b(F)m(unctions)14
+b(are)f(listed)h(b)q(elo)o(w)f(in)g(alphab)q(etical)f(order.)103
+922 y Fd(\013)p 103 1007 4 62 v 103 1034 a(\012)1806
+922 y(\010)p 1806 1007 V 1806 1034 a(\011)p 130 1034
+1653 4 v 130 922 V 147 991 a Fc(destroy)1243 b Fm(method)75
+1152 y Fi(Syntax)193 1234 y Fm(destroy)195 b(\(\(self)20
+b(<Tk-widget>\)\))193 1283 y(destroy)195 b(l)75 1357
+y Fi(A)o(r)n(guments)15 b(\(\014rst)f(form\))193 1438
+y Fn(self)19 b Fp(the)c(windo)o(w)e(to)h(destro)o(y)m(.)75
+1512 y Fi(A)o(r)n(guments)h(\(se)n(c)n(ond)g(form\))193
+1594 y Fn(l)20 b Fp(a)13 b(list)g(of)g(windo)o(w)g(to)g(destro)o(y)i
+(\(this)e(form)f(maps)g(in)h(facts)h(the)g(previous)g(one)g(to)f(all)g
+(its)g(argumen)o(ts)284 1643 y(to)h(allo)o(w)e(m)o(ultiple)g
+(destruction\).)75 1717 y Fi(Description)193 1798 y Fm(Destroy)18
+b Fp(deletes)j(the)f Fm(self)f Fp(widget)g(windo)o(w)g(and)g(all)f(of)h
+(its)h(descendan)o(ts.)36 b(If)19 b Fm(self)g Fp(equals)h(to)193
+1848 y Fm(*top-root*)p Fp(,)11 b(the)k(in)o(terpreter)h(terminates)d
+(its)h(execution.)75 1922 y Fi(R)n(esult)193 2003 y Fp(The)g(destro)o
+(y)o(ed)h(ob)r(ject)g(\(see)g(note)g(b)q(elo)o(w\))75
+2077 y Fi(Example)193 2158 y Fm(\(define)20 b(l1)i(\(make)f(<Label>)f
+(:text)h("lab1"\)\))193 2208 y(...)193 2258 y(\(define)f(l5)i(\(make)f
+(<Label>)f(:text)h("lab5"\)\))193 2308 y(\(destroy)f(l1\))283
+b(;;)21 b(direct)g(call)g(of)g(first)g(form)193 2358
+y(\(destroy)f(l2)i(l3)f(l4)g(l5\))87 b(;;)21 b(call)g(of)h(the)f
+(second)f(form)75 2431 y Fi(Note)193 2513 y Fp(When)14
+b(a)g(widget)g(is)f(destro)o(y)o(ed,)i(its)f(class)g(is)g(c)o(hanged)g
+(to)g(<Destro)o(y)o(ed-ob)r(ject>)g(as)g(sho)o(wn)g(b)q(elo)o(w:)284
+2586 y Fm(\(define)21 b(lab)g(\(make)g(<Label>)f(:text)h("A)g
+(label"\)\))284 2636 y(\(class-name)f(\(class-of)g(lab\)\))459
+2686 y(-->)h(<label>)284 2736 y(\(destroy)g(lab\))284
+2785 y(\(class-name)f(\(class-of)g(lab\)\))459 2835 y(-->)h
+(<destroyed-object)o(>)946 2960 y Fp(9)p eop
+%%Page: 10 10
+10 9 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13 b(ST)m(AR)m(TED)305
+b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p 75 51
+1763 2 v 75 195 a Fi(Se)n(e)h(also)193 277 y Fm(destroy)d
+Fp(metho)q(d)i(for)f(can)o(v)n(ases,)h(unpac)o(k)103
+378 y Fd(\013)p 103 463 4 62 v 103 490 a(\012)1806 378
+y(\010)p 1806 463 V 1806 490 a(\011)p 130 490 1653 4
+v 130 378 V 147 447 a Fc(pack)1288 b Fm(procedure)75
+607 y Fi(Syntax)193 689 y Fm(pack)21 b(l)75 762 y Fi(A)o(r)n(guments)
+193 844 y Fm(pack)13 b Fp(accepts)j(a)d(list)h(of)f(argumen)o(ts)g
+(whose)i(b)q(eha)o(vior)e(dep)q(ends)j(on)d(the)i(\014rst)f(elemen)o(t)
+g(of)f(this)h(list.)193 967 y Fm(\(pack)21 b('slave)f([slave)h(...])43
+b([option]\))284 1032 y Fp(If)15 b(the)g(\014rst)h(argumen)o(t)e(to)g
+Fm(pack)g Fp(is)h(a)g(widget,)f(then)i(the)f(command)d(is)j(pro)q
+(cessed)i(in)e(the)284 1082 y(same)e(w)o(a)o(y)h(as)g
+Fm(\(pack)20 b('configure)g(...\))p Fp(.)193 1205 y Fm(\(pack)h
+('configure)f([slave)g(...])43 b([option]\))284 1271
+y Fp(The)17 b(argumen)o(ts)f(consist)g(of)g(one)g(or)g(more)g(sla)o(v)o
+(e)g(windo)o(ws)f(follo)o(w)o(ed)g(b)o(y)h(pairs)g(of)g(argu-)284
+1321 y(men)o(ts)d(that)g(sp)q(ecify)g(ho)o(w)f(to)h(manage)e(the)j(sla)
+o(v)o(es.)j(See)d(\\THE)f(P)m(A)o(CKER)g(ALGORITH-)284
+1371 y(M")j(b)q(elo)o(w)f(for)h(details)f(on)g(ho)o(w)h(the)g(options)f
+(are)h(used)h(b)o(y)e(the)i(pac)o(k)o(er.)24 b(The)16
+b(follo)o(wing)284 1420 y(options)e(are)g(supp)q(orted:)362
+1485 y Fm(:after)21 b(other)362 1535 y(:before)f(other)433
+1592 y(Other)13 b Fp(m)o(ust)h(the)h(name)e(of)h(another)h(windo)o(w.)k
+(Use)c(its)g(master)f(as)g(the)433 1642 y(master)g(for)g(the)h(sla)o(v)
+o(es,)f(and)g(insert)i(the)f(sla)o(v)o(es)f(just)h(after)f(\(or)h(b)q
+(efore\))433 1692 y Fm(other)d Fp(in)i(the)g(pac)o(king)g(order.)362
+1749 y Fm(:anchor)20 b(anchor)433 1807 y(Anchor)14 b
+Fp(m)o(ust)h(b)q(e)h(a)f(v)n(alid)g(anc)o(hor)g(p)q(osition)g(suc)o(h)i
+(as)f(\\)p Fm(n)p Fp(")e(or)i(\\)p Fm(sw)p Fp(";)f(it)433
+1856 y(sp)q(eci\014es)j(where)g(to)f(p)q(osition)f(eac)o(h)i(sla)o(v)o
+(e)e(in)g(its)h(parcel.)28 b(Defaults)16 b(to)433 1906
+y(\\)p Fm(center)p Fp(".)362 1964 y Fm(:expand)k(boolean)433
+2021 y Fp(Sp)q(eci\014es)11 b(whether)g(the)g(sla)o(v)o(es)f(should)f
+(b)q(e)i(expanded)f(to)g(consume)f(extra)433 2071 y(space)15
+b(in)e(their)h(master.)k(Defaults)13 b(to)h Fm(#f)p Fp(.)362
+2128 y Fm(:fill)21 b(style)433 2185 y Fp(If)d(a)g(sla)o(v)o(e's)g
+(parcel)h(is)f(larger)h(than)f(its)g(requested)j(dimensions,)d(this)433
+2235 y(option)12 b(ma)o(y)f(b)q(e)i(used)h(to)e(stretc)o(h)j(the)e(sla)
+o(v)o(e.)k Fm(Style)12 b Fp(m)o(ust)g(ha)o(v)o(e)h(one)g(of)433
+2285 y(the)h(follo)o(wing)d(v)n(alues:)433 2346 y Fn("none")19
+b Fp(Giv)o(e)9 b(the)h(sla)o(v)o(e)f(its)g(requested)j(dimensions)c
+(plus)h(an)o(y)g(in)o(ternal)474 2396 y(padding)i(requested)j(with)e
+Fm(:ipadx)e Fp(or)i Fm(:ipady)p Fp(.)k(This)c(is)f(the)i(default.)433
+2453 y Fn("x")21 b Fp(Stretc)o(h)c(the)f(sla)o(v)o(e)f(horizon)o(tally)
+f(to)i(\014ll)e(the)i(en)o(tire)h(width)e(of)g(its)474
+2503 y(parcel)f(\(except)i(lea)o(v)o(e)e(external)g(padding)f(as)h(sp)q
+(eci\014ed)h(b)o(y)f Fm(:padx)p Fp(\).)433 2560 y Fn("y")21
+b Fp(Stretc)o(h)f(the)h(sla)o(v)o(e)e(v)o(ertically)g(to)g(\014ll)f
+(the)j(en)o(tire)f(heigh)o(t)f(of)g(its)474 2610 y(parcel)14
+b(\(except)i(lea)o(v)o(e)e(external)g(padding)f(as)h(sp)q(eci\014ed)h
+(b)o(y)f Fm(:pady)p Fp(\).)433 2667 y Fn("b)q(oth")19
+b Fp(Stretc)o(h)c(the)g(sla)o(v)o(e)f(b)q(oth)g(horizon)o(tally)e(and)i
+(v)o(ertically)m(.)362 2728 y Fm(:in)21 b(other)433 2785
+y Fp(Insert)14 b(the)f(sla)o(v)o(e\(s\))g(at)g(the)h(end)f(of)f(the)i
+(pac)o(king)e(order)h(for)g(the)g(master)433 2835 y(windo)o(w)g(giv)o
+(en)g(b)o(y)h(other.)935 2960 y(10)p eop
+%%Page: 11 11
+11 10 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13
+b(ST)m(AR)m(TED)305 b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p
+75 51 1763 2 v 362 195 a Fm(:ipadx)21 b(amount)362 245
+y(:ipady)g(amount)433 303 y(Amount)8 b Fp(sp)q(eci\014es)j(ho)o(w)e(m)o
+(uc)o(h)f(horizon)o(tal)g(\(or)h(v)o(ertical\))h(in)o(ternal)f(padding)
+433 353 y(to)g(lea)o(v)o(e)g(on)g(eac)o(h)h(side)f(of)g(the)h(sla)o(v)o
+(e\(s\).)17 b Fm(Amount)8 b Fp(m)o(ust)g(b)q(e)i(a)f(v)n(alid)f(screen)
+433 403 y(distance,)14 b(suc)o(h)g(as)g(2)g(or)g(\\.5c".)j(It)d
+(defaults)g(to)g(0.)362 461 y Fm(:padx)21 b(amount)362
+511 y(:pady)g(amount)433 569 y(Amount)13 b Fp(sp)q(eci\014es)k(ho)o(w)e
+(m)o(uc)o(h)f(horizon)o(tal)g(external)h(padding)f(to)h(lea)o(v)o(e)433
+619 y(on)e(eac)o(h)i(side)f(of)f(the)i(sla)o(v)o(e\(s\).)j
+Fm(Amount)13 b Fp(defaults)h(to)f(0.)362 677 y Fm(:side)21
+b(side)433 735 y Fp(Sp)q(eci\014es)g(whic)o(h)f(side)h(of)e(the)i
+(master)e(the)i(sla)o(v)o(e\(s\))f(will)f(b)q(e)i(pac)o(k)o(ed)433
+785 y(against.)16 b(Must)10 b(b)q(e)h(\\)p Fm(left)p
+Fp(",)e(\\)p Fm(right)p Fp(",)f(\\)p Fm(top)p Fp(",)h(or)h(\\)p
+Fm(bottom)p Fp(".)15 b(Defaults)433 834 y(to)e(\\)p Fm(top)p
+Fp(".)284 901 y(If)j(no)f Fm(:in)p Fp(,)g Fm(:after)f
+Fp(or)i Fm(:before)e Fp(option)h(is)h(sp)q(eci\014ed)h(then)f(eac)o(h)g
+(of)f(the)i(sla)o(v)o(es)e(will)g(b)q(e)284 951 y(inserted)g(at)f(the)g
+(end)h(of)e(the)h(pac)o(king)f(list)g(for)h(its)g(paren)o(t)g(unless)g
+(it)g(is)f(already)h(managed)284 1000 y(b)o(y)i(the)h(pac)o(k)o(er)g
+(\(in)f(whic)o(h)g(case)h(it)f(will)e(b)q(e)j(left)f(where)h(it)f
+(is\).)25 b(If)16 b(one)g(of)g(these)h(options)284 1050
+y(is)g(sp)q(eci\014ed)i(then)e(all)f(the)i(sla)o(v)o(es)f(will)e(b)q(e)
+j(inserted)g(at)f(the)g(sp)q(eci\014ed)i(p)q(oin)o(t.)27
+b(If)16 b(an)o(y)h(of)284 1100 y(the)h(sla)o(v)o(es)e(are)i(already)e
+(managed)f(b)o(y)h(the)i(geometry)e(manager)f(then)i(an)o(y)f(unsp)q
+(eci\014ed)284 1150 y(options)c(for)g(them)g(retain)g(their)h(previous)
+f(v)n(alues)g(rather)h(than)f(receiving)h(default)f(v)n(alues.)193
+1274 y Fm(\(pack)21 b('newinfo)f(slave\))284 1341 y Fp(Returns)h(a)d
+(list)h(whose)h(elemen)o(ts)f(are)h(the)f(curren)o(t)i(con\014guration)
+e(state)h(of)f(the)g(sla)o(v)o(e)284 1391 y(giv)o(en)g(b)o(y)g(sla)o(v)
+o(e)f(in)h(the)g(same)f(option-v)n(alue)g(form)f(that)i(migh)o(t)e(b)q
+(e)j(sp)q(eci\014ed)g(to)f Fm(pack)284 1440 y('configure)p
+Fp(.)i(The)16 b(\014rst)h(t)o(w)o(o)e(elemen)o(ts)g(of)g(the)h(list)f
+(are)h(\\)p Fm(-in)21 b(master)p Fp(")14 b(where)j(master)284
+1490 y(is)f(the)g(sla)o(v)o(e's)g Fm(master)p Fp(.)22
+b(Starting)15 b(with)h(Tk)f(4.0)g(this)h(option)f(will)f(b)q(e)i
+(renamed)f(\\)p Fm(\(pack)284 1540 y('info)21 b(...\))p
+Fp(".)193 1665 y Fm(\(pack)g('propagate)f(master)g([boolean]\))284
+1731 y Fp(If)c Fm(boolean)e Fp(is)h Fm(#t)g Fp(then)i(propagation)d(is)
+i(enabled)g(for)f Fm(master)p Fp(,)f(whic)o(h)i(m)o(ust)e(b)q(e)i(a)g
+(win-)284 1781 y(do)o(w)e(name)f(\(see)j(\\GEOMETR)m(Y)e(PR)o(OP)m(A)o
+(GA)m(TION")f(b)q(elo)o(w\).)19 b(If)14 b Fm(boolean)f
+Fp(has)h(a)g(false)284 1831 y(b)q(o)q(olean)e(v)n(alue)f(then)i
+(propagation)e(is)g(disabled)h(for)g Fm(master)p Fp(.)k(In)c(either)g
+(of)g(these)h(cases)g(an)284 1880 y(empt)o(y)h(string)h(is)g(returned.)
+23 b(If)15 b Fm(boolean)e Fp(is)i(omitted)f(then)h(the)h(command)c
+(returns)k(0)f(or)284 1930 y(1)g(to)g(indicate)f(whether)j(propagation)
+c(is)i(curren)o(tly)h(enabled)f(for)f Fm(master)p Fp(.)20
+b(Propagation)284 1980 y(is)14 b(enabled)g(b)o(y)g(default.)193
+2105 y Fm(\(pack)21 b('slaves)f(master\))284 2171 y Fp(Returns)d(a)e
+(list)g(of)f(all)h(of)f(the)i(sla)o(v)o(es)g(in)f(the)h(pac)o(king)e
+(order)j(for)e Fm(master)p Fp(.)21 b(The)16 b(order)g(of)284
+2221 y(the)h(sla)o(v)o(es)f(in)g(the)g(list)g(is)g(the)g(same)g(as)g
+(their)g(order)h(in)f(the)g(pac)o(king)g(order.)25 b(If)15
+b Fm(master)284 2271 y Fp(has)f(no)g(sla)o(v)o(es)g(then)h(an)e(empt)o
+(y)g(string)h(is)g(returned.)75 2361 y Fi(Description)193
+2444 y Fn(THE)h(P)l(A)o(CKER)f(ALGORITHM)f Fp(F)m(or)e(eac)o(h)i
+(master)f(the)g(pac)o(k)o(er)h(main)o(tains)d(an)i(ordered)h(list)f(of)
+193 2493 y(sla)o(v)o(es)g(called)g(the)h Fi(p)n(acking)h(list)p
+Fp(.)i(The)d Fm(:in)p Fp(,)e Fm(:after)p Fp(,)g(and)h
+Fm(:before)f Fp(con\014guration)g(options)h(are)h(used)193
+2543 y(to)i(sp)q(ecify)g(the)h(master)e(for)h(eac)o(h)g(sla)o(v)o(e)g
+(and)g(the)g(sla)o(v)o(e's)g(p)q(osition)f(in)h(the)g(pac)o(king)g
+(list.)20 b(If)15 b(none)g(of)193 2593 y(these)i(options)d(is)h(giv)o
+(en)g(for)g(a)f(sla)o(v)o(e)h(then)h(the)f(sla)o(v)o(e)g(is)g(added)g
+(to)g(the)h(end)g(of)e(the)i(pac)o(king)e(list)h(for)193
+2643 y(its)f(paren)o(t.)193 2709 y(The)i(pac)o(k)o(er)g(arranges)g(the)
+g(sla)o(v)o(es)f(for)g(a)g(master)g(b)o(y)g(scanning)h(the)g(pac)o
+(king)e(list)h(in)g(order.)23 b(A)o(t)16 b(the)193 2759
+y(time)d(it)g(pro)q(cesses)k(eac)o(h)d(sla)o(v)o(e,)f(a)h(rectangular)g
+(area)g(within)f(the)i(master)e(is)h(still)f(unallo)q(cated.)18
+b(This)193 2809 y(area)c(is)g(called)g(the)g Fi(c)n(avity)p
+Fp(;)f(for)h(the)g(\014rst)h(sla)o(v)o(e)f(it)f(is)h(the)g(en)o(tire)h
+(area)f(of)f(the)i(master.)935 2960 y(11)p eop
+%%Page: 12 12
+12 11 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13
+b(ST)m(AR)m(TED)305 b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p
+75 51 1763 2 v 193 195 a Fp(F)m(or)g(eac)o(h)g(sla)o(v)o(e)g(the)g(pac)
+o(k)o(er)g(carries)h(out)f(the)h(follo)o(wing)c(steps:)284
+261 y(The)h(pac)o(k)o(er)g(allo)q(cates)f(a)g(rectangular)h
+Fi(p)n(ar)n(c)n(el)e Fp(for)h(the)h(sla)o(v)o(e)f(along)f(the)i(side)g
+(of)e(the)i(ca)o(vit)o(y)f(giv)o(en)284 311 y(b)o(y)j(the)h(sla)o(v)o
+(e's)f Fm(:side)f Fp(option.)19 b(If)14 b(the)h(side)f(is)g(top)h(or)f
+(b)q(ottom)f(then)i(the)f(width)g(of)g(the)h(parcel)284
+361 y(is)h(the)g(width)f(of)g(the)h(ca)o(vit)o(y)f(and)g(its)h(heigh)o
+(t)f(is)g(the)h(requested)i(heigh)o(t)d(of)g(the)h(sla)o(v)o(e)f(plus)h
+(the)284 410 y Fm(:ipady)g Fp(and)h Fm(:pady)e Fp(options.)27
+b(F)m(or)16 b(the)h(left)g(or)g(righ)o(t)f(side)h(the)h(heigh)o(t)e(of)
+h(the)g(parcel)g(is)g(the)284 460 y(heigh)o(t)d(of)e(the)i(ca)o(vit)o
+(y)f(and)g(the)h(width)f(is)g(the)h(requested)h(width)e(of)g(the)h(sla)
+o(v)o(e)f(plus)g(the)h Fm(:ipadx)284 510 y Fp(and)e Fm(:padx)f
+Fp(options.)17 b(The)12 b(parcel)g(ma)o(y)e(b)q(e)i(enlarged)g(further)
+h(b)q(ecause)g(of)f(the)g Fm(:expand)e Fp(option)284
+560 y(\(see)16 b(\\EXP)m(ANSION")e(b)q(elo)o(w\))231
+625 y(1.)-33 b(2.)20 b(The)13 b(pac)o(k)o(er)f(c)o(ho)q(oses)h(the)f
+(dimensions)f(of)g(the)h(sla)o(v)o(e.)17 b(The)12 b(width)g(will)e
+(normally)f(b)q(e)k(the)f(sla)o(v)o(e's)284 675 y(requested)h(width)d
+(plus)g(t)o(wice)h(its)f Fm(:ipadx)f Fp(option)h(and)g(the)h(heigh)o(t)
+f(will)e(normally)g(b)q(e)j(the)g(sla)o(v)o(e's)284 725
+y(requested)17 b(heigh)o(t)c(plus)h(t)o(wice)h(its)f
+Fm(:ipady)f Fp(option.)k(Ho)o(w)o(ev)o(er,)d(if)f(the)i
+Fm(:fill)e Fp(option)g(is)h(\\)p Fm(x)p Fp(")f(or)284
+775 y(\\)p Fm(both)p Fp(")h(then)i(the)g(width)f(of)f(the)i(sla)o(v)o
+(e)f(is)g(expanded)h(to)f(\014ll)f(the)h(width)g(of)g(the)h(parcel,)f
+(min)o(us)284 824 y(t)o(wice)h(the)h Fm(:padx)d Fp(option.)23
+b(If)15 b(the)i Fm(:fill)d Fp(option)h(is)h(\\)p Fm(y)p
+Fp(")f(or)g(\\)p Fm(both)p Fp(")g(then)h(the)g(heigh)o(t)g(of)f(the)284
+874 y(sla)o(v)o(e)f(is)g(expanded)g(to)g(\014ll)f(the)i(width)e(of)g
+(the)i(parcel,)f(min)o(us)e(t)o(wice)i(the)h Fm(:pady)e
+Fp(option.)231 940 y(3.)20 b(The)d(pac)o(k)o(er)f(p)q(ositions)f(the)h
+(sla)o(v)o(e)g(o)o(v)o(er)f(its)h(parcel.)24 b(If)15
+b(the)h(sla)o(v)o(e)g(is)f(smaller)f(than)i(the)g(parcel)284
+989 y(then)h(the)g Fm(:anchor)e Fp(option)h(determines)g(where)i(in)e
+(the)h(parcel)f(the)h(sla)o(v)o(e)f(will)f(b)q(e)i(placed.)26
+b(If)284 1039 y Fm(:padx)12 b Fp(or)h Fm(:pady)f Fp(is)h(non-zero,)h
+(then)f(the)h(giv)o(en)f(amoun)o(t)e(of)h(external)i(padding)e(will)g
+(alw)o(a)o(ys)g(b)q(e)284 1089 y(left)i(b)q(et)o(w)o(een)h(the)g(sla)o
+(v)o(e)e(and)h(the)h(edges)g(of)e(the)h(parcel.)193 1171
+y(Once)k(a)f(giv)o(en)g(sla)o(v)o(e)f(has)i(b)q(een)g(pac)o(k)o(ed,)f
+(the)h(area)f(of)g(its)g(parcel)g(is)g(subtracted)i(from)c(the)j(ca)o
+(vit)o(y)m(,)193 1221 y(lea)o(ving)11 b(a)g(smaller)f(rectangular)i(ca)
+o(vit)o(y)f(for)g(the)i(next)f(sla)o(v)o(e.)17 b(If)11
+b(a)g(sla)o(v)o(e)h(do)q(esn't)g(use)g(all)f(of)g(its)g(parcel,)193
+1271 y(the)16 b(un)o(used)g(space)g(in)e(the)i(parcel)f(will)f(not)h(b)
+q(e)g(used)h(b)o(y)f(subsequen)o(t)i(sla)o(v)o(es.)k(If)15
+b(the)g(ca)o(vit)o(y)g(should)193 1320 y(b)q(ecome)d(to)q(o)g(small)e
+(to)i(meet)g(the)g(needs)i(of)d(a)h(sla)o(v)o(e)g(then)h(the)g(sla)o(v)
+o(e)e(will)g(b)q(e)i(giv)o(en)e(whatev)o(er)i(space)h(is)193
+1370 y(left)f(in)f(the)h(ca)o(vit)o(y)m(.)j(If)d(the)g(ca)o(vit)o(y)f
+(shrinks)h(to)g(zero)g(size,)g(then)h(all)d(remaining)g(sla)o(v)o(es)h
+(on)h(the)g(pac)o(king)193 1420 y(list)j(will)f(b)q(e)j(unmapp)q(ed)d
+(from)g(the)i(screen)i(un)o(til)d(the)h(master)f(windo)o(w)g(b)q
+(ecomes)h(large)f(enough)h(to)193 1470 y(hold)c(them)g(again.)193
+1536 y Fn(EXP)l(ANSION)h Fp(If)f(a)g(master)f(windo)o(w)h(is)g(so)g
+(large)g(that)h(there)g(will)e(b)q(e)i(extra)g(space)g(left)f(o)o(v)o
+(er)g(after)193 1586 y(all)h(of)g(its)h(sla)o(v)o(es)g(ha)o(v)o(e)g(b)q
+(een)h(pac)o(k)o(ed,)f(then)h(the)g(extra)f(space)h(is)f(distributed)g
+(uniformly)e(among)g(all)193 1635 y(of)18 b(the)h(sla)o(v)o(es)g(for)f
+(whic)o(h)g(the)h Fm(:expand)e Fp(option)h(is)g(set.)33
+b(Extra)18 b(horizon)o(tal)g(space)i(is)e(distributed)193
+1685 y(among)13 b(the)j(expandable)f(sla)o(v)o(es)g(whose)g
+Fm(:side)f Fp(is)h(\\)p Fm(left)p Fp(")f(or)h(\\)p Fm(right)p
+Fp(",)e(and)i(extra)h(v)o(ertical)e(space)193 1735 y(is)g(distributed)g
+(among)e(the)j(expandable)f(sla)o(v)o(es)f(whose)i Fm(:side)e
+Fp(is)g(\\)p Fm(top)p Fp(")g(or)h(\\)p Fm(bottom)p Fp(".)193
+1801 y Fn(GEOMETR)l(Y)23 b(PR)o(OP)l(A)o(GA)l(TION)18
+b Fp(The)i(pac)o(k)o(er)g(normally)d(computes)i(ho)o(w)g(large)h(a)f
+(master)193 1851 y(m)o(ust)d(b)q(e)h(to)f(just)h(exactly)f(meet)g(the)h
+(needs)h(of)e(its)g(sla)o(v)o(es,)h(and)f(it)g(sets)i(the)f(requested)h
+(width)f(and)193 1900 y(heigh)o(t)e(of)g(the)h(master)e(to)h(these)i
+(dimensions.)k(This)15 b(causes)i(geometry)d(information)e(to)k
+(propagate)193 1950 y(up)d(through)g(a)g(windo)o(w)f(hierarc)o(h)o(y)h
+(to)g(a)g(top-lev)o(el)f(windo)o(w)g(so)h(that)g(the)h(en)o(tire)f
+(sub-tree)i(sizes)f(itself)193 2000 y(to)k(\014t)g(the)h(needs)g(of)f
+(the)g(leaf)g(windo)o(ws.)30 b(Ho)o(w)o(ev)o(er,)19 b(the)g
+Fm(pack)i('propagate)15 b Fp(command)h(ma)o(y)g(b)q(e)193
+2050 y(used)g(to)g(turn)g(o\013)f(propagation)f(for)h(one)h(or)f(more)g
+(masters.)22 b(If)15 b(propagation)f(is)i(disabled)f(then)h(the)193
+2100 y(pac)o(k)o(er)e(will)e(not)h(set)h(the)g(requested)i(width)d(and)
+g(heigh)o(t)g(of)g(the)g(pac)o(k)o(er.)19 b(This)13 b(ma)o(y)e(b)q(e)j
+(useful)g(if,)e(for)193 2150 y(example,)g(y)o(ou)i(wish)f(for)h(a)g
+(master)f(windo)o(w)g(to)h(ha)o(v)o(e)f(a)h(\014xed)g(size)h(that)f(y)o
+(ou)f(sp)q(ecify)m(.)193 2215 y Fn(RESTRICTIONS)j(ON)g(MASTER)g(WINDO)o
+(WS)d Fp(The)h(master)f(for)h(eac)o(h)g(sla)o(v)o(e)f(m)o(ust)g(either)
+193 2265 y(b)q(e)k(the)g(sla)o(v)o(e's)f(paren)o(t)h(\(the)h(default\))
+e(or)g(a)h(descendan)o(t)h(of)e(the)h(sla)o(v)o(e's)f(paren)o(t.)26
+b(This)17 b(restriction)193 2315 y(is)f(necessary)i(to)e(guaran)o(tee)h
+(that)f(the)g(sla)o(v)o(e)g(can)g(b)q(e)h(placed)f(o)o(v)o(er)h(an)o(y)
+e(part)h(of)g(its)g(master)f(that)i(is)193 2365 y(visible)c(without)h
+(danger)g(of)f(the)i(sla)o(v)o(e)e(b)q(eing)h(clipp)q(ed)g(b)o(y)g(its)
+g(paren)o(t.)193 2431 y Fn(P)l(A)o(CKING)i(ORDER)e Fp(If)f(the)i
+(master)e(for)h(a)f(sla)o(v)o(e)h(is)g(not)g(its)g(paren)o(t)g(then)h
+(y)o(ou)e(m)o(ust)g(mak)o(e)f(sure)193 2481 y(that)k(the)h(sla)o(v)o(e)
+e(is)h(higher)g(in)f(the)i(stac)o(king)e(order)i(than)f(the)g(master.)
+24 b(Otherwise)17 b(the)g(master)e(will)193 2530 y(obscure)f(the)f(sla)
+o(v)o(e)e(and)i(it)e(will)g(app)q(ear)i(as)f(if)g(the)h(sla)o(v)o(e)e
+(hasn't)i(b)q(een)g(pac)o(k)o(ed)g(correctly)m(.)18 b(The)12
+b(easiest)193 2580 y(w)o(a)o(y)i(to)g(mak)o(e)f(sure)j(the)f(sla)o(v)o
+(e)f(is)g(higher)h(than)g(the)g(master)f(is)g(to)g(create)i(the)f
+(master)f(windo)o(w)g(\014rst:)193 2630 y(the)f(most)e(recen)o(tly)i
+(created)h(windo)o(w)e(will)e(b)q(e)j(highest)g(in)f(the)h(stac)o(king)
+f(order.)18 b(Or,)12 b(y)o(ou)g(can)h(use)g(the)193 2680
+y Fm(raise)f Fp(and)h Fm(lower)f Fp(commands)f(to)i(c)o(hange)h(the)f
+(stac)o(king)g(order)h(of)f(either)h(the)g(master)e(or)h(the)h(sla)o(v)
+o(e.)75 2753 y Fi(R)n(esult)193 2835 y Fp(None)935 2960
+y(12)p eop
+%%Page: 13 13
+13 12 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13
+b(ST)m(AR)m(TED)305 b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p
+75 51 1763 2 v 400 537 a @beginspecial 36 @llx 397 @lly
+303 @urx 489 @ury 2670 @rwi @setspecial
+%%BeginDocument: Packing-demo.ps
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% define string to hold a scanline's worth of data
+/pix 801 string def
+
+% lower left corner
+36 397 translate
+
+% size of image (on paper, in 1/72inch coords)
+266.97600 92.01600 scale
+
+% define 'colorimage' if it isn't defined
+%   ('colortogray' and 'mergeprocs' come from xwd2ps
+%     via xgrab)
+/colorimage where   % do we know about 'colorimage'?
+  { pop }           % yes: pop off the 'dict' returned
+  {                 % no:  define one
+    /colortogray {  % define an RGB->I function
+      /rgbdata exch store    % call input 'rgbdata'
+      rgbdata length 3 idiv
+      /npixls exch store
+      /rgbindx 0 store
+      /grays npixls string store  % str to hold the result
+      0 1 npixls 1 sub {
+        grays exch
+        rgbdata rgbindx       get 20 mul    % Red
+        rgbdata rgbindx 1 add get 32 mul    % Green
+        rgbdata rgbindx 2 add get 12 mul    % Blue
+        add add 64 idiv      % I = .5G + .31R + .18B
+        put
+        /rgbindx rgbindx 3 add store
+      } for
+      grays
+    } bind def
+
+    % Utility procedure for colorimage operator.
+    % This procedure takes two procedures off the
+    % stack and merges them into a single procedure.
+
+    /mergeprocs { % def
+      dup length
+      3 -1 roll
+      dup
+      length
+      dup
+      5 1 roll
+      3 -1 roll
+      add
+      array cvx
+      dup
+      3 -1 roll
+      0 exch
+      putinterval
+      dup
+      4 2 roll
+      putinterval
+    } bind def
+
+    /colorimage { % def
+      pop pop     % remove 'false 3' operands
+      {colortogray} mergeprocs
+      image
+    } bind def
+  } ifelse          % end of 'false' case
+
+
+
+267 92 8			% dimensions of data
+[267 0 0 -92 0 92]		% mapping matrix
+{currentfile pix readhexstring pop}
+false 3 colorimage
+
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d3849ff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000000000000000000000000000db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192000000000000db7192db7192db7192db7192db7192000000000000db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192000000000000db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000db7192
+000000000000000000000000db7192db7192db7192000000000000000000000000db7192
+db7192000000000000db7192db7192000000000000db7192000000000000db7192000000
+000000db7192000000000000db7192db7192db7192000000000000db7192000000000000
+db7192db7192db7192db7192db7192db7192000000000000db7192000000000000db7192
+db7192000000000000000000000000db7192db7192000000db7192000000000000000000
+db7192000000000000000000db7192db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192000000000000000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192000000000000db7192000000000000db7192db7192000000000000db7192000000
+000000000000db7192000000000000db7192000000000000db7192000000000000000000
+db7192db7192db7192db7192db7192000000000000db7192000000000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000000000000000000000000000db7192db7192
+db7192db7192db7192000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000000000000000db7192db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192ff9ecfdb7192db7192db71926d3849
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db71926d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192db7192
+000000000000000000000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000000000000000db7192db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000000000000000000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db71926d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192db7192db7192
+db7192000000000000db7192000000000000db7192db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192000000000000db7192db7192000000000000db7192
+000000000000db7192db7192db7192db7192db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192ff9ecf6d3849db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192ff9ecf6d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d3849db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192000000000000db7192db7192000000000000db7192000000000000db7192000000
+000000db7192db7192000000000000db7192000000000000db7192000000000000000000
+db7192db7192db7192db7192db7192000000000000db7192000000000000000000db7192
+000000000000db7192db7192000000000000db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192ff9ecfdb71926d3849db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192ff9ecfdb7192db71926d3849db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192000000000000db7192db7192db7192db7192db7192db7192
+000000000000000000db7192000000000000db7192000000000000000000000000db7192
+db7192000000000000db7192db7192db7192000000000000000000000000db7192000000
+000000db7192db7192000000000000db7192db7192000000000000db7192000000000000
+db7192db7192db7192db7192db7192db7192000000000000db7192000000000000db7192
+db7192000000000000000000000000db7192db7192000000000000db7192db7192000000
+000000db7192db7192000000000000db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db71926d3849db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+ff9ecf6d38496d38496d38496d38496d3849db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192000000000000db7192db7192000000000000
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192000000000000000000000000db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849ff9ecfff9ecf
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecfdb7192db7192db7192db7192db7192db7192db7192db7192db7192db7192
+db7192db7192db7192db71926d38496d3849ff9ecfff9ecfdb7192db7192db7192db7192
+db7192db7192db7192db7192db7192db7192db7192db7192db7192db71926d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d3849ff9ecf6d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecf6d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d3849
+ff9ecfff9ecfff9ecf6d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff6d3849
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+000000cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7dcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffff7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000000000000000
+000000000000000000000000000000000000000000000000000000000000000000000000
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000000000
+cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcf000000000000000000000000cfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000cfcfcfcfcfcf000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000000000cfcfcf000000000000cfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000000000000000000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000
+cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcf000000000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000cfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcf000000000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcf000000000000000000000000000000000000000000
+000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcf
+000000cfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000000000000000cfcfcfcfcfcfcfcfcf
+cfcfcf000000000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000
+000000000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffff7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecf6d38496d3849
+6d38496d38496d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+6d38496d38496d3849
+ff9ecfff9ecfff9ecf6d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+000000cfcfcf000000000000000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000000000cfcfcf000000000000cfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcfcfcfcf000000000000000000000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000000000000000000000000000cfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcf000000000000cfcfcf
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000
+000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000000000000000
+cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf000000
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000
+000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000000000
+cfcfcf000000cfcfcf000000000000cfcfcf000000000000000000cfcfcfcfcfcf000000
+000000cfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcf000000000000000000cfcfcf000000000000000000
+000000cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcf000000000000000000000000cfcfcfcfcfcfcfcfcf000000000000cfcfcf
+000000000000cfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000
+cfcfcfcfcfcfcfcfcf000000000000cfcfcf000000000000cfcfcfcfcfcfcfcfcf000000
+000000cfcfcfcfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000000000000000
+cfcfcfcfcfcf000000000000cfcfcfcfcfcf000000000000cfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf000000000000cfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+7d7d7d7d7d7dffffffffffffcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf
+cfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcfcf7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffffffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d3849ffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7dffffff7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d
+7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d7d6d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+ff9ecfff9ecf6d3849
+ff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecf6d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecf6d38496d3849ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecfff9ecf
+ff9ecfff9ecf6d3849
+ff9ecf6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849ff9ecf6d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d3849ff9ecf6d38496d38496d38496d38496d3849
+6d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d38496d3849
+6d38496d38496d3849
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%EndDocument
+ @endspecial 641 628 a Fp(Figure)g(1.2:)j(Using)d(the)g(pac)o(k)g
+(options)75 761 y Fi(Example)193 844 y Fm(\(define)20
+b(b1)i(\(make)f(<Button>)f(:text)g("a)i(button"\)\))193
+894 y(\(define)e(b2)i(\(make)f(<Button>)f(:text)g("a)i(button)e(with)h
+(a)h(long)f(text"\)\))193 944 y(\(define)f(b3)i(\(make)f(<Button>)f
+(:text)g("expanded)g(button"\)\))193 993 y(\(define)g(b4)i(\(make)f
+(<Button>)f(:text)g("LARGE)h(BUTTON"\)\))193 1043 y(\(pack)g(b1)g(b2\))
+193 1093 y(\(pack)g(b3)g(:expand)g(#t)g(:fill)g("x"\))193
+1143 y(\(pack)g(b4)g(:expand)g(#t)g(:fill)g("both")f(:side)h("right")f
+(:before)h(b1\))193 1209 y Fp(These)15 b(calls)f(to)f
+Fm(pack)g Fp(will)g(pro)q(duce)i(the)f(output)h(sho)o(wn)e(in)h(Figure)
+g(1.2.)75 1283 y Fi(Se)n(e)h(also)193 1366 y Fm(place)p
+Fp(,)d Fm(unpack)103 1471 y Fd(\013)p 103 1556 4 62 v
+103 1583 a(\012)1806 1471 y(\010)p 1806 1556 V 1806 1583
+a(\011)p 130 1583 1653 4 v 130 1471 V 147 1540 a Fc(place)1251
+b Fm(procedure)75 1704 y Fi(Syntax)193 1787 y Fm(place)239
+b(l)75 1860 y Fp(SEE)14 b(TK)h(MAN)f(P)m(A)o(GE)f(:-<)103
+1965 y Fd(\013)p 103 2050 4 62 v 103 2076 a(\012)1806
+1965 y(\010)p 1806 2050 V 1806 2076 a(\011)p 130 2076
+1653 4 v 130 1965 V 147 2033 a Fc(unpack)1214 b Fm(procedure)75
+2198 y Fi(Syntax)193 2281 y Fm(unpack)42 b(l)75 2354
+y Fi(A)o(r)n(guments)193 2437 y Fn(l)20 b Fp(a)14 b(list)f(of)g
+(widgets)i(to)e(unmap.)75 2511 y Fi(Description)193 2594
+y Fm(Unpack)d Fp(is)i(a)f(simple)g(w)o(a)o(y)g(to)g(unmap)f(the)j
+(widgets)e(of)g(the)i Fm(l)e Fp(list.)17 b(This)12 b(pro)q(cedure)h
+(calls)e(in)h(fact)f Fm(pack)193 2643 y('forget)i Fp(pro)q(cedure.)21
+b(After)15 b(the)f(execution)h(of)f(this)g(pro)q(cedure)i(the)f
+Fi(p)n(ack)g Fp(geometry)e(manager)g(will)193 2693 y(no)h(longer)f
+(manage)g(the)h(geometry)f(of)h(giv)o(en)f(widgets.)75
+2767 y Fi(R)n(esult)935 2960 y Fp(13)p eop
+%%Page: 14 14
+14 13 bop 75 35 a Fl(CHAPTER)14 b(1.)32 b(GETTING)13
+b(ST)m(AR)m(TED)305 b(1.3.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p
+75 51 1763 2 v 193 195 a Fp(Unde\014ned)75 269 y Fi(Example)193
+352 y Fp(\(de\014ne)e(l1)d(\(mak)o(e)g(<Lab)q(el>)g(:text)i("lab1"\)\))
+e(...)16 b(\(de\014ne)11 b(l5)f(\(mak)o(e)f(<Lab)q(el>)g(:text)i
+("lab5"\)\))e(\(destro)o(y)i(l1\))193 401 y(;;)i(Ob)r(ject)h(is)f
+(unmapp)q(ed)f(AND)i(destro)o(y)o(ed)g(\(unpac)o(k)f(l2)g(l3)f(l4)h
+(l5\))f(;;)h(Ob)r(jects)h(are)g(ONL)m(Y)f(unmapp)q(ed)193
+451 y(\(class-name)g(\(class-of)h(l1\)\))f({>)h(<destro)o(y)o(ed-ob)r
+(ject>)g(\(class-name)g(\(class-of)f(l2\)\))h({>)f(<lab)q(el>)75
+525 y Fi(Se)n(e)i(also)193 608 y Fm(place)p Fp(,)d Fm(pack)p
+Fp(,)h Fm(destroy)935 2960 y Fp(14)p eop
+%%Page: 15 15
+15 14 bop 75 530 a Fu(Chapter)31 b(2)75 761 y Fo(Basic)39
+b(widgets)75 1001 y Fp(This)10 b(c)o(hapter)i(is)e(dev)o(oted)i(to)e
+(the)h(simplest)f(widgets)g(of)g(the)h Fk(STklos)h Fp(pac)o(k)n(age.)17
+b(In)10 b(fact,)h(all)e(the)i(Tk)g(widgets,)75 1051 y(except)k(the)g
+Fi(c)n(anvas)f Fp(and)g Fi(text)g Fp(widgets,)g(are)g(presen)o(ted)i
+(here.)75 1209 y Fj(2.1)66 b(In)n(tro)r(duction)75 1332
+y Ft(2.1.1)55 b(A)19 b(simple)e(in)n(terface)75 1432
+y Fn(De\014ning)c(the)i(widgets)75 1533 y Fp(Before)20
+b(detailing)e(all)g(the)h(simple)f(widgets)h(of)f(the)i(Tk)f(library)m
+(,)g(w)o(e)g(will)e(see)k(ho)o(w)d(to)h(build)f(the)i(simple)75
+1582 y(in)o(terface)14 b(whic)o(h)g(is)g(sho)o(wn)g(in)f(Figure)h(2.1.)
+j(This)d(in)o(terface)h(is)e(comp)q(osed)h(of)f(three)i(main)d(comp)q
+(onen)o(ts:)126 1679 y(1.)20 b(a)13 b(lab)q(el)h(whic)o(h)f(is)h
+(situated)h(at)e(top)126 1757 y(2.)20 b(a)13 b(frame)g(whic)o(h)h(is)f
+(itself)h(constituted)h(of)e(t)o(w)o(o)h(comp)q(onen)o(ts:)196
+1835 y(\(a\))21 b(a)14 b(listb)q(o)o(x,)e(and)194 1896
+y(\(b\))21 b(a)14 b(scrollbar)126 1974 y(3.)20 b(a)13
+b(\\quit")g(button)75 2071 y(Let's)i(ha)o(v)o(e)f(lo)q(ok)g(no)o(w)g
+(to)g(the)h(ob)r(jects)h(w)o(e'll)d(ha)o(v)o(e)h(to)h(create)h(for)e
+(this)g(in)o(terface.)21 b(First)15 b(w)o(e)f(can)h(create)h(the)75
+2120 y(top)g(lab)q(el)g(and)g(the)h(quit)f(button)h(whic)o(h)f(are)h
+(relativ)o(ely)f(simple.)24 b(This)16 b(can)g(b)q(e)h(done)g(with)f
+(the)h(follo)o(wing)75 2170 y(de\014nitions:)179 2267
+y Fm(\(define)j(lab)43 b(\(make)21 b(<Label>)42 b(:text)21
+b("A)g(simple)g(interface"\)\))179 2317 y(\(define)f(quit)h(\(make)g
+(<Button>)f(:text)h("Quit")f(:command)g('\(exit\)\)\))75
+2413 y Fp(The)h Fm(:command)d Fp(init-k)o(eyw)o(ord)i(p)q(ermits)f(to)h
+(asso)q(ciate)h(an)f(action)g(to)g(the)h(button)g(\(this)f(action)g
+(will)f(b)q(e)75 2463 y(triggered)14 b(when)h(the)f(mouse)f(button)i(1)
+e(will)g(b)q(e)h(released)h(o)o(v)o(er)f(the)h Fm(quit)e
+Fp(button.)75 2536 y(The)f(in)o(terface)g(sho)o(wn)f(in)g(Figure)h(2.1)
+e(can)h(b)q(e)h(seen)h(as)f(a)f(v)o(ertical)g(alignmen)o(t)e(of)i
+(three)h(comp)q(onen)o(ts)f(\(a)g(lab)q(el,)75 2586 y(a)g(listb)q(o)o
+(x)f(with)g(a)h(scrollbar)f(and)h(a)f(button\).)18 b(The)11
+b(second)h(comp)q(onen)o(t)e(is)h(itself)f(an)h(alignmen)o(t)d(of)i(t)o
+(w)o(o)h(ob)r(ject)75 2636 y(\(a)i(scrollbar)g(and)g(a)g(listb)q(o)o
+(x\).)k(What)c(is)f(imp)q(ortan)o(t)g(to)h(note)g(here)i(is)d(that)i
+(this)f(alignmen)o(t)e(is)h(an)h(horizon)o(tal)75 2686
+y(one)g(situated)h(inside)f(a)g(v)o(ertical)f(one.)18
+b(In)13 b(this)h(case,)f(w)o(e)h(ha)o(v)o(e)e(to)h(place)g(the)h(comp)q
+(onen)o(ts)f(of)f(our)h(horizon)o(tal)75 2736 y(alignmen)o(t)g(in)i(a)g
+(con)o(tainer)h(whic)o(h)f(acts)h(as)g(a)f(kind)g(of)g(bac)o(k)g(b)q(o)
+o(x)g(for)h(further)g(la)o(y)o(out.)21 b(The)16 b(widget)g(whic)o(h)75
+2785 y(p)q(ermit)c(to)h(\\em)o(b)q(o)q(dy")e(sev)o(eral)j(widgets)f(is)
+g(called)g(a)g(frame)e(in)i(the)g(Tk)g(to)q(olkit.)k(Consequen)o(tly)m
+(,)c(the)g(listb)q(o)o(x)75 2835 y(and)h(its)g(scrollbar)f(can)i(b)q(e)
+f(de\014ned)h(b)o(y:)935 2960 y(15)p eop
+%%Page: 16 16
+16 15 bop 75 35 a Fl(CHAPTER)14 b(2.)27 b(BASIC)14 b(WIDGETS)702
+b(2.1.)26 b(INTR)o(ODUCTION)p 75 51 1763 2 v 592 1195
+a @beginspecial 210 @llx 300 @lly 385 @urx 550 @ury 1750
+@rwi @setspecial
+%%BeginDocument: Basic-Fig-1.ps
+
+
+% remember original state
+/origstate save def
+
+% build a temporary dictionary
+20 dict begin
+
+% lower left corner
+210 300 translate
+
+% size of image (on paper, in 1/72inch coords)
+175.03200 249.98400 scale
+
+% define 'colorimage' if it isn't defined
+%   ('colortogray' and 'mergeprocs' come from xwd2ps
+%     via xgrab)
+/colorimage where   % do we know about 'colorimage'?
+  { pop }           % yes: pop off the 'dict' returned
+  {                 % no:  define one
+    /colortogray {  % define an RGB->I function
+      /rgbdata exch store    % call input 'rgbdata'
+      rgbdata length 3 idiv
+      /npixls exch store
+      /rgbindx 0 store
+      /grays npixls string store  % str to hold the result
+      0 1 npixls 1 sub {
+        grays exch
+        rgbdata rgbindx       get 20 mul    % Red
+        rgbdata rgbindx 1 add get 32 mul    % Green
+        rgbdata rgbindx 2 add get 12 mul    % Blue
+        add add 64 idiv      % I = .5G + .31R + .18B
+        put
+        /rgbindx rgbindx 3 add store
+      } for
+      grays
+    } bind def
+
+    % Utility procedure for colorimage operator.
+    % This procedure takes two procedures off the
+    % stack and merges them into a single procedure.
+
+    /mergeprocs { % def
+      dup length
+      3 -1 roll
+      dup
+      length
+      dup
+      5 1 roll
+      3 -1 roll
+      add
+      array cvx
+      dup
+      3 -1 roll
+      0 exch
+      putinterval
+      dup
+      4 2 roll
+      putinterval
+    } bind def
+
+    /colorimage { % def
+      pop pop     % remove 'false 3' operands
+      {colortogray} mergeprocs
+      image
+    } bind def
+  } ifelse          % end of 'false' case
+
+
+
+% define the colormap
+/cmap 27 string def
+
+
+% load up the colormap
+currentfile cmap readhexstring
+ffffff 000000 ffe4c4 998976 cccccc 7a7a7a db7093 6d3849 ff9dce 
+pop pop   % lose return values from readhexstring
+
+
+% rlecmapimage expects to have 'w h bits matrix' on stack
+/rlecmapimage {
+  /buffer 1 string def
+  /rgbval 3 string def
+  /block  384 string def
+
+  % proc to read a block from file, and return RGB data
+  { currentfile buffer readhexstring pop
+    /bcount exch 0 get store
+    bcount 128 ge
+    {  % it's a non-run block
+      0 1 bcount 128 sub
+      { currentfile buffer readhexstring pop pop
+
+        % look up value in color map
+        /rgbval cmap buffer 0 get 3 mul 3 getinterval store
+
+        % and put it in position i*3 in block
+        block exch 3 mul rgbval putinterval
+      } for
+      block  0  bcount 127 sub 3 mul  getinterval
+    }
+
+    { % else it's a run block
+      currentfile buffer readhexstring pop pop
+
+      % look up value in colormap
+      /rgbval cmap buffer 0 get 3 mul 3 getinterval store
+
+      0 1 bcount { block exch 3 mul rgbval putinterval } for
+
+      block 0 bcount 1 add 3 mul getinterval
+    } ifelse
+  } % end of proc
+  false 3 colorimage
+} bind def
+
+
+175 250 8			% dimensions of data
+[175 0 0 -250 0 250]		% mapping matrix
+rlecmapimage
+
+14088107087f0801088107081308
+130801077f080108010713080007
+010813078108077f0701078108071007810807
+01087f07290701080007
+0108010710088107085d088107080f088107080f088107080f08810708810807
+010801070f0801075d0801070f0801070f0801070f08010701080007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d060107010823060401010609012606010701080d06010701080d060107
+01080d06010701080007
+0108010701080d0601070108220601010206010103060101020601012606010701080d06
+010701080d06010701080d06010701080007
+0108010701080d0601070108220601010206010103060101020601010106010122060107
+01080d06010701080d06010701080d06010701080007
+0108010701080d0601070108230602010606010102060101810601810106220601070108
+0d06010701080306040881070602060107010806068108060406010701080007
+010801070108810608090882070607810708810806240602010406010102060301240601
+0701080d0601070108040681080601068107060206010701080506820807060406010701
+080007
+010801070108820608060806820706078107088108062506020103060101020603012406
+010701080506820807060406010701080406810806820607060306010701080506830806
+07060306010701080007
+010801070108820608060806820706078107088108062106010102060101030601010206
+010181060181010622060107010805068208070604060107010805068308060706030601
+0701080406810806820607060306010701080007
+010801070108820608070907810607810708810806210601010206010103060101020601
+01010601012206010701080d060107010805068208070604060107010804068108060106
+8107060206010701080007
+0108010701080d0601070108230604010406010102060101020601012106010701080d06
+010701080606810706040601070108030681080703070306010701080007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+0108010701080d06010701085b06010701080d06010701080d06010701080d0601070108
+0007
+81080701078108070f078108075d078108070f078108070f078108070f078108070007
+7f072e07
+02088107047f0425048107080108
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+01080107200401010d040101120401010b040101080401010f0402013204810708810807
+
+010801071f04030121040101160401010e0401013404810708810807
+010801071f04810104820401040504030101040101830401040101018104010101010401
+018104018101048104018101048104010201050401018104018201040181010481040102
+01010403010104010181040104010104030102040301020403011f04810708810807
+010801071e04010101040101040401010104010181040182010401810104810401810104
+810401820104010101810401820104018201040181010481040181010403040101810401
+010181040181010481040181010481040181010481040182010401030181040181010481
+040181010481040182010401810104810401820104018101048104018101041d04810708
+810807
+010801071e04010101040101040402010304010181040181010481040181010481040182
+010401810104810401820104018201040181010481040181010403040101810401810104
+810401810104810401810104810401810104810401820104010101020401010504010181
+040181010403040101010401011e04810708810807
+010801071e04050106040201010401018104018101048104018101048104018201040181
+010481040182010401820104010401040401018104018101048104018101048104018101
+0481040104018104018101040204010102040401810401810104030405011e0481070881
+0807
+010801071d04010103040101060402018104018201040181010481040181010481040182
+010401810104810401820104018201040181010407040101810401810104810401810104
+810401810104810401810104030401010304010101040101010401018104018101040304
+01012204810708810807
+010801071d04010103040101030401010104010181040182010401810104810401810104
+810401820104010101810401820104018201040181010481040181010403040101810401
+810104810401810104810401820104010101010401018104018101040204010101040101
+01040101810401810104810401820104018101048104018101041d04810708810807
+010801071d04010103040101040403010104010181040181010481040181010481040182
+010401820104018101048104018101048104010201050401018104018101048104018101
+040104010101040301010401010304010102040201810401820104010201020403011f04
+810708810807
+010801073e0401016504810708810807
+010801073e0401016504810708810807
+010801073e0401016504810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f042604810708810807
+010801077f002600810708810807
+010801078100047f04230482050708810807
+01080107820004057f0521058304050708810807
+0108010783000405047f0417048103040504840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f041504010002030404840004050708810807
+0108010783000405047f04150401008102038103040304840004050708810807
+0108010783000405047f0414040100020201030304840004050708810807
+0108010783000405047f0413040200020201030304840004050708810807
+0108010783000405047f0413040100040201030204840004050708810807
+0108010783000405047f0412040100060201030104840004050708810807
+0108010783000405047f0412040100060201030104840004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f0411048100030a0385040004050708810807
+0108010783000405047f0410048100030c03840004050708810807
+0108010783000405047f0411040c0085040004050708810807
+0108010783000405047f0411040b008603040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000802010385040004050708810807
+0108010783000405047f04110401000a0385040004050708810807
+0108010783000405047f0411048100030a0385040004050708810807
+0108010783000405047f0410040f008304050708810807
+0108010783000405047f0411040c0085030004050708810807
+0108010783000405047f0412048100020702010385040004050708810807
+0108010783000405047f04120401000702010385040004050708810807
+0108010783000405047f041304810002050201030104840004050708810807
+0108010783000405047f041304010005028103040104840004050708810807
+0108010783000405047f041404810002030201030204840004050708810807
+0108010783000405047f0414040100020201030304840004050708810807
+0108010783000405047f041504810002010201030304840004050708810807
+0108010783000405047f04150401008102038103040304840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0416048100038103040404840004050708810807
+0108010783000405047f0417048103040504840004050708810807
+0108010783000405007f0020008304050708810807
+010801078100047f04230482050708810807
+010801078100057f052405810708810807
+0108010742041f004304810708810807
+0108010742041e008105044204810708810807
+8108070107420401001b0401054304820708070007
+0307420401001b04010543040307
+0208810704410401001b04010543048107080108
+0108010742040100020403010904010101040101040401054304810708810807
+010801074204010001040101010401010c040101040401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018201040102
+01030401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018101048104
+01810104030401054304810708810807
+010801074204010081040181010402040101810401810104810401820104018101048104
+01810104030401054304810708810807
+010801074204010081040181010483040104018201040181010481040182010401810104
+810401810104030401054304810708810807
+010801074204010081040181010481040102018104018101048104018201040181010481
+0401810104030401054304810708810807
+010801074204010001040101010401010104010181040101018104018101048104018301
+040104010401054304810708810807
+010801074204010002040501010401018104018201040181010401040101030401054304
+810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001b0401054304810708810807
+01080107420401001d054304810708810807
+0108010742048100051d054304810708810807
+01087f07290701080007
+010881070810088107087f08010881070812080007
+130801077f080108010713080007
+81080713078108077f0701078108071207
+
+%
+% Compression made this file 6.07% of the uncompressed size.
+%
+
+
+showpage
+
+% stop using temporary dictionary
+end
+
+% restore original state
+origstate restore
+
+%%EndDocument
+ @endspecial 685 1287 a Fp(Figure)14 b(2.1:)j(A)d(simple)e(in)o
+(terface)179 1412 y Fm(\(define)20 b(box)43 b(\(make)21
+b(<Frame>)f(:border-width)f(3)j(:relief)e("ridge"\)\))179
+1462 y(\(define)g(l)87 b(\(make)21 b(<Listbox>)63 b(:parent)21
+b(box\)\))179 1512 y(\(define)f(s)87 b(\(make)21 b(<Scrollbar>)e
+(:parent)i(box)g(:orientation)e("vertical"\)\))75 1611
+y Fp(What)c(is)g(imp)q(ortan)o(t)e(to)i(note)g(is)g(that)h(the)f(listb)
+q(o)o(x)g(and)g(the)g(scrollbar)g(b)q(oth)h(tell)e(that)h(their)h
+Fi(p)n(ar)n(ent)f Fp(is)g(the)75 1661 y(frame)e Fm(box)p
+Fp(.)k(This)d(is)f(this)h(indication)f(whic)o(h)h(e\013ectiv)o(ely)h
+(em)o(b)q(o)q(dy)d(them)i(in)f(the)h(frame.)75 1735 y(All)e(the)i
+(basic)f(comp)q(onen)o(ts)g(of)f(our)h(in)o(terface)h(ha)o(v)o(e)e(b)q
+(een)j(created.)k(What)12 b(it)h(rests)i(to)e(do)f(consists)i(to)f
+(place)75 1784 y(the)k(graphic)e(comp)q(onen)o(ts)h(w)o(e)g(ha)o(v)o(e)
+g(just)g(de\014ned)h(on)o(to)e(screen.)26 b(First)17
+b(w)o(e)f(can)g(map)e(the)j(listb)q(o)o(x)e(and)g(its)75
+1834 y(scrollbar)f(in)f(the)i Fm(box)e Fp(ob)r(ject)i(with)e(the)i
+Fi(p)n(acker)f Fp(geometry)f(manager)f(\(see)j(page)f(10\):)179
+1934 y Fm(\(pack)21 b(l)g(:expand)f(#t)i(:fill)f("both")f(:side)h
+("left"\))179 1984 y(\(pack)g(s)g(:expand)f(#t)i(:fill)f("y")g(:side)g
+("right"\))75 2083 y Fp(Both)11 b(calls)g(to)g Fm(pack)f
+Fp(p)q(ermit)g(to)h(de\014ne)h(the)g(arrangemen)o(t)e(of)h(the)g(listb)
+q(o)o(x)g(and)g(the)g(scrollbar)g(in)o(to)g(the)g(frame.)75
+2133 y(Here)h(w)o(e)g(claim)d(that)i(the)h(scrollbar)f(should)g(sta)o
+(y)g(on)g(the)h(righ)o(t)f(side)h(of)e(the)i(frame)e(and)h(that)g(it)g
+(m)o(ust)f(expand)75 2183 y(itself)17 b(only)f(in)h(the)h(v)o(ertical)f
+(direction)g(if)f(its)h(con)o(taining)f(frame)g(\(i.e.)28
+b Fm(box)p Fp(\))16 b(is)h(resized.)29 b(Concerning)18
+b(the)75 2233 y(listb)q(o)o(x,)13 b(it)g(will)g(sta)o(y)g(on)h(rigth)g
+(and)f(it)h(will)e(\014ll)h(all)g(the)h(space)h(\()p
+Fm(:fill)21 b("both")p Fp(\))13 b(if)g Fm(box)g Fp(size)i(c)o(hanges.)
+75 2306 y(No)o(w)e(w)o(e)g(can)h Fi(p)n(ack)g Fp(the)f(three)i(comp)q
+(onen)o(ts)e(of)f(this)i(simple)d(in)o(terface)j(to)f(sho)o(w)h(up)f
+(them)f(on)h(screen;)i(it)e(can)75 2356 y(b)q(e)i(easily)e(done)h(b)o
+(y:)179 2456 y Fm(\(pack)21 b(lab)g(box)g(quit\))75 2555
+y Fp(The)14 b(complete)g(program)e(for)h(the)i(building)d(the)j
+(previous)f(in)o(terface)h(is)e(giv)o(en)h(in)f(Figure)h(2.2.)75
+2685 y Fn(Filling)e(the)j(listb)q(o)o(x)75 2785 y Fp(Filling)8
+b(the)i(listb)q(o)o(x)f(can)h(b)q(e)g(done)g(b)o(y)g(calling)e(the)i
+Fm(insert)f Fp(metho)q(d.)16 b(This)9 b(metho)q(d)g(p)q(ermits)g(to)h
+(add)g(elemen)o(ts)75 2835 y(in)j(the)i(listb)q(o)o(x.)i(A)d(w)o(a)o(y)
+f(to)h(\014ll)f(the)i(previous)f(lisb)q(o)o(x)f(could)g(b)q(e:)935
+2960 y(16)p eop
+%%Page: 17 17
+17 16 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)693
+b(2.1.)30 b(INTR)o(ODUCTION)p 75 51 1763 2 v 75 174 a
+Fb(;;;)17 b(Defining)d(the)j(components)75 213 y(\(define)e(lab)34
+b(\(make)16 b(<Label>)33 b(:text)16 b("A)h(simple)e(interface"\))o(\))
+75 253 y(\(define)g(quit)h(\(make)g(<Button>)f(:text)h("Quit")f
+(:command)g('\(exit\)\)\))75 292 y(\(define)g(box)34
+b(\(make)16 b(<Frame>)33 b(:border-wi)o(dth)14 b(3)j(:relief)e
+("ridge"\)\))75 371 y(;;;)i(Zoom)f(in)h(the)f(box)75
+410 y(\(define)f(l)70 b(\(make)16 b(<Listbox>)50 b(:parent)15
+b(box\)\))75 450 y(\(define)g(s)70 b(\(make)16 b(<Scrollbar>)e(:parent)
+h(box)i(:orientat)o(ion)d("vertical")o(\)\))75 529 y(\(pack)i(l)h
+(:expand)e(#t)i(:fill)f("both")g(:side)f("left"\))75
+568 y(\(pack)h(s)h(:expand)e(#t)i(:fill)f("y")h(:side)e("right"\))75
+647 y(;;;)i(Pack)f(the)g(components)75 687 y(\(pack)g(lab)g(box)h
+(quit\))498 819 y Fp(Figure)d(2.2:)j(Complete)c(co)q(de)i(for)f(the)g
+(simple)e(in)o(terface)179 944 y Fm(\(insert)20 b(l)i(0)f("a")g("b")h
+("c"\))75 1043 y Fp(This)12 b(will)e(insert)j(3)f(lines)g(\(con)o
+(taining)f Fm("a")p Fp(,)g Fm("b")h Fp(and)f Fm("c")p
+Fp(\))h(after)g(the)h(elemen)o(t)e(whose)i(index)f(is)g(0.)17
+b(Inserting)75 1093 y(a)d Fm("d")f Fp(b)q(et)o(w)o(een)i
+Fm("a")e Fp(and)h Fm("b")f Fp(could)h(b)q(e)g(done)h(b)o(y)e(the)i
+(follo)o(wing)c(expression:)179 1192 y Fm(\(insert)20
+b(l)i(1)f("d"\))75 1291 y Fp(Deleting)13 b(elemen)o(ts)h(of)f(listb)q
+(o)o(x)h(necessitates)i(a)e(call)f(to)g(the)i Fm(delete)e
+Fp(metho)q(d.)k(F)m(or)c(instance,)179 1390 y Fm(\(delete)20
+b(l)i(1\))75 1490 y Fp(deletes)15 b(the)g(second)g(elemen)o(t)e(of)g
+(the)i(listb)q(o)o(x)e(\(\014rst)i(elemen)o(t)e(is)h(at)g(index)g(0\),)
+f(and)179 1589 y Fm(\(delete)20 b(l)i(0)f(2\))75 1688
+y Fp(p)q(ermits)13 b(to)h(delete)h(the)g(three)g(remaining)d(elemen)o
+(ts.)75 1761 y Fm(Insert)h Fp(and)g Fm(delete)g Fp(are)h(simple)f
+(metho)q(ds)g(built)g(up)q(on)h(Tk)g(commands)d(to)j(accesss)i(listb)q
+(o)o(x.)h(Most)e(of)e(the)75 1811 y(time,)g(this)h(w)o(a)o(y)g(of)f
+(accessing)j(a)e(listb)q(o)o(x)g(is)g(not)g(to)q(o)g(con)o(v)o(enien)o
+(t,)h(and)f(it)g(is)g(more)f(easy)i(to)f(see)i(the)f(con)o(ten)o(t)75
+1861 y(of)e(a)g(listb)q(o)o(x)f(as)h(its)h(v)n(alue.)j(Consequen)o(tly)
+m(,)c(the)g Fm(stklos)f(<Listbox>)g Fp(class)h(de\014nes)i(a)e(virtual)
+f(slot[)p Fn(?)o Fp(])h(called)75 1911 y Fm(value)j Fp(whic)o(h)h(p)q
+(ermits)f(to)h(read/\014ll)f(the)i(con)o(ten)o(ts)g(of)e(a)h(listb)q(o)
+o(x)f(as)h(a)g Fk(STklos)h Fp(slot.)27 b(F)m(or)17 b(instance,)h(the)75
+1960 y(previous)c(listb)q(o)o(x)f(can)h(b)q(e)h(\014lled)e(with:)179
+2059 y Fm(\(set!)21 b(\(value)f(l\))h('\("a")g("b")g("c"\)\))43
+b(;;)21 b(or)h(\(slot-set!)d(l)j('value)f('\(...\)\))75
+2158 y Fp(and)14 b(the)g(v)n(alue)f(of)h(the)g(second)h(elemen)o(t)f
+(of)f(the)h(listb)q(o)o(x)f(can)i(b)q(e)f(obtained)g(b)o(y)179
+2258 y Fm(\(list-ref)20 b(\(value)g(l\))i(1\))75 2357
+y Fp(Of)13 b(course,)h(the)f(v)n(alue)f(slot)h(has)g(an)g
+(initialization)d(k)o(ew)o(ord)j(asso)q(ciated)g(to)g(it,)f(and)h(the)g
+(\014lling)e(of)i(the)g(listb)q(o)o(x)75 2406 y(could)h(ha)o(v)o(e)f(b)
+q(een)i(done)g(during)e(the)i(de\014nition)e(of)g(the)i(listb)q(o)o(x:)
+179 2505 y Fm(\(define)20 b(l)i(\(make)e(<Listbox>)g(:parent)h(box)745
+2555 y(:value)43 b('\("a")21 b("b")g("c"\)\)\))75 2685
+y Fn(Bringing)13 b(the)i(scrollbar)e(to)i(life)75 2785
+y Fp(F)m(or)9 b(no)o(w,)g(the)h(lisb)q(o)o(x)e(and)i(the)f(scrollbar)h
+(are)f(disconnected)i(\(i.e.)17 b(mo)o(ving)6 b(the)k(listb)q(o)o(x,)f
+(with)g Fm(<Shift-Button2>)75 2835 y Fp(do)q(esn't)i(mo)o(v)o(e)f(the)h
+(scrollbar)g(and)g(clic)o(king)f(the)h(scrollbar)g(do)q(es)h
+(nothing\).)17 b(T)m(o)10 b(mak)o(e)f(b)q(oth)i(widgets)g(w)o(orking)
+935 2960 y(17)p eop
+%%Page: 18 18
+18 17 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)693
+b(2.1.)30 b(INTR)o(ODUCTION)p 75 51 1763 2 v 75 195 a
+Fp(accordingly)m(,)12 b(w)o(e)j(ha)o(v)o(e)e(to)h(asso)q(ciate)g(a)g
+(command)d(to)j(eac)o(h)g(widget.)k(First,)c(w)o(e)g(can)g(asso)q
+(ciate)h(a)e(command)75 245 y(to)j(the)h(scrollbar,)g(suc)o(h)g(as)g
+(mo)o(ving)d(it)i(with)g(mouse)f(button)i(will)e(mo)o(v)o(e)g(the)i
+(listb)q(o)o(x.)25 b(This)16 b(can)h(b)q(e)g(done)75
+295 y(with:)179 401 y Fm(\(set!)k(\(command)f(s\))h(\(format)f(#f)i
+("y-view)e(~S)i(")f(\(address-of)f(l\)\)\))75 508 y Fp(whic)o(h)12
+b(asso)q(ciates)g(the)g(pre\014x)h(of)e(a)g(Sc)o(heme)h(command)c(to)k
+(in)o(v)o(ok)o(e)f(to)g(c)o(hange)h(the)g(view)g(in)f(the)h(listb)q(o)o
+(x)f(when)75 558 y(the)18 b(user)h(manipulates)e(the)h(scrollbar.)30
+b(This)18 b(command)d(is)j(partial)f(and)g(will)g(b)q(e)h(completed)g
+(e\013ectiv)o(ely)75 608 y(when)f(the)g(user)h(will)d(clic)o(k)h(the)h
+(scrollbar)g(\(see)h(the)f(<Scrollbar>)e(class)i(description)h(on)e
+(page)h Fn(??)e Fp(for)h(more)75 657 y(details\).)75
+731 y(This)f(is)f(at)h(half)e(w)o(a)o(y)h(of)g(what)h(w)o(e)g(ha)o(v)o
+(e)f(to)h(do)f(for)g(cleanly)h(asso)q(ciate)g(the)g(scrollbar)g(and)f
+(the)i(listb)q(o)o(x.)j(On)75 781 y(the)14 b(listb)q(o)o(x)g(side,)f(w)
+o(e)i(ha)o(v)o(e)e(to)h(asso)q(ciate)h(a)e(command)e(for)j(its)g(v)o
+(ertical)f(mo)o(v)o(emen)o(t:)179 887 y Fm(\(set!)21
+b(\(y-scroll-comma)o(nd)e(l\))310 937 y(\(format)h(#f)h
+("scrollbar-set!)e(~S)i(")h(\(address-of)d(s\)\)\))75
+1044 y Fp(Here)e(again,)d(the)j(command)12 b(asso)q(ciated)17
+b(to)e(the)i(listb)q(o)o(x)d(is)i(a)f(partial)g(since)h(it)g(will)e(b)q
+(e)i(completed)f(b)o(y)h(Tk)75 1094 y(when)e(needed.)75
+1167 y(As)h(w)o(e)g(will)f(see)i(in)e(a)h(next)g(c)o(hapter,)h
+Fi(c)n(omp)n(osite)g(widgets)e Fp(will)f(p)q(ermit)h(to)h(hide)g(all)f
+(this)h(stu\013,)g(and)g(w)o(e)g(will)75 1217 y(b)q(e)g(able)e(to)h
+(de\014ne)h(a)e(new)i(class)f(whic)o(h)g(will)e(em)o(b)q(o)q(dy)h(a)h
+(listb)q(o)o(x)f(and)g(one)i(\(or)f(t)o(w)o(o\))f(scrollbar.)75
+1357 y Ft(2.1.2)55 b(De\014ning)18 b(Men)n(us)75 1457
+y Fn(Men)o(u-button)o(s)13 b(and)i(Men)o(us)75 1557 y
+Fp(Tk)10 b(pro)o(vides)g(t)o(w)o(o)f(widgets)h(for)g(building)e(a)i
+(men)o(u:)15 b Fi(menubuttons)c Fp(and)f Fi(menus)p Fp(.)17
+b(Those)10 b(widgets)g(are)h(a)o(v)n(ailable)75 1607
+y(through)20 b(the)g Fm(<Menu-button>)e Fp(and)h Fm(<Menu>)g
+Fp(classes.)37 b(Instances)22 b(of)d Fm(<Menu-button>)e
+Fp(class)k(displa)o(y)e(a)75 1657 y(textual)14 b(string)g(\(or)g(a)f
+(bitmap\))g(and)g(are)i(asso)q(ciated)f(with)g(an)f(instance)i(of)e
+(the)i Fm(<Menu>)d Fp(class.)75 1788 y Fn(Creating)i(a)i(simple)e(men)o
+(u)g(bar)75 1889 y Fp(The)d(most)e(curren)o(t)j(task)e(with)h(men)o(us)
+e(concerns)k(men)o(u)c(bars)i(building.)k Fk(STklos)d
+Fp(pro)o(vides)e(the)h(con)o(v)o(enience)75 1938 y(function)j
+Fm(make-menubar)e Fp(to)i(ease)h(to)g(the)g(construction)g(of)f(men)o
+(u)f(bars.)20 b(T)m(o)13 b(illustrate)h(ho)o(w)g(this)h(function)75
+1988 y(w)o(ork,)e(w)o(e'll)g(presen)o(t)j(the)e(call)g(w)o(e)g(m)o(ust)
+f(write)h(to)g(pro)q(duce)h(the)g(men)o(u)e(bar)h(of)f(Figure)i(2.3.)i
+Fm(Make-menubar)75 2038 y Fp(is)f(a)g(function)g(whic)o(h)h(tak)o(es)f
+(a)h(list)e(of)h(men)o(u)g(buttons)h(sp)q(eci\014cations.)26
+b(Eac)o(h)17 b(men)o(u)e(button)i(sp)q(eci\014cation)75
+2088 y(is)f(also)g(a)h(list.)25 b(First)17 b(item)e(of)h(this)h(list)f
+(is)g(the)h(sp)q(eci\014cation)g(of)f(the)i(men)o(u)d(button;)j(the)f
+(rest)g(of)f(this)h(list)75 2138 y(corresp)q(ond)h(to)e(the)h(sp)q
+(ecifaction)g(of)f(the)h(men)o(u)f(items)f(asso)q(ciated)i(to)g(this)f
+(men)o(u)g(button.)25 b(T)m(o)16 b(represen)o(t)75 2187
+y(the)e(men)o(u)f(bar)h(of)g(Figure2.3,)e(w)o(e)i(ha)o(v)o(e)g(a)g(sp)q
+(eci\014cation)g(whih)g(lo)q(oks)f(lik)o(e:)179 2294
+y Fm(\(\(Description)19 b(of)36 b Fi(Work)15 b(days)23
+b Fm(menu)e(button)288 2344 y(\(Fisrt)f(item)h(of)36
+b Fi(Work)16 b(days)p Fm(\))288 2394 y(\(Second)k(item)h(of)36
+b Fi(Work)15 b(days)p Fm(\)\))201 2444 y(\(Description)k(of)36
+b Fi(We)n(ek)16 b(end)22 b Fm(menu)f(button)288 2493
+y(\(Fisrt)f(item)h(of)36 b Fi(We)n(ek-end)p Fm(\))288
+2543 y(\(Second)20 b(item)h(of)36 b Fi(We)n(ek-end)p
+Fm(\)\))179 2593 y(\))75 2700 y Fp(The)15 b(complete)g(co)q(de)h(for)e
+(this)i(men)o(u)e(bar)h(is)f(giv)o(en)h(in)g(Figure2.4.)20
+b(Struture)d(of)d(men)o(u)g(buttons)i(and)e(men)o(u)75
+2749 y(items)f(sp)q(eci\014cations)i(is)f(de\014ned)h(in)e
+Fn(??)o Fp(.)935 2960 y(18)p eop
+%%Page: 19 19
+19 18 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)693
+b(2.1.)30 b(INTR)o(ODUCTION)p 75 51 1763 2 v 633 1090
+a @beginspecial 0 @llx 0 @lly 155 @urx 164 @ury 1550
+@rwi @setspecial
+%%BeginDocument: Fig2-2.eps
+%
+%
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+%ffffffffffffffffffff
+/inch {72 mul} def
+/rlebuffer 2 string def
+/samples 256 string def
+/plotimage
+{155 164 8 [155 0 0 -164 0 164]
+% run-length decoding block
+  { currentfile rlebuffer readhexstring pop pop
+    rlebuffer 0 get 1 add       %% number of copies of the sample
+    /nsamples exch store        %% save it away
+    /lum rlebuffer 1 get store  %% the sample itself
+    0 1 nsamples 1 sub { samples exch lum put } for
+    samples 0 nsamples getinterval %% leave the pixels on the stack
+  }
+  image
+} def
+gsave
+155 164 scale
+plotimage
+fefffefffeffa9ff914408ff004414bd004463bd004414bd004408ff0044
+13bd014462bd014413bd014408ff004401bd134400bd634400bd114400bd
+014408ff004401bd8a4401bd014408ff004401bd014410bd00443fbd0044
+10bd004410bd004410bd004401bd014408ff004401bd01440fbd01443ebd
+01440fbd01440fbd01440fbd014401bd014408ff004401bd014401bd0d88
+014401bd3c88014401bd0d88014401bd0d88014401bd0d88014401bd0144
+08ff004401bd014401bd0d88014401bd0b880100048801002788014401bd
+0d88014401bd0d88014401bd0d88014401bd014408ff004401bd014401bd
+0d88014401bd0b880100048801002788014401bd0d88014401bd0d880144
+01bd0d88014401bd014408ff004401bd014401bd0d88014401bd0b880200
+028802000188030001880100008801000188010001880100018803000c88
+014401bd0d88014401bd0d88014401bd0d88014401bd014408ff004401bd
+014401bd0d88014401bd0b88020002880200008801000188010000880200
+00880100008801000188010000880100018801000b88014401bd0d880144
+01bd038804bd00440388014401bd058800bd00440588014401bd014408ff
+004401bd014401bd00880abd00440088014401bd0b880300008803000088
+01000188010000880100018801000088010001880100008802000e880144
+01bd0d88014401bd048800bd028800440388014401bd058800bd00440588
+014401bd014408ff004401bd014401bd008800bd098800440088014401bd
+0b8801000088000000880000008801000088050000880100018801000088
+010001880100028802000c88014401bd058800bd00440588014401bd0588
+00bd008800440488014401bd048800bd018800440488014401bd014408ff
+004401bd014401bd008800bd098800440088014401bd0b88010000880200
+008801000088010004880100018801000088010001880100038802000b88
+014401bd058800bd00440588014401bd058800bd008800440488014401bd
+048800bd018800440488014401bd014408ff004401bd014401bd008800bd
+0a440088014401bd0b880100018800000188010000880100018801000088
+010001880100008801000088020000880100018801000b88014401bd0d88
+014401bd058800bd008800440488014401bd048800bd0188004404880144
+01bd014408ff004401bd014401bd0d88014401bd0b880100018800000188
+01000188030001880100018801000188010000880100018803000c880144
+01bd0d88014401bd068800440588014401bd038800bd04440388014401bd
+014408ff004401bd014401bd0d88014401bd3c88014401bd0d88014401bd
+0d88014401bd0d88014401bd014408ff004401bd014401bd0d88014401bd
+3c88014401bd0d88014401bd0d88014401bd0d88014401bd014408ff0044
+01bd014401bd0d88014401bd3c88014401bd0d88014401bd0d88014401bd
+0d88014401bd014408ff004401bd014401bd0d88014401bd3c88014401bd
+0d88014401bd0d88014401bd0d88014401bd014408ff004400bd024400bd
+104400bd3f4400bd104400bd104400bd104400bd024408ff914408ff0044
+02bd004444ff42cf004402bd004408ff004401bd014443ff007d42cf0044
+01bd014408ff004400bd024401ff40cf017d42cf004400bd024408ff0444
+01ff40cf017d42cf044408ff004402bd004401ff40cf017d42cf004402bd
+004408ff004401bd014401ff40cf017d42cf004401bd014408ff004401bd
+014401ff01cf010001cf010001cf01000bcf01000ccf010017cf017d03cf
+010001cf010001cf01000dcf01001ecf010003cf004401bd014408ff0044
+01bd014401ff01cf010001cf010001cf01000bcf01000ccf010017cf017d
+03cf010001cf010001cf01000dcf01001ecf010003cf004401bd014408ff
+004401bd014401ff01cf010001cf010001cf010000cf030001cf010000cf
+030001cf010005cf010000cf010001cf030001cf010002cf010001cf0300
+02cf017d03cf010001cf010001cf010000cf030002cf030001cf010001cf
+010009cf030001cf010000cf010002cf010000cf010003cf004401bd0144
+08ff004401bd014401ff02cf000001cf010001cf000000cf010001cf0100
+00cf060000cf010005cf010000cf020000cf010001cf010000cf010002cf
+010000cf010001cf010001cf017d04cf000001cf010001cf000000cf0100
+01cf010000cf010001cf010000cf010000cf010009cf010001cf010000cf
+020000cf010000cf010000cf020003cf004401bd014408ff004401bd0144
+01ff02cf010000cf010000cf010000cf010001cf010000cf020001cf0300
+06cf010001cf010004cf010001cf010000cf010001cf020004cf017d04cf
+010000cf010000cf010000cf010001cf010000cf010001cf010000cf0300
+0acf010001cf010000cf010001cf010000cf010001cf010003cf004401bd
+014408ff004401bd014401ff02cf010000cf010000cf010000cf010001cf
+010000cf010002cf030006cf010001cf010001cf040001cf010000cf0100
+03cf020002cf017d04cf010000cf010000cf010000cf050000cf050000cf
+030003cf040001cf050000cf010001cf010000cf010001cf010003cf0044
+01bd014408ff004401bd014401ff03cf010001cf010001cf010001cf0100
+00cf010002cf010000cf010005cf010001cf010000cf010001cf010002cf
+020005cf020001cf017d05cf010001cf010001cf010004cf010004cf0100
+00cf010009cf010004cf010001cf010000cf010001cf010003cf004401bd
+014408ff004401bd014401ff03cf010001cf010001cf010001cf010000cf
+010002cf010001cf010004cf010000cf020000cf010001cf010002cf0200
+02cf010001cf010001cf017d05cf010001cf010001cf010001cf010000cf
+010001cf010000cf010001cf010008cf010001cf010000cf010001cf0100
+00cf010000cf020003cf004401bd014408ff004401bd014401ff03cf0100
+01cf010002cf030001cf010002cf010002cf010004cf010000cf010001cf
+020000cf010002cf010003cf030002cf017d05cf010001cf010002cf0300
+02cf030001cf010002cf010008cf030001cf010001cf010001cf010000cf
+010003cf004401bd014408ff004401bd014401ff33cf00000bcf017d42cf
+004401bd014408ff004401bd014401ff32cf01000bcf017d42cf004401bd
+014408ff004401bd014401ff31cf01000ccf017d42cf004401bd014408ff
+004401bd014401ff40cf017d42cf004401bd014408ff004401bd014401ff
+40cf017d42cf004401bd014408ff004401bd014401ff427d42cf004401bd
+014408ff004401bd014400ff437d42cf004401bd014408ff004401bd0144
+5eff294401bd014408ff004401bd004400bd5dff007d16bd004413bd0144
+08ff004403bd01ff5acf017d15bd014413bd014408ff004400bd024401ff
+5acf017d174400bd144408ff044401ff5acf017d2d440fff5acf017d3dff
+02cf010004cf010012cf010039cf017d3dff02cf010004cf010012cf0100
+39cf017d3dff02cf020002cf020001cf030001cf010000cf010002cf0100
+00cf010001cf030001cf010002cf01002acf017d3dff02cf020002cf0200
+00cf010001cf010000cf020000cf010000cf010000cf020000cf010001cf
+010000cf010002cf01002acf017d3dff02cf030000cf030000cf010001cf
+010000cf010001cf010000cf010001cf010004cf010001cf010000cf0100
+2bcf017d3dff02cf010000cf000000cf000000cf010000cf010001cf0100
+00cf010001cf010000cf010001cf010001cf040001cf010000cf01002bcf
+017d3dff02cf010000cf020000cf010000cf010001cf010000cf010001cf
+010000cf010001cf010000cf010001cf010002cf02002ccf017d3dff02cf
+010001cf000001cf010000cf010001cf010000cf010001cf010000cf0100
+00cf020000cf010001cf010002cf02002ccf017d3dff02cf010001cf0000
+01cf010001cf030001cf010001cf010001cf010000cf010001cf020000cf
+010002cf01002ccf017d3dff2bcf00002dcf017d3dff2acf01002dcf017d
+3dff29cf01002ecf017d3dff5acf017d3dff5acf017d3dff5acf017d3dff
+5acf017d3dff5acf017d3dff5acf017d3dff01cf070018cf010035cf017d
+3dff04cf01001bcf010035cf017d3dff04cf010002cf010001cf010001cf
+030002cf030002cf010000cf010001cf030001cf010002cf010026cf017d
+3dff04cf010002cf010001cf010000cf010001cf010000cf010001cf0100
+00cf010000cf020000cf010001cf010000cf010002cf010026cf017d3dff
+04cf010002cf010001cf010000cf010001cf010000cf020003cf010001cf
+010004cf010001cf010000cf010027cf017d3dff04cf010002cf010001cf
+010000cf050002cf020001cf010001cf010001cf040001cf010000cf0100
+27cf017d3dff04cf010002cf010001cf010000cf010007cf020000cf0100
+01cf010000cf010001cf010002cf020028cf017d3dff04cf010002cf0100
+00cf020000cf010001cf010000cf010001cf010000cf010000cf020000cf
+010001cf010002cf020028cf017d3dff04cf010003cf010000cf010001cf
+030002cf030002cf010000cf010001cf020000cf010002cf010028cf017d
+3dff2fcf000029cf017d3dff2ecf010029cf017d3dff2dcf01002acf017d
+3dff5acf017d3dff5acf017d3dff5acf017d3dff5acf017d3dff5acf017d
+3dff08cf487d08cf017d3dff07cf4aff07cf017d3dff5acf017d3dff5acf
+017d3dff5acf017d3dff5adb017d3dff00db589a005d017d1eff007d1dff
+00db589a005d017d01ff1bcf017d1dff00db589a005d017d01ff1bcf017d
+1dff00db009a0100019a0100019a01000a9a0100199a0100249a005d017d
+01ff05cf07b20dcf017d1dff00db009a0100019a0100019a01000a9a0100
+199a0100199a015d089a005d017d01ff04cf01b200cf00b200cf00b200cf
+00b200cf00b20ccf017d1dff00db009a0100019a0100019a0100009a0300
+029a0100009a0100009a0100009a0100029a0300029a0300029a0100009a
+0100019a0300019a0100029a01000a9a035d069a005d017d01ff03cf01b2
+00cf00b200cf00b200cf00b200cf00b200cf00b20bcf017d1dff00db019a
+0000019a0100019a0000009a0100019a0100009a0100009a0200009a0200
+009a0100009a0100019a0100009a0100019a0100009a0100009a0200009a
+0100019a0100009a0100029a01000a9a005d019a015d059a005d017d01ff
+02cf01b200cf00b206cf00b200cf00b20acf017d1dff00db019a0100009a
+0100009a0100009a0100019a0100009a0100019a0100009a0100019a0100
+009a0100019a0100009a0200039a0100019a0100049a0100019a0100009a
+01000b9a005d039a015d039a005d017d01ff01cf01b200cf00b200cf00b2
+06cf00b200cf00b209cf017d1dff00db019a0100009a0100009a0100009a
+0500009a0100019a0100009a0100019a0100009a0500029a0200019a0100
+019a0100019a0400019a0100009a01000b9a005d049a01db029a005d017d
+01ff01cf00b200cf00b200cf00b200cf00b206cf00b200cf00b208cf017d
+1dff00db029a0100019a0100019a0100049a0100019a0100009a0100019a
+0100009a0100079a0200009a0100019a0100009a0100019a0100029a0200
+0c9a005d039a01db039a005d017d01ff01cf01b202cf00b200cf00b205cf
+01b209cf017d1dff00db029a0100019a0100019a0100019a0100009a0100
+009a0200009a0100019a0100009a0100019a0100009a0100019a0100009a
+0100009a0200009a0100019a0100029a02000c9a005d019a01db059a005d
+017d01ff01cf00b200cf00b202cf00b200cf00b204cf00b200cf00b208cf
+017d1dff00db029a0100019a0100029a0300029a0100009a0100009a0100
+019a0100019a0300029a0300029a0100009a0100019a0200009a0100029a
+01000c9a005d02db069a005d017d01ff01cf01b204cf00b200cf00b203cf
+01b209cf017d1dff00db3e9a00000d9a005d00db089a005d017d01ff01cf
+00b200cf00b204cf00b200cf00b202cf00b200cf00b208cf017d1dff00db
+3d9a0100189a005d017d01ff01cf01b206cf00b200cf00b201cf01b209cf
+017d1dff00db3c9a0100199a005d017d01ff01cf00b200cf00b206cf00b2
+00cf02b200cf00b208cf017d1dff00db589a005d017d01ff02cf00b200cf
+00b206cf00b200cf00b200cf00b209cf017d1dff00db595d017d01ff03cf
+00b200cf00b205cf01b200cf00b20acf017d1dff5acf017d01ff04cf00b2
+00cf06b200cf00b20bcf017d1dff5acf017d01ff05cf00b200cf00b200cf
+00b200cf00b200cf00b20ccf017d1dff5acf017d01ff06cf00b200cf00b2
+00cf00b200cf00b20dcf017d1dff08cf487d08cf017d01ff1bcf017d1dff
+07cf4aff07cf017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf
+017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf017d01ff1bcf
+017d1dff5acf017d01ff01cf010003cf010011cf017d1dff5acf017d01ff
+01cf010003cf010011cf017d1dff5acf017d01ff02cf010001cf010001cf
+030002cf030005cf017d1dff01cf09001bcf010030cf017d01ff02cf0100
+01cf010000cf010001cf010000cf010001cf010004cf017d1dff04cf0100
+02cf01001bcf010030cf017d01ff03cf030001cf010001cf010000cf0200
+07cf017d1dff04cf010002cf010000cf010001cf010001cf010000cf0100
+00cf010000cf030002cf010000cf010001cf030001cf010002cf010021cf
+017d01ff04cf010002cf050002cf020005cf017d1dff04cf010002cf0200
+00cf010000cf010001cf010000cf060001cf010000cf010000cf020000cf
+010001cf010000cf010002cf010021cf017d01ff04cf010002cf010007cf
+020004cf017d1dff04cf010002cf010001cf010000cf010001cf010000cf
+020001cf020003cf010001cf010004cf010001cf010000cf010022cf017d
+01ff04cf010002cf010001cf010000cf010001cf010004cf017d1dff04cf
+010002cf010001cf010000cf010001cf010000cf010004cf020001cf0100
+01cf010001cf040001cf010000cf010022cf017d01ff04cf010003cf0300
+02cf030005cf017d1dff04cf010002cf010001cf010000cf010001cf0100
+00cf010005cf020000cf010001cf010000cf010001cf010002cf020023cf
+017d01ff1bcf017d1dff04cf010002cf010001cf010000cf010000cf0200
+00cf010002cf010001cf010000cf010000cf020000cf010001cf010002cf
+020023cf017d01ff1bcf017d1dff04cf010002cf010001cf010001cf0100
+00cf010000cf010003cf030002cf010000cf010001cf020000cf010002cf
+010023cf017d01ff1bcf017d1dff34cf000024cf017d01ff1bcf017d1dff
+33cf010024cf017d01ff1bcf017d1dff32cf010025cf017d01ff1bcf017d
+1dff5acf017d01ff1bcf017d1dff5acf017d01ff1bcf017d1dff5acf017d
+01ff1bcf017d1dff5acf017d01ff02cf010002cf010011cf017d1dff5acf
+017d01ff02cf020001cf010011cf017d1dff5acf017d01ff02cf020001cf
+010001cf03000bcf017d1dff02cf050004cf010004cf010043cf017d01ff
+02cf010000cf000000cf010000cf010001cf01000acf017d1dff02cf0100
+0fcf010043cf017d01ff02cf010000cf000000cf010000cf010001cf0100
+0acf017d1dff02cf010003cf010000cf030001cf010000cf010001cf0300
+01cf010002cf010034cf017d01ff02cf010001cf020000cf010001cf0100
+0acf017d1dff02cf010003cf060000cf010000cf020000cf010001cf0100
+00cf010002cf010034cf017d01ff02cf010001cf020000cf010001cf0100
+0acf017d1dff02cf040000cf020001cf010000cf010001cf010004cf0100
+01cf010000cf010035cf017d01ff02cf010002cf010000cf010001cf0100
+0acf017d1dff02cf010003cf010002cf010000cf010001cf010001cf0400
+01cf010000cf010035cf017d01ff02cf010002cf010001cf03000bcf017d
+1dff02cf010003cf010002cf010000cf010001cf010000cf010001cf0100
+02cf020036cf017d01ff1bcf017d1dff02cf010003cf010002cf010000cf
+010000cf020000cf010001cf010002cf020036cf017d01ff1bcf017d1dff
+02cf010003cf010002cf010001cf010000cf010001cf020000cf010002cf
+010036cf017d01ff1bcf017d1dff21cf000037cf017d01ff1bcf017d1dff
+20cf010037cf017d01ff1bcf017d1dff1fcf010038cf017d01ff1d7d1dff
+5acf017d00ff1e7d1dff5acf017d3dff5c7d3cff5d7dfefffeff04ff
+
+%
+% Run-length encoding savings =  76.2%
+%
+
+
+
+grestore
+showpage
+
+%%EndDocument
+ @endspecial 713 1182 a Fp(Figure)14 b(2.3:)j(A)d(simple)e(men)o(u)75
+1756 y Fa(\(define)17 b(l)i(`\(\("Work)e(days")408 1802
+y(\("Monday")75 b(,\(lambda)17 b(\(\))i(\(format)e(#t)i("Monday\\)o
+(n"\))o(\)\))408 1847 y(\("Tuesday")55 b(,\(lambda)17
+b(\(\))i(\(format)e(#t)i("Tuesday)o(\\n")o(\)\)\))408
+1893 y(\(""\))408 1939 y(\("Wednesday)o(")487 1984 y(\(\(command)d
+(:bitmap)h(error)h(:state)f(disabled\))507 2030 y(\("Yes")g(,\(lambda)f
+(\(\))j(\(format)e(#t)i("Wednesda)o(y)e(\(Yes\)\\n"\))o(\)\))507
+2076 y(\("No")37 b(,\(lambda)16 b(\(\))j(\(format)e(#t)i("Wednesda)o(y)
+e(\(No\))h(\\n"\)\)\)\)\))408 2121 y(\(""\))408 2167
+y(\("Thursday")35 b(,\(lambda)17 b(\(\))i(\(format)e(#t)i("Thursda)o
+(y\\n)o("\)\))o(\))408 2213 y(\("Friday")75 b(,\(lambda)17
+b(\(\))i(\(format)e(#t)i("Friday\\)o(n"\))o(\)\)\))291
+2258 y(\("Week-en)o(d")408 2304 y(\("Saturday")35 b(,\(lambda)17
+b(\(\))i(\(format)e(#t)i("Saturda)o(y\\n)o("\)\))o(\))408
+2349 y(\("Sunday")75 b(,\(lambda)17 b(\(\))i(\(format)e(#t)i("Sunday\\)
+o(n"\))o(\)\)\))o(\)\))75 2441 y(\(pack)f(\(make-men)o(ub)o(ar)e
+(*top-root*)g(l\)\))607 2574 y Fp(Figure)e(2.4:)j(Co)q(de)e(of)e(men)o
+(u)g(of)g(Figure2.3)935 2960 y(19)p eop
+%%Page: 20 20
+20 19 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)458
+b(2.2.)31 b(SIMPLE)14 b(WIDGETS)f(CLASSES)p 75 51 1763
+2 v 75 195 a Fj(2.2)66 b(Simple)24 b(widgets)e(classes)75
+318 y Ft(2.2.1)55 b(The)19 b Fr(Frame)d Ft(class)75 418
+y Fp(A)e(frame)f(is)h(a)g Fk(STklos)h Fp(simple)d(widget)i(whose)h
+(primary)d(purp)q(ose)k(is)e(to)g(act)g(as)g(a)g(spacer)h(or)f(con)o
+(tainer)h(for)75 468 y(complex)e(windo)o(w)g(la)o(y)o(outs.)k(A)d
+(frame)e(ob)r(ject)j(has)f(sev)o(eral)h(Tk-virtual)d(slots)i(whic)o(h)g
+(are)g(listed)g(here:)228 608 y Fn(bac)o(kground)311
+691 y Fp(See)h(section)g(1.2.2.)228 774 y Fn(b)q(order-width)311
+857 y Fp(See)g(section)g(1.2.2.)228 940 y Fn(cursor)311
+1023 y Fp(See)g(section)g(1.2.2.)228 1106 y Fn(heigh)o(t)311
+1189 y Fp(sp)q(eci\014es)k(the)f(desired)g(heigh)o(t)f(for)g(the)h
+(windo)o(w.)27 b(This)17 b(slot)g(is)g(only)g(used)h(if)e(the)i
+Fi(ge)n(ometry)311 1239 y Fp(slots)d(is)f(unsp)q(eci\014ed.)20
+b(If)14 b(this)g(pseudo-slot)h(is)f(less)h(than)f(or)g(equal)g(to)g
+(zero)h(\(and)g Fi(ge)n(ometry)f Fp(is)311 1289 y(not)g(sp)q
+(eci\014ed\))i(then)e(the)h(windo)o(w)e(will)f(not)i(request)h(an)o(y)f
+(size)g(at)g(all.)228 1372 y Fn(geometry)311 1455 y Fp(sp)q(eci\014es)
+21 b(the)f(desired)g(geometry)e(for)h(the)g(widget's)g(windo)o(w,)g(in)
+g(the)g(form)e Fi(width)p Fp(x)p Fi(height)p Fp(,)311
+1504 y(where)d Fi(width)f Fp(is)f(the)i(desired)g(width)e(of)g(the)i
+(windo)o(w)e(and)h Fi(height)f Fp(is)h(the)h(desired)g(heigh)o(t.)j
+(The)311 1554 y(units)f(for)f Fi(width)g Fp(and)h Fi(height)g
+Fp(dep)q(end)h(on)e(the)h(particular)g(widget.)23 b(F)m(or)15
+b(widgets)h(displa)o(ying)311 1604 y(text)g(the)h(units)e(are)h
+(usually)f(the)h(size)h(of)e(the)h(c)o(haracters)h(in)f(the)g(fon)o(t)f
+(b)q(eing)g(displa)o(y)o(ed;)h(for)311 1654 y(other)f(widgets)f(the)g
+(units)g(are)h(usually)e(pixels.)228 1737 y Fn(relief)311
+1820 y Fp(See)i(section)g(1.2.2.)228 1903 y Fn(width)311
+1986 y Fp(sp)q(eci\014es)f(the)e(desired)g(width)g(for)f(the)h(windo)o
+(w.)k(This)c(slot)f(is)g(only)g(used)h(if)f(the)h Fi(ge)n(ometry)f
+Fp(slots)311 2036 y(is)16 b(unsp)q(eci\014ed.)24 b(If)15
+b(this)h(pseudo-slot)f(is)h(less)g(than)f(or)h(equal)f(to)g(zero)i
+(\(and)e Fi(ge)n(ometry)g Fp(is)h(not)311 2086 y(sp)q(eci\014ed\))g
+(then)e(the)h(windo)o(w)e(will)f(not)i(request)i(an)o(y)d(size)i(at)e
+(all.)75 2195 y(F)m(urthermore,)j(the)g Fi(F)m(r)n(ame)g
+Fp(class)g(admits)e(a)i(sp)q(ecial)g(initarg)f Fm(:class)f
+Fp(whic)o(h)i(p)q(ermits)f(to)h(sp)q(ecify)h(the)f(new)75
+2244 y(widget)d(X11)h(resource)h(class)f(\(if)f(the)h
+Fm(:class)e Fp(is)i(not)f(passed)i(as)e(a)h(parameter)f(during)g(the)h
+Fm(make-instance)75 2294 y Fp(of)h(the)i(frame,)d(the)i(widget)g
+(resource)i(class)e(will)e(b)q(e)j("F)m(rame"\).)k(The)c(resource)g
+(class)g(of)e(a)g(widget)h(can)g(b)q(e)75 2344 y(sp)q(eci\014ed)f(only)
+f(at)f(initialization.)j(It)e(can)g(b)q(e)g(queried)h(b)o(y)e(the)i
+Fm(class)e Fp(reader)i(but)f(cannot)g(b)q(e)g(c)o(hanged.)75
+2417 y(F)m(urther)h(example)d(use)j(a)f(frame)e(to)i(group)g(three)h
+(lab)q(els)f(in)f(a)h(single)f(ob)r(ject.)19 b(Here,)c(the)f(t)o(w)o(o)
+75 2524 y Fm(\(setq)21 b(f)g(\(make-instance)e('Frame\)\))75
+2574 y(\(setq)i(l1)g(\(make-instance)e('Label)i(:parent)f(f)i(:text)e
+(")i(Label)f(1)g(")h(:relief)e(:raised)751 2624 y(:map)h('\(:position)e
+(:left\)\)\))75 2673 y(\(setq)i(l2)g(\(make-instance)e('Label)i
+(:parent)f(f)i(:text)e(")i(Label)f(2)g(")h(:relief)e(:raised)751
+2723 y(:map)h('\(:position)e(:left\)\)\))75 2773 y(\(setq)i(l3)g
+(\(make-instance)e('Label)i(:text)f(")i(Label)f(3)g(")h(:relief)e
+(:raised\)\))935 2960 y Fp(20)p eop
+%%Page: 21 21
+21 20 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)458
+b(2.2.)31 b(SIMPLE)14 b(WIDGETS)f(CLASSES)p 75 51 1763
+2 v 75 195 a Ft(2.2.2)55 b(The)19 b(lab)r(el)e(class)75
+295 y Fp(The)d Fi(L)n(ab)n(el)e Fp(class)i(de\014nes)h(widgets)e(whic)o
+(h)g(are)h(capable)f(to)g(displa)o(y)f(a)h(textual)g(string)g(or)g(a)g
+(bitmap.)j(A)d(lab)q(el)75 345 y(ob)r(ject)i(has)f(sev)o(eral)g
+(pseudo-slots)h(whic)o(h)f(are)g(listed)g(here:)228 412
+y Fn(anc)o(hor)311 495 y Fp(sp)q(eci\014es)j(ho)o(w)e(the)h
+(information)c(in)j(a)g(widget)g(\(e.g.)21 b(text)16
+b(or)f(a)g(bitmap\))e(is)i(to)g(b)q(e)h(displa)o(y)o(ed)311
+544 y(in)e(the)h(widget.)k(Must)c(b)q(e)g(one)g(of)f(the)h(v)n(alues)f
+Fi(:n)p Fp(,)g Fi(:ne)p Fp(,)g Fi(:e)p Fp(,)g Fi(:se)p
+Fp(,)g Fi(:s)p Fp(,)f Fi(:sw)p Fp(,)g Fi(:w)p Fp(,)h
+Fi(:nw)p Fp(,)f(or)i Fi(`:c)n(enter)p Fp(.)311 594 y(F)m(or)d(example,)
+e Fi(:nw)h Fp(means)g(displa)o(y)g(the)h(information)d(suc)o(h)k(that)f
+(its)f(top-left)h(corner)h(is)e(at)h(the)311 644 y(top-left)i(corner)h
+(of)e(the)h(widget.)228 727 y Fn(bac)o(kground)311 810
+y Fp(See)h(section)g(1.2.2.)228 893 y Fn(bitmap)311 976
+y Fp(sp)q(eci\014es)f(a)d(string)h(con)o(taining)e(the)i(\014le)g(name)
+e(of)h(the)i(bitmap)c(to)j(displa)o(y)e(in)i(the)g(widget.)17
+b(The)311 1026 y(exact)12 b(w)o(a)o(y)f(in)g(whic)o(h)g(the)h(bitmap)e
+(is)h(displa)o(y)o(ed)g(ma)o(y)f(b)q(e)i(a\013ected)h(b)o(y)e(other)h
+(slots)g(v)n(alues)f(suc)o(h)311 1076 y(as)17 b Fi(anchor)g
+Fp(or)g Fi(justify)p Fp(.)26 b(T)o(ypically)m(,)15 b(if)h(this)h(slot)f
+(is)h(non)f Fm(nil)g Fp(is)h(sp)q(eci\014ed)h(then)f(it)g(o)o(v)o
+(errides)311 1126 y(other)f(pseudo-slots)h(that)e(sp)q(ecify)h(a)g
+(textual)f(v)n(alue)g(to)h(displa)o(y)e(in)h(the)i(widget;)e(the)i
+Fi(bitmap)311 1175 y Fp(slot)d(ma)o(y)e(b)q(e)i(reset)i(to)e(an)f(empt)
+o(y)g(string)h(to)g(re-enable)g(a)g(text)h(displa)o(y)m(.)228
+1258 y Fn(b)q(order-width)311 1341 y Fp(See)g(section)g(1.2.2.)228
+1424 y Fn(cursor)311 1507 y Fp(See)g(section)g(1.2.2.)229
+1590 y Fn(fon)o(t)311 1674 y Fp(sp)q(eci\014es)h(the)e(fon)o(t)g(to)g
+(use)g(when)h(dra)o(wing)e(text)h(inside)g(the)h(widget.)228
+1757 y Fn(foreground)311 1840 y Fp(sp)q(eci\014es)h(the)e(normal)e
+(foreground)i(color)g(to)g(use)g(when)h(displa)o(ying)d(the)i(widget.)
+228 1923 y Fn(heigh)o(t)311 2006 y Fp(sp)q(eci\014es)19
+b(a)e(desired)h(heigh)o(t)f(for)f(the)i(lab)q(el.)26
+b(If)17 b(a)g(bitmap)e(is)i(b)q(eing)g(displa)o(y)o(ed)f(in)g(the)i
+(lab)q(el)311 2055 y(then)13 b(the)h(v)n(alue)e(is)g(in)g(screen)j
+(units;)d(for)h(text)g(it)f(is)g(in)g(lines)h(of)f(text.)18
+b(If)12 b(this)h(pseudo-slot)g(isn't)311 2105 y(sp)q(eci\014ed,)j(the)g
+(lab)q(el's)e(desired)i(heigh)o(t)f(is)g(computed)f(from)f(the)j(size)f
+(of)g(the)g(bitmap)e(or)i(text)311 2155 y(b)q(eing)f(displa)o(y)o(ed)f
+(in)h(it.)228 2238 y Fn(pad-x)311 2321 y Fp(sp)q(eci\014es)20
+b(a)e(non-negativ)o(e)g(v)n(alue)g(indicating)f(ho)o(w)h(m)o(uc)o(h)f
+(extra)i(space)h(to)e(request)i(for)e(the)311 2371 y(widget)12
+b(in)g(the)h(X-direction.)18 b(When)12 b(computing)f(ho)o(w)h(large)g
+(a)g(windo)o(w)f(it)h(needs,)i(the)f(widget)311 2421
+y(will)k(add)h(this)h(amoun)o(t)d(to)i(the)h(width)f(it)g(w)o(ould)g
+(normally)e(need)j(\(as)f(determined)h(b)o(y)f(the)311
+2471 y(width)12 b(of)f(the)h(things)g(displa)o(y)o(ed)f(in)g(the)h
+(widget\);)g(if)f(the)i(geometry)e(manager)f(can)i(satisfy)f(this)311
+2520 y(request,)16 b(the)g(widget)f(will)e(end)i(up)g(with)g(extra)g
+(in)o(ternal)g(space)g(to)g(the)h(left)e(and/or)h(righ)o(t)f(of)311
+2570 y(what)g(it)g(displa)o(ys)f(inside.)228 2653 y Fn(pad-y)935
+2960 y Fp(21)p eop
+%%Page: 22 22
+22 21 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)578
+b(2.3.)31 b(THE)14 b(MESSA)o(GE)g(CLASS)p 75 51 1763
+2 v 311 195 a Fp(sp)q(eci\014es)20 b(a)e(non-negativ)o(e)g(v)n(alue)g
+(indicating)f(ho)o(w)h(m)o(uc)o(h)f(extra)i(space)h(to)e(request)i(for)
+e(the)311 245 y(widget)12 b(in)g(the)h(Y-direction.)18
+b(When)12 b(computing)f(ho)o(w)h(large)g(a)g(windo)o(w)f(it)h(needs,)i
+(the)f(widget)311 295 y(will)k(add)g(this)h(amoun)o(t)e(to)h(the)i
+(heigh)o(t)e(it)h(w)o(ould)f(normally)e(need)k(\(as)f(determined)f(b)o
+(y)h(the)311 345 y(heigh)o(t)f(of)g(the)g(things)g(displa)o(y)o(ed)g
+(in)f(the)i(widget\);)g(if)f(the)g(geometry)g(manager)e(can)j(satisfy)
+311 394 y(this)f(request,)i(the)f(widget)f(will)e(end)j(up)f(with)f
+(extra)i(in)o(ternal)e(space)i(ab)q(o)o(v)o(e)f(and/or)g(b)q(elo)o(w)
+311 444 y(what)d(it)g(displa)o(ys)f(inside.)228 527 y
+Fn(relief)311 610 y Fp(See)i(section)g(1.2.2.)228 693
+y Fn(text)311 776 y Fp(sp)q(eci\014es)j(a)d(string)h(to)g(b)q(e)g
+(displa)o(y)o(ed)f(inside)h(the)g(widget.)23 b(The)17
+b(w)o(a)o(y)e(in)g(whic)o(h)g(the)i(string)f(is)311 826
+y(displa)o(y)o(ed)c(dep)q(ends)i(on)e(the)h(particular)f(widget)g(and)g
+(ma)o(y)f(b)q(e)i(determined)f(b)o(y)g(other)h(pseudo-)311
+876 y(slots,)h(suc)o(h)g(as)g Fi(anchor)h Fp(or)f Fi(justify)p
+Fp(.)228 959 y Fn(text-v)m(ariable)311 1042 y Fp(sp)q(eci\014es)21
+b(the)e(name)f(of)g(a)h(v)n(ariable.)31 b(The)19 b(v)n(alue)g(of)f(the)
+h(v)n(ariable)f(is)g(a)h(text)g(string)g(to)g(b)q(e)311
+1092 y(displa)o(y)o(ed)e(inside)g(the)i(widget;)f(if)f(the)h(v)n
+(ariable)e(v)n(alue)h(c)o(hanges)h(then)g(the)h(widget)e(will)f(au-)311
+1142 y(tomatically)f(up)q(date)j(itself)f(to)h(re\015ect)h(the)f(new)g
+(v)n(alue.)28 b(The)18 b(w)o(a)o(y)f(in)g(whic)o(h)h(the)g(string)g(is)
+311 1191 y(displa)o(y)o(ed)13 b(in)f(the)i(widget)f(dep)q(ends)h(on)f
+(the)h(particular)e(widget)h(and)g(ma)o(y)e(b)q(e)j(determined)f(b)o(y)
+311 1241 y(other)i(pseudo-slots,)f(suc)o(h)h(as)e Fi(anchor)i
+Fp(or)f Fi(justify)p Fp(.)j(See)e(b)q(elo)o(w)f(ho)o(w)f(to)h(use)g
+(this)g(mec)o(hanism.)228 1324 y Fn(width)311 1407 y
+Fp(Sp)q(eci\014es)19 b(a)e(desired)h(width)f(for)f(the)i(lab)q(el.)27
+b(If)17 b(a)f(bitmap)f(is)i(b)q(eing)g(displa)o(y)o(ed)g(in)f(the)i
+(lab)q(el)311 1457 y(then)d(the)g(v)n(alue)f(is)g(in)g(screen)i(units;)
+f(for)f(text)h(it)e(is)i(in)f(c)o(haracters.)21 b(If)14
+b(this)g(pseudo-slot)h(isn't)311 1507 y(sp)q(eci\014ed,)i(the)f(lab)q
+(el's)f(desired)i(width)e(is)g(computed)g(from)f(the)i(size)g(of)f(the)
+h(bitmap)d(or)j(text)311 1557 y(b)q(eing)e(displa)o(y)o(ed)f(in)h(it.)
+75 1718 y Fj(2.3)66 b(The)22 b(Message)e(class)75 1832
+y Fp(The)11 b Fi(Message)h Fp(class)g(de\014nes)g(widgets)f(that)g
+(displa)o(y)f(a)h(textual)g(string.)17 b(A)11 b Fi(message)p
+Fp(widget)h(has)f(three)h(sp)q(ecial)75 1882 y(features.)24
+b(First,)16 b(it)f(breaks)h(up)g(its)f(string)h(in)o(to)f(lines)g(in)g
+(order)i(to)e(pro)q(duce)i(a)e(giv)o(en)g(asp)q(ect)i(ratio)e(for)g
+(the)75 1932 y(windo)o(w.)25 b(The)17 b(line)f(breaks)h(are)g(c)o
+(hosen)g(at)f(w)o(ord)h(b)q(oundaries)g(wherev)o(er)h(p)q(ossible)e
+(\(if)g(not)h(ev)o(en)g(a)f(single)75 1982 y(w)o(ord)c(w)o(ould)g
+(\014t)h(on)f(a)h(line,)f(then)h(the)g(w)o(ord)f(will)g(b)q(e)h(split)f
+(across)h(lines\).)18 b(Newline)13 b(c)o(haracters)h(in)e(the)h(string)
+75 2031 y(will)f(force)j(line)e(breaks;)h(they)h(can)f(b)q(e)g(used,)h
+(for)e(example,)f(to)i(lea)o(v)o(e)g(blank)f(lines)h(in)f(the)i(displa)
+o(y)m(.)75 2105 y(The)g(second)h(feature)g(of)e(a)h(message)f(widget)h
+(is)f(justi\014cation.)21 b(The)15 b(text)g(ma)o(y)e(b)q(e)j(displa)o
+(y)o(ed)e(left-justi\014ed,)75 2155 y(cen)o(tered)i(on)e(a)f(line-b)o
+(y-line)g(basis,)g(or)h(righ)o(t-justi\014ed.)75 2228
+y(The)21 b(third)f(feature)i(of)d(a)i(message)f(widget)g(is)g(that)h
+(it)f(handles)h(con)o(trol)f(c)o(haracters)i(and)f(non-prin)o(ting)75
+2278 y(c)o(haracters)16 b(sp)q(ecially)m(.)j(T)m(ab)13
+b(c)o(haracters)k(are)d(replaced)i(with)e(enough)g(blank)g(space)h(to)f
+(line)g(up)h(on)f(the)h(next)75 2328 y(8-c)o(haracter)e(b)q(oundary)m
+(.)k(Newlines)12 b(cause)h(line)e(breaks.)19 b(Other)13
+b(con)o(trol)e(c)o(haracters)j(\(ASCI)q(I)e(co)q(de)h(less)f(than)75
+2377 y(hexadecimal)17 b(co)q(de)j(20\))e(and)h(c)o(haracters)h(not)f
+(de\014ned)h(in)e(the)i(fon)o(t)e(are)h(displa)o(y)o(ed)f(as)h(a)f
+(four-c)o(haracter)75 2427 y(sequence)75 2477 y(x)p Fi(hh)c
+Fp(where)h Fi(hh)f Fp(is)g(the)h(t)o(w)o(o-digit)d(hexadecimal)g(n)o
+(um)o(b)q(er)i(corresp)q(onding)g(to)g(the)h(c)o(haracter.)75
+2551 y(A)f(message)g(ob)r(ject)g(has)g(sev)o(eral)h(pseudo-slots)f
+(whic)o(h)g(are)g(listed)g(here:)228 2617 y Fn(anc)o(hor)311
+2700 y Fp(\(see)h(section)g(2.2.2\))228 2783 y Fn(asp)q(ect)935
+2960 y Fp(22)p eop
+%%Page: 23 23
+23 22 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)578
+b(2.3.)31 b(THE)14 b(MESSA)o(GE)g(CLASS)p 75 51 1763
+2 v 311 195 a Fp(sp)q(eci\014es)f(a)e(non-negativ)o(e)g(in)o(teger)h(v)
+n(alue)f(indicating)f(desired)i(asp)q(ect)h(ratio)d(for)h(the)h(text.)
+18 b(The)311 245 y(asp)q(ect)e(ratio)e(is)g(sp)q(eci\014ed)h(as)g
+(100*width/heigh)o(t.)i(100)d(means)f(the)i(text)g(should)f(b)q(e)h(as)
+f(wide)311 295 y(as)i(it)g(is)g(tall,)f(200)g(means)h(the)g(text)h
+(should)f(b)q(e)h(t)o(wice)f(as)g(wide)g(as)g(it)g(is)g(tall,)f(50)h
+(means)f(the)311 345 y(text)h(should)f(b)q(e)i(t)o(wice)e(as)h(tall)e
+(as)i(it)f(is)g(wide,)g(and)h(so)f(on.)23 b(Used)16 b(to)f(c)o(ho)q
+(ose)h(line)f(length)h(for)311 394 y(text)f(if)e Fi(width)g
+Fp(pseudo-slot)h(isn't)g(sp)q(eci\014ed.)228 476 y Fn(bac)o(kground)311
+557 y Fp(\(see)h(section)g(1.2.2\))228 638 y Fn(b)q(order-width)311
+719 y Fp(\(see)g(section)g(1.2.2\))228 800 y Fn(cursor)311
+881 y Fp(\(see)g(section)g(1.2.2\))229 962 y Fn(fon)o(t)311
+1044 y Fp(\(see)g(section)g(2.2.2\))228 1125 y Fn(justify)311
+1206 y Fp(sp)q(eci\014es)h(ho)o(w)d(to)h(justify)f(lines)g(of)g(text.)
+19 b(Must)14 b(b)q(e)g(one)g(of)f Fi(:left)p Fp(,)f Fi(:c)n(enter)p
+Fp(,)h(or)h Fi(:right)p Fp(.)j(Defaults)311 1256 y(to)g
+Fi(left)p Fp(.)27 b(This)17 b(pseudo-slot)g(w)o(orks)g(together)h(with)
+f(the)g Fi(anchor)p Fp(,)h Fi(asp)n(e)n(ct)p Fp(,)g Fi(p)n(adX)p
+Fp(,)f Fi(p)n(adY)p Fp(,)g(and)311 1305 y Fi(width)10
+b Fp(pseudo-slots)h(to)f(pro)o(vide)g(a)g(v)n(ariet)o(y)g(of)f
+(arrangemen)o(ts)h(of)g(the)h(text)f(within)g(the)h(windo)o(w.)311
+1355 y(The)16 b Fi(asp)n(e)n(ct)g Fp(and)f Fi(width)g
+Fp(pseudo-slots)i(determine)e(the)i(amoun)o(t)c(of)i(screen)j(space)f
+(needed)g(to)311 1405 y(displa)o(y)g(the)i(text.)32 b(The)19
+b Fi(anchor)p Fp(,)g Fi(p)n(adX)p Fp(,)f(and)g Fi(p)n(adY)h
+Fp(pseudo-slots)g(determine)f(where)h(this)311 1455 y(rectangular)13
+b(area)g(is)g(displa)o(y)o(ed)f(within)g(the)i(widget's)e(windo)o(w,)g
+(and)h(the)g Fi(justify)f Fp(pseudo-slot)311 1505 y(determines)k(ho)o
+(w)f(eac)o(h)h(line)f(is)g(displa)o(y)o(ed)g(within)g(that)h
+(rectangular)g(region.)22 b(F)m(or)15 b(example,)311
+1555 y(supp)q(ose)g Fi(anchor)f Fp(is)f Fi(:e)h Fp(and)f
+Fi(justify)g Fp(is)g Fi(:left)p Fp(,)f(and)h(that)h(the)g(message)f
+(windo)o(w)g(is)g(m)o(uc)o(h)f(larger)311 1604 y(than)18
+b(needed)g(for)g(the)g(text.)29 b(The)18 b(text)g(will)e(displa)o(y)o
+(ed)g(so)i(that)f(the)h(left)f(edges)i(of)e(all)f(the)311
+1654 y(lines)e(line)f(up)h(and)g(the)g(righ)o(t)f(edge)i(of)e(the)i
+(longest)e(line)h(is)f Fi(p)n(ad-x)i Fp(from)d(the)i(righ)o(t)f(side)i
+(of)e(the)311 1704 y(windo)o(w;)g(the)h(en)o(tire)h(text)f(blo)q(c)o(k)
+g(will)e(b)q(e)j(cen)o(tered)h(in)d(the)i(v)o(ertical)e(span)i(of)e
+(the)h(windo)o(w.)228 1785 y Fn(pad-x)311 1866 y Fp(\(see)h(section)g
+(2.2.2\))228 1947 y Fn(pad-y)311 2029 y Fp(\(see)g(section)g(2.2.2\))
+228 2110 y Fn(relief)311 2191 y Fp(\(see)g(section)g(1.2.2\))228
+2272 y Fn(text)311 2353 y Fp(\(see)g(section)g(2.2.2\))228
+2434 y Fn(text-v)m(ariable)311 2515 y Fp(\(see)g(section)g(2.2.2\))228
+2597 y Fn(width)311 2678 y Fp(sp)q(eci\014es)k(the)f(length)g(of)e
+(lines)i(in)f(the)h(windo)o(w.)27 b(If)17 b(this)g(pseudo-slot)h(has)g
+(a)f(v)n(alue)f(greater)311 2728 y(than)c(zero)g(then)g(the)g
+Fi(asp)n(e)n(ct)g Fp(pseudo-slot)g(is)f(ignored)h(and)f(the)h
+Fi(width)f Fp(pseudo-slot)h(determines)311 2777 y(the)17
+b(line)f(length.)25 b(If)15 b(this)i(pseudo-slot)f(has)g(a)g(v)n(alue)g
+(less)h(than)f(or)g(equal)g(to)g(zero,)h(then)g(the)311
+2827 y Fi(asp)n(e)n(ct)d Fp(pseudo-slot)g(determines)h(the)f(line)g
+(length.)935 2960 y(23)p eop
+%%Page: 24 24
+24 23 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)598
+b(2.4.)30 b(THE)15 b(BUTTON)f(CLASS)p 75 51 1763 2 v
+75 195 a Fj(2.4)66 b(The)22 b(Button)h(class)75 310 y
+Fp(The)13 b Fi(Button)g Fp(class)f(de\014nes)i(widgets)e(that)h(displa)
+o(y)e(a)h(\\reactiv)o(e")g(textual)h(string)f(or)g(bitmap.)k(It)c(can)g
+(displa)o(y)75 359 y(itself)g(in)f(either)i(of)f(three)h(di\013eren)o
+(t)g(w)o(a)o(ys,)f(according)g(to)g(the)h Fi(state)f
+Fp(pseudo-slot;)g(it)g(can)g(b)q(e)h(made)e(to)h(app)q(ear)75
+409 y(raised,)k(sunk)o(en,)g(or)g(\015at;)g(and)g(it)f(can)h(b)q(e)g
+(made)f(to)g(\015ash.)24 b(When)16 b(a)f(user)i(in)o(v)o(ok)o(es)e(the)
+h(button)g(\(defaultly)m(,)75 459 y(b)o(y)e(pressing)h(mouse)e(button)h
+(1)g(with)g(the)h(cursor)g(o)o(v)o(er)f(the)h(button\),)f(then)h(the)f
+(command)e(sp)q(eci\014ed)j(in)f(the)75 509 y Fi(c)n(ommand)e
+Fp(pseudo-slot)f(is)f(in)o(v)o(ok)o(ed.)17 b(Sev)o(eral)11
+b(metho)q(ds)f(are)h(also)f(de\014ned)i(for)e(buttons.)18
+b(They)11 b(are)g(presen)o(ted)75 559 y(at)j(end)g(of)f(c)o(hapter.)75
+632 y(A)h(button)g(ob)r(ject)h(has)f(sev)o(eral)g(pseudo-slots)h(whic)o
+(h)f(are)g(listed)g(here:)228 771 y Fn(activ)o(e-bac)o(kground)311
+853 y Fp(sp)q(eci\014es)e(bac)o(kground)e(color)f(to)h(use)g(when)h
+(dra)o(wing)d(activ)o(e)i(elemen)o(ts.)17 b(An)10 b(elemen)o(t)f(\(a)h
+(widget)311 903 y(or)16 b(p)q(ortion)g(of)f(a)h(widget\))g(is)g(activ)o
+(e)g(if)f(the)i(mouse)e(cursor)i(is)f(p)q(ositioned)g(o)o(v)o(er)g(the)
+h(elemen)o(t)311 953 y(and)d(pressing)h(a)e(mouse)g(button)h(will)f
+(cause)i(some)e(action)g(to)h(o)q(ccur.)228 1034 y Fn(activ)o
+(e-foreground)311 1116 y Fp(sp)q(eci\014es)h(foreground)f(color)e(to)i
+(use)g(when)f(dra)o(wing)g(activ)o(e)g(elemen)o(ts.)18
+b(See)c(ab)q(o)o(v)o(e)f(for)f(de\014ni-)311 1166 y(tion)i(of)f(activ)o
+(e)h(elemen)o(ts.)228 1247 y Fn(anc)o(hor)311 1329 y
+Fp(\(see)h(section)g(2.2.2\))228 1411 y Fn(bac)o(kground)311
+1492 y Fp(\(see)g(section)g(1.2.2\))228 1574 y Fn(bitmap)311
+1656 y Fp(\(see)g(section)g(2.2.2\))228 1738 y Fn(b)q(order-width)311
+1819 y Fp(\(see)g(section)g(1.2.2\))228 1901 y Fn(command)311
+1983 y Fp(sp)q(eci\014es)e(a)e(command)d(to)i(asso)q(ciate)i(with)e
+(the)i(button.)17 b(This)11 b(command)d(is)j(t)o(ypically)e(in)o(v)o
+(ok)o(ed)311 2032 y(when)15 b(mouse)e(button)h(1)f(is)h(released)h(o)o
+(v)o(er)f(the)h(button)f(windo)o(w.)228 2114 y Fn(cursor)311
+2196 y Fp(\(see)h(section)g(1.2.2\))228 2277 y Fn(disabled-for)o(egrou)
+o(nd)311 2359 y Fp(sp)q(eci\014es)g(foreground)d(color)g(to)h(use)g
+(when)g(dra)o(wing)e(a)i(disabled)f(elemen)o(t.)17 b(If)12
+b(the)h(pseudo-slot)311 2409 y(is)g(sp)q(eci\014ed)h(as)f(an)f(empt)o
+(y)g(string)h(\(whic)o(h)g(is)f(t)o(ypically)f(the)j(case)f(on)g(mono)q
+(c)o(hrome)d(displa)o(ys\),)311 2459 y(disabled)k(elemen)o(ts)f(are)h
+(dra)o(wn)g(with)g(the)g(normal)e(foreground)h(color)h(but)g(they)g
+(are)g(dimmed)311 2508 y(b)o(y)g(dra)o(wing)f(them)g(with)h(a)f
+(stippled)h(\014ll)f(pattern.)229 2590 y Fn(fon)o(t)311
+2672 y Fp(\(see)i(section)g(2.2.2\))228 2754 y Fn(foreground)311
+2835 y Fp(\(see)g(section)g(2.2.2\))935 2960 y(24)p eop
+%%Page: 25 25
+25 24 bop 75 35 a Fl(CHAPTER)14 b(2.)32 b(BASIC)14 b(WIDGETS)371
+b(2.5.)31 b(FUNCTIONS)15 b(OF)f(THIS)g(CHAPTER)p 75 51
+1763 2 v 228 195 a Fn(heigh)o(t)311 278 y Fp(sp)q(eci\014es)h(a)d
+(desired)i(heigh)o(t)e(for)g(the)h(button.)18 b(If)12
+b(a)h(bitmap)d(is)j(b)q(eing)f(displa)o(y)o(ed)g(in)g(the)h(button)311
+328 y(then)g(the)h(v)n(alue)e(is)g(in)g(screen)j(units;)d(for)h(text)g
+(it)f(is)g(in)g(lines)h(of)f(text.)18 b(If)12 b(this)h(pseudo-slot)g
+(isn't)311 378 y(sp)q(eci\014ed,)h(the)f(button's)f(desired)i(heigh)o
+(t)e(is)g(computed)g(from)e(the)j(size)g(of)f(the)h(bitmap)e(or)h(text)
+311 428 y(b)q(eing)i(displa)o(y)o(ed)f(in)h(it.)228 511
+y Fn(pad-x)311 594 y Fp(\(see)h(section)g(2.2.2\))228
+677 y Fn(pad-y)311 760 y Fp(\(see)g(section)g(2.2.2\))228
+843 y Fn(relief)311 926 y Fp(\(see)g(section)g(1.2.2\))228
+1009 y Fn(state)311 1092 y Fp(sp)q(eci\014es)h(one)d(of)g(three)i
+(states)g(for)e(the)h(button:)19 b Fi(:normal)p Fp(,)12
+b Fi(:active)p Fp(,)h(or)h Fi(`:disable)n(d)p Fp(.)j(In)d(normal)311
+1142 y(state)h(the)f(button)f(is)h(displa)o(y)o(ed)f(using)g(the)h
+Fi(for)n(e)n(gr)n(ound)g Fp(and)f Fi(b)n(ackgr)n(ound)h
+Fp(pseudo-slots.)19 b(The)311 1191 y(activ)o(e)13 b(state)h(is)g(t)o
+(ypically)d(used)j(when)g(the)g(p)q(oin)o(ter)f(is)g(o)o(v)o(er)h(the)f
+(button.)18 b(In)c(activ)o(e)f(state)h(the)311 1241 y(button)k(is)f
+(displa)o(y)o(ed)f(using)h(the)h Fi(activeF)m(or)n(e)n(gr)n(ound)f
+Fp(and)g Fi(activeBackgr)n(ound)h Fp(pseudo-slots.)311
+1291 y(Disabled)d(state)h(means)e(that)i(the)g(button)f(is)g
+(insensitiv)o(e:)21 b(it)15 b(do)q(esn't)h(activ)n(ate)f(and)g(do)q
+(esn't)311 1341 y(resp)q(ond)d(to)e(mouse)f(button)h(presses.)19
+b(In)10 b(this)h(state)g(the)f Fi(disable)n(dF)m(or)n(e)n(gr)n(ound)h
+Fp(and)f Fi(b)n(ackgr)n(ound)311 1391 y Fp(pseudo-slots)15
+b(determine)f(ho)o(w)f(the)i(button)f(is)f(displa)o(y)o(ed.)228
+1474 y Fn(text)311 1557 y Fp(\(see)i(section)g(2.2.2\))228
+1640 y Fn(text-v)m(ariable)311 1723 y Fp(\(see)g(section)g(2.2.2\))228
+1806 y Fn(width)311 1889 y Fp(Sp)q(eci\014es)f(a)f(desired)h(width)e
+(for)g(the)h(button.)18 b(If)13 b(a)f(bitmap)f(is)h(b)q(eing)h(displa)o
+(y)o(ed)f(in)g(the)h(button)311 1939 y(then)21 b(the)g(v)n(alue)f(is)g
+(in)g(screen)j(units;for)c(text)i(it)f(is)h(in)e(c)o(haracters.)40
+b(If)20 b(this)g(option)g(isn't)311 1988 y(sp)q(eci\014ed,)14
+b(the)g(button's)f(desired)h(width)f(is)f(computed)h(from)e(the)i(size)
+h(of)e(the)i(bitmap)d(or)i(text)311 2038 y(b)q(eing)h(displa)o(y)o(ed)f
+(in)h(it.)75 2147 y Fi(Example)g Fp(The)h(follo)o(wing)c(example)i(sho)
+o(w)g(a)h(simple)e(use)j(of)e(buttons.)179 2254 y Fm(\(setq)21
+b(b1)g(\(make-instance)e('Button)h(:text)h("Yes")876
+2304 y(:command)f('\(format)g(t)i("You)f(said)g(Yes"\)\)\))179
+2353 y(\(setq)g(b2)g(\(make-instance)e('Button)h(:text)h("No")876
+2403 y(:command)f('\(format)g(t)i("You)f(said)g(No"\)\)\))179
+2453 y(\(event-loop\))75 2614 y Fj(2.5)66 b(F)-6 b(unctions)24
+b(of)e(this)h(c)n(hapter)935 2960 y Fp(25)p eop
+%%Page: 26 26
+26 25 bop 75 530 a Fu(Chapter)31 b(3)75 761 y Fo(Simple)37
+b(widget)i(metho)s(ds)75 1026 y Fj(3.1)66 b(pac)n(k)75
+1165 y(3.2)g(raise)75 1305 y(3.3)g(lo)n(w)n(er)935 2960
+y Fp(26)p eop
+%%Page: 27 27
+27 26 bop 75 530 a Fu(Chapter)31 b(4)75 761 y Fo(The)38
+b(Can)m(v)-6 b(as)39 b(widget)75 1026 y Fj(4.1)66 b(The)22
+b(<Can)n(v)l(as>)h(class)75 1165 y(4.2)66 b(The)22 b(<Can)n(v)l
+(as-item>)i(class)75 1288 y Ft(4.2.1)55 b(<Rectangle>)18
+b(class)75 1396 y(4.2.2)55 b(<Ov)m(al>)19 b(class)75
+1497 y Fp(......)75 1547 y(......)75 1596 y(......)75
+1757 y Fj(4.3)66 b(Grouping)24 b(can)n(v)l(as)e(item)h(ob)t(jects)75
+1872 y Fp(.)6 b(.)h(.)935 2960 y(27)p eop
+%%Page: 28 28
+28 27 bop 75 530 a Fu(Chapter)31 b(5)75 761 y Fo(The)38
+b(T)-10 b(ext)39 b(widget)75 1026 y Fj(5.1)66 b(The)22
+b(<T)-6 b(ext>)24 b(class)75 1165 y(5.2)66 b(The)22 b(<T)-6
+b(ext-tag>)23 b(class)75 1305 y(5.3)66 b(The)22 b(<T)-6
+b(ext-mark>)935 2960 y Fp(28)p eop
+%%Page: 29 29
+29 28 bop 75 530 a Fu(Chapter)31 b(6)75 761 y Fo(Comp)s(osite)38
+b(widgets)75 1026 y Fj(6.1)66 b(Standard)24 b(comp)r(osite)e(widgets)75
+1148 y Ft(6.1.1)55 b(Lab)r(eled)17 b(En)n(try)75 1257
+y(6.1.2)55 b(Default)18 b(button)75 1366 y(6.1.3)55 b(Choice)19
+b(button)75 1474 y(6.1.4)55 b(P)n(aned)20 b(windo)n(w)75
+1583 y(6.1.5)55 b(Scro)r(ol)18 b(Listb)r(o)n(x)75 1691
+y(6.1.6)55 b(Scroll)18 b(T)-5 b(ext)75 1800 y(6.1.7)55
+b(Scroll)18 b(Can)n(v)m(as)75 1908 y(6.1.8)55 b(File)18
+b(b)r(o)n(x)75 2033 y Fj(6.2)66 b(W)-6 b(riting)25 b(comp)r(osite)d
+(widgets)935 2960 y Fp(29)p eop
+%%Page: 30 30
+30 29 bop 75 433 a Fo(Index)75 640 y Fp(*top-ro)q(ot*,)13
+b(3,)g(6)75 690 y(<Destro)o(y)o(ed-ob)r(ject>,)h(6)75
+740 y(<Tk-can)o(v)n(as-item>)d(class,)j(5)75 790 y(<Tk-widget>)f
+(class,)g(5)75 881 y(accessor,)i(4)75 931 y(activ)o(e-bac)o(kground,)e
+(23)75 981 y(activ)o(e-foreground,)g(23)75 1031 y(anc)o(hor,)h(20,)e
+(21,)h(23)75 1080 y(asp)q(ect,)i(21)75 1172 y(bac)o(kground,)e(6,)g
+(19,)g(20,)g(22,)g(23)75 1222 y(bitmap,)f(20,)g(23)75
+1271 y(b)q(order-width,)i(6,)f(19,)g(20,)g(22,)g(23)75
+1363 y(command,)e(23)75 1413 y(cursor,)k(6,)e(19,)g(20,)f(22,)h(23)75
+1504 y(destro)o(y)m(,)h(8)75 1554 y(disabled-foreground,)f(23)75
+1645 y(Eid)h(slot,)f(4,)g(5)75 1736 y(fon)o(t,)g(20,)g(22,)g(23)75
+1786 y(foreground,)g(20,)g(23)75 1877 y(geometry)m(,)f(19)75
+1927 y(geometry)h(manager,)f(3)75 2019 y(heigh)o(t,)h(19,)g(20,)g(24)75
+2110 y(Id)h(slot,)f(4,)g(5)75 2160 y(initialization)e(k)o(eyw)o(ord,)j
+(4)75 2251 y(justify)m(,)e(22)75 2342 y(listb)q(o)o(x)h(insert,)h(15)75
+2434 y(mak)o(e-men)o(ubar,)d(17)75 2525 y(pac)o(k,)i(5,)h(9)75
+2575 y(pac)o(k)o(er,)g(3,)f(15)75 2625 y(pad-x,)g(20,)g(22,)g(24)75
+2674 y(pad-y)m(,)g(20,)f(22,)h(24)75 2724 y(paren)o(t)h(slot,)g(4,)f(5)
+75 2774 y(place,)h(12)75 2824 y(placer,)g(3)1029 640
+y(relief,)f(6,)g(19,)g(21,)g(22,)g(24)1029 690 y(ro)q(ot)h(windo)o(w,)e
+(3)1029 782 y(state,)i(24)1029 873 y(text,)g(21,)f(22,)g(24)1029
+923 y(text-v)n(ariable,)g(21,)g(22,)f(24)1029 1014 y(unpac)o(k,)h(6,)h
+(12)1029 1105 y(v)n(alue,)f(16)1029 1197 y(width,)g(19,)g(21,)g(22,)g
+(24)935 2960 y(30)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/STklos+Tk/STklos+Tk.tex b/Doc/STklos+Tk/STklos+Tk.tex
new file mode 100644
index 0000000..4c66f8a
--- /dev/null
+++ b/Doc/STklos+Tk/STklos+Tk.tex
@@ -0,0 +1,141 @@
+%
+% STklos + Tk  Documentation
+%
+%           Author: Erick Gallesio [eg@kaolin.unice.fr]
+%    Creation date:  4-Nov-1992 15:37
+% Last file update:  5-Jun-1995 14:04
+
+\documentclass[10pt]{report}
+\usepackage{a4wide}
+\usepackage{alltt}
+\usepackage[dvips]{epsfig}
+\usepackage{fancyheadings}
+\usepackage{fancybox}
+
+\pagestyle{fancyplain}
+\makeindex
+\parindent0pt
+\parskip2mm
+\begin{document}
+
+%
+% Commands
+% 
+
+%%%% STklos
+\newcommand{\stk}{{\sc STk}}
+\newcommand{\stklos}{{\sc STklos}}
+\newcommand{\Indextt}[1]{{\tt{#1}}\index{#1}}
+\newcommand{\Index}[1]{{#1}\index{#1}}
+
+%%%% schemetitle
+%\newcommand{\schemetitle}[2]{\vbox{\vskip0.5cm\hrule\vskip10pt\noindent
+%{\tt\LARGE{#1}\index{#1}}\hfill{\em{#2}}\vskip10pt\hrule}\penalty10000}
+
+\newcommand{\schemetitle}[2]{%
+\begin{center}
+\vskip2mm
+\Ovalbox{\parbox{0.95\textwidth}{%
+\vskip1mm~~{\tt\LARGE{#1}\index{#1}}\hfill{\tt{#2}}~~\vskip1mm}}
+\vskip2mm
+\end{center}}
+
+
+%%%% ITEM
+\newcommand{\ITEM}[1]{\item[{\bf{#1}}]\index{#1}\item[]}
+
+%
+% Environments
+%
+%\newenvironment{schemedoc}[1]{\vskip3mm\noindent{\em #1}\samepage
+%\begin{list} {} {\setlength {\rightmargin}{0cm}\setlength {\leftmargin}
+%{1cm}\setlength {\topsep} {0cm}\setlength {\partopsep} {0cm}
+%\setlength {\parskip} {0cm}\item}}{\end{list}}
+\newenvironment{schemedoc}[1]{\vskip0mm\noindent{\em #1}
+\begin{list} {} {\setlength {\rightmargin}{0cm}\setlength {\leftmargin}
+{1cm}\setlength {\topsep} {0cm}\setlength {\partopsep} {0cm}
+\setlength {\parskip} {0cm}\item}}{\end{list}}
+
+%%%% ip
+\newenvironment{ip}{\noindent
+\begin{list} {} {\setlength {\rightmargin}{0cm}
+\setlength {\leftmargin}{2cm}
+\setlength {\topsep} {0cm}
+\setlength {\labelsep} {0cm}
+\setlength {\listparindent} {0cm}
+\setlength {\partopsep} {0cm}
+\setlength {\parskip} {0cm}
+\item}}{\end{list}\vskip3mm}
+
+
+%
+% Title page
+%
+\thispagestyle{empty}
+\begin{center}   
+\ \\[3cm]
+{\huge\bf Using ST{\large\bf{KLOS}} for graphic programming}\\[3mm]
+{\large or}\\[4mm]
+{\large\bf{``Programming the Tk toolit with an OO Scheme''}}\\[3cm]
+{\large Erick Gallesio ({\tt eg\@unice\.fr})}\\
+{\large\em any other volunteers are welcome}
+\end{center}
+\vskip10cm
+\begin{flushright}
+April 1995
+\end{flushright}
+%
+% Table of content
+%
+\tableofcontents
+
+\input{Chap1}
+\input{Chap2}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\chapter{Simple widget methods}
+\section{pack}
+\section{raise}
+\section{lower}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\chapter{The Canvas widget}
+
+\section{The <Canvas> class}
+
+\section{The <Canvas-item> class}
+\subsection{<Rectangle> class}
+\subsection{<Oval> class}
+
+......\\
+......\\
+......
+\section{Grouping canvas item objects}
+
+\ldots
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\chapter{The Text widget}
+
+\section{The <Text> class}
+\section{The <Text-tag> class}
+\section{The <Text-mark>}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\chapter{Composite widgets}
+\section{Standard composite widgets}
+
+\subsection{Labeled Entry}
+\subsection{Default button}
+\subsection{Choice button}
+\subsection{Paned window}
+\subsection{Scrool Listbox}
+\subsection{Scroll Text}
+\subsection{Scroll Canvas}
+\subsection{File box}
+
+\section{Writing composite widgets}
+
+\input{STklos+Tk.ind}
+\end{document}
+
+
diff --git a/Doc/STklos+Tk/browser.stklos b/Doc/STklos+Tk/browser.stklos
new file mode 100644
index 0000000..7fd1c6b
--- /dev/null
+++ b/Doc/STklos+Tk/browser.stklos
@@ -0,0 +1,14 @@
+(require "Tk-classes")
+
+(define lab  (make <Label> :text "A simple interface"))
+(define box  (make <Frame> :border-width 3 :relief "ridge"))
+(define l    (make <Listbox>   :parent box))
+(define s    (make <Scrollbar> :parent box :orientation "vertical"))
+(define quit (make <Button> :text "Quit" :command '(quit)))
+
+;; Place the listbox and its scrollbar in "box"
+(pack l :expand #t :fill "both" :side "left")
+(pack s :expand #t :fill "y" :side "right")
+
+;; place all widget on the screen
+(pack lab box quit)
diff --git a/Doc/Tcl93/README b/Doc/Tcl93/README
new file mode 100644
index 0000000..6a01eec
--- /dev/null
+++ b/Doc/Tcl93/README
@@ -0,0 +1,3 @@
+This directory contains the paper presented as TCl/Tk 93 Workshop
+Tcl93.ps is the Postscript version.
+
diff --git a/Doc/Tcl93/Tcl93.ps b/Doc/Tcl93/Tcl93.ps
new file mode 100644
index 0000000..ab886e7
--- /dev/null
+++ b/Doc/Tcl93/Tcl93.ps
@@ -0,0 +1,1538 @@
+%!PS-Adobe-2.0
+%%Creator: dvips 5.511 Copyright 1986, 1993 Radical Eye Software
+%%Title: Tcl93.dvi
+%%CreationDate: Mon Dec  6 15:45:10 1993
+%%Pages: 6 -1
+%%PageOrder: Descend
+%%BoundingBox: 0 0 612 792
+%%EndComments
+%DVIPSCommandLine: dvips -f Tcl93.dvi
+%DVIPSSource:  TeX output 1993.12.06:1400
+%%BeginProcSet: tex.pro
+/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
+/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
+mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
+ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
+hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
+TR matrix currentmatrix dup dup 4 get round 4 exch put dup dup 5 get
+round 5 exch put setmatrix}N /@landscape{/isls true N}B /@manualfeed{
+statusdict /manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0
+0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{/nn 8 dict N nn
+begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N string /base X
+array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N end dup{/foo
+setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{/sf 1 N /fntrx
+FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]N df-tail}B /E{
+pop nn dup definefont setfont}B /ch-width{ch-data dup length 5 sub get}
+B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup
+length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127 sub}B
+/ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data dup type
+/stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N /rc 0 N /gp
+0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup /base get 2
+index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff
+ch-yoff ch-height sub ch-xoff ch-width add ch-yoff setcachedevice
+ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]{
+ch-image}imagemask restore}B /D{/cc X dup type /stringtype ne{]}if nn
+/base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup length 1
+sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{cc 1 add D
+}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0
+moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul add
+.99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore showpage
+userdict /eop-hook known{eop-hook}if}N /@start{userdict /start-hook
+known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
+/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
+65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
+0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
+{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
+getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
+ifelse}{false}ifelse end{{gsave TR -.1 -.1 TR 1 1 scale rulex ruley
+false RMat{BDot}imagemask grestore}}{{gsave TR -.1 -.1 TR rulex ruley
+scale 1 1 false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave
+transform round exch round exch itransform moveto rulex 0 rlineto 0
+ruley neg rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta
+0 N /tail{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}
+B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{
+3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p
+-1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{
+3 2 roll p a}B /bos{/SS save N}B /eos{SS restore}B end
+%%EndProcSet
+%%BeginProcSet: special.pro
+TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
+/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
+false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
+/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
+div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
+/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
+10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
+/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
+true def end /@MacSetUp{userdict /md known{userdict /md get type
+/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
+length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
+N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
+clippath mark{transform{itransform moveto}}{transform{itransform lineto}
+}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
+itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
+closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
+0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
+/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
+scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
+ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
+not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
+TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
+pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
+-1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
+TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
+sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
+0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
+2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
+{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
+div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
+N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
+maxlength dict begin /magscale false def normalscale currentpoint TR
+/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
+/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
+psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
+scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
+/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
+begin /SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
+{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
+}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
+end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
+N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
+/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
+SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
+/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
+yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
+%%EndProcSet
+TeXDict begin 40258431 52099146 1000 300 300
+(/home/eg/src/scheme/STk2/Doc/Tcl93/Tcl93.dvi) @start /Fa 1
+16 df<03C00FF01FF83FFC7FFE7FFEFFFFFFFFFFFFFFFF7FFE7FFE3FFC1FF80FF003C010107E91
+15>15 D E /Fb 8 117 df<60F0F06000000000000060F0F060040E798D12>58
+D<3F807FC070E0207000700FF03FF07870E070E070E07070F03FFE1F3E0F0E7E8D12>97
+D<07F01FF8383870106000E000E000E000E0006000703838381FF007E00D0E7E8D12>99
+D<07801FE0387070706038E038FFF8FFF8E0006000703838381FF007C00D0E7E8D12>101
+D<FF00FF000700070007000700070007000700070007000700070007000700070007000700FFF8
+FFF80D147E9312>108 D<F71C00FFBE0079E70079E70071C70071C70071C70071C70071C70071
+C70071C70071C700F9E780F8E380110E808D12>I<1FF03FF06070C070E0007F003FE00FF00078
+6018E018F030FFE0DFC00D0E7E8D12>115 D<06000E000E000E007FF8FFF80E000E000E000E00
+0E000E000E000E380E380E3807F003C00D127F9112>I E /Fc 2 63 df<0000300000F00003C0
+000700001C0000780001E0000780000E0000380000F00000F000003800000E000007800001E000
+007800001C000007000003C00000F000003014167D921B>60 D<C00000F000003C00000E000003
+800001E000007800001E000007000001C00000F00000F00001C0000700001E0000780001E00003
+80000E00003C0000F00000C0000014167D921B>62 D E /Fd 2 63 df<0000038000000F000000
+3C000000F0000003C000000F0000003C000000F0000003C000000F0000003C000000F0000000F0
+0000003C0000000F00000003C0000000F00000003C0000000F00000003C0000000F00000003C00
+00000F000000038019187D9520>60 D<E0000000780000001E0000000780000001E00000007800
+00001E0000000780000001E0000000780000001E00000007800000078000001E00000078000001
+E00000078000001E00000078000001E00000078000001E00000078000000E000000019187D9520
+>62 D E /Fe 24 122 df<387CFEFEFE7C3807077C8610>46 D<00180000780001F800FFF800FF
+F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001
+F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F8007F
+FFE07FFFE013207C9F1C>49 D<03FC000FFF003C1FC07007E07C07F0FE03F0FE03F8FE03F8FE01
+F87C01F83803F80003F80003F00003F00007E00007C0000F80001F00003E0000380000700000E0
+1801C0180380180700180E00380FFFF01FFFF03FFFF07FFFF0FFFFF0FFFFF015207D9F1C>I<00
+FE0007FFC00F07E01E03F03F03F03F81F83F81F83F81F81F03F81F03F00003F00003E00007C000
+1F8001FE0001FF000007C00001F00001F80000FC0000FC3C00FE7E00FEFF00FEFF00FEFF00FEFF
+00FC7E01FC7801F81E07F00FFFC001FE0017207E9F1C>I<0000E00001E00003E00003E00007E0
+000FE0001FE0001FE00037E00077E000E7E001C7E00187E00307E00707E00E07E00C07E01807E0
+3807E07007E0E007E0FFFFFEFFFFFE0007E00007E00007E00007E00007E00007E00007E000FFFE
+00FFFE17207E9F1C>I<FFFFFF8000FFFFFFE00007F001F80007F000FC0007F0007E0007F0007E
+0007F0007F0007F0007F0007F0007F0007F0007F0007F0007F0007F0007E0007F000FE0007F000
+FC0007F003F80007FFFFF00007FFFFF00007F001FC0007F0007E0007F0003F0007F0003F8007F0
+001F8007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0003F8007
+F0003F8007F0007F0007F001FE00FFFFFFF800FFFFFFC00022227EA128>66
+D<0003FE0080001FFF818000FF01E38001F8003F8003E0001F8007C0000F800F800007801F8000
+07803F000003803F000003807F000001807E000001807E00000180FE00000000FE00000000FE00
+000000FE00000000FE00000000FE00000000FE00000000FE000000007E000000007E000001807F
+000001803F000001803F000003801F800003000F8000030007C000060003F0000C0001F8003800
+00FF00F000001FFFC0000003FE000021227DA128>I<0003FE0040001FFFC0C0007F00F1C001F8
+003FC003F0000FC007C00007C00FC00003C01F800003C03F000001C03F000001C07F000000C07E
+000000C07E000000C0FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000
+FE00000000FE000FFFFC7E000FFFFC7F00001FC07F00001FC03F00001FC03F00001FC01F80001F
+C00FC0001FC007E0001FC003F0001FC001FC003FC0007F80E7C0001FFFC3C00003FF00C026227D
+A12C>71 D<7FFFFFFF807FFFFFFF807E03F80F807803F807807003F803806003F80180E003F801
+C0E003F801C0C003F800C0C003F800C0C003F800C0C003F800C00003F800000003F800000003F8
+00000003F800000003F800000003F800000003F800000003F800000003F800000003F800000003
+F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8000000
+03F800000003F8000003FFFFF80003FFFFF80022227EA127>84 D<07FC001FFF803F07C03F03E0
+3F01E03F01F01E01F00001F00001F0003FF003FDF01FC1F03F01F07E01F0FC01F0FC01F0FC01F0
+FC01F07E02F07E0CF81FF87F07E03F18167E951B>97 D<00FF8007FFE00F83F01F03F03E03F07E
+03F07C01E07C0000FC0000FC0000FC0000FC0000FC0000FC00007C00007E00007E00003E00301F
+00600FC0E007FF8000FE0014167E9519>99 D<00FE0007FF800F87C01E01E03E01F07C00F07C00
+F8FC00F8FC00F8FFFFF8FFFFF8FC0000FC0000FC00007C00007C00007E00003E00181F00300FC0
+7003FFC000FF0015167E951A>101 D<003F8000FFC001E3E003C7E007C7E00F87E00F83C00F80
+000F80000F80000F80000F80000F8000FFFC00FFFC000F80000F80000F80000F80000F80000F80
+000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80007FF8
+007FF80013237FA211>I<FF000000FF0000001F0000001F0000001F0000001F0000001F000000
+1F0000001F0000001F0000001F0000001F0000001F0000001F07E0001F1FF8001F307C001F403C
+001F803E001F803E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F00
+3E001F003E001F003E001F003E001F003E001F003E001F003E00FFE1FFC0FFE1FFC01A237EA21F
+>104 D<1C003E007F007F007F003E001C000000000000000000000000000000FF00FF001F001F
+001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F00FFE0FFE00B24
+7EA310>I<FF000000FF0000001F0000001F0000001F0000001F0000001F0000001F0000001F00
+00001F0000001F0000001F0000001F0000001F00FF801F00FF801F0038001F0060001F01C0001F
+0380001F0700001F0E00001F1C00001F7E00001FFF00001FCF00001F0F80001F07C0001F03E000
+1F01E0001F01F0001F00F8001F007C001F003C00FFE0FFC0FFE0FFC01A237EA21E>107
+D<FF00FF001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F00
+1F001F001F001F001F001F001F001F001F001F001F001F001F001F00FFE0FFE00B237EA210>I<
+FF07E000FF1FF8001F307C001F403C001F803E001F803E001F003E001F003E001F003E001F003E
+001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F00
+3E00FFE1FFC0FFE1FFC01A167E951F>110 D<00FE0007FFC00F83E01E00F03E00F87C007C7C00
+7C7C007CFC007EFC007EFC007EFC007EFC007EFC007EFC007E7C007C7C007C3E00F81F01F00F83
+E007FFC000FE0017167E951C>I<FE1F00FE3FC01E67E01EC7E01E87E01E87E01F83C01F00001F
+00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F0000FFF000FF
+F00013167E9517>114 D<0FF3003FFF00781F00600700E00300E00300F00300FC00007FE0007F
+F8003FFE000FFF0001FF00000F80C00780C00380E00380E00380F00700FC0E00EFFC00C7F00011
+167E9516>I<0180000180000180000180000380000380000780000780000F80003F8000FFFF00
+FFFF000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F8180
+0F81800F81800F81800F81800F830007C30003FE0000F80011207F9F16>I<FF01FE00FF01FE00
+1F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E
+001F003E001F003E001F003E001F003E001F003E001F007E001F00FE000F81BE0007FF3FC001FC
+3FC01A167E951F>I<FFE01FE0FFE01FE00F8006000F8006000FC00E0007C00C0007E01C0003E0
+180003E0180001F0300001F0300000F8600000F86000007CC000007CC000007FC000003F800000
+3F8000001F0000001F0000000E0000000E0000000C0000000C00000018000078180000FC380000
+FC300000FC60000069C000007F8000001F0000001B207F951E>121 D E
+/Ff 35 122 df<00FC000782000E07001C07001C02001C00001C00001C00001C0000FFFF001C07
+001C07001C07001C07001C07001C07001C07001C07001C07001C07001C07001C0700FF1FE01317
+809614>12 D<60C0F1E0F1E070E01020102020402040408040800B0A7F9612>34
+D<0102040C1818303070606060E0E0E0E0E0E0E0E0E0E060606070303018180C04020108227D98
+0E>40 D<8040203018180C0C0E060606070707070707070707070606060E0C0C18183020408008
+227E980E>I<60F0F070101020204040040A7D830A>44 D<FF80FF80090280870C>I<60F0F06004
+047D830A>I<001000003800003800003800005C00005C00005C00008E00008E00008E00010700
+01070003078002038002038007FFC00401C00401C00800E00800E01800E03800F0FE03FE17177F
+961A>65 D<FFE00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00
+0E000E000E000E000E00FFE00B177F960D>73 D<FFFE001C03801C00C01C00601C00701C00701C
+00701C00701C00601C00C01C03801FFE001C00001C00001C00001C00001C00001C00001C00001C
+00001C00001C0000FF800014177F9618>80 D<7FFFF86038184038084038088038048038048038
+040038000038000038000038000038000038000038000038000038000038000038000038000038
+0000380000380007FFC016177F9619>84 D<204020404080408081008100E1C0F1E0F1E060C00B
+0A7B9612>92 D<1FC0386038301038003803F81E3830387038E039E039E07970FF1F1E100E7F8D
+12>97 D<FC00001C00001C00001C00001C00001C00001C00001C00001C00001CF8001F06001C03
+001C03801C01801C01C01C01C01C01C01C01C01C01801C03801C03001B0E0010F8001217809614
+>I<07F01838303870106000E000E000E000E000600070083008183007C00D0E7F8D10>I<007E00
+000E00000E00000E00000E00000E00000E00000E00000E0007CE001C3E00300E00700E00600E00
+E00E00E00E00E00E00E00E00600E00700E00301E00182E0007CFC012177F9614>I<0FC0186030
+307038E018FFF8E000E000E000600070083010183007C00D0E7F8D10>I<03E006700E701C201C
+001C001C001C001C00FF801C001C001C001C001C001C001C001C001C001C001C001C00FF800C17
+80960B>I<0F9E18E33060707070707070306018C02F80200060003FE03FF83FFC600EC006C006
+C006600C38380FE010157F8D12>I<FC00001C00001C00001C00001C00001C00001C00001C0000
+1C00001C7C001D8E001E07001C07001C07001C07001C07001C07001C07001C07001C07001C0700
+1C0700FF9FE01317809614>I<183C3C1800000000007C1C1C1C1C1C1C1C1C1C1C1C1CFF081780
+960A>I<FC00001C00001C00001C00001C00001C00001C00001C00001C00001C3F801C1C001C18
+001C20001C40001CC0001FE0001CF0001C70001C78001C3C001C1E001C1E00FF3FC01217809613
+>107 D<FC001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C
+001C001C001C001C00FF80091780960A>I<FC7C1F001D8E63801E0781C01C0701C01C0701C01C
+0701C01C0701C01C0701C01C0701C01C0701C01C0701C01C0701C01C0701C0FF9FE7F81D0E808D
+1E>I<FC7C001D8E001E07001C07001C07001C07001C07001C07001C07001C07001C07001C0700
+1C0700FF9FE0130E808D14>I<07C018303018600C600CE00EE00EE00EE00EE00E701C30181830
+07C00F0E7F8D12>I<FCF8001F0E001C03001C03801C01801C01C01C01C01C01C01C01C01C0180
+1C03801C07001F0E001CF8001C00001C00001C00001C00001C0000FF80001214808D14>I<FCF0
+1D381E381C101C001C001C001C001C001C001C001C001C00FF800D0E808D0E>114
+D<1F4060C0C040C040E000FF007F801FC001E080608060C060E0C09F000B0E7F8D0E>I<080008
+000800180018003800FF80380038003800380038003800380038403840384038401C800F000A14
+7F930E>I<FC3F001C07001C07001C07001C07001C07001C07001C07001C07001C07001C07001C
+0F000E170003E7E0130E808D14>I<FE1F3C0E3C0C1C081C080E100E100720072003C003C003C0
+01800180100E7F8D13>I<FCFE7C3838383838101C3C201C3C201C4C200E4E400E4E400E864007
+8780078780070380030300030300160E7F8D19>I<FE3F3C181C100E20074007C0038001C002E0
+04F008701838383CFC7F100E7F8D13>I<FE1F3C0E3C0C1C081C080E100E100720072003C003C0
+03C00180018001000100E200E200A400780010147F8D13>I E /Fg 3 52
+df<0C003C00CC000C000C000C000C000C000C000C000C000C000C000C000C00FF8009107E8F0F>
+49 D<1F00618040C08060C0600060006000C00180030006000C00102020207FC0FFC00B107F8F
+0F>I<1F00218060C060C000C0008001800F00008000400060C060C060804060801F000B107F8F
+0F>I E /Fh 3 52 df<0C001C00EC000C000C000C000C000C000C000C000C000C000C000C000C
+000C000C000C00FFC00A137D9211>49 D<1F0060C06060F070F030603000700070006000C001C0
+0180020004000810101020207FE0FFE00C137E9211>I<0FC030707038703870380038003000E0
+0FC0007000380018001C601CF01CF018E03860701FC00E137F9211>I E
+/Fi 62 127 df<60F0F0F0F0F0F0F0F0F0F0F0F0F0600000000060F0F0600417789614>33
+D<C060E0E0E0E0E0E0E0E0C060C060C060C060C06040400B0B7C9614>I<071C00071C00071C00
+071C00071C007FFF00FFFF80FFFF800E38000E38000E38000E38000E38000E38000E3800FFFF80
+FFFF807FFF001C70001C70001C70001C70001C700011177F9614>I<0700000F800018C00038E0
+0038E00038E00038C00039CF80398F801F1C001E1C001E38001E38001E38003F7000677000E3F0
+00E3E000E1E380E1E38073F3803F3F001E1E0011177F9614>38 D<60F0F878181818303060C080
+050C789614>I<00C001C0030006000C001C0038003000700070006000E000E000E000E000E000
+E000E000600070007000300038001C000C000600030001C000C00A1D7A9914>I<8000C0006000
+300018001C000E000600070007000300038003800380038003800380038003000700070006000E
+001C00180030006000C0008000091D7C9914>I<01C00001C00001C00001C00001C00001C00001
+C000FFFF80FFFF80FFFF8001C00001C00001C00001C00001C00001C00001C00011117F9314>43
+D<70F8FCFC7C0C1830E0C0060A798414>I<FFFEFFFEFFFE0F037E8C14>I<70F8F8F87005057984
+14>I<0006000E000E001C001C003800380070007000E000E001C001C003800380038007000700
+0E000E001C001C003800380070007000E000E000C0000F1D7E9914>I<07C00FE01C7038383018
+701C701CE00EE00EE00EE00EE00EE00EE00EE00EE00E701C701C383838381C700FE007C00F177E
+9614>I<0300030007000F003F00F7004700070007000700070007000700070007000700070007
+000700070007007FF07FF00C177C9614>I<0FC01FF03838701CE00EE00EE00E400E000E001C00
+1C00380030007000E001C0030006000C00180E300E7FFE7FFE0F177E9614>I<0FC01FF0383870
+1C701C201C001C001C0038007007E007F00038001C000E000E400EE00EE00E701C78383FF00FC0
+0F177E9614>I<00780000F80001B80001B8000338000338000638000E38000C38001C38003838
+00303800703800E03800FFFF80FFFF8000380000380000380000380000380001FF0001FF001117
+7F9614>I<3FFC7FFC700070007000700070007000700077C07FF07838201C000C000E000E400E
+E00EE01C601C78783FF00FC00F177E9614>I<70F8F8F87000000000000070F8F8F8700510798F
+14>58 D<000E003E007C00F003E007C01F003E00F800F000F8003E001F0007C003E000F0007C00
+3E000E0F137E9414>60 D<FFFF80FFFF807FFF800000000000000000007FFF80FFFF80FFFF8011
+097F8F14>I<4000E000F8007C001E000F8007C001F000F8003E001E003E00F801F007C00F801E
+007C00F800E00040000F157E9514>I<1FE03FF8701CE00EE00E400E003C007000E001C0038003
+80038003800300000000000000000003000780078003000F177E9614>I<01C00003E00003E000
+0360000360000770000770000770000770000630000E38000E38000E38000E38000E38001FFC00
+1FFC001C1C001C1C003C1E00380E00FE3F80FE3F8011177F9614>65 D<FFF0FFFC381E380E3807
+380738073807380E381E3FFC3FFC381E380E38073807380738073807380E381EFFFCFFF810177F
+9614>I<03C60FFE1C3E181E381E700E700E600EE000E000E000E000E000E000E000600E700E70
+0E380C181C1C380FF003C00F177E9614>I<FFE000FFF800383C00381E00380E00380700380700
+380700380380380380380380380380380380380380380380380380380700380700380E00381E00
+383C00FFF800FFE00011177F9614>I<FFFF00FFFF003807003807003807003807003800003800
+003870003870003FF0003FF0003870003870003800003800003800003803803803803803803803
+80FFFF80FFFF8011177F9614>I<FFFFFFFF380738073807380738003800387038703FF03FF038
+7038703800380038003800380038003800FF00FF0010177E9614>I<FE3F80FE3F80380E00380E
+00380E00380E00380E00380E00380E00380E003FFE003FFE00380E00380E00380E00380E00380E
+00380E00380E00380E00380E00FE3F80FE3F8011177F9614>72 D<FFF8FFF80700070007000700
+070007000700070007000700070007000700070007000700070007000700FFF8FFF80D177D9614
+>I<FE7FFE7F381C38383878387038E039E039C03B803FC03FC03FE03CE03CE038703870383838
+38381C381CFE3FFE3F10177F9614>75 D<FF00FF00380038003800380038003800380038003800
+3800380038003800380038003807380738073807FFFFFFFF10177E9614>I<1FF07FFC783C701C
+E00EE00EE00EE00EE00EE00EE00EE00EE00EE00EE00EE00EE00EE00EE00E701C783C7FFC1FF00F
+177E9614>79 D<FFE000FFF800383C00381C00380E00380E00380E00380E00381C00383C003FF8
+003FF000383800381C00381C00381C00381C00381C00381C80381DC0381DC0FE0F80FE07001217
+7F9614>82 D<0FCC1FFC307C603CE01CE01CE01CE00070007E003FE00FF001F8001C001E000E60
+0EE00EE00EF01CF838FFF0C7E00F177E9614>I<7FFF80FFFF80E1C380E1C380E1C380E1C38001
+C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001
+C00001C0000FF8000FF80011177F9614>I<1FC0007FF000707800201800001C00001C0007FC00
+1FFC003C1C00701C00E01C00E01C00E01C00707C003FFF800F8F8011107E8F14>97
+D<FC0000FC00001C00001C00001C00001C00001C00001CF8001DFE001F07001E03001C03801C01
+C01C01C01C01C01C01C01C01C01C01C01C03801E03001F0E001DFC000CF8001217809614>I<03
+F80FFC1C1C380870006000E000E000E000E00060007000380E1C1E0FFC03F00F107E8F14>I<00
+7E00007E00000E00000E00000E00000E00000E0007CE000FFE001C3E00301E00700E00E00E00E0
+0E00E00E00E00E00E00E00E00E00700E00301E00383E001FEFC007CFC012177F9614>I<07E00F
+F01C38301C700CE00EE00EFFFEFFFEE00060007000380E1C1E0FFC03F00F107E8F14>I<007C00
+FE01CE03840380038003807FFEFFFE038003800380038003800380038003800380038003800380
+7FFC7FFC0F177F9614>I<07CF001FFF80383B80301800701C00701C00701C003018003838003F
+F00037C0007000007000003FF8001FFC003FFE00700F00E00380E00380E00380E003807007003C
+1E001FFC0007F00011197F8F14>I<FC0000FC00001C00001C00001C00001C00001C00001C7800
+1DFE001F86001E07001C07001C07001C07001C07001C07001C07001C07001C07001C07001C0700
+FF8FE0FF8FE01317809614>I<030007800780030000000000000000007F807F80038003800380
+038003800380038003800380038003800380FFFCFFFC0E187D9714>I<006000F000F000600000
+0000000000001FF01FF00070007000700070007000700070007000700070007000700070007000
+7000700070007040E0E0C07F803F000C207E9714>I<FC0000FC00001C00001C00001C00001C00
+001C00001DFF801DFF801C3C001C78001CF0001DE0001FC0001FC0001FE0001EF0001C70001C38
+001C38001C1C00FE3F80FE3F8011177F9614>I<FF80FF80038003800380038003800380038003
+8003800380038003800380038003800380038003800380FFFEFFFE0F177E9614>I<FB8E00FFDF
+003CF3803CF38038E38038E38038E38038E38038E38038E38038E38038E38038E38038E380FEFB
+E0FE79E01310808F14>I<FC7800FDFE001F86001E07001C07001C07001C07001C07001C07001C
+07001C07001C07001C07001C0700FF8FE0FF8FE01310808F14>I<07C01FF03C78701C701CE00E
+E00EE00EE00EE00EE00E701C783C3C781FF007C00F107E8F14>I<FCF800FDFE001F07001E0300
+1C03801C01C01C01C01C01C01C01C01C01C01C01C01C03801E03001F0E001DFC001CF8001C0000
+1C00001C00001C00001C00001C0000FF8000FF80001218808F14>I<FE1F00FE7F800EE3800F81
+000F00000F00000E00000E00000E00000E00000E00000E00000E00000E0000FFF000FFF0001110
+7F8F14>114 D<0FD83FF86038C038C038F0007F803FF007F8001C6006E006F006F81CFFF8CFE0
+0F107E8F14>I<030007000700070007007FFCFFFC07000700070007000700070007000700070E
+070E070E070C03FC00F00F157F9414>I<FC3F00FC3F001C07001C07001C07001C07001C07001C
+07001C07001C07001C07001C07001C07001C1F000FFFE003E7E01310808F14>I<FE3F80FE3F80
+1C1C001C1C001C1C001C1C000E38000E38000E380006300007700007700007700003E00003E000
+03E00011107F8F14>I<FF7F80FF7F80380E00380E00380E00380E0039CE0039CE0019CC001B6C
+001B6C001A6C001A6C001E7C000E78000E780011107F8F14>I<7E3F007E3F001E38000E780007
+700007E00003E00001C00003C00003E0000770000E78000E38001C1C00FE3F80FE3F8011107F8F
+14>I<FE3F80FE3F801C1C001C1C001C1C000E1C000E38000E3800073800073000073000037000
+03700001E00001E00001E00001C00001C00001C0000380007380007700007E00003C000011187F
+8F14>I<1C103F38E7E041C00D047D9614>126 D E /Fj 30 121 df<60F0F0F0F0F0F0F0F0F0F0
+F0F0F0F0F0600000000060F0F0600419779816>33 D<E038F078F078F078F078F078F078F078E0
+38E03860300D0B7C9816>I<00E001E0038007000E001C001C0038003800700070007000E000E0
+00E000E000E000E000E000E000E000700070007000380038001C001C000E000700038001E000E0
+0B217A9C16>40 D<C000E000700038001C000E000E000700070003800380038001C001C001C001
+C001C001C001C001C001C0038003800380070007000E000E001C0038007000E000C0000A217B9C
+16>I<FFFF80FFFF80FFFF8011037E8D16>45 D<70F8F8F8700505788416>I<70F8F8F870000000
+000000000070F8F8F8700512789116>58 D<7FF800FFFE007FFF001C0F001C07801C03801C0380
+1C03801C07801C07001FFF001FFE001FFE001C1F001C03801C03C01C01C01C01C01C01C01C01C0
+1C03C01C07807FFF80FFFF007FFC0012197F9816>66 D<FFFEFFFEFFFE03800380038003800380
+03800380038003800380038003800380038003800380038003800380FFFEFFFEFFFE0F197D9816
+>73 D<FFC000FFC000FFC0001C00001C00001C00001C00001C00001C00001C00001C00001C0000
+1C00001C00001C00001C00001C00001C00401C00E01C00E01C00E01C00E0FFFFE0FFFFE0FFFFE0
+13197F9816>76 D<1FE0003FF0007FF800783C00300E00000E00000E0003FE001FFE003E0E0070
+0E00E00E00E00E00E00E00783E007FFFE03FE7E00F83E013127E9116>97
+D<7E0000FE00007E00000E00000E00000E00000E00000E3E000EFF000FFF800F83C00F00E00E00
+E00E00700E00700E00700E00700E00700E00700E00E00F01E00F83C00FFF800EFF00063C001419
+809816>I<03F80FFC1FFE3C1E780C7000E000E000E000E000E000F000700778073E0E1FFC0FF8
+03F010127D9116>I<003F00007F00003F0000070000070000070000070003C7000FF7001FFF00
+3C1F00780F00700700E00700E00700E00700E00700E00700E00700700F00700F003C1F001FFFE0
+0FE7F007C7E014197F9816>I<03E00FF81FFC3C1E780E7007E007FFFFFFFFFFFFE000E0007007
+78073C0F1FFE0FFC03F010127D9116>I<001F00007F8000FF8001E78001C30001C00001C0007F
+FF00FFFF00FFFF0001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001
+C00001C0003FFE007FFF003FFE0011197F9816>I<03E3C007F7E00FFFE01C1CC0380E00380E00
+380E00380E00380E001C1C000FF8001FF0001BE0003800001800001FFC001FFF003FFF807803C0
+E000E0E000E0E000E0E000E07001C07C07C03FFF800FFE0003F800131C7F9116>I<018003C003
+C0018000000000000000007FC07FC07FC001C001C001C001C001C001C001C001C001C001C001C0
+01C07FFFFFFF7FFF101A7D9916>105 D<7E0000FE00007E00000E00000E00000E00000E00000E
+7FE00E7FE00E7FE00E0F000E1E000E3C000E78000EF0000FF0000FF8000FBC000F1E000E0E000E
+07000E07807F87F0FFCFF07F87F01419809816>107 D<FFC000FFC000FFC00001C00001C00001
+C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001
+C00001C00001C00001C000FFFF80FFFF80FFFF8011197E9816>I<F9C380FFEFC0FFFFE03C78E0
+3C78E03870E03870E03870E03870E03870E03870E03870E03870E03870E03870E0FE7CF8FE7CF8
+FE3C781512809116>I<7E3C00FEFE007FFF000F87800F03800E03800E03800E03800E03800E03
+800E03800E03800E03800E03800E03807FC7F0FFE7F87FC7F01512809116>I<03E0000FF8001F
+FC003C1E00780F00700700E00380E00380E00380E00380E00380F00780700700780F003C1E001F
+FC000FF80003E00011127E9116>I<7E3E00FEFF007FFF800F83C00F00E00E00E00E00700E0070
+0E00700E00700E00700E00700E00E00F01E00F83C00FFF800EFF000E3C000E00000E00000E0000
+0E00000E00000E00007FC000FFE0007FC000141B809116>I<FF0FC0FF3FE0FF7FE007F04007C0
+00078000078000070000070000070000070000070000070000070000070000FFFC00FFFC00FFFC
+0013127F9116>114 D<0FEC3FFC7FFCF03CE01CE01C70007F801FF007F8003C600EE00EF00EF8
+1EFFFCFFF8C7E00F127D9116>I<0300000700000700000700000700007FFF00FFFF00FFFF0007
+000007000007000007000007000007000007000007010007038007038007038007870003FE0001
+FC0000F80011177F9616>I<7E1F80FE3F807E1F800E03800E03800E03800E03800E03800E0380
+0E03800E03800E03800E03800E03800E0F800FFFF007FBF803E3F01512809116>I<7F1FC0FF1F
+E07F1FC01C07001E0F000E0E000E0E000E0E00071C00071C00071C00071C0003B80003B80003B8
+0001F00001F00000E00013127F9116>I<7F1FC07F3FC07F1FC00F1C00073C0003B80003F00001
+F00000E00001E00001F00003B800073C00071C000E0E007F1FC0FF3FE07F1FC013127F9116>
+120 D E /Fk 3 108 432 300 dfs[<03E0800C1980100580300380600180E00180E00080E000
+80E00080F00000F800007E00007FE0003FFC001FFF0007FF80007F800007C00003E00001E00000
+E08000E08000E08000E0C000C0C000C0E00180D00300CE060081F800>19
+30 125 156 36 83 D[<7FFFFFC0700F01C0600F00C0400F0040400F0040C00F0020800F002080
+0F0020800F0020000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000
+000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000001F80
+0003FFFC00>27 28 125 155 48 I[<FF83F81C01E01C01801C01001C02001C04001C08001C10
+001C30001C70001CB8001D1C001E1C001C0E001C07001C07801C03801C01C01C01E01C01F0FF83
+FC>22 21 127 148 37 107 D E /Fl 1 64 df<0FF0303C601EF01FF81FF81F701F003E003C00
+7000E001C00180018003000300030003000300000000000000000007800FC00FC00FC00FC00780
+101D7D9C17>63 D E /Fm 72 123 df<007E1F0001C1B1800303E3C00703C3C00E03C1800E01C0
+000E01C0000E01C0000E01C0000E01C0000E01C000FFFFFC000E01C0000E01C0000E01C0000E01
+C0000E01C0000E01C0000E01C0000E01C0000E01C0000E01C0000E01C0000E01C0000E01C0000E
+01C0000E01C0000E01C0007F87FC001A1D809C18>11 D<007E0001C1800301800703C00E03C00E
+01800E00000E00000E00000E00000E0000FFFFC00E01C00E01C00E01C00E01C00E01C00E01C00E
+01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C07F87F8151D809C17>I<
+007FC001C1C00303C00703C00E01C00E01C00E01C00E01C00E01C00E01C00E01C0FFFFC00E01C0
+0E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C0
+0E01C00E01C07FCFF8151D809C17>I<003F07E00001C09C18000380F018000701F03C000E01E0
+3C000E00E018000E00E000000E00E000000E00E000000E00E000000E00E00000FFFFFFFC000E00
+E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E
+00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C000E00E01C00
+7FC7FCFF80211D809C23>I<6060F0F0F8F86868080808080808101010102020404080800D0C7F
+9C15>34 D<0F0000C0188000C030600380703807006027FB00E0100600E0100C00E0100C00E010
+1800E0101800E0103000E0106000602060007020C00030418000188180000F0303C00006062000
+060C10000C1C08001818080018380400303804006038040060380400C0380400C0380401803804
+0300180803001C0806000C100C000620040003C01E217E9E23>37 D<60F0F86808080810102040
+80050C7C9C0C>39 D<004000800100020006000C000C0018001800300030007000600060006000
+E000E000E000E000E000E000E000E000E000E000E000E000600060006000700030003000180018
+000C000C00060002000100008000400A2A7D9E10>I<800040002000100018000C000C00060006
+0003000300038001800180018001C001C001C001C001C001C001C001C001C001C001C001C00180
+01800180038003000300060006000C000C00180010002000400080000A2A7E9E10>I<60F0F070
+1010101020204080040C7C830C>44 D<FFE0FFE00B0280890E>I<60F0F06004047C830C>I<0001
+0003000600060006000C000C000C0018001800180030003000300060006000C000C000C0018001
+800180030003000300060006000C000C000C00180018001800300030003000600060006000C000
+C00010297E9E15>I<03C00C301818300C300C700E60066006E007E007E007E007E007E007E007
+E007E007E007E007E007E00760066006700E300C300C18180C3007E0101D7E9B15>I<03000700
+3F00C7000700070007000700070007000700070007000700070007000700070007000700070007
+0007000700070007000F80FFF80D1C7C9B15>I<07C01830201C400C400EF00FF80FF807F80770
+07000F000E000E001C001C00380070006000C00180030006010C01180110023FFE7FFEFFFE101C
+7E9B15>I<07E01830201C201C781E780E781E381E001C001C00180030006007E00030001C001C
+000E000F000F700FF80FF80FF80FF00E401C201C183007E0101D7E9B15>I<000C00000C00001C
+00003C00003C00005C0000DC00009C00011C00031C00021C00041C000C1C00081C00101C00301C
+00201C00401C00C01C00FFFFC0001C00001C00001C00001C00001C00001C00001C0001FFC0121C
+7F9B15>I<300C3FF83FF03FC020002000200020002000200023E024302818301C200E000E000F
+000F000F600FF00FF00FF00F800E401E401C2038187007C0101D7E9B15>I<00F0030C06040C0E
+181E301E300C700070006000E3E0E430E818F00CF00EE006E007E007E007E007E0076007600770
+06300E300C18180C3003E0101D7E9B15>I<60F0F0600000000000000000000060F0F06004127C
+910C>58 D<60F0F0600000000000000000000060F0F0701010101020204080041A7C910C>I<00
+0600000006000000060000000F0000000F0000000F00000017800000178000001780000023C000
+0023C0000023C0000041E0000041E0000041E0000080F0000080F0000180F8000100780001FFF8
+0003007C0002003C0002003C0006003E0004001E0004001E000C001F001E001F00FF80FFF01C1D
+7F9C1F>65 D<FFFFC00F00F00F00380F003C0F001C0F001E0F001E0F001E0F001E0F001C0F003C
+0F00780F01F00FFFE00F00780F003C0F001E0F000E0F000F0F000F0F000F0F000F0F000F0F001E
+0F001E0F003C0F0078FFFFE0181C7E9B1D>I<001F808000E0618001801980070007800E000380
+1C0003801C00018038000180780000807800008070000080F0000000F0000000F0000000F00000
+00F0000000F0000000F0000000F0000000700000807800008078000080380000801C0001001C00
+01000E000200070004000180080000E03000001FC000191E7E9C1E>I<FFFFC0000F00F0000F00
+3C000F000E000F0007000F0007000F0003800F0003C00F0001C00F0001C00F0001E00F0001E00F
+0001E00F0001E00F0001E00F0001E00F0001E00F0001E00F0001C00F0001C00F0003C00F000380
+0F0007800F0007000F000E000F001C000F007000FFFFC0001B1C7E9B20>I<FFFFFC0F003C0F00
+0C0F00040F00040F00060F00020F00020F02020F02000F02000F02000F06000FFE000F06000F02
+000F02000F02000F02010F00010F00020F00020F00020F00060F00060F000C0F003CFFFFFC181C
+7E9B1C>I<FFFFF80F00780F00180F00080F00080F000C0F00040F00040F02040F02000F02000F
+02000F06000FFE000F06000F02000F02000F02000F02000F00000F00000F00000F00000F00000F
+00000F00000F8000FFF800161C7E9B1B>I<FFF3FFC00F003C000F003C000F003C000F003C000F
+003C000F003C000F003C000F003C000F003C000F003C000F003C000F003C000FFFFC000F003C00
+0F003C000F003C000F003C000F003C000F003C000F003C000F003C000F003C000F003C000F003C
+000F003C000F003C00FFF3FFC01A1C7E9B1F>72 D<FFF00F000F000F000F000F000F000F000F00
+0F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F00FFF00C
+1C7F9B0F>I<1FFF00F80078007800780078007800780078007800780078007800780078007800
+7800780078007800787078F878F878F878F0F040E021C01F00101D7F9B15>I<FFF03FE00F000F
+000F000C000F0008000F0010000F0020000F0040000F0080000F0100000F0200000F0400000F0E
+00000F1F00000F2F00000F2780000F4780000F83C0000F01E0000F01E0000F00F0000F00F8000F
+0078000F003C000F003C000F001E000F001F000F001F80FFF07FF01C1C7E9B20>I<FFF8000F80
+000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00
+000F00000F00000F00000F00080F00080F00080F00180F00180F00100F00300F00700F01F0FFFF
+F0151C7E9B1A>I<FF8000FF800F8000F8000F8000F8000BC00178000BC00178000BC001780009
+E002780009E002780008F004780008F004780008F0047800087808780008780878000878087800
+083C107800083C107800083C107800081E207800081E207800081E207800080F407800080F4078
+0008078078000807807800080780780008030078001C03007800FF8307FF80211C7E9B26>I<FF
+007FC00F800E000F8004000BC0040009E0040009E0040008F0040008F8040008780400083C0400
+083C0400081E0400080F0400080F0400080784000807C4000803C4000801E4000801E4000800F4
+0008007C0008007C0008003C0008003C0008001C0008000C001C000C00FF8004001A1C7E9B1F>
+I<003F800000E0E0000380380007001C000E000E001C0007003C00078038000380780003C07800
+03C0700001C0F00001E0F00001E0F00001E0F00001E0F00001E0F00001E0F00001E0F00001E070
+0001C0780003C0780003C0380003803C0007801C0007000E000E0007001C000380380000E0E000
+003F80001B1E7E9C20>I<FFFF800F00E00F00780F003C0F001C0F001E0F001E0F001E0F001E0F
+001E0F001C0F003C0F00780F00E00FFF800F00000F00000F00000F00000F00000F00000F00000F
+00000F00000F00000F00000F0000FFF000171C7E9B1C>I<FFFF00000F01E0000F0078000F003C
+000F001C000F001E000F001E000F001E000F001E000F001C000F003C000F0078000F01E0000FFF
+00000F03C0000F00E0000F00F0000F0078000F0078000F0078000F0078000F0078000F0078000F
+0078100F0078100F0038100F003C20FFF01C20000007C01C1D7E9B1F>82
+D<07E0801C1980300580700380600180E00180E00080E00080E00080F00000F800007C00007FC0
+003FF8001FFE0007FF0000FF80000F800007C00003C00001C08001C08001C08001C0C00180C001
+80E00300D00200CC0C0083F800121E7E9C17>I<7FFFFFC0700F01C0600F00C0400F0040400F00
+40C00F0020800F0020800F0020800F0020000F0000000F0000000F0000000F0000000F0000000F
+0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F000000
+0F0000000F0000001F800003FFFC001B1C7F9B1E>I<FFF07FC00F000E000F0004000F0004000F
+0004000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F000400
+0F0004000F0004000F0004000F0004000F0004000F0004000F0004000F00040007000800078008
+00038010000180100000C020000070C000001F00001A1D7E9B1F>I<FFE0FFE0FF1F001F003C1E
+001E00180F001F00100F001F00100F001F001007801F00200780278020078027802003C0278040
+03C043C04003C043C04003E043C04001E081E08001E081E08001E081E08000F100F10000F100F1
+0000F100F100007900FA00007A007A00007A007A00003E007C00003C003C00003C003C00003C00
+3C00001800180000180018000018001800281D7F9B2B>87 D<7FF0FFC00FC03E000780180003C0
+180003E0100001E0200001F0600000F0400000788000007D8000003D0000001E0000001F000000
+0F0000000F8000000F80000013C0000023E0000021E0000041F00000C0F8000080780001007C00
+03003C0002001E0006001F001F003F80FFC0FFF01C1C7F9B1F>I<FEFEC0C0C0C0C0C0C0C0C0C0
+C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FEFE07297C9E0C>91
+D<08081010202040404040808080808080B0B0F8F8787830300D0C7A9C15>I<FEFE0606060606
+0606060606060606060606060606060606060606060606060606060606060606FEFE0729809E0C
+>I<1FC000307000783800781C00301C00001C00001C0001FC000F1C00381C00701C00601C00E0
+1C40E01C40E01C40603C40304E801F870012127E9115>97 D<FC00001C00001C00001C00001C00
+001C00001C00001C00001C00001C00001C00001C7C001D86001E03001C01801C01C01C00C01C00
+E01C00E01C00E01C00E01C00E01C00E01C00C01C01C01C01801E030019060010F800131D7F9C17
+>I<07E00C301878307870306000E000E000E000E000E000E00060007004300418080C3007C00E
+127E9112>I<003F00000700000700000700000700000700000700000700000700000700000700
+03E7000C1700180F00300700700700600700E00700E00700E00700E00700E00700E00700600700
+700700300700180F000C370007C7E0131D7E9C17>I<03E00C301818300C700E6006E006FFFEE0
+00E000E000E00060007002300218040C1803E00F127F9112>I<00F8018C071E061E0E0C0E000E
+000E000E000E000E00FFE00E000E000E000E000E000E000E000E000E000E000E000E000E000E00
+0E000E007FE00F1D809C0D>I<00038003C4C00C38C01C3880181800381C00381C00381C00381C
+001818001C38000C300013C0001000003000001800001FF8001FFF001FFF803003806001C0C000
+C0C000C0C000C06001803003001C0E0007F800121C7F9215>I<FC00001C00001C00001C00001C
+00001C00001C00001C00001C00001C00001C00001C7C001C87001D03001E03801C03801C03801C
+03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C0380FF9FF0141D7F9C
+17>I<18003C003C0018000000000000000000000000000000FC001C001C001C001C001C001C00
+1C001C001C001C001C001C001C001C001C001C00FF80091D7F9C0C>I<00C001E001E000C00000
+0000000000000000000000000FE000E000E000E000E000E000E000E000E000E000E000E000E000
+E000E000E000E000E000E000E000E060E0F0C0F1C061803E000B25839C0D>I<FC00001C00001C
+00001C00001C00001C00001C00001C00001C00001C00001C00001C3FC01C0F001C0C001C08001C
+10001C20001C40001CE0001DE0001E70001C78001C38001C3C001C1C001C0E001C0F001C0F80FF
+9FE0131D7F9C16>I<FC001C001C001C001C001C001C001C001C001C001C001C001C001C001C00
+1C001C001C001C001C001C001C001C001C001C001C001C001C00FF80091D7F9C0C>I<FC7E07E0
+001C838838001D019018001E01E01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C0
+1C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01
+C01C00FF8FF8FF8021127F9124>I<FC7C001C87001D03001E03801C03801C03801C03801C0380
+1C03801C03801C03801C03801C03801C03801C03801C03801C0380FF9FF014127F9117>I<03F0
+000E1C00180600300300700380600180E001C0E001C0E001C0E001C0E001C0E001C06001807003
+803003001806000E1C0003F00012127F9115>I<FC7C001D86001E03001C01801C01C01C00C01C
+00E01C00E01C00E01C00E01C00E01C00E01C01C01C01C01C01801E03001D06001CF8001C00001C
+00001C00001C00001C00001C00001C0000FF8000131A7F9117>I<03C1000C3300180B00300F00
+700700700700E00700E00700E00700E00700E00700E00700600700700700300F00180F000C3700
+07C700000700000700000700000700000700000700000700003FE0131A7E9116>I<FCE01D301E
+781E781C301C001C001C001C001C001C001C001C001C001C001C001C00FFC00D127F9110>I<1F
+9030704030C010C010E010F8007F803FE00FF000F880388018C018C018E010D0608FC00D127F91
+10>I<04000400040004000C000C001C003C00FFE01C001C001C001C001C001C001C001C001C00
+1C101C101C101C101C100C100E2003C00C1A7F9910>I<FC1F801C03801C03801C03801C03801C
+03801C03801C03801C03801C03801C03801C03801C03801C03801C07800C07800E1B8003E3F014
+127F9117>I<FF07E03C03801C01001C01000E02000E0200070400070400070400038800038800
+03D80001D00001D00000E00000E00000E00000400013127F9116>I<FF3FCFE03C0F03801C0701
+801C0701001C0B01000E0B82000E0B82000E1182000711C4000711C4000720C40003A0E80003A0
+E80003C0680001C0700001C0700001803000008020001B127F911E>I<7F8FF00F03800F030007
+020003840001C80001D80000F00000700000780000F800009C00010E00020E000607000403801E
+07C0FF0FF81512809116>I<FF07E03C03801C01001C01000E02000E0200070400070400070400
+03880003880003D80001D00001D00000E00000E00000E000004000004000008000008000F08000
+F10000F300006600003C0000131A7F9116>I<7FFC70386038407040F040E041C003C003800700
+0F040E041C043C0C380870087038FFF80E127F9112>I E /Fn 35 122 df<0001FC000703000C
+03001C07001C0300180000380000380000380000380000700007FFFC00701C00701C00701C00E0
+3800E03800E03800E03800E07001C07001C07001C07001C0E201C0E201C0E20380E40380640380
+38038000030000070000060000C60000E40000CC00007000001825819C17>12
+D<E0E0E070301018080508749C15>18 D<183878380808101020404080050C7D830D>44
+D<FFC0FFC0FFC00A037D890F>I<3078F06005047C830D>I<000018000000180000003800000038
+0000007800000078000000B8000001B800000138000002380000023C0000041C0000041C000008
+1C0000181C0000101C0000201C0000201C00007FFC0000401C0000801C0001801C0001001C0002
+001C0002001C0004000E000C000E001C001E00FF00FFC01A1D7E9C1F>65
+D<0003F020001E0C60003002E000E003C001C001C0038001C0070000C00E0000801E0000801C00
+00803C0000803C000000780000007800000078000000F0000000F0000000F0000000F0000000F0
+000400F0000400F0000400F0000800700008007000100038002000180040000C01800007060000
+01F800001B1E7A9C1E>67 D<01FFFFC0003C01C0003800C0003800800038008000380080007000
+8000700080007020800070200000E0400000E0400000E0C00000FFC00001C0800001C0800001C0
+800001C0800003810000038000000380000003800000070000000700000007000000070000000F
+000000FFF000001A1C7D9B1B>70 D<01FFFC00003C070000380380003801C0003801C0003801C0
+007003C0007003C0007003C00070038000E0078000E0070000E00E0000E0380001FFE00001C000
+0001C0000001C00000038000000380000003800000038000000700000007000000070000000700
+00000F000000FFE000001A1C7D9B1C>80 D<000F8400304C00403C008018010018030018030018
+06001006001006000007000007000003E00003FC0001FF00007F800007C00001C00001C00000C0
+0000C02000C02000C0600180600180600300600200F00400CC180083E000161E7D9C17>83
+D<1FFFFFC01C0701C0300E00C0200E0080600E0080400E0080401C0080801C0080801C0080001C
+0000003800000038000000380000003800000070000000700000007000000070000000E0000000
+E0000000E0000000E0000001C0000001C0000001C0000001C0000003C000007FFE00001A1C799B
+1E>I<03CC063C0C3C181C3838303870387038E070E070E070E070E0E2C0E2C0E261E462643C38
+0F127B9115>97 D<3F00070007000E000E000E000E001C001C001C001C0039C03E603830383070
+38703870387038E070E070E070E060E0E0C0C0C1C0618063003C000D1D7B9C13>I<01F007080C
+08181C3838300070007000E000E000E000E000E000E008E010602030C01F000E127B9113>I<00
+1F80000380000380000700000700000700000700000E00000E00000E00000E0003DC00063C000C
+3C00181C00383800303800703800703800E07000E07000E07000E07000E0E200C0E200C0E20061
+E4006264003C3800111D7B9C15>I<01E007100C1018083810701070607F80E000E000E000E000
+E000E0086010602030C01F000D127B9113>I<0003C0000670000C70001C60001C00001C000038
+0000380000380000380000380003FF8000700000700000700000700000700000E00000E00000E0
+0000E00000E00001C00001C00001C00001C00001C0000380000380000380000300000300000700
+00C60000E60000CC00007800001425819C0D>I<00F3018F030F06070E0E0C0E1C0E1C0E381C38
+1C381C381C383830383038187818F00F700070007000E000E0C0C0E1C0C3007E00101A7D9113>
+I<0FC00001C00001C0000380000380000380000380000700000700000700000700000E78000E8C
+000F0E000E0E001C0E001C0E001C0E001C0E00381C00381C00381C003838007038807038807070
+80707100E03200601C00111D7D9C15>I<01800380010000000000000000000000000000001C00
+2600470047008E008E000E001C001C001C0038003800710071007100720072003C00091C7C9B0D
+>I<0006000E0006000000000000000000000000000000F0011802180218043804380038003800
+7000700070007000E000E000E000E001C001C001C001C003800380C300E700CE0078000F24819B
+0D>I<0FC00001C00001C0000380000380000380000380000700000700000700000700000E0F00
+0E11000E23800E43801C83001C80001D00001E00003F800039C00038E00038E00070E20070E200
+70E20070E400E06400603800111D7D9C13>I<1F800380038007000700070007000E000E000E00
+0E001C001C001C001C0038003800380038007000700070007000E400E400E400E4006800380009
+1D7C9C0B>I<3C1E0780266318C04683A0E04703C0E08E0380E08E0380E00E0380E00E0380E01C
+0701C01C0701C01C0701C01C070380380E0388380E0388380E0708380E0710701C0320300C01C0
+1D127C9122>I<3C3C002646004687004707008E07008E07000E07000E07001C0E001C0E001C0E
+001C1C00381C40381C40383840383880701900300E0012127C9117>I<01E007180C0C180C380C
+300E700E700EE01CE01CE01CE018E038E030E06060C031801E000F127B9115>I<07870004D980
+08E0C008E0C011C0E011C0E001C0E001C0E00381C00381C00381C0038180070380070300070700
+0706000E8C000E70000E00000E00001C00001C00001C00001C00003C0000FF8000131A7F9115>
+I<03C4062C0C3C181C3838303870387038E070E070E070E070E0E0C0E0C0E061E063C03DC001C0
+01C0038003800380038007803FF00E1A7B9113>I<3C3C26C2468747078E068E000E000E001C00
+1C001C001C0038003800380038007000300010127C9112>I<01F006080C080C1C18181C001F00
+1FC00FF007F0007800386030E030C030806060C01F000E127D9111>I<00C001C001C001C00380
+038003800380FFE00700070007000E000E000E000E001C001C001C001C00384038403840388019
+000E000B1A7D990E>I<1E0300270700470700470700870E00870E000E0E000E0E001C1C001C1C
+001C1C001C1C003838803838801838801839001C5900078E0011127C9116>I<1E06270E470E47
+06870287020E020E021C041C041C041C0818083808181018200C4007800F127C9113>I<1E0183
+2703874703874703838707018707010E07010E07011C0E021C0E021C0E021C0E04180C04181C04
+181C081C1C100C263007C3C018127C911C>I<1E03270747074707870E870E0E0E0E0E1C1C1C1C
+1C1C1C1C38383838183818381C7007F00070007000E0E0C0E1C0818047003C00101A7C9114>
+121 D E /Fo 3 108 df<03E0800C1980100580300380600180E00180E00080E00080E00080F0
+0000F800007E00007FE0003FFC001FFF0007FF80007F800007C00003E00001E00000E08000E080
+00E08000E0C000C0C000C0E00180D00300CE060081F800131E7D9C19>83
+D<7FFFFFC0700F01C0600F00C0400F0040400F0040C00F0020800F0020800F0020800F0020000F
+0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F000000
+0F0000000F0000000F0000000F0000000F0000000F0000000F0000001F800003FFFC001B1C7D9B
+21>I<FF83F81C01E01C01801C01001C02001C04001C08001C10001C30001C70001CB8001D1C00
+1E1C001C0E001C07001C07801C03801C01C01C01E01C01F0FF83FC16157F941A>107
+D E /Fp 30 119 df<FFFF80FFFF80FFFF80FFFF80FFFF80FFFF8011067F9017>45
+D<000E00001E00007E0007FE00FFFE00FFFE00F8FE0000FE0000FE0000FE0000FE0000FE0000FE
+0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE
+0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE007FFFFE7FFFFE7FFF
+FE17277BA622>49 D<00FF800003FFF0000FFFFC001F03FE003800FF007C007F80FE003FC0FF00
+3FC0FF003FE0FF001FE0FF001FE07E001FE03C003FE000003FE000003FC000003FC000007F8000
+007F000000FE000000FC000001F8000003F0000003E00000078000000F0000001E0000003C00E0
+007000E000E000E001C001C0038001C0070001C00FFFFFC01FFFFFC03FFFFFC07FFFFFC0FFFFFF
+80FFFFFF80FFFFFF801B277DA622>I<007F800003FFF00007FFFC000F81FE001F00FF003F80FF
+003F807F803F807F803F807F801F807F800F007F800000FF000000FF000000FE000001FC000001
+F8000007F00000FFC00000FFF0000001FC0000007E0000007F0000007F8000003FC000003FC000
+003FE000003FE03C003FE07E003FE0FF003FE0FF003FE0FF003FC0FF007FC07E007F807C007F00
+3F01FE001FFFFC0007FFF00000FF80001B277DA622>I<00000E0000001E0000003E0000007E00
+0000FE000000FE000001FE000003FE0000077E00000E7E00000E7E00001C7E0000387E0000707E
+0000E07E0000E07E0001C07E0003807E0007007E000E007E000E007E001C007E0038007E007000
+7E00E0007E00FFFFFFF8FFFFFFF8FFFFFFF80000FE000000FE000000FE000000FE000000FE0000
+00FE000000FE000000FE00007FFFF8007FFFF8007FFFF81D277EA622>I<0C0003000F803F000F
+FFFE000FFFFC000FFFF8000FFFF0000FFFE0000FFFC0000FFE00000E0000000E0000000E000000
+0E0000000E0000000E0000000E7FC0000FFFF8000F80FC000E003E000C003F0000001F8000001F
+C000001FC000001FE000001FE018001FE07C001FE0FE001FE0FE001FE0FE001FE0FE001FC0FC00
+1FC078003F8078003F803C007F001F01FE000FFFF80003FFF00000FF80001B277DA622>I<1C00
+3E007F00FF80FF80FF807F003E001C000000000000000000000000000000000000001C003E007F
+00FF80FF80FF807F003E001C00091B7B9A13>58 D<000003800000000007C00000000007C00000
+00000FE0000000000FE0000000000FE0000000001FF0000000001FF0000000003FF8000000003F
+F8000000003FF80000000073FC0000000073FC00000000F3FE00000000E1FE00000000E1FE0000
+0001C0FF00000001C0FF00000003C0FF80000003807F80000007807FC0000007003FC000000700
+3FC000000E003FE000000E001FE000001E001FF000001C000FF000001FFFFFF000003FFFFFF800
+003FFFFFF80000780007FC0000700003FC0000700003FC0000E00001FE0000E00001FE0001E000
+01FF0001C00000FF0001C00000FF00FFFE001FFFFEFFFE001FFFFEFFFE001FFFFE2F297EA834>
+65 D<FFFFFFFFC0FFFFFFFFC0FFFFFFFFC003FC003FC003FC000FE003FC0003E003FC0001E003
+FC0001E003FC0000E003FC0000E003FC0000E003FC0000F003FC03807003FC03807003FC038070
+03FC03800003FC07800003FC07800003FC1F800003FFFF800003FFFF800003FFFF800003FC1F80
+0003FC07800003FC07800003FC03800003FC03800003FC03800003FC03800003FC00000003FC00
+000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC000000FFFF
+FC0000FFFFFC0000FFFFFC000024297DA82B>70 D<FFFFFCFFFFFCFFFFFC01FE0001FE0001FE00
+01FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE00
+01FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE00
+01FE0001FE0001FE0001FE0001FE0001FE00FFFFFCFFFFFCFFFFFC16297EA81A>73
+D<0000FFE000000007FFFC0000003FC07F8000007F001FC00001FC0007F00003F80003F80007F0
+0001FC000FF00001FE001FE00000FF001FE00000FF003FC000007F803FC000007F807FC000007F
+C07F8000003FC07F8000003FC07F8000003FC0FF8000003FE0FF8000003FE0FF8000003FE0FF80
+00003FE0FF8000003FE0FF8000003FE0FF8000003FE0FF8000003FE0FF8000003FE0FF8000003F
+E07F8000003FC07FC000007FC07FC000007FC03FC000007F803FC000007F801FE00000FF001FE0
+0000FF000FF00001FE0007F00001FC0003F80003F80001FC0007F00000FF001FE000003FC07F80
+00000FFFFE00000000FFE000002B297CA834>79 D<FFFFFFF800FFFFFFFF00FFFFFFFFC003FC00
+3FE003FC000FF003FC0007F803FC0007FC03FC0003FC03FC0003FE03FC0003FE03FC0003FE03FC
+0003FE03FC0003FE03FC0003FE03FC0003FE03FC0003FC03FC0007FC03FC0007F803FC000FF003
+FC003FE003FFFFFF8003FFFFFE0003FC00000003FC00000003FC00000003FC00000003FC000000
+03FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC0000
+0003FC00000003FC00000003FC000000FFFFF00000FFFFF00000FFFFF0000027297DA82F>I<00
+7F806003FFF0E007FFF9E00F807FE01F001FE03E0007E07C0003E07C0001E0FC0001E0FC0001E0
+FC0000E0FE0000E0FE0000E0FF000000FFC000007FFE00007FFFE0003FFFFC001FFFFE000FFFFF
+8007FFFFC003FFFFE000FFFFE00007FFF000007FF000000FF8000007F8000003F8600001F8E000
+01F8E00001F8E00001F8F00001F0F00001F0F80003F0FC0003E0FF0007C0FFE01F80F3FFFF00E0
+FFFE00C01FF0001D297CA826>83 D<01FF800007FFF0000F81F8001FC07E001FC07E001FC03F00
+0F803F8007003F8000003F8000003F8000003F80000FFF8000FFFF8007FC3F800FE03F803F803F
+803F003F807F003F80FE003F80FE003F80FE003F80FE003F807E007F807F00DF803F839FFC0FFF
+0FFC01FC03FC1E1B7E9A21>97 D<FFE0000000FFE0000000FFE00000000FE00000000FE0000000
+0FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000
+000FE00000000FE00000000FE1FE00000FE7FF80000FFE07E0000FF801F0000FF000F8000FE000
+FC000FE000FE000FE0007F000FE0007F000FE0007F000FE0007F800FE0007F800FE0007F800FE0
+007F800FE0007F800FE0007F800FE0007F800FE0007F000FE0007F000FE0007F000FE000FE000F
+E000FC000FF001F8000FF803F0000F9E07E0000F07FF80000E01FC0000212A7EA926>I<001FF8
+0000FFFE0003F01F0007E03F800FC03F801F803F803F801F007F800E007F0000007F000000FF00
+0000FF000000FF000000FF000000FF000000FF000000FF0000007F0000007F0000007F8000003F
+8001C01F8001C00FC0038007E0070003F01E0000FFFC00001FE0001A1B7E9A1F>I<00003FF800
+00003FF80000003FF800000003F800000003F800000003F800000003F800000003F800000003F8
+00000003F800000003F800000003F800000003F800000003F800000003F800001FE3F80000FFFB
+F80003F03FF80007E00FF8000FC007F8001F8003F8003F8003F8007F0003F8007F0003F8007F00
+03F800FF0003F800FF0003F800FF0003F800FF0003F800FF0003F800FF0003F800FF0003F8007F
+0003F8007F0003F8007F0003F8003F8003F8001F8003F8000F8007F80007C00FF80003F03BFF80
+00FFF3FF80003FC3FF80212A7EA926>I<003FE00001FFF80003F07E0007C01F000F801F801F80
+0F803F800FC07F000FC07F0007C07F0007E0FF0007E0FF0007E0FFFFFFE0FFFFFFE0FF000000FF
+000000FF0000007F0000007F0000007F0000003F8000E01F8000E00FC001C007E0038003F81F00
+00FFFE00001FF0001B1B7E9A20>I<0007F0003FFC00FE3E01F87F03F87F03F07F07F07F07F03E
+07F00007F00007F00007F00007F00007F00007F000FFFFC0FFFFC0FFFFC007F00007F00007F000
+07F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F000
+07F00007F00007F00007F00007F0007FFF807FFF807FFF80182A7EA915>I<07000F801FC03FE0
+3FE03FE01FC00F8007000000000000000000000000000000FFE0FFE0FFE00FE00FE00FE00FE00F
+E00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE0FFFEFFFEFFFE
+0F2B7DAA14>105 D<FFE0FFE0FFE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE0
+0FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00F
+E00FE00FE00FE00FE0FFFEFFFEFFFE0F2A7DA914>108 D<FFC07F800FF000FFC1FFE03FFC00FF
+C383F0707E000FC603F8C07F000FCC01F9803F000FD801FF003F800FF001FE003F800FF001FE00
+3F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE0
+01FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F
+800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F80FFFE1F
+FFC3FFF8FFFE1FFFC3FFF8FFFE1FFFC3FFF8351B7D9A3A>I<FFC07F0000FFC1FFC000FFC787E0
+000FCE03F0000FD803F0000FD803F8000FF003F8000FF003F8000FE003F8000FE003F8000FE003
+F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE0
+03F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F800FFFE3FFF80FFFE3FFF80FF
+FE3FFF80211B7D9A26>I<003FE00001FFFC0003F07E000FC01F801F800FC03F800FE03F0007E0
+7F0007F07F0007F07F0007F0FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007
+F8FF0007F87F0007F07F0007F03F800FE03F800FE01F800FC00FC01F8007F07F0001FFFC00003F
+E0001D1B7E9A22>I<FFE1FE0000FFE7FF8000FFFE07E0000FF803F0000FF001F8000FE000FC00
+0FE000FE000FE000FF000FE0007F000FE0007F000FE0007F800FE0007F800FE0007F800FE0007F
+800FE0007F800FE0007F800FE0007F800FE0007F000FE000FF000FE000FF000FE000FE000FE001
+FC000FF001F8000FF803F0000FFE0FE0000FE7FF80000FE1FC00000FE00000000FE00000000FE0
+0000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000000FFFE000000FF
+FE000000FFFE00000021277E9A26>I<FFC1F0FFC7FCFFCE3E0FD87F0FD87F0FF07F0FF03E0FF0
+1C0FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0
+000FE0000FE0000FE000FFFF00FFFF00FFFF00181B7E9A1C>114 D<03FE300FFFF01E03F03800
+F0700070F00070F00070F80070FC0000FFE0007FFE007FFF803FFFE01FFFF007FFF800FFF80003
+FC0000FC60007CE0003CF0003CF00038F80038FC0070FF01E0F7FFC0C1FF00161B7E9A1B>I<00
+700000700000700000700000F00000F00000F00001F00003F00003F00007F0001FFFF0FFFFF0FF
+FFF007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007
+F00007F03807F03807F03807F03807F03807F03803F03803F87001F86000FFC0001F8015267FA5
+1B>I<FFE03FF800FFE03FF800FFE03FF8000FE003F8000FE003F8000FE003F8000FE003F8000F
+E003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F800
+0FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE007F80007E007F8
+0007E00FF80003F03BFF8001FFF3FF80003FC3FF80211B7D9A26>I<FFFE03FF80FFFE03FF80FF
+FE03FF8007F000700007F000700007F800F00003F800E00003FC01E00001FC01C00001FC01C000
+00FE03800000FE038000007F070000007F070000007F8F0000003F8E0000003FDE0000001FDC00
+00001FDC0000000FF80000000FF80000000FF800000007F000000007F000000003E000000003E0
+00000001C00000211B7F9A24>I E /Fq 43 119 df<07070F1E1C38604080080976A218>19
+D<70F8FCFC7404040404080810102040060F7C840E>44 D<FFE0FFE00B027F8B10>I<70F8F8F8
+7005057C840E>I<01F000071C000C06001803003803803803807001C07001C07001C07001C0F0
+01E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F0
+01E07001C07001C07001C07803C03803803803801C07000C0600071C0001F00013227EA018>48
+D<008003800F80F380038003800380038003800380038003800380038003800380038003800380
+03800380038003800380038003800380038003800380038007C0FFFE0F217CA018>I<03F0000C
+1C001007002007804003C04003C08003E0F003E0F801E0F801E0F801E02003E00003E00003C000
+03C0000780000700000E00001C0000180000300000600000C00001800001000002002004002008
+00201800603000403FFFC07FFFC0FFFFC013217EA018>I<03F8000C1E001007002007804007C0
+7807C07803C07807C03807C0000780000780000700000F00000E0000380003F000001C00000F00
+0007800007800003C00003C00003E02003E07003E0F803E0F803E0F003C04003C0400780200780
+100F000C1C0003F00013227EA018>I<000200000600000E00000E00001E00001E00002E00004E
+00004E00008E00008E00010E00020E00020E00040E00040E00080E00100E00100E00200E00200E
+00400E00800E00FFFFF8000E00000E00000E00000E00000E00000E00000E00001F0001FFF01521
+7FA018>I<1000801E07001FFF001FFE001FF80013E00010000010000010000010000010000010
+000010F800130E001407001803801003800001C00001C00001E00001E00001E00001E07001E0F0
+01E0F001E0E001C08001C04003C04003802007001006000C1C0003F00013227EA018>I<007E00
+01C1000300800601C00E03C01C03C0180180380000380000780000700000700000F0F800F30C00
+F40600F40300F80380F801C0F001C0F001E0F001E0F001E0F001E0F001E07001E07001E07001E0
+3801C03801C01803801C03000C0600070C0001F00013227EA018>I<4000006000007FFFE07FFF
+C07FFFC0400080C001008001008002008002000004000008000008000010000030000020000060
+0000600000600000E00000C00000C00001C00001C00001C00001C00003C00003C00003C00003C0
+0003C00003C00003C00003C00001800013237DA118>I<0001800000018000000180000003C000
+0003C0000003C0000005E0000005E000000DF0000008F0000008F0000010F80000107800001078
+0000203C0000203C0000203C0000401E0000401E0000401E0000800F0000800F0000FFFF000100
+078001000780030007C0020003C0020003C0040003E0040001E0040001E00C0000F00C0000F03E
+0001F8FF800FFF20237EA225>65 D<FFFFF8000F800E0007800780078003C0078003E0078001E0
+078001F0078001F0078001F0078001F0078001F0078001E0078003E0078007C007800F8007803E
+0007FFFE0007800780078003C0078001E0078001F0078000F0078000F8078000F8078000F80780
+00F8078000F8078000F8078001F0078001F0078003E0078007C00F800F00FFFFFC001D227EA123
+>I<0007E0100038183000E0063001C00170038000F0070000F00E0000701E0000701C0000303C
+0000303C0000307C0000107800001078000010F8000000F8000000F8000000F8000000F8000000
+F8000000F8000000F800000078000000780000107C0000103C0000103C0000101C0000201E0000
+200E000040070000400380008001C0010000E0020000381C000007E0001C247DA223>I<FFFFFF
+C00F8007C0078001C0078000C00780004007800040078000600780002007800020078000200780
+2020078020000780200007802000078060000780E00007FFE0000780E000078060000780200007
+802000078020000780200807800008078000080780001007800010078000100780003007800030
+07800070078000E00F8003E0FFFFFFE01D227EA121>69 D<FFFFFFC00F8007C0078001C0078000
+C00780004007800040078000600780002007800020078000200780202007802000078020000780
+2000078060000780E00007FFE0000780E000078060000780200007802000078020000780200007
+80000007800000078000000780000007800000078000000780000007800000078000000FC00000
+FFFE00001B227EA120>I<0007F008003C0C1800E0021801C001B8038000F8070000780F000038
+1E0000381E0000183C0000183C0000187C0000087800000878000008F8000000F8000000F80000
+00F8000000F8000000F8000000F8000000F8001FFF780000F8780000787C0000783C0000783C00
+00781E0000781E0000780F00007807000078038000B801C000B800E00318003C0C080007F00020
+247DA226>I<FFFC0FC00780078007800780078007800780078007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800FC0FFFC0E227EA1
+12>73 D<FFFE00000FC00000078000000780000007800000078000000780000007800000078000
+000780000007800000078000000780000007800000078000000780000007800000078000000780
+000007800000078000000780000007800080078000800780008007800080078001800780018007
+800100078003000780030007800F000F803F00FFFFFF0019227EA11E>76
+D<FF8007FF07C000F807C0007005E0002004F0002004F0002004780020047C0020043C0020041E
+0020041F0020040F002004078020040780200403C0200401E0200401E0200400F0200400F82004
+00782004003C2004003E2004001E2004000F2004000F20040007A0040003E0040003E0040001E0
+040001E0040000E00E0000601F000060FFE0002020227EA125>78 D<FFFFE000000F803C000007
+800E00000780078000078007C000078003C000078003E000078003E000078003E000078003E000
+078003E000078003C000078007C000078007800007800E000007803C000007FFE0000007807000
+00078038000007801C000007801E000007800E000007800F000007800F000007800F000007800F
+000007800F800007800F800007800F800007800F808007800FC080078007C0800FC003C100FFFC
+01E2000000007C0021237EA124>82 D<03F0200C0C601802603001E07000E0600060E00060E000
+60E00020E00020E00020F00000F000007800007F00003FF0001FFE000FFF0003FF80003FC00007
+E00001E00000F00000F0000070800070800070800070800070C00060C00060E000C0F000C0C801
+80C6070081FC0014247DA21B>I<FFFC07FF0FC000F80780007007800020078000200780002007
+800020078000200780002007800020078000200780002007800020078000200780002007800020
+078000200780002007800020078000200780002007800020078000200780002007800020078000
+200380004003C0004003C0004001C0008000E000800060010000300600001C08000003F0002023
+7EA125>85 D<FFF0007FC01F80001F000F00000C000780000C000780000800078000080003C000
+100003C000100003E000300001E000200001E000200000F000400000F000400000F00040000078
+0080000078008000007C018000003C010000003C010000001E020000001E020000001F02000000
+0F040000000F040000000F8C0000000788000000078800000003D000000003D000000003F00000
+0001E000000001E000000000C000000000C000000000C0000022237FA125>I<04000E001F001B
+00318060C0C06080200B087AA218>94 D<0FE0001838003C0C003C0E0018070000070000070000
+070000FF0007C7001E07003C0700780700700700F00708F00708F00708F00F087817083C23900F
+C1E015157E9418>97 D<0E0000FE00001E00000E00000E00000E00000E00000E00000E00000E00
+000E00000E00000E00000E00000E1F000E61C00E80600F00300E00380E003C0E001C0E001E0E00
+1E0E001E0E001E0E001E0E001E0E001E0E001C0E003C0E00380F00700C80600C41C0083F001723
+7FA21B>I<01FE000703000C07801C0780380300780000700000F00000F00000F00000F00000F0
+0000F00000F000007000007800403800401C00800C010007060001F80012157E9416>I<0000E0
+000FE00001E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E0
+01F8E00704E00C02E01C01E03800E07800E07000E0F000E0F000E0F000E0F000E0F000E0F000E0
+F000E07000E07800E03800E01801E00C02E0070CF001F0FE17237EA21B>I<01FC000707000C03
+801C01C03801C07801E07000E0F000E0FFFFE0F00000F00000F00000F00000F000007000007800
+203800201C00400E008007030000FC0013157F9416>I<0E0000FE00001E00000E00000E00000E
+00000E00000E00000E00000E00000E00000E00000E00000E00000E1F800E60C00E80E00F00700F
+00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E
+00700E00700E0070FFE7FF18237FA21B>104 D<1C001E003E001E001C00000000000000000000
+000000000000000E00FE001E000E000E000E000E000E000E000E000E000E000E000E000E000E00
+0E000E000E000E00FFC00A227FA10E>I<0E0000FE00001E00000E00000E00000E00000E00000E
+00000E00000E00000E00000E00000E00000E00000E03FC0E01F00E01C00E01800E02000E04000E
+08000E10000E38000EF8000F1C000E1E000E0E000E07000E07800E03C00E01C00E01E00E00F00E
+00F8FFE3FE17237FA21A>107 D<0E00FE001E000E000E000E000E000E000E000E000E000E000E
+000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00
+0E000E00FFE00B237FA20E>I<0E1F80FE60C01E80E00F00700F00700E00700E00700E00700E00
+700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E0070FFE7FF1815
+7F941B>110 D<01FC000707000C01801800C03800E0700070700070F00078F00078F00078F000
+78F00078F00078F000787000707800F03800E01C01C00E038007070001FC0015157F9418>I<0E
+1F00FE61C00E80600F00700E00380E003C0E001C0E001E0E001E0E001E0E001E0E001E0E001E0E
+001E0E003C0E003C0E00380F00700E80E00E41C00E3F000E00000E00000E00000E00000E00000E
+00000E00000E00000E0000FFE000171F7F941B>I<0E3CFE461E8F0F0F0F060F000E000E000E00
+0E000E000E000E000E000E000E000E000E000E000F00FFF010157F9413>114
+D<0F8830786018C018C008C008E008F0007F803FE00FF001F8003C801C800C800CC00CC008E018
+D0308FC00E157E9413>I<02000200020002000600060006000E001E003E00FFF80E000E000E00
+0E000E000E000E000E000E000E000E000E040E040E040E040E040E040708030801F00E1F7F9E13
+>I<0E0070FE07F01E00F00E00700E00700E00700E00700E00700E00700E00700E00700E00700E
+00700E00700E00700E00700E00F00E00F006017003827800FC7F18157F941B>I<FFC1FE1E0078
+0E00300E00200E002007004007004003808003808003808001C10001C10000E20000E20000E200
+00740000740000380000380000380000100017157F941A>I E /Fr 20 117
+df<FFFFFFFFE0FFFFFFFFE007E0000FE003E00001E003E00000F003E000007003E000003003E0
+00003003E000001003E000001003E000001003E000001003E000000803E000000803E000000803
+E000800803E000800003E000800003E000800003E000800003E001800003E001800003E0078000
+03FFFF800003FFFF800003E007800003E001800003E001800003E000800003E000800003E00080
+0003E000800203E000800203E000000203E000000403E000000403E000000403E000000403E000
+000C03E000000C03E000000803E000001803E000001803E000003803E000007803E00001F807E0
+000FF0FFFFFFFFF0FFFFFFFFF027317CB02D>69 D<FFFF80FFFF8007F00003E00003E00003E000
+03E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E000
+03E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E000
+03E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E000
+03E00007F000FFFF80FFFF8011317DB017>73 D<007F802001FFE02007C078600F001C601E0006
+E03C0003E0380001E0780000E0700000E070000060F0000060F0000060F0000020F0000020F000
+0020F8000020F80000007C0000007E0000003F0000003FC000001FF800000FFF800007FFF80003
+FFFC0000FFFF00000FFF800000FFC000001FE0000007E0000003F0000001F0000000F0000000F8
+000000F88000007880000078800000788000007880000078C0000078C0000070E00000F0E00000
+E0F00000E0F80001C0EC000380C7000700C1F01E00807FFC00800FF0001D337CB125>83
+D<7FFFFFFFFFE07FFFFFFFFFE07E000F8007E078000F8001E070000F8000E060000F8000604000
+0F80002040000F800020C0000F800030C0000F80003080000F80001080000F80001080000F8000
+1080000F80001080000F80001080000F80001000000F80000000000F80000000000F8000000000
+0F80000000000F80000000000F80000000000F80000000000F80000000000F80000000000F8000
+0000000F80000000000F80000000000F80000000000F80000000000F80000000000F8000000000
+0F80000000000F80000000000F80000000000F80000000000F80000000000F80000000000F8000
+0000000F80000000000F80000000000F80000000000F80000000000F80000000000F8000000000
+0F80000000001FC00000000FFFFF8000000FFFFF80002C317EB030>I<00FE00000303C0000C00
+E00010007000100038003C003C003E001C003E001E003E001E0008001E0000001E0000001E0000
+001E00000FFE0000FC1E0003E01E000F801E001F001E003E001E003C001E007C001E00F8001E04
+F8001E04F8001E04F8003E04F8003E0478003E047C005E043E008F080F0307F003FC03E01E1F7D
+9E21>97 D<07800000FF800000FF8000000F800000078000000780000007800000078000000780
+000007800000078000000780000007800000078000000780000007800000078000000780000007
+8000000781FC0007860700078801C0079000E007A0007007C00078078000380780003C0780003C
+0780001E0780001E0780001F0780001F0780001F0780001F0780001F0780001F0780001F078000
+1F0780001F0780001E0780003E0780003C0780003C0780007807C00070072000F0072001E00618
+038006060F000401F80020327EB125>I<003F8000E0600380180700040F00041E001E1C003E3C
+003E7C003E7C0008780000F80000F80000F80000F80000F80000F80000F80000F80000F8000078
+00007C00007C00003C00011E00011E00020F000207000403801800E060003F80181F7D9E1D>I<
+000001E000003FE000003FE0000003E0000001E0000001E0000001E0000001E0000001E0000001
+E0000001E0000001E0000001E0000001E0000001E0000001E0000001E0000001E0000001E0001F
+81E000F061E001C019E0078005E00F0003E00E0003E01E0001E03C0001E03C0001E07C0001E078
+0001E0F80001E0F80001E0F80001E0F80001E0F80001E0F80001E0F80001E0F80001E0F80001E0
+780001E0780001E03C0001E03C0001E01C0001E01E0003E00E0005E0070009E0038011F000E061
+FF003F81FF20327DB125>I<003F800000E0E0000380380007003C000E001E001E001E001C000F
+003C000F007C000F0078000F8078000780F8000780F8000780FFFFFF80F8000000F8000000F800
+0000F8000000F8000000F8000000780000007C0000003C0000003C0000801E0000800E0001000F
+0002000780020001C00C0000F03000001FC000191F7E9E1D>I<000000F0007F030801C1C41C03
+80E81C070070080F0078001E003C001E003C003E003E003E003E003E003E003E003E003E003E00
+3E003E001E003C001E003C000F007800070070000780E00009C1C000087F000018000000180000
+001800000018000000180000001C0000000E0000000FFFF80007FFFF0003FFFF800E000FC01800
+01E0300000F070000070E0000038E0000038E0000038E0000038E0000038700000707000007038
+0000E01C0001C00700070001C01C00003FE0001E2F7E9F21>103 D<0780000000FF80000000FF
+800000000F80000000078000000007800000000780000000078000000007800000000780000000
+078000000007800000000780000000078000000007800000000780000000078000000007800000
+0007800000000780FE00000783078000078C03C000079001E00007A001E00007A000F00007C000
+F00007C000F000078000F000078000F000078000F000078000F000078000F000078000F0000780
+00F000078000F000078000F000078000F000078000F000078000F000078000F000078000F00007
+8000F000078000F000078000F000078000F000078000F000078000F0000FC001F800FFFC1FFF80
+FFFC1FFF8021327EB125>I<07000F801F801F800F800700000000000000000000000000000000
+000000000000000780FF80FF800F80078007800780078007800780078007800780078007800780
+0780078007800780078007800780078007800780078007800FC0FFF8FFF80D307EAF12>I<0780
+0000FF800000FF8000000F80000007800000078000000780000007800000078000000780000007
+800000078000000780000007800000078000000780000007800000078000000780000007801FFC
+07801FFC078007E007800780078006000780040007800800078010000780600007808000078100
+000783800007878000078FC0000793C00007A1E00007C1F0000780F0000780780007807C000780
+3C0007803E0007801F0007800F0007800F80078007C0078003C0078003E00FC007F8FFFC0FFFFF
+FC0FFF20327EB123>107 D<0780FF80FF800F8007800780078007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800780078007800780
+078007800780078007800780078007800780078007800780078007800FC0FFFCFFFC0E327EB112
+>I<0780FE001FC000FF83078060F000FF8C03C18078000F9001E2003C0007A001E4003C0007A0
+00F4001E0007C000F8001E0007C000F8001E00078000F0001E00078000F0001E00078000F0001E
+00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000
+F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00
+078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0
+001E000FC001F8003F00FFFC1FFF83FFF0FFFC1FFF83FFF0341F7E9E38>I<0780FE0000FF8307
+8000FF8C03C0000F9001E00007A001E00007A000F00007C000F00007C000F000078000F0000780
+00F000078000F000078000F000078000F000078000F000078000F000078000F000078000F00007
+8000F000078000F000078000F000078000F000078000F000078000F000078000F000078000F000
+078000F000078000F000078000F0000FC001F800FFFC1FFF80FFFC1FFF80211F7E9E25>I<001F
+C00000F0780001C01C00070007000F0007801E0003C01C0001C03C0001E03C0001E0780000F078
+0000F0780000F0F80000F8F80000F8F80000F8F80000F8F80000F8F80000F8F80000F8F80000F8
+780000F07C0001F03C0001E03C0001E01E0003C01E0003C00F00078007800F0001C01C0000F078
+00001FC0001D1F7E9E21>I<0781FC00FF860700FF8803C00F9001E007A000F007C00078078000
+780780003C0780003C0780003E0780001E0780001F0780001F0780001F0780001F0780001F0780
+001F0780001F0780001F0780001F0780003E0780003E0780003C0780007C0780007807C000F007
+A000F007A001E00798038007860F000781F8000780000007800000078000000780000007800000
+0780000007800000078000000780000007800000078000000FC00000FFFC0000FFFC0000202D7E
+9E25>I<0783E0FF8C18FF907C0F907C07A07C07C03807C00007C00007C0000780000780000780
+000780000780000780000780000780000780000780000780000780000780000780000780000780
+000780000780000780000FC000FFFE00FFFE00161F7E9E19>114 D<0040000040000040000040
+0000400000C00000C00000C00001C00001C00003C00007C0000FC0001FFFE0FFFFE003C00003C0
+0003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C0
+0003C00003C01003C01003C01003C01003C01003C01003C01003C01001C02001E02000E0400078
+C0001F00142C7FAB19>116 D E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300dpi
+TeXDict begin
+
+%%EndSetup
+%%Page: 6 1
+6 0 bop 0 141 a Fp(4)69 b(Implemen)n(tati)o(on)31 b(-)i(P)n(erfor-)103
+216 y(mances)0 322 y Fm(The)11 b Fo(STk)i Fm(in)o(terpreter)g(is)e(written)g
+(in)g(C)g(and)f(for)h(some)0 372 y(parts)16 b(in)f(Sc)o(heme.)24
+b(The)16 b(ob)r(ject)g(orien)o(ted)g(la)o(y)o(er)g(pre-)0 421
+y(sen)o(ted)h(in)e(section)i(3)e(is)h(totally)e(written)j(in)e(Sc)o(heme.)0
+471 y(The)f(Sc)o(heme)g(in)o(terpreter)h(is)f(as)g(far)f(as)h(p)q(ossible)g
+(con-)0 521 y(form)d(with)h(R4RS)g([)p Fl(?)p Fm(].)k(It)d(is)g(imp)q(ortan)o
+(t)d(to)j(note)g(that)0 571 y(the)18 b(Tk)f(library)g(is)g(used)h(unmo)q
+(di\014ed)e(in)h(this)g(in)o(ter-)0 621 y(preter.)32 b(All)17
+b(the)h(Tcl)g(functions)g(call)f(issued)i(b)o(y)e(Tk)0 670
+y(primitiv)o(es)c(are)i(sim)o(ulated)e(b)o(y)i Fo(STk)i Fm(.)j(This)15
+b(p)q(ermits)0 720 y(to)g(the)h Fo(STk)h Fm(in)o(terpreter)g(to)e(b)q(e,)h
+(as)f(far)g(as)g(p)q(ossible,)0 770 y(indep)q(enden)o(t)j(of)e(the)h(Tk)g(co)
+q(de.)27 b(In)17 b(particular,)f(em-)0 820 y(b)q(edding)f(a)f(new)i(release)g
+(of)e(Tk)g(will)g(only)g(require)h(to)0 870 y(link)j(the)i(new)f(library)f
+(to)h(the)h(actual)f Fo(STk)40 b Fm(in)o(ter-)0 919 y(preter.)33
+b(F)m(urthermore,)19 b(external)g(con)o(tributions)f(w)o(e)0
+969 y(can)d(\014nd)g(on)g(net)g(can)g(b)q(e)h(easily)e(included)h(in)f(the)i
+(in-)0 1019 y(terpreter,)f(since)f(Tcl)f(\\in)o(trinsics")g(replacemen)o(ts)h
+(are)0 1069 y(presen)o(t)h(in)f(the)g Fo(STk)i Fm(core.)42
+1127 y(Actual)g(implemen)o(tation)d(do)q(esn't)18 b(put)f(accen)o(t)g(on)0
+1177 y(p)q(erformances.)36 b(It)20 b(m)o(ust)e(b)q(e)j(seen)g(as)e(a)h
+(protot)o(yp)q(e)0 1226 y(whic)o(h)14 b(m)o(ust)e(b)q(e)j(stretc)o(hed)h
+(further.)j(Ho)o(w)o(ev)o(er,)14 b(mea-)0 1276 y(suring)k(the)g(p)q
+(erformances)g(of)f(the)i Fo(STk)h Fm(pac)o(k)n(age)d(is)0
+1326 y(a)c(di\016cult)g(task)h(and)f(has)h(not)f(b)q(een)i(really)e(done)g(y)
+o(et.)0 1376 y(What)h(w)o(e)g(can)h(sa)o(y)f(for)g(no)o(w)g(is)g(that)g
+(there)i(is)e(a)g(little)0 1426 y(o)o(v)o(erhead)h(when)h(calling)d(a)i(Tk)g
+(primitiv)o(e)d(written)k(in)0 1475 y(C)g(since)h(the)f Fo(STk)i
+Fm(pac)o(k)n(age)e(m)o(ust)f(translate)h(all)f(the)0 1525 y(parameters)i(in)g
+(C)h(strings.)28 b(This)18 b(translation)e(m)o(ust)0 1575 y(b)q(e)g(done)g(b)
+q(ecause)h(the)f(Tk)f(library)g(\\thinks")g(that)h(it)0 1625
+y(w)o(orks)h(on)f(Tcl)h(whic)o(h)f(uses)i(strings)f(for)f(passing)h(pa-)0
+1675 y(rameters.)31 b(In)18 b(coun)o(terpart,)i(pro)q(cedure)g(written)f(in)0
+1724 y(Sc)o(heme)i(are)h(far)f(more)f(e\016cien)o(t)i(than)f(Tcl)g(scripts)0
+1774 y(since)14 b(the)f(Sc)o(heme)g(in)o(terpreter)i(uses)f(an)f(appropriate)
+0 1824 y(format)18 b(whic)o(h)j(is)f(c)o(heap)q(er)i(than)e(strings.)38
+b(In)20 b(par-)0 1874 y(ticular,)e(there)i(is)e(no)g(data)g(con)o(v)o(ersion)
+g(when)h(other)0 1924 y(Sc)o(heme)d(pro)q(cedures)i(are)f(called.)25
+b(Using)16 b(the)g(ob)r(ject)0 1974 y(extension)e(of)e Fo(STk)k
+Fm(giv)o(es)d(this)g(to)q(ol)f(more)h(p)q(o)o(w)o(er)g(but)0
+2023 y(is,)i(as)g(w)o(e)h(can)f(exp)q(ect,)i(more)d(time)g(consuming.)21
+b(F)m(or)0 2073 y(no)o(w,)10 b(p)q(enalt)o(y)f(when)i(using)e(the)h
+Fo(STk)i Fm(ob)r(ject)f(orien)o(ted)0 2123 y(la)o(y)o(er)16
+b(is)h(mainly)d(due)k(to)f(ob)r(ject)g(creation:)25 b(creating)0
+2173 y(a)18 b(widget)f(with)h(a)f Fj(make)g Fm(is)h(nearly)g(20)f(times)g
+(slo)o(w)o(er)0 2223 y(than)g(basic)g(creation)h(ac)o(hiev)o(ed)f(b)o(y)g
+(using)g(only)f(\014rst)0 2272 y(lev)o(el)i(primitiv)o(es.)29
+b(Ho)o(w)o(ev)o(er,)19 b(getting)f(or)g(reading)g(a)0 2322
+y(Tk)h(option)e(using)i(a)f(slot)h(access)h(is)f(only)e(1.5)h(times)0
+2372 y(slo)o(w)o(er)c(than)h(direct)g(Tk)f(con\014guration.)19
+b(W)m(e)14 b(can)h(ex-)0 2422 y(p)q(ect)e(that)e(rewriting)g(some)g(parts)g
+(of)g(the)h Fo(STk)h Fm(ob)r(ject)0 2472 y(la)o(y)o(er)h(in)g(C)g(will)e
+(decrease)17 b(those)e(ratios.)j(Comparing)0 2522 y(the)11
+b(Tcl)g(and)f(Sc)o(heme)h(approac)o(hes)g(needs)h(m)o(uc)o(h)d(more)0
+2571 y(w)o(orking;)h(and)h(a)g(complete)f(study)i(will)d(b)q(e)j(done)f(when)
+921 141 y(the)j(pac)o(k)n(age)g(will)e(b)q(e)j(more)e(stable.)921
+278 y Fp(5)69 b(Op)r(en)22 b(problems)921 369 y Fm(Using)e(Sc)o(heme)g(with)f
+(Tk)h(causes)i(some)d(di\016culties)921 419 y(whic)o(h)i(cannot)g
+(satisfactorily)f(b)q(e)i(resolv)o(ed.)40 b(Some)921 469 y(problems)15
+b(are)h(due)g(to)g(the)g(v)o(ery)g(nature)g(of)g(Sc)o(heme,)921
+519 y(others)c(are)g(due)f(to)h(Tk.)17 b(F)m(ollo)o(wing,)8
+b(is)j(a)g(list)g(of)g(ma)r(jor)921 569 y(of)i(them)962 652
+y Fa(\017)21 b Fm(R4RS)12 b(requires)i(that)f(sym)o(b)q(ol)e(m)o(ust)h(b)q(e)
+i(case)g(in-)1004 701 y(sensitiv)o(e.)j(Tk)11 b(imp)q(oses,)g(in)f(a)h
+(certain)h(exten)o(t,)g(to)1004 751 y(the)h(underlying)f(in)o(terpretativ)o
+(e)h(language)e(to)h(b)q(e)1004 801 y(case)17 b(sensitiv)o(e)f(since)h
+(command)c(in)j(ev)o(en)o(t)g(han-)1004 851 y(dler)d(scripts)g(tak)o(e)g(in)o
+(to)f(accoun)o(t)h(the)g(case)g(of)f(the)1004 901 y(letter)j(follo)o(wing)c
+(the)j(\045)g(sym)o(b)q(ol.)962 984 y Fa(\017)21 b Fm(Another)37
+b(problem)d(arises)j(with)f(lists)g(and)1004 1034 y(strings:)d(Tcl)21
+b(do)q(esn't)h(distinguish)e(those)i(t)o(w)o(o)1004 1083 y(t)o(yp)q(es.)17
+b(In)11 b(particular,)f(one)h(can)f(set)h(an)f(option)g(as)1004
+1133 y(a)15 b(string)h(and)g(asking)f(to)g(Tk)h(this)g(option)f(v)n(alue)1004
+1183 y(will)10 b(yield)i(a)f(list.)17 b(This)12 b(is)g(not)g(a)g(problem)e
+(in)i(Tcl)1004 1233 y(since)h(a)g(list)f(is)g(only)g(another)h(vision)f(of)g
+(a)g(string.)1004 1283 y(Unfortunately)m(,)f(there)j(is)f(no)f(suc)o(h)h
+(direct)g(equiv-)1004 1332 y(alence)e(in)f(Sc)o(heme.)17 b(Impro)o(v)o(emen)o
+(t)9 b(of)h(this)g(p)q(oin)o(t)1004 1382 y(w)o(ould)g(probably)g(require)i(a)
+f(mo)q(di\014cation)e(of)h(the)1004 1432 y(Tk)k(library)m(.)962
+1515 y Fa(\017)21 b Fm(One)15 b(of)e(the)i(ma)r(jor)e(assets)i(of)f(the)h(Tk)
+f(library)f(is)1004 1565 y(the)i Fj(send)f Fm(command.)19 b(With)14
+b(this)h(command,)d(a)1004 1615 y(Tk)17 b(application)g(can)h(ask)f(to)h
+(another)g(running)1004 1664 y(Tk)25 b(in)o(terpreter)h(to)f(ev)n(aluate)g
+(an)f(expression.)1004 1714 y(Since)c(Tk)f(library)g(is)h(not)f(mo)q
+(di\014ed,)g Fo(STk)k Fm(in-)1004 1764 y(terpreters)17 b(cannot)e(b)q(e)g
+(distinguished)g(from)e(Tcl)1004 1814 y(ones.)18 b(Most)12
+b(of)f(the)h(time,)e(this)i(is)g(confusing)f(and)1004 1864
+y(error)17 b(prone)f(b)q(ecause)i(requests)g(to)e(an)g(applica-)1004
+1914 y(tion)c(m)o(ust)g(tak)o(e)g(in)o(to)h(accoun)o(t)g(the)g(language)f
+(its)1004 1963 y(underlying)19 b(in)o(terpreter)i(understands.)36
+b(Keep-)1004 2013 y(ing)18 b(the)i(comm)o(unication)c(p)q(ossibilit)o(y)j(b)q
+(et)o(w)o(een)1004 2063 y Fo(STk)h Fm(an)e(Tcl)f(applications)g(seems)h(to)g
+(b)q(e)g(suit-)1004 2113 y(able,)11 b(but)g(it)g(w)o(ould)g(b)q(e)h(\014ne)f
+(to)g(establish)h(a)f(stan-)1004 2163 y(dard)18 b(w)o(a)o(y)f(to)h(determine)
+f(what)h(kind)g(of)f(in)o(ter-)1004 2212 y(preter)d(is)e(running)g(in)g(a)g
+(particular)g(application.)890 2675 y(6)p eop
+%%Page: 5 2
+5 1 bop 0 141 a Fm(alw)o(a)o(ys)16 b(computes)h(results)i(as)e(strings,)h
+(this)g(con)o(v)o(er-)0 191 y(sion)h(can)g(b)q(e)h(done)f(automatically)d
+(when)j(w)o(e)h(kno)o(w)0 241 y(the)12 b(t)o(yp)q(e)f(of)g(the)h(slot)f
+(\(e.g.)16 b(a)11 b(b)q(order)h(width)f(is)g(alw)o(a)o(ys)0
+291 y(stored)17 b(as)g(an)f(in)o(teger)h(in)f(Tk)g(structures\).)29
+b(No)16 b(con-)0 340 y(v)o(ersion)f(is)g(done)g(when)g(a)f(slot)h(is)f
+(written;)i(this)e(w)o(ork)0 390 y(is)g(done)g(b)o(y)g(Tk)f(since)i(it)f
+(will)e(reject)j(bad)f(v)n(alues.)42 437 y(Note)k(that)f(using)h(the)g(ob)r
+(ject)g(extension)h(of)e Fo(STk)0 482 y Fm(p)q(ermits)9 b(the)i(user)f(to)g
+(forget)g(some)f(Tk)g(idiosyncrasies.)0 528 y(In)16 b(particular,)f(it)g(p)q
+(ermits)g(to)h(a)o(v)o(oid)e(the)i(kno)o(wledge)0 574 y(of)f(pure)h(Tk)f
+(naming)e(con)o(v)o(en)o(tions.)22 b(The)16 b(only)f(thing)0
+619 y(the)e(user)h(has)e(to)h(kno)o(w)f(when)g(creating)h(a)f(new)h(ob)r
+(ject)0 665 y(is)h(it's)g(paren)o(t.)21 b(An)15 b(example)e(of)h(widgets)g
+(creation)h(is)0 711 y(sho)o(wn)f(b)q(elo)o(w:)78 793 y Fi(\(define)j(f)j
+(\(make)d(<Frame>\)\))78 839 y(\(define)g(b1)i(\(make)f(<Button>)412
+884 y(:text)g("B1")412 930 y(:parent)f(f\)\))78 976 y(\(define)g(b2)i(\(make)
+f(<Button>)412 1021 y(:text)g("B2")412 1067 y(:parent)f(f\)\))42
+1148 y Fm(Created)d(buttons)f(here)h(sp)q(ecify)g(that)f(their)h(paren)o(t)0
+1194 y(is)g(the)g(frame)f Fj(f)p Fm(.)18 b(Since)c(this)g(frame)f(do)q(es)i
+(not)f(sp)q(ecify)0 1240 y(a)g(particular)g(paren)o(t,)g(it)g(is)g(supp)q
+(osed)i(to)e(b)q(e)g(a)g(direct)0 1285 y(descendan)o(t)d(of)e(the)h(ro)q(ot)g
+(windo)o(w)e Fj(".")p Fm(.)16 b(This)10 b(paren)o(t's)0 1331
+y(notion)19 b(is)h(also)g(used)h(for)e(can)o(v)n(as)h(items:)30
+b(a)19 b(can)o(v)n(as)0 1377 y(item)c(is)i(considered)h(as)f(a)f(son)h(of)f
+(the)h(can)o(v)n(as)f(whic)o(h)0 1422 y(con)o(tains)e(it.)j(F)m(or)d
+(instance,)78 1505 y Fi(\(define)j(c)j(\(make)d(<Canvas>\)\))78
+1550 y(\(define)g(r)j(\(make)d(<Rectangle)o(>)392 1596 y(:parent)g(c)392
+1642 y(:coords)g('\(0)i(0)g(50)g(50\)\)\))0 1723 y Fm(de\014nes)14
+b(a)f(rectangle)h(called)e Fj(r)h Fm(in)f(the)i Fj(c)f Fm(can)o(v)n(as.)k
+(User)0 1769 y(can)e(no)o(w)g(forget)g(that)g Fj(r)g Fm(is)g(included)g(in)f
+Fj(c)h Fm(since)h(this)0 1814 y(information)f(is)j(em)o(b)q(edded)g(in)f(the)
+i(Sc)o(heme)f(ob)r(ject.)0 1860 y(T)m(o)c(mo)o(v)o(e)e(this)j(rectangle,)g
+(one)f(can)h(use)g(for)f(example)0 1906 y(the)g(follo)o(wing)e(expression:)78
+1988 y Fi(\(move)18 b(r)h(10)g(10\))0 2074 y Fm(whic)o(h)12
+b(is)g(more)f(natural)g(than)h(the)h(things)e(w)o(e)i(ha)o(v)o(e)e(to)0
+2123 y(do)j(at)f Fo(STk)j Fm(\014rst)f(lev)o(el.)0 2244 y Fe(3.4)56
+b(Generic)17 b(functions)0 2322 y Fm(With)28 b(the)i Fo(STk)h
+Fm(ob)r(ject)f(la)o(y)o(er,)i(execution)d(of)f(a)0 2372 y(metho)q(d)11
+b(do)q(esn't)g(use)i(the)f(classical)f(message)g(sending)0
+2422 y(mec)o(hanism)h(as)i(in)f(n)o(umerous)h(ob)r(ject)h(languages)e(but)0
+2472 y(generic)k(functions.)24 b(The)17 b(mec)o(hanism)c(implemen)o(ted)0
+2522 y(in)20 b Fo(STk)i Fm(is)e(a)g(subset)h(of)e(the)i(generic)g(functions)f
+(of)0 2571 y(CLOS.)14 b(As)g(in)g(CLOS,)f(a)h(generic)h(function)e(can)h(ha)o
+(v)o(e)921 141 y(sev)o(eral)g(metho)q(ds)f(asso)q(ciated)i(with)e(it.)18
+b(These)d(meth-)921 191 y(o)q(ds)j(describ)q(e)h(the)f(generic)h(function)e
+(b)q(eha)o(viour)h(ac-)921 241 y(cording)13 b(to)h(the)g(t)o(yp)q(e)g(of)f
+(its)g(parameters.)18 b(A)c(metho)q(d)921 291 y(for)g(a)g(generic)i(function)
+e(is)h(de\014ned)h(with)e(the)h Fn(de\014ne-)921 340 y(metho)n(d)f
+Fm(form.)962 393 y(F)m(ollo)o(wing)c(example)h(sho)o(ws)i(three)h(metho)q(ds)
+e(of)f(the)921 438 y(generic)k(function)e Fj(value-of)p Fm(:)980
+544 y Fi(\(define-m)o(et)o(hod)j(value-of)g(\(\(obj)i(<Scale>\)\))1019
+590 y(\(string->)o(num)o(be)o(r)f(\(\(Id)h(obj\))g('get\)\)\))980
+681 y(\(define-m)o(et)o(hod)e(value-of)g(\(\(obj)i(<Entry>\)\))1019
+727 y(\(\(Id)g(obj\))g('get\)\))980 818 y(\(define-m)o(et)o(hod)e(value-of)g
+(\(obj\))1019 864 y(\(error)h("Bad)h(call:)g(")h(obj\)\))921
+967 y Fm(When)11 b(calling)f(the)h Fj(value-of)f Fm(generic)i(function,)f
+(sys-)921 1017 y(tem)k(will)g(c)o(ho)q(ose)j(the)f(more)e(adequate)i(metho)q
+(d,)f(ac-)921 1067 y(cording)k(to)g(its)g(parameter)g(t)o(yp)q(e:)31
+b(if)19 b(parameter)h(is)921 1117 y(a)h(scale)h(or)g(an)f(en)o(try)m(,)i
+(\014rst)f(or)g(second)g(metho)q(d)f(is)921 1167 y(called;)12
+b(otherwise)i(the)f(third)g(metho)q(d)e(is)i(called)f(since)921
+1216 y(it)i(do)q(esn't)h(discriminates)f(in)h(fa)o(v)o(our)f(of)g(a)g
+(particular)921 1266 y(parameter)f(t)o(yp)q(e.)962 1319 y(Setter)20
+b(metho)q(d)e(are)g(a)g(sp)q(ecial)h(kind)f(of)f(metho)q(ds)921
+1364 y(whic)o(h)e(are)h(used)g(with)g(the)g(generalized)g Fj(set!)p
+Fm(.)22 b(Here)921 1410 y(are)12 b(the)g(corresp)q(onding)h(setter)g(metho)q
+(ds)e(to)h(previous)921 1456 y Fj(value-of)p Fm(:)999 1561
+y Fi(\(define-me)o(tho)o(d)k(\(setter)h(value-of\))1293 1607
+y(\(\(obj)h(<Scale>\))f(value\))1038 1653 y(\(\(Id)i(obj\))f('set)g
+(value\)\))999 1744 y(\(define-me)o(tho)o(d)e(\(setter)h(value-of\))1293
+1790 y(\(\(obj)h(<Entry>\))f(value\))1038 1835 y(\(\(Id)i(obj\))f('delete)e
+(0)k('end\))1038 1881 y(\(\(Id)f(obj\))f('insert)e(0)k(value\)\))999
+1972 y(\(define-me)o(tho)o(d)c(\(setter)h(value-of\))f(\(obj\))1038
+2018 y(\(error)i("Bad)g(call:)f(")j(obj\)\))921 2117 y Fm(One)15
+b(of)e(these)j(metho)q(ds)e(will)e(b)q(e)j(called)f(when)h(ev)n(alu-)921
+2163 y(ating)e(follo)o(wing)e(form,)h(dep)q(ending)i(of)g(t)o(yp)q(e)g(of)f
+Fj(x)p Fm(:)999 2269 y Fi(\(set!)18 b(\(value-of)e(x\))j(100\))921
+2372 y Fm(As)12 b(w)o(e)f(can)h(see)h(here,)f(generic)h(functions)e(yield)g
+(things)921 2422 y(more)20 b(homogeneous)g(than)h(what)g(w)o(e)h(can)f(ha)o
+(v)o(e)g(at)921 2472 y Fo(STk)f Fm(\014rst)e(lev)o(el.)28 b(Indeed)19
+b(getting)e(and)g(setting)h(the)921 2522 y(v)n(alue)12 b(of)g(an)g(en)o(try)i
+(or)f(a)f(scale)h(can)g(no)o(w)g(b)q(e)g(done)g(in)f(a)921
+2571 y(similar)f(fashion)i(with)h(those)g(metho)q(ds.)890 2675
+y(5)p eop
+%%Page: 4 3
+4 2 bop 150 100 a
+ 23681433 13972041 0 0 33746042 20063436 startTexFig
+ 150 100 a
+%%BeginDocument: hierarchy.eps
+/$F2psDict 200 dict def 
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/l {lineto} bind def
+/m {moveto} bind def
+/s {stroke} bind def
+/n {newpath} bind def
+/gs {gsave} bind def
+/gr {grestore} bind def
+/clp {closepath} bind def
+/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+4 -2 roll mul setrgbcolor} bind def
+/col-1 {} def
+/col0 {0 0 0 setrgbcolor} bind def
+/col1 {0 0 1 setrgbcolor} bind def
+/col2 {0 1 0 setrgbcolor} bind def
+/col3 {0 1 1 setrgbcolor} bind def
+/col4 {1 0 0 setrgbcolor} bind def
+/col5 {1 0 1 setrgbcolor} bind def
+/col6 {1 1 0 setrgbcolor} bind def
+/col7 {1 1 1 setrgbcolor} bind def
+	end
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+
+$F2psBegin
+0 setlinecap 0 setlinejoin
+-7.0 324.0 translate 0.630 -0.630 scale
+0.500 setlinewidth
+n 348 29 m 341 29 341 52 7 arcto 4 {pop} repeat 341 59 484 59 7 arcto 4 {pop} repeat 491 59 491 36 7 arcto 4 {pop} repeat 491 29 348 29 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+390 50 m 
+gs 1 -1 scale (Tk-object) col-1 show gr
+n 508 99 m 501 99 501 122 7 arcto 4 {pop} repeat 501 129 644 129 7 arcto 4 {pop} repeat 651 129 651 106 7 arcto 4 {pop} repeat 651 99 508 99 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+533 118 m 
+gs 1 -1 scale (Tk-canvas-item) col-1 show gr
+n 18 256 m 11 256 11 279 7 arcto 4 {pop} repeat 11 286 154 286 7 arcto 4 {pop} repeat 161 286 161 263 7 arcto 4 {pop} repeat 161 256 18 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+70 276 m 
+gs 1 -1 scale (Frame) col-1 show gr
+n 188 256 m 181 256 181 279 7 arcto 4 {pop} repeat 181 286 324 286 7 arcto 4 {pop} repeat 331 286 331 263 7 arcto 4 {pop} repeat 331 256 188 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+241 276 m 
+gs 1 -1 scale (Label) col-1 show gr
+n 71 484 m 64 484 64 507 7 arcto 4 {pop} repeat 64 514 207 514 7 arcto 4 {pop} repeat 214 514 214 491 7 arcto 4 {pop} repeat 214 484 71 484 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+101 503 m 
+gs 1 -1 scale (Check-button) col-1 show gr
+n 311 484 m 304 484 304 507 7 arcto 4 {pop} repeat 304 514 447 514 7 arcto 4 {pop} repeat 454 514 454 491 7 arcto 4 {pop} repeat 454 484 311 484 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+342 503 m 
+gs 1 -1 scale (Radio-button) col-1 show gr
+n 188 411 m 181 411 181 434 7 arcto 4 {pop} repeat 181 441 324 441 7 arcto 4 {pop} repeat 331 441 331 418 7 arcto 4 {pop} repeat 331 411 188 411 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+205 432 m 
+gs 1 -1 scale (Tk-complex-button) col-1 show gr
+n 188 186 m 181 186 181 209 7 arcto 4 {pop} repeat 181 216 324 216 7 arcto 4 {pop} repeat 331 216 331 193 7 arcto 4 {pop} repeat 331 186 188 186 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+208 207 m 
+gs 1 -1 scale (Tk-simple-widget) col-1 show gr
+/Times-Italic findfont 12.00 scalefont setfont
+229 121 m 
+gs 1 -1 scale (Tk-widget) col-1 show gr
+n 188 99 m 181 99 181 122 7 arcto 4 {pop} repeat 181 129 324 129 7 arcto 4 {pop} repeat 331 129 331 106 7 arcto 4 {pop} repeat 331 99 188 99 7 arcto 4 {pop} repeat clp gs col-1 s gr
+n 188 336 m 181 336 181 359 7 arcto 4 {pop} repeat 181 366 324 366 7 arcto 4 {pop} repeat 331 366 331 343 7 arcto 4 {pop} repeat 331 336 188 336 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+238 356 m 
+gs 1 -1 scale (Button) col-1 show gr
+n 353 256 m 346 256 346 279 7 arcto 4 {pop} repeat 346 286 489 286 7 arcto 4 {pop} repeat 496 286 496 263 7 arcto 4 {pop} repeat 496 256 353 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+396 277 m 
+gs 1 -1 scale (Message) col-1 show gr
+n 518 256 m 511 256 511 279 7 arcto 4 {pop} repeat 511 286 654 286 7 arcto 4 {pop} repeat 661 286 661 263 7 arcto 4 {pop} repeat 661 256 518 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 277 m 
+gs 1 -1 scale (Rectangle) col-1 show gr
+n 681 254 m 674 254 674 282 7 arcto 4 {pop} repeat 674 289 817 289 7 arcto 4 {pop} repeat 824 289 824 261 7 arcto 4 {pop} repeat 824 254 681 254 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+737 276 m 
+gs 1 -1 scale (Line) col-1 show gr
+n 414 59 m 584 99 l gs col-1 s gr
+n 576.671 95.221 m 584.000 99.000 l 575.755 99.115 l gs 2 setlinejoin col-1 s gr
+n 419 59 m 249 99 l gs col-1 s gr
+n 257.245 99.115 m 249.000 99.000 l 256.329 95.221 l gs 2 setlinejoin col-1 s gr
+n 254 217 m 254 256 l gs col-1 s gr
+n 256.000 248.000 m 254.000 256.000 l 252.000 248.000 l gs 2 setlinejoin col-1 s gr
+n 254 131 m 254 186 l gs col-1 s gr
+n 256.000 178.000 m 254.000 186.000 l 252.000 178.000 l gs 2 setlinejoin col-1 s gr
+n 253 217 m 82 256 l gs col-1 s gr
+n 90.244 256.171 m 82.000 256.000 l 89.355 252.271 l gs 2 setlinejoin col-1 s gr
+n 254 217 m 438 256 l gs col-1 s gr
+n 430.589 252.385 m 438.000 256.000 l 429.759 256.298 l gs 2 setlinejoin col-1 s gr
+n 253 286 m 253 336 l gs col-1 s gr
+n 255.000 328.000 m 253.000 336.000 l 251.000 328.000 l gs 2 setlinejoin col-1 s gr
+n 254 366 m 254 411 l gs col-1 s gr
+n 256.000 403.000 m 254.000 411.000 l 252.000 403.000 l gs 2 setlinejoin col-1 s gr
+n 253 442 m 133 484 l gs col-1 s gr
+n 141.212 483.245 m 133.000 484.000 l 139.890 479.469 l gs 2 setlinejoin col-1 s gr
+n 254 441 m 391 484 l gs col-1 s gr
+n 383.966 479.696 m 391.000 484.000 l 382.768 483.512 l gs 2 setlinejoin col-1 s gr
+n 574 129 m 574 254 l gs col-1 s gr
+n 576.000 246.000 m 574.000 254.000 l 572.000 246.000 l gs 2 setlinejoin col-1 s gr
+n 574 129 m 744 254 l gs col-1 s gr
+n 738.740 247.650 m 744.000 254.000 l 736.370 250.872 l gs 2 setlinejoin col-1 s gr
+$F2psEnd
+%%EndDocument
+
+ endTexFig
+ 517 1076 a Fm(Figure)14 b(2:)k Fn(A)c(p)n(artial)g(view)h(of)g
+Fo(STk)h Fn(hier)n(ar)n(chy)p 0 1109 1800 2 v 78 1234 a Fi(\(define)h(p)j
+(\(make)d(person)373 1279 y(:name)g("Smith")373 1325 y(:age)h(42\)\))0
+1398 y Fm(This)f(call)f(p)q(ermits)h(to)g(build)g(a)f(new)i(p)q(erson)g(and)f
+(to)0 1448 y(initialize)12 b(the)j(slots)f(whic)o(h)g(comp)q(ose)f(him/her.)
+42 1493 y(Reading)i(the)i(v)n(alue)f(of)g(a)g(slot)h(can)g(b)q(e)g(done)g
+(with)0 1539 y(the)d(function)g Fj(slot-value)p Fm(.)i(F)m(or)d(instance,)78
+1608 y Fi(\(slot-value)j(p)j('age\))0 1676 y Fm(p)q(ermits)14
+b(to)h(get)h(the)f(v)n(alue)g(of)f(slot)h Fj(age)f Fm(of)g(the)i
+Fj(p)f Fm(ob-)0 1722 y(ject.)26 b(Setting)16 b(this)g(slot)g(can)g(b)q(e)h
+(done)g(b)o(y)f(using)g(the)0 1768 y(generalized)f Fj(set!)i
+Fm(de\014ned)e(in)f Fo(STk)i Fm(:)78 1836 y Fi(\(set!)i(\(slot-valu)o(e)f(p)i
+('age\))e(43\))0 1905 y Fm(Since)10 b(an)g(accessor)h(as)f(also)f(b)q(een)i
+(de\014ned)f(on)g(the)g Fj(name)0 1951 y Fm(slot,)h(it)h(can)g(b)q(e)g(read)h
+(with)e(the)h(follo)o(wing)d(expression:)78 2019 y Fi(\(name)18
+b(p\))42 2088 y Fm(As)h(b)q(efore,)h(slot)f(setting)g(can)g(b)q(e)h(done)f
+(with)g(the)0 2134 y(generalized)c Fj(set!)i Fm(as)d(in)78
+2202 y Fi(\(set!)k(\(name)g(p\))h(43\))0 2316 y Fe(3.3)56 b(Tk)18
+b(classes)0 2389 y Fm(No)o(w)d(that)h(basic)g(concepts)i(ha)o(v)o(e)d(b)q
+(een)i(exp)q(osed,)g(let)0 2434 y(come)10 b(bac)o(k)h(to)g(ho)o(w)g(using)g
+(Tk)g(with)g(the)g(ob)r(ject)h(la)o(y)o(er.)0 2480 y(In)g(our)g(mo)q(del,)f
+(eac)o(h)i(Tk)f(option)f(is)h(de\014ned)i(as)e(a)g(slot.)0
+2526 y(F)m(or)i(instance,)g(a)g(simpli\014ed)e(de\014nition)i(of)f(a)h(Tk)g
+(but-)0 2571 y(ton)g(could)f(b)q(e:)999 1234 y Fi(\(defclass)j(<Button>)h
+(\(<Label>\))1058 1279 y(\(\(command)f(:accessor)g(command)1254
+1325 y(:initarg)h(:command)1254 1371 y(:allocatio)o(n)g(:pseudo)1254
+1416 y(:type)h('any\)\))1058 1462 y(:metaclass)e(<Tk>\))962
+1553 y Fm(This)d(de\014nition)g(sa)o(ys)g(that)g(a)g Fd(<)p
+Fj(Button)p Fd(>)f Fm(is)h(a)g(\()p Fn(in-)921 1598 y(herits)j
+Fm(from\))f Fd(<)p Fj(Label)p Fd(>)h Fm(with)h(an)f(extra)i(slot)e(called)921
+1644 y Fj(command)p Fm(.)g(This)e(slot's)f(allo)q(cation)f(sc)o(heme)i(is)g
+(said)f(to)921 1690 y(b)q(e)19 b Fj(:pseudo)1136 1675 y Fh(3)1154
+1690 y Fm(.)33 b(Pseudo-slots)20 b(are)g(sp)q(ecial)f(purp)q(ose)921
+1735 y(slots:)g(they)c(can)f(b)q(e)h(used)h(as)e(normal)e(slots)j(but)f(they)
+921 1781 y(are)g(not)h(allo)q(cated)e(in)h(the)h(Sc)o(heme)f(w)o(orld)g
+(\(i.e.)19 b(their)921 1827 y(v)n(alue)c(is)h(stored)h(in)f(one)g(of)g(the)g
+(structures)j(manipu-)921 1872 y(lated)10 b(b)o(y)g(the)h(Tk)g(library)e
+(instead)i(of)f(in)g(a)g(Sc)o(heme)g(ob-)921 1918 y(ject\).)19
+b(Of)14 b(course,)h(accessors)h(will)d(tak)o(e)h(in)o(to)f(accoun)o(t)921
+1964 y(this)d(fact)h(and)f(functions)g(for)g(reading)g(or)h(writing)e(suc)o
+(h)921 2009 y(slots)14 b(are)g(unc)o(hanged.)19 b(F)m(or)13
+b(example,)999 2104 y Fi(\(set!)18 b(\(command)e(b\))j('\(display)d("OK"\)\))
+921 2198 y Fm(p)q(ermits)c(to)h(set)i(the)e(script)h(asso)q(ciated)g(to)f
+(the)h Fj(b)f Fm(but-)921 2248 y(ton.)962 2302 y(Preceding)20
+b Fj(defclass)e Fm(states)i(that)f(the)g Fj(command)921 2352
+y Fm(slot)d(can)g(con)o(tain)f(a)h(v)n(alue)f(of)h(an)o(y)f(t)o(yp)q(e.)25
+b(T)o(yp)q(e)17 b(of)e(a)921 2401 y(slot)d(p)q(ermits)g(to)h(the)g(system)g
+(to)f(apply)g(the)h(adequate)921 2451 y(co)q(ercion)k(function)e(when)i(a)f
+(slot)g(is)f(read.)26 b(Since)16 b(Tk)p 921 2493 352 2 v 967
+2520 a Fg(3)984 2532 y Ff(Pseudo-slots)k(are)h(de\014ned)f(in)h(the)h
+(metaclass)d Fc(<)p Ff(Tk)p Fc(>)p Ff(,)921 2571 y(hence)10
+b(the)h Fb(:metaclas)o(s)e Ff(option)g(in)j(de\014nition.)890
+2675 y Fm(4)p eop
+%%Page: 3 4
+3 3 bop 83 150 a Fi(#!/usr/loc)o(al)o(/bi)o(n/)o(stk)16 b(-f)83
+242 y(\(scrollbar)g(".scroll")g(:command)g(".list)i('yview"\))83
+287 y(\(listbox)f(".list")f(:yscroll)h(".scroll)g('set")g(:relief)g('raised)g
+(:geometry)f("20x20"\))83 333 y(\(pack)i('append)f(".")h(.scroll)f("right)g
+(filly")h(.list)f("left)h(expand)f(fill"\))83 424 y(\(define)g(\(browse)g
+(dir)h(file\))122 470 y(\(if)h(\(not)f(\(string=?)e(dir)i("."\)\))g(\(set!)g
+(file)g(\(string-a)o(ppe)o(nd)e(dir)i("/")h(file\)\)\))122
+516 y(\(if)g(\(director)o(y?)d(file\))201 561 y(\(system)h(\(format)g(#f)h
+("browse.stk)e(~A)j(&")f(file\)\))201 607 y(\(if)g(\(file?)f(file\))279
+653 y(\(let)h(\(\(ed)g(\(getenv)f("EDITOR"\)\))o(\))318 698
+y(\(if)i(ed)397 744 y(\(system)e(\(string-a)o(ppe)o(nd)f(ed)j(")g(")g(file)f
+("&"\)\))397 790 y(\(system)f(\(string-a)o(ppe)o(nd)f("xedit)h(")i(file)g
+("&"\)\)\)\))279 835 y(\(error)e("Bad)i(director)o(y)e(or)i(file")e
+(file\)\)\)\))83 927 y(\(define)g(dir)h(\(if)h(\(>)g(argc)f(0\))h(\(car)f
+(argv\))f("."\)\))83 1018 y(\(system)g(\(format)g(#f)i("ls)f(-a)h(~A)g(>)g
+(/tmp/brows)o(e")d(dir\)\))83 1109 y(\(with-inpu)o(t-)o(fro)o(m-)o(fil)o(e)h
+("/tmp/br)o(ows)o(e")f(\(lambda\(\))122 1155 y(\(do)j(\(\(f)f(\(read-line)o
+(\))f(\(read-li)o(ne\))o(\)\))201 1201 y(\(\(eof-obj)o(ec)o(t?)f(f\)\))161
+1246 y(\(.list)i('insert)f('end)h(f\)\)\)\))83 1338 y(\(bind)g(.list)f
+("<Control-c)o(>")f('\(destroy)g("."\)\))83 1383 y(\(bind)i(.list)f
+("<Double-Bu)o(tt)o(on-)o(1>)o(")g('\(browse)f(dir)j(\(selectio)o(n)d
+('get\)\)\))619 1500 y Fm(Figure)e(1:)k Fn(A)d(simple)f(\014le)h(br)n(owser)p
+0 1533 1800 2 v 0 1657 a Fm(the)k(Tk)f(w)o(orld.)31 b(The)19
+b Fj(parent)e Fm(slot)h(con)o(tains)g(a)g(ref-)0 1707 y(erence)d(to)e(the)g
+(ob)r(ject)h(whic)o(h)f(\(graphically\))f(includes)0 1757 y(the)k(curren)o(t)
+g(ob)r(ject.)22 b(Normally)m(,)12 b(end)j(users)i(will)c(not)0
+1807 y(ha)o(v)o(e)j(to)g(use)h(direct)g(instances)g(of)e(the)i
+Fd(<)p Fn(Tk-obje)n(ct)p Fd(>)0 1857 y Fm(class)83 1842 y Fh(2)102
+1857 y Fm(.)42 1907 y(The)j(next)g(lev)o(el)f(in)h(our)f(class)i(hierarc)o(h)
+o(y)f(de\014nes)0 1957 y(a)26 b(fork)f(with)h(t)o(w)o(o)f(branc)o(hes:)44
+b(the)27 b Fd(<)p Fn(Tk-widget)p Fd(>)0 2007 y Fm(class)17
+b(and)f Fd(<)p Fn(Tk-c)n(anvas-item)p Fd(>)h Fm(class.)26 b(Instances)18
+b(of)0 2056 y(the)24 b(former)f(class)h(are)g(classical)f(widgets)h(suc)o(h)g
+(as)0 2106 y(buttons)g(or)f(men)o(us)g(since)h(instances)g(of)f(the)h(later)0
+2156 y(are)19 b(ob)r(jects)h(con)o(tained)f(in)g(a)f(can)o(v)n(as)h(suc)o(h)g
+(as)g(lines)0 2206 y(or)i(rectangles.)43 b(Tk)21 b(widgets)h(are)g(also)f
+(divided)g(in)0 2256 y(t)o(w)o(o)16 b(categories:)25 b Fd(<)p
+Fn(Tk-simple-widgets)p Fd(>)16 b Fm(and)g Fd(<)p Fn(Tk-)0 2305
+y(c)n(omp)n(osite-widgets)p Fd(>)p Fm(.)k(Simple)12 b(widgets)j(are)g
+(directly)0 2355 y(implemen)o(ted)g(as)i(Tk)h(ob)r(jects)g(and)f(comp)q
+(osite)g(ones)0 2405 y(are)f(built)e(up)q(on)h(simple)f(widgets)h(\(e.g.)22
+b(\014le)15 b(bro)o(wser,)0 2455 y(alert)f(messages)h(and)f(so)h(on\).)k(A)14
+b(partial)g(view)g(of)g(the)p 0 2493 352 2 v 46 2520 a Fg(2)64
+2532 y Ff(All)e(classes)f(whose)h(name)f(b)q(egins)g(with)i(the)e(\\Tk-")h
+(pre\014x)0 2571 y(are)f(not)g(in)o(tended)e(for)i(the)f(\014nal)h(user.)921
+1657 y Fo(STk)16 b Fm(hierarc)o(h)o(y)e(is)g(sho)o(wn)g(in)f(Figure)h(2.)921
+1771 y Fe(3.2)55 b(Basic)19 b(notions)921 1844 y Fm(This)d(section)h(describ)
+q(es)i(basic)d(concepts)i(of)e(our)g(ob-)921 1889 y(ject)f(extension)h(on)f
+(a)g(small)d(example.)20 b(De\014nition)15 b(of)921 1935 y(a)c(new)i(ob)r
+(ject)f(class)h(is)e(done)h(with)g(the)g Fn(defclass)g Fm(form.)921
+1981 y(F)m(or)h(instance,)999 2048 y Fi(\(defclass)j(person)i(\(\))1058
+2093 y(\(\(name)f(:initarg)g(:name)1195 2139 y(:accessor)f(name)1078
+2185 y(\(age)37 b(:initarg)17 b(:age\)\)\)\))921 2252 y Fm(de\014nes)k(a)e(p)
+q(erson)h(c)o(haracteristics.)36 b(Tw)o(o)19 b(slots)h(are)921
+2297 y(declared:)e Fj(name)11 b Fm(and)i Fj(age)p Fm(.)k(Characteristics)c
+(of)f(a)g(slot)921 2343 y(are)19 b(expressed)j(with)d(its)g(de\014nition.)33
+b(Here,)22 b(for)d(in-)921 2389 y(stance,)14 b(it)f(is)g(said)g(that)g(the)h
+(slot)f Fj(name)g Fm(can)g(b)q(e)h(inited)921 2434 y(with)i(the)h(k)o(eyw)o
+(ord)f Fj(:name)f Fm(up)q(on)i(instance)g(creation)921 2480
+y(and)h(that)g(an)g(accessor)i(function)e(should)f(b)q(e)i(gener-)921
+2526 y(ated)f(for)f(it.)28 b(Creation)17 b(of)g(a)g(new)h(instance)g(is)g
+(done)921 2571 y(with)13 b(the)i Fj(make)e Fm(constructor:)890
+2675 y(3)p eop
+%%Page: 2 5
+2 4 bop 0 141 a Fm(is)14 b(considered)h(as)g(a)e(new)i(basic)f(t)o(yp)q(e)h
+(b)o(y)f(the)g(Sc)o(heme)0 187 y(in)o(terpreter,)j(is)e(automatically)d
+(stored)k(in)e(a)h(v)n(ariable)0 232 y(whose)h(name)e(is)i(equal)f(to)g(the)h
+(string)g(passed)g(to)g(the)0 278 y(creation)g(function.)21
+b(So,)15 b(the)h(preceding)g(button)f(cre-)0 324 y(ation)9
+b(w)o(ould)g(de\014ne)i(an)f(ob)r(ject)h(stored)g(in)e(the)i
+Fj(.b)e Fm(v)n(ari-)0 369 y(able.)25 b(This)16 b(ob)r(ject)h(is)f(a)g(sp)q
+(ecial)h(kind)f(of)f(pro)q(cedure)0 415 y(whic)o(h)j(is)g(generally)g(used,)i
+(as)f(in)e(pure)j(Tk,)e(to)h(cus-)0 461 y(tomize)e(its)h(asso)q(ciated)h
+(widget.)30 b(F)m(or)18 b(instance,)i(the)0 506 y(expression)78
+584 y Fi(\(.b)f('configur)o(e)157 630 y('-text)e("Hello,)g(world")157
+675 y('-border)f(3\))0 753 y Fm(p)q(ermits)g(to)g(set)i(the)f(text)g(and)f
+(bac)o(kground)h(options)0 798 y(of)f(the)i Fj(.b)e Fm(button.)28
+b(As)17 b(w)o(e)h(can)f(see)h(on)f(this)g(exam-)0 844 y(ple,)k(parameters)e
+(m)o(ust)g(b)q(e)h(w)o(ell)f(quoted)h(in)f(regard)0 890 y(of)c(the)h(Sc)o
+(heme)f(ev)n(aluation)f(rules.)23 b(Since)15 b(this)h(nota-)0
+935 y(tion)f(is)g(barely)h(crude,)g(the)h(Commo)o(n)c(Lisp)i(k)o(eyw)o(ord)0
+981 y(mec)o(hanism)i(has)i(b)q(een)h(in)o(tro)q(duced)g(in)f(the)g(Sc)o(heme)
+0 1027 y(in)o(terpreter)i([)p Fl(?)p Fm(])292 1012 y Fh(1)311
+1027 y Fm(.)34 b(Consequen)o(tly)m(,)20 b(the)g(preceding)0
+1072 y(expression)15 b(could)f(ha)o(v)o(e)f(b)q(een)i(written)g(as)78
+1150 y Fi(\(.b)k('configur)o(e)157 1196 y(:text)f("Hello,)f(world")157
+1241 y(:border)g(3\))0 1319 y Fm(whic)o(h)g(in)g(turn)h(is)f(b)q(oth)h(close)
+g(from)d(Common)f(Lisp)0 1364 y(and)c(pure)h(Tk.)17 b(Of)10
+b(course,)h(as)g(in)e(Tk,)i(parameters)f(can)0 1410 y(b)q(e)h(passed)h(at)f
+(widget)g(creation)g(time)e(and)i(our)g(button)0 1456 y(creation)k(and)g
+(initialization)e(could)i(ha)o(v)o(e)g(b)q(een)h(done)0 1501
+y(in)d(a)h(single)g(expression:)78 1579 y Fi(\(button)j(.b)235
+1624 y(:text)h("Hello,)f(world")235 1670 y(:border)g(3\))42
+1748 y Fm(The)j(Tk)f(binding)g(mec)o(hanism,)f(whic)o(h)h(serv)o(es)i(to)0
+1793 y(create)11 b(widget)f(ev)o(en)o(t)h(handlers)f(follo)o(w)e(the)j(same)e
+(kind)0 1839 y(of)i(rules.)18 b(The)13 b(b)q(o)q(dy)f(of)f(a)g(Tk)h(handler)g
+(m)o(ust)f(b)q(e)h(writ-)0 1885 y(ten,)23 b(of)e(course,)j(in)c(Sc)o(heme.)40
+b(F)m(ollo)o(wing)18 b(example)0 1930 y(sho)o(ws)h(suc)o(h)h(a)e(script;)k
+(in)c(this)h(example,)f(the)i(lab)q(el)0 1976 y(indicates)g(ho)o(w)e(man)o(y)
+g(times)g(mouse)h(button)g(3)g(has)0 2022 y(b)q(een)c(depressed.)22
+b(Button)15 b(press)h(coun)o(ter)f(incremen)o(t)0 2067 y(is)k(ac)o(hiev)o(ed)
+h(with)f(the)h(simple)e(script)j(giv)o(en)e(in)g(the)0 2113
+y Fj(bind)13 b Fm(call.)78 2190 y Fi(\(define)k(count)h(0\))78
+2236 y(\(pack)g('append)f(".")196 2282 y(\(label)g(".l")353
+2327 y(:textvaria)o(bl)o(e)g('count\))353 2373 y("fill"\))78
+2419 y(\(bind)h(.l)h("<3>")255 2464 y('\(set!)e(count)h(\(+)h(count)e
+(1\)\)\))p 0 2493 352 2 v 46 2520 a Fg(1)64 2532 y Ff(A)10
+b(k)o(eyw)o(ord)f(is)g(a)h(sym)o(b)q(ol)e(b)q(eginning)f(with)j(a)g(colon.)j
+(It)c(can)0 2571 y(b)q(een)h(seen)h(as)g(a)h(sym)o(b)q(olic)d(constan)o(t)g
+(\(i.e.)15 b(its)c(v)n(alue)f(is)i(itself)s(\))962 141 y Fm(T)m(o)i
+(illustrate)h Fo(STk)31 b Fm(\014rst)16 b(lev)o(el)e(of)g(programming)o(,)921
+191 y(Figure)g(1)g(sho)o(ws)h(the)g(simple)e(\014le)h(bro)o(wser)h(describ)q
+(ed)921 241 y(in)e([)p Fl(?)p Fm(])k(written)e(in)e Fo(STk)j
+Fm(.)921 400 y Fp(3)69 b Fk(STk)23 b Fp(:)31 b(Second)23 b(lev)n(el)921
+498 y Fm(Programming)7 b(with)k(material)e(sho)o(wn)i(b)q(efore)g(is)g(a)g
+(lit-)921 548 y(tle)17 b(bit)g(tedious)g(and)g(more)f(complicated)g(than)h
+(co)q(d-)921 598 y(ing)g(with)h(Tcl)g(since)h(one)g(ha)o(v)o(e)f(to)g(add)g
+(paren)o(thesis)921 648 y(pairs)d(and)f(quote)i(options)e(v)n(alues.)21
+b(Its)16 b(only)e(in)o(terest)921 697 y(is)g(to)f(bring)h(the)g(p)q(o)o(w)o
+(er)g(and)g(\015exibilit)o(y)f(of)g(Tk)h(to)f(the)921 747 y(Sc)o(heme)h(w)o
+(orld.)962 801 y(The)j(second)g(lev)o(el)f(of)f Fo(STk)k Fm(is)d(far)g(more)f
+(in)o(terest-)921 851 y(ing)g(since)i(it)e(uses)i(a)f(full)e(ob)r(ject)j
+(orien)o(ted)f(extension)921 901 y(of)e(the)i(Sc)o(heme)f(language.)21
+b(De\014ning)15 b(an)g(ob)r(ject)h(ori-)921 950 y(en)o(ted)21
+b(la)o(y)o(er)g(on)f(Sc)o(heme)h(is)f(a)g(curren)o(t)j(activit)o(y)c(in)921
+1000 y(the)14 b(Sc)o(heme)g(comm)o(unit)o(y)d(and)i(sev)o(eral)i(pac)o(k)n
+(ages)f(are)921 1050 y(a)o(v)n(ailable.)36 b(The)21 b(ob)r(ject)g(la)o(y)o
+(er)f(of)g Fo(STk)j Fm(is)d(deriv)o(ed)921 1100 y(from)12 b(a)h(pac)o(k)n
+(age)h(called)f Fn(Tiny)i(Clos)e Fm([)p Fl(?)p Fm(].)j(This)e(exten-)921
+1150 y(sion)h(pro)o(vides)g(ob)r(jects)i Fn(\022)-21 b(a)16
+b(la)f Fm(CLOS)h(\(Common)c(Lisp)921 1200 y(Ob)r(ject)j(System\).)k(In)14
+b(fact,)f(the)i(prop)q(osed)g(extension)921 1249 y(is)i(m)o(uc)o(h)f(closer)i
+(from)d(the)j(ob)r(jects)g(one)g(can)f(\014nd)g(in)921 1299
+y(Dylan,)c(since)j(this)e(language)g(is)h(already)f(a)h(ten)o(tativ)o(e)921
+1349 y(to)10 b(merge)f(CLOS)h(notions)g(in)f(a)h(Sc)o(heme)g(lik)o(e)f
+(language)921 1399 y([)p Fl(?)p Fm(].)962 1453 y Fo(STk)19
+b Fm(ob)r(ject)f(extension)f(giv)o(es)g(to)g(the)g(user)h(a)e(full)921
+1503 y(ob)r(ject)27 b(orien)o(ted)g(system)f(with)h(m)o(ulti-inheritance)921
+1552 y(and)16 b(generic)h(functions.)26 b(F)m(urthermore,)17
+b(all)e(the)i(im-)921 1602 y(plemen)o(tation)9 b(rely)h(on)h(a)f(true)i(meta)
+d(ob)r(ject)j(proto)q(col,)921 1652 y(in)i(the)h(spirit)f(of)g([)p
+Fl(?)p Fm(].)k(This)c(mo)q(del)f(has)h(b)q(een)i(used)f(to)921
+1702 y(em)o(b)q(o)q(dy)f(all)g(the)i(prede\014ned)h(Tk)e(widgets)g(in)g(a)g
+(hier-)921 1752 y(arc)o(h)o(y)f(of)f(Stk)h(classes.)921 1889
+y Fe(3.1)55 b(Class)20 b(hierarc)n(h)n(y)921 1974 y Fm(With)11
+b(the)h Fo(STk)h Fm(ob)r(ject)g(system,)e(ev)o(ery)h(Tk)g(graphical)921
+2023 y(ob)r(ject)17 b(used)g(in)f(a)g(program)f(suc)o(h)i(as)g(a)f(men)o(u,)g
+(a)g(la-)921 2073 y(b)q(el)c(or)h(a)f(button)h(is)f(represen)o(ted)k(as)d(an)
+f(ob)r(ject)h(in)f(the)921 2123 y(Sc)o(heme)e(core.)18 b(All)9
+b(the)i(de\014ned)h Fo(STk)23 b Fm(classes)12 b(build)d(a)921
+2173 y(hierarc)o(h)o(y)j(whic)o(h)g(is)g(brie\015y)h(describ)q(ed)g(here.)19
+b(Firstly)m(,)921 2223 y(all)j(the)j(classes)g(shared)f(a)g(unique)f
+(ancestor:)39 b(the)921 2272 y Fd(<)p Fn(Tk-obje)n(ct)p Fd(>)18
+b Fm(class.)33 b(Instances)20 b(of)e(this)h(class)g(con-)921
+2322 y(tain)e(informations)e(whic)o(h)i(are)h(necessary)h(to)e(estab-)921
+2372 y(lish)h(a)h(comm)o(unication)d(b)q(et)o(w)o(een)k(the)g(Sc)o(heme)f
+(and)921 2422 y(Tk)d(w)o(orlds.)25 b(Ob)r(jects)18 b(of)d(this)i(class)f(ha)o
+(v)o(e)g(t)o(w)o(o)g(main)921 2472 y(slots)j(named)f Fj(Id)h
+Fm(and)g Fj(parent)p Fm(.)33 b(The)20 b Fj(Id)f Fm(slot)g(con-)921
+2522 y(tains)11 b(a)h(string,)g(normally)d(generated)k(b)o(y)e(the)i(system,)
+921 2571 y(whic)o(h)g(corresp)q(ond)i(to)e(a)g(\(unique\))g(v)n(ariable)f
+(name)g(in)890 2675 y(2)p eop
+%%Page: 1 6
+1 5 bop 165 274 a Fr(Em)n(b)r(edding)20 b(a)h(Sc)n(heme)g(In)n(terpreter)j
+(in)e(the)f(Tk)h(T)-6 b(o)r(olkit)752 394 y Fq(Eric)o(k)15
+b(Gallesio)487 452 y(Univ)o(ersit)o(\023)-23 b(e)14 b(de)i(Nice)31
+b(-)i(Sophia-An)o(tip)q(olis)431 511 y(Lab)q(oratoire)18 b(I3S)e(-)h(CNRS)f
+(URA)f(1376)j(-)f(B^)-24 b(at)16 b(4.)604 569 y(250,)h(a)o(v)o(en)o(ue)e(Alb)
+q(ert)g(Einstein)723 627 y(Sophia)i(An)o(tip)q(olis)602 685
+y(06560)i(V)l(alb)q(onne)d(-)g(FRANCE)0 848 y Fp(Abstract)0
+940 y Fo(STk)e Fn(is)f(a)h(gr)n(aphic)n(al)f(p)n(ackage)h(which)f(r)n(ely)g
+(on)g(Tk)g(and)0 990 y(the)18 b(Scheme)h(pr)n(o)n(gr)n(amming)e(language.)29
+b(Concr)n(etely,)0 1040 y(it)18 b(c)n(an)h(b)n(e)f(se)n(en)h(as)g(the)f(Tk)g
+(p)n(ackage)i(wher)n(e)d(the)i(Tcl)0 1090 y(language)24 b(as)f(b)n(e)n(en)h
+Fm(replaced)g Fn(by)f(a)g(Scheme)h(inter-)0 1140 y(pr)n(eter.)f(Pr)n(o)n(gr)n
+(amming)16 b(with)g Fo(STk)35 b Fn(c)n(an)17 b(b)n(e)g(done)g(at)0
+1189 y(two)h(distinct)g(levels.)29 b(First)17 b(level)h(is)g(quite)h(identic)
+n(al)0 1239 y(than)f(pr)n(o)n(gr)n(amming)f(Tk)h(with)f(Tcl.)26
+b(Se)n(c)n(ond)19 b(level)e(of)0 1289 y(pr)n(o)n(gr)n(amming)g(uses)i(a)f
+(ful)r(l)f(obje)n(ct)h(oriente)n(d)g(system.)0 1339 y(Those)12
+b(two)f(pr)n(o)n(gr)n(amming)g(levels)g(and)i(curr)n(ent)e(imple-)0
+1389 y(mentation)k(ar)n(e)g(describ)n(e)n(d)f(her)n(e.)0 1531
+y Fp(1)69 b(In)n(tro)r(duction)0 1624 y Fm(T)m(o)q(da)o(y's)16
+b(a)o(v)n(ailable)f(graphical)i(to)q(olkits)f(for)h(applica-)0
+1674 y(tiv)o(e)f(languages)g(are)g(not)h(satisfactory)m(.)24
+b(Most)17 b(of)f(the)0 1724 y(time,)9 b(they)h(ask)f(to)g(the)i(user)f(to)f
+(b)q(e)i(an)e(X)g(exp)q(ert)i(whic)o(h)0 1773 y(m)o(ust)k(cop)q(e)i(with)e
+(complicated)g(arcane)i(details)e(suc)o(h)0 1823 y(as)g(serv)o(er)i
+(connections)g(or)e(queue)h(ev)o(en)o(ts.)24 b(This)15 b(is)g(a)0
+1873 y(true)20 b(problem,)e(since)h(p)q(eople)h(whic)o(h)e(use)i(this)f(kind)
+0 1923 y(of)13 b(languages)g(are)g(generally)g(not)h(inclined)f(in)f(system)0
+1973 y(programming)e(and)j(little)f(of)h(them)g(get)g(o)o(v)o(er)h(the)g(gap)
+0 2022 y(b)q(et)o(w)o(een)f(the)f(language)e(and)i(the)g(to)q(olkit)e
+(abstraction)0 2072 y(lev)o(els.)42 2123 y(Tk)j(is)g(a)h(p)q(o)o(w)o(erful)f
+(X11)g(graphical)g(to)q(olkit)f(de\014ned)0 2173 y(at)21 b(the)h(Univ)o
+(ersit)o(y)f(of)g(Berk)o(eley)i(b)o(y)e(J.Ousterhout)0 2223
+y([)p Fl(?)p Fm(].)c(This)c(to)q(olkit)g(giv)o(es)g(to)h(the)g(user)h(high)e
+(lev)o(el)g(wid-)0 2272 y(gets)k(suc)o(h)g(as)g(buttons)g(or)f(men)o(u)g(and)
+g(is)g(easily)g(pro-)0 2322 y(grammabl)o(e.)25 b(In)17 b(particular,)g(a)g
+(little)f(kno)o(wledge)h(of)0 2372 y(X)f(fundamen)o(tals)e(are)i(needed)h(to)
+f(build)f(an)g(applica-)0 2422 y(tion)10 b(with)h(it.)17 b(Tk)10
+b(pac)o(k)n(age)h(rely)g(on)g(an)f(in)o(terpretativ)o(e)0 2472
+y(language)k(named)g(Tcl)h([)p Fl(?)p Fm(].)k(Ho)o(w)o(ev)o(er,)d(dep)q
+(endencies)0 2522 y(b)q(et)o(w)o(een)e(those)g(t)o(w)o(o)f(pac)o(k)n(ages)g
+(are)g(not)g(to)q(o)g(in)o(tricate)0 2571 y(and)e(replacing)h(Tcl)f(b)o(y)g
+(an)g(applicativ)o(e)g(language)f(w)o(as)921 848 y(an)i(exciting)h(c)o
+(hallenge.)k(T)m(o)12 b(k)o(eep)h(in)o(tact)g(the)g(Tk/Tcl)921
+897 y(pair)h(spirit,)g(a)g(little)f(applicativ)o(e)h(language)f(w)o(as)h
+(nec-)921 947 y(essary)m(.)25 b(Sc)o(heme)16 b([)p Fl(?)p Fm(])23
+b(w)o(as)16 b(a)g(go)q(o)q(d)f(candidate)i(to)e(re-)921 997
+y(place)f(Tcl,)g(b)q(ecause)i(it)e(is)h(small,)c(clean)k(and)f(w)o(ell)g(de-)
+921 1047 y(\014ned)g(since)h(it)e(is)h(an)g(IEEE)g(standard)h([)p
+Fl(?)p Fm(].)962 1097 y(Programming)e(with)j Fo(STk)36 b Fm(can)16
+b(b)q(e)h(done)g(at)f(t)o(w)o(o)921 1147 y(distinct)f(lev)o(els.)21
+b(First)15 b(lev)o(el)g(is)g(quite)g(iden)o(tical)f(than)921
+1196 y(programmi)o(ng)c(Tk)j(with)g(Tcl,)g(excepting)g(sev)o(eral)h(mi-)921
+1246 y(nor)21 b(syn)o(tactic)g(di\013erences.)41 b(Second)21
+b(lev)o(el)g(of)f(pro-)921 1296 y(grammi)o(ng)k(uses)k(a)f(full)e(ob)r(ject)j
+(orien)o(ted)f(system)921 1346 y(\(with)16 b(m)o(ulti-inheritance,)e(generic)
+j(functions)f(and)g(a)921 1396 y(true)h(meta)e(ob)r(ject)i(proto)q(col\).)25
+b(Those)17 b(t)o(w)o(o)f(lev)o(els)h(of)921 1445 y(programmi)o(ng)7
+b(are)j(brie\015y)g(describ)q(ed)i(in)d(the)i(t)o(w)o(o)e(\014rst)921
+1495 y(sections.)19 b(Section)14 b(4)f(is)h(dev)o(oted)g(to)f(implemen)o
+(tation)921 1545 y(and)c(section)i(5)e(exp)q(oses)i(some)e(encoun)o(tered)j
+(problems)921 1595 y(when)i(mixing)d(Tk)j(and)g(Sc)o(heme.)921
+1733 y Fp(2)69 b Fk(STk)23 b Fp(:)31 b(First)22 b(lev)n(el)921
+1824 y Fm(The)12 b(\014rst)h(lev)o(el)f(of)g Fo(STk)26 b Fm(uses)14
+b(the)e(standard)h(Sc)o(heme)921 1873 y(constructs.)35 b(T)m(o)18
+b(w)o(ork)h(at)g(this)g(lev)o(el,)g(a)g(user)h(m)o(ust)921
+1923 y(kno)o(w)13 b(a)g(little)f(set)i(of)f(rewriting)g(rules)h(from)e(the)i
+(orig-)921 1973 y(inal)19 b(Tk-Tcl)i(library)m(.)37 b(With)20
+b(these)i(rules,)h(the)e(Tk)921 2023 y(man)o(ual)13 b(pages)i(and)h(a)f
+(little)g(kno)o(wledge)g(of)g(Sc)o(heme,)921 2073 y(he/she)g(can)f(easily)f
+(build)g(a)h Fo(STk)30 b Fm(program.)962 2123 y(Creation)16
+b(of)f(a)h(new)g(widget)g(\(button,)g(lab)q(el,)f(can-)921
+2172 y(v)n(as,)d(...\))k(is)d(done)f(with)g(sp)q(ecial)h Fo(STk)i
+Fm(primitiv)o(es)10 b(pro-)921 2222 y(cedures.)19 b(F)m(or)12
+b(instance,)h(creating)g(a)f(new)g(button)h(can)921 2272 y(b)q(e)h(done)g
+(with)1008 2355 y Fj(\(button)20 b(".b"\))921 2434 y Fm(Note)28
+b(that)f(the)h(name)f(of)f(the)j(widget)e(m)o(ust)f(b)q(e)921
+2480 y(\\stringi\014ed")11 b(due)i(to)e(the)i(Sc)o(heme)e(ev)n(aluation)g
+(mec)o(h-)921 2526 y(anism.)30 b(The)19 b(call)f(of)g(a)h(widget)f(creation)h
+(primitiv)o(e)921 2571 y(de\014nes)14 b(a)f(new)h(Sc)o(heme)f(ob)r(ject.)18
+b(This)13 b(ob)r(ject,)h(whic)o(h)890 2675 y(1)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Doc/Tcl93/Tcl93.tex b/Doc/Tcl93/Tcl93.tex
new file mode 100644
index 0000000..0579f63
--- /dev/null
+++ b/Doc/Tcl93/Tcl93.tex
@@ -0,0 +1,513 @@
+%
+% Tcl-93 Presentation of Stk
+%
+%           Author: Erick Gallesio [eg@kaolin.unice.fr]
+%    Creation date:  5-Apr-1993 12:29
+% Last file update: 24-May-1993 22:12
+
+
+\documentstyle[twocolumn,tcl]{article}
+\input{psfig}
+\begin{document}
+\bibliographystyle{unsrt}
+
+%
+% Commands
+% 
+
+\newcommand{\stk}{{\sc STk }}
+\title{Embedding a Scheme Interpreter in the Tk Toolkit}
+{\footnotesize
+\author{
+Erick Gallesio \\
+Universit\'e de Nice~~-~~Sophia-Antipolis \\
+Laboratoire I3S - CNRS URA 1376 - B\^at 4. \\
+250, avenue Albert Einstein \\
+Sophia Antipolis \\
+06560 Valbonne - FRANCE}}
+\date{}
+\maketitle
+\vskip1cm
+\begin{abstract}
+{\it \stk is a graphical package which rely on Tk and the Scheme programming
+language. Concretely, it can be seen as the Tk package where the
+Tcl language as been {\em replaced} by a Scheme interpreter.  Programming with
+{\stk} can be done at two distinct levels. First level is quite identical than
+programming Tk with Tcl. Second level of programming uses a full object
+oriented system. Those two programming levels and current implementation are
+described here.}
+\end{abstract}
+
+
+\section{Introduction}
+Today's available graphical toolkits for applicative languages are not
+satisfactory. Most of the time, they ask to the user to be an X expert which
+must cope with complicated arcane details such as server connections or queue
+events.  This is a true problem, since people which use this kind of languages
+are generally not inclined in system programming and little of them get over
+the gap between the language and the toolkit abstraction levels.
+
+Tk is a powerful X11 graphical tool\-kit de\-fi\-ned at the University of Berkeley
+by J.Ousterhout \cite{Ouster-Tk}. This toolkit gives to the user high level
+widgets such as buttons or menu and is easily programmable. In particular, a
+little knowledge of X fundamentals are needed to build an application with it.
+Tk package rely on an interpretative language named Tcl \cite{Ouster-Tcl}.
+However, dependencies between those two packages are not too intricate and
+replacing Tcl by an applicative language was an exciting challenge. To keep
+intact the Tk/Tcl pair spirit, a little applicative language was necessary.
+Scheme \cite{SICP} was a good candidate to replace Tcl, because it is small,
+clean and well defined since it is an IEEE standard
+\cite{IEEE-Scheme}. 
+
+Programming with {\stk} can be done at two distinct levels. First level is
+quite identical than programming Tk with Tcl, excepting several minor
+syntactic differences. Second level of programming uses a full object oriented
+system (with multi-inheritance, generic functions and a true meta object
+protocol). Those two levels of programming are briefly described in the two first
+sections. Section 4 is devoted to implementation and section 5 exposes some
+encountered problems when mixing Tk and Scheme.
+
+\section{\stk: First level}
+
+The first level of {\stk} uses the standard Scheme constructs. To work at
+this level, a user must know a little set of rewriting rules from the
+original Tk-Tcl library. With these rules, the Tk manual pages and a little
+knowledge of Scheme, he/she can easily build a {\stk} program.
+
+Creation of a new widget (button, label, canvas, ...) is done with special \stk
+primitives procedures. For instance, creating a new button can be done with
+\begin{verbatim}
+    (button ".b")
+\end{verbatim}
+Note that the name of the widget must be ``stringified'' due to the Scheme
+evaluation mechanism. The call of a widget creation primitive defines a new
+Scheme object. This object, which is considered as a new basic type by the
+Scheme interpreter, is automatically stored in a variable whose name is equal
+to the string passed to the creation function. So, the preceding button
+creation would define an object stored in the~{\tt .b} variable. This object
+is a special kind of procedure which is generally used, as in pure Tk, to
+customize its associated widget. For instance, the expression {\small
+\begin{verbatim}
+    (.b 'configure 
+        '-text "Hello, world" 
+        '-border 3)
+\end{verbatim}
+}
+\noindent
+permits to set the text and background options of the~{\tt .b} button. As
+we can see on this example, parameters must be well quoted in regard of the 
+Scheme evaluation rules. Since this notation is barely crude, the Common Lisp
+keyword mechanism has been introduced in the Scheme interpreter {\cite{CLtl2}}
+{\footnote{A keyword is a symbol beginning with a colon. It can been seen
+as a symbolic constant (i.e. its value is itself)}}. Consequently, the preceding
+expression could have been written as  
+\noindent
+{\small
+\begin{verbatim}
+    (.b 'configure 
+        :text "Hello, world" 
+        :border 3)
+\end{verbatim}
+}
+\noindent
+which in turn is both close from Common Lisp and pure Tk. Of course, as in
+Tk, parameters can be passed at widget creation time and our button creation
+and initialization could have been done in a single expression:
+{\small
+\begin{verbatim}
+    (button .b 
+            :text "Hello, world" 
+            :border 3)
+\end{verbatim}
+}
+
+The Tk binding mechanism, which serves to create widget event handlers follow
+the same kind of rules. The body of a Tk handler must be written, of
+course, in Scheme. Following example shows such a script; in this example, the
+label indicates how many times mouse button 3 has been depressed.
+Button press counter increment is achieved with the simple script
+given in the {\tt bind} call.
+{\small
+\begin{verbatim}
+    (define count 0)
+    (pack 'append "." 
+          (label ".l" 
+                  :textvariable 'count) 
+                  "fill")
+    (bind .l "<3>" 
+             '(set! count (+ count 1)))
+\end{verbatim}
+}
+
+To illustrate {\stk} first level of programming, Figure~1 shows the simple
+file browser described in {\cite{Ouster-Tcl}} written in {\stk}.
+
+\begin{figure*}[t]
+{\small
+\vskip2mm
+\begin{quote}
+\begin{verbatim}
+#!/usr/local/bin/stk -f
+
+(scrollbar ".scroll" :command ".list 'yview")
+(listbox ".list" :yscroll ".scroll 'set" :relief 'raised :geometry "20x20")
+(pack 'append "." .scroll "right filly" .list "left expand fill")
+
+(define (browse dir file)
+  (if (not (string=? dir ".")) (set! file (string-append dir "/" file)))
+  (if (directory? file)
+      (system (format #f "browse.stk ~A &" file))
+      (if (file? file)
+          (let ((ed (getenv "EDITOR")))
+            (if ed
+                (system (string-append ed " " file "&"))
+                (system (string-append "xedit " file "&"))))
+          (error "Bad directory or file" file))))
+
+(define dir (if (> argc 0) (car argv) "."))
+
+(system (format #f "ls -a ~A > /tmp/browse" dir))
+
+(with-input-from-file "/tmp/browse" (lambda()
+  (do ((f (read-line) (read-line)))
+      ((eof-object? f))
+    (.list 'insert 'end f))))
+
+(bind .list "<Control-c>" '(destroy "."))
+(bind .list "<Double-Button-1>" '(browse dir (selection 'get)))
+\end{verbatim}
+\end{quote}
+}
+\caption{\em A simple file browser}
+\vskip2mm
+\hrule
+\end{figure*}
+
+\section{\stk: Second level}
+
+Programming with material shown before is a little bit tedious and more
+complicated than coding with Tcl since one have to add parenthesis pairs and 
+quote options values. Its only interest is to bring the power and flexibility of
+Tk to the Scheme world. 
+
+The second level of \stk is far more interesting since it uses a full object
+oriented extension of the Scheme language. Defining an object oriented layer
+on Scheme is a current activity in the Scheme community and several packages
+are available. The object layer of \stk is derived from a package called {\em
+Tiny Clos}~{\cite{Tiny-Clos}}. This extension provides objects {\em \`a la}
+CLOS (Common Lisp Object System). In fact, the proposed extension is much
+closer from the objects one can find in Dylan, since this language is already
+a tentative to merge CLOS notions in a Scheme like language {\cite{Dylan}}.
+
+\stk object extension gives to the user a full object oriented 
+system with multi-inheritance and generic functions. Furthermore, all the
+implementation rely on a true meta object protocol, in the spirit of
+{\cite{AMOP}}. This model has been used to embody all the predefined Tk
+widgets in a hierarchy of Stk classes.
+
+\subsection{Class hierarchy}
+
+With the \stk object system, every Tk graphical object used in a program such
+as a menu, a label or a button is represented as an object in the Scheme core.
+All the defined {\stk} classes build a hierarchy which is briefly described
+here. Firstly, all the classes shared a unique ancestor: the {\em
+$<$Tk-object$>$} class. Instances of this class contain informations which are
+necessary to establish a communication between the Scheme and Tk worlds.
+Objects of this class have two main slots named {\tt Id\index{Id slot}} and {\tt
+parent\index{parent slot}}. The {\tt Id} slot contains a string, normally
+generated by the system, which correspond to a (unique) variable name in the
+Tk world. The {\tt parent} slot contains a reference to the object which
+(graphically) includes the current object. Normally, end users will not have to
+use direct instances of the {\em $<$Tk-object$>$} class\footnote{ All classes
+whose name begins with the ``Tk-'' prefix are not intended for the final user.}.
+
+
+The next level in our class hierarchy defines a fork with two branches: the
+{\em $<$Tk-widget$>$\index{Tk-widget class}} class and {\em
+$<$Tk-canvas-item$>$\index{Tk-canvas-item class}} class. Instances of the
+former class are classical widgets such as buttons or menus since instances of
+the later are objects contained in a canvas such as lines or rectangles. Tk
+widgets are also divided in two categories: {\em $<$Tk-simple-widgets$>$} and
+{\em $<$Tk-composite-widgets$>$}. Simple widgets are directly implemented as
+Tk objects and composite ones are built upon simple widgets (e.g. file
+browser, alert messages and so on).  A partial view of the
+\stk hierarchy is shown in Figure~2.
+\begin{figure*}
+%\centerline{\psfig{figure={Fig1-1.idraw},height={2.00in},width={2.00in}}}
+\centerline{\psfig{figure={hierarchy.eps},width={5.00in},width={5.00in}}}
+\caption{\em A partial view of \stk hierarchy}
+\vskip2mm
+\hrule
+\end{figure*}
+
+\subsection{Basic notions}
+
+This section describes basic concepts of our object extension on a small 
+example. Definition of a new object class is done with the {\em defclass} form. 
+For instance,
+{\small
+\begin{verbatim}
+    (defclass person ()
+       ((name :initarg :name
+              :accessor name 
+        (age  :initarg :age))))
+\end{verbatim}
+}
+\noindent
+defines a person characteristics. Two slots are declared: {\tt name} and 
+{\tt age}. Characteristics of a slot are expressed with its definition. 
+Here, for instance, it is said that the slot {\tt name} can be inited with 
+the keyword {\tt :name} upon instance creation and that an accessor function 
+should be generated for it. Creation of a new instance is done with the 
+{\tt make} constructor:
+{\small
+\begin{verbatim}
+    (define p (make person 
+                   :name "Smith"
+                   :age 42))
+\end{verbatim}
+}
+\noindent
+This call permits to build a new person and to initialize the slots which
+compose him/her.
+
+Reading the value of a slot can be done with the function {\tt slot-value}.
+For instance,
+{\small
+\begin{verbatim}
+    (slot-value p 'age)
+\end{verbatim}
+}
+\noindent
+permits to get the value of slot {\tt age} of the {\tt p} object.
+Setting this slot can be done by using the generalized {\tt set!} defined in \stk:
+{\small
+\begin{verbatim}
+    (set! (slot-value p 'age) 43)
+\end{verbatim}
+}
+\noindent
+Since an accessor as also been defined on the {\tt name} slot, it can be read
+with the following expression:
+{\small
+\begin{verbatim}
+    (name p)
+\end{verbatim}
+}
+As before, slot setting can be done with the generalized {\tt set!} as in
+{\small
+\begin{verbatim}
+    (set! (name p) 43)
+\end{verbatim}
+}
+
+\subsection{Tk classes}
+Now that basic concepts have been exposed, let come back to how using Tk with
+the object layer. In our model, each Tk option is defined as a slot. For
+instance, a simplified definition of a Tk button could be:
+{\small
+\begin{verbatim}
+    (defclass <Button> (<Label>)
+       ((command :accessor command
+                 :initarg :command
+                 :allocation :pseudo
+                 :type 'any))
+       :metaclass <Tk>)
+\end{verbatim}
+}
+
+This definition says that a {\tt $<$Button$>$} is a ({\em inherits} from) {\tt
+$<$Label$>$} with an extra slot called {\tt command}. This slot's allocation
+scheme is said to be {\tt :pseudo}\footnote{ Pseudo-slots are defined in the
+metaclass $<$Tk$>$, hence the {\tt :metaclass} option in definition.}.
+Pseudo-slots are special purpose slots: they can be used as normal slots but
+they are not allocated in the Scheme world (i.e. their value is stored in
+one of the structures manipulated by the Tk library instead of in a Scheme
+object). Of course, accessors will take into account this fact and functions
+for reading or writing such slots are unchanged. For example, 
+{\small
+\begin{verbatim}
+    (set! (command b) '(display "OK"))
+\end{verbatim}
+}
+\noindent
+permits to set the script associated to the {\tt b} button.
+
+Preceding {\tt defclass} states that the {\tt command} slot can contain a
+value of any type. Type of a slot permits to the system to apply the adequate
+coercion function when a slot is read. Since Tk always computes results as
+strings, this conversion can be done automatically when we know the type of
+the slot (e.g. a border width is always stored as an integer in Tk
+structures). No conversion is done when a slot is written; this work is done
+by Tk since it will reject bad values.
+
+Note that using the object extension of \stk permits the user to forget some Tk
+idiosyncrasies. In particular, it permits to avoid the knowledge of pure Tk
+naming conventions. The only thing the user has to know when creating a new
+object is it's parent. An example of widgets creation is shown below:
+{\small 
+\begin{verbatim}
+    (define f (make <Frame>))
+    (define b1 (make <Button> 
+                     :text "B1" 
+                     :parent f))
+    (define b2 (make <Button> 
+                     :text "B2" 
+                     :parent f))
+\end{verbatim}
+}
+Created buttons here specify that their parent is the frame {\tt f}. Since
+this frame does not specify a particular parent, it is supposed to be a direct
+descendant of the root window {\tt "."}. This parent's notion is also used for
+canvas items: a canvas item is considered as a son of the canvas which contains
+it. For instance,
+{\small
+\begin{verbatim}
+    (define c (make <Canvas>))
+    (define r (make <Rectangle> 
+                    :parent c 
+                    :coords '(0 0 50 50)))
+\end{verbatim}
+}
+\noindent
+defines a rectangle called {\tt r} in the {\tt c} canvas. User can now forget 
+that {\tt r} is included in {\tt c} since this information is embedded in the 
+Scheme object. To move this
+rectangle, one can use for example the following expression:
+{\small
+\begin{verbatim}
+    (move r 10 10)
+\end{verbatim}
+}
+\noindent
+which is more natural than the things we have to do at \stk first level.
+
+\subsection{Generic functions}
+
+With the \stk object layer, execution of a method doesn't use the classical
+message sending mechanism as in numerous object languages but generic
+functions. The mechanism implemented in \stk is a subset of the generic
+functions of CLOS. As in CLOS, a generic function can have several methods
+associated with it. These methods describe the generic function behaviour
+according to the type of its parameters. A method for a generic function is
+defined with the {\em define-method} form.
+
+Following example shows three methods of the generic function {\tt value-of}:
+{\small
+\begin{verbatim}
+   (define-method value-of ((obj <Scale>))
+     (string->number ((Id obj) 'get)))
+
+   (define-method value-of ((obj <Entry>))
+     ((Id obj) 'get))
+    
+   (define-method value-of (obj)
+     (error "Bad call: " obj))
+\end{verbatim}
+}
+\noindent
+When calling the {\tt value-of} generic function, system will choose 
+the more adequate method, according to its parameter type: if parameter is a
+scale or an entry, first  or second method is called; otherwise the third
+method is called since it doesn't discriminates in favour of a particular
+parameter type.
+
+Setter method are a special kind of methods which are used with the
+generalized {\tt set!}. Here are the corresponding setter methods to previous 
+{\tt value-of}:
+{\small
+\begin{verbatim}
+    (define-method (setter value-of)
+                   ((obj <Scale>) value)
+      ((Id obj) 'set value))
+
+    (define-method (setter value-of)
+                   ((obj <Entry>) value)
+      ((Id obj) 'delete 0 'end)
+      ((Id obj) 'insert 0 value))
+    
+    (define-method (setter value-of) (obj)
+      (error "Bad call: " obj))
+\end{verbatim}
+}
+\noindent
+One of these methods will be called when evaluating following form, depending
+of type of {\tt x}:
+{\small
+\begin{verbatim}
+    (set! (value-of x) 100)
+\end{verbatim}
+}
+\noindent
+As we can see here, generic functions yield things more homogeneous than what
+we can have at \stk first level. Indeed getting and setting the value of an
+entry or a scale can now be done in a similar fashion with those methods.
+
+\section{Implementation - Performances}
+The \stk interpreter is written in C and for some parts in Scheme. The object
+oriented layer presented in section 3 is totally written in Scheme.  The
+Scheme interpreter is as far as possible conform with R4RS \cite{R4RS}. It
+is important to note that the Tk library is used unmodified in this
+interpreter.  All the Tcl functions call issued by Tk primitives are simulated
+by \stk.  This permits to the \stk interpreter to be, as far as possible,
+independent of the Tk code. In particular, embedding a new release of Tk will
+only require to link the new library to the actual {\stk}
+interpreter. Furthermore, external contributions we can find on net can be
+easily included in the interpreter, since Tcl ``intrinsics'' replacements are
+present in the \stk core.
+
+Actual implementation doesn't put accent on performances. It must be seen as a
+prototype which must be stretched further. However, measuring the performances
+of the \stk package is a difficult task and has not been really done yet. What
+we can say for now is that there is a little overhead when calling a Tk
+primitive written in C since the \stk package must translate all the
+parameters in C strings. This translation must be done because the Tk library
+``thinks'' that it works on Tcl which uses strings for passing parameters. In
+counterpart, procedure written in Scheme are far more efficient than Tcl
+scripts since the Scheme interpreter uses an appropriate format which is
+cheaper than strings. In particular, there is no data conversion when other
+Scheme procedures are called. Using the object extension of
+\stk gives this tool more power but is, as we can expect, more time consuming.
+For now, penalty when using the \stk object oriented layer is mainly due to
+object creation: creating a widget with a {\tt make} is nearly 20 times slower
+than basic creation achieved by using only first level primitives. However,
+getting or reading a Tk option using a slot access is only 1.5 times slower
+than direct Tk configuration. We can expect that rewriting some parts of the
+\stk object layer in C will decrease those ratios.
+Comparing the Tcl and Scheme approaches needs much more working; and a
+complete study will be done when the package will be more stable.
+
+
+\section{Open problems}
+Using Scheme with Tk causes some difficulties which cannot satisfactorily be
+resolved. Some problems are due to the very nature of Scheme, others are due to
+Tk. Following, is a list of major of them 
+\begin {itemize}
+\item R4RS requires that symbol must be case insensitive. Tk
+imposes, in a certain extent, to the underlying interpretative language to
+be case sensitive since command in event handler scripts take into account
+the case of the letter following the \% symbol. 
+
+\item  Another problem arises with lists and strings: Tcl doesn't
+distinguish those two types. In particular, one can set an option as a string
+and asking to Tk this option value will yield a list. This is not a problem in
+Tcl since a list is only another vision of a string. Unfortunately, there is no
+such direct equivalence in Scheme. Improvement of this point would probably
+require a modification of the Tk library.
+
+
+\item One of the major assets of the Tk library is the {\tt send} command.
+With this command, a Tk application can ask to another running Tk interpreter to
+evaluate an expression. Since Tk library is not modified, \stk interpreters
+cannot be distinguished from Tcl ones. Most of the time, this is confusing and
+error prone because requests to an application must take into account the
+language its underlying interpreter understands. 
+Keeping the communication possibility between \stk an Tcl applications seems
+to be suitable, but it would be fine to establish a standard way to
+determine what kind of interpreter is running in a particular application.
+\end {itemize}
+
+
+\bibliography{bibliography}
+
+\end{document}
\ No newline at end of file
diff --git a/Doc/Tcl93/bibliography.bib b/Doc/Tcl93/bibliography.bib
new file mode 120000
index 0000000..1ef17d3
--- /dev/null
+++ b/Doc/Tcl93/bibliography.bib
@@ -0,0 +1 @@
+../Reference/bibliography.bib
\ No newline at end of file
diff --git a/Doc/Tcl93/hierarchy.eps b/Doc/Tcl93/hierarchy.eps
new file mode 100644
index 0000000..9d57061
--- /dev/null
+++ b/Doc/Tcl93/hierarchy.eps
@@ -0,0 +1,140 @@
+%!PS-Adobe-2.0 EPSF
+%%Title: /tmp/xfig-fig020287
+%%Creator: fig2dev
+%%CreationDate: Sun May 23 15:58:28 1993
+%%For: eg@kaolin (Erick Gallesio,SPI 92 94 26 04,Bureau 131)
+%%BoundingBox: 0 0 513 305
+%%Pages: 0
+%%EndComments
+/$F2psDict 200 dict def 
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/l {lineto} bind def
+/m {moveto} bind def
+/s {stroke} bind def
+/n {newpath} bind def
+/gs {gsave} bind def
+/gr {grestore} bind def
+/clp {closepath} bind def
+/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+4 -2 roll mul setrgbcolor} bind def
+/col-1 {} def
+/col0 {0 0 0 setrgbcolor} bind def
+/col1 {0 0 1 setrgbcolor} bind def
+/col2 {0 1 0 setrgbcolor} bind def
+/col3 {0 1 1 setrgbcolor} bind def
+/col4 {1 0 0 setrgbcolor} bind def
+/col5 {1 0 1 setrgbcolor} bind def
+/col6 {1 1 0 setrgbcolor} bind def
+/col7 {1 1 1 setrgbcolor} bind def
+	end
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+%%EndProlog
+
+$F2psBegin
+0 setlinecap 0 setlinejoin
+-7.0 324.0 translate 0.630 -0.630 scale
+0.500 setlinewidth
+% Polyline
+n 348 29 m 341 29 341 52 7 arcto 4 {pop} repeat 341 59 484 59 7 arcto 4 {pop} repeat 491 59 491 36 7 arcto 4 {pop} repeat 491 29 348 29 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+390 50 m 
+gs 1 -1 scale (Tk-object) col-1 show gr
+% Polyline
+n 508 99 m 501 99 501 122 7 arcto 4 {pop} repeat 501 129 644 129 7 arcto 4 {pop} repeat 651 129 651 106 7 arcto 4 {pop} repeat 651 99 508 99 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+533 118 m 
+gs 1 -1 scale (Tk-canvas-item) col-1 show gr
+% Polyline
+n 18 256 m 11 256 11 279 7 arcto 4 {pop} repeat 11 286 154 286 7 arcto 4 {pop} repeat 161 286 161 263 7 arcto 4 {pop} repeat 161 256 18 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+70 276 m 
+gs 1 -1 scale (Frame) col-1 show gr
+% Polyline
+n 188 256 m 181 256 181 279 7 arcto 4 {pop} repeat 181 286 324 286 7 arcto 4 {pop} repeat 331 286 331 263 7 arcto 4 {pop} repeat 331 256 188 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+241 276 m 
+gs 1 -1 scale (Label) col-1 show gr
+% Polyline
+n 71 484 m 64 484 64 507 7 arcto 4 {pop} repeat 64 514 207 514 7 arcto 4 {pop} repeat 214 514 214 491 7 arcto 4 {pop} repeat 214 484 71 484 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+101 503 m 
+gs 1 -1 scale (Check-button) col-1 show gr
+% Polyline
+n 311 484 m 304 484 304 507 7 arcto 4 {pop} repeat 304 514 447 514 7 arcto 4 {pop} repeat 454 514 454 491 7 arcto 4 {pop} repeat 454 484 311 484 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+342 503 m 
+gs 1 -1 scale (Radio-button) col-1 show gr
+% Polyline
+n 188 411 m 181 411 181 434 7 arcto 4 {pop} repeat 181 441 324 441 7 arcto 4 {pop} repeat 331 441 331 418 7 arcto 4 {pop} repeat 331 411 188 411 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+205 432 m 
+gs 1 -1 scale (Tk-complex-button) col-1 show gr
+% Polyline
+n 188 186 m 181 186 181 209 7 arcto 4 {pop} repeat 181 216 324 216 7 arcto 4 {pop} repeat 331 216 331 193 7 arcto 4 {pop} repeat 331 186 188 186 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+208 207 m 
+gs 1 -1 scale (Tk-simple-widget) col-1 show gr
+/Times-Italic findfont 12.00 scalefont setfont
+229 121 m 
+gs 1 -1 scale (Tk-widget) col-1 show gr
+% Polyline
+n 188 99 m 181 99 181 122 7 arcto 4 {pop} repeat 181 129 324 129 7 arcto 4 {pop} repeat 331 129 331 106 7 arcto 4 {pop} repeat 331 99 188 99 7 arcto 4 {pop} repeat clp gs col-1 s gr
+% Polyline
+n 188 336 m 181 336 181 359 7 arcto 4 {pop} repeat 181 366 324 366 7 arcto 4 {pop} repeat 331 366 331 343 7 arcto 4 {pop} repeat 331 336 188 336 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+238 356 m 
+gs 1 -1 scale (Button) col-1 show gr
+% Polyline
+n 353 256 m 346 256 346 279 7 arcto 4 {pop} repeat 346 286 489 286 7 arcto 4 {pop} repeat 496 286 496 263 7 arcto 4 {pop} repeat 496 256 353 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+396 277 m 
+gs 1 -1 scale (Message) col-1 show gr
+% Polyline
+n 518 256 m 511 256 511 279 7 arcto 4 {pop} repeat 511 286 654 286 7 arcto 4 {pop} repeat 661 286 661 263 7 arcto 4 {pop} repeat 661 256 518 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+559 277 m 
+gs 1 -1 scale (Rectangle) col-1 show gr
+% Polyline
+n 681 254 m 674 254 674 282 7 arcto 4 {pop} repeat 674 289 817 289 7 arcto 4 {pop} repeat 824 289 824 261 7 arcto 4 {pop} repeat 824 254 681 254 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+737 276 m 
+gs 1 -1 scale (Line) col-1 show gr
+% Polyline
+n 414 59 m 584 99 l gs col-1 s gr
+n 576.671 95.221 m 584.000 99.000 l 575.755 99.115 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 419 59 m 249 99 l gs col-1 s gr
+n 257.245 99.115 m 249.000 99.000 l 256.329 95.221 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 254 217 m 254 256 l gs col-1 s gr
+n 256.000 248.000 m 254.000 256.000 l 252.000 248.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 254 131 m 254 186 l gs col-1 s gr
+n 256.000 178.000 m 254.000 186.000 l 252.000 178.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 253 217 m 82 256 l gs col-1 s gr
+n 90.244 256.171 m 82.000 256.000 l 89.355 252.271 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 254 217 m 438 256 l gs col-1 s gr
+n 430.589 252.385 m 438.000 256.000 l 429.759 256.298 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 253 286 m 253 336 l gs col-1 s gr
+n 255.000 328.000 m 253.000 336.000 l 251.000 328.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 254 366 m 254 411 l gs col-1 s gr
+n 256.000 403.000 m 254.000 411.000 l 252.000 403.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 253 442 m 133 484 l gs col-1 s gr
+n 141.212 483.245 m 133.000 484.000 l 139.890 479.469 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 254 441 m 391 484 l gs col-1 s gr
+n 383.966 479.696 m 391.000 484.000 l 382.768 483.512 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 574 129 m 574 254 l gs col-1 s gr
+n 576.000 246.000 m 574.000 254.000 l 572.000 246.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 574 129 m 744 254 l gs col-1 s gr
+n 738.740 247.650 m 744.000 254.000 l 736.370 250.872 l gs 2 setlinejoin col-1 s gr
+$F2psEnd
diff --git a/Doc/Tcl93/hierarchy.fig b/Doc/Tcl93/hierarchy.fig
new file mode 100644
index 0000000..1480de6
--- /dev/null
+++ b/Doc/Tcl93/hierarchy.fig
@@ -0,0 +1,105 @@
+#FIG 2.1
+80 2
+6 339 29 494 59
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 491 59 491 29 341 29 341 59 491 59 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 52 390 50 Tk-object

+-6
+6 499 99 654 129
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 651 129 651 99 501 99 501 129 651 129 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 9 86 533 118 Tk-canvas-item

+-6
+6 9 254 164 289
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 161 286 161 256 11 256 11 286 161 286 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 36 70 276 Frame

+-6
+6 179 254 334 289
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 331 286 331 256 181 256 181 286 331 286 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 31 241 276 Label

+-6
+6 64 484 214 514
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 214 514 214 484 64 484 64 514 214 514 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 75 101 503 Check-button

+-6
+6 304 484 454 514
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 454 514 454 484 304 484 304 514 454 514 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 73 342 503 Radio-button

+-6
+6 179 409 334 444
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 331 441 331 411 181 411 181 441 331 441 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 102 205 432 Tk-complex-button

+-6
+6 179 184 334 219
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 331 216 331 186 181 186 181 216 331 216 9999 9999
+4 0 1 12 0 -1 0 0.00000 4 12 96 208 207 Tk-simple-widget

+-6
+6 179 99 334 129
+6 229 106 284 121
+4 0 1 12 0 -1 0 0.00000 4 12 55 229 121 Tk-widget

+-6
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 331 129 331 99 181 99 181 129 331 129 9999 9999
+-6
+6 179 334 334 369
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 331 366 331 336 181 336 181 366 331 366 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 36 238 356 Button

+-6
+6 344 254 499 289
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 496 286 496 256 346 256 346 286 496 286 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 12 50 396 277 Message

+-6
+6 509 254 664 289
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 661 286 661 256 511 256 511 286 661 286 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 12 55 559 277 Rectangle

+-6
+6 674 254 824 289
+2 4 0 1 -1 0 0 0 0.000 7 0 0
+	 824 289 824 254 674 254 674 289 824 289 9999 9999
+4 0 2 12 0 -1 0 0.00000 4 9 24 737 276 Line

+-6
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 2.000 4.000 8.000
+	 414 59 584 99 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 2.000 4.000 8.000
+	 419 59 249 99 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 254 217 254 256 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 2.000 4.000 8.000
+	 254 131 254 186 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 253 217 82 256 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 254 217 438 256 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 253 286 253 336 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 254 366 254 411 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 253 442 133 484 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 254 441 391 484 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 574 129 574 254 9999 9999
+2 1 0 1 -1 0 0 0 0.000 -1 1 0
+	0 0 1.000 4.000 8.000
+	 574 129 744 254 9999 9999
diff --git a/Doc/Tcl93/tcl.sty b/Doc/Tcl93/tcl.sty
new file mode 100644
index 0000000..81f786f
--- /dev/null
+++ b/Doc/Tcl93/tcl.sty
@@ -0,0 +1,88 @@
+\typeout{tcl.sty}
+
+\newlength{\p@perwidth}
+\setlength{\p@perwidth}{8 true in}     % a4 paper width
+\newlength{\p@perlength}
+\setlength{\p@perlength}{11 true in}  % a4 paper height
+
+\setlength{\voffset}{0 true in}        % shift origin to paper corner
+\setlength{\hoffset}{0 true in}
+
+% pick up point size of current font
+% these parameters are not changed by the macros below
+\newlength{\mainsize}
+\setlength{\mainsize}{1\@ptsize pt}
+\setlength{\topskip}{\mainsize} % plain has 10pt
+\setlength{\maxdepth}{.4\mainsize}      % plain has 4pt
+\setlength{\@maxdepth}{\maxdepth}       % this has to be set as well
+
+\newlength{\leftsidemargin}
+\newlength{\leftsideshift}
+\newlength{\rightsidemargin}
+\newlength{\rightsideshift}
+\newlength{\headsidemargin}
+\newlength{\footsidemargin}
+
+\let\resetmargins\relax
+
+\def\setleftmargin#1#2{% set left printer margin and odd page shift
+  \setlength{\leftsidemargin}{#1}%
+  \setlength{\leftsideshift}{#2}%
+  \resetmargins
+}
+\setleftmargin{1.0 true in}{0 in}
+
+\def\setrightmargin#1#2{% set right printer margin and even page shift
+  \setlength{\rightsidemargin}{#1}%
+  \setlength{\rightsideshift}{#2}%
+  \resetmargins
+}
+\setrightmargin{0.00 true in}{0 in}
+
+\def\setheadmargin#1#2#3{% set head printer margin, size, and separation
+  \setlength{\headsidemargin}{#1}%
+  \setlength{\headheight}{#2}%
+  \setlength{\headsep}{#3}%
+  \resetmargins
+}
+\setheadmargin{1 true in}{\mainsize}{2\mainsize}
+
+\def\setfootmargin#1#2#3{% set foot printer margin, size, and separation
+  \setlength{\footsidemargin}{#1}%
+  \setlength{\footheight}{#2}%
+  \setlength{\footskip}{#3}%
+  \addtolength{\footskip}{\footheight}%
+  \resetmargins
+}
+\setfootmargin{1 true in}{\mainsize}{1.5\mainsize}
+
+\def\setmarginnote#1#2{% set marginal note width and separation
+  \setlength{\marginparwidth}{#1}%
+  \setlength{\marginparsep}{#2}%
+  \resetmargins
+}
+%\setmarginnote{62 pt}{10pt}
+\setmarginnote{62.27 true pt}{10 true pt}
+
+\def\resetmargins{% reset textheight and length from parameters
+  \setlength{\oddsidemargin}{\leftsidemargin}%
+  \addtolength{\oddsidemargin}{-1 true in}%
+  \addtolength{\oddsidemargin}{\leftsideshift}%
+  \setlength{\evensidemargin}{\oddsidemargin}%
+  \addtolength{\evensidemargin}{-\rightsideshift}%
+  \setlength{\textwidth}{\p@perwidth}% start at full width
+  \addtolength{\textwidth}{-\leftsidemargin}%
+  \addtolength{\textwidth}{-\leftsideshift}%
+  \addtolength{\textwidth}{-\marginparwidth}%
+  \addtolength{\textwidth}{-\marginparsep}%
+  \addtolength{\textwidth}{-\rightsidemargin}%
+  \setlength{\topmargin}{\headsidemargin}%
+  \addtolength{\topmargin}{-1 true in}%
+  \setlength{\textheight}{\p@perlength}% start at full height
+  \addtolength{\textheight}{-\headsidemargin}%
+  \addtolength{\textheight}{-\headheight}%
+  \addtolength{\textheight}{-\headsep}%
+  \addtolength{\textheight}{-\footskip}%
+  \addtolength{\textheight}{-\footsidemargin}%
+}
+\resetmargins
diff --git a/Doc/Xhibition94/Xhibition94.ps b/Doc/Xhibition94/Xhibition94.ps
new file mode 100644
index 0000000..4c3bb0c
--- /dev/null
+++ b/Doc/Xhibition94/Xhibition94.ps
@@ -0,0 +1,4247 @@
+%!PS-Adobe-3.0
+%%BoundingBox: (atend)
+%%Pages: (atend)
+%%PageOrder: (atend)
+%%DocumentFonts: (atend)
+%%Creator: Frame 4.0
+%%DocumentData: Clean7Bit
+%%EndComments
+%%BeginProlog
+%
+% Frame ps_prolog 4.0, for use with Frame 4.0 products
+% This ps_prolog file is Copyright (c) 1986-1993 Frame Technology
+% Corporation.  All rights reserved.  This ps_prolog file may be
+% freely copied and distributed in conjunction with documents created
+% using FrameMaker, FrameBuilder and FrameViewer as long as this 
+% copyright notice is preserved.
+%
+% Frame products normally print colors as their true color on a color printer
+% or as shades of gray, based on luminance, on a black-and white printer. The
+% following flag, if set to True, forces all non-white colors to print as pure
+% black. This has no effect on bitmap images.
+/FMPrintAllColorsAsBlack             false def
+%
+% Frame products can either set their own line screens or use a printer's 
+% default settings. Three flags below control this separately for no 
+% separations, spot separations and process separations. If a flag
+% is true, then the default printer settings will not be changed. If it is
+% false, Frame products will use their own settings from a table based on
+% the printer's resolution.
+/FMUseDefaultNoSeparationScreen      true  def
+/FMUseDefaultSpotSeparationScreen    true  def
+/FMUseDefaultProcessSeparationScreen false def
+%
+% For any given PostScript printer resolution, Frame products have two sets of 
+% screen angles and frequencies for printing process separations, which are 
+% recomended by Adobe. The following variable chooses the higher frequencies
+% when set to true or the lower frequencies when set to false. This is only
+% effective if the appropriate FMUseDefault...SeparationScreen flag is false.
+/FMUseHighFrequencyScreens true def
+%
+% PostScript Level 2 printers contain an "Accurate Screens" feature which can
+% improve process separation rendering at the expense of compute time. This 
+% flag is ignored by PostScript Level 1 printers.
+/FMUseAcccurateScreens true def
+%
+% The following PostScript procedure defines the spot function that Frame
+% products will use for process separations. You may un-comment-out one of
+% the alternative functions below, or use your own.
+%
+% Dot function
+/FMSpotFunction {abs exch abs 2 copy add 1 gt 
+		{1 sub dup mul exch 1 sub dup mul add 1 sub }
+		{dup mul exch dup mul add 1 exch sub }ifelse } def
+%
+% Line function
+% /FMSpotFunction { pop } def
+%
+% Elipse function
+% /FMSpotFunction { dup 5 mul 8 div mul exch dup mul exch add 
+%		sqrt 1 exch sub } def
+%
+%
+/FMversion (4.0) def 
+/FMLevel1 /languagelevel where {pop languagelevel} {1} ifelse 2 lt def
+/FMPColor
+	FMLevel1 {
+		false
+		/colorimage where {pop pop true} if
+	} {
+		true
+	} ifelse
+def
+/FrameDict 400 dict def 
+systemdict /errordict known not {/errordict 10 dict def
+		errordict /rangecheck {stop} put} if
+% The readline in PS 23.0 doesn't recognize cr's as nl's on AppleTalk
+FrameDict /tmprangecheck errordict /rangecheck get put 
+errordict /rangecheck {FrameDict /bug true put} put 
+FrameDict /bug false put 
+mark 
+% Some PS machines read past the CR, so keep the following 3 lines together!
+currentfile 5 string readline
+00
+0000000000
+cleartomark 
+errordict /rangecheck FrameDict /tmprangecheck get put 
+FrameDict /bug get { 
+	/readline {
+		/gstring exch def
+		/gfile exch def
+		/gindex 0 def
+		{
+			gfile read pop 
+			dup 10 eq {exit} if 
+			dup 13 eq {exit} if 
+			gstring exch gindex exch put 
+			/gindex gindex 1 add def 
+		} loop
+		pop 
+		gstring 0 gindex getinterval true 
+		} bind def
+	} if
+/FMshowpage /showpage load def
+/FMquit /quit load def
+/FMFAILURE { 
+	dup = flush 
+	FMshowpage 
+	/Helvetica findfont 12 scalefont setfont
+	72 200 moveto
+	show FMshowpage 
+	FMquit 
+	} def 
+/FMVERSION {
+	FMversion ne {
+		(Frame product version does not match ps_prolog!) FMFAILURE
+		} if
+	} def 
+/FMBADEPSF { 
+	(PostScript Lang. Ref. Man., 2nd Ed., H.2.4 says EPS must not call X              )
+	dup dup (X) search pop exch pop exch pop length 
+	4 -1 roll 
+	putinterval 
+	FMFAILURE
+	} def
+/FMLOCAL {
+	FrameDict begin
+	0 def 
+	end 
+	} def 
+/concatprocs
+	{
+	/proc2 exch cvlit def/proc1 exch cvlit def/newproc proc1 length proc2 length add array def
+	newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cvx
+}def
+FrameDict begin 
+/FMnone 0 def
+/FMcyan 1 def
+/FMmagenta 2 def
+/FMyellow 3 def
+/FMblack 4 def
+/FMcustom 5 def
+/FrameNegative false def 
+/FrameSepIs FMnone def 
+/FrameSepBlack 0 def
+/FrameSepYellow 0 def
+/FrameSepMagenta 0 def
+/FrameSepCyan 0 def
+/FrameSepRed 1 def
+/FrameSepGreen 1 def
+/FrameSepBlue 1 def
+/FrameCurGray 1 def
+/FrameCurPat null def
+/FrameCurColors [ 0 0 0 1 0 0 0 ] def 
+/FrameColorEpsilon .001 def	
+/eqepsilon {		
+	sub dup 0 lt {neg} if
+	FrameColorEpsilon le
+} bind def
+/FrameCmpColorsCMYK { 
+	2 copy 0 get exch 0 get eqepsilon {
+		2 copy 1 get exch 1 get eqepsilon {
+			2 copy 2 get exch 2 get eqepsilon {
+				3 get exch 3 get eqepsilon
+			} {pop pop false} ifelse
+		}{pop pop false} ifelse
+	} {pop pop false} ifelse
+} bind def
+/FrameCmpColorsRGB { 
+	2 copy 4 get exch 0 get eqepsilon {
+		2 copy 5 get exch 1 get eqepsilon {
+			6 get exch 2 get eqepsilon
+		}{pop pop false} ifelse
+	} {pop pop false} ifelse
+} bind def
+/RGBtoCMYK { 
+	1 exch sub 
+	3 1 roll 
+	1 exch sub 
+	3 1 roll 
+	1 exch sub 
+	3 1 roll 
+	3 copy 
+	2 copy 
+	le { pop } { exch pop } ifelse 
+	2 copy 
+	le { pop } { exch pop } ifelse 
+	dup dup dup 
+	6 1 roll 
+	4 1 roll 
+	7 1 roll 
+	sub 
+	6 1 roll 
+	sub 
+	5 1 roll 
+	sub 
+	4 1 roll 
+} bind def
+/CMYKtoRGB { 
+	dup dup 4 -1 roll add 						  
+	5 1 roll 3 -1 roll add 						  
+	4 1 roll add 								  
+	1 exch sub dup 0 lt {pop 0} if 3 1 roll 	  
+	1 exch sub dup 0 lt {pop 0} if exch 	      
+	1 exch sub dup 0 lt {pop 0} if exch	  		  
+} bind def
+/FrameSepInit {
+	1.0 RealSetgray
+} bind def
+/FrameSetSepColor { 
+	/FrameSepBlue exch def
+	/FrameSepGreen exch def
+	/FrameSepRed exch def
+	/FrameSepBlack exch def
+	/FrameSepYellow exch def
+	/FrameSepMagenta exch def
+	/FrameSepCyan exch def
+	/FrameSepIs FMcustom def
+	setCurrentScreen	
+} bind def
+/FrameSetCyan {
+	/FrameSepBlue 1.0 def
+	/FrameSepGreen 1.0 def
+	/FrameSepRed 0.0 def
+	/FrameSepBlack 0.0 def
+	/FrameSepYellow 0.0 def
+	/FrameSepMagenta 0.0 def
+	/FrameSepCyan 1.0 def
+	/FrameSepIs FMcyan def
+	setCurrentScreen	
+} bind def
+ 
+/FrameSetMagenta {
+	/FrameSepBlue 1.0 def
+	/FrameSepGreen 0.0 def
+	/FrameSepRed 1.0 def
+	/FrameSepBlack 0.0 def
+	/FrameSepYellow 0.0 def
+	/FrameSepMagenta 1.0 def
+	/FrameSepCyan 0.0 def
+	/FrameSepIs FMmagenta def
+	setCurrentScreen
+} bind def
+ 
+/FrameSetYellow {
+	/FrameSepBlue 0.0 def
+	/FrameSepGreen 1.0 def
+	/FrameSepRed 1.0 def
+	/FrameSepBlack 0.0 def
+	/FrameSepYellow 1.0 def
+	/FrameSepMagenta 0.0 def
+	/FrameSepCyan 0.0 def
+	/FrameSepIs FMyellow def
+	setCurrentScreen
+} bind def
+ 
+/FrameSetBlack {
+	/FrameSepBlue 0.0 def
+	/FrameSepGreen 0.0 def
+	/FrameSepRed 0.0 def
+	/FrameSepBlack 1.0 def
+	/FrameSepYellow 0.0 def
+	/FrameSepMagenta 0.0 def
+	/FrameSepCyan 0.0 def
+	/FrameSepIs FMblack def
+	setCurrentScreen
+} bind def
+ 
+/FrameNoSep { 
+	/FrameSepIs FMnone def
+	setCurrentScreen
+} bind def
+/FrameSetSepColors { 
+	FrameDict begin
+	[ exch 1 add 1 roll ]
+	/FrameSepColors  
+	exch def end
+	} bind def
+/FrameColorInSepListCMYK { 
+	FrameSepColors {  
+       		exch dup 3 -1 roll 
+       		FrameCmpColorsCMYK 
+       		{ pop true exit } if
+    	} forall 
+	dup true ne {pop false} if
+	} bind def
+/FrameColorInSepListRGB { 
+	FrameSepColors {  
+       		exch dup 3 -1 roll 
+       		FrameCmpColorsRGB 
+       		{ pop true exit } if
+    	} forall 
+	dup true ne {pop false} if
+	} bind def
+/RealSetgray /setgray load def
+/RealSetrgbcolor /setrgbcolor load def
+/RealSethsbcolor /sethsbcolor load def
+end 
+/setgray { 
+	FrameDict begin
+	FrameSepIs FMnone eq
+		{ RealSetgray } 
+		{ 
+		FrameSepIs FMblack eq 
+			{ RealSetgray } 
+			{ FrameSepIs FMcustom eq 
+			  FrameSepRed 0 eq and
+			  FrameSepGreen 0 eq and
+			  FrameSepBlue 0 eq and {
+			  	RealSetgray
+			  } {
+				1 RealSetgray pop 
+			  } ifelse
+			} ifelse
+		} ifelse
+	end
+} bind def
+/setrgbcolor { 
+	FrameDict begin
+	FrameSepIs FMnone eq
+	{  RealSetrgbcolor }
+	{
+		3 copy [ 4 1 roll ] 
+		FrameColorInSepListRGB
+		{
+				FrameSepBlue eq exch 
+			 	FrameSepGreen eq and exch 
+			 	FrameSepRed eq and
+			 	{ 0 } { 1 } ifelse
+		}
+		{
+			FMPColor {
+				RealSetrgbcolor
+				currentcmykcolor
+			} {
+				RGBtoCMYK
+			} ifelse
+			FrameSepIs FMblack eq
+			{1.0 exch sub 4 1 roll pop pop pop} {
+			FrameSepIs FMyellow eq
+			{pop 1.0 exch sub 3 1 roll pop pop} {
+			FrameSepIs FMmagenta eq
+			{pop pop 1.0 exch sub exch pop } {
+			FrameSepIs FMcyan eq
+			{pop pop pop 1.0 exch sub } 
+			{pop pop pop pop 1} ifelse } ifelse } ifelse } ifelse 
+		} ifelse
+		RealSetgray
+	} 
+	ifelse
+	end
+} bind def
+/sethsbcolor {
+	FrameDict begin
+	FrameSepIs FMnone eq 
+	{ RealSethsbcolor } 
+	{
+		RealSethsbcolor 
+		currentrgbcolor  
+		setrgbcolor 
+	} 
+	ifelse
+	end
+} bind def
+FrameDict begin
+/setcmykcolor where {
+	pop /RealSetcmykcolor /setcmykcolor load def
+} {
+	/RealSetcmykcolor {
+		4 1 roll
+		3 { 3 index add 0 max 1 min 1 exch sub 3 1 roll} repeat 
+		setrgbcolor pop
+	} bind def
+} ifelse
+userdict /setcmykcolor { 
+		FrameDict begin
+		FrameSepIs FMnone eq
+		{ RealSetcmykcolor } 
+		{
+			4 copy [ 5 1 roll ]
+			FrameColorInSepListCMYK
+			{
+				FrameSepBlack eq exch 
+				FrameSepYellow eq and exch 
+				FrameSepMagenta eq and exch 
+				FrameSepCyan eq and 
+				{ 0 } { 1 } ifelse
+			}
+			{
+				FrameSepIs FMblack eq
+				{1.0 exch sub 4 1 roll pop pop pop} {
+				FrameSepIs FMyellow eq
+				{pop 1.0 exch sub 3 1 roll pop pop} {
+				FrameSepIs FMmagenta eq
+				{pop pop 1.0 exch sub exch pop } {
+				FrameSepIs FMcyan eq
+				{pop pop pop 1.0 exch sub } 
+				{pop pop pop pop 1} ifelse } ifelse } ifelse } ifelse 
+			} ifelse
+			RealSetgray
+		}
+		ifelse
+		end
+	} bind put
+FMLevel1 not { 
+	
+	/patProcDict 5 dict dup begin
+		<0f1e3c78f0e1c387> { 3 setlinewidth -1 -1 moveto 9 9 lineto stroke 
+											4 -4 moveto 12 4 lineto stroke
+											-4 4 moveto 4 12 lineto stroke} bind def
+		<0f87c3e1f0783c1e> { 3 setlinewidth -1 9 moveto 9 -1 lineto stroke 
+											-4 4 moveto 4 -4 lineto stroke
+											4 12 moveto 12 4 lineto stroke} bind def
+		<8142241818244281> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke
+											-1 -1 moveto 9 9 lineto stroke } bind def
+		<03060c183060c081> { 1 setlinewidth -1 -1 moveto 9 9 lineto stroke 
+											4 -4 moveto 12 4 lineto stroke
+											-4 4 moveto 4 12 lineto stroke} bind def
+		<8040201008040201> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke 
+											-4 4 moveto 4 -4 lineto stroke
+											4 12 moveto 12 4 lineto stroke} bind def
+	end def
+	/patDict 15 dict dup begin
+		/PatternType 1 def		
+		/PaintType 2 def		
+		/TilingType 3 def		
+		/BBox [ 0 0 8 8 ] def 	
+		/XStep 8 def			
+		/YStep 8 def			
+		/PaintProc {
+			begin
+			patProcDict bstring known {
+				patProcDict bstring get exec
+			} {
+				8 8 true [1 0 0 -1 0 8] bstring imagemask
+			} ifelse
+			end
+		} bind def
+	end def
+} if
+/combineColor {
+    FrameSepIs FMnone eq
+	{
+		graymode FMLevel1 or not {
+			
+			[/Pattern [/DeviceCMYK]] setcolorspace
+			FrameCurColors 0 4 getinterval aload pop FrameCurPat setcolor
+		} {
+			FrameCurColors 3 get 1.0 ge {
+				FrameCurGray RealSetgray
+			} {
+				FMPColor graymode and {
+					0 1 3 { 
+						FrameCurColors exch get
+						1 FrameCurGray sub mul
+					} for
+					RealSetcmykcolor
+				} {
+					4 1 6 {
+						FrameCurColors exch get
+						graymode {
+							1 exch sub 1 FrameCurGray sub mul 1 exch sub
+						} {
+							1.0 lt {FrameCurGray} {1} ifelse
+						} ifelse
+					} for
+					RealSetrgbcolor
+				} ifelse
+			} ifelse
+		} ifelse
+	} { 
+		FrameCurColors 0 4 getinterval aload
+		FrameColorInSepListCMYK {
+			FrameSepBlack eq exch 
+			FrameSepYellow eq and exch 
+			FrameSepMagenta eq and exch 
+			FrameSepCyan eq and
+			FrameSepIs FMcustom eq and
+			{ FrameCurGray } { 1 } ifelse
+		} {
+			FrameSepIs FMblack eq
+			{FrameCurGray 1.0 exch sub mul 1.0 exch sub 4 1 roll pop pop pop} {
+			FrameSepIs FMyellow eq
+			{pop FrameCurGray 1.0 exch sub mul 1.0 exch sub 3 1 roll pop pop} {
+			FrameSepIs FMmagenta eq
+			{pop pop FrameCurGray 1.0 exch sub mul 1.0 exch sub exch pop } {
+			FrameSepIs FMcyan eq
+			{pop pop pop FrameCurGray 1.0 exch sub mul 1.0 exch sub } 
+			{pop pop pop pop 1} ifelse } ifelse } ifelse } ifelse 
+		} ifelse
+		graymode FMLevel1 or not {
+			
+			[/Pattern [/DeviceGray]] setcolorspace
+			FrameCurPat setcolor
+		} { 
+			graymode not FMLevel1 and {
+				
+				dup 1 lt {pop FrameCurGray} if
+			} if
+			RealSetgray
+		} ifelse
+	} ifelse
+} bind def
+/savematrix {
+	orgmatrix currentmatrix pop
+	} bind def
+/restorematrix {
+	orgmatrix setmatrix
+	} bind def
+/dmatrix matrix def
+/dpi    72 0 dmatrix defaultmatrix dtransform
+    dup mul exch   dup mul add   sqrt def
+	
+/freq dpi dup 72 div round dup 0 eq {pop 1} if 8 mul div def
+/sangle 1 0 dmatrix defaultmatrix dtransform exch atan def
+/dpiranges   [  2540    2400    1693     1270    1200     635      600      0      ] def
+/CMLowFreqs  [ 100.402  94.8683 89.2289 100.402  94.8683  66.9349  63.2456 47.4342 ] def
+/YLowFreqs   [  95.25   90.0    84.65    95.25   90.0     70.5556  66.6667 50.0    ] def
+/KLowFreqs   [  89.8026 84.8528 79.8088  89.8026 84.8528  74.8355  70.7107 53.033  ] def
+/CLowAngles  [  71.5651 71.5651 71.5651 71.5651  71.5651  71.5651  71.5651 71.5651 ] def
+/MLowAngles  [  18.4349 18.4349 18.4349 18.4349  18.4349  18.4349  18.4349 18.4349 ] def
+/YLowTDot    [  true    true    false    true    true     false    false   false   ] def
+/CMHighFreqs [ 133.87  126.491 133.843  108.503 102.523  100.402   94.8683 63.2456 ] def
+/YHighFreqs  [ 127.0   120.0   126.975  115.455 109.091   95.25    90.0    60.0    ] def
+/KHighFreqs  [ 119.737 113.137 119.713  128.289 121.218   89.8026  84.8528 63.6395 ] def
+/CHighAngles [  71.5651 71.5651 71.5651  70.0169 70.0169  71.5651  71.5651 71.5651 ] def
+/MHighAngles [  18.4349 18.4349 18.4349  19.9831 19.9831  18.4349  18.4349 18.4349 ] def
+/YHighTDot   [  false   false   true     false   false    true     true    false   ] def
+/PatFreq     [	10.5833 10.0     9.4055  10.5833 10.0	  10.5833  10.0	   9.375   ] def
+/screenIndex {
+	0 1 dpiranges length 1 sub { dup dpiranges exch get 1 sub dpi le {exit} {pop} ifelse } for
+} bind def
+/getCyanScreen {
+	FMUseHighFrequencyScreens { CHighAngles CMHighFreqs} {CLowAngles CMLowFreqs} ifelse
+		screenIndex dup 3 1 roll get 3 1 roll get /FMSpotFunction load
+} bind def
+/getMagentaScreen {
+	FMUseHighFrequencyScreens { MHighAngles CMHighFreqs } {MLowAngles CMLowFreqs} ifelse
+		screenIndex dup 3 1 roll get 3 1 roll get /FMSpotFunction load
+} bind def
+/getYellowScreen {
+	FMUseHighFrequencyScreens { YHighTDot YHighFreqs} { YLowTDot YLowFreqs } ifelse
+		screenIndex dup 3 1 roll get 3 1 roll get { 3 div
+			{2 { 1 add 2 div 3 mul dup floor sub 2 mul 1 sub exch} repeat
+			FMSpotFunction } } {/FMSpotFunction load } ifelse
+			0.0 exch
+} bind def
+/getBlackScreen  {
+	FMUseHighFrequencyScreens { KHighFreqs } { KLowFreqs } ifelse
+		screenIndex get 45.0 /FMSpotFunction load 
+} bind def
+/getSpotScreen {
+	getBlackScreen
+} bind def
+/getCompositeScreen {
+	getBlackScreen
+} bind def
+/FMSetScreen 
+	FMLevel1 { /setscreen load 
+	}{ {
+		8 dict begin
+		/HalftoneType 1 def
+		/SpotFunction exch def
+		/Angle exch def
+		/Frequency exch def
+		/AccurateScreens FMUseAcccurateScreens def
+		currentdict end sethalftone
+	} bind } ifelse
+def
+/setDefaultScreen {
+	FMPColor {
+		orgrxfer cvx orggxfer cvx orgbxfer cvx orgxfer cvx setcolortransfer
+	}
+	{
+		orgxfer cvx settransfer
+	} ifelse
+	orgfreq organgle orgproc cvx setscreen
+} bind def
+/setCurrentScreen {
+	FrameSepIs FMnone eq {
+		FMUseDefaultNoSeparationScreen {
+			setDefaultScreen
+		} {
+			getCompositeScreen FMSetScreen
+		} ifelse
+	} {
+		FrameSepIs FMcustom eq {
+			FMUseDefaultSpotSeparationScreen {
+				setDefaultScreen
+			} {
+				getSpotScreen FMSetScreen
+			} ifelse
+		} {
+			FMUseDefaultProcessSeparationScreen {
+				setDefaultScreen
+			} {
+				FrameSepIs FMcyan eq {
+					getCyanScreen FMSetScreen
+				} {
+					FrameSepIs FMmagenta eq {
+						getMagentaScreen FMSetScreen
+					} {
+						FrameSepIs FMyellow eq {
+							getYellowScreen FMSetScreen
+						} {
+							getBlackScreen FMSetScreen
+						} ifelse
+					} ifelse
+				} ifelse
+			} ifelse
+		} ifelse
+	} ifelse 
+} bind def
+end
+	/gstring FMLOCAL
+	/gfile FMLOCAL
+	/gindex FMLOCAL
+	/orgrxfer FMLOCAL
+	/orggxfer FMLOCAL
+	/orgbxfer FMLOCAL
+	/orgxfer FMLOCAL
+	/orgproc FMLOCAL
+	/orgrproc FMLOCAL
+	/orggproc FMLOCAL
+	/orgbproc FMLOCAL
+	/organgle FMLOCAL
+	/orgrangle FMLOCAL
+	/orggangle FMLOCAL
+	/orgbangle FMLOCAL
+	/orgfreq FMLOCAL
+	/orgrfreq FMLOCAL
+	/orggfreq FMLOCAL
+	/orgbfreq FMLOCAL
+	/yscale FMLOCAL
+	/xscale FMLOCAL
+	/edown FMLOCAL
+	/manualfeed FMLOCAL
+	/paperheight FMLOCAL
+	/paperwidth FMLOCAL
+/FMDOCUMENT { 
+	array /FMfonts exch def 
+	/#copies exch def
+	FrameDict begin
+	0 ne /manualfeed exch def
+	/paperheight exch def
+	/paperwidth exch def
+	0 ne /FrameNegative exch def 
+	0 ne /edown exch def 
+	/yscale exch def
+	/xscale exch def
+	FMLevel1 {
+		manualfeed {setmanualfeed} if
+		/FMdicttop countdictstack 1 add def 
+		/FMoptop count def 
+		setpapername 
+		manualfeed {true} {papersize} ifelse 
+		{manualpapersize} {false} ifelse 
+		{desperatepapersize} {false} ifelse 
+		{ (Can't select requested paper size for Frame print job!) FMFAILURE } if
+		count -1 FMoptop {pop pop} for
+		countdictstack -1 FMdicttop {pop end} for 
+		}
+		{{1 dict dup /PageSize [paperwidth paperheight]put setpagedevice}stopped
+		{ (Can't select requested paper size for Frame print job!) FMFAILURE } if
+		 {1 dict dup /ManualFeed manualfeed put setpagedevice } stopped pop }
+	ifelse 
+	
+	FMPColor {
+		currentcolorscreen
+			cvlit /orgproc exch def
+				  /organgle exch def 
+				  /orgfreq exch def
+			cvlit /orgbproc exch def
+				  /orgbangle exch def 
+				  /orgbfreq exch def
+			cvlit /orggproc exch def
+				  /orggangle exch def 
+				  /orggfreq exch def
+			cvlit /orgrproc exch def
+				  /orgrangle exch def 
+				  /orgrfreq exch def
+			currentcolortransfer 
+			FrameNegative {
+				1 1 4 { 
+					pop { 1 exch sub } concatprocs 4 1 roll
+				} for
+				4 copy
+				setcolortransfer
+			} if
+			cvlit /orgxfer exch def
+			cvlit /orgbxfer exch def
+			cvlit /orggxfer exch def
+			cvlit /orgrxfer exch def
+	} {
+		currentscreen 
+			cvlit /orgproc exch def
+				  /organgle exch def 
+				  /orgfreq exch def
+				  
+		currenttransfer 
+		FrameNegative {
+			{ 1 exch sub } concatprocs
+			dup settransfer
+		} if 
+		cvlit /orgxfer exch def
+	} ifelse
+	end 
+} def 
+/pagesave FMLOCAL
+/orgmatrix FMLOCAL
+/landscape FMLOCAL
+/pwid FMLOCAL
+/FMBEGINPAGE { 
+	FrameDict begin 
+	/pagesave save def
+	3.86 setmiterlimit
+	/landscape exch 0 ne def
+	landscape { 
+		90 rotate 0 exch dup /pwid exch def neg translate pop 
+	}{
+		pop /pwid exch def
+	} ifelse
+	edown { [-1 0 0 1 pwid 0] concat } if
+	0 0 moveto paperwidth 0 lineto paperwidth paperheight lineto 
+	0 paperheight lineto 0 0 lineto 1 setgray fill
+	xscale yscale scale
+	/orgmatrix matrix def
+	gsave 
+} def 
+/FMENDPAGE {
+	grestore 
+	pagesave restore
+	end 
+	showpage
+	} def 
+/FMFONTDEFINE { 
+	FrameDict begin
+	findfont 
+	ReEncode 
+	1 index exch 
+	definefont 
+	FMfonts 3 1 roll 
+	put
+	end 
+	} def 
+/FMFILLS {
+	FrameDict begin dup
+	array /fillvals exch def
+	dict /patCache exch def
+	end 
+	} def 
+/FMFILL {
+	FrameDict begin
+	 fillvals 3 1 roll put
+	end 
+	} def 
+/FMNORMALIZEGRAPHICS { 
+	newpath
+	0.0 0.0 moveto
+	1 setlinewidth
+	0 setlinecap
+	0 0 0 sethsbcolor
+	0 setgray 
+	} bind def
+	/fx FMLOCAL
+	/fy FMLOCAL
+	/fh FMLOCAL
+	/fw FMLOCAL
+	/llx FMLOCAL
+	/lly FMLOCAL
+	/urx FMLOCAL
+	/ury FMLOCAL
+/FMBEGINEPSF { 
+	end 
+	/FMEPSF save def 
+	/showpage {} def 
+% See Adobe's "PostScript Language Reference Manual, 2nd Edition", page 714.
+% "...the following operators MUST NOT be used in an EPS file:" (emphasis ours)
+	/banddevice {(banddevice) FMBADEPSF} def
+	/clear {(clear) FMBADEPSF} def
+	/cleardictstack {(cleardictstack) FMBADEPSF} def 
+	/copypage {(copypage) FMBADEPSF} def
+	/erasepage {(erasepage) FMBADEPSF} def
+	/exitserver {(exitserver) FMBADEPSF} def
+	/framedevice {(framedevice) FMBADEPSF} def
+	/grestoreall {(grestoreall) FMBADEPSF} def
+	/initclip {(initclip) FMBADEPSF} def
+	/initgraphics {(initgraphics) FMBADEPSF} def
+	/initmatrix {(initmatrix) FMBADEPSF} def
+	/quit {(quit) FMBADEPSF} def
+	/renderbands {(renderbands) FMBADEPSF} def
+	/setglobal {(setglobal) FMBADEPSF} def
+	/setpagedevice {(setpagedevice) FMBADEPSF} def
+	/setshared {(setshared) FMBADEPSF} def
+	/startjob {(startjob) FMBADEPSF} def
+	/lettertray {(lettertray) FMBADEPSF} def
+	/letter {(letter) FMBADEPSF} def
+	/lettersmall {(lettersmall) FMBADEPSF} def
+	/11x17tray {(11x17tray) FMBADEPSF} def
+	/11x17 {(11x17) FMBADEPSF} def
+	/ledgertray {(ledgertray) FMBADEPSF} def
+	/ledger {(ledger) FMBADEPSF} def
+	/legaltray {(legaltray) FMBADEPSF} def
+	/legal {(legal) FMBADEPSF} def
+	/statementtray {(statementtray) FMBADEPSF} def
+	/statement {(statement) FMBADEPSF} def
+	/executivetray {(executivetray) FMBADEPSF} def
+	/executive {(executive) FMBADEPSF} def
+	/a3tray {(a3tray) FMBADEPSF} def
+	/a3 {(a3) FMBADEPSF} def
+	/a4tray {(a4tray) FMBADEPSF} def
+	/a4 {(a4) FMBADEPSF} def
+	/a4small {(a4small) FMBADEPSF} def
+	/b4tray {(b4tray) FMBADEPSF} def
+	/b4 {(b4) FMBADEPSF} def
+	/b5tray {(b5tray) FMBADEPSF} def
+	/b5 {(b5) FMBADEPSF} def
+	FMNORMALIZEGRAPHICS 
+	[/fy /fx /fh /fw /ury /urx /lly /llx] {exch def} forall 
+	fx fw 2 div add fy fh 2 div add  translate
+	rotate
+	fw 2 div neg fh 2 div neg translate
+	fw urx llx sub div fh ury lly sub div scale 
+	llx neg lly neg translate 
+	/FMdicttop countdictstack 1 add def 
+	/FMoptop count def 
+	} bind def
+/FMENDEPSF {
+	count -1 FMoptop {pop pop} for 
+	countdictstack -1 FMdicttop {pop end} for 
+	FMEPSF restore
+	FrameDict begin 
+	} bind def
+FrameDict begin 
+/setmanualfeed {
+%%BeginFeature *ManualFeed True
+	 statusdict /manualfeed true put
+%%EndFeature
+	} bind def
+/max {2 copy lt {exch} if pop} bind def
+/min {2 copy gt {exch} if pop} bind def
+/inch {72 mul} def
+/pagedimen { 
+	paperheight sub abs 16 lt exch 
+	paperwidth sub abs 16 lt and
+	{/papername exch def} {pop} ifelse
+	} bind def
+	/papersizedict FMLOCAL
+/setpapername { 
+	/papersizedict 14 dict def 
+	papersizedict begin
+	/papername /unknown def 
+		/Letter 8.5 inch 11.0 inch pagedimen
+		/LetterSmall 7.68 inch 10.16 inch pagedimen
+		/Tabloid 11.0 inch 17.0 inch pagedimen
+		/Ledger 17.0 inch 11.0 inch pagedimen
+		/Legal 8.5 inch 14.0 inch pagedimen
+		/Statement 5.5 inch 8.5 inch pagedimen
+		/Executive 7.5 inch 10.0 inch pagedimen
+		/A3 11.69 inch 16.5 inch pagedimen
+		/A4 8.26 inch 11.69 inch pagedimen
+		/A4Small 7.47 inch 10.85 inch pagedimen
+		/B4 10.125 inch 14.33 inch pagedimen
+		/B5 7.16 inch 10.125 inch pagedimen
+	end
+	} bind def
+/papersize {
+	papersizedict begin
+		/Letter {lettertray letter} def
+		/LetterSmall {lettertray lettersmall} def
+		/Tabloid {11x17tray 11x17} def
+		/Ledger {ledgertray ledger} def
+		/Legal {legaltray legal} def
+		/Statement {statementtray statement} def
+		/Executive {executivetray executive} def
+		/A3 {a3tray a3} def
+		/A4 {a4tray a4} def
+		/A4Small {a4tray a4small} def
+		/B4 {b4tray b4} def
+		/B5 {b5tray b5} def
+		/unknown {unknown} def
+	papersizedict dup papername known {papername} {/unknown} ifelse get
+	end
+	statusdict begin stopped end 
+	} bind def
+/manualpapersize {
+	papersizedict begin
+		/Letter {letter} def
+		/LetterSmall {lettersmall} def
+		/Tabloid {11x17} def
+		/Ledger {ledger} def
+		/Legal {legal} def
+		/Statement {statement} def
+		/Executive {executive} def
+		/A3 {a3} def
+		/A4 {a4} def
+		/A4Small {a4small} def
+		/B4 {b4} def
+		/B5 {b5} def
+		/unknown {unknown} def
+	papersizedict dup papername known {papername} {/unknown} ifelse get
+	end
+	stopped 
+	} bind def
+/desperatepapersize {
+	statusdict /setpageparams known
+		{
+		paperwidth paperheight 0 1 
+		statusdict begin
+		{setpageparams} stopped 
+		end
+		} {true} ifelse 
+	} bind def
+/DiacriticEncoding [
+/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
+/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
+/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
+/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
+/.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl
+/numbersign /dollar /percent /ampersand /quotesingle /parenleft
+/parenright /asterisk /plus /comma /hyphen /period /slash /zero /one
+/two /three /four /five /six /seven /eight /nine /colon /semicolon
+/less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K
+/L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash
+/bracketright /asciicircum /underscore /grave /a /b /c /d /e /f /g /h
+/i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar
+/braceright /asciitilde /.notdef /Adieresis /Aring /Ccedilla /Eacute
+/Ntilde /Odieresis /Udieresis /aacute /agrave /acircumflex /adieresis
+/atilde /aring /ccedilla /eacute /egrave /ecircumflex /edieresis
+/iacute /igrave /icircumflex /idieresis /ntilde /oacute /ograve
+/ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex
+/udieresis /dagger /.notdef /cent /sterling /section /bullet
+/paragraph /germandbls /registered /copyright /trademark /acute
+/dieresis /.notdef /AE /Oslash /.notdef /.notdef /.notdef /.notdef
+/yen /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
+/ordfeminine /ordmasculine /.notdef /ae /oslash /questiondown
+/exclamdown /logicalnot /.notdef /florin /.notdef /.notdef
+/guillemotleft /guillemotright /ellipsis /.notdef /Agrave /Atilde
+/Otilde /OE /oe /endash /emdash /quotedblleft /quotedblright
+/quoteleft /quoteright /.notdef /.notdef /ydieresis /Ydieresis
+/fraction /currency /guilsinglleft /guilsinglright /fi /fl /daggerdbl
+/periodcentered /quotesinglbase /quotedblbase /perthousand
+/Acircumflex /Ecircumflex /Aacute /Edieresis /Egrave /Iacute
+/Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex /.notdef /Ograve
+/Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde /macron
+/breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
+] def
+/ReEncode { 
+	dup 
+	length 
+	dict begin 
+	{
+	1 index /FID ne 
+		{def} 
+		{pop pop} ifelse 
+	} forall 
+	0 eq {/Encoding DiacriticEncoding def} if 
+	currentdict 
+	end 
+	} bind def
+FMPColor 
+	
+	{
+	/BEGINBITMAPCOLOR { 
+		BITMAPCOLOR} def
+	/BEGINBITMAPCOLORc { 
+		BITMAPCOLORc} def
+	/BEGINBITMAPTRUECOLOR { 
+		BITMAPTRUECOLOR } def
+	/BEGINBITMAPTRUECOLORc { 
+		BITMAPTRUECOLORc } def
+	}
+	
+	{
+	/BEGINBITMAPCOLOR { 
+		BITMAPGRAY} def
+	/BEGINBITMAPCOLORc { 
+		BITMAPGRAYc} def
+	/BEGINBITMAPTRUECOLOR { 
+		BITMAPTRUEGRAY } def
+	/BEGINBITMAPTRUECOLORc { 
+		BITMAPTRUEGRAYc } def
+	}
+ifelse
+/K { 
+	FMPrintAllColorsAsBlack {
+		dup 1 eq 2 index 1 eq and 3 index 1 eq and not
+			{7 {pop} repeat 0 0 0 1 0 0 0} if
+	} if 
+	FrameCurColors astore 
+	pop combineColor
+} bind def
+/graymode true def
+	/bwidth FMLOCAL
+	/bpside FMLOCAL
+	/bstring FMLOCAL
+	/onbits FMLOCAL
+	/offbits FMLOCAL
+	/xindex FMLOCAL
+	/yindex FMLOCAL
+	/x FMLOCAL
+	/y FMLOCAL
+/setPatternMode {
+	FMLevel1 {
+		/bwidth  exch def
+		/bpside  exch def
+		/bstring exch def
+		/onbits 0 def  /offbits 0 def
+		freq sangle landscape {90 add} if 
+			{/y exch def
+			 /x exch def
+			 /xindex x 1 add 2 div bpside mul cvi def
+			 /yindex y 1 add 2 div bpside mul cvi def
+			 bstring yindex bwidth mul xindex 8 idiv add get
+			 1 7 xindex 8 mod sub bitshift and 0 ne FrameNegative {not} if
+			 {/onbits  onbits  1 add def 1}
+			 {/offbits offbits 1 add def 0}
+			 ifelse
+			}
+			setscreen
+		offbits offbits onbits add div FrameNegative {1.0 exch sub} if
+		/FrameCurGray exch def
+	} { 
+		pop pop
+		dup patCache exch known {
+			patCache exch get
+		} { 
+			dup
+			patDict /bstring 3 -1 roll put
+			patDict 
+			9 PatFreq screenIndex get div dup matrix scale
+			makepattern
+			dup 
+			patCache 4 -1 roll 3 -1 roll put
+		} ifelse
+		/FrameCurGray 0 def
+		/FrameCurPat exch def
+	} ifelse
+	/graymode false def
+	combineColor
+} bind def
+/setGrayScaleMode {
+	graymode not {
+		/graymode true def
+		FMLevel1 {
+			setCurrentScreen
+		} if
+	} if
+	/FrameCurGray exch def
+	combineColor
+} bind def
+/normalize {
+	transform round exch round exch itransform
+	} bind def
+/dnormalize {
+	dtransform round exch round exch idtransform
+	} bind def
+/lnormalize { 
+	0 dtransform exch cvi 2 idiv 2 mul 1 add exch idtransform pop
+	} bind def
+/H { 
+	lnormalize setlinewidth
+	} bind def
+/Z {
+	setlinecap
+	} bind def
+	
+/PFill {
+	graymode FMLevel1 or not {
+		gsave 1 setgray eofill grestore
+	} if
+} bind def
+/PStroke {
+	graymode FMLevel1 or not {
+		gsave 1 setgray stroke grestore
+	} if
+	stroke
+} bind def
+	/fillvals FMLOCAL
+/X { 
+	fillvals exch get
+	dup type /stringtype eq
+	{8 1 setPatternMode} 
+	{setGrayScaleMode}
+	ifelse
+	} bind def
+/V { 
+	PFill gsave eofill grestore
+	} bind def
+/Vclip {
+	clip
+	} bind def
+/Vstrk {
+	currentlinewidth exch setlinewidth PStroke setlinewidth
+	} bind def
+/N { 
+	PStroke
+	} bind def
+/Nclip {
+	strokepath clip newpath
+	} bind def
+/Nstrk {
+	currentlinewidth exch setlinewidth PStroke setlinewidth
+	} bind def
+/M {newpath moveto} bind def
+/E {lineto} bind def
+/D {curveto} bind def
+/O {closepath} bind def
+	/n FMLOCAL
+/L { 
+ 	/n exch def
+	newpath
+	normalize
+	moveto 
+	2 1 n {pop normalize lineto} for
+	} bind def
+/Y { 
+	L 
+	closepath
+	} bind def
+	/x1 FMLOCAL
+	/x2 FMLOCAL
+	/y1 FMLOCAL
+	/y2 FMLOCAL
+/R { 
+	/y2 exch def
+	/x2 exch def
+	/y1 exch def
+	/x1 exch def
+	x1 y1
+	x2 y1
+	x2 y2
+	x1 y2
+	4 Y 
+	} bind def
+	/rad FMLOCAL
+/rarc 
+	{rad 
+	 arcto
+	} bind def
+/RR { 
+	/rad exch def
+	normalize
+	/y2 exch def
+	/x2 exch def
+	normalize
+	/y1 exch def
+	/x1 exch def
+	mark
+	newpath
+	{
+	x1 y1 rad add moveto
+	x1 y2 x2 y2 rarc
+	x2 y2 x2 y1 rarc
+	x2 y1 x1 y1 rarc
+	x1 y1 x1 y2 rarc
+	closepath
+	} stopped {x1 y1 x2 y2 R} if 
+	cleartomark
+	} bind def
+/RRR { 
+	/rad exch def
+	normalize /y4 exch def /x4 exch def
+	normalize /y3 exch def /x3 exch def
+	normalize /y2 exch def /x2 exch def
+	normalize /y1 exch def /x1 exch def
+	newpath
+	normalize moveto 
+	mark
+	{
+	x2 y2 x3 y3 rarc
+	x3 y3 x4 y4 rarc
+	x4 y4 x1 y1 rarc
+	x1 y1 x2 y2 rarc
+	closepath
+	} stopped
+	 {x1 y1 x2 y2 x3 y3 x4 y4 newpath moveto lineto lineto lineto closepath} if
+	cleartomark
+	} bind def
+/C { 
+	grestore
+	gsave
+	R 
+	clip
+	setCurrentScreen
+} bind def
+/CP { 
+	grestore
+	gsave
+	Y 
+	clip
+	setCurrentScreen
+} bind def
+	/FMpointsize FMLOCAL
+/F { 
+	FMfonts exch get
+	FMpointsize scalefont
+	setfont
+	} bind def
+/Q { 
+	/FMpointsize exch def
+	F 
+	} bind def
+/T { 
+	moveto show
+	} bind def
+/RF { 
+	rotate
+	0 ne {-1 1 scale} if
+	} bind def
+/TF { 
+	gsave
+	moveto 
+	RF
+	show
+	grestore
+	} bind def
+/P { 
+	moveto
+	0 32 3 2 roll widthshow
+	} bind def
+/PF { 
+	gsave
+	moveto 
+	RF
+	0 32 3 2 roll widthshow
+	grestore
+	} bind def
+/S { 
+	moveto
+	0 exch ashow
+	} bind def
+/SF { 
+	gsave
+	moveto
+	RF
+	0 exch ashow
+	grestore
+	} bind def
+/B { 
+	moveto
+	0 32 4 2 roll 0 exch awidthshow
+	} bind def
+/BF { 
+	gsave
+	moveto
+	RF
+	0 32 4 2 roll 0 exch awidthshow
+	grestore
+	} bind def
+/G { 
+	gsave
+	newpath
+	normalize translate 0.0 0.0 moveto 
+	dnormalize scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	closepath 
+	PFill fill
+	grestore
+	} bind def
+/Gstrk {
+	savematrix
+    newpath
+    2 index 2 div add exch 3 index 2 div sub exch 
+    normalize 2 index 2 div sub exch 3 index 2 div add exch 
+    translate
+    scale 
+    0.0 0.0 1.0 5 3 roll arc 
+    restorematrix
+    currentlinewidth exch setlinewidth PStroke setlinewidth
+    } bind def
+/Gclip { 
+	newpath
+	savematrix
+	normalize translate 0.0 0.0 moveto 
+	dnormalize scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	closepath 
+	clip newpath
+	restorematrix
+	} bind def
+/GG { 
+	gsave
+	newpath
+	normalize translate 0.0 0.0 moveto 
+	rotate 
+	dnormalize scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	closepath
+	PFill
+	fill
+	grestore
+	} bind def
+/GGclip { 
+	savematrix
+	newpath
+    normalize translate 0.0 0.0 moveto 
+    rotate 
+    dnormalize scale 
+    0.0 0.0 1.0 5 3 roll arc 
+    closepath
+	clip newpath
+	restorematrix
+	} bind def
+/GGstrk { 
+	savematrix
+    newpath
+    normalize translate 0.0 0.0 moveto 
+    rotate 
+    dnormalize scale 
+    0.0 0.0 1.0 5 3 roll arc 
+    closepath 
+	restorematrix
+    currentlinewidth exch setlinewidth PStroke setlinewidth
+	} bind def
+/A { 
+	gsave
+	savematrix
+	newpath
+	2 index 2 div add exch 3 index 2 div sub exch 
+	normalize 2 index 2 div sub exch 3 index 2 div add exch 
+	translate 
+	scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	restorematrix
+	PStroke
+	grestore
+	} bind def
+/Aclip {
+	newpath
+	savematrix
+	normalize translate 0.0 0.0 moveto 
+	dnormalize scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	closepath 
+	strokepath clip newpath
+	restorematrix
+} bind def
+/Astrk {
+	Gstrk
+} bind def
+/AA { 
+	gsave
+	savematrix
+	newpath
+	
+	3 index 2 div add exch 4 index 2 div sub exch 
+	
+	normalize 3 index 2 div sub exch 4 index 2 div add exch
+	translate 
+	rotate 
+	scale 
+	0.0 0.0 1.0 5 3 roll arc 
+	restorematrix
+	PStroke
+	grestore
+	} bind def
+/AAclip {
+	savematrix
+	newpath
+    normalize translate 0.0 0.0 moveto 
+    rotate 
+    dnormalize scale 
+    0.0 0.0 1.0 5 3 roll arc 
+    closepath
+	strokepath clip newpath
+	restorematrix
+} bind def
+/AAstrk {
+	GGstrk
+} bind def
+	/x FMLOCAL
+	/y FMLOCAL
+	/w FMLOCAL
+	/h FMLOCAL
+	/xx FMLOCAL
+	/yy FMLOCAL
+	/ww FMLOCAL
+	/hh FMLOCAL
+	/FMsaveobject FMLOCAL
+	/FMoptop FMLOCAL
+	/FMdicttop FMLOCAL
+/BEGINPRINTCODE { 
+	/FMdicttop countdictstack 1 add def 
+	/FMoptop count 7 sub def 
+	/FMsaveobject save def
+	userdict begin 
+	/showpage {} def 
+	FMNORMALIZEGRAPHICS 
+	3 index neg 3 index neg translate
+	} bind def
+/ENDPRINTCODE {
+	count -1 FMoptop {pop pop} for 
+	countdictstack -1 FMdicttop {pop end} for 
+	FMsaveobject restore 
+	} bind def
+/gn { 
+	0 
+	{	46 mul 
+		cf read pop 
+		32 sub 
+		dup 46 lt {exit} if 
+		46 sub add 
+		} loop
+	add 
+	} bind def
+	/str FMLOCAL
+/cfs { 
+	/str sl string def 
+	0 1 sl 1 sub {str exch val put} for 
+	str def 
+	} bind def
+/ic [ 
+	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
+	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
+	0
+	{0 hx} {1 hx} {2 hx} {3 hx} {4 hx} {5 hx} {6 hx} {7 hx} {8 hx} {9 hx}
+	{10 hx} {11 hx} {12 hx} {13 hx} {14 hx} {15 hx} {16 hx} {17 hx} {18 hx}
+	{19 hx} {gn hx} {0} {1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12}
+	{13} {14} {15} {16} {17} {18} {19} {gn} {0 wh} {1 wh} {2 wh} {3 wh}
+	{4 wh} {5 wh} {6 wh} {7 wh} {8 wh} {9 wh} {10 wh} {11 wh} {12 wh}
+	{13 wh} {14 wh} {gn wh} {0 bl} {1 bl} {2 bl} {3 bl} {4 bl} {5 bl} {6 bl}
+	{7 bl} {8 bl} {9 bl} {10 bl} {11 bl} {12 bl} {13 bl} {14 bl} {gn bl}
+	{0 fl} {1 fl} {2 fl} {3 fl} {4 fl} {5 fl} {6 fl} {7 fl} {8 fl} {9 fl}
+	{10 fl} {11 fl} {12 fl} {13 fl} {14 fl} {gn fl}
+	] def
+	/sl FMLOCAL
+	/val FMLOCAL
+	/ws FMLOCAL
+	/im FMLOCAL
+	/bs FMLOCAL
+	/cs FMLOCAL
+	/len FMLOCAL
+	/pos FMLOCAL
+/ms { 
+	/sl exch def 
+	/val 255 def 
+	/ws cfs 
+	/im cfs 
+	/val 0 def 
+	/bs cfs 
+	/cs cfs 
+	} bind def
+400 ms 
+/ip { 
+	is 
+	0 
+	cf cs readline pop 
+	{	ic exch get exec 
+		add 
+		} forall 
+	pop 
+	
+	} bind def
+/rip { 
+	   
+	  
+	  bis ris copy pop 
+      is
+      0
+      cf cs readline pop 
+      {       ic exch get exec 
+              add 
+              } forall 
+	  pop pop 
+	  ris gis copy pop 
+	  dup is exch 
+	  
+      cf cs readline pop 
+      {       ic exch get exec 
+              add 
+              } forall 
+	  pop pop
+	  gis bis copy pop 
+	  dup add is exch 
+	  
+      cf cs readline pop 
+      {       ic exch get exec 
+              add 
+              } forall 
+      pop 
+      
+      } bind def
+/wh { 
+	/len exch def 
+	/pos exch def 
+	ws 0 len getinterval im pos len getinterval copy pop
+	pos len 
+	} bind def
+/bl { 
+	/len exch def 
+	/pos exch def 
+	bs 0 len getinterval im pos len getinterval copy pop
+	pos len 
+	} bind def
+/s1 1 string def
+/fl { 
+	/len exch def 
+	/pos exch def 
+	/val cf s1 readhexstring pop 0 get def
+	pos 1 pos len add 1 sub {im exch val put} for
+	pos len 
+	} bind def
+/hx { 
+	3 copy getinterval 
+	cf exch readhexstring pop pop 
+	} bind def
+	/h FMLOCAL
+	/w FMLOCAL
+	/d FMLOCAL
+	/lb FMLOCAL
+	/bitmapsave FMLOCAL
+	/is FMLOCAL
+	/cf FMLOCAL
+/wbytes { 
+      dup dup
+      24 eq { pop pop 3 mul }
+      { 8 eq {pop} {1 eq {7 add 8 idiv} {3 add 4 idiv} ifelse} ifelse } ifelse
+	} bind def
+/BEGINBITMAPBWc { 
+	1 {} COMMONBITMAPc
+	} bind def
+/BEGINBITMAPGRAYc { 
+	8 {} COMMONBITMAPc
+	} bind def
+/BEGINBITMAP2BITc { 
+	2 {} COMMONBITMAPc
+	} bind def
+/COMMONBITMAPc { 
+		 
+	/r exch def
+	/d exch def
+	gsave
+	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/lb w d wbytes def 
+	sl lb lt {lb ms} if 
+	/bitmapsave save def 
+	r                    
+	/is im 0 lb getinterval def 
+	ws 0 lb getinterval is copy pop 
+	/cf currentfile def 
+	w h d [w 0 0 h neg 0 h] 
+	{ip} image 
+	bitmapsave restore 
+	grestore
+	} bind def
+/BEGINBITMAPBW { 
+	1 {} COMMONBITMAP
+	} bind def
+/BEGINBITMAPGRAY { 
+	8 {} COMMONBITMAP
+	} bind def
+/BEGINBITMAP2BIT { 
+	2 {} COMMONBITMAP
+	} bind def
+/COMMONBITMAP { 
+	/r exch def
+	/d exch def
+	gsave
+	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/bitmapsave save def 
+	r                    
+	/is w d wbytes string def
+	/cf currentfile def 
+	w h d [w 0 0 h neg 0 h] 
+	{cf is readhexstring pop} image
+	bitmapsave restore 
+	grestore
+	} bind def
+/ngrayt 256 array def
+/nredt 256 array def
+/nbluet 256 array def
+/ngreent 256 array def
+	/gryt FMLOCAL
+	/blut FMLOCAL
+	/grnt FMLOCAL
+	/redt FMLOCAL
+	/indx FMLOCAL
+	/cynu FMLOCAL
+	/magu FMLOCAL
+	/yelu FMLOCAL
+	/k FMLOCAL
+	/u FMLOCAL
+FMLevel1 {
+/colorsetup {
+	currentcolortransfer
+	/gryt exch def
+	/blut exch def
+	/grnt exch def
+	/redt exch def
+	0 1 255 {
+		/indx exch def
+		/cynu 1 red indx get 255 div sub def
+		/magu 1 green indx get 255 div sub def
+		/yelu 1 blue indx get 255 div sub def
+		/k cynu magu min yelu min def
+		/u k currentundercolorremoval exec def
+%		/u 0 def
+		nredt indx 1 0 cynu u sub max sub redt exec put
+		ngreent indx 1 0 magu u sub max sub grnt exec put
+		nbluet indx 1 0 yelu u sub max sub blut exec put
+		ngrayt indx 1 k currentblackgeneration exec sub gryt exec put
+	} for
+	{255 mul cvi nredt exch get}
+	{255 mul cvi ngreent exch get}
+	{255 mul cvi nbluet exch get}
+	{255 mul cvi ngrayt exch get}
+	setcolortransfer
+	{pop 0} setundercolorremoval
+	{} setblackgeneration
+	} bind def
+}
+{
+/colorSetup2 {
+	[ /Indexed /DeviceRGB 255 
+		{dup red exch get 255 div 
+		 exch dup green exch get 255 div 
+		 exch blue exch get 255 div}
+	] setcolorspace
+} bind def
+} ifelse
+	/tran FMLOCAL
+/fakecolorsetup {
+	/tran 256 string def
+	0 1 255 {/indx exch def 
+		tran indx
+		red indx get 77 mul
+		green indx get 151 mul
+		blue indx get 28 mul
+		add add 256 idiv put} for
+	currenttransfer
+	{255 mul cvi tran exch get 255.0 div}
+	exch concatprocs settransfer
+} bind def
+/BITMAPCOLOR { 
+	/d 8 def
+	gsave
+	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/bitmapsave save def
+	FMLevel1 {	
+		colorsetup
+		/is w d wbytes string def
+		/cf currentfile def 
+		w h d [w 0 0 h neg 0 h] 
+		{cf is readhexstring pop} {is} {is} true 3 colorimage 
+	} {
+		colorSetup2
+		/is w d wbytes string def
+		/cf currentfile def 
+		7 dict dup begin
+			/ImageType 1 def
+			/Width w def
+			/Height h def
+			/ImageMatrix [w 0 0 h neg 0 h] def
+			/DataSource {cf is readhexstring pop} bind def
+			/BitsPerComponent d def
+			/Decode [0 255] def
+		end image	
+	} ifelse
+	bitmapsave restore 
+	grestore
+	} bind def
+/BITMAPCOLORc { 
+	/d 8 def
+	gsave
+	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/lb w d wbytes def 
+	sl lb lt {lb ms} if 
+	/bitmapsave save def 
+	FMLevel1 {	
+		colorsetup
+		/is im 0 lb getinterval def 
+		ws 0 lb getinterval is copy pop 
+		/cf currentfile def 
+		w h d [w 0 0 h neg 0 h] 
+		{ip} {is} {is} true 3 colorimage
+	} {
+		colorSetup2
+		/is im 0 lb getinterval def 
+		ws 0 lb getinterval is copy pop 
+		/cf currentfile def 
+		7 dict dup begin
+			/ImageType 1 def
+			/Width w def
+			/Height h def
+			/ImageMatrix [w 0 0 h neg 0 h] def
+			/DataSource {ip} bind def
+			/BitsPerComponent d def
+			/Decode [0 255] def
+		end image	
+	} ifelse
+	bitmapsave restore 
+	grestore
+	} bind def
+/BITMAPTRUECOLORc { 
+	/d 24 def
+        gsave
+ 	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/lb w d wbytes def 
+	sl lb lt {lb ms} if 
+        /bitmapsave save def 
+        
+	/is im 0 lb getinterval def	
+	/ris im 0 w getinterval def	
+	/gis im w w getinterval def	
+	/bis im w 2 mul w getinterval def 
+        
+        ws 0 lb getinterval is copy pop 
+        /cf currentfile def 
+        w h 8 [w 0 0 h neg 0 h] 
+        {w rip pop ris} {gis} {bis} true 3 colorimage
+        bitmapsave restore 
+        grestore
+        } bind def
+/BITMAPTRUECOLOR { 
+        gsave
+		
+		3 index 2 div add exch	
+		4 index 2 div add exch	
+		translate		
+		rotate			
+		1 index 2 div neg	
+		1 index 2 div neg	
+		translate		
+		scale			
+		/h exch def /w exch def
+        /bitmapsave save def 
+        /is w string def
+        /gis w string def
+        /bis w string def
+        /cf currentfile def 
+        w h 8 [w 0 0 h neg 0 h] 
+        { cf is readhexstring pop } 
+        { cf gis readhexstring pop } 
+        { cf bis readhexstring pop } 
+        true 3 colorimage 
+        bitmapsave restore 
+        grestore
+        } bind def
+/BITMAPTRUEGRAYc { 
+	/d 24 def
+        gsave
+	
+	3 index 2 div add exch	
+	4 index 2 div add exch	
+	translate		
+	rotate			
+	1 index 2 div neg	
+	1 index 2 div neg	
+	translate		
+	scale			
+	/h exch def /w exch def
+	/lb w d wbytes def 
+	sl lb lt {lb ms} if 
+        /bitmapsave save def 
+        
+	/is im 0 lb getinterval def	
+	/ris im 0 w getinterval def	
+	/gis im w w getinterval def	
+	/bis im w 2 mul w getinterval def 
+        ws 0 lb getinterval is copy pop 
+        /cf currentfile def 
+        w h 8 [w 0 0 h neg 0 h] 
+        {w rip pop ris gis bis w gray} image
+        bitmapsave restore 
+        grestore
+        } bind def
+/ww FMLOCAL
+/r FMLOCAL
+/g FMLOCAL
+/b FMLOCAL
+/i FMLOCAL
+/gray { 
+        /ww exch def
+        /b exch def
+        /g exch def
+        /r exch def
+        0 1 ww 1 sub { /i exch def r i get .299 mul g i get .587 mul
+			b i get .114 mul add add r i 3 -1 roll floor cvi put } for
+        r
+        } bind def
+/BITMAPTRUEGRAY { 
+        gsave
+		
+		3 index 2 div add exch	
+		4 index 2 div add exch	
+		translate		
+		rotate			
+		1 index 2 div neg	
+		1 index 2 div neg	
+		translate		
+		scale			
+		/h exch def /w exch def
+        /bitmapsave save def 
+        /is w string def
+        /gis w string def
+        /bis w string def
+        /cf currentfile def 
+        w h 8 [w 0 0 h neg 0 h] 
+        { cf is readhexstring pop 
+          cf gis readhexstring pop 
+          cf bis readhexstring pop w gray}  image
+        bitmapsave restore 
+        grestore
+        } bind def
+/BITMAPGRAY { 
+	8 {fakecolorsetup} COMMONBITMAP
+	} bind def
+/BITMAPGRAYc { 
+	8 {fakecolorsetup} COMMONBITMAPc
+	} bind def
+/ENDBITMAP {
+	} bind def
+end 
+	/ALDsave FMLOCAL
+	/ALDmatrix matrix def ALDmatrix currentmatrix pop
+/StartALD {
+	/ALDsave save def
+	 savematrix
+	 ALDmatrix setmatrix
+	} bind def
+/InALD {
+	 restorematrix
+	} bind def
+/DoneALD {
+	 ALDsave restore
+	} bind def
+/I { setdash } bind def
+/J { [] 0 setdash } bind def
+%%EndProlog
+%%BeginSetup
+(4.0) FMVERSION
+1 1 0 0 595.28 841.89 0 1 19 FMDOCUMENT
+0 0 /Times-Roman FMFONTDEFINE
+1 0 /Palatino-Italic FMFONTDEFINE
+2 0 /Palatino-Roman FMFONTDEFINE
+3 0 /Courier-Oblique FMFONTDEFINE
+4 0 /Courier FMFONTDEFINE
+5 0 /Times-Italic FMFONTDEFINE
+6 0 /Palatino-Bold FMFONTDEFINE
+32 FMFILLS
+0 0 FMFILL
+1 0.1 FMFILL
+2 0.3 FMFILL
+3 0.5 FMFILL
+4 0.7 FMFILL
+5 0.9 FMFILL
+6 0.97 FMFILL
+7 1 FMFILL
+8 <0f1e3c78f0e1c387> FMFILL
+9 <0f87c3e1f0783c1e> FMFILL
+10 <cccccccccccccccc> FMFILL
+11 <ffff0000ffff0000> FMFILL
+12 <8142241818244281> FMFILL
+13 <03060c183060c081> FMFILL
+14 <8040201008040201> FMFILL
+16 1 FMFILL
+17 0.9 FMFILL
+18 0.7 FMFILL
+19 0.5 FMFILL
+20 0.3 FMFILL
+21 0.1 FMFILL
+22 0.03 FMFILL
+23 0 FMFILL
+24 <f0e1c3870f1e3c78> FMFILL
+25 <f0783c1e0f87c3e1> FMFILL
+26 <3333333333333333> FMFILL
+27 <0000ffff0000ffff> FMFILL
+28 <7ebddbe7e7dbbd7e> FMFILL
+29 <fcf9f3e7cf9f3f7e> FMFILL
+30 <7fbfdfeff7fbfdfe> FMFILL
+%%EndSetup
+%%Page: "9" 1
+%%BeginPaperSize: A4
+%%EndPaperSize
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+J
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 9 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+1 9 Q
+1.71 (nuals: Support for Highly Interactive, Graphical) 105.02 740.08 P
+0.06 (User Interfaces in Lisp) 105.02 729.08 P
+2 F
+0.06 (, Technical Report, CMU-) 187.64 729.08 P
+(CS-89-196, Pittsburg, PA, 1989.) 105.02 718.08 T
+-0.46 ([Ousterout 90] John K. Ousterhout,) 62.5 696.08 P
+1 F
+-0.46 (Tcl: an embeddable com-) 201.87 696.08 P
+-0.46 (mand language) 105.02 685.08 P
+2 F
+-0.46 (, USENIX Winter Conference, Ja-) 160.32 685.08 P
+(nuary 1990, pages 183-192.) 105.02 674.08 T
+0.56 ([Ousterout 94] John K. Ousterhout,) 62.5 652.08 P
+1 F
+0.56 (Tcl and the Tk toolkit) 207 652.08 P
+2 F
+0.56 (,) 286.88 652.08 P
+(Addison-Wesley, 1994, ISBN: 0-201-63337-X.) 105.02 641.08 T
+59.67 85.61 524.55 624.19 R
+7 X
+V
+2 14 Q
+0 X
+(Annex) 62.17 614.86 T
+2 10 Q
+(Complete code of the <Labeled-entry> class.) 59.67 588.52 T
+3 9 Q
+(;;;; Define class "<Labeled-entry>") 76.68 566.19 T
+4 F
+(\050define-class <Labeled-entry> \050<Tk-composite-widget> <Entry>\051) 76.68 544.19 T
+(  \050\050entry) 76.68 533.19 T
+( :accessor   entry-of\051) 130.68 533.19 T
+(   \050label) 76.68 522.19 T
+( :accessor   label-of\051) 125.28 522.19 T
+(   ;; Special slot) 76.68 511.19 T
+(\050text       :accessor) 92.88 500.19 T
+(text) 233.28 500.19 T
+(       :init-keyword :text) 119.88 489.19 T
+(       :allocation   :special) 119.88 478.19 T
+(       :propagate    \050label\051\051) 119.88 467.19 T
+(   \050value      :accessor     value) 76.68 456.19 T
+(      :init-keyword :value) 125.28 445.19 T
+(      :allocation   :special) 125.28 434.19 T
+(      :propagate    \050entry\051\051) 125.28 423.19 T
+(   \050background  :accessor     background) 76.68 412.19 T
+(               :init-keyword :background) 76.68 401.19 T
+( :allocation   :special) 152.28 390.19 T
+( :propagate    \050frame entry label\051\051\051) 152.28 379.19 T
+(  :metaclass <Tk-composite>\051) 76.68 368.19 T
+3 F
+(;;;; Define method "initialize-composite-widget". This method will be called when) 76.68 346.19 T
+(;;;; a new labeled entry will be created.) 76.68 335.19 T
+4 F
+(\050define-method initialize-composite-widget) 76.68 313.19 T
+(                    \050\050self <Labeled-entry>\051 initargs frame\051) 76.68 302.19 T
+(  \050let* \050\050e \050make <Entry> :parent frame :relief "ridge"\051\051) 76.68 280.19 T
+( \050l \050make <Label> :parent frame\051\051) 119.88 269.19 T
+(    ;; pack sub widgets) 76.68 247.19 T
+(    \050pack l :side "left"  :padx 5 :pady 5\051) 76.68 236.19 T
+(    \050pack e :side "right" :padx 5 :pady 5 :expand #t :fill "x"\051) 76.68 225.19 T
+(    ;; Set proper slots) 76.68 203.19 T
+(    \050slot-set! self 'Id     \050Id e\051\051) 76.68 192.19 T
+(    \050slot-set! self 'entry  e\051) 76.68 181.19 T
+(    \050slot-set! self 'label  l\051\051\051) 76.68 170.19 T
+3 F
+(;;;; To create the labeled entry of Figure 2:) 76.68 148.19 T
+4 F
+(\050define le \050make <Labeled-entry> :text "Enter a value" :value 100\051\051) 76.68 137.19 T
+3 F
+(;;;; To map it on the screen:) 76.68 115.19 T
+4 F
+(\050pack le\051) 76.68 104.19 T
+2 F
+0.79 ([Steele 90] Guy. L. Steele Jr.,) 297.78 741.21 P
+1 F
+0.79 ( Common Lisp: the Language) 412.74 741.21 P
+2 F
+0.79 (,) 522.16 741.21 P
+-0.49 (2nd Edition, Digital Press \050Bedford, MA\051, 1990.) 340.3 730.21 P
+59.67 629.86 524.55 629.86 2 L
+3 H
+2 Z
+N
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "9" 1
+%%Page: "8" 2
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 8 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+2.88 (This call will activate the setter function of the) 62.5 739.41 P
+4 F
+2.67 (background) 62.5 727.41 P
+2 F
+1.11 ( slot. This setter function will do the) 122.5 727.41 P
+0.16 (three slot assignments needed to change totally the) 62.5 715.41 P
+-0.44 (background. Note that this setter function is created) 62.5 703.41 P
+1.61 (only once in the program \050i.e. at the) 62.5 691.41 P
+4 F
+3.86 (<Labeled-) 235.13 691.41 P
+9.31 (entry>) 62.5 679.41 P
+2 F
+3.88 ( creation time\051. Consequently, the only) 98.5 679.41 P
+-0.16 (overhead we have to access such a special slot \050) 62.5 667.41 P
+1 F
+-0.16 (vs.) 270.4 667.41 P
+2 F
+-0.16 ( a) 281.8 667.41 P
+2.23 (true-widget pseudo slot\051 is the call to the initial) 62.5 655.41 P
+4 F
+(slot-value) 62.5 643.41 T
+2 F
+(.) 122.5 643.41 T
+-0.29 (In the object oriented programming spirit, our com-) 62.5 619.41 P
+0.63 (position mechanism must be applicable more than) 62.5 607.41 P
+1.08 (once. It means that we must be able to build new) 62.5 595.41 P
+-0.25 (composite widgets which are built upon previously) 62.5 583.41 P
+0.3 (created composite widgets. Consider for instance a) 62.5 571.41 P
+1 F
+-0.18 (choice box) 62.5 559.41 P
+2 F
+-0.18 (widget. This new kind of widget could be) 105.93 559.41 P
+1.5 (implemented with a labeled entry, as the one we) 62.5 547.41 P
+-0.05 (have used until now, to which is associated a menu) 62.5 535.41 P
+5.56 (button giving a list of possible choices \050see) 62.5 523.41 P
+-0.08 (Figure) 62.5 511.41 P
+-0.08 (3\051. Here, the) 93.8 511.41 P
+4 F
+-0.19 (<Choice-box>) 150.12 511.41 P
+2 F
+-0.08 (inherits of the) 227.93 511.41 P
+1.25 (previous) 62.5 499.41 P
+4 F
+2.99 (<Labeled-Entry>) 105.29 499.41 P
+2 F
+1.25 ( class and a possible) 195.29 499.41 P
+(definition for this class could be:) 62.5 487.41 T
+4 8 Q
+(\050define-class <Choice-Entry>) 79.51 466.75 T
+(\050<Labeled-Entry>\051) 146.71 456.75 T
+(\050\050frame      :accessor frame-of\051) 89.11 446.75 T
+(\050lab-entry  :accessor lentry-of\051) 93.91 436.75 T
+(\050menu       :accessor menu-of\051) 93.91 426.75 T
+(\050menubutton :accessor menubutton-of\051) 93.91 416.75 T
+(\050value      :accessor     value) 93.91 406.75 T
+(:init-keyword :value) 151.51 396.75 T
+(:allocation   :special) 151.51 386.75 T
+(:propagate    \050lentry\051\051) 151.51 376.75 T
+(:metaclass <Tk-composite>\051) 89.11 356.75 T
+2 10 Q
+-0.09 (This simple class definition and its associated) 62.5 333.41 P
+4 F
+-0.21 (ini-) 265.13 333.41 P
+-0.44 (tialize) 62.5 321.41 P
+2 F
+-0.19 ( method suffice to define a choice box. We) 104.5 321.41 P
+-0.4 (can see that access to the) 62.5 309.41 P
+4 F
+-0.96 (value) 171.26 309.41 P
+2 F
+-0.4 ( special slot will still) 201.26 309.41 P
+1.07 (give a correct value. For instance, getting this slot) 62.5 297.41 P
+2.48 (will redirect the reading to the) 62.5 285.41 P
+4 F
+5.96 (lab-entry) 214.28 285.41 P
+2 F
+2.48 ( slot) 268.28 285.41 P
+0.97 (which in turn will redirect it to the reading of the) 62.5 273.41 P
+(slot) 62.5 261.41 T
+4 F
+(value) 80.87 261.41 T
+2 F
+( of the entry, as seen before.) 110.87 261.41 T
+0 18 Q
+(5) 62.5 222.08 T
+(  Conclusion) 71.5 222.08 T
+2 10 Q
+-0.12 (In this paper we have presented the STk interpreter) 62.5 193.41 P
+-0.12 (and its object oriented extension. Both packages are) 62.5 181.41 P
+0.51 (well integrated with the Tk graphical toolkit. Even) 62.5 169.41 P
+0.8 (if using an applicative or object oriented language) 62.5 157.41 P
+7.33 (for GUI programming is not a new idea) 62.5 145.41 P
+-0.57 (\050[Calder) 62.5 133.41 P
+-0.57 (87],  or [Garnet] for instance\051, rare are those) 101.51 133.41 P
+-0.36 (which use extensively a meta object protocol. Inves-) 62.5 121.41 P
+0.75 (tigating in this direction seems interesting and the) 62.5 109.41 P
+0.66 (results already obtained are promising. In particu-) 306.14 739.41 P
+0.82 (lar, the original mechanism of composition shown) 306.14 727.41 P
+1.84 (in this paper is a good illustration of adapting a) 306.14 715.41 P
+2.16 (meta protocol to a particular need. It permits to) 306.14 703.41 P
+1.23 (build and test new widgets without having to re-) 306.14 691.41 P
+0.95 (compile the toolkit. Furthermore, daily experience) 306.14 679.41 P
+0.96 (of STk and STklos show that an applicative object) 306.14 667.41 P
+0.65 (oriented languages can be comparable, in terms of) 306.14 655.41 P
+(performances, to a more classical language.) 306.14 643.41 T
+2 14 Q
+(Availability) 306.14 616.75 T
+2 10 Q
+-0.46 (STk and its object system STklos are distributed free) 306.14 590.41 P
+-0.56 (of charge by anonymous ftp at) 306.14 578.41 P
+4 F
+-1.36 (kaolin.unice.fr) 440.27 578.41 P
+2 F
+-0.56 (.) 530.27 578.41 P
+(Current version runs on) 306.14 566.41 T
+(\245Sun Solaris \0501 & 2\051,) 320.32 542.41 T
+(\245Ultrix \0504.2\051,) 320.32 518.41 T
+(\245Dec OSF1,) 320.32 494.41 T
+(\245SGI \050Irix4.05 & 5.1.1\051) 320.32 470.41 T
+(\245Linux\0500.99\051.) 320.32 446.41 T
+2 14 Q
+(References) 306.14 414.75 T
+2 9 Q
+-0.23 ([Apple 92] Apple,) 306.14 390.08 P
+1 F
+-0.23 (Dylan: an object oriented dynamic langua-) 378.94 390.08 P
+(ge) 348.66 379.08 T
+2 F
+(, Apple Computer, 1992.) 356.66 379.08 T
+-0.25 ([Calder 87] Mark A. Linton, Paul R. Calder and John Vlis-) 306.14 357.08 P
+1.72 (sides,) 348.66 346.08 P
+1 F
+1.72 (The Design and Implementation of Inter-) 374.94 346.08 P
+5.6 (Views,) 348.66 335.08 P
+2 F
+5.6 (Proceedings of the USENIX C++) 381.26 335.08 P
+1.67 (Workshop, Santa Fe, New Mexico,november) 348.66 324.08 P
+(1987.) 348.66 313.08 T
+0.19 ([Clinger 91] W. Clinger and J. Rees \050editors\051,) 306.14 291.08 P
+1 F
+0.19 (Revised) 486.22 291.08 P
+1 7.2 Q
+0.16 (4) 514.23 294.68 P
+1 9 Q
+0.19 ( Re-) 517.83 291.08 P
+0.77 (port on the Algorithmic Language Scheme) 348.66 280.08 P
+2 F
+0.77 (, ACM) 505.6 280.08 P
+(Lisp Pointers, 4 \0503\051, 1991.) 348.66 269.08 T
+0.77 ([Kickzales 91] Gregor Kickzales, Jim de Rivi\217res, Daniel) 306.14 247.08 P
+-0.25 (G. Bobrow,) 348.66 236.08 P
+1 F
+-0.25 (The Art of Meta Object Protoco) 395.39 236.08 P
+2 F
+-0.25 (l, MIT) 508.84 236.08 P
+(Press, 1991.) 348.66 225.08 T
+1.06 ([Lieberman 86] Henry Lieberman,) 306.14 203.08 P
+1 F
+1.06 (Delegation and Inheri-) 448.14 203.08 P
+0.17 (tance: Two Mechanisms for Sharing Knowledge in) 348.66 192.08 P
+0.08 (Object Oriented Systems) 348.66 181.08 P
+2 F
+0.08 (, Actes des 3) 439.67 181.08 P
+2 7.2 Q
+0.07 (e) 489.11 184.68 P
+2 9 Q
+0.08 (JLOO, Bi-) 494.43 181.08 P
+(gre+Globule, 48, pages 79-89, Paris, 1986.) 348.66 170.08 T
+-0.38 ([Meyer 89] Bertrand Meyer,) 306.14 148.08 P
+1 F
+-0.38 (Object Oriented Software Cons-) 417.33 148.08 P
+-0.1 (truction) 348.66 137.08 P
+2 F
+-0.1 (, Prentice Hall International \050UK\051, Ltd.,) 378.33 137.08 P
+(Hemel Hemstead, 1989.) 348.66 126.08 T
+0.91 ([Myers 89] Brad Myers,) 306.14 104.08 P
+1 F
+0.91 (The Garnet Toolkit Reference Ma-) 405.48 104.08 P
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "8" 2
+%%Page: "7" 3
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 7 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+1.78 (frame\325s) 62.5 628.86 P
+4 F
+4.26 (Id) 99.7 628.86 P
+2 F
+1.78 ( which embodies the components of a) 111.7 628.86 P
+(composite widget.) 62.5 616.86 T
+0.44 (This implementation of the labeled entry is not yet) 62.5 592.86 P
+0.87 (completely satisfactory. With the previous inherit-) 62.5 580.86 P
+1.72 (ance scheme, the entry sub-widget plays a major) 62.5 568.86 P
+-0.18 (role in the labeled entry. In some occasions, howev-) 62.5 556.86 P
+0.87 (er, we could want that the accesses to a particular) 62.5 544.86 P
+0.05 (slot will be \322redirected\323 to another sub-widget. For) 62.5 532.86 P
+0.03 (instance, we could want that readings and writings) 62.5 520.86 P
+-0.47 (to the slot) 62.5 508.86 P
+4 F
+-1.13 (relief) 107.05 508.86 P
+2 F
+-0.47 ( of a labeled entry access in fact to) 143.05 508.86 P
+1.1 (the relief of the frame rather than the entry relief.) 62.5 496.86 P
+-0.32 (Eventually, we could also want that a slot modifica-) 62.5 484.86 P
+1.42 (tion will be propagated to several sub-widgets of) 62.5 472.86 P
+0.14 (the labeled entry. For instance, it would be suitable) 62.5 460.86 P
+0.82 (to propagate the modification of the) 62.5 448.86 P
+4 F
+1.96 (background) 229.13 448.86 P
+2 F
+0.12 (slot of a labeled entry not only to the entry but also) 62.5 436.86 P
+0.76 (to the label and the frame. What is wanted here is) 62.5 424.86 P
+1.12 (close to the delegation mechanism[Libermann) 62.5 412.86 P
+1.12 (86].) 273.3 412.86 P
+-0.08 (As we will see, the solution provided in STklos will) 62.5 400.86 P
+0.91 (permit to choose to which sub-widget\050s\051 a slot ac-) 62.5 388.86 P
+(cess must be redirected.) 62.5 376.86 T
+0 14 Q
+(4.3) 62.5 350.2 T
+(  The <Tk-composite> class) 80 350.2 T
+2 10 Q
+0.76 (STklos provides a special meta-class, named) 62.5 323.86 P
+4 F
+1.83 (<Tk-) 265.13 323.86 P
+1.15 (composite>) 62.5 311.86 P
+2 F
+0.48 ( for handling the creation of compos-) 122.5 311.86 P
+-0.57 (ites widgets. The main job of this meta-class consists) 62.5 299.86 P
+0.53 (to manage a special kind of slots whose access can) 62.5 287.86 P
+1.9 (be redirected to slots of other objects. Using this) 62.5 275.86 P
+0.52 (meta-class, a simple implementation of the labeled) 62.5 263.86 P
+(entry discussed before could be written as:) 62.5 251.86 T
+4 8 Q
+(\050define-class <Labeled-entry>) 79.51 231.2 T
+(\050<Tk-composite-widget> <Entry>) 117.91 221.2 T
+(\050\050entry        :accessor     entry-of\051) 89.11 211.2 T
+(\050label        :accessor     label-of\051) 93.91 201.2 T
+(\050background) 93.91 191.2 T
+(:accessor     background) 161.11 191.2 T
+(:init-keyword :background) 156.31 181.2 T
+(:allocation   :special) 156.31 171.2 T
+(:propagate    \050frame entry) 156.31 161.2 T
+(label\051\051) 223.51 151.2 T
+(\050value        :accessor     value-of) 93.91 141.2 T
+(:init-keyword :value) 161.11 131.2 T
+(:allocation   :special) 161.11 121.2 T
+(:propagate    \050entry\051\051\051) 161.11 111.2 T
+(:metaclass <Tk-composite>\051) 79.51 101.2 T
+2 10 Q
+0.22 (As we can see, a label entry inherits from the) 306.14 739.41 P
+4 F
+0.54 (<En-) 508.77 739.41 P
+2.05 (try>) 306.14 727.41 P
+2 F
+0.85 (class. This class defines all the slots \050i.e. Tk) 338.19 727.41 P
+1.75 (options\051 available for an entry. It is important to) 306.14 715.41 P
+0.82 (note here that even if the slots for such a class are) 306.14 703.41 P
+-0.6 (numerous, only three of them are effectively allocat-) 306.14 691.41 P
+1.64 (ed in a standard Tk widget \050namely) 306.14 679.41 P
+4 F
+3.93 (parent) 478.13 679.41 P
+2 F
+1.64 (,) 514.13 679.41 P
+4 F
+3.93 (Id) 520.77 679.41 P
+2 F
+-0.27 (and) 306.14 667.41 P
+4 F
+-0.64 (Eid) 325.3 667.41 P
+2 F
+-0.27 (\051. All the other slots are pseudo-slots which) 343.3 667.41 P
+(are allocated elsewhere) 306.14 655.41 T
+2 8 Q
+(6) 409.18 659.41 T
+2 10 Q
+(.) 413.18 655.41 T
+2.3 (Previous class definition augments the) 306.14 631.41 P
+4 F
+5.53 (<Entry>) 490.77 631.41 P
+2 F
+-0.22 (class with three new slots called) 306.14 619.41 P
+4 F
+-0.54 (frame) 448.79 619.41 P
+2 F
+-0.22 (,) 478.79 619.41 P
+4 F
+-0.54 (entry) 483.57 619.41 P
+2 F
+-0.22 ( and) 513.57 619.41 P
+4 F
+6.1 (label) 306.14 607.41 P
+2 F
+2.54 (. These slots will contain the sub-widgets) 336.14 607.41 P
+-0.38 (composing the labeled entry. Next, two slots are de-) 306.14 595.41 P
+1.91 (clared with a) 306.14 583.41 P
+1 F
+1.91 (special) 371.9 583.41 P
+2 F
+1.91 ( allocation protocol \050signaled) 398.75 583.41 P
+-0.56 (with the) 306.14 571.41 P
+4 F
+-1.35 (:special) 344.22 571.41 P
+2 F
+-0.56 ( keyword\051. Special slots are slots) 392.22 571.41 P
+-0.34 (for which reading and writing are redirected to oth-) 306.14 559.41 P
+1.39 (er sub-widgets. Here again, such slots are not di-) 306.14 547.41 P
+-0.03 (rectly implemented in an instance; they don\325t make) 306.14 535.41 P
+0.08 (the instance size growing. The) 306.14 523.41 P
+4 F
+0.19 (background) 442.96 523.41 P
+2 F
+0.08 ( slot of) 502.96 523.41 P
+0.39 (this class definition, for instance, states that setting) 306.14 511.41 P
+-0.11 (its value must be propagated to the entry, label and) 306.14 499.41 P
+-0.15 (frame slots \050reading of this slot will find its value in) 306.14 487.41 P
+1.74 (the first element of the) 306.14 475.41 P
+4 F
+4.17 (:propagate) 416.74 475.41 P
+2 F
+1.74 ( list: frame\051.) 476.74 475.41 P
+2.01 (Note that) 306.14 463.41 P
+4 F
+4.81 (background) 354.31 463.41 P
+2 F
+2.01 ( is already present in the) 414.31 463.41 P
+1.39 (<) 306.14 451.41 P
+4 F
+3.34 (Entry>) 312.2 451.41 P
+2 F
+1.39 ( as a pseudo-slot; current definition will) 348.2 451.41 P
+0.66 (overload the inherited one. Concerning the) 306.14 439.41 P
+4 F
+1.59 (value) 502.77 439.41 P
+2 F
+1.38 (slot, it is said that it is redirected only to the slot) 306.14 427.41 P
+4 F
+(value) 306.14 415.41 T
+2 F
+( of the) 336.14 415.41 T
+4 F
+(entry) 366.3 415.41 T
+2 F
+( component.) 396.3 415.41 T
+2.97 (We can now define the) 306.14 391.41 P
+4 F
+7.12 (initialize-compos-) 424.77 391.41 P
+3.09 (ite-widget) 306.14 379.41 P
+2 F
+1.29 ( method which will be called by the) 366.14 379.41 P
+2.5 (system  just after a composite widget allocation) 306.14 367.41 P
+1.14 (\050complete code is given in annex\051. The only thing) 306.14 355.41 P
+0.94 (we have to do in this method consists to initialize) 306.14 343.41 P
+2.9 (the two true slots defined directly in the) 306.14 331.41 P
+4 F
+6.95 (<La-) 508.77 331.41 P
+(beled-entry>) 306.14 319.41 T
+2 F
+( class \050) 378.14 319.41 T
+4 F
+(entry) 407.3 319.41 T
+2 F
+( and) 437.3 319.41 T
+4 F
+(label) 459.23 319.41 T
+2 F
+(\051.) 489.23 319.41 T
+0.27 (Previous definitions permits to hide to the user the) 306.14 295.41 P
+-0.39 (fact that a labeled entry is a composite widget by of-) 306.14 283.41 P
+1.27 (fering the same kind of access. For example, sup-) 306.14 271.41 P
+1.07 (pose now that) 306.14 259.41 P
+4 F
+2.56 (le) 374.3 259.41 P
+2 F
+1.07 ( denotes an instance of the class) 386.3 259.41 P
+4 F
+3.7 (<Labeled-entry>) 306.14 247.41 P
+2 F
+1.54 (; setting all its components to) 396.14 247.41 P
+4 F
+(\254grey\254) 306.14 235.41 T
+2 F
+( can be simply done by) 342.14 235.41 T
+4 8 Q
+(\050set! \050slot-value le \324background\051) 323.15 214.75 T
+(\254grey\254\051) 351.95 204.75 T
+2 10 Q
+(or) 306.14 183.41 T
+4 8 Q
+(\050set! \050background le\051 \254grey\254\051) 323.15 162.75 T
+306.14 132.95 532.77 147.12 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 145.14 456.38 145.14 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+0 -158.11 1000 841.89 C
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+2.32 (6.) 324.14 126.28 P
+0 0 0 1 0 0 0 K
+4 F
+5.57 (<Tk-composite-widget>) 334.14 126.28 P
+0 0 0 1 0 0 0 K
+0 F
+2.32 ( defines also) 460.14 126.28 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0.61 (a slot named) 324.14 114.28 P
+0 0 0 1 0 0 0 K
+4 F
+1.46 (frame) 379.02 114.28 P
+0 0 0 1 0 0 0 K
+0 F
+0.61 ( which contains the exter-) 409.02 114.28 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(nal frame of the composite widget.) 324.14 102.28 T
+0 0 0 1 0 0 0 K
+%%BeginBinary:  4573     
+325 130 226.77 85.04 0 59.67 663.88
+/red <
+59631A477060B4375CD77040DC4399E164E51EF292005CD7998BC67A55D3848C
+D98CCCFFFFB219FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF
+BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
+7F7F7F7F7F7F7F7F7F7F7F7F7F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+3F3F3F3F3F0000000000000000000000000000000000008B87007F00BF00FFFF
+9855229833CD6640FF808000669400000000803F6BFAB299FF7BFFCDFF99FFFF
+FFFFB0B0FFD9F466B7CC5598CCFFFF8FF500DC0000B20099D200EE00FF77FF32
+ABCBFFFFB0DA5C863066CD60CDFF7F40B3FFFF724DFFFF99FF8B2FFF80C000FF
+> store
+/green <
+1E631A4732606E375CD77040DC0A999695E590F250005CD79999D57A6BD3708C
+C27DB70000221914FFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F3F000000FFFFFF
+FFFFBFBFBFBF7F7F7F7F7F3F3F3F3F3F0000000000FFFFFFFFFFBFBFBFBFBF7F
+7F7F7F3F3F3F3F3F0000000000FFFFFFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F
+0000000000FFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F3F77CE005700BF000000
+32000065FE3300A000008080999400FF0080003F86FFDF89E466EEAA0068F400
+AE0030B000D9F466B7CC550099003380DE9A005577C0ABCCB4FFD53200000065
+00FF0000E27054FF606233C0C5FF7F40B3FF00774D6AFA89FF7E4FE480C000FF
+> store
+/blue <
+71C36CA189BFD08E5CD7D299DC5999FFEDE5FFF2AC4D5CD799B5E27A2FD3FF8C
+9A6391FFFF227093BF7F3FFFBF7F3F00FFBF7F3F00FFBF7F3F00BF7F3FFFBF7F
+3F00FF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FF
+BF3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F00
+FFBF7F3F00BF7F3FFFBF7F3F00FFBF7F3F00FFBF7F3F0065FABF5C7FBF3FFFFF
+00000000000000C0FF800000CC94FFFF8080003F8FFFEE76C44BAF7DFF6FFFFF
+B9FF60B0FFD9F466B7CC556566FF336EB3CD000000DC00CC8C00B798FF00FF65
+00FFFFFFFFD6C0E0505F33A0BFE07F40B30000854D6ACD6DFE664FB580C000FF
+> store
+ BEGINBITMAPCOLORc
+
+
+
+9z
+T:E9:Z"Z"Z
+7E9S6E97J"J"J"
+:E9S6E97E9<z:z:z
+4ECS3EC4EC
+>z9z9z"
+2E9S4E92E9FFJ"J"G"
+<E9S6E9FF@Z"Z"Z"Z"Z
+1E9R@E91E91E91J"J"G"G"G"
+:E9R@E9E9E9E9By:z:y:y:y
+ECR=ECECECECJ(B#J'
+P.FEFEFEFEECFEFEFEFE4FEFEFEFEFEFEJ'D#J&JT"
+P-FEFEECECFEFEECEC6ECECECFEFEPGE9J$8#9#9%8#8%9%F%8#8#Js
+P,FEFEECECECFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEP:ECJ,:.D'
+P5FEECFEFEECFEFEECECFEFEFEFEECECFEFEECFEFEECECFEFEFEFEECECFEFEDT"J"H#E&>'J%
+E9OKECECECFEFEFEFEECECFEFEFEFEECP*FFFFFFE9EsJ#@&?"8"J#F#
+ECP6FEFEECECECFEFEECECOHFFE9ECECJ%J"8"J"
+PMECECECEC6FEFEOHE9DtJ$8#J#;#J'J#E$
+E9OCECFEFEFEFE5FEFEFEFE5FEFEECECFEFEOGECECE9E9E9DuJ'=':.>-J%
+ECOCECFEFEFEFEECECFEFEFEFEECECFEFEFEFEECECECFEFEFEFEECFEFEFEFEECECECFEFEFEFEECP1ECECECECJr8#8%8#8%9%='9%8#8#
+P.ECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECJt
+T)E9Ju
+T)EC
+;$9z9z9z9z9z9$
+E9E9E9/E9R>E9/E9/E9/E9E9E9E9:";"G"J"G"G"G"
+E9E9E9R@E9E9E9E9:P"z"P
+E9T,C9E9>"J"
+E9T2E9<#J#
+ECECT1ECEC
+
+
+JZ
+P=Q(Jz
+P>Q'1BJz"AZ
+P?Q$C9FF0J"
+T01BJw"
+T#C91BJ(J#J'
+5FEFEFEFEC9FEFEO1FEFE@FEFEFEFEFEFE;$B'J&JsA$
+E9E9E9FEFEC9C9FEFEP(C9C9C9C9C9Q,FEE9E9E9:"D$8#9#9%9%9%9%=%<#9#8%;#8#8%J$9"9"8$J"
+E9FEFEC9C9C9FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE<FEFEFEFEFEFEC9FEQ+E9:PI5;'C'A'J&@#J"<"@P
+@FEC9FEFEC9FEFEC9C9FEFEC9FEFEC9C9FEFEC9FEFEC9C9FEFEC9FEFEC9C9FEFEFEFEC9C9FEFEFEFEC9C9FEFEFEFEC9C9FEFE:FEC9C9C9FEFEC9PGC9C9>"I"J%B#?+J%H"J"
+E9C94FEC9C9C9C9C9C9FEFEC9FEFEC9C9C9C9HFEFEFEFEC9Q0E9<#J&:#>$F$E#J%J":"C#
+ECECGC9C9FEFEFEFEFEFEFEFEFEFEFEFEFE5C9C9C9C9Q.C9C9ECECJ"8"9%;%>&8%E%
+O#C9FEC9C9C9C9FEFEC9C9C9FEFEFEC9FEFEC9C9C9C9C9C9I$8#J%=#J"=#J"J"8"
+C9FEFEFEFE5FEFEC9C9FEFEEFEFEFEDFEQ!C9C9J'=5;(<$9(9%9'J&8%
+4C9FEFEFEFEC9;C9FEFEFEFEC9C9C9FEFEFEFEC9C9C9FEFEFEFEC9C9C9FEFEFEFEC9C9FEFEFEC9FEFEC9FEC9C9FEFEFEC9FEFEC9FEFEC9C9FEFEFEFEC9:C9FEFEFEC9C9FEFEC9Jr8#8%9%9%9%='=";s8&8%I">$:%8"J#
+5C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9PLC9C9
+Jw
+T#1BJ"
+T"1BJZCZ8%
+P?Q$5FFFFFFFFJzJ"
+P?Q%1BO(1BJzBz"
+P=Q(C9HC91B
+
+
+J%
+T(FEFEFEFEJ'
+T'FEFEC9C9FEFE@z;$8*9%
+SEE9FEFEC9C9FEFEC9FEFEC9FEFEFEFEFEFE?Z"ZF,
+2E9S3FEC9FEFEC9FEFEC9C9FEFE>"G"J"
+FFE9SDC9>z:zJ#
+2ECS1EC7FEFEJ%
+T8C9C9C9C9;z9z;$8$B#
+5E9S2E9C9FEFEFEFEC9FEFE:"J"J'?'
+E97E9S8C9FEFEFEFEC9C9FEFEFEFEC99Z=%9#8#8%
+SLC9C9C9C9C9C9C9C9C9C9C9C9
+
+
+
+
+
+
+
+Js
+T%FEJ$8$
+T%C9C9C9C9C9C9J#8#8#8%
+T-FEFEFEFEFEFEFEFEFEFEJ'
+T8FEFEC9C9FEFEJ$:$
+T-C9FEFEFEFEC9
+
+J)
+T.C9FEFEC9C9FEFEC9J'
+T8C9FEFEFEFEC9J#;#8#:%
+T(C9C9C9C9C9C9C9C9C9C9
+
+
+
+
+
+
+
+Ju
+T%FEJ$8$
+T%C9C9C9C9C9C9J#8+9%
+T0FEFEFEFEC9FEFEC9FEFEFEFEFEFEFEFEJ%9"8.
+T/FEC9FEFEFEFEFEC9C9FEFEC9FEFEC9C9FEFEJ"=#
+T/C9C9C9J":#;#
+T6C9FEFEFEFEJ%9%
+T;C9C9C9C9C9C9C9C9J#;#
+T=FEFEFEFEJ.
+T9C9FEFEFEFEC9C9C9FEFEFEFEC9J#9#8&:%9%
+T(C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9
+
+
+
+
+
+
+
+J'
+T&FEFEFEFEFEFEJ%
+T(C9C9C9C9J%8#8)
+T-FEFEFEFEFEFEFEFEC9FEFEC9FEFEJ'@"
+T,FEFEC9C9FEFEFEJ$H#
+T(FEFEFEC9C9J$G"
+T(C9C9C9C9
+J"
+T6FEJ,
+T,C9FEFEFEFEC9C9C9FEFEC9J#;%9s
+T&C9C9C9C9C9C9C9
+
+
+
+Jz
+T#H1BJ"
+T"1BJZ
+T"K
+
+ENDBITMAP
+%%EndBinary
+59.67 641.2 286.44 658.21 R
+7 X
+V
+1 F
+0 X
+(Figure 3: A Choice Box) 126.15 651.54 T
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "7" 3
+%%Page: "6" 4
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 6 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+4 F
+-1.35 (ue-of) 62.5 657.21 P
+2 F
+-0.56 ( notion directly as a slot, rather than a generic) 92.5 657.21 P
+(function. Virtual slots will be not described here.) 62.5 645.21 T
+0.12 (As we have seen, programming with STklos brings) 62.5 621.21 P
+-0.08 (the power of a full object language to the process of) 62.5 609.21 P
+0.49 (graphical user interface building. Next section will) 62.5 597.21 P
+0.41 (show that it also permits to easily implement com-) 62.5 585.21 P
+(posite widgets.) 62.5 573.21 T
+0 18 Q
+(4) 62.5 533.88 T
+(  De\336ning composite widgets) 71.5 533.88 T
+2 10 Q
+4.04 (Today, object oriented programming languages) 62.5 505.21 P
+0.51 (have proven their usefulness in program construc-) 62.5 493.21 P
+-0.17 (tion. In particular, it is a clich\216 to say that they facil-) 62.5 481.21 P
+4.9 (itate program maintainability and code reuse.) 62.5 469.21 P
+0.78 (However, there is one point where object oriented) 62.5 457.21 P
+2.46 (paradigm is not so well suited: creation of new) 62.5 445.21 P
+0.01 (classes of objects which are the composition of sim-) 62.5 433.21 P
+(pler ones.) 62.5 421.21 T
+0 14 Q
+(4.1) 62.5 394.54 T
+(  The problem) 80 394.54 T
+2 10 Q
+-0.05 (To illustrate our purpose, let us have a look to a) 62.5 368.21 P
+4 F
+-0.11 (l) 275.36 368.21 P
+1 F
+-0.05 (a-) 281.36 368.21 P
+-0.52 (beled entry) 62.5 356.21 P
+2 F
+-0.52 (. A labeled entry is a small line editor with) 106.34 356.21 P
+-0.15 (a label on its left informing the user about the value) 62.5 344.21 P
+(he/she is supposed to provide \050see Figure) 62.5 332.21 T
+(2\051.) 251.11 332.21 T
+-0.24 (Since this kind of graphical object does not exist per) 62.5 308.21 P
+0.56 (se in pure Tk, we could want to create a new class) 62.5 296.21 P
+0.44 (for labeled entries. In Tk, this kind of object can be) 62.5 284.21 P
+-0.37 (implemented by composing three basic objects: a) 62.5 272.21 P
+1 F
+-0.37 (la-) 278.58 272.21 P
+1.84 (bel) 62.5 260.21 P
+2 F
+1.84 (, an) 73.8 260.21 P
+1 F
+1.84 (entry) 95.79 260.21 P
+2 F
+1.84 ( and a) 117.46 260.21 P
+1 F
+1.84 (frame) 152.4 260.21 P
+2 F
+1.84 ( which will group them.) 175.18 260.21 P
+0.08 (Once this composition is done, the frame will serve) 62.5 248.21 P
+-0.28 (to manipulate the labeled entry from the outside \050to) 62.5 236.21 P
+1.27 (place it on the screen for instance\051. Of course, ac-) 62.5 224.21 P
+-0.23 (cessing to the text entered by the user or to the label) 62.5 212.21 P
+(of this object will necessitate to \322open\323 the frame.) 62.5 200.21 T
+0 14 Q
+(4.2) 62.5 173.54 T
+(  Classical solutions) 80 173.54 T
+2 10 Q
+0.51 (Let us look how we could implement a class) 62.5 147.21 P
+4 F
+1.24 (<La-) 265.13 147.21 P
+-1.12 (beled-entry>) 62.5 135.21 P
+2 F
+-0.47 ( for the kind of labeled entries spec-) 134.5 135.21 P
+0.63 (ified above. The first approach consists to uses the) 62.5 123.21 P
+0.59 (multiple-inheritance mechanism to implement this) 62.5 111.21 P
+0.16 (new class. In this case, we can inherit from the pre-) 306.14 739.41 P
+0.5 (defined classes) 306.14 727.41 P
+4 F
+1.19 (<Frame>) 375.85 727.41 P
+2 F
+0.5 (,) 417.85 727.41 P
+4 F
+1.19 (<Label>) 423.35 727.41 P
+2 F
+0.5 ( and) 465.35 727.41 P
+4 F
+1.19 (<Entry>) 488.27 727.41 P
+2 F
+0.5 (.) 530.27 727.41 P
+0.55 (Unfortunately, this will not work since inheritance) 306.14 715.41 P
+1.61 (will share all the common slots. It means, for in-) 306.14 703.41 P
+-0.37 (stance, that the slot) 306.14 691.41 P
+4 F
+-0.88 (parent) 391.8 691.41 P
+2 F
+-0.37 ( which contains the par-) 427.8 691.41 P
+3.33 (ent widget of a graphical object, and which is) 306.14 679.41 P
+1.74 (present in all the components of this new object,) 306.14 667.41 P
+0.4 (will not be duplicated. Having a sole exemplary of) 306.14 655.41 P
+0.2 (this slot is a problem since those components don\325t) 306.14 643.41 P
+0.02 (share the same parent \050label and entry parent is the) 306.14 631.41 P
+0.12 (frame itself\051. It could be argued that a different slot) 306.14 619.41 P
+-0.33 (inheritance scheme should resolve the problem. For) 306.14 607.41 P
+-0.01 (instance, it would be possible to duplicate common) 306.14 595.41 P
+1.91 (slots instead of sharing them, as it is possible in) 306.14 583.41 P
+1.22 (Eiffel for instance) 306.14 571.41 P
+1.22 ([Meyer) 388.48 571.41 P
+1.22 (??]. This solution would) 422.86 571.41 P
+4.88 (probably simplify our problem. However, the) 306.14 559.41 P
+1.87 (methods already written for a component of our) 306.14 547.41 P
+-0.2 (new kind of entry will be in front of three slots with) 306.14 535.41 P
+0.88 (the same name. In this case, we can decide whose) 306.14 523.41 P
+1.72 (slot is the more appropriate but it would be less) 306.14 511.41 P
+(clear if two components were of the same type.) 306.14 499.41 T
+0.81 (Since multiple inheritance is helpless here, we can) 306.14 475.41 P
+-0.3 (try to use single inheritance to resolve this problem.) 306.14 463.41 P
+0.77 (In this case, we have to choose the more adequate) 306.14 451.41 P
+0.04 (class from which inherit, and other component will) 306.14 439.41 P
+0.59 (be stored in new defined slots. Inheriting from the) 306.14 427.41 P
+4 F
+-0.77 (<Entry>) 306.14 415.41 P
+2 F
+-0.32 ( class is clearly more accurate since the be-) 348.14 415.41 P
+-0.17 (havior expected from a labeled entry is close from a) 306.14 403.41 P
+1 (single entry behavior. In some other situation this) 306.14 391.41 P
+0.14 (choice could be less obvious. Here, getting the con-) 306.14 379.41 P
+0.16 (tent of the entry part can be done by calling the ge-) 306.14 367.41 P
+3.3 (neric function) 306.14 355.41 P
+4 F
+7.93 (value-of) 376.73 355.41 P
+2 F
+3.3 ( described in previous) 424.73 355.41 P
+1.73 (section. With the proposed inheritance scheme, a) 306.14 343.41 P
+-0.13 (call to) 306.14 331.41 P
+4 F
+-0.31 (value-of) 334.87 331.41 P
+2 F
+-0.13 ( whose argument is a) 382.87 331.41 P
+4 F
+-0.31 (<Labeled-) 478.77 331.41 P
+1.02 (entry>) 306.14 319.41 P
+2 F
+0.42 ( will call the method defined for single en-) 342.14 319.41 P
+-0.18 (tries \050i.e. which are instances of the) 306.14 307.41 P
+4 F
+-0.44 (<Entry>) 461.79 307.41 P
+2 F
+-0.18 ( class\051.) 503.79 307.41 P
+0.77 (Provided that the slot) 306.14 295.41 P
+4 F
+1.84 (Id) 407.31 295.41 P
+2 F
+0.77 ( of the labeled entry con-) 419.31 295.41 P
+0.47 (tains the) 306.14 283.41 P
+1 F
+0.47 (Tk-command) 347.18 283.41 P
+2 F
+0.47 ( used to implement the entry,) 400.13 283.41 P
+(this call will yield the correct value.) 306.14 271.41 T
+0.59 (However, keeping in a slot the entry identification) 306.14 247.41 P
+0.49 (does not permit to manipulate the labeled entry as) 306.14 235.41 P
+0.44 (an autonomous entity) 306.14 223.41 P
+2 8 Q
+0.35 (5) 404.02 227.41 P
+2 10 Q
+0.44 (. This problem can be easily) 408.02 223.41 P
+-0.34 (solved: it suffices to introduce a slot in the root class) 306.14 211.41 P
+1.7 (for global widget manipulations. This slot, called) 306.14 199.41 P
+4 F
+-1.47 (Eid) 306.14 187.41 P
+2 F
+-0.61 (, will always contain a reference to the most \322ex-) 324.14 187.41 P
+1.08 (ternal\323 graphical object of our widget. This slot is) 306.14 175.41 P
+0.59 (set to the value contained in the) 306.14 163.41 P
+4 F
+1.41 (Id) 453.21 163.41 P
+2 F
+0.59 ( slot for simple) 465.21 163.41 P
+2.87 (widget as said before; it is set generally to the) 306.14 151.41 P
+306.14 132.95 532.77 147.12 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 145.14 456.38 145.14 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+-8.36 24.95 603.64 816.95 C
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+1.08 (5.) 324.14 126.28 P
+1.08 (For instance, this is the) 334.14 126.28 P
+5 F
+1.08 (frame) 434.53 126.28 P
+0 F
+1.08 ( identification) 457.86 126.28 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+-0.61 (which is needed to destroy all the components of) 324.14 114.28 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(a labeled entry rather than the entry one.) 324.14 102.28 T
+0 0 0 1 0 0 0 K
+71.01 675.21 280.77 692.22 R
+7 X
+V
+1 F
+0 X
+(Figure 2: A labeled entry) 125.65 685.55 T
+%%BeginBinary:  3542     
+274 73 209.76 51.02 0 71.01 697.89
+/red <
+59631A477060B4375CD77040DC4399E164E51EF292005CD7995CD77A55D3848C
+D98CCCFFFFB219FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF
+BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
+7F7F7F7F7F7F7F7F7F7F7F7F7F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+3F3F3F3F3F0000000000000000000000000000000000008B87007F00BF00FFFF
+9855229833CD6640FF808000669400000000803F6BFAB299FF7BFFCDFF99FFFF
+FFFFB0B0FFD9F466B7CC5598CCFFFF8FF500DC0000990099D200EE00FF77FF32
+ABCBFFFFB0DA5C863066CD60CDFF7F40B3FFFF724DFFFF99FF8B2FFF80C000FF
+> store
+/green <
+1E631A4732606E375CD77040DC0A999695E590F250005CD7995CD77A6BD3708C
+C27DB70000221914FFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F3F000000FFFFFF
+FFFFBFBFBFBF7F7F7F7F7F3F3F3F3F3F0000000000FFFFFFFFFFBFBFBFBFBF7F
+7F7F7F3F3F3F3F3F0000000000FFFFFFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F
+0000000000FFFFFFBFBFBFBFBF7F7F7F7F7F3F3F3F3F3F77CE005700BF000000
+32000065FE3300A000008080999400FF0080003F86FFDF89E466EEAA0068F400
+AE0030B000D9F466B7CC550099003380DE9A00557799ABCCB4FFD53200000065
+00FF0000E27054FF606233C0C5FF7F40B3FF00774D6AFA89FF7E4FE480C000FF
+> store
+/blue <
+71C36CA189BFD08E5CD7D299DC5999FFEDE5FFF2AC4D5CD7995CD77A2FD3FF8C
+9A6391FFFF227093BF7F3FFFBF7F3F00FFBF7F3F00FFBF7F3F00BF7F3FFFBF7F
+3F00FF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FF
+BF3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F3F00FFBF7F00
+FFBF7F3F00BF7F3FFFBF7F3F00FFBF7F3F00FFBF7F3F0065FABF5C7FBF3FFFFF
+00000000000000C0FF800000CC94FFFF8080003F8FFFEE76C44BAF7DFF6FFFFF
+B9FF60B0FFD9F466B7CC556566FF336EB3CD0000009900CC8C00B798FF00FF65
+00FFFFFFFFD6C0E0505F33A0BFE07F40B30000854D6ACD6DFE664FB580C000FF
+> store
+ BEGINBITMAPCOLORc
+
+
+
+
+;z
+SCE9<Z"Z"Z
+7E9R?E97J"J"J"
+<E9R?E97E9>z:z:z
+4ECR<EC4EC
+@z9z9z"
+2E9R=E92E9FFJ"J"G"
+>E9R?E9FFBZ"Z"Z"Z"Z
+1E9QIE91E91E91J"J"G"G"G"
+<E9QIE9E9E9E9Dy:z:y:y:y
+ECQFECECECECJ#A#B#B#<'?#
+OBFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEJ%JT"
+PGECECECECP7E9J%;#9%<%9#F&8"8*9#Js
+OIFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEECFEFEFEFEECFEFEECFEFEFEFEFEFEOMECJ'9,:,G'8"9"
+OHFEFEECECFEFEFEECFEFEECFEFEECECFEFEFEFEECECFEFEECFEFEECFEFEECFEFEECECECFEFT"J#="J"@%9"B*J%
+E9O.ECECEC8ECFEFEFEFEECECECECFEFEECFEFEECO=FFFFFFE9GsJ$B#>#G%E"J#F#
+ECO0FEFEFEFEFEFEFEECECECECECO5FFE9ECECJ%B%<%J&J"
+OHFEFEECECECECECECECECECECFECFEFEFEECO-E9FtJ">#>#:"J"J#E$
+E9O8FEFEFEFEFEFE:FEO8ECECE9E9E9FuJ,8,:,@%?%="J%
+ECO*FEFEFEFEECFEFEFEECFEFEECFEFEECECECFEFEFEFEECECFEFEFEFEECECECFEFEECFEFEFEFEECFEFEECECOAECECECECJz9%8#8%9&<t8#9&="
+OB2ECECECECECECECECECECECECECECECECECECECECECECECECECJ"Jt
+Q1FEP"E9J$Ju
+Q0FEFEECP!ECJ#
+Q0ECEC=$9z9z9z9z9z9$
+E9E9E9/E9QGE9/E9/E9/E9E9E9E9<";"G"J"G"G"G"
+E9E9E9QIE9E9E9E9<P"z"P
+E9S5C9E9@"J"
+E9S;E9>#J#
+ECECS:ECEC
+
+
+JZ
+P4Q(Jz
+P5Q'1BJz"
+P6Q$C9FF
+
+J'?#J#J";$:$
+5FEFEFEFEFEFEFEFELFEFEBFEFEFEFEFEFEFE=$C%J#;&8&J$
+E9E9E9C9C9C9C9OKFEFEFEC9C9C9FEFEC9C9C9FEPFE9E9E9<"J&8"8"8%8&;%<#9#8%;#8#8%I#J"
+E95FEFEC9FEFEFEFEFEFEFEFEFEFEC9FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEC9C9Q(E9<PI'8)9"<'C'A'JP
+FEC9FEFEC9C9C9C9FEFEC9C9FEFEFEFEFEC9C9FEFEFEFEC9C9FEFEFEFEC9C9FEFEQ<@"B%9"I#:#?+J"
+E9FEFEFEFEC9C9C9C9C9C9FEFEC9FEFEC9C9C9C9R'E9>#C%E#;"=$F$E#J#
+ECECC9C9C9C9FEFEC9FEFEFEFEFEFEFEFEQ@ECECJ%@%>&8%E%
+JC9C9C9C9FEFEC9C9C9FEFEFEC9FEFEC9C9C9C9C9C9J":#J"=#
+GFEFEFEJFEFEFEJ%?+@(<$9(9%9'J&8&
+7FEFEFEFEC9FEFEC9C9FEFEFEFEC9C9FEFEFEC9FEFEC9FEC9C9FEFEFEC9FEFEC9FEFEC9C9FEFEFEFEC99C9FEFEFEC9C9FEFEFEC9Jt8#9#8%8#>'=";s8&8%J";$:$
+5C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C9C95C9C9C9C9C9C9C9
+
+
+JZ
+P6Q$Jz
+P6Q%1BJz
+P4Q(C9
+
+
+
+
+Bz
+S5E9AZ"Z"Z
+2E9R?E92@"G"J"
+FFE9R?E9@z:z:z
+2ECR<EC2EC
+=z9z9z
+5E9R=E95E9<"J"J"
+E97E9R?E9;Z
+SC
+
+
+
+
+ENDBITMAP
+%%EndBinary
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "6" 4
+%%Page: "5" 5
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 5 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+2.13 (Scheme space\051. Saying that the meta-class of the) 62.5 739.41 P
+4 F
+6.56 (<Button>) 62.5 727.41 P
+2 F
+2.73 ( class is) 110.5 727.41 P
+4 F
+6.56 (<Tk>) 154.18 727.41 P
+2 F
+2.73 ( \050the one which knows) 178.18 727.41 P
+2.39 (what to do with pseudo slots\051 is done with the) 62.5 715.41 P
+4 F
+1.97 (:metaclass) 62.5 703.41 P
+2 F
+0.82 ( option. With this definition, the sys-) 122.5 703.41 P
+0.58 (tem is able to build slot readers and writers which) 62.5 691.41 P
+1.73 (take into account pseudo slots. It is important to) 62.5 679.41 P
+0.22 (note that the accessors construction is done at class) 62.5 667.41 P
+-0.61 (creation. Consequently, no test is done when access-) 62.5 655.41 P
+(ing a slot to know what kind of allocation it uses.) 62.5 643.41 T
+-0.1 (Embodying Tk widgets in STklos objects permits to) 62.5 619.41 P
+2.39 (hide some Tk idiosyncrasies which, in turn, im-) 62.5 607.41 P
+3.36 (proves greatly the level of programming when) 62.5 595.41 P
+2.17 (building an interface. In particular, it avoids the) 62.5 583.41 P
+0.41 (knowledge of pure Tk widgets naming convention) 62.5 571.41 P
+-0.51 (which is a pain when developing large applications.) 62.5 559.41 P
+0.21 (The only thing the user has to know when creating) 62.5 547.41 P
+0.84 (a new object is it\325s parent. An example of widgets) 62.5 535.41 P
+(creation is shown below:) 62.5 523.41 T
+4 8 Q
+(\050define f \050make <Frame>\051\051) 79.51 502.75 T
+(\050define b1 \050make <Button>) 79.51 482.75 T
+(:text \254B1\254) 161.11 472.75 T
+(:parent f\051\051) 161.11 462.75 T
+(\050define b2 \050make <Button>) 79.51 442.75 T
+(:text \254B2\254) 161.11 432.75 T
+(:parent f\051) 161.11 422.75 T
+2 10 Q
+0.94 (Buttons) 62.5 399.41 P
+4 F
+2.24 (b1) 100.12 399.41 P
+2 F
+0.94 ( and) 112.12 399.41 P
+4 F
+2.24 (b2) 135.92 399.41 P
+2 F
+0.94 ( which are created here specify) 147.92 399.41 P
+1.83 (that their parent is the frame) 62.5 387.41 P
+4 F
+4.39 (f) 202.3 387.41 P
+2 F
+1.83 (. Since this frame) 208.3 387.41 P
+0.53 (does not specify a particular parent, it is supposed) 62.5 375.41 P
+3.62 (to be a direct descendant of the root window) 62.5 363.41 P
+4 F
+-1.31 (*root*) 62.5 351.41 P
+2 F
+-0.55 (. This parent\325s notion is also used for canvas) 98.5 351.41 P
+0.6 (items: a canvas item is considered as a descendant) 62.5 339.41 P
+(of the canvas which contains it. For instance,) 62.5 327.41 T
+4 8 Q
+(\050define c \050make <Canvas>\051\051) 79.51 306.75 T
+(\050define r \050make <Rectangle>) 79.51 286.75 T
+(:parent c) 156.31 276.75 T
+(:coords \253\0500 0 50 50\051\051\051) 156.31 266.75 T
+2 10 Q
+-0.53 (defines a rectangle called) 62.5 243.41 P
+4 F
+-1.27 (r) 174.05 243.41 P
+2 F
+-0.53 ( in the) 180.05 243.41 P
+4 F
+-1.27 (c) 208.56 243.41 P
+2 F
+-0.53 ( canvas. User can) 214.56 243.41 P
+-0.57 (now forget that) 62.5 231.41 P
+4 F
+-1.38 (r) 131.59 231.41 P
+2 F
+-0.57 ( is included in) 137.59 231.41 P
+4 F
+-1.38 (c) 200.3 231.41 P
+2 F
+-0.57 ( since this informa-) 206.3 231.41 P
+-0.19 (tion is embedded in the Scheme object which repre-) 62.5 219.41 P
+4.53 (sent it. For instance, the following expression) 62.5 207.41 P
+0.53 (permits to move the) 62.5 195.41 P
+4 F
+1.27 (r) 155.93 195.41 P
+2 F
+0.53 ( rectangle without having to) 161.93 195.41 P
+(cite the) 62.5 183.41 T
+4 F
+(c) 96.77 183.41 T
+2 F
+( canvas.) 102.77 183.41 T
+4 8 Q
+(\050move r 10 10\051) 79.51 162.75 T
+2 10 Q
+(Similarly, the expression) 62.5 139.41 T
+4 8 Q
+(\050bind r \254<Enter>\254 \253\050display \254Hello\134n\254\051\051) 79.51 118.75 T
+2 10 Q
+0.71 (permits to display a message each time the mouse) 306.14 739.41 P
+-0.25 (enters in the) 306.14 727.41 P
+4 F
+-0.61 (r) 362.34 727.41 P
+2 F
+-0.25 ( rectangle. It is important to note here) 368.34 727.41 P
+-0.46 (that we would use) 306.14 715.41 P
+1 F
+-0.46 (exactly) 388.68 715.41 P
+2 F
+-0.46 ( the same expression to as-) 417.19 715.41 P
+0.22 (sociate such a binding to a simple widget such as a) 306.14 703.41 P
+-0.39 (button or a label, whereas it takes two different syn-) 306.14 691.41 P
+(tactic forms using standard Tk.) 306.14 679.41 T
+0.73 (Usage of generic functions is also a significant im-) 306.14 655.41 P
+-0.44 (provement over the basic level since it allows an ho-) 306.14 643.41 P
+1.7 (mogeneous access to the Tk commands. Suppose) 306.14 631.41 P
+-0.03 (for instance that we want giving access to the value) 306.14 619.41 P
+1.41 (of a) 306.14 607.41 P
+4 F
+3.38 (scale) 327.75 607.41 P
+2 F
+1.41 ( or an) 357.75 607.41 P
+4 F
+3.38 (entry) 389.71 607.41 P
+2 F
+1.41 ( widget with the generic) 419.71 607.41 P
+-0.36 (function) 306.14 595.41 P
+4 F
+-0.86 (value-of) 345.35 595.41 P
+2 F
+-0.36 (. This can easily done by the fol-) 393.35 595.41 P
+(lowing methods in STklos:) 306.14 583.41 T
+4 8 Q
+(\050define-method value-of \050obj\051) 323.15 562.75 T
+(\050\050slot-ref obj \253Id\051 \253get\051\051) 337.55 552.75 T
+2 10 Q
+0.6 (In this case, one method is sufficient to implement) 306.14 529.41 P
+2.34 (our function since the sub-options for reading a) 306.14 517.41 P
+0.56 (scale or entry value is the same in Tk. Writing this) 306.14 505.41 P
+1.1 (value is a little bit more complicated and is given) 306.14 493.41 P
+(below:) 306.14 481.41 T
+4 8 Q
+(\050define-method) 323.15 460.75 T
+(\050setter value-of\051\050\050obj <Scale>\051 v\051) 347.15 450.75 T
+(\050\050slot-ref obj \253Id\051 \253set v\051\051) 337.55 440.75 T
+(\050define-method) 323.15 420.75 T
+(\050setter value-of\051\050\050obj <Entry>\051 v\051) 347.15 410.75 T
+(\050\050slot-ref obj \253Id\051 \253delete 0 \253end\051) 332.75 400.75 T
+(\050\050slot-ref obj \253Id\051 \253insert 0 v\051\051) 332.75 390.75 T
+2 10 Q
+-0.32 (Using the same generic function \050with two different) 306.14 367.41 P
+0.64 (methods\051 permit to hide these low level details. In) 306.14 355.41 P
+(the call,) 306.14 343.41 T
+4 8 Q
+(\050set! \050value-of x\051 100\051) 323.15 322.75 T
+2 10 Q
+0.69 (the system will choose the method to call depend-) 306.14 299.41 P
+-0.54 (ing of the actual type of the variable) 306.14 287.41 P
+4 F
+-1.3 (x) 463.42 287.41 P
+2 F
+-0.54 (. Furthermore,) 469.42 287.41 P
+0.94 (an error) 306.14 275.41 P
+2 8 Q
+0.75 (4) 342.5 279.41 P
+2 10 Q
+0.94 ( will be signalled if) 346.5 275.41 P
+4 F
+2.25 (x) 437.56 275.41 P
+2 F
+0.94 ( is not an) 443.56 275.41 P
+1 F
+0.94 (entry) 489.82 275.41 P
+2 F
+0.94 ( or a) 511.49 275.41 P
+1 F
+(scale) 306.14 263.41 T
+2 F
+(.) 325.21 263.41 T
+-0.44 (STklos also proposes the notion of) 306.14 239.41 P
+1 F
+-0.44 (virtual slot) 457.23 239.41 P
+2 F
+-0.44 (. Virtu-) 501.51 239.41 P
+0.09 (al slots requires no storage as the pseudo slots seen) 306.14 227.41 P
+-0.29 (before. It is to the programmer to define methods to) 306.14 215.41 P
+1.02 (retrieve and store the value of such a slot. Virtual) 306.14 203.41 P
+0.01 (slots permit to easily implement the previous) 306.14 191.41 P
+4 F
+0.03 (val-) 508.77 191.41 P
+306.14 167.81 532.77 181.98 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 180 456.38 180 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+-8.36 24.95 603.64 816.95 C
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+1.19 (4.) 324.14 161.15 P
+1.19 (more exactly, the system calls the) 334.14 161.15 P
+0 0 0 1 0 0 0 K
+4 F
+2.86 (no-ap-) 478.77 161.15 P
+2.74 (plicable-method) 324.14 149.15 P
+0 0 0 1 0 0 0 K
+0 F
+1.14 ( generic function which,) 414.14 149.15 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0.22 (by default, signals an error. User can specialize) 324.14 137.15 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+-0.18 (this function to provide another handler if need-) 324.14 125.15 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(ed) 324.14 113.15 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "5" 5
+%%Page: "4" 6
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 4 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+0.49 (vas \050e.g. a rectangle\051 and interface widgets \050e.g.) 76.68 413.43 P
+0.06 (a label\051. This is an important difference with the) 76.68 401.43 P
+0.19 (Tk view of canvas items. In Tk, manipulation of) 76.68 389.43 P
+0.36 (a canvas item requires a reference to the canvas) 76.68 377.43 P
+3.16 (which contains it. In STklos the object itself) 76.68 365.43 P
+0.18 (knows the canvas to which it belongs and it can) 76.68 353.43 P
+(be forgotten when manipulated.) 76.68 341.43 T
+0.44 (\245) 76.68 317.43 P
+0.44 (Some simple widgets are already obtained by) 85.24 317.43 P
+0.05 (inheritance. For instance, a) 76.68 305.43 P
+1 F
+0.05 (button) 197.63 305.43 P
+2 F
+0.05 ( can be seen as) 224.48 305.43 P
+2.27 (a reactive) 76.68 293.43 P
+1 F
+2.27 (label) 126 293.43 P
+2 F
+2.27 (. This permits to group all the) 144.52 293.43 P
+-0.3 (methods to manage the appearance of the text of) 76.68 281.43 P
+1.23 (a label in the) 76.68 269.43 P
+4 F
+2.94 (<Label>) 140.32 269.43 P
+2 F
+1.23 ( class. Thus, the) 182.32 269.43 P
+4 F
+2.94 (<But-) 259.13 269.43 P
+3.71 (ton>) 76.68 257.43 P
+2 F
+1.55 ( class has only to manage the operations) 100.68 257.43 P
+(which are specific to reactive texts.) 76.68 245.43 T
+0.93 (\245) 76.68 221.43 P
+0.93 (Simple and composites widgets share a com-) 85.24 221.43 P
+0.36 (mon ancestor \050) 76.68 209.43 P
+4 F
+0.87 (<Tk-widget>) 142.8 209.43 P
+2 F
+0.36 (\051. This will permit) 208.8 209.43 P
+0.71 (us to define composite widgets which could be) 76.68 197.43 P
+-0.19 (controlled exactly as the toolkit built-in widgets.) 76.68 185.43 P
+0 14 Q
+(3.2) 62.5 158.76 T
+(  Accessing widgets options) 80 158.76 T
+2 10 Q
+0.51 (In STklos, each option of a Tk widget is seen as an) 62.5 132.43 P
+0.2 (object slot. For instance, a simplified definition of a) 62.5 120.43 P
+(Tk button could be:) 62.5 108.43 T
+4 8 Q
+(\050define-class <Button>) 323.15 414.76 T
+(\050<Label>\051) 385.55 404.76 T
+(\050\050command :accessor) 337.55 394.76 T
+(command) 452.75 394.76 T
+(:init-keyword :command) 385.55 384.76 T
+(:allocation   :pseudo\051\051) 385.55 374.76 T
+(:metaclass <Tk>\051) 337.55 364.76 T
+2 10 Q
+0.75 (This declaration permits to define the class) 306.14 341.43 P
+4 F
+1.79 (<But-) 502.77 341.43 P
+1.59 (ton>) 306.14 329.43 P
+2 F
+0.66 (. This class inherits from) 330.14 329.43 P
+4 F
+1.59 (<Label>) 443.66 329.43 P
+2 F
+0.66 ( and owns) 485.66 329.43 P
+0.04 (an extra slot called) 306.14 317.43 P
+4 F
+0.08 (command) 391.29 317.43 P
+2 F
+0.04 (. Allocation of this slot) 433.29 317.43 P
+-0.22 (is said to be) 306.14 305.43 P
+4 F
+-0.54 (:pseudo) 359.7 305.43 P
+2 F
+-0.22 (. Pseudo-slots are special pur-) 401.7 305.43 P
+-0.32 (pose slots: they can be used as normal slots but they) 306.14 293.43 P
+-0.11 (are not allocated in the Scheme world \050i.e. their val-) 306.14 281.43 P
+-0.12 (ue is stored in one of the structures manipulated by) 306.14 269.43 P
+-0.24 (the Tk library instead of in a Scheme object\051. Conse-) 306.14 257.43 P
+0.11 (quently, reading or writing this slot will be done in) 306.14 245.43 P
+-0.2 (a particular way) 306.14 233.43 P
+2 8 Q
+-0.16 (3) 378.1 237.43 P
+2 10 Q
+-0.2 (. Pseudo slots are implemented by) 382.1 233.43 P
+2.46 (the meta-class) 306.14 221.43 P
+4 F
+5.9 (<Tk>) 375.97 221.43 P
+2 F
+2.46 (. Defining a class using this) 399.97 221.43 P
+0.21 (meta-class permits to modify the protocol to access) 306.14 209.43 P
+-0.34 (a slot at its lowest level. Consequently, it is impossi-) 306.14 197.43 P
+-0.54 (ble to have a slot value which does not reflect the ac-) 306.14 185.43 P
+-0.29 (tual value of the Tk option \050remember that no space) 306.14 173.43 P
+2.61 (is reserved to save the value of this slot in the) 306.14 161.43 P
+306.14 138.62 532.77 152.79 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 150.8 456.38 150.8 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+-8.36 24.95 603.64 816.95 C
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+-0.39 (3.) 324.14 131.95 P
+-0.39 (Access to a pseudo slot will be done using the) 334.14 131.95 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+5 F
+0.85 (configure) 324.14 119.95 P
+0 F
+0.85 ( sub-command which is available for) 362.47 119.95 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(each Tk widget.) 324.14 107.95 T
+0 0 0 1 0 0 0 K
+59.67 431.43 530.22 442.77 R
+7 X
+V
+1 F
+0 X
+(Figure 1: A partial vue of STk hierarchy) 214.29 436.11 T
+76.68 454.11 501.87 754.58 R
+7 X
+V
+0 X
+0 76.68 454.11 -76.68 -454.11 425.2 300.47 BEGINPRINTCODE
+%%BeginDocument: hierarchy.eps
+%!PS-Adobe-2.0 EPSF
+%%Title: /tmp/xfig-fig002934
+%%Creator: fig2dev
+%%CreationDate: Tue Apr 12 19:18:46 1994
+%%For: eg@kaolin (Erick Gallesio)
+%%BoundingBox: 0 0 436 268
+%%Pages: 0
+%%EndComments
+/$F2psDict 200 dict def 
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/l {lineto} bind def
+/m {moveto} bind def
+/s {stroke} bind def
+/n {newpath} bind def
+/gs {gsave} bind def
+/gr {grestore} bind def
+/clp {closepath} bind def
+/graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+4 -2 roll mul setrgbcolor} bind def
+/col-1 {} def
+/col0 {0 0 0 setrgbcolor} bind def
+/col1 {0 0 1 setrgbcolor} bind def
+/col2 {0 1 0 setrgbcolor} bind def
+/col3 {0 1 1 setrgbcolor} bind def
+/col4 {1 0 0 setrgbcolor} bind def
+/col5 {1 0 1 setrgbcolor} bind def
+/col6 {1 1 0 setrgbcolor} bind def
+/col7 {1 1 1 setrgbcolor} bind def
+	end
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+%%EndProlog
+
+$F2psBegin
+0 setlinecap 0 setlinejoin
+-9.0 279.0 translate 0.540 -0.540 scale
+0.500 setlinewidth
+% Polyline
+n 399 19 m 392 19 392 42 7 arcto 4 {pop} repeat 392 49 538 49 7 arcto 4 {pop} repeat 545 49 545 26 7 arcto 4 {pop} repeat 545 19 399 19 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+435 40 m 
+gs 1 -1 scale (<Tk-object>) col-1 show gr
+% Polyline
+n 238 89 m 231 89 231 112 7 arcto 4 {pop} repeat 231 119 374 119 7 arcto 4 {pop} repeat 381 119 381 96 7 arcto 4 {pop} repeat 381 89 238 89 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+271 110 m 
+gs 1 -1 scale (<Tk-widget>) col-1 show gr
+% Polyline
+n 93 164 m 86 164 86 187 7 arcto 4 {pop} repeat 86 194 229 194 7 arcto 4 {pop} repeat 236 194 236 171 7 arcto 4 {pop} repeat 236 164 93 164 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+105 185 m 
+gs 1 -1 scale (<Tk-simple-widget>) col-1 show gr
+% Polyline
+n 361 166 m 354 166 354 189 7 arcto 4 {pop} repeat 354 196 497 196 7 arcto 4 {pop} repeat 504 196 504 173 7 arcto 4 {pop} repeat 504 166 361 166 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+364 187 m 
+gs 1 -1 scale (<Tk-composite-widget>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+394 267 m 
+gs 1 -1 scale (<Labeled-Entry>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+394 285 m 
+gs 1 -1 scale (<Choice-box>) col-1 show gr
+/Times-Bold findfont 18.00 scalefont setfont
+394 303 m 
+gs 1 -1 scale (...) col-1 show gr
+% Polyline
+n 518 256 m 511 256 511 279 7 arcto 4 {pop} repeat 511 286 654 286 7 arcto 4 {pop} repeat 661 286 661 263 7 arcto 4 {pop} repeat 661 256 518 256 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+551 277 m 
+gs 1 -1 scale (<Rectangle>) col-1 show gr
+% Polyline
+n 681 254 m 674 254 674 282 7 arcto 4 {pop} repeat 674 289 817 289 7 arcto 4 {pop} repeat 824 289 824 261 7 arcto 4 {pop} repeat 824 254 681 254 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+729 276 m 
+gs 1 -1 scale (<Line>) col-1 show gr
+% Polyline
+n 173 258 m 166 258 166 281 7 arcto 4 {pop} repeat 166 288 309 288 7 arcto 4 {pop} repeat 316 288 316 265 7 arcto 4 {pop} repeat 316 258 173 258 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+218 277 m 
+gs 1 -1 scale (<Label>) col-1 show gr
+% Polyline
+n 173 331 m 166 331 166 354 7 arcto 4 {pop} repeat 166 361 309 361 7 arcto 4 {pop} repeat 316 361 316 338 7 arcto 4 {pop} repeat 316 331 173 331 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+215 350 m 
+gs 1 -1 scale (<Button>) col-1 show gr
+% Polyline
+n 173 404 m 166 404 166 427 7 arcto 4 {pop} repeat 166 434 309 434 7 arcto 4 {pop} repeat 316 434 316 411 7 arcto 4 {pop} repeat 316 404 173 404 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+182 425 m 
+gs 1 -1 scale (<Tk-complex-button>) col-1 show gr
+% Polyline
+n 63 485 m 56 485 56 508 7 arcto 4 {pop} repeat 56 515 199 515 7 arcto 4 {pop} repeat 206 515 206 492 7 arcto 4 {pop} repeat 206 485 63 485 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+86 504 m 
+gs 1 -1 scale (<Check-button>) col-1 show gr
+% Polyline
+n 285 483 m 278 483 278 506 7 arcto 4 {pop} repeat 278 513 421 513 7 arcto 4 {pop} repeat 428 513 428 490 7 arcto 4 {pop} repeat 428 483 285 483 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+309 502 m 
+gs 1 -1 scale (<Radio-button>) col-1 show gr
+% Polyline
+n 563 94 m 556 94 556 117 7 arcto 4 {pop} repeat 556 124 699 124 7 arcto 4 {pop} repeat 706 124 706 101 7 arcto 4 {pop} repeat 706 94 563 94 7 arcto 4 {pop} repeat clp gs col-1 s gr
+/Times-Italic findfont 12.00 scalefont setfont
+580 113 m 
+gs 1 -1 scale (<Tk-canvas-item>) col-1 show gr
+% Polyline
+n 467 49 m 639 94 l gs col-1 s gr
+n 631.767 90.040 m 639.000 94.000 l 630.754 93.910 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 472 49 m 299 89 l gs col-1 s gr
+n 307.245 89.146 m 299.000 89.000 l 306.344 85.249 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 238 288 m 238 331 l gs col-1 s gr
+n 240.000 323.000 m 238.000 331.000 l 236.000 323.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 239 361 m 239 404 l gs col-1 s gr
+n 241.000 396.000 m 239.000 404.000 l 237.000 396.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 238 435 m 125 485 l gs col-1 s gr
+n 133.125 483.592 m 125.000 485.000 l 131.507 479.934 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 239 434 m 365 483 l gs col-1 s gr
+n 358.269 478.236 m 365.000 483.000 l 356.819 481.964 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 629 124 m 574 254 l gs col-1 s gr
+n 578.959 247.412 m 574.000 254.000 l 575.275 245.853 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 294 119 m 432 166 l gs col-1 s gr
+n 425.072 161.528 m 432.000 166.000 l 423.782 165.314 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 299 119 m 154 164 l gs col-1 s gr
+n 162.233 163.539 m 154.000 164.000 l 161.048 159.719 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 154 194 m 244 256 l gs col-1 s gr
+n 238.547 249.815 m 244.000 256.000 l 236.277 253.109 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 154 194 m 154 194 l  69 254 l gs col-1 s gr
+n 76.689 251.020 m 69.000 254.000 l 74.382 247.753 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 423 196 m 423 251 l gs col-1 s gr
+n 425.000 243.000 m 423.000 251.000 l 421.000 243.000 l gs 2 setlinejoin col-1 s gr
+% Polyline
+n 631 125 m 752 255 l gs col-1 s gr
+n 748.013 247.781 m 752.000 255.000 l 745.086 250.507 l gs 2 setlinejoin col-1 s gr
+/Times-Bold findfont 12.00 scalefont setfont
+58 268 m 
+gs 1 -1 scale (<Frame>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+58 286 m 
+gs 1 -1 scale (<Label>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+59 320 m 
+gs 1 -1 scale (...) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+58 304 m 
+gs 1 -1 scale (<Menu>) col-1 show gr
+/Times-Bold findfont 12.00 scalefont setfont
+16 167 m 
+gs 1 -1 scale ( ) col-1 show gr
+$F2psEnd
+%%EndDocument
+
+ENDPRINTCODE
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "4" 6
+%%Page: "3" 7
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 3 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+1.81 (defines a point characteristics. Two slots are de-) 65.34 739.41 P
+-0.48 (clared:) 65.34 727.41 P
+4 F
+-1.14 (x) 97.06 727.41 P
+2 F
+-0.48 ( and) 103.06 727.41 P
+4 F
+-1.14 (y) 124.04 727.41 P
+2 F
+-0.48 (. A set of options can be expressed in) 130.04 727.41 P
+1.09 (a slot definition. Here, for instance, it is said that) 65.34 715.41 P
+0.11 (both slots can be initialized upon instance creation) 65.34 703.41 P
+1.24 (with the keywords) 65.34 691.41 P
+4 F
+2.98 (:x) 154.78 691.41 P
+2 F
+1.24 ( and) 166.78 691.41 P
+4 F
+2.98 (:y) 191.19 691.41 P
+2 F
+1.24 (. Furthermore, it is) 203.19 691.41 P
+-0.32 (asked to the system to generate an) 65.34 679.41 P
+1 F
+-0.32 (accessor) 217.3 679.41 P
+2 F
+-0.32 ( function) 249.88 679.41 P
+(for each slot.) 65.34 667.41 T
+0.72 (Creation of a new instance is done with the) 65.34 643.41 P
+4 F
+1.72 (make) 265.13 643.41 P
+2 F
+(constructor:) 65.34 631.41 T
+4 8 Q
+(\050define p \050make Point :x 10 :y 20\051\051) 82.35 610.75 T
+2 10 Q
+1.74 (Evaluation of preceding form permits to build a) 65.34 587.41 P
+1.06 (new point and to initialize its slots) 65.34 575.41 P
+4 F
+2.54 (x) 227.25 575.41 P
+2 F
+1.06 ( and) 233.25 575.41 P
+4 F
+2.54 (y) 257.3 575.41 P
+2 F
+1.06 ( to 10) 263.3 575.41 P
+(and 20.) 65.34 563.41 T
+1.21 (Reading the value of a slot can be done with the) 65.34 539.41 P
+(function) 65.34 527.41 T
+4 F
+(slot-ref) 104.91 527.41 T
+2 F
+(. For instance,) 152.91 527.41 T
+4 8 Q
+(\050slot-ref p \253x\051) 82.35 506.75 T
+2 10 Q
+-0.22 (permits to get the value of slot) 65.34 483.41 P
+4 F
+-0.52 (x) 200.54 483.41 P
+2 F
+-0.22 ( in the) 206.54 483.41 P
+4 F
+-0.52 (p) 235.98 483.41 P
+2 F
+-0.22 ( point. Set-) 241.98 483.41 P
+-0.4 (ting a slot can be done by using the function) 65.34 471.41 P
+4 F
+-0.95 (slot-) 259.13 471.41 P
+3.02 (set!) 65.34 459.41 P
+2 F
+1.26 (. For instance, setting the) 89.34 459.41 P
+4 F
+3.02 (y) 208.1 459.41 P
+2 F
+1.26 ( slot of) 214.1 459.41 P
+4 F
+3.02 (p) 250.03 459.41 P
+2 F
+1.26 ( can be) 256.03 459.41 P
+(written:) 65.34 447.41 T
+4 8 Q
+(\050slot-set! p \253y 0\051) 82.35 426.75 T
+2 10 Q
+1.32 (Since the accessor) 65.34 403.41 P
+4 F
+3.17 (y-of) 150.45 403.41 P
+2 F
+1.32 ( has \050automatically\051 been) 174.45 403.41 P
+0.38 (defined on this slot, its value can also be retrieved) 65.34 391.41 P
+(with the following expression:) 65.34 379.41 T
+4 8 Q
+(\050y-of p\051) 82.35 358.75 T
+2 10 Q
+-0.06 (Slot setting can be done with the generalized) 65.34 335.41 P
+4 F
+-0.15 (set!) 265.13 335.41 P
+2 F
+(defined in STklos:) 65.34 323.41 T
+4 8 Q
+(\050set! \050y-of p\051 1\051) 82.35 302.75 T
+2 10 Q
+-0.61 (In STklos, execution of a method doesn\325t rely on the) 65.34 279.41 P
+-0.23 (classical message sending mechanism as in numer-) 65.34 267.41 P
+1.06 (ous object languages but on) 65.34 255.41 P
+1 F
+1.06 (generic functions) 195.72 255.41 P
+2 F
+1.06 (. The) 266.33 255.41 P
+0.69 (mechanism implemented in STk is a subset of the) 65.34 243.41 P
+2.44 (CLOS generic functions. As in CLOS, a generic) 65.34 231.41 P
+-0.07 (function can have several methods associated with) 65.34 219.41 P
+-0.04 (it. These methods describe the generic function be-) 65.34 207.41 P
+0.33 (havior according to the type of its parameters. For) 65.34 195.41 P
+1.31 (instance, the) 65.34 183.41 P
+4 F
+3.14 (x-of) 125.6 183.41 P
+2 F
+1.31 ( accessor defined before is im-) 149.6 183.41 P
+0.04 (plemented via a generic function. It means that we) 65.34 171.41 P
+1.88 (can have several methods whose name is) 65.34 159.41 P
+4 F
+4.52 (x-of) 262.63 159.41 P
+2 F
+1.88 (.) 286.63 159.41 P
+0.51 (However, calling) 65.34 147.41 P
+4 F
+1.22 (x-of) 144.7 147.41 P
+2 F
+0.51 ( with a parameter which is) 168.7 147.41 P
+-0.38 (an instance of a) 65.34 135.41 P
+4 F
+-0.91 (Point) 134.71 135.41 P
+2 F
+-0.38 ( will always call the accessor) 164.71 135.41 P
+(defined before.) 65.34 123.41 T
+0 18 Q
+(3) 306.14 734.08 T
+(  Integration of Tk widgets) 315.14 734.08 T
+0 14 Q
+(3.1) 306.14 702.75 T
+(  The class hierarchy) 323.64 702.75 T
+2 10 Q
+0.3 (This section presents how the standard Tk widgets) 306.14 676.41 P
+-0.06 (have been embodied in STklos classes. In this pack-) 306.14 664.41 P
+-0.53 (age, every type of graphical object defined by the Tk) 306.14 652.41 P
+-0.31 (toolkit such as menu, label or button widgets is rep-) 306.14 640.41 P
+0.19 (resented as a STklos class. All these classes defined) 306.14 628.41 P
+1.79 (for the Tk toolkit constitute a hierarchy which is) 306.14 616.41 P
+-0.16 (briefly described here. Firstly, all the classes share a) 306.14 604.41 P
+-0.36 (unique ancestor: the) 306.14 592.41 P
+4 F
+-0.86 (<Tk-object>) 397.08 592.41 P
+2 F
+-0.36 ( class. This class) 463.08 592.41 P
+-0.13 (defines a set of informations which are necessary to) 306.14 580.41 P
+-0.55 (establish a communication between the Scheme and) 306.14 568.41 P
+0.9 (Tk worlds. In particular, three slots are defined in) 306.14 556.41 P
+(this class:) 306.14 544.41 T
+-0.22 (\245The) 320.32 520.41 P
+4 F
+-0.52 (parent) 345.4 520.41 P
+2 F
+-0.22 ( slot contains a reference to the ob-) 381.4 520.41 P
+0.15 (ject which \050graphically\051 includes the current ob-) 320.32 508.41 P
+(ject.) 320.32 496.41 T
+-0.32 (\245The) 320.32 472.41 P
+4 F
+-0.77 (Id) 345.29 472.41 P
+2 F
+-0.32 ( slot contains, the low level) 357.29 472.41 P
+1 F
+-0.32 ( Tk-command) 475.14 472.41 P
+2 F
+-0.32 (,) 530.27 472.41 P
+0.51 (generated by the system to implement the wid-) 320.32 460.41 P
+0.48 (get. The type of this) 320.32 448.41 P
+1 F
+0.48 (Tk-command) 412.7 448.41 P
+2 F
+0.48 (is different for) 468.63 448.41 P
+-0.04 (each class. This slot is heavily used by the meth-) 320.32 436.41 P
+-0.35 (ods which implement the behavior of the object.) 320.32 424.41 P
+1.2 (\245The) 320.32 400.41 P
+4 F
+2.88 (Eid) 346.81 400.41 P
+2 F
+1.2 ( slot contains the) 364.81 400.41 P
+1 F
+1.2 (Tk-command) 446.29 400.41 P
+2 F
+1.2 ( which) 501.74 400.41 P
+-0.29 (permit to manipulate the object from the outside) 320.32 388.41 P
+-0.41 (\050e.g. to map the object on the screen or to destroy) 320.32 376.41 P
+1.05 (it\051. For simple Tk widgets,) 320.32 364.41 P
+4 F
+2.53 (Id) 444.14 364.41 P
+2 F
+1.05 ( and) 456.14 364.41 P
+4 F
+2.53 (Eid) 480.17 364.41 P
+2 F
+1.05 ( always) 498.17 364.41 P
+(contain the same) 320.32 352.41 T
+1 F
+(Tk-command) 397.26 352.41 T
+2 F
+(.) 450.2 352.41 T
+0.51 (Normally, end users will not have to use direct in-) 306.14 328.41 P
+(stances of the) 306.14 316.41 T
+4 F
+(<Tk-object>) 368.09 316.41 T
+2 F
+( class) 434.09 316.41 T
+2 8 Q
+(2) 457.42 320.41 T
+2 10 Q
+(.) 461.42 316.41 T
+0.53 (The next level in our class hierarchy defines a fork) 306.14 292.41 P
+2.42 (with two branches: the) 306.14 280.41 P
+4 F
+5.81 (<Tk-widget>) 419.17 280.41 P
+2 F
+2.42 ( class and) 485.17 280.41 P
+4 F
+0.41 (<Tk-canvas-item>) 306.14 268.41 P
+2 F
+0.17 ( class. Instances of the former) 402.14 268.41 P
+0.52 (class are classical widgets such as) 306.14 256.41 P
+1 F
+0.52 (buttons) 459.9 256.41 P
+2 F
+0.52 ( or) 490.64 256.41 P
+1 F
+0.52 (menus) 506.09 256.41 P
+2 F
+0.24 (since instances of the latter are objects contained in) 306.14 244.41 P
+-0.52 (a canvas such as) 306.14 232.41 P
+1 F
+-0.52 (lines) 378.96 232.41 P
+2 F
+-0.52 ( or) 397.86 232.41 P
+1 F
+-0.52 (rectangles) 411.23 232.41 P
+2 F
+-0.52 (. All those widgets) 451.96 232.41 P
+-0.26 (are directly implemented as STklos objects in a one-) 306.14 220.41 P
+0.02 (to-one relationship. A partial view of the STklos hi-) 306.14 208.41 P
+(erarchy is shown in Figure) 306.14 196.41 T
+(1.) 426.51 196.41 T
+(Some points are important to note here:) 306.14 172.41 T
+0.25 (\245) 320.32 148.41 P
+0.25 (There is no difference between items of a can-) 328.88 148.41 P
+306.14 119.81 532.77 133.98 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 132 456.38 132 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+-8.36 24.95 603.64 816.95 C
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+0.05 (2.) 324.14 113.15 P
+0.05 (All classes whose name begins with the \322Tk-) 334.14 113.15 P
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(\323 prefix are not intended for the final user.) 324.14 101.15 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "3" 7
+%%Page: "2" 8
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 10 Q
+0 X
+0 0 0 1 0 0 0 K
+(- 2 -) 289.3 61.71 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+2 F
+-0.18 (This paper is divided in three sections. Next section) 62.5 739.41 P
+0.41 (presents the STk package and its object system. In-) 62.5 727.41 P
+-0.61 (tegration of the standard Tk widgets in STklos class-) 62.5 715.41 P
+-0.08 (es is described in the following section. Last section) 62.5 703.41 P
+(is devoted to the definition of composites widgets.) 62.5 691.41 T
+0 18 Q
+(2) 62.5 650.08 T
+(  Presentation of STklos) 71.5 650.08 T
+2 10 Q
+0.18 (Programming with STk can be done at two distinct) 62.5 621.41 P
+2.01 (levels. First level uses only the standard Scheme) 62.5 609.41 P
+-0.27 (constructs and is classical. Second level gives access) 62.5 597.41 P
+1.12 (to the object oriented extensions of STk and is far) 62.5 585.41 P
+-0.12 (more interesting. Of course, both levels can be used) 62.5 573.41 P
+(at the same time in a program if needed.) 62.5 561.41 T
+0 14 Q
+(2.1) 62.5 534.75 T
+(  STk: the basic layer) 80 534.75 T
+2 10 Q
+1.54 (Starting a session with the STk interpreter brings) 62.5 508.41 P
+0.32 (the user in the basic layer which gives him/her ac-) 62.5 496.41 P
+0.89 (cess to a complete Scheme interpreter extended to) 62.5 484.41 P
+-0.4 (deal with the Tk toolkit. With a little set of rewriting) 62.5 472.41 P
+1.43 (rules from the original Tcl-Tk library, and the Tk) 62.5 460.41 P
+0.48 (manual pages close at hand, one can easily build a) 62.5 448.41 P
+(STk program using the Tk toolkit.) 62.5 436.41 T
+0.33 (Creation of a new widget \050button, label, canvas,) 62.5 412.41 P
+0.33 (...\051) 278.3 412.41 P
+-0.07 (is done with special STk primitives procedures. For) 62.5 400.41 P
+(instance, creating a new button can be done with) 62.5 388.41 T
+4 8 Q
+(\050button '.b\051) 79.51 367.75 T
+2 10 Q
+-0.59 (Note that the name of the widget must be) 62.5 344.41 P
+1 F
+-0.59 (quoted) 243.45 344.41 P
+2 F
+-0.59 ( due) 270.3 344.41 P
+0.54 (to the Scheme evaluation mechanism. The call of a) 62.5 332.41 P
+1.1 (widget creation primitive, such as) 62.5 320.41 P
+4 F
+2.64 (button) 220.6 320.41 P
+2 F
+1.1 ( above,) 256.6 320.41 P
+0.99 (defines a new Scheme object which is called a) 62.5 308.41 P
+1 F
+0.99 (Tk-) 275.25 308.41 P
+0.17 (command) 62.5 296.41 P
+2 F
+0.17 (. This object, which is considered as a new) 101.57 296.41 P
+1.11 (basic type by the STk interpreter, is automatically) 62.5 284.41 P
+-0.48 (stored in a variable whose name is equal to the sym-) 62.5 272.41 P
+0.51 (bol passed to the creation function. So, the preced-) 62.5 260.41 P
+-0.3 (ing button creation would define an object stored in) 62.5 248.41 P
+-0.22 (the) 62.5 236.41 P
+4 F
+-0.53 (.b) 78.87 236.41 P
+2 F
+-0.22 ( variable. This object is a special kind of func-) 90.87 236.41 P
+0.5 (tion which is generally used, as in pure Tk, to cus-) 62.5 224.41 P
+4.07 (tomize its associated widget. For instance, the) 62.5 212.41 P
+(expression) 62.5 200.41 T
+4 8 Q
+(\050.b 'configure) 79.51 179.75 T
+('-text "Hello, world") 98.71 169.75 T
+('-border 3\051) 98.71 159.75 T
+2 10 Q
+1.12 (permits to set the text and background options of) 62.5 136.41 P
+0.78 (the) 62.5 124.41 P
+4 F
+1.88 (.b) 79.66 124.41 P
+2 F
+0.78 ( button. As we can see on this example, pa-) 91.66 124.41 P
+1.58 (rameters must be well quoted in regard with the) 62.5 112.41 P
+-0.32 (Scheme evaluation rules. Since this notation is bare-) 62.5 100.41 P
+1.71 (ly crude, the Common Lisp keyword mechanism) 306.14 739.41 P
+1.97 (has been introduced in the Scheme interpreter) 306.14 727.41 P
+2 8 Q
+1.57 (1) 526.27 731.41 P
+2 10 Q
+1.97 (.) 530.27 727.41 P
+-0.31 (Consequently, the preceding expression could have) 306.14 715.41 P
+(been written as) 306.14 703.41 T
+4 8 Q
+(\050button '.b) 323.15 682.75 T
+(:text "Hello, world") 361.55 672.75 T
+(:border 3\051) 361.55 662.75 T
+2 10 Q
+0.42 (The Tk binding mechanism, which serves to create) 306.14 639.41 P
+2.98 (widget event handlers follow the same kind of) 306.14 627.41 P
+0.16 (rules. The body of a Tk handler must be written, of) 306.14 615.41 P
+-0.5 (course, in Scheme. Following example shows such a) 306.14 603.41 P
+2.38 (script; here, the label) 306.14 591.41 P
+4 F
+5.71 (.lab) 409.83 591.41 P
+2 F
+2.38 ( indicates how many) 433.83 591.41 P
+1.17 (times mouse button 3 has been depressed over it.) 306.14 579.41 P
+0.28 (Increment of button press counter is achieved with) 306.14 567.41 P
+(the simple script given in the) 306.14 555.41 T
+4 F
+(bind) 436.84 555.41 T
+2 F
+( call.) 460.84 555.41 T
+4 8 Q
+(\050define count 0\051) 323.15 534.75 T
+(\050label \253.lab :textvariable 'count\051) 323.15 524.75 T
+(\050bind .lab "<ButtonPress-3>") 323.15 514.75 T
+('\050set! count \050+ count 1\051\051\051) 351.95 504.75 T
+2 10 Q
+-0.62 (Programming with this kind of constructions is a lit-) 306.14 481.41 P
+1.34 (tle bit tedious and more complicated than coding) 306.14 469.41 P
+-0.23 (with Tcl since we have to add parenthesis pairs and) 306.14 457.41 P
+-0.27 (quote options values. Its only interest is to bring the) 306.14 445.41 P
+0.02 (power and flexibility of the Tk world to an applica-) 306.14 433.41 P
+(tive language.) 306.14 421.41 T
+0 14 Q
+(2.2) 306.14 370.75 T
+(  STk: the object layer) 323.64 370.75 T
+2 10 Q
+2.66 (STk provides an object extension, called STklos,) 306.14 344.41 P
+-0.01 (which can be loaded dynamically. Using this object) 306.14 332.41 P
+0.27 (layer permits to gain the benefits inherent to object) 306.14 320.41 P
+1.13 (oriented programming. Furthermore, since STklos) 306.14 308.41 P
+0.18 (implementation rely on a meta-object protocol, it is) 306.14 296.41 P
+-0.06 (easy to adapt it to particular needs as we will see in) 306.14 284.41 P
+-0.56 (next section. Before that, we\325ll present here the main) 306.14 272.41 P
+2.37 (constructs available in this object layer indepen-) 306.14 260.41 P
+(dently of the Tk toolkit.) 306.14 248.41 T
+0.01 (Definition of a new class is done with the) 306.14 224.41 P
+4 F
+0.02 (define-) 490.77 224.41 P
+(class) 306.14 212.41 T
+2 F
+( macro. For instance,) 336.14 212.41 T
+4 8 Q
+(\050define-class Point) 323.15 191.75 T
+(\050\050x :init-keyword :x) 332.75 181.75 T
+(:accessor) 351.95 171.75 T
+(x-of\051) 419.15 171.75 T
+(\050y :init-keyword :y) 337.55 161.75 T
+(:accessor) 351.95 151.75 T
+(y-of\051\051) 419.15 151.75 T
+306.14 129.81 532.77 143.98 C
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+314.65 142 456.38 142 2 L
+0.5 H
+2 Z
+0 X
+0 0 0 1 0 0 0 K
+N
+-8.36 24.95 603.64 816.95 C
+2 9 Q
+0 X
+0 0 0 1 0 0 0 K
+0.55 (1.) 306.14 123.81 P
+0.55 (A keyword is a symbol beginning with a colon. It can) 315.14 123.81 P
+(been seen as a symbolic constant \050i.e. its value is itself\051.) 306.14 112.81 T
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "2" 8
+%%Page: "1" 9
+595.28 841.89 0 FMBEGINPAGE
+[0 0 0 1 0 0 0]
+[ 0 0 0 0 1 1 1]
+[ 0 1 1 0 1 0 0]
+[ 1 0 1 0 0 1 0]
+[ 1 1 0 0 0 0 1]
+[ 1 0 0 0 0 1 1]
+[ 0 1 0 0 1 0 1]
+[ 0 0 1 0 1 1 0]
+ 8 FrameSetSepColors
+FrameNoSep
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+6 12 Q
+0 X
+0 0 0 1 0 0 0 K
+(Abstract) 62.5 514.14 T
+1 10 Q
+-0.06 (STk is a graphical package which rely on the Tk toolkit) 62.5 489.48 P
+-0.17 (and the Scheme programming language. Concretely, it) 62.5 477.48 P
+0.53 (can be seen as the Tk package where the Tcl language) 62.5 465.48 P
+0.28 (as been replaced by a Scheme interpreter. STklos is an) 62.5 453.48 P
+0.98 (object oriented extension of STk. Usage of this object) 62.5 441.48 P
+1.72 (extension facilitates code reuse and the definition of) 62.5 429.48 P
+(new widgets classes.) 62.5 417.48 T
+0 18 Q
+(1) 62.5 378.14 T
+(  Introduction) 71.5 378.14 T
+2 10 Q
+0.3 (Today available graphical toolkits for applicative) 62.5 349.48 P
+1.98 (languages are often unsatisfactory. Most of the) 62.5 337.48 P
+0.2 (time, they ask to the user to be a GUI expert who) 62.5 325.48 P
+-0.21 (must cope with details such as server connections) 62.5 313.48 P
+-0.12 (or queue events which are far lower than the con-) 62.5 301.48 P
+(cepts such languages vehicle.) 62.5 289.48 T
+-0.44 (Among all the graphical toolkits available in the X) 62.5 265.48 P
+2.65 (world, the Berkeley Tk package developed by) 62.5 253.48 P
+7.9 (John Ousterhout merits a great attention) 62.5 241.48 P
+0.38 ([Ousterhout) 62.5 229.48 P
+0.38 (94]. This toolkit provides to the user) 119.03 229.48 P
+0.05 (high level widgets such as buttons, menus or text) 62.5 217.48 P
+-0.03 (editors which permit to build complex GUIs with) 62.5 205.48 P
+0.83 (little effort. In particular, a little knowledge of X) 62.5 193.48 P
+0.46 (fundamentals is needed to build a complete run-) 62.5 181.48 P
+1.44 (ning application with it. Tk package relies on a) 62.5 169.48 P
+8.38 (simple interpretative language named Tcl) 62.5 157.48 P
+1.26 ([Ousterhout) 62.5 145.48 P
+1.26 (90]. This language is a string based) 119.03 145.48 P
+1.18 (language with a shell-like syntax. If the Tcl lan-) 62.5 133.48 P
+0.94 (guage is convenient for small scripts writing, its) 62.5 121.48 P
+0.16 (usage in bigger projects is not suitable, because it) 62.5 109.48 P
+0.9 (lacks important features such as data structures,) 297.78 515.48 P
+-0.27 (types and objects. Furthermore, its imperative na-) 297.78 503.48 P
+2.41 (ture complicates the study of some interesting) 297.78 491.48 P
+1.6 (paradigms such as prototypes, actors or objects) 297.78 479.48 P
+(for GUI programming.) 297.78 467.48 T
+-0.41 (All these reasons have conducted to the definition) 297.78 443.48 P
+-0.01 (of the STk graphical package, a package based on) 297.78 431.48 P
+0.46 (Tk where the Tcl language as been replaced by a) 297.78 419.48 P
+0.98 (Scheme [Clinger) 297.78 407.48 P
+0.98 (91] interpreter. Usage of an ap-) 374.04 407.48 P
+0.15 (plicative language will permit to simplify the im-) 297.78 395.48 P
+2.42 (plementation of new programming paradigms.) 297.78 383.48 P
+0.91 (For now, only the object paradigm has been im-) 297.78 371.48 P
+-0.62 (plemented on the STk platform. This object orient-) 297.78 359.48 P
+2.63 (ed extension, which is called STklos, provides) 297.78 347.48 P
+0.74 (objects) 297.78 335.48 P
+1 F
+0.74 (\210 la) 331.08 335.48 P
+2 F
+0.74 ( CLOS \050Common Lisp Object System\051) 345.98 335.48 P
+0.41 ([Steele) 297.78 323.48 P
+0.41 (90]. More precisely, STklos is much closer) 329.4 323.48 P
+-0.21 (from the objects one can find in Dylan [Apple) 297.78 311.48 P
+-0.21 (92],) 500.22 311.48 P
+-0.21 (since this language is already a tentative to merge) 297.78 299.48 P
+(CLOS objects notions in a Scheme like language.) 297.78 287.48 T
+-0.39 (The STklos extension gives to the user a full object) 297.78 263.48 P
+0.57 (oriented system with meta-classes, multi-inherit-) 297.78 251.48 P
+1.11 (ance, generic functions and multi-methods. Fur-) 297.78 239.48 P
+1.51 (thermore, all the implementation rely on a true) 297.78 227.48 P
+1.09 (meta object protocol, in the spirit of the one de-) 297.78 215.48 P
+2.54 (fined for CLOS) 297.78 203.48 P
+2.54 ([Kickzales 91]. This model has) 372.36 203.48 P
+0.61 (been used to embody the predefined Tk widgets) 297.78 191.48 P
+-0.1 (in a hierarchy of STklos classes. This set of classes) 297.78 179.48 P
+0.57 (permits to simplify the core Tk usage by provid-) 297.78 167.48 P
+0.13 (ing homogeneous accesses to widget options and) 297.78 155.48 P
+-0.03 (by hiding the Tk widget low level details, such as) 297.78 143.48 P
+2.04 (naming conventions. Furthermore, as expected,) 297.78 131.48 P
+-0.15 (usage of objects facilitates code reuse and the def-) 297.78 119.48 P
+(inition of new widgets classes.) 297.78 107.48 T
+65.34 544.82 518.88 782.93 R
+7 X
+V
+0 0 0 1 0 0 0 K
+6 18 Q
+0 X
+(STklos : A Scheme Object Oriented System) 113.89 729.93 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+(Dealing with the Tk toolkit) 179.13 707.93 T
+0 0 0 1 0 0 0 K
+2 12 Q
+(Erick Gallesio) 255.32 677.93 T
+(Universit\216 de Nice - Sophia-Antipolis) 192.59 663.93 T
+(Laboratoire I3S - CNRS URA 1376 - ESSI.) 183.36 649.93 T
+(Route des Colles) 247.85 635.93 T
+(B.P. 145) 271.32 621.93 T
+(06903 Sophia-Antipolis Cedex - FRANCE) 182.38 607.93 T
+(email: eg@unice.fr) 243.49 579.93 T
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+0 0 0 1 0 0 0 K
+FMENDPAGE
+%%EndPage: "1" 9
+%%Trailer
+%%BoundingBox: 0 0 595.28 841.89
+%%PageOrder: Descend
+%%Pages: 9
+%%DocumentFonts: Times-Roman
+%%+ Palatino-Italic
+%%+ Palatino-Roman
+%%+ Courier-Oblique
+%%+ Courier
+%%+ Times-Italic
+%%+ Palatino-Bold
+%%EOF
diff --git a/Doc/bibliography.bib b/Doc/bibliography.bib
new file mode 100644
index 0000000..fc9a7f5
--- /dev/null
+++ b/Doc/bibliography.bib
@@ -0,0 +1,347 @@
+@String{pub-IEEE        = "IEEE Computer Society Press"}
+@String{pub-IEEEadr     = "1109 Spring Street, Suite 300, Silver
+                           Spring, MD 20910, USA"}
+@String{pub-DP          = "Digital Press"}
+@String{pub-DPadr       = "12 Crosby Drive, Bedford, MA 01730, USA"}
+@String{pub-PH          = "Pren{\-}tice-Hall"}
+@String{pub-PHadr       = "Englewood Cliffs, NJ 07632, USA"}
+
+@book{AMOP,
+   author    = {Gregor Kickzales, Jim de Rivi\`eres and Daniel G. Bobrow},
+   title     = {The Art of Meta Object Protocol},
+   year      = {1991},
+   publisher = {MIT Press}
+}
+
+
+@article{CLOS,
+   key       = {CLOS},
+   author    = {{Daniel D. Bobrow,} {Linda G DeMichiel,} {Richard P. Gabriel,} {Sonya E. Keene,} {Gregor Kiczales} and {David A. Moon}},
+   title     = {{Common Lisp Object System} Specification},
+   journal   = {Sigplan Notices},
+   year      = {1986},
+   month     = {november},
+   volume    = {23},
+   number    = {Special Issue}
+}
+
+
+@book{CLtL2,
+   author    = {Guy L. {Steele Jr.}},
+   title     = {Common Lisp: the Language, 2nd Edition},
+   year      = {1990},
+   publisher = pub-DP,
+   address   = pub-DPadr,
+   isbn      = {1-55558-042-4},
+   lccn      = {QA76.73.L23 S73 1990}
+}
+
+
+@inproceedings{Ducasse93-1,
+   author    = {Stephane Ducasse et Mireille Blay-Fornarino},
+   title     = {Protocol for managing Dependencies between Objects by controlling Generic Function InvocationO},
+   booktitle = {OOPSLA'93 workshop on Object-Oriented Refelection and Metalevel Architectures},
+   organization = {ACM},
+   year      = {1993},
+   month     = {october}
+}
+
+
+@book{Dylan,
+   author    = {Apple Computer},
+   title     = {Dylan: an Object Oriented Dynamic Language},
+   year      = {1992},
+   month     = {April},
+   editor    = {Apple},
+   publisher = { }
+}
+
+
+@inproceedings{Gallesio93-1,
+   author    = {Erick Gallesio},
+   title     = {Embedding a Scheme Interpreter in the {Tk} Toolkit},
+   booktitle = {First Tcl/Tk Workshop,  Berkeley},
+   year      = {1993},
+   month     = {June},
+   editor    = {Lawrence A. Rowe},
+   pages     = {103--109}
+}
+
+
+@inproceedings{Gallesio94-1,
+   key       = {Gallesio94-1},
+   author    = {Erick Gallesio},
+   title     = {{\stklos}: A Scheme Object Oriented System dealing with the Tk Toolkit},
+   booktitle = {Xhibition 94, San Jose, CA},
+   year      = {1994},
+   month     = {June},
+   editor    = {ICS},
+   pages     = {63--71}
+}
+
+
+@techreport{Gallesio95-1,
+   author    = {Erick Gallesio},
+   title     = {{\stk} Reference Manual},
+   institution = {I3S CNRS / Universit\'e de Nice - Sophia Antipolis},
+   year      = {1995},
+   month     = {juillet},
+   number    = {RT~95-31},
+   pages     = {82}
+}
+
+
+@techreport{Gallesio95-1a,
+   author    = {Erick Gallesio},
+   title     = {{\stk} Reference Manual},
+   institution = {I3S CNRS / Universit\'e de Nice - Sophia Antipolis},
+   year      = {1995},
+   month     = {juillet},
+   number    = {RT~95-31a},
+   pages     = {82}
+}
+
+
+@techreport{Gallesio95-2,
+   author    = {Erick Gallesio},
+   title     = {Designing a Meta Object Protocol to wrap a Standard Graphical Toolkit},
+   institution = {I3S CNRS / Universit\'e de Nice - Sophia Antipolis},
+   year      = {1995},
+   month     = {juillet},
+   number    = {RT~95-32},
+   pages     = {16}
+}
+
+
+@inproceedings{Gallesio96-1,
+   author    = {Erick Gallesio},
+   title     = {{Designing a Meta Object Protocol to wrap a Standard Graphical Toolkit}},
+   booktitle = {{ISOTAS'96}},
+   year      = {1996},
+   month     = {march},
+   publisher = {LNCS 1049, Springer-Verlag},
+   pages     = {137--156},
+}
+
+
+@article{IEEE-Scheme,
+   author    = {IEEE Standard 1178--1990},
+   title     = {{IEEE Standard for the Scheme Programming Language}},
+   journal   = {Institute of Electrical and Electronical Engineers, Inc. (New York)},
+   year      = {1991}
+}
+
+
+@book{Kernighan:CPL88,
+   author    = {Brian W. Kernighan and Dennis M. Ritchie},
+   title     = {The C Programming Language},
+   year      = {1988},
+   publisher = pub-PH,
+   address   = pub-PHadr,
+   edition   = {Second},
+   isbn      = {0-13-110362-8},
+   lccn      = {QA76.73.C15 K47 1988},
+   pages     = {xii + 272},
+   bibdate   = {Wed Dec 15 10:36:09 1993}
+}
+
+
+@inbook{Kickzales:PCL,
+   author    = {Gregor J. Kiczales and Luis H. Rodriguez Jr},
+   title     = {Object-Oriented Programming: The {CLOS} Perspective},
+   chapter   = {Efficient Method Dispatch in {PCL}},
+   year      = {1993},
+   editor    = {A. Paepcke},
+   publisher = {The MIT Press, Cambridge, MA},
+   pages     = {335--348}
+}
+
+
+@inproceedings{Kickzales:oopsla92,
+   author    = {Gregor Kickzales and John Lamping},
+   title     = {Issues in the Design and Specification of Class Libraries},
+   booktitle = {Proceedings of OOPSLA},
+   year      = {1992}
+}
+
+
+@inproceedings{Lisp:History-1,
+   author    = {John McCarthy},
+   title     = {History of Lisp},
+   booktitle = {Proceedings of the ACM SIGPLAN Hystory of Programming Languages Conference, Los Angeles, California},
+   year      = {1978},
+   month     = {june}
+}
+
+
+@article{Lisp:History-2,
+   author    = {{Guy L. Steele Jr.} and {Richard P. Gabriel}},
+   title     = {The Evolution of Lisp},
+   journal   = {ACM SIGPLAN Notices},
+   year      = {1993},
+   month     = {March},
+   volume    = {28},
+   number    = {3},
+   pages     = {231--270}
+}
+
+
+@conference{Lord95-1,
+   author    = {Thomas Lord},
+   title     = {The Guile Architecture for Ubiquitous Computing, An anatomy of Guile},
+   booktitle = {Proceedings of the Usenix Tcl/Tk Workshop'95},
+   year      = {1995},
+   pages     = {to appear}
+}
+
+
+@techreport{Mugridge-91,
+   author    = {W. B. Mugridge, J.G. Hosking and J. Hamer},
+   title     = {Multi-methods in statically-typed programming language},
+   institution = {Departement of Computer Science, University of Auckland},
+   year      = {1991},
+   number    = {50}
+}
+
+
+@conference{OpenC++,
+   author    = {Shigeru Chiba and Takashi Masuda},
+   title     = {Designing an Extensible Distributed Language with a Meta-Level Architecture},
+   booktitle = {Proceedings of the 7th European Conference on Object-Oriented Programming (ECOOP'93)},
+   year      = {1993},
+   month     = {may},
+   publisher = {LNCS 707, Springer-Verlag},
+   pages     = {482--501}
+}
+
+
+@inproceedings{Ouster-Tcl,
+   key       = {Ouster-Tcl},
+   author    = {John K. Ousterhout},
+   title     = {{Tcl}: an embeddable command language},
+   booktitle = {USENIX Winter Conference},
+   year      = {1990},
+   month     = {January},
+   pages     = {183--192}
+}
+
+
+@inproceedings{Ouster-Tk,
+   author    = {John K. Ousterhout},
+   title     = {{An X11 toolkit based on the Tcl Language}},
+   booktitle = {USENIX Winter Conference},
+   year      = {1991},
+   month     = {January},
+   pages     = {105--115}
+}
+
+
+@book{Ouster-book,
+   author    = {John K. Ousterhout},
+   title     = {Tcl and the Tk toolkit},
+   year      = {1994},
+   publisher = {Addison-Wesley},
+   isbn      = {0-201-63337-X}
+}
+
+
+@book{POSIX.1-90,
+   key       = {POSIX.1-90},
+   author    = {POSIX Committee},
+   title     = {System Application Program Interface ({API}) [C Language]},
+   year      = {1990},
+   publisher = pub-IEEE,
+   address   = pub-IEEEadr,
+   series    = {Information technology---Portable Operating System
+       Interface ({POSIX})},
+   isbn      = {1-55937-061-0},
+   lccn      = {90-084554},
+   iso-standard-number = {ISO/IEC 9945-1: 1990},
+   ieee-standard-number = {IEEE Std 1003.1-1990},
+   acknowledgement = ack-kb 
+}
+
+
+@article{R4RS,
+   author    = {William Clinger and Jonathan Rees (editors)},
+   title     = {{$Revised^{4}$ Report on the Algorithmic Language Scheme}},
+   journal   = {ACM Lisp Pointers},
+   year      = {1991},
+   volume    = {4},
+   number    = {3}
+}
+
+
+@book{SICP,
+   author    = {H. Abelson , G. J. Sussman and J. Sussman},
+   title     = {Structure and Interpretation of Computer Programs},
+   year      = {1985},
+   publisher = {McGraw-Hill (New York)}
+}
+
+
+@article{SOS,
+   author    = {Chris Hanson},
+   title     = {The SOS Reference Manual, version 1.5},
+   journal   = {in-line documentation of the SOS package. Source available
+       on martigny.ai.mit.edu in /archive/cph directory},
+   year      = {1993},
+   month     = {March}
+}
+
+
+@unpublished{Tiny-Clos,
+   author    = {Gregor Kickzales},
+   title     = {Tiny-Clos},
+   year      = {1992},
+   month     = {December},
+   note      = {Source available on \mbox{parcftp.xerox.com} in
+       directory \mbox{/pub/mops}},
+   journal   = {unpublished work. Source available on \mbox{parcftp.xerox.com} in
+       directory \mbox{/pub/mops}}
+}
+
+
+@misc{Tiollier95-1,
+   key       = {Tiollier95-1},
+   author    = {Eve Tiollier},
+   title     = {{I}nt\'egration de la notion de groupe dans un langage \`a objets},
+   year      = {1995},
+   month     = {juin},
+   howpublished = {DEA d'Informatique, Universit\'e de Nice}
+}
+
+
+@article{X11,
+   author    = {Robert W. Scheiflert and Jim Gettys},
+   title     = {{The X Window System}},
+   journal   = {ACM Transactions on Graphics},
+   year      = {1986},
+   month     = {April},
+   volume    = {5},
+   number    = {2},
+   pages     = {79--109}
+}
+
+
+@inproceedings{interviews,
+   key       = {interviews},
+   author    = {Mark A. Linton, Paul R. Calder and John Vlissides},
+   title     = {The Design and Implementation of InterViews},
+   booktitle = {Proceedings of the USENIX C++ Workshop},
+   year      = {1987},
+   month     = {november},
+   address   = {Santa Fe, New Mexico}
+}
+
+
+@inproceedings{predicate-classes,
+   author    = {Craig Chambers},
+   title     = {{P}redicate {C}lasses},
+   booktitle = {EcoProceedings of the 7th European Conference on Object-Oriented Programming (ECOOP'93)},
+   year      = {1993},
+   month     = {may},
+   publisher = {LNCS 707, Springer-Verlag},
+   pages     = {268--296}
+}
+
diff --git a/Extensions/%README b/Extensions/%README
new file mode 100644
index 0000000..1adb221
--- /dev/null
+++ b/Extensions/%README
@@ -0,0 +1,35 @@
+Extensions directory
+--------------------
+
+This file contains extensions of the core interpreter which can be dynamically
+loaded. See the file README in the release main directory to see the systems
+for which dynamic loading support exists.
+
+Two extensions are provided as exemples:
+
+	- stack.c: a (very simple) package providing the stack type to the 
+	  interpreter. This package is presented in the documentation
+	  about STk interpreter extension.
+	- when.c: an implementation of when and unless
+
+Other extensions ar more "useful":
+
+	- stklos.c + gf.c: all that is necessary for STklos
+	- hash.c: a package for hash-table in Scheme (the one used by STklos)
+	- pixmap.c: an extension for adding the XPM (pixmap) format to Tk4.0
+	  This extension is due to:
+		Harald Albrecht
+		albrecht@igpm.rwth-aachen.de
+		Institut fuer Geometrie und Praktische Mathematik, RWTH Aachen
+		Aachen, Germany
+	- html.c: a little extensions useful for (fast) html management
+	- process.c: an extension which provide process access to STk
+	- posix.c: a set of POSIX.1 fucntions for STk. Must be completed
+	- socket.c: simple support (and hence limited) for sockets. It allows you
+	  to make simple clients and servers program using TCP/IP
+	- sregexp.c Regular expressions
+
+
+For more informations on extension building, read the document "Extending the
+STk Interpreter" provided with the package.
+
diff --git a/Extensions/Makefile.in b/Extensions/Makefile.in
new file mode 100644
index 0000000..0c14b33
--- /dev/null
+++ b/Extensions/Makefile.in
@@ -0,0 +1,53 @@
+#
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+#
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@kaolin.unice.fr]
+#    Creation date:  6-Mar-1994 15:49
+# Last file update: 21-Jul-1996 22:27
+
+include ../config.make
+
+EXAMPLES = stack.$(SH_SUFFIX) \
+	   when.$(SH_SUFFIX)
+
+CFLAGS= $(SH_CCFLAGS) $(STKCFLAGS) $(DFLGS) -DUSE_TK @DEFS@ \
+        -I../Tk/generic -I../Tk/$(FLAVOR) -I../Tcl -I../Src -I../Mp $(XINCLUDES) 
+
+##############################################################################
+.SUFFIXES: .$(SH_SUFFIX) .o .c
+
+.o.$(SH_SUFFIX): 
+	-$(SH_LOADER) $(SH_LDFLAGS) $*.$(SH_SUFFIX) $<
+	if test -f a.out  ;then mv a.out $*.$(SH_SUFFIX); fi
+
+
+##############################################################################
+all: $(EXTRA_OBJ)
+
+# Following lines are needed for weird make commands. Use Gnu make....
+hash.$(SH_SUFFIX): 	hash.o 
+sregexp.$(SH_SUFFIX): 	sregexp.o 
+process.$(SH_SUFFIX): 	process.o 
+socket.$(SH_SUFFIX): 	socket.o 
+posix.$(SH_SUFFIX):	posix.o
+html.$(SH_SUFFIX):	html.o
+pixmap.$(SH_SUFFIX):	pixmap.o
+examples: $(EXAMPLES)
+
+install:
+	if test "$(EXTRA_OBJ)" != "" ; then $(CP) $(EXTRA_OBJ) $(execdir); fi
+
+install.libs:
+
+
+clean:
+	@/bin/rm -f *.o *.$(SH_SUFFIX) core *~ Makefile config.status config.log
diff --git a/Extensions/Makefile.sample b/Extensions/Makefile.sample
new file mode 100644
index 0000000..a8912d9
--- /dev/null
+++ b/Extensions/Makefile.sample
@@ -0,0 +1,99 @@
+# 
+# M a k e f i l e . s a m p l e		-- A Makefile prototype for compiling
+#					   extensions which are dynamically 
+#					   loaded
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+#
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@kaolin.unice.fr]
+#    Creation date: 17-Mar-1995 10:20
+# Last file update: 17-Mar-1995 10:48
+
+
+#####
+##### Start of configuration section
+#####
+
+CC=gcc
+LIBMALLOC=
+INCLUDES = -I../Tk -I../Tcl -I../Src -I../Mp
+
+
+# Define the 4 next line if you are running SUNOS4
+# Use -pic if using acc and fpic if using gcc
+     SH_CCFLAGS=-fpic
+     SH_LDFLAGS=-assert pure-text -o
+     SH_LOADER=ld
+     SH_SUFFIX=so
+# Define the 4 next lines if you are running SUNOS5
+#     SH_CCFLAGS=-K pic
+#     SH_LDFLAGS=-G -z text -h
+#     SH_LOADER=ld
+#     SH_SUFFIX=so
+# Define the 4 next lines if you are running OSF1
+#     SH_CCFLAGS=-fpic
+#     SH_LDFLAGS=-shared -o
+#     SH_LOADER=ld
+#     SH_SUFFIX=so 
+# Define the 4 next lines if you are running NETBSD1)
+#     SH_CCFLAGS=-fpic
+#     SH_LDFLAGS=-Bshareable -o
+#     SH_LOADER=ld
+#     SH_SUFFIX=so
+# Define the 5 next lines if you are running HPUX
+#     SH_CCFLAGS=+Z
+#     SH_LDFLAGS=-b -o
+#     SH_LOADER=ld
+#     SH_SUFFIX=sl
+#     CFLAGS=$CFLAGS -Wl,-E
+# Define the 5 next lines if you are running FREEBSD
+#     SH_CCFLAGS=-pic
+#     SH_LDFLAGS=-Bshareable -o
+#     SH_LOADER=ld
+#     LIB_MALLOC=/usr/lib/libgnumalloc.a
+#     SH_SUFFIX=so
+# Define the 4 next lines if you are running IRIX5
+#     SH_CCFLAGS=-fpic
+#     SH_LDFLAGS=-shared -o
+#     SH_LOADER=$CC
+#     SH_SUFFIX=so 
+# Define the 4 next lines if you are running LINUX
+#     SH_CCFLAGS=
+#     SH_LDFLAGS=-r -o
+#     SH_LOADER=ld
+#     SH_SUFFIX=so      
+#
+
+####
+#### End of of configuration section
+####
+
+
+##############################################################################
+.SUFFIXES: .$(SH_SUFFIX) .o .c
+
+.c.$(SH_SUFFIX):
+	$(CC) $(CFLAGS) -c -o $*.o $*.c
+	$(SH_LOADER) $(SH_LDFLAGS) $*.$(SH_SUFFIX) $*.o
+	if test -f a.out  ;then mv a.out $*.$(SH_SUFFIX); fi
+.o.$(SH_SUFFIX): 
+	$(SH_LOADER) $(SH_LDFLAGS) $*.$(SH_SUFFIX) $<
+	if test -f a.out  ;then mv a.out $*.$(SH_SUFFIX); fi
+
+##############################################################################
+CFLAGS = $(SH_CCFLAGS) $(INCLUDES) 
+
+help:
+	@echo "To make a new xxx.$(SH_SUFFIX) file, just type"
+	@echo "	   make xxx.$(SH_SUFFIX)"
+
+clean:
+	@/bin/rm -f *.o *.$(SH_SUFFIX) core *~ 
diff --git a/Extensions/configure b/Extensions/configure
new file mode 100755
index 0000000..1772b04
--- /dev/null
+++ b/Extensions/configure
@@ -0,0 +1,853 @@
+#! /bin/sh
+
+# Guess values for system-dependent variables and create Makefiles.
+# Generated automatically using autoconf version 2.7 
+# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+
+# Defaults:
+ac_help=
+ac_default_prefix=/usr/local
+# Any additions from configure.in:
+
+# Initialize some variables set by options.
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+build=NONE
+cache_file=./config.cache
+exec_prefix=NONE
+host=NONE
+no_create=
+nonopt=NONE
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+target=NONE
+verbose=
+x_includes=NONE
+x_libraries=NONE
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datadir='${prefix}/share'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+libdir='${exec_prefix}/lib'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+infodir='${prefix}/info'
+mandir='${prefix}/man'
+
+# Initialize some other variables.
+subdirs=
+MFLAGS= MAKEFLAGS=
+
+ac_prev=
+for ac_option
+do
+
+  # If the previous option needs an argument, assign it.
+  if test -n "$ac_prev"; then
+    eval "$ac_prev=\$ac_option"
+    ac_prev=
+    continue
+  fi
+
+  case "$ac_option" in
+  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
+  *) ac_optarg= ;;
+  esac
+
+  # Accept the important Cygnus configure options, so we can diagnose typos.
+
+  case "$ac_option" in
+
+  -bindir | --bindir | --bindi | --bind | --bin | --bi)
+    ac_prev=bindir ;;
+  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+    bindir="$ac_optarg" ;;
+
+  -build | --build | --buil | --bui | --bu)
+    ac_prev=build ;;
+  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+    build="$ac_optarg" ;;
+
+  -cache-file | --cache-file | --cache-fil | --cache-fi \
+  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+    ac_prev=cache_file ;;
+  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+    cache_file="$ac_optarg" ;;
+
+  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
+    ac_prev=datadir ;;
+  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
+  | --da=*)
+    datadir="$ac_optarg" ;;
+
+  -disable-* | --disable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    eval "enable_${ac_feature}=no" ;;
+
+  -enable-* | --enable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "enable_${ac_feature}='$ac_optarg'" ;;
+
+  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+  | --exec | --exe | --ex)
+    ac_prev=exec_prefix ;;
+  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+  | --exec=* | --exe=* | --ex=*)
+    exec_prefix="$ac_optarg" ;;
+
+  -gas | --gas | --ga | --g)
+    # Obsolete; use --with-gas.
+    with_gas=yes ;;
+
+  -help | --help | --hel | --he)
+    # Omit some internal or obsolete options to make the list less imposing.
+    # This message is too long to be a string in the A/UX 3.1 sh.
+    cat << EOF
+Usage: configure [options] [host]
+Options: [defaults in brackets after descriptions]
+Configuration:
+  --cache-file=FILE       cache test results in FILE
+  --help                  print this message
+  --no-create             do not create output files
+  --quiet, --silent       do not print \`checking...' messages
+  --version               print the version of autoconf that created configure
+Directory and file names:
+  --prefix=PREFIX         install architecture-independent files in PREFIX
+                          [$ac_default_prefix]
+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
+                          [same as prefix]
+  --bindir=DIR            user executables in DIR [EPREFIX/bin]
+  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
+  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
+  --datadir=DIR           read-only architecture-independent data in DIR
+                          [PREFIX/share]
+  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
+  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
+                          [PREFIX/com]
+  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
+  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
+  --includedir=DIR        C header files in DIR [PREFIX/include]
+  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
+  --infodir=DIR           info documentation in DIR [PREFIX/info]
+  --mandir=DIR            man documentation in DIR [PREFIX/man]
+  --srcdir=DIR            find the sources in DIR [configure dir or ..]
+  --program-prefix=PREFIX prepend PREFIX to installed program names
+  --program-suffix=SUFFIX append SUFFIX to installed program names
+  --program-transform-name=PROGRAM
+                          run sed PROGRAM on installed program names
+EOF
+    cat << EOF
+Host type:
+  --build=BUILD           configure for building on BUILD [BUILD=HOST]
+  --host=HOST             configure for HOST [guessed]
+  --target=TARGET         configure for TARGET [TARGET=HOST]
+Features and packages:
+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
+  --x-includes=DIR        X include files are in DIR
+  --x-libraries=DIR       X library files are in DIR
+EOF
+    if test -n "$ac_help"; then
+      echo "--enable and --with options recognized:$ac_help"
+    fi
+    exit 0 ;;
+
+  -host | --host | --hos | --ho)
+    ac_prev=host ;;
+  -host=* | --host=* | --hos=* | --ho=*)
+    host="$ac_optarg" ;;
+
+  -includedir | --includedir | --includedi | --included | --include \
+  | --includ | --inclu | --incl | --inc)
+    ac_prev=includedir ;;
+  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+  | --includ=* | --inclu=* | --incl=* | --inc=*)
+    includedir="$ac_optarg" ;;
+
+  -infodir | --infodir | --infodi | --infod | --info | --inf)
+    ac_prev=infodir ;;
+  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+    infodir="$ac_optarg" ;;
+
+  -libdir | --libdir | --libdi | --libd)
+    ac_prev=libdir ;;
+  -libdir=* | --libdir=* | --libdi=* | --libd=*)
+    libdir="$ac_optarg" ;;
+
+  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+  | --libexe | --libex | --libe)
+    ac_prev=libexecdir ;;
+  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+  | --libexe=* | --libex=* | --libe=*)
+    libexecdir="$ac_optarg" ;;
+
+  -localstatedir | --localstatedir | --localstatedi | --localstated \
+  | --localstate | --localstat | --localsta | --localst \
+  | --locals | --local | --loca | --loc | --lo)
+    ac_prev=localstatedir ;;
+  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
+  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
+    localstatedir="$ac_optarg" ;;
+
+  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+    ac_prev=mandir ;;
+  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+    mandir="$ac_optarg" ;;
+
+  -nfp | --nfp | --nf)
+    # Obsolete; use --without-fp.
+    with_fp=no ;;
+
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c)
+    no_create=yes ;;
+
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+    no_recursion=yes ;;
+
+  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+  | --oldin | --oldi | --old | --ol | --o)
+    ac_prev=oldincludedir ;;
+  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+    oldincludedir="$ac_optarg" ;;
+
+  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+    ac_prev=prefix ;;
+  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+    prefix="$ac_optarg" ;;
+
+  -program-prefix | --program-prefix | --program-prefi | --program-pref \
+  | --program-pre | --program-pr | --program-p)
+    ac_prev=program_prefix ;;
+  -program-prefix=* | --program-prefix=* | --program-prefi=* \
+  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+    program_prefix="$ac_optarg" ;;
+
+  -program-suffix | --program-suffix | --program-suffi | --program-suff \
+  | --program-suf | --program-su | --program-s)
+    ac_prev=program_suffix ;;
+  -program-suffix=* | --program-suffix=* | --program-suffi=* \
+  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+    program_suffix="$ac_optarg" ;;
+
+  -program-transform-name | --program-transform-name \
+  | --program-transform-nam | --program-transform-na \
+  | --program-transform-n | --program-transform- \
+  | --program-transform | --program-transfor \
+  | --program-transfo | --program-transf \
+  | --program-trans | --program-tran \
+  | --progr-tra | --program-tr | --program-t)
+    ac_prev=program_transform_name ;;
+  -program-transform-name=* | --program-transform-name=* \
+  | --program-transform-nam=* | --program-transform-na=* \
+  | --program-transform-n=* | --program-transform-=* \
+  | --program-transform=* | --program-transfor=* \
+  | --program-transfo=* | --program-transf=* \
+  | --program-trans=* | --program-tran=* \
+  | --progr-tra=* | --program-tr=* | --program-t=*)
+    program_transform_name="$ac_optarg" ;;
+
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil)
+    silent=yes ;;
+
+  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+    ac_prev=sbindir ;;
+  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+  | --sbi=* | --sb=*)
+    sbindir="$ac_optarg" ;;
+
+  -sharedstatedir | --sharedstatedir | --sharedstatedi \
+  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+  | --sharedst | --shareds | --shared | --share | --shar \
+  | --sha | --sh)
+    ac_prev=sharedstatedir ;;
+  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+  | --sha=* | --sh=*)
+    sharedstatedir="$ac_optarg" ;;
+
+  -site | --site | --sit)
+    ac_prev=site ;;
+  -site=* | --site=* | --sit=*)
+    site="$ac_optarg" ;;
+
+  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+    ac_prev=srcdir ;;
+  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+    srcdir="$ac_optarg" ;;
+
+  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+  | --syscon | --sysco | --sysc | --sys | --sy)
+    ac_prev=sysconfdir ;;
+  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+    sysconfdir="$ac_optarg" ;;
+
+  -target | --target | --targe | --targ | --tar | --ta | --t)
+    ac_prev=target ;;
+  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+    target="$ac_optarg" ;;
+
+  -v | -verbose | --verbose | --verbos | --verbo | --verb)
+    verbose=yes ;;
+
+  -version | --version | --versio | --versi | --vers)
+    echo "configure generated by autoconf version 2.7"
+    exit 0 ;;
+
+  -with-* | --with-*)
+    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "with_${ac_package}='$ac_optarg'" ;;
+
+  -without-* | --without-*)
+    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    eval "with_${ac_package}=no" ;;
+
+  --x)
+    # Obsolete; use --with-x.
+    with_x=yes ;;
+
+  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+  | --x-incl | --x-inc | --x-in | --x-i)
+    ac_prev=x_includes ;;
+  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+    x_includes="$ac_optarg" ;;
+
+  -x-libraries | --x-libraries | --x-librarie | --x-librari \
+  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+    ac_prev=x_libraries ;;
+  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+    x_libraries="$ac_optarg" ;;
+
+  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
+    ;;
+
+  *)
+    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
+      echo "configure: warning: $ac_option: invalid host type" 1>&2
+    fi
+    if test "x$nonopt" != xNONE; then
+      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
+    fi
+    nonopt="$ac_option"
+    ;;
+
+  esac
+done
+
+if test -n "$ac_prev"; then
+  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
+fi
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+# File descriptor usage:
+# 0 standard input
+# 1 file creation
+# 2 errors and warnings
+# 3 some systems may open it to /dev/tty
+# 4 used on the Kubota Titan
+# 6 checking for... messages and results
+# 5 compiler messages saved in config.log
+if test "$silent" = yes; then
+  exec 6>/dev/null
+else
+  exec 6>&1
+fi
+exec 5>./config.log
+
+echo "\
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+" 1>&5
+
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Also quote any args containing shell metacharacters.
+ac_configure_args=
+for ac_arg
+do
+  case "$ac_arg" in
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c) ;;
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
+  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
+  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
+  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
+  esac
+done
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -rf conftest* confdefs.h
+# AIX cpp loses on an empty file, so make sure it contains at least a newline.
+echo > confdefs.h
+
+# A filename unique to this package, relative to the directory that
+# configure is in, which we can look for to find out if srcdir is correct.
+ac_unique_file=process.c
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+  ac_srcdir_defaulted=yes
+  # Try the directory containing this script, then its parent.
+  ac_prog=$0
+  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
+  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
+  srcdir=$ac_confdir
+  if test ! -r $srcdir/$ac_unique_file; then
+    srcdir=..
+  fi
+else
+  ac_srcdir_defaulted=no
+fi
+if test ! -r $srcdir/$ac_unique_file; then
+  if test "$ac_srcdir_defaulted" = yes; then
+    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
+  else
+    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
+  fi
+fi
+srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
+
+# Prefer explicitly selected file to automatically selected ones.
+if test -z "$CONFIG_SITE"; then
+  if test "x$prefix" != xNONE; then
+    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
+  else
+    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
+  fi
+fi
+for ac_site_file in $CONFIG_SITE; do
+  if test -r "$ac_site_file"; then
+    echo "loading site script $ac_site_file"
+    . "$ac_site_file"
+  fi
+done
+
+if test -r "$cache_file"; then
+  echo "loading cache $cache_file"
+  . $cache_file
+else
+  echo "creating cache $cache_file"
+  > $cache_file
+fi
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='echo $CPP $CPPFLAGS 1>&5;
+$CPP $CPPFLAGS'
+ac_compile='echo ${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5;
+${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
+ac_link='echo ${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5;
+${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
+
+if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
+  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
+  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
+    ac_n= ac_c='
+' ac_t='	'
+  else
+    ac_n=-n ac_c= ac_t=
+  fi
+else
+  ac_n= ac_c='\c' ac_t=
+fi
+
+
+/bin/rm -f config.cache
+CC=${CC-gcc}
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+  CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    # This must be in double quotes, not single quotes, because CPP may get
+  # substituted into the Makefile and "${CC-cc}" will confuse make.
+  CPP="${CC-cc} -E"
+  # On the NeXT, cc -E runs the code through the compiler's parser,
+  # not just through cpp.
+  cat > conftest.$ac_ext <<EOF
+#line 536 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP="${CC-cc} -E -traditional-cpp"
+  cat > conftest.$ac_ext <<EOF
+#line 550 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+  ac_cv_prog_CPP="$CPP"
+fi
+  CPP="$ac_cv_prog_CPP"
+else
+  ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+for ac_hdr in unistd.h limits.h
+do
+ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 583 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+for ac_func in sigaction
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 618 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char $ac_func(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char $ac_func();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+trap '' 1 2 15
+cat > confcache <<\EOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs.  It is not useful on other systems.
+# If it contains results you don't want to keep, you may remove or edit it.
+#
+# By default, configure uses ./config.cache as the cache file,
+# creating it if it does not exist already.  You can give configure
+# the --cache-file=FILE option to use a different cache file; that is
+# what configure does when it calls configure scripts in
+# subdirectories, so they share the cache.
+# Giving --cache-file=/dev/null disables caching, for debugging configure.
+# config.status only pays attention to the cache file if you give it the
+# --recheck option to rerun configure.
+#
+EOF
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(set) 2>&1 |
+  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
+  >> confcache
+if cmp -s $cache_file confcache; then
+  :
+else
+  if test -w $cache_file; then
+    echo "updating cache $cache_file"
+    cat confcache > $cache_file
+  else
+    echo "not updating unwritable cache $cache_file"
+  fi
+fi
+rm -f confcache
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+# Any assignment to VPATH causes Sun make to only execute
+# the first set of double-colon rules, so remove it if not needed.
+# If there is a colon in the path, we need to keep it.
+if test "x$srcdir" = x.; then
+  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
+fi
+
+trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
+
+# Transform confdefs.h into DEFS.
+# Protect against shell expansion while executing Makefile rules.
+# Protect against Makefile macro expansion.
+cat > conftest.defs <<\EOF
+s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
+s%[ 	`~#$^&*(){}\\|;'"<>?]%\\&%g
+s%\[%\\&%g
+s%\]%\\&%g
+s%\$%$$%g
+EOF
+DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
+rm -f conftest.defs
+
+
+# Without the "./", some shells look in PATH for config.status.
+: ${CONFIG_STATUS=./config.status}
+
+echo creating $CONFIG_STATUS
+rm -f $CONFIG_STATUS
+cat > $CONFIG_STATUS <<EOF
+#! /bin/sh
+# Generated automatically by configure.
+# Run this file to recreate the current configuration.
+# This directory was configured as follows,
+# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+#
+# $0 $ac_configure_args
+#
+# Compiler output produced by configure, useful for debugging
+# configure, is in ./config.log if it exists.
+
+ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
+for ac_option
+do
+  case "\$ac_option" in
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
+    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
+  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
+    echo "$CONFIG_STATUS generated by autoconf version 2.7"
+    exit 0 ;;
+  -help | --help | --hel | --he | --h)
+    echo "\$ac_cs_usage"; exit 0 ;;
+  *) echo "\$ac_cs_usage"; exit 1 ;;
+  esac
+done
+
+ac_given_srcdir=$srcdir
+
+trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+# Protect against being on the right side of a sed subst in config.status.
+sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
+ s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
+$ac_vpsub
+$extrasub
+s%@CFLAGS@%$CFLAGS%g
+s%@CPPFLAGS@%$CPPFLAGS%g
+s%@CXXFLAGS@%$CXXFLAGS%g
+s%@DEFS@%$DEFS%g
+s%@LDFLAGS@%$LDFLAGS%g
+s%@LIBS@%$LIBS%g
+s%@exec_prefix@%$exec_prefix%g
+s%@prefix@%$prefix%g
+s%@program_transform_name@%$program_transform_name%g
+s%@bindir@%$bindir%g
+s%@sbindir@%$sbindir%g
+s%@libexecdir@%$libexecdir%g
+s%@datadir@%$datadir%g
+s%@sysconfdir@%$sysconfdir%g
+s%@sharedstatedir@%$sharedstatedir%g
+s%@localstatedir@%$localstatedir%g
+s%@libdir@%$libdir%g
+s%@includedir@%$includedir%g
+s%@oldincludedir@%$oldincludedir%g
+s%@infodir@%$infodir%g
+s%@mandir@%$mandir%g
+s%@CPP@%$CPP%g
+
+CEOF
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
+  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  case "$ac_file" in
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
+  *) ac_file_in="${ac_file}.in" ;;
+  esac
+
+  # Adjust relative srcdir, etc. for subdirectories.
+
+  # Remove last slash and all that follows it.  Not all systems have dirname.
+  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
+  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
+    # The file is in a subdirectory.
+    test ! -d "$ac_dir" && mkdir "$ac_dir"
+    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
+    # A "../" for each directory in $ac_dir_suffix.
+    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
+  else
+    ac_dir_suffix= ac_dots=
+  fi
+
+  case "$ac_given_srcdir" in
+  .)  srcdir=.
+      if test -z "$ac_dots"; then top_srcdir=.
+      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
+  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
+  *) # Relative path.
+    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
+    top_srcdir="$ac_dots$ac_given_srcdir" ;;
+  esac
+
+  echo creating "$ac_file"
+  rm -f "$ac_file"
+  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
+  case "$ac_file" in
+  *Makefile*) ac_comsub="1i\\
+# $configure_input" ;;
+  *) ac_comsub= ;;
+  esac
+  sed -e "$ac_comsub
+s%@configure_input@%$configure_input%g
+s%@srcdir@%$srcdir%g
+s%@top_srcdir@%$top_srcdir%g
+" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+fi; done
+rm -f conftest.subs
+
+
+
+exit 0
+EOF
+chmod +x $CONFIG_STATUS
+rm -fr confdefs* $ac_clean_files
+test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
+
diff --git a/Extensions/configure.in b/Extensions/configure.in
new file mode 100644
index 0000000..30d292f
--- /dev/null
+++ b/Extensions/configure.in
@@ -0,0 +1,10 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during STk installation
+dnl	to configure the system for the local environment.
+
+AC_INIT(process.c)
+/bin/rm -f config.cache
+CC=${CC-gcc}
+AC_HAVE_HEADERS(unistd.h limits.h)
+AC_HAVE_FUNCS(sigaction)
+AC_OUTPUT(Makefile)
diff --git a/Extensions/hash.c b/Extensions/hash.c
new file mode 100644
index 0000000..0378938
--- /dev/null
+++ b/Extensions/hash.c
@@ -0,0 +1,509 @@
+/*
+ *
+ * h a s h  . c			-- Hash Tables 
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 17-Jan-1994 17:49
+ * Last file update: 17-May-1996 17:46
+ */
+
+#include <stk.h>
+
+static void 	 free_hash_table(SCM ht);
+static void 	 mark_hash_table(SCM ht);
+static PRIMITIVE hash_table_hash(SCM obj);
+
+
+/**** Definitions for new type tc_hash ****/
+static int tc_hash;
+static STk_extended_scheme_type hash_table_type = {
+  "hash-table",		/* name */
+  0,			/* is_procp */
+  mark_hash_table,	/* gc_mark_fct */
+  free_hash_table,	/* gc_sweep_fct */
+  NULL,			/* apply_fct */
+  NULL,			/* display_fct */
+  NULL,			/* compare_fct */
+};
+
+typedef enum {hash_eq, hash_string, hash_comp} hash_type;
+
+typedef struct {
+  struct Tcl_HashTable *h;
+  hash_type type;
+  SCM comparison;	/* unused if not a comparison hash table */
+  SCM sxhash_fct;
+} Scheme_hash_table;
+
+#define HASH(x)		   ((Scheme_hash_table *) ((x)->storage_as.extension.data))
+#define LHASH(x)	   ((x)->storage_as.extension.data)
+#define HASHP(x)	   (TYPEP(x, tc_hash))
+#define HASH_COMP(x)	   (HASH(x)->comparison)
+#define HASH_SXHASH(x)	   (HASH(x)->sxhash_fct)
+#define HASH_H(x)	   (HASH(x)->h)
+#define HASH_TYPE(x)	   (HASH(x)->type)
+#define HASH_WORD(h1, h2)  ((((h1) << 4) + (h1)) ^ (h2))  /* Good repartition ? */
+
+/* This function is duplicated from tclHash.c
+ * It would be possible to export this function form tchHash.c, but I prefer 
+ * to avoid modifications, as far as possible, from files in the Tcl directory
+ * Given the size of this function, a duplication should not be a problem 
+ */
+static unsigned long HashString(register char *string)
+{
+  register unsigned long result;
+  register int c;
+
+  result = 0;
+  for ( ; ; ) {
+    c = *string++;
+    if (c == 0) break;
+    result += (result<<3) + c;
+  }
+  return result;
+}
+
+/*
+ * sxhash permits to calculate a "universal" hash value  a` la CL sxhash 
+ * function
+ *
+ */
+unsigned long sxhash(SCM obj)
+{
+  register unsigned long h;
+  register SCM tmp;
+  register int i;
+
+  switch (TYPE(obj)) {
+    case tc_cons:       h = sxhash(CAR(obj));
+      			for(tmp=CDR(obj); CONSP(tmp); tmp=CDR(tmp))
+			  h = HASH_WORD(h, sxhash(CAR(tmp)));
+			h = HASH_WORD(h, sxhash(tmp));
+			return h;
+    case tc_integer:	
+    case tc_bignum:	return (unsigned long) STk_integer_value_no_overflow(obj);
+    case tc_flonum:	return (unsigned long) FLONM(obj);
+    case tc_symbol:	return HashString(PNAME(obj));
+    case tc_keyword:	return HashString(KEYVAL(obj));
+    case tc_string:	return HashString(CHARS(obj));
+    case tc_vector:	h = 0;
+			for (i=VECTSIZE(obj)-1; i >= 0; i--) 
+			  h = HASH_WORD(h, sxhash(VECT(obj)[i]));
+			return h;
+    default:	        /* Either a small constant or a complex type (STklos
+			 * object, user defined type, hashtable...). In this 
+			 * case we return the type of the object. This is very 
+			 * inneficient but it should be rare to use a structured
+			 * object as a key. Note that returning the type 
+			 * works even if we have not COMPACT_SMALL_CST (as far as 
+			 * I know, nobody undefine it). In this case  SMALL_CSTP
+			 * always return FALSE.
+			 */
+      			 return (SMALL_CSTP(obj)) ? (unsigned long) obj:
+			   			    (unsigned long) TYPE(obj);
+  }
+}
+
+/* 
+ * find_key: equivalent to the assoc function except that it works
+ * with any comparison. If no association is found, find_key returns
+ * NULL 
+ */
+static SCM find_key(SCM obj, SCM alist, SCM comparison)
+{
+  register SCM l, tmp;
+
+  for(l=alist; !NULLP(l); l=CDR(l)) {
+    tmp = CAR(l);
+    if (STk_apply(comparison, LIST2(obj, CAR(tmp))) != Ntruth) return tmp;
+  }
+  return NULL;
+}
+
+/* 
+ * remove_key: remove the given key from the association list.
+ * The key is compared with the ``comparison'' function
+ */
+static SCM remove_key(SCM obj, SCM alist, SCM comparison)
+{
+  register SCM l, tmp;
+
+  for(l=NIL; !NULLP(alist); alist=CDR(alist)) {
+    if (STk_apply(comparison, LIST2(obj, CAR(CAR(alist)))) == Ntruth) 
+      l = Cons(CAR(alist), l);
+  }
+  return l;
+}
+
+/* 
+ * The_func returns a cell which represent the ORIGINAL subr given as
+ * a string. Don't use intern to avoid problems if "eq?" or
+ * "hash-table-hash" have been redefined by the user. This is probably
+ * not useful, but ...
+ */
+static SCM the_func(char *s)
+{
+  SCM z;
+  
+  if (strcmp(s, "eq?") == 0) {
+    NEWCELL(z, tc_subr_2);
+    z->storage_as.subr0.f = (SCM (*)()) STk_eq;
+  }
+  else { /* s is "hash-table-hash" */
+    NEWCELL(z, tc_subr_1);
+    z->storage_as.subr0.f = (SCM (*)()) sxhash;
+  }
+  z->storage_as.subr0.name = s;
+  
+  return z;
+}
+
+
+    
+/******************************************************************************/
+
+/*
+ * STk_sxhash: the Scheme version of sxhash
+ */
+static PRIMITIVE hash_table_hash(SCM obj)
+{
+  long int x = sxhash(obj);
+  
+  return STk_makeinteger((x < 0) ? -x : x);
+}
+
+
+static PRIMITIVE make_hash_table(SCM l, int len)
+{
+  SCM sxhash, compar, z;
+  hash_type type=hash_comp;
+
+  switch (len) {
+    case 0: compar = the_func("eq?");
+            sxhash = the_func("hash-table-hash");
+	    break;
+    case 1: compar = CAR(l);
+            sxhash = the_func("hash-table-hash");
+	    break;
+    case 2: compar = CAR(l);
+      	    sxhash = CAR(CDR(l));
+	    break;
+    default: STk_err("make-hash-table: bad list of parameters", l);
+  }
+
+  if (STk_procedurep(compar) == Ntruth) 
+    STk_err("make-hash-table: bad comparison function", compar);
+
+  if (STk_procedurep(sxhash) == Ntruth) 
+    STk_err("make-hash-table: bad hash function", sxhash);  
+
+  if (TYPEP(compar, tc_subr_2))
+    /* 
+     * We have a procedure. See if it is 'eq?' or 'string?'.
+     * If so, we implement the hash table in the most efficient 
+     * way. Otherwise, we will use another method (i.e. find a key
+     * code for each object with the sxhash  function and strore
+     * each element  with this key in a A-list, the A-list for a
+     * given key is is found  using the Tcl Hash functions 
+     */
+    if ((void *) SUBRF(compar) == (void *) STk_eq)    type = hash_eq;    else
+    if ((void *) SUBRF(compar) == (void *) STk_streq) type = hash_string;
+
+  /* Make a new hash table object */
+  NEWCELL(z, tc_hash);
+  
+  LHASH(z) 	      = (Scheme_hash_table *)must_malloc(sizeof(Scheme_hash_table));
+  HASH(z)->h	      = must_malloc(sizeof(Tcl_HashTable));
+  HASH(z)->type	      = type;
+  HASH(z)->sxhash_fct = sxhash;
+  HASH(z)->comparison = compar;
+  Tcl_InitHashTable(HASH_H(z), (type == hash_string)? TCL_STRING_KEYS :
+		    				      TCL_ONE_WORD_KEYS);
+  return z;
+}
+
+static PRIMITIVE hash_table_p(SCM obj)
+{
+  return HASHP(obj) ? Truth: Ntruth;
+}
+
+
+static PRIMITIVE hash_table_put(SCM ht, SCM key, SCM val)
+{
+  Tcl_HashEntry *entry;
+  SCM index;
+  int new;
+
+  if (!HASHP(ht)) Err("hash-table-put!: bad hash table", ht);
+  
+  switch (HASH_TYPE(ht)) {
+    case hash_eq: 
+      entry = Tcl_CreateHashEntry(HASH_H(ht), (char *) key, &new);
+      Tcl_SetHashValue(entry, val);
+      break;
+    case hash_string:
+      if (!STRINGP(key)) Err("hash-table-put!: bad string", key);
+      entry = Tcl_CreateHashEntry(HASH_H(ht), CHARS(key), &new);
+      Tcl_SetHashValue(entry, val);
+      break;
+    case hash_comp:
+      index = Apply(HASH_SXHASH(ht), LIST1(key));
+      entry = Tcl_CreateHashEntry(HASH_H(ht), (char *) index, &new);
+      if (new)
+	Tcl_SetHashValue(entry, LIST1(Cons(key, val)));
+      else {
+	SCM old = (SCM) Tcl_GetHashValue(entry);
+	SCM tmp = find_key(key, old, HASH_COMP(ht));
+
+	if (tmp) {
+	  CAR(tmp) = key;
+	  CDR(tmp) = val;
+	}
+	else
+	  Tcl_SetHashValue(entry, Cons(Cons(key, val), old));
+      }
+      break;
+  }
+  return UNDEFINED;
+}
+
+static PRIMITIVE hash_table_get(SCM ht, SCM key, SCM default_value)
+{
+  Tcl_HashEntry *entry;
+  SCM index;
+
+  if (!HASHP(ht)) Err("hash-table-get: bad hash table", ht);
+
+  switch (HASH_TYPE(ht)) {
+    case hash_eq: 
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), (char *) key))
+	/* Key already in hash table */
+	return (SCM) Tcl_GetHashValue(entry);
+      break;
+    case hash_string:
+      if (!STRINGP(key)) Err("hash-table-get: bad string", key);
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), CHARS(key)))
+	/* Key already in hash table */
+	return (SCM) Tcl_GetHashValue(entry);
+      break;
+    case hash_comp:
+      index = Apply(HASH_SXHASH(ht), LIST1(key));
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), (char *) index)) {
+	SCM tmp, val = (SCM) Tcl_GetHashValue(entry);
+
+	if (tmp = find_key(key, val, HASH_COMP(ht))) 
+	  return CDR(tmp);
+      }
+      break;
+  }
+  /* If we are here, key was not present in table */
+  if (default_value == UNBOUND)  
+    Err("hash-table-get: entry not defined for this key", key);
+  return default_value;
+}
+
+static PRIMITIVE hash_table_remove(SCM ht, SCM key)
+{
+  Tcl_HashEntry *entry;
+  SCM index;
+
+  if (!HASHP(ht)) Err("hash-table-remove!: bad hash table", ht);
+
+  switch (HASH_TYPE(ht)) {
+    case hash_eq:
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), (char *) key)) 
+	/* Key alrady in hash table */
+	Tcl_DeleteHashEntry(entry);
+      break;
+    case hash_string:
+      if (!STRINGP(key)) Err("hash-table-remove: bad string", key);
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), CHARS(key))) 
+	/* Key alrady in hash table */
+	Tcl_DeleteHashEntry(entry);
+      break;
+    case hash_comp:
+      index = Apply(HASH_SXHASH(ht), LIST1(key));
+      if (entry=Tcl_FindHashEntry(HASH_H(ht), (char *) index)) {
+	SCM tmp, val = (SCM) Tcl_GetHashValue(entry);
+	
+	tmp = remove_key(key, val, HASH_COMP(ht));
+
+	if (NULLP(tmp)) 
+	  /* This was the only entry for this key. We can delete the entry */
+	  Tcl_DeleteHashEntry(entry);
+	else
+	  Tcl_SetHashValue(entry, tmp);
+      }
+      break;
+  }
+  return UNDEFINED;
+}
+
+static PRIMITIVE hash_table_for_each(SCM ht, SCM proc)
+{
+  Tcl_HashEntry *entry;
+  Tcl_HashSearch search;
+
+  if (!HASHP(ht)) Err("hash-table-for-each: bad hash table", ht);
+  if (STk_procedurep(proc)==Ntruth) Err("hash-table-for-each: bad procedure", proc);
+  
+  for (entry = Tcl_FirstHashEntry(HASH_H(ht), &search);
+       entry;
+       entry = Tcl_NextHashEntry(&search)) {
+
+    switch (HASH_TYPE(ht)) {
+      case hash_eq:
+	Apply(proc, LIST2((SCM) Tcl_GetHashKey(HASH_H(ht), entry),
+			  (SCM) Tcl_GetHashValue(entry)));
+	break;
+      case hash_string:
+	{ 
+	  char *s = Tcl_GetHashKey(HASH_H(ht), entry);
+	
+	  Apply(proc, LIST2(STk_makestring(s), (SCM) Tcl_GetHashValue(entry)));
+	}
+	break;
+      case hash_comp: 
+	{
+	  SCM val;  
+	  
+	  for (val=(SCM) Tcl_GetHashValue(entry); !NULLP(val); val = CDR(val))
+	    Apply(proc, LIST2(CAR(CAR(val)), CDR(CAR(val))));
+	}
+    }
+  }
+  return UNDEFINED;
+}
+
+static PRIMITIVE hash_table_map(SCM ht, SCM proc)
+{
+  Tcl_HashEntry *entry;
+  Tcl_HashSearch search;
+  SCM result = NIL;
+
+  if (!HASHP(ht)) Err("hash-table-map: bad hash table", ht);
+  if (STk_procedurep(proc)==Ntruth) Err("hash-table-map: bad procedure", proc);
+  
+  for (entry = Tcl_FirstHashEntry(HASH_H(ht), &search);
+       entry;
+       entry = Tcl_NextHashEntry(&search)) {
+    
+    switch (HASH_TYPE(ht)) {
+      case hash_eq:
+	result = Cons(Apply(proc, LIST2((SCM)Tcl_GetHashKey(HASH_H(ht), entry),
+					(SCM) Tcl_GetHashValue(entry))),
+		      result);
+	break;
+      case hash_string:
+	{ 
+	  char *s = Tcl_GetHashKey(HASH_H(ht), entry);
+	
+	  result = Cons(Apply(proc, LIST2(STk_makestring(s), 
+					  (SCM) Tcl_GetHashValue(entry))),
+			result);
+	}
+	break;
+      case hash_comp: 
+	{
+	  SCM val;  
+	  
+	  for (val=(SCM) Tcl_GetHashValue(entry); !NULLP(val); val = CDR(val))
+	    result = Cons(Apply(proc, LIST2(CAR(CAR(val)), CDR(CAR(val)))), 
+			  result);
+	}
+    }
+  }
+  return result;
+}
+
+static PRIMITIVE hash_table_stats(SCM ht)
+{
+  Tcl_HashSearch search;
+  char *s;
+
+  if (!HASHP(ht)) Err("hash-table-stats: bad hash table", ht);
+
+  /* 
+   * There is a bug in the Tcl/hash module. Tcl_HashStats makes a division by 0 
+   * if the hash table is empty.
+   */
+  if (Tcl_FirstHashEntry(HASH_H(ht), &search)) {
+    s = Tcl_HashStats(HASH_H(ht));
+    fprintf(STk_stderr, "%s\n", s);
+    free(s);
+  }
+  else 
+    fprintf(STk_stderr, "Empty hash table\n");
+  return UNDEFINED;
+}
+
+
+static void free_hash_table(SCM ht)
+{
+  Tcl_DeleteHashTable(HASH_H(ht));
+  free(HASH_H(ht));
+  free(HASH(ht));
+}
+
+
+static void mark_hash_table(SCM ht)
+{
+  Tcl_HashEntry *entry;
+  Tcl_HashSearch search;
+
+  /* Mark information stored in the hash structure */
+  STk_gc_mark(HASH_COMP(ht));
+  STk_gc_mark(HASH_SXHASH(ht));
+
+  /* Mark the content of the Tcl hash table */
+  for (entry = Tcl_FirstHashEntry(HASH_H(ht), &search);
+       entry;
+       entry = Tcl_NextHashEntry(&search)) {
+
+    /* The only cas where the must be marked is if the hash table is
+     * an eq? one. In effect,
+     *    hash_eq table: the key is in the Tcl key field and must be marked
+     *    hash_string table: Tcl hashtable has made a copy in the entry
+     *    hash_comp: the key is in the value field which will be always marked
+     */
+    if (HASH_TYPE(ht) == hash_eq)
+      STk_gc_mark((SCM) Tcl_GetHashKey(HASH_H(ht), entry));
+    
+    /* and mark the value in all cases */
+    STk_gc_mark((SCM) Tcl_GetHashValue(entry));
+  }
+}
+
+
+/******************************************************************************/
+
+PRIMITIVE STk_init_hash(void)
+{
+  tc_hash = STk_add_new_type(&hash_table_type);
+
+  STk_add_new_primitive("make-hash-table",     tc_lsubr,       make_hash_table);
+  STk_add_new_primitive("hash-table?",	       tc_subr_1,      hash_table_p);
+  STk_add_new_primitive("hash-table-hash",     tc_subr_1,      hash_table_hash);
+  STk_add_new_primitive("hash-table-put!",     tc_subr_3,      hash_table_put);
+  STk_add_new_primitive("hash-table-get",      tc_subr_2_or_3, hash_table_get);
+  STk_add_new_primitive("hash-table-remove!",  tc_subr_2,      hash_table_remove);
+  STk_add_new_primitive("hash-table-for-each", tc_subr_2,      hash_table_for_each);
+  STk_add_new_primitive("hash-table-map",      tc_subr_2,      hash_table_map);
+  STk_add_new_primitive("hash-table-stats",    tc_subr_1,      hash_table_stats);
+  return UNDEFINED;
+}
diff --git a/Extensions/html.c b/Extensions/html.c
new file mode 100644
index 0000000..4535ec7
--- /dev/null
+++ b/Extensions/html.c
@@ -0,0 +1,196 @@
+/*
+ *
+ * h t m l . c			-- Html support for STk
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date:  1-Sep-1995 23:10
+ * Last file update: 16-Jun-1996 20:47
+ */
+
+#include <ctype.h>
+#include "stk.h"
+struct char_type {
+  char *name;
+  unsigned char c;
+};
+
+static struct char_type table [] = {
+  {"lt",    	'<'},  	 {"gt",    	'>'},    {"amp",	'&'},  
+  {"quot",	'"'},    
+  {"nbsp",	'\xa0'}, {"iexcl",	'\xa1'}, {"cent",	'\xa2'}, 
+  {"pound",	'\xa3'}, {"curren",	'\xa4'}, {"yen",	'\xa5'},
+  {"brvbar",	'\xa6'}, {"sect",	'\xa7'}, {"uml",	'\xa8'},
+  {"copy",	'\xa9'}, {"ordf",	'\xaa'}, {"laquo",	'\xab'},
+  {"not",	'\xac'}, {"shy",	'\xad'}, {"reg",	'\xae'},
+  {"hibar",	'\xaf'}, {"deg",	'\xb0'}, {"plusmn",	'\xb1'},
+  {"sup2",	'\xb2'}, {"sup3",	'\xb3'}, {"acute",	'\xb4'},
+  {"micro",	'\xb5'}, {"para",	'\xb6'}, {"middot",	'\xb7'},
+  {"cedil",	'\xb8'}, {"sup1",	'\xb9'}, {"ordm",	'\xba'},
+  {"raquo",	'\xbb'}, {"frac14",	'\xbc'}, {"frac12",	'\xbd'},
+  {"frac34",	'\xbe'}, {"iquest",	'\xbf'}, {"Agrave",	'\xc0'},
+  {"Aacute",	'\xc1'}, {"Acirc",	'\xc2'}, {"Atilde",	'\xc3'},
+  {"Auml",	'\xc4'}, {"Aring",	'\xc5'}, {"AElig",	'\xc6'},
+  {"Ccedil",	'\xc7'}, {"Egrave",	'\xc8'}, {"Eacute",	'\xc9'},
+  {"Ecirc",	'\xca'}, {"Euml",	'\xcb'}, {"Igrave",	'\xcc'},
+  {"Iacute",	'\xcd'}, {"Icirc",	'\xce'}, {"Iuml",	'\xcf'},
+  {"ETH",	'\xd0'}, {"Ntilde",	'\xd1'}, {"Ograve",	'\xd2'},
+  {"Oacute",	'\xd3'}, {"Ocirc",	'\xd4'}, {"Otilde",	'\xd5'},
+  {"Ouml",	'\xd6'}, {"times",	'\xd7'}, {"Oslash",	'\xd8'},
+  {"Ugrave",	'\xd9'}, {"Uacute",	'\xda'}, {"Ucirc",	'\xdb'},
+  {"Uuml",	'\xdc'}, {"Yacute",	'\xdd'}, {"THORN",	'\xde'},
+  {"szlig",	'\xdf'}, {"agrave",	'\xe0'}, {"aacute",	'\xe1'},
+  {"acirc",	'\xe2'}, {"atilde",	'\xe3'}, {"auml",	'\xe4'},
+  {"aring",	'\xe5'}, {"aelig",	'\xe6'}, {"ccedil",	'\xe7'},
+  {"egrave",	'\xe8'}, {"eacute",	'\xe9'}, {"ecirc",	'\xea'},
+  {"euml",	'\xeb'}, {"igrave",	'\xec'}, {"iacute",	'\xed'},
+  {"icirc",	'\xee'}, {"iuml",	'\xef'}, {"eth",	'\xf0'},
+  {"ntilde",	'\xf1'}, {"ograve",	'\xf2'}, {"oacute",	'\xf3'},
+  {"ocirc",	'\xf4'}, {"otilde",	'\xf5'}, {"ouml",	'\xf6'},
+  {"divide",	'\xf7'}, {"oslash",	'\xf8'}, {"ugrave",	'\xf9'},
+  {"uacute",	'\xfa'}, {"ucirc",	'\xfb'}, {"uuml",	'\xfc'},
+  {"yacute",	'\xfd'}, {"thorn",	'\xfe'}, {"yuml",	'\xff'},
+  {"", 0}};
+
+static void skip_spaces(FILE *f)
+{
+    int	c;
+
+    for (;;) {
+      c = Getc(f);
+      if (c == EOF) break;
+      if (!isspace(c)) {
+	Ungetc(c, f);
+	break;
+      }
+    }
+}
+    
+static PRIMITIVE STk_html_next_token(SCM iport)
+{
+  /* Return next HTML token */
+  char ch, *t, token[256];
+  int c;
+  Tcl_DString dStr1, dStr2;
+  SCM z;
+  FILE *f;
+
+  if (!INP(iport)) Err("%Html:next-token: bad port", iport);
+
+  f = PORT_FILE(iport);
+
+  if (Eof(f) || ((c = Getc(f)) == EOF)) return STk_eof_object;
+
+  Tcl_DStringInit(&dStr1);   Tcl_DStringInit(&dStr2);
+  
+  if (c == '<') {
+    skip_spaces(f);
+    while ((c = Getc(f)) != EOF && (c != '>') && (c != ' ') && (c != '\t')) {
+      ch = tolower(c);
+      Tcl_DStringAppend(&dStr1, &ch, 1);
+    } 
+    if (c == ' ' || c == '\t') {
+      /* Read the argument */
+      skip_spaces(f);
+      while ((c = Getc(f)) != EOF && (c != '>')) {
+	ch = c;
+	Tcl_DStringAppend(&dStr2, &ch, 1);
+      } 
+    }
+    
+    if (Tcl_DStringValue(&dStr1)[0] == '\0') 
+      z = STk_makestring("<>");
+    else 
+      if (Tcl_DStringValue(&dStr1)[0]=='/' && Tcl_DStringValue(&dStr1)[1] == '\0')
+	z = STk_makestring("</>"); 
+      else
+	z = Cons(STk_makestring(Tcl_DStringValue(&dStr1)),
+		 STk_makestring(Tcl_DStringValue(&dStr2)));
+  }
+  else {
+    if (c == '&') {
+      t = token;
+      while ((c = Getc(f)) != EOF && c != ';' && isalpha(c)) *t++ = c;
+      *t = 0;
+      
+      if (c != ';') Ungetc(c, f);
+      
+      /* Search the given token in the translation table */
+      {
+	int i;
+
+	for (i = 0; table[i].c; i++)
+	  if (strcmp(token, table[i].name) == 0) {
+	    Tcl_DStringAppend(&dStr1, &table[i].c, 1);
+	    break;
+	  }
+	if (!table[i].c)  /* Not found */ Tcl_DStringAppend(&dStr1, token, -1);
+      }
+    } 
+    else {
+      do {
+	if (c == '<' || c == '&') {
+	  Ungetc(c, f);
+	  break;
+	}
+	ch = c;
+	Tcl_DStringAppend(&dStr1, &ch, 1);
+      } 
+      while ((c = Getc(f)) != EOF);
+    }
+    z = STk_makestring(Tcl_DStringValue(&dStr1));
+  }
+
+  Tcl_DStringFree(&dStr1); Tcl_DStringFree(&dStr2);
+  return z;
+}
+
+
+static PRIMITIVE STk_html_clean_spaces(SCM str, SCM ignore_spaces)
+{
+  Tcl_DString dString;
+  char c, *s;
+  int only_spaces = TRUE;
+  SCM z;
+  
+  if (!STRINGP(str)) Err("%html:clean-spaces: bad string", str);
+
+  Tcl_DStringInit(&dString);
+  for (s = CHARS(str); c = *s; s++) {
+    if (c == ' ' || c == '\n' || c == '\t' || c == '\r') {
+      if (ignore_spaces == Ntruth) {
+	Tcl_DStringAppend(&dString, " ", 1);
+	ignore_spaces = Truth;
+      }
+    }
+    else {
+      Tcl_DStringAppend(&dString, &c, 1);
+      only_spaces = FALSE;
+      ignore_spaces = Ntruth;
+    }
+  }
+  z = Cons(STk_makestring(Tcl_DStringValue(&dString)),
+	   only_spaces ? Truth: Ntruth);
+  Tcl_DStringFree(&dString);
+
+  return z;
+}
+
+PRIMITIVE STk_init_html(void)
+{
+  STk_add_new_primitive("%html:clean-spaces",  tc_subr_2,  STk_html_clean_spaces);
+  STk_add_new_primitive("%html:next-token",    tc_subr_1,  STk_html_next_token);
+  return UNDEFINED;
+}
diff --git a/Extensions/pixmap.c b/Extensions/pixmap.c
new file mode 100644
index 0000000..a597f88
--- /dev/null
+++ b/Extensions/pixmap.c
@@ -0,0 +1,1375 @@
+/* 
+ * tixImgXpm.c --
+ *
+ *	This file implements images of type "pixmap" for Tix.
+ *
+ * Copyright statement for tixImgXpm.c
+ *        Copyright 1996 Ioi Kim Lam
+ *
+ * The following terms apply only to this file and no other parts of the
+ * Tix library.
+ *
+ *  Permission is hereby granted, without written agreement and
+ *  without license or royalty fees, to use, copy, modify, and
+ *  distribute this file, for any purpose, provided that existing
+ *  copyright notices are retained in all copies and that this
+ *  notice is included verbatim in any distributions.
+ *
+ * DISCLAIMER OF ALL WARRANTIES
+ *
+ *  IN NO EVENT SHALL THE AUTHOR OF THIS SOFTWARE BE LIABLE TO ANY PARTY
+ *  FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ *  ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
+ *  IF THE AUTHOR OF THIS SOFTWARE HAS BEEN ADVISED OF THE POSSIBILITY OF
+ *  SUCH DAMAGE.
+ *
+ *  THE AUTHOR OF THIS SOFTWARE SPECIFICALLY DISCLAIMS ANY WARRANTIES,
+ *  INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ *  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE
+ *  PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND THE AUTHOR OF THIS
+ *  SOFTWARE HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES,
+ *  ENHANCEMENTS, OR MODIFICATIONS.
+ *  ___________________________________________________________________
+ *
+ *
+ * This file is adapted from the Tk 4.0 source file tkImgBmap.c
+ * Original tkImgBmap.c copyright information
+ *   Copyright (c) 1994 The Regents of the University of California.
+ *   Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ *   See the file "license.terms.tcltk" for information
+ *   on usage and redistribution of the original tkImgBmap.c file, and for 
+ *   a DISCLAIMER OF ALL WARRANTIES from the authors of tkImgBmap.c.
+ */
+#ifdef USE_TK
+#ifdef STk_CODE
+#  include <stk.h>
+#endif
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The following data structure represents the master for a pixmap
+ * image:
+ */
+
+typedef struct PixmapMaster {
+    Tk_ImageMaster tkMaster;	/* Tk's token for image master.  NULL means
+				 * the image is being deleted. */
+    Tcl_Interp *interp;		/* Interpreter for application that is
+				 * using image. */
+    Tcl_Command imageCmd;	/* Token for image command (used to delete
+				 * it when the image goes away).  NULL means
+				 * the image command has already been
+				 * deleted. */
+    char *fileString;		/* Value of -file option (malloc'ed).
+				 * valid only if the -file option is specified
+				 */
+    char *dataString;		/* Value of -data option (malloc'ed).
+				 * valid only if the -data option is specified
+				 */
+				/* First in list of all instances associated
+				 * with this master. */
+    Tk_Uid id;			/* ID's for XPM data already compiled
+				 * into the tixwish binary */
+    int size[2];		/* width and height */
+    int ncolors;		/* number of colors */
+    int cpp;			/* characters per pixel */
+    char ** data;		/* The data that defines this pixmap 
+				 * image (array of strings). It is
+				 * converted into an X Pixmap when this
+				 * image is instanciated
+				 */
+    int isDataAlloced;		/* False iff the data is got from
+				 * the -id switch */
+    struct PixmapInstance *instancePtr;
+} PixmapMaster;
+
+/* Make this more portable */
+
+typedef struct ColorStruct {
+    char c;			/* This is used if CPP is one */
+    char * cstring;		/* This is used if CPP is bigger than one */
+    XColor * colorPtr;
+} ColorStruct;
+
+/*
+ * The following data structure represents all of the instances of an
+ * image that lie within a particular window:
+ *
+ * %% ToDo
+ * Currently one instance is created for each window that uses this pixmap.
+ * This is usually OK because pixmaps are usually not shared or only shared by
+ * a small number of windows. To improve resource allocation, we can
+ * create an instance for each (Display x Visual x Depth) combo. This will
+ * usually reduce the number of instances to one.
+ */
+typedef struct PixmapInstance {
+    int refCount;		/* Number of instances that share this
+				 * data structure. */
+    PixmapMaster *masterPtr;	/* Pointer to master for image. */
+    Tk_Window tkwin;		/* Window in which the instances will be
+				 * displayed. */
+    Pixmap pixmap;		/* The pixmap to display. */
+    Pixmap mask;		/* Mask: only display pixmap pixels where
+				 * there are 1's here. */
+    GC gc;			/* Graphics context for displaying pixmap.
+				 * None means there was an error while
+				 * setting up the instance, so it cannot
+				 * be displayed. */
+    struct PixmapInstance *nextPtr;
+				/* Next in list of all instance structures
+				 * associated with masterPtr (NULL means
+				 * end of list).
+				 */
+    ColorStruct * colors;
+} PixmapInstance;
+
+/*
+ * The type record for pixmap images:
+ */
+
+static int		ImgXpmCreate _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int argc, char **argv,
+			    Tk_ImageType *typePtr, Tk_ImageMaster master,
+			    ClientData *clientDataPtr));
+static ClientData	ImgXpmGet _ANSI_ARGS_((Tk_Window tkwin,
+			    ClientData clientData));
+static void		ImgXpmDisplay _ANSI_ARGS_((ClientData clientData,
+			    Display *display, Drawable drawable, 
+			    int imageX, int imageY, int width, int height,
+			    int drawableX, int drawableY));
+static void		ImgXpmFree _ANSI_ARGS_((ClientData clientData,
+			    Display *display));
+static void		ImgXpmDelete _ANSI_ARGS_((ClientData clientData));
+
+Tk_ImageType tixPixmapImageType = {
+    "pixmap",			/* name */
+    ImgXpmCreate,		/* createProc */
+    ImgXpmGet,			/* getProc */
+    ImgXpmDisplay,		/* displayProc */
+    ImgXpmFree,			/* freeProc */
+    ImgXpmDelete,		/* deleteProc */
+    (Tk_ImageType *) NULL	/* nextPtr */
+};
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_STRING, "-data", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(PixmapMaster, dataString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-file", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(PixmapMaster, fileString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-id", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(PixmapMaster, id), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures used only locally in this file:
+ */
+static int		ImgXpmCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		ImgXpmCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		ImgXpmConfigureInstance _ANSI_ARGS_((
+			    PixmapInstance *instancePtr));
+static int		ImgXpmConfigureMaster _ANSI_ARGS_((
+			    PixmapMaster *masterPtr, int argc, char **argv,
+			    int flags));
+static int		ImgXpmGetData _ANSI_ARGS_((Tcl_Interp *interp,
+			    PixmapMaster *masterPtr));
+static char ** 		ImgXpmGetDataFromFile _ANSI_ARGS_((Tcl_Interp * interp,
+			    char * string, int * numLines_return));
+static char ** 		ImgXpmGetDataFromId _ANSI_ARGS_((Tcl_Interp * interp,
+			    char * id));
+static char ** 		ImgXpmGetDataFromString _ANSI_ARGS_((Tcl_Interp*interp,
+			    char * string, int * numLines_return));
+static int 		ImgXpmGetPixmapFromData _ANSI_ARGS_((
+			    Tcl_Interp * interp,
+			    PixmapMaster *masterPtr,
+			    PixmapInstance *instancePtr));
+
+/* Local data, used only in this file */
+static Tcl_HashTable xpmTable;
+static int xpmTableInited = 0;
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmCreate --
+ *
+ *	This procedure is called by the Tk image code to create "pixmap"
+ *	images.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	The data structure for a new image is allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+static int
+ImgXpmCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
+    Tcl_Interp *interp;		/* Interpreter for application containing
+				 * image. */
+    char *name;			/* Name to use for image. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings for options (doesn't
+				 * include image name or type). */
+    Tk_ImageType *typePtr;	/* Pointer to our type record (not used). */
+    Tk_ImageMaster master;	/* Token for image, to be used by us in
+				 * later callbacks. */
+    ClientData *clientDataPtr;	/* Store manager's token for image here;
+				 * it will be returned in later callbacks. */
+{
+    PixmapMaster *masterPtr;
+
+    masterPtr = (PixmapMaster *) ckalloc(sizeof(PixmapMaster));
+    masterPtr->tkMaster = master;
+    masterPtr->interp = interp;
+    masterPtr->imageCmd = Tcl_CreateCommand(interp, name, ImgXpmCmd,
+	    (ClientData) masterPtr, ImgXpmCmdDeletedProc);
+
+    masterPtr->fileString = NULL;
+    masterPtr->dataString = NULL;
+    masterPtr->id = NULL;
+    masterPtr->data = NULL;
+    masterPtr->isDataAlloced = 0;
+    masterPtr->instancePtr = NULL;
+
+    if (ImgXpmConfigureMaster(masterPtr, argc, argv, 0) != TCL_OK) {
+	ImgXpmDelete((ClientData) masterPtr);
+	return TCL_ERROR;
+    }
+    *clientDataPtr = (ClientData) masterPtr;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmConfigureMaster --
+ *
+ *	This procedure is called when a pixmap image is created or
+ *	reconfigured.  It process configuration options and resets
+ *	any instances of the image.
+ *
+ * Results:
+ *	A standard Tcl return value.  If TCL_ERROR is returned then
+ *	an error message is left in masterPtr->interp->result.
+ *
+ * Side effects:
+ *	Existing instances of the image will be redisplayed to match
+ *	the new configuration options.
+ *
+ *	If any error occurs, the state of *masterPtr is restored to
+ *	previous state.
+ *
+ *----------------------------------------------------------------------
+ */
+static int
+ImgXpmConfigureMaster(masterPtr, argc, argv, flags)
+    PixmapMaster *masterPtr;	/* Pointer to data structure describing
+				 * overall pixmap image to (reconfigure). */
+    int argc;			/* Number of entries in argv. */
+    char **argv;		/* Pairs of configuration options for image. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget,
+				 * such as TK_CONFIG_ARGV_ONLY. */
+{
+    PixmapInstance *instancePtr;
+    char * oldData, * oldFile;
+    Tk_Uid oldId;
+
+    oldData = masterPtr->dataString;
+    oldFile = masterPtr->fileString;
+    oldId   = masterPtr->id;
+
+    if (Tk_ConfigureWidget(masterPtr->interp, Tk_MainWindow(masterPtr->interp),
+	    configSpecs, argc, argv, (char *) masterPtr, flags)
+	    != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    if (masterPtr->id != NULL ||
+	masterPtr->dataString != NULL ||
+	masterPtr->fileString != NULL) {
+	if (ImgXpmGetData(masterPtr->interp, masterPtr) != TCL_OK) {
+	    goto error;
+	}
+    } else {
+	Tcl_AppendResult(masterPtr->interp,
+	    "must specify one of -data, -file or -id", NULL);
+	goto error;
+    }
+
+    /*
+     * Cycle through all of the instances of this image, regenerating
+     * the information for each instance.  Then force the image to be
+     * redisplayed everywhere that it is used.
+     */
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	instancePtr = instancePtr->nextPtr) {
+	ImgXpmConfigureInstance(instancePtr);
+    }
+
+    if (masterPtr->data) {
+	Tk_ImageChanged(masterPtr->tkMaster, 0, 0,
+	    masterPtr->size[0], masterPtr->size[1],
+	    masterPtr->size[0], masterPtr->size[1]);
+    } else {
+	Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, 0, 0);
+    }
+
+  done:
+    return TCL_OK;
+
+  error:
+    /* Restore it to the original (possible valid) mode */
+    masterPtr->dataString = oldData;
+    masterPtr->fileString = oldFile;
+    masterPtr->id = oldId;
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmGetData --
+ *
+ *	Given a file name or ASCII string, this procedure parses the
+ *	file or string contents to produce binary data for a pixmap.
+ *
+ * Results:
+ *	If the pixmap description was parsed successfully then the data
+ *	is read into an array of strings. This array will later be used
+ *	to create X Pixmaps for each instance.
+ *
+ * Side effects:
+ *	The masterPtr->data array is allocated when successful. Contents of
+ *	*masterPtr is changed only when successful.
+ *----------------------------------------------------------------------
+ */
+static int
+ImgXpmGetData(interp, masterPtr)
+    Tcl_Interp *interp;			/* For reporting errors. */
+    PixmapMaster *masterPtr;
+{
+    char ** data;
+    int  isAllocated;			/* do we need to free "data"? */
+    int listArgc;
+    char ** listArgv = NULL;
+    int numLines;
+    int size[2];
+    int cpp;
+    int ncolors;
+
+    if (masterPtr->id != NULL) {
+	data = ImgXpmGetDataFromId(interp, masterPtr->id);
+	isAllocated = 0;
+    }
+    else if (masterPtr->fileString != NULL) {
+	data = ImgXpmGetDataFromFile(interp, masterPtr->fileString, &numLines);
+	isAllocated = 1;
+    }
+    else if (masterPtr->dataString != NULL) {
+	data = ImgXpmGetDataFromString(interp,masterPtr->dataString,&numLines);
+	isAllocated = 1;
+    }
+    else {
+	/* Should have been enforced by ImgXpmConfigureMaster() */
+	panic("ImgXpmGetData(): -data, -file and -id are all NULL");
+    }
+
+    if (data == NULL) {
+	return TCL_ERROR;
+    }
+
+    /* Parse the first line of the data and get info about this pixmap */
+    if (Tcl_SplitList(interp, data[0], &listArgc, &listArgv) != TCL_OK) {
+	goto error;
+    }
+
+    if (listArgc < 4) {
+	Tcl_AppendResult(interp, "File format error", NULL);
+	goto error;
+    }
+
+    if (Tcl_GetInt(interp, listArgv[0], &size[0]) != TCL_OK) {
+	goto error;
+    }
+    if (Tcl_GetInt(interp, listArgv[1], &size[1]) != TCL_OK) {
+	goto error;
+    }
+    if (Tcl_GetInt(interp, listArgv[2], &ncolors) != TCL_OK) {
+	goto error;
+    }
+    if (Tcl_GetInt(interp, listArgv[3], &cpp) != TCL_OK) {
+	goto error;
+    }
+
+    if (isAllocated) {
+	if (numLines != size[1] + ncolors + 1) {
+	    /* the number of lines read from the file/data
+	     * is not the same as specified in the data
+	     */
+	    goto error;
+	}
+    }
+
+  done:
+    if (masterPtr->isDataAlloced && masterPtr->data) {
+	ckfree((char*)masterPtr->data);
+    }
+    masterPtr->isDataAlloced = isAllocated;
+    masterPtr->data = data;
+    masterPtr->size[0] = size[0];
+    masterPtr->size[1] = size[1];
+    masterPtr->cpp = cpp;
+    masterPtr->ncolors = ncolors;
+    
+    return TCL_OK;
+
+  error:
+    Tcl_ResetResult(interp);
+    Tcl_AppendResult(interp, "File format error", NULL);
+
+    if (isAllocated && data) {
+	ckfree((char*)data);
+    }
+    if (listArgv) {
+	ckfree((char*)listArgv);
+    }
+		   
+    return TCL_ERROR;
+}
+
+static char ** ImgXpmGetDataFromId(interp, id)
+    Tcl_Interp * interp;
+    char * id;
+{
+    Tcl_HashEntry * hashPtr;
+
+    if (xpmTableInited == 0) {
+	hashPtr = NULL;
+    } else {
+	hashPtr = Tcl_FindHashEntry(&xpmTable, id);
+    }
+
+    if (hashPtr == NULL) {
+	Tcl_AppendResult(interp, "unknown pixmap ID \"", id,
+	    "\"", NULL);
+	return (char**)NULL;
+    } else {
+	return (char**)Tcl_GetHashValue(hashPtr);
+    }
+}
+
+static char ** ImgXpmGetDataFromString(interp, string, numLines_return)
+    Tcl_Interp * interp;
+    char * string;
+    int * numLines_return;
+{
+    int skipped;
+    int quoated;
+    char * p, * list;
+    int numLines;
+    char ** data;
+
+    /* skip the leading blanks (leading blanks are not defined in the
+     * the XPM definition, but skipping them shouldn't hurt. Also, the ability
+     * to skip the leading blanks is good for using in-line XPM data in TCL
+     * scripts
+     */
+    while (isspace(*string)) {
+	++ string;
+    }
+
+    /* parse the header */
+    if (strncmp("/* XPM ", string, 7) != 0) {
+	goto error;
+    }
+    /* skip the first two lines */
+    for (skipped=0,p=string;;) {
+	while (*p && *p != '\n') {
+	    ++ p;
+	}
+	if (*p) {
+	    ++ p;
+	    ++ skipped;
+	} else {
+	    goto error;
+	}
+	if (skipped == 2) {
+	    break;
+	}
+    }
+
+    /* Change the buffer in to a proper TCL list */
+    quoated = 0;
+    list = p;
+    while (*p) {
+	if (quoated) {
+	    if (*p == '"') {
+		quoated = 1;
+	    }
+	    ++ p;
+	}
+	else {
+	    if (*p == '/' && *(p+1) == '*') {
+		/*
+		 * Skip comments
+		 */
+		*p++ = ' ';
+		*p++ = ' ';
+		while (1) {
+		    if (*p == 0) {
+			break;
+		    }
+		    if (*p == '*' && *(p+1) == '/') {
+			*p++ = ' ';
+			*p++ = ' ';
+			break;
+		    }
+		    *p++ = ' ';
+		}
+	    }
+
+	    if (*p == '"') {
+		quoated = 0;
+		++ p;
+		continue;
+	    }
+	    if (*p == '\r') {
+		*p = ' ';
+	    }
+	    else if (*p == '\n') {
+		*p = ' ';
+	    }
+	    else if (*p == ',') {
+		*p = ' ';
+	    }
+	    else if (*p == '}') {
+		*p = 0;
+		break;
+	    }
+	    ++p;
+	}
+    }
+
+    /* The following code depends on the fact that Tcl_SplitList
+     * strips away double quoates inside a list: ie:
+     * if string == "\"1\" \"2\"" then
+     *		list[0] = "1"
+     *		list[1] = "2"
+     * and NOT
+     *
+     *		list[0] = "\"1\""
+     *		list[1] = "\"2\""
+     */
+    if (Tcl_SplitList(interp, list, &numLines, &data) != TCL_OK) {
+	goto error;
+    } else {
+	if (numLines == 0) {
+	    /* error: empty data? */
+	    if (data != NULL) {
+		ckfree((char*)data);
+		goto error;
+	    }
+	}
+	* numLines_return = numLines;
+	return data;
+    }
+
+  error:
+    Tcl_AppendResult(interp, "File format error", NULL);
+    return (char**) NULL;
+}
+
+static char ** ImgXpmGetDataFromFile(interp, fileName, numLines_return)
+    Tcl_Interp * interp;
+    char * fileName;
+    int * numLines_return;
+{
+    int fileId, size;
+    char ** data;
+    struct stat statBuf;
+    char *cmdBuffer = NULL;
+    Tcl_DString buffer;			/* initialized by Tcl_TildeSubst */
+
+    fileName = Tcl_TildeSubst(interp, fileName, &buffer);
+    if (fileName == NULL) {
+	goto error;
+    }
+
+    fileId = open(fileName, O_RDONLY, 0);
+    if (fileId < 0) {
+	Tcl_AppendResult(interp, "couldn't read file \"", fileName,
+		"\": ", Tcl_PosixError(interp), (char *) NULL);
+	goto error;
+    }
+    if (fstat(fileId, &statBuf) == -1) {
+	Tcl_AppendResult(interp, "couldn't stat file \"", fileName,
+		"\": ", Tcl_PosixError(interp), (char *) NULL);
+	close(fileId);
+	goto error;
+    }
+    cmdBuffer = (char *) ckalloc((unsigned) statBuf.st_size+1);
+    size = read(fileId, cmdBuffer, (size_t) statBuf.st_size);
+    if (size < 0) {
+	Tcl_AppendResult(interp, "error in reading file \"", fileName,
+		"\": ", Tcl_PosixError(interp), (char *) NULL);
+	close(fileId);
+	goto error;
+    }
+    if (close(fileId) != 0) {
+	Tcl_AppendResult(interp, "error closing file \"", fileName,
+		"\": ", Tcl_PosixError(interp), (char *) NULL);
+	goto error;
+    }
+    cmdBuffer[size] = 0;
+
+  done:
+    data = ImgXpmGetDataFromString(interp, cmdBuffer, numLines_return);
+    ckfree(cmdBuffer);
+    Tcl_DStringFree(&buffer);
+    return data;
+
+  error:
+    if (cmdBuffer != NULL) {
+	ckfree(cmdBuffer);
+    }
+    Tcl_DStringFree(&buffer);
+    return (char**)NULL;
+}
+
+/*----------------------------------------------------------------------
+ * ImgXpmGetPixmapFromData --
+ *
+ *	Creates a pixmap for an image instance.
+ *----------------------------------------------------------------------
+ */
+static int ImgXpmGetPixmapFromData(interp, masterPtr, instancePtr)
+    Tcl_Interp * interp;
+    PixmapMaster *masterPtr;
+    PixmapInstance *instancePtr;
+{
+    XImage * image = NULL, * mask = NULL;
+    int pad, depth, i, j, k, n, lOffset, isTransp = 0, isMono;
+    int listArgc;
+    char ** listArgv;
+    ColorStruct * colors;
+    GC gc;
+    Display *display = Tk_Display(instancePtr->tkwin);
+
+    depth = Tk_Depth(instancePtr->tkwin);
+    if (depth > 16) {
+	pad = 32;
+    }
+    else if (depth > 8) {
+	pad = 16;
+    }
+    else {
+	pad = 8;
+    }
+
+    switch ((Tk_Visual(instancePtr->tkwin))->class) {
+      case StaticGray:
+      case GrayScale:
+	isMono = 1;
+	break;
+      default:
+	isMono = 0;
+    }
+
+    /*
+     * Create the XImage structures to store the temporary image
+     */
+    image = XCreateImage(display,
+	Tk_Visual(instancePtr->tkwin),
+	depth, ZPixmap, 0, 0,
+	masterPtr->size[0], masterPtr->size[1], pad, 0);
+    image->data =
+      (char *)ckalloc(image->bytes_per_line * masterPtr->size[1]);
+
+    mask  = XCreateImage(display,
+	Tk_Visual(instancePtr->tkwin),
+	1, ZPixmap, 0, 0,
+	masterPtr->size[0], masterPtr->size[1], pad, 0);
+    mask->data =
+      (char *)ckalloc(mask->bytes_per_line  * masterPtr->size[1]);
+
+    /*
+     * Parse the colors
+     */
+    lOffset = 1;
+    colors = (ColorStruct*)ckalloc(sizeof(ColorStruct)*masterPtr->ncolors);
+    listArgv = 0;
+
+    /* Initialize the color structures */
+    for (i=0; i<masterPtr->ncolors; i++) {
+	colors[i].colorPtr = NULL;
+	if (masterPtr->cpp == 1) {
+	    colors[i].c = 0;
+	} else {
+	    colors[i].cstring = (char*)ckalloc(masterPtr->cpp);
+	    colors[i].cstring[0] = 0;
+	}
+    }
+
+    for (i=0; i<masterPtr->ncolors; i++) {
+	char * colorName = NULL;
+
+	if (Tcl_SplitList(interp,
+		masterPtr->data[i+lOffset]+masterPtr->cpp,
+		&listArgc, &listArgv) != TCL_OK) {
+	    colors[i].colorPtr = NULL;
+	    continue;
+	}
+	if (listArgc < 2) {
+	    colors[i].colorPtr = NULL;
+	    continue;
+	}
+	for (j=0; j<listArgc; j+=2) {
+	    /* The symbolic color names are not implemented
+	     */
+	    if (listArgv[j][0] == 'm') {
+		if (isMono) {
+		    if (depth == 1) {
+			colorName = listArgv[j+1];
+			break;
+		    } else if (colorName == NULL) {	/* use as default */
+			colorName = listArgv[j+1];
+			continue;
+		    }
+		}
+	    }
+	    else if (listArgv[j][0] == 'g' && listArgv[j][1] == '4') {
+		if (isMono) {
+		    if (depth == 4) {
+			colorName = listArgv[j+1];
+			break;
+		    } else if (colorName == NULL) {	/* use as default */
+			colorName = listArgv[j+1];
+			continue;
+		    }
+		}
+	    }
+	    else if (listArgv[j][0] == 'g') {
+		if (isMono) {
+		    if (depth > 4) {
+			colorName = listArgv[j+1];
+			break;
+		    } else if (colorName == NULL) {	/* use as default */
+			colorName = listArgv[j+1];
+			continue;
+		    }
+		}
+	    }
+	    else if (listArgv[j][0] == 'c') {
+		if (!isMono || colorName == NULL) {
+		    colorName = listArgv[j+1];
+		    break;
+		}
+	    }
+	}
+	if (colorName == NULL) {
+	    colorName = listArgv[1];
+	}
+
+	if (masterPtr->cpp == 1) {
+	    colors[i].c = masterPtr->data[i+lOffset][0];
+	} else {
+	    strncpy(colors[i].cstring, masterPtr->data[i+lOffset],
+		(size_t)masterPtr->cpp);
+	} 
+
+	if (strcasecmp(listArgv[j+1], "none") != 0) {
+	    colors[i].colorPtr = Tk_GetColor(interp,
+		instancePtr->tkwin, Tk_GetUid(colorName));
+	    if (colors[i].colorPtr == NULL) {
+		colors[i].colorPtr = Tk_GetColor(interp,
+		instancePtr->tkwin, Tk_GetUid("black"));
+	    }
+	}
+	ckfree((char*)listArgv);
+	listArgv = 0;
+    }
+
+    lOffset += masterPtr->ncolors;
+
+    /*
+     * Parse the main body of the image
+     */
+    for (i=0; i<masterPtr->size[1]; i++) {
+	char * p = masterPtr->data[i+lOffset];
+
+	for (j=0; j<masterPtr->size[0]; j++) {
+	    if (masterPtr->cpp == 1) {
+		for (k=0; k<masterPtr->ncolors; k++) {
+		    if (*p == colors[k].c) {
+			if (colors[k].colorPtr != NULL) {
+			    XPutPixel(image, j, i, colors[k].colorPtr->pixel);
+			    XPutPixel(mask,  j, i, 1);
+			} else {
+			    XPutPixel(mask,  j, i, 0);
+			    isTransp = 1;
+			}
+			break;
+		    }
+		}
+		if (*p) {
+		    p++;
+		}
+	    } else {
+		for (k=0; k<masterPtr->ncolors; k++) {
+		    if (strncmp(p, colors[k].cstring, 
+			    (size_t)masterPtr->cpp) == 0) {
+			if (colors[k].colorPtr != NULL) {
+			    XPutPixel(image, j, i, colors[k].colorPtr->pixel);
+			    XPutPixel(mask,  j, i, 1);
+			} else {
+			    XPutPixel(mask,  j, i, 0);
+			    isTransp = 1;
+			}
+			break;
+		    }
+		}
+		for (k=0; *p && k<masterPtr->cpp; k++) {
+		    p++;
+		}
+	    }
+	}
+    }
+
+    /*
+     * Create the pixmap(s) from the XImage structure. The mask is created
+     * only if needed (i.e., there is at least one transparent pixel)
+     */
+    instancePtr->colors = colors;
+
+    /* main image */
+    instancePtr->pixmap = Tk_GetPixmap(display,
+	Tk_WindowId(instancePtr->tkwin),
+	masterPtr->size[0], masterPtr->size[1], depth);
+
+    gc = Tk_GetGC(instancePtr->tkwin, 0, NULL);
+    XPutImage(display, instancePtr->pixmap,
+	gc, image, 0, 0, 0, 0, masterPtr->size[0], masterPtr->size[1]);
+    Tk_FreeGC(display, gc);
+
+    /* mask, if necessary */
+    if (isTransp) {
+	instancePtr->mask = Tk_GetPixmap(display,
+	    Tk_WindowId(instancePtr->tkwin),
+	    masterPtr->size[0], masterPtr->size[1], 1);
+	gc = XCreateGC(display, instancePtr->mask, 0, NULL);
+	XPutImage(display, instancePtr->mask,
+	    gc, mask,  0, 0, 0, 0, masterPtr->size[0], masterPtr->size[1]);
+	XFreeGC(display, gc);
+    } else {
+	instancePtr->mask = None;
+    }
+
+    /* Done */
+    if (image) {
+	ckfree((char*)image->data);
+	image->data = NULL;
+	XDestroyImage(image);
+    }
+    if (mask) {
+	ckfree((char*)mask->data);
+	mask->data = NULL;
+	XDestroyImage(mask);
+    }
+
+    if (listArgv) {
+	ckfree((char*)listArgv);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmConfigureInstance --
+ *
+ *	This procedure is called to create displaying information for
+ *	a pixmap image instance based on the configuration information
+ *	in the master.  It is invoked both when new instances are
+ *	created and when the master is reconfigured.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Generates errors via Tk_BackgroundError if there are problems
+ *	in setting up the instance.
+ *
+ *----------------------------------------------------------------------
+ */
+static void
+ImgXpmConfigureInstance(instancePtr)
+    PixmapInstance *instancePtr;	/* Instance to reconfigure. */
+{
+    PixmapMaster *masterPtr = instancePtr->masterPtr;
+    int xpmCode;
+    XGCValues gcValues;
+    GC gc;
+    unsigned int gcMask;
+
+    if (instancePtr->pixmap != None) {
+	XFreePixmap(Tk_Display(instancePtr->tkwin), instancePtr->pixmap);
+    }
+    if (instancePtr->mask != None) {
+	XFreePixmap(Tk_Display(instancePtr->tkwin), instancePtr->mask);
+    }
+
+    if (instancePtr->colors != NULL) {
+	int i;
+	for (i=0; i<masterPtr->ncolors; i++) {
+	    if (instancePtr->colors[i].colorPtr != NULL) {
+		Tk_FreeColor(instancePtr->colors[i].colorPtr);
+	    }
+	    if (masterPtr->cpp != 1) {
+		ckfree(instancePtr->colors[i].cstring);
+	    }
+	}
+	ckfree((char*)instancePtr->colors);
+    }
+
+    if (Tk_WindowId(instancePtr->tkwin) == None) {
+	Tk_MakeWindowExist(instancePtr->tkwin);
+    }
+
+    /* Assumption: masterPtr->data is always non NULL (enfored by
+     * ImgXpmConfigureMaster()). Also, the data must be in a valid
+     * format (partially enforced by ImgXpmConfigureMaster(), see comments
+     * inside that function).
+     */
+    ImgXpmGetPixmapFromData(masterPtr->interp, masterPtr, instancePtr);
+
+    /* Allocate a GC for drawing this instance (mask is not used if there
+     * is no transparent pixels inside the image).*/
+    if (instancePtr->mask != None) {
+	gcMask = GCGraphicsExposures|GCClipMask;
+    } else {
+	gcMask = GCGraphicsExposures;
+    }
+    gcValues.graphics_exposures = False;
+    gcValues.clip_mask = instancePtr->mask;
+    
+    gc = Tk_GetGC(instancePtr->tkwin, gcMask, &gcValues);
+
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(Tk_Display(instancePtr->tkwin), instancePtr->gc);
+    }
+    instancePtr->gc = gc;
+    return;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ImgXpmCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to an image managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ImgXpmCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about button widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    PixmapMaster *masterPtr = (PixmapMaster *) clientData;
+    int c, code;
+    size_t length;
+
+    if (argc < 2) {
+	sprintf(interp->result,
+	    "wrong # args: should be \"%.50s option ?arg arg ...?\"",
+	    argv[0]);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return Tk_ConfigureValue(interp, Tk_MainWindow(interp), configSpecs,
+		(char *) masterPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    code = Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    code = Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, argv[2], 0);
+	} else {
+	    code = ImgXpmConfigureMaster(masterPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+	return code;
+    }
+
+  error:
+
+    Tcl_AppendResult(interp, "bad option \"", argv[1],
+	"\": must be cget or configure", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmGet --
+ *
+ *	This procedure is called for each use of a pixmap image in a
+ *	widget.
+ *
+ * Results:
+ *	The return value is a token for the instance, which is passed
+ *	back to us in calls to ImgXpmDisplay and ImgXpmFre.
+ *
+ * Side effects:
+ *	A data structure is set up for the instance (or, an existing
+ *	instance is re-used for the new one).
+ *
+ *----------------------------------------------------------------------
+ */
+
+static ClientData
+ImgXpmGet(tkwin, masterData)
+    Tk_Window tkwin;		/* Window in which the instance will be
+				 * used. */
+    ClientData masterData;	/* Pointer to our master structure for the
+				 * image. */
+{
+    PixmapMaster *masterPtr = (PixmapMaster *) masterData;
+    PixmapInstance *instancePtr;
+
+    /*
+     * See if there is already an instance for this window.  If so
+     * then just re-use it.
+     */
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	if (instancePtr->tkwin == tkwin) {
+	    instancePtr->refCount++;
+	    return (ClientData) instancePtr;
+	}
+    }
+
+    /*
+     * The image isn't already in use in this window.  Make a new
+     * instance of the image.
+     */
+    instancePtr = (PixmapInstance *) ckalloc(sizeof(PixmapInstance));
+    instancePtr->refCount = 1;
+    instancePtr->masterPtr = masterPtr;
+    instancePtr->tkwin = tkwin;
+    instancePtr->pixmap = None;
+    instancePtr->mask = None;
+    instancePtr->gc = None;
+    instancePtr->nextPtr = masterPtr->instancePtr;
+    instancePtr->colors = NULL;
+    masterPtr->instancePtr = instancePtr;
+    ImgXpmConfigureInstance(instancePtr);
+
+    /*
+     * If this is the first instance, must set the size of the image.
+     */
+    if (instancePtr->nextPtr == NULL) {
+	if (masterPtr->data) {
+	    Tk_ImageChanged(masterPtr->tkMaster, 0, 0,
+	        masterPtr->size[0], masterPtr->size[1],
+	        masterPtr->size[0], masterPtr->size[1]);
+	} else {
+	    Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, 0, 0);
+	}
+    }
+
+    return (ClientData) instancePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmDisplay --
+ *
+ *	This procedure is invoked to draw a pixmap image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A portion of the image gets rendered in a pixmap or window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgXpmDisplay(clientData, display, drawable, imageX, imageY, width,
+	height, drawableX, drawableY)
+    ClientData clientData;	/* Pointer to PixmapInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display on which to draw image. */
+    Drawable drawable;		/* Pixmap or window in which to draw image. */
+    int imageX, imageY;		/* Upper-left corner of region within image
+				 * to draw. */
+    int width, height;		/* Dimensions of region within image to draw.*/
+    int drawableX, drawableY;	/* Coordinates within drawable that
+				 * correspond to imageX and imageY. */
+{
+    PixmapInstance *instancePtr = (PixmapInstance *) clientData;
+
+    /*
+     * If there's no graphics context, it means that an error occurred
+     * while creating the image instance so it can't be displayed.
+     */
+
+    if (instancePtr->gc == None) {
+	return;
+    }
+
+    /*
+     * We always use masking: modify the mask origin within
+     * the graphics context to line up with the image's origin.
+     * Then draw the image and reset the clip origin, if there's
+     * a mask.
+     */
+
+    XSetClipOrigin(display, instancePtr->gc, drawableX - imageX,
+	drawableY - imageY);
+    XCopyArea(display, instancePtr->pixmap, drawable, instancePtr->gc,
+	imageX, imageY, (unsigned) width, (unsigned) height,
+	drawableX, drawableY);
+    XSetClipOrigin(display, instancePtr->gc, 0, 0);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmFree --
+ *
+ *	This procedure is called when a widget ceases to use a
+ *	particular instance of an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Internal data structures get cleaned up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgXpmFree(clientData, display)
+    ClientData clientData;	/* Pointer to PixmapInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display containing window that used image.*/
+{
+    PixmapInstance *instancePtr = (PixmapInstance *) clientData;
+    PixmapInstance *prevPtr;
+
+    instancePtr->refCount--;
+    if (instancePtr->refCount > 0) {
+	return;
+    }
+
+    /*
+     * There are no more uses of the image within this widget.  Free
+     * the instance structure.
+     */
+    if (instancePtr->pixmap != None) {
+	XFreePixmap(display, instancePtr->pixmap);
+    }
+    if (instancePtr->mask != None) {
+	XFreePixmap(display, instancePtr->mask);
+    }
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(display, instancePtr->gc);
+    }
+    if (instancePtr->colors != NULL) {
+	int i;
+	for (i=0; i<instancePtr->masterPtr->ncolors; i++) {
+	    if (instancePtr->colors[i].colorPtr != NULL) {
+		Tk_FreeColor(instancePtr->colors[i].colorPtr);
+	    }
+	    if (instancePtr->masterPtr->cpp != 1) {
+		ckfree(instancePtr->colors[i].cstring);
+	    }
+	}
+	ckfree((char*)instancePtr->colors);
+    }
+
+    if (instancePtr->masterPtr->instancePtr == instancePtr) {
+	instancePtr->masterPtr->instancePtr = instancePtr->nextPtr;
+    } else {
+	for (prevPtr = instancePtr->masterPtr->instancePtr;
+		prevPtr->nextPtr != instancePtr; prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body */
+	}
+	prevPtr->nextPtr = instancePtr->nextPtr;
+    }
+    ckfree((char *) instancePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmDelete --
+ *
+ *	This procedure is called by the image code to delete the
+ *	master structure for an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with the image get freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgXpmDelete(masterData)
+    ClientData masterData;	/* Pointer to PixmapMaster structure for
+				 * image.  Must not have any more instances. */
+{
+    PixmapMaster *masterPtr = (PixmapMaster *) masterData;
+
+    if (masterPtr->instancePtr != NULL) {
+	panic("tried to delete pixmap image when instances still exist");
+    }
+    masterPtr->tkMaster = NULL;
+    if (masterPtr->imageCmd != NULL) {
+	Tcl_DeleteCommand(masterPtr->interp,
+		Tcl_GetCommandName(masterPtr->interp, masterPtr->imageCmd));
+    }
+    if (masterPtr->isDataAlloced && masterPtr->data != NULL) {
+	ckfree((char*)masterPtr->data);
+    }
+    Tk_FreeOptions(configSpecs, (char *) masterPtr, (Display *) NULL, 0);
+    ckfree((char *) masterPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgXpmCmdDeletedProc --
+ *
+ *	This procedure is invoked when the image command for an image
+ *	is deleted.  It deletes the image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image is deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+static void
+ImgXpmCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to PixmapMaster structure for
+				 * image. */
+{
+    PixmapMaster *masterPtr = (PixmapMaster *) clientData;
+
+    masterPtr->imageCmd = NULL;
+    if (masterPtr->tkMaster != NULL) {
+	Tk_DeleteImage(masterPtr->interp, Tk_NameOfImage(masterPtr->tkMaster));
+    }
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tix_DefinePixmap
+ *
+ *	Define an XPM data structure with an unique name, so that you can
+ *	later refer to this pixmap using the -id switch in [image create
+ *	pixmap].
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The data is stored in a HashTable.
+ *----------------------------------------------------------------------
+ */
+int
+Tix_DefinePixmap(interp, name, data)
+    Tcl_Interp * interp;
+    Tk_Uid name;		/* Name to use for bitmap.  Must not already
+				 * be defined as a bitmap. */
+    char **data;
+{
+    int new;
+    Tcl_HashEntry *hshPtr;
+
+    if (!xpmTableInited) {
+	xpmTableInited = 1;
+	Tcl_InitHashTable(&xpmTable, TCL_ONE_WORD_KEYS);
+    }
+
+    hshPtr = Tcl_CreateHashEntry(&xpmTable, name, &new);
+    if (!new) {
+        Tcl_AppendResult(interp, "pixmap \"", name,
+		"\" is already defined", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_SetHashValue(hshPtr, (char*)data);
+    return TCL_OK;
+}
+
+int
+Xpm_Init(interp)
+    Tcl_Interp *interp;		/* Interpreter in which the package is
+				 * to be made available. */
+{
+    Tk_CreateImageType(&tixPixmapImageType);
+    return TCL_OK;
+}
+
+#ifdef STk_CODE
+PRIMITIVE STk_init_pixmap(void)
+{
+  extern Tcl_Interp *STk_main_interp;
+
+  Xpm_Init(STk_main_interp);
+  return UNDEFINED;
+}
+#endif
+
+#else
+  /* Some compilers hate to produce an empty object file. */
+  static char dumb = '?';
+#endif
diff --git a/Extensions/posix.c b/Extensions/posix.c
new file mode 100644
index 0000000..473477e
--- /dev/null
+++ b/Extensions/posix.c
@@ -0,0 +1,394 @@
+/*
+ *
+ * p o s i x . c			-- Provide some POSIX.1 functions 
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 14-Mar-1995 20:14
+ * Last file update: 25-Sep-1996 14:36
+ */
+
+#include <stk.h>
+#include <sys/types.h>
+#include <sys/utsname.h>
+
+#define DefineConst(c) {VCELL(STk_intern(#c)) = STk_makeinteger(c);}
+
+/******************************************************************************
+ * 
+ * Error management
+ *
+ ******************************************************************************/
+extern int errno;
+
+static SCM get_errno(char *s)
+{
+  return STk_makeinteger((long) errno);
+}
+
+static void set_errno(char *s, SCM value)
+{
+  long n = STk_integer_value_no_overflow(value);
+
+  if (n == LONG_MIN) Err("setting *errno*: bad integer", value);
+  errno = n;
+}
+
+static PRIMITIVE posix_perror(SCM str)
+{
+  if (NSTRINGP(str)) Err("posix-perror: bad string", str);
+  perror(CHARS(str));
+  return UNDEFINED;
+}
+
+/******************************************************************************
+ *
+ * File and Directory functions
+ *
+ ******************************************************************************/
+#include <sys/stat.h>
+
+static Cpointer_stat;
+
+static PRIMITIVE posix_stat(SCM filename)
+{
+  struct stat *p;
+
+  if (NSTRINGP(filename)) Err("posix-stat: bad string", filename);
+  
+  p = (struct stat *) must_malloc(sizeof(struct stat));
+  if (stat(CHARS(filename), p) == -1) return Ntruth;
+  
+  return STk_make_Cpointer(Cpointer_stat, (void *) p, FALSE);
+}
+
+static PRIMITIVE posix_stat2vector(SCM descr)
+{
+  SCM z;
+  struct stat *info;
+
+  if (NCPOINTERP(descr) || EXTID(descr) != Cpointer_stat) 
+    Err("posix-stat->vector: bad structure ", descr);
+    
+  info = (struct stat *) EXTDATA(descr);
+
+  z = STk_makevect(10, NULL);
+  VECT(z)[0] = STk_makeinteger(info->st_dev);
+  VECT(z)[1] = STk_makeinteger(info->st_ino);
+  VECT(z)[2] = STk_makeinteger(info->st_mode);
+  VECT(z)[3] = STk_makeinteger(info->st_nlink);
+  VECT(z)[4] = STk_makeinteger(info->st_uid);
+  VECT(z)[5] = STk_makeinteger(info->st_gid);
+  VECT(z)[6] = STk_makeinteger(info->st_size);
+  VECT(z)[7] = STk_makeinteger(info->st_atime);
+  VECT(z)[8] = STk_makeinteger(info->st_mtime);
+  VECT(z)[9] = STk_makeinteger(info->st_ctime);
+
+  return z;
+}
+
+static PRIMITIVE posix_access(SCM filename, SCM mode)
+{
+  long m;
+
+  if (NSTRINGP(filename)) Err("posix-access?: bad string", filename);
+  if ((m=STk_integer_value_no_overflow(mode)) == LONG_MIN)
+    Err("posix-access?: bad integer", mode);
+  return (access(CHARS(filename), (int) m) == 0) ? Truth: Ntruth;
+}
+
+static PRIMITIVE posix_pipe(void)
+{
+  int fd[2];
+  FILE *f0, *f1;
+
+  if (pipe(fd) == -1) return Ntruth;
+  
+  if ((f0 = fdopen(fd[0], "r")) == NULL || (f1 = fdopen(fd[1], "w")) == NULL) {
+    fclose(f0);   fclose(f1);
+    close(fd[0]); close(fd[1]);
+    return Ntruth;
+  }
+
+  return Cons(STk_Cfile2port("pipe (input)",  f0, tc_iport, 0),
+	      STk_Cfile2port("pipe (output)", f1, tc_oport, 0));
+}
+
+
+
+/******************************************************************************
+ *
+ * Time functions 
+ *
+ ******************************************************************************/
+#include <time.h>
+
+#ifdef SUNOS4
+#define mktime(c) timegm(c)
+#endif
+
+static Cpointer_tm;
+
+static void display_Cpointer_tm(SCM obj, SCM port, int mode)
+{
+  struct tm *p = (struct tm *) EXTDATA(obj);
+
+  sprintf(STk_tkbuffer, "#<C-struct tm %02d/%02d/%02d %02d:%02d:%02d>", 
+	  		p->tm_mon,  p->tm_mday, p->tm_year,
+	  		p->tm_hour, p->tm_min,  p->tm_sec);
+  Puts(STk_tkbuffer, PORT_FILE(port));
+}
+
+static PRIMITIVE posix_time(void)
+{
+  return STk_makeinteger((long) time(NULL));
+}
+
+static PRIMITIVE posix_ctime(SCM seconds)
+{
+  long sec;
+
+  sec = (seconds == UNBOUND) ? time(NULL)
+			     : STk_integer_value_no_overflow(seconds);
+  if (sec == LONG_MIN) Err("posix-ctime: bad time value", seconds);
+  
+  return STk_makestring(ctime((time_t *) &sec));
+}
+
+
+static PRIMITIVE posix_localtime(SCM timer)
+{
+  long t = STk_integer_value_no_overflow(timer);
+
+  if (t == LONG_MIN) Err("posix-localtime: bad time value", timer);
+
+  return STk_make_Cpointer(Cpointer_tm, (void *) localtime((time_t *) &t), TRUE);
+}
+
+static PRIMITIVE posix_gmtime(SCM timer)
+{
+  long t = STk_integer_value_no_overflow(timer);
+
+  if (t == LONG_MIN) Err("posix-gmtime: bad time value", timer);
+
+  return STk_make_Cpointer(Cpointer_tm, (void *) gmtime((time_t *) &t), TRUE);
+}
+
+static PRIMITIVE posix_mktime(SCM t)
+{
+  time_t sec;
+  if (NCPOINTERP(t) || EXTID(t) != Cpointer_tm) 
+    Err("posix-mktime: bad time structure", t);
+  
+  sec = (time_t) mktime(EXTDATA(t));
+  return STk_makeinteger((double) sec);
+}
+
+static PRIMITIVE posix_tm2vector(SCM t)
+{
+  SCM z;
+  struct tm *p;
+  
+  if (NCPOINTERP(t) || EXTID(t) != Cpointer_tm) 
+    Err("posix-tm->vector: bad time structure", t);
+  
+  z = STk_makevect(9, NIL);
+  p = (struct tm *) EXTDATA(t);
+
+  VECT(z)[0] = STk_makeinteger(p->tm_sec);
+  VECT(z)[1] = STk_makeinteger(p->tm_min);
+  VECT(z)[2] = STk_makeinteger(p->tm_hour); 
+  VECT(z)[3] = STk_makeinteger(p->tm_mday);
+  VECT(z)[4] = STk_makeinteger(p->tm_mon);
+  VECT(z)[5] = STk_makeinteger(p->tm_year);
+  VECT(z)[6] = STk_makeinteger(p->tm_wday);
+  VECT(z)[7] = STk_makeinteger(p->tm_yday);
+  VECT(z)[8] = (p->tm_isdst) ? Truth: Ntruth;
+ 
+  return z;
+}
+
+static PRIMITIVE vector2posix_tm(SCM v)
+{
+  struct tm *p;
+
+  if (NVECTORP(v) || VECTSIZE(v) != 9)
+    Err("vector->posix-tm: bad vector", v);
+
+  p = (struct tm *) must_malloc(sizeof(struct tm));
+  p->tm_sec   = STk_integer_value_no_overflow(VECT(v)[0]);
+  p->tm_min   = STk_integer_value_no_overflow(VECT(v)[1]);
+  p->tm_hour  = STk_integer_value_no_overflow(VECT(v)[2]);
+  p->tm_mday  = STk_integer_value_no_overflow(VECT(v)[3]);
+  p->tm_mon   = STk_integer_value_no_overflow(VECT(v)[4]);
+  p->tm_year  = STk_integer_value_no_overflow(VECT(v)[5]);
+  p->tm_wday  = STk_integer_value_no_overflow(VECT(v)[6]);
+  p->tm_yday  = STk_integer_value_no_overflow(VECT(v)[7]);
+  p->tm_isdst = (VECT(v)[8] == Truth);
+  
+  return STk_make_Cpointer(Cpointer_tm, p, FALSE);
+}
+
+static PRIMITIVE posix_strftime(SCM format, SCM t)
+{
+  char buffer[1024];
+  struct tm *p;
+  int len;
+
+  if (NSTRINGP(format)) 
+    Err("posix-strftime: Bad string", format);
+    
+  /* If t is not provided, assume that we want current localtime */
+  if (t == UNBOUND) {
+    time_t t = time(NULL);
+    p = localtime(&t);
+  }
+  else {
+    if (NCPOINTERP(t) || EXTID(t) != Cpointer_tm) 
+      Err("posix-strftime: bad time structure", t);
+    p = EXTDATA(t);
+  }
+  
+  if (len=strftime(buffer, 1023, CHARS(format), p))
+    return STk_makestring(buffer);
+  else
+    Err("posix-strftime: buffer too short", NIL);
+}
+
+/******************************************************************************
+ *
+ * Processes stuff
+ *
+ ******************************************************************************/
+
+static PRIMITIVE posix_fork(void)
+{
+  pid_t pid = fork();
+
+  if (pid == 0) {
+    /* Child process must delete Tcl interpreter (if it exists) */
+    STk_delete_Tcl_child_Interp();
+  }
+  
+  return (pid == -1) ? Ntruth: STk_makeinteger((long) pid);
+}
+
+static PRIMITIVE posix_wait(void)
+{
+  pid_t pid;
+  int status;
+  
+  pid = wait(&status);
+  if (pid == -1)
+    return Ntruth;
+  else
+    return Cons(STk_makeinteger((long) pid), 
+		STk_makeinteger((long) status));
+}
+
+/******************************************************************************
+ *
+ * System infos
+ *     gethostname and getdomainname:  POSIX.1  does  not define these
+ *     functions, but ISO/IEC 9945-1:1990 mentions them in B.4.4.1. 
+ *			-- Linux documentation
+ *
+ ******************************************************************************/
+
+static PRIMITIVE posix_uname(void)
+{
+  struct utsname buff;
+  SCM v;
+
+  if (uname(&buff) == -1)
+    Err("posix-uname: cannot stat", NIL);
+  
+  v = STk_makevect(5, NIL);
+  VECT(v)[0] = STk_makestring(buff.sysname);
+  VECT(v)[1] = STk_makestring(buff.nodename);
+  VECT(v)[2] = STk_makestring(buff.release);
+  VECT(v)[3] = STk_makestring(buff.version);
+  VECT(v)[4] = STk_makestring(buff.machine);
+
+  return v;
+}
+
+static PRIMITIVE posix_host_name(void)
+{
+  char name[100];
+  
+  if (gethostname(name, 100) != 0)
+    Err("posix-host-name: cannot determine name", NIL);
+
+  return STk_makestring(name);
+}
+
+static PRIMITIVE posix_domain_name(void)
+{
+  char name[100];
+  
+  if (getdomainname(name, 100) != 0)
+    Err("posix-domain-name: cannot determine domain", NIL);
+  
+  return STk_makestring(name);
+}
+
+
+/******************************************************************************
+ *
+ * Initialization code
+ *
+ ******************************************************************************/
+
+PRIMITIVE STk_init_posix(void)
+{
+  /* Error management */
+  STk_define_C_variable("*errno*", get_errno, set_errno);
+  STk_add_new_primitive("posix-perror",	      tc_subr_1,    posix_perror);
+
+  /* File and directories */
+  Cpointer_stat = STk_new_Cpointer_id(NULL);
+  STk_add_new_primitive("posix-stat",	      tc_subr_1,    posix_stat);
+  STk_add_new_primitive("posix-stat->vector", tc_subr_1,    posix_stat2vector);
+  STk_add_new_primitive("posix-access?",      tc_subr_2,    posix_access);
+  STk_add_new_primitive("posix-pipe",       tc_subr_0, 	    posix_pipe);
+
+  DefineConst(F_OK);  	DefineConst(R_OK);  	DefineConst(W_OK);
+  DefineConst(X_OK);
+
+  /* Time */
+  Cpointer_tm = STk_new_Cpointer_id(display_Cpointer_tm);
+  STk_add_new_primitive("posix-time",       tc_subr_0,      posix_time);
+  STk_add_new_primitive("posix-ctime",      tc_subr_0_or_1, posix_ctime);  
+  STk_add_new_primitive("posix-localtime",  tc_subr_1,      posix_localtime);
+  STk_add_new_primitive("posix-gmtime",     tc_subr_1,      posix_gmtime);
+  STk_add_new_primitive("posix-mktime",     tc_subr_1,      posix_mktime);
+  STk_add_new_primitive("posix-tm->vector", tc_subr_1,      posix_tm2vector);
+  STk_add_new_primitive("vector->posix-tm", tc_subr_1,      vector2posix_tm);
+  STk_add_new_primitive("posix-strftime",   tc_subr_1_or_2, posix_strftime);
+
+  /* Processes */
+  STk_add_new_primitive("posix-fork",       tc_subr_0, 	    posix_fork);
+  STk_add_new_primitive("posix-wait",       tc_subr_0, 	    posix_wait);
+  
+  /* System information */
+  STk_add_new_primitive("posix-uname",      tc_subr_0, 	    posix_uname);
+  STk_add_new_primitive("posix-host-name",  tc_subr_0, 	    posix_host_name);
+  STk_add_new_primitive("posix-domain-name",tc_subr_0, 	    posix_domain_name);
+  
+  return UNDEFINED;
+}
diff --git a/Extensions/process.c b/Extensions/process.c
new file mode 100644
index 0000000..f281c2e
--- /dev/null
+++ b/Extensions/process.c
@@ -0,0 +1,621 @@
+/******************************************************************************
+ *
+ * Process extended type definition
+ *
+ ******************************************************************************/
+
+#include "stk.h"
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/param.h>
+#include <sys/wait.h>
+#include <sys/stat.h>
+#include <unistd.h>
+#include <signal.h>
+
+static int tc_process;				/* Process signature */
+
+/*
+ * Data 
+ */
+
+#define MAX_PROC_NUM      40 		/* (simultaneous processes) enough? */
+
+struct process_info {
+  int pid;                      /* Process id */
+  int index;			/* index of process in the table of processes */
+  SCM stream[3];		/* Redirections for stdin stdout and stderr */
+  int exited;			/* Process is terminated */
+  int exit_status;		/* Exit status of the processus */
+};
+
+#define PROCESS(x)        ((struct process_info *)((x)->storage_as.extension.data))
+#define LPROCESS(x)	  ((x)->storage_as.extension.data)
+#define PROCESSP(x)       (TYPEP ((x), tc_process))
+#define NPROCESSP(x)      (NTYPEP ((x), tc_process))
+#define PROCPID(x)        (PROCESS(x)->pid)
+
+static SCM proc_arr[MAX_PROC_NUM];   	/* for registering processes */
+
+static char *stdStreams[3] = {
+  "input",	
+  "output",	
+  "error",
+};
+
+static char key_inp[] = ":input";
+static char key_out[] = ":output";
+static char key_err[] = ":error";
+static char key_wit[] = ":wait";
+static char key_hst[] = ":host";
+
+#if defined(SIGCHLD) && !defined(HPUX)
+#  define USE_SIGCHLD 1 /* What's the problem with HP? */
+#endif
+
+#ifdef USE_SIGCHLD
+#define PURGE_PROCESS_TABLE()	/* Nothing to do */
+#else
+#define PURGE_PROCESS_TABLE() process_terminate_handler(0) /* Simulate a SIGCHLD */
+#endif
+
+
+
+/******************************************************************************/
+
+static void init_proc_table(void)
+{
+  int i;
+
+  for(i = 0; i<MAX_PROC_NUM; i++) proc_arr[i] = Ntruth;
+}
+
+
+static int find_process(SCM prc)
+{
+  int i;
+
+  for(i = 0; i<MAX_PROC_NUM; i++)
+    if(prc==proc_arr[i]) return i;
+  return (-1);
+}
+
+static int internal_process_alivep(SCM process)
+{
+  int info, res;
+
+  if (PROCESS(process)->exited) 
+    return FALSE;
+  else {
+    /* Use waitpid to gain the info. */
+    res = waitpid(PROCPID(process), &info, WNOHANG);
+    if (res == 0) 
+      /* process is still running */
+      return TRUE;
+    else {
+      /* process has terminated and we must save this information */
+      PROCESS(process)->exited      = TRUE;
+      PROCESS(process)->exit_status = info;
+      return FALSE;
+    }
+  }
+}
+
+static void process_terminate_handler(int sig) /* called when a child dies */
+{
+  register int i;
+  SCM proc;
+
+#if defined(USE_SIGCHLD) && !defined(HAVE_SIGACTION)
+  static int in_handler = 0;
+
+  signal(SIGCHLD, process_terminate_handler); /* Necessary on System V */
+  if (in_handler++) /* Execution is re-entrant */ return;
+  
+  do {
+#endif
+    /* Find the process which is terminated 
+     * Note that this loop can find:
+     *      - nobody: if the process has been destroyed by GC
+     *      - 1 process: This is the normal case
+     *	    - more than one process: This can arise when:
+     *		   - we use signal rather than sigaction 
+     *		   - we don't have SIGCHLD and this function is called by
+     *		     PURGE_PROCESS_TABLE
+     * Sometimes I think that life is a little bit complicated.... 
+     */
+    for(i = 0; i<MAX_PROC_NUM; i++) {
+      proc = proc_arr[i];
+      if (PROCESSP(proc) && !internal_process_alivep(proc))
+	/* This process has exited. We can delete it from the table */
+	proc_arr[i] = Ntruth;
+    }
+
+#if defined(USE_SIGCHLD) && !defined(HAVE_SIGACTION)
+    /* Since we can be called recursively, we have perhaps forgot to delete 
+     * some dead process from the table. So, we have perhaps to scan 
+     * the process array another time
+     */
+  } while (--in_handler > 0);
+#endif
+}
+
+
+static SCM make_process(void)
+{
+  int i;
+  SCM z;
+
+  PURGE_PROCESS_TABLE();
+
+  /* find slot */
+  i = find_process(Ntruth);
+  if (i < 0){
+    STk_gc_for_newcell();
+    i = find_process(Ntruth);
+  }
+  if (i < 0) Err("Too many processes", NIL);
+
+  NEWCELL(z, tc_process);
+  LPROCESS(z) = (struct process_info *) must_malloc(sizeof(struct process_info));
+  PROCESS(z)->index = i;
+  PROCESS(z)->stream[0] =  PROCESS(z)->stream[1] = PROCESS(z)->stream[2] = Ntruth;
+  PROCESS(z)->exit_status = PROCESS(z)->exited = 0;
+  /* Enter this process in the process table */
+  proc_arr[i] = z;
+  return z;
+}
+
+
+static void cannot_run(int pipes[3][2], char **argv, char *msg, SCM obj)
+{
+  int i;
+
+  for (i=0; i<3; i++) {
+    if (pipes[i][0] != -1) close(pipes[i][0]);
+    if (pipes[i][1] != -1) close(pipes[i][1]);
+  }
+  free(argv);
+  Err(msg, obj);
+}
+
+
+static PRIMITIVE run_process(SCM l, int len)
+{
+  SCM proc, tmp, redirection[3];
+  int pid, i, argc, waiting, pipes[3][2];
+  struct process_info *info;
+  char host[100], msg[256], **argv, **argv_start;
+
+  /* Initializations */
+  argc = 0; waiting = FALSE;
+  argv_start = (char**)must_malloc((len+3)*sizeof(char *)); /* 3= NULL+rsh+host */
+  argv = argv_start + 2;
+  
+  for (i = 0; i < 3; i++) {
+    redirection[i] = NIL;
+    pipes[i][0] =  pipes[i][1] = -1;
+  }
+
+  /* Checking arguments and creating UNIX-style arguments list */
+  for (  ; NNULLP(l); l = CDR(l)) {
+    tmp = CAR(l);
+    if (KEYWORDP(tmp)) {
+      /* Manage :input, :output, :error and :no-wait keywords */
+      int i = -1;
+
+      if (NCONSP(CDR(l))) 
+	cannot_run(pipes, argv_start,"run-process: no argument after keyword", tmp);
+      
+      l = CDR(l); /* Go to next item */
+      
+      if (STk_eqv(tmp, STk_makekey(key_hst)) == Truth) {
+	/* :host keyword processing */
+	if (NSTRINGP(CAR(l)))
+	  cannot_run(pipes, argv_start, 
+		     "run-process: string expected. It was", CAR(l));
+	strcpy(host, CHARS(CAR(l))); /* to avoid GC problems */
+	/* Shift argv to point the start of allocated zone. This avoid a copy
+	 * of arguments already processed.
+	 */
+	argv    = argv_start;
+	argc   += 2;
+	argv[0] = "rsh";
+	argv[1] = host;
+      }
+      else {
+	if (STk_eqv(tmp, STk_makekey(key_wit)) == Truth) {
+	  /* :wait option processing */
+	  if (NBOOLEANP(CAR(l))) 
+	    cannot_run(pipes, argv_start,
+		       "run-process: boolean expected. It was", CAR(l));
+	  
+	  waiting = (CAR(l) == Truth);
+	}
+	else {
+	  /* :input, :output, :error option processing */
+	  if (STk_eqv(tmp, STk_makekey(key_inp)) == Truth) i = 0; else
+	  if (STk_eqv(tmp, STk_makekey(key_out)) == Truth) i = 1; else
+	  if (STk_eqv(tmp, STk_makekey(key_err)) == Truth) i = 2;
+	  
+	  if (i < 0) cannot_run(pipes, argv_start, "run-process: bad keyword", tmp);
+	  redirection[i] = CAR(l);
+	  
+	  if (STRINGP(redirection[i])) {
+	    /* Redirection in a file */
+	    int j;
+
+	    /* 
+	     * First try to look if this redirecttion has not already done
+	     * This can arise by doing
+	     *     :output "out" :error "out"       which is correct
+	     *     :output "out" :input "out"       which is obviously incorrect
+	     */
+	    for (j = 0; j < 3; j++) {
+	      if (j != i && STRINGP(redirection[j])) {
+		struct stat stat_i, stat_j;
+		
+		/* Do a stat to see if we try to open the same file 2 times     */
+		/* if stat == -1 this is probably because file doen't exist yet */
+		if (stat(CHARS(redirection[i]), &stat_i) == -1) continue;
+		if (stat(CHARS(redirection[j]), &stat_j) == -1) continue;
+		
+		if (stat_i.st_dev==stat_j.st_dev && stat_i.st_ino==stat_j.st_ino) {
+		  /* Same file was cited 2 times */
+		  if (i == 0 || j == 0) {
+		    sprintf(msg, "run-process: read/write on the same file: %s",
+			         CHARS(redirection[i]));
+		    cannot_run(pipes, argv_start, msg, NIL);
+		  }
+		  
+		  /* assert(i == 1 && j == 2 || i == 2 && j == 1); */
+		  pipes[i][0] = dup(pipes[j][0]);
+		  break;
+		}
+	      }
+	    }		
+
+	    /* 
+	     * Two cases are possible here:
+	     * 	  - We have stdout and stderr redirected on the same file (j != 3)
+	     *	  - We have not found current file in list of redirections (j == 3)
+	     */
+	    if (j == 3) {
+	      pipes[i][0] = open(CHARS(redirection[i]), 
+				 i==0 ? O_RDONLY:(O_WRONLY|O_CREAT|O_TRUNC),
+				 0666);
+	    }
+	    
+	    if(pipes[i][0] < 0) {
+	      sprintf(msg, "run-process: can't redirect standard %s to file %s",
+		      stdStreams[i], CHARS(redirection[i]));
+	      cannot_run(pipes, argv_start, msg, NIL);
+	    }
+	  }
+	  else 
+	    if (KEYWORDP(redirection[i])) {
+	      /* Redirection in a pipe */
+	      if (pipe(pipes[i]) < 0) {
+		sprintf(msg, "run-process: can't create stream for standard %s",
+			stdStreams[i]);
+		cannot_run(pipes, argv_start, msg, NIL);
+	      }
+	    }
+	}
+      }
+    }
+    else {
+      /* Normal arg. Put it in argv */
+      if (NSTRINGP(tmp)) 
+	cannot_run(pipes, argv_start, "run-process: bad string", tmp);
+      argv[argc++] = CHARS(tmp);
+    }
+  }
+  argv[argc] = NULL;
+  
+  if (argc == 0) cannot_run(pipes, argv_start,"run-process: no command given", NIL);
+
+  /* Build a process object */
+  proc = make_process();
+  info  = PROCESS(proc);
+  
+  /* Fork another process */
+  switch (pid = fork()) {
+    case -1: cannot_run(pipes,argv,"run-process: can't create child process", NIL);
+    case 0:  /* Child */
+      	     for(i = 0; i < 3; i++) {
+	       if (STRINGP(redirection[i])) {
+		 /* Redirection in a file */
+		 close(i);
+		 dup(pipes[i][0]);
+		 close(pipes[i][0]);
+	       }
+	       else 
+		 if (KEYWORDP(redirection[i])) {
+		   /* Redirection in a pipe */
+		   close(i);
+		   dup(pipes[i][i==0? 0 : 1]);
+		   close(pipes[i][0]);
+		   close(pipes[i][1]);
+		 }
+	     }
+
+	     for(i = 3; i < NOFILE; i++) close(i);
+
+	     /*  And then, EXEC'ing...  */
+	     execvp(*argv, argv);
+	     
+	     /* Cannot exec if we are here */
+	     fprintf(stderr, "**** Cannot  exec %s!\n", *argv);
+	     exit(1);
+    default: /* Father */
+      	     info->pid = pid;
+      	     for(i = 0; i < 3; i++) {
+	       if (STRINGP(redirection[i]))
+		 /* Redirection in a file */
+		 close(pipes[i][0]);
+	       else 
+		 if (KEYWORDP(redirection[i])) {
+		   /* Redirection in a pipe */
+		   close(pipes[i][i == 0 ? 0 : 1]);
+		   
+		   /* Make a new file descriptor to access the pipe */
+		   {
+		     char *s;
+		     FILE *f;
+
+		     f = (i == 0)? fdopen(pipes[i][1],"w"):fdopen(pipes[i][0],"r");
+		     if (f == NULL)
+		       cannot_run(pipes, argv, "run-process: cannot fdopen", proc);
+
+		     sprintf(msg, "pipe-%s-%d", stdStreams[i], pid);
+
+		     STk_disallow_sigint();
+
+		     s = (char *) must_malloc(strlen(msg)+1);
+		     strcpy(s, msg);
+
+		     info->stream[i] = STk_Cfile2port(s,
+						      f,
+						      (i==0) ? tc_oport : tc_iport,
+						      0);
+		     STk_allow_sigint();
+		   }
+		 }
+	     }
+	     if	(waiting) {
+	       waitpid(pid, &(info->exit_status), 0);
+	       info->exited = TRUE;
+	     }
+  }
+  free(argv_start);
+  return proc;
+}
+
+
+static PRIMITIVE processp(SCM process) 
+{
+  return PROCESSP(process) ? Truth : Ntruth;
+}
+
+static PRIMITIVE process_alivep(SCM process)
+{
+  if (NPROCESSP(process)) Err("process-alive?: bad process", process);
+  return internal_process_alivep(process)? Truth: Ntruth;
+}
+
+static PRIMITIVE process_pid(SCM process)
+{
+  if (NPROCESSP(process)) Err("process-pid: bad process", process);
+  return  STk_makeinteger(PROCPID(process));
+}
+
+static PRIMITIVE process_list(void)
+{
+  int i;
+  SCM lst = NIL;
+
+  PURGE_PROCESS_TABLE();
+
+  for(i = 0; i < MAX_PROC_NUM; i++)
+    if (proc_arr[i] != Ntruth)
+      lst = Cons(proc_arr[i], lst);
+  return lst;
+}
+
+
+static PRIMITIVE process_input(SCM process)
+{
+  if(NPROCESSP(process)) Err("process-input: bad process", process);
+
+  return PROCESS(process)->stream[0];
+}
+
+static PRIMITIVE process_output(SCM process)
+{
+  if(NPROCESSP(process)) Err("process-output: bad process", process);
+
+  return PROCESS(process)->stream[1];
+}
+
+static PRIMITIVE process_error(SCM process)
+{
+  if(NPROCESSP(process)) Err("process-error: bad process", process);
+
+  return PROCESS(process)->stream[2];
+}
+
+static PRIMITIVE process_wait(SCM process)
+{
+  PURGE_PROCESS_TABLE();
+
+  if(NPROCESSP(process)) Err("process-wait: bad process", process);
+  
+  if (PROCESS(process)->exited) return Ntruth;
+  else {
+    int ret = waitpid(PROCPID(process), &PROCESS(process)->exit_status, 0);
+
+    PROCESS(process)->exited = TRUE;
+    return (ret == 0) ? Ntruth : Truth;
+  }
+}
+
+
+static PRIMITIVE process_xstatus(SCM process)
+{
+  int info, n;
+
+  PURGE_PROCESS_TABLE();
+
+  if (NPROCESSP(process)) Err("process-exit-status: bad process", process);
+  
+  if (PROCESS(process)->exited) n = PROCESS(process)->exit_status;
+  else {
+    if (waitpid(PROCPID(process), &info, WNOHANG) == 0) {
+      /* Process is still running */
+      return Ntruth;
+    }
+    else {
+      /* Process is now terminated */
+      PROCESS(process)->exited      = TRUE;
+      PROCESS(process)->exit_status = info;
+      n = WEXITSTATUS(info);
+    }
+  }
+  return STk_makeinteger((long) n);
+}
+
+static PRIMITIVE process_send_signal(SCM process, SCM signal)
+{
+  PURGE_PROCESS_TABLE();
+
+  if (NPROCESSP(process)) Err("process-send-signal: bad process", process);
+  if (NINTEGERP(signal))  Err("process-send-signal: bad integer", signal);
+
+  kill(PROCPID(process), STk_integer_value(signal));
+  return UNDEFINED;
+}
+
+static PRIMITIVE process_kill(SCM process)
+{
+  if (NPROCESSP(process)) Err("process-kill: bad process", process);
+  return process_send_signal(process, STk_makeinteger(SIGTERM));
+}
+
+#ifdef SIGSTOP
+static PRIMITIVE process_stop(SCM process)
+{
+  if (NPROCESSP(process)) Err("process-stop: bad process", process);
+  return process_send_signal(process, STk_makeinteger(SIGSTOP));
+}
+#endif
+
+#ifdef SIGCONT
+static PRIMITIVE process_continue(SCM process)
+{
+  if (NPROCESSP(process)) Err("process-continue: bad process", process);
+  return process_send_signal(process, STk_makeinteger(SIGCONT));
+}
+#endif
+
+
+/******************************************************************************/
+static void mark_process(SCM process)
+{
+  struct process_info *info;
+  
+  info = PROCESS(process);
+  STk_gc_mark(info->stream[0]); 
+  STk_gc_mark(info->stream[1]); 
+  STk_gc_mark(info->stream[2]);
+}
+  
+static void free_process(SCM process)
+{
+  int i;
+
+  /* Kill process; close its associated file, delete it from the process table 
+   * and free the memory it uses 
+   */
+  process_kill(process);
+  for(i = 0; i < 3; i++) {
+    SCM p = PROCESS(process)->stream[i];
+    if (IPORTP(p) || OPORTP(p)) STk_freeport(p);
+  }
+  proc_arr[PROCESS(process)->index] = Ntruth;
+  free(PROCESS(process));
+}
+
+static void process_display(SCM obj, SCM port, int mode)
+{
+  sprintf(STk_tkbuffer, "#<process PID=%d>", PROCPID(obj));
+  Puts(STk_tkbuffer, PORT_FILE(port));
+}
+
+
+static STk_extended_scheme_type process_type = {
+  "process",		/* name */
+  0,			/* is_procp */
+  mark_process,		/* gc_mark_fct */
+  free_process,        	/* gc_sweep_fct */
+  NULL,			/* apply_fct */
+  process_display	/* display_fct */
+};
+
+
+
+/******************************************************************************/
+
+
+PRIMITIVE STk_init_process(void)
+{
+  tc_process = STk_add_new_type(&process_type);
+  init_proc_table();
+
+#ifdef USE_SIGCHLD
+  /* 
+   * On systems which support SIGCHLD, the processes table is cleaned up
+   * as soon as a process terminate. On other systems this is done from time
+   * to time to avoid filling the table too fast
+   */
+
+# ifdef HAVE_SIGACTION
+  {
+    /* Use the secure Posix.1 way */
+    struct sigaction sigact;
+    
+    sigemptyset(&(sigact.sa_mask));
+    sigact.sa_handler = process_terminate_handler;
+    sigact.sa_flags   = SA_NOCLDSTOP;     /* Ignore SIGCHLD generated by SIGSTOP */
+#  ifdef SA_RESTART
+    /* Thanks to Harvey J. Stein <hjstein@MATH.HUJI.AC.IL> for the fix */
+    sigact.sa_flags  |= SA_RESTART;
+#  endif
+    sigaction(SIGCHLD, &sigact, NULL);
+  }
+# else
+  /* Use "classical" way. (Only Solaris 2 seems to have problem with it */
+  signal(SIGCHLD, process_terminate_handler);
+# endif
+#endif
+
+  STk_add_new_primitive("run-process",	   	   tc_lsubr,  run_process);	   
+  STk_add_new_primitive("process?", 	   	   tc_subr_1, processp);    	   
+  STk_add_new_primitive("process-alive?", 	   tc_subr_1, process_alivep);	   
+  STk_add_new_primitive("process-pid", 	   	   tc_subr_1, process_pid);	   
+  STk_add_new_primitive("process-list", 	   tc_subr_0, process_list);       
+  STk_add_new_primitive("process-input", 	   tc_subr_1, process_input);      
+  STk_add_new_primitive("process-output", 	   tc_subr_1, process_output);     
+  STk_add_new_primitive("process-error", 	   tc_subr_1, process_error);
+  STk_add_new_primitive("process-wait", 	   tc_subr_1, process_wait);       
+  STk_add_new_primitive("process-exit-status", 	   tc_subr_1, process_xstatus);    
+  STk_add_new_primitive("process-send-signal",     tc_subr_2, process_send_signal);
+  STk_add_new_primitive("process-kill", 	   tc_subr_1, process_kill);       
+#ifdef SIGSTOP
+  STk_add_new_primitive("process-stop", 	   tc_subr_1, process_stop);       
+#endif
+#ifdef SIGCONT
+  STk_add_new_primitive("process-continue",	   tc_subr_1, process_continue);   
+#endif
+  return UNDEFINED;
+}
diff --git a/Extensions/socket.c b/Extensions/socket.c
new file mode 100644
index 0000000..284b78f
--- /dev/null
+++ b/Extensions/socket.c
@@ -0,0 +1,547 @@
+/*
+ * This file is based on a contribution of David Tolpin (dvd@pizza.msk.su)
+ * It is an implementation of BSD-INET sockets and is known to run on 
+ * Solaris 1 and Linux.
+ *
+ * Bugs correction (conversion between host and network byte order) by
+ * Marc Furrer (Marc.Furrer@di.epfl.ch)
+ *
+ * Reworked  by Erick Gallesio for 2.2 release. Some additions and simplifications
+ * (I hope). 
+ * 
+ * Win32 support by Caleb Deupree <cdeupree@erinet.com>
+ *
+ * Last file update: 25-Sep-1996 21:33
+ */
+
+
+#ifdef WIN32
+#  include <fcntl.h>
+#  include <tclWinPort.h>
+#  define BAD_SOCKET(s) ((s) == INVALID_SOCKET)
+#  ifndef _O_WRONLY
+#    define _O_WRONLY O_WRONLY
+#  endif
+#  ifndef _O_RDONLY
+#    define _O_RDONLY O_RDONLY
+#  endif 
+#else 
+#  include <sys/types.h>
+#  include <sys/socket.h>
+#  include <netinet/in.h>
+#  include <arpa/inet.h>
+#  include <netdb.h>
+#  include <memory.h>
+#  define BAD_SOCKET(s) ((s) < 0)
+#endif
+
+#include "stk.h"
+#include <errno.h>
+
+struct socket_type {
+  int portnum;
+  SCM hostname, hostip;
+  int fd;
+  SCM input, output;
+  SCM ready_event;
+};
+
+static int tc_socket;
+
+#define SOCKET(x)   ((struct socket_type*)(x->storage_as.extension.data))
+#define LSOCKET(x)  (x->storage_as.extension.data)
+#define SOCKETP(x)  (TYPEP(x,tc_socket))
+#define NSOCKETP(x) (NTYPEP(x,tc_socket))
+
+/******************************************************************************
+ *
+ *   U t i l i t i e s
+ *
+ ******************************************************************************/
+
+static void system_error(char *who)
+{
+  char buffer[512]; /* should suffice */
+  
+  sprintf(buffer, "%s: %s", who, strerror(errno));
+  Err(buffer, NIL);
+}
+
+static void socket_error(char *who, char *message, SCM object)
+{
+  char buffer[512]; /* should suffice */
+  
+  sprintf(buffer, "%s: %s", who, message);
+  Err(buffer, object);
+}
+
+static void set_socket_io_ports(int s, SCM sock, char *who)
+{
+  int t, len, port;
+  char *hostname, *fname;
+  FILE *fs, *ft;
+  char buffer[200];
+
+  STk_disallow_sigint();
+
+#ifdef WIN32
+  {
+    int r;
+
+    if (((t = _open_osfhandle(s, _O_WRONLY)) == -1) || 
+	((r = _open_osfhandle(s, _O_RDONLY)) == -1)) {
+      sprintf(buffer, "%s: cannot open osfhandle", who);
+      Err(buffer, NIL);
+    }
+    
+    if(!((fs = fdopen(r, "r")) && (ft = fdopen(t, "w")))) {
+      sprintf(buffer, "%s: cannot create socket io ports", who);
+      Err(buffer, NIL);
+    }
+  }
+#else
+  t = dup(s); /* duplicate handles so that we are able to access one 
+		 socket channel via two scheme ports */
+
+  if (t == -1) {
+    sprintf(buffer, "%s: cannot duplicate io port", who);
+    Err(buffer,  STk_makeinteger(errno));
+  }
+
+  if(!((fs = fdopen(s, "r")) && (ft = fdopen(t, "w")))) {
+    sprintf(buffer, "%s: cannot create socket io ports", who);
+    Err(buffer, NIL);
+  }
+#endif
+
+  port     = SOCKET(sock)->portnum;
+  hostname = CHARS(SOCKET(sock)->hostname);
+  len      = strlen(hostname) + 20;
+  fname    =  (char*) must_malloc(len);
+  sprintf(fname, "%s:%d", hostname, port);
+
+  /* Create input port */
+  SOCKET(sock)->input = STk_Cfile2port(fname, fs, tc_iport, 0);
+
+  /* Create output port */
+  SOCKET(sock)->output = STk_Cfile2port(strdup(fname), ft, tc_oport, 0);
+
+  STk_allow_sigint();
+}
+
+/******************************************************************************
+ *
+ *   m a k e - c l i e n t - s o c k e t
+ *
+ ******************************************************************************/
+
+static PRIMITIVE make_client_socket(SCM hostname, SCM port)
+{
+  char str[] = "make-client-socket";
+  struct hostent *hp;
+  struct sockaddr_in server;
+  struct in_addr local_ip;
+  SCM z, local_host;
+  int s;
+
+  /* Verify arguments */
+  if(NSTRINGP(hostname)) 
+    socket_error(str, "bad hostname", hostname);
+  if(NINTEGERP(port))
+    socket_error(str, "bad port number", port);
+
+  /* Locate the host IP address */
+  if ((hp=gethostbyname(CHARS(hostname))) == NULL)
+    socket_error(str, "unknown or misspelled host name", hostname);
+
+  /* Get a socket */
+  if (BAD_SOCKET(s=socket(AF_INET,SOCK_STREAM,0)))
+    socket_error(str, "cannot create socket", NIL);
+  
+  /* Setup a connect address */
+  memset(&server, 0, sizeof(server));
+  memcpy((char*)&server.sin_addr, hp->h_addr, hp->h_length);
+  server.sin_family = AF_INET;
+  server.sin_port   = htons(INTEGER(port));
+
+  /* Try to connect */
+  if (connect(s, (struct sockaddr *) &server, sizeof(server)) < 0) {
+    close(s);
+    system_error(str);
+  }
+
+  /* Create a new Scheme socket object */
+  NEWCELL(z, tc_socket);
+  LSOCKET(z) = (struct socket_type*) 
+    				must_malloc(sizeof (struct socket_type));
+
+  SOCKET(z)->portnum	 = ntohs(server.sin_port); /* Query true value */
+  SOCKET(z)->hostname    = STk_makestring((char *) hp->h_name);
+  SOCKET(z)->hostip      = STk_makestring((char *) inet_ntoa(server.sin_addr));
+  SOCKET(z)->fd 	 = s;
+  SOCKET(z)->input 	 = Ntruth;
+  SOCKET(z)->output 	 = Ntruth;
+  SOCKET(z)->ready_event = Ntruth;
+
+  set_socket_io_ports(s, z, str);
+  return z;
+}
+
+/******************************************************************************
+ *
+ *   m a k e - s e r v e r - s o c k e t
+ *
+ ******************************************************************************/
+
+static PRIMITIVE make_server_socket(SCM port)
+{
+  char msg[] = "make-server-socket";
+  struct sockaddr_in sin;
+  int s, portnum, len;
+  SCM local_host;
+  struct in_addr local_ip;
+  SCM z;
+
+  /* Determine port to use */
+  portnum = (port == UNBOUND) ? 0 : STk_integer_value(port);
+  if (portnum < 0)  Err("make-server-socket: bad port number", port);
+
+  /* Create a socket */
+  if (BAD_SOCKET(s = socket(AF_INET, SOCK_STREAM, 0)))
+    Err("Cannot create socket", NIL);
+  
+  /* Bind the socket to a name */
+  sin.sin_family      = AF_INET;
+  sin.sin_port 	      = htons(portnum);
+  sin.sin_addr.s_addr = INADDR_ANY;
+
+  if (bind(s, (struct sockaddr *) &sin, sizeof(sin)) < 0) {
+    close(s);
+    system_error(msg);
+  }
+
+  /* Query the socket name (permits to get the true socket number if 0 was given */
+  len = sizeof(sin);
+  if (getsockname(s, (struct sockaddr *) &sin, (int *) &len) < 0) {
+    close(s);
+    system_error(msg);
+  }
+
+  /* Indicate that we are ready to listen */
+  if (listen(s, 5) < 0) {
+    close(s);
+    system_error(msg);
+  }
+
+  /* Now we can create the socket object */
+  NEWCELL(z, tc_socket);
+  LSOCKET(z) = (struct socket_type*) 
+    				must_malloc(sizeof (struct socket_type));
+  SOCKET(z)->portnum      = ntohs(sin.sin_port);
+  SOCKET(z)->hostname     = Ntruth;
+  SOCKET(z)->hostip	  = Ntruth;
+  SOCKET(z)->fd	 	  = s;
+  SOCKET(z)->input	  = Ntruth;
+  SOCKET(z)->output	  = Ntruth;
+  SOCKET(z)->ready_event  = Ntruth;
+
+  return z;
+}
+
+/******************************************************************************
+ *
+ *   s o c k e t - a c c e p t - c o n n e c t i o n
+ *
+ ******************************************************************************/
+
+static PRIMITIVE socket_accept_connection(SCM sock)
+{
+  char buff[50], *s;
+  char str[]= "socket-accept-connection";
+  struct sockaddr_in sin;
+  struct hostent *host;
+  int len = sizeof(sin);
+  int new_s;
+
+  if (NSOCKETP(sock)) 
+    socket_error(str, "bad socket", sock);
+
+  if (BAD_SOCKET(new_s = accept(SOCKET(sock)->fd, (struct sockaddr *) &sin, &len)))
+    system_error(str);
+  
+  /* Set the client info (if possible its name, otherwise its IP number) */
+  host = gethostbyaddr((char *) &sin.sin_addr, sizeof(sin.sin_addr), AF_INET);
+  s    = (char *) inet_ntoa(sin.sin_addr);
+  
+  SOCKET(sock)->hostip   = STk_makestring(s);
+  SOCKET(sock)->hostname = STk_makestring(host? (char*) (host->h_name): s);
+
+  set_socket_io_ports(new_s, sock, str);
+  return UNDEFINED;
+}
+
+/******************************************************************************
+ *
+ *   w h e n - s o c k e t - r e a d y 
+ *
+ ******************************************************************************/
+static void apply_socket_closure(SCM closure)
+{
+  Apply(closure, NIL);
+}
+ 
+static PRIMITIVE when_socket_ready(SCM s, SCM closure)
+{
+  char str[50];
+  Tcl_File f;
+
+  if (NSOCKETP(s))
+    Err("when-socket-ready: bad socket", s);
+  
+  if (closure == UNBOUND) {
+    /* Return the current handler closure */
+    return SOCKET(s)->ready_event;
+  }
+  
+  f = Tcl_GetFile((ClientData) SOCKET(s)->fd,  TCL_UNIX_FD);
+  
+  if (closure == Ntruth) {
+    Tcl_DeleteFileHandler(f);    
+    SOCKET(s)->ready_event = Ntruth;
+  }
+  else {
+    if (STk_procedurep(closure) == Ntruth) 
+      Err("when-socket-ready: bad closure", closure);
+
+    Tcl_CreateFileHandler(f, TCL_READABLE, (Tcl_FileProc *) apply_socket_closure, 
+			  (ClientData) closure);
+    SOCKET(s)->ready_event = closure;
+  }
+  return UNDEFINED;
+}
+
+static PRIMITIVE buggy_handler(SCM s, SCM closure)
+{
+  Err("when-socket-ready: cannot be used with snow", NIL);
+}
+
+/******************************************************************************
+ *
+ *   s o c k e t - s h u t d o w n
+ *
+ ******************************************************************************/
+
+static void shutdown_port(SCM port)
+{
+  int fd;
+  FILE *f;
+
+  fd  = fileno(PORT_FILE(port));
+  if (!(PORT_FLAGS(port) & PORT_CLOSED)) /* not already closed */ shutdown(fd, 2);
+}
+
+static PRIMITIVE socket_shutdown(SCM sock, SCM close_socket)
+{
+  if (close_socket == UNBOUND) close_socket = Truth;
+
+  if (NSOCKETP(sock)) 	       Err("socket-shutdown: bad socket", sock);
+  if (NBOOLEANP(close_socket)) Err("socket-shutdown: bad boolean", close_socket);
+
+  if (close_socket == Truth && SOCKET(sock)->fd > 0) {
+    if (!STk_snow_is_running)
+      /* We cannot use #ifdef USE_TK here to have the same socket.so
+       * for both snow and stk. So we have to test if we are running 
+       * snow dynamically
+       */
+      Tcl_DeleteFileHandler(Tcl_GetFile((ClientData) SOCKET(sock)->fd, 
+					TCL_UNIX_FD));
+    close(SOCKET(sock)->fd);
+    SOCKET(sock)->fd = -1;
+  }
+ 
+  shutdown_port(SOCKET(sock)->input);  
+  shutdown_port(SOCKET(sock)->output); 
+  
+  /* Unset input and ouput pointers. By doing that, GC will close the
+   * input and ouput files later.
+   */
+  SOCKET(sock)->input = SOCKET(sock)->output = Ntruth;
+  return UNDEFINED;
+}
+
+/******************************************************************************
+ *
+ *   O t h e r   s o c k e t   p r i m i t i v e s
+ *
+ ******************************************************************************/
+
+static PRIMITIVE socketp(SCM sock)
+{
+  return SOCKETP(sock)? Truth: Ntruth;
+}
+
+static PRIMITIVE socket_port_number(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-port-number: bad socket", sock);
+  return STk_makeinteger(SOCKET(sock)->portnum);
+}
+
+static PRIMITIVE socket_input(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-input: bad socket", sock);
+  return SOCKET(sock)->input;
+}
+
+static PRIMITIVE socket_output(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-output: bad socket", sock);
+  return SOCKET(sock)->output;
+}
+
+static PRIMITIVE socket_hostname(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-hostname: bad socket", sock);
+  return SOCKET(sock)->hostname;
+}
+
+static PRIMITIVE socket_host_address(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-host-address: bad socket", sock);
+  return SOCKET(sock)->hostip;
+}
+
+static PRIMITIVE socket_downp(SCM sock)
+{
+  if (NSOCKETP(sock)) Err("socket-down?: bad socket", sock);
+  return (SOCKET(sock)->fd == -1) ? Truth: Ntruth;
+}
+
+static PRIMITIVE socket_dup(SCM socket)
+{
+  SCM z;
+  int new_fd;
+#ifdef WIN32
+  HANDLE process;
+#endif
+
+  if (NSOCKETP(socket)) Err("socket-dup: bad socket", socket);
+
+#ifdef WIN32
+  process = GetCurrentProcess();
+  if (!DuplicateHandle(process, 
+		       (HANDLE) SOCKET(socket)->fd, process,
+		       (HANDLE*) &new_fd,
+		       0, 
+		       TRUE, 
+		       DUPLICATE_SAME_ACCESS))
+    Err("socket-dup: cannot duplicate socket", STk_makeinteger(GetLastError()));
+#else
+  if ((new_fd=dup(SOCKET(socket)->fd)) < 0)
+    Err("socket-dup: cannot duplicate socket", socket);
+#endif
+  
+  NEWCELL(z, tc_socket);
+  LSOCKET(z) = (struct socket_type*) must_malloc(sizeof (struct socket_type));
+
+  *SOCKET(z) = *SOCKET(socket);
+  SOCKET(z)->fd = new_fd;  
+
+  return z;
+}
+
+
+static PRIMITIVE socket_local_addr(SCM sock)
+{
+  struct sockaddr_in sin;
+  int len = sizeof(sin);
+
+  if (NSOCKETP(sock)) Err("socket-local-address: bad socket", sock);
+
+  if (getsockname(SOCKET(sock)->fd, (struct sockaddr *) &sin, &len))
+    Err("socket-local-address: cannot get socket name", sock);
+
+  return STk_makestring((char *) inet_ntoa(sin.sin_addr));
+}
+  
+
+/******************************************************************************/
+
+
+static void mark_socket(SCM sock)
+{
+  STk_gc_mark(SOCKET(sock)->hostname);
+  STk_gc_mark(SOCKET(sock)->hostip);
+  STk_gc_mark(SOCKET(sock)->input);
+  STk_gc_mark(SOCKET(sock)->output);
+  STk_gc_mark(SOCKET(sock)->ready_event);
+}
+
+static void free_socket(SCM sock)
+{
+  socket_shutdown(sock, Truth);
+  free(SOCKET(sock));
+}
+
+static void displ_socket(SCM sock, SCM port, int mode)
+{
+  struct socket_type *s = SOCKET(sock);
+
+  sprintf(STk_tkbuffer, "#[socket %s %d]", 
+	  		(s->hostname == Ntruth)?"*none*": CHARS(s->hostname),
+	  		s->portnum);
+  Puts(STk_tkbuffer, PORT_FILE(port));
+}
+
+static STk_extended_scheme_type socket_type = {
+  "socket",		/* name */
+  0, 			/* is_procp */
+  mark_socket, 		/* gc_mark_fct */
+  free_socket,		/* gc_free_fct */
+  NULL,			/* apply_fct */
+  displ_socket		/* display_fct */
+};
+
+/******************************************************************************/
+
+PRIMITIVE STk_init_socket(void)
+{
+#ifdef WIN32
+  int rc;
+  WSADATA wsadata;
+  int optionValue = SO_OPENTYPE;
+    
+  if ((rc = WSAStartup(MAKEWORD(1,1), &wsadata)) != 0) {
+    Err("Socket initialisation failed", STk_makeinteger(rc));
+  }
+
+  /* All sockets have to be synchronous to be readable with stdio. */
+  if ((rc = setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, 
+                       (char *)&optionValue, sizeof(optionValue))) != NO_ERROR) {
+    /* failed for some reason... */
+    Err("Synchronous socket option setting failed", 
+	STk_makeinteger(WSAGetLastError()));
+  }
+#endif
+
+  tc_socket = STk_add_new_type(&socket_type);
+
+  STk_add_new_primitive("make-client-socket",  tc_subr_2,      make_client_socket);
+  STk_add_new_primitive("make-server-socket",  tc_subr_0_or_1, make_server_socket);
+  STk_add_new_primitive("socket-accept-connection",
+		    		               tc_subr_1, socket_accept_connection);
+  STk_add_new_primitive("socket?",	       tc_subr_1,      socketp);
+  STk_add_new_primitive("socket-port-number",  tc_subr_1,      socket_port_number);
+  STk_add_new_primitive("socket-input",        tc_subr_1,      socket_input);
+  STk_add_new_primitive("socket-output",       tc_subr_1,      socket_output);
+  STk_add_new_primitive("socket-host-name",    tc_subr_1,      socket_hostname);
+  STk_add_new_primitive("socket-host-address", tc_subr_1,      socket_host_address);
+  STk_add_new_primitive("socket-shutdown",     tc_subr_1_or_2, socket_shutdown);
+  STk_add_new_primitive("socket-down?",        tc_subr_1,      socket_downp);
+  STk_add_new_primitive("socket-local-address",tc_subr_1,      socket_local_addr);
+  STk_add_new_primitive("socket-dup", 	       tc_subr_1,      socket_dup);
+
+  STk_add_new_primitive("when-socket-ready",   tc_subr_1_or_2, 
+			(STk_snow_is_running)? buggy_handler:  when_socket_ready);
+
+  return UNDEFINED;
+}
diff --git a/Extensions/sregexp.c b/Extensions/sregexp.c
new file mode 100644
index 0000000..6f524bf
--- /dev/null
+++ b/Extensions/sregexp.c
@@ -0,0 +1,116 @@
+/*
+ * sregexp.c -- Regular expressions for STk.
+ * tromey Fri Jul 22 1994
+ *
+ */
+
+#include <stk.h>
+#include "tclRegexp.h"
+
+/*
+ * Regular expression type.  A regular expression is a function that
+ * takes one argument.  It returns #f if no match, or a regular
+ * expression match object on match.
+ */
+
+static void free_regexp (SCM ht);
+static SCM apply_regexp (SCM x, SCM args, SCM env);
+
+static int tc_regexp;
+
+static STk_extended_scheme_type regexp_type = {
+  "regexp",			/* name */
+  EXT_ISPROC | EXT_EVALPARAM,	/* flags */
+  NULL,				/* gc_mark_fct */
+  free_regexp,			/* gc_sweep_fct */
+  apply_regexp,			/* apply_fct */
+  NULL,				/* display_fct */
+  NULL				/* compare_fct */
+};
+
+#define REGEXP(x) 	((struct regexp *) (x)->storage_as.extension.data)
+#define REGEXPP(x) 	(TYPEP((x), tc_regexp))
+
+/*
+ * GC interface.
+ */
+
+static void free_regexp (SCM reg)
+{
+  free (REGEXP (reg));
+}
+
+/*
+ * Return #t if object is a regexp, #f otherwise.
+ */
+static PRIMITIVE regexp_p(SCM obj)
+{
+  return (REGEXPP (obj) ? Truth : Ntruth);
+}
+
+/*
+ * Return compiled form of regexp represented by string.  Error if not
+ * a string, or if regexp has a syntax error.
+ */
+static PRIMITIVE string_to_regexp (SCM obj)
+{
+  struct regexp *r;
+  SCM z;
+
+  if (NSTRINGP (obj)) err ("not a string", obj);
+  
+  if ((r=TclRegComp(CHARS (obj))) == NULL)
+    Err("string->regexp: error compiling regexp", obj);
+  
+  /* Regexp is Ok. Make a new cell and return it */
+  NEWCELL(z, tc_regexp);
+  z->storage_as.extension.data = (void *) r;
+  return z;
+}
+
+/*
+ * Try to match string against regular expression.  Returns sub-match
+ * object, or #f if no match.
+ */
+static PRIMITIVE apply_regexp(SCM regexp, SCM l, SCM env)
+{
+  SCM string;
+  char *the_chars;
+
+  if (STk_llength (l) != 1) err ("apply: bad number of args", l);
+  string = CAR (l);
+
+  if (NSTRINGP (string)) err ("regexp: bad string", string);
+  the_chars = CHARS (string);
+  
+  if (TclRegExec(REGEXP(regexp), the_chars, the_chars)) {
+    struct regexp *r = REGEXP(regexp);
+    SCM z	     = NIL;
+    int i;
+    
+    /* Find the length of the result */
+    for (i=0; r->startp[i]; i++) {/*Nothing*/}
+
+    /* Build result */
+    for (--i; i >= 0; i--) {
+      z = Cons(LIST2(STk_makeinteger(r->startp[i]-the_chars), 
+		     STk_makeinteger(r->endp[i]-the_chars)),
+	       z);
+    }
+    return z;
+  }
+  return Ntruth;
+}
+
+/*
+ * Initialization.
+ */
+
+PRIMITIVE STk_init_sregexp(void)
+{
+  tc_regexp = STk_add_new_type (&regexp_type);
+
+  STk_add_new_primitive ("string->regexp", tc_subr_1, string_to_regexp);
+  STk_add_new_primitive ("regexp?", tc_subr_1, regexp_p);
+  return UNDEFINED;
+}
diff --git a/Extensions/stack.c b/Extensions/stack.c
new file mode 100644
index 0000000..1a2273b
--- /dev/null
+++ b/Extensions/stack.c
@@ -0,0 +1,127 @@
+/*
+ *
+ * s t a c k  . c		-- Implementation of the extended type Stack
+ *
+ */
+
+#include <stk.h>
+
+static void mark_stack(SCM p);
+static void free_stack(SCM p);
+static void display_stack(SCM s, SCM port, int mode);
+static int tc_stack;
+
+static STk_extended_scheme_type stack_type = {
+  "stack",		/* name */
+  0,			/* is_procp */
+  mark_stack,		/* gc_mark_fct */
+  free_stack,		/* gc_sweep_fct */
+  NULL,			/* apply_fct */
+  display_stack		/* display_fct */
+};
+
+#define STACKP(x)	(TYPEP(x, tc_stack))
+#define NSTACKP(x)	(NTYPEP(x, tc_stack))
+#define STACK(x)	((Stack *) EXTDATA(x))
+
+typedef struct {
+  int len;
+  SCM values;
+} Stack;
+
+static void mark_stack(SCM p)
+{
+  STk_gc_mark(STACK(p)->values);
+}
+
+static void free_stack(SCM p)
+{
+  free(EXTDATA(p));
+}
+
+static void display_stack(SCM s, SCM port, int mode)
+{
+  char buffer[100];
+  if (mode == DSP_MODE) {
+    /* A verbose display */
+    if (STACK(s)->len) {
+      sprintf(buffer, "Stack length = %d\nValues = ", STACK(s)->len);
+      Puts(buffer, PORT_FILE(port));
+      STk_display(STACK(s)->values, port);
+    }
+    else 
+      Puts("Stack is empty", PORT_FILE(port));
+  }
+  else { /* WRT_MODE or TK_MODE */
+    sprintf(buffer, "#<stack (length=%d) %ld>", STACK(s)->len, s);
+    Puts(buffer, PORT_FILE(port));
+  }
+}
+
+static PRIMITIVE make_stack(void)
+{
+  SCM z;
+
+  NEWCELL(z, tc_stack);
+  EXTDATA(z)       = STk_must_malloc(sizeof(Stack));
+  STACK(z)->len    = 0;
+  STACK(z)->values = NIL;
+  return z;
+}
+
+static PRIMITIVE stackp(SCM s)
+{
+  return STACKP(s)? Truth: Ntruth;
+}
+
+static PRIMITIVE stack_push(SCM s, SCM val)
+{
+  Stack *sp;
+
+  if (NSTACKP(s)) STk_err("stack-push: bad stack", s);
+
+  sp         =  STACK(s);
+  sp->len   += 1;
+  sp->values = Cons(val, sp->values);
+  
+  return UNDEFINED;
+}
+
+static PRIMITIVE stack_pop(SCM s)
+{
+  Stack *sp;
+  SCM res;
+
+  if (NSTACKP(s)) STk_err("stack-pop: bad stack", s);
+  
+  sp =  STACK(s);
+  
+  if (sp->len == 0) STk_err("stack-pop: empty stack", s);
+  res         = CAR(sp->values);
+  sp->len    -= 1;
+  sp->values  = CDR(sp->values);
+
+  return res;
+}
+
+static PRIMITIVE stack_emptyp(SCM s)
+{
+  if (NSTACKP(s)) STk_err("stack-empty?: bad stack", s);
+  return (STACK(s)->len) ? Truth: Ntruth;
+}
+
+
+PRIMITIVE STk_init_stack(void)
+{
+  /* Register the new type */
+  tc_stack = STk_add_new_type(&stack_type);
+  
+  /* Declare new primitives */
+  STk_add_new_primitive("make-stack",     tc_subr_0,      make_stack);
+  STk_add_new_primitive("stack?",	  tc_subr_1,      stackp);
+  STk_add_new_primitive("stack-push!",    tc_subr_2,      stack_push);
+  STk_add_new_primitive("stack-pop",      tc_subr_1,      stack_pop);
+  STk_add_new_primitive("stack-empty?",   tc_subr_1,      stack_emptyp);
+  
+  return UNDEFINED;
+}
diff --git a/Extensions/time.c b/Extensions/time.c
new file mode 100644
index 0000000..551b657
--- /dev/null
+++ b/Extensions/time.c
@@ -0,0 +1,24 @@
+#include <stk.h>
+#include <sys/types.h>
+#include <sys/time.h>
+#include <time.h>
+
+static PRIMITIVE get_time(void)
+{
+  return STk_makeinteger((long) time(NULL));
+}
+
+static PRIMITIVE time_string(void)
+{
+  time_t t= time(NULL);
+  char *s;
+
+  s = ctime(&t); s[24] = '\0';
+  return STk_makestring(s);
+}
+
+PRIMITIVE STk_init_time(void)
+{
+  STk_add_new_primitive("get-time",	   tc_subr_0, get_time);
+  STk_add_new_primitive("time-string", tc_subr_0, time_string);
+}
diff --git a/Extensions/when.c b/Extensions/when.c
new file mode 100644
index 0000000..1f192d8
--- /dev/null
+++ b/Extensions/when.c
@@ -0,0 +1,37 @@
+#include <stk.h>
+
+static PRIMITIVE STk_when(SCM l, SCM env)
+{
+  SCM res = UNDEFINED;
+
+  if (NULLP(l)) Err("when: no argument list given", NIL);
+  if (STk_eval(CAR(l), env) != Ntruth) {
+    if (NULLP(l = CDR(l))) Err("when: null body", NIL);
+    
+    /* Argument list is well formed. Evaluates each expression of the body */
+    for (  ; !NULLP(l); l = CDR(l))
+      res = STk_eval(CAR(l), env);
+  }
+  return res;
+}
+
+static PRIMITIVE STk_unless(SCM l, SCM env)
+{
+  SCM res = UNDEFINED;
+
+  if (!NULLP(l)) {
+    if (STk_eval(CAR(l), env) == Ntruth) {
+      for (l = CDR(l); !NULLP(l); l = CDR(l)) {
+	res = STk_eval(CAR(l), env);
+      }
+    }
+  }
+  return res;
+}
+
+  
+void STk_init_when(void)
+{
+  STk_add_new_primitive("when", 	   tc_fsubr, STk_when);
+  STk_add_new_primitive("unless",	   tc_fsubr, STk_unless);
+}
diff --git a/Help/BlueIndex.html b/Help/BlueIndex.html
new file mode 100644
index 0000000..088815a
--- /dev/null
+++ b/Help/BlueIndex.html
@@ -0,0 +1,18 @@
+<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookBlue.gif>The <I>STk</I> blue pages</H2><HR><PRE>
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A>       <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A>    <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A>      
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A>          
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A>        
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A>     
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A>        
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A>          
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A>    <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A>          
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A>      <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A>      <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A>             <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A>       <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>             
+</PRE>
+</UL>
+</UL>
diff --git a/Help/GreenIndex.html b/Help/GreenIndex.html
new file mode 100644
index 0000000..5831f38
--- /dev/null
+++ b/Help/GreenIndex.html
@@ -0,0 +1,7 @@
+<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookGreen.gif>The <I>STk</I> green pages</H2><HR><PRE>
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A>     <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A>       <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A>    
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A>    <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A>        <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A>          
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A>   
+</PRE>
+</UL>
+</UL>
diff --git a/Help/Img/BlueBall.gif b/Help/Img/BlueBall.gif
new file mode 100644
index 0000000..978dcdb
Binary files /dev/null and b/Help/Img/BlueBall.gif differ
diff --git a/Help/Img/GreenBall.gif b/Help/Img/GreenBall.gif
new file mode 100644
index 0000000..0882c17
Binary files /dev/null and b/Help/Img/GreenBall.gif differ
diff --git a/Help/Img/ManPageBlue.gif b/Help/Img/ManPageBlue.gif
new file mode 100644
index 0000000..cc1154c
Binary files /dev/null and b/Help/Img/ManPageBlue.gif differ
diff --git a/Help/Img/ManPageGreen.gif b/Help/Img/ManPageGreen.gif
new file mode 100644
index 0000000..74af6d6
Binary files /dev/null and b/Help/Img/ManPageGreen.gif differ
diff --git a/Help/Img/ManPageWhite.gif b/Help/Img/ManPageWhite.gif
new file mode 100644
index 0000000..569d014
Binary files /dev/null and b/Help/Img/ManPageWhite.gif differ
diff --git a/Help/Img/ManPageYellow.gif b/Help/Img/ManPageYellow.gif
new file mode 100644
index 0000000..f016e76
Binary files /dev/null and b/Help/Img/ManPageYellow.gif differ
diff --git a/Help/Img/RefBookBlue.gif b/Help/Img/RefBookBlue.gif
new file mode 100644
index 0000000..b4fa02b
Binary files /dev/null and b/Help/Img/RefBookBlue.gif differ
diff --git a/Help/Img/RefBookGreen.gif b/Help/Img/RefBookGreen.gif
new file mode 100644
index 0000000..3f7e971
Binary files /dev/null and b/Help/Img/RefBookGreen.gif differ
diff --git a/Help/Img/RefBookWhite.gif b/Help/Img/RefBookWhite.gif
new file mode 100644
index 0000000..e108815
Binary files /dev/null and b/Help/Img/RefBookWhite.gif differ
diff --git a/Help/Img/RefBookYellow.gif b/Help/Img/RefBookYellow.gif
new file mode 100644
index 0000000..48b8f81
Binary files /dev/null and b/Help/Img/RefBookYellow.gif differ
diff --git a/Help/Img/STk-small.gif b/Help/Img/STk-small.gif
new file mode 100644
index 0000000..bf23cdd
Binary files /dev/null and b/Help/Img/STk-small.gif differ
diff --git a/Help/Img/WhiteBall.gif b/Help/Img/WhiteBall.gif
new file mode 100644
index 0000000..7a3a11d
Binary files /dev/null and b/Help/Img/WhiteBall.gif differ
diff --git a/Help/Img/YellowBall.gif b/Help/Img/YellowBall.gif
new file mode 100644
index 0000000..f98d612
Binary files /dev/null and b/Help/Img/YellowBall.gif differ
diff --git a/Help/Img/back.gif b/Help/Img/back.gif
new file mode 100644
index 0000000..d3c7071
Binary files /dev/null and b/Help/Img/back.gif differ
diff --git a/Help/Img/classeur.gif b/Help/Img/classeur.gif
new file mode 100644
index 0000000..96c96e7
Binary files /dev/null and b/Help/Img/classeur.gif differ
diff --git a/Help/Img/colorline.gif b/Help/Img/colorline.gif
new file mode 100644
index 0000000..66ece16
Binary files /dev/null and b/Help/Img/colorline.gif differ
diff --git a/Help/Img/home.gif b/Help/Img/home.gif
new file mode 100644
index 0000000..6784f5b
Binary files /dev/null and b/Help/Img/home.gif differ
diff --git a/Help/Img/line-red.gif b/Help/Img/line-red.gif
new file mode 100644
index 0000000..3509516
Binary files /dev/null and b/Help/Img/line-red.gif differ
diff --git a/Help/Img/note.gif b/Help/Img/note.gif
new file mode 100644
index 0000000..154ca23
Binary files /dev/null and b/Help/Img/note.gif differ
diff --git a/Help/Img/smile.sad.gif b/Help/Img/smile.sad.gif
new file mode 100644
index 0000000..61b2494
Binary files /dev/null and b/Help/Img/smile.sad.gif differ
diff --git a/Help/Makefile b/Help/Makefile
new file mode 100644
index 0000000..83b8c6f
--- /dev/null
+++ b/Help/Makefile
@@ -0,0 +1,32 @@
+#
+# STk/Lib Makefile
+#
+#            Author: Erick Gallesio [eg@unice.fr]
+#     Creation date:  2-Oct-1995 21:17  
+#  Last file update: 24-Jul-1996 17:55
+
+include ../config.make
+
+HLP_DIR=$(libdir)/Help
+
+lib: 
+
+install:
+	-if [ ! -d $(HLP_DIR) ] ; then mkdir -p $(HLP_DIR); fi
+	chmod 0555 $(HLP_DIR)
+	$(CP) *.html $(HLP_DIR)
+	chmod 0644 $(HLP_DIR)/*.html
+	-if [ ! -d $(HLP_DIR)/Img ] ; then mkdir -p $(HLP_DIR)/Img; fi
+	chmod 0555 $(HLP_DIR)/Img
+	$(CP) Img/*.gif $(HLP_DIR)/Img
+	chmod 0644  $(HLP_DIR)/Img/*.gif
+
+install.libs:
+
+clean:
+	rm -f index.html
+
+very-clean: clean
+
+
+
diff --git a/Help/STk-hlp.html b/Help/STk-hlp.html
new file mode 100644
index 0000000..9d64b4f
--- /dev/null
+++ b/Help/STk-hlp.html
@@ -0,0 +1,69 @@
+<HTML>
+<TITLE>STk Help main page</TITLE>
+
+<BODY BACKGROUND="Img/classeur.gif">
+<UL>
+<UL>
+<H1> STk help</H1>
+<BR>
+
+STk help is organized in several <I>``volumes''</I>:
+<P>
+<UL>
+<IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif">
+<B><A HREF=./BlueIndex.html> The blue pages</A></B>
+describe the Tk commands and Tk widgets. Tk commands and Tk widgets
+are implemented in the (STk modified) Tk toolkit.
+</UL>
+<UL>
+<IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> <B>
+<A HREF=./GreenIndex.html>The green pages</B></A> describe Tk related
+procedures which are implemented in Scheme. These procedures are
+located in the STk library directory and are defined as autoload
+procedures.  This directory must appear in your <TT>*load-path*</TT>
+variable if you want to use these procedures.
+</UL>
+<UL>
+<IMG ALIGN=BOTTOM SRC="./Img/RefBookYellow.gif"> 
+<B><A HREF=./YellowIndex.html>The yellow pages</B></A>
+describe <B>STk</B> run-time procedures which are not described in the Reference
+Manual (<B>STk</B> extensions or libraries). The way to load these procedure is
+describe in each specific page.
+<B>This is just a start and further pages will be described her in the future</B>
+
+<P>
+</UL>
+
+<BR>
+Hereafter is the complete list of STk help pages currently available:
+
+
+<PRE>
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A>       <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A>    <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A>      
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A>          
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A>     <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A>          <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A>            
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A>          
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A>        <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A>       
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A>          <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A>    <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A>     <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>         
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A>    <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A>           
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A>        <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A>          
+<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A>          <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A>    
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A>          <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A>   <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A>          
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A>      <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A>      <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A>           
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A>           <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A>             <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A>         <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A>       <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A>         
+<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A>          <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>             
+</PRE>
+</UL>
+</UL>
+<UL>
+<UL>
+	      You can also find the <b>STk</b> interpreter man page 
+     <A HREF="stk.1.html">here</a>.
+<HR>
+      Page created by Erick Gallesio 
+      <A HREF="mailto:eg@unice.fr">&lt;eg@unice.fr&gt;</a>
+
diff --git a/Help/YellowIndex.html b/Help/YellowIndex.html
new file mode 100644
index 0000000..91e12a5
--- /dev/null
+++ b/Help/YellowIndex.html
@@ -0,0 +1,5 @@
+<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookYellow.gif>The <I>STk</I> yellow pages</H2><HR><PRE>
+<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A>            <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>          
+</PRE>
+</UL>
+</UL>
diff --git a/Help/after.n.html b/Help/after.n.html
new file mode 100644
index 0000000..3b66351
--- /dev/null
+++ b/Help/after.n.html
@@ -0,0 +1,82 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - after manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> after</H2>
+<I>Execute a command after a time delay</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>after </B><I>ms</I>)<BR>
+(<B>after </B><I>ms </I><I>thunk</I>)<BR>
+(<B>after 'cancel </B><I>id</I>)<BR>
+(<B>after 'cancel </B><I>thunk)</I><BR>
+(<B>after 'idle </B>?<I>thunk</I>?)<BR>
+(<B>after info</B>)<BR>
+(<B>after info </B><I>id</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>after</B> procedure is used to delay execution of the program or to execute
+a procedure in background after a delay.  It has several forms,
+depending on the first argument to the procedure:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>after </B><I>ms</I>)</A><DD>
+<I>Ms</I> must be an integer giving a time in milliseconds.
+The procedure sleeps for <I>ms</I> milliseconds and then returns.
+While the procedure is sleeping the application does not respond to
+X events or any other events.
+<P>
+<DT><A NAME="M5">(<B>after </B><I>ms thunk</I>)</A><DD>
+In this form the procedure returns immediately, but it arranges
+for a STk procedure to be executed <I>ms</I> milliseconds later as a
+background event handler.
+The procedure will be executed exactly once, at the given time.
+The delayed procedure must be a <I>thunk</I>.
+If an error occurs while executing the delayed procedure then the
+<B>tkerror</B> mechanism is used to report the error.
+The <B>after</B> procedure returns a symbol that can be used
+to cancel the delayed procedure using <B>after cancel</B>.
+<P>
+<DT><A NAME="M6">(<B>after 'cancel </B><I>id</I>)</A><DD>
+Cancels the execution of a delayed procedure that
+was previously scheduled.
+<I>Id</I> indicates which procedure should be canceled;  it must have
+been the return value from a previous <B>after</B> procedure.
+If the procedure given by <I>id</I> has already been executed then
+the <B>after cancel</B> procedure has no effect.
+<P>
+<DT><A NAME="M7">(<B>after 'cancel </B><I>thunk</I>)</A><DD>
+This procedure also cancels the execution of a delayed procedure. If there is
+a pending procedure that matches <I>thunk</I>, it is cancelled and will
+never be executed; if no such procedure is currently
+pending then the <B>after cancel</B> procedure has no effect.
+<P>
+<DT><A NAME="M8">(<B>after 'idle </B><I>thunk</I>)</A><DD>
+Arranges for the given <I>thunk</I> to be evaluated later as an idle handler
+The script will be run exactly once, the next time the Tk event
+loop is entered and there are no events to process.
+The procedure returns an identifier that can be used
+to cancel the delayed procedure using <B>after cancel</B>.
+If an error occurs while executing the script then the
+<B>tkerror</B> mechanism is used to report the error.
+<P>
+<DT><A NAME="M9">(<B>after 'info </B><I>id</I>)</A><DD>
+<DT><A NAME="M10">(<B>after 'info</B>)</A><DD>
+This procedure returns information about existing event handlers.
+If no <I>id</I> argument is supplied, then the procedure returns
+a list of the identifiers for all existing
+event handlers created by the <B>after</B> procedure for this
+interpreter.
+If <I>id</I> is supplied, it specifies an existing handler;
+<I>id</I> must have been the return value from some previous call
+to <B>after</B> and it must not have triggered yet or been cancelled.
+In this case the procedure returns a list with two elements.
+The first element of the list is the script associated
+with <I>id</I>, and the second element is either
+<B>idle</B> or <B>timer</B> to indicate what kind of event
+handler it is.
+
+
+<P>
+</DL>
+<H3><A NAME="M11">SEE ALSO</A></H3>
+<B>tkerror</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/amib-abt.html b/Help/amib-abt.html
new file mode 100644
index 0000000..3f6ddb8
--- /dev/null
+++ b/Help/amib-abt.html
@@ -0,0 +1,17 @@
+<HTML>
+<HEAD>
+<TITLE>AMIB (A Mini Interface Builder) ( 2-Oct-1995)</TITLE>
+<!-- Created by: Erick Gallesio,  1-Oct-1995 -->
+<!-- Changed by: Erick Gallesio,  2-Oct-1995 -->
+
+</HEAD>
+<BODY>
+<center><H1>AMIB (A Mini Interface Builder)</H1></center>
+
+This is only a simple demo. A volunteer to make it more friendly would 
+be greatly appreciated.
+<hr>
+<address>Erick Gallesio (eg@unice.fr)</address>
+
+</BODY>
+</HTML>
\ No newline at end of file
diff --git a/Help/amib-hlp.html b/Help/amib-hlp.html
new file mode 100644
index 0000000..5778ef4
--- /dev/null
+++ b/Help/amib-hlp.html
@@ -0,0 +1,39 @@
+<HTML>
+<HEAD>
+<TITLE>AMIB (A Mini Interface Builder) ( 5-Jul-1996)</TITLE>
+<!-- Created by: Erick Gallesio,  1-Oct-1995 -->
+<!-- Changed by: Erick Gallesio,  5-Jul-1996 -->
+
+</HEAD>
+<BODY>
+<center><H1>AMIB (A Mini Interface Builder)</H1></center>
+
+Amib is a mini interface builder which allows you to create a simple GUI by using
+only the mouse and Drag and Drop. Once you have created your interface, you can 
+save it in a file to reuse it latter. 
+<br>
+Heareafter are listed the main action available on the mouse.
+<ul>
+<li>To create a widget, click on the widget listbox and drop the widget on
+the window labeled <B>Toplevel #x</B>.
+
+<li>To resize a widget, place the mouse on the desired widget and
+click on <TT>&lt;Shift-1&gt;</TT>. Handles will appear on the widget
+to allow you to resize it.
+
+<li>To move a widget, place the mouse on the desired widget and click on 
+<TT>&lt;Shift-1&gt;</TT>. The central handle permits to move the widget.
+
+<li>To customize a widget, click on <TT>&lt;Button-2&gt;</TT> (or 
+<TT>&lt;Shift-Button-3&gt;</TT> if you have a 2 buttons mouse). 
+A menu will appear. Using <B>Packed</B> will use the <I>pack</I> geometry manager 
+rather than <I>place</I> which is used by default.
+
+<li>To delete a widget, place the mouse on the desired widget and click on 
+<TT>&lt;Button-3&gt;</TT>.
+</ul>
+<hr>
+<address>Erick Gallesio <eg@unice.fr></address>
+
+</BODY>
+</HTML>
\ No newline at end of file
diff --git a/Help/bell.n.html b/Help/bell.n.html
new file mode 100644
index 0000000..fc12b67
--- /dev/null
+++ b/Help/bell.n.html
@@ -0,0 +1,21 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - bell manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> bell</H2>
+<I>Ring a display's bell</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>bell</B>)<BR>
+(<B>bell </B><B>:displayof </B><I>window</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure rings the bell on the display for <I>window</I> and
+returns an empty string.
+If the <B>:displayof</B> option is omitted, the display of the
+application's main window is used by default.
+The procedure uses the current bell-related settings for the display, which
+may be modified with programs such as <B>xset</B>.
+<P>
+This procedure also resets the screen saver for the screen.  Some
+screen savers will ignore this, but others will reset so that the
+screen becomes visible again.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/bind.n.html b/Help/bind.n.html
new file mode 100644
index 0000000..ce30166
--- /dev/null
+++ b/Help/bind.n.html
@@ -0,0 +1,410 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - bind manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> bind</H2>
+<I>Arrange for X events to invoke STk scripts</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>bind</B><I> tag</I>)<BR>
+(<B>bind</B><I> tag sequence</I>)<BR>
+(<B>bind</B><I> tag sequence script</I>)<BR>
+<H3><A NAME="M3">INTRODUCTION</A></H3>
+The <B>bind</B> procedure associates STk scripts with X events.
+If all three arguments are specified, <B>bind</B> will
+arrange for <I>script</I> (a STk script) to be evaluated whenever
+the event(s) given by <I>sequence</I> occur in the window(s)
+identified by <I>tag</I>.
+If is specified for a given sequence, it replaces
+the previous binding.
+If <I>script</I> is an empty string then the current binding for
+<I>sequence</I> is destroyed, leaving <I>sequence</I> unbound.
+In all of the cases where a <I>script</I> argument is provided,
+<B>bind</B> returns an empty list.
+<P>
+If <I>sequence</I> is specified without a <I>script</I>, then the
+script currently bound to <I>sequence</I> is returned, or
+an empty list is returned if there is no binding for <I>sequence</I>.
+If neither <I>sequence</I> nor <I>script</I> is specified, then the
+return value is a list whose elements are all the sequences
+for which there exist bindings for <I>tag</I>.
+<P>
+The <I>tag</I> argument determines which window(s) the binding applies to.
+If <I>tag</I> begins with a dot, as in <B>.a.b.c</B>, then it must
+be the path name for a window; otherwise it may be an arbitrary
+string.
+Each window has an associated list of tags, and a binding applies
+to a particular window if its tag is among those specified for
+the window.
+Although the <B><A HREF="./bindtags.n.html">bindtags</A></B> procedure may be used to assign an
+arbitrary set of binding tags to a window, the default binding
+tags provide the following behavior:
+<UL>
+<P>
+If a tag is the name of an internal window the binding applies
+to that window.
+<P>
+If the tag is the name of a toplevel window the binding applies
+to the toplevel window and all its internal windows.
+<P>
+If the tag is the name of a class of widgets, such as <B><A HREF="./button.n.html">Button</A></B>,
+the binding applies to all widgets in that class;
+<P>
+If <I>tag</I> has the value <B>&quot;all&quot;</B>,
+the binding applies to all windows in the application.
+
+</UL>
+<H3><A NAME="M4">EVENT PATTERNS</A></H3>
+The <I>sequence</I> argument specifies a sequence of one or more
+event patterns, with optional white space between the patterns.  Each
+event pattern may
+take either of two forms.  In the simplest case it is a single
+printing ASCII character, such as <B>a</B> or <B>[</B>.  The character
+may not be a space character or the character <B>&lt;</B>.  This form of
+pattern matches a <B>KeyPress</B> event for the particular
+character.  The second form of pattern is longer but more general.
+It has the following syntax:
+<PRE><B>&lt;</B><I>modifier-modifier-type-detail</I><B>&gt;</B></PRE>
+The entire event pattern is surrounded by angle brackets.
+Inside the angle brackets are zero or more modifiers, an event
+type, and an extra piece of information (<I>detail</I>) identifying
+a particular button or keysym.  Any of the fields may be omitted,
+as long as at least one of <I>type</I> and <I>detail</I> is present.
+The fields must be separated by white space or dashes.
+
+<H3><A NAME="M5">MODIFIERS</A></H3>
+Modifiers consist of any of the following values:
+<PRE><B>Control</B>	 	<B>Mod2, M2</B>
+<B>Shift</B>		<B>Mod3, M3</B>	
+<B>Lock</B> 		<B>Mod4, M4</B>
+<B>Button1, B1</B>	<B>Mod5, M5</B>	
+<B>Button2, B2</B>	<B>Meta, M</B>
+<B>Button3, B3</B>	<B>Alt</B>
+<B>Button4, B4</B>	<B>Double</B>
+<B>Button5, B5</B>	<B>Triple</B>
+<B>Mod1, M1</B></PRE>
+Where more than one value is listed, separated by commas, the values
+are equivalent.
+Most of the modifiers have the obvious X meanings.
+For example, <B>Button1</B> requires that
+button 1 be depressed when the event occurs.
+For a binding to match a given event, the modifiers in the event
+must include all of those specified in the event pattern.
+An event may also contain additional modifiers not specified in
+the binding.
+For example, if button 1 is pressed while the shift and control keys
+are down, the pattern <B>&lt;Control-Button-1&gt;</B> will match
+the event, but <B>&lt;Mod1-Button-1&gt;</B> will not.
+If no modifiers are specified, then any combination of modifiers may
+be present in the event.
+<P>
+<B>Meta</B> and <B>M</B> refer to whichever of the
+<B>M1</B> through <B>M5</B> modifiers is associated with the meta
+key(s) on the keyboard (keysyms <B>Meta_R</B> and <B>Meta_L</B>).
+If there are no meta keys, or if they are not associated with any
+modifiers, then <B>Meta</B> and <B>M</B> will not match any events.
+Similarly, the <B>Alt</B> modifier refers to whichever modifier
+is associated with the alt key(s) on the keyboard (keysyms
+<B>Alt_L</B> and <B>Alt_R</B>).
+<P>
+The <B>Double</B> and <B>Triple</B> modifiers are a convenience
+for specifying double mouse clicks and other repeated
+events. They cause a particular event pattern to be
+repeated 2 or 3 times, and also place a time and space requirement
+on the sequence:  for a sequence of events to match a <B>Double</B>
+or <B>Triple</B> pattern, all of the events must occur close together
+in time and without substantial mouse motion in between.
+For example, <B>&lt;Double-Button-1&gt;</B>
+is equivalent to <B>&lt;Button-1&gt;&lt;Button-1&gt;</B> with the extra
+time and space requirement.
+
+<H3><A NAME="M6">EVENT TYPES</A></H3>
+The <I>type</I> field may be any of the standard X event types, with a
+few extra abbreviations.  Below is a list of all the val%id types;
+where two names appear together, they are synonyms.
+<PRE><B>ButtonPress, Button	Expose	Map
+ButtonRelease	FocusIn	Motion
+Circulate	FocusOut	Property	
+Colormap	Gravity	Reparent
+Configure	KeyPress, Key	Unmap
+Destroy	KeyRelease	Visibility
+Enter	Leave</B></PRE>
+<P>
+The last part of a long event specification is <I>detail</I>.  In the
+case of a <B>ButtonPress</B> or <B>ButtonRelease</B> event, it is the
+number of a button (1-5).  If a button number is given, then only an
+event on that particular button will match;  if no button number is
+given, then an event on any button will match.  Note:  giving a
+specific button number is different than specifying a button modifier;
+in the first case, it refers to a button being pressed or released,
+while in the second it refers to some other button that is already
+depressed when the matching event occurs.  If a button
+number is given then <I>type</I> may be omitted:  if will default
+to <B>ButtonPress</B>.  For example, the specifier <B>&lt;1&gt;</B>
+is equivalent to <B>&lt;ButtonPress-1&gt;</B>.
+<P>
+If the event type is <B>KeyPress</B> or <B>KeyRelease</B>, then
+<I>detail</I> may be specified in the form of an X keysym.  Keysyms
+are textual specifications for particular keys on the keyboard;
+they include all the alphanumeric ASCII characters (e.g. ``a'' is
+the keysym for the ASCII character ``a''), plus descriptions for
+non-alphanumeric characters (``comma'' is the keysym for the comma
+character), plus descriptions for all the non-ASCII keys on the
+keyboard (``Shift_L'' is the keysm for the left shift key, and
+``F1'' is the keysym for the F1 function key, if it exists).  The
+complete list of keysyms is not presented here;  it is
+available in other X documentation and may vary from system to
+system.
+If necessary, you can use the <B>|K|</B> closure parameter described below
+to print out the keysym name for a particular key.
+If a keysym <I>detail</I> is given, then the
+<I>type</I> field may be omitted;  it will default to <B>KeyPress</B>.
+For example, <B>&lt;Control-comma&gt;</B> is equivalent to
+<B>&lt;Control-KeyPress-comma&gt;</B>.
+
+<H3><A NAME="M7">BINDING SCRIPTS AND SUBSTITUTIONS</A></H3>
+The <I>script</I> argument to <B>bind</B> must be a closure, which will
+be executed whenever the given event sequence occurs. The closure can
+have parameters. Those parameters are one character symbols (with
+convention which are described below). Parameter list will be
+evaluated just before the script is fired. Note that some parameters
+are only valid for certain types of events; if they are used for other
+types of events the value substituted is undefined.
+
+<P>
+<DL>
+<DT><A NAME="M8"><B>%</B></A><DD>
+Replaced with a single percent.
+<P>
+<DT><A NAME="M9"><B>#</B></A><DD>
+The number of the last client request processed by the server
+(the <I>serial</I> field from the event).  Valid for all event
+types.
+<P>
+<DT><A NAME="M10"><B>a</B></A><DD>
+The <I>above</I> field from the event,
+formatted as a hexadecimal number.
+Valid only for <B>Configure</B> events.
+<P>
+<DT><A NAME="M11"><B>b</B></A><DD>
+The number of the button that was pressed or released.  Valid only
+for <B>ButtonPress</B> and <B>ButtonRelease</B> events.
+<P>
+<DT><A NAME="M12"><B>c</B></A><DD>
+The <I>count</I> field from the event.  Valid only for <B>Expose</B> events.
+<P>
+<DT><A NAME="M13"><B>d</B></A><DD>
+The <I>detail</I> field from the event.  The <B>d</B> is replaced by
+a string identifying the detail.  For <B>Enter</B>,
+<B>Leave</B>, <B>FocusIn</B>, and <B>FocusOut</B> events,
+the string will be one of the following:
+<P>
+<UL>
+<PRE><B>NotifyAncestor	NotifyNonlinearVirtual
+NotifyDetailNone	NotifyPointer
+NotifyInferior	NotifyPointerRoot
+NotifyNonlinear	NotifyVirtual</B></PRE>
+For events other than these, the substituted string is undefined.
+</UL>
+<DT><A NAME="M14"><B>f</B></A><DD>
+The <I>focus</I> field from the event (<B>#f</B> or <B>#t</B>).  Valid only
+for <B>Enter</B> and <B>Leave</B> events.
+<P>
+<DT><A NAME="M15"><B>h</B></A><DD>
+The <I>height</I> field from the event.  Valid only for <B>Configure</B>,
+<B>Expose</B>, and <B>GraphicsExpose</B> events.
+<P>
+<DT><A NAME="M16"><B>k</B></A><DD>
+The <I>keycode</I> field from the event.  Valid only for <B>KeyPress</B>
+and <B>KeyRelease</B> events.
+<P>
+<DT><A NAME="M17"><B>m</B></A><DD>
+The <I>mode</I> field from the event.  The substituted string is one of
+<B>NotifyNormal</B>, <B>NotifyGrab</B>, <B>NotifyUngrab</B>, or
+<B>NotifyWhileGrabbed</B>.  Valid only for <B>EnterWindow</B>,
+<B>FocusIn</B>, <B>FocusOut</B>, and <B>LeaveWindow</B> events.
+<P>
+<DT><A NAME="M18"><B>o</B></A><DD>
+The <I>override_redirect</I> field from the event.  Valid only for
+<B>Map</B>, <B>Reparent</B>, and <B>Configure</B> events.
+<P>
+<DT><A NAME="M19"><B>p</B></A><DD>
+The <I>place</I> field from the event, substituted as one of the
+strings <B>PlaceOnTop</B> or <B>PlaceOnBottom</B>.  Valid only
+for <B>Circulate</B> events.
+<P>
+<DT><A NAME="M20"><B>s</B></A><DD>
+The <I>state</I> field from the event.  For <B>ButtonPress</B>,
+<B>ButtonRelease</B>, <B>Enter</B>, <B>KeyPress</B>, <B>KeyRelease</B>,
+<B>Leave</B>, and <B>Motion</B> events,
+a decimal string
+is substituted.  For <B>Visibility</B>, one of the strings
+<B>VisibilityUnobscured</B>, <B>VisibilityPartiallyObscured</B>,
+and <B>VisibilityFullyObscured</B> is substituted.
+<P>
+<DT><A NAME="M21"><B>t</B></A><DD>
+The <I>time</I> field from the event.  Valid only for events that
+contain a <I>time</I> field.
+<P>
+<DT><A NAME="M22"><B>w</B></A><DD>
+The <I>width</I> field from the event.  Valid only for
+<B>Configure</B>, <B>Expose</B>, and <B>GraphicsExpose</B> events.
+<P>
+<DT><A NAME="M23"><B>x</B></A><DD>
+The <I>x</I> field from the event.  Valid only for events containing
+an <I>x</I> field.
+<P>
+<DT><A NAME="M24"><B>y</B></A><DD>
+The <I>y</I> field from the event.  Valid only for events containing
+a <I>y</I> field.
+<P>
+<DT><A NAME="M25"><B>A</B></A><DD>
+Substitutes the ASCII character corresponding to the event, or
+the empty string if the event doesn't correspond to an ASCII character
+(e.g. the shift key was pressed).  <B>XLookupString</B> does all the
+work of translating from the event to an ASCII character.
+Valid only for <B>KeyPress</B> and <B>KeyRelease</B> events.
+<P>
+<DT><A NAME="M26"><B>B</B></A><DD>
+The <I>border_width</I> field from the event.  Valid only for
+<B>Configure</B> events.
+<P>
+<DT><A NAME="M27"><B>E</B></A><DD>
+The <I>send_event</I> field from the event.  Valid for all event types.
+<P>
+<DT><A NAME="M28"><B>K</B></A><DD>
+The keysym corresponding to the event, substituted as a textual
+string.  Valid only for <B>KeyPress</B> and <B>KeyRelease</B> events.
+<P>
+<DT><A NAME="M29"><B>N</B></A><DD>
+The keysym corresponding to the event, substituted as
+a decimal
+number.  Valid only for <B>KeyPress</B> and <B>KeyRelease</B> events.
+<P>
+<DT><A NAME="M30"><B>R</B></A><DD>
+The <I>root</I> window identifier from the event.  Valid only for
+events containing a <I>root</I> field.
+<P>
+<DT><A NAME="M31"><B>S</B></A><DD>
+The <I>subwindow</I> window identifier from the event,
+formatted as a hexadecimal number.
+Valid only for events containing a <I>subwindow</I> field.
+<P>
+<DT><A NAME="M32"><B>T</B></A><DD>
+The <I>type</I> field from the event.  Valid for all event types.
+<P>
+<DT><A NAME="M33"><B>W</B></A><DD>
+The path name of the window to which the event was reported (the
+<I>window</I> field from the event).  Valid for all event types.
+<P>
+<DT><A NAME="M34"><B>X</B></A><DD>
+The <I>x_root</I> field from the event.
+If a virtual-root window manager is being used then the substituted
+value is the corresponding x-coordinate in the virtual root.
+Valid only for
+<B>ButtonPress</B>, <B>ButtonRelease</B>, <B>KeyPress</B>, <B>KeyRelease</B>,
+and <B>Motion</B> events.
+<P>
+<DT><A NAME="M35"><B>Y</B></A><DD>
+The <I>y_root</I> field from the event.
+If a virtual-root window manager is being used then the substituted
+value is the corresponding y-coordinate in the virtual root.
+Valid only for
+<B>ButtonPress</B>, <B>ButtonRelease</B>, <B>KeyPress</B>, <B>KeyRelease</B>,
+and <B>Motion</B> events.
+<P>
+</DL>
+<P>
+The following example show how to display a message each time the l1 or l2 label is entered: 
+<PRE>(pack (label '.l1 :text &quot;One&quot;))
+(pack (label '.l2 :text &quot;Two&quot;))
+(let ((mess (lambda (|W| x y)
+              (format #t &quot;Entering ~S x=~a y=~a\n&quot; |W| x y))))
+  (bind .l1 &quot;&lt;Enter&gt;&quot; mess)
+  (bind .l2 &quot;&lt;Enter&gt;&quot; mess))</PRE>
+<B>Note the usage of the &quot;|&quot; convention for the symbol parameters which must be in left in
+upper-case.</B>
+
+<H3><A NAME="M36">MULTIPLE MATCHES</A></H3>
+It is possible for several bindings to match a given X event.
+If the bindings are associated with different <I>tag</I>'s,
+then each of the bindings will be executed, in order.
+By default, a binding for the widget will be executed first, followed
+by a class binding, a binding for its toplevel, and
+an <B>all</B> binding.
+The <B><A HREF="./bindtags.n.html">bindtags</A></B> procedure may be used to change this order for
+a particular window or to associate additional binding tags with
+the window.
+<P>
+If the binding procedure result is the symbol <B>break</B>, then no
+other scripts will be invoked for the event.
+<P>
+If more than one binding matches a particular event and they
+have the same <I>tag</I>, then the most specific binding
+is chosen and its script is evaluated.
+The following tests are applied, in order, to determine which of
+several matching sequences is more specific:
+(a) a longer sequence (in terms of number
+of events matched) is more specific than a shorter sequence;
+(b) an event pattern that specifies a specific button or key is more specific
+than one that doesn't;
+(c) if the modifiers specified in one pattern are a subset of the
+modifiers in another pattern, then the pattern with more modifiers
+is more specific.
+If the matching sequences contain more than
+one event, then tests (c)-(e) are applied in order from the most
+recent event to the least recent event in the sequences.  If these
+tests fail to determine a winner, then the most recently registered
+sequence is the winner.
+<P>
+If an X event does not match any of the existing bindings, then the
+event is ignored.
+An unbound event is not considered to be an error.
+
+<P>
+The following example illustrates how to use the <B>break</B> symbol to
+break a binding chain.
+<PRE>(pack (entry '.e))
+(bind .e &quot;&lt;KeyPress&gt;&quot; (lambda (|A|)
+                        (unless (string-&gt;number |A|) 'break)))</PRE>
+Bindings for the entry <B>.e</B> are executed before those for its
+class (i.e. <B><A HREF="./entry.n.html">Entry</A></B>). This allows us to filter the characters
+which are effectively passed to the <B>.e</B> widget. The test in this
+binding closure breaks the chain of bindings if the typed character is
+not a digit. Otherwise, the following binding, the one for the
+<B><A HREF="./entry.n.html">Entry</A></B> class, is executed and inserts the character typed (a
+digit).
+Consequently, the simple previous binding makes <B>.e</B> a
+controlled entry which only accepts integer numbers.
+
+
+<H3><A NAME="M37">MULTI-EVENT SEQUENCES AND IGNORED EVENTS</A></H3>
+When a <I>sequence</I> specified in a <B>bind</B> procedure contains
+more than one event pattern, then its script is executed whenever
+the recent events (leading up to and including the current event)
+match the given sequence.  This means, for example, that if button 1 is
+clicked repeatedly the sequence <B>&lt;Double-ButtonPress-1&gt;</B> will match
+each button press but the first.
+If extraneous events that would prevent a match occur in the middle
+of an event sequence then the extraneous events are
+ignored unless they are <B>KeyPress</B> or <B>ButtonPress</B> events.
+For example, <B>&lt;Double-ButtonPress-1&gt;</B> will match a sequence of
+presses of button 1, even though there will be <B>ButtonRelease</B>
+events (and possibly <B>Motion</B> events) between the
+<B>ButtonPress</B> events.
+Furthermore, a <B>KeyPress</B> event may be preceded by any number
+of other <B>KeyPress</B> events for modifier keys without the
+modifier keys preventing a match.
+For example, the event sequence <B>aB</B> will match a press of the
+<B>a</B> key, a release of the <B>a</B> key, a press of the <B>Shift</B>
+key, and a press of the <B>b</B> key:  the press of <B>Shift</B> is
+ignored because it is a modifier key.
+Finally, if several <B>Motion</B> events occur in a row, only
+the last one is used for purposes of matching binding sequences.
+
+<H3><A NAME="M38">ERRORS</A></H3>
+If an error occurs in executing the script for a binding then the
+<B>tkerror</B> mechanism is used to report the error.
+
+<H3><A NAME="M39">SEE ALSO</A></H3>
+<B><A HREF="./bindtags.n.html">bindtags</A></B>, <B>tkerror</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/bindtags.n.html b/Help/bindtags.n.html
new file mode 100644
index 0000000..c63813d
--- /dev/null
+++ b/Help/bindtags.n.html
@@ -0,0 +1,61 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - bindtags manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> bindtags</H2>
+<I>Determine which bindings apply to a window, and order of evaluation</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>bindtags </B><I>window </I>?<I>tagList</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+When a binding is created with the <B><A HREF="./bind.n.html">bind</A></B> procedure, it is
+associated either with a particular window such as <B>.a.b.c</B>,
+a class name such as <B><A HREF="./button.n.html">Button</A></B>, the constant  <B>&quot;all&quot;</B>, or any
+other string.
+All of these forms are called <I>binding tags</I>.
+Each window contains a list of binding tags that determine how
+events are processed for the window.
+When an event occurs in a window, it is applied to each of the
+window's tags in order:  for each tag, the most specific binding
+that matches the given tag and event is executed.
+See the <B><A HREF="./bind.n.html">bind</A></B> procedure for more information on the matching
+process.
+<P>
+By default, each window has four binding tags consisting of the
+name of the window, the window's class name, the name of the window's
+nearest toplevel ancestor, and <B>&quot;all&quot;</B>, in that order.
+Toplevel windows have only three tags by default, since the toplevel
+name is the same as that of the window.
+The <B>bindtags</B> procedure allows the binding tags for a window to be
+read and modified.
+<P>
+If <B>bindtags</B> is invoked with only one argument, then the
+current set of binding tags for <I>window</I> is returned as a list.
+If the <I>tagList</I> argument is specified to <B>bindtags</B>,
+then it must be a proper list; the tags for <I>window</I> are changed
+to the elements of the list.
+The elements of <I>tagList</I> may be arbitrary strings;  however,
+any tag starting with a dot is treated as the name of a window;  if
+no window by that name exists at the time an event is processed,
+then the tag is ignored for that event.
+The order of the elements in <I>tagList</I> determines the order in
+which binding scripts are executed in response to events.
+For example, the call
+<PRE><B>(bindtags .b '(&quot;all&quot; *root* &quot;Button&quot; .b))</B></PRE>
+reverses the order in which binding scripts will be evaluated for
+a button named <B>.b</B> so that <B>&quot;all&quot;</B> bindings are invoked
+first, following by bindings for <B>.b</B>'s toplevel (<B>*root</B>* or ``.''), 
+followed by class bindings, followed by bindings for <B>.b</B>.
+<P>
+The <B>bindtags</B> procedure may be used to introduce arbitrary
+additional binding tags for a window, or to remove standard tags.
+For example, 
+<PRE><B>(bindtags .b '(.b &quot;TrickyButton&quot; *root* &quot;all&quot;})</B></PRE>
+replaces the <B><A HREF="./button.n.html">Button</A></B> tag for <B>.b</B> with <B>TrickyButton</B>.
+This means that the default widget bindings for buttons, which are
+associated with the <B><A HREF="./button.n.html">Button</A></B> tag, will no longer apply to <B>.b</B>,
+but any bindings associated with <B>TrickyButton</B> (perhaps some
+new button behavior) will apply.
+
+<H3><A NAME="M4">SEE ALSO</A></H3>
+<B><A HREF="./bind.n.html">bind</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/bitmap.n.html b/Help/bitmap.n.html
new file mode 100644
index 0000000..cdef836
--- /dev/null
+++ b/Help/bitmap.n.html
@@ -0,0 +1,105 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - bitmap manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> bitmap</H2>
+<I>Images that display two colors</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>image 'create 'bitmap </B>?<I>name</I>? ?<I>options</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+A bitmap is an image whose pixels can display either of two colors
+or be transparent.
+A bitmap image is defined by four things:  a background color,
+a foreground color, and two bitmaps, called the <I>source</I>
+and the <I>mask</I>.
+Each of the bitmaps specifies 0/1 values for a rectangular
+array of pixels, and the two bitmaps must have the same
+dimensions.
+For pixels where the mask is zero, the image displays nothing,
+producing a transparent effect.
+For other pixels, the image displays the foreground color if
+the source data is one and the background color if the source
+data is zero.
+
+<H3><A NAME="M4">CREATING BITMAPS</A></H3>
+Like all images, bitmaps are created using the <B><A HREF=.././image.n.html>image create</A></B>
+procedure.
+Bitmaps support the following <I>options</I>:
+<P>
+<DL>
+<DT><A NAME="M5"><B>:background </B><I>color</I></A><DD>
+Specifies a background color for the image in any of the standard
+ways accepted by Tk.  If this option is set to an empty string
+then the background pixels will be transparent.  This effect
+is achieved by using the source bitmap as the mask bitmap, ignoring
+any <B>:maskdata</B> or <B>:maskfile</B> options.
+<P>
+<DT><A NAME="M6"><B>:data </B><I>string</I></A><DD>
+Specifies the contents of the source bitmap as a string.
+The string must adhere to X11 bitmap format (e.g., as generated
+by the <B>bitmap</B> program).
+If both the <B>:data</B> and <B>:file</B> options are specified,
+the <B>:data</B> option takes precedence.
+<P>
+<DT><A NAME="M7"><B>:file </B><I>name</I></A><DD>
+<I>name</I> gives the name of a file whose contents define the
+source bitmap.
+The file must adhere to X11 bitmap format (e.g., as generated
+by the <B>bitmap</B> program).
+<P>
+<DT><A NAME="M8"><B>:foreground </B><I>color</I></A><DD>
+Specifies a foreground color for the image in any of the standard
+ways accepted by Tk.
+<P>
+<DT><A NAME="M9"><B>:maskdata </B><I>string</I></A><DD>
+Specifies the contents of the mask as a string.
+The string must adhere to X11 bitmap format (e.g., as generated
+by the <B>bitmap</B> program).
+If both the <B>:maskdata</B> and <B>:maskfile</B> options are specified,
+the <B>:maskdata</B> option takes precedence.
+<P>
+<DT><A NAME="M10"><B>:maskfile </B><I>name</I></A><DD>
+<I>name</I> gives the name of a file whose contents define the
+mask.
+The file must adhere to X11 bitmap format (e.g., as generated
+by the <B>bitmap</B> program).
+
+<P>
+</DL>
+<H3><A NAME="M11">IMAGE PROCEDURE</A></H3>
+When a bitmap image is created, Tk also creates a new procedure
+whose name is the same as the image.
+This procedure may be used to invoke various operations
+on the image.
+It has the following general form:
+<PRE>(<I>imageName option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for bitmap images:
+<P>
+<DL>
+<DT><A NAME="M12">(<I>imageName </I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the
+<B>image create bitmap</B> procedure.
+<P>
+<DT><A NAME="M13">(<I>imageName </I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options for the image.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>imageName</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the
+<B>image create bitmap</B> procedure.
+
+<P>
+</DL>
+<H3><A NAME="M14">SEE ALSO</A></H3>
+<B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B>pixmap</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/button.n.html b/Help/button.n.html
new file mode 100644
index 0000000..0bd940f
--- /dev/null
+++ b/Help/button.n.html
@@ -0,0 +1,177 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - button manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> button</H2>
+<I>Create and manipulate button widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>button</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:activeforeground">:activeforeground</A></B> 
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:bitmap">:bitmap</A></B>                                <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:disabledforeground">:disabledforeground</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:image">:image</A></B> 
+<B><A HREF="options.n.html#M:justify">:justify</A></B>                               <B><A HREF="options.n.html#M:padx">:padx</A></B> 
+<B><A HREF="options.n.html#M:pady">:pady</A></B>                                  <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:text">:text</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:underline">:underline</A></B> 
+<B><A HREF="options.n.html#M:wraplength">:wraplength</A></B>                           
+</PRE>
+<H3><A NAME="M27">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>command</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of three states for the button:  <B>normal</B>, <B>active</B>,
+or <B>disabled</B>.  In normal state the button is displayed using the
+<B>foreground</B> and <B>background</B> options.  The active state is
+typically used when the pointer is over the button.  In active state
+the button is displayed using the <B>activeForeground</B> and
+<B>activeBackground</B> options.  Disabled state means that the button
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the <B>disabledForeground</B> and
+<B>background</B> options determine how the button is displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+</DL>
+<H3><A NAME="M32">DESCRIPTION</A></H3>
+The <B>button</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a button widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the button such as its colors, font,
+text, and initial relief.  The <B>button</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A button is a widget
+that displays a textual string, bitmap or image.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the <B>wrapLength</B> option) and
+one of the characters may optionally be underlined using the
+<B>underline</B> option.
+It can display itself in either of three different ways, according
+to
+the <B>state</B> option; 
+it can be made to appear raised, sunken, or flat;
+and it can be made to flash.  When a user invokes the
+button (by pressing mouse button 1 with the cursor over the
+button), then the STk procedure specified in the <B>:command</B>
+option is invoked.
+
+<H3><A NAME="M33">WIDGET PROCEDURE</A></H3>
+The <B>button</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for button widgets:
+<P>
+<DL>
+<DT><A NAME="M34">(<I>widget-name </I><B>'cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>button</B>
+procedure.
+<P>
+<DT><A NAME="M35">(<I>widget-name </I><B>'configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>button</B>
+procedure.
+<P>
+<DT><A NAME="M36">(<I>widget-name </I><B>'flash</B>)</A><DD>
+Flash the button.  This is accomplished by redisplaying the button
+several times, alternating between active and normal colors.  At
+the end of the flash the button is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the button's state is <B>disabled</B>.
+<P>
+<DT><A NAME="M37">(<I>widget-name </I><B>'invoke</B>)</A><DD>
+Invoke the STk procedure associated with the button, if there is one
+(return value is undefined).
+This procedure is ignored if the button's state is <B>disabled</B>.
+
+<P>
+</DL>
+<H3><A NAME="M38">DEFAULT BINDINGS</A></H3>
+Tk automatically creates class bindings for buttons that give them
+the following default behavior:
+<OL>
+<LI>
+A button activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the button.
+<LI>
+A button's relief is changed to sunken whenever mouse button 1 is
+pressed over the button, and the relief is restored to its original
+value when button 1 is later released.
+<LI>
+If mouse button 1 is pressed over a button and later released over
+the button, the button is invoked.  However, if the mouse is not
+over the button when button 1 is released, then no invocation occurs.
+<LI>
+When a button has the input focus, the space key causes the button
+to be invoked.
+</OL>
+<P>
+If the button's state is <B>disabled</B> then none of the above
+actions occur:  the button is completely non-responsive.
+<P>
+The behavior of buttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M39">SEE ALSO</A></H3>
+<B><A HREF="./checkbutton.n.html">checkbutton</A></B>, <B><A HREF="./radiobutton.n.html">radiobutton</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/canvas.n.html b/Help/canvas.n.html
new file mode 100644
index 0000000..b96665f
--- /dev/null
+++ b/Help/canvas.n.html
@@ -0,0 +1,1570 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - canvas manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> canvas</H2>
+<I>Create and manipulate canvas widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>canvas</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:background">:background</A></B>                            <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B> 
+<B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B>                        <B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B> 
+<B><A HREF="options.n.html#M:insertbackground">:insertbackground</A></B>                      <B><A HREF="options.n.html#M:insertborderwidth">:insertborderwidth</A></B> 
+<B><A HREF="options.n.html#M:insertofftime">:insertofftime</A></B>                         <B><A HREF="options.n.html#M:insertontime">:insertontime</A></B> 
+<B><A HREF="options.n.html#M:insertwidth">:insertwidth</A></B>                           <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:selectbackground">:selectbackground</A></B>                      <B><A HREF="options.n.html#M:selectborderwidth">:selectborderwidth</A></B> 
+<B><A HREF="options.n.html#M:selectforeground">:selectforeground</A></B>                      <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:xscrollcommand">:xscrollcommand</A></B>                        <B><A HREF="options.n.html#M:yscrollcommand">:yscrollcommand</A></B> 
+</PRE>
+<H3><A NAME="M22">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>closeEnough</B>
+<DT><I>Class</I>:           <B>CloseEnough</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M23">:closeenough</A></B>
+<DT><I>STklos slot name</I>: <B>close-enough</B>
+<DD>Specifies a floating-point value indicating how close the mouse cursor
+must be to an item before it is considered to be ``inside'' the item.
+Defaults to 1.0.
+<P>
+<P>
+<DT><I>Name</I>:            <B>confine</B>
+<DT><I>Class</I>:           <B>Confine</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M24">:confine</A></B>
+<DT><I>STklos slot name</I>: <B>confine</B>
+<DD>Specifies a boolean value that indicates whether or not it should be
+allowable to set the canvas's view outside the region defined by the
+<B>scrollRegion</B> argument.
+Defaults to true, which means that the view will
+be constrained within the scroll region.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M25">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired window height that the canvas widget should request from
+its geometry manager.  The value may be specified in any
+of the forms described in the COORDINATES section below.
+<P>
+<P>
+<DT><I>Name</I>:            <B>scrollRegion</B>
+<DT><I>Class</I>:           <B>ScrollRegion</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M26">:scrollregion</A></B>
+<DT><I>STklos slot name</I>: <B>scroll-region</B>
+<DD>Specifies a list with four coordinates describing the left, top, right, and
+bottom coordinates of a rectangular region.
+This region is used for scrolling purposes and is considered to be
+the boundary of the information in the canvas.
+Each of the coordinates may be specified
+in any of the forms given in the COORDINATES section below.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M27">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired window width that the canvas widget should request from
+its geometry manager.  The value may be specified in any
+of the forms described in the COORDINATES section below.
+<P>
+</DL>
+<BR>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>xScrollIncrement</B>
+<DT><I>Class</I>:           <B>ScrollIncrement</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:xscrollincrement</A></B>
+<DT><I>STklos slot name</I>: <B>x-scroll-indent</B>
+<DD>Specifies an increment for horizontal scrolling, in any of the usual forms
+permitted for screen distances.  If the value of this option is greater
+than zero, the horizontal view in the window will be constrained so that
+the canvas x coordinate at the left edge of the window is always an even
+multiple of <B>xScrollIncrement</B>;  furthermore, the units for scrolling
+(e.g., the change in view when the left and right arrows of a scrollbar
+are selected) will also be <B>xScrollIncrement</B>.  If the value of
+this option is less than or equal to zero, then horizontal scrolling
+is unconstrained.
+<P>
+<P>
+<DT><I>Name</I>:            <B>yScrollIncrement</B>
+<DT><I>Class</I>:           <B>ScrollIncrement</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:yscrollincrement</A></B>
+<DT><I>STklos slot name</I>: <B>y-scroll-indent</B>
+<DD>Specifies an increment for vertical scrolling, in any of the usual forms
+permitted for screen distances.  If the value of this option is greater
+than zero, the vertical view in the window will be constrained so that
+the canvas y coordinate at the top edge of the window is always an even
+multiple of <B>yScrollIncrement</B>;  furthermore, the units for scrolling
+(e.g., the change in view when the top and bottom arrows of a scrollbar
+are selected) will also be <B>yScrollIncrement</B>.  If the value of
+this option is less than or equal to zero, then vertical scrolling
+is unconstrained.
+<P>
+</DL>
+<H3><A NAME="M30">INTRODUCTION</A></H3>
+The <B>canvas</B> procedure creates a new window (given
+by the <I>widget-name</I> argument) and makes it into a canvas widget.
+Additional options, described above, may be specified on the
+procedure line or in the option database
+to configure aspects of the canvas such as its colors and 3-D relief.
+The <B>canvas</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+Canvas widgets implement structured graphics.
+A canvas displays any number of <I>items</I>, which may be things like
+rectangles, circles, lines, and text.
+Items may be manipulated (e.g. moved or re-colored) and procedures may
+be associated with items in much the same way that the <B><A HREF="./bind.n.html">bind</A></B>
+procedure allows procedures to be bound to widgets.  For example,
+a particular procedure may be associated with the &lt;Button-1&gt; event
+so that the procedure is invoked whenever button 1 is pressed with
+the mouse cursor over an item.
+This means that items in a canvas can have behaviors defined by
+the STk scripts bound to them.
+
+<H3><A NAME="M31">DISPLAY LIST</A></H3>
+The items in a canvas are ordered for purposes of display,
+with the first item in the display list being displayed
+first, followed by the next item in the list, and so on.
+Items later in the display list obscure those that are
+earlier in the display list and are sometimes referred to
+as being ``on top'' of earlier items.
+When a new item is created it is placed at the end of the
+display list, on top of everything else.
+Widget procedures may be used to re-arrange the order of the
+display list.
+
+<H3><A NAME="M32">ITEM IDS AND TAGS</A></H3>
+Items in a canvas widget may be named in either of two ways:
+by id or by tag.
+Each item has a unique identifying number which is assigned to
+that item when it is created.  The id of an item never changes
+and id numbers are never re-used within the lifetime of a
+canvas widget.
+<P>
+Each item may also have any number of <I>tags</I> associated
+with it.  A tag is just a string of characters, and it may
+take any form except that of an integer.
+For example, ``x123'' is OK but ``123'' isn't.
+The same tag may be associated with many different items.
+This is commonly done to group items in various interesting
+ways;  for example, all selected items might be given the
+tag ``selected''.
+<P>
+The tag <B>all</B> is implicitly associated with every item
+in the canvas;  it may be used to invoke operations on
+all the items in the canvas.
+<P>
+The tag <B>current</B> is managed automatically by Tk;
+it applies to the <I>current item</I>, which is the
+topmost item whose drawn area covers the position of
+the mouse cursor.
+If the mouse is not in the canvas widget or is not over
+an item, then no item has the <B>current</B> tag.
+<P>
+When specifying items in canvas widget procedures, if the
+specifier is an integer then it is assumed to refer to
+the single item with that id.
+If the specifier is not an integer, then it is assumed to
+refer to all of the items in the canvas that have a tag
+matching the specifier.
+The symbol <I>tagOrId</I> is used below to indicate that
+an argument specifies either an id that selects a single
+item or a tag that selects zero or more items.
+Some widget procedures only operate on a single item at a
+time;  if <I>tagOrId</I> is specified in a way that
+names multiple items, then the normal behavior is for
+the procedure to use the first (lowest) of these items in
+the display list that is suitable for the procedure.
+Exceptions are noted in the widget procedure descriptions
+below.
+
+<H3><A NAME="M33">COORDINATES</A></H3>
+All coordinates related to canvases are stored as floating-point
+numbers.
+Coordinates and distances are specified in screen units,
+which are floating-point numbers optionally followed
+by one of several letters.
+If no letter is supplied then the distance is in pixels.
+If the letter is <B>m</B> then the distance is in millimeters on
+the screen;  if it is <B>c</B> then the distance is in centimeters;
+<B>i</B> means inches, and <B>p</B> means printers points (1/72 inch).
+Larger y-coordinates refer to points lower on the screen;  larger
+x-coordinates refer to points farther to the right.
+
+<H3><A NAME="M34">TRANSFORMATIONS</A></H3>
+Normally the origin of the canvas coordinate system is at the
+upper-left corner of the window containing the canvas.
+It is possible to adjust the origin of the canvas
+coordinate system relative to the origin of the window using the
+<B>xview</B> and <B>yview</B> widget procedures;  this is typically used
+for scrolling.
+Canvases do not support scaling or rotation of the canvas coordinate
+system relative to the window coordinate system.
+<P>
+Individual items may be moved or scaled using widget procedures
+described below, but they may not be rotated.
+
+<H3><A NAME="M35">INDICES</A></H3>
+Text items support the notion of an <I>index</I> for identifying
+particular positions within the item.
+Indices are used for procedures such as inserting text, deleting
+a range of characters, and setting the insertion cursor position.
+An index may be specified in any of a number of ways, and
+different types of items may support different forms for
+specifying indices.
+Text items support the following forms for an index;  if you
+define new types of text-like items, it would be advisable to
+support as many of these forms as practical.
+Note that it is possible to refer to the character just after
+the last one in the text item;  this is necessary for such
+tasks as inserting new text at the end of the item.
+<P>
+<DL>
+<DT><A NAME="M36"><I>number</I></A><DD>
+A decimal number giving the position of the desired character
+within the text item.
+0 refers to the first character, 1 to the next character, and
+so on.
+A number less than 0 is treated as if it were zero, and a
+number greater than the length of the text item is treated
+as if it were equal to the length of the text item.
+<P>
+<DT><A NAME="M37"><B>end</B></A><DD>
+Refers to the character just after the last one in the item
+(same as the number of characters in the item).
+<P>
+<DT><A NAME="M38"><B>insert</B></A><DD>
+Refers to the character just before which the insertion cursor
+is drawn in this item.
+<P>
+<DT><A NAME="M39"><B>sel.first</B></A><DD>
+Refers to the first selected character in the item.
+If the selection isn't in this item then this form is illegal.
+<P>
+<DT><A NAME="M40"><B>sel.last</B></A><DD>
+Refers to the last selected character in the item.
+If the selection isn't in this item then this form is illegal.
+<P>
+<DT><A NAME="M41"><B>@</B><I>x,y</I></A><DD>
+Refers to the character at the point given by <I>x</I> and
+<I>y</I>, where <I>x</I> and <I>y</I> are specified in the coordinate
+system of the canvas.
+If <I>x</I> and <I>y</I> lie outside the coordinates covered by the
+text item, then they refer to the first or last character in the
+line that is closest to the given point.
+
+<P>
+</DL>
+<H3><A NAME="M42">WIDGET PROCEDURE</A></H3>
+The <B>canvas</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.
+The following widget procedures are possible for canvas widgets:
+<P>
+<DL>
+<DT><A NAME="M43">(<I>widget-name '</I><B>addtag </B><I>tag searchSpec </I>?<I>arg arg ...</I>?)</A><DD>
+For each item that meets the constraints specified by
+<I>searchSpec</I> and the <I>arg</I>s, add
+<I>tag</I> to the list of tags associated with the item if it
+isn't already present on that list.
+It is possible that no items will satisfy the constraints
+given by <I>searchSpec and arg</I>s, in which case the
+procedure has no effect.
+This procedure returns an empty list as result.
+<I>SearchSpec</I> and <I>arg</I>'s may take any of the following
+forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M44"><B>above </B><I>tagOrId</I></A><DD>
+Selects the item just after (above) the one given by <I>tagOrId</I>
+in the display list.
+If <I>tagOrId</I> denotes more than one item, then the last (topmost)
+of these items in the display list is used.
+<P>
+<DT><A NAME="M45"><B>all</B></A><DD>
+Selects all the items in the canvas.
+<P>
+<DT><A NAME="M46"><B>below </B><I>tagOrId</I></A><DD>
+Selects the item just before (below) the one given by <I>tagOrId</I>
+in the display list.
+If <I>tagOrId</I> denotes more than one item, then the first (lowest)
+of these items in the display list is used.
+<P>
+<DT><A NAME="M47"><B>closest </B><I>x y </I>?<I>halo</I>? ?<I>start</I>?</A><DD>
+Selects the item closest to the point given by <I>x</I> and <I>y</I>.
+If more than one item is at the same closest distance (e.g. two
+items overlap the point), then the top-most of these items (the
+last one in the display list) is used.
+If <I>halo</I> is specified, then it must be a non-negative
+value.
+Any item closer than <I>halo</I> to the point is considered to
+overlap it.
+The <I>start</I> argument may be used to step circularly through
+all the closest items.
+If <I>start</I> is specified, it names an item using a tag or id
+(if by tag, it selects the first item in the display list with
+the given tag).
+Instead of selecting the topmost closest item, this form will
+select the topmost closest item that is below <I>start</I> in
+the display list;  if no such item exists, then the selection
+behaves as if the <I>start</I> argument had not been specified.
+<P>
+<DT><A NAME="M48"><B>enclosed</B> <I>x1</I> <I>y1</I> <I>x2</I> <I>y2</I></A><DD>
+Selects all the items completely enclosed within the rectangular
+region given by <I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I>.
+<I>X1</I> must be no greater then <I>x2</I> and <I>y1</I> must be
+no greater than <I>y2</I>.
+<P>
+<DT><A NAME="M49"><B>overlapping</B> <I>x1</I> <I>y1</I> <I>x2</I> <I>y2</I></A><DD>
+Selects all the items that overlap or are enclosed within the
+rectangular region given by <I>x1</I>, <I>y1</I>, <I>x2</I>,
+and <I>y2</I>.
+<I>X1</I> must be no greater then <I>x2</I> and <I>y1</I> must be
+no greater than <I>y2</I>.
+<P>
+<DT><A NAME="M50"><B>withtag </B><I>tagOrId</I></A><DD>
+Selects all the items given by <I>tagOrId</I>.
+<P>
+</DL>
+<DT><A NAME="M51">(<I>widget-name '</I><B>bbox </B><I>tagOrId</I> ?<I>tagOrId tagOrId ...</I>?)</A><DD>
+Returns a list with four elements giving an approximate bounding box
+for all the items named by the <I>tagOrId</I> arguments.
+The list has the form <I>(x1 y1 x2 y2)</I> such that the drawn
+areas of all the named elements are within the region bounded by
+<I>x1</I> on the left, <I>x2</I> on the right, <I>y1</I> on the top,
+and <I>y2</I> on the bottom.
+The return value may overestimate the actual bounding box by
+a few pixels.
+If no items match any of the <I>tagOrId</I> arguments or if the
+matching items have empty bounding boxes (i.e. they have nothing
+to display) then an empty list is returned.
+<P>
+<DT><A NAME="M52">(<I>widget-name '</I><B>bind </B><I>tagOrId</I> ?<I>sequence</I>? ?<I>procedure</I>?)</A><DD>
+This procedure associates <I>procedure</I> with all the items given by
+<I>tagOrId</I> such that whenever the event sequence given by
+<I>sequence</I> occurs for one of the items the procedure will
+be invoked.
+This widget procedure is similar to the <B><A HREF="./bind.n.html">bind</A></B> procedure except that
+it operates on items in a canvas rather than entire widgets.
+See the <B><A HREF="./bind.n.html">bind</A></B> manual entry for complete details
+on the syntax of <I>sequence</I> and the substitutions performed
+on <I>procedure</I> before invoking it.
+If all arguments are specified then a new binding is created, replacing
+any existing binding for the same <I>sequence</I> and <I>tagOrId</I>
+(if the first character of <I>procedure</I> is ``+'' then <I>procedure</I>
+augments an existing binding rather than replacing it).
+In this case the return value is an empty list.
+If <I>procedure</I> is omitted then the procedure returns the <I>procedure</I>
+associated with <I>tagOrId</I> and <I>sequence</I> (an error occurs
+if there is no such binding).
+If both <I>procedure</I> and <I>sequence</I> are omitted then the procedure
+returns a list of all the sequences for which bindings have been
+defined for <I>tagOrId</I>.
+<P>
+<UL>
+<P>
+Example:
+<PRE>(pack (canvas '.c))
+            (define item (.c 'create 'rectangle 0 0 10 10))
+            (.c 'bind item &quot;&lt;Enter&gt;&quot; (lambda() (display &quot;You enter\n&quot;)))</PRE>
+</UL>
+<UL>
+<P>
+The only events for which bindings may be specified are those related
+to the mouse and keyboard, such as <B>Enter</B>, <B>Leave</B>,
+<B>ButtonPress</B>, <B>Motion</B>, and <B>KeyPress</B>.
+The handling of events in canvases uses the current item defined
+in ITEM IDS AND TAGS above.
+<B>Enter</B> and <B>Leave</B> events trigger for an item when it
+becomes the current item or ceases to be the current item;  note
+that these events are different than <B>Enter</B> and <B>Leave</B>
+events for windows.
+Mouse-related events are directed to the current item, if any.
+Keyboard-related events are directed to the focus item, if any
+(see the <B>focus</B> widget procedure below for more on this).
+<P>
+It is possible for multiple bindings to match a particular event.
+This could occur, for example, if one binding is associated with the
+item's id and another is associated with one of the item's tags.
+When this occurs, all of the matching bindings are invoked.
+A binding associated with the <B>all</B> tag is invoked first,
+followed by one binding for each of the item's tags (in order),
+followed by a binding associated with the item's id.
+If there are multiple matching bindings for a single tag,
+then only the most specific binding is invoked.
+If a binding script returns the symbol <B>break</B>, remaining scripts 
+for the event are skipped, just as for the <B><A HREF="./bind.n.html">bind</A></B> procedure.
+
+<P>
+If bindings have been created for a canvas window using the <B><A HREF="./bind.n.html">bind</A></B>
+procedure, then they are invoked in addition to bindings created for
+the canvas's items using the <B><A HREF="./bind.n.html">bind</A></B> widget procedure.
+The bindings for items will be invoked before any of the bindings
+for the window as a whole.
+</UL>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M53">(<I>widget-name '</I><B>canvasx </B><I>screenx</I>)</A><DD>
+<DT><A NAME="M54">(<I>widget-name '</I><B>canvasx </B><I>screenx</I> <I>gridspacing</I>)</A><DD>
+Given a screen x-coordinate <I>screenx</I> this procedure returns
+the canvas x-coordinate that is displayed at that location.
+If <I>gridspacing</I> is specified, then the canvas coordinate is
+rounded to the nearest multiple of <I>gridspacing</I> units.
+<P>
+<DT><A NAME="M55">(<I>widget-name '</I><B>canvasy </B><I>screeny</I>)</A><DD>
+<DT><A NAME="M56">(<I>widget-name '</I><B>canvasy </B><I>screeny</I> <I>gridspacing</I>)</A><DD>
+Given a screen y-coordinate <I>screeny</I> this procedure returns
+the canvas y-coordinate that is displayed at that location.
+If <I>gridspacing</I> is specified, then the canvas coordinate is
+rounded to the nearest multiple of <I>gridspacing</I> units.
+<P>
+<DT><A NAME="M57">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>canvas</B>
+procedure.
+<P>
+<DT><A NAME="M58">(<I>widget-name '</I><B>configure </B>?<I>option</I>? ?<I>value</I>? ?<I>option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+<I>Option</I> may have any of the values accepted by the <B>canvas</B>
+procedure.
+<P>
+<DT><A NAME="M59">(<I>widget-name</I> '<B>coords </B><I>tagOrId </I>?<I>x0 y0 ...</I>?)</A><DD>
+Query or modify the coordinates that define an item.
+If no coordinates are specified, this procedure returns a list
+whose elements are the coordinates of the item named by
+<I>tagOrId</I>.
+If coordinates are specified, then they replace the current
+coordinates for the named item.
+If <I>tagOrId</I> refers to multiple items, then
+the first one in the display list is used.
+<P>
+<DT><A NAME="M60">(<I>widget-name '</I><B>create </B><I>type x y </I>?<I>x y ...</I>? ?<I>option value ...</I>?)</A><DD>
+Create a new item in <I>widget-name</I> of type <I>type</I>.
+The exact format of the arguments after <B>type</B> depends
+on <B>type</B>, but usually they consist of the coordinates for
+one or more points, followed by specifications for zero or
+more item options.
+See the subsections on individual item types below for more
+on the syntax of this procedure.
+This procedure returns the id for the new item.
+<P>
+<DT><A NAME="M61">(<I>widget-name '</I><B>dchars </B><I>tagOrId first </I>)</A><DD>
+<DT><A NAME="M62">(<I>widget-name '</I><B>dchars </B><I>tagOrId first </I><I>last</I>)</A><DD>
+For each item given by <I>tagOrId</I>, delete the characters
+in the range given by <I>first</I> and <I>last</I>,
+inclusive.
+If some of the items given by <I>tagOrId</I> don't support
+text operations, then they are ignored.
+<I>First</I> and <I>last</I> are indices of characters
+within the item(s) as described in INDICES above.
+If <I>last</I> is omitted, it defaults to <I>first</I>.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M63">(<I>widget-name '</I><B>delete </B>?<I>tagOrId tagOrId ...</I>?)</A><DD>
+Delete each of the items given by each <I>tagOrId</I>, and return
+an empty list.
+<P>
+<DT><A NAME="M64">(<I>widget-name '</I><B>dtag </B><I>tagOrId </I>)</A><DD>
+<DT><A NAME="M65">(<I>widget-name '</I><B>dtag </B><I>tagOrId </I><I>tagToDelete</I>)</A><DD>
+For each of the items given by <I>tagOrId</I>, delete the
+tag given by <I>tagToDelete</I> from the list of those
+associated with the item.
+If an item doesn't have the tag <I>tagToDelete</I> then
+the item is unaffected by the procedure.
+If <I>tagToDelete</I> is omitted then it defaults to <I>tagOrId</I>.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M66">(<I>widget-name '</I><B>find </B><I>searchProcedure </I>?<I>arg arg ...</I>?)</A><DD>
+This procedure returns a list consisting of all the items that
+meet the constraints specified by <I>searchProcedure</I> and
+<I>arg</I>'s.
+<I>SearchProcedure</I> and <I>args</I> have any of the forms
+accepted by the <B>addtag</B> procedure.
+<P>
+<DT><A NAME="M67">(<I>widget-name '</I><B>focus </B>)</A><DD>
+<DT><A NAME="M68">(<I>widget-name '</I><B>focus </B><I>tagOrId</I>)</A><DD>
+Set the keyboard focus for the canvas widget to the item given by
+<I>tagOrId</I>.
+If <I>tagOrId</I> refers to several items, then the focus is set
+to the first such item in the display list that supports the
+insertion cursor.
+If <I>tagOrId</I> doesn't refer to any items, or if none of them
+support the insertion cursor, then the focus isn't changed.
+If <I>tagOrId</I> is an empty
+string, then the focus item is reset so that no item has the focus.
+If <I>tagOrId</I> is not specified then the procedure returns the
+id for the item that currently has the focus, or an empty list
+if no item has the focus.
+<P>
+<UL>
+<P>
+Once the focus has been set to an item, the item will display
+the insertion cursor and all keyboard events will be directed
+to that item.
+The focus item within a canvas and the focus window on the
+screen (set with the <B>focus</B> procedure) are totally independent:
+a given item doesn't actually have the input focus unless (a)
+its canvas is the focus window and (b) the item is the focus item
+within the canvas.
+In most cases it is advisable to follow the <B>focus</B> widget
+procedure with the <I>focus</I> option to set the focus window to
+the canvas (if it wasn't there already).
+</UL>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M69">(<I>widget-name '</I><B>gettags</B> <I>tagOrId</I>)</A><DD>
+Return a list whose elements are the tags associated with the
+item given by <I>tagOrId</I>.
+If <I>tagOrId</I> refers to more than one item, then the tags
+are returned from the first such item in the display list.
+If <I>tagOrId</I> doesn't refer to any items, or if the item
+contains no tags, then an empty list is returned.
+<P>
+<DT><A NAME="M70">(<I>widget-name '</I><B>icursor </B><I>tagOrId index</I>)</A><DD>
+Set the position of the insertion cursor for the item(s)
+given by <I>tagOrId</I>
+to just before the character whose position is given by <I>index</I>.
+If some or all of the items given by <I>tagOrId</I> don't support
+an insertion cursor then this procedure has no effect on them.
+See INDICES above for a description of the
+legal forms for <I>index</I>.
+Note:  the insertion cursor is only displayed in an item if
+that item currently has the keyboard focus (see the widget
+procedure <B>focus</B>, below), but the cursor position may
+be set even when the item doesn't have the focus.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M71">(<I>widget-name '</I><B>index </B><I>tagOrId index</I>)</A><DD>
+This procedure returns a decimal string giving the numerical index
+within <I>tagOrId</I> corresponding to <I>index</I>.
+<I>Index</I> gives a textual description of the desired position
+as described in INDICES above.
+The return value is guaranteed to lie between 0 and the number
+of characters within the item, inclusive.
+If <I>tagOrId</I> refers to multiple items, then the index
+is processed in the first of these items that supports indexing
+operations (in display list order).
+<P>
+<DT><A NAME="M72">(<I>widget-name '</I><B>insert </B><I>tagOrId beforeThis string</I>)</A><DD>
+For each of the items given by <I>tagOrId</I>, if the item supports
+text insertion then <I>string</I> is inserted into the item's
+text just before the character whose index is <I>beforeThis</I>.
+See INDICES above for information about the forms allowed
+for <I>beforeThis</I>.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M73">(<I>widget-name '</I><B>itemcget</B> <I>tagOrId</I> <I>option</I>)</A><DD>
+Returns the current value of the configuration option for the
+item given by <I>tagOrId</I> whose name is <I>option</I>.
+This procedure is similar to the <B>cget</B> widget procedure except that
+it applies to a particular item rather than the widget as a whole.
+<I>Option</I> may have any of the values accepted by the <B>create</B>
+widget procedure when the item was created.
+If <I>tagOrId</I> is a tag that refers to more than one item,
+the first (lowest) such item is used.
+<P>
+<DT><A NAME="M74">(<I>widget-name '</I><B>itemconfigure </B><I>tagOrId</I> ?<I>option</I>? ?<I>value</I>? ?<I>option value ...</I>?)</A><DD>
+This procedure is similar to the <B>configure</B> widget procedure except
+that it modifies item-specific options for the items given by
+<I>tagOrId</I> instead of modifying options for the overall
+canvas widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for the first item given by <I>tagOrId</I>
+(see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s) in
+each of the items given by <I>tagOrId</I>;  in
+this case the procedure returns an empty list.
+The <I>option</I>s and <I>value</I>s are the same as those permissible
+in the <B>create</B> widget procedure when the item(s) were created;
+see the sections describing individual item types below for details
+on the legal options.
+<P>
+<DT><A NAME="M75">(<I>widget-name '</I><B>lower </B><I>tagOrId </I>)</A><DD>
+<DT><A NAME="M76">(<I>widget-name '</I><B>lower </B><I>tagOrId </I><I>belowThis</I>)</A><DD>
+Move all of the items given by <I>tagOrId</I> to a new position
+in the display list just before the item given by <I>belowThis</I>.
+If <I>tagOrId</I> refers to more than one item then all are moved
+but the relative order of the moved items will not be changed.
+<I>BelowThis</I> is a tag or id;  if it refers to more than one
+item then the first (lowest) of these items in the display list is used
+as the destination location for the moved items.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M77">(<I>widget-name '</I><B>move </B><I>tagOrId xAmount yAmount</I>)</A><DD>
+Move each of the items given by <I>tagOrId</I> in the canvas coordinate
+space by adding <I>xAmount</I> to the x-coordinate of each point
+associated with the item and <I>yAmount</I> to the y-coordinate of
+each point associated with the item.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M78">(<I>widget-name '</I><B>postscript </B>?<I>option value option value ...</I>?)</A><DD>
+Generate a Postscript representation for part or all of the canvas.
+If the <B>:file</B> option is specified then the Postscript is written
+to a file and an empty list is returned;  otherwise the Postscript
+is returned as the result of the procedure.
+The Postscript is created in Encapsulated Postscript form using
+version 3.0 of the Document Structuring Conventions.
+Note: by default Postscript is only generated for information that
+appears in the canvas's window on the screen.  If the canvas is
+freshly created it may still have its initial size of 1x1 pixel
+so nothing will appear in the Postscript.  To get around this problem
+either invoke the &quot;update&quot; procedure to wait for the canvas window
+to reach its final size, or else use the <B>:width</B> and <B>:height</B>
+options to specify the area of the canvas to print.
+The <I>option</I>-<I>value</I> argument pairs provide additional
+information to control the generation of Postscript.  The following
+options are supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M79"><B>:colormap </B><I>varName</I></A><DD>
+<B>NOT IMPLEMENTED IN STk</B>
+<P>
+<DT><A NAME="M80"><B>:colormode </B><I>mode</I></A><DD>
+Specifies how to output color information.  <I>Mode</I> must be either
+<B>color</B> (for full color output), <B>gray</B> (convert all colors
+to their gray-scale equivalents) or <B>mono</B> (convert all colors
+to black or white).
+<P>
+<DT><A NAME="M81"><B>:file </B><I>fileName</I></A><DD>
+Specifies the name of the file in which to write the Postscript.
+If this option isn't specified then the Postscript is returned as the
+result of the procedure instead of being written to a file.
+<P>
+<DT><A NAME="M82"><B>:fontmap </B><I>varName</I></A><DD>
+<B>NOT IMPLEMENTED IN STk</B>
+<P>
+<DT><A NAME="M83"><B>:height </B><I>size</I></A><DD>
+Specifies the height of the area of the canvas to print.
+Defaults to the height of the canvas window.
+<P>
+<DT><A NAME="M84"><B>:pageanchor </B><I>anchor</I></A><DD>
+Specifies which point of the printed area of the canvas should appear over
+the positioning point on the page (which is given by the <B>:pagex</B>
+and <B>:pagey</B> options).
+For example, <B>:pageanchor n</B> means that the top center of the
+area of the canvas being printed (as it appears in the canvas window)
+should be over the positioning point. Defaults to <B>center</B>.
+<P>
+<DT><A NAME="M85"><B>:pageheight </B><I>size</I></A><DD>
+Specifies that the Postscript should be scaled in both x and y so
+that the printed area is <I>size</I> high on the Postscript page.
+<I>Size</I> consists of a floating-point number followed by
+<B>c</B> for centimeters, <B>i</B> for inches, <B>m</B> for millimeters,
+or <B>p</B> or nothing for printer's points (1/72 inch).
+Defaults to the height of the printed area on the screen.
+If both <B>:pageheight</B> and <B>:pagewidth</B> are specified then
+the scale factor from <B>:pagewidth</B>  is used (non-uniform scaling
+is not implemented).
+<P>
+<DT><A NAME="M86"><B>:pagewidth </B><I>size</I></A><DD>
+Specifies that the Postscript should be scaled in both x and y so
+that the printed area is <I>size</I> wide on the Postscript page.
+<I>Size</I> has the same form as for <B>:pageheight</B>.
+Defaults to the width of the printed area on the screen.
+If both <B>:pageheight</B> and <B>:pagewidth</B> are specified then
+the scale factor from  <B>:pagewidth</B> is used (non-uniform scaling
+is not implemented).
+<P>
+<DT><A NAME="M87"><B>:pagex </B><I>position</I></A><DD>
+<I>Position</I> gives the x-coordinate of the positioning point on
+the Postscript page, using any of the forms allowed for <B>:pageheight</B>.
+Used in conjunction with the <B>:pagey</B> and <B>:pageanchor</B> options
+to determine where the printed area appears on the Postscript page.
+Defaults to the center of the page.
+<P>
+<DT><A NAME="M88"><B>:pagey </B><I>position</I></A><DD>
+<I>Position</I> gives the y-coordinate of the positioning point on
+the Postscript page, using any of the forms allowed for <B>:pageheight</B>.
+Used in conjunction with the <B>:pagex</B> and <B>:pageanchor</B> options
+to determine where the printed area appears on the Postscript page.
+Defaults to the center of the page.
+<P>
+<DT><A NAME="M89"><B>:rotate </B><I>boolean</I></A><DD>
+<I>Boolean</I> specifies whether the printed area is to be rotated 90
+degrees.
+In non-rotated output the x-axis of the printed area runs along
+the short dimension of the page (``portrait'' orientation);
+in rotated output the x-axis runs along the long dimension of the
+page (``landscape'' orientation).
+Defaults to non-rotated.
+<P>
+<DT><A NAME="M90"><B>:width </B><I>size</I></A><DD>
+Specifies the width of the area of the canvas to print.
+Defaults to the width of the canvas window.
+<P>
+<DT><A NAME="M91"><B>:x </B><I>position</I></A><DD>
+Specifies the x-coordinate of the left edge of the area of the
+canvas that is to be printed, in canvas coordinates, not window
+coordinates.
+Defaults to the coordinate of the left edge of the window.
+<P>
+<DT><A NAME="M92"><B>:y </B><I>position</I></A><DD>
+Specifies the y-coordinate of the top edge of the area of the
+canvas that is to be printed, in canvas coordinates, not window
+coordinates.
+Defaults to the coordinate of the top edge of the window.
+<P>
+</DL>
+<DT><A NAME="M93">(<I>widget-name '</I><B>raise </B><I>tagOrId </I>)</A><DD>
+<DT><A NAME="M94">(<I>widget-name '</I><B>raise </B><I>tagOrId </I><I>aboveThis</I>)</A><DD>
+Move all of the items given by <I>tagOrId</I> to a new position
+in the display list just after the item given by <I>aboveThis</I>.
+If <I>tagOrId</I> refers to more than one item then all are moved
+but the relative order of the moved items will not be changed.
+<I>AboveThis</I> is a tag or id;  if it refers to more than one
+item then the last (topmost) of these items in the display list is used
+as the destination location for the moved items.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M95">(<I>widget-name '</I><B>scale </B><I>tagOrId xOrigin yOrigin xScale yScale</I>)</A><DD>
+Rescale all of the items given by <I>tagOrId</I> in canvas coordinate
+space.
+<I>XOrigin</I> and <I>yOrigin</I> identify the origin for the scaling
+operation and <I>xScale</I> and <I>yScale</I> identify the scale
+factors for x- and y-coordinates, respectively (a scale factor of
+1.0 implies no change to that coordinate).
+For each of the points defining each item, the x-coordinate is
+adjusted to change the distance from <I>xOrigin</I> by a factor
+of <I>xScale</I>.
+Similarly, each y-coordinate is adjusted to change the distance
+from <I>yOrigin</I> by a factor of <I>yScale</I>.
+This procedure returns an empty list.
+<P>
+<DT><A NAME="M96">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
+This procedure is used to implement scanning on canvases.  It has
+two forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M97">(<I>widget-name '</I><B>scan 'mark </B><I>x y</I>)</A><DD>
+Records <I>x</I> and <I>y</I> and the canvas's current view;  used
+in conjunction with later <B>scan dragto</B> procedures.
+Typically this procedure is associated with a mouse button press in
+the widget and <I>x</I> and <I>y</I> are the coordinates of the
+mouse.  It returns an empty list.
+<P>
+<DT><A NAME="M98">(<I>widget-name '</I><B>scan 'dragto </B><I>x y</I>)</A><DD>
+This procedure computes the difference between its <I>x</I> and <I>y</I>
+arguments (which are typically mouse coordinates) and the <I>x</I> and
+<I>y</I> arguments to the last <B>scan mark</B> procedure for the widget.
+It then adjusts the view by 10 times the
+difference in coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the canvas at high speed through its window.  The return
+value is an empty list.
+<P>
+</DL>
+<DT><A NAME="M99">(<I>widget-name '</I><B>select </B><I>option</I> ?<I>tagOrId arg</I>?)</A><DD>
+Manipulates the selection in one of several ways, depending on
+<I>option</I>.
+The procedure may take any of the forms described below.
+In all of the descriptions below, <I>tagOrId</I> must refer to
+an item that supports indexing and selection;  if it refers to
+multiple items then the first of
+these that supports indexing and the selection is used.
+<I>Index</I> gives a textual description of a position
+within <I>tagOrId</I>, as described in INDICES above.
+<P>
+<P>
+<DL>
+<DT><A NAME="M100">(<I>widget-name '</I><B>select adjust </B><I>tagOrId index</I>)</A><DD>
+Locate the end of the selection in <I>tagOrId</I> nearest
+to the character given by <I>index</I>, and adjust that
+end of the selection to be at <I>index</I> (i.e. including
+but not going beyond <I>index</I>).
+The other end of the selection is made the anchor point
+for future <B>select to</B> procedures.
+If the selection isn't currently in <I>tagOrId</I> then
+this procedure behaves the same as the <B>select to</B> widget
+procedure.
+Returns an empty list.
+<P>
+<DT><A NAME="M101">(<I>widget-name '</I><B>select 'clear</B>)</A><DD>
+Clear the selection if it is in this widget.
+If the selection isn't in this widget then the procedure
+has no effect.
+Returns an empty list.
+<P>
+<DT><A NAME="M102">(<I>widget-name '</I><B>select 'from </B><I>tagOrId index</I>)</A><DD>
+Set the selection anchor point for the widget to be just
+before the character
+given by <I>index</I> in the item given by <I>tagOrId</I>.
+This procedure doesn't change the selection;  it just sets
+the fixed end of the selection for future <B>select to</B>
+procedures.
+Returns an empty list.
+<P>
+<DT><A NAME="M103">(<I>widget-name '</I><B>select 'item</B>)</A><DD>
+Returns the id of the selected item, if the selection is in an
+item in this canvas.
+If the selection is not in this canvas then an empty list
+is returned.
+<P>
+<DT><A NAME="M104">(<I>widget-name '</I><B>select 'to </B><I>tagOrId index</I>)</A><DD>
+Set the selection to consist of those characters of <I>tagOrId</I>
+between the selection anchor point and
+<I>index</I>.
+The new selection will include the character given by <I>index</I>;
+it will include the character given by the anchor point only if
+<I>index</I> is greater than or equal to the anchor point.
+The anchor point is determined by the most recent <B>select adjust</B>
+or <B>select from</B> procedure for this widget.
+If the selection anchor point for the widget isn't currently in
+<I>tagOrId</I>, then it is set to the same character given
+by <I>index</I>.
+Returns an empty list.
+<P>
+</DL>
+<DT><A NAME="M105">(<I>widget-name '</I><B>type</B><I> tagOrId</I>)</A><DD>
+Returns the type of the item given by <I>tagOrId</I>, such as
+<B>rectangle</B> or <B>text</B>.
+If <I>tagOrId</I> refers to more than one item, then the type
+of the first item in the display list is returned.
+If <I>tagOrId</I> doesn't refer to any items at all then
+an empty list is returned.
+<P>
+<DT><A NAME="M106">(<I>widget-name '</I><B>xview  </B>?<I>args</I>?)</A><DD>
+This procedure is used to query and change the horizontal position of the
+information displayed in the canvas's window.
+It can take any of the following forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M107">(<I>widget-name '</I><B>xview</B>)</A><DD>
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the canvas's area (as defined by the <B>:scrollregion</B> option)
+is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the canvas is off-screen to the right.
+These are the same values passed to scrollbars via the <B>:xscrollcommand</B>
+option.
+<P>
+<DT><A NAME="M108">(<I>widget-name '</I><B>xview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that <I>fraction</I> of the
+total width of the canvas is off-screen to the left.
+<I>Fraction</I> must be a fraction between 0 and 1.
+<P>
+<DT><A NAME="M109">(<I>widget-name '</I><B>xview 'scroll </B><I>number what</I>)</A><DD>
+This procedure shifts the view in the window left or right according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B> or an abbreviation
+of one of these.
+If <I>what</I> is <B>units</B>, the view adjusts left or right in units
+of the <B>xScrollIncrement</B> option, if it is greater than zero,
+or in units of one-tenth the window's width otherwise.
+If <I>what is </I><B>pages</B> then the view
+adjusts in units of nine-tenths the window's width.
+If <I>number</I> is negative then information farther to the left
+becomes visible;  if it is positive then information farther to the right
+becomes visible.
+<P>
+</DL>
+<DT><A NAME="M110">(<I>widget-name '</I><B>yview </B><I>?args</I>?)</A><DD>
+This procedure is used to query and change the vertical position of the
+information displayed in the canvas's window.
+It can take any of the following forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M111">(<I>widget-name '</I><B>yview</B>)</A><DD>
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the vertical span that is visible in the window.
+For example, if the first element is .6 and the second element is 1.0,
+the lowest 40% of the canvas's area (as defined by the <B>:scrollregion</B>
+option) is visible in the window.
+These are the same values passed to scrollbars via the <B>:yscrollcommand</B>
+option.
+<P>
+<DT><A NAME="M112">(<I>widget-name '</I><B>yview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that <I>fraction</I> of the canvas's
+area is off-screen to the top.
+<I>Fraction</I> is a fraction between 0 and 1.
+<P>
+<DT><A NAME="M113">(<I>widget-name '</I><B>yview 'scroll </B><I>number what</I>)</A><DD>
+This procedure adjusts the view in the window up or down according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B>.
+If <I>what</I> is <B>units</B>, the view adjusts up or down in units
+of the <B>yScrollIncrement</B> option, if it is greater than zero,
+or in units of one-tenth the window's height otherwise.
+If <I>what</I> is <B>pages</B> then
+the view adjusts in units of nine-tenths the window's height.
+If <I>number</I> is negative then higher information becomes
+visible;  if it is positive then lower information
+becomes visible.
+<P>
+</DL>
+</DL>
+<H3><A NAME="M114">OVERVIEW OF ITEM TYPES</A></H3>
+The sections below describe the various types of items supported
+by canvas widgets.  Each item type is characterized by two things:
+first, the form of the <B>create</B> procedure used to create
+instances of the type;  and second, a set of configuration options
+for items of that type, which may be used in the
+<B>create</B> and <B>itemconfigure</B> widget procedures.
+Most items don't support indexing or selection or the procedures
+related to them, such as <B>index</B> and <B>insert</B>.
+Where items do support these facilities, it is noted explicitly
+in the descriptions below (at present, only text items provide
+this support).
+
+<H3><A NAME="M115">ARC ITEMS</A></H3>
+Items of type <B>arc</B> appear on the display as arc-shaped regions.
+An arc is a section of an oval delimited by two angles (specified
+by the <B>:start</B> and <B>:extent</B> options) and displayed in
+one of several ways (specified by the <B>:style</B> option).
+Arcs are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'arc </B><I>x1 y1 x2 y2 </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I> give
+the coordinates of two diagonally opposite corners of a
+rectangular region enclosing the oval that defines the arc.
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for arcs:
+<P>
+<DL>
+<DT><A NAME="M116"><B>:extent </B><I>degrees</I></A><DD>
+Specifies the size of the angular range occupied by the arc.
+The arc's range extends for <I>degrees</I> degrees counter-clockwise
+from the starting angle given by the <B>:start</B> option.
+<I>Degrees</I> may be negative.
+If it is greater than 360 or less than -360, then <I>degrees</I>
+modulo 360 is used as the extent.
+<P>
+<DT><A NAME="M117"><B>:fill </B><I>color</I></A><DD>
+Fill the region of the arc with <I>color</I>.
+<I>Color</I> may have any of the forms accepted by <B>Tk_GetColor</B>.
+If <I>color</I> is an empty string (the default), then
+then the arc will not be filled.
+<P>
+<DT><A NAME="M118"><B>:outline </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for drawing the arc's
+outline;  it may have any of the forms accepted by <B>Tk_GetColor</B>.
+This option defaults to <B>black</B>.  If <I>color</I> is specified
+as an empty string then no outline is drawn for the arc.
+<P>
+<DT><A NAME="M119"><B>:outlinestipple </B><I>bitmap</I></A><DD>
+Indicates that the outline for the arc should be drawn with a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If the <B>:outline</B> option hasn't been specified then this option
+has no effect.
+If <I>bitmap</I> is an empty string (the default), then the outline is drawn
+in a solid fashion.
+<P>
+<DT><A NAME="M120"><B>:start </B><I>degrees</I></A><DD>
+Specifies the beginning of the angular range occupied by the
+arc.
+<I>Degrees</I> is given in units of degrees measured counter-clockwise
+from the 3-o'clock position;  it may be either positive or negative.
+<P>
+<DT><A NAME="M121"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the arc should be filled in a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If the <B>:fill</B> option hasn't been specified then this option
+has no effect.
+If <I>bitmap</I> is an empty string (the default), then filling is done
+in a solid fashion.
+<P>
+<DT><A NAME="M122"><B>:style </B><I>type</I></A><DD>
+Specifies how to draw the arc.  If <I>type</I> is <B>pieslice</B>
+(the default) then the arc's region is defined by a section
+of the oval's perimeter plus two line segments, one between the center
+of the oval and each end of the perimeter section.
+If <I>type</I> is <B>chord</B> then the arc's region is defined
+by a section of the oval's perimeter plus a single line segment
+connecting the two end points of the perimeter section.
+If <I>type</I> is <B>arc</B> then the arc's region consists of
+a section of the perimeter alone.
+In this last case the <B>:fill</B> option is ignored.
+<P>
+<DT><A NAME="M123"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M124"><B>:width </B><I>outlineWidth</I></A><DD>
+Specifies the width of the outline to be drawn around
+the arc's region, in any of the forms described in the COORDINATES
+section above.
+If the <B>:outline</B> option has been specified as an empty string
+then this option has no effect.
+Wide outlines will be drawn centered on the edges of the arc's region.
+This option defaults to 1.0.
+
+<P>
+</DL>
+<H3><A NAME="M125">BITMAP ITEMS</A></H3>
+Items of type <B>bitmap</B> appear on the display as images with
+two colors, foreground and background.
+Bitmaps are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'bitmap </B><I>x y </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x</I> and <I>y</I> specify the coordinates of a
+point used to position the bitmap on the display (see the <B>:anchor</B>
+option below for more information on how bitmaps are displayed).
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for bitmaps:
+<P>
+<DL>
+<DT><A NAME="M126"><B>:anchor </B><I>anchorPos</I></A><DD>
+<I>AnchorPos</I> tells how to position the bitmap relative to the
+positioning point for the item;  it may have any of the forms
+accepted by <B>Tk_GetAnchor</B>.  For example, if <I>anchorPos</I>
+is <B>center</B> then the bitmap is centered on the point;  if
+<I>anchorPos</I> is <B>n</B> then the bitmap will be drawn so that
+its top center point is at the positioning point.
+This option defaults to <B>center</B>.
+<P>
+<DT><A NAME="M127"><B>:background </B><I>color</I></A><DD>
+Specifies a color to use for each of the bitmap pixels
+whose value is 0.
+<I>Color</I> may have any of the forms accepted by <B>Tk_GetColor</B>.
+If this option isn't specified, or if it is specified as an empty
+string, then nothing is displayed where the bitmap pixels are 0;  this
+produces a transparent effect.
+<P>
+<DT><A NAME="M128"><B>:bitmap </B><I>bitmap</I></A><DD>
+Specifies the bitmap to display in the item.
+<I>Bitmap</I> may have any of the forms accepted by <B>Tk_GetBitmap</B>.
+<P>
+<DT><A NAME="M129"><B>:foreground </B><I>color</I></A><DD>
+Specifies a color to use for each of the bitmap pixels
+whose value is 1.
+<I>Color</I> may have any of the forms accepted by <B>Tk_GetColor</B> and
+defaults to <B>black</B>.
+<P>
+<DT><A NAME="M130"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+
+<P>
+</DL>
+<H3><A NAME="M131">IMAGE ITEMS</A></H3>
+Items of type <B>image</B> are used to display images on a
+canvas.
+Images are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'image </B><I>x y </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x</I> and <I>y</I> specify the coordinates of a
+point used to position the image on the display (see the <B>:anchor</B>
+option below for more information).
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for images:
+<P>
+<DL>
+<DT><A NAME="M132"><B>:anchor </B><I>anchorPos</I></A><DD>
+<I>AnchorPos</I> tells how to position the image relative to the
+positioning point for the item;  it may have any of the forms
+accepted by <B>Tk_GetAnchor</B>.  For example, if <I>anchorPos</I>
+is <B>center</B> then the image is centered on the point;  if
+<I>anchorPos</I> is <B>n</B> then the image will be drawn so that
+its top center point is at the positioning point.
+This option defaults to <B>center</B>.
+<P>
+<DT><A NAME="M133"><B>:image </B><I>name</I></A><DD>
+Specifies the name of the image to display in the item.
+This image must have been created previously with the
+<B><A HREF=.././image.n.html>image create</A></B> procedure.
+<P>
+<DT><A NAME="M134"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item;  it may be an empty list.
+
+<P>
+</DL>
+<H3><A NAME="M135">LINE ITEMS</A></H3>
+Items of type <B>line</B> appear on the display as one or more connected
+line segments or curves.
+Lines are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'line </B><I>x1 y1... xn yn </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x1</I> through <I>yn</I> give
+the coordinates for a series of two or more points that describe
+a series of connected line segments.
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for lines:
+<P>
+<DL>
+<DT><A NAME="M136"><B>:arrow </B><I>where</I></A><DD>
+Indicates whether or not arrowheads are to be drawn at one or both
+ends of the line.
+<I>Where</I> must have one of the values <B>none</B> (for no arrowheads),
+<B>first</B> (for an arrowhead at the first point of the line),
+<B>last</B> (for an arrowhead at the last point of the line), or
+<B>both</B> (for arrowheads at both ends).
+This option defaults to <B>none</B>.
+<P>
+<DT><A NAME="M137"><B>:arrowshape </B><I>shape</I></A><DD>
+This option indicates how to draw arrowheads.
+The <I>shape</I> argument must be a list with three elements, each
+specifying a distance in any of the forms described in
+the COORDINATES section above.
+The first element of the list gives the distance along the line
+from the neck of the arrowhead to its tip.
+The second element gives the distance along the line from the
+trailing points of the arrowhead to the tip, and the third
+element gives the distance from the outside edge of the line to the
+trailing points.
+If this option isn't specified then Tk picks a ``reasonable'' shape.
+<P>
+<DT><A NAME="M138"><B>:capstyle </B><I>style</I></A><DD>
+Specifies the ways in which caps are to be drawn at the endpoints
+of the line.
+<I>Style</I> may have any of the forms accepted by <B>Tk_GetCapStyle</B>
+(<B>butt</B>, <B>projecting</B>, or <B>round</B>).
+If this option isn't specified then it defaults to <B>butt</B>.
+Where arrowheads are drawn the cap style is ignored.
+<P>
+<DT><A NAME="M139"><B>:fill </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for drawing the line; it may have
+any of the forms acceptable to <B>Tk_GetColor</B>.  It may also be an
+empty string, in which case the line will be transparent.
+This option defaults to <B>black</B>.
+<P>
+<DT><A NAME="M140"><B>:joinstyle </B><I>style</I></A><DD>
+Specifies the ways in which joints are to be drawn at the vertices
+of the line.
+<I>Style</I> may have any of the forms accepted by <B>Tk_GetCapStyle</B>
+(<B>bevel</B>, <B>miter</B>, or <B>round</B>).
+If this option isn't specified then it defaults to <B>miter</B>.
+If the line only contains two points then this option is
+irrelevant.
+<P>
+<DT><A NAME="M141"><B>:smooth </B><I>boolean</I></A><DD>
+<I>Boolean</I> must have one of the forms accepted by <B>Tk_GetBoolean</B>.
+It indicates whether or not the line should be drawn as a curve.
+If so, the line is rendered as a set of Bezier splines: one spline
+is drawn for the first and second line segments, one for the second
+and third, and so on.  Straight-line segments can be generated within
+a curve by duplicating the end-points of the desired line segment.
+<P>
+<DT><A NAME="M142"><B>:splinesteps </B><I>number</I></A><DD>
+Specifies the degree of smoothness desired for curves:  each spline
+will be approximated with <I>number</I> line segments.  This
+option is ignored unless the <B>:smooth</B> option is true.
+<P>
+<DT><A NAME="M143"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the line should be filled in a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If <I>bitmap</I> is an empty string (the default), then filling is
+done in a solid fashion.
+<P>
+<DT><A NAME="M144"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M145"><B>:width </B><I>lineWidth</I></A><DD>
+<I>LineWidth</I> specifies the width of the line, in any of the forms
+described in the COORDINATES section above.
+Wide lines will be drawn centered on the path specified by the
+points.
+If this option isn't specified then it defaults to 1.0.
+
+<P>
+</DL>
+<H3><A NAME="M146">OVAL ITEMS</A></H3>
+Items of type <B>oval</B> appear as circular or oval regions on
+the display.  Each oval may have an outline, a fill, or
+both.  Ovals are created with widget procedures of the
+following form:
+<PRE>(<I>widget-name '</I><B>create 'oval </B><I>x1 y1 x2 y2 </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I> give
+the coordinates of two diagonally opposite corners of a
+rectangular region enclosing the oval.
+The oval will include the top and left edges of the rectangle
+not the lower or right edges.
+If the region is square then the resulting oval is circular;
+otherwise it is elongated in shape.
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for ovals:
+<P>
+<DL>
+<DT><A NAME="M147"><B>:fill </B><I>color</I></A><DD>
+Fill the area of the oval with <I>color</I>.
+<I>Color</I> may have any of the forms accepted by <B>Tk_GetColor</B>.
+If <I>color</I> is an empty string (the default), then
+then the oval will not be filled.
+<P>
+<DT><A NAME="M148"><B>:outline </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for drawing the oval's
+outline;  it may have any of the forms accepted by <B>Tk_GetColor</B>.
+This option defaults to <B>black</B>.
+If <I>color</I> is an empty string then no outline will be
+drawn for the oval.
+<P>
+<DT><A NAME="M149"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the oval should be filled in a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If the <B>:fill</B> option hasn't been specified then this option
+has no effect.
+If <I>bitmap</I> is an empty string (the default), then filling is done
+in a solid fashion.
+<P>
+<DT><A NAME="M150"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M151"><B>:width </B><I>outlineWidth</I></A><DD>
+<I>outlineWidth</I> specifies the width of the outline to be drawn around
+the oval, in any of the forms described in the COORDINATES section above.
+If the <B>:outline</B> option hasn't been specified then this option
+has no effect.
+Wide outlines are drawn centered on the oval path defined by
+<I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I>.
+This option defaults to 1.0.
+
+<P>
+</DL>
+<H3><A NAME="M152">POLYGON ITEMS</A></H3>
+Items of type <B>polygon</B> appear as polygonal or curved filled regions
+on the display.
+Polygons are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'polygon </B><I>x1 y1 ... xn yn </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x1</I> through <I>yn</I> specify the coordinates for
+three or more points that define a closed polygon.
+The first and last points may be the same;  whether they are or not,
+Tk will draw the polygon as a closed polygon.
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for polygons:
+<P>
+<DL>
+<DT><A NAME="M153"><B>:fill </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for filling the area of the
+polygon; it may have any of the forms acceptable to <B>Tk_GetColor</B>.
+If <I>color</I> is an empty string then the polygon will be
+transparent.
+This option defaults to <B>black</B>.
+<P>
+<DT><A NAME="M154"><B>:outline </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for drawing the polygon's
+outline;  it may have any of the forms accepted by <B>Tk_GetColor</B>.
+If <I>color</I> is an empty string then no outline will be
+drawn for the polygon.
+This option defaults to empty (no outline).
+<P>
+<DT><A NAME="M155"><B>:smooth </B><I>boolean</I></A><DD>
+<I>Boolean</I> must have one of the forms accepted by <B>Tk_GetBoolean</B>
+It indicates whether or not the polygon should be drawn with a
+curved perimeter.
+If so, the outline of the polygon becomes a set of Bezier splines,
+one spline for the first and second line segments, one for the second
+and third, and so on.  Straight-line segments can be generated in a
+smoothed polygon by duplicating the end-points of the desired line segment.
+<P>
+<DT><A NAME="M156"><B>:splinesteps </B><I>number</I></A><DD>
+Specifies the degree of smoothness desired for curves:  each spline
+will be approximated with <I>number</I> line segments.  This
+option is ignored unless the <B>:smooth</B> option is true.
+<P>
+<DT><A NAME="M157"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the polygon should be filled in a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If <I>bitmap</I> is an empty string (the default), then filling is
+done in a solid fashion.
+<P>
+<DT><A NAME="M158"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M159"><B>:width </B><I>outlineWidth</I></A><DD>
+<I>OutlineWidth</I> specifies the width of the outline to be drawn around
+the polygon, in any of the forms described in the COORDINATES section above.
+If the <B>:outline</B> option hasn't been specified then this option
+has no effect.  This option defaults to 1.0.
+<P>
+</DL>
+<P>
+Polygon items are different from other items such as rectangles, ovals
+and arcs in that interior points are considered to be ``inside'' a
+polygon (e.g. for purposes of the <B>find closest</B> and
+<B>find overlapping</B> widget commands) even if it is not filled.
+For most other item types, an
+interior point is considered to be inside the item only if the item
+is filled or if it has neither a fill nor an outline.  If you would
+like an unfilled polygon whose interior points are not considered
+to be inside the polygon, use a line item instead.
+
+<H3><A NAME="M160">RECTANGLE ITEMS</A></H3>
+Items of type <B>rectangle</B> appear as rectangular regions on
+the display.  Each rectangle may have an outline, a fill, or
+both.  Rectangles are created with widget procedures of the
+following form:
+<PRE>(<I>widget-name '</I><B>create 'rectangle </B><I>x1 y1 x2 y2 </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I> give
+the coordinates of two diagonally opposite corners of the rectangle
+(the rectangle will include its upper and left edges but not
+its lower or right edges).
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for rectangles:
+<P>
+<DL>
+<DT><A NAME="M161"><B>:fill </B><I>color</I></A><DD>
+Fill the area of the rectangle with <I>color</I>, which may be
+specified in any of the forms accepted by <B>Tk_GetColor</B>.
+If <I>color</I> is an empty string (the default),
+then the rectangle will not be filled.
+<P>
+<DT><A NAME="M162"><B>:outline </B><I>color</I></A><DD>
+Draw an outline around the edge of the rectangle in <I>color</I>.
+<I>Color</I> may have any of the forms accepted by <B>Tk_GetColor</B>.
+This option defaults to <B>black</B>.
+If <I>color</I> is an empty string then no outline will be
+drawn for the rectangle.
+<P>
+<DT><A NAME="M163"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the rectangle should be filled in a stipple pattern;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If the <B>:fill</B> option hasn't been specified then this option
+has no effect.
+If <I>bitmap</I> is an empty string (the default), then filling
+is done in a solid fashion.
+<P>
+<DT><A NAME="M164"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M165"><B>:width </B><I>outlineWidth</I></A><DD>
+<I>OutlineWidth</I> specifies the width of the outline to be drawn around
+the rectangle, in any of the forms described in the COORDINATES section above.
+If the <B>:outline</B> option hasn't been specified then this option
+has no effect.
+Wide outlines are drawn centered on the rectangular path
+defined by <I>x1</I>, <I>y1</I>, <I>x2</I>, and <I>y2</I>.
+This option defaults to 1.0.
+
+<P>
+</DL>
+<H3><A NAME="M166">TEXT ITEMS</A></H3>
+A text item displays a string of characters on the screen in one
+or more lines.
+Text items support indexing and selection, along with the
+following text-related canvas widget procedures:  <B>dchars</B>,
+<B>focus</B>, <B>icursor</B>, <B>index</B>, <B>insert</B>,
+<B>select</B>.
+Text items are created with widget procedures of the following
+form:
+<PRE>(<I>widget-name '</I><B>create 'text </B><I>x y </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x</I> and <I>y</I> specify the coordinates of a
+point used to position the text on the display (see the options
+below for more information on how text is displayed).
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for text items:
+<P>
+<DL>
+<DT><A NAME="M167"><B>:anchor </B><I>anchorPos</I></A><DD>
+<I>AnchorPos</I> tells how to position the text relative to the
+positioning point for the text;  it may have any of the forms
+accepted by <B>Tk_GetAnchor</B>.  For example, if <I>anchorPos</I>
+is <B>center</B> then the text is centered on the point;  if
+<I>anchorPos</I> is <B>n</B> then the text will be drawn such that
+the top center point of the rectangular region occupied by the
+text will be at the positioning point.
+This option defaults to <B>center</B>.
+<P>
+<DT><A NAME="M168"><B>:fill </B><I>color</I></A><DD>
+<I>Color</I> specifies a color to use for filling the text characters;
+it may have any of the forms accepted by <B>Tk_GetColor</B>.
+If this option isn't specified then it defaults to <B>black</B>.
+<P>
+<DT><A NAME="M169"><B>:font </B><I>fontName</I></A><DD>
+Specifies the font to use for the text item.
+<I>FontName</I> may be any string acceptable to <B>Tk_GetFontStruct</B>.
+If this option isn't specified, it defaults to a system-dependent
+font.
+<P>
+<DT><A NAME="M170"><B>:justify </B><I>how</I></A><DD>
+Specifies how to justify the text within its bounding region.
+<I>How</I> must be one of the values <B>left</B>, <B>right</B>,
+or <B>center</B>.
+This option will only matter if the text is displayed as multiple
+lines.
+If the option is omitted, it defaults to <B>left</B>.
+<P>
+<DT><A NAME="M171"><B>:stipple </B><I>bitmap</I></A><DD>
+Indicates that the text should be drawn in a stippled pattern
+rather than solid;
+<I>bitmap</I> specifies the stipple pattern to use, in any of the
+forms accepted by <B>Tk_GetBitmap</B>.
+If <I>bitmap</I> is an empty string (the default) then the text
+is drawn in a solid fashion.
+<P>
+<DT><A NAME="M172"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M173"><B>:text </B><I>string</I></A><DD>
+<I>String</I> specifies the characters to be displayed in the text item.
+Newline characters cause line breaks.
+The characters in the item may also be changed with the
+<B>insert</B> and <B>delete</B> widget procedures.
+This option defaults to an empty string.
+<P>
+<DT><A NAME="M174"><B>:width </B><I>lineLength</I></A><DD>
+Specifies a maximum line length for the text, in any of the forms
+described in the COORDINATES section above.
+If this option is zero (the default) the text is broken into
+lines only at newline characters.
+However, if this option is non-zero then any line that would
+be longer than <I>lineLength</I> is broken just before a space
+character to make the line shorter than <I>lineLength</I>;  the
+space character is treated as if it were a newline
+character.
+
+<P>
+</DL>
+<H3><A NAME="M175">WINDOW ITEMS</A></H3>
+Items of type <B>window</B> cause a particular window to be displayed
+at a given position on the canvas.
+Window items are created with widget procedures of the following form:
+<PRE>(<I>widget-name '</I><B>create 'window </B><I>x y </I>?<I>option value option value ...</I>?)</PRE>
+The arguments <I>x</I> and <I>y</I> specify the coordinates of a
+point used to position the window on the display (see the <B>:anchor</B>
+option below for more information on how bitmaps are displayed).
+After the coordinates there may be any number of <I>option</I>-<I>value</I>
+pairs, each of which sets one of the configuration options
+for the item.  These same <I>option</I>-<I>value</I> pairs may be
+used in <B>itemconfigure</B> widget procedures to change the item's
+configuration.
+The following options are supported for window items:
+<P>
+<DL>
+<DT><A NAME="M176"><B>:anchor </B><I>anchorPos</I></A><DD>
+<I>AnchorPos</I> tells how to position the window relative to the
+positioning point for the item;  it may have any of the forms
+accepted by <B>Tk_GetAnchor</B>.  For example, if <I>anchorPos</I>
+is <B>center</B> then the window is centered on the point;  if
+<I>anchorPos</I> is <B>n</B> then the window will be drawn so that
+its top center point is at the positioning point.
+This option defaults to <B>center</B>.
+<P>
+<DT><A NAME="M177"><B>:height </B><I>pixels</I></A><DD>
+Specifies the height to assign to the item's window.
+<I>Pixels</I> may have any of the
+forms described in the COORDINATES section above.
+If this option isn't specified, or if it is specified as an empty
+string, then the window is given whatever height it requests internally.
+<P>
+<DT><A NAME="M178"><B>:tags </B><I>tagList</I></A><DD>
+Specifies a set of tags to apply to the item.
+<I>TagList</I> consists of a list of tag names, which replace any
+existing tags for the item.
+<I>TagList</I> may be an empty list.
+<P>
+<DT><A NAME="M179"><B>:width </B><I>pixels</I></A><DD>
+Specifies the width to assign to the item's window.
+<I>Pixels</I> may have any of the
+forms described in the COORDINATES section above.
+If this option isn't specified, or if it is specified as an empty
+string, then the window is given whatever width it requests internally.
+<P>
+<DT><A NAME="M180"><B>:window </B><I>widget-name</I></A><DD>
+Specifies the window to associate with this item.
+The window specified by <I>widget-name</I> must either be a child of
+the canvas widget or a child of some ancestor of the canvas widget.
+<I>PathName</I> may not refer to a top-level window.
+
+<P>
+</DL>
+<H3><A NAME="M181">APPLICATION-DEFINED ITEM TYPES</A></H3>
+It is possible for individual applications to define new item
+types for canvas widgets using C code.
+See the documentation for <B>Tk_CreateItemType</B>.
+
+
+<H3><A NAME="M182">BINDINGS</A></H3>
+In the current implementation, new canvases are not given any
+default behavior:  you'll have to execute explicit STk procedures
+to give the canvas its behavior.
+
+<H3><A NAME="M183">CREDITS</A></H3>
+Tk's canvas widget is a blatant ripoff of ideas from Joel Bartlett's
+<I>ezd</I> program.  <I>Ezd</I> provides structured graphics in a Scheme
+environment and preceded canvases by a year or two.  Its simple
+mechanisms for placing and animating graphical objects inspired the
+functions of canvases.
+
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/checkbutton.n.html b/Help/checkbutton.n.html
new file mode 100644
index 0000000..4ea7795
--- /dev/null
+++ b/Help/checkbutton.n.html
@@ -0,0 +1,288 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - checkbutton manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> checkbutton</H2>
+<I>Create and manipulate checkbutton widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>checkbutton</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:activeforeground">:activeforeground</A></B> 
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:bitmap">:bitmap</A></B>                                <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:disabledforeground">:disabledforeground</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:image">:image</A></B> 
+<B><A HREF="options.n.html#M:justify">:justify</A></B>                               <B><A HREF="options.n.html#M:padx">:padx</A></B> 
+<B><A HREF="options.n.html#M:pady">:pady</A></B>                                  <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:text">:text</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:underline">:underline</A></B> 
+<B><A HREF="options.n.html#M:wraplength">:wraplength</A></B>                           
+</PRE>
+<H3><A NAME="M27">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>command</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.  The button's global variable (<B>:variable</B> option) will
+be updated before the procedure is invoked.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+<P>
+<DT><I>Name</I>:            <B>indicatorOn</B>
+<DT><I>Class</I>:           <B>IndicatorOn</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:indicatoron</A></B>
+<DT><I>STklos slot name</I>: <B>indicator-on</B>
+<DD>Specifies whether or not the indicator should be drawn.  Must be a
+proper boolean value.  If false, the <B>relief</B> option is
+ignored and the widget's relief is always sunken if the widget is
+selected and raised otherwise.
+<P>
+<P>
+<DT><I>Name</I>:            <B>offValue</B>
+<DT><I>Class</I>:           <B>Value</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:offvalue</A></B>
+<DT><I>STklos slot name</I>: <B>off-value</B>
+<DD>Specifies value to store in the button's associated variable whenever
+this button is deselected.  Defaults to <B>#f</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>onValue</B>
+<DT><I>Class</I>:           <B>Value</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M32">:onvalue</A></B>
+<DT><I>STklos slot name</I>: <B>on-value</B>
+<DD>Specifies value to store in the button's associated variable whenever
+this button is selected.  Defaults to <B>#t</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectColor</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M33">:selectcolor</A></B>
+<DT><I>STklos slot name</I>: <B>select-color</B>
+<DD>Specifies a background color to use when the button is selected.
+If <B>indicatorOn</B> is true then the color applicies to the indicator.
+If <B>indicatorOn</B> is false, this color is used as the background
+for the entire widget, in place of <B>background</B> or <B>activeBackground</B>,
+whenever the widget is selected.
+If specified as an empty string then no special color is used for
+displaying when the widget is selected.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectImage</B>
+<DT><I>Class</I>:           <B>SelectImage</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M34">:selectimage</A></B>
+<DT><I>STklos slot name</I>: <B>select-image</B>
+<DD>Specifies an image to display (in place of the <B>image</B> option)
+when the checkbutton is selected.
+This option is ignored unless the <B>image</B> option has been
+specified.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M35">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of three states for the checkbutton:  <B>normal</B>, <B>active</B>,
+or <B>disabled</B>.  In normal state the checkbutton is displayed using the
+<B>foreground</B> and <B>background</B> options.  The active state is
+typically used when the pointer is over the checkbutton.  In active state
+the checkbutton is displayed using the <B>activeForeground</B> and
+<B>activeBackground</B> options.  Disabled state means that the checkbutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the <B>disabledForeground</B> and
+<B>background</B> options determine how the checkbutton is displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>stringvalue</B>
+<DT><I>Class</I>:           <B>StringValue</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M36">:stringvalue</A></B>
+<DT><I>STklos slot name</I>: <B>string-value</B>
+<DD>Specifies if the value set to <B>variable</B> by <B>:offvalue</B> or 
+<B>:onvalue</B> must be <I>stringified</I>. For instance, with
+<P>
+</DL>
+<UL>
+<PRE>(checkbutton '.c :text &quot;Try&quot; :variable 'x :stringvalue #t 
+                 :onvalue 10 :offvalue 20)</PRE>
+the variabe <B>x</B> var is set to <I>&quot;10&quot;</I> or <I>&quot;20&quot;</I>, whereas
+with 
+<PRE>(checkbutton '.c :text &quot;Try&quot; :variable 'x :stringvalue #f 
+                 :onvalue 10 :offvalue 20)</PRE>
+it is set to 10 or 20. Default value for <B>:stringvalue</B> is <B>#t</B>. 
+</UL>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>variable</B>
+<DT><I>Class</I>:           <B>Variable</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M37">:variable</A></B>
+<DT><I>STklos slot name</I>: <B>variable</B>
+<DD>Specifies name of global variable to set to indicate whether
+or not this button is selected.  Defaults to the name of the
+button within its parent (i.e. the last element of the button
+window's path name).
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M38">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+</DL>
+<H3><A NAME="M39">DESCRIPTION</A></H3>
+The <B>checkbutton</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a checkbutton widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the checkbutton such as its colors, font,
+text, and initial relief.  The <B>checkbutton</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A checkbutton is a widget
+that displays a textual string, bitmap or image
+and a square called an <I>indicator</I>.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the <B>wrapLength</B> option) and
+one of the characters may optionally be underlined using the
+<B>underline</B> option.
+A checkbutton has
+all of the behavior of a simple button, including the
+following: it can display itself in either of three different
+ways, according to the <B>state</B> option;
+it can be made to appear
+raised, sunken, or flat; it can be made to flash; and it invokes
+a STk procedure whenever mouse button 1 is clicked over the
+checkbutton.
+<P>
+In addition, checkbuttons can be <I>selected</I>.
+If a checkbutton is selected then the indicator is normally
+drawn with a sunken relief and a special color, and
+a STk variable associated with the checkbutton is set to a particular
+value (normally 1).
+If the checkbutton is not selected, then the indicator is drawn with a
+raised relief and no special color, and the associated variable is
+set to a different value (typically 0).
+By default, the name of the variable associated with a checkbutton is the
+same as the <I>name</I> used to create the checkbutton.
+The variable name, and the ``on'' and ``off'' values stored in it,
+may be modified with options on the procedure line or in the option
+database.
+Configuration options may also be used to modify the way the
+indicator is displayed (or whether it is displayed at all).
+By default a checkbutton is configured to select and deselect
+itself on alternate button clicks.
+In addition, each checkbutton monitors its associated variable and
+automatically selects and deselects itself when the variables value
+changes to and from the button's ``on'' value.
+
+<H3><A NAME="M40">WIDGET PROCEDURE</A></H3>
+The <B>checkbutton</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for checkbutton widgets:
+<P>
+<DL>
+<DT><A NAME="M41">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>checkbutton</B>
+procedure.
+<P>
+<DT><A NAME="M42">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+<I>Option</I> may have any of the values accepted by the <B>checkbutton</B>
+procedure.
+<P>
+<DT><A NAME="M43">(<I>widget-name '</I><B>deselect</B>)</A><DD>
+Deselects the checkbutton and sets the associated variable to its ``off''
+value.
+<P>
+<DT><A NAME="M44">(<I>widget-name '</I><B>flash</B>)</A><DD>
+Flashes the checkbutton.  This is accomplished by redisplaying the checkbutton
+several times, alternating between active and normal colors.  At
+the end of the flash the checkbutton is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the checkbutton's state is <B>disabled</B>.
+<P>
+<DT><A NAME="M45">(<I>widget-name '</I><B>invoke</B>)</A><DD>
+Does just what would have happened if the user invoked the checkbutton
+with the mouse: toggle the selection state of the button and invoke
+the STk procedure associated with the checkbutton, if there is one
+(return value is undefined)
+This procedure is ignored if the checkbutton's state is <B>disabled</B>.
+<P>
+<DT><A NAME="M46">(<I>widget-name '</I><B>select</B>)</A><DD>
+Selects the checkbutton and sets the associated variable to its ``on''
+value.
+<P>
+<DT><A NAME="M47">(<I>widget-name '</I><B>toggle</B>)</A><DD>
+Toggles the selection state of the button, redisplaying it and
+modifying its associated variable to reflect the new state.
+
+<P>
+</DL>
+<H3><A NAME="M48">BINDINGS</A></H3>
+Tk automatically creates class bindings for checkbuttons that give them
+the following default behavior:
+<OL>
+<LI>
+A checkbutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the checkbutton.
+<LI>
+When mouse button 1 is pressed over a checkbutton it is invoked (its
+selection state toggles and the procedure associated with the button is
+invoked, if there is one).
+<LI>
+When a checkbutton has the input focus, the space key causes the checkbutton
+to be invoked.
+</OL>
+<P>
+If the checkbutton's state is <B>disabled</B> then none of the above
+actions occur:  the checkbutton is completely non-responsive.
+<P>
+The behavior of checkbuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M49">SEE ALSO</A></H3>
+<B><A HREF="./button.n.html">button</A></B>, <B><A HREF="./radiobutton.n.html">radiobutton</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/clipboard.n.html b/Help/clipboard.n.html
new file mode 100644
index 0000000..b0e9b43
--- /dev/null
+++ b/Help/clipboard.n.html
@@ -0,0 +1,73 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - clipboard manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> clipboard</H2>
+<I>Manipulate Tk clipboard</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>clipboard </B><I>option</I> ?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure provides a STk interface to the Tk clipboard,
+which stores data for later retrieval using the selection mechanism.
+In order to copy data into the clipboard, <B>clipboard clear</B> must
+be called, followed by a sequence of one or more calls to <B>clipboard
+append</B>.  To ensure that the clipboard is updated atomically, all
+appends should be completed before returning to the event loop.
+<P>
+The first argument to <B>clipboard</B> determines the format of the
+rest of the arguments and the behavior of the procedure.  The following
+forms are currently supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M4">(<B>clipboard 'clear</B>)</A><DD>
+<DT><A NAME="M5">(<B>clipboard 'clear</B> ?<B>:display-of</B> <I>window</I>?)</A><DD>
+Claims ownership of the clipboard on <I>window</I>'s display and removes
+any previous contents.  <I>Window</I> defaults to <B>*root*</B>.  Returns an
+empty list.
+<P>
+<DT><A NAME="M6">(<B>clipboard 'append</B> ?<B>:display-of</B> <I>window</I>? ?<B>:format</B> <I>format</I>? ?<B>:type</B> <I>type</I>? ?\fB:\|-\fR? \fIdata\fR)</A><DD>
+Appends <I>data</I> to the clipboard on <I>window</I>'s
+display in the form given by <I>type</I> with the representation given
+by <I>format</I> and claims ownership of the clipboard on <I>window</I>'s
+display.
+<P>
+<UL>
+<P>
+<I>Type</I> specifies the form in which the selection is to be returned
+(the desired ``target'' for conversion, in ICCCM terminology), and
+should be an atom name such as STRING or FILE_NAME; see the
+Inter-Client Communication Conventions Manual for complete details.
+<I>Type</I> defaults to STRING.
+<P>
+The <I>format</I> argument specifies the representation that should be
+used to transmit the selection to the requester (the second column of
+Table 2 of the ICCCM), and defaults to STRING.  If <I>format</I> is
+STRING, the selection is transmitted as 8-bit ASCII characters.  If
+<I>format</I> is ATOM, then the <I>data</I> is
+divided into fields separated by white space; each field is converted
+to its atom value, and the 32-bit atom value is transmitted instead of
+the atom name.  For any other <I>format</I>,  <I>data</I> is divided
+into fields separated by white space and each 
+field is converted to a 32-bit integer; an array of integers is
+transmitted to the selection requester.  Note that strings passed to
+<B>clipboard append</B> are concatenated before conversion, so the
+caller must take care to ensure appropriate spacing across string
+boundaries.  All items appended to the clipboard with the same
+<I>type</I> must have the same <I>format</I>.
+<P>
+The <I>format</I> argument is needed only for compatibility with
+clipboard requesters that don't use Tk.  If the Tk toolkit is being
+used to retrieve the CLIPBOARD selection then the value is converted back to
+a string at the requesting end, so <I>format</I> is
+irrelevant.
+<P>
+A \fB:\|-\fR argument may be specified to mark the end of options:  the
+next argument will always be used as \fIdata\fR.
+This feature may be convenient if, for example, \fIdata\fR starts
+with a \fB:\fR.
+</UL>
+</DL>
+<H3><A NAME="M7">SEE ALSO</A></H3>
+<B><A HREF="./selection.n.html">selection</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/destroy.n.html b/Help/destroy.n.html
new file mode 100644
index 0000000..88d3c47
--- /dev/null
+++ b/Help/destroy.n.html
@@ -0,0 +1,17 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - destroy manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> destroy</H2>
+<I>Destroy one or more windows</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>destroy </B>?<I>window window ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure deletes the windows given by the
+<I>window</I> arguments, plus all of their descendants.
+If a <I>window</I> <B>*root*</B> (or ``.'') is deleted then the entire application
+will be destroyed.
+The <I>window</I>s are destroyed in order, and if an error occurs
+in destroying a window the procedure aborts without destroying the
+remaining windows.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/entry.n.html b/Help/entry.n.html
new file mode 100644
index 0000000..77b27e5
--- /dev/null
+++ b/Help/entry.n.html
@@ -0,0 +1,436 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - entry manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> entry</H2>
+<I>Create and manipulate entry widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>entry</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:background">:background</A></B>                            <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:exportselection">:exportselection</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:insertbackground">:insertbackground</A></B> 
+<B><A HREF="options.n.html#M:insertborderwidth">:insertborderwidth</A></B>                     <B><A HREF="options.n.html#M:insertofftime">:insertofftime</A></B> 
+<B><A HREF="options.n.html#M:insertontime">:insertontime</A></B>                          <B><A HREF="options.n.html#M:insertwidth">:insertwidth</A></B> 
+<B><A HREF="options.n.html#M:justify">:justify</A></B>                               <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:selectbackground">:selectbackground</A></B>                      <B><A HREF="options.n.html#M:selectborderwidth">:selectborderwidth</A></B> 
+<B><A HREF="options.n.html#M:selectforeground">:selectforeground</A></B>                      <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:xscrollcommand">:xscrollcommand</A></B> 
+</PRE>
+<H3><A NAME="M26">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>show</B>
+<DT><I>Class</I>:           <B>Show</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M27">:show</A></B>
+<DT><I>STklos slot name</I>: <B>show</B>
+<DD>If this option is specified, then the true contents of the entry
+are not displayed in the window.
+Instead, each character in the entry's value will be displayed as
+the first character in the value of this option, such as ``*''.
+This is useful, for example, if the entry is to be used to enter
+a password.
+If characters in the entry are selected and copied elsewhere, the
+information copied will be what is displayed, not the true contents
+of the entry.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of two states for the entry:  <B>normal</B> or <B>disabled</B>.
+If the entry is disabled then the value may not be changed using widget
+procedures and no insertion cursor will be displayed, even if the input focus is
+in the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies an integer value indicating the desired width of the entry window,
+in average-size characters of the widget's font.
+If the value is less than or equal to zero, the widget picks a
+size just large enough to hold its current text.
+<P>
+</DL>
+<H3><A NAME="M30">DESCRIPTION</A></H3>
+The <B>entry</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into an entry widget.
+Additional options, described above, may be specified on the
+procedure line or in the option database
+to configure aspects of the entry such as its colors, font,
+and relief.  The <B>entry</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+An entry is a widget that displays a one-line text string and
+allows that string to be edited using widget procedures described below, which
+are typically bound to keystrokes and mouse actions.
+When first created, an entry's string is empty.
+A portion of the entry may be selected as described below.
+If an entry is exporting its selection (see the <B>exportSelection</B>
+option), then it will observe the standard X11 protocols for handling the
+selection;  entry selections are available as type <B>STRING</B>.
+Entries also observe the standard Tk rules for dealing with the
+input focus.  When an entry has the input focus it displays an
+<I>insertion cursor</I> to indicate where new characters will be
+inserted.
+<P>
+Entries are capable of displaying strings that are too long to
+fit entirely within the widget's window.  In this case, only a
+portion of the string will be displayed;  procedures described below
+may be used to change the view in the window.  Entries use
+the standard <B>xScrollCommand</B> mechanism for interacting with
+scrollbars (see the description of the <B>xScrollCommand</B> option
+for details).  They also support scanning, as described below.
+
+<H3><A NAME="M31">WIDGET PROCEDURE</A></H3>
+The <B>entry</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.
+<P>
+Many of the widget procedures for entries take one or more indices as
+arguments.  An index specifies a particular character in the entry's
+string, in any of the following ways:
+<P>
+<DL>
+<DT><A NAME="M32"><I>number</I></A><DD>
+Specifies the character as a numerical index, where 0 corresponds
+to the first character in the string.
+<P>
+<DT><A NAME="M33"><B>anchor</B></A><DD>
+Indicates the anchor point for the selection, which is set with the
+<B>select from</B> and <B>select adjust</B> widget procedures.
+<P>
+<DT><A NAME="M34"><B>end</B></A><DD>
+Indicates the character just after the last one in the entry's string.
+This is equivalent to specifying a numerical index equal to the length
+of the entry's string.
+<P>
+<DT><A NAME="M35"><B>insert</B></A><DD>
+Indicates the character adjacent to and immediately following the
+insertion cursor.
+<P>
+<DT><A NAME="M36"><B>sel.first</B></A><DD>
+Indicates the first character in the selection.  It is an error to
+use this form if the selection isn't in the entry window.
+<P>
+<DT><A NAME="M37"><B>sel.last</B></A><DD>
+Indicates the character just after the last one in the selection.
+It is an error to use this form if the selection isn't in the
+entry window.
+<P>
+<DT><A NAME="M38"><B>@</B><I>number</I></A><DD>
+In this form, <I>number</I> is treated as an x-coordinate in the
+entry's window;  the character spanning that x-coordinate is used.
+For example, ``<B>@0</B>'' indicates the left-most character in the
+window.
+<P>
+</DL>
+<P>
+Abbreviations may be used for any of the forms above, e.g. ``<B>e</B>''
+or ``<B>sel.f</B>''.  In general, out-of-range indices are automatically
+rounded to the nearest legal value.
+<P>
+The following procedures are possible for entry widgets:
+<P>
+<DL>
+<DT><A NAME="M39">(<I>widget-name '</I><B>bbox </B><I>index</I>)</A><DD>
+Returns a list of four numbers describing the bounding box of the
+character given by <I>index</I>.
+The first two elements of the list give the x and y coordinates of
+the upper-left corner of the screen area covered by the character
+(in pixels relative to the widget) and the last two elements give
+the width and height of the character, in pixels.
+The bounding box may refer to a region outside the visible area
+of the window.
+<P>
+<DT><A NAME="M40">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>entry</B>
+procedure.
+<P>
+<DT><A NAME="M41">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>entry</B>
+procedure.
+<P>
+<DT><A NAME="M42">(<I>widget-name '</I><B>delete </B><I>first</I>)</A><DD>
+<DT><A NAME="M43">(<I>widget-name '</I><B>delete </B><I>first </I><I>last</I>)</A><DD>
+Delete one or more elements of the entry.
+<I>First</I> is the index of the first character to delete, and
+<I>last</I> is the index of the character just after the last
+one to delete.
+If <I>last</I> isn't specified it defaults to <I>first</I>+1,
+i.e. a single character is deleted.
+This procedure returns an empty string.
+<P>
+<DT><A NAME="M44">(<I>widget-name '</I><B>get</B>)</A><DD>
+Returns the entry's string.
+<P>
+<DT><A NAME="M45">(<I>widget-name '</I><B>icursor </B><I>index</I>)</A><DD>
+Arrange for the insertion cursor to be displayed just before the character
+given by <I>index</I>.  Returns an empty string.
+<P>
+<DT><A NAME="M46">(<I>widget-name '</I><B>index</B><I> index</I>)</A><DD>
+Returns the numerical index corresponding to <I>index</I>.
+<P>
+<DT><A NAME="M47">(<I>widget-name '</I><B>insert </B><I>index string</I>)</A><DD>
+Insert the characters of <I>string</I> just before the character
+indicated by <I>index</I>.  Returns an empty string.
+<P>
+<DT><A NAME="M48">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
+This procedure is used to implement scanning on entries.  It has
+two forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M49">(<I>widget-name '</I><B>scan 'mark </B><I>x</I>)</A><DD>
+Records <I>x</I> and the current view in the entry window;  used in
+conjunction with later <B>scan dragto</B> procedures.  Typically this
+procedure is associated with a mouse button press in the widget.  It
+returns an empty string.
+<P>
+<DT><A NAME="M50">(<I>widget-name '</I><B>scan 'dragto </B><I>x</I>)</A><DD>
+This procedure computes the difference between its <I>x</I> argument
+and the <I>x</I> argument to the last <B>scan mark</B> procedure for
+the widget.  It then adjusts the view left or right by 10 times the
+difference in x-coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the entry at high speed through the window.  The return
+value is an empty string.
+<P>
+</DL>
+<DT><A NAME="M51">(<I>widget-name '</I><B>selection </B><I>option arg</I>)</A><DD>
+This procedure is used to adjust the selection within an entry.  It
+has several forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M52">(<I>widget-name '</I><B>selection 'adjust </B><I>index</I>)</A><DD>
+Locate the end of the selection nearest to the character given by
+<I>index</I>, and adjust that end of the selection to be at <I>index</I>
+(i.e including but not going beyond <I>index</I>).  The other
+end of the selection is made the anchor point for future
+<B>select to</B> procedures.  If the selection
+isn't currently in the entry, then a new selection is created to
+include the characters between <I>index</I> and the most recent
+selection anchor point, inclusive.
+Returns an empty string.
+<P>
+<DT><A NAME="M53">(<I>widget-name '</I><B>selection 'clear</B>)</A><DD>
+Clear the selection if it is currently in this widget.  If the
+selection isn't in this widget then the procedure has no effect.
+Returns an empty string.
+<P>
+<DT><A NAME="M54">(<I>widget-name '</I><B>selection 'from </B><I>index</I>)</A><DD>
+Set the selection anchor point to just before the character
+given by <I>index</I>.  Doesn't change the selection.
+Returns an empty string.
+<P>
+<DT><A NAME="M55">(<I>widget-name '</I><B>selection 'present</B>)</A><DD>
+Returns <B>#t</B> if there is are characters selected in the entry,
+<B>#f</B> if nothing is selected.
+<P>
+<DT><A NAME="M56">(<I>widget-name '</I><B>selection 'range </B><I>start</I> <I>end</I>)</A><DD>
+Sets the selection to include the characters starting with
+the one indexed by <I>start</I> and ending with the one just
+before <I>end</I>.
+If <I>end</I> refers to the same character as <I>start</I> or an
+earlier one, then the entry's selection is cleared.
+<P>
+<DT><A NAME="M57">(<I>widget-name '</I><B>selection 'to </B><I>index</I>)</A><DD>
+If <I>index</I> is before the anchor point, set the selection
+to the characters from <I>index</I> up to but not including
+the anchor point.
+If <I>index</I> is the same as the anchor point, do nothing.
+If <I>index</I> is after the anchor point, set the selection
+to the characters from the anchor point up to but not including
+<I>index</I>.
+The anchor point is determined by the most recent <B>select from</B>
+or <B>select adjust</B> procedure in this widget.
+If the selection isn't in this widget then a new selection is
+created using the most recent anchor point specified for the widget.
+Returns an empty string.
+<P>
+</DL>
+<DT><A NAME="M58">(<I>widget-name '</I><B>xview </B><I>args</I>)</A><DD>
+This procedure is used to query and change the horizontal position of the
+text in the widget's window.  It can take any of the following
+forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M59">(<I>widget-name '</I><B>xview</B>)</A><DD>
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the entry's text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+These are the same values passed to scrollbars via the <B>:xscrollcommand</B>
+option.
+<P>
+<DT><A NAME="M60">(<I>widget-name '</I><B>xview</B> <I>index</I>)</A><DD>
+Adjusts the view in the window so that the character given by <I>index</I>
+is displayed at the left edge of the window.
+<P>
+<DT><A NAME="M61">(<I>widget-name '</I><B>xview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that the character <I>fraction</I> of the
+way through the text appears at the left edge of the window.
+<I>Fraction</I> must be a fraction between 0 and 1.
+<P>
+<DT><A NAME="M62">(<I>widget-name '</I><B>xview 'scroll </B><I>number what</I>)</A><DD>
+This procedure shifts the view in the window left or right according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B> or an abbreviation
+of one of these.
+If <I>what</I> is <B>units</B>, the view adjusts left or right by
+<I>number</I> average-width characters on the display;  if it is
+<B>pages</B> then the view adjusts by <I>number</I> screenfuls.
+If <I>number</I> is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+<P>
+</DL>
+</DL>
+<H3><A NAME="M63">DEFAULT BINDINGS</A></H3>
+Tk automatically creates class bindings for entries that give them
+the following default behavior.
+In the descriptions below, ``word'' refers to a contiguous group
+of letters, digits, or ``_'' characters, or any single character
+other than these.
+<OL>
+<LI>
+Clicking mouse button 1 positions the insertion cursor
+just before the character underneath the mouse cursor, sets the
+input focus to this widget, and clears any selection in the widget.
+Dragging with mouse button 1 strokes out a selection between
+the insertion cursor and the character under the mouse.
+<LI>
+Double-clicking with mouse button 1 selects the word under the mouse
+and positions the insertion cursor at the beginning of the word.
+Dragging after a double click will stroke out a selection consisting
+of whole words.
+<LI>
+Triple-clicking with mouse button 1 selects all of the text in the
+entry and positions the insertion cursor before the first character.
+<LI>
+The ends of the selection can be adjusted by dragging with mouse
+button 1 while the Shift key is down;  this will adjust the end
+of the selection that was nearest to the mouse cursor when button
+1 was pressed.
+If the button is double-clicked before dragging then the selection
+will be adjusted in units of whole words.
+<LI>
+Clicking mouse button 1 with the Control key down will position the
+insertion cursor in the entry without affecting the selection.
+<LI>
+If any normal printing characters are typed in an entry, they are
+inserted at the point of the insertion cursor.
+<LI>
+The view in the entry can be adjusted by dragging with mouse button 2.
+If mouse button 2 is clicked without moving the mouse, the selection
+is copied into the entry at the position of the mouse cursor.
+<LI>
+If the mouse is dragged out of the entry on the left or right sides
+while button 1 is pressed, the entry will automatically scroll to
+make more text visible (if there is more text off-screen on the side
+where the mouse left the window).
+<LI>
+The Left and Right keys move the insertion cursor one character to the
+left or right;  they also clear any selection in the entry and set
+the selection anchor.
+If Left or Right is typed with the Shift key down, then the insertion
+cursor moves and the selection is extended to include the new character.
+Control-Left and Control-Right move the insertion cursor by words, and
+Control-Shift-Left and Control-Shift-Right move the insertion cursor
+by words and also extend the selection.
+Control-b and Control-f behave the same as Left and Right, respectively.
+Meta-b and Meta-f behave the same as Control-Left and Control-Right,
+respectively.
+<LI>
+The Home key, or Control-a, will move the insertion cursor to the
+beginning of the entry and clear any selection in the entry.
+Shift-Home moves the insertion cursor to the beginning of the entry
+and also extends the selection to that point.
+<LI>
+The End key, or Control-e, will move the insertion cursor to the
+end of the entry and clear any selection in the entry.
+Shift-End moves the cursor to the end and extends the selection
+to that point.
+<LI>
+The Select key and Control-Space set the selection anchor to the position
+of the insertion cursor.  They don't affect the current selection.
+Shift-Select and Control-Shift-Space adjust the selection to the
+current position of the insertion cursor, selecting from the anchor
+to the insertion cursor if there was not any selection previously.
+<LI>
+Control-/ selects all the text in the entry.
+<LI>
+Control-&#92; clears any selection in the entry.
+<LI>
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is a selection.
+<LI>
+The F20 key (labelled Cut on many Sun workstations) or Control-w
+copies the selection in the widget to the clipboard and deletes
+the selection.
+If there is no selection in the widget then these keys have no effect.
+<LI>
+The F18 key (labelled Paste on many Sun workstations) or Control-y
+inserts the contents of the clipboard at the position of the
+insertion cursor.
+<LI>
+The Delete key deletes the selection, if there is one in the entry.
+If there is no selection, it deletes the character to the right of
+the insertion cursor.
+<LI>
+The BackSpace key and Control-h delete the selection, if there is one
+in the entry.
+If there is no selection, it deletes the character to the left of
+the insertion cursor.
+<LI>
+Control-d deletes the character to the right of the insertion cursor.
+<LI>
+Meta-d deletes the word to the right of the insertion cursor.
+<LI>
+Control-k deletes all the characters to the right of the insertion
+cursor.
+<LI>
+Control-w deletes the word to the left of the insertion cursor.
+<LI>
+Control-t reverses the order of the two characters to the right of
+the insertion cursor.
+</OL>
+<P>
+If the entry is disabled using the <B>:state</B> option, then the entry's
+view can still be adjusted and text in the entry can still be selected,
+but no insertion cursor will be displayed and no text modifications will
+take place.
+<P>
+The behavior of entries can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/error-hlp.html b/Help/error-hlp.html
new file mode 100644
index 0000000..2e75d2b
--- /dev/null
+++ b/Help/error-hlp.html
@@ -0,0 +1,39 @@
+<HTML>
+<HEAD>
+<TITLE>STk error help (13-Sep-1995)</TITLE>
+<!-- Changed by: Erick Gallesio, 13-Sep-1995 -->
+</HEAD>
+
+<BODY>
+<H1><IMG ALIGN=BOTTOM SRC="Img/note.gif">STk stack window help</H1>
+<IMG ALIGN=TOP SRC="Img/colorline.gif">
+<BR>
+
+This window allows you to see the stack when an error occurs. Two
+sub-windows compose it.
+  <UL> 
+  <LI> the topmost window (labeled <strong>Stack content</strong>)
+       shows the contents of the stack when the error occurred. Each line
+       contains the parameters passed to an invocation of the <TT>eval</TT> 
+       procedure (last call to eval is on the first line).
+       <BR>
+       This window is also made of two sub-windows.
+       <UL>
+	  <LI> On the left side is the environment in which the expression 
+	       must be evaluated. Click on an item of this list to view
+	       the bindings defined in this environment.
+
+      	  <LI> On the right side, there is the expression to evaluate. Clicking on
+	       an item of this list sets the <em>Listener</em> 
+	       default environment to the environment of this expression.
+       </UL>
+  <LI> the bottom window (labeled <strong>Listener</strong>) allows you to 
+       interact with the <EM>STk</EM> interpreter. The listener reads an
+       expression in this window, evaluates it (in the environment previously
+       selected in the above <EM>Stack window</EM>) and prints its result in 
+       this window. 
+</UL>
+<hr>
+<A HREF="STk-hlp.html"><IMG ALIGN=TOP SRC="Img/home.gif"> Go to top</A>
+</BODY>
+</HTML>
diff --git a/Help/fbox-hlp.html b/Help/fbox-hlp.html
new file mode 100644
index 0000000..3e12d6e
--- /dev/null
+++ b/Help/fbox-hlp.html
@@ -0,0 +1,33 @@
+<HTML>
+<HEAD>
+<TITLE>STk File box help (20-Sep-1995)</TITLE>
+<!-- Changed by: Erick Gallesio, 20-Sep-1995 -->
+</HEAD>
+
+
+<BODY>
+<H1><IMG ALIGN=BOTTOM SRC="Img/note.gif">STk File box help</H1>
+<IMG ALIGN=TOP SRC="Img/colorline.gif">
+<BR>
+
+This file box is an instance of the <TT>&lt;File-box&gt; </TT>composite class.
+
+<P> 
+The <B>Parents</B> list contains current path exploded with one
+directory per line. Clicking on an item of this list allows a rapid
+access to a parent directory.
+
+<P>
+The <B>Files</B> list contains the files of the current
+directory. Special files (i.e dotted files) are shown iff the check
+button <I>All files</I>, situated on the bottom of the window, is set.
+
+<P> 
+A file name can also be typed-in in the <B>File name</B>
+entry. Use the <TT>Tab</TT> key to perform automatic completion.
+
+
+<hr>
+<A HREF="STk-hlp.html"><IMG ALIGN=TOP SRC="Img/home.gif"> Go to top </A>
+</BODY>
+</HTML>
diff --git a/Help/focus-next.n.html b/Help/focus-next.n.html
new file mode 100644
index 0000000..02ba619
--- /dev/null
+++ b/Help/focus-next.n.html
@@ -0,0 +1,53 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - Tk:focus-next manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> Tk:focus-next, Tk:focus-prev, Tk:focus-follows-mouse, Tk:focus-on, Tk:focus-off</H2>
+<I>Utility procedures for managing the input focus.</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>Tk:focus-next </B><I>window</I>)<BR>
+(<B>Tk:focus-prev </B><I>window</I>)<BR>
+(<B>Tk:focus-follows-mouse</B>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+<B>Tk:focus-next</B> is a utility procedure used for keyboard traversal.
+It returns the ``next'' window after <I>window</I> in focus order.
+The focus order is determined by
+the stacking order of windows and the structure of the window hierarchy.
+Among siblings, the focus order is the same as the stacking order, with the
+lowest window being first.
+If a window has children, the window is visited first, followed by
+its children (recursively), followed by its next sibling.
+Top-level windows other than <I>window</I> are skipped, so that
+<B>Tk:focus-next</B> never returns a window in a different top-level
+from <I>window</I>.
+<P>
+After computing the next window, <B>Tk:focus-next</B> examines the
+window's <B>:takefocus</B> option to see whether it should be skipped.
+If so, <B>Tk:focus-next</B> continues on to the next window in the focus
+order, until it eventually finds a window that will accept the focus
+or returns back to <I>window</I>.
+<P>
+<B>Tk:focus-prev</B> is similar to <B>Tk:focus-next</B> except that it
+returns the window just before <I>window</I> in the focus order.
+<P>
+<B>Tk:focus-follows-mouse</B> changes the focus model for the application
+to an implicit one where the window under the mouse gets the focus.
+After this procedure is called, whenever the mouse enters a window
+Tk will automatically give it the input focus.
+The <B><A HREF="./focus.n.html">focus</A></B> command may be used to move the focus to a window
+other than the one under the mouse, but as soon as the mouse moves
+into a new window the focus will jump to that window.
+Note: at present there is no built-in support for returning the
+application to an explicit focus model;  to do this you'll have
+to write a script that deletes the bindings created by
+<B>Tk:focus-follows-mouse</B>.
+
+<P>
+<B>Tk:focus-on</B> and <B>Tk:focus-off</B> are simpy defined as
+<PRE>(define Tk:focus-on  (lambda (w) #t))
+(define Tk:focus-off (lambda (w) #f))</PRE>
+This procedures can be used by the focus traversal algorithm presented in the 
+<B><A HREF="./options.n.html">options</A></B> manual page.
+<H3><A NAME="M4">SEE ALSO</A></H3>
+<B><A HREF="./focus.n.html">focus</A></B>, <B><A HREF="./toplevel.n.html">toplevel</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/focus.n.html b/Help/focus.n.html
new file mode 100644
index 0000000..02a6866
--- /dev/null
+++ b/Help/focus.n.html
@@ -0,0 +1,101 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - focus manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> focus</H2>
+<I>Manage the input focus</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>focus</B>)<BR>
+(<B>focus </B><I>window</I>)<BR>
+(<B>focus </B><I>option</I> ?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>focus</B> procedure is used to manage the Tk input focus.
+At any given time, one window on each display is designated as
+the <I>focus window</I>;  any key press or key release events for the
+display are sent to that window.
+It is normally up to the window manager to redirect the focus among the
+top-level windows of a display.  For example, some window managers
+automatically set the input focus to a top-level window whenever
+the mouse enters it;  others redirect the input focus only when
+the user clicks on a window.
+Usually the window manager will set the focus
+only to top-level windows, leaving it up to the application to
+redirect the focus among the children of the top-level.
+<P>
+Tk remembers one focus window for each top-level (the most recent
+descendant of that top-level to receive the focus);  when the window
+manager gives the focus
+to a top-level, Tk automatically redirects it to the remembered
+window.  Within a top-level Tk uses an <I>explicit</I> focus model
+by default.  Moving the mouse within a top-level does not normally
+change the focus;  the focus changes only when a widget
+decides explicitly to claim the focus (e.g., because of a button
+click), or when the user types a key such as Tab that moves the
+focus.
+<P>
+The STk procedure <B>Tk:focus-follows-mouse</B> may be invoked to
+create an <I>implicit</I> focus model:  it reconfigures Tk so that
+the focus is set to a window whenever the mouse enters it.
+The STk procedures <B>Tk:focus-next</B> and <B> Tk:focus-prev</B>
+implement a focus order among the windows of a top-level;  they
+are used in the default bindings for Tab and Shift-Tab, among other
+things.
+<P>
+The <B>focus</B> procedure can take any of the following forms:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>focus</B>)</A><DD>
+Returns the path name of the focus window on the display containing
+the application's main window,  or <B>#f</B> if no window in
+this application has the focus on that display.   Note:  it is
+better to specify the display explicitly using <B>:displayof</B>
+(see below) so that the code will work in applications using multiple
+displays.
+<P>
+<DT><A NAME="M5">(<B>focus </B><I>window</I>)</A><DD>
+If the application currently has the input focus on <I>window</I>'s
+display, this procedure resets the input focus for <I>window</I>'s display
+to <I>window</I> and returns an empty string.
+If the application doesn't currently have the  input focus on
+<I>window</I>'s display, <I>window</I> will be remembered as the focus
+for its top-level;  the next time the focus arrives at the top-level,
+Tk will redirect it to <I>window</I>.
+If <I>window</I> is an empty string then the procedure does nothing.
+<P>
+<DT><A NAME="M6">(<B>focus :displayof</B> <I>window</I>)</A><DD>
+Returns the name of the focus window on the display containing <I>window</I>.
+If the focus window for <I>window</I>'s display isn't in this
+application, the return value is an empty list.
+<P>
+<DT><A NAME="M7">(<B>focus :force </B><I>window</I>)</A><DD>
+Sets the focus of <I>window</I>'s display to <I>window</I>, even if
+the application doesn't currently have the input focus for the display.
+This procedure should be used sparingly, if at all.
+In normal usage, an application should not claim the focus for
+itself;  instead, it should wait for the window manager to give it
+the focus.
+If <I>window</I> is an empty string then the procedure does nothing.
+<P>
+<DT><A NAME="M8">(<B>focus :lastfor</B> <I>window</I>)</A><DD>
+Returns the name of the most recent window to have the input focus
+among all the windows in the same top-level as <I>window</I>.
+If no window in that top-level has ever had the input focus, or
+if the most recent focus window has been deleted, then the name
+of the top-level is returned.  The return value is the window that
+will receive the input focus the next time the window manager gives
+the focus to the top-level.
+
+<P>
+</DL>
+<H3><A NAME="M9">QUIRKS</A></H3>
+When an internal window receives the input focus, Tk doesn't actually
+set the X focus to that window;  as far as X is concerned, the focus
+will stay on the top-level window containing the window with the focus.
+However, Tk generates FocusIn and FocusOut events just as if the X
+focus were on the internal window.   This approach gets around a
+number of problems that would occur if the X focus were actually moved;
+the fact that the X focus is on the top-level is invisible unless
+you use C code to query the X server directly.
+<H3><A NAME="M10">SEE ALSO</A></H3>
+<B><A HREF="./grab.n.html">grab</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/frame.n.html b/Help/frame.n.html
new file mode 100644
index 0000000..0033535
--- /dev/null
+++ b/Help/frame.n.html
@@ -0,0 +1,142 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - frame manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> frame</H2>
+<I>Create and manipulate frame widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>frame</B><I> widget-name ?options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                            
+</PRE>
+<H3><A NAME="M11">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>background</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M12">:background</A></B>
+<DT><I>STklos slot name</I>: <B>background</B>
+<DD>This option is the same as the standard <B>background</B> option
+except that its value may also be specified as an empty string.
+In this case, the widget will display no background or border, and
+no colors will be consumed from its colormap for its background
+and border.
+<P>
+<P>
+<DT><I>Name</I>:            <B>class</B>
+<DT><I>Class</I>:           <B>Class</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M13">:class</A></B>
+<DT><I>STklos slot name</I>: <B>class</B>
+<DD>Specifies a class for the window.
+This class will be used when querying the option database for
+the window's other options, and it will also be used later for
+other purposes such as bindings.
+The <B>class</B> option may not be changed with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>colormap</B>
+<DT><I>Class</I>:           <B>Colormap</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M14">:colormap</A></B>
+<DT><I>STklos slot name</I>: <B>colormap</B>
+<DD>Specifies a colormap to use for the window.
+The value may be either <B>new</B>, in which case a new colormap is
+created for the window and its children, or the name of another
+window (which must be on the same screen and have the same visual
+as <I>widget-name</I>), in which case the new window will use the colormap
+from the specified window.
+If the <B>colormap</B> option is not specified, the new window
+uses the same colormap as its parent.
+This option may not be changed with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M15">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies the desired height for the window in any of the forms
+acceptable to <B>Tk_GetPixels</B>.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+<P>
+<P>
+<DT><I>Name</I>:            <B>visual</B>
+<DT><I>Class</I>:           <B>Visual</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M16">:visual</A></B>
+<DT><I>STklos slot name</I>: <B>visual</B>
+<DD>Specifies visual information for the new window in any of the
+forms accepted by <B>Tk_GetVisual</B>.
+If this option is not specified, the new window will use the same
+visual as its parent.
+The <B>visual</B> option may not be modified with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M17">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired width for the window in any of the forms
+acceptable to <B>Tk_GetPixels</B>.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+<P>
+</DL>
+<H3><A NAME="M18">DESCRIPTION</A></H3>
+The <B>frame</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a frame widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the frame such as its background color
+and relief.  The <B>frame</B> procedure returns the
+path name of the new window.
+<P>
+A frame is a simple widget.  Its primary purpose is to act as a
+spacer or container for complex window layouts.  The only features
+of a frame are its background color and an optional 3-D border to make the
+frame appear raised or sunken.
+
+<H3><A NAME="M19">WIDGET PROCEDURE</A></H3>
+The <B>frame</B> procedure creates a new STk procedure whose
+name is the same as the path name of the frame's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>PathName</I> is the name of the procedure, which is the same as
+the frame widget's path name.  <I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for frame widgets:
+<P>
+<DL>
+<DT><A NAME="M20">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>frame</B>
+procedure.
+<P>
+<DT><A NAME="M21">(<I>widget-name </I><B>configure</B> ?<I>option</I>? <I>?value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>frame</B>
+procedure.
+
+<P>
+</DL>
+<H3><A NAME="M22">BINDINGS</A></H3>
+When a new frame is created, it has no default event bindings:
+frames are not intended to be interactive.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/ftp.n.html b/Help/ftp.n.html
new file mode 100644
index 0000000..054d8b3
--- /dev/null
+++ b/Help/ftp.n.html
@@ -0,0 +1,104 @@
+<HTML><HEAD><TITLE>STk procedures - ftp manual page</TITLE></HEAD>
+<BODY bgcolor = #ffffa0>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageYellow.gif"> ftp </H2>
+<I>A small (and very incomplete) FTP library</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>make </B><I>&lt;FTP-connection&gt; </I>?<I>options</I>?)<BR>
+(<B>ftp-login f user pass</B>)<BR>
+(<B>ftp-quit f</B>)<BR>
+(<B>ftp-chdir f dir</B>)<BR>
+(<B>ftp-pwd f</B>)<BR>
+(<B>ftp-type f mode</B>)<BR>
+(<B>ftp-help f</B>)<BR>
+(<B>ftp-help f command</B>)<BR>
+(<B>ftp-dir f</B>)<BR>
+(<B>ftp-dir f args</B>)<BR>
+(<B>ftp-get f file</B>)<BR>
+(<B>ftp-put f file</B>)<BR>
+(<B>ftp-display f file</B>)<BR>
+<H3><A NAME="M3">CLASS DESCRIPTION</A></H3>
+<DL>
+<DT><A NAME="M4"><I>Included&nbsp;with:</I></A><DD>
+(require &quot;ftp&quot;)
+<P>
+<DT><A NAME="M5"><I>Inherits&nbsp;from:</I></A><DD>
+&lt;top&gt;
+<P>
+<DT><A NAME="M6"><I>Direct&nbsp;slots:</I></A><DD>
+<B>host</B> contains the name of the host to connect to.
+<P>
+<P>
+<P>
+<B>port</B> specifies the port to use to establish the ftp connection. 
+This slot is initialized by default to 21 by default (the standard ftp port).
+<P>
+<P>
+<P>
+<B>echo</B> is the name of a one parameter procedure used to display
+the messages sent by the ftp server. This slot is initialized to by
+default to the standard <I>display</I> procedure.
+
+<P>
+</DL>
+<H3><A NAME="M7">DESCRIPTION</A></H3>
+This library is a first attempt to make the FTP protocol available
+from the STk interpreter.  It is still very incomplete and has not
+been intensively tested. Any help to make the subset implemented
+conform to RFC 959 would be greatly appreciated.
+
+<P>
+The following procedure are implemented by the library:
+<P>
+<DL>
+<DT><A NAME="M8">(<B>ftp-quit f</B>)</A><DD>
+close the connection <I>f</I> to the remote host and the associated files.
+<P>
+<DT><A NAME="M9">(<B>ftp-chdir f dir</B>)</A><DD>
+changes the remote working directory on the <I>f</I> connection.
+<P>
+<DT><A NAME="M10">(<B>ftp-pwd f</B>)</A><DD>
+returns the remote working directory on the <I>f</I> connection.
+<P>
+<DT><A NAME="M11">(<B>ftp-type f mode</B>)</A><DD>
+set the file transfer type to <I>mode</I> on the <I>f</I>
+connection. <I>Mode</I> must be a one letter symbol such as
+'a (for ASCII) or 'i (for image).
+<P>
+<DT><A NAME="M12">(<B>ftp-help f</B>)</A><DD>
+<DT><A NAME="M13">(<B>ftp-help f command</B>)</A><DD>
+prints help from the server connected to <I>f</I> on the standard output port.
+<P>
+<DT><A NAME="M14">(<B>ftp-dir f</B>)</A><DD>
+<DT><A NAME="M15">(<B>ftp-dir f args</B>)</A><DD>
+gives the list of files in the current remote directory. If args is specified
+it is passed to the ftp server.
+<P>
+<DT><A NAME="M16">(<B>ftp-get f file</B>)</A><DD>
+retrieves <I>file</I> on the remote server.
+<P>
+<DT><A NAME="M17">(<B>ftp-put f file</B>)</A><DD>
+stores <I>file</I> on the remote server.
+<P>
+<DT><A NAME="M18">(<B>ftp-display f file</B>)</A><DD>
+prints on the standard output port the content of the file <I>file</I> 
+located the remote server.
+
+<P>
+</DL>
+<P>
+All these procedures return a boolean value which indicate if the requested 
+operation succeeded or not.
+
+<H3><A NAME="M19">EXAMPLE</A></H3>
+Hereafter is a simple session which prints the content of the /pub
+directory and gets the last release of STk on the <I>kaolin</I>
+workstation:
+<PRE>(define f (make &lt;FTP-connection&gt; :host &quot;kaolin.unice.fr&quot;))
+(when (ftp-login &quot;anonymous&quot; &quot;eg@unice.fr&quot;)
+   (ftp-chdir f &quot;/pub&quot;)
+   (ftp-dir f &quot;-lsa&quot;)
+   (ftp-get f &quot;STk.tar.gz&quot;)
+   (ftp-quit f))</PRE>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookYellow.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/grab.n.html b/Help/grab.n.html
new file mode 100644
index 0000000..a2a86ca
--- /dev/null
+++ b/Help/grab.n.html
@@ -0,0 +1,116 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - grab manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> grab</H2>
+<I>Confine pointer and keyboard events to a window sub-tree</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>grab </B><I>window</I>)<BR>
+(<B>grab </B><B>:global</B> <I>window</I>)<BR>
+(<B>grab </B><I>option </I>?<I>arg arg </I>...?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure implements simple pointer and keyboard grabs for Tk.
+Tk's grabs are different than the grabs
+described in the Xlib documentation.
+When a grab is set for a particular window, Tk restricts all pointer
+events to the grab window and its descendants in Tk's window hierarchy.
+Whenever the pointer is within the grab window's subtree, the pointer
+will behave exactly the same as if there had been no grab at all
+and all events will be reported in the normal fashion.
+When the pointer is outside <I>window</I>'s tree, button presses and
+releases and
+mouse motion events are reported to <I>window</I>, and window entry
+and window exit events are ignored.
+The grab subtree ``owns'' the pointer:
+windows outside the grab subtree will be visible on the screen
+but they will be insensitive until the grab is released.
+The tree of windows underneath the grab window can include top-level
+windows, in which case all of those top-level windows
+and their descendants will continue to receive mouse events
+during the grab.
+<P>
+Two forms of grabs are possible:  local and global.
+A local grab affects only the grabbing application:  events will
+be reported to other applications as if the grab had never occurred.
+Grabs are local by default.
+A global grab locks out all applications on the screen,
+so that only the given subtree of the grabbing application will be
+sensitive to pointer events (mouse button presses, mouse button releases,
+pointer motions, window entries, and window exits).
+During global grabs the window manager will not receive pointer
+events either.
+<P>
+During local grabs, keyboard events (key presses and key releases)
+are delivered as usual:  the window
+manager controls which application receives keyboard events, and
+if they are sent to any window in the grabbing application then they are
+redirected to the focus window.
+During a global grab Tk grabs the keyboard so that all keyboard events
+are always sent to the grabbing application.
+The <B><A HREF="./focus.n.html">focus</A></B> procedure is still used to determine which window in the
+application receives the keyboard events.
+The keyboard grab is released when the grab is released.
+<P>
+Grabs apply to particular displays.  If an application has windows
+on multiple displays then it can establish a separate grab on each
+display.
+The grab on a particular display affects only the windows on
+that display.
+It is possible for different applications on a single display to have
+simultaneous local grabs, but only one application can have a global
+grab on a given display at once.
+<P>
+The <B>grab</B> procedure can take any of the following forms:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>grab </B> <I>window</I>)</A><DD>
+<DT><A NAME="M5">(<B>grab </B><B>:global</B> <I>window</I>)</A><DD>
+Same as <B>grab set</B>, described below.
+<P>
+<DT><A NAME="M6">(<B>grab 'current </B>)</A><DD>
+<DT><A NAME="M7">(<B>grab 'current </B><I>window</I>)</A><DD>
+If <I>window</I> is specified, returns the name of the current grab
+window in this application for <I>window</I>'s display, or an empty
+string if there is no such window.
+If <I>window</I> is omitted, the procedure returns a list whose elements
+are all of the windows grabbed by this application for all displays,
+or an empty string if the application has no grabs.
+<P>
+<DT><A NAME="M8">(<B>grab 'release </B><I>window</I>)</A><DD>
+Releases the grab on <I>window</I> if there is one, otherwise does
+nothing.  Returns an empty string.
+<P>
+<DT><A NAME="M9">(<B>grab 'set </B> <I>window</I>)</A><DD>
+<DT><A NAME="M10">(<B>grab 'set </B><B>:global</B> <I>window</I>)</A><DD>
+Sets a grab on <I>window</I>.  If <B>:global</B> is specified then the
+grab is global, otherwise it is local.
+If a grab was already in effect for this application on
+<I>window</I>'s display then it is automatically released.
+If there is already a grab on <I>window</I> and it has the same
+global/local form as the requested grab, then the procedure
+does nothing.  Returns an empty string.
+<P>
+<DT><A NAME="M11">(<B>grab 'status </B><I>window</I>)</A><DD>
+Returns <B>&quot;none&quot;</B> if no grab is currently set on <I>window</I>,
+<B>&quot;local&quot;</B> if a local grab is set on <I>window</I>, and
+<B>&quot;global&quot;</B> if a global grab is set.
+
+<P>
+</DL>
+<H3><A NAME="M12">BUGS</A></H3>
+It took an incredibly complex and gross implementation to produce
+the simple grab effect described above.
+Given the current implementation, it isn't safe for applications
+to use the Xlib grab facilities at all except through the Tk grab
+procedures.
+If applications try to manipulate X's grab mechanisms directly,
+things will probably break.
+<P>
+If a single process is managing several different Tk applications,
+only one of those applications can have a local grab for a given
+display at any given time.  If the applications are in different
+processes, this restriction doesn't exist.
+
+<H3><A NAME="M13">SEE ALSO</A></H3>
+<B><A HREF="./focus.n.html">focus</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/grid.n.html b/Help/grid.n.html
new file mode 100644
index 0000000..45b09aa
--- /dev/null
+++ b/Help/grid.n.html
@@ -0,0 +1,248 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - grid manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> grid</H2>
+<I>Geometry manager that arranges widgets in a grid</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>grid </B><I>option arg </I>?<I>arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>grid</B> procedure is used to communicate with the grid
+geometry manager that arranges widgets in rows and columns inside
+of another window, called the geometry master (or master window).
+The <B>grid</B> procedure can have any of several forms, depending
+on the <I>option</I> argument:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>grid </B><I>slave </I>?<I>slave ...</I>? ?<I>options</I>?)</A><DD>
+If the first argument to <B>grid</B> is a window name (any value
+starting with ``.''), then the procedure is processed in the same
+way as <B>grid configure</B>.
+<P>
+<DT><A NAME="M5">(<B>grid 'bbox </B><I>master column row</I>)</A><DD>
+The bounding box (in pixels) is returned for the space occupied by
+the grid position indicated by <I>column</I> and <I>row</I>.  The
+return value consists of 4 integers.  The first two are the pixel offset
+from the master window (x then y) of the top-left corner of the grid
+cell, and the second two are the width and height of the cell.
+<P>
+<DT><A NAME="M6">(<B>grid 'columnconfigure </B><I>master index </I>?<I>:option value...</I>?)</A><DD>
+Query or set the column properties of the <I>index</I> column of the 
+geometry master, <I>master</I>.
+The valid options are <B>:minsize</B> and <B>:weight</B>.
+The <B>:minsize</B> option sets the minimum column size, in screen units,
+and the <B>:weight</B> option (a floating point value)
+sets the relative weight for apportioning
+any extra spaces among
+columns.  If no value is specified, the current value is returned.
+<P>
+<DT><A NAME="M7">(<B>grid 'configure </B><I>slave </I>?<I>slave ...</I>? ?<I>options</I>?)</A><DD>
+The arguments consist of the names of one or more slave windows
+followed by pairs of arguments that specify how
+to manage the slaves.
+The characters <B>:</B>,  <B>x</B> and <B>^</B>, 
+can be specified instead of a window name to alter the default
+location of a <I>slave</I>, as described in the ``RELATIVE PLACEMENT''
+section, below.
+The following options are supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M8"><B>:column </B><I>n</I></A><DD>
+Insert the slave so that it occupies the <I>n</I>th column in the grid.
+Column numbers start with 0.  If this option is not supplied, then the
+slave is arranged just to the right of previous slave specified on this
+call to <I>grid</I>, or column &quot;0&quot; if it is the first slave.  For each
+<B>x</B> that immediately precedes the <I>slave</I>, the column position
+is incremented by one.  Thus the <B>x</B> represents a blank column
+for this row in the grid.
+<P>
+<DT><A NAME="M9"><B>:columnspan </B><I>n</I></A><DD>
+Insert the slave so that it occupies <I>n</I> columns in the grid.
+The default is one column, unless the window name is followed by a
+<B>:</B>, in which case the columnspan is incremented once for each immediately
+following <B>:</B>.
+<P>
+<DT><A NAME="M10"><B>:in </B><I>other</I></A><DD>
+Insert the slave(s) in the master
+window given by <I>other</I>.  The default is the first slave's
+parent window.
+<P>
+<DT><A NAME="M11"><B>:ipadx </B><I>amount</I></A><DD>
+The <I>amount</I> specifies how much horizontal internal padding to
+leave on each side of the slave(s).
+The <I>amount</I> must be a valid screen distance, such as <B>2</B> or <B>.5c</B>.
+It defaults to 0.
+<P>
+<DT><A NAME="M12"><B>:ipady </B><I>amount</I></A><DD>
+The <I>amount</I> specifies how much vertical internal padding to
+leave on on the top and bottom of the slave(s).
+The <I>amount</I>  defaults to 0.
+<P>
+<DT><A NAME="M13"><B>:padx </B><I>amount</I></A><DD>
+The <I>amount</I> specifies how much horizontal external padding to
+leave on each side of the slave(s).
+The <I>amount</I> defaults to 0.
+<P>
+<DT><A NAME="M14"><B>:pady </B><I>amount</I></A><DD>
+The <I>amount</I> specifies how much vertical external padding to
+leave on the top and bottom of the slave(s).
+The <I>amount</I> defaults to 0.
+<P>
+<DT><A NAME="M15"><B>:row </B><I>n</I></A><DD>
+Insert the slave so that it occupies the <I>n</I>th row in the grid.
+Row numbers start with 0.  If this option is not supplied, then the
+slave is arranged on the same row as the previous slave specified on this
+call to <B>grid</B>, or the first unoccupied row if this is the first slave.
+<P>
+<DT><A NAME="M16"><B>:rowspan </B><I>n</I></A><DD>
+Insert the slave so that it occupies <I>n</I> rows in the grid.
+The default is one row.  If the next <B>grid</B> procedure contains
+<B>^</B> characters instead of <I>slaves</I> that line up with the columns
+of this <I>slave</I>, then the <B>rowspan</B> of this <I>slave</I> is
+extended by one.
+<P>
+<DT><A NAME="M17"><B>:sticky </B><I>style</I></A><DD>
+If a slave's parcel is larger than its requested dimensions, this
+option may be used to position (or stretch) the slave within its cavity.
+<I>Style</I>  is a string that contains zero or more of the characters
+<B>n</B>, <B>s</B>, <B>e</B> or <B>w</B>.
+The string can optionally contains spaces or
+commas, but they are ignored.  Each letter refers to a side (north, south,
+east, or west) that the slave will &quot;stick&quot; to.  If both <B>n</B> and <B>s</B> (or
+<B>e</B> and <B>w</B>) are specified, the slave will be stretched to fill the entire
+height (or width) of its cavity.  The <B>sticky</B> option subsumes the
+combination of <B>:anchor</B> and <B>:fill</B> that is used by <B><A HREF="./pack.n.html">pack</A></B>.
+The default is the empty string, which causes the slave to be centered
+in its cavity, at its requested size.
+<P>
+</DL>
+<UL>
+<P>
+If any of the slaves are already managed by the geometry manager
+then any unspecified options for them retain their previous values rather
+than receiving default values.
+</UL>
+<DT><A NAME="M18">(<B>grid 'forget </B><I>slave </I>?<I>slave ...</I>?)</A><DD>
+Removes each of the <I>slave</I>s from grid for its
+master and unmaps their windows.
+The slaves will no longer be managed by the grid geometry manager.
+<P>
+<DT><A NAME="M19">(<B>grid 'info </B><I>slave</I>)</A><DD>
+Returns a list whose elements are the current configuration state of
+the slave given by <I>slave</I> in the same option-value form that
+might be specified to <B>grid configure</B>.
+The first two elements of the list are ``<B>:in </B><I>master</I>'' where
+<I>master</I> is the slave's master.
+<P>
+<DT><A NAME="M20">(<B>grid 'location </B><I>master x y</I>)</A><DD>
+Given  <I>x</I> and <I>y</I> values in screen units relative to the master window, 
+the column and row number at that <I>x</I> and <I>y</I> location is returned.
+For locations that are above or to the left of the grid, <B>-1</B> is returned.
+<P>
+<DT><A NAME="M21">(<B>grid 'propagate </B><I>master</I>)</A><DD>
+<DT><A NAME="M22">(<B>grid 'propagate </B><I>master</I> <I>boolean</I>)</A><DD>
+If <I>boolean</I> has a true boolean value
+then propagation is enabled for <I>master</I>, which must be a window
+name (see ``GEOMETRY PROPAGATION'' below).
+If <I>boolean</I> has a false boolean value then propagation is
+disabled for <I>master</I>.
+In either of these cases an empty list is returned.
+If <I>boolean</I> is omitted then the procedure returns <B>#f</B> or
+<B>#t</B> to indicate whether propagation is currently enabled
+for <I>master</I>.
+Propagation is enabled by default.
+<P>
+<DT><A NAME="M23">(<B>grid 'rowconfigure</B> <I>master index </I>)</A><DD>
+<DT><A NAME="M24">(<B>grid 'rowconfigure</B> <I>master index </I><I>:option value...</I>)</A><DD>
+Query or set the row properties of the <I>index</I> row of the 
+geometry master, <I>master</I>.
+The valid options are <B>:minsize</B> and <B>:weight</B>.
+<B>Minsize</B> sets the minimum row size, in screen units, and <B>weight</B>
+sets the relative weight for apportioning any extra spaces among
+rows.  If no value is specified, the current value is returned.
+<P>
+<DT><A NAME="M25">(<B>grid 'size </B><I>master</I>)</A><DD>
+Returns the size of the grid (in columns then rows) for <I>master</I>.
+The size is determined either by the <I>slave</I> occupying the largest
+row or column, or the largest column or row with a <B>minsize</B> or
+<B>weight</B>.
+<P>
+<DT><A NAME="M26">(<B>grid 'slaves </B><I>master</I>)</A><DD>
+<DT><A NAME="M27">(<B>grid 'slaves </B><I>master</I> <I>:option value</I>)</A><DD>
+If no options are supplied, a list of all of the slaves in <I>master</I>
+are returned. <I>Option</I> can be either <B>:row</B> or <B>:column</B> which
+causes only the slaves in the row (or column) specified by <I>value</I>
+to be returned.
+<P>
+</DL>
+<H3><A NAME="M28">RELATIVE PLACEMENT</A></H3>
+The <B>grid</B> procedure contains a limited set of capabilities that
+permit layouts to be created without specifying the row and column 
+information for each slave.  This permits slaves to be rearranged, 
+added, or removed without the need to explicitly specify row and
+column information.
+When no column or row information is specified for a <I>slave</I>, 
+default values are chosen for
+<B>column</B>, <B>row</B>, <B>columnspan</B> and <B>rowspan</B>
+at the time the <I>slave</I> is managed. The values are chosen
+based upon the current layout of the grid, the position of the <I>slave</I>
+relative to other <I>slave</I>s in the same grid procedure, and the presence
+of the characters <B>:</B>, <B>^</B>, and <B>^</B> in <B>grid</B>
+procedure where <I>slave</I> names are normally expected.
+<P>
+<DL>
+<DT><A NAME="M29"><B>:</B></A><DD>
+This increases the columnspan of the <I>slave</I> to the left.  Several
+<B>:</B>'s in a row will successively increase the columnspan. S <B>:</B>
+may not follow a <B>^</B> or a <B>x</B>.
+<P>
+<DT><A NAME="M30"><B>x</B></A><DD>
+This leaves an empty column between the <I>slave</I> on the left and
+the <I>slave</I> on the right.
+<P>
+<DT><A NAME="M31"><B>^</B></A><DD>
+This extends the <B>rowspan</B> of the <I>slave</I> above the <B>^</B>'s
+in the grid.  The number of <B>^</B>'s in a row must match the number of
+columns spanned by the <I>slave</I> above it.
+<P>
+</DL>
+<H3><A NAME="M32">GEOMETRY PROPAGATION</A></H3>
+Grid normally computes how large a master must be to
+just exactly meet the needs of its slaves, and it sets the
+requested width and height of the master to these dimensions.
+This causes geometry information to propagate up through a
+window hierarchy to a top-level window so that the entire
+sub-tree sizes itself to fit the needs of the leaf windows.
+However, the <B>grid propagate</B> procedure may be used to
+turn off propagation for one or more masters.
+If propagation is disabled then grid will not set
+the requested width and height of the master window.
+This may be useful if, for example, you wish for a master
+window to have a fixed size that you specify.
+
+<H3><A NAME="M33">RESTRICTIONS ON MASTER WINDOWS</A></H3>
+The master for each slave must either be the slave's parent
+(the default) or a descendant of the slave's parent.
+This restriction is necessary to guarantee that the
+slave can be placed over any part of its master that is
+visible without danger of the slave being clipped by its parent.
+
+<H3><A NAME="M34">STACKING ORDER</A></H3>
+If the master for a slave is not its parent then you must make sure
+that the slave is higher in the stacking order than the master.
+Otherwise the master will obscure the slave and it will appear as
+if the slave hasn't been managed correctly.
+The easiest way to make sure the slave is higher than the master is
+to create the master window first:  the most recently created window
+will be highest in the stacking order.
+
+<H3><A NAME="M35">CREDITS</A></H3>
+The <B>grid</B> procedure is based on the <I>GridBag</I> geometry manager
+written by D. Stein.  The first table-based geometry manager for Tk
+was <B>blt_table</B>, written by George Howlett;  many of the features
+of <B>grid</B> are similar to features in <B>blt_table</B>.
+
+<H3><A NAME="M36">SEE ALSO</A></H3>
+<B><A HREF="./pack.n.html">pack</A></B>, <B><A HREF="./place.n.html">place</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/image.n.html b/Help/image.n.html
new file mode 100644
index 0000000..cfa9a7b
--- /dev/null
+++ b/Help/image.n.html
@@ -0,0 +1,88 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - image manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> image</H2>
+<I>Create and manipulate images</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>image</B> <I>option </I>?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>image</B> command is used to create, delete, and query images.
+It can take several different forms, depending on the
+<I>option</I> argument.  The legal forms are:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>image 'create </B><I>type </I>?<I>name</I>? ?<I>option value ...</I>?)</A><DD>
+Creates a new image and returns its name.
+<I>type</I> specifies the type of the image, which must be one of
+the types currently defined (e.g., <B><A HREF="./bitmap.n.html">bitmap</A></B>).
+<I>name</I> specifies the name for the image;  if it is omitted then
+Tk picks a name of the form <B>image</B><I>x</I>, where <I>x</I> is
+an integer.
+There may be any number of <I>option</I>-<I>value</I> pairs,
+which provide configuration options for the new image.
+The legal set of options is defined separately for each image
+type;  see below for details on the options for built-in image types.
+If an image already exists by the given name then it is replaced
+with the new image and any instances of that image will redisplay
+with the new contents.
+<P>
+<DT><A NAME="M5">(<B>image 'delete </B><I>name</I> ?<I>name name</I> ...?)</A><DD>
+Deletes each of the named images and returns an empty list.
+If there are instances of the images displayed in widgets,
+the images won't actually be deleted until all of the instances
+are released.
+However, the association between the instances and the image
+manager will be dropped.
+Existing instances will retain their sizes but redisplay as
+empty areas.
+If a deleted image is recreated with another call to <B>image create</B>,
+the existing instances will use the new image.
+<P>
+<DT><A NAME="M6">(<B>image 'height </B><I>name</I>)</A><DD>
+Returns a decimal string giving the height of image <I>name</I>
+in pixels.
+<P>
+<DT><A NAME="M7">(<B>image 'names</B>)</A><DD>
+Returns a list containing the names of all existing images.
+<P>
+<DT><A NAME="M8">(<B>image 'type </B><I>name</I>)</A><DD>
+Returns the type of image <I>name</I> (the value of the <I>type</I>
+argument to <B>image create</B> when the image was created).
+<P>
+<DT><A NAME="M9">(<B>image 'types</B>)</A><DD>
+Returns a list whose elements are all of the valid image types
+(i.e., all of the values that may be supplied for the <I>type</I>
+argument to <B>image create</B>).
+<P>
+<DT><A NAME="M10">(<B>image 'width </B><I>name</I>)</A><DD>
+Returns a decimal string giving the width of image <I>name</I>
+in pixels.
+
+<P>
+</DL>
+<H3><A NAME="M11">BUILT-IN IMAGE TYPES</A></H3>
+The following image types are defined by Tk so they will be available
+in any Tk application.
+Individual applications or extensions may define additional types.
+<P>
+<DL>
+<DT><A NAME="M12"><B>bitmap</B></A><DD>
+Each pixel in the image displays a foreground color, a background
+color, or nothing.
+See the <B><A HREF="./bitmap.n.html">bitmap</A></B> manual entry for more information.
+<P>
+<DT><A NAME="M13"><B>photo</B></A><DD>
+Displays a variety of full-color images, using dithering to
+approximate colors on displays with limited color capabilities.
+See the <B><A HREF="./photo.n.html">photo</A></B> manual entry for more information.
+<P>
+<DT><A NAME="M14"><B>pixmap</B></A><DD>
+Displays a color images in X11 pixmap format. See the <B>pixmap</B> manual entry
+for more information.
+
+<P>
+</DL>
+<H3><A NAME="M15">SEE ALSO</A></H3>
+<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B>pixmap</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/label.n.html b/Help/label.n.html
new file mode 100644
index 0000000..00bccfa
--- /dev/null
+++ b/Help/label.n.html
@@ -0,0 +1,110 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - label manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> label</H2>
+<I>Create and manipulate label widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>label</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:bitmap">:bitmap</A></B>                                <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:font">:font</A></B> 
+<B><A HREF="options.n.html#M:foreground">:foreground</A></B>                            <B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B> 
+<B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B>                        <B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B> 
+<B><A HREF="options.n.html#M:image">:image</A></B>                                 <B><A HREF="options.n.html#M:justify">:justify</A></B> 
+<B><A HREF="options.n.html#M:padx">:padx</A></B>                                  <B><A HREF="options.n.html#M:pady">:pady</A></B> 
+<B><A HREF="options.n.html#M:relief">:relief</A></B>                                <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:text">:text</A></B>                                  <B><A HREF="options.n.html#M:textvariable">:textvariable</A></B> 
+<B><A HREF="options.n.html#M:underline">:underline</A></B>                             <B><A HREF="options.n.html#M:wraplength">:wraplength</A></B> 
+</PRE>
+<H3><A NAME="M24">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M25">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired height for the label.
+If an image or bitmap is being displayed in the label then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in lines of text.
+If this option isn't specified, the label's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M26">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired width for the label.
+If an image or bitmap is being displayed in the label then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in characters.
+If this option isn't specified, the label's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+</DL>
+<H3><A NAME="M27">DESCRIPTION</A></H3>
+The <B>label</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a label widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the label such as its colors, font,
+text, and initial relief.  The <B>label</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A label is a widget
+that displays a textual string, bitmap or image.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the <B>wrapLength</B> option) and
+one of the characters may optionally be underlined using the
+<B>underline</B> option.
+The label can be manipulated in a few simple ways, such as
+changing its relief or text, using the procedures described below.
+
+<H3><A NAME="M28">WIDGET PROCEDURE</A></H3>
+The <B>label</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for label widgets:
+<P>
+<DL>
+<DT><A NAME="M29">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>label</B>
+procedure.
+<P>
+<DT><A NAME="M30">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>label</B>
+procedure.
+
+<P>
+</DL>
+<H3><A NAME="M31">BINDINGS</A></H3>
+When a new label is created, it has no default event bindings:
+labels are not intended to be interactive.
+
+<H3><A NAME="M32">SEE ALSO</A></H3>
+<B><A HREF="./message.n.html">message</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/listbox.n.html b/Help/listbox.n.html
new file mode 100644
index 0000000..e54646d
--- /dev/null
+++ b/Help/listbox.n.html
@@ -0,0 +1,505 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - listbox manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> listbox</H2>
+<I>Create and manipulate listbox widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>listbox</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:background">:background</A></B>                            <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:exportselection">:exportselection</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:height">:height</A></B>                                <B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B> 
+<B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B>                        <B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B> 
+<B><A HREF="options.n.html#M:relief">:relief</A></B>                                <B><A HREF="options.n.html#M:selectbackground">:selectbackground</A></B> 
+<B><A HREF="options.n.html#M:selectborderwidth">:selectborderwidth</A></B>                     <B><A HREF="options.n.html#M:selectforeground">:selectforeground</A></B> 
+<B><A HREF="options.n.html#M:setgrid">:setgrid</A></B>                               <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:width">:width</A></B>                                 <B><A HREF="options.n.html#M:xscrollcommand">:xscrollcommand</A></B> 
+<B><A HREF="options.n.html#M:yscrollcommand">:yscrollcommand</A></B>                       
+</PRE>
+<H3><A NAME="M23">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M24">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies the desired height for the window, in lines.
+If zero or less, then the desired height for the window is made just
+large enough to hold all the elements in the listbox.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectMode</B>
+<DT><I>Class</I>:           <B>SelectMode</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M25">:selectmode</A></B>
+<DT><I>STklos slot name</I>: <B>select-mode</B>
+<DD>Speifies one of several styles for manipulating the selection.
+The value of the option may be arbitrary, but the default bindings
+expect it to be either <B>single</B>, <B>browse</B>, <B>multiple</B>,
+or <B>extended</B>;  the default value is <B>browse</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M26">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired width for the window in characters.
+If the font doesn't have a uniform width then the width of the
+character ``0'' is used in translating from character units to
+screen units.
+If zero or less, then the desired width for the window is made just
+large enough to hold all the elements in the listbox.
+<P>
+</DL>
+<H3><A NAME="M27">DESCRIPTION</A></H3>
+The <B>listbox</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a listbox widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the listbox such as its colors, font,
+text, and relief.  The <B>listbox</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A listbox is a widget that displays a list of strings, one per line.
+When first created, a new listbox has no elements.
+Elements may be added or deleted using widget procedures described
+below.  In addition, one or more elements may be selected as described
+below.
+If a listbox is exporting its selection (see <B>exportSelection</B>
+option), then it will observe the standard X11 protocols
+for handling the selection.
+Listbox selections are available as type <B>STRING</B>;
+the value of the selection will be the text of the selected elements, with
+newlines separating the elements.
+<P>
+It is not necessary for all the elements to be
+displayed in the listbox window at once;  procedures described below
+may be used to change the view in the window.  Listboxes allow
+scrolling in both directions using the standard <B>xScrollProcedure</B>
+and <B>yScrollProcedure</B> options.
+They also support scanning, as described below.
+
+<H3><A NAME="M28">INDICES</A></H3>
+Many of the widget procedures for listboxes take one or more indices
+as arguments.
+An index specifies a particular element of the listbox, in any of
+the following ways:
+<P>
+<DL>
+<DT><A NAME="M29"><I>number</I></A><DD>
+Specifies the element as a numerical index, where 0 corresponds
+to the first element in the listbox.
+<P>
+<DT><A NAME="M30"><B>active</B></A><DD>
+Indicates the element that has the location cursor.  This element
+will be displayed with an underline when the listbox has the
+keyboard focus, and it is specified with the <B>activate</B>
+widget procedure.
+<P>
+<DT><A NAME="M31"><B>anchor</B></A><DD>
+Indicates the anchor point for the selection, which is set with the
+``<I>selection anchor</I>'' widget procedure.
+<P>
+<DT><A NAME="M32"><B>end</B></A><DD>
+Indicates the end of the listbox.
+For some procedures this means just after the last element;
+for other procedures it means the last element.
+<P>
+<DT><A NAME="M33"><B>@</B><I>x</I><B>,</B><I>y</I></A><DD>
+Indicates the element that covers the point in the listbox window
+specified by <I>x</I> and <I>y</I> (in pixel coordinates).  If no
+element covers that point, then the closest element to that
+point is used.
+<P>
+</DL>
+<P>
+In the widget procedure descriptions below, arguments named <I>index</I>,
+<I>first</I>, and <I>last</I> always contain text indices in one of
+the above forms.
+
+<H3><A NAME="M34">WIDGET PROCEDURE</A></H3>
+The <B>listbox</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for listbox widgets:
+<P>
+<DL>
+<DT><A NAME="M35">(<I>widget-name '</I><B>activate</B> <I>index</I>)</A><DD>
+Sets the active element to the one indicated by <I>index</I>.
+The active element is drawn with an underline when the widget
+has the input focus, and its index may be retrieved with the
+index <B>active</B>.
+<P>
+<DT><A NAME="M36">(<I>widget-name '</I><B>bbox</B> <I>index</I>)</A><DD>
+Returns a list of four numbers describing the bounding box of
+the text in the element given by <I>index</I>.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the screen area covered by the text
+(specified in pixels relative to the widget) and the last two
+elements give the width and height of the area, in pixels.
+If no part of the element given by <I>index</I> is visible on the
+screen then the result is an empty list;  if the element is
+partially visible, the result gives the full area of the element,
+including any parts that are not visible.
+<P>
+<DT><A NAME="M37">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>listbox</B>
+procedure.
+<P>
+<DT><A NAME="M38">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+<I>Option</I> may have any of the values accepted by the <B>listbox</B>
+procedure.
+<P>
+<DT><A NAME="M39">(<I>widget-name '</I><B>curselection</B>)</A><DD>
+Returns a list containing the numerical indices of
+all of the elements in the listbox that are currently selected.
+If there are no elements selected in the listbox then <B>#f</B>
+is returned.
+<P>
+<DT><A NAME="M40">(<I>widget-name '</I><B>delete </B><I>first</I>)</A><DD>
+<DT><A NAME="M41">(<I>widget-name '</I><B>delete </B><I>first </I><I>last</I>)</A><DD>
+Deletes one or more elements of the listbox.  <I>First</I> and <I>last</I>
+are indices specifying the first and last elements in the range
+to delete.  If <I>last</I> isn't specified it defaults to
+<I>first</I>, i.e. a single element is deleted.
+<P>
+<DT><A NAME="M42">(<I>widget-name '</I><B>get </B><I>first</I>)</A><DD>
+<DT><A NAME="M43">(<I>widget-name '</I><B>get </B><I>first</I> <I>last</I>)</A><DD>
+If <I>last</I> is omitted, returns the contents of the listbox
+element indicated by <I>first</I>.
+If <I>last</I> is specified, the procedure returns a list whose elements
+are all of the listbox elements between <I>first</I> and <I>last</I>,
+inclusive.
+Both <I>first</I> and <I>last</I> may have any of the standard
+forms for indices.
+<P>
+<DT><A NAME="M44">(<I>widget-name '</I><B>index </B><I>index</I>)</A><DD>
+Returns a decimal string giving the integer index value that
+corresponds to <I>index</I>.
+<P>
+<DT><A NAME="M45">(<I>widget-name '</I><B>insert </B><I>index </I>?<I>element element ...</I>?)</A><DD>
+Inserts zero or more new elements in the list just before the
+element given by <I>index</I>.  If <I>index</I> is specified as
+<B>end</B> then the new elements are added to the end of the
+list.  Returns an empty list.
+<P>
+<DT><A NAME="M46">(<I>widget-name '</I><B>nearest </B><I>y</I>)</A><DD>
+Given a y-coordinate within the listbox window, this procedure returns
+the index of the (visible) listbox element nearest to that y-coordinate.
+<P>
+<DT><A NAME="M47">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
+This procedure is used to implement scanning on listboxes.  It has
+two forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M48">(<I>widget-name '</I><B>scan 'mark </B><I>x y</I>)</A><DD>
+Records <I>x</I> and <I>y</I> and the current view in the listbox
+window;  used in conjunction with later <B>scan dragto</B> procedures.
+Typically this procedure is associated with a mouse button press in
+the widget.  It returns an empty list.
+<P>
+<DT><A NAME="M49">(<I>widget-name '</I><B>scan 'dragto </B><I>x y</I>)</A><DD>
+This procedure computes the difference between its <I>x</I> and <I>y</I>
+arguments and the <I>x</I> and <I>y</I> arguments to the last
+<B>scan mark</B> procedure for the widget.
+It then adjusts the view by 10 times the
+difference in coordinates.  This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the list at high speed through the window.  The return
+value is an empty list.
+<P>
+</DL>
+<DT><A NAME="M50">(<I>widget-name '</I><B>see </B><I>index</I>)</A><DD>
+Adjust the view in the listbox so that the element given by <I>index</I>
+is visible.
+If the element is already visible then the procedure has no effect;
+if the element is near one edge of the window then the listbox
+scrolls to bring the element into view at the edge;  otherwise
+the listbox scrolls to center the element.
+<P>
+<DT><A NAME="M51">(<I>widget-name '</I><B>selection </B><I>option arg</I>)</A><DD>
+This procedure is used to adjust the selection within a listbox.  It
+has several forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M52">(<I>widget-name </I><B>'selection 'anchor </B><I>index</I>)</A><DD>
+Sets the selection anchor to the element given by <I>index</I>.
+The selection anchor is the end of the selection that is fixed
+while dragging out a selection with the mouse.
+The index <B>anchor</B> may be used to refer to the anchor
+element.
+<P>
+<DT><A NAME="M53">(<I>widget-name </I><B>'selection 'clear </B><I>first</I>)</A><DD>
+<DT><A NAME="M54">(<I>widget-name </I><B>'selection 'clear </B><I>first </I><I>last</I>)</A><DD>
+If any of the elements between <I>first</I> and <I>last</I>
+(inclusive) are selected, they are deselected.
+The selection state is not changed for elements outside
+this range.
+<P>
+<DT><A NAME="M55">(<I>widget-name </I><B>'selection 'includes </B><I>index</I>)</A><DD>
+Returns #t if the element indicated by <I>index</I> is currently
+selected, #f if it isn't.
+<P>
+<DT><A NAME="M56">(<I>widget-name </I><B>'selection 'set </B><I>first</I>)</A><DD>
+<DT><A NAME="M57">(<I>widget-name </I><B>'selection 'set </B><I>first </I><I>last</I>)</A><DD>
+Selects all of the elements in the range between
+<I>first</I> and <I>last</I>, inclusive, without affecting
+the selection state of elements outside that range.
+<P>
+</DL>
+<DT><A NAME="M58">(<I>widget-name '</I><B>size</B>)</A><DD>
+Returns a decimal string indicating the total number of elements
+in the listbox.
+<P>
+<DT><A NAME="M59">(<I>widget-name '</I><B>xview </B><I>args</I>)</A><DD>
+This procedure is used to query and change the horizontal position of the
+information in the widget's window.  It can take any of the following
+forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M60">(<I>widget-name '</I><B>xview</B>)</A><DD>
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the horizontal span that is visible in the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the listbox's text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+These are the same values passed to scrollbars via the <B>:xscrollprocedure</B>
+option.
+<P>
+<DT><A NAME="M61">(<I>widget-name '</I><B>xview</B> <I>index</I>)</A><DD>
+Adjusts the view in the window so that the character position given by
+<I>index</I> is displayed at the left edge of the window.
+Character positions are defined by the width of the character <B>0</B>.
+<P>
+<DT><A NAME="M62">(<I>widget-name </I><B>'xview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that <I>fraction</I> of the
+total width of the listbox text is off-screen to the left.
+<I>fraction</I> must be a fraction between 0 and 1.
+<P>
+<DT><A NAME="M63">(<I>widget-name </I><B>'xview 'scroll </B><I>number what</I>)</A><DD>
+This procedure shifts the view in the window left or right according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B> or an abbreviation
+of one of these.
+If <I>what</I> is <B>units</B>, the view adjusts left or right by
+<I>number</I> character units (the width of the <B>0</B> character)
+on the display;  if it is <B>pages</B> then the view adjusts by
+<I>number</I> screenfuls.
+If <I>number</I> is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+<P>
+</DL>
+<DT><A NAME="M64">(<I>widget-name '</I><B>yview </B><I>?args</I>?)</A><DD>
+This procedure is used to query and change the vertical position of the
+text in the widget's window.
+It can take any of the following forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M65">(<I>widget-name '</I><B>yview</B>)</A><DD>
+Returns a list containing two elements, both of which are real fractions
+between 0 and 1.
+The first element gives the position of the listbox element at the
+top of the window, relative to the listbox as a whole (0.5 means
+it is halfway through the listbox, for example).
+The second element gives the position of the listbox element just after
+the last one in the window, relative to the listbox as a whole.
+These are the same values passed to scrollbars via the <B>:yscrollprocedure</B>
+option.
+<P>
+<DT><A NAME="M66">(<I>widget-name '</I><B>yview</B> <I>index</I>)</A><DD>
+Adjusts the view in the window so that the element given by
+<I>index</I> is displayed at the top of the window.
+<P>
+<DT><A NAME="M67">(<I>widget-name </I><B>'yview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that the element given by <I>fraction</I>
+appears at the top of the window.
+<I>Fraction</I> is a fraction between 0 and 1;  0 indicates the first
+element in the listbox, 0.33 indicates the element one-third the
+way through the listbox, and so on.
+<P>
+<DT><A NAME="M68">(<I>widget-name </I><B>'yview 'scroll </B><I>number what</I>)</A><DD>
+This procedure adjusts the view in the window up or down according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B>.
+If <I>what</I> is <B>units</B>, the view adjusts up or down by
+<I>number</I> lines;  if it is <B>pages</B> then
+the view adjusts by <I>number</I> screenfuls.
+If <I>number</I> is negative then earlier elements
+become visible;  if it is positive then later elements
+become visible.
+<P>
+</DL>
+</DL>
+<H3><A NAME="M69">DEFAULT BINDINGS</A></H3>
+Tk automatically creates class bindings for listboxes that give them
+Motif-like behavior.  Much of the behavior of a listbox is determined
+by its <B>selectMode</B> option, which selects one of four ways
+of dealing with the selection.
+<P>
+If the selection mode is <B>single</B> or <B>browse</B>, at most one
+element can be selected in the listbox at once.
+In both modes, clicking button 1 on an element selects
+it and deselects any other selected item.
+In <B>browse</B> mode it is also possible to drag the selection
+with button 1.
+<P>
+If the selection mode is <B>multiple</B> or <B>extended</B>,
+any number of elements may be selected at once, including discontiguous
+ranges.  In <B>multiple</B> mode, clicking button 1 on an element
+toggles its selection state without affecting any other elements.
+In <B>extended</B> mode, pressing button 1 on an element selects
+it, deselects everything else, and sets the anchor to the element
+under the mouse;  dragging the mouse with button 1
+down extends the selection to include all the elements between
+the anchor and the element under the mouse, inclusive.
+<P>
+Most people will probably want to use <B>browse</B> mode for
+single selections and <B>extended</B> mode for multiple selections;
+the other modes appear to be useful only in special situations.
+<P>
+In addition to the above behavior, the following additional behavior
+is defined by the default bindings:
+<OL>
+<LI>
+In <B>extended</B> mode, the selected range can be adjusted by pressing
+button 1 with the Shift key down:  this modifies the selection to
+consist of the elements between the anchor and the element under
+the mouse, inclusive.
+The un-anchored end of this new selection can also be dragged with
+the button down.
+<LI>
+In <B>extended</B> mode, pressing button 1 with the Control key down
+starts a toggle operation: the anchor is set to the element under
+the mouse, and its selection state is reversed.  The selection state
+of other elements isn't changed.
+If the mouse is dragged with button 1 down, then the selection state
+of all elements between the anchor and the element under the mouse
+is set to match that of the anchor element;  the selection state of
+all other elements remains what it was before the toggle operation
+began.
+<LI>
+If the mouse leaves the listbox window with button 1 down, the window
+scrolls away from the mouse, making information visible that used
+to be off-screen on the side of the mouse.
+The scrolling continues until the mouse re-enters the window, the
+button is released, or the end of the listbox is reached.
+<LI>
+Mouse button 2 may be used for scanning.
+If it is pressed and dragged over the listbox, the contents of
+the listbox drag at high speed in the direction the mouse moves.
+<LI>
+If the Up or Down key is pressed, the location cursor (active
+element) moves up or down one element.
+If the selection mode is <B>browse</B> or <B>extended</B> then the
+new active element is also selected and all other elements are
+deselected.
+In <B>extended</B> mode the new active element becomes the
+selection anchor.
+<LI>
+In <B>extended</B> mode, Shift-Up and Shift-Down move the location
+cursor (active element) up or down one element and also extend
+the selection to that element in a fashion similar to dragging
+with mouse button 1.
+<LI>
+The Left and Right keys scroll the listbox view left and right
+by the width of the character <B>0</B>.
+Control-Left and Control-Right scroll the listbox view left and
+right by the width of the window.
+Control-Prior and Control-Next also scroll left and right by
+the width of the window.
+<LI>
+The Prior and Next keys scroll the listbox view up and down
+by one page (the height of the window).
+<LI>
+The Home and End keys scroll the listbox horizontally to
+the left and right edges, respectively.
+<LI>
+Control-Home sets the location cursor to the the first element in
+the listbox, selects that element, and deselects everything else
+in the listbox.
+<LI>
+Control-End sets the location cursor to the the last element in
+the listbox, selects that element, and deselects everything else
+in the listbox.
+<LI>
+In <B>extended</B> mode, Control-Shift-Home extends the selection
+to the first element in the listbox and Control-Shift-End extends
+the selection to the last element.
+<LI>
+In <B>multiple</B> mode, Control-Shift-Home moves the location cursor
+to the first element in the listbox and Control-Shift-End moves
+the location cursor to the last element.
+<LI>
+The space and Select keys make a selection at the location cursor
+(active element) just as if mouse button 1 had been pressed over
+this element.
+<LI>
+In <B>extended</B> mode, Control-Shift-space and Shift-Select
+extend the selection to the active element just as if button 1
+had been pressed with the Shift key down.
+<LI>
+In <B>extended</B> mode, the Escape key cancels the most recent
+selection and restores all the elements in the selected range
+to their previous selection state.
+<LI>
+Control-slash selects everything in the widget, except in
+<B>single</B> and <B>browse</B> modes, in which case it selects
+the active element and deselects everything else.
+<LI>
+Control-backslash deselects everything in the widget, except in
+<B>browse</B> mode where it has no effect.
+<LI>
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is
+a selection.
+
+</OL>
+<P>
+The behavior of listboxes can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M70">EXAMPLE</A></H3>
+Herafter is an example of a listbox connected to a scrollbar
+<PRE>;; Create list box and scrollbar
+(listbox   '.l :height 5 
+	       :yscroll (lambda l (apply .s 'set l)))
+(scrollbar '.s :command (lambda l (apply .l 'yview l)))
+
+;; Set some elements in the listbox
+(.l 'insert 0 'one 'two 'three 'four 'five 'six 'seven 'eight)
+
+;; Pack elements
+(pack .l :side &quot;left&quot; :expand #t  :fill &quot;both&quot;)
+(pack .s :side &quot;right&quot; :expand #f :fill &quot;y&quot;)</PRE>
+<H3><A NAME="M71">SEE ALSO</A></H3>
+<B><A HREF="./scrollbar.n.html">scrollbar</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/listener.n.html b/Help/listener.n.html
new file mode 100644
index 0000000..164972c
--- /dev/null
+++ b/Help/listener.n.html
@@ -0,0 +1,83 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - listener manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> listener</H2>
+<I>Create and manipulate listener widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>listener</B><I> widget-name </I>?<I>options</I>?)<BR>
+<BR>
+<H3><A NAME="M3">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B></B>
+<DT><I>Class</I>:           <B></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M4">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk procedure to associate with the listener.  This procedure
+is invoked when a complete s-expr is entered in the listener. This s-expr is
+passed as a string to the procedure. The procedure must return the string
+which will be inserted in response to the s-expr input. The default procedure
+is the Identity procdure.
+<P>
+<P>
+<DT><I>Name</I>:            <B></B>
+<DT><I>Class</I>:           <B></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M5">:output-color</A></B>
+<DT><I>STklos slot name</I>: <B>output-color</B>
+<DD>Specifies the color used the output lines
+<P>
+<P>
+<DT><I>Name</I>:            <B></B>
+<DT><I>Class</I>:           <B></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M6">:prompt-color</A></B>
+<DT><I>STklos slot name</I>: <B>prompt-color</B>
+<DD>Specifies the color used for the prompt
+<P>
+<P>
+<DT><I>Name</I>:            <B></B>
+<DT><I>Class</I>:           <B></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M7">:prompt</A></B>
+<DT><I>STklos slot name</I>: <B>prompt</B>
+<DD>Specifies the prompt used for reading s-expr. Defaults to &quot;&gt; &quot;
+<P>
+</DL>
+<H3><A NAME="M8">DESCRIPTION</A></H3>
+The <B>listener</B> procedure creates a new text window (given by the
+<I>widget-name</I> argument) and associates it bindiangs suitable for a listener.
+Since a listener is in fact a text widget, all the options of <B><A HREF="./text.n.html">text</A></B>
+are applicable to a listener.
+The <B>listener</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A listener is a widget for doing interactive I/O. Typical usage for
+this widget consists of a text window whose inputs are sent to the
+Scheme evaluator and whose result is displayed in the listener. An
+example for this is shown at the end of this page.
+
+<H3><A NAME="M9">WIDGET PROCEDURE</A></H3>
+All the <B><A HREF="./text.n.html">text</A></B> procedure are avialble for a listener, plus
+
+<P>
+<DL>
+<DT><A NAME="M10">(<B>listener-insert-string</B> <I>widget-name str</I>)</A><DD>
+inserts the string <I>str</I> just before the input prompt. 
+<P>
+</DL>
+<H3><A NAME="M11">EXAMPLE</A></H3>
+Hereafter is a simple use of the listener widget which interact with the 
+evaluator.
+<P>
+<PRE>(listener '.t :width   50 
+              :height  10
+              :command (lambda (x) 
+                         (eval-string x (global-environment))))
+(pack .t)</PRE>
+<H3><A NAME="M12">DEFAULT BINDINGS</A></H3>
+The defaults bindings are identical to the <B><A HREF="./text.n.html">text</A></B> bindings.
+
+<H3><A NAME="M13">SEE ALSO</A></H3>
+<B><A HREF="./text.n.html">text</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/lower.n.html b/Help/lower.n.html
new file mode 100644
index 0000000..9b22c98
--- /dev/null
+++ b/Help/lower.n.html
@@ -0,0 +1,25 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - lower manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> lower</H2>
+<I>Change a window's position in the stacking order</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>lower </B><I>window</I>)<BR>
+(<B>lower </B><I>window </I><I>belowThis</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+If the <I>belowThis</I> argument is omitted then the procedure lowers
+<I>window</I> so that it is below all of its siblings in the stacking
+order (it will be obscured by any siblings that overlap it and
+will not obscure any siblings).
+If <I>belowThis</I> is specified then it must be the path name of
+a window that is either a sibling of <I>window</I> or the descendant
+of a sibling of <I>window</I>.
+In this case the <B>lower</B> procedure will insert
+<I>window</I> into the stacking order just below <I>belowThis</I>
+(or the ancestor of <I>belowThis</I> that is a sibling of <I>window</I>);
+this could end up either raising or lowering <I>window</I>.
+
+<H3><A NAME="M4">SEE ALSO</A></H3>
+<B><A HREF="./raise.n.html">raise</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/make-dialog.n.html b/Help/make-dialog.n.html
new file mode 100644
index 0000000..ddb0452
--- /dev/null
+++ b/Help/make-dialog.n.html
@@ -0,0 +1,81 @@
+<HTML><HEAD><TITLE>STk procedure - STk:make-dialog manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> STk:make-dialog</H2>
+<I>Create modal dialog and wait for response</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>STk:make-dialog</B> <I>arguments ...</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure is part of the STk library. Its arguments describe a dialog box. 
+They can be set using the following keywords.
+<P>
+<DL>
+<DT><A NAME="M4"><B>:window</B></A><DD>
+Name of top-level window to use for dialog. The default value for 
+this parameter is  <I>.dialog</I>. If a window with this name 
+already exists, it is destroyed.
+<P>
+<DT><A NAME="M5"><B>:title</B></A><DD>
+Text to appear in the window manager's title bar for the dialog. Default to 
+<B>&quot;Dialog&quot;</B>.
+<P>
+<DT><A NAME="M6"><B>:text</B></A><DD>
+Message to appear in the top portion of the dialog box. Default to the empty string.
+<P>
+<DT><A NAME="M7"><B>:bitmap</B></A><DD>
+If non-empty, specifies a bitmap to display in the top portion of
+the dialog, to the left of the text.
+If this is an empty string (or if not specified) then no bitmap is displayed 
+in the dialog.
+<P>
+<DT><A NAME="M8"><B>:default</B></A><DD>
+If this is an integer greater than or equal to zero, then it gives
+the index of the button that is to be the default button for the dialog
+(0 for the leftmost button, and so on).
+If less than zero then there won't be any default button.
+By default, there is no default button.
+<P>
+<DT><A NAME="M9"><B>:buttons</B></A><DD>
+the given argument must be a list of couples indicating for each the button text and
+its associated action (a closure). The sepcified buttons are displayed 
+in order from left to right.
+<P>
+<DT><A NAME="M10"><B>:grab</B></A><DD>
+is a boolean value indicating if the <B>STk:make-dialog</B> must wait that a
+button be pressed before returning. Use the symbol <B>global</B> to have
+a global grab. If grabbing is set, <B>STk:make-dialog</B> returns the button
+pressed index (or -1 if the window is detroyed before a button is pressed).
+By default, the grab is unset.
+
+<P>
+</DL>
+<P>
+Hereafter are simple uses of the <B>STk:make-dialog</B> procedure
+<P>
+<I>;; A simple dialog; returns after displaying the window</I>
+<PRE>(STk:make-dialog :text    &quot;Do you want to exit?&quot;
+                 :bitmap  &quot;question&quot;
+                 :buttons (list (list &quot;Yes&quot; (lambda () 
+                                              (display &quot;Yes\n&quot;)))
+                                (list &quot;No&quot;  (lambda () 
+                                              (display &quot;No\n&quot;)))))</PRE>
+<P>
+<I>;; Another one which wait that the user chooses a response</I>
+<BR>
+<I>;; Default is &quot;bar&quot;</I>
+<BR>
+<I>;; Return value will be 0 1 or 2</I>
+<BR>
+<I>;; The @ in a bitmap allows to specify a file</I>
+<PRE>(STk:make-dialog :text    &quot;Choose one&quot;
+                 :bitmap  &quot;@/usr/include/X11/bitmaps/terminal&quot;
+                 :default 1
+                 :grab    #t
+                 :buttons (list (list &quot;foo&quot; (lambda () 
+                                              (display &quot;foo\n&quot;)))
+                                (list &quot;bar&quot; (lambda () 
+                                              (display &quot;bar\n&quot;)))
+                                (list &quot;baz&quot; (lambda ()
+                                              (display &quot;baz\n&quot;)))))</PRE>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/menu.n.html b/Help/menu.n.html
new file mode 100644
index 0000000..785bdb7
--- /dev/null
+++ b/Help/menu.n.html
@@ -0,0 +1,637 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - menu manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> menu</H2>
+<I>Create and manipulate menu widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>menu</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:activeborderwidth">:activeborderwidth</A></B> 
+<B><A HREF="options.n.html#M:activeforeground">:activeforeground</A></B>                      <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:disabledforeground">:disabledforeground</A></B>                    <B><A HREF="options.n.html#M:font">:font</A></B> 
+<B><A HREF="options.n.html#M:foreground">:foreground</A></B>                            <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                            
+</PRE>
+<H3><A NAME="M15">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>postCommand</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M16">:postcommand</A></B>
+<DT><I>STklos slot name</I>: <B>post-command</B>
+<DD>If this option is specified then it provides a STk procedure to execute
+each time the menu is posted.  The procedure is invoked by the <B>post</B>
+widget procedure before posting the menu.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectColor</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M17">:selectcolor</A></B>
+<DT><I>STklos slot name</I>: <B>select-color</B>
+<DD>For menu entries that are check buttons or radio buttons, this option
+specifies the color to display in the indicator when the check button
+or radio button is selected.
+<P>
+<P>
+<DT><I>Name</I>:            <B>tearOff</B>
+<DT><I>Class</I>:           <B>TearOff</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M18">:tearoff</A></B>
+<DT><I>STklos slot name</I>: <B>tear-off</B>
+<DD>This option must have a proper boolean value, which specifies
+whether or not the menu should include a tear-off entry at the
+top.  If so, it will exist as entry 0 of the menu and the other
+entries will number starting at 1.  The default
+menu bindings arrange for the menu to be torn off when the tear-off
+entry is invoked.
+<P>
+<P>
+<DT><I>Name</I>:            <B>tearOffCommand</B>
+<DT><I>Class</I>:           <B>TearOffCommand</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M19">:tearoffcommand</A></B>
+<DT><I>STklos slot name</I>: <B>tear-off-command</B>
+<DD>If this option has a non-empty value, then it specifies a STk procedure
+to invoke whenever the menu is torn off.  The actual procedure will
+be called with two parameters:  the name of the menu window and 
+the name of the name of the torn off menu window.
+<P>
+<P>
+<DT><I>Name</I>:            <B>transient</B>
+<DT><I>Class</I>:           <B>Transient</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M20">:transient</A></B>
+<DT><I>STklos slot name</I>: <B>transcient</B>
+<DD>This option must have a boolean value.  True means that the menu
+is used on a transient basis, e.g. as a pop-up, pull-down, or
+cascaded menu.  False means that the menu will be displayed
+on the screen continuously, for example as a torn-off menu.
+If the option is true, no window manager border
+will be displayed around the menu and redisplay will be optimized
+using X's ``save under'' facility.
+<P>
+</DL>
+<H3><A NAME="M21">INTRODUCTION</A></H3>
+The <B>menu</B> procedure creates a new top-level window (given
+by the <I>widget-name</I> argument) and makes it into a menu widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the menu such as its colors and font.
+The <B>menu</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A menu is a widget that displays a collection of one-line entries arranged
+in a column.  There exist several different types of entries,
+each with different properties.  Entries of different types may be
+combined in a single menu.  Menu entries are not the same as
+entry widgets.  In fact, menu entries are not even distinct widgets;
+the entire menu is one widget.
+<P>
+Menu entries are displayed with up to three separate fields.
+The main field is a label in the form of a text string,
+a bitmap, or an image, controlled by the <B>:label</B>,
+<B>:bitmap</B>, and <B>:image</B> options for the entry.
+If the  <B>:accelerator</B> option is specified for an entry then a second
+textual field is displayed to the right of the label.  The accelerator
+typically describes a keystroke sequence that may be typed in the
+application to cause the same result as invoking the menu entry.
+The third field is an <I>indicator</I>.  The indicator is present only for
+checkbutton or radiobutton entries.  It indicates whether the entry
+is selected or not, and is displayed to the left of the entry's
+string.
+<P>
+In normal use, an entry becomes active (displays itself differently)
+whenever the mouse pointer is over the entry.  If a mouse
+button is released over the entry then the entry is <I>invoked</I>.
+The effect of invocation is different for each type of entry;
+these effects are described below in the sections on individual
+entries.
+<P>
+Entries may be <I>disabled</I>, which causes their labels
+and accelerators to be displayed
+with dimmer colors.
+The default menu bindings will not allow
+a disabled entry to be activated or invoked.
+Disabled entries may be re-enabled, at which point it becomes
+possible to activate and invoke them again.
+
+<H3><A NAME="M22">PROCEDURE ENTRIES</A></H3>
+The most common kind of menu entry is a procedure entry, which
+behaves much like a button widget.  When a procedure entry is
+invoked, a STk procedure is executed.  The STk
+procedure is specified with the <B>:command</B> option.
+
+<H3><A NAME="M23">SEPARATOR ENTRIES</A></H3>
+A separator is an entry that is displayed as a horizontal dividing
+line.  A separator may not be activated or invoked, and it has
+no behavior other than its display appearance.
+
+<H3><A NAME="M24">CHECKBUTTON ENTRIES</A></H3>
+A checkbutton menu entry behaves much like a checkbutton widget.
+When it is invoked it toggles back and forth between the selected
+and deselected states.  When the entry is selected, a particular
+value is stored in a particular global variable (as determined by
+the <B>:onvalue</B> and <B>:variable</B> options for the entry);  when
+the entry is deselected another value (determined by the
+<B>:offvalue</B> option) is stored in the global variable.
+An indicator box is displayed to the left of the label in a checkbutton
+entry.  If the entry is selected then the indicator's center is displayed
+in the color given by the <B>:selectcolor</B> option for the entry;
+otherwise the indicator's center is displayed in the background color for
+the menu.  If a <B>:command</B> option is specified for a checkbutton
+entry, then its value is evaluated as a STk procedure each time the entry
+is invoked;  this happens after toggling the entry's
+selected state.
+
+<H3><A NAME="M25">RADIOBUTTON ENTRIES</A></H3>
+A radiobutton menu entry behaves much like a radiobutton widget.
+Radiobutton entries are organized in groups of which only one
+entry may be selected at a time.  Whenever a particular entry
+becomes selected it stores a particular value into a particular
+global variable (as determined by the <B>:value</B> and
+<B>:variable</B> options for the entry).  This action
+causes any previously-selected entry in the same group
+to deselect itself.
+Once an entry has become selected, any change to the entry's
+associated variable will cause the entry to deselect itself.
+Grouping of radiobutton entries is determined by their
+associated variables:  if two entries have the same associated
+variable then they are in the same group.
+An indicator diamond is displayed to the left of the label in each
+radiobutton entry.  If the entry is selected then the indicator's
+center is displayed in the color given by the <B>:selectcolor</B> option
+for the entry;
+otherwise the indicator's center is displayed in the background color for
+the menu.  If a <B>:command</B> option is specified for a radiobutton
+entry, then its value is evaluated as a STk procedure each time the entry
+is invoked;  this happens after selecting the entry.
+
+<H3><A NAME="M26">CASCADE ENTRIES</A></H3>
+A cascade entry is one with an associated menu (determined
+by the <B>:menu</B> option).  Cascade entries allow the construction
+of cascading menus.
+The <B>postcascade</B> widget procedure can be used to post and unpost
+the associated menu just to the right of the cascade entry.
+The associated menu must be a child of the menu containing
+the cascade entry (this is needed in order for menu traversal to
+work correctly).
+<P>
+A cascade entry posts its associated menu by invoking a
+STk procedure of the form
+<PRE>(<I>menu</I><B> 'post </B><I>x y</I>)</PRE>
+where <I>menu</I> is the path name of the associated menu, and <I>x</I>
+and <I>y</I> are the root-window coordinates of the upper-right
+corner of the cascade entry.
+The lower-level menu is unposted by executing a STk procedure with
+the form
+<PRE>(<I>menu</I><B> 'unpost</B>)</PRE>
+where <I>menu</I> is the name of the associated menu.
+<P>
+If a <B>:command</B> option is specified for a cascade entry then it is
+evaluated as a STk procedure
+whenever the entry is invoked.
+
+<H3><A NAME="M27">TEAR-OFF ENTRIES</A></H3>
+A tear-off entry appears at the top of the menu if enabled with the
+<B>tearOff</B> option.  It is not like other menu entries in that
+it cannot be created with the <B>add</B> widget procedure and
+cannot be deleted with the <B>delete</B> widget procedure.
+When a tear-off entry is created it appears as a dashed line at
+the top of the menu.  Under the default bindings, invoking the
+tear-off entry causes a torn-off copy to be made of the menu and
+all of its submenus.
+
+<H3><A NAME="M28">WIDGET PROCEDURE</A></H3>
+The <B>menu</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.
+<P>
+Many of the widget procedures for a menu take as one argument an
+indicator of which entry of the menu to operate on.  These
+indicators are called <I>index</I>es and may be specified in
+any of the following forms:
+<P>
+<DL>
+<DT><A NAME="M29"><I>number</I></A><DD>
+Specifies the entry numerically, where 0 corresponds
+to the top-most entry of the menu, 1 to the entry below it, and
+so on.
+<P>
+<DT><A NAME="M30"><B>active</B></A><DD>
+Indicates the entry that is currently active.  If no entry is
+active then this form is equivalent to <B>none</B>.  This form may
+not be abbreviated.
+<P>
+<DT><A NAME="M31"><B>end</B></A><DD>
+Indicates the bottommost entry in the menu.  If there are no
+entries in the menu then this form is equivalent to <B>none</B>.
+This form may not be abbreviated.
+<P>
+<DT><A NAME="M32"><B>last</B></A><DD>
+Same as <B>end</B>.
+<P>
+<DT><A NAME="M33"><B>none</B></A><DD>
+Indicates ``no entry at all'';  this is used most commonly with
+the <B>activate</B> option to deactivate all the entries in the
+menu.  In most cases the specification of <B>none</B> causes
+nothing to happen in the widget procedure.
+This form may not be abbreviated.
+<P>
+<DT><A NAME="M34"><B>@</B><I>number</I></A><DD>
+In this form, <I>number</I> is treated as a y-coordinate in the
+menu's window;  the entry closest to that y-coordinate is used.
+For example, ``<B>@0</B>'' indicates the top-most entry in the
+window.
+<P>
+<DT><A NAME="M35"><I>pattern</I></A><DD>
+If the index doesn't satisfy one of the above forms then this
+form is used.  <I>Pattern</I> is pattern-matched against the label of
+each entry in the menu, in order from the top down, until a
+matching entry is found.  The rules of <B>Tcl_StringMatch</B>
+are used.
+<P>
+</DL>
+<P>
+The following widget procedures are possible for menu widgets:
+<P>
+<DL>
+<DT><A NAME="M36">(<I>widget-name '</I><B>activate </B><I>index</I>)</A><DD>
+Change the state of the entry indicated by <I>index</I> to <B>active</B>
+and redisplay it using its active colors.
+Any previously-active entry is deactivated.  If <I>index</I>
+is specified as <B>none</B>, or if the specified entry is
+disabled, then the menu ends up with no active entry.
+Returns an empty string.
+<P>
+<DT><A NAME="M37">(<I>widget-name </I><B>add </B><I>type </I>?<I>option value option value ...</I>?)</A><DD>
+Add a new entry to the bottom of the menu.  The new entry's type
+is given by <I>type</I> and must be one of <B>cascade</B>,
+<B>checkbutton</B>, <B>command</B>, <B>radiobutton</B>, or <B>separator</B>,
+or a unique abbreviation of one of the above.  If additional arguments
+are present, they specify any of the following options:
+<P>
+<P>
+<DL>
+<DT><A NAME="M38"><B>:activebackground </B><I>value</I></A><DD>
+Specifies a background color to use for displaying this entry when it
+is active.
+If this option is specified as an empty string (the default), then the
+<B>activeBackground</B> option for the overall menu is used.
+If the <B>*tk-strict-Motif*</B> variable has been set to request strict
+Motif compliance, then this option is ignored and the <B>:background</B>
+option is used in its place.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M39"><B>:activeforeground </B><I>value</I></A><DD>
+Specifies a foreground color to use for displaying this entry when it
+is active.
+If this option is specified as an empty string (the default), then the
+<B>activeForeground</B> option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M40"><B>:accelerator </B><I>value</I></A><DD>
+Specifies a string to display at the right side of the menu entry.
+Normally describes an accelerator keystroke sequence that may be
+typed to invoke the same function as the menu entry.  This option
+is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M41"><B>:background </B><I>value</I></A><DD>
+Specifies a background color to use for displaying this entry when it
+is in the normal state (neither active nor disabled).
+If this option is specified as an empty string (the default), then the
+<B>background</B> option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M42"><B>:bitmap </B><I>value</I></A><DD>
+Specifies a bitmap to display in the menu instead of a textual
+label, in any of the forms accepted by <B>Tk_GetBitmap</B>.
+This option overrides the <B>:label</B> option but may be reset
+to an empty string to enable a textual label to be displayed.
+If a <B>:image</B> option has been specified, it overrides
+<B>:bitmap</B>.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M43"><B>:command </B><I>value</I></A><DD>
+Specifies a STk procedure to execute when the menu entry is invoked.
+Not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M44"><B>:font </B><I>value</I></A><DD>
+Specifies the font to use when drawing the label or accelerator
+string in this entry.
+If this option is specified as an empty string (the default) then
+the <B>font</B> option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M45"><B>:foreground </B><I>value</I></A><DD>
+Specifies a foreground color to use for displaying this entry when it
+is in the normal state (neither active nor disabled).
+If this option is specified as an empty string (the default), then the
+<B>foreground</B> option for the overall menu is used.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M46"><B>:image </B><I>value</I></A><DD>
+Specifies an image to display in the menu instead of a text string
+or bitmap
+The image must have been created by some previous invocation of
+<B><A HREF=.././image.n.html>image create</A></B>.
+This option overrides the <B>:label</B> and <B>:bitmap</B> options
+but may be reset to an empty string to enable a textual or
+bitmap label to be displayed.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M47"><B>:indicatoron </B><I>value</I></A><DD>
+Available only for checkbutton and radiobutton entries.
+<I>Value</I> is a boolean that determines whether or not the
+indicator should be displayed.
+<P>
+<DT><A NAME="M48"><B>:label </B><I>value</I></A><DD>
+Specifies a string to display as an identifying label in the menu
+entry.  Not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M49"><B>:menu </B><I>value</I></A><DD>
+Available only for cascade entries.  Specifies the path name of
+the submenu associated with this entry.
+The submenu must be a child of the menu.
+<P>
+<DT><A NAME="M50"><B>:offvalue </B><I>value</I></A><DD>
+Available only for checkbutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is
+deselected.
+<P>
+<DT><A NAME="M51"><B>:onvalue </B><I>value</I></A><DD>
+Available only for checkbutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is selected.
+<P>
+<DT><A NAME="M52"><B>:selectcolor </B><I>value</I></A><DD>
+Available only for checkbutton and radiobutton entries.
+Specifies the color to display in the indicator when the entry is
+selected.
+If the value is an empty string (the default) then the <B>selectColor</B>
+option for the menu determines the indicator color.
+<P>
+<DT><A NAME="M53"><B>:selectimage </B><I>value</I></A><DD>
+Available only for checkbutton and radiobutton entries.
+Specifies an image to display in the entry (in place of
+the <B>:image</B> option) when it is selected.
+<I>Value</I> is the name of an image, which must have been created
+by some previous invocation of <B><A HREF=.././image.n.html>image create</A></B>.
+This option is ignored unless the <B>:image</B> option has
+been specified.
+<P>
+<DT><A NAME="M54"><B>:state </B><I>value</I></A><DD>
+Specifies one of three states for the entry:  <B>normal</B>, <B>active</B>,
+or <B>disabled</B>.  In normal state the entry is displayed using the
+<B>foreground</B> option for the menu and the <B>background</B>
+option from the entry or the menu.
+The active state is typically used when the pointer is over the entry.
+In active state the entry is displayed using the <B>activeForeground</B>
+option for the menu along with the <B>activebackground</B> option from
+the entry.  Disabled state means that the entry
+should be insensitive:  the default bindings will refuse to activate
+or invoke the entry.
+In this state the entry is displayed according to the 
+<B>disabledForeground</B> option for the menu and the
+<B>background</B> option from the entry.
+This option is not available for separator entries.
+<P>
+<DT><A NAME="M55"><B>:underline </B><I>value</I></A><DD>
+Specifies the integer index of a character to underline in the entry.
+This option is also queried by the default bindings and used to
+implement keyboard traversal.
+0 corresponds to the first character of the text displayed in the entry,
+1 to the next character, and so on.
+If a bitmap or image is displayed in the entry then this option is ignored.
+This option is not available for separator or tear-off entries.
+<P>
+<DT><A NAME="M56"><B>:value </B><I>value</I></A><DD>
+Available only for radiobutton entries.  Specifies the value to
+store in the entry's associated variable when the entry is selected.
+<P>
+<DT><A NAME="M57"><B>:variable </B><I>value</I></A><DD>
+Available only for checkbutton and radiobutton entries.  Specifies
+the name of a global value to set when the entry is selected.
+For checkbutton entries the variable is also set when the entry
+is deselected.  For radiobutton entries, changing the variable
+causes the currently-selected entry to deselect itself.
+<P>
+</DL>
+<UL>
+<P>
+The <B>add</B> widget procedure returns an empty list.
+</UL>
+<DT><A NAME="M58">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>menu</B>
+procedure.
+<P>
+<DT><A NAME="M59">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>menu</B>
+procedure.
+<P>
+<DT><A NAME="M60">(<I>widget-name '</I><B>delete </B><I>index1</I>)</A><DD>
+<DT><A NAME="M61">(<I>widget-name '</I><B>delete </B><I>index1</I> <I>index2</I>)</A><DD>
+Delete all of the menu entries between <I>index1</I> and
+<I>index2</I> inclusive.
+If <I>index2</I> is omitted then it defaults to <I>index1</I>.
+Attempts to delete a tear-off menu entry are ignored (instead, you
+should change the <B>tearOff</B> option to remove the tear-off entry).
+<P>
+<DT><A NAME="M62">(<I>widget-name '</I><B>entrycget</B> <I>index option</I>)</A><DD>
+Returns the current value of a configuration option for
+the entry given by <I>index</I>.
+<I>Option</I> may have any of the values accepted by the <B>add</B>
+widget procedure.
+<P>
+<DT><A NAME="M63">(<I>widget-name '</I><B>entryconfigure </B><I>index </I>?<I>options</I>?)</A><DD>
+This procedure is similar to the <B>configure</B> procedure, except that
+it applies to the options for an individual entry, whereas <B>configure</B>
+applies to the options for the menu as a whole.
+<I>Options</I> may have any of the values accepted by the <B>add</B>
+widget procedure.  If <I>options</I> are specified, options are modified
+as indicated
+in the procedure and the procedure returns an empty string.
+If no <I>options</I> are specified, returns a list describing
+the current options for entry <I>index</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).
+<P>
+<DT><A NAME="M64">(<I>widget-name '</I><B>index </B><I>index</I>)</A><DD>
+Returns the numerical index corresponding to <I>index</I>, or
+<B>&quot;none&quot;</B> if <I>index</I> was specified as <B>none</B>.
+<P>
+<DT><A NAME="M65">(<I>widget-name </I><B>insert </B><I>index</I> <I>type </I>?<I>option value option value ...</I>?)</A><DD>
+Same as the <B>add</B> widget procedure except that it inserts the new
+entry just before the entry given by <I>index</I>, instead of appending
+to the end of the menu.  The <I>type</I>, <I>option</I>, and <I>value</I>
+arguments have the same interpretation as for the <B>add</B> widget
+procedure.  It is not possible to insert new menu entries before the
+tear-off entry, if the menu has one.
+<P>
+<DT><A NAME="M66">(<I>widget-name '</I><B>invoke </B><I>index</I>)</A><DD>
+Invoke the action of the menu entry.  See the sections on the
+individual entries above for details on what happens.  If the
+menu entry is disabled then nothing happens.  If the
+entry has a procedure associated with it then the result of that
+procedure is returned as the result of the <B>invoke</B> widget
+procedure.  Otherwise the result is an empty list.  Note:  invoking
+a menu entry does not automatically unpost the menu;  the default
+bindings normally take care of this before invoking the <B>invoke</B>
+widget procedure.
+<P>
+<DT><A NAME="M67">(<I>widget-name '</I><B>post </B><I>x y</I>)</A><DD>
+Arrange for the menu to be displayed on the screen at the root-window
+coordinates given by <I>x</I> and <I>y</I>.  These coordinates are
+adjusted if necessary to guarantee that the entire menu is visible on
+the screen.  This procedure normally returns an empty string.
+If the <B>postCommand</B> option has been specified, then it is called
+before posting the menu.
+If an error returns while executing the procedure, then the error is
+returned without posting the menu.
+<P>
+<DT><A NAME="M68">(<I>widget-name '</I><B>postcascade </B><I>index</I>)</A><DD>
+Posts the submenu associated with the cascade entry given by
+<I>index</I>, and unposts any previously posted submenu.
+If <I>index</I> doesn't correspond to a cascade entry,
+or if <I>widget-name</I> isn't posted,
+the procedure has no effect except to unpost any currently posted
+submenu.
+<P>
+<DT><A NAME="M69">(<I>widget-name '</I><B>type </B><I>index</I>)</A><DD>
+Returns the type of the menu entry given by <I>index</I>.
+This is the <I>type</I> argument passed to the <B>add</B> widget
+procedure when the entry was created, such as <B>&quot;command&quot;</B>
+or <B>&quot;separator&quot;</B>, or <B>&quot;tearoff&quot;</B> for a tear-off entry.
+<P>
+<DT><A NAME="M70">(<I>widget-name '</I><B>unpost</B>)</A><DD>
+Unmap the window so that it is no longer displayed.  If a
+lower-level cascaded menu is posted, unpost that menu.  Returns an
+empty string.
+<P>
+<DT><A NAME="M71">(<I>widget-name '</I><B>yposition </B><I>index</I>)</A><DD>
+Returns a decimal string giving the y-coordinate within the menu
+window of the topmost pixel in the entry specified by <I>index</I>.
+
+<P>
+</DL>
+<H3><A NAME="M72">MENU CONFIGURATIONS</A></H3>
+The default bindings support four different ways of using menus:
+<P>
+<DL>
+<DT><A NAME="M73"><B>Pulldown Menus</B></A><DD>
+This is the most common case.  You create one menubutton widget for
+each top-level menu, and typically you arrange a series of menubuttons
+in a row in a menubar window.  You also create the top-level menus
+and any cascaded submenus, and tie them together with <B>:menu</B>
+options in menubuttons and cascade menu entries.  The top-level menu must
+be a child of the menubutton, and each submenu must be a child of the
+menu that refers to it.  Once you have done this, the default bindings
+will allow users to traverse and invoke the tree of menus via its
+menubutton;  see the <B><A HREF="./menubutton.n.html">menubutton</A></B> manual entry for details.
+<P>
+<DT><A NAME="M74"><B>Popup Menus</B></A><DD>
+Popup menus typically post in response to a mouse button press or
+keystroke.  You create the popup menus and any cascaded submenus,
+then you call the <B>Tk:popup</B> (see <B><A HREF="./popup.n.html">popup</A></B>) procedure 
+at the appropriate time
+to post the top-level menu.
+<P>
+<DT><A NAME="M75"><B>Option Menus</B></A><DD>
+An option menu consists of a menubutton with an associated menu
+that allows you to select one of several values.  The current value
+is displayed in the menubutton and is also stored in a global
+variable.  Use the <B>Tk:option-menu</B> (see <B><A HREF="./option-menu.n.html">option-menu</A></B>)
+ procedure to create option
+menubuttons and their menus.
+<P>
+<DT><A NAME="M76"><B>Torn-off Menus</B></A><DD>
+You create a torn-off menu by invoking the tear-off entry at
+the top of an existing menu.  The default bindings will create a new menu
+that is a copy of the original menu and leave it permanently
+posted as a top-level window.  The torn-off menu behaves just
+the same as the original menu.
+
+<P>
+</DL>
+<H3><A NAME="M77">DEFAULT BINDINGS</A></H3>
+Tk automatically creates class bindings for menus that give them
+the following default behavior:
+<OL>
+<LI>
+When the mouse enters a menu, the entry underneath the mouse
+cursor activates;  as the mouse moves around the menu, the active
+entry changes to track the mouse.
+<LI>
+When the mouse leaves a menu all of the entries in the menu
+deactivate, except in the special case where the mouse moves from
+a menu to a cascaded submenu.
+<LI>
+When a button is released over a menu, the active entry (if any) is invoked.
+The menu also unposts unless it is a torn-off menu.
+<LI>
+The Space and Return keys invoke the active entry and
+unpost the menu.
+<LI>
+If any of the entries in a menu have letters underlined with
+with <B>:underline</B> option, then pressing one of the underlined
+letters (or its upper-case or lower-case equivalent) invokes that
+entry and unposts the menu.
+<LI>
+The Escape key aborts a menu selection in progress without invoking any
+entry.  It also unposts the menu unless it is a torn-off menu.
+<LI>
+The Up and Down keys activate the next higher or lower entry
+in the menu.  When one end of the menu is reached, the active
+entry wraps around to the other end.
+<LI>
+The Left key moves to the next menu to the left.
+If the current menu is a cascaded submenu, then the submenu is
+unposted and the current menu entry becomes the cascade entry
+in the parent.
+If the current menu is a top-level menu posted from a
+menubutton, then the current menubutton is unposted and the
+next menubutton to the left is posted.
+Otherwise the key has no effect.
+The left-right order of menubuttons is determined by their stacking
+order:  Tk assumes that the lowest menubutton (which by default
+is the first one created) is on the left.
+<LI>
+The Right key moves to the next menu to the right.
+If the current entry is a cascade entry, then the submenu is
+posted and the  current menu entry becomes the first entry
+in the submenu.
+Otherwise, if the current menu was posted from a
+menubutton, then the current menubutton is unposted and the
+next menubutton to the right is posted.
+</OL>
+<P>
+Disabled menu entries are non-responsive:  they don't activate and
+they ignore mouse button presses and releases.
+<P>
+The behavior of menus can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M78">BUGS</A></H3>
+At present it isn't possible to use the
+option database to specify values for the options to individual
+entries.
+
+<H3><A NAME="M79">SEE ALSO</A></H3>
+<B>popup option-menu menubutton</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/menubutton.n.html b/Help/menubutton.n.html
new file mode 100644
index 0000000..4afa420
--- /dev/null
+++ b/Help/menubutton.n.html
@@ -0,0 +1,211 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - menubutton manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> menubutton</H2>
+<I>Create and manipulate menubutton widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>menubutton</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:activeforeground">:activeforeground</A></B> 
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:bitmap">:bitmap</A></B>                                <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:disabledforeground">:disabledforeground</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:image">:image</A></B> 
+<B><A HREF="options.n.html#M:justify">:justify</A></B>                               <B><A HREF="options.n.html#M:padx">:padx</A></B> 
+<B><A HREF="options.n.html#M:pady">:pady</A></B>                                  <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:text">:text</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:underline">:underline</A></B> 
+<B><A HREF="options.n.html#M:wraplength">:wraplength</A></B>                           
+</PRE>
+<H3><A NAME="M27">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired height for the menubutton.
+If an image or bitmap is being displayed in the menubutton then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in lines of text.
+If this option isn't specified, the menubutton's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+<P>
+<DT><I>Name</I>:            <B>indicatorOn</B>
+<DT><I>Class</I>:           <B>IndicatorOn</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:indicatoron</A></B>
+<DT><I>STklos slot name</I>: <B>indicator-on</B>
+<DD>The value must be a proper boolean value.  If it is true then
+a small indicator rectangle will be displayed on the right side
+of the menubutton and the default menu bindings will treat this
+as an option menubutton.  If false then no indicator will be
+displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B><A HREF="./menu.n.html">menu</A></B>
+<DT><I>Class</I>:           <B>MenuName</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:menu</A></B>
+<DT><I>STklos slot name</I>: <B>menu-name</B>
+<DD>Specifies the path name of the menu associated with this menubutton.
+The menu must be a child of the menubutton.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of three states for the menubutton:  <B>normal</B>, <B>active</B>,
+or <B>disabled</B>.  In normal state the menubutton is displayed using the
+<B>foreground</B> and <B>background</B> options.  The active state is
+typically used when the pointer is over the menubutton.  In active state
+the menubutton is displayed using the <B>activeForeground</B> and
+<B>activeBackground</B> options.  Disabled state means that the menubutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the <B>disabledForeground</B> and
+<B>background</B> options determine how the button is displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M32">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired width for the menubutton.
+If an image or bitmap is being displayed in the menubutton then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in characters.
+If this option isn't specified, the menubutton's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+</DL>
+<H3><A NAME="M33">INTRODUCTION</A></H3>
+The <B>menubutton</B> command creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a menubutton widget.
+Additional
+options, described above, may be specified on the command line
+or in the option database
+to configure aspects of the menubutton such as its colors, font,
+text, and initial relief.  The <B>menubutton</B> command returns its
+<I>widget-name</I> argument.  At the time this command is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A menubutton is a widget that displays a
+textual string, bitmap, or image
+and is associated with a menu widget.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the <B>wrapLength</B> option) and
+one of the characters may optionally be underlined using the
+<B>underline</B> option.
+In normal usage, pressing
+mouse button 1 over the menubutton causes the associated menu to
+be posted just underneath the menubutton.  If the mouse is moved over
+the menu before releasing the mouse button, the button release
+causes the underlying menu entry to be invoked.  When the button
+is released, the menu is unposted.
+<P>
+Menubuttons are typically organized into groups called menu bars
+that allow scanning:
+if the mouse button is pressed over one menubutton (causing it
+to post its menu) and the mouse is moved over another menubutton
+in the same menu bar without releasing the mouse button, then the
+menu of the first menubutton is unposted and the menu of the
+new menubutton is posted instead.
+<P>
+There are several interactions between menubuttons and menus;  see
+the <B><A HREF="./menu.n.html">menu</A></B> manual entry for information on various menu configurations,
+such as pulldown menus and option menus.
+
+<H3><A NAME="M34">WIDGET COMMAND</A></H3>
+The <B>menubutton</B> command creates a new STk command whose
+name is <I>widget-name</I>.  This
+command may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the command.  The following
+commands are possible for menubutton widgets:
+<P>
+<DL>
+<DT><A NAME="M35">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>menubutton</B>
+command.
+<P>
+<DT><A NAME="M36">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the command returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the command
+modifies the given widget option(s) to have the given value(s);  in
+this case the command returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>menubutton</B>
+command.
+
+<P>
+</DL>
+<H3><A NAME="M37">DEFAULT BINDINGS</A></H3>
+Tk automatically creates class bindings for menubuttons that give them
+the following default behavior:
+<OL>
+<LI>
+A menubutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves it.
+<LI>
+Pressing mouse button 1 over a menubutton posts the menubutton:
+its relief changes to raised and its associated menu is posted
+under the menubutton.  If the mouse is dragged down into the menu
+with the button still down, and if the mouse button is then
+released over an entry in the menu, the menubutton is unposted
+and the menu entry is invoked.
+<LI>
+If button 1 is pressed over a menubutton and then released over that
+menubutton, the menubutton stays posted: you can still move the mouse
+over the menu and click button 1 on an entry to invoke it.
+Once a menu entry has been invoked, the menubutton unposts itself.
+<LI>
+If button 1 is pressed over a menubutton and then dragged over some
+other menubutton, the original menubutton unposts itself and the
+new menubutton posts.
+<LI>
+If button 1 is pressed over a menubutton and released outside
+any menubutton or menu, the menubutton unposts without invoking
+any menu entry.
+<LI>
+When a menubutton is posted, its associated menu claims the input
+focus to allow keyboard traversal of the menu and its submenus.
+See the <B><A HREF="./menu.n.html">menu</A></B> manual entry for details on these bindings.
+<LI>
+If the <B>underline</B> option has been specified for a menubutton
+then keyboard traversal may be used to post the menubutton:
+Alt+<I>x</I>, where <I>x</I> is the underlined character (or its
+lower-case or upper-case equivalent), may be typed in any window
+under the menubutton's toplevel to post the menubutton.
+<LI>
+The F10 key may be typed in any window to post the first menubutton
+under its toplevel window that isn't disabled.
+<LI>
+If a menubutton has the input focus, the space and return keys
+post the menubutton.
+</OL>
+<P>
+If the menubutton's state is <B>disabled</B> then none of the above
+actions occur:  the menubutton is completely non-responsive.
+<P>
+The behavior of menubuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M38">SEE ALSO</A></H3>
+<B>menu option-menu</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/message.n.html b/Help/message.n.html
new file mode 100644
index 0000000..4de0c9d
--- /dev/null
+++ b/Help/message.n.html
@@ -0,0 +1,156 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - message manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> message</H2>
+<I>Create and manipulate message widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>message</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:padx">:padx</A></B> 
+<B><A HREF="options.n.html#M:pady">:pady</A></B>                                  <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:text">:text</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:width">:width</A></B> 
+</PRE>
+<H3><A NAME="M20">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>aspect</B>
+<DT><I>Class</I>:           <B>Aspect</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M21">:aspect</A></B>
+<DT><I>STklos slot name</I>: <B>aspect</B>
+<DD>Specifies a non-negative integer value indicating desired
+aspect ratio for the text.  The aspect ratio is specified as
+100*width/height.  100 means the text should
+be as wide as it is tall, 200 means the text should
+be twice as wide as it is tall, 50 means the text should
+be twice as tall as it is wide, and so on.
+Used to choose line length for text if <B>width</B> option
+isn't specified.
+Defaults to 150.
+<P>
+<P>
+<DT><I>Name</I>:            <B>justify</B>
+<DT><I>Class</I>:           <B>Justify</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M22">:justify</A></B>
+<DT><I>STklos slot name</I>: <B>justify</B>
+<DD>Specifies how to justify lines of text.
+Must be one of <B>left</B>, <B>center</B>, or <B>right</B>.  Defaults
+to <B>left</B>.
+This option works together with the <B>anchor</B>, <B>aspect</B>,
+<B>padX</B>, <B>padY</B>, and <B>width</B> options to provide a variety
+of arrangements of the text within the window.
+The <B>aspect</B> and <B>width</B> options determine the amount of
+screen space needed to display the text.
+The <B>anchor</B>, <B>padX</B>, and <B>padY</B> options determine where this
+rectangular area is displayed within the widget's window, and the
+<B>justify</B> option determines how each line is displayed within that
+rectangular region.
+For example, suppose <B>anchor</B> is <B>e</B> and <B>justify</B> is
+<B>left</B>, and that the message window is much larger than needed
+for the text.
+The the text will displayed so that the left edges of all the lines
+line up and the right edge of the longest line is <B>padX</B> from
+the right side of the window;  the entire text block will be centered
+in the vertical span of the window.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M23">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the length of lines in the window.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+If this option has a value greater than zero then the <B>aspect</B>
+option is ignored and the <B>width</B> option determines the line
+length.
+If this option has a value less than or equal to zero, then
+the <B>aspect</B> option determines the line length.
+<P>
+</DL>
+<H3><A NAME="M24">DESCRIPTION</A></H3>
+The <B>message</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a message widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the message such as its colors, font,
+text, and initial relief.  The <B>message</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A message is a widget that displays a textual string.  A message
+widget has three special features.  First, it breaks up
+its string into lines in order to produce a given aspect ratio
+for the window.  The line breaks are chosen at word boundaries
+wherever possible (if not even a single word would fit on a
+line, then the word will be split across lines).  Newline characters
+in the string will force line breaks;  they can be used, for example,
+to leave blank lines in the display.
+<P>
+The second feature of a message widget is justification.  The text
+may be displayed left-justified (each line starts at the left side of
+the window), centered on a line-by-line basis, or right-justified
+(each line ends at the right side of the window).
+<P>
+The third feature of a message widget is that it handles control
+characters and non-printing characters specially.  Tab characters
+are replaced with enough blank space to line up on the next
+8-character boundary.  Newlines cause line breaks.  Other control
+characters (ASCII code less than 0x20) and characters not defined
+in the font are displayed as a four-character sequence <B>&#92;x</B><I>hh</I> where
+<I>hh</I> is the two-digit hexadecimal number corresponding to
+the character.  In the unusual case where the font doesn't contain
+all of the characters in ``0123456789abcdef&#92;x'' then control
+characters and undefined characters are not displayed at all.
+
+<H3><A NAME="M25">WIDGET PROCEDURE</A></H3>
+The <B>message</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for message widgets:
+<P>
+<DL>
+<DT><A NAME="M26">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>message</B>
+procedure.
+<P>
+<DT><A NAME="M27">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>message</B>
+procedure.
+
+<P>
+</DL>
+<H3><A NAME="M28">DEFAULT BINDINGS</A></H3>
+When a new message is created, it has no default event bindings:
+messages are intended for output purposes only.
+
+<H3><A NAME="M29">BUGS</A></H3>
+Tabs don't work very well with text that is centered or right-justified.
+The most common result is that the line is justified wrong.
+
+<H3><A NAME="M30">KEYWORDS</A></H3>
+message, widget
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/option-menu.n.html b/Help/option-menu.n.html
new file mode 100644
index 0000000..25238c5
--- /dev/null
+++ b/Help/option-menu.n.html
@@ -0,0 +1,32 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - option-menu manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> option-menu</H2>
+<I>Create an option menubutton and its menu</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>Tk:option-menu </B><I>w varname value </I>?<I>value value ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure creates an option menubutton whose name is <I>w</I>,
+plus an associated menu.
+Together they allow the user to select one of the values
+given by the <I>value</I> arguments.
+The current value will be stored in the global variable whose
+name is given by <I>varname</I> and it will also be displayed as the label
+in the option menubutton.
+The user can click on the menubutton to display a menu containing
+all of the <I>value</I>s and thereby select a new value.
+Once a new value is selected, it will be stored in the variable
+and appear in the option menubutton.
+The current value can also be changed by setting the variable.
+<P>
+The return value from <B>Tk:option-menu</B> is the menu
+associated with <I>w</I>, so that the caller can change its configuration
+options or manipulate it in other ways.
+
+<H3><A NAME="M4">EXAMPLE</A></H3>
+<PRE>(Tk:option-menu '.m 'foo &quot;One&quot; &quot;Two&quot; &quot;Three&quot;) 
+(pack .m)</PRE>
+<H3><A NAME="M5">SEE ALSO</A></H3>
+<B><A HREF="./menu.n.html">menu</A></B>, <B><A HREF="./popup.n.html">popup</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/option.n.html b/Help/option.n.html
new file mode 100644
index 0000000..a700fb5
--- /dev/null
+++ b/Help/option.n.html
@@ -0,0 +1,80 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - option manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> option</H2>
+<I>Add/retrieve window options to/from the option database</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>option 'add </B><I>pattern value</I>)<BR>
+(<B>option 'add </B><I>pattern value </I><I>priority</I>)<BR>
+(<B>option 'clear</B>)<BR>
+(<B>option 'get </B><I>window name class</I>)<BR>
+(<B>option 'readfile </B><I>fileName </I>?<I>priority</I>?)<BR>
+(<B>option 'readfile </B><I>fileName </I><I>priority</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>option</B> procedure allows you to add entries to the Tk option
+database or to retrieve options from the database.  The <B>add</B>
+form of the procedure adds a new option to the database.
+<I>Pattern</I> contains
+the option being specified, and consists of names and/or classes
+separated by asterisks or dots, in the usual X format.  <I>Value</I>
+contains a text string to associate with <I>pattern</I>;  this is the
+value that will be returned in calls to <B>Tk_GetOption</B> or by
+invocations of the <B>option get</B> procedure.  If <I>priority</I>
+is specified, it indicates the priority level for this option (see
+below for legal values);  it defaults to <B>interactive</B>.
+This procedure always returns an empty list.
+<P>
+The <B>option clear</B> procedure clears the option database.  Default
+options (from the
+<B>RESOURCE_MANAGER</B> property or the <B>.Xdefaults</B>
+file) will be reloaded automatically the next time an
+option is added to the database or removed from it.  This procedure
+always returns an empty string.
+<P>
+The <B>option get</B> procedure returns the value of the option
+specified for <I>window</I>
+under <I>name</I> and <I>class</I>.  If several entries in the option
+database match <I>window</I>, <I>name</I>, and <I>class</I>, then
+the procedure returns whichever was created with highest
+<I>priority</I> level.  If there are several matching
+entries at the same priority level, then it returns whichever entry
+was most recently entered into the option database.  If there are
+no matching entries, then the empty string is returned.
+<P>
+The <B>readfile</B> form of the procedure reads <I>fileName</I>,
+which should have the standard format for an
+X resource database such as <B>.Xdefaults</B>, and adds all the
+options specified in that file to the option database.  If <I>priority</I>
+is specified, it indicates the priority level at which to enter the
+options;  <I>priority</I> defaults to <B>interactive</B>.
+<P>
+The <I>priority</I> arguments to the <B>option</B> procedure are
+normally specified symbolically using one of the following values:
+<P>
+<DL>
+<DT><A NAME="M4"><B>widgetDefault</B></A><DD>
+Level 20.  Used for default values hard-coded into widgets.
+<P>
+<DT><A NAME="M5"><B>startupFile</B></A><DD>
+Level 40.  Used for options specified in application-specific
+startup files.
+<P>
+<DT><A NAME="M6"><B>userDefault</B></A><DD>
+Level 60.  Used for options specified in user-specific defaults
+files, such as <B>.Xdefaults</B>, resource databases loaded into
+the X server, or user-specific startup files.
+<P>
+<DT><A NAME="M7"><B>interactive</B></A><DD>
+Level 80.  Used for options specified interactively after the application
+starts running.  If <I>priority</I> isn't specified, it defaults to
+this level.
+<P>
+</DL>
+<P>
+Any of the above keywords may be abbreviated.  In addition, priorities
+may be specified numerically using integers between 0 and 100,
+inclusive.  The numeric form is probably a bad idea except for new priority
+levels other than the ones given above.
+
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/options.n.html b/Help/options.n.html
new file mode 100644
index 0000000..1c9b044
--- /dev/null
+++ b/Help/options.n.html
@@ -0,0 +1,534 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - options manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> options</H2>
+<I>Standard options supported by widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">DESCRIPTION</A></H3>
+This manual entry describes the common configuration options supported
+by widgets in the Tk toolkit.  Every widget does not necessarily support
+every option (see the manual entries for individual widgets for a list
+of the standard options supported by that widget), but if a widget does
+support an option with one of the names listed below, then the option
+has exactly the effect described below.
+<P>
+In the descriptions below, ``Command-Line Name'' refers to the
+switch used in class commands and <B>configure</B> widget commands to
+set this value.  For example, if an option's command-line switch is
+<B>:foreground</B> and there exists a widget <B>.a.b.c</B>, then the
+command
+<PRE><B>(.a.b.c  'configure  :foreground &quot;black&quot;</B>)</PRE>
+may be used to specify the value <B>black</B> for the option in the
+the widget <B>.a.b.c</B>.  Command-line switches may be abbreviated,
+as long as the abbreviation is unambiguous.
+``Name'' refers to the option's name in the option database (e.g.
+in .Xdefaults files).  ``Class'' refers to the option's class value
+in the option database. For each option, the <B>STklos</B> name is also 
+specified. The <B>STklos</B> name is usually the same as the option 
+name, except when it is a composite word, in which case words 
+are separated with a dash.
+
+
+<DL>
+<P>
+<DT><I>Name</I>:            <B>activeBackground</B>
+<DT><I>Class</I>:           <B>Foreground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:activebackground">:activebackground</A></B>
+<DT><I>STklos slot name</I>: <B>active-background</B>
+<DD>Specifies background color to use when drawing active elements.
+An element (a widget or portion of a widget) is active if the
+mouse cursor is positioned over the element and pressing a mouse button
+will cause some action to occur.
+If strict Motif compliance has been requested by setting the
+<B>*tk-strict-motif*</B> variable, this option will normally be
+ignored;  the normal background color will be used instead.
+<P>
+<P>
+<DT><I>Name</I>:            <B>activeBorderWidth</B>
+<DT><I>Class</I>:           <B>BorderWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:activeborderwidth">:activeborderwidth</A></B>
+<DT><I>STklos slot name</I>: <B>active-border-width</B>
+<DD>Specifies a non-negative value indicating
+the width of the 3-D border drawn around active elements.  See above for
+definition of active elements.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+This option is typically only available in widgets displaying more
+than one element at a time (e.g. menus but not buttons).
+<P>
+<P>
+<DT><I>Name</I>:            <B>activeForeground</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:activeforeground">:activeforeground</A></B>
+<DT><I>STklos slot name</I>: <B>active-foreground</B>
+<DD>Specifies foreground color to use when drawing active elements.
+See above for definition of active elements.
+<P>
+<P>
+<DT><I>Name</I>:            <B>anchor</B>
+<DT><I>Class</I>:           <B>Anchor</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:anchor">:anchor</A></B>
+<DT><I>STklos slot name</I>: <B>anchor</B>
+<DD>Specifies how the information in a widget (e.g. text or a bitmap)
+is to be displayed in the widget.
+Must be one of the values <B>n</B>, <B>ne</B>, <B>e</B>, <B>se</B>,
+<B>s</B>, <B>sw</B>, <B>w</B>, <B>nw</B>, or <B>center</B>.
+For example, <B>nw</B> means display the information such that its
+top-left corner is at the top-left corner of the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>background</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:background">:background</A></B>
+<DT><I>STklos slot name</I>: <B>background</B>
+<DD>Specifies the normal background color to use when displaying the
+widget. This option can also be specified as <B>:bg</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>bitmap</B>
+<DT><I>Class</I>:           <B>Bitmap</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:bitmap">:bitmap</A></B>
+<DT><I>STklos slot name</I>: <B>bitmap</B>
+<DD>Specifies a bitmap to display in the widget, in any of the forms
+acceptable to <B>Tk_GetBitmap</B>.
+The exact way in which the bitmap is displayed may be affected by
+other options such as <B>anchor</B> or <B>justify</B>.
+Typically, if this option is specified then it overrides other
+options that specify a textual value to display in the widget;
+the <B>bitmap</B> option may be reset to an empty string to re-enable
+a text display.
+In widgets that support both <B>bitmap</B> and <B>image</B> options,
+<B>image</B> will usually override <B>bitmap</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>borderWidth</B>
+<DT><I>Class</I>:           <B>BorderWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:borderwidth">:borderwidth</A></B>
+<DT><I>STklos slot name</I>: <B>:border-width</B>
+<DD>Specifies a non-negative value indicating the width
+of the 3-D border to draw around the outside of the widget (if such a
+border is being drawn;  the <B>relief</B> option typically determines
+this).  The value may also be used when drawing 3-D effects in the
+interior of the widget.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+This option can also be specified as <B>:bd</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>cursor</B>
+<DT><I>Class</I>:           <B>Cursor</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:cursor">:cursor</A></B>
+<DT><I>STklos slot name</I>: <B>cursor</B>
+<DD>Specifies the mouse cursor to be used for the widget.
+The value may have any of the forms acceptable to <B>Tk_GetCursor</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>disabledForeground</B>
+<DT><I>Class</I>:           <B>DisabledForeground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:disabledforeground">:disabledforeground</A></B>
+<DT><I>STklos slot name</I>: <B>disabled-foreground</B>
+<DD>Specifies foreground color to use when drawing a disabled element.
+If the option is specified as an empty string (which is typically the
+case on monochrome displays), disabled elements are drawn with the
+normal foreground color but they are dimmed by drawing them
+with a stippled fill pattern.
+<P>
+<P>
+<DT><I>Name</I>:            <B>exportSelection</B>
+<DT><I>Class</I>:           <B>ExportSelection</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:exportselection">:exportselection</A></B>
+<DT><I>STklos slot name</I>: <B>export-selection</B>
+<DD>Specifies whether or not a selection in the widget should also be the
+X selection.  The value must be a boolean value. If the selection is
+exported, then selecting in the widget deselects the current X
+selection, selecting outside the widget deselects any widget
+selection, and the widget will respond to selection retrieval requests
+when it has a selection.  The default is usually for widgets to export
+selections.
+<P>
+<P>
+<DT><I>Name</I>:            <B>font</B>
+<DT><I>Class</I>:           <B>Font</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:font">:font</A></B>
+<DT><I>STklos slot name</I>: <B>font</B>
+<DD>Specifies the font to use when drawing text inside the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>foreground</B>
+<DT><I>Class</I>:           <B>Foreground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:foreground">:foreground</A></B>
+<DT><I>STklos slot name</I>: <B>foreground</B>
+<DD>Specifies the normal foreground color to use when displaying the widget.
+This option can also be specified as <B>:fg</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>geometry</B>
+<DT><I>Class</I>:           <B>Geometry</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:geometry">:geometry</A></B>
+<DT><I>STklos slot name</I>: <B>geometry</B>
+<DD>Specifies the desired geometry for the widget's window, in the
+form <I>width</I><B>x</B><I>height</I>, where <I>width</I> is the desired
+width of the window and <I>height</I> is the desired height.  The
+units for <I>width</I> and <I>height</I> depend on the particular
+widget.  For widgets displaying text the units are usually the
+size of the characters in the font being displayed;  for other
+widgets the units are usually pixels.
+<P>
+<P>
+<DT><I>Name</I>:            <B>highlightBackground</B>
+<DT><I>Class</I>:           <B>HighlightBackground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:highlightbackground">:highlightbackground</A></B>
+<DT><I>STklos slot name</I>: <B>highlight-background</B>
+<DD>Specifies the color to display in the traversal highlight region when
+the widget does not have the input focus.
+<P>
+<P>
+<DT><I>Name</I>:            <B>highlightColor</B>
+<DT><I>Class</I>:           <B>HighlightColor</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:highlightcolor">:highlightcolor</A></B>
+<DT><I>STklos slot name</I>: <B>highlight-color</B>
+<DD>Specifies the color to use for the traversal highlight rectangle that is
+drawn around the widget when it has the input focus.
+<P>
+<P>
+<DT><I>Name</I>:            <B>highlightThickness</B>
+<DT><I>Class</I>:           <B>HighlightThickness</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:highlightthickness">:highlightthickness</A></B>
+<DT><I>STklos slot name</I>: <B>highlight-thickness</B>
+<DD>Specifies a non-negative value indicating the width of the highlight
+rectangle to draw around the outside of the widget when it has the
+input focus.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+If the value is zero, no focus highlight is drawn around the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>image</B>
+<DT><I>Class</I>:           <B>Image</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:image">:image</A></B>
+<DT><I>STklos slot name</I>: <B>image</B>
+<DD>Specifies an image to display in the widget, which must have been
+created with the <B><A HREF=.././image.n.html>image create</A></B> command.
+Typically, if the <B>image</B> option is specified then it overrides other
+options that specify a bitmap or textual value to display in the widget;
+the <B>image</B> option may be reset to an empty string to re-enable
+a bitmap or text display.
+<P>
+<P>
+<DT><I>Name</I>:            <B>insertBackground</B>
+<DT><I>Class</I>:           <B>Foreground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:insertbackground">:insertbackground</A></B>
+<DT><I>STklos slot name</I>: <B>insert-background</B>
+<DD>Specifies the color to use as background in the area covered by the
+insertion cursor.  This color will normally override either the normal
+background for the widget (or the selection background if the insertion
+cursor happens to fall in the selection).
+<P>
+<P>
+<DT><I>Name</I>:            <B>insertBorderWidth</B>
+<DT><I>Class</I>:           <B>BorderWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:insertborderwidth">:insertborderwidth</A></B>
+<DT><I>STklos slot name</I>: <B>insert-border-width</B>
+<DD>Specifies a non-negative value indicating the width
+of the 3-D border to draw around the insertion cursor.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>insertOffTime</B>
+<DT><I>Class</I>:           <B>OffTime</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:insertofftime">:insertofftime</A></B>
+<DT><I>STklos slot name</I>: <B>insert-off-time</B>
+<DD>Specifies a non-negative integer value indicating the number of
+milliseconds the insertion cursor should remain ``off'' in each blink cycle.
+If this option is zero then the cursor doesn't blink:  it is on
+all the time.
+<P>
+<P>
+<DT><I>Name</I>:            <B>insertOnTime</B>
+<DT><I>Class</I>:           <B>OnTime</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:insertontime">:insertontime</A></B>
+<DT><I>STklos slot name</I>: <B>insert-on-time</B>
+<DD>Specifies a non-negative integer value indicating the number of
+milliseconds the insertion cursor should remain ``on'' in each blink cycle.
+<P>
+<P>
+<DT><I>Name</I>:            <B>insertWidth</B>
+<DT><I>Class</I>:           <B>InsertWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:insertwidth">:insertwidth</A></B>
+<DT><I>STklos slot name</I>: <B>insert-width</B>
+<DD>Specifies a  value indicating the total width of the insertion cursor.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+If a border has been specified for the insertion
+cursor (using the <B>insertBorderWidth</B> option), the border
+will be drawn inside the width specified by the <B>insertWidth</B>
+option.
+<P>
+<P>
+<DT><I>Name</I>:            <B>jump</B>
+<DT><I>Class</I>:           <B>Jump</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:jump">:jump</A></B>
+<DT><I>STklos slot name</I>: <B>jump</B>
+<DD>For widgets with a slider that can be dragged to adjust a value,
+such as scrollbars, this option determines when
+notifications are made about changes in the value.
+The option's value must be a boolean of the form accepted by
+<B>Tcl_GetBoolean</B>.
+If the value is false, updates are made continuously as the
+slider is dragged.
+If the value is true, updates are delayed until the mouse button
+is released to end the drag;  at that point a single notification
+is made (the value ``jumps'' rather than changing smoothly).
+<P>
+<P>
+<DT><I>Name</I>:            <B>justify</B>
+<DT><I>Class</I>:           <B>Justify</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:justify">:justify</A></B>
+<DT><I>STklos slot name</I>: <B>justify</B>
+<DD>When there are multiple lines of text displayed in a widget, this
+option determines how the lines line up with each other.
+Must be one of <B>left</B>, <B>center</B>, or <B>right</B>.
+<B>Left</B> means that the lines' left edges all line up, <B>center</B>
+means that the lines' centers are aligned, and <B>right</B> means
+that the lines' right edges line up.
+<P>
+<P>
+<DT><I>Name</I>:            <B>orient</B>
+<DT><I>Class</I>:           <B>Orient</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:orient">:orient</A></B>
+<DT><I>STklos slot name</I>: <B>orientation</B>
+<DD>For widgets that can lay themselves out with either a horizontal
+or vertical orientation, such as scrollbars, this option specifies
+which orientation should be used.  Must be either <B>horizontal</B>
+or <B>vertical</B> or an abbreviation of one of these.
+<P>
+<P>
+<DT><I>Name</I>:            <B>padX</B>
+<DT><I>Class</I>:           <B>Pad</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:padx">:padx</A></B>
+<DT><I>STklos slot name</I>: <B>padx</B>
+<DD>Specifies a non-negative value indicating how much extra space
+to request for the widget in the X-direction.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+When computing how large a window it needs, the widget will
+add this amount to the width it would normally need (as determined
+by the width of the things displayed in the widget);  if the geometry
+manager can satisfy this request, the widget will end up with extra
+internal space to the left and/or right of what it displays inside.
+Most widgets only use this option for padding text:  if they are
+displaying a bitmap or image, then they usually ignore padding
+options.
+<P>
+<P>
+<DT><I>Name</I>:            <B>padY</B>
+<DT><I>Class</I>:           <B>Pad</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:pady">:pady</A></B>
+<DT><I>STklos slot name</I>: <B>pady</B>
+<DD>Specifies a non-negative value indicating how much extra space
+to request for the widget in the Y-direction.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+When computing how large a window it needs, the widget will add
+this amount to the height it would normally need (as determined by
+the height of the things displayed in the widget);  if the geometry
+manager can satisfy this request, the widget will end up with extra
+internal space above and/or below what it displays inside.
+Most widgets only use this option for padding text:  if they are
+displaying a bitmap or image, then they usually ignore padding
+options.
+<P>
+<P>
+<DT><I>Name</I>:            <B>relief</B>
+<DT><I>Class</I>:           <B>Relief</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:relief">:relief</A></B>
+<DT><I>STklos slot name</I>: <B>relief</B>
+<DD>Specifies the 3-D effect desired for the widget.  Acceptable
+values are <B>raised</B>, <B>sunken</B>, <B>flat</B>, <B>ridge</B>,
+and <B>groove</B>.
+The value
+indicates how the interior of the widget should appear relative
+to its exterior;  for example, <B>raised</B> means the interior of
+the widget should appear to protrude from the screen, relative to
+the exterior of the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>repeatDelay</B>
+<DT><I>Class</I>:           <B>RepeatDelay</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:repeatdelay">:repeatdelay</A></B>
+<DT><I>STklos slot name</I>: <B>repeat-delay</B>
+<DD>Specifies the number of milliseconds a button or key must be held
+down before it begins to auto-repeat.  Used, for example, on the
+up- and down-arrows in scrollbars.
+<P>
+<P>
+<DT><I>Name</I>:            <B>repeatInterval</B>
+<DT><I>Class</I>:           <B>RepeatInterval</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:repeatinterval">:repeatinterval</A></B>
+<DT><I>STklos slot name</I>: <B>repeat-interval</B>
+<DD>Used in conjunction with <B>repeatDelay</B>:  once auto-repeat
+begins, this option determines the number of milliseconds between
+auto-repeats.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectBackground</B>
+<DT><I>Class</I>:           <B>Foreground</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:selectbackground">:selectbackground</A></B>
+<DT><I>STklos slot name</I>: <B>select-background</B>
+<DD>Specifies the background color to use when displaying selected
+items.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectBorderWidth</B>
+<DT><I>Class</I>:           <B>BorderWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:selectborderwidth">:selectborderwidth</A></B>
+<DT><I>STklos slot name</I>: <B>select-border-width</B>
+<DD>Specifies a non-negative value indicating the width
+of the 3-D border to draw around selected items.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectForeground</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:selectforeground">:selectforeground</A></B>
+<DT><I>STklos slot name</I>: <B>select-foreground</B>
+<DD>Specifies the foreground color to use when displaying selected
+items.
+<P>
+<P>
+<DT><I>Name</I>:            <B>setGrid</B>
+<DT><I>Class</I>:           <B>SetGrid</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:setgrid">:setgrid</A></B>
+<DT><I>STklos slot name</I>: <B>set-grid</B>
+<DD>Specifies a boolean value that determines whether this widget controls the
+resizing grid for its top-level window.
+This option is typically used in text widgets, where the information
+in the widget has a natural size (the size of a character) and it makes
+sense for the window's dimensions to be integral numbers of these units.
+These natural window sizes form a grid.
+If the <B>setGrid</B> option is set to true then the widget will
+communicate with the window manager so that when the user interactively
+resizes the top-level window that contains the widget, the dimensions of
+the window will be displayed to the user in grid units and the window
+size will be constrained to integral numbers of grid units.
+See the section GRIDDED GEOMETRY MANAGEMENT in the <B><A HREF="./wm.n.html">wm</A></B> manual
+entry for more details.
+<P>
+<P>
+<DT><I>Name</I>:            <B>takeFocus</B>
+<DT><I>Class</I>:           <B>TakeFocus</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:takefocus">:takefocus</A></B>
+<DT><I>STklos slot name</I>: <B>take-focus</B>
+<DD>Determines whether the window accepts the focus during keyboard
+traversal (e.g., Tab and Shift-Tab).
+Before setting the focus to a window, the traversal scripts
+consult the value of the <B>takeFocus</B> option.
+A value of <B>#f</B> means that the window should be skipped entirely
+during keyboard traversal. 
+<B>#t</B> means that the window should receive the input
+focus as long as it is viewable (it and all of its ancestors are mapped).
+An empty string for the option means that the traversal scripts make
+the decision about whether or not to focus on the window:  the current
+algorithm is to skip the window if it is
+disabled, if it has no key bindings, or if it is not viewable.
+Value can also be a one parameter procedure. This procedure is called
+by the traversal algorithm with the window as parameter. The 
+value retuned by he procedure must be <B>#f</B>, <B>#t</B>, or an empty string:  a 
+<B>#f</B> or <B>#t</B> value specifies whether the window will receive
+the input focus, and an empty string results in the default decision
+described above. See the <B>focus-next</B> page for the <B>focus-on</B>
+and <B>focus-off</B> procedures.
+<B>Note</B>: this interpretation of the option is defined entirely by
+the STk scripts that implement traversal:  the widget implementations
+ignore the option entirely, so you can change its meaning if you
+redefine the keyboard traversal scripts.
+<P>
+<P>
+<DT><I>Name</I>:            <B><A HREF="./text.n.html">text</A></B>
+<DT><I>Class</I>:           <B><A HREF="./text.n.html">Text</A></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:text">:text</A></B>
+<DT><I>STklos slot name</I>: <B><A HREF="./text.n.html">text</A></B>
+<DD>Specifies a string to be displayed inside the widget.  The way in which
+the string is displayed depends on the particular widget and may be
+determined by other options, such as <B>anchor</B> or <B>justify</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>textVariable</B>
+<DT><I>Class</I>:           <B>Variable</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:textvariable">:textvariable</A></B>
+<DT><I>STklos slot name</I>: <B>text-variable</B>
+<DD>Specifies the name of a variable.  The value of the variable is a text
+string to be displayed inside the widget;  if the variable value changes
+then the widget will automatically update itself to reflect the new value.
+The way in which the string is displayed in the widget depends on the
+particular widget and may be determined by other options, such as
+<B>anchor</B> or <B>justify</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>troughColor</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:troughcolor">:troughcolor</A></B>
+<DT><I>STklos slot name</I>: <B>trough-color</B>
+<DD>Specifies the color to use for the rectangular trough areas
+in widgets such as scrollbars and scales.
+<P>
+<P>
+<DT><I>Name</I>:            <B>underline</B>
+<DT><I>Class</I>:           <B>Underline</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:underline">:underline</A></B>
+<DT><I>STklos slot name</I>: <B>underline</B>
+<DD>Specifies the integer index of a character to underline in the widget.
+This option is used by the default bindings to implement keyboard
+traversal for menu buttons and menu entries.
+0 corresponds to the first character of the text displayed in the
+widget, 1 to the next character, and so on.
+<P>
+<P>
+<DT><I>Name</I>:            <B>wrapLength</B>
+<DT><I>Class</I>:           <B>WrapLength</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:wraplength">:wraplength</A></B>
+<DT><I>STklos slot name</I>: <B>wrap-length</B>
+<DD>For widgets that can perform word-wrapping, this option specifies
+the maximum line length.
+Lines that would exceed this length are wrapped onto the next line,
+so that no line is longer than the specified length.
+The value may be specified in any of the standard forms for
+screen distances.
+If this value is less than or equal to 0 then no wrapping is done:  lines
+will break only at newline characters in the text.
+<P>
+<P>
+<DT><I>Name</I>:            <B>xScrollCommand</B>
+<DT><I>Class</I>:           <B>ScrollCommand</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:xscrollcommand">:xscrollcommand</A></B>
+<DT><I>STklos slot name</I>: <B>x-scroll-command</B>
+<DD>Specifies the procedure used to communicate with horizontal scrollbars.
+When the view in the widget's window changes (or
+whenever anything else occurs that could change the display in a
+scrollbar, such as a change in the total size of the widget's
+contents), the widget call this procedure with two numbers as parameters.
+Each of the numbers is a fraction between 0 and 1, which indicates
+a position in the document.  0 indicates the beginning of the document,
+1 indicates the end, .333 indicates a position one third the way through
+the document, and so on.
+The first fraction indicates the first information in the document
+that is visible in the window, and the second fraction indicates
+the information just after the last portion that is visible.
+Typically the
+<B>xScrollCommand</B> option consists of a procedure of the form
+<P>
+</DL>
+<PRE>(lambda l (apply .x.scrollbar 'set l))</PRE>
+this will cause the scrollbar to be updated whenever the view in the
+window changes.  If this option is not specified, then no command will
+be executed.
+<DL>
+<P>
+<DT><I>Name</I>:            <B>yScrollCommand</B>
+<DT><I>Class</I>:           <B>ScrollCommand</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M:yscrollcommand">:yscrollcommand</A></B>
+<DT><I>STklos slot name</I>: <B>y-scroll-command</B>
+<DD>Specifies the prefix for a command used to communicate with vertical
+scrollbars.  This option is treated in the same way as the
+<B>xScrollCommand</B> option, except that it is used for vertical
+scrollbars and is provided by widgets that support vertical scrolling.
+See the description of <B>xScrollCommand</B> for details
+on how this option is used.
+
+<P>
+</DL>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/pack.n.html b/Help/pack.n.html
new file mode 100644
index 0000000..0bc0d00
--- /dev/null
+++ b/Help/pack.n.html
@@ -0,0 +1,257 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - pack manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> pack</H2>
+<I>Geometry manager that packs around edges of cavity</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>pack </B><I>option arg </I>?<I>arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>pack</B> procedure is used to communicate with the packer,
+a geometry manager that arranges the children of a parent by
+packing them in order around the edges of the parent.
+The <B>pack</B> procedure can have any of several forms, depending
+on the <I>option</I> argument:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>pack </B><I>slave </I>?<I>slave ...</I>? ?<I>options</I>?)</A><DD>
+If the first argument to <B>pack</B> is a window name (any value
+starting with ``.''), then the procedure is processed in the same
+way as <B>pack configure</B>.
+<P>
+<DT><A NAME="M5">(<B>pack 'configure </B><I>slave </I>?<I>slave ...</I>? ?<I>options</I>?)</A><DD>
+The arguments consist of the names of one or more slave windows
+followed by pairs of arguments that specify how
+to manage the slaves.
+See ``THE PACKER ALGORITHM'' below for details on how the options
+are used by the packer.
+The following options are supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M6"><B>:after </B><I>other</I></A><DD>
+<I>Other</I> must the name of another window.
+Use its master as the master for the slaves, and insert
+the slaves just after <I>other</I> in the packing order.
+<P>
+<DT><A NAME="M7"><B>:anchor </B><I>anchor</I></A><DD>
+<I>Anchor</I> must be a valid anchor position such as <B>n</B>
+or <B>sw</B>; it specifies where to position each slave in its
+parcel.
+Defaults to <B>center</B>.
+<P>
+<DT><A NAME="M8"><B>:before </B><I>other</I></A><DD>
+<I>Other</I> must the name of another window.
+Use its master as the master for the slaves, and insert
+the slaves just before <I>other</I> in the packing order.
+<P>
+<DT><A NAME="M9"><B>:expand </B><I>boolean</I></A><DD>
+Specifies whether the slaves should be expanded to consume
+extra space in their master.
+<I>Boolean</I> may have any proper boolean value. Defaults to #f.
+<P>
+<DT><A NAME="M10"><B>:fill </B><I>style</I></A><DD>
+If a slave's parcel is larger than its requested dimensions, this
+option may be used to stretch the slave.
+<I>Style</I> must have one of the following values:
+<P>
+<P>
+<DL>
+<DT><A NAME="M11"><B>none</B></A><DD>
+Give the slave its requested dimensions plus any internal padding
+requested with <B>:ipadx</B> or <B>:ipady</B>.  This is the default.
+<P>
+<DT><A NAME="M12"><B>x</B></A><DD>
+Stretch the slave horizontally to fill the entire width of its
+parcel (except leave external padding as specified by <B>:padx</B>).
+<P>
+<DT><A NAME="M13"><B>y</B></A><DD>
+Stretch the slave vertically to fill the entire height of its
+parcel (except leave external padding as specified by <B>:pady</B>).
+<P>
+<DT><A NAME="M14"><B>both</B></A><DD>
+Stretch the slave both horizontally and vertically.
+<P>
+</DL>
+<DT><A NAME="M15"><B>:in </B><I>other</I></A><DD>
+Insert the slave(s) at the end of the packing order for the master
+window given by <I>other</I>.
+<P>
+<DT><A NAME="M16"><B>:ipadx </B><I>amount</I></A><DD>
+<I>Amount</I> specifies how much horizontal internal padding to
+leave on each side of the slave(s).
+<I>Amount</I> must be a valid screen distance, such as <B>2</B> or <B>.5c</B>.
+It defaults to 0.
+<P>
+<DT><A NAME="M17"><B>:ipady </B><I>amount</I></A><DD>
+<I>Amount</I> specifies how much vertical internal padding to
+leave on each side of the slave(s).
+<I>Amount</I>  defaults to 0.
+<P>
+<DT><A NAME="M18"><B>:padx </B><I>amount</I></A><DD>
+<I>Amount</I> specifies how much horizontal external padding to
+leave on each side of the slave(s).
+<I>Amount</I> defaults to 0.
+<P>
+<DT><A NAME="M19"><B>:pady </B><I>amount</I></A><DD>
+<I>Amount</I> specifies how much vertical external padding to
+leave on each side of the slave(s).
+<I>Amount</I> defaults to 0.
+<P>
+<DT><A NAME="M20"><B>:side </B><I>side</I></A><DD>
+Specifies which side of the master the slave(s) will be packed against.
+Must be <B>left</B>, <B>right</B>, <B>top</B>, or <B>bottom</B>.
+Defaults to <B>top</B>.
+<P>
+</DL>
+<UL>
+<P>
+If no <B>:in</B>, <B>:after</B> or <B>:before</B> option is specified
+then each of the slaves will be inserted at the end of the packing list
+for its parent unless it is already managed by the packer (in which
+case it will be left where it is).
+If one of these options is specified then all the slaves will be
+inserted at the specified point.
+If any of the slaves are already managed by the geometry manager
+then any unspecified options for them retain their previous values rather
+than receiving default values.
+</UL>
+<DT><A NAME="M21">(<B>pack 'forget </B><I>slave </I>?<I>slave ...</I>?)</A><DD>
+Removes each of the <I>slave</I>s from the packing order for its
+master and unmaps their windows.
+The slaves will no longer be managed by the packer.
+<P>
+<DT><A NAME="M22">(<B>pack 'info </B><I>slave</I>)</A><DD>
+Returns a list whose elements are the current configuration state of
+the slave given by <I>slave</I> in the same option-value form that
+might be specified to <B>pack configure</B>.
+The first two elements of the list are ``<B>:in </B><I>master</I>'' where
+<I>master</I> is the slave's master.
+<P>
+<DT><A NAME="M23">(<B>pack 'propagate </B><I>master</I> ?<I>boolean</I>?)</A><DD>
+If <I>boolean</I> has a true boolean value such as <B>1</B> or <B>on</B>
+then propagation is enabled for <I>master</I>, which must be a window
+name (see ``GEOMETRY PROPAGATION'' below).
+If <I>boolean</I> has a false boolean value then propagation is
+disabled for <I>master</I>.
+In either of these cases an empty string is returned.
+If <I>boolean</I> is omitted then the procedure returns <B>#f</B> or
+<B>#t</B> to indicate whether propagation is currently enabled
+for <I>master</I>.
+Propagation is enabled by default.
+<P>
+<DT><A NAME="M24">(<B>pack 'slaves </B><I>master</I>)</A><DD>
+Returns a list of all of the slaves in the packing order for <I>master</I>.
+The order of the slaves in the list is the same as their order in
+the packing order.
+If <I>master</I> has no slaves then an empty string is returned.
+
+<P>
+</DL>
+<H3><A NAME="M25">THE PACKER ALGORITHM</A></H3>
+For each master the packer maintains an ordered list of slaves
+called the <I>packing list</I>.
+The <B>:in</B>, <B>:after</B>, and <B>:before</B> configuration
+options are used to specify the master for each slave and the slave's
+position in the packing list.
+If none of these options is given for a slave then the slave
+is added to the end of the packing list for its parent.
+<P>
+The packer arranges the slaves for a master by scanning the
+packing list in order.
+At the time it processes each slave, a rectangular area within
+the master is still unallocated.
+This area is called the <I>cavity</I>;  for the first slave it
+is the entire area of the master.
+<P>
+For each slave the packer carries out the following steps:
+<OL>
+<LI>
+The packer allocates a rectangular <I>parcel</I> for the slave
+along the side of the cavity given by the slave's <B>:side</B> option.
+If the side is top or bottom then the width of the parcel is
+the width of the cavity and its height is the requested height
+of the slave plus the <B>:ipady</B> and <B>:pady</B> options.
+For the left or right side the height of the parcel is
+the height of the cavity and the width is the requested width
+of the slave plus the <B>:ipadx</B> and <B>:padx</B> options.
+The parcel may be enlarged further because of the <B>:expand</B>
+option (see ``EXPANSION'' below)
+<LI>
+The packer chooses the dimensions of the slave.
+The width will normally be the slave's requested width plus
+twice its <B>:ipadx</B> option and the height will normally be
+the slave's requested height plus twice its <B>:ipady</B>
+option.
+However, if the <B>:fill</B> option is <B>x</B> or <B>both</B>
+then the width of the slave is expanded to fill the width of the parcel,
+minus twice the <B>:padx</B> option.
+If the <B>:fill</B> option is <B>y</B> or <B>both</B>
+then the height of the slave is expanded to fill the width of the parcel,
+minus twice the <B>:pady</B> option.
+<LI>
+The packer positions the slave over its parcel.
+If the slave is smaller than the parcel then the <B>:anchor</B>
+option determines where in the parcel the slave will be placed.
+If <B>:padx</B> or <B>:pady</B> is non-zero, then the given
+amount of external padding will always be left between the
+slave and the edges of the parcel.
+</OL>
+<P>
+Once a given slave has been packed, the area of its parcel
+is subtracted from the cavity, leaving a smaller rectangular
+cavity for the next slave.
+If a slave doesn't use all of its parcel, the unused space
+in the parcel will not be used by subsequent slaves.
+If the cavity should become too small to meet the needs of
+a slave then the slave will be given whatever space is
+left in the cavity.
+If the cavity shrinks to zero size, then all remaining slaves
+on the packing list will be unmapped from the screen until
+the master window becomes large enough to hold them again.
+
+<H3><A NAME="M26">EXPANSION</A></H3>
+If a master window is so large that there will be extra space
+left over after all of its slaves have been packed, then the
+extra space is distributed uniformly among all of the slaves
+for which the <B>:expand</B> option is set.
+Extra horizontal space is distributed among the expandable
+slaves whose <B>:side</B> is <B>left</B> or <B>right</B>,
+and extra vertical space is distributed among the expandable
+slaves whose <B>:side</B> is <B>top</B> or <B>bottom</B>.
+
+<H3><A NAME="M27">GEOMETRY PROPAGATION</A></H3>
+The packer normally computes how large a master must be to
+just exactly meet the needs of its slaves, and it sets the
+requested width and height of the master to these dimensions.
+This causes geometry information to propagate up through a
+window hierarchy to a top-level window so that the entire
+sub-tree sizes itself to fit the needs of the leaf windows.
+However, the <B>pack propagate</B> procedure may be used to
+turn off propagation for one or more masters.
+If propagation is disabled then the packer will not set
+the requested width and height of the packer.
+This may be useful if, for example, you wish for a master
+window to have a fixed size that you specify.
+
+<H3><A NAME="M28">RESTRICTIONS ON MASTER WINDOWS</A></H3>
+The master for each slave must either be the slave's parent
+(the default) or a descendant of the slave's parent.
+This restriction is necessary to guarantee that the
+slave can be placed over any part of its master that is
+visible without danger of the slave being clipped by its parent.
+
+<H3><A NAME="M29">PACKING ORDER</A></H3>
+If the master for a slave is not its parent then you must make sure
+that the slave is higher in the stacking order than the master.
+Otherwise the master will obscure the slave and it will appear as
+if the slave hasn't been packed correctly.
+The easiest way to make sure the slave is higher than the master is
+to create the master window first:  the most recently created window
+will be highest in the stacking order.
+Or, you can use the <B><A HREF="./raise.n.html">raise</A></B> and <B><A HREF="./lower.n.html">lower</A></B> procedures to change
+the stacking order of either the master or the slave.
+
+<H3><A NAME="M30">SEE ALSO</A></H3>
+<B><A HREF="./grid.n.html">grid</A></B>, <B><A HREF="./place.n.html">place</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/palette.n.html b/Help/palette.n.html
new file mode 100644
index 0000000..20ce850
--- /dev/null
+++ b/Help/palette.n.html
@@ -0,0 +1,56 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - Tk:set-palette! manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> Tk:set-palette!, Tk:bisque</H2>
+<I>Modify the Tk color palette</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>Tk:set-palette! </B><I>background</I>)<BR>
+(<B>Tk:set-palette! </B><I>name value </I>?<I>name value ...</I>?)<BR>
+(<B>Tk:bisque</B>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>Tk:set-palette!</B> procedure changes the color scheme for Tk.
+It does this by modifying the colors of existing widgets and by changing
+the option database so that future widgets will use the new color scheme.
+If <B>Tk:set-palette!</B> is invoked with a single argument, the
+argument is the name of a color to use as the normal background
+color;  <B>Tk:set-palette!</B> will compute a complete color palette
+from this background color.
+Alternatively, the arguments to <B>Tk:set-palette!</B> may consist of any number
+of <I>name</I>-<I>value</I> pairs, where the first argument of the pair
+is the name of an option in the Tk option database and the second
+argument is the new value to use for that option.  The following
+database names are currently supported:
+<PRE><B>activeBackground	foreground	selectColor
+activeForeground	highlightBackground	selectBackground
+background	highlightColor	selectForeground
+disabledForeground	insertBackground	troughColor</B></PRE>
+<B>Tk:set-palette!</B> tries to compute reasonable defaults for any
+options that you don't specify.  You can specify options other
+than the above ones and Tk will change those options on widgets as
+well.  This feature may be useful if you are using custom widgets with
+additional color options.
+<P>
+Once it has computed the new value to use for each of the color options,
+<B>Tk:set-palette!</B> scans the widget hierarchy to modify the options
+of all existing widgets.  For each widget, it checks to see if any
+of the above options is defined for the widget.  If so, and if the
+option's current value is the default, then the value is changed;  if
+the option has a value other than the default, <B>Tk:set-palette!</B>
+will not change it.  The default for an option is the one provided by
+the widget <B>(list-ref (w 'configure option) 3)</B> unless
+<B>Tk:set-palette!</B> has been run previously, in which case it is the
+value specified in the previous invocation of <B>Tk:set-palette!</B>.
+<P>
+After modifying all the widgets in the application, <B>Tk:set-palette!</B>
+adds options to the option database to change the defaults for
+widgets created in the future.  The new options are added at
+priority <B>widgetDefault</B>, so they will be overridden by options
+from the .Xdefaults file or options specified on the command-line
+that creates a widget.
+<P>
+The procedure <B>Tk:bisque</B> is provided for backward compatibility:
+it restores the application's colors to the light brown (``bisque'')
+color scheme used in Tk 3.6 and earlier versions.
+
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/photo.n.html b/Help/photo.n.html
new file mode 100644
index 0000000..55846f6
--- /dev/null
+++ b/Help/photo.n.html
@@ -0,0 +1,332 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - photo manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> photo</H2>
+<I>Full-color images</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>image 'create 'photo </B>?<I>name</I>? ?<I>options</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+A photo is an image whose pixels can display any color or be
+transparent.  A photo image is stored internally in full color (24
+bits per pixel), and is displayed using dithering if necessary.  Image
+data for a photo image can be obtained from a file or a string, or it
+can be supplied from
+C code through a procedural interface.  At present, only GIF and PPM/PGM
+formats are supported, but an interface exists to allow additional
+image file formats to be added easily.  A photo image is transparent
+in regions where no image data has been supplied.
+
+<H3><A NAME="M4">CREATING PHOTOS</A></H3>
+Like all images, photos are created using the <B><A HREF=.././image.n.html>image create</A></B>
+command.
+Photos support the following <I>options</I>:
+<P>
+<DL>
+<DT><A NAME="M5"><B>:data </B><I>string</I></A><DD>
+Specifies the contents of the image as a string.  The format of the
+string must be one of those for which there is an image file format
+handler that will accept string data.  If both the <B>:data</B>
+and <B>:file</B> options are specified, the <B>:file</B> option takes
+precedence.
+<P>
+<DT><A NAME="M6"><B>:format </B><I>format-name</I></A><DD>
+Specifies the name of the file format for the data specified with the
+<B>:data</B> or <B>:file</B> option.
+<P>
+<DT><A NAME="M7"><B>:file </B><I>name</I></A><DD>
+<I>name</I> gives the name of a file that is to be read to supply data
+for the photo image.  The file format must be one of those for which
+there is an image file format handler that can read data from a file.
+<P>
+<DT><A NAME="M8"><B>:gamma </B><I>value</I></A><DD>
+Specifies that the colors allocated for displaying this image in a
+window should be corrected for a non-linear display with the specified
+gamma exponent value.  (The intensity produced by most
+CRT displays is a power function of the input value, to a good
+approximation; gamma is the exponent and is typically around 2).
+The value specified must be greater than zero.  The default
+value is one (no correction).  In general, values greater than one
+will make the image lighter, and values less than one will make it
+darker.
+<P>
+<DT><A NAME="M9"><B>:height </B><I>number</I></A><DD>
+Specifies the height of the image, in pixels.  This option is useful
+primarily in situations where the user wishes to build up the contents
+of the image piece by piece.  A value of zero (the default) allows the
+image to expand or shrink vertically to fit the data stored in it.
+<P>
+<DT><A NAME="M10"><B>:palette </B><I>palette-spec</I></A><DD>
+Specifies the resolution of the color cube to be allocated for
+displaying this image, and thus the number of colors used from the
+colormaps of the windows where it is displayed.  The
+<I>palette-spec</I> string may be either a single decimal number,
+specifying the number of shades of gray to use, or three decimal
+numbers separated by slashes (/), specifying the number of shades of
+red, green and blue to use, respectively.  If the first form (a single
+number) is used, the image will be displayed in monochrome (i.e.,
+grayscale).
+<P>
+<DT><A NAME="M11"><B>:width </B><I>number</I></A><DD>
+Specifies the width of the image, in pixels.    This option is useful
+primarily in situations where the user wishes to build up the contents
+of the image piece by piece.  A value of zero (the default) allows the
+image to expand or shrink horizontally to fit the data stored in it.
+
+<P>
+</DL>
+<H3><A NAME="M12">IMAGE COMMAND</A></H3>
+When a photo image is created, Tk also creates a new command
+whose name is the same as the image.
+This command may be used to invoke various operations
+on the image.
+It has the following general form:
+<PRE>(<I>imageName option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the command.
+<P>
+Those options that write data to the image generally expand the size
+of the image, if necessary, to accommodate the data written to the
+image, unless the user has specified non-zero values for the
+<B>:width</B> and/or <B>:height</B> configuration options, in which
+case the width and/or height, respectively, of the image will not be
+changed.
+<P>
+The following commands are possible for photo images:
+<P>
+<DL>
+<DT><A NAME="M13">(<I>imageName '</I><B>blank</B>)</A><DD>
+Blank the image; that is, set the entire image to have no data, so it
+will be displayed as transparent, and the background of whatever
+window it is displayed in will show through.
+<P>
+<DT><A NAME="M14">(<I>imageName '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the
+<B>image create photo</B> command.
+<P>
+<DT><A NAME="M15">(<I>imageName '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options for the image.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>imageName</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the command returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the command
+modifies the given option(s) to have the given value(s);  in
+this case the command returns an empty string.
+<I>Option</I> may have any of the values accepted by the
+<B>image create photo</B> command.
+<P>
+<DT><A NAME="M16">(<I>imageName '</I><B>copy</B> <I>sourceImage</I> ?<I>option value(s) ...</I>?)</A><DD>
+Copies a region from the image called <I>sourceImage</I> (which must
+be a photo image) to the image called <I>imageName</I>, possibly with
+pixel zooming and/or subsampling.  If no options are specified, this
+command copies the whole of <I>sourceImage</I> into <I>imageName</I>,
+starting at coordinates (0,0) in <I>imageName</I>.  The following
+options may be specified:
+<P>
+<P>
+<DL>
+<DT><A NAME="M17"><B>:from </B><I>x1 y1 x2 y2</I></A><DD>
+Specifies a rectangular sub-region of the source image to be copied.
+(<I>x1,y1</I>) and (<I>x2,y2</I>) specify diagonally opposite corners of
+the rectangle.  If <I>x2</I> and <I>y2</I> are not specified, the
+default value is the bottom-right corner of the source image.  The
+pixels copied will include the left and top edges of the specified
+rectangle but not the bottom or right edges.  If the <B>:from</B>
+option is not given, the default is the whole source image.
+<P>
+<DT><A NAME="M18"><B>:to </B><I>x1 y1 x2 y2</I></A><DD>
+Specifies a rectangular sub-region of the destination image to be
+affected.  (<I>x1,y1</I>) and (<I>x2,y2</I>) specify diagonally opposite
+corners of the rectangle.  If <I>x2</I> and <I>y2</I> are not specified,
+the default value is (<I>x1,y1</I>) plus the size of the source
+region (after subsampling and zooming, if specified).  If <I>x2</I> and
+<I>y2</I> are specified, the source region will be replicated if
+necessary to fill the destination region in a tiled fashion.
+<P>
+<DT><A NAME="M19"><B>:shrink</B></A><DD>
+Specifies that the size of the destination image should be reduced, if
+necessary, so that the region being copied into is at the bottom-right
+corner of the image.  This option will not affect the width or height
+of the image if the user has specified a non-zero value for the
+<B>:width</B> or <B>:height</B> configuration option, respectively.
+<P>
+<DT><A NAME="M20"><B>:zoom </B><I>x y</I></A><DD>
+Specifies that the source region should be magnified by a factor of
+<I>x</I> in the X direction and <I>y</I> in the Y direction.  If <I>y</I>
+is not given, the default value is the same as <I>x</I>.  With this
+option, each pixel in the source image will be expanded into a block
+of <I>x</I> x <I>y</I> pixels in the destination image, all the same
+color.  <I>x</I> and <I>y</I> must be greater than 0.
+<P>
+<DT><A NAME="M21"><B>:subsample </B><I>x y</I></A><DD>
+Specifies that the source image should be reduced in size by using
+only every <I>x</I>th pixel in the X direction and <I>y</I>th pixel in
+the Y direction.  Negative values will cause the image to be flipped
+about the Y or X axes, respectively.  If <I>y</I> is not given, the
+default value is the same as <I>x</I>.
+<P>
+</DL>
+<DT><A NAME="M22">(<I>imageName '</I><B>get</B> <I>x y</I>)</A><DD>
+Returns the color of the pixel at coordinates (<I>x</I>,<I>y</I>) in the
+image as a list of three integers between 0 and 255, representing the
+red, green and blue components respectively.
+<P>
+<DT><A NAME="M23">(<I>imageName '</I><B>put </B><I>data</I>)</A><DD>
+<DT><A NAME="M24">(option	<I>imageName '</I><B>put </B><I>data</I> <B>:to</B><I> x1 y1 x2 y2</I>)</A><DD>
+Sets pixels in <I>imageName</I> to the colors specified in <I>data</I>.
+<I>data</I> is used to form a two-dimensional array of pixels that are
+then copied into the <I>imageName</I>.  <I>data</I> is structured as a
+list of horizontal rows, from top to bottom, each of which is a list
+of colors, listed from left to right.  Each color may be specified by name
+(e.g., blue) or in hexadecimal form (e.g., #2376af).  The
+<B>:to</B> option can be used to specify the area of <I>imageName</I> to be
+affected.  If only <I>x1</I> and <I>y1</I> are given, the area affected
+has its top-left corner at (<I>x1,y1</I>) and is the same size as the
+array given in <I>data</I>.  If all four coordinates are given, they
+specify diagonally opposite corners of the affected rectangle, and the
+array given in <I>data</I> will be replicated as necessary in the X and
+Y directions to fill the rectangle.
+<P>
+<DT><A NAME="M25">(<I>imageName '</I><B>read</B> <I>filename</I> ?<I>option value(s) ...</I>?)</A><DD>
+Reads image data from the file named <I>filename</I> into the image.
+This command first searches the list of
+image file format handlers for a handler that can interpret the data
+in <I>filename</I>, and then reads the image in <I>filename</I> into
+<I>imageName</I> (the destination image).  The following options may be
+specified:
+<P>
+<P>
+<DL>
+<DT><A NAME="M26"><B>:format </B><I>format-name</I></A><DD>
+Specifies the format of the image data in <I>filename</I>.
+Specifically, only image file format handlers whose names begin with
+<I>format-name</I> will be used while searching for an image data
+format handler to read the data.
+<P>
+<DT><A NAME="M27"><B>:from </B><I>x1 y1 x2 y2</I></A><DD>
+Specifies a rectangular sub-region of the image file data to be copied
+to the destination image.  If only <I>x1</I> and <I>y1</I> are
+specified, the region extends from (<I>x1,y1</I>) to the bottom-right
+corner of the image in the image file.  If all four coordinates are
+specified, they specify diagonally opposite corners or the region.
+The default, if this option is not specified, is the whole of the
+image in the image file.
+<P>
+<DT><A NAME="M28"><B>:shrink</B></A><DD>
+If this option, the size of <I>imageName</I> will be reduced, if
+necessary, so that the region into which the image file data are read
+is at the bottom-right corner of the <I>imageName</I>.  This option
+will not affect the width or height of the image if the user has
+specified a non-zero value for the <B>:width</B> or <B>:height</B>
+configuration option, respectively.
+<P>
+<DT><A NAME="M29"><B>:to </B><I>x y</I></A><DD>
+Specifies the coordinates of the top-left corner of the region of
+<I>imageName</I> into which data from <I>filename</I> are to be read.
+The default is (0,0).
+<P>
+</DL>
+<DT><A NAME="M30">(<I>imageName '</I><B>redither</B>)</A><DD>
+The dithering algorithm used in displaying photo images propagates
+quantization errors from one pixel to its neighbors.
+If the image data for <I>imageName</I> is supplied in pieces, the
+dithered image may not be exactly correct.  Normally the difference is
+not noticeable, but if it is a problem, this command can be used to
+recalculate the dithered image in each window where the image is
+displayed.
+<P>
+<DT><A NAME="M31">(<I>imageName '</I><B>write </B><I>filename</I> ?<I>option value(s) ...</I>?)</A><DD>
+Writes image data from <I>imageName</I> to a file named <I>filename</I>.
+The following options may be specified:
+<P>
+<P>
+<DL>
+<DT><A NAME="M32"><B>:format</B><I> format-name</I></A><DD>
+Specifies the name of the image file format handler to be used to
+write the data to the file.  Specifically, this subcommand searches
+for the first handler whose name matches a initial substring of
+<I>format-name</I> and which has the capability to write an image
+file.  If this option is not given, this subcommand uses the first
+handler that has the capability to write an image file.
+<P>
+<DT><A NAME="M33"><B>:from </B><I>x1 y1 x2 y2</I></A><DD>
+Specifies a rectangular region of <I>imageName</I> to be written to the
+image file.  If only <I>x1</I> and <I>y1</I> are specified, the region
+extends from <I>(x1,y1)</I> to the bottom-right corner of
+<I>imageName</I>.  If all four coordinates are given, they specify
+diagonally opposite corners of the rectangular region.  The default,
+if this option is not given, is the whole image.
+<P>
+</DL>
+</DL>
+<H3><A NAME="M34">IMAGE FORMATS</A></H3>
+The photo image code is structured to allow handlers for additional
+image file formats to be added easily.  The photo image code maintains
+a list of these handlers.  Handlers are added to the list by
+registering them with a call to <B>Tk_CreatePhotoImageFormat</B>.  The
+standard Tk distribution comes with handlers for PPM/PGM and GIF formats,
+which are automatically registered on initialization.
+<P>
+When reading an image file or processing
+string data specified with the <B>:data</B> configuration option, the
+photo image code invokes each handler in turn until one is
+found that claims to be able to read the data in the file or string.
+Usually this will find the correct handler, but if it doesn't, the
+user may give a format name with the <B>:format</B> option to specify
+which handler to use.  In fact the photo image code will try those
+handlers whose names begin with the string specified for the
+<B>:format</B> option (the comparison is case-insensitive).  For
+example, if the user specifies <B>:format gif</B>, then a handler
+named GIF87 or GIF89 may be invoked, but a handler
+named JPEG may not (assuming that such handlers had been
+registered).
+<P>
+When writing image data to a file, the processing of the
+<B>:format</B> option is slightly different: the string value given
+for the <B>:format</B> option must begin with the complete name of the
+requested handler, and may contain additional information following
+that, which the handler can use, for example, to specify which variant
+to use of the formats supported by the handler.
+
+<H3><A NAME="M35">COLOR ALLOCATION</A></H3>
+When a photo image is displayed in a window, the photo image code
+allocates colors to use to display the image and dithers the image, if
+necessary, to display a reasonable approximation to the image using
+the colors that are available.  The colors are allocated as a color
+cube, that is, the number of colors allocated is the product of the
+number of shades of red, green and blue.
+<P>
+Normally, the number of
+colors allocated is chosen based on the depth of the window.  For
+example, in an 8-bit PseudoColor window, the photo image code will
+attempt to allocate seven shades of red, seven shades of green and
+four shades of blue, for a total of 198 colors.  In a 1-bit StaticGray
+(monochrome) window, it will allocate two colors, black and white.  In
+a 24-bit DirectColor or TrueColor window, it will allocate 256 shades
+each of red, green and blue.  Fortunately, because of the way that
+pixel values can be combined in DirectColor and TrueColor windows,
+this only requires 256 colors to be allocated.  If not all of the
+colors can be allocated, the photo image code reduces the number of
+shades of each primary color and tries again.
+<P>
+The user can exercise some control over the number of colors that a
+photo image uses with the <B>:palette</B> configuration option.  If
+this option is used, it specifies the maximum number of shades of
+each primary color to try to allocate.  It can also be used to force
+the image to be displayed in shades of gray, even on a color display,
+by giving a single number rather than three numbers separated by
+slashes.
+
+<H3><A NAME="M36">CREDITS</A></H3>
+The photo image type was designed and implemented by Paul Mackerras,
+based on his earlier photo widget and some suggestions from
+John Ousterhout.
+
+<H3><A NAME="M37">SEE ALSO</A></H3>
+<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B>pixmap</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/place.n.html b/Help/place.n.html
new file mode 100644
index 0000000..bc7e7f2
--- /dev/null
+++ b/Help/place.n.html
@@ -0,0 +1,222 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - place manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> place</H2>
+<I>Geometry manager for fixed or rubber-sheet placement</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>place </B><I>window option value </I>?<I>option value ...</I>?)<BR>
+(<B>place 'configure </B><I>window option value </I>?<I>option value ...</I>?)<BR>
+(<B>place 'forget </B><I>window</I>)<BR>
+(<B>place 'info </B><I>window</I>)<BR>
+(<B>place 'slaves </B><I>window</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The placer is a geometry manager for Tk.
+It provides simple fixed placement of windows, where you specify
+the exact size and location of one window, called the <I>slave</I>,
+within another window, called the <I>master</I>.
+The placer also provides rubber-sheet placement, where you specify the
+size and location of the slave in terms of the dimensions of
+the master, so that the slave changes size and location
+in response to changes in the size of the master.
+Lastly, the placer allows you to mix these styles of placement so
+that, for example, the slave has a fixed width and height but is
+centered inside the master.
+<P>
+If the first argument to the <B>place</B> procedure is a window path
+name or <B>configure</B> then the procedure arranges for the placer
+to manage the geometry of a slave whose path name is <I>window</I>.
+The remaining arguments consist of one or more <I>option:value</I>
+pairs that specify the way in which <I>window</I>'s
+geometry is managed.
+If the placer is already managing <I>window</I>, then the
+<I>option:value</I> pairs modify the configuration for <I>window</I>.
+In this form the <B>place</B> procedure returns an empty string as result.
+The following <I>option:value</I> pairs are supported:
+<P>
+<DL>
+<DT><A NAME="M4"><B>:in </B><I>master</I></A><DD>
+<I>Master</I> specifes the path name of the window relative
+to which <I>window</I> is to be placed.
+<I>Master</I> must either be <I>window</I>'s parent or a descendant
+of <I>window</I>'s parent.
+In addition, <I>master</I> and <I>window</I> must both be descendants
+of the same top-level window.
+These restrictions are necessary to guarantee
+that <I>window</I> is visible whenever <I>master</I> is visible.
+If this option isn't specified then the master defaults to
+<I>window</I>'s parent.
+<P>
+<DT><A NAME="M5"><B>:x </B><I>location</I></A><DD>
+<I>Location</I> specifies the x-coordinate within the master window
+of the anchor point for <I>window</I>.
+The location is specified in screen units (i.e. any of the forms
+accepted by <B>Tk_GetPixels</B>) and need not lie within the bounds
+of the master window.
+<P>
+<DT><A NAME="M6"><B>:relx </B><I>location</I></A><DD>
+<I>Location</I> specifies the x-coordinate within the master window
+of the anchor point for <I>window</I>.
+In this case the location is specified in a relative fashion
+as a floating-point number:  0.0 corresponds to the left edge
+of the master and 1.0 corresponds to the right edge of the master.
+<I>Location</I> need not be in the range 0.0-1.0.
+If both <B>:x</B> and <B>:relx</B> are specified for a slave
+then their values are summed.  For example, <B>:relx 0.5 :x -2</B>
+positions the left edge of the slave 2 pixels to the left of the
+center of its master.
+<P>
+<DT><A NAME="M7"><B>:y </B><I>location</I></A><DD>
+<I>Location</I> specifies the y-coordinate within the master window
+of the anchor point for <I>window</I>.
+The location is specified in screen units (i.e. any of the forms
+accepted by <B>Tk_GetPixels</B>) and need not lie within the bounds
+of the master window.
+<P>
+<DT><A NAME="M8"><B>:rely </B><I>location</I></A><DD>
+<I>Location</I> specifies the y-coordinate within the master window
+of the anchor point for <I>window</I>.
+In this case the value is specified in a relative fashion
+as a floating-point number:  0.0 corresponds to the top edge
+of the master and 1.0 corresponds to the bottom edge of the master.
+<I>Location</I> need not be in the range 0.0-1.0.
+If both <B>:y</B> and <B>:rely</B> are specified for a slave
+then their values are summed.  For example, <B>:rely 0.5 :x 3</B>
+positions the top edge of the slave 3 pixels below the
+center of its master.
+<P>
+<DT><A NAME="M9"><B>:anchor </B><I>where</I></A><DD>
+<I>Where</I> specifies which point of <I>window</I> is to be positioned
+at the (x,y) location selected by the <B>:x</B>, <B>:y</B>,
+<B>:relx</B>, and <B>:rely</B> options.
+The anchor point is in terms of the outer area of <I>window</I>
+including its border, if any.
+Thus if <I>where</I> is <B>se</B> then the lower-right corner of
+<I>window</I>'s border will appear at the given (x,y) location
+in the master.
+The anchor position defaults to <B>nw</B>.
+<P>
+<DT><A NAME="M10"><B>:width </B><I>size</I></A><DD>
+<I>Size</I> specifies the width for <I>window</I> in screen units
+(i.e. any of the forms accepted by <B>Tk_GetPixels</B>).
+The width will be the outer width of <I>window</I> including its
+border, if any.
+If <I>size</I> is an empty string, or if no <B>:width</B>
+or <B>:relwidth</B> option is specified, then the width requested
+internally by the window will be used.
+<P>
+<DT><A NAME="M11"><B>:relwidth </B><I>size</I></A><DD>
+<I>Size</I> specifies the width for <I>window</I>.
+In this case the width is specified as a floating-point number
+relative to the width of the master: 0.5 means <I>window</I> will
+be half as wide as the master, 1.0 means <I>window</I> will have
+the same width as the master, and so on.
+If both <B>:width</B> and <B>:relwidth</B> are specified for a slave,
+their values are summed.  For example, <B>:relwidth 1.0 :width 5</B>
+makes the slave 5 pixels wider than the master.
+<P>
+<DT><A NAME="M12"><B>:height </B><I>size</I></A><DD>
+<I>Size</I> specifies the height for <I>window</I> in screen units
+(i.e. any of the forms accepted by <B>Tk_GetPixels</B>).
+The height will be the outer dimension of <I>window</I> including its
+border, if any.
+If <I>size</I> is an empty string, or if no <B>:height</B> or
+<B>:relheight</B> option is specified, then the height requested
+internally by the window will be used.
+<P>
+<DT><A NAME="M13"><B>:relheight </B><I>size</I></A><DD>
+<I>Size</I> specifies the height for <I>window</I>.
+In this case the height is specified as a floating-point number
+relative to the height of the master: 0.5 means <I>window</I> will
+be half as high as the master, 1.0 means <I>window</I> will have
+the same height as the master, and so on.
+If both <B>:height</B> and <B>:relheight</B> are specified for a slave,
+their values are summed.  For example, <B>:relheight 1.0 :height :2</B>
+makes the slave 2 pixels shorter than the master.
+<P>
+<DT><A NAME="M14"><B>:bordermode </B><I>mode</I></A><DD>
+<I>Mode</I> determines the degree to which borders within the
+master are used in determining the placement of the slave.
+The default and most common value is <B>inside</B>.
+In this case the placer considers the area of the master to
+be the innermost area of the master, inside any border:
+an option of <B>:x 0</B> corresponds to an x-coordinate just
+inside the border and an option of <B>:relwidth 1.0</B>
+means <I>window</I> will fill the area inside the master's
+border.
+If <I>mode</I> is <B>outside</B> then the placer considers
+the area of the master to include its border;
+this mode is typically used when placing <I>window</I>
+outside its master, as with the options <B>:x 0 :y 0 :anchor 'ne</B>.
+Lastly, <I>mode</I> may be specified as <B>ignore</B>, in which
+case borders are ignored:  the area of the master is considered
+to be its official X area, which includes any internal border but
+no external border.  A bordermode of <B>ignore</B> is probably
+not very useful.
+<P>
+</DL>
+<P>
+If the same value is specified separately with
+two different options, such as <B>:x</B> and <B>:relx</B>, then
+the most recent option is used and the older one is ignored.
+<P>
+The <B>place slaves</B> procedure returns a list of all the slave
+windows for which <I>window</I> is the master.
+If there are no slaves for <I>window</I> then an empty string is
+returned.
+<P>
+The <B>place forget</B> procedure causes the placer to stop managing
+the geometry of <I>window</I>.  As a side effect of this procedure
+<I>window</I> will be unmapped so that it doesn't appear on the
+screen.
+If <I>window</I> isn't currently managed by the placer then the
+procedure has no effect.
+<B>Place forget</B> returns an empty string as result.
+<P>
+The <B>place info</B> procedure returns a list giving the current
+configuration of <I>window</I>.
+The list consists of <I>option-value</I> pairs in exactly the
+same form as might be specified to the <B>place configure</B>
+procedure.
+If the configuration of a window has been retrieved with
+<B>place info</B>, that configuration can be restored later by
+first using <B>place forget</B> to erase any existing information
+for the window and then invoking <B>place configure</B> with
+the saved information.
+
+<H3><A NAME="M15">FINE POINTS</A></H3>
+It is not necessary for the master window to be the parent
+of the slave window.
+This feature is useful in at least two situations.
+First, for complex window layouts it means you can create a
+hierarchy of subwindows whose only purpose
+is to assist in the layout of the parent.
+The ``real children'' of the parent (i.e. the windows that
+are significant for the application's user interface) can be
+children of the parent yet be placed inside the windows
+of the geometry-management hierarchy.
+This means that the path names of the ``real children''
+don't reflect the geometry-management hierarchy and users
+can specify options for the real children
+without being aware of the structure of the geometry-management
+hierarchy.
+<P>
+A second reason for having a master different than the slave's
+parent is to tie two siblings together.
+For example, the placer can be used to force a window always to
+be positioned centered just below one of its
+siblings by specifying the configuration
+<PRE><B>:in </B><I>sibling</I><B> :relx 0.5 :rely 1.0 :anchor 'n :bordermode 'outside</B></PRE>
+Whenever the sibling is repositioned in the future, the slave
+will be repositioned as well.
+<P>
+Unlike many other geometry managers (such as the packer)
+the placer does not make any attempt to manipulate the geometry of
+the master windows or the parents of slave windows (i.e. it doesn't
+set their requested sizes).
+To control the sizes of these windows, make them windows like
+frames and canvases that provide configuration options for this purpose.
+
+<H3><A NAME="M16">SEE ALSO</A></H3>
+<B><A HREF="./grid.n.html">grid</A></B>, <B><A HREF="./pack.n.html">pack</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/popup.n.html b/Help/popup.n.html
new file mode 100644
index 0000000..9d94325
--- /dev/null
+++ b/Help/popup.n.html
@@ -0,0 +1,24 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - Tk:popup manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> popup</H2>
+<I>Post a popup menu</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+<B>(Tk:popup </B><I>menu x y </I>)<BR>
+<B>(Tk:popup </B><I>menu x y </I> <I>entry</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure posts a menu at a given position on the screen and
+configures Tk so that the menu and its cascaded children can be
+traversed with the mouse or the keyboard.
+<I>Menu</I> is the name of a menu widget and <I>x</I> and <I>y</I>
+are the root coordinates at which to display the menu.
+If <I>entry</I> is omitted or an empty string, the
+menu's upper left corner is positioned at the given point.
+Otherwise <I>entry</I> gives the index of an entry in <I>menu</I> and
+the menu will be positioned so that the entry is positioned over
+the given point.
+
+<H3><A NAME="M4">SEE ALSO</A></H3>
+<B><A HREF="./menu.n.html">menu</A></B>, <B><A HREF="./option-menu.n.html">option-menu</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/posix.n.html b/Help/posix.n.html
new file mode 100644
index 0000000..7d8b1bc
--- /dev/null
+++ b/Help/posix.n.html
@@ -0,0 +1,168 @@
+<HTML><HEAD><TITLE>STk procedures - posix manual page</TITLE></HEAD>
+<BODY bgcolor = #ffffa0>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageYellow.gif"> posix </H2>
+<I>Access to posix functions</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+<P>
+<DL>
+<DT><A NAME="M3"><I>ERROR&nbsp;MANAGEMENT</I></A><DD>
+<B>*errno*</B>
+<P>
+<P>
+<P>
+(<B>posix-perror</B> <I>str</I>)
+<P>
+<DT><A NAME="M4"><I>FILES&nbsp;AND&nbsp;DIRECTORIES</I></A><DD>
+(<B>posix-stat</B> <I>filename</I>)
+<P>
+<P>
+<P>
+(<B>posix-stat-&gt;vector</B> <I>descr</I>)
+<P>
+<P>
+<P>
+(<B>posix-access </B><I>filename mode</I>)
+<P>
+<P>
+<P>
+(<B>posix-pipe</B>)
+<P>
+<DT><A NAME="M5"><I>TIME&nbsp;FUNCTIONS</I></A><DD>
+(<B>posix-time</B>)
+<P>
+<P>
+<P>
+(<B>posix-asctime</B>)
+<P>
+<P>
+<P>
+(<B>posix-asctime</B> seconds)
+<P>
+<P>
+<P>
+(<B>posix-ctime</B>)
+<P>
+<P>
+<P>
+(<B>posix-ctime</B> <I>seconds</I>)
+<P>
+<P>
+<P>
+(<B>posix-localtime</B> <I> seconds</I>)
+<P>
+<P>
+<P>
+(<B>posix-gmtime</B> <I>seconds</I>)
+<P>
+<P>
+<P>
+(<B>posix-mktime</B> <I>time</I>)
+<P>
+<P>
+<P>
+(<B>posix-tm-&gt;vector</B> <I>time</I>)
+<P>
+<P>
+<P>
+(<B>vector-&gt;posix-tm</B> <I>vect</I>)
+<P>
+<P>
+<P>
+(<B>posix-strftime</B> <I>format</I>)
+<P>
+<P>
+<P>
+(<B>posix-strftime</B> <I>format time</I>)
+<P>
+<DT><A NAME="M6"><I>PROCESSES&nbsp;FUNCTIONS</I></A><DD>
+<P>
+<P>
+(<B>posix-fork</B>)
+<P>
+<P>
+<P>
+(<B>posix-wait</B>)
+<P>
+<DT><A NAME="M7"><I>SYSTEM&nbsp;INFORMATIONS</I></A><DD>
+<P>
+<P>
+(<B>posix-uname</B>)
+<P>
+<P>
+<P>
+(<B>posix-host</B>)
+<P>
+<P>
+<P>
+(<B>posix-domain</B>)
+<P>
+</DL>
+<H3><A NAME="M8">DESCRIPTION</A></H3>
+The functions of the posix library must be loaded before use with:
+<PRE>(require &quot;posix&quot;)</PRE>
+The functions will not be described here completely. For full details
+about a functions and its behaviour, look at the corresponding Unix
+manual page or to the POSIX.1 document.
+
+<P>
+<DL>
+<DT><A NAME="M9"><I>ERROR&nbsp;MANAGEMENT</I></A><DD>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M10"><B>*errno*</B></A><DD>
+is a variable which always contains the error number of last 
+encountered error. It is equivalent to the errno POSIX.1 variable.
+<P>
+<DT><A NAME="M11">(<B>posix-perror</B> <I>str</I>)</A><DD>
+produces a message on the standard error output, describing the last
+ error encountered during a call to a system  or library function. The 
+<I>str</I> parameter is an identifying string which will be printed before 
+the error message.
+See <B>perror(3)</B>.
+
+<P>
+<DT><A NAME="M12"><I>FILES&nbsp;AND&nbsp;DIRECTORIES</I></A><DD>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M13">(<B>posix-stat</B> <I>filename</I>)</A><DD>
+returns a C structure which contains a description of <I>filename</I>). This 
+structure is not viewable by itself. Use, <B>posix-stat-&gt;vector</B>
+to access its content in Scheme.If <I>filename</I> does not exists, this procedure
+returns <I>#f</I>.
+<P>
+<DT><A NAME="M14">(<B>posix-stat-&gt;vector</B> <I>descr</I>)</A><DD>
+transforms a file description sructure obtained by <B>posix-stat</B> to a Scheme 
+vector. The components of the vector are given here with their index:
+<P>
+</DL>
+<PRE>st_dev   (0)          st_ino    (1)
+   st_mode  (2)          st_nlink  (3)
+   st_uid   (4)          st_gid    (5)
+   st_size  (6)          st_atime  (7)
+   st_mtime (8)          st_ctime  (9)</PRE>
+<PRE>See <B>fstat(2)</B> for details on the semantic of this fields.</PRE>
+<P>
+<DL>
+<DT><A NAME="M15">(<B>posix-access </B><I>filename mode</I>)</A><DD>
+checks whether the interpreter is  allowed to read, write, execute  or test for 
+existence of <I>filename</I>. <I>Mode</I> must be one of the following constants:
+<B>|R_OK|</B>, <B>|W_OK|</B>, <B>|X_OK|</B> or <B>|F_OK|</B>. 
+If <I>filename</I> does not exit, this function returns <B>#f</B>.
+See <B>access(2)</B> for details.
+<P>
+<DT><A NAME="M16">(<B>posix-pipe</B>)</A><DD>
+returns a pair of Scheme ports associated to a
+pipe inode. If a pipe cannot be created, this function returns
+<B>#f</B>.
+
+<P>
+</DL>
+<P>
+<B>TO BE CONTINUED</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookYellow.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/radiobutton.n.html b/Help/radiobutton.n.html
new file mode 100644
index 0000000..772e8d3
--- /dev/null
+++ b/Help/radiobutton.n.html
@@ -0,0 +1,270 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - radiobutton manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> radiobutton</H2>
+<I>Create and manipulate radiobutton widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>radiobutton</B><I> widget-name </I>?<I>options</I>?-<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:activeforeground">:activeforeground</A></B> 
+<B><A HREF="options.n.html#M:anchor">:anchor</A></B>                                <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:bitmap">:bitmap</A></B>                                <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:disabledforeground">:disabledforeground</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:image">:image</A></B> 
+<B><A HREF="options.n.html#M:justify">:justify</A></B>                               <B><A HREF="options.n.html#M:padx">:padx</A></B> 
+<B><A HREF="options.n.html#M:pady">:pady</A></B>                                  <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:text">:text</A></B> 
+<B><A HREF="options.n.html#M:textvariable">:textvariable</A></B>                          <B><A HREF="options.n.html#M:underline">:underline</A></B> 
+<B><A HREF="options.n.html#M:wraplength">:wraplength</A></B>                           
+</PRE>
+<H3><A NAME="M27">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>command</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk procedure to associate with the button.  This procedure
+is typically invoked when mouse button 1 is released over the button
+window.  The button's global variable (<B>:variable</B> option) will
+be updated before the procedure is invoked.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies a desired height for the button.
+If an image or bitmap is being displayed in the button then the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in lines of text.
+If this option isn't specified, the button's desired height is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+<P>
+<DT><I>Name</I>:            <B>indicatorOn</B>
+<DT><I>Class</I>:           <B>IndicatorOn</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:indicatoron</A></B>
+<DT><I>STklos slot name</I>: <B>indicator-on</B>
+<DD>Specifies whether or not the indicator should be drawn.  Must be a
+proper boolean value.  If false, the <B>relief</B> option is
+ignored and the widget's relief is always sunken if the widget is
+selected and raised otherwise.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectColor</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:selectcolor</A></B>
+<DT><I>STklos slot name</I>: <B>select-color</B>
+<DD>Specifies a background color to use when the button is selected.
+If <B>indicatorOn</B> is true, the color applicies to the indicator.
+If <B>indicatorOn</B> is false, this color is used as the background
+for the entire widget, in place of <B>background</B> or <B>activeBackground</B>,
+whenever the widget is selected.
+If specified as an empty string, no special color is used for
+displaying when the widget is selected.
+<P>
+<P>
+<DT><I>Name</I>:            <B>selectImage</B>
+<DT><I>Class</I>:           <B>SelectImage</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M32">:selectimage</A></B>
+<DT><I>STklos slot name</I>: <B>select-image</B>
+<DD>Specifies an image to display (in place of the <B>image</B> option)
+when the radiobutton is selected.
+This option is ignored unless the <B>image</B> option has been
+specified.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M33">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of three states for the radiobutton:  <B>normal</B>, <B>active</B>,
+or <B>disabled</B>.  In normal state the radiobutton is displayed using the
+<B>foreground</B> and <B>background</B> options.  The active state is
+typically used when the pointer is over the radiobutton.  In active state
+the radiobutton is displayed using the <B>activeForeground</B> and
+<B>activeBackground</B> options.  Disabled state means that the radiobutton
+should be insensitive:  the default bindings will refuse to activate
+the widget and will ignore mouse button presses.
+In this state the <B>disabledForeground</B> and
+<B>background</B> options determine how the radiobutton is displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>stringvalue</B>
+<DT><I>Class</I>:           <B>StringValue</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M34">:stringvalue</A></B>
+<DT><I>STklos slot name</I>: <B>string-value</B>
+<DD>Specifies if the value set to <B>variable</B> by <B>:value</B> must be 
+<I>stringified</I>. Default value for this option is <B>#t</B>. 
+See <B><A HREF="./checkbutton.n.html">checkbutton</A></B> for a similar example.
+<P>
+<P>
+<DT><I>Name</I>:            <B>value</B>
+<DT><I>Class</I>:           <B>Value</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M35">:value</A></B>
+<DT><I>STklos slot name</I>: <B>value</B>
+<DD>Specifies value to store in the button's associated variable whenever
+this button is selected.
+<P>
+<P>
+<DT><I>Name</I>:            <B>variable</B>
+<DT><I>Class</I>:           <B>Variable</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M36">:variable</A></B>
+<DT><I>STklos slot name</I>: <B>variable</B>
+<DD>Specifies name of global variable to set whenever this button is
+selected.  Changes in this variable also cause the button to select
+or deselect itself.
+Defaults to the value <B>*selected-button*</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M37">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies a desired width for the button.
+If an image or bitmap is being displayed in the button, the value is in
+screen units (i.e. any of the forms acceptable to <B>Tk_GetPixels</B>);
+for text it is in characters.
+If this option isn't specified, the button's desired width is computed
+from the size of the image or bitmap or text being displayed in it.
+<P>
+</DL>
+<H3><A NAME="M38">DESCRIPTION</A></H3>
+The <B>radiobutton</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a radiobutton widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the radiobutton such as its colors, font,
+text, and initial relief.  The <B>radiobutton</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A radiobutton is a widget
+that displays a textual string, bitmap or image
+and a diamond called an <I>indicator</I>.
+If text is displayed, it must all be in a single font, but it
+can occupy multiple lines on the screen (if it contains newlines
+or if wrapping occurs because of the <B>wrapLength</B> option) and
+one of the characters may optionally be underlined using the
+<B>underline</B> option.
+A radiobutton has
+all of the behavior of a simple button: it can display itself in either
+of three different ways, according to the <B>state</B> option;
+it can be made to appear
+raised, sunken, or flat; it can be made to flash; and it invokes
+a STk procedure whenever mouse button 1 is clicked over the
+check button.
+<P>
+In addition, radiobuttons can be <I>selected</I>.
+If a radiobutton is selected, the indicator is normally
+drawn with a sunken relief and a special color, and
+a STk variable associated with the radiobutton is set to a particular
+value.
+If the radiobutton is not selected, the indicator is drawn with a
+raised relief and no special color.
+Typically, several radiobuttons share a single variable and the
+value of the variable indicates which radiobutton is to be selected.
+When a radiobutton is selected it sets the value of the variable to
+indicate that fact;  each radiobutton also monitors the value of
+the variable and automatically selects and deselects itself when the
+variable's value changes.
+By default the variable <B>*selected-button*</B>
+is used;  its contents give the name of the button that is
+selected, or the empty string if no button associated with that
+variable is selected.
+The name of the variable for a radiobutton,
+plus the variable to be stored into it, may be modified with options
+on the procedure line or in the option database.
+Configuration options may also be used to modify the way the
+indicator is displayed (or whether it is displayed at all).
+By default a radio
+button is configured to select itself on button clicks.
+
+<H3><A NAME="M39">WIDGET PROCEDURE</A></H3>
+The <B>radiobutton</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for radiobutton widgets:
+<P>
+<DL>
+<DT><A NAME="M40">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>radiobutton</B>
+procedure.
+<P>
+<DT><A NAME="M41">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>radiobutton</B>
+procedure.
+<P>
+<DT><A NAME="M42">(<I>widget-name '</I><B>deselect</B>)</A><DD>
+Deselects the radiobutton and sets the associated variable to an
+empty string.
+If this radiobutton was not currently selected, the procedure has
+no effect.
+<P>
+<DT><A NAME="M43">(<I>widget-name '</I><B>flash</B>)</A><DD>
+Flashes the radiobutton.  This is accomplished by redisplaying the radiobutton
+several times, alternating between active and normal colors.  At
+the end of the flash the radiobutton is left in the same normal/active
+state as when the procedure was invoked.
+This procedure is ignored if the radiobutton's state is <B>disabled</B>.
+<P>
+<DT><A NAME="M44">(<I>widget-name '</I><B>invoke</B>)</A><DD>
+Does just what would have happened if the user invoked the radiobutton
+with the mouse: selects the button and invokes
+its associated STk procedure, if there is one (return value is undifined)..
+This procedure is ignored if the radiobutton's state is <B>disabled</B>.
+<P>
+<DT><A NAME="M45">(<I>widget-name '</I><B>select</B>)</A><DD>
+Selects the radiobutton and sets the associated variable to the
+value corresponding to this widget.
+
+<P>
+</DL>
+<H3><A NAME="M46">BINDINGS</A></H3>
+Tk automatically creates class bindings for radiobuttons that give them
+the following default behavior:
+<OL>
+<LI>
+The radiobutton activates whenever the mouse passes over it and deactivates
+whenever the mouse leaves the radiobutton.
+<LI>
+When mouse button 1 is pressed over a radiobutton it is invoked (it
+becomes selected and the procedure associated with the button is
+invoked, if there is one).
+<LI>
+When a radiobutton has the input focus, the space key causes the radiobutton
+to be invoked.
+</OL>
+<P>
+If the radiobutton's state is <B>disabled</B> then none of the above
+actions occur:  the radiobutton is completely non-responsive.
+<P>
+The behavior of radiobuttons can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M47">SEE ALSO</A></H3>
+<B><A HREF="./button.n.html">button</A></B>, <B><A HREF="./checkbutton.n.html">checkbutton</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/raise.n.html b/Help/raise.n.html
new file mode 100644
index 0000000..334ccef
--- /dev/null
+++ b/Help/raise.n.html
@@ -0,0 +1,25 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - raise manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> raise</H2>
+<I>Change a window's position in the stacking order</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>raise </B><I>window</I>)<BR>
+(<B>raise </B><I>window </I><I>aboveThis</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+If the <I>aboveThis</I> argument is omitted then the procedure raises
+<I>window</I> so that it is above all of its siblings in the stacking
+order (it will not be obscured by any siblings and will obscure
+any siblings that overlap it).
+If <I>aboveThis</I> is specified then it must be the path name of
+a window that is either a sibling of <I>window</I> or the descendant
+of a sibling of <I>window</I>.
+In this case the <B>raise</B> procedure will insert
+<I>window</I> into the stacking order just above <I>aboveThis</I>
+(or the ancestor of <I>aboveThis</I> that is a sibling of <I>window</I>);
+this could end up either raising or lowering <I>window</I>.
+
+<H3><A NAME="M4">SEE ALSO</A></H3>
+<B><A HREF="./lower.n.html">lower</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/report-error.n.html b/Help/report-error.n.html
new file mode 100644
index 0000000..81caa1e
--- /dev/null
+++ b/Help/report-error.n.html
@@ -0,0 +1,37 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - report-error manual page</TITLE></HEAD>
+<BODY bgcolor = #c3ffc3>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> report-error</H2>
+<I>Command invoked to process errors</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>report-error </B><I>head message obj</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+<B>Report-error</B> is called by the interpreter when an error occurs.
+This procedure is written in Scheme and can be by an application which
+needs to handle redefined to handle errors. The <I>head</I> argument is
+a string which identify the kind of error. The <I>head</I> argument
+contains the error message and <I>obj</I> contains the object which 
+causes the error (or the empty list when there is no object to incriminate).
+<P>
+The STk library includes a default <B>report-error</B> procedure
+that posts a dialog box containing the error message and offers
+the user a chance to see a stack trace showing where the
+error occurred and its associated environment..
+<P>
+If an error occurs while is <B>report-error</B> execution, the
+interpreter detect that the procedure is buggy and it redirect further
+messages on the standard error port.
+<P>
+Hereafter is a simple non-graphical error reporter.
+<PRE>(define (report-error head message obj)
+  (let ((port (current-error-port)))
+    ;; Display message
+    (format port &quot;~A: ~A ~S\n\n&quot;  head message obj)
+    ;; Display stack
+    (let ((stack (%get-eval-stack))
+	  (env   (%get-environment-stack)))
+      (for-each (lambda (x y) (format port &quot;~A ~A\n&quot; x (uncode y)))
+		env 
+		stack))))</PRE>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/scale.n.html b/Help/scale.n.html
new file mode 100644
index 0000000..7c90e66
--- /dev/null
+++ b/Help/scale.n.html
@@ -0,0 +1,324 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - scale manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> scale</H2>
+<I>Create and manipulate scale widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>scale</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:orient">:orient</A></B> 
+<B><A HREF="options.n.html#M:relief">:relief</A></B>                                <B><A HREF="options.n.html#M:repeatdelay">:repeatdelay</A></B> 
+<B><A HREF="options.n.html#M:repeatinterval">:repeatinterval</A></B>                        <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:troughcolor">:troughcolor</A></B>                          
+</PRE>
+<H3><A NAME="M19">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>bigIncrement</B>
+<DT><I>Class</I>:           <B>BigIncrement</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M20">:bigincrement</A></B>
+<DT><I>STklos slot name</I>: <B>big-increment</B>
+<DD>Some interactions with the scale cause its value to change by
+``large'' increments;  this option specifies the size of the
+large increments.  If specified as 0, the large increments default
+to 1/10 the range of the scale.
+<P>
+<P>
+<DT><I>Name</I>:            <B>command</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M21">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk command to invoke whenever the scale's
+value is changed via a widget command.
+The procedure is called with a real number indicating the
+new value of the scale. Example:
+<P>
+</DL>
+<UL>
+<UL>
+(scale '.s :command (lambda (x) 
+                       (format #t &quot;New position is ~S\n&quot; x)))
+</UL>
+</UL>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>digits</B>
+<DT><I>Class</I>:           <B>Digits</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M22">:digits</A></B>
+<DT><I>STklos slot name</I>: <B>digits</B>
+<DD>An integer specifying how many significant digits should be retained
+when converting the value of the scale to a string.
+If the number is less than or equal to zero, then the scale picks
+the smallest value that guarantees that every possible slider
+position prints as a different string.
+<P>
+<P>
+<DT><I>Name</I>:            <B>from</B>
+<DT><I>Class</I>:           <B>From</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M23">:from</A></B>
+<DT><I>STklos slot name</I>: <B>from</B>
+<DD>A real value corresponding to the left or top end of the scale.
+<P>
+<P>
+<DT><I>Name</I>:            <B><A HREF="./label.n.html">label</A></B>
+<DT><I>Class</I>:           <B><A HREF="./label.n.html">Label</A></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M24">:label</A></B>
+<DT><I>STklos slot name</I>: <B><A HREF="./label.n.html">label</A></B>
+<DD>A string to display as a label for the scale.  For
+vertical scales the label is displayed just to the right of the
+top end of the scale.  For horizontal scales the label is displayed
+just above the left end of the scale.  If the option is specified
+as an empty string, no label is displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>length</B>
+<DT><I>Class</I>:           <B>Length</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M25">:length</A></B>
+<DT><I>STklos slot name</I>: <B>length</B>
+<DD>Specifies the desired long dimension of the scale in screen units
+(i.e. any of the forms acceptable to <B>Tk_GetPixels</B>).
+For vertical scales this is the scale's height;  for horizontal scales
+it is the scale's width.
+<P>
+<P>
+<DT><I>Name</I>:            <B>resolution</B>
+<DT><I>Class</I>:           <B>Resolution</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M26">:resolution</A></B>
+<DT><I>STklos slot name</I>: <B>resolution</B>
+<DD>A real value specifying the resolution for the scale.
+If this value is greater than zero then the scale's value will always be
+rounded to an even multiple of this value, as will tick marks and
+the endpoints of the scale.  If the value is less than zero then no
+rounding occurs.  Defaults to 1 (i.e., the value will be integral).
+<P>
+<P>
+<DT><I>Name</I>:            <B>showValue</B>
+<DT><I>Class</I>:           <B>ShowValue</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M27">:showvalue</A></B>
+<DT><I>STklos slot name</I>: <B>show-value</B>
+<DD>Specifies a boolean value indicating whether or not the current
+value of the scale is to be displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>sliderLength</B>
+<DT><I>Class</I>:           <B>SliderLength</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M28">:sliderlength</A></B>
+<DT><I>STklos slot name</I>: <B></B>
+<DD>Specifies the size of the slider, measured in screen units along the slider's
+long dimension.  The value may be specified in any of the forms acceptable
+to <B>Tk_GetPixels</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>sliderRelief</B>
+<DT><I>Class</I>:           <B>SliderRelief</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:sliderrelief</A></B>
+<DT><I>STklos slot name</I>: <B>slider-relief</B>
+<DD>Specifies the relief to use when drawing the slider, such as <B>raised</B>
+or <B>sunken</B>.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of three states for the scale:  <B>&quot;normal&quot;</B>,
+<B>&quot;active&quot;</B>, or <B>&quot;disabled&quot;</B>.
+If the scale is disabled then the value may not be changed and the scale
+won't activate.
+If the scale is active, the slider is displayed using the color
+specified by the <B>activeBackground</B> option.
+<P>
+<P>
+<DT><I>Name</I>:            <B>tickInterval</B>
+<DT><I>Class</I>:           <B>TickInterval</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:tickinterval</A></B>
+<DT><I>STklos slot name</I>: <B>tick-interval</B>
+<DD>Must be a real value.
+Determines the spacing between numerical
+tick marks displayed below or to the left of the slider.
+If 0, no tick marks will be displayed.
+<P>
+<P>
+<DT><I>Name</I>:            <B>to</B>
+<DT><I>Class</I>:           <B>To</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M32">:to</A></B>
+<DT><I>STklos slot name</I>: <B>to</B>
+<DD>Specifies a real value corresponding
+to the right or bottom end of the scale.
+This value may be either less than or greater than the <B>from</B> option.
+<P>
+<P>
+<DT><I>Name</I>:            <B>variable</B>
+<DT><I>Class</I>:           <B>Variable</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M33">:variable</A></B>
+<DT><I>STklos slot name</I>: <B>variable</B>
+<DD>Specifies the name of a global variable to link to the scale.  Whenever the
+value of the variable changes, the scale will update to reflect this
+value.
+Whenever the scale is manipulated interactively, the variable
+will be modified to reflect the scale's new value.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M34">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired narrow dimension of the trough in screen units
+(i.e. any of the forms acceptable to <B>Tk_GetPixels</B>).
+For vertical scales this is the trough's width;  for horizontal scales
+this is the trough's height.
+<P>
+</DL>
+<H3><A NAME="M35">DESCRIPTION</A></H3>
+The <B>scale</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a scale widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the scale such as its colors, orientation,
+and relief.  The <B>scale</B> procedure returns its
+<I>widget-name</I> argument.  At the time this procedure is invoked,
+there must not exist a window named <I>widget-name</I>, but
+<I>widget-name</I>'s parent must exist.
+<P>
+A scale is a widget that displays a rectangular <I>trough</I> and a
+small <I>slider</I>.  The trough corresponds to a range
+of real values (determined by the <B>from</B>, <B>to</B>, and
+<B>resolution</B> options),
+and the position of the slider selects a particular real value.
+The slider's position (and hence the scale's value) may be adjusted
+with the mouse or keyboard as described in the BINDINGS
+section below.  Whenever the scale's value is changed, a STk
+procedure is invoked (using the <B>command</B> option) to notify
+other interested widgets of the change.
+In addition, the value
+of the scale can be linked to a STk variable (using the <B>variable</B>
+option), so that changes in either are reflected in the other.
+<P>
+Three annotations may be displayed in a scale widget:  a label
+appearing at the top right of the widget (top left for horizontal
+scales), a number displayed just to the left of the slider
+(just above the slider for horizontal scales), and a collection
+of numerical tick marks just to the left of the current value
+(just below the trough for horizontal scales).  Each of these three
+annotations may be enabled or disabled using the
+configuration options.
+
+<H3><A NAME="M36">WIDGET PROCEDURE</A></H3>
+The <B>scale</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for scale widgets:
+<P>
+<DL>
+<DT><A NAME="M37">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>scale</B>
+procedure.
+<P>
+<DT><A NAME="M38">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+<I>Option</I> may have any of the values accepted by the <B>scale</B>
+procedure.
+<P>
+<DT><A NAME="M39">(<I>widget-name '</I><B>coords </B>)</A><DD>
+<DT><A NAME="M40">(<I>widget-name '</I><B>coords </B><I>value</I>)</A><DD>
+Returns a list whose elements are the x and y coordinates of
+the point along the centerline of the trough that corresponds
+to <I>value</I>.
+If <I>value</I> is omitted then the scale's current value is used.
+<P>
+<DT><A NAME="M41">(<I>widget-name '</I><B>get</B>)</A><DD>
+<DT><A NAME="M42">(<I>widget-name '</I><B>get</B> <I>x y</I>)</A><DD>
+If <I>x</I> and <I>y</I> are omitted, returns the current value
+of the scale.  If <I>x</I> and <I>y</I> are specified, they give
+pixel coordinates within the widget;  the procedure returns
+the scale value corresponding to the given pixel.
+Only one of <I>x</I> or <I>y</I> is used:  for horizontal scales
+<I>y</I> is ignored, and for vertical scales <I>x</I> is ignored.
+<P>
+<DT><A NAME="M43">(<I>widget-name '</I><B>identify</B> <I>x y</I>)</A><DD>
+Returns a string indicating what part of the scale lies under
+the coordinates given by <I>x</I> and <I>y</I>.
+A return value of <B>&quot;slider&quot;</B> means that the point is over
+the slider;  <B>&quot;trough1&quot;</B> means that the point is over the
+portion of the slider above  or to the left of the slider;
+and <B>&quot;trough2&quot;</B> means that the point is over the portion
+of the slider below or to the right of the slider.
+If the point isn't over one of these elements, an empty list
+is returned.
+<P>
+<DT><A NAME="M44">(<I>widget-name '</I><B>set</B> <I>value</I>)</A><DD>
+This procedure is invoked to change the current value of the scale,
+and hence the position at which the slider is displayed.  <I>Value</I>
+gives the new value for the scale.
+The procedure has no effect if the scale is disabled.
+
+<P>
+</DL>
+<H3><A NAME="M45">BINDINGS</A></H3>
+Tk automatically creates class bindings for scales that give them
+the following default behavior.
+Where the behavior is different for vertical and horizontal scales,
+the horizontal behavior is described in parentheses.
+<OL>
+<LI>
+If button 1 is pressed in the trough, the scale's value will
+be incremented or decremented by the value of the <B>resolution</B>
+option so that the slider moves in the direction of the cursor. 
+If the button is held down, the action auto-repeats.
+<LI>
+If button 1 is pressed over the slider, the slider can be dragged
+with the mouse.
+<LI>
+If button 1 is pressed in the trough with the Control key down,
+the slider moves all the way to the end of its range, in the
+direction towards the mouse cursor.
+<LI>
+If button 2 is pressed, the scale's value is set to the mouse
+position.  If the mouse is dragged with button 2 down, the scale's
+value changes with the drag.
+<LI>
+The Up and Left keys move the slider up (left) by the value
+of the <B>resolution</B> option.
+<LI>
+The Down and Right keys move the slider down (right) by the value
+of the <B>resolution</B> option.
+<LI>
+Control-Up and Control-Left move the slider up (left) by the
+value of the <B>bigIncrement</B> option.
+<LI>
+Control-Down and Control-Right move the slider down (right) by the
+value of the <B>bigIncrement</B> option.
+<LI>
+Home moves the slider to the top (left) end of its range.
+<LI>
+End moves the slider to the bottom (right) end of its range.
+</OL>
+<P>
+If the scale is disabled using the <B>state</B> option then
+none of the above bindings have any effect.
+<P>
+The behavior of scales can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/scrollbar.n.html b/Help/scrollbar.n.html
new file mode 100644
index 0000000..b74851c
--- /dev/null
+++ b/Help/scrollbar.n.html
@@ -0,0 +1,370 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - scrollbar manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> scrollbar</H2>
+<I>Create and manipulate scrollbar widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>scrollbar</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:activebackground">:activebackground</A></B>                      <B><A HREF="options.n.html#M:background">:background</A></B> 
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:jump">:jump</A></B> 
+<B><A HREF="options.n.html#M:orient">:orient</A></B>                                <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:repeatdelay">:repeatdelay</A></B>                           <B><A HREF="options.n.html#M:repeatinterval">:repeatinterval</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                             <B><A HREF="options.n.html#M:troughcolor">:troughcolor</A></B> 
+</PRE>
+<H3><A NAME="M18">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>activeRelief</B>
+<DT><I>Class</I>:           <B>ActiveRelief</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M19">:activerelief</A></B>
+<DT><I>STklos slot name</I>: <B>active-relief</B>
+<DD>Specifies the relief to use when displaying the element that is
+active, if any.
+Elements other than the active element are always displayed with
+a raised relief.
+<P>
+<P>
+<DT><I>Name</I>:            <B>command</B>
+<DT><I>Class</I>:           <B>Command</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M20">:command</A></B>
+<DT><I>STklos slot name</I>: <B>command</B>
+<DD>Specifies a STk procedure to invoke to change the view
+in the widget associated with the scrollbar.  When a user requests
+a view change by manipulating the scrollbar, the procedure is
+invoked.  The parameters given to this
+procedure are described later.
+<P>
+<P>
+<DT><I>Name</I>:            <B>elementBorderWidth</B>
+<DT><I>Class</I>:           <B>BorderWidth</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M21">:elementborderwidth</A></B>
+<DT><I>STklos slot name</I>: <B>element-border-width</B>
+<DD>Specifies the width of borders drawn around the internal elements
+of the scrollbar (the two arrows and the slider).  The value may
+have any of the forms acceptable to <B>Tk_GetPixels</B>.
+If this value is less than zero, the value of the <B>borderWidth</B>
+option is used in its place.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M22">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired narrow dimension of the scrollbar window,
+not including 3-D border, if any.  For vertical
+scrollbars this will be the width and for horizontal scrollbars
+this will be the height.
+The value may have any of the forms acceptable to <B>Tk_GetPixels</B>.
+<P>
+</DL>
+<H3><A NAME="M23">DESCRIPTION</A></H3>
+The <B>scrollbar</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a scrollbar widget.
+Additional options, described above, may be specified on the procedure
+line or in the option database to configure aspects of the scrollbar
+such as its colors, orientation, and relief.
+The <B>scrollbar</B> procedure returns its <I>widget-name</I> argument.
+At the time this procedure is invoked, there must not exist a window
+named <I>widget-name</I>, but <I>widget-name</I>'s parent must exist.
+<P>
+A scrollbar is a widget that displays two arrows, one at each end of
+the scrollbar, and a <I>slider</I> in the middle portion of the
+scrollbar.
+It provides information about what is visible in an <I>associated window</I>
+that displays an document of some sort (such as a file being edited or
+a drawing).
+The position and size of the slider indicate which portion of the
+document is visible in the associated window.  For example, if the
+slider in a vertical scrollbar covers the top third of the area
+between the two arrows, it means that the associated window displays
+the top third of its document.
+<P>
+Scrollbars can be used to adjust the view in the associated window
+by clicking or dragging with the mouse.  See the BINDINGS section
+below for details.
+
+<H3><A NAME="M24">ELEMENTS</A></H3>
+A scrollbar displays five elements, which are referred to in the
+widget procedures for the scrollbar:
+<P>
+<DL>
+<DT><A NAME="M25"><B>arrow1</B></A><DD>
+The top or left arrow in the scrollbar.
+<P>
+<DT><A NAME="M26"><B>trough1</B></A><DD>
+The region between the slider and <B>arrow1</B>.
+<P>
+<DT><A NAME="M27"><B>slider</B></A><DD>
+The rectangle that indicates what is visible in the associated widget.
+<P>
+<DT><A NAME="M28"><B>trough2</B></A><DD>
+The region between the slider and <B>arrow2</B>.
+<P>
+<DT><A NAME="M29"><B>arrow2</B></A><DD>
+The bottom or right arrow in the scrollbar.
+
+<P>
+</DL>
+<H3><A NAME="M30">WIDGET PROCEDURE</A></H3>
+The <B>scrollbar</B> procedure creates a new STk procedure whose
+name is <I>widget-name</I>.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for scrollbar widgets:
+<P>
+<DL>
+<DT><A NAME="M31">(<I>widget-name '</I><B>activate </B>)</A><DD>
+<DT><A NAME="M32">(<I>widget-name '</I><B>activate </B><I>element</I>)</A><DD>
+Marks the element indicated by <I>element</I> as active, which
+causes it to be displayed as specified by the <B>activeBackground</B>
+and <B>activeRelief</B> options.
+The only element values understood by this procedure are <B>arrow1</B>,
+<B>slider</B>, or <B>arrow2</B>.
+If any other value is specified then no element of the scrollbar
+will be active.
+If <I>element</I> is not specified, the procedure returns
+the name of the element that is currently active, or an empty list
+if no element is active.
+<P>
+<DT><A NAME="M33">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>scrollbar</B>
+procedure.
+<P>
+<DT><A NAME="M34">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>scrollbar</B>
+procedure.
+<P>
+<DT><A NAME="M35">(<I>widget-name '</I><B>delta </B><I>deltaX deltaY</I>)</A><DD>
+Returns a real number indicating the fractional change in
+the scrollbar setting that corresponds to a given change
+in slider position.  For example, if the scrollbar is horizontal,
+the result indicates how much the scrollbar setting must change
+to move the slider <I>deltaX</I> pixels to the right (<I>deltaY</I> is
+ignored in this case).
+If the scrollbar is vertical, the result indicates how much the
+scrollbar setting must change to move the slider <I>deltaY</I> pixels
+down.  The arguments and the result may be zero or negative.
+<P>
+<DT><A NAME="M36">(<I>widget-name '</I><B>fraction </B><I>x y</I>)</A><DD>
+Returns a real number between 0 and 1 indicating where the point
+given by <I>x</I> and <I>y</I> lies in the trough area of the scrollbar.
+The value 0 corresponds to the top or left of the trough, the
+value 1 corresponds to the bottom or right, 0.5 corresponds to
+the middle, and so on.
+<I>X</I> and <I>y</I> must be pixel coordinates relative to the scrollbar
+widget.
+If <I>x</I> and <I>y</I> refer to a point outside the trough, the closest
+point in the trough is used.
+<P>
+<DT><A NAME="M37">(<I>widget-name '</I><B>get</B>)</A><DD>
+Returns the scrollbar settings in the form of a list whose
+elements are the arguments to the most recent <B>set</B> widget procedure.
+<P>
+<DT><A NAME="M38">(<I>widget-name '</I><B>identify</B> <I>x y</I>)</A><DD>
+Returns the name of the element under the point given by <I>x</I> and
+<I>y</I> (such as <B>&quot;arrow1&quot;</B>), or  <B>#f</B>if the point does
+not lie in any element of the scrollbar.
+<I>X</I> and <I>y</I> must be pixel coordinates relative to the scrollbar
+widget.
+<P>
+<DT><A NAME="M39">(<I>widget-name '</I><B>set</B> <I>first last</I>)</A><DD>
+This procedure is invoked by the scrollbar's associated widget to
+tell the scrollbar about the current view in the widget.
+The procedure takes two arguments, each of which is a real fraction
+between 0 and 1.
+The fractions describe the range of the document that is visible in
+the associated widget.
+For example, if <I>first</I> is 0.2 and <I>last</I> is 0.4, it means
+that the first part of the document visible in the window is 20%
+of the way through the document, and the last visible part is 40%
+of the way through.
+
+<P>
+</DL>
+<H3><A NAME="M40">SCROLLING PROCEDURES</A></H3>
+When the user interacts with the scrollbar, for example by dragging
+the slider, the scrollbar notifies the associated widget that it
+must change its view.
+The scrollbar makes the notification by calling the STk procedure
+given to the scrollbar's \fB\:command\fR option. The parameters
+passed to the procedure may take any of the following forms:
+<P>
+<DL>
+<DT><A NAME="M41">'<B>moveto </B><I>fraction</I></A><DD>
+<I>Fraction</I> is a real number between 0 and 1.
+The widget should adjust its view so that the point given
+by <I>fraction</I> appears at the beginning of the widget.
+If <I>fraction</I> is 0 it refers to the beginning of the
+document.  1.0 refers to the end of the document, 0.333
+refers to a point one-third of the way through the document,
+and so on.
+<P>
+<DT><A NAME="M42">'<B>scroll </B><I>number '</I><B>unit</B></A><DD>
+The widget should adjust its view by <I>number</I> units.
+The units are defined in whatever way makes sense for the widget,
+such as characters or lines in a text widget.
+<I>Number</I> is either 1, which means one unit should scroll off
+the top or left of the window, or -1, which means that one unit
+should scroll off the bottom or right of the window.
+<P>
+<DT><A NAME="M43">'<B>scroll </B><I>number '</I><B>page</B></A><DD>
+The widget should adjust its view by <I>number</I> pages.
+It is up to the widget to define the meaning of a page;  typically
+it is slightly less than what fits in the window, so that there
+is a slight overlap between the old and new views.
+<I>Number</I> is either 1, which means the next page should
+become visible, or -1, which means that the previous page should
+become visible.
+
+<P>
+</DL>
+<H3><A NAME="M44">OLD PROCEDURE SYNTAX</A></H3>
+In versions of Tk before 4.0, the <B>set</B> and <B>get</B> widget
+procedures used a different form.
+This form is still supported for backward compatibility, but it
+is deprecated.
+In the old procedure syntax, the <B>set</B> widget procedure has the
+following form:
+<P>
+<DL>
+<DT><A NAME="M45">(<I>widget-name '</I><B>set</B> <I>totalUnits windowUnits firstUnit lastUnit</I>)</A><DD>
+In this form the arguments are all integers.
+<I>TotalUnits</I> gives the total size of the object being displayed in the
+associated widget.  The meaning of one unit depends on the associated
+widget;  for example, in a text editor widget units might
+correspond to lines of
+text.  <I>WindowUnits</I> indicates the total number of units that
+can fit in the associated window at one time.  <I>FirstUnit</I>
+and <I>lastUnit</I> give the indices of the first and last units
+currently visible in the associated window (zero corresponds to the
+first unit of the object).
+<P>
+</DL>
+<P>
+Under the old syntax the <B>get</B> widget procedure returns a list
+of four integers, consisting of the <I>totalUnits</I>, <I>windowUnits</I>,
+<I>firstUnit</I>, and <I>lastUnit</I> values from the last <B>set</B>
+widget procedure.
+<P>
+The procedures generated by scrollbars also have a different form
+when the old syntax is being used: a single parameter is passed to 
+the procedure given to the <B>:command</B> option. This integer 
+indicates what should appear at
+the top or left of the associated widget's window.
+It has the same meaning as the <I>firstUnit</I> and <I>lastUnit</I>
+arguments to the <B>set</B> widget procedure.
+<P>
+The most recent <B>set</B> widget procedure determines whether or not
+to use the old syntax.
+If it is given two real arguments then the new syntax will be
+used in the future, and if it is given four integer arguments then
+the old syntax will be used.
+
+<H3><A NAME="M46">EXAMPLE</A></H3>
+The following example shows a procedure which is compatible with 
+the old and new syntax for procedure scrolling discussed earlier:
+<PRE>.;; Create list box and scrollbar
+(listbox   '.l :height 5 
+	       :yscroll (lambda l (apply .s 'set l)))
+(scrollbar '.s :command (lambda l (apply .l 'yview l)))
+
+;; Set some elements in the listbox
+(.l 'insert 0 'one 'two 'three 'four 'five 'six 'seven 'eight)
+
+;; Pack elements
+(pack .l :side &quot;left&quot; :expand #t  :fill &quot;both&quot;)
+(pack .s :side &quot;right&quot; :expand #f :fill &quot;y&quot;)</PRE>
+Using apply and a variable length list of parameters for the scrollbar
+procedure is compatible with old and new scrollbar procedure syntax.
+
+<H3><A NAME="M47">BINDINGS</A></H3>
+Tk automatically creates class bindings for scrollbars that give them
+the following default behavior.
+If the behavior is different for vertical and horizontal scrollbars,
+the horizontal behavior is described in parentheses.
+
+<OL>
+<LI>
+Pressing button 1 over <B>arrow1</B> causes the view in the
+associated widget to shift up (left) by one unit so that the
+document appears to move down (right) one unit.
+If the button is held down, the action auto-repeats.
+<LI>
+Pressing button 1 over <B>trough1</B> causes the view in the
+associated widget to shift up (left) by one screenful so that the
+document appears to move down (right) one screenful.
+If the button is held down, the action auto-repeats.
+<LI>
+Pressing button 1 over the slider and dragging causes the view
+to drag with the slider.
+If the <B>jump</B> option is true, then the view doesn't drag along
+with the slider;  it changes only when the mouse button is released.
+<LI>
+Pressing button 1 over <B>trough2</B> causes the view in the
+associated widget to shift down (right) by one screenful so that the
+document appears to move up (left) one screenful.
+If the button is held down, the action auto-repeats.
+<LI>
+Pressing button 1 over <B>arrow2</B> causes the view in the
+associated widget to shift down (right) by one unit so that the
+document appears to move up (left) one unit.
+If the button is held down, the action auto-repeats.
+<LI>
+If button 2 is pressed over the trough or the slider, it sets
+the view to correspond to the mouse position;  dragging the
+mouse with button 2 down causes the view to drag with the mouse.
+If button 2 is pressed over one of the arrows, it causes the
+same behavior as pressing button 1.
+<LI>
+If button 1 is pressed with the Control key down, then if the
+mouse is over <B>arrow1</B> or <B>trough1</B> the view changes
+to the very top (left) of the document;  if the mouse is over
+<B>arrow2</B> or <B>trough2</B> the view changes
+to the very bottom (right) of the document;  if the mouse is
+anywhere else then the button press has no effect.
+<LI>
+In vertical scrollbars the Up and Down keys have the same behavior
+as mouse clicks over <B>arrow1</B> and <B>arrow2</B>, respectively.
+In horizontal scrollbars these keys have no effect.
+<LI>
+In vertical scrollbars Control-Up and Control-Down have the same
+behavior as mouse clicks over <B>trough1</B> and <B>trough2</B>, respectively.
+In horizontal scrollbars these keys have no effect.
+<LI>
+In horizontal scrollbars the Up and Down keys have the same behavior
+as mouse clicks over <B>arrow1</B> and <B>arrow2</B>, respectively.
+In vertical scrollbars these keys have no effect.
+<LI>
+In horizontal scrollbars Control-Up and Control-Down have the same
+behavior as mouse clicks over <B>trough1</B> and <B>trough2</B>, respectively.
+In vertical scrollbars these keys have no effect.
+<LI>
+The Prior and Next keys have the same behavior
+as mouse clicks over <B>trough1</B> and <B>trough2</B>, respectively.
+<LI>
+The Home key adjusts the view to the top (left edge) of the document.
+<LI>
+The End key adjusts the view to the bottom (right edge) of the document.
+
+</OL>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/selection.n.html b/Help/selection.n.html
new file mode 100644
index 0000000..7683959
--- /dev/null
+++ b/Help/selection.n.html
@@ -0,0 +1,125 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - selection manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> selection</H2>
+<I>Manipulate the X selection</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>selection </B><I>option</I> ?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure provides a STk interface to the X selection mechanism and
+implements the full selection functionality described in the
+X Inter-Client Communication Conventions Manual (ICCCM).
+<P>
+The first argument to <B>selection</B> determines the format of the
+rest of the arguments and the behavior of the procedure.  The following
+forms are currently supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M4">(<B>selection 'clear</B> ?<B>:displayof</B> <I>window</I>? ?<B>:selection</B> <I>selection</I>?)</A><DD>
+If <I>selection</I> exists anywhere on <I>window</I>'s display, clear it
+so that no window owns the selection anymore.  <I>Selection</I>
+specifies the X selection that should be cleared, and should be an
+atom name such as PRIMARY or CLIPBOARD; see the Inter-Client
+Communication Conventions Manual for complete details.
+<I>Selection</I> defaults to PRIMARY and <I>window</I> defaults to ``.''.
+Returns an empty list. 
+<P>
+<DT><A NAME="M5">(<B>selection 'get</B> ?<B>:displayof</B> <I>window</I>? ?<B>:selection</B> <I>selection</I>? ?<B>:type</B> <I>type</I>?)</A><DD>
+Retrieves the value of <I>selection</I> from <I>window</I>'s display and
+returns it as a result.  <I>Selection</I> defaults to PRIMARY and
+<I>window</I> defaults to ``*root*''. 
+<I>Type</I> specifies the form in which the selection is to be returned
+(the desired ``target'' for conversion, in ICCCM terminology), and
+should be an atom name such as STRING or FILE_NAME; see the
+Inter-Client Communication Conventions Manual for complete details.
+<I>Type</I> defaults to STRING.  The selection owner may choose to
+return the selection in any of several different representation
+formats, such as STRING, ATOM, INTEGER, etc. (this format is different
+than the selection type; see the ICCCM for all the confusing details).
+If the selection is returned in a non-string format, such as INTEGER
+or ATOM, the <B>selection</B> procedure converts it to string format as a
+collection of fields separated by spaces: atoms are converted to their
+textual names, and anything else is converted to hexadecimal integers.
+<P>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M6">(<B>selection 'handle</B> ?<B>:selection</B> <I>selection</I>? ?<B>:type</B> <I>type</I>? ?<B>:format</B> <I>format</I>? <I>window procedure</I>)</A><DD>
+Creates a handler for selection requests, such that <I>procedure</I> will
+be executed whenever <I>selection</I> is owned by <I>window</I> and
+someone attempts to retrieve it in the form given by <I>type</I>
+(e.g. <I>type</I> is specified in the <B>selection get</B> procedure).
+<I>Selection</I> defaults to PRIMARY, <I>type</I> defaults to STRING, and
+<I>format</I> defaults to STRING.  If <I>procedure</I> is an empty string
+then any existing handler for <I>window</I>, <I>type</I>, and
+<I>selection</I> is removed.
+<P>
+<UL>
+<P>
+When <I>selection</I> is requested, <I>window</I> is the selection owner,
+and <I>type</I> is the requested type, <I>procedure</I> will be applied
+as a STk procedure with a list of two numbers.
+The two additional numbers
+are <I>offset</I> and <I>maxBytes</I>:  <I>offset</I> specifies a starting
+character position in the selection and <I>maxBytes</I> gives the maximum
+number of bytes to retrieve.  The procedure should return a value consisting
+of at most <I>maxBytes</I> of the selection, starting at position
+<I>offset</I>.  For very large selections (larger than <I>maxBytes</I>)
+the selection will be retrieved using several invocations of <I>procedure</I>
+with increasing <I>offset</I> values.  If <I>procedure</I> returns a string
+whose length is less than <I>maxBytes</I>, the return value is assumed to
+include all of the remainder of the selection;  if the length of
+<I>procedure</I>'s result is equal to <I>maxBytes</I> then
+<I>procedure</I> will be invoked again, until it eventually
+returns a result shorter than <I>maxBytes</I>.  The value of <I>maxBytes</I>
+will always be relatively large (thousands of bytes).
+<P>
+If <I>procedure</I> returns an error then the selection retrieval is rejected
+just as if the selection didn't exist at all.
+<P>
+The <I>format</I> argument specifies the representation that should be
+used to transmit the selection to the requester (the second column of
+Table 2 of the ICCCM), and defaults to STRING.  If <I>format</I> is
+STRING, the selection is transmitted as 8-bit ASCII characters (i.e.
+just in the form returned by <I>procedure</I>).  If <I>format</I> is
+ATOM, then the return value from <I>procedure</I> is divided into fields
+separated by white space;  each field is converted to its atom value,
+and the 32-bit atom value is transmitted instead of the atom name.
+For any other <I>format</I>, the return value from <I>procedure</I> is
+divided into fields separated by white space and each field is
+converted to a 32-bit integer;  an array of integers is transmitted
+to the selection requester.
+<P>
+The <I>format</I> argument is needed only for compatibility with
+selection requesters that don't use Tk.  If Tk is being
+used to retrieve the selection then the value is converted back to
+a string at the requesting end, so <I>format</I> is
+irrelevant.
+</UL>
+</DL>
+<P>
+<P>
+<DL>
+<DT><A NAME="M7">(<B>selection 'own</B> ?<B>:displayof</B> <I>window</I>? ?<B>:selection</B> <I>selection</I>?)</A><DD>
+<DT><A NAME="M8">(<B>selection 'own</B> ?<B>:procedure</B> <I>procedure</I>? ?<B>:selection</B> <I>selection</I>? <I>window</I>)</A><DD>
+The first form of <B>selection own</B> returns the path name of the
+window in this application that owns <I>selection</I> on the display
+containing <I>window</I>, or <B>#f</B> if no window in this
+application owns the selection.  <I>Selection</I> defaults to &quot;PRIMARY&quot; and
+<I>window</I> defaults to ``*root*''.
+<P>
+<BR>
+The second form of <B>selection own</B> causes <I>window</I> to become
+the new owner of <I>selection</I> on <I>window</I>'s display, returning
+an empty list as result. The existing owner, if any, is notified
+that it has lost the selection.
+If <I>procedure</I> is specified, it is a STk script to execute when
+some other window claims ownership of the selection away from
+<I>window</I>. <I>Selection</I> defaults to &quot;PRIMARY&quot;.
+
+<P>
+</DL>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/send.n.html b/Help/send.n.html
new file mode 100644
index 0000000..a688e64
--- /dev/null
+++ b/Help/send.n.html
@@ -0,0 +1,83 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - send manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> send</H2>
+<I>Execute a command in a different application</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>send ?</B><I>options</I>? <I>app cmd </I>?<I>arg arg ...</I>?)<BR>
+(<B>inhibit-send</B>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure arranges for <I>cmd</I> (and <I>arg</I>s) to be executed in the
+application named by <I>app</I>. It returns the result (converted to a string)
+that procedure execution.
+<I>App</I> may be the name of any application whose main window is
+on the display containing the sender's main window;  it need not
+be within the same process.
+If no <I>arg</I> arguments are present, then the procedure to be executed is
+contained entirely within the <I>cmd</I> argument.  If one or
+more <I>arg</I>s are present, they are concatenated to form the
+procedure to be executed, just as for the <B>eval</B> procedure.
+<P>
+If the initial arguments of the procedure begin with ``-''
+they are treated as options.  The following options are
+currently defined:
+<P>
+<DL>
+<DT><A NAME="M4"><B>:async</B></A><DD>
+Requests asynchronous invocation.  In this case the <B>send</B>
+procedure will complete immediately without waiting for <I>cmd</I>
+to complete in the target application;  no result will be available
+and errors in the sent procedure will be ignored.
+If the target application is in the same process as the sending
+application then the \fB\:async\fR option is ignored.
+<P>
+<DT><A NAME="M5"><B>:displayof</B> <I>widget-name</I></A><DD>
+Specifies that the target application's main window is on the display
+of the window given by <I>widget-name</I>, instead of the display containing
+the application's main window.
+<P>
+<DT><A NAME="M6"><B>:-</B></A><DD>
+Serves no purpose except to terminate the list of options.  This
+option is needed only if <I>app</I> could contain a leading ``-''
+character.
+
+<P>
+</DL>
+<H3><A NAME="M7">APPLICATION NAMES</A></H3>
+The name of an application is set initially from the name of the
+program or script that created the application.
+You can query and change the name of an application with the
+<B><A HREF=.././tk.n.html>tk appname</A></B> procedure.
+
+<H3><A NAME="M8">DISABLING SENDS</A></H3>
+The <B>send</B> procedure can be removed from an application 
+by calling the <B>inhibit-send</B><I> procedure.
+If the </I><B>send</B> procedure is removed then the application
+will not respond to incoming send requests anymore,  nor will it
+be able to issue outgoing requests.
+Communication can be reenabled by invoking the <B><A HREF=.././tk.n.html>tk appname</A></B>
+procedure.
+
+<H3><A NAME="M9">SECURITY</A></H3>
+The <B>send</B> procedure is potentially a serious security loophole,
+since any application that can connect to your X server can send
+scripts to your applications.
+These incoming scripts can use STk to read and
+write your files and invoke subprocesses under your name.
+Host-based access control such as that provided by <B>xhost</B>
+is particularly insecure, since it allows anyone with an account
+on particular hosts to connect to your server, and if disabled it
+allows anyone anywhere to connect to your server.
+In order to provide at least a small amount of
+security, Tk checks the access control being used by the server
+and rejects incoming sends unless (a) <B>xhost</B>-style access control
+is enabled (i.e. only certain hosts can establish connections) and (b) the
+list of enabled hosts is empty.
+This means that applications cannot connect to your server unless
+they use some other form of authorization
+such as that provide by <B>xauth</B>.
+
+<H3><A NAME="M10">SEE ALSO</A></H3>
+<B><A HREF="./tk.n.html">tk</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/stk.1.html b/Help/stk.1.html
new file mode 100644
index 0000000..47305d8
--- /dev/null
+++ b/Help/stk.1.html
@@ -0,0 +1,180 @@
+<HTML><HEAD><TITLE>4.0 - STk manual page</TITLE></HEAD>
+<BODY bgcolor = white>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageWhite.gif"> stk, snow</H2>
+<I>A Scheme interpreter using the Tk toolkit</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+<B>stk</B>  [<I>options</I>] [<I>arg arg ...</I>]<BR>
+<B>snow</B> [<I>options</I>] [<I>arg arg ...</I>]<BR>
+<H3><A NAME="M3">OPTIONS</A></H3>
+<B>stk</B> interpreter accepts several command-line options which  may
+be abbreviated, as long as the abbreviation
+is unambiguous (e.g. <B>-h</B>, <B>-he</B>, <B>-hel</B> are three possibe 
+abbreviations for the <B>-help</B> option).
+
+<P>
+<DL>
+<DT><A NAME="M4"><B>-display </B><I>display</I></A><DD>
+Display (and screen) on which to display window.
+<P>
+<DT><A NAME="M5"><B>-file </B><I>fileName</I></A><DD>
+Read commands from <I>fileName</I> rather than standard input.  The
+last element in <I>fileName</I> will be used as the title for the
+application and name of its interpreter for <B><A HREF="./send.n.html">send</A></B>
+commands (unless overridden by the <B>-name</B> option\fR).
+<P>
+<DT><A NAME="M6"><B>-geometry </B><I>geometry</I></A><DD>
+Initial geometry to use for window.
+<P>
+<DT><A NAME="M7"><B>-name </B><I>name</I></A><DD>
+Use <I>name</I> as the title to be displayed in the window, and
+as the name of the interpreter for <B><A HREF="./send.n.html">send</A></B> commands.
+<P>
+<DT><A NAME="M8"><B>-new-colormap</B></A><DD>
+Specifies that the main window should have a new private colormap instead of
+using the default colormap for the screen.
+<P>
+<DT><A NAME="M9"><B>-sync</B></A><DD>
+Execute all X server commands synchronously, so that errors
+are reported immediately.  This will result in much slower
+execution, but it is useful for debugging.
+<P>
+<DT><A NAME="M10"><B>-visual </B><I>visual</I></A><DD>
+Specifies the visual to use for the window.<I>Visual</I> may be one of the following:
+<I>best</I>, <I>directcolor</I>, <I>grayscale</I>, <I>greyscale</I>, 
+<I>pseudocolor</I>, <I>staticcolor</I>, <I>staticgray</I>, 
+<I>staticgrey</I>, <I>truecolor</I>, or <I>default</I>
+<P>
+<DT><A NAME="M11"><B>-no-tk</B></A><DD>
+Don't initialize the Tk toolkit
+<P>
+<DT><A NAME="M12"><B>-load </B><I>fileName</I></A><DD>
+Evaluate expressions contained in <I>fileName</I> before reading 
+expressions from standard input.
+<P>
+<DT><A NAME="M13"><B>-image </B><I>fileName</I></A><DD>
+Restore the state saved in <I>fileName</I> by the <I>dump</I> primitive
+(Note: For now, <I>dump</I> works only on SunOS 4.1.x, Linux 1.x (a.out format) 
+and FreeBSD).
+<P>
+<DT><A NAME="M14"><B>-cells </B><I>number</I></A><DD>
+Set the default size for the heap to <I>number</I> cells. The given number is
+also the amount of cells used when extending the heap. Default value is 20000.
+<P>
+<DT><A NAME="M15"><B>-interactive</B></A><DD>
+Tell the interpreter that it is used interactively (even if it doesn't
+think so).  
+<P>
+<DT><A NAME="M16"><B>-help</B></A><DD>
+Print a summary of the command-line options and exit.
+<P>
+<DT><A NAME="M17"><B>--</B></A><DD>
+Pass all remaining arguments through to the script's <B>argv</B>
+variable without interpreting them.
+This provides a mechanism for passing arguments such as <B>-name</B>
+to a script instead of having <B>wish</B> interpret them.
+<P>
+</DL>
+<H3><A NAME="M18">DESCRIPTION</A></H3>
+<B>Stk</B> is a Scheme R4RS interpreter which provide a simple access to the
+X11 Tk toolkit. If the <B>-no-tk</B> option is provided to the interpreter,
+the Tk library is not initialized and no main window is created.  If
+<B>stk</B> is invoked with no <B>-f</B> option then it reads Scheme
+expressions interactively from standard input.  It will continue processing
+commands until all windows have been deleted or until end-of-file is
+reached on standard input.
+
+<P>
+<B>Snow</B> is a <I>light</I> version of the <B>stk</B> interpreter which
+does not provide support for the Tk toolkit. This interpreter does not
+recognize the options <B>-display</B>, <B>-geometry</B>, <B>-sync</B> 
+<B>new-colormap</B>, <B>visual</B> and <B>-no-tk</B> which are meaningless 
+without Tk. This interpreter is called, rather than the standard one, 
+when the shell DISPLAY variable is not initialized.
+
+<P>
+If the <B>-file</B> option is provided to Tk, then <B>stk</B> reads Scheme
+forms from the file named in the <B>-file</B> option.  These
+forms will normally create an interactive interface consisting
+of one or more widgets.  When the end of the command file is
+reached, <B>stk</B> will continue to respond to X events until
+all windows have been deleted.
+
+<P>
+The <B>-interactive</B> option forces the interpreter in interactive
+mode. In this mode, standard output and standard error are unbuffered. 
+Use this option when you launch <B>stk</B> from <B>emacs</B>.
+
+
+<H3><A NAME="M19">VARIABLES</A></H3>
+Following Scheme variables are set when <B>Stk</B> starts:
+<P>
+<DL>
+<DT><A NAME="M20"><B>*argc*</B></A><DD>
+Contains a count of the number of <I>arg</I> arguments (0 if none),
+not including the options described above.
+<P>
+<DT><A NAME="M21"><B>*argv*</B></A><DD>
+Contains a Scheme list whose elements are the <I>arg</I> arguments (not
+including the options described above), in order, or an empty list
+if there are no <I>arg</I> arguments.
+<P>
+<DT><A NAME="M22"><B>*program-name*</B></A><DD>
+Contains <I>fileName</I> if it was specified.
+Otherwise, contains the name by which <B>stk</B> was invoked.
+
+
+<P>
+</DL>
+<H3><A NAME="M23">SCRIPT FILES</A></H3>
+If you create a STk script in a file whose first line is
+<PRE><B>#!/usr/local/bin/stk -f</B></PRE>
+then you can invoke the script file directly from your shell if
+you mark it as executable.
+This assumes that <B>stk</B> has been installed in the default
+location in /usr/local/bin;  if it's installed somewhere else
+then you'll have to modify the above line to match.
+
+<H3><A NAME="M24">ENVIRONMENT VARIABLES</A></H3>
+<B>stk</B> uses the following shell variables:
+<P>
+<DL>
+<DT><A NAME="M25"><I>STK_LIBRARY</I></A><DD>
+This variable indicates where the library files are located. This variable
+allows to overload the default value of the Scheme variable <I>*stk-library*</I> 
+which is automatically calculated by the interpreter.(i.e. <I>stk</I> or <I>snow</I>).
+<P>
+<DT><A NAME="M26"><I>STK_LOAD_PATH</I></A><DD>
+This variable serves to initialize the <I>*load-path*</I> Scheme variable. This
+variable is a list of paths to try when in a load command. 
+<P>
+<DT><A NAME="M27"><I>STK_HELP_PATH</I></A><DD>
+This variable serves to initialize the <I>*help-path*</I> Scheme variable. It 
+must contain a list of documentation directories. This variable is used by the help 
+procedure.
+
+
+<P>
+</DL>
+<H3><A NAME="M28">FILES</A></H3>
+<DL>
+<DT><A NAME="M29"><I>./init.stk</I></A><DD>
+<DT><A NAME="M30"><I>$STK_LIBRARY/STk/init.stk</I></A><DD>
+When <B>stk</B> starts running, it tries to load the file <I>init.stk</I>
+in the current directory. If this file is not present, it tries to load 
+this file in the <B>STk_LIBRARY</B> directory (the value of <B>STk_LIBRARY</B>
+is automatically computed to be in a sibling directory of the interpreter 
+executable.
+
+<P>
+<DT><A NAME="M31"><I>~/.stkrc</I></A><DD>
+Standard <I>init.stk</I> file tries to load the file <I>~/.stkrc</I>. This file 
+can be used to store function definitions or variables settings that you want
+to be executed at each interpretater invocation.
+
+<P>
+</DL>
+<H3><A NAME="M32">SEE ALSO</A></H3>
+<B>wish(1)</B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookWhite.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/text.n.html b/Help/text.n.html
new file mode 100644
index 0000000..12cc0a8
--- /dev/null
+++ b/Help/text.n.html
@@ -0,0 +1,1544 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - text manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> text</H2>
+<I>Create and manipulate text widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>text</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:background">:background</A></B>                            <B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B> 
+<B><A HREF="options.n.html#M:cursor">:cursor</A></B>                                <B><A HREF="options.n.html#M:exportselection">:exportselection</A></B> 
+<B><A HREF="options.n.html#M:font">:font</A></B>                                  <B><A HREF="options.n.html#M:foreground">:foreground</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:insertbackground">:insertbackground</A></B> 
+<B><A HREF="options.n.html#M:insertborderwidth">:insertborderwidth</A></B>                     <B><A HREF="options.n.html#M:insertofftime">:insertofftime</A></B> 
+<B><A HREF="options.n.html#M:insertontime">:insertontime</A></B>                          <B><A HREF="options.n.html#M:insertwidth">:insertwidth</A></B> 
+<B><A HREF="options.n.html#M:padx">:padx</A></B>                                  <B><A HREF="options.n.html#M:pady">:pady</A></B> 
+<B><A HREF="options.n.html#M:relief">:relief</A></B>                                <B><A HREF="options.n.html#M:selectbackground">:selectbackground</A></B> 
+<B><A HREF="options.n.html#M:selectborderwidth">:selectborderwidth</A></B>                     <B><A HREF="options.n.html#M:selectforeground">:selectforeground</A></B> 
+<B><A HREF="options.n.html#M:setgrid">:setgrid</A></B>                               <B><A HREF="options.n.html#M:takefocus">:takefocus</A></B> 
+<B><A HREF="options.n.html#M:xscrollcommand">:xscrollcommand</A></B>                        <B><A HREF="options.n.html#M:yscrollcommand">:yscrollcommand</A></B> 
+</PRE>
+<H3><A NAME="M28">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M29">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies the desired height for the window, in units of characters
+in the font given by the <B>:font</B> option.
+Must be at least one.
+<P>
+<P>
+<DT><I>Name</I>:            <B>spacing1</B>
+<DT><I>Class</I>:           <B>Spacing1</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M30">:spacing1</A></B>
+<DT><I>STklos slot name</I>: <B>spacing1</B>
+<DD>Requests additional space above each text line in the widget,
+using any of the standard forms for screen distances.
+If a line wraps, this option only applies to the first line
+on the display.
+This option may be overriden with <B>:spacing1</B> options in
+tags.
+<P>
+<P>
+<DT><I>Name</I>:            <B>spacing2</B>
+<DT><I>Class</I>:           <B>Spacing2</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M31">:spacing2</A></B>
+<DT><I>STklos slot name</I>: <B>spacing2</B>
+<DD>For lines that wrap (so that they cover more than one line on the
+display) this option specifies additional space to provide between
+the display lines that represent a single line of text.
+The value may have any of the standard forms for screen distances.
+This option may be overriden with <B>:spacing2</B> options in
+tags.
+<P>
+<P>
+<DT><I>Name</I>:            <B>spacing3</B>
+<DT><I>Class</I>:           <B>Spacing3</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M32">:spacing3</A></B>
+<DT><I>STklos slot name</I>: <B>spacing3</B>
+<DD>Requests additional space below each text line in the widget,
+using any of the standard forms for screen distances.
+If a line wraps, this option only applies to the last line
+on the display.
+This option may be overriden with <B>:spacing3</B> options in
+tags.
+<P>
+<P>
+<DT><I>Name</I>:            <B>state</B>
+<DT><I>Class</I>:           <B>State</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M33">:state</A></B>
+<DT><I>STklos slot name</I>: <B>state</B>
+<DD>Specifies one of two states for the text:  <B>normal</B> or <B>disabled</B>.
+If the text is disabled then characters may not be inserted or deleted
+and no insertion cursor will be displayed, even if the input focus is
+in the widget.
+<P>
+<P>
+<DT><I>Name</I>:            <B>tabs</B>
+<DT><I>Class</I>:           <B>Tabs</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M34">:tabs</A></B>
+<DT><I>STklos slot name</I>: <B>tabs</B>
+<DD>Specifies a set of tab stops for the window.  The option's value consists
+of a list of screen distances giving the positions of the tab stops.  Each
+position may optionally be followed in the next list element
+by one of the keywords <B>left</B>, <B>right</B>, <B>center</B>,
+or <B>numeric</B>, which specifies how to justify
+text relative to the tab stop.  <B>Left</B> is the default; it causes
+the text following the tab character to be positioned with its left edge
+at the tab position.  <B>Right</B> means that the right edge of the text
+following the tab character is positioned at the tab position, and
+<B>center</B> means that the text is centered at the tab position.
+<B>Numeric</B> means that the decimal point in the text is positioned
+at the tab position;  if there is no decimal point then the least
+significant digit of the number is positioned just to the left of the
+tab position;  if there is no number in the text then the text is
+right-justified at the tab position.
+For example, <B>:tabs `(2c left 4c 6c center)</B> creates three
+tab stops at two-centimeter intervals;  the first two use left
+justification and the third uses center justification.
+If the list of tab stops does not have enough elements to cover all
+of the tabs in a text line, then Tk extrapolates new tab stops using
+the spacing and alignment from the last tab stop in the list.
+The value of the <B>tabs</B> option may be overridden by <B>:tabs</B>
+options in tags.
+If no <B>:tabs</B> option is specified, or if it is specified as
+an empty list, then Tk uses default tabs spaced every eight
+(average size) characters.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M35">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired width for the window in units of characters
+in the font given by the <B>:font</B> option.
+If the font doesn't have a uniform width then the width of the
+character ``0'' is used in translating from character units to
+screen units.
+<P>
+<P>
+<DT><I>Name</I>:            <B>wrap</B>
+<DT><I>Class</I>:           <B>Wrap</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M36">:wrap</A></B>
+<DT><I>STklos slot name</I>: <B>wrap</B>
+<DD>Specifies how to handle lines in the text that are too long to be
+displayed in a single line of the text's window.
+The value must be <B>none</B> or <B>char</B> or <B>word</B>.
+A wrap mode of <B>none</B> means that each line of text appears as
+exactly one line on the screen;  extra characters that don't fit
+on the screen are not displayed.
+In the other modes each line of text will be broken up into several
+screen lines if necessary to keep all the characters visible.
+In <B>char</B> mode a screen line break may occur after any character;
+in <B>word</B> mode a line break will only be made at word boundaries.
+<P>
+</DL>
+<H3><A NAME="M37">DESCRIPTION</A></H3>
+The <B>text</B> procedure creates a new window (given by the
+<I>widget-name</I> argument) and makes it into a text widget.
+Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the text such as its default background color
+and relief.  The <B>text</B> procedure returns the
+path name of the new window.
+<P>
+A text widget displays one or more lines of text and allows that
+text to be edited.
+Text widgets support three different kinds of annotations on the
+text, called tags, marks, and embedded windows.
+Tags allow different portions of the text
+to be displayed with different fonts and colors.
+In addition, STk procedures can be associated with tags so
+that scripts are invoked when particular actions such as keystrokes
+and mouse button presses occur in particular ranges of the text.
+See TAGS below for more details.
+<P>
+The second form of annotation consists of marks, which are floating
+markers in the text.
+Marks are used to keep track of various interesting positions in the
+text as it is edited.
+See MARKS below for more details.
+<P>
+The third form of annotation allows arbitrary windows to be
+embedded in a text widget.
+See EMBEDDED WINDOWS below for more details.
+
+<H3><A NAME="M38">INDICES</A></H3>
+Many of the widget procedures for texts take one or more indices
+as arguments.
+An index is a string used to indicate a particular place within
+a text, such as a place to insert characters or one endpoint of a
+range of characters to delete.
+Indices have the syntax
+<PRE><I>base modifier modifier modifier ...</I></PRE>
+Where <I>base</I> gives a starting point and the <I>modifier</I>s
+adjust the index from the starting point (e.g. move forward or
+backward one character).  Every index must contain a <I>base</I>,
+but the <I>modifier</I>s are optional.
+<P>
+The <I>base</I> for an index must have one of the following forms:
+<P>
+<DL>
+<DT><A NAME="M39"><I>line</I><B>.</B><I>char</I></A><DD>
+<DT><A NAME="M40">(<I>line</I><B> . </B><I>char</I>)</A><DD>
+Indicates <I>char</I>'th character on line <I>line</I>.
+Lines are numbered from 1 for consistency with other UNIX programs
+that use this numbering scheme.
+Within a line, characters are numbered from 0.
+<P>
+<DT><A NAME="M41"><B>@</B><I>x</I><B>,</B><I>y</I></A><DD>
+Indicates the character that covers the pixel whose x and y coordinates
+within the text's window are <I>x</I> and <I>y</I>.
+<P>
+<DT><A NAME="M42"><B>end</B></A><DD>
+Indicates the end of the text (the character just after the last
+newline).
+<P>
+<DT><A NAME="M43"><I>mark</I></A><DD>
+Indicates the character just after the mark whose name is <I>mark</I>.
+<P>
+<DT><A NAME="M44"><I>tag</I><B>.first</B></A><DD>
+Indicates the first character in the text that has been tagged with
+<I>tag</I>.
+This form generates an error if no characters are currently tagged
+with <I>tag</I>.
+<P>
+<DT><A NAME="M45"><I>tag</I><B>.last</B></A><DD>
+Indicates the character just after the last one in the text that has
+been tagged with <I>tag</I>.
+This form generates an error if no characters are currently tagged
+with <I>tag</I>.
+<P>
+<DT><A NAME="M46"><I>widget-name</I></A><DD>
+Indicates the position of the embedded window whose name is
+<I>widget-name</I>.
+This form generates an error if there is no embedded window
+by the given name.
+<P>
+</DL>
+<P>
+If modifiers follow the base index, each one of them must have one
+of the forms listed below.  Keywords such as <B>chars</B> and <B>wordend</B>
+may be abbreviated as long as the abbreviation is unambiguous.
+<P>
+<DL>
+<DT><A NAME="M47"><B>+ </B><I>count</I><B> chars</B></A><DD>
+Adjust the index forward by <I>count</I> characters, moving to later
+lines in the text if necessary.  If there are fewer than <I>count</I>
+characters in the text after the current index, then set the index
+to the last character in the text.
+Spaces on either side of <I>count</I> are optional.
+<P>
+<DT><A NAME="M48"><B>: </B><I>count</I><B> chars</B></A><DD>
+Adjust the index backward by <I>count</I> characters, moving to earlier
+lines in the text if necessary.  If there are fewer than <I>count</I>
+characters in the text before the current index, then set the index
+to the first character in the text.
+Spaces on either side of <I>count</I> are optional.
+<P>
+<DT><A NAME="M49"><B>+ </B><I>count</I><B> lines</B></A><DD>
+Adjust the index forward by <I>count</I> lines, retaining the same
+character position within the line.  If there are fewer than <I>count</I>
+lines after the line containing the current index, then set the index
+to refer to the same character position on the last line of the text.
+Then, if the line is not long enough to contain a character at the indicated
+character position, adjust the character position to refer to the last
+character of the line (the newline).
+Spaces on either side of <I>count</I> are optional.
+<P>
+<DT><A NAME="M50"><B>- </B><I>count</I><B> lines</B></A><DD>
+Adjust the index backward by <I>count</I> lines, retaining the same
+character position within the line.  If there are fewer than <I>count</I>
+lines before the line containing the current index, then set the index
+to refer to the same character position on the first line of the text.
+Then, if the line is not long enough to contain a character at the indicated
+character position, adjust the character position to refer to the last
+character of the line (the newline).
+Spaces on either side of <I>count</I> are optional.
+<P>
+<DT><A NAME="M51"><B>linestart</B></A><DD>
+Adjust the index to refer to the first character on the line.
+<P>
+<DT><A NAME="M52"><B>lineend</B></A><DD>
+Adjust the index to refer to the last character on the line (the newline).
+<P>
+<DT><A NAME="M53"><B>wordstart</B></A><DD>
+Adjust the index to refer to the first character of the word containing
+the current index.  A word consists of any number of adjacent characters
+that are letters, digits, or underscores, or a single character that
+is not one of these.
+<P>
+<DT><A NAME="M54"><B>wordend</B></A><DD>
+Adjust the index to refer to the character just after the last one of the
+word containing the current index.  If the current index refers to the last
+character of the text then it is not modified.
+<P>
+</DL>
+<P>
+If more than one modifier is present then they are applied in
+left-to-right order.  For example, the index ``<B>end - 1 chars</B>''
+refers to the next-to-last character in the text and
+``<B>insert wordstart - 1 c</B>'' refers to the character just before
+the first one in the word containing the insertion cursor.
+<H3><A NAME="M55">TAGS</A></H3>
+The first form of annotation in text widgets is a tag.
+A tag is a textual string that is associated with some of the characters
+in a text.
+Tags may contain arbitrary characters, but it is probably best to
+avoid using the the characters `` '' (space), <B>+</B>, or <B>:</B>:
+these characters have special meaning in indices, so tags containing
+them can't be used as indices.
+There may be any number of tags associated with characters in a
+text.
+Each tag may refer to a single character, a range of characters, or
+several ranges of characters.
+An individual character may have any number of tags associated with it.
+<P>
+A priority order is defined among tags, and this order is used in
+implementing some of the tag-related functions described below.
+When a tag is defined (by associating it with characters or setting
+its display options or binding procedures to it), it is given
+a priority higher than any existing tag.
+The priority order of tags may be redefined using the
+``<I>widget-name </I><B>'tag 'raise</B>'' and ``<I>widget-name </I><B>'tag 'lower</B>''
+widget procedures.
+<P>
+Tags serve three purposes in text widgets.
+First, they control the way information is displayed on the screen.
+By default, characters are displayed as determined by the
+<B>background</B>, <B>font</B>, and <B>foreground</B> options for the
+text widget.
+However, display options may be associated with individual tags
+using the ``<I>widget-name </I><B>tag configure</B>'' widget procedure.
+If a character has been tagged, then the display options associated
+with the tag override the default display style.
+The following options are currently supported for tags:
+<P>
+<DL>
+<DT><A NAME="M56"><B>:background </B><I>color</I></A><DD>
+<I>Color</I> specifies the background color to use for characters
+associated with the tag.
+It may have any of the forms accepted by <B>Tk_GetColor</B>.
+<P>
+<DT><A NAME="M57"><B>:bgstipple </B><I>bitmap</I></A><DD>
+<I>Bitmap</I> specifies a bitmap that is used as a stipple pattern
+for the background.
+It may have any of the forms accepted by <B>Tk_GetBitmap</B>.
+If <I>bitmap</I> hasn't been specified, or if it is specified
+as an empty string, then a solid fill will be used for the
+background.
+<P>
+<DT><A NAME="M58"><B>:borderwidth </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies the width of a 3-D border to draw around
+the background.
+It may have any of the forms accepted by <B>Tk_GetPixels</B>.
+This option is used in conjunction with the <B>:relief</B>
+option to give a 3-D appearance to the background for characters;
+it is ignored unless the <B>:background</B> option
+has been set for the tag.
+<P>
+<DT><A NAME="M59"><B>:fgstipple </B><I>bitmap</I></A><DD>
+<I>Bitmap</I> specifies a bitmap that is used as a stipple pattern
+when drawing text and other foreground information such as
+underlines.
+It may have any of the forms accepted by <B>Tk_GetBitmap</B>.
+If <I>bitmap</I> hasn't been specified, or if it is specified
+as an empty string, then a solid fill will be used.
+<P>
+<DT><A NAME="M60"><B>:font </B><I>fontName</I></A><DD>
+<I>FontName</I> is the name of a font to use for drawing characters.
+It may have any of the forms accepted by <B>Tk_GetFontStruct</B>.
+<P>
+<DT><A NAME="M61"><B>:foreground </B><I>color</I></A><DD>
+<I>Color</I> specifies the color to use when drawing text and other
+foreground information such as underlines.
+It may have any of the forms accepted by <B>Tk_GetColor</B>.
+<P>
+<DT><A NAME="M62"><B>:justify </B><I>justify</I></A><DD>
+If the first character of a display line has a tag for which this
+option has been specified, then <I>justify</I> determines how to
+justify the line.
+It must be one of <B>left</B>, <B>right</B>, or <B>center</B>.
+If a line wraps, then the justification for each line on the
+display is determined by the first character of that display line.
+<P>
+<DT><A NAME="M63"><B>:lmargin1 </B><I>pixels</I></A><DD>
+If the first character of a text line has a tag for which this
+option has been specified, then <I>pixels</I> specifies how
+much the line should be indented from the left edge of the
+window.
+<I>Pixels</I> may have any of the standard forms for screen
+distances.
+If a line of text wraps, this option only applies to the
+first line on the display;  the <B>:lmargin2</B> option controls
+the indentation for subsequent lines.
+<P>
+<DT><A NAME="M64"><B>:lmargin2 </B><I>pixels</I></A><DD>
+If the first character of a display line has a tag for which this
+option has been specified, and if the display line is not the
+first for its text line (i.e., the text line has wrapped), then
+<I>pixels</I> specifies how much the line should be indented from
+the left edge of the window.
+<I>Pixels</I> may have any of the standard forms for screen
+distances.
+This option is only used when wrapping is enabled, and it only
+applies to the second and later display lines for a text line.
+<P>
+<DT><A NAME="M65"><B>:offset </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies an amount by which the text's baseline
+should be offset vertically from the baseline of the overall
+line, in pixels.
+For example, a positive offset can be used for superscripts
+and a negative offset can be used for subscripts.
+<I>Pixels</I> may have any of the standard forms for screen
+distances.
+<P>
+<DT><A NAME="M66"><B>:overstrike </B><I>boolean</I></A><DD>
+Specifies whether or not to draw a horizontal rule through
+the middle of characters.
+<I>Boolean</I> may have any of the forms accepted by <B>Tk_GetBoolean</B>.
+<P>
+<DT><A NAME="M67"><B>:relief </B><I>relief</I></A><DD>
+<I>Relief</I> specifies the 3-D relief to use for drawing backgrounds,
+in any of the forms accepted by <B>Tk_GetRelief</B>.
+This option is used in conjunction with the <B>:borderwidth</B>
+option to give a 3-D appearance to the background for characters;
+it is ignored unless the <B>:background</B> option
+has been set for the tag.
+<P>
+<DT><A NAME="M68"><B>:rmargin </B><I>pixels</I></A><DD>
+If the first character of a display line has a tag for which this
+option has been specified, then <I>pixels</I> specifies how wide
+a margin to leave between the end of the line and the right
+edge of the window.
+<I>Pixels</I> may have any of the standard forms for screen
+distances.
+This option is only used when wrapping is enabled.
+If a text line wraps, the right margin for each line on the
+display is determined by the first character of that display
+line.
+<P>
+<DT><A NAME="M69"><B>:spacing1 </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies how much additional space should be
+left above each text line, using any of the standard forms for
+screen distances.
+If a line wraps, this option only applies to the first
+line on the display.
+<P>
+<DT><A NAME="M70"><B>:spacing2 </B><I>pixels</I></A><DD>
+For lines that wrap, this option specifies how much additional
+space to leave between the display lines for a single text line.
+<I>Pixels</I> may have any of the standard forms for screen
+distances.
+<P>
+<DT><A NAME="M71"><B>:spacing3 </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies how much additional space should be
+left below each text line, using any of the standard forms for
+screen distances.
+If a line wraps, this option only applies to the last
+line on the display.
+<P>
+<DT><A NAME="M72"><B>:tabs </B><I>tabList</I></A><DD>
+<I>TabList</I> specifies a set of tab stops in the same form
+as for the <B>:tabs</B> option for the text widget.  This
+option only applies to a display line if it applies to the
+first character on that display line.
+If this option is specified as an empty string, it cancels
+the option, leaving it unspecified for the tag (the default).
+If the option is specified as a non-empty string that is
+an empty list, such as <B>:tags &quot; &quot;</B>, then it requests
+default 8-character tabs as described for the <B>tags</B>
+widget option.
+<P>
+<DT><A NAME="M73"><B>:underline </B><I>boolean</I></A><DD>
+<I>Boolean</I> specifies whether or not to draw an underline underneath
+characters.
+It may have any of the forms accepted by <B>Tk_GetBoolean</B>.
+<P>
+<DT><A NAME="M74"><B>:wrap </B><I>mode</I></A><DD>
+<I>Mode</I> specifies how to handle lines that are wider than the
+text's window.
+It has the same legal values as the <B>:wrap</B> option
+for the text widget:  <B>none</B>, <B>char</B>, or <B>word</B>.
+If this tag option is specified, it overrides the <B>:wrap</B> option
+for the text widget.
+<P>
+</DL>
+<P>
+If a character has several tags associated with it, and if their
+display options conflict, then the options of the highest priority
+tag are used.
+If a particular display option hasn't been specified for a
+particular tag, or if it is specified as an empty string, then
+that option will never be used;  the next-highest-priority
+tag's option will used instead.
+If no tag specifies a particular display option, then the default
+style for the widget will be used.
+<P>
+The second purpose for tags is event bindings.
+You can associate bindings with a tag in much the same way you can
+associate bindings with a widget class:  whenever particular X
+events occur on characters with the given tag, a given
+STk procedure will be executed.
+Tag bindings can be used to give behaviors to ranges of characters;
+among other things, this allows hypertext-like
+features to be implemented.
+For details, see the description of the <B>tag bind</B> widget
+procedure below.
+<P>
+The third use for tags is in managing the selection.
+See THE SELECTION below.
+
+<H3><A NAME="M75">MARKS</A></H3>
+The second form of annotation in text widgets is a mark.
+Marks are used for remembering particular places in a text.
+They are something like tags, in that they have names and
+they refer to places in the file, but a mark isn't associated
+with particular characters.
+Instead, a mark is associated with the gap between two characters.
+Only a single position may be associated with a mark at any given
+time.
+If the characters around a mark are deleted the mark will still
+remain;  it will just have new neighbor characters.
+In contrast, if the characters containing a tag are deleted then
+the tag will no longer have an association with characters in
+the file.
+Marks may be manipulated with the ``<I>widget-name </I><B>mark</B>'' widget
+procedure, and their current locations may be determined by using the
+mark name as an index in widget procedures.
+<P>
+Each mark also has a <I>gravity</I>, which is either <B>left</B> or
+<B>right</B>.
+The gravity for a mark specifies what happens to the mark when
+text is inserted at the point of the mark.
+If a mark has left gravity, then the mark is treated as if it
+were attached to the character on its left, so the mark will
+remain to the left of any text inserted at the mark position.
+If the mark has right gravity, new text inserted at the mark
+position will appear to the right of the mark.  The gravity
+for a mark defaults to <B>right</B>.
+<P>
+The name space for marks is different from that for tags:  the
+same name may be used for both a mark and a tag, but they will refer
+to different things.
+<P>
+Two marks have special significance.
+First, the mark <B>insert</B> is associated with the insertion cursor,
+as described under THE INSERTION CURSOR below.
+Second, the mark <B>current</B> is associated with the character
+closest to the mouse and is adjusted automatically to track the
+mouse position and any changes to the text in the widget (one
+exception:  <B>current</B> is not updated in response to mouse
+motions if a mouse button is down;  the update will be deferred
+until all mouse buttons have been released).
+Neither of these special marks may be deleted.
+
+<H3><A NAME="M76">EMBEDDED WINDOWS</A></H3>
+The third form of annotation in text widgets is an embedded window.
+Each embedded window annotation causes a window to be displayed
+at a particular point in  the text.
+There may be any number of embedded windows in a text widget,
+and any widget may be used as an embedded window (subject to the
+usual rules for geometry management, which require the text window
+to be the parent of the embedded window or a descendant of its
+parent).
+The embedded window's position on the screen will be updated as the
+text is modified or scrolled, and it will be mapped and unmapped as
+it moves into and out of the visible area of the text widget.
+Each embedded window occupies one character's worth of index space
+in the text widget, and it may be referred to either by the name
+of its embedded window or by its position in the widget's
+index space.
+If the range of text containing the embedded window is deleted then
+the window is destroyed.
+<P>
+When an embedded window is added to a text widget with the
+<B>window create</B> widget procedure, several configuration
+options may be associated with it.
+These options may be  modified later with the <B>window configure</B>
+widget procedure.
+The following options are currently supported:
+<P>
+<DL>
+<DT><A NAME="M77"><B>:align </B><I>where</I></A><DD>
+If the window is not as tall as the line in which it is displayed,
+this option determines where the window is displayed in the line.
+<I>Where</I> must have one of the values <B>top</B> (align the top of the window
+with the top of the line), <B>center</B> (center the window
+within the range of the line), <B>bottom</B> (align the bottom of the
+window with the bottom of the line's area),
+or <B>baseline</B> (align the bottom of the window with the baseline
+of the line).
+<P>
+<DT><A NAME="M78"><B>:create </B><I>procedure</I></A><DD>
+Specifies a STk procedure that may be evaluated to create the window
+for the annotation.
+If no <B>:window</B> option has been specified for the annotation
+this script will be evaluated when the annotation is about to
+be displayed on the screen.
+<I>Script</I> must create a window for the annotation and return
+that window as its result.
+If the annotation's window should ever be deleted, <I>procedure</I>
+will be evaluated again the next time the annotation is displayed.
+<P>
+<DT><A NAME="M79"><B>:padx </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies the amount of extra space to leave on
+each side of the embedded window.
+It may have any of the usual forms defined for a screen distance.
+<P>
+<DT><A NAME="M80"><B>:pady </B><I>pixels</I></A><DD>
+<I>Pixels</I> specifies the amount of extra space to leave on
+the top and on the bottom of the embedded window.
+It may have any of the usual forms defined for a screen distance.
+<P>
+<DT><A NAME="M81"><B>:stretch </B><I>boolean</I></A><DD>
+If the requested height of the embedded window is less than the
+height of the line in which it is displayed, this option can be
+used to specify whether the window should be stretched vertically
+to fill its line.
+If the <B>:pady</B> option has been specified as well, then the
+requested padding will be retained even if the window is
+stretched.
+<P>
+<DT><A NAME="M82"><B>:window </B><I>widget-name</I></A><DD>
+Specifies the window to display in the annotation.
+
+<P>
+</DL>
+<H3><A NAME="M83">THE SELECTION</A></H3>
+Text widgets support the standard X selection.
+Selection support is implemented via tags.
+If the <B>exportSelection</B> option for the text widget is true
+then the <B>sel</B> tag will be associated with the selection:
+<OL>
+<LI>
+Whenever characters are tagged with <B>sel</B> the text widget
+will claim ownership of the selection.
+<LI>
+Attempts to retrieve the
+selection will be serviced by the text widget, returning all the
+characters with the <B>sel</B> tag.
+<LI>
+If the selection is claimed away by another application or by another
+window within this application, then the <B>sel</B> tag will be removed
+from all characters in the text.
+</OL>
+<P>
+The <B>sel</B> tag is automatically defined when a text widget is
+created, and it may not be deleted with the ``<I>widget-name </I><B>'tag 'delete</B>''
+widget procedure.  Furthermore, the <B>selectBackground</B>,
+<B>selectBorderWidth</B>, and <B>selectForeground</B> options for
+the text widget are tied to the <B>:background</B>,
+<B>:borderwidth</B>, and <B>:foreground</B> options for the <B>sel</B>
+tag:  changes in either will automatically be reflected in the
+other.
+
+<H3><A NAME="M84">THE INSERTION CURSOR</A></H3>
+The mark named <B>insert</B> has special significance in text widgets.
+It is defined automatically when a text widget is created and it
+may not be unset with the ``<I>widget-name </I><B>mark unset</B>'' widget
+procedure.
+The <B>insert</B> mark represents the position of the insertion
+cursor, and the insertion cursor will automatically be drawn at
+this point whenever the text widget has the input focus.
+
+<H3><A NAME="M85">WIDGET PROCEDURE</A></H3>
+The <B>text</B> procedure creates a new STk procedure whose
+name is the same as the path name of the text's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>PathName</I> is the name of the procedure, which is the same as
+the text widget's path name.  <I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for text widgets:
+<P>
+<DL>
+<DT><A NAME="M86">(<I>widget-name '</I><B>bbox </B><I>index</I>)</A><DD>
+Returns a list of four elements describing the screen area
+of the character given by <I>index</I>.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the area occupied by the
+character, and the last two elements give the width and height
+of the area.
+If the character is only partially visible on the screen, then
+the return value reflects just the visible part.
+If the character is not visible on the screen then the return
+value is an empty list.
+<P>
+<DT><A NAME="M87">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>text</B>
+procedure.
+<P>
+<DT><A NAME="M88">(<I>widget-name '</I><B>compare</B> <I>index1 op index2</I>)</A><DD>
+Compares the indices given by <I>index1</I> and <I>index2</I> according
+to the relational operator given by <I>op</I>, and returns 1 if
+the relationship is satisfied and 0 if it isn't.
+<I>Op</I> must be one of the operators &lt;, &lt;=, ==, &gt;=, &gt;, or !=.
+If <I>op</I> is == then 1 is returned if the two indices refer to
+the same character, if <I>op</I> is &lt; then 1 is returned if <I>index1</I>
+refers to an earlier character in the text than <I>index2</I>, and
+so on.
+<P>
+<DT><A NAME="M89">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? <I>?value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>text</B>
+procedure.
+<P>
+<DT><A NAME="M90">(<I>widget-name '</I><B>debug </B>)</A><DD>
+<DT><A NAME="M91">(<I>widget-name '</I><B>debug </B><I>boolean</I>)</A><DD>
+If <I>boolean</I> is specified, then it must have one of the true or
+false values accepted by Tcl_GetBoolean.
+If the value is a true one then internal consistency checks will be
+turned on in the B-tree code associated with text widgets.
+If <I>boolean</I> has a false value then the debugging checks will
+be turned off.
+In either case the procedure returns an empty string.
+If <I>boolean</I> is not specified then the procedure returns <B>on</B>
+or <B>off</B> to indicate whether or not debugging is turned on.
+There is a single debugging switch shared by all text widgets:  turning
+debugging on or off in any widget turns it on or off for all widgets.
+For widgets with large amounts of text, the consistency checks may
+cause a noticeable slow-down.
+<P>
+<DT><A NAME="M92">(<I>widget-name '</I><B>delete </B><I>index1 </I>)</A><DD>
+<DT><A NAME="M93">(<I>widget-name '</I><B>delete </B><I>index1 </I><I>index2</I>)</A><DD>
+Delete a range of characters from the text.
+If both <I>index1</I> and <I>index2</I> are specified, then delete
+all the characters starting with the one given by <I>index1</I>
+and stopping just before <I>index2</I> (i.e. the character at
+<I>index2</I> is not deleted).
+If <I>index2</I> doesn't specify a position later in the text
+than <I>index1</I> then no characters are deleted.
+If <I>index2</I> isn't specified then the single character at
+<I>index1</I> is deleted.
+It is not allowable to delete characters in a way that would leave
+the text without a newline as the last character.
+The procedure returns an empty string.
+<P>
+<DT><A NAME="M94">(<I>widget-name '</I><B>dlineinfo </B><I>index</I>)</A><DD>
+Returns a list with five elements describing the area occupied
+by the display line containing <I>index</I>.
+The first two elements of the list give the x and y coordinates
+of the upper-left corner of the area occupied by the
+line, the third and fourth elements give the width and height
+of the area, and the fifth element gives the position of the baseline
+for the line, measured down from the top of the area.
+All of this information is measured in pixels.
+If the current wrap mode is <B>none</B> and the line extends beyond
+the boundaries of the window,
+the area returned reflects the entire area of the line, including the
+portions that are out of the window.
+If the line is shorter than the full width of the window then the
+area returned reflects just the portion of the line that is occupied
+by characters and embedded windows.
+If the display line containing <I>index</I> is not visible on
+the screen then the return value is an empty list.
+<P>
+<DT><A NAME="M95">(<I>widget-name </I><B>'dump </B>?<I>switches</I>? <I>index1 </I>?<I>index2</I>?)</A><DD>
+Return the contents of the text widget from <I>index1</I> up to,
+but not including <I>index2</I>,
+including the text and
+information about marks, tags, and embedded windows.
+If <I>index2</I> is not specified, then it defaults to
+one character past <I>index1</I>.  The information is returned
+in the following format:
+<P>
+</DL>
+<P>
+<UL>
+<I>key1 value1 index1 key2 value2 index2</I> ...
+<P>
+The possible <I>key</I> values are <B>text</B>, <B>mark</B>,
+<B>tagon</B>, <B>tagoff</B>, and <B>window</B>.  The corresponding
+<I>value</I> is the text, mark name, tag name, or window name.
+The <I>index</I> information is the index of the
+start of the text, the mark, the tag transition, or the window.
+One or more of the following switches (or abbreviations thereof)
+may be specified to control the dump:
+<P>
+<DL>
+<DT><A NAME="M96"><B>:all</B></A><DD>
+Return information about all elements: text, marks, tags, and windows.
+This is the default.
+<P>
+<DT><A NAME="M97"><B>:command </B><I>closure</I></A><DD>
+Instead of returning the information as the result of the dump operation,
+invoke the <I>closure</I> on each element of the text widget within the range.
+The command must have three arguments:  <I>key</I>, <I>value</I>, and <I>index</I>.
+<P>
+<DT><A NAME="M98"><B>:mark</B></A><DD>
+Include information about marks in the dump results.
+<P>
+<DT><A NAME="M99"><B>:tag</B></A><DD>
+Include information about tag transitions in the dump results. Tag information is
+returned as <B>tagon</B> and <B>tagoff</B> elements that indicate the
+begin and end of each range of each tag, respectively.
+<P>
+<DT><A NAME="M100"><B>:text</B></A><DD>
+Include information about text in the dump results.  The value is the
+text up to the next element or the end of range indicated by <I>index2</I>.
+A text element does not span newlines.  A multi-line block of text that
+contains no marks or tag transitions will still be dumped as a set
+of text seqments that each end with a newline.  The newline is part
+of the value.
+<P>
+<DT><A NAME="M101"><B>:window</B></A><DD>
+Include information about embedded windows in the dump results.
+The value of a window is its Tk pathname, unless the window
+has not been created yet.  (It must have a create script.)
+In this case an empty string is returned, and you must query the
+window by its index position to get more information.
+<P>
+</DL>
+</UL>
+<P>
+<DL>
+<DT><A NAME="M102">(<I>widget-name </I><B>'get </B><I>index1 </I>)</A><DD>
+<DT><A NAME="M103">(<I>widget-name </I><B>'get </B><I>index1 </I><I>index2</I>)</A><DD>
+Return a range of characters from the text.
+The return value will be all the characters in the text starting
+with the one whose index is <I>index1</I> and ending just before
+the one whose index is <I>index2</I> (the character at <I>index2</I>
+will not be returned).
+If <I>index2</I> is omitted then the single character at <I>index1</I>
+is returned.
+If there are no characters in the specified range (e.g. <I>index1</I>
+is past the end of the file or <I>index2</I> is less than or equal
+to <I>index1</I>) then an empty string is returned.
+If the specified range contains embedded windows, no information
+about them is included in the returned string.
+<P>
+<DT><A NAME="M104">(<I>widget-name '</I><B>index </B><I>index</I>)</A><DD>
+Returns the position corresponding to <I>index</I> in the form
+<I>(line . char)</I> where <I>line</I> is the line number and <I>char</I>
+is the character number.
+<I>Index</I> may have any of the forms described under INDICES above.
+<P>
+<DT><A NAME="M105">(<I>widget-name '</I><B>insert </B><I>index chars </I>?<I>tagList chars tagList ...</I>?)</A><DD>
+Inserts all of the <I>chars</I> arguments just before the character at
+<I>index</I>.
+If <I>index</I> refers to the end of the text (the character after
+the last newline) then the new text is inserted just before the
+last newline instead.
+If there is a single <I>chars</I> argument and no <I>tagList</I>, then
+the new text will receive any tags that are present on both the
+character before and the character after the insertion point; if a tag
+is present on only one of these characters then it will not be
+applied to the new text.
+If <I>tagList</I> is specified then it consists of a list of
+tag names;  the new characters will receive all of the tags in
+this list and no others, regardless of the tags present around
+the insertion point.
+If multiple <I>chars</I>-<I>tagList</I> argument pairs are present,
+they produce the same effect as if a separate <B>insert</B> widget
+procedure had been issued for each pair, in order.
+The last <I>tagList</I> argument may be omitted.
+<P>
+<DT><A NAME="M106">(<I>widget-name '</I><B>mark </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
+This procedure is used to manipulate marks.  The exact behavior of
+the procedure depends on the <I>option</I> argument that follows
+the <B>mark</B> argument.  The following forms of the procedure
+are currently supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M107">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I>)</A><DD>
+<DT><A NAME="M108">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I> <I>direction</I>)</A><DD>
+If <I>direction</I> is not specified, returns <B>left</B> or <B>right</B>
+to indicate which of its adjacent characters <I>markName</I> is attached
+to.
+If <I>direction</I> is specified, it must be <B>left</B> or <B>right</B>;
+the gravity of <I>markName</I> is set to the given value.
+<P>
+<DT><A NAME="M109">(<I>widget-name '</I><B>mark 'names</B>)</A><DD>
+Returns a list whose elements are the names of all the marks that
+are currently set.
+<P>
+<DT><A NAME="M110">(<I>widget-name '</I><B>mark 'next </B><I>index</I>)</A><DD>
+Returns the name of the next mark at or after <I>index</I>.
+If <I>index</I> is specified in numerical form, then the search for
+the next mark begins at that index.
+If <I>index</I> is the name of a mark, then the search for
+the next mark begins immediately after that mark.
+This can still return a mark at the same position if
+there are multiple marks at the same index.
+These semantics mean that the <B>mark next</B> operation can be used to
+step through all the marks in a text widget in the same order
+as the mark information returned by the <B>dump</B> operation.
+If a mark has been set to the special <B>end index,
+then it appears to be </B><I>after</I> <B>end</B> with respect to the <B>mark next</B> operation.
+An empty list is returned if there are no marks after <I>index</I>.
+<P>
+<DT><A NAME="M111">(<I>widget-name '</I><B>mark 'previous </B><I>index</I>)</A><DD>
+Returns the name of the mark at or before <I>index</I>.
+If <I>index</I> is specified in numerical form, then the search for
+the previous mark begins with the character just before that index.
+If <I>index</I> is the name of a mark, then the search for
+the next mark begins immediately before that mark.
+This can still return a mark at the same position if
+there are multiple marks at the same index.
+These semantics mean that the <B>mark previous</B> operation can be used to
+step through all the marks in a text widget in the reverse order
+as the mark information returned by the <B>dump</B> operation.
+An empty list is returned if there are no marks before <I>index</I>.
+<P>
+<DT><A NAME="M112">(<I>widget-name '</I><B>mark 'set </B><I>markName index</I>)</A><DD>
+Sets the mark named <I>markName</I> to a position just before the
+character at <I>index</I>.
+If <I>markName</I> already exists, it is moved from its old position;
+if it doesn't exist, a new mark is created.
+This procedure returns an empty string.
+<P>
+<DT><A NAME="M113">(<I>widget-name '</I><B>mark 'unset </B><I>markName </I>?<I>markName markName ...</I>?)</A><DD>
+Remove the mark corresponding to each of the <I>markName</I> arguments.
+The removed marks will not be usable in indices and will not be
+returned by future calls to ``<I>widget-name </I><B>mark names</B>''.
+This procedure returns an empty string.
+<P>
+</DL>
+<DT><A NAME="M114">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
+This procedure is used to implement scanning on texts.  It has
+two forms, depending on <I>option</I>:
+<P>
+<P>
+<DL>
+<DT><A NAME="M115">(<I>widget-name '</I><B>scan 'mark </B><I>x y</I>)</A><DD>
+Records <I>x</I> and <I>y</I> and the current view in the text window,
+for use in conjunction with later <B>scan dragto</B> procedures.
+Typically this procedure is associated with a mouse button press in
+the widget.  It returns an empty string.
+<P>
+<DT><A NAME="M116">(<I>widget-name '</I><B>scan 'dragto </B><I>x y</I>)</A><DD>
+This procedure computes the difference between its <I>x</I> and <I>y</I>
+arguments and the <I>x</I> and <I>y</I> arguments to the last
+<B>scan mark</B> procedure for the widget.
+It then adjusts the view by 10 times the difference in coordinates.
+This procedure is typically associated
+with mouse motion events in the widget, to produce the effect of
+dragging the text at high speed through the window.  The return
+value is an empty string.
+<P>
+</DL>
+<DT><A NAME="M117">(<I>widget-name </I><B>search </B>?<I>switches</I>? <I>pattern index </I>?<I>stopIndex</I>?)</A><DD>
+Searches the text in <I>widget-name</I> starting at <I>index</I> for a range
+of characters that matches <I>pattern</I>.
+If a match is found, the index of the first character in the match is
+returned as result;  otherwise an empty string is returned.
+One or more of the following switches (or abbreviations thereof)
+may be specified to control the search:
+<P>
+<P>
+<DL>
+<DT><A NAME="M118"><B>:forwards</B></A><DD>
+The search will proceed forward through the text, finding the first
+matching range starting at or after the position given by <I>index</I>.
+This is the default.
+<P>
+<DT><A NAME="M119"><B>:backwards</B></A><DD>
+The search will proceed backward through the text, finding the
+matching range closest to <I>index</I> whose first character
+is before <I>index</I>.
+<P>
+<DT><A NAME="M120"><B>:exact</B></A><DD>
+Use exact matching:  the characters in the matching range must be
+identical to those in <I>pattern</I>.
+This is the default.
+<P>
+<DT><A NAME="M121"><B>:regexp</B></A><DD>
+Treat <I>pattern</I> as a regular expression and match it against
+the text using the rules for regular expressions (see the <B>regexp</B>
+procedure for details).
+<P>
+<DT><A NAME="M122"><B>:nocase</B></A><DD>
+Ignore case differences between the pattern and the text.
+<P>
+<DT><A NAME="M123"><B>:count</B><I> varName</I></A><DD>
+The argument following <B>:count</B> gives the name of a variable;
+if a match is found, the number of characters in the matching
+range will be stored in the variable.
+<P>
+<DT><A NAME="M124"><B>:-</B></A><DD>
+This switch has no effect except to terminate the list of switches:
+the next argument will be treated as <I>pattern</I> even if it starts
+with <B>:</B>.
+<P>
+</DL>
+<UL>
+<P>
+The matching range must be entirely within a single line of text.
+For regular expression matching the newlines are removed from the ends
+of the lines before matching:  use the <B>$</B> feature in regular
+expressions to match the end of a line.
+For exact matching the newlines are retained.
+If <I>stopIndex</I> is specified, the search stops at that index:
+for forward searches, no match at or after <I>stopIndex</I> will
+be considered;  for backward searches, no match earlier in the
+text than <I>stopIndex</I> will be considered.
+If <I>stopIndex</I> is omitted, the entire text will be searched:
+when the beginning or end of the text is reached, the search
+continues at the other end until the starting location is reached
+again;  if <I>stopIndex</I> is specified, no wrap-around will occur.
+</UL>
+<DT><A NAME="M125">(<I>widget-name '</I><B>see </B><I>index</I>)</A><DD>
+Adjusts the view in the window so that the character given by <I>index</I>
+is completely visible.
+If <I>index</I> is already visible then the procedure does nothing.
+If <I>index</I> is a short distance out of view, the procedure
+adjusts the view just enough to make <I>index</I> visible at the
+edge of the window.
+If <I>index</I> is far out of view, then the procedure centers
+<I>index</I> in the window.
+<P>
+<DT><A NAME="M126">(<I>widget-name </I><B>'tag </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
+This procedure is used to manipulate tags.  The exact behavior of the
+procedure depends on the <I>option</I> argument that follows the
+<B>tag</B> argument.  The following forms of the procedure are currently
+supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M127">(<I>widget-name </I><B>'tag 'add </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
+Associate the tag <I>tagName</I> with all of the characters starting
+with <I>index1</I> and ending just before
+<I>index2</I> (the character at <I>index2</I> isn't tagged).
+A single procedure may contain any number of <I>index1</I>-<I>index2</I>
+pairs.
+If the last <I>index2</I> is omitted then the single character at
+<I>index1</I> is tagged.
+If there are no characters in the specified range (e.g. <I>index1</I>
+is past the end of the file or <I>index2</I> is less than or equal
+to <I>index1</I>) then the procedure has no effect.
+<P>
+<DT><A NAME="M128">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I>)</A><DD>
+<DT><A NAME="M129">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I>)</A><DD>
+<DT><A NAME="M130">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I> <I>script</I>)</A><DD>
+This procedure associates <I>script</I> with the tag given by
+<I>tagName</I>.
+Whenever the event sequence given by <I>sequence</I> occurs for a
+character that has been tagged with <I>tagName</I>,
+the script will be invoked.
+This widget procedure is similar to the <B><A HREF="./bind.n.html">bind</A></B> procedure except that
+it operates on characters in a text rather than entire widgets.
+See the <B><A HREF="./bind.n.html">bind</A></B> manual entry for complete details
+on the syntax of <I>sequence</I> and the substitutions performed
+on <I>script</I> before invoking it.
+If all arguments are specified then a new binding is created, replacing
+any existing binding for the same <I>sequence</I> and <I>tagName</I>.
+In this case the return value is an empty string.
+If <I>script</I> is omitted then the procedure returns the <I>script</I>
+associated with <I>tagName</I> and <I>sequence</I> (an error occurs
+if there is no such binding).
+If both <I>script</I> and <I>sequence</I> are omitted then the procedure
+returns a list of all the sequences for which bindings have been
+defined for <I>tagName</I>.
+<P>
+<UL>
+<P>
+The only events for which bindings may be specified are those related
+to the mouse and keyboard, such as <B>Enter</B>, <B>Leave</B>,
+<B>ButtonPress</B>, <B>Motion</B>, and <B>KeyPress</B>.
+Event bindings for a text widget use the <B>current</B> mark
+described under MARKS above.
+An <B>Enter</B> event triggers for a tag when the tag first
+becomes present on the current character, and a <B>Leave</B>
+event triggers for a tag when it ceases to be present on
+the current character.
+<B>Enter</B> and <B>Leave</B> events can happen either because the
+<B>current</B> mark moved or because the character at that
+position changed.
+Note that these events are different than <B>Enter</B> and <B>Leave</B>
+events for windows.
+Mouse and keyboard events are directed to the current character.
+<P>
+It is possible for the current character to have multiple tags,
+and for each of them to have a binding for a particular event
+sequence.
+When this occurs, one binding is invoked for each tag, in order
+from lowest-priority to highest priority.
+If there are multiple matching bindings for a single tag, then
+the most specific binding is chosen (see the manual entry for
+the <B><A HREF="./bind.n.html">bind</A></B> procedure for details).
+<B>continue</B> and <B>break</B> procedures within binding scripts
+are processed in the same way as for bindings created with
+the <B><A HREF="./bind.n.html">bind</A></B> procedure.
+<P>
+If bindings are created for the widget as a whole using the
+<B><A HREF="./bind.n.html">bind</A></B> procedure, then those bindings will supplement the
+tag bindings.
+The tag bindings will be invoked first, followed by bindings
+for the window as a whole.
+</UL>
+<DT><A NAME="M131">(<I>widget-name </I><B>'tag 'cget</B> <I>tagName option</I>)</A><DD>
+This procedure returns the current value of the option named <I>option</I>
+associated with the tag given by <I>tagName</I>.
+<I>Option</I> may have any of the values accepted by the <B>tag configure</B>
+widget procedure.
+<P>
+<DT><A NAME="M132">(<I>widget-name </I><B>'tag 'configure </B><I>tagName</I> ?<I>option</I>? ?<I>value</I>? ?<I>option value ...</I>?)</A><DD>
+This procedure is similar to the <B>configure</B> widget procedure except
+that it modifies options associated with the tag given by <I>tagName</I>
+instead of modifying options for the overall text widget.
+If no <I>option</I> is specified, the procedure returns a list describing
+all of the available options for <I>tagName</I> (see <B>Tk_ConfigureInfo</B>
+for information on the format of this list).
+If <I>option</I> is specified with no <I>value</I>, then the procedure returns
+a list describing the one named option (this list will be identical to
+the corresponding sublist of the value returned if no <I>option</I>
+is specified).
+If one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s) in <I>tagName</I>;
+in this case the procedure returns an empty list.
+See TAGS above for details on the options available for tags.
+<P>
+<DT><A NAME="M133">(<I>widget-name </I><B>'tag 'delete </B><I>tagName </I>?<I>tagName ...</I>?)</A><DD>
+Deletes all tag information for each of the <I>tagName</I>
+arguments.
+The procedure removes the tags from all characters in the file
+and also deletes any other information associated with the tags,
+such as bindings and display information.
+The procedure returns an empty list.
+<P>
+<DT><A NAME="M134">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I>)</A><DD>
+<DT><A NAME="M135">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I> <I>belowThis</I>)</A><DD>
+Changes the priority of tag <I>tagName</I> so that it is just lower
+in priority than the tag whose name is <I>belowThis</I>.
+If <I>belowThis</I> is omitted, then <I>tagName</I>'s priority
+is changed to make it lowest priority of all tags.
+<P>
+<DT><A NAME="M136">(<I>widget-name </I><B>'tag 'names </B>)</A><DD>
+<DT><A NAME="M137">(<I>widget-name </I><B>'tag 'names </B> <I>index</I>)</A><DD>
+Returns a list whose elements are the names of all the tags that
+are active at the character position given by <I>index</I>.
+If <I>index</I> is omitted, then the return value will describe
+all of the tags that exist for the text (this includes all tags
+that have been named in a ``<I>widget-name </I><B>tag</B>'' widget
+procedure but haven't been deleted by a ``<I>widget-name </I><B>tag delete</B>''
+widget procedure, even if no characters are currently marked with
+the tag).
+The list will be sorted in order from lowest priority to highest
+priority.
+<P>
+<DT><A NAME="M138">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I>)</A><DD>
+<DT><A NAME="M139">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
+This procedure searches the text for a range of characters tagged
+with <I>tagName</I> where the first character of the range is
+no earlier than the character at <I>index1</I> and no later than
+the character just before <I>index2</I> (a range starting at
+<I>index2</I> will not be considered).
+If several matching ranges exist, the first one is chosen.
+The procedure's return value is a list containing
+two elements, which are the index of the first character of the
+range and the index of the character just after the last one in
+the range.
+If no matching range is found then the return value is an
+empty list.
+If <I>index2</I> is not given then it defaults to the end of the text.
+<P>
+<DT><A NAME="M140">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I>)</A><DD>
+<DT><A NAME="M141">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
+This command searches the text for a range of characters tagged
+with <I>tagName</I> where the first character of the range is
+before the character at <I>index1</I> and no earlier than
+the character at <I>index2</I> (a range starting at
+<I>index2</I> will be considered).
+If several matching ranges exist, the one closest to <I>index1</I> is chosen.
+The command's return value is a list containing
+two elements, which are the index of the first character of the
+range and the index of the character just after the last one in
+the range.
+If no matching range is found then the return value is an
+empty string.
+If <I>index2</I> is not given then it defaults to the beginning of the text.
+<P>
+<DT><A NAME="M142">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I>)</A><DD>
+<DT><A NAME="M143">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I> <I>aboveThis</I>)</A><DD>
+Changes the priority of tag <I>tagName</I> so that it is just higher
+in priority than the tag whose name is <I>aboveThis</I>.
+If <I>aboveThis</I> is omitted, then <I>tagName</I>'s priority
+is changed to make it highest priority of all tags.
+<P>
+<DT><A NAME="M144">(<I>widget-name </I><B>'tag 'ranges </B><I>tagName</I>)</A><DD>
+Returns a list describing all of the ranges of text that have been
+tagged with <I>tagName</I>.
+The first two elements of the list describe the first tagged range
+in the text, the next two elements describe the second range, and
+so on.
+The first element of each pair contains the index of the first
+character of the range, and the second element of the pair contains
+the index of the character just after the last one in the
+range.
+If there are no characters tagged with <I>tag</I> then an
+empty list is returned.
+<P>
+<DT><A NAME="M145">(<I>widget-name </I><B>'tag 'remove </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
+Remove the tag <I>tagName</I> from all of the characters starting
+at <I>index1</I> and ending just before
+<I>index2</I> (the character at <I>index2</I> isn't affected).
+A single procedure may contain any number of <I>index1</I>-<I>index2</I>
+pairs.
+If the last <I>index2</I> is omitted then the single character at
+<I>index1</I> is tagged.
+If there are no characters in the specified range (e.g. <I>index1</I>
+is past the end of the file or <I>index2</I> is less than or equal
+to <I>index1</I>) then the procedure has no effect.
+This procedure returns an empty list.
+<P>
+</DL>
+<DT><A NAME="M146">(<I>widget-name '</I><B>window </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
+This procedure is used to manipulate embedded windows.
+The behavior of the procedure depends on the <I>option</I> argument
+that follows the <B>tag</B> argument.
+The following forms of the procedure are currently supported:
+<P>
+<P>
+<DL>
+<DT><A NAME="M147">(<I>widget-name '</I><B>window 'cget</B> <I>index option</I>)</A><DD>
+Returns the value of a configuration option for an embedded window.
+<I>Index</I> identifies the embedded window, and <I>option</I>
+specifies a particular configuration option, which must be one of
+the ones listed in the section EMBEDDED WINDOWS.
+<P>
+<DT><A NAME="M148">(<I>widget-name '</I><B>window 'configure </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
+Query or modify the configuration options for an embedded window.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for the embedded window at <I>index</I>
+(see <B>Tk_ConfigureInfo</B> for information on the format of this list).
+If <I>option</I> is specified with no <I>value</I>, then the procedure
+returns a list describing the one named option (this list will be
+identical to the corresponding sublist of the value returned if no
+<I>option</I> is specified).
+If one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given option(s) to have the given value(s);  in
+this case the procedure returns an empty list.
+See EMBEDDED WINDOWS for information on the options that
+are supported.
+<P>
+<DT><A NAME="M149">(<I>widget-name '</I><B>window 'create </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
+This procedure creates a new window annotation, which will appear
+in the text at the position given by <I>index</I>.
+Any number of <I>option-value</I> pairs may be specified to
+configure the annotation.
+See EMBEDDED WINDOWS for information on the options that
+are supported.
+Returns an empty list.
+<P>
+<DT><A NAME="M150">(<I>widget-name '</I><B>window 'names</B>)</A><DD>
+Returns a list whose elements are the names of all windows currently
+embedded in <I>window</I>.
+<P>
+</DL>
+<DT><A NAME="M151">(<I>widget-name '</I><B>xview </B><I>option args</I>)</A><DD>
+This procedure is used to query and change the horizontal position of the
+text in the widget's window.  It can take any of the following
+forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M152">(<I>widget-name '</I><B>xview</B>)</A><DD>
+Returns a list containing two elements.
+Each element is a real fraction between 0 and 1;  together they describe
+the portion of the document's horizontal span that is visible in
+the window.
+For example, if the first element is .2 and the second element is .6,
+20% of the text is off-screen to the left, the middle 40% is visible
+in the window, and 40% of the text is off-screen to the right.
+The fractions refer only to the lines that are actually visible in the
+window:  if the lines in the window are all very short, so that they
+are entirely visible, the returned fractions will be 0 and 1,
+even if there are other lines in the text that are
+much wider than the window.
+These are the same values passed to scrollbars via the <B>:xscrollprocedure</B>
+option.
+<P>
+<DT><A NAME="M153">(<I>widget-name '</I><B>xview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that <I>fraction</I> of the horizontal
+span of the text is off-screen to the left.
+<I>Fraction</I> is a fraction between 0 and 1.
+<P>
+<DT><A NAME="M154">(<I>widget-name '</I><B>xview 'scroll </B><I>number what</I>)</A><DD>
+This procedure shifts the view in the window left or right according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B> or an abbreviation
+of one of these.
+If <I>what</I> is <B>units</B>, the view adjusts left or right by
+<I>number</I> average-width characters on the display;  if it is
+<B>pages</B> then the view adjusts by <I>number</I> screenfuls.
+If <I>number</I> is negative then characters farther to the left
+become visible;  if it is positive then characters farther to the right
+become visible.
+<P>
+</DL>
+<DT><A NAME="M155">(<I>widget-name '</I><B>yview </B><I>?args</I>?)</A><DD>
+This procedure is used to query and change the vertical position of the
+text in the widget's window.
+It can take any of the following forms:
+<P>
+<P>
+<DL>
+<DT><A NAME="M156">(<I>widget-name '</I><B>yview</B>)</A><DD>
+Returns a list containing two elements, both of which are real fractions
+between 0 and 1.
+The first element gives the position of the first character in the
+top line in the window, relative to the text as a whole (0.5 means
+it is halfway through the text, for example).
+The second element gives the position of the character just after
+the last one in the bottom line of the window,
+relative to the text as a whole.
+These are the same values passed to scrollbars via the <B>:yscrollprocedure</B>
+option.
+<P>
+<DT><A NAME="M157">(<I>widget-name '</I><B>yview 'moveto</B><I> fraction</I>)</A><DD>
+Adjusts the view in the window so that the character given by <I>fraction</I>
+appears on the top line of the window.
+<I>Fraction</I> is a fraction between 0 and 1;  0 indicates the first
+character in the text, 0.33 indicates the character one-third the
+way through the text, and so on.
+<P>
+<DT><A NAME="M158">(<I>widget-name '</I><B>yview 'scroll </B><I>number what</I>)</A><DD>
+This procedure adjust the view in the window up or down according to
+<I>number</I> and <I>what</I>.
+<I>Number</I> must be an integer.
+<I>What</I> must be either <B>units</B> or <B>pages</B>.
+If <I>what</I> is <B>units</B>, the view adjusts up or down by
+<I>number</I> lines on the display;  if it is <B>pages</B> then
+the view adjusts by <I>number</I> screenfuls.
+If <I>number</I> is negative then earlier positions in the text
+become visible;  if it is positive then later positions in the text
+become visible.
+<P>
+<DT><A NAME="M159">(<I>widget-name </I><B>yview </B> <I>index</I>)</A><DD>
+<DT><A NAME="M160">(<I>widget-name </I><B>yview </B><B>:pickplace</B> <I>index</I>)</A><DD>
+Changes the view in the widget's window to make <I>index</I> visible.
+If the <B>:pickplace</B> option isn't specified then <I>index</I> will
+appear at the top of the window.
+If <B>:pickplace</B> is specified then the widget chooses where
+<I>index</I> appears in the window:
+<P>
+<OL>
+<LI>
+If <I>index</I> is already visible somewhere in the window then the
+procedure does nothing.
+<LI>
+If <I>index</I> is only a few lines off-screen above the window then
+it will be positioned at the top of the window.
+<LI>
+If <I>index</I> is only a few lines off-screen below the window then
+it will be positioned at the bottom of the window.
+<LI>
+Otherwise, <I>index</I> will be centered in the window.
+</OL>
+<UL>
+<P>
+The <B>:pickplace</B> option has been obsoleted by the <B>see</B> widget
+procedure (<B>see</B> handles both x- and y-motion to make a location
+visible, whereas <B>:pickplace</B> only handles motion in y).
+</UL>
+<DT><A NAME="M161">(<I>widget-name '</I><B>yview </B><I>number</I>)</A><DD>
+This procedure makes the first character on the line after
+the one given by <I>number</I> visible at the top of the window.
+<I>Number</I> must be an integer.
+This procedure used to be used for scrolling, but now it is obsolete.
+<P>
+</DL>
+</DL>
+<H3><A NAME="M162">BINDINGS</A></H3>
+Tk automatically creates class bindings for texts that give them
+the following default behavior.
+In the descriptions below, ``word'' refers to a contiguous group
+of letters, digits, or ``_'' characters, or any single character
+other than these.
+<OL>
+<LI>
+Clicking mouse button 1 positions the insertion cursor
+just before the character underneath the mouse cursor, sets the
+input focus to this widget, and clears any selection in the widget.
+Dragging with mouse button 1 strokes out a selection between
+the insertion cursor and the character under the mouse.
+<LI>
+Double-clicking with mouse button 1 selects the word under the mouse
+and positions the insertion cursor at the beginning of the word.
+Dragging after a double click will stroke out a selection consisting
+of whole words.
+<LI>
+Triple-clicking with mouse button 1 selects the line under the mouse
+and positions the insertion cursor at the beginning of the line.
+Dragging after a triple click will stroke out a selection consisting
+of whole lines.
+<LI>
+The ends of the selection can be adjusted by dragging with mouse
+button 1 while the Shift key is down;  this will adjust the end
+of the selection that was nearest to the mouse cursor when button
+1 was pressed.
+If the button is double-clicked before dragging then the selection
+will be adjusted in units of whole words;  if it is triple-clicked
+then the selection will be adjusted in units of whole lines.
+<LI>
+Clicking mouse button 1 with the Control key down will reposition the
+insertion cursor without affecting the selection.
+<LI>
+If any normal printing characters are typed, they are
+inserted at the point of the insertion cursor.
+<LI>
+The view in the widget can be adjusted by dragging with mouse button 2.
+If mouse button 2 is clicked without moving the mouse, the selection
+ is copied into the text at the position of the mouse cursor.
+The Insert key also inserts the selection, but at the position of
+the insertion cursor.
+<LI>
+If the mouse is dragged out of the widget
+while button 1 is pressed, the entry will automatically scroll to
+make more text visible (if there is more text off-screen on the side
+where the mouse left the window).
+<LI>
+The Left and Right keys move the insertion cursor one character to the
+left or right;  they also clear any selection in the text.
+If Left or Right is typed with the Shift key down, then the insertion
+cursor moves and the selection is extended to include the new character.
+Control-Left and Control-Right move the insertion cursor by words, and
+Control-Shift-Left and Control-Shift-Right move the insertion cursor
+by words and also extend the selection.
+Control-b and Control-f behave the same as Left and Right, respectively.
+Meta-b and Meta-f behave the same as Control-Left and Control-Right,
+respectively.
+<LI>
+The Next and Prior keys move the insertion cursor forward or backwards
+by one screenful and clear any selection in the text.
+If the Shift key is held down while Next or Prior is typed, then
+the selection is extended to include the new character.
+Control-v moves the view down one screenful without moving the
+insertion cursor or adjusting the selection.
+<LI>
+Control-Next and Control-Prior scroll the view right or left by one page
+without moving the insertion cursor or affecting the selection.
+<LI>
+Home and Control-a move the insertion cursor to the
+beginning of its line and clear any selection in the widget.
+Shift-Home moves the insertion cursor to the beginning of the line
+and also extends the selection to that point.
+<LI>
+End and Control-e move the insertion cursor to the
+end of the line and clear any selection in the widget.
+Shift-End moves the cursor to the end of the line and extends the selection
+to that point.
+<LI>
+Control-Home and Meta-&lt; move the insertion cursor to the beginning of
+the text and clear any selection in the widget.
+Control-Shift-Home moves the insertion cursor to the beginning of the text
+and also extends the selection to that point.
+<LI>
+Control-End and Meta-&gt; move the insertion cursor to the end of the
+text and clear any selection in the widget.
+Control-Shift-End moves the cursor to the end of the text and extends
+the selection to that point.
+<LI>
+The Select key and Control-Space set the selection anchor to the position
+of the insertion cursor.  They don't affect the current selection.
+Shift-Select and Control-Shift-Space adjust the selection to the
+current position of the insertion cursor, selecting from the anchor
+to the insertion cursor if there was not any selection previously.
+<LI>
+Control-/ selects the entire contents of the widget.
+<LI>
+Control-&#92; clears any selection in the widget.
+<LI>
+The F16 key (labelled Copy on many Sun workstations) or Meta-w
+copies the selection in the widget to the clipboard, if there is a selection.
+<LI>
+The F20 key (labelled Cut on many Sun workstations) or Control-w
+copies the selection in the widget to the clipboard and deletes
+the selection.
+If there is no selection in the widget then these keys have no effect.
+<LI>
+The F18 key (labelled Paste on many Sun workstations) or Control-y
+inserts the contents of the clipboard at the position of the
+insertion cursor.
+<LI>
+The Delete key deletes the selection, if there is one in the widget.
+If there is no selection, it deletes the character to the right of
+the insertion cursor.
+<LI>
+Backspace and Control-h delete the selection, if there is one
+in the widget.
+If there is no selection, they delete the character to the left of
+the insertion cursor.
+<LI>
+Control-d deletes the character to the right of the insertion cursor.
+<LI>
+Meta-d deletes the word to the right of the insertion cursor.
+<LI>
+Control-k deletes from the insertion cursor to the end of its line;
+if the insertion cursor is already at the end of a line, then
+Control-k deletes the newline character.
+<LI>
+Control-o opens a new line by inserting a newline character in
+front of the insertion cursor without moving the insertion cursor.
+<LI>
+Meta-backspace and Meta-Delete delete the word to the left of the
+insertion cursor.
+<LI>
+Control-x deletes whatever is selected in the text widget.
+<LI>
+Control-t reverses the order of the two characters to the right of
+the insertion cursor. 
+</OL>
+<P>
+If the widget is disabled using the <B>:state</B> option, then its
+view can still be adjusted and text can still be selected,
+but no insertion cursor will be displayed and no text modifications will
+take place.
+<P>
+The behavior of texts can be changed by defining new bindings for
+individual widgets or by redefining the class bindings.
+
+<H3><A NAME="M163">PERFORMANCE ISSUES</A></H3>
+Text widgets should run efficiently under a variety
+of conditions.  The text widget uses about 2-3 bytes of
+main memory for each byte of text, so texts containing a megabyte
+or more should be practical on most workstations.
+Text is represented internally with a modified B-tree structure
+that makes operations relatively efficient even with large texts.
+Tags are included in the B-tree structure in a way that allows
+tags to span large ranges or have many disjoint smaller ranges
+without loss of efficiency.
+Marks are also implemented in a way that allows large numbers of
+marks.
+In most cases it is fine to have large numbers of unique tags,
+or a tag that has many distinct ranges.
+<P>
+One performance problem can arise if you have hundreds or thousands
+of different tags that all have the following characteristics:
+the first and last ranges of each tag are near the beginning and
+end of the text, respectively,
+or a single tag range covers most of the text widget.
+The cost of adding and deleting tags like this is proportional
+to the number of other tags with the same properties.
+In contrast, there is no problem with having thousands of distinct
+tags if their overall ranges are localized and spread uniformly throughout
+the text.
+<P>
+Very long text lines can be expensive,
+especially if they have many marks and tags within them.
+<P>
+The display line with the insert cursor is redrawn each time the
+cursor blinks, which causes a steady stream of graphics traffic.
+Set the <B>insertOffTime</B> attribute to 0 avoid this.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/tk.n.html b/Help/tk.n.html
new file mode 100644
index 0000000..d8357f7
--- /dev/null
+++ b/Help/tk.n.html
@@ -0,0 +1,41 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - tk manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> tk</H2>
+<I>Manipulate Tk internal state</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>tk</B> <I>option </I>?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>tk</B> procedure provides access to miscellaneous
+elements of Tk's internal state.
+Most of the information manipulated by this procedure pertains to the
+application as a whole, or to a screen or display, rather than to a
+particular window.
+The procedure can take any of a number of different forms
+depending on the <I>option</I> argument.  The legal forms are:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>tk 'appname</B>)</A><DD>
+<DT><A NAME="M5">(<B>tk 'appname </B><I>newName</I>)</A><DD>
+If <I>newName</I> isn't specified, this procedure returns the name
+of the application (the name that may be used in <B><A HREF="./send.n.html">send</A></B>
+procedures to communicate with the application).
+If <I>newName</I> is specified, then the name of the application
+is changed to <I>newName</I>.
+If the given name is already in use, then a suffix of the form
+``<B> #2</B>'' or ``<B> #3</B>'' is appended in order to make the name unique.
+The procedure's result is the name actually chosen.
+<I>newName</I> should not start with a capital letter.
+This will interfere with option processing, since names starting with
+capitals are assumed to be classes;  as a result, Tk may not
+be able to find some options for the application.
+If sends have been disabled by deleting the <B><A HREF="./send.n.html">send</A></B> procedure,
+(with <B>inhibit-send</B>) this procedure will reenable them and 
+recreate the <B><A HREF="./send.n.html">send</A></B> procedure.
+
+<P>
+</DL>
+<H3><A NAME="M6">SEE ALSO</A></H3>
+<B><A HREF="./send.n.html">send</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/tkvars.n.html b/Help/tkvars.n.html
new file mode 100644
index 0000000..c2ad2d3
--- /dev/null
+++ b/Help/tkvars.n.html
@@ -0,0 +1,39 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - tkvars manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> tkvars</H2>
+<I>Variables used or set by Tk</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">DESCRIPTION</A></H3>
+The following STk variables are either set or used by Tk at various times
+in its execution:
+<P>
+<DL>
+<DT><A NAME="M3"><B>*tk-patch-level*</B></A><DD>
+Contains a string which represent the current patch level for Tk.
+The patch level is incremented for each new release or patch, and
+it uniquely identifies an official version of Tk.
+<P>
+<DT><A NAME="M4"><B>*tk-strict-motif*</B></A><DD>
+This variable is set to <B>#f</B> by default.
+If an application sets it to a true value, then Tk attempts to adhere as
+closely as possible to Motif look-and-feel standards.
+For example, active elements such as buttons and scrollbar
+sliders will not change color when the pointer passes over them.
+<P>
+<DT><A NAME="M5"><B>*tk-version*</B></A><DD>
+Tk sets this variable in the interpreter for each
+application.  The value of this variable is a string which holds the
+current version number of the Tk library in the form
+<I>major</I>.<I>minor</I>.  <I>Major</I> and <I>minor</I> are integers.
+The major version number increases in any Tk release that includes
+changes that are not backward compatible (i.e. whenever existing Tk
+applications and scripts may have to change to work with the new
+release).  The minor version number increases with each new release of
+Tk, except that it resets to zero whenever the major version number
+changes.
+
+
+<P>
+</DL>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/tkwait.n.html b/Help/tkwait.n.html
new file mode 100644
index 0000000..e8d9adb
--- /dev/null
+++ b/Help/tkwait.n.html
@@ -0,0 +1,33 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - tkwait manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> tkwait</H2>
+<I>Wait for variable to change or window to be destroyed</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>tkwait 'variable </B><I>name</I>)<BR>
+(<B>tkwait 'visibility </B><I>name</I>)<BR>
+(<B>tkwait 'window </B><I>name</I>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>tkwait</B> procedure waits for one of several things to happen,
+then it returns without taking any other actions.
+The return value is always an empty string.
+If the first argument is <B>variable</B> (or any abbreviation of
+it) then the second argument is the name of a global variable and the
+procedure waits for that variable to be modified.
+If the first argument is <B>visibility</B> (or any abbreviation
+of it) then the second argument is the name of a window and the
+<B>tkwait</B> procedure waits for a change in its
+visibility state (as indicated by the arrival of a VisibilityNotify
+event).  This form is typically used to wait for a newly-created
+window to appear on the screen before taking some action.
+If the first argument is <B>window</B> (or any abbreviation
+of it) then the second argument is the name of a window and the
+<B>tkwait</B> procedure waits for that window to be destroyed.
+This form is typically used to wait for a user to finish interacting
+with a dialog box before using the result of that interaction.
+<P>
+While the <B>tkwait</B> procedure is waiting it processes events in
+the normal fashion, so the application will continue to respond
+to user interactions.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/toplevel.n.html b/Help/toplevel.n.html
new file mode 100644
index 0000000..69151f5
--- /dev/null
+++ b/Help/toplevel.n.html
@@ -0,0 +1,160 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - toplevel manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> toplevel</H2>
+<I>Create and manipulate toplevel widgets</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>toplevel</B><I> widget-name </I>?<I>options</I>?)<BR>
+<H3><A NAME="M3">STANDARD OPTIONS</A></H3>
+<PRE>
+<B><A HREF="options.n.html#M:borderwidth">:borderwidth</A></B>                           <B><A HREF="options.n.html#M:cursor">:cursor</A></B> 
+<B><A HREF="options.n.html#M:highlightbackground">:highlightbackground</A></B>                   <B><A HREF="options.n.html#M:highlightcolor">:highlightcolor</A></B> 
+<B><A HREF="options.n.html#M:highlightthickness">:highlightthickness</A></B>                    <B><A HREF="options.n.html#M:relief">:relief</A></B> 
+<B><A HREF="options.n.html#M:takefocus">:takefocus</A></B>                            
+</PRE>
+<H3><A NAME="M11">WIDGET-SPECIFIC OPTIONS</A></H3>
+<DL>
+<P>
+<DT><I>Name</I>:            <B>background</B>
+<DT><I>Class</I>:           <B>Background</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M12">:background</A></B>
+<DT><I>STklos slot name</I>: <B>background</B>
+<DD>This option is the same as the standard <B>background</B> option
+except that its value may also be specified as an empty string.
+In this case, the widget will display no background or border, and
+no colors will be consumed from its colormap for its background
+and border.
+<P>
+<P>
+<DT><I>Name</I>:            <B>class</B>
+<DT><I>Class</I>:           <B>Class</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M13">:class</A></B>
+<DT><I>STklos slot name</I>: <B>class</B>
+<DD>Specifies a class for the window.
+This class will be used when querying the option database for
+the window's other options, and it will also be used later for
+other purposes such as bindings.
+The <B>class</B> option may not be changed with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>colormap</B>
+<DT><I>Class</I>:           <B>Colormap</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M14">:colormap</A></B>
+<DT><I>STklos slot name</I>: <B>colormap</B>
+<DD>Specifies a colormap to use for the window.
+The value may be either <B>new</B>, in which case a new colormap is
+created for the window and its children, or the name of another
+window (which must be on the same screen and have the same visual
+as <I>widget-name</I>), in which case the new window will use the colormap
+from the specified window.
+If the <B>colormap</B> option is not specified, the new window
+uses the default colormap of its screen.
+This option may not be changed with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>height</B>
+<DT><I>Class</I>:           <B>Height</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M15">:height</A></B>
+<DT><I>STklos slot name</I>: <B>height</B>
+<DD>Specifies the desired height for the window in any of the forms
+acceptable to <B>Tk_GetPixels</B>.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+<P>
+<P>
+<DT><I>Name</I>:            <B></B>
+<DT><I>Class</I>:           <B></B>
+<DT><I>Option keyword</I>:  <B><A NAME="M16">:screen</A></B>
+<DT><I>STklos slot name</I>: <B></B>
+<DD>Specifies the screen on which to place the new window.
+Any valid screen name may be used, even one associated with a
+different display.
+Defaults to the same screen as its parent.
+This option is special in that it may not be specified via the option
+database, and it may not be modified with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>visual</B>
+<DT><I>Class</I>:           <B>Visual</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M17">:visual</A></B>
+<DT><I>STklos slot name</I>: <B>visual</B>
+<DD>Specifies visual information for the new window in any of the
+forms accepted by <B>Tk_GetVisual</B>.
+If this option is not specified, the new window will use the default
+visual for its screen.
+The <B>visual</B> option may not be modified with the <B>configure</B>
+widget procedure.
+<P>
+<P>
+<DT><I>Name</I>:            <B>width</B>
+<DT><I>Class</I>:           <B>Width</B>
+<DT><I>Option keyword</I>:  <B><A NAME="M18">:width</A></B>
+<DT><I>STklos slot name</I>: <B>width</B>
+<DD>Specifies the desired width for the window in any of the forms
+acceptable to <B>Tk_GetPixels</B>.
+If this option is less than or equal to zero then the window will
+not request any size at all.
+<P>
+</DL>
+<H3><A NAME="M19">DESCRIPTION</A></H3>
+The <B>toplevel</B> procedure creates a new toplevel widget (given
+by the <I>widget-name</I> argument).  Additional
+options, described above, may be specified on the procedure line
+or in the option database
+to configure aspects of the toplevel such as its background color
+and relief.  The <B>toplevel</B> procedure returns the
+path name of the new window.
+<P>
+A toplevel is similar to a frame except that it is created as a
+top-level window:  its X parent is the root window of a screen
+rather than the logical parent from its path name.  The primary
+purpose of a toplevel is to serve as a container for dialog boxes
+and other collections of widgets.  The only visible features
+of a toplevel are its background color and an optional 3-D border
+to make the toplevel appear raised or sunken.
+
+<H3><A NAME="M20">WIDGET PROCEDURE</A></H3>
+The <B>toplevel</B> procedure creates a new STk procedure whose
+name is the same as the path name of the toplevel's window.  This
+procedure may be used to invoke various
+operations on the widget.  It has the following general form:
+<PRE>(<I>widget-name option </I>?<I>arg arg ...</I>?)</PRE>
+<I>PathName</I> is the name of the procedure, which is the same as
+the toplevel widget's path name.  <I>Option</I> and the <I>arg</I>s
+determine the exact behavior of the procedure.  The following
+procedures are possible for toplevel widgets:
+<P>
+<DL>
+<DT><A NAME="M21">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
+Returns the current value of the configuration option given
+by <I>option</I>.
+<I>Option</I> may have any of the values accepted by the <B>toplevel</B>
+procedure.
+<P>
+<DT><A NAME="M22">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
+Query or modify the configuration options of the widget.
+If no <I>option</I> is specified, returns a list describing all of
+the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
+information on the format of this list).  If <I>option</I> is specified
+with no <I>value</I>, then the procedure returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no <I>option</I> is specified).  If
+one or more <I>option-value</I> pairs are specified, then the procedure
+modifies the given widget option(s) to have the given value(s);  in
+this case the procedure returns an empty string.
+<I>Option</I> may have any of the values accepted by the <B>toplevel</B>
+procedure.
+
+<P>
+</DL>
+<H3><A NAME="M23">BINDINGS</A></H3>
+When a new toplevel is created, it has no default event bindings:
+toplevels are not intended to be interactive.
+
+<H3><A NAME="M24">SEE ALSO</A></H3>
+<B><A HREF="./wm.n.html">wm</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/update.n.html b/Help/update.n.html
new file mode 100644
index 0000000..f4173e0
--- /dev/null
+++ b/Help/update.n.html
@@ -0,0 +1,40 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - update manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> update</H2>
+<I>Process pending events and/or when-idle handlers</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>update</B>)<BR>
+(<B>update</B> '<B>idletasks</B>)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+This procedure is used to bring the entire application world
+``up to date.''
+It flushes all pending output to the display,  waits for the
+server to process that output and return errors or events,
+handles all pending events of any sort (including when-idle handlers),
+and repeats this set of operations until there are no pending
+events, no pending when-idle handlers, no pending output to the server,
+and no operations still outstanding at the server.  
+<P>
+If the <B>idletasks</B> option is specified as an argument to the
+procedure, then no new events or errors are processed;  only when-idle
+idlers are invoked.
+This causes operations that are normally deferred, such as display
+updates and window layout calculations, to be performed immediately.
+<P>
+The <B>update idletasks</B> procedure is useful in scripts where
+changes have been made to the application's state and you want those
+changes to appear on the display immediately, rather than waiting
+for the script to complete.  Most display updates are performed as
+idle handlers, so <B>update idletasks</B> will cause them to run.
+However, there are some kinds of updates that only happen in
+response to events, such as those triggered by window size changes;
+these updates will not occur in <B>update idletasks</B>.
+<P>
+The <B>update</B> procedure with no options is useful in scripts where
+you are performing a long-running computation but you still want
+the application to respond to user interactions;  if you occasionally
+call <B>update</B> then user input will be processed during the
+next call to <B>update</B>.
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/winfo.n.html b/Help/winfo.n.html
new file mode 100644
index 0000000..edcc720
--- /dev/null
+++ b/Help/winfo.n.html
@@ -0,0 +1,319 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - winfo manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> winfo</H2>
+<I>Return window-related information</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>winfo</B> <I>option </I>?<I>arg arg ...</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>winfo</B> procedure is used to retrieve information about windows
+managed by Tk.  It can take any of a number of different forms,
+depending on the <I>option</I> argument.  The legal forms are:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>winfo 'atom </B> <I>name</I>)</A><DD>
+<DT><A NAME="M5">(<B>winfo 'atom </B><B>:displayof </B><I>window</I> <I>name</I>)</A><DD>
+Returns a  the integer identifier for the
+atom whose name is <I>name</I>.  If no atom exists with the name
+<I>name</I> then a new one is created.
+If the <B>:displayof</B> option is given then the atom is looked
+up on the display of <I>window</I>;  otherwise it is looked up on
+the display of the application's main window.
+<P>
+<DT><A NAME="M6">(<B>winfo 'atomname </B> <I>id</I>)</A><DD>
+<DT><A NAME="M7">(<B>winfo 'atomname </B><B>:displayof </B><I>window</I> <I>id</I>)</A><DD>
+Returns the textual name for the atom whose integer identifier is
+<I>id</I>.
+If the <B>:displayof</B> option is given then the identifier is looked
+up on the display of <I>window</I>;  otherwise it is looked up on
+the display of the application's main window.
+This procedure is the inverse of the <B>winfo atom</B> procedure.
+It generates an error if no such atom exists.
+<P>
+<DT><A NAME="M8">(<B>winfo 'cells </B><I>window</I>)</A><DD>
+Returns a decimal string giving the number of cells in the
+color map for <I>window</I>.
+<P>
+<DT><A NAME="M9">(<B>winfo 'children </B><I>window</I>)</A><DD>
+Returns a list containing the path names of all the children
+of <I>window</I>.  Top-level windows are returned as children
+of their logical parents.
+<P>
+<DT><A NAME="M10">(<B>winfo 'class </B><I>window</I>)</A><DD>
+Returns the class name for <I>window</I>.
+<P>
+<DT><A NAME="M11">(<B>winfo 'colormapfull </B><I>window</I>)</A><DD>
+Returns <B>#t</B> if the colormap for <I>window</I> is known to be full, <B>#f</B>
+otherwise.  The colormap for a window is ``known'' to be full if the last
+attempt to allocate a new color on that window failed and this
+application hasn't freed any colors in the colormap since the
+failed allocation.
+<P>
+<DT><A NAME="M12">(<B>winfo 'containing </B> <I>rootX rootY</I>)</A><DD>
+<DT><A NAME="M13">(<B>winfo 'containing </B><B>:displayof </B><I>window</I> <I>rootX rootY</I>)</A><DD>
+Returns the path name for the window containing the point given
+by <I>rootX</I> and <I>rootY</I>.
+<I>RootX</I> and <I>rootY</I> are specified in screen units (i.e.
+any form acceptable to <B>Tk_GetPixels</B>) in the coordinate
+system of the root window (if a virtual-root window manager is in
+use then the coordinate system of the virtual root window is used).
+If the <B>:displayof</B> option is given then the coordinates refer
+to the screen containing <I>window</I>;  otherwise they refer to the
+screen of the application's main window.
+If no window in this application contains the point then an empty
+list is returned.
+In selecting the containing window, children are given higher priority
+than parents and among siblings the highest one in the stacking order is
+chosen.
+<P>
+<DT><A NAME="M14">(<B>winfo 'depth </B><I>window</I>)</A><DD>
+Returns an integer giving the depth of <I>window</I> (number
+of bits per pixel).
+<P>
+<DT><A NAME="M15">(<B>winfo 'exists </B><I>window</I>)</A><DD>
+Returns #t if there exists a window named <I>window</I>, #f if no such
+window exists.
+<P>
+<DT><A NAME="M16">(<B>winfo 'fpixels </B><I>window</I> <I>number</I>)</A><DD>
+Returns a floating-point value giving the number of pixels
+in <I>window</I> corresponding to the distance given by <I>number</I>.
+<I>Number</I> may be specified in any of the forms acceptable
+to <B>Tk_GetScreenMM</B>, such as ``2.0c'' or ``1i''.
+The return value may be fractional;  for an integer value, use
+<B>winfo pixels</B>.
+<P>
+<DT><A NAME="M17">(<B>winfo 'geometry </B><I>window</I>)</A><DD>
+Returns the geometry for <I>window</I>, in the form
+<I>width</I><B>x</B><I>height</I><B>+</B><I>x</I><B>+</B><I>y</I>.  All dimensions are
+in pixels.
+<P>
+<DT><A NAME="M18">(<B>winfo 'height </B><I>window</I>)</A><DD>
+Returns a decimal string giving <I>window</I>'s height in pixels.
+When a window is first created its height will be 1 pixel;  the
+height will eventually be changed by a geometry manager to fulfill
+the window's needs.
+If you need the true height immediately after creating a widget,
+invoke <B><A HREF="./update.n.html">update</A></B> to force the geometry manager to arrange it,
+or use <B>winfo reqheight</B> to get the window's requested height
+instead of its actual height.
+<P>
+<DT><A NAME="M19">(<B>winfo 'id </B><I>window</I>)</A><DD>
+Returns an integer indicating the X identifier for <I>window</I>.
+<P>
+<DT><A NAME="M20">(<B>winfo 'interps </B>)</A><DD>
+<DT><A NAME="M21">(<B>winfo 'interps </B><B>:displayof </B><I>window</I>)</A><DD>
+Returns a list whose members are the names of all STk interpreters
+(e.g. all Tk-based applications) currently registered for
+a particular display.
+If the <B>:displayof</B> option is given then the return value refers
+to the display of <I>window</I>;  otherwise it refers to
+the display of the application's main window.
+<P>
+<DT><A NAME="M22">(<B>winfo 'ismapped </B><I>window</I>)</A><DD>
+Returns <B>#t</B> if <I>window</I> is currently mapped, <B>#f</B> otherwise.
+<P>
+<DT><A NAME="M23">(<B>winfo 'manager </B><I>window</I>)</A><DD>
+Returns the name of the geometry manager currently
+responsible for <I>window</I>, or an empty list if <I>window</I>
+isn't managed by any geometry manager.
+The name is usually the name of the STk procedure for the geometry
+manager, such as <B><A HREF="./pack.n.html">pack</A></B> or <B><A HREF="./place.n.html">place</A></B>.
+If the geometry manager is a widget, such as canvases or text, the
+name is the widget's class procedure, such as <B><A HREF="./canvas.n.html">canvas</A></B>.
+<P>
+<DT><A NAME="M24">(<B>winfo 'name </B><I>window</I>)</A><DD>
+Returns <I>window</I>'s name (i.e. its name within its parent, as opposed
+to its full path name).
+The procedure <B>(winfo name *root*)</B> will return the name of the application.
+<P>
+<DT><A NAME="M25">(<B>winfo 'parent </B><I>window</I>)</A><DD>
+Returns the path name of <I>window</I>'s parent, or an empty list
+if <I>window</I> is the main window of the application.
+<P>
+<DT><A NAME="M26">(<B>winfo 'pathname </B> <I>id</I>)</A><DD>
+<DT><A NAME="M27">(<B>winfo 'pathname </B><B>:displayof </B><I>window</I> <I>id</I>)</A><DD>
+Returns the path name of the window whose X identifier is <I>id</I>.
+<I>Id</I> must be a decimal, hexadecimal, or octal integer and must
+correspond to a window in the invoking application.
+If the <B>:displayof</B> option is given then the identifier is looked
+up on the display of <I>window</I>;  otherwise it is looked up on
+the display of the application's main window.
+<P>
+<DT><A NAME="M28">(<B>winfo 'pixels </B><I>window</I> <I>number</I>)</A><DD>
+Returns the number of pixels in <I>window</I> corresponding
+to the distance given by <I>number</I>.
+<I>Number</I> may be specified in any of the forms acceptable
+to <B>Tk_GetPixels</B>, such as ``2.0c'' or ``1i''.
+The result is rounded to the nearest integer value;  for a
+fractional result, use <B>winfo fpixels</B>.
+<P>
+<DT><A NAME="M29">(<B>winfo 'pointerx </B><I>window</I>)</A><DD>
+If the mouse pointer is on the same screen as <I>window</I>, returns the
+pointer's x coordinate, measured in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position is
+measured in the virtual root.
+If the mouse pointer isn't on the same screen as <I>window</I> then
+-1 is returned.
+<P>
+<DT><A NAME="M30">(<B>winfo 'pointerxy </B><I>window</I>)</A><DD>
+If the mouse pointer is on the same screen as <I>window</I>, returns a list
+with two elements, which are the pointer's x and y coordinates measured
+in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position
+is computed in the virtual root.
+If the mouse pointer isn't on the same screen as <I>window</I> then
+both of the returned coordinates are -1.
+<P>
+<DT><A NAME="M31">(<B>winfo 'pointery </B><I>window</I>)</A><DD>
+If the mouse pointer is on the same screen as <I>window</I>, returns the
+pointer's y coordinate, measured in pixels in the screen's root window.
+If a virtual root window is in use on the screen, the position
+is computed in the virtual root.
+If the mouse pointer isn't on the same screen as <I>window</I> then
+-1 is returned.
+<P>
+<DT><A NAME="M32">(<B>winfo 'reqheight </B><I>window</I>)</A><DD>
+Returns an integer giving <I>window</I>'s requested height,
+in pixels.  This is the value used by <I>window</I>'s geometry
+manager to compute its geometry.
+<P>
+<DT><A NAME="M33">(<B>winfo 'reqwidth </B><I>window</I>)</A><DD>
+Returns an integer giving <I>window</I>'s requested width,
+in pixels.  This is the value used by <I>window</I>'s geometry
+manager to compute its geometry.
+<P>
+<DT><A NAME="M34">(<B>winfo 'rgb </B><I>window color</I>)</A><DD>
+Returns a list containing three decimal values, which are the
+red, green, and blue intensities that correspond to <I>color</I> in
+the window given by <I>window</I>.  <I>Color</I>
+may be specified in any of the forms acceptable for a color
+option.
+<P>
+<DT><A NAME="M35">(<B>winfo 'rootx </B><I>window</I>)</A><DD>
+Returns an integer giving the x-coordinate, in the root
+window of the screen, of the
+upper-left corner of <I>window</I>'s border (or <I>window</I> if it
+has no border).
+<P>
+<DT><A NAME="M36">(<B>winfo 'rooty </B><I>window</I>)</A><DD>
+Returns an integer giving the y-coordinate, in the root
+window of the screen, of the
+upper-left corner of <I>window</I>'s border (or <I>window</I> if it
+has no border).
+<P>
+<DT><A NAME="M37">(<B>winfo 'screen </B><I>window</I>)</A><DD>
+Returns the name of the screen associated with <I>window</I>, in
+the form <I>displayName</I>.<I>screenIndex</I>.
+<P>
+<DT><A NAME="M38">(<B>winfo 'screencells </B><I>window</I>)</A><DD>
+Returns an integer giving the number of cells in the default
+color map for <I>window</I>'s screen.
+<P>
+<DT><A NAME="M39">(<B>winfo 'screendepth </B><I>window</I>)</A><DD>
+Returns an integer giving the depth of the root window
+of <I>window</I>'s screen (number of bits per pixel).
+<P>
+<DT><A NAME="M40">(<B>winfo 'screenheight </B><I>window</I>)</A><DD>
+Returns an integer giving the height of <I>window</I>'s screen,
+in pixels.
+<P>
+<DT><A NAME="M41">(<B>winfo 'screenmmheight </B><I>window</I>)</A><DD>
+Returns an integer giving the height of <I>window</I>'s screen,
+in millimeters.
+<P>
+<DT><A NAME="M42"><B>winfo screenmmwidth </B><I>window</I></A><DD>
+Returns an integer giving the width of <I>window</I>'s screen,
+in millimeters.
+<P>
+<DT><A NAME="M43">(<B>winfo 'screenvisual </B><I>window</I>)</A><DD>
+Returns one of the following symbol to indicate the default visual
+class for <I>window</I>'s screen: <B>directcolor</B>, <B>grayscale</B>,
+<B>pseudocolor</B>, <B>staticcolor</B>, <B>staticgray</B>, or
+<B>truecolor</B>.
+<P>
+<DT><A NAME="M44">(<B>winfo 'screenwidth </B><I>window</I>)</A><DD>
+Returns an integer giving the width of <I>window</I>'s screen,
+in pixels.
+<P>
+<DT><A NAME="M45">(<B>winfo 'server </B><I>window</I>)</A><DD>
+Returns a string containing information about the server for
+<I>window</I>'s display.  The exact format of this string may vary
+from platform to platform.  For X servers the string
+has the form ``<B>X</B><I>major</I><B>R</B><I>minor vendor vendorVersion</I>''
+where <I>major</I> and <I>minor</I> are the version and revision
+numbers provided by the server (e.g., <B>X11R5</B>), <I>vendor</I>
+is the name of the vendor for the server, and <I>vendorRelease</I>
+is an integer release number provided by the server.
+<P>
+<DT><A NAME="M46">(<B>winfo 'toplevel </B><I>window</I>)</A><DD>
+Returns the path name of the top-level window containing <I>window</I>.
+<P>
+<DT><A NAME="M47">(<B>winfo 'viewable </B><I>window</I>)</A><DD>
+Returns <B>#t</B> if <I>window</I> and all of its ancestors up through the
+nearest toplevel window are mapped.  Returns <B>#f</B> if any of these
+windows are not mapped.
+<P>
+<DT><A NAME="M48">(<B>winfo 'visual </B><I>window</I>)</A><DD>
+Returns one of the following strings to indicate the visual
+class for <I>window</I>: <B>directcolor</B>, <B>grayscale</B>,
+<B>pseudocolor</B>, <B>staticcolor</B>, <B>staticgray</B>, or
+<B>truecolor</B>.
+<P>
+<DT><A NAME="M49">(<B>winfo 'visualid </B><I>window</I>)</A><DD>
+Returns the X identifier for the visual for <I>window</I>.
+<P>
+<DT><A NAME="M50">(<B>winfo 'visualsavailable </B><I>window</I>)</A><DD>
+<DT><A NAME="M51">(<B>winfo 'visualsavailable </B><I>window</I> <B>'includeids</B>)</A><DD>
+Returns a list whose elements describe the visuals available for
+<I>window</I>'s screen.
+Each element consists of a visual class followed by an integer depth.
+The class has the same form as returned by <B>winfo visual</B>.
+The depth gives the number of bits per pixel in the visual.
+In addition, if the <B>includeids</B> argument is provided, then the
+depth is followed by the X identifier for the visual.
+<P>
+<DT><A NAME="M52">(<B>winfo 'vrootheight </B><I>window</I>)</A><DD>
+Returns the height of the virtual root window associated with <I>window</I>
+if there is one;  otherwise returns the height of <I>window</I>'s screen.
+<P>
+<DT><A NAME="M53">(<B>winfo 'vrootwidth </B><I>window</I>)</A><DD>
+Returns the width of the virtual root window associated with <I>window</I>
+if there is one;  otherwise returns the width of <I>window</I>'s screen.
+<P>
+<DT><A NAME="M54">(<B>winfo 'vrootx </B><I>window</I>)</A><DD>
+Returns the x-offset of the virtual root window associated with <I>window</I>,
+relative to the root window of its screen.
+This is normally either zero or negative.
+Returns 0 if there is no virtual root window for <I>window</I>.
+<P>
+<DT><A NAME="M55">(<B>winfo 'vrooty </B><I>window</I>)</A><DD>
+Returns the y-offset of the virtual root window associated with <I>window</I>,
+relative to the root window of its screen.
+This is normally either zero or negative.
+Returns 0 if there is no virtual root window for <I>window</I>.
+<P>
+<DT><A NAME="M56">(<B>winfo 'width </B><I>window</I>)</A><DD>
+Returns an integer giving <I>window</I>'s width in pixels.
+When a window is first created its width will be 1 pixel;  the
+width will eventually be changed by a geometry manager to fulfill
+the window's needs.
+If you need the true width immediately after creating a widget,
+invoke <B><A HREF="./update.n.html">update</A></B> to force the geometry manager to arrange it,
+or use <B>winfo reqwidth</B> to get the window's requested width
+instead of its actual width.
+<P>
+<DT><A NAME="M57">(<B>winfo 'x </B><I>window</I>)</A><DD>
+Returns an integer giving the x-coordinate, in <I>window</I>'s
+parent, of the
+upper-left corner of <I>window</I>'s border (or <I>window</I> if it
+has no border).
+<P>
+<DT><A NAME="M58">(<B>winfo 'y </B><I>window</I>)</A><DD>
+Returns an integer giving the y-coordinate, in <I>window</I>'s
+parent, of the
+upper-left corner of <I>window</I>'s border (or <I>window</I> if it
+has no border).
+<P>
+</DL>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/Help/wm.n.html b/Help/wm.n.html
new file mode 100644
index 0000000..de30229
--- /dev/null
+++ b/Help/wm.n.html
@@ -0,0 +1,507 @@
+<HTML><HEAD><TITLE>Tk Built-In Commands - wm manual page</TITLE></HEAD>
+<BODY bgcolor = #c3c3ff>
+<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageBlue.gif"> wm</H2>
+<I>Communicate with window manager</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<H3><A NAME="M2">SYNOPSIS</A></H3>
+(<B>wm</B> <I>option window </I>?<I>args</I>?)<BR>
+<H3><A NAME="M3">DESCRIPTION</A></H3>
+The <B>wm</B> procedure is used to interact with window managers in
+order to control such things as the title for a window, its geometry,
+or the increments in terms of which it may be resized.  The <B>wm</B>
+procedure can take any of a number of different forms, depending on
+the <I>option</I> argument.  All of the forms expect at least one
+additional argument, <I>window</I>, which must be the path name of a
+top-level window.
+<P>
+The legal forms for the <B>wm</B> procedure are:
+<P>
+<DL>
+<DT><A NAME="M4">(<B>wm 'aspect </B><I>window</I> ?<I>minNumer minDenom maxNumer maxDenom</I>?)</A><DD>
+If <I>minNumer</I>, <I>minDenom</I>, <I>maxNumer</I>, and <I>maxDenom</I>
+are all specified, then they will be passed to the window manager
+and the window manager should use them to enforce a range of
+acceptable aspect ratios for <I>window</I>.  The aspect ratio of
+<I>window</I> (width/length) will be constrained to lie
+between <I>minNumer</I>/<I>minDenom</I> and <I>maxNumer</I>/<I>maxDenom</I>.
+If <I>minNumer</I> etc. are all specified as empty strings, then
+any existing aspect ratio restrictions are removed.
+If <I>minNumer</I> etc. are specified, then the procedure returns an
+empty list.  Otherwise, it returns
+a STk list containing four elements, which are the current values
+of <I>minNumer</I>, <I>minDenom</I>, <I>maxNumer</I>, and <I>maxDenom</I>
+(if no aspect restrictions are in effect, then an empty list is
+returned).
+<P>
+<DT><A NAME="M5">(<B>wm 'client </B><I>window</I>)</A><DD>
+<DT><A NAME="M6">(<B>wm 'client </B><I>window</I> <I>name</I>)</A><DD>
+If <I>name</I> is specified, this procedure stores <I>name</I> (which
+should be the name of
+the host on which the application is executing) in <I>window</I>'s
+<B>WM_CLIENT_MACHINE</B> property for use by the window manager or
+session manager.
+The procedure returns an empty list in this case.
+If <I>name</I> isn't specified, the procedure returns the last name
+set in a <B>wm client</B> procedure for <I>window</I>.
+If <I>name</I> is specified as an empty string, the procedure deletes the
+<B>WM_CLIENT_MACHINE</B> property from <I>window</I>.
+<P>
+<DT><A NAME="M7">(<B>wm 'colormapwindows </B><I>window</I>)</A><DD>
+<DT><A NAME="M8">(<B>wm 'colormapwindows </B><I>window</I> <I>windowList</I>)</A><DD>
+This procedure is used to manipulate the <B>WM_COLORMAP_WINDOWS</B>
+property, which provides information to the window managers about
+windows that have private colormaps.
+If <I>windowList</I> isn't specified, the procedure returns a list
+whose elements are the names of the windows in the <B>WM_COLORMAP_WINDOWS</B>
+property.
+If <I>windowList</I> is specified, it consists of a list of window
+path names;  the procedure overwrites the <B>WM_COLORMAP_WINDOWS</B>
+property with the given windows and returns an empty list.
+The <B>WM_COLORMAP_WINDOWS</B> property should normally contain a
+list of the internal windows within <I>window</I> whose colormaps differ
+from their parents.
+The order of the windows in the property indicates a priority order:
+the window manager will attempt to install as many colormaps as possible
+from the head of this list when <I>window</I> gets the colormap focus.
+If <I>window</I> is not included among the windows in <I>windowList</I>,
+Tk implicitly adds it at the end of the <B>WM_COLORMAP_WINDOWS</B>
+property, so that its colormap is lowest in priority.
+If <B>wm colormapwindows</B> is not invoked, Tk will automatically set
+the property for each top-level window to all the internal windows
+whose colormaps differ from their parents, followed by the top-level
+itself;  the order of the internal windows is undefined.
+See the ICCCM documentation for more information on the
+<B>WM_COLORMAP_WINDOWS</B> property.
+<P>
+<DT><A NAME="M9">(<B>wm 'command </B><I>window</I>)</A><DD>
+<DT><A NAME="M10">(<B>wm 'command </B><I>window</I> <I>value</I>)</A><DD>
+If <I>value</I> is specified, this procedure stores <I>value</I> in <I>window</I>'s
+<B>WM_COMMAND</B> property for use by the window manager or
+session manager and returns an empty list.
+<I>Value</I> must have proper list structure;  the elements should
+contain the words of the procedure used to invoke the application.
+If <I>value</I> isn't specified then the procedure returns the last value
+set in a <B>wm procedure</B> command for <I>window</I>.
+If <I>value</I> is specified as an empty string, the procedure
+deletes the <B>WM_COMMAND</B> property from <I>window</I>.
+<P>
+<DT><A NAME="M11">(<B>wm 'deiconify </B><I>window</I>)</A><DD>
+Arrange for <I>window</I> to be displayed in normal (non-iconified) form.
+This is done by mapping the window.  If the window has never been
+mapped then this procedure will not map the window, but it will ensure
+that when the window is first mapped it will be displayed
+in de-iconified form.  Returns an empty list.
+<P>
+<DT><A NAME="M12">(<B>wm 'focusmodel </B><I>window</I>)</A><DD>
+<DT><A NAME="M13">(<B>wm 'focusmodel </B><I>window</I> '<B>active</B>)</A><DD>
+<DT><A NAME="M14">(<B>wm 'focusmodel </B><I>window</I> '<B>passive</B>)</A><DD>
+If <B>active</B> or <B>passive</B> is supplied as an optional argument
+to the procedure, then it specifies the focus model for <I>window</I>.
+In this case the procedure returns an empty list.  If no additional
+argument is supplied, then the procedure returns the current focus
+model for <I>window</I>.
+An <B>active</B> focus model means that <I>window</I> will claim the
+input focus for itself or its descendants, even at times when
+the focus is currently in some other application.  <B>Passive</B> means that
+<I>window</I> will never claim the focus for itself:  the window manager
+should give the focus to <I>window</I> at appropriate times.  However,
+once the focus has been given to <I>window</I> or one of its descendants,
+the application may re-assign the focus among <I>window</I>'s descendants.
+The focus model defaults to <B>passive</B>, and Tk's <B><A HREF="./focus.n.html">focus</A></B> procedure
+assumes a passive model of focussing.
+<P>
+<DT><A NAME="M15">(<B>wm 'frame </B><I>window</I>)</A><DD>
+If <I>window</I> has been reparented by the window manager into a
+decorative frame, the procedure returns the X window identifier for
+the outermost frame that contains <I>window</I> (the window whose
+parent is the root or virtual root).  If <I>window</I> hasn't been
+reparented by the window manager then the procedure returns the
+X window identifier for <I>window</I>.
+<P>
+<DT><A NAME="M16">(<B>wm 'geometry </B><I>window</I>)</A><DD>
+<DT><A NAME="M17">(<B>wm 'geometry </B><I>window</I> <I>newGeometry</I>)</A><DD>
+If <I>newGeometry</I> is specified, then the geometry of <I>window</I>
+is changed and an empty list is returned.  Otherwise the current
+geometry for <I>window</I> is returned (this is the most recent
+geometry specified either by manual resizing or
+in a <B>wm geometry</B> procedure).  <I>NewGeometry</I> has
+the form &quot;<B>=</B><I>width</I><B>x</B><I>height</I><B>&#177;</B><I>x</I><B>&#177;</B><I>y</I>&quot;, where
+any of <B>=</B>, <I>width</I><B>x</B><I>height</I>, or <B>&#177;</B><I>x</I><B>&#177;</B><I>y</I>
+may be omitted.  <I>Width</I> and <I>height</I> are positive integers
+specifying the desired dimensions of <I>window</I>.  If <I>window</I>
+is gridded (see GRIDDED GEOMETRY MANAGEMENT below) then the dimensions
+are specified in grid units;  otherwise they are specified in pixel
+units.  <I>X</I> and <I>y</I> specify the desired location of
+<I>window</I> on the screen, in pixels.
+If <I>x</I> is preceded by <B>+</B>, it specifies
+the number of pixels between the left edge of the screen and the left
+edge of <I>window</I>'s border;  if preceded by <B>:</B> then
+<I>x</I> specifies the number of pixels
+between the right edge of the screen and the right edge of <I>window</I>'s
+border.  If <I>y</I> is preceded by <B>+</B> then it specifies the
+number of pixels between the top of the screen and the top
+of <I>window</I>'s border;  if <I>y</I> is preceded by <B>:</B> then
+it specifies the number of pixels between the bottom of <I>window</I>'s
+border and the bottom of the screen.
+If <I>newGeometry</I> is specified as an empty string then any
+existing user-specified geometry for <I>window</I> is cancelled, and
+the window will revert to the size requested internally by its
+widgets.
+<P>
+<DT><A NAME="M18">(<B>wm 'grid </B><I>window</I>)</A><DD>
+<DT><A NAME="M19">(<B>wm 'grid </B><I>window</I> <I>baseWidth baseHeight widthInc heightInc</I>)</A><DD>
+This procedure indicates that <I>window</I> is to be managed as a
+gridded window.
+It also specifies the relationship between grid units and pixel units.
+<I>BaseWidth</I> and <I>baseHeight</I> specify the number of grid
+units corresponding to the pixel dimensions requested internally
+by <I>window</I> using <B>Tk_GeometryRequest</B>.  <I>WidthInc</I>
+and <I>heightInc</I> specify the number of pixels in each horizontal
+and vertical grid unit.
+These four values determine a range of acceptable sizes for
+<I>window</I>, corresponding to grid-based widths and heights
+that are non-negative integers.
+Tk will pass this information to the window manager;  during
+manual resizing, the window manager will restrict the window's size
+to one of these acceptable sizes.
+Furthermore, during manual resizing the window manager will display
+the window's current size in terms of grid units rather than pixels.
+If <I>baseWidth</I> etc. are all specified as empty strings, then
+<I>window</I> will no longer be managed as a gridded window.  If
+<I>baseWidth</I> etc. are specified then the return value is an
+empty list.
+Otherwise the return value is a STk list containing
+four elements corresponding to the current <I>baseWidth</I>,
+<I>baseHeight</I>, <I>widthInc</I>, and <I>heightInc</I>;  if
+<I>window</I> is not currently gridded, then <B>#f</B>
+is returned.
+Note: this procedure should not be needed very often, since the
+<B>Tk_SetGrid</B> library procedure and the <B>setGrid</B> option
+provide easier access to the same functionality.
+<P>
+<DT><A NAME="M20">(<B>wm 'group </B><I>window</I>)</A><DD>
+<DT><A NAME="M21">(<B>wm 'group </B><I>window</I> <I>widget-name</I>)</A><DD>
+If <I>widget-name</I> is specified, it gives the path name for the leader of
+a group of related windows.  The window manager may use this information,
+for example, to unmap all of the windows in a group when the group's
+leader is iconified.  <I>PathName</I> may be specified as <B>#f</B> to
+remove <I>window</I> from any group association.  If <I>widget-name</I> is
+specified then the procedure returns an empty list;  otherwise it
+returns the path name of <I>window</I>'s current group leader, or <B>#f</B>
+if <I>window</I> isn't part of any group.
+<P>
+<DT><A NAME="M22">(<B>wm 'iconbitmap </B><I>window</I>)</A><DD>
+<DT><A NAME="M23">(<B>wm 'iconbitmap </B><I>window</I> <I>bitmap</I>)</A><DD>
+If <I>bitmap</I> is specified, then it names a bitmap in the standard
+forms accepted by Tk (see the <B>Tk_GetBitmap</B> manual entry for details).
+This bitmap is passed to the window manager to be displayed in
+<I>window</I>'s icon, and the procedure returns an empty list.  If
+<B>#f</B> is specified for <I>bitmap</I>, then any current icon
+bitmap is cancelled for <I>window</I>.
+If <I>bitmap</I> is specified then the procedure returns an empty list.
+Otherwise it returns the name of
+the current icon bitmap associated with <I>window</I>, or <B>#f</B>
+string if <I>window</I> has no icon bitmap.
+<P>
+<DT><A NAME="M24">(<B>wm 'iconify </B><I>window</I>)</A><DD>
+Arrange for <I>window</I> to be iconified.  It <I>window</I> hasn't
+yet been mapped for the first time, this procedure will arrange for
+it to appear in the iconified state when it is eventually mapped.
+<P>
+<DT><A NAME="M25">(<B>wm 'iconmask </B><I>window</I>)</A><DD>
+<DT><A NAME="M26">(<B>wm 'iconmask </B><I>window</I> <I>bitmap</I>)</A><DD>
+If <I>bitmap</I> is specified, then it names a bitmap in the standard
+forms accepted by Tk (see the <B>Tk_GetBitmap</B> manual entry for details).
+This bitmap is passed to the window manager to be used as a mask
+in conjunction with the <B>iconbitmap</B> option:  where the mask
+has zeroes no icon will be displayed;  where it has ones, the bits
+from the icon bitmap will be displayed.  If
+<B>#f</B> is specified for <I>bitmap</I> then any current icon
+mask is cancelled for <I>window</I> (this is equivalent to specifying
+a bitmap of all ones).  If <I>bitmap</I> is specified
+then the procedure returns an empty string.  Otherwise it
+returns the name of the current icon mask associated with
+<I>window</I>, or <B>#f</B> if no mask is in effect.
+<P>
+<DT><A NAME="M27">(<B>wm 'iconname </B><I>window</I>)</A><DD>
+<DT><A NAME="M28">(<B>wm 'iconname </B><I>window</I> <I>newName</I>)</A><DD>
+If <I>newName</I> is specified, then it is passed to the window
+manager;  the window manager should display <I>newName</I> inside
+the icon associated with <I>window</I>.  In this case an empty
+list is returned as result.  If <I>newName</I> isn't specified
+then the procedure returns the current icon name for <I>window</I>,
+or an empty string if no icon name has been specified (in this
+case the window manager will normally display the window's title,
+as specified with the <B>wm title</B> procedure).
+<P>
+<DT><A NAME="M29">(<B>wm 'iconposition </B><I>window</I>)</A><DD>
+<DT><A NAME="M30">(<B>wm 'iconposition </B><I>window</I> <I>x y</I>)</A><DD>
+If <I>x</I> and <I>y</I> are specified, they are passed to the window
+manager as a hint about where to position the icon for <I>window</I>.
+In this case an empty list is returned.  If <I>x</I> and <I>y</I> are
+specified as <B>#f</B> then any existing icon position hint is cancelled.
+If neither <I>x</I> nor <I>y</I> is specified, then the procedure returns
+a list containing two values, which are the current icon position
+hints (if no hints are in effect then <B>#f</B> list is returned).
+<P>
+<DT><A NAME="M31">(<B>wm 'iconwindow </B><I>window</I>)</A><DD>
+<DT><A NAME="M32">(<B>wm 'iconwindow </B><I>window</I> <I>widget-name</I>)</A><DD>
+If <I>widget-name</I> is specified, it is the path name for a window to
+use as icon for <I>window</I>: when <I>window</I> is iconified then
+<I>widget-name</I> will be mapped to serve as icon, and when <I>window</I>
+is de-iconified then <I>widget-name</I> will be unmapped again.  If
+<I>widget-name</I> is specified as <B>#f</B> then any existing
+icon window association for <I>window</I> will be cancelled.  If
+the <I>widget-name</I> argument is specified then an empty list is
+returned.  Otherwise the procedure returns the path name of the
+current icon window for <I>window</I>, or <B>#f</B> if there
+is no icon window currently specified for <I>window</I>.
+Button press events are disabled for <I>window</I> as long as it is
+an icon window;  this is needed in order to allow window managers
+to ``own'' those events.
+Note: not all window managers support the notion of an icon window.
+<P>
+<DT><A NAME="M33">(<B>wm 'maxsize </B><I>window</I>)</A><DD>
+<DT><A NAME="M34">(<B>wm 'maxsize </B><I>window</I> <I>width height</I>)</A><DD>
+If <I>width</I> and <I>height</I> are specified, they give
+the maximum permissible dimensions for <I>window</I>.
+For gridded windows the dimensions are specified in
+grid units;  otherwise they are specified in pixel units.
+The window manager will restrict the window's dimensions to be
+less than or equal to <I>width</I> and <I>height</I>.
+If <I>width</I> and <I>height</I> are
+specified, then the procedure returns an empty string.  Otherwise
+it returns a list with two elements, which are the
+maximum width and height currently in effect.
+The maximum size defaults to the size of the screen.
+If resizing has been disabled with the <B>wm resizable</B> procedure,
+then this procedure has no effect.
+See the sections on geometry management below for more information.
+<P>
+<DT><A NAME="M35">(<B>wm 'minsize </B><I>window</I>)</A><DD>
+<DT><A NAME="M36">(<B>wm 'minsize </B><I>window</I> <I>width height</I>)</A><DD>
+If <I>width</I> and <I>height</I> are specified, they give the
+minimum permissible dimensions for <I>window</I>.
+For gridded windows the dimensions are specified in
+grid units;  otherwise they are specified in pixel units.
+The window manager will restrict the window's dimensions to be
+greater than or equal to <I>width</I> and <I>height</I>.
+If <I>width</I> and <I>height</I> are
+specified, then the procedure returns an empty string.  Otherwise
+it returns a list with two elements, which are the
+minimum width and height currently in effect.
+The minimum size defaults to one pixel in each dimension.
+If resizing has been disabled with the <B>wm resizable</B> procedure,
+then this procedure has no effect.
+See the sections on geometry management below for more information.
+<P>
+<DT><A NAME="M37">(<B>wm 'overrideredirect </B><I>window</I>)</A><DD>
+<DT><A NAME="M38">(<B>wm 'overrideredirect </B><I>window</I> <I>boolean</I>)</A><DD>
+If <I>boolean</I> is specified, it must have a proper boolean form and
+the override-redirect flag for <I>window</I> is set to that value.
+If <I>boolean</I> is not specified then <B>#t</B> or <B>#f</B> is
+returned to indicate whether or not the override-redirect flag
+is currently set for <I>window</I>.
+Setting the override-redirect flag for a window causes
+it to be ignored by the window manager;  among other things, this means
+that the window will not be reparented from the root window into a
+decorative frame and the user will not be able to manipulate the
+window using the normal window manager mechanisms.
+<P>
+<DT><A NAME="M39">(<B>wm 'positionfrom </B><I>window</I>)</A><DD>
+<DT><A NAME="M40">(<B>wm 'positionfrom </B><I>window</I> <I>who</I>)</A><DD>
+If <I>who</I> is specified, it must be <B>program</B>,
+<B>user</B> (or an abbreviation of one of these two), or <B>#f</B>.
+It indicates
+whether <I>window</I>'s current position was requested by the
+program or by the user.  Many window managers ignore program-requested
+initial positions and ask the user to manually position the window;  if
+<B>user</B> is specified then the window manager should position the
+window at the given place without asking the user for assistance.
+If <I>who</I> is specified as <B>#f</B>, then the current position
+source is cancelled.
+If <I>who</I> is specified, then the procedure returns an empty list.
+Otherwise it returns <B>user</B> or <B>window</B> to indicate the
+source of the window's current position, or <B>#F</B> if
+no source has been specified yet.  Most window managers interpret
+``no source'' as equivalent to <B>program</B>.
+Tk will automatically set the position source to <B>user</B>
+when a <B>wm geometry</B> procedure is invoked, unless the source has
+been set explicitly to <B>program</B>.
+<P>
+<DT><A NAME="M41">(<B>wm 'protocol </B><I>window</I> ?<I>name</I>? ?<I>procedure</I>?)</A><DD>
+This procedure is used to manage window manager protocols such as
+<B>WM_DELETE_WINDOW</B>.
+<I>Name</I> is the name of an atom corresponding to a window manager
+protocol, such as <B>WM_DELETE_WINDOW</B> or <B>WM_SAVE_YOURSELF</B>
+or <B>WM_TAKE_FOCUS</B>.
+If both <I>name</I> and <I>procedure</I> are specified, then <I>procedure</I>
+is associated with the protocol specified by <I>name</I>.
+<I>Name</I> will be added to <I>window</I>'s <B>WM_PROTOCOLS</B>
+property to tell the window manager that the application has a
+protocol handler for <I>name</I>, and <I>procedure</I> will
+be invoked in the future whenever the window manager sends a
+message to the client for that protocol.
+In this case the procedure returns an empty list.
+If <I>name</I> is specified but <I>procedure</I> isn't, then the current
+procedure for <I>name</I> is returned, or an empty list if there
+is no handler defined for <I>name</I>.
+If <I>procedure</I> is specified as an empty string then the current
+handler for <I>name</I> is deleted and it is removed from the
+<B>WM_PROTOCOLS</B> property on <I>window</I>;  an empty string is
+returned.
+Lastly, if neither <I>name</I> nor <I>procedure</I> is specified, the
+procedure returns a list of all the protocols for which handlers
+are currently defined for <I>window</I>.
+<P>
+<UL>
+<P>
+Tk always defines a protocol handler for <B>WM_DELETE_WINDOW</B>, even if
+you haven't asked for one with <B>wm protocol</B>.
+If a <B>WM_DELETE_WINDOW</B> message arrives when you haven't defined
+a handler, then Tk handles the message by destroying the window for
+which it was received.
+</UL>
+<DT><A NAME="M42">(<B>wm 'resizable </B><I>window</I>)</A><DD>
+<DT><A NAME="M43">(<B>wm 'resizable </B><I>window</I> <I>width height</I>)</A><DD>
+This procedure controls whether or not the user may interactively
+resize a top-level window.  If <I>width</I> and <I>height</I> are
+specified, they are boolean values that determine whether the
+width and height of <I>window</I> may be modified by the user.
+In this case the procedure returns an empty string.
+If <I>width</I> and <I>height</I> are omitted then the procedure
+returns a list with two boolean elements that indicate whether the
+width and height of <I>window</I> are currently resizable.
+By default, windows are resizable in both dimensions.
+If resizing is disabled, then the window's size will be the size
+from the most recent interactive resize or <B>wm geometry</B>
+procedure.  If there has been no such operation then
+the window's natural size will be used.
+<P>
+<DT><A NAME="M44">(<B>wm 'sizefrom </B><I>window</I>)</A><DD>
+<DT><A NAME="M45">(<B>wm 'sizefrom </B><I>window</I> <I>who</I>)</A><DD>
+If <I>who</I> is specified, it must be <B>program</B>
+<B>user</B> (or an abbreviation of one of these two) or <B>#f</B> .  It indicates
+whether <I>window</I>'s current size was requested by the
+program or by the user.  Some window managers ignore program-requested
+sizes and ask the user to manually size the window;  if
+<B>user</B> is specified then the window manager should give the
+window its specified size without asking the user for assistance.
+If <I>who</I> is specified as <B>#f</B>, then the current size
+source is cancelled.
+If <I>who</I> is specified, then the procedure returns an empty string.
+Otherwise it returns <B>user</B> or <B>window</B> to indicate the
+source of the window's current size, or <B>#f</B> if
+no source has been specified yet.  Most window managers interpret
+``no source'' as equivalent to <B>program</B>.
+<P>
+<DT><A NAME="M46">(<B>wm 'state </B><I>window</I>)</A><DD>
+Returns the current state of <I>window</I>:  either &quot;<B>normal</B>&quot;,
+&quot;<B>iconic</B>&quot;, or &quot;<B>withdrawn</B>&quot;.
+<P>
+<DT><A NAME="M47">(<B>wm 'title </B><I>window</I>)</A><DD>
+<DT><A NAME="M48">(<B>wm 'title </B><I>window</I> <I>string</I>)</A><DD>
+If <I>string</I> is specified, then it will be passed to the window
+manager for use as the title for <I>window</I> (the window manager
+should display this string in <I>window</I>'s title bar).  In this
+case the procedure returns an empty list.  If <I>string</I> isn't
+specified then the procedure returns the current title for the
+<I>window</I>.  The title for a window defaults to its name.
+<P>
+<DT><A NAME="M49">(<B>wm 'transient </B><I>window</I>)</A><DD>
+<DT><A NAME="M50">(<B>wm 'transient </B><I>window</I> <I>master</I>)</A><DD>
+If <I>master</I> is specified, then the window manager is informed
+that <I>window</I> is a transient window (e.g. pull-down menu) working
+on behalf of <I>master</I> (where <I>master</I> is the
+path name for a top-level window).  Some window managers will use
+this information to manage <I>window</I> specially.  If <I>master</I>
+is specified as <B>#f</B> then <I>window</I> is marked as not
+being a transient window any more.  If <I>master</I> is specified,
+then the procedure returns an empty list.  Otherwise the procedure
+returns the path name of <I>window</I>'s current master, or 
+<B>#f</B> if <I>window</I> isn't currently a transient window.
+<P>
+<DT><A NAME="M51">(<B>wm 'withdraw </B><I>window</I>)</A><DD>
+Arranges for <I>window</I> to be withdrawn from the screen.  This
+causes the window to be unmapped and forgotten about by the window
+manager.  If the window
+has never been mapped, then this procedure
+causes the window to be mapped in the withdrawn state.  Not all
+window managers appear to know how to handle windows that are
+mapped in the withdrawn state.
+Note: it sometimes seems to be necessary to withdraw a
+window and then re-map it (e.g. with <B>wm deiconify</B>) to get some
+window managers to pay attention to changes in window attributes
+such as group.
+
+<P>
+</DL>
+<H3><A NAME="M52">GEOMETRY MANAGEMENT</A></H3>
+By default a top-level window appears on the screen in its
+<I>natural size</I>, which is the one determined internally by its
+widgets and geometry managers.
+If the natural size of a top-level window changes, then the window's size
+changes to match.
+A top-level window can be given a size other than its natural size in two ways.
+First, the user can resize the window manually using the facilities
+of the window manager, such as resize handles.
+Second, the application can request a particular size for a
+top-level window using the <B>wm geometry</B> procedure.
+These two cases are handled identically by Tk;  in either case,
+the requested size overrides the natural size.
+You can return the window to its natural by invoking <B>wm geometry</B>
+with an empty <I>geometry</I> string.
+<P>
+Normally a top-level window can have any size from one pixel in each
+dimension up to the size of its screen.
+However, you can use the <B>wm minsize</B> and <B>wm maxsize</B> procedures
+to limit the range of allowable sizes.
+The range set by <B>wm minsize</B> and <B>wm maxsize</B> applies to
+all forms of resizing, including the window's natural size as
+well as manual resizes and the <B>wm geometry</B> procedure.
+You can also use the procedure <B>wm resizable</B> to completely
+disable interactive resizing in one or both dimensions.
+
+<H3><A NAME="M53">GRIDDED GEOMETRY MANAGEMENT</A></H3>
+Gridded geometry management occurs when one of the widgets of an
+application supports a range of useful sizes.
+This occurs, for example, in a text editor where the scrollbars,
+menus, and other adornments are fixed in size but the edit widget
+can support any number of lines of text or characters per line.
+In this case, it is usually desirable to let the user specify the
+number of lines or characters-per-line, either with the
+<B>wm geometry</B> procedure or by interactively resizing the window.
+In the case of text, and in other interesting cases also, only
+discrete sizes of the window make sense, such as integral numbers
+of lines and characters-per-line;  arbitrary pixel sizes are not useful.
+<P>
+Gridded geometry management provides support for this kind of
+application.
+Tk (and the window manager) assume that there is a grid of some
+sort within the application and that the application should be
+resized in terms of <I>grid units</I> rather than pixels.
+Gridded geometry management is typically invoked by turning on
+the <B>setGrid</B> option for a widget;  it can also be invoked
+with the <B>wm grid</B> procedure or by calling <B>Tk_SetGrid</B>.
+In each of these approaches the particular widget (or sometimes
+code in the application as a whole) specifies the relationship between 
+integral grid sizes for the window and pixel sizes.
+To return to non-gridded geometry management, invoke
+<B>wm grid</B> with empty argument strings.
+<P>
+When gridded geometry management is enabled then all the dimensions specified
+in <B>wm minsize</B>, <B>wm maxsize</B>, and <B>wm geometry</B> procedures
+are treated as grid units rather than pixel units.
+Interactive resizing is also carried out in even numbers of grid units
+rather than pixels.
+
+<H3><A NAME="M54">BUGS</A></H3>
+Most existing window managers appear to have bugs that affect the
+operation of the <B>wm</B> procedure.  For example, some changes won't
+take effect if the window is already active:  the window will have
+to be withdrawn and de-iconified in order to make the change happen.
+
+<H3><A NAME="M55">SEE ALSO</A></H3>
+<B><A HREF="./toplevel.n.html">toplevel</A></B>
+<P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
+<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
+</BODY></HTML>
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..2225f8d
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,180 @@
+		    +----------------------------+
+		    | STk 3.1 Installation notes |
+		    +----------------------------+
+
+
+IMPORTANT NOTE - IMPORTANT NOTE - IMPORTANT NOTE
+------------------------------------------------
+|  
+|  STk bignums are implemented with the GNU mp APIs. This library provides a 
+|  VERY EFFICIENT implementation of multiple precision numbers. This library 
+|  is placed under the GNU GENERAL PUBLIC LICENSE. However, to avoid to fall 
+|  under the restrictive GPL terms you can use the FGMP package (FGMP is a 
+|  public domain implementation of a subset of the GNU gmp library with the
+|  same API, written by Mark Henderson <markh@wimsey.bc.ca>). This package 
+|  has the advantage to be totally *FREE*, and the disadventage to be *SLOW*.
+|  
+|  So, if your concern is speed, and if the GPL is not a problem for you, 
+|  use the Gnu package.
+|
+|  Both package are in the distribution file. You don't need to ftp them.
+|
+---------------------------------------------------------------------
+END OF IMPORTANT NOTE - END OF IMPORTANT NOTE - END OF IMPORTANT NOTE
+
+
+To install this package:
+
+*** 1. Configure the package for your system.
+
+In the directory  that this file is in, type 
+
+	$ /bin/sh ./configure
+
+This line runs the `configure' shell script. This script attempts to
+guess correct values for various system-dependent variables used
+during compilation, and creates various files necessary for package
+building.
+
+Default configuration will compile the package with the the "gcc"
+compiler and the "-O2" option. This can be changed by changing the
+default value of the CC and CFLAGS shell variables. For instance:
+	
+	 $ /bin/sh -c 'CC=another-cc CFLAGS="-O2 -g" ./configure'
+
+will configure the package to use the "another-cc" compiler with
+options "-O2" and "-g".
+
+By default, `make install' will install the package's files in
+/usr/local/bin, /usr/local/lib, /usr/local/man, etc.  You can specify
+an installation prefix other than /usr/local by giving `configure' the
+option `--prefix=PATH'. For instance to place everything in the
+directory whose name is 'another/place' You'll have to type
+
+	$ /bin/sh configure --prefix=/another/place
+
+By default STk is compiled with the Gnu MP library. If using GNU
+software is a problem for you you can specify to use the FGMP package
+with the '--with-fgmp' option. Example:
+	
+	$ /bin/sh configure --prefix=/another/place --with-fgmp
+
+Several features can also specified at configuration time. To enable
+the feature XXX you'll have to specify the '--enable-XXX'. Of course,
+'--disable-XXX' permits to disable an option which is enabled by
+default. The following table gives the list of possible features
+available when compiling STk and their default value.
+
+  ________________________________________________________________
+  | XXX		| Default |					  |
+  |		|  value  |					  |
+  |=============|=========|=======================================|
+  | hash	| enabled | Compile support for hash tables	  |
+  |-------------|-------------------------------------------------|
+  | stklos	| enabled | Compile support for stklos (requires  |
+  |		|	  | hash tables)			  |
+  |-------------|---------|---------------------------------------|
+  | socket	| enabled | Compile support for sockets.	  |
+  |-------------|-------------------------------------------------|
+  | dynload	| depends | Specifies if STk uses dynamic loading |
+  |		|	  | for extensions. By default, dynamic	  |
+  |		|	  | loading is enabled for systems which  |
+  |		|	  | support it (and for which support has |    
+  |		|	  | been integrated into the interpreter  |
+  |		|	  | This option permit to change this	  |
+  |		|	  | default value.			  |
+  |		|	  | See below for systems for which	  |
+  |		|	  | dynamic loading support exists	  |
+  |-------------|-------------------------------------------------|
+  | elf		| depends | Use it to enable or disable ELF	  |
+  |		|	  | dynamic loading on Linux system.	  |
+  |		|	  | Default value is choosen by the	  |
+  |		|	  | configure script. If this value is	  |
+  |		|	  | incorrect, use this option to toggle  |
+  |		|	  | it. This option works only on Linux	  |
+  |		|	  | systems				  |
+  |-------------|-------------------------------------------------|
+  | pixmap	[ enabled | Add pixmap support for Tk images	  |
+  |		|	  | Use --with-pixmap=XXX if configure	  |
+  |		|	  | can't locate your Xpm library. XXX	  |
+  |		|	  | is the linking option you need for	  |
+  |		|	  | using pixmaps. For example,		  |
+  |		|	  |   -with-pixmap='-L/home/X11 -lXpm'	  |
+  |-------------|-------------------------------------------------|
+  | html	| enabled | Compile support for html		  |
+  |-------------|-------------------------------------------------|
+  | dld		| disabled| Use it to enable synamic loading using|
+  |		|	  | the DLD package (works on Linux only) |
+  |-------------|---------|---------------------------------------|
+  | regexp	| enabled | Add support for regular expressions	  |
+  |-------------|---------|---------------------------------------|
+  | process	| enabled | Add support for running processes from|
+  |		|	  | the interpreter and redirecting their |
+  |		|	  | IO					  |
+  |-------------|---------|---------------------------------------|
+  | posix	| enabled | Add support for POSIX.1 functions.	  |
+  |		|	  | Support is very incmplete but will	  |
+  |		|	  | grow				  |
+  |_____________|_________|_______________________________________|
+		      
+For instance
+
+	$ /bin/sh -c 'CC=gcc ./configure --with-fgmp \
+		      --enable-socket --prefix=/scheme'
+
+will configure the package to use the free bignum library and the socket
+support . All the needed files will be installed in the /scheme/bin
+/scheme/lib ... directories.
+
+
+*** 2 . Compiling the package (and testing it)
+
+Once configuration is done, just type 
+
+	$ make
+
+in this directory to make the whole system. Once the make is terminated you
+can do a minimal test of stk with
+
+	$ (cd Src; /bin/sh test-stk)
+
+This will bring a little squared window on your screen (if your DISPLAY
+variable is correctly set). When this is done, enter the following  line
+
+	(pack (button '.test :text "Hello, world" :command '(destroy *root*)))
+
+at the scheme prompt. This will display an Hello world button. Clicking on it 
+will leave the scheme interpreter. A more complete demo can be obtained with:
+	
+	$ make demos
+
+This command runs the STk HTML browser on a file which allows you to launch
+simply the demos located in the "Demos" directory. 
+
+
+
+*** 3. Documentation
+
+Documentation is provided in Postscript and in TeX. To rebuild the
+documentation, you'll have to type
+	
+	$ make doc
+
+This will rebuilt the Postscript documentation. To make only the 
+dvi files, use
+	
+	$ make dvi
+
+
+*** 4. Installation
+
+To install stk in the definitive place, type
+
+	$ make install
+
+Intalling STk and Tk manual pages is done with
+
+	$ make install.man
+
+Have fun
+
diff --git a/Lib/Makefile b/Lib/Makefile
new file mode 100644
index 0000000..3eee8d6
--- /dev/null
+++ b/Lib/Makefile
@@ -0,0 +1,33 @@
+#
+# STk/Lib Makefile
+#
+#            Author: Erick Gallesio [eg@unice.fr]
+#     Creation date: ???
+#  Last file update: 13-Aug-1996 18:12
+
+
+include ../config.make
+
+SITE_SCHEME=$(stkdir)/site-scheme
+STK_IMAGES=$(libdir)/images
+STK_STK=$(libdir)/STk
+
+lib: 
+
+install:
+	-if [ ! -d $(SITE_SCHEME) ] ; then mkdir -p $(SITE_SCHEME); fi
+	-if [ ! -d $(STK_IMAGES) ] ; then mkdir -p $(STK_IMAGES); fi
+	-if [ ! -d $(STK_STK) ] ; then mkdir -p $(STK_STK); fi
+	for i in *.stk prolog.ps STk.init; \
+	do \
+	  sed -e 's=/usr/local/lib/stk=$(libdir)=' \
+	      -e 's=/usr/local/bin=$(bindir)=' $$i > $(STK_STK)/$$i ;\
+	  chmod 0644 $(STK_STK)/$$i;\
+	done
+	$(CP) images/* $(STK_IMAGES)
+	chmod 0644 $(STK_IMAGES)/*
+
+install.libs:
+
+clean:
+
diff --git a/Lib/STk b/Lib/STk
new file mode 120000
index 0000000..945c9b4
--- /dev/null
+++ b/Lib/STk
@@ -0,0 +1 @@
+.
\ No newline at end of file
diff --git a/Lib/STk.init b/Lib/STk.init
new file mode 100644
index 0000000..634119b
--- /dev/null
+++ b/Lib/STk.init
@@ -0,0 +1,235 @@
+;;;; Template for configuration of *features* for STk -*-scheme-*-
+;;; Copyright (C) 1991, 1992, 1993 Aubrey Jaffer.
+
+;; Author Erick Gallesio (eg@unice.fr)
+
+(require "unix")
+
+;;; (software-type) should be set to the generic operating system type.
+;;; UNIX, VMS, MACOS, AMIGA and MSDOS are supported.
+
+(define (software-type) 'UNIX)
+
+;;; (scheme-implementation-type) should return the name of the scheme
+;;; implementation loading this file.
+
+(define (scheme-implementation-type) '|STk|)
+
+;;; (scheme-implementation-version) should return a string describing
+;;; the version the scheme implementation loading this file.
+
+(define (scheme-implementation-version) (version))
+
+;;; (implementation-vicinity) should be defined to be the pathname of
+;;; the directory where any auxillary files to your Scheme
+;;; implementation reside.
+
+(define (implementation-vicinity) "/usr/local/lib/stk/")
+
+;;; (library-vicinity) should be defined to be the pathname of the
+;;; directory where files of Scheme library functions reside.
+
+(define library-vicinity
+  (let ((library-path (or (getenv "SCHEME_LIBRARY_PATH") "/usr/local/lib/slib/")))
+    (lambda () library-path)))
+
+;;; *FEATURES* should be set to a list of symbols describing features
+;;; of this implementation.  Suggestions for features are:
+
+(define *features*
+      '(
+	source				;can load scheme source files
+					;(slib:load-source "filename")
+	compiled			;can load compiled files
+					;(slib:load-compiled "filename")
+	rev4-report			;conforms to
+;	rev3-report			;conforms to
+;	ieee-p1178			;conforms to
+;	sicp				;runs code from Structure and
+					;Interpretation of Computer
+					;Programs by Abelson and Sussman.
+	rev4-optional-procedures	;LIST-TAIL, STRING->LIST,
+					;LIST->STRING, STRING-COPY,
+					;STRING-FILL!, LIST->VECTOR,
+					;VECTOR->LIST, and VECTOR-FILL!
+;	rev3-procedures			;LAST-PAIR, T, and NIL
+;	rev2-procedures			;SUBSTRING-MOVE-LEFT!,
+					;SUBSTRING-MOVE-RIGHT!,
+					;SUBSTRING-FILL!,
+					;STRING-NULL?, APPEND!, 1+,
+					;-1+, <?, <=?, =?, >?, >=?
+	multiarg/and-			;/ and - can take more than 2 args.
+	multiarg-apply			;APPLY can take more than 2 args.
+;	rationalize
+	delay				;has DELAY and FORCE
+	with-file			;has WITH-INPUT-FROM-FILE and
+					;WITH-OUTPUT-FROM-FILE
+	string-port			;has CALL-WITH-INPUT-STRING and
+					;CALL-WITH-OUTPUT-STRING
+;	transcript			;TRANSCRIPT-ON and TRANSCRIPT-OFF
+;	char-ready?
+;	macro				;has R4RS high level macros
+;	defmacro			;has Common Lisp DEFMACRO
+	eval				;SLIB:EVAL is single argument eval
+;	record				;has user defined data structures
+;	values				;proposed multiple values
+	dynamic-wind			;proposed dynamic-wind
+	ieee-floating-point		;conforms to
+	full-continuation		;can return multiple times
+;	object-hash			;has OBJECT-HASH
+
+;	sort				; commented because icomplete
+;	queue				;queues
+;	pretty-print
+;	object->string
+;	format
+;	compiler			;has (COMPILER)
+	ed				;(ED) is editor
+	system				;posix (system <string>)
+	getenv				;posix (getenv <string>)
+;	program-arguments		;returns list of strings (argv)
+;	Xwindows			;X support
+;	curses				;screen management package
+;	termcap				;terminal description package
+;	terminfo			;sysV terminal description
+	))
+
+;;; (OUTPUT-PORT-WIDTH <port>)
+(define (output-port-width . arg) 79)
+
+;;; (OUTPUT-PORT-HEIGHT <port>)
+(define (output-port-height . arg) 24)
+
+;;; (TMPNAM) makes a temporary file name.
+(define tmpnam (let ((cntr 100))
+		 (lambda () (set! cntr (+ 1 cntr))
+			 (string-append "slib_" (number->string cntr)))))
+
+;;; (DELETE-FILE <string>)
+(define (delete-file f) (system (format #f "/bin/rm ~A" f)))
+
+;;; FORCE-OUTPUT flushes any pending output on optional arg output port
+;;; use this definition if your system doesn't have such a procedure.
+(define (force-output . arg) (apply flush arg))
+
+;;; CHAR-CODE-LIMIT is one greater than the largest integer which can
+;;; be returned by CHAR->INTEGER.
+(define char-code-limit 256)
+
+;;; MOST-POSITIVE-FIXNUM is used in modular.scm
+(define most-positive-fixnum #x0fffffff)
+
+;;; If your implementation provides eval SLIB:EVAL is single argument
+;;; eval using the top-level (user) environment.
+(define slib:eval eval)
+
+;;; If your implementation provides R4RS macros:
+;(define macro:eval slib:eval)
+;(define macro:load load)
+
+(define *macros* '())
+
+(define-macro (defmacro name args . body)
+  `(begin
+     (define-macro (,name ,@args) ,@body)
+     (set! *macros* (cons ,name *macros*))))
+
+
+(define (defmacro? m) (and (memv m *macros*) #t))
+
+(define macroexpand-1 MACRO-EXPAND-1)
+(define macroexpand   MACRO-EXPAND)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define gentemp   GENSYM)
+(define base:eval slib:eval)
+
+(define (defmacro:eval x) (base:eval (defmacro:expand* x)))
+(define (defmacro:expand* x)
+  (require 'defmacroexpand) (apply defmacro:expand* x '()))
+
+(define (defmacro:load <pathname>)
+  (slib:eval-load <pathname> defmacro:eval))
+
+(define (slib:eval-load <pathname> evl)
+  (if (not (file-exists? <pathname>))
+      (set! <pathname> (string-append <pathname> (scheme-file-suffix))))
+  (call-with-input-file <pathname>
+    (lambda (port)
+      (let ((old-load-pathname *load-pathname*))
+	(set! *load-pathname* <pathname>)
+	(do ((o (read port) (read port)))
+	    ((eof-object? o))
+	  (evl o))
+	(set! *load-pathname* old-load-pathname)))))
+
+;;; define an error procedure for the library
+(define (slib:error . args)
+  (error (apply string-append (map (lambda (x) (format #f " ~a" x)) args))))
+
+
+;;; define these as appropriate for your system.
+(define slib:tab 	(integer->char 9))
+(define slib:form-feed  (integer->char 12))
+
+;;; Define these if your implementation's syntax can support it and if
+;;; they are not already defined.
+(define -1+ 1-)
+
+(define in-vicinity string-append)
+
+;;; Define SLIB:EXIT to be the implementation procedure to exit or
+;;; return if exitting not supported.
+(define slib:exit exit)
+
+;;; Here for backward compatability
+(define scheme-file-suffix
+  (let ((suffix (case (software-type)
+		  ((NOSVE) "_scm")
+		  (else ".scm"))))
+    (lambda () suffix)))
+
+;;; (SLIB:LOAD-SOURCE "foo") should load "foo.scm" or with whatever
+;;; suffix all the module files in SLIB have.  See feature 'SOURCE.
+
+(define slib:load-source LOAD)
+
+;;; (SLIB:LOAD-COMPILED "foo") should load the file that was produced
+;;; by compiling "foo.scm" if this implementation can compile files.
+;;; See feature 'COMPILED.
+
+(define slib:load-compiled load)
+
+;;;
+;;; Retain original require/provide before loading "require.scm"
+;;;
+(define stk:require require)
+(define stk:provide provide)
+(define stk:provided? provided?)
+
+(define slib:load slib:load-source)
+(slib:load (in-vicinity (library-vicinity) "require"))
+
+
+;;;
+;;; Redefine require/provide so that symbols use SLIB one and strings use STk one
+;;;
+
+(define require
+  (let ((slib:require require))
+    (lambda (item)
+      ((if (symbol? item) slib:require stk:require) item ))))
+
+(define provide
+  (let ((slib:provide provide))
+    (lambda (item)
+      ((if (symbol? item) slib:provide stk:provide) item))))
+
+(define provided?
+  (let ((slib:provided? provided?))
+    (lambda (item)
+      ((if (symbol? item) slib:provided? stk:provided?) item))))
+
+(define identity (lambda (x) x))
diff --git a/Lib/button.stk b/Lib/button.stk
new file mode 100644
index 0000000..8bfb535
--- /dev/null
+++ b/Lib/button.stk
@@ -0,0 +1,137 @@
+;;;;
+;;;; Buttons, Check button and radio buttons bindings and procs
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update:  2-Jul-1996 12:24
+;;;;
+
+
+;; This file is loaded for the first button, radio or check
+;; button. Avoid to load it several times
+(unless (or (tk-command? Tk:button) 
+	    (tk-command? Tk:checkbutton) 
+	    (tk-command? Tk:radiobutton))
+  (let ()
+
+;; The procedure below is invoked when the mouse pointer enters a
+;; button widget.  It records the button we're in and changes the
+;; state of the button to active unless the button is disabled.
+
+(define (Tk:button-enter |W|)
+  (unless (equal? (tk-get |W| :state) "disabled")
+     (tk-set! |W| :state "active")
+     (if (equal? tk::button-window |W|)
+	 (tk-set! |W| :state "active"
+		      :relief "sunken")))
+  (set! tk::window |W|))
+
+;; The procedure below is invoked when the mouse pointer leaves a
+;; button widget. It changes the state of the button back to
+;; inactive. If we're leaving the button window with a mouse button
+;; pressed (tk::button-window == |W|), restore the relief of the
+;; button too.
+
+(define (Tk:button-leave |W|)
+  (unless (equal? (tk-get |W| :state) "disabled")
+     (tk-set! |W| :state "normal"))
+  (if (equal? tk::button-window |W|)
+      (tk-set! |W| :relief tk::relief))
+  (set! tk::window #f))
+
+
+;; The procedure below is invoked when the mouse button is pressed in
+;; a button widget. It records the fact that the mouse is in the
+;; button, saves the button's relief so it can be restored later, and
+;; changes the relief to sunken.
+
+(define (Tk:button-down |W|)
+  (set! tk::relief 	  (tk-get |W| :relief))
+  (set! tk::button-window |W|)
+  (unless (equal? (tk-get |W| :state) "disabled")
+     (set! tk::button-window |W|)
+     (tk-set! |W| :relief "sunken")))
+
+;; The procedure below is invoked when the mouse button is released
+;; in a button widget.  It restores the button's relief and invokes
+;; the command as long as the mouse hasn't left the button.
+
+(define (Tk:button-up |W|)
+  (when (equal? tk::button-window |W|)
+     (set! tk::button-window "")
+     (tk-set! |W| :relief tk::relief)
+     (when (and (equal? |W| tk::window)
+		(not (equal? (tk-get |W| :state) "disabled")))
+       (|W| 'invoke))))
+
+;; The procedure below is called when a button is invoked through
+;; the keyboard.  It simulate a press of the button via the mouse.
+(define (Tk:button-invoke |W|)
+  (unless (equal? (tk-get |W| :state) "disabled")
+     (let ((old-relief (tk-get |W| :relief))
+	   (old-state  (tk-get |W| :state)))
+       (tk-set! |W| :state "active"
+		    :relief "sunken")
+       (update 'idletasks)
+       (after 100)
+       (tk-set! |W| :state  old-state 
+		  :relief old-relief)
+       (|W| 'invoke))))
+
+;; The procedure below is invoked when the mouse button is pressed in
+;; a checkbutton or radiobutton widget, or when the widget is invoked
+;; through the keyboard.  It invokes the widget if it isn't disabled.
+
+(define (Tk:R&C-button-invoke |W|)
+  (unless (equal? (tk-get |W| :state) "disabled")
+    (|W| 'invoke)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Class bindings for various flavors of button widgets. tk::window
+;; keeps track of the button containing the mouse, and tk::relief
+;; saves the original relief of the button so it can be restored when
+;; the mouse button is released.
+
+
+(bind "Button" "<FocusIn>" 		"")
+(bind "Button" "<Enter>"		Tk:button-enter)
+(bind "Button" "<Leave>"		Tk:button-leave)
+(bind "Button" "<1>"			Tk:button-down)
+(bind "Button" "<ButtonRelease-1>" 	Tk:button-up)
+(bind "Button" "<space>"		Tk:button-invoke)
+
+(bind "Checkbutton" "<FocusIn>" 	"")
+(bind "Checkbutton" "<Enter>" 		Tk:button-enter)
+(bind "Checkbutton" "<Leave>" 		Tk:button-leave)
+(bind "Checkbutton" "<1>" 		Tk:R&C-button-invoke)
+(bind "Checkbutton" "<space>" 		Tk:R&C-button-invoke)
+(bind "Checkbutton" "<Return>" 		(lambda (|W|)
+					  (unless *tk-strict-motif*
+					    (Tk:R&C-button-invoke |W|))))
+
+(bind "Radiobutton" "<FocusIn>" 	"")
+(bind "Radiobutton" "<Enter>" 		Tk:button-enter)
+(bind "Radiobutton" "<Leave>" 		Tk:button-leave)
+(bind "Radiobutton" "<1>" 		Tk:R&C-button-invoke)
+(bind "Radiobutton" "<space>" 		Tk:R&C-button-invoke)
+(bind "Radiobutton" "<Return>" 		(lambda (|W|)
+					  (unless *tk-strict-motif*
+					    (Tk:R&C-button-invoke |W|))))
+))
+
diff --git a/Lib/compatibility.stk b/Lib/compatibility.stk
new file mode 100644
index 0000000..6af9744
--- /dev/null
+++ b/Lib/compatibility.stk
@@ -0,0 +1,123 @@
+;;;;
+;;;; c o m p a t i b i l i t y . s t k   --  This file contains function which
+;;;;					     which assume compatibility between
+;;;;					     versions. Loading of this file will 
+;;;;					     lead to print a message 
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 23-Aug-1994 16:53
+;;;; Last file update: 17-Oct-1994 18:26
+
+(format #t "
+*****
+***** WARNING: Loading compatibility mode 
+***** (You are using something which is obsolete. Avoid to use it 
+***** if you don't want to see this message again)
+*****\n")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Compatibily macros. Don't use the define-simple-widget and
+;;;; define-composite-widget macros anymore
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (define-simple-widget name super slots constructor)
+  `(begin
+     (say-define (symbol->string ',name))
+     (define-class ,name (<Tk-simple-widget> ,@super) 
+       ,slots)
+     (define-method tk-constructor ((self ,name))
+       ,constructor)))
+
+(define-macro (define-composite-widget name super slots)
+  `(begin
+     (say-define (symbol->string ',name))
+     (define-class ,name (<Tk-composite-widget> ,@super) 
+       ,slots)
+     ,name))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Reading of STF 0.1 files
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define (compatibility-set-STF-0.1! txt STF)
+  (define normal-font "*-Courier-Medium-R-Normal-*-120-*")
+  (define all-fonts `(
+       (normal		,normal-font)
+       (fixed		"fixed")
+       (big		"-*-times-*-r-*-*-*-240-*-*-*-*-*-*")
+       (roman-12	"-*-times-*-r-*-*-*-120-*-*-*-*-*-*")
+       (roman-14	"-*-times-*-r-*-*-*-140-*-*-*-*-*-*")
+       (roman-16	"-*-times-*-r-*-*-*-160-*-*-*-*-*-*")
+       (roman-18	"-*-times-*-r-*-*-*-180-*-*-*-*-*-*")
+       (italic-12	"-*-times-*-i-*-*-*-120-*-*-*-*-*-*")
+       (italic-14	"-*-times-*-i-*-*-*-140-*-*-*-*-*-*")
+       (italic-16	"-*-times-*-i-*-*-*-160-*-*-*-*-*-*")
+       (italic-18	"-*-times-*-i-*-*-*-180-*-*-*-*-*-*")
+       (bold-12		"-*-helvetica-bold-r-*-*-*-120-*-*-*-*-*-*")
+       (bold-14		"-*-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*")
+       (bold-16		"-*-helvetica-bold-r-*-*-*-160-*-*-*-*-*-*")
+       (bold-18		"-*-helvetica-bold-r-*-*-*-180-*-*-*-*-*-*")
+       (bold-italic-12	"-*-helvetica-bold-o-*-*-*-120-*-*-*-*-*-*")
+       (bold-italic-14	"-*-helvetica-bold-o-*-*-*-140-*-*-*-*-*-*")
+       (bold-italic-16	"-*-helvetica-bold-o-*-*-*-160-*-*-*-*-*-*")
+       (bold-italic-18	"-*-helvetica-bold-o-*-*-*-180-*-*-*-*-*-*")
+       (tty-12		"-adobe-courier-medium-*-*-*-*-120-*-*-*-*-*-*")
+       (tty-14		"-adobe-courier-medium-*-*-*-*-140-*-*-*-*-*-*")
+       (tty-16		"-adobe-courier-medium-*-*-*-*-160-*-*-*-*-*-*")
+       (tty-18		"-adobe-courier-medium-*-*-*-*-180-*-*-*-*-*-*"))
+
+  (define (unset-tags editor-window start end)
+    (for-each (lambda (tag) 
+		(editor-window 'tag 'remove (car tag) start end))
+	      all-fonts))
+  
+  (define (set-font editor-window font start end)
+    ;; Be sure this tag exists
+    (editor-window 'tag 'conf font :font (cadr (assoc font all-fonts)))
+    ;; Set a new tag for this character range
+    (editor-window 'tag 'add font start end))
+  
+  (define (set-underline editor-window start end)
+    (editor-window 'tag 'conf 'underline :underline #t)
+    (editor-window 'tag 'add 'underline start end))
+  
+  (let ((text (cadr STF)) (fmts (caddr STF)) (editor-window (Id txt)))
+    ;; First insert new text
+    (editor-window 'delete "1.0" "end")
+    (editor-window 'insert "1.0" text)
+    (editor-window 'mark 'set 'insert "1.0")
+    ;; And now enhence it
+    (for-each (lambda (t) 
+		(format #t "On y est ~S\n" t)
+		(do ((l (cadr t) (cddr l)))
+		    ((null? l))
+		  (if (eqv? (car t) 'underline)
+		      (set-underline editor-window (car l) (cadr l))
+		      (set-font editor-window (car t) (car l) (cadr l)))))
+	      fmts)
+    
+    ;; Now create a STklos object for each tags used. So that next save will 
+    ;; be in the new STF format
+    (for-each (lambda (t)
+		(unless (null? (editor-window 'tag 'ranges (car t)))
+			(format #t "Creation du tag ~S\n" (car t))
+			(make <Text-tag> :parent txt :Tid (car t) :font (cadr t))))
+	      all-fonts)))
+
+
+
+(provide "compatibility")
diff --git a/Lib/dialog.stk b/Lib/dialog.stk
new file mode 100644
index 0000000..12f6003
--- /dev/null
+++ b/Lib/dialog.stk
@@ -0,0 +1,149 @@
+;;;;
+;;;; Dialog box creation utility
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  4-Aug-1993 11:05
+;;;; Last file update: 25-Sep-1996 14:48
+;;;;
+
+(provide "dialog")
+
+(define stk::button-pressed   #f)
+;;
+;; STk:make-dialog
+;;
+;; This procedure displays a dialog box following the spcifications given in
+;; arguments. Arguments are given as keywords.
+;;
+;; window (.dialog)	Window name to use for dialog top-level.
+;; title ("Dialog")	Title to display in dialog's decorative frame.
+;; text ("")		Message to display in dialog.
+;; bitmap ("")		Bitmap to display in dialog (empty string means none).
+;; default (-1) 	Index of button that is to display the default ring
+;;			(-1 means none).
+;; grab (#f)		Indicates if make-dialog must wait that a button be
+;;			pressed before returning. Use 'global to heve a global
+;;			grab.
+;; buttons ('())	A list of couples indicating the button text and its
+;;			associated action (a closure)
+;;
+;; If grabbing is set, this procedure returns the button pressed index.
+;;
+
+(define (STk:make-dialog . arguments)
+  (let ((w 	   (get-keyword :window  arguments '.dialog))
+	(title	   (get-keyword :title   arguments "Dialog"))
+	(text	   (get-keyword :text    arguments ""))
+	(bitmap    (get-keyword :bitmap  arguments ""))
+	(default   (get-keyword :default arguments -1))
+	(grabbing  (get-keyword :grab    arguments #f))
+	(buttons   (get-keyword :buttons arguments '()))
+	(old-focus (Tk:focus)))
+
+    (catch (Tk:destroy w))
+
+    ;; 1. Create the top-level window and divide it into top and bottom parts.
+    (define w.top (format #f "~A.top" w))
+    (define w.bot (format #f "~A.bot" w))
+    (define w.msg (format #f "~A.top.msg" w))
+    (define w.bmp (format #f "~A.top.bmp" w))
+
+    (Tk:toplevel w :class "Dialog")
+    (Tk:wm 'title w title)
+    (Tk:wm 'iconname w "Dialog")
+	
+    (Tk:pack [Tk:frame w.top :relief "raised" :bd 1] :expand #t :fill "both")
+    (Tk:pack [Tk:frame w.bot :relief "raised" :bd 1] :fill "x")
+
+    ;; 2. Fill the top part with bitmap and message (use the option
+    ;;    database for -wraplength so that it can be overridden by
+    ;;    the caller).
+
+    (option 'add "*Dialog.msg.wrapLength" "3i" "widgetDefault")
+    (Tk:pack [message w.msg :justify "left" :text text :aspect 1000 
+		      :font "-Adobe-Times-Medium-R-Normal-*-180-*"]
+	     :side "right"
+	     :expand #t 
+	     :padx 10
+	     :pady 10
+	     :fill "both")
+
+    (unless (equal? bitmap "")
+	(Tk:pack [Tk:label w.bmp :bitmap bitmap :fg "red"]
+		 :side "left"
+		 :padx 10
+		 :pady 10))
+
+    ;; 3. Create a row of buttons at the bottom of the dialog.
+    (do ([i 0 (+ i 1)] [but buttons (cdr but)])
+	([null? but] '())
+      
+      (let ((name (format #f "~A.but-~A" w  i)))
+	(Tk:button name :text (caar but) 
+		   	:command (lambda ()
+				   (if old-focus (Tk:focus old-focus))
+				   (set! stk::button-pressed i)
+				   (Tk:destroy w)
+				   (apply (cadar but) '())))
+	(if (equal? i default)
+	    (Tk:focus name))
+	(Tk:pack name :side "left" :expand #t :padx 20 :pady 8 :ipadx 2 :ipady 2)))
+
+    ;; 4. Center window
+    (STk:center-window w)
+
+    ;; 5. Wait until a button is pressed if grab is set 
+    (when grabbing
+      (let* ((old-grab    (Tk:grab 'current *root*))
+	     (grab-status (if old-grab
+			      (grab 'status old-grab)
+			      #f)))
+	(if (eqv? grabbing 'global) 
+	    (Tk:grab :global '.dialog)
+	    (Tk:grab 'set w))
+
+	;; Add a binding that sets the result to -1 if the window is detroyed
+	(bind w "<Destroy>" (lambda () (set! stk::button-pressed -1)))
+
+	(Tk:tkwait 'variable 'stk::button-pressed)
+	(if old-grab
+	    (if (equal? grab-status "global")
+		(Tk:grab :global old-grab)
+		(Tk:grab old-grab))))
+	stk::button-pressed)))
+
+
+(define (STk:center-window w)
+  ;; Withdraw the window, then update all the geometry information
+  ;; so we know how big it wants to be, then center the window in the
+  ;; display and de-iconify it.
+
+  (wm 'withdraw w)
+  (update 'idletasks)
+  (let ((x (- (/ [winfo 'screenwidth w] 2) 
+	      (/ [winfo 'reqwidth w] 2)
+	      (winfo 'vrootx [eval [winfo 'parent w]])))
+	(y (- (/ [winfo 'screenheight w] 2)
+	      (/ [winfo 'reqheight w] 2)
+	      (winfo 'vrooty [eval [winfo 'parent w]]))))
+    (wm 'geom w (format #f "+~A+~A" (inexact->exact (floor x)) 
+				    (inexact->exact (floor y))))
+    (wm 'deiconify w)))
+
+
+;;;;; Compatibility
+(define stk::make-dialog STk:make-dialog)
diff --git a/Lib/editor.stk b/Lib/editor.stk
new file mode 100644
index 0000000..45b0eec
--- /dev/null
+++ b/Lib/editor.stk
@@ -0,0 +1,276 @@
+;;;; e d i t o r . s t k		-- A small editor to create enhanced
+;;;;					   text (used for Help page construction)
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  6-Dec-1993 17:25
+;;;; Last file update: 17-Oct-1994 18:41
+
+(provide "editor")
+
+;;;;
+;;;; Font definition
+;;;;
+
+(define stk:STF-signature "STF-0.1")
+
+(define stk:normal-font "*-Courier-Medium-R-Normal-*-120-*")
+
+(define stk:all-fonts `(
+   (normal		,stk:normal-font)
+   (fixed		"fixed")
+   (big			"-*-times-*-r-*-*-*-240-*-*-*-*-*-*")
+   (roman-12		"-*-times-*-r-*-*-*-120-*-*-*-*-*-*")
+   (roman-14		"-*-times-*-r-*-*-*-140-*-*-*-*-*-*")
+   (roman-16		"-*-times-*-r-*-*-*-160-*-*-*-*-*-*")
+   (roman-18		"-*-times-*-r-*-*-*-180-*-*-*-*-*-*")
+   (italic-12		"-*-times-*-i-*-*-*-120-*-*-*-*-*-*")
+   (italic-14		"-*-times-*-i-*-*-*-140-*-*-*-*-*-*")
+   (italic-16		"-*-times-*-i-*-*-*-160-*-*-*-*-*-*")
+   (italic-18		"-*-times-*-i-*-*-*-180-*-*-*-*-*-*")
+   (bold-12		"-*-helvetica-bold-r-*-*-*-120-*-*-*-*-*-*")
+   (bold-14		"-*-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*")
+   (bold-16		"-*-helvetica-bold-r-*-*-*-160-*-*-*-*-*-*")
+   (bold-18		"-*-helvetica-bold-r-*-*-*-180-*-*-*-*-*-*")
+   (bold-italic-12	"-*-helvetica-bold-o-*-*-*-120-*-*-*-*-*-*")
+   (bold-italic-14	"-*-helvetica-bold-o-*-*-*-140-*-*-*-*-*-*")
+   (bold-italic-16	"-*-helvetica-bold-o-*-*-*-160-*-*-*-*-*-*")
+   (bold-italic-18	"-*-helvetica-bold-o-*-*-*-180-*-*-*-*-*-*")
+   (tty-12		"-adobe-courier-medium-*-*-*-*-120-*-*-*-*-*-*")
+   (tty-14		"-adobe-courier-medium-*-*-*-*-140-*-*-*-*-*-*")
+   (tty-16		"-adobe-courier-medium-*-*-*-*-160-*-*-*-*-*-*")
+   (tty-18		"-adobe-courier-medium-*-*-*-*-180-*-*-*-*-*-*")))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Fonts utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (stk:unset-tags editor-window start end)
+  (for-each (lambda (tag) 
+	      (editor-window 'tag 'remove (car tag) start end))
+	    stk:all-fonts))
+  
+(define (stk:set-font editor-window font start end)
+  ;; Be sure this tag exists
+  (editor-window 'tag 'conf font :font (cadr (assoc font stk:all-fonts)))
+  ;; Delete all the tags associated to this range
+  (stk:unset-tags editor-window start end)
+  ;; Set a new tag for this character range
+  (editor-window 'tag 'add font start end))
+
+(define (stk:set-underline editor-window start end)
+  (editor-window 'tag 'conf 'underline :underline #t)
+  (editor-window 'tag 'add 'underline start end))
+
+(define (stk:fontify-selection editor-window font)
+  (catch
+     (stk:set-font editor-window 
+		   font 
+		   (editor-window 'index 'sel.first)
+		   (editor-window 'index 'sel.last))))
+
+(define (stk:underline-selection editor-window value)
+  (catch
+     (let ((start (editor-window 'index 'sel.first))
+	   (end   (editor-window 'index 'sel.last)))
+       ;; Remove all underlining information in this area
+       (editor-window 'tag 'remove 'underline start end)
+       ;; Set underline if value is #t
+       (when value (stk:set-underline editor-window start end)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Scheme Text Format (STF) management
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (stk:get-STF editor-window)
+  (list stk:STF-signature
+	(editor-window 'get "1.0" 'end)
+	(let ((l '()))
+	  (for-each (lambda (t)
+		      (let ((tags (editor-window 'tag 'range (car t))))
+			(unless (null? tags)
+			   (set! l (cons (list (car t) tags) l)))))
+		    (cons `(underline #f) stk:all-fonts))
+	  l)))
+
+(define (stk:set-STF editor-window STF)
+  (let ((text (cadr STF)) (fmts (caddr STF)))
+    ;; First insert new text
+    (editor-window 'delete "1.0" 'end)
+    (editor-window 'insert "1.0" text)
+    (editor-window 'mark 'set 'insert "1.0")
+    ;; And now enhence it
+    (for-each (lambda (t) 
+		(do ((l (cadr t) (cddr l)))
+		    ((null? l))
+		  (if (eqv? (car t) 'underline)
+		      (stk:set-underline editor-window (car l) (cadr l))
+		      (stk:set-font editor-window (car t) (car l) (cadr l)))))
+	      fmts))
+  (update))
+  
+(define (stk:write-file editor-window file)
+  (with-output-to-file file 
+    (lambda ()
+      (format #t ";;;; ~S\n" stk:STF-signature)
+      (format #t "~S\n" (stk:get-STF editor-window)))))
+
+
+(define (stk:write-file-ascii editor-window file)
+  (with-output-to-file file 
+    (lambda ()
+      (format #t "~A" (editor-window 'get "1.0" 'end)))))
+
+(define (stk:read-file editor-window file)
+  (with-input-from-file file
+      (lambda ()
+	(let ((first-line (read-line)))
+	  (if (string=? first-line (format #f ";;;; ~S" stk:STF-signature))
+	      ;; File is a STF file
+	      (stk:set-STF editor-window (read))
+	      ;; File must be read as a "normal" file
+	      (begin
+		(editor-window 'delete "1.0" 'end)
+		(do ((l first-line (read-line)))
+		    ((eof-object? l))
+		  (editor-window 'insert 'end l)
+		  (editor-window 'insert 'end "\n"))
+		(editor-window 'mark 'set 'insert "1.0")))))))
+
+(define (stk:get-filename toplevel) ; return the content of the file name  entry
+  (let ((entry (string->widget (& toplevel ".bt.e"))))
+    (entry 'get)))
+
+(define (stk:set-filename toplevel filename)
+  (let ((entry (string->widget (& toplevel ".bt.e"))))
+    (entry 'delete 0 'end)
+    (entry 'insert 0 filename)))
+	
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Interface
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (stk:make-editor name  . exit_code)
+  (let* ((top 	     (toplevel name))
+	 (menu-bar   (frame     (& name ".mb") :bd 2 :relief "groove"))
+	 (bottom     (frame     (& name ".bt")))
+	 (text-area  (frame     (& name ".ta")))
+	 (exit_code  (if (null? exit_code) `(destroy ,top) (car exit_code)))
+	 (the-editor ()))
+
+    ;;
+    ;; Window manager management
+    ;; 
+    (wm 'maxsize name 1000 800)
+    (wm 'protocol name "WM_DELETE_WINDOW" exit_code)
+	
+    ;;
+    ;; Text area frame
+    ;;
+    (pack [scrollbar (& text-area ".sc") :orient "vert" 
+		     			 :bd 2
+					 :relief "groove"
+		     			 :command (format #f "~A 'yview" 
+							  (& text-area ".ed"))]
+	  :side "left" :fill "y")
+    (pack [text (& text-area ".ed") :padx 4 
+				    :pady 4
+				    :bd 2
+				    :wrap "word"
+				    :relief "groove"
+				    :yscroll (format #f "~A 'set"
+						     (& text-area ".sc"))]
+	  :side "right" :expand #t :fill "both")
+
+    (set! the-editor (string->widget (& text-area ".ed")))
+
+    ;;
+    ;; Menu Creation
+    ;;
+
+    (let* ((File (menubutton (& menu-bar ".file") 
+			     :text "File"
+			     :padx 10
+			     :menu (& menu-bar ".file.m")))
+	   (m	 (eval (menu (& menu-bar ".file.m")))))
+
+      (m 'add 'command 
+	      :label "  Read  "    
+	      :command `(stk:read-file ,the-editor (stk:get-filename ,top)))
+      (m 'add 'command 
+	      :label "  Save  "
+	      :command `(stk:write-file ,the-editor (stk:get-filename ,top)))
+      (m 'add 'command 
+	      :label "  Save Ascii  "
+	      :command `(stk:write-file-ascii ,the-editor (stk:get-filename ,top)))
+      (m 'add 'separator)
+      (m 'add 'command :label "  Quit  " :command exit_code)
+      
+      (pack File :side "left"))
+
+    (let* ((Font (menubutton (& menu-bar ".font")		       
+			     :text "Font" 
+			     :padx 10
+			     :menu (& menu-bar ".font.m")))
+	    (m    (eval (menu (& menu-bar ".font.m")))))
+
+      (for-each (lambda(font)
+		  (m 'add 'command 
+		     	  :label    (car font)
+			  :font     (cadr font)
+			  :command `(stk:fontify-selection ,the-editor
+							   ',(car font))))
+		stk:all-fonts)
+      (m 'add 'separator)
+      (m 'add 'command
+	      :label "Underline"    
+	      :command `(stk:underline-selection ,the-editor #t))
+      (m 'add 'command 
+	      :label "No underline"
+	      :command `(stk:underline-selection ,the-editor #f))
+
+      (pack Font :side "left"))
+
+    ;;
+    ;; Bottom frame
+    ;;
+    (pack [label (& bottom ".l") :text "File name" :padx 10] :side "left")
+    (pack [entry (& bottom ".e") :relief "ridge"] :side "left" :expand #t :fill "x")
+
+    ;;
+    ;; Pack everybody
+    ;;
+    (pack menu-bar  :fill "x")
+    (pack text-area :expand #t :fill "both")
+    (pack bottom    :fill "x" :ipady 4 :ipadx 10)))
+
+
+;; A simple editor accessible from prompt
+(define (ed . file)
+  (require "editor")
+  (let ((editor-name (gensym ".editor")))
+    (stk:make-editor editor-name)
+    (unless (null? file)
+       (stk:read-file (string->widget (& editor-name ".ta.ed")) (car file))
+       (stk:set-filename editor-name (car file)))))
+  
diff --git a/Lib/entry.stk b/Lib/entry.stk
new file mode 100644
index 0000000..5797e79
--- /dev/null
+++ b/Lib/entry.stk
@@ -0,0 +1,545 @@
+;;;;
+;;;; Entries bindings and procs
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update:  2-Jul-1996 13:00
+;;;;
+
+;; ----------------------------------------------------------------------
+;; Class bindings for entry widgets.
+;; ----------------------------------------------------------------------
+
+
+;;-------------------------------------------------------------------------
+;; Elements of tkPriv that are used in this file:
+;;
+;; after-id -		If non-null, it means that auto-scanning is underway
+;;			and it gives the "after" id for the next auto-scan
+;;			command to be executed.
+;; mouse-moved -	Non-zero means the mouse has moved a significant
+;;			amount since the button went down (so, for example,
+;;			start dragging out a selection).
+;; press-x -		X-coordinate at which the mouse button was pressed.
+;; select-mode -	The style of selection currently underway:
+;;			char, word, or line.
+;; x, y -		Last known mouse coordinates for scanning
+;;			and auto-scanning.
+;;-------------------------------------------------------------------------
+(let()
+
+;;
+;; Utilities
+;;
+(define (Tk:word-character c)
+  (or (char-alphabetic? c)
+      (char-numeric? c)
+      (char=? c #\-)
+      (char=? c #\*)))
+
+(define (Tk:word-separator c)
+  (not (Tk:word-character c)))
+
+(define (Tk:end-of-word str index . separator)
+  (let ((len (string-length str))
+	(sep (if (null? separator) Tk:word-separator separator)))
+    (let loop ((i index))
+      (cond
+         ((= len 0)			0)
+         ((>= i len) 			len)
+	 ((sep (string-ref str i))	(if (= index i) (+ i 1) i))
+	 (ELSE				(loop (+ i 1)))))))
+
+(define (Tk:beginning-of-word str index . separator)
+  (let ((len (string-length str))
+	(sep (if (null? separator) Tk:word-separator separator)))
+    (let loop ((i index))
+      (cond
+         ((= len 0)			0)
+         ((= i -1) 			0)
+	 ((>= i len)			(loop (- len 1)))
+	 ((sep (string-ref str i)) 	(if (= index i) i (+ i 1)))
+	 (ELSE 				(loop (- i 1)))))))
+
+;; Tk:entry-clipboard-keysyms
+;; This procedure is invoked to identify the keys that correspond to
+;; the "copy", "cut", and "paste" functions for the clipboard.
+;;
+;; Arguments:
+;; copy -	Name of the key (keysym name plus modifiers, if any,
+;;		such as "Meta-y") used for the copy operation.
+;; cut -		Name of the key used for the cut operation.
+;; paste -	Name of the key used for the paste operation.
+
+(define (Tk:entry-clipboard-keysyms copy cut paste)
+  (define-binding "Entry" copy (|W|)
+    (when (equal? [selection 'own :displayof |W|] (widget->string |W|))
+       (clipboard 'clear :displayof |W|)
+       (catch 
+	  (clipboard 'append :displayof |W| (selection 'get :displayof |W|)))))
+
+  (define-binding "Entry" cut (|W|)
+    (when (equal? [selection 'own :displayof |W|] (widget->string |W|))
+       (clipboard 'clear :displayof |W|)
+       (catch
+	  (clipboard 'append :displayof |W| (selection 'get :displayof |W|))
+	  (|W| 'delete 'sel.first 'sel.last))))
+
+  (define-binding "Entry" paste (|W|)
+    (catch
+       (|W| 'insert 'insert (selection 'get :displayof |W| 
+				            :selection "CLIPBOARD"))))
+)
+
+;; Tk:entry-button-1 --
+;; This procedure is invoked to handle button-1 presses in "Entry"
+;; widgets.  It moves the insertion cursor, sets the selection anchor,
+;; and claims the input focus.
+;;
+;; Arguments:
+;; w -		The "Entry" window in which the button was pressed.
+;; x -		The x-coordinate of the button press.
+
+(define (Tk:entry-button-1 w x)
+  (let ((pos (format #f "@~A" x)))
+    (set! tk::select-mode "char")
+    (set! tk::mouse-moved #f)
+    (set! tk::press-x x)
+    (w 'icursor (Tk:entry-closest-gap w x))
+    (w 'selection 'from 'insert)
+    (if (equal? (tk-get w :state) "normal")
+	(focus w))))
+
+;; Tk:entry-mouse-select --
+;; This procedure is invoked when dragging out a selection with
+;; the mouse.  Depending on the selection mode (character, word,
+;; line) it selects in different-sized units.  This procedure
+;; ignores mouse motions initially until the mouse has moved from
+;; one character to another or until there have been multiple clicks.
+;;
+;; Arguments:
+;; w -		The "Entry" window in which the button was pressed.
+;; x -		The x-coordinate of the mouse.
+
+(define (Tk:entry-mouse-select w x)
+  (let* ((cur    (Tk:entry-closest-gap w x))
+	 (anchor (w 'index 'anchor)))
+
+    (if (or (equal? cur anchor)  
+	    (>= (abs (- tk::press-x x)) 3))
+	(set! tk::mouse-moved #t))
+
+    (cond
+      ((string=? tk::select-mode "char")
+       		(if tk::mouse-moved
+		    (cond
+		      ((< cur anchor) (w 'selection 'range cur anchor))
+		      ((> cur anchor) (w 'selection 'range anchor cur))
+		      (ELSE	      (w 'selection 'clear)))))
+      ((string=? tk::select-mode "word")
+                (if (< cur (w 'index 'anchor))
+		    (w 'selection 'range 
+		       (Tk:beginning-of-word (w 'get) cur)
+		       (Tk:end-of-word       (w 'get) (- anchor 1)))
+		    (w 'selection 'range 
+		       (Tk:beginning-of-word (w 'get) anchor)
+		       (Tk:end-of-word       (w 'get) (- cur 1)))))
+      ((string=? tk::select-mode "line")
+	    	(w 'selection 'range 0 'end)))
+
+    (update 'idletasks)))
+
+
+;; Tk:entry-auto-scan --
+;; This procedure is invoked when the mouse leaves an "Entry" window
+;; with button 1 down.  It scrolls the window left or right,
+;; depending on where the mouse is, and reschedules itself as an
+;; "after" command so that the window continues to scroll until the
+;; mouse moves back into the window or the mouse button is released.
+;;
+;; Arguments:
+;; w -	The "Entry" window.
+
+(define (Tk:entry-auto-scan w)
+  (when (winfo 'exists w)
+    (let ((x tk::x))
+      (if (>= x  (winfo 'width w))
+	  (begin
+	    (w 'xview 'scroll 2 'units)
+	    (Tk:entry-mouse-select w x))
+	  (if (< x 0)
+	      (w 'xview 'scroll -2 'units)
+	      (Tk:entry-mouse-select w x)))
+      
+      (set! tk::after-id (after 50 (lambda ()
+				     (Tk:entry-auto-scan w)))))))
+
+;; Tk:entry-key-select --
+;; This procedure is invoked when stroking out selections using the
+;; keyboard.  It moves the cursor to a new position, then extends
+;; the selection to that position.
+;;
+;; Arguments:
+;; w -		The "Entry" window.
+;; new -	A new position for the insertion cursor (the cursor hasn't
+;;		actually been moved to this position yet).
+
+(define (Tk:entry-key-select w new)
+  (if (w 'selection 'present)
+      (w 'selection 'adjust new)
+      (begin
+	(w 'selection 'from 'insert)
+	(w 'selection 'to new)))
+  (w 'icursor new))
+
+;; Tk:entry-Insert --
+;; Insert a string into an "Entry" at the point of the insertion cursor.
+;; If there is a selection in the "Entry", and it covers the point of the
+;; insertion cursor, then delete the selection before inserting.
+;;
+;; Arguments:
+;; w -	The "Entry" window in which to insert the string
+;; s -		The string to insert (usually just a single character)
+
+(define (Tk:entry-insert w s)
+  (unless (equal? s "")
+     (let ((insert (w 'index 'insert)))
+       (catch
+	   (if (and (<= (w 'index 'sel.first) insert)
+		    (>= (w 'index 'sel.last)  insert))
+	       (w 'delete 'sel.first 'sel.last))))
+     (w 'insert 'insert s)
+     (Tk:entry-see-insert w)))
+
+;; Tk:entry-backspace --
+;; Backspace over the character just before the insertion cursor.
+;; If backspacing would move the cursor off the left edge of the
+;; window, reposition the cursor at about the middle of the window.
+;;
+;; Arguments:
+;; w -		The "Entry" window in which to backspace.
+
+(define (Tk:entry-backspace w)
+  (if (w 'selection 'present)
+      (w 'delete 'sel.first 'sel.last)
+      (let ((x (- (w 'index 'insert) 1)))
+	(if (>= x 0) (w 'delete x))
+	(when (>= (w 'index "@0") 
+		  (w 'index 'insert))
+	  (let* ((range (w 'xview))
+		 (left  (car range))
+		 (right (cadr range)))
+	    (w 'xview 'moveto (- left (/ (- right left) 2.0))))))))
+
+;; Tk:entry-see-insert --
+;; Make sure that the insertion cursor is visible in the "Entry" window.
+;; If not, adjust the view so that it is.
+;;
+;; Arguments:
+;; w -		The "Entry" window.
+
+(define (Tk:entry-see-insert w)
+  (let ((c    (w 'index 'insert))
+	(left (w 'index "@0")))
+    
+    (if (> left c)
+	(w 'xview c)
+	(let ((x (winfo 'width w)))
+	  (while (and (<= (w 'index (format #f "@~A" x)) c)
+		      (< left c))
+	     (set! left (+ left 1))
+	     (w 'xview left))))))
+
+;; Tk:entry-set-cursor -
+;; Move the insertion cursor to a given position in an "Entry".  Also
+;; clears the selection, if there is one in the "Entry", and makes sure
+;; that the insertion cursor is visible.
+;;
+;; Arguments:
+;; w -		The "Entry" window.
+;; pos -	The desired new position for the cursor in the window.
+
+(define (Tk:entry-set-cursor w pos)
+  (w 'icursor pos)
+  (w 'selection 'clear)
+  (Tk:entry-see-insert w))
+
+;; Tk:entry-Transpose -
+;; This procedure implements the "transpose" function for "Entry" widgets.
+;; It tranposes the characters on either side of the insertion cursor,
+;; unless the cursor is at the end of the line.  In this case it
+;; transposes the two characters to the left of the cursor.  In either
+;; case, the cursor ends up to the right of the transposed characters.
+;;
+;; w -		The "Entry" window.
+
+(define (Tk:entry-transpose w)
+  (let ((i (w 'index 'insert)))
+    (if (< i (w 'index 'end))
+	(set! i (+ i 1)))
+    (let ((first (- i 2)))
+      (if (>= first 0)
+	  (let* ((str (w 'get))
+		 (new (string (string-ref str (- i 1)) (string-ref str first))))
+	    (w 'delete first i)
+	    (w 'insert 'insert new)
+	    (Tk:entry-see-insert w))))))
+
+;; Tk:entry-closest-gap --
+;; Given x and y coordinates, this procedure finds the closest boundary
+;; between characters to the given coordinates and returns the index
+;; of the character just after the boundary.
+;;
+;; w -		The entry window.
+;; x -		X-coordinate within the window.
+
+(define (Tk:entry-closest-gap w x)
+  (let* ((pos  (w 'index (format #f "@~A" x)))
+	 (bbox (w 'bbox pos)))
+    (if (< [- x (list-ref bbox 0)] (/ (list-ref bbox 2) 2))
+	pos
+	(+ pos 1))))
+
+
+;; Tk:entry-paste --
+;; This procedure sets the insertion cursor to the current mouse position,
+;; pastes the selection there, and sets the focus to the window.
+;;
+;; w -		The entry window.
+;; x -		X position of the mouse.
+
+(define (Tk:entry-paste w x)
+  (w 'icursor (Tk:entry-closest-gap w x))
+  (catch (w 'insert 'insert (selection 'get :displayof w)))
+  (if (string=? (tk-get w :state) "normal")
+      (focus w)))
+
+;;-------------------------------------------------------------------------
+;; The code below creates the default class bindings for entries.
+;;-------------------------------------------------------------------------
+
+;; Standard Motif bindings:
+
+
+
+;;-------------------------------------------------------------------------
+;; The code below creates the default class bindings for entries.
+;;-------------------------------------------------------------------------
+
+;; Standard Motif bindings:
+
+(define-binding "Entry" "<1>" (|W| x)
+  (Tk:entry-button-1 |W| x)
+  (|W| 'selection 'clear))
+
+(define-binding "Entry" "<B1-Motion>" (|W| x)
+  (set! tk::x x)
+  (Tk:entry-mouse-select |W| x))
+
+(define-binding "Entry" "<Double-1>" (|W| x)
+  (set! tk::select-mode "word")
+  (Tk:entry-mouse-select |W| x)
+  (catch 
+     (|W| 'icursor 'sel.first)))
+
+(define-binding "Entry" "<Triple-1>" (|W| x)
+  (set! tk::select-mode "line")
+  (Tk:entry-mouse-select |W| x)
+  (|W| 'icursor 0))
+
+(define-binding "Entry" "<Shift-1>" (|W| x)
+  (set! tk::select-mode "char")
+  (|W| 'selection 'adjust (format #f "@~A" x)))
+
+(define-binding "Entry" "<Double-Shift-1>" (|W| x)
+  (set! tk::select-mode "word")
+  (Tk:entry-mouse-select |W| x))
+
+(define-binding "Entry" "<Triple-Shift-1>" (|W| x)
+  (set! tk::select-mode "line")
+  (Tk:entry-mouse-select |W| x))
+
+(define-binding "Entry" "<B1-Leave>" (|W| x)
+  (set! tk::x x)
+  (Tk:entry-auto-scan |W|))
+
+(define-binding "Entry" "<B1-Enter>" ()
+  (Tk:cancel-repeat))
+
+(define-binding "Entry" "<ButtonRelease-1>" ()
+  (Tk:cancel-repeat))
+
+(define-binding "Entry" "<Control-1>" (|W| x)
+  (|W| 'icursor (format #f "@~A" x)))
+
+
+(define-binding "Entry" "<Left>" (|W|)
+  (Tk:entry-set-cursor |W| (- (|W| 'index 'insert) 1)))
+
+(define-binding "Entry" "<Right>" (|W|)
+  (Tk:entry-set-cursor |W| (+ (|W| 'index 'insert) 1)))
+
+(define-binding "Entry" "<Shift-Left>" (|W|)
+  (Tk:entry-key-select |W| (- (|W| 'index 'insert) 1))
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<Shift-Right>" (|W|)
+  (Tk:entry-key-select |W| (+ (|W| 'index 'insert) 1))
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<Control-Left>" (|W|)
+  (Tk:entry-set-cursor |W|
+		       (Tk:beginning-of-word (|W| 'get) 
+					     (- (|W| 'index 'insert) 1))))
+
+(define-binding "Entry" "<Control-Right>" (|W|)
+  (Tk:entry-set-cursor |W| (Tk:end-of-word (|W| 'get) (|W| 'index 'insert))))
+
+(define-binding "Entry" "<Shift-Control-Left>" (|W|)
+  (Tk:entry-key-select |W|
+			(Tk:beginning-of-word (|W| 'get) 
+					     (- (|W| 'index 'insert) 1)))
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<Shift-Control-Right>" (|W|)
+  (Tk:entry-key-select |W| (Tk:end-of-word (|W| 'get) (|W| 'index 'insert)))
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<Home>" (|W|)
+  (Tk:entry-set-cursor |W| 0))
+
+(define-binding "Entry" "<Shift-Home>" (|W|)
+  (Tk:entry-key-select |W| 0)
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<End>" (|W|)
+  (Tk:entry-set-cursor |W| 'end))
+
+(define-binding "Entry" "<Shift-End>" (|W|)
+  (Tk:entry-key-select |W| 'end)
+  (Tk:entry-see-insert |W|))
+
+(define-binding "Entry" "<Delete>" (|W|)
+  (if (|W| 'selection 'present)
+      (|W| 'delete 'sel.first 'sel.last)
+      (|W| 'delete 'insert)))
+
+(define-binding "Entry" "<BackSpace>" (|W|)
+  (Tk:entry-backspace |W|))
+
+(define-binding "Entry" "<Control-space>" (|W|)
+  (|W| 'selection 'from 'insert))
+
+(define-binding "Entry" "<Select>" (|W|)
+  (|W| 'selection 'from 'insert))
+
+(define-binding "Entry" "<Control-Shift-space>" (|W|)
+  (|W| 'selection 'adjust 'insert))
+
+(define-binding "Entry" "<Shift-Select>" (|W|)
+  (|W| 'selection 'adjust 'insert))
+
+(define-binding "Entry" "<Control-slash>" (|W|)
+  (|W| 'selection 'range 0 'end))
+
+(define-binding "Entry" "<Control-backslash>" (|W|)
+  (|W| 'selection 'clear))
+
+(Tk:entry-clipboard-keysyms "<F16>" "<F20>" "<F18>")
+
+(define-binding "Entry" "<KeyPress>" (|W| |A|)
+  (Tk:entry-Insert |W| |A|))
+
+
+;; Ignore all Alt, Meta, and Control keypresses unless explicitly bound.
+;; Otherwise, if a widget binding for one of these is defined, the
+;; <KeyPress> class binding will also fire and insert the character,
+;; which is wrong.  Ditto for Escape, Return, and Tab.
+(let ((nop (lambda () '())))
+  (bind "Entry" "<Alt-KeyPress>" 	nop)
+  (bind "Entry" "<Meta-KeyPress>" 	nop)
+  (bind "Entry" "<Control-KeyPress>" 	nop)
+  (bind "Entry" "<Escape>" 		nop)
+  (bind "Entry" "<Return>" 		nop)
+  (bind "Entry" "<KP_Enter>" 		nop)
+  (bind "Entry" "<Tab>" 		nop))
+
+
+(define-binding "Entry" "<Insert>" (|W|)
+  (catch 
+    (Tk:entry-insert |W| (selection 'get :displayof |W|))))
+
+;; Additional emacs-like bindings:
+
+(define-binding "Entry" "<Control-a>" (|W|)
+  (Tk:entry-set-cursor |W| 0))
+
+(define-binding "Entry" "<Control-b>" (|W|)
+  (Tk:entry-set-cursor |W| (- (|W| 'index 'insert) 1)))
+
+(define-binding "Entry" "<Control-d>" (|W|)
+  (|W| 'delete 'insert))
+
+(define-binding "Entry" "<Control-e>" (|W|)
+  (Tk:entry-set-cursor |W| 'end))
+
+(define-binding "Entry" "<Control-f>" (|W|)
+  (Tk:entry-set-cursor |W| (+ (|W| 'index 'insert) 1)))
+
+(define-binding "Entry" "<Control-h>" (|W|)
+  (Tk:entry-backspace |W|))
+
+(define-binding "Entry" "<Control-k>" (|W|)
+  (|W| 'delete 'insert 'end))
+
+(define-binding "Entry" "<Control-t>" (|W|)
+  (Tk:entry-transpose |W|))
+
+(define-binding "Entry" "<Meta-b>" (|W|)
+ (Tk:entry-set-cursor |W|
+		       (Tk:beginning-of-word (|W| 'get) 
+					     (- (|W| 'index 'insert) 1))))
+
+(define-binding "Entry" "<Meta-d>" (|W|)
+  (|W| 'delete 'insert (Tk:end-of-word (|W| 'get) (|W| 'index 'insert))))
+
+(define-binding "Entry" "<Meta-f>" (|W|)
+  (Tk:entry-set-cursor |W| (Tk:end-of-word (|W| 'get) (|W| 'index 'insert))))
+
+(define-binding "Entry" "<Meta-BackSpace>" (|W|)
+  (|W| 'delete (Tk:beginning-of-word (|W| 'get) (- (|W| 'index 'insert) 1))
+       'insert))
+
+(Tk:entry-clipboard-keysyms "<Meta-w>" "<Control-w>" "<Control-y>")
+
+
+;; A few additional bindings of my own.
+
+(define-binding "Entry" "<Shift-2>" (|W| x)
+  (|W| 'scan 'mark x)
+  (set! tk::x x)
+  (set! tk::mouse-moved #f))
+
+(define-binding "Entry" "<Shift-B2-Motion>" (|W| x)
+  (if (> (abs (- x tk::x)) 2)
+      (set! tk::mouse-moved #t))
+  (|W| 'scan 'dragto x))
+
+(define-binding "Entry" "<ButtonRelease-2>" (|W| x)
+  (when (or *tk-strict-Motif* (not tk::mouse-moved))
+    (Tk:entry-paste |W| x)))
+)
diff --git a/Lib/error.stk b/Lib/error.stk
new file mode 100644
index 0000000..a0556d4
--- /dev/null
+++ b/Lib/error.stk
@@ -0,0 +1,267 @@
+;;;;
+;;;; e r r o r . s t k 		-- All the stuff going with error messages 
+;;;;				   display
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 15-Sep-1993 14:11
+;;;; Last file update:  7-Jul-1996 17:14
+;;;;
+
+(require "dialog")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; report-error (this version of report-error needs Tk)
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (STk:report-error head message obj)
+  ;; Since this function is loaded only when needed the stack is different 
+  ;; on first execution 
+  (define stack 	  (cddddr (%get-eval-stack)))
+  (define env   	  (cddddr (%get-environment-stack)))
+  (define current-env (global-environment))
+
+  (define (truncate s len)
+    (if (> (string-length s) len)
+	(string-append (substring s 0 (- len 1)) " ...")
+	s))
+
+  (define (adjust-string s len)
+    (let ((l (string-length s)))
+      (if (>= l len)
+	  s
+	  (string-append s (make-string (- len l) #\space)))))
+
+  (define (local-eval x)
+    (eval x current-env))
+
+  (define (select-expression |W| x y)
+    (let ((index (|W| 'index (format #f "@~a,~a" x y))))
+      (when (< index (length stack))
+	(set! current-env (list-ref env index))
+	(listener-insert-string .stackview.vt.l
+				(format #f ";; Current environment is ~A\n"
+					(if (eq? current-env (global-environment))
+					    "global environment"
+					    current-env))))))
+
+  (define (select-environment |W| x y)
+    (let ((index (|W| 'index (format #f "@~a,~a" x y))))
+      (display-environment (if (= index (length env))
+			       (global-environment)
+			       (list-ref env index)))))
+
+  (define (display-environment e)
+    (let* ((top      (gensym ".top_env"))
+	   (f1       (format #f "~A.f"        top))
+	   (lst      (format #f "~A.f.lst"    top))
+	   (scroll-x (format #f "~A.f.sx"     top))
+	   (scroll-y (format #f "~A.f.sy"     top))
+	   (f2	     (format #f "~A.b"	      top))
+	   (parent   (format #f "~A.b.parent" top))
+	   (quit     (format #f "~A.b.quit"   top))
+	   (el	     (car (environment->list e))))
+
+      (toplevel top)
+      (wm 'title top (format #f "~S" e))
+      (pack (frame f1) (frame f2) :expand #t :fill "both" :side "top")
+
+      ;;;;;  Listbox and its scrollbar
+      (set! lst (listbox lst :width 70 :height (max 2 (min (length el) 20))
+			 :font "fixed"
+			 :xscroll (lambda args (apply scroll-x 'set args))
+			 :yscroll (lambda args (apply scroll-y 'set args))))
+      (set! scroll-x (scrollbar scroll-x :orient "hor" 
+				:command (lambda args (apply lst 'xview args))))
+      (set! scroll-y (scrollbar scroll-y :orient "ver"
+				:command (lambda args (apply lst 'yview args))))
+
+      (pack scroll-x :side "bottom" :fill "x")
+      (pack lst :expand #t :fill "both" :side "left")
+      (pack scroll-y :side "left"   :fill "y")
+
+      ;; fill it
+      (let ((bindings (map (lambda (x) 
+			     (format #f "~A = ~S" 
+				     (adjust-string (symbol->string (car x)) 20)
+				     (cdr x)))
+			   el)))
+	(apply lst 'insert 0 (sort bindings string<?)))
+
+      ;; Parent and quit button
+      (let ((p (parent-environment e)))
+	(pack (button quit 
+		      :text "Quit" :command (lambda () (destroy top)))
+	      (button parent
+		      :text "Parent environment" 
+		      :state (if p "normal" "disabled")
+		      :command (lambda () (display-environment p)))
+	    :expand #t :fill "x" :side "left"))))
+
+
+  (define (display-stack stack env)
+    (catch (destroy ".stackview"))
+
+    ;; Build a toplevel
+    (toplevel '.stackview)
+    (wm 'title .stackview "STk stack")
+
+    ;; Dispose items
+    (pack (label '.stackview.l :text "Stack content" :fg "RoyalBlue")
+	  :side "top")
+    (pack (frame '.stackview.f :bd 3 :relief "groove")
+	  :side "top" :expand #t :fill "both" :padx 5 :pady 5)
+    (pack (frame '.stackview.b)
+	  :side "bottom" :fill "x")
+
+    ;;;;;;;;;;;;;;;;;;;;
+    ;;
+    ;; The (double) listbox
+    ;;
+    ;;;;;;;;;;;;;;;;;;;;
+    (pack (scrollbar '.stackview.f.sx 
+		     :orient "hor" 
+		     :command (lambda args 
+				(apply .stackview.f.list 'xview args)))
+	  :side "bottom" :fill "x")
+
+    (pack (listbox '.stackview.f.env 
+		   :width  18
+		   :height 10
+		   :font "fixed"
+		   :bd 1
+		   :relief "raised")
+	  :expand #f :fill "y" :side "left")
+
+    (pack (listbox '.stackview.f.list 
+		   :width  70
+		   :height 10
+		   :font "fixed"
+		   :bd 1
+		   :relief "raised"
+		   :xscroll (lambda args (apply .stackview.f.sx 'set args))
+		   :yscroll (lambda args (apply .stackview.f.sy 'set args)))
+	  :expand #t :fill "both" :side "left")
+
+    (pack (scrollbar '.stackview.f.sy
+		     :orient "vert"
+		     :command (lambda args 
+				(apply .stackview.f.list 'yview args)))
+	  :side "left" :fill "y")
+
+    ;; Insert the stack elements in the listbox
+    (do ((stack stack (cdr stack))
+	 (env   env   (cdr env)))
+	((null? stack))
+      (.stackview.f.list 'insert 'end 
+			 (truncate (format #f "~S" (uncode(car stack))) 150))
+      (.stackview.f.env 'insert 'end 
+			(format #f "~A" 
+				(if (equal? (car env) (global-environment))
+				    "*global*"
+				    (address-of (car env))))))
+
+    ;; Insert a marker to delimit bottom of the stack
+    (.stackview.f.list 'insert 'end "<<< STACK BOTTOM >>>")
+    (.stackview.f.env  'insert 'end "*global*")
+
+    ;; listbox bindings
+    (bind .stackview.f.env  "<ButtonRelease-1>" select-environment)
+    (bind .stackview.f.list "<ButtonRelease-1>" select-expression)
+
+    ;;;;;;;;;;;;;;;;;;;;
+    ;;;;
+    ;;;; Listener
+    ;;;;
+    ;;;;;;;;;;;;;;;;;;;;
+    (pack (label '.stackview.l2 :text "Listener" :fg "RoyalBlue")
+	  :side "top")
+
+    (pack (frame '.stackview.vt :bd 3 :relief "groove") 
+	  :expand #t :fill "both" :padx 5 :pady 5)
+    (pack (listener '.stackview.vt.l 
+		    :font   "fixed" 
+		    :wrap   "word" 
+		    :height 10
+		    :command (lambda (x) (format #f "~S" 
+						 (eval-string x current-env)))
+		    :yscroll (lambda args (apply .stackview.vt.s 'set args)))
+	  :side "left" :expand #t :fill "both")
+    (pack (scrollbar '.stackview.vt.s
+		     :orient "vert"
+		     :command (lambda args (apply .stackview.vt.l 'yview args)))
+	  :side "right" :expand #f :fill "y")
+    ;;;;;;;;;;;;;;;;;;;;
+    ;;
+    ;; Bottom buttons
+    ;;
+    ;;;;;;;;;;;;;;;;;;;;
+    (pack [button '.stackview.b.q 
+		  :text "Quit"
+		  :command (lambda () (destroy .stackview))]
+	  [button '.stackview.b.h 
+		  :text "Help"
+		  :command (lambda () 
+			     (STk:show-help-file "error-hlp.html"))]
+     :side "left" :expand #t :fill "x")
+
+    ;; Center the window
+    (STk:center-window .stackview))
+
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  ;;;;
+  ;;;; Report-error starts here
+  ;;;; 
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (let* ((who (if (null? obj) "" (format #f "~S" obj)))
+	 (msg (truncate (string-append head "\n" message "\n" who "\n") 200)))
+
+    ;; Print message on standard error stream
+    (format (current-error-port) "\n~A~A~A\n" 
+	    head 
+	    message 
+	    (if (equal? who "") "" (string-append ": " who)))
+
+    ;; Open dialog box
+    (stk::make-dialog 
+	    :window   '.report-error
+	    :title    "STk error"
+	    :text     msg
+	    :bitmap   "error"
+	    :grab     #f
+	    :default  0
+	    :buttons  `(("    Quit     " ,(lambda () '()))
+			("See the stack" ,(lambda ()
+					    (display-stack stack env)))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Misc 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define *error-info* "")
+
+(define (bgerror . message)
+  ;; Important note: When a background error occurs, tk try to see if 
+  ;; bgerror is bound to something. This is achieved by calling bgerror
+  ;; with an empty message. In this case, nothing is printed
+  (unless (null? message)
+      (format (current-error-port) "**** Tk error (~S) ~S~%" 
+	      (car message) *error-info*))
+  (set! *error-info* ""))
+
+(define tkerror bgerror) ;; For compatibility with pre-Tk4.1 (i.e STk-3.1)
diff --git a/Lib/fileevent.stk b/Lib/fileevent.stk
new file mode 100644
index 0000000..2e8a706
--- /dev/null
+++ b/Lib/fileevent.stk
@@ -0,0 +1,41 @@
+;;;;
+;;;; f i l e e v e n t . s t k 		-- Implement the Tk fileevent commeand
+;;;;					   in term of when-port-{read|writ}able
+;;;;					   For backward compatibility ...
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 16-Jun-1996 22:37
+;;;; Last file update: 25-Jun-1996 00:07
+
+
+(define (fileevent file mode . script)
+  (define (err)
+    (error "fileeevent: bad mode specification ~S.\n(Note: fileevent is obsolete; use when-port-readable or when-port-writable)" mode))
+    
+  (let ((smode (& mode))
+	(fct   #f))
+    (cond 
+       ((equal? smode "readable") (set! fct when-port-readable))
+       ((equal? smode "writable") (set! fct when-port-writable))
+       (ELSE 			  (err)))
+    (if (null? script)
+	(fct file)
+	(let ((s (car script)))
+	  (cond 
+	   ((procedure? s)    (fct file s))
+	   ((string? s)       (if (string=? s "") (fct file #f) (err)))
+	   (ELSE	      (err)))))))
+
+
+       
\ No newline at end of file
diff --git a/Lib/focus.stk b/Lib/focus.stk
new file mode 100644
index 0000000..f4032d1
--- /dev/null
+++ b/Lib/focus.stk
@@ -0,0 +1,133 @@
+;;;;
+;;;; Focus management
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 27-Jul-1995 14:10
+;;;; Last file update:  4-Aug-1995 11:15
+;;;;
+
+
+;; tk_focusNext --
+;; This procedure returns the name of the next window after "w" in
+;; "focus order" (the window that should receive the focus next if
+;; Tab is typed in w).  "Next" is defined by a pre-order search
+;; of a top-level and its non-top-level descendants, with the stacking
+;; order determining the order of siblings.  The "-takefocus" options
+;; on windows determine whether or not they should be skipped.
+
+(define Tk:focus-on  	(lambda (w) #t))
+(define Tk:focus-off	(lambda (w) #f))
+
+(define Tk:focus-next 	#f)	; will be redefined below
+(define Tk:focus-prev	#f)	; will be redefined below
+
+;; ----------------------------------------------------------------------
+;; Default bindings for keyboard traversal.
+;; ----------------------------------------------------------------------
+
+(bind "all" "<Tab>" 	   (lambda (|W|) (focus (Tk:focus-next |W|))))
+(bind "all" "<Shift-Tab>"  (lambda (|W|) (focus (Tk:focus-prev |W|))))
+
+
+(let ()
+  (define (all-children w)
+    (let ((res '()))
+      (for-each (lambda (x)
+		  (unless (equal? x (winfo 'toplevel x))
+		      ;; x is not a toplevel
+			  (set! res (append res (all-children x)))))
+		(winfo 'children w))
+      (cons w res)))
+
+   (define (focusable? w)
+     (let ((focus #t)
+	   (value #f))
+
+       (if (winfo 'viewable w)
+	   (begin
+	     ;; 1. See if this window tells something in its :takefocus option
+	     (if (not (catch (set! value (tk-get w :takefocus))))
+		 ;; widget has :takefocus option
+		 ;; Remark: :takefocus option must be a closure. But original 
+		 ;; Tcl/Tk code can define the focus action as "0" or "1".
+		 ;; Those values can be hard-coded in the Tk library. So take them
+		 ;; into account
+		 (cond 
+		    ((boolean? value) (set! focus value))
+		    ((closure? value) (set! focus (value w)))))
+
+	     ;; 2. See if the window is not disabled
+	     (if focus
+		 (if (not (catch (set! value (tk-get w :state))))
+		     ;; widget has a :state option
+		     (set! focus (not (equal? value "disabled")))))
+
+	     ;; 3. Claim that the window is focuable inly if it exist some
+	     ;;    keyboard binding associated to it
+	     (if focus
+		 (let ((p (open-output-string)))
+		   (display (bind w) p)
+		   (display (bind (winfo 'class w)) p)
+		   (let ((s (get-output-string p)))
+		     (set! focus (or (string-find? "Key" s)
+				     (string-find? "Focus" s)))))))
+	   ;; w is not visible
+	   (set! focus #f))
+       focus))
+
+  (define (find-next w l)
+    (let* ((len   (length l))
+	   (index (- len (length (member w l)))))
+
+      ;; index is the position of the current widget in l
+      (let loop ((i (modulo (+ index 1) len)))
+	   (if (= i index)
+	       ;; not found, return w
+	       w
+	       (let ((widget (list-ref l i)))
+		 (if (focusable? widget)
+		     widget
+		     (loop (modulo (+ i 1) len))))))))
+
+  
+  (set! Tk:focus-next 
+	(lambda (w)
+	  (let ((all (all-children (winfo 'toplevel w))))
+	    (if (= (length all) 1)
+		(car all)
+		(find-next w all)))))
+
+  (set! Tk:focus-prev
+	(lambda (w)
+	  (let ((all (all-children (winfo 'toplevel w))))
+	    (if (= (length all) 1)
+		(car all)
+		(find-next w (reverse all)))))))
+
+
+(define (Tk:focus-follows-mouse)
+  (let ((old    (bind "all" "<Enter>"))
+	(script (lambda(|W| d)
+		  (if (or (equal? d "NotifyAncestor")
+			  (equal? d "NotifyNonlinear")
+			  (equal? d "NotifyInferior"))
+		      (focus |W|)))))
+    (add-binding "all" "<Enter>" script #f)))
+
+ 
+
+
diff --git a/Lib/ftp.stk b/Lib/ftp.stk
new file mode 100644
index 0000000..8796bb2
--- /dev/null
+++ b/Lib/ftp.stk
@@ -0,0 +1,171 @@
+;;;;
+;;;; f t p  . s t k		-- A very incomplete library for ftping file
+;;;;				   Error are not (yet) properly detected
+;;;;				   A lot of things are missing
+;;;;				   (See RFC 959)
+;;;;
+;;;; Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 10-Jun-1996 12:22
+;;;; Last file update: 19-Jul-1996 10:30
+
+(require "stklos")
+(require "posix")
+
+(define-class <FTP-connection> ()
+  ((port   :init-keyword :port :accessor port :initform 21)
+   (host   :init-keyword :host :accessor host)
+   (echo   :init-keyword :echo :initform display)
+   (socket :accessor socket-of)))
+
+;;;;
+;;;; Initialize (make the connection)
+;;;;
+(define-method initialize ((self <FTP-connection>) initargs)
+  (next-method)
+  (let ((port (slot-ref self 'port))
+	(host (slot-ref self 'host)))
+    (slot-set! self 'socket (make-client-socket host port))
+    (ftp-read-line  self #f)))
+
+;;;;
+;;;; ftp-read-line
+;;;;
+(define-method ftp-read-line ((self <FTP-connection>) echo?)
+  (let ((in 	      (socket-input (socket-of self)))
+	(analyse-code (lambda (code) (< code 400))))
+
+    (let loop ((srch #f) ; the code we search for multi-line responses
+	       (l    (read-line in)))
+      (if (eof-object? l)
+	  (begin
+	    (error "PANIC: ~A\n. Closing connection." msg)
+	    (socket-shutdown (socket-of self)))
+	  (let ((code (string->number (substring l 0 3)))
+		(sep  (string-ref l 3))
+		(msg  (substring  l 4 (string-length l))))
+	    (when echo?
+	      ((slot-ref self 'echo) (string-append msg "\n")))
+	    (if srch
+		;; We are already in a multi-line sequence 
+		(if (and (eq? code srch) (eq? sep #\space))
+		    (analyse-code code)
+		    (loop srch (read-line in)))
+		(if (char=? sep #\-)
+		    ;; We start a multi-line sequence
+		    (loop code (read-line in))
+		    (analyse-code code))))))))
+
+;;;;
+;;;; ftp-write-line
+;;;;
+(define-method ftp-write-line ((self <FTP-connection>) l echo?)
+  (let ((out (socket-output (socket-of self))))
+    (display l out) (newline out) (flush out)
+    (ftp-read-line self echo?)))
+
+;;;
+;;; Utilities
+;;;
+(define-method  ftp-data ((self <FTP-connection>) cmd)
+  (let* ((s  (make-server-socket 0))
+	 (c  (socket-of self))
+	 (n  (socket-port-number s))
+	 (ip (regexp-replace-all "\\." (socket-local-address c) ",")))
+
+    (if (and (ftp-write-line self (format #f "PORT ~A,~A,~A" ip
+					  (quotient n 256) (remainder n 256)) #f)
+	     (ftp-write-line self cmd #f))
+	;; Transfer seems OK
+	(begin
+	  (socket-accept-connection s)
+	  (let ((in (socket-input s)))
+	    (do ((l (read-line in) (read-line in)))
+		((eof-object? l))
+	      (display l)
+	      (newline)))
+	  (ftp-read-line self #f))
+	;; There something which is not OK (we should be more precise here)
+	#f)))
+
+(define-method ftp-data ((self <FTP-connection>) cmd)
+  (let* ((s  (make-server-socket 0))
+	 (c  (socket-of self))
+	 (n  (socket-port-number s))
+	 (ip (regexp-replace-all "\\." (socket-local-address c) ",")))
+    (and (ftp-write-line self (format #f "PORT ~A,~A,~A" ip
+				      (quotient n 256) (remainder n 256)) #f)
+	 (ftp-write-line self cmd #f)
+	 (socket-accept-connection s)
+	 s)))
+
+(define-method ftp-copy ((self <FTP-connection>) from to nowait?)
+  (do ((c (read-char from) (read-char from)))
+      ((eof-object? c))
+    (write-char c to))
+  (flush to)
+  (close-input-port from)
+  (or nowait? (ftp-read-line self #f)))
+
+;;;;==========================================================================
+;;;;
+;;;; FTP library (only a subpart of a true library)
+;;;;
+;;;;==========================================================================
+
+(define (ftp-login s user pass)
+  (and (ftp-write-line s (format #f "USER ~A" user) #t)
+       (ftp-write-line s (format #f "PASS ~A" pass) #t)))
+  
+(define (ftp-quit s)
+  (ftp-write-line s "QUIT" #t)
+  (socket-shutdown (socket-of s)))
+
+(define (ftp-chdir s dir)
+  (ftp-write-line s (format #f "CWD ~A" dir) #f))
+
+(define (ftp-pwd s)
+  (ftp-write-line s "PWD" #t))
+
+(define (ftp-type s mode)
+  (ftp-write-line s (format #f "TYPE ~A" mode) #f))
+
+(define (ftp-help s . cmd)
+  (ftp-write-line s
+     (format #f "HELP~A" (if (null? cmd) "" (string-append " " (car cmd))))
+     #t))
+
+(define (ftp-dir s . args)
+  (ftp-write-line s "TYPE A" #f)
+  (let* ((cmd  (if (null? args) "LIST" (format #f "NLST ~A" (car args))))
+	 (sock (ftp-data s cmd)))
+    (and sock (ftp-copy s (socket-input sock) (current-output-port) #f))))
+
+(define (ftp-get s file)
+  (ftp-write-line s "TYPE I" #f)
+  (let* ((cmd (format #f "RETR ~A" file))
+	 (sock (ftp-data s cmd)))
+    (and sock (ftp-copy s (socket-input sock) (open-output-file file) #f))))
+
+(define (ftp-display s file)
+  (ftp-write-line s "TYPE A" #f)
+  (let* ((cmd (format #f "RETR ~A" file))
+	 (sock (ftp-data s cmd)))
+    (and sock (ftp-copy s (socket-input sock) (current-output-port) #f))))
+
+(define (ftp-put s file)
+  (ftp-write-line s "TYPE I" #f)
+  (let* ((cmd (format #f "STOR ~A" file))
+	 (sock (ftp-data s cmd)))
+    (and sock (ftp-copy s (open-input-file file) (socket-output sock) #t))))
+
+(provide "ftp")
diff --git a/Lib/hash.stk b/Lib/hash.stk
new file mode 100644
index 0000000..d3f0cb7
--- /dev/null
+++ b/Lib/hash.stk
@@ -0,0 +1,33 @@
+;;;;
+;;;; h a s h . s t k 		-- Hash table initialisation
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  9-May-1994 11:52
+;;;; Last file update: 21-Jul-1996 18:41
+;;;;
+
+(if (symbol-bound? '%init-hash)
+    ;; Hash table module is in the core interpreter
+    (%init-hash)
+    ;; Try to load hash table dynamically
+    (load (string-append "hash." *shared-suffix*)))
+
+(define (hash-table->list h)
+  (unless (hash-table? h)
+	  (error "hash-table->list: bad hash table ~S" h))
+  (hash-table-map h (lambda (key value)
+                       (cons key value))))
+
+(provide "hash")
diff --git a/Lib/help.stk b/Lib/help.stk
new file mode 100644
index 0000000..8b421eb
--- /dev/null
+++ b/Lib/help.stk
@@ -0,0 +1,57 @@
+;;;;
+;;;; Help management
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 14-Sep-1993 13:30
+;;;; Last file update: 23-Jul-1996 17:14
+;;;;
+
+(require "html")
+
+(define (STk:show-help-file name)
+  (catch (destroy '.stk-help))
+  (toplevel '.stk-help)
+  (wm 'title .stk-help "STk help")
+
+  ;; Scroll text widget
+  (pack (frame '.stk-help.f) 
+	:expand #t :fill "both" :side "top")
+  (pack (text '.stk-help.f.t :font "fixed" :width 90 :height 25
+	      :yscroll (lambda args (apply .stk-help.f.s 'set args)))
+	:expand #t :fill "both" :side "left")
+  (pack (scrollbar '.stk-help.f.s :orient "vertical"
+		   :command (lambda args (apply  .stk-help.f.t 'yview args)))
+	:expand #f :fill "y" :side "left")
+  ;; Quit button
+  (pack (button '.stk-help.b :text "Quit" :command (lambda () (destroy .stk-help)))
+	:expand #f :fill "x" :side "bottom")
+  
+  ;; Show the file (after having found the Help directory)
+  (let loop ((l *help-path*))
+    (if (null? l)
+	(error "Cannot find help file ~S" name)
+	(let* ((f  (string-append (car l) "/../Help/" name))
+	       (fd (open-file f "r")))
+	  (if fd
+	      (begin
+		(html:set-base-directory! (string-append (car l) "/../Help"))
+		(html:view .stk-help.f.t fd)
+		(close-port fd))
+	      (loop (cdr l)))))))
+
+(define (help . arg)
+  (if (null? arg)
+      (STk:show-help-file "STk-hlp.html")
+      (STk:show-help-file (format #f "~A.n.html" (car arg)))))
+  
+(provide "help")
\ No newline at end of file
diff --git a/Lib/html.stk b/Lib/html.stk
new file mode 100644
index 0000000..7c825d5
--- /dev/null
+++ b/Lib/html.stk
@@ -0,0 +1,747 @@
+;;;;
+;;;; h t m l . s t k 		-- HTML support (no forms yet)
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  1-Sep-1995 09:52
+;;;; Last file update: 21-Jul-1996 18:41
+;;;;
+
+(if (symbol-bound? '%init-html)
+    ;; Html module is in the core interpreter
+    (%init-html)
+    ;; Try to load hash table dynamically
+    (load (string-append "html." *shared-suffix*)))
+
+;;;;
+;;;;   Exported routines
+;;;;
+(define html:view-URL 			#f)
+(define html:view     			#f)
+(define html:set-base-directory! 	#f)
+
+
+;; Hooks (They do nothing. overload them if needed)
+(define (html:hook-title title)    #f) ;; called when title change
+(define (html:hook-location title) #f) ;; called when location URL change
+(define (html:hook-start-loading)  #f) ;; called when a new page is loaded
+(define (html:hook-stop-loading)   #f) ;; called when a new page has been loaded
+(define (html:hook-formatting)     #f) ;; called often when formatting (pulse)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(let ()
+  (define default-indent-step   30)		; default indentation step 
+  (define default-border	8)
+  (define default-font		"times")	; Font to use for display
+  (define default-size		14)		; Default point size
+
+  (define point-size 		14)		; Point size
+  (define weight 		#f)
+  (define slant  		#f)
+  (define underline 		#f)
+  (define verbatim		#f)
+  (define strike		#f)
+  (define current-font		"times")
+  (define fixed-font		"courier")	; Fixed-width font
+  (define header-font		"times")	; Font for headers
+  (define left	 		default-border)	; left margin indent
+  (define right 		default-border)	; right margin indent
+  (define justify 		'left)
+  (define text-color		"black")	; Color for displaying text
+  (define color 		"black")	; Current color for text
+  (define color-link 		"blue")		; Color for display hyperlinks
+  (define color-old-link	"violet")
+  (define base-dir		#f)
+  (define list-stack 		'())
+  (define ignore-spaces 	#t)		; control multiple spaces
+  (define NL-count 		2)		; control multiple \n
+  (define buffered-text 	"")
+  (define list-level		-1)
+  (define list-stack 		'())
+  (define list-color		"IndianRed1")
+  (define font-info		'(("helvetica"  (medium bold)   (r o))
+				  ("times"      (medium bold)   (r i))
+				  ("symbol"	(medium medium) (r r))
+				  ("courier"    (medium bold)   (r o))
+				  ("lucida"     (medium bold)   (r i))))
+  (define header-info		'(("h1"	24 bold) ("h2" 20 bold) ("h3" 18 bold)
+				  ("h4"	16 bold) ("h5" 16 italic) ("h6" 0 italic)))
+
+  (define html 			#f)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; URL management
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define parse-URL
+  ;; Syntax is scheme://host[:port]/path/filename[#anchor]
+  ;; We can probably make better....
+  (let ((rgxp1   (string->regexp "^(.[a-zA-Z]*):.*"))
+	(rgxp2   (string->regexp "[^/]*//([^/:#]*)"))
+	(rgxp3   (string->regexp ".*:.*//.*:([^/#]*)"))
+	(rgxp4-1 (string->regexp "[^/]*([^#]+)"))
+	(rgxp4-2 (string->regexp "//[^/]*(/[^#]*)"))
+	(rgxp5   (string->regexp "[^#]*#(.*)$")))
+    (lambda (str)
+      (let ((scheme "file")
+	    (host   "localhost")
+	    (port   "80")
+	    (file   str)
+	    (anchor ""))
+	
+	;; Scheme
+	(let ((res (rgxp1 str)))
+	  (when res (set! scheme (apply substring str (cadr res)))))
+	;; Host 
+	(let ((res (rgxp2 str)))
+	  (when res (set! host (apply substring str (cadr res)))))
+	;; Port
+	(let ((res (rgxp3 str)))
+	  (when res (set! port (apply substring str (cadr res)))))
+	;; Filename
+	(let ((res (rgxp4-1 str)))
+	  (when res
+	    (let ((res (rgxp4-2 str)))
+	      (when res (set! file (apply substring str (cadr res)))))))
+	;; Anchor
+	(let ((res (rgxp5 str)))
+	   (when res (set! anchor (apply substring str (cadr res)))))
+	
+	(vector scheme host port file anchor)))))
+
+(define (URL->port url)
+  (let ((scheme (string-lower (vector-ref url 0)))
+	(host   (string-lower (vector-ref url 1)))
+	(file   (vector-ref url 3)))
+    (cond 
+       ((and (string=? scheme "file") (string=? host "localhost"))
+	       ;; Local file
+	       (unless base-dir
+		  (set! base-dir (dirname file)))
+	       (unless (eq? (string-ref file 0) #\/)
+		  (set! file (string-append base-dir "/" file)))
+	       (let ((fd (open-file file "r")))
+		 (unless fd (error "Cannot open the Html file \"~S\"."  file))
+		 fd))
+       ((string=? scheme "http")
+	        ;; HTTP file
+	        (open-distant-file host (vector-ref url 2) file))
+       (ELSE    (error "Cannot (yet) get file located at ~S" url)))))
+
+(define (open-distant-file host port file)
+  (error "Cannot open distant files for now"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; view-URL and view
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (view-URL txt f)
+  (let ((p (URL->port (parse-URL f))))
+    (html:hook-location f)
+    (view txt p)
+    (close-port p)))
+
+(define (view txt fd)
+  (html:hook-title "No title")
+  (html:hook-start-loading)
+  (set! html (make-hash-table string=?))
+  (set! current-font default-font)	; Initialize font
+  (set! point-size default-size)	; Point size
+  (set! verbatim #f)
+  (set! weight #f)			
+  (set! slant  #f)
+  (set! underline #f)			
+  (set! strike #f)
+  (set! left default-border)		; left margin indent
+  (set! right default-border)		; right margin indent
+  (set! list-level -1)
+  (set! list-stack '())
+  (set! justify 'left)
+  (set! color text-color)		; Current color for text
+  (set! list-stack '())
+  (set! ignore-spaces #t)		; Don't output multiple blanks in a row
+  (set! NL-count 2)			; Don't output more than two \n in a row.
+  (set! buffered-text "")
+
+  ;;
+  ;; Let's go
+  ;;
+  (tk-set! txt :state "normal" :wrap "word" :tabs (quotient default-indent-step 2))
+  (txt 'delete 1.0 "end")
+  (parse-port fd txt "")
+  (tk-set! txt :state "disabled")
+  (html:hook-stop-loading))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Parsing
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (parse-port fd txt delimiter)
+  (let loop ((token (%html:next-token fd)))
+    (html:hook-formatting)
+    (cond
+      ((eof-object? token) #f)
+      ((string? token)	   ;; This is simple text
+       			   (insert-simple-text txt token)
+			   (loop (%html:next-token fd)))
+      (ELSE		   ;; This is an HTML request
+			   (let ((command (car token))
+				 (args    (cdr token)))
+			     (unless (string=? command delimiter)
+				(html:handle-request fd txt command args)
+				(loop (%html:next-token fd)))))))
+  (mark-up txt))
+
+(define (insert-simple-text txt token)
+  (if verbatim 
+      (set! buffered-text (string-append buffered-text token))    
+      (let* ((t           (%html:clean-spaces token ignore-spaces))
+	     (next        (car t))
+	     (only-spaces (cdr t)))
+	(unless (string=? next "")
+	   (let ((c (string-ref next (- (string-length next) 1))))
+	     (set! ignore-spaces (char-whitespace? c))
+	     (unless only-spaces (set! NL-count 0))
+	     (set! buffered-text (string-append buffered-text next)))))))
+
+(define (html:handle-request fd txt token args)
+  (let ((proc (string->symbol (string-append "html:" token))))
+    (if (symbol-bound? proc (the-environment) )
+	((eval proc (the-environment)) fd txt args)
+	;; Signal an error only if 1rst char is not a / 
+	;; (to allow non paired <x> </x>)
+	(unless (eq? (string-ref token 0) #\/)
+	   (format (current-error-port) 
+		   "html: `~a'request not implemented\n" token)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(define (html:make-font-name name weight slant point-size)
+  (let ((info (cdr (assoc name font-info))))
+    (format #f "-*-~a-~a-~a-normal-*-~a-*-*-*-*-*-*-*"
+	    name
+	    ((if weight cadr car) (car  info))
+	    ((if slant  cadr car) (cadr info))
+	    point-size)))
+
+(define last-tag "")
+
+(define (mark-up txt)
+  (unless (string=? buffered-text "")
+    (let ((tag (format #f "Tag-~A-~A-~A-~A-~A-~A-~A-~A-~A-~A-~A" 
+		       current-font
+		       (if weight    "b" "")
+		       (if slant     "i" "")
+		       (if underline "u" "")
+		       (if strike    "s" "")
+		       point-size
+		       left 
+		       left
+		       right
+		       color
+		       justify)))
+      (set! last-tag tag)
+      ;; configure it
+      (let ((font (html:make-font-name current-font weight slant point-size)))
+	(unless (hash-table-get html tag #f)
+	   ;; New tag; configure it
+	   (hash-table-put! html tag font)
+	   (txt 'tag 'configure tag
+		:font	     font
+		:foreground  color
+		:underline   underline
+		:overstrike  strike
+		:justify     justify
+		:lmargin1    (if (> left 0) left "")
+		:lmargin2    (if (> left 0) left "")
+		:rmargin     (if (> right 0) right ""))))
+      ;; apply formatting
+      (txt 'insert "end" buffered-text tag)
+      (set! buffered-text ""))))
+
+(define (output-newline count)
+  ;; Output newlines. Try and limit how many consequtive newlines get output.
+  (when (< NL-count count)
+     (if (> (+ count NL-count) 2)
+	 (set! count (- 2 NL-count)))
+     (set! buffered-text (string-append buffered-text 
+					(make-string count #\newline)))
+     (set! NL-count count)
+     (set! ignore-spaces #t)))
+
+;;; Split-fields is used to decompose a complex HTML command such as
+;;;         ALIGN=top SRC="image_URL" alt=""
+;; In this case, it returns
+;;	    (("align" . "top") ("src" . "image_URL") (alt . ""))
+(define html:split-fields 
+  (let ((rgxp  (string->regexp  " *([^=> ]+) *= *\"?([^ >\"]+)\"?"))) ; Yeah!!
+    
+    (lambda (str)
+      (let loop ((str str) (res '()))
+	(let ((one (rgxp str)))
+	  (if one
+	      (let ((len   (string-length str))
+		    (key   (apply substring str (cadr one)))
+		    (value (apply substring str (caddr one))))
+		
+		(set! res (cons (cons (string-lower key) value) res))
+		(if (< (cadar one) (- len 1))
+		    ;; see if other matches
+		    (loop (substring str (+ (cadar one) 1) len) res)
+		    ;; We have finished 
+		    res))
+	      res))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Mark-up procedures
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;; <P>
+(define (html:p fd txt unused)
+  (output-newline 2))
+
+
+;;;; <BR>
+(define (html:br fd txt unused)
+  (output-newline 1))
+
+
+;;;; <TT>
+(define (html:teletype fd txt delimiter)
+  (mark-up txt)
+  ;; decrement size since fixed font are generally larger than proportionnal ones
+  ;; Be careful to not decrement if already in fixed font (i.e. </tt> forgotten)
+  (fluid-let ((point-size   (if (equal? current-font fixed-font) 
+				point-size 
+				(- point-size 2)))
+	      (current-font fixed-font))
+    (parse-port fd txt delimiter)))
+
+(define (html:tt     fd txt unused)  (html:teletype fd txt "/tt"))
+(define (html:code   fd txt unused)  (html:teletype fd txt "/code"))
+(define (html:kbd    fd txt unused)  (html:teletype fd txt "/kbd"))
+(define (html:samp   fd txt unused)  (html:teletype fd txt "/samp"))
+
+
+;;;; <B>
+(define (html:bold fd txt unused)
+  (mark-up txt)
+  (set! weight #t))
+
+(define (html:/bold fd txt unused)
+  (mark-up txt)
+  (set! weight #f))
+
+(define html:b	     html:bold)
+(define html:strong  html:bold)
+(define html:/b	     html:/bold)
+(define html:/strong html:/bold)
+
+
+;;;; <I>
+(define (html:italic fd txt unused)
+  (mark-up txt)
+  (set! slant #t))
+
+(define (html:/italic fd txt unused)
+  (mark-up txt)
+  (set! slant #f))
+
+(define html:i     html:italic)
+(define html:em    html:italic)
+(define html:var   html:italic)
+(define html:cite  html:italic)
+(define html:dfn   html:italic)
+(define html:/i    html:/italic)
+(define html:/em   html:/italic)
+(define html:/var  html:/italic)
+(define html:/cite html:/italic)
+(define html:/dfn  html:/italic)
+
+
+;;;; <U>
+(define (html:u  fd txt unused)
+  (mark-up txt)
+  (set! underline #t))
+
+(define (html:/u fd txt unused)
+  (mark-up txt)
+  (set! underline #f))
+
+
+;;;; <STRIKE>
+(define (html:strike fd txt unused)
+  (mark-up txt)
+  (set! strike #t))
+
+(define (html:/strike fd txt unused)
+  (mark-up txt)
+  (set! strike #f))
+
+;;;; <CENTER>
+(define (html:center fd txt unused)
+  (mark-up txt)
+  (fluid-let ((justify 'center))
+    (parse-port fd txt "/center")))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Headers
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (header fd txt token pre-skip)
+  (let* ((info  (cdr (assoc token header-info)))
+	 (point (if (> (car info) 0)  (car info) point-size))
+	 (mode  (cadr info))
+	 (end	(string-append "/" token)))
+    
+    (output-newline pre-skip)
+    (mark-up txt)
+
+    (fluid-let ((point-size   point)
+		(current-font header-font)
+		(weight	      (eq? mode 'bold))
+		(slant 	      (eq? mode 'italic))
+		(underline    (eq? mode 'underline)))
+      (parse-port fd txt end)
+      (output-newline 2))))
+
+(define (html:h1 fd txt unused) (header fd txt "h1" 2))
+(define (html:h2 fd txt unused) (header fd txt "h2" 2))
+(define (html:h3 fd txt unused) (header fd txt "h3" 2))
+(define (html:h4 fd txt unused) (header fd txt "h4" 2))
+(define (html:h5 fd txt unused) (header fd txt "h5" 2))
+(define (html:h6 fd txt unused) (header fd txt "h6" 1))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Lists
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (start-list fd txt delimiter value)
+  (mark-up txt)
+  (output-newline 1)
+
+  (fluid-let ((left 	  (+ left default-indent-step))
+	      (list-level (+ list-level 1))
+	      (list-stack (cons value list-stack)))
+    (parse-port fd txt delimiter))
+  
+  (output-newline 1))
+  
+(define (html:ul   fd txt unused) (start-list fd txt "/ul" #f))
+(define (html:ol   fd txt unused) (start-list fd txt "/ol" 1))
+(define (html:dir  fd txt unused) (start-list fd txt "/dir" #f))
+(define (html:menu fd txt unused) (start-list fd txt "/menu" #f))
+
+
+(define (html:li fd txt unused)
+  (when (>= list-level 0)
+     (output-newline 1)
+     (mark-up txt)
+
+     (let* ((half-dist (quotient default-indent-step 2))
+	    (value     (car list-stack))
+	    (mark      (if (number? value)
+			   (format #f "~A." value)
+			   (if (even? list-level) "*" "-"))))
+       
+       ;; Push new value in the stack if it is a numbered list
+       (if value  (set-car! list-stack (+ value 1)))
+       (set! buffered-text (string-append buffered-text mark "\t"))
+
+       (fluid-let ((left   (- left half-dist))
+		   (weight #t)
+		   (color  list-color))
+	 (mark-up txt)
+	 (set! ignore-spaces #t)))))
+
+;;
+;; Definition Lists
+;; 
+
+(define dlist-stack '()) ; stores (left . weight) for each <dl>
+
+(define (html:dl fd txt unused)
+  (mark-up txt)
+  (output-newline 1)
+  (set! dlist-stack (cons (cons left weight) dlist-stack))
+
+  (parse-port fd txt "/dl")
+    
+  (set! left        (caar dlist-stack))
+  (set! weight      (cdar dlist-stack))
+  (set! dlist-stack (cdr dlist-stack))
+  (mark-up txt)
+  (output-newline 1))
+
+(define (html:dt fd txt unused)
+  (mark-up txt)
+  (output-newline 1)
+  (set! left (caar dlist-stack))
+  (set! weight #t))
+
+(define (html:dd fd txt unused)
+  (mark-up txt)
+  (output-newline 1)
+  (set! left   (+ (caar dlist-stack) default-indent-step))
+  (set! weight (cdar dlist-stack)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Anchors
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define html:a 
+  (let ((enter-binding (lambda (|W|) (|W| 'configure :cursor "hand2")))
+	(leave-binding (lambda (|W|) (|W| 'configure :cursor "top_left_arrow"))))
+    (lambda (fd txt args)
+      (mark-up txt)
+      (let* ((start    (txt 'index "end-1c"))
+	     (fields   (html:split-fields args))
+	     (tag      (gensym "tag-"))
+	     (href     (assoc "href" fields))
+	     (name     (assoc "name" fields))
+	     (expr     (assoc "expr" fields))
+	     (make-tag (lambda (name)
+			 (or (hash-table-get html name #f)
+			     (let ((res (gensym "anchor-")))
+			       (hash-table-put! html name res)
+			       res)))))
+	(if (or href expr)
+	    (fluid-let ((underline #t)
+			(color     color-link))
+	      (parse-port fd txt "/a"))
+	    (parse-port fd txt "/a"))
+	
+	(mark-up txt)
+	(txt 'tag 'add  tag start "end-1c")
+	(txt 'tag 'bind tag "<Enter>" enter-binding)
+	(txt 'tag 'bind tag "<Leave>" leave-binding)
+	
+	(when href
+	  (let* ((href (cdr href))
+		 (htag (if (eq? (string-ref href 0) #\#) href #f)))
+	    (txt 'tag 'bind tag "<ButtonRelease>"
+		 (if htag
+		     (lambda () (html:name txt tag (make-tag htag)))
+		     (lambda () (html:href txt href tag))))))
+	(when name
+	  (txt 'tag 'add (make-tag (string-append "#" (cdr name)))
+	       start "end-1c"))
+	
+	(when expr
+	  (txt 'tag 'bind tag "<ButtonRelease>"
+	       (lambda () (html:eval txt tag args))))))))
+	  
+(define (html:href txt href tag)
+  (txt 'tag 'configure tag :foreground color-old-link)
+  ;; View the page at given URL
+  (view-URL txt href))
+
+(define (html:name txt from-tag to-tag)
+  (let ((start (format #f "~A.first" to-tag)))
+    (unless (null? (txt 'tag 'ranges to-tag))
+       (txt 'see (txt 'index start))
+       (txt 'tag 'configure from-tag :foreground color-old-link))))
+  
+(define (html:eval txt tag str)
+  (let ((expr  (substring str 5 (string-length str))))
+    ;; Replace &amp &gt and &lt by & > and < (to allow those chars in scripts)
+    (regexp-replace-all "&gt" expr ">")
+    (regexp-replace-all "&lt" expr "<")
+    (regexp-replace-all "&amp" expr "&")
+    (eval-string expr (global-environment)))
+  (txt 'tag 'configure tag :foreground color-old-link))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Images
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (html:insert-image txt img align)
+  (let ((lab    (gensym (format #f "~A.lab" (widget-name txt))))
+	(start  (txt 'index "insert")))
+    (label lab :image img :borderwidth 0 :highlightthickness 0)
+    (txt 'window 'create "end" :window lab :pady 2 :padx 2 :align align)
+
+    ;; Extend last tag to the image (so it can pass through)
+    (txt 'tag 'add last-tag start "end")
+
+    (set! NL-count 0)
+    (set! ignore-spaces #f)))
+
+    
+(define (html:img fd txt args)
+  (let* ((fields  (html:split-fields args))
+	 (align   (assoc "align" fields))
+	 (alt     (assoc "alt"   fields))
+	 (src	  (assoc "src"   fields)))
+    (when src
+      (let* ((src-url (parse-URL (cdr src)))
+	     (file   "")
+	     (img    #f))
+	(mark-up txt)
+	;; We manage only local images for now
+	(set! file (vector-ref src-url 3))
+
+	;; Look alignment
+	(if align
+	    (begin
+	      (set! align (string-lower (cdr align)))
+	      ;; I have problems with align which doesn't seem to work. Only
+	      ;; baseline seem to be correct.... 
+	      (cond 
+	       ((string=? align "middle") (set! align "center"))
+	       ((string=? align "bottom") (set! align "baseline")))) ; WEIRD
+	    (set! align "baseline"))
+
+	;; Try loading image as a photo and if it fails as a bitmap
+	(unless (eq? (string-ref file 0) #\/)
+	  (set! file (string-append base-dir "/" file)))
+	(if (catch (set! img (image 'create 'photo :file file)))
+	    (catch (set! img (image 'create 'bitmap :file file))))
+	(if img
+	    (html:insert-image txt img align)
+	    ;; Image not found insert the ALT field (if present)
+	    (fluid-let ((color      "red")
+			(point-size 18))
+	      (set! buffered-text (if alt (cdr alt) "Image "))
+	      (mark-up txt)))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Fonts
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (html:font fd txt args)
+
+  (define (compute-size old new)
+    (let ((v (read-from-string new)))
+      (if (number? v)
+	  (max 4 (min 48 (+ old v)))
+	  old)))
+
+  (let* ((fields (html:split-fields args))
+	 (col    (assoc "color" fields))
+	 (sz     (assoc "size"  fields)))
+    (mark-up txt)
+    (fluid-let ((color       (if col (cdr col) color))
+		(point-size  (compute-size point-size (if sz (cdr sz) "0"))))
+      (parse-port fd txt "/font"))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Misc
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;; Address
+
+(define (html:address fd txt unused)
+  (mark-up txt)
+  (output-newline 1)
+  (fluid-let ((justify 'right)
+	      (slant   #t))
+    (parse-port fd txt "/address")))
+
+;;;; Blockquote: extended quotations
+
+(define (html:blockquote fd txt unused)
+  (mark-up txt)
+  (output-newline 2)
+  (fluid-let ((left  (+ left default-indent-step))
+	      (right (+ right default-indent-step))
+	      (slant #t))
+    (parse-port fd txt "/blockquote"))
+  (output-newline 2))
+
+;;;; Horizontal Rules
+
+(define (html:hr fd txt token)
+  (output-newline 2)
+  (mark-up txt)
+  (fluid-let ((justify 'left)
+	      (underline #f)
+	      (left default-border)
+	      (right default-border))
+    (set! buffered-text " \n\n")
+    (mark-up txt)
+    (let ((line (car (txt 'index "end"))))
+      (txt 'tag 'add "separator" (cons (- line 3) 0) (cons (- line 2) 0))
+      (txt 'tag 'configure "separator" :relief "ridge" :borderwidth 1
+	   :font "-*-times-*-*-*-*-4-*-*-*-*-*-*-*" :justify "left")))
+    (output-newline 1))
+
+;;;; Preformatted Text
+
+(define (html:pre fd txt unused)
+  (mark-up txt)
+  (output-newline 1)
+  (fluid-let ((verbatim #t))
+    (html:teletype fd txt "/pre")
+    (output-newline 2)))
+
+(define (html:title fd txt unused)
+  (html:hook-title ""))
+
+(define (html:/title fd txt unused)
+  (html:hook-title buffered-text)
+  (set! buffered-text ""))
+
+;;;; <BODY> + some common extensions
+(define (html:body fd txt args)
+  (let* ((fields  (html:split-fields args))
+	 (bgcolor (assoc "bgcolor" fields))
+	 (fgcolor (assoc "text"    fields)))
+
+    (when bgcolor (txt 'configure :background (cdr bgcolor)))
+    (when fgcolor (set! color (cdr fgcolor)))))
+  
+
+;;;; Commands which do nothing in STk
+(define (html:html fd txt unused)  'OK)
+(define (html:head fd txt unused)  'OK)
+(define (html:!--  fd txt unused)  'OK)
+
+
+;;;; Exports symbols
+(set! html:view-URL 		view-URL)
+(set! html:view     		view)
+(set! html:set-base-directory!	(lambda (dir) (set! base-dir dir)))
+)
+
+(provide "html")
diff --git a/Lib/images/Cancel.gif b/Lib/images/Cancel.gif
new file mode 100644
index 0000000..bd5f061
Binary files /dev/null and b/Lib/images/Cancel.gif differ
diff --git a/Lib/images/Help.gif b/Lib/images/Help.gif
new file mode 100644
index 0000000..a0fdc67
Binary files /dev/null and b/Lib/images/Help.gif differ
diff --git a/Lib/images/Ok.gif b/Lib/images/Ok.gif
new file mode 100644
index 0000000..63074de
Binary files /dev/null and b/Lib/images/Ok.gif differ
diff --git a/Lib/images/STk-normal.gif b/Lib/images/STk-normal.gif
new file mode 100644
index 0000000..cb29ffc
Binary files /dev/null and b/Lib/images/STk-normal.gif differ
diff --git a/Lib/images/boxes b/Lib/images/boxes
new file mode 100644
index 0000000..0deb801
--- /dev/null
+++ b/Lib/images/boxes
@@ -0,0 +1,6 @@
+#define boxes_width 16
+#define boxes_height 16
+static char boxes_bits[] = {
+   0x0f, 0x0f, 0x09, 0x09, 0x09, 0x09, 0x0f, 0x0f, 0xf0, 0xf0, 0x90, 0x90,
+   0x90, 0x90, 0xf0, 0xf0, 0x0f, 0x0f, 0x09, 0x09, 0x09, 0x09, 0x0f, 0x0f,
+   0xf0, 0xf0, 0x90, 0x90, 0x90, 0x90, 0xf0, 0xf0};
diff --git a/Lib/images/cross_weave b/Lib/images/cross_weave
new file mode 100644
index 0000000..40de9e4
--- /dev/null
+++ b/Lib/images/cross_weave
@@ -0,0 +1,6 @@
+#define cross_weave_width 16
+#define cross_weave_height 16
+static char cross_weave_bits[] = {
+   0x55, 0x55, 0x88, 0x88, 0x55, 0x55, 0x22, 0x22, 0x55, 0x55, 0x88, 0x88,
+   0x55, 0x55, 0x22, 0x22, 0x55, 0x55, 0x88, 0x88, 0x55, 0x55, 0x22, 0x22,
+   0x55, 0x55, 0x88, 0x88, 0x55, 0x55, 0x22, 0x22};
diff --git a/Lib/images/dimple1 b/Lib/images/dimple1
new file mode 100644
index 0000000..9144605
--- /dev/null
+++ b/Lib/images/dimple1
@@ -0,0 +1,6 @@
+#define dimple1_width 16
+#define dimple1_height 16
+static char dimple1_bits[] = {
+   0x55, 0x55, 0x00, 0x00, 0x55, 0x55, 0x00, 0x00, 0x55, 0x55, 0x00, 0x00,
+   0x55, 0x55, 0x00, 0x00, 0x55, 0x55, 0x00, 0x00, 0x55, 0x55, 0x00, 0x00,
+   0x55, 0x55, 0x00, 0x00, 0x55, 0x55, 0x00, 0x00};
diff --git a/Lib/images/dimple3 b/Lib/images/dimple3
new file mode 100644
index 0000000..209b4e8
--- /dev/null
+++ b/Lib/images/dimple3
@@ -0,0 +1,6 @@
+#define dimple3_width 16
+#define dimple3_height 16
+static char dimple3_bits[] = {
+   0x11, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x11, 0x11, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x11, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x11, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/Lib/images/down_arrow_8.bm b/Lib/images/down_arrow_8.bm
new file mode 100644
index 0000000..03b0484
--- /dev/null
+++ b/Lib/images/down_arrow_8.bm
@@ -0,0 +1,4 @@
+#define down_arrow_8_width 8
+#define down_arrow_8_height 8
+static char down_arrow_8_bits[] = {
+   0xff, 0xff, 0x7e, 0x7e, 0x3c, 0x3c, 0x18, 0x18};
diff --git a/Lib/images/earth.gif b/Lib/images/earth.gif
new file mode 100644
index 0000000..2c229eb
Binary files /dev/null and b/Lib/images/earth.gif differ
diff --git a/Lib/images/earthris.gif b/Lib/images/earthris.gif
new file mode 100644
index 0000000..c4ee473
Binary files /dev/null and b/Lib/images/earthris.gif differ
diff --git a/Lib/images/face b/Lib/images/face
new file mode 100644
index 0000000..8e09419
--- /dev/null
+++ b/Lib/images/face
@@ -0,0 +1,171 @@
+#define face_width 108
+#define face_height 144
+static char face_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x09,
+   0x20, 0x80, 0x24, 0x05, 0x00, 0x80, 0x08, 0x00, 0x00, 0x00, 0x00, 0x88,
+   0x24, 0x20, 0x80, 0x24, 0x00, 0x00, 0x00, 0x10, 0x80, 0x04, 0x00, 0x01,
+   0x00, 0x01, 0x40, 0x0a, 0x09, 0x00, 0x92, 0x04, 0x80, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x10, 0x40, 0x12, 0x00, 0x00, 0x10, 0x40, 0x00, 0x00, 0x84,
+   0x24, 0x40, 0x22, 0xa8, 0x02, 0x14, 0x84, 0x92, 0x40, 0x42, 0x12, 0x04,
+   0x10, 0x00, 0x00, 0x00, 0x00, 0x52, 0x00, 0x52, 0x11, 0x00, 0x12, 0x00,
+   0x40, 0x02, 0x00, 0x20, 0x00, 0x08, 0x00, 0xaa, 0x02, 0x54, 0x85, 0x24,
+   0x00, 0x10, 0x12, 0x00, 0x00, 0x81, 0x44, 0x00, 0x90, 0x5a, 0x00, 0xea,
+   0x1b, 0x00, 0x80, 0x40, 0x40, 0x02, 0x00, 0x08, 0x00, 0x20, 0xa2, 0x05,
+   0x8a, 0xb4, 0x6e, 0x45, 0x12, 0x04, 0x08, 0x00, 0x00, 0x00, 0x10, 0x02,
+   0xa8, 0x92, 0x00, 0xda, 0x5f, 0x10, 0x00, 0x10, 0xa1, 0x04, 0x20, 0x41,
+   0x02, 0x00, 0x5a, 0x25, 0xa0, 0xff, 0xfb, 0x05, 0x41, 0x02, 0x04, 0x00,
+   0x00, 0x08, 0x40, 0x80, 0xec, 0x9b, 0xec, 0xfe, 0x7f, 0x01, 0x04, 0x20,
+   0x90, 0x02, 0x04, 0x00, 0x08, 0x20, 0xfb, 0x2e, 0xf5, 0xff, 0xff, 0x57,
+   0x00, 0x04, 0x02, 0x00, 0x00, 0x20, 0x01, 0xc1, 0x6e, 0xab, 0xfa, 0xff,
+   0xff, 0x05, 0x90, 0x20, 0x48, 0x02, 0x00, 0x04, 0x20, 0xa8, 0xdf, 0xb5,
+   0xfe, 0xff, 0xff, 0x0b, 0x01, 0x00, 0x01, 0x00, 0x80, 0x80, 0x04, 0xe0,
+   0xbb, 0xef, 0xff, 0xff, 0x7f, 0x01, 0x00, 0x04, 0x48, 0x02, 0x00, 0x20,
+   0x80, 0xf4, 0x6f, 0xfb, 0xff, 0xff, 0xff, 0x20, 0x90, 0x40, 0x02, 0x00,
+   0x00, 0x04, 0x08, 0xb8, 0xf6, 0xff, 0xff, 0xdf, 0xbe, 0x12, 0x45, 0x10,
+   0x90, 0x04, 0x90, 0x00, 0x22, 0xfa, 0xff, 0xff, 0xff, 0xbb, 0xd7, 0xe9,
+   0x3a, 0x02, 0x02, 0x00, 0x04, 0x90, 0x80, 0xfe, 0xdf, 0xf6, 0xb7, 0xef,
+   0xbe, 0x56, 0x57, 0x40, 0x48, 0x09, 0x00, 0x04, 0x00, 0xfa, 0xf5, 0xdf,
+   0xed, 0x5a, 0xd5, 0xea, 0xbd, 0x09, 0x00, 0x00, 0x40, 0x00, 0x92, 0xfe,
+   0xbf, 0x7d, 0xb7, 0x6a, 0x55, 0xbf, 0xf7, 0x02, 0x11, 0x01, 0x00, 0x91,
+   0x00, 0xff, 0xff, 0xaf, 0x55, 0x55, 0x5b, 0xeb, 0xef, 0x22, 0x04, 0x04,
+   0x04, 0x00, 0xa4, 0xff, 0xf7, 0xad, 0xaa, 0xaa, 0xaa, 0xbe, 0xfe, 0x03,
+   0x20, 0x00, 0x10, 0x44, 0x80, 0xff, 0x7f, 0x55, 0x12, 0x91, 0x2a, 0xeb,
+   0xbf, 0x0b, 0x82, 0x02, 0x00, 0x00, 0xd1, 0x7f, 0xdf, 0xa2, 0xa4, 0x54,
+   0x55, 0xfd, 0xfd, 0x47, 0x08, 0x08, 0x00, 0x21, 0xe4, 0xff, 0x37, 0x11,
+   0x09, 0xa5, 0xaa, 0xb6, 0xff, 0x0d, 0x80, 0x00, 0x00, 0x04, 0xd0, 0xff,
+   0x4f, 0x44, 0x20, 0x48, 0x55, 0xfb, 0xff, 0x27, 0x11, 0x02, 0x40, 0x40,
+   0xe2, 0xfb, 0x15, 0x11, 0x4a, 0x55, 0x4a, 0x7d, 0xf7, 0x0f, 0x00, 0x00,
+   0x04, 0x08, 0xf8, 0xdf, 0x52, 0x44, 0x01, 0x52, 0xb5, 0xfa, 0xff, 0x0f,
+   0x49, 0x02, 0x00, 0x02, 0xe9, 0xf6, 0x0a, 0x11, 0xa4, 0x88, 0x4a, 0x6d,
+   0xff, 0x5f, 0x00, 0x00, 0x10, 0x20, 0xf0, 0x2f, 0x21, 0x44, 0x10, 0x52,
+   0xb5, 0xfa, 0xff, 0x0f, 0x44, 0x04, 0x80, 0x08, 0xf8, 0xab, 0x8a, 0x00,
+   0x81, 0xa4, 0xd4, 0xd6, 0xfe, 0x2f, 0x00, 0x00, 0x04, 0x40, 0xb5, 0x2d,
+   0x21, 0x08, 0x04, 0x90, 0xaa, 0xfa, 0xff, 0x1f, 0x11, 0x01, 0x00, 0x04,
+   0xf0, 0x57, 0x0a, 0x22, 0x40, 0x4a, 0xda, 0x5e, 0xfb, 0x1f, 0x40, 0x00,
+   0x40, 0x20, 0xba, 0x95, 0x90, 0x00, 0x01, 0xa0, 0xaa, 0xea, 0xff, 0x5f,
+   0x02, 0x02, 0x00, 0x01, 0xe8, 0x57, 0x05, 0x00, 0x00, 0x12, 0xd5, 0xfe,
+   0xfd, 0x1f, 0x48, 0x00, 0x04, 0x48, 0x7a, 0x95, 0x08, 0x02, 0x10, 0x40,
+   0xaa, 0x55, 0xf7, 0x1f, 0x00, 0x09, 0x20, 0x00, 0xf8, 0x57, 0x22, 0x10,
+   0x00, 0x28, 0xa9, 0xfa, 0xff, 0x5f, 0x02, 0x00, 0x00, 0x49, 0xdd, 0x29,
+   0x01, 0x00, 0x80, 0x80, 0xaa, 0xd7, 0xff, 0x0f, 0x10, 0x00, 0x08, 0x00,
+   0xf8, 0x96, 0x08, 0x00, 0x00, 0x20, 0x54, 0xfa, 0xee, 0x3f, 0x81, 0x04,
+   0x40, 0x24, 0xfe, 0x55, 0x82, 0x00, 0x00, 0x82, 0xd2, 0xad, 0xff, 0x0f,
+   0x08, 0x00, 0x04, 0x80, 0x6c, 0x97, 0x00, 0x00, 0x02, 0x20, 0xa9, 0xf6,
+   0xdf, 0x5f, 0x00, 0x02, 0x20, 0x09, 0xfa, 0x49, 0x12, 0x00, 0x20, 0x84,
+   0x54, 0xdb, 0xfe, 0x1f, 0x91, 0x00, 0x00, 0x00, 0xf8, 0x2b, 0x00, 0x20,
+   0x00, 0x40, 0xa4, 0xf6, 0xbb, 0x1f, 0x04, 0x00, 0x44, 0x92, 0x7e, 0x95,
+   0x02, 0x00, 0x00, 0x89, 0xaa, 0xdd, 0xff, 0x1f, 0x20, 0x09, 0x10, 0x00,
+   0xf4, 0x57, 0x20, 0x01, 0x08, 0x20, 0xa9, 0x76, 0xff, 0x5f, 0x02, 0x00,
+   0x00, 0x21, 0xfc, 0x4a, 0x05, 0x00, 0x01, 0x80, 0x54, 0xdb, 0xff, 0x1e,
+   0x08, 0x02, 0x04, 0x08, 0xf9, 0x2b, 0x00, 0x00, 0x40, 0x28, 0xd2, 0xf6,
+   0xff, 0xbf, 0x80, 0x00, 0x90, 0x00, 0xbc, 0x92, 0x08, 0x10, 0x00, 0x82,
+   0x54, 0xdb, 0xff, 0x1f, 0x20, 0x00, 0x00, 0x44, 0xf9, 0x55, 0x02, 0x01,
+   0x00, 0x20, 0xaa, 0xbd, 0xfd, 0x3f, 0x08, 0x04, 0x04, 0x10, 0xf4, 0x2a,
+   0x01, 0x00, 0x22, 0x80, 0xd4, 0xf6, 0xff, 0x5f, 0x82, 0x00, 0x40, 0x02,
+   0xf8, 0x55, 0x20, 0x00, 0x00, 0x50, 0x6a, 0xdf, 0xfe, 0x3f, 0x00, 0x00,
+   0x00, 0x48, 0xe9, 0x4a, 0x05, 0x08, 0x00, 0xa5, 0xd5, 0xf5, 0xff, 0x3f,
+   0x10, 0x01, 0x10, 0x01, 0xb0, 0xab, 0x92, 0x02, 0x40, 0xf8, 0xbf, 0xde,
+   0xfe, 0x5f, 0x02, 0x04, 0x04, 0x48, 0xfa, 0xd4, 0x6f, 0x20, 0x84, 0xef,
+   0xff, 0xfb, 0xff, 0x1f, 0x20, 0x00, 0x00, 0x00, 0xe0, 0xed, 0xbf, 0x0b,
+   0xa1, 0x7e, 0xff, 0xbf, 0xfd, 0x5f, 0x04, 0x01, 0x20, 0x49, 0xd2, 0xfb,
+   0xfe, 0x55, 0xd4, 0xff, 0xff, 0xf6, 0xff, 0x07, 0x00, 0x04, 0x00, 0x00,
+   0xc0, 0xaa, 0xfb, 0x2b, 0xa2, 0xfe, 0xff, 0xdf, 0xee, 0x1f, 0x91, 0x00,
+   0x82, 0xa4, 0xa4, 0xf5, 0xff, 0x57, 0xd5, 0xff, 0xbf, 0xfd, 0xff, 0x4d,
+   0x00, 0x00, 0x20, 0x00, 0x88, 0x5b, 0xff, 0x2f, 0x69, 0xff, 0xff, 0xdb,
+   0xfe, 0x1f, 0x24, 0x02, 0x00, 0x49, 0xa2, 0xd6, 0xff, 0x5f, 0xea, 0xff,
+   0x7f, 0x7f, 0x7f, 0x0d, 0x00, 0x00, 0x10, 0x00, 0x40, 0xab, 0xf7, 0xbb,
+   0xf0, 0xdf, 0xff, 0xd5, 0xff, 0xbf, 0x82, 0x04, 0x42, 0x24, 0x91, 0xd5,
+   0xaa, 0xae, 0xd4, 0xaa, 0x52, 0x7b, 0xff, 0x15, 0x08, 0x00, 0x00, 0x01,
+   0x04, 0x55, 0xd5, 0x55, 0x70, 0x5b, 0x75, 0xdd, 0xdf, 0x1f, 0x40, 0x00,
+   0x08, 0x48, 0xa0, 0x4a, 0xa9, 0x56, 0xea, 0x56, 0xad, 0x6a, 0x7d, 0x9b,
+   0x04, 0x01, 0x00, 0x02, 0x42, 0x2a, 0xd5, 0xaa, 0xa8, 0xaa, 0xaa, 0xfa,
+   0xdf, 0x2f, 0x10, 0x04, 0x22, 0x48, 0x08, 0x45, 0x2a, 0x15, 0x68, 0x55,
+   0x55, 0xd7, 0x76, 0x1b, 0x00, 0x00, 0x00, 0x01, 0x40, 0x2a, 0x80, 0xa0,
+   0xb2, 0x09, 0x48, 0xb9, 0xdf, 0x17, 0x22, 0x01, 0x00, 0x24, 0x45, 0x8a,
+   0x24, 0x4a, 0x54, 0x51, 0x91, 0xf6, 0x6e, 0x4b, 0x00, 0x04, 0x90, 0x00,
+   0x80, 0x52, 0x00, 0x20, 0x69, 0x05, 0xa4, 0xaa, 0xff, 0x1e, 0x48, 0x00,
+   0x02, 0x92, 0x08, 0x05, 0x81, 0x94, 0xd4, 0x92, 0x40, 0xfd, 0xb6, 0x8b,
+   0x00, 0x01, 0x40, 0x00, 0x82, 0x54, 0x00, 0x48, 0x68, 0x05, 0x90, 0xa4,
+   0xef, 0x06, 0x24, 0x00, 0x08, 0x12, 0x10, 0x05, 0x00, 0x10, 0xb5, 0x01,
+   0x42, 0xfb, 0xbf, 0x43, 0x00, 0x09, 0x00, 0x40, 0x81, 0xa8, 0x08, 0x4a,
+   0xaa, 0x96, 0x90, 0xac, 0x6d, 0x15, 0x22, 0x00, 0x20, 0x09, 0x04, 0x15,
+   0x80, 0x28, 0xdc, 0x01, 0x24, 0xfb, 0xbf, 0x01, 0x80, 0x04, 0x09, 0x00,
+   0x40, 0x48, 0x02, 0x45, 0xb2, 0x2e, 0x41, 0x6d, 0xef, 0x05, 0x11, 0x00,
+   0x40, 0x52, 0x02, 0x15, 0x29, 0x2a, 0xac, 0x42, 0x54, 0xfb, 0x3b, 0x51,
+   0x84, 0x00, 0x08, 0x00, 0x20, 0x54, 0x80, 0x05, 0xb5, 0x3d, 0xa2, 0xb6,
+   0xdf, 0x00, 0x20, 0x04, 0x20, 0x49, 0x89, 0xa8, 0x6a, 0x29, 0xac, 0xd6,
+   0x54, 0xff, 0x3f, 0x84, 0x00, 0x01, 0x04, 0x10, 0x00, 0x94, 0xa8, 0x56,
+   0xda, 0x5f, 0xab, 0xd5, 0x1e, 0x10, 0x48, 0x00, 0x90, 0x82, 0x48, 0xa8,
+   0xb2, 0xac, 0xfd, 0x55, 0xd5, 0xfe, 0x9f, 0x80, 0x00, 0x0a, 0x02, 0x08,
+   0x02, 0x55, 0x5a, 0x75, 0xff, 0xaf, 0xb6, 0xf7, 0x2d, 0x12, 0x92, 0x00,
+   0x10, 0x20, 0x10, 0xa8, 0x54, 0xd5, 0xbf, 0x5d, 0xad, 0xdd, 0x0f, 0x00,
+   0x00, 0x04, 0x40, 0x09, 0x84, 0xa8, 0xaa, 0x5a, 0xed, 0xeb, 0x6a, 0xff,
+   0x9f, 0xa4, 0x24, 0x01, 0x02, 0xa0, 0x20, 0x50, 0x55, 0xd5, 0xbe, 0xae,
+   0xad, 0xfd, 0x16, 0x00, 0x10, 0x04, 0x20, 0x0a, 0x08, 0xb4, 0xaa, 0x95,
+   0xaa, 0x7b, 0xb7, 0xdb, 0x5f, 0x92, 0x04, 0x01, 0x84, 0x20, 0x21, 0x51,
+   0xd5, 0x2a, 0xa9, 0xee, 0xd5, 0xfe, 0x0d, 0x00, 0x20, 0x04, 0x10, 0x00,
+   0x08, 0x50, 0xe9, 0xd7, 0xd4, 0xfb, 0xb5, 0xff, 0x9f, 0x24, 0x09, 0x01,
+   0x42, 0x4a, 0xa2, 0x64, 0xd5, 0x55, 0x7b, 0x7f, 0xda, 0x7d, 0x4f, 0x00,
+   0x20, 0x04, 0x00, 0x80, 0x00, 0xa0, 0x2a, 0x13, 0x84, 0x6a, 0x55, 0xff,
+   0x1d, 0x48, 0x8a, 0x00, 0x94, 0x24, 0x8a, 0xc8, 0xaa, 0x42, 0x20, 0x5d,
+   0xf5, 0xff, 0x5f, 0x01, 0x00, 0x02, 0x01, 0x00, 0x20, 0xa2, 0x4a, 0x1a,
+   0x82, 0x56, 0xda, 0xbd, 0x3f, 0x92, 0x92, 0x00, 0x90, 0x92, 0x00, 0x40,
+   0x95, 0x6a, 0xf4, 0x55, 0x6d, 0xff, 0xd6, 0x00, 0x00, 0x0a, 0x04, 0x20,
+   0x14, 0x49, 0x4b, 0xaa, 0xaa, 0x56, 0xf5, 0xff, 0xbf, 0xab, 0xa4, 0x00,
+   0x20, 0x89, 0x40, 0x80, 0xaa, 0xaa, 0xaa, 0xaa, 0xde, 0xbf, 0xeb, 0x03,
+   0x00, 0x02, 0x04, 0x02, 0x0a, 0x10, 0x2b, 0x2a, 0x55, 0x5b, 0xf5, 0xff,
+   0xd7, 0x2f, 0x92, 0x00, 0x10, 0x28, 0x21, 0x01, 0x56, 0x95, 0xa0, 0x56,
+   0xdf, 0xef, 0xea, 0x87, 0x40, 0x0a, 0x42, 0x41, 0x00, 0x90, 0xaa, 0x52,
+   0xb6, 0xad, 0xfa, 0xff, 0xd5, 0x2f, 0x14, 0x00, 0x00, 0x04, 0x95, 0x04,
+   0xaa, 0xac, 0x55, 0x6b, 0xff, 0xb7, 0xea, 0x9f, 0x40, 0x02, 0x28, 0x51,
+   0x00, 0x40, 0x58, 0xd5, 0xda, 0xd6, 0x6e, 0x7f, 0xf9, 0x3f, 0x12, 0x04,
+   0x02, 0x04, 0x49, 0x25, 0x55, 0xaa, 0x77, 0xab, 0xff, 0x2b, 0xfd, 0x3f,
+   0x48, 0x01, 0x20, 0x41, 0x00, 0x00, 0x58, 0xa9, 0xda, 0xea, 0xfd, 0xaf,
+   0xfa, 0xff, 0x02, 0x04, 0x08, 0x14, 0x29, 0x49, 0x52, 0x55, 0x55, 0x55,
+   0xff, 0x8d, 0xfe, 0x3f, 0xa8, 0x00, 0x02, 0x41, 0x00, 0x02, 0xa0, 0xa2,
+   0xaa, 0xea, 0xff, 0x53, 0xfd, 0xff, 0x02, 0x04, 0x50, 0x04, 0x25, 0xa8,
+   0x54, 0x49, 0x52, 0xb5, 0xbf, 0x8a, 0xfe, 0xff, 0xa9, 0x08, 0x04, 0x50,
+   0x80, 0x02, 0xa1, 0x2a, 0x95, 0xea, 0xff, 0xa1, 0xff, 0xff, 0x03, 0x02,
+   0x90, 0x02, 0x09, 0x08, 0x44, 0x49, 0x52, 0xbd, 0x7f, 0xca, 0xff, 0xff,
+   0x2b, 0x09, 0x04, 0x48, 0x40, 0x82, 0x90, 0x56, 0xa9, 0xf6, 0xbf, 0xd0,
+   0xff, 0xff, 0x47, 0x00, 0x50, 0x02, 0x15, 0x11, 0x40, 0x95, 0xaa, 0xfd,
+   0x2f, 0xe9, 0xff, 0xff, 0x8f, 0x0a, 0x84, 0x50, 0x40, 0x84, 0x14, 0xaa,
+   0x6a, 0xff, 0x5f, 0xf2, 0xff, 0xff, 0x7f, 0x00, 0x10, 0x02, 0x09, 0x10,
+   0x40, 0x7d, 0xf7, 0xff, 0x0b, 0xfc, 0xff, 0xff, 0xaf, 0x02, 0x84, 0x50,
+   0x42, 0x85, 0x12, 0xd0, 0xdd, 0xff, 0xa7, 0xf2, 0xff, 0xff, 0xff, 0x04,
+   0x00, 0x0a, 0x08, 0x10, 0x48, 0xf8, 0xff, 0xff, 0x0a, 0xfe, 0xff, 0xff,
+   0x7f, 0x03, 0xa4, 0x80, 0xa2, 0x8a, 0x02, 0x68, 0xff, 0xff, 0x52, 0xfd,
+   0xff, 0xff, 0xff, 0x07, 0x00, 0x2a, 0x08, 0x20, 0x28, 0xdc, 0xff, 0x5f,
+   0x05, 0xff, 0xff, 0xff, 0xff, 0x0d, 0x92, 0x40, 0x22, 0x09, 0x02, 0xea,
+   0xfb, 0xaf, 0x48, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x12, 0x81, 0xa0,
+   0x48, 0x9c, 0x6e, 0x93, 0xa2, 0xff, 0xff, 0xff, 0xff, 0x07, 0xa8, 0x40,
+   0x28, 0x0a, 0x02, 0x74, 0xb5, 0x45, 0x81, 0xff, 0xff, 0xff, 0xff, 0x0f,
+   0x02, 0x0a, 0x81, 0x20, 0x08, 0xae, 0xaa, 0x90, 0xe8, 0xff, 0xff, 0xff,
+   0xff, 0x0f, 0x90, 0x40, 0x28, 0x88, 0x12, 0x58, 0x15, 0x50, 0xd0, 0xff,
+   0xff, 0xff, 0xff, 0x0f, 0x44, 0x0a, 0x41, 0x21, 0x08, 0xae, 0x04, 0x14,
+   0xf0, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x40, 0x14, 0x88, 0x04, 0xba,
+   0x02, 0x28, 0xe8, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x42, 0x15, 0x41, 0x21,
+   0x05, 0xad, 0x00, 0x05, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x40,
+   0x24, 0x8a, 0x0e, 0x36, 0x00, 0x0a, 0xf4, 0xff, 0xff, 0xff, 0xff, 0x0f,
+   0x42, 0x25, 0x90, 0xd0, 0x8b, 0xc2, 0x41, 0x05, 0xfc, 0xff, 0xff, 0xff,
+   0xff, 0x0f, 0x10, 0x08, 0x05, 0xe8, 0x8e, 0x58, 0x80, 0x02, 0xfa, 0xff,
+   0xff, 0xff, 0xff, 0x0f, 0x4a, 0x20, 0xa8, 0xba, 0x0b, 0x2b, 0x51, 0x01,
+   0xfe, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x8a, 0x02, 0xe8, 0xaf, 0x84,
+   0x90, 0x04, 0xfd, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x52, 0x21, 0x54, 0xbf,
+   0x1f, 0x15, 0xa5, 0x02, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x08,
+   0x01, 0xfa, 0xb6, 0xa4, 0x52, 0x40, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f,
+   0x4a, 0xa2, 0x54, 0xef, 0x5f, 0x4b, 0xa4, 0x80, 0xff, 0xff, 0xff, 0xff,
+   0xff, 0x0f, 0x80, 0x10, 0x82, 0xfe, 0xbf, 0x92, 0x52, 0x42, 0xff, 0xff,
+   0xff, 0xff, 0xff, 0x0f, 0x12, 0x42, 0xa8, 0xbf, 0x1f, 0x24, 0x80, 0xa0,
+   0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x84, 0x28, 0x8a, 0xf7, 0x37, 0x80,
+   0x52, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x10, 0x82, 0xe0, 0xff,
+   0x1f, 0x00, 0x20, 0xe1, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x84, 0x28,
+   0xca, 0xff, 0x1f, 0x00, 0x00, 0xc0, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f,
+   0x10, 0x42, 0xf0, 0xfd, 0x1b, 0x00, 0x50, 0xf0, 0xff, 0xff, 0xff, 0xff,
+   0xff, 0x0f, 0xa4, 0x10, 0xc5, 0xff, 0x1f, 0x00, 0x00, 0xe0, 0xff, 0xff,
+   0xff, 0xff, 0xff, 0x0f, 0x00, 0x22, 0xf8, 0xff, 0x0e, 0x00, 0x00, 0xf0,
+   0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xaa, 0x88, 0xe2, 0xff, 0x0f, 0x10,
+   0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x25, 0xfa, 0xff,
+   0x0f, 0x01, 0x11, 0xfd, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xfb,
+   0xfb, 0xff, 0x7f, 0x5d, 0xd5, 0xfa, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f};
diff --git a/Lib/images/flagdown b/Lib/images/flagdown
new file mode 100644
index 0000000..55abc51
--- /dev/null
+++ b/Lib/images/flagdown
@@ -0,0 +1,27 @@
+#define flagdown_width 48
+#define flagdown_height 48
+static char flagdown_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x00,
+   0x00, 0x00, 0x80, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xe1, 0x00, 0x00,
+   0x00, 0x00, 0x70, 0x80, 0x01, 0x00, 0x00, 0x00, 0x18, 0x00, 0x03, 0x00,
+   0x00, 0x00, 0x0c, 0x00, 0x03, 0x00, 0x00, 0x00, 0x06, 0x00, 0x06, 0x04,
+   0x00, 0x00, 0x03, 0x00, 0x06, 0x06, 0x00, 0x80, 0x01, 0x00, 0x06, 0x07,
+   0x00, 0xc0, 0x1f, 0x00, 0x87, 0x07, 0x00, 0xe0, 0x7f, 0x80, 0xc7, 0x07,
+   0x00, 0x70, 0xe0, 0xc0, 0xe5, 0x07, 0x00, 0x38, 0x80, 0xe1, 0x74, 0x07,
+   0x00, 0x18, 0x80, 0x71, 0x3c, 0x07, 0x00, 0x0c, 0x00, 0x3b, 0x1e, 0x03,
+   0x00, 0x0c, 0x00, 0x1f, 0x0f, 0x00, 0x00, 0x86, 0x1f, 0x8e, 0x07, 0x00,
+   0x00, 0x06, 0x06, 0xc6, 0x05, 0x00, 0x00, 0x06, 0x00, 0xc6, 0x05, 0x00,
+   0x00, 0x06, 0x00, 0xc6, 0x04, 0x00, 0x00, 0x06, 0x00, 0x06, 0x04, 0x00,
+   0x7f, 0x06, 0x00, 0x06, 0xe4, 0xff, 0x00, 0x06, 0x00, 0x06, 0x04, 0x00,
+   0x00, 0x06, 0x00, 0x06, 0x04, 0x00, 0x00, 0x06, 0x00, 0x06, 0x06, 0x00,
+   0x00, 0x06, 0x00, 0x06, 0x03, 0x00, 0x00, 0x06, 0x00, 0x86, 0x01, 0x00,
+   0x00, 0x06, 0x00, 0xc6, 0x00, 0x00, 0x00, 0x06, 0x00, 0x66, 0x00, 0x00,
+   0x00, 0x06, 0x00, 0x36, 0x00, 0x00, 0x00, 0x06, 0x00, 0x3e, 0x00, 0x00,
+   0x00, 0xfe, 0xff, 0x2f, 0x00, 0x00, 0x00, 0xfc, 0xff, 0x27, 0x00, 0x00,
+   0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00,
+   0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00,
+   0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00,
+   0x00, 0x00, 0x88, 0x20, 0x00, 0x00, 0x00, 0x00, 0x88, 0x20, 0x00, 0x00,
+   0xf7, 0xbf, 0x8e, 0xfc, 0xdf, 0xf8, 0x9d, 0xeb, 0x9b, 0x76, 0xd2, 0x7a,
+   0x46, 0x30, 0xe2, 0x0f, 0xe1, 0x47, 0x55, 0x84, 0x48, 0x11, 0x84, 0x19};
diff --git a/Lib/images/flagup b/Lib/images/flagup
new file mode 100644
index 0000000..6eb0d84
--- /dev/null
+++ b/Lib/images/flagup
@@ -0,0 +1,27 @@
+#define flagup_width 48
+#define flagup_height 48
+static char flagup_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x7f, 0x00,
+   0x00, 0x00, 0x00, 0xe0, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xef, 0x6a, 0x00,
+   0x00, 0x00, 0xc0, 0x7b, 0x75, 0x00, 0x00, 0x00, 0xe0, 0xe0, 0x6a, 0x00,
+   0x00, 0x00, 0x30, 0x60, 0x75, 0x00, 0x00, 0x00, 0x18, 0xe0, 0x7f, 0x00,
+   0x00, 0x00, 0x0c, 0xe0, 0x7f, 0x00, 0x00, 0x00, 0x06, 0xe0, 0x04, 0x00,
+   0x00, 0x00, 0x03, 0xe0, 0x04, 0x00, 0x00, 0x80, 0x01, 0xe0, 0x06, 0x00,
+   0x00, 0xc0, 0x1f, 0xe0, 0x07, 0x00, 0x00, 0xe0, 0x7f, 0xe0, 0x07, 0x00,
+   0x00, 0x70, 0xe0, 0xe0, 0x05, 0x00, 0x00, 0x38, 0x80, 0xe1, 0x04, 0x00,
+   0x00, 0x18, 0x80, 0xf1, 0x04, 0x00, 0x00, 0x0c, 0x00, 0xfb, 0x04, 0x00,
+   0x00, 0x0c, 0x00, 0xff, 0x04, 0x00, 0x00, 0x86, 0x1f, 0xee, 0x04, 0x00,
+   0x00, 0x06, 0x06, 0xe6, 0x04, 0x00, 0x00, 0x06, 0x00, 0xe6, 0x04, 0x00,
+   0x00, 0x06, 0x00, 0xe6, 0x04, 0x00, 0x00, 0x06, 0x00, 0x66, 0x04, 0x00,
+   0x7f, 0x56, 0x52, 0x06, 0xe4, 0xff, 0x00, 0x76, 0x55, 0x06, 0x04, 0x00,
+   0x00, 0x56, 0x57, 0x06, 0x04, 0x00, 0x00, 0x56, 0x55, 0x06, 0x06, 0x00,
+   0x00, 0x56, 0xd5, 0x06, 0x03, 0x00, 0x00, 0x06, 0x00, 0x86, 0x01, 0x00,
+   0x54, 0x06, 0x00, 0xc6, 0x54, 0x55, 0xaa, 0x06, 0x00, 0x66, 0xaa, 0x2a,
+   0x54, 0x06, 0x00, 0x36, 0x55, 0x55, 0xaa, 0x06, 0x00, 0xbe, 0xaa, 0x2a,
+   0x54, 0xfe, 0xff, 0x6f, 0x55, 0x55, 0xaa, 0xfc, 0xff, 0xa7, 0xaa, 0x2a,
+   0x54, 0x01, 0x88, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a,
+   0x54, 0x55, 0x8d, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a,
+   0x54, 0x55, 0x8d, 0x60, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa0, 0xaa, 0x2a,
+   0x54, 0x55, 0x8d, 0x50, 0x55, 0x55, 0xaa, 0xaa, 0x8a, 0xa8, 0xaa, 0x2a,
+   0x54, 0x55, 0x95, 0x54, 0x55, 0x55, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0x2a,
+   0x54, 0x55, 0x55, 0x55, 0x55, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/Lib/images/full b/Lib/images/full
new file mode 100644
index 0000000..65dafe3
--- /dev/null
+++ b/Lib/images/full
@@ -0,0 +1,4 @@
+#define full_width 1
+#define full_height 1
+static unsigned char full_bits[] = {
+   0x01};
diff --git a/Lib/images/gray1 b/Lib/images/gray1
new file mode 100644
index 0000000..476d930
--- /dev/null
+++ b/Lib/images/gray1
@@ -0,0 +1,4 @@
+#define gray1_width 2
+#define gray1_height 2
+static char gray1_bits[] = {
+   0x01, 0x02};
diff --git a/Lib/images/gray3 b/Lib/images/gray3
new file mode 100644
index 0000000..2302884
--- /dev/null
+++ b/Lib/images/gray3
@@ -0,0 +1,4 @@
+#define gray3_width 4
+#define gray3_height 4
+static char gray3_bits[] = {
+   0x01, 0x00, 0x04, 0x00};
diff --git a/Lib/images/grey.25 b/Lib/images/grey.25
new file mode 100644
index 0000000..b234b3c
--- /dev/null
+++ b/Lib/images/grey.25
@@ -0,0 +1,6 @@
+#define grey_width 16
+#define grey_height 16
+static char grey_bits[] = {
+   0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44,
+   0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44,
+   0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44};
diff --git a/Lib/images/grey.5 b/Lib/images/grey.5
new file mode 100644
index 0000000..3768889
--- /dev/null
+++ b/Lib/images/grey.5
@@ -0,0 +1,6 @@
+#define grey_width 16
+#define grey_height 16
+static char grey_bits[] = {
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa};
diff --git a/Lib/images/grid4 b/Lib/images/grid4
new file mode 100644
index 0000000..8062f40
--- /dev/null
+++ b/Lib/images/grid4
@@ -0,0 +1,4 @@
+#define grid4_width 4
+#define grid4_height 4
+static char grid4_bits[] = {
+   0x05, 0x00, 0x01, 0x00};
diff --git a/Lib/images/grid8 b/Lib/images/grid8
new file mode 100644
index 0000000..02ce50e
--- /dev/null
+++ b/Lib/images/grid8
@@ -0,0 +1,4 @@
+#define grid8_width 8
+#define grid8_height 8
+static char grid8_bits[] = {
+   0x55, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00};
diff --git a/Lib/images/hlines2 b/Lib/images/hlines2
new file mode 100644
index 0000000..5c1a396
--- /dev/null
+++ b/Lib/images/hlines2
@@ -0,0 +1,4 @@
+#define hlines2_width 1
+#define hlines2_height 2
+static char hlines2_bits[] = {
+   0x01, 0x00};
diff --git a/Lib/images/hlines3 b/Lib/images/hlines3
new file mode 100644
index 0000000..ed49433
--- /dev/null
+++ b/Lib/images/hlines3
@@ -0,0 +1,4 @@
+#define hlines3_width 1
+#define hlines3_height 3
+static char hlines3_bits[] = {
+   0x00, 0x01, 0x00};
diff --git a/Lib/images/letters b/Lib/images/letters
new file mode 100644
index 0000000..0f12568
--- /dev/null
+++ b/Lib/images/letters
@@ -0,0 +1,27 @@
+#define letters_width 48
+#define letters_height 48
+static char letters_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xfe, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x02, 0x00, 0x00, 0x00, 0x20,
+   0x00, 0xfa, 0x00, 0x00, 0x00, 0x2e, 0x00, 0x02, 0x00, 0x00, 0x00, 0x2a,
+   0x00, 0x3a, 0x00, 0x00, 0x00, 0x2a, 0x00, 0x02, 0x00, 0x00, 0x00, 0x2e,
+   0xe0, 0xff, 0xff, 0xff, 0xff, 0x21, 0x20, 0x00, 0x00, 0x00, 0x00, 0x21,
+   0xa0, 0x03, 0x00, 0x00, 0x70, 0x21, 0x20, 0x00, 0x00, 0x00, 0x50, 0x21,
+   0xa0, 0x1f, 0x00, 0x00, 0x50, 0x21, 0x20, 0x00, 0x00, 0x00, 0x70, 0x21,
+   0xfe, 0xff, 0xff, 0xff, 0x0f, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x21,
+   0xfa, 0x01, 0x00, 0x80, 0x0b, 0x21, 0x02, 0x00, 0x00, 0x80, 0x0a, 0x21,
+   0xba, 0x01, 0x00, 0x80, 0x0a, 0x21, 0x02, 0x00, 0x00, 0x80, 0x0b, 0x21,
+   0x3a, 0x00, 0x00, 0x00, 0x08, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x21,
+   0x02, 0xc0, 0xfb, 0x03, 0x08, 0x21, 0x02, 0x00, 0x00, 0x00, 0x08, 0x3f,
+   0x02, 0xc0, 0xbd, 0x0f, 0x08, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x01,
+   0x02, 0xc0, 0x7f, 0x7b, 0x08, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x01,
+   0x02, 0x00, 0x00, 0x00, 0xf8, 0x01, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00,
+   0x02, 0x00, 0x00, 0x00, 0x08, 0x00, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00,
+   0x02, 0x00, 0x00, 0x00, 0x08, 0x00, 0x02, 0x00, 0x00, 0x00, 0x08, 0x00,
+   0xfe, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/Lib/images/light_gray b/Lib/images/light_gray
new file mode 100644
index 0000000..ea62e17
--- /dev/null
+++ b/Lib/images/light_gray
@@ -0,0 +1,4 @@
+#define light_gray_width 4
+#define light_gray_height 2
+static char light_gray_bits[] = {
+   0x08, 0x02};
diff --git a/Lib/images/menu.bm b/Lib/images/menu.bm
new file mode 100644
index 0000000..25f58ce
--- /dev/null
+++ b/Lib/images/menu.bm
@@ -0,0 +1,6 @@
+#define object_menu_width 16
+#define object_menu_height 16
+static char object_menu_bits[] = {
+   0x00, 0x00, 0xf8, 0x1f, 0x08, 0x30, 0x08, 0x30, 0xe8, 0x37, 0x08, 0x30,
+   0xe8, 0x33, 0x08, 0x30, 0xe8, 0x31, 0x08, 0x30, 0xe8, 0x37, 0x08, 0x30,
+   0x08, 0x30, 0xf8, 0x3f, 0xf0, 0x3f, 0x00, 0x00};
diff --git a/Lib/images/mickey.gif b/Lib/images/mickey.gif
new file mode 100644
index 0000000..91baba9
Binary files /dev/null and b/Lib/images/mickey.gif differ
diff --git a/Lib/images/noletters b/Lib/images/noletters
new file mode 100644
index 0000000..5774124
--- /dev/null
+++ b/Lib/images/noletters
@@ -0,0 +1,27 @@
+#define noletters_width 48
+#define noletters_height 48
+static char noletters_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x1f, 0x00, 0x00,
+   0x00, 0x00, 0xff, 0xff, 0x01, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x07, 0x00,
+   0x00, 0xf0, 0x0f, 0xe0, 0x1f, 0x00, 0x00, 0xfc, 0x01, 0x00, 0x7f, 0x00,
+   0x00, 0x3e, 0x00, 0x00, 0xf8, 0x00, 0x00, 0x1f, 0x00, 0x00, 0xf0, 0x01,
+   0x80, 0x07, 0x00, 0x00, 0xc0, 0x03, 0xc0, 0x03, 0x00, 0x00, 0xe0, 0x07,
+   0xe0, 0x01, 0x00, 0x00, 0xf0, 0x0f, 0xe0, 0x00, 0x00, 0x00, 0x78, 0x0e,
+   0xf0, 0x00, 0x00, 0x00, 0x3c, 0x1e, 0x70, 0x00, 0x00, 0x00, 0x1e, 0x1c,
+   0x38, 0x00, 0x00, 0x00, 0x0f, 0x38, 0x38, 0x00, 0x00, 0x80, 0x07, 0x38,
+   0x3c, 0xfc, 0xff, 0xff, 0x7f, 0x78, 0x1c, 0x04, 0x00, 0xe0, 0x41, 0x70,
+   0x1c, 0x04, 0x00, 0xf0, 0x40, 0x70, 0x1c, 0x74, 0x00, 0x78, 0x4e, 0x70,
+   0x0e, 0x04, 0x00, 0x3c, 0x4a, 0xe0, 0x0e, 0x74, 0x03, 0x1e, 0x4a, 0xe0,
+   0x0e, 0x04, 0x00, 0x0f, 0x4e, 0xe0, 0x0e, 0x04, 0x80, 0x07, 0x40, 0xe0,
+   0x0e, 0x04, 0xf8, 0x0f, 0x40, 0xe0, 0x0e, 0x04, 0xe0, 0x01, 0x40, 0xe0,
+   0x0e, 0x04, 0xf8, 0x00, 0x40, 0xe0, 0x0e, 0x04, 0x78, 0x00, 0x40, 0xe0,
+   0x0e, 0x04, 0xfc, 0xf3, 0x40, 0xe0, 0x1c, 0x04, 0x1e, 0x00, 0x40, 0x70,
+   0x1c, 0x04, 0x0f, 0x00, 0x40, 0x70, 0x1c, 0x84, 0x07, 0x00, 0x40, 0x70,
+   0x3c, 0xfc, 0xff, 0xff, 0x7f, 0x78, 0x38, 0xe0, 0x01, 0x00, 0x00, 0x38,
+   0x38, 0xf0, 0x00, 0x00, 0x00, 0x38, 0x70, 0x78, 0x00, 0x00, 0x00, 0x1c,
+   0xf0, 0x3c, 0x00, 0x00, 0x00, 0x1e, 0xe0, 0x1e, 0x00, 0x00, 0x00, 0x0e,
+   0xe0, 0x0f, 0x00, 0x00, 0x00, 0x0f, 0xc0, 0x07, 0x00, 0x00, 0x80, 0x07,
+   0x80, 0x07, 0x00, 0x00, 0xc0, 0x03, 0x00, 0x1f, 0x00, 0x00, 0xf0, 0x01,
+   0x00, 0x3e, 0x00, 0x00, 0xf8, 0x00, 0x00, 0xfc, 0x01, 0x00, 0x7f, 0x00,
+   0x00, 0xf0, 0x0f, 0xe0, 0x1f, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x07, 0x00,
+   0x00, 0x00, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0xf0, 0x1f, 0x00, 0x00};
diff --git a/Lib/images/pattern b/Lib/images/pattern
new file mode 100644
index 0000000..df31baf
--- /dev/null
+++ b/Lib/images/pattern
@@ -0,0 +1,6 @@
+#define foo_width 16
+#define foo_height 16
+static char foo_bits[] = {
+   0x60, 0x06, 0x90, 0x09, 0x90, 0x09, 0xb0, 0x0d, 0x4e, 0x72, 0x49, 0x92,
+   0x71, 0x8e, 0x8e, 0x71, 0x8e, 0x71, 0x71, 0x8e, 0x49, 0x92, 0x4e, 0x72,
+   0xb0, 0x0d, 0x90, 0x09, 0x90, 0x09, 0x60, 0x06};
diff --git a/Lib/images/queen b/Lib/images/queen
new file mode 100644
index 0000000..f37dd81
--- /dev/null
+++ b/Lib/images/queen
@@ -0,0 +1,9 @@
+#define queen_width 19
+#define queen_height 22
+static char queen_bits[] = {
+   0x00, 0x02, 0x00, 0x00, 0x02, 0x00, 0x80, 0x0f, 0x00, 0x00, 0x02, 0x00,
+   0x00, 0x02, 0x00, 0xf0, 0x7a, 0x00, 0xfc, 0xff, 0x01, 0x0c, 0x87, 0x01,
+   0x06, 0x07, 0x03, 0x06, 0x07, 0x03, 0x06, 0x07, 0x03, 0x06, 0x07, 0x03,
+   0x06, 0x07, 0x03, 0x0c, 0x87, 0x01, 0x0c, 0x87, 0x01, 0x0c, 0x87, 0x01,
+   0x18, 0xc7, 0x00, 0x18, 0xc7, 0x00, 0x18, 0xe7, 0x00, 0x30, 0x67, 0x00,
+   0xfc, 0xff, 0x01, 0xfc, 0xff, 0x01};
diff --git a/Lib/images/root_weave b/Lib/images/root_weave
new file mode 100644
index 0000000..ec41e43
--- /dev/null
+++ b/Lib/images/root_weave
@@ -0,0 +1,4 @@
+#define root_weave_width 4
+#define root_weave_height 4
+static char root_weave_bits[] = {
+   0x07, 0x0d, 0x0b, 0x0e};
diff --git a/Lib/images/stipple b/Lib/images/stipple
new file mode 100644
index 0000000..63558d0
--- /dev/null
+++ b/Lib/images/stipple
@@ -0,0 +1,4 @@
+#define stipple_width 16
+#define stipple_height 4
+static char stipple_bits[] = {
+   0x55, 0x55, 0xee, 0xee, 0x55, 0x55, 0xba, 0xbb};
diff --git a/Lib/images/teapot.ppm b/Lib/images/teapot.ppm
new file mode 100644
index 0000000..b8ab85f
--- /dev/null
+++ b/Lib/images/teapot.ppm
@@ -0,0 +1,31 @@
+P6
+256 256
+255
+\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[7 eOLjQLmSMoTMnSMlRMhPL_9 \À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀnSMtVMzYN~[N~[N\N\O€\O€]O€]O€]O€]O€\O€\O}[NyYNtVM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀG-wXN}[N€]O„^O†_O†`O‡`Oˆ`Oˆ`OˆaO‰aO‰aO‰aO‰aO‰aO‰aOˆaOˆ`O†_Oƒ^O\N\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀaMLyYN…_O‰aP‹bP�cPŽcPŽdPŽdP�dP�dP�dP�dP�dP�dP�dP�eP‘eP’eP’eP‘eP�dP�cP…_OpUM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀwXN…_O�dP“fP•gQ–hQ˜hQ˜iQ™iQ™iQšiQšiQšjQ›jQ›jQœjQœjQœjQœjQœjQ›jQœjQ™iQ“fP‡`O\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJiQL‹bP—hQ�kQ¡mR¤nR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¦pR¨pS©qSªqS«rS¬rS«rS©qS¤oRœjQ€]O\KK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀfOLrUM�cPŸlR©qS¯tS²uTµwT·xT¸xT¹yTºyT»zT»zU¼zU¼zU¼zU»zUºyT¸xT¶wT¯tS¡mR‰aOhPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àa0	cNLqUM€\O”fQ¦pS²wVºzV¿|VÂ}VÄVÆVÇ€VÉ‚WÌ…[Õ�eæ w÷³‹êª…Ĉg§qT“fQ{ZNYIK9\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀO1{G#‘JkRMqUMtVN–iS¨v\·€d¹�bµzZ±vU°uT®sSªqS¤nRœjQ’eP„^OrUM�Hh>!T4\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀG-V5wE"~I#†M%�U+¥e7²l:°g2®b*­a(­`(©^(¥])¡^-›]1ŠS,qC$`9 R3G-\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@)J/i>!pA"tD"wF$yH&xH&tE$wE#yG%}M+ƒT4S5mE*Z7!K/B*;'\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‰aO¦oR½{UÇ€VÏ…X<(F-a: e<!h>!j@#k@$h>"d<!c=$hD-fF2[<)K0@);'5$Ë‚VÇ€V¿|U_LKYIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À…_O·xTÉ‚Wó«€ûµ‹Ö’k¼|X×>µf-¨^(¡Z'šW&–T&œN>)F-J/b; g>#nD(jB&c<!b=%jH2_A/I0!<(8&5$”J¥Y’S%8&;'?)E,<:HA=HE?IJAISFJYIKXIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À£nRÁ}UܘqÊŠe±vU²e,™V&¥V†C
€@|>y<u:r9o7l6
+j5
+h4
+g3
+5$D,K/b; h>"wM1tK.e="a<#cA,U8&E-<(9&.!a0	b1	c1	



	
	
	

+
++3#@)46G<:HMCIXHK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀU*´vT¿~X¸{YÃk+›W&‰N$|>u:p8k5
+f3
+a0	_/	].	[-	�I¡\*ª_(‘LkRMmSMmSMnSMnSMD,R3W5mA"|O0|P1j?"c<!a=%Y7"N1F,;'NCJNCJNDJODJODJODJh>!a: X/K%


&4$+2F=;HPEJL&\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŸlR¶xT­sTµd)ŠO$w;m6
+g3
+a0	Z-	\/T*Q(ŠHµm8kRMmSMnTMoTMpTMpUM15G15G05G04G04GpUMpTM5^9 d<!yF#�O+€N,rC#qB"pB#k?"a: Z7 6ODJPDJPEJQEJQEJREJREJREJRFJSFJSFJSFJSFJe<!X/
- '0FªqS–gQ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À“fP¯tS mR�R%�Bf3
+^/	V+Q(L&I$r9 TlRMnSM46G47G47G46G46G46G46G46G36G36G25G25G15G04G/4F.3FoA"ˆN$‹O%�S)ŒR)”T&”T%‘R%ŠO$€J#xE#
PDJQEJREJRFJSFJTFJTFJTGJUGJUGJUGJUGJVGJVGJVGJVGJVGJVGJY6N'
t;‹O$�dP¥oR�dP\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À¨pS�kQ“S%x=[-	R)I$E"@ ”M¦]'pTM68G78G78G78G78G78G78G78G78G68G67G67G57G57G47G36G36G25Gp98eOLpUMtVMn7·f+½i,¾i*¿i*¾h*…B
ˆ`O~[NqUM[-	‰HUGJUGJVGJVGJVHJWHJWHJWHKWHKXHKXHKXHKXHKXHKXIKXIKXIKXIKXIKh>!Y0
W+].	s=‡M$�dPŸlR\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀoTM¥oR�dPvE"V+K%A 99†F¤['qUMtVM99H:9H:9H:9H:9H:9H:9H:9H:9H:9H99H99H99H99H99H99H:9H;:H>;HB=HPDJ\JKmSMwXN|ZN°y[ᦆ֘uº{W¹yU¿€]Á„b­tU£nR—hQˆaO{ZNvWNtVMvXNwXNyYNzYN{ZN|ZN}[N}[N~[N~[N~[N~[N~[N~[N~[N}[N}[N{ZNzYNxXN…L$f3
+I$L&P(U*\.	€J#\O›jQ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀžkR‰aOo9
L&C!:4f3
+�X&pUMuWMwXNxXN<:H<:H<:H<:H<;H<;H<;H<;H=;H=;H=;H=;H>;H>;H?<H@<HA=HC>HG@ILBIREJ[JKcNLjQL§pR±uTºzUÃ~VÈ�WË‚XÖŽcä�sÒŽe¼{V²vT¨pSžkR•gQŒbP†_O‚^O�]O€\O€\O€\O€\O€]O�]O�]O�]O�]O�]O�]O�]O�]O�]O�]O€\O€\O~\N}[N|ZNxXN•T%H$G#K%Q(W+zG#nTM˜iQ\À\À\À\À\À\À\À\À\À\À\À\ÀdOLrUMuWNwXNyYN{ZN}[N{ZNwXNsVM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àˆ`O�cPnA"M&@ 8F#m6
+›W&rVMvWNyYNzYN|ZN}[N}[N><H?<H?<H?<H?<H?<H@<H@<H@<HA=HA=HB=HC>HE?IG@IIAIKBIODJSFJWHK—hQŸlR§pR°b(¾i*Én+Ù|7Û|6Ïr,Íq+Êp-Ãl+»g)±b(®sS§pS lRšiQ•gQ�eP�cPŠaPˆaO‡`O‡`O†_O†_O…_O…_O…_O…_O…_O…_O…_O„_O„^O„^Oƒ^Oƒ^O‚]O�]O€\O~[N{ZN•T%F#B!Y,L&U*~I#„^O†`O\À\À\À\ÀcNLrUMzYN\O„^Oˆ`OŠbPŒcP�dP�eP’fP“fP“fQ“fQ”fQ‘eP�cP‰aP~[N\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’fPsVM^/	C!7
ŽQ%tVMwXNzYN|ZN}[N\N\O€\O�]O�]O‚]O‚]OA=HB=HB=HB>HC>HC>ID?IE?IF@IG@IIAIKBIŒcP�dP’eP–gQšiQŸlR£nR¤\'´d)¿i*Æm+Îs/Ïs/Êo+Én+Ål*¾i*ºg)³c(ª_(ªqS¦oR¡mR�kQ™iQ•gQ“fP‘ePŽdP�cPŒbP‹bPŠbPŠaP‰aP‰aO‰aOˆaOˆ`Oˆ`O‡`O‡`O‡`O†`O†_O…_O„^Oƒ^O‚]O\O}[N›Q
D"?D"K%_/	kRL’fPODJSFJ†_OŠbPŽcP‘eP“fQ–gQ™iQœjQžkR lR¡mR£nR¤nR¥oR¥oR¥oR¤nR¢mRŸlRšiQ‘eP…_O\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀB+‘ePI#L&90y<šPxXN{ZN}[N\N€\O�]O‚]Oƒ^Oƒ^O„^O„_O…_O…_O†_O†`O‡`O‡`Oˆ`O‰aOŠaP‹bPŒbP�cPŽdP‘eP“fP•gQ˜hQšiQžkR¢mR¡Z'«_(¶e)½h)Âk*Çn,Çn,Æm*Æl*Áj*ºf)¶e)²c(«_(¦]'§pR¤nR¡mRžkR›jQ™iQ–gQ”gQ“fP‘eP�dP�dPŽdPŽcP�cPŒcPŒbP‹bP‹bP‹bPŠbPŠaP‰aP‰aO‰aOˆ`O‡`O†_O…_Oƒ^O�]Oª_(�@B!I$B!N'w=‘eP`LKbNLeOL�kR mR£nR¥oR§pSªqS¬rS®sS¯tS°tS°tS±uS±uS°tS¯tS­sSªrS§pS¢mRšjQŒbPjQL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‹bPpTME"5‡M$tVM{ZN}[N\O�]O‚^Oƒ^O„_O…_O†_O†`O‡`Oˆ`Oˆ`O‰aO‰aPŠaPŠbP‹bPŒbP�cPŽcP�dP�dP’eP“fP•gQ—hQ™iQ›jQ�kR lR¢mR¡Z'¬`(µd)ºg)ÇgÀj*Àj*¾i*¿i*»g)µd)²c(¯a(ª_(¤\'§pR¥oR¢nR mRžkRœjQšiQ˜iQ—hQ•gQ”gQ“fP’eP‘eP‘eP�dP�dP�dPŽcPŽcP�cP�cPŒcPŒbP‹bP‹bPŠbPŠaP‰aOˆ`O†_O„^O\NœQ@ <G#_LKŽcPlSMnTMpUMsVM°tS²uT³vTµwT¶wT¶xT¶xT¶wTµwT´vT²uT¯tS¬sSªqS§pS¤oR¢nRžkR˜hQ‹bPeOL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀwXN\NJ%01ŽJvWN}[N\O�]Oƒ^O…_O†_O†`O‡`Oˆ`O‰aO‰aPŠaPŠbP‹bPŒbPŒbP�cPŽcPŽdP�dP�dP‘eP’eP”fQ•gQ–gQ˜hQ™iQ›jQ�kQŸlR¡mRžY&¦]'­`(³c(·e)Àc¸\¸\¹\º]»]¶^®a(¬`(©^'£['¢['¥oR£nR¡mR lRžkRœkQ›jQšiQ˜iQ—hQ–gQ•gQ”gQ”fQ“fP’eP’eP‘eP‘eP�dP�dP�dP�dPŽdPŽcP�cP�cPŒbP‹bPŠaPˆaO†`O�]O˜OG#7F#uWMƒ^OwXNxXNzYN{ZN|ZN¹yT¸yT·xT´wT±uT­sS¨pS¡mRœjQ•gQ�dPŒbP‰aP‰aPŒbPŽcP‘eP�cP|ZN\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[JKŠbP^/	1
01|>wXN}[N�]Oƒ^O…_O‡`O‡`OˆaO‰aPŠaP‹bP‹bPŒbPŒcP�cPŽcPŽcP�dP�dP�dP‘eP’eP“fP”fQ•gQ–gQ—hQ˜hQ™iQ›jQœkQžkRŸlR mRžY&¦]'­`(±b(·[ÇgÉiÉhÅfÂdÃe¿c«Uª_(§]'£[' Z'¤nR£nR¡mR mRŸlRžkR�kQœjQšjQšiQ™iQ˜hQ—hQ–gQ•gQ•gQ”fQ”fQ“fP“fP’eP’eP‘eP‘eP�eP�dP�dP�dPŽcP�cPŒbPŠbPˆ`Oƒ^O‰D
4M&�dPnSM|[N|[O|[OzZOxXNªrS¢nR˜hQŽcPƒ^OvXNiQL^KKRFJMCJJAIKBISFJ\JKnSMxYN†_O€\OaMK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀB!qUMŠaPC!/00a0	uWN}[N‚]O…_O†`Oˆ`O‰aPŠaP‹bPŒbPŒcP�cPŽcPŽcP�dP�dP�dP‘eP‘eP’eP“fP“fQ”fQ•gQ–gQ—hQ˜hQ™iQ™iQ›jQœjQ�kRžlRŸlRœX&¢['¨^'¬`(´ZÂdÄfÈiÆgÂd¿c¿c¼a¸_©T¥\'£[' Z'ŸY&£nR¢mR¡mR lRŸlRžkR�kQœjQ›jQšjQšiQ™iQ˜hQ—hQ—hQ–hQ–gQ•gQ•gQ”gQ”fQ”fQ“fQ“fP’fP’eP‘eP‘eP�dP�dPŽcPŒbP‰aOƒ^Ox<:ŠaP�]Oj8sVMmSMfOL^KKUGJIAIQEJ?<H*1F(
+
+	
+@%<-$G?@…pfdNLuWM\NdNL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTFJvWN‰aP./01„E}[N�]O…_Oˆ`O‰aP‹bPŒbP�cP�cPŽcP�dP�dP�dP�eP‘eP’eP’eP“fP“fQ”fQ•gQ•gQ–gQ–hQ—hQ˜hQ™iQšiQ›jQœjQ�kQ�kRžlRŸlRžY&¤\'¨^'µ^½bÀcÃeÇi ÄgÀc½b¼a¹`µ^´]¯X¢[' Z'žY&¢mR¡mR¡mR lRŸlRŸlRžkR�kQœkQœjQ›jQšjQšiQ™iQ™iQ˜iQ˜hQ—hQ—hQ—hQ–gQ–gQ•gQ•gQ•gQ”fQ”fQ“fQ“fP’eP‘eP�dP�cP‰aP—O‡`O‡`OoTMQEJC>IeZY638* B\À\À\À\À\À,

4	.G1!\TU¡ƒrsVM{ZN`MK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À[JKyYNŒbP/0ˆN$�]O…_Oˆ`O‹bPŒbP�cPŽcP�dP�dP�dP‘eP‘eP’eP’fP“fP“fQ”fQ”gQ•gQ–gQ–gQ—hQ—hQ˜hQ™iQ™iQšiQ›jQœjQœkQ�kRžkRŸlRœO¡Z'¥\'©^'­V¼a¾bÁeÆi!Ãf¾b»a¹`·_³]²\µZ¢[' Z'ŸY&œQ¡mR¡mR mR lRŸlRŸlRžkR�kR�kQœkQœjQ›jQ›jQšjQšiQšiQ™iQ™iQ˜iQ˜hQ˜hQ—hQ—hQ—hQ–hQ–gQ–gQ•gQ•gQ”fQ’fP�dP�cPšW&�dPŠaPrUM
+ B\À\À\À\À\À\À\À\À\À\À%7!!C*F#P){dYœze»�p€\OgPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ`LKvWNŠaPm6
+
X,uWM‚]O‡`OŠbP�cPŽdP�dP�dP‘eP’eP’fP“fP“fQ”fQ”gQ•gQ•gQ–gQ–gQ—hQ—hQ˜hQ˜iQ™iQ™iQšiQ›jQ›jQœjQœkQ�kQžkRžlRŸlR¢Z'¤\'§]'·_¹`¼a½bÁeÅi"Áe¼aº`·_¶_²]²\±\«Y¡Z' Z'¡Z'¡mR¡mR mR lR lRŸlRŸlRžlRžkRžkR�kR�kQœkQœjQœjQ›jQ›jQ›jQšjQšiQšiQšiQ™iQ™iQ™iQ˜iQ˜hQ˜hQ—hQ–gQ•gQ“fQ�dP†_Oq8–gQˆ`OuWM”T%\À\À\À\À\À\À\À\À\À\À B B!!T,c5ƒF‚T3È›~Æ“qƒ^OfOL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXHK_LKsVM‡`O�cP	
’S%�]OŠbP�cP�dP‘eP’eP“fP“fQ”fQ”gQ•gQ•gQ–gQ–gQ—hQ—hQ—hQ˜hQ˜iQ™iQ™iQšiQšiQ›jQ›jQœjQœjQ�kQ�kRžkRžlRŸlRŸlR¥\'¦]'¨^'­Vº`»a½bÁfÄi"Àe»a¹`·_¶_³]±\±\¤R¢Z'¢Z'£['¡mR¡mR¡mR¡mR mR lR lRŸlRŸlRŸlRžlRžkRžkR�kR�kR�kQ�kQœjQœjQœjQœjQœjQ›jQ›jQ›jQ›jQšjQšiQ™iQ™iQ˜hQ–gQ‘eP§Sq8‰aO•gQ‡`OtVMœX&\À\À\À\À\À\À\À\À\À\À B B Bl@!{A…L$›Y'½†a“fPˆaO]KK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀODJ[JKaMKqUM\O�cPƒ^OvE"‚]OŠaP�dP‘eP“fP”fQ•gQ•gQ–gQ–hQ—hQ—hQ˜hQ˜hQ˜iQ™iQ™iQ™iQšiQšjQ›jQ›jQœjQœjQœkQ�kQ�kRžkRžkRŸlRŸlRŸlR lR©^'©^'ª_(®W»a¼a¾cÂg Äi"¿e»a¹`·_¶_³^±\±\¤R£['£['§]'¢mR¢mR¡mR¡mR¡mR¡mR mR lR lR lR lRŸlRŸlRŸlRŸlRžlRžlRžkRžkRžkRžkR�kR�kR�kR�kR�kQ�kQ�kQœjQœjQšiQ˜hQ’ePšW&M&oTMšiQ‘eP…_OtVMmSMdOL\À\À\À\À\À\À\À\À\À B B B‘J Z'ª_(œkQ™iQ‡`OSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTFJ\JKcNLlRMzYN‡`O’ePzZN	\Nˆ`O�dP“fQ•gQ–gQ—hQ˜hQ˜hQ™iQ™iQ™iQšiQšiQšiQ›jQ›jQ›jQœjQœjQœjQœkQ�kQ�kRžkRžkRžlRŸlRŸlRŸlR lR lR mR®a(­`(¬`(¶[½a½b¿dÃh!Äi"¿d»a¹`¸_¶_µ^²]³]¦S¤\'§]'«_(¢nR¢mR¢mR¢mR¢mR¢mR¢mR¡mR¡mR¡mR¡mR¡mR mR mR mR mR lR lR lR lR lR lR lR lR lRŸlRŸlR lRŸlRžkRœkQ™iQ�ePt:�kQ˜hQ�cP€]OtVMlSMa2
\À\À\À\À\À\À\À\À\À B B
+$5 ¬`(¶e)£nRœjQƒ^OJAI\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXIK^KKdNLhPLuWM‚]OŒbP”fQ�eP

m6
+†`OŽcP“fQ—hQ˜hQ™iQšiQšjQ›jQ›jQ›jQœjQœjQœjQœkQ�kQ�kQ�kRžkRžkRžkRžlRŸlRŸlRŸlR lR lR lR¡mR¡mR¡mR¡mRºg)³c(²c(±b(­V¿cÂeÅi!Åi!Àd¼bº`¹`·_·_¶^¢Q§]'ª_(­`(¹f)£nR£nR£nR£nR£nR£nR£nR¢nR¢nR¢nR¢nR¢nR¢nR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢mR¢nR¢mR¢mR£nR¢mR¢mR¡mR mR�kR—hQˆGa0	ŠbP mRœjQ“fQ‰aP}[NrUMmSM…L$\À\À\À\À\À\À\À\À B B
#C, 8&H.Z7 §pR›jQ{ZN\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQEJ[JK`LKdNLhQLqUM{ZN…_OŽcP–gQ—hQ
+‹bP‘eP–hQšiQ›jQœjQ�kQ�kQ�kRžkRžkRžlRžlRŸlRŸlRŸlRŸlRŸlR lR lR lR mR¡mR¡mR¡mR¡mR¡mR¢mR¢mR¢mR¢nR£nRÀj*ºg)·e)¶d)Âd°XÅgÅhÂe¿c½b½b¾bªU­`(®a(¯a(³c(¾i*¤oR¤oR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤oR¤oR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¥oR¥oR¤nR¡mR›jQŽQ%Z-	œjQ£nRŸlR—hQŽdP…_OuWMpTMnSMkRLa: \À\À\À\À\À\À\À B B&D2
@*S6#G@IPDJ˜hQmSM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ]KKbMLeOLiQLlRMvWN\OˆaO‘eP—hQœjQ•gQoTM•gQ™iQ�kQŸlRŸlR lR mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¢mR¢mR¢mR¢mR¢mR¢mR¢nR£nR£nR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nRÆl*Ãl+¾j+¹g)¸f)¶e)µd)¶e)¶e)·e)·e)¸f)¾i*Ìs0Ðs.¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦pR§pR§pR§pR§pR§pS§pS¨pS¨qS©qS©qS©qS¨pS©qS§pS¤nRŸlR‘I˜hQ§pR¥oR¡mRšiQ’ePŠaP€\OsVMpTMnTMlRM–X)\À\À\À\À\À\À\À B%C)D$;J/[8"LBITGJYIKWHK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK_LKcNLgPLjQLlRMpUMzYNƒ^O‹bP‘eP˜hQ�kQŸlR”fQ- —hQ›jQŸlR¢mR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤oR¤oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¦oR¦oR¦oR¦oR¦oR¦pR¦pR§pRàpßy-Ûw-Ûw-Þy.â{-ãu§pS§pS§pS§pS§pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨qS©qS©qS©qS©qS©qS©qS©qSªqSªrS«rS«rS¬rS¬rS¬rS¬rS¬sS«rSªqS¦oRšiQ™iQ©qSªqS§pR¡mRœjQ•gQ�cP„_O{ZNtVMpUMoTMmSMjQL_9 \À\À\À\À\À B"C(D#*A$[<)d<!QEJWHKXHKD>I\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JKaMKeOLhPLkRLmSMoTMuWM}[N…_O‹bP’eP˜hQžkR¢mR£nRžkR!-E�kR¡mR¤nR¥oR¦pR§pR§pS§pS§pS§pS§pS§pS§pS§pR§pS§pS§pS§pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨qS¨qS¨qS©qS©qS©qS©qS©qS©qS©qS©qS©qS©qS©qSªqSªqSªqSªqSªrS«rS«rS«rS«rS«rS«rS¬rS¬rS¬rS¬sS­sS®sS®sS¯tS¯tS¯tS¯tS°tS°uS°tS®sS«rS£nR¦oR®sS­sS«rS§pR¢mRœjQ–gQ�dPˆaO\OyYNuWMqUMoTMnSMkRLo8
\À\À\À\À\À B'D+E$(1J/jH1NCJUGJYIKUGJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀXHK]KKbNLfOLiQLkRMmSMoTMqUMxXN\N†_OŒbP’fP˜hQ�kQ¡mR¥oR§pS¦pR˜hQ¢mR¥oR¨pSªqS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rSªrSªrSªrS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS«rS¬rS¬rS¬rS¬rS¬rS¬rS¬rS¬sS¬sS­sS­sS­sS­sS­sS­sS®sS®sS®sS®sS®tS¯tS°tS°uS±uS±uT±uT²uT²uT²uT´vTµwT´vT³vT²uT¯tS¢mR¯tS±uT±uS®tS«rS§pR¢mR�kQ—hQ‘ePŠaPƒ^O\N{ZNvXNqUMpTMnSMlRM�P%\À\À\À\À B#C*E$.E- .!G$Y:%d<"SFJYIKZIKNCJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀPDJZIK_LKdNLgPLjQLlRMnSMpTMqUMuWMyYN€\O†`O�cP’fP—hQœjQ¡mR¥oR¨qS«rS«rSªrS mR
«rS­sS¯tS°tS°tS°tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS®tS®sS®sS®sS®sS®sS®sS®sS®sS®sS®tS®tS®tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS¯tS°tS°tS°tS±uS±uS±uT²uT²vT³vT³vT´vT´vT´wTµwTµwTµwT·xT·xT¸xT¸yT¸yU·xU¥\'©qS³vTµwTµwT´vT±uT®tTªrS¦oR¡mR�kQ˜hQ’eP‹bP‡`Oƒ^O€\O|ZNxXNtVMpTMoTMmSMjQLh7\À\À\À B(D"-E*1F, 4#K)pL5PEJWHK[JKXHK:9H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUGJ\JKaMLeOLhPLkRLmSMoTMpUMrVMvWNyYN|ZN�]O‡`OŒcP‘eP—hQ›jQ lR¤nR§pSªqS­sS¯tS°uS¯tS­sS mR^/	²vT³vT´vT´wTµwT´wT´vT³vT´vT´vT´vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT³vT´vT´vT´vT´vT´wTµwTµwTµwTµwT¶wT¶wT¶xT·xT·xT·xT¸xT¸xT¸xT¹yTºyT»zU¼zU½{U½{V½|V•gQ¬rSµwT¸xT¹yU¹yU¹zV·yVµxV±vU­tT©qS¥oS mRœjQ—hQ’eP�cPŠbP‡`O„_O�]O}[NyYNuWMpUMoTMmSMkRL}H#\À\À&D -E(1F/!2#8	W7"iA&UGJ[JK\JKREJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMCIXIK^KKcNLfOLiQLkRMmSMoTMqUMsVMwXNzYN}[N€\Oƒ^O‡`OŒbP‘eP–gQšjQžkR¢mR¥oR©qS¬rS¯tS±uS³vT´vTµwT´wT²uT­sS lR«_(¹yT¹yTºyTºyTºyTºyTºyT¹yT¹yT¸yT¸xT¸xT¸xT¸xT¸xT¸xT¸yT¸yT¸yT¸yT¹yT¹yT¹yT¹yT¹yT¹yT¹yTºyTºyTºyTºyTºzT»zT¼zU¼{U½{U¾{U¾|U¿|UÀ}VÁ~VÂWÀY™iQ«rSµwT¹yT¼zU½|V¿}XÁ€ZÂ�]Á�]¾€]»~[¶zY±wW¬tU¨qS¤nSŸlR›jQ–gQ“fP�ePŽcP‹bPˆ`O…_O‚]O~\NzZNvXNqUMoTMnSMlRMiQLg=!\À
+!C+E'0F.4F7%8%U/lG.SFJZIK]KKZIKB=H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀREJZJK`LKdNLgPLjQLlRMnSMpTMqUMtWMxXN{ZN~[N�]O„^O†`O‰aO‹bP�dP•gQ™iQœkQ lR¤nR§pSªrS­sS¯tT²uT´vT¶wT·xT¹yT¹yTºyTºyT¹yT¶xT´vT¬rS¢nR—hQ¿|U¿|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ|UÀ}UÀ}UÁ}UÁ}UÁ}UÁ}UÂ}UÂ~UÃ~UÃ~VÃ~VÄVÅ€WÆ�X®a(ŸlRªrS´vT¸yT¼zU¾|UÁ~VÃXÆ‚[Ɇ_΋dÓ‘jÔ“mÔ“nБlÊŒhĆd½�_¶{[°vWªsU¦pS¢nRžkRšiQ˜hQ•gQ“fQ‘eP�dPŒbP‰aO†_Oƒ^O€\O|ZNxXNsVMpTMnTMmSMjQL€C B)D&/F-3F47G6%>"Y7 kA$YIK]KK^KKSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ\KKbMLeOLhPLkRLmSMnTMpTMrUMuWNyYN|ZN\N‚]O„_O‡`OŠaPŒbPŽcP�eP“fP—hQ›jQžlR¢nR¥oS©qT¬sT¯uU²vU´wV¶xV¸yV¹yUºzU»zU¼{U½{U¾{U¾|U¿|U¿|U¿|U¿|U¾{U½{U¼{U¼zU»zTºyT¹yT¸xTµwT³vT´vT´vT´vT´wT´wTµwT·xT¹yTºzT¼zU½{U¾{U¿|UÀ|UÂ}UÄVÅ€WÇ‚YÉ„\͈_ÑŒdÙ”lá�uç£|쩂ſt명æ¦�ÞŸ{Õ—sËŽl†d¹^³yZ­uW¨qU¤oSŸlRžkRœjQšiQ˜hQ–gQ”fQ‘eP�dP�cPŠaP‡`O„^O�]O}[NyYNuWMpTMoTMmSMkRLgPL&D#.E,3F46G;'<(D"iB(VGJ]KK`LK[JKB>H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK^LKcNLfOLiQLkRMmSMoTMqUMsVMvXNzYN}[N€\O‚^O…_Oˆ`OŠaPŒcP�dP‘eP“fQ•gQ—hQ™iQ�kR mS¤oT¨rU¬tW°wY´zZ¸}\»]¾€^À�^Á‚^‚^Â�\Á€ZÁYÁXÁ~WÁ~WÂ~VÂ~VÂ~VÃ~VÃ~UÃ~UÄ~UÄ~UÄUÄUÅVÅVÅVÅVÆVÆ€VÆ€VÇ€WÇ�WÈ‚XɃZË…[͇^ЊaÓ�dØ’iÜ—nâ�tè£zî©�ó¯‡ø´�û¸‘üº“û¹“÷¶�ñ±Œé©…à¡~Ö˜vË�mÇf»€`´z[®vX©rU¥pT£oS¢nS lRžkRœkRšjQ˜iQ–hQ”fQ’eP�dP�cP‹bPˆ`O…_O‚]O~[NzYNvWNpTMoTMnSMkRMhQLo7,2F36G99HC+@ ]8 nA"\JK`ML_LKSFJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JK`LKdNLgPLjQLlRMnSMpTMqUMtVMwXNzZN}[N€]Oƒ^O†_OˆaO‹bP�cP�dP‘eP“fQ•gQ—hQ™iQ›jRžlR mS£oU§rW¬vZ²{]¹€a¿…fÅŠjË�nГqÓ•sÕ–sÕ–rÕ–qÕ”oÓ’mÑ�jÏ�gÍŠcˈaɆ^È„\Ç‚[Æ�YÅ€XÅ€WÅWÅWÅVÅVÅWÅ€WÆ€WÇ�XÈ‚YɃ[Ê…\͇_ÏŠaÒ�eÕ‘hÙ•mÝ™qá�vä¡zç¤}꧀멃몄騃奀ߠ|Ù›wÓ•rÌ�mƉh¿„c¸~^²yZ®vX¬tWªsV¨qU¦pT¤oS¢nS mRžlRœkR›jQ™iQ—hQ•gQ“fP�ePŽcP‹bPˆaO…_O‚^O\N{ZNwXNsVMoTMnSMlRMiQL~I#26G99G?<HA*E$	i@$ZIKaMLbML[JK;:H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀWHJ]KKbMLeOLhPLjRLlSMnTMpTMrUMuWMxXN{ZN~\N�]O„^O†`O‰aO‹bPŽcP�dP’eP”fQ–gQ˜hQšiQœkRžlS mT£oU¦rWªuZ¯y]´~aºƒfŠlË’sÔšzÜ¡€ã§†è«‰ë®‹í¯Œí®‹ë¬ˆè¨„ã£~ßžyÚ™tÖ•oÒ�jÎŒfˈbÈ…_ƃ\Å�ZÄ€YÃXÂWÂ~WÂ~WÂ~WÃXÀXÄ€YÅ�Zƃ\Ç…^Ɇ`ˈbÌŠdÍ‹fÎ�gÎŽiÎŽjÎŽjÍŽjËŒiljgÆd¿ƒaº^¸}]¶|\´{[²yZ°xY®vX¬tWªsV¨qU¦pT¤oS¢nS mRžlR�kR›jQ™iQ—hQ•gQ“fP‘ePŽdPŒbP‰aO†_Oƒ^O€\O|ZNxXNtVMpTMnSMmSMjQLgPL99G?<HG-E&b;!YIK`MLdOM`LKNCJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŸlRºyTÄ~UÊ‚XʃYÄXº{W­tUšW'¢[(—hQ lR�cP€\OhQL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK^LKcNLfOLiQLkRLmSMoTMqUMrVMvWNyYN|ZN\N‚]O„_O‡`O‰aPŒbPŽcP�dP’fP”gQ–hQ˜iQšjRœkRžlS¡nT¤pU§sW«vZ°z]µb»„gŠlÉ‘sИyØžÞ¤…ã©Šè­�ì±�ﳑﳑ뭊穅⣀ݞzؘtÒ“nÎ�iɉdÆ…`Â]Á€[¿~Y¾}X½|W½|V¼{V¼{V¼{V¼{V¼{V¼|W¼|W½}X½}Y½~Z½~Z¼~Z»}[º}[º}[º~\º~\º~]º~]¹~]¸~]·}]¶|\´z[²yZ°wY®vX¬tWªsV¨rU¦pT¤oS¢nS mRŸlR�kR›jQšiQ˜hQ–gQ“fQ‘eP�dPŒcPŠaP‡`O„^O�]O}[NyYNuWNpTMnTMmSMkRLhPL|H$D>IQ2P+XHK_LLfQOcNLXIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À©qSºyTÃ~VΈ`遲ޜv¾€]ªqS–LŽG|>g3
+S)?*%.—hQ—hQ‘eP‡`OuWM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSFJ[JK`LKdNLgPLjQLlRMnSMoTMqUMsVMwXNzYN}[N€\O‚^O…_O‡`OŠaPŒbPŽdP‘eP“fP•gQ—hQ˜iQšjRœkRŸlS¡nT¤pV§sX«vZ°z^¶b¼…gËmÊ’sјzØŸ€Þ¤…ã©Šè­�ê¯�ë°�ꯎ謋娇ं۞|Ö™wÑ“qÌŽlljgÃ…bÀ‚_½\»}Zº{X¹zW¸yV·yU·xU·xU·xT·xT·xU·xU·xU·yV·yV·yW¸zW¸{X¹{Y¹|Zº}[º}[º}\º~\¹~]¹~]¸}]·|\µ{\´z[²yZ°wY®vX¬tWªsV¨rU¦pT¤oS¢nS¡mRŸlR�kRœjQšiQ˜hQ–gQ”fQ’eP�dP�cPŠbP‡`O…_O‚]O~[NzZNvWNrUMoTMmSMlRMiQLeOLJAIJ(h>!]KKfQOgQN_LKD>I\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À™iQ°tS¸yT¼{UÂYÎŒeï­ˆô´�Õ—u¶|\ Z'™LˆD
|>’eP¦oR¨qS¦oR¡mRšjQ‘eP„^OhPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀWHJ\KKaMLeOLhPLjQLlRMnSMpTMqUMtVMwXNzZN}[N€]Oƒ^O†_Oˆ`OŠbP�cP�dP‘eP“fQ•gQ—hQ™iQ›jR�kRŸmS¢nT¤qV¨sX¬w[±{_¶€c½†hÄŒnË’tÒ™zØŸ€Þ¥…㩉ç­�ꯎꯎê®�竊䧆ߣ�Ûž|Õ˜vГpËŽkljfÃ…bÀ‚_½\»}Yº{X¸zW¸yV·xU·xU·xT¶xT¶xT¶xU¶xU·xU·xU·yV·yV·zW¸zX¸{Y¹|Y¹|Z¹}[¹}[¹}\¹}\¸}\·}\¶|\µ{[³zZ²yZ°wY®vX¬tWªsV¨rU¦pT¤oS£nS¡mRŸlRžkRœjQšiQ˜hQ–gQ”fQ’eP�dPŽcP‹bPˆ`O…_O‚^O\N{ZNwXNsVMoTMnSMlRMiQLfOLJ(V.]KKePNkUQcNLQEJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‚]O¡mR©qS¬rS°tS³vTµwT·xUº{WĆbÒ“qךxÊ�o
+�K«rS´vT¶wT´vT²uT®sSªqS¤nR�kQ•gQˆ`OuWNY,\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀNCJYIK^KKbNLfOLhQLkRLmSMoTMpUMrUMuWMxXN{ZN~[N�]O„^O†_O‰aO‹bP�cP�dP‘eP“fQ•gQ—hQ™iQ›jR�kRŸmS¢oT¥qV¨tX­w[±|_·�d½†iÄŒnË“tÒ™zØŸ€Þ¥…㩉笌鮎ꮎ魌檉㧅ߢ€Ú�{Õ—uÏ’pË�jƈfÂ…b¿�^½\»|Y¹{X¸zV·yV·xU·xU¶xT¶xT¶xT¶xU¶xU¶xU¶xU·yV·yV·yW¸zW¸{X¸{Y¸|Z¹|Z¹|[¹}[¸}\¸}\·|\¶|[µ{[³zZ±xY°wX®vX¬tWªsV¨rU¦pT¥oS£nS¡mRŸlRžkRœjQšjQ˜iQ—hQ”gQ’fP�dPŽcP‹bP‰aO†_Oƒ^O€\O|ZNxXNtVMoTMnSMlRMjQLgPLzG#\JKcOMoXUgPMZIK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’fP”gQ•gQ—hQ™iQ�kQ lR¤nR§pRªqS¬sS¯tS:"r<zYN­sS¹yT¾|UÁ~WÆ„^ËŠeË‹gƈe¾‚aµz[­tV¦pS¢mR�kQ–gQŠbPzYNkRL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRFJZJK`LKcNLfPLiQLkRMmSMoTMqUMrVMvWNyYN|ZN\N�]O„^O‡`O‰aO‹bP�cP�dP’eP”fQ–gQ—hQ™iQ›jR�lR mS¢oU¥qV©tY­x\²|`¸�d¾‡iÅ�oË“uÒ™{ÙŸ€Þ¥…㩉笌é®�é®�謋婈⦄ޡÙœzÔ—tÏ‘oÊŒjƈe„a¿�^½~[»|Y¹{X¸zV·yV·xU¶xU¶xT¶xT¶xT¶xT¶xU¶xU¶xU¶xV·yV·yW·zW·zX¸{Y¸{Y¸|Z¸|Z¸|[¸|[·|[·|[¶{[´z[³yZ±xY°wX®vW¬tWªsV¨rU¦pT¥oS£nS¡mRŸlRžkRœkRšjQ™iQ—hQ•gQ“fP‘ePŽdPŒbP‰aP†`Oƒ^O€]O}[NyYNuWNqUMnSMlSMkRLhPLcNLbNLpYVlUP`LK>;H\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À›jQ‡`O{ZN©^'¨^'­`(·e)½h)Ãk*Êo+±b(£nRºyTÃ~UÇ�XÒ�dãŸwò°‰ñ°‹è©…ÝŸ}Ô˜vÈ�m¾„eµ}_®x[°y\®x[«tW§qT¡mRœjQ–gQ‹bP}[NlRM\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVGJ\JKaMKdNLgPLjQLlRMnSMpTMqUMsVMvXNzYN|[N\O‚]O…_O‡`O‰aPŒbPŽcP�dP’eP”fQ–gQ˜hQšiQœjRžlS mS£oU¦rW©uY®x\³|`¸�d¾‡jÅ�oÌ“uÒš{Ù €Þ¥…㩉欋è­�譌竊婇᥃ݠ~Ø›yÓ–tΑoÊŒjňe„a¿�^¼~[º|Y¹{W¸zV·yV·xU¶xU¶xT¶xT¶xT¶xT¶xU¶xU¶xU¶xU¶xV·yV·yW·zX·zX¸{Y¸{Z¸{Z·|Z·|[·|[¶{[µ{[´zZ³yZ±xY¯wX®uW¬tVªsV¨rU¦pT¥oS£nS¡mR lRžkRœkR›jQ™iQ—hQ•gQ“fQ‘eP�dPŒcPŠaP‡`O„^O�]O~[NzYNvWNrUMnSMmSMkRLiQLeOLoXUu]XdOLKBI\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À:9H\N–hQ¸}\¯uU­sT¯tT¯tS¨qS¤nR£nR¢nRŸlR›jQšiQ˜hQ—hQ–gQ”fQ’eP‘eP—hQœkR mS¥pUªtX«uY¨sW¦qU mS›jQ•gQƒB’S%jQL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLBIXHK^KKbMLeOLhPLjRLlSMnSMpTMqUMtVMwXNzYN}[N€\O‚^O…_O‡`OŠaPŒbPŽcP�eP’fP”fQ–gQ˜hQšiRœkRžlS nT£pU¦rWªuY®y]³}`¹‚e¿ˆjÅŽpÌ”vÓš{Ù �Þ¤…⨉櫋笌笋櫊䨆ंܟ~ךxÒ•sÎ�nÉŒiŇeÁ„a¾€^¼~[º|Y¹{W¸yV·yV·xU¶xU¶xT¶wT¶wT¶wT¶xT¶xU¶xU¶xU¶xV¶yV¶yW·zW·zX·zY·{Y·{Z·{Z·{Z¶{Z¶{ZµzZ³yZ²yY±xY¯vX­uW¬tVªsU¨rU¦pT¥oS£nS¡mR lRžlR�kR›jQ™iQ—hQ•gQ“fQ‘eP�dP�cPŠaP‡`O…_O‚]O\N{ZNwXNsVMnSMmSMkRMiQLfOL_LKhQMUGJ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À (6BFP>=DKHMqjk€trwf`~kc„ndŠqe�se�te¯Ž{�w`¡v[\N†_O�cP“fP˜iQœjRŸlS£oT¦qV¥qV£oTžlR™iQº^‡`O�Q%hPL\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQEJZIK_LKcNLfOLiQLkRLmSMoTMpUMrUMuWMxXN{ZN~[N€]Oƒ^O…_Oˆ`OŠaPŒcPŽdP‘eP“fP”gQ–hQ˜iQšjRœkRžlS¡nT£pU¦rWªuZ®y]³}a¹‚e¿ˆkÆŽpÌ”vÓš{ÙŸ€Þ¤…⨈媊櫋櫊婈⦅ߣ�Ûž}ÖšxÑ•rÍ�mÈ‹ićdÁƒa¾€]¼~[º|Y¹zW¸yV·yU¶xU¶xU¶wT¶wT¶wT¶wT¶wT¶xU¶xU¶xU¶xU¶xV¶yV¶yW¶zX·zX·zY¶zY¶{Y¶{Z¶{ZµzZ´zZ³yY²xY°wX¯vX­uW«tVªsU¨rU¦pT¥oS£nS¡mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ‘eP�dP�cP‹bPˆ`O…_O‚]O\O|ZNxXNtVMoTMmSMlRMjQLgPLbML[JK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À
%5 (6$/79CEEKjgkrc_›…{‘uf±�{Ÿw_º�q�]Oˆ`OŽcP”fQ˜hQ›jRžlR¡nT¢oT¡nT�kR˜hQŽdP¦]'ŽQ%\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUGJ[JK`MKdNLgPLiQLkRMmSMoTMqUMrUMuWNxXN{ZN~[N�]Oƒ^O†_Oˆ`OŠbP�cP�dP£['µd)•gQ—hQ˜iQšjRœkRžlS¡nT£pU§rWªvZ¯y]´~aºƒfÀˆkÆŽpÌ”vÓš{ØŸ€Ý¤„ᧇ䩉媊媉䨇᥄ޡ€Ú�|Õ˜wДrÌ�mÈŠhĆdÀƒ`¾€]»}[º|Y¸zW·yV·xU¶xU¶xU¶wTµwTµwTµwTµwTµwUµwUµxUµxUµxV¶xV¶yW¶yW¶yX¶zX¶zY¶zYµzYµzY´zY´yY²yY±xY°wX®vW­uW«tVªsU¨qU¦pT¥oS£nS¢mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ’eP�dP�cP‹bPˆaO†_Oƒ^O€\O|[NxYNtWMpUMmSMlRMjQLgPLcNLA;=\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À#*6+.8;:AHEJmgjd\]‡pe«�}œxc w^»�pƒ^OŠaP‘eP–gQšiQžlR mS¢nT mS›jR•gQ»h*œX&ˆM$\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀC+WHJ]KKaMLdOLgPLjQLlRMnSMoTMqUMrVMvWNyYN|ZN\N�]O„^O†_OˆaO‹bP�cPžY&«_(³c(•gQ—hQ™iQšjRœkRŸlS¡nT¤pV§sX«vZ¯z^´~bºƒfÀ‰kÆŽpÌ”vÒš{ØŸ€Ý£„ই㩉䩉䩈⧆ःܠØœ{Ô—vÏ“qËŽlljgÆcÀ‚`½]»}Z¹{Y¸zW·yV¶xU¶xU¶wUµwTµwTµwTµwTµwTµwTµwUµwUµxUµxVµxVµxVµyWµyWµyXµyXµyYµzY´yY´yY³yY²xY±wX°wX®vW­uV«tVªrU¨qU¦pT¥oS£nS¢mS mRžlR�kR›jQ™iQ˜hQ–gQ”fQ’eP�dPŽcP‹bP‰aO†_Oƒ^O€\O}[NyYNuWNqUMmSMlRMjQLhPLdNL\1\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À+.775;ICFphhŠztŠre¯�}Ÿya¢vZ�]OŠaP‘eP–gQšiQ�kRŸlS¡nTžlS™iQÌq.¯b*“S%zG#\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMCJXHK^KKbMLeOLhPLjRLlSMnSMpTMqUMsVMvWNyYN|ZN\N‚]O„^O†`O‰aO‹bP—U&¥\'¯a(»g)Ìr/—hQ™iQ›jR�kRŸmS¡nT¤pV§sX«v[¯z^´~bºƒfÀ‰kÆŽpÌ”vÒ™{מÜ£ƒà¦†â¨ˆã¨ˆã¨‡á¦…Þ£‚ÛŸ~×›yÓ–uÎ’pÊ�kƉgÂ…c¿‚_½]»}Z¹{X¸zW·yV¶xU¶xUµwTµwTµwTµwTµwTµwTµwTµwUµwUµwUµxUµxVµxVµxWµyWµyWµyXµyX´yX´yY³yY³xX²xX°wX¯vW®uW¬tV«sV©rU¨qT¦pT¥oS£nS¡mR mRžlR�kR›jQšiQ˜hQ–gQ”fQ’eP�dPŽcPŒbP‰aO†`Oƒ^O€]O}[NzYNvWNrUMmSMlRMjQLhQLeOL_LK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À,)/ZTVXON„uq‡od®�}Ÿyb»�s�]OŠaP�eP•gQšiQ�kRžlRŸlSœkR–hQ»g*¤\(ŽQ%`LK\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À B B_LKcNLfOLiQLkRLmSMoTMpTMrUMtVMwXNzYN}[N\O‚]O„_O‡`O‰aO�Q%ŸY&©^'±b(¾i*Õ{8—hQ™iQ›jR�kRŸmS¡nT¤qV§sX«v[°z^µ~bºƒfÀ‰kÆŽpÌ”vÒ™{מÛ¢ƒß¥…ᧇ⧇ᦆऄݢ�Úž}ÖšxÒ•tÍ‘oÉŒjňfÂ…b¿�_¼\º}Z¹{X·zW·yV¶xU¶xUµwTµwTµwTµwTµwTµwTµwTµwT´wU´wU´wU´xVµxVµxVµxW´xW´yW´yX´yX³xX³xX²xX±wX°wW¯vW­uW¬tV«sU©rU§qT¦pT¤oS£nS¡mR mRžlR�kR›jQšiQ˜hQ–gQ”gQ’fP�dPŽcPŒbP‰aP‡`O„^O�]O~[N{ZNvXNrVMnSMlRMjRLhQLeOLaML+O�+O�\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀHFLXQRTJH~pm‚la¬Ž}Ÿzc»�t¤tT‰aP�dP•gQšiQœjRžlRžlS›jRÖ|:´e*˜V&ˆN$\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À B B`LKdNLgPLiQLkRMmSMoTMpUMrUMtVMwXNzYN}[N€\O‚]O…_O‡`O‰aPšW&£['«_(´d)Âl,݃@Òt.™iQ›jR�kRŸmS¡oU¤qV¨sX«w[°z^µbºƒgÀ‰kÆŽpÌ”uÑ™zÖ�~Ú¡‚Þ¤„ॆআॅޣ‚Ü Ø�{Õ™wÑ”sÌ�nÈŒjňfÁ„b¾�_¼~\º|Z¸{X·yW¶yV¶xUµwUµwTµwTµwTµwT´wT´wT´wT´wT´wU´wU´wU´wU´wV´xV´xV´xW´xW³xW³xW³xX²xX±wX°wW¯vW®uW­uV¬tVªsU©rU§qT¦pT¤oS£nS¡mR lRžlR�kR›jQšiQ˜hQ–hQ”gQ’fP�dPŽcPŒbPŠaP‡`O„^O�]O~[N{ZNwXNsVMoTMlRMjRLiQLfOLbML+O�+O‚+O‚+O‚\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À6./fZXeVRHAIZIKiQLuWM¤tU‰aO�dP–gQšjQ�kRžlR�kR˜iQÄn/¬b,‘R%rC"\À\À\À\À\À\À\À\À\À\À\À\À"Fx"Fx!Fx!Fx B B BdNLgPLjQLlRMmSMoTMqUMrUMtWMwXNzZN}[N€\O‚^O…_O‡`O“S%�X&¥\'®a(·g+Ês2Ó{9Àj*™iQ›jR�kSŸmS¢oU¤qV¨sX«w[°z^µbº„gÀ‰kÆŽpË“uИyÕœ}Ù �Ü¢ƒÞ¤„ߤ„Þ£ƒÝ¡�ÚŸ~×›zÓ—vÏ“rË�mÇ‹ićeÀƒa¾€^»~\¹|Z¸zX·yW¶xVµxUµwUµwTµwT´wT´wT´wT´wT´wT´wT´wT´wU´wU´wU´wU´wV³wV³xV³xW³xW²wW²wW±wW±wW°vW¯vW®uV¬tV«sUªsU¨rT§qT¦pT¤oS£nS¡mR lRžlR�kR›jQšiQ˜hQ–gQ”gQ’fP�ePŽcPŒbPŠaP‡`O„_O�]O~\N{ZNxXNsVMoTMlRMjRLiQLfPLbNL	+O‚+O‚+P‚+P‚+P‚\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@89dWT@<HE?IXHKiQLvWN‚]O‹bP’eP˜hQœjQžlRžlRœkRÍp+·f* [)ŠO$\À\À\À\À\À\À\À\À:^�:^�:^�:^�"Fx"Fx"Fx B B B BeOLhPLjQLlRMnSMoTMqUMrUMuWMxXN{ZN~[N€\Oƒ^O…_O‹O$˜V& Z'§]'²d+ºg+Õ}<¼h*—hQ™iQ›jR�kSŸmS¢oU¤qV¨tY¬w[°z_µbºƒg¿ˆkÅ�pÊ’tЗyÔ›}ØŸ€Û¡‚Ý£ƒÝ£ƒÜ¢‚Û Ø�|ÕšyÒ–uÎ’pÊŽlÆŠhÆdÀƒa½€^»~[¹|Y¸zX¶yW¶xVµxUµwU´wT´wT´wT´vT´vT´vT´vT´vT´vT³vT³wU³wU³wU³wU³wV³wV³wV²wV²wW±wW±wW°vW¯vW®uV­uV¬tV«sUªrU¨qT§qT¥pS¤oS£nS¡mR lRžlR�kR›jQ™iQ˜hQ–gQ”gQ’fP�ePŽdPŒbPŠaP‡`O…_O‚]O\N|ZNxXNtVMpTMlRMjRLiQLgPLcNL\JK+P‚+P‚+P‚+P‚+P‚+P‚,P‚\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀD::hZUC>IIAI\JKlRMyYN„^O�cP”gQ™iQ�kRžlRžkR™iRÍt3±d-’S%I#\À\À\À:^‘:^‘:^‘:^‘:^�:^�:^�:^�:^�"Fx"Fx B B B BeOLhPLjRLlSMnSMpTMqUMrVMuWMxXN{ZN~[N€]Oƒ^O…_O“S%›W&¢['©^(¹k2½i+Ó{:•gQ—hQ™iQ›jR�kSŸmT¢oU¤qV¨tY¬w[°{_µbºƒf¿ˆkÄ�oÊ’tÏ–xÓš|×�~Ù €Û¡�Û¡�Û €Ùž~×›{Ô˜wДsÌ�oÉŒkʼngÂ…c¿‚`¼]º}[¸{Y·zX¶yVµxVµwU´wU´wT´wT´vT´vT´vT´vT³vT³vT³vT³vT³vU³vU³vU³wU²wU²wV²wV²wV±wV±vV°vV°vV¯uV®uV­tV¬tUªsU©rU¨qT§pT¥pS¤oS¢nS¡mR lRžlR�kR›jQ™iQ˜hQ–gQ”gQ’fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\N|ZNxYNtWMpTMlRMjRLiQLgPLcNL_LK+P‚+P‚+P‚,P‚,P‚,P‚,P‚,P‚Nr¤\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À]QNl\VG@IMCI_LKoTM|ZN†`O�dP–gQšjQ�kRžlRœkR—hQºh*¤^,ŒP%X3:_‘:_‘:_‘:_‘:_‘:_‘:_‘:_‘:^‘:^‘:^‘:^‘"Fx B B B BfOLiQLkRLmSMnTMpTMqUMrVMuWNxYN{ZN~[N€]Oƒ^OŽP%—U&�X&£['¬`)½n4Ãn/Àj*•gQ—hQ™iQ›jR�kSŸmT¢oU¤qW¨tY«w[°z^´~b¹ƒf¿ˆjÄŒoÉ‘sΕwÒ™{Õœ}ØžÙŸ€ÚŸ€Ùž~ל|ÕšyÒ—vÏ“rË�nÇ‹jĈfÁ„c¾�`¼]¹}[¸{Y·zW¶xVµxU´wU´wT´wT´vT´vT³vT³vT³vT³vT³vT³vT³vT³vT²vU²vU²vU²vU²vU±vV±vV±vV°vV°vV¯uV®uV­uV¬tU«sUªrU©rT¨qT¦pT¥oS£oS¢nS¡mRŸlRžkRœkR›jQ™iQ˜hQ–gQ”gQ“fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\N|ZNyYNuWMpUMlRMjQLiQLgPLdNL_LK,P‚,P‚,P‚,P‚,P‚Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀaSOD>IJAIQEJbNLrUM~[NˆaO‘eP—hQœjQžkRŸlR›jRÌs0²e,“T&ƒK$;_‘;_‘;_‘;_‘;_‘;_‘;_‘:_‘:_‘:_‘:_‘:_‘:_‘ B B B BgPLiQLkRLmSMoTMpTMqUMsVMuWNxYN{ZN~[N�]O‡M$“S%™V&ŸY&¥\'±e-¹j/Ñz:”fQ•gQ—hQ™iR›jR�kSŸmT¢oU¤qW¨tY«w[¯z^´~b¹ƒf¾‡jÃŒnÈ�rÍ”vјyÔ›|Ö�~מ~Øž~×�}Õ›{Ó˜xЕtÍ’qÊŽmÆŠiÇeÀ„b½�_»~\¹|Z·{Y¶yWµxVµxU´wU´wT´vT³vT³vT³vT³vT³vT³vT³vT³vT²vT²vT²vT²vU²vU²vU±vU±vU±vU°vV°vV¯uV®uV®uV­tU¬sU«sUªrU¨qT§qT¦pS¥oS£nS¢nR¡mRŸlRžkRœkR›jQ™iQ˜hQ–gQ”gQ’fP�ePŽdPŒbPŠaPˆ`O…_O‚]O\O|ZNyYNuWMqUMlSMjQLhQLfPLdNL_LK,P‚,P‚Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀdUOG@IMCITFJeOLtWM€]O‹bP“fP™iQ�kRŸlR�kR™iQ¾j,©c/�P%[JK;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘ B B B BgPLiQLkRMmSMoTMpTMqUMsVMvWNyYN{ZN~[N|H#ŽQ%•T%›W& Z'¦]'ºm5¸f*Ív5”fQ•gQ—hQ™iR›jR�kSŸmT¡oU¤qW§sY«v[¯z^³~b¸‚e½‡i‹nÇ�qË“uÏ–xÒ™zÔ›|Öœ}Öœ|Õ›{Ô™yÑ–vÏ“sÌ�oÈ�lʼnh†e¿ƒa¼€_º~\¸|Z·zX¶yWµxV´wU´wU³vT³vT³vT³vT³vT³vT³vT²vT²vT²vT²vT²vT²vT±vT±vU±vU±vU°uU°uU°uU¯uU®uU®tU­tU¬tU«sUªrU©rT¨qT§pT¥pS¤oS£nS¢mR mRŸlRžkRœjR›jQ™iQ—hQ–gQ”fQ’fP�ePŽcPŒbPŠaPˆ`O…_O‚^O\O|ZNyYNuWNqUMmSMjQLhQLfPLdNL`LKNr¤Nr¤Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À2#TB<JBIODJXHKiQLxXN„^OŽcP–gQ›jQžlRŸlRœkRËo,³d+•U'…L$;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘;_‘ B B B BgPLiQLkRMmSMoTMpUMrUMsVMtVMyYN|ZN~[N‹O$’S%—U&œX&¢['©_(Às;»h+º`“fQ•gQ—hQ™iR›jR�kSŸmT¡oU¤qW§sY«v[¯z^³}a¸‚e¼†iÁŠmÅŽpÊ’tÍ•wЗyÒ™zÓš{ÔšzÓ™yÑ—wÏ”tÍ’qÊ�nÇ‹jĈgÁ…d¾‚a»^¹}\¸{Z¶zXµyW´xV´wU³wU³vT³vT³vT³vT²vT²vT²vT²vT²uT²uT²uT±uT±uT±uT±uT°uU°uU°uU¯uU¯uU®uU®tU­tU¬tU¬sU«sUªrT©qT§qT¦pS¥oS¤oS£nS¡mR mRŸlR�kRœjQšjQ™iQ—hQ–gQ”fQ’eP�dPŽcPŒbPŠaPˆ`O…_O‚]O\O|ZNyYNuWNqUMmSMiQLhPLfOLdNL`LKkPANr¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À#Gy#GybSNP<3NCJRFJ^LKoTM}[N‰aO‘eP™iQ�kQŸlRžlR™iQÂm-¯g2�Q%]8 ;_’;_’;_’;_’;_’;_’;_’;_‘;_‘;_‘!2 B B B BgPLjQLlRMmSMoTMpUMrUMsVMtVMyYN|ZN‡M$�Q%”T%™V&žY&£['­b+¾q8Çr3’eP“fQ•gQ—hQ™iRšjRœkSŸmT¡oU¤qV§sYªv[®y^²}a·�d»…hÀ‰lÄ�oÈ�rË“uΖwЗxјyјxÑ—wÏ•uÍ’rË�pÈ�lÅŠi‡f¿„c½�`º~]¹|[·{Y¶yXµxW´wV³wU³vU³vT²vT²vT²vT²uT²uT²uT²uT²uT±uT±uT±uT±uT±uT°uT°uT°uT¯uU¯uU®tU®tU­tU­tU¬sU«sTªrT©rT¨qT§qT¦pS¥oS¤oS¢nS¡mR lRžlR�kRœjQšiQ™iQ—hQ•gQ”fQ’eP�dPŽcPŒbPŠaP‡`O…_O‚]O\N|ZNyYNvWNqUMmSMiQLhPLfOLdNL`LKZIKNs¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦Os¦Ot¦Ot¦Ot¦\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d–@d–#Gy#Gy#Gy#Gy#GyhVPKBIQEJUGJeOLtVM�]OŒbP”gQ›jQŸlRŸlR�kR–gQ´d*™X)ˆN$;`’;`’;`’;`’;`’;`’;`’"Gy"Gy"Gy!2 B B B B BjQLlRMnSMoTMpUMrUMsVMtVMyYN‚K$ŒP%’S%–U&›W&ŸY&¥\'µi2·h.Îx8‘eP“fQ•gQ—hQ˜iQšjRœkSžmT¡nU¤qV§sXªv[®y]²|`¶€dº„g¿ˆkËnÆ�qÊ’sÌ”uΕvÏ–wÏ–vΕuÍ“sË‘qÉŽnÆ‹kÈhÁ…e¾ƒb¼€_º~]¸|[¶zYµyW´xV³wV³wU³vT²vT²vT²uT²uT²uT²uT±uT±uT±uT±uT±uT°uT°uT°uT°uT¯uT¯tT¯tT®tT®tT­tT­tT¬sT«sT«rTªrT©qT¨qT§pS¦pS¤oS£nS¢nR¡mRŸlRžkR�kR›jQšiQ˜iQ—hQ•gQ“fQ’eP�dPŽcPŒbP‰aP‡`O…_O‚]O\N|ZNyYNuWNqUMmSMiQLgPLfOLcNL`MKZIKOs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦Os¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀvšÌvšÌvšÌvšÌ#Gy#Gy#Gy#Gy#Gy#Gy#Gy#GyYE<NDJTFJYIKkRLyYN…_O�dP—hQ�kQŸlRŸlR›jRÆo.²h2‘R%c; <`’<`’#Gy#Gy#Gy#Gy"Gy"Gy"Gy* B B B B BjQLlRMnSMoTMqUMrUMsVMtVM~I#‰N$�R%”T%˜V&œX&¡Z'§^(¼q9¶e*Àj+‘eP“fQ•gQ–hQ˜iQšjRœkSžmT¡nU£pV¦sX©uZ­x]±|`µc¹ƒf½‡jÁŠmÅ�pÈ�rÊ’tÌ“uÍ”uÍ“tÌ’sË‘qÉ�oÇŒlÄŠi‡f¿„d½‚a»^¹}\·{Z¶zX´xW´wV³wU²vU²vT²vT²uT²uT±uT±uT±uT±uT±uT±uT±uT°uT°uT°tT°tT¯tT¯tT¯tT®tT®tT­tT­sT¬sT¬sT«rTªrT©rT¨qT§pS¦pS¥oS¤oS£nS¢mR mRŸlRžkRœkR›jQšiQ˜hQ–hQ•gQ“fQ‘eP�dPŽcP‹bP‰aO‡`O„_O‚]O\N|ZNyYNuWNqUMmSMhQLgPLeOLcNL`LKZIK,Pƒ,PƒOs¥Os¥Os¥Os¥Os¦Os¦Os¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀvšÌvšÌvšÍvšÍvšÍvšÍ=a“#Gy#Gy#Gy#Gy#Gy#Gy#Gy#GygUOT>3REJVGJ`LKpTM}[N‰aO’ePšiQžkR lRžlR˜hQ·e)¢^.�P%^8 #Gy#Gy#Gy#Gy#Gy#Gy#Gy#Gy* B B B B BjQLlRMnSMoTMpUMrUMsVMxF#‡M$ŽQ%’S%–U&šW&žY&¢['ªa+¿s;¹g+�dP‘eP“fQ”gQ–hQ˜iQšjRœkSžlS nU£pV¦rX©uZ¬x]°{_´~b¸‚e¼…iÀ‰kÃŒnÆŽpÈ�rÊ‘sË’sË‘rÊ�qÉ�oÇ�mÅ‹kÈhÀ…e¾ƒb¼€`º~^¸|[¶{ZµyX´xW³wV²vU²vU²vT±uT±uT±uT±uT±uT±uT±uT±uT°uT°uT°tT°tT¯tT¯tT¯tT¯tT®tT®tT­sT­sT¬sT¬sT«rTªrT©rT©qT¨qS§pS¦pS¥oS£nS¢nR¡mR lRŸlR�kRœjQ›jQ™iQ˜hQ–gQ•gQ“fP‘eP�dP�cP‹bP‰aO‡`O„^O‚]O\N|ZNxXNuWMqUMmSMhPLgPLeOLcNL`LKZIK,Pƒ,Pƒ,QƒOs¦Os¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀvšÍvšÍv›Ív›Ív›Ív›Ív›Íw›Íw›Í=a“=a“=a“#Gy#Gy#Gy#Gy#Gy#Gy#Gy#GymYPODJUGJXIKeOLtWM‚]O�cP•gQœjQ lR mR�kRÈp.´g0”T&ˆN$]8 #Gy#Gy#Gy#Gy#Gy#Gy#Gy* B B B B BjQLlRMnSMoTMpUMrUMv>„L$ŒP%‘R%•T%˜V&œX& Z'¤\'°f0¹m5Äq3�dP‘eP“fQ”gQ–gQ˜hQ™jR›kS�lS nT¢pV¥rX¨tZ«w\¯z_³}a·�dº„g¾‡jÁŠlÄŒnÆŽpÇ�qÈ�qÈ�pÇŽoÆ�mÅ‹kÉiÁ‡g¿„d½‚aº_¸}]·|[µzY´yX³xW³wV²vU²vU±uT±uT±uT±uT±uT±uT°uS°uS°tS°tS°tS¯tS¯tT¯tT¯tT®tT®tT®sT­sT­sT¬sT¬sT«rTªrTªrT©qT¨qS§pS¦pS¥oS¤oS£nS¢mR¡mRŸlRžlR�kRœjQšjQ™iQ—hQ–gQ”fQ’fP‘eP�dP�cP‹bP‰aO†`O„^O�]O~\N{ZNxXNuWMqUMiQLgPLfOLeOLbNL_LKZIK,Qƒ,Qƒ,Qƒ,Qƒ,QƒOt¦Pt¦Pt¦Pt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\Àv›Ív›Ív›Ív›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Í=a“=a“=a“=a“=a“#Gz#Gz#Gz#Gz#Gz#Gz#GzgUOS=2RFJWHJ[JKlRMzYN†`O�eP˜iQžkR mRŸlR™iQ¼h*°h4‘R%ˆN$^9 [JK#Gy#Gy#Gy#Gy#Gy* B B B B BjQLlRMnSMoTMpUMI#†L$‹O$�Q%“S%—U&šW&�X&¡Z'¦](·l5´f,Èt5�dP�eP’fP”fQ–gQ—hQ™iR›kR�lSŸmT¢oV¤qW§tY«v[®y^±|aµc¸‚f¼…h¿ˆkÁŠlÃŒnÅ�nÅ�oÅ�nÅŒmÄ‹k‰iÁ‡g¿…e½ƒc»€`¹~^·|\¶{Z´yY³xW²wV²vU±vU±uT±uT±uT°uT°uT°tS°tS°tS°tS°tS¯tS¯tS¯tS¯tS®tS®tS®sS­sT­sT­sT¬sT¬rT«rTªrTªrS©qS¨qS§pS¦pS¦oS¥oS¤nS¢nR¡mR mRŸlRžkR�kR›jQšiQ˜iQ—hQ•gQ”fQ’eP�eP�dP�cPŠbPˆ`O†_Oƒ^O�]O~[N{ZNxXNtVMqUMhPLgPLfOLdNLbML_LKbE6,Qƒ,Qƒ,Qƒ,Qƒ-Qƒ-Qƒ-QƒPt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Q„-Q„-Q„\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d–w›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Íw›Îw›Îw›Î=a”=a”=a”=a”=a”=a”=a“#Hz#Gz#Gz#Gz#Gz#Gz#GzmYPPDJUGJYIKbMLqUM\NŠbP”fQ›jQŸlR¡mRžlRËp,µe+ \+�R%ˆN$b; ]8 [7 XHKO+N1L/L/L/K/K/e<!€J#{=‚J$…L$ˆN$ŠO$ŽP%’S%•T%˜V&œX&ŸY&£['ª`+¸m7´d)½h*ŽdP�dP’eP”fQ•gQ—hQ™iR›jR�lSŸmT¡oU¤qW§sYªv[­x]°{`´~b·�eº„g½†i¿ˆjÁ‰lŠlËlÊlŠkÁˆiÀ‡h¿…f½ƒc»�a¹_¸}]¶{[µzY³xX²wW²wV±vU±uU°uT°uT°uT°tT°tT°tS°tS¯tS¯tS¯tS¯tS¯tS®tS®tS®sS®sS­sS­sS¬sS¬sS«rS«rSªrSªrS©qS¨qS¨qS§pS¦pS¥oS¤oS£nR¢nR¡mR lRŸlR�kRœjQ›jQ™iQ˜hQ–hQ•gQ“fQ’eP�dPŽcPŒbPŠaPˆ`O…_Oƒ^O€]O~[NzZNwXNtVMpTMgPLfOLeOLcNLaMK^KKbE6,Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-QƒPt¦Pt¦Pt¦-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Q„-Q„-Q„-Q„-Q„-Q„-Q„-R„-R„\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d–@d–@d—@d—@d—@d—w›Íw›Íw›Íw›Îw›Îw›ÎwœÎwœÎwœÎwœÎwœÎxœÎxœÎ=b”=b”=b”=b”=b”=b”=b”=b”#Hz#Hz#Hz#Hz=a”=a”gUOS=2RFJWHKZJKiQLvXN„^OŽcP—hQ�kR mR mRœkRÄm-¶j3™W(�R%ŠO$e<!c; a: ^9 ]8 [7 X6X6X6‚K$†M$¬_(yF#—U&ˆN$‰N$‹O$�P%�R%“S%—U&šW&�X&¡Z'¤\(­d.¶j2·f*ŒbPŽcP�dP‘eP“fQ•gQ—hQ˜iRšjRœkSžmT¡nU£pW¦sX©uZ¬w\¯z_²}aµc¸‚e»„g½†i¿‡jÀˆjÀˆjÀˆjÀ‡i¿†g¾…f½ƒd»�b¹€`¸~^¶|\µzZ´yY²xX²wW±vV±uU°uU°uT°tT¯tT¯tT¯tS¯tS¯tS¯tS¯tS¯tS®tS®sS®sS®sS­sS­sS­sS¬sS¬rS«rS«rSªrSªrS©qS©qS¨qS§pS¦pS¥oS¤oS£nR¢nR¡mR mRŸlRžkR�kR›jQšiQ™iQ—hQ–gQ”gQ“fP‘eP�dPŽcPŒbP‰aP‡`O…_O‚^O€\O}[NzYNwXNsVMoTMgPLfOLdOLcNL`MK]KKaE6-Qƒ-Qƒ-QƒPt¦Pt¦Pt¦Pt¦Pt¦Pt§Pt§Pt§-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Qƒ-Q„-Q„-Q„-Q„-Q„-Q„-Q„-R„-R„-R„-R„-R„-R„-R„\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d—@d—@d—@d—@d—@d—@e—@e—@e—@e—@e—wœÎwœÎwœÎxœÎxœÎxœÎxœÎxœÎxœÎxœÎxœÎ>b”>b”>b”>b”>b”>b”>b”>b”=b”=b”=b”=b”=b”=b”=b”=b”YE<bJ>UGJYIK_LKnSM|ZNˆ`O’ePšiQŸlR¡mR mR™iQºg*´j4šW'‘R%ŽQ%h>!g=!f=!d<!c; b; `: ˆN$­`(±b(´d)¸f)|H#œX&œX&›W&�Q%‘R%•T%˜V&›W&žY&¢['¦](®d.³e,Àn1ŒbPŽcP�dP‘eP“fQ”gQ–hQ˜iRšjR›kSžlT nU¢pV¥rX§tZªv\­y^°{`³~b¶€d¹‚e»„g¼…h½†h¾†h¾†h¾…g½„f¼ƒd»�b¹€a¸~_¶|]µ{[´yZ³xX²wW±vV°vU°uU°uT¯tT¯tT¯tT¯tS¯tS¯tS¯tS®tS®tS®sS®sS®sS­sS­sS­sS¬sS¬sS¬rS«rS«rSªrSªqS©qS©qS¨qS§pS¦pS¦oS¥oS¤nR£nR¢mR¡mR lRŸlR�kRœkQ›jQšiQ˜iQ—hQ•gQ”fQ’fP‘eP�dP�cP‹bP‰aO‡`O„^O‚]O\O}[NyYNvWNrVMoTMfOLeOLdNLbML`LK\KKaE6Pt¦Pt¦Pt¦Pt¦Pt¦Pt§Pt§Pt§Pu§Pu§Pu§Qu§Qu§-Qƒ-Qƒ-Q„-Q„-Q„-Q„-Q„-Q„-R„-R„-R„-R„-R„-R„-R„-R„-R„.R„.R„~¢Ô~¢Ô\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@d—@d—@d—@e—@e—@e—@e—@e—@e—@e—@e—Ae—Ae—Ae—xœÎxœÎxœÎxœÎxœÎxœÎxœÎxœÏxœÏxœÏ>b”>b”>b”>b”>b”>b”>b”$Hz$Hz$Hz$Hz$Hz>b”>b”>b”>b”>b”gVOS=2RFJWHK[JKeOLsVM€]OŒbP•gQœjQ lR¡mRžlRÌr/¹g*²h2–U&“S%‘R%�Q%ŽQ%ŒP%£['¨]'¬`(°b(´d)¸f)»g)¾i*Áj*I#¡Z'¡Z' Z' Z'¡Z'£['¤['¥\'¦]'ª_)±d,³d)Äq3‹bP�cP�dP‘eP’fQ”fQ–gQ—hQ™iR›kS�lSŸmU¡oV¤qW¦sY©u[¬x]¯z^±|`´~b¶€d¸‚eºƒf»„f»„f¼„f»ƒe»‚dº�b¹€a·~_¶}^µ{\´zZ³yY²wX±wW°vV°uU¯uU¯tT¯tT¯tT®tS®tS®tS®sS®sS®sS®sS®sS­sS­sS­sS­sS¬sS¬rS¬rS«rS«rSªrSªqS©qS©qS¨pS§pS¦pS¦oS¥oS¤oR£nR¢nR¡mR mRŸlRžkR�kRœjQšjQ™iQ˜hQ–hQ•gQ“fQ’eP�dPŽcPŒcPŠbPˆ`O†_O„^O�]O\N|ZNyYNuWNrUMnSMjQLdNLcNLaMK_LK[JK`D6Pt¦Pt¦Pt§Pt§Pt§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§-Q„-Q„-Q„-R„-R„-R„-R„-R„-R„-R„-R„-R„.R„.R„Rv¨Rv¨Rv¨~¢Ô~¢Ô~¢Ô~¢Ô\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À@e—@e—@e—@e—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—xœÏxœÏxœÏx�Ïx�Ïx�Ïx�Ïy�Ïy�Ï>b•>b”>b”$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>b”>b”>b”>b”>b”YD<W?3UGJYIK\JKjRLxXN„_O�dP—hQ�kR mR¡mR�kRÈp.¹h,°f/¢[(žX&�X&¡Z'¥\'©^'­`(²c(¶e)ºg)¾i*Áj*Äl*Çm*Êo+¤\'¤\'¤\'¤\'¥\'¦]'§]'©^'ª_(­a)±c*µe*¼i+‹bP�cPŽdP�dP’eP“fQ•gQ—hQ˜iRšjRœkSžmT nU£pW¥rX¨tZªv[­x]¯z_²|`´~b¶€c·�d¸�d¹‚d¹�d¹�c¸€b¸a·~_¶}^´{\³z[²yZ±xX°wW°vV¯uU¯uU®tT®tT®tT®tT®sS®sS®sS®sS­sS­sS­sS­sS­sS­sS¬sS¬rS¬rS«rS«rSªrSªqSªqS©qS¨qS¨pS§pS§pS¦oS¥oS¤oR£nR¢nR¢mR¡mR lRžlR�kRœkQ›jQšiQ˜iQ—hQ–gQ”fQ“fP‘eP�dP�cPŒbPŠaPˆ`O…_Oƒ^O€]O~[N{ZNxXNtWMqUMmSMiQLcNLbML`LK^KKbR_D5Pt§Pt§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨-R„-R„-R„-R„-R„-R„-R„.R„.R„Rv¨Rv¨Rv¨Rv¨Rv¨~¢Õ~¢Õ~¢Õ~¢Õ~¢Õ~¢Õ~¢Õ~¢Õ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—y�Ïy�Ïy�Ïy�Ïy�Ïy�Ïy�ÏAe˜$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>b”>b”>b”>b”Q@:R<2fL@WHJZJKaMKoTM|ZNˆ`O‘eP™iQŸlR¡mR¡mRœjRÇo-»i-´h0«`)§]'¨]'¬`(°b(´d)¸f)¼h)Àj*Ãk*Æm*Én+Ìp+Ïq+Òr,§]'§]'§]'¨^'ª_(«_(¬`(­`(¯b)²c)ºi.ˆ`OŠaPŒbPŽcP�dP‘eP“fQ”gQ–hQ˜iRšjR›kS�lTŸnU¢oV¤qW¦sY©uZ«w\­y]°{_²|`³}aµ~b¶b¶b¶b¶a¶~`µ}_µ|^´{]³z[²yZ±xY°wX¯vW¯uV®uU®tU®tT­tT­sT­sS­sS­sS­sS­sS­sS­sS­sS¬sS¬rS¬rS¬rS«rS«rS«rSªrSªqS©qS©qS¨qS¨pS§pS¦pS¦oS¥oR¤oR¤nR£nR¢mR¡mR lRŸlRžkR�kRœjQšjQ™iQ˜hQ–hQ•gQ“fQ’eP�dP�dP�cP‹bP‰aO‡`O…_O‚]O\O}[NzYNwXNtVMpTMlRMhPLcNLaMK_LK]KKbR]C5Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨-R„-R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae˜Ae˜Ae˜Ae˜y�Ïy�Ïy�ÏAf˜Af˜Af˜$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>b•>b•>b”>b”WD<V>3TFJXHK[JKfOLsVM€]O‹bP”gQœjQ lR¡mR mRœkRÅm,½i,ºj/²d+±c)²c(¶e)ºf)¾h*Áj*Ål*Én+Ëo+Îq+Ñr+Ós,Õt,ƒK$ª^(ª_(«_(¬`(®a(¯a)°b)³d*¶f+¾m1‡`O‰aP‹bP�cP�dP�eP’fQ”fQ•gQ—hR™iR›kS�lTŸmT¡oV£pW¥rX§tY©v[¬w\®y]¯z^±{_²|`³}`´}`´}`´}_´|^³{^³{\²z[±yZ°xY°wX¯vW®uV®tU­tU­tT­sT­sT­sS­sS¬sS¬sS¬sS¬rS¬rS¬rS¬rS¬rS«rS«rS«rS«rSªrSªqSªqS©qS©qS¨qS¨pS§pS¦pS¦oS¥oR¤oR¤nR£nR¢mR¡mR mRŸlRžlR�kRœjQ›jQšiQ˜iQ—hQ–gQ”fQ“fP‘eP�dPŽcPŒbPŠaPˆ`O†_O„^O�]O\N|ZNyYNvWNsVMoTMkRLgPLbML`LK^KK\JK~aR[B5Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ£Õ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe—Ae—Ae—Ae—Ae—Ae—Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Af˜Af˜Af˜y�ÐAf˜Af˜Af˜Af˜Af˜Bf˜$H{$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>c•>c•>b•>b•O?:[E<dK?UGJYIK\KKjRLxXN„^OŽcP—hQ�kQ lR¡mR mRÒt.Êq.Àj+¿k-¼i,¼h*¼h*Àj*Âk*Ål*Én+Íp+Ðq+Òs,Ôt,×u,Ùv,Ûw,¬`(¬`(­a)¯b)±c*²d+µf+·g,»k0¾m1‡`O‰aO‹bPŒcPŽcP�dP‘eP“fQ•gQ–hQ˜iRšjRœkS�lTŸnU¡oV¤qW¦sX¨tZªv[¬w\­y]¯z^°z^±{^²{^²{^²{^²z]±z\±y[°xZ¯wY¯vX®vW®uV­tV­tU¬sT¬sT¬sT¬sT¬sS¬rS¬rS¬rS¬rS¬rS«rS«rS«rS«rS«rS«rSªrSªqSªqS©qS©qS¨qS¨pS¨pS§pS¦pS¦oR¥oR¤oR¤nR£nR¢mR¡mR mRŸlRžlR�kRœkQ›jQšiQ™iQ˜hQ–gQ•gQ“fQ’eP�eP�dP�cP‹bP‰aP‡`O…_Oƒ^O€\O~[N{ZNxYNuWNqUMmSMiQLeOLaMK_LK]KKlN>|aRZA5-QƒQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„Rv¨Rv¨Rv©Rv©Rv©Rw©£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö£Ö\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAe˜Ae˜Ae˜Ae˜Ae˜Ae˜Ae˜Af˜Af˜Af˜Af˜Af˜yžÐyžÐyžÐzžÐzžÐzžÐBf˜Bf˜Bf˜Bf˜Bf˜$H{$H{$H{$H{$H{$H{$H{$H{$H{$Hz$Hz$Hz$Hz$Hz$Hz$Hz$Hz>c•>c•>c•>c•VC<T=3}cVWHJZIKaMLoTM|ZN‡`O�eP˜hQ�kQ lR¢nR¢nSÓt.Òv2Åm+Äl+Ãl+Ål+Æm+Én+Ëo+Íp+Ðr+Ós,Öu,×u,Ùv,Ûw-Ýx-ßy-¯b*¯c+²e,µg-¸i/ºk0½m2Àp4ºi-†_Oˆ`OŠaPŒbP�cP�dP‘eP’fQ”fQ•gQ—hR™iRšjSœlTžmT nU¢pV¤qW¦sY¨tZªv[«w[­x\®y]¯y]¯y]°y]°y\°y\¯x[¯xZ®wY®vX­uW­uW­tV¬tU¬sU¬sT«sT«rT«rS«rS«rS«rS«rS«rS«rS«rS«rS«rSªrSªqSªqSªqS©qS©qS©qS¨pS¨pS§pS§pS¦pR¦oR¥oR¤oR¤nR£nR¢mR¡mR mR lRŸlRžkR�kQ›jQšjQ™iQ˜hQ—hQ•gQ”fQ“fP‘eP�dPŽcPŒbPŠaPˆ`O†_O„^O‚]O\O}[NzYNwXNtVMpTMlRMhPLdNL`LK^KKmO?kN>^C6W@5-Q„-Q„Qu§Qu§Qu§Qu§Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„Rv©Rw©Rw©Rw©¤Ö¤Ö¤Ö¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö¤Ö¤Ö¤Ö\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAf˜Af˜Af˜Af˜Af˜Af˜Af˜Af˜zžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐBf˜Bf˜Bf˜Bf˜$I{$I{$I{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$H{$Hz$Hz$Hz$Hz$HzYE<W?4�gYXHKZJKfOLsVM\N‰aO‘eP™iQ�kR¡mR£nS¢nS¡mSÚ|7Ïs/Êo,Êo,Íp+Ïq+Ñr,Ós,Õt,Øv,Úw-Üx-Ýy-ßz.à{/â|/²e-´g/·j1»m3¿o5¿o5Ãr7¿n3³c)…_O‡`O‰aP‹bP�cPŽdP�dP’eQ“fQ•gQ–hQ˜iR™jR›kS�lTŸmU¡oV¢pV¤qW¦sX¨tY©uZªv[«w[¬w[­w[­w[®w[®wZ­wZ­vY­vX¬uW¬tW¬tV«sU«sU«sT«rT«rT«rSªrSªrSªrSªrSªrSªrSªqSªqSªqSªqSªqS©qS©qS©qS©qS¨pS¨pS§pS§pS¦pR¦oR¥oR¥oR¤nR£nR£nR¢mR¡mR mR lRŸlRžkR�kQœjQ›jQšiQ˜iQ—hQ–gQ•gQ“fQ’eP�dPŽdP�cP‹bP‰aO‡`O…_Oƒ^O�]O~[N{ZNyYNvWNsVMoTMkRLgPLbML^LKnP?lO?iM>\C6T>4-Q„-Q„-Q„-R„Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„Rw©Sw©€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›Ei›\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀAf˜Af˜Bf˜Bf˜Bf˜zžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÐzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑBf˜Bf˜Bf˜$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$H{$H{$H{$H{?c•?c•?c•?c•$H{$H{$H{SB;R<2zbVUGJXIK[JK[JKuWN€\OŠaP’fP™iQŸlR¡mR£nS£nS¥pTà€9Þ9Õw2Öw0Öv/Öv.Ùx/Üz0Þz0á|1ã~2æ€3è�5éƒ6ë…8ë…8ºm4¼o7¾q8Äu;Ãs9Ãs8ºj0‚]O„^O†_Oˆ`OŠaPŒbP�cP�dP‘eP’fQ”fQ•gQ—hR™iRšjSœkS�lTŸnU¡oV¢pV¤qW¦rX§sY¨tY©uYªuZ«uZ«vZ«vY«uY«uX«uX«tW«tV«sVªsUªsUªrTªrTªrTªrSªqSªqSªqSªqSªqS©qS©qS©qS©qS©qS©qS©qS©qS¨qS¨pS¨pS§pS§pR§pR¦oR¦oR¥oR¥oR¤nR£nR£nR¢mR¡mR mR lRŸlRžkR�kRœjQ›jQšiQ™iQ—hQ–gQ•gQ”fQ’eP‘eP�dP�cPŒbPŠaPˆ`O†_O„^O‚]O\O}[NzYNwXNtVMqUMnSMiQLeOL`LK]KKmP?kN?|aSZA5P<4-R„-R„-R„-R„-R„-R„Qv¨Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×€¤×Ei›Ei›Ei›Ei›Ei›Ei›Ei›\À\À\À\À\À\À\À\À\À\À\À\ÀBf˜zžÐzžÐzžÐzžÐzžÐzžÐzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑBf™Bf™Bf™%I{$I{$I{$I{$I{$I{$I{$I{$I{$I{$I{?c–?c–?c–?c–?c–?c•?c•?c•?c•$H{$H{$H{jXP^H=}dXUGJXHKZIKkRLwXN‚]O‹bP”fQšiQžkR mR£nS¥pT¨qU¨rUç…;ç†>ì‰?è†<å‚9ê†;î‰=ðŠ=ðŠ>ôŽAø‘Dü•Hÿ˜Kù’E¿r:Àt;Àt;Át<Ãt:½n4´f,�]Oƒ^O…_O‡`O‰aO‹bPŒcPŽcP�dP‘eP“fQ”gQ–hQ˜iR™jR›kSœlSžmTŸnU¡oV¢pV¤qW¥rW¦rX§sX¨tX©tX©tX©tX©tXªtWªsW©sV©sV©rU©rU©rT©qT©qT©qS©qS©qS©qS©qS©qS©qS©qS©qS¨qS¨qS¨pS¨pS¨pS¨pS§pS§pS§pR¦pR¦oR¦oR¥oR¥oR¤nR¤nR£nR¢nR¢mR¡mR mR lRŸlRžkR�kRœjQ›jQšiQ™iQ˜hQ–hQ•gQ”fQ’fP‘eP�dPŽcPŒcP‹bP‰aO‡`O…_Oƒ^O�]O~[N{ZNyYNvWNsVMpTMlRMgPLcNL†gUƒeUlO?~bT{`SW@5-R„-R„-R„-R„-R„-R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R….R…Ei›Ei›Ei›€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×€¥×Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›\À\À\À\À\À\À\À\À\À\ÀzžÑzžÑzžÑzžÑzŸÑzŸÑzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒBg™Bg™Bg™%I{%I{%I{%I{%I{%I{%I{@d–?d–?d–?d–?d–?d–?d–?d–?d–?c–?c–?c–?c–$I{$I{L=:WD<v_T€gZuZLWHKYIKmSMyYNƒ^O�cP”fQ™iQœkQ mR¤nS§pT¨qT«sV°wXë…8õ�Cú•Iú•Jÿ›Nÿ Rÿ¡Tÿ¢Uÿ£Vÿ§Zÿ«_ÿŸSÁu=Át=¿s;½q9½o6¶h.¯a)€\O‚]O„_O†_Oˆ`OŠaP‹bP�cP�dP�eP’eQ“fQ•gQ–hR˜iR™jR›kSœlTžmTŸnU¡oU¢pV£pV¤qW¥rW¦rW§rW§rW§rW¨rW¨rV¨rV¨rU¨rU¨qU¨qT¨qT¨qT¨qS¨qS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS¨pS§pS§pS§pS§pR§pR§pR¦oR¦oR¦oR¥oR¥oR¤oR¤nR£nR£nR¢mR¢mR¡mR lRŸlRŸlRžkR�kQœjQ›jQšiQ™iQ˜hQ—hQ•gQ”fQ“fP‘eP�dPŽdP�cP‹bPŠaPˆ`O†_O„^O�]O\O}[NzYNwXNtWMqUMnSMjQLeOL‰iV„fU‚eUcT|bTcK>`KA-R„-R„-R„.R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R„.R….R….R….R…EiœEiœEiœEiœEiœEiœ�¥×�¥×�¥×�¥×�¥×�¥×�¥×EiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœEiœ\À\À\À\À\À\À\À\ÀzŸÑzŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒ{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| ÒCg™Cg™%I{%I{%I{@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–?d–?d–?d–?d–?d–?d–$I{$I{dUPYE<xaVlSGw]OVHJbMLoTMzYN„^O¬vR’eP˜hQœjQ¡mR£nR¦pS§qT­uV³yZµ{[º^¾‚aÁ…cÊŒiÎ�lÑ’nÿ§Xÿ¬_ÿ­aÿžSÿŸU½q:ºn7¸k3µh0¯c*©^(\N�]Oƒ^O…_O‡`O‰aOŠbPŒbPŽcP�dP‘eP’fQ”fQ•gQ—hR˜iR™jR›kSœlSžmTŸmT nU¡oU£pV£pV¤qV¥qV¥qV¦qV¦qV¦qU¦qU¦qU¦qT§qT§pT§pT§pS§pS§pS§pS§pS§pS§pS§pS§pS§pR§pR§pR§pR¦pR¦pR¦oR¦oR¦oR¥oR¥oR¥oR¤oR¤nR£nR£nR¢nR¢mR¡mR¡mR lRŸlRžlRžkR�kQœjQ›jQšiQ™iQ˜hQ—hQ•gQ”fQ“fP’eP�dP�dP�cPŒbPŠaPˆ`O†_O„^O‚]O€\O~[N{ZNyYNvWNrVMoTMlRM|WBwUAˆhVƒfVlO@~cTzaTaI>XG@-R„.R„.R„.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©.R„.R„.R„.R„.R„.R„.R„.R„.R….R….R….R….R….R….S…EiœEiœEiœEjœEjœEjœEjœEjœ�¥×�¥×�¥×EjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEiœEiœEiœ\À\À\À\À\À\À{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÑ{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| ÒCg™@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–?d–$I{$I{RA;P<3zcXnVI�uh™~pdNLpUMÁ”w¬zZ«vS‘eP–gQœjQžlR¡mR¤oS§pT­uV¯vW±xY¶|\¼€_ÆdƉgÈŠhÊŒiÌŽkÎ�lÿ�Rñ�F¶k4²g1¯d-­b+ª_(¢Z'}[N€\O‚]O„^O†_Oˆ`O‰aP‹bP�cPŽcP�dP‘eQ’fQ”gQ•gQ—hR˜iR™jR›kSœkS�lTžmT nT¡nU¡oU¢oU£pU¤pU¤pU¤pU¥pU¥pT¥pT¥pT¥pT¥pS¥pS¥oS¦oS¦oS¦oS¦oS¦oS¦oR¦oR¦oR¦oR¦oR¦oR¦oR¦oR¥oR¥oR¥oR¥oR¤oR¤nR¤nR£nR£nR¢nR¢mR¡mR¡mR lRŸlRŸlRžkR�kRœkQœjQ›jQšiQ™iQ˜hQ—hQ•gQ”gQ“fP’eP�eP�dP�cPŒbPŠbP‰aO‡`O…_Oƒ^O�]O~\N|[NzYNwXNtVMpUM—pY”oXzWBuUB…gVlP@jO@|bUx`TcMB3!.R„Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©.R„.R„.R„.R„.R….R….R….R….R….S….S….S…EjœEjœEjœEjœEjœEjœEjœEjœEjœ�¦Ø�¦ØEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœEjœ\À\À\À\ÀBg™{ŸÒ{ŸÒ{ŸÒ{ Ò{ Ò{ Ò{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| ÒCg™Cg™Cg™Cg™|¡Ó@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–%I{;0/SB;R=4fODpXL‘xkš€r˜vbº“zÀ”x«{[Ã�l�dP•gQ™iQ›jQŸlR£nR¦pS¨qTªrT¬tU°wWµ{Z¸}\¸|\¸}\¹~]»]å}+Ý~6­d.ªa+¨_)§^(¤\'zYN|ZN~\N€]Oƒ^O„_O†_Oˆ`OŠaP‹bP�cPŽdP�dP‘eQ“fQ”gQ•gQ—hR˜iR™jRšjSœkS�lSžlTŸmT mT nT¡nT¢nT¢oT£oT£oT£oT£oT¤oS¤oS¤oS¤oS¤oS¤oS¤oS¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¥oR¤oR¤oR¤nR¤nR¤nR£nR£nR£nR¢mR¢mR¡mR¡mR lR lRŸlRžlRžkR�kQœjQ›jQšjQ™iQ™iQ˜hQ—hQ•gQ”gQ“fQ’eP�eP�dPŽcPŒbPŠbP‰aO‡`O…_Oƒ^O�]O\N}[NzZNxXNuWMrUM™rZ–pY|XCxVCsTBmQAkOA~cVzaU`I>\IARv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©.R….R….R….R….R….S….S….S….S…FjœFjœFjœFjœFjœFjœFjœFjœ‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦ØFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœ\À\ÀBg™{ Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ò| Ó| ÓCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™}¡Ó@e—@e—@e—@e—@e—@e—@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–@d–%I{<1/J82^I@gQFqYN‘xl™€s—vc¢{d¿”yª{\«wUÄ�i‘eP•gQ˜hQ�kQ mR¢mR¤nR¥oS§pSªrT¬tU¬tU¬tU¬tU­tU®tUÒt.ƒL&¤](¢['¡Z'žY&xYN{ZN}[N\N�]Oƒ^O…_O‡`OˆaOŠaPŒbP�cP�dP�eP‘eQ“fQ”gQ•gQ—hR˜iR™iRšjR›kSœkS�lSžlSŸmSŸmS mS nS¡nS¡nS¢nS¢nS¢nS¢nS£nS£nS£nR£nR£nR£nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR¤nR£nR£nR£nR£nR£nR¢nR¢mR¢mR¡mR¡mR¡mR lR lRŸlRžlRžkR�kRœkQœjQ›jQšiQ™iQ˜iQ—hQ–hQ•gQ”fQ“fP’eP�eP�dPŽcPŒbP‹bP‰aO‡`O†_O„^O‚]O\O}[N{ZNxYNvWNsVM›s[˜rZ~ZD�nYŒkYqSBkPAiOA|cVbK?\G>NB?Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©.S….S….S….S….S….S…FjœFjœFjœFjœFjœFjœ‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦Ø‚¦ØFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœCg™Cg™| Ò| Ò| Ò| Ò| Ò| Ó| Ó| Ó| Ó|¡Ó|¡ÓCg™Cg™Cg™Cg™Cg™Cg™Cg™CgšCgšCgšCgšCgš}¡ÓAe—Ae—Ae—@e—@e—@e—@e—@e—@e—@e—@e—@d—@d—@d—@d—@d—@d—@d–@d–@d–@d–%I{@d–@d–<1/H72\I@ePGpYN�xm˜€t–vc¡{e¾”zÁ“u‘p«wU¬uQ‘eP•gQ™iQšjQœjQžlR¡mR£nR¤nR¤oR¤oR¤oR¤oR¤oRÇgb;  Z'žY&›W&“S%vXNyYN{ZN~[N€\O‚]Oƒ^O…_O‡`O‰aOŠaPŒbP�cP�dP�dP‘eQ“fQ”gQ•gQ–hQ˜iR™iRšjR›jR›kSœkS�lSžlSžlSŸlSŸmS mS mS¡mS¡mS¡mR¡mR¢mR¢mR¢mR¢mR¢nR¢nR¢nR£nR£nR£nR£nR£nR¢nR¢nR¢mR¢mR¢mR¢mR¡mR¡mR¡mR mR lRŸlRŸlRžlRžkR�kR�kQœjQ›jQ›jQšiQ™iQ˜hQ—hQ–gQ•gQ”fQ“fP‘eP�dP�dP�cPŒbP‹bP‰aO‡`O†_O„^O‚]O€\O}[N{ZNyYNvXNtVM�u\„]E€[E’oZŽmZŠkYnRBjOB}cVdL@`I?XGARv¨Rv¨Rv¨Rv¨Rv©Rv©Rw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwª.S….S….S….S…/S…FjœFjœFjœFjœ‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦Ù‚¦ÙFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœ‚¦Ù‚¦ÙCg™Cg™| Ó| Ó|¡Ó|¡Ó|¡Ó|¡Ó|¡ÓCg™Cg™Cg™Cg™CgšCgšCgšCgšCgšCgšCgšCgšChšChšChšChšChš}¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—@e—@e—@e—@e—@e—@e—@e—@d—%I{%I{%I{%I{%I{@d–@d–<10F61o]Vye]„oeŽxmœ‚u”udŸ{e¥}d¨|aÀ’tÁ�pÃ�l¬uQ�dP’eP”fQ–gQ˜iQ›jQœjQœjQœjQœjQœkQœkQ�kQ_9 œX&™V&•T%rUMuWMwXNzYN|ZN~[N€\O‚]O„^O…_O‡`O‰aOŠbPŒbP�cPŽdP�dP‘eQ’fQ”fQ•gQ–hQ—hR˜iR™iRšjR›jRœkRœkR�kR�lRžlRžlRŸlRŸlRŸlR lR mR mR mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR¡mR mR lR lRŸlRŸlRŸlRžkRžkR�kR�kQœjQ›jQ›jQšiQ™iQ˜iQ—hQ–hQ•gQ”gQ“fQ’fP‘eP�dP�dP�cPŒbPŠbP‰aO‡`O†_O„^O‚]O€\O~[N{ZNyYNwXNtVMrUM†^F‚]F”q\�o[ŒlZqTD€fX}dWeMAbK@O=6NB@Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxª/S…/S…FjœFjœFjœƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœFjœƒ§Ùƒ§Ùƒ§Ùƒ§ÙCg™Cg™Cg™}¡Ó}¡Ó}¡ÓCg™CgšCgšCgšCgšCgšCgšCgšChšChšChšChšChšChšChšChšChšChšDhšDhšDhš~¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—%I{%I{%I{%I{%I{%I{%I{%I{%I{@d—@d—E:9D61m\Vwe]lXOuaX„k_¨‹z±�|¡|e¥|c§|`©z]ªyXÂ�nÃ�lÄŽkÄŽi�dP’eP“fP“fP“fP’fP“fP“fP“fP[7 —U&”T%�P%pTMsVMuWMxXNzYN|ZN~[N€\O‚]O„^O†_O‡`O‰aOŠbPŒbP�cPŽdP�dP‘eP’eQ“fQ”gQ•gQ–hQ—hQ˜iR™iRšjR›jR›jRœkRœkR�kR�kRžkRžlRžlRŸlRŸlRŸlRŸlR lR lR lR lR lR lR lR lR lR lR lR lR lRŸlRŸlRŸlRŸlRžkRžkR�kR�kQœkQœjQ›jQ›jQšiQ™iQ˜iQ˜hQ—hQ–gQ•gQ”fQ“fP’eP‘eP�dPŽdP�cPŒbPŠbP‰aO‡`O…_O„^O‚]O€\O~[N|ZNyYNwXNuWMrUM‡`G„^G–r]|ZFxXFtVE�gY~eY{cXbLA[H?REA.R„.R„Rv©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSxªSxªSxªSxªTxªTxªTxªƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙFj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�Fj�ƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§Ùƒ§ÙCg™Cgš}¡Ó}¡ÓCgšCgšCgšCgšChšChšChšChšChšChšChšChšChšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš~¢ÔAe—Ae—Ae—Ae—Ae—Ae—Ae—Ae—Ae—%I|%I|%I|%I{%I{%I{%I{%I{%I{%I{%I{%I{%I{%I{@e—@e—B99B51k[Vud]iWPr_Wye] †yªŒ|²�}¡|e¤|c¾’w¨{^¨z\©yZÁ�p«xW«wU«wU«wU«wUÃŽlÃŽlÂŽlÂŽlkD(’S%ŒP%nSMoTMqUMsVMvWNxXNzYN|ZN~[N€\O‚]O„^O†_O‡`O‰aOŠaP‹bP�cPŽcP�dP�eP’eQ“fQ”fQ•gQ–gQ–hQ—hQ˜iQ™iR™iRšjR›jR›jRœjRœkRœkR�kR�kR�kRžkRžkRžlRžlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRŸlRžlRžkRžkRžkR�kR�kQ�kQœkQœjQ›jQ›jQšjQšiQ™iQ˜iQ˜hQ—hQ–gQ•gQ”gQ“fQ’fP‘eP�eP�dPŽcP�cP‹bPŠaPˆaO‡`O…_Oƒ^O‚]O€\O~[N|ZNyYNwXNuWMrUMŸw_œv_˜t^~\GzYGvWF†j[fZ|dYybX\I@VGB5/2.R„.R„.R„.R„Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªSxªTxªTxªTxªTxªFk�Fk�Fk�Fk�ƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§ÚFk�Fk�Fk�Fk�Fk�Fk�Fk�Fk�ƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Úƒ§Ú}¡Ó}¡Ó}¡Ô}¡ÔChšChšChšChšChšChšChšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš~£ÕAe˜Ae˜Ae˜Ae˜Ae˜%J|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I{%I{%I{%I{%I{%I{@e—@e—<68?31gYVpa\bRMjYTq`Z€j`¡‡z«�}²‘}¶’|¸’{º’z»’x¼’w§z^¿‘t¿‘s¿‘s¿�s¿�r¿�r¾�r¾�r°h2‹O$„L$mSMnSMnTMoTMtVMvWNxXNzYN|ZN~[N€\O‚]O„^O…_O‡`OˆaOŠaP‹bPŒcPŽcP�dP�dP‘eP’eQ“fQ”fQ•gQ–gQ–hQ—hQ˜hQ˜iQ™iQšiQšiQšjQ›jQ›jQœjQœjQœkQœkQ�kQ�kR�kR�kR�kR�kR�kR�kR�kR�kR�kQ�kQ�kQœkQœjQœjQœjQ›jQ›jQšjQšiQ™iQ™iQ˜hQ—hQ—hQ–gQ•gQ•gQ”fQ“fP’eP‘eP�dP�dP�cPŒbP‹bP‰aPˆ`O†`O…_Oƒ^O�]O€\O~[N|ZNyYNwXNtWM£z` y`�w`šu_€]I|[HwXGˆl\ƒi[}eZycYr_WjZU;23.R„.R„.R„.R„.R….R….R…Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxª/S…/S…Gk�Gk�Gk�Gk�Gk�Gk�Gk�ƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨ÚGk�Gk�Gk�ƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Ú}¢Ô}¢Ô}¢Ô}¢Ô~¢ÔDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš£ÕAf˜%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I|%I{%I{Ae—Ae—Ae—?89H=<gZXpb_aSPi[Vud]˜‚x£‰{‘uf•wf™yf²�|´‘|¶‘{¸‘y¸‘y¡zb¡zb¡za¡ya¡ya¡ya^=%“V)kRLlRMmSMmSMnSMoTMoTMvWNxXNzYN|ZN~[N€\O‚]Oƒ^O…_O†`Oˆ`O‰aPŠbPŒbP�cPŽdP�dP�eP‘eP’fQ“fQ”fQ•gQ•gQ–hQ—hQ—hQ˜hQ˜iQ™iQ™iQšiQšiQšjQ›jQ›jQ›jQ›jQ›jQœjQœjQœjQœjQœjQœjQœjQ›jQ›jQ›jQ›jQ›jQšjQšiQšiQ™iQ™iQ˜iQ˜hQ—hQ—hQ–gQ•gQ”gQ”fQ“fP’eP‘eP�dP�dPŽcP�cP‹bPŠaP‰aO‡`O†_O„^Oƒ^O�]O\O}[N{ZNyYNwXNtVM¤{b¡zaŸxaœwa‚_J~\IyZItWH…j]g[dNDr`Xj[VOCB.R„.R„.R„.R….R….R….R….R….S…Sw©Sw©SwªSwªSxªSxªSxªSxªTxªTxªTxªTxª/S…/S…/S…Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨ÚGk�„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú~¢Ô~¢Ô~¢Ô~¢Ô~¢Ô~¢ÔDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDh›Dh›Dh›Dh›£Õ£Õ£ÕDh›%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I|%I|%I|%I|Ae—Ae—Ae—4285.0G??g\[XMK`TRg[YŠyt{h`�lb‡odŒre‘uf”vf–wf–we–we­�{¬�{¬�{¬Œz¬ŒzbD.‰T+�\EkRLkRMlRMmSMnSMnSMsVMvWNxXNzYN|ZN~[N€\O�]Oƒ^O„_O†_O‡`OˆaOŠaP‹bPŒcP�cPŽdP�dP�eP‘eP’fQ“fQ”fQ•gQ•gQ–gQ–hQ—hQ—hQ˜hQ˜hQ˜iQ™iQ™iQ™iQšiQšiQšiQšiQšiQšiQšiQšiQšiQšiQšiQšiQšiQ™iQ™iQ™iQ˜iQ˜hQ˜hQ—hQ—hQ–gQ•gQ•gQ”fQ“fQ“fP’eP‘eP�dP�dPŽcP�cPŒbPŠbP‰aPˆ`O‡`O…_O„^O‚]O€]O\N}[N{ZNyYNvXNtVMŽfLŒdL‰cL†bL™vb–ta‘r`Œo_pVHkSGcOE]KDj[WNCB.R….R….R….R….R….S….S….S….S….S….S…SxªSxªSxªSxªTxªTxªTxª/S…/S…/S…/S…/S…Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨ÚGk�Gk�Gk�Gk�Gk�„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú~¢Ô~¢Ô~¢Ô~¢Ô~¢Õ~¢ÕDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDh›Dh›Dh›Dh›Dh›Dh›Dh›£Õ£Ö£Ö£Ö£Ö¤Ö¤ÖDi›&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|Ae—Ae—Ae—-*.3-0G@Ae\]jabs`Ssjk|qoƒvrtd_{ha�lcƒmcƒmc„nc„nc›„y›„yœ„yœ„y\A.~ZE€[F�]Gƒ^GkRLlRMlSMmSMqUMsVMuWNwXNyYN{ZN}[N\O�]O‚]O„^O…_O†`Oˆ`O‰aPŠaP‹bPŒcP�cPŽdP�dP�dP‘eP’eP“fQ“fQ”fQ”gQ•gQ•gQ–gQ–hQ—hQ—hQ—hQ˜hQ˜hQ˜hQ˜iQ˜iQ™iQ™iQ™iQ™iQ™iQ˜iQ˜iQ˜hQ˜hQ˜hQ—hQ—hQ—hQ–gQ–gQ•gQ•gQ”fQ“fQ“fP’eP‘eP‘eP�dP�dPŽcP�cPŒbP‹bPŠaPˆaO‡`O†_O…_Oƒ^O�]O\O~[N|ZNzYNxXNvWNsVM�gN�fMŠdM‡cMšwc—ub“sbŽparWIkSHbOF]KEj\X_UT@<?.R….R….R….R….S….S….S….S….S….S…/S…/S…/S…/S…TxªTxªTxª/S…/S…/S…/S…/S…/S…Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�Gk�„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©ÛGkžGkžGkžGkžGkžGkžGkžGkžGkž„©Û„©Û„©Û„©Û„©Û„©Û„©Û„©Û~¢Õ~£Õ~£Õ~£Õ~£Õ~£Õ£ÕDhšDhšDhšDhšDh›Dh›Dh›Dh›Dh›Dh›Dh›Di›Di›£Ö£Ö£Ö¤Ö¤Ö¤Ö¤Ö¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›&J|&J|&J|&J|&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I|('.,*/>:?YUY`QGfVLudXjeitlm{po|qp}rp~rpsqsq€tqŒr_=1+xJ)’o[~[F€\G‚^H„_I…`IkRLlRMnSMpTMrVMuWMwXNyYN{ZN}[N~\N€\O‚]Oƒ^O„_O†_O‡`Oˆ`O‰aPŠbP‹bPŒcP�cPŽcP�dP�dP�eP‘eP’eP’fP“fQ“fQ”fQ”gQ•gQ•gQ•gQ–gQ–gQ–gQ–hQ–hQ—hQ—hQ—hQ—hQ—hQ–hQ–hQ–gQ–gQ–gQ•gQ•gQ•gQ”fQ”fQ“fQ“fP’eP‘eP‘eP�dP�dPŽdPŽcP�cPŒbP‹bPŠaP‰aO‡`O†_O…_Oƒ^O‚]O€\O~\N}[N{ZNyYNwXNuWM“iO�hOŽgO‹eOžze›yd—wd”tc�rbtYKjTIaOG[KFj]Y^UU?;@.R….R….S….S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…/S…GkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkžGkž…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û…©Û…©Û£Õ£Õ£Õ£Õ£Õ£Õ£Õ£ÕDh›Dh›Dh›Dh›Di›Di›Di›Di›Di›¤Ö¤Ö¤Ö¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|Af˜Ae˜Ae˜%J|%J|%J|%I|%I|%I|%I|#-#%.()1MEAQIEUMI]SL]TM=4.1+(=.#6,&5( 1%"ŒlY�n[“p\•r]�]Hƒ_I…`JœwažybkRLmSMpTMrUMtVMvWNxXNzYN|ZN}[N\N€]O‚]Oƒ^O…_O†_O‡`OˆaO‰aPŠaP‹bPŒbP�cPŽcPŽdP�dP�dP�eP‘eP‘eP’eP’fP“fP“fQ“fQ”fQ”fQ”fQ”gQ”gQ•gQ•gQ•gQ•gQ•gQ”gQ”fQ”fQ”fQ”fQ“fQ“fP“fP’eP’eP‘eP‘eP�dP�dP�dPŽcP�cPŒcPŒbP‹bPŠaP‰aO‡`O†_O…_Oƒ^O‚]O�]O\O}[N|ZNzYNxXNvWN¬‚gª�g¨€g�hPŒfPŸ|fœzf˜xe”vd�scsYLiTK_NHYKFh\Z]UV=;@.R….S….S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxª/S…/S…/S…/S…GlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlžGlž…©Û…©Û…©Û…©Û£Õ£Õ£Õ£Õ£Õ£Õ£Ö£ÖDi›Di›Di›Di›Di›Di›¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×Ei›&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Af˜Af˜Af˜Af˜Af˜%J|%J|%J|%J|%J|%J|%I|%I|%I|,
+,!.! "`E6†iYŒlZ�o\“q]•s^�^J™va›wb�ycŸzd {e¤}foTMqUMsVMuWNwXNyYN{ZN|ZN~[N\O�]O‚]Oƒ^O…_O†_O‡`Oˆ`O‰aOŠaP‹bPŒbPŒcP�cPŽcPŽdP�dP�dP�dP�eP‘eP‘eP‘eP’eP’eP’eP’eP’fP’fP’fP“fP’fP’fP’fP’eP’eP’eP‘eP‘eP‘eP�eP�dP�dP�dPŽdPŽcP�cPŒcPŒbP‹bPŠaP‰aOˆ`O‡`O†_O…_Oƒ^O‚]O�]O\O~[N|[N{ZNyYNwXN®ƒi¬ƒiª‚i¨�i¦€hŒhR‰fQ†dQ‚bP•wfx]Oˆpdkbtd_m`]OEDG?A;:@.S….S….S….S….S…/S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTx«Tx«Tx«Ty«/S†GlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž…ªÜ…ªÜ…ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž…ªÜ…ªÜ£Ö£Ö£Ö£Ö¤Ö¤Ö¤Ö¤Ö¤ÖEi›€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×€¥×€¥×€¥×Bg™Bg™Bg™Bg™Bg™&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Af˜Af˜%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|%I|
+,YA5jPBpSD‹l[�o]’q^–t`‚_Kšwbœycžze {f¡}g¤h¨�i”lSrVMtWMvWNxXNyYN{ZN|[N~[N\O�]O‚]Oƒ^O„_O…_O†`O‡`Oˆ`O‰aPŠaP‹bP‹bPŒbP�cP�cPŽcPŽcP�dP�dP�dP�dP�dP�dP�dP�dP�eP�eP�eP�eP�eP�dP�dP�dP�dP�dP�dP�dPŽcPŽcP�cP�cPŒbP‹bP‹bPŠaP‰aOˆ`O‡`O†`O…_O„^Oƒ^O‚]O€]O\O~[N|[N{ZNyYNxXN°…j®„j¬„jªƒj¨‚j¦€jŒhSŠgS†eRƒcR|`QŒsf…oe}jcrd`k_]LCDC=@,,3(4F(4F.S….S…/S…/S…/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«…ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžChšChš¤Ö€¤Ö€¤Ö€¤Ö€¤ÖEi›Ei›Ei›€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤Ö€¤×€¤×€¤×€¤×Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|%I|%I|%I|#5H71O;3V?4iOBoSDsVF�o]{[I^Kƒ`L…bN‡dOŸ{f }g¢~h¥€j’kT•mU˜oVšqW�rWwXNxXNzYN{ZN}[N~[N\O€]O‚]Oƒ^O„^O…_O…_O†`O‡`Oˆ`O‰aO‰aPŠaP‹bP‹bPŒbPŒbPŒcP�cP�cP�cPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcPŽcP�cP�cP�cPŒcPŒbP‹bP‹bP‹bPŠaP‰aP‰aOˆ`O‡`O†_O…_O„_O„^Oƒ^O�]O€\O\N~[N|ZN{ZNyYN›oTšoT™oT—nT¬„lªƒl¨‚l�jUŒiTŠhT†fT€cS�vi‰rg�nfyidqdah^^HBD?<@)+3OZkMYk(5F(5F(5F/S…/S…/S…/S…/S…TxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Ty«Uy«†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžDhšDhšDhšChš&K}&K}&K}&K}&K}&K}ChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|&J|&J|&J|&J|&J|Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%J|%I|%I|A99N?;L:2T>4gNBlRD‡k\‹n^z[J~^L�aN…cO‡dP‰fQŠgRŒhT�jU’lV•nW˜pXšrX�sY¶‹q¸�qºŽr¼�r½�r¿�s©z[©z[ªz[«{[¬{[¬{ZÅ“rÅ’qÅ’qÅ’pÅ’pÅ‘o­yV­xV¬xU¬wT¬wTŠaPŠbP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bP‹bPŠaPŠaPŠaP‰aP‰aOˆaOˆ`O‡`O‡`O†_O…_O„^Oƒ^O‚^O‚]O�]O€\O~\N}[N|ZNzYN�pTœpU›pUšpU˜oV—oV•nV“mV‘lV�kVŒjVˆhVƒfU~cU�uj†qh~mfugdkaad\^E@D98?$(2minffm^blV^lMYk(5F(5F/S…TxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Uy«Uy«†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}ChšChšChšChšChšChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|&J|&J|&J|%J|%J|%J|%J|%J|%J|%J|Ae˜Ae˜;GY<68I=:I82Q=4XA6~fZ„j\‰m^�p`|]L€`NƒcP†eQˆgS¡j£€l¦‚m©„n•oX˜qYšrZ�t[¶Œr¸�sº�s¼�t½�t¾‘t¨z]©{]ª{]«{\«{\¬{\¬{[Ä“sÄ“rÄ’rÄ’qÄ’pÄ‘p¬yWÄ�oÃ�nÃ�mÃ�lÂŽlÂŽkÁ�kˆaOˆaOˆaOˆaOˆaOˆaOˆaOˆ`Oˆ`O‡`O‡`O‡`O†`O†_O…_O…_O„_O„^Oƒ^O‚]O�]O€]O\O~\N}[N|ZN¶‰l¶‰lµˆmœqV›qVšqV™pW˜pW–oW¬…nª…n§„n¤‚nŸ€n›~n€eW‘xlŠtk‚piykfodcf_`JDG@>C*,5$1MYk�tr~tstmolinadmX_lNZkMZkTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«ÝHlŸHlŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸ†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšChšChšChšChšChšChšChšCgšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™&J}&J}&J}Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜&J|&J|&J|&J|&J|&J|&J|&J|&J|&J|Af˜Af˜Af˜Af˜;GY;GY;GY1'!D:9N?;N;3]I?zdY€h[†l^‹oa�sc“ue€bQ„dR‡fT l¢�m¦ƒn©…o«‡p®ˆq±Šr³‹sžv] w]¹�u»�u¼‘u¾‘u¿’v¨{^©{^ª|^«|]«|]«{\¬{\¬{[¬{[¬zZ«zZ«yY«yX«xXÂ�oÂ�nÂ�nÁŽmÁŽm¨uT¨uS§tS§tS§tR¦sR¦sQ…_O…_O…_O„^O„^Oƒ^Oƒ^O‚^O‚]O�]O€]O¢rS¡rS¡rS¸‰k·‰l·‰l¶‰m¶‰mµ‰m´‰n³‰n›qWšqX™qX®‡o­‡o«†p¨…p¤ƒp �pœp—}o{cXv`Vp]U}nishfhaba\_DAF::B$)4
MYkMYkMYkŒtc�tq\QPPIKFDI;>H/8GMZkTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸHmŸHmŸImŸImŸImŸImŸImŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšChšChšChšChšChšChšChšChšCgšCgš&K}&K}&K}&K}&J}&J}Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜&J|&J|&J|&J|&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;GY;GY;GY;GY;,#I=:H82YF?^JA|e[‚j]ˆn`Œqc�te”wg—yiš|k�~l €n£‚o¤ƒp¦…q­‰s°Šs›u]žv^Ÿw^¡x_£y_¤z_¥z_¦{_¿“w¿“wÀ“vÁ“vÁ“v“u“u“tª{\ª{\ªz[ªzZªyZªyY©xXÁ�pÀ�o¨wW¨vV§vV§uU¦uU¦uT¥tT½Œl¼‹k¼‹k¼‹k»‹k»‹kºŠk¢sT¢rT¢rT¡rT¡rT¡rU rU rV·Šn¶ŠnµŠnµŠo´Šo³‰o²‰p±‰p™qY®ˆq¬‡qª†r§…r¤„r ‚rœ€q€gZ{dYvaXp^WiYU`TRVNOb]aEBH<<D36@MYkMYkMYkMYkMZk-.1W>+[NL^SQWNNKFJ?AI2:HTx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝImŸImŸImŸImŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšChš&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}CgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™Bg™Bg™Bf™Bf™Bf™&J|&J|Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;HY;HY;HY;HY;GY3("D::B41RB=YG@wcZ}g\ƒk_‡nbŒrd�ug}aR�dT„gV‡iX‰kY¢ƒq¤„r¥…s§†t‘p^’q^Ÿw` x`¢y`£z`¤za¥{a½“x¾“x¿“w¿“wÀ“wÀ“vÀ“vÀ“vÀ“uÀ’uÀ’tÀ‘sÀ‘sÀ‘r¿�r¿�q¿�q¾�p¾Žp¾Žo½Žo¥vW¼�n¼Œn»Œn»Œn»ŒnºŒnº‹m¢tV¡sV¡sV¡sV sV sWŸsWŸsXžsXµŠpµŠp´ŠpœsY›sYšrZ˜r[–r\”q\‘p]¦†t£„tŸƒsœ�s€h\{e[vbYo^XhZV`USXPQNJMECJRS[47A+((MYkMYkMYkMZk(5F(5F(5FOHJT=+YML_SRZQQMGJABI2:H/T†Uy«Uy«Uy«Uy«Uy«Uy«‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬Þ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhšDhš'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}CgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Bg™Bg™Bg™Bg™&J|&J|Bf™Bf™Bf™Bf™Bf˜Bf˜Bf˜Bf˜Bf˜;HY;HY;HY;HY;HY;HY>DM>DM;HY89<:+#9&B52I94ZHAxd[}g^�k`†nc‹rey_R}bT�eVƒgX…iYˆk[Šl\Œn]�o^¥‡v§ˆvšvaœwažxa yb¢zb¤{b¤{a¼“x½“x¦|a§|a§|`§{`§{_§{_§{^§z^¾‘u¾‘t¾‘t¾�s½�s½�r½�r¥wZ¤wZ¤vY¤vY£vY£uX¢uX¢uX¢uX¹Œp¸Œp¸Œp·Œp·‹p¶‹p¶‹pµ‹qµ‹q�tZ›t[šs\™s\˜s]–r]”r^’q^�p^�o^Šn^‡l^ƒj^h]{f\ub[n^YgZW_UTWPQOKOEEKST]JNY>=?JJIMYkMYk(5F(5F(5F(5F(5F)5G)5GK=4S<*XMLbWVYPPLGJ@AI/T†/T†Uy«Uy«Uy«‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸIm ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞIm Im Im Im Im Im Im Im ˆ¬Þˆ¬Þˆ¬Þˆ¬Þ'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Dh›Dh›Dh›Dh›DhšDhšDhšDhš'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}ChšChšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™Cg™&J|&J|&J|&J|&J|Bg™Bg™Bg™Bf™Bf™Bf™Bf™Bf˜Bf˜;HY;HY;HY;HY;HY;HYCIR>DMCIR;HYCIR.$0"8&?*G/V=+w[F{g^€kanXMs\Px_S{bU~dW�fYƒhZ†j\ˆl]Šm^¢…v§ˆwªŠx­Œy¯�y±Žz´�zµ�z·‘z¹’z£{b£{b¤{b¥{b¥{a¥{a¥{`¥{`¥z_¥z_¥z^¼‘u¥y]¤y]¤x]¤x\£w\£w[¢w[¢v[¢v[¡v[¡v[¸�r·�r¶�r¶ŒsµŒs´Œs´Œs²Œt±‹u°‹u˜t^–s_•s_“r_’r`�q`�p`¡…wž„v›‚v—€u“~twd]sb[l^ZeYW]TUUORLJOYYaRU^JOZ>>@!$)RXaMYk39B-3<-3<(5F)5G)5G)5G)5G)5GFDJK9*^K=YONg\\TLMIFJ:>I0T†0T†ImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞIm Im In In In In In In ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßIn In In In In ˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ß'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Di›Di›Dh›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}ChšChšChšChšChšCgšCgšCgšCgšCgšCg™Cg™Cg™Cg™Cg™Cg™&J}&J}&J}&J}&J|&J|&J|&J|&J|Bg™Bg™Bg™Bg™Bg™Bf™Bf™<HZ<HZ<HZ<HZ;HY;HYCIR>EM>EMCIR;HY;HYCIRCIR)6&8&@*H0I1!\B0}_JhTKjM8q[Pt]Sw`U{cW~eY�g[ƒi\…k^‡m_Ÿ…v¢†w¥ˆx¨Šyª‹z­�z¯Ž{±�{²�{³�{´�{žzdŸzd zc zc¡zc¸‘y¸‘y¸‘y¸‘x¸�x¸�x·�w·�w·�w·�wŸw_Ÿw_žw_µŽv´Žv³�v²�v²�w±�w°Œw¯Œw®Œw­‹w«‹xªŠx¨‰x¦‰x¥ˆx£‡x¡†xž…x›ƒw—�v’~vŽ|t‰ys„vrh\YcXX[TUSNRIHOUXaNS^JFE>>A')+"%(
4:C(5F(5F3:B3:B-3<-3<)5G)5G)5G)5G)5G)5GE:4O:*TKLbXWcZZPIKDCJIm Im Im Im ˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßIn In In In In In Jn Jn Jn Jn Jn ˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn ‰­ß‰­ß‰­ß‰­ßˆ­ßˆ­ßˆ­ßˆ­ß'K~'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšChšChšChšChšChšChšCgšCgšCgšCgš&K}&K}&J}&J}&J}&J}&J}&J}&J}&J}&J|&J|&J|Cg™Cg™Cg™Bg™Bg™Bg™<HZ<HZ<HZ<HZ<HZMS\CIR>EMCIRCIRCIR888DGNCJRCIRBBB(0 8&<)G0M5"X@0z^K†bFŠkUlXPp[Rs^TvaVzcX}fZg\�i]™�u›‚v�„wŸ†x¢‡y¥‰z§Šz©‹{ªŒ{•ve–ve—we˜we°�|°�|±�{²�{²�{²�{²�{²�{±�z±�z±Žz±Žz±Žz°Žy™vb˜vb—vb–ub•ub•uc”tc“tc’sb�sc�rc�qc¢‡y †y�…y›„x˜‚x•�w’w�|uˆytƒvs~sqyooslmVQTOLR[\dQU`KHHAAD:<@68; &


Z`i-4<%');AJ4:C4:C4:C-4<)5G)5G)5G)5G)6G)6G@84H8-N?5YPQmccoghd`dIn In In In In In ˆ¬ßˆ¬ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~Ei›Ei›Ei›Ei›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhšDhšChšChšChš&K}&K}&K}&K}&K}&K}&K}&K}&J}&J}&J}&J}&J}&J}&J}&J}&J}Cg™Cg™Cg™Cg™<IZ<IZ<HZ<HZ<HZ<HZ?EN?ENCJRCJRCJRCJRCJRUU\CJRCJRBDG''''''(. 9(:(B-O8'kUFt[IˆhQyic}le�og…rjˆtl‹wn�yp�zq‘|s|g]~h_€j`�ka‚la‡ob‰pcŠqdŒrd�rdŽse�te‘te’ue©Œ|©Œ|ªŒ|ªŒ|ªŒ|ªŒ|ªŒ|©Œ|’ue’ud’ud‘td�td�sdŽsd�rdŒrd‹qdŠqd‰pc‡oc„nc™ƒy–‚y“€x�~w�}wŠ{v‡yu‚vs}srxopqknkgkdbhGGOVYcPLLBCF;>B9;>68;Z`iZ`iMZk)5G4:C-4<4:C4:C-4<;BJ)5G)6G)6G)6G)6G)6GC6-L;.leg„{{ypqhbeVYcJn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­à‰­àJn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡‰­à‰­à‰­à‰­à‰­à'L~'L~'L~'L~'L~'L~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}DhšDhšDhšDhšDhš'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&J}&J}&J}&J}&J}&J}Cg™Cg™Cg™<IZ<IZ<IZ<IZ<IZ<IZ?ENDJSDJSDJS?EN?EN?EN<HZ04?'.6'.6&(+'''''',)1#7&;)M8)S;+mVG…dKseawhc{kfnh‚pj„rl†tmˆvotaZvc[wd]yf^zg_{h`|i`~ja€kb�lbƒmc„nc†od‡pd‡pdˆpdˆpdˆpeŸ‡{ˆpeˆpeˆpeˆpeˆpd†od…od„ndƒmd‚mc€lckc}jc|jbyhb�}wŠ{w‡yv„wu€ut}sryqqunpojmhfkKKRDFOD><535=AG=?D?AD<?B&(+"$'KRZTZcMZkKOVRYaSYb.4=.4=4:C.4=4:C)6G)6G)6G)6G)6G)6GWMFaRGhbe{su…}}kde_^dJn Jn Jn Jn Jn Jn Jn Jn ‰­ß‰­ß‰­ßJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®à‰®àJo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Š®àŠ®à‰®à‰®àFjœFjœFj�Fj�Fj�'L~EiœEiœEiœEiœEi›Ei›Ei›Ei›Ei›Ei›Ei›'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Dhš'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&J}&J}&J}&J}Cg™>==<IZ<IZ<IZ<IZ<IZMT\DJS?ENDJS?EN?EN?EN")1")1C5+//3(.7&),'''''''''"""
., 7(8'A1&F4(L8*oXIw]Jpdasfcvhexkg{mi~oj€qll\Xn^Yp`Zpa[qa\rb]rc^sc^sd_ue`wf`xgayhayhayhb�x�y‘y‘y‘y‘y�y�~ywgbvfateasd`qd`pc`nb_la_€ut|ssxqrunpZUXVRWROUMMSHIRIC@967-/3'+0(*-ACF?AD;=@#%(





JMPU[dSYbKPVW]fY`hSYbSYb.4=4;C4:C.4=)6G)6G)6GCPaCPaCPaFED]PGdaesmoŠ‚ƒmefb_dJn Jn Jn Jn Jn Jn Jn Jn Jn¡‰­àJn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jn¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Ko¡Š®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Š®àŠ®àFj�Fj�ƒ§Ùƒ§Ùƒ§Ùƒ§Úƒ§Úƒ§Úƒ§Úƒ¨ÚEiœEiœEiœEiœEiœEiœEi›Ei›'K~'K~'K~'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}Dh›Dh›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&K}&J}@K[=IZ<IZ<IZ<IZ<IZNT]DJS?ENDJS#)2#)2#)2#)2#)2'.6A4+028(.7'),)))######"""6$nP?
.+>1(B3)B2&F4'E4)gTGlXJs^OzcTzaPqfethgvjhbVTcWUdXVeYWfZXg[Yh\Zi]Zi][j^\€us€ususts~tt~tt}tt|st{stut~tt|sszrsyqrwpquoqsmpqloXTXTQWPOULLSSJEA<:=99757335./2113)+.'),)+.8:="(3@Q


JMPV\eT[cNZlNZlZ`iZ`iZ`iZ`iSYbY`h4;C.4=)6GCPaCPaCPaCPaCPaEQbZOGa_emhkŠƒ„nfgeaeJn¡Jn¡Jn¡Jn¡Jn¡Jn¡Š®àŠ®àŠ®àŠ®àŠ®àJo¡Jo¡Jo¡Jo¡Jo¡Jo¡Jo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Š®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡ƒ§Úƒ§Úƒ§Úƒ¨Úƒ¨Úƒ¨Úƒ¨Úƒ¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨ÚEjœEiœEiœEiœEiœ'L~'L~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K}'K}'K}'K}'K}'K}'K}Di›Di›Di›Di›Dh›Dh›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}&K}&K}&K}&K}$.>=I[=I[<IZ<IZ<IZ?FN'.6#)2#)2#)2#)2#)2#)2(.7#)2,=@<A348)/8"$'"$'######""""	kF+;(
"6*#5*">2)>0&A2'C3(I8-^OFbRHfUJjXMq^RwcVzfYfRDfQCdN@zdTqijrjksklrklrklrklqjmpjmpjmojmojmnimmimkhliflscYm`Xg\VbYT^VRE>;A<:>98:77645:873220/0,-/)+.*,/#%( &15;5BSKKKJMP]dlU[dNZlNZlZ`iTZcZaiZaiZ`iZ`iSZbŽ”�LS[V]eDPbDPbDPbDPbDPbDPbWMF^^diei®”†…rkeaeJo¡Jo¡Jo¡Jo¡Š®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Š¯áŠ¯áŠ¯áŠ¯áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡ƒ¨Úƒ¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨ÛGk�'L~'L~'L~'L~'L~'L~'K~'K~'K~'K~'K~'K~'K~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Di›Di›Di›Di›Di›'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}&K}&K}&K}&K}%/> ,>=I[=I[ ,> ,>#)2(.7#)2(.7#)2#)2#)2#)2(.7(.7(.767@D>A214$+3#%("$'###""""""&&&888888cB*}\I@!%+%!5*$:/(;0)<1*>3+@4+>1(bUKN@6OA6L=3QB8M?4_RKaTLbUMcVNcVNcVObVOaVOaUO`UO_UO^UO^TO\SOYRNWPNUOMWPKYSOWRN;63953:76755333,/2'),%(+"%(!'			"&,KXi04:JMP]_b^emU[dNZlNZlT[cU[dU[dU[d[aj�•ž�•ž�•žˆŽ—–�¥W]fDPbDPbDPbDPbDPbDPb‘nSž…w—|m¨�‚ƒqjKo¡Ko¡Ko¡Š®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨Û„¨Û„¨Û„¨Û„©Û„©Û„©Û„©ÛGk�Gk�Gk�Gk�Gk�Gk�'L~'L~'L~'L~'K~'K~'K~Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Ei›Di›Di›'K}'K}'K}'K}HlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}'K}'K}'K}'K}'K}'K}&K}*2? ->=I[=I[ ,> ,> ,>#)2#)2#)2(.7(.7#)2#)2(.7(.7(.7(.7/28:79G@A<89',4#%(#%(######""""""8888888887'vS:‹jW;)
+
&3#.$-% .% .& /&!,#,#@70A71XNHXNHWNHWNHZRLYQLYQLXQLWQLWPLUOLSNLQMKOLJMJJ0//.-.,,-&(+"(!'			15;6CT37=MMMKMP^ad_enY`hNZlNZlU\dV\eŠ‘™Š�™Š�™�–Ÿ�–Ÿ�–ž�•ž�“œ—�¦Œ’›ƒ�¡DQbDQbDQbDQbDQbMUc¤�ƒ‘ylŸ‡|€oiKo¡Š¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áKo¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢‹¯â‹¯â‹¯â‹¯âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢„¨Ú„¨Ú„¨Ú„¨Ú„¨Ú„¨Û„¨Û„¨Û„¨Û„©Û„©Û„©Û„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©ÛGkžGkžGkžGkžGkžGkžGkžGkžGkž…©Û…©Ü…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}'K}'K}'K}'K}'K}HO\=J[=J[=J[ -> ,> ,>(.7#)2#)2(.7(.7(.7#)2(.7(.7(/7(/7)/8/28114H7,99@.05&,5$&)$$$######"""(((8888888888888884"nO9„gXˆjZE/ (-"

+%' %$#" ! !$


						


48>7CU:GXJJJLLLKMPagp_enNZlLPV˜Ÿ§Œ’›Œ’›Œ’›‹’š‹‘šŠ‘™‘— �–Ÿ�–Ÿ�–Ÿ�“œ�“œ—�¦„�¢„�¢DQbDQbDQbDQbNVc…uo‡rjѼ³º«§‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áKp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢„¨Û„¨Û„¨Û„©Û„©Û„©Û„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©ÛGkžGkžGkžGlžGlžGlž…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž'K}'K}'K}'K}DhšDhšDhšIP\=J[=J[=J[=J[ -> ->(.7#)2#)2(.7(.7(.7#)2(.7(/7(/7)/8)/8)/803966:E?AC>A856,07%'*%')$$$######(((DDDBBB8888888880 cF1w]O�cS{`QS;+57'



* 															
	









	;?E7CU;HY=I[JJJMMMKMPacfbhq‘— ƒ�¡ƒ�¡‘— �“œ�“œ�“œŒ“›Œ’›Œ’›‹‘š‘— ‘— �—Ÿ™Ÿ¨�”œ�“œ�“œ„‘¢„‘¢„‘¢„‘¢EQcHScNVd´¨§¿®¨Èµ®¯�‘‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°â‹°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Œ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lp£„©Û„©Û„©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Ü…©Ü…©ÜGlžGlž…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÝHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž‡«Ý‡«ÝDhšDhšDhšDhš=J[=J[=J[=J[=J[=J[ ->(/7#)2#)2(.7(.7(.7#*2(/7)/8)/8)/8)/8)08*0903:56:88@KBB=;@348*08&(+'(*%%%$$$(((EEE(((&&&">-"bF3oXMs[Ow]Py^P�qbpXMdH5R<,Q;, &%%#'-"'-&3DS_qP\nR_p>J\?K]<AG%%%DDDACF˜š�™Ÿ¨Ÿ¦®„�¢„�¢„�¢’™¡�•žŽ•�Ž”�Ž”��“œ�“œŒ’›Œ’›’˜¡š ©™ ¨™Ÿ¨Ž”�Ž”��“œ„‘¢„‘¢„‘¢„‘¢…‘£‰“£Ž–¤¬¥§º¬¨À¯©‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Œ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãLq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Û…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜGlžGlž†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«ÝHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝDhšDhš=J[=J[=J[=J[=J[=J[=J[(/739B#)2(.7(/7(/7#*2$*3)/8)/8)/8)08*09+19(-5*.5/16437D>AG@B::@66:-29'),)'%BBBFFFEEE)))))))))&&&																					@@@FFFACFZ\_[ajagp„�¢„�¢„�¢ž¥­Ÿ¦®—�¦–�¥�–ž�•žŽ•�Ž”��”œ�“œ‘— �—Ÿ›¡ªš ©™ ¨Ž•�Ž”�Ž”�…‘£…‘£…‘£EQcGRcKTdPWd­¥§¿¯ª‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãLp£Lp£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Œ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£…©Û…©Û…©Û…©Û…©Û…©Û…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHlžHlžHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ��Ÿ>J\>J\=J[=J[=J[=J[FLU39B#*2(/7)/7)/8$*3$*3$*3)/8)08*09*09*19',5(-5*.6.17338@<=G@BH@BXW]UUXLPWFHKDFHKKKHHH+++%%%%%%$$$###!!!!!!777777777777777777777AAAFFFACFACF\^aeltbhqDQbDQbDQbŸ¥®¡§°¡§°¡§°¡§°—�¦�–Ÿ”š£”š£“™¢’™¡’˜¡‘˜ ‘— ›¡ª›¡ªš ©�•ž™Ÿ¨Ž”�ERcERcERcERcHScLUdRXd|njŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£…©Ü…©Ü…©Ü…©Ü…©Ü…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÜ†ªÜ†ªÜ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ>J\=J[=J[FLUFLU(/7(/7*08*08%+3$*3$+3$+3*09*09*19&,5&,5'-6).6*/7-18NPURRVXUVc]^f^_[X]\XYTUZLQYKMPFHJ)))(((&&&%%%%%%$$$$$$###!!!!!!!!!777777777BBBEEEACGADGFIL\ckZ`iTZcDQbDQbDQbagpbiqcircir¢©±¢¨±¡¨°¡§°•œ¤•›¤”›£”š£“™¢’™¡’˜¡œ¢«œ¢«›¡ªš¡©�•žY`hY_hERcERcERcGSdJTdNVdTYeLp¢Lp¢Œ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ãMq£Mq£�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²äMq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤Mq¤…ªÜ…ªÜ…ªÜ…ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†ªÝ†ªÝ†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«ÝHmŸ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸ�ŽŸFLUFLUFLU)/8+08+08&+3&+3%+4%+4%+4*19+1:&,5'-5'-6(.6FLTHMTINUKOVOQWSTXYWX`[^lbac]_f_\a_aY\aRX_,.1*,.*+-***((('''&&&%%%%%%$$$$$$$$$###!!!!!!!!!!!!!!!%%%%%%%%%%%%"""""""""KKKJJJFFFGIL]_b^dm\bkV]eDQbEQcEQcEQccirdjsdksektdjsdjscir£©²¢¨±¢¨±–œ¥•œ¤•›¤”›£”š£“™¢’™¡�£¬œ¢«›¢ª[ajZ`iOU^ERcERcFRdFRdITdLUdPWeVZeLp£Lq£Lq£Lq£�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²äMq£�²ä�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äMr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž†«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«ÞHmŸHmŸHmŸ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ�ŽŸ�ŽŸ�ŽŸ�ŽŸ‚Ž ‚Ž ‚Ž ‚Ž ”›£Š�™ŠŽ•-18,18',3',4',4&,4%,4+1:,2:'-5DJSEKSEKTFLTFLUHMUINVKOWLPWQSYTUZWWZpjje^`offb\_h`]eaaCCG8;A27?-/2+-/.+)******)))((('''&&&&&&%%%%%%$$$$$$$$$$$$$$$$$$######???EEEEEEEEE((((((###&&&%%%HJMHJMHJMHJM_en]dlZ`i_enEQcEQcEQcEQcbhqektflufluflufluektektdksdjscjr£©²¢©±¢¨±–œ¥•œ¤•›¤”›£”š£“™¢�£¬\ckQW`[ajZaiOU^FRdFRdFRdHSdKUdNVeRXeX\fLq£Mq£Mq£Mq£Mq£�±ã�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äMr¤Mr¤Mr¤Mr¤Mr¤Ž²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åŽ²åNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤†ªÜ†ªÜ†ªÜ†ªÜ†ªÜ†ªÜHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlž‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬ÞHmŸHmŸHmŸHmŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ‚Ž ”›£Š‘™‹�•‹�•PT[KOVJOV(-4(-4'-5'-5JOXEKSEKSEKTFLTFLTGMUGMUHNVIOWKPWLQXMRYPTZTV[\]a_^asljd^azporjkE@CLEBIEFEDG29A28A17@135,.1+-0+,/./1..0'),)))++++++++++++***FFFFFFACFACFEEEACFACFŠŒ�JLOJLOKQZ_en]clY_hU[dEQcEQcEQcEQcEQcagp[aj\bk\bkgnvgnvgmvgmvfluflueltektdksdjscjrcir¢©±—�¦–œ¥•œ¤•›¤TZcSYbRYaRXaQW`[bj[ajZ`iFSdFSdGSdJTdLVePXeTZfZ]fMq£Mq£Mq£Mq£Mq£Mq£Mq£�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Ž²åŽ²åŽ²åŽ²åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³å�³å�³å�³å�³å�³å�³å�³åNr¤Nr¤Nr¤Nr¤Nr¤�³å�³å†ªÜ†ªÜ†ªÝHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸ‡«Ý‡«Ý‡«Ý‡«Ý‡«Ý‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ­ß‚Ž ‚Ž ‚Ž ‚Ž ‚� ‚� ‚� ‚� ‚� …Œ”’•šŒ�•‘”›LPVLPWKPW‹�—‹�—‹�˜�•�‹‘™FLTFLTFLUGMUGMUHMVHNVINWIOWKPXLQYMRYNSZTX`X[a[]b]^c__ccacib`JDGi__aYYPJLD@C=;AKEDTQR@?A>>A;<A17@06?/6>/5>.4=-4<IOXHOWMS\•›¤•›¤”š£­²¹­±¸¦¬µ™Ÿ¨–œ¥QX`EQcEQcEQcEQcEQcEQc`fo[bj\bk]cl]dl^dm^dm]dlhnwhnwgnvgmvgmvfluflueltektdksdjscircir—ž¦—�¦V\eU[d_fn^emSYbRXaQX`[bjPV_OV^FSdGSdITeLVeNWeRYfW[f\^gMq£Mq£Mq£Mq£Mq¤Mq¤Mq¤Mq¤Ž²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²åŽ²åŽ²åŽ²åŽ²åNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³å�³åNs¥�³å�³å�³å�³åHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHmŸHmŸHmŸ‡«Þ‡«Þ‡«Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ¬ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ß‰­ß‚� ‚� ‚� ‚� ‚� ‚� ‚� ‚� ‚� ‹‘š”–›Ž�–Ž�–��–��—Œ�—Œ�—Œ‘˜Œ‘˜‘–ž‘—ž�’š�’š�“›�“›Ž“œŽ”œ�”��•��•žJPXJPXKQYQW_RW_SX`TY`UZaW[bZ]c\^c^_dCDHDDHTRSWQO@=BNHKbYZ^VWUNPMGJFAEgcgcaf¡ ¥¡Ÿ¥ Ÿ¥ Ÿ¥ Ÿ¥Ÿž¥Ÿž¥ŸŸ¥…‘£…‘£…‘£…‘£…‘£…‘£…‘£EQc`go[aj]cl]cl^dm^em_en_en_en_en^em^dm^dmioxhnwhnwgnvgmvgmvfluflueltektdjsdjscir˜ž§W]fagp`go`fo_enSYbRXa\ck[bj[ajFSdGSdITeKUeNWeQXfTZfY]g``gMq¤Mq¤Mr¤Mr¤Mr¤Mr¤Mr¤Mr¤Nr¤Ž²åŽ²åŽ²åŽ²åŽ²åŽ³åŽ³åŽ³åŽ³åŽ³åŽ³å�³å�³åNr¤Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥Nr¥Nr¥Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥�³å�³å�³å�³å�³å�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�³æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æOs¥Os¥�´æ�´æ�´æHlžHlžHlžHlžHlžHlžHlžHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸ‡¬Þ‡¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ­ßˆ­ßˆ­ßˆ­ßˆ­ßˆ­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‚� ‚� ‚� ‚� ‚� ‚� ‚� ‚� ƒ�¡ƒ�¡‘’–PRWOQWTW\Ž‘—Ž‘˜”—žŽ’˜Ž’™“—ž“˜Ÿ“˜ŸŽ“›Ž“›�”œ�”œ�•��•��•ž�–ž‘–Ÿ‘—Ÿ’— —�¥—�¦™ž¦™Ÿ§šŸ§› ¨œ¡¨œ¡©�¢©Ÿ£ª`dkbek^af_ag`bgabgiko_en^emhnw·´¶«§¨¶±± ¦¯ ¦¯ ¦¯ ¦¯”š£”š£¡¨°¤«³§­¶©¯¸©¯¸ž¤­ž¥­Ÿ¥® ¦¯`fo`fo`fo`fo`fo`fo`fo_fn_fn_en_en^em^dm^dmioxhowhnwgnvgmvgmvflufluektekt¥«´™Ÿ¨£©²£©²ahpagp`foTZcSYbRYa\ck\bkPV_GSeITeKUeMWePXfSZfW[f\^gdbhMr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤�³å�³å�³å�³å�³å�³å�³å�³å�³åNr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æOs¥Os¥Os¥Os¥Os¥�´æ�´æHlžHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHlŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸImŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßƒ�¡ƒ�¡ƒ�¡ƒ�¡ƒ�¡ƒ�¡ƒ�¡CPaCPaOVbRSWQRWPRWUW]•˜ž•˜ž•˜Ÿ•™Ÿ”˜Ÿ•™ •™ •™¡�•œ�•œ�•��–�‘–ž‘–ž‘—Ÿ‘—Ÿ’— —�¥˜�¦˜ž¦˜ž¦™ž§™Ÿ§™Ÿ§š ¨› ¨›¡©š ©š ©U[dU\dW]eW]eX]eV\e–œ¥–œ¥–œ¥¡§°¡§°¬²»¬²»¬²»¬²»¬²»¬²»¬²»¬²»¬³»¬³»­³¼­³¼¡¨°¡¨°¡¨°¡¨°¡¨°agpagp`go`go`fo`fo`fo`fo_fn_en_en^em^dmioxioxhowhnwgnvgmvgmv§­¶¦¬µ¦¬µš ©¤«³¤ª³£©²¢¨±¡¨°`foTZcSZbRYaQX`\bkGSeITeKUeMWfPXfSYfV[gZ]g_`hNr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¤Nr¥Nr¥�³å�³å�³å�³å�³å�³æNs¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æOs¦Os¦Os¦Os¦Os¦Os¦Os¦Os¦Os¦HlŸHlŸHlŸHlŸHlŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬Þˆ¬Þˆ¬Þˆ¬ÞImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸIm Im Im Im ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­à€€ƒ�¡ƒ�¡ƒ�¡CPaCPaCPaCPaCPaQWcYY\XX\RSXWX]bdi—™Ÿ—™Ÿ—š ¢¥«¢¥¬–š¡–š¡–›¢—›¢’–ž’—ž’—Ÿ’—Ÿ’˜ “˜ ˜�¥˜ž¦˜ž¦˜ž§™Ÿ§™Ÿ§™Ÿ¨™Ÿ¨™ ¨š ¨š ¨š ©š ©•›¤U[dU[dU[d•œ¤•›¤•›¤•›¤•›¤”›£¡¨°¢¨±­³¼­³¼­³¼­³¼­³¼­³¼­³¼­³¼­³¼­³¼­³¼¢¨±¢¨±¢¨±¢¨±¢¨±¡¨°agpagpagp`go`go`fo`fo`fo_fn_en_en_enipxioxioxhowhnw¨®·¨®·œ¢«›¢ª›¡ªš ©¥«´¤ª³£©²¢©±¡¨°¡§°TZcSYbRYa\ck\bjIUeKVeMWfOXfRYfU[gX\g\^gcbhNr¤Nr¤Nr¤Nr¤Nr¥Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥Ns¥Ns¥Os¥�´æ�´æOs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦Os¦Os¦Os¦Os¦Os¦Os¦Ot¦Ot¦�´ç�´ç�´ç�µç�µç�µç�µç�µç�µç�µç�µç�µç�µç�µç�µç�µçPt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦\ÀHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸHmŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸIm Im Im Im Im Im Im Im Im Im ‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰­à‰®à‰®à‰®àƒ�¡ƒ�¡ƒ�¡KQZFLUFMUCPaCPaCPaCPaSXcRWcddgddhddiceicej˜š ˜› £¦¬£¦¬£§­¤§®¤§®˜œ£˜œ£“˜Ÿ“˜Ÿ“˜ ”™ ”™¡™ž¦™Ÿ§™Ÿ§™Ÿ§™Ÿ§™Ÿ¨™Ÿ¨š ¨š ¨š ©š ©š ©š ©š ©U[d•›¤•›¤•›¤•›¤•›¤”›£¡§°¡§°¡¨°­³¼­³¼­³¼­³¼­³¼­´¼­´¼­´¼­´¼­´¼­´¼­´¼¢¨±¢¨±¢¨±¢¨±¢¨±¢¨±¢¨±¢¨±agpagpagp`go`fo`fo`fo_fn_en_enjpyipxiox©°¸©¯¸�¤¬�£¬œ£«œ¢«›¡ªš¡©¥«´¤ª³£ª²¢©±¢¨±–œ¥•›¤SYbRXa]ckIUeKVfMWfOXfQYfT[gX\g[^h_`hgdiNr¥Nr¥Ns¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥�´æOs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦Os¦Os¦Os¦Os¦Ot¦Ot¦Ot¦Ot¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µçPt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦\ÀHmŸHmŸHmŸHmŸHmŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ¬ßˆ¬ßˆ­ßImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸIm Im Im Im Im Im Im Im Im Im In In In In In In In ‰­à‰®à‰®à‰®à‰®à‰®à‰®à‰®àŠ®àŠ®àƒ�¡CPaCPaKQZFMUKRZKRZCPaCPaCPaCPaUYcTXcRWceeheeieeiefjefkšœ¡¥§¬¥§­¥¨®¥¨®¥©¯¦©¯¦©°¦ª±›Ÿ¦›Ÿ§•š¡šŸ§šŸ§› §› ¨› ¨› ¨› ¨› ©› ©š ©š ©š ©š¡©Z`iZ`iZ`iU[d ¦¯ ¦¯ §¯¡§°¡§°¡§°¡¨°­³¼­³¼­³¼­³¼­³¼­´¼­´¼­´¼®´½®´½®´½®´½®´½®´½¢©±¢©±¢©±¢¨±¢¨±¢¨±¢¨±¢¨±agpagpagp`go`fo`fo`fo_fn_enjpyª±¹ª°¹ž¥­ž¤­ž¤­�£¬�£¬œ¢«›¢ª›¡ª¥«´¤ª³£ª²£©²¢¨±¡§° ¦¯”š£“™¢JUfKVfMWfOXfRYgTZgW\g[^h^`hcbijfiNs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥�´æ�´æ�´æ�´ç�´çOs¦Os¦Os¦Ot¦Ot¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦‘µç‘µç‘µè‘µè‘µè‘µè‘µè‘µè‘µèPt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pt§\À\ÀImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ­ßˆ­ßˆ­ßˆ­ßˆ­ß‰­ßImŸImŸImŸImŸImŸIm Im Im Im Im Im Im Im Im Im In In In In In In In In In In In In Jn Jn ‰®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àCPaCPaT[cKQZFMUKRZKRZLR[GMV@BDCPaDPbWZcVYcTXcSXcgfi\[_ggjggkfgl§¨­§¨­§©®§©¯§ª¯§ª°§ª±§«±¨«²�¡§�¡¨¨¬³¨­´¨­´¨­µ©®µ©®¶©®¶©¯·©¯·©¯·ª¯¸ioxioxipxjpyjpyjqy`fo §¯¡§°¡§°¡§°¡¨°­³¼­³¼­³¼­´¼­´¼­´¼®´½®´½®´½®´½®´½®´½®´½®´½®´½£©²£©²£©²£©²¢©±¢©±¢©±¢¨±¢¨±agpagpagp`go`fo`fo §¯ ¦¯«±ºŸ¦®Ÿ¥®Ÿ¥®ž¤­ž¤­�¤¬�£¬œ¢«›¢ª¦¬µ¥«´¤«³£ª²¢©±¡¨° §¯”›£”š¢‹–§�—§NWfPXgRYgT[gW\gZ]h^_hbaigdimgjOs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦�´ç�µç�µç�µç�µç�µç‘µç‘µç‘µçPt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt§Pt§Pt§Pt§Pt§Pt§Pt§Pu§Pu§Pu§Pu§’¶è’¶è’¶è’¶è’¶èPu§Pu§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§\À\ÀImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸˆ­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßIm Im Im Im Im Im Im Im In In In In In In In In In In In In In Jn Jn Jn Jn Jn Jn Jn Jn Š®àŠ®àŠ®àŠ®àJn Jn CPaCPaU[dKRZGMVLR[LR[LR[GMVGNVHNWDPbDPbY[dWZdVZdUYcTYchgi]\_hhkhhl]^b©©®©ª¯©ª¯©«°©«±©¬±©¬²©¬³ª­³ª­´ª®´ª®µª®µª®¶ª¯¶ª¯¶ª¯·ª°·jowjpxjpxjpxjpyjpykqykqzkqzkqz`fo¡§°¡¨°¢¨±­³¼­³¼­´¼­´¼®´½®´½®´½®´½®´½®´½®´½®´½®µ½®µ½®µ½®µ½®´½£©²£©²£©²£©²£©²£©²¢©±¢©±¢¨±agpagpagp¡¨°¡§°¬²»¬²» ¦¯ ¦¯Ÿ¦®Ÿ¥®ž¥­ž¤­�¤¬�£¬œ¢«›¢ª¦¬µ¥«´¤ª³˜ž§—�¦¡¨° §¯¡¦®Œ—§�˜§�™¨‘™¨RZgU[gW\hZ^h]_haaiecijfjOs¥Os¥Os¥Os¦Os¦Os¦Os¦Ot¦Ot¦‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µçPt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt§Pt§Pt§Pt§Pt§Pt§Pu§Pu§Pu§Pu§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§’¶è’¶èQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§\À\À\ÀImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ßIm Im In In In In In In In In In In In In In Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Š®àJn Jn Jn CPaCPaCPaKRZV\eGMVLR[LR[LR[GNVHNWHOWIOXIOXDPb[\dZ[dX[dWZdVZdUYd_]__]`jil_^b__c  ¤««°«¬°«¬±«­²«­³«®³ £© £© ¤ª¬¯µ¬¯¶¬°¶¬°·¬°·lpwlpwlpxlqxlqylqylqylqylqzlrzlrzlr{lr{agp­³¼­³¼­´¼®´½®´½®´½®´½®´½®µ½®µ½®µ½®µ½¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾£ª²£©²£©²£©²£©²£©²£©²¢©±¢©±¢¨±¢¨±¢¨±­³¼¬³»¬²»¬²»«²º ¦¯Ÿ¦®Ÿ¥®ž¥­ž¤­�£¬�£¬œ¢«›¡ª¥¬´™ ¨˜Ÿ§˜ž§¢¨±¡§°¢§¯�—¨Ž˜¨�™¨‘š¨“›¨–œ©W\hZ^h]_i`aidciiejmgjOs¦Ot¦Ot¦Ot¦Ot¦Pt¦Pt¦‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è‘¶èPt§Pu§Pu§Pu§Pu§Pu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§’·éQu§Qu§Qu§Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨\À\À\ÀImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸImŸ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­àIn In In In In In In In Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Š®áŠ®áJn Jn AFLCPaDPbLR[LR[V]eLR[LR[LS[HNWHOWIOXIPXJPYKQZBFL^]d\]d[\dY[dX[dWZdVZd`^``_akjma`ca`d¡¡¥­­±­­²­®²­®³­¯´¢¤©¢¤ª¢¥ª¢¥«­°·mpvmpwmqwmqxmqxmqxmrymrymrymrzmrzmrzmr{ms{ms{ms{ahpms|®´½®´½®´½®´½®µ½®µ½¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾£ª²£ª²£ª²£©²£©²£©²£©²ahpagplr{­³¼­³¼¬³»¬²»¬²»«²º ¦¯Ÿ¥®Ÿ¥®ž¤­ž¤­�£¬œ£«œ¢«¦¬µš ©™Ÿ¨˜ž§¢©±—�¥£¨°�˜¨�™¨�š¨’›©”œ©–�©™ž©›Ÿªž¡ª`aiccihejlgjpikPt¦Pt¦Pt¦Pt¦Pt¦‘µç‘µè‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶èQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨“·é“·é“·é“·éQv¨Qv¨Qv¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨\À\À\À\ÀImŸImŸImŸImŸImŸImŸImŸIm Im ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰­à‰®à‰®à‰®à‰®àIn In In Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Š®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áJn DPbDPbLR[LR[W]fLR[LS[MS\HNWIOXIPXJPYKQZLR[PRUQSVDQb^^e]]e\]eZ\dY[dX[dWZdb_ab`bb`cbad£¢¥££¦®®²¯¯³¯¯´¤¥©¤¥ª¤¦ª¤¦«cekcfkoqwoqworxorxoryoryosyoszoszoszns{ns{ns{ns{chpchqchqchqnt|®µ½®µ½¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¤ª³£ª²£ª²£©²£©²bhqms|ms|ls{lr{lr{­³¼¬³»¬²»¬²»«±ºŸ¦®Ÿ¥®ž¥­ž¤­�£¬�£¬œ¢«¦­µš¡©™ ¨™Ÿ¨˜ž§˜ž¦�˜¨Ž˜¨�™¨‘š©“›©•œ©—�©™žª›Ÿªž¡ª¡¢«¥¤«gejlgkohkPt¦Pt¦Pt¦Pt¦‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’¶é’·é’·éQu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨“·é“·ê“·ê“·ê“·ê“·ê“·ê“·êRv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨\À\À\À\À\ÀIm Im Im Im Im Im ‰­ß‰­ß‰­ß‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰­à‰®à‰®à‰®à‰®à‰®à‰®à‰®àŠ®àŠ®àŠ®àŠ®àJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Š¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á„‘¢DPbDPbV\eW]fLR[GNVHNWHOWIOXJPYQW`RXaSYbRYaTUXTUXBFLa_e`^e^^e]]e\]eZ\eY[eX[dW[dnlmomndbd¥£¦¥¤§¥¥¨±°´¦¦©eeiefjefkefkegleglegmpsxpsypsypszptzptzpt{pt{pt{pt{pt|diqdiqdiqdiqdiqdiqot}¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯¶¾¯¶¾¯¶¾¯¶¾¯¶¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾£ª²bhqbhqms|ms|ms|ls{lr{lr{krzkqzkqz¬²»«²º«±ºŸ¥®Ÿ¥®ž¤­�¤¬¨®·§®¶§­¶›¡ªš ©™Ÿ¨™Ÿ§™ž¦Ž˜¨�™©�š©’›©”œ©–�©˜žªšŸªœ ªŸ¡«¢£«¥¤«¨¦¬¬¨¬nhkqjkPt¦Pt§’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·éQv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸êRv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©Rv©\À\À\À\À\ÀIm Im Im ‰­ß‰­ß‰­ß‰­à‰­à‰­à‰­à‰­à‰®à‰®à‰®à‰®à‰®à‰®à‰®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Š¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á„‘¢„‘¢„‘¢U\dV]eLS[HNWHNWIOXOU^JQYQW`RYaTZcagpacfmjiflugnvaVPb`ea_e_^e^^e]]e[]eZ\eZ\eY[epmnpnoece¦¥§§¥¨fehffigfjggjggkgglghlghmghmghnrtyrtzrtzrtzru{ru{ru{qu{fjpfjqfjqejqejqejqejqejrdjrou}°¶¾¯µ¾¯µ¾¯¶¾¯¶¾¯¶¾¯¶¾¯¶¾¯¶¾¯¶¾¯¶¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾mt|bhqms|ms|ms|ls{ls{lr{lr{krzkqzkqzjqyjpy«±ºŸ¥®Ÿ¥®ž¤­©¯¸¨®·§®¶§­¶›¡ªš ©¥«³šŸ§�˜¨�™©�š©‘š©“›©•œª—�ª™žª›Ÿª� «Ÿ¢«¢£«¥¥¬©¦¬¬¨¬¯ª­²«­Pu§’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“·êRv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©Rv©Rv©”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ëSw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©\À\À\À\À\À\À‰­à‰­à‰­à‰­à‰®à‰®à‰®à‰®à‰®à‰®à‰®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àJn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn Jn ‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á„‘¢„‘¢…‘£…‘£LR[GNVHNWHNWIOXOU^[ajRXaSYbU[dahpcirektgmvioxjpyBGMbWPc`fb`f`_e_^e^^e]]e\]e[\eZ\eY[erop³°²gegsqssqtsruhgjhhkhhlhhlhimhimhinhjnhjosuzsu{su{sv{hjphkqgkqgkqgkqgkqgkqfkrfkrfjrfjrejrpu}±·¾±¶¾±¶¾°¶¾°¶¾°¶¾¯¶¾¯¶¾¯µ¾¯µ¾¯µ¾¯µ¾¯µ¾mt|bhqbhqbhqms|ls{ls{lr{lr{krzkqzkqzjqyjpyjpyioxioxž¥­©¯¸©¯¸¨®·§®¶§­¶¦¬µ¦¬´¦«³›Ÿ§Ž™©�š©‘š©“›©”œª–�ª—žª™Ÿªœ «ž¡« ¢«£¤¬¥¥¬©§¬¬¨­¯ª­±«­sklQu§Qu§’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“¸ê“¸ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸êRv©Rv©Rv©Rv©Rv©Rw©Rw©Rw©Rw©Rw©Rw©”¸ë”¸ë”¸ë”¸ë”¹ë”¹ë”¹ë”¹ë”¹ë”¹ë”¹ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ëSw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©\À\À\À\À\À\À‰®à‰®à‰®à‰®à‰®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áJn Jn Jn Jn Jn Jn Jn Jn Jn Jn¡Jn¡‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â…‘£…‘£…‘£…‘£—ž¦HNWHNWIOXOU^\bk]cl^emU\dbhqdjsfluhnwipxkqzlr{ahpeXPdWPdafc`fa`f`_f__f^^e]^e�ž¦œž¦›�¦´±±µ±²ifgtrsurtusuutvjiljiljimjjmjjnjjnjkojkojkpikpikpikpikqikqikqhkqhkqhkqhkrgkrgkrgkrgkrfkrqv}²·¾²·¾²·¾±¶¾±¶¾°¶¾¯µ¾¯µ¾¯µ¾¯µ¾bhqbhqbhqahpahpagpagplr{lr{krzkqzkqzjqyjpyjpyioxiox]cl\ckgnv¨¯·¨®·§­¶¦­µ›¡©¦¬´§¬³Ž™©�š©‘š©’›ª”œª•�ª—žª™žªšŸ«œ «Ÿ¢«¡£¬¤¤¬¦¦¬©§­­©­°ª­pjlrklulmQu§Qu§Qu§“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“¸ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ëRw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ëSwªSwªSwªSxªSxªSxªSxªSxªSxªSxª\À\À\À\À\À\À\ÀŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áJn Jn Jn Jn¡Jn¡Jn¡Jn¡‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹°â…‘£…‘£…‘£…’£…’£Ž”�‰�˜NT]OV^[bj]cl_enagpX^gdksfmuhnwjpykrzagpbhqahphZQfYQgcfebfdafc`fb`f¢¡§¡ §ŸŸ§žŸ§�ž§�ž§œž§«§¨jghkgivsuvtvvtwvuwkjmkjmkknkknkkovwzvw{vw{vw{klpjlqjlqjlqjlqilqilqilqhkrhkrhkrhkrgkrgkrfkr³·¾²·¾²·¾²¶¾±¶¾¯µ¾bhqbhqahpahpbhpagpagp`go`go`fokqzkqzjqyjpyjpyipxioxiox]cl\ck\bk[bjfmuflu§­¶›¡ª›¡©�™©Ž™©�š©‘šª’›ª“œª•�ª—žª˜ž«šŸ«œ «ž¡« ¢¬¢¤¬¥¥¬§¦­ª¨­­©­nilpjlrklulmQu§Qu¨Qu¨Qu¨Qv¨“·é“·ê“·ê“¸ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¸ë”¸ë”¹ë”¹ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ëSw©Sw©Sw©Sw©Sw©Sw©•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•¹ì•¹ì•¹ì•¹ì•¹ì•ºì•ºì•ºì•ºì•ºì•ºì•ºì•ºì•ºì•ºì•ºìTxªTxªTxªTxªTxªTxªTxªTxª\À\À\À\À\À\À\ÀŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áJn¡Jn¡Jn¡Jn¡‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°â†’£‡’£‡“£…’£…’£‰�˜™ ¨š¡©[aj]cl_enagpX^gZ`i\bkioxjqylr{ahpbhqahpagp_fnj[QiZQhcg¨¤¨§£¨¥¢§¤¢§£¡§¢¡§¡ §  §ŸŸ§žŸ§�Ÿ§�ž§kghlhiwtuxuvxuwxvxxvxmkmxwyxwzxwzxw{ww{ww{ww{wx|klqklqklqjlqjlqjlqjlqilqikqhkqhkqhkqgkqgjq³·¾³·¾§«²eiqeipdipdipchpchpbhobgoagoafo_en_en_enjpyipxioxiox]cl]cl\bk\bk[aj[ajfluZ`iY_hZ_h�™©Ž™©�šª‘›ª’›ª“œª•�ª–�«˜ž«™Ÿ«› «�¡¬Ÿ¢¬¡£¬£¤­¦¦­©§­«©®lhlnilpjlrkmtlmwnmQv¨Qv¨Rv¨Rv¨Rv¨Rv¨Rv¨”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¸ë”¹ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ìSxªSxª•¹ì•ºì•ºì•ºì•ºì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºìTxªTxªTxªTxªTxªTxªTxª\À\À\À\À\À\À\À\ÀŠ®àŠ®àŠ®àŠ®áŠ®áŠ®áŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áJo¡‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âŒ°âŒ°â…’£‰”¤‰”¤‰”¤‰”¤…’£…’£š ©›¢ªQX`_emagpY_gZai\bk^dm`folr{ahpahpchpbgolqyhnwl\Q®�“­�“«¥¨ª¥¨¨¤¨§£¨¦£¨¥¢¨£¢¨£¡¨¢¡¨¡ ¨  §Ÿ §žŸ§\]fmiimijmjknjknklnkmnkmywyywzywzyx{xx{xx{xx{xx{wx|llpklpklqklqjlqjlqjkqikqikqhkpsv|sv|su|ru{fipfipeipeiodhodhocgocgnbgnbfnafn^dm^dm]dliox]cl^cl]ck]bk\bj[aj[aifltektY_hX_gIVgMXhNXh‘›ª’›ª”œª•�«–ž«˜ž«™Ÿ«› «�¡¬Ÿ¢¬¡£¬£¤­¥¥­¨§®«©®lhmojmqjmpjmskmtlmvmmRv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©”¸ê”¸ë”¸ë”¸ë”¹ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•¹ì•¹ì•ºì•ºì•ºì•ºì•ºì–ºìTxª–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–ºí–ºí–ºí–ºí–ºí–ºí–»í–»í–»í–»í–»í–»í–»í–»íTy«Ty«Ty«Ty«Ty«\À\À\À\À\À\À\À\ÀŠ®áŠ®áŠ®áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯áJo¡Jo¡Jo¡‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°â‹•¤Œ•¤Œ•¤‹•¤‹•¤†’¤†’¤›¡ª�£¬—œ£choZ_g\ai^dk^dm`folr{ls{agpdipchomqx­±·š ©Ÿ¢¨³ ”±Ÿ”­§©¬¦©«¦¨ª¥¨©¤¨§¤¨¦£¨¥£¨¤¢¨£¢¨¢¡¨¢¡¨¡¡¨  ¨]^f]^f\^fzvvzvwoklokmolmolnnlnzxzzxzyxzyx{yx{xx{xx{xx{llpllpklpklpvw{uw{uv{tv{tv{µ·¼µ·¼´¶¼ruzfiofhnehnehndgncgmcgmbfmbfmaellpxlpwkpwkov^cj^cj]bj]bihmugltgltfksKWhKWhOYhPYhQZhR[iS[iU\i˜ž«™Ÿ«š «œ¡¬�¡¬ £¬¢¤­¤¥­¦¦®©¨®«©¯limojmrknslmtlmrkmvmmvmnyonRv¨Rv¨Rv¨Rv©Rv©Rv©Rw©Rw©Rw©Rw©”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•¹ì•¹ì•ºì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºìTxªTxªTxªTxªTxª–ºí–ºí–ºí–ºí–ºí–»í–»í–»í–»í–»í–»í–»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»íUy«Uy«Uy«Uy«\À\À\À\À\À\À\À\À\ÀŠ¯áŠ¯áŠ¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯âJo¡Jo¡Jo¡Jo¡Jo¡‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°â†’¤Ž–¤Ž–¤Ž–¥Ž–¥�–¥�–¥†’¤†’¤™œ¢›ž¥�¡§^bi`dkbfmdhokrzlr{lr{qt{psy°³¹®±·¡£©°¯³�˜¦µ¢”º¤–¹¤–¯¨©®§©­§©¬¦©ª¥©©¥©¨¤©§¤©¦£©¥£©¤¢¨£¢¨¢¢¨¡¡¨__g^_g^_g]^g{vv{ww{wxolmolmolmolnzxzzxzzxzyxzyxzmlomlollolkowwzvwzvvz·¸¼··¼¶·¼¶·»µ¶»µ¶»´¶»rtyqsyegmegmdglorxoqwnqwmqwmpvlpvlovkouknu_bijntimtimthlsNXhNXhPZhQZhR[iS[iT\iU\iW]iX^jY^j[_jž¢¬ £¬¡£­£¤­¥¦­¨§®ª©¯­ª¯njnpkorlotmnumnvmnvnnwnnxnnyonRv©Rv©Rw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©•¹ë•¹ë•¹ë•¹ì•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºíTx«Tx«Tx«Ty«Ty«Ty«Ty«Ty«—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»î—»î—»î—»î—»î—»î—»î—»î—»î—»î—»î—»î—¼îUy¬Uy¬\À\À\À\À\À\À\À\À\À‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹¯âJo¡Jo¡Jo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Œ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ã�—¥�˜¥�˜¥�˜¥�˜¥�—¥�—¥�—¥Ž—¥œž¤ž¡¦¬®´®±¶dglfhnru{krzsu{rtz§©®¥§¬£¥ª­®³¥£¥œž§“™¦¹¤•Âª™Ä¬›Â©˜±©ª°¨ª¯¨ª­§ª¬§ª«¦ªª¦©©¥©¨¥©§¤©¦¤©¥£©¤£©baga`g``g``g__g^_g]_gpkkpklpll{wx{wx{wyzwynlmnlnnlnmknmknlknlkn­¬¯¬¬¯¸·»··º··º¶¶ºµ¶ºµµº´µ¹¨©®fglegkefkdfkoqvoqvnpunpumoumou`ci`bh_bh_bhPYhPYhQZhRZiS[iT[iU\iV]iW]iX^jY^jZ_j[_j\`j^ak`bkack¥¦­§§®©¨®«©¯®«°okormpunpvopwoownoxnnxonyonzon{pn{poRw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxª•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–ºí–»í–»í–»í–»í—»íTy«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«—»í—»í—»î—»î—»î—»î—»î—¼î—¼î—¼î—¼î—¼î—¼î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼îVz¬\À\À\À\À\À\À\À\À\À\À‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Œ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã‘˜¥“™¥“™¥’™¥’™¥’™¥‘˜¥‘˜¥‘˜¥‘˜¥¢£¨¯±µ²³¸rtyhjotv{µ·¼©ª¯¨©­±²·¯°´¢¢¦š�§ŸŸ§£¢¨§¤¨—›§È®›Ï³ Ï³ŸÇ«—³ªª²©ª°©ª¯©«¯¨«®¨«­§«¬§ªª¦ª©¥ª¨¥ª§¤ª¦¤ªdbhcbhbahaaha`h``h_`g__g^_g]_gokkokk{wxzwxzwxzwxyvxmjl®¬®®¬®­«®¸·¹¸·¹·¶¹·¶¹«ª­ª©­©©¬©©¬¨¨¬¨¨¬efjeeideioptoptnotbchachabgS[hS[hS[iT[iU\iU\iV\iW]iW]iX^jY^jZ_j[_j\`j]aj_ak`bkbckcdkeelgfligm­«°°¬±qlptoqwpryqrzqqzppzppzpozpo{po|po|qo|qoSw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxª–ºì–ºì–ºì–ºí–ºí–ºí–»í–»í–»í–»í—»í—»í—»í—»í—»í—»íUy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uy¬Uz¬˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï\À\À\À\À\À\À\À\À\À\À‹¯á‹¯á‹¯á‹¯â‹¯â‹¯â‹¯â‹¯â‹¯â‹°â‹°â‹°â‹°â‹°â‹°â‹°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Œ°âŒ°âŒ°âŒ°ãŒ°ãŒ°ãŒ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ãŒ‡„”š¦•š¦•š¦•š¦”š¦”š¦“š¦“™¦“™¦“™¦“™¦²³·µµ¹««¯«¬°«¬°¶¶º¨©¬²²¶¤¤§²°±�Ÿ§¢¡¨¦£¨ª¥©¯¨ªµ««Í±�Òµ Ò³žÐ°šµ««´««´««³««²ª¬±ª¬±ª¬°ª¬®©¬­¨¬¬§««§«ª¦«©¦«fciechdbhcbhbahbahaahaah``h_`h_`h^_h]_hzvvzvv»·¸¯«¬®«¬®«¬­«¬¹¶¸¸¶¸¸¶¸·µ··µ·¶´·ª¨«©¨«¨§ª´³¶³³¶qptppsV\iV\iV\iU\iU\iV\iV]iW]iX]iX^iY^jZ_jZ_j[_j\`j]`j^aj_ak`bkbckcckddkeelgfligmkinnjoqlp¶°³wpszst}tu~tt}ss}rr|rq|qp}qo}qo~qo~ro~roSw©Sw©Sw©SwªSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTxªTx«–»í–»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»í—»îUy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uy¬Uz¬Uz¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬˜¼î˜¼î˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜¼ï˜½ï˜½ï˜½ï˜½ï˜½ï˜½ï˜½ï˜½ï˜½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï\À\À\À\À\À\À\À\À\À\À\À\À‹¯â‹°â‹°â‹°â‹°â‹°â‹°â‹°â‹°âŒ°âŒ°âŒ°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Œ°ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ãŒ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã”š¦–›¦—›¦—›¦—›¦–›¦–›¦–›¦–›¦•›¦•›¦•›¦TYeSYekjmvvy·¶¹ª©¬³²µ¥£¦œž§  ¨¥£¨©¥©­§©²ªªº¯®Å¸µÄ¬›Ò³œÒ±™Ò±˜Ñ°˜·¬«¶¬«¶¬¬µ¬­µ­­µ­®´­®³­¯²¬®±«®°«®¯ª­­©­¬¨¬iejhejfdieciecidbicbicbhbahaahaah¢¢ª¡¢ª¡¢ª ¢ª ¢ª ¡ªŸ¡ªŸ¡ªž¡ªž¡ªž¡ª�¡«� «� «œ «œ «œ «› «› «› «Y^iX^iY^iY^iY^iZ^iZ_i[_j\_j\`j]`j^aj^aj_aj`bkabkbckcdkddkfelgflhfljgmkhmnjnplo¶°³º³µ½¶·À¸¹Â¹º‚xx‚wv�vu€ustrsqrprpsp€sp€sp€spSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«—»í—»í—»í—»î—»î—»î—¼î—¼î—¼î—¼îUy¬Uy¬Uz¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ï\À\À\À\À\À\À\À\À\À\À\À\À\À‹°â‹°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Œ±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã—›¦˜œ¦™œ¦™œ¦™œ§™œ§˜œ§˜œ§˜œ§˜œ§VZeVZeVZeVZeVZeVZeVZe˜œ§˜œ§Ÿ ¨£¢¨§¤©¬¦©°¨ª¶¬«¿³°Ì¾¹ÛÊÄ¢—�Ò±™Ô¬�ή˜Ñ°˜¶£•¸­¬¸­¬¸®­¸®®¸¯¯¸°°¸°±¸°²·°²¶°²µ¯²´®±²­°°¬¯milkgljfkhejgejfdjfdieci¦¥«¥¤«¤¤«¤¤«¤¤«££«££«¢£«¢£«¡£«¡¢« ¢« ¢« ¢«Ÿ¢«Ÿ¢«Ÿ¢«ž¡«ž¡«ž¡«ž¡«ž¡«Ÿ¢¬]`j]`j^`j^aj^aj_aj`aj`bjabkbckcckcdkddkedkfelgflifljglkhmmimnjnpkosmp¹²µ½¶·Á¹ºÅ¼¼È¾¾Ê¿¾É¾½È½»Ç»¹ƒwu‚us�tr�tq�tp�tp‚tp‚tp‚tpSxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼îUz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­Vz­Vz­V{­V{­V{­V{­V{­W{­W{­™½ï™½ï™½ï™½ð™½ð™½ð™½ð™½ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ð™¾ðš¾ðš¾ðš¾ð\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŒ°âŒ°âŒ°âŒ°âŒ°âŒ°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä™œ§š�§›�§›�§›�§›�§›�§Y\eY\eX\eX\eX\fX\fX\fX\fX\fY\fY\f¡¡¨¦£©ª¦©®¨ª³ªªº¯­Å·´ÓþâÏÈäÏÅÜźֲ˜Åª—ɬ—Ì®˜Ù²”¿¨™¹®¬¹®­º¯­º°¯»±±¼³³½´´½µ¶½¶·½¶·¼µ·º´¶¹³µ·±´rmqpkoojnmimkhl¬©®«¨­ª§¬©¦¬¨¦¬§¥¬¦¥¬¦¥¬¥¥«¥¤«¤¤«¤¤«£¤«£¤«££¬¢£¬¢£¬¢£¬¡£¬¡£¬ £¬ £¬¢¤¬£¤¬£¤¬¤¤¬bcjbckcckcckddkedkeekfekgelhflifljgljglkhmmimnjmpknrlotnpwpr½µ¶À¸¹Å¼¼ÊÀ¿ÎÃÂÐÄÂÏÃÁοÌÀ½Ê¾»É¼¸Çº¶„vrƒuqƒuqƒupƒup„uq„uqTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬Uz¬˜¼î˜¼î˜¼î˜¼îVz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­Vz­Vz­V{­V{­V{­V{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­š¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ð\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŒ°âŒ°âŒ°âKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢�±ã�±ã�±ã�±ã�±ä�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä›ž§œž§œž§�ž§�ž§[]f[]f[]f[]f[]f[]f[]f[]f[]f[]f[]f[]fa`g¨¤©­§ª±©ª·¬«¾²¯Ë¼·ÙÇÁäÐÈßɾÙÀ³ê½›½¯¬¼¯¬Ä¥ŒË­˜Ñ°™Ó³œ»®¬º¯­»¯­»°®¼±°½³²¿µ´Á¸·ÃººÄ»¼Å¼½Ä½¾Ã¼½Áº¼¾¸ºztvxru·²µµ°´³®²±­±¯«°­ª¯¬©®«¨­ª¨­©§­©§¬¨¦¬§¦¬§¦¬¦¦¬¦¥¬¦¦¬§¦¬§¦¬§¦¬§¦­§¦­§¦­§¦­¨¦­¨§­©§­©§­ª¨­hfkhfkiflifljglkgllhllhlmimnimojmpjmqknsmovopyqr|st¹¹Æ¼¼ÊÀ¿ÏÄÂÓÈÅÕÉÆÕÈÆÔÇÄÒÅÂÐÃÀÎÁ½Ì¾ºÊ¼¸Éº¶È¹´…vq…vq…vq…vq…vq…vqTxªTx«Tx«Tx«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬˜½ïVz¬Vz¬Vz¬Vz­Vz­Vz­V{­V{­V{­V{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{®W{®W{®W{®W|®W|®W|®W|®W|®š¾ðš¾ðš¾ðš¾ñš¾ñš¾ñš¾ñš¾ñš¾ñš¿ñš¿ñš¿ñš¿ñš¿ñš¿ñš¿ñ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢�±ä�±ä�±ä�±ä�²ä�²ä�²ä�²ä�²äŽ²äŽ²äŽ²ä˜œ§�Ÿ§žŸ¨]^f]^f]^f]^f]^f]^f]^f]^f]^f]^f]^f]^f]^f]^fdbghdhmfh³ª«º®¬Ãµ°ÑÀºßÌÄâÍÃÛ÷ؾ°ÝÀ¯¾°¬¾°¬½°¬½°¬½¯¬Í®˜Õ²™¼¯¬¼¯­¼¯­¼°®½±¯¾²°À´³Á¶µÄ¹¸Æ½¼É¿¿ËÂÂÌÃÄÌÄň�‚†€Æ¿Áý¿Àº¼½·ººµ¸·²¶´°´³®²±­±°¬°¯«¯¯ª¯®ª®­©®­©­¬©­¬©­¬©­¬©­¬©­¬©­¬©­¬©­­©®­©®­©®®ª®®ª®®ª®¯ª®¯«®nilnilnilojmpjmqkmrkmslntmnvnowopzqq}ss�wvǽ¼ÌÁ¿ÑÅÃÕÉÇØÌÉÚÍÊÚÍÊÚÍÉÙËÇ×ÉÅÔÆÂÒÿÏÀ¼Í¾¹Ë¼·ÊºµÉº´É¹´‡wq‡wq‡wq‡wqTx«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬™½ï™½ï™½ïV{­V{­V{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{­W{®W{®W{®W{®W|®W|®W|®W|®W|®X|®X|®X|®X|®X|®X|®X|®X|®X|®›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀKo¡Ko¡Ko¡Ko¡Ko¡Ko¡Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢�²ä�²ä�²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²ä›ž§]^f^^f^_f^_f^_f__f__f__f__f__g__g__g__g__g__gfchkehoghtjizmjƶ±ÔüâÍÄÞǼٿ²Û¾¯àÁ°¿°¬¿°¬¿°¬¾°¬¾°¬¾°­¾°­½°­½°­¾°­¾±­¾±®¿²®À³°Á´±Ã¶´Å¹¶È»¹Ë¿¼ËÁÀŒ‚‚Ž……�‡‡’‰ˆ’ˆˆÒÉÉÐÇÇÍÄÅÉÁž¿Âº¼¾·¹¼µ·º³µ¸±´·°²µ¯±´®°³­°²¬¯²¬¯²¬¯²¬®²¬®²¬®²¬®²¬®²¬®²¬®²¬¯³¬¯³­¯´­¯´­¯µ®¯µ®¯slmtlmumnvnnwnoyoo{qp|rrts�vu…zxÌÀ¾ÒÅÂ×ÊÆÚÍÉÝÏËÞÐÍßÑÍßÑÍßÐÌÝÎÊÛÌÇØÉÄÕÅÀÒ½ϿºÍ½¸Ì¼¶Ë»µËº´Ëº´Ëº´‰xrˆxrUy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­™½ï™½ï™½ð™½ð™¾ð™¾ðW{­W{­W{­W{­W{­W{­W{®W{®W{®W|®W|®W|®W|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|¯X|¯X|¯X|¯X}¯X}¯›¿ñ›¿ñ›¿ò›¿ò›¿ò›¿ò›¿ò›¿ò›¿ò\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀKo¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Ž²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äŽ²äLp£[]f^^f__f``f``g``ga`ga`ga`ga`ga`ga`gbagbagbaghdhmfiqiivki|ok†vp”‚záÌÂÛ¶پ°ÞÀ¯�´æ�´æ¿±­¿±­¿±­¿±­À±­À²­À²­À²­¾°­À²­À²­À²®Á²®Á³¯Â´°Ã¶²Å·´Çº¶ˆzw‹~zŽ�~‘„��…„—Šˆ˜ŒŠ™�‹ÚÏÍÙÎÌ×ÌÊÓÉÈÐÆÅÌÂÂÉ¿¿Æ½¼ÃººÁ¸¸¿¶¶½´´»²³º±²¹°±¸°°¸¯°¸¯°¸¯°¸¯¯¸¯¯¸¯¯¸¯¯¸¯¯¸¯°¹°°º°°º°°»±°»±±¼²±zpo|qo}rptr‚us„xu‡{x‹~{ÑÄÀÖÈÄÙËÇÝÎÊßÑÍâÓÏãÔÐäÕÐäÕÐãÓÎáÑÌÞÎÉÛËÅØÇÁÕľÒÁ»Ð¿¸Î½·Î¼µÍ¼µÍ»µÍ»µÍ»µÍ»µˆxrUy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­V{­W{­™½ð™¾ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðW{®W{®W|®W|®W|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|®X|¯X|¯X|¯X|¯X}¯X}¯X}¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯œÀòœÀòœÀòœÀòœÀòœÀòœÀò\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀKo¢Ko¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Ž²äŽ²äŽ²äŽ²äŽ²äŽ²äLp£Lp£Lq£Lq£]^f__f``ga`gbagbagcagcagcagcagdbgdbhdbhechieiogisjixljpk‰xq–ƒzž‡}ÚÀ³Û¿¯â°�´æ�´æ�´æ¿±­À±­Á²­Â²­Â²­Â³­Â³­Â³®Â³®Â³®Â³®Ã³®Ã³®Ã´¯Ã´¯Äµ±ƒtp…vr‡xt‰{wŒ~z��}’„€•‡ƒ—‰…™‹‡ÜÎÊÜÏËÜÏËÛÎËÙÌÉÖÉÇÓÇÅÑÄÂο˿½È¼ºÆº¸Ä¸¶Â¶µÀµ´À´³¿´²¾³±¾³±¾²±¾²±¾²±½²°¾²±¾³±¿³±À³±À´±Áµ²Âµ²Ã¶³Ä·´„vs†xu‰{wŒ~y�€|ÔÆÁ×ÈÄÚËÇÞÎÉáÒÍäÔÏæÖÑèØÒèØÒè×ÑæÖÐäÓÍáÐÊÝÌÆÚÉÂמԼÒÀ¹Ð¾·Ï½¶Ï½µÏ¼µÏ¼µÏ¼µÎ¼µÍ¼µ˜¼îUy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­V{­W{­W{­W{­š¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¾ñš¿ñš¿ñX|®X|®X|®X|®X|®X|®X|®X|®X|¯X|¯X|¯X}¯X}¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y}°Y}°œÀòœÀòœÀó\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀKp¢Kp¢Kp¢Kp¢Kp¢Kp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Ž²åŽ²åŽ²åLq£Lq£Lq£Lq£Lq£Lq£__fa`gb`gcagcagdbgdbgebgebhfchfchhdihejlgkqikukjzmj€qkŠxq˜ƒzœ„y—}oš}m�´æ�´æ�´æ�´æ�´æ�´çÀ±­Â²­Ã³®Ã³®Ä´®Ä´®Ä´®Å´®Ä´®Å´®Å´®Å´®ƒrlƒsmƒsn„to…up‡wqˆys‹{v�}x�€{’ƒ~”…€–‡‚˜ˆ„ÛÌÇÛÌÈÛÌÇÚËÇÙÊÆ×ÉÄÕÇÂÓÅÀÑþÏÁ¼Í¿»Ë½¹É»·Ç¹¶Æ¸µÅ·´Å·³Ä¶²Ä¶²Ä¶²Ãµ²Ãµ²Ä¶²Ä¶²Å·²Æ·³Ç¸³È¹´ÉºµÊ»¶Ì¼¸Î¾¹�~y�€{ÕÆÀØÈÃÜËÆßÎÉáÑËäÔÎç×ÑéØÒêÙÓëÙÓêØÒè×ÐæÔÎãÑÊßÍÆÜÊÂÙÆ¿ÖüÔÁºÒ¿¸Ñ¾·Ñ¾¶Ñ¾¶Ñ½¶Ð½¶Ð½¶Ï½¶˜¼î˜¼ï˜¼ï˜½ïVz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­V{­W{­W{­W{­W{­W{­W{­š¾ðš¾ðš¾ðš¾ñš¾ñš¾ñš¿ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñX|¯X|¯X|¯X}¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y}°Y~°Y~°Y~°Y~°Y~°Y~°Z~°Z~°Z~°Z~°Z~°\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lq£Ž³åLq£Lq£Lq£Lq£Mq£Mq£Mq£Mq£``gbagcagdbgebgfchfchgchgdhhdijfjlhlpjnumnxml|ol�qkŠwp™ƒyš‚v—|n›}nNr¤Nr¤�´ç�´ç�´ç�µç�µç�µçÁ²­Ä³®Å´®Å´®Æµ®Æµ®Æµ®Æµ¯Çµ¯„sl„sl…sm…sm…tm…tn†uo‡vpˆwqŠys‹{u�}w�y‘�{“ƒ}•„~–…€ÙÉÃÙÉÃÙÉÃØÈÃ×ÇÂÖÆÁÔÄ¿ÓýÑÁ¼ÐÀºÎ¾¹Ì½·Ë¼¶Ê»µÊº´É¹´É¹³È¸³È¸³È¸³È¸³È¸³É¹³Ê¹´Êº´Ë»µÌ¼¶Î½·Ï¿¹ÑÀºÓ¼“‚|–…ÜËÄßÍÇâÐÊåÓÌçÕÏéØÑëÙÒìÚÓìÚÓëÙÑé×ÏçÔÍäÒÊáÎÆÝÊÂÚÇ¿ØļÖºÔÁ¸Ó¿·Ó¿¶Ò¿¶Ò¾¶Ò¾¶Ò¾¶Ñ¾¶˜½ï˜½ï™½ï™½ï™½ï™½ïVz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{­W{­W{­W{®š¾ñš¾ñš¿ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›Àò›ÀòY}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y}°Y~°Y~°Y~°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lq£Lq£Lq£Lq£Ž³åŽ³å�³åMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£a`gcagdbgebhfchgchhdhidhjeikgjnjmqmpzrr}rq~qn‚rlŠwo—�wš�u—|n›~nNr¤Nr¤Nr¤Nr¤�µç�µç‘µç‘µç‘µç‘µçÄ´®Å´®Æµ®Çµ¯È¶¯È¶¯†tl†tm†tm†tm†tm‡tm‡tm‡un‡unˆvo‰woŠxp‹yrŒzsŽ|u�}w‘x’€y“�{”‚{×Å¿×Æ¿×Æ¿ÖÅ¿ÕľÔýÓ¼ÒÁ»ÑÀ¹Ð¿¸Î½·Í¼¶Í¼µÌ»µÌ»´Ëº´Ëº´Ëº³Ëº³Ëº´Ìº´Ì»´Í¼µÎ½¶Ï¾·Ñ¿¸ÒÀ¹Ô»“�z–„}˜†›‰‚žŒ„äÑÊæÔÌéÖÎêØÐìÙÑíÚÒìÙÑëØÐêÖÎçÔËåÑÉâÎÆÞÊÂÛÇ¿Ùż×úÖÁ¸ÕÀ·ÔÀ·ÔÀ¶Ô¿¶Ô¿¶Ó¿¶Ò¿¶™½ï™½ï™½ï™½ï™½ï™½ï™½ð™½ðV{­W{­W{­W{­W{­W{­W{­W{®W{®W|®W|®š¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòY}¯Y}¯Y}°Y}°Y~°Y~°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z~±Z~±Z±Z±Z±\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lq£Lq£Lq£Lq£Lq£�³å�³å�³å�³å�³å�³å�³åMq£Mq£Mq£Mq£Mq£Mq£Mq£a`gdbgfchfchhdhhdhjehkfilgjpknups~vw‚wvƒuq„smŠvn•uš�u—|nNr¤Nr¤Nr¤Nr¤Nr¥Nr¥Nr¥‘µç‘µç‘µç‘µç‘µç›–•Åµ¯Ç¶¯È¶¯‡tm‡tm‡umˆumˆumˆumˆumˆum‰um‰vn‰vn‰vnŠwoŠwo‹xpŒyq�zrŽ{s�|t�}v‘~w’w’€xÕûÕüÕûÕ»ÔºÓÁºÓÀ¹Ò¿¸Ñ¿·Ð¾¶Ï½¶Ï½µÎ¼µÎ¼´Î¼´Î»´Î»´Î¼´Î¼´Ï¼µÐ½¶Ñ¾¶Ò¿·ÓÀ¸Õº“€y•‚z—„|š‡�‰�ŸŒ„¢Ž†¤�ˆéÕÍë×ÎìØÏìØÏìØÏë×ÎéÕÌçÓÊåÐÇâÍÄßÊÁÝȾÚżÙú×¹ÖÁ¸ÖÁ·ÖÀ·ÖÀ·ÕÀ·ÕÀ·ÔÀ·Ñ¾·™½ï™½ï™½ð™¾ð™¾ð™¾ðš¾ðš¾ðš¾ðW{­W{­W{­W{®W|®W|®W|®X|®›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁóœÁó�ÁóZ~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z~±Z±Z±Z±Z±Z±[±[±[±[±[±\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Mq£�³å�³å�³å�³å�³å�³å�³å�³å�³å�³åMq£Mq£Mq£Mq£Mq£[QIbagebhgchhdhidhjehkfimgjqkmwqs~wz‰~}ˆ{w†uo‰vm“}r™�t—|nNr¤Nr¤Nr¥Nr¥Nr¥Ns¥Ns¥Ns¥‘µç‘µç‘µè‘µè‘¶è‘¶è€ql…sl†tm‡umˆum‰um‰vm‰vmŠvmŠvnŠvnŠvnŠvn‹wn‹wn‹woŒxoŒxoŒyp�yqŽzqŽ{r�{s�|t‘}t‘}u‘~uÔÁ¸ÔÁ¸ÔÁ¸ÔÀ¸ÔÀ¸ÓÀ·Ó¿·Ò¿¶Ò¾¶Ñ¾µÑ½µÑ½µÐ½µÐ½´Ð½´Ñ½µÑ½µÑ¾µÒ¾¶Ó¿·ÔÀ·ÕÁ¹”€w•�x—ƒz™…|›‡~�‰€ ‹‚¢�„¤�†¥‘ˆ§’‰ëÖÍëÖÍëÖÌêÕËèÓÉæÑÇäÏÅâÌÃàÊÀÝȾÛƼÚĺÙùظ׸×Á·×Á·×Á·ÖÁ·ÖÁ·ÔÀ·™½ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¾ñW|®W|®X|®X|®X|®›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�ÁóZ~°Z~°Z~±Z~±Z~±Z±Z±Z±Z±[±[±[±[±[±[±[±[±[±[±[±[±\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp¢Lp¢Lp£Lp£Lp£Lp£Lp£Lp£Lp£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Mq£Mq£Mq£�³å�³å�³å�³å�³å�³å�³å�³æ�³æ�³æ�³æ�´æMq£Mq£Mq¤Mq¤Mq¤]^gcahechgdhiehjeikfimgioikvoq€yzŽƒ‚�‚‹{u‰vn�zp™�t—|nNr¥Nr¥Nr¥Ns¥Ns¥Ns¥Ns¥Os¥Os¥Os¥‘¶è‘¶è‘¶èOs¥Os¥Os¥ƒrl†tmˆum‰vmŠvmŠvn‹wn‹wnŒwnŒwnŒwnŒwnŒxn�xn�xo�xo�xoŽyoŽypŽzp�zq�{q�{r�|r‘|s‘|s‘}sÔÀ¶ÔÀ¶Ô¿¶Ô¿¶Ô¿¶Ô¿¶Ó¿¶Ó¾µÓ¾µÓ¾µÓ¾µÓ¾µÓ¾µÓ¾µÓ¾µÔ¿¶Ô¿¶ÕÀ·ÖÁ·”v•€w—�x˜ƒyš…{›†}�ˆ~ŸŠ€¡Œ‚£�ƒ¤�…¦�†¦�†§‘‡éÔÉéÓÈçÑÇæÏÅäÎÃâÌÁàÊ¿ÞȽÜÆ»ÛźÚĹÙøÙøٸٸظظ×Á¸ÕÁ¸š¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñX|®X|®›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Áô�Âô�Âô�ÂôžÂôZ±[±[±[±[±[±[±[±[±[±[±[²[²[²[²[€²[€²[€²\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLp£Lp£Lp£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Lq£Mq£Mq£Mq£Mq£Mq£�³å�³å�³å�³å�³å�³æ�³æ�³æ�³æ�´æ�´æ�´æ�´æ�´æ�´æ�´æMq¤Mq¤Mr¤Mr¤^_gdbhfchhdhjeilfimgiohjslm|uw‡€�—Š‡‘�|‹xpŽyo™€t—}o•{nNs¥Ns¥Ns¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¦Os¦Ot¦Ot¦…smˆum‰vm‹vn‹wnŒwn�xn�xn�xnŽxnŽxoŽxoŽyo�yo�yo�yo�yo�zp�zp�zp�{q‘{q‘{q‘|r’|r’|r’|rÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÕ¿µÖÀ¶ÖÀ¶×Á·”t•u–€v˜‚w™ƒxš„zœ†{�‡}Ÿ‰~ Š¢‹�£Œ‚¤�ƒ¥Žƒ¥Žƒ¥Žƒ¤�ƒæÏÄåÎÃãÌÁâËÀàɾßȽÝÆ»ÜźÛĹÛĸÚøÚøÚøÚøÙøظÖÁ¸š¾ðš¾ðš¾ðš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿òX|¯X|¯›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂô[±[±[±[²[²[²[€²[€²[€²[€²\€²\€²\€²\€²\€²\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀLq£Lq£Lq£Lq£Lq£Lq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£�³å�³å�³æ�³æ�³æ�³æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æMr¤Mr¤Nr¤_`gdbhgdhieikfimgiohjqjkxpq„|}–Šˆ˜‰„�}vŽxn•}r˜~q”{nNs¥Ns¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥’¶è’¶è’¶èOs¦Ot¦Ot¦Ot¦Pt¦Pt¦†tm‰vn‹wnŒwn�xnŽxnŽxn�yo�yo�yo�yo�zo�zo�zo‘zo‘zp‘zp‘{p‘{p’{p’{q’|q’|q“|q“|q“|r“|rÖ¿µÖÀµÖÀµÖÀµÖÀµÖÀµÖÀµÖÀµ×Àµ×Àµ×Àµ×Á¶ØÁ¶•~t–t—€u—�v˜�vš‚w›„xœ…z�†{ž‡| ˆ}¡‰~¢Š¢‹€£‹€£Œ€£Œ€£‹€¢‹¡‰~ãË¿âʾáɽßȼÞÇ»ÝƺÝŹÜĹÜĸÜĸÛĸÛĸÛøÚøظš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòX}¯X}¯Y}¯Y}¯œÀòœÀòœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõ[€²\€²\€²\€²\€²\€²\€²\€²\€²\€²\€²\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£�³æ�³æ�³æ�³æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æNr¤Nr¤Nr¤``hechhdijeilfingipijtlm~uv‹ƒƒœŽŠ–„~�yp’{o™r•{nOs¥Os¥Os¥Os¥Os¥Os¥Os¥Os¥’¶è’¶è’¶è’¶è’¶è’¶éOt¦Pt¦Pt¦Pt¦Pt¦Pt¦Pt¦ˆun‹wnŒxnŽxnŽyo�yo�yo�zo‘zo‘zo‘zo’{o’{p’{p’{p“{p“{p“|p“|p“|q”|q”|q”}q”}q”}q”}r•}rØÀµØÀµØÀµØÀµØÁµØÁµØÁµÙÁµÙÁ¶ÙÁ¶—s—s—€t˜€t™�u™�vš‚v›ƒwœ„x�…yž†zŸ‡{ ˆ|¡‰}¡‰}¢‰}¢Š~¢Š}¢‰}¡‰}¡ˆ| ‡{Ÿ†záȼàÈ»ßÇ»ßƺÞƹÞŹÝŹÝŹÝŹÜĹÜĹÛĹÙùš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòY}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°œÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃö\€²\€²\€²\€³\€³\€³\�³\�³\�³\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMq£Mq£Mq£Mq£Mq£Mq£Mq£Mq£�³æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´ç�´ç�´ç�´ç�µç�µçNr¤Nr¤aahechheikfimgiohjrjkxop†}|™Œ‰œ‹†’~v�yn˜r—|oYTROs¥Os¥Os¥Os¥Os¥Os¥’¶è’¶è’¶è’¶é’¶é’·é’·é’·é“·éPt¦Pt¦Pt¦Pt¦Pt¦Pt§Pt§‰vnŒxnŽxo�yo�zo‘zo‘zo’{o’{p“{p“{p“|p”|p”|p”|p”|p•|q•}q•}q•}q•}q–}q–}q–~q–~r–~rÙÁµÚÁµÚÁµÚÁµÚÁµÚµÚ¶—s˜s˜s˜€s™€t™�tš�uš‚u›‚vœƒvœ„w�„xž…yŸ†yŸ†z ‡{¡ˆ{¡ˆ{¡ˆ{¡ˆ{¡ˆ{¡ˆ{ ‡{ ‡zŸ†yž…xž„xàǺàǺßƺßƹßƹÞƹÞŹÞŹÝŹÜŹÚĹ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòY}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Y~°Z~°�Áó�Áó�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄöŸÄö Äö Äö Äö Äö\�³\�³]�³]�³]�³]�³\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMq£Mq£Mq£Mq£Mq£�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´ç�´ç�´ç�µç�µç�µç�µç�µç‘µç‘µç‘µçNr¤aahfciieilfingjpijtlm}tu�…ƒž�Š˜…~�zp”|p˜q’znOs¥Os¥Os¥Os¥Os¦’¶è’¶è’¶é’¶é’·é’·é’·é“·é“·é“·é“·é“·éPt¦Pt¦Pt§Pt§Pu§Pu§Pu§Šwn�xo�yo�zo‘zo’{p“{p“|p”|p”|p•|p•}p•}q–}q–}q–}q–}q—~q—~q—~q—~q—~r—~r˜r˜r˜r۵۵ܶܶ™s™€s™€sš€sš€sš�tš�t›�t›‚uœ‚uœƒv�ƒvž„wž„wŸ…xŸ†x †y †y¡‡z¡‡z¡‡z¡‡z¡‡y ‡y †yŸ†xŸ…xž…wž„wž„wàǺàǺàƹàƹßƹßƹÞƹÝŹÜĹ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòY}¯Y}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°žÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Ä÷ Å÷]�³]�³\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀMq£Mq£�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´ç�´ç�´ç�´ç�µç�µç�µç�µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µçX\gbahfdiieilgjohjqjkvno…{{˜‹ˆ�Œ…“v’zo™r–|oOs¥Os¥Os¦Os¦’¶é’¶é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·êPu§Pu§Pu§Qu§Qu§Qu§Qu§ŒxoŽyo�zo’{p“{p“|p”|p•|p•}p–}q–}q—~q—~q—~q—~q˜~q˜~q˜r™r™r™r™r™r™€rš€rš€rÝöš€sš€sš€s›�s›�s›�t›�tœ‚tœ‚tœ‚u�‚u�ƒužƒvž„vŸ„vŸ…wŸ…w …x †x †x¡†x¡†y¡†y¡†x¡†x †x †x …wŸ…wŸ…wŸ„wž„wž„váǺáǺàǺàǺßƺÞƺÝź›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóY}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z±Z±[±žÂôžÂõžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Ä÷ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´æ�´ç�´ç�´ç�´ç�µç�µç�µç�µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè�¡«bbigdijeimgjohjskl{rrŽƒ��ŽŠ˜…~‘{q•|p˜~q�ynOs¦’¶é’¶é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“¸ê“¸ê“¸êQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§�xo�zp‘{p“{p”|p•}p–}q–}q—~q—~q˜~q˜~q˜q™r™r™ršrš€rš€rš€rš€r›€r›€s›�sßĶßĶœ�sœ�sœ�sœ‚s�‚t�‚t�‚t�‚tžƒtžƒužƒuž„uŸ„vŸ„v …v …w …w¡…w¡†w¡†x¡†x¡†x¡†x¡†x¡†x¡†x †w …w …w …wŸ…wŸ…wŸ„wŸ„wâȺáǺàǺßǺÞƺÚĺœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóY}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z±Z±[±[±[±[±[±ŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�´æ�´æ�´æ�´æ�´æ�´ç�´ç�´ç�´ç�µç�µç�µç�µç�µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘¶è‘¶è ¢«cbigdijfjmgjpikvmn‚yy–‰†�Œ†”v’zo˜r–|o’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸êQu§Qu§Qu§Qu§Qu¨Qu¨Qv¨Qv¨Žyp‘zp“{p”|q•}q–}q—~q—~q˜~q™q™ršrš€rš€r›€r›€r›€r›�rœ�sœ�sœ�sàŶàŶàŶàÅ·áÅ·�‚tž‚tž‚tžƒtžƒtŸƒtŸƒuŸƒuŸ„uŸ„u „u „v …v¡…v¡…v¡…w¡†w¡†w¢†w¢†w¢†w¢†w¢†w¡†w¡†w¡†w¡†w¡…w¡…w …w …w …wŸ…wŸ…wáȺàǺßƺœÀòœÀòœÀòœÀòœÀóœÁóœÁó�ÁóY}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[±[²[²[€²[€²\€²ŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Åø¡Æø¡Æø¡Æø\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�´ç�´ç�´ç�´ç�µç�µç�µç�µç�µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è ¢«¦¥¬hdikfjnhjrjlyqr�‚��ŽŠ™†‘{q•|pÜ´Լ±“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ëQu¨Qu¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨�zp’{p”|q•}q–~q—~q˜q™r™rš€rš€r›€r›€rœ�rœ�sœ�s��s�‚sáŶáÅ·áÅ·áÆ·âÆ·âÆ·âÆ·âÆ·ŸƒtŸƒtŸƒt „u „u „u „u „u¡…u¡…v¡…v¢…v¢…v¢†v¢†w¢†w¢†w¢†w£†w£†w¢†w¢†w¢†w¢†w¢†w¢†w¢†w¡†w¡†w¡†w …w …wŸ…wž„wàÇ»œÀòœÀòœÀóœÁóœÁó�Áó�ÁóY~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[±[²[€²[€²\€²\€²\€²\€²\€²\€² Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�µç�µç�µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’�‰¡£¬§¦¬«¨­lgjohktlnvw—‹ˆžŽˆ”€wÕ¾²ÛµÙÀ³Ê¸°“·é“·é“·é“·é“·ê“·ê“·ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¹ë”¹ë•¹ë•¹ëQv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨�zp“|q•}q–~q—~r˜r™rš€r›€r›€rœ�sœ�s��s�‚s�‚sáÅ·âÆ·âÆ·âÆ·âÆ·ãÆ·ãÇ·ãÇ·ãǸäǸäǸ¡„u¡„u¡„u¡…u¡…u¢…u¢…u¢…v¢…v¢†v£†v£†v£†w£†w£†w£‡w£‡w£‡w£‡w£‡w£‡w£‡w£‡w£‡w£†w¢†w¢†w¢†w¡†x¡†x …xŸ…x�„xY}¯œÁóœÁó�Áó�Áó�Áó�ÁóZ~°Z~°Z~°Z~°Z~°Z~±Z~±Z±Z±[±[±[±[±[±[²[²[€²[€²\€²\€²\€²\€²\€²\€³\€³\�³\�³]�³ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶èšŸ«¢£¬§¦¬«¨­lgjpikwoq‰àÒÎÜÊÃÔ¿µØÀ³Üõ־²“·é“·é“·ê“·ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ëRv¨Rv¨Rv¨Rv¨Rv¨Rv©Rw©Rw©“|q”|q–~r—~r˜rš€rš€r›�rœ�s��s�‚sž‚sáÆ·âÆ·âÆ·ãÆ·ãÇ·ãÇ·äÇ·äǸäǸäȸåȸåȸåȸåȸ¢…u¢…u¢…u£…u£†v£†v£†v£†v¤†v¤†v¤‡w¤‡w¤‡w¤‡w¤‡w¤‡w¤‡w¤‡w¤‡w¤‡w¤‡x¤‡x¤‡x£‡x£‡x£‡x¢†x¡†x¡†xŸ…xY}¯Y}¯Y}¯Y}°�Áó�Áó�ÁôZ~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[²[€²[€²\€²\€²\€²\€²\€²\€³\€³\�³\�³]�³]�³]�³]�³]�³¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‘µç‘µç‘µç‘µç‘µç‘µè‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’·éœ¡«£¤¬¨¦­¬©­°ª®rkmÀ¸¹ØÍËáÒÍ×ûԾ³ÛµÚÁ´Ð»±“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ìRv¨Rv¨Rv©Rv©Rw©Rw©Sw©Sw©Sw©Sw©•}r—~r˜rš€r›€sœ�sœ�s�‚sáÅ·âÆ·âÆ·ãÆ·ãÇ·äÇ·äǸäǸåȸåȸåȸæȸæȸæɹæɹæɹçɹ£†v¤†v¤†v¤†v¤†v¤‡v¤‡v¥‡w¥‡w¥‡w¥‡w¥‡w¥‡w¥ˆw¥ˆw¥ˆx¥ˆx¥ˆx¥ˆx¥ˆx¤ˆx¤‡x¤‡x£‡x£‡x¢‡x¡†x †xY}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[²[€²\€²\€²\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‘µè‘µè‘µè‘¶è‘¶è‘¶è‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’¶é’·é’·é’·é“·é”œ«�¡¬£¤¬¨§­¬©®mhkunqÉÁÂßÒÏÛÊÄÓ¾µØÀ´Ýöؿ²“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì–ºì–ºìRw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwª˜r™€sš€sœ�sàÅ·áÅ·âÆ·âÆ·ãÇ·ãǸäǸäȸåȸåȸæȸæɸæɹçɹçɹçɹçʹèʹèʹèʹ¥‡v¥‡v¥‡v¥‡v¥‡w¥‡w¦ˆw¦ˆw¦ˆw¦ˆw¦ˆw¦ˆw¦ˆx¦ˆx¦ˆx¦ˆx¦ˆx¥ˆx¥ˆx¥ˆx¥ˆx¤ˆx¤‡x£‡x¢‡xY}¯Y}°Y~°Y~°Z~°Z~°žÂôžÂôžÂôZ~±Z±Z±[±[±[±[±[±[²[²[€²\€²\€²\€²\€²\€²\€³\€³\�³\�³]�³]�³]�³]�³]�³]�´]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù£Çù£Çù£Çú\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À‘¶è‘¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é—ž«Ÿ¢¬¤¥­edjifknilzsuÔÊÉÝÏÊÔÁºÔ¾³ÛöÛÁ´Ô½²”¸ê”¸ê”¸ê”¸ê”¸ê”¸ë”¸ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºìSw©Sw©Sw©Sw©Sw©SwªSwªSxªSxªTxªTxªTxªÞÄ·ßÅ·àÅ·áÆ·âÆ·ãǸãǸäǸåȸåȸæȸæɸæɹçɹçɹèʹèʹèʹèʹéʺé˺é˺¦‡v¦‡v¦ˆw¦ˆw¦ˆw¦ˆw§ˆw§ˆw§ˆw§ˆx§ˆx§‰x§‰x§‰x§‰x¦‰x¦‰x¦‰x¦ˆx¥ˆx¥ˆy¤ˆy¤ˆyY}°Y}°Y~°Y~°Z~°Z~°žÂôžÂôžÂôžÂôžÂõžÃõ[±[±[±[±[²[²[€²\€²\€²\€²\€²\€²\€³\€³\�³\�³]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ^ƒµ_ƒµ£Çù£Çù£Çù£Çù£Çù£Çù£Çú£Çú£Èú£Èú\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶è’¶é’¶é’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·é�™«™Ÿ¬\_iabjfdjjfkpkn~xz•‰‡ÖÆÁÒ½´ØÀµÝÄ·ØÀ³”¸ê”¸ê”¸ë”¸ë”¸ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»íSw©Sw©SwªSwªSxªSxªTxªTxªTxª—¼î˜¼î˜¼î˜¼îàÅ·áÆ·âƸãǸäǸäȸåȸæɹæɹçɹçɹèʹèʹèʹéʺé˺é˺é˺ê˺ê˺ê̺§ˆw§ˆw§ˆw§ˆw§‰w§‰w§‰x§‰x§‰x§‰x¨‰x§‰x§‰x§‰x§‰x§‰y¦‰y¦‰y¦‰y¦‰yY}°Y~°Y~°Z~°Z~°Z~°žÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõ[²[²[€²[€²\€²\€²\€²\€²\€³\€³\�³\�³]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚µ^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ£Çú£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’¶è’¶è’¶è’¶é’¶é’¶é’¶é’·é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·êPt¦PYhW]i]`ibbjfekkgltnrˆ€’„€�{tÓ¾´ÜĸÛµվ³”¸ë”¹ë”¹ë”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í—»í—»í—»íSwªSxªSxªTxªTxªTxªTxª˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ïçɸãǸäȸåȹæɹæɹçɹçʹèʹèʺéʺé˺é˺ê˺ê˺ê̺ëÌ»ëÌ»ëÌ»ëÌ»¨‰w¨‰w¨‰x¨‰x¨‰x¨‰x¨‰x¨‰x¨‰x¨Šx¨Šy¨Šy¨‰y§‰y§‰y§ŠyY}°Y}°Y~°Z~°Z~°Z~°Z~°žÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄö\€²\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶_„¶`„¶¤Èú¤Èú¤Èú¤Èú¤Èú\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À’¶é’¶é’·é’·é’·é’·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“¸êPt¦Pt¦JVhRZhX]i]`jbcjgekmimwruŠ~Œ|wŒypÙ·ÝÄ·ÙÀ³”¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í—»í—»í—»í—»í—»í—»í—»îTxªTxªTxªTxª˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ï˜½ï™½ï™½ï™½ï™½ï™½ïéÁ¤æɹæɹçʹèʺèʺé˺é˺ê˺ê˺ê̺ëÌ»ëÌ»ëÌ»ìÍ»ìÍ»ìÍ»ìÍ»¨‰x©‰x©Šx©Šx©Šx©Šx©Šy©Šy©Šy©Šy¨Šyª‹yY}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°žÂôžÂõžÂõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö\€²\€³\�³\�³]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„·¤Èû¤Éû\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“¸ê“¸ê“¸ê“¸êPt¦Pt§Pt§JVhMXhT[iY^i^ajccjgeknjo}uw‡zw‰xq‘{rš‚vÛÁµÖ¿³•¹ë•¹ë•¹ë•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í–»í—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î˜¼îTxª˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ï˜½ï™½ï™½ï™½ï™½ï™½ï™½ð™½ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðì̺é˺ê˺êÌ»ëÌ»ëÌ»ëÌ»ìÍ»ìÍ»ìÍ»ìͼíͼíμíμ©Šx©Šx©Šx©Šy©Šyª‹y­ŒyY}¯Y}¯Y}°Y}°Y~°Z~°Z~°Z~°Z~°Z~°Z~±žÂõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Ä÷ Ä÷ Å÷]�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À“·é“·é“·é“·é“·é“·é“·é“·ê“·ê“·ê“·ê“¸ê“¸ê“¸ê“¸ê”¸ê”¸êPt§Pt§Pt§Pu§JVhJVhOYiU\iZ_j_ajcckhflpkput…vqŒxp˜�w˜€s–}p•¹ë•¹ë•¹ë•¹ì•¹ì•ºì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í–»í—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î˜¼î˜¼î˜¼îTxªTx«˜¼î˜¼ï˜½ï˜½ï™½ï™½ï™½ï™½ï™½ï™½ï™½ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò•“’óмóѼóѽóѽôѽœÀòœÀóX}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±žÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Ä÷ Ä÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„·`„·`…·`…·a…·a…·a…·\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À“·é“·ê“·ê“·ê“·ê“¸ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸êPt§Pu§Pu§Pu§Pu§Pu§JWhJWhJWhQZiV]i[_j`bkddkhglunp€sq‡vp”uš‚v—~qQv¨•¹ì•¹ì•ºì•ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í—»í—»í—»í—»í—»í—»í—»í—»î—¼î—¼î—¼î˜¼î˜¼î˜¼î˜¼îTx«Tx«Ty«Ty«Uy«™½ï™½ï™½ï™½ï™½ï™½ï™½ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¾ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁó�Áó�ÁóY}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~±Z±žÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Ä÷ Ä÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…·\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À“¸ê“¸ê“¸ê“¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸êPu§Pu§Pu§Pu§Qu§Qu§Qu§JWhJWhJWhJWhR[iW]j\`jabkedknjmzpo„to�|t›„y—~qRv¨Rv¨Rv¨–ºì–ºì–ºì–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í–»í—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼îTx«Ty«Ty«Uy«Uy«Uy«Uy«™½ï™½ï™½ï™½ð™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁó�Áó�Áó�Áó�Áó�Áó�ÁôY~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±ŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄö Äö Äö Äö Äö Äö Ä÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…·a…¸a†¸\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸ê”¸êPu§Pu§Qu§Qu§Qu§Qu§Qu§Qu§JWhJWhJWhKWiKWiS\iX^j]`kackgeltlnro‹yr›…z˜rIMSRv¨Rv¨Rv¨–ºì–ºì–ºì–ºì–ºí–ºí–»í–»í—»í—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼îTx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬™¾ð™¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôZ~°Z~°Z~°Z~±Z~±Z±ŸÃõŸÃõŸÃõŸÃõŸÃöŸÄö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„·`„·`…·`…·a…·a…·a…·a…·a…·a…¸a†¸a†¸\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À”¸ê”¸ê”¸ê”¸ê”¸ë”¸ëQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§KWiKWiKWiKWiKWiOZiT\jY_j^akbcknimzon†vp™…|˜€s›€qRv¨Rv¨Rv©Rv©Rw©–ºí–»í–»í–»í—»í—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ïTx«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬š¾ðš¾ðš¾ðš¾ðš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áô�Áô�ÂôžÂôžÂôžÂôžÂôžÂôžÂõZ~±Z±Z±ŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…¸a…¸a†¸a†¸b†¸\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À”¸ë”¹ëQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨KWiKWiKWiKWiKWiMXiQ[jV]jZ_k_akbclumn‚tp—„|™€tœ€rRv©Rv©Rw©Rw©Rw©Sw©Sw©—»í—»í—»í—»í—»í—»í—»î—»î—¼î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ïTy«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬š¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁó�Áó�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõ[±ŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Çú£Èú¤Èú¤Èú`„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…¸a…¸a†¸b†¸b†¸b†¸\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQu§Qu§Qu§Qu§Qu§Qu§Qu§Qu§Qu¨Qu¨Qu¨Qv¨KWiKWiKXiKXiKXiKXiNYjS\jW^k\`k_bkqkm~ro•ƒ{™‚vRw©Rw©Rw©Rw©Sw©Sw©Sw©Sw©Sw©—»í—»í—»í—»î—»î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ïTy«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõŸÃõŸÃõŸÃõŸÃõ[±ŸÃöŸÄö Äö Äö Äö Äö Äö Ä÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù£Çù£Çù£Çù£Çù£Çú£Çú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Èû`„¶`„·`…·`…·a…·a…·a…·a…·a…¸a…¸a†¸b†¸b†¸b†¸b†¸b†¸\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQu§Qu§Qu¨Qu¨Qu¨Qu¨Qv¨Qv¨Qv¨Qv¨KXiKXiKXiKXiKXiKXiLXiPZjT]jY_k]akmim{po’�z™�uRw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwª—¼î—¼î—¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ï˜½ïTy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­V{­V{­W{­W{­›¿ñ›¿ñ›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áô�Áô�ÂôžÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõ[±[±[²[€² Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Èû¤Éû¥Éû¥Éû¥Éûa…·a…·a…·a…·a…¸a…¸a†¸b†¸b†¸b†¸b†¸b†¸b†¹\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀQv¨Qv¨Qv¨Qv¨Qv¨Rv¨Rv¨Rv¨KXiKXiKXiKXiKXiKXiLXjMYjQ[jV]kZ`kigmwnn•ƒ|¤…sSw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSxªSxªSxªTxª˜¼î˜¼î˜¼î˜¼î˜¼î˜¼ï˜¼ï˜½ï˜½ï˜½ï™½ïUy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­›ÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃö[±[±[²[€²\€²\€²\€² Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú¤Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êüa…·a…¸a†¸b†¸b†¸b†¸b†¸b†¸b†¹b‡¹\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv¨KXiKXiLXjLXjLXjLXjLXjOZjS\kW^kigm�tp��sSw©Sw©Sw©Sw©Sw©Sw©SwªSwªSxªSxªSxªTxªTxªTxªTxª˜¼î˜¼î˜¼ï˜¼ï˜½ï˜½ï™½ï™½ï™½ïUy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{®W{®W|®W|®œÀòœÀòœÀóœÀóœÁó�Áó�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃö[±[²[²[€²\€²\€²\€²\€²\€³\€³¡Å÷¡Å÷¡Åø¡Åø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¦Êü¦Êü¦Êü¦Êüb†¸b†¸b†¸b†¸b†¹b‡¹b‡¹c‡¹\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRv¨Rv¨Rv¨Rv¨Rv¨Rv¨Rv©LXjLXjLXjLXjLXjMYjR[kW^k]alro�‚sSw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTx«˜½ï˜½ï™½ï™½ï™½ï™½ïUy«Uy«Uy«Uy«Uy«Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­V{­V{­W{­W{­W{­W{­W{­W{­W{®W|®W|®X|®X|®X|®œÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áô�Áô�ÂôžÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄö[±[²[€²[€²\€²\€²\€²\€²\€³\�³\�³]�³]�³¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëýb†¹b‡¹b‡¹c‡¹c‡¹\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRv¨Rv¨Rv©Rv©Rv©Rw©Rw©LYjLYjLYjLYjT]kZ_lhfm„uqSw©Sw©Sw©Sw©SwªSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«™½ï™½ï™½ïUy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{®W{®W|®W|®X|®X|®X|®X|®X|®X|¯�Áó�Áó�Áó�Áó�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄö[±[²[€²\€²\€²\€²\€²\€²\€³\�³]�³]�³]�³]�³]�³]�´¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëýc‡¹c‡¹\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀRw©Rw©Rw©Rw©Sw©Sw©Sw©ddmaclupr“‚{Sw©Sw©Sw©SwªSwªSxªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«™½ðUy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{­W{®W|®W|®X|®X|®X|®X|®X|®X|¯X|¯X}¯Y}¯Y}¯�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö[²[²[€²\€²\€²\€²\€²\€³\€³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´¢Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«™¾ð™¾ðUy¬Uy¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{­W{®W|®W|®X|®X|®X|®X|®X|®X|®X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯žÂôžÂôžÂôžÂôžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö[²[€²[€²\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSw©Sw©Sw©Sw©Sw©SwªSwªSwªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«™¾ðš¾ðš¾ðš¾ðš¾ðVz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz­Vz­V{­V{­W{­W{­W{­W{­W{­W{­W{®W{®W|®W|®X|®X|®X|®X|®X|®X|¯X|¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Y~°žÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄö Äö Äö Äö[€²\€²\€²\€²\€²\€²\€³\�³]�³]�³]�³]�³]�³]�´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSwªSwªSwªSxªSxªSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬š¾ðš¾ðš¾ðš¾ðš¾ðš¾ðš¾ñVz¬Vz¬Vz¬Vz­Vz­V{­V{­V{­W{­W{­W{­W{­W{­W{®W{®W|®W|®X|®X|®X|®X|®X|®X|¯X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°ŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö[€²\€²\€²\€²\€²\€³\€³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀSxªSxªTxªTxªTxªTxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬š¾ðš¾ðš¾ðš¾ðš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñVz­V{­V{­V{­W{­W{­W{­W{­W{­W{­W{®W|®W|®X|®X|®X|®X|®X|®X|®X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~±Z~±ŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö[€²\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶¤Éû¥Éû¥Éû¥Éû¥Éü¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTxªTxªTxªTxªTxªTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬š¾ðš¾ðš¾ñš¾ñš¿ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñW{­W{­W{­W{­W{­W{­W{®W|®W|®W|®X|®X|®X|®X|®X|®X|¯X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[± Äö Äö Äö Äö Äö\€²\€²\€²\€²\€²\€³\�³]�³]�³]�³]�³]�³]�´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„·¥Éû¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTxªTxªTx«Tx«Tx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uz¬Uz¬Uz¬š¾ðš¾ñš¾ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›ÀòW{­W{­W{­W{®W{®W|®W|®X|®X|®X|®X|®X|®X|¯X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z±[±[±[±[±[±[² Äö Ä÷\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ©Íÿ©Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀTx«Ty«Ty«Ty«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬Uz¬Vz¬Vz¬š¾ñš¿ñš¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòW{®W|®W|®X|®X|®X|®X|®X|®X|®X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[²[²[€²\€²\€²\€²\€²\€²\€³\�³\�³]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„·`…·a…·a…·a…·a…·a…¸¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUy«Uy«Uy«Uy«Uy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬š¿ñš¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóX|®X|®X|®X|®X|®X|®X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z±[±[±[±[±[±[²[€²[€²\€²¡Å÷¡Å÷¡Å÷\€³\€³\�³]�³]�³]�³]�³]�´]�´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„·`„·`…·a…·a…·a…·a…·a…¸a†¸b†¸b†¸§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ©Íÿ©Íÿ©Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUy«Uy«Uy«Uy«Uy¬Uy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬š¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁó�Áó�ÁóX|®X|®X|¯X|¯X}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[€²[€²\€²\€²¡Å÷¡Å÷¡Å÷¡Åø¡Æø]�³]�³]�³]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…¸a…¸a†¸b†¸b†¸b†¸b†¸b†¹§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUy¬Uy¬Uz¬Uz¬Uz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�ÁóX}¯X}¯Y}¯Y}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[€²[€²\€²\€²\€²¡Å÷¡Å÷¡Åø¡Åø¡Æø¢Æø¢Æø¢Æø]�³]�´]‚´]‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„·`…·a…·a…·a…·a…·a…¸a†¸a†¸b†¸b†¸b†¸b†¹b†¹b‡¹c‡¹c‡¹¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Îÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀUz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬Vz¬›¿ñ›¿ñ›¿ñ›¿ñ›¿ò›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôY}¯Y}¯Y}¯Y}¯Y}°Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~±Z~±Z±Z±[±[±[±[±[²[²[€²[€²\€²\€²\€²¡Å÷¡Å÷¡Åø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„·`„·`…·a…·a…·a…·a…·a…¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹b‡¹c‡¹c‡¹c‡¹c‡ºcˆº¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Îÿ©Îÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVz¬Vz¬Vz¬Vz¬Vz¬Vz­›¿ñ›¿ñ›¿ò›¿ò›Àò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôžÂôžÂôžÂôžÂôY}¯Y}°Y~°Y~°Z~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[€²[€²\€²\€²\€²\€²¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºcˆºdˆº©Íÿ©Íÿ©Íÿ©ÎÿªÎÿªÎÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀVz­Vz­Vz­V{­›¿ò›¿ò›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõZ~°Z~°Z~°Z~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[²[€²\€²\€²\€²\€²\€²¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„·`…·a…·a…·a…·a…·a…¸a†¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºdˆºdˆºdˆºdˆºdˆ»©ÎÿªÎÿªÎÿ\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀV{­›Àò›ÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõŸÃõŸÃõZ~°Z~°Z~°Z~±Z±Z±[±[±[±[±[±[²[²[€²[€²\€²\€²\€²\€²\€³¡Åø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú¤Èú¤Èú¤Èú_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„·`…·a…·a…·a…·a…·a…¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹b‡¹c‡¹c‡¹c‡¹c‡ºc‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀœÀòœÀòœÀòœÀòœÀòœÀòœÀóœÀóœÀóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöZ~±Z±Z±[±[±[±[±[±[²[€²[€²\€²\€²\€²\€²\€²\€³¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû_„¶`„¶`„¶`„¶`„¶`„·`…·`…·a…·a…·a…·a…·a…¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºcˆºdˆºdˆºdˆºdˆ»d‰»d‰»e‰»e‰»\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀœÀòœÀóœÀóœÁóœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö[±[±[±[±[²[€²[€²\€²\€²\€²\€²\€²\€³\€³¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû`„¶`„¶`„¶`„·`…·a…·a…·a…·a…·a…¸a†¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀœÁóœÁó�Áó�Áó�Áó�Áó�Áó�Áó�Áó�Áô�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö[±[²[²[€²[€²\€²\€²\€²\€²\€²\€³\�³\�³¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çú£Çú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü`„·`…·a…·a…·a…·a…·a…¸a†¸a†¸b†¸b†¸b†¸b†¹b‡¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�Áó�Áó�Áó�Áó�Áô�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷[€²\€²\€²\€²\€²\€²\€³\�³\�³]�³¢Æø¢Æø¢Æù¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¦Êü¦Êü¦Êüa…·a…·a…·a…¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹b‡¹c‡¹c‡¹c‡¹c‡ºcˆºcˆºdˆºdˆºdˆºdˆ»d‰»d‰»e‰»e‰»e‰»e‰¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À�Áô�Áô�Âô�Âô�ÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷\€²\€²\€³\�³\�³]�³]�³¢Æø¢Æù¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëýa†¸a†¸b†¸b†¸b†¸b†¸b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»e‰¼eŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀžÂôžÂôžÂôžÂôžÂôžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø\€³\�³]�³]�³]�³¢Æù¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëýb†¸b†¸b†¸b†¹b†¹b‡¹c‡¹c‡¹c‡¹c‡¹c‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»e‰¼eŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀžÂôžÂõžÂõžÃõžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÄöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø]�³]�³¢Æù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþb†¹b‡¹b‡¹c‡¹c‡¹c‡¹c‡ºcˆºcˆºdˆºdˆºdˆºdˆ»dˆ»d‰»e‰»e‰»e‰»e‰»e‰¼eŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀžÃõžÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù]�³£Çù£Çù£Çù£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþc‡¹c‡¹c‡¹c‡ºcˆºcˆºdˆºdˆºdˆºdˆ»d‰»d‰»e‰»e‰»e‰»e‰¼eŠ¼eŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŸÃõŸÃõŸÃõŸÃõŸÃöŸÃöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Ä÷ Ä÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù]�´]‚´]‚´£Çù£Çù£Çú£Èú£Èú¤Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿc‡ºcˆºdˆºdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»e‰¼eŠ¼fŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\ÀŸÃöŸÄöŸÄöŸÄö Äö Äö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù]‚´]‚´^‚´^‚´^‚´^‚´£Èú¤Èú¤Èú¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿdˆºdˆºdˆºdˆ»d‰»e‰»e‰»e‰»e‰»e‰¼eŠ¼fŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À Äö Äö Äö Äö Äö Äö Ä÷ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù£Çù£Çù^‚´^‚´^‚´^‚´^‚´^‚µ^‚µ¤Èú¤Èú¤Èú¤Èû¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Îÿ©Îÿdˆ»d‰»d‰»e‰»e‰»e‰»e‰¼eŠ¼eŠ¼fŠ¼fŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À Äö Ä÷ Ä÷ Å÷ Å÷ Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù^‚´^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ¤Éû¤Éû¥Éû¥Éû¥Éû¥Éû¥Éü¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©ÎÿªÎÿªÎÿªÎÿªÎÿe‰»e‰»e‰»e‰¼eŠ¼fŠ¼fŠ¼fŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú^‚´^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶¥Éû¥Éû¥Éü¥Éü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©ÎÿªÎÿªÎÿªÎÿªÎÿªÎÿªÏÿªÏÿ«Ïÿe‰¼eŠ¼fŠ¼fŠ¼fŠ¼fŠ¼\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À¡Å÷¡Å÷¡Å÷¡Åø¡Åø¡Æø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù£Çù£Çú£Èú^‚´^‚´^‚´^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶¥Éü¥Êü¥Êü¦Êü¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Îÿ©ÎÿªÎÿªÎÿªÎÿªÎÿªÎÿªÏÿ«Ïÿ«Ïÿ«Ïÿ«Ïÿ«ÏÿfŠ¼fŠ¼fŠ½fŠ½\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À¡Æø¡Æø¡Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æø¢Æù¢Æù¢Çù¢Çù£Çù£Çù£Çù£Çù£Çù£Çú£Çú£Èú£Èú^‚´^‚µ^‚µ^ƒµ^ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒµ_ƒ¶_„¶_„¶`„¶`„¶`„¶`„¶`„¶¦Êü¦Êü¦Êü¦Êý¦Ëý¦Ëý§Ëý§Ëý§Ëý§Ëý§Ëþ§Ìþ§Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìþ¨Ìÿ¨Íÿ¨Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©Íÿ©ÎÿªÎÿªÎÿªÎÿªÎÿªÎÿªÏÿªÏÿ«Ïÿ«Ïÿ«Ïÿ«Ïÿ«Ðÿ«Ðÿ¬ÐÿfŠ½f‹½\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À\À
\ No newline at end of file
diff --git a/Lib/images/vlines2 b/Lib/images/vlines2
new file mode 100644
index 0000000..f42ae58
--- /dev/null
+++ b/Lib/images/vlines2
@@ -0,0 +1,4 @@
+#define vlines2_width 2
+#define vlines2_height 1
+static char vlines2_bits[] = {
+   0x01};
diff --git a/Lib/images/vlines3 b/Lib/images/vlines3
new file mode 100644
index 0000000..55c2246
--- /dev/null
+++ b/Lib/images/vlines3
@@ -0,0 +1,4 @@
+#define vlines3_width 3
+#define vlines3_height 1
+static char vlines3_bits[] = {
+   0x02};
diff --git a/Lib/init.stk b/Lib/init.stk
new file mode 100644
index 0000000..8ced182
--- /dev/null
+++ b/Lib/init.stk
@@ -0,0 +1,502 @@
+;;;;
+;;;; i n i t . s t k			-- The file launched at startup
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: ??-Sep-1993 ??:??
+;;;; Last file update: 22-Jul-1996 15:47
+;;;;
+
+
+(define *debug*    	#f)	; #t for debuggging (disable macro inlining)
+(define *gc-verbose* 	#f)	; #t to have a message at start/stop of a GC
+(define *print-banner*  #t)	; #f to avoid the copyright message
+
+
+(define @undefined (if #f #t))
+(define *argc* (length *argv*)) 
+
+(define call/cc		call-with-current-continuation)
+(define !		system)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Some stuff for defining macros
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define define-macro #f)
+(define %replace     #f)
+(define %beginify    #f)
+
+(let ((if if) (and and) (begin begin) (set-car! set-car!) (set-cdr! set-cdr!)
+      (not not) (pair? pair?) (car car) (cdr cdr) 
+      (null? null?) (cons cons) 
+      (let let) (macro macro) (list list) (append append))
+
+  (set! %replace
+	(lambda (before after)
+	  (if (and (not *debug*) (pair? before) (pair? after))
+	      (begin
+		(set-car! before (car after))
+		(set-cdr! before (cdr after))))
+	  after))
+
+  (set! %beginify 
+	(lambda (forms)
+	  (if (null? (cdr forms)) (car forms) (cons 'begin forms))))
+
+  (set! define-macro 
+	(macro form
+	  (let ((name (car (car (cdr form))))
+		(args (cdr (car (cdr form)))))
+	    (list 'define name
+		  (list 'macro 'params
+			(list '%replace 
+			      'params
+			      (list 'apply
+				    (append (list 'lambda args)
+					    (cdr (cdr form)))
+				    (list 'cdr 'params)))))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Some utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define gensym 
+  (let ((counter 0))
+    (lambda prefix
+      (set! counter (+ counter 1))
+      (string->symbol
+         (string-append (if (null? prefix) "G" (car prefix))
+			(number->string counter))))))
+
+(define (apropos s)
+  (if (not (symbol? s)) (error "apropos: bad symbol" s))
+  (let ((res '())
+	(env (the-environment)) 
+	(str (symbol->string s)))
+
+    (do ((l (cdr (environment->list env)) (cdr l))); cdr to avoid the binding to "s"
+	((null? l) (if (null? res) #f res))
+      (do ((v (car l) (cdr v)))
+	  ((null? v))
+	(if (and (string-find? str (symbol->string (caar v))) 
+		 (symbol-bound? (caar v)))
+	    (set! res (cons (caar v) res)))))))
+
+(define (documentation x)
+  "provides documentation for its parameter if it exists"
+  (define (nodoc)
+    (format #t "No documentation available for ~A\n" x))
+  (cond
+    ((closure? x) (let ((body (procedure-body x)))
+		    (if (string? (caddr body)) 
+			(format #t "~A\n" (caddr body))
+			(nodoc))))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Random 
+;;;;	This version of random is constructed over the C one. It can return
+;;;;	bignum numbers. Idea is due to Nobuyuki Hikichi <hikichi@sra.co.jp>
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define random 
+  (let ((C-random random)
+	(max-rand #x7fffffff)) ; Probably more on 64 bits machines
+    (letrec ((rand (lambda (n)
+		     (cond 
+		      ((zero? n)	   0)
+		      ((< n max-rand) (C-random n))
+		      (else 	  (+ (* (rand (quotient n max-rand)) max-rand)
+				     (rand (remainder n max-rand))))))))
+      (lambda (n)
+	(if (zero? n)
+	    (error "random: bad number: 0")
+	    (rand n))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; do
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (do inits test . body)
+  (let ((loop-name (gensym)))
+    `(letrec ((,loop-name 
+	       (lambda ,(map car inits)
+		 (if ,(car test)
+		     (begin ,@(if (null? (cdr test)) 
+				  (list @undefined) 
+				  (cdr test)))
+		     (begin ,@body
+			    (,loop-name ,@(map (lambda (init)
+						 (if (null? (cddr init))
+						     (car init)
+						     (caddr init)))
+					       inits)))))))
+       (,loop-name ,@(map cadr inits)))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; dotimes
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (dotimes binding . body)
+  (if (list? binding)
+      ;; binding is a list
+      (let ((var   #f) (count #f) (result #f))
+	(case (length binding)
+	  (2  (set! var    (car binding))
+	      (set! count  (cadr binding)))
+	  (3  (set! var    (car binding))
+	      (set! count  (cadr binding))
+	      (set! result (caddr binding)))
+	  (else (error "dotimes: bad binding construct: ~S" binding)))
+	`(do ((,var 0 (+ ,var 1)))
+	     ((= ,var ,count) ,result)
+	   ,@body))
+      ;; binding is ill-formed
+      (error "dotimes: binding is not a list: ~S" binding)))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; case
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (case key . clauses)
+  ;; conditionally execute the clause eqv? to key
+  (define (case-make-clauses key)
+    `(cond ,@(map
+              (lambda (clause)
+                (if (pair? clause)
+                    (let ((case (car clause))
+                          (exprs (cdr clause)))
+                      (cond ((eq? case 'else)
+                             `(else ,@exprs))
+                            ((pair? case)
+                             (if (= (length case) 1)
+                                 `((eqv? ,key ',(car case)) ,@exprs)
+                                 `((memv ,key ',case) ,@exprs)))
+                            (else
+                             `((eqv? ,key ',case) ,@exprs))))
+                    (error "case: invalid syntax in ~a" clause)))
+              clauses)))
+  (if (pair? key)
+      (let ((newkey (gensym)))
+        `(let ((,newkey ,key))
+           ,(case-make-clauses newkey)))
+      (case-make-clauses key)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; fluid-let
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (fluid-let bindings . body)
+  (let* ((vars (map car bindings))
+	 (vals (map cadr bindings))
+	 (tmps (map (lambda (x) (gensym)) vars)))
+    `(let ,(map list tmps vars)
+       (dynamic-wind
+	  (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars vals))
+	  (lambda () ,@body)
+	  (lambda () ,@(map (lambda (x y) `(set! ,x ,y)) vars tmps))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Some usal macros 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-macro (unquote form) 
+  (error "Usage of unquote outside of quasiquote in ,~A" form))
+
+(define-macro (unquote-splicing form) 
+  (error "Usage of unquote-splicing outside of quasiquote in ,@~A" form))
+
+(define 1+ (macro form (list + (cadr form) 1)))
+(define 1- (macro form (list - (cadr form) 1)))
+
+(define macroexpand-1 macro-expand)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Section 6.10
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (call-with-input-file string proc)
+  (let* ((file   (open-input-file string))
+	 (result (proc file)))
+    (close-input-port file)
+    result))
+
+(define (call-with-output-file string proc)
+  (let* ((file   (open-output-file string))
+	 (result (proc file)))
+    (close-output-port file)
+    result))
+
+(define (call-with-input-string string proc)
+  (proc (open-input-string string)))
+
+(define (call-with-output-string proc)
+  (let ((str (open-output-string)))
+    (proc str)
+    (get-output-string str)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; File management
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define *shared-suffix* (cond 
+			 ((string=? (substring (machine-type) 0 2) "HP") "sl")
+			 (ELSE      "so")))
+(define *load-suffixes*	(list "stk" "stklos" "scm" *shared-suffix*))
+
+(define *load-path*	#f)
+(define *help-path*	#f)
+(define *load-verbose* 	#f)
+
+
+(let ((build-path (lambda (path)
+		    (and path 
+			 (let ((len (string-length path))
+			       (new '())
+			       (i 0))
+			   (do ((j 0 (+ j 1)))
+			       ((= j len))
+			     (if (eqv? (string-ref path j) #\:)
+				 (begin
+				   (set! new (cons (substring path i j) 
+						   new))
+				   (set! i (+ j 1)))))
+			   ;; don't forget the last path
+			   (reverse (cons (substring path i len) new))))))
+      (lib	   (%library-location)))
+
+  ;; If user has specified a load path with STK_LOAD_PATH, use it
+  ;; Always append STK_LIBRARY at end to be sure to find our files
+  (set! *load-path* (append (list ".")
+			    (or (build-path (getenv "STK_LOAD_PATH")) '())
+			    (list (expand-file-name 
+				         (string-append lib "/../site-scheme"))
+				  (string-append lib "/STk")
+				  (string-append lib "/" (machine-type)))))
+  ;; The same thing for the *help-path*
+  (set! *help-path* (append (list ".")
+			    (or (build-path (getenv "STK_HELP_PATH")) '())
+			    (list lib
+				  (string-append lib "/Help")))))
+  
+
+;
+; Require/Provide/Provided?
+;
+(define require   #f)
+(define provide   #f)
+(define provided? #f)
+
+(let ((provided '()))
+
+  (set! require (lambda (what)
+		  (unless (member what provided)
+		     (load what)
+		     (unless (member what provided)
+			(format #t "WARNING: ~S was not provided~%" what)))
+		  what))
+
+  (set! provide (lambda (what)
+		  (unless (member what provided)
+			  (set! provided (cons what provided)))
+		  what))
+	
+  (set! provided? (lambda (what)
+		    (and (member what provided) #t))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Port conversions
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (port->string p)
+  (unless (or (input-port? p) (input-string-port? p))
+     (error "port->string: Bad port ~S" p))
+  (let loop ((res '()))
+    (let ((line (read-line p)))
+      (if (eof-object? line)
+          (apply string-append (reverse res))
+	  (loop (cons "\n" (cons line res)))))))
+
+(define (port->list reader p)
+  (unless (or (input-port? p) (input-string-port? p))
+     (error "port->list: Bad port ~S" p))
+  ;; Read all the lines of port and put them in a list
+  (let loop ((res '()) (sexp (reader p)))
+    (if (eof-object? sexp) 
+	(reverse res)
+	(loop (cons sexp res) (reader p)))))
+ 
+(define (port->sexp-list p) 
+  (port->list read p))
+
+(define (port->string-list p)
+  (port->list read-line p))
+
+(define (exec command)
+  (call-with-input-file (string-append "| " command) port->string))
+
+(define (exec-string-list command)
+  (call-with-input-file (string-append "| " command) port->string-list))
+    
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Misc
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (closure? obj)
+  (and (procedure? obj) (procedure-body obj) #t))
+
+(define (primitive? obj)
+  (and (procedure? obj) (not (procedure-body obj)) #t))
+
+(define (widget? obj)
+  (and (tk-command? obj) (not (catch (obj 'configure)))))
+
+
+(define (& . l)
+  (let loop ((l l) (res ""))
+    (if (null? l)
+        res
+        (let ((e (car l)))
+          (loop (cdr l) 
+		(string-append res 
+			       (cond 
+				  ((string? e) e)
+				  ((symbol? e) (symbol->string e))
+				  ((widget? e) (widget->string e))
+				  ((number? e) (number->string e))
+				  (ELSE	       (format #f "~S" e)))))))))
+
+(define-macro (unwind-protect body . unwind-forms)
+  `(dynamic-wind
+    (lambda () #f)
+    (lambda () ,body)
+    (lambda () ,@unwind-forms)))
+
+(define-macro (when test . body)
+  `(if ,test ,@(if (= (length body) 1) body `((begin ,@body)))))
+
+(define-macro (unless test . body)
+  `(if (not ,test) ,@(if (= (length body) 1) body `((begin ,@body)))))
+
+(define-macro (multiple-value-bind vars form . body)
+  `(apply (lambda ,vars ,@body) ,form))
+
+
+;;; 
+;;; Set functions
+;;;
+
+(define (list->set l)
+  (letrec ((rem-dupl (lambda (l res)
+		       (cond
+			((null? l) 	     res)
+			((memv (car l) res) (rem-dupl (cdr l) res))
+			(ELSE		(rem-dupl (cdr l) (cons (car l) res)))))))
+    (rem-dupl l '())))
+
+(define (set-union l1 l2)
+  (list->set (append l1 l2)))
+
+(define (set-intersection l1 l2)
+  (cond ((null? l1) 	     l1)
+	((null? l2) 	     l2)
+	((memv (car l1) l2)  (cons (car l1) (set-intersection (cdr l1) l2)))
+	(else 		     (set-intersection (cdr l1) l2))))
+
+(define (set-difference l1 l2)
+  (cond ((null? l1) 	     l1)
+	((memv (car l1) l2)  (set-difference (cdr l1) l2))
+	(else 		     (cons (car l1) (set-difference (cdr l1) l2)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Autoloads
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(autoload "unix" 	basename dirname decompose-file-name)
+(autoload "process"	run-process process?)
+(autoload "regexp"	string->regexp regexp? regexp-replace regexp-replace-all)
+
+;; STklos
+(autoload "stklos" 	define-class define-method make define-generic slot-ref 
+	  		slot-set!)
+
+(autoload "describe"	describe)
+(autoload "hash"   	make-hash-table hash-table-hash)
+(autoload "socket"   	make-server-socket make-client-socket)
+
+
+;; martine packages 
+(autoload "pp"    pp)
+(autoload "trace" trace)
+
+
+
+;;;
+;;; quit and bye procedures. Since Tk redefine exit, they cannot be simple aliases
+;;;
+(define quit (lambda l (apply exit l)))
+(define bye  (lambda l (apply exit l)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Tk initializations
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define Tk:initialized?  #f)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Try to load user init file 
+;;;; Idea from (Olaf Burkart) burkart@zeus.informatik.rwth-aachen.de
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(let ((user-init ".stkrc"))
+  ;; First look in the current directory for an user initialization file.
+  (or (try-load (string-append "./" user-init))
+      ;; Otherwise have a look in the HOME directory.
+      (let ((home-dir (getenv "HOME")))
+	(and home-dir
+	     (try-load (string-append home-dir "/" user-init))))))
diff --git a/Lib/inspect-detail.stk b/Lib/inspect-detail.stk
new file mode 100644
index 0000000..1af8de4
--- /dev/null
+++ b/Lib/inspect-detail.stk
@@ -0,0 +1,544 @@
+;******************************************************************************
+;
+; Project       : STk-inspect, a graphical debugger for STk.
+;
+; File name     : inspect-detail.stk
+; Creation date : Aug-30-1993
+; Last update   : Sep-17-1993
+;
+;******************************************************************************
+;
+; This file implements the different kinds of "Detailers".
+;
+;******************************************************************************
+
+(provide "inspect-detail")
+
+(define Bug-correction read-from-string)
+;---- detailer widget
+
+(define DETAILER_WIDGET_NAME ".detailer")
+(define detailed-objects-list ())
+
+(define (detail-tl-wid obj) (widget DETAILER_WIDGET_NAME (object-symbol obj)))
+(define (detail-tl-str obj) (& DETAILER_WIDGET_NAME (object-symbol obj)))
+(define (detail-l-wid obj) (widget (detail-tl-str obj) ".f1.l"))
+(define (detail-l-str obj) (& (detail-tl-str obj) ".f1.l"))
+(define (detail-e-wid obj) (widget (detail-tl-str obj) ".f1.e"))
+(define (detail-e-str obj) (& (detail-tl-str obj) ".f1.e"))
+(define (detail-m-wid obj) (widget (detail-tl-str obj) ".menu.command.m"))
+(define (detail-m-str obj) (& (detail-tl-str obj) ".menu.command.m"))
+
+(define (detailed? obj) (member obj detailed-objects-list))
+
+(define (detail obj)
+  (if (member (inspect::typeof (inspect::eval obj))
+	      '(list pair vector closure widget))
+      [unless (detailed? obj) (detail-object obj)]
+      [error "The object ~s can not be detailed" obj]))
+
+(define (detail-object obj)
+  (set! detailed-objects-list (cons obj detailed-objects-list))
+  (unless (object-infos obj)
+	  (add-object-infos obj)
+	  (if (symbol? obj) (trace-var obj `(update-object ',obj))))
+  (let ((obj-val (inspect::eval obj)))
+    (case (inspect::typeof obj-val)
+      ((list pair vector) (detail-VPL obj))
+      ((closure)          (detail-procedure obj))
+      ((widget) 	  (when (= (winfo 'exists (detail-tl-wid obj-val)) 0)
+				(detail-widget obj))))))
+
+(define (undetail obj)
+  (if (detailed? obj) (undetail-object obj)))
+
+(define (undetail-object obj)
+  (let ((top (detail-tl-wid obj)))
+    (set! detailed-objects-list (list-remove obj detailed-objects-list))
+    (if (inspected? obj) ((inspect-m-wid obj) 'enable "Detail"))
+    (if (viewed? obj) ((view-m-wid obj) 'enable "Detail"))
+    (unless (or (inspected? obj) (viewed? obj))
+	    (remove-object-infos obj)
+	    (if (symbol? obj) (untrace-var obj)))
+    ;; If toplevel exists (i.e. it is not a <Destroy> event) destroy it
+    (if (= (winfo 'exists top) 1)
+	(destroy top))))
+
+(define (detail-display obj)
+  (case (inspect::typeof (inspect::eval obj))
+    ((vector pair list) (detail-VPL-display obj))
+    ((closure) (detail-procedure-display obj))
+    ((widget) (detail-widget-display obj))))
+
+
+;---- Detailer menu -----------------------------------------------------------
+
+(define (detail-menu-Eval entry obj)
+  (eval-string (format #f "(set! ~a ~a)" obj [entry 'get])))
+
+(define (detail-menu-Quote entry obj)
+  (eval-string (format #f "(set! ~a '~a)" obj [entry 'get])))
+
+(define (detail-menu-Inspect key)
+  (let ((obj (find-object-infos key)))
+    (inspect obj)
+    ((widget (detail-tl-str obj) ".menu.command.m") 'disable "Inspect")
+    (if (viewed? obj) ((view-w-wid obj) 'disable "Inspect"))))
+
+(define (detail-menu-Undetail key) (undetail (find-object-infos key)))
+
+(define (detail-menu-View key)
+  (let ((obj (find-object-infos key)))
+    (view obj)
+    ((widget (detail-tl-str obj) ".menu.command.m") 'disable "View")
+    (if (inspected? obj) ((inspect-m-wid obj) 'disable "View"))))
+
+
+;---- VPL menu ----------------------------------------------------------------
+
+(define (get-VPL-index obj)
+  (let ((s (tk-get (VPL-l-wid obj) :text)))
+    (string->number (substring s 6 (string-length s)))))
+
+(define (get-VPL-value obj) [(VPL-e-wid obj) 'get])
+
+(define (set-VPL-index&value obj index)
+  (tk-set! (VPL-l-wid obj) :text (& "Value " index))
+  (let ((value-w (VPL-e-wid obj)))
+    (value-w 'delete 0 'end)
+    (value-w 'insert 0 (->object (Bug-correction [(VPL-vlb-wid obj) 'get index])))))
+
+(define (VPL-menu-Eval obj)
+  (define index (get-VPL-index obj))
+  ((VPL-vlb-wid obj) 'delete index)
+  ((VPL-vlb-wid obj) 'insert index
+		     (->object (eval-string (get-VPL-value obj))))
+  (modify-VPL obj))
+
+(define (VPL-menu-Quote obj)
+  (define index (get-VPL-index obj))
+  ((VPL-vlb-wid obj) 'delete index)
+  ((VPL-vlb-wid obj) 'insert index (get-VPL-value obj))
+  (modify-VPL obj))
+
+
+;---- VPL detailer ------------------------------------------------------------
+
+(define (VPL-l-wid obj) (widget (detail-tl-str obj) ".value.l"))
+(define (VPL-l-str obj) (& (detail-tl-str obj) ".value.l"))
+(define (VPL-e-wid obj) (widget (detail-tl-str obj) ".value.e"))
+(define (VPL-e-str obj) (& (detail-tl-str obj) ".value.e"))
+(define (VPL-ilb-wid obj) (widget (detail-tl-str obj) ".list.lb1"))
+(define (VPL-ilb-str obj) (& (detail-tl-str obj) ".list.lb1"))
+(define (VPL-vlb-wid obj) (widget (detail-tl-str obj) ".list.lb2"))
+(define (VPL-vlb-str obj) (& (detail-tl-str obj) ".list.lb2"))
+
+(define (create-detail-toplevel-widget obj)
+  (define w (create-toplevel-widget (detail-tl-str obj)))
+  (define id-w (widget w ".id"))
+  (define menu-w (widget w ".menu"))
+  (set-id-label1 id-w "Object" 6)
+  (set-id-label2 id-w "Value" 6)
+  ((widget menu-w ".help.m") 'add 'command :label "Detailer"
+			     :command '(stk:make-help Detailer-help))
+  (pack [menubutton (& menu-w ".command") :text "Command"] :side "left")
+  (define cmd-w (eval [menu (& menu-w ".command.m")]))
+  (tk-set! (widget menu-w ".command") :menu cmd-w)
+  (cmd-w 'add 'command :label "Inspect" 
+	 	       :command `(detail-menu-Inspect ',(object-symbol obj)))
+  (if (inspected? obj) (cmd-w 'disable "Inspect"))
+  (cmd-w 'add 'command :label "Undetail"
+	 	       :command `(detail-menu-Undetail ',(object-symbol obj)))
+  (cmd-w 'add 'command :label "View" 
+		       :command `(detail-menu-View ',(object-symbol obj)))
+  (if (viewed? obj) (cmd-w 'disable "View"))
+
+  (if (modifiable-object? obj)
+      [begin
+	(bind (widget w ".id.f2.e") "<Return>" 
+	      `(detail-menu-Eval |%W| ',obj))
+	(bind (widget w ".id.f2.e") "<Shift-Return>" 
+	      `(detail-menu-Quote |%W| ',obj))]
+      [begin
+	(set-id-value id-w (format #f "~S" (inspect::eval obj)))
+	(inspect::shadow-entry (widget w ".id.f2.e"))])
+  
+  (bind w "<Destroy>" `(detail-menu-Undetail ',obj))
+  w)
+
+(define (detail-VPL obj)
+  (define w (create-detail-toplevel-widget obj))
+  ((widget w ".menu.help.m") 'add 'command)
+  (tk-set! (widget w ".id.f1.l2") :width 20)
+  (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+  (pack [frame (& w ".value")] :side "top" :fill "x" :padx 4 :pady 2)
+  (pack [label (& w ".value.l") :text "Value 0"] :side "left")
+  (pack [entry (& w ".value.e") :relief "sunken" :bd 2] :fill "x")
+  (pack [frame (& w ".list") :relief "sunken" :bd 2]
+	:fill "both" :expand "yes" :padx 4 :pady 2)
+  (pack [scrollbar (& w ".list.vsb") :orient "vertical"]
+	[listbox (& w ".list.lb1") :relief "raised" :bd 2 :geometry "4x8"]
+	:side "left" :fill "y")
+  (pack [listbox (& w ".list.lb2") :relief "raised" :bd 2]
+	:fill "both" :expand "yes")
+  (tk-listbox-single-select (& w ".list.lb1") (& w ".list.lb2"))
+  (if (modifiable-object? obj)
+      [begin
+	(bind (widget w ".value.e") "<Return>" `(VPL-menu-Eval ',obj))
+	(bind (widget w ".value.e") "<Shift-Return>" `(VPL-menu-Quote ',obj))]
+      [inspect::shadow-entry (widget w ".value.e")])
+
+  (bind (widget w ".list.lb1") "<Button-1>" `(VPL-select ',obj %y))
+  (bind (widget w ".list.lb2") "<Button-1>" `(VPL-select ',obj %y))
+  (tk-set! (widget w ".list.vsb") :command (& "scroll-VPL " w))
+  (tk-set! (widget w ".list.lb2") :yscroll (& w ".list.vsb 'set"))
+  (detail-VPL-display obj))
+
+(define (VPL-select obj y)
+  (let ((index-w (VPL-ilb-wid obj))
+	(value-w (VPL-vlb-wid obj))
+	(entry-w (VPL-e-wid obj))
+	(index ()))
+    [value-w 'select 'from [value-w 'nearest y]]
+    (set! index [value-w 'curselection])
+    (tk-set! (VPL-l-wid obj) :text (& "Value " index))
+    (let ((state [tk-get entry-w :state]))
+      (tk-set! entry-w :state "normal")
+      (entry-w 'delete 0 'end)
+      [entry-w 'insert 0 (->object (Bug-correction [value-w 'get index]))]
+      (tk-set! entry-w :state state))
+    [focus entry-w]))
+  
+(define (scroll-VPL w . param)
+  ((widget w ".list.lb1") 'yview (car param))
+  ((widget w ".list.lb2") 'yview (car param)))
+
+(define (select-VPL-value w index)
+  (let ((index-l (widget w ".value.l"))
+	(value-e (widget w ".value.e")))
+    (tk-set! index-l :text index)
+    (value-e 'delete 0 'end)
+    (value-e 'insert 0 (->object 
+			(Bug-correction ((widget w ".list.lb2") 'get index))))
+    (focus value-e)))
+
+;---- VPL display
+
+(define (detail-VPL-display obj)
+  (define id-w (& (detail-tl-str obj) ".id"))
+  (set-id-object id-w (->object obj))
+  (set-id-value id-w (->object (inspect::eval obj)))
+  (case (inspect::typeof (inspect::eval obj))
+    ((list) (detail-VPL-display-list obj))
+    ((pair) (detail-VPL-display-pair obj))
+    ((vector) (detail-VPL-display-vector obj)))
+  (let ((index (get-VPL-index obj)))
+    (if (< index [(VPL-ilb-wid obj) 'size])
+	(set-VPL-index&value obj index)
+	(set-VPL-index&value obj 0))))
+
+(define (detail-VPL-display-list obj)
+  (define w (detail-tl-wid obj))
+  (wm 'title w "List detailer")
+  ((widget w ".menu.help.m") 'entryconfig 2 :label "List detailer"
+			     :command '(stk:make-help List-detailer-help))
+  (let ((obj-val (inspect::eval obj))
+	(index-w (VPL-ilb-wid obj))
+	(value-w (VPL-vlb-wid obj))
+	(index 0))
+    (index-w 'delete 0 'end)
+    (value-w 'delete 0 'end)
+    (until (null? obj-val)
+	   (index-w 'insert 'end index)
+	   (value-w 'insert 'end (->object (car obj-val)))
+	   (set! obj-val (cdr obj-val))
+	   (set! index (+ index 1)))))
+
+(define (detail-VPL-display-pair obj)
+  (define w (detail-tl-wid obj))
+  (wm 'title w "Pair detailer")
+  ((widget w ".menu.help.m") 'entryconfig 2 :label "Pair detailer"
+			     :command '(stk:make-help Pair-detailer-help))
+  (let ((obj-val (inspect::eval obj))
+	(index-w (VPL-ilb-wid obj))
+	(value-w (VPL-vlb-wid obj))
+	(index 0))
+    (index-w 'delete 0 'end)
+    (value-w 'delete 0 'end)
+    (while (pair? obj-val)
+	   (index-w 'insert 'end index)
+	   (value-w 'insert 'end (->object (car obj-val)))
+	   (set! obj-val (cdr obj-val))
+	   (set! index (+ index 1)))
+    (index-w 'insert 'end (& "." index))
+    (value-w 'insert 'end (->object obj-val))))
+
+(define (detail-VPL-display-vector obj)
+  (define w (detail-tl-wid obj))
+  (wm 'title w "Vector detailer")
+  ((widget w ".menu.help.m") 'entryconfig 2 :label "Vector detailer"
+			     :command '(stk:make-help Vector-detailer-help))
+  (let* ((obj-val (inspect::eval obj))
+	 (length (vector-length obj-val))
+	 (index-w (VPL-ilb-wid obj))
+	 (value-w (VPL-vlb-wid obj)))
+    (index-w 'delete 0 'end)
+    (value-w 'delete 0 'end)
+    (for ((index 0 (+ index 1)))
+	 (< index length)
+	 (index-w 'insert 'end index)
+	 (value-w 'insert 'end (->object (vector-ref obj-val index))))))
+
+;---- VPL modify
+
+(define (modify-VPL obj)
+  (case (inspect::typeof (inspect::eval obj))
+    ((list) (modify-VPL-list obj))
+    ((pair) (modify-VPL-pair obj))
+    ((vector) (modify-VPL-vector obj))))
+
+(define (modify-VPL-list obj)
+  (let* ((value-w (VPL-vlb-wid obj))
+	 (cmd (format #f "(set! ~S '(" obj))
+	 (size (value-w 'size)))
+    (for ((i 0 (+ i 1)))
+	 (< i size)
+	 (set! cmd (string-append cmd 
+				  (->object (Bug-correction (value-w 'get i)))
+				  " ")))
+    (set! cmd (string-append cmd "))"))
+    (eval-string cmd)))
+
+(define (modify-VPL-pair obj)
+  (let* ((value-w (VPL-vlb-wid obj))
+	 (cmd (format #f "(set! ~S '(" obj))
+	 (size (value-w 'size))
+	 (size-1 (- size 1)))
+    (for ((i 0 (+ i 1)))
+	 (< i size-1)
+	 (set! cmd (string-append cmd 
+				  (->object (Bug-correction (value-w 'get i)))
+				  " ")))
+    (set! cmd (string-append cmd 
+			     ". " 
+			     (->object (Bug-correction (value-w 'get size-1)))
+			     "))"))
+    (eval-string cmd)))
+
+(define (modify-VPL-vector obj)
+  (let* ((value-w (VPL-vlb-wid obj))
+	 (cmd (format #f "(set! ~S '#(" obj))
+	 (size (value-w 'size)))
+    (for ((i 0 (+ i 1)))
+	 (< i size)
+	 (set! cmd (string-append cmd 
+				  (->object (Bug-correction (value-w 'get i)))
+				  " ")))
+    (set! cmd (string-append cmd "))"))
+    (eval-string cmd)))
+
+
+
+
+;---- Procedure detailer ------------------------------------------------------
+
+(define (inspect::pretty-print body) (pp (uncode body) #f))
+
+(define (detail-procedure-set obj)
+  (define text-w (widget (detail-tl-str obj) ".body.t"))
+  (eval-string (format #f "(set! ~a ~a)" obj (text-w 'get "1.0" 'end))))
+
+(define (detail-procedure obj)
+  (define w (create-detail-toplevel-widget obj))
+  (wm 'title w "Procedure detailer")
+  (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+  ((widget w ".menu.help.m") 'add 'command :label "Procedure detailer"
+			     :command '(stk:make-help Procedure-detailer-help))
+  (pack [label (& w ".menu.set") :text "Set"] :side "left")
+  (bind (widget w ".menu.set") "<ButtonPress-1>" `(detail-procedure-set ',obj))
+  (pack [frame (& w ".body") :relief "sunken" :bd 2]
+	:fill "both" :expand "yes" :padx 4 :pady 2)
+  (pack [scrollbar (& w ".body.vsb")
+		   :orient "vertical"
+		   :command (format #f "~a 'yview" (& w ".body.t"))]
+	:side "left" :fill "y")
+  (pack [text (& w ".body.t")
+	      :relief "raised" :bd 2 :width 60 :height 16
+	      :yscroll (format #f "~a 'set" (& w ".body.vsb"))]
+	:fill "both" :expand "yes")
+  (detail-procedure-display obj))
+
+(define (detail-procedure-display obj)
+  (define obj-val (inspect::eval obj))
+  (define id-w (& (detail-tl-str obj) ".id"))
+  (set-id-object id-w (->object obj))
+  (set-id-value id-w (->object obj-val))
+  (define body (procedure-body obj-val))
+  (define text-w (widget (detail-tl-str obj) ".body.t"))
+  (tk-set! text-w :state "normal")
+  (text-w 'delete "1.0" 'end)
+  (text-w 'insert "1.0" (inspect::pretty-print body))
+  (unless (symbol? obj)
+     (inspect::shadow-entry text-w)))
+
+
+;---- Widget detailer ---------------------------------------------------------
+
+(define (detail-widget obj)
+  (define w (create-detail-toplevel-widget obj))
+  (wm 'title w "Widget detailer")
+  (tk-set! (widget w ".id.f1.l2") :width 40)
+  ((widget w ".menu.help.m") 'add 'command :label "Widget detailer"
+			     :command '(stk:make-help Widget-detailer-help))
+  (pack [menubutton (& w ".menu.bindings") :text "Bindings"] :side "left")
+  (tk-set! (widget w ".menu.bindings") :menu [menu (& w ".menu.bindings.m")])
+  (detail-widget-create-options obj)
+  (detail-widget-display obj))
+
+(define (detail-widget-create-options obj)
+  (define w-str (detail-tl-str obj))
+  (catch (destroy (& w-str ".options")))
+  (pack [frame (& w-str ".options") :relief "raised" :bd 2]
+	:fill "both" :expand "yes" :padx 4 :pady 2)
+  (pack [frame (& w-str ".options.class")] 
+	:side "top" :fill "x" :padx 4 :pady 4)
+  (pack [label (& w-str ".options.class.l1")
+	       :text "Class" :width 16 :anchor "e"]
+	:side "left")
+  (pack [label (& w-str ".options.class.l2")
+	       :relief "groove" :bd 2 :anchor "w" :font ITALIC-MEDIUM_FONT]
+	:fill "x")
+  (let ((options-infos ((eval obj) 'config))
+	(i 1))
+    (for-each
+     (lambda (infos)
+       (if (= 5 (length infos))
+	   (let ((option-w (& w-str ".options.f" i))
+		 (s        (symbol->string (car infos))))
+	     (pack [frame option-w] :side "top" :fill "x" :padx 4)
+	     (pack [label (& option-w ".l")
+			  :text (substring s 1 (string-length s))
+			  :width 16 :anchor "e"]
+		   :side "left")
+	     (pack [entry (& option-w ".e") :relief "sunken" :bd 2] :fill "x")
+	     (bind (& option-w ".e") "<Return>"      `(WID-eval-option ',obj |%W|))
+	     (bind (& option-w ".e") "<Shift-Return>"`(WID-quote-option ',obj |%W|))
+	     (set! i (+ i 1)))))
+     options-infos))
+  (pack [frame (& w-str ".options.children")]
+	:side "top" :fill "x" :padx 4 :pady 4)
+  (pack [label (& w-str ".options.children.1")
+	       :text "Children" :width 16 :anchor "e"]
+	:side "left")
+  (pack [entry (& w-str ".options.children.e")
+	       :relief "groove" :bd 2 :state "disabled" :font MEDIUM_FONT]
+	:fill "x")
+  (update 'idletasks)
+  (define req-h (winfo 'reqheight w-str))
+  (wm 'minsize w-str 0 req-h)
+  (wm 'maxsize w-str SCREEN_WIDTH req-h))
+
+(define (WID-bindings-menu-str obj) (& (detail-tl-str obj) ".menu.bindings.m"))
+(define (WID-bindings-menu-wid obj)
+  (widget (detail-tl-str obj) ".menu.bindings.m"))
+
+(define (binding->string binding)
+  (let ((binding (if (string? binding) binding (symbol->string binding))))
+    (substring binding 1 (- (string-length binding) 1))))
+
+(define (WID-bindings-menu-add obj binding)
+  (if (catch ((WID-bindings-menu-wid obj) 'index binding))
+      ((WID-bindings-menu-wid obj) 'add 'command 
+	   :label    (symbol->string binding)
+	   :command `(show-binding ',(object-symbol obj) 
+				   ,(symbol->string  binding)))))
+
+(define (show-binding key binding)
+  (let* ((obj     (find-object-infos key))
+	 (obj-val (inspect::eval obj))
+	 (name    (string-lower (binding->string binding)))
+	 (body    (bind obj-val binding)))
+    
+    (if (null? body) (set! body (bind (winfo 'class obj-val) binding)))
+    ((WID-bindings-menu-wid obj) 'disable binding)
+    (define w (& (detail-tl-str obj) "._" name))
+    (create-toplevel-widget w)
+    (wm 'title w "Widget binding")
+    (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+    (set-id-label1 (& w ".id") "Widget" 6)
+    (set-id-object (& w ".id") (->object obj))
+    (set-id-label2 (& w ".id") "Binding" 6)
+    (set-id-value (& w ".id") binding)
+    (inspect::shadow-entry (string->widget (& w ".id.f2.e")))
+    (pack [button (& w ".menu.dismiss") 
+		  :text "Dismiss" 
+		  :relief "flat"
+		  :command `(begin 
+			      ((WID-bindings-menu-wid ,obj-val) 
+			       		'enable ',binding)
+			      (destroy ,w))]
+	  :side "left")
+
+    (pack [button (& w ".menu.set") 
+		  :text "Set binding"
+		  :relief "flat"
+		  :command `(bind ,obj-val ,binding [(widget ,w ".body.t")
+						     'get "1.0" 'end])]
+	  :side "left")
+    (pack [frame (& w ".body") :relief "sunken" :bd 2]
+	  :fill "both" :expand "yes" :padx 4 :pady 2)
+    (pack [scrollbar (& w ".body.vsb") :orient "vertical"]
+	  :side "left" :fill "y")
+    (pack [text (& w ".body.t") :relief "raised" :bd 2 :width 60 :height 8]
+	  :fill "both" :expand "yes")
+    ((widget w ".body.t") 'insert "1.0" (inspect::pretty-print body))))
+
+
+(define (detail-widget-display obj)
+  (define obj-val (inspect::eval obj))
+  (define w-str (detail-tl-str obj))
+  (define id-w (widget w-str ".id"))
+  (set-id-object id-w (->object obj))
+  (set-id-value id-w (->object obj-val))
+  (tk-set! (widget w-str ".options.class.l2") :text (winfo 'class obj-val))
+  (define children-w (widget w-str ".options.children.e"))
+  (tk-set! children-w :state "normal")
+  (children-w 'delete 0 'end)
+  (children-w 'insert 0 (winfo 'children obj-val))
+  (tk-set! children-w :state "disabled")
+  (let ((options-infos (obj-val 'config))
+	(i 1))
+    (for-each
+     (lambda (infos)
+       (if (= 5 (length infos))
+	   (let ((option-w (widget w-str ".options.f" i ".e")))
+	     (option-w 'delete 0 'end)
+	     (option-w 'insert 0 (list-ref infos 4))
+	     (set! i (+ i 1)))))
+     options-infos))
+  (define menu-w (WID-bindings-menu-wid obj))
+  (menu-w 'delete 0 'last)
+  (for-each (lambda (binding) (WID-bindings-menu-add obj binding))
+	    (bind obj-val))
+  (menu-w 'add 'separator)
+  (for-each (lambda (binding) (WID-bindings-menu-add obj binding))
+	    (bind [winfo 'class obj-val])))
+
+(define (WID-eval-option obj window)
+  (let ((parent (winfo 'parent window)))
+    (eval-string 
+     (format #f "(tk-set! ~a :~a ~s)"
+	        obj
+		(tk-get (widget parent ".l") :text)
+		(eval-string (window 'get))))))
+
+(define (WID-quote-option obj window)
+ (let ((parent (winfo 'parent window)))
+    (eval-string 
+     (format #f "(tk-set! ~a :~a ~s)"
+	        obj
+		(tk-get (widget parent ".l") :text)
+		(window 'get)))))
+
+
+
diff --git a/Lib/inspect-help.stk b/Lib/inspect-help.stk
new file mode 100644
index 0000000..a54e426
--- /dev/null
+++ b/Lib/inspect-help.stk
@@ -0,0 +1,356 @@
+;******************************************************************************
+;
+; Project       : STk-inspect, a graphical debugger for STk
+;
+; File name     : inspect-help.stk
+; Creation date : Sep-16-1993
+; Last update   : Sep-17-1993
+;
+;******************************************************************************
+;
+; This file contains help variables.
+;
+;******************************************************************************
+
+(provide "inspect-help")
+
+(define STk-inspect-help '("STF-0.1" "
+STk-inspect\n\n
+STk-inspect is a graphical inspector for STk (the Scheme/Tk based language).
+
+It is the firt step toward a more general debugger . For now, it only permits to visualize and modify STk objects. 
+
+Original code written by Eric Fintzel (fintzel@kaolin.unice.fr)
+Hacked for version 2 by Erick Gallesio (eg@unice.fr)
+" ((bold-italic-12 ("5.0" "5.11" "5.41" "5.44")) (roman-18 ("2.0" "2.11")) (fixed ("9.39" "9.62" "10.40" "10.51")) (normal ("2.11" "5.0")))))
+
+;---- Help for (inspect,help) "General inspector"
+
+(define General-Inspector-help '("STF-0.1" "
+General inspector
+
+
+The General inspector is the simplest tool to trace STk objects. It allows you to watch and modify every kind of object.
+
+To inspect an object
+
+You can use the STk 
+
+        (inspect object) 
+
+command. For instance, if you want to inspect the variable my-variable, just type:
+          STk> (inspect 'my-variable)
+
+You can also select the Inspect option in an other STk-inspect tool (detailer, viewer,...).
+
+To uninspect an object
+
+You can use the STk
+
+        (uninspect object) 
+
+command, or you can select the Uninspect option in the Icon menu associated with the object line inspector.
+
+Screen organization                   
+
+The General inspector is a toplevel window divided in 2 areas: a menu bar and a list of all inspected objects.
+
+Menu area
+Menu area comports two buttons:
+
+         Command menu
+         The Uninspect all option uninspects all inspected objects and destroy the           General inspector window.
+         The Undebug option destroys all the STk-inspect toplevel windows.
+
+         Help menu
+         The STk-inspect option gives a general help about STk-inspect.
+         The General inspector option gives this help.
+
+Inspected objects area
+Each line of the list concerns one object, a line is divided in 3 fields:
+
+        The Object field contains the inspected object.
+
+        The Value field contains the value of the object (the result of the object evaluation). You can modify the object by editing this field. A <Return> validation affects to the object the result of the field contents evaluation, while a <Shift-Return> validation  affects to the object the field contents without evaluation.
+
+        The Icon provides actions on the object.
+" ((bold-italic-12 ("7.0" "7.20" "18.0" "18.22" "26.0" "26.19" "38.13" "38.24")) (italic-12 ("16.69" "16.89" "24.31" "24.40" "28.65" "28.73" "28.80" "28.84" "33.9" "34.0" "34.13" "34.26" "35.13" "35.20" "37.9" "38.0" "39.13" "39.30" "44.12" "44.19" "46.12" "46.18" "48.12" "48.16")) (roman-18 ("2.0" "2.17")) (roman-12 ("7.20" "8.0" "30.0" "30.9" "41.0" "41.22")) (fixed ("11.8" "11.24" "13.59" "13.70" "14.10" "14.37" "22.8" "22.26" "46.147" "46.155" "46.242" "46.257")) (underline ("2.0" "3.0" "7.0" "7.20" "18.0" "18.22" "26.0" "26.19" "33.9" "34.0" "37.9" "38.0")))))
+
+
+;---- Help for (detail,help) "Detailer"
+
+(define Detailer-help '("STF-0.1" "
+Detailer
+
+A detailer is a STk-inspect tool which allows you to see STk objects with more details.
+
+For instance, a list detailer shows you the structure of a list where you can edit each element of the list; a procedure detailer permits you to edit the body of a procedure; a widget detailer allows you to access directly the whole option fields of a widget; and so on...
+
+For now, there are detailers for lists, pairs vectors, procedures and widgets.
+
+To detail an object
+
+You can use the STk 
+
+        (detail object)
+
+command. For example, if you want to detail the list my-list, type:
+
+        STk> (detail my-list)
+
+You can also select the Detail option in an other STk-inspect tool (inspector, viewer, ...).
+
+To undetail an object
+
+You can use the STk 
+
+        (undetail object)
+
+command or you can select the Undetail option in the Command menu of the object detailer window.
+" ((bold-italic-12 ("10.0" "10.19" "22.0" "22.21")) (italic-12 ("6.16" "6.29" "6.111" "6.130" "6.177" "6.192" "8.33" "8.77" "16.53" "16.60" "20.24" "20.30" "20.68" "20.77" "20.79" "20.90" "22.21" "23.0" "28.30" "28.38" "28.53" "28.65")) (roman-18 ("2.0" "2.8")) (fixed ("14.8" "14.23" "18.8" "19.0" "26.8" "26.25")) (underline ("2.0" "2.8" "10.0" "10.19" "22.0" "23.0")))))
+
+;---- Help for (detail,help) "List detailer"
+
+(define List-detailer-help '("STF-0.1" "
+List detailer
+
+
+A list detailer is a STk-inspect tool which shows you the structure of a list.
+
+The list detailer window is divided in 3 areas:
+the Id area, a menu bar and the elements list.
+
+Id area
+
+This area identifies the list you detail, it contains 2 fields:
+
+        The object field contains the object detailed.
+
+        The Value field contains the value of the object (a list resulting of the object evaluation). You can modify the object by editing this field. A  <Return> validation affects to the object the result of the field contents evaluation, while a <Shift-Return> validation affects to the object the field contents without evaluation.
+
+After a modification, if the object type is no more a list, the detailer is adapted.
+
+
+Menu bar
+
+Two sub-menus are provided:
+
+        Command menu
+        The Inspect  option calls the General inspector for the detailed object.
+        The Undetail option destroys the list detailer window.
+        The View option calls the Viewer for the detailed object.
+
+        Help menu
+        The STk-inspect option gives a general help about STk-inspect.
+        The Detailer option gives a general help about detailers tools.
+        The List detailer option gives this help.
+
+Elements list
+
+This area displays all the elements of the detailed list (with indexes). You can select a particular element with mouse button 1, its value will appear on the Value <index> entry, and you can modify it (validation of your entry can be done using the current way: <Return> and <Shift-Return>)).
+" ((tty-12 ("16.154" "16.162" "16.249" "16.264" "37.160" "37.174" "37.264" "37.272" "37.277" "37.292")) (bold-italic-12 ("10.0" "10.7" "21.0" "22.0" "35.0" "35.13")) (italic-12 ("8.4" "8.11" "8.15" "8.24" "8.32" "8.45" "14.12" "14.18" "16.12" "16.17" "25.8" "25.20" "26.12" "26.21" "27.12" "27.20" "28.12" "28.16" "30.8" "31.0" "31.12" "31.23" "32.12" "32.20" "33.12" "33.25")) (roman-18 ("2.0" "2.13")) (underline ("2.0" "2.13" "10.0" "10.7" "21.0" "22.0" "25.8" "25.20" "30.8" "31.0" "35.0" "35.13")))))
+
+
+
+;---- Help for (detail,help) "Pair detailer"
+
+(define Pair-detailer-help '("STF-0.1" "
+Pair detailer
+
+
+A pair detailer is a STk-inspect tool which shows you the structure of a pair.
+
+The pair detailer window is divided in 3 areas:
+the Id area, a menu bar and the elements list.
+
+Id area
+
+This area identifies the pair you detail, it contains 2 fields:
+
+        The object field contains the object detailed.
+
+        The Value field contains the value of the object (a pair resulting of the object evaluation). You can modify the object by editing this field. A  <Return> validation affects to the object the result of the field contents evaluation, while a <Shift-Return> validation affects to the object the field contents without evaluation.
+
+After a modification, if the object type is no more a pair, the detailer is adapted.
+
+
+Menu bar
+
+Two sub-menus are provided:
+
+        Command menu
+        The Inspect  option calls the General inspector for the detailed object.
+        The Undetail option destroys the pair detailer window.
+        The View option calls the Viewer for the detailed object.
+
+        Help menu
+        The STk-inspect option gives a general help about STk-inspect.
+        The Detailer option gives a general help about detailers tools.
+        The List detailer option gives this help.
+
+Elements list
+
+This area displays all the elements of the detailed list (with indexes). Note that the last element has a pointed index. You can select a particular element with mouse button 1, its value will appear on the Value <index> entry, and you can modify it (validation of your entry can be done using the current way: <Return> and <Shift-Return>)).
+" ((tty-12 ("16.154" "16.162" "16.249" "16.264" "37.207" "37.221" "37.311" "37.319" "37.324" "37.339")) (bold-italic-12 ("10.0" "10.7" "21.0" "22.0" "35.0" "35.13")) (italic-12 ("8.4" "8.11" "8.15" "8.24" "8.32" "8.45" "14.12" "14.18" "16.12" "16.17" "25.8" "25.20" "26.12" "26.21" "27.12" "27.20" "28.12" "28.16" "30.8" "31.0" "31.12" "31.23" "32.12" "32.20" "33.12" "33.25")) (roman-18 ("2.0" "2.13")) (underline ("2.0" "2.13" "10.0" "10.7" "21.0" "22.0" "25.8" "25.20" "30.8" "31.0" "35.0" "35.13"))))
+)
+
+
+;---- Help for (detail,help) "Vector detailer"
+
+(define Vector-detailer-help '("STF-0.1" "
+Vector detailer
+
+
+A vector detailer is a STk-inspect tool which shows you the structure of a vector.
+
+The vector detailer window is divided in 3 areas:
+the Id area, a menu bar and the elements list.
+
+Id area
+
+This area identifies the vector you detail, it contains 2 fields:
+
+        The object field contains the object detailed.
+
+        The Value field contains the value of the object (a vector resulting of the object evaluation). You can modify the object by editing this field. A  <Return> validation affects to the object the result of the field contents evaluation, while a <Shift-Return> validation affects to the object the field contents without evaluation.
+
+After a modification, if the object type is no more a vector, the detailer is adapted.
+
+
+Menu bar
+
+Two sub-menus are provided:
+
+        Command menu
+        The Inspect  option calls the General inspector for the detailed object.
+        The Undetail option destroys the vector detailer window.
+        The View option calls the Viewer for the detailed object.
+
+        Help menu
+        The STk-inspect option gives a general help about STk-inspect.
+        The Detailer option gives a general help about detailers tools.
+        The List detailer option gives this help.
+
+Elements list
+
+This area displays all the elements of the detailed vector (with indexes). Note that the last element has a pointed index. You can select a particular element with mouse button 1, its value will appear on the Value <index> entry, and you can modify it (validation of your entry can be done using the current way: <Return> and <Shift-Return>)).
+" ((tty-12 ("16.156" "16.164" "16.251" "16.266" "37.209" "37.223" "37.313" "37.321" "37.326" "37.341")) (bold-italic-12 ("10.0" "10.7" "21.0" "22.0" "35.0" "35.13")) (italic-12 ("8.4" "8.11" "8.15" "8.24" "8.32" "8.45" "14.12" "14.18" "16.12" "16.17" "25.8" "25.20" "26.12" "26.21" "27.12" "27.20" "28.12" "28.16" "30.8" "31.0" "31.12" "31.23" "32.12" "32.20" "33.12" "33.25")) (roman-18 ("2.0" "3.0")) (underline ("2.0" "3.0" "10.0" "10.7" "21.0" "22.0" "25.8" "25.20" "30.8" "31.0" "35.0" "35.13"))))
+)
+
+
+;---- Help for (detail,help) "Procedure detailer"
+
+(define Procedure-detailer-help '("STF-0.1" "
+Procedure detailer
+
+
+A procedure detailer is a STk-inspect tool which allows you to see and edit the body of a procedure.
+
+The procedure detailer window is divided in 3 areas:
+the Id area, a menu bar and the body area.
+
+Id area
+
+This area identifies the procedure you detail, it contains 2 fields:
+
+        The object field contains the object detailed.
+
+        The Value field contains the value of the object (a procedure resulting of the object evaluation). You can modify the object by editing this field. A  <Return> validation affects to the object the result of the field contents evaluation, while a <Shift-Return> validation affects to the object the field contents without evaluation.
+
+After a modification, if the object type is no more a procedure, the detailer is adapted.
+
+
+Menu bar
+
+Two sub-menus are provided:
+
+        Command menu
+        The Inspect  option calls the General inspector for the detailed object.
+        The Undetail option destroys the procedure detailer window.
+        The View option calls the Viewer for the detailed object.
+
+        Help menu
+        The STk-inspect option gives a general help about STk-inspect.
+        The Detailer option gives a general help about detailers tools.
+        The List detailer option gives this help.
+
+Body area
+
+This area displays the procedure body, and allows you to edit it." ((tty-12 ("16.156" "16.164" "16.251" "16.266")) (bold-italic-12 ("10.0" "10.7" "21.0" "22.0" "35.0" "37.0")) (italic-12 ("8.4" "8.11" "8.15" "8.24" "8.32" "8.41" "14.12" "14.18" "16.12" "16.17" "25.8" "25.20" "26.12" "26.21" "27.12" "27.20" "28.12" "28.16" "30.8" "31.0" "31.12" "31.23" "32.12" "32.20" "33.12" "33.25")) (roman-18 ("2.0" "3.0")) (normal ("37.0" "37.65")) (underline ("2.0" "3.0" "10.0" "10.7" "21.0" "22.0" "25.8" "25.20" "30.8" "31.0" "35.0" "37.0"))))
+)
+
+
+;---- Help for (detail,help) "Widget detailer"
+
+(define Widget-detailer-help '("STF-0.1" "
+Widget detailer
+
+
+A widget detailer is a STk-inspect tool which allows you to see and edit the characteristics of a widget.
+
+The widget detailer window is divided in 3 areas:
+the Id area, a menu bar and the option area.
+
+Id area
+
+This area identifies the widget you detail, it contains 2 fields:
+
+        The object field contains the object detailed.
+
+        The Value field contains the widget name of the object.
+
+After a modification, if the object type is no more a widget, the detailer is adapted.
+
+
+Menu bar
+
+Three sub-menus are provided:
+
+        Command menu
+        The Inspect  option calls the General inspector for the detailed object.
+        The Undetail option destroys the widget detailer window.
+        The View option calls the Viewer for the detailed object.
+
+         Bindings menu
+        This menu contains all the bindings associated with the widget (the widget bindings are listed before the widget class bindings). You can select a binding to edit it.
+
+        Help menu
+        The STk-inspect option gives a general help about STk-inspect.
+        The Detailer option gives a general help about detailers tools.
+        The Widget detailer option gives this help.
+
+Option area
+
+This area displays all the options of the detailed widget. You can edit an option using the current way <Return> and <Shift-Return>" ((tty-12 ("40.104" "40.113" "40.117" "40.131")) (bold-italic-12 ("10.0" "10.7" "21.0" "22.0" "38.0" "40.0")) (italic-12 ("8.4" "8.11" "8.15" "8.24" "8.32" "8.43" "14.12" "14.18" "16.12" "16.17" "25.8" "25.20" "26.12" "26.21" "27.12" "27.20" "28.12" "28.16" "30.8" "31.0" "33.8" "34.0" "34.12" "34.23" "35.12" "35.20" "36.12" "36.27")) (roman-18 ("2.0" "3.0")) (normal ("31.0" "33.0" "40.0" "40.104" "40.113" "40.117")) (underline ("2.0" "3.0" "10.0" "10.7" "21.0" "22.0" "25.8" "25.20" "30.8" "31.0" "33.8" "34.0" "38.0" "40.0"))))
+)
+
+
+;---- Help for (view,help) "Viewer"
+
+(define Viewer-help '("STF-0.1" "
+Viewer
+
+A viewer is a STk-inspect tool which gives you a graphical representation of STk objects.
+
+All object types can be viewed; particular viewer are provided for procedures and widgets.
+
+To view an object
+
+You can use the STk 
+
+         (view object) 
+
+command. For example, if you want to view the list my-list, type:
+
+        (view 'my-list)
+
+You can also select the View option in an other STk-inspect tool.
+
+To unview an object
+
+You can use the STk 
+
+        (unview object) 
+
+command. Or you can select the Unview option in the Command menu of the object viewer window." ((tty-12 ("12.9" "13.0" "14.51" "14.59" "16.8" "17.0" "24.8" "24.24")) (bold-italic-12 ("8.0" "8.17" "20.0" "21.0")) (italic-12 ("6.67" "6.77" "6.82" "6.89" "18.24" "18.28" "26.31" "26.37" "26.52" "26.59")) (roman-18 ("2.0" "2.6")) (underline ("2.0" "2.6" "8.0" "8.17" "20.0" "21.0"))))
+)
diff --git a/Lib/inspect-main.stk b/Lib/inspect-main.stk
new file mode 100644
index 0000000..309b791
--- /dev/null
+++ b/Lib/inspect-main.stk
@@ -0,0 +1,190 @@
+;******************************************************************************
+;
+; Project       : STk-inspect, a graphical debugger for STk
+;
+; File name     : inspect-main.stk
+; Creation date : Aug-10-1993
+; Last update   : Sep-17-1993
+;
+;******************************************************************************
+;
+; This file implements the "General inspector".
+;
+;******************************************************************************
+
+(provide "inspect-main")
+(require "inspect-misc")
+(require "inspect-view")
+(require "inspect-detail")
+(require "inspect-help")
+
+(define INSPECTOR_WIDGET_NAME 	 ".inspector")
+(define inspected-objects-list   ())
+
+(define (inspected? obj) (member obj inspected-objects-list))
+
+(define (inspect-frame-wid obj)
+  (widget INSPECTOR_WIDGET_NAME ".f1." (object-symbol obj)))
+(define (inspect-frame-str obj)
+  (& INSPECTOR_WIDGET_NAME ".f1." (object-symbol obj)))
+
+(define (inspect-l-wid obj) (widget (inspect-frame-str obj) ".l"))
+(define (inspect-l-str obj) (& (inspect-frame-str obj) ".l"))
+(define (inspect-e-wid obj) (widget (inspect-frame-str obj) ".e"))
+(define (inspect-e-str obj) (& (inspect-frame-str obj) ".e"))
+(define (inspect-mb-wid obj) (widget (inspect-frame-str obj) ".mb"))
+(define (inspect-mb-str obj) (& (inspect-frame-str obj) ".mb"))
+(define (inspect-m-str obj) (& (inspect-frame-str obj) ".mb.m"))
+(define (inspect-m-wid obj) (widget (inspect-frame-str obj) ".mb.m"))
+
+
+;---- Inspector menu
+
+(define (create-inspect-menu obj)
+  (define w (eval [menu (inspect-m-str obj)]))
+  (w 'add 'command :label "Uninspect" 
+     		   :command `(inspect-menu-Uninspect ',(object-symbol obj)))
+  (w 'add 'command :label "Detail"
+     		   :command `(inspect-menu-Detail ',(object-symbol obj)))
+  (if (detailed? obj) ((inspect-m-wid obj) 'disable "Detail"))
+  (w 'add 'command :label "View" 
+     		   :command `(inspect-menu-View ',(object-symbol obj)))
+  (if (viewed? obj) ((inspect-m-wid obj) 'disable "View")))
+
+(define (inspect-menu-Eval obj)
+  (eval-string (format #f "(set! ~a ~a)" obj ((inspect-e-wid obj) 'get))))
+
+(define (inspect-menu-Quote obj)
+  (eval-string (format #f "(set! ~a '~a)" obj ((inspect-e-wid obj) 'get))))
+
+(define (inspect-menu-Uninspect key)
+  (uninspect (find-object-infos  key)))
+
+(define (inspect-menu-Detail key)
+  (let ((obj (find-object-infos  key)))
+    (detail obj)
+    ((inspect-m-wid obj) 'disable "Detail")
+    (if (viewed? obj) ((view-m-wid obj) 'disable "Detail"))))
+
+(define (inspect-menu-View key)
+  (let ((obj (find-object-infos  key)))
+    (view obj)
+    ((inspect-m-wid obj) 'disable "View")
+    (if (detailed? obj) ((detail-m-wid obj) 'disable "View"))))
+
+(define (create-inspector)
+  (define w [toplevel INSPECTOR_WIDGET_NAME])
+  (wm 'title w "General inspector")
+  (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+  (define menu-w (create-menu-widget (& INSPECTOR_WIDGET_NAME ".menu")))
+  (pack menu-w :side "top" :fill "x" :padx 4 :pady 2)
+  ((widget menu-w ".help.m") 'add 'command :label "General inspector"
+			     :command '(stk:make-help General-Inspector-help))
+  (pack [menubutton (& INSPECTOR_WIDGET_NAME ".menu.command") :text "Command"]
+	:side "left")
+  (define cmd-w (eval [menu (& INSPECTOR_WIDGET_NAME ".menu.command.m")]))
+  (cmd-w 'add 'command :label "Uninspect all" :command '(destroy-inspector))
+  (cmd-w 'add 'command :label "Undebug" :command '(undebug))
+  (tk-set! (widget INSPECTOR_WIDGET_NAME ".menu.command") :menu cmd-w)
+  (pack [frame (& INSPECTOR_WIDGET_NAME ".caption")]
+	:side "top" :fill "x" :padx 4)
+  (pack [label (& INSPECTOR_WIDGET_NAME ".caption.l1")
+	       :text "Objects" :width 20]
+	:side "left")
+  (pack [label (& INSPECTOR_WIDGET_NAME ".caption.l2")
+	       :text "Values" :width 40]
+	:side "left" :padx 4)
+  (pack [frame (& INSPECTOR_WIDGET_NAME ".f1")]
+	:fill "both" :expand "yes" :padx 4 :pady 2))
+
+
+(define (destroy-inspector) 
+  (for-each uninspect-object inspected-objects-list))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; inspect
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (inspect obj)
+  (when (= (winfo 'exist INSPECTOR_WIDGET_NAME) 0) (create-inspector))
+  ;; Kludge to avoid problems . Should be modified [eg]
+  (let ((obj-val (inspect::eval obj)))
+    (when (eqv? (inspect::typeof obj-val) 'widget)
+	  (set! obj obj-val)))
+
+  (unless (inspected? obj)
+     (inspect-object obj)
+     (let ((obj-val (format #f "~S" (inspect::eval obj))))
+       (pack [frame (inspect-frame-str obj)] :side "top" :fill "x")
+       (pack [menubutton (inspect-mb-str obj)
+			 :relief "raised" :bd 2 :bitmap BITMAP_MENU]
+	     :side "right")
+       (pack [label (inspect-l-str obj) :relief "groove" :bd 2
+		    :anchor "w" :text (format #f "~S" obj)
+		    :width 20 :font MEDIUM_FONT]
+	     :side "left")
+       (pack [entry (inspect-e-str obj) :relief "sunken" :bd 2 :width 40] 
+	     :fill "x" :expand "yes" :padx 4)
+       (create-inspect-menu obj)
+       (tk-set! (inspect-mb-wid obj) :menu (inspect-m-wid obj))
+       
+       (let ((E (inspect-e-wid obj)))
+	 (E 'insert 0 obj-val)
+
+	 ;; If obj is a symbol, lets the entry modifiable. Otherwise let it as is
+	 (if (modifiable-object? obj)
+	     [begin
+	       (bind E "<Return>" 	`(inspect-menu-Eval ',obj))
+	       (bind E "<Shift-Return>" `(inspect-menu-Quote ',obj))]
+	     [inspect::shadow-entry E]))))
+
+  ;; Destroy Event -> set the list of inspected object to '()
+  (bind  INSPECTOR_WIDGET_NAME "<Destroy>" '(set! inspected-objects-list '()))
+
+  ;; Allow resizing only in width
+  (update 'idletasks)
+  (let ((req-h (winfo 'reqheight INSPECTOR_WIDGET_NAME)))
+    (wm 'minsize INSPECTOR_WIDGET_NAME 0 req-h)
+    (wm 'maxsize INSPECTOR_WIDGET_NAME SCREEN_WIDTH req-h)
+    (wm 'geometry INSPECTOR_WIDGET_NAME 
+	(& (winfo 'width INSPECTOR_WIDGET_NAME) "x" req-h))))
+
+(define (inspect-object obj)
+  (set! inspected-objects-list (cons obj inspected-objects-list))
+  (unless (object-infos obj)
+	  (add-object-infos obj)
+	  (if (symbol? obj) (trace-var obj `(update-object ',obj)))))
+
+(define (inspect-display obj)
+  (let ((entry-w (inspect-e-wid obj)))
+    (entry-w 'delete 0 'end)
+    (entry-w 'insert 0 (->object (eval obj)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; uninspect
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (uninspect obj)
+  (when (inspected? obj) (uninspect-object obj))     
+  (update 'idletasks)
+  (when (= (winfo 'exist INSPECTOR_WIDGET_NAME) 1)
+	(let ((req-h (winfo 'reqheight INSPECTOR_WIDGET_NAME)))
+	  (wm 'minsize INSPECTOR_WIDGET_NAME 0 req-h)
+	  (wm 'maxsize INSPECTOR_WIDGET_NAME SCREEN_WIDTH req-h)
+	  (wm 'geometry INSPECTOR_WIDGET_NAME 
+	      (& (winfo 'width INSPECTOR_WIDGET_NAME) "x" req-h)))))
+
+
+(define (uninspect-object obj)
+  (set! inspected-objects-list (list-remove obj inspected-objects-list))
+  (destroy (inspect-frame-wid obj))
+  (when (null? inspected-objects-list) (destroy INSPECTOR_WIDGET_NAME))
+  (if (detailed? obj) ((detail-m-wid obj) 'enable "Inspect"))
+  (if (viewed? obj)   ((view-m-wid obj)   'enable "Inspect"))
+  (unless (or (detailed? obj) (viewed? obj))
+	  (remove-object-infos obj)
+	  (if (symbol? obj) (untrace-var obj))))
diff --git a/Lib/inspect-misc.stk b/Lib/inspect-misc.stk
new file mode 100644
index 0000000..8fb6481
--- /dev/null
+++ b/Lib/inspect-misc.stk
@@ -0,0 +1,310 @@
+;******************************************************************************
+;
+; Project       : STk-inspect, a graphical debugger for STk
+;
+; File name     : inspect-misc.stk
+; Creation date : Aug-30-1993
+; Last update   : Sep-17-1993
+;
+;******************************************************************************
+;
+; This file contains definitions often used.
+;
+;******************************************************************************
+
+(provide "inspect-misc")
+
+(define BITMAP_MENU 		(& "@" *stk-library* "/bitmaps/menu.bm"))
+(define FIXED_FONT 		"-adobe-courier-bold-r-*-*-*-140-*-*-*-*-*-*")
+(define MEDIUM_FONT 		"-adobe-helvetica-medium-r-*-*-*-120-*-*-*-*-*-*")
+(define BOLD_FONT 		"-adobe-helvetica-bold-r-*-*-*-120-*-*-*-*-*-*")
+(define ITALIC-MEDIUM_FONT 	"-adobe-helvetica-medium-o-*-*-*-120-*-*-*-*-*-*")
+
+(define COURIER_BR14 		"-adobe-courier-bold-r-*-*-*-140-*-*-*-*-*-*")
+(define HELVETICA_BR12 		"-adobe-helvetica-bold-r-*-*-*-120-*-*-*-*-*-*")
+(define HELVETICA_BO12 		"-adobe-helvetica-bold-o-*-*-*-120-*-*-*-*-*-*")
+(define HELVETICA_MR12 		"-adobe-helvetica-medium-r-*-*-*-120-*-*-*-*-*-*")
+(define HELVETICA_MO12 		"-adobe-helvetica-medium-o-*-*-*-120-*-*-*-*-*-*")
+(define HELVETICA_MO10 		"-adobe-helvetica-medium-o-*-*-*-100-*-*-*-*-*-*")
+(define SCREEN_WIDTH		(winfo 'vrootwidth  *root*))
+(define SCREEN_HEIGHT		(winfo 'vrootheight *root*))
+
+
+;******************************************************************************
+;
+; General definitions and macros extending STk.
+;
+;******************************************************************************
+
+;---- A special eval
+(define (inspect::eval x)
+  (if (and (symbol? x) (symbol-bound? x)) (eval x) x))
+
+;---- Predicates
+
+(define-macro (not-equal? x y) `(not (equal? ,x ,y)))
+(define-macro (different? x y) `(not (equal? ,x ,y)))
+
+;---- Operators
+
+(define-macro (<> x y)
+  `(not (= ,x ,y)))
+
+
+(define (inspect::typeof obj)
+  (cond ((boolean? obj)	 'boolean)
+        ((list? obj)	 'list)
+        ((pair? obj)	 'pair)
+        ((symbol? obj)	 'symbol)
+        ((number? obj)	 'number)
+        ((char? obj)	 'char)
+        ((string? obj)	 'string)
+        ((vector? obj)	 'vector)
+        ((widget? obj)	  'widget) ; must be before since widgets are also closures
+        ((closure? obj)	 'closure)
+	((primitive? obj) 'primitive)
+        (else 'unknown)))
+
+;---- Display
+
+(define (write\n . l)
+  (until (null? l)
+         (write (car l))
+         (set! l (cdr l)))
+  (newline))
+
+(define (display\n . l)
+  (until (null? l)
+         (display (car l))
+         (set! l (cdr l)))
+  (newline))
+
+
+;---- Control structures
+
+(define-macro (for var test . body)
+  `(do ,var
+       ((not ,test))
+       ,@body))
+
+;---- Strings
+
+(define (->string obj)
+  (if (widget? obj)
+      (widget->string obj)
+      (format #f "~A" obj)))
+
+(define (->object obj)
+  (if (widget? obj)
+      (widget->string obj)
+      (format #f "~S" obj)))
+
+(define (list->str l)
+  (if (null? l)
+      ""
+      (let loop ((l l) (s ""))
+        (let ((car-l (car l)) (cdr-l (cdr l)) (elem ()))
+          (if (list? car-l)
+              (set! elem (string-append "(" (list->str car-l) ")"))
+              (set! elem (->string car-l)))
+          (if (null? cdr-l)
+              (string-append s elem)
+              (loop cdr-l (string-append s elem " ")))))))
+
+;---- Vectors
+
+(define (vector-index v value)
+  (let ((length (vector-length v))
+        (index #f))
+    (for ((i (- length 1) (- i 1)))
+         (>= i 0)
+         (if (equal? (vector-ref v i) value) (set! index i)))
+    index))
+
+
+;---- Lists
+
+(define (list-first obj lst)
+  (define (_list-first obj lst index)
+    (cond ((null? lst) #f)
+          ((equal? obj (car lst)) index)
+          (else (_list-first obj (cdr lst) (+ index 1)))))
+  (_list-first obj lst 0))
+
+
+(define-macro (list-set! lst index value)
+  `(begin
+     (set! ,lst (list->vector ,lst))
+     (vector-set! ,lst ,index ,value)
+     (set! ,lst (vector->list ,lst))))
+
+
+(define (list-remove obj lst)
+  (define (_list-remove obj lst prev-lst)
+    (cond ((null? lst) prev-lst)
+          ((equal? obj (car lst)) (append prev-lst (cdr lst)))
+          (else (_list-remove obj (cdr lst) (append prev-lst
+                                                    (list (car lst)))))))
+  (_list-remove obj lst ()))
+
+
+;---- Tk goodies
+
+(define-macro (widget . etc)
+  `(string->widget (& ,@etc)))
+
+(define (&& . l)
+  (if (null? l)
+      ""
+      (let loop ((l l) (s ""))
+        (if (null? (cdr l))
+            (string-append s (->string (car l)))
+            (loop (cdr l) (string-append s (->string (car l)) " "))))))
+
+(define-macro (tki-get canvas item option)
+  `(list-ref (,canvas 'itemconfigure ,item ,option) 2))
+
+(define-macro (tki-set canvas item option value)
+  `(,canvas 'itemconfigure ,item ,option ,value))
+
+(define-macro (@ x y)
+  `(& "@" ,x "," ,y))
+
+;******************************************************************************
+;
+; 
+;
+;******************************************************************************
+
+(define objects-infos-list ())
+
+(define (object-infos obj)  (assoc obj objects-infos-list))
+(define (object-type obj)   (list-ref (object-infos obj) 1))
+(define (object-symbol obj) (list-ref (object-infos obj) 2))
+
+(define (add-object-infos obj)
+  (set! objects-infos-list
+	(cons (list obj (inspect::typeof obj) (gensym "__g"))
+	      objects-infos-list)))
+
+(define (remove-object-infos obj)
+  (set! objects-infos-list
+	(list-remove (object-infos obj) objects-infos-list)))
+
+(define (find-object-infos key)
+  (let ((found #f))
+    (do ((l objects-infos-list (cdr l)))
+	((or found (null? l)) found)
+      (when (equal? (list-ref (car l) 2) key) 
+	    (set! found (list-ref (car l) 0))))))
+
+(define (detailer-type obj-type)
+  (case obj-type
+    ((vector pair list) 'VPL)
+    ((procedure) 'PROCEDURE)
+    ((widget) 'WIDGET)
+    (else 'UNKNOWN)))
+
+(define (viewer-type obj-type)
+  (case obj-type
+    ((procedure) 'PROCEDURE)
+    ((widget) 'WIDGET)
+    (else 'GENERAL)))
+
+(define (update-object obj)
+  (let* ((obj-val (inspect::eval obj))
+	 (old-type (object-type obj))
+	 (obj-type (inspect::typeof obj-val)))
+    (unless (equal? old-type obj-type)
+	    (let ((obj-sym (object-symbol obj)))
+	      (remove-object-infos obj)
+	      (set! objects-infos-list
+		    (cons (list obj obj-type obj-sym) objects-infos-list))))
+    (if (inspected? obj) (inspect-display obj))
+    (if (detailed? obj)
+	(if (equal? (detailer-type old-type) (detailer-type obj-type))
+	    (detail-display obj)
+	    (begin
+	      (undetail obj)
+	      (if (different? 'UNKNOWN (detailer-type obj-type)) 
+		  (detail obj)))))
+    (if (viewed? obj)
+	(if (equal? (viewer-type old-type) (viewer-type obj-type))
+	    (view-display obj)
+	    (begin
+	      (unview obj)
+	      (view obj))))
+    (update 'idletask)))
+
+;---- Undebug
+
+(define (undebug)
+  (for-each (lambda (obj-infos)
+	      (let ((obj (car obj-infos)))
+		(if (symbol? obj) (untrace-var obj))))
+	    objects-infos-list)
+  (destroy INSPECTOR_WIDGET_NAME)
+  (set! inspected-objects-list ())
+  (for-each (lambda (obj) (destroy (detail-tl-wid obj))) detailed-objects-list)
+  (set! detailed-objects-list ())
+  (for-each (lambda (obj) (destroy (view-tl-wid obj))) viewed-objects-list)
+  (set! viewed-objects-list ())
+  (set! objects-infos-list ()))
+
+;---- id widget
+
+(define (create-id-widget str)
+  (define wid [frame str])
+  (pack [frame (& str ".f1")] :side "top" :fill "x")
+  (pack [label (& str ".f1.l1") :anchor "w"] :side "left")
+  (pack [label (& str ".f1.l2") 
+	       :relief "groove" :bd 2 :anchor "w" :font MEDIUM_FONT]
+	:fill "x" :expand "yes")
+  (pack [frame (& str ".f2")] :side "top" :fill "x")
+  (pack [label (& str ".f2.l") :anchor "w"] :side "left")
+  (pack [entry (& str ".f2.e") :relief "sunken" :bd 2]
+	:fill "x" :expand "yes")
+  wid)
+
+(define (set-id-label1 wid text width) 
+  ((widget wid ".f1.l1") 'config :text text :width width))
+(define (set-id-label2 wid text width)
+  ((widget wid ".f2.l") 'config :text text :width width))
+
+(define (set-id-object wid text) (tk-set! (widget wid ".f1.l2") :text text))
+(define (get-id-object wid) (tk-get (widget wid ".f1.l2") :text))
+(define (set-id-value wid text)
+  ((widget wid ".f2.e") 'delete 0 'end)
+  ((widget wid ".f2.e") 'insert 0 text))
+(define (get-id-value wid) ((widget wid ".f2.e") 'get))
+
+
+;---- menu widget
+
+(define (create-menu-widget str)
+  (define wid [frame str :relief "raised" :bd 2])
+  (pack [menubutton (& str ".help") :text "Help"] :side "right")
+  (tk-set! (widget str ".help") :menu [menu (& str ".help.m")])
+  ((widget str ".help.m") 'add 'command :label "STk-inspect"
+			  :command '(stk:make-help STk-inspect-help))
+  wid)
+
+
+;---- toplevel widget
+
+(define (create-toplevel-widget str)
+  (define wid [toplevel str])
+  (pack (create-id-widget (& str ".id")) :side "top" :fill "x" :padx 4 :pady 2)
+  (pack (create-menu-widget (& str ".menu"))
+	:side "top" :fill "x" :padx 4 :pady 2)
+  wid)
+
+(define (inspect::shadow-entry e)
+  (tk-set! e :state "disabled")
+  (tk-set! e :bd 1)
+  (tk-set! e :bg "grey50")
+  (tk-set! e :fg "grey95"))
+  
+
+(define (modifiable-object? obj)
+  (and (symbol? obj) (symbol-bound? obj) (not (widget? (inspect::eval obj)))))
diff --git a/Lib/inspect-view.stk b/Lib/inspect-view.stk
new file mode 100644
index 0000000..d89b45a
--- /dev/null
+++ b/Lib/inspect-view.stk
@@ -0,0 +1,485 @@
+;******************************************************************************
+;
+; Project       : STk-inspect, a graphical debugger for STk.
+;
+; File name     : inspect-view.stk
+; Creation date : Aug-30-1993
+; Last update   : Sep-17-1993
+;
+;******************************************************************************
+;
+; This file implements the different sort of "Viewers".
+;
+;******************************************************************************
+
+(provide "inspect-view")
+
+(define (view-tl-wid obj) (widget VIEW_WIDGET_NAME (object-symbol obj)))
+(define (view-tl-str obj) (& VIEW_WIDGET_NAME (object-symbol obj)))
+(define (view-l-wid obj) (widget (view-tl-str obj) ".id.f1.l2"))
+(define (view-l-str obj) (& (view-tl-str obj) ".id.f1.l2"))
+(define (view-e-wid obj) (widget (view-tl-str obj) ".id.f2.e"))
+(define (view-e-str obj) (& (view-tl-str obj) ".id.f2.e"))
+(define (view-m-wid obj) (widget (view-tl-str obj) ".menu.command.m"))
+(define (view-m-str obj) (& (view-tl-str obj) ".menu.command.m"))
+(define (view-c-wid obj) (widget (view-tl-str obj) ".f3.c"))
+(define (view-c-str obj) (& (view-tl-str obj) ".f3.c"))
+
+
+;---- Viewer menu -------------------------------------------------------------
+
+(define (view-menu-Eval obj)
+  (eval-string (format #f "(set! ~a ~a)" obj ((view-e-wid obj) 'get))))
+
+(define (view-menu-Quote obj)
+  (eval-string (format #f "(set! ~a '~a)" obj ((view-e-wid obj) 'get))))
+
+(define (view-menu-Inspect key)
+  (let ((obj (find-object-infos key)))
+    (inspect obj)
+    ((widget (view-tl-str obj) ".menu.command.m") 'disable "Inspect")
+    (if (detailed? obj) ((detail-m-wid obj) 'disable "Inspect"))))
+
+(define (view-menu-Detail key)
+  (let ((obj (find-object-infos key)))
+    (detail obj)
+    ((widget (view-tl-str obj) ".menu.command.m") 'disable "Detail")
+    (if (inspected? obj) ((inspect-m-wid obj) 'disable "Detail"))))
+
+(define (view-menu-Unview key) 
+  (unview (find-object-infos key)))
+
+
+;---- Viewer ------------------------------------------------------------------
+
+(define VIEW_WIDGET_NAME ".viewer")
+(define viewed-objects-list ())
+
+(define (viewed? obj) (member obj viewed-objects-list))
+
+(define (view obj)
+  (unless (viewed? obj) (view-object obj)))
+
+(define (view-object obj)
+  (set! viewed-objects-list (cons obj viewed-objects-list))
+  (unless (object-infos obj)
+	  (add-object-infos obj)
+	  (if (symbol? obj) (trace-var obj `(update-object ',obj))))
+  (view-create obj))
+
+(define (unview obj)
+  (when (viewed? obj) (unview-object obj)))
+
+(define (unview-object obj)
+  (let ((top (view-tl-wid obj)))
+    (set! viewed-objects-list (list-remove obj viewed-objects-list))
+    (if (inspected? obj) ((inspect-m-wid obj) 'enable "View"))
+    (if (detailed? obj) ((detail-m-wid obj) 'enable "View"))
+    (unless (or (inspected? obj) (detailed? obj))
+	    (remove-object-infos obj)
+	    (if (symbol? obj) (untrace-var obj)))
+    ;; If toplevel exists (i.e. it is not a <Destroy> event) destroy it
+    (if (= (winfo 'exists top) 1)
+	(destroy top))))
+
+(define (view-create obj)
+  (let ((obj-val (inspect::eval obj)))
+    (case (inspect::typeof obj-val)
+      ((widget)  (when (= (winfo 'exists (view-tl-wid obj-val)) 0)
+			 (view-widget-create obj-val)))
+      ((closure) (view-procedure-create obj))
+      (else      (view-object-create obj)))))
+
+(define (view-display obj)
+  (case (object-type obj)
+    ((widget) (view-widget-display (inspect::eval obj)))
+    ((closure) (view-procedure-display obj))
+    (else (view-object-display obj))))
+
+
+;---- Object/Procedure viewer -------------------------------------------------
+
+(define CAR_COLOR "gray90")
+(define CDR_COLOR "gray70")
+(define ARROW_COLOR "black")
+(define TEXT_COLOR "black")
+
+(define (highlightItem canvas color1 color2)
+(let ((item (car (canvas 'find 'withtag 'current))))
+    (if (equal? (tki-get canvas item :fill) color1)
+	(tki-set canvas item :fill color2)
+	(tki-set canvas item :fill color1))))
+
+(define (find-car/cdr fct count l)
+  (define (_find-car/cdr fct count l path)
+    (if (not (pair? l))
+	(if (null? path)
+	    #f
+	    (_find-car/cdr fct count (caar path) (cdr path)))
+	(if (equal? 0 count)
+	    (fct l)
+	    (_find-car/cdr fct (- count 1) (cdr l) (cons l path)))))
+  (_find-car/cdr fct count l ()))
+
+(define (double1OnCar obj)
+  (let* ((canvas (view-c-wid obj))
+	 (item (car (canvas 'find 'withtag 'current)))
+	 (cars (canvas 'find 'withtag 'CAR)))
+    (view (find-car/cdr car (list-first item cars) (inspect::eval obj)))))
+
+(define (double1OnCdr canvas obj)
+  (let ((item (car (canvas 'find 'withtag 'current)))
+	(cdrs (canvas 'find 'withtag 'CDR)))
+    (view (find-car/cdr cdr (list-first item cdrs) (inspect::eval obj)))))
+
+(define (text-width text font)
+  (canvas ".text-width")
+  (define bbox
+    (.text-width 'bbox (.text-width 'create 'text 0 0 :text text :font font)))
+  (destroy .text-width)
+  (- (caddr bbox) (car bbox)))
+
+(define (view-create-toplevel obj)
+  (define w (create-toplevel-widget (view-tl-str obj)))
+  (define id-w (widget w ".id"))
+  (set-id-label1 id-w "Object" 6)
+  (set-id-label2 id-w "Value" 6)
+
+  (define menu-w (widget w ".menu"))
+  ((widget w ".menu.help.m") 'add 'command :label "Viewer"
+			     :command '(stk:make-help Viewer-help))
+  (pack [menubutton (& menu-w ".command") :text "Command"] :side "left")
+  (define cmd-w (eval [menu (& menu-w ".command.m")]))
+  (tk-set! (widget menu-w ".command") :menu cmd-w)
+  (cmd-w 'add 'command :label "Inspect" 
+	 	       :command `(view-menu-Inspect ',(object-symbol obj)))
+  (if (inspected? obj) (cmd-w 'disable "Inspect"))
+  (cmd-w 'add 'command :label "Detail" 
+	 		:command `(view-menu-Detail ',(object-symbol obj)))
+  (if (detailed? obj) (cmd-w 'disable "Detail"))
+  (cmd-w 'add 'command :label "Unview" 
+	 	       :command `(view-menu-Unview ',(object-symbol obj)))
+
+  (if (modifiable-object? obj)
+      [begin
+	(bind (widget w ".id.f2.e") "<Return>" `(view-menu-Eval ',obj))
+	(bind (widget w ".id.f2.e") "<Shift-Return>" `(view-menu-Quote ',obj))]
+      [begin
+	((view-e-wid obj) 'insert 0 (format #f "~S" (inspect::eval obj)))
+	(inspect::shadow-entry (widget w ".id.f2.e"))])
+
+
+  (pack [frame (& w ".f3") :relief "sunken" :bd 2]
+	:fill "both" :expand "yes" :padx 4 :pady 2)
+  (pack [scrollbar (& w ".f3.vsb") :orient "vertical"]
+	:side "left" :fill "y")
+  (pack [scrollbar (& w ".f3.hsb") :orient "horizontal"]
+	:side "bottom" :fill "x")
+  (pack [canvas (view-c-str obj) :relief "raised" :bd 2]
+	:fill "both" :expand "yes")
+  (tk-set! (widget w ".f3.vsb") :command (& (view-c-str obj) " 'yview"))
+  (tk-set! (widget w ".f3.hsb") :command (& (view-c-str obj) " 'xview"))
+  (tk-set! (view-c-wid obj) :yscroll (& w ".f3.vsb 'set"))
+  (tk-set! (view-c-wid obj) :xscroll (& w ".f3.hsb 'set"))
+  (bind w "<Destroy>" `(view-menu-Unview ',(object-symbol obj)))
+  w)
+
+(define (view-object/procedure-create obj)
+  (define w (view-create-toplevel obj))
+  (wm 'title w "Object viewer")
+  (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+  (define c (view-c-wid obj))
+  (define c-name (widget-name c))
+  (c 'bind 'CAR "<Enter>" `(highlightItem ,c-name CAR_COLOR "red"))
+  (c 'bind 'CAR "<Leave>" `(highlightItem ,c-name CAR_COLOR "red"))
+  (c 'bind 'CAR "<Double-1>" `(double1OnCar ',obj))
+  (c 'bind 'CDR "<Enter>" `(highlightItem ,c-name CDR_COLOR "blue"))
+  (c 'bind 'CDR "<Leave>" `(highlightItem ,c-name CDR_COLOR "blue"))
+  (c 'bind 'CDR "<Double-1>" `(double1OnCdr ,c-name ',obj))
+  w)
+
+(define (view-object-create obj)
+  (define w (view-object/procedure-create obj))
+  (view-object-display obj))
+
+(define (view-object-display obj)
+  (wm 'title  (view-tl-wid obj) "Object viewer")
+  (define obj-val (inspect::eval obj))
+  (tk-set! (view-l-wid obj) :text (->object obj))
+  ((view-e-wid obj) 'delete 0 'end)
+  ((view-e-wid obj) 'insert 0 (->object obj-val))
+  (view-object/procedure-display (view-c-wid obj) obj-val)) 
+
+(define (view-procedure-create obj)
+  (define w (view-object/procedure-create obj))
+  (view-procedure-display obj))
+
+(define (view-procedure-display obj)
+  (wm 'title  (view-tl-wid obj) "Procedure viewer")
+  (define obj-val (inspect::eval obj))
+  (tk-set! (view-l-wid obj) :text (->object obj))
+  ((view-e-wid obj) 'delete 0 'end)
+  ((view-e-wid obj) 'insert 0 (->object obj-val))
+  (view-object/procedure-display (view-c-wid obj) (procedure-body obj-val)))
+
+(define (view-object/procedure-display c obj-val)
+  (define grid-h 60) ; horizontal spacing between grid lines
+  (define grid-v 40) ; vertical spacing between grid lines
+  (define cons-h 40) ; horizontal size of cons cell
+  (define cons-v 20) ; vertical size of cons cell
+  (define cons-h/2 (quotient cons-h 2))
+  (define cons-v/2 (quotient cons-v 2))
+  (define arrow-space 2) ; space between arrow and box
+  (define (x-h x) (* x grid-h))
+  (define (y-v y) (* y grid-v))
+  (define font "-adobe-helvetica-bold-r-*-*-*-120-*-*-*-*-*-*")
+
+  (define (draw-cons-cell x y)
+    (let ((h (x-h x)) (v (y-v y)))
+      (c 'create 'rectangle h v (+ h cons-h/2 1) (+ v cons-v)
+	 :fill CAR_COLOR :tag 'CAR)
+      (c 'create 'rectangle (+ h cons-h/2) v (+ h cons-h) (+ v cons-v)
+	 :fill CDR_COLOR :tag 'CDR)))
+
+  (define (car-arrow-pos x y d)
+    (let ((h (x-h x)) (v (y-v y)))
+      (list (+ h (quotient cons-h 4)) (+ v cons-v/2) (+ h (quotient cons-h 4))
+	    (+ v cons-v/2 (- (* d grid-v) (+ cons-v/2 arrow-space))))))
+
+  (define (draw-car-arrow x y d) ; draw arrow downwards 'd' grid squares
+    (let ((pos (car-arrow-pos x y d)))
+      (if (and (= x 0) (= y 0))
+	  (eval `(,c 'create 'line ,@pos :arrow "last" :arrowshape "8 8 3"))
+	  (eval `(,c 'create 'line ,@pos :arrow "last" :arrowshape "8 8 3"
+		     :tag 'CAR_ARROW)))))
+
+  (define (draw-car-text x y d text)
+    (let ((pos (car-arrow-pos x y d)))
+      (if (<= (text-width text font) grid-h)
+	  (c 'create 'text (caddr pos) (cadddr pos)
+	     :anchor "n" :font font :text text :tag 'CAR_TEXT)
+	  (let* ((text-l [label (& c "." (gensym "__g"))
+				:relief "groove" :bd 2
+				:text text :anchor "w" :font font])
+		 (item (c 'create 'window (caddr pos) (+ 2 (cadddr pos))
+			  :window text-l :anchor "n" :width (- grid-h 2)
+			  :tags 'LONG_CAR_TEXT)))
+	    (bind text-l "<Enter>" 
+		  `(,(widget-name c) 'itemconfig ,item
+				     :width ,(+ 3 (text-width text font))))
+	    (bind text-l "<Leave>" 
+		  `(,(widget-name c) 'itemconfig ,item
+				     :width ,(- grid-h 2)))))))
+
+  (define (cdr-arrow-pos x y d)
+    (let ((h (x-h x)) (v (y-v y)))
+      (list (+ h (quotient (* cons-h 3) 4)) (+ v cons-v/2)
+	    (+ h (quotient (* cons-h 3) 4)
+	       (- (* d grid-h) (+ (quotient (* cons-h 3) 4) arrow-space)))
+	    (+ v cons-v/2))))
+  
+  (define (draw-cdr-arrow x y d) ; draw arrow to the right 'd' grid squares
+    (let ((pos (cdr-arrow-pos x y d)))
+      (eval `(,c 'create 'line ,@pos :arrow "last" :arrowshape "8 8 3"
+		 :tag 'CDR_ARROW))))
+
+  (define (draw-cdr-text x y d text)
+    (let ((pos (cdr-arrow-pos x y d)))
+      (c 'create 'text (caddr pos) (cadddr pos)
+	 :anchor "w" :font font :text text :tag 'CDR_TEXT)))
+
+  (define (draw-nil x y) ; draw nil in cdr of cons cell
+    (let ((h (x-h x)) (v (y-v y)))
+      (c 'create 'line (+ h cons-h/2) v (+ h cons-h) (+ v cons-v))
+      (c 'create 'line (+ h cons-h/2) (+ v cons-v -1) (+ h cons-h) (- v 1))))
+
+  (define (object-length obj-val)
+    (cond ((null? obj-val) 0)
+	  ((pair? obj-val) (+ 1 (object-length (cdr obj-val))))
+	  (else (+ 1 (quotient (text-width (->object obj-val) font)
+				 grid-h)))))
+    
+  (define (initial-profile) 0)
+  (define (car-profile p) (if (pair? p) (car p) p))
+  (define (cdr-profile p) (if (pair? p) (cdr p) p))
+
+  (define (make-profile len p)
+    (define (fit1 len p)
+      (if (> len 1)
+	  (let ((p* (fit1 (- len 1) (cdr-profile p))))
+	    (cons (car-profile p*) p*))
+	  (fit2 (+ (car-profile p) 1) p)))
+    (define (fit2 y p)
+      (if (pair? p)
+	  (cons (max y (car-profile p)) (fit2 y (cdr-profile p)))
+	  (max y p)))
+    (fit1 len p))
+
+  (define (draw-list lst x y p)
+    (draw-cons-cell x y)
+    (let* ((tail (cdr lst))
+	   (tail-p (cdr-profile p))
+	   (new-p (cond ((null? tail)
+			 (draw-nil x y)
+			 tail-p)
+			((pair? tail)
+			 (draw-cdr-arrow x y 1)
+			 (draw-list tail (+ x 1) y tail-p))
+			(else
+			 (draw-cdr-arrow x y 1)
+			 (draw-cdr-text x y 1 (->object tail))
+			 tail-p))))
+      (draw-object (car lst) x y (cons (car-profile p) new-p))))
+
+  (define (draw-object obj-val x y p)
+    (if (pair? obj-val)
+        (let* ((len (object-length obj-val))
+	       (new-p (make-profile len p))
+	       (yy (car-profile new-p)))
+	  (draw-car-arrow x y (- yy y))
+	  (draw-list obj-val x yy new-p))
+	(let ((text (->object obj-val)))
+          (draw-car-arrow x y 1)
+	  (draw-car-text x y 1 text)
+          (make-profile 1 p))))
+
+  (c 'delete 'all)
+  (draw-object obj-val 0 0 (initial-profile))
+  (adjust-scrollregion c 20))
+
+
+;---- Widget viewer -----------------------------------------------------------
+
+(define show-widget
+  (let ((bg-color ())
+	(box-color ()))
+    (lambda (obj item press)
+      (let* ((canv-w (view-c-wid (inspect::eval obj)))
+	     (tags (canv-w 'gettags item))
+	     (wid (inspect::eval (list-ref tags 1))))
+	(if press
+	    (begin
+	      (set! box-color (tki-get canv-w item :fill))
+	      (set! bg-color (tk-get wid :bg))
+	      (tki-set canv-w item :fill "magenta")
+	      (tk-set! wid :bg "magenta"))
+	    (begin
+	      (tki-set canv-w item :fill box-color)
+	      (tk-set! wid :bg bg-color)))))))
+
+(define (inspect-sub-widget obj who)
+  (catch 
+   (inspect (inspect::eval (list-ref ((view-c-wid obj) 'gettags who) 1)))))
+
+(define (view-widget-create obj)
+  (define w (view-create-toplevel obj))
+  (define obj-val (inspect::eval obj))
+  (wm 'maxsize w SCREEN_WIDTH SCREEN_HEIGHT)
+  (pack [frame (& w ".menu.level")] :side "left")
+  (pack [label (& w ".menu.level.l") :text "Level"] :side "left")
+  (pack [entry (& w ".menu.level.e") :relief "sunken" :bd 2 :width 4]
+	:side "left")
+  ((widget w ".menu.level.e") 'insert 0 9999)
+  (bind (widget (view-tl-str obj) ".menu.level.e") "<Return>"
+	`(view-widget-modify-level ',(object-symbol obj)))
+
+  (define c (view-c-wid obj))
+  (c 'bind '|CLASS| "<Double-1>" 
+     `(inspect-sub-widget ,(widget-name obj-val) 
+			  'current))
+  (c 'bind '|CLASS_NAME| "<Double-1>" 
+     `(inspect-sub-widget ,(widget-name obj-val) 
+			  (car (,(widget-name c) 'find 'below 'current))))
+
+  (c 'bind '|CLASS| "<ButtonPress-1>" 
+     		    `(show-widget ,(widget-name obj-val) 'current #t))
+  (c 'bind '|CLASS| "<ButtonRelease-1>" 
+		    `(show-widget ,(widget-name obj-val) 'current #f))
+  (c 'bind '|CLASS_NAME| "<ButtonPress-1>"
+     `(show-widget ,(widget-name obj-val)
+		   (car (,(widget-name c) 'find 'below 'current)) #t))
+  (c 'bind '|CLASS_NAME| "<ButtonRelease-1>"
+     `(show-widget ,(widget-name obj-val) 
+		   (car (,(widget-name c) 'find 'below 'current)) #f))
+  (view-widget-display obj))
+
+(define (view-widget-set-level obj level)
+  ((widget (view-tl-str obj) ".menu.level.e") 'delete 0 'end)
+  ((widget (view-tl-str obj) ".menu.level.e") 'insert 0 level))
+
+(define (view-widget-get-level obj)
+  (let ((level ((widget (view-tl-str obj) ".menu.level.e") 'get)))
+    (if (equal? "" level) 9999 (string->number level))))
+
+(define (view-widget-modify-level key)
+  (let ((obj (find-object-infos key)))
+    (unless (view-widget-get-level obj) (view-widget-set-level obj 9999))
+    (view-widget-clear obj)
+    (view-widget-display obj)))
+
+(define (get-children wid)
+  (let ((children (winfo 'children wid)))
+    (if (list? children) children (list children))))
+
+(define (view-widget-clear obj) ((view-c-wid obj) 'delete 'all))
+
+(define (view-widget-display obj)
+  (wm 'title (view-tl-wid obj) "Widget viewer")
+  (define obj-wid obj)
+  (define canv (view-c-wid obj))
+  (define h-grid 60)
+  (define v-grid 40)
+  (define h-box 80) (define h-box/2 (/ h-box 2))
+  (define v-box 20) (define v-box/2 (/ v-box 2))
+  (define y-global 40)
+  (define level (view-widget-get-level obj))
+  (define level-min level)
+  (define (_display wid x level)
+    (let* ((name (winfo 'name wid))
+	   (class (winfo 'class wid))
+;	   (children (winfo 'children wid))
+	   (children (get-children wid))
+	   (y y-global))
+      (canv 'create 'rectangle (- x h-box/2) (- y v-box) (+ x h-box/2) y 
+	    :fill "gray90" :tags (format #f "CLASS ~a" (->string wid)))
+      (canv 'create 'text x (- y v-box/2)
+	    :anchor "center" :text class :font HELVETICA_MO12 
+	    :tags "CLASS_NAME")
+      (canv 'create 'text (+ x h-box/2 10) (- y v-box/2)
+	    :anchor "w" :text name :font HELVETICA_BR12)
+      (if (null? children)
+	  (set! level-min (min level level-min))
+	  (if (> level 0)
+	      (let ((y-child y))
+		(for-each
+		 (lambda (child)
+		   (set! y-global (+ y-global v-grid))
+		   (set! y-child y-global)
+		   (_display child (+ x h-grid) (- level 1)))
+		 children)
+		(canv 'create 'line x y x (- y-child v-box/2)))
+	      (begin
+		(set! level-min 0)
+		(canv 'create 'line x y x (+ y v-box/2) :stipple "gray50"))))
+      (unless (equal? obj-wid wid)
+	      (canv 'create 'line 
+		    (- x h-box/2) (- y v-box/2) (- x h-grid) (- y v-box/2)))))
+
+  (set-id-object (& (view-tl-str obj) ".id") (format #f "~S" obj))
+  (set-id-value (& (view-tl-str obj) ".id") (format #f "~S" (inspect::eval obj)))
+  ((view-c-wid obj) 'delete 'all)
+  (_display obj-wid 0 level)
+  (view-widget-set-level obj (- level level-min))
+  (adjust-scrollregion canv 20))
+
+(define (adjust-scrollregion canv offset)
+  (multiple-value-bind (x1 y1 x2 y2) (canv 'bbox 'all)
+		       (tk-set! canv :scrollregion
+				(&& (- x1 offset) (- y1 offset)
+				    (+ x2 offset) (+ y2 offset))))
+  (canv 'xview 0)
+  (canv 'yview 0))
+
+(define (view-widget obj)
+  (view-widget-create obj)
+  (view-widget-display obj))
diff --git a/Lib/listbox.stk b/Lib/listbox.stk
new file mode 100644
index 0000000..68c7a74
--- /dev/null
+++ b/Lib/listbox.stk
@@ -0,0 +1,376 @@
+;;;;
+;;;; Listboxes bindings and procs
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update:  2-Sep-1996 10:48
+;;;;
+
+(let ()
+;;
+;; Global variables used in this file
+;; 
+(define tk::listbox-selection  '())
+(define tk::listbox-prev       0)
+
+;; ----------------------------------------------------------------------
+;; Class bindings for listbox widgets.
+;; ----------------------------------------------------------------------
+
+(define-binding "Listbox" "<1>" (|W| x y)
+  ; Note: the check for existence of %W below is because this binding
+  ; is sometimes invoked after a window has been deleted (e.g. because
+  ; there is a double-click binding on the widget that deletes it).  Users
+  ; can put "break"s in their bindings to avoid the error, but this check
+  ; makes that unnecessary.
+  (when (winfo 'exists |W|)
+    (Tk:listbox-begin-select |W| (|W| 'index (format #f "@~A,~A" x y)))))
+
+(define-binding "Listbox" "<Double-1>" 
+  ;; Ignore double clicks so that users can define their own behaviors.
+  ;; Among other things, this prevents errors if the user deletes the
+  ;; listbox on a double click.
+  (lambda () #f))
+
+(define-binding "Listbox" "<B1-Motion>" (|W| x y)
+  (set! tk::x x)
+  (set! tk::y y)
+  (Tk:listbox-motion |W| (|W| 'index (format #f "@~A,~A" x  y))))
+
+(define-binding "Listbox" "<ButtonRelease-1>" (|W| x y)
+  (Tk:cancel-repeat)
+  (|W| 'activate (format #f "@~A,~A" x  y)))
+
+(define-binding "Listbox" "<Shift-1>" (|W| x y)
+  (Tk:listbox-begin-extend |W| (|W| 'index (format #f "@~A,~A" x  y))))
+
+(define-binding "Listbox" "<Control-1>" (|W| x y)
+  (Tk:listbox-begin-toggle |W| (|W| 'index (format #f "@~A,~A" x  y))))
+
+(define-binding "Listbox" "<B1-Leave>" (|W| x y)
+  (set! tk::x x)
+  (set! tk::y y)
+  (Tk:listbox-auto-scan |W|))
+
+(define-binding "Listbox" "<B1-Enter>" ()
+  (Tk:cancel-repeat))
+
+(define-binding "Listbox" "<Up>" (|W|)
+  (Tk:listbox-up-down |W| -1))
+
+(define-binding "Listbox" "<Shift-Up>" (|W|)
+  (Tk:listbox-extend-up-down |W| -1))
+
+(define-binding "Listbox" "<Down>" (|W|)
+  (Tk:listbox-up-down |W| 1))
+
+(define-binding "Listbox" "<Shift-Down>" (|W|)
+  (Tk:listbox-extend-up-down |W| 1))
+
+(define-binding "Listbox" "<Left>" 	    (|W|) (|W| 'xview 'scroll -1 'units))
+(define-binding "Listbox" "<Control-Left>"  (|W|) (|W| 'xview 'scroll -1 'pages))
+(define-binding "Listbox" "<Right>" 	    (|W|) (|W| 'xview 'scroll  1 'units))
+(define-binding "Listbox" "<Control-Right>" (|W|) (|W| 'xview 'scroll  1 'pages))
+(define-binding "Listbox" "<Prior>" 	    (|W|) (|W| 'yview 'scroll -1 'pages))
+(define-binding "Listbox" "<Next>" 	    (|W|) (|W| 'yview 'scroll  1 'pages))
+(define-binding "Listbox" "<Control-Prior>" (|W|) (|W| 'xview 'scroll -1 'pages))
+(define-binding "Listbox" "<Control-Next>"  (|W|) (|W| 'xview 'scroll  1 'pages))
+
+(define-binding "Listbox" "<Home>" (|W|)
+  (|W| 'xview 'moveto 0))
+
+(define-binding "Listbox" "<End>" (|W|)
+  (|W| 'xview 'moveto 1))
+
+(define-binding "Listbox" "<Control-Home>" (|W|)
+  (|W| 'activate 0)
+  (|W| 'see 0)
+  (|W| 'selection 'clear 0 'end)
+  (|W| 'selection 'set   0))
+
+(define-binding "Listbox" "<Shift-Control-Home>" (|W|)
+  (Tk:listbox-data-extend |W| 0))
+
+(define-binding "Listbox" "<Control-End>" (|W|)
+  (|W| 'activate 'end)
+  (|W| 'see 'end)
+  (|W| 'selection 'clear 0 'end)
+  (|W| 'selection 'set 'end))
+
+(define-binding "Listbox" "<Shift-Control-End>" (|W|)
+  (Tk:listbox-data-extend |W| 'end))
+
+(define-binding "Listbox" "<F16>" (|W|)
+  (when (equal? (selection 'own :displayof |W|) |W|)
+    (clipboard 'clear :displayof |W|)
+    (clipboard 'append :displayof |W| (selection 'get :displayof |W|))))
+
+(define-binding "Listbox" "<space>" (|W|)
+  (Tk:listbox-begin-select |W| (|W| 'index 'active)))
+
+(define-binding "Listbox" "<Select>" (|W|)
+  (Tk:listbox-begin-select |W| (|W| 'index 'active)))
+
+(define-binding "Listbox" "<Control-Shift-space>" (|W|)
+  (Tk:listbox-begin-extend |W| (|W| 'index 'active)))
+
+(define-binding "Listbox" "<Shift-Select>" (|W|)
+  (Tk:listbox-begin-extend |W| (|W| 'index 'active)))
+
+(define-binding "Listbox" "<Escape>" (|W|)
+  (Tk:listbox-cancel |W|))
+
+(define-binding "Listbox" "<Control-slash>" (|W|)
+  (Tk:listbox-select-all |W|))
+
+(define-binding "Listbox" "<Control-backslash>" (|W|)
+  (unless (equal? (tk-get |W| :selectmode != "browse"))
+     (|W| 'selection 'clear 0 'end)))
+
+;; Additional Tk bindings that aren't part of the Motif look and feel:
+
+(define-binding "Listbox" "<Shift-2>" (|W| x y)
+  (|W| 'scan 'mark x y))
+
+(define-binding "Listbox" "<B2-Motion>" (|W| x y)
+  (|W| 'scan 'dragto x y))
+
+
+;; Tk:listbox-begin-select --
+;;
+;; This procedure is typically invoked on button-1 presses.  It begins
+;; the process of making a selection in the listbox.  Its exact behavior
+;; depends on the selection mode currently in effect for the listbox;
+;; see the Motif documentation for details.
+;;
+;; w -		The listbox widget.
+;; el -		The element for the selection operation (typically the
+;;		one under the pointer).  Must be in numerical form.
+
+(define (Tk:listbox-begin-select w el)
+  (if (equal? (tk-get w :selectmode) "multiple")
+      (if (w 'selection 'includes el)
+	  (w 'selection 'clear el)
+	  (w 'selection 'set el))
+      (begin
+	(w 'selection 'clear 0 'end)
+	(w 'selection 'set el)
+	(w 'selection 'anchor el)
+	(set! tk::listbox-selection '())
+	(set! tk::listbox-prev el))))
+
+
+;; Tk:listbox-Motion --
+;;
+;; This procedure is called to process mouse motion events while
+;; button 1 is down.  It may move or extend the selection, depending
+;; on the listbox's selection mode.
+;;
+;; w -		The listbox widget.
+;; el -		The element under the pointer (must be a number).
+
+(define (Tk:listbox-Motion w el)
+  (unless (= el tk::listbox-prev)
+    (let ((anchor (w 'index 'anchor))
+	  (mode   (tk-get w :selectmode)))
+      (cond
+         ((string=? mode "browse")
+	        (w 'selection 'clear 0 'end)
+		(w 'selection 'set el)
+		(set! tk::listbox-prev el))
+	 
+	((string=? mode "extended")
+	 	(let ((i tk::listbox-prev))
+		  (if (w 'selection 'includes 'anchor)
+		      (begin
+			(w 'selection 'clear i el)
+			(w 'selection 'set 'anchor el))
+		      (begin
+			(w 'selection 'clear i el)
+			(w 'selection 'clear 'anchor el)))
+		  (while (and (< i el) (< i anchor))
+		     (if (member i tk::listbox-selection)
+			 (w 'selection 'set i))
+		     (set! i (+ i 1)))
+		  (while (and (> i el) (> i anchor))
+		     (if (member i tk::listbox-selection)
+			 (w 'selection 'set i))
+		     (set! i (- i 1)))
+		  (set! tk::listbox-prev el)))))))
+
+;; Tk:listbox-BeginExtend --
+;;
+;; This procedure is typically invoked on shift-button-1 presses.  It
+;; begins the process of extending a selection in the listbox.  Its
+;; exact behavior depends on the selection mode currently in effect
+;; for the listbox;  see the Motif documentation for details.
+;;
+;; w -		The listbox widget.
+;; el -		The element for the selection operation (typically the
+;;		one under the pointer).  Must be in numerical form.
+
+(define (Tk:listbox-begin-extend w el)
+  (when (and (equal? (tk-get w :selectmode) "extended")
+	     (w 'selection 'includes 'anchor))
+	(Tk:listbox-motion w el)))
+
+
+;; Tk:listbox-begin-toggle --
+;;
+;; This procedure is typically invoked on control-button-1 presses.  It
+;; begins the process of toggling a selection in the listbox.  Its
+;; exact behavior depends on the selection mode currently in effect
+;; for the listbox;  see the Motif documentation for details.
+;;
+;; w -		The listbox widget.
+;; el -		The element for the selection operation (typically the
+;;		one under the pointer).  Must be in numerical form.
+
+(define (Tk:listbox-begin-toggle w el)
+  (when (equal? (tk-get w :selectmode) "extended")
+     (set! tk::listbox-selection (w 'curselection))
+     (set! tk::listbox-prev 	 el)
+     (w 'selection 'anchor el)
+     (if (w 'selection 'includes el)
+	 (w 'selection 'clear el)
+	 (w 'selection 'set   el))))
+
+
+;; Tk:listbox-auto-scan --
+;; This procedure is invoked when the mouse leaves an entry window
+;; with button 1 down.  It scrolls the window up, down, left, or
+;; right, depending on where the mouse left the window, and reschedules
+;; itself as an "after" command so that the window continues to 'scroll until
+;; the mouse moves back into the window or the mouse button is released.
+;;
+;; Arguments:
+;; w -		The entry window.
+
+(define (Tk:listbox-auto-scan w)
+  (when (winfo 'exists w)
+    (let* ((x    tk::x)
+	   (y    tk::y)
+	   (scan (lambda ()
+		   (Tk:listbox-motion w (w 'index (format #f "@~A,~A" x y)))
+		   (set! tk::after-id (after 50 (lambda ()
+						  (Tk:listbox-auto-scan w)))))))
+      (cond
+       ((>= y (winfo 'height w)) (w 'yview 'scroll +1 'units) (scan))
+       ((< y 0)		     (w 'yview 'scroll -1 'units) (scan))
+       ((>= x (winfo 'width w))  (w 'xview 'scroll +2 'units) (scan))
+       ((< x 0)		     (w 'xview 'scroll -2 'units) (scan))))))
+
+
+;; Tk:listbox-up-down --
+;;
+;; Moves the location cursor (active element) up or down by one element,
+;; and changes the selection if we're in browse or extended selection
+;; mode.
+;;
+;; w -		The listbox widget.
+;; amount -	+1 to move down one item, -1 to move back one item.
+
+(define (Tk:listbox-up-down w amount)
+  (let ((mode (tk-get w :selectmode)))
+    (w 'activate (+ (w 'index 'active) amount))
+    (w 'see 'active)
+    (cond 
+      ((string=? mode "browse") 
+                 (w 'selection 'clear 0 'end)
+		 (w 'selection 'set 'active))
+      ((string=? mode "extended") (w 'selection 'clear 0 'end)
+				  (w 'selection 'set 'active)
+				  (w 'selection 'anchor 'active)
+				  (set! tk::listbox-prev      (w 'index 'active))
+				  (set! tk::listbox-selection '())))))
+
+;; Tk:listbox-extend-up-down --
+;;
+;; Does nothing unless we're in extended selection mode;  in this
+;; case it moves the location cursor (active element) up or down by
+;; one element, and extends the selection to that point.
+;;
+;; w -		The listbox widget.
+;; amount -	+1 to move down one item, -1 to move back one item.
+
+(define (Tk:listbox-extend-up-down w amount)
+  (when  (equal? (tk-get w :selectmode) "extended")
+     (w 'activate (+ (w 'index 'active) amount))
+     (w 'see 'active)
+     (Tk:listbox-motion w (w 'index 'active))))
+
+
+;; Tk:listbox-data-extend
+;;
+;; This procedure is called for key-presses such as Shift-KEndData.
+;; If the selection mode isn't multiple or extend then it does nothing.
+;; Otherwise it moves the active element to el and, if we're in
+;; extended mode, extends the selection to that point.
+;;
+;; w -		The listbox widget.
+;; el -		An integer element number.
+
+(define (Tk:listbox-data-extend w el)
+  (let ((mode (tk-get w :selectmode)))
+    (cond 
+       ((string=? mode "extended")	(w 'activate el)
+					(w 'see el)
+					(if (w 'selection 'includes 'anchor)
+					    (Tk:listbox-motion w el)))
+       ((string=? mode "multiple")	(w 'activate $el)
+					(w 'see el)))))
+
+;; Tk:listbox-cancel
+;;
+;; This procedure is invoked to cancel an extended selection in
+;; progress.  If there is an extended selection in progress, it
+;; restores all of the items between the active one and the anchor
+;; to their previous selection state.
+;;
+;; w -		The listbox widget.
+
+(define (Tk:listbox-cancel w)
+  (when (equal? (tk-get w :selectmode) "extended")
+     (let ((first (w 'index 'anchor))
+	   (last  tk::listbox-prev))
+       (when (> first last)
+	  (let ((tmp first))
+	    (set! first last)
+	    (set! last tmp)))
+       (w 'selection 'clear first last)
+       (while (<= first last)
+	  (if (member first tk::listbox-selection)
+	      (w 'selection 'set first))
+	  (set! first (+ first 1))))))
+
+;; Tk:listbox-select-all
+;;
+;; This procedure is invoked to handle the "select all" operation.
+;; For single and browse mode, it just selects the active element.
+;; Otherwise it selects everything in the widget.
+;;
+;; w -		The listbox widget.
+
+(define (Tk:listbox-select-all w)
+  (let ((mode (tk-get w :selectmode)))
+    (if (or (equal? mode "single") (equal? mode "browse"))
+	(begin
+	  (w 'selection 'clear 0 'end)
+	  (w 'selection 'set 'active))
+	(w 'selection 'set 0 'end))))
+
+)
diff --git a/Lib/listener.stk b/Lib/listener.stk
new file mode 100644
index 0000000..f1840d8
--- /dev/null
+++ b/Lib/listener.stk
@@ -0,0 +1,75 @@
+;;;;
+;;;; l i s t e n e r . s t k 		-- A listener "widget"
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 11-Sep-1995 10:16
+;;;; Last file update: 19-Jul-1996 15:37
+
+;;;; Listener
+;;;; A new widget which is dedicated to interactive I/O. We have 4 new options:
+;;;;	 :prompt       (">")
+;;;;	 :prompt-color ("red")
+;;;;	 :output-color ("blue")
+;;;;	 :command      (a lambda which does nothing)
+;;;; The command is executed when a Return is typed in and a complete Sexpr
+;;;; has been entered between the last prompt and the return.
+
+(define (listener name . args)
+  (let* ((prompt-color (get-keyword :prompt-color args "red"))
+	 (output-color (get-keyword :output-color args "blue"))
+	 (prompt       (get-keyword :prompt       args "> "))
+	 (command      (get-keyword :command      args (lambda (x) x))))
+
+    (define (insert-prompt w)
+      (w 'insert "end" prompt "list-prompt" " ")
+      ;; Add a mark to the current position
+      (w 'mark 'set "start_expr" "end-1c")
+      (w 'mark 'gravity "start_expr" "left")
+      (w 'see "end"))
+
+    (define (enter-expression w action)	;; Called when user type <Return>
+      (let ((txt (w 'get "start_expr" "insert"))
+	    (exp '()))
+	(if (or (catch (set! exp (read-from-string txt))) (eof-object? exp))
+	    ;; Current expression is not complete
+	    'continue
+	    ;; We have found an expression which seems complete.
+	    (let ((user-result (apply action (list txt))))
+	      (w 'insert "insert"  "\n" "" user-result "list-output" "\n" "")
+	      (insert-prompt w)
+	      'break))))
+  
+    (unless (= (modulo (length args) 2) 0)
+      (error "listener: argument list size is not even ~S" args))
+    
+    ;; Build a list of valid Tk arguments  
+    (let ((tk-args '()))
+      (do ((args args (cddr args)))
+	  ((null? args))
+	(unless (member (car args) '(:prompt-color :output-color :prompt :command))
+	  (set! tk-args (append tk-args (list (car args) (cadr args))))))
+	  
+      ;; Create a text Tk-command with given arguments
+      (let ((w (apply Tk:text name tk-args)))
+	(bind w "<Return>" (lambda () (enter-expression w command)))
+	(w 'tag 'configure "list-prompt" :foreground prompt-color)
+	(w 'tag 'configure "list-output" :foreground output-color)
+	(insert-prompt w)
+	w))))
+  
+(define (listener-insert-string w str)
+  (w 'insert "start_expr linestart" str "list-output")
+  (w 'see "insert"))
+
+(provide "listener")
\ No newline at end of file
diff --git a/Lib/menu.stk b/Lib/menu.stk
new file mode 100644
index 0000000..ae83b0c
--- /dev/null
+++ b/Lib/menu.stk
@@ -0,0 +1,801 @@
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update:  2-Jul-1996 19:30
+;;;;
+
+;; This file is loaded for the first menu or menub-button. Avoid to load it twice
+(unless (or (tk-command? Tk:menu) (tk-command? Tk:menubutton))
+  (let ()
+
+
+  (define tk::in-menu-button	#f)
+  (define tk::posted-mb		#f)
+  (define tk::popup		#f)
+  (define tk::grab-status	#f)
+  (define tk::old-grab		#f)
+
+;;-------------------------------------------------------------------------
+;; Globals that are used in this file:
+;;
+;; cursor -		Saves the -cursor option for the posted menubutton.
+;; focus -		Saves the focus during a menu selection operation.
+;;			Focus gets restored here when the menu is unposted.
+;; grab-status -	Used in conjunction with Tk::old-grab: if Tk:old-grab
+;;			is not false, then Tk:grab-status contains either an
+;;			empty string or "-global" to indicate whether the old
+;;			grab was a local one or	a global one.
+;; in-menu-button -	The name of the menubutton widget containing
+;;			the mouse, or an empty string if the mouse is
+;;			not over any menubutton.
+;; old-grab -		Window that had the grab before a menu was posted.
+;;			Used to restore the grab state after the menu
+;;			is unposted.  Empty string means there was no
+;;			grab previously set.
+;; popup -		If a menu has been popped up via tk_popup, this
+;;			gives the name of the menu.  Otherwise this
+;;			value is empty.
+;; posted-mb -		Name of the menubutton whose menu is currently
+;;			posted, or an empty string if nothing is posted
+;;			A grab is set on this widget.
+;; relief -		Used to save the original relief of the current
+;;			menubutton.
+;; window -		When the mouse is over a menu, this holds the
+;;			name of the menu;  it's cleared when the mouse
+;;			leaves the menu.
+;;-------------------------------------------------------------------------
+
+;;-------------------------------------------------------------------------
+;; Overall note:
+;; This file is tricky because there are four different ways that menus
+;; can be used:
+;;
+;; 1. As a pulldown from a menubutton.  This is the most common usage.
+;;    In this style, the variable tk::posted-mb identifies the posted
+;;    menubutton.
+;; 2. As a torn-off menu copied from some other menu.  In this style
+;;    tk::posted-Mb is empty, and the top-level menu is no
+;;    override-redirect.
+;; 3. As an option menu, triggered from an option menubutton.  In thi
+;;    style tk::posted-Mb identifies the posted menubutton.
+;; 4. As a popup menu.  In this style tk::posted-mb is empty and
+;;    the top-level menu is override-redirect.
+;;
+;; The various binding procedures use the  state described above to
+;; distinguish the various cases and take different actions in each
+;; case.
+;;-------------------------------------------------------------------------
+
+;;-------------------------------------------------------------------------
+;; The code below creates the default class bindings for menus
+;; and menubuttons.
+;;-------------------------------------------------------------------------
+
+
+(define-binding "Menubutton" "<FocusIn>" ()
+  '())
+
+(define-binding "Menubutton" "<Enter>" (|W|)
+  (Tk:menu-button-enter |W|))
+
+(define-binding "Menubutton" "<Leave>" (|W|)
+  (Tk:menu-button-leave |W|))
+
+(define-binding "Menubutton" "<1>" (|W| |X| |Y|)
+  (when tk::in-menu-button
+     (Tk:menu-button-post tk::in-menu-button |X| |Y|)))
+
+(define-binding "Menubutton" "<Motion>" (|W| |X| |Y|)
+  (Tk:menu-button-motion |W| 'up |X| |Y|))
+
+(define-binding "Menubutton" "<B1-Motion>" (|W| |X| |Y|)
+  (Tk:menu-button-motion |W| 'down |X| |Y|))
+
+(define-binding "Menubutton" "<ButtonRelease-1>" (|W|)
+  (Tk:menu-button-button-up |W|))
+
+(define-binding "Menubutton" "<space>" (|W|)
+  (Tk:menu-button-post |W|)
+  (Tk:menu-first-entry (tk-get |W| :menu)))
+
+;; Must set focus when mouse enters a menu, in order to allow
+;; mixed-mode processing using both the mouse and the keyboard.
+;; Don't set the focus if the event comes from a grab release,
+;; though:  such an event can happen after as part of unposting
+;; a cascaded chain of menus, after the focus has already been
+;; restored to wherever it was before menu selection started.
+
+(define-binding "Menu" "<FocusIn>" ()
+  '())
+
+(define-binding "Menu" "<Enter>" (|W| m)
+  (set! tk::window |W|)
+  (unless (string=? m "NotifyUngrab")
+    (focus |W|)))
+
+(define-binding "Menu" "<Leave>" (|W| |X| |Y|)
+  (Tk:menu-leave |W| |X| |Y|))
+
+(define-binding "Menu" "<Motion>" (|W| y s)
+  (Tk:menu-Motion |W| y s))
+
+(define-binding "Menu" "<ButtonPress>" (|W|)
+  (Tk:menu-button-down |W|))
+
+(define-binding "Menu" "<ButtonRelease>" (|W|)
+  (Tk:menu-invoke |W| #t))
+
+(define-binding "Menu" "<space>" (|W|)
+  (Tk:menu-invoke |W| #f))
+
+(define-binding "Menu" "<Return>" (|W|)
+  (Tk:menu-invoke |W| #f))
+
+(define-binding "Menu" "<Escape>" (|W|)
+  (Tk:menu-escape |W|))
+
+(define-binding "Menu" "<Left>" (|W|)
+  (Tk:menu-left-right |W| 'left))
+
+(define-binding "Menu" "<Right>" (|W|)
+  (Tk:menu-left-right |W| 'right))
+
+(define-binding "Menu" "<Up>" (|W|)
+  (Tk:menu-next-entry |W| -1))
+
+(define-binding "Menu" "<Down>" (|W|)
+  (Tk:menu-next-entry |W| +1))
+
+(define-binding "Menu" "<KeyPress>" (|W| |A|)
+  (Tk:traverse-within-menu |W| |A|))
+
+
+;; The following bindings apply to all windows, and are used to
+;; implement keyboard menu traversal.
+
+(define-binding "all" "<Alt-KeyPress>" (|W| |A|)
+  (Tk:traverse-to-menu |W| |A|))
+
+(define-binding "all" "<Meta-KeyPress>" (|W| |A|)
+  (Tk:traverse-to-menu |W| |A|))
+
+(define-binding "all" "<F10>" (|W|)
+  (Tk:first-menu |W|))
+
+;; Tk:menu-button-enter --
+;; This procedure is invoked when the mouse enters a menubutton
+;; widget.  It activates the widget unless it is disabled.  Note:
+;; this procedure is only invoked when mouse button 1 is *not* down.
+;; The procedure Tk:menu-button-B1-enter is invoked if the button is down.
+;;
+
+(define (Tk:menu-button-enter w)
+  (when tk::in-menu-button
+     (Tk:menu-button-leave tk::in-menu-button))
+
+  (set! tk::in-menu-button w)
+
+  (unless (equal? (tk-get w :state) "disabled")
+     (tk-set! w :state "active")))
+
+;; Tk:menu-button-leave --
+;; This procedure is invoked when the mouse leaves a menubutton widget.
+;; It de-activates the widget, if the widget still exists.
+;;
+
+(define (Tk:menu-button-leave w)
+  (set! tk::in-menu-button #f)
+  (when (and (winfo 'exists w) (equal? (tk-get w :state) "active"))
+    (tk-set! w :state "normal")))
+
+;; Tk:menu-button-Post --
+;; Given a menubutton, this procedure does all the work of posting
+;; its associated menu and unposting any other menu that is currently
+;; posted.
+;;
+;; w -			The name of the menubutton widget whose menu
+;;			is to be posted.
+;; x, y -		Root coordinates of cursor, used for positioning
+;;			option menus.  If not specified, then the center
+;;			of the menubutton is used for an option menu.
+
+(define (Tk:menu-button-post w . coords)
+  (unless (or (equal? (tk-get w :state) "disabled") (equal? w tk::posted-mb))
+    (let ((menu (tk-get w :menu)))
+      (when menu
+	(unless (string-find? (string-append (widget->string w) ".")
+			      (widget->string menu))
+	  ;; This is weak, but should be sufficient
+	  (error "can't post ~S:  it isn't a descendant of ~S" menu w))
+
+	(let ((cur tk::posted-mb))
+	  (when tk::posted-mb (Tk:menu-unpost #f))
+	  (set! tk::cursor (tk-get w :cursor))
+	  (set! tk::relief (tk-get w :relief))
+	  (tk-set! w :cursor "arrow")
+	  (tk-set! w :relief "raised")
+	  (set! tk::posted-mb w)
+	  (set! tk::focus (focus))
+	  (menu 'activate 'none)
+	     
+	  ;; If this looks like an option menubutton then post the menu so
+	  ;; that the current entry is on top of the mouse. Otherwise post
+	  ;; the menu just below the menubutton, as for a pull-down.
+	  (if (tk-get w :indicatoron)
+	      (let ((x (if (null? coords)
+			   (+ (winfo 'rootx w) (/ (winfo 'width w) 2))
+			   (car coords)))
+		    (y (if (null? coords)
+			   (+ (winfo 'rooty w) (/ (winfo 'height w) 2))
+			   (cadr coords))))
+		(Tk:post-over-point menu x y
+				    (Tk:menu-find-name menu (tk-get w :text))))
+	      (menu 'post (winfo 'rootx w)
+		    (+ (winfo 'rooty w) (winfo 'height w))))
+	  (focus menu)
+	  (Tk:save-grab-info w)
+	  (grab :global w))))))
+
+;; Tk:menu-unpost --
+;; This procedure unposts a given menu, plus all of its ancestors up
+;; to (and including) a menubutton, if any.  It also restores various
+;; values to what they were before the menu was posted, and releases
+;; a grab if there's a menubutton involved.  Special notes:
+;; 1. It's important to unpost all menus before releasing the grab, so
+;;    that any Enter-Leave events (e.g. from menu back to main
+;;    application) have mode NotifyGrab.
+;; 2. Be sure to enclose various groups of commands in "catch" so that
+;;    the procedure will complete even if the menubutton or the menu
+;;    or the grab window has been deleted.
+;;
+;; menu -		Name of a menu to unpost.  Ignored if there
+;;			is a posted menubutton.
+
+(define (Tk:menu-unpost menu)
+  (let ((mb tk::posted-mb))
+    ;; Restore focus right away (otherwise X will take focus away when
+    ;; the menu is unmapped and under some window managers (e.g. olvwm)
+    ;; we'll lose the focus completely).
+
+    (catch (focus tk::focus))
+    (set! tk::focus #f)
+    ;; Unpost menu(s) and restore some stuff that's dependent on
+    ;; what was posted.
+    (BEGIN ;catch 
+       (if mb
+	   (begin
+	     (set! menu (tk-get mb :menu))
+	     (menu 'unpost)
+	     (set! tk::posted-mb #f)
+	     (tk-set! mb :cursor tk::cursor :relief tk::relief))
+	   (if tk::popup
+	       (begin
+		 (tk::popup 'unpost)
+		 (set! tk::popup #f))
+	       (when (and menu (wm 'overrideredirect menu))
+		  ;; We're in a cascaded sub-menu from a torn-off menu or popup.
+		  ;; Unpost all the menus up to the toplevel one (but not
+		  ;; including the top-level torn-off one) and deactivate the
+		  ;; top-level torn off menu if there is one.
+		  (let loop ((parent (winfo 'parent menu)))
+		    (when (and (equal? (winfo 'class parent) "Menu")
+			       (winfo 'ismapped parent))
+		       (parent 'activate "none")
+		       (parent 'postcascade "none")
+		       (if (wm 'overrideredirect parent)
+			   (loop (winfo 'parent parent)))))
+		  (menu 'unpost)))))
+
+    ;; Release grab, if any, and restore the previous grab, if there was one.
+    (if menu
+	(let ((g (grab 'current menu)))
+	     (and g (grab 'release g))))
+    (when tk::old-grab
+      ;; Be careful restoring the old grab, since it's window may not
+      ;; be visible anymore.
+      (catch
+        (if (equal? tk::grab-status "global")
+	    (grab 'set :global tk::old-grab)
+	    (grab 'set tk::old-grab)))
+      (set! tk::old-grab #f))))
+
+;; Tk:menu-button-motion --
+;; This procedure handles mouse motion events inside menubuttons, and
+;; also outside menubuttons when a menubutton has a grab (e.g. when a
+;; menu selection operation is in progress).
+;;
+;; w -			The name of the menubutton widget.
+;; upDown - 		"down" means button 1 is pressed, "up" means
+;;			it isn't.
+;; rootx, rooty -	Coordinates of mouse, in (virtual?) root window.
+(define (Tk:menu-button-motion w upDown rootx rooty)
+  (unless (equal? tk::in-menu-button w)
+     (let ((new (winfo 'containing rootx rooty)))
+       (when (and (not (equal? new tk::in-menu-button))
+		  (or (not new)
+		      (equal? (winfo 'toplevel new) (winfo 'toplevel w))))
+	  (if tk::in-menu-button
+	      (Tk:menu-button-leave tk::in-menu-button))
+	  (when (and new 
+		     (equal? (winfo 'class new) "Menubutton")
+		     (not (tk-get new :indicatoron))
+		     (not (tk-get w   :indicatoron)))
+	     (if (eq? updown 'down)
+		 (Tk:menu-button-post new rootx rooty)
+		 (Tk:menu-button-enter new)))))))
+
+
+;; Tk:menu-button-button-up --
+;; This procedure is invoked to handle button 1 releases for menubuttons.
+;; If the release happens inside the menubutton then leave its menu
+;; posted with element 0 activated.  Otherwise, unpost the menu.
+;;
+(define (Tk:menu-button-button-up w)
+  (if (and (equal? tk::posted-mb w) (equal? tk::in-menu-button w))
+      (Tk:menu-first-entry (tk-get tk::posted-mb :menu))
+      (Tk:menu-unpost #f)))
+
+
+;; Tk:menu-motion --
+;; This procedure is called to handle mouse motion events for menus.
+;; It does two things.  First, it resets the active element in the
+;; menu, if the mouse is over the menu.  Second, if a mouse button
+;; is down, it posts and unposts cascade entries to match the mouse
+;; position.
+;;
+;; Arguments:
+;; menu -		The menu window.
+;; y -			The y position of the mouse.
+;; state -		Modifier state (tells whether buttons are down).
+
+(define (Tk:menu-motion menu y state)
+  (if (equal? menu tk::window)
+      (menu 'activate (format #f "@~A" y)))
+  (if (= (* (modulo state 128) (modulo state 512) (modulo state 1024)) 0)
+      (menu 'postcascade 'active)))
+
+;; Tk:menu-button-down --
+;; Handles button presses in menus.  There are a couple of tricky things
+;; here:
+;; 1. Change the posted cascade entry (if any) to match the mouse position.
+;; 2. If there is a posted menubutton, must grab to the menubutton;  this
+;;    overrrides the implicit grab on button press, so that the menu
+;;    button can track mouse motions over other menubuttons and change
+;;    the posted menu.
+;; 3. If there's no posted menubutton (e.g. because we're a torn-off menu
+;;    or one of its descendants) must grab to the top-level menu so that
+;;    we can track mouse motions across the entire menu hierarchy.
+;;
+
+(define (Tk:menu-button-down menu)
+  (menu 'postcascade 'active)
+  (if tk::posted-mb 
+      (grab :global tk::posted-mb)
+      (let loop ((menu   menu)
+		 (parent (winfo 'parent menu)))
+	(if (and (wm 'overrideredirect menu)
+		 (equal? (winfo 'class parent) "Menu")
+		 (winfo 'ismapped parent))
+	    (loop parent (winfo 'parent parent))
+	    (begin
+	      ; Don't update grab information if the grab window isn't changing.
+	      ; Otherwise, we'll get an error when we unpost the menus and
+	      ; restore the grab, since the old grab window will not be viewable
+	      ; anymore.
+	      (unless (equal? menu (grab 'current menu))
+		(Tk:save-grab-info menu))
+	      ; Must re-grab even if the grab window hasn't changed, in order
+	      ; to release the implicit grab from the button press.
+	      (grab :global menu))))))
+
+;; Tk:menu-leave --
+;; This procedure is invoked to handle Leave events for a menu.  It
+;; deactivates everything unless the active element is a cascade element
+;; and the mouse is now over the submenu.
+;;
+;; menu -		The menu window.
+;; rootx, rooty -	Root coordinates of mouse.
+;; state -		Modifier state.
+
+(define (Tk:menu-leave menu rootx rooty)
+  (set! tk::window #f)
+  (unless (equal? (menu 'index 'active) "none")
+    (unless (and (equal? (menu 'type "active") "cascade")
+		 (equal? (winfo 'containing rootx rooty)
+			 (menu 'entrycget 'active :menu)))
+       (menu 'activate "none"))))
+
+
+;; Tk:menu-invoke --
+;; This procedure is invoked when button 1 is released over a menu.
+;; It invokes the appropriate menu action and unposts the menu if
+;; it came from a menubutton.
+;;
+;;  w -			menu widget.
+;; button-release -	#t means this procedure is called because of
+;;			a button release;  #f means because of keystroke.
+;;
+(define (Tk:menu-invoke w button-release)
+  (cond
+     ((and button-release (not tk::window))
+      			;; Mouse was pressed over a menu without a menu button, 
+      			;; then dragged off the menu (possibly with a cascade
+			;; posted) and  released.  Unpost everything
+      			(w 'postcascade "none")
+			(w 'activate "none")
+			(Tk:menu-unpost w))
+     ((equal? (w 'type "active") "cascade")
+			(w 'postcascade "active")
+			(Tk:menu-first-entry (w 'entrycget "active" :menu)))
+     ((equal? (w 'type "active") "tearoff")
+      			(Tk:menu-unpost w)
+			(Tk:tear-off-menu w))
+     (ELSE		(Tk:menu-unpost w)
+			(w 'invoke "active"))))
+
+
+;; Tk:menuEscape --
+;; This procedure is invoked for the Cancel (or Escape) key.  It unposts
+;; the given menu and, if it is the top-level menu for a menu button,
+;; unposts the menu button as well.
+;;
+(define (Tk:menu-escape menu)
+  (if (equal? (winfo 'class (winfo 'parent menu)) "Menu")
+      (Tk:menu-left-right menu -1)
+      (Tk:menu-unpost menu)))
+
+;; Tk:menu-left-right --
+;; This procedure is invoked to handle "left" and "right" traversal
+;; motions in menus.  It traverses to the next menu in a menu bar,
+;; or into or out of a cascaded menu.
+;;
+;; menu -		The menu that received the keyboard
+;;			event.
+;; direction -		Direction in which to move: "left" or "right"
+
+(define (Tk:menu-left-right menu direction)
+  (let ((count    +1)
+	(continue #t))
+    ;; First handle traversals into and out of cascaded menus.
+    (if (eq? direction 'right)
+	(when (equal? (menu 'type "active") "cascade")
+	    (menu 'postcascade "active")
+	    (let ((m2 (menu 'entrycget 'active :menu)))
+	      (and m2 (Tk:menu-first-entry m2))
+	      (set! continue #f)))
+	;; Direction is 'left
+	(let ((m2 (winfo 'parent menu)))
+	  (set! count -1)
+	  (when (equal? (winfo 'class m2) "Menu")
+	    (menu 'activate "none")
+	    (focus m2)
+	    ;; This code unposts any posted submenu in the parent.
+	    (let ((tmp (m2 'index "active")))
+	      (m2 'activate "none")
+	      (m2 'activate tmp)
+	      (set! continue #f)))))
+    
+    (when (and continue tk::posted-mb)
+      ;; Can't traverse into or out of a cascaded menu.  Go to the next
+      ;; or previous menubutton, if that makes sense.
+      (let* ((buttons (winfo 'children [winfo 'parent tk::posted-mb]))
+	     (len     (length buttons)))
+	(let loop ((i (- count (length (member tk::posted-mb buttons)))))
+	  (while (< i 0)     (set! i (+ i len)))
+	  (while (>=  i len) (set! i (- i len)))
+	  (let ((mb (list-ref buttons i)))
+	    (when (and (equal? [winfo 'class mb] "Menubutton")
+		       (not (equal? [tk-get mb :state] "disabled"))
+		       (tk-get mb :menu)
+		       (not (equal? ((tk-get mb :menu) 'index "last") "none")))
+	      (Tk:menu-button-post mb)
+	      (Tk:menu-first-entry (tk-get mb :menu)))
+	    (unless (eq? mb tk::posted-mb)
+	      (loop (+ i count)))))))))
+
+;; Tk:menu-next-entry --
+;; Activate the next higher or lower entry in the posted menu,
+;; wrapping around at the ends.  Disabled entries are skipped.
+;;
+;; Arguments:
+;; menu -			Menu window that received the keystroke.
+;; count -			1 means go to the next lower entry,
+;;				-1 means go to the next higher entry.
+
+(define (Tk:menu-next-entry menu count)
+  (unless (equal? (menu 'index "last") "none")
+    (let* ((length     (+ (menu 'index "last") 1))
+	   (quit-after length)
+	   (active     (menu 'index "active"))
+	   (i          0)
+	   (break      #f))
+
+      (unless (equal? active "none")
+	(set! i (+ active count)))
+      
+      (let loop ((i i))
+	(when (> quit-after 0)
+	  ;; We've not already tried every entry in the menu
+	  (set! quit-after (- quit-after 1))
+
+	  (while (< i 0)        (set! i (+ i length)))
+	  (while (>=  i length) (set! i (- i length)))
+
+	  (catch (set! break (not (equal? (menu 'entrycget i :state) "disabled"))))
+	  (if break
+	      (begin
+		(menu 'activate i)
+		(menu 'postcascade i))
+	      (unless (= i active)
+		(loop (+ i count)))))))))
+
+;; Tk:menu-find --
+;; This procedure searches the entire window hierarchy under w for
+;; a menubutton that isn't disabled and whose underlined character
+;; is "char".  It returns the name of that window, if found, or #f
+;; if no matching window was found.  If "char" is an
+;; empty string then the procedure returns the name of the first
+;; menubutton found that isn't disabled.
+;;
+;; w -				Name of window where key was typed.
+;; char -			Underlined character to search for;
+;;				may be either upper or lower case, and
+;;				will match either upper or lower case.
+
+(define (Tk:menu-find w char)
+  (let ((char (string-lower char)))
+    (let loop ((children  (winfo 'children w)))
+      (if (null? children)
+	  #f
+	  (let* ((child (car children))
+		 (C     (winfo 'class child)))
+	    (cond
+	     ((string=? C "Menubutton")
+	         (let* ((index (tk-get child :underline))
+			(txt   (tk-get child :text))
+			(char2 (if (= index -1)
+				   "" 
+				   (string (string-ref txt index)))))
+		   (if (and (or (string=? char (string-lower char2)) 
+				(string=? char ""))
+			    (not (equal? (tk-get child :state) "disabled")))
+		       child
+		       (loop (cdr children)))))
+	     ((string=? C "Frame")
+	    	  (or (Tk:menu-find child char)
+		      (loop (cdr children))))
+	     (ELSE (loop (cdr children)))))))))
+
+;; Tk:traverse-to-menu --
+;; This procedure implements keyboard traversal of menus.  Given an
+;; ASCII character "char", it looks for a menubutton with that character
+;; underlined.  If one is found, it posts the menubutton's menu
+;;
+;; Arguments:
+;; w -				Window in which the key was typed (selects
+;;				a toplevel window).
+;; char -			Character that selects a menu.  The case
+;;				is ignored.  If an empty string, nothing
+;;				happens.
+
+(define (Tk:traverse-to-menu w char)
+  (let ((continue #t))
+    (unless (string=? char "")
+      (while (and continue (equal? (winfo 'class w) "Menu"))
+       (if  tk::posted-mb
+	   (set! w (winfo 'parent w))
+	   (set! continue #f)))
+      (when continue
+	(let ((w (Tk:menu-find (winfo 'toplevel w) char)))
+	  (when w 
+	    (Tk:menu-button-post w)
+	    (Tk:menu-first-entry (tk-get w :menu))))))))
+
+;; Tk:first-menu --
+;; This procedure traverses to the first menubutton in the toplevel
+;; for a given window, and posts that menubutton's menu.
+;;
+;; w -				Name of a window.  Selects which toplevel
+;;				to search for menubuttons.
+
+(define (Tk:first-menu w)
+  (let ((w (Tk:menu-find (winfo 'toplevel w) "")))
+    (when w
+      (Tk:menu-button-post w)
+      (Tk:menu-first-entry (tk-get w :menu)))))
+
+;; Tk:traverse-within-menu
+;; This procedure implements keyboard traversal within a menu.  It
+;; searches for an entry in the menu that has "char" underlined.  If
+;; such an entry is found, it is invoked and the menu is unposted.
+;;
+;; Arguments:
+;; w -				The name of the menu widget.
+;; char -			The character to look for;  case is
+;;				ignored.  If the string is empty then
+;;				nothing happens.
+
+(define (Tk:traverse-within-menu w char)
+  (unless (equal? char "")
+    (let* ((char (string-lower char))
+	   (last (w 'index "last")))
+      (unless (equal? last "none")
+	(let loop ((i 0))
+	  (when (<= i last)
+	    (let ((char2 #f)
+		  (index -1)
+		  (label ""))
+	      (catch 
+	         (set! index (w 'entrycget i :underline))
+		 (set! label (w 'entrycget i :label))
+		 (set! char2 (string-lower (string (string-ref label index)))))
+	      
+	      (if (and char2 (string=? char char2))
+		  (if (equal? (w 'type i) "cascade")
+		      (begin
+			(w 'postcascade i)
+			(w 'activate i)
+			(let ((m2 (w 'entrycget i :menu)))
+			  (and m2 (Tk:menu-first-entry m2))))
+		      (begin
+			(Tk:menu-unpost w)
+			(w 'invoke i)))
+		  (loop (+ i 1))))))))))
+
+;; Tk:menu-first-entry --
+;; Given a menu, this procedure finds the first entry that isn't
+;; disabled or a tear-off or separator, and activates that entry.
+;; However, if there is already an active entry in the menu (e.g.,
+;; because of a previous call to tkPostOverPoint) then the active
+;; entry isn't changed.  This procedure also sets the input focus
+;; to the menu.
+;;
+(define (Tk:menu-first-entry menu)
+  (when menu
+      (focus menu)
+      (when (equal? (menu 'index "active") "none")
+	  (let ((last (menu 'index "last")))
+	    (unless (equal? last "none")
+	        (let loop ((i 0))
+		  (when (<= i last)
+		      (let ((state #f))
+			(catch (set! state (menu 'entrycget i :state)))
+			(if (or (not state)
+				(equal? state "disabled")
+				(equal? (menu 'type i) "tearoff"))
+			    (loop (+ i 1))
+			    (menu 'activate i))))))))))
+
+
+;; Tk:menu-find-name --
+;; Given a menu and a text string, return the index of the menu entry
+;; that displays the string as its label.  If there is no such entry,
+;; return an empty string.  This procedure is tricky because some names
+;; like "active" have a special meaning in menu commands, so we can't
+;; always use the "index" widget command.
+;;
+;; menu -		Name of the menu widget.
+;; s -			String to look for.
+
+(define (Tk:menu-find-name menu s)
+  (let ((last (menu 'index "last")))
+    (unless (equal? last "none")
+      (let loop ((i 0))
+	(if (<= i last)
+	    (let ((label #f))
+	      (catch (set! label (menu 'entrycget i :label)))
+	      (if (equal? label s)
+		  i
+		  (loop (+ i 1))))
+	    #f)))))
+
+;; Tk:post-over-point --
+;; This procedure posts a given menu such that a given entry in the
+;; menu is centered over a given point in the root window.  It also
+;; activates the given entry.
+;;
+;; menu -		Menu to post.
+;; x, y -		Root coordinates of point.
+;; entry -		Index of entry within menu to center over (x,y).
+;;			If omitted or specified as {}, then the menu's
+;;			upper-left corner goes at (x,y).
+
+(define (Tk:post-over-point menu x y entry)
+  (when entry
+    (if (= entry (menu 'index "last"))
+	(set! y (- y (/ (+ (menu 'yposition entry) (winfo 'reqheight menu)) 2)))
+	(set! y (- y (/ (+ (menu 'yposition entry) 
+			   (menu 'yposition (+ entry 1))) 2))))
+    (set! x (- x (/ (winfo 'reqwidth menu) 2))))
+
+  (menu 'post (inexact->exact x) (inexact->exact y))
+  (if (and entry (not (equal? (menu 'entrycget entry :state) "disabled")))
+      (menu 'activate entry)))
+
+;; Tk:save-grab-info
+;; Sets the variables tkPriv(oldGrab) and tkPriv(grabStatus) to record
+;; the state of any existing grab on the w's display.
+;;
+;; w -			Name of a window;  used to select the display
+;;			whose grab information is to be recorded.
+
+(define (Tk:save-grab-info w)
+  (set! tk::old-grab (grab 'current w))
+  (if tk::old-grab
+      (set! tk::grab-status [grab 'status tk::old-grab])))
+
+(load "tearoff")
+
+))
+
+;; Tk:popup --
+;; This procedure pops up a menu and sets things up for traversing
+;; the menu and its submenus.
+;;
+;; menu -		Name of the menu to be popped up.
+;; x, y -		Root coordinates at which to pop up the
+;;			menu.
+;; entry -		Index of a menu entry to center over (x,y).
+;;			If omitted or specified as {}, then menu's
+;;			upper-left corner goes at (x,y).
+
+(define (Tk:popup menu x y entry)
+  (if (or tk::popup tk::posted-mb)
+      (Tk:menu-unpost #f))
+  (Tk:post-over-point menu x y entry)
+  (Tk:save-grab-info menu)
+  (grab :global menu)
+  (set! tk::popup menu)
+  (set! tk::focus (focus))
+  (focus menu))
+
+;; Tk:option-menu --
+;; This procedure creates an option button named  and an associated
+;; menu.  Together they provide the functionality of Motif option menus:
+;; they can be used to select one of many values, and the current value
+;; appears in the global variable var-name, as well as in the text of
+;; the option menubutton.  The  menu is returned as the
+;; procedure's result, so that the caller can use it to change configuration
+;; options on the menu or otherwise manipulate it.
+;;
+;; w -			The name to use for the menubutton.
+;; var-name -		Global variable to hold the currently selected value.
+;; first -		first (mandatory) legal value for option
+;; l 			legal values for option
+
+(define (Tk:option-menu w var-name first . l)
+  ;; define var-name before (if necessary) otherwise :textvar will define it to ""
+  (unless (symbol-bound? var-name (global-environment))
+    (eval `(define ,var-name ',first) (global-environment)))
+
+  (let* ((menu-name (format #f "~A.menu" w))
+	 (mb 	    (menubutton w :textvariable var-name 
+				  :indicatoron #t
+				  :menu menu-name
+				  :relief "raised"
+				  :borderwidth 2 
+				  :highlightthickness 2
+				  :anchor "c"))
+	 (m	    (menu menu-name :tearoff #f))
+	 (env	    (global-environment)))
+
+    (for-each (lambda (x)
+		(m 'add 'command :label x :command (lambda()
+						     (eval `(set! ,var-name ',x) 
+							   env))))
+	      (cons first l))
+    m))
diff --git a/Lib/palette.stk b/Lib/palette.stk
new file mode 100644
index 0000000..49f5dae
--- /dev/null
+++ b/Lib/palette.stk
@@ -0,0 +1,205 @@
+;;;;
+;;;; Palette -- procedures that change the color palette used by Tk
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  4-Aug-1995 11:24
+;;;; Last file update:  4-Aug-1995 14:07
+;;;;
+
+(require "hash")
+
+;; Tk:set-palette! --
+;; Changes the default color scheme for a Tk application by setting
+;; default colors in the option database and by modifying all of the
+;; color options for existing widgets that have the default value.
+;;
+;; The arguments consist of either a single color name, which
+;; will be used as the new background color (all other colors will
+;; be computed from this) or an even number of values consisting of
+;; option names and values.  The name for an option is the one used
+;; for the option database, such as activeForeground, not -activeforeground.
+
+(define Tk:set-palette!
+  (let ((tk::palette #f))
+  
+    (define (make-color r g b)
+      (let ((hexa (lambda (n) 
+		    (string-append (number->string (quotient n 16) 16) 
+				   (number->string (modulo n 16) 16)))))
+	(string-append "#" (hexa (min (inexact->exact r) 255))
+		           (hexa (min (inexact->exact g) 255))
+			   (hexa (min (inexact->exact b) 255)))))
+		   
+    (define (Tk:recolor-tree w colors)
+      (hash-table-for-each colors 
+			   (lambda (db-opt db-value)
+			     (let ((opt (make-keyword (string-lower db-opt)))
+				   (val #f))
+			       (unless (catch (set! val (tk-get w opt)))
+				   (if (equal? val
+					       (hash-table-get tk::palette db-opt))
+				       (tk-set! w opt db-value))))))
+
+      ;; Do the same job for all the children
+      (for-each (lambda (child) (Tk:recolor-tree child colors))
+		(winfo 'children w)))
+
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  ;;;;
+  ;;;; Start of procedure Tk:set-palette!
+  ;;;;
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (lambda args
+    (let ((new (make-hash-table string=?)))
+      ;; Create a hash table that has the complete new palette. If some colors
+      ;; aren't specified, compute them from other colors that are specified.
+      (if (= (length args) 1)
+	  (hash-table-put! new "background" (car args))
+	  ;; place all given colors in the "new" hashatable
+	  (for-each (lambda (x) (hash-table-put! new (car x) (cadr x))) args))
+
+      (unless (hash-table-get new "background" #f)
+	 (error "you must specify a background color"))
+
+      (unless (hash-table-get new "foreground" #f)
+	 (hash-table-put! new "foreground" "black"))
+
+      (let* ((back      (hash-table-get new "background"))
+	     (fore      (hash-table-get new "foreground"))
+	     (bg        (winfo 'rgb *root* back))
+	     (fg        (winfo 'rgb *root* fore))
+	     (darker-bg (make-color (/ (* 9 (list-ref bg 0)) 2560)
+				    (/ (* 9 (list-ref bg 1)) 2560)
+				    (/ (* 9 (list-ref bg 2)) 2560))))
+	(for-each (lambda (x)
+		    (unless (hash-table-get new x #f)
+		       (hash-table-put! new x fore)))
+		  (list "activeForeground" "insertBackground" 
+			"selectForeground" "highlightColor"))
+
+	(unless (hash-table-get new "disabledForeground" #f)
+	   (hash-table-put! new 
+			    "disabledForeground" 
+			    (make-color (+ (* 3 (car   bg)) (/ (car   fg) 1024))
+					(+ (* 3 (cadr  bg)) (/ (cadr  fg) 1024))
+					(+ (* 3 (caddr bg)) (/ (caddr fg) 1024)))))
+
+	(unless (hash-table-get new "highlightBackground" #f)
+	   (hash-table-put! new "highlightBackground" back))
+
+
+	(unless (hash-table-get new "activeBackground" #f)
+	  ;; Pick a default active background that is lighter than the
+	  ;; normal background.  To do this, round each color component
+	  ;; up by 15% or 1/3 of the way to full white, whichever is
+	  ;; greater.
+
+	  (let ((light (make-vector 3)))
+	    (dotimes (i 3)
+	       (let* ((c    (/ (list-ref bg i) 256))
+		      (inc1 (* c 0.15))
+		      (inc2 (/ (- 255 c) 3)))
+		 (set! c (+ c (max inc1 inc2)))
+		 (vector-set! light i (min c 255))))
+	    (hash-table-put! new 
+			     "activeBackground" 
+			     (make-color (vector-ref light 0)
+					 (vector-ref light 1)
+					 (vector-ref light 2)))))
+
+	(unless (hash-table-get new "selectBackground" #f)
+	   (hash-table-put! new "selectBackground" darker-bg))
+
+	(unless (hash-table-get new "troughColor" #f)
+	   (hash-table-put! new "troughColor" darker-bg))
+
+	(unless (hash-table-get new "selectColor" #f)
+	   (hash-table-put! new "selectColor" "#b03060"))
+
+	;; Walk the widget hierarchy, recoloring all existing windows.
+	;; Before doing this, make sure that the tk::palette variable holds
+	;; the default values of all options, so that Tk:recolor-tree can
+	;; be sure to only change options that have their default values.
+	;; If the variable exists, then it is already correct (it was created
+	;; the last time this procedure was invoked).  If the variable
+	;; doesn't exist, fill it in using the defaults from a few widgets.
+
+      (unless (hash-table? tk::palette)
+	 (let ((c (checkbutton (gensym ".tmp")))
+	       (e (entry	     (gensym ".tmp")))
+	       (s (scrollbar   (gensym ".tmp"))))
+
+	   (set! tk::palette (make-hash-table string=?))
+
+	   (hash-table-put! tk::palette "activeBackground"
+			    (cadddr (c 'configure :activebackground)))
+	   (hash-table-put! tk::palette "activeForeground"
+			    (cadddr (c 'configure :activeforeground)))
+	   (hash-table-put! tk::palette "background"
+			    (cadddr (c 'configure :background)))
+	   (hash-table-put! tk::palette "disabledForeground"
+			    (cadddr (c 'configure :disabledforeground)))
+	   (hash-table-put! tk::palette "foreground"
+			    (cadddr (c 'configure :foreground)))
+	   (hash-table-put! tk::palette "highlightBackground"
+			    (cadddr (c 'configure :highlightbackground)))
+	   (hash-table-put! tk::palette "highlightColor"
+			    (cadddr (c 'configure :highlightcolor)))
+	   (hash-table-put! tk::palette "insertBackground"
+			    (cadddr (e 'configure :insertbackground)))
+	   (hash-table-put! tk::palette "selectColor"
+			    (cadddr (c 'configure :selectcolor)))
+	   (hash-table-put! tk::palette "selectBackground"
+			    (cadddr (e 'configure :selectbackground)))
+	   (hash-table-put! tk::palette "selectForeground"
+			    (cadddr (e 'configure :selectforeground)))
+	   (hash-table-put! tk::palette "troughColor"
+			    (cadddr (s 'configure :troughcolor)))
+
+	   ;; Destroy temporary widgets
+	   (destroy c e s)))
+
+      (Tk:recolor-tree *root* new)
+
+      ;; Change the option database so that future windows will get the
+      ;; same colors. Save the options in the global variable tk::palette, 
+      ;; for use the next time we change the options.
+      (hash-table-for-each new (lambda (x y)
+				 (option 'add 
+					 (format #f "*~A" x)
+					 (hash-table-get new x))
+				 (hash-table-put! tk::palette x y))))))))
+
+;;
+;; Tk:bisque --
+;; Reset the Tk color palette to the old "bisque" colors.
+;;
+
+
+(define (Tk:bisque)
+  (tk:set-palette! '("activeBackground" 	"#e6ceb1")
+		   '("activeForeground" 	"black")
+		   '("background" 		"#ffe4c4")
+		   '("disabledForeground" 	"#b0b0b0")
+		   '("foreground" 		"black")
+		   '("highlightBackground" 	"#ffe4c4")
+		   '("highlightColor" 		"black")
+		   '("insertBackground" 	"black")
+		   '("selectColor" 		"#b03060")
+		   '("selectBackground" 	"#e6ceb1")
+		   '("selectForeground" 	"black")
+		   '("troughColor" 		"#cdb79e")))
diff --git a/Lib/pixmap.stk b/Lib/pixmap.stk
new file mode 100644
index 0000000..3c34530
--- /dev/null
+++ b/Lib/pixmap.stk
@@ -0,0 +1,27 @@
+;;;;
+;;;; p r o c e s s . s t k 		-- Processes 
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 25-Dec-1995 12:41
+;;;; Last file update: 21-Jul-1996 18:41
+;;;;
+
+(if (symbol-bound? '%init-pixmap)
+    ;; Pixmap module is in the core interpreter
+    (%init-pixmap)
+    ;; Try to load it dynamically
+    (load (string-append "pixmap." *shared-suffix*)))
+
+(provide "pixmap")
diff --git a/Lib/posix.stk b/Lib/posix.stk
new file mode 100644
index 0000000..7c775d2
--- /dev/null
+++ b/Lib/posix.stk
@@ -0,0 +1,42 @@
+;;;;
+;;;; p o s i x . s t k 		-- Posix function in Scheme
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 15-Mar-1995 16:31
+;;;; Last file update: 13-Aug-1996 22:31
+;;;;
+
+(if (symbol-bound? '%init-posix)
+    ;; Posix.1 module is in the core interpreter
+    (%init-posix)
+    ;; Try to load Posix.1 support dynamically
+    (load (string-append "posix." *shared-suffix*)))
+
+;;;;
+;;;; Time functions
+;;;;
+(define (posix-asctime . time)
+  (apply posix-strftime "%a %b %d %H:%M:%S %Z %Y\n" time))
+
+(define (posix-ctime . time)
+  (let ((t (if (null? time) (list (posix-time)) time)))
+    (posix-asctime (apply posix-localtime t))))
+
+;;;;
+;;;; Backward compatibility
+;;;;
+(define posix-access posix-access?)
+
+(provide "posix")
diff --git a/Lib/pp.stk b/Lib/pp.stk
new file mode 100644
index 0000000..0889439
--- /dev/null
+++ b/Lib/pp.stk
@@ -0,0 +1,568 @@
+;; pretty-printer by mf
+;*************************************************************
+(define *pp:port* #t)   ; default value = current output
+(define *pp:lgth* 80)   ; default value = max length of a line
+
+(define (pp obj . options)
+  ; obj = file name in a string or
+  ;       expression to be pretty printed
+  ; options = toutes facultatives
+  ; destination = file name in a string
+  ;               #t ==> current output (default value)
+  ;               #f ==> a string
+  ; line-length = integer >= 0 = max length of a line on output
+  ;               (default value = 80)
+  (let ((dest 'output))
+    (set! *pp:port* #t)
+    (set! *pp:lgth* 80)
+    (let loop ((L options))
+      (when (not (null? L))
+            ; there is options....
+            (cond ((string? (car L)) ; output in a file
+                   (set! *pp:port* (open-output-file (car L)))
+                   (set! dest 'file))
+                  ((integer? (car L))
+                   (set! *pp:lgth* (car L)))
+                  ((boolean? (car L)) ; current output or a string
+                   (when (not (car L))
+                         (set! *pp:port* (open-output-string))
+                         (set! dest 'string))))
+            (loop (cdr L))))
+
+    (if (string? obj)     ; file name
+        (let* ((p (open-input-file obj))
+              (to-pp (read p)))
+          (while (not (eof-object? to-pp))
+                 (*pp:pp-one-exp* to-pp)
+                 (format *pp:port* "~%")
+                 (set! to-pp (read p))))
+        (*pp:pp-one-exp* obj))
+    (cond ((eq? dest 'file) (close-output-port *pp:port*))
+          ((eq? dest 'string) (get-output-string *pp:port*)))))
+
+;*************************************************************
+;    pretty-print an expression
+;*************************************************************
+
+(define *pp:cur-pos* 0)   ; current position in line
+
+(define *pp:line* 1)      ; current line
+
+(define *pp:lgth-symb* 0) ; lgth of symb to write
+
+(define *printer-list* '(()))
+
+(define *pp:last-symb-is-new-line* #t)
+
+(define *pp:to-substitute* #t)
+
+(define *pp:last* 0)  ; for *pp:fit?*
+
+(define (*pp:pp-one-exp* expr)
+  (set! *pp:cur-pos* 0)   ; current position in line
+  (set! *pp:line* 1)      ; current line
+  (set! *pp:lgth-symb* 0) ; lgth of symb to write
+  (set! *pp:last-symb-is-new-line* #t)
+  (set! *pp:to-substitute* #t)
+  (set! *pp:last* 0)  ; for *pp:fit?*
+  (let ((expr (if (procedure? expr) (procedure-body expr)
+                  expr)))
+    (*pp:print-expr* expr *pp:cur-pos*)
+    (format *pp:port* "~%")
+    #t))
+
+
+(define (*pp:out-char* c)        ; output the char c NOT at end of line
+  ; c = left parenthesis|quote|quasiquote|unquote|unquote-splicing
+  (format *pp:port* "~A" c)
+  (set! *pp:last-symb-is-new-line* #t)
+  (set! *pp:cur-pos* (+ *pp:cur-pos* 1)))
+
+(define (*pp:left-par*) ; output a left parenthesis
+  (*pp:out-char* #\( ))
+
+(define (*pp:out-char-eol* c)     ; output the char c perhaps at end of line
+  ; c = right parenthesis|space|period
+  (format *pp:port* "~A" c)
+  (set! *pp:last-symb-is-new-line* #f)
+  (set! *pp:cur-pos* (+ *pp:cur-pos* 1)))
+
+(define (*pp:right-par*) ; output a right parenthesis
+  (*pp:out-char-eol* #\)))
+
+(define (*pp:space*)    ; output a space
+  (*pp:out-char-eol* #\space))
+
+(define (*pp:period*)        ; output " . "
+  (*pp:space*)
+  (*pp:out-char-eol* #\.)
+  (*pp:space*))
+
+(define (*pp:output-symb* symb)   ; output the symbol symb
+  (format *pp:port* "~S" symb)
+  (set! *pp:last-symb-is-new-line* #f)
+  (set! *pp:cur-pos* (+ *pp:cur-pos* *pp:lgth-symb*)))
+
+
+(define (*pp:newline-indent* x)  ; output a newline and x spaces
+  (when (not *pp:last-symb-is-new-line*)
+        (format *pp:port* "~%")
+        (cond ((<= x 0) #t)
+              ((>= x *pp:lgth*) (set! x 0))
+              (else
+               (format *pp:port* "~A" (make-string x #\space))))
+        (set! *pp:last-symb-is-new-line* #t)
+        (set! *pp:line* (+ *pp:line* 1))
+        (set! *pp:cur-pos* x)))
+
+
+; #t if expr will fit between *pp:last* and *pp:lgth*
+(define (*pp:fit?* expr)
+
+  (define (inc-pos? val)
+    (if (<= (+ *pp:last* val) *pp:lgth*)
+        (begin (set! *pp:last* (+ *pp:last* val)) #t)
+        #f))
+
+  (cond ((keyword? expr)
+         (set! *pp:lgth-symb* (string-length (keyword->string expr)))
+         (inc-pos? *pp:lgth-symb*))
+        ((symbol? expr)
+         (set! *pp:lgth-symb* (string-length (symbol->string expr)))
+         (inc-pos? *pp:lgth-symb*))
+        ((string? expr)    ; don't forget " "
+         (set! *pp:lgth-symb* (+ 2 (string-length expr)))
+         (inc-pos? *pp:lgth-symb*))
+        ((boolean? expr)   ; #t or #f
+         (set! *pp:lgth-symb* 2)
+         (inc-pos? *pp:lgth-symb*))
+        ((number? expr)
+         (set! *pp:lgth-symb*  (string-length (number->string expr)))
+         (inc-pos? *pp:lgth-symb*))
+        ((eof-object? expr) (inc-pos? 5))  ;??????????????????
+        ((char? expr)                   ; #\...
+         (inc-pos? (case expr
+                     (#\null 6)
+                     (#\bell 6)
+                     (#\space 7)
+                     (#\delete 8)
+                     (#\backspace 11)
+                     (#\tab 5)
+                     (#\newline 9)
+                     (#\page 6)
+                     (#\return 8)
+                     (#\escape 8)
+                     (else 3))))
+        ((pair? expr)      ; ( a b ...)
+         (let ((head (car expr))
+               (tail (cdr expr))
+               (subst (*pp:abbrev* expr)))
+           (cond (subst      ; to substitute
+                  (set! *pp:lgth-symb* 
+                        (if (or (eq? subst 'unquote-splicing)
+                                (eq? subst 'quote-unquote))
+                            2 
+                            1))
+                  (and (inc-pos? *pp:lgth-symb*)
+                       (*pp:fit?* tail)))
+                 ((null? tail)    ;  (a)
+                  (and (inc-pos? 2) (*pp:fit?* head)))
+                 ((and (pair? tail)
+                       (null? (cdr tail))) ; (a b)
+                  (and (inc-pos? 1) (*pp:fit?* head) (*pp:fit?* tail)))
+                 (else            ; (a b ...)
+                  (and (inc-pos? 2) (*pp:fit?* head) (*pp:fit?* tail))))))
+        ((vector? expr)
+         (letrec ((vlen (- (vector-length expr) 1))
+                  (vloop
+                   (lambda (n)
+                     (if (< n vlen)
+                         (and (inc-pos? 1)
+                              (*pp:fit?* (vector-ref expr n))
+                              (vloop (+ n 1)))
+                         (and (inc-pos? 1)
+                              (*pp:fit?* (vector-ref expr vlen)))))))
+           (and (inc-pos? 2) (vloop 0))))
+        (else   ; null list
+         #t)))
+
+;******************************************************************
+; output an expression
+;******************************************************************
+(define (*pp:print-expr* expr pos)
+  (let ((special 
+         (if (and *pp:to-substitute* (pair? expr))
+             (assoc (car expr) *printer-list*)
+             #f)))
+    (if (pair? special)
+        ((cdr special) expr pos)
+        (begin (set! *pp:last* *pp:cur-pos*)
+               (if (not (*pp:fit?* expr))
+                   (*pp:newline-indent* pos))
+               (cond ((vector? expr) (*pp:print-vector* expr pos))
+                     ((not (pair? expr))
+                      ; *pp:lgth-symb* = lgth of the last symb
+                      (*pp:output-symb* expr))
+                     ((and (not (pair? (car expr)))
+                           (list? expr))  ; (operator args)
+                      (*pp:print-op* expr pos))
+                     (else (*pp:print-list* expr pos)))))))
+
+;******************************************************************
+; output a vector
+;******************************************************************
+(define (*pp:print-vector* vect pos)
+  (*pp:out-char* "#")   
+; en attendant de pouvoir mettre :
+;  (*pp:out-char* #\#)
+  (*pp:left-par*)
+  (let ((vect-lgth (- (vector-length vect) 1))
+        (n 0))
+    (set! pos (+ pos 2))
+    (*pp:print-expr* (vector-ref vect n) pos) ; first element
+    (while (< n vect-lgth)
+           (*pp:space*)
+           (set! n (+ n 1))
+           (*pp:print-expr* (vector-ref vect n) pos)))
+  (*pp:right-par*))
+
+  ;******************************************************************
+; output (operator args)
+;******************************************************************
+(define (*pp:print-op* expr pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1))
+  (let ((first-line *pp:line*))
+    (unless (null? (cdr expr))
+          (set! *pp:last* *pp:cur-pos*)
+          (if (or (and (pair? (cadr expr)) (not (*pp:fit?* (caadr expr))))
+                  (and (not (pair? (cadr expr)))
+                       (not (*pp:fit?* (cadr expr)))))
+              (*pp:newline-indent* (+ pos 1))
+              (*pp:space*))
+
+          (set! pos *pp:cur-pos*)
+          (set! *pp:last-symb-is-new-line* #t)
+          (*pp:print-expr* (cadr expr) pos) ; 1st arg on the same line
+          (for-each (lambda (arg)
+                      (set! *pp:last* *pp:cur-pos*)
+;                     (if (or (not (*pp:fit?* arg)) (< first-line *pp:line*))
+                      (if (not (*pp:fit?* arg))
+                          (*pp:newline-indent* pos)
+                          (*pp:space*))
+                      (*pp:print-expr* arg pos))
+                    (cddr expr))))
+  (*pp:right-par*))
+
+;******************************************************************
+; output (if cond then else)
+;******************************************************************
+(define (*pp:print-if* expr pos)
+  (let ((on-new-line #f) (first-line *pp:line*))
+    (*pp:left-par*)
+    (*pp:print-expr* (car expr) pos)   ; if
+    (*pp:space*)
+    (set! pos *pp:cur-pos*)
+    (set! *pp:last-symb-is-new-line* #t) ; to stay on the same line
+    (*pp:print-expr* (cadr expr) pos)       ; cond
+    (set! *pp:last* *pp:cur-pos*)
+    (set! on-new-line (or (not (*pp:fit?* (cddr expr)))  ; (then else)
+                          (< first-line *pp:line*)))
+    (if on-new-line (*pp:newline-indent* pos) (*pp:space*))
+    (*pp:print-expr* (caddr expr) pos) ; then
+    (when (not (null? (cdddr expr)))
+          (if on-new-line (*pp:newline-indent* pos) (*pp:space*))
+          (*pp:print-expr* (cadddr expr) pos))
+    (*pp:right-par*)))
+
+;******************************************************************
+; output clause
+;******************************************************************
+(define (*pp:print-clause* clause pos)
+  (*pp:left-par*)
+  (unless (null? clause)
+          (*pp:print-expr* (car clause) pos)
+          (set! *pp:last* *pp:cur-pos*)
+          (if (not (*pp:fit?* (cdr clause)))
+              (*pp:newline-indent* pos)
+              (*pp:space*))
+          (set! clause (cdr clause))
+          (while (not (null? clause))
+                 (*pp:print-expr* (car clause) pos)
+                 (unless (null? (cdr clause))
+                       (set! *pp:last* *pp:cur-pos*)
+                       (if (not (*pp:fit?* (cadr clause)))
+                           (*pp:newline-indent* pos)
+                           (*pp:space*)))
+                 (set! clause (cdr clause))))
+  (*pp:right-par*))
+
+;******************************************************************
+; output (cond clauses)
+;******************************************************************
+(define (*pp:print-cond* expr pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1)) ; output "cond"
+  (*pp:space*)
+  (set! pos (+  pos 6))
+  (*pp:print-clause* (cadr expr) (+ pos 1))  ; the first clause
+  (for-each (lambda (clause)
+              (*pp:newline-indent* pos)
+              (*pp:print-clause* clause (+ pos 1)))
+            (cddr expr))
+  (*pp:right-par*))
+
+;******************************************************************
+; output (case clauses)
+;******************************************************************
+(define (*pp:print-case* expr pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1))
+  (*pp:space*)
+  (set! pos (+  pos 2))
+  (*pp:print-expr* (cadr expr) pos)
+  (for-each (lambda (clause)
+              (*pp:newline-indent* pos)
+              (*pp:print-clause* clause pos))
+            (cddr expr))
+  (*pp:right-par*))
+
+;******************************************************************
+; output (do inits exit body)
+;******************************************************************
+(define (*pp:print-do* expr pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1))  ; do
+  (*pp:space*)
+  (let ((inits (cadr expr))
+        (exit (caddr expr))
+        (body (cdddr expr))
+        (pos-ie (+ pos 4))
+        (pos-body (+ pos 2)))
+    (*pp:print-clause* inits pos-ie)
+    (*pp:newline-indent* pos-ie)
+    (*pp:print-clause* exit pos-ie)
+    (for-each (lambda (expr)
+                (*pp:newline-indent* pos-body)
+                (*pp:print-expr* expr pos-body))
+              body))
+  (*pp:right-par*))
+
+;******************************************************************
+; output  (let|let*|letrec|let-syntax|letrec-syntax bindings  body)
+;******************************************************************
+(define (*pp:print-let* expr pos)
+
+  (define (print-binding bind pos)
+    (*pp:left-par*)
+    (*pp:print-expr* (car bind) pos)
+    (*pp:space*)
+    (set! *pp:last-symb-is-new-line* #t) ; to stay on the same line
+    (*pp:print-expr* (cadr bind) pos)
+    (*pp:right-par*))
+
+  (*pp:newline-indent* pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1))
+  (*pp:space*)
+  (set! pos (+ pos 2))
+  (let ((pos-bind (+ pos *pp:lgth-symb* 1))
+        (bindings (cadr expr))
+        (body (cddr expr)))
+    (if (symbol? bindings)          ; named let
+        (begin (*pp:print-expr* bindings pos-bind)
+               (*pp:space*)
+               (set! pos-bind (+ pos-bind *pp:lgth-symb* 1))
+               (set! bindings (caddr expr))
+               (set! body (cdr body))))
+    (*pp:left-par*)
+    (when (not (null? bindings))
+	  (print-binding (car bindings) pos-bind)  ; the first binding
+	  (for-each (lambda (clause)
+		      (*pp:newline-indent* pos-bind)
+		      (print-binding clause pos-bind))                  
+		    (cdr bindings)))
+    (*pp:right-par*)
+    (for-each (lambda (expr)
+                (*pp:newline-indent* pos)
+                (*pp:print-expr* expr pos))
+              body))
+  (*pp:right-par*))
+
+;******************************************************************
+; output (define|define-macro|extend-syntax|when|unless|while arg body) 
+; on a new line  
+;******************************************************************
+(define (*pp:print-sform* expr pos)
+  (*pp:newline-indent* pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) (+ pos 1))
+  (*pp:space*)
+  (set! pos (+ pos 2))
+  (set! *pp:last* *pp:cur-pos*)
+  (if (not (*pp:fit?* (cadr expr))) (*pp:newline-indent* pos))
+  (*pp:print-expr* (cadr expr) pos)
+  (let ((next-on-new-line (pair? (cadr expr))))
+    (for-each (lambda (arg)
+                (set! *pp:last* *pp:cur-pos*)
+                (if (or next-on-new-line (not (*pp:fit?* arg)))
+                    (*pp:newline-indent* pos)
+                    (*pp:space*))
+                (*pp:print-expr* arg pos))
+              (cddr expr)))
+  (*pp:right-par*))
+
+;******************************************************************
+;  output (lambda arg body) 
+;******************************************************************
+(define (*pp:print-lambda* expr pos)
+  (let ((next-line #f))
+    (*pp:left-par*)
+    (*pp:print-expr* (car expr) (+ pos 1))
+    (*pp:space*)
+    (set! pos (+ pos 2))
+    (set! *pp:last* *pp:cur-pos*)
+    (unless (*pp:fit?* (cadr expr))
+            (set! next-line #t)
+            (*pp:newline-indent* pos))
+    (*pp:print-expr* (cadr expr) pos)
+    (set! next-line (or next-line (not (*pp:fit?* (cddr expr)))))
+    (for-each (lambda (arg)
+                (if next-line (*pp:newline-indent* pos))
+                (*pp:print-expr* arg pos))
+              (cddr expr))
+    (*pp:right-par*)))
+
+;******************************************************************
+; check for substitution of quote, quasiquote, unquote, unquote-splicing
+; general rules :
+;   After a quote, symbols don't have to be substitued except for unquote
+;******************************************************************
+(define (*pp:abbrev* expr)
+  (if (and *pp:to-substitute* (pair? expr))
+      (cond ((and (pair? (cdr expr))
+                  (null? (cddr expr))
+                  (eq? (car expr) 'quote))    ; (quote x)
+             (if (and (pair? (cadr expr))
+                      (eq? (caadr expr) 'unquote))
+                 'quote-unquote
+                 'quote))
+            (else
+             (if (memq (car expr)
+                       '(quasiquote unquote unquote-splicing))
+                 (car expr)
+                 #f)))
+      #f))
+
+;******************************************************************
+;  output (quote arg)                        ==> 'arg 
+;         (quote ( arg1 arg2 ...))           ==> '(arg1 ag2 ...)
+;         (quote (unquote arg))              ==> ',arg
+;         (quote (unquote arg1 arg2 ...))    ==> ',(arg1 arg2 ...)
+;         (quasiquote arg)                   ==> `arg
+;         (quasiquote (arg1 arg2 ...))       ==> `(arg1 arg2 ...)
+;         (unquote arg)                      ==> , arg
+;         (unquote (arg1 arg2 ...))          ==> ,(arg1 arg2 ...)
+;         (unquote-splicing  arg)            ==> ,@ arg
+;         (unquote-splicing (arg1 arg2 ...)) ==> ,@(arg1 arg2 ...)
+;******************************************************************
+(define (*pp:print-quote*  expr pos)
+  (let ((which (*pp:abbrev* expr)))
+    (cond ((not which)
+           (set! *pp:to-substitute* #f)
+           (*pp:print-expr* expr pos)
+           (set! *pp:to-substitute* #t))
+          ((eq? which 'quote)
+           (set! *pp:to-substitute* #f)
+           (set! *pp:last* (+ *pp:cur-pos* 1))
+           (if (not (*pp:fit?* (cdr expr))) (*pp:newline-indent* pos))
+           (*pp:out-char* #\')
+           (*pp:print-expr* (cadr expr) (+ pos 1))
+           (set! *pp:to-substitute* #t))
+          ((eq? which 'quote-unquote)
+           (*pp:out-char* #\') (*pp:out-char* #\,)
+           (*pp:print-expr* (car (cdadr expr)) (+ pos 2)))
+          (else
+           (case which
+             (quasiquote (*pp:out-char* #\`))
+             (unquote (*pp:out-char* #\,))
+             (unquote-splicing (*pp:out-char* #\,) (*pp:out-char* #\@)))
+           (*pp:print-expr* (cadr expr)
+                            (+ pos (if (eq? which 'unquote-splicing)
+                                       2 
+                                       1)))))))
+
+;******************************************************************
+;  output (call/cc|call-with-current-continuation body)
+;******************************************************************
+(define (*pp:print-sform0* expr pos)
+  (*pp:left-par*)
+  (*pp:print-expr* (car expr) pos)
+  (set! pos (+ pos 2))
+  (for-each (lambda (arg)
+              (*pp:newline-indent* pos)
+              (*pp:print-expr* arg pos))
+            (cdr expr))
+  (*pp:right-par*))
+
+
+;******************************************************************
+;  output a list
+;******************************************************************
+(define (*pp:print-list*  lst pos)
+  (*pp:left-par*)
+  (set! pos (+ pos 1))
+  (*pp:print-expr* (car lst) pos)  ; 1st element
+  (let ((last #f) (lst (cdr lst)))
+    (while (and (not (null? lst)) (not last))
+           (cond ((not (pair? lst))
+                  (*pp:period*)
+                  (*pp:print-expr* lst pos)
+                  (set! last #t))
+                 (else
+                  (*pp:space*)
+                  (*pp:print-expr* (car lst) pos)))
+           (if (not last) (set! lst (cdr lst)))))
+  (*pp:right-par*))
+    
+;******************************************************************
+;  define special forms
+;******************************************************************
+
+(define (printer-add form printer)    ; add special pretty printers
+  (set! *printer-list*
+        (cons '()
+              (cons (cons form printer)
+                    (cdr *printer-list*)))))
+  
+(printer-add 'quote *pp:print-quote*)
+(printer-add 'quasiquote *pp:print-quote*)
+(printer-add 'unquote *pp:print-quote*)
+(printer-add 'unquote-splicing *pp:print-quote*)
+
+(printer-add 'lambda *pp:print-lambda*)
+
+(printer-add 'define *pp:print-sform*)
+(printer-add 'define-macro *pp:print-sform*)
+(printer-add 'extend-syntax *pp:print-sform*)
+(printer-add 'when *pp:print-sform*)
+(printer-add 'unless *pp:print-sform*)
+(printer-add 'while *pp:print-sform*)
+
+(printer-add 'let *pp:print-let*)
+(printer-add 'letrec *pp:print-let*)
+(printer-add 'let* *pp:print-let*)
+(printer-add 'let-syntax *pp:print-let*)
+(printer-add 'letrec-syntax *pp:print-let*)
+
+(printer-add 'do *pp:print-do*)
+
+(printer-add 'if *pp:print-if*)
+
+(printer-add 'cond *pp:print-cond*)
+
+(printer-add 'case *pp:print-case*)
+(printer-add 'record-case *pp:print-case*)
+
+(printer-add 'call-with-current-continuation *pp:print-sform0*)
+(printer-add 'call/cc *pp:print-sform0*)
diff --git a/Lib/process.stk b/Lib/process.stk
new file mode 100644
index 0000000..b5caab1
--- /dev/null
+++ b/Lib/process.stk
@@ -0,0 +1,27 @@
+;;;;
+;;;; p r o c e s s . s t k 		-- Processes 
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  9-Nov-1994 13:24
+;;;; Last file update: 13-Aug-1996 21:43
+;;;;
+
+(if (symbol-bound? '%init-process)
+    ;; Process module is in the core interpreter
+    (%init-process)
+    ;; Try to load it dynamically
+    (load (string-append "process." *shared-suffix*)))
+
+(provide "process")
diff --git a/Lib/prolog.ps b/Lib/prolog.ps
new file mode 100644
index 0000000..409e06a
--- /dev/null
+++ b/Lib/prolog.ps
@@ -0,0 +1,284 @@
+%%BeginProlog
+50 dict begin
+
+% This is a standard prolog for Postscript generated by Tk's canvas
+% widget.
+% SCCS: @(#) prolog.ps 1.5 96/02/17 17:45:11
+
+% The definitions below just define all of the variables used in
+% any of the procedures here.  This is needed for obscure reasons
+% explained on p. 716 of the Postscript manual (Section H.2.7,
+% "Initializing Variables," in the section on Encapsulated Postscript).
+
+/baseline 0 def
+/stipimage 0 def
+/height 0 def
+/justify 0 def
+/lineLength 0 def
+/spacing 0 def
+/stipple 0 def
+/strings 0 def
+/xoffset 0 def
+/yoffset 0 def
+/tmpstip null def
+
+% Define the array ISOLatin1Encoding (which specifies how characters are
+% encoded for ISO-8859-1 fonts), if it isn't already present (Postscript
+% level 2 is supposed to define it, but level 1 doesn't).
+
+systemdict /ISOLatin1Encoding known not {
+    /ISOLatin1Encoding [
+	/space /space /space /space /space /space /space /space
+	/space /space /space /space /space /space /space /space
+	/space /space /space /space /space /space /space /space
+	/space /space /space /space /space /space /space /space
+	/space /exclam /quotedbl /numbersign /dollar /percent /ampersand
+	    /quoteright
+	/parenleft /parenright /asterisk /plus /comma /minus /period /slash
+	/zero /one /two /three /four /five /six /seven
+	/eight /nine /colon /semicolon /less /equal /greater /question
+	/at /A /B /C /D /E /F /G
+	/H /I /J /K /L /M /N /O
+	/P /Q /R /S /T /U /V /W
+	/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
+	/quoteleft /a /b /c /d /e /f /g
+	/h /i /j /k /l /m /n /o
+	/p /q /r /s /t /u /v /w
+	/x /y /z /braceleft /bar /braceright /asciitilde /space
+	/space /space /space /space /space /space /space /space
+	/space /space /space /space /space /space /space /space
+	/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
+	/dieresis /space /ring /cedilla /space /hungarumlaut /ogonek /caron
+	/space /exclamdown /cent /sterling /currency /yen /brokenbar /section
+	/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
+	    /registered /macron
+	/degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
+	    /periodcentered
+	/cedillar /onesuperior /ordmasculine /guillemotright /onequarter
+	    /onehalf /threequarters /questiondown
+	/Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
+	/Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex
+	    /Idieresis
+	/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
+	/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
+	    /germandbls
+	/agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla
+	/egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex
+	    /idieresis
+	/eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide
+	/oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn
+	    /ydieresis
+    ] def
+} if
+
+% font ISOEncode font
+% This procedure changes the encoding of a font from the default
+% Postscript encoding to ISOLatin1.  It's typically invoked just
+% before invoking "setfont".  The body of this procedure comes from
+% Section 5.6.1 of the Postscript book.
+
+/ISOEncode {
+    dup length dict begin
+	{1 index /FID ne {def} {pop pop} ifelse} forall
+	/Encoding ISOLatin1Encoding def
+	currentdict
+    end
+
+    % I'm not sure why it's necessary to use "definefont" on this new
+    % font, but it seems to be important; just use the name "Temporary"
+    % for the font.
+
+    /Temporary exch definefont
+} bind def
+
+% StrokeClip
+%
+% This procedure converts the current path into a clip area under
+% the assumption of stroking.  It's a bit tricky because some Postscript
+% interpreters get errors during strokepath for dashed lines.  If
+% this happens then turn off dashes and try again.
+
+/StrokeClip {
+    {strokepath} stopped {
+	(This Postscript printer gets limitcheck overflows when) =
+	(stippling dashed lines;  lines will be printed solid instead.) =
+	[] 0 setdash strokepath} if
+    clip
+} bind def
+
+% desiredSize EvenPixels closestSize
+%
+% The procedure below is used for stippling.  Given the optimal size
+% of a dot in a stipple pattern in the current user coordinate system,
+% compute the closest size that is an exact multiple of the device's
+% pixel size.  This allows stipple patterns to be displayed without
+% aliasing effects.
+
+/EvenPixels {
+    % Compute exact number of device pixels per stipple dot.
+    dup 0 matrix currentmatrix dtransform
+    dup mul exch dup mul add sqrt
+
+    % Round to an integer, make sure the number is at least 1, and compute
+    % user coord distance corresponding to this.
+    dup round dup 1 lt {pop 1} if
+    exch div mul
+} bind def
+
+% width height string StippleFill --
+%
+% Given a path already set up and a clipping region generated from
+% it, this procedure will fill the clipping region with a stipple
+% pattern.  "String" contains a proper image description of the
+% stipple pattern and "width" and "height" give its dimensions.  Each
+% stipple dot is assumed to be about one unit across in the current
+% user coordinate system.  This procedure trashes the graphics state.
+
+/StippleFill {
+    % The following code is needed to work around a NeWSprint bug.
+
+    /tmpstip 1 index def
+
+    % Change the scaling so that one user unit in user coordinates
+    % corresponds to the size of one stipple dot.
+    1 EvenPixels dup scale
+
+    % Compute the bounding box occupied by the path (which is now
+    % the clipping region), and round the lower coordinates down
+    % to the nearest starting point for the stipple pattern.  Be
+    % careful about negative numbers, since the rounding works
+    % differently on them.
+
+    pathbbox
+    4 2 roll
+    5 index div dup 0 lt {1 sub} if cvi 5 index mul 4 1 roll
+    6 index div dup 0 lt {1 sub} if cvi 6 index mul 3 2 roll
+
+    % Stack now: width height string y1 y2 x1 x2
+    % Below is a doubly-nested for loop to iterate across this area
+    % in units of the stipple pattern size, going up columns then
+    % across rows, blasting out a stipple-pattern-sized rectangle at
+    % each position
+
+    6 index exch {
+	2 index 5 index 3 index {
+	    % Stack now: width height string y1 y2 x y
+
+	    gsave
+	    1 index exch translate
+	    5 index 5 index true matrix tmpstip imagemask
+	    grestore
+	} for
+	pop
+    } for
+    pop pop pop pop pop
+} bind def
+
+% -- AdjustColor --
+% Given a color value already set for output by the caller, adjusts
+% that value to a grayscale or mono value if requested by the CL
+% variable.
+
+/AdjustColor {
+    CL 2 lt {
+	currentgray
+	CL 0 eq {
+	    .5 lt {0} {1} ifelse
+	} if
+	setgray
+    } if
+} bind def
+
+% x y strings spacing xoffset yoffset justify stipple DrawText --
+% This procedure does all of the real work of drawing text.  The
+% color and font must already have been set by the caller, and the
+% following arguments must be on the stack:
+%
+% x, y -	Coordinates at which to draw text.
+% strings -	An array of strings, one for each line of the text item,
+%		in order from top to bottom.
+% spacing -	Spacing between lines.
+% xoffset -	Horizontal offset for text bbox relative to x and y: 0 for
+%		nw/w/sw anchor, -0.5 for n/center/s, and -1.0 for ne/e/se.
+% yoffset -	Vertical offset for text bbox relative to x and y: 0 for
+%		nw/n/ne anchor, +0.5 for w/center/e, and +1.0 for sw/s/se.
+% justify -	0 for left justification, 0.5 for center, 1 for right justify.
+% stipple -	Boolean value indicating whether or not text is to be
+%		drawn in stippled fashion.  If text is stippled,
+%		procedure StippleText must have been defined to call
+%		StippleFill in the right way.
+%
+% Also, when this procedure is invoked, the color and font must already
+% have been set for the text.
+
+/DrawText {
+    /stipple exch def
+    /justify exch def
+    /yoffset exch def
+    /xoffset exch def
+    /spacing exch def
+    /strings exch def
+
+    % First scan through all of the text to find the widest line.
+
+    /lineLength 0 def
+    strings {
+	stringwidth pop
+	dup lineLength gt {/lineLength exch def} {pop} ifelse
+	newpath
+    } forall
+
+    % Compute the baseline offset and the actual font height.
+
+    0 0 moveto (TXygqPZ) false charpath
+    pathbbox dup /baseline exch def
+    exch pop exch sub /height exch def pop
+    newpath
+
+    % Translate coordinates first so that the origin is at the upper-left
+    % corner of the text's bounding box. Remember that x and y for
+    % positioning are still on the stack.
+
+    translate
+    lineLength xoffset mul
+    strings length 1 sub spacing mul height add yoffset mul translate
+
+    % Now use the baseline and justification information to translate so
+    % that the origin is at the baseline and positioning point for the
+    % first line of text.
+
+    justify lineLength mul baseline neg translate
+
+    % Iterate over each of the lines to output it.  For each line,
+    % compute its width again so it can be properly justified, then
+    % display it.
+
+    strings {
+	dup stringwidth pop
+	justify neg mul 0 moveto
+	stipple {
+
+	    % The text is stippled, so turn it into a path and print
+	    % by calling StippledText, which in turn calls StippleFill.
+	    % Unfortunately, many Postscript interpreters will get
+	    % overflow errors if we try to do the whole string at
+	    % once, so do it a character at a time.
+
+	    gsave
+	    /char (X) def
+	    {
+		char 0 3 -1 roll put
+		currentpoint
+		gsave
+		char true charpath clip StippleText
+		grestore
+		char stringwidth translate
+		moveto
+	    } forall
+	    grestore
+	} {show} ifelse
+	0 spacing neg translate
+    } forall
+} bind def
+
+%%EndProlog
diff --git a/Lib/regexp.stk b/Lib/regexp.stk
new file mode 100644
index 0000000..6a3ff49
--- /dev/null
+++ b/Lib/regexp.stk
@@ -0,0 +1,105 @@
+;;;;
+;;;; r e g e x p . s t k 		-- Regular expressions
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  9-Nov-1994 13:24
+;;;; Last file update: 21-Jul-1996 18:41
+;;;;
+;;;; Regexp-replace-all bug correction due to Sean Slattery 
+;;;; <jslttery@GS148.SP.CS.CMU.EDU>
+
+(if (symbol-bound? '%init-regexp)
+    ;; Regexp module is in the core interpreter
+    (%init-regexp)
+    ;; Try to load regexp module dynamically
+    (load (string-append "sregexp." *shared-suffix*)))
+
+(define (replace-string string ind1 ind2 new)
+  (string-append (substring string 0 ind1)
+		 new
+		 (substring string ind2 (string-length string))))
+
+(define regexp-replace		#f)
+(define regexp-replace-all	#f)
+
+(let ()
+
+  ;; Utility function
+  ;; Given a string  and a set of substitutions, return the substitued string
+  (define (replace-submodels string subst match)
+    (if (= (length match) 1)
+	;; There is no sub-model
+	subst
+	;; There are at least one sub-model to replace
+	(let Loop ((subst subst))
+	  (let ((pos ((string->regexp "\\\\[0-9]") subst)))
+	    (if pos
+		;; At least one \x in the substitution string
+		(let* ((index (+ (caar pos) 1))
+		       (val   (string->number (substring subst index (+ index 1)))))
+		  (if (>= val (length match))
+		      (error "regexp-replace: cannot match \\~A in model" val)
+		      ;; Build a new subst with the current \x remplaced by 
+		      ;; its value. Iterate for further \x
+		      (Loop (replace-string subst 
+					    (caar pos)
+					    (cadar pos)
+					    (apply substring string
+						   (list-ref match val))))))
+		;; No \x in substitution string
+		subst)))))
+
+  ;; If there is a match, call replace-submodels; otherwise return string unmodified
+  ;; This function takes an iterator function to allow multiple substitution
+  ;; (iterator function = Identity for regexp-replace)
+  (set! regexp-replace 
+	(lambda (pat str subst)
+	  (let* ((regexp (cond
+			  ((regexp? pat) pat)
+			  ((string? pat) (string->regexp pat))
+			  (else  (error "regexp-replace: Bad pattern '~1'" pat))))
+		 (match   (regexp str)))
+	    (if match
+		;; There was a match
+		(replace-string str 
+				(caar match) 
+				(cadar match) 
+				(replace-submodels str subst match))
+		;; No match, return the original string
+		str))))
+
+
+  (set! regexp-replace-all		  
+	(lambda (pat str subst)		  
+	  (letrec ((regexp-replace-all-r
+		    (lambda (regexp str subst)
+		      (let ((match (regexp str)))
+			(if match
+			    (string-append (substring str 0 (caar match))
+					   (replace-submodels str subst match)
+					   (regexp-replace-all-r
+					            regexp 
+						    (substring str 
+							       (cadar match) 
+							       (string-length str))
+						    subst))
+			    str)))))
+	    (let ((regexp (cond
+			   ((regexp? pat) pat)
+			   ((string? pat) (string->regexp pat))
+			   (else  (error "regexp-replace: Bad pattern '~1'" pat)))))
+	      (regexp-replace-all-r regexp str subst))))))
+
+(provide "regexp")
diff --git a/Lib/scale.stk b/Lib/scale.stk
new file mode 100644
index 0000000..9cac55f
--- /dev/null
+++ b/Lib/scale.stk
@@ -0,0 +1,249 @@
+;;;;
+;;;; Scale bindings and procs
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update: 21-Jul-1996 17:08
+;;;;
+
+(let ()
+
+(define dragging   #f)
+(define init-value #f)
+(define delta-x	   0)
+(define delta-y	   0)
+
+;;-------------------------------------------------------------------------
+;; The code below creates the default class bindings for entries.
+;;-------------------------------------------------------------------------
+
+;; Standard Motif bindings:
+
+(define-binding "Scale" "<Enter>" (|W| x y)
+  (when *tk-strict-Motif* 
+     (set! Tk::active-bg (tk-get |W| :activebackground))
+     (tk-set! |W| :activebackground (tk-get |W| :background)))
+  (Tk:scale-activate |W| x y))
+
+(define-binding "Scale" "<Motion>" (|W| x y)
+  (Tk:scale-activate |W| x y))
+
+(define-binding "Scale" "<Leave>" (|W|)
+  (if *tk-strict-Motif*
+      (tk-set! |W| :activebackground Tk::active-bg))
+  (if (equal? (tk-get |W| :state) "active")
+      (tk-set! |W| :state "normal")))
+
+(define-binding "Scale" "<1>" (|W| x y)
+  (Tk:scale-button-down |W| x y))
+
+(define-binding "Scale" "<B1-Motion>" (|W| x y)
+  (Tk:scale-drag |W| x y))
+
+(define-binding "Scale" "<B1-Leave>" () "")
+
+(define-binding "Scale" "<B1-Enter>" () "")
+
+(define-binding "Scale" "<ButtonRelease-1>" (|W| x y)
+  (Tk:cancel-repeat)
+  (Tk:scale-end-drag |W|)
+  (Tk:scale-activate |W| x y))
+
+(define-binding "Scale" "<2>" (|W| x y)
+  (Tk:scale-button-2-down |W| x y))
+
+(define-binding "Scale" "<B2-Motion>" (|W| x y)
+  (Tk:scale-drag |W| x y))
+
+(define-binding "Scale" "<B2-Leave>" () "")
+
+(define-binding "Scale" "<B2-Enter>" () "")
+
+(define-binding "Scale" "<ButtonRelease-2>" (|W| x y)
+  (Tk:cancel-repeat)
+  (Tk:scale-end-drag |W|)
+  (Tk:scale-activate |W| x y))
+
+(define-binding "Scale" "<Control-1>" (|W| x y)
+  (Tk:scale-control-press |W| x y))
+
+(define-binding "Scale" "<Up>" (|W|)
+  (Tk:scale-increment |W| 'up 'little 'no-repeat))
+
+(define-binding "Scale" "<Down>" (|W|)
+  (Tk:scale-increment |W| 'down 'little 'no-repeat))
+
+(define-binding "Scale" "<Left>" (|W|)
+  (Tk:scale-increment |W| 'up 'little 'no-repeat))
+
+(define-binding "Scale" "<Right>" (|W|)
+  (Tk:scale-increment |W| 'down 'little 'no-repeat))
+
+(define-binding "Scale" "<Control-Up>" (|W|)
+  (Tk:scale-increment |W| 'up 'big 'no-repeat))
+
+(define-binding "Scale" "<Control-Down>" (|W|)
+  (Tk:scale-increment |W| 'down 'big 'no-repeat))
+
+(define-binding "Scale" "<Control-Left>" (|W|)
+  (Tk:scale-increment |W| 'up 'big 'no-repeat))
+
+(define-binding "Scale" "<Control-Right>" (|W|)
+  (Tk:scale-increment |W| 'down 'big 'no-repeat))
+
+(define-binding "Scale" "<Home>" (|W|)
+  (|W| 'set (tk-get |W| :from)))
+
+(define-binding "Scale" "<End>" (|W|)
+  (|W| 'set (tk-get |W| :to)))
+
+
+;; Tk:scale-activate --
+;; This procedure is invoked to check a given x-y position in the
+;; scale and activate the slider if the x-y position falls within
+;; the slider.
+;;
+;; w -		The scale widget.
+;; x, y -	Mouse coordinates.
+
+(define  (Tk:scale-activate w x y)
+  (unless (equal? (tk-get w :state) "disabled")
+     (tk-set! w :state (if (equal? (w 'identify x y) "slider") "active" "normal"))))
+
+;; Tk:scale-button-down --
+;; This procedure is invoked when a button is pressed in a scale.  It
+;; takes different actions depending on where the button was pressed.
+;;
+;; w -		The scale widget.
+;; x, y -	Mouse coordinates of button press.
+
+(define (Tk:scale-button-down w x y)
+  (let ((el (w 'identify x y)))
+    (set! dragging #f)
+    (cond
+       ((string=? el "trough1") (Tk:scale-increment w 'up   'little 'initial))
+       ((string=? el "trough2") (Tk:scale-Increment w 'down 'little 'initial))
+       ((string=? el "slider")  (set! dragging #t)
+				(set! init-value (w 'get))
+				(let ((coords (w 'coords)))
+				  (set! delta-x (- x (car  coords)))
+				  (set! delta-y (- y (cadr coords)))
+				  (w 'configure :sliderrelief "sunken"))))))
+
+;; Tk:scale-drag --
+;; This procedure is called when the mouse is dragged with
+;; mouse button 1 down.  If the drag started inside the slider
+;; (i.e. the scale is active) then the scale's value is adjusted
+;; to reflect the mouse's position.
+;;
+;; w -		The scale widget.
+;; x, y -	Mouse coordinates.
+
+(define (Tk:scale-drag w x y)
+  (when dragging
+     (w 'set (w 'get (- x delta-x) (- y delta-y)))))
+
+
+;; Tk:scale-end-drag --
+;; This procedure is called to end an interactive drag of the
+;; slider.  It just marks the drag as over.
+(define (Tk:scale-end-drag w)
+  (set! dragging #f)
+  (w 'configure :sliderrelief "raised"))
+
+
+;; Tk:scale-increment --
+;; This procedure is invoked to increment the value of a scale and
+;; to set up auto-repeating of the action if that is desired.  The
+;; way the value is incremented depends on the "dir" and "big"
+;; arguments.
+;;
+;; w -		The scale widget.
+;; dir -	"up" means move value towards -from, "down" means
+;;		move towards -to.
+;; size -	Size of increments: "big" or "little".
+;; repeat -	Whether and how to auto-repeat the action:  "no-repeat"
+;;		means don't auto-repeat, "initial" means this is the
+;;		first action in an auto-repeat sequence, and "again"
+;;		means this is the second repetition or later.
+
+(define (Tk:scale-increment w dir size repeat)
+  (when (winfo 'exists w)
+    (let ((inc  0)
+	  (from (tk-get w :from))
+	  (to   (tk-get w :to)))
+
+      (if (eqv? size 'big)
+	  (begin
+	    (set! inc (tk-get w :bigincrement))
+	    (if (= inc 0)
+		(set! inc (abs (/ (- to from) #i10))))
+	    (set! inc (max (tk-get w :resolution) inc)))
+	  (set! inc (tk-get w :resolution)))
+    
+      (if (or (and (> from to) (eqv? dir 'down)) (and (<= from to) (eqv? dir 'up)))
+	  (set! inc (- inc)))
+
+      (w 'set (+ (w 'get) inc))
+
+      (case repeat
+	((again)   (set! tk::after-id 
+			 (after (tk-get w :repeatinterval)
+				(lambda () 
+				  (Tk:scale-increment w dir size 'again)))))
+	((initial) (let ((delay (tk-get w :repeatdelay)))
+		     (if (> delay 0)
+			 (set! Tk::after-id 
+			       (after delay
+				      (lambda () 
+					(Tk:scale-increment w dir 
+							    size 'again)))))))))))
+
+;; Tk:scale-control-press --
+;; This procedure handles button presses that are made with the Control
+;; key down.  Depending on the mouse position, it adjusts the scale
+;; value to one end of the range or the other.
+;;
+;; Arguments:
+;; w -		The scale widget.
+;; x, y -	Mouse coordinates where the button was pressed.
+
+(define (Tk:scale-control-press w x y)
+  (let ((el (w 'identify x y)))
+    (cond
+      ((string=? el "trough1")  (w 'set (tk-get w :from)))
+      ((string=? el "trough2")  (w 'set (tk-get w :to))))))
+
+;; This procedure is invoked when button 2 is pressed over a scale.
+;; It sets the value to correspond to the mouse position and starts
+;; a slider drag.
+;;
+;; Arguments:
+;; w -		The scrollbar widget.
+;; x, y -	Mouse coordinates within the widget.
+
+(define (Tk:scale-button-2-down w x y)
+  (unless (equal? (tk-get w :state) "disabled")
+    (tk-set! w :state "active")
+    (w 'set (w 'get x y))
+    (set! dragging #t)
+    (set! init-value (w 'get))
+    (set! delta-x 0)
+    (set! delta-y 0)))
+
+;; enf of let
+)
diff --git a/Lib/scrollbar.stk b/Lib/scrollbar.stk
new file mode 100644
index 0000000..35ab073
--- /dev/null
+++ b/Lib/scrollbar.stk
@@ -0,0 +1,356 @@
+;;;;
+;;;; Scrollbars bindings and procs
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update:  2-Jul-1996 19:40
+;;;;
+
+(let ()
+
+(define tk::init-pos    "")
+(define tk::init-values '())
+
+;; Standard Motif bindings:
+
+(define-binding "Scrollbar" "<Enter>" (|W| x y)
+  (when *tk-strict-motif* 
+     (set! tk::active-bg (tk-get |W| :activebackground))
+     (tk-set! |W| :activebackground (tk-get |W| :background)))
+  (|W| 'activate (|W| 'identify x y)))
+
+(define-binding "Scrollbar" "<Motion>" (|W| x y)
+  (|W| 'activate (|W| 'identify x y)))
+
+(define-binding "Scrollbar" "<Leave>" (|W|)
+  (if *tk-strict-motif* 
+      (tk-set! |W| :activebackground tk::active-bg))
+  (|W| 'activate ""))
+
+(define-binding "Scrollbar" "<1>" (|W| x y)
+  (Tk:scroll-button-down |W| x y))
+
+(define-binding "Scrollbar" "<B1-Motion>" (|W| x y)
+  (Tk:scroll-drag |W| x y))
+
+(define-binding "Scrollbar" "<B1-B2-Motion>" (|W| x y)
+  (Tk:scroll-drag |W| x y))
+
+(define-binding "Scrollbar" "<ButtonRelease-1>" (|W| x y)
+  (Tk:scroll-button-up |W| x y))
+
+(define-binding "Scrollbar" "<B1-Leave>" ()
+  ;; Prevents <Leave> binding from being invoked.
+  'nop)
+
+(define-binding "Scrollbar" "<B1-Enter>" ()
+  ;; Prevents <Enter> binding from being invoked.
+  'nop)
+
+(define-binding "Scrollbar" "<2>" (|W| x y)
+  (Tk:scroll-button-2-down |W| x y))
+
+(define-binding "Scrollbar" "<B1-2>" ()
+  ; Do nothing, since button 1 is already down.
+  'nop)
+
+(define-binding "Scrollbar" "<B2-1>" (|W| x y)
+  ; Do nothing, since button 2 is already down.
+  'nop)
+
+(define-binding "Scrollbar" "<B2-Motion>" (|W| x y)
+  (Tk:scroll-drag |W| x y))
+
+(define-binding "Scrollbar" "<ButtonRelease-2>" (|W| x y)
+  (Tk:scroll-button-up |W| x y))
+
+(define-binding "Scrollbar" "<B1-ButtonRelease-2>" ()
+  ;Do nothing:  B1 release will handle it.
+  'nop)
+
+(define-binding "Scrollbar" "<B2-ButtonRelease-1>" ()
+  ;Do nothing:  B1 release will handle it.
+  'nop)
+
+(define-binding "Scrollbar" "<B2-Leave>" ()
+  ;; Prevents <Leave> binding from being invoked.
+  'nop)
+
+(define-binding "Scrollbar" "<B2-Enter>" ()
+  ;; Prevents <Enter> binding from being invoked.
+  'nop)
+
+(define-binding "Scrollbar" "<Control-1>" (|W| x y)
+  (Tk:scroll-top-bottom |W| x y))
+
+(define-binding "Scrollbar" "<Control-2>" (|W| x y)
+  (Tk:scroll-top-bottom |W| x y))
+
+(define-binding "Scrollbar" "<Up>"            (|W|) (Tk:scroll-by-units |W| 'v -1))
+(define-binding "Scrollbar" "<Down>"          (|W|) (Tk:scroll-by-units |W| 'v +1))
+(define-binding "Scrollbar" "<Control-Up>"    (|W|) (Tk:scroll-by-pages |W| 'v -1))
+(define-binding "Scrollbar" "<Control-Down>"  (|W|) (Tk:scroll-by-pages |W| 'v +1))
+(define-binding "Scrollbar" "<Left>" 	      (|W|) (Tk:scroll-by-units |W| 'h -1))
+(define-binding "Scrollbar" "<Right>"         (|W|) (Tk:scroll-by-units |W| 'h +1))
+(define-binding "Scrollbar" "<Control-Left>"  (|W|) (Tk:scroll-by-pages |W| 'h -1))
+(define-binding "Scrollbar" "<Control-Right>" (|W|) (Tk:scroll-by-pages |W| 'hd +1))
+(define-binding "Scrollbar" "<Prior>" 	      (|W|) (Tk:scroll-by-pages |W| 'hv -1))
+(define-binding "Scrollbar" "<Next>" 	      (|W|) (Tk:scroll-by-pages |W| 'hv +1))
+
+(define-binding "Scrollbar" "<Home>" (|W|)
+  (Tk:scroll-to-pos |W| 0))
+
+(define-binding "Scrollbar" "<End>" (|W|)
+  (Tk:scroll-to-pos |W| 1))
+
+
+;; Tk:scroll-button-down --
+;; This procedure is invoked when a button is pressed in a scrollbar.
+;; It changes the way the scrollbar is displayed and takes actions
+;; depending on where the mouse is.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	Mouse coordinates.
+
+(define (Tk:scroll-button-down w x y)
+  (let ((element (w 'identify x y)))
+    (set! tk::relief (tk-get w :activerelief))
+    (tk-set! w :activerelief "sunken")
+    (if (equal? element "slider")
+	(Tk:scroll-start-drag w x y)
+	(Tk:scroll-select w element "initial"))))
+
+;; Tk:scroll-button-up --
+;; This procedure is invoked when a button is released in a scrollbar.
+;; It cancels scans and auto-repeats that were in progress, and restores
+;; the way the active element is displayed.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	Mouse coordinates.
+
+(define (Tk:scroll-button-up w x y)
+  (Tk:cancel-repeat)
+  (tk-set! w :activerelief tk::relief)
+  (Tk:scroll-end-drag w x y)
+  (w 'activate (w 'identify x y)))
+
+
+;; Tk:scroll-select --
+;; This procedure is invoked when a button is pressed over the scrollbar.
+;; It invokes one of several scrolling actions depending on where in
+;; the scrollbar the button was pressed.
+;;
+;; w -		The scrollbar widget.
+;; element -	The element of the scrollbar that was selected, such
+;;		as "arrow1" or "trough2".  Shouldn't be "slider".
+;; repeat -	Whether and how to auto-repeat the action:  "noRepeat"
+;;		means don't auto-repeat, "initial" means this is the
+;;		first action in an auto-repeat sequence, and "again"
+;;		means this is the second repetition or later.
+
+(define (Tk:scroll-select w element repeat)
+  (when (winfo 'exists w)
+    (let ((cont (lambda ()
+		  (cond
+		   ((string=? repeat "again") 
+		         (set! tk::after-id
+			       (after (tk-get w :repeatinterval)
+				      (lambda ()
+					(Tk:scroll-select w 
+							  element 
+							  "again")))))
+		   ((string=? repeat "initial")
+		         (let ((delay (tk-get w :repeatdelay)))
+			   (if (> delay 0)
+			       (set! tk::after-id 
+				     (after delay
+					    (lambda ()
+					      (Tk:scroll-select w 
+								element 
+								"again")))))))))))
+      (cond
+       ((equal? element "arrow1")  (Tk:scroll-by-units w 'hv -1) (cont))
+       ((equal? element "trough1") (Tk:scroll-by-pages w 'hv -1) (cont))
+       ((equal? element "trough2") (Tk:scroll-by-pages w 'hv +1) (cont))
+       ((equal? element "arrow2")  (Tk:scroll-by-units w 'hv +1) (cont))))))
+
+
+;; Tk:scroll-start-drag --
+;; This procedure is called to initiate a drag of the slider.  It just
+;; remembers the starting position of the mouse and slider.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	The mouse position at the start of the drag operation.
+
+(define (Tk:scroll-start-drag w x y)
+  (unless (equal? (tk-get w :command) "")
+     (set! tk::press-x x)
+     (set! tk::press-y y)
+     (set! tk::init-values (w 'get))
+     (let ((iv0 (car tk::init-values)))
+       (if (= (length tk::init-values) 2)
+	   (set! tk::init-pos iv0)
+	   (if (= iv0 0)
+	       (set! tk::init-pos 0.0)
+	       (set! tk::init-pos (/ (caddr tk::init-values) 
+				     (car tk::init-values))))))))
+
+;; Tk:scroll-drag --
+;; This procedure is called for each mouse motion even when the slider
+;; is being dragged.  It notifies the associated widget if we're not
+;; jump scrolling, and it just updates the scrollbar if we are jump
+;; scrolling.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	The current mouse position.
+
+(define (Tk:scroll-drag w x y)
+  (unless (equal? tk::init-pos "")
+     (let ((delta (w 'delta (- x tk::press-x) (- y tk::press-y))))
+       (if (tk-get w :jump)
+	     (if (equal? (length tk::init-values) 2)
+		 (w 'set (+ (car  tk::init-values) delta)
+		         (+ (cadr tk::init-values) delta))
+		 (let ((delta (floor (* delta (car tk::init-values)))))
+		   (w 'set (car  tk::init-values)
+		      	   (cadr tk::init-values)
+			   (+ (caddr tk::init-values)  delta)
+			   (+ (cadddr tk::init-values) delta))))
+	     (Tk:scroll-to-pos w (+ tk::init-pos delta))))))
+
+;; Tk:scroll-end-drag --
+;; This procedure is called to end an interactive drag of the slider.
+;; It scrolls the window if we're in jump mode, otherwise it does nothing.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	The mouse position at the end of the drag operation.
+
+(define  (Tk:scroll-end-drag w x y)
+  (unless (equal? tk::init-pos "")
+     (if (tk-get w :jump)
+	 (let ((delta (w 'delta (- x tk::press-x) (- y tk::press-y))))
+	   (Tk:scroll-to-pos w (+ tk::init-pos delta))))
+     (set! Tk::init-pos "")))
+
+
+;; Tk:scroll-by-units --
+;; This procedure tells the scrollbar's associated widget to scroll up
+;; or down by a given number of units.  It notifies the associated widget
+;; in different ways for old and new command syntaxes.
+;;
+;; w -		The scrollbar widget.
+;; orient -	Which kinds of scrollbars this applies to:  "h" for
+;;		horizontal, "v" for vertical, "hv" for both.
+;; amount -	How many units to scroll:  typically 1 or -1.
+
+(define (Tk:scroll-by-units w orient amount)
+  (let ((cmd     (tk-get w :command))
+	(worient (tk-get w :orient)))
+    (unless (equal? cmd "")
+       (when (or (eq? orient 'hv) 
+		 (and (eq? orient 'h) (string=? worient "horizontal"))
+		 (and (eq? orient 'v) (string=? worient "vertical")))
+	   (let ((info (w 'get)))
+	     (if (= (length info) 2)
+		 (cmd 'scroll amount 'units)
+		 (cmd (+ (caddr info) amount))))))))
+
+;; Tk:scroll-by-pages --
+;; This procedure tells the scrollbar's associated widget to scroll up
+;; or down by a given number of screenfuls.  It notifies the associated
+;; widget in different ways for old and new command syntaxes.
+;;
+;; Arguments:
+;; w -		The scrollbar widget.
+;; orient -	Which kinds of scrollbars this applies to:  "h" for
+;;		horizontal, "v" for vertical, "hv" for both.
+;; amount -	How many screens to scroll:  typically 1 or -1.
+
+(define (Tk:scroll-by-pages w orient amount)
+  (let ((cmd     (tk-get w :command))
+	(worient (tk-get w :orient)))
+    (unless (equal? cmd "")
+       (when (or (eq? orient 'hv) 
+		 (and (eq? orient 'h) (string=? worient "horizontal"))
+		 (and (eq? orient 'v) (string=? worient "vertical")))
+	   (let ((info (w 'get)))
+	     (if (= (length info) 2)
+		 (cmd 'scroll amount 'pages)
+		 (cmd (+ (caddr info) (* (cadr info) amount) -1))))))))
+
+;; Tk:scroll-ToPos --
+;; This procedure tells the scrollbar's associated widget to scroll to
+;; a particular location, given by a fraction between 0 and 1.  It notifies
+;; the associated widget in different ways for old and new command syntaxes.
+;;
+;; Arguments:
+;; w -		The scrollbar widget.
+;; pos -		A fraction between 0 and 1 indicating a desired position
+;;		in the document.
+
+(define (Tk:scroll-to-pos w pos)
+  (let ((cmd (tk-get w :command)))
+    (unless (equal? cmd "")
+	(let ((info (w 'get)))
+	  (if (= (length info) 2)
+	      (cmd 'moveto pos)
+	      (cmd (floor (* (car info) pos))))))))
+
+;; Tk:scroll-top-bottom
+;; Scroll to the top or bottom of the document, depending on the mouse
+;; position.
+;;
+;; w -		The scrollbar widget.
+;; x, y -	Mouse coordinates within the widget.
+
+(define (Tk:scroll-top-bottom w x y)
+  (let ((element (w 'identify x y)))
+    (cond
+       ((member element '("arrow1" "trough1")) (Tk:scroll-to-pos w 0))
+       ((member element '("arrow2" "trough2")) (Tk:scroll-to-pos w 1)))
+
+    ;; Set tk::relief, since it's needed by Tk:scroll-button-up.
+    (set! tk::relief (tk-get w :activerelief))))
+
+
+;; Tk:scroll-button-2-down
+;; This procedure is invoked when button 2 is pressed over a scrollbar.
+;; If the button is over the trough or slider, it sets the scrollbar to
+;; the mouse position and starts a slider drag.  Otherwise it just
+;; behaves the same as button 1.
+;;
+;; Arguments:
+;; w -		The scrollbar widget.
+;; x, y -	Mouse coordinates within the widget.
+
+(define (Tk:scroll-button-2-down w x y)
+  (let ((element (w 'identify x y)))
+    (if (or (equal? element "arrow1") (equal? element "arrow2"))
+	(Tk:scroll-button-down w x y)
+	(begin
+	   (Tk:scroll-to-pos w (w 'fraction x y))
+	   (set! tk::relief (tk-get w :activerelief))
+
+	   ; Need the "update idletasks" below so that the widget calls us
+	   ; back to reset the actual scrollbar position before we start the
+	   ; slider drag.
+	   (update 'idletasks)
+	   (tk-set! w :activerelief "sunken")
+	   (w 'activate 'slider)
+	   (Tk:scroll-start-drag w x y)))))
+
+)
diff --git a/Lib/slib.stk b/Lib/slib.stk
new file mode 100644
index 0000000..ec81bfc
--- /dev/null
+++ b/Lib/slib.stk
@@ -0,0 +1,20 @@
+;;;;
+;;;; s l i b . s t k			-- Initialize the A. Jaffer SLIB
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  8-Sep-1994 11:45
+;;;; Last file update:  8-Sep-1994 11:46
+;;;;
+
+(load "STk.init")
+(provide "slib")
diff --git a/Lib/socket.stk b/Lib/socket.stk
new file mode 100644
index 0000000..0ddc540
--- /dev/null
+++ b/Lib/socket.stk
@@ -0,0 +1,30 @@
+;;;;
+;;;; s o c k e t . s t k 		-- Socket module initialisation
+;;;;
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  3-Feb-1995 23:59
+;;;; Last file update: 22-Jul-1996 19:01
+;;;;
+
+(if (symbol-bound? '%init-socket)
+    ;; Soket module is in the core interpreter
+    (%init-socket)
+    ;; Try to load hash table dynamically
+    (load (string-append "socket." *shared-suffix*)))
+
+;; For backward compatibility
+(define socket-hostname socket-host-name)
+
+(provide "socket")
diff --git a/Lib/sterm.stk b/Lib/sterm.stk
new file mode 100644
index 0000000..0dd8149
--- /dev/null
+++ b/Lib/sterm.stk
@@ -0,0 +1,100 @@
+;;;;
+;;;; s t e r m  . s t k  --  A simple terminal emulator written in Scheme
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  2-Oct-1995 22:57
+;;;; Last file update: 25-Jun-1996 23:31
+
+(require "process")
+
+(define (sterm)
+  (define prompt-color   "red")
+  (define output-color   "blue")
+  (define update-counter 0)
+
+  (define (close-sterm w)
+    (w 'insert "end" "*** EOF ***" "list-prompt")
+    ;; Set state to "disabled" (or delete the <Return> binding). Not doing so,
+    ;; stops the interpreter. The bugs seems to be in Tk event loop, since 
+    ;; similar code works without event.
+    (tk-set! w :state "disabled"))
+
+  (define (insert-prompt w file)
+    (let Loop ()
+      (when (char-ready? file)
+	(let ((c (read-char file)))
+	  (cond 
+	    ((eof-object? c)  (when-port-readable file #f)
+			      (close-sterm w))
+	    (ELSE             ;; Insert this char and try to read another one
+	                      (w 'insert "end" (string c) "list-prompt")
+			      (Loop))))))
+    ;; Add a mark to the current position
+    (w 'mark 'set "start_expr" "end-1c")
+    (w 'mark 'gravity "start_expr" "left")
+    (w 'see "end"))
+
+  (define (insert-line w line)
+    (w 'insert "insert" line "list-output" "\n" "")
+    (w 'see "end")
+    ;; Force a redisplay when we have a bunch of lines to animate screen
+    (if (= update-counter 5) 
+	(begin (update 'idle) (set! update-counter 0))
+	(set! update-counter (+ update-counter 1))))
+
+  (define (read-a-line w file)
+    (let Loop ()
+      (if (char-ready? file)
+	  (let ((l (read-line file)))
+	    (if (eof-object? l)
+		(when-port-readable file #f)
+		(begin
+		  (insert-line w l)
+		  (Loop)))))))
+
+  (define (make-term name closure . tk-args)
+    (let ((w (apply Tk:text (format #f "~A.t" name) tk-args))
+	  (s (scrollbar (format #f "~A.s" name) :orient "vert")))
+
+      (pack w :expand #t :fill "both" :side "left")
+      (pack s :expand #f :fill "y" :side "right")
+
+      ;; Associate bindings to the scrollbar
+      (tk-set! w :yscroll (lambda l (apply s 'set l)))
+      (tk-set! s :command (lambda l (apply w 'yview l)))
+	     
+      (bind w "<Return>" closure)
+      (w 'tag 'configure "list-prompt" :foreground prompt-color)
+      (w 'tag 'configure "list-output" :foreground output-color)
+      w))
+  
+  (let* ((sh  (or (getenv "SHELL") "/bin/sh"))
+	 (p   (run-process sh "-i" :input :pipe :output :pipe :error :pipe))
+	 (in  (process-input  p))
+	 (out (process-output p))
+	 (err (process-error  p))
+	 (top (toplevel (gensym ".term")))
+	 (t   #f) 	;; Will be set later since it needs C defined below
+	 (C   (lambda () 
+		(let ((txt (t 'get "start_expr" "insert")))
+		  (display txt in) (newline in) (flush in)
+		  'continue))))
+    (set! t (make-term  (widget-name top) C :font "fixed" :setgrid #t))
+    (pack t :expand #t :fill "both")
+
+    ;; Create handlers
+    (when-port-readable err (lambda () (insert-prompt t err)))
+    (when-port-readable out (lambda () (read-a-line t out)))))
+
+(provide "sterm")
diff --git a/Lib/tearoff.stk b/Lib/tearoff.stk
new file mode 100644
index 0000000..82dc515
--- /dev/null
+++ b/Lib/tearoff.stk
@@ -0,0 +1,136 @@
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  8-Sep-1995 11:37
+;;;; Last file update: 22-Feb-1996 11:19
+;;;;
+
+;; Tk:tear-off-menu  --
+;; Given the name of a menu, this procedure creates a torn-off menu
+;; that is identical to the given menu (including nested submenus).
+;; The new torn-off menu exists as a toplevel window managed by the
+;; window manager.  The return value is the name of the new menu.
+;;
+;; Arguments:
+;; w -			The menu to be torn-off (duplicated).
+
+(define (Tk:tear-off-menu w)
+
+  (define (Tk:menu-dup src dst)  ;; duplicate src menu into dst
+    (let ((args '()))
+      (for-each (lambda (option)
+		  (unless (= (length option) 2)
+		    (set! args `(,(car option) ,(list-ref option 4) ,@args))))
+		(src 'configure))
+      
+      (set! dst (apply Tk:menu dst args))
+      
+      (let ((last (src 'index "last")))
+	(unless (equal? last "none")
+	  (let loop ((i (if (tk-get src :tearoff) 1 0)))
+	    (when (<= i last)
+	      (let ((args '())
+		    (type (src 'type i)))
+		(for-each (lambda (option)
+			    (set! args 
+				  `(,(car option) ,(list-ref option 4) ,@args)))
+			  (src 'entryconfigure i))
+		
+		(apply dst 'add type args)
+		
+		(if (equal? type "cascade")
+		    (let* ((name (format #f "~A.m~A" (widget-name dst) i))
+			   (m2   (src 'entrycget i :menu)))
+		      (if m2
+			  (begin
+			    (Tk:menu-dup m2 name)
+			    (dst 'entryconfigure i :menu name))
+			  (dst 'entryconfigure i :menu ""))))
+		
+		(loop (+ i 1)))))))
+
+      ;; Duplicate the binding tags and bindings from the source menu.
+      ;
+      ;    regsub -all . $src {\\&} quotedSrc
+      ;    regsub -all . $dst {\\&} quotedDst
+      ;    regsub -all $quotedSrc [bindtags $src] $dst x
+      ;    bindtags $dst $x
+      ;    foreach event [bind $src] {
+      ;	   regsub -all $quotedSrc [bind $src $event] $dst x
+      ;	   bind $dst $event $x
+      ;    }
+      ;
+      ; Is it really useful? Should we duplicate bindings on the copy?
+      ; Furthermore, most of the time this code should do nothing (even if
+      ; necessary for completude).
+      ; Eventually translate this Tcl code in STk but don't use regexp
+      ; since they could not be compiled for STk
+      
+      ;; Return dst as result
+      dst))
+  
+
+  ;;******** Start of Tk:tear-off-menu
+
+  ;; Find a unique name to use for the torn-off menu.  Find the first
+  ;; ancestor of w that is a toplevel but not a menu, and use this as
+  ;; the parent of the new menu.  This guarantees that the torn off
+  ;; menu will be on the same screen as the original menu.  By making
+  ;; it a child of the ancestor, rather than a child of the menu, it
+  ;; can continue to live even if the menu is deleted;  it will go
+  ;; away when the toplevel goes away.
+
+  (let ((parent [winfo 'parent w]))
+    (while (or (not (equal? parent [winfo 'toplevel parent]))
+	       (equal? (winfo 'class parent) "Menu"))
+	(set! parent [winfo 'parent parent]))
+
+    (let ((menu (Tk:menu-dup w (format #f "~A.~A" 
+				       (if (equal? parent *root*) 
+					   "" 
+					   (widget-name parent))
+				       (gensym "tear__off")))))
+      (tk-set! menu :transient #f)
+      
+      ;; Pick a title for the new menu by looking at the parent of the
+      ;; original: if the parent is a menu, then use the text of the active
+      ;; entry.  If it's a menubutton then use its text.
+      
+      (set! parent [winfo 'parent w])
+      (wm 'title menu (cond
+		         ((string=? [winfo 'class parent] "Menubutton")
+			  	(tk-get parent :text))
+			 ((string=? [winfo 'class parent] "Menu")
+			  	(parent 'entrycget "active" :label))
+			 (ELSE "Menu")))
+
+      (tk-set! menu :tearoff #f)
+      (menu 'post [winfo 'x w] [winfo 'y w])
+      
+      ;; Set tk::focus on entry:  otherwise the focus will get lost
+      ;; after keyboard invocation of a sub-menu (it will stay on the
+      ;; submenu).
+
+      (bind menu "<Enter>" (lambda (|W|)
+			     (set! tk::focus |W|)))
+
+      ;; If there is a :tearoffcommand option for the menu, invoke it
+      ;; now.
+      (let ((cmd (tk-get w :tearoffcommand)))
+	(unless (equal? cmd "")
+	  (cmd w menu))))))
+
+
diff --git a/Lib/text.stk b/Lib/text.stk
new file mode 100644
index 0000000..cc44e98
--- /dev/null
+++ b/Lib/text.stk
@@ -0,0 +1,690 @@
+;;;;
+;;;; Texts bindings and procs (bindings a` la emacs)
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update: 24-Aug-1996 15:48
+;;;;
+
+
+;; Tk:text-clipboard-keysyms
+;; This procedure is invoked to identify the keys that correspond to
+;; the "copy", "cut", and "paste" functions for the clipboard.
+;;
+;; Arguments:
+;; copy -	Name of the key (keysym name plus modifiers, if any,
+;;		such as "Meta-y") used for the copy operation.
+;; cut -		Name of the key used for the cut operation.
+;; paste -	Name of the key used for the paste operation.
+
+(define (Tk:text-clipboard-keysyms copy cut paste)
+  (define-binding "Text" copy (|W|)
+    (when (equal? [selection 'own :displayof |W|] |W|)
+       (clipboard 'clear :displayof |W|)
+       (catch 
+	  (clipboard 'append :displayof |W| (selection 'get :displayof |W|)))))
+
+  (define-binding "Text" cut (|W|)
+    (when (equal? [selection 'own :displayof |W|] (widget->string |W|))
+       (clipboard 'clear :displayof |W|)
+       (catch
+	  (clipboard 'append :displayof |W| (selection 'get :displayof |W|))
+	  (|W| 'delete 'sel.first 'sel.last))))
+
+  (define-binding "Text" paste (|W|)
+    (catch
+       (|W| 'insert 'insert (selection 'get :displayof |W| 
+				            :selection "CLIPBOARD"))))
+)
+
+
+;; Tk:text-button-1 --
+;; This procedure is invoked to handle button-1 presses in "Text"
+;; widgets.  It moves the insertion cursor, sets the selection anchor,
+;; and claims the input focus.
+;;
+;; w -		The "Text" windselectow in which the button was pressed.
+;; x -		The x-coordinate of the button press.
+;; y -		The x-coordinate of the button press.
+
+(define (Tk:text-button-1 w x y)
+  (set! tk::select-mode "char")
+  (set! tk::mouse-moved #f)
+  (set! tk::press-x x)
+  (set! tk::press-y y)
+  (w 'mark 'set 'insert (Tk:text-closest-gap w x y))
+  (w 'mark 'set 'anchor "insert")
+  (if (equal? (tk-get w :state) "normal")
+      (focus w)))
+
+;; Tk:text-select-to --
+;; This procedure is invoked to extend the selection, typically when
+;; dragging it with the mouse.  Depending on the selection mode (character,
+;; word, line) it selects in different-sized units.  This procedure
+;; ignores mouse motions initially until the mouse has moved from
+;; one character to another or until there have been multiple clicks.
+;;
+;; w -		The text window in which the button was pressed.
+;; x -		Mouse x position.
+;; y - 		Mouse y position.
+
+(define (Tk:text-select-to w x y)
+  (let ((cur    (Tk:text-closest-gap w x y))
+	(first  #f)
+	(last   #f)
+	(anchor #f))
+
+    (if (catch (w 'index 'anchor))
+	(w 'mark 'set 'anchor cur))
+    (set! anchor (w 'index 'anchor))
+
+    (if (or (w 'compare cur "!=" anchor)
+	    (>= (abs (- tk::press-x x)) 3))
+	(set! tk::mouse-moved #t))
+
+    (cond
+      ((string=? tk::select-mode "char")
+               (if (w 'compare cur "<" "anchor")
+		   (begin
+		     (set! first cur)
+		     (set! last "anchor"))
+		   (begin
+		     (set! first "anchor")
+		     (set! last cur))))
+      ((string=? tk::select-mode "word")
+                (if (w 'compare cur "<" "anchor")
+		   (begin
+		     (set! first (w 'index (format #f "~A wordstart" cur)))
+		     (set! last  (w 'index "anchor - 1c wordend")))
+		   (begin
+		     (set! first (w 'index "anchor wordstart"))
+		     (set! last  (w 'index (format #f "~A -1c wordend" cur))))))
+      ((string=? tk::select-mode "line")
+	        (if (w 'compare cur "<" "anchor")
+		    (begin
+		      (set! first (w 'index (format #f "~A linestart" cur)))
+		      (set! last  (w 'index "anchor - 1c lineend + 1c")))
+		    (begin
+		      (set! first (w 'index "anchor linestart"))
+		      (set! last  (w 'index (format #f "~A lineend + 1c" cur)))))))
+     
+    (when (or tk::mouse-moved (not (equal? tk::select-mode "char")))
+	(w 'tag 'remove "sel" "0.0" first)
+	(w 'tag 'add "sel" first last)
+	(w 'tag 'remove "sel" last "end")
+	(update 'idletasks))))
+
+;; Tk:text-key-extend --
+;; This procedure handles extending the selection from the keyboard,
+;; where the point to extend to is really the boundary between two
+;; characters rather than a particular character.
+;;
+;; w -		The text window.
+;; index -	The point to which the selection is to be extended.
+
+(define (Tk:text-key-extend w index)
+  (let ((cur    (w 'index index))
+	(anchor #f))
+    
+    (if (catch (w 'index 'anchor))
+	(w 'mark 'set 'anchor cur))
+    (set! anchor (w 'index 'anchor))
+
+    (let ((first #f)
+	  (last #f))
+      (if (w 'compare cur "<" anchor)
+	  (begin
+	    (set! first cur)
+	    (set! last anchor))
+	  (begin
+	    (set! first anchor)
+	    (set! last cur)))
+      
+      (w 'tag 'remove "sel" "0.0" first)
+      (w 'tag 'add "sel" first last)
+      (w 'tag 'remove "sel" last "end"))))
+
+
+;; Tk:text-auto-scan --
+;; This procedure is invoked when the mouse leaves an "Text" window
+;; with button 1 down.  It scrolls the window left or right,
+;; depending on where the mouse is, and reschedules itself as an
+;; "after" command so that the window continues to scroll until the
+;; mouse moves back into the window or the mouse button is released.
+;;
+;; w -	The "Text" window.
+
+(define (Tk:text-auto-scan w)
+  (when (winfo 'exists w)
+    (let* ((x    tk::x)
+	   (y    tk::y)
+	   (cont (lambda () 
+		   (Tk:text-select-to w x y)
+		   (set! tk::after-id (after 50 (lambda () 
+						  (Tk:text-auto-scan w)))))))
+      (cond 
+       ((>= y (winfo 'height w))	(w 'yview 'scroll +2 'units) (cont))
+       ((< y 0)				(w 'yview 'scroll -2 'units) (cont))
+       ((>= x (winfo 'width w))		(w 'xview 'scroll +2 'units) (cont))
+       ((< x 0)				(w 'xview 'scroll -2 'units) (cont))))))
+
+
+;; Tk:text-set-cursor
+;; Move the insertion cursor to a given position in a text.  Also
+;; clears the selection, if there is one in the text, and makes sure
+;; that the insertion cursor is visible.  Also, don't let the insertion
+;; cursor appear on the dummy last line of the text.
+;;
+;; w -		The text window.
+;; pos -		The desired new position for the cursor in the window.
+
+(define (Tk:text-set-cursor w pos)
+  (if (w 'compare pos "==" "end")
+      (set! pos "end - 1 chars"))
+
+  (w 'mark 'set 'insert pos)
+  (w 'tag 'remove 'sel "1.0" "end")
+  (w 'see "insert"))
+
+
+;; Tk:text-key-select --
+;; This procedure is invoked when stroking out selections using the
+;; keyboard.  It moves the cursor to a new position, then extends
+;; the selection to that position.
+;;
+;; Arguments:
+;; w -		The "Text" window.
+;; new -	A new position for the insertion cursor (the cursor hasn't
+;;		actually been moved to this position yet).
+
+(define (Tk:text-key-select w new)
+  (if (equal? (w 'tag 'nextrange "sel" "1.0" "end") "")
+      (begin
+	(if (w 'compare new "<" "insert")
+	    (w 'tag 'add "sel" new "insert")
+	    (w 'tag 'add "sel" "insert" new))
+	(w 'mark 'set 'anchor "insert"))
+      (let ((first #f)
+	    (last  #f))
+	(if (w 'compare new "<" 'anchor)
+	    (begin
+	      (set! first new)
+	      (set! last "anchor"))
+	    (begin
+	      (set! first "anchor")
+	      (set! last new)))
+	(w 'tag 'remove "sel" "1.0" first)
+	(w 'tag 'add "sel" first last)
+	(w 'tag 'remove "sel" last "end")))
+
+  (w 'mark 'set "insert" new)
+  (w 'see "insert")
+  (update 'idletasks))
+
+
+;; Tk:text-reset-anchor --
+;; Set the selection anchor to whichever end is farthest from the
+;; index argument.  One special trick: if the selection has two or
+;; fewer characters, just leave the anchor where it is.  In this
+;; case it doesn't matter which point gets chosen for the anchor,
+;; and for the things like Shift-Left and Shift-Right this produces
+;; better behavior when the cursor moves back and forth across the
+;; anchor.
+;;
+;; w -		The text widget.
+;; index -	Position at which mouse button was pressed, which determines
+;;		which end of selection should be used as anchor point.
+
+(define (Tk:text-reset-anchor w index)
+  (if (null? (w 'tag 'ranges "sel"))
+      (w 'mark 'set 'anchor index)
+      (let ((a 	(w 'index index))
+	    (b 	(w 'index 'sel.first))
+	    (c 	(w 'index 'sel.last)))
+
+	(if (w 'compare a "<" b)
+	    (w 'mark 'set 'anchor 'sel.first)
+	    (if (w 'compare a ">" c)
+		(w 'mark 'set 'anchor 'sel.first)
+		(if (< (car b) (+ (car c) 2))
+		    (let ((total (string-length (w 'get b c))))
+		      (when (> total 2)
+			    (w 'mark 
+			       'set 
+			       'anchor 
+			       (if (< (string-length (w 'get b c)) (/ total 2))
+				   'sel.last
+				   'sel.first))))
+		    (w 'mark 
+		       'set 
+		       'anchor
+		       (if (< (- (car a) (car b))
+			      (- (car c) (car a)))
+			   'sel.last
+			   'sel.first))))))))
+
+;; Tk:text-insert --
+;; Insert a string into an "Text" at the point of the insertion cursor.
+;; If there is a selection in the "Text", and it covers the point of the
+;; insertion cursor, then delete the selection before inserting.
+;;
+;; w -		The "Text" window in which to insert the string
+;; s -		The string to insert (usually just a single character)
+
+(define (Tk:text-insert w s)
+  (unless (or (equal? s "") (equal? (tk-get w :state) "disabled"))
+     (catch
+        (if (and (w 'compare 'sel.first "<=" "insert")
+		 (w 'compare 'sel.last ">="  "insert"))
+	    (w 'delete 'sel.first 'sel.last)))
+     (w 'insert "insert" s)
+     (w 'see "insert")))
+
+;; Tk:text-up-down-line --
+;; Returns the index of the character one line above or below the
+;; insertion cursor.  There are two tricky things here.  First,
+;; we want to maintain the original column across repeated operations,
+;; even though some lines that will get passed through don't have
+;; enough characters to cover the original column.  Second, don't
+;; try to scroll past the beginning or end of the text.
+;;
+;; w -		The text window in which the cursor is to move.
+;; n -		The number of lines to move: -1 for up one line,
+;;		+1 for down one line.
+
+(define Tk:text-up-down-line 
+  (let ((column 0)
+	(prev-pos (cons -1 -1)))
+    (lambda (w n)
+      (let ((p (w 'index "insert")))
+	
+	(unless (equal? prev-pos p)
+		(set! column (cdr p)))
+
+	(let ((new (w 'index (cons (+ (car p) n) column))))
+	  (if (or (w 'compare new "==" "end")
+		  (w 'compare new "==" "insert linestart"))
+	      (set! new p))
+	  
+	  (set! prev-pos new)
+	  new)))))
+
+;; Tk:text-scroll-pages --
+;; This is a utility procedure used in bindings for moving up and down
+;; pages and possibly extending the selection along the way.  It scrolls
+;; the view in the widget by the number of pages, and it returns the
+;; index of the character that is at the same position in the new view
+;; as the insertion cursor used to be in the old view.
+;;
+;; w -		The text window in which the cursor is to move.
+;; count -	Number of pages forward to scroll;  may be negative
+;;		to scroll backwards.
+
+(define (Tk:text-scroll-pages w count)
+  (let ((bbox (w 'bbox "insert")))
+    (w 'yview 'scroll count 'pages)
+    (w 'index (if (null? bbox)
+		  (format #f "@~A,~A" (truncate (/ (winfo 'height w) 2)) 0)
+		  (format #f "@~A,~A" (car bbox) (cadr bbox))))))
+
+
+;; Tk:text-transpose --
+;; This procedure implements the "transpose" function for text widgets.
+;; It tranposes the characters on either side of the insertion cursor,
+;; unless the cursor is at the end of the line.  In this case it
+;; transposes the two characters to the left of the cursor.  In either
+;; case, the cursor ends up to the right of the transposed characters.
+;;
+;; Arguments:
+;; w -		Text window in which to transpose.
+
+(define (Tk:text-transpose w)
+  (let* ((pos (if (w 'compare "insert" "!=" "insert lineend")
+		  "insert + 1 char"
+		  "insert"))
+	 (new (string-append (w 'get (format #f "~A - 1 char" pos))
+			     (w 'get (format #f "~A - 2 char" pos)))))
+
+    (when (w 'compare (format #f "~A - 1 char" pos) "!=" "1.0")
+       (w 'delete (format #f "~A - 2 char" pos) pos)
+       (w 'insert "insert" new)
+       (w 'see "insert"))))
+
+
+;; Tk:text-closest-gap --
+;; Given x and y coordinates, this procedure finds the closest boundary
+;; between characters to the given coordinates and returns the index
+;; of the character just after the boundary.
+;;
+;; w -		The text window.
+;; x -		X-coordinate within the window.
+;; y -		Y-coordinate within the window.
+
+(define (Tk:text-closest-gap w x y)
+  (let* ((pos  (w 'index (format #f "@~A,~A" x y)))
+	 (bbox (w 'bbox  pos)))
+    (if (null? bbox)
+	(if (< [list-ref bbox 0] (/ [list-ref bbox 2] 2))
+	    pos
+	    (w 'index (format #f "~A + 1 char" pos)))
+	pos)))
+
+;; Tk:text-paste --
+;; This procedure sets the insertion cursor to the mouse position,
+;; inserts the selection, and sets the focus to the window.
+;;
+;; w -		The text window.
+;; x, y - 	Position of the mouse.
+
+(define (Tk:text-paste |W| x y)
+  (|W| 'mark 'set 'insert (Tk:text-closest-gap |W| x y))
+  (catch (|W| 'insert 'insert (selection 'get :displayof |W|)))
+  (if (string=? (tk-get |W| :state) "normal")
+      (focus |W|)))
+
+;;-------------------------------------------------------------------------
+;; The code below creates the default class bindings for entries.
+;;-------------------------------------------------------------------------
+
+;; Standard Motif bindings:
+
+(define-binding "Text" "<1>" (|W| x y)
+  (Tk:text-button-1 |W| x y)
+  (|W| 'tag 'remove "sel" "0.0" "end"))
+
+(define-binding "Text" "<B1-Motion>" (|W| x y)
+  (set! tk::x x)
+  (set! tk::y y)
+  (Tk:text-select-to |W| x y))
+
+(define-binding "Text" "<Double-1>" (|W| x y)
+  (set! tk::select-mode "word")
+  (Tk:text-select-to |W| x y)
+  (catch 
+     (|W| 'mark 'set "insert" 'sel.first)))
+
+(define-binding "Text" "<Triple-1>" (|W| x y)
+  (set! tk::select-mode "line")
+  (Tk:text-select-to |W| x y)
+  (catch 
+      (|W| 'mark 'set "insert" 'sel.first)))
+
+(define-binding "Text" "<Shift-1>" (|W| x y)
+  (Tk:text-reset-anchor |W| (format #f "@~A,~A" x y))
+  (set! tk::select-mode "char")
+  (Tk:text-select-to |W| x y))
+
+(define-binding "Text" "<Double-Shift-1>" (|W| x y)
+  (set! tk::select-mode "word")
+  (Tk:text-select-to |W| x y))
+
+(define-binding "Text" "<Triple-Shift-1>" (|W| x y)
+  (set! tk::select-mode "line")
+  (Tk:text-select-to |W| x y))
+
+(define-binding "Text" "<B1-Leave>" (|W| x y)
+  (set! tk::x x)
+  (set! tk::y y)
+  (Tk:text-auto-scan |W|))
+
+(define-binding "Text" "<B1-Enter>" ()
+  (Tk:cancel-repeat))
+
+(define-binding "Text" "<ButtonRelease-1>" ()
+  (Tk:cancel-repeat))
+
+(define-binding "Text" "<Control-1>" (|W| x y)
+  (|W| 'mark 'set "insert" (format #f "@~A,~A" x y)))
+
+(define-binding "Text" "<ButtonRelease-2>" (|W| x y)
+  (if (or (not tk::mouse-moved) *tk-strict-motif*)
+      (Tk:text-paste |W| x y)))
+
+(define-binding "Text" "<Left>" (|W|)
+  (Tk:text-set-cursor |W| "insert-1c"))
+
+(define-binding "Text" "<Right>" (|W|)
+  (Tk:text-set-cursor |W| "insert+1c"))
+
+(define-binding "Text" "<Up>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-up-down-line |W| -1)))
+
+(define-binding "Text" "<Down>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-up-down-line |W| +1)))
+
+(define-binding "Text" "<Shift-Left>" (|W|)
+  (Tk:text-key-select |W| (|W| 'index "insert-1c")))
+
+(define-binding "Text" "<Shift-Right>" (|W|)
+  (Tk:text-key-select |W| (|W| 'index "insert+1c")))
+
+(define-binding "Text" "<Shift-Up>" (|W|)
+  (Tk:text-key-select |W| (Tk:text-up-down-line |W| -1)))
+
+(define-binding "Text" "<Shift-Down>" (|W|)
+  (Tk:text-key-select |W| (Tk:text-up-down-line |W| +1)))
+
+(define-binding "Text" "<Control-Left>" (|W|)
+  (Tk:text-set-cursor |W| (|W| 'index "insert-1c wordstart")))
+
+(define-binding "Text" "<Control-Right>" (|W|)
+  (Tk:text-set-cursor |W| (|W| 'index "insert wordend")))
+
+(define-binding "Text" "<Shift-Control-Left>" (|W|)
+  (Tk:text-key-select |W|  (|W| 'index "insert-1c  wordstart")))
+
+(define-binding "Text" "<Shift-Control-Right>" (|W|)
+  (Tk:text-key-select |W| (|W| 'index "insert wordend")))
+
+(define-binding "Text" "<Prior>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-scroll-pages |W| -1)))
+
+(define-binding "Text" "<Shift-Prior>" (|W|)
+  (Tk:text-key-select |W| (Tk:text-scroll-pages |W| -1)))
+
+(define-binding "Text" "<Next>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-scroll-pages |W| +1)))
+
+(define-binding "Text" "<Shift-Next>" (|W|)
+  (Tk:text-key-select |W| (Tk:text-scroll-pages |W| +1)))
+
+(define-binding "Text" "<Control-Prior>" (|W|)
+  (|W| 'xview 'scroll -1 'page))
+
+(define-binding "Text" "<Control-Next>" (|W|)
+  (|W| 'xview 'scroll 1 'page))
+
+(define-binding "Text" "<Home>" (|W|)
+  (Tk:text-set-cursor |W| "insert linestart"))
+
+(define-binding "Text" "<Shift-Home>" (|W|)
+  (Tk:text-set-cursor |W| "insert linestart"))
+
+(define-binding "Text" "<End>" (|W|)
+  (Tk:text-set-cursor |W| "insert lineend"))
+
+(define-binding "Text" "<Shift-End>" (|W|)
+  (Tk:text-set-cursor |W| "insert lineend"))
+
+(define-binding "Text" "<Control-Home>" (|W|)
+  (Tk:text-set-cursor |W| "1.0"))
+
+(define-binding "Text" "<Control-Shift-Home>" (|W|)
+  (Tk:text-key-select |W| "1.0"))
+
+(define-binding "Text" "<Control-End>" (|W|)
+  (Tk:text-set-cursor |W| "end - 1 char"))
+
+(define-binding "Text" "<Control-Shift-End>" (|W|)
+  (Tk:text-key-select |W| "end - 1 char"))
+
+(define-binding "Text" "<Tab>" (|W|)
+  (Tk:text-insert |W| "\t")
+  (focus |W|)
+  'break)
+
+(define-binding "Text" "<Shift-Tab>" (|W|)
+  ;; Needed only to keep <Tab> binding from triggering;  doesn't
+  ;; have to actually do anything.
+  'nop)
+
+(define-binding "Text" "<Control-Tab>" (|W|)
+  (focus (Tk:focus-next |W|)))
+
+(define-binding "Text" "<Control-Shift-Tab>" (|W|)
+  (focus (Tk:focus-prev |W|)))
+
+(define-binding "Text" "<Control-i>" (|W|)
+  (Tk:text-insert |W| "\t"))
+
+(define-binding "Text" "<Return>" (|W|)
+  (Tk:text-insert |W| "\n"))
+
+(define-binding "Text" "<Delete>" (|W|)
+  (if (null? (|W| 'tag 'nextrange 'sel "1.0" "end"))
+      (begin 
+	 (|W| 'delete "insert")
+	 (|W| 'see "insert"))
+      (|W| 'delete 'sel.first 'sel.last)))
+
+(define-binding "Text" "<BackSpace>" (|W|)
+  (if (null? (|W| 'tag 'nextrange 'sel "1.0" "end"))
+      (begin 
+	 (|W| 'delete "insert-1c")
+	 (|W| 'see "insert"))
+      (|W| 'delete 'sel.first 'sel.last)))
+
+(define-binding "Text" "<Control-space>" (|W|)
+  (|W| 'mark 'set 'anchor "insert"))
+
+(define-binding "Text" "<Select>" (|W|)
+ (|W| 'mark 'set 'anchor "insert"))
+
+(define-binding "Text" "<Control-Shift-space>" (|W|)
+  (set! tk::select-mode "char")
+  (Tk:text-key-extend |W| "insert"))
+
+(define-binding "Text" "<Shift-Select>" (|W|)
+  (set! tk::select-mode "char")
+  (Tk:text-key-extend |W| "insert"))
+
+(define-binding "Text" "<Control-slash>" (|W|)
+  (|W| 'tag 'add 'sel "1.0" "end"))
+
+(define-binding "Text" "<Control-backslash>" (|W|)
+  (|W| 'tag 'remove 'sel "1.0" "end"))
+
+(Tk:text-clipboard-keysyms "<F16>" "<F20>" "<F18>")
+
+(define-binding "Text" "<Insert>" (|W|)
+  (catch 
+     (Tk:text-insert |W| (selection 'get :displayof |W|))))
+
+(define-binding "Text" "<KeyPress>" (|W| |A|)
+  (Tk:text-Insert |W| |A|))
+
+
+;; Ignore all Alt, Meta, and Control keypresses unless explicitly bound.
+;; Otherwise, if a widget binding for one of these is defined, the
+;; <KeyPress> class binding will also fire and insert the character,
+;; which is wrong.  Ditto for Escape.
+(let ((nop (lambda () '())))
+  (bind "Text" "<Alt-KeyPress>" 	nop)
+  (bind "Text" "<Meta-KeyPress>" 	nop)
+  (bind "Text" "<Control-KeyPress>" 	nop)
+  (bind "Text" "<Escape>" 		nop)
+  (bind "Text" "<KP_Enter>" 		nop))
+
+;; Additional emacs-like bindings:
+
+(define-binding "Text" "<Control-a>" (|W|)
+  (Tk:text-set-cursor |W| "insert linestart"))
+
+(define-binding "Text" "<Control-b>" (|W|)
+  (Tk:text-set-cursor |W| "insert-1c"))
+
+(define-binding "Text" "<Control-d>" (|W|)
+  (|W| 'delete "insert"))
+
+(define-binding "Text" "<Control-e>" (|W|)
+  (Tk:text-set-cursor |W| "insert lineend"))
+
+(define-binding "Text" "<Control-f>" (|W|)
+  (Tk:text-set-cursor |W| "insert+1c"))
+
+(define-binding "Text" "<Control-k>" (|W|)
+  (|W| 'delete "insert" (if (|W| 'compare "insert" "==" "insert lineend")
+			   "insert+1c"
+			   "insert lineend")))
+
+(define-binding "Text" "<Control-n>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-up-down-line |W| +1)))
+
+(define-binding "Text" "<Control-o>" (|W|)
+  (|W| 'insert "insert" "\n")
+  (|W| 'mark 'set "insert" "insert-1c"))
+
+(define-binding "Text" "<Control-p>" (|W|)
+  (Tk:text-set-cursor |W| (Tk:text-up-down-line |W| -1)))
+
+(define-binding "Text" "<Control-t>" (|W|)
+  (Tk:text-transpose |W|))
+
+(define-binding "Text" "<Control-v>" (|W|)
+  (Tk:text-scroll-pages |W| +1))
+
+(define-binding "Text" "<Meta-b>" (|W|)
+  (Tk:text-set-cursor |W| "insert - 1c wordstart"))
+
+(define-binding "Text" "<Meta-d>" (|W|)
+  (|W| 'delete "insert" "insert wordend"))
+
+(define-binding "Text" "<Meta-f>" (|W|)
+  (Tk:text-set-cursor |W| "insert wordend"))
+
+(define-binding "Text" "<Meta-less>" (|W|)
+  (Tk:text-set-cursor |W| "1.0"))
+
+(define-binding "Text" "<Meta-greater>" (|W|)
+  (Tk:text-set-cursor |W| "end-1c"))
+
+(define-binding "Text" "<Meta-BackSpace>" (|W|)
+  (|W| 'delete "insert -1c wordstart" "insert"))
+
+(define-binding "Text" "<Meta-Delete>" (|W|)
+  (|W| 'delete "insert -1c wordstart" "insert"))
+
+(Tk:text-clipboard-keysyms "<Meta-w>" "<Control-w>" "<Control-y>")
+
+;; A few additional bindings of my own.
+
+(define-binding "Text" "<Control-h>" (|W|)
+  (when (|W| 'compare "insert" "!=" "1.0")
+    (|W| 'delete "insert-1c")
+    (|W| 'see "insert")))
+
+(define-binding "Text" "<Shift-2>" (|W| x y)
+  (|W| 'scan 'mark x y)
+  (set! tk::x x)
+  (set! tk::y y)
+  (set! tk::mouse-moved #f))
+
+(define-binding "Text" "<Shift-B2-Motion>" (|W| x y)
+  (unless (and  (= x tk::x) (= y tk::y))
+    (set! tk::mouse-moved #t))
+  (if tk::mouse-moved
+      (|W| 'scan 'dragto x y)))
diff --git a/Lib/tk-init.stk b/Lib/tk-init.stk
new file mode 100644
index 0000000..42c216f
--- /dev/null
+++ b/Lib/tk-init.stk
@@ -0,0 +1,237 @@
+;;;;
+;;;; Initialization file for STk
+;;;;
+;;;; This script is executed for each STk-based application. It arranges class 
+;;;; bindings for widgets.
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 17-May-1993 12:35
+;;;; Last file update: 13-Sep-1996 17:45
+;;;;
+
+(unless (equal? *tk-version* "4.1")
+  (error "wrong version of Tk loaded: need 4.1 (this version is ~A)" 
+	 *tk-version*))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-macro (tk-get w option)
+  `(,w 'cget ,option))
+
+(define-macro (tk-set! w option . value)
+  `(,w 'configure ,option ,@value))
+
+(define (Tk-screen-changed  screen)
+  ;; This function is called when the screen is changed. Since I own only 
+  ;; one screen, I don't know what I must do here.
+  screen)
+
+(define-macro (define-binding class event args . body)
+  (if (null? body)
+      `(bind ,class ,event "")
+      `(bind ,class ,event (lambda ,args ,@body))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Turn off strict Motif look and feel as a default.
+(define *tk-strict-Motif*   #f)
+
+;; Following vars are used everywhere. So define them here
+(define tk::window	   #f)
+(define tk::button-window  '())
+(define tk::relief	   "sunken")
+(define tk::select-mode	   "")
+(define tk::mouse-moved    #f)
+(define tk::press-x 	   0)
+(define tk::press-y 	   0)
+(define tk::x		   0)
+(define tk::y		   0)
+(define tk::after-id	   "")
+(define tk::active-bg	   "")
+(define tk::active-fg	   "")
+(define tk::dragging	   #f)
+
+
+(define tk::buttons	 0)
+(define tk::focus	 '())
+(define tk::grab	 "")
+(define tk::inMenuButton '())
+(define tk::posted	 #f)
+(define tk::selectMode	 '())
+(define tk::cursor	 "")
+(define tk::kill-buffer  "") ;; One kill buffer shared between all texts. 
+
+
+;; add-binding --
+;; This procedure adds a binding to a widget. It replaces the Tcl "+" mechanism
+;; which is meaningless with closures. Furthermore, this mechanism permits
+;; to add the binding BEFORE the old binding
+;;
+(define (add-binding widget event binding before?)
+  (let ((old (bind widget event)))
+    (if (null? old)
+	(bind widget event binding)
+	;;; We must find the parameters of the old and given bindings
+	;;; The new binding is a new closure with the union of these 
+	;;; parameters.
+	;;; if:
+	;;;   old binding is   (lambda (x y) ....)
+	;;;   given binding is (lambda (x t a) ...)
+	;;; We must construct the binding of the form
+	;;;    (lambda (x y t a)
+	;;;       ((lambda (x y) ....) x y)
+	;;;       ((lambda (x t a) ....) x t a))
+	(let ((body-old (procedure-body (car old)))
+	      (body-new (procedure-body binding)))
+	  (if (and body-old body-new)
+	      (let ((p-old (cadr body-old))
+		    (p-new (cadr body-new)))
+		(bind widget
+		      event 
+		      (if before?
+			  (eval `(lambda ,(set-union p-old p-new)
+				   (,binding ,@(cadr body-new))
+				   ,old))
+			  (eval `(lambda ,(set-union p-old p-new)
+				   ,old
+				   (,binding ,@(cadr body-new)))))))
+	      ;; 
+	      (Error "add-binding: Incorrect binding ~S" binding))))))
+
+;; Tk:cancel-repeat --
+;; This procedure is invoked to cancel an auto-repeat action described
+;; by tk::after-id.  It's used by several widgets to auto-scroll
+;; the widget when the mouse is dragged out of the widget with a
+;; button pressed.
+
+(define (Tk:cancel-repeat)
+  (after 'cancel tk::after-id)
+  (set! tk::after-id ""))
+
+;;;;
+;;;; A procedure to forbid remote executution via the send Tk command
+;;;;
+(define (inhibit-send)
+  ;; Redefine send sommand
+  (set! send @undefined)
+  ;; Issue a GC so that command is effectively deleted from Tk tables NOW
+  (gc))
+
+
+;;;;
+;;;; Define widget which require a lot of initialization as a kind of autoload
+;;;; This allows a faster loading for small programs which use only a few widgets
+;;;; and decreases memory usage
+;;;; 
+
+(define-macro (%redefine-Tk-command widget file)
+  (let ((synonym (string->symbol (format #f "tk:~A" widget))))
+    `(set! ,widget
+	   (let ((tk-cmd ,widget))
+	     (lambda l
+	       ;; Load the library file
+	       (load ,(string-append *STk-library* "/STk/" file ".stk"))
+
+	       ;; Test here that old value is a true closure because when
+	       ;; using STklos some Tk commands are already defined as generic.
+	       ;; Reloading the file and setting widget and Tk:widget breaks
+	       ;; the generic function. Weak but it seems to work
+	       (if (closure? ,widget)  (set! ,widget  tk-cmd))
+	       (if (closure? ,synonym) (set! ,synonym tk-cmd))
+	       
+	       ;; Do the job
+	       (apply tk-cmd l))))))
+
+(%redefine-Tk-command button		"button")
+(%redefine-Tk-command checkbutton	"button")
+(%redefine-Tk-command radiobutton	"button")
+(%redefine-Tk-command entry		"entry")
+(%redefine-Tk-command focus		"focus")
+(%redefine-Tk-command listbox		"listbox")
+(%redefine-Tk-command menu		"menu")
+(%redefine-Tk-command menubutton	"menu")
+(%redefine-Tk-command scale		"scale")
+(%redefine-Tk-command scrollbar		"scrollbar")
+(%redefine-Tk-command text		"text")
+
+
+;;
+;; Make synonyms for all Tk-commands to "protect" them against redefinition
+;;
+(define Tk:button	button)
+(define Tk:checkbutton	checkbutton)
+(define Tk:canvas	canvas)
+(define Tk:entry	entry)
+(define Tk:frame	frame)
+(define Tk:image	image)
+(define Tk:label 	label)
+(define Tk:listbox	listbox)
+(define Tk:menu		menu)
+(define Tk:menubutton	menubutton)
+(define Tk:message	message)
+(define Tk:scale	scale)
+(define Tk:scrollbar	scrollbar)
+(define Tk:radiobutton	radiobutton)
+(define Tk:text		text)
+(define Tk:toplevel	toplevel)
+
+(define Tk:after	after)
+(define Tk:bind		bind)
+(define Tk:bindtags	bindtags)
+(define Tk:bell		bell)
+(define Tk:clipboard	clipboard)
+(define Tk:destroy	destroy)
+(define Tk:focus	focus)
+(define Tk:grab		grab)
+(define Tk:lower	lower)
+(define Tk:option	option)
+(define Tk:pack		pack)
+(define Tk:place	place)
+(define Tk:raise	raise)
+(define Tk:selection	selection)
+(define Tk:tk		tk)
+(define Tk:tkwait	tkwait)
+(define Tk:update	update)
+(define Tk:winfo	winfo)
+(define Tk:wm		wm)
+
+;;;;
+;;;; Some autoloads
+;;;; 
+(autoload "palette"   Tk:set-palette! Tk:bisque)
+(autoload "dialog"    STk:make-dialog STk:center-window)
+(autoload "listener"  listener)
+(autoload "help"      help STk:show-help-file)
+(autoload "menu"      Tk:option-menu)
+(autoload "fileevent" Tk:fileevent fileevent) ; for backward compatibility
+;;;;
+;;;; report-error as a kind of autoload (must be a closure, rather than an 
+;;;; autoload since C error function tests explicitely it is a closure before
+;;;; applying its arguments
+;;;;
+(autoload "error" STk:report-error bgerror *error-info* *error-code*)
+(autoload "sterm" sterm)
+
+(define (report-error . args)
+  (apply STk:report-error args))
+
+;;;;
+;;;; Retain now that Tk is fully initialized
+;;;;
+(set! Tk:initialized? #t)
diff --git a/Lib/trace.stk b/Lib/trace.stk
new file mode 100644
index 0000000..a03913d
--- /dev/null
+++ b/Lib/trace.stk
@@ -0,0 +1,178 @@
+
+; trace of a procedure
+
+; list of traced  procedures : global variable, empty at first
+(define *traced-proc-list* '(()))
+; value of indent for trace : global variable, null at first
+(define *trace-indent* 0)
+
+;***********************************************************************
+; UNTRACE of an object
+;***********************************************************************
+(define (delete! proc)
+  ; "proc" is in *traced-proc-list*
+  (let ((before *traced-proc-list*)
+	(now (cdr *traced-proc-list*)))
+    (while (not (eq? proc (caar now)))
+	   (set! before now)
+	   (set! now (cdr now)))
+    ; "now" <==> proc, ==> remove it
+    (set-cdr! before (cdr now))))
+
+(define-macro (untrace-one obj)
+  `(let ((already (assoc ',obj *traced-proc-list*)))
+     (cond ((pair? already)  ; the name of this procedure is in *traced-proc-list*
+	    (delete! ',obj)  ; remove it in *traced-proc-list*
+	    (if (eq? (cdr already) 'var) ; the obj traced is a variable
+		(untrace-var ',obj)
+		; else the obj traced is a procedure
+		(if (and (procedure? ,obj)
+			 (eq? (cadr (procedure-body ,obj))
+			      '**arguments-de-trace-mf**))
+		    ; obj was a procedure already traced ==> restore its body
+		    (set! ,obj (cdr already)))))
+	   (else   ; "obj" is not "traced on" ==> message without error
+	    (format #t "~S is not traced on~%" ',obj)))))
+
+(define-macro (untrace . args)
+  `(if (not (null? ',args))
+       (begin
+	 ,@(map (lambda (x)
+		  `(untrace-one ,x))
+		args))
+       (error "untrace: too few arguments")))
+
+;***********************************************************************
+; UNTRACE-ALL <==> UNTRACE ALL the objects traced
+; ==> restore the bodies of all traced procedures
+;***********************************************************************
+
+(define-macro (untrace-all)
+  `(if (not (null? (cdr *traced-proc-list*)))
+      (begin 
+	 ,@(map (lambda (x)
+		  `(untrace-one ,(car x)))
+		(cdr *traced-proc-list*)))))
+
+;***********************************************************************
+; TRACE
+;***********************************************************************
+
+(define (indent x)            ; displays "x" periods on current output-port
+  (format #t "~A" (make-string x #\.)))
+
+(define (display-arguments form-list act-list)
+  ; "form-list" contains formal parameters
+  ; "act-list" contains actual parameters
+  (cond ((and (null? form-list) (null? act-list))
+	 ; two empty lists ==> nothing to do, go to new line
+	 (newline))
+	((not (list? form-list)) ; x or improper list (x a b c . y)
+	 (if (not (pair? form-list)) ; x only
+	     (format #t "~S=~S~%" form-list act-list)
+	     ; improper list :
+	     (if (not (null? act-list))
+		 (begin   
+		   (format #t "~S=~S "    ; display x
+			   (car form-list) (car act-list))
+		   (if (not (list? (cdr form-list))) 
+		       ; form-list = (a b c . y)
+		       (display-arguments (cdr form-list)
+					  (cdr act-list))
+		       ; else form-list was (x . y)
+		       (format #t "~S=~S~%"    ; display y
+			       (cdr form-list) (cdr act-list))))
+		 ; else, form-list = (x . y) and act-list = () ==> error
+		 (begin (newline)
+			(set! *trace-indent* 0) 
+			(error "Too few actual parameters")))))
+	((null? form-list)  ; error
+	 (newline)
+	 (set! *trace-indent* 0) 	
+	 (error "Too many actual parameters"))
+	((null? act-list) ; error
+	 (newline)
+	 (set! *trace-indent* 0) 	
+	 (error "Too few actual parameters"))
+	(else ; form-list and act-list are "proper lists" and not empty
+	 (format #t "~S=~S " (car form-list) (car act-list))
+	 (display-arguments (cdr form-list) (cdr act-list)))))
+
+
+(define-macro (trace-one obj)
+  `(let ((last-proc ,obj) ; body of procedure to trace
+	 (res '())         ; result of procedure to trace
+	 (already (assoc ',obj *traced-proc-list*)))
+     (cond ((primitive? ,obj) ; on ne peut pas.....
+	    (error "the primitive ~S can't be traced~%" ',obj))
+	   ((not (procedure? ,obj))
+	    ; obj is a variable
+	    (if (pair? already) 
+		; name of the obj is already in *traced-proc-list*
+		(if (not (eq? (cdr already) 'var))
+		    ; this variable is already traced on but as a procedure
+		    (begin
+		      (untrace-one ,obj)  ; remove the last trace
+		      (trace-one ,obj))  ; trace the new variable
+		    ; else, this variable is already traced on as a variable
+		    ; ==> display a message, without error
+		    (format #t "~S already traced on~%" ',obj))
+		; else it's the first trace on this variable
+		(begin     ; ==> put it in *traced-proc-list*
+		  (set! *traced-proc-list*
+			(cons '()
+			      (cons (cons ',obj 'var)
+				    (cdr *traced-proc-list*))))
+		  (trace-var ',obj
+			     (lambda () (format #t "~S ==> ~S~%" ',obj ,obj))))))
+	   ; obj is a procedure, not a primitive
+	   ((pair? already)   ; name of obj is already in *traced-proc-list*
+	    (if (eq? (cadr (procedure-body ,obj))
+		     '**arguments-de-trace-mf**)
+		; this obj is already traced on as a procedure
+		; ==> display a message, without error
+		(format #t "~S already traced on~%" ',obj)
+		; this procedure has the same name of an obj
+		; already traced on ==> perhaps a new definition... ==>
+		(begin
+		  (untrace-one ,obj)  ; remove the last
+		  (trace-one ,obj))))  ; trace the new
+	   (else ; this procedure is not already traced on
+	    ; ==> put it in *traced-proc-list*
+	    (set! *traced-proc-list*
+		  (cons '()
+			(cons (cons ',obj last-proc)
+			      (cdr *traced-proc-list*))))
+	    (set! ,obj
+		  (lambda **arguments-de-trace-mf**
+		    (dynamic-wind 
+
+		     (lambda ()
+		        ; indent more
+		       (set! *trace-indent* (+ *trace-indent* 2))
+		       (indent *trace-indent*)
+		       ; display entering in procedure (its name)
+		       (format #t "Entering ~S " ',obj)
+		       ; display formal and actual parameters
+		       (display-arguments (cadr (procedure-body last-proc))
+					  **arguments-de-trace-mf**))
+		     (lambda ()
+		       ; eval the result of the procedure
+		       (set! res 
+			     (apply last-proc **arguments-de-trace-mf**))
+		       ; exiting of procedure
+		       (indent *trace-indent*)
+		       (format #t "Exiting ~S result = ~S~%" ',obj res))
+		     (lambda ()
+		       (set! *trace-indent* (- *trace-indent* 2)))) ; indent less
+		    res))))))
+
+(define-macro (trace . args)
+  `(if (not (null? ',args))
+       (begin
+	 ,@(map (lambda (x)
+		  `(trace-one ,x))
+		args))
+       (error "trace: too few arguments")))
+
+
diff --git a/Lib/unix.stk b/Lib/unix.stk
new file mode 100644
index 0000000..89020b7
--- /dev/null
+++ b/Lib/unix.stk
@@ -0,0 +1,75 @@
+;;;;
+;;;; u n i x  . s t k			-- Some unix stuff
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 29-Mar-1994 17:36
+;;;; Last file update:  7-Nov-1995 10:51
+;;;;
+
+;;;; This file implements
+;;;;	(basename f)		
+;;;;    (dirname f)
+;;;;	(decompose-file-name f)		return f expoded in a list
+;;;;	(file-is-directory?  f)
+;;;;	(file-is-regular?    f)
+;;;;	(file-is-readable?   f)
+;;;;	(file-is-writable?   f)
+
+
+(define basename 	    '())
+(define dirname  	    '())
+(define decompose-file-name '())
+
+
+(let ()
+  (define (delete-trailing-slashes s)
+    (let ((pos (- (string-length s) 1)))
+      (while (and (>= pos 0) (char=? (string-ref s pos) #\/)) 
+	     (set! pos (- pos 1)))
+      (if (= pos -1)
+	  "/"
+	  (substring s 0 (+ pos 1)))))
+
+  (define (decompose name)
+    (if (equal? name "/")
+	(cons "/" "")
+	(begin
+	  (let* ((f    (delete-trailing-slashes name))
+	    	 (len  (string-length f))
+		 (pos  (- len 1)))		 
+	    
+	    ;; find last slash
+	    (while (and (>= pos 0) (not (char=? (string-ref f pos) #\/)))
+		   (set! pos (- pos 1)))
+
+	    (case pos
+	      (-1   (cons "." (substring f 0 len)))
+	      (0    (cons "/" (substring f 1 len)))
+	      (else (cons (delete-trailing-slashes (substring f 0 pos))
+			  (substring f (+ pos 1) len))))))))
+
+
+  (set! basename 	    (lambda (file) (cdr (decompose file))))
+  (set! dirname  	    (lambda (file) (car (decompose file))))
+  (set! decompose-file-name (lambda (file) 
+			      (letrec ((decomp (lambda (file res)
+						 (if (or (equal? file "/")
+							 (equal? file "."))
+						     (cons file res)
+						     (let ((r (decompose file)))
+						       (decomp (car r)
+							       (cons (cdr r)
+								      res)))))))
+				(decomp file '())))))
+
+(provide "unix")
diff --git a/Makefile.in b/Makefile.in
new file mode 100644
index 0000000..48d259d
--- /dev/null
+++ b/Makefile.in
@@ -0,0 +1,195 @@
+#
+# Toplevel Makefile for STk
+#
+# 
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: ??-Sep-1993 ??:??
+# Last file update: 26-Sep-1996 22:09
+#
+
+
+include VERSION
+
+SHELL		= /bin/sh
+CP		= /bin/cp
+RANLIB 		= @RANLIB@
+MACHINE		= @MACHINE@
+MP		= @MP@.a
+FLAVOR		= unix
+
+prefix 		= @prefix@
+stkdir		= $(prefix)/lib/stk
+libdir 		= $(stkdir)/$(VERSION)
+execdir 	= $(libdir)/$(MACHINE)
+mandir 		= $(libdir)/man
+incdir		= $(libdir)/include
+bindir 		= $(prefix)/bin
+etcdir		= $(stkdir)/etc
+
+all: start tcl tk mp src snow stklos ext stop 
+
+start:
+	@date > .start-date
+	@/bin/rm -f config.make
+	@echo "# Common startup for all Makefiles"		>  config.make
+	@echo "VERSION		= $(VERSION)"			>> config.make
+	@echo "FLAVOR		= $(FLAVOR)"			>> config.make
+	@echo "SHELL		= $(SHELL)"			>> config.make
+	@echo "prefix		= $(prefix)"			>> config.make
+	@echo "stkdir		= $(stkdir)"			>> config.make
+	@echo "libdir 		= $(libdir)"			>> config.make
+	@echo "execdir	 	= $(execdir)"			>> config.make
+	@echo "incdir 		= $(incdir)"			>> config.make
+	@echo "bindir 		= $(bindir)"			>> config.make
+	@echo "mandir 		= $(mandir)"			>> config.make
+	@echo "etcdir 		= $(etcdir)"			>> config.make
+	@echo "VERS-OPT		= -DSTK_VERSION=\\\"$(VERSION)\\\"">> config.make
+	@echo "MACHINE 		= -DMACHINE=\\\"$(MACHINE)\\\""	>> config.make
+	@echo "CC		= @CC@"				>> config.make
+	@echo "STKCFLAGS	= @STKCFLAGS@"			>> config.make
+	@echo "STKLDFLAGS	= @STKLDFLAGS@"			>> config.make
+	@echo "CP		= $(CP)"			>> config.make
+	@echo "RANLIB		= @RANLIB@"			>> config.make
+	@echo "STRIP		= @STRIP@"			>> config.make
+	@echo "XINCLUDES	= @XINCLUDES@"			>> config.make
+	@echo "XLIBSW		= @XLIBSW@"			>> config.make
+	@echo "MP		= @MP@"				>> config.make
+	@echo "DFLGS		= @DFLGS@"			>> config.make
+	@echo "EOBJ		= @EOBJ@"			>> config.make
+	@echo "ETKOBJ		= @ETKOBJ@"			>> config.make
+	@echo "EXTRA_OBJ	= @EXTRA_OBJ@"			>> config.make
+	@echo "DYNLOAD		= @DYNLOAD@"			>> config.make
+	@echo "SH_CCFLAGS	= @SH_CCFLAGS@"			>> config.make
+	@echo "SH_LDFLAGS	= @SH_LDFLAGS@"			>> config.make
+	@echo "SH_LOADER	= @SH_LOADER@"			>> config.make
+	@echo "SH_SUFFIX	= @SH_SUFFIX@"			>> config.make
+	@echo "LIB_MALLOC	= @LIB_MALLOC@"			>> config.make
+	@echo "LIB_DLD		= @LIB_DLD@"			>> config.make
+	@echo "STK_LIBRARY	= $(libdir)"			>> config.make
+
+
+stop:
+	@echo "Make started at `cat .start-date`"
+	@/bin/rm .start-date
+	@echo "Make completed at `date`"
+
+tcl:
+	@(echo "make Tcl"; cd Tcl; $(MAKE) all)
+tk:
+	@(echo "make Tk"; cd Tk; $(MAKE) libtk.a)
+mp:
+	@(echo "make Mp"; cd Mp; $(MAKE) $(MP))
+src:
+	@(echo "make Src"; cd Src; $(MAKE) stk TK="-DUSE_TK")
+snow:
+	@(echo "make Snow"; cd Snow; $(MAKE) snow TK="-DNO_TK")
+stklos:
+	@(echo "make STklos"; cd STklos; $(MAKE) stklos)	
+ext:
+	@(echo "Make Extensions"; cd Extensions; $(MAKE) all)
+doc:
+	@(echo "Make Documentation"; cd Doc; $(MAKE) all)
+dvi:
+	@(echo "Make Documentation(dvi)"; cd Doc; $(MAKE) dvi)
+
+demos:
+	/bin/sh -c "(cd Demos; ../Src/test-stk -f hbrowse README.html)"
+
+install: clean-before
+	(cd Tcl;     	$(MAKE) install)
+	(cd Tk;      	$(MAKE) install)
+	(cd Mp;		$(MAKE) install)
+	(cd Src;     	$(MAKE) install.stk)
+	(cd Snow;     	$(MAKE) install.snow)
+	(cd Lib;     	$(MAKE) install)
+	(cd STklos;  	$(MAKE) install)
+	(cd Extensions; $(MAKE) install)
+	(cd Demos;   	$(MAKE) install)
+	(cd Help;	$(MAKE) install)
+	@echo ""
+	@echo "Installation completed."
+
+install.libs:
+	-if [ ! -d $(etcdir) ] ; then mkdir -p $(etcdir); fi
+	$(CP) config.make $(etcdir)
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	/bin/rm -f $(stkdir)/include
+	(cd $(stkdir) ; ln -s $(VERSION)/include ./include)
+	(cd Tcl;     	$(MAKE) install.libs)
+	(cd Tk;      	$(MAKE) install.libs)
+	(cd Mp;		$(MAKE) install.libs)
+	(cd Src;     	$(MAKE) install.stk.libs)
+	(cd Snow;     	$(MAKE) install.snow.libs)
+	@echo ""
+	@echo "Full installation completed."
+
+binary-release: install install.man
+	(cd $(prefix)/lib; \
+	 tar cvfz /tmp//STk-$(VERSION)-$(MACHINE).tar.gz stk/$(VERSION)/$(MACHINE))
+	@echo "The release is in the file  /tmp/STk-$(VERSION)-$(MACHINE).tar.gz"
+	@echo "Don't forget to create the file STk-$(VERSION)-$(MACHINE).README"
+	@echo "to describe the content of your archive (a template is given in"
+	@echo "the file BINARY-DISTRIB"
+
+common-release: 
+	(cd $(prefix)/lib; \
+	 tar cvfz /tmp/STk-$(VERSION)-common.tar.gz stk/$(VERSION)/Help   \
+						    stk/$(VERSION)/STk    \
+						    stk/$(VERSION)/demos  \
+						    stk/$(VERSION)/images \
+						    stk/$(VERSION)/images \
+						    stk/$(VERSION)/man    \
+						    stk/man)
+	@echo "Terminé. Le fichier est dans /tmp/STk-$(VERSION)-common.tar.gz"
+
+clean-before:
+	@if [ -d $(prefix)/lib/stk ]; \
+	then \
+	  echo "*** WARNING:"; \
+	  echo "*** A previous version of STk has already been installed in"; \
+	  echo "*** directory '$(stkdir)'. It is not a problem since"; \
+	  echo "*** several versions can coexist now in this directory"; \
+	  echo "*** However, if you are short in place, or if you don't use "; \
+	  echo "*** a multi architecture file system, cleaning may be a good"; \
+	  echo "*** thing to do."; \
+	  echo "*** (Waiting 10s) " ; \
+	  sleep 10;\
+	fi
+	@if [ -d $(prefix)/lib/stk/$(VERSION) ]; \
+	then \
+	  echo "*** WARNING:"; \
+	  echo "*** This STk version ($(VERSION)) has already been installed "; \
+	  echo "*** on this machine. Should I clean this directory before "; \
+	  echo "*** starting installation of STk-$(VERSION)? [no] " ; \
+	  read a; \
+	  case $$a in \
+	    y*|Y*) echo "Deleting previous installation"; \
+                   /bin/rm -rf $(stkdir)/$(VERSION);; \
+	    *) echo "No cleaning!";; \
+	  esac; \
+	fi
+ 
+install.man:
+	(cd Doc;	$(MAKE) install.man)
+
+clean:
+	(cd Tcl;    	$(MAKE) clean)
+	(cd Tk;     	$(MAKE) clean)
+	(cd Mp;     	$(MAKE) clean)
+	(cd Src;    	$(MAKE) clean)
+	(cd Snow;    	$(MAKE) clean)
+	(cd STklos; 	$(MAKE) clean)
+	(cd Extensions; $(MAKE) clean)
+	(cd Help;	$(MAKE) clean)
+	(cd Doc;	$(MAKE) clean)
+	/bin/rm -f core *~ Makefile config.*
diff --git a/Mp/Makefile b/Mp/Makefile
new file mode 100644
index 0000000..687587b
--- /dev/null
+++ b/Mp/Makefile
@@ -0,0 +1,44 @@
+#
+# Makefile for the multiple precision number library
+#
+
+include ../config.make
+
+GMP_VERSION=  gmp-1.3.2
+FGMP_VERSION= fgmp-1.0b5
+
+
+what:
+	@echo "you must specify the library you want to make"
+libgmp.a: 
+	rm -f libgmp.a gmp.h
+	(cd $(GMP_VERSION); $(MAKE) CC="$(CC)" CFLAGS="$(STKCFLAGS) $(ALLOC)")
+	ln -s $(GMP_VERSION)/libgmp.a .
+	ln -s $(GMP_VERSION)/gmp.h .
+
+libfgmp.a:
+	rm -f libfgmp.a gmp.h
+	(cd $(FGMP_VERSION); $(MAKE) CC="$(CC)" CFLAGS="$(STKCFLAGS) $(ALLOC)")
+	ln -s $(FGMP_VERSION)/libfgmp.a .
+	ln -s $(GMP_VERSION)/gmp.h .
+
+install: 
+
+install.libs: install
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	-if [ -f libfgmp.a ] ; then \
+	   $(CP) libfgmp.a $(execdir); \
+	   $(RANLIB) $(execdir)/libfgmp.a; \
+	 fi
+	-if [ -f libgmp.a ]  ; then \
+	   $(CP) libgmp.a  $(execdir); \
+	   $(RANLIB) $(execdir)/libgmp.a; \
+	fi
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) gmp.h $(incdir)
+
+
+clean:
+	rm -f libgmp.a libfgmp.a gmp.h *~ core 
+	(cd $(GMP_VERSION);  $(MAKE) clean)
+	(cd $(FGMP_VERSION); $(MAKE) clean)
diff --git a/Mp/README b/Mp/README
new file mode 100644
index 0000000..33502c6
--- /dev/null
+++ b/Mp/README
@@ -0,0 +1,16 @@
+
+IMPORTANT NOTE
+--------------
+
+STk bignums are implemented with the GNU mp APIs. This library provides a 
+VERY EFFICIENT implementation of multiple precision numbers. This library 
+is placed under the GNU GENERAL PUBLIC LICENSE. However, to avoid to fall 
+under the restrictive GPL terms you can use the FGMP package (FGMP is a 
+public domain implementation of a subset of the GNU gmp library with the
+same API, written by Mark  Henderson <markh@wimsey.bc.ca>). This package 
+has the advantage to be FREE, and disadventage to be SLOW.
+
+So, if your concern is speed, and if the GPL is not a problem for you, 
+use the Gnu package. 
+
+
diff --git a/Mp/fgmp-1.0b5/Makefile b/Mp/fgmp-1.0b5/Makefile
new file mode 100644
index 0000000..cd52c8e
--- /dev/null
+++ b/Mp/fgmp-1.0b5/Makefile
@@ -0,0 +1,12 @@
+#
+# Makefile for Free MP
+#
+CC=gcc
+CFLAGS=-O
+
+libfgmp.a: gmp.o
+	ar cq libfgmp.a gmp.o
+	ranlib libfgmp.a
+
+clean:
+	rm -f gmp.o libfgmp.a core *~
diff --git a/Mp/fgmp-1.0b5/gmp.c b/Mp/fgmp-1.0b5/gmp.c
new file mode 100644
index 0000000..afdf8cf
--- /dev/null
+++ b/Mp/fgmp-1.0b5/gmp.c
@@ -0,0 +1,1751 @@
+/*
+ * FREE GMP - a public domain implementation of a subset of the 
+ *           gmp library
+ *
+ * I hearby place the file in the public domain.
+ *
+ * Do whatever you want with this code. Change it. Sell it. Claim you
+ *  wrote it. 
+ * Bugs, complaints, flames, rants: please send email to 
+ *    Mark Henderson <markh@wimsey.bc.ca>
+ * I'm already aware that fgmp is considerably slower than gmp
+ *
+ * CREDITS:
+ *  Paul Rouse <par@r-cube.demon.co.uk> - generic bug fixes, mpz_sqrt and
+ *    mpz_sqrtrem, and modifications to get fgmp to compile on a system 
+ *    with int and long of different sizes (specifically MSDOS,286 compiler)
+ *  Also see the file "notes" included with the fgmp distribution, for
+ *    more credits.
+ *
+ * VERSION 1.0 - beta 5
+ */
+
+#include "gmp.h"
+#ifndef NULL
+#define NULL ((void *)0)
+#endif
+
+#define iabs(x) ((x>0) ? (x) : (-x))
+#define imax(x,y) ((x>y)?x:y)
+#define LONGBITS (sizeof(mp_limb) * 8)
+#define DIGITBITS (LONGBITS - 2)
+#define HALFDIGITBITS ((LONGBITS -2)/2)
+#ifndef init
+#define init(g) { g = (MP_INT *)malloc(sizeof(MP_INT));  mpz_init(g); }
+#endif
+#ifndef clear
+#define clear(g) { mpz_clear(g); free(g); }
+#endif
+#ifndef even
+#define even(a) (!((a)->p[0] & 1))
+#endif
+#ifndef odd
+#define odd(a) (((a)->p[0] & 1))
+#endif
+
+
+#ifndef B64
+/* 
+ * The values below are for 32 bit machines (i.e. machines with a 
+ *  32 bit long type)
+ * You'll need to change them, if you're using something else
+ * If DIGITBITS is odd, see the comment at the top of mpz_sqrtrem
+ */
+#define LMAX 0x3fffffffL
+#define LC   0xc0000000L
+#define OVMASK 0x2
+#define CMASK (LMAX+1)
+#define FC ((double)CMASK)
+#define HLMAX 0x7fffL
+#define HCMASK (HLMAX + 1)
+#define HIGH(x) (((x) & 0x3fff8000L) >> 15)
+#define LOW(x)  ((x) & 0x7fffL)
+#else
+
+/* 64 bit long type */
+#define LMAX 0x3fffffffffffffffL
+#define LC 0xc000000000000000L
+#define OVMASK 0x2
+#define CMASK (LMAX+1)
+#define FC ((double)CMASK)
+#define HLMAX 0x7fffffffL
+#define HCMASK (HLMAX + 1)
+#define HIGH(x) (((x) & 0x3fffffff80000000L) >> 31)
+#define LOW(x) ((x) & 0x7fffffffL)
+
+#endif
+
+#define hd(x,i)  (((i)>=2*(x->sz))? 0:(((i)%2) ? HIGH((x)->p[(i)/2]) \
+    : LOW((x)->p[(i)/2])))
+#define dg(x,i) ((i < x->sz) ? (x->p)[i] : 0)
+
+#ifdef __GNUC__
+#define INLINE inline
+#else
+#define INLINE
+#endif
+
+#define lowdigit(x) (((x)->p)[0])
+
+struct is {
+    mp_limb v;
+    struct is *next;
+};
+
+
+INLINE static void push(i,sp)
+mp_limb i;struct is **sp;
+{
+    struct is *tmp;
+    tmp = *sp;
+    *sp = (struct is *) malloc(sizeof(struct is));
+    (*sp)->v = i;
+    (*sp)->next=tmp;
+}
+
+INLINE static mp_limb pop(sp)
+struct is **sp;
+{
+    struct is *tmp;
+    mp_limb i;
+    if (!(*sp))
+        return (-1);
+    tmp = *sp;
+    *sp = (*sp)->next;
+    i = tmp->v;
+    tmp->v = 0;
+    free(tmp);
+    return i;
+}
+
+void fatal(s)
+char *s;
+{
+    fprintf(stderr,"%s\n",s);
+    exit(123);
+}
+
+void mpz_init(s)
+MP_INT *s;
+{
+    s->p = (mp_limb *)malloc(sizeof(mp_limb)*2);
+#ifdef DEBUG
+    printf("malloc: 8 bytes, %08lx\n", (long)(s->p));
+#endif
+    if (!(s->p))
+        fatal("mpz_init: cannot allocate memory");
+    (s->p)[0] = 0;
+    (s->p)[1] = 0;
+    s->sn=0;
+    s->sz=2;
+}
+
+void mpz_init_set(s,t)
+MP_INT *s,*t;
+{
+    int i;
+    s->p = (mp_limb *)malloc(sizeof(mp_limb) * t->sz);
+    if (!(s->p))
+        fatal("mpz_init: cannot allocate memory");
+    for (i=0;i < t->sz ; i++)
+        (s->p)[i] = (t->p)[i];
+
+    s->sn = t->sn;
+    s->sz = t->sz;
+}
+
+void mpz_init_set_ui(s,v)
+MP_INT *s;
+unsigned long v;
+{
+    s->p = (mp_limb *)malloc(sizeof(mp_limb)*2);
+    if (!(s->p))
+        fatal("mpz_init: cannot allocate memory");
+    s->p[0] = (v & LMAX);
+    s->p[1] = (v & LC) >> DIGITBITS;
+    if (v) 
+        s->sn = 1;
+    else
+        s->sn = 0;
+    s->sz = 2;
+}
+
+void mpz_init_set_si(y,v)
+MP_INT *y;
+long v;
+{
+    y->p = (mp_limb *)malloc(sizeof(mp_limb)*2);
+    if (!(y->p))
+        fatal("mpz_init: cannot allocate memory");
+    if (v < 0) {
+        y->sn = -1;
+        y->p[0] = (-v) & LMAX;
+        y->p[1] = ((-v) & LC) >> DIGITBITS;
+    }
+    else if (v > 0) {
+        y->sn = 1;
+        y->p[0] = v & LMAX;
+        y->p[1] = (v & LC) >> DIGITBITS;
+    }
+    else {
+        y->sn=0;
+        y->p[0] = 0;
+        y->p[1] = 0;
+    }
+    y -> sz = 2;
+}
+
+
+
+void mpz_clear(s)
+MP_INT *s;
+{
+#ifdef DEBUG
+    printf("free: %08lx\n", (long)(s->p));
+#endif
+    if (s->p)
+        free(s->p);
+    s->p=NULL;
+    s->sn=0;
+    s->sz=0;
+}
+
+/* number of leading zero bits in digit */
+static int lzb(a)
+mp_limb a;
+{
+    mp_limb i; int j;
+    j = 0;
+    for (i = ((mp_limb)1 << (DIGITBITS-1)); i && !(a&i) ; j++,i>>=1) 
+        ;
+    return j;
+}
+
+void _mpz_realloc(x,size)
+MP_INT *x; mp_size size;
+{
+    if (size > 1 && x->sz < size) {
+        int i;
+#ifdef DEBUG
+    printf("realloc %08lx to size = %ld ", (long)(x->p),(long)(size));
+#endif
+
+        if (x->p) 
+            x->p=(mp_limb *)realloc(x->p,size * sizeof(mp_limb));
+        else
+            x->p=(mp_limb *)malloc(size * sizeof(mp_limb));
+#ifdef DEBUG
+    printf("becomes %08lx\n", (long)(x->p));
+#endif
+
+        if (!(x->p))
+            fatal("_mpz_realloc: cannot allocate memory");
+        for (i=x->sz;i<size;i++)
+            (x->p)[i] = 0;
+        x->sz = size;
+    }
+}
+
+void dgset(x,i,n)
+MP_INT *x; unsigned int i; mp_limb n;
+{
+    if (n) {
+        if (i >= x->sz) {
+            _mpz_realloc(x,(mp_size)(i+1));
+            x->sz = i+1;
+        }
+        (x->p)[i] = n;
+    }
+}
+
+static unsigned int digits(x)
+MP_INT *x;
+{
+    int i;
+    for (i = (x->sz) - 1; i>=0 && (x->p)[i] == 0 ; i--) 
+        ;
+    return i+1;
+}
+        
+/* y = x */
+void mpz_set(y,x)
+MP_INT *y; MP_INT *x; 
+{
+    unsigned int i,k = x->sz;
+    if (y->sz < k) {
+        k=digits(x);
+        _mpz_realloc(y,(mp_size)k);
+    }
+    if (y->sz > x->sz) {
+        mpz_clear(y); mpz_init(y); _mpz_realloc(y,(mp_size)(x->sz));
+    }
+
+    for (i=0;i < k; i++)
+        (y->p)[i] = (x->p)[i];
+
+    for (;i<y->sz;i++)
+        (y->p)[i] = 0;
+
+    y->sn = x->sn;
+}
+
+void mpz_set_ui(y,v)
+MP_INT *y; unsigned long v; {
+    int i;
+    for (i=1;i<y->sz;i++)
+        y->p[i] = 0;
+    y->p[0] = (v & LMAX);
+    y->p[1] = (v & LC) >> (DIGITBITS);
+    if (v)
+        y->sn=1;
+    else
+        y->sn=0;
+}
+
+unsigned long mpz_get_ui(y) 
+MP_INT *y; {
+    return (y->p[0] | (y->p[1] << DIGITBITS));
+}
+
+long mpz_get_si(y)
+MP_INT *y; {
+    if (y->sn == 0)
+        return 0;
+    else
+        return (y->sn * (y->p[0] | (y->p[1] & 1) << DIGITBITS));
+}
+        
+void mpz_set_si(y,v)
+MP_INT *y; long v; {
+    int i;
+    for (i=1;i<y->sz;i++)
+        y->p[i] = 0;
+    if (v < 0) {
+        y->sn = -1;
+        y->p[0] = (-v) & LMAX;
+        y->p[1] = ((-v) & LC) >> DIGITBITS;
+    }
+    else if (v > 0) {
+        y->sn = 1;
+        y->p[0] = v & LMAX;
+        y->p[1] = (v & LC) >> DIGITBITS;
+    }
+    else {
+        y->sn=0;
+        y->p[0] = 0;
+        y->p[1] = 0;
+    }
+}
+
+/* z = x + y, without regard for sign */
+static void uadd(z,x,y)
+MP_INT *z; MP_INT *x; MP_INT *y;
+{
+    mp_limb c;
+    int i;
+    MP_INT *t;
+
+    if (y->sz < x->sz) {
+        t=x; x=y; y=t;
+    }
+
+    /* now y->sz >= x->sz */
+
+    _mpz_realloc(z,(mp_size)((y->sz)+1));
+
+    c=0;
+    for (i=0;i<x->sz;i++) {
+        if (( z->p[i] = y->p[i] + x->p[i] + c ) & CMASK) {
+            c=1; 
+            (z->p[i]) &=LMAX;
+        }
+        else 
+            c=0;
+    }
+    for (;i<y->sz;i++) {
+        if ((z->p[i] = (y->p[i] + c)) & CMASK)
+            z->p[i]=0;
+        else
+            c=0;
+    }
+    (z->p)[y->sz]=c;
+}
+
+/* z = y - x, ignoring sign */
+/* precondition: abs(y) >= abs(x) */
+static void usub(z,y,x)
+MP_INT *z; MP_INT *y; MP_INT *x; 
+{
+    int i;
+    mp_limb b,m;
+    _mpz_realloc(z,(mp_size)(y->sz));
+    b=0;
+    for (i=0;i<y->sz;i++) {
+        m=((y->p)[i]-b)-dg(x,i);
+        if (m < 0) {
+            b = 1;
+            m = LMAX + 1 + m;
+        }
+        else
+            b = 0;
+        z->p[i] = m;
+    }
+}
+
+/* compare abs(x) and abs(y) */
+static int ucmp(y,x)
+MP_INT *y;MP_INT *x;
+{
+    int i;
+    for (i=imax(x->sz,y->sz)-1;i>=0;i--) {
+        if (dg(y,i) < dg(x,i))
+            return (-1);
+        else if (dg(y,i) > dg(x,i))
+            return 1;
+    }
+    return 0;
+}
+
+int mpz_cmp(x,y)
+MP_INT *x; MP_INT *y;
+{
+    int abscmp;
+    if (x->sn < 0 && y->sn > 0)
+        return (-1);
+    if (x->sn > 0 && y->sn < 0)
+        return 1;
+    abscmp=ucmp(x,y);
+    if (x->sn >=0 && y->sn >=0)
+        return abscmp;
+    if (x->sn <=0 && y->sn <=0)
+        return (-abscmp);
+}
+    
+/* is abs(x) == 0 */
+static int uzero(x)
+MP_INT *x;
+{
+    int i;
+    for (i=0; i < x->sz; i++)
+        if ((x->p)[i] != 0)
+            return 0;
+    return 1;
+}
+
+static void zero(x)
+MP_INT *x;
+{
+    int i;
+    x->sn=0;
+    for (i=0;i<x->sz;i++)
+        (x->p)[i] = 0;
+}
+
+
+/* w = u * v */
+void mpz_mul(ww,u,v)
+MP_INT *ww;MP_INT *u; MP_INT *v; {
+    int i,j;
+    mp_limb t0,t1,t2,t3;
+    mp_limb cc;
+    MP_INT *w;
+
+    w = (MP_INT *)malloc(sizeof(MP_INT));
+    mpz_init(w);
+    _mpz_realloc(w,(mp_size)(u->sz + v->sz));
+    for (j=0; j < 2*u->sz; j++) {
+        cc = (mp_limb)0;
+        t3 = hd(u,j);
+            for (i=0; i < 2*v->sz; i++) {
+                t0 = t3 * hd(v,i);
+                t1 = HIGH(t0); t0 = LOW(t0);
+                if ((i+j)%2) 
+                    t2 = HIGH(w->p[(i+j)/2]);
+                else
+                    t2 = LOW(w->p[(i+j)/2]);
+                t2 += cc;
+                if (t2 & HCMASK) {
+                    cc = 1; t2&=HLMAX;
+                }
+                else
+                    cc = 0;
+                t2 += t0;
+                if (t2 & HCMASK) {
+                    cc++ ; t2&=HLMAX;
+                }
+                cc+=t1;
+                if ((i+j)%2)
+                    w->p[(i+j)/2] = LOW(w->p[(i+j)/2]) |
+                        (t2 << HALFDIGITBITS);
+                else
+                    w->p[(i+j)/2] = (HIGH(w->p[(i+j)/2]) << HALFDIGITBITS) |
+                        t2;
+                    
+            }
+        if (cc) {
+            if ((j+i)%2) 
+                w->p[(i+j)/2] += cc << HALFDIGITBITS;
+            else
+                w->p[(i+j)/2] += cc;
+        }
+    }
+    w->sn = (u->sn) * (v->sn);
+    if (w != ww) {
+        mpz_set(ww,w);
+        mpz_clear(w);
+        free(w);
+    }
+}
+
+/* n must be < DIGITBITS */
+static void urshift(c1,a,n)
+MP_INT *c1;MP_INT *a;int n;
+{
+    mp_limb cc = 0;
+    if (n >= DIGITBITS)
+        fatal("urshift: n >= DIGITBITS");
+    if (n == 0)
+        mpz_set(c1,a);
+    else {
+        MP_INT c; int i;
+        mp_limb rm = (((mp_limb)1<<n) - 1);
+        mpz_init(&c); _mpz_realloc(&c,(mp_size)(a->sz));
+        for (i=a->sz-1;i >= 0; i--) {
+            c.p[i] = ((a->p[i] >> n) | cc) & LMAX;
+            cc = (a->p[i] & rm) << (DIGITBITS - n);
+        }
+        mpz_set(c1,&c);
+        mpz_clear(&c);
+    }
+}
+    
+/* n must be < DIGITBITS */
+static void ulshift(c1,a,n)
+MP_INT *c1;MP_INT *a;int n;
+{
+    mp_limb cc = 0;
+    if (n >= DIGITBITS)
+        fatal("ulshift: n >= DIGITBITS");
+    if (n == 0)
+        mpz_set(c1,a);
+    else {
+        MP_INT c; int i;
+        mp_limb rm = (((mp_limb)1<<n) - 1) << (DIGITBITS -n);
+        mpz_init(&c); _mpz_realloc(&c,(mp_size)(a->sz + 1));
+        for (i=0;i < a->sz; i++) {
+            c.p[i] = ((a->p[i] << n) | cc) & LMAX;
+            cc = (a->p[i] & rm) >> (DIGITBITS -n);
+        }
+        c.p[i] = cc;
+        mpz_set(c1,&c);
+        mpz_clear(&c);
+    }
+}
+
+void mpz_div_2exp(z,x,e) 
+MP_INT *z; MP_INT *x; unsigned long e;
+{
+    short sn = x->sn;
+    if (e==0)
+        mpz_set(z,x);
+    else {
+        unsigned long i;
+        long digs = (e / DIGITBITS);
+        unsigned long bs = (e % (DIGITBITS));
+        MP_INT y; mpz_init(&y);
+        _mpz_realloc(&y,(mp_size)((x->sz) - digs));
+        for (i=0; i < (x->sz - digs); i++)
+            (y.p)[i] = (x->p)[i+digs];
+        if (bs) {
+            urshift(z,&y,bs);
+        }
+        else {
+            mpz_set(z,&y);
+        }
+        if (uzero(z))
+            z->sn = 0;
+        else
+            z->sn = sn;
+        mpz_clear(&y);
+    }
+}
+
+void mpz_mul_2exp(z,x,e) 
+MP_INT *z; MP_INT *x; unsigned long e;
+{
+    short sn = x->sn;
+    if (e==0)
+        mpz_set(z,x);
+    else {
+        unsigned long i;
+        long digs = (e / DIGITBITS);
+        unsigned long bs = (e % (DIGITBITS));
+        MP_INT y; mpz_init(&y);
+        _mpz_realloc(&y,(mp_size)((x->sz)+digs));
+        for (i=digs;i<((x->sz) + digs);i++)
+            (y.p)[i] = (x->p)[i - digs];
+        if (bs) {
+            ulshift(z,&y,bs);
+        }
+        else {
+            mpz_set(z,&y);
+        }
+        z->sn = sn;
+        mpz_clear(&y);
+    }
+}
+
+void mpz_mod_2exp(z,x,e) 
+MP_INT *z; MP_INT *x; unsigned long e;
+{
+    short sn = x->sn;
+    if (e==0)
+        mpz_set_ui(z,0L);
+    else {
+        unsigned long i;
+        MP_INT y;
+        long digs = (e / DIGITBITS);
+        unsigned long bs = (e % (DIGITBITS));
+        if (digs > x->sz || (digs == (x->sz) && bs)) {
+            mpz_set(z,x);
+            return;
+        }
+            
+        mpz_init(&y);
+        if (bs)
+            _mpz_realloc(&y,(mp_size)(digs+1));
+        else
+            _mpz_realloc(&y,(mp_size)digs);
+        for (i=0; i<digs; i++)
+            (y.p)[i] = (x->p)[i];
+        if (bs) {
+            (y.p)[digs] = ((x->p)[digs]) & (((mp_limb)1 << bs) - 1);
+        }
+        mpz_set(z,&y);
+        if (uzero(z))
+            z->sn = 0;
+        else
+            z->sn = sn;
+        mpz_clear(&y);
+    }
+}
+    
+
+/* internal routine to compute x/y and x%y ignoring signs */
+static void udiv(qq,rr,xx,yy)
+MP_INT *qq; MP_INT *rr; MP_INT *xx; MP_INT *yy;
+{
+    MP_INT *q, *x, *y, *r;
+    int ns,xd,yd,j,f,i,ccc;
+    mp_limb zz,z,qhat,b,u,m;
+    ccc=0;
+
+    if (uzero(yy))
+        return;
+    q = (MP_INT *)malloc(sizeof(MP_INT));
+    r = (MP_INT *)malloc(sizeof(MP_INT));
+    x = (MP_INT *)malloc(sizeof(MP_INT)); y = (MP_INT *)malloc(sizeof(MP_INT));
+    if (!x || !y || !q || !r)
+        fatal("udiv: cannot allocate memory");
+    mpz_init(q); mpz_init(x);mpz_init(y);mpz_init(r);
+    _mpz_realloc(x,(mp_size)((xx->sz)+1));
+    yd = digits(yy);
+    ns = lzb(yy->p[yd-1]);
+    ulshift(x,xx,ns);
+    ulshift(y,yy,ns);
+    xd = digits(x); 
+    _mpz_realloc(q,(mp_size)xd);
+    xd*=2; yd*=2;
+    z = hd(y,yd-1);;
+    for (j=(xd-yd);j>=0;j--) {
+#ifdef DEBUG
+    printf("y=");
+    for (i=yd-1;i>=0;i--)
+        printf(" %04lx", (long)hd(y,i));
+    printf("\n");
+    printf("x=");
+    for (i=xd-1;i>=0;i--)
+        printf(" %04lx", (long)hd(x,i));
+    printf("\n");
+    printf("z=%08lx\n",(long)z);
+#endif
+        
+        if (z == LMAX)
+            qhat = hd(x,j+yd);
+        else {
+            qhat = ((hd(x,j+yd)<< HALFDIGITBITS) + hd(x,j+yd-1)) / (z+1);
+        }
+#ifdef DEBUG
+    printf("qhat=%08lx\n",(long)qhat);
+    printf("hd=%04lx/%04lx\n",(long)hd(x,j+yd),(long)hd(x,j+yd-1));
+#endif
+        b = 0; zz=0;
+        if (qhat) {
+            for (i=0; i < yd; i++) {
+                zz = qhat * hd(y,i);
+                u = hd(x,i+j);
+                u-=b;
+                if (u<0) {
+                    b=1; u+=HLMAX+1;
+                }
+                else
+                    b=0;
+                u-=LOW(zz);
+                if (u < 0) {
+                    b++;
+                    u+=HLMAX+1;
+                }
+                b+=HIGH(zz);
+                if ((i+j)%2) 
+                    x->p[(i+j)/2] = LOW(x->p[(i+j)/2]) | (u << HALFDIGITBITS);
+                else
+                    x->p[(i+j)/2] = (HIGH(x->p[(i+j)/2]) << HALFDIGITBITS) | u;
+            }
+            if (b) {
+                if ((j+i)%2) 
+                    x->p[(i+j)/2] -= b << HALFDIGITBITS;
+                else
+                    x->p[(i+j)/2] -= b;
+            }
+        }
+#ifdef DEBUG
+        printf("x after sub=");
+        for (i=xd-1;i>=0;i--)
+            printf(" %04lx", (long)hd(x,i));
+        printf("\n");
+#endif
+        for(;;zz++) {
+            f=1;
+            if (!hd(x,j+yd)) {
+                for(i=yd-1; i>=0; i--) {
+                    if (hd(x,j+i) > hd(y,i)) {
+                        f=1;
+                        break;
+                    }
+                    if (hd(x,j+i) < hd(y,i)) {
+                        f=0;
+                        break;
+                    }
+                }
+            }
+            if (!f)
+                break;
+            qhat++;
+            ccc++;
+#ifdef DEBUG
+            printf("corrected qhat = %08lx\n", (long)qhat);
+#endif
+            b=0;
+            for (i=0;i<yd;i++) {
+                m = hd(x,i+j)-hd(y,i)-b;
+                if (m < 0) {
+                    b = 1;
+                    m = HLMAX + 1 + m;
+                }
+                else
+                    b = 0;
+                if ((i+j)%2) 
+                    x->p[(i+j)/2] = LOW(x->p[(i+j)/2]) | (m << HALFDIGITBITS);
+                else
+                    x->p[(i+j)/2] = (HIGH(x->p[(i+j)/2]) << HALFDIGITBITS) | m;
+            }
+            if (b) {
+                if ((j+i)%2) 
+                    x->p[(i+j)/2] -= b << HALFDIGITBITS;
+                else
+                    x->p[(i+j)/2] -= b;
+            }
+#ifdef DEBUG
+            printf("x after cor=");
+            for (i=2*(x->sz)-1;i>=0;i--)
+                printf(" %04lx", (long)hd(x,i));
+            printf("\n");
+#endif
+        }
+        if (j%2) 
+            q->p[j/2] |= qhat << HALFDIGITBITS;
+        else
+            q->p[j/2] |= qhat;
+#ifdef DEBUG
+            printf("x after cor=");
+            for (i=xd - 1;i>=0;i--)
+                printf(" %04lx", (long)hd(q,i));
+            printf("\n");
+#endif
+    }
+    _mpz_realloc(r,(mp_size)(yy->sz));
+    zero(r);
+    urshift(r,x,ns);
+    mpz_set(rr,r);
+    mpz_set(qq,q);
+    mpz_clear(x); mpz_clear(y);
+    mpz_clear(q);  mpz_clear(r);
+    free(q); free(x); free(y); free(r);
+}
+
+void mpz_add(zz,x,y)
+MP_INT *zz;MP_INT *x;MP_INT *y;
+{
+    int mg;
+    MP_INT *z;
+    if (x->sn == 0) {
+        mpz_set(zz,y);
+        return;
+    }
+    if (y->sn == 0) {
+        mpz_set(zz,x);
+        return;
+    }
+    z = (MP_INT *)malloc(sizeof(MP_INT));
+    mpz_init(z);
+
+    if (x->sn > 0 && y->sn > 0) {
+        uadd(z,x,y); z->sn = 1;
+    }
+    else if (x->sn < 0 && y->sn < 0) {
+        uadd(z,x,y); z->sn = -1;
+    }
+    else {
+        /* signs differ */
+        if ((mg = ucmp(x,y)) == 0) {
+            zero(z);
+        }
+        else if (mg > 0) {  /* abs(y) < abs(x) */
+            usub(z,x,y);    
+            z->sn = (x->sn > 0 && y->sn < 0) ? 1 : (-1);
+        }
+        else { /* abs(y) > abs(x) */
+            usub(z,y,x);    
+            z->sn = (x->sn < 0 && y->sn > 0) ? 1 : (-1);
+        }
+    }
+    mpz_set(zz,z);
+    mpz_clear(z);
+    free(z);
+}
+
+void mpz_add_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_add(x,y,&z);
+    mpz_clear(&z);
+}
+
+int mpz_cmp_ui(x,n)
+MP_INT *x; unsigned long n;
+{
+    MP_INT z; int ret;
+    mpz_init_set_ui(&z,n);
+    ret=mpz_cmp(x,&z);
+    mpz_clear(&z);
+    return ret;
+}
+
+int mpz_cmp_si(x,n)
+MP_INT *x; long n;
+{
+    MP_INT z; int ret;
+    mpz_init(&z);
+    mpz_set_si(&z,n);
+    ret=mpz_cmp(x,&z);
+    mpz_clear(&z);
+    return ret;
+}
+
+
+void mpz_mul_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_mul(x,y,&z);
+    mpz_clear(&z);
+}
+    
+    
+/* z = x - y  -- just use mpz_add - I'm lazy */
+void mpz_sub(z,x,y)
+MP_INT *z;MP_INT *x; MP_INT *y;
+{
+    MP_INT u;
+    mpz_init(&u);
+    mpz_set(&u,y);
+    u.sn = -(u.sn);
+    mpz_add(z,x,&u);
+    mpz_clear(&u);
+}
+
+void mpz_sub_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_sub(x,y,&z);
+    mpz_clear(&z);
+}
+
+void mpz_div(q,x,y)
+MP_INT *q; MP_INT *x; MP_INT *y;
+{
+    MP_INT r; 
+    short sn1 = x->sn, sn2 = y->sn;
+    mpz_init(&r);
+    udiv(q,&r,x,y);
+    q->sn = sn1*sn2;
+    if (uzero(q))
+        q->sn = 0;
+    mpz_clear(&r);
+}
+
+void mpz_mdiv(q,x,y)
+MP_INT *q; MP_INT *x; MP_INT *y;
+{
+    MP_INT r; 
+    short sn1 = x->sn, sn2 = y->sn, qsign;
+    mpz_init(&r);
+    udiv(q,&r,x,y);
+    qsign = q->sn = sn1*sn2;
+    if (uzero(q))
+        q->sn = 0;
+    /* now if r != 0 and q < 0 we need to round q towards -inf */
+    if (!uzero(&r) && qsign < 0) 
+        mpz_sub_ui(q,q,1L);
+    mpz_clear(&r);
+}
+
+void mpz_mod(r,x,y)
+MP_INT *r; MP_INT *x; MP_INT *y;
+{
+    MP_INT q;
+    short sn = x->sn;
+    mpz_init(&q);
+    if (x->sn == 0) {
+        zero(r);
+        return;
+    }
+    udiv(&q,r,x,y);
+    r->sn = sn;
+    if (uzero(r))
+        r->sn = 0;
+    mpz_clear(&q);
+}
+
+void mpz_divmod(q,r,x,y)
+MP_INT *q; MP_INT *r; MP_INT *x; MP_INT *y;
+{
+    short sn1 = x->sn, sn2 = y->sn;
+    if (x->sn == 0) {
+        zero(q);
+        zero(r);
+        return;
+    }
+    udiv(q,r,x,y);
+    q->sn = sn1*sn2;
+    if (uzero(q))
+        q->sn = 0;
+    r->sn = sn1;
+    if (uzero(r))
+        r->sn = 0;
+}
+
+void mpz_mmod(r,x,y)
+MP_INT *r; MP_INT *x; MP_INT *y;
+{
+    MP_INT q;
+    short sn1 = x->sn, sn2 = y->sn;
+    mpz_init(&q);
+    if (sn1 == 0) {
+        zero(r);
+        return;
+    }
+    udiv(&q,r,x,y);
+    if (uzero(r)) {
+        r->sn = 0;
+        return;
+    }
+    q.sn = sn1*sn2;
+    if (q.sn > 0) 
+        r->sn = sn1;
+    else if (sn1 < 0 && sn2 > 0) {
+        r->sn = 1;
+        mpz_sub(r,y,r);
+    }
+    else {
+        r->sn = 1;
+        mpz_add(r,y,r);
+    }
+}
+
+void mpz_mdivmod(q,r,x,y)
+MP_INT *q;MP_INT *r; MP_INT *x; MP_INT *y;
+{
+    short sn1 = x->sn, sn2 = y->sn, qsign;
+    if (sn1 == 0) {
+        zero(q);
+        zero(r);
+        return;
+    }
+    udiv(q,r,x,y);
+    qsign = q->sn = sn1*sn2;
+    if (uzero(r)) {
+        /* q != 0, since q=r=0 would mean x=0, which was tested above */
+        r->sn = 0;
+        return;
+    }
+    if (q->sn > 0) 
+        r->sn = sn1;
+    else if (sn1 < 0 && sn2 > 0) {
+        r->sn = 1;
+        mpz_sub(r,y,r);
+    }
+    else {
+        r->sn = 1;
+        mpz_add(r,y,r);
+    }
+    if (uzero(q))
+        q->sn = 0;
+    /* now if r != 0 and q < 0 we need to round q towards -inf */
+    if (!uzero(r) && qsign < 0) 
+        mpz_sub_ui(q,q,1L);
+}
+
+void mpz_mod_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init(&z);
+    mpz_set_ui(&z,n);
+    mpz_mod(x,y,&z);
+    mpz_clear(&z);
+}
+
+void mpz_mmod_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init(&z);
+    mpz_set_ui(&z,n);
+    mpz_mmod(x,y,&z);
+    mpz_clear(&z);
+}
+
+void mpz_div_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_div(x,y,&z);
+    mpz_clear(&z);
+}
+
+void mpz_mdiv_ui(x,y,n)
+MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_mdiv(x,y,&z);
+    mpz_clear(&z);
+}
+void mpz_divmod_ui(q,x,y,n)
+MP_INT *q;MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_divmod(q,x,y,&z);
+    mpz_clear(&z);
+}
+
+void mpz_mdivmod_ui(q,x,y,n)
+MP_INT *q;MP_INT *x;MP_INT *y; unsigned long n;
+{
+    MP_INT z;
+    mpz_init_set_ui(&z,n);
+    mpz_mdivmod(q,x,y,&z);
+    mpz_clear(&z);
+}
+
+
+/* 2<=base <=36 - this overestimates the optimal value, which is OK */
+unsigned int mpz_sizeinbase(x,base)
+MP_INT *x; int base;
+{
+    int i,j;
+    int bits = digits(x) * DIGITBITS;
+    if (base < 2 || base > 36)
+        fatal("mpz_sizeinbase: invalid base");
+    for (j=0,i=1; i<=base;i*=2,j++)
+        ;
+    return ((bits)/(j-1)+1);
+}
+
+char *mpz_get_str(s,base,x)
+char *s;  int base; MP_INT *x; {
+    MP_INT xx,q,r,bb;
+    char *p,*t,*ps;
+    int sz = mpz_sizeinbase(x,base);
+    mp_limb d;
+    if (base < 2 || base > 36)
+        return s;
+    t = (char *)malloc(sz+2);
+    if (!t) 
+        fatal("cannot allocate memory in mpz_get_str");
+    if (!s) {
+        s=(char *)malloc(sz+2);
+        if (!s) 
+            fatal("cannot allocate memory in mpz_get_str");
+    }
+    if (uzero(x)) {
+        *s='0';
+        *(s+1)='\0';
+        return s;
+    }
+    mpz_init(&xx); mpz_init(&q); mpz_init(&r); mpz_init(&bb);
+    mpz_set(&xx,x);
+    mpz_set_ui(&bb,(unsigned long)base);
+    ps = s;
+    if (x->sn < 0) {
+        *ps++= '-';
+        xx.sn = 1;
+    }
+    p = t;
+    while (!uzero(&xx)) {
+        udiv(&xx,&r,&xx,&bb);
+        d = r.p[0];
+        if (d < 10) 
+            *p++  = (char) (r.p[0] + '0');
+        else 
+            *p++  = (char) (r.p[0] + -10 + 'a');
+    }
+
+    p--;
+    for (;p>=t;p--,ps++)
+        *ps = *p;
+    *ps='\0';
+    
+    mpz_clear(&q); mpz_clear(&r); free(t);  
+    return s;
+}
+
+
+int mpz_set_str(x,s,base)
+MP_INT *x; char *s; int base;
+{
+    int l,i;
+    int retval = 0;
+    MP_INT t,m,bb;
+    short sn;
+    unsigned int k;
+    mpz_init(&m);
+    mpz_init(&t);
+    mpz_init(&bb);
+    mpz_set_ui(&m,1L);
+    zero(x);
+    while (*s==' ' || *s=='\t' || *s=='\n')
+        s++;
+    if (*s == '-') {
+        sn = -1; s++;
+    }
+    else
+        sn = 1;
+    if (base == 0) {
+        if (*s == '0') {
+            if (*(s+1) == 'x' || *(s+1) == 'X') {
+                base = 16;
+                s+=2;   /* toss 0x */
+            }
+            else {
+                base = 8;
+                s++;    /* toss 0 */
+            }
+        }
+        else
+            base=10;
+    }
+    if (base < 2 || base > 36)
+        fatal("mpz_set_str: invalid base");
+    mpz_set_ui(&bb,(unsigned long)base);
+    l=strlen(s);
+    for (i = l-1; i>=0; i--) {
+        if (s[i]==' ' || s[i]=='\t' || s[i]=='\n') 
+            continue;
+        if (s[i] >= '0' && s[i] <= '9')
+            k = (unsigned int)s[i] - (unsigned int)'0';
+        else if (s[i] >= 'A' && s[i] <= 'Z')
+            k = (unsigned int)s[i] - (unsigned int)'A'+10;
+        else if (s[i] >= 'a' && s[i] <= 'z')
+            k = (unsigned int)s[i] - (unsigned int)'a'+10;
+        else {
+            retval = (-1);
+            break;
+        }
+        if (k >= base) {
+            retval = (-1);
+            break;
+        }
+        mpz_mul_ui(&t,&m,(unsigned long)k);
+        mpz_add(x,x,&t);
+        mpz_mul(&m,&m,&bb);
+#ifdef DEBUG
+        printf("k=%d\n",k);
+        printf("t=%s\n",mpz_get_str(NULL,10,&t));
+        printf("x=%s\n",mpz_get_str(NULL,10,x));
+        printf("m=%s\n",mpz_get_str(NULL,10,&m));
+#endif
+    }
+    if (x->sn)
+        x->sn = sn;
+    mpz_clear(&m);
+    mpz_clear(&bb);
+    mpz_clear(&t);
+    return retval;
+}
+
+int mpz_init_set_str(x,s,base)
+MP_INT *x; char *s; int base;
+{
+    mpz_init(x); return mpz_set_str(x,s,base);
+}
+
+#define mpz_randombyte (rand()& 0xff)
+
+void mpz_random(x,size)
+MP_INT *x; unsigned int size;
+{
+    unsigned int bits = size * LONGBITS;
+    unsigned int digits = bits/DIGITBITS;
+    unsigned int oflow = bits % DIGITBITS;
+    unsigned int i,j;
+    long t;
+    if (oflow)
+        digits++;
+    _mpz_realloc(x,(mp_size)digits);
+
+    for (i=0; i<digits; i++) {
+        t = 0;
+        for (j=0; j < DIGITBITS; j+=8)
+            t = (t << 8) | mpz_randombyte; 
+        (x->p)[i] = t & LMAX;
+    }
+    if (oflow) 
+        (x->p)[digits-1] &= (((mp_limb)1 << oflow) - 1);
+}
+void mpz_random2(x,size)
+MP_INT *x; unsigned int size;
+{
+    unsigned int bits = size * LONGBITS;
+    unsigned int digits = bits/DIGITBITS;
+    unsigned int oflow = bits % DIGITBITS;
+    unsigned int i,j;
+    long t;
+    if (oflow)
+        digits++;
+    _mpz_realloc(x,(mp_size)digits);
+
+    for (i=0; i<digits; i++) {
+        t = 0;
+        for (j=0; j < DIGITBITS; j+=8)
+            t = (t << 8) | mpz_randombyte; 
+        (x->p)[i] = (t & LMAX) % 2;
+    }
+    if (oflow) 
+        (x->p)[digits-1] &= (((mp_limb)1 << oflow) - 1);
+}
+
+size_t mpz_size(x)
+MP_INT *x;
+{
+    int bits = (x->sz)*DIGITBITS;
+    size_t r;
+    
+    r = bits/LONGBITS;
+    if (bits % LONGBITS)
+        r++;
+    return r;
+}
+
+void mpz_abs(x,y)
+MP_INT *x; MP_INT *y;
+{
+    if (x!=y)
+        mpz_set(x,y);
+    if (uzero(x))
+        x->sn = 0;
+    else
+        x->sn = 1;
+}
+
+void mpz_neg(x,y)
+MP_INT *x; MP_INT *y;
+{
+    if (x!=y)
+        mpz_set(x,y);
+    x->sn = -(y->sn);
+}
+
+void mpz_fac_ui(x,n)
+MP_INT *x; unsigned long n;
+{
+    mpz_set_ui(x,1L);
+    if (n==0 || n == 1)
+        return;
+    for (;n>1;n--)
+        mpz_mul_ui(x,x,n);
+}
+
+void mpz_gcd(gg,aa,bb)
+MP_INT *gg;
+MP_INT *aa;
+MP_INT *bb;
+{
+    MP_INT *g,*t,*a,*b;
+    int freeg;
+    
+    t = (MP_INT *)malloc(sizeof(MP_INT));
+    g = (MP_INT *)malloc(sizeof(MP_INT));
+    a = (MP_INT *)malloc(sizeof(MP_INT));
+    b = (MP_INT *)malloc(sizeof(MP_INT));
+    if (!a || !b || !g || !t)
+        fatal("mpz_gcd: cannot allocate memory");
+    mpz_init(g); mpz_init(t); mpz_init(a); mpz_init(b);
+    mpz_abs(a,aa); mpz_abs(b,bb); 
+
+    while (!uzero(b)) {
+        mpz_mod(t,a,b);
+        mpz_set(a,b);
+        mpz_set(b,t);
+    }
+    
+    mpz_set(gg,a);
+    mpz_clear(g); mpz_clear(t); mpz_clear(a); mpz_clear(b);
+    free(g); free(t); free(a); free(b);
+}
+
+void mpz_gcdext(gg,xx,yy,aa,bb)
+MP_INT *gg,*xx,*yy,*aa,*bb;
+{
+    MP_INT *x, *y, *g, *u, *q;
+
+    if (uzero(bb)) {
+        mpz_set(gg,aa);
+        mpz_set_ui(xx,1L);
+        if (yy)
+            mpz_set_ui(yy,0L);
+        return;
+    }
+    
+    g = (MP_INT *)malloc(sizeof(MP_INT)); mpz_init(g);
+    q = (MP_INT *)malloc(sizeof(MP_INT)); mpz_init(q);
+    y = (MP_INT *)malloc(sizeof(MP_INT)); mpz_init(y);
+    x = (MP_INT *)malloc(sizeof(MP_INT)); mpz_init(x);
+    u = (MP_INT *)malloc(sizeof(MP_INT)); mpz_init(u);
+
+    if (!g || !q || !y || !x || !u)
+        fatal("mpz_gcdext: cannot allocate memory");
+
+    mpz_divmod(q,u,aa,bb);
+    mpz_gcdext(g,x,y,bb,u);
+    if (yy) {
+        mpz_mul(u,q,y);
+        mpz_sub(yy,x,u);
+    }
+    mpz_set(xx,y);
+    mpz_set(gg,g);
+    mpz_clear(g); mpz_clear(q); mpz_clear(y); mpz_clear(x); mpz_clear(u);
+    free(g); free(q); free(y); free(x); free(u);
+}
+
+
+/*
+ *    a is a quadratic residue mod b if
+ *    x^2 = a mod b      has an integer solution x.
+ *
+ *    J(a,b) = if a==1 then 1 else
+ *             if a is even then J(a/2,b) * ((-1)^(b^2-1)/8))
+ *             else J(b mod a, a) * ((-1)^((a-1)*(b-1)/4)))
+ *
+ *  b>0  b odd
+ *
+ *
+ */
+
+int mpz_jacobi(ac,bc)
+MP_INT *ac, *bc;
+{
+    int sgn = 1;
+    unsigned long c;
+    MP_INT *t,*a,*b; 
+    if (bc->sn <=0)
+        fatal("mpz_jacobi call with b <= 0");
+    if (even(bc))
+        fatal("mpz_jacobi call with b even");
+
+    init(t); init(a); init(b);
+
+    /* if ac < 0, then we use the fact that 
+     *  (-1/b)= -1 if b mod 4 == 3
+     *          +1 if b mod 4 == 1
+     */
+
+    if (mpz_cmp_ui(ac,0L) < 0 && (lowdigit(bc) % 4) == 3)
+        sgn=-sgn;
+
+    mpz_abs(a,ac); mpz_set(b,bc);
+
+    /* while (a > 1) { */
+    while(mpz_cmp_ui(a,1L) > 0) {
+
+        if (even(a)) {
+
+            /* c = b % 8 */
+            c = lowdigit(b) & 0x07;
+
+            /* b odd, then (b^2-1)/8 is even iff (b%8 == 3,5) */
+
+            /* if b % 8 == 3 or 5 */
+            if (c == 3 || c == 5)
+                sgn = -sgn;
+
+            /* a = a / 2 */
+            mpz_div_2exp(a,a,1L); 
+
+        } 
+        else {
+            /* note: (a-1)(b-1)/4 odd iff a mod 4==b mod 4==3 */
+
+            /* if a mod 4 == 3 and b mod 4 == 3 */
+            if (((lowdigit(a) & 3) == 3) && ((lowdigit(b) & 3) == 3))
+                sgn = -sgn;
+
+            /* set (a,b) = (b mod a,a) */
+            mpz_set(t,a); mpz_mmod(a,b,t); mpz_set(b,t);
+        } 
+    }
+
+    /* if a == 0 then sgn = 0 */
+    if (uzero(a))
+        sgn=0;
+
+    clear(t); clear(a); clear(b);
+    return (sgn);
+}
+
+void mpz_and(z,x,y) /* not the most efficient way to do this */
+MP_INT *z,*x,*y;
+{
+    int i,sz;
+    sz = imax(x->sz, y->sz);
+    _mpz_realloc(z,(mp_size)sz);
+    for (i=0; i < sz; i++)
+        (z->p)[i] = dg(x,i) & dg(y,i);
+    if (x->sn < 0 && y->sn < 0)
+        z->sn = (-1);
+    else
+        z->sn = 1;
+    if (uzero(z))
+        z->sn = 0;
+}
+
+void mpz_or(z,x,y)  /* not the most efficient way to do this */
+MP_INT *z,*x,*y;
+{
+    int i,sz;
+    sz = imax(x->sz, y->sz);
+    _mpz_realloc(z,(mp_size)sz);
+    for (i=0; i < sz; i++)
+        (z->p)[i] = dg(x,i) | dg(y,i);
+    if (x->sn < 0 || y->sn < 0)
+        z->sn = (-1);
+    else
+        z->sn = 1;
+    if (uzero(z))
+        z->sn = 0;
+}
+
+void mpz_xor(z,x,y)  /* not the most efficient way to do this */
+MP_INT *z,*x,*y;
+{
+    int i,sz;
+    sz = imax(x->sz, y->sz);
+    _mpz_realloc(z,(mp_size)sz);
+    for (i=0; i < sz; i++)
+        (z->p)[i] = dg(x,i) ^ dg(y,i);
+    if ((x->sn <= 0 && y->sn > 0) || (x->sn > 0 && y->sn <=0))
+        z->sn = (-1);
+    else
+        z->sn = 1;
+    if (uzero(z))
+        z->sn = 0;
+}
+void mpz_pow_ui(zz,x,e)
+MP_INT *zz, *x;
+unsigned long e;
+{
+    MP_INT *t;
+    unsigned long mask = (1L<< (LONGBITS-1));
+    
+    if (e==0) {
+        mpz_set_ui(zz,1L);
+        return;
+    }
+
+    init(t);
+    mpz_set(t,x);
+    for (;!(mask &e); mask>>=1) 
+        ;
+    mask>>=1;
+    for (;mask!=0; mask>>=1) {
+        mpz_mul(t,t,t);
+        if (e & mask)
+            mpz_mul(t,t,x);
+    }
+    mpz_set(zz,t);
+    clear(t);
+}
+
+void mpz_powm(zz,x,ee,n)
+MP_INT *zz,*x,*ee,*n;
+{
+    MP_INT *t,*e;
+    struct is *stack = NULL;
+    int k,i;
+    
+    if (uzero(ee)) {
+        mpz_set_ui(zz,1L);
+        return;
+    }
+
+    if (ee->sn < 0) {
+        return;
+    }
+    init(e); init(t); mpz_set(e,ee);
+
+    for (k=0;!uzero(e);k++,mpz_div_2exp(e,e,1L))
+        push(lowdigit(e) & 1,&stack);
+    k--;
+    i=pop(&stack);
+
+    mpz_mod(t,x,n);  /* t=x%n */
+
+    for (i=k-1;i>=0;i--) {
+        mpz_mul(t,t,t); 
+        mpz_mod(t,t,n);  
+        if (pop(&stack)) {
+            mpz_mul(t,t,x); 
+            mpz_mod(t,t,n);
+        }
+    }
+    mpz_set(zz,t);
+    clear(t);
+}
+
+void mpz_powm_ui(z,x,e,n)
+MP_INT *z,*x,*n; unsigned long e;
+{
+    MP_INT f;
+    mpz_init(&f);
+    mpz_set_ui(&f,e);
+    mpz_powm(z,x,&f,n);
+    mpz_clear(&f);
+}
+    
+    
+
+/* Miller-Rabin */
+static int witness(x,n)
+MP_INT *x, *n;
+{
+    MP_INT *t,*e, *e1;
+    struct is *stack = NULL;
+    int trivflag = 0;
+    int k,i;
+    
+    init(e1); init(e); init(t); mpz_sub_ui(e,n,1L); mpz_set(e1,e);
+
+    for (k=0;!uzero(e);k++,mpz_div_2exp(e,e,1L))
+        push(lowdigit(e) & 1,&stack);
+    k--;
+    i=pop(&stack);
+
+    mpz_mod(t,x,n);  /* t=x%n */
+
+    for (i=k-1;i>=0;i--) {
+        trivflag = !mpz_cmp_ui(t,1L) || !mpz_cmp(t,e1);
+        mpz_mul(t,t,t); mpz_mod(t,t,n);  
+        if (!trivflag && !mpz_cmp_ui(t,1L)) {
+            clear(t); clear(e); clear(e1);
+            return 1;
+        }
+            
+        if (pop(&stack)) {
+            mpz_mul(t,t,x); 
+            mpz_mod(t,t,n);
+        }
+    }
+    if (mpz_cmp_ui(t,1L))  { /* t!=1 */
+        clear(t); clear(e); clear(e1);
+        return 1;
+    }
+    else {
+        clear(t); clear(e); clear(e1);
+        return 0;
+    }
+}
+
+unsigned long smallp[] = {2,3,5,7,11,13,17};
+int mpz_probab_prime_p(nn,s)
+MP_INT *nn; int s;
+{   
+    MP_INT *a,*n;
+    int j,k,i;
+    long t;
+
+    if (uzero(nn))
+        return 0;
+    init(n); mpz_abs(n,nn);
+    if (!mpz_cmp_ui(n,1L)) {
+        clear(n);
+        return 0;
+    }
+    init(a);
+    for (i=0;i<sizeof(smallp)/sizeof(unsigned long); i++) {
+        mpz_mod_ui(a,n,smallp[i]);
+        if (uzero(a)) {
+            clear(a); clear(n); return 0;
+        }
+    }
+    _mpz_realloc(a,(mp_size)(n->sz));
+    for (k=0; k<s; k++) {
+
+        /* generate a "random" a */
+            for (i=0; i<n->sz; i++) {
+                t = 0;
+                for (j=0; j < DIGITBITS; j+=8)
+                    t = (t << 8) | mpz_randombyte; 
+                (a->p)[i] = t & LMAX;
+            }
+            a->sn = 1;
+            mpz_mod(a,a,n);
+
+        if (witness(a,n)) {
+            clear(a); clear(n);
+            return 0;
+        }
+    }
+    clear(a);clear(n);
+    return 1;
+}   
+
+
+/* Square roots are found by Newton's method, but since we are working
+ * with integers we have to consider carefully the termination conditions.
+ * If we are seeking x = floor(sqrt(a)), the iteration is
+ *     x_{n+1} = floor ((floor (a/x_n) + x_n)/2) == floor ((a + x_n^2)/(2*x))
+ * If eps_n represents the error (exactly, eps_n and sqrt(a) real) in the form:
+ *     x_n = (1 + eps_n) sqrt(a)
+ * then it is easy to show that for a >= 4
+ *     if 0 <= eps_n, then either 0 <= eps_{n+1} <= (eps_n^2)/2
+ *                         or x_{n+1} = floor (sqrt(a))
+ *     if x_n = floor (sqrt(a)), then either x_{n+1} = floor (sqrt(a))
+ *                               or x_{n+1} = floor (sqrt(a)) + 1
+ * Therefore, if the initial approximation x_0 is chosen so that
+ *     0 <= eps_0 <= 1/2
+ * then the error remains postive and monotonically decreasing with
+ *     eps_n <= 2 ^ (-(2^(n+1) - 1))
+ * unless we reach the correct floor(sqrt(a)), after which we may oscillate
+ * between it and the value one higher.
+ * We choose the number of iterations, k, to guarantee
+ *     eps_k sqrt(a) < 1,  so x_k <= floor (sqrt (a)) + 1
+ * so finally x_k is either the required answer or one too big (which we
+ * check by a simple multiplication and comparison).
+ *
+ * The calculation of the initial approximation *assumes* DIGITBITS is even.
+ * It probably always will be, so for now let's leave the code simple,
+ * clear and all reachable in testing!
+ */
+void mpz_sqrtrem (root, rem, a)
+    MP_INT *root;
+    MP_INT *rem;
+    MP_INT *a;
+{
+    MP_INT tmp;
+    MP_INT r;
+    mp_limb z;
+    unsigned long j, h;
+    int k;
+
+    if (a->sn < 0)
+        /* Negative operand, nothing correct we can do */
+        return;
+
+    /* Now, a good enough approximation to the root is obtained by writing
+     *     a = z * 2^(2j) + y,  4 <= z <= 15 and 0 <= y < 2^(2j)
+     * then taking
+     *     root = ciel (sqrt(z+1)) * 2^j
+     */
+
+    for (j = a->sz - 1; j != 0 && (a->p)[j] == 0; j--);
+    z = (a->p)[j];
+    if (z < 4) {
+        if (j == 0) {
+            /* Special case for small operand (main interation not valid) */
+            mpz_set_ui (root, (z>0) ? 1L : 0L);
+            if (rem)
+                mpz_set_ui (rem, (z>1) ? z-1L : 0L);
+            return;
+        } else {
+            z = (z << 2) + ((a->p)[j-1] >> (DIGITBITS-2));
+            j = j * DIGITBITS - 2;
+        }
+    } else {
+        j = j * DIGITBITS;
+        while (z & ~0xf) {
+            z >>= 2;
+            j += 2;
+        }
+    }
+    j >>= 1;                            /* z and j now as described above */
+    for (k=1, h=4; h < j+3; k++, h*=2); /* 2^(k+1) >= j+3, since a < 2^(2j+4) */
+    mpz_init_set_ui (&r, (z>8) ? 4L : 3L);
+    mpz_mul_2exp (&r, &r, j);
+
+#ifdef DEBUG
+    printf ("mpz_sqrtrem: z = %lu, j = %lu, k = %d\n", (long)z, j, k);
+#endif
+
+    /* Main iteration */
+    mpz_init (&tmp);
+    for ( ; k > 0; k--) {
+        mpz_div (&tmp, a, &r);
+        mpz_add (&r, &tmp, &r);
+        mpz_div_2exp (&r, &r, 1L);
+    }
+
+    /* Adjust result (which may be one too big) and set remainder */
+    mpz_mul (&tmp, &r, &r);
+    if (mpz_cmp (&tmp, a) > 0) {
+        mpz_sub_ui (root, &r, 1L);
+        if (rem) {
+            mpz_sub (rem, a, &tmp);
+            mpz_add (rem, rem, &r);
+            mpz_add (rem, rem, &r);
+            mpz_sub_ui (rem, rem, 1L);
+        }
+    } else {
+        mpz_set (root, &r);
+        if (rem)
+            mpz_sub (rem, a, &tmp);
+    }
+
+    mpz_clear (&tmp);
+    mpz_clear (&r);
+}
+
+
+void mpz_sqrt (root, a)
+    MP_INT *root;
+    MP_INT *a;
+{
+    mpz_sqrtrem (root, NULL, a);
+}
diff --git a/Mp/fgmp-1.0b5/gmp.h b/Mp/fgmp-1.0b5/gmp.h
new file mode 100644
index 0000000..5e8b80a
--- /dev/null
+++ b/Mp/fgmp-1.0b5/gmp.h
@@ -0,0 +1,104 @@
+/*
+ * FREE GMP - a public domain implementation of a subset of the 
+ *           gmp library
+ *
+ * I hearby place the file in the public domain.
+ *
+ * Do whatever you want with this code. Change it. Sell it. Claim you
+ *  wrote it. 
+ * Bugs, complaints, flames, rants: please send email to 
+ *    Mark Henderson <markh@wimsey.bc.ca>
+ * I'm already aware that fgmp is considerably slower than gmp
+ *
+ * CREDITS:
+ *  Paul Rouse <par@r-cube.demon.co.uk> - generic bug fixes, mpz_sqrt and
+ *    mpz_sqrtrem, and modifications to get fgmp to compile on a system 
+ *    with int and long of different sizes (specifically MSDOS,286 compiler)
+ *  Also see the file "notes" included with the fgmp distribution, for
+ *    more credits.
+ *
+ * VERSION 1.0 - beta 5
+ */
+
+#include <stdio.h>
+#include <sys/types.h>
+
+/* for malloc and free */
+#include <stdlib.h>
+
+#ifndef NULL
+#define NULL ((void *)0)
+#endif
+
+typedef long mp_limb;
+typedef unsigned mp_size;
+
+typedef struct mp_int {
+    mp_limb *p;
+    short sn;
+    mp_size sz;
+} MP_INT;
+
+#ifdef __STDC__
+#define PROTO(x) x
+#else
+#define PROTO(x) ()
+#endif
+
+void mpz_init PROTO((MP_INT *s));
+void mpz_init_set PROTO((MP_INT *s, MP_INT *t));
+void mpz_init_set_ui PROTO((MP_INT *s, unsigned long v));
+void mpz_init_set_si PROTO((MP_INT *y, long v));
+void mpz_clear PROTO((MP_INT *s));
+void _mpz_realloc PROTO((MP_INT *x, mp_size size));
+void mpz_set PROTO((MP_INT *y, MP_INT *x));
+void mpz_set_ui PROTO((MP_INT *y, unsigned long v));
+unsigned long mpz_get_ui PROTO((MP_INT *y));
+long mpz_get_si PROTO((MP_INT *y));
+void mpz_set_si PROTO((MP_INT *y, long v));
+int mpz_cmp PROTO((MP_INT *x, MP_INT *y));
+void mpz_mul PROTO((MP_INT *ww,MP_INT *u, MP_INT *v));
+void mpz_mul_2exp PROTO((MP_INT *z, MP_INT *x, unsigned long e));
+void mpz_div_2exp PROTO((MP_INT *z, MP_INT *x, unsigned long e));
+void mpz_mod_2exp PROTO((MP_INT *z, MP_INT *x, unsigned long e));
+void mpz_add PROTO((MP_INT *zz,MP_INT *x,MP_INT *y));
+void mpz_add_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_mul_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_sub PROTO((MP_INT *z,MP_INT *x, MP_INT *y));
+void mpz_sub_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_div PROTO((MP_INT *q, MP_INT *x, MP_INT *y));
+void mpz_mdiv PROTO((MP_INT *q, MP_INT *x, MP_INT *y));
+void mpz_mod PROTO((MP_INT *r, MP_INT *x, MP_INT *y));
+void mpz_divmod PROTO((MP_INT *q, MP_INT *r, MP_INT *x, MP_INT *y));
+void mpz_mmod PROTO((MP_INT *r, MP_INT *x, MP_INT *y));
+void mpz_mdivmod PROTO((MP_INT *q,MP_INT *r, MP_INT *x, MP_INT *y));
+void mpz_mod_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_mmod_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_div_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_mdiv_ui PROTO((MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_divmod_ui PROTO((MP_INT *q,MP_INT *x,MP_INT *y, unsigned long n));
+void mpz_mdivmod_ui PROTO((MP_INT *q,MP_INT *x,MP_INT *y, unsigned long n));
+unsigned int mpz_sizeinbase PROTO((MP_INT *x, int base));
+char *mpz_get_str PROTO((char *s,  int base, MP_INT *x));
+int mpz_set_str PROTO((MP_INT *x, char *s, int base));
+int mpz_init_set_str PROTO((MP_INT *x, char *s, int base));
+void mpz_random PROTO((MP_INT *x, mp_size size));
+void mpz_random2 PROTO((MP_INT *x, mp_size size));
+size_t mpz_size PROTO((MP_INT *x));
+void mpz_abs PROTO((MP_INT *, MP_INT *));
+void mpz_neg PROTO((MP_INT *, MP_INT *));
+void mpz_fac_ui PROTO((MP_INT *, unsigned long));
+void mpz_gcd PROTO((MP_INT *, MP_INT *, MP_INT *));
+void mpz_gcdext PROTO((MP_INT *, MP_INT *, MP_INT *, MP_INT *, MP_INT *));
+int mpz_jacobi PROTO((MP_INT *, MP_INT *));
+int mpz_cmp_ui PROTO((MP_INT *, unsigned long));
+int mpz_cmp_si PROTO((MP_INT *, long));
+void mpz_and PROTO((MP_INT *, MP_INT *, MP_INT *));
+void mpz_or PROTO((MP_INT *, MP_INT *, MP_INT *));
+void mpz_xor PROTO((MP_INT *, MP_INT *, MP_INT *));
+void mpz_pow_ui PROTO((MP_INT *, MP_INT *, unsigned long));
+void mpz_powm PROTO((MP_INT *, MP_INT *, MP_INT *, MP_INT *));
+void mpz_powm_ui PROTO((MP_INT *, MP_INT *, unsigned long, MP_INT *));
+int mpz_probab_prime_p  PROTO((MP_INT *, int));
+void mpz_sqrtrem PROTO((MP_INT *, MP_INT *, MP_INT *));
+void mpz_sqrt PROTO((MP_INT *, MP_INT *));
diff --git a/Mp/fgmp-1.0b5/notes b/Mp/fgmp-1.0b5/notes
new file mode 100644
index 0000000..f3f6b1b
--- /dev/null
+++ b/Mp/fgmp-1.0b5/notes
@@ -0,0 +1,150 @@
+WELCOME TO FGMP.
+
+FGMP is a public domain implementation of a subset of the GNU gmp library
+with the same API. 
+
+For instance, you can link the following trivial program with either 
+this code, or libgmp.a and get the same results.
+------------
+#include <stdio.h>
+#include "gmp.h"
+main()
+{
+    MP_INT a; MP_INT b; MP_INT c;
+
+    mpz_init_set_ui(&a,1); mpz_init_set_ui(&b,2); mpz_init(&c);
+    mpz_add(&c,&a,&b);
+    printf("\n%s\n", mpz_get_str(NULL,10,&c));
+}
+
+------------
+
+FGMP is really in the public domain. You can do whatever you want with
+it.
+
+I wrote FGMP so that we would all have access to a (truly free)
+implementation of this subset of the API of GNU libgmp. I encourage
+everyone to distribute this as widely as possible.
+
+If you need more documentation, I suggest you look at the file
+gmp.texi which is included with the GNU gmp library. 
+
+You can send me bug reports, implementations of missing functions, flames
+and rants by Email. 
+
+Any submissions of new code to be integrated into fgmp must also be 
+placed in the public domain (For the particularly dense, you can 
+release a new fgmp yourself under different licensing terms. This 
+is a condition for including a submission in a release of FGMP that 
+I personally prepare).
+
+Mark Henderson <markh@wimsey.bc.ca>
+
+---
+This is the fifth BETA release. 1.0b5
+
+I hearby place this file and all of FGMP in the public domain.
+
+Thanks to Paul Rouse <par@r-cube.demon.co.uk> for changes to get fgmp 
+to work on a 286 MSDOS compiler, the functions mpz_sqrt and 
+mpz_sqrtrem, plus other general bug fixes. 
+
+Thanks also to Erick Gallesio <eg@kaolin.unice.fr> for a fix
+to mpz_init_set_str
+
+Define B64 if your "long" type is 64 bits. Otherwise we assume 32
+bit longs. (The 64 bit version hasn't been tested enough)
+
+
+
+Platforms:
+Linux 0.99 (gcc)
+IBM RS6000/AIX 3.2 (IBM xlc compiler and gcc 2.3)
+Sun OS 4.1, Sun 3/4
+DEC Alpha OSF/1 (only lightly tested, 64 bit longs do make a difference,
+    thanks to DEC for providing access via axposf.pa.dec.com). Define B64
+    for this platform
+MSDOS 286 C compiler (see credits above)
+
+---
+Some differences between gmp and fgmp
+
+1. fgmp is considerably slower than gmp
+2. fgmp does not implement the following:
+    all mpq_*
+    internal mpn_* functions
+    mpz_perfect_square_p
+    mpz_inp_raw, mpz_out_raw
+    mp_set_memory_functions, mpz_out_str, mpz_inp_str
+3. fgmp implements the following in addition to the routines in GNU gmp.
+    int mpz_jacobi(MP_INT *a, MP_INT *b)
+    - finds the jacobi symbol (a/b)
+4. mpz_sizeinbase often overestimates the exact value
+
+5. To convert your gmp based program to fgmp (subject to the
+above)
+
+- recompile your source. Make sure to include the gmp.h file included
+  with fgmp rather than that included with gmp. (The point is to recompile
+  all files which include gmp.h)
+- link with gmp.o instead of libgmp.a
+
+Here's a complete sorted list of function implemented in fgmp:
+
+_mpz_realloc
+mpz_abs
+mpz_add
+mpz_add_ui
+mpz_and
+mpz_clear
+mpz_cmp
+mpz_cmp_si
+mpz_cmp_ui
+mpz_div
+mpz_div_2exp
+mpz_div_ui
+mpz_divmod
+mpz_divmod_ui
+mpz_fac_ui
+mpz_gcd
+mpz_gcdext
+mpz_get_si
+mpz_get_str
+mpz_get_ui
+mpz_init
+mpz_init_set
+mpz_init_set_si
+mpz_init_set_str
+mpz_init_set_ui
+mpz_jacobi
+mpz_mdiv
+mpz_mdiv_ui
+mpz_mdivmod
+mpz_mdivmod_ui
+mpz_mmod
+mpz_mmod_ui
+mpz_mod
+mpz_mod_2exp
+mpz_mod_ui
+mpz_mul
+mpz_mul_2exp
+mpz_mul_ui
+mpz_neg
+mpz_or
+mpz_pow_ui
+mpz_powm
+mpz_powm_ui
+mpz_probab_prime_p
+mpz_random
+mpz_random2
+mpz_set
+mpz_set_si
+mpz_set_str
+mpz_set_ui
+mpz_size
+mpz_sizeinbase
+mpz_sqrt
+mpz_sqrtrem
+mpz_sub
+mpz_sub_ui
+mpz_xor
diff --git a/Mp/gmp-1.3.2/COPYING b/Mp/gmp-1.3.2/COPYING
new file mode 100644
index 0000000..a43ea21
--- /dev/null
+++ b/Mp/gmp-1.3.2/COPYING
@@ -0,0 +1,339 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                          675 Mass Ave, Cambridge, MA 02139, USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+	Appendix: How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) 19yy  <name of author>
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) 19yy name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
diff --git a/Mp/gmp-1.3.2/ChangeLog b/Mp/gmp-1.3.2/ChangeLog
new file mode 100644
index 0000000..0a8f9ed
--- /dev/null
+++ b/Mp/gmp-1.3.2/ChangeLog
@@ -0,0 +1,1347 @@
+Wed May 19 12:14:19 1993  Torbjorn Granlund  (tege@nada.kth.se)
+
+	* Many files: Call alloca(0) before function return.
+	* alloca.c: New file.
+	* Makefile (IMPL_SRCS): Add alloca.c.
+	(IMPL_OBJS): Add alloca.o.
+
+Fri May 14 00:52:01 1993  Torbjorn Granlund  (tege@nada.kth.se)
+
+	* mpz_iset_str.c: Fix header comment.
+
+	* gmp.h: Don't test just FILE, tests some variants of _STDIO_H for
+	machines were FILE is a typedef.
+
+Tue May 11 21:20:07 1993  Torbjorn Granlund  (tege@nada.kth.se)
+
+	* Makefile (realclean): Make it just be like clean.
+	(In particular, don't delete Makefile...)
+
+Thu May  6 14:31:02 1993  Torbjorn Granlund  (tege@nada.kth.se)
+
+	* mpn_mul.c (vsize < KARATSUBA_THRESHOLD): Eliminate unused
+	variable `c'.
+
+	* longlong.h (#if mc88110): Use local union to avoid explicit mov
+	insns.
+	* longlong.h (All union defs): Prepend __ before tags to avoid
+	conflicts.  Cleanup union definitions to look the same.
+
+	* mpz_inp_str.c: Pass BASE to char_ok_for_base. 
+
+Wed May  5 01:25:23 1993  Torbjorn Granlund  (tege@nada.kth.se)
+
+	* tests/tst-convert.c: Try base == 0.
+
+	* mpz_inp_str.c: Fix typo in assignment.
+
+    	* longlong.h: Adjust UMUL_TIME and UDIV_TIME for several archs.
+	(#if hppa): Remove udiv_qrnnd.
+	(#if vax): Define sdiv_qrnnd.  Use "g" constraint for umul_ppmm's
+	operand 0.
+
+Tue May  4 17:11:55 1993  Torbjorn Granlund  (tege@du.nada.kth.se)
+
+	* longlong.h (#if ns32000): Fix typo, udiv_qrnnd was div_qrnnd.
+
+Mon May  3 00:20:52 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* Makefile: Add rule for mp_bases.o.
+
+	* _mpz_set_str.c: Make inp_digit an mp_limb.  Remove casts of
+	inp_digit to unsigned.
+
+	* mpn_dm_1.c: Use BITS_PER_MP_LIMB instead of 32.
+	* mpn_mod_1.c: Likewise.
+	* mpn_dm_1.c (udiv_qrnnd_preinv): Delete testing of overflow that
+	Peter Montgomery proved can't happen.
+
+	* tests/*.c: Include gmp-impl.h to make `inline' and `const' be
+	#define'd.
+
+	* Makefile: Update automatically generated dependencies.
+
+	* mpz_pow_ui: Don't include mp.h.
+	Use MP_INT instead of MINT even for rpow.
+
+Sun May  2 16:35:53 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* tests/tst-convert.c, tests/tst-dm_ui.c, tests/tst-mdm.c,
+	tests/tst-mdm_ui.c: New files.
+	* tests/tst-dm.c: New name for tests/tst-divmod.c.
+	* tests/*.c: Include urandom.h.  Use urandom(), never random().
+	Restructure test code to be more consistent, define and use
+	dump_abort(), only dump input operands, generate negative operands
+	when allowed by the tested function, etc.
+	* tests/urandom.h: New file.
+	* tests/Makefile: Add new tests.  Update dependencies.
+	(CFLAGS): Pass `-I.'.
+	(tests) Don't print "The tests passed" since we don't correctly
+	detect failures.
+
+	* mpz_fac_ui: Fix some comments.
+
+	* mpz_random.c, mpz_random2.c: Declare random();
+	Define random to call mrand48 for __alpha__.
+
+	* All files: Use #ifdef instead if #if for testing __STDC__.
+
+	* longlong.h (#if sparc_v8): Define UMUL_TIME and UDIV_TIME.
+
+	* mpz_inp_str.c: If BASE is 0, try to determine the base from the
+	leading characters.  Restructure code.
+
+	* mpz_pprime_p.c: Include gmp-impl.h.
+
+Fri Apr 30 09:35:03 1993  Torbjorn Granlund  (tege@du.nada.kth.se)
+
+	* tests/Makefile: Set CC and OPT as in main Makefile.
+	Add copyright notice.
+
+	* gmp.h: Remove declaration of mpz_not.
+
+Thu Apr 29 19:51:34 1993  Torbjorn Granlund  (tege@du.nada.kth.se)
+
+	* mpq_cmp.c: Fix header comment.
+
+	From Anders Thulin:
+	* mpz_inp_str.c: Get condition for char_ok_for_base right.
+
+Tue Apr 27 12:30:48 1993  Torbjorn Granlund  (tege@du.nada.kth.se)
+
+	* Makefile (check): Pass OPT to recursive make.
+	* tests/Makefile (OPT): Set to default value.
+	(CFLAGS): Don't include -g.
+	(tst-mul): Pass $(CFLAGS) to $(CC).
+	(tst-divmod): Likewise.
+	(tst-gcd): Likewise.
+	(tst-sqrtrem): Likewise.
+
+	* mpz_gcd.c: Fix typo in comments.
+
+	* mpz_sqrtrem.c: Really divide by zero for negative operands.
+
+	* mpz_mul_ui.c: Fix header comment.
+
+	* mpz_get_si.c: Fix type typo in cast.
+
+Sun Apr 25 18:40:26 1993  Torbjorn Granlund  (tege@pde.nada.kth.se)
+
+	* memory.c: Use #if instead of #ifdef for __STDC__ for consistency.
+	* bsd/xtom.c: Likewise.
+
+	* cre-conv-tab.c: #include gmp.h and gmp-impl.h to get bit size
+	right for longlong.h.
+	* Makefile: Add new deps for `cre-conv-tab'.
+
+	* Makefile, tests/Makefile: Don't define or use srcdir.
+
+	* longlong.h (#if alpha): Define umul_ppmm.
+	Define UMUL_TIME and UDIV_TIME.
+	(#if i960): Define umul_ppmm and __umulsidi3.
+	(#if hppa): Define count_leading_zeros.
+	(#if IBMR2): Remove umul_ppmm.  Define smul_ppmm.
+	(#if 68020): Define smul_ppmm.
+	(#if mc88110): Define umul_ppmm and udiv_qrnnd.
+	(#if ns32000): Define umul_ppmm.
+	(#if pyr): Rewrite umul_ppmm.
+
+	* mpz_powm: `carry_digit' => `carry_limb'.
+	* sdiv.c: Clearify comment.
+
+Sat Apr 24 16:23:33 1993  Torbjorn Granlund  (tege@pde.nada.kth.se)
+
+	* tests: Update header comments.  Make default sizes 8, use SIZE
+	symbol to allow user override.  Increase default repetitions.
+
+	* longlong.h (__udiv_qrnnd_c):  Define this always.
+	Make all variables `unsigned long int'.
+	(__LLDEBUG__): Remove this conditional.
+
+	* gmp-impl.h: #define ABS.
+	* (Many files): Use ABS instead of abs.
+
+	* _mpz_get_str, mpn_sqrt, mpz_clrbit, mpz_get_si, mpz_mod_2exp,
+	mpz_pow_ui, mpz_random2: Cast 1 to mp_limb before shifting.
+
+	* gmp.h: mpn_add returns mp_limb.
+
+	* mpz_perfsqr: Use #if, not plain if for exclusion of code for
+	non-32-bit machines.
+
+Tue Apr 20 13:13:58 1993  Torbjorn Granlund  (tege@du.nada.kth.se)
+
+	* mpn_sqrt: Handle overflow for intermediate quotients by rounding
+	them down to fit.
+
+	* mpz_random2: Back to random(); rand() is so bad we get into cycles.
+
+	* mpz_perfsqr.c (PP): Define in hexadecimal to avoid GCC warnings.
+
+	* mpz_inp_str.c (char_ok_for_base): New function.
+	(mpz_inp_str): Use it.
+
+	* gmp.h: Add `const' to decl of mpz_probab_pripe_p.
+
+	* _mpz_set_str.c (char_type): Remove final `,'.
+	(ascii_to_num): Likewise.
+
+Sun Mar 28 21:54:06 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* mpz_inp_raw: Allocate x_index, not xsize limbs.
+
+Mon Mar 15 11:44:06 1993  Torbjorn Granlund  (tege@pde.nada.kth.se)
+
+	* mpz_pprime_p.c: Declare param `const'.
+	* gmp.h: Add declarations for mpz_com.
+
+Thu Feb 18 14:10:34 1993  Torbjorn Granlund  (tege@pde.nada.kth.se)
+
+	* mpq_add, mpq_sub: Call mpz_clear for t.
+
+Fri Feb 12 20:27:34 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* mpz_inp_str: Recog minus sign as first character.
+
+Wed Feb  3 01:36:02 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* mpz_random.c (urandom): New conditionally defined local function.
+	Use it instead of random().
+	* mpz_random2: Use rand() instead of random() here, since we don't
+	care how many bits we get.
+
+	* mpz_iset: Handle 0 size.
+
+Tue Feb  2 13:03:33 1993  Torbjorn Granlund  (tege@cyklop.nada.kth.se)
+
+	* _mpz_get_str: Adjust for negative msize when returning str.
+
+	* mpz_mod_ui: Initialize dividend_size before it's used.
+
+Mon Jan  4 09:11:15 1993  Torbjorn Granlund  (tege@sics.se)
+
+	* itom: Declare param explicitly 'signed'.
+	* sdiv: Likewise.
+
+	* mpq_cmp: Remove unused variable tmp_size.
+	* mpz_powm_ui: Fix typo in esize==0 if stmt.
+	* mpz_powm: Likewise.
+
+Sun Nov 29 01:16:11 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_dm_1.c (mpn_divmod_1): Handle
+	divisor_limb == 1 << (BITS_PER_MP_LIMB - 1)
+	specifically.
+
+Sat Nov 28 17:19:40 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_div: Remove free_me and free_me_size and their usage.
+
+Wed Oct 28 17:40:04 1992  Torbjorn Granlund  (tege@jupiter.sics.se)
+
+	* longlong.h (__hppa umul_ppmm): Fix typos.
+	(__hppa sub_ddmmss): Swap input arguments.
+
+	* mpz_perfsqr.c (mpz_perfect_square_p): Avoid , before } in
+	initializator.
+
+Sun Oct 25 20:30:06 1992  Torbjorn Granlund  (tege@jupiter.sics.se)
+
+	* mpz_pprime_p.c (mpz_probab_prime_p): Handle numbers <= 3
+	specifically (used to consider all negative numbers prime).
+
+	* mpz_powm_ui: `carry_digit' => `carry_limb'.
+
+	* sdiv: Handle zero dividend specifically.  Replace most code in
+	this function with a call to mpn_divmod_1.
+
+	* mpn_add: Return type is mp_limb.
+
+	* _mpz_get_str: Assign and use MSIZE smarter, to avoid using
+	m->size.
+	* _mpz_get_str: Allocate extra STR space if (MSIZE < 0) for minus
+	sign.
+	* _mpz_get_str: Move string backwards smarter, avoid copying when
+	not needed.
+
+	* gmp.h (mpn_lshift, mpn_rshift, mpn_rshiftci): Remove `long' from
+	4:th arg.
+	* Makefile.in (MP_OBJS) : Include mpz_sizeinb.o.
+
+Fri Sep 11 22:15:55 1992  Torbjorn Granlund  (tege@tarrega.sics.se)
+
+	* mpq_clear: Don't free the MP_RAT!
+
+	* mpn_lshift, mpn_rshift, mpn_rshiftci: Remove `long' from 4:th arg.
+
+Thu Sep  3 01:47:07 1992  Torbjorn Granlund  (tege@jupiter.sics.se)
+
+	* mpn_mul: Rewrite code jumping between `carry case' and `noncarry
+	case' to avoid jumping.  Special case for V_LIMB being 0 ot 1.
+	* All files: Remove leading _ from mpn function names.
+
+Wed Sep  2 22:21:16 1992  Torbjorn Granlund  (tege@jupiter.sics.se)
+
+	Fix from Jan-Hein Buhrman:
+	* mpz_mdiv.c, mpz_mmod.c, mpz_mdm.c: Make them work as documented.
+
+	* mpz_mmod.c, mpz_mdm.c: Move decl of TEMP_DIVISOR to reflect its
+	life.
+
+Sun Aug 30 18:37:15 1992  Torbjorn Granlund  (tege@jupiter.sics.se)
+
+	* _mpz_get_str: Use mpz_sizeinbase for computing out_len.
+	* _mpz_get_str: Don't remove leading zeros.  Abort if there are some.
+
+Tue Feb 18 14:38:39 1992  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	longlong.h (hppa umul_ppmm): Add missing semicolon.  Declare type
+	of __w1 and __w0.
+
+Fri Feb 14 21:33:21 1992  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* longlong.h: Make default count_leading_zeros work for machines >
+	32 bits.  Prepend `__' before local variables to avoid conflicts
+	with users' variables.
+
+Thu Feb  6 15:10:42 1992  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpn_dm_1.c (_mpn_divmod_1): Add code for avoiding division by
+	pre-inverting divisor.
+
+Sun Feb  2 11:10:25 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Make __LLDEBUG__ work differently.
+	(_IBMR2): Reinsert old code.
+
+Sat Feb  1 16:43:00 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h (#ifdef _IBMR2): Replace udiv_qrnnd with new code
+	using floating point operations.  Don't define
+	UDIV_NEEDS_NORMALIZATION any longer.
+
+Fri Jan 31 15:09:13 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Define UMUL_TIME and UDIV_TIME for most machines.
+	* longlong.h (#ifdef __hppa): Define umul_ppmm.
+
+Wed Jan 29 16:41:36 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_cmp: Only one length parameter, assume operand lengths are
+	the same.  Don't require normalization.
+	* mpq_cmp, mpz_add, mpz_sub, mpz_gcd, mpn_mul, mpn_sqrt: Change for
+	new mpn_cmp definition.
+
+Tue Jan 28 11:18:55 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* _mpz_get_str: Fix typo in comment.
+
+Mon Jan 27 09:44:16 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* Makefile.in: Add new files.
+
+	* mpn_dm_1.c: New file with function _mpn_divmod_1.
+	* mpz_dm_ui.c (mpz_divmod_ui): Use _mpn_divmod_1.
+	* mpz_div_ui: Likewise.
+
+	* mpn_mod_1.c: New file with function _mpn_mod_1.
+	* mpz_mod_ui: Use _mpn_mod_1.
+
+Thu Jan 23 18:54:09 1992  Torbjorn Granlund  (tege@sics.se)
+
+	Bug found by Paul Zimmermann (zimmermann@inria.inria.fr):
+	* mpz_div_ui.c (mpz_div_ui), mpz_dm_ui.c (mpz_divmod_ui):
+	Handle dividend == 0.
+
+Wed Jan 22 12:02:26 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_pprime_p.c: Use "" for #include.
+
+Sun Jan 19 13:36:55 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_rshiftci.c (header): Correct comment.
+
+Wed Jan 15 18:56:04 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_powm, mpz_powm_ui (if (bsize > msize)): Do alloca (bsize + 1)
+	to make space for ignored quotient at the end.  (The quotient might
+	always be an extra limb.)
+
+Tue Jan 14 21:28:48 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_powm_ui: Fix comment.
+	* mpz_powm: Likewise.
+
+Mon Jan 13 18:16:25 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* tests/Makefile.in: Prepend $(TEST_PREFIX) to Makefile target.
+
+Sun Jan 12 13:54:28 1992  Torbjorn Granlund  (tege@sics.se)
+
+	Fixes from Kazumaro Aoki:
+	* mpz_out_raw: Take abs of size to handle negative values.
+	* mpz_inp_raw: Reallocate before reading ptr from X.
+	* mpz_inp_raw: Store, don't read, size to x->size.
+
+Tue Jan  7 17:50:25 1992  Torbjorn Granlund  (tege@sics.se)
+
+	* gmp.h, mp.h: Remove parameter names from prototypes.
+
+Sun Dec 15 00:09:36 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* tests/Makefile.in: Prepend "./" to file names when executing
+	tests.
+
+	* Makefile.in: Fix many problems.
+
+Sat Dec 14 01:00:02 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_sqrt.c: New file with _mpn_sqrt.
+	* mpz_sqrt, mpz_sqrtrem, mpz_perfect_square_p: Use _mpn_sqrt.
+	* msqrt.c: Delete.  Create from mpz_sqrtrem.c in Makefile.in.
+	* mpz_do_sqrt.c: Delete.
+	* Makefile.in: Update to reflect these changes.
+
+	* Makefile.in, configure, configure.subr: New files
+	(from bothner@cygnus.com).
+	* dist-Makefile: Delete.
+
+	* mpz_fac_ui: Fix comment.
+
+	* mpz_random2: Rewrite to make it possible for the most	significant
+	limb to be == 1.
+
+	* mpz_pprime_p.c (mpz_probab_prime_p): Remove \t\n.
+
+Fri Dec 13 23:10:02 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_do_sqrt: Simplify special case for U == 0.
+	* m*sqrt*.c, mpz_perfsqr.c (mpz_perfect_square_p):
+	  Rename _mpz_impl_sqrt to _mpz_do_sqrt.
+
+Fri Dec 13 12:52:28 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* gmp-impl.h (MPZ_TMP_INIT): Cast to the right type.
+
+Thu Dec 12 22:17:29 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_add, mpn_sub, mpn_mul, mpn_div: Change type of several
+	variables to mp_size.
+
+Wed Dec 11 22:00:34 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_rshift.c: Fix header comments.
+
+Mon Dec  9 17:46:10 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.2.
+
+	* gmp-impl.h (MPZ_TMP_INIT): Cast alloca return value.
+
+	* dist-Makefile: Add missing dependency for cre-mparam.
+
+	* mpz_mdiv.c, mpz_mmod.c, mpz_mdm.c, mpz_mdiv_ui.c,
+	  mpz_mmod_ui.c, mpz_mdm_ui.c: Remove obsolete comment.
+
+	* dist-Makefile (clean): clean in tests subdir too.
+	* tests/Makefile: Define default values for ROOT and SUB.
+
+	* longlong.h (__a29k__ udiv_qrnnd): Change "q" to "1" for operand
+	2 constraint.
+
+Mon Nov 11 00:06:05 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_sizeinb.c (mpz_sizeinbase): Special code for size == 0.
+
+Sat Nov  9 23:47:38 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.1.94.
+
+	* dist-Makefile, Makefile, tests/Makefile: Merge tests into
+	distribution.
+
+Fri Nov  8 22:57:19 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* gmp.h: Don't use keyword `signed' for non-ANSI compilers.
+
+Thu Nov  7 22:06:46 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Cosmetic changes to keep it identical to gcc2 version
+	of longlong.h.
+	* longlong.h (__ibm032__): Fix operand order for add_ssaaaa and
+	sub_ddmmss.
+
+Mon Nov  4 00:36:46 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_mul: Fix indentation.
+
+	* mpz_do_sqrt: Don't assume 32 bit limbs (had constant
+	4294967296.0).
+	* mpz_do_sqrt: Handle overflow in conversion from double returned
+	by SQRT to mp_limb.
+
+	* gmp.h: Add missing function definitions.
+
+Sun Nov  3 18:25:25 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_pow_ui: Change type of `i' to int.
+
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+	* ChangeLog: Add change log entry.
+Stack overflow.
+
+	* mpz_pow_ui.c: Fix typo in comment.
+
+	* dist-Makefile: Create rpow.c from mpz_powm_ui.c.
+	* mpz_powm_ui.c: Add code for rpow.
+	* rpow.c: Delete this file.  The rpow function is now implemented
+	in mpz_powm_ui.c.
+
+	* mpz_fac_ui.c: New file.
+	* gmp.h, dist-Makefile: Add stuff for mpz_fac_ui.
+
+	Bug found by John Amanatides (amana@sasquatch.cs.yorku.ca):
+	* mpz_powm_ui, mpz_powm: Call _mpn_mul in the right way, with
+	the first argument not smaller than the second.
+
+Tue Oct 29 13:56:55 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* cre-conv-tab.c (main), cre-mparam.c (main): Fix typo in output
+	header text.
+
+Mon Oct 28 00:35:29 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_random2: Handle size == 0.
+
+	* gmp-impl.h (struct __mp_bases): Rename chars_per_limb_exactly to
+	chars_per_bit_exactly, and change its definition.
+	* cre-conv-tab.c (main): Output field according to its new
+	definition.
+	* mpz_out_str, _mpz_get_str, mpz_sizeinb, mout:
+	Use chars_per_bit_exactly.
+
+	* mpz_random2: Change the loop termination condition in order to
+	get a large most significant limb with higher probability.
+
+	* gmp.h: Add declaration of new mpz_random2 and mpz_get_si.
+	* mpz_get_si.c: New file.
+	* dist-Makefile: Add mpz_random2 and mpz_get_si.
+
+	* mpz_sizeinb.c (mpz_sizeinbase): Special code for base being a
+	power of 2, giving exact result.
+
+	* mpn_mul: Fix MPN_MUL_VERIFY in various ways.
+	* mpn_mul: New macro KARATSUBA_THRESHOLD.
+	* mpn_mul (karatsuba's algorithm): Don't write intermediate results
+	to prodp, use temporary pp instead.  (Intermediate results can be
+	larger than the final result, possibly writing into hyperspace.)
+	* mpn_mul: Make smarter choice between Karatsuba's algorithm and the
+	shortcut algorithm.
+	* mpn_mul: Fix typo, cy instead of xcy.  Unify carry handling code.
+
+Sun Oct 27 19:57:32 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpn_mul: In non-classical case, choose Karatsuba's algorithm only
+	when usize > 1.5 vsize.
+
+	* mpn_mul: Break between classical and Karatsuba's algorithm at
+	KARATSUBA_THRESHOLD, if defined.  Default to 8.
+
+	* mpn_div: Kludge to fix stray memory read.
+
+Sat Oct 26 20:06:14 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_gcdext: Handle a = b = 0.  Remove memory leakage by calling
+	mpz_clear for all temporary variables.
+
+	* mpz_gcd: Reduce w_bcnt in _mpn_lshift call to hold that
+	function's argument constraints.  Compute wsize correctly.
+
+	* mpz_gcd: Fix typo in comment.
+
+	* memory.c (_mp_default_allocate, _mp_default_reallocate): Call
+	abort if allocation fails, don't just exit.
+
+Fri Oct 25 22:17:20 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_random2.c: New file.
+
+Thu Oct 17 18:06:42 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Bugs found by Pierre-Joseph Gailly (pjg@sunbim.be):
+	* mpq_cmp: Take sign into account, don't just compare the
+	magnitudes.
+	* mpq_cmp: Call _mpn_mul in the right way, with the first argument
+	not smaller than the second.
+
+Wed Oct 16 19:27:32 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_random: Ensure the result is normalized.
+
+Tue Oct 15 14:55:13 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_clrbit: Support non-ANSI compilers.
+
+Wed Oct  9 18:03:28 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h (68k add_ssaaaa, sub_ddmmss): Generalize constraints.
+
+Tue Oct  8 17:42:59 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_mdm_ui: Add comments.
+
+	* mpz_mdiv: Use MPZ_TMP_INIT instead of mpz_init.
+	* mpz_init_ui: Change spacing and header comment.
+
+Thu Oct  3 18:36:13 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* dist-Makefile: Prepend `./' before some filenames.
+
+Sun Sep 29 14:02:11 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.1 (public).
+
+	* mpz_com: New name of mpz_not.
+	* dist-Makefile: Change mpz_not to mpz_com.
+
+Tue Sep 24 12:44:11 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Fix header comment.
+
+Mon Sep  9 15:16:24 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.0.92.
+
+	* mpn_mul.c (_mpn_mul): Handle leading zero limbs in non-Karatsuba
+	case.
+
+	* longlong.h (m68000 umul_ppmm): Clobber one register less by
+	slightly rearranging the code.
+
+Sun Sep  1 18:53:25 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* dist-Makefile (stamp-stddefh): Fix typo.
+
+Sat Aug 31 20:41:31 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.0.91.
+
+	* mpz_mdiv.c, mpz_mmod.c, mpz_mdm.c, mpz_mdiv_ui.c,
+	  mpz_mmod_ui.c, mpz_mdm_ui.c: New files and functions.
+	* gmp.h, gmp.texi: Define the new functions.
+
+Fri Aug 30 08:32:56 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_gcdext: Compute t argument from the other quantities at the
+	  end, of the function, not in the loop.  New feature: Allow t to be
+	  NULL.
+
+	* mpz_add.c, mpz_sub.c, mpz_mul.c, mpz_powm.c, mpz_gcd.c: Don't
+	  include "mp.h".  Use type name `MP_INT' always.
+
+	* dist-Makefile, mpz_cmp.c: Merge mcmp.c from mpz_cmp.c.
+
+Wed Aug 28 00:45:11 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* dist-Makefile (documentation): Go via tmp.texi to avoid the
+	  creation of gmp.dvi if any errors occur.  Make tex read input
+	  from /dev/null.
+
+Fri Aug 23 15:58:52 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h (68020, i386): Don't define machine-dependent
+	  __umulsidi3 (so the default definition is used).
+	* longlong.h (all machines): Cast all operands, sources and
+	  destinations, to `unsigned long int'.
+	* longlong.h: Add gmicro support.
+
+Thu Aug 22 00:28:29 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Rename BITS_PER_LONG to LONG_TYPE_SIZE.
+	* longlong.h (__ibm032__): Define count_leading_zeros and umul_ppmm.
+	* longlong.h: Define UMUL_TIME and UDIV_TIME for some CPUs.
+	* _mpz_get_str.c: Add code to do division by big_base using only
+	  umul_qrnnd, if that is faster.  Use UMUL_TIME and UDIV_TIME to
+	  decide which variant to use.
+
+Wed Aug 21 15:45:23 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h (__sparc__ umul_ppmm): Move two insn from end to the
+	  nops.  (Saves two insn.)
+
+	* longlong.h (__sparc__ umul_ppmm): Rewrite in order to avoid
+	  branch, and to permit input/output register overlap.
+
+	* longlong.h (__29k__): Remove duplicated udiv_qrnnd definition.
+	* longlong.h (__29k__ umul_ppmm): Split asm instructions into two
+	  asm statements (gives better code if either the upper or lower
+	  part of the product is unused.
+
+Tue Aug 20 17:57:59 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* _mpz_get_str.c (outside of functions): Remove
+	  num_to_ascii_lower_case and num_to_ascii_upper_case.  Use string
+	  constants in the function instead.
+
+Mon Aug 19 00:37:42 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* cre-conv-tab.c (main): Output table in hex.  Output 4 fields, not
+	  3, for components 0 and 1.
+
+	* gmp.h: Add declaration of mpq_neg.
+
+	Released 1.0beta.13.
+
+	* _mpz_set_str.c (mpz_set_str): Cast EOF and SPC to char before
+	  comparing to enum literals SPC and EOF.  This makes the code work
+	  for compilers where `char' is unsigned.  (Bug found by Brian
+	  Beuning).
+
+	Released 1.0beta.12.
+
+	* mpz_mod_ui: Remove references to quot.  Remove quot_ptr, quot_size
+	  declarations and assignment code.
+
+Sun Aug 18 14:44:26 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_mod_ui: Handle dividend < 0.
+
+	Released 1.0beta.11.
+
+	* mpz_dm_ui, mpz_div_ui, mpz_mod_ui, sdiv: Make them share the same
+	  general structure, variable names, etc.
+
+	* sdiv: Un-normalize the remainder in n1 before it is negated.
+
+	* longlong.h: Mention UDIV_NEEDS_NORMALIZATION in description of
+	  udiv_qrnnd.
+
+	* mpz_dm_ui.c (mpz_divmod_ui), mpz_div_ui.c (mpz_div_ui): Increment
+	  the quotient size if the dividend size is incremented.  (Bug found
+	  by Brian Beuning.)
+
+	* mpz_mod_ui: Shift back the remainder, if UDIV_NEEDS_NORMALIZATION.
+	  (Bug found by Brian Beuning.)
+
+	* mpz_mod_ui: Replace "digit" by "limb".
+
+	* mpz_perfsqr.c (mpz_perfect_square_p): Disable second test case
+	  for non-32-bit machines (PP is hardwired for such machines).
+	* mpz_perfsqr.c (outside of functions): Define PP value with an L.
+
+	* mpn_mul.c (_mpn_mul): Add verification code that is activated if
+	  DEBUG is defined.  Replace "digit" by "limb".
+	* mpn_mul.c (_mpn_mul: Karatsuba's algorithm: 4.): Normalize temp
+	  after the addition.
+	* mpn_mul.c (_mpn_mul: Karatsuba's algorithm: 1.): Compare u0_size
+	  and v0_size, and according to the result, swap arguments in
+	  recursive call.  (Don't violate mpn_mul's own argument
+	  constraints.)
+
+Fri Aug 16 13:47:12 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.0beta.10.
+
+	* longlong.h (IBMR2): Add udiv_qrnnd.
+
+	* mpz_perfsqr: Remove unused variables.
+
+	* mpz_and (case for different signs): Initialize loop variable i!
+
+	* dist-Makefile: Update automatically generated dependencies.
+	* dist-Makefile (madd.c, msub.c, pow.c, mult.c, gcd.c): Add mp.h,
+	  etc to dependency file lists.
+
+	* longlong.h (add_ssaaaa, sub_ddmmss [C default versions]): Make __x
+	  `unsigned long int'.
+	* longlong.h: Add `int' after `unsigned' and `long' everywhere.
+
+Wed Aug 14 18:06:48 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Add ARM, i860 support.
+
+	* mpn_lshift, mpn_rshift, mpn_rshiftci: Rename *_word with *_limb.
+
+Tue Aug 13 21:57:43 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* _mpz_get_str.c, _mpz_set_str.c, mpz_sizeinb.c (mpz_sizeinbase),
+	  mpz_out_str.c, mout.c: Remove declaration of __mp_bases.
+	* gmp-impl.h: Put it here, and make it `const'.
+	* cre-conv-tab.c (main): Make struct __mp_bases `const'.
+
+Mon Aug 12 17:11:46 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* cre-conv-tab.c (main): Use %lu in printf for long ints.
+
+	* dist-Makefile: Fix cre-* dependencies.
+
+	* cre-conv-tab.c (main): Output field big_base_inverted.
+
+	* gmp-impl.h (struct bases): New field big_base_inverted.
+	* gmp-impl.h (struct bases): Change type of chars_per_limb_exactly
+	  to float (in order to keep the structure smaller).
+
+	* mp.h, gmp.h: Change names of macros for avoiding multiple
+	  includes.
+
+Fri Aug  9 18:01:36 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* _mpz_get_str: Only shift limb array if normalization_steps != 0
+	  (optimization).
+
+	* longlong.h (sparc umul_ppmm): Use __asm__, not asm.
+	* longlong.h (IBMR2 umul_ppmm): Refer to __m0 and __m1, not to m0
+	  and m1 (overlap between output and input operands did not work).
+	* longlong.h: Add VAX, ROMP and HP-PA support.
+	* longlong.h: Sort the machine dependent code in alphabetical order
+	  on the CPU name.
+	* longlong.h: Hack comments.
+
+Thu Aug  8 14:13:36 1991  Torbjorn Granlund  (tege@sics.se)
+
+	Released 1.0beta.9.
+
+	* longlong.h: Define BITS_PER_LONG to 32 if it's not already
+	  defined.
+	* Define __BITS4 to BITS_PER_LONG / 4.
+	* Don't assume 32 bit word size in "count_leading_zeros" C macro.
+	  Use __BITS4 and BITS_PER_LONG instead.
+
+	* longlong.h: Don't #undef internal macros (reverse change of Aug 3).
+
+	* longlong.h (68k): Define add_ssaaaa sub_ddmmss, and umul_ppmm
+	  even for plain mc68000.
+
+	* mpq_div: Flip the sign of the numerator *and* denominator of the
+	  result if the intermediate denominator is negative.
+
+	* mpz_and.c, mpz_ior.c: Use MPN_COPY for all copying operations.
+
+	* mpz_and.c: Compute the result size more conservatively.
+	* mpz_ior.c: Likewise.
+
+	* mpz_realloc: Never allocate zero space even if NEW_SIZE == 0.
+
+	* dist-Makefile: Remove madd.c, msub.c, pow.c, mult.c, gcd.c from
+	  BSDMP_SRCS.
+
+	* dist-Makefile: Create mult.c from mpz_mul.c.
+	* mult.c: Delete this file.
+
+	* _mpz_set_str: Normalize the result (for bases 2, 4, 8... it was
+	  not done properly if the input string had many leading zeros).
+
+Sun Aug  4 16:54:14 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* dist-Makefile (gcd.c, pow.c, madd.c, msub.c): Make these targets
+	  work with VPATH and GNU MP.
+
+	* mpz_gcd: Don't call mpz_set; inline its functionality.
+
+	* mpq_mul, mpq_div: Fix several serious typos.
+
+	* mpz_dmincl, mpz_div: Don't normalize the quotient if it's already
+	  zero.
+
+	* mpq_neg.c: New file.
+
+	* dist-Makefile: Remove obsolete dependencies.
+
+	* mpz_sub: Fix typo.
+
+	Bugs found by Pierre-Joseph Gailly (pjg@sunbim.be):
+	* mpq_mul, mpq_div: Initialize tmp[12] variables even when the gcd
+	  is just 1.
+	* mpz_gcd: Handle gcd(0,v) and gcd(u,0) in special cases.
+
+Sat Aug  3 23:45:28 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* longlong.h: Clean up comments.
+	* longlong.h: #undef internal macros.
+
+Fri Aug  2 18:29:11 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpq_set_si, mpq_set_ui: Canonicalize 0/x to 0/1.
+	* mpq_set_si, mpq_set_ui: Cosmetic formatting changes.
+
+	* mpz_dmincl.c: Normalize the remainder before shifting it back.
+
+	* mpz_dm_ui.c (mpz_divmod_ui): Handle rem == dividend.
+
+	* mpn_div.c: Fix comment.
+
+	* mpz_add.c, mpz_sub.c: Use __MP_INT (not MP_INT) for intermediate
+	  type, in order to work for both GNU and Berkeley functions.
+
+	* dist-Makefile: Create gcd.c from mpz_gcd.c, pow.c from mpz_powm,
+	  madd.c from mpz_add.c, msub.c from mpz_sub.c.
+	  respectively.
+	* pow.c, gcd.c, mpz_powmincl.c, madd.c, msub.c: Remove these.
+	* mpz_powm.c, mpz_gcd.c, mpz_add.c, mpz_sub.c: #ifdef for GNU and
+	  Berkeley function name variants.
+	* dist-Makefile: Add created files to "clean" target.
+
+Tue Jul 16 15:19:46 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpq_get_den: No need for absolute value of the size, the
+	  denominator is always positive.
+
+	* mpz_get_ui: If the operand is zero, return zero.  Don't read the
+	  limb array!
+
+	* mpz_dmincl.c: Don't ignore the return value from _mpn_rshift, it
+	  is the size of the remainder.
+
+Mon Jul 15 11:08:05 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* Several files: Remove unused variables and functions.
+
+	* gmp-impl.h: Declare _mpz_impl_sqrt.
+
+	* mpz_dm_ui (mpz_divmod_ui), sdiv: Shift back the remainder if
+	  UDIV_NEEDS_NORMALIZATION.  (Fix from Brian Beuning.)
+
+	* mpz_dm_ui.c, sdiv: Replace *digit with *limb.
+
+	* mpz_ior: Add missing else statement in -OP1 | -OP2 case.	
+	* mpz_ior: Add missing else statement in OP1 | -OP2 case.	
+	* mpz_ior: Swap also OP1 and OP2 pointers in -OP1 & OP2 case.
+	* mpz_ior: Duplicate _mpz_realloc code.
+
+	* mpz_and: Add missing else statement in -OP1 & -OP2 case.
+	* mpz_and: Rewrite OP1 & -OP2 case.
+	* mpz_and: Swap also OP1 and OP2 pointers in -OP1 & OP2 case.
+
+	* mpz_gcdext: Loop in d1.size (not b->size).  (Fix from Brian
+	  Beuning.)
+
+	* mpz_perfsqr: Fix argument order in _mpz_impl_sqrt call.  (Fix from
+	  Brian Beuning.)
+
+Fri Jul 12 17:10:33 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpq_set.c, mpq_set_ui.c, mpq_set_si.c, mpq_inv.c,
+	  mpq_get_num.c, mpq_get_den.c, mpq_set_num.c, mpq_set_den.c:
+	  New files.
+
+	* mpz_dmincl.c: Remove second re-allocation of rem->d.  It
+	  was never executed.
+
+	* dist-Makefile: Use `-r' instead of `-x' for test for ranlib (as
+	  some unixes' test doesn't have the -r option).
+
+	* *.*: Cast allocated pointers to the appropriate type (makes old C
+	  compilers happier).
+
+	* cre-conv-tab.c (main): Divide max_uli by 2 and multiply again
+	  after conversion to double.  (Kludge for broken C compilers.)
+
+	* dist-Makefile (stamp-stddefh): New target.  Test if "stddef.h"
+	  exists in the system and creates a minimal one if it does not
+	  exist.
+	* cre-stddefh.c: New file.
+	* dist-Makefile: Make libgmp.a and libmp.a depend on stamp-stddefh.
+	* dist-Makefile (clean): Add some more.
+	* gmp.h, mp.h: Unconditionally include "stddef.h".
+
+Thu Jul 11 10:08:21 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* min: Do ungetc of last read character.
+	* min.c: include stdio.h.
+
+	* dist-Makefile: Go via tmp- files for cre* redirection.
+	* dist-Makefile: Add tmp* to "clean" target.
+
+	* dist-Makefile: Use LOCAL_CC for cre*, to simplyfy cross
+	  compilation.
+
+	* gmp.h, mp.h: Don't define NULL here.
+	* gmp-impl.h: Define it here.
+
+Wed Jul 10 14:13:33 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_mod_2exp: Don't copy too much, overwriting most significant
+	  limb.
+
+	* mpz_and, mpz_ior: Don't read op[12]_ptr from op[12] when
+	  reallocating res, if op[12]_ptr got their value from alloca.
+
+	* mpz_and, mpz_ior: Clear up comments.
+
+	* cre-mparam.c: Output parameters for `short int' and `int'.
+
+	* mpz_and, mpz_ior: Negate negative op[12]_size in several places.
+
+Tue Jul  9 18:40:30 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* gmp.h, mp.h: Test for _SIZE_T defined before typedef'ing size_t.
+	  (Fix for Sun lossage.)
+
+	* gmp.h: Add declaration of mpq_clear.
+
+	* dist-Makefile: Chack if "ranlib" exists, before using it.
+	* dist-Makefile: Add mpz_sqrtrem.c and mpz_size.c.
+	* mpz_powm: Fix typo, "pow" instead of "mpz_powm".
+
+Fri Jul  5 19:08:09 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* move: Remove incorrect comment.
+
+	* mpz_free, mpq_free: Rename to *_clear.
+	* dist-Makefile: Likewise.
+	* mpq_add, mpq_sub, mpq_mul, mpq_div: Likewise.
+
+	* mpz_dmincl.c: Don't call "move", inline its functionality.
+
+Thu Jul  4 00:06:39 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* Makefile: Include dist-Makefile.  Fix dist target to include
+	  dist-Makefile (with the name "Makefile" in the archive).
+
+	* dist-Makefile: New file made from Makefile.  Add new mpz_...
+	  functions.
+
+	* mpz_powincl.c New file for mpz_powm (Berkeley MP pow)
+	  functionality.  Avoids code duplication.
+	* pow.c, mpz_powm.c: Include mpz_powincl.c
+
+	* mpz_dmincl.c: New file containing general division code.  Avoids
+	  code duplication.
+	* mpz_dm.c (mpz_divmod), mpz_mod.c (mpz_mod), mdiv.c (mdiv): Include
+	  mpz_dmincl.c.
+
+	* _mpz_get_str: Don't call memmove, unless HAS_MEMMOVE is defined.
+	  Instead, write the overlapping memory copying inline.
+
+	* mpz_dm_ui.c: New name for mpz_divmod_ui.c (SysV file name limit).
+
+	* longlong.h: Don't use #elif.
+	* mpz_do_sqrt.c: Likewise.
+
+	* longlong.h: Use __asm__ instead of asm.
+	* longlong.h (sparc udiv_qrnnd): Make it to one string over several
+	  lines.
+
+	* longlong.h: Preend __ll_ to B, highpart, and lowpart.
+
+	* longlong.h: Move array t in count_leading_zeros to the new file
+	  mp_clz_tab.c.  Rename the array __clz_tab.
+    	* All files: #ifdef for traditional C compatibillity.
+
+Wed Jul  3 11:42:14 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* mpz_and: Initialize res_ptr always (used to be initialized only
+	  when reallocating).
+
+	* longlong.h (umul_ppmm [C variant]): Make __ul...__vh
+	  `unsigned int', and cast the multiplications.  This way
+	  compilers more easily can choose cheaper multiplication
+	  instructions.
+
+	* mpz_mod_2exp: Handle input argument < modulo argument.
+	* mpz_many: Make sure mp_size is the type for sizes, not int.
+
+	* mpz_init, mpz_init_set*, mpq_init, mpq_add, mpq_sub, mpq_mul,
+	  mpq_div: Change mpz_init* interface.  Structure pointer as first
+	  arg to initialization function, no longer *return* struct.
+
+Sun Jun 30 19:21:44 1991  Torbjorn Granlund  (tege@sics.se)
+
+	* Rename mpz_impl_sqrt.c to mpz_do_sqrt.c to satisfy SysV 14
+	  character file name length limit.
+
+	* Most files: Rename MINT to MP_INT.  Rename MRAT to MP_RAT.
+	* mpz_sizeinb.c: New file with function mpz_sizeinbase.
+	* mp_bases.c: New file, with array __mp_bases.
+	* _mpz_get_str, _mpz_set_str: Remove struct bases, use extern
+	  __mp_bases instead.
+	* mout, mpz_out_str: Use array __mp_bases instead of function
+	  _mpz_get_cvtlen.
+	* mpz_get_cvtlen.c: Remove.
+	* Makefile: Update.
+
+Sat Jun 29 21:57:28 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* longlong.h (__sparc8__ umul_ppmm): Insert 3 nop:s for wr delay.
+	* longlong.h (___IBMR2__): Define umul_ppmm, add_ssaaaa, sub_ddmmss.
+	* longlong.h (__sparc__): Don't call .umul; expand asm instead.
+	  Don't define __umulsidi3 (i.e. use default definition).
+
+Mon Jun 24 17:37:23 1991  Torbjorn Granlund  (tege@amon.sics.se)
+
+	* _mpz_get_str.c (num_to_ascii_lower_case, num_to_ascii_upper_case):
+	  Swap 't' and 's'.
+
+Sat Jun 22 13:54:01 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpz_gcdext.c: New file.
+
+	* mpn_mul: Handle carry and unexpected operand sizes in last
+	  additions/subtractions.  (Bug trigged when v1_size == 1.)
+
+	* mp*_alloc*: Rename functions to mp*_init* (files to mp*_iset*.c).
+	* mpq_*: Call mpz_init*.
+
+	* mpz_pow_ui, rpow: Use _mpn_mul instead of mult.  Restructure.
+
+Wed May 29 20:32:33 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpz_get_cvtlen: multiply by size.
+
+Sun May 26 15:01:15 1991  Torbjorn Granlund  (tege@bella.nada.kth.se)
+
+	Alpha-release 0.95.
+
+	Fixes from Doug Lea (dl@g.oswego.edu):
+	* mpz_mul_ui: Loop to MULT_SIZE (not PROD_SIZE).  Adjust PROD_SIZE
+	  correctly.
+	* mpz_div: Prepend _ to mpz_realloc.
+	* mpz_set_xs, mpz_set_ds: Fix typos in function name.
+
+Sat May 25 22:51:16 1991  Torbjorn Granlund  (tege@bella.nada.kth.se)
+
+	* mpz_divmod_ui: New function.
+
+	* sdiv: Make the sign of the remainder correct.
+
+Thu May 23 15:28:24 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* Alpha-release 0.94.
+
+	* mpz_mul_ui: Include longlong.h.
+
+	* mpz_perfsqr.c (mpz_perfect_square_p): Call _mpz_impl_sqrt instead
+	  of msqrt.
+
+	* mpz_impl_sqrt: Don't call "move", inline its functionality.
+
+	* mdiv: Use MPN_COPY instead of memcpy.
+	* rpow, mpz_mul, mpz_mod_2exp: Likewise.
+	* pow.c: Likewise, and fix bug in the size arg.
+
+	* xtom: Don't use mpz_alloc, inline needed code instead.  Call
+	  _mpz_set_str instead of mpz_set_str.
+
+	* Makefile: Make two libraries, libmp.a and libgmp.a.
+
+Thu May 22 20:25:29 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* Add manual to distribution.
+	* Fold in many missing routines descibed in the manual.
+	* Update Makefile.
+
+Wed May 22 13:48:46 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpz_set_str: Make it handle 0x prefix OK.
+
+Sat May 18 18:31:02 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* memory.c (_mp_default_reallocate): Swap OLD_SIZE and NEW_SIZE
+	  arguments.
+	* mpz_realloc (_mpz_realloc): Swap in call to _mp_reallocate_func.
+	* min: Likewise.
+
+Thu May 16 20:43:05 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* memory.c: Make the default allocations functions global.
+	* mp_set_fns (mp_set_memory_functions): Make a NULL pointer mean the
+	  default memory function.
+
+Wed May  8 20:02:42 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpz_div: Handle DEN the same as QUOT correctly by copying DEN->D
+	  even if no normalization is needed.
+	* mpz_div: Rework reallocation scheme, to avoid excess copying.
+
+	* mpz_sub_ui.c, mpz_add_ui.c: New files.
+
+	* mpz_cmp.c, mpz_cmp_ui.c: New files.
+
+	* mpz_mul_2exp: Handle zero input MINT correctly.
+
+	* mpn_rshiftci:  Don't handle shift counts > BITS_PER_MP_DIGIT.
+
+	* mpz_out_raw.c, mpz_inp_raw.c: New files for raw I/O.
+
+Tue May  7 15:44:58 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpn_rshift: Don't handle shift counts > BITS_PER_MP_DIGIT.
+	* mpz_div_2exp: Don't call _mpn_rshift with cnt > BITS_PER_MP_DIGIT.
+	* gcd, mpz_gcd: Likewise.
+
+	* gcd, mpz_gcd: Handle common 2 factors correctly.
+
+Mon May  6 20:22:59 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* gmp-impl.h (MPN_COPY): Inline a loop instead of calling memcpy.
+
+	* gmp-impl.h, mpz_get_str, rpow: Swap DST and SRC in TMPCOPY* macros.
+
+Sun May  5 15:16:23 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpz_div: Remove test for QUOT == 0.
+
+Sun Apr 28 20:21:04 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* pow: Don't make MOD normalization in place, as it's a bad idea to
+	  write on an input parameter.
+	* pow: Reduce BASE if it's > MOD.
+	* pow, mult, mpz_mul: Simplify realloc code.
+
+Sat Apr 27 21:03:11 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* Install multplication using Karatsuba's algorithm as default.
+
+Fri Apr 26 01:03:57 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* msqrt: Store in ROOT even for U==0, to make msqrt(0) defined.
+
+	* mpz_div_2exp.c, mpz_mul_2exp.c: New files for shifting right and
+	  left, respectively.
+	* gmp.h: Add definitions for mpz_div_2exp and mpz_mul_2exp.
+
+	* mlshift.c, mrshift.c: Remove.
+
+Wed Apr 24 21:39:22 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* mpn_mul: Check only for m2_size == 0 in function header.
+
+Mon Apr 22 01:31:57 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* karatsuba.c: New file for Karatsuba's multplication algorithm.
+
+	* mpz_random, mpz_init, mpz_mod_2exp: New files and functions.
+
+	* mpn_cmp: Fix header comment.
+
+Sun Apr 21 00:10:44 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* pow: Switch off initial base reduction.
+
+Sat Apr 20 22:06:05 1991  Torbjorn Granlund  (tege@echnaton.sics.se)
+
+	* mpz_get_str: Don't generate initial zeros for initial word.
+	  Used to write outside of allocated storage.
+
+Mon Apr 15 15:48:08 1991  Torbjorn Granlund  (tege@zevs.sics.se)
+
+	* _mpz_realloc: Make it accept size in number of mp_digits.
+	* Most functions: Use new _mpz_realloc definition.
+
+	* mpz_set_str: Remove calls _mp_free_func.
+
+	* Most functions: Rename mpn_* to _mpn_*.  Rename mpz_realloc to
+	  _mpz_realloc.
+	* mpn_lshift: Redefine _mpn_lshift to only handle small shifts.
+	* mdiv, mpz_div, ...: Changes for new definition of _mpn_lshift.
+	* msqrt, mp*_*shift*: Define cnt as unsigned (for speed).
+
+Sat Apr  6 14:05:16 1991  Torbjorn Granlund  (tege@musta.nada.kth.se)
+
+	* mpn_mul: Multiply by the first digit in M2 in a special
+	  loop instead of zeroing the product area.
+
+	* mpz_abs.c: New file.
+
+	* sdiv: Implement as mpz_div_si for speed.
+
+	* mpn_add: Make it work for second source operand == 0.
+
+	* msub: Negate the correct operand, i.e. V before swapping, not
+	  the smaller of U and V!
+	* madd, msub: Update abs_* when swapping operands, and not after
+	  (optimization).
+
+Fri Apr  5 00:19:36 1991  Torbjorn Granlund  (tege@black.nada.kth.se)
+
+	* mpn_sub: Make it work for subtrahend == 0.
+
+	* madd, msub: Rewrite to minimize mpn_cmp calls.  Ensure
+	  mpn_cmp is called with positive sizes (used to be called
+	  incorrectly with negative sizes sometimes).
+
+	* msqrt: Make it divide by zero if fed with a negative number.
+	* Remove if statement at end of precision calculation that was
+	  never true.
+
+	* itom, mp.h: The argument is of type short, not int.
+
+	* mpz_realloc, gmp.h: Make mpz_realloc return the new digit pointer.
+
+	* mpz_get_str.c, mpz_set_str.c, mpz_new_str.c: Don't include mp.h.
+
+	* Add COPYING to distribution.
+
+	* mpz_div_ui.c, mpz_div_si.c, mpz_new_ui.c, mpz_new_si.c: New files.
+
+Fri Mar 15 00:26:29 1991  Torbjorn Granlund  (tege@musta.nada.kth.se)
+
+	* Add Copyleft headers to all files.
+
+	* mpn_mul.c, mpn_div.c: Add header comments.
+	* mult.c, mdiv.c: Update header comments.
+
+	* mpq_add.c, mpq_sub.c, mpq_div.c, mpq_new.c, mpq_new_ui.c,
+	  mpq_free.c: New files for rational arithmetics.
+
+	* mpn_lshift.c: Avoid writing the most significant word if it is 0.
+
+	* mdiv.c: Call mpn_lshift for the normalization.
+	* mdiv.c: Remove #ifdefs.
+
+	* Makefile: Add ChangeLog to DISTFILES.
+
+	* mpn_div.c: Make the add_back code work (by removing abort()).
+	* mpn_div.c: Make it return if the quotient is size as compared
+	  with the difference NSIZE - DSIZE.  If the stored quotient is
+	  larger than that, return 1, otherwise 0.
+	* gmp.h: Fix mpn_div declaration.
+	* mdiv.c: Adopt call to mpn_div.
+	* mpz_div.c: New file (developed from mdiv.c).
+
+	* README: Update routine names.
+
+Thu Mar 14 18:45:28 1991  Torbjorn Granlund  (tege@musta.nada.kth.se)
+
+	* mpq_mul.c: New file for rational multplication.
+
+	* gmp.h: Add definitions for rational arithmetics.
+
+	* mpn_div: Kludge the case where the high numerator digit > the
+	  high denominator digit.  (This code is going to be optimized later.)
+
+	* New files: gmp.h for GNU specific functions, gmp-common.h for
+	  definitions common for mp.h and gmp.h.
+
+	* Ensure mp.h just defines what BSD mp.h defines.
+
+	* pow.c: Fix typo for bp allocation.
+
+	* Rename natural number functions to mpn_*, integer functions to
+	  mpz_*.
+
+Tue Mar  5 18:47:04 1991  Torbjorn Granlund  (tege@musta.nada.kth.se)
+
+	* mdiv.c (_mp_divide, case 2): Change test for estimate of Q from
+	  "n0 >= r" to "n0 > r".
+
+	* msqrt: Tune the increasing precision scheme, to do fewer steps.
+
+Tue Mar  3 18:50:10 1991  Torbjorn Granlund  (tege@musta.nada.kth.se)
+
+	* msqrt: Use the low level routines.  Use low precision in the
+	beginning, and increase the precision as the result converges.
+	(This optimization gave a 6-fold speedup.)
+
+Local Variables:
+mode: indented-text
+left-margin: 8
+fill-column: 75
+version-control: never
+End:
diff --git a/Mp/gmp-1.3.2/INSTALL b/Mp/gmp-1.3.2/INSTALL
new file mode 100644
index 0000000..a8927b1
--- /dev/null
+++ b/Mp/gmp-1.3.2/INSTALL
@@ -0,0 +1,34 @@
+Here is how to compile GNU MP.
+
+You probably want to use the GNU C compiler to build this library.
+With other compilers the speed of the library will be 3-10 times
+slower for many CPU:s.  The reason for this is that the GNU C compiler
+will use inline assembler for some important operations, while other C
+compilers will have to stick to plain C code.
+
+This is how to build the library:
+
+  Type "make" to build libgmp.a and libmp.a.  The former is the main
+  GNU MP library.  The latter is the Berkeley MP compatible library.
+
+  If you don't have GCC, type "make CC=cc".  The compilation should, at
+  least with GCC, proceed without any kind of warnings from the compiler
+  programs.  On the DEC Alpha, you have to use GCC because of bugs in DEC's
+  own compiler.  GCC 2.3.3 for x86, Alpha, and HP-PA has bugs that make
+  several functions be mis-optimized.  Later version of GCC does not have
+  this problem.
+
+  To build and run the tests, do "make check".
+
+The documentation is an a texinfo file, gmp.texi.
+
+To create the documentation from the texinfo source, type "make doc".
+This requires the "tex" and "makeinfo" commands to be available in
+your search path.  If you have only one of them, you can create the
+dvi file (for the paper manual) with "make gmp.dvi", and the info file
+(for the GNU online manual facility) with "make gmp.info".
+
+You need version 2.06 or later of texinfo in order to build the
+documentation.
+
+Please report problems to tege@gnu.ai.mit.edu.
diff --git a/Mp/gmp-1.3.2/Makefile b/Mp/gmp-1.3.2/Makefile
new file mode 100644
index 0000000..f639de3
--- /dev/null
+++ b/Mp/gmp-1.3.2/Makefile
@@ -0,0 +1,289 @@
+# Makefile for GNU MP (a.k.a. biGNUm)
+# Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+# This file is part of the GNU MP Library.
+
+# The GNU MP Library is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# The GNU MP Library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with the GNU MP Library; see the file COPYING.  If not, write to
+# the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+CC = gcc
+
+# If you cross compile on a machine with the same sizes of the integral
+# types ("int", "long int", "short int", and "char") define this as the
+# local compiler.  Otherwise, you need look for the uses of LOCAL_CC below,
+# and handle those cases manually.
+LOCAL_CC = $(CC)
+OPT = -O -g
+CFLAGS = -I. $(OPT)
+AR = ar
+RANLIB=`if [ -r /bin/ranlib -o -r /usr/bin/ranlib ]; \
+	then echo ranlib; else echo true; fi`
+SHELL = /bin/sh
+
+SRCS = $(MPZ_SRCS) $(MPQ_SRCS) $(BSDMP_SRCS) $(MPN_SRCS) $(IMPL_SRCS)
+OBJS = $(MPZ_OBJS) $(MPQ_OBJS) $(BSDMP_OBJS) $(MPN_OBJS) $(IMPL_OBJS)
+
+MP_OBJS = $(BSDMP_OBJS) $(MPN_OBJS) $(IMPL_OBJS) mp_bases.o mpz_sizeinb.o
+GMP_OBJS = $(MPZ_OBJS) $(MPQ_OBJS) $(MPN_OBJS) $(IMPL_OBJS) mp_bases.o
+
+IMPL_SRCS = memory.c mp_set_fns.c _mpz_set_str.c _mpz_get_str.c \
+  mpz_realloc.c mp_clz_tab.c alloca.c
+IMPL_OBJS = memory.o mp_set_fns.o _mpz_set_str.o _mpz_get_str.o \
+  mpz_realloc.o mp_clz_tab.o alloca.o
+
+MPZ_SRCS = mpz_init.c mpz_set.c mpz_set_ui.c mpz_set_si.c mpz_set_str.c \
+  mpz_iset.c mpz_iset_ui.c mpz_iset_si.c mpz_iset_str.c mpz_clear.c \
+  mpz_get_ui.c mpz_get_si.c mpz_get_str.c mpz_size.c mpz_sizeinb.c \
+  mpz_add.c mpz_add_ui.c mpz_sub.c mpz_sub_ui.c mpz_mul.c mpz_mul_ui.c \
+  mpz_div.c mpz_div_ui.c mpz_mod.c mpz_mod_ui.c mpz_dm.c mpz_dm_ui.c \
+  mpz_mdiv.c mpz_mmod.c mpz_mdm.c mpz_mdiv_ui.c mpz_mmod_ui.c mpz_mdm_ui.c \
+  mpz_gcd.c mpz_gcdext.c mpz_sqrt.c mpz_sqrtrem.c mpz_powm.c mpz_powm_ui.c \
+  mpz_cmp.c mpz_cmp_ui.c mpz_cmp_si.c mpz_mul_2exp.c mpz_div_2exp.c \
+  mpz_mod_2exp.c mpz_abs.c mpz_neg.c mpz_com.c mpz_and.c mpz_ior.c \
+  mpz_inp_raw.c mpz_inp_str.c mpz_out_raw.c mpz_out_str.c \
+  mpz_perfsqr.c mpz_random.c mpz_random2.c mpz_pow_ui.c \
+  mpz_clrbit.c mpz_fac_ui.c mpz_pprime_p.c
+MPZ_OBJS = mpz_init.o mpz_set.o mpz_set_ui.o mpz_set_si.o mpz_set_str.o \
+  mpz_iset.o mpz_iset_ui.o mpz_iset_si.o mpz_iset_str.o mpz_clear.o \
+  mpz_get_ui.o mpz_get_si.o mpz_get_str.o mpz_size.o mpz_sizeinb.o \
+  mpz_add.o mpz_add_ui.o mpz_sub.o mpz_sub_ui.o mpz_mul.o mpz_mul_ui.o \
+  mpz_div.o mpz_div_ui.o mpz_mod.o mpz_mod_ui.o mpz_dm.o mpz_dm_ui.o \
+  mpz_mdiv.o mpz_mmod.o mpz_mdm.o mpz_mdiv_ui.o mpz_mmod_ui.o mpz_mdm_ui.o \
+  mpz_gcd.o mpz_gcdext.o mpz_sqrt.o mpz_sqrtrem.o mpz_powm.o mpz_powm_ui.o \
+  mpz_cmp.o mpz_cmp_ui.o mpz_cmp_si.o mpz_mul_2exp.o mpz_div_2exp.o \
+  mpz_mod_2exp.o mpz_abs.o mpz_neg.o mpz_com.o mpz_and.o mpz_ior.o \
+  mpz_inp_raw.o mpz_inp_str.o mpz_out_raw.o mpz_out_str.o \
+  mpz_perfsqr.o mpz_random.o mpz_random2.o mpz_pow_ui.o \
+  mpz_clrbit.o mpz_fac_ui.o mpz_pprime_p.o
+
+MPQ_SRCS = mpq_init.c mpq_set.c mpq_set_ui.c mpq_set_si.c \
+  mpq_set_num.c mpq_set_den.c mpq_get_num.c mpq_get_den.c \
+  mpq_add.c mpq_sub.c mpq_mul.c mpq_div.c \
+  mpq_clear.c mpq_cmp.c mpq_inv.c mpq_neg.c
+MPQ_OBJS = mpq_init.o mpq_set.o mpq_set_ui.o mpq_set_si.o \
+  mpq_set_num.o mpq_set_den.o mpq_get_num.o mpq_get_den.o \
+  mpq_add.o mpq_sub.o mpq_mul.o mpq_div.o \
+  mpq_clear.o mpq_cmp.o mpq_inv.o mpq_neg.o
+
+MPN_SRCS = mpn_add.c mpn_sub.c mpn_cmp.c mpn_mul.c mpn_div.c mpn_dm_1.c \
+  mpn_mod_1.c mpn_lshift.c mpn_rshift.c mpn_rshiftci.c mpn_sqrt.c
+MPN_OBJS = mpn_add.o mpn_sub.o mpn_cmp.o mpn_mul.o mpn_div.o mpn_dm_1.o \
+  mpn_mod_1.o mpn_lshift.o mpn_rshift.o mpn_rshiftci.o mpn_sqrt.o
+
+# There are fewer members in the BSDMP_SRCS list that in the BSDMP_OBJS
+# list because some of the .c files are created by this Makefile.
+BSDMP_SRCS = itom.c mdiv.c move.c mtox.c xtom.c sdiv.c mout.c min.c mfree.c
+BSDMP_OBJS = gcd.o itom.o madd.o mcmp.o mdiv.o move.o msub.o mtox.o mult.o \
+  pow.o rpow.o xtom.o msqrt.o sdiv.o mout.o min.o mfree.o
+
+all: libgmp.a libmp.a
+
+check: libgmp.a
+	cd tests; $(MAKE) CC="$(CC)" SHELL="$(SHELL)" OPT="$(OPT)"
+
+libgmp.a: stamp-stddefh $(GMP_OBJS)
+	rm -f $@
+	$(AR) cr $@ $(GMP_OBJS)
+	$(RANLIB) $@
+
+# libmp.a depend on libgmp.a, to get around Unix(tm) ar/ranlib concurrency bug.
+libmp.a: stamp-stddefh $(MP_OBJS) libgmp.a
+	rm -f $@
+	$(AR) cr $@ $(MP_OBJS)
+	$(RANLIB) $@
+
+stamp-stddefh:
+	rm -f stddef.h
+	rm -f test-stddefh.c
+	(	echo '#include <stddef.h>'				;\
+		echo 'main(){size_t foo=sizeof(size_t);exit(0);}'	;\
+	) > test-stddefh.c
+	@if $(LOCAL_CC) $(CFLAGS) test-stddefh.c -c 2> /dev/null	;\
+	then true							;\
+	else								\
+	  echo 'This machine has no "stddef.h".  Creating a minimal in ./';\
+	  $(LOCAL_CC) $(CFLAGS) cre-stddefh.c -o cre-stddefh		;\
+	  ./cre-stddefh > stddef.h					;\
+	fi
+	rm -f test-stddefh.o
+	touch stamp-stddefh
+
+mp_bases.c: cre-conv-tab
+	./cre-conv-tab > tmp-$@
+	mv tmp-$@ $@
+cre-conv-tab: cre-conv-tab.c gmp.h gmp-impl.h gmp-mparam.h longlong.h
+	$(LOCAL_CC) $(CFLAGS) `if [ x$(firstword $^) = x ];	\
+			       then echo cre-conv-tab.c;	\
+			       else echo $(firstword $^); fi` -o $@ -lm
+
+gmp-mparam.h: cre-mparam
+	./cre-mparam > tmp-$@
+	mv tmp-$@ $@
+cre-mparam: cre-mparam.c stamp-stddefh gmp.h
+	$(LOCAL_CC) $(CFLAGS) cre-mparam.c -o $@
+
+gcd.c : mpz_gcd.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_gcd.c \
+          | grep -v '^#' > $@
+pow.c : mpz_powm.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_powm.c\
+          | grep -v '^#' > $@
+rpow.c: mpz_pow_ui.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_pow_ui.c\
+          | grep -v '^#' > $@
+madd.c : mpz_add.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_add.c\
+          | grep -v '^#' > $@
+msub.c : mpz_sub.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_sub.c\
+          | grep -v '^#' > $@
+mult.c : mpz_mul.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_mul.c\
+          | grep -v '^#' > $@
+mcmp.c : mpz_cmp.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_cmp.c\
+          | grep -v '^#' > $@
+msqrt.c : mpz_sqrtrem.c stamp-stddefh mp.h gmp.h gmp-impl.h gmp-mparam.h
+	$(CC) $(CFLAGS) -E -DBERKELEY_MP mpz_sqrtrem.c\
+          | grep -v '^#' > $@
+
+doc: gmp.dvi gmp.info
+LN = ln -s
+gmp.dvi: gmp.texi
+	rm -f tmp.texi
+	$(LN) gmp.texi tmp.texi
+	tex tmp.texi < /dev/null
+	texindex tmp.cp tmp.fn
+	tex tmp.texi < /dev/null 2> /dev/null
+	mv tmp.dvi gmp.dvi
+gmp.info: gmp.texi
+	makeinfo gmp.texi
+
+clean:
+	rm -f *.o libgmp.a libmp.a cre-conv-tab cre-mparam cre-stddefh \
+ gmp.dvi gmp.info mp_bases.c gmp-mparam.h stamp-stddefh test-stddefh.c \
+ stddef.h gcd.c pow.c rpow.c madd.c msub.c mult.c mcmp.c msqrt.c \
+ tmp.* tmp-* gmp.ps core
+	-cd tests; $(MAKE) clean
+realclean: clean
+
+# Automatically generated dependencies
+
+_mpz_get_str.o : _mpz_get_str.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+_mpz_set_str.o : _mpz_set_str.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+cre-conv-tab.o : cre-conv-tab.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+cre-mparam.o : cre-mparam.c gmp.h 
+cre-stddefh.o : cre-stddefh.c 
+itom.o : itom.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+mdiv.o : mdiv.c mp.h gmp.h gmp-impl.h gmp-mparam.h longlong.h mpz_dmincl.c 
+memory.o : memory.c gmp.h gmp-impl.h gmp-mparam.h 
+mfree.o : mfree.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+min.o : min.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+mout.o : mout.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+move.o : move.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+mp_bases.o : mp_bases.c gmp.h gmp-impl.h gmp-mparam.h 
+mp_clz_tab.o : mp_clz_tab.c gmp.h gmp-impl.h gmp-mparam.h 
+mp_set_fns.o : mp_set_fns.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_add.o : mpn_add.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_cmp.o : mpn_cmp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_div.o : mpn_div.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpn_dm_1.o : mpn_dm_1.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpn_lshift.o : mpn_lshift.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_mod_1.o : mpn_mod_1.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpn_mul.o : mpn_mul.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpn_rshift.o : mpn_rshift.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_rshiftci.o : mpn_rshiftci.c gmp.h gmp-impl.h gmp-mparam.h 
+mpn_sqrt.o : mpn_sqrt.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpn_sub.o : mpn_sub.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_add.o : mpq_add.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_clear.o : mpq_clear.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_cmp.o : mpq_cmp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_div.o : mpq_div.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_get_den.o : mpq_get_den.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_get_num.o : mpq_get_num.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_init.o : mpq_init.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_inv.o : mpq_inv.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_mul.o : mpq_mul.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_neg.o : mpq_neg.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_set.o : mpq_set.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_set_den.o : mpq_set_den.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_set_num.o : mpq_set_num.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_set_si.o : mpq_set_si.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_set_ui.o : mpq_set_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpq_sub.o : mpq_sub.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_abs.o : mpz_abs.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_add.o : mpz_add.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_add_ui.o : mpz_add_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_and.o : mpz_and.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_clear.o : mpz_clear.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_clrbit.o : mpz_clrbit.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_cmp.o : mpz_cmp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_cmp_si.o : mpz_cmp_si.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_cmp_ui.o : mpz_cmp_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_com.o : mpz_com.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_div.o : mpz_div.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_div_2exp.o : mpz_div_2exp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_div_ui.o : mpz_div_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_dm.o : mpz_dm.c gmp.h gmp-impl.h gmp-mparam.h longlong.h mpz_dmincl.c 
+mpz_dm_ui.o : mpz_dm_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_fac_ui.o : mpz_fac_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_gcd.o : mpz_gcd.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_gcdext.o : mpz_gcdext.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_get_si.o : mpz_get_si.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_get_str.o : mpz_get_str.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_get_ui.o : mpz_get_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_init.o : mpz_init.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_inp_raw.o : mpz_inp_raw.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_inp_str.o : mpz_inp_str.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_ior.o : mpz_ior.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_iset.o : mpz_iset.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_iset_si.o : mpz_iset_si.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_iset_str.o : mpz_iset_str.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_iset_ui.o : mpz_iset_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mdiv.o : mpz_mdiv.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mdiv_ui.o : mpz_mdiv_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mdm.o : mpz_mdm.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mdm_ui.o : mpz_mdm_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mmod.o : mpz_mmod.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mmod_ui.o : mpz_mmod_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mod.o : mpz_mod.c gmp.h gmp-impl.h gmp-mparam.h longlong.h mpz_dmincl.c 
+mpz_mod_2exp.o : mpz_mod_2exp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mod_ui.o : mpz_mod_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_mul.o : mpz_mul.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mul_2exp.o : mpz_mul_2exp.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_mul_ui.o : mpz_mul_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_neg.o : mpz_neg.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_out_raw.o : mpz_out_raw.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_out_str.o : mpz_out_str.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_perfsqr.o : mpz_perfsqr.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_pow_ui.o : mpz_pow_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_powm.o : mpz_powm.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_powm_ui.o : mpz_powm_ui.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_pprime_p.o : mpz_pprime_p.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_random.o : mpz_random.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_random2.o : mpz_random2.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_realloc.o : mpz_realloc.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_set.o : mpz_set.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_set_si.o : mpz_set_si.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_set_str.o : mpz_set_str.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_set_ui.o : mpz_set_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_size.o : mpz_size.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_sizeinb.o : mpz_sizeinb.c gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+mpz_sqrt.o : mpz_sqrt.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_sqrtrem.o : mpz_sqrtrem.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_sub.o : mpz_sub.c gmp.h gmp-impl.h gmp-mparam.h 
+mpz_sub_ui.o : mpz_sub_ui.c gmp.h gmp-impl.h gmp-mparam.h 
+mtox.o : mtox.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
+sdiv.o : sdiv.c mp.h gmp.h gmp-impl.h gmp-mparam.h longlong.h 
+xtom.o : xtom.c mp.h gmp.h gmp-impl.h gmp-mparam.h 
diff --git a/Mp/gmp-1.3.2/README b/Mp/gmp-1.3.2/README
new file mode 100644
index 0000000..b31e7b3
--- /dev/null
+++ b/Mp/gmp-1.3.2/README
@@ -0,0 +1,61 @@
+			THE GNU MP LIBRARY
+
+
+GNU MP is a library for arbitrary precision arithmetic, operating on
+signed integers and rational numbers.  It has a rich set of functions,
+and the functions have a regular interface.
+
+I have tried to make these functions as fast as possible, both for small
+operands and for huge operands.  The speed is achieved by using fullwords
+as the basic arithmetic type, by using fast algorithms, by defining inline
+assembler for mixed sized multiplication and division (i.e 32*32->64 bit
+multiplication and 64/32->32,32 bit division), and by hacking the code
+with emphasis on speed (and not simplicity and elegance).
+
+The speed of GNU MP is about 5 to 100 times that of Berkeley MP for
+small operands.  The speed-up increases with the operand sizes for
+certain operations, for which GNU MP has asymptotically faster algorithms.
+
+
+There are four classes of functions in GNU MP.
+
+ 1. Signed integer arithmetic functions, mpz_*.  The set of functions are
+    intended to be easy to use, being rich and regular.
+
+    To use these functions, include the file "gmp.h".
+
+ 2. Rational arithmetic functions, mpq_*.  For now, just a small set of
+    functions necessary for basic rational arithmetics.
+
+    To use these functions, include the file "gmp.h".
+
+ 3. Positive-integer, low-level, harder-to-use, but for small operands
+    about twice as fast than the mpz_* functions are the functions in the
+    mpn_* class.  No memory management is performed.  The caller must
+    ensure enough space is available for the results.  The set of
+    functions is not quite regular, nor is the calling interface.  These
+    functions accept input arguments in the form of pairs consisting of a
+    pointer to the least significant word, and a integral size telling how
+    many limbs (= words) the pointer points to.
+
+    Almost all calculations, in the entire package, are made in these
+    low-level functions.
+
+    These functions are not fully documented in this release.  They will
+    probably be so in a future release.
+
+ 4. Berkeley MP compatible functions.
+
+    To use these functions, include the file "mp.h".  You can test if you
+    are using the GNU version by testing if the symbol __GNU_MP__ is
+    defined.
+
+
+			REPORTING BUGS
+
+If you find a bug in the library, please make sure to tell us about it!
+
+You can report bugs, and propose modifications and enhancements to
+tege@gnu.ai.mit.edu.  How to report a bug is further described in
+the texinfo documentation, see the file gmp.texi.
+
diff --git a/Mp/gmp-1.3.2/TODO b/Mp/gmp-1.3.2/TODO
new file mode 100644
index 0000000..6612d8b
--- /dev/null
+++ b/Mp/gmp-1.3.2/TODO
@@ -0,0 +1,184 @@
+THINGS TO WORK ON
+
+Note that many of these things mentioned here are already fixed in GMP 2.0.
+
+* Improve speed for non-gcc compilers by defining umul_ppmm, udiv_qrnnd,
+  etc, to call __umul_ppmm, __udiv_qrnnd.  A typical definition for
+  umul_ppmm would be
+  #define umul_ppmm(ph,pl,m0,m1) \
+    {unsigned long __ph; (pl) = __umul_ppmm (&__ph, (m0), (m1)); (ph) = __ph;}
+  In order to maintain just one version of longlong.h (gmp and gcc), this
+  has to be done outside of longlong.h.
+
+* Change mpn-routines to not deal with normalisation?
+    mpn_add: Unchanged.
+    mpn_sub: Remove normalization loop.  Does it assume normalised input?
+    mpn_mul: Make it return most sign limb, to simplify normalisation.
+	     Karatsubas algorith will be greatly simplified if mpn_add and
+	     mpn_sub doesn't normalise their results.
+    mpn_div: Still requires strict normalisation.
+  Beware of problems with mpn_cmp (and similar), a larger size does not
+  ensure that an operand is larger, since it may be "less normalised".
+  Normalization has to be moved into mpz-functions.
+
+Bennet Yee at CMU proposes:
+* mpz_{put,get}_raw for memory oriented I/O like other *_raw functions.
+* A function mpfatal that is called for exceptions.  The user may override
+  the default definition.
+
+* mout should group in 10-digit groups.
+* ASCII dependence?
+* Error reporting from I/O functions (linkoping)?
+
+* Make all computation mpz_* functions return a signed int indicating if
+  the result was zero, positive, or negative?
+
+* Implement mpz_cmpabs, mpz_xor, mpz_to_double, mpz_to_si, mpz_lcm,
+  mpz_dpb, mpz_ldb, various bit string operations like mpz_cntbits.  Also
+  mpz_@_si for most @??
+
+Brian Beuning proposes:
+   1. An array of small primes
+   3. A function to factor an MINT
+   4. A routine to look for "small" divisors of an MINT
+   5. A 'multiply mod n' routine based on Montgomery's algorithm.
+
+Doug Lea proposes:
+   1. A way to find out if an integer fits into a signed int, and if so, a
+      way to convert it out.
+   2. Similarly for double precision float conversion.
+   3. A function to convert the ratio of two integers to a double.  This
+      can be useful for mixed mode operations with integers, rationals, and
+      doubles.
+   5. Bit-setting, clearing, and testing operations, as in
+	   mpz_setbit(MP_INT* dest, MP_INT* src, unsigned long bit_number),
+       and used, for example in
+	   mpz_setbit(x, x, 123)
+       to directly set the 123rd bit of x.
+       If these are supported, you don't first have to set up
+       an otherwise unnecessary mpz holding a shifted value, then
+       do an "or" operation.
+
+Elliptic curve method descrition in the Chapter `Algorithms in Number
+Theory' in the Handbook of Theoretical Computer Science, Elsevier,
+Amsterdam, 1990.  Also in Carl Pomerance's lecture notes on Cryptology and
+Computational Number Theory, 1990.
+
+* New function: mpq_get_ifstr (int_str, frac_str, base,
+  precision_in_som_way, rational_number).  Convert RATIONAL_NUMBER to a
+  string in BASE and put the integer part in INT_STR and the fraction part
+  in FRAC_STR.  (This function would do a division of the numerator and the
+  denominator.)
+
+* Should mpz_powm* handle negative exponents?
+
+* udiv_qrnnd: If the denominator is normalized, the n0 argument has very
+  little effect on the quotient.  Maybe we can assume it is 0, and
+  compensate at a later stage?
+
+* Better sqrt: First calculate the reciprocal square root, then multiply by
+  the operand to get the square root.  The reciprocal square root can be
+  obtained through Newton-Raphson without division.  The iteration is x :=
+  x*(3-a*x^2)/2, where a is the operand.
+
+* Newton-Raphson using multiplication: We get twice as many correct digits
+  in each iteration.  So if we square x(k) as part of the iteration, the
+  result will have the leading digits in common with the entire result from
+  iteration k-1.  A _mpn_mul_lowpart could implement this.
+
+* Peter Montgomery: If 0 <= a, b < p < 2^31 and I want a modular product
+  a*b modulo p and the long long type is unavailable, then I can write
+
+	  typedef   signed long slong;	
+	  typedef unsigned long ulong;
+	  slong a, b, p, quot, rem;	
+
+	  quot = (slong) (0.5 + (double)a * (double)b / (double)p);
+	  rem =  (slong)((ulong)a * (ulong)b - (ulong)p * (ulong)q);
+	  if (rem < 0} {rem += p; quot--;}
+
+FFT:
+{
+  * Multiplication could be done with Montgomery's method combined with
+    the "three primes" method described in Lipson.  Maybe this would be
+    faster than to Nussbaumer's method with 3 (simple) moduli?
+
+  * Maybe the modular tricks below are not needed: We are using very
+    special numbers, Fermat numbers with a small base and a large exponent,
+    and maybe it's possible to just subtract and add?
+
+  * Modify Nussbaumer's convolution algorithm, to use 3 words for each
+    coefficient, calculating in 3 relatively prime moduli (e.g.
+    0xffffffff, 0x100000000, and 0x7fff on a 32-bit computer).  Both all
+    operations and CRR would be very fast with such numbers.
+
+  * Optimize the Shoenhage-Stassen multiplication algorithm.  Take
+    advantage of the real valued input to save half of the operations and
+    half of the memory.  Try recursive variants with large, optimized base
+    cases.  Use recursive FFT with large base cases, since recursive FFT
+    has better memory locality.  A normal FFT get 100% cache miss.
+}
+
+* Speed modulo arithmetic, using Montgomery's method or my pre-invertion
+  method.  In either case, special arithmetic calls would be needed,
+  mpz_mmmul, mpz_mmadd, mpz_mmsub, plus some kind of initialization
+  functions.
+
+* mpz_powm* should not use division to reduce the result in the loop, but
+  instead pre-compute the reciprocal of the MOD argument and do reduced_val
+  = val-val*reciprocal(MOD)*MOD, or use Montgomery's method.
+
+* mpz_mod_2expplussi -- to reduce a bignum modulo (2**n)+s
+
+* It would be a quite important feature never to allocate more memory than
+  really necessary for a result.  Sometimes we can achieve this cheaply, by
+  deferring reallocation until the result size is known.
+
+* New macro in longlong.h: shift_rhl that extracts a word by shifting two
+  words as a unit.  (Supported by i386, i860, HP-PA, RS6000, 29k.)  Useful
+  for shifting multiple precision numbers.
+
+* The installation procedure should make a test run of multiplication to
+  decide the threshold values for algorithm switching between the available
+  methods.
+
+* The gcd algorithm could probably be improved with a divide-and-conquer
+  (DAC) approach.  At least the bulk of the operations should be done with
+  single precision.
+
+* Fast output conversion of x to base B:
+    1. Find n, such that (B^n > x).
+    2. Set y to (x*2^m)/(B^n), where m large enough to make 2^n ~~ B^n
+    3. Multiply the low half of y by B^(n/2), and recursively convert the
+       result.  Truncate the low half of y and convert that recursively.
+  Complexity: O(M(n)log(n))+O(D(n))!
+
+* Extensions for floating-point arithmetic.
+
+* Improve special cases for division.
+
+  1. When the divisor is just one word, normalization is not needed for
+  most CPUs, and can be done in the division loop for CPUs that need
+  normalization.
+
+  2. Even when the result is going to be very small, (i.e. nsize-dsize is
+  small) normalization should also be done in the division loop.
+
+  To fix this, a new routine mpn_div_unnormalized is needed.
+
+* Never allocate temporary space for a source param that overlaps with a
+  destination param needing reallocation.  Instead malloc a new block for
+  the destination (and free the source before returning to the caller).
+
+* When any of the source operands overlap with the destination, mult (and
+  other routines) slow down.  This is so because the need of temporary
+  allocation (with alloca) and copying.  If a new destination were
+  malloc'ed instead (and the overlapping source free'd before return) no
+  copying would be needed.  Is GNU malloc quick enough to make this faster
+  even for reasonably small operands?
+
+Local Variables:
+mode: text
+fill-column: 75
+version-control: never
+End:
diff --git a/Mp/gmp-1.3.2/VERSION b/Mp/gmp-1.3.2/VERSION
new file mode 100644
index 0000000..bf76b46
--- /dev/null
+++ b/Mp/gmp-1.3.2/VERSION
@@ -0,0 +1 @@
+GNU MP version 1.3.2
diff --git a/Mp/gmp-1.3.2/_mpz_get_str.c b/Mp/gmp-1.3.2/_mpz_get_str.c
new file mode 100644
index 0000000..a83e690
--- /dev/null
+++ b/Mp/gmp-1.3.2/_mpz_get_str.c
@@ -0,0 +1,309 @@
+/* _mpz_get_str (string, base, mp_src) -- Convert the multiple precision
+   number MP_SRC to a string STRING of base BASE.  If STRING is NULL
+   allocate space for the result.  In any case, return a pointer to the
+   result.  If STRING is not NULL, the caller must ensure enough space is
+   available to store the result.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifndef UMUL_TIME
+#define UMUL_TIME 1
+#endif
+
+#ifndef UDIV_TIME
+#define UDIV_TIME UMUL_TIME
+#endif
+
+#define udiv_qrnndx(q, r, nh, nl, d, di) \
+  do {									\
+    unsigned long int _q, _ql, _r;					\
+    unsigned long int _xh, _xl;						\
+    umul_ppmm (_q, _ql, (nh), (di));					\
+    _q += (nh);			/* DI is 2**32 too small.  Compensate */\
+    if (_q < (nh))							\
+      {									\
+	/* Got carry.  Propagate it in the multiplication.  */		\
+	umul_ppmm (_xh, _xl, (d), _q);					\
+	_xh += (d);							\
+      }									\
+    else								\
+      umul_ppmm (_xh, _xl, (d), _q);					\
+    sub_ddmmss (_xh, _r, (nh), (nl), _xh, _xl);				\
+    if (_xh != 0)							\
+      {									\
+	sub_ddmmss (_xh, _r, _xh, _r, 0, (d));				\
+	_q += 1;							\
+	if (_xh != 0)							\
+	  {								\
+	    sub_ddmmss (_xh, _r, _xh, _r, 0, (d));			\
+	    _q += 1;							\
+	  }								\
+      }									\
+    if (_r >= (d))							\
+      {									\
+	_r -= (d);							\
+	_q += 1;							\
+      }									\
+    (r) = _r;								\
+    (q) = _q;								\
+  } while (0)
+
+char *
+#ifdef __STDC__
+_mpz_get_str (char *str, int base, const MP_INT *m)
+#else
+_mpz_get_str (str, base, m)
+     char *str;
+     int base;
+     const MP_INT *m;
+#endif
+{
+  mp_ptr tp;
+  mp_size msize;
+  mp_limb big_base;
+#if UDIV_NEEDS_NORMALIZATION || UDIV_TIME > 2 * UMUL_TIME
+
+  int normalization_steps;
+#if UDIV_TIME > 2 * UMUL_TIME
+  mp_limb big_base_inverted;
+#endif
+#endif
+  unsigned int dig_per_u;
+  mp_size out_len;
+  char *s;
+  char *num_to_ascii;
+
+  if (base >= 0)
+    {
+      if (base == 0)
+	base = 10;
+      num_to_ascii = "0123456789abcdefghijklmnopqrstuvwxyz";
+    }
+  else
+    {
+      base = -base;
+      num_to_ascii = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+    }
+
+  dig_per_u = __mp_bases[base].chars_per_limb;
+  out_len = mpz_sizeinbase (m, base) + 1;
+  big_base = __mp_bases[base].big_base;
+
+  msize = m->size;
+
+  if (str == NULL)
+    str = (char *) (*_mp_allocate_func) (out_len + (msize < 0));
+
+  if (msize < 0)
+    *str++ = '-';
+  s = str;
+
+  msize = ABS (msize);
+
+  /* Special case zero, as the code below doesn't handle it.  */
+  if (msize == 0)
+    {
+      s[0] = '0';
+      s[1] = 0;
+      return str;
+    }
+
+  if ((base & (base - 1)) == 0)
+    {
+      /* The base is a power of 2.  Make conversion from most
+	 significant side.  */
+      mp_limb n1, n0;
+      int bits_per_digit = big_base;
+      int x;
+      int bit_pos;
+      int i;
+      unsigned mask = (1 << bits_per_digit) - 1;
+
+      tp = m->d;
+      n1 = tp[msize - 1];
+      count_leading_zeros (x, n1);
+
+	/* BIT_POS should be R when input ends in least sign. nibble,
+	   R + bits_per_digit * n when input ends in n:th least significant
+	   nibble. */
+
+      {
+	int bits;
+
+	bits = BITS_PER_MP_LIMB * msize - x;
+	x = bits % bits_per_digit;
+	if (x != 0)
+	  bits += bits_per_digit - x;
+	bit_pos = bits - (msize - 1) * BITS_PER_MP_LIMB;
+      }
+
+      /* Fast loop for bit output.  */
+      i = msize - 1;
+      for (;;)
+	{
+	  bit_pos -= bits_per_digit;
+	  while (bit_pos >= 0)
+	    {
+	      *s++ = num_to_ascii[(n1 >> bit_pos) & mask];
+	      bit_pos -= bits_per_digit;
+	    }
+	  i--;
+	  if (i < 0)
+	    break;
+	  n0 = (n1 << -bit_pos) & mask;
+	  n1 = tp[i];
+	  bit_pos += BITS_PER_MP_LIMB;
+	  *s++ = num_to_ascii[n0 | (n1 >> bit_pos)];
+	}
+
+      *s = 0;
+    }
+  else
+    {
+      /* General case.  The base is not a power of 2.  Make conversion
+	 from least significant end.  */
+
+      /* If udiv_qrnnd only handles divisors with the most significant bit
+	 set, prepare BIG_BASE for being a divisor by shifting it to the
+	 left exactly enough to set the most significant bit.  */
+#if UDIV_NEEDS_NORMALIZATION || UDIV_TIME > 2 * UMUL_TIME
+      count_leading_zeros (normalization_steps, big_base);
+      big_base <<= normalization_steps;
+#if UDIV_TIME > 2 * UMUL_TIME
+      /* Get the fixed-point approximation to 1/BIG_BASE.  */
+      big_base_inverted = __mp_bases[base].big_base_inverted;
+#endif
+#endif
+
+      out_len--;		/* now not include terminating \0 */
+      s += out_len;
+
+      /* Allocate temporary space and move the multi prec number to
+	 convert there, as we need to overwrite it below, while
+	 computing the successive remainders.  */
+      tp = (mp_ptr) alloca ((msize + 1) * BYTES_PER_MP_LIMB);
+      MPN_COPY (tp, m->d, msize);
+
+      while (msize != 0)
+	{
+	  int i;
+	  mp_limb n0, n1;
+
+#if UDIV_NEEDS_NORMALIZATION || UDIV_TIME > 2 * UMUL_TIME
+	  /* If we shifted BIG_BASE above, shift the dividend too, to get
+	     the right quotient.  We need to do this every loop,
+	     as the intermediate quotients are OK, but the quotient from
+	     one turn in the loop is going to be the dividend in the
+	     next turn, and the dividend needs to be up-shifted.  */
+	  if (normalization_steps != 0)
+	    {
+	      n0 = mpn_lshift (tp, tp, msize, normalization_steps);
+
+	      /* If the shifting gave a carry out limb, store it and
+		 increase the length.  */
+	      if (n0 != 0)
+		{
+		  tp[msize] = n0;
+		  msize++;
+		}
+	    }
+#endif
+
+	  /* Divide the number at TP with BIG_BASE to get a quotient and a
+	     remainder.  The remainder is our new digit in base BIG_BASE.  */
+	  i = msize - 1;
+	  n1 = tp[i];
+
+	  if (n1 >= big_base)
+	    n1 = 0;
+	  else
+	    {
+	      msize--;
+	      i--;
+	    }
+
+	  for (; i >= 0; i--)
+	    {
+	      n0 = tp[i];
+#if UDIV_TIME > 2 * UMUL_TIME
+	      udiv_qrnndx (tp[i], n1, n1, n0, big_base, big_base_inverted);
+#else
+	      udiv_qrnnd (tp[i], n1, n1, n0, big_base);
+#endif
+	    }
+
+#if UDIV_NEEDS_NORMALIZATION || UDIV_TIME > 2 * UMUL_TIME
+	  /* If we shifted above (at previous UDIV_NEEDS_NORMALIZATION tests)
+	     the remainder will be up-shifted here.  Compensate.  */
+	  n1 >>= normalization_steps;
+#endif
+
+	  /* Convert N1 from BIG_BASE to a string of digits in BASE
+	     using single precision operations.  */
+	  for (i = dig_per_u - 1; i >= 0; i--)
+	    {
+	      *--s = num_to_ascii[n1 % base];
+	      n1 /= base;
+	      /* Break from the loop as soon as we would only write zeros.  */
+	      if (n1 == 0 && msize == 0)
+		break;
+	    }
+	}
+
+      /* There should be no leading zeros.  */
+      if (*s == '0')
+	abort ();
+
+      if (s == str)
+	{
+	  /* This should be the common case.  */
+	  s[out_len] = 0;
+	}
+      else if (s == str + 1)
+	{
+	  /* The string became 1 digit shorter than its maximum.  */
+	  /* Need to copy it back one char pos.  */
+	  out_len--;
+#ifndef HAS_MEMMOVE
+	  {
+	    size_t i;
+
+	    for (i = 0; i < out_len; i++)
+	      str[i] = s[i];
+	  }
+#else
+	  memmove (str, s, out_len);
+#endif
+	  str[out_len] = 0;
+	}
+      else
+	{
+	  /* Hopefully never.  */
+	  abort ();
+	}
+    }
+
+  alloca (0);
+  /* Ugly, we incremented str for negative numbers.  Fix that here.  */
+  return str - (m->size < 0);
+}
diff --git a/Mp/gmp-1.3.2/_mpz_set_str.c b/Mp/gmp-1.3.2/_mpz_set_str.c
new file mode 100644
index 0000000..987f981
--- /dev/null
+++ b/Mp/gmp-1.3.2/_mpz_set_str.c
@@ -0,0 +1,258 @@
+/* _mpz_set_str(mp_dest, string, base) -- Convert the \0-terminated
+   string STRING in base BASE to multiple precision integer in
+   MP_DEST.  Allow white space in the string.  If BASE == 0 determine
+   the base in the C standard way, i.e.  0xhh...h means base 16,
+   0oo...o means base 8, otherwise assume base 10.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+enum char_type
+{
+  XX = -3,
+  SPC = -2,
+  EOF = -1
+};
+
+static signed char ascii_to_num[256] =
+{
+  EOF,XX, XX, XX, XX, XX, XX, XX, XX, SPC,SPC,XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  SPC,XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  0,  1,  2,  3,  4,  5,  6,  7,  8,  9,  XX, XX, XX, XX, XX, XX,
+  XX, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+  25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, XX, XX, XX, XX, XX,
+  XX, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+  25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
+  XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX
+};
+
+int
+#ifdef __STDC__
+_mpz_set_str (MP_INT *x, const char *str, int base)
+#else
+_mpz_set_str (x, str, base)
+     MP_INT *x;
+     const char *str;
+     int base;
+#endif
+{
+  mp_ptr xp;
+  mp_size size;
+  mp_limb big_base;
+  int indigits_per_limb;
+  int negative = 0;
+  int inp_rawchar;
+  mp_limb inp_digit;
+  mp_limb res_digit;
+  size_t str_len;
+  mp_size i;
+
+  if (str[0] == '-')
+    {
+      negative = 1;
+      str++;
+    }
+
+  if (base == 0)
+    {
+      if (str[0] == '0')
+	{
+	  if (str[1] == 'x' || str[1] == 'X')
+	    base = 16;
+	  else
+	    base = 8;
+	}
+      else
+	base = 10;
+    }
+
+  big_base = __mp_bases[base].big_base;
+  indigits_per_limb = __mp_bases[base].chars_per_limb;
+
+  str_len = strlen (str);
+
+  size = str_len / indigits_per_limb + 1;
+  if (x->alloc < size)
+    _mpz_realloc (x, size);
+  xp = x->d;
+
+  size = 0;
+
+  if ((base & (base - 1)) == 0)
+    {
+      /* The base is a power of 2.  Read the input string from
+	 least to most significant character/digit.  */
+
+      const char *s;
+      int next_bitpos;
+      int bits_per_indigit = big_base;
+
+      /* Accept and ignore 0x or 0X before hexadecimal numbers.  */
+      if (base == 16 && str[0] == '0' && (str[1] == 'x' || str[1] == 'X'))
+	{
+	  str += 2;
+	  str_len -= 2;
+	}
+
+      res_digit = 0;
+      next_bitpos = 0;
+
+      for (s = str + str_len - 1; s >= str; s--)
+	{
+	  inp_rawchar = *s;
+	  inp_digit = ascii_to_num[inp_rawchar];
+
+	  if (inp_digit >= base)
+	    {
+	      /* Was it white space?  Just ignore it.  */
+	      if ((char) inp_digit == (char) SPC)
+		continue;
+
+	      /* We found rubbish in the string.  Return -1 to indicate
+		 the error.  */
+	      return -1;
+	    }
+
+	  res_digit |= inp_digit << next_bitpos;
+	  next_bitpos += bits_per_indigit;
+	  if (next_bitpos >= BITS_PER_MP_LIMB)
+	    {
+	      xp[size] = res_digit;
+	      size++;
+	      next_bitpos -= BITS_PER_MP_LIMB;
+	      res_digit = inp_digit >> (bits_per_indigit - next_bitpos);
+	    }
+	}
+
+      xp[size] = res_digit;
+      size++;
+      for (i = size - 1; i >= 0; i--)
+	{
+	  if (xp[i] != 0)
+	    break;
+	}
+      size = i + 1;
+    }
+  else
+    {
+      /* General case.  The base is not a power of 2.  */
+
+      mp_size i;
+      int j;
+      mp_limb cy;
+
+      for (;;)
+	{
+	  res_digit = 0;
+	  for (j = 0; j < indigits_per_limb; )
+	    {
+	      inp_rawchar = (unsigned char) *str++;
+	      inp_digit = ascii_to_num[inp_rawchar];
+
+	      /* Negative means that the character was not a proper digit.  */
+	      if (inp_digit >= base)
+		{
+		  /* Was it white space?  Just ignore it.  */
+		  if ((char) inp_digit == (char) SPC)
+		    continue;
+
+		  goto end_or_error;
+		}
+
+	      res_digit = res_digit * base + inp_digit;
+
+	      /* Increment the loop counter here, since it mustn't be
+		 incremented when we do "continue" above.  */
+	      j++;
+	    }
+
+	  cy = res_digit;
+
+	  /* Insert RES_DIGIT into the result multi prec integer.  */
+	  for (i = 0; i < size; i++)
+	    {
+	      mp_limb p1, p0;
+	      umul_ppmm (p1, p0, big_base, xp[i]);
+	      p0 += cy;
+	      cy = p1 + (p0 < cy);
+	      xp[i] = p0;
+	    }
+	  if (cy != 0)
+	    {
+	      xp[size] = cy;
+	      size++;
+	    }
+	}
+
+    end_or_error:
+      /* We probably have some digits in RES_DIGIT  (J tells how many).  */
+      if ((char) inp_digit != (char) EOF)
+	{
+	  /* Error return.  */
+	  return -1;
+	}
+
+      /* J contains number of digits (in base BASE) remaining in
+	 RES_DIGIT.  */
+      if (j > 0)
+	{
+	  big_base = 1;
+	  do
+	    {
+	      big_base *= base;
+	      j--;
+	    }
+	  while (j > 0);
+
+	  cy = res_digit;
+
+	  /* Insert ultimate RES_DIGIT into the result multi prec integer.  */
+	  for (i = 0; i < size; i++)
+	    {
+	      mp_limb p1, p0;
+	      umul_ppmm (p1, p0, big_base, xp[i]);
+	      p0 += cy;
+	      cy = p1 + (p0 < cy);
+	      xp[i] = p0;
+	    }
+	  if (cy != 0)
+	    {
+	      xp[size] = cy;
+	      size++;
+	    }
+	}
+    }
+
+  if (negative)
+    size = -size;
+  x->size = size;
+
+  return 0;
+}
diff --git a/Mp/gmp-1.3.2/alloca.c b/Mp/gmp-1.3.2/alloca.c
new file mode 100644
index 0000000..91d64bb
--- /dev/null
+++ b/Mp/gmp-1.3.2/alloca.c
@@ -0,0 +1,466 @@
+/* alloca.c -- allocate automatically reclaimed memory
+   (Mostly) portable public-domain implementation -- D A Gwyn
+
+   This implementation of the PWB library alloca function,
+   which is used to allocate space off the run-time stack so
+   that it is automatically reclaimed upon procedure exit,
+   was inspired by discussions with J. Q. Johnson of Cornell.
+   J.Otto Tennant <jot@cray.com> contributed the Cray support.
+
+   There are some preprocessor constants that can
+   be defined when compiling for your specific system, for
+   improved efficiency; however, the defaults should be okay.
+
+   The general concept of this implementation is to keep
+   track of all alloca-allocated blocks, and reclaim any
+   that are found to be deeper in the stack than the current
+   invocation.  This heuristic does not reclaim storage as
+   soon as it becomes invalid, but it will do so eventually.
+
+   As a special case, alloca(0) reclaims storage without
+   allocating any.  It is a good idea to use alloca(0) in
+   your main control loop, etc. to force garbage collection.  */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+/* If compiling with GCC, this file's not needed.  */
+#ifndef alloca
+
+#ifdef emacs
+#ifdef static
+/* actually, only want this if static is defined as ""
+   -- this is for usg, in which emacs must undefine static
+   in order to make unexec workable
+   */
+#ifndef STACK_DIRECTION
+you
+lose
+-- must know STACK_DIRECTION at compile-time
+#endif /* STACK_DIRECTION undefined */
+#endif /* static */
+#endif /* emacs */
+
+#ifdef emacs
+#define free xfree
+#endif
+
+/* If your stack is a linked list of frames, you have to
+   provide an "address metric" ADDRESS_FUNCTION macro.  */
+
+#ifdef CRAY
+long i00afunc ();
+#define ADDRESS_FUNCTION(arg) (char *) i00afunc (&(arg))
+#else
+#define ADDRESS_FUNCTION(arg) &(arg)
+#endif
+
+#if __STDC__
+typedef void *pointer;
+#else
+typedef char *pointer;
+#endif
+
+#define	NULL	0
+
+extern pointer (*_mp_allocate_func) ();
+
+/* Define STACK_DIRECTION if you know the direction of stack
+   growth for your system; otherwise it will be automatically
+   deduced at run-time.
+
+   STACK_DIRECTION > 0 => grows toward higher addresses
+   STACK_DIRECTION < 0 => grows toward lower addresses
+   STACK_DIRECTION = 0 => direction of growth unknown  */
+
+#ifndef STACK_DIRECTION
+#define	STACK_DIRECTION	0	/* Direction unknown.  */
+#endif
+
+#if STACK_DIRECTION != 0
+
+#define	STACK_DIR	STACK_DIRECTION	/* Known at compile-time.  */
+
+#else /* STACK_DIRECTION == 0; need run-time code.  */
+
+static int stack_dir;		/* 1 or -1 once known.  */
+#define	STACK_DIR	stack_dir
+
+static void
+find_stack_direction ()
+{
+  static char *addr = NULL;	/* Address of first `dummy', once known.  */
+  auto char dummy;		/* To get stack address.  */
+
+  if (addr == NULL)
+    {				/* Initial entry.  */
+      addr = ADDRESS_FUNCTION (dummy);
+
+      find_stack_direction ();	/* Recurse once.  */
+    }
+  else
+    {
+      /* Second entry.  */
+      if (ADDRESS_FUNCTION (dummy) > addr)
+	stack_dir = 1;		/* Stack grew upward.  */
+      else
+	stack_dir = -1;		/* Stack grew downward.  */
+    }
+}
+
+#endif /* STACK_DIRECTION == 0 */
+
+/* An "alloca header" is used to:
+   (a) chain together all alloca'ed blocks;
+   (b) keep track of stack depth.
+
+   It is very important that sizeof(header) agree with malloc
+   alignment chunk size.  The following default should work okay.  */
+
+#ifndef	ALIGN_SIZE
+#define	ALIGN_SIZE	sizeof(double)
+#endif
+
+typedef union hdr
+{
+  char align[ALIGN_SIZE];	/* To force sizeof(header).  */
+  struct
+    {
+      union hdr *next;		/* For chaining headers.  */
+      char *deep;		/* For stack depth measure.  */
+    } h;
+} header;
+
+static header *last_alloca_header = NULL;	/* -> last alloca header.  */
+
+/* Return a pointer to at least SIZE bytes of storage,
+   which will be automatically reclaimed upon exit from
+   the procedure that called alloca.  Originally, this space
+   was supposed to be taken from the current stack frame of the
+   caller, but that method cannot be made to work for some
+   implementations of C, for example under Gould's UTX/32.  */
+
+pointer
+alloca (size)
+     unsigned size;
+{
+  auto char probe;		/* Probes stack depth: */
+  register char *depth = ADDRESS_FUNCTION (probe);
+
+#if STACK_DIRECTION == 0
+  if (STACK_DIR == 0)		/* Unknown growth direction.  */
+    find_stack_direction ();
+#endif
+
+  /* Reclaim garbage, defined as all alloca'd storage that
+     was allocated from deeper in the stack than currently. */
+
+  {
+    register header *hp;	/* Traverses linked list.  */
+
+    for (hp = last_alloca_header; hp != NULL;)
+      if ((STACK_DIR > 0 && hp->h.deep > depth)
+	  || (STACK_DIR < 0 && hp->h.deep < depth))
+	{
+	  register header *np = hp->h.next;
+
+	  free ((pointer) hp);	/* Collect garbage.  */
+
+	  hp = np;		/* -> next header.  */
+	}
+      else
+	break;			/* Rest are not deeper.  */
+
+    last_alloca_header = hp;	/* -> last valid storage.  */
+  }
+
+  if (size == 0)
+    return NULL;		/* No allocation required.  */
+
+  /* Allocate combined header + user data storage.  */
+
+  {
+    register pointer new = (*_mp_allocate_func) (sizeof (header) + size);
+    /* Address of header.  */
+
+    ((header *) new)->h.next = last_alloca_header;
+    ((header *) new)->h.deep = depth;
+
+    last_alloca_header = (header *) new;
+
+    /* User storage begins just after header.  */
+
+    return (pointer) ((char *) new + sizeof (header));
+  }
+}
+
+#ifdef CRAY
+
+#ifdef DEBUG_I00AFUNC
+#include <stdio.h>
+#endif
+
+#ifndef CRAY_STACK
+#define CRAY_STACK
+#ifndef CRAY2
+/* Stack structures for CRAY-1, CRAY X-MP, and CRAY Y-MP */
+struct stack_control_header
+  {
+    long shgrow:32;		/* Number of times stack has grown.  */
+    long shaseg:32;		/* Size of increments to stack.  */
+    long shhwm:32;		/* High water mark of stack.  */
+    long shsize:32;		/* Current size of stack (all segments).  */
+  };
+
+/* The stack segment linkage control information occurs at
+   the high-address end of a stack segment.  (The stack
+   grows from low addresses to high addresses.)  The initial
+   part of the stack segment linkage control information is
+   0200 (octal) words.  This provides for register storage
+   for the routine which overflows the stack.  */
+
+struct stack_segment_linkage
+  {
+    long ss[0200];		/* 0200 overflow words.  */
+    long sssize:32;		/* Number of words in this segment.  */
+    long ssbase:32;		/* Offset to stack base.  */
+    long:32;
+    long sspseg:32;		/* Offset to linkage control of previous
+				   segment of stack.  */
+    long:32;
+    long sstcpt:32;		/* Pointer to task common address block.  */
+    long sscsnm;		/* Private control structure number for
+				   microtasking.  */
+    long ssusr1;		/* Reserved for user.  */
+    long ssusr2;		/* Reserved for user.  */
+    long sstpid;		/* Process ID for pid based multi-tasking.  */
+    long ssgvup;		/* Pointer to multitasking thread giveup.  */
+    long sscray[7];		/* Reserved for Cray Research.  */
+    long ssa0;
+    long ssa1;
+    long ssa2;
+    long ssa3;
+    long ssa4;
+    long ssa5;
+    long ssa6;
+    long ssa7;
+    long sss0;
+    long sss1;
+    long sss2;
+    long sss3;
+    long sss4;
+    long sss5;
+    long sss6;
+    long sss7;
+  };
+
+#else /* CRAY2 */
+/* The following structure defines the vector of words
+   returned by the STKSTAT library routine.  */
+struct stk_stat
+  {
+    long now;			/* Current total stack size.  */
+    long maxc;			/* Amount of contiguous space which would
+				   be required to satisfy the maximum
+				   stack demand to date.  */
+    long high_water;		/* Stack high-water mark.  */
+    long overflows;		/* Number of stack overflow ($STKOFEN) calls.  */
+    long hits;			/* Number of internal buffer hits.  */
+    long extends;		/* Number of block extensions.  */
+    long stko_mallocs;		/* Block allocations by $STKOFEN.  */
+    long underflows;		/* Number of stack underflow calls ($STKRETN).  */
+    long stko_free;		/* Number of deallocations by $STKRETN.  */
+    long stkm_free;		/* Number of deallocations by $STKMRET.  */
+    long segments;		/* Current number of stack segments.  */
+    long maxs;			/* Maximum number of stack segments so far.  */
+    long pad_size;		/* Stack pad size.  */
+    long current_address;	/* Current stack segment address.  */
+    long current_size;		/* Current stack segment size.  This
+				   number is actually corrupted by STKSTAT to
+				   include the fifteen word trailer area.  */
+    long initial_address;	/* Address of initial segment.  */
+    long initial_size;		/* Size of initial segment.  */
+  };
+
+/* The following structure describes the data structure which trails
+   any stack segment.  I think that the description in 'asdef' is
+   out of date.  I only describe the parts that I am sure about.  */
+
+struct stk_trailer
+  {
+    long this_address;		/* Address of this block.  */
+    long this_size;		/* Size of this block (does not include
+				   this trailer).  */
+    long unknown2;
+    long unknown3;
+    long link;			/* Address of trailer block of previous
+				   segment.  */
+    long unknown5;
+    long unknown6;
+    long unknown7;
+    long unknown8;
+    long unknown9;
+    long unknown10;
+    long unknown11;
+    long unknown12;
+    long unknown13;
+    long unknown14;
+  };
+
+#endif /* CRAY2 */
+#endif /* not CRAY_STACK */
+
+#ifdef CRAY2
+/* Determine a "stack measure" for an arbitrary ADDRESS.
+   I doubt that "lint" will like this much. */
+
+static long
+i00afunc (long *address)
+{
+  struct stk_stat status;
+  struct stk_trailer *trailer;
+  long *block, size;
+  long result = 0;
+
+  /* We want to iterate through all of the segments.  The first
+     step is to get the stack status structure.  We could do this
+     more quickly and more directly, perhaps, by referencing the
+     $LM00 common block, but I know that this works.  */
+
+  STKSTAT (&status);
+
+  /* Set up the iteration.  */
+
+  trailer = (struct stk_trailer *) (status.current_address
+				    + status.current_size
+				    - 15);
+
+  /* There must be at least one stack segment.  Therefore it is
+     a fatal error if "trailer" is null.  */
+
+  if (trailer == 0)
+    abort ();
+
+  /* Discard segments that do not contain our argument address.  */
+
+  while (trailer != 0)
+    {
+      block = (long *) trailer->this_address;
+      size = trailer->this_size;
+      if (block == 0 || size == 0)
+	abort ();
+      trailer = (struct stk_trailer *) trailer->link;
+      if ((block <= address) && (address < (block + size)))
+	break;
+    }
+
+  /* Set the result to the offset in this segment and add the sizes
+     of all predecessor segments.  */
+
+  result = address - block;
+
+  if (trailer == 0)
+    {
+      return result;
+    }
+
+  do
+    {
+      if (trailer->this_size <= 0)
+	abort ();
+      result += trailer->this_size;
+      trailer = (struct stk_trailer *) trailer->link;
+    }
+  while (trailer != 0);
+
+  /* We are done.  Note that if you present a bogus address (one
+     not in any segment), you will get a different number back, formed
+     from subtracting the address of the first block.  This is probably
+     not what you want.  */
+
+  return (result);
+}
+
+#else /* not CRAY2 */
+/* Stack address function for a CRAY-1, CRAY X-MP, or CRAY Y-MP.
+   Determine the number of the cell within the stack,
+   given the address of the cell.  The purpose of this
+   routine is to linearize, in some sense, stack addresses
+   for alloca.  */
+
+static long
+i00afunc (long address)
+{
+  long stkl = 0;
+
+  long size, pseg, this_segment, stack;
+  long result = 0;
+
+  struct stack_segment_linkage *ssptr;
+
+  /* Register B67 contains the address of the end of the
+     current stack segment.  If you (as a subprogram) store
+     your registers on the stack and find that you are past
+     the contents of B67, you have overflowed the segment.
+
+     B67 also points to the stack segment linkage control
+     area, which is what we are really interested in.  */
+
+  stkl = CRAY_STACKSEG_END ();
+  ssptr = (struct stack_segment_linkage *) stkl;
+
+  /* If one subtracts 'size' from the end of the segment,
+     one has the address of the first word of the segment.
+
+     If this is not the first segment, 'pseg' will be
+     nonzero.  */
+
+  pseg = ssptr->sspseg;
+  size = ssptr->sssize;
+
+  this_segment = stkl - size;
+
+  /* It is possible that calling this routine itself caused
+     a stack overflow.  Discard stack segments which do not
+     contain the target address.  */
+
+  while (!(this_segment <= address && address <= stkl))
+    {
+#ifdef DEBUG_I00AFUNC
+      fprintf (stderr, "%011o %011o %011o\n", this_segment, address, stkl);
+#endif
+      if (pseg == 0)
+	break;
+      stkl = stkl - pseg;
+      ssptr = (struct stack_segment_linkage *) stkl;
+      size = ssptr->sssize;
+      pseg = ssptr->sspseg;
+      this_segment = stkl - size;
+    }
+
+  result = address - this_segment;
+
+  /* If you subtract pseg from the current end of the stack,
+     you get the address of the previous stack segment's end.
+     This seems a little convoluted to me, but I'll bet you save
+     a cycle somewhere.  */
+
+  while (pseg != 0)
+    {
+#ifdef DEBUG_I00AFUNC
+      fprintf (stderr, "%011o %011o\n", pseg, size);
+#endif
+      stkl = stkl - pseg;
+      ssptr = (struct stack_segment_linkage *) stkl;
+      size = ssptr->sssize;
+      pseg = ssptr->sspseg;
+      result += size;
+    }
+  return (result);
+}
+
+#endif /* not CRAY2 */
+#endif /* CRAY */
+
+#endif /* no alloca */
diff --git a/Mp/gmp-1.3.2/cre-conv-tab.c b/Mp/gmp-1.3.2/cre-conv-tab.c
new file mode 100644
index 0000000..bbb6e82
--- /dev/null
+++ b/Mp/gmp-1.3.2/cre-conv-tab.c
@@ -0,0 +1,141 @@
+/* cre-conv-tab.c -- Create conversion table in a wordsize-dependent way.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+extern double floor ();
+extern double log ();
+
+static unsigned long int
+upow (b, e)
+    unsigned long int b;
+    unsigned int e;
+{
+  unsigned long int y = 1;
+
+  while (e != 0)
+    {
+      while ((e & 1) == 0)
+	{
+	  b = b * b;
+	  e >>= 1;
+	}
+      y = y * b;
+      e -= 1;
+    }
+
+  return y;
+}
+
+unsigned int
+ulog2 (x)
+     unsigned long int x;
+{
+  unsigned int i;
+  for (i = 0;  x != 0;  i++)
+    x >>= 1;
+  return i;
+}
+
+main ()
+{
+  int i;
+  unsigned long idig;
+  unsigned long big_base, big_base_inverted;
+  double fdig;
+  int dummy;
+  int normalization_steps;
+
+  unsigned long int max_uli;
+  int bits_uli;
+
+  max_uli = 1;
+  for (i = 1; ; i++)
+    {
+      if ((max_uli << 1) == 0)
+	break;
+      max_uli <<= 1;
+    }
+  bits_uli = i;
+
+  puts ("/* __mp_bases -- Structure for conversion between internal binary");
+  puts ("   format and strings in base 2..36.  The fields are explained in");
+  puts ("   gmp-impl.h.");
+  puts ("");
+  puts ("   ***** THIS FILE WAS CREATED BY A PROGRAM.  DON'T EDIT IT! *****");
+  puts ("");
+  puts ("Copyright (C) 1991 Free Software Foundation, Inc.");
+  puts ("");
+  puts ("This file is part of the GNU MP Library.");
+  puts ("");
+  puts ("The GNU MP Library is free software; you can redistribute it and/or");
+  puts ("modify it under the terms of the GNU General Public License as");
+  puts ("published by the Free Software Foundation; either version 2, or");
+  puts ("(at your option) any later version.");
+  puts ("");
+  puts ("The GNU MP Library is distributed in the hope that it will be");
+  puts ("useful, but WITHOUT ANY WARRANTY; without even the implied warranty");
+  puts ("of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the");
+  puts ("GNU General Public License for more details.");
+  puts ("");
+  puts ("You should have received a copy of the GNU General Public License");
+  puts ("along with the GNU MP Library; see the file COPYING.  If not, write");
+  puts ("to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,");
+  puts ("USA.  */");
+  puts ("");
+  puts ("#include \"gmp.h\"");
+  puts ("#include \"gmp-impl.h\"");
+  puts ("");
+
+  puts ("const struct bases __mp_bases[37] =\n{");
+  puts ("  /*  0 */ {0, 0, 0, 0.0},");
+  puts ("  /*  1 */ {0, 0, 0, 0.0},");
+  for (i = 2; i <= 36; i++)
+    {
+      /* The weird expression here is because many /bin/cc compilers
+	 generate incorrect code for conversions from large unsigned
+	 integers to double.  */
+      fdig = log(2.0)/log((double) i);
+      idig = floor(bits_uli * fdig);
+      if ((i & (i - 1)) == 0)
+	{
+	  big_base = ulog2 (i) - 1;
+	  big_base_inverted = 0;
+	}
+      else
+	{
+	  big_base = upow (i, idig);
+	  for (normalization_steps = 0;
+	       (long int) (big_base << normalization_steps) >= 0;
+	       normalization_steps++)
+	    ;
+	  udiv_qrnnd (big_base_inverted, dummy,
+		      -(big_base << normalization_steps), 0,
+		      big_base << normalization_steps);
+	}
+      printf ("  /* %2u */ {%lu, 0x%lX, 0x%lX, %.8f},\n",
+	      i, idig, big_base, big_base_inverted, fdig);
+    }
+  puts ("};");
+
+  exit (0);
+}
diff --git a/Mp/gmp-1.3.2/cre-mparam.c b/Mp/gmp-1.3.2/cre-mparam.c
new file mode 100644
index 0000000..db0c992
--- /dev/null
+++ b/Mp/gmp-1.3.2/cre-mparam.c
@@ -0,0 +1,118 @@
+/* cre-mparam.c -- Create machine-depedent parameter file.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+
+unsigned int
+ulog2 (x)
+     unsigned long int x;
+{
+  unsigned int i;
+  for (i = 0;  x != 0;  i++)
+    x >>= 1;
+  return i;
+}
+
+main ()
+{
+  int i;
+
+  unsigned long int max_uli;
+  int bits_uli;
+
+  unsigned long int max_ui;
+  int bits_ui;
+
+  unsigned long int max_usi;
+  int bits_usi;
+
+  unsigned long int max_uc;
+  int bits_uc;
+
+  max_uli = 1;
+  for (i = 0; ; i++)
+    {
+      if (max_uli == 0)
+	break;
+      max_uli <<= 1;
+    }
+  bits_uli = i;
+
+  max_ui = 1;
+  for (i = 0; ; i++)
+    {
+      if ((unsigned int) max_ui == 0)
+	break;
+      max_ui <<= 1;
+    }
+  bits_ui = i;
+
+  max_usi = 1;
+  for (i = 0; ; i++)
+    {
+      if ((unsigned short int) max_usi == 0)
+	break;
+      max_usi <<= 1;
+    }
+  bits_usi = i;
+
+  max_uc = 1;
+  for (i = 0; ; i++)
+    {
+      if ((unsigned char) max_uc == 0)
+	break;
+      max_uc <<= 1;
+    }
+  bits_uc = i;
+
+  puts ("/* gmp-mparam.h -- Compiler/machine parameter header file.");
+  puts ("");
+  puts ("   ***** THIS FILE WAS CREATED BY A PROGRAM.  DON'T EDIT IT! *****");
+  puts ("");
+  puts ("Copyright (C) 1991 Free Software Foundation, Inc.");
+  puts ("");
+  puts ("This file is part of the GNU MP Library.");
+  puts ("");
+  puts ("The GNU MP Library is free software; you can redistribute it and/or");
+  puts ("modify it under the terms of the GNU General Public License as");
+  puts ("published by the Free Software Foundation; either version 2, or");
+  puts ("(at your option) any later version.");
+  puts ("");
+  puts ("The GNU MP Library is distributed in the hope that it will be");
+  puts ("useful, but WITHOUT ANY WARRANTY; without even the implied warranty");
+  puts ("of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the");
+  puts ("GNU General Public License for more details.");
+  puts ("");
+  puts ("You should have received a copy of the GNU General Public License");
+  puts ("along with the GNU MP Library; see the file COPYING.  If not, write");
+  puts ("to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,");
+  puts ("USA.  */");
+  puts ("");
+
+  printf ("#define BITS_PER_MP_LIMB %d\n", bits_uli);
+  printf ("#define BYTES_PER_MP_LIMB %d\n", sizeof(mp_limb));
+
+  printf ("#define BITS_PER_LONGINT %d\n", bits_uli);
+  printf ("#define BITS_PER_INT %d\n", bits_ui);
+  printf ("#define BITS_PER_SHORTINT %d\n", bits_usi);
+  printf ("#define BITS_PER_CHAR %d\n", bits_uc);
+
+  exit (0);
+}
diff --git a/Mp/gmp-1.3.2/cre-stddefh.c b/Mp/gmp-1.3.2/cre-stddefh.c
new file mode 100644
index 0000000..4e1f862
--- /dev/null
+++ b/Mp/gmp-1.3.2/cre-stddefh.c
@@ -0,0 +1,42 @@
+/* cre-stddefh.c -- Check the size of a pointer and output an
+   appropriate size_t declaration.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  if (sizeof (int *) == sizeof (unsigned long int))
+    puts ("typedef unsigned long int size_t;");
+  else
+  if (sizeof (int *) == sizeof (unsigned int))
+    puts ("typedef unsigned int size_t;");
+  else
+    {
+      fprintf (stderr,
+	       "%s: Can't find a reasonable definition for \"size_t\".\n",
+	       argv[0]);
+      exit (1);
+    }
+
+  exit (0);
+}
diff --git a/Mp/gmp-1.3.2/gmp-impl.h b/Mp/gmp-1.3.2/gmp-impl.h
new file mode 100644
index 0000000..e02691f
--- /dev/null
+++ b/Mp/gmp-1.3.2/gmp-impl.h
@@ -0,0 +1,126 @@
+/* Include file for internal GNU MP types and definitions.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.   */
+
+#if defined (__GNUC__) || defined (__sparc__) || defined (sparc)
+#define alloca __builtin_alloca
+#endif
+
+#ifndef NULL
+#define NULL 0L
+#endif
+
+#if defined (__GNUC__)
+volatile void abort (void);
+#else
+#define inline			/* Empty */
+void *alloca();
+#endif
+
+#define ABS(x) (x >= 0 ? x : -x)
+
+#include "gmp-mparam.h"
+
+#ifdef __STDC__
+void *malloc (size_t);
+void *realloc (void *, size_t);
+void free (void *);
+
+extern void *	(*_mp_allocate_func) (size_t);
+extern void *	(*_mp_reallocate_func) (void *, size_t, size_t);
+extern void	(*_mp_free_func) (void *, size_t);
+
+void *_mp_default_allocate (size_t);
+void *_mp_default_reallocate (void *, size_t, size_t);
+void _mp_default_free (void *, size_t);
+
+char *_mpz_get_str (char *, int, const MP_INT *);
+int _mpz_set_str (MP_INT *, const char *, int);
+void _mpz_impl_sqrt (MP_INT *, MP_INT *, const MP_INT *);
+#else
+#define const			/* Empty */
+#define signed			/* Empty */
+
+void *malloc ();
+void *realloc ();
+void free ();
+
+extern void *	(*_mp_allocate_func) ();
+extern void *	(*_mp_reallocate_func) ();
+extern void	(*_mp_free_func) ();
+
+void *_mp_default_allocate ();
+void *_mp_default_reallocate ();
+void _mp_default_free ();
+
+char *_mpz_get_str ();
+int _mpz_set_str ();
+void _mpz_impl_sqrt ();
+#endif
+
+/* Copy NLIMBS *limbs* from SRC to DST.  */
+#define MPN_COPY(DST, SRC, NLIMBS) \
+  do {									\
+    mp_size i;								\
+    for (i = 0; i < (NLIMBS); i++)					\
+      (DST)[i] = (SRC)[i];						\
+  } while (0)
+/* Zero NLIMBS *limbs* AT DST.  */
+#define MPN_ZERO(DST, NLIMBS) \
+  do {									\
+    mp_size i;								\
+    for (i = 0; i < (NLIMBS); i++)					\
+      (DST)[i] = 0;							\
+  } while (0)
+
+/* Initialize the MP_INT X with space for NLIMBS limbs.
+   X should be a temporary variable, and it will be automatically
+   cleared out when the running function returns.  */
+#define MPZ_TMP_INIT(X, NLIMBS) \
+  do {									\
+    (X)->alloc = (NLIMBS);						\
+    (X)->d = (mp_ptr) alloca ((NLIMBS) * BYTES_PER_MP_LIMB);		\
+  } while (0)
+
+/* Structure for conversion between internal binary format and
+   strings in base 2..36.  */
+struct bases
+{
+  /* Number of digits in the conversion base that always fits in
+     an mp_limb.  For example, for base 10 this is 10, since
+     2**32 = 4294967296 has ten digits.  */
+  int chars_per_limb;
+
+  /* big_base is conversion_base**chars_per_limb, i.e. the biggest
+     number that fits a word, built by factors of conversion_base.
+     Exception: For 2, 4, 8, etc, big_base is log2(base), i.e. the
+     number of bits used to represent each digit in the base.  */
+  mp_limb big_base;
+
+  /* big_base_inverted is a BITS_PER_MP_LIMB bit approximation to
+     1/big_base, represented as a fixed-point number.  Instead of
+     dividing by big_base an application can choose to multiply
+     by big_base_inverted.  */
+  mp_limb big_base_inverted;
+
+  /* log(2)/log(conversion_base) */
+  float chars_per_bit_exactly;
+};
+
+extern const struct bases __mp_bases[37];
diff --git a/Mp/gmp-1.3.2/gmp.h b/Mp/gmp-1.3.2/gmp.h
new file mode 100644
index 0000000..91ee7af
--- /dev/null
+++ b/Mp/gmp-1.3.2/gmp.h
@@ -0,0 +1,302 @@
+/* gmp.h -- Definitions for GNU multiple precision functions.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifndef __GMP_H__
+#define __GMP_H__
+
+#define __GNU_MP__
+
+#ifndef __MP_H__
+#define __need_size_t
+#include <stddef.h>
+#endif
+
+#ifndef MINT
+#ifndef __MP_SMALL__
+typedef struct
+{
+  long int alloc;		/* Number of *limbs* allocated and pointed
+				   to by the D field.  */
+  long int size;		/* abs(SIZE) is the number of limbs
+				   the last field points to.  If SIZE
+				   is negative this is a negative
+				   number.  */
+  unsigned long int *d;		/* Pointer to the limbs.  */
+} __MP_INT;
+#else
+typedef struct
+{
+  short int alloc;		/* Number of *limbs* allocated and pointed
+				   to by the D field.  */
+  short int size;		/* abs(SIZE) is the number of limbs
+				   the last field points to.  If SIZE
+				   is negative this is a negative
+				   number.  */
+  unsigned long int *d;		/* Pointer to the limbs.  */
+} __MP_INT;
+#endif
+#endif
+
+#define MP_INT __MP_INT
+
+typedef unsigned long int	mp_limb;
+typedef long int		mp_limb_signed;
+typedef mp_limb *		mp_ptr;
+#ifdef __STDC__
+typedef const mp_limb *		mp_srcptr;
+#else
+typedef mp_limb *		mp_srcptr;
+#endif
+typedef long int		mp_size;
+
+/* Structure for rational numbers.  Zero is represented as 0/any, i.e.
+   the denominator is ignored.  Negative numbers have the sign in
+   the numerator.  */
+typedef struct
+{
+  MP_INT num;
+  MP_INT den;
+#if 0
+  long int num_alloc;		/* Number of limbs allocated
+				   for the numerator.  */
+  long int num_size;		/* The absolute value of this field is the
+				   length of the numerator; the sign is the
+				   sign of the entire rational number.  */
+  mp_ptr num;			/* Pointer to the numerator limbs.  */
+  long int den_alloc;		/* Number of limbs allocated
+				   for the denominator.  */
+  long int den_size;		/* Length of the denominator.  (This field
+				   should always be positive.) */
+  mp_ptr den;			/* Pointer to the denominator limbs.  */
+#endif
+} MP_RAT;
+
+#ifdef __STDC__
+void mp_set_memory_functions (void *(*) (size_t),
+			      void *(*) (void *, size_t, size_t),
+			      void (*) (void *, size_t));
+
+/**************** Integer (i.e. Z) routines.  ****************/
+
+void mpz_init (MP_INT *);
+void mpz_set (MP_INT *, const MP_INT *);
+void mpz_set_ui (MP_INT *, unsigned long int);
+void mpz_set_si (MP_INT *, signed long int);
+int mpz_set_str (MP_INT *, const char *, int);
+void mpz_init_set (MP_INT *, const MP_INT *);
+void mpz_init_set_ui (MP_INT *, unsigned long int);
+void mpz_init_set_si (MP_INT *, signed long int);
+int mpz_init_set_str (MP_INT *, const char *, int);
+unsigned long int mpz_get_ui (const MP_INT *);
+signed long int mpz_get_si (const MP_INT *);
+char * mpz_get_str (char *, int, const MP_INT *);
+void mpz_clear (MP_INT *);
+void * _mpz_realloc (MP_INT *, mp_size);
+void mpz_add (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_add_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_sub (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_sub_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mul (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_mul_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_div (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_div_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mod (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_mod_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_divmod (MP_INT *, MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_divmod_ui (MP_INT *, MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mdiv (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_mdiv_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mmod (MP_INT *, const MP_INT *, const MP_INT *);
+unsigned long int mpz_mmod_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mdivmod (MP_INT *, MP_INT *, const MP_INT *, const MP_INT *);
+unsigned long int mpz_mdivmod_ui (MP_INT *, MP_INT *, const MP_INT *,
+				  unsigned long int);
+void mpz_sqrt (MP_INT *, const MP_INT *);
+void mpz_sqrtrem (MP_INT *, MP_INT *, const MP_INT *);
+int mpz_perfect_square_p (const MP_INT *);
+int mpz_probab_prime_p (const MP_INT *, int);
+void mpz_powm (MP_INT *, const MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_powm_ui (MP_INT *, const MP_INT *, unsigned long int, const MP_INT *);
+void mpz_pow_ui (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_fac_ui (MP_INT *, unsigned long int);
+void mpz_gcd (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_gcdext (MP_INT *, MP_INT *, MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_neg (MP_INT *, const MP_INT *);
+void mpz_com (MP_INT *, const MP_INT *);
+void mpz_abs (MP_INT *, const MP_INT *);
+int mpz_cmp (const MP_INT *, const MP_INT *);
+int mpz_cmp_ui (const MP_INT *, unsigned long int);
+int mpz_cmp_si (const MP_INT *, signed long int);
+void mpz_mul_2exp (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_div_2exp (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_mod_2exp (MP_INT *, const MP_INT *, unsigned long int);
+void mpz_and (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_ior (MP_INT *, const MP_INT *, const MP_INT *);
+void mpz_xor (MP_INT *, const MP_INT *, const MP_INT *);
+
+#if defined (FILE) || defined (_STDIO_H) || defined (__STDIO_H__)
+void mpz_inp_raw (MP_INT *, FILE *);
+void mpz_inp_str (MP_INT *, FILE *, int);
+void mpz_out_raw (FILE *, const MP_INT *);
+void mpz_out_str (FILE *, int, const MP_INT *);
+#endif
+
+void mpz_array_init (MP_INT [], size_t, mp_size);
+void mpz_random (MP_INT *, mp_size);
+void mpz_random2 (MP_INT *, mp_size);
+size_t mpz_size (const MP_INT *);
+size_t mpz_sizeinbase (const MP_INT *, int);
+
+/**************** Rational (i.e. Q) routines.  ****************/
+
+void mpq_init (MP_RAT *);
+void mpq_clear (MP_RAT *);
+void mpq_set (MP_RAT *, const MP_RAT *);
+void mpq_set_ui (MP_RAT *, unsigned long int, unsigned long int);
+void mpq_set_si (MP_RAT *, signed long int, unsigned long int);
+void mpq_add (MP_RAT *, const MP_RAT *, const MP_RAT *);
+void mpq_sub (MP_RAT *, const MP_RAT *, const MP_RAT *);
+void mpq_mul (MP_RAT *, const MP_RAT *, const MP_RAT *);
+void mpq_div (MP_RAT *, const MP_RAT *, const MP_RAT *);
+void mpq_neg (MP_RAT *, const MP_RAT *);
+int mpq_cmp (const MP_RAT *, const MP_RAT *);
+void mpq_inv (MP_RAT *, const MP_RAT *);
+void mpq_set_num (MP_RAT *, const MP_INT *);
+void mpq_set_den (MP_RAT *, const MP_INT *);
+void mpq_get_num (MP_INT *, const MP_RAT *);
+void mpq_get_den (MP_INT *, const MP_RAT *);
+
+/************ Low level positive-integer (i.e. N) routines.  ************/
+
+mp_limb mpn_add (mp_ptr, mp_srcptr, mp_size, mp_srcptr, mp_size);
+mp_size mpn_sub (mp_ptr, mp_srcptr, mp_size, mp_srcptr, mp_size);
+mp_size mpn_mul (mp_ptr, mp_srcptr, mp_size, mp_srcptr, mp_size);
+mp_size mpn_div (mp_ptr, mp_ptr, mp_size, mp_srcptr, mp_size);
+mp_limb mpn_divmod_1 (mp_ptr, mp_srcptr, mp_size, mp_limb);
+mp_limb mpn_mod_1 (mp_srcptr, mp_size, mp_limb);
+mp_limb mpn_lshift (mp_ptr, mp_srcptr, mp_size, unsigned int);
+mp_size mpn_rshift (mp_ptr, mp_srcptr, mp_size, unsigned int);
+mp_size mpn_rshiftci (mp_ptr, mp_srcptr, mp_size, unsigned int, mp_limb);
+mp_size mpn_sqrt (mp_ptr, mp_ptr, mp_srcptr, mp_size);
+int mpn_cmp (mp_srcptr, mp_srcptr, mp_size);
+
+#else /* ! __STDC__ */
+void mp_set_memory_functions ();
+
+/**************** Integer (i.e. Z) routines.  ****************/
+
+void mpz_init ();
+void mpz_set ();
+void mpz_set_ui ();
+void mpz_set_si ();
+int mpz_set_str ();
+void mpz_init_set ();
+void mpz_init_set_ui ();
+void mpz_init_set_si ();
+int mpz_init_set_str ();
+unsigned long int mpz_get_ui ();
+long int mpz_get_si ();
+char * mpz_get_str ();
+void mpz_clear ();
+void * _mpz_realloc ();
+void mpz_add ();
+void mpz_add_ui ();
+void mpz_sub ();
+void mpz_sub_ui ();
+void mpz_mul ();
+void mpz_mul_ui ();
+void mpz_div ();
+void mpz_div_ui ();
+void mpz_mod ();
+void mpz_mod_ui ();
+void mpz_divmod ();
+void mpz_divmod_ui ();
+void mpz_mdiv ();
+void mpz_mdiv_ui ();
+void mpz_mmod ();
+unsigned long int mpz_mmod_ui ();
+void mpz_mdivmod ();
+unsigned long int mpz_mdivmod_ui ();
+void mpz_sqrt ();
+void mpz_sqrtrem ();
+int mpz_perfect_square_p ();
+int mpz_probab_prime_p ();
+void mpz_powm ();
+void mpz_powm_ui ();
+void mpz_pow_ui ();
+void mpz_fac_ui ();
+void mpz_gcd ();
+void mpz_gcdext ();
+void mpz_neg ();
+void mpz_com ();
+void mpz_abs ();
+int mpz_cmp ();
+int mpz_cmp_ui ();
+int mpz_cmp_si ();
+void mpz_mul_2exp ();
+void mpz_div_2exp ();
+void mpz_mod_2exp ();
+void mpz_and ();
+void mpz_ior ();
+void mpz_xor ();
+
+void mpz_inp_raw ();
+void mpz_inp_str ();
+void mpz_out_raw ();
+void mpz_out_str ();
+
+void mpz_array_init ();
+void mpz_random ();
+void mpz_random2 ();
+size_t mpz_size ();
+size_t mpz_sizeinbase ();
+
+/**************** Rational (i.e. Q) routines.  ****************/
+
+void mpq_init ();
+void mpq_clear ();
+void mpq_set ();
+void mpq_set_ui ();
+void mpq_set_si ();
+void mpq_add ();
+void mpq_sub ();
+void mpq_mul ();
+void mpq_div ();
+void mpq_neg ();
+int mpq_cmp ();
+void mpq_inv ();
+void mpq_set_num ();
+void mpq_set_den ();
+void mpq_get_num ();
+void mpq_get_den ();
+
+/************ Low level positive-integer (i.e. N) routines.  ************/
+
+mp_limb mpn_add ();
+mp_size mpn_sub ();
+mp_size mpn_mul ();
+mp_size mpn_div ();
+mp_limb mpn_lshift ();
+mp_size mpn_rshift ();
+mp_size mpn_rshiftci ();
+int mpn_cmp ();
+#endif /* __STDC__ */
+
+#endif /* __GMP_H__ */
diff --git a/Mp/gmp-1.3.2/gmp.texi b/Mp/gmp-1.3.2/gmp.texi
new file mode 100644
index 0000000..7aaa88b
--- /dev/null
+++ b/Mp/gmp-1.3.2/gmp.texi
@@ -0,0 +1,1291 @@
+\input texinfo    @c -*-texinfo-*-
+@comment %**start of header
+@setfilename gmp.info
+@settitle GNU MP 1.3.2
+@synindex tp fn
+@c footnotestyle separate
+@c paragraphindent 2
+@comment %**end of header
+
+@c smallbook
+
+@iftex
+@finalout
+@end iftex
+
+@c Note: the edition number is listed in *three* places; please update
+@c all three.  Also, update the month and year where appropriate.
+
+@c ==> Update edition number for settitle and subtitle, and in the
+@c ==> following paragraph; update date, too.
+
+@ifinfo
+This file documents GNU MP, a library for arbitrary-precision integer
+and rational number arithmetic.
+
+This is a draft edition of the documentation, last updated May 20 1993.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+@ignore
+Permission is granted to process this file through TeX and print the
+results, provided the printed document carries copying permission
+notice identical to this one except for the removal of this paragraph
+(this paragraph not being relevant to the printed manual).
+
+@end ignore
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation approved
+by the Foundation.
+@end ifinfo
+
+@setchapternewpage odd
+@titlepage
+@c  use the new format for titles
+
+@title GNU MP
+@subtitle The GNU Multiple Precision Arithmetic Library
+@subtitle Edition 1.3.2
+@subtitle May 1993
+
+@author by Torbj@"orn Granlund
+
+@comment   Include the Distribution inside the titlepage so
+@c that headings are turned off.
+
+@page
+@vskip 0pt plus 1filll
+Copyright @copyright{} 1991, 1993 Free Software Foundation, Inc.
+
+@sp 2
+
+Published by the Free Software Foundation @*
+675 Massachusetts Avenue, @*
+Cambridge, MA 02139 USA @*
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation approved
+by the Foundation.
+@end titlepage
+
+@ifinfo
+@node Top, Copying, (dir), (dir)
+@end ifinfo
+
+@menu
+* Copying::                  GMP Copying Conditions.
+* Intro::                    Introduction to GMP.
+* Nomenclature::             Terminology and basic data types.
+* Initialization::           Initialization of multi-precision number objects.
+* Integer Functions::        Functions for arithmetic on signed integers.
+* Rational Number Functions:: Functions for arithmetic on rational numbers.
+* Low-level Functions::      Fast functions for natural numbers.
+* BSD Compatible Functions:: All functions found in BSD MP (somewhat faster).
+* Miscellaneous Functions::  Functions that do particular things.
+* Custom Allocation::        How to customize the internal allocation.
+* Reporting Bugs::           Help us to improve this library.
+
+* References::
+* Concept Index::
+* Function Index::
+@end menu
+
+@node Copying, Intro, Top, Top
+@comment  node-name, next, previous,  up
+@unnumbered GNU MP Copying Conditions
+@cindex Copying conditions
+@cindex Conditions for copying GNU MP
+
+This library is @dfn{free}; this means that everyone is free to use it
+and free to redistribute it on a free basis.  The library is not in the
+public domain; it is copyrighted and there are restrictions on its
+distribution, but these restrictions are designed to permit everything
+that a good cooperating citizen would want to do.  What is not allowed
+is to try to prevent others from further sharing any version of this
+library that they might get from you.@refill
+
+  Specifically, we want to make sure that you have the right to give
+away copies of the library, that you receive source code or else can get
+it if you want it, that you can change this library or use pieces of it
+in new free programs, and that you know you can do these things.@refill
+
+  To make sure that everyone has such rights, we have to forbid you to
+deprive anyone else of these rights.  For example, if you distribute
+copies of the GMP library, you must give the recipients all the rights
+that you have.  You must make sure that they, too, receive or can get
+the source code.  And you must tell them their rights.@refill
+
+  Also, for our own protection, we must make certain that everyone finds
+out that there is no warranty for the GMP library.  If it is modified by
+someone else and passed on, we want their recipients to know that what
+they have is not what we distributed, so that any problems introduced by
+others will not reflect on our reputation.@refill
+
+  The precise conditions of the license for the GMP library are found in
+the General Public License that accompany the source code.@refill
+
+@node Intro, Initialization, Copying, Top
+@comment  node-name,  next,  previous,  up
+@chapter Introduction to MP
+@cindex Introduction
+@cindex Overview
+
+GNU MP is a portable library for arbitrary precision integer and
+rational number arithmetic.@footnote{The limit of the precision is set by the
+available memory in your computer.}  It aims to provide the fastest
+possible arithmetic for all applications that need more than two words
+of integer precision.
+
+Most often, applications tend to use just a few words of precision;
+but some applications may need thousands of words.  GNU MP is designed
+to give good performance for both kinds of applications, by choosing
+algorithms based on the sizes of the operands.
+
+There are five groups of functions in the MP library:
+
+@enumerate
+@item
+Functions for signed integer arithmetic, with names
+beginning with @code{mpz_}.
+
+@item
+Functions for rational number arithmetic, with names beginning with
+@code{mpq_}.
+
+@item
+Functions compatible with Berkeley MP, such as @code{itom}, @code{madd},
+and @code{mult}.
+
+@item
+Fast low-level functions that operate on natural numbers.  These are
+used by the functions in the preceding groups, and you can also call
+them directly from very time-critical user programs.  These functions'
+names begin with @code{mpn_}.
+
+@item
+Miscellaneous functions.
+@end enumerate
+
+As a general rule, all MP functions expect output arguments before input
+arguments.  This notation is based on an analogy with the assignment
+operator.  (The BSD MP compatibility functions disobey this rule, having
+the output argument(s) last.)  Multi-precision numbers, whether
+output or input, are always passed as addresses to the declared type.
+
+@menu
+* Nomenclature::
+* Thanks::
+@end menu
+
+@node Nomenclature, Thanks, Intro, Intro
+@comment  node-name,  next,  previous,  up
+@section Nomenclature and Data Types
+@cindex nomenclature
+
+@cindex integer
+@tindex @code{MP_INT}
+In this manual, @dfn{integer} means a multiple precision integer, as
+used in the MP package.  The C data type for such integers is
+@code{MP_INT}.  For example:
+
+@example
+MP_INT sum;
+
+struct foo @{ MP_INT x, y; @};
+
+MP_INT vec[20];
+@end example
+
+@cindex rational number
+@tindex @code{MP_RAT}
+@dfn{Rational number} means a multiple precision fraction.  The C data
+type for these fractions is @code{MP_RAT}.  For example:
+
+@example
+MP_RAT quotient;
+@end example
+
+@cindex limb
+A @dfn{limb} means the part of a multi-precision number that fits in a
+single word.  (We chose this word because a limb of the human body is
+analogous to a digit, only larger, and containing several digits.)
+Normally a limb contains 32 bits.
+
+@node Thanks,, Nomenclature, Intro
+@comment  node-name,  next,  previous,  up
+@section Thanks
+
+I would like to thank Gunnar Sjoedin and Hans Riesel for their help with
+mathematical problems, Richard Stallman for his help with design issues
+and for revising this manual, Brian Beuning and Doug Lea for their
+testing of various versions of the library, and Joachim Hollman for
+his many valuable suggestions.
+
+Special thanks to Brian Beuning, he has shaked out many bugs from early
+versions of the code!
+
+John Amanatides of York University in Canada contributed the function
+@code{mpz_probab_prime_p}.
+
+@node Initialization, Integer Functions, Intro, Top
+@comment  node-name,  next,  previous,  up
+@chapter Initialization
+
+Before you can use a variable or object of type @code{MP_INT} or
+@code{MP_RAT}, you must initialize it.  This fills in the components
+that point to dynamically allocated space for the limbs of the number.
+
+When you are finished using the object, you should clear out the object.
+This frees the dynamic space that it points to, so the space can be used
+again.
+
+Once you have initialized the object, you need not be concerned about
+allocating additional space.  The functions in the MP package
+automatically allocate additional space when the object does not already
+have enough space.  They do not, however, reduce the space in use when a
+smaller number is stored in the object.  Most of the time, this policy
+is best, since it avoids frequent re-allocation.  If you want to reduce
+the space in an object to the minimum needed, you can do
+@code{_mpz_realloc (&@var{object}, mpz_size (&@var{object}))}.
+
+The functions to initialize numbers are @code{mpz_init} (for @code{MP_INT}) and
+@code{mpq_init} (for @code{MP_RAT}).
+
+@code{mpz_init} allocates space for the limbs, and stores a pointer
+to that space in the @code{MP_INT} object.  It also stores the value 0
+in the object.
+
+In the same manner, @code{mpq_init} allocates space for the numerator
+and denominator limbs, and stores pointers to these spaces in the @code{MP_RAT}
+object.
+
+To clear out a number object, use @code{mpz_clear} and @code{mpq_clear},
+respectively.
+
+Here is an example of use:
+
+@example
+@{
+  MP_INT temp;
+  mpz_init (&temp);
+
+  @dots{} @r{store and read values in @code{temp} zero or more times} @dots{}
+
+  mpz_clear (&temp):
+@}
+@end example
+
+You might be tempted to copy an integer from one object to another like
+this:
+
+@example
+MP_INT x, y;
+
+x = y;
+@end example
+
+Although valid C, @strong{this is an error.} Rather than copying the
+integer value from @code{y} to @code{x} it will make the two variables
+share storage.  Subsequent assignments to one variable would change the
+other mysteriously.  And if you were to clear out both variables
+subsequently, you would confuse @code{malloc} and cause your program to
+crash.
+
+To copy the value properly, you must use the function @code{mpz_set}.
+(@pxref{Assigning Integers})
+
+@node Integer Functions, Rational Number Functions, Initialization, Top
+@comment  node-name,  next,  previous,  up
+@chapter Integer Functions
+@cindex Integer functions
+
+This chapter describes the MP functions for performing integer arithmetic.
+
+The integer functions use arguments and values of type
+pointer-to-@code{MP_INT} (@pxref{Nomenclature}).  The type @code{MP_INT}
+is a structure, but applications should not refer directly to its
+components.  Include the header @file{gmp.h} to get the definition of
+@code{MP_INT}.
+
+@menu
+* Initializing Integers::
+* Assigning Integers::
+* Simultaneous Integer Init & Assign::
+* Converting Integers::
+* Integer Arithmetic::
+* Logic on Integers::
+* I/O of Integers::
+@end menu
+
+@node Initializing Integers, Assigning Integers, , Integer Functions
+@comment  node-name,  next,  previous,  up
+@section Initializing Integer Objects
+
+Most of the functions for integer arithmetic assume that the output is
+stored in an object already initialized.  For example, @code{mpz_add}
+stores the result of addition (@pxref{Integer Arithmetic}).  Thus, you
+must initialize the object before storing the first value in it.  You
+can do this separately by calling the function @code{mpz_init}.
+
+@deftypefun void mpz_init (MP_INT *@var{integer})
+Initialize @var{integer} with limb space and set the initial numeric
+value to 0.  Each variable should normally only be initialized once,
+or at least cleared out (using @code{mpz_clear}) between each initialization.
+@end deftypefun
+
+Here is an example of using @code{mpz_init}:
+
+@example
+@{
+  MP_INT integ;
+  mpz_init (&integ);
+  @dots{}
+  mpz_add (&integ, @dots{});
+  @dots{}
+  mpz_sub (&integ, @dots{});
+
+  /* Unless you are now exiting the program, do ... */
+  mpz_clear (&integ);
+@}
+@end example
+
+@noindent
+As you can see, you can store new values any number of times, once an
+object is initialized.
+
+@deftypefun void mpz_clear (MP_INT *@var{integer})
+Free the limb space occupied by @var{integer}.  Make sure to call this
+function for all @code{MP_INT} variables when you are done with them.
+@end deftypefun
+
+@deftypefun {void *} _mpz_realloc (MP_INT *@var{integer}, mp_size @var{new_alloc})
+Change the limb space allocation to @var{new_alloc} limbs.  This
+function is not normally called from user code, but it can be used to
+give memory back to the heap, or to increase the space of a variable to
+avoid repeated automatic re-allocation.
+@end deftypefun
+
+@deftypefun void mpz_array_init (MP_INT @var{integer_array}[], size_t @var{array_size}, mp_size @var{fixed_num_limbs})
+Allocate @strong{fixed} limb space for all @var{array_size} integers in
+@var{integer_array}.  The fixed allocation for each integer in the array
+is @var{fixed_num_limbs}.  This function is useful for decreasing the
+working set for some algorithms that use large integer arrays.  If the
+fixed space will be insufficient for storing the result of a subsequent
+calculation, the result is unpredictable.
+
+There is no way to de-allocate the storage allocated by this function.  Don't
+call @code{mpz_clear}!
+@end deftypefun
+
+
+@node Assigning Integers, Simultaneous Integer Init & Assign, Initializing Integers, Integer Functions
+@comment  node-name,  next,  previous,  up
+@subsection Integer Assignment Functions
+@cindex Integer assignment functions
+
+These functions assign new values to already initialized integers
+(@pxref{Initializing Integers}).
+
+@deftypefun void mpz_set (MP_INT *@var{dest_integer}, MP_INT *@var{src_integer})
+Assign @var{dest_integer} from @var{src_integer}.
+@end deftypefun
+
+@deftypefun void mpz_set_ui (MP_INT *@var{integer}, unsigned long int @var{initial_value})
+Set the value of @var{integer} from @var{initial_value}.
+@end deftypefun
+
+@deftypefun void mpz_set_si (MP_INT *@var{integer}, signed long int @var{initial_value})
+Set the value of @var{integer} from @var{initial_value}.
+@end deftypefun
+
+@deftypefun int mpz_set_str (MP_INT *@var{integer}, char *@var{initial_value}, int @var{base})
+Set the value of @var{integer} from @var{initial_value},
+a '\0'-terminated C string in base @var{base}.  White space is allowed in
+the string, and is simply ignored.  The base may vary from 2 to 36.  If
+@var{base} is 0, the actual base is determined from the leading characters: if
+the first two characters are `0x' or `0X', hexadecimal is assumed,
+otherwise if the first character is `0', octal is assumed, otherwise
+decimal is assumed.
+
+This function returns 0 if the entire string up to the '\0' is a valid
+number in base @var{base}.  Otherwise it returns @minus{}1.
+@end deftypefun
+
+
+@node Simultaneous Integer Init & Assign, Converting Integers, Assigning Integers, Integer Functions
+@comment  node-name,  next,  previous,  up
+@subsection Combined Initialization and Assignment Functions
+@cindex Initialization and assignment functions, combined
+
+For your convenience, MP provides a parallel series of
+initialize-and-set arithmetic functions which initialize the output and
+then store the value there.  These functions' names have the form
+@code{mpz_init_set@dots{}}.
+
+Here is an example of using one:
+
+@example
+@{
+  MP_INT integ;
+  mpz_init_set_str (&integ, "3141592653589793238462643383279502884", 10);
+  @dots{}
+  mpz_sub (&integ, @dots{});
+
+  mpz_clear (&integ);
+@}
+@end example
+
+Once the integer has been initialized by any of the
+@code{mpz_init_set@dots{}} functions, it can be used as the source or
+destination operand for the ordinary integer functions.  Don't use an
+initialize-and-set function on a variable already initialized!
+
+@deftypefun void mpz_init_set (MP_INT *@var{dest_integer}, MP_INT *@var{src_integer})
+Initialize @var{dest_integer} with limb space and set the initial numeric
+value from @var{src_integer}.
+@end deftypefun
+
+@deftypefun void mpz_init_set_ui (MP_INT *@var{dest_integer}, unsigned long int @var{src_ulong})
+Initialize @var{dest_integer} with limb space and set the initial numeric
+value from @var{src_ulong}.
+@end deftypefun
+
+@deftypefun void mpz_init_set_si (MP_INT *@var{dest_integer}, signed long int @var{src_slong})
+Initialize @var{dest_integer} with limb space and set the initial numeric
+value from @var{src_slong}.
+@end deftypefun
+
+@deftypefun int mpz_init_set_str (MP_INT *@var{dest_integer}, char *@var{src_cstring}, int @var{base})
+Initialize @var{dest_integer} with limb space and set the initial
+numeric value from @var{src_cstring}, a '\0'-terminated C string in base
+@var{base}.  The base may vary from 2 to 36.  There may be white space
+in the string.
+
+If the string is a correct base @var{base} number, the function returns
+0; if an error occurs it returns @minus{}1.  @var{dest_integer} is
+initialized even if an error occurs.  (I.e., you have to call mpz_clear
+for it.)
+@end deftypefun
+
+
+@node Converting Integers,  Integer Arithmetic, Simultaneous Integer Init & Assign, Integer Functions
+@comment  node-name,  next,  previous,  up
+@section Conversion Functions
+@cindex Conversion functions
+
+@deftypefun {unsigned long int} mpz_get_ui (MP_INT *@var{src_integer})
+Return the least significant limb from @var{src_integer}.  This
+function together with @*
+@code{mpz_div_2exp(@dots{}, @var{src_integer}, CHAR_BIT*sizeof(unsigned
+long int))} can be used to extract the limbs of an integer efficiently.
+@end deftypefun
+
+@deftypefun {signed long int} mpz_get_si (MP_INT *@var{src_integer})
+If @var{src_integer} fits into a @code{signed long int} return the value
+of @var{src_integer}.  Otherwise return the least significant bits of
+@var{src_integer}, with the same sign as @var{src_integer}.
+@end deftypefun
+
+@deftypefun {char *} mpz_get_str (char *@var{string}, int @var{base}, MP_INT *@var{integer})
+Convert @var{integer} to a '\0'-terminated C string in @var{string},
+using base @var{base}.  The base may vary from 2 to 36.  If @var{string}
+is NULL, space for the string is allocated using the default allocation
+function.
+
+If @var{string} is not NULL, it should point to a block of storage
+enough large for the result.  To find out the right amount of space to
+provide for @var{string}, use @code{mpz_sizeinbase (@var{integer},
+@var{base}) + 2}.  The "+ 2" is for a possible minus sign, and for the
+terminating null character.  (@pxref{Miscellaneous Functions}).
+
+This function returns a pointer to the result string.
+@end deftypefun
+
+
+@node     Integer Arithmetic, Logic on Integers, Converting Integers, Integer Functions
+@comment  node-name,  next,  previous,  up
+@section Integer Arithmetic Functions
+@cindex Integer arithmetic functions
+@cindex Arithmetic functions
+
+@deftypefun void mpz_add (MP_INT *@var{sum}, MP_INT *@var{addend1}, MP_INT *@var{addend2})
+@end deftypefun
+@deftypefun void mpz_add_ui (MP_INT *@var{sum}, MP_INT *@var{addend1}, unsigned long int @var{addend2})
+Set @var{sum} to @var{addend1} + @var{addend2}.
+@end deftypefun
+
+@deftypefun void mpz_sub (MP_INT *@var{difference}, MP_INT *@var{minuend}, MP_INT *@var{subtrahend})
+@end deftypefun
+@deftypefun void mpz_sub_ui (MP_INT *@var{difference}, MP_INT *@var{minuend}, unsigned long int @var{subtrahend})
+Set @var{difference} to @var{minuend} @minus{} @var{subtrahend}.
+@end deftypefun
+
+@deftypefun void mpz_mul (MP_INT *@var{product}, MP_INT *@var{multiplicator}, MP_INT *@var{multiplicand})
+@end deftypefun
+@deftypefun void mpz_mul_ui (MP_INT *@var{product}, MP_INT *@var{multiplicator}, unsigned long int @var{multiplicand})
+Set @var{product} to @var{multiplicator} times @var{multiplicand}.
+@end deftypefun
+
+Division is undefined if the divisor is zero, and passing a zero divisor
+to the divide or modulo functions, as well passing a zero mod argument
+to the powm functions, will make these functions intentionally divide by
+zero.  This gives the user the possibility to handle arithmetic
+exceptions in these functions in the same manner as other arithmetic
+exceptions.
+
+@deftypefun void mpz_div (MP_INT *@var{quotient}, MP_INT *@var{dividend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun void mpz_div_ui (MP_INT *@var{quotient}, MP_INT *@var{dividend}, unsigned long int @var{divisor})
+Set @var{quotient} to @var{dividend} / @var{divisor}.  The quotient is
+rounded towards 0.
+@end deftypefun
+
+@deftypefun void mpz_mod (MP_INT *@var{remainder}, MP_INT *@var{divdend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun void mpz_mod_ui (MP_INT *@var{remainder}, MP_INT *@var{divdend}, unsigned long int @var{divisor})
+Divide @var{dividend} and @var{divisor} and put the remainder in
+@var{remainder}.  The remainder has the same sign as the dividend, and
+its absolute value is less than the absolute value of the divisor.
+@end deftypefun
+
+@deftypefun void mpz_divmod (MP_INT *@var{quotient}, MP_INT *@var{remainder}, MP_INT *@var{dividend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun void mpz_divmod_ui (MP_INT *@var{quotient}, MP_INT *@var{remainder}, MP_INT *@var{dividend}, unsigned long int @var{divisor})
+Divide @var{dividend} and @var{divisor} and put the quotient in
+@var{quotient} and the remainder in @var{remainder}.  The quotient is
+rounded towards 0.  The remainder has the same sign as the dividend,
+and its absolute value is less than the absolute value of the divisor.
+
+If @var{quotient} and @var{remainder} are the same variable, the results
+are not defined.
+@end deftypefun
+
+@deftypefun void mpz_mdiv (MP_INT *@var{quotient}, MP_INT *@var{dividend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun void mpz_mdiv_ui (MP_INT *@var{quotient}, MP_INT *@var{dividend}, unsigned long int @var{divisor})
+Set @var{quotient} to @var{dividend} / @var{divisor}.  The quotient is
+rounded towards @minus{}infinity.
+@end deftypefun
+
+@deftypefun void mpz_mmod (MP_INT *@var{remainder}, MP_INT *@var{divdend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun {unsigned long int} mpz_mmod_ui (MP_INT *@var{remainder}, MP_INT *@var{divdend}, unsigned long int @var{divisor})
+Divide @var{dividend} and @var{divisor} and put the remainder in
+@var{remainder}.  The remainder is always positive, and its value is
+less than the value of the divisor.
+
+For @code{mpz_mmod_ui} the remainder is returned, and if @var{remainder} is
+not NULL, also stored there.
+@end deftypefun
+
+@deftypefun void mpz_mdivmod (MP_INT *@var{quotient}, MP_INT *@var{remainder}, MP_INT *@var{dividend}, MP_INT *@var{divisor})
+@end deftypefun
+@deftypefun {unsigned long int} mpz_mdivmod_ui (MP_INT *@var{quotient}, MP_INT *@var{remainder}, MP_INT *@var{dividend}, unsigned long int @var{divisor})
+Divide @var{dividend} and @var{divisor} and put the quotient in
+@var{quotient} and the remainder in @var{remainder}.  The quotient is
+rounded towards @minus{}infinity.  The remainder is always positive, and its
+value is less than the value of the divisor.
+
+For @code{mpz_mdivmod_ui} the remainder is small enough to fit in an
+@code{unsigned long int}, and is therefore returned.  If @var{remainder}
+is not NULL, the remainder is also stored there.
+
+If @var{quotient} and @var{remainder} are the same variable, the results
+are not defined.
+@end deftypefun
+
+@deftypefun void mpz_sqrt (MP_INT *@var{root}, MP_INT *@var{operand})
+Set @var{root} to the square root of @var{operand}.  The result is
+rounded towards zero.
+@end deftypefun
+
+@deftypefun void mpz_sqrtrem (MP_INT *@var{root}, MP_INT *@var{remainder}, MP_INT *@var{operand})
+Set @var{root} to the square root of @var{operand}, as with
+@code{mpz_sqrt}.  Set @var{remainder} to
+@ifinfo
+@var{operand}@minus{}@var{root}*@var{root},
+@end ifinfo
+@iftex
+@tex
+$operand - root^2$,
+@end tex
+@end iftex
+(i.e@. zero if @var{operand} is a perfect square).
+
+If @var{root} and @var{remainder} are the same variable, the results are
+not defined.
+@end deftypefun
+
+@deftypefun int mpz_perfect_square_p (MP_INT *@var{square})
+Return non-zero if @var{square} is perfect, i.e@. if the square root of
+@var{square} is integral.  Return zero otherwise.
+@end deftypefun
+
+@deftypefun int mpz_probab_prime_p (MP_INT *@var{n}, int @var{reps})
+An implementation of the probabilistic primality test found in Knuth's
+Seminumerical Algorithms book.  If the function
+@code{mpz_probab_prime_p(@var{n}, @var{reps})} returns 0 then @var{n} is
+not prime.  If it returns 1, then @var{n} is `probably' prime.  The
+probability of a false positive is (1/4)**@var{reps}, where @var{reps}
+is the number of internal passes of the probabilistic algorithm.  Knuth
+indicates that 25 passes are reasonable.
+@end deftypefun
+
+@deftypefun void mpz_powm (MP_INT *@var{res}, MP_INT *@var{base}, MP_INT *@var{exp}, MP_INT *@var{mod})
+@end deftypefun
+@deftypefun void mpz_powm_ui (MP_INT *@var{res}, MP_INT *@var{base}, unsigned long int @var{exp}, MP_INT *@var{mod})
+Set @var{res} to (@var{base} raised to @var{exp}) modulo @var{mod}.
+If @var{exp} is negative, the result is undefined.
+@end deftypefun
+
+@deftypefun void mpz_pow_ui (MP_INT *@var{res}, MP_INT *@var{base}, unsigned long int @var{exp})
+Set @var{res} to @var{base} raised to @var{exp}.
+@end deftypefun
+
+@deftypefun void mpz_fac_ui (MP_INT *@var{res}, unsigned long int @var{n})
+Set @var{res} @var{n}!, the factorial of n.
+@end deftypefun
+
+@deftypefun void mpz_gcd (MP_INT *@var{res}, MP_INT *@var{operand1}, MP_INT *@var{operand2})
+Set @var{res} to the greatest common divisor of @var{operand1} and
+@var{operand2}.
+@end deftypefun
+
+@deftypefun void mpz_gcdext (MP_INT *@var{g}, MP_INT *@var{s}, MP_INT *@var{t}, MP_INT *@var{a}, MP_INT *@var{b})
+Compute @var{g}, @var{s}, and @var{t}, such that @var{a}@var{s} +
+@var{b}@var{t} = @var{g} = @code{gcd} (@var{a}, @var{b}).  If @var{t} is
+NULL, that argument is not computed.
+@end deftypefun
+
+@deftypefun void mpz_neg (MP_INT *@var{negated_operand}, MP_INT *@var{operand})
+Set @var{negated_operand} to @minus{}@var{operand}.
+@end deftypefun
+
+@deftypefun void mpz_abs (MP_INT *@var{positive_operand}, MP_INT *@var{signed_operand})
+Set @var{positive_operand} to the absolute value of @var{signed_operand}.
+@end deftypefun
+
+@deftypefun int mpz_cmp (MP_INT *@var{operand1}, MP_INT *@var{operand2})
+@end deftypefun
+@deftypefun int mpz_cmp_ui (MP_INT *@var{operand1}, unsigned long int @var{operand2})
+@end deftypefun
+@deftypefun int mpz_cmp_si (MP_INT *@var{operand1}, signed long int @var{operand2})
+Compare @var{operand1} and @var{operand2}.  Return a positive value if
+@var{operand1} > @var{operand2}, zero if @var{operand1} = @var{operand2},
+and a negative value if @var{operand1} < @var{operand2}.
+@end deftypefun
+
+@deftypefun void mpz_mul_2exp (MP_INT *@var{product}, MP_INT *@var{multiplicator}, unsigned long int @var{exponent_of_2})
+Set @var{product} to @var{multiplicator} times 2 raised to
+@var{exponent_of_2}.  This operation can also be defined as a left shift,
+@var{exponent_of_2} steps.
+@end deftypefun
+
+@deftypefun void mpz_div_2exp (MP_INT *@var{quotient}, MP_INT *@var{dividend}, unsigned long int @var{exponent_of_2})
+Set @var{quotient} to @var{dividend} divided by 2 raised to
+@var{exponent_of_2}.  This operation can also be defined as a right
+shift, @var{exponent_of_2} steps, but unlike the >> operator in
+C, the result is rounded towards 0.
+@end deftypefun
+
+@deftypefun void mpz_mod_2exp (MP_INT *@var{remainder}, MP_INT *@var{dividend}, unsigned long int @var{exponent_of_2})
+Set @var{remainder} to @var{dividend} mod (2 raised to
+@var{exponent_of_2}).  The sign of @var{remainder} will have the same sign
+as @var{dividend}.
+
+This operation can also be defined as a masking of the
+@var{exponent_of_2} least significant bits.
+@end deftypefun
+
+@node Logic on Integers, I/O of Integers, Integer Arithmetic, Integer Functions
+@comment  node-name,  next,  previous,  up
+@section Logical Functions
+@cindex Logical functions
+
+@deftypefun void mpz_and (MP_INT *@var{conjunction}, MP_INT *@var{operand1}, MP_INT *@var{operand2})
+Set @var{conjunction} to @var{operand1} logical-and @var{operand2}.
+@end deftypefun
+
+@deftypefun void mpz_ior (MP_INT *@var{disjunction}, MP_INT *@var{operand1}, MP_INT *@var{operand2})
+Set @var{disjunction} to @var{operand1} inclusive-or @var{operand2}.
+@end deftypefun
+
+@deftypefun void mpz_xor (MP_INT *@var{disjunction}, MP_INT *@var{operand1}, MP_INT *@var{operand2})
+Set @var{disjunction} to @var{operand1} exclusive-or @var{operand2}.
+
+This function is missing in the current release.
+@end deftypefun
+
+@deftypefun void mpz_com (MP_INT *@var{complemented_operand}, MP_INT *@var{operand})
+Set @var{complemented_operand} to the one's complement of @var{operand}.
+@end deftypefun
+
+@node I/O of Integers,, Logic on Integers, Integer Functions
+@comment  node-name,  next,  previous,  up
+@section Input and Output Functions
+@cindex Input and output functions
+@cindex Output functions
+@cindex I/O functions
+
+Functions that perform input from a standard I/O stream, and functions for
+output conversion.
+
+@deftypefun void mpz_inp_raw (MP_INT *@var{integer}, FILE *@var{stream})
+Input from standard I/O stream @var{stream} in the format written by
+@code{mpz_out_raw}, and put the result in @var{integer}.
+@end deftypefun
+
+@deftypefun void mpz_inp_str (MP_INT *@var{integer}, FILE *@var{stream}, int @var{base})
+Input a string in base @var{base} from standard I/O stream @var{stream},
+and put the read integer in @var{integer}.  The base may vary from 2 to
+36.  If @var{base} is 0, the actual base is determined from the leading
+characters: if the first two characters are `0x' or `0X', hexadecimal is
+assumed, otherwise if the first character is `0', octal is assumed,
+otherwise decimal is assumed.
+@end deftypefun
+
+
+@deftypefun void mpz_out_raw (FILE *@var{stream}, MP_INT *@var{integer})
+Output @var{integer} on standard I/O stream @var{stream}, in raw binary
+format.  The integer is written in a portable format, with 4 bytes of
+size information, and that many bytes of limbs.  Both the size and the
+limbs are written in decreasing significance order.
+@end deftypefun
+
+@deftypefun void mpz_out_str (FILE *@var{stream}, int @var{base}, MP_INT *@var{integer})
+Output @var{integer} on standard I/O stream @var{stream}, as a string of
+digits in base @var{base}.  The base may vary from 2 to 36.
+@end deftypefun
+
+
+@node Rational Number Functions, Low-level Functions, Integer Functions, Top
+@comment  node-name,  next,  previous,  up
+@chapter Rational Number Functions
+@cindex Rational number functions
+
+All rational arithmetic functions canonicalize the result, so that the
+denominator and the numerator have no common factors.  Zero has the
+unique representation 0/1.
+
+The set of functions is quite small.  Maybe it will be extended in a
+future release.
+
+@deftypefun void mpq_init (MP_RAT *@var{dest_rational})
+Initialize @var{dest_rational} with limb space and set the initial
+numeric value to 0/1.  Each variable should normally only be initialized
+once, or at least cleared out (using the function @code{mpq_clear})
+between each initialization.
+@end deftypefun
+
+@deftypefun void mpq_clear (MP_RAT *@var{rational_number})
+Free the limb space occupied by @var{rational_number}.  Make sure to
+call this function for all @code{MP_RAT} variables when you are done
+with them.
+@end deftypefun
+
+@deftypefun void mpq_set (MP_RAT *@var{dest_rational}, MP_RAT *@var{src_rational})
+Assign @var{dest_rational} from @var{src_rational}.
+@end deftypefun
+
+@deftypefun void mpq_set_ui (MP_RAT *@var{rational_number}, unsigned long int @var{numerator}, unsigned long int @var{denominator})
+Set the value of @var{rational_number} to
+@var{numerator}/@var{denominator}.  If @var{numerator} and
+@var{denominator} have common factors, they are divided out before
+@var{rational_number} is assigned.
+@end deftypefun
+
+@deftypefun void mpq_set_si (MP_RAT *@var{rational_number}, signed long int @var{numerator}, unsigned long int @var{denominator})
+Like @code{mpq_set_ui}, but @var{numerator} is signed.
+@end deftypefun
+
+@deftypefun void mpq_add (MP_RAT *@var{sum}, MP_RAT *@var{addend1}, MP_RAT *@var{addend2})
+Set @var{sum} to @var{addend1} + @var{addend2}.
+@end deftypefun
+
+@deftypefun void mpq_sub (MP_RAT *@var{difference}, MP_RAT *@var{minuend}, MP_RAT *@var{subtrahend})
+Set @var{difference} to @var{minuend} @minus{} @var{subtrahend}.
+@end deftypefun
+
+@deftypefun void mpq_mul (MP_RAT *@var{product}, MP_RAT *@var{multiplicator}, MP_RAT *@var{multiplicand})
+Set @var{product} to @var{multiplicator} * @var{multiplicand}
+@end deftypefun
+
+@deftypefun void mpq_div (MP_RAT *@var{quotient}, MP_RAT *@var{dividend}, MP_RAT *@var{divisor})
+Set @var{quotient} to @var{dividend} / @var{divisor}.
+@end deftypefun
+
+@deftypefun void mpq_neg (MP_RAT *@var{negated_operand}, MP_RAT *@var{operand})
+Set @var{negated_operand} to @minus{}@var{operand}.
+@end deftypefun
+
+@deftypefun int mpq_cmp (MP_RAT *@var{operand1}, MP_RAT *@var{operand2})
+Compare @var{operand1} and @var{operand2}.  Return a positive value if
+@var{operand1} > @var{operand2}, zero if @var{operand1} = @var{operand2},
+and a negative value if @var{operand1} < @var{operand2}.
+@end deftypefun
+
+@deftypefun void mpq_inv (MP_RAT *@var{inverted_number}, MP_RAT *@var{number})
+Invert @var{number} by swapping the numerator and denominator.  If the
+new denominator becomes zero, this routine will divide by zero.
+@end deftypefun
+
+@deftypefun void mpq_set_num (MP_RAT *@var{rational_number}, MP_INT *@var{numerator})
+Make @var{numerator} become the numerator of @var{rational_number} by
+copying.
+@end deftypefun
+
+@deftypefun void mpq_set_den (MP_RAT *@var{rational_number}, MP_INT *@var{denominator})
+Make @var{denominator} become the denominator of @var{rational_number}
+by copying.  If @var{denominator} < 0 the denominator of
+@var{rational_number} is set to the absolute value of @var{denominator},
+and the sign of the numerator of @var{rational_number} is changed.
+@end deftypefun
+
+@deftypefun void mpq_get_num (MP_INT *@var{numerator}, MP_RAT *@var{rational_number})
+Copy the numerator of @var{rational_number} to the integer
+@var{numerator}, to prepare for integer operations on the numerator.
+@end deftypefun
+
+@deftypefun void mpq_get_den (MP_INT *@var{denominator}, MP_RAT *@var{rational_number})
+Copy the denominator of @var{rational_number} to the integer
+@var{denominator}, to prepare for integer operations on the denominator.
+@end deftypefun
+
+
+@node Low-level Functions, BSD Compatible Functions, Rational Number Functions, Top
+@comment  node-name,  next,  previous,  up
+@chapter Low-level Functions
+@cindex Low-level functions
+
+@c 1. Some of these function clobber input operands.
+@c 
+
+@strong{The next release of the GNU MP library (2.0) will include
+changes to some mpn functions.  Programs that use these functions
+according to the descriptions below will therefore not work with the
+next release.}
+
+The low-level function layer is designed to be as fast as possible,
+@strong{not} to provide a coherent calling interface.  The different
+functions have similar interfaces, but there are variations that might
+be confusing.  These functions do as little as possible apart from the
+real multiple precision computation, so that no time is spent on things
+that not all callers need.
+
+A source operand is specified by a pointer to the least significant limb
+and a limb count.  A destination operand is specified by just a pointer.
+It is the responsability of the caller to ensure that the destination
+has enough space for storing the result.
+
+With this way of specifying source operands, it is possible to perform
+computations on subranges of an argument, and store the result into a
+subrange of a destination.
+
+All these functions require that the operands are normalized in the
+sense that the most significant limb must be non-zero.  (A future release
+of might drop this requirement.)
+
+The low-level layer is the base for the implementation of the
+@code{mpz_} and @code{mpq_} layers.
+
+The code below adds the number beginning at @var{src1_ptr} and the
+number beginning at @var{src2_ptr} and writes the sum at @var{dest_ptr}.
+A constraint for @code{mpn_add} is that @var{src1_size} must not be
+smaller that @var{src2_size}.
+
+@example
+mpn_add (dest_ptr, src1_ptr, src1_size, src2_ptr, src2_size)
+@end example
+
+In the description below, a source operand is identified by the pointer
+to the least significant limb, and the limb count in braces.
+
+@deftypefun mp_size mpn_add (mp_ptr @var{dest_ptr}, mp_srcptr @var{src1_ptr}, mp_size @var{src1_size}, mp_srcptr @var{src2_ptr}, mp_size @var{src2_size})
+Add @{@var{src1_ptr}, @var{src1_size}@} and @{@var{src2_ptr},
+@var{src2_size}@}, and write the @var{src1_size} least significant limbs
+of the result to @var{dest_ptr}.  Carry-out, either 0 or 1, is returned.
+
+This function requires that @var{src1_size} is greater than or equal to
+@var{src2_size}.
+@end deftypefun
+
+@deftypefun mp_size mpn_sub (mp_ptr @var{dest_ptr}, mp_srcptr @var{src1_ptr}, mp_size @var{src1_size}, mp_srcptr @var{src2_ptr}, mp_size @var{src2_size})
+Subtarct @{@var{src2_ptr}, @var{src2_size}@} from @{@var{src1_ptr},
+@var{src1_size}@}, and write the result to @var{dest_ptr}.
+
+Return 1 if the minuend < the subtrahend.  Otherwise, return the
+negative difference between the number of words in the result and the
+minuend.  I.e@. return 0 if the result has @var{src1_size} words, @minus{}1 if
+it has @var{src1_size} @minus{} 1 words, etc.
+
+This function requires that @var{src1_size} is greater than or equal to
+@var{src2_size}.
+@end deftypefun
+
+@deftypefun mp_size mpn_mul (mp_ptr @var{dest_ptr}, mp_srcptr @var{src1_ptr}, mp_size @var{src1_size}, mp_srcptr @var{src2_ptr}, mp_size @var{src2_size})
+Multiply @{@var{src1_ptr}, @var{src1_size}@} and @{@var{src2_ptr},
+@var{src2_size}@}, and write the result to @var{dest_ptr}.  The exact
+size of the result is returned.
+
+The destination has to have space for @var{src1_size} + @var{src1_size}
+limbs, even if the result might be one limb smaller.
+
+This function requires that @var{src1_size} is greater than or equal to
+@var{src2_size}.  The destination must be distinct from either input
+operands.
+@end deftypefun
+
+@deftypefun mp_size mpn_div (mp_ptr @var{dest_ptr}, mp_ptr @var{src1_ptr}, mp_size @var{src1_size}, mp_srcptr @var{src2_ptr}, mp_size @var{src2_size})
+Divide @{@var{src1_ptr}, @var{src1_size}@} by @{@var{src2_ptr},
+@var{src2_size}@}, and write the quotient to @var{dest_ptr}, and the
+remainder to @var{src1_ptr}.
+
+Return 0 if the quotient size is at most (@var{src1_size} @minus{}
+@var{src2_size}), and 1 if the quotient size is at most (@var{src1_size}
+@minus{} @var{src2_size} + 1).  The caller has to check the most significant limb
+to find out the exact size.
+
+The most significant bit of the most significant limb of the divisor
+has to be set.
+
+This function requires that @var{src1_size} is greater than or equal to
+@var{src2_size}.  The quotient, pointed to by @var{dest_ptr}, must be
+distinct from either input operands.
+@end deftypefun
+
+@deftypefun mp_limb mpn_lshift (mp_ptr @var{dest_ptr}, mp_srcptr @var{src_ptr}, mp_size @var{src_size}, unsigned long int @var{count})
+Shift @{@var{src_ptr}, @var{src_size}@} @var{count} bits to the left, and
+write the @var{src_size} least significant limbs of the result to
+@var{dest_ptr}.  @var{count} might be in the range 1 to n @minus{} 1, on an n-bit
+machine. The limb shifted out is returned.
+
+Overlapping of the destination space and the source space is allowed in this
+function, provdied @var{dest_ptr} >= @var{src_ptr}.
+@end deftypefun
+
+@deftypefun mp_size mpn_rshift (mp_ptr @var{dest_ptr}, mp_srcptr @var{src_ptr}, mp_size @var{src_size}, unsigned long int @var{count})
+Shift @{@var{src_ptr}, @var{src_size}@} @var{count} bits to the right, and
+write the @var{src_size} least significant limbs of the result to
+@var{dest_ptr}.  @var{count} might be in the range 1 to n @minus{} 1, on an n-bit
+machine. The size of the result is returned.
+
+Overlaping of the destination space and the source space is allowed in this
+function, provdied @var{dest_ptr} <= @var{src_ptr}.
+@end deftypefun
+
+@deftypefun mp_size mpn_rshiftci (mp_ptr @var{dest_ptr}, mp_srcptr @var{src_ptr}, mp_size @var{src_size}, unsigned long int @var{count}, mp_limb @var{inlimb})
+Like mpn_rshift, but use @var{inlimb} to feed the least significant end
+of the destination.
+@end deftypefun
+
+@deftypefun int mpn_cmp (mp_srcptr @var{src1_ptr}, mp_srcptr @var{src2_ptr}, mp_size @var{size})
+Compare @{@var{src1_ptr}, @var{size}@} and @{@var{src2_ptr}, @var{size}@}
+and return a positive value if src1 > src2, 0 of they are equal,
+and a negative value if src1 < src2.
+@end deftypefun
+
+
+@node BSD Compatible Functions, Miscellaneous Functions, Low-level Functions, Top
+@comment  node-name,  next,  previous,  up
+@chapter Berkeley MP Compatible Functions
+@cindex BSD MP compatible functions
+
+These functions are intended to be fully compatible with the Berkeley MP
+library which is available on many BSD derived U*ix systems.
+
+The original Berkeley MP library has a usage restriction: you cannot use
+the same variable as both source and destination in a single function
+call.  The compatible functions in GNU MP do not share this
+restriction---inputs and outputs may overlap.
+
+It is not recommended that new programs are written using these
+functions.  Apart from the incomplete set of functions, the interface
+for initializing @code{MINT} objects is more error prone, and the
+@code{pow} function collides with @code{pow} in @file{libm.a}.
+
+Include the header @file{mp.h} to get the definition of the necessary
+types and functions.  If you are on a BSD derived system, make sure to
+include GNU @file{mp.h} if you are going to link the GNU @file{libmp.a}
+to you program.  This means that you probably need to give the -I<dir>
+option to the compiler, where <dir> is the directory where you have GNU
+@file{mp.h}.
+
+@deftypefun {MINT *} itom (signed short int @var{initial_value})
+Allocate an integer consisting of a @code{MINT} object and dynamic limb
+space.  Initialize the integer to @var{initial_value}.  Return a pointer
+to the @code{MINT} object.
+@end deftypefun
+
+@deftypefun {MINT *} xtom (char *@var{initial_value})
+Allocate an integer consisting of a @code{MINT} object and dynamic limb
+space.  Initialize the integer from @var{initial_value}, a hexadecimal,
+'\0'-terminate C string.  Return a pointer to the @code{MINT} object.
+@end deftypefun
+
+@deftypefun void move (MINT *@var{src}, MINT *@var{dest})
+Set @var{dest} to @var{src} by copying.  Both variables must be
+previously initialized.
+@end deftypefun
+
+@deftypefun void madd (MINT *@var{src_1}, MINT *@var{src_2}, MINT *@var{destination})
+Add @var{src_1} and @var{src_2} and put the sum in @var{destination}.
+@end deftypefun
+
+@deftypefun void msub (MINT *@var{src_1}, MINT *@var{src_2}, MINT *@var{destination})
+Subtract @var{src_2} from @var{src_1} and put the difference in
+@var{destination}.
+@end deftypefun
+
+@deftypefun void mult (MINT *@var{src_1}, MINT *@var{src_2}, MINT *@var{destination})
+Multiply @var{src_1} and @var{src_2} and put the product in
+@var{destination}.
+@end deftypefun
+
+@deftypefun void mdiv (MINT *@var{dividend}, MINT *@var{divisor}, MINT *@var{quotient}, MINT *@var{remainder})
+@end deftypefun
+@deftypefun void sdiv (MINT *@var{dividend}, signed short int @var{divisor}, MINT *@var{quotient}, signed short int *@var{remainder})
+Set @var{quotient} to @var{dividend} / @var{divisor}, and
+@var{remainder} to @var{dividend} mod @var{divisor}.  The quotient is
+rounded towards zero; the remainder has the same sign as the dividend.
+
+Some implementations of this function return a remainder whose sign is
+inverted if the divisor is negative.  Such a definition makes little
+sense from a mathematical point of view.  GNU MP might be considered
+incompatible with the traditional MP in this respect.
+@end deftypefun
+
+@deftypefun void msqrt (MINT *@var{operand}, MINT *@var{root}, MINT *@var{remainder})
+Set @var{root} to the square root of @var{operand}, as with
+@code{mpz_sqrt}.  Set @var{remainder} to
+@ifinfo
+@var{operand}-@var{root}*@var{root},
+@end ifinfo
+@iftex
+@tex
+$operand - root^2$,
+@end tex
+@end iftex
+(i.e@. zero if @var{operand} is a perfect square).
+@end deftypefun
+
+@deftypefun void pow (MINT *@var{base}, MINT *@var{exp}, MINT *@var{mod}, MINT *@var{dest})
+Set @var{dest} to (@var{base} raised to @var{exp}) modulo @var{mod}.
+@end deftypefun
+
+@deftypefun void rpow (MINT *@var{base}, signed short int @var{exp}, MINT *@var{dest})
+Set @var{dest} to @var{base} raised to @var{exp}.
+@end deftypefun
+
+@deftypefun void gcd (MINT *@var{operand1}, MINT *@var{operand2}, MINT *@var{res})
+Set @var{res} to the greatest common divisor of @var{operand1} and
+@var{operand2}.
+@end deftypefun
+
+@deftypefun int mcmp (MINT *@var{operand1}, MINT *@var{operand2})
+Compare @var{operand1} and @var{operand2}.  Return a positive value if
+@var{operand1} > @var{operand2}, zero if @var{operand1} =
+@var{operand2}, and a negative value if @var{operand1} < @var{operand2}.
+@end deftypefun
+
+@deftypefun void min (MINT *@var{dest})
+Input a decimal string from stdin, and put the read integer in
+@var{dest}.  SPC and TAB are allowed in the number string, and are
+ignored.
+@end deftypefun
+
+@deftypefun void mout (MINT *@var{src})
+Output @var{src} to stdout, as a decimal string.  Also output a newline.
+@end deftypefun
+
+@deftypefun {char *} mtox (MINT *@var{operand})
+Convert @var{operand} to a hexadecimal string, and return a pointer to
+the string.  The returned string is allocated using the default memory
+allocation function, @code{malloc} by default. (@xref{Initialization},
+for an explanation of the memory allocation in MP).
+@end deftypefun
+
+@deftypefun void mfree (MINT *@var{operand})
+De-allocate, the space used by @var{operand}.  @strong{This function
+should only be passed a value returned by @code{itom} or @code{xtom}.}
+@end deftypefun
+
+@node Miscellaneous Functions, Custom Allocation, BSD Compatible Functions, Top
+@comment  node-name,  next,  previous,  up
+@chapter Miscellaneous Functions
+@cindex Miscellaneous functions
+
+@deftypefun void mpz_random (MP_INT *@var{random_integer}, mp_size @var{max_size})
+Generate a random integer of at most @var{max_size} limbs.  The generated
+random number doesn't satisfy any particular requirements of randomness.
+@end deftypefun
+
+@deftypefun void mpz_random2 (MP_INT *@var{random_integer}, mp_size @var{max_size})
+Generate a random integer of at most @var{max_size} limbs, with long
+strings of zeros and ones in the binary representation.  Useful for
+testing functions and algorithms, since this kind of random numbers have
+proven to be more likely to trigger bugs.
+@end deftypefun
+
+@deftypefun size_t mpz_size (MP_INT *@var{integer})
+Return the size of @var{integer} measured in number of limbs.  If
+@var{integer} is zero, the returned value will be zero, if @var{integer}
+has one limb, the returned value will be one, etc.
+(@xref{Nomenclature}, for an explanation of the concept @dfn{limb}.)
+@end deftypefun
+
+@deftypefun size_t mpz_sizeinbase (MP_INT *@var{integer}, int @var{base})
+Return the size of @var{integer} measured in number of digits in base
+@var{base}.  The base may vary from 2 to 36.  The returned value will be
+exact or 1 too big.  If @var{base} is a power of 2, the returned value
+will always be exact.
+
+This function is useful in order to allocate the right amount of space
+before converting @var{integer} to a string.  The right amount of
+allocation is normally two more than the value returned by
+@code{mpz_sizeinbase} (one extra for a minus sign and one for the
+terminating '\0').
+@end deftypefun
+
+@node Custom Allocation, Reporting Bugs, Miscellaneous Functions, Top
+@comment  node-name,  next,  previous,  up
+@section Custom Allocation
+
+By default, the initialization functions use @code{malloc},
+@code{realloc}, and @code{free} to do their work.  If @code{malloc} or
+@code{realloc} fails, the MP package terminates execution after a
+printing fatal error message on standard error.
+
+In some applications, you may wish to allocate memory in other ways, or
+you may not want to have a fatal error when there is no more memory
+available.  To accomplish this, you can specify alternative functions
+for allocating and de-allocating memory.  Use
+@code{mp_set_memory_functions} to do this.
+
+@findex mp_set_memory_functions
+@code{mp_set_memory_functions} has three arguments,
+@var{allocate_function}, @var{reallocate_function}, and
+@var{deallocate_function}, in that order.  If an argument is NULL,
+the corresponding default function is retained.
+
+The functions you supply should fit the following declarations:
+
+@table @code
+@item void * @var{allocate_function} (size_t @var{alloc_size})
+This function should return a pointer to newly allocated space with at
+least @var{alloc_size} storage units.
+
+@item void * @var{reallocate_function} (void *@var{ptr}, size_t @var{old_size}, size_t @var{new_size})
+This function should return a pointer to newly allocated space of at
+least @var{new_size} storage units, after copying the first
+@var{old_size} storage units from @var{ptr}.  It should also de-allocate the
+space at @var{ptr}.
+
+You can assume that the space at @var{ptr} was formely returned from
+@var{allocate_function} or @var{reallocate_function}, for a
+request for @var{old_size} storage units.
+
+@item void @var{deallocate_function} (void *@var{ptr}, size_t @var{size})
+De-allocate the space pointed to by @var{ptr}.
+
+You can assume that the space at @var{ptr} was formely returned from
+@var{allocate_function} or @var{reallocate_function}, for a
+request for @var{size} storage units.
+@end table
+
+(A @dfn{storage unit} is the unit in which the @code{sizeof} operator
+returns the size of an object, normally an 8 bit byte.)
+
+@strong{NOTE: call @code{mp_set_memory_functions} only before calling
+any other MP functions.} Otherwise, the user-defined allocation
+functions may be asked to re-allocate or de-allocate something
+previously allocated by the default allocation functions.
+
+@node Reporting Bugs, , Custom Allocation, Top
+@comment  node-name,  next,  previous,  up
+@chapter Reporting Bugs
+@cindex Reporting bugs
+
+If you think you have found a bug in the GNU MP library, please
+investigate it and report it.  We have made this library available to
+you, and it is not to ask too much from you, to ask you to report the
+bugs that you find.
+
+Please make sure that the bug is really in the GNU MP library.
+
+You have to send us a test case that makes it possible for us to
+reproduce the bug.
+
+You also have to explain what is wrong; if you get a crash, or if the
+results printed are not good and in that case, in what way.
+
+Make sure that the bug report includes all information you would
+need to fix this kind of bug for someone else.  Think twice.
+
+If your bug report is good, we will do our best to help you to get a
+corrected version of the library; if the bug report is poor, we won't do
+anything about it (aside of chiding you to send better bug reports).
+
+Send your bug report to: tege@@gnu.ai.mit.edu.
+
+If you think something in this manual is unclear, or downright
+incorrect, or if the language needs to be improved, please send a note
+to the same address.
+
+
+@node References, , , Top
+@comment  node-name,  next,  previous,  up
+@unnumbered References
+
+@itemize @bullet
+
+@item
+Donald E@. Knuth, "The Art of Computer Programming", vol 2,
+"Seminumerical Algorithms", 2nd edition, Addison-Wesley, 1981.
+
+@item
+John D@. Lipson, "Elements of Algebra and Algebraic Computing",
+The Benjamin Cummins Publishing Company Inc, 1981.
+
+@item
+Richard M@. Stallman, "Using and Porting GCC", Free Software Foundation,
+1993.
+
+@item
+Peter L@. Montgomery, "Modular Multiplication Without Trial Division",
+Mathematics of Computation, volume 44, number 170, April 1985.
+
+@end itemize
+
+@node Concept Index, , , Top
+@comment  node-name,  next,  previous,  up
+@unnumbered Concept Index
+@printindex cp
+
+@node Function Index, , , Top
+@comment  node-name,  next,  previous,  up
+@unnumbered Function and Type Index
+@printindex fn
+
+
+@contents
+@bye
diff --git a/Mp/gmp-1.3.2/itom.c b/Mp/gmp-1.3.2/itom.c
new file mode 100644
index 0000000..64502fc
--- /dev/null
+++ b/Mp/gmp-1.3.2/itom.c
@@ -0,0 +1,53 @@
+/* itom -- BSD compatible allocate and initiate a MINT.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+MINT *
+#ifdef __STDC__
+itom (signed short int n)
+#else
+itom (n)
+     short int n;
+#endif
+{
+  MINT *x;
+  mp_ptr xp;
+
+  x = (MINT *) (*_mp_allocate_func) (sizeof (MINT));
+  x->alloc = 1;
+  x->d = xp = (mp_ptr) (*_mp_allocate_func) (x->alloc * BYTES_PER_MP_LIMB);
+  if (n > 0)
+    {
+      x->size = 1;
+      xp[0] = n;
+    }
+  else if (n < 0)
+    {
+      x->size = -1;
+      xp[0] = -n;
+    }
+  else
+    x->size = 0;
+
+  return x;
+}
diff --git a/Mp/gmp-1.3.2/longlong.h b/Mp/gmp-1.3.2/longlong.h
new file mode 100644
index 0000000..fd7b4cc
--- /dev/null
+++ b/Mp/gmp-1.3.2/longlong.h
@@ -0,0 +1,1027 @@
+/* longlong.h -- definitions for mixed size 32/64 bit arithmetic.
+   Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
+
+   This definition file is free software; you can redistribute it
+   and/or modify it under the terms of the GNU General Public
+   License as published by the Free Software Foundation; either
+   version 2, or (at your option) any later version.
+
+   This definition file is distributed in the hope that it will be
+   useful, but WITHOUT ANY WARRANTY; without even the implied
+   warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+   See the GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifndef LONG_TYPE_SIZE
+#ifdef BITS_PER_LONGINT
+#define LONG_TYPE_SIZE BITS_PER_LONGINT
+#else
+#define LONG_TYPE_SIZE 32
+#endif
+#endif
+
+#define __BITS4 (LONG_TYPE_SIZE / 4)
+#define __ll_B (1L << (LONG_TYPE_SIZE / 2))
+#define __ll_lowpart(t) ((unsigned long int) (t) % __ll_B)
+#define __ll_highpart(t) ((unsigned long int) (t) / __ll_B)
+
+/* Define auxiliary asm macros.
+
+   1) umul_ppmm(high_prod, low_prod, multipler, multiplicand)
+   multiplies two unsigned long integers MULTIPLER and MULTIPLICAND,
+   and generates a two unsigned word product in HIGH_PROD and
+   LOW_PROD.
+
+   2) __umulsidi3(a,b) multiplies two unsigned long integers A and B,
+   and returns a long long product.  This is just a variant of umul_ppmm.
+
+   3) udiv_qrnnd(quotient, remainder, high_numerator, low_numerator,
+   denominator) divides a two-word unsigned integer, composed by the
+   integers HIGH_NUMERATOR and LOW_NUMERATOR, by DENOMINATOR and
+   places the quotient in QUOTIENT and the remainder in REMAINDER.
+   HIGH_NUMERATOR must be less than DENOMINATOR for correct operation.
+   If, in addition, the most significant bit of DENOMINATOR must be 1,
+   then the pre-processor symbol UDIV_NEEDS_NORMALIZATION is defined to 1.
+
+   4) sdiv_qrnnd(quotient, remainder, high_numerator, low_numerator,
+   denominator).  Like udiv_qrnnd but the numbers are signed.  The
+   quotient is rounded towards 0.
+
+   5) count_leading_zeros(count, x) counts the number of zero-bits from
+   the msb to the first non-zero bit.  This is the number of steps X
+   needs to be shifted left to set the msb.  Undefined for X == 0.
+
+   6) add_ssaaaa(high_sum, low_sum, high_addend_1, low_addend_1,
+   high_addend_2, low_addend_2) adds two two-word unsigned integers,
+   composed by HIGH_ADDEND_1 and LOW_ADDEND_1, and HIGH_ADDEND_2 and
+   LOW_ADDEND_2 respectively.  The result is placed in HIGH_SUM and
+   LOW_SUM.  Overflow (i.e. carry out) is not stored anywhere, and is
+   lost.
+
+   7) sub_ddmmss(high_difference, low_difference, high_minuend,
+   low_minuend, high_subtrahend, low_subtrahend) subtracts two
+   two-word unsigned integers, composed by HIGH_MINUEND_1 and
+   LOW_MINUEND_1, and HIGH_SUBTRAHEND_2 and LOW_SUBTRAHEND_2
+   respectively.  The result is placed in HIGH_DIFFERENCE and
+   LOW_DIFFERENCE.  Overflow (i.e. carry out) is not stored anywhere,
+   and is lost.
+
+   If any of these macros are left undefined for a particular CPU,
+   C macros are used.  */
+
+/* The CPUs come in alphabetical order below.
+
+   Please add support for more CPUs here, or improve the current support
+   for the CPUs below!  */
+
+#if defined (__GNUC__) && !defined (NO_ASM)
+
+/* We sometimes need to clobber "cc" with gcc2, but that would not be
+   understood by gcc1.  Use cpp to avoid major code duplication.  */
+#if __GNUC__ < 2
+#define __CLOBBER_CC
+#define __AND_CLOBBER_CC
+#else /* __GNUC__ >= 2 */
+#define __CLOBBER_CC : "cc"
+#define __AND_CLOBBER_CC , "cc"
+#endif /* __GNUC__ < 2 */
+
+#if defined (__a29k__) || defined (___AM29K__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("add %1,%4,%5
+	addc %0,%2,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	    "=&r" ((unsigned long int)(sl))				\
+	   : "%r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "%r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("sub %1,%4,%5
+	subc %0,%2,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl)))
+#define umul_ppmm(xh, xl, m0, m1) \
+  do {									\
+    unsigned long int __m0 = (m0), __m1 = (m1);				\
+    __asm__ ("multiplu %0,%1,%2"					\
+	     : "=r" ((unsigned long int)(xl))				\
+	     : "r" (__m0),						\
+	       "r" (__m1));						\
+    __asm__ ("multmu %0,%1,%2"						\
+	     : "=r" ((unsigned long int)(xh))				\
+	     : "r" (__m0),						\
+	       "r" (__m1));						\
+  } while (0)
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("dividu %0,%3,%4"						\
+	   : "=r" ((unsigned long int)(q)),				\
+	     "=q" ((unsigned long int)(r))				\
+	   : "1" ((unsigned long int)(n1)),				\
+	     "r" ((unsigned long int)(n0)),				\
+	     "r" ((unsigned long int)(d)))
+#define count_leading_zeros(count, x) \
+    __asm__ ("clz %0,%1"						\
+	     : "=r" ((unsigned long int)(count))			\
+	     : "r" ((unsigned long int)(x)))
+#endif /* __a29k__ */
+
+#if defined (__alpha__)
+#define umul_ppmm(ph, pl, m0, m1) \
+  do {									\
+    unsigned long int __m0 = (m0), __m1 = (m1);				\
+    __asm__ ("umulh %r1,%2,%0"						\
+	     : "=r" ((unsigned long int) ph)				\
+	     : "%rJ" (__m0),						\
+	       "rI" (__m1));						\
+    (pl) = (unsigned long int) (__m0) * (unsigned long int) (__m1);	\
+  } while (0)
+#define UMUL_TIME 46
+#define UDIV_TIME 500
+#endif
+
+#if defined (__arm__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("adds %1,%4,%5
+	adc %0,%2,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "%r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subs %1,%4,%5
+	sbc %0,%2,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl)))
+#endif /* __arm__ */
+
+#if defined (__gmicro__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("add.w %5,%1
+	addx %3,%0"							\
+	   : "=g" ((unsigned long int)(sh)),				\
+	     "=&g" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("sub.w %5,%1
+	subx %3,%0"							\
+	   : "=g" ((unsigned long int)(sh)),				\
+	     "=&g" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define umul_ppmm(ph, pl, m0, m1) \
+  __asm__ ("mulx %3,%0,%1"						\
+	   : "=g" ((unsigned long int)(ph)),				\
+	     "=r" ((unsigned long int)(pl))				\
+	   : "%0" ((unsigned long int)(m0)),				\
+	     "g" ((unsigned long int)(m1)))
+#define udiv_qrnnd(q, r, nh, nl, d) \
+  __asm__ ("divx %4,%0,%1"						\
+	   : "=g" ((unsigned long int)(q)),				\
+	     "=r" ((unsigned long int)(r))				\
+	   : "1" ((unsigned long int)(nh)),				\
+	     "0" ((unsigned long int)(nl)),				\
+	     "g" ((unsigned long int)(d)))
+#define count_leading_zeros(count, x) \
+  __asm__ ("bsch/1 %1,%0"						\
+	   : "=g" (count)						\
+	   : "g" ((unsigned long int)(x)),				\
+	     "0" (0UL))
+#endif
+
+#if defined (__hppa)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("add %4,%5,%1
+	addc %2,%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%rM" ((unsigned long int)(ah)),				\
+	     "rM" ((unsigned long int)(bh)),				\
+	     "%rM" ((unsigned long int)(al)),				\
+	     "rM" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("sub %4,%5,%1
+	subb %2,%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "rM" ((unsigned long int)(ah)),				\
+	     "rM" ((unsigned long int)(bh)),				\
+	     "rM" ((unsigned long int)(al)),				\
+	     "rM" ((unsigned long int)(bl)))
+#if defined (_PA_RISC1_1)
+#define umul_ppmm(wh, wl, u, v) \
+  do {									\
+    union {long long int __ll;						\
+	   struct {unsigned long int __h, __l;} __i;			\
+	  } __xx;							\
+    __asm__ ("xmpyu %1,%2,%0"						\
+	     : "=x" (__xx.__ll)						\
+	     : "x" ((unsigned long int)(u)),				\
+	       "x" ((unsigned long int)(v)));				\
+    (wh) = __xx.__i.__h;						\
+    (wl) = __xx.__i.__l;						\
+  } while (0)
+#define UMUL_TIME 8
+#define UDIV_TIME 60
+#else
+#define UMUL_TIME 40
+#define UDIV_TIME 80
+#endif
+#define count_leading_zeros(count, x) \
+  do {									\
+    unsigned long int __tmp;						\
+    __asm__ (								\
+       "ldi		1,%0
+	extru,=		%1,15,16,%%r0		; Bits 31..16 zero?
+	extru,tr	%1,15,16,%1		; No.  Shift down, skip add.
+	ldo		16(%0),%0		; Yes.  Perform add.
+	extru,=		%1,23,8,%%r0		; Bits 15..8 zero?
+	extru,tr	%1,23,8,%1		; No.  Shift down, skip add.
+	ldo		8(%0),%0		; Yes.  Perform add.
+	extru,=		%1,27,4,%%r0		; Bits 7..4 zero?
+	extru,tr	%1,27,4,%1		; No.  Shift down, skip add.
+	ldo		4(%0),%0		; Yes.  Perform add.
+	extru,=		%1,29,2,%%r0		; Bits 3..2 zero?
+	extru,tr	%1,29,2,%1		; No.  Shift down, skip add.
+	ldo		2(%0),%0		; Yes.  Perform add.
+	extru		%1,30,1,%1		; Extract bit 1.
+	sub		%0,%1,%0		; Subtract it.
+	" : "=r" (count), "=r" (__tmp) : "1" (x));			\
+  } while (0)
+#endif
+
+#if defined (__i386__) || defined (__i486__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("addl %5,%1
+	adcl %3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subl %5,%1
+	sbbl %3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("mull %3"							\
+	   : "=a" ((unsigned long int)(w0)),				\
+	     "=d" ((unsigned long int)(w1))				\
+	   : "%0" ((unsigned long int)(u)),				\
+	     "rm" ((unsigned long int)(v)))
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("divl %4"							\
+	   : "=a" ((unsigned long int)(q)),				\
+	     "=d" ((unsigned long int)(r))				\
+	   : "0" ((unsigned long int)(n0)),				\
+	     "1" ((unsigned long int)(n1)),				\
+	     "rm" ((unsigned long int)(d)))
+#define count_leading_zeros(count, x) \
+  do {									\
+    unsigned long int __cbtmp;						\
+    __asm__ ("bsrl %1,%0"						\
+	     : "=r" (__cbtmp) : "rm" ((unsigned long int)(x)));		\
+    (count) = __cbtmp ^ 31;						\
+  } while (0)
+#define UMUL_TIME 40
+#define UDIV_TIME 40
+#endif /* 80x86 */
+
+#if defined (__i860__)
+#if 0
+/* Make sure these patterns really improve the code before
+   switching them on.  */
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  do {									\
+    union								\
+      {									\
+	long long int ll;						\
+	struct {unsigned long int l, h;} i;				\
+      }  __a, __b, __s;							\
+    __a.i.l = (al); __a.i.h = (ah);					\
+    __b.i.l = (bl); __b.i.h = (bh);					\
+    __asm__ ("fiadd.dd %1,%2,%0"					\
+	     : "=f" (__s.ll)						\
+	     : "%f" (__a.ll), "f" (__b.ll));				\
+    (sh) = __s.i.h; (sl) = __s.i.l;					\
+    } while (0)
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  do {									\
+    union								\
+      {									\
+	long long int ll;						\
+	struct {unsigned long int l, h;} i;				\
+      }  __a, __b, __s;							\
+    __a.i.l = (al); __a.i.h = (ah);					\
+    __b.i.l = (bl); __b.i.h = (bh);					\
+    __asm__ ("fisub.dd %1,%2,%0"					\
+	     : "=f" (__s.ll)						\
+	     : "%f" (__a.ll), "f" (__b.ll));				\
+    (sh) = __s.i.h; (sl) = __s.i.l;					\
+    } while (0)
+#endif
+#endif /* __i860__ */
+
+#if defined (__i960__)
+#define umul_ppmm(w1, w0, u, v) \
+  ({union {long long int __ll;						\
+	   struct {unsigned long int __l, __h;} __i;			\
+	  } __xx;							\
+  __asm__ ("emul	%2,%1,%0"					\
+	   : "=d" (__xx.__ll)						\
+	   : "%dI" ((unsigned long int)(u)),				\
+	     "dI" ((unsigned long int)(v)));				\
+  (w1) = __xx.__i.__h; (w0) = __xx.__i.__l;})
+#define __umulsidi3(u, v) \
+  ({long long int __w;							\
+    __asm__ ("emul	%2,%1,%0"					\
+	     : "=d" (__w)						\
+	     : "%dI" ((unsigned long int)(u)),				\
+	       "dI" ((unsigned long int)(v)));				\
+    __w; })  
+#endif /* __i960__ */
+
+#if defined (___IBMR2__) /* IBM RS6000 */
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("a%I5 %1,%4,%5
+	ae %0,%2,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%r" ((unsigned long int)(ah)),				\
+	     "r" ((unsigned long int)(bh)),				\
+	     "%r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("sf%I4 %1,%5,%4
+	sfe %0,%3,%2"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "r" ((unsigned long int)(ah)),				\
+	     "r" ((unsigned long int)(bh)),				\
+	     "rI" ((unsigned long int)(al)),				\
+	     "r" ((unsigned long int)(bl)))
+#define umul_ppmm(xh, xl, m0, m1) \
+  do {									\
+    unsigned long int __m0 = (m0), __m1 = (m1);				\
+    __asm__ ("mul %0,%2,%3"						\
+	     : "=r" ((unsigned long int)(xh)),				\
+	       "=q" ((unsigned long int)(xl))				\
+	     : "r" (__m0),						\
+	       "r" (__m1));						\
+    (xh) += ((((signed long int) __m0 >> 31) & __m1)			\
+	     + (((signed long int) __m1 >> 31) & __m0));		\
+  } while (0)
+#define smul_ppmm(xh, xl, m0, m1) \
+  __asm__ ("mul %0,%2,%3"						\
+	   : "=r" ((unsigned long int)(xh)),				\
+	     "=q" ((unsigned long int)(xl))				\
+	   : "r" (m0),							\
+	     "r" (m1))
+#define UMUL_TIME 8
+#define sdiv_qrnnd(q, r, nh, nl, d) \
+  __asm__ ("div %0,%2,%4"						\
+	   : "=r" (q), "=q" (r)						\
+	   : "r" (nh), "1" (nl), "r" (d))
+#define UDIV_TIME 100
+#define count_leading_zeros(count, x) \
+  __asm__ ("cntlz %0,%1"						\
+	   : "=r" ((unsigned long int)(count))				\
+	   : "r" ((unsigned long int)(x)))
+#endif /* ___IBMR2__ */
+
+#if defined (__mc68000__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("add%.l %5,%1
+	addx%.l %3,%0"							\
+	   : "=d" ((unsigned long int)(sh)),				\
+	     "=&d" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "d" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("sub%.l %5,%1
+	subx%.l %3,%0"							\
+	   : "=d" ((unsigned long int)(sh)),				\
+	     "=&d" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "d" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#if defined (__mc68020__) || defined (__NeXT__) || defined(mc68020)
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("mulu%.l %3,%1:%0"						\
+	   : "=d" ((unsigned long int)(w0)),				\
+	     "=d" ((unsigned long int)(w1))				\
+	   : "%0" ((unsigned long int)(u)),				\
+	     "dmi" ((unsigned long int)(v)))
+#define UMUL_TIME 45
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("divu%.l %4,%1:%0"						\
+	   : "=d" ((unsigned long int)(q)),				\
+	     "=d" ((unsigned long int)(r))				\
+	   : "0" ((unsigned long int)(n0)),				\
+	     "1" ((unsigned long int)(n1)),				\
+	     "dmi" ((unsigned long int)(d)))
+#define UDIV_TIME 90
+#define sdiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("divs%.l %4,%1:%0"						\
+	   : "=d" ((unsigned long int)(q)),				\
+	     "=d" ((unsigned long int)(r))				\
+	   : "0" ((unsigned long int)(n0)),				\
+	     "1" ((unsigned long int)(n1)),				\
+	     "dmi" ((unsigned long int)(d)))
+#define count_leading_zeros(count, x) \
+  __asm__ ("bfffo %1{%b2:%b2},%0"					\
+	   : "=d" ((unsigned long int)(count))				\
+	   : "od" ((unsigned long int)(x)), "n" (0))
+#else /* not mc68020 */
+/* This ought to be improved by relying on reload to move inputs and
+   outputs to their positions.  */
+#define umul_ppmm(xh, xl, a, b) \
+  __asm__ ("| Inlined umul_ppmm
+	movel	%2,d0
+	movel	%3,d1
+	movel	d0,d2
+	swap	d0
+	movel	d1,d3
+	swap	d1
+	movew	d2,d4
+	mulu	d3,d4
+	mulu	d1,d2
+	mulu	d0,d3
+	mulu	d0,d1
+	movel	d4,d0
+	eorw	d0,d0
+	swap	d0
+	addl	d0,d2
+	addl	d3,d2
+	jcc	1f
+	addl	#65536,d1
+1:	swap	d2
+	moveq	#0,d0
+	movew	d2,d0
+	movew	d4,d2
+	movel	d2,%1
+	addl	d1,d0
+	movel	d0,%0"							\
+	   : "=g" ((unsigned long int)(xh)),				\
+	     "=g" ((unsigned long int)(xl))				\
+	   : "g" ((unsigned long int)(a)),				\
+	     "g" ((unsigned long int)(b))				\
+	   : "d0", "d1", "d2", "d3", "d4")
+#define UMUL_TIME 100
+#define UDIV_TIME 400
+#endif /* not mc68020 */
+#endif /* mc68000 */
+
+#if defined (__m88000__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("addu.co %1,%r4,%r5
+	addu.ci %0,%r2,%r3"						\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%rJ" ((unsigned long int)(ah)),				\
+	     "rJ" ((unsigned long int)(bh)),				\
+	     "%rJ" ((unsigned long int)(al)),				\
+	     "rJ" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subu.co %1,%r4,%r5
+	subu.ci %0,%r2,%r3"						\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "rJ" ((unsigned long int)(ah)),				\
+	     "rJ" ((unsigned long int)(bh)),				\
+	     "rJ" ((unsigned long int)(al)),				\
+	     "rJ" ((unsigned long int)(bl)))
+#define UMUL_TIME 17
+#define UDIV_TIME 150
+#define count_leading_zeros(count, x) \
+  do {									\
+    unsigned long int __cbtmp;						\
+    __asm__ ("ff1 %0,%1"						\
+	     : "=r" (__cbtmp)						\
+	     : "r" ((unsigned long int)(x)));				\
+    (count) = __cbtmp ^ 31;						\
+  } while (0)
+#if defined (__mc88110__)
+#define umul_ppmm(wh, wl, u, v) \
+  do {									\
+    union {long long int __ll;						\
+	   struct {unsigned long int __h, __l;} __i;			\
+	  } __xx;							\
+    __asm__ ("mulu.d	%0,%1,%2"					\
+	     : "=r" (__xx.__ll)						\
+	     : "r" ((unsigned long int)(u)),				\
+	       "r" ((unsigned long int)(v)));				\
+    (wh) = __xx.__i.__h;						\
+    (wl) = __xx.__i.__l;						\
+  } while (0)
+
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("or	r10,%2,0
+	or	r11,%3,0
+	divu.d	r10,r10,%4
+	mulu	%1,%4,r11
+	subu	%1,%3,%1
+	or	%0,r11,0"						\
+	   : "=r" (q),							\
+	     "=&r" (r)							\
+	   : "r" (n1),							\
+	     "r" (n0),							\
+	     "r" (d)							\
+	   : "r10", "r11")
+#endif
+#endif /* __m88000__ */
+
+#if defined (__mips__)
+/* The LO and HI registers are fixed in gcc/mips.h, for some reason.  */
+#if 0 && __GNUC__ >= 2
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("multu %2,%3"						\
+	   : "=l" ((unsigned long int)(w0)),				\
+	     "=h" ((unsigned long int)(w1))				\
+	   : "d" ((unsigned long int)(u)),				\
+	     "d" ((unsigned long int)(v)))
+#else
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("multu %2,%3
+	mflo %0
+	mfhi %1"							\
+	   : "=d" ((unsigned long int)(w0)),				\
+	     "=d" ((unsigned long int)(w1))				\
+	   : "d" ((unsigned long int)(u)),				\
+	     "d" ((unsigned long int)(v)))
+#endif
+#define UMUL_TIME 10
+#define UDIV_TIME 100
+#endif /* __mips__ */
+
+#if defined (__ns32000__)
+#define umul_ppmm(w1, w0, u, v) \
+  ({union {long long int __ll;						\
+	   struct {unsigned long int __l, __h;} __i;			\
+	  } __xx;							\
+  __asm__ ("meid %2,%0"							\
+	   : "=g" (__xx.__ll)						\
+	   : "%0" ((unsigned long int)(u)),				\
+	     "g" ((unsigned long int)(v)));				\
+  (w1) = __xx.__i.__h; (w0) = __xx.__i.__l;})
+#define __umulsidi3(u, v) \
+  ({long long int __w;							\
+    __asm__ ("meid %2,%0"						\
+	     : "=g" (__w)						\
+	     : "%0" ((unsigned long int)(u)),				\
+	       "g" ((unsigned long int)(v)));				\
+    __w; })
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("movd %2,r0
+	movd %3,r1
+	deid %4,r0
+	movd r1,%0
+	movd r0,%1"							\
+	   : "=g" ((unsigned long int)(q)),				\
+	     "=g" ((unsigned long int)(r))				\
+	   : "g" ((unsigned long int)(n0)),				\
+	     "g" ((unsigned long int)(n1)),				\
+	     "g" ((unsigned long int)(d))				\
+	   : "r0", "r1")
+#endif /* __ns32000__ */
+
+#if defined (__pyr__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("addw	%5,%1
+	addwc	%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subw	%5,%1
+	subwb	%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+/* This insn doesn't work on ancient pyramids.  */
+#define umul_ppmm(w1, w0, u, v) \
+  ({union {long long int __ll;						\
+	   struct {unsigned long int __h, __l;} __i;			\
+	  } __xx;							\
+  __xx.__i.__l = u;							\
+  __asm__ ("uemul %3,%0"						\
+	   : "=r" (__xx.__i.__h),					\
+	     "=r" (__xx.__i.__l)					\
+	   : "1" (__xx.__i.__l),					\
+	     "g" (v));							\
+  (w1) = __xx.__i.__h; (w0) = __xx.__i.__l;})
+#endif /* __pyr__ */
+
+#if defined (__ibm032__) /* RT/ROMP */
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("a %1,%5
+	ae %0,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "r" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "r" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("s %1,%5
+	se %0,%3"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "r" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "r" ((unsigned long int)(bl)))
+#define umul_ppmm(ph, pl, m0, m1) \
+  do {									\
+    unsigned long int __m0 = (m0), __m1 = (m1);				\
+    __asm__ (								\
+       "s	r2,r2
+	mts	r10,%2
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	m	r2,%3
+	cas	%0,r2,r0
+	mfs	r10,%1"							\
+	     : "=r" ((unsigned long int)(ph)),				\
+	       "=r" ((unsigned long int)(pl))				\
+	     : "%r" (__m0),						\
+		"r" (__m1)						\
+	     : "r2");							\
+    (ph) += ((((signed long int) __m0 >> 31) & __m1)			\
+	     + (((signed long int) __m1 >> 31) & __m0));		\
+  } while (0)
+#define UMUL_TIME 20
+#define UDIV_TIME 200
+#define count_leading_zeros(count, x) \
+  do {									\
+    if ((x) >= 0x10000)							\
+      __asm__ ("clz	%0,%1"						\
+	       : "=r" ((unsigned long int)(count))			\
+	       : "r" ((unsigned long int)(x) >> 16));			\
+    else								\
+      {									\
+	__asm__ ("clz	%0,%1"						\
+		 : "=r" ((unsigned long int)(count))			\
+		 : "r" ((unsigned long int)(x)));			\
+	(count) += 16;							\
+      }									\
+  } while (0)
+#endif
+
+#if defined (__sparc__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("addcc %4,%5,%1
+	addx %2,%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "%r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "%r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl))				\
+	   __CLOBBER_CC)
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subcc %4,%5,%1
+	subx %2,%3,%0"							\
+	   : "=r" ((unsigned long int)(sh)),				\
+	     "=&r" ((unsigned long int)(sl))				\
+	   : "r" ((unsigned long int)(ah)),				\
+	     "rI" ((unsigned long int)(bh)),				\
+	     "r" ((unsigned long int)(al)),				\
+	     "rI" ((unsigned long int)(bl))				\
+	   __CLOBBER_CC)
+#if defined (__sparc_v8__)
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("umul %2,%3,%1;rd %%y,%0"					\
+	   : "=r" ((unsigned long int)(w1)),				\
+	     "=r" ((unsigned long int)(w0))				\
+	   : "r" ((unsigned long int)(u)),				\
+	     "r" ((unsigned long int)(v)))
+/* We might want to leave this undefined for `SuperSPARC (tm)' since
+   its implementation is crippled and often traps.  */
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("mov %2,%%y;nop;nop;nop;udiv %3,%4,%0;umul %0,%4,%1;sub %3,%1,%1"\
+	   : "=&r" ((unsigned long int)(q)),				\
+	     "=&r" ((unsigned long int)(r))				\
+	   : "r" ((unsigned long int)(n1)),				\
+	     "r" ((unsigned long int)(n0)),				\
+	     "r" ((unsigned long int)(d)))
+#define UMUL_TIME 6
+#define UDIV_TIME 25
+#else
+/* SPARC without integer multiplication and divide instructions.
+   (i.e. at least Sun4/20,40,60,65,75,110,260,280,330,360,380,470,490) */
+#define umul_ppmm(w1, w0, u, v) \
+  __asm__ ("! Inlined umul_ppmm
+	wr	%%g0,%2,%%y	! SPARC has 0-3 delay insn after a wr
+	sra	%3,31,%%g2	! Don't move this insn
+	and	%2,%%g2,%%g2	! Don't move this insn
+	andcc	%%g0,0,%%g1	! Don't move this insn
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,%3,%%g1
+	mulscc	%%g1,0,%%g1
+	add	%%g1,%%g2,%0
+	rd	%%y,%1"							\
+	   : "=r" ((unsigned long int)(w1)),				\
+	     "=r" ((unsigned long int)(w0))				\
+	   : "%rI" ((unsigned long int)(u)),				\
+	     "r" ((unsigned long int)(v))				\
+	   : "%g1", "%g2" __AND_CLOBBER_CC)
+#define UMUL_TIME 39		/* 39 instructions */
+/* It's quite necessary to add this much assembler for the sparc.
+   The default udiv_qrnnd (in C) is more than 10 times slower!  */
+#define udiv_qrnnd(q, r, n1, n0, d) \
+  __asm__ ("! Inlined udiv_qrnnd
+	mov	32,%%g1
+	subcc	%1,%2,%%g0
+1:	bcs	5f
+	 addxcc %0,%0,%0	! shift n1n0 and a q-bit in lsb
+	sub	%1,%2,%1	! this kills msb of n
+	addx	%1,%1,%1	! so this can't give carry
+	subcc	%%g1,1,%%g1
+2:	bne	1b
+	 subcc	%1,%2,%%g0
+	bcs	3f
+	 addxcc %0,%0,%0	! shift n1n0 and a q-bit in lsb
+	b	3f
+	 sub	%1,%2,%1	! this kills msb of n
+4:	sub	%1,%2,%1
+5:	addxcc	%1,%1,%1
+	bcc	2b
+	 subcc	%%g1,1,%%g1
+! Got carry from n.  Subtract next step to cancel this carry.
+	bne	4b
+	 addcc	%0,%0,%0	! shift n1n0 and a 0-bit in lsb
+	sub	%1,%2,%1
+3:	xnor	%0,0,%0
+	! End of inline udiv_qrnnd"					\
+	   : "=&r" ((unsigned long int)(q)),				\
+	     "=&r" ((unsigned long int)(r))				\
+	   : "r" ((unsigned long int)(d)),				\
+	     "1" ((unsigned long int)(n1)),				\
+	     "0" ((unsigned long int)(n0)) : "%g1" __AND_CLOBBER_CC)
+#define UDIV_TIME (3+7*32)	/* 7 instructions/iteration. 32 iterations. */
+#endif /* __sparc8__ */
+#endif /* __sparc__ */
+
+#if defined (__vax__)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  __asm__ ("addl2 %5,%1
+	adwc %3,%0"							\
+	   : "=g" ((unsigned long int)(sh)),				\
+	     "=&g" ((unsigned long int)(sl))				\
+	   : "%0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "%1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  __asm__ ("subl2 %5,%1
+	sbwc %3,%0"							\
+	   : "=g" ((unsigned long int)(sh)),				\
+	     "=&g" ((unsigned long int)(sl))				\
+	   : "0" ((unsigned long int)(ah)),				\
+	     "g" ((unsigned long int)(bh)),				\
+	     "1" ((unsigned long int)(al)),				\
+	     "g" ((unsigned long int)(bl)))
+#define umul_ppmm(xh, xl, m0, m1) \
+  do {									\
+    union {long long int __ll;						\
+	   struct {unsigned long int __l, __h;} __i;			\
+	  } __xx;							\
+    unsigned long int __m0 = (m0), __m1 = (m1);				\
+    __asm__ ("emul %1,%2,$0,%0"						\
+	     : "=g" (__xx.__ll)						\
+	     : "g" (__m0),						\
+	       "g" (__m1));						\
+    (xh) = __xx.__i.__h; (xl) = __xx.__i.__l;				\
+    (xh) += ((((signed long int) __m0 >> 31) & __m1)			\
+	     + (((signed long int) __m1 >> 31) & __m0));		\
+  } while (0)
+#define sdiv_qrnnd(q, r, n1, n0, d) \
+  do {									\
+    union {long long int __ll;						\
+	   struct {unsigned long int __l, __h;} __i;			\
+	  } __xx;							\
+    __xx.__i.__h = n1; __xx.__i.__l = n0;				\
+    __asm__ ("ediv %3,%2,%0,%1"						\
+	     : "=g" (q), "=g" (r)					\
+	     : "g" (__n1n0.ll), "g" (d));				\
+  } while (0)
+#endif /* __vax__ */
+
+#endif /* __GNUC__ */
+
+
+#if !defined (umul_ppmm) && defined (__umulsidi3)
+#define umul_ppmm(ph, pl, m0, m1) \
+  {									\
+    unsigned long long int __ll = __umulsidi3 (m0, m1);			\
+    ph = (unsigned long int) (__ll >> LONG_TYPE_SIZE);			\
+    pl = (unsigned long int) __ll;					\
+  }
+#endif
+
+#if !defined (__umulsidi3)
+#define __umulsidi3(u, v) \
+  ({long __hi, __lo;							\
+    umul_ppmm (__hi, __lo, u, v);					\
+    ((unsigned long long) __hi << LONG_TYPE_SIZE) | __lo; })
+#endif
+
+/* If this machine has no inline assembler, use C macros.  */
+
+#if !defined (add_ssaaaa)
+#define add_ssaaaa(sh, sl, ah, al, bh, bl) \
+  do {									\
+    unsigned long int __x;						\
+    __x = (al) + (bl);							\
+    (sh) = (ah) + (bh) + (__x < (al));					\
+    (sl) = __x;								\
+  } while (0)
+#endif
+
+#if !defined (sub_ddmmss)
+#define sub_ddmmss(sh, sl, ah, al, bh, bl) \
+  do {									\
+    unsigned long int __x;						\
+    __x = (al) - (bl);							\
+    (sh) = (ah) - (bh) - (__x > (al));					\
+    (sl) = __x;								\
+  } while (0)
+#endif
+
+#if !defined (umul_ppmm)
+#define umul_ppmm(w1, w0, u, v)						\
+  do {									\
+    unsigned long int __x0, __x1, __x2, __x3;				\
+    unsigned int __ul, __vl, __uh, __vh;				\
+									\
+    __ul = __ll_lowpart (u);						\
+    __uh = __ll_highpart (u);						\
+    __vl = __ll_lowpart (v);						\
+    __vh = __ll_highpart (v);						\
+									\
+    __x0 = (unsigned long int) __ul * __vl;				\
+    __x1 = (unsigned long int) __ul * __vh;				\
+    __x2 = (unsigned long int) __uh * __vl;				\
+    __x3 = (unsigned long int) __uh * __vh;				\
+									\
+    __x1 += __ll_highpart (__x0);/* this can't give carry */		\
+    __x1 += __x2;		/* but this indeed can */		\
+    if (__x1 < __x2)		/* did we get it? */			\
+      __x3 += __ll_B;		/* yes, add it in the proper pos. */	\
+									\
+    (w1) = __x3 + __ll_highpart (__x1);					\
+    (w0) = __ll_lowpart (__x1) * __ll_B + __ll_lowpart (__x0);		\
+  } while (0)
+#endif
+
+/* Define this unconditionally, so it can be used for debugging.  */
+#define __udiv_qrnnd_c(q, r, n1, n0, d) \
+  do {									\
+    unsigned long int __d1, __d0, __q1, __q0, __r1, __r0, __m;		\
+    __d1 = __ll_highpart (d);						\
+    __d0 = __ll_lowpart (d);						\
+									\
+    __r1 = (n1) % __d1;							\
+    __q1 = (n1) / __d1;							\
+    __m = (unsigned long int) __q1 * __d0;				\
+    __r1 = __r1 * __ll_B | __ll_highpart (n0);				\
+    if (__r1 < __m)							\
+      {									\
+	__q1--, __r1 += (d);						\
+	if (__r1 >= (d)) /* i.e. we didn't get carry when adding to __r1 */\
+	  if (__r1 < __m)						\
+	    __q1--, __r1 += (d);					\
+      }									\
+    __r1 -= __m;							\
+									\
+    __r0 = __r1 % __d1;							\
+    __q0 = __r1 / __d1;							\
+    __m = (unsigned long int) __q0 * __d0;				\
+    __r0 = __r0 * __ll_B | __ll_lowpart (n0);				\
+    if (__r0 < __m)							\
+      {									\
+	__q0--, __r0 += (d);						\
+	if (__r0 >= (d))						\
+	  if (__r0 < __m)						\
+	    __q0--, __r0 += (d);					\
+      }									\
+    __r0 -= __m;							\
+									\
+    (q) = (unsigned long int) __q1 * __ll_B | __q0;			\
+    (r) = __r0;								\
+  } while (0)
+
+/* If udiv_qrnnd was not defined for this processor, use __udiv_qrnnd_c.  */
+#if !defined (udiv_qrnnd)
+#define UDIV_NEEDS_NORMALIZATION 1
+#define udiv_qrnnd __udiv_qrnnd_c
+#endif
+
+#if !defined (count_leading_zeros)
+extern
+#ifdef __STDC__
+const
+#endif
+unsigned char __clz_tab[];
+#define count_leading_zeros(count, x) \
+  do {									\
+    unsigned long int __xr = (x);					\
+    unsigned int __a;							\
+									\
+    if (LONG_TYPE_SIZE <= 32)						\
+      {									\
+	__a = __xr < (1<<2*__BITS4)					\
+	  ? (__xr < (1<<__BITS4) ? 0 : __BITS4)				\
+	  : (__xr < (1<<3*__BITS4) ?  2*__BITS4 : 3*__BITS4);		\
+      }									\
+    else								\
+      {									\
+	for (__a = LONG_TYPE_SIZE - 8; __a > 0; __a -= 8)		\
+	  if (((__xr >> __a) & 0xff) != 0)				\
+	    break;							\
+      }									\
+									\
+    (count) = LONG_TYPE_SIZE - (__clz_tab[__xr >> __a] + __a);		\
+  } while (0)
+#endif
+
+#ifndef UDIV_NEEDS_NORMALIZATION
+#define UDIV_NEEDS_NORMALIZATION 0
+#endif
diff --git a/Mp/gmp-1.3.2/mdiv.c b/Mp/gmp-1.3.2/mdiv.c
new file mode 100644
index 0000000..950aa50
--- /dev/null
+++ b/Mp/gmp-1.3.2/mdiv.c
@@ -0,0 +1,38 @@
+/* mdiv -- BSD compatible divide producing both remainder and quotient.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mdiv (const MINT *num, const MINT *den, MINT *quot, MINT *rem)
+#else
+mdiv (num, den, quot, rem)
+     const MINT *num;
+     const MINT *den;
+     MINT *quot;
+     MINT *rem;
+#endif
+
+#define COMPUTE_QUOTIENT
+#include "mpz_dmincl.c"
diff --git a/Mp/gmp-1.3.2/memory.c b/Mp/gmp-1.3.2/memory.c
new file mode 100644
index 0000000..cdbe52e
--- /dev/null
+++ b/Mp/gmp-1.3.2/memory.c
@@ -0,0 +1,96 @@
+/* Memory allocation routines.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifdef __NeXT__
+#define static
+#endif
+
+#ifdef __STDC__
+void *	(*_mp_allocate_func) (size_t) = _mp_default_allocate;
+void *	(*_mp_reallocate_func) (void *, size_t, size_t)
+     = _mp_default_reallocate;
+void	(*_mp_free_func) (void *, size_t) = _mp_default_free;
+#else
+void *	(*_mp_allocate_func) () = _mp_default_allocate;
+void *	(*_mp_reallocate_func) () = _mp_default_reallocate;
+void	(*_mp_free_func) () = _mp_default_free;
+#endif
+
+/* Default allocation functions.  In case of failure to allocate/reallocate
+   an error message is written to stderr and the program aborts.  */
+
+void *
+#ifdef __STDC__
+_mp_default_allocate (size_t size)
+#else
+_mp_default_allocate (size)
+     size_t size;
+#endif
+{
+  void *ret;
+
+  ret = malloc (size);
+  if (ret == 0)
+    {
+      perror ("cannot allocate in libmp");
+      abort ();
+    }
+
+  return ret;
+}
+
+void *
+#ifdef __STDC__
+_mp_default_reallocate (void *oldptr, size_t old_size, size_t new_size)
+#else
+_mp_default_reallocate (oldptr, old_size, new_size)
+     void *oldptr;
+     size_t old_size;
+     size_t new_size;
+#endif
+{
+  void *ret;
+
+  ret = realloc (oldptr, new_size);
+  if (ret == 0)
+    {
+      perror ("cannot allocate in libmp");
+      abort ();
+    }
+
+  return ret;
+}
+
+void
+#ifdef __STDC__
+_mp_default_free (void *blk_ptr, size_t blk_size)
+#else
+_mp_default_free (blk_ptr, blk_size)
+     void *blk_ptr;
+     size_t blk_size;
+#endif
+{
+  free (blk_ptr);
+}
diff --git a/Mp/gmp-1.3.2/mfree.c b/Mp/gmp-1.3.2/mfree.c
new file mode 100644
index 0000000..de4bee5
--- /dev/null
+++ b/Mp/gmp-1.3.2/mfree.c
@@ -0,0 +1,35 @@
+/* mfree -- BSD compatible mfree.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mfree (MINT *m)
+#else
+mfree (m)
+     MINT *m;
+#endif
+{
+  (*_mp_free_func) (m->d, m->alloc * BYTES_PER_MP_LIMB);
+  (*_mp_free_func) (m, sizeof (MINT));
+}
diff --git a/Mp/gmp-1.3.2/min.c b/Mp/gmp-1.3.2/min.c
new file mode 100644
index 0000000..2bc7d6d
--- /dev/null
+++ b/Mp/gmp-1.3.2/min.c
@@ -0,0 +1,64 @@
+/* min(MINT) -- Do decimal input from standard input and store result in
+   MINT.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include <ctype.h>
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+min (MINT *x)
+#else
+min (x)
+     MINT *x;
+#endif
+{
+  char *str;
+  size_t str_size;
+  size_t i;
+  int c;
+
+  str_size = 100;
+  str = (char *) (*_mp_allocate_func) (str_size);
+
+  for (i = 0; ; i++)
+    {
+      if (i >= str_size)
+	{
+	  size_t old_str_size = str_size;
+	  str_size = str_size * 3 / 2;
+	  str = (char *) (*_mp_reallocate_func) (str, old_str_size, str_size);
+	}
+      c = getc (stdin);
+      if (!(isdigit(c) || c == ' ' || c == '\t'))
+	break;
+      str[i] = c;
+    }
+
+  ungetc (c, stdin);
+
+  str[i] = 0;
+  _mpz_set_str (x, str, 10);
+
+  (*_mp_free_func) (str, str_size);
+}
diff --git a/Mp/gmp-1.3.2/mout.c b/Mp/gmp-1.3.2/mout.c
new file mode 100644
index 0000000..7aeaa16
--- /dev/null
+++ b/Mp/gmp-1.3.2/mout.c
@@ -0,0 +1,42 @@
+/* mout(MINT) -- Do decimal output of MINT to standard output.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mout (const MINT *x)
+#else
+mout (x)
+     const MINT *x;
+#endif
+{
+  char *str;
+  size_t str_size;
+
+  str_size = ((size_t) (ABS (x->size) * BITS_PER_MP_LIMB
+			* __mp_bases[10].chars_per_bit_exactly)) + 3;
+  str = (char *) alloca (str_size);
+  _mpz_get_str (str, 10, x);
+  puts (str);
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/move.c b/Mp/gmp-1.3.2/move.c
new file mode 100644
index 0000000..82b9cc3
--- /dev/null
+++ b/Mp/gmp-1.3.2/move.c
@@ -0,0 +1,45 @@
+/* move -- BSD compatible assignment.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+move (const MINT *u, MINT *w)
+#else
+move (u, w)
+     const MINT *u;
+     MINT *w;
+#endif
+{
+  mp_size usize;
+  mp_size abs_usize;
+
+  usize = u->size;
+  abs_usize = ABS (usize);
+
+  if (w->alloc < abs_usize)
+    _mpz_realloc (w, abs_usize);
+
+  w->size = usize;
+  MPN_COPY (w->d, u->d, abs_usize);
+}
diff --git a/Mp/gmp-1.3.2/mp.h b/Mp/gmp-1.3.2/mp.h
new file mode 100644
index 0000000..8836e0c
--- /dev/null
+++ b/Mp/gmp-1.3.2/mp.h
@@ -0,0 +1,103 @@
+/* mp.h -- Definitions for Berkeley compatible multiple precision functions.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifndef __MP_H__
+#define __MP_H__
+
+#define __GNU_MP__
+
+#ifndef __GMP_H__
+#define __need_size_t
+#include <stddef.h>
+#endif
+
+#ifndef MP_INT
+#ifndef __MP_SMALL__
+typedef struct
+{
+  long int alloc;		/* Number of *limbs* allocated and pointed
+				   to by the D field.  */
+  long int size;		/* abs(SIZE) is the number of limbs
+				   the last field points to.  If SIZE
+				   is negative this is a negative
+				   number.  */
+  unsigned long int *d;		/* Pointer to the limbs.  */
+} __MP_INT;
+#else
+typedef struct
+{
+  short int alloc;		/* Number of *limbs* allocated and pointed
+				   to by the D field.  */
+  short int size;		/* abs(SIZE) is the number of limbs
+				   the last field points to.  If SIZE
+				   is negative this is a negative
+				   number.  */
+  unsigned long int *d;		/* Pointer to the limbs.  */
+} __MP_INT;
+#endif
+#endif
+
+#define MINT __MP_INT
+
+#ifdef __STDC__
+void mp_set_memory_functions (void *(*) (size_t),
+			      void *(*) (void *, size_t, size_t),
+			      void (*) (void *, size_t));
+MINT *itom (signed short int);
+MINT *xtom (const char *);
+void move (const MINT *, MINT *);
+void madd (const MINT *, const MINT *, MINT *);
+void msub (const MINT *, const MINT *, MINT *);
+void mult (const MINT *, const MINT *, MINT *);
+void mdiv (const MINT *, const MINT *, MINT *, MINT *);
+void sdiv (const MINT *, signed short int, MINT *, signed short int *);
+void msqrt (const MINT *, MINT *, MINT *);
+void pow (const MINT *, const MINT *, const MINT *, MINT *);
+void rpow (const MINT *, signed short int, MINT *);
+void gcd (const MINT *, const MINT *, MINT *);
+int mcmp (const MINT *, const MINT *);
+void min (MINT *);
+void mout (const MINT *);
+char *mtox (const MINT *);
+void mfree (MINT *);
+
+#else
+
+void mp_set_memory_functions ();
+MINT *itom ();
+MINT *xtom ();
+void move ();
+void madd ();
+void msub ();
+void mult ();
+void mdiv ();
+void sdiv ();
+void msqrt ();
+void pow ();
+void rpow ();
+void gcd ();
+int mcmp ();
+void min ();
+void mout ();
+char *mtox ();
+void mfree ();
+#endif
+
+#endif /* __MP_H__ */
diff --git a/Mp/gmp-1.3.2/mp_clz_tab.c b/Mp/gmp-1.3.2/mp_clz_tab.c
new file mode 100644
index 0000000..c27b969
--- /dev/null
+++ b/Mp/gmp-1.3.2/mp_clz_tab.c
@@ -0,0 +1,36 @@
+/* __clz_tab -- support for longlong.h
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* BOTCH: This ought to be made machine-independent.  */
+
+const unsigned char __clz_tab[] =
+{
+  0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
+  6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
+  7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
+  7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
+};
diff --git a/Mp/gmp-1.3.2/mp_set_fns.c b/Mp/gmp-1.3.2/mp_set_fns.c
new file mode 100644
index 0000000..04bb37a
--- /dev/null
+++ b/Mp/gmp-1.3.2/mp_set_fns.c
@@ -0,0 +1,47 @@
+/* mp_set_memory_functions -- Set the allocate, reallocate, and free functions
+   for use by the mp package.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mp_set_memory_functions (void *(*alloc_func) (size_t),
+			 void *(*realloc_func) (void *, size_t, size_t),
+			 void (*free_func) (void *, size_t))
+#else
+mp_set_memory_functions (alloc_func, realloc_func, free_func)
+     void *(*alloc_func) ();
+     void *(*realloc_func) ();
+     void (*free_func) ();
+#endif
+{
+  if (alloc_func == 0)
+    alloc_func = _mp_default_allocate;
+  if (realloc_func == 0)
+    realloc_func = _mp_default_reallocate;
+  if (free_func == 0)
+    free_func = _mp_default_free;
+
+  _mp_allocate_func = alloc_func;
+  _mp_reallocate_func = realloc_func;
+  _mp_free_func = free_func;
+}
diff --git a/Mp/gmp-1.3.2/mpn_add.c b/Mp/gmp-1.3.2/mpn_add.c
new file mode 100644
index 0000000..10502a8
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_add.c
@@ -0,0 +1,141 @@
+/* mpn_add -- Add two low-level integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Add ADD1_PTR/ADD1_SIZE and ADD2_PTR/ADD2_SIZE and store the first
+   ADD1_SIZE words of the result at SUM_PTR.
+
+   Return 1 if carry out was generated, return 0 otherwise.
+
+   Argument constraint: ADD1_SIZE >= ADD2_SIZE.
+
+   The size of SUM can be calculated as ADD1_SIZE + the return value.  */
+
+mp_limb
+#ifdef __STDC__
+mpn_add (mp_ptr sum_ptr,
+	 mp_srcptr add1_ptr, mp_size add1_size,
+	 mp_srcptr add2_ptr, mp_size add2_size)
+#else
+mpn_add (sum_ptr, add1_ptr, add1_size, add2_ptr, add2_size)
+     mp_ptr sum_ptr;
+     mp_srcptr add1_ptr;
+     mp_size add1_size;
+     mp_srcptr add2_ptr;
+     mp_size add2_size;
+#endif
+{
+  mp_limb a1, a2, sum;
+  mp_size j;
+
+  /* The loop counter and index J goes from some negative value to zero.
+     This way the loops become faster.  Need to offset the base pointers
+     to take care of the negative indices.  */
+
+  j = -add2_size;
+  if (j == 0)
+    goto add2_finished;
+
+  add1_ptr -= j;
+  add2_ptr -= j;
+  sum_ptr -= j;
+
+  /* There are two do-loops, marked NON-CARRY LOOP and CARRY LOOP that
+     jump between each other.  The first loop is for when the previous
+     addition didn't produce a carry-out; the second is for the
+     complementary case.  */
+
+  /* NON-CARRY LOOP */
+  do
+    {
+      a1 = add1_ptr[j];
+      a2 = add2_ptr[j];
+      sum = a1 + a2;
+      sum_ptr[j] = sum;
+      if (sum < a2)
+	goto cy_loop;
+    ncy_loop:
+      j++;
+    }
+  while (j < 0);
+
+  /* We have exhausted ADD2.  Just copy ADD1 to SUM, and return
+     0 as an indication of no carry-out.  */
+
+ add2_finished:
+  /* Immediate return if the copy would be a no-op.  */
+  if (sum_ptr == add1_ptr)
+    return 0;
+
+  j = add2_size - add1_size;
+  add1_ptr -= j;
+  sum_ptr -= j;
+
+  while (j < 0)
+    {
+      sum_ptr[j] = add1_ptr[j];
+      j++;
+    }
+  return 0;
+
+  /* CARRY LOOP */
+  do
+    {
+      a1 = add1_ptr[j];
+      a2 = add2_ptr[j];
+      sum = a1 + a2 + 1;
+      sum_ptr[j] = sum;
+      if (sum > a2)
+	goto ncy_loop;
+    cy_loop:
+      j++;
+    }
+  while (j < 0);
+
+  j = add2_size - add1_size;
+  add1_ptr -= j;
+  sum_ptr -= j;
+
+  while (j < 0)
+    {
+      a1 = add1_ptr[j];
+      sum = a1 + 1;
+      sum_ptr[j] = sum;
+      if (sum > 0)
+	goto copy_add1;
+      j++;
+    }
+  return 1;
+
+ copy_add1:
+  if (sum_ptr == add1_ptr)
+    return 0;
+
+  j++;
+  while (j < 0)
+    {
+      sum_ptr[j] = add1_ptr[j];
+      j++;
+    }
+
+  return 0;
+}
diff --git a/Mp/gmp-1.3.2/mpn_cmp.c b/Mp/gmp-1.3.2/mpn_cmp.c
new file mode 100644
index 0000000..11f39ca
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_cmp.c
@@ -0,0 +1,52 @@
+/* mpn_cmp -- Compare two low-level natural-number integers.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Compare OP1_PTR/OP1_SIZE with OP2_PTR/OP2_SIZE.
+   There are no restrictions on the relative sizes of
+   the two arguments.
+   Return 1 if OP1 > OP2, 0 if they are equal, and -1 if OP1 < OP2.  */
+
+int
+#ifdef __STDC__
+mpn_cmp (mp_srcptr op1_ptr, mp_srcptr op2_ptr, mp_size size)
+#else
+mpn_cmp (op1_ptr, op2_ptr, size)
+     mp_srcptr op1_ptr;
+     mp_srcptr op2_ptr;
+     mp_size size;
+#endif
+{
+  mp_size i;
+  mp_limb op1_word, op2_word;
+
+  for (i = size - 1; i >= 0; i--)
+    {
+      op1_word = op1_ptr[i];
+      op2_word = op2_ptr[i];
+      if (op1_word != op2_word)
+	goto diff;
+    }
+  return 0;
+ diff:
+  return (op1_word > op2_word) ? 1 : -1;
+}
diff --git a/Mp/gmp-1.3.2/mpn_div.c b/Mp/gmp-1.3.2/mpn_div.c
new file mode 100644
index 0000000..8609206
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_div.c
@@ -0,0 +1,321 @@
+/* mpn_div -- Divide natural numbers, producing both remainder and
+   quotient.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+/* Divide num (NUM_PTR/NUM_SIZE) by den (DEN_PTR/DEN_SIZE) and write
+   the quotient at QUOT_PTR and the remainder at NUM_PTR.
+
+   Return 0 or 1, depending on if the quotient size is (NSIZE - DSIZE)
+   or (NSIZE - DSIZE + 1).
+
+   Argument constraints:
+   1. The most significant bit of d must be set.
+   2. QUOT_PTR != DEN_PTR and QUOT_PTR != NUM_PTR, i.e. the quotient storage
+      area must be distinct from either input operands.
+
+   The exact sizes of the quotient and remainder must be determined
+   by the caller, in spite of the return value.  The return value just
+   informs the caller about if the highest digit is written or not, and
+   it may very well be 0.  */
+
+/* THIS WILL BE IMPROVED SOON.  MORE COMMENTS AND FASTER CODE.  */
+
+mp_size
+#ifdef __STDC__
+mpn_div (mp_ptr quot_ptr,
+	 mp_ptr num_ptr, mp_size num_size,
+	 mp_srcptr den_ptr, mp_size den_size)
+#else
+mpn_div (quot_ptr, num_ptr, num_size, den_ptr, den_size)
+     mp_ptr quot_ptr;
+     mp_ptr num_ptr;
+     mp_size num_size;
+     mp_srcptr den_ptr;
+     mp_size den_size;
+#endif
+{
+  mp_size q_is_long = 0;
+
+  switch (den_size)
+    {
+    case 0:
+      /* We are asked to divide by zero, so go ahead and do it!
+	 (To make the compiler not remove this statement, assign NUM_SIZE
+	 and fall through.)  */
+      num_size = 1 / den_size;
+
+    case 1:
+      {
+	mp_size i;
+	mp_limb n1, n0;
+	mp_limb d;
+
+	d = den_ptr[0];
+	i = num_size - 1;
+	n1 = num_ptr[i];
+	i--;
+
+	if (n1 >= d)
+	  {
+	    q_is_long = 1;
+	    n1 = 0;
+	    i++;
+	  }
+
+	for (; i >= 0; i--)
+	  {
+	    n0 = num_ptr[i];
+	    udiv_qrnnd (quot_ptr[i], n1, n1, n0, d);
+	  }
+
+	num_ptr[0] = n1;
+      }
+      break;
+
+    case 2:
+      {
+	mp_size i;
+	mp_limb n0, n1, n2;
+	mp_limb d0, d1;
+
+	num_ptr += num_size - 2;
+	d0 = den_ptr[1];
+	d1 = den_ptr[0];
+	n0 = num_ptr[1];
+	n1 = num_ptr[0];
+
+	if (n0 >= d0)
+	  {
+	    q_is_long = 1;
+	    n1 = n0;
+	    n0 = 0;
+	    num_ptr++;
+	    num_size++;
+	  }
+
+	for (i = num_size - den_size - 1; i >= 0; i--)
+	  {
+	    mp_limb q;
+	    mp_limb r;
+
+	    num_ptr--;
+	    if (n0 == d0)
+	      {
+		/* Q should be either 111..111 or 111..110.  Need special
+		   treatment of this rare case as normal division would
+		   give overflow.  */
+		q = ~0;
+
+		r = n1 + d0;
+		if (r < d0)	/* Carry in the addition? */
+		  {
+		    n2 = num_ptr[0];
+
+		    add_ssaaaa (n0, n1, r - d1, n2, 0, d1);
+		    quot_ptr[i] = q;
+		    continue;
+		  }
+		n0 = d1 - (d1 != 0);
+		n1 = -d1;
+	      }
+	    else
+	      {
+		udiv_qrnnd (q, r, n0, n1, d0);
+		umul_ppmm (n0, n1, d1, q);
+	      }
+
+	    n2 = num_ptr[0];
+	  q_test:
+	    if (n0 > r || (n0 == r && n1 > n2))
+	      {
+		/* The estimated Q was too large.  */
+		q--;
+
+		sub_ddmmss (n0, n1, n0, n1, 0, d1);
+		r += d0;
+		if (r >= d0)	/* If not carry, test q again.  */
+		  goto q_test;
+	      }
+
+	    quot_ptr[i] = q;
+	    sub_ddmmss (n0, n1, r, n2, n0, n1);
+	  }
+	num_ptr[1] = n0;
+	num_ptr[0] = n1;
+      }
+      break;
+
+    default:
+      {
+	mp_size i;
+	mp_limb d0 = den_ptr[den_size - 1];
+	mp_limb d1 = den_ptr[den_size - 2];
+	mp_limb n0 = num_ptr[num_size - 1];
+	int ugly_hack_flag = 0;
+
+	if (n0 >= d0)
+	  {
+
+	    /* There's a problem with this case, which shows up later in the
+	       code.  q becomes 1 (and sometimes 0) the first time when
+	       we've been here, and w_cy == 0 after the main do-loops below.
+	       But c = num_ptr[j] reads rubbish outside the num_ptr vector!
+	       Maybe I can solve this cleanly when I fix the early-end
+	       optimization here in the default case.  For now, I change the
+	       add_back entering condition, to kludge.  Leaving the stray
+	       memref behind!
+
+	       HACK: Added ugly_hack_flag to make it work.  */
+
+	    q_is_long = 1;
+	    n0 = 0;
+	    num_size++;
+	    ugly_hack_flag = 1;
+	  }
+
+	num_ptr += num_size;
+	den_ptr += den_size;
+	for (i = num_size - den_size - 1; i >= 0; i--)
+	  {
+	    mp_limb q;
+	    mp_limb n1;
+	    mp_limb w_cy;
+	    mp_limb d, c;
+	    mp_size j;
+
+	    num_ptr--;
+	    if (n0 == d0)
+	      /* This might over-estimate q, but it's probably not worth
+		 the extra code here to find out.  */
+	      q = ~0;
+	    else
+	      {
+		mp_limb r;
+
+		udiv_qrnnd (q, r, n0, num_ptr[-1], d0);
+		umul_ppmm (n1, n0, d1, q);
+
+		while (n1 > r || (n1 == r && n0 > num_ptr[-2]))
+		  {
+		    q--;
+		    r += d0;
+		    if (r < d0)	/* I.e. "carry in previous addition?"  */
+		      break;
+		    n1 -= n0 < d1;
+		    n0 -= d1;
+		  }
+	      }
+
+	    w_cy = 0;
+	    j = -den_size;
+	    do
+	      {
+		d = den_ptr[j];
+		c = num_ptr[j];
+		umul_ppmm (n1, n0, d, q);
+		n0 += w_cy;
+		w_cy = (n0 < w_cy) + n1;
+		n0 = c - n0;
+		num_ptr[j] = n0;
+		if (n0 > c)
+		  goto cy_loop;
+	      ncy_loop:
+		j++;
+	      }
+	    while  (j < 0);
+
+	    if (ugly_hack_flag)
+	      {
+		c = 0;
+		ugly_hack_flag = 0;
+	      }
+	    else
+	      c = num_ptr[j];
+	    if (c >= w_cy)
+	      goto store_q;
+	    goto add_back;
+
+	    do
+	      {
+		d = den_ptr[j];
+		c = num_ptr[j];
+		umul_ppmm (n1, n0, d, q);
+		n0 += w_cy;
+		w_cy = (n0 < w_cy) + n1;
+		n0 = c - n0 - 1;
+		num_ptr[j] = n0;
+		if (n0 < c)
+		  goto ncy_loop;
+	      cy_loop:
+		j++;
+	      }
+	    while  (j < 0);
+
+	    if (ugly_hack_flag)
+	      {
+		c = 0;
+		ugly_hack_flag = 0;
+	      }
+	    else
+	      c = num_ptr[j];
+	    w_cy++;
+	    if (c >= w_cy)
+	      goto store_q;
+
+	  add_back:
+	    j = -den_size;
+	    do
+	      {
+		d = den_ptr[j];
+		n0 = num_ptr[j] + d;
+		num_ptr[j] = n0;
+		if (n0 < d)
+		  goto ab_cy_loop;
+	      ab_ncy_loop:
+		j++;
+	      }
+	    while  (j < 0);
+	    abort ();		/* We should always have a carry out! */
+
+	    do
+	      {
+		d = den_ptr[j];
+		n0 = num_ptr[j] + d + 1;
+		num_ptr[j] = n0;
+		if (n0 > d)
+		  goto ab_ncy_loop;
+	      ab_cy_loop:
+		j++;
+	      }
+	    while  (j < 0);
+	    q--;
+
+	  store_q:
+	    quot_ptr[i] = q;
+	  }
+      }
+    }
+
+  return q_is_long;
+}
diff --git a/Mp/gmp-1.3.2/mpn_dm_1.c b/Mp/gmp-1.3.2/mpn_dm_1.c
new file mode 100644
index 0000000..af39124
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_dm_1.c
@@ -0,0 +1,185 @@
+/* mpn_divmod_1(quot_ptr, dividend_ptr, dividend_size, divisor_limb) --
+   Divide (DIVIDEND_PTR,,DIVIDEND_SIZE) by DIVISOR_LIMB.
+   Write DIVIDEND_SIZE limbs of quotient at QUOT_PTR.
+   Return the single-limb remainder.
+   There are no constraints on the value of the divisor.
+
+   QUOT_PTR and DIVIDEND_PTR might point to the same limb.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifndef UMUL_TIME
+#define UMUL_TIME 1
+#endif
+
+#ifndef UDIV_TIME
+#define UDIV_TIME UMUL_TIME
+#endif
+
+#if UDIV_TIME > 2 * UMUL_TIME
+#undef UDIV_NEEDS_NORMALIZATION
+#define UDIV_NEEDS_NORMALIZATION 1
+#endif
+
+#define udiv_qrnnd_preinv(q, r, nh, nl, d, di) \
+  do {									\
+    unsigned long int _q, _ql, _r;					\
+    unsigned long int _xh, _xl;						\
+    umul_ppmm (_q, _ql, (nh), (di));					\
+    _q += (nh);			/* DI is 2**BITS_PER_MP_LIMB too small.  */\
+    umul_ppmm (_xh, _xl, _q, (d));					\
+    sub_ddmmss (_xh, _r, (nh), (nl), _xh, _xl);				\
+    if (_xh != 0)							\
+      {									\
+	sub_ddmmss (_xh, _r, _xh, _r, 0, (d));				\
+	_q += 1;							\
+	if (_xh != 0)							\
+	  {								\
+	    sub_ddmmss (_xh, _r, _xh, _r, 0, (d));			\
+	    _q += 1;							\
+	  }								\
+      }									\
+    if (_r >= (d))							\
+      {									\
+	_r -= (d);							\
+	_q += 1;							\
+      }									\
+    (r) = _r;								\
+    (q) = _q;								\
+  } while (0)
+
+mp_limb
+#ifdef __STDC__
+mpn_divmod_1 (mp_ptr quot_ptr,
+	      mp_srcptr dividend_ptr, mp_size dividend_size,
+	      unsigned long int divisor_limb)
+#else
+mpn_divmod_1 (quot_ptr, dividend_ptr, dividend_size, divisor_limb)
+     mp_ptr quot_ptr;
+     mp_srcptr dividend_ptr;
+     mp_size dividend_size;
+     unsigned long int divisor_limb;
+#endif
+{
+  mp_size i;
+  mp_limb n1, n0, r;
+
+  /* Botch: Should this be handled at all?  Rely on callers?  */
+  if (dividend_size == 0)
+    return 0;
+
+  if (UDIV_NEEDS_NORMALIZATION)
+    {
+      int normalization_steps;
+
+      count_leading_zeros (normalization_steps, divisor_limb);
+      if (normalization_steps != 0)
+	{
+	  divisor_limb <<= normalization_steps;
+
+	  n1 = dividend_ptr[dividend_size - 1];
+	  r = n1 >> (BITS_PER_MP_LIMB - normalization_steps);
+
+	  /* Possible optimization:
+	     if (r == 0
+	     && divisor_limb > ((n1 << normalization_steps)
+			     | (dividend_ptr[dividend_size - 2] >> ...)))
+	     ...one division less...
+	     [Don't forget to zero most sign. quotient limb!]  */
+
+	  /* If multiplication is much faster than division, and the
+	     dividend is large, pre-invert the divisor, and use
+	     only multiplications in the inner loop.  */
+	  if (UDIV_TIME > 2 * UMUL_TIME && dividend_size >= 4)
+	    {
+	      mp_limb divisor_limb_inverted;
+	      int dummy;
+	      /* Compute (2**64 - 2**32 * DIVISOR_LIMB) / DIVISOR_LIMB.
+		 The result is an 33-bit approximation to 1/DIVISOR_LIMB,
+		 with the most significant bit (weight 2**32) implicit.  */
+
+	      /* Special case for DIVISOR_LIMB == 100...000.  */
+	      if (divisor_limb << 1 == 0)
+		divisor_limb_inverted = ~0;
+	      else
+		udiv_qrnnd (divisor_limb_inverted, dummy,
+			    -divisor_limb, 0, divisor_limb);
+
+	      for (i = dividend_size - 2; i >= 0; i--)
+		{
+		  n0 = dividend_ptr[i];
+		  udiv_qrnnd_preinv (quot_ptr[i + 1], r, r,
+				     ((n1 << normalization_steps)
+				      | (n0 >> (BITS_PER_MP_LIMB - normalization_steps))),
+				     divisor_limb, divisor_limb_inverted);
+		  n1 = n0;
+		}
+	      udiv_qrnnd_preinv (quot_ptr[0], r, r,
+			  n1 << normalization_steps,
+			  divisor_limb, divisor_limb_inverted);
+	      return r >> normalization_steps;
+	    }
+	  else
+	    {
+	      for (i = dividend_size - 2; i >= 0; i--)
+		{
+		  n0 = dividend_ptr[i];
+		  udiv_qrnnd (quot_ptr[i + 1], r, r,
+			      ((n1 << normalization_steps)
+			       | (n0 >> (BITS_PER_MP_LIMB - normalization_steps))),
+			      divisor_limb);
+		  n1 = n0;
+		}
+	      udiv_qrnnd (quot_ptr[0], r, r,
+			  n1 << normalization_steps,
+			  divisor_limb);
+	      return r >> normalization_steps;
+	    }
+	}
+    }
+
+  /* No normalization needed, either because udiv_qrnnd doesn't require
+     it, or because DIVISOR_LIMB is already normalized.  */
+
+  i = dividend_size - 1;
+  r = dividend_ptr[i];
+
+  if (r >= divisor_limb)
+    {
+      r = 0;
+    }
+  else
+    {
+      /* Callers expect the quotient to be DIVIDEND_SIZE limbs.  Store
+	 a leading zero to make that expectation come true.  */
+      quot_ptr[i] = 0;
+      i--;
+    }
+
+  for (; i >= 0; i--)
+    {
+      n0 = dividend_ptr[i];
+      udiv_qrnnd (quot_ptr[i], r, r, n0, divisor_limb);
+    }
+  return r;
+}
diff --git a/Mp/gmp-1.3.2/mpn_lshift.c b/Mp/gmp-1.3.2/mpn_lshift.c
new file mode 100644
index 0000000..b89a736
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_lshift.c
@@ -0,0 +1,83 @@
+/* mpn_lshift -- Shift left low level.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Shift U (pointed to by UP and USIZE digits long) CNT bits to the left
+   and store the USIZE least significant digits of the result at WP.
+   Return the bits shifted out from the most significant digit.
+
+   Argument constraints:
+   0. U must be normalized (i.e. it's most significant digit != 0).
+   1. 0 <= CNT < BITS_PER_MP_LIMB
+   2. If the result is to be written over the input, WP must be >= UP.
+*/
+
+mp_limb
+#ifdef __STDC__
+mpn_lshift (mp_ptr wp,
+	    mp_srcptr up, mp_size usize,
+	    unsigned cnt)
+#else
+mpn_lshift (wp, up, usize, cnt)
+     mp_ptr wp;
+     mp_srcptr up;
+     mp_size usize;
+     unsigned cnt;
+#endif
+{
+  mp_limb high_limb, low_limb;
+  unsigned sh_1, sh_2;
+  mp_size i;
+  mp_limb retval;
+
+  if (usize == 0)
+    return 0;
+
+  sh_1 = cnt;
+  if (sh_1 == 0)
+    {
+      if (wp != up)
+	{
+	  /* Copy from high end to low end, to allow specified input/output
+	     overlapping.  */
+	  for (i = usize - 1; i >= 0; i--)
+	    wp[i] = up[i];
+	}
+      return 0;
+    }
+
+  wp += 1;
+  sh_2 = BITS_PER_MP_LIMB - sh_1;
+  i = usize - 1;
+  low_limb = up[i];
+  retval = low_limb >> sh_2;
+  high_limb = low_limb;
+  while (--i >= 0)
+    {
+      low_limb = up[i];
+      wp[i] = (high_limb << sh_1) | (low_limb >> sh_2);
+      high_limb = low_limb;
+    }
+  wp[i] = high_limb << sh_1;
+
+  return retval;
+}
diff --git a/Mp/gmp-1.3.2/mpn_mod_1.c b/Mp/gmp-1.3.2/mpn_mod_1.c
new file mode 100644
index 0000000..19fcefd
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_mod_1.c
@@ -0,0 +1,104 @@
+/* mpn_mod_1(dividend_ptr, dividend_size, divisor_limb) --
+   Divide (DIVIDEND_PTR,,DIVIDEND_SIZE) by DIVISOR_LIMB.
+   Return the single-limb remainder.
+   There are no constraints on the value of the divisor.
+
+   QUOT_PTR and DIVIDEND_PTR might point to the same limb.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+mp_limb
+#ifdef __STDC__
+mpn_mod_1 (mp_srcptr dividend_ptr, mp_size dividend_size,
+	    unsigned long int divisor_limb)
+#else
+mpn_mod_1 (dividend_ptr, dividend_size, divisor_limb)
+     mp_srcptr dividend_ptr;
+     mp_size dividend_size;
+     unsigned long int divisor_limb;
+#endif
+{
+  int normalization_steps;
+  mp_size i;
+  mp_limb n1, n0, r;
+  int dummy;
+
+  /* Botch: Should this be handled at all?  Rely on callers?  */
+  if (dividend_size == 0)
+    return 0;
+
+  if (UDIV_NEEDS_NORMALIZATION)
+    {
+      count_leading_zeros (normalization_steps, divisor_limb);
+      if (normalization_steps != 0)
+	{
+	  divisor_limb <<= normalization_steps;
+
+	  n1 = dividend_ptr[dividend_size - 1];
+	  r = n1 >> (BITS_PER_MP_LIMB - normalization_steps);
+
+	  /* Possible optimization:
+	  if (r == 0
+	      && divisor_limb > ((n1 << normalization_steps)
+				 | (dividend_ptr[dividend_size - 2] >> ...)))
+	    ...one division less...
+	   */
+
+	  for (i = dividend_size - 2; i >= 0; i--)
+	    {
+	      n0 = dividend_ptr[i];
+	      udiv_qrnnd (dummy, r, r,
+			  ((n1 << normalization_steps)
+			   | (n0 >> (BITS_PER_MP_LIMB - normalization_steps))),
+			  divisor_limb);
+	      n1 = n0;
+	    }
+	  udiv_qrnnd (dummy, r, r,
+		      n1 << normalization_steps,
+		      divisor_limb);
+	  return r >> normalization_steps;
+	}
+    }
+
+  /* No normalization needed, either because udiv_qrnnd doesn't require
+     it, or because DIVISOR_LIMB is already normalized.  */
+
+  i = dividend_size - 1;
+  r = dividend_ptr[i];
+
+  if (r >= divisor_limb)
+    {
+      r = 0;
+    }
+  else
+    {
+      i--;
+    }
+
+  for (; i >= 0; i--)
+    {
+      n0 = dividend_ptr[i];
+      udiv_qrnnd (dummy, r, r, n0, divisor_limb);
+    }
+  return r;
+}
diff --git a/Mp/gmp-1.3.2/mpn_mul.c b/Mp/gmp-1.3.2/mpn_mul.c
new file mode 100644
index 0000000..8455f1d
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_mul.c
@@ -0,0 +1,414 @@
+/* mpn_mul -- Multiply two natural numbers.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifdef DEBUG
+#define MPN_MUL_VERIFY(res_ptr,res_size,op1_ptr,op1_size,op2_ptr,op2_size) \
+  mpn_mul_verify (res_ptr, res_size, op1_ptr, op1_size, op2_ptr, op2_size)
+
+#include <stdio.h>
+static void
+mpn_mul_verify (res_ptr, res_size, op1_ptr, op1_size, op2_ptr, op2_size)
+     mp_ptr res_ptr, op1_ptr, op2_ptr;
+     mp_size res_size, op1_size, op2_size;
+{
+  mp_ptr tmp_ptr;
+  mp_size tmp_size;
+  tmp_ptr = alloca ((op1_size + op2_size) * BYTES_PER_MP_LIMB);
+  if (op1_size >= op2_size)
+    tmp_size = mpn_mul_classic (tmp_ptr,
+				 op1_ptr, op1_size, op2_ptr, op2_size);
+  else
+    tmp_size = mpn_mul_classic (tmp_ptr,
+				 op2_ptr, op2_size, op1_ptr, op1_size);
+  if (tmp_size != res_size
+      || mpn_cmp (tmp_ptr, res_ptr, tmp_size) != 0)
+    {
+      fprintf (stderr, "GNU MP internal error: Wrong result in mpn_mul.\n");
+      fprintf (stderr, "op1{%d} = ", op1_size); mpn_dump (op1_ptr, op1_size);
+      fprintf (stderr, "op2{%d} = ", op2_size); mpn_dump (op2_ptr, op2_size);
+      abort ();
+    }
+}
+#else
+#define MPN_MUL_VERIFY(a,b,c,d,e,f)
+#endif
+
+/* Multiply the natural numbers u (pointed to by UP, with USIZE limbs)
+   and v (pointed to by VP, with VSIZE limbs), and store the result at
+   PRODP.  USIZE + VSIZE limbs are always stored, but if the input
+   operands are normalized, the return value will reflect the true
+   result size (which is either USIZE + VSIZE, or USIZE + VSIZE -1).
+
+   NOTE: The space pointed to by PRODP is overwritten before finished
+   with U and V, so overlap is an error.
+
+   Argument constraints:
+   1. USIZE >= VSIZE.
+   2. PRODP != UP and PRODP != VP, i.e. the destination
+      must be distinct from the multiplier and the multiplicand.  */
+
+/* If KARATSUBA_THRESHOLD is not already defined, define it to a
+   value which is good on most machines.  */
+#ifndef KARATSUBA_THRESHOLD
+#define KARATSUBA_THRESHOLD 8
+#endif
+
+/* The code can't handle KARATSUBA_THRESHOLD smaller than 4.  */
+#if KARATSUBA_THRESHOLD < 4
+#undef KARATSUBA_THRESHOLD
+#define KARATSUBA_THRESHOLD 4
+#endif
+
+mp_size
+#ifdef __STDC__
+mpn_mul (mp_ptr prodp,
+	  mp_srcptr up, mp_size usize,
+	  mp_srcptr vp, mp_size vsize)
+#else
+mpn_mul (prodp, up, usize, vp, vsize)
+     mp_ptr prodp;
+     mp_srcptr up;
+     mp_size usize;
+     mp_srcptr vp;
+     mp_size vsize;
+#endif
+{
+  mp_size n;
+  mp_size prod_size;
+  mp_limb cy;
+
+  if (vsize < KARATSUBA_THRESHOLD)
+    {
+      /* Handle simple cases with traditional multiplication.
+
+	 This is the most critical code of the entire function.  All
+	 multiplies rely on this, both small and huge.  Small ones arrive
+	 here immediately.  Huge ones arrive here as this is the base case
+	 for the recursive algorithm below.  */
+      mp_size i, j;
+      mp_limb prod_low, prod_high;
+      mp_limb cy_limb;
+      mp_limb v_limb;
+
+      if (vsize == 0)
+	return 0;
+
+      /* Offset UP and PRODP so that the inner loop can be faster.  */
+      up += usize;
+      prodp += usize;
+
+      /* Multiply by the first limb in V separately, as the result can
+	 be stored (not added) to PROD.  We also avoid a loop for zeroing.  */
+      v_limb = vp[0];
+      if (v_limb <= 1)
+	{
+	  if (v_limb == 1)
+	    MPN_COPY (prodp - usize, up - usize, usize);
+	  else
+	    MPN_ZERO (prodp - usize, usize);
+	  cy_limb = 0;
+	}
+      else
+	{
+	  cy_limb = 0;
+	  j = -usize;
+	  do
+	    {
+	      umul_ppmm (prod_high, prod_low, up[j], v_limb);
+	      add_ssaaaa (cy_limb, prodp[j], prod_high, prod_low, 0, cy_limb);
+	      j++;
+	    }
+	  while (j < 0);
+	}
+
+      prodp[0] = cy_limb;
+      prodp++;
+
+      /* For each iteration in the outer loop, multiply one limb from
+	 U with one limb from V, and add it to PROD.  */
+      for (i = 1; i < vsize; i++)
+	{
+	  v_limb = vp[i];
+	  if (v_limb <= 1)
+	    {
+	      cy_limb = 0;
+	      if (v_limb == 1)
+		cy_limb = mpn_add (prodp - usize,
+				    prodp - usize, usize, up - usize, usize);
+	    }
+	  else
+	    {
+	      cy_limb = 0;
+	      j = -usize;
+
+	      do
+		{
+		  umul_ppmm (prod_high, prod_low, up[j], v_limb);
+		  add_ssaaaa (cy_limb, prod_low,
+			      prod_high, prod_low, 0, cy_limb);
+		  add_ssaaaa (cy_limb, prodp[j],
+			      cy_limb, prod_low, 0, prodp[j]);
+		  j++;
+		}
+	      while (j < 0);
+	    }
+
+	  prodp[0] = cy_limb;
+	  prodp++;
+	}
+
+      return usize + vsize - (cy_limb == 0);
+    }
+
+  n = (usize + 1) / 2;
+
+  /* Is USIZE larger than 1.5 times VSIZE?  Avoid Karatsuba's algorithm.  */
+  if (2 * usize > 3 * vsize)
+    {
+      /* If U has at least twice as many limbs as V.  Split U in two
+	 pieces, U1 and U0, such that U = U0 + U1*(2**BITS_PER_MP_LIMB)**N,
+	 and recursively multiply the two pieces separately with V.  */
+
+      mp_size u0_size;
+      mp_ptr tmp;
+      mp_size tmp_size;
+
+      /* V1 (the high part of V) is zero.  */
+
+      /* Calculate the length of U0.  It is normally equal to n, but
+	 of course not for sure.  */
+      for (u0_size = n; u0_size > 0 && up[u0_size - 1] == 0; u0_size--)
+	;
+
+      /* Perform (U0 * V).  */
+      if (u0_size >= vsize)
+	prod_size = mpn_mul (prodp, up, u0_size, vp, vsize);
+      else
+	prod_size = mpn_mul (prodp, vp, vsize, up, u0_size);
+      MPN_MUL_VERIFY (prodp, prod_size, up, u0_size, vp, vsize);
+
+      /* We have to zero-extend the lower partial product to n limbs,
+	 since the mpn_add some lines below expect the first n limbs
+	 to be well defined.  (This is normally a no-op.  It may
+	 do something when U1 has many leading 0 limbs.) */
+      while (prod_size < n)
+	prodp[prod_size++] = 0;
+
+      tmp = (mp_ptr) alloca ((usize + vsize - n) * BYTES_PER_MP_LIMB);
+
+      /* Perform (U1 * V).  Make sure the first source argument to mpn_mul
+	 is not less than the second source argument.  */
+      if (vsize <= usize - n)
+	tmp_size = mpn_mul (tmp, up + n, usize - n, vp, vsize);
+      else
+	tmp_size = mpn_mul (tmp, vp, vsize, up + n, usize - n);
+      MPN_MUL_VERIFY (tmp, tmp_size, up + n, usize - n, vp, vsize);
+
+      /* In this addition hides a potentially large copying of TMP.  */
+      if (prod_size - n >= tmp_size)
+	cy = mpn_add (prodp + n, prodp + n, prod_size - n, tmp, tmp_size);
+      else
+	cy = mpn_add (prodp + n, tmp, tmp_size, prodp + n, prod_size - n);
+      if (cy)
+	abort (); /* prodp[prod_size] = cy; */
+
+      alloca (0);
+      return tmp_size + n;
+    }
+  else
+    {
+      /* Karatsuba's divide-and-conquer algorithm.
+
+	 Split U in two pieces, U1 and U0, such that
+	 U = U0 + U1*(B**n),
+	 and V in V1 and V0, such that
+	 V = V0 + V1*(B**n).
+
+	 UV is then computed recursively using the identity
+
+		2n   n        n                   n
+	 UV = (B  + B )U V + B (U -U )(V -V ) + (B + 1)U V
+                        1 1      1  0   0  1            0 0
+
+	 Where B = 2**BITS_PER_MP_LIMB.
+       */
+
+      /* It's possible to decrease the temporary allocation by using the
+	 prodp area for temporary storage of the middle term, and doing
+	 that recursive multiplication first.  (Do this later.)  */
+
+      mp_size u0_size;
+      mp_size v0_size;
+      mp_size u0v0_size;
+      mp_size u1v1_size;
+      mp_ptr temp;
+      mp_size temp_size;
+      mp_size utem_size;
+      mp_size vtem_size;
+      mp_ptr ptem;
+      mp_size ptem_size;
+      int negflg;
+      mp_ptr pp;
+
+      pp = (mp_ptr) alloca (4 * n * BYTES_PER_MP_LIMB);
+
+      /* Calculate the lengths of U0 and V0.  They are normally equal
+	 to n, but of course not for sure.  */
+      for (u0_size = n; u0_size > 0 && up[u0_size - 1] == 0; u0_size--)
+	;
+      for (v0_size = n; v0_size > 0 && vp[v0_size - 1] == 0; v0_size--)
+	;
+
+      /*** 1. PROD]2n..0] := U0 x V0
+	    (Recursive call to mpn_mul may NOT overwrite input operands.)
+	     ________________  ________________
+	    |________________||____U0 x V0_____|  */
+
+      if (u0_size >= v0_size)
+	u0v0_size = mpn_mul (pp, up, u0_size, vp, v0_size);
+      else
+	u0v0_size = mpn_mul (pp, vp, v0_size, up, u0_size);
+      MPN_MUL_VERIFY (pp, u0v0_size, up, u0_size, vp, v0_size);
+
+      /* Zero-extend to 2n limbs. */
+      while (u0v0_size < 2 * n)
+	pp[u0v0_size++] = 0;
+
+
+      /*** 2. PROD]4n..2n] := U1 x V1
+	    (Recursive call to mpn_mul may NOT overwrite input operands.)
+	     ________________  ________________
+	    |_____U1 x V1____||____U0 x V0_____|  */
+
+      u1v1_size = mpn_mul (pp + 2*n,
+			     up + n, usize - n,
+			     vp + n, vsize - n);
+      MPN_MUL_VERIFY (pp + 2*n, u1v1_size,
+		      up + n, usize - n, vp + n, vsize - n);
+      prod_size = 2 * n + u1v1_size;
+
+
+      /*** 3. PTEM]2n..0] := (U1-U0) x (V0-V1)
+	    (Recursive call to mpn_mul may overwrite input operands.)
+	     ________________
+	    |_(U1-U0)(V0-V1)_|  */
+
+      temp = (mp_ptr) alloca ((2 * n + 1) * BYTES_PER_MP_LIMB);
+      if (usize - n > u0_size
+	  || (usize - n == u0_size
+	      && mpn_cmp (up + n, up, u0_size) >= 0))
+	{
+	  utem_size = usize - n
+	    + mpn_sub (temp, up + n, usize - n, up, u0_size);
+	  negflg = 0;
+	}
+      else
+	{
+	  utem_size = u0_size
+	    + mpn_sub (temp, up, u0_size, up + n, usize - n);
+	  negflg = 1;
+	}
+      if (vsize - n > v0_size
+	  || (vsize - n == v0_size
+	      && mpn_cmp (vp + n, vp, v0_size) >= 0))
+	{
+	  vtem_size = vsize - n
+	    + mpn_sub (temp + n, vp + n, vsize - n, vp, v0_size);
+	  negflg ^= 1;
+	}
+      else
+	{
+	  vtem_size = v0_size
+	    + mpn_sub (temp + n, vp, v0_size, vp + n, vsize - n);
+	  /* No change of NEGFLG.  */
+	}
+      ptem = (mp_ptr) alloca (2 * n * BYTES_PER_MP_LIMB);
+      if (utem_size >= vtem_size)
+	ptem_size = mpn_mul (ptem, temp, utem_size, temp + n, vtem_size);
+      else
+	ptem_size = mpn_mul (ptem, temp + n, vtem_size, temp, utem_size);
+      MPN_MUL_VERIFY (ptem, ptem_size, temp, utem_size, temp + n, vtem_size);
+
+      /*** 4. TEMP]2n..0] := PROD]2n..0] + PROD]4n..2n]
+	      ________________
+	     |_____U1 x V1____|
+	      ________________
+	     |_____U0_x_V0____|  */
+
+      cy = mpn_add (temp, pp, 2*n, pp + 2*n, u1v1_size);
+      if (cy != 0)
+	{
+	  temp[2*n] = cy;
+	  temp_size = 2*n + 1;
+	}
+      else
+	{
+	  /* Normalize temp.  pp[2*n-1] might have been zero in the
+	     mpn_add call above, and thus temp might be unnormalized.  */
+	  for (temp_size = 2*n; temp_size > 0 && temp[temp_size - 1] == 0;
+	       temp_size--)
+	    ;
+	}
+
+      if (prod_size - n >= temp_size)
+	cy = mpn_add (pp + n, pp + n, prod_size - n, temp, temp_size);
+      else
+	{
+	  /* This is a weird special case that should not happen (often)!  */
+	  cy = mpn_add (pp + n, temp, temp_size, pp + n, prod_size - n);
+	  prod_size = temp_size + n;
+	}
+      if (cy != 0)
+	{
+	  pp[prod_size] = cy;
+	  prod_size++;
+	}
+#ifdef DEBUG
+      if (prod_size > 4 * n)
+	abort();
+#endif
+      if (negflg)
+	prod_size = prod_size
+	  + mpn_sub (pp + n, pp + n, prod_size - n, ptem, ptem_size);
+      else
+	{
+	  if (prod_size - n < ptem_size)
+	    abort();
+	  cy = mpn_add (pp + n, pp + n, prod_size - n, ptem, ptem_size);
+	  if (cy != 0)
+	    {
+	      pp[prod_size] = cy;
+	      prod_size++;
+#ifdef DEBUG
+	      if (prod_size > 4 * n)
+		abort();
+#endif
+	    }
+	}
+
+      MPN_COPY (prodp, pp, prod_size);
+      alloca (0);
+      return prod_size;
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpn_rshift.c b/Mp/gmp-1.3.2/mpn_rshift.c
new file mode 100644
index 0000000..a4d00e8
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_rshift.c
@@ -0,0 +1,90 @@
+/* mpn_rshift -- Shift right a low-level natural-number integer.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Shift U (pointed to by UP and USIZE limbs long) CNT bits to the right
+   and store the USIZE least significant limbs of the result at WP.
+   Return the size of the result.
+
+   Argument constraints:
+   0. U must be normalized (i.e. it's most significant limb != 0).
+   1. 0 <= CNT < BITS_PER_MP_LIMB
+   2. If the result is to be written over the input, WP must be <= UP.
+*/
+
+mp_size
+#ifdef __STDC__
+mpn_rshift (mp_ptr wp,
+	    mp_srcptr up, mp_size usize,
+	    unsigned cnt)
+#else
+mpn_rshift (wp, up, usize, cnt)
+     mp_ptr wp;
+     mp_srcptr up;
+     mp_size usize;
+     unsigned cnt;
+#endif
+{
+  mp_limb high_limb, low_limb;
+  unsigned sh_1, sh_2;
+  mp_size i;
+
+  if (usize == 0)
+    return 0;
+
+  sh_1 = cnt;
+  if (sh_1 == 0)
+    {
+      if (wp != up)
+	{
+	  /* Copy from low end to high end, to allow specified input/output
+	     overlapping.  */
+	  for (i = 0; i < usize; i++)
+	    wp[i] = up[i];
+	}
+      return usize;
+    }
+
+  wp -= 1;
+  sh_2 = BITS_PER_MP_LIMB - sh_1;
+  high_limb = up[0];
+#if 0
+  if (cy_limb != NULL)
+    *cy_limb = high_limb << sh_2;
+#endif
+  low_limb = high_limb;
+
+  for (i = 1; i < usize; i++)
+    {
+      high_limb = up[i];
+      wp[i] = (low_limb >> sh_1) | (high_limb << sh_2);
+      low_limb = high_limb;
+    }
+  low_limb >>= sh_1;
+  if (low_limb != 0)
+    {
+      wp[i] = low_limb;
+      return usize;
+    }
+
+  return usize - 1;
+}
diff --git a/Mp/gmp-1.3.2/mpn_rshiftci.c b/Mp/gmp-1.3.2/mpn_rshiftci.c
new file mode 100644
index 0000000..b072d02
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_rshiftci.c
@@ -0,0 +1,86 @@
+/* mpn_rshiftci -- Shift a low level natural-number integer with carry in.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Shift U (pointed to by UP and USIZE digits long) CNT bits to the right
+   and store the USIZE least significant digits of the result at WP.
+   Return the size of the result.
+
+   Argument constraints:
+   0. U must be normalized (i.e. it's most significant digit != 0).
+   1. 0 <= CNT < BITS_PER_MP_LIMB
+   2. If the result is to be written over the input, WP must be <= UP.
+*/
+
+mp_size
+#ifdef __STDC__
+mpn_rshiftci (mp_ptr wp,
+	       mp_srcptr up, mp_size usize,
+	       unsigned cnt,
+	       mp_limb carry_in)
+#else
+mpn_rshiftci (wp, up, usize, cnt, carry_in)
+     mp_ptr wp;
+     mp_srcptr up;
+     mp_size usize;
+     unsigned cnt;
+     mp_limb carry_in;
+#endif
+{
+  mp_limb high_limb, low_limb;
+  unsigned sh_1, sh_2;
+  mp_size i;
+
+  if (usize <= 0)
+    return 0;
+
+  sh_1 = cnt;
+  if (sh_1 == 0)
+    {
+      if (wp != up)
+	{
+	  /* Copy from low end to high end, to allow specified input/output
+	     overlapping.  */
+	  for (i = 0; i < usize; i++)
+	    wp[i] = up[i];
+	}
+      return usize;
+    }
+
+  wp -= 1;
+  sh_2 = BITS_PER_MP_LIMB - sh_1;
+  low_limb = up[0];
+  for (i = 1; i < usize; i++)
+    {
+      high_limb = up[i];
+      wp[i] = (low_limb >> sh_1) | (high_limb << sh_2);
+      low_limb = high_limb;
+    }
+  low_limb = (low_limb >> sh_1) | (carry_in << sh_2);
+  if (low_limb != 0)
+    {
+      wp[i] = low_limb;
+      return usize;
+    }
+
+  return usize - 1;
+}
diff --git a/Mp/gmp-1.3.2/mpn_sqrt.c b/Mp/gmp-1.3.2/mpn_sqrt.c
new file mode 100644
index 0000000..7dda9e4
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_sqrt.c
@@ -0,0 +1,479 @@
+/* mpn_sqrt(root_ptr, rem_ptr, op_ptr, op_size)
+
+   Write the square root of {OP_PTR, OP_SIZE} at ROOT_PTR.
+   Write the remainder at REM_PTR, if REM_PTR != NULL.
+   Return the size of the remainder.
+   (The size of the root is always half of the size of the operand.)
+
+   OP_PTR and ROOT_PTR may not point to the same object.
+   OP_PTR and REM_PTR may point to the same object.
+
+   If REM_PTR is NULL, only the root is computed and the return value of
+   the function is 0 if OP is a perfect square, and *any* non-zero number
+   otherwise.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/* This code is just correct if "unsigned char" has at least 8 bits.  It
+   doesn't help to use CHAR_BIT from limits.h, as the real problem is
+   the static arrays.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+/* Square root algorithm:
+
+   1. Shift OP (the input) to the left an even number of bits s.t. there
+      are an even number of words and either (or both) of the most
+      significant bits are set.  This way, sqrt(OP) has exactly half as
+      many words as OP, and has its most significant bit set.
+
+   2. Get a 9-bit approximation to sqrt(OP) using the pre-computed tables.
+      This approximation is used for the first single-precision
+      iterations of Newton's method, yielding a full-word approximation
+      to sqrt(OP).
+
+   3. Perform multiple-precision Newton iteration until we have the
+      exact result.  Only about half of the input operand is used in
+      this calculation, as the square root is perfectly determinable
+      from just the higher half of a number.  */
+
+/* Define this macro for IEEE P854 machines with a fast sqrt instruction.  */
+#if defined __GNUC__
+
+#if defined __sparc__
+#define SQRT(a) \
+  ({									\
+    double __sqrt_res;							\
+    asm ("fsqrtd %1,%0" : "=f" (__sqrt_res) : "f" (a));			\
+    __sqrt_res;								\
+  })
+#endif
+
+#if defined __HAVE_68881__
+#define SQRT(a) \
+  ({									\
+    double __sqrt_res;							\
+    asm ("fsqrtx %1,%0" : "=f" (__sqrt_res) : "f" (a));			\
+    __sqrt_res;								\
+  })
+#endif
+
+#if defined __hppa
+#define SQRT(a) \
+  ({									\
+    double __sqrt_res;							\
+    asm ("fsqrt,dbl %1,%0" : "=fx" (__sqrt_res) : "fx" (a));		\
+    __sqrt_res;								\
+  })
+#endif
+
+#endif
+
+#ifndef SQRT
+
+/* Tables for initial approximation of the square root.  These are
+   indexed with bits 1-8 of the operand for which the square root is
+   calculated, where bit 0 is the most significant non-zero bit.  I.e.
+   the most significant one-bit is not used, since that per definition
+   is one.  Likewise, the tables don't return the highest bit of the
+   result.  That bit must be inserted by or:ing the returned value with
+   0x100.  This way, we get a 9-bit approximation from 8-bit tables!  */
+
+/* Table to be used for operands with an even total number of bits.
+   (Exactly as in the decimal system there are similarities between the
+   square root of numbers with the same initial digits and an even
+   difference in the total number of digits.  Consider the square root
+   of 1, 10, 100, 1000, ...)  */
+static unsigned char even_approx_tab[256] =
+{
+  0x6a, 0x6a, 0x6b, 0x6c, 0x6c, 0x6d, 0x6e, 0x6e,
+  0x6f, 0x70, 0x71, 0x71, 0x72, 0x73, 0x73, 0x74,
+  0x75, 0x75, 0x76, 0x77, 0x77, 0x78, 0x79, 0x79,
+  0x7a, 0x7b, 0x7b, 0x7c, 0x7d, 0x7d, 0x7e, 0x7f,
+  0x80, 0x80, 0x81, 0x81, 0x82, 0x83, 0x83, 0x84,
+  0x85, 0x85, 0x86, 0x87, 0x87, 0x88, 0x89, 0x89,
+  0x8a, 0x8b, 0x8b, 0x8c, 0x8d, 0x8d, 0x8e, 0x8f,
+  0x8f, 0x90, 0x90, 0x91, 0x92, 0x92, 0x93, 0x94,
+  0x94, 0x95, 0x96, 0x96, 0x97, 0x97, 0x98, 0x99,
+  0x99, 0x9a, 0x9b, 0x9b, 0x9c, 0x9c, 0x9d, 0x9e,
+  0x9e, 0x9f, 0xa0, 0xa0, 0xa1, 0xa1, 0xa2, 0xa3,
+  0xa3, 0xa4, 0xa4, 0xa5, 0xa6, 0xa6, 0xa7, 0xa7,
+  0xa8, 0xa9, 0xa9, 0xaa, 0xaa, 0xab, 0xac, 0xac,
+  0xad, 0xad, 0xae, 0xaf, 0xaf, 0xb0, 0xb0, 0xb1,
+  0xb2, 0xb2, 0xb3, 0xb3, 0xb4, 0xb5, 0xb5, 0xb6,
+  0xb6, 0xb7, 0xb7, 0xb8, 0xb9, 0xb9, 0xba, 0xba,
+  0xbb, 0xbb, 0xbc, 0xbd, 0xbd, 0xbe, 0xbe, 0xbf,
+  0xc0, 0xc0, 0xc1, 0xc1, 0xc2, 0xc2, 0xc3, 0xc3,
+  0xc4, 0xc5, 0xc5, 0xc6, 0xc6, 0xc7, 0xc7, 0xc8,
+  0xc9, 0xc9, 0xca, 0xca, 0xcb, 0xcb, 0xcc, 0xcc,
+  0xcd, 0xce, 0xce, 0xcf, 0xcf, 0xd0, 0xd0, 0xd1,
+  0xd1, 0xd2, 0xd3, 0xd3, 0xd4, 0xd4, 0xd5, 0xd5,
+  0xd6, 0xd6, 0xd7, 0xd7, 0xd8, 0xd9, 0xd9, 0xda,
+  0xda, 0xdb, 0xdb, 0xdc, 0xdc, 0xdd, 0xdd, 0xde,
+  0xde, 0xdf, 0xe0, 0xe0, 0xe1, 0xe1, 0xe2, 0xe2,
+  0xe3, 0xe3, 0xe4, 0xe4, 0xe5, 0xe5, 0xe6, 0xe6,
+  0xe7, 0xe7, 0xe8, 0xe8, 0xe9, 0xea, 0xea, 0xeb,
+  0xeb, 0xec, 0xec, 0xed, 0xed, 0xee, 0xee, 0xef,
+  0xef, 0xf0, 0xf0, 0xf1, 0xf1, 0xf2, 0xf2, 0xf3,
+  0xf3, 0xf4, 0xf4, 0xf5, 0xf5, 0xf6, 0xf6, 0xf7,
+  0xf7, 0xf8, 0xf8, 0xf9, 0xf9, 0xfa, 0xfa, 0xfb,
+  0xfb, 0xfc, 0xfc, 0xfd, 0xfd, 0xfe, 0xfe, 0xff,
+};
+
+/* Table to be used for operands with an odd total number of bits.
+   (Further comments before previous table.)  */
+static unsigned char odd_approx_tab[256] =
+{
+  0x00, 0x00, 0x00, 0x01, 0x01, 0x02, 0x02, 0x03,
+  0x03, 0x04, 0x04, 0x05, 0x05, 0x06, 0x06, 0x07,
+  0x07, 0x08, 0x08, 0x09, 0x09, 0x0a, 0x0a, 0x0b,
+  0x0b, 0x0c, 0x0c, 0x0d, 0x0d, 0x0e, 0x0e, 0x0f,
+  0x0f, 0x10, 0x10, 0x10, 0x11, 0x11, 0x12, 0x12,
+  0x13, 0x13, 0x14, 0x14, 0x15, 0x15, 0x16, 0x16,
+  0x16, 0x17, 0x17, 0x18, 0x18, 0x19, 0x19, 0x1a,
+  0x1a, 0x1b, 0x1b, 0x1b, 0x1c, 0x1c, 0x1d, 0x1d,
+  0x1e, 0x1e, 0x1f, 0x1f, 0x20, 0x20, 0x20, 0x21,
+  0x21, 0x22, 0x22, 0x23, 0x23, 0x23, 0x24, 0x24,
+  0x25, 0x25, 0x26, 0x26, 0x27, 0x27, 0x27, 0x28,
+  0x28, 0x29, 0x29, 0x2a, 0x2a, 0x2a, 0x2b, 0x2b,
+  0x2c, 0x2c, 0x2d, 0x2d, 0x2d, 0x2e, 0x2e, 0x2f,
+  0x2f, 0x30, 0x30, 0x30, 0x31, 0x31, 0x32, 0x32,
+  0x32, 0x33, 0x33, 0x34, 0x34, 0x35, 0x35, 0x35,
+  0x36, 0x36, 0x37, 0x37, 0x37, 0x38, 0x38, 0x39,
+  0x39, 0x39, 0x3a, 0x3a, 0x3b, 0x3b, 0x3b, 0x3c,
+  0x3c, 0x3d, 0x3d, 0x3d, 0x3e, 0x3e, 0x3f, 0x3f,
+  0x40, 0x40, 0x40, 0x41, 0x41, 0x41, 0x42, 0x42,
+  0x43, 0x43, 0x43, 0x44, 0x44, 0x45, 0x45, 0x45,
+  0x46, 0x46, 0x47, 0x47, 0x47, 0x48, 0x48, 0x49,
+  0x49, 0x49, 0x4a, 0x4a, 0x4b, 0x4b, 0x4b, 0x4c,
+  0x4c, 0x4c, 0x4d, 0x4d, 0x4e, 0x4e, 0x4e, 0x4f,
+  0x4f, 0x50, 0x50, 0x50, 0x51, 0x51, 0x51, 0x52,
+  0x52, 0x53, 0x53, 0x53, 0x54, 0x54, 0x54, 0x55,
+  0x55, 0x56, 0x56, 0x56, 0x57, 0x57, 0x57, 0x58,
+  0x58, 0x59, 0x59, 0x59, 0x5a, 0x5a, 0x5a, 0x5b,
+  0x5b, 0x5b, 0x5c, 0x5c, 0x5d, 0x5d, 0x5d, 0x5e,
+  0x5e, 0x5e, 0x5f, 0x5f, 0x60, 0x60, 0x60, 0x61,
+  0x61, 0x61, 0x62, 0x62, 0x62, 0x63, 0x63, 0x63,
+  0x64, 0x64, 0x65, 0x65, 0x65, 0x66, 0x66, 0x66,
+  0x67, 0x67, 0x67, 0x68, 0x68, 0x68, 0x69, 0x69,
+};
+#endif
+
+
+mp_size
+#ifdef __STDC__
+mpn_sqrt (mp_ptr root_ptr, mp_ptr rem_ptr, mp_srcptr op_ptr, mp_size op_size)
+#else
+mpn_sqrt (root_ptr, rem_ptr, op_ptr, op_size)
+     mp_ptr root_ptr;
+     mp_ptr rem_ptr;
+     mp_srcptr op_ptr;
+     mp_size op_size;
+#endif
+{
+  /* R (root result) */
+  mp_ptr rp;			/* Pointer to least significant word */
+  mp_size rsize;		/* The size in words */
+
+  /* T (OP shifted to the left a.k.a. normalized) */
+  mp_ptr tp;			/* Pointer to least significant word */
+  mp_size tsize;		/* The size in words */
+  mp_ptr t_end_ptr;		/* Pointer right beyond most sign. word */
+  mp_limb t_high0, t_high1;	/* The two most significant words */
+
+  /* TT (temporary for numerator/remainder) */
+  mp_ptr ttp;			/* Pointer to least significant word */
+
+  /* X (temporary for quotient in main loop) */
+  mp_ptr xp;			/* Pointer to least significant word */
+  mp_size xsize;		/* The size in words */
+
+  unsigned cnt;
+  mp_limb initial_approx;	/* Initially made approximation */
+  mp_size tsizes[BITS_PER_MP_LIMB];	/* Successive calculation precisions */
+  mp_size tmp;
+  mp_size i;
+
+  /* If OP is zero, both results are zero.  */
+  if (op_size == 0)
+    return 0;
+
+  count_leading_zeros (cnt, op_ptr[op_size - 1]);
+  tsize = op_size;
+  if ((tsize & 1) != 0)
+    {
+      cnt += BITS_PER_MP_LIMB;
+      tsize++;
+    }
+
+  rsize = tsize / 2;
+  rp = root_ptr;
+
+  /* Shift OP an even number of bits into T, such that either the most or
+     the second most significant bit is set, and such that the number of
+     words in T becomes even.  This way, the number of words in R=sqrt(OP)
+     is exactly half as many as in OP, and the most significant bit of R
+     is set.
+
+     Also, the initial approximation is simplified by this up-shifted OP.
+
+     Finally, the Newtonian iteration which is the main part of this
+     program performs division by R.  The fast division routine expects
+     the divisor to be "normalized" in exactly the sense of having the
+     most significant bit set.  */
+
+  tp = (mp_ptr) alloca (tsize * BYTES_PER_MP_LIMB);
+
+  t_high0 = mpn_lshift (tp + cnt / BITS_PER_MP_LIMB, op_ptr, op_size,
+			(cnt & ~1) % BITS_PER_MP_LIMB);
+  if (cnt >= BITS_PER_MP_LIMB)
+    tp[0] = 0;
+
+  t_high0 = tp[tsize - 1];
+  t_high1 = tp[tsize - 2];	/* Never stray.  TSIZE is >= 2.  */
+
+/* Is there a fast sqrt instruction defined for this machine?  */
+#ifdef SQRT
+  {
+    initial_approx = SQRT (t_high0 * 2.0
+			   * ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1))
+			   + t_high1);
+    /* If t_high0,,t_high1 is big, the result in INITIAL_APPROX might have
+       become incorrect due to overflow in the conversion from double to
+       mp_limb above.  It will typically be zero in that case, but might be
+       a small number on some machines.  The most significant bit of
+       INITIAL_APPROX should be set, so that bit is a good overflow
+       indication.  */
+    if ((mp_limb_signed) initial_approx >= 0)
+      initial_approx = ~0;
+  }
+#else
+  /* Get a 9 bit approximation from the tables.  The tables expect to
+     be indexed with the 8 high bits right below the highest bit.
+     Also, the highest result bit is not returned by the tables, and
+     must be or:ed into the result.  The scheme gives 9 bits of start
+     approximation with just 256-entry 8 bit tables.  */
+
+  if ((cnt & 1) == 0)
+    {
+      /* The most sign bit of t_high0 is set.  */
+      initial_approx = t_high0 >> (BITS_PER_MP_LIMB - 8 - 1);
+      initial_approx &= 0xff;
+      initial_approx = even_approx_tab[initial_approx];
+    }
+  else
+    {
+      /* The most significant bit of T_HIGH0 is unset,
+	 the second most significant is set.  */
+      initial_approx = t_high0 >> (BITS_PER_MP_LIMB - 8 - 2);
+      initial_approx &= 0xff;
+      initial_approx = odd_approx_tab[initial_approx];
+    }
+  initial_approx |= 0x100;
+  initial_approx <<= BITS_PER_MP_LIMB - 8 - 1;
+
+  /* Perform small precision Newtonian iterations to get a full word
+     approximation.  For small operands, these iteration will make the
+     entire job.  */
+  if (t_high0 == ~0)
+    initial_approx = t_high0;
+  else
+    {
+      mp_limb quot;
+
+      if (t_high0 >= initial_approx)
+	initial_approx = t_high0 + 1;
+
+      /* First get about 18 bits with pure C arithmetics.  */
+      quot = t_high0 / (initial_approx >> BITS_PER_MP_LIMB/2) << BITS_PER_MP_LIMB/2;
+      initial_approx = (initial_approx + quot) / 2;
+      initial_approx |= (mp_limb) 1 << (BITS_PER_MP_LIMB - 1);
+
+      /* Now get a full word by one (or for > 36 bit machines) several
+	 iterations.  */
+      for (i = 16; i < BITS_PER_MP_LIMB; i <<= 1)
+	{
+	  mp_limb ignored_remainder;
+
+	  udiv_qrnnd (quot, ignored_remainder,
+		      t_high0, t_high1, initial_approx);
+	  initial_approx = (initial_approx + quot) / 2;
+	  initial_approx |= (mp_limb) 1 << (BITS_PER_MP_LIMB - 1);
+	}
+    }
+#endif
+
+  rp[0] = initial_approx;
+  rsize = 1;
+
+  xp = (mp_ptr) alloca (tsize * BYTES_PER_MP_LIMB);
+  ttp = (mp_ptr) alloca (tsize * BYTES_PER_MP_LIMB);
+
+  t_end_ptr = tp + tsize;
+
+#ifdef DEBUG
+	  printf ("\n\nT = ");
+	  _mp_mout (tp, tsize);
+#endif
+
+  if (tsize > 2)
+    {
+      /* Determine the successive precisions to use in the iteration.  We
+	 minimize the precisions, beginning with the highest (i.e. last
+	 iteration) to the lowest (i.e. first iteration).  */
+
+      tmp = tsize / 2;
+      for (i = 0;;i++)
+	{
+	  tsize = (tmp + 1) / 2;
+	  if (tmp == tsize)
+	    break;
+	  tsizes[i] = tsize + tmp;
+	  tmp = tsize;
+	}
+
+      /* Main Newton iteration loop.  For big arguments, most of the
+	 time is spent here.  */
+
+      /* It is possible to do a great optimization here.  The successive
+	 divisors in the mpn_div call below has more and more leading
+	 words equal to its predecessor.  Therefore the beginning of
+	 each division will repeat the same work as did the last
+	 division.  If we could guarantee that the leading words of two
+	 consecutive divisors are the same (i.e. in this case, a later
+	 divisor has just more digits at the end) it would be a simple
+	 matter of just using the old remainder of the last division in
+	 a subsequent division, to take care of this optimization.  This
+	 idea would surely make a difference even for small arguments.  */
+
+      /* Loop invariants:
+
+	 R <= shiftdown_to_same_size(floor(sqrt(OP))) < R + 1.
+	 X - 1 < shiftdown_to_same_size(floor(sqrt(OP))) <= X.
+	 R <= shiftdown_to_same_size(X).  */
+
+      while (--i >= 0)
+	{
+	  mp_limb cy;
+#ifdef DEBUG
+	  mp_limb old_least_sign_r = rp[0];
+	  mp_size old_rsize = rsize;
+
+	  printf ("R = ");
+	  _mp_mout (rp, rsize);
+#endif
+	  tsize = tsizes[i];
+
+	  /* Need to copy the numerator into temporary space, as
+	     mpn_div overwrites its numerator argument with the
+	     remainder (which we currently ignore).  */
+	  MPN_COPY (ttp, t_end_ptr - tsize, tsize);
+	  cy = mpn_div (xp, ttp, tsize, rp, rsize);
+	  xsize = tsize - rsize;
+	  cy = cy ? xp[xsize] : 0;
+
+#ifdef DEBUG
+	  printf ("X =%d", cy);
+	  _mp_mout (xp, xsize);
+#endif
+
+	  /* Add X and R with the most significant limbs aligned,
+	     temporarily ignoring at least one limb at the low end of X.  */
+	  tmp = xsize - rsize;
+	  cy += mpn_add (xp + tmp, rp, rsize, xp + tmp, rsize);
+
+	  /* If T begins with more than 2 x BITS_PER_MP_LIMB of ones, we get
+	     intermediate roots that'd need an extra bit.  We don't want to
+	     handle that since it would make the subsequent divisor
+	     non-normalized, so round such roots down to be only ones in the
+	     current precision.  */
+	  if (cy == 2)
+	    {
+	      mp_size j;
+	      for (j = xsize; j >= 0; j--)
+		xp[j] = ~(mp_limb)0;
+	    }
+
+	  /* Divide X by 2 and put the result in R.  This is the new
+	     approximation.  Shift in the carry from the addition.  */
+	  rsize = mpn_rshiftci (rp, xp, xsize, 1, (mp_limb) 1);
+#ifdef DEBUG
+	  if (old_least_sign_r != rp[rsize - old_rsize])
+	    printf (">>>>>>>> %d: %08x, %08x <<<<<<<<\n",
+		    i, old_least_sign_r, rp[rsize - old_rsize]);
+#endif
+	}
+    }
+
+#ifdef DEBUG
+  printf ("(final) R = ");
+  _mp_mout (rp, rsize);
+#endif
+
+  /* We computed the square root of OP * 2**(2*floor(cnt/2)).
+     This has resulted in R being 2**floor(cnt/2) to large.
+     Shift it down here to fix that.  */
+  rsize = mpn_rshift (rp, rp, rsize, cnt/2);
+
+  /* Calculate the remainder.  */
+  tsize = mpn_mul (tp, rp, rsize, rp, rsize);
+  if (op_size < tsize
+      || (op_size == tsize && mpn_cmp (op_ptr, tp, op_size) < 0))
+    {
+      /* R is too large.  Decrement it.  */
+      mp_limb one = 1;
+
+      tsize = tsize + mpn_sub (tp, tp, tsize, rp, rsize);
+      tsize = tsize + mpn_sub (tp, tp, tsize, rp, rsize);
+      tsize = tsize + mpn_add (tp, tp, tsize, &one, 1);
+
+      (void) mpn_sub (rp, rp, rsize, &one, 1);
+
+#ifdef DEBUG
+      printf ("(adjusted) R = ");
+      _mp_mout (rp, rsize);
+#endif
+    }
+
+  if (rem_ptr != NULL)
+    {
+      mp_size retval = op_size + mpn_sub (rem_ptr, op_ptr, op_size, tp, tsize);
+      alloca (0);
+      return retval;
+    }
+  else
+    {
+      mp_size retval = (op_size != tsize || mpn_cmp (op_ptr, tp, op_size));
+      alloca (0);
+      return retval;
+    }
+}
+
+#ifdef DEBUG
+_mp_mout (mp_srcptr p, mp_size size)
+{
+  mp_size ii;
+  for (ii = size - 1; ii >= 0; ii--)
+    printf ("%08X", p[ii]);
+
+  puts ("");
+}
+#endif
diff --git a/Mp/gmp-1.3.2/mpn_sub.c b/Mp/gmp-1.3.2/mpn_sub.c
new file mode 100644
index 0000000..3ba8afd
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpn_sub.c
@@ -0,0 +1,162 @@
+/* mpn_sub -- Subtract two low-level natural-number integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Subtract SUB_PTR/SUB_SIZE from MIN_PTR/MIN_SIZE and store the
+   result (MIN_SIZE words) at DIF_PTR.
+
+   Return 1 if min < sub (result is negative).  Otherwise, return the
+   negative difference between the number of words in dif and min.
+   (I.e.  return 0 if the result has MIN_SIZE words, -1 if it has
+   MIN_SIZE - 1 words, etc.)
+
+   Argument constraint: MIN_SIZE >= SUB_SIZE.
+
+   The size of DIF can be calculated as MIN_SIZE + the return value.  */
+
+mp_size
+#ifdef __STDC__
+mpn_sub (mp_ptr dif_ptr,
+	 mp_srcptr min_ptr, mp_size min_size,
+	 mp_srcptr sub_ptr, mp_size sub_size)
+#else
+mpn_sub (dif_ptr, min_ptr, min_size, sub_ptr, sub_size)
+     mp_ptr dif_ptr;
+     mp_srcptr min_ptr;
+     mp_size min_size;
+     mp_srcptr sub_ptr;
+     mp_size sub_size;
+#endif
+{
+  mp_limb m, s, dif;
+  mp_size j;
+
+  /* The loop counter and index J goes from some negative value to zero.
+     This way the loops are faster.  Need to offset the base pointers
+     to take care of the negative indices.  */
+
+  j = -sub_size;
+  if (j == 0)
+    goto sub_finished;
+
+  min_ptr -= j;
+  sub_ptr -= j;
+  dif_ptr -= j;
+
+  /* There are two do-loops, marked NON-CARRY LOOP and CARRY LOOP that
+     jump between each other.  The first loop is for when the previous
+     subtraction didn't produce a carry-out; the second is for the
+     complementary case.  */
+
+  /* NON-CARRY LOOP */
+  do
+    {
+      m = min_ptr[j];
+      s = sub_ptr[j];
+      dif = m - s;
+      dif_ptr[j] = dif;
+      if (dif > m)
+	goto cy_loop;
+    ncy_loop:
+      j++;
+    }
+  while (j < 0);
+
+  /* We have exhausted SUB, with no carry out.  Copy remaining part of
+     MIN to DIF.  */
+
+ sub_finished:
+  j = sub_size - min_size;
+
+  /* If there's no difference between the length of the operands, the
+     last words might have become zero, and re-normalization is needed.  */
+  if (j == 0)
+    goto normalize;
+
+  min_ptr -= j;
+  dif_ptr -= j;
+
+  goto copy;
+
+  /* CARRY LOOP */
+  do
+    {
+      m = min_ptr[j];
+      s = sub_ptr[j];
+      dif = m - s - 1;
+      dif_ptr[j] = dif;
+      if (dif < m)
+	goto ncy_loop;
+    cy_loop:
+      j++;
+    }
+  while (j < 0);
+
+  /* We have exhausted SUB, but need to propagate carry.  */
+
+  j = sub_size - min_size;
+  if (j == 0)
+    return 1;			/* min < sub.  Flag it to the caller */
+
+  min_ptr -= j;
+  dif_ptr -= j;
+
+  /* Propagate carry.  Sooner or later the carry will cancel with a
+     non-zero word, because the minuend is normalized.  Considering this,
+     there's no need to test the index J.  */
+  for (;;)
+    {
+      m = min_ptr[j];
+      dif = m - 1;
+      dif_ptr[j] = dif;
+      j++;
+      if (dif < m)
+	break;
+    }
+
+  if (j == 0)
+    goto normalize;
+
+ copy:
+  /* Don't copy the remaining words of MIN to DIF if MIN_PTR and DIF_PTR
+     are equal.  It would just be a no-op copying.  Return 0, as the length
+     of the result equals that of the minuend.  */
+  if (dif_ptr == min_ptr)
+    return 0;
+
+  do
+    {
+      dif_ptr[j] = min_ptr[j];
+      j++;
+    }
+  while (j < 0);
+  return 0;
+
+ normalize:
+  for (j = -1; j >= -min_size; j--)
+    {
+      if (dif_ptr[j] != 0)
+	return j + 1;
+    }
+
+  return -min_size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_add.c b/Mp/gmp-1.3.2/mpq_add.c
new file mode 100644
index 0000000..10cc12e
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_add.c
@@ -0,0 +1,85 @@
+/* mpq_add -- add two rational numbers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_add (MP_RAT *sum, const MP_RAT *a1, const MP_RAT *a2)
+#else
+mpq_add (sum, a1, a2)
+     MP_RAT *sum;
+     const MP_RAT *a1;
+     const MP_RAT *a2;
+#endif
+{
+  MP_INT gcd1, gcd2;
+  MP_INT tmp1, tmp2;
+
+  mpz_init (&gcd1);
+  mpz_init (&gcd2);
+  mpz_init (&tmp1);
+  mpz_init (&tmp2);
+
+  /* SUM might be identical to either operand, so don't store the
+     result there until we are finished with the input operands.  We
+     dare to overwrite the numerator of SUM when we are finished
+     with the numerators of A1 and A2.  */
+
+  mpz_gcd (&gcd1, &(a1->den), &(a2->den));
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    {
+      MP_INT t;
+
+      mpz_init (&t);
+
+      mpz_div (&tmp1, &(a2->den), &gcd1);
+      mpz_mul (&tmp1, &(a1->num), &tmp1);
+
+      mpz_div (&tmp2, &(a1->den), &gcd1);
+      mpz_mul (&tmp2, &(a2->num), &tmp2);
+
+      mpz_add (&t, &tmp1, &tmp2);
+      mpz_gcd (&gcd2, &t, &gcd1);
+
+      mpz_div (&(sum->num), &t, &gcd2);
+
+      mpz_div (&tmp1, &(a1->den), &gcd1);
+      mpz_div (&tmp2, &(a2->den), &gcd2);
+      mpz_mul (&(sum->den), &tmp1, &tmp2);
+
+      mpz_clear (&t);
+    }
+  else
+    {
+      /* The common divisior is 1.  This is the case (for random input) with
+	 probability 6/(pi**2).  */
+      mpz_mul (&tmp1, &(a1->num), &(a2->den));
+      mpz_mul (&tmp2, &(a2->num), &(a1->den));
+      mpz_add (&(sum->num), &tmp1, &tmp2);
+      mpz_mul (&(sum->den), &(a1->den), &(a2->den));
+    }
+
+  mpz_clear (&tmp2);
+  mpz_clear (&tmp1);
+  mpz_clear (&gcd2);
+  mpz_clear (&gcd1);
+}
diff --git a/Mp/gmp-1.3.2/mpq_clear.c b/Mp/gmp-1.3.2/mpq_clear.c
new file mode 100644
index 0000000..3266463
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_clear.c
@@ -0,0 +1,34 @@
+/* mpq_clear -- free the space occupied by a MP_RAT.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_clear (MP_RAT *m)
+#else
+mpq_clear (m)
+     MP_RAT *m;
+#endif
+{
+  (*_mp_free_func) (m->num.d, m->num.alloc * BYTES_PER_MP_LIMB);
+  (*_mp_free_func) (m->den.d, m->den.alloc * BYTES_PER_MP_LIMB);
+}
diff --git a/Mp/gmp-1.3.2/mpq_cmp.c b/Mp/gmp-1.3.2/mpq_cmp.c
new file mode 100644
index 0000000..fd6abcc
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_cmp.c
@@ -0,0 +1,76 @@
+/* mpq_cmp(u,v) -- Compare U, V.  Return positive, zero, or negative
+   based on if U > V, U == V, or U < V.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+int
+#ifdef __STDC__
+mpq_cmp (const MP_RAT *op1, const MP_RAT *op2)
+#else
+mpq_cmp (op1, op2)
+     const MP_RAT *op1;
+     const MP_RAT *op2;
+#endif
+{
+  mp_size num1_size = op1->num.size;
+  mp_size den1_size = op1->den.size;
+  mp_size num2_size = op2->num.size;
+  mp_size den2_size = op2->den.size;
+  mp_size tmp1_size, tmp2_size;
+  mp_ptr tmp1_ptr, tmp2_ptr;
+  mp_size num1_sign;
+  int cc;
+
+  if (num1_size == 0)
+    return -num2_size;
+  if (num2_size == 0)
+    return num1_size;
+  if ((num1_size ^ num2_size) < 0) /* I.e. are the signs different? */
+    return num1_size;
+
+  num1_sign = num1_size;
+  num1_size = ABS (num1_size);
+  num2_size = ABS (num2_size);
+
+  tmp1_size = num1_size + den2_size;
+  tmp2_size = num2_size + den1_size;
+
+  if (tmp1_size != tmp2_size)
+    return (tmp1_size - tmp2_size) ^ num1_sign;
+
+  tmp1_ptr = (mp_ptr) alloca (tmp1_size * BYTES_PER_MP_LIMB);
+  tmp2_ptr = (mp_ptr) alloca (tmp2_size * BYTES_PER_MP_LIMB);
+
+  tmp1_size = (num1_size >= den2_size)
+    ? mpn_mul (tmp1_ptr, op1->num.d, num1_size, op2->den.d, den2_size)
+    : mpn_mul (tmp1_ptr, op2->den.d, den2_size, op1->num.d, num1_size);
+
+  tmp2_size = (num2_size >= den1_size)
+    ? mpn_mul (tmp2_ptr, op2->num.d, num2_size, op1->den.d, den1_size)
+    : mpn_mul (tmp2_ptr, op1->den.d, den1_size, op2->num.d, num2_size);
+
+  cc = tmp1_size - tmp2_size != 0
+    ? tmp1_size - tmp2_size : mpn_cmp (tmp1_ptr, tmp2_ptr, tmp1_size);
+
+  alloca (0);
+  return (num1_sign < 0) ? -cc : cc;
+}
diff --git a/Mp/gmp-1.3.2/mpq_div.c b/Mp/gmp-1.3.2/mpq_div.c
new file mode 100644
index 0000000..f08aa27
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_div.c
@@ -0,0 +1,92 @@
+/* mpq_div -- divide two rational numbers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_div (MP_RAT *quot, const MP_RAT *dividend, const MP_RAT *divisor)
+#else
+mpq_div (quot, dividend, divisor)
+     MP_RAT *quot;
+     const MP_RAT *dividend;
+     const MP_RAT *divisor;
+#endif
+{
+  MP_INT gcd1, gcd2;
+  MP_INT tmp1, tmp2;
+  MP_INT numtmp;
+
+  mpz_init (&gcd1);
+  mpz_init (&gcd2);
+  mpz_init (&tmp1);
+  mpz_init (&tmp2);
+  mpz_init (&numtmp);
+
+  /* QUOT might be identical to either operand, so don't store the
+     result there until we are finished with the input operands.  We
+     dare to overwrite the numerator of QUOT when we are finished
+     with the numerators of DIVIDEND and DIVISOR.  */
+
+  mpz_gcd (&gcd1, &(dividend->num), &(divisor->num));
+  mpz_gcd (&gcd2, &(divisor->den), &(dividend->den));
+
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    mpz_div (&tmp1, &(dividend->num), &gcd1);
+  else
+    mpz_set (&tmp1, &(dividend->num));
+
+  if (gcd2.size > 1 || gcd2.d[0] != 1)
+    mpz_div (&tmp2, &(divisor->den), &gcd2);
+  else
+    mpz_set (&tmp2, &(divisor->den));
+
+  mpz_mul (&numtmp, &tmp1, &tmp2);
+
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    mpz_div (&tmp1, &(divisor->num), &gcd1);
+  else
+    mpz_set (&tmp1, &(divisor->num));
+
+  if (gcd2.size > 1 || gcd2.d[0] != 1)
+    mpz_div (&tmp2, &(dividend->den), &gcd2);
+  else
+    mpz_set (&tmp2, &(dividend->den));
+
+  mpz_mul (&(quot->den), &tmp1, &tmp2);
+
+  /* We needed to go via NUMTMP to take care of QUOT being the same
+     as either input operands.  Now move NUMTMP to QUOT->NUM.  */
+  mpz_set (&(quot->num), &numtmp);
+
+  /* Keep the denominator positive.  */
+  if (quot->den.size < 0)
+    {
+      quot->den.size = -quot->den.size;
+      quot->num.size = -quot->num.size;
+    }
+
+  mpz_clear (&numtmp);
+  mpz_clear (&tmp2);
+  mpz_clear (&tmp1);
+  mpz_clear (&gcd2);
+  mpz_clear (&gcd1);
+}
diff --git a/Mp/gmp-1.3.2/mpq_get_den.c b/Mp/gmp-1.3.2/mpq_get_den.c
new file mode 100644
index 0000000..12b9fe2
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_get_den.c
@@ -0,0 +1,40 @@
+/* mpq_get_den(den,rat_src) -- Set DEN to the denominator of RAT_SRC.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_get_den (MP_INT *den, const MP_RAT *src)
+#else
+mpq_get_den (den, src)
+     MP_INT *den;
+     const MP_RAT *src;
+#endif
+{
+  mp_size size = src->den.size;
+
+  if (den->alloc < size)
+    _mpz_realloc (den, size);
+
+  MPN_COPY (den->d, src->den.d, size);
+  den->size = size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_get_num.c b/Mp/gmp-1.3.2/mpq_get_num.c
new file mode 100644
index 0000000..4240652
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_get_num.c
@@ -0,0 +1,41 @@
+ /* mpq_get_num(num,rat_src) -- Set NUM to the numerator of RAT_SRC.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_get_num (MP_INT *num, const MP_RAT *src)
+#else
+mpq_get_num (num, src)
+     MP_INT *num;
+     const MP_RAT *src;
+#endif
+{
+  mp_size size = src->num.size;
+  mp_size abs_size = ABS (size);
+
+  if (num->alloc < abs_size)
+    _mpz_realloc (num, abs_size);
+
+  MPN_COPY (num->d, src->num.d, abs_size);
+  num->size = size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_init.c b/Mp/gmp-1.3.2/mpq_init.c
new file mode 100644
index 0000000..fcb0bd2
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_init.c
@@ -0,0 +1,39 @@
+/* mpq_init -- Make a new rational number with value 0/1.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_init (MP_RAT *x)
+#else
+mpq_init (x)
+     MP_RAT *x;
+#endif
+{
+  x->num.alloc = 1;
+  x->num.d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->num.alloc);
+  x->num.size = 0;
+  x->den.alloc = 1;
+  x->den.d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->den.alloc);
+  x->den.d[0] = 1;
+  x->den.size = 1;
+}
diff --git a/Mp/gmp-1.3.2/mpq_inv.c b/Mp/gmp-1.3.2/mpq_inv.c
new file mode 100644
index 0000000..07fcaa1
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_inv.c
@@ -0,0 +1,74 @@
+/* mpq_inv(dest,src) -- invert a rational number, i.e. set DEST to SRC
+   with the numerator and denominator swapped.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_inv (MP_RAT *dest, const MP_RAT *src)
+#else
+mpq_inv (dest, src)
+     MP_RAT *dest;
+     const MP_RAT *src;
+#endif
+{
+  mp_size num_size = src->num.size;
+  mp_size den_size = src->den.size;
+
+  if (num_size == 0)
+    num_size = 1 / num_size;	/* Divide by zero!  */
+
+  if (num_size < 0)
+    {
+      num_size = -num_size;
+      den_size = -den_size;
+    }
+  dest->den.size = num_size;
+  dest->num.size = den_size;
+
+  /* If dest == src we may just swap the numerator and denominator, but
+     we have to ensure the new denominator is positive.  */
+
+  if (dest == src)
+    {
+      mp_size alloc = dest->num.alloc;
+      mp_ptr limb_ptr = dest->num.d;
+
+      dest->num.alloc = dest->den.alloc;
+      dest->num.d = dest->den.d;
+
+      dest->den.alloc = alloc;
+      dest->den.d = limb_ptr;
+    }
+  else
+    {
+      den_size = ABS (den_size);
+      if (dest->num.alloc < den_size)
+	_mpz_realloc (&(dest->num), den_size);
+
+      if (dest->den.alloc < num_size)
+	_mpz_realloc (&(dest->den), num_size);
+
+      MPN_COPY (dest->num.d, src->den.d, den_size);
+      MPN_COPY (dest->den.d, src->num.d, num_size);
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpq_mul.c b/Mp/gmp-1.3.2/mpq_mul.c
new file mode 100644
index 0000000..003d6ca
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_mul.c
@@ -0,0 +1,78 @@
+/* mpq_mul -- mutiply two rational numbers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_mul (MP_RAT *prod, const MP_RAT *m1, const MP_RAT *m2)
+#else
+mpq_mul (prod, m1, m2)
+     MP_RAT *prod;
+     const MP_RAT *m1;
+     const MP_RAT *m2;
+#endif
+{
+  MP_INT gcd1, gcd2;
+  MP_INT tmp1, tmp2;
+
+  mpz_init (&gcd1);
+  mpz_init (&gcd2);
+  mpz_init (&tmp1);
+  mpz_init (&tmp2);
+
+  /* PROD might be identical to either operand, so don't store the
+     result there until we are finished with the input operands.  We
+     dare to overwrite the numerator of PROD when we are finished
+     with the numerators of M1 and M1.  */
+
+  mpz_gcd (&gcd1, &(m1->num), &(m2->den));
+  mpz_gcd (&gcd2, &(m2->num), &(m1->den));
+
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    mpz_div (&tmp1, &(m1->num), &gcd1);
+  else
+    mpz_set (&tmp1, &(m1->num));
+
+  if (gcd2.size > 1 || gcd2.d[0] != 1)
+    mpz_div (&tmp2, &(m2->num), &gcd2);
+  else
+    mpz_set (&tmp2, &(m2->num));
+
+  mpz_mul (&(prod->num), &tmp1, &tmp2);
+
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    mpz_div (&tmp1, &(m2->den), &gcd1);
+  else
+    mpz_set (&tmp1, &(m2->den));
+
+  if (gcd2.size > 1 || gcd2.d[0] != 1)
+    mpz_div (&tmp2, &(m1->den), &gcd2);
+  else
+    mpz_set (&tmp2, &(m1->den));
+
+  mpz_mul (&(prod->den), &tmp1, &tmp2);
+
+  mpz_clear (&tmp2);
+  mpz_clear (&tmp1);
+  mpz_clear (&gcd2);
+  mpz_clear (&gcd1);
+}
diff --git a/Mp/gmp-1.3.2/mpq_neg.c b/Mp/gmp-1.3.2/mpq_neg.c
new file mode 100644
index 0000000..2141e25
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_neg.c
@@ -0,0 +1,35 @@
+/* mpq_neg(dst, src) -- Assign the negated value of SRC to DST.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_neg (MP_RAT *dst, const MP_RAT *src)
+#else
+mpq_neg (dst, src)
+     MP_RAT *dst;
+     const MP_RAT *src;
+#endif
+{
+  mpz_neg (&dst->num, &src->num);
+  mpz_set (&dst->den, &src->den);
+}
diff --git a/Mp/gmp-1.3.2/mpq_set.c b/Mp/gmp-1.3.2/mpq_set.c
new file mode 100644
index 0000000..1d0cf3e
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_set.c
@@ -0,0 +1,48 @@
+/* mpq_set(dest,src) -- Set DEST to SRC.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_set (MP_RAT *dest, const MP_RAT *src)
+#else
+mpq_set (dest, src)
+     MP_RAT *dest;
+     const MP_RAT *src;
+#endif
+{
+  mp_size num_size, den_size;
+  mp_size abs_num_size;
+
+  num_size = src->num.size;
+  abs_num_size = ABS (num_size);
+  if (dest->num.alloc < abs_num_size)
+    _mpz_realloc (&(dest->num), abs_num_size);
+  MPN_COPY (dest->num.d, src->num.d, abs_num_size);
+  dest->num.size = num_size;
+
+  den_size = src->den.size;
+  if (dest->den.alloc < den_size)
+    _mpz_realloc (&(dest->den), den_size);
+  MPN_COPY (dest->den.d, src->den.d, den_size);
+  dest->den.size = den_size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_set_den.c b/Mp/gmp-1.3.2/mpq_set_den.c
new file mode 100644
index 0000000..d532f1a
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_set_den.c
@@ -0,0 +1,46 @@
+/* mpq_set_den(dest,den) -- Set the denominator of DEST from DEN.
+   If DEN < 0 change the sign of the numerator of DEST.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_set_den (MP_RAT *dest, const MP_INT *den)
+#else
+mpq_set_den (dest, den)
+     MP_RAT *dest;
+     const MP_INT *den;
+#endif
+{
+  mp_size size = den->size;
+  mp_size abs_size = ABS (size);
+
+  if (dest->den.alloc < abs_size)
+    _mpz_realloc (&(dest->den), abs_size);
+
+  MPN_COPY (dest->den.d, den->d, abs_size);
+  dest->den.size = abs_size;
+
+  /* The denominator is always positive; move the sign to the numerator.  */
+  if (size < 0)
+    dest->num.size = -dest->num.size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_set_num.c b/Mp/gmp-1.3.2/mpq_set_num.c
new file mode 100644
index 0000000..609f16b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_set_num.c
@@ -0,0 +1,41 @@
+/* mpq_set_num(dest,num) -- Set the numerator of DEST from NUM.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_set_num (MP_RAT *dest, const MP_INT *num)
+#else
+mpq_set_num (dest, num)
+     MP_RAT *dest;
+     const MP_INT *num;
+#endif
+{
+  mp_size size = num->size;
+  mp_size abs_size = ABS (size);
+
+  if (dest->num.alloc < abs_size)
+    _mpz_realloc (&(dest->num), abs_size);
+
+  MPN_COPY (dest->num.d, num->d, abs_size);
+  dest->num.size = size;
+}
diff --git a/Mp/gmp-1.3.2/mpq_set_si.c b/Mp/gmp-1.3.2/mpq_set_si.c
new file mode 100644
index 0000000..f108b6c
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_set_si.c
@@ -0,0 +1,76 @@
+/* mpq_set_si(dest,ulong_num,ulong_den) -- Set DEST to the retional number
+   ULONG_NUM/ULONG_DEN.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+static unsigned long int
+gcd (x, y)
+     unsigned long int x, y;
+{
+  for (;;)
+    {
+      x = x % y;
+      if (x == 0)
+	return y;
+      y = y % x;
+      if (y == 0)
+	return x;
+    }
+}
+
+void
+#ifdef __STDC__
+mpq_set_si (MP_RAT *dest, signed long int num, unsigned long int den)
+#else
+mpq_set_si (dest, num, den)
+     MP_RAT *dest;
+     signed long int num;
+     unsigned long int den;
+#endif
+{
+  unsigned long int g;
+  unsigned long int abs_num;
+
+  abs_num = ABS (num);
+
+  if (num == 0)
+    {
+      /* Canonicalize 0/d to 0/1.  */
+      den = 1;
+      dest->num.size = 0;
+    }
+  else
+    {
+      /* Remove any common factor in NUM and DEN. */
+      /* Pass DEN as the second argument to gcd, in order to make the
+	 gcd function divide by zero if DEN is zero.  */
+      g = gcd (abs_num, den);
+      abs_num /= g;
+      den /= g;
+
+      dest->num.d[0] = abs_num;
+      dest->num.size = num > 0 ? 1 : -1;
+    }
+
+  dest->den.d[0] = den;
+  dest->den.size = 1;
+}
diff --git a/Mp/gmp-1.3.2/mpq_set_ui.c b/Mp/gmp-1.3.2/mpq_set_ui.c
new file mode 100644
index 0000000..54b69ee
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_set_ui.c
@@ -0,0 +1,73 @@
+/* mpq_set_ui(dest,ulong_num,ulong_den) -- Set DEST to the retional number
+   ULONG_NUM/ULONG_DEN.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+static unsigned long int
+gcd (x, y)
+     unsigned long int x, y;
+{
+  for (;;)
+    {
+      x = x % y;
+      if (x == 0)
+	return y;
+      y = y % x;
+      if (y == 0)
+	return x;
+    }
+}
+
+void
+#ifdef __STDC__
+mpq_set_ui (MP_RAT *dest, unsigned long int num, unsigned long int den)
+#else
+mpq_set_ui (dest, num, den)
+     MP_RAT *dest;
+     unsigned long int num;
+     unsigned long int den;
+#endif
+{
+  unsigned long int g;
+
+  if (num == 0)
+    {
+      /* Canonicalize 0/n to 0/1.  */
+      den = 1;
+      dest->num.size = 0;
+    }
+  else
+    {
+      /* Remove any common factor in NUM and DEN. */
+      /* Pass DEN as the second argument to gcd, in order to make the
+	 gcd function divide by zero if DEN is zero.  */
+      g = gcd (num, den);
+      num /= g;
+      den /= g;
+
+      dest->num.d[0] = num;
+      dest->num.size = 1;
+    }
+
+  dest->den.d[0] = den;
+  dest->den.size = 1;
+}
diff --git a/Mp/gmp-1.3.2/mpq_sub.c b/Mp/gmp-1.3.2/mpq_sub.c
new file mode 100644
index 0000000..a512705
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpq_sub.c
@@ -0,0 +1,85 @@
+/* mpq_sub -- subtract two rational numbers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpq_sub (MP_RAT *dif, const MP_RAT *min, const MP_RAT *sub)
+#else
+mpq_sub (dif, min, sub)
+     MP_RAT *dif;
+     const MP_RAT *min;
+     const MP_RAT *sub;
+#endif
+{
+  MP_INT gcd1, gcd2;
+  MP_INT tmp1, tmp2;
+
+  mpz_init (&gcd1);
+  mpz_init (&gcd2);
+  mpz_init (&tmp1);
+  mpz_init (&tmp2);
+
+  /* DIF might be identical to either operand, so don't store the
+     result there until we are finished with the input operands.  We
+     dare to overwrite the numerator of DIF when we are finished
+     with the numerators of MIN and SUB.  */
+
+  mpz_gcd (&gcd1, &(min->den), &(sub->den));
+  if (gcd1.size > 1 || gcd1.d[0] != 1)
+    {
+      MP_INT t;
+
+      mpz_init (&t);
+
+      mpz_div (&tmp1, &(sub->den), &gcd1);
+      mpz_mul (&tmp1, &(min->num), &tmp1);
+
+      mpz_div (&tmp2, &(min->den), &gcd1);
+      mpz_mul (&tmp2, &(sub->num), &tmp2);
+
+      mpz_sub (&t, &tmp1, &tmp2);
+      mpz_gcd (&gcd2, &t, &gcd1);
+
+      mpz_div (&(dif->num), &t, &gcd2);
+
+      mpz_div (&tmp1, &(min->den), &gcd1);
+      mpz_div (&tmp2, &(sub->den), &gcd2);
+      mpz_mul (&(dif->den), &tmp1, &tmp2);
+
+      mpz_clear (&t);
+    }
+  else
+    {
+      /* The common divisior is 1.  This is the case (for random input) with
+	 probability 6/(pi**2).  */
+      mpz_mul (&tmp1, &(min->num), &(sub->den));
+      mpz_mul (&tmp2, &(sub->num), &(min->den));
+      mpz_sub (&(dif->num), &tmp1, &tmp2);
+      mpz_mul (&(dif->den), &(min->den), &(sub->den));
+    }
+
+  mpz_clear (&tmp2);
+  mpz_clear (&tmp1);
+  mpz_clear (&gcd2);
+  mpz_clear (&gcd1);
+}
diff --git a/Mp/gmp-1.3.2/mpz_abs.c b/Mp/gmp-1.3.2/mpz_abs.c
new file mode 100644
index 0000000..39c1433
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_abs.c
@@ -0,0 +1,44 @@
+/* mpz_abs(MP_INT *dst, MP_INT *src) -- Assign the absolute value of SRC to DST.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_abs (MP_INT *dst, const MP_INT *src)
+#else
+mpz_abs (dst, src)
+     MP_INT *dst;
+     const MP_INT *src;
+#endif
+{
+  mp_size src_size = ABS (src->size);
+
+  if (src != dst)
+    {
+      if (dst->alloc < src_size)
+	_mpz_realloc (dst, src_size);
+
+      MPN_COPY (dst->d, src->d, src_size);
+    }
+
+  dst->size = src_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_add.c b/Mp/gmp-1.3.2/mpz_add.c
new file mode 100644
index 0000000..52639cc
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_add.c
@@ -0,0 +1,121 @@
+/* mpz_add -- Add two integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_add (MP_INT *sum, const MP_INT *u, const MP_INT *v)
+#else
+mpz_add (sum, u, v)
+     MP_INT *sum;
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+madd (const MP_INT *u, const MP_INT *v, MP_INT *sum)
+#else
+madd (u, v, sum)
+     const MP_INT *u;
+     const MP_INT *v;
+     MP_INT *sum;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_srcptr up, vp;
+  mp_ptr sump;
+  mp_size usize, vsize, sumsize;
+  mp_size abs_usize;
+  mp_size abs_vsize;
+
+  usize = u->size;
+  vsize = v->size;
+  abs_usize = ABS (usize);
+  abs_vsize = ABS (vsize);
+
+  if (abs_usize < abs_vsize)
+    {
+      /* Swap U and V. */
+      {const MP_INT *t = u; u = v; v = t;}
+      {mp_size t = usize; usize = vsize; vsize = t;}
+      {mp_size t = abs_usize; abs_usize = abs_vsize; abs_vsize = t;}
+    }
+
+  /* True: abs(USIZE) >= abs(VSIZE) */
+
+  /* If not space for sum (and possible carry), increase space.  */
+  sumsize = abs_usize + 1;
+  if (sum->alloc < sumsize)
+    _mpz_realloc (sum, sumsize);
+
+  /* These must be after realloc (u or v may be the same as sum).  */
+  up = u->d;
+  vp = v->d;
+  sump = sum->d;
+
+  if (usize >= 0)
+    {
+      if (vsize >= 0)
+	{
+	  sumsize = mpn_add (sump, up, abs_usize, vp, abs_vsize);
+	  if (sumsize != 0)
+	    sump[abs_usize] = 1;
+	  sumsize = sumsize + abs_usize;
+	}
+      else
+	{
+	  /* The signs are different.  Need exact comparision to determine
+	     which operand to subtract from which.  */
+	  if (abs_usize == abs_vsize && mpn_cmp (up, vp, abs_usize) < 0)
+	    sumsize = -(abs_usize
+			+ mpn_sub (sump, vp, abs_usize, up, abs_usize));
+	  else
+	    sumsize = (abs_usize
+		       + mpn_sub (sump, up, abs_usize, vp, abs_vsize));
+	}
+    }
+  else
+    {
+      if (vsize >= 0)
+	{
+	  /* The signs are different.  Need exact comparision to determine
+	     which operand to subtract from which.  */
+	  if (abs_usize == abs_vsize && mpn_cmp (up, vp, abs_usize) < 0)
+	    sumsize = (abs_usize
+		       + mpn_sub (sump, vp, abs_usize, up, abs_usize));
+	  else
+	    sumsize = -(abs_usize
+			+ mpn_sub (sump, up, abs_usize, vp, abs_vsize));
+	}
+      else
+	{
+	  sumsize = mpn_add (sump, up, abs_usize, vp, abs_vsize);
+	  if (sumsize != 0)
+	    sump[abs_usize] = 1;
+	  sumsize = -(sumsize + abs_usize);
+	}
+    }
+
+  sum->size = sumsize;
+}
diff --git a/Mp/gmp-1.3.2/mpz_add_ui.c b/Mp/gmp-1.3.2/mpz_add_ui.c
new file mode 100644
index 0000000..34f754b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_add_ui.c
@@ -0,0 +1,84 @@
+/* mpz_add_ui -- Add an MP_INT and an unsigned one-word integer.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_add_ui (MP_INT *sum, const MP_INT *add1, mp_limb add2)
+#else
+mpz_add_ui (sum, add1, add2)
+     MP_INT *sum;
+     const MP_INT *add1;
+     mp_limb add2;
+#endif
+{
+  mp_srcptr add1p;
+  mp_ptr sump;
+  mp_size add1size, sumsize;
+  mp_size abs_add1size;
+
+  add1size = add1->size;
+  abs_add1size = ABS (add1size);
+
+  /* If not space for SUM (and possible carry), increase space.  */
+  sumsize = abs_add1size + 1;
+  if (sum->alloc < sumsize)
+    _mpz_realloc (sum, sumsize);
+
+  /* These must be after realloc (ADD1 may be the same as SUM).  */
+  add1p = add1->d;
+  sump = sum->d;
+
+  if (add2 == 0)
+    {
+      MPN_COPY (sump, add1p, abs_add1size);
+      sum->size = add1size;
+      return;
+    }
+  if (abs_add1size == 0)
+    {
+      sump[0] = add2;
+      sum->size = 1;
+      return;
+    }
+
+  if (add1size >= 0)
+    {
+      sumsize = mpn_add (sump, add1p, abs_add1size, &add2, 1);
+      if (sumsize != 0)
+	sump[abs_add1size] = 1;
+      sumsize = sumsize + abs_add1size;
+    }
+  else
+    {
+      /* The signs are different.  Need exact comparision to determine
+	 which operand to subtract from which.  */
+      if (abs_add1size == 1 && add1p[0] < add2)
+	sumsize = (abs_add1size
+		   + mpn_sub (sump, &add2, 1, add1p, 1));
+      else
+	sumsize = -(abs_add1size
+		    + mpn_sub (sump, add1p, abs_add1size, &add2, 1));
+    }
+
+  sum->size = sumsize;
+}
diff --git a/Mp/gmp-1.3.2/mpz_and.c b/Mp/gmp-1.3.2/mpz_and.c
new file mode 100644
index 0000000..f5b39ed
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_and.c
@@ -0,0 +1,267 @@
+/* mpz_and -- Logical and.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#define min(l,o) ((l) < (o) ? (l) : (o))
+#define max(h,i) ((h) > (i) ? (h) : (i))
+
+void
+#ifdef __STDC__
+mpz_and (MP_INT *res, const MP_INT *op1, const MP_INT *op2)
+#else
+mpz_and (res, op1, op2)
+     MP_INT *res;
+     const MP_INT *op1;
+     const MP_INT *op2;
+#endif
+{
+  mp_srcptr op1_ptr, op2_ptr;
+  mp_size op1_size, op2_size;
+  mp_ptr res_ptr;
+  mp_size res_size;
+  mp_size i;
+
+  op1_size = op1->size;
+  op2_size = op2->size;
+
+  op1_ptr = op1->d;
+  op2_ptr = op2->d;
+  res_ptr = res->d;
+
+  if (op1_size >= 0)
+    {
+      if (op2_size >= 0)
+	{
+	  res_size = min (op1_size, op2_size);
+	  /* First loop finds the size of the result.  */
+	  for (i = res_size - 1; i >= 0; i--)
+	    if ((op1_ptr[i] & op2_ptr[i]) != 0)
+	      break;
+	  res_size = i + 1;
+
+	  /* Handle allocation, now when we know exactly how much space is
+	     needed for the result.  */
+	  if (res->alloc < res_size)
+	    {
+	      _mpz_realloc (res, res_size);
+	      op1_ptr = op1->d;
+	      op2_ptr = op2->d;
+	      res_ptr = res->d;
+	    }
+
+	  /* Second loop computes the real result.  */
+	  for (i = res_size - 1; i >= 0; i--)
+	    res_ptr[i] = op1_ptr[i] & op2_ptr[i];
+
+	  res->size = res_size;
+	  return;
+	}
+      else /* op2_size < 0 */
+	/* Fall through to the code at the end of the function.  */
+	;
+    }
+  else
+    {
+      if (op2_size < 0)
+	{
+	  mp_ptr opx;
+	  mp_limb cy;
+	  mp_limb one = 1;
+	  mp_size res_alloc;
+
+	  /* Both operands are negative, so will be the result.
+	     -((-OP1) & (-OP2)) = -(~(OP1 - 1) & ~(OP2 - 1)) =
+	     = ~(~(OP1 - 1) & ~(OP2 - 1)) + 1 =
+	     = ((OP1 - 1) | (OP2 - 1)) + 1      */
+
+	  op1_size = -op1_size;
+	  op2_size = -op2_size;
+
+	  res_alloc = 1 + max (op1_size, op2_size);
+
+	  opx = (mp_ptr) alloca (op1_size * BYTES_PER_MP_LIMB);
+	  op1_size += mpn_sub (opx, op1_ptr, op1_size, &one, 1);
+	  op1_ptr = opx;
+
+	  opx = (mp_ptr) alloca (op2_size * BYTES_PER_MP_LIMB);
+	  op2_size += mpn_sub (opx, op2_ptr, op2_size, &one, 1);
+	  op2_ptr = opx;
+
+	  if (res->alloc < res_alloc)
+	    {
+	      _mpz_realloc (res, res_alloc);
+	      res_ptr = res->d;
+	      /* Don't re-read OP1_PTR and OP2_PTR.  They point to
+		 temporary space--never to the space RES->D used
+		 to point to before reallocation.  */
+	    }
+
+	  if (op1_size >= op2_size)
+	    {
+	      MPN_COPY (res_ptr + op2_size, op1_ptr + op2_size,
+			op1_size - op2_size);
+	      for (i = op2_size - 1; i >= 0; i--)
+		res_ptr[i] = op1_ptr[i] | op2_ptr[i];
+	      res_size = op1_size;
+	    }
+	  else
+	    {
+	      MPN_COPY (res_ptr + op1_size, op2_ptr + op1_size,
+			op2_size - op1_size);
+	      for (i = op1_size - 1; i >= 0; i--)
+		res_ptr[i] = op1_ptr[i] | op2_ptr[i];
+	      res_size = op2_size;
+	    }
+
+	  if (res_size != 0)
+	    {
+	      cy = mpn_add (res_ptr, res_ptr, res_size, &one, 1);
+	      if (cy)
+		{
+		  res_ptr[res_size] = cy;
+		  res_size++;
+		}
+	    }
+	  else
+	    {
+	      res_ptr[0] = 1;
+	      res_size = 1;
+	    }
+
+	  res->size = -res_size;
+	  return;
+	}
+      else
+	{
+	  /* We should compute -OP1 & OP2.  Swap OP1 and OP2 and fall
+	     through to the code that handles OP1 & -OP2.  */
+	  {const MP_INT *t = op1; op1 = op2; op2 = t;}
+	  {mp_srcptr t = op1_ptr; op1_ptr = op2_ptr; op2_ptr = t;}
+	  {mp_size t = op1_size; op1_size = op2_size; op2_size = t;}
+	}
+
+    }
+
+  {
+#if 0
+    mp_size op2_lim;
+
+    /* OP2 must be negated as with infinite precision.
+
+       Scan from the low end for a non-zero limb.  The first non-zero
+       limb is simply negated (two's complement).  Any subsequent
+       limbs are one's complemented.  Of course, we don't need to
+       handle more limbs than there are limbs in the other, positive
+       operand as the result for those limbs is going to become zero
+       anyway.  */
+
+    /* Scan for the least significant. non-zero OP2 limb, and zero the
+       result meanwhile for those limb positions.  (We will surely
+       find a non-zero limb, so we can write the loop with one
+       termination condition only.)  */
+    for (i = 0; op2_ptr[i] == 0; i++)
+      res_ptr[i] = 0;
+    op2_lim = i;
+
+    op2_size = -op2_size;
+
+    if (op1_size <= op2_size)
+      {
+	/* The ones-extended OP2 is >= than the zero-extended OP1.
+	   RES_SIZE <= OP1_SIZE.  Find the exact size.  */
+	for (i = op1_size - 1; i > op2_lim; i--)
+	  if ((op1_ptr[i] & ~op2_ptr[i]) != 0)
+	    break;
+	res_size = i + 1;
+      }
+    else
+      {
+	/* The ones-extended OP2 is < than the zero-extended OP1.
+	   RES_SIZE == OP1_SIZE, since OP1 is normalized.  */
+	res_size = op1_size;
+      }
+#endif
+
+    /* OP1 is positive and zero-extended,
+       OP2 is negative and ones-extended.
+       The result will be positive.
+       OP1 & -OP2 = OP1 & ~(OP2 - 1).  */
+
+    mp_ptr opx;
+    const mp_limb one = 1;
+
+    op2_size = -op2_size;
+    opx = (mp_ptr) alloca (op2_size * BYTES_PER_MP_LIMB);
+    op2_size += mpn_sub (opx, op2_ptr, op2_size, &one, 1);
+    op2_ptr = opx;
+
+    if (op1_size > op2_size)
+      {
+	/* The result has the same size as OP1, since OP1 is normalized
+	   and longer than the ones-extended OP2.  */
+	res_size = op1_size;
+
+	/* Handle allocation, now when we know exactly how much space is
+	   needed for the result.  */
+	if (res->alloc < res_size)
+	  {
+	    _mpz_realloc (res, res_size);
+	    res_ptr = res->d;
+	    op1_ptr = op1->d;
+	    /* Don't re-read OP2_PTR.  It points to temporary space--never
+	       to the space RES->D used to point to before reallocation.  */
+	  }
+
+	MPN_COPY (res_ptr + op2_size, op1_ptr + op2_size,
+		  res_size - op2_size);
+	for (i = op2_size - 1; i >= 0; i--)
+	  res_ptr[i] = op1_ptr[i] & ~op2_ptr[i];
+
+	res->size = res_size;
+      }
+    else
+      {
+	/* Find out the exact result size.  Ignore the high limbs of OP2,
+	   OP1 is zero-extended and would make the result zero.  */
+	for (i = op1_size - 1; i >= 0; i--)
+	  if ((op1_ptr[i] & ~op2_ptr[i]) != 0)
+	    break;
+	res_size = i + 1;
+
+	/* Handle allocation, now when we know exactly how much space is
+	   needed for the result.  */
+	if (res->alloc < res_size)
+	  {
+	    _mpz_realloc (res, res_size);
+	    res_ptr = res->d;
+	    op1_ptr = op1->d;
+	    /* Don't re-read OP2_PTR.  It points to temporary space--never
+	       to the space RES->D used to point to before reallocation.  */
+	  }
+
+	for (i = res_size - 1; i >= 0; i--)
+	  res_ptr[i] = op1_ptr[i] & ~op2_ptr[i];
+
+	res->size = res_size;
+      }
+  }
+}
diff --git a/Mp/gmp-1.3.2/mpz_clear.c b/Mp/gmp-1.3.2/mpz_clear.c
new file mode 100644
index 0000000..f95b009
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_clear.c
@@ -0,0 +1,34 @@
+/* mpz_clear -- de-allocate the space occupied by the dynamic digit space of
+   an integer.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_clear (MP_INT *m)
+#else
+mpz_clear (m)
+     MP_INT *m;
+#endif
+{
+  (*_mp_free_func) (m->d, m->alloc * BYTES_PER_MP_LIMB);
+}
diff --git a/Mp/gmp-1.3.2/mpz_clrbit.c b/Mp/gmp-1.3.2/mpz_clrbit.c
new file mode 100644
index 0000000..7fde814
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_clrbit.c
@@ -0,0 +1,124 @@
+/* mpz_clrbit -- clear a specified bit.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#define MPN_NORMALIZE(p, size) \
+  do {									\
+    mp_size i;								\
+    for (i = (size) - 1; i >= 0; i--)					\
+      if ((p)[i] != 0)							\
+	break;								\
+    (size) = i + 1;							\
+  } while (0)
+
+void
+#ifdef __STDC__
+mpz_clrbit (MP_INT *d, unsigned long int bit_index)
+#else
+mpz_clrbit (d, bit_index)
+     MP_INT *d;
+     unsigned long int bit_index;
+#endif
+{
+  mp_size dsize = d->size;
+  mp_ptr dp = d->d;
+  mp_size limb_index;
+
+  limb_index = bit_index / BITS_PER_MP_LIMB;
+  if (dsize >= 0)
+    {
+      if (limb_index < dsize)
+	{
+	  dp[limb_index] &= ~((mp_limb) 1 << (bit_index % BITS_PER_MP_LIMB));
+	  MPN_NORMALIZE (dp, dsize);
+	  d->size = dsize;
+	}
+      else
+	;
+    }
+  else
+    {
+      mp_size zero_bound;
+
+      /* Simulate two's complement arithmetic, i.e. simulate
+	 1. Set OP = ~(OP - 1) [with infinitely many leading ones].
+	 2. clear the bit.
+	 3. Set OP = ~OP + 1.  */
+
+      dsize = -dsize;
+
+      /* No upper bound on this loop, we're sure there's a non-zero limb
+	 sooner ot later.  */
+      for (zero_bound = 0; ; zero_bound++)
+	if (dp[zero_bound] != 0)
+	  break;
+
+      if (limb_index > zero_bound)
+	{
+	  if (limb_index < dsize)
+	    {
+	      dp[limb_index] |= ((mp_limb) 1 << (bit_index % BITS_PER_MP_LIMB));
+	    }
+	  else
+	    {
+	      /* Ugh.  The bit should be cleared outside of the end of the
+		 number.  We have to increase the size of the number.  */
+	      if (d->alloc < limb_index + 1)
+		{
+		  _mpz_realloc (d, limb_index + 1);
+		  dp = d->d;
+		}
+	      MPN_ZERO (dp + dsize, limb_index - dsize);
+	      dp[limb_index] = ((mp_limb) 1 << (bit_index % BITS_PER_MP_LIMB));
+	      d->size = -(limb_index + 1);
+	    }
+	}
+      else if (limb_index == zero_bound)
+	{
+	  dp[limb_index] = ((dp[limb_index] - 1)
+			    | ((mp_limb) 1 << (bit_index % BITS_PER_MP_LIMB))) + 1;
+	  if (dp[limb_index] == 0)
+	    {
+	      mp_size i;
+	      for (i = limb_index + 1; i < dsize; i++)
+		{
+		  dp[i] += 1;
+		  if (dp[i] != 0)
+		    goto fin;
+		}
+	      /* We got carry all way out beyond the end of D.  Increase
+		 its size (and allocation if necessary).  */
+	      dsize++;
+	      if (d->alloc < dsize)
+		{
+		  _mpz_realloc (d, dsize);
+		  dp = d->d;
+		}
+	      dp[i] = 1;
+	      d->size = -dsize;
+	    fin:;
+	    }
+	}
+      else
+	;
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_cmp.c b/Mp/gmp-1.3.2/mpz_cmp.c
new file mode 100644
index 0000000..b76b494
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_cmp.c
@@ -0,0 +1,84 @@
+/* mpz_cmp(u,v) -- Compare U, V.  Return postive, zero, or negative
+   based on if U > V, U == V, or U < V.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifdef BERKELEY_MP
+#include "mp.h"
+#endif
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifndef BERKELEY_MP
+int
+#ifdef __STDC__
+mpz_cmp (const MP_INT *u, const MP_INT *v)
+#else
+mpz_cmp (u, v)
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#else /* BERKELEY_MP */
+int
+#ifdef __STDC__
+mcmp (const MP_INT *u, const MP_INT *v)
+#else
+mcmp (u, v)
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_size usize = u->size;
+  mp_size vsize = v->size;
+  mp_size size;
+  mp_size i;
+  mp_limb a, b;
+  mp_srcptr up, vp;
+
+  if (usize != vsize)
+    return usize - vsize;
+
+  if (usize == 0)
+    return 0;
+
+  size = ABS (usize);
+
+  up = u->d;
+  vp = v->d;
+
+  i = size - 1;
+  do
+    {
+      a = up[i];
+      b = vp[i];
+      i--;
+      if (i < 0)
+	break;
+    }
+  while (a == b);
+
+  if (a == b)
+    return 0;
+
+  if ((a < b) == (usize < 0))
+    return 1;
+  else
+    return -1;
+}
diff --git a/Mp/gmp-1.3.2/mpz_cmp_si.c b/Mp/gmp-1.3.2/mpz_cmp_si.c
new file mode 100644
index 0000000..c7073be
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_cmp_si.c
@@ -0,0 +1,62 @@
+/* mpz_cmp_si(u,v) -- Compare an integer U with a single-word int V.
+   Return positive, zero, or negative based on if U > V, U == V, or U < V.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+int
+#ifdef __STDC__
+mpz_cmp_si (const MP_INT *u, signed long int v_digit)
+#else
+mpz_cmp_si (u, v_digit)
+     const MP_INT *u;
+     signed long int v_digit;
+#endif
+{
+  mp_size usize = u->size;
+  mp_size vsize;
+  mp_limb u_digit;
+
+  vsize = 0;
+  if (v_digit > 0)
+    vsize = 1;
+  else if (v_digit < 0)
+    {
+      vsize = -1;
+      v_digit = -v_digit;
+    }
+
+  if (usize != vsize)
+    return usize - vsize;
+
+  if (usize == 0)
+    return 0;
+
+  u_digit = u->d[0];
+
+  if (u_digit == v_digit)
+    return 0;
+
+  if ((u_digit < v_digit) == (usize < 0))
+    return 1;
+  else
+    return -1;
+}
diff --git a/Mp/gmp-1.3.2/mpz_cmp_ui.c b/Mp/gmp-1.3.2/mpz_cmp_ui.c
new file mode 100644
index 0000000..79a41db
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_cmp_ui.c
@@ -0,0 +1,52 @@
+/* mpz_cmp_ui.c -- Compare a MP_INT a with an mp_limb b.  Return positive,
+  zero, or negative based on if a > b, a == b, or a < b.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+int
+#ifdef __STDC__
+mpz_cmp_ui (const MP_INT *u, mp_limb v_digit)
+#else
+mpz_cmp_ui (u, v_digit)
+     const MP_INT *u;
+     mp_limb v_digit;
+#endif
+{
+  mp_size usize = u->size;
+
+  if (usize == 0)
+    return -(v_digit != 0);
+
+  if (usize == 1)
+    {
+      mp_limb u_digit;
+
+      u_digit = u->d[0];
+      if (u_digit > v_digit)
+	return 1;
+      if (u_digit < v_digit)
+	return -1;
+      return 0;
+    }
+
+  return (usize > 0) ? 1 : -1;
+}
diff --git a/Mp/gmp-1.3.2/mpz_com.c b/Mp/gmp-1.3.2/mpz_com.c
new file mode 100644
index 0000000..3c0d3b1
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_com.c
@@ -0,0 +1,96 @@
+/* mpz_com(MP_INT *dst, MP_INT *src) -- Assign the bit-complemented value of
+   SRC to DST.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_com (MP_INT *dst, const MP_INT *src)
+#else
+mpz_com (dst, src)
+     MP_INT *dst;
+     const MP_INT *src;
+#endif
+{
+  mp_size size = src->size;
+  mp_srcptr src_ptr;
+  mp_ptr dst_ptr;
+
+  if (size >= 0)
+    {
+      /* As with infinite precision: one's complement, two's complement.
+	 But this can be simplified using the identity -x = ~x + 1.
+	 So we're going to compute (~~x) + 1 = x + 1!  */
+
+      if (dst->alloc < size + 1)
+	_mpz_realloc (dst, size + 1);
+
+      src_ptr = src->d;
+      dst_ptr = dst->d;
+
+      if (size == 0)
+	{
+	  /* Special case, as mpn_add wants the first arg's size >= the
+	     second arg's size.  */
+	  dst_ptr[0] = 1;
+	  dst->size = -1;
+	  return;
+	}
+
+      {
+	mp_limb one = 1;
+	int cy;
+
+	cy = mpn_add (dst_ptr, src_ptr, size, &one, 1);
+	if (cy)
+	  {
+	    dst_ptr[size] = cy;
+	    size++;
+	  }
+      }
+
+      /* Store a negative size, to indicate ones-extension.  */
+      dst->size = -size;
+    }
+  else
+    {
+      /* As with infinite precision: two's complement, then one's complement.
+	 But that can be simplified using the identity -x = ~(x - 1).
+	 So we're going to compute ~~(x - 1) = x - 1!  */
+      size = -size;
+
+      if (dst->alloc < size)
+	_mpz_realloc (dst, size);
+
+      src_ptr = src->d;
+      dst_ptr = dst->d;
+
+      {
+	mp_limb one = 1;
+
+	size += mpn_sub (dst_ptr, src_ptr, size, &one, 1);
+      }
+
+      /* Store a positive size, to indicate zero-extension.  */
+      dst->size = size;
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_div.c b/Mp/gmp-1.3.2/mpz_div.c
new file mode 100644
index 0000000..a27cde9
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_div.c
@@ -0,0 +1,117 @@
+/* mpz_div -- divide two integers and produce a quotient.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_div (MP_INT *quot, const MP_INT *num, const MP_INT *den)
+#else
+mpz_div (quot, num, den)
+     MP_INT *quot;
+     const MP_INT *num;
+     const MP_INT *den;
+#endif
+{
+  mp_srcptr np, dp;
+  mp_ptr qp, rp;
+  mp_size nsize = num->size;
+  mp_size dsize = den->size;
+  mp_size qsize, rsize;
+  mp_size sign_quotient = nsize ^ dsize;
+  unsigned normalization_steps;
+
+  nsize = ABS (nsize);
+  dsize = ABS (dsize);
+
+  /* Ensure space is enough for quotient. */
+
+  qsize = nsize - dsize + 1;	/* qsize cannot be bigger than this.  */
+  if (qsize <= 0)
+    {
+      quot->size = 0;
+      return;
+    }
+
+  if (quot->alloc < qsize)
+    _mpz_realloc (quot, qsize);
+
+  qp = quot->d;
+  np = num->d;
+  dp = den->d;
+  rp = (mp_ptr) alloca ((nsize + 1) * BYTES_PER_MP_LIMB);
+
+  count_leading_zeros (normalization_steps, dp[dsize - 1]);
+
+  /* Normalize the denominator and the numerator.  */
+  if (normalization_steps != 0)
+    {
+      mp_ptr tp;
+      mp_limb ndigit;
+
+      /* Shift up the denominator setting the most significant bit of
+	 the most significant word.  Use temporary storage not to clobber
+	 the original contents of the denominator.  */
+      tp = (mp_ptr) alloca (dsize * BYTES_PER_MP_LIMB);
+      (void) mpn_lshift (tp, dp, dsize, normalization_steps);
+      dp = tp;
+
+      /* Shift up the numerator, possibly introducing a new most
+	 significant word.  Move the shifted numerator in the remainder
+	 meanwhile.  */
+      ndigit = mpn_lshift (rp, np, nsize, normalization_steps);
+      if (ndigit != 0)
+	{
+	  rp[nsize] = ndigit;
+	  rsize = nsize + 1;
+	}
+      else
+	rsize = nsize;
+    }
+  else
+    {
+      /* The denominator is already normalized, as required.
+	 Copy it to temporary space if it overlaps with the quotient.  */
+      if (dp == qp)
+	{
+	  dp = (mp_ptr) alloca (dsize * BYTES_PER_MP_LIMB);
+	  MPN_COPY ((mp_ptr) dp, qp, dsize);
+	}
+
+      /* Move the numerator to the remainder.  */
+      MPN_COPY (rp, np, nsize);
+      rsize = nsize;
+    }
+
+  qsize = rsize - dsize + mpn_div (qp, rp, rsize, dp, dsize);
+
+  /* Normalize the quotient.  We may have at most one leading
+     zero-word, so no loop is needed.  */
+  if (qsize > 0)
+    qsize -= (qp[qsize - 1] == 0);
+
+  if (sign_quotient < 0)
+    qsize = -qsize;
+  quot->size = qsize;
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_div_2exp.c b/Mp/gmp-1.3.2/mpz_div_2exp.c
new file mode 100644
index 0000000..de67f2f
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_div_2exp.c
@@ -0,0 +1,53 @@
+/* mpz_div_2exp -- Divide a bignum by 2**CNT
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_div_2exp (MP_INT *w, const MP_INT *u, unsigned long int cnt)
+#else
+mpz_div_2exp (w, u, cnt)
+     MP_INT *w;
+     const MP_INT *u;
+     unsigned long int cnt;
+#endif
+{
+  mp_size usize = u->size;
+  mp_size wsize;
+  mp_size abs_usize = ABS (usize);
+  mp_size limb_cnt;
+
+  limb_cnt = cnt / BITS_PER_MP_LIMB;
+  wsize = abs_usize - limb_cnt;
+  if (wsize <= 0)
+    wsize = 0;
+  else
+    {
+      if (w->alloc < wsize)
+	_mpz_realloc (w, wsize);
+
+      wsize = mpn_rshift (w->d, u->d + limb_cnt, abs_usize - limb_cnt,
+			   cnt % BITS_PER_MP_LIMB);
+    }
+
+  w->size = (usize >= 0) ? wsize : -wsize;
+}
diff --git a/Mp/gmp-1.3.2/mpz_div_ui.c b/Mp/gmp-1.3.2/mpz_div_ui.c
new file mode 100644
index 0000000..93c2552
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_div_ui.c
@@ -0,0 +1,65 @@
+/* mpz_div_ui(quot, dividend, divisor_limb)
+   -- Divide DIVIDEND by DIVISOR_LIMB and store the result in QUOT.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_div_ui (MP_INT *quot, const MP_INT *dividend, unsigned long int divisor_limb)
+#else
+mpz_div_ui (quot, dividend, divisor_limb)
+     MP_INT *quot;
+     const MP_INT *dividend;
+     unsigned long int divisor_limb;
+#endif
+{
+  mp_size sign_dividend;
+  mp_size dividend_size, quot_size;
+  mp_ptr dividend_ptr, quot_ptr;
+
+  sign_dividend = dividend->size;
+  dividend_size = ABS (dividend->size);
+
+  if (dividend_size == 0)
+    {
+      quot->size = 0;
+      return;
+    }
+
+  /* No need for temporary allocation and copying if QUOT == DIVIDEND as
+     the divisor is just one limb, and thus no intermediate remainders
+     need to be stored.  */
+
+  if (quot->alloc < dividend_size)
+    _mpz_realloc (quot, dividend_size);
+
+  quot_ptr = quot->d;
+  dividend_ptr = dividend->d;
+
+  mpn_divmod_1 (quot_ptr, dividend_ptr, dividend_size, divisor_limb);
+
+  /* The quotient is DIVIDEND_SIZE limbs, but the most significant
+     might be zero.  Set QUOT_SIZE properly. */
+  quot_size = dividend_size - (quot_ptr[dividend_size - 1] == 0);
+  quot->size = sign_dividend >= 0 ? quot_size : -quot_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_dm.c b/Mp/gmp-1.3.2/mpz_dm.c
new file mode 100644
index 0000000..26fda05
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_dm.c
@@ -0,0 +1,38 @@
+/* mpz_divmod(quot,rem,dividend,divisor) -- Set QUOT to DIVIDEND/DIVISOR,
+   and REM to DIVIDEND mod DIVISOR.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_divmod (MP_INT *quot, MP_INT *rem, const MP_INT *num, const MP_INT *den)
+#else
+mpz_divmod (quot, rem, num, den)
+     MP_INT *quot;
+     MP_INT *rem;
+     const MP_INT *num;
+     const MP_INT *den;
+#endif
+
+#define COMPUTE_QUOTIENT
+#include "mpz_dmincl.c"
diff --git a/Mp/gmp-1.3.2/mpz_dm_ui.c b/Mp/gmp-1.3.2/mpz_dm_ui.c
new file mode 100644
index 0000000..e8c3cf6
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_dm_ui.c
@@ -0,0 +1,81 @@
+/* mpz_divmod_ui(quot,rem,dividend,short_divisor) --
+   Set QUOT to DIVIDEND / SHORT_DIVISOR
+   and REM to DIVIDEND mod SHORT_DIVISOR.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_divmod_ui (MP_INT *quot, MP_INT *rem,
+	       const MP_INT *dividend, unsigned long int divisor_limb)
+#else
+mpz_divmod_ui (quot, rem, dividend, divisor_limb)
+     MP_INT *quot;
+     MP_INT *rem;
+     const MP_INT *dividend;
+     unsigned long int divisor_limb;
+#endif
+{
+  mp_size sign_dividend;
+  mp_size dividend_size, quot_size;
+  mp_ptr dividend_ptr, quot_ptr;
+  mp_limb remainder_limb;
+
+  sign_dividend = dividend->size;
+  dividend_size = ABS (dividend->size);
+
+  if (dividend_size == 0)
+    {
+      quot->size = 0;
+      rem->size = 0;
+      return;
+    }
+
+  /* No need for temporary allocation and copying if QUOT == DIVIDEND as
+     the divisor is just one limb, and thus no intermediate remainders
+     need to be stored.  */
+
+  if (quot->alloc < dividend_size)
+    _mpz_realloc (quot, dividend_size);
+
+  quot_ptr = quot->d;
+  dividend_ptr = dividend->d;
+
+  remainder_limb = mpn_divmod_1 (quot_ptr,
+				 dividend_ptr, dividend_size, divisor_limb);
+
+  if (remainder_limb == 0)
+    rem->size = 0;
+  else
+    {
+      /* Store the single-limb remainder.  We don't check if there's space
+	 for just one limb, since no function ever makes zero space.  */
+      rem->size = sign_dividend >= 0 ? 1 : -1;
+      rem->d[0] = remainder_limb;
+    }
+
+  /* The quotient is DIVIDEND_SIZE limbs, but the most significant
+     might be zero.  Set QUOT_SIZE properly. */
+  quot_size = dividend_size - (quot_ptr[dividend_size - 1] == 0);
+  quot->size = sign_dividend >= 0 ? quot_size : -quot_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_dmincl.c b/Mp/gmp-1.3.2/mpz_dmincl.c
new file mode 100644
index 0000000..dde7981
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_dmincl.c
@@ -0,0 +1,172 @@
+/* mpz_dmincl.c -- include file for mpz_dm.c, mpz_mod.c, mdiv.c.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/* THIS CODE IS OBSOLETE.  IT WILL SOON BE REPLACED BY CLEANER CODE WITH
+   LESS MEMORY ALLOCATION OVERHEAD.  */
+
+/* If den == quot, den needs temporary storage.
+   If den == rem, den needs temporary storage.
+   If num == quot, num needs temporary storage.
+   If den has temporary storage, it can be normalized while being copied,
+     i.e no extra storage should be allocated.  */
+
+/* This is the function body of mdiv, mpz_divmod, and mpz_mod.
+
+   If COMPUTE_QUOTIENT is defined, the quotient is put in the MP_INT
+   object quot, otherwise that variable is not referenced at all.
+
+   The remainder is always computed, and the result is put in the MP_INT
+   object rem.  */
+
+{
+  mp_ptr np, dp;
+  mp_ptr qp, rp;
+  mp_size nsize = num->size;
+  mp_size dsize = den->size;
+  mp_size qsize, rsize;
+  mp_size sign_remainder = nsize;
+#ifdef COMPUTE_QUOTIENT
+  mp_size sign_quotient = nsize ^ dsize;
+#endif
+  unsigned normalization_steps;
+
+  nsize = ABS (nsize);
+  dsize = ABS (dsize);
+
+  /* Ensure space is enough for quotient and remainder. */
+
+  /* We need space for an extra limb in the remainder, because it's
+     up-shifted (normalized) below.  */
+  rsize = nsize + 1;
+  if (rem->alloc < rsize)
+    _mpz_realloc (rem, rsize);
+
+  qsize = nsize - dsize + 1;	/* qsize cannot be bigger than this.  */
+  if (qsize <= 0)
+    {
+#ifdef COMPUTE_QUOTIENT
+      quot->size = 0;
+#endif
+      if (num != rem)
+	{
+	  rem->size = num->size;
+	  MPN_COPY (rem->d, num->d, nsize);
+	}
+      return;
+    }
+
+#ifdef COMPUTE_QUOTIENT
+  if (quot->alloc < qsize)
+    _mpz_realloc (quot, qsize);
+  qp = quot->d;
+#else
+  qp = (mp_ptr) alloca (qsize * BYTES_PER_MP_LIMB);
+#endif
+  np = num->d;
+  dp = den->d;
+  rp = rem->d;
+
+  /* Make sure quot and num are different.  Otherwise the numerator
+     would be successively overwritten by the quotient digits.  */
+  if (qp == np)
+    {
+      np = (mp_ptr) alloca (nsize * BYTES_PER_MP_LIMB);
+      MPN_COPY (np, qp, nsize);
+    }
+
+  count_leading_zeros (normalization_steps, dp[dsize - 1]);
+
+  /* Normalize the denominator, i.e. make its most significant bit set by
+     shifting it NORMALIZATION_STEPS bits to the left.  Also shift the
+     numerator the same number of steps (to keep the quotient the same!).  */
+  if (normalization_steps != 0)
+    {
+      mp_ptr tp;
+      mp_limb ndigit;
+
+      /* Shift up the denominator setting the most significant bit of
+	 the most significant word.  Use temporary storage not to clobber
+	 the original contents of the denominator.  */
+      tp = (mp_ptr) alloca (dsize * BYTES_PER_MP_LIMB);
+      (void) mpn_lshift (tp, dp, dsize, normalization_steps);
+      dp = tp;
+
+      /* Shift up the numerator, possibly introducing a new most
+	 significant word.  Move the shifted numerator in the remainder
+	 meanwhile.  */
+      ndigit = mpn_lshift (rp, np, nsize, normalization_steps);
+      if (ndigit != 0)
+	{
+	  rp[nsize] = ndigit;
+	  rsize = nsize + 1;
+	}
+      else
+	rsize = nsize;
+    }
+  else
+    {
+#ifdef COMPUTE_QUOTIENT
+      if (rem == den || quot == den)
+#else
+      if (rem == den)
+#endif
+	{
+	  mp_ptr tp;
+
+	  tp = (mp_ptr) alloca (dsize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (tp, dp, dsize);
+	  dp = tp;
+	}
+
+      /* Move the numerator to the remainder.  */
+      if (rp != np)
+	MPN_COPY (rp, np, nsize);
+
+      rsize = nsize;
+    }
+
+  qsize = rsize - dsize + mpn_div (qp, rp, rsize, dp, dsize);
+
+  rsize = dsize;
+
+  /* Normalize the remainder.  */
+  while (rsize > 0)
+    {
+      if (rp[rsize - 1] != 0)
+	break;
+      rsize--;
+    }
+
+  if (normalization_steps != 0)
+    rsize = mpn_rshift (rp, rp, rsize, normalization_steps);
+
+  rem->size = (sign_remainder >= 0) ? rsize : -rsize;
+
+#ifdef COMPUTE_QUOTIENT
+  /* Normalize the quotient.  We may have at most one leading
+     zero-word, so no loop is needed.  */
+  if (qsize > 0)
+    qsize -= (qp[qsize - 1] == 0);
+
+  quot->size = (sign_quotient >= 0) ? qsize : -qsize;
+#endif
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_fac_ui.c b/Mp/gmp-1.3.2/mpz_fac_ui.c
new file mode 100644
index 0000000..9cdc785
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_fac_ui.c
@@ -0,0 +1,156 @@
+/* mpz_fac_ui(result, n) -- Set RESULT to N!.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifdef DBG
+#include <stdio.h>
+#endif
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_fac_ui (MP_INT *result, unsigned long int n)
+#else
+mpz_fac_ui (result, n)
+     MP_INT *result;
+     unsigned long int n;
+#endif
+{
+#if SIMPLE_FAC
+
+  /* Be silly.  Just multiply the numbers in ascending order.  O(n**2).  */
+
+  mp_limb k;
+
+  mpz_set_ui (result, (mp_limb) 1);
+
+  for (k = 2; k <= n; k++)
+    mpz_mul_ui (result, result, k);
+#else
+
+  /* Be smarter.  Multiply groups of numbers in ascending order until the
+     product doesn't fit in a limb.  Multiply these partial products in a
+     balanced binary tree fashion, to make the operand have as equal sizes
+     as possible.  (When the operands have about the same size, mpn_mul
+     becomes faster.)  */
+
+  mp_limb k;
+  mp_limb p1, p0, p;
+
+  /* Stack of partial products, used to make the computation balanced
+     (i.e. make the sizes of the multiplication operands equal).  The
+     topmost position of MP_STACK will contain a one-limb partial product,
+     the second topmost will contain a two-limb partial product, and so
+     on.  MP_STACK[0] will contain a partial product with 2**t limbs.
+     To compute n! MP_STACK needs to be less than
+     log(n)**2/log(BITS_PER_MP_LIMB), so 30 is surely enough.  */
+#define MP_STACK_SIZE 30
+  MP_INT mp_stack[MP_STACK_SIZE];
+
+  /* TOP is an index into MP_STACK, giving the topmost element.
+     TOP_LIMIT_SO_FAR is the largets value it has taken so far.  */
+  int top, top_limit_so_far;
+
+  /* Count of the total number of limbs put on MP_STACK so far.  This
+     variable plays an essential role in making the compututation balanced.
+     See below.  */
+  unsigned int tree_cnt;
+
+  top = top_limit_so_far = -1;
+  tree_cnt = 0;
+  p = 1;
+  for (k = 2; k <= n; k++)
+    {
+      /* Multiply the partial product in P with K.  */
+      umul_ppmm (p1, p0, p, k);
+
+      /* Did we get overflow into the high limb, i.e. is the partial
+	 product now more than one limb?  */
+      if (p1 != 0)
+	{
+	  tree_cnt++;
+
+	  if (tree_cnt % 2 == 0)
+	    {
+	      mp_size i;
+
+	      /* TREE_CNT is even (i.e. we have generated an even number of
+		 one-limb partial products), which means that we have a
+		 single-limb product on the top of MP_STACK.  */
+
+	      mpz_mul_ui (&mp_stack[top], &mp_stack[top], p);
+
+	      /* If TREE_CNT is divisable by 4, 8,..., we have two
+		 similar-sized partial products with 2, 4,... limbs at
+		 the topmost two positions of MP_STACK.  Multiply them
+		 to form a new partial product with 4, 8,... limbs.  */
+	      for (i = 4; (tree_cnt & (i - 1)) == 0; i <<= 1)
+		{
+		  mpz_mul (&mp_stack[top - 1],
+			   &mp_stack[top], &mp_stack[top - 1]);
+		  top--;
+		}
+	    }
+	  else
+	    {
+	      /* Put the single-limb partial product in P on the stack.
+		 (The next time we get a single-limb product, we will
+		 multiply the two together.)  */
+	      top++;
+	      if (top > top_limit_so_far)
+		{
+		  if (top > MP_STACK_SIZE)
+		    abort();
+		  /* The stack is now bigger than ever, initialize the top
+		     element.  */
+		  mpz_init_set_ui (&mp_stack[top], p);
+		  top_limit_so_far++;
+		}
+	      else
+		mpz_set_ui (&mp_stack[top], p);
+	    }
+
+	  /* We ignored the last result from umul_ppmm.  Put K in P as the
+	     first component of the next single-limb partial product.  */
+	  p = k;
+	}
+      else
+	/* We didn't get overflow in umul_ppmm.  Put p0 in P and try
+	   with one more value of K.  */
+	p = p0;
+    }
+
+  /* We have partial products in mp_stack[0..top], in descending order.
+     We also have a small partial product in p.
+     Their product is the final result.  */
+  if (top < 0)
+    mpz_set_ui (result, p);
+  else
+    mpz_mul_ui (result, &mp_stack[top--], p);
+  while (top >= 0)
+    mpz_mul (result, result, &mp_stack[top--]);
+
+  /* Free the storage allocated for MP_STACK.  */
+  for (top = top_limit_so_far; top >= 0; top--)
+    mpz_clear (&mp_stack[top]);
+#endif
+}
diff --git a/Mp/gmp-1.3.2/mpz_gcd.c b/Mp/gmp-1.3.2/mpz_gcd.c
new file mode 100644
index 0000000..090c8c5
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_gcd.c
@@ -0,0 +1,169 @@
+/* mpz_gcd -- Calculate the greatest common divisior of two integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_gcd (MP_INT *w, const MP_INT *u, const MP_INT *v)
+#else
+mpz_gcd (w, u, v)
+     MP_INT *w;
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+gcd (const MP_INT *u, const MP_INT *v, MP_INT *w)
+#else
+gcd (u, v, w)
+     const MP_INT *u;
+     const MP_INT *v;
+     MP_INT *w;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_size usize, vsize, wsize;
+  mp_ptr up_in, vp_in;
+  mp_ptr up, vp;
+  mp_ptr wp;
+  mp_size i;
+  mp_limb d;
+  int bcnt;
+  mp_size w_bcnt;
+  mp_limb cy_digit;
+
+  usize = ABS (u->size);
+  vsize = ABS (v->size);
+
+  /* GCD(0,v) == v.  */
+  if (usize == 0)
+    {
+      if (w->alloc < vsize)
+	_mpz_realloc (w, vsize);
+
+      w->size = vsize;
+      MPN_COPY (w->d, v->d, vsize);
+      return;
+    }
+
+  /* GCD(0,u) == u.  */
+  if (vsize == 0)
+    {
+      if (w->alloc < usize)
+	_mpz_realloc (w, usize);
+
+      w->size = usize;
+      MPN_COPY (w->d, u->d, usize);
+      return;
+    }
+
+  /* Make U odd by shifting it down as many bit positions as there
+     are zero bits.  Put the result in temporary space.  */
+  up = (mp_ptr) alloca (usize * BYTES_PER_MP_LIMB);
+  up_in = u->d;
+  for (i = 0; (d = up_in[i]) == 0; i++)
+    ;
+  count_leading_zeros (bcnt, d & -d);
+  bcnt = BITS_PER_MP_LIMB - 1 - bcnt;
+  usize = mpn_rshift (up, up_in + i, usize - i, bcnt);
+
+  bcnt += i * BITS_PER_MP_LIMB;
+  w_bcnt = bcnt;
+
+  /* Make V odd by shifting it down as many bit positions as there
+     are zero bits.  Put the result in temporary space.  */
+  vp = (mp_ptr) alloca (vsize * BYTES_PER_MP_LIMB);
+  vp_in = v->d;
+  for (i = 0; (d = vp_in[i]) == 0; i++)
+    ;
+  count_leading_zeros (bcnt, d & -d);
+  bcnt = BITS_PER_MP_LIMB - 1 - bcnt;
+  vsize = mpn_rshift (vp, vp_in + i, vsize - i, bcnt);
+
+  /* W_BCNT is set to the minimum of the number of zero bits in U and V.
+     Thus it represents the number of common 2 factors.  */
+  bcnt += i * BITS_PER_MP_LIMB;
+  if (bcnt < w_bcnt)
+    w_bcnt = bcnt;
+
+  for (;;)
+    {
+      int cmp;
+
+      cmp = usize - vsize != 0 ? usize - vsize : mpn_cmp (up, vp, usize);
+
+      /* If U and V have become equal, we have found the GCD.  */
+      if (cmp == 0)
+	break;
+
+      if (cmp > 0)
+	{
+	  /* Replace U by (U - V) >> cnt, with cnt being the least value
+	     making U odd again.  */
+
+	  usize += mpn_sub (up, up, usize, vp, vsize);
+	  for (i = 0; (d = up[i]) == 0; i++)
+	    ;
+	  count_leading_zeros (bcnt, d & -d);
+	  bcnt = BITS_PER_MP_LIMB - 1 - bcnt;
+	  usize = mpn_rshift (up, up + i, usize - i, bcnt);
+	}
+      else
+	{
+	  /* Replace V by (V - U) >> cnt, with cnt being the least value
+	     making V odd again.  */
+
+	  vsize += mpn_sub (vp, vp, vsize, up, usize);
+	  for (i = 0; (d = vp[i]) == 0; i++)
+	    ;
+	  count_leading_zeros (bcnt, d & -d);
+	  bcnt = BITS_PER_MP_LIMB - 1 - bcnt;
+	  vsize = mpn_rshift (vp, vp + i, vsize - i, bcnt);
+	}
+    }
+
+  /* GCD(U_IN, V_IN) now is U * 2**W_BCNT.  */
+
+  wsize = usize + w_bcnt / BITS_PER_MP_LIMB + 1;
+  if (w->alloc < wsize)
+    _mpz_realloc (w, wsize);
+
+  wp = w->d;
+
+  MPN_ZERO (wp, w_bcnt / BITS_PER_MP_LIMB);
+
+  cy_digit = mpn_lshift (wp + w_bcnt / BITS_PER_MP_LIMB, up, usize,
+			  w_bcnt % BITS_PER_MP_LIMB);
+  wsize = usize + w_bcnt / BITS_PER_MP_LIMB;
+  if (cy_digit != 0)
+    {
+      wp[wsize] = cy_digit;
+      wsize++;
+    }
+
+  w->size = wsize;
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_gcdext.c b/Mp/gmp-1.3.2/mpz_gcdext.c
new file mode 100644
index 0000000..183b9bd
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_gcdext.c
@@ -0,0 +1,80 @@
+/* mpz_gcdext(g, s, t, a, b) -- Set G to gcd(a, b), and S and T such that
+   g = as + bt.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+/* Botch:  SLOW!  */
+
+void
+#ifdef __STDC__
+mpz_gcdext (MP_INT *g, MP_INT *s, MP_INT *t, const MP_INT *a, const MP_INT *b)
+#else
+mpz_gcdext (g, s, t, a, b)
+     MP_INT *g;
+     MP_INT *s;
+     MP_INT *t;
+     const MP_INT *a;
+     const MP_INT *b;
+#endif
+{
+  MP_INT s0, s1, q, r, x, d0, d1;
+
+  mpz_init_set_ui (&s0, 1);
+  mpz_init_set_ui (&s1, 0);
+  mpz_init (&q);
+  mpz_init (&r);
+  mpz_init (&x);
+  mpz_init_set (&d0, a);
+  mpz_init_set (&d1, b);
+
+  while (d1.size != 0)
+    {
+      mpz_divmod (&q, &r, &d0, &d1);
+      mpz_set (&d0, &d1);
+      mpz_set (&d1, &r);
+
+      mpz_mul (&x, &s1, &q);
+      mpz_sub (&x, &s0, &x);
+      mpz_set (&s0, &s1);
+      mpz_set (&s1, &x);
+    }
+
+  if (t != NULL)
+    {
+      mpz_mul (&x, &s0, a);
+      mpz_sub (&x, &d0, &x);
+      if (b->size == 0)
+	t->size = 0;
+      else
+	mpz_div (t, &x, b);
+    }
+  mpz_set (s, &s0);
+  mpz_set (g, &d0);
+
+  mpz_clear (&s0);
+  mpz_clear (&s1);
+  mpz_clear (&q);
+  mpz_clear (&r);
+  mpz_clear (&x);
+  mpz_clear (&d0);
+  mpz_clear (&d1);
+}
diff --git a/Mp/gmp-1.3.2/mpz_get_si.c b/Mp/gmp-1.3.2/mpz_get_si.c
new file mode 100644
index 0000000..9cddf4b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_get_si.c
@@ -0,0 +1,40 @@
+/* mpz_get_si(integer) -- Return the least significant digit from INTEGER.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+signed long int
+#ifdef __STDC__
+mpz_get_si (const MP_INT *integer)
+#else
+mpz_get_si (integer)
+     const MP_INT *integer;
+#endif
+{
+  mp_size size = integer->size;
+
+  if (size > 0)
+    return integer->d[0] % ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1));
+  else if (size < 0)
+    return -(integer->d[0] % ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1)));
+  else
+    return 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_get_str.c b/Mp/gmp-1.3.2/mpz_get_str.c
new file mode 100644
index 0000000..ac5ee65
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_get_str.c
@@ -0,0 +1,39 @@
+/* mpz_get_str (string, base, mp_src) -- Convert the multiple precision
+   number MP_SRC to a string STRING of base BASE.  If STRING is NULL
+   allocate space for the result.  In any case, return a pointer to the
+   result.  If STRING is not NULL, the caller must ensure enough space is
+   available to store the result.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+char *
+#ifdef __STDC__
+mpz_get_str (char *str, int base, const MP_INT *m)
+#else
+mpz_get_str (str, base, m)
+     char *str;
+     int base;
+     const MP_INT *m;
+#endif
+{
+  return _mpz_get_str (str, base, m);
+}
diff --git a/Mp/gmp-1.3.2/mpz_get_ui.c b/Mp/gmp-1.3.2/mpz_get_ui.c
new file mode 100644
index 0000000..118f249
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_get_ui.c
@@ -0,0 +1,36 @@
+/* mpz_get_ui(integer) -- Return the least significant digit from INTEGER.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+unsigned long int
+#ifdef __STDC__
+mpz_get_ui (const MP_INT *integer)
+#else
+mpz_get_ui (integer)
+     const MP_INT *integer;
+#endif
+{
+  if (integer->size == 0)
+    return 0;
+  else
+    return integer->d[0];
+}
diff --git a/Mp/gmp-1.3.2/mpz_init.c b/Mp/gmp-1.3.2/mpz_init.c
new file mode 100644
index 0000000..5766a41
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_init.c
@@ -0,0 +1,35 @@
+/* mpz_init() -- Make a new multiple precision number with value 0.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_init (MP_INT *x)
+#else
+mpz_init (x)
+     MP_INT *x;
+#endif
+{
+  x->alloc = 1;
+  x->d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->alloc);
+  x->size = 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_inp_raw.c b/Mp/gmp-1.3.2/mpz_inp_raw.c
new file mode 100644
index 0000000..576f4b6
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_inp_raw.c
@@ -0,0 +1,72 @@
+/* mpz_inp_raw -- Input a MP_INT in raw, but endianess, and wordsize
+   independent format (as output by mpz_out_raw).
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_inp_raw (MP_INT *x, FILE *file)
+#else
+mpz_inp_raw (x, file)
+     MP_INT *x;
+     FILE *file;
+#endif
+{
+  int i;
+  mp_size s;
+  mp_size xsize;
+  mp_ptr xp;
+  unsigned int c;
+  mp_limb x_digit;
+  mp_size x_index;
+
+  xsize = 0;
+  for (i = 4 - 1; i >= 0; i--)
+    {
+      c = fgetc (file);
+      xsize = (xsize << BITS_PER_CHAR) | c;
+    }
+
+  /* ??? Sign extend xsize for non-32 bit machines?  */
+
+  x_index = (ABS (xsize) + BYTES_PER_MP_LIMB - 1) / BYTES_PER_MP_LIMB - 1;
+
+  if (x->alloc < x_index)
+    _mpz_realloc (x, x_index);
+
+  xp = x->d;
+  x->size = xsize / BYTES_PER_MP_LIMB;
+  x_digit = 0;
+  for (s = ABS (xsize) - 1; s >= 0; s--)
+    {
+      i = s % BYTES_PER_MP_LIMB;
+      c = fgetc (file);
+      x_digit = (x_digit << BITS_PER_CHAR) | c;
+      if (i == 0)
+	{
+	  xp[x_index--] = x_digit;
+	  x_digit = 0;
+	}
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_inp_str.c b/Mp/gmp-1.3.2/mpz_inp_str.c
new file mode 100644
index 0000000..a775996
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_inp_str.c
@@ -0,0 +1,105 @@
+/* mpz_inp_str(dest_integer, stream, base) -- Input a number in base
+   BASE from stdio stream STREAM and store the result in DEST_INTEGER.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include <ctype.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+
+static int
+char_ok_for_base (c, base)
+     int c;
+     int base;
+{
+  if (isdigit (c))
+    return (unsigned) c - '0' < base;
+  if (islower (c))
+    return (unsigned) c - 'a' + 10 < base;
+  if (isupper (c))
+    return (unsigned) c - 'A' + 10 < base;
+
+  return 0;
+}
+
+void
+#ifdef __STDC__
+mpz_inp_str (MP_INT *dest, FILE *stream, int base)
+#else
+mpz_inp_str (dest, stream, base)
+     MP_INT *dest;
+     FILE *stream;
+     int base;
+#endif
+{
+  char *str;
+  size_t str_size;
+  size_t i;
+  int c;
+  int negative = 0;
+
+  str_size = 100;
+  str = (char *) (*_mp_allocate_func) (str_size);
+
+  c = getc (stream);
+  if (c == '-')
+    {
+      negative = 1;
+      c = getc (stream);
+    }
+
+  /* If BASE is 0, try to find out the base by looking at the initial
+     characters.  */
+  if (base == 0)
+    {
+      base = 10;
+      if (c == '0')
+	{
+	  base = 8;
+	  c = getc (stream);
+	  if (c == 'x' || c == 'X')
+	    {
+	      base = 16;
+	      c = getc (stream);
+	    }
+	}
+    }
+
+  for (i = 0; char_ok_for_base (c, base); i++)
+    {
+      if (i >= str_size)
+	{
+	  size_t old_str_size = str_size;
+	  str_size = str_size * 3 / 2;
+	  str = (char *) (*_mp_reallocate_func) (str, old_str_size, str_size);
+	}
+      str[i] = c;
+      c = getc (stream);
+    }
+
+  ungetc (c, stream);
+
+  str[i] = 0;
+  _mpz_set_str (dest, str, base);
+  if (negative)
+    dest->size = -dest->size;
+
+  (*_mp_free_func) (str, str_size);
+}
diff --git a/Mp/gmp-1.3.2/mpz_ior.c b/Mp/gmp-1.3.2/mpz_ior.c
new file mode 100644
index 0000000..bf7b1c1
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_ior.c
@@ -0,0 +1,242 @@
+/* mpz_ior -- Logical inclusive or.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#define min(l,o) ((l) < (o) ? (l) : (o))
+#define max(h,i) ((h) > (i) ? (h) : (i))
+
+void
+#ifdef __STDC__
+mpz_ior (MP_INT *res, const MP_INT *op1, const MP_INT *op2)
+#else
+mpz_ior (res, op1, op2)
+     MP_INT *res;
+     const MP_INT *op1;
+     const MP_INT *op2;
+#endif
+{
+  mp_srcptr op1_ptr, op2_ptr;
+  mp_size op1_size, op2_size;
+  mp_ptr res_ptr;
+  mp_size res_size;
+  mp_size i;
+
+  op1_size = op1->size;
+  op2_size = op2->size;
+
+  op1_ptr = op1->d;
+  op2_ptr = op2->d;
+  res_ptr = res->d;
+
+  if (op1_size >= 0)
+    {
+      if (op2_size >= 0)
+	{
+	  if (op1_size >= op2_size)
+	    {
+	      if (res->alloc < op1_size)
+		{
+		  _mpz_realloc (res, op1_size);
+		  op1_ptr = op1->d;
+		  op2_ptr = op2->d;
+		  res_ptr = res->d;
+		}
+
+	      if (res_ptr != op1_ptr)
+		MPN_COPY (res_ptr + op2_size, op1_ptr + op2_size,
+			  op1_size - op2_size);
+	      for (i = op2_size - 1; i >= 0; i--)
+		res_ptr[i] = op1_ptr[i] | op2_ptr[i];
+	      res_size = op1_size;
+	    }
+	  else
+	    {
+	      if (res->alloc < op2_size)
+		{
+		  _mpz_realloc (res, op2_size);
+		  op1_ptr = op1->d;
+		  op2_ptr = op2->d;
+		  res_ptr = res->d;
+		}
+
+	      if (res_ptr != op2_ptr)
+		MPN_COPY (res_ptr + op1_size, op2_ptr + op1_size,
+			  op2_size - op1_size);
+	      for (i = op1_size - 1; i >= 0; i--)
+		res_ptr[i] = op1_ptr[i] | op2_ptr[i];
+	      res_size = op2_size;
+	    }
+
+	  res->size = res_size;
+	  return;
+	}
+      else /* op2_size < 0 */
+	/* Fall through to the code at the end of the function.  */
+	;
+    }
+  else
+    {
+      if (op2_size < 0)
+	{
+	  mp_ptr opx;
+	  mp_limb cy;
+	  mp_limb one = 1;
+
+	  /* Both operands are negative, so will be the result.
+	     -((-OP1) | (-OP2)) = -(~(OP1 - 1) | ~(OP2 - 1)) =
+	     = ~(~(OP1 - 1) | ~(OP2 - 1)) + 1 =
+	     = ((OP1 - 1) & (OP2 - 1)) + 1      */
+
+	  op1_size = -op1_size;
+	  op2_size = -op2_size;
+
+	  res_size = min (op1_size, op2_size);
+
+	  /* Possible optimization: Decrease mpn_sub precision,
+	     as we won't use the entire res of both.  */
+	  opx = (mp_ptr) alloca (op1_size * BYTES_PER_MP_LIMB);
+	  op1_size += mpn_sub (opx, op1_ptr, op1_size, &one, 1);
+	  op1_ptr = opx;
+
+	  opx = (mp_ptr) alloca (op2_size * BYTES_PER_MP_LIMB);
+	  op2_size += mpn_sub (opx, op2_ptr, op2_size, &one, 1);
+	  op2_ptr = opx;
+
+	  if (res->alloc < res_size)
+	    {
+	      _mpz_realloc (res, res_size);
+	      res_ptr = res->d;
+	      /* Don't re-read OP1_PTR and OP2_PTR.  They point to
+		 temporary space--never to the space RES->D used
+		 to point to before reallocation.  */
+	    }
+
+	  /* First loop finds the size of the result.  */
+	  for (i = res_size - 1; i >= 0; i--)
+	    if ((op1_ptr[i] & op2_ptr[i]) != 0)
+	      break;
+	  res_size = i + 1;
+
+	  /* Second loop computes the real result.  */
+	  for (i = res_size - 1; i >= 0; i--)
+	    res_ptr[i] = op1_ptr[i] & op2_ptr[i];
+
+	  if (res_size != 0)
+	    {
+	      cy = mpn_add (res_ptr, res_ptr, res_size, &one, 1);
+	      if (cy)
+		{
+		  res_ptr[res_size] = cy;
+		  res_size++;
+		}
+	    }
+	  else
+	    {
+	      res_ptr[0] = 1;
+	      res_size = 1;
+	    }
+
+	  res->size = -res_size;
+	  return;
+	}
+      else
+	{
+	  /* We should compute -OP1 | OP2.  Swap OP1 and OP2 and fall
+	     through to the code that handles OP1 | -OP2.  */
+	  {const MP_INT *t = op1; op1 = op2; op2 = t;}
+	  {mp_srcptr t = op1_ptr; op1_ptr = op2_ptr; op2_ptr = t;}
+	  {mp_size t = op1_size; op1_size = op2_size; op2_size = t;}
+	}
+    }
+
+  {
+    mp_ptr opx;
+    mp_limb cy;
+    mp_limb one = 1;
+    mp_size res_alloc;
+
+    /* Operand 2 negative, so will be the result.
+       -(OP1 | (-OP2)) = -(OP1 | ~(OP2 - 1)) =
+       = ~(OP1 | ~(OP2 - 1)) + 1 =
+       = (~OP1 & (OP2 - 1)) + 1      */
+
+    op2_size = -op2_size;
+
+    res_alloc = op2_size;
+
+    opx = (mp_ptr) alloca (op2_size * BYTES_PER_MP_LIMB);
+    op2_size += mpn_sub (opx, op2_ptr, op2_size, &one, 1);
+    op2_ptr = opx;
+
+    if (res->alloc < res_alloc)
+      {
+	_mpz_realloc (res, res_alloc);
+	op1_ptr = op1->d;
+	res_ptr = res->d;
+	/* Don't re-read OP2_PTR.  It points to temporary space--never
+	   to the space RES->D used to point to before reallocation.  */
+      }
+
+    if (op1_size >= op2_size)
+      {
+	/* We can just ignore the part of OP1 that stretches above OP2,
+	   because the result limbs are zero there.  */
+
+	/* First loop finds the size of the result.  */
+	for (i = op2_size - 1; i >= 0; i--)
+	  if ((~op1_ptr[i] & op2_ptr[i]) != 0)
+	    break;
+	res_size = i + 1;
+      }
+    else
+      {
+	res_size = op2_size;
+
+	/* Copy the part of OP2 that stretches above OP1, to RES.  */
+	MPN_COPY (res_ptr + op1_size, op2_ptr + op1_size,
+		  op2_size - op1_size);
+      }
+
+    /* Second loop computes the real result.  */
+    for (i = res_size - 1; i >= 0; i--)
+      res_ptr[i] = ~op1_ptr[i] & op2_ptr[i];
+
+    if (res_size != 0)
+      {
+	cy = mpn_add (res_ptr, res_ptr, res_size, &one, 1);
+	if (cy)
+	  {
+	    res_ptr[res_size] = cy;
+	    res_size++;
+	  }
+      }
+    else
+      {
+	res_ptr[0] = 1;
+	res_size = 1;
+      }
+
+    res->size = -res_size;
+    alloca (0);
+    return;
+  }
+}
diff --git a/Mp/gmp-1.3.2/mpz_iset.c b/Mp/gmp-1.3.2/mpz_iset.c
new file mode 100644
index 0000000..53c9d3e
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_iset.c
@@ -0,0 +1,45 @@
+/* mpz_init_set (src_integer) -- Make a new multiple precision number with
+   a value copied from SRC_INTEGER.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_init_set (MP_INT *x, const MP_INT *src)
+#else
+mpz_init_set (x, src)
+     MP_INT *x;
+     const MP_INT *src;
+#endif
+{
+  mp_size size;
+  mp_size abs_size;
+
+  size = src->size;
+  abs_size = ABS (size);
+
+  x->alloc = abs_size == 0 ? 1 : abs_size;
+  x->d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->alloc);
+
+  MPN_COPY (x->d, src->d, abs_size);
+  x->size = size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_iset_si.c b/Mp/gmp-1.3.2/mpz_iset_si.c
new file mode 100644
index 0000000..66bbda1
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_iset_si.c
@@ -0,0 +1,48 @@
+/* mpz_init_set_si(val) -- Make a new multiple precision number with
+   value val.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_init_set_si (MP_INT *x, signed long int val)
+#else
+mpz_init_set_si (x, val)
+     MP_INT *x;
+     signed long int val;
+#endif
+{
+  x->alloc = 1;
+  x->d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->alloc);
+  if (val > 0)
+    {
+      x->d[0] = val;
+      x->size = 1;
+    }
+  else if (val < 0)
+    {
+      x->d[0] = -val;
+      x->size = -1;
+    }
+  else
+    x->size = 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_iset_str.c b/Mp/gmp-1.3.2/mpz_iset_str.c
new file mode 100644
index 0000000..b110b11
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_iset_str.c
@@ -0,0 +1,42 @@
+/* mpz_init_set_str(mpz, string, base) -- Initialize MPZ and set it to the
+   value in the \0-terminated ascii string STRING in base BASE.  Return 0 if
+   the string was accepted, -1 if an error occured.  If BASE == 0 determine
+   the base in the C standard way, i.e.  0xhh...h means base 16, 0oo...o
+   means base 8, otherwise assume base 10.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+int
+#ifdef __STDC__
+mpz_init_set_str (MP_INT *x, const char *str, int base)
+#else
+mpz_init_set_str (x, str, base)
+     MP_INT *x;
+     const char *str;
+     int base;
+#endif
+{
+  x->alloc = 1;
+  x->d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->alloc);
+
+  return _mpz_set_str (x, str, base);
+}
diff --git a/Mp/gmp-1.3.2/mpz_iset_ui.c b/Mp/gmp-1.3.2/mpz_iset_ui.c
new file mode 100644
index 0000000..bd52640
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_iset_ui.c
@@ -0,0 +1,43 @@
+/* mpz_init_set_ui(val) -- Make a new multiple precision number with
+   value val.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_init_set_ui (MP_INT *x, unsigned long int val)
+#else
+mpz_init_set_ui (x, val)
+     MP_INT *x;
+     unsigned long int val;
+#endif
+{
+  x->alloc = 1;
+  x->d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB * x->alloc);
+  if (val > 0)
+    {
+      x->d[0] = val;
+      x->size = 1;
+    }
+  else
+    x->size = 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_mdiv.c b/Mp/gmp-1.3.2/mpz_mdiv.c
new file mode 100644
index 0000000..bb8b9de
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mdiv.c
@@ -0,0 +1,52 @@
+/* mpz_mdiv -- Mathematical DIVision and MODulo, i.e. division that rounds
+   the quotient towards -infinity.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mdiv (MP_INT *quot,
+	  const MP_INT *dividend, const MP_INT *divisor)
+#else
+mpz_mdiv (quot, dividend, divisor)
+     MP_INT *quot;
+     const MP_INT *dividend;
+     const MP_INT *divisor;
+#endif
+{
+  if ((dividend->size ^ divisor->size) >= 0)
+    {
+      /* When the dividend and the divisor has same sign, this function
+	 gives same result as mpz_div.  */
+      mpz_div (quot, dividend, divisor);
+    }
+  else
+    {
+      MP_INT rem;
+
+      MPZ_TMP_INIT (&rem, 1 + ABS (dividend->size));
+
+      mpz_divmod (quot, &rem, dividend, divisor);
+      if (rem.size != 0)
+	mpz_sub_ui (quot, quot, 1);
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_mdiv_ui.c b/Mp/gmp-1.3.2/mpz_mdiv_ui.c
new file mode 100644
index 0000000..fbf127f
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mdiv_ui.c
@@ -0,0 +1,43 @@
+/* mpz_mdiv_ui -- Mathematical DIVision and MODulo, i.e. division that rounds
+   the quotient towards -infinity.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mdiv_ui (MP_INT *quot,
+	     const MP_INT *dividend, unsigned long int divisor)
+#else
+mpz_mdiv_ui (quot, dividend, divisor)
+     MP_INT *quot;
+     const MP_INT *dividend;
+     unsigned long int divisor;
+#endif
+{
+  MP_INT rem;
+
+  MPZ_TMP_INIT (&rem, 1 + ABS (dividend->size));
+
+  mpz_divmod_ui (quot, &rem, dividend, divisor);
+  if (rem.size < 0)
+    mpz_sub_ui (quot, quot, 1);
+}
diff --git a/Mp/gmp-1.3.2/mpz_mdm.c b/Mp/gmp-1.3.2/mpz_mdm.c
new file mode 100644
index 0000000..0844643
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mdm.c
@@ -0,0 +1,64 @@
+/* mpz_mdivmod -- Mathematical DIVision and MODulo, i.e. division that rounds
+   the quotient towards -infinity, and with the remainder non-negative.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mdivmod (MP_INT *quot, MP_INT *rem,
+	     const MP_INT *dividend, const MP_INT *divisor)
+#else
+mpz_mdivmod (quot, rem, dividend, divisor)
+     MP_INT *quot;
+     MP_INT *rem;
+     const MP_INT *dividend;
+     const MP_INT *divisor;
+#endif
+{
+  if ((dividend->size ^ divisor->size) >= 0)
+    {
+      /* When the dividend and the divisor has same sign, this function
+	 gives same result as mpz_divmod.  */
+      mpz_divmod (quot, rem, dividend, divisor);
+    }
+  else
+    {
+      MP_INT temp_divisor;	/* N.B.: lives until function returns! */
+
+      /* We need the original value of the divisor after the quotient and
+	 remainder have been preliminary calculated.  We have to copy it to
+	 temporary space if it's the same variable as either QUOT or REM.  */
+      if (quot == divisor || rem == divisor)
+	{
+	  MPZ_TMP_INIT (&temp_divisor, ABS (divisor->size));
+	  mpz_set (&temp_divisor, divisor);
+	  divisor = &temp_divisor;
+	}
+
+      mpz_divmod (quot, rem, dividend, divisor);
+      if (rem->size != 0)
+	{
+	  mpz_sub_ui (quot, quot, 1);
+	  mpz_add (rem, rem, divisor);
+	}
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_mdm_ui.c b/Mp/gmp-1.3.2/mpz_mdm_ui.c
new file mode 100644
index 0000000..cf41912
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mdm_ui.c
@@ -0,0 +1,58 @@
+/* mpz_mdivmod -- Mathematical DIVision and MODulo, i.e. division that rounds
+   the quotient towards -infinity, and with the remainder non-negative.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+unsigned long int
+#ifdef __STDC__
+mpz_mdivmod_ui (MP_INT *quot, MP_INT *rem,
+		const MP_INT *dividend, unsigned long int divisor)
+#else
+mpz_mdivmod_ui (quot, rem, dividend, divisor)
+     MP_INT *quot;
+     MP_INT *rem;
+     const MP_INT *dividend;
+     unsigned long int divisor;
+#endif
+{
+  MP_INT temp_rem;		/* N.B.: lives until function returns! */
+
+  /* If the user doesn't want the remainder to be stored in an integer
+     object, allocate a scratch variable for it.  */
+  if (rem == NULL)
+    {
+      MPZ_TMP_INIT (&temp_rem, 1 + ABS (dividend->size));
+      rem = &temp_rem;
+    }
+
+  mpz_divmod_ui (quot, rem, dividend, divisor);
+
+  if (rem->size < 0)
+    {
+      mpz_sub_ui (quot, quot, 1);
+      mpz_add_ui (rem, rem, divisor);
+    }
+
+  if (rem->size == 0)
+    return 0;
+  return rem->d[0];
+}
diff --git a/Mp/gmp-1.3.2/mpz_mmod.c b/Mp/gmp-1.3.2/mpz_mmod.c
new file mode 100644
index 0000000..c1d3d3f
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mmod.c
@@ -0,0 +1,60 @@
+/* mpz_mmod -- Mathematical MODulo, i.e. with the remainder
+   non-negative.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mmod (MP_INT *rem,
+	     const MP_INT *dividend, const MP_INT *divisor)
+#else
+mpz_mmod (rem, dividend, divisor)
+     MP_INT *rem;
+     const MP_INT *dividend;
+     const MP_INT *divisor;
+#endif
+{
+  if ((dividend->size ^ divisor->size) >= 0)
+    {
+      /* When the dividend and the divisor has same sign, this function
+	 gives same result as mpz_mod.  */
+      mpz_mod (rem, dividend, divisor);
+    }
+  else
+    {
+      MP_INT temp_divisor;	/* N.B.: lives until function returns! */
+ 
+      /* We need the original value of the divisor after the remainder has
+	 been preliminary calculated.  We have to copy it to temporary
+	 space if it's the same variable as REM.  */
+      if (rem == divisor)
+	{
+	  MPZ_TMP_INIT (&temp_divisor, ABS (divisor->size));
+	  mpz_set (&temp_divisor, divisor);
+	  divisor = &temp_divisor;
+	}
+
+      mpz_mod (rem, dividend, divisor);
+      if (rem->size != 0)
+	mpz_add (rem, rem, divisor);
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_mmod_ui.c b/Mp/gmp-1.3.2/mpz_mmod_ui.c
new file mode 100644
index 0000000..0fdbee2
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mmod_ui.c
@@ -0,0 +1,52 @@
+/* mpz_mmod -- Mathematical MODulo, i.e. with the remainder
+   non-negative.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+unsigned long int
+#ifdef __STDC__
+mpz_mmod_ui (MP_INT *rem,
+	     const MP_INT *dividend, unsigned long int divisor)
+#else
+mpz_mmod_ui (rem, dividend, divisor)
+     MP_INT *rem;
+     const MP_INT *dividend;
+     unsigned long int divisor;
+#endif
+{
+  MP_INT temp_rem;	/* N.B.: lives until function returns! */
+
+  if (rem == NULL)
+    {
+      MPZ_TMP_INIT (&temp_rem, 1 + ABS (dividend->size));
+      rem = &temp_rem;
+    }
+
+  mpz_mod_ui (rem, dividend, divisor);
+
+  if (rem->size < 0)
+    mpz_add_ui (rem, rem, divisor);
+
+  if (rem->size == 0)
+    return 0;
+  return rem->d[0];
+}
diff --git a/Mp/gmp-1.3.2/mpz_mod.c b/Mp/gmp-1.3.2/mpz_mod.c
new file mode 100644
index 0000000..276bee0
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mod.c
@@ -0,0 +1,36 @@
+/* mpz_mod(rem, dividend, divisor) -- Set REM to DIVIDEND mod DIVISOR.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_mod (MP_INT *rem, const MP_INT *num, const MP_INT *den)
+#else
+mpz_mod (rem, num, den)
+     MP_INT *rem;
+     const MP_INT *num;
+     const MP_INT *den;
+#endif
+
+#undef COMPUTE_QUOTIENT
+#include "mpz_dmincl.c"
diff --git a/Mp/gmp-1.3.2/mpz_mod_2exp.c b/Mp/gmp-1.3.2/mpz_mod_2exp.c
new file mode 100644
index 0000000..696acd4
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mod_2exp.c
@@ -0,0 +1,82 @@
+/* mpz_mod_2exp -- divide a MP_INT by 2**n and produce a remainder.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mod_2exp (MP_INT *res, const MP_INT *in, unsigned long int cnt)
+#else
+mpz_mod_2exp (res, in, cnt)
+     MP_INT *res;
+     const MP_INT *in;
+     unsigned long int cnt;
+#endif
+{
+  mp_size in_size = ABS (in->size);
+  mp_size res_size;
+  mp_size limb_cnt = cnt / BITS_PER_MP_LIMB;
+  mp_srcptr in_ptr = in->d;
+
+  if (in_size > limb_cnt)
+    {
+      /* The input operand is (probably) greater than 2**CNT.  */
+      mp_limb x;
+
+      x = in_ptr[limb_cnt] & (((mp_limb) 1 << cnt % BITS_PER_MP_LIMB) - 1);
+      if (x != 0)
+	{
+	  res_size = limb_cnt + 1;
+	  if (res->alloc < res_size)
+	    _mpz_realloc (res, res_size);
+
+	  res->d[limb_cnt] = x;
+	}
+      else
+	{
+	  mp_size i;
+
+	  for (i = limb_cnt - 1; i >= 0; i--)
+	    if (in_ptr[i] != 0)
+	      break;
+	  res_size = i + 1;
+
+	  if (res->alloc < res_size)
+	    _mpz_realloc (res, res_size);
+
+	  limb_cnt = res_size;
+	}
+    }
+  else
+    {
+      /* The input operand is smaller than 2**CNT.  We perform a no-op,
+	 apart from that we might need to copy IN to RES.  */
+      res_size = in_size;
+      if (res->alloc < res_size)
+	_mpz_realloc (res, res_size);
+
+      limb_cnt = res_size;
+    }
+
+  if (res != in)
+    MPN_COPY (res->d, in->d, limb_cnt);
+  res->size = (in->size >= 0) ? res_size : -res_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_mod_ui.c b/Mp/gmp-1.3.2/mpz_mod_ui.c
new file mode 100644
index 0000000..35a4d7d
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mod_ui.c
@@ -0,0 +1,65 @@
+/* mpz_mod_ui(rem, dividend, divisor_limb)
+   -- Set REM to DIVDEND mod DIVISOR_LIMB.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_mod_ui (MP_INT *rem, const MP_INT *dividend,
+	    unsigned long int divisor_limb)
+#else
+mpz_mod_ui (rem, dividend, divisor_limb)
+     MP_INT *rem;
+     const MP_INT *dividend;
+     unsigned long int divisor_limb;
+#endif
+{
+  mp_size sign_dividend;
+  mp_size dividend_size;
+  mp_limb remainder_limb;
+
+  sign_dividend = dividend->size;
+  dividend_size = ABS (dividend->size);
+
+  if (dividend_size == 0)
+    {
+      rem->size = 0;
+      return;
+    }
+
+  /* No need for temporary allocation and copying if QUOT == DIVIDEND as
+     the divisor is just one limb, and thus no intermediate remainders
+     need to be stored.  */
+
+  remainder_limb = mpn_mod_1 (dividend->d, dividend_size, divisor_limb);
+
+  if (remainder_limb == 0)
+    rem->size = 0;
+  else
+    {
+      /* Store the single-limb remainder.  We don't check if there's space
+	 for just one limb, since no function ever makes zero space.  */
+      rem->size = sign_dividend >= 0 ? 1 : -1;
+      rem->d[0] = remainder_limb;
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_mul.c b/Mp/gmp-1.3.2/mpz_mul.c
new file mode 100644
index 0000000..7bb2b90
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mul.c
@@ -0,0 +1,114 @@
+/* mpz_mul -- Multiply two integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_mul (MP_INT *w, const MP_INT *u, const MP_INT *v)
+#else
+mpz_mul (w, u, v)
+     MP_INT *w;
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+mult (const MP_INT *u, const MP_INT *v, MP_INT *w)
+#else
+mult (u, v, w)
+     const MP_INT *u;
+     const MP_INT *v;
+     MP_INT *w;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_size usize = u->size;
+  mp_size vsize = v->size;
+  mp_size wsize;
+  mp_size sign_product;
+  mp_ptr up, vp;
+  mp_ptr wp;
+  mp_ptr free_me = NULL;
+  size_t free_me_size;
+
+  sign_product = usize ^ vsize;
+  usize = ABS (usize);
+  vsize = ABS (vsize);
+
+  if (usize < vsize)
+    {
+      /* Swap U and V.  */
+      {const MP_INT *t = u; u = v; v = t;}
+      {mp_size t = usize; usize = vsize; vsize = t;}
+    }
+
+  up = u->d;
+  vp = v->d;
+  wp = w->d;
+
+  /* Ensure W has space enough to store the result.  */
+  wsize = usize + vsize;
+  if (w->alloc < wsize)
+    {
+      if (wp == up || wp == vp)
+	{
+	  free_me = wp;
+	  free_me_size = w->alloc;
+	}
+      else
+	(*_mp_free_func) (wp, w->alloc * BYTES_PER_MP_LIMB);
+
+      w->alloc = wsize;
+      wp = (mp_ptr) (*_mp_allocate_func) (wsize * BYTES_PER_MP_LIMB);
+      w->d = wp;
+    }
+  else
+    {
+      /* Make U and V not overlap with W.  */
+      if (wp == up)
+	{
+	  /* W and U are identical.  Allocate temporary space for U.  */
+	  up = (mp_ptr) alloca (usize * BYTES_PER_MP_LIMB);
+	  /* Is V identical too?  Keep it identical with U.  */
+	  if (wp == vp)
+	    vp = up;
+	  /* Copy to the temporary space.  */
+	  MPN_COPY (up, wp, usize);
+	}
+      else if (wp == vp)
+	{
+	  /* W and V are identical.  Allocate temporary space for V.  */
+	  vp = (mp_ptr) alloca (vsize * BYTES_PER_MP_LIMB);
+	  /* Copy to the temporary space.  */
+	  MPN_COPY (vp, wp, vsize);
+	}
+    }
+
+  wsize = mpn_mul (wp, up, usize, vp, vsize);
+  w->size = sign_product < 0 ? -wsize : wsize;
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_mul_2exp.c b/Mp/gmp-1.3.2/mpz_mul_2exp.c
new file mode 100644
index 0000000..1a9767a
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mul_2exp.c
@@ -0,0 +1,68 @@
+/* mpz_mul_2exp -- Multiply a bignum by 2**CNT
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_mul_2exp (MP_INT *w, const MP_INT *u, unsigned long int cnt)
+#else
+mpz_mul_2exp (w, u, cnt)
+     MP_INT *w;
+     const MP_INT *u;
+     unsigned long int cnt;
+#endif
+{
+  mp_size usize = u->size;
+  mp_size abs_usize = ABS (usize);
+  mp_size wsize;
+  mp_size limb_cnt;
+  mp_ptr wp;
+  mp_limb wdigit;
+
+  if (usize == 0)
+    {
+      w->size = 0;
+      return;
+    }
+
+  limb_cnt = cnt / BITS_PER_MP_LIMB;
+  wsize = abs_usize + limb_cnt + 1;
+  if (w->alloc < wsize)
+    _mpz_realloc (w, wsize);
+  wp = w->d;
+
+  wdigit = mpn_lshift (wp + limb_cnt, u->d, abs_usize,
+			cnt % BITS_PER_MP_LIMB);
+  wsize = abs_usize + limb_cnt;
+
+  if (wdigit != 0)
+    {
+      wp[wsize] = wdigit;
+      wsize++;
+    }
+
+  /* Zero all whole digits at low end.  Do it here and not before calling
+     mpn_lshift, not to loose for U == W.  */
+  MPN_ZERO (wp, limb_cnt);
+
+  w->size = (usize >= 0) ? wsize : -wsize;
+}
diff --git a/Mp/gmp-1.3.2/mpz_mul_ui.c b/Mp/gmp-1.3.2/mpz_mul_ui.c
new file mode 100644
index 0000000..f35eb4b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_mul_ui.c
@@ -0,0 +1,78 @@
+/* mpz_mul_ui(product, multiplier, small_multiplicand) -- Set
+   PRODUCT to MULTIPLICATOR times SMALL_MULTIPLICAND.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_mul_ui (MP_INT *prod, const MP_INT *mult,
+	    unsigned long int small_mult)
+#else
+mpz_mul_ui (prod, mult, small_mult)
+     MP_INT *prod;
+     const MP_INT *mult;
+     unsigned long int small_mult;
+#endif
+{
+  mp_size mult_size = mult->size;
+  mp_size sign_product = mult_size;
+  mp_size i;
+  mp_limb cy;
+  mp_size prod_size;
+  mp_srcptr mult_ptr;
+  mp_ptr prod_ptr;
+
+  mult_size = ABS (mult_size);
+
+  if (mult_size == 0 || small_mult == 0)
+    {
+      prod->size = 0;
+      return;
+    }
+
+  prod_size = mult_size + 1;
+  if (prod->alloc < prod_size)
+    _mpz_realloc (prod, prod_size);
+
+  mult_ptr = mult->d;
+  prod_ptr = prod->d;
+
+  cy = 0;
+  for (i = 0; i < mult_size; i++)
+    {
+      mp_limb p1, p0;
+      umul_ppmm (p1, p0, small_mult, mult_ptr[i]);
+      p0 += cy;
+      cy = p1 + (p0 < cy);
+      prod_ptr[i] = p0;
+    }
+
+  prod_size = mult_size;
+  if (cy != 0)
+    {
+      prod_ptr[mult_size] = cy;
+      prod_size++;
+    }
+
+  prod->size = sign_product > 0 ? prod_size : -prod_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_neg.c b/Mp/gmp-1.3.2/mpz_neg.c
new file mode 100644
index 0000000..560077f
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_neg.c
@@ -0,0 +1,46 @@
+/* mpz_neg(MP_INT *dst, MP_INT *src) -- Assign the negated value of SRC to DST.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_neg (MP_INT *dst, const MP_INT *src)
+#else
+mpz_neg (dst, src)
+     MP_INT *dst;
+     const MP_INT *src;
+#endif
+{
+  mp_size src_size = src->size;
+
+  if (src != dst)
+    {
+      mp_size abs_src_size = ABS (src_size);
+
+      if (dst->alloc < abs_src_size)
+	_mpz_realloc (dst, abs_src_size);
+
+      MPN_COPY (dst->d, src->d, abs_src_size);
+    }
+
+  dst->size = -src_size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_out_raw.c b/Mp/gmp-1.3.2/mpz_out_raw.c
new file mode 100644
index 0000000..27d425c
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_out_raw.c
@@ -0,0 +1,55 @@
+/* mpz_out_raw -- Output a MP_INT in raw, but endianess-independent format.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_out_raw (FILE *file, const MP_INT *x)
+#else
+mpz_out_raw (file, x)
+     FILE *file;
+     const MP_INT *x;
+#endif
+{
+  int i;
+  mp_size s;
+  mp_size xsize = x->size;
+  mp_srcptr xp = x->d;
+  mp_size out_size = xsize * BYTES_PER_MP_LIMB;
+
+  /* Make the size 4 bytes on all machines, to make the format portable.  */
+  for (i = 4 - 1; i >= 0; i--)
+    fputc ((out_size >> (i * BITS_PER_CHAR)) % (1 << BITS_PER_CHAR), file);
+
+  /* Output from the most significant digit to the least significant digit,
+     with each digit also output in decreasing significance order.  */
+  for (s = ABS (xsize) - 1; s >= 0; s--)
+    {
+      mp_limb x_digit;
+
+      x_digit = xp[s];
+      for (i = BYTES_PER_MP_LIMB - 1; i >= 0; i--)
+	fputc ((x_digit >> (i * BITS_PER_CHAR)) % (1 << BITS_PER_CHAR), file);
+    }
+}
diff --git a/Mp/gmp-1.3.2/mpz_out_str.c b/Mp/gmp-1.3.2/mpz_out_str.c
new file mode 100644
index 0000000..8e4d08e
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_out_str.c
@@ -0,0 +1,45 @@
+/* mpz_out_str(stream, base, integer) -- Output to STREAM the multi prec.
+   integer INTEGER in base BASE.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_out_str (FILE *stream, int base, const MP_INT *x)
+#else
+mpz_out_str (stream, base, x)
+     FILE *stream;
+     int base;
+     const MP_INT *x;
+#endif
+{
+  char *str;
+  size_t str_size;
+
+  str_size = ((size_t) (ABS (x->size) * BITS_PER_MP_LIMB
+			* __mp_bases[ABS (base)].chars_per_bit_exactly)) + 3;
+  str = (char *) alloca (str_size);
+  _mpz_get_str (str, base, x);
+  fputs (str, stream);
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_perfsqr.c b/Mp/gmp-1.3.2/mpz_perfsqr.c
new file mode 100644
index 0000000..4f14c06
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_perfsqr.c
@@ -0,0 +1,118 @@
+/* mpz_perfect_square_p(arg) -- Return non-zero if ARG is a pefect square,
+   zero otherwise.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#if BITS_PER_MP_LIMB == 32
+static unsigned int primes[] = {3, 5, 7, 11, 13, 17, 19, 23, 29};
+static unsigned long int residue_map[] =
+{0x3, 0x13, 0x17, 0x23b, 0x161b, 0x1a317, 0x30af3, 0x5335f, 0x13d122f3};
+
+#define PP 0xC0CFD797L		/* 3 x 5 x 7 x 11 x 13 x ... x 29 */
+#endif
+
+/* sq_res_0x100[x mod 0x100] == 1 iff x mod 0x100 is a quadratic residue
+   modulo 0x100.  */
+static char sq_res_0x100[0x100] =
+{
+  1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+  0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
+};
+
+int
+#ifdef __STDC__
+mpz_perfect_square_p (const MP_INT *a)
+#else
+mpz_perfect_square_p (a)
+     const MP_INT *a;
+#endif
+{
+  mp_limb n1, n0;
+  mp_size i;
+  mp_size asize = a->size;
+  mp_srcptr aptr = a->d;
+  mp_limb rem;
+  mp_ptr root_ptr;
+
+  /* No negative numbers are perfect squares.  */
+  if (asize < 0)
+    return 0;
+
+  /* The first test excludes 55/64 (85.9%) of the perfect square candidates
+     in O(1) time.  */
+  if (sq_res_0x100[aptr[0] % 0x100] == 0)
+    return 0;
+
+#if BITS_PER_MP_LIMB == 32
+  /* The second test excludes 30652543/30808063 (99.5%) of the remaining
+     perfect square candidates in O(n) time.  */
+
+  /* Firstly, compute REM = A mod PP.  */
+  n1 = aptr[asize - 1];
+  if (n1 >= PP)
+    {
+      n1 = 0;
+      i = asize - 1;
+    }
+  else
+    i = asize - 2;
+
+  for (; i >= 0; i--)
+    {
+      mp_limb dummy;
+
+      n0 = aptr[i];
+      udiv_qrnnd (dummy, n1, n1, n0, PP);
+    }
+  rem = n1;
+
+  /* We have A mod PP in REM.  Now decide if REM is a quadratic residue
+     modulo the factors in PP.  */
+  for (i = 0; i < (sizeof primes) / sizeof (int); i++)
+    {
+      unsigned int p;
+
+      p = primes[i];
+      rem %= p;
+      if ((residue_map[i] & (1L << rem)) == 0)
+	return 0;
+    }
+#endif
+
+  /* For the third and last test, we finally compute the square root,
+     to make sure we've really got a perfect square.  */
+  root_ptr = (mp_ptr) alloca ((asize + 1) / 2 * BYTES_PER_MP_LIMB);
+
+  /* Iff mpn_sqrt returns zero, the square is perfect.  */
+  {
+    int retval = !mpn_sqrt (root_ptr, NULL, aptr, asize);
+    alloca (0);
+    return retval;
+  }
+}
diff --git a/Mp/gmp-1.3.2/mpz_pow_ui.c b/Mp/gmp-1.3.2/mpz_pow_ui.c
new file mode 100644
index 0000000..85ba720
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_pow_ui.c
@@ -0,0 +1,110 @@
+/* mpz_pow_ui(res, base, exp) -- Set RES to BASE**EXP.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_pow_ui (MP_INT *r, const MP_INT *b, unsigned long int e)
+#else
+mpz_pow_ui (r, b, e)
+     MP_INT *r;
+     const MP_INT *b;
+     unsigned long int e;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+rpow (const MP_INT *b, signed short int e, MP_INT *r)
+#else
+rpow (b, e, r)
+     const MP_INT *b;
+     signed short int e;
+     MP_INT *r;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_ptr rp, bp, tp, xp;
+  mp_size rsize, bsize;
+  int cnt, i;
+
+  bsize = ABS (b->size);
+
+  /* Single out cases that give result == 0 or 1.  These tests are here
+     to simplify the general code below, not to optimize.  */
+  if (bsize == 0
+#ifdef BERKELEY_MP
+      || e < 0
+#endif
+      )
+    {
+      r->size = 0;
+      return;
+    }
+  if (e == 0)
+    {
+      r->d[0] = 1;
+      r->size = 1;
+      return;
+    }
+
+  /* Count the number of leading zero bits of the base's most
+     significant limb.  */
+  count_leading_zeros (cnt, b->d[bsize - 1]);
+
+  /* Over-estimate space requirements and allocate enough space for the
+     final result in two temporary areas.  The two areas are used to
+     alternately hold the input and recieve the product for mpn_mul.
+     (This scheme is used to fulfill the requirements of mpn_mul; that
+     the product space may not be the same as any of the input operands.)  */
+  rsize = bsize * e - cnt * e / BITS_PER_MP_LIMB;
+
+  rp = (mp_ptr) alloca (rsize * BYTES_PER_MP_LIMB);
+  tp = (mp_ptr) alloca (rsize * BYTES_PER_MP_LIMB);
+  bp = b->d;
+
+  MPN_COPY (rp, bp, bsize);
+  rsize = bsize;
+  count_leading_zeros (cnt, e);
+
+  for (i = BITS_PER_MP_LIMB - cnt - 2; i >= 0; i--)
+    {
+      rsize = mpn_mul (tp, rp, rsize, rp, rsize);
+      xp = tp; tp = rp; rp = xp;
+
+      if ((e & ((mp_limb) 1 << i)) != 0)
+	{
+	  rsize = mpn_mul (tp, rp, rsize, bp, bsize);
+	  xp = tp; tp = rp; rp = xp;
+	}
+    }
+
+  /* Now then we know the exact space requirements, reallocate if
+     necessary.  */
+  if (r->alloc < rsize)
+    _mpz_realloc (r, rsize);
+
+  MPN_COPY (r->d, rp, rsize);
+  r->size = (e & 1) == 0 || b->size >= 0 ? rsize : -rsize;
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_powm.c b/Mp/gmp-1.3.2/mpz_powm.c
new file mode 100644
index 0000000..75949ec
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_powm.c
@@ -0,0 +1,251 @@
+/* mpz_powm(res,base,exp,mod) -- Set RES to (base**exp) mod MOD.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_powm (MP_INT *res, const MP_INT *base, const MP_INT *exp,
+	  const MP_INT *mod)
+#else
+mpz_powm (res, base, exp, mod)
+     MP_INT *res;
+     const MP_INT *base;
+     const MP_INT *exp;
+     const MP_INT *mod;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+pow (const MP_INT *base, const MP_INT *exp, const MP_INT *mod, MP_INT *res)
+#else
+pow (base, exp, mod, res)
+     const MP_INT *base;
+     const MP_INT *exp;
+     const MP_INT *mod;
+     MP_INT *res;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_ptr rp, ep, mp, bp;
+  mp_size esize, msize, bsize, rsize;
+  mp_size size;
+  int mod_shift_cnt;
+  int negative_result;
+  mp_limb *free_me = NULL;
+  size_t free_me_size;
+
+  esize = ABS (exp->size);
+  msize = ABS (mod->size);
+  size = 2 * msize;
+
+  rp = res->d;
+  ep = exp->d;
+
+  /* Normalize MOD (i.e. make its most significant bit set) as required by
+     mpn_div.  This will make the intermediate values in the calculation
+     slightly larger, but the correct result is obtained after a final
+     reduction using the original MOD value.  */
+
+  mp = (mp_ptr) alloca (msize * BYTES_PER_MP_LIMB);
+  count_leading_zeros (mod_shift_cnt, mod->d[msize - 1]);
+  if (mod_shift_cnt != 0)
+    (void) mpn_lshift (mp, mod->d, msize, mod_shift_cnt);
+  else
+    MPN_COPY (mp, mod->d, msize);
+
+  bsize = ABS (base->size);
+  if (bsize > msize)
+    {
+      /* The base is larger than the module.  Reduce it.  */
+
+      /* Allocate (BSIZE + 1) with space for remainder and quotient.
+	 (The quotient is (bsize - msize + 1) limbs.)  */
+      bp = (mp_ptr) alloca ((bsize + 1) * BYTES_PER_MP_LIMB);
+      MPN_COPY (bp, base->d, bsize);
+      /* We don't care about the quotient, store it above the remainder,
+	 at BP + MSIZE.  */
+      mpn_div (bp + msize, bp, bsize, mp, msize);
+      bsize = msize;
+      while (bsize > 0 && bp[bsize - 1] == 0)
+	bsize--;
+    }
+  else
+    {
+      bp = base->d;
+      bsize = ABS (base->size);
+    }
+
+  if (res->alloc < size)
+    {
+      /* We have to allocate more space for RES.  If any of the input
+	 parameters are identical to RES, defer deallocation of the old
+	 space.  */
+
+      if (rp == ep || rp == mp || rp == bp)
+	{
+	  free_me = rp;
+	  free_me_size = res->alloc;
+	}
+      else
+	(*_mp_free_func) (rp, res->alloc * BYTES_PER_MP_LIMB);
+
+      rp = (mp_ptr) (*_mp_allocate_func) (size * BYTES_PER_MP_LIMB);
+      res->alloc = size;
+      res->d = rp;
+    }
+  else
+    {
+      /* Make BASE, EXP and MOD not overlap with RES.  */
+      if (rp == bp)
+	{
+	  /* RES and BASE are identical.  Allocate temp. space for BASE.  */
+	  bp = (mp_ptr) alloca (bsize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (bp, rp, bsize);
+	}
+      if (rp == ep)
+	{
+	  /* RES and EXP are identical.  Allocate temp. space for EXP.  */
+	  ep = (mp_ptr) alloca (esize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (ep, rp, esize);
+	}
+      if (rp == mp)
+	{
+	  /* RES and MOD are identical.  Allocate temporary space for MOD.  */
+	  mp = (mp_ptr) alloca (msize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (mp, rp, msize);
+	}
+    }
+
+  if (esize == 0)
+    {
+      rp[0] = 1;
+      res->size = 1;
+      return;
+    }
+
+  MPN_COPY (rp, bp, bsize);
+  rsize = bsize;
+
+  {
+    mp_size i;
+    mp_size xsize;
+    mp_ptr dummyp = (mp_ptr) alloca ((msize + 1) * BYTES_PER_MP_LIMB);
+    mp_ptr xp = (mp_ptr) alloca (2 * (msize + 1) * BYTES_PER_MP_LIMB);
+    int c;
+    mp_limb e;
+    mp_limb carry_limb;
+
+    negative_result = (ep[0] & 1) && base->size < 0;
+
+    i = esize - 1;
+    e = ep[i];
+    count_leading_zeros (c, e);
+    e <<= (c + 1);		/* shift the exp bits to the left, loose msb */
+    c = BITS_PER_MP_LIMB - 1 - c;
+
+    /* Main loop.
+
+       Make the result be pointed to alternatingly by XP and RP.  This
+       helps us avoid block copying, which would otherwise be necessary
+       with the overlap restrictions of mpn_div.  With 50% probability
+       the result after this loop will be in the area originally pointed
+       by RP (==RES->D), and with 50% probability in the area originally
+       pointed to by XP.  */
+
+    for (;;)
+      {
+	while (c != 0)
+	  {
+	    mp_ptr tp;
+	    mp_size tsize;
+
+	    xsize = mpn_mul (xp, rp, rsize, rp, rsize);
+	    mpn_div (dummyp, xp, xsize, mp, msize);
+
+	    /* Remove any leading zero words from the result.  */
+	    if (xsize > msize)
+	      xsize = msize;
+	    while (xsize > 0 && xp[xsize - 1] == 0)
+	      xsize--;
+
+	    tp = rp; rp = xp; xp = tp;
+	    tsize = rsize; rsize = xsize; xsize = tsize;
+
+	    if ((mp_limb_signed) e < 0)
+	      {
+		if (rsize > bsize)
+		  xsize = mpn_mul (xp, rp, rsize, bp, bsize);
+		else
+		  xsize = mpn_mul (xp, bp, bsize, rp, rsize);
+		mpn_div (dummyp, xp, xsize, mp, msize);
+
+		/* Remove any leading zero words from the result.  */
+		if (xsize > msize)
+		  xsize = msize;
+		while (xsize > 0 && xp[xsize - 1] == 0)
+		  xsize--;
+
+		tp = rp; rp = xp; xp = tp;
+		tsize = rsize; rsize = xsize; xsize = tsize;
+	      }
+	    e <<= 1;
+	    c--;
+	  }
+
+	i--;
+	if (i < 0)
+	  break;
+	e = ep[i];
+	c = BITS_PER_MP_LIMB;
+      }
+
+    /* We shifted MOD, the modulo reduction argument, left MOD_SHIFT_CNT
+       steps.  Adjust the result by reducing it with the original MOD.
+
+       Also make sure the result is put in RES->D (where it already
+       might be, see above).  */
+
+    carry_limb = mpn_lshift (res->d, rp, rsize, mod_shift_cnt);
+    rp = res->d;
+    if (carry_limb != 0)
+      {
+	rp[rsize] = carry_limb;
+	rsize++;
+      }
+    mpn_div (dummyp, rp, rsize, mp, msize);
+    /* Remove any leading zero words from the result.  */
+    if (rsize > msize)
+      rsize = msize;
+    while (rsize > 0 && rp[rsize - 1] == 0)
+      rsize--;
+    rsize = mpn_rshift (rp, rp, rsize, mod_shift_cnt);
+  }
+
+  res->size = negative_result >= 0 ?  rsize : -rsize;
+
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_powm_ui.c b/Mp/gmp-1.3.2/mpz_powm_ui.c
new file mode 100644
index 0000000..3aa9b03
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_powm_ui.c
@@ -0,0 +1,219 @@
+/* mpz_powm_ui(res,base,exp,mod) -- Set RES to (base**exp) mod MOD.
+
+Copyright (C) 1991, 1992 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+mpz_powm_ui (MP_INT *res, const MP_INT *base, unsigned long int exp,
+	     const MP_INT *mod)
+#else
+mpz_powm_ui (res, base, exp, mod)
+     MP_INT *res;
+     const MP_INT *base;
+     unsigned long int exp;
+     const MP_INT *mod;
+#endif
+{
+  mp_ptr rp, mp, bp;
+  mp_size msize, bsize, rsize;
+  mp_size size;
+  int mod_shift_cnt;
+  int negative_result;
+  mp_limb *free_me = NULL;
+  size_t free_me_size;
+
+  msize = ABS (mod->size);
+  size = 2 * msize;
+
+  rp = res->d;
+
+  /* Normalize MOD (i.e. make its most significant bit set) as required by
+     mpn_div.  This will make the intermediate values in the calculation
+     slightly larger, but the correct result is obtained after a final
+     reduction using the original MOD value.  */
+
+  mp = (mp_ptr) alloca (msize * BYTES_PER_MP_LIMB);
+  count_leading_zeros (mod_shift_cnt, mod->d[msize - 1]);
+  if (mod_shift_cnt != 0)
+    (void) mpn_lshift (mp, mod->d, msize, mod_shift_cnt);
+  else
+    MPN_COPY (mp, mod->d, msize);
+
+  bsize = ABS (base->size);
+  if (bsize > msize)
+    {
+      /* The base is larger than the module.  Reduce it.  */
+
+      /* Allocate (BSIZE + 1) with space for remainder and quotient.
+	 (The quotient is (bsize - msize + 1) limbs.)  */
+      bp = (mp_ptr) alloca ((bsize + 1) * BYTES_PER_MP_LIMB);
+      MPN_COPY (bp, base->d, bsize);
+      /* We don't care about the quotient, store it above the remainder,
+	 at BP + MSIZE.  */
+      mpn_div (bp + msize, bp, bsize, mp, msize);
+      bsize = msize;
+      while (bsize > 0 && bp[bsize - 1] == 0)
+	bsize--;
+    }
+  else
+    {
+      bp = base->d;
+      bsize = ABS (base->size);
+    }
+
+  if (res->alloc < size)
+    {
+      /* We have to allocate more space for RES.  If any of the input
+	 parameters are identical to RES, defer deallocation of the old
+	 space.  */
+
+      if (rp == mp || rp == bp)
+	{
+	  free_me = rp;
+	  free_me_size = res->alloc;
+	}
+      else
+	(*_mp_free_func) (rp, res->alloc * BYTES_PER_MP_LIMB);
+
+      rp = (mp_ptr) (*_mp_allocate_func) (size * BYTES_PER_MP_LIMB);
+      res->alloc = size;
+      res->d = rp;
+    }
+  else
+    {
+      /* Make BASE, EXP and MOD not overlap with RES.  */
+      if (rp == bp)
+	{
+	  /* RES and BASE are identical.  Allocate temp. space for BASE.  */
+	  bp = (mp_ptr) alloca (bsize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (bp, rp, bsize);
+	}
+      if (rp == mp)
+	{
+	  /* RES and MOD are identical.  Allocate temporary space for MOD.  */
+	  mp = (mp_ptr) alloca (msize * BYTES_PER_MP_LIMB);
+	  MPN_COPY (mp, rp, msize);
+	}
+    }
+
+  if (exp == 0)
+    {
+      rp[0] = 1;
+      res->size = 1;
+      return;
+    }
+
+  MPN_COPY (rp, bp, bsize);
+  rsize = bsize;
+
+  {
+    mp_size xsize;
+    mp_ptr dummyp = (mp_ptr) alloca ((msize + 1) * BYTES_PER_MP_LIMB);
+    mp_ptr xp = (mp_ptr) alloca (2 * (msize + 1) * BYTES_PER_MP_LIMB);
+    int c;
+    mp_limb e;
+    mp_limb carry_limb;
+
+    negative_result = (exp & 1) && base->size < 0;
+
+    e = exp;
+    count_leading_zeros (c, e);
+    e <<= (c + 1);		/* shift the exp bits to the left, loose msb */
+    c = BITS_PER_MP_LIMB - 1 - c;
+
+    /* Main loop.
+
+       Make the result be pointed to alternately by XP and RP.  This
+       helps us avoid block copying, which would otherwise be necessary
+       with the overlap restrictions of mpn_div.  With 50% probability
+       the result after this loop will be in the area originally pointed
+       by RP (==RES->D), and with 50% probability in the area originally
+       pointed to by XP.  */
+
+    while (c != 0)
+      {
+	mp_ptr tp;
+	mp_size tsize;
+
+	xsize = mpn_mul (xp, rp, rsize, rp, rsize);
+	mpn_div (dummyp, xp, xsize, mp, msize);
+
+	/* Remove any leading zero words from the result.  */
+	if (xsize > msize)
+	  xsize = msize;
+	while (xsize > 0 && xp[xsize - 1] == 0)
+	  xsize--;
+
+	tp = rp; rp = xp; xp = tp;
+	tsize = rsize; rsize = xsize; xsize = tsize;
+
+	if ((mp_limb_signed) e < 0)
+	  {
+	    if (rsize > bsize)
+	      xsize = mpn_mul (xp, rp, rsize, bp, bsize);
+	    else
+	      xsize = mpn_mul (xp, bp, bsize, rp, rsize);
+	    mpn_div (dummyp, xp, xsize, mp, msize);
+
+	    /* Remove any leading zero words from the result.  */
+	    if (xsize > msize)
+	      xsize = msize;
+	    while (xsize > 0 && xp[xsize - 1] == 0)
+	      xsize--;
+
+	    tp = rp; rp = xp; xp = tp;
+	    tsize = rsize; rsize = xsize; xsize = tsize;
+	  }
+	e <<= 1;
+	c--;
+      }
+
+    /* We shifted MOD, the modulo reduction argument, left MOD_SHIFT_CNT
+       steps.  Adjust the result by reducing it with the original MOD.
+
+       Also make sure the result is put in RES->D (where it already
+       might be, see above).  */
+
+    carry_limb = mpn_lshift (res->d, rp, rsize, mod_shift_cnt);
+    rp = res->d;
+    if (carry_limb != 0)
+      {
+	rp[rsize] = carry_limb;
+	rsize++;
+      }
+    mpn_div (dummyp, rp, rsize, mp, msize);
+    /* Remove any leading zero words from the result.  */
+    if (rsize > msize)
+      rsize = msize;
+    while (rsize > 0 && rp[rsize - 1] == 0)
+      rsize--;
+    rsize = mpn_rshift (rp, rp, rsize, mod_shift_cnt);
+  }
+
+  res->size = negative_result >= 0 ?  rsize : -rsize;
+
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_pprime_p.c b/Mp/gmp-1.3.2/mpz_pprime_p.c
new file mode 100644
index 0000000..9d08803
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_pprime_p.c
@@ -0,0 +1,108 @@
+/* mpz_probab_prime_p --
+   An implementation of the probabilistic primality test found in Knuth's
+   Seminumerical Algorithms book.  If the function mpz_probab_prime_p()
+   returns 0 then n is not prime.  If it returns 1, then n is 'probably'
+   prime.  The probability of a false positive is (1/4)**reps, where
+   reps is the number of internal passes of the probabilistic algorithm.
+   Knuth indicates that 25 passes are reasonable.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+Contributed by John Amanatides.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+static int
+possibly_prime (n, n_minus_1, x, y, q, k)
+     MP_INT *n, *n_minus_1, *x, *y, *q;
+     int k;
+{
+  int i;
+
+  /* find random x s.t. 1 < x < n */
+  do
+    {
+      mpz_random (x, mpz_size (n));
+      mpz_mmod (x, x, n);
+    }
+  while (mpz_cmp_ui (x, 1) <= 0);
+
+  mpz_powm (y, x, q, n);
+
+  if (mpz_cmp_ui (y, 1) == 0 || mpz_cmp (y, n_minus_1) == 0)
+    return 1;
+
+  for (i = 1; i < k; i++)
+    {
+      mpz_powm_ui (y, y, 2, n);
+      if (mpz_cmp (y, n_minus_1) == 0)
+	return 1;
+      if (mpz_cmp_ui (y, 1) == 0)
+	return 0;
+    }
+  return 0;
+}
+
+int
+mpz_probab_prime_p (m, reps)
+     const MP_INT *m;
+     int reps;
+{
+  MP_INT n, n_minus_1, x, y, q;
+  int i, k, is_prime;
+
+  mpz_init (&n);
+  /* Take the absolute value of M, to handle positive and negative primes.  */
+  mpz_abs (&n, m);
+
+  if (mpz_cmp_ui (&n, 3) <= 0)
+    {
+      if (mpz_cmp_ui (&n, 1) <= 0)
+	return 0;		/* smallest prime is 2 */
+      else
+	return 1;
+    }
+  if ((mpz_get_ui (&n) & 1) == 0)
+    return 0;			/* even */
+
+  mpz_init (&n_minus_1);
+  mpz_sub_ui (&n_minus_1, &n, 1);
+  mpz_init (&x);
+  mpz_init (&y);
+
+  /* find q and k, s.t.  n = 1 + 2**k * q */
+  mpz_init_set (&q, &n_minus_1);
+  k = 0;
+  while ((mpz_get_ui (&q) & 1) == 0)
+    {
+      k++;
+      mpz_div_2exp (&q, &q, 1);
+    }
+
+  is_prime = 1;
+  for (i = 0; i < reps && is_prime; i++)
+    is_prime &= possibly_prime (&n, &n_minus_1, &x, &y, &q, k);
+
+  mpz_clear (&n_minus_1);
+  mpz_clear (&n);
+  mpz_clear (&x);
+  mpz_clear (&y);
+  mpz_clear (&q);
+  return is_prime;
+}
diff --git a/Mp/gmp-1.3.2/mpz_random.c b/Mp/gmp-1.3.2/mpz_random.c
new file mode 100644
index 0000000..c97bbff
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_random.c
@@ -0,0 +1,68 @@
+/* mpz_random -- Generate a random MP_INT of specified size.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#if defined (hpux) || defined (__alpha__)
+/* HPUX lacks random().  DEC Alpha's random() returns a double.  */
+static inline long
+urandom ()
+{
+  return mrand48 ();
+}
+#else
+long random ();
+
+static inline long
+urandom ()
+{
+  /* random() returns 31 bits, we want 32.  */
+  return random() ^ (random() << 1);
+}
+#endif
+
+void
+#ifdef __STDC__
+mpz_random (MP_INT *x, mp_size size)
+#else
+mpz_random (x, size)
+     MP_INT *x;
+     mp_size size;
+#endif
+{
+  mp_size i;
+  mp_limb ran;
+
+  if (x->alloc < size)
+    _mpz_realloc (x, size);
+
+  for (i = 0; i < size; i++)
+    {
+      ran = urandom ();
+      x->d[i] = ran;
+    }
+
+  for (i = size - 1; i >= 0; i--)
+    if (x->d[i] != 0)
+      break;
+
+  x->size = i + 1;
+}
diff --git a/Mp/gmp-1.3.2/mpz_random2.c b/Mp/gmp-1.3.2/mpz_random2.c
new file mode 100644
index 0000000..6011528
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_random2.c
@@ -0,0 +1,88 @@
+/* mpz_random2 -- Generate a positive random MP_INT of specified size, with
+   long runs of consecutive ones and zeros in the binary representation.
+   Meant for testing of other MP routines.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#if defined (hpux) || defined (__alpha__)
+/* HPUX lacks random().  DEC Alpha's random() returns a double.  */
+static inline long
+random ()
+{
+  return mrand48 ();
+}
+#else
+long random ();
+#endif
+
+void
+#ifdef __STDC__
+mpz_random2 (MP_INT *x, mp_size size)
+#else
+mpz_random2 (x, size)
+     MP_INT *x;
+     mp_size size;
+#endif
+{
+  mp_limb ran, cy_limb;
+  mp_ptr xp;
+  mp_size xsize, abs_size;
+  int n_bits;
+
+  abs_size = ABS (size);
+
+  if (abs_size != 0)
+    {
+      if (x->alloc < abs_size)
+	_mpz_realloc (x, abs_size);
+      xp = x->d;
+
+      xp[0] = 1;
+      for (xsize = 1;; )
+	{
+	  ran = random ();
+	  n_bits = (ran >> 1) % BITS_PER_MP_LIMB;
+
+	  if (n_bits == 0)
+	    {
+	      if (xsize == abs_size)
+		break;
+	    }
+	  else
+	    {
+	      /* Would we get a too large result in mpn_lshift?  */
+	      if (xsize == abs_size
+		  && (xp[xsize - 1] >> (BITS_PER_MP_LIMB - n_bits)) != 0)
+		break;
+
+	      cy_limb = mpn_lshift (xp, xp, xsize, n_bits);
+	      if (cy_limb != 0)
+		xp[xsize++] = cy_limb;
+
+	      if (ran & 1)
+		xp[0] |= ((mp_limb) 1 << n_bits) - 1;
+	    }
+	}
+    }
+
+  x->size = size;
+}
diff --git a/Mp/gmp-1.3.2/mpz_realloc.c b/Mp/gmp-1.3.2/mpz_realloc.c
new file mode 100644
index 0000000..11a4df3
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_realloc.c
@@ -0,0 +1,50 @@
+/* _mpz_realloc -- make the MP_INT have NEW_SIZE digits allocated.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void *
+#ifdef __STDC__
+_mpz_realloc (MP_INT *m, mp_size new_size)
+#else
+_mpz_realloc (m, new_size)
+     MP_INT *m;
+     mp_size new_size;
+#endif
+{
+  /* Never allocate zero space. */
+  if (new_size == 0)
+    new_size = 1;
+
+  m->d = (mp_ptr) (*_mp_reallocate_func) (m->d, m->alloc * BYTES_PER_MP_LIMB,
+					  new_size * BYTES_PER_MP_LIMB);
+  m->alloc = new_size;
+
+#if 0
+  /* This might break some code that reads the size field after
+     reallocation, in the case the reallocated destination and a
+     source argument are identical.  */
+  if (ABS (m->size) > new_size)
+    m->size = 0;
+#endif
+
+  return (void *) m->d;
+}
diff --git a/Mp/gmp-1.3.2/mpz_set.c b/Mp/gmp-1.3.2/mpz_set.c
new file mode 100644
index 0000000..2441e48
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_set.c
@@ -0,0 +1,45 @@
+/* mpz_set (dest_integer, src_integer) -- Assign DEST_INTEGER from SRC_INTEGER.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_set (MP_INT *w, const MP_INT *u)
+#else
+mpz_set (w, u)
+     MP_INT *w;
+     const MP_INT *u;
+#endif
+{
+  mp_size usize;
+  mp_size abs_usize;
+
+  usize = u->size;
+  abs_usize = ABS (usize);
+
+  /* If not space for sum (and possible carry), increase space.  */
+  if (w->alloc < abs_usize)
+    _mpz_realloc (w, abs_usize);
+
+  w->size = usize;
+  MPN_COPY (w->d, u->d, abs_usize);
+}
diff --git a/Mp/gmp-1.3.2/mpz_set_si.c b/Mp/gmp-1.3.2/mpz_set_si.c
new file mode 100644
index 0000000..f6d11e7
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_set_si.c
@@ -0,0 +1,47 @@
+/* mpz_set_si(integer, val) -- Assign INTEGER with a small value VAL.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_set_si (MP_INT *dest, signed long int val)
+#else
+mpz_set_si (dest, val)
+     MP_INT *dest;
+     signed long int val;
+#endif
+{
+  /* We don't check if the allocation is enough, since the rest of the
+     package ensures it's at least 1, which is what we need here.  */
+  if (val > 0)
+    {
+      dest->d[0] = val;
+      dest->size = 1;
+    }
+  else if (val < 0)
+    {
+      dest->d[0] = -val;
+      dest->size = -1;
+    }
+  else
+    dest->size = 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_set_str.c b/Mp/gmp-1.3.2/mpz_set_str.c
new file mode 100644
index 0000000..2596d8b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_set_str.c
@@ -0,0 +1,41 @@
+/* mpz_set_str(mp_dest, string, base) -- Convert the \0-terminated
+   string STRING in base BASE to multiple precision integer in
+   MP_DEST.  Allow white space in the string.  If BASE == 0 determine
+   the base in the C standard way, i.e.  0xhh...h means base 16,
+   0oo...o means base 8, otherwise assume base 10.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+int
+#ifdef __STDC__
+mpz_set_str (MP_INT *x, const char *str, int base)
+#else
+mpz_set_str (x, str, base)
+     MP_INT *x;
+     const char *str;
+     int base;
+#endif
+{
+  /* Go via _mpz_set_str, as that can be used by BSD compatible functions.  */
+  return _mpz_set_str (x, str, base);
+}
diff --git a/Mp/gmp-1.3.2/mpz_set_ui.c b/Mp/gmp-1.3.2/mpz_set_ui.c
new file mode 100644
index 0000000..c2e06c9
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_set_ui.c
@@ -0,0 +1,42 @@
+/* mpz_set_ui(integer, val) -- Assign INTEGER with a small value VAL.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_set_ui (MP_INT *dest, unsigned long int val)
+#else
+mpz_set_ui (dest, val)
+     MP_INT *dest;
+     unsigned long int val;
+#endif
+{
+  /* We don't check if the allocation is enough, since the rest of the
+     package ensures it's at least 1, which is what we need here.  */
+  if (val > 0)
+    {
+      dest->d[0] = val;
+      dest->size = 1;
+    }
+  else
+    dest->size = 0;
+}
diff --git a/Mp/gmp-1.3.2/mpz_size.c b/Mp/gmp-1.3.2/mpz_size.c
new file mode 100644
index 0000000..8b9ff91
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_size.c
@@ -0,0 +1,34 @@
+/* mpz_size(x) -- return the number of lims currently used by the
+   value of integer X.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+size_t
+#ifdef __STDC__
+mpz_size (const MP_INT *x)
+#else
+mpz_size (x)
+     const MP_INT *x;
+#endif
+{
+  return ABS (x->size);
+}
diff --git a/Mp/gmp-1.3.2/mpz_sizeinb.c b/Mp/gmp-1.3.2/mpz_sizeinb.c
new file mode 100644
index 0000000..75a0108
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_sizeinb.c
@@ -0,0 +1,59 @@
+/* mpz_sizeinbase(x, base) -- return an approximation to the number of
+   character the integer X would have printed in base BASE.  The
+   approximation is never too small.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+size_t
+#ifdef __STDC__
+mpz_sizeinbase (const MP_INT *x, int base)
+#else
+mpz_sizeinbase (x, base)
+     const MP_INT *x;
+     int base;
+#endif
+{
+  mp_size size = ABS (x->size);
+  int lb_base, cnt;
+  size_t totbits;
+
+  /* Special case for X == 0.  */
+  if (size == 0)
+    return 1;
+
+  /* Calculate the total number of significant bits of X.  */
+  count_leading_zeros (cnt, x->d[size - 1]);
+  totbits = size * BITS_PER_MP_LIMB - cnt;
+
+  if ((base & (base - 1)) == 0)
+    {
+      /* Special case for powers of 2, giving exact result.  */
+
+      count_leading_zeros (lb_base, base);
+      lb_base = BITS_PER_MP_LIMB - lb_base - 1;
+
+      return (totbits + lb_base - 1) / lb_base;
+    }
+  else
+    return (size_t) (totbits * __mp_bases[base].chars_per_bit_exactly) + 1;
+}
diff --git a/Mp/gmp-1.3.2/mpz_sqrt.c b/Mp/gmp-1.3.2/mpz_sqrt.c
new file mode 100644
index 0000000..38408b8
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_sqrt.c
@@ -0,0 +1,87 @@
+/* mpz_sqrt(root, u) --  Set ROOT to floor(sqrt(U)).
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/* This code is just correct if "unsigned char" has at least 8 bits.  It
+   doesn't help to use CHAR_BIT from limits.h, as the real problem is
+   the static arrays.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_sqrt (MP_INT *root, const MP_INT *op)
+#else
+mpz_sqrt (root, op)
+     MP_INT *root;
+     const MP_INT *op;
+#endif
+{
+  mp_size op_size, root_size;
+  mp_ptr root_ptr, op_ptr;
+  mp_ptr free_me = NULL;
+  mp_size free_me_size;
+
+  op_size = op->size;
+  if (op_size < 0)
+    op_size = 1 / op_size > 0;	/* Divide by zero for negative OP.  */
+
+  /* The size of the root is accurate after this simple calculation.  */
+  root_size = (op_size + 1) / 2;
+
+  root_ptr = root->d;
+  op_ptr = op->d;
+
+  if (root->alloc < root_size)
+    {
+      if (root_ptr == op_ptr)
+	{
+	  free_me = root_ptr;
+	  free_me_size = root->alloc;
+	}
+      else
+	(*_mp_free_func) (root_ptr, root->alloc * BYTES_PER_MP_LIMB);
+
+      root->alloc = root_size;
+      root_ptr = (mp_ptr) (*_mp_allocate_func) (root_size * BYTES_PER_MP_LIMB);
+      root->d = root_ptr;
+    }
+  else
+    {
+      /* Make OP not overlap with ROOT.  */
+      if (root_ptr == op_ptr)
+	{
+	  /* ROOT and OP are identical.  Allocate temporary space for OP.  */
+	  op_ptr = (mp_ptr) alloca (op_size * BYTES_PER_MP_LIMB);
+	  /* Copy to the temporary space.  Hack: Avoid temporary variable
+	   by using ROOT_PTR.  */
+	  MPN_COPY (op_ptr, root_ptr, op_size);
+	}
+    }
+
+  mpn_sqrt (root_ptr, NULL, op_ptr, op_size);
+
+  root->size = root_size;
+
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_sqrtrem.c b/Mp/gmp-1.3.2/mpz_sqrtrem.c
new file mode 100644
index 0000000..c846c95
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_sqrtrem.c
@@ -0,0 +1,105 @@
+/* mpz_sqrtrem(root,rem,x) -- Set ROOT to floor(sqrt(X)) and REM
+   to the remainder, i.e. X - ROOT**2.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_sqrtrem (MP_INT *root, MP_INT *rem, const MP_INT *op)
+#else
+mpz_sqrtrem (root, rem, op)
+     MP_INT *root;
+     MP_INT *rem;
+     const MP_INT *op;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+msqrt (const MP_INT *op, MP_INT *root, MP_INT *rem)
+#else
+msqrt (op, root, rem)
+     const MP_INT *op;
+     MP_INT *root;
+     MP_INT *rem;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_size op_size, root_size, rem_size;
+  mp_ptr root_ptr, op_ptr;
+  mp_ptr free_me = NULL;
+  mp_size free_me_size;
+
+  op_size = op->size;
+  if (op_size < 0)
+    op_size = 1 / (op_size > 0);	/* Divide by zero for negative OP.  */
+
+  if (rem->alloc < op_size)
+    _mpz_realloc (rem, op_size);
+
+  /* The size of the root is accurate after this simple calculation.  */
+  root_size = (op_size + 1) / 2;
+
+  root_ptr = root->d;
+  op_ptr = op->d;
+
+  if (root->alloc < root_size)
+    {
+      if (root_ptr == op_ptr)
+	{
+	  free_me = root_ptr;
+	  free_me_size = root->alloc;
+	}
+      else
+	(*_mp_free_func) (root_ptr, root->alloc * BYTES_PER_MP_LIMB);
+
+      root->alloc = root_size;
+      root_ptr = (mp_ptr) (*_mp_allocate_func) (root_size * BYTES_PER_MP_LIMB);
+      root->d = root_ptr;
+    }
+  else
+    {
+      /* Make OP not overlap with ROOT.  */
+      if (root_ptr == op_ptr)
+	{
+	  /* ROOT and OP are identical.  Allocate temporary space for OP.  */
+	  op_ptr = (mp_ptr) alloca (op_size * BYTES_PER_MP_LIMB);
+	  /* Copy to the temporary space.  Hack: Avoid temporary variable
+	   by using ROOT_PTR.  */
+	  MPN_COPY (op_ptr, root_ptr, op_size);
+	}
+    }
+
+  rem_size = mpn_sqrt (root_ptr, rem->d, op_ptr, op_size);
+
+  root->size = root_size;
+
+  /* Write remainder size last, to enable us to define this function to
+     give only the square root remainder, if the user calles if with
+     ROOT == REM.  */
+  rem->size = rem_size;
+
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
diff --git a/Mp/gmp-1.3.2/mpz_sub.c b/Mp/gmp-1.3.2/mpz_sub.c
new file mode 100644
index 0000000..f75f06c
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_sub.c
@@ -0,0 +1,117 @@
+/* mpz_sub -- Subtract two integers.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+#ifndef BERKELEY_MP
+void
+#ifdef __STDC__
+mpz_sub (MP_INT *w, const MP_INT *u, const MP_INT *v)
+#else
+mpz_sub (w, u, v)
+     MP_INT *w;
+     const MP_INT *u;
+     const MP_INT *v;
+#endif
+#else /* BERKELEY_MP */
+void
+#ifdef __STDC__
+msub (const MP_INT *u, const MP_INT *v, MP_INT *w)
+#else
+msub (u, v, w)
+     const MP_INT *u;
+     const MP_INT *v;
+     MP_INT *w;
+#endif
+#endif /* BERKELEY_MP */
+{
+  mp_srcptr up, vp;
+  mp_ptr wp;
+  mp_size usize, vsize, wsize;
+  mp_size abs_usize;
+  mp_size abs_vsize;
+
+  usize = u->size;
+  vsize = -v->size;		/* The "-" makes the difference from mpz_add */
+  abs_usize = ABS (usize);
+  abs_vsize = ABS (vsize);
+
+  if (abs_usize < abs_vsize)
+    {
+      /* Swap U and V. */
+      {const MP_INT *t = u; u = v; v = t;}
+      {mp_size t = usize; usize = vsize; vsize = t;}
+      {mp_size t = abs_usize; abs_usize = abs_vsize; abs_vsize = t;}
+    }
+
+  /* True: abs(USIZE) >= abs(VSIZE) */
+
+  /* If not space for sum (and possible carry), increase space.  */
+  wsize = abs_usize + 1;
+  if (w->alloc < wsize)
+    _mpz_realloc (w, wsize);
+
+  /* These must be after realloc (u or v may be the same as w).  */
+  up = u->d;
+  vp = v->d;
+  wp = w->d;
+
+  if (usize >= 0)
+    {
+      if (vsize >= 0)
+	{
+	  wsize = mpn_add (wp, up, abs_usize, vp, abs_vsize);
+	  if (wsize != 0)
+	    wp[abs_usize] = 1;
+	  wsize = wsize + abs_usize;
+	}
+      else
+	{
+	  /* The signs are different.  Need exact comparision to determine
+	     which operand to subtract from which.  */
+	  if (abs_usize == abs_vsize && mpn_cmp (up, vp, abs_usize) < 0)
+	    wsize = -(abs_usize + mpn_sub (wp, vp, abs_usize, up, abs_usize));
+	  else
+	    wsize = abs_usize + mpn_sub (wp, up, abs_usize, vp, abs_vsize);
+	}
+    }
+  else
+    {
+      if (vsize >= 0)
+	{
+	  /* The signs are different.  Need exact comparision to determine
+	     which operand to subtract from which.  */
+	  if (abs_usize == abs_vsize && mpn_cmp (up, vp, abs_usize) < 0)
+	    wsize = abs_usize + mpn_sub (wp, vp, abs_usize, up, abs_usize);
+	  else
+	    wsize = -(abs_usize + mpn_sub (wp, up, abs_usize, vp, abs_vsize));
+	}
+      else
+	{
+	  wsize = mpn_add (wp, up, abs_usize, vp, abs_vsize);
+	  if (wsize != 0)
+	    wp[abs_usize] = 1;
+	  wsize = -(wsize + abs_usize);
+	}
+    }
+
+  w->size = wsize;
+}
diff --git a/Mp/gmp-1.3.2/mpz_sub_ui.c b/Mp/gmp-1.3.2/mpz_sub_ui.c
new file mode 100644
index 0000000..cd9a04b
--- /dev/null
+++ b/Mp/gmp-1.3.2/mpz_sub_ui.c
@@ -0,0 +1,84 @@
+/* mpz_sub_ui -- Subtract an unsigned one-word integer from an MP_INT.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "gmp.h"
+#include "gmp-impl.h"
+
+void
+#ifdef __STDC__
+mpz_sub_ui (MP_INT *dif, const MP_INT *min, mp_limb sub)
+#else
+mpz_sub_ui (dif, min, sub)
+     MP_INT *dif;
+     const MP_INT *min;
+     mp_limb sub;
+#endif
+{
+  mp_srcptr minp;
+  mp_ptr difp;
+  mp_size minsize, difsize;
+  mp_size abs_minsize;
+
+  minsize = min->size;
+  abs_minsize = ABS (minsize);
+
+  /* If not space for SUM (and possible carry), increase space.  */
+  difsize = abs_minsize + 1;
+  if (dif->alloc < difsize)
+    _mpz_realloc (dif, difsize);
+
+  /* These must be after realloc (ADD1 may be the same as SUM).  */
+  minp = min->d;
+  difp = dif->d;
+
+  if (sub == 0)
+    {
+      MPN_COPY (difp, minp, abs_minsize);
+      dif->size = minsize;
+      return;
+    }
+  if (abs_minsize == 0)
+    {
+      difp[0] = sub;
+      dif->size = -1;
+      return;
+    }
+
+  if (minsize < 0)
+    {
+      difsize = mpn_add (difp, minp, abs_minsize, &sub, 1);
+      if (difsize != 0)
+	difp[abs_minsize] = 1;
+      difsize = -(difsize + abs_minsize);
+    }
+  else
+    {
+      /* The signs are different.  Need exact comparision to determine
+	 which operand to subtract from which.  */
+      if (abs_minsize == 1 && minp[0] < sub)
+	difsize = -(abs_minsize
+		    + mpn_sub (difp, &sub, 1, minp, 1));
+      else
+	difsize = (abs_minsize
+		   + mpn_sub (difp, minp, abs_minsize, &sub, 1));
+    }
+
+  dif->size = difsize;
+}
diff --git a/Mp/gmp-1.3.2/mtox.c b/Mp/gmp-1.3.2/mtox.c
new file mode 100644
index 0000000..22708e5
--- /dev/null
+++ b/Mp/gmp-1.3.2/mtox.c
@@ -0,0 +1,37 @@
+/* mtox -- Convert OPERAND to hexadecimal and return a malloc'ed string
+   with the result of the conversion.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+char *
+#ifdef __STDC__
+mtox (const MINT *operand)
+#else
+mtox (operand)
+     const MINT *operand;
+#endif
+{
+  /* Call MP_GET_STR with a NULL pointer as string argument, so that it
+     allocates space for the result.  */
+  return _mpz_get_str ((char *) 0, 16, operand);
+}
diff --git a/Mp/gmp-1.3.2/sdiv.c b/Mp/gmp-1.3.2/sdiv.c
new file mode 100644
index 0000000..ab83dcd
--- /dev/null
+++ b/Mp/gmp-1.3.2/sdiv.c
@@ -0,0 +1,76 @@
+/* sdiv -- Divide a MINT by a short integer.  Produce a MINT quotient
+   and a short remainder.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+
+void
+#ifdef __STDC__
+sdiv (const MINT *dividend, signed short int divisor_short, MINT *quot, short *rem_ptr)
+#else
+sdiv (dividend, divisor_short, quot, rem_ptr)
+     const MINT *dividend;
+     short int divisor_short;
+     MINT *quot;
+     short *rem_ptr;
+#endif
+{
+  mp_size sign_dividend;
+  signed long int sign_divisor;
+  mp_size dividend_size, quot_size;
+  mp_ptr dividend_ptr, quot_ptr;
+  mp_limb divisor_limb;
+  mp_limb remainder_limb;
+
+  sign_dividend = dividend->size;
+  dividend_size = ABS (dividend->size);
+
+  if (dividend_size == 0)
+    {
+      quot->size = 0;
+      *rem_ptr = 0;
+      return;
+    }
+
+  sign_divisor = divisor_short;
+  divisor_limb = ABS (divisor_short);
+
+  /* No need for temporary allocation and copying even if QUOT == DIVIDEND
+     as the divisor is just one limb, and thus no intermediate remainders
+     need to be stored.  */
+
+  if (quot->alloc < dividend_size)
+    _mpz_realloc (quot, dividend_size);
+
+  quot_ptr = quot->d;
+  dividend_ptr = dividend->d;
+
+  remainder_limb = mpn_divmod_1 (quot_ptr,
+				 dividend_ptr, dividend_size, divisor_limb);
+
+  *rem_ptr = sign_dividend >= 0 ? remainder_limb : -remainder_limb;
+  /* The quotient is DIVIDEND_SIZE limbs, but the most significant
+     might be zero.  Set QUOT_SIZE properly. */
+  quot_size = dividend_size - (quot_ptr[dividend_size - 1] == 0);
+  quot->size = (sign_divisor ^ sign_dividend) >= 0 ? quot_size : -quot_size;
+}
diff --git a/Mp/gmp-1.3.2/tests/Makefile b/Mp/gmp-1.3.2/tests/Makefile
new file mode 100644
index 0000000..aa18015
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/Makefile
@@ -0,0 +1,64 @@
+# Makefile for tests for GNU MP
+
+# Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+# This file is part of the GNU MP Library.
+
+# The GNU MP Library is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# The GNU MP Library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with the GNU MP Library; see the file COPYING.  If not, write to
+# the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+CC = gcc
+
+TEST_LIBS = ../libgmp.a
+OPT = -O -g
+CFLAGS = -I. -I.. $(OPT)
+
+TEST_SRCS = tst-mul.c tst-dm.c tst-dm_ui.c tst-mdm.c tst-mdm_ui.c tst-gcd.c \
+ tst-sqrtrem.c tst-convert.c
+TEST_OBJS = tst-mul.o tst-dm.o tst-dm_ui.o tst-mdm.o tst-mdm_ui.o tst-gcd.o \
+ tst-sqrtrem.o tst-convert.o
+TESTS = tst-mul tst-dm tst-dm_ui tst-mdm tst-mdm_ui tst-gcd \
+ tst-sqrtrem tst-convert
+
+tests: $(TESTS)
+	for i in $(TESTS); do echo $$i; ./$$i; done
+
+tst-mul: tst-mul.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-dm: tst-dm.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-dm_ui: tst-dm_ui.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-mdm: tst-mdm.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-mdm_ui: tst-mdm_ui.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-gcd: tst-gcd.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-sqrtrem: tst-sqrtrem.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+tst-convert: tst-convert.o $(TEST_LIBS)
+	$(CC) $(CFLAGS) -o $@ $@.o $(TEST_LIBS)
+
+$(TEST_PREFIX)clean:
+	rm -f $(TESTS) $(TEST_OBJS) core
+
+tst-convert.o : tst-convert.c ../gmp.h urandom.h 
+tst-dm.o : tst-dm.c ../gmp.h urandom.h 
+tst-dm_ui.o : tst-dm_ui.c ../gmp.h urandom.h 
+tst-gcd.o : tst-gcd.c ../gmp.h urandom.h 
+tst-mdm.o : tst-mdm.c ../gmp.h urandom.h 
+tst-mdm_ui.o : tst-mdm_ui.c ../gmp.h urandom.h 
+tst-mul.o : tst-mul.c ../gmp.h ../gmp-impl.h ../gmp-mparam.h ../longlong.h urandom.h 
+tst-sqrtrem.o : tst-sqrtrem.c ../gmp.h urandom.h 
diff --git a/Mp/gmp-1.3.2/tests/tst-convert.c b/Mp/gmp-1.3.2/tests/tst-convert.c
new file mode 100644
index 0000000..bbc0dab
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-convert.c
@@ -0,0 +1,80 @@
+/* Test mpz_add, mpz_cmp, mpz_cmp_ui, mpz_gcd, mpz_gcdext, mpz_get_str,
+   mpz_mod, mpz_mul, mpz_set_str.
+
+Copyright (C) 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT op1, op2;
+  mp_size size;
+  int i;
+  int reps = 100000;
+  char *str;
+  int base;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&op1);
+  mpz_init (&op2);
+
+  for (i = 0; i < reps; i++)
+    {
+      size = urandom () % SIZE - SIZE/2;
+
+      mpz_random2 (&op1, size);
+      base = urandom () % 36 + 1;
+      if (base == 1)
+	base = 0;
+
+      str = mpz_get_str ((char *) 0, base, &op1);
+      mpz_set_str (&op2, str, base);
+      free (str);
+
+      if (mpz_cmp (&op1, &op2))
+	{
+	  fprintf (stderr, "ERROR\n");
+	  fprintf (stderr, "op1  = "); debug_mp (&op1, -16);
+	  fprintf (stderr, "base = %d\n", base);
+	  abort ();
+	}
+    }
+
+  exit (0);
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-dm.c b/Mp/gmp-1.3.2/tests/tst-dm.c
new file mode 100644
index 0000000..92c4194
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-dm.c
@@ -0,0 +1,117 @@
+/* Test mpz_abs, mpz_add, mpz_cmp, mpz_cmp_ui, mpz_div, mpz_divmod, mpz_mod,
+   mpz_mul.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT dividend, divisor;
+  MP_INT quotient, remainder;
+  MP_INT quotient2, remainder2;
+  MP_INT temp;
+  mp_size dividend_size, divisor_size;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&dividend);
+  mpz_init (&divisor);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+  mpz_init (&quotient2);
+  mpz_init (&remainder2);
+  mpz_init (&temp);
+
+  for (i = 0; i < reps; i++)
+    {
+      dividend_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&dividend, dividend_size);
+
+      divisor_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&divisor, divisor_size);
+      if (mpz_cmp_ui (&divisor, 0) == 0)
+	continue;
+
+      mpz_divmod (&quotient, &remainder, &dividend, &divisor);
+      mpz_div (&quotient2, &dividend, &divisor);
+      mpz_mod (&remainder2, &dividend, &divisor);
+
+      /* First determine that the quotients and remainders computed
+	 with different functions are equal.  */
+      if (mpz_cmp (&quotient, &quotient2) != 0)
+	dump_abort (&dividend, &divisor);
+      if (mpz_cmp (&remainder, &remainder2) != 0)
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the sign of the quotient is correct.  */
+      if (mpz_cmp_ui (&quotient, 0) != 0)
+	if ((mpz_cmp_ui (&quotient, 0) < 0)
+	    != ((mpz_cmp_ui (&dividend, 0) ^ mpz_cmp_ui (&divisor, 0)) < 0))
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the remainder has the same sign as the dividend
+	 (quotient rounded towards 0).  */
+      if (mpz_cmp_ui (&remainder, 0) != 0)
+	if ((mpz_cmp_ui (&remainder, 0) < 0) != (mpz_cmp_ui (&dividend, 0) < 0))
+	  dump_abort (&dividend, &divisor);
+
+      mpz_mul (&temp, &quotient, &divisor);
+      mpz_add (&temp, &temp, &remainder);
+      if (mpz_cmp (&temp, &dividend) != 0)
+	dump_abort (&dividend, &divisor);
+
+      mpz_abs (&temp, &divisor);
+      mpz_abs (&remainder, &remainder);
+      if (mpz_cmp (&remainder, &temp) >= 0)
+	dump_abort (&dividend, &divisor);
+    }
+
+  exit (0);
+}
+
+dump_abort (dividend, divisor)
+     MP_INT *dividend, *divisor;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "dividend = "); debug_mp (dividend, -16);
+  fprintf (stderr, "divisor  = "); debug_mp (divisor, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-dm_ui.c b/Mp/gmp-1.3.2/tests/tst-dm_ui.c
new file mode 100644
index 0000000..9f69841
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-dm_ui.c
@@ -0,0 +1,116 @@
+/* Test mpz_abs, mpz_add, mpz_cmp, mpz_cmp_ui, mpz_div, mpz_div_ui,
+   mpz_divmod, mpz_divmod_ui, mpz_mod, mpz_mod_ui, mpz_mul, mpz_mul_ui.
+
+Copyright (C) 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT dividend;
+  MP_INT quotient, remainder;
+  MP_INT quotient2, remainder2;
+  MP_INT temp;
+  mp_size dividend_size;
+  mp_limb divisor;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&dividend);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+  mpz_init (&quotient2);
+  mpz_init (&remainder2);
+  mpz_init (&temp);
+
+  for (i = 0; i < reps; i++)
+    {
+      dividend_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&dividend, dividend_size);
+
+      divisor = urandom ();
+      if (divisor == 0)
+	continue;
+
+      mpz_divmod_ui (&quotient, &remainder, &dividend, divisor);
+      mpz_div_ui (&quotient2, &dividend, divisor);
+      mpz_mod_ui (&remainder2, &dividend, divisor);
+
+      /* First determine that the quotients and remainders computed
+	 with different functions are equal.  */
+      if (mpz_cmp (&quotient, &quotient2) != 0)
+	dump_abort (&dividend, divisor);
+      if (mpz_cmp (&remainder, &remainder2) != 0)
+	dump_abort (&dividend, divisor);
+
+      /* Check if the sign of the quotient is correct.  */
+      if (mpz_cmp_ui (&quotient, 0) != 0)
+	if ((mpz_cmp_ui (&quotient, 0) < 0)
+	    != (mpz_cmp_ui (&dividend, 0) < 0))
+	dump_abort (&dividend, divisor);
+
+      /* Check if the remainder has the same sign as the dividend
+	 (quotient rounded towards 0).  */
+      if (mpz_cmp_ui (&remainder, 0) != 0)
+	if ((mpz_cmp_ui (&remainder, 0) < 0) != (mpz_cmp_ui (&dividend, 0) < 0))
+	  dump_abort (&dividend, divisor);
+
+      mpz_mul_ui (&temp, &quotient, divisor);
+      mpz_add (&temp, &temp, &remainder);
+      if (mpz_cmp (&temp, &dividend) != 0)
+	dump_abort (&dividend, divisor);
+
+      mpz_abs (&remainder, &remainder);
+      if (mpz_cmp_ui (&remainder, divisor) >= 0)
+	dump_abort (&dividend, divisor);
+    }
+
+  exit (0);
+}
+
+dump_abort (dividend, divisor)
+     MP_INT *dividend;
+     mp_limb divisor;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "dividend = "); debug_mp (dividend, -16);
+  fprintf (stderr, "divisor  = %lX\n", divisor);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-gcd.c b/Mp/gmp-1.3.2/tests/tst-gcd.c
new file mode 100644
index 0000000..166aa56
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-gcd.c
@@ -0,0 +1,131 @@
+/* Test mpz_gcd, mpz_gcdext, mpz_mul, mpz_mod, mpz_add, mpz_cmp,
+   mpz_cmp_ui. mpz_init_set, mpz_set, mpz_clear.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void mpz_refgcd (), debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT op1, op2;
+  MP_INT refgcd, gcd, s, t;
+  MP_INT temp1, temp2;
+  mp_size op1_size, op2_size;
+  int i;
+  int reps = 10000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&op1);
+  mpz_init (&op2);
+  mpz_init (&refgcd);
+  mpz_init (&gcd);
+  mpz_init (&temp1);
+  mpz_init (&temp2);
+  mpz_init (&s);
+  mpz_init (&t);
+
+  for (i = 0; i < reps; i++)
+    {
+      op1_size = urandom () % SIZE;
+      op2_size = urandom () % SIZE;
+
+      mpz_random2 (&op1, op1_size);
+      mpz_random2 (&op2, op2_size);
+
+      mpz_refgcd (&refgcd, &op1, &op2);
+
+      mpz_gcd (&gcd, &op1, &op2);
+      if (mpz_cmp (&refgcd, &gcd))
+	dump_abort (&op1, &op2);
+
+      mpz_gcdext (&gcd, &s, &t, &op1, &op2);
+      if (mpz_cmp (&refgcd, &gcd))
+	dump_abort (&op1, &op2);
+
+      mpz_mul (&temp1, &s, &op1);
+      mpz_mul (&temp2, &t, &op2);
+      mpz_add (&gcd, &temp1, &temp2);
+      if (mpz_cmp (&refgcd, &gcd))
+	dump_abort (&op1, &op2);
+    }
+
+  exit (0);
+}
+
+void
+mpz_refgcd (g, x, y)
+     MP_INT *g;
+     MP_INT *x, *y;
+{
+  MP_INT xx, yy;
+
+  mpz_init (&xx);
+  mpz_init (&yy);
+
+  mpz_abs (&xx, x);
+  mpz_abs (&yy, y);
+
+  for (;;)
+    {
+      if (mpz_cmp_ui (&yy, 0) == 0)
+	{
+	  mpz_set (g, &xx);
+	  break;
+	}
+      mpz_mod (&xx, &xx, &yy);
+      if (mpz_cmp_ui (&xx, 0) == 0)
+	{
+	  mpz_set (g, &yy);
+	  break;
+	}
+      mpz_mod (&yy, &yy, &xx);
+    }
+
+  mpz_clear (&xx);
+  mpz_clear (&yy);
+}
+
+dump_abort (op1, op2)
+     MP_INT *op1, *op2;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "op1 = "); debug_mp (op1, -16);
+  fprintf (stderr, "op2 = "); debug_mp (op2, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-mdm.c b/Mp/gmp-1.3.2/tests/tst-mdm.c
new file mode 100644
index 0000000..a515ddf
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-mdm.c
@@ -0,0 +1,117 @@
+/* Test mpz_abs, mpz_add, mpz_cmp, mpz_cmp_ui, mpz_divmod, mpz_mdiv,
+   mpz_mdivmod, mpz_mmod, mpz_mul.
+
+Copyright (C) 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT dividend, divisor;
+  MP_INT quotient, remainder;
+  MP_INT quotient2, remainder2;
+  MP_INT temp;
+  mp_size dividend_size, divisor_size;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&dividend);
+  mpz_init (&divisor);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+  mpz_init (&quotient2);
+  mpz_init (&remainder2);
+  mpz_init (&temp);
+
+  for (i = 0; i < reps; i++)
+    {
+      dividend_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&dividend, dividend_size);
+
+      divisor_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&divisor, divisor_size);
+      if (mpz_cmp_ui (&divisor, 0) == 0)
+	continue;
+
+      mpz_mdivmod (&quotient, &remainder, &dividend, &divisor);
+      mpz_mdiv (&quotient2, &dividend, &divisor);
+      mpz_mmod (&remainder2, &dividend, &divisor);
+
+      /* First determine that the quotients and remainders computed
+	 with different functions are equal.  */
+      if (mpz_cmp (&quotient, &quotient2) != 0)
+	dump_abort (&dividend, &divisor);
+      if (mpz_cmp (&remainder, &remainder2) != 0)
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the sign of the quotient is correct.  */
+      if (mpz_cmp_ui (&quotient, 0) != 0)
+	if ((mpz_cmp_ui (&quotient, 0) < 0)
+	    != ((mpz_cmp_ui (&dividend, 0) ^ mpz_cmp_ui (&divisor, 0)) < 0))
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the remainder has the same sign as the divisor
+	 (quotient rounded towards minus infinity).  */
+      if (mpz_cmp_ui (&remainder, 0) != 0)
+	if ((mpz_cmp_ui (&remainder, 0) < 0) != (mpz_cmp_ui (&divisor, 0) < 0))
+	  dump_abort (&dividend, &divisor);
+
+      mpz_mul (&temp, &quotient, &divisor);
+      mpz_add (&temp, &temp, &remainder);
+      if (mpz_cmp (&temp, &dividend) != 0)
+	dump_abort (&dividend, &divisor);
+
+      mpz_abs (&temp, &divisor);
+      mpz_abs (&remainder, &remainder);
+      if (mpz_cmp (&remainder, &temp) >= 0)
+	dump_abort (&dividend, &divisor);
+    }
+
+  exit (0);
+}
+
+dump_abort (dividend, divisor)
+     MP_INT *dividend, *divisor;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "dividend = "); debug_mp (dividend, -16);
+  fprintf (stderr, "divisor  = "); debug_mp (divisor, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-mdm_ui.c b/Mp/gmp-1.3.2/tests/tst-mdm_ui.c
new file mode 100644
index 0000000..26befbe
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-mdm_ui.c
@@ -0,0 +1,116 @@
+/* Test mpz_abs, mpz_add, mpz_cmp.  mpz_cmp_si, mpz_cmp_ui, mpz_divmod,
+   mpz_mdiv_ui, mpz_mdivmod_ui, mpz_mmod_ui, mpz_mul, mpz_mul_ui.
+
+Copyright (C) 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT dividend;
+  MP_INT quotient, remainder;
+  MP_INT quotient2, remainder2;
+  MP_INT temp;
+  mp_size dividend_size;
+  mp_limb divisor;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&dividend);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+  mpz_init (&quotient2);
+  mpz_init (&remainder2);
+  mpz_init (&temp);
+
+  for (i = 0; i < reps; i++)
+    {
+      dividend_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&dividend, dividend_size);
+
+      divisor = urandom ();
+      if (divisor == 0)
+	continue;
+
+      mpz_mdivmod_ui (&quotient, &remainder, &dividend, divisor);
+      mpz_mdiv_ui (&quotient2, &dividend, divisor);
+      mpz_mmod_ui (&remainder2, &dividend, divisor);
+
+      /* First determine that the quotients and remainders computed
+	 with different functions are equal.  */
+      if (mpz_cmp (&quotient, &quotient2) != 0)
+	dump_abort (&dividend, divisor);
+      if (mpz_cmp (&remainder, &remainder2) != 0)
+	dump_abort (&dividend, divisor);
+
+      /* Check if the sign of the quotient is correct.  */
+      if (mpz_cmp_ui (&quotient, 0) != 0)
+	if ((mpz_cmp_ui (&quotient, 0) < 0)
+	    != (mpz_cmp_ui (&dividend, 0) < 0))
+	dump_abort (&dividend, divisor);
+
+      /* Check if the remainder has the same sign as the divisor
+	 (quotient rounded towards minus infinity).  */
+      if (mpz_cmp_ui (&remainder, 0) != 0)
+	if (mpz_cmp_ui (&remainder, 0) < 0)
+	  dump_abort (&dividend, divisor);
+
+      mpz_mul_ui (&temp, &quotient, divisor);
+      mpz_add (&temp, &temp, &remainder);
+      if (mpz_cmp (&temp, &dividend) != 0)
+	dump_abort (&dividend, divisor);
+
+      mpz_abs (&remainder, &remainder);
+      if (mpz_cmp_ui (&remainder, divisor) >= 0)
+	dump_abort (&dividend, divisor);
+    }
+
+  exit (0);
+}
+
+dump_abort (dividend, divisor)
+     MP_INT *dividend;
+     mp_limb divisor;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "dividend = "); debug_mp (dividend, -16);
+  fprintf (stderr, "divisor  = %lX\n", divisor);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-mul.c b/Mp/gmp-1.3.2/tests/tst-mul.c
new file mode 100644
index 0000000..0eab422
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-mul.c
@@ -0,0 +1,261 @@
+/* Test mpz_add, mpz_cmp, mpz_cmp_ui, mpz_divmod, mpz_mul.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "longlong.h"
+#include "urandom.h"
+
+void debug_mp ();
+mp_size _mpn_mul_classic ();
+void mpz_refmul ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT multiplier, multiplicand;
+  MP_INT product, ref_product;
+  MP_INT quotient, remainder;
+  mp_size multiplier_size, multiplicand_size;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&multiplier);
+  mpz_init (&multiplicand);
+  mpz_init (&product);
+  mpz_init (&ref_product);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+
+  for (i = 0; i < reps; i++)
+    {
+      multiplier_size = urandom () % SIZE - SIZE/2;
+      multiplicand_size = urandom () % SIZE - SIZE/2;
+
+      mpz_random2 (&multiplier, multiplier_size);
+      mpz_random2 (&multiplicand, multiplicand_size);
+
+      mpz_mul (&product, &multiplier, &multiplicand);
+      mpz_refmul (&ref_product, &multiplier, &multiplicand);
+      if (mpz_cmp_ui (&multiplicand, 0) != 0)
+	mpz_divmod (&quotient, &remainder, &product, &multiplicand);
+
+      if (mpz_cmp (&product, &ref_product))
+	dump_abort (&multiplier, &multiplicand);
+
+      if (mpz_cmp_ui (&multiplicand, 0) != 0)
+      if (mpz_cmp_ui (&remainder, 0) || mpz_cmp (&quotient, &multiplier))
+	dump_abort (&multiplier, &multiplicand);
+    }
+
+  exit (0);
+}
+
+void
+mpz_refmul (w, u, v)
+     MP_INT *w;
+     const MP_INT *u;
+     const MP_INT *v;
+{
+  mp_size usize = u->size;
+  mp_size vsize = v->size;
+  mp_size wsize;
+  mp_size sign_product;
+  mp_ptr up, vp;
+  mp_ptr wp;
+  mp_ptr free_me = NULL;
+  size_t free_me_size;
+
+  sign_product = usize ^ vsize;
+  usize = ABS (usize);
+  vsize = ABS (vsize);
+
+  if (usize < vsize)
+    {
+      /* Swap U and V.  */
+      {const MP_INT *t = u; u = v; v = t;}
+      {mp_size t = usize; usize = vsize; vsize = t;}
+    }
+
+  up = u->d;
+  vp = v->d;
+  wp = w->d;
+
+  /* Ensure W has space enough to store the result.  */
+  wsize = usize + vsize;
+  if (w->alloc < wsize)
+    {
+      if (wp == up || wp == vp)
+	{
+	  free_me = wp;
+	  free_me_size = w->alloc;
+	}
+      else
+	(*_mp_free_func) (wp, w->alloc * BYTES_PER_MP_LIMB);
+
+      w->alloc = wsize;
+      wp = (mp_ptr) (*_mp_allocate_func) (wsize * BYTES_PER_MP_LIMB);
+      w->d = wp;
+    }
+  else
+    {
+      /* Make U and V not overlap with W.  */
+      if (wp == up)
+	{
+	  /* W and U are identical.  Allocate temporary space for U.  */
+	  up = (mp_ptr) alloca (usize * BYTES_PER_MP_LIMB);
+	  /* Is V identical too?  Keep it identical with U.  */
+	  if (wp == vp)
+	    vp = up;
+	  /* Copy to the temporary space.  */
+	  MPN_COPY (up, wp, usize);
+	}
+      else if (wp == vp)
+	{
+	  /* W and V are identical.  Allocate temporary space for V.  */
+	  vp = (mp_ptr) alloca (vsize * BYTES_PER_MP_LIMB);
+	  /* Copy to the temporary space.  */
+	  MPN_COPY (vp, wp, vsize);
+	}
+    }
+
+  wsize = _mpn_mul_classic (wp, up, usize, vp, vsize);
+  w->size = sign_product < 0 ? -wsize : wsize;
+  if (free_me != NULL)
+    (*_mp_free_func) (free_me, free_me_size * BYTES_PER_MP_LIMB);
+
+  alloca (0);
+}
+
+mp_size
+_mpn_mul_classic (prodp, up, usize, vp, vsize)
+     mp_ptr prodp;
+     mp_srcptr up;
+     mp_size usize;
+     mp_srcptr vp;
+     mp_size vsize;
+{
+  mp_size n;
+  mp_size prod_size;
+  mp_limb cy;
+  mp_size i, j;
+  mp_limb prod_low, prod_high;
+  mp_limb cy_dig;
+  mp_limb v_limb, c;
+
+  if (vsize == 0)
+    return 0;
+
+  /* Offset UP and PRODP so that the inner loop can be faster.  */
+  up += usize;
+  prodp += usize;
+
+  /* Multiply by the first limb in V separately, as the result can
+     be stored (not added) to PROD.  We also avoid a loop for zeroing.  */
+  v_limb = vp[0];
+  cy_dig = 0;
+  j = -usize;
+  do
+    {
+      umul_ppmm (prod_high, prod_low, up[j], v_limb);
+      add_ssaaaa (cy_dig, prodp[j], prod_high, prod_low, 0, cy_dig);
+      j++;
+    }
+  while (j < 0);
+
+  prodp[j] = cy_dig;
+  prodp++;
+
+  /* For each iteration in the outer loop, multiply one limb from
+     U with one limb from V, and add it to PROD.  */
+  for (i = 1; i < vsize; i++)
+    {
+      v_limb = vp[i];
+      cy_dig = 0;
+      j = -usize;
+
+      /* Inner loops.  Simulate the carry flag by jumping between
+	 these loops.  The first is used when there was no carry
+	 in the previois iteration; the second when there was carry.  */
+
+      do
+	{
+	  umul_ppmm (prod_high, prod_low, up[j], v_limb);
+	  add_ssaaaa (cy_dig, prod_low, prod_high, prod_low, 0, cy_dig);
+	  c = prodp[j];
+	  prod_low += c;
+	  prodp[j] = prod_low;
+	  if (prod_low < c)
+	    goto cy_loop;
+	ncy_loop:
+	  j++;
+	}
+      while (j < 0);
+
+      prodp[j] = cy_dig;
+      prodp++;
+      continue;
+
+      do
+	{
+	  umul_ppmm (prod_high, prod_low, up[j], v_limb);
+	  add_ssaaaa (cy_dig, prod_low, prod_high, prod_low, 0, cy_dig);
+	  c = prodp[j];
+	  prod_low += c + 1;
+	  prodp[j] = prod_low;
+	  if (prod_low > c)
+	    goto ncy_loop;
+	cy_loop:
+	  j++;
+	}
+      while (j < 0);
+
+      cy_dig += 1;
+      prodp[j] = cy_dig;
+      prodp++;
+    }
+
+  return usize + vsize - (cy_dig == 0);
+}
+
+dump_abort (multiplier, multiplicand)
+     MP_INT *multiplier, *multiplicand;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "multiplier = "); debug_mp (multiplier, -16);
+  fprintf (stderr, "multiplicand  = "); debug_mp (multiplicand, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-pow_ui.c b/Mp/gmp-1.3.2/tests/tst-pow_ui.c
new file mode 100644
index 0000000..c7d929a
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-pow_ui.c
@@ -0,0 +1,120 @@
+/* Test mpz_abs, mpz_add, mpz_cmp, mpz_cmp_ui, mpz_div, mpz_divmod, mpz_mod,
+   mpz_mul.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT dividend, divisor;
+  MP_INT quotient, remainder;
+  MP_INT quotient2, remainder2;
+  MP_INT temp;
+  mp_size dividend_size, divisor_size;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&dividend);
+  mpz_init (&divisor);
+  mpz_init (&quotient);
+  mpz_init (&remainder);
+  mpz_init (&quotient2);
+  mpz_init (&remainder2);
+  mpz_init (&temp);
+
+  for (i = 0; i < reps; i++)
+    {
+      base_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&base, base_size);
+
+      divisor_size = urandom () % SIZE - SIZE/2;
+      mpz_random2 (&divisor, divisor_size);
+      if (mpz_cmp_ui (&divisor, 0) == 0)
+	continue;
+
+      exp_size = urandom () % SIZE/2;
+      mpz_random2 (&exp, exp_size);
+
+      mpz_powm (&result1, &base, &exp, &divisor);
+      mpz_div (&quotient2, &dividend, &divisor);
+      mpz_mod (&remainder2, &dividend, &divisor);
+
+      /* First determine that the quotients and remainders computed
+	 with different functions are equal.  */
+      if (mpz_cmp (&quotient, &quotient2) != 0)
+	dump_abort (&dividend, &divisor);
+      if (mpz_cmp (&remainder, &remainder2) != 0)
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the sign of the quotient is correct.  */
+      if (mpz_cmp_ui (&quotient, 0) != 0)
+	if ((mpz_cmp_ui (&quotient, 0) < 0)
+	    != ((mpz_cmp_ui (&dividend, 0) ^ mpz_cmp_ui (&divisor, 0)) < 0))
+	dump_abort (&dividend, &divisor);
+
+      /* Check if the remainder has the same sign as the dividend
+	 (quotient rounded towards 0).  */
+      if (mpz_cmp_ui (&remainder, 0) != 0)
+	if ((mpz_cmp_ui (&remainder, 0) < 0) != (mpz_cmp_ui (&dividend, 0) < 0))
+	  dump_abort (&dividend, &divisor);
+
+      mpz_mul (&temp, &quotient, &divisor);
+      mpz_add (&temp, &temp, &remainder);
+      if (mpz_cmp (&temp, &dividend) != 0)
+	dump_abort (&dividend, &divisor);
+
+      mpz_abs (&temp, &divisor);
+      mpz_abs (&remainder, &remainder);
+      if (mpz_cmp (&remainder, &temp) >= 0)
+	dump_abort (&dividend, &divisor);
+    }
+
+  exit (0);
+}
+
+dump_abort (dividend, divisor)
+     MP_INT *dividend, *divisor;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "dividend = "); debug_mp (dividend, -16);
+  fprintf (stderr, "divisor  = "); debug_mp (divisor, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/tst-sqrtrem.c b/Mp/gmp-1.3.2/tests/tst-sqrtrem.c
new file mode 100644
index 0000000..b62350a
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/tst-sqrtrem.c
@@ -0,0 +1,97 @@
+/* Test mpz_add, mpz_add_ui, mpz_cmp, mpz_cmp, mpz_mul, mpz_sqrtrem.
+
+Copyright (C) 1991, 1993 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include "gmp.h"
+#include "gmp-impl.h"
+#include "urandom.h"
+
+void debug_mp ();
+
+#ifndef SIZE
+#define SIZE 8
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  MP_INT x2;
+  MP_INT x, rem;
+  MP_INT temp, temp2;
+  mp_size x2_size;
+  int i;
+  int reps = 100000;
+
+  if (argc == 2)
+     reps = atoi (argv[1]);
+
+  mpz_init (&x2);
+  mpz_init (&x);
+  mpz_init (&rem);
+  mpz_init (&temp);
+  mpz_init (&temp2);
+
+  for (i = 0; i < reps; i++)
+    {
+      x2_size = urandom () % SIZE;
+
+      mpz_random2 (&x2, x2_size);
+
+      mpz_sqrtrem (&x, &rem, &x2);
+      mpz_mul (&temp, &x, &x);
+
+      /* Is square of result > argument?  */
+      if (mpz_cmp (&temp, &x2) > 0)
+	dump_abort (&x2, &x, &rem);
+
+      mpz_add_ui (&temp2, &x, 1);
+      mpz_mul (&temp2, &temp2, &temp2);
+
+      /* Is square of (result + 1) <= argument?  */
+      if (mpz_cmp (&temp2, &x2) <= 0)
+	dump_abort (&x2, &x, &rem);
+
+      mpz_add (&temp2, &temp, &rem);
+
+      /* Is the remainder wrong?  */
+      if (mpz_cmp (&x2, &temp2) != 0)
+	dump_abort (&x2, &x, &rem);
+    }
+
+  exit (0);
+}
+
+dump_abort (x2, x, rem)
+     MP_INT *x2, *x, *rem;
+{
+  fprintf (stderr, "ERROR\n");
+  fprintf (stderr, "x2        = "); debug_mp (x2, -16);
+  fprintf (stderr, "x         = "); debug_mp (x, -16);
+  fprintf (stderr, "remainder = "); debug_mp (rem, -16);
+  abort();
+}
+
+void
+debug_mp (x, base)
+     MP_INT *x;
+{
+  mpz_out_str (stderr, base, x); fputc ('\n', stderr);
+}
diff --git a/Mp/gmp-1.3.2/tests/urandom.h b/Mp/gmp-1.3.2/tests/urandom.h
new file mode 100644
index 0000000..e018580
--- /dev/null
+++ b/Mp/gmp-1.3.2/tests/urandom.h
@@ -0,0 +1,17 @@
+#if defined (hpux) || defined (__alpha__)
+/* HPUX lacks random().  DEC Alpha's random() returns a double.  */
+static inline unsigned long
+urandom ()
+{
+  return mrand48 ();
+}
+#else
+long random ();
+
+static inline unsigned long
+urandom ()
+{
+  /* random() returns 31 bits, we want 32.  */
+  return random() ^ (random() << 1);
+}
+#endif
diff --git a/Mp/gmp-1.3.2/xtom.c b/Mp/gmp-1.3.2/xtom.c
new file mode 100644
index 0000000..13f31c8
--- /dev/null
+++ b/Mp/gmp-1.3.2/xtom.c
@@ -0,0 +1,41 @@
+/* xtom -- convert a hexadecimal string to a MINT, and return a pointer to
+   the MINT.
+
+Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+The GNU MP Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU MP Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with the GNU MP Library; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "mp.h"
+#include "gmp.h"
+#include "gmp-impl.h"
+
+MINT *
+#ifdef __STDC__
+xtom (const char *hex_str)
+#else
+xtom (hex_str)
+     const char *hex_str;
+#endif
+{
+  MINT *x = (MINT *) (*_mp_allocate_func) (sizeof (MINT));
+
+  x->alloc = 1;
+  x->d = (mp_ptr) (*_mp_allocate_func) (x->alloc * BYTES_PER_MP_LIMB);
+
+  _mpz_set_str (x, hex_str, 16);
+  return x;
+}
diff --git a/README b/README
new file mode 100644
index 0000000..cd2c1e3
--- /dev/null
+++ b/README
@@ -0,0 +1,233 @@
+
+		    This is the release 3.1 of STk
+		   --------------------------------
+
+
+(Last release is always available from kaolin.unice.fr [193.48.229.225])
+
+STk is a R4RS Scheme interpreter which can access the Tk graphical
+package.  Concretely it can be seen as the John Ousterhout's Tk
+package where the Tcl language has been replaced by Scheme.
+
+STk also provides an efficient object oriented system called STklos.
+STklos is an extensive OO system with multiple inheritance, generic
+functions, multi-methods and a Meta Object Protocol).
+
+This release runs on several Unix boxes (see below) and on Microsoft
+Win32. It uses the Tk 4.1 package for the graphical part.
+
+DIFFERENCE PREVIOUS RELEASE
+---------------------------
+
+	- Version of Tk is now at Tk4.1 level. 
+
+	- STk run now on Win32!!! 
+	Some details need a little more work (some oddities on file names
+	due to difference conventions between Unix and DOS, and things like 
+	that). No socket support and no dynamic loading on Win32
+
+	- A complete documentation of STk widgets pages (both in nroff 
+	and HTML format). The help command really allow you to browse
+	man pages now. Man pages are prefixed by "stk_" now to avoid confusion 
+	with original Tk manual pages. 
+
+	- STklos is now integrated to STk (it was dynamically loaded before).
+	  This simplify its implementation and speed up generic functions:
+		o gf are now 2-4 time faster
+		o gf are now tail recursive
+		o the MOP for gf is now "public" (i.e. you can change the way 
+		  gf are called in Scheme -- it was not possible with previous 
+		  versions without using C).
+
+	- Port implementation is different: A port contains now its
+	input and output handler. New primitives to access the handler:
+	when-port-readable and when-port-writable.
+	BTW, The Tk function fileevent function is no more useful
+	(it is written in Scheme now for compatibility, but its usage 
+	is deprecated). It may not be supported in a future release.
+
+	- New composite widgets: <Multiple-window> and <Inner-window>
+	which allow to have embedded windows. A multiple window 
+	has a task bar below and allow to iconify inner-windows. 
+	Some people think it looks like Win95 desktop ;-)	
+
+	- pixmap extension doesn't require anymore the Xpm library. Code
+	is stolen from the Tix Library.
+
+	- New socket code which allow multiple concurrent connection
+
+	- Extended types can now have a compare function which	is called
+	 when eqv? or equal? is called. This modification should be 
+	 compatible with the previous extensions (I hope so)
+	
+	- STklos: Two new methods: object-eqv? and object-equal? which are 
+	called when applying eqv? or equal? to instances.
+
+	- A rewriting of bind-for-dragging canvas method. You can now specify 
+	a :before-motion, which if it returns #f, forbid to move the selected 
+	canvas item.
+
+	- New primitives:setenv!, posix-host-name, posix-domain-name, 
+	posix-uname	  
+	
+	- Option separator "--" allows to pass reserved keyword 
+	  (such as -help) to a script. Option and parameter cannot
+	   be mixed anymore:
+		stk xyz -help ==> *argv* = ("xyz" "-help")
+
+	- HTML browser enhancement (support of the <FONT> tag with SIZE 
+	  and COLOR sub-tags. This must be compatible with the HTML spec. 
+
+	- and of course many many bug corrections.
+
+See file 'CHANGES' in the distribution main directory for more informations.
+
+SCHEME WITHOUT TK
+-----------------
+
+Standard make build a light version of STk which does not provide support for
+the Tk toolkit. This interpreter, called Snow (Scheme with NO Window), can be
+called directly with the 'snow' shell script. It is implicitly called if 
+your DISPLAY variable is not set.
+
+LEARNING STk
+------------
+
+In Contrib/STk-wtour, you'll find a program (called stk-wtour) which is a kind
+of tutorial for programming widgets in STk. This program, which is a
+contribution of Suresh Srinivas (ssriniva@cs.indiana.edu), is an excellent 
+starting point for learning basics of STk widgets programming.
+
+FILE ORGANIZATION
+-----------------
+
+Stk
+  |___ Contrib	   The contributors directory
+  |___ Demos	   some original Tk demos rewritten for stk plus some other
+  |                stuff found on  the net. 
+  |___ Extensions  This directory contains extensions of the core interpreter
+  |		   (hash tables, POSIX.1 support). See the README file for more 
+  |		   details
+  |___ Doc	   Documentation of STk.		   
+  |___ Help	   Various (HTML) help files for STk.
+  |___ Lib	   a set of Scheme files used by the interpreter
+  |___ Src	   contains source files of stk (i.e. the sources files of the 
+  |		   interpreter + some glue files between Tk and Scheme).
+  |___ Snow	   contains (mostly) links over Src files. This directory 
+  |		   is used to build snow the Scheme interpreter without Tk
+  |		   support
+  |___ STklos      an CLOS-like object extension of Scheme based on the
+  |    |	   Tiny CLOS package.
+  |    |_ Tk       A library of Tk objects based on the STklos object
+  |    |	   extension package (subdirectory Composite contains
+  |    |	   composite widgets definitions	
+  |    |_ Examples A (small) set of examples written in STklos.
+  |___ Tcl	   contains a set of unchanged files of the Tcl library which 
+  |		   pertain in Stk
+  |___ Tk 	   contains a modified version of the Tk library. Most of the
+  |		   files are unchanged; Search the string ORIGINAL_CODE to see
+  |		   performed changes.
+  |___ Win32	   contains file necessary to compile STk under Win32
+
+SUPPORTED ARCHITECTURES
+-----------------------
+
+For now, STk is known to run on the following machine/systems
+
+	- Sparc (SunOs 4.1.x & Solaris 2.{34})
+	- Dec 5xxx (Ultrix 4.2)
+	- SGI (IRIX 4.05, 5.1.1, 5.2)
+	- DEC Alpha 3000/400 (OSF-1 V1.3)
+	- RS6000 AIX 3.2.5	
+	- HP 9000/735 (HP-UX 9.01)
+	- PC (Linux 1.0 -> 2.0)
+	- PC (FreeBSD 1.1) 	  
+	- PC (SCO)		  
+	- PC (NetBSD-1.0)	  
+	- Sony WS (Sony NEWS, NEWSOS 4.2R)
+	- ...
+
+	- Windows 95 (and probably Windows NT) 
+
+If you install it on another architecture/system, please let me now the
+diffs you used such I can integrate them in the next release.
+
+The file COMPILING-HINTS may be useful for compiling STk on your system.
+
+DYNAMIC LOADING
+---------------
+
+Support for dynamic loading is provided for the following architectures/systems
+
+		- SunOs 4.1.x
+		- SunOs 5.3
+		- NetBSD-1.0 (i386-port)
+		- Linux (with the DLD package or ELF format). [ Dynamic
+		  loading is disabled by default. Use -enable-elf or 
+		  -enable-dld to choose the way you want to make dynamic 
+		  loading under Linux]
+		- FreeBSD
+		- HPUX
+		- SGI Irix 5.3 
+
+IMAGE CREATION
+--------------
+
+The following architecture support image creation (dumping the interpreter 
+memory in a file):
+		- SunOs 4.1.x
+		- Linux 1.1 (a.out format only)
+		- FreeBSD
+
+MAILING LIST
+------------
+
+Subscription/unsubscription/info requests to the STk mailing list
+should be sent to 'stk-request@kaolin.unice.fr'
+
+To subscribe to the mailing list, simply send a message with the word
+"subscribe" in the "Subject:" field to the following address:
+'stk-request@kaolin.unice.fr'
+
+To unsubscribe from the mailing list, simply send a message with the
+word (you guessed it :-) "unsubscribe" in the "Subject:" field to
+'stk-request@kaolin.unice.fr'
+
+For more information on the mailing list management send a message
+with the word "help" in the Subject: field to the
+'stk-request@kaolin.unice.fr'
+
+Subscription requests are processed automatically without human
+intervention. If you have a problem, send a mail to
+eg@kaolin.unice.fr.
+
+Messages sent to the mailing list are archived 
+     - in raw format at 
+		ftp://kaolin.unice.fr/pub/Mailing-list/
+     - as hypertext at 
+		http://kaolin.unice.fr/Mlist
+
+STk W3 HOME PAGE
+----------------
+
+The STk W3 home page is located at
+	http://kaolin.unice.fr/STk.html
+
+BUGS
+----
+
+If you find a bug, please report it to stk-bugs@kaolin.unice.fr. 
+
+AUTHOR ADDRESS
+--------------
+
+Erick Gallesio					  tel : (33) 92-96-51-53
+ESSI - I3S					  fax : (33) 92-96-51-55
+Universite de Nice - Sophia Antipolis		email : eg@unice.fr
+Route des colles
+BP 145
+06903 Sophia Antipolis CEDEX
+FRANCE
+
+     
+
diff --git a/STk.prj b/STk.prj
new file mode 100644
index 0000000..bf99f13
--- /dev/null
+++ b/STk.prj
@@ -0,0 +1,1060 @@
+;; -*- Lisp -*-
+(Created-By-Prcs-Version 1 0 0)
+(Project-Description "")
+(Project-Version STk 0 8)
+(Parent-Version STk 0 7)
+(Descends-From -*- -*- -*-)
+(Merge-Parents)
+(New-Merge-Parents)
+(Version-Log "")
+(New-Version-Log "")
+(Checkin-Time "Thu, 26 Sep 1996 23:12:00 +0200")
+(Checkin-Login eg)
+(Populate-Ignore ())
+(Files
+;; This is a comment.  Fill in files here.
+;; For example:  (prcs/checkout.cc ())
+
+; Files added by populate at Tue, 17 Sep 1996 13:12:27 +0200:
+
+  (BINARY_DISTRIB (STk/1_BINARY_DIS 1.1 644))
+  (VERSION (STk/2_VERSION 1.1 644))
+  (Utils () :directory)
+  (Win32/STk-inst.bat (STk/1_STk-inst.b 1.1 644))
+  (Win32/README (STk/13_README 1.1 644))
+  (Win32/STk.def (STk/1_STk.def 1.1 644))
+  (Win32/STk.rc (STk/1_STk.rc 1.1 644))
+  (Win32/STk-make.bc (STk/1_STk-make.b 1.3 644))
+  (Win32/STk.ico (STk/1_STk.ico 1.1 644) :no-keywords)
+  (INSTALL (STk/2_INSTALL 1.1 644))
+  (configure.in (STk/6_configure. 1.2 644))
+  (Help/YellowIndex.html (STk/1_YellowInde 1.1 644))
+  (Help/BlueIndex.html (STk/1_BlueIndex. 1.1 644))
+  (Help/GreenIndex.html (STk/1_GreenIndex 1.1 644))
+  (Help/stk.1.html (STk/1_stk.1.html 1.1 644))
+  (Help/wm.n.html (STk/1_wm.n.html 1.1 644))
+  (Help/winfo.n.html (STk/1_winfo.n.ht 1.1 644))
+  (Help/update.n.html (STk/1_update.n.h 1.1 644))
+  (Help/toplevel.n.html (STk/2_toplevel.n 1.1 644))
+  (Help/tkwait.n.html (STk/1_tkwait.n.h 1.1 644))
+  (Help/tkvars.n.html (STk/1_tkvars.n.h 1.1 644))
+  (Help/tk.n.html (STk/1_tk.n.html 1.1 644))
+  (Help/text.n.html (STk/1_text.n.htm 1.1 644))
+  (Help/send.n.html (STk/1_send.n.htm 1.1 644))
+  (Help/selection.n.html (STk/3_selection. 1.1 644))
+  (Help/scrollbar.n.html (STk/3_scrollbar. 1.1 644))
+  (Help/report-error.n.html (STk/2_report-err 1.1 644))
+  (Help/scale.n.html (STk/1_scale.n.ht 1.1 644))
+  (Help/raise.n.html (STk/1_raise.n.ht 1.1 644))
+  (Help/radiobutton.n.html (STk/3_radiobutto 1.1 644))
+  (Help/posix.n.html (STk/1_posix.n.ht 1.1 644))
+  (Help/popup.n.html (STk/1_popup.n.ht 1.1 644))
+  (Help/place.n.html (STk/1_place.n.ht 1.1 644))
+  (Help/photo.n.html (STk/1_photo.n.ht 1.1 644))
+  (Help/palette.n.html (STk/1_palette.n. 1.1 644))
+  (Help/pack.n.html (STk/1_pack.n.htm 1.1 644))
+  (Help/option.n.html (STk/1_option.n.h 1.1 644))
+  (Help/option-menu.n.html (STk/2_option-men 1.1 644))
+  (Help/message.n.html (STk/1_message.n. 1.1 644))
+  (Help/menubutton.n.html (STk/2_menubutton 1.1 644))
+  (Help/menu.n.html (STk/1_menu.n.htm 1.1 644))
+  (Help/make-dialog.n.html (STk/2_make-dialo 1.2 644))
+  (Help/lower.n.html (STk/1_lower.n.ht 1.1 644))
+  (Help/listener.n.html (STk/2_listener.n 1.1 644))
+  (Help/listbox.n.html (STk/1_listbox.n. 1.2 644))
+  (Help/label.n.html (STk/1_label.n.ht 1.1 644))
+  (Help/image.n.html (STk/1_image.n.ht 1.1 644))
+  (Help/grid.n.html (STk/1_grid.n.htm 1.1 644))
+  (Help/grab.n.html (STk/1_grab.n.htm 1.1 644))
+  (Help/ftp.n.html (STk/1_ftp.n.html 1.1 644))
+  (Help/frame.n.html (STk/1_frame.n.ht 1.1 644))
+  (Help/focus.n.html (STk/1_focus.n.ht 1.1 644))
+  (Help/focus-next.n.html (STk/2_focus-next 1.1 644))
+  (Help/entry.n.html (STk/1_entry.n.ht 1.1 644))
+  (Help/destroy.n.html (STk/1_destroy.n. 1.1 644))
+  (Help/clipboard.n.html (STk/2_clipboard. 1.1 644))
+  (Help/checkbutton.n.html (STk/3_checkbutto 1.1 644))
+  (Help/canvas.n.html (STk/1_canvas.n.h 1.1 644))
+  (Help/button.n.html (STk/1_button.n.h 1.1 644))
+  (Help/bitmap.n.html (STk/1_bitmap.n.h 1.1 644))
+  (Help/bindtags.n.html (STk/2_bindtags.n 1.1 644))
+  (Help/amib-hlp.html (STk/1_amib-hlp.h 1.1 644))
+  (Help/options.n.html (STk/1_options.n. 1.1 644))
+  (Help/Img/RefBookYellow.gif (STk/1_RefBookYel 1.1 644) :no-keywords)
+  (Help/Img/ManPageYellow.gif (STk/1_ManPageYel 1.1 644) :no-keywords)
+  (Help/Img/YellowBall.gif (STk/1_YellowBall 1.1 644) :no-keywords)
+  (Help/Img/WhiteBall.gif (STk/1_WhiteBall. 1.1 644) :no-keywords)
+  (Help/Img/ManPageWhite.gif (STk/1_ManPageWhi 1.1 644) :no-keywords)
+  (Help/Img/RefBookWhite.gif (STk/1_RefBookWhi 1.1 644) :no-keywords)
+  (Help/Img/line-red.gif (STk/1_line-red.g 1.1 644) :no-keywords)
+  (Help/Img/classeur.gif (STk/1_classeur.g 1.1 644) :no-keywords)
+  (Help/Img/STk-small.gif (STk/1_STk-small. 1.1 644) :no-keywords)
+  (Help/Img/RefBookGreen.gif (STk/1_RefBookGre 1.1 644) :no-keywords)
+  (Help/Img/RefBookBlue.gif (STk/1_RefBookBlu 1.1 644) :no-keywords)
+  (Help/Img/ManPageGreen.gif (STk/1_ManPageGre 1.1 644) :no-keywords)
+  (Help/Img/ManPageBlue.gif (STk/1_ManPageBlu 1.1 644) :no-keywords)
+  (Help/Img/GreenBall.gif (STk/1_GreenBall. 1.1 644) :no-keywords)
+  (Help/Img/BlueBall.gif (STk/1_BlueBall.g 1.1 644) :no-keywords)
+  (Help/Img/back.gif (STk/1_back.gif 1.1 644) :no-keywords)
+  (Help/Img/smile.sad.gif (STk/1_smile.sad. 1.1 644) :no-keywords)
+  (Help/Img/colorline.gif (STk/1_colorline. 1.1 644) :no-keywords)
+  (Help/Img/home.gif (STk/1_home.gif 1.1 644) :no-keywords)
+  (Help/Img/note.gif (STk/1_note.gif 1.1 644) :no-keywords)
+  (Help/bind.n.html (STk/1_bind.n.htm 1.1 644))
+  (Help/Makefile (STk/16_Makefile 1.1 644))
+  (Help/amib-abt.html (STk/1_amib-abt.h 1.1 644))
+  (Help/bell.n.html (STk/1_bell.n.htm 1.1 644))
+  (Help/STk-hlp.html (STk/1_STk-hlp.ht 1.1 644))
+  (Help/after.n.html (STk/1_after.n.ht 1.1 644))
+  (Help/error-hlp.html (STk/1_error-hlp. 1.1 644))
+  (Help/fbox-hlp.html (STk/1_fbox-hlp.h 1.1 644))
+  (ChangeLog (STk/2_ChangeLog 1.4 644))
+  (Extensions/pixmap.c (STk/1_pixmap.c 1.1 644))
+  (Extensions/html.c (STk/1_html.c 1.1 644))
+  (Extensions/hash.c (STk/1_hash.c 1.1 644))
+  (Extensions/Makefile.sample (STk/1_Makefile.s 1.1 644))
+  (Extensions/stack.c (STk/1_stack.c 1.1 644))
+  (Extensions/configure (STk/6_configure 1.1 755))
+  (Extensions/configure.in (STk/7_configure. 1.1 644))
+  (Extensions/posix.c (STk/1_posix.c 1.2 644))
+  (Extensions/sregexp.c (STk/1_sregexp.c 1.1 644))
+  (Extensions/Makefile.in (STk/5_Makefile.i 1.1 644))
+  (Extensions/process.c (STk/2_process.c 1.1 644))
+  (Extensions/socket.c (STk/2_socket.c 1.2 644))
+  (Extensions/%README (STk/6_%README 1.1 644))
+  (Extensions/when.c (STk/1_when.c 1.1 644))
+  (Extensions/time.c (STk/1_time.c 1.1 644))
+  (COMPILING-HINTS (STk/1_COMPILING- 1.1 644))
+  (Snow/pixmap.c (../Extensions/pixmap.c) :symlink)
+  (Snow/signal.c (../Src/signal.c) :symlink)
+  (Snow/html.c (../Extensions/html.c) :symlink)
+  (Snow/run-snow.in (STk/1_run-snow.i 1.1 644))
+  (Snow/test-snow (STk/1_test-snow 1.1 755))
+  (Snow/dummy.c (../Src/dummy.c) :symlink)
+  (Snow/vector.c (../Src/vector.c) :symlink)
+  (Snow/userinit.c (../Src/userinit.c) :symlink)
+  (Snow/unix.c (../Src/unix.c) :symlink)
+  (Snow/toplevel.c (../Src/toplevel.c) :symlink)
+  (Snow/extend.c (../Src/extend.c) :symlink)
+  (Snow/tcl-util.c (../Src/tcl-util.c) :symlink)
+  (Snow/extend.h (../Src/extend.h) :symlink)
+  (Snow/trace.c (../Src/trace.c) :symlink)
+  (Snow/tcl-lib.c (../Src/tcl-lib.c) :symlink)
+  (Snow/syntax.c (../Src/syntax.c) :symlink)
+  (Snow/symbol.c (../Src/symbol.c) :symlink)
+  (Snow/str.c (../Src/str.c) :symlink)
+  (Snow/stklos.c (../Src/stklos.c) :symlink)
+  (Snow/stk.h (../Src/stk.h) :symlink)
+  (Snow/stk.c (../Src/stk.c) :symlink)
+  (Snow/sregexp.c (../Src/sregexp.c) :symlink)
+  (Snow/sport.c (../Src/sport.c) :symlink)
+  (Snow/socket.c (../Src/socket.c) :symlink)
+  (Snow/slib.c (../Src/slib.c) :symlink)
+  (Snow/read.c (../Src/read.c) :symlink)
+  (Snow/promise.c (../Src/promise.c) :symlink)
+  (Snow/process.c (../Src/process.c) :symlink)
+  (Snow/proc.c (../Src/proc.c) :symlink)
+  (Snow/posix.c (../Extensions/posix.c) :symlink)
+  (Snow/print.c (../Src/print.c) :symlink)
+  (Snow/primitives.c (../Src/primitives.c) :symlink)
+  (Snow/port.c (../Src/port.c) :symlink)
+  (Snow/number.c (../Src/number.c) :symlink)
+  (Snow/macros.c (../Src/macros.c) :symlink)
+  (Snow/list.c (../Src/list.c) :symlink)
+  (Snow/keyword.c (../Src/keyword.c) :symlink)
+  (Snow/io.c (../Src/io.c) :symlink)
+  (Snow/gc.h (../Src/gc.h) :symlink)
+  (Snow/gc.c (../Src/gc.c) :symlink)
+  (Snow/eval.c (../Src/eval.c) :symlink)
+  (Snow/error.c (../Src/error.c) :symlink)
+  (Snow/env.c (../Src/env.c) :symlink)
+  (Snow/dynload.c (../Src/dynload.c) :symlink)
+  (Snow/dump.c (../Src/dump.c) :symlink)
+  (Snow/cont.c (../Src/cont.c) :symlink)
+  (Snow/configure.in (../Src/configure.in) :symlink)
+  (Snow/sport.h (../Src/sport.h) :symlink)
+  (Snow/char.c (../Src/char.c) :symlink)
+  (Snow/hash.c (../Extensions/hash.c) :symlink)
+  (Snow/boolean.c (../Src/boolean.c) :symlink)
+  (Snow/argv.c (../Src/argv.c) :symlink)
+  (Snow/stklos.h (../Src/stklos.h) :symlink)
+  (Snow/address.c (../Src/address.c) :symlink)
+  (Snow/Makefile (../Src/Makefile) :symlink)
+  (Snow/configure (../Src/configure) :symlink)
+  (configure (STk/7_configure 1.2 755))
+  (Makefile.in (STk/6_Makefile.i 1.3 644))
+  (CHANGES (STk/2_CHANGES 1.3 644))
+  (README (STk/14_README 1.1 644))
+  (COPYRIGHTS (STk/1_COPYRIGHTS 1.1 644))
+  (Doc/FAQ/FAQ-6.html (STk/1_FAQ-6.html 1.1 644))
+  (Doc/FAQ/FAQ-5.html (STk/1_FAQ-5.html 1.1 644))
+  (Doc/FAQ/FAQ-4.html (STk/1_FAQ-4.html 1.1 644))
+  (Doc/FAQ/FAQ-3.html (STk/1_FAQ-3.html 1.1 644))
+  (Doc/FAQ/FAQ-2.html (STk/1_FAQ-2.html 1.1 644))
+  (Doc/FAQ/FAQ-1.html (STk/1_FAQ-1.html 1.1 644))
+  (Doc/FAQ/FAQ.html (STk/1_FAQ.html 1.1 644))
+  (Doc/FAQ/FAQ.dvi (STk/1_FAQ.dvi 1.1 644) :no-keywords)
+  (Doc/FAQ/FAQ.ps (STk/1_FAQ.ps 1.1 644))
+  (Doc/FAQ/FAQ.txt (STk/1_FAQ.txt 1.1 644))
+  (Doc/Isotas96/Isotas96.ps (STk/1_Isotas96.p 1.2 644))
+  (Doc/Isotas96/mop.tex (STk/1_mop.tex 1.1 644))
+  (Doc/Isotas96/mop.stk (STk/1_mop.stk 1.1 644))
+  (Doc/Isotas96/llncs.sty (STk/1_llncs.sty 1.1 644))
+  (Doc/Isotas96/hierarchy.fig (STk/6_hierarchy. 1.1 644))
+  (Doc/Isotas96/hierarchy.eps (STk/7_hierarchy. 1.1 644))
+  (Doc/Isotas96/eg-commands.sty (STk/2_eg-command 1.1 644))
+  (Doc/Isotas96/bibliography.bib (../bibliography.bib) :symlink)
+  (Doc/Isotas96/Isotas96.tex (STk/1_Isotas96.t 1.1 644))
+  (Doc/Isotas96/Makefile (STk/17_Makefile 1.1 644))
+  (Doc/bibliography.bib (STk/1_bibliograp 1.1 644))
+  (Doc/Tcl93/bibliography.bib (../Reference/bibliography.bib) :symlink)
+  (Doc/Tcl93/README (STk/15_README 1.1 644))
+  (Doc/Tcl93/tcl.sty (STk/1_tcl.sty 1.1 644))
+  (Doc/Tcl93/hierarchy.fig (STk/8_hierarchy. 1.1 640))
+  (Doc/Tcl93/hierarchy.eps (STk/9_hierarchy. 1.1 640))
+  (Doc/Tcl93/Tcl93.tex (STk/1_Tcl93.tex 1.1 644))
+  (Doc/Tcl93/Tcl93.ps (STk/1_Tcl93.ps 1.1 644))
+  (Doc/Makefile (STk/18_Makefile 1.1 644))
+  (Doc/Xhibition94/Xhibition94.ps (STk/1_Xhibition9 1.1 644))
+  (Doc/STklos+Tk/STklos+Tk.ps (STk/2_STklos+Tk. 1.2 644))
+  (Doc/STklos+Tk/Packing-demo.ps (STk/1_Packing-de 1.1 644))
+  (Doc/STklos+Tk/Fig2-2.eps (STk/1_Fig2-2.eps 1.1 644))
+  (Doc/STklos+Tk/Fig1-1.eps (Fig1-1.idraw) :symlink)
+  (Doc/STklos+Tk/STklos+Tk.tex (STk/3_STklos+Tk. 1.1 644))
+  (Doc/STklos+Tk/Makefile (STk/19_Makefile 1.1 640))
+  (Doc/STklos+Tk/Fig1-2.idraw (STk/1_Fig1-2.idr 1.1 640))
+  (Doc/STklos+Tk/Fig1-1.idraw (STk/1_Fig1-1.idr 1.1 640))
+  (Doc/STklos+Tk/Chap2.tex (STk/1_Chap2.tex 1.1 640))
+  (Doc/STklos+Tk/browser.stklos (STk/1_browser.st 1.1 644))
+  (Doc/STklos+Tk/Chap1.tex (STk/1_Chap1.tex 1.1 644))
+  (Doc/STklos+Tk/Basic-Fig-1.ps (STk/1_Basic-Fig- 1.1 644))
+  (Doc/Extension/Extending.ps (STk/2_Extending. 1.2 644))
+  (Doc/Extension/bibliography.bib (../Reference/bibliography.bib) :symlink)
+  (Doc/Extension/eg-commands.sty (../Reference/eg-commands.sty) :symlink)
+  (Doc/Extension/stack.c (../../Extensions/stack.c) :symlink)
+  (Doc/Extension/posix.c (../../Extensions/posix.c) :symlink)
+  (Doc/Extension/Makefile (STk/20_Makefile 1.1 644))
+  (Doc/Extension/Extending.tex (STk/3_Extending. 1.1 644))
+  (Doc/Extension/time.c (../../Extensions/time.c) :symlink)
+  (Doc/Extension/hash.c (../../Extensions/hash.c) :symlink)
+  (Doc/%README (STk/7_%README 1.1 644))
+  (Doc/Reference/manual.ps (STk/1_manual.ps 1.2 644))
+  (Doc/Reference/Detail.ps (STk/1_Detail.ps 1.1 644))
+  (Doc/Reference/manual.tex (STk/1_manual.tex 1.1 644))
+  (Doc/Reference/index.stk (STk/1_index.stk 1.1 644))
+  (Doc/Reference/hierarchy.fig (STk/10_hierarchy. 1.1 644))
+  (Doc/Reference/hierarchy.eps (STk/11_hierarchy. 1.1 644))
+  (Doc/Reference/eg-commands.sty (STk/3_eg-command 1.1 644))
+  (Doc/Reference/commands.tex (STk/1_commands.t 1.1 644))
+  (Doc/Reference/View.ps (STk/1_View.ps 1.1 644))
+  (Doc/Reference/Reference2.tex (STk/1_Reference2 1.1 644))
+  (Doc/Reference/Reference1.tex (STk/1_Reference1 1.1 644))
+  (Doc/Reference/Makefile (STk/21_Makefile 1.1 644))
+  (Doc/Reference/Inspector.ps (STk/1_Inspector. 1.1 644))
+  (Doc/Reference/Appendix-D.tex (STk/1_Appendix-D 1.1 644))
+  (Doc/Reference/Appendix-C.tex (STk/1_Appendix-C 1.1 644))
+  (Doc/Reference/bibliography.bib (../bibliography.bib) :symlink)
+  (Doc/Reference/Appendix-B.tex (STk/1_Appendix-B 1.1 644))
+  (Doc/Reference/Appendix-A.tex (STk/1_Appendix-A 1.1 644))
+  (Doc/Manual/stk.txt (STk/1_stk.txt 1.2 644))
+  (Doc/Manual/Makefile (STk/22_Makefile 1.1 644))
+  (Doc/Manual/wm.n (STk/1_wm.n 1.1 644))
+  (Doc/Manual/winfo.n (STk/1_winfo.n 1.1 644))
+  (Doc/Manual/update.n (STk/1_update.n 1.1 644))
+  (Doc/Manual/toplevel.n (STk/3_toplevel.n 1.1 644))
+  (Doc/Manual/stk.ps (STk/1_stk.ps 1.2 644))
+  (Doc/Manual/tkwait.n (STk/1_tkwait.n 1.1 644))
+  (Doc/Manual/tkvars.n (STk/1_tkvars.n 1.1 644))
+  (Doc/Manual/text.n (STk/1_text.n 1.1 644))
+  (Doc/Manual/send.n (STk/1_send.n 1.1 644))
+  (Doc/Manual/selection.n (STk/4_selection. 1.1 644))
+  (Doc/Manual/scrollbar.n (STk/4_scrollbar. 1.1 644))
+  (Doc/Manual/scale.n (STk/1_scale.n 1.1 644))
+  (Doc/Manual/report-error.n (STk/3_report-err 1.1 644))
+  (Doc/Manual/raise.n (STk/1_raise.n 1.1 644))
+  (Doc/Manual/radiobutton.n (STk/4_radiobutto 1.1 644))
+  (Doc/Manual/popup.n (STk/1_popup.n 1.1 644))
+  (Doc/Manual/place.n (STk/1_place.n 1.1 644))
+  (Doc/Manual/photo.n (STk/1_photo.n 1.1 644))
+  (Doc/Manual/palette.n (STk/1_palette.n 1.1 644))
+  (Doc/Manual/pack.n (STk/1_pack.n 1.1 644))
+  (Doc/Manual/options.n (STk/1_options.n 1.1 644))
+  (Doc/Manual/option.n (STk/1_option.n 1.1 644))
+  (Doc/Manual/option-menu.n (STk/3_option-men 1.1 644))
+  (Doc/Manual/message.n (STk/1_message.n 1.1 644))
+  (Doc/Manual/menubutton.n (STk/3_menubutton 1.1 644))
+  (Doc/Manual/menu.n (STk/1_menu.n 1.1 644))
+  (Doc/Manual/make-dialog.n (STk/3_make-dialo 1.1 644))
+  (Doc/Manual/lower.n (STk/1_lower.n 1.1 644))
+  (Doc/Manual/listbox.n (STk/1_listbox.n 1.1 644))
+  (Doc/Manual/label.n (STk/1_label.n 1.1 644))
+  (Doc/Manual/image.n (STk/1_image.n 1.1 644))
+  (Doc/Manual/grid.n (STk/1_grid.n 1.1 644))
+  (Doc/Manual/grab.n (STk/1_grab.n 1.1 644))
+  (Doc/Manual/frame.n (STk/1_frame.n 1.1 644))
+  (Doc/Manual/focus.n (STk/1_focus.n 1.1 644))
+  (Doc/Manual/focus-next.n (STk/3_focus-next 1.1 644))
+  (Doc/Manual/entry.n (STk/1_entry.n 1.1 644))
+  (Doc/Manual/destroy.n (STk/1_destroy.n 1.1 644))
+  (Doc/Manual/clipboard.n (STk/3_clipboard. 1.1 644))
+  (Doc/Manual/checkbutton.n (STk/4_checkbutto 1.1 644))
+  (Doc/Manual/canvas.n (STk/1_canvas.n 1.1 644))
+  (Doc/Manual/bitmap.n (STk/1_bitmap.n 1.1 644))
+  (Doc/Manual/bindtags.n (STk/3_bindtags.n 1.1 644))
+  (Doc/Manual/bind.n (STk/1_bind.n 1.1 644))
+  (Doc/Manual/button.n (STk/1_button.n 1.1 644))
+  (Doc/Manual/posix.n (STk/1_posix.n 1.1 644))
+  (Doc/Manual/STk-man.macros (STk/1_STk-man.ma 1.1 644))
+  (Doc/Manual/tk.n (STk/1_tk.n 1.1 644))
+  (Doc/Manual/bell.n (STk/1_bell.n 1.1 644))
+  (Doc/Manual/listener.n (STk/3_listener.n 1.1 644))
+  (Doc/Manual/ftp.n (STk/1_ftp.n 1.1 644))
+  (Doc/Manual/stk.1 (STk/1_stk.1 1.1 444))
+  (Doc/Manual/after.n (STk/1_after.n 1.1 644))
+  (Mp/fgmp-1.0b5/Makefile (STk/23_Makefile 1.1 644))
+  (Mp/fgmp-1.0b5/notes (STk/1_notes 1.1 644))
+  (Mp/fgmp-1.0b5/gmp.h (STk/2_gmp.h 1.1 644))
+  (Mp/fgmp-1.0b5/gmp.c (STk/1_gmp.c 1.1 644))
+  (Mp/README (STk/16_README 1.1 644))
+  (Mp/Makefile (STk/24_Makefile 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-sqrtrem.c (STk/1_tst-sqrtre 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-pow_ui.c (STk/1_tst-pow_ui 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-mul.c (STk/1_tst-mul.c 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-mdm_ui.c (STk/1_tst-mdm_ui 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-mdm.c (STk/1_tst-mdm.c 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-gcd.c (STk/1_tst-gcd.c 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-dm_ui.c (STk/1_tst-dm_ui. 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-dm.c (STk/1_tst-dm.c 1.1 644))
+  (Mp/gmp-1.3.2/tests/tst-convert.c (STk/1_tst-conver 1.1 644))
+  (Mp/gmp-1.3.2/tests/urandom.h (STk/1_urandom.h 1.1 644))
+  (Mp/gmp-1.3.2/tests/Makefile (STk/25_Makefile 1.1 644))
+  (Mp/gmp-1.3.2/mpz_dmincl.c (STk/1_mpz_dmincl 1.1 644))
+  (Mp/gmp-1.3.2/cre-stddefh.c (STk/1_cre-stddef 1.1 644))
+  (Mp/gmp-1.3.2/cre-conv-tab.c (STk/1_cre-conv-t 1.1 644))
+  (Mp/gmp-1.3.2/cre-mparam.c (STk/1_cre-mparam 1.1 644))
+  (Mp/gmp-1.3.2/alloca.c (STk/1_alloca.c 1.1 644))
+  (Mp/gmp-1.3.2/mp_clz_tab.c (STk/1_mp_clz_tab 1.1 644))
+  (Mp/gmp-1.3.2/mpz_realloc.c (STk/1_mpz_reallo 1.1 644))
+  (Mp/gmp-1.3.2/_mpz_get_str.c (STk/1__mpz_get_s 1.1 644))
+  (Mp/gmp-1.3.2/_mpz_set_str.c (STk/1__mpz_set_s 1.1 644))
+  (Mp/gmp-1.3.2/mp_set_fns.c (STk/1_mp_set_fns 1.1 644))
+  (Mp/gmp-1.3.2/memory.c (STk/1_memory.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_sqrt.c (STk/1_mpn_sqrt.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_rshiftci.c (STk/2_mpn_rshift 1.1 644))
+  (Mp/gmp-1.3.2/mpn_rshift.c (STk/3_mpn_rshift 1.1 644))
+  (Mp/gmp-1.3.2/mpn_lshift.c (STk/1_mpn_lshift 1.1 644))
+  (Mp/gmp-1.3.2/mpn_mod_1.c (STk/1_mpn_mod_1. 1.1 644))
+  (Mp/gmp-1.3.2/mpn_dm_1.c (STk/1_mpn_dm_1.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_div.c (STk/1_mpn_div.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_mul.c (STk/1_mpn_mul.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_cmp.c (STk/1_mpn_cmp.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_sub.c (STk/1_mpn_sub.c 1.1 644))
+  (Mp/gmp-1.3.2/mpn_add.c (STk/1_mpn_add.c 1.1 644))
+  (Mp/gmp-1.3.2/mfree.c (STk/1_mfree.c 1.1 644))
+  (Mp/gmp-1.3.2/min.c (STk/1_min.c 1.1 644))
+  (Mp/gmp-1.3.2/mout.c (STk/1_mout.c 1.1 644))
+  (Mp/gmp-1.3.2/sdiv.c (STk/1_sdiv.c 1.1 644))
+  (Mp/gmp-1.3.2/xtom.c (STk/1_xtom.c 1.1 644))
+  (Mp/gmp-1.3.2/mtox.c (STk/1_mtox.c 1.1 644))
+  (Mp/gmp-1.3.2/move.c (STk/1_move.c 1.1 644))
+  (Mp/gmp-1.3.2/mdiv.c (STk/1_mdiv.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_neg.c (STk/1_mpq_neg.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_inv.c (STk/1_mpq_inv.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_cmp.c (STk/1_mpq_cmp.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_clear.c (STk/1_mpq_clear. 1.1 644))
+  (Mp/gmp-1.3.2/mpq_div.c (STk/1_mpq_div.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_mul.c (STk/1_mpq_mul.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_sub.c (STk/1_mpq_sub.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_add.c (STk/1_mpq_add.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_get_den.c (STk/1_mpq_get_de 1.1 644))
+  (Mp/gmp-1.3.2/mpq_get_num.c (STk/1_mpq_get_nu 1.1 644))
+  (Mp/gmp-1.3.2/mpq_set_den.c (STk/1_mpq_set_de 1.1 644))
+  (Mp/gmp-1.3.2/mpq_set_num.c (STk/1_mpq_set_nu 1.1 644))
+  (Mp/gmp-1.3.2/mpq_set_si.c (STk/1_mpq_set_si 1.1 644))
+  (Mp/gmp-1.3.2/mpq_set_ui.c (STk/1_mpq_set_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpq_set.c (STk/1_mpq_set.c 1.1 644))
+  (Mp/gmp-1.3.2/mpq_init.c (STk/1_mpq_init.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_pprime_p.c (STk/1_mpz_pprime 1.1 644))
+  (Mp/gmp-1.3.2/mpz_fac_ui.c (STk/1_mpz_fac_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_clrbit.c (STk/1_mpz_clrbit 1.1 644))
+  (Mp/gmp-1.3.2/mpz_pow_ui.c (STk/1_mpz_pow_ui 1.1 644))
+  (Mp/gmp-1.3.2/itom.c (STk/1_itom.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_random2.c (STk/2_mpz_random 1.1 644))
+  (Mp/gmp-1.3.2/mpz_random.c (STk/3_mpz_random 1.1 644))
+  (Mp/gmp-1.3.2/mpz_perfsqr.c (STk/1_mpz_perfsq 1.1 644))
+  (Mp/gmp-1.3.2/mpz_out_str.c (STk/1_mpz_out_st 1.1 644))
+  (Mp/gmp-1.3.2/mpz_out_raw.c (STk/1_mpz_out_ra 1.1 644))
+  (Mp/gmp-1.3.2/mpz_inp_str.c (STk/1_mpz_inp_st 1.1 644))
+  (Mp/gmp-1.3.2/mpz_inp_raw.c (STk/1_mpz_inp_ra 1.1 644))
+  (Mp/gmp-1.3.2/mpz_ior.c (STk/1_mpz_ior.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_and.c (STk/1_mpz_and.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_com.c (STk/1_mpz_com.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_neg.c (STk/1_mpz_neg.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_abs.c (STk/1_mpz_abs.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mod_2exp.c (STk/1_mpz_mod_2e 1.1 644))
+  (Mp/gmp-1.3.2/mpz_div_2exp.c (STk/1_mpz_div_2e 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mul_2exp.c (STk/1_mpz_mul_2e 1.1 644))
+  (Mp/gmp-1.3.2/mpz_cmp_si.c (STk/1_mpz_cmp_si 1.1 644))
+  (Mp/gmp-1.3.2/mpz_cmp_ui.c (STk/1_mpz_cmp_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_cmp.c (STk/1_mpz_cmp.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_powm_ui.c (STk/1_mpz_powm_u 1.1 644))
+  (Mp/gmp-1.3.2/mpz_powm.c (STk/1_mpz_powm.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_sqrtrem.c (STk/1_mpz_sqrtre 1.1 644))
+  (Mp/gmp-1.3.2/mpz_sqrt.c (STk/1_mpz_sqrt.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_gcdext.c (STk/1_mpz_gcdext 1.1 644))
+  (Mp/gmp-1.3.2/mpz_gcd.c (STk/1_mpz_gcd.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mdm_ui.c (STk/1_mpz_mdm_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mmod_ui.c (STk/1_mpz_mmod_u 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mdiv_ui.c (STk/1_mpz_mdiv_u 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mdm.c (STk/1_mpz_mdm.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mmod.c (STk/1_mpz_mmod.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mdiv.c (STk/1_mpz_mdiv.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_dm_ui.c (STk/1_mpz_dm_ui. 1.1 644))
+  (Mp/gmp-1.3.2/mpz_dm.c (STk/1_mpz_dm.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mod_ui.c (STk/1_mpz_mod_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mod.c (STk/1_mpz_mod.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_div_ui.c (STk/1_mpz_div_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_div.c (STk/1_mpz_div.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mul_ui.c (STk/1_mpz_mul_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_mul.c (STk/1_mpz_mul.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_sub_ui.c (STk/1_mpz_sub_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_sub.c (STk/1_mpz_sub.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_add_ui.c (STk/1_mpz_add_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_add.c (STk/1_mpz_add.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_sizeinb.c (STk/1_mpz_sizein 1.1 644))
+  (Mp/gmp-1.3.2/mpz_size.c (STk/1_mpz_size.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_get_str.c (STk/1_mpz_get_st 1.1 644))
+  (Mp/gmp-1.3.2/mpz_get_si.c (STk/1_mpz_get_si 1.1 644))
+  (Mp/gmp-1.3.2/mpz_get_ui.c (STk/1_mpz_get_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_clear.c (STk/1_mpz_clear. 1.1 644))
+  (Mp/gmp-1.3.2/mpz_iset_str.c (STk/2_mpz_iset_s 1.1 644))
+  (Mp/gmp-1.3.2/mpz_iset_si.c (STk/3_mpz_iset_s 1.1 644))
+  (Mp/gmp-1.3.2/mpz_iset_ui.c (STk/1_mpz_iset_u 1.1 644))
+  (Mp/gmp-1.3.2/mpz_iset.c (STk/1_mpz_iset.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_set_str.c (STk/1_mpz_set_st 1.1 644))
+  (Mp/gmp-1.3.2/mpz_set_si.c (STk/1_mpz_set_si 1.1 644))
+  (Mp/gmp-1.3.2/mpz_set_ui.c (STk/1_mpz_set_ui 1.1 644))
+  (Mp/gmp-1.3.2/mpz_set.c (STk/1_mpz_set.c 1.1 644))
+  (Mp/gmp-1.3.2/mpz_init.c (STk/1_mpz_init.c 1.1 644))
+  (Mp/gmp-1.3.2/longlong.h (STk/1_longlong.h 1.1 644))
+  (Mp/gmp-1.3.2/gmp-impl.h (STk/1_gmp-impl.h 1.1 644))
+  (Mp/gmp-1.3.2/gmp.h (STk/3_gmp.h 1.1 644))
+  (Mp/gmp-1.3.2/mp.h (STk/1_mp.h 1.1 644))
+  (Mp/gmp-1.3.2/ChangeLog (STk/3_ChangeLog 1.1 644))
+  (Mp/gmp-1.3.2/Makefile (STk/26_Makefile 1.1 644))
+  (Mp/gmp-1.3.2/gmp.texi (STk/1_gmp.texi 1.1 644))
+  (Mp/gmp-1.3.2/TODO (STk/1_TODO 1.1 644))
+  (Mp/gmp-1.3.2/INSTALL (STk/3_INSTALL 1.1 644))
+  (Mp/gmp-1.3.2/README (STk/17_README 1.1 644))
+  (Mp/gmp-1.3.2/VERSION (STk/3_VERSION 1.1 644))
+  (Mp/gmp-1.3.2/COPYING (STk/1_COPYING 1.1 644))
+  (Demos/mc-server.stk (STk/1_mc-server. 1.1 755))
+  (Demos/ttt.stk (STk/1_ttt.stk 1.1 755))
+  (Demos/STk-normal.gif (../Lib/images/STk-normal.gif) :symlink)
+  (Demos/tkcolor.stklos (STk/1_tkcolor.st 1.1 755))
+  (Demos/wtour.stk (../Contrib/STk-wtour/lib/wtour.stk) :symlink)
+  (Demos/README.html (STk/1_README.htm 1.1 644))
+  (Demos/hbrowse.stklos (STk/1_hbrowse.st 1.1 644))
+  (Demos/term.stk (STk/1_term.stk 1.1 755))
+  (Demos/calc.stklos (STk/1_calc.stklo 1.1 755))
+  (Demos/filebox.stklos (STk/1_filebox.st 1.1 755))
+  (Demos/server.stk (STk/1_server.stk 1.1 755))
+  (Demos/inspector.stk (STk/1_inspector. 1.1 755))
+  (Demos/queens.stk (STk/1_queens.stk 1.1 755))
+  (Demos/compo-demo.stklos (STk/1_compo-demo 1.1 755))
+  (Demos/browse.stklos (STk/2_browse.stk 1.1 755))
+  (Demos/amib.stklos (STk/1_amib.stklo 1.2 555))
+  (Demos/stklos-demo2.stklos (STk/2_stklos-dem 1.1 755))
+  (Demos/stklos-demo.stklos (STk/3_stklos-dem 1.1 755))
+  (Demos/stetris.stk (../Contrib/Stetris/stetris.stk) :symlink)
+  (Demos/Widget/Warrow.stklos (STk/1_Warrow.stk 1.1 644))
+  (Demos/Widget/Wsearch.stklos (STk/1_Wsearch.st 1.1 644))
+  (Demos/Widget/Wdialog2.stklos (STk/1_Wdialog2.s 1.1 644))
+  (Demos/Widget/Whscale.stklos (STk/1_Whscale.st 1.1 644))
+  (Demos/Widget/Wvscale.stklos (STk/1_Wvscale.st 1.1 644))
+  (Demos/Widget/Wstyles.stklos (STk/1_Wstyles.st 1.1 644))
+  (Demos/Widget/Wdialog1.stklos (STk/1_Wdialog1.s 1.1 644))
+  (Demos/Widget/Wwind.stklos (STk/1_Wwind.stkl 1.1 644))
+  (Demos/Widget/Wtext.stklos (STk/1_Wtext.stkl 1.1 644))
+  (Demos/Widget/Wform.stklos (STk/1_Wform.stkl 1.2 644))
+  (Demos/Widget/Wbitmap.stklos (STk/1_Wbitmap.st 1.1 644))
+  (Demos/Widget/Wmenu.stklos (STk/1_Wmenu.stkl 1.1 644))
+  (Demos/Widget/Wentry1.stklos (STk/1_Wentry1.st 1.1 644))
+  (Demos/Widget/Wimage1.stklos (STk/1_Wimage1.st 1.1 644))
+  (Demos/Widget/Witems.stklos (STk/1_Witems.stk 1.1 644))
+  (Demos/Widget/Wctext.stklos (STk/1_Wctext.stk 1.1 644))
+  (Demos/Widget/Wsayings.stklos (STk/1_Wsayings.s 1.1 644))
+  (Demos/Widget/Wentry2.stklos (STk/1_Wentry2.st 1.1 644))
+  (Demos/Widget/Wcolors.stklos (STk/1_Wcolors.st 1.1 644))
+  (Demos/Widget/Wpuzzle.stklos (STk/1_Wpuzzle.st 1.1 644))
+  (Demos/Widget/Wbind.stklos (STk/1_Wbind.stkl 1.1 644))
+  (Demos/Widget/Wimage2.stklos (STk/1_Wimage2.st 1.1 644))
+  (Demos/Widget/Wradio.stklos (STk/1_Wradio.stk 1.1 644))
+  (Demos/Widget/Wcheck.stklos (STk/1_Wcheck.stk 1.1 644))
+  (Demos/Widget/Wbutton.stklos (STk/1_Wbutton.st 1.1 644))
+  (Demos/Widget/Wplot.stk (STk/1_Wplot.stk 1.1 644))
+  (Demos/Widget/Wlabel.stklos (STk/1_Wlabel.stk 1.1 644))
+  (Demos/Widget/Wicon.stklos (STk/1_Wicon.stkl 1.1 644))
+  (Demos/Widget/widget.stk (STk/2_widget.stk 1.1 644))
+  (Demos/Widget/Wstates.stklos (STk/1_Wstates.st 1.1 644))
+  (Demos/hello.stklos (STk/1_hello.stkl 1.1 755))
+  (Demos/small-ed.stk (STk/1_small-ed.s 1.1 755))
+  (Demos/widget.stk (STk/3_widget.stk 1.1 755))
+  (Demos/turtle.stk (STk/1_turtle.stk 1.1 755))
+  (Demos/%README (STk/8_%README 1.1 644))
+  (Demos/showvars.stk (STk/1_showvars.s 1.1 755))
+  (Demos/hello.stk (STk/1_hello.stk 1.1 755))
+  (Demos/hanoi.stk (STk/1_hanoi.stk 1.1 755))
+  (Demos/colormap.stk (STk/1_colormap.s 1.1 755))
+  (Demos/browse.stk (STk/3_browse.stk 1.1 755))
+  (Demos/Makefile (STk/27_Makefile 1.1 644))
+  (STklos/Examples/E4.stklos (../../Demos/compo-demo.stklos) :symlink)
+  (STklos/Examples/E3.stklos (STk/1_E3.stklos 1.1 644))
+  (STklos/Examples/E2.stklos (STk/1_E2.stklos 1.1 644))
+  (STklos/Examples/E1.stklos (STk/1_E1.stklos 1.1 644))
+  (STklos/Examples/E0.stklos (STk/1_E0.stklos 1.1 644))
+  (STklos/%README (STk/9_%README 1.1 644))
+  (STklos/describe.stk (STk/1_describe.s 1.1 644))
+  (STklos/stklos.stk (STk/1_stklos.stk 1.1 444))
+  (STklos/Tk/Tk-classes.stklos (STk/1_Tk-classes 1.1 644))
+  (STklos/Tk/Message.stklos (STk/1_Message.st 1.1 644))
+  (STklos/Tk/Listbox.stklos (STk/1_Listbox.st 1.1 644))
+  (STklos/Tk/Button.stklos (STk/1_Button.stk 1.1 644))
+  (STklos/Tk/Basics.stklos (STk/1_Basics.stk 1.2 644))
+  (STklos/Tk/Toplevel.stklos (STk/1_Toplevel.s 1.1 644))
+  (STklos/Tk/Tk-meta.stklos (STk/1_Tk-meta.st 1.1 644))
+  (STklos/Tk/Tk-methods.stklos (STk/1_Tk-methods 1.1 644))
+  (STklos/Tk/Scale.stklos (STk/1_Scale.stkl 1.1 644))
+  (STklos/Tk/STF.stklos (STk/1_STF.stklos 1.1 644))
+  (STklos/Tk/Menu.stklos (STk/1_Menu.stklo 1.1 644))
+  (STklos/Tk/Text.stklos (STk/1_Text.stklo 1.1 644))
+  (STklos/Tk/Scrollbar.stklos (STk/1_Scrollbar. 1.1 644))
+  (STklos/Tk/Image.stklos (STk/1_Image.stkl 1.1 644))
+  (STklos/Tk/Frame.stklos (STk/1_Frame.stkl 1.1 644))
+  (STklos/Tk/%README (STk/10_%README 1.1 644))
+  (STklos/Tk/Entry.stklos (STk/1_Entry.stkl 1.1 644))
+  (STklos/Tk/Canvitem.stklos (STk/1_Canvitem.s 1.1 644))
+  (STklos/Tk/Canvas.stklos (STk/1_Canvas.stk 1.1 644))
+  (STklos/Tk/Composite/Scrollbox.stklos (STk/1_Scrollbox. 1.1 644))
+  (STklos/Tk/Composite/Multipaned.stklos (STk/1_Multipaned 1.1 644))
+  (STklos/Tk/Composite/Lentry.stklos (STk/1_Lentry.stk 1.1 644))
+  (STklos/Tk/Composite/Choicebox.stklos (STk/1_Choicebox. 1.2 644))
+  (STklos/Tk/Composite/Multiwin.stklos (STk/1_Multiwin.s 1.1 644))
+  (STklos/Tk/Composite/Scrolltext.stklos (STk/1_Scrolltext 1.1 644))
+  (STklos/Tk/Composite/Scrollcanvas.stklos (STk/1_Scrollcanv 1.1 644))
+  (STklos/Tk/Composite/Paned.stklos (STk/1_Paned.stkl 1.1 644))
+  (STklos/Tk/Composite/Filebox.stklos (STk/1_Filebox.st 1.1 644))
+  (STklos/Tk/Composite/Defbutton.stklos (STk/1_Defbutton. 1.1 644))
+  (STklos/Makefile (STk/28_Makefile 1.1 644))
+  (Lib/ftp.stk (STk/1_ftp.stk 1.1 644))
+  (Lib/fileevent.stk (STk/1_fileevent. 1.1 644))
+  (Lib/listener.stk (STk/1_listener.s 1.1 644))
+  (Lib/html.stk (STk/1_html.stk 1.1 644))
+  (Lib/tearoff.stk (STk/1_tearoff.st 1.1 644))
+  (Lib/palette.stk (STk/1_palette.st 1.1 644))
+  (Lib/pixmap.stk (STk/1_pixmap.stk 1.1 644))
+  (Lib/focus.stk (STk/1_focus.stk 1.1 644))
+  (Lib/sterm.stk (STk/1_sterm.stk 1.1 644))
+  (Lib/init.stk (STk/1_init.stk 1.1 644))
+  (Lib/STk (.) :symlink)
+  (Lib/regexp.stk (STk/1_regexp.stk 1.1 644))
+  (Lib/slib.stk (STk/1_slib.stk 1.1 644))
+  (Lib/compatibility.stk (STk/1_compatibil 1.1 644))
+  (Lib/socket.stk (STk/1_socket.stk 1.1 644))
+  (Lib/trace.stk (STk/1_trace.stk 1.1 644))
+  (Lib/STk.init (STk/1_STk.init 1.1 644))
+  (Lib/hash.stk (STk/1_hash.stk 1.1 644))
+  (Lib/inspect-view.stk (STk/1_inspect-vi 1.1 644))
+  (Lib/process.stk (STk/1_process.st 1.1 644))
+  (Lib/inspect-misc.stk (STk/1_inspect-mi 1.1 644))
+  (Lib/pp.stk (STk/1_pp.stk 1.1 644))
+  (Lib/inspect-help.stk (STk/1_inspect-he 1.1 644))
+  (Lib/inspect-main.stk (STk/1_inspect-ma 1.1 644))
+  (Lib/inspect-detail.stk (STk/1_inspect-de 1.1 644))
+  (Lib/help.stk (STk/1_help.stk 1.1 644))
+  (Lib/unix.stk (STk/1_unix.stk 1.1 644))
+  (Lib/tk-init.stk (STk/1_tk-init.st 1.1 644))
+  (Lib/text.stk (STk/1_text.stk 1.1 644))
+  (Lib/editor.stk (STk/1_editor.stk 1.1 644))
+  (Lib/scrollbar.stk (STk/5_scrollbar. 1.1 644))
+  (Lib/scale.stk (STk/1_scale.stk 1.1 644))
+  (Lib/prolog.ps (STk/1_prolog.ps 1.1 644))
+  (Lib/menu.stk (STk/1_menu.stk 1.1 644))
+  (Lib/listbox.stk (STk/1_listbox.st 1.1 644))
+  (Lib/posix.stk (STk/1_posix.stk 1.1 644))
+  (Lib/images/STk-normal.gif (STk/1_STk-normal 1.1 644) :no-keywords)
+  (Lib/images/Ok.gif (STk/1_Ok.gif 1.1 644) :no-keywords)
+  (Lib/images/Help.gif (STk/1_Help.gif 1.1 644) :no-keywords)
+  (Lib/images/Cancel.gif (STk/1_Cancel.gif 1.1 644) :no-keywords)
+  (Lib/images/vlines3 (STk/1_vlines3 1.1 644))
+  (Lib/images/vlines2 (STk/1_vlines2 1.1 644))
+  (Lib/images/stipple (STk/1_stipple 1.1 644))
+  (Lib/images/root_weave (STk/1_root_weave 1.1 644))
+  (Lib/images/queen (STk/1_queen 1.1 644))
+  (Lib/images/menu.bm (STk/1_menu.bm 1.1 644))
+  (Lib/images/light_gray (STk/1_light_gray 1.1 644))
+  (Lib/images/hlines3 (STk/1_hlines3 1.1 644))
+  (Lib/images/hlines2 (STk/1_hlines2 1.1 644))
+  (Lib/images/grid8 (STk/1_grid8 1.1 644))
+  (Lib/images/grid4 (STk/1_grid4 1.1 644))
+  (Lib/images/gray3 (STk/1_gray3 1.1 644))
+  (Lib/images/gray1 (STk/1_gray1 1.1 644))
+  (Lib/images/full (STk/1_full 1.1 644))
+  (Lib/images/down_arrow_8.bm (STk/1_down_arrow 1.1 644))
+  (Lib/images/dimple3 (STk/1_dimple3 1.1 644))
+  (Lib/images/dimple1 (STk/1_dimple1 1.1 644))
+  (Lib/images/cross_weave (STk/1_cross_weav 1.1 644))
+  (Lib/images/boxes (STk/1_boxes 1.1 644))
+  (Lib/images/teapot.ppm (STk/1_teapot.ppm 1.1 644))
+  (Lib/images/pattern (STk/1_pattern 1.1 644))
+  (Lib/images/noletters (STk/1_noletters 1.1 644))
+  (Lib/images/mickey.gif (STk/1_mickey.gif 1.1 644) :no-keywords)
+  (Lib/images/letters (STk/1_letters 1.1 644))
+  (Lib/images/grey.5 (STk/1_grey.5 1.1 644))
+  (Lib/images/grey.25 (STk/1_grey.25 1.1 644))
+  (Lib/images/flagup (STk/1_flagup 1.1 644))
+  (Lib/images/flagdown (STk/1_flagdown 1.1 644))
+  (Lib/images/face (STk/1_face 1.1 644))
+  (Lib/images/earthris.gif (STk/1_earthris.g 1.1 644) :no-keywords)
+  (Lib/images/earth.gif (STk/1_earth.gif 1.1 644) :no-keywords)
+  (Lib/error.stk (STk/1_error.stk 1.1 644))
+  (Lib/entry.stk (STk/1_entry.stk 1.1 644))
+  (Lib/dialog.stk (STk/1_dialog.stk 1.2 644))
+  (Lib/button.stk (STk/1_button.stk 1.1 644))
+  (Lib/Makefile (STk/29_Makefile 1.1 644))
+  (Contrib/Socket/socket.c (STk/3_socket.c 1.1 644))
+  (Contrib/Stetris/stetris.stk (STk/1_stetris.st 1.2 755))
+  (Contrib/%README (STk/11_%README 1.1 644))
+  (Contrib/Trace/trace.stk (../../Lib/trace.stk) :symlink)
+  (Contrib/Pretty/pp.stk (../../Lib/pp.stk) :symlink)
+  (Contrib/STk-wtour/stk-wtour (STk/1_stk-wtour 1.1 755))
+  (Contrib/STk-wtour/README (STk/18_README 1.1 644))
+  (Contrib/STk-wtour/CHANGES (STk/3_CHANGES 1.1 644))
+  (Contrib/STk-wtour/lib/wtour.stk (STk/1_wtour.stk 1.1 644))
+  (Contrib/STk-wtour/lib/iu.seal.small.xbm (STk/1_iu.seal.sm 1.1 644))
+  (Contrib/STk-wtour/lib/iu.ridge.xbm (STk/1_iu.ridge.x 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas-animate.stk (STk/1_canvas-ani 1.1 644))
+  (Contrib/STk-wtour/lessons/dialogbox.stk (STk/1_dialogbox. 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas-drag.stk (STk/2_canvas-dra 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas-funky.stk (STk/1_canvas-fun 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas-rubber.stk (STk/1_canvas-rub 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas7.stk (STk/1_canvas7.st 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas-draw.stk (STk/3_canvas-dra 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas6.stk (STk/1_canvas6.st 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas5.stk (STk/1_canvas5.st 1.1 644))
+  (Contrib/STk-wtour/lessons/text5.stk (STk/1_text5.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/text4.stk (STk/1_text4.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/tkwait.stk (STk/1_tkwait.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/text3.stk (STk/1_text3.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/text2.stk (STk/1_text2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/text1.stk (STk/1_text1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/selection.stk (STk/5_selection. 1.1 644))
+  (Contrib/STk-wtour/lessons/scale2.stk (STk/1_scale2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/scale1.stk (STk/1_scale1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/radiobutton.stk (STk/5_radiobutto 1.1 644))
+  (Contrib/STk-wtour/lessons/pack3.stk (STk/1_pack3.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/pack2.stk (STk/1_pack2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/pack1.stk (STk/1_pack1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/options.stk (STk/1_options.st 1.1 644))
+  (Contrib/STk-wtour/lessons/misc.stk (STk/1_misc.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/message.stk (STk/1_message.st 1.1 644))
+  (Contrib/STk-wtour/lessons/menu2.stk (STk/1_menu2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/menu1.stk (STk/1_menu1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/listbox2.stk (STk/1_listbox2.s 1.1 644))
+  (Contrib/STk-wtour/lessons/listbox1.stk (STk/1_listbox1.s 1.1 644))
+  (Contrib/STk-wtour/lessons/label3.stk (STk/1_label3.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/label2.stk (STk/1_label2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/label1.stk (STk/1_label1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/index (STk/1_index 1.1 644))
+  (Contrib/STk-wtour/lessons/grouping.stk (STk/1_grouping.s 1.1 644))
+  (Contrib/STk-wtour/lessons/frame3.stk (STk/1_frame3.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/frame2.stk (STk/1_frame2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/frame1.stk (STk/1_frame1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/entry2.stk (STk/1_entry2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/entry1.stk (STk/1_entry1.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/checkbutton.stk (STk/5_checkbutto 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas4.stk (STk/1_canvas4.st 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas3.stk (STk/1_canvas3.st 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas2.stk (STk/1_canvas2.st 1.1 644))
+  (Contrib/STk-wtour/lessons/canvas1.stk (STk/1_canvas1.st 1.1 644))
+  (Contrib/STk-wtour/lessons/button2.stk (STk/1_button2.st 1.1 644))
+  (Contrib/STk-wtour/lessons/button1.stk (STk/1_button1.st 1.1 644))
+  (Contrib/STk-wtour/lessons/bind3.stk (STk/1_bind3.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/bind2.stk (STk/1_bind2.stk 1.1 644))
+  (Contrib/STk-wtour/lessons/bind1.stk (STk/1_bind1.stk 1.1 644))
+  (Contrib/Python/jredford-mail.txt (STk/1_jredford-m 1.1 644))
+  (Contrib/Process/process.c (STk/3_process.c 1.1 644))
+  (Contrib/Process/process.h (STk/1_process.h 1.1 644))
+  (Contrib/Inspect/inspect-view.stk (../../Lib/inspect-view.stk) :symlink)
+  (Contrib/Inspect/inspect-misc.stk (../../Lib/inspect-misc.stk) :symlink)
+  (Contrib/Inspect/inspect-main.stk (../../Lib/inspect-main.stk) :symlink)
+  (Contrib/Inspect/inspect-help.stk (../../Lib/inspect-help.stk) :symlink)
+  (Contrib/Inspect/inspect-detail.stk (../../Lib/inspect-detail.stk) :symlink)
+  (Contrib/Inspect/README (STk/19_README 1.1 644))
+  (Bin () :directory)
+  (Tcl/tclWinTime.c (STk/1_tclWinTime 1.1 644))
+  (Tcl/tclUnixTime.c (STk/1_tclUnixTim 1.1 644))
+  (Tcl/tclUnixNotfy.c (STk/1_tclUnixNot 1.1 644))
+  (Tcl/tclNotify.c (STk/1_tclNotify. 1.1 644))
+  (Tcl/tclPreserve.c (STk/1_tclPreserv 1.1 644))
+  (Tcl/tclWinPort.h (STk/1_tclWinPort 1.2 644))
+  (Tcl/tclEvent.c (STk/1_tclEvent.c 1.1 644))
+  (Tcl/tclUnixPort.h (STk/1_tclUnixPor 1.1 644))
+  (Tcl/tclConfig.sh.in (STk/2_tclConfig. 1.1 644))
+  (Tcl/tclWinNotify.c (STk/1_tclWinNoti 1.1 644))
+  (Tcl/tclConfig.sh (STk/3_tclConfig. 1.1 644))
+  (Tcl/tclUtil.c (STk/1_tclUtil.c 1.1 644))
+  (Tcl/tclMtherr.c (STk/1_tclMtherr. 1.1 644))
+  (Tcl/license.terms (STk/8_license.te 1.1 644))
+  (Tcl/tclRegexp.h (STk/1_tclRegexp. 1.1 644))
+  (Tcl/compat/gettod.c (STk/1_gettod.c 1.1 644))
+  (Tcl/compat/strncasecmp.c (STk/1_strncasecm 1.1 644))
+  (Tcl/compat/fixstrtod.c (STk/1_fixstrtod. 1.1 644))
+  (Tcl/compat/license.terms (STk/9_license.te 1.1 644))
+  (Tcl/compat/README (STk/20_README 1.1 644))
+  (Tcl/compat/unistd.h (STk/2_unistd.h 1.1 644))
+  (Tcl/compat/string.h (STk/1_string.h 1.1 644))
+  (Tcl/compat/stdlib.h (STk/2_stdlib.h 1.1 644))
+  (Tcl/compat/limits.h (STk/2_limits.h 1.1 644))
+  (Tcl/compat/float.h (STk/1_float.h 1.1 644))
+  (Tcl/compat/dirent2.h (STk/1_dirent2.h 1.1 644))
+  (Tcl/compat/dirent.h (STk/1_dirent.h 1.1 644))
+  (Tcl/compat/waitpid.c (STk/1_waitpid.c 1.1 644))
+  (Tcl/compat/tmpnam.c (STk/1_tmpnam.c 1.1 644))
+  (Tcl/compat/strtoul.c (STk/1_strtoul.c 1.1 644))
+  (Tcl/compat/strtol.c (STk/1_strtol.c 1.1 644))
+  (Tcl/compat/strtod.c (STk/1_strtod.c 1.1 644))
+  (Tcl/compat/strstr.c (STk/1_strstr.c 1.1 644))
+  (Tcl/compat/strerror.c (STk/1_strerror.c 1.1 644))
+  (Tcl/compat/opendir.c (STk/1_opendir.c 1.1 644))
+  (Tcl/compat/getcwd.c (STk/1_getcwd.c 1.1 644))
+  (Tcl/tclHash.c (STk/1_tclHash.c 1.1 644))
+  (Tcl/tclGet.c (STk/1_tclGet.c 1.1 644))
+  (Tcl/tclAsync.c (STk/1_tclAsync.c 1.1 644))
+  (Tcl/Makefile.in (STk/7_Makefile.i 1.1 644))
+  (Tcl/configure (STk/8_configure 1.1 755))
+  (Tcl/tclInt.h (STk/1_tclInt.h 1.1 644))
+  (Tcl/configure.in (STk/8_configure. 1.1 644))
+  (Tcl/README (STk/21_README 1.1 644))
+  (Tcl/tcl.h (STk/1_tcl.h 1.1 644))
+  (Tcl/regexp.c (STk/1_regexp.c 1.1 644))
+  (Tcl/panic.c (STk/1_panic.c 1.1 644))
+  (Tcl/tclPort.h (STk/1_tclPort.h 1.1 644))
+  (Tk/porting.old (STk/2_porting.ol 1.1 644))
+  (Tk/porting.notes (STk/2_porting.no 1.1 644))
+  (Tk/license.terms (STk/10_license.te 1.1 644))
+  (Tk/bitmaps/warning.bmp (STk/1_warning.bm 1.1 644))
+  (Tk/bitmaps/question.bmp (STk/1_question.b 1.1 644))
+  (Tk/bitmaps/questhead.bmp (STk/1_questhead. 1.1 644))
+  (Tk/bitmaps/info.bmp (STk/1_info.bmp 1.1 644))
+  (Tk/bitmaps/hourglass.bmp (STk/1_hourglass. 1.1 644))
+  (Tk/bitmaps/gray50.bmp (STk/1_gray50.bmp 1.1 644))
+  (Tk/bitmaps/gray25.bmp (STk/1_gray25.bmp 1.1 644))
+  (Tk/bitmaps/gray12.bmp (STk/1_gray12.bmp 1.1 644))
+  (Tk/bitmaps/error.bmp (STk/1_error.bmp 1.1 644))
+  (Tk/install-sh (STk/2_install-sh 1.1 755))
+  (Tk/configure.in (STk/9_configure. 1.1 644))
+  (Tk/compat/limits.h (STk/3_limits.h 1.1 644))
+  (Tk/compat/stdlib.h (STk/3_stdlib.h 1.1 644))
+  (Tk/compat/unistd.h (STk/3_unistd.h 1.1 644))
+  (Tk/compat/license.terms (STk/11_license.te 1.1 655))
+  (Tk/configure (STk/9_configure 1.1 755))
+  (Tk/changes (STk/1_changes 1.1 644))
+  (Tk/ToDo (STk/1_ToDo 1.1 644))
+  (Tk/confdefs.h (STk/1_confdefs.h 1.1 644))
+  (Tk/xlib/X11/license.terms (STk/12_license.te 1.1 644))
+  (Tk/xlib/X11/keysymdef.h (STk/1_keysymdef. 1.1 644))
+  (Tk/xlib/X11/keysym.h (STk/1_keysym.h 1.1 644))
+  (Tk/xlib/X11/cursorfont.h (STk/1_cursorfont 1.1 644))
+  (Tk/xlib/X11/Xutil.h (STk/1_Xutil.h 1.1 644))
+  (Tk/xlib/X11/Xlib.h (STk/1_Xlib.h 1.1 644))
+  (Tk/xlib/X11/Xfuncproto.h (STk/1_Xfuncproto 1.1 644))
+  (Tk/xlib/X11/Xatom.h (STk/1_Xatom.h 1.1 644))
+  (Tk/xlib/X11/X.h (STk/1_X.h 1.1 644))
+  (Tk/xlib/license.terms (STk/13_license.te 1.1 644))
+  (Tk/xlib/xutil.c (STk/1_xutil.c 1.1 644))
+  (Tk/xlib/ximage.c (STk/1_ximage.c 1.1 644))
+  (Tk/xlib/xgc.c (STk/1_xgc.c 1.1 644))
+  (Tk/xlib/xdraw.c (STk/1_xdraw.c 1.1 644))
+  (Tk/xlib/xcolors.h (STk/1_xcolors.h 1.1 644))
+  (Tk/xlib/xbytes.h (STk/1_xbytes.h 1.1 644))
+  (Tk/README (STk/22_README 1.1 644))
+  (Tk/Makefile (STk/30_Makefile 1.1 644))
+  (Tk/unix/tkUnixEvent.c (STk/1_tkUnixEven 1.1 644))
+  (Tk/unix/tkUnixInt.h (STk/1_tkUnixInt. 1.1 644))
+  (Tk/unix/libtk (STk/1_libtk 1.1 644))
+  (Tk/unix/tkConfig.sh.in (STk/2_tkConfig.s 1.1 644))
+  (Tk/unix/tkConfig.sh (STk/3_tkConfig.s 1.1 644))
+  (Tk/unix/mkLinks (STk/1_mkLinks 1.1 644))
+  (Tk/unix/README (STk/23_README 1.1 644))
+  (Tk/unix/porting.old (STk/3_porting.ol 1.1 644))
+  (Tk/unix/porting.notes (STk/3_porting.no 1.1 644))
+  (Tk/unix/install-sh (STk/3_install-sh 1.1 755))
+  (Tk/unix/configure.in (STk/10_configure. 1.1 644))
+  (Tk/unix/configure (STk/10_configure 1.1 755))
+  (Tk/unix/Makefile.in (STk/8_Makefile.i 1.2 644))
+  (Tk/unix/license.terms (STk/14_license.te 1.1 644))
+  (Tk/unix/tkUnixPort.h (STk/1_tkUnixPort 1.1 644))
+  (Tk/unix/tkUnixDefault.h (STk/1_tkUnixDefa 1.1 644))
+  (Tk/unix/tkUnixWm.c (STk/1_tkUnixWm.c 1.1 644))
+  (Tk/unix/tkUnixSelect.c (STk/1_tkUnixSele 1.1 644))
+  (Tk/unix/tkUnixNotify.c (STk/1_tkUnixNoti 1.1 644))
+  (Tk/unix/tkUnixInit.c (STk/1_tkUnixInit 1.1 644))
+  (Tk/unix/tkUnixDraw.c (STk/1_tkUnixDraw 1.1 644))
+  (Tk/unix/tkUnixCursor.c (STk/1_tkUnixCurs 1.1 644))
+  (Tk/unix/tkUnix.c (STk/1_tkUnix.c 1.1 644))
+  (Tk/unix/tkAppInit.c (STk/1_tkAppInit. 1.1 644))
+  (Tk/generic/tkImgPPM.c (STk/1_tkImgPPM.c 1.1 644))
+  (Tk/generic/tkImgGIF.c (STk/1_tkImgGIF.c 1.1 644))
+  (Tk/generic/tkGrid.c (STk/1_tkGrid.c 1.1 644))
+  (Tk/generic/README (STk/24_README 1.1 644))
+  (Tk/generic/tkText.h (STk/1_tkText.h 1.1 644))
+  (Tk/generic/tkSelect.h (STk/1_tkSelect.h 1.1 644))
+  (Tk/generic/tkPort.h (STk/1_tkPort.h 1.1 644))
+  (Tk/generic/tkInt.h (STk/1_tkInt.h 1.1 644))
+  (Tk/generic/tkCanvas.h (STk/1_tkCanvas.h 1.1 644))
+  (Tk/generic/patchlevel.h (STk/1_patchlevel 1.1 644))
+  (Tk/generic/ks_names.h (STk/1_ks_names.h 1.1 644))
+  (Tk/generic/default.h (STk/1_default.h 1.1 644))
+  (Tk/generic/tkWindow.c (STk/1_tkWindow.c 1.1 644))
+  (Tk/generic/tkVisual.c (STk/1_tkVisual.c 1.1 644))
+  (Tk/generic/tkUtil.c (STk/1_tkUtil.c 1.1 644))
+  (Tk/generic/tkTrig.c (STk/1_tkTrig.c 1.1 644))
+  (Tk/generic/tkTextWind.c (STk/1_tkTextWind 1.1 644))
+  (Tk/generic/tkTextTag.c (STk/1_tkTextTag. 1.1 644))
+  (Tk/generic/tkTextMark.c (STk/1_tkTextMark 1.1 644))
+  (Tk/generic/tkTextIndex.c (STk/1_tkTextInde 1.1 644))
+  (Tk/generic/tkTextDisp.c (STk/1_tkTextDisp 1.1 644))
+  (Tk/generic/tkTextBTree.c (STk/1_tkTextBTre 1.1 644))
+  (Tk/generic/tkText.c (STk/1_tkText.c 1.1 644))
+  (Tk/generic/tkTest.c (STk/1_tkTest.c 1.1 644))
+  (Tk/generic/tkSquare.c (STk/1_tkSquare.c 1.1 644))
+  (Tk/generic/tkSend.c (STk/1_tkSend.c 1.1 644))
+  (Tk/generic/tkSelect.c (STk/1_tkSelect.c 1.1 644))
+  (Tk/generic/tk.h (STk/1_tk.h 1.1 644))
+  (Tk/generic/tkScrollbar.c (STk/1_tkScrollba 1.1 644))
+  (Tk/generic/tkScale.c (STk/1_tkScale.c 1.1 644))
+  (Tk/generic/tkRectOval.c (STk/1_tkRectOval 1.1 644))
+  (Tk/generic/tkPlace.c (STk/1_tkPlace.c 1.1 644))
+  (Tk/generic/tkPack.c (STk/1_tkPack.c 1.1 644))
+  (Tk/generic/tkOption.c (STk/1_tkOption.c 1.1 644))
+  (Tk/generic/tkMessage.c (STk/1_tkMessage. 1.1 644))
+  (Tk/generic/tkMenubutton.c (STk/1_tkMenubutt 1.1 644))
+  (Tk/generic/tkMenu.c (STk/1_tkMenu.c 1.1 644))
+  (Tk/generic/tkMain.c (STk/1_tkMain.c 1.1 644))
+  (Tk/generic/tkListbox.c (STk/1_tkListbox. 1.1 644))
+  (Tk/generic/tkImgUtil.c (STk/1_tkImgUtil. 1.1 644))
+  (Tk/generic/tkImgPhoto.c (STk/1_tkImgPhoto 1.1 644))
+  (Tk/generic/tkImgBmap.c (STk/1_tkImgBmap. 1.1 644))
+  (Tk/generic/tkImage.c (STk/1_tkImage.c 1.1 644))
+  (Tk/generic/tkGrab.c (STk/1_tkGrab.c 1.1 644))
+  (Tk/generic/tkGet.c (STk/1_tkGet.c 1.1 644))
+  (Tk/generic/tkGeometry.c (STk/1_tkGeometry 1.1 644))
+  (Tk/generic/tkGC.c (STk/1_tkGC.c 1.1 644))
+  (Tk/generic/tkFrame.c (STk/1_tkFrame.c 1.1 644))
+  (Tk/generic/tkFont.c (STk/1_tkFont.c 1.1 644))
+  (Tk/generic/tkFocus.c (STk/1_tkFocus.c 1.1 644))
+  (Tk/generic/tkEvent.c (STk/1_tkEvent.c 1.1 644))
+  (Tk/generic/tkError.c (STk/1_tkError.c 1.1 644))
+  (Tk/generic/tkEntry.c (STk/1_tkEntry.c 1.1 644))
+  (Tk/generic/tkCursor.c (STk/1_tkCursor.c 1.1 644))
+  (Tk/generic/tkConsole.c (STk/1_tkConsole. 1.1 644))
+  (Tk/generic/tkConfig.c (STk/1_tkConfig.c 1.1 644))
+  (Tk/generic/tkColor.c (STk/1_tkColor.c 1.1 644))
+  (Tk/generic/tkCmds.c (STk/1_tkCmds.c 1.1 644))
+  (Tk/generic/tkClipboard.c (STk/1_tkClipboar 1.1 644))
+  (Tk/generic/tkCanvas.c (STk/1_tkCanvas.c 1.1 644))
+  (Tk/generic/tkCanvWind.c (STk/1_tkCanvWind 1.1 644))
+  (Tk/generic/tkCanvUtil.c (STk/1_tkCanvUtil 1.1 644))
+  (Tk/generic/tkCanvText.c (STk/1_tkCanvText 1.1 644))
+  (Tk/generic/tkCanvPs.c (STk/1_tkCanvPs.c 1.2 644))
+  (Tk/generic/tkCanvPoly.c (STk/1_tkCanvPoly 1.1 644))
+  (Tk/generic/tkCanvLine.c (STk/1_tkCanvLine 1.1 644))
+  (Tk/generic/tkCanvImg.c (STk/1_tkCanvImg. 1.1 644))
+  (Tk/generic/tkCanvBmap.c (STk/1_tkCanvBmap 1.1 644))
+  (Tk/generic/tkCanvArc.c (STk/1_tkCanvArc. 1.1 644))
+  (Tk/generic/tkButton.c (STk/1_tkButton.c 1.1 644))
+  (Tk/generic/tkBitmap.c (STk/1_tkBitmap.c 1.1 644))
+  (Tk/generic/tkBind.c (STk/1_tkBind.c 1.1 644))
+  (Tk/generic/tkAtom.c (STk/1_tkAtom.c 1.1 644))
+  (Tk/generic/tkArgv.c (STk/1_tkArgv.c 1.1 644))
+  (Tk/generic/tk3d.c (STk/1_tk3d.c 1.1 644))
+  (Tk/win/rc/wish.ico (STk/1_wish.ico 1.1 644) :no-keywords)
+  (Tk/win/rc/tk.ico (STk/1_tk.ico 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor98.cur (STk/1_cursor98.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor96.cur (STk/1_cursor96.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor94.cur (STk/1_cursor94.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor92.cur (STk/1_cursor92.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor90.cur (STk/1_cursor90.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor8e.cur (STk/1_cursor8e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor8c.cur (STk/1_cursor8c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor8a.cur (STk/1_cursor8a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor88.cur (STk/1_cursor88.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor86.cur (STk/1_cursor86.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor84.cur (STk/1_cursor84.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor82.cur (STk/1_cursor82.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor80.cur (STk/1_cursor80.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor7e.cur (STk/1_cursor7e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor7c.cur (STk/1_cursor7c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor7a.cur (STk/1_cursor7a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor78.cur (STk/1_cursor78.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor76.cur (STk/1_cursor76.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor74.cur (STk/1_cursor74.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor72.cur (STk/1_cursor72.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor70.cur (STk/1_cursor70.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor6e.cur (STk/1_cursor6e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor6c.cur (STk/1_cursor6c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor6a.cur (STk/1_cursor6a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor68.cur (STk/1_cursor68.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor66.cur (STk/1_cursor66.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor64.cur (STk/1_cursor64.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor62.cur (STk/1_cursor62.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor60.cur (STk/1_cursor60.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor5e.cur (STk/1_cursor5e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor5c.cur (STk/1_cursor5c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor5a.cur (STk/1_cursor5a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor58.cur (STk/1_cursor58.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor56.cur (STk/1_cursor56.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor54.cur (STk/1_cursor54.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor52.cur (STk/1_cursor52.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor50.cur (STk/1_cursor50.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor4e.cur (STk/1_cursor4e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor4c.cur (STk/1_cursor4c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor4a.cur (STk/1_cursor4a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor48.cur (STk/1_cursor48.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor46.cur (STk/1_cursor46.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor44.cur (STk/1_cursor44.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor42.cur (STk/1_cursor42.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor40.cur (STk/1_cursor40.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor3e.cur (STk/1_cursor3e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor3c.cur (STk/1_cursor3c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor3a.cur (STk/1_cursor3a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor38.cur (STk/1_cursor38.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor36.cur (STk/1_cursor36.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor34.cur (STk/1_cursor34.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor32.cur (STk/1_cursor32.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor30.cur (STk/1_cursor30.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor2e.cur (STk/1_cursor2e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor2c.cur (STk/1_cursor2c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor2a.cur (STk/1_cursor2a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor28.cur (STk/1_cursor28.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor26.cur (STk/1_cursor26.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor24.cur (STk/1_cursor24.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor22.cur (STk/1_cursor22.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor20.cur (STk/1_cursor20.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor1e.cur (STk/1_cursor1e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor1c.cur (STk/1_cursor1c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor1a.cur (STk/1_cursor1a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor18.cur (STk/1_cursor18.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor16.cur (STk/1_cursor16.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor14.cur (STk/1_cursor14.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor12.cur (STk/1_cursor12.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor10.cur (STk/1_cursor10.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor0e.cur (STk/1_cursor0e.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor0c.cur (STk/1_cursor0c.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor0a.cur (STk/1_cursor0a.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor08.cur (STk/1_cursor08.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor06.cur (STk/1_cursor06.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor04.cur (STk/1_cursor04.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor02.cur (STk/1_cursor02.c 1.1 644) :no-keywords)
+  (Tk/win/rc/cursor00.cur (STk/1_cursor00.c 1.1 644) :no-keywords)
+  (Tk/win/rc/wish.rc (STk/1_wish.rc 1.1 644))
+  (Tk/win/rc/tk.rc (STk/1_tk.rc 1.1 644))
+  (Tk/win/license.terms (STk/15_license.te 1.1 644))
+  (Tk/win/README (STk/25_README 1.1 644))
+  (Tk/win/makefile.vc (STk/1_makefile.v 1.1 644))
+  (Tk/win/makefile.bc (STk/1_makefile.b 1.1 644))
+  (Tk/win/tkWinPort.h (STk/1_tkWinPort. 1.1 644))
+  (Tk/win/tkWinInt.h (STk/1_tkWinInt.h 1.2 644))
+  (Tk/win/tkWinDefault.h (STk/1_tkWinDefau 1.2 644))
+  (Tk/win/winMain.c (STk/1_winMain.c 1.1 644))
+  (Tk/win/tkWinX.c (STk/1_tkWinX.c 1.2 644))
+  (Tk/win/tkWinWm.c (STk/1_tkWinWm.c 1.2 644))
+  (Tk/win/tkWinWindow.c (STk/1_tkWinWindo 1.1 644))
+  (Tk/win/tkWinRegion.c (STk/1_tkWinRegio 1.1 644))
+  (Tk/win/tkWinPointer.c (STk/1_tkWinPoint 1.1 644))
+  (Tk/win/tkWinPixmap.c (STk/1_tkWinPixma 1.1 644))
+  (Tk/win/tkWinKey.c (STk/1_tkWinKey.c 1.1 644))
+  (Tk/win/tkWinInit.c (STk/1_tkWinInit. 1.2 644))
+  (Tk/win/tkWinImage.c (STk/1_tkWinImage 1.1 644))
+  (Tk/win/tkWinFont.c (STk/1_tkWinFont. 1.1 644))
+  (Tk/win/tkWinDraw.c (STk/1_tkWinDraw. 1.1 644))
+  (Tk/win/tkWinCursor.c (STk/1_tkWinCurso 1.1 644))
+  (Tk/win/tkWinColor.c (STk/1_tkWinColor 1.1 644))
+  (Tk/win/tkWinClipboard.c (STk/1_tkWinClipb 1.1 644))
+  (Tk/win/tkWin32Dll.c (STk/1_tkWin32Dll 1.1 644))
+  (Tk/win/stubs.c (STk/1_stubs.c 1.1 644))
+  (Tk/doc/README.stk (STk/1_README.stk 1.1 644))
+  (Src/port.c (STk/1_port.c 1.1 644))
+  (Src/dummy.c (STk/1_dummy.c 1.2 644))
+  (Src/wstk.c (STk/1_wstk.c 1.1 644))
+  (Src/stklos.h (STk/1_stklos.h 1.1 644))
+  (Src/.gdb_history (STk/1_.gdb_histo 1.1 644))
+  (Src/stklos.c (STk/1_stklos.c 1.1 644))
+  (Src/address.c (STk/1_address.c 1.1 644))
+  (Src/trace.c (STk/1_trace.c 1.1 644))
+  (Src/tcl-util.c (STk/1_tcl-util.c 1.1 644))
+  (Src/signal.c (STk/1_signal.c 1.2 644))
+  (Src/tk-glue.h (STk/1_tk-glue.h 1.1 644))
+  (Src/sregexp.c (../Extensions/sregexp.c) :symlink)
+  (Src/socket.c (../Extensions/socket.c) :symlink)
+  (Src/extend.c (STk/1_extend.c 1.1 644))
+  (Src/sport.h (STk/1_sport.h 1.1 644))
+  (Src/macros.c (STk/1_macros.c 1.1 644))
+  (Src/list.c (STk/1_list.c 1.1 644))
+  (Src/gc.h (STk/1_gc.h 1.1 644))
+  (Src/boolean.c (STk/1_boolean.c 1.1 644))
+  (Src/extend.h (STk/1_extend.h 1.1 644))
+  (Src/proc.c (STk/1_proc.c 1.1 644))
+  (Src/process.c (../Extensions/process.c) :symlink)
+  (Src/pixmap.c (../Extensions/pixmap.c) :symlink)
+  (Src/configure (STk/11_configure 1.1 755))
+  (Src/tk-main.c (STk/1_tk-main.c 1.1 644))
+  (Src/configure.in (STk/11_configure. 1.1 644))
+  (Src/run-stk.in (STk/1_run-stk.in 1.1 644))
+  (Src/env.c (STk/1_env.c 1.1 644))
+  (Src/userinit.c (STk/1_userinit.c 1.1 644))
+  (Src/vector.c (STk/1_vector.c 1.1 644))
+  (Src/tk-glue.c (STk/1_tk-glue.c 1.1 644))
+  (Src/unix.c (STk/1_unix.c 1.1 644))
+  (Src/toplevel.c (STk/1_toplevel.c 1.2 644))
+  (Src/dynload.c (STk/1_dynload.c 1.1 644))
+  (Src/print.c (STk/1_print.c 1.1 644))
+  (Src/keyword.c (STk/1_keyword.c 1.1 644))
+  (Src/stk.h (STk/1_stk.h 1.2 644))
+  (Src/error.c (STk/1_error.c 1.1 644))
+  (Src/test-stk (STk/1_test-stk 1.1 755))
+  (Src/promise.c (STk/1_promise.c 1.1 644))
+  (Src/html.c (../Extensions/html.c) :symlink)
+  (Src/eval.c (STk/1_eval.c 1.1 644))
+  (Src/symbol.c (STk/1_symbol.c 1.1 644))
+  (Src/gc.c (STk/1_gc.c 1.1 644))
+  (Src/char.c (STk/1_char.c 1.1 644))
+  (Src/tcl-lib.c (STk/1_tcl-lib.c 1.1 644))
+  (Src/argv.c (STk/1_argv.c 1.2 644))
+  (Src/dump.c (STk/1_dump.c 1.1 644))
+  (Src/tk-util.c (STk/1_tk-util.c 1.1 644))
+  (Src/read.c (STk/1_read.c 1.1 644))
+  (Src/syntax.c (STk/1_syntax.c 1.1 644))
+  (Src/number.c (STk/1_number.c 1.2 644))
+  (Src/str.c (STk/1_str.c 1.1 644))
+  (Src/sport.c (STk/1_sport.c 1.1 644))
+  (Src/primitives.c (STk/1_primitives 1.1 644))
+  (Src/posix.c (../Extensions/posix.c) :symlink)
+  (Src/slib.c (STk/1_slib.c 1.3 644))
+  (Src/stk.c (STk/1_stk.c 1.1 644))
+  (Src/hash.c (../Extensions/hash.c) :symlink)
+  (Src/io.c (STk/1_io.c 1.4 644))
+  (Src/Makefile (STk/31_Makefile 1.1 644))
+  (Src/Makefile.in (STk/9_Makefile.i 1.1 644))
+  (Src/cont.c (STk/1_cont.c 1.1 644))
+
+; Files added by populate at Tue, 17 Sep 1996 13:18:12 +0200:
+
+  (Doc/LaTeX-packages/moreverb.sty (STk/0_moreverb.s 1.1 644))
+  (Doc/LaTeX-packages/a4wide.sty (STk/0_a4wide.sty 1.1 644))
+  (Doc/LaTeX-packages/a4.sty (STk/0_a4.sty 1.1 644))
+  (Doc/LaTeX-packages/%README (STk/12_%README 1.1 644))
+  (Win32/STk-make.vc (STk/0_STk-make.v 1.1 644))
+  (Tk/unix/tkUnixXId.c (STk/0_tkUnixXId. 1.1 644))
+)
diff --git a/STklos/%README b/STklos/%README
new file mode 100644
index 0000000..c6bd252
--- /dev/null
+++ b/STklos/%README
@@ -0,0 +1,125 @@
+
+			STklos version 2.1
+			------------------
+
+
+What is STklos?
+---------------
+
+STklos is an extension of STk which provides a` la CLOS objets to STk. 
+This implementation takes its inspiration from the version 1.3 of the
+Tiny-clos package defined by Gregor Kickzales 
+(available at parcftp.xerox.com:/pub/mop/*).
+
+Compiling STklos
+----------------
+STklos is compiled during the interpreter construction. Normally, You don't
+have to do something in this directory. 
+
+Simple test of STklos
+---------------------
+
+STklos needs some files to run properly. Until you have installed it in its
+definitive place, you have to:
+	1. set your default directory to STklos
+	2. use the the shell script test-stklos to run the interpreter 
+
+So, you just have to type 
+
+	$ cd STklos; test-stklos
+
+To test, that everything is OK, you can try:
+	(let ()
+	  (define-class A () ((a :initform 10) b))
+	  (define inst (make A))
+	  (slot-set! inst 'b 20)
+	  (+ (slot-ref inst 'a) (slot-ref inst 'b)))
+
+which should yield 30 if everything is correct.
+
+Using STklos with TK
+--------------------
+
+A set of classes have been defined to use Tk with object flavor. All the Tk
+commands have been re-written using STklos. 
+
+Following example creates a three buttons panel (button 1 & 2 being on top of
+button 3).
+
+   (require "Frame")
+   (require "Button")
+   (define f  (make <Frame>))
+   (define b1 (make <Button> :text "Button 1" :parent f))
+   (define b2 (make <Button> :text "Button 2" :parent f))
+   (define b3 (make <Button> :text "Button 3"))
+   (pack b1 b2 :side "left")
+   (pack f b3 :fill "both" :expand #t)
+
+Note usage of Scheme names in the two preceding pack calls instead of dotted
+Tcl/Tk names.
+
+Tk options can be seen as slot in the STklos world. So getting the font of 
+button 3 can be done with 
+
+   (font b3)
+
+and changing its value can be done with 
+
+   (set! (font b3) "fixed")
+
+and associating a callback to button 1 can be done with the following expression
+
+   (set! (command b1) '(format #t "You have typed on \"Button1\"\n"))
+
+The desribe function permits to see all the slots value of a given object. For
+instance, 
+
+   (describe b2)
+
+would give something like:
+
+     #[<button> 122e44] is an instance of class <button>
+     Slots are: 
+	  id = #[Tk-command .v1.v3]
+	  eid = #[Tk-command .v1.v3]
+	  parent = #[<frame> f09d8]
+	  bitmap = ""
+	  width = 0
+	  height = 0
+	  anchor = "center"
+	  font = "-Adobe-Helvetica-Bold-R-Normal--*-120-*"
+	  foreground = "Black"
+	  pad-x = 1
+	  pad-y = 1
+	  text = "Button 2"
+	  text-variable = ""
+	  background = "#cccccc"
+	  border-width = 2
+	  cursor = ""
+	  relief = "raised"
+	  active-background = "#999999"
+	  active-foreground = "Black"
+	  command = ""
+	  disabled-foreground = "#b0b0b0"
+	  state = "normal"
+
+
+Destruction of a button can be obtained with the destroy-widget generic function
+as in
+
+    (destroy b2)
+
+Examples
+--------
+
+Some examples are available in the Examples directory. What those
+examples do is not interesting but rather how they are written.  Note:
+There are not enough examples. Send me programs if you have intersting
+pieces of code to make this directory growing.
+Thanks
+
+
+
+Have fun
+
+
diff --git a/STklos/Examples/E0.stklos b/STklos/Examples/E0.stklos
new file mode 100644
index 0000000..6f320a7
--- /dev/null
+++ b/STklos/Examples/E0.stklos
@@ -0,0 +1,93 @@
+;;;;
+;;;; E x a m p l e 0 .  s t k
+;;;;
+;;;; Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  5-Aug-1994 10:30
+;;;; Last file update: 27-Nov-1994 15:18 
+
+;;;; This file desmonstates the use of composite objects. First we define the class
+;;;; <Car> and <Caravan>.
+
+(define-class <Car> ()
+  ((power  :init-keyword :power  :accessor power)
+   (driver :init-keyword :driver :accessor driver)
+   (color  :init-keyword :color  :accessor color)))
+
+(define-class <Caravan> ()
+  ((capacity :init-keyword :capacity :accessor capacity)
+   (color    :init-keyword :color    :accessor color)))
+
+
+;;;; Hereafter is a first definition of <Camping-car>. Note that the color slot 
+;;;; is propagated to the color slot of the "house" and "car" components of the
+;;;; camping car. Note the use of the :metaclass option for managing :propagated
+;;;; slots.
+
+(define-class <Camping-car>()
+  ((car     :getter car-of) ;; Don't redefine CAR!!!!
+   (house   :getter house)
+   (color   :init-keyword :color :accessor color
+	    :allocation :propagated :propagate-to (car house)))
+  :metaclass <Composite-metaclass>)
+
+;;;; Defining a composite widget requires to define a initialize method.
+(define-method initialize ((self <Camping-car>) initargs)
+  (slot-set! self 'car   (make <Car>))
+  (slot-set! self 'house (make <Caravan>))
+  (next-method))
+	     
+;;;; And now we can define a camping-car
+(define cc (make <Camping-car> :color "red"))
+(color cc)  			; ===> "red"
+(color (car-of cc))		; ===> "red"
+(color (house cc))		; ===> "red"
+(slot-set! cc 'color "yellow")  ; other writing: (set! (color cc) "yellow")
+(color cc)  			; ===> "yellow"
+(color (car-of cc))		; ===> "yellow"
+(color (house cc))		; ===> "yellow"
+;;;; Of course, color of the house coud be different and we can do
+(set! (color (house cc)) "green")
+(color cc)  			; ===> "yellow"
+(color (car-of cc))		; ===> "yellow"
+(color (house cc))		; ===> "green"
+
+
+;;;; Getting or setting the power of the car with this first definition
+;;;; is a little bit messy. We have to do
+;;;;        (set! (power (car-of cc)) 10)
+;;;; To avoid this we can use a "power" propagated slot which will propagate
+;;;; to the "car" component. Another way consists to use inheritance. 
+;;;;
+;;;; Note: Purists will tell you that inheritance permits object specialization
+;;;; and NOT object composition. However, we can use it here to avoid the 
+;;;; definition of propagated slots.
+;;;;
+;;;; Here is the new definition of <Camping-car>.
+
+(define-class <Camping-car>(<Car>)
+  ((car     :getter car-of) ;; Don't redefine CAR!!!!
+   (house   :getter house)
+   (color   :init-keyword :color :accessor color
+	    :allocation :propagated :propagate-to (car house)))
+  :metaclass <Composite-metaclass>)
+
+;;;; initialize is unmodified (but we have to redefine it since <Camping-car>
+;;;; was changed.
+(define-method initialize ((self <Camping-car>) initargs)
+  (slot-set! self 'car   (make <Car>))
+  (slot-set! self 'house (make <Caravan>))
+  (next-method))
+
+;;;; Now we can do
+
+(define cc2 (make <Camping-Car> :color "brown" :driver "Joe" :power 10))
diff --git a/STklos/Examples/E1.stklos b/STklos/Examples/E1.stklos
new file mode 100644
index 0000000..e91e785
--- /dev/null
+++ b/STklos/Examples/E1.stklos
@@ -0,0 +1,59 @@
+;;;;
+;;;; E x a m p l e 1 .  s t k
+;;;;
+;;;; Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  5-Aug-1994 11:11
+;;;; Last file update:  5-Aug-1994 16:41 
+
+
+(require "Canvas")
+
+;;;; Create canvas
+(define c (make <Canvas>))
+(pack c)
+
+;;;; Create items
+(define r1 (make <Rectangle> :parent c :coords '(  0   0  50  50) :fill "blue"))
+(define r2 (make <Rectangle> :parent c :coords '( 50  50 100 100) :fill "red"))
+(define o1 (make <Oval>      :parent c :coords '(100 100 150 150) :fill "blue"))
+(define o2 (make <Oval>      :parent c :coords '(150 150 200 200) :fill "red"))
+
+
+;;; Define some families
+(define rectangles (make <Canvas-group> :parent c))
+(define ovals      (make <Canvas-group> :parent c))
+(define blue	   (make <Canvas-group> :parent c))
+(define red	   (make <Canvas-group> :parent c))
+
+;;;; And add members of these families
+(add-to-group rectangles r1 r2)
+(add-to-group ovals      o1 o2)
+(add-to-group blue       r1 o1)
+(add-to-group red        r2 o2)
+
+;;;; Work with group
+(move rectangles 100 100)
+(move ovals -100 -100)
+(move blue 100 0)
+(destroy red)
+
+;;;; Find the items of a group
+(format #t "items of group blue ~s\n" (items-of-group blue))
+
+;;;; delete an item of a group
+(delete-from-group blue r1)
+(format #t "items of group blue ~s\n" (items-of-group blue))
+(destroy blue)
+
+;;; Only the blue square (r1) is alive....
+
diff --git a/STklos/Examples/E2.stklos b/STklos/Examples/E2.stklos
new file mode 100644
index 0000000..b720df5
--- /dev/null
+++ b/STklos/Examples/E2.stklos
@@ -0,0 +1,135 @@
+;;;;
+;;;; E x a m p l e 2.  s t k
+;;;;
+;;;; Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  4-Aug-1994 15:22 
+;;;; Last file update: 17-Jan-1996 23:14
+
+
+(require "Canvas")
+(define c (make <Canvas>))
+(pack c)
+
+;;;; Hereafter is a definition of a new composite Canvas item. This composite
+;;;; object is formed of a text contained in a box.
+;;;; Note how values are propagated: For instance changing the font of 
+;;;; a <Boxed-text> will propagate this change to the object contained in the slot 
+;;;; text-item. changing the foregroung of a  <Boxed-text> will be propagated to 
+;;;; the "outline" of its box and to the "fill" of its text.
+
+(define-class <Boxed-Text> (<Tk-Composite-item>)
+  ((box-item   :accessor 	box-item)
+   (text-item  :accessor 	text-item)
+   ;; Propagated slots
+   (text       :getter 		text-of
+	       :init-keyword 	:text
+	       :allocation 	:propagated 
+	       :propagate-to 	(text-item))
+   (coords     :getter 		coords 
+	       :init-keywords 	:coords
+	       :allocation 	:propagated
+	       :propagate-to 	(text-item))
+   (font       :getter 		font
+	       :init-keyword	:font
+	       :allocation 	:propagated 
+	       :propagate-to 	(text-item))
+   (foreground :accessor 	foreground
+	       :allocation 	:propagated 
+	       :propagate-to 	((box-item outline) (text-item fill)))
+   (background :accessor 	background
+	       :allocation 	:propagated
+	       :propagate-to 	((box-item fill)))))
+
+;;;; Herafter is a definition of the initialize-item method which will be 
+;;;; automagically called upon instance creation. This is this routine which 
+;;;; will create the components of the composite object.
+
+(define-method initialize-item ((self  <Boxed-Text>) canvas coords args)
+  (let* ((parent      (slot-ref self 'parent))
+	 (text        (get-keyword :text args ""))
+	 (t 	      (make <Text-item> :text text
+			    :anchor "nw" :parent parent :coords coords))
+	 (coords-rect (bounding-box t))
+	 (r 	      (make <Rectangle> :parent parent :coords coords-rect))
+	 (Cid 	      (gensym "group")))
+
+    ;; set the true slots
+    (slot-set! self 'Cid       Cid)
+    (slot-set! self 'box-item  r)
+    (slot-set! self 'text-item t)
+
+    ;; Add the r and t component to the "Group" whith tag "Cid"
+    (add-to-group self r t)
+
+    ;; Raise the text to be sure it will not be under the rectangle
+    (raise t)
+
+    ;; Give this association a default binding allowing it to be moved with mouse
+    (bind-for-dragging parent :tag Cid :only-current #f)
+    
+    ;; Return Cid
+    Cid))
+  
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Some methods which guarantish that the box is always the good size
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method (setter font) ((bt <Boxed-text>) value)
+  (let ((t (text-item bt)))
+    (set! (font t) value)
+    (set! (coords (box-item bt)) (bounding-box t))))
+
+(define-method (setter text-of) ((bt <Boxed-text>) value)
+  (let ((t (text-item bt)))
+    (set! (text-of t) value)
+    (set! (coords (box-item bt)) (bounding-box t))))
+
+(define-method (setter coords) ((bt <Boxed-text>) value)
+  (unless (and (list? value) (= (length value) 2))
+     (error "coords: must be a list of 2 elements. It was ~S" value))
+  (let ((t (text-item bt)))
+    (set! (coords t) value)
+    (set! (coords (box-item bt)) (bounding-box t))))
+
+
+;;;; And now a little demo using the preceding new widget
+
+(define (demo)
+  (let ((x  (make <Boxed-text> :parent c :coords '(50 50) :text "Hello")))
+    (update)
+    
+    (after 1000)
+    (do ((i 0 (+ i 3)))
+	((> i 200))
+      (set! (coords x) (list i i))
+      (update))
+
+    (after 1000)
+    (set! (coords x) '(100 100))
+    (set! (font x)  "10x20")
+    (set! (text-of x) "That's all, folks!")
+    (set! (background x) "lightblue")
+
+    ;; Destroying the group will destroy all the components and change the class
+    ;; of x to <Destroyed-object>
+    (update)
+    (after 1000)
+    (destroy x)
+    (format #t "class of x = ~S\n" (class-name (class-of x)))))
+
+
+;;; Run the demo
+(demo)
+
diff --git a/STklos/Examples/E3.stklos b/STklos/Examples/E3.stklos
new file mode 100644
index 0000000..f2f4517
--- /dev/null
+++ b/STklos/Examples/E3.stklos
@@ -0,0 +1,143 @@
+;;;;
+;;;; E x a m p l e 3 .  s t k
+;;;;
+;;;; Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  4-Aug-1994 17:33
+;;;; Last file update:  5-Aug-1994 12:04 
+;;;;
+
+
+;;;; This file demonstates the use of grouped canvas items.
+;;;; Grouping can be viewed
+;;;;	- statically by defining a class which is the composition of
+;;;;	  several items (such as <Chair> or <Table> classes below)
+;;;;    - dynamically by making a <Canvas-group> instance 
+;;;;	  of several items (such as the red-group below)
+
+
+
+(require "Canvas")
+;;;; Create canvas
+(define c (make <Canvas> :width 800 :height 600))
+(pack c)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; The <Table> class
+;;;; 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Table> (<Tk-composite-item>)
+  (deck f1 f2
+   (fill :init-keyword :fill 
+	 :accessor 	fill
+	 :allocation 	:propagated 
+	 :propagate-to  (deck f1 f2))))
+
+(define-method initialize-item ((self  <Table>) canvas coords args)
+  (let* ((parent      (slot-ref self 'parent))
+	 (x	      (car coords))
+	 (y	      (cadr coords))
+	 (deck	      (make <Line> :parent parent :width 8
+			    :coords (list x y (+ x 200) y)))
+	 (f1	      (make <Polygon> :parent parent
+			    :coords (list (+ x 40) y (+ x 20) (+ y 150)
+					  (+ x 25) (+ y 150) (+ x 55) y)))
+	 (f2	      (make <Polygon> :parent parent
+			    :coords (list (+ x 160) y (+ x 180) (+ y 150)
+					  (+ x 175) (+ y 150) (+ x 145) y))))
+    (let ((Cid (gensym "group")))
+      ;; Initialize true slots
+      (slot-set! self 'Cid  Cid)
+      (slot-set! self 'deck deck)
+      (slot-set! self 'f1   f1)
+      (slot-set! self 'f2   f2)
+      ;; Add the deck f1 f2 components to the "Group" whith tag "Cid"
+      (add-to-group self deck f1 f2)
+      ;; Give this association a default binding allowing it to be moved with mouse
+      (bind-for-dragging parent :tag Cid :only-current #f)
+      ;; Return Cid
+      Cid)))
+ 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; The <Chair> class
+;;;; 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Chair> (<Tk-composite-item>)
+  (deck back f1 f2 
+   (fill :init-keyword :fill 
+	 :accessor 	fill
+	 :allocation 	:propagated 
+	 :propagate-to  (deck back f1 f2))))
+
+(define-method initialize-item ((self  <Chair>) canvas coords args)
+  (let* ((parent      (slot-ref self 'parent))
+	 (x	      (car coords))
+	 (y	      (cadr coords))
+	 (deck	      (make <Line> :parent parent :width 8
+			    :coords (list x y (+ x 100) y)))
+	 (back	      (make <Line> :parent parent :width 5
+			    :coords (list (+ x 70) y (+ x 100) (- y 90))))
+	 (f1	      (make <Polygon> :parent parent
+			    :coords (list (+ x 20) y x (+ y 90)
+					  (+ x 5) (+ y 90) (+ x 30) y)))
+	 (f2	      (make <Polygon> :parent parent
+			    :coords (list (+ x 80) y (+ x 100) (+ y 90)
+					  (+ x 95) (+ y 90) (+ x 70) y))))
+    (let ((Cid (gensym "group")))
+      ;; Initialize true slots
+      (slot-set! self 'Cid  Cid)
+      (slot-set! self 'deck deck)
+      (slot-set! self 'back back)
+      (slot-set! self 'f1   f1)
+      (slot-set! self 'f2   f2)
+      ;; Add the deck f1 f2 components to the "Group" whith tag "Cid"
+      (add-to-group self deck back f1 f2)
+      ;; Give this association a default binding allowing it to be moved with mouse
+      (bind-for-dragging parent :tag Cid :only-current #f)
+      ;; Return Cid
+      Cid)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;; Define a table and two chairs
+(define t1 (make <Table> :parent c :coords '(120 50) :fill "red"))
+(define c1 (make <Chair> :parent c :coords '(320 110) :fill "green"))
+(define c2 (make <Chair> :parent c :coords '(450 110) :fill "red"))
+
+
+;;;; Define the group of red objects
+(define red-group (make <Canvas-group> :parent c))
+(add-to-group red-group t1 c2)
+
+;;;; Using button 2 of the mouse will move all the components of the red-group
+(bind-for-dragging c :tag (Cid red-group) :button 2 :only-current #f)
+
+
+;;;; Zoom in and out the red-group
+(update)
+(dotimes (i 20)
+   (rescale red-group 0 0 0.9 0.9)
+   (update))
+(dotimes (i 20)
+   (rescale red-group 0 0 1.1 1.1)
+   (update))
+
+
+(update)
+(delay 1000)
+
+		      
+			    
diff --git a/STklos/Examples/E4.stklos b/STklos/Examples/E4.stklos
new file mode 120000
index 0000000..add78d7
--- /dev/null
+++ b/STklos/Examples/E4.stklos
@@ -0,0 +1 @@
+../../Demos/compo-demo.stklos
\ No newline at end of file
diff --git a/STklos/Makefile b/STklos/Makefile
new file mode 100644
index 0000000..c9d14ab
--- /dev/null
+++ b/STklos/Makefile
@@ -0,0 +1,34 @@
+#
+# Makefile for STklos 
+#
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: 29-Jun-1993 13:58
+# Last file update: 24-Jul-1996 16:35
+#
+
+include ../config.make
+
+LIB_STKLOS = $(libdir)/STk
+
+stklos: 
+	@echo "**** make STklos completed"
+
+install: 
+	-if [ ! -d $(LIB_STKLOS) ] ; then mkdir -p $(LIB_STKLOS); fi
+	$(CP) stklos.stk describe.stk $(LIB_STKLOS)
+	$(CP) Tk/*.stklos Tk/Composite/*.stklos $(LIB_STKLOS)
+
+install.libs:
+
+clean:
+	@/bin/rm -f *~ core stklos.so
diff --git a/STklos/Tk/%README b/STklos/Tk/%README
new file mode 100644
index 0000000..f3ebe84
--- /dev/null
+++ b/STklos/Tk/%README
@@ -0,0 +1,6 @@
+This directory contains a "reification" of all Tk widgets. For now all, only
+the text  widget has not been rewritten as a STklos class.
+
+
+The directory Composite contains Composites widgets. Creation of a composite 
+widget is exposed in the Xhibition'94 paper (see the Doc directory).
diff --git a/STklos/Tk/Basics.stklos b/STklos/Tk/Basics.stklos
new file mode 100644
index 0000000..49137c4
--- /dev/null
+++ b/STklos/Tk/Basics.stklos
@@ -0,0 +1,377 @@
+;;;;
+;;;; B a s i c s . s t k 		--  Basic object class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 30-Mar-1993 15:39
+;;;; Last file update: 24-Sep-1996 17:49
+
+
+(require "Tk-meta")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-object> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-object> ()
+  ((Id      :getter Id)				    ;; Widget Id
+   (Eid	    :getter Eid)			    ;; External widget Id
+   (parent  :getter parent :init-keyword :parent))) ;; Parent widget
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-widget> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(define-class <Tk-widget> (<Tk-object>)
+  ())
+
+;;;
+;;; Utility method Id->instance
+;;;
+
+(define-method Id->instance ((id <widget>))
+  (let ((plist (get-widget-data id)))
+    (if plist 
+	(get-keyword :instance plist #f)
+	#f)))
+
+(define-method Id->instance ((id <string>))
+  (let ((var (read-from-string id)))
+    (if (and (not (equal? id "")) (symbol-bound? var))
+	(Id->instance (eval var))
+	#f)))
+
+(define-method Id->instance ((id <symbol>))
+  (if (symbol-bound? id)
+      (Id->instance (eval id))
+      #f))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-simple-widget> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-simple-widget> (<Tk-widget>)
+  ((background   	 :accessor     background   
+		 	 :init-keyword :background   
+		 	 :allocation   :tk-virtual)
+   (border-width 	 :accessor     border-width 
+		 	 :init-keyword :border-width
+			 :tk-name      bd     
+		 	 :allocation   :tk-virtual)
+   (cursor	 	 :accessor     cursor
+		 	 :init-keyword :cursor  
+		 	 :allocation   :tk-virtual)
+   (highlight-background :accessor     highlight-background  
+			 :init-keyword :highlight-background
+			 :tk-name      highlightback
+			 :allocation   :tk-virtual)
+   (highlight-color 	 :accessor     highlight-color  
+			 :init-keyword :highlight-color
+			 :tk-name      highlightcolor
+			 :allocation   :tk-virtual)
+   (highlight-thickness  :accessor     highlight-thickness  
+			 :init-keyword :highlight-thickness
+			 :tk-name      highlightthick
+			 :allocation   :tk-virtual)
+   (relief	 	 :accessor     relief	
+		 	 :init-keyword :relief       
+		 	 :allocation   :tk-virtual)
+   (take-focus		 :accessor     take-focus
+			 :init-keyword :take-focus
+			 :tk-name      takefocus
+			 :allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+
+(define-method initialize ((self <Tk-simple-widget>) initargs)
+  (let* ((parent	(get-keyword :parent     initargs *root*))
+	 (Id		(get-keyword :Id         initargs #f))
+	 (Eid		(get-keyword :Eid        initargs #f))
+	 (tk-options	(get-keyword :tk-options initargs '())))
+
+    (if Eid 
+	;; Eid is already defined. All we have to do is to reconfigure self
+	(letrec ((valids (slot-ref (class-of self) 'tk-valid-options))
+		 (find   (lambda (k l)
+			   (cond
+			    ((null? l) #f)
+			    ((eq? k (vector-ref (car l) 1)) (vector-ref (car l) 2))
+			    (else   (find k (cdr l)))))))
+
+	  (do ((l tk-options (cddr l)))
+	      ((null? l))
+	    (slot-set! self (find (car l) valids) (cadr l))))
+	;; Eid is undefined. Ask Tk to create the widget
+	(begin
+	  (set! Eid (apply (tk-constructor self) 
+			   (Tk::make-tk-name parent Id) 
+			   tk-options))
+	  (slot-set! self 'Id  Eid)  ; retain Tk command which implement this object
+	  (slot-set! self 'Eid Eid))); Eid an Id are the same for non composite 
+
+    ;; Udate parent
+    (slot-set! self 'parent parent)
+    ;; Store the information <self> in the Tk command to allow widget->instance
+    ;; conversion
+    (set-widget-data! Eid (list :instance self)))
+  (next-method))
+
+(define-method tk-constructor ((self <Tk-simple-widget>))
+  ;; Returns the Tk function that makes an object of this kind.
+  (error "tk-constructor: method must be overridden for ~S" 
+	 (class-name (class-of self))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-composite-widget>
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-composite-widget> (<Tk-widget>)
+  ((frame	 :accessor   frame-of))
+  :metaclass <Tk-composite-metaclass>)
+
+(define-method initialize ((self <Tk-composite-widget>) initargs)
+  ;; To work properly, the parent slot must be set before anything
+  (let* ((parent (get-keyword  :parent initargs *root*))
+	 (Id     (get-keyword  :Id     initargs #f))
+	 (frame	 (make <Frame> :parent parent :Id Id))
+	 (Eid    (slot-ref frame 'Id)))
+
+    (slot-set! self 'parent parent)
+    (slot-set! self 'Eid    Eid)
+    (slot-set! self 'frame  frame)
+
+    ;; Now call initialize-composite-widget
+    (initialize-composite-widget self initargs frame)
+
+    ;; Continue to initialize with value passed to "make" (and signal that 
+    ;; Eid is already initialized)
+    (next-method self (cons :Eid (cons Eid initargs)))
+
+    ;; Store the information <self> in the Tk command to allow widget->instance
+    ;; conversion
+    (set-widget-data! (slot-ref frame 'Id) (list :instance self))))
+
+(define-method initialize-composite-widget ((c <Tk-composite-widget>) args parent)
+  ;; We are here is no initialize-composite-widget metho is provided for c
+  #f)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-sizeable> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-sizeable> ()
+  ((width  :accessor width  :init-keyword :width  :allocation :tk-virtual)
+   (height :accessor height :init-keyword :height :allocation :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-simple-text> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-simple-text> ()
+  ((anchor	  :accessor     anchor
+		  :init-keyword :anchor
+		  :allocation   :tk-virtual)
+   (font	  :accessor     font
+		  :init-keyword :font
+		  :allocation   :tk-virtual)
+   (foreground	  :accessor     foreground
+		  :init-keyword :foreground
+		  :allocation   :tk-virtual)
+   (image	  :accessor     image-of
+		  :init-keyword :image
+		  :allocation   :tk-virtual)
+   (justify	  :accessor     justify
+		  :init-keyword :justify
+		  :allocation   :tk-virtual)
+   (pad-x	  :accessor     pad-x
+		  :init-keyword :pad-x
+		  :allocation   :tk-virtual
+		  :tk-name      padx)
+   (pad-y	  :accessor     pad-y
+		  :init-keyword :pad-y
+		  :allocation   :tk-virtual
+		  :tk-name      pady)
+   (text	  :accessor     text-of
+		  :init-keyword :text
+		  :allocation   :tk-virtual)
+   (text-variable :accessor     text-variable
+		  :init-keyword :text-variable
+		  :allocation   :tk-virtual
+		  :tk-name      textvar)
+   (underline	  :accessor     underline
+		  :init-keyword :underline
+		  :allocation   :tk-virtual)
+   (wrap-length	  :accessor     wrap-length
+		  :init-keyword :wrap-length
+		  :tk-name	wraplength
+		  :allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-bitmap> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-bitmap> ()
+  ((bitmap  :accessor bitmap :init-keyword :bitmap :allocation :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-reactive> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-reactive> ()
+  ((active-background   :accessor     active-background
+			:init-keyword :active-background
+		        :allocation   :tk-virtual
+			:tk-name      activebackground)
+   (active-foreground   :accessor     active-foreground
+			:init-keyword :active-foreground
+			:allocation   :tk-virtual
+			:tk-name      activeforeground)
+   (command 	        :accessor     command
+			:init-keyword :command
+			:allocation   :tk-virtual)
+   (disabled-foreground :accessor     disabled-foreground
+			:init-keyword :disabled-foreground
+			:allocation   :tk-virtual
+			:tk-name      disabledf)
+   (state 		:accessor     state
+			:init-keyword :state
+			:allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-xyscrollable> class
+;;;;
+;;;; 		A Tk-xyscrollable is an object which can be scrolled 
+;;;; 		both horizontally and vertically.
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-xyscrollable> ()
+  ((x-scroll-command :init-keyword :x-scroll-command
+		     :accessor     x-scroll-command
+		     :tk-name      xscrollcommand
+		     :allocation   :tk-virtual)
+   (y-scroll-command :init-keyword :y-scroll-command
+		     :accessor     y-scroll-command
+		     :tk-name      yscrollcommand
+		     :allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-editable> class 
+;;;;
+;;;; 		A Tk-editable object is not a graphical object per se. It's a 
+;;;;		recipient for the common slots of all editable objects 
+;;;;		(canvas, entry, ...)
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-editable> ()
+  ((insert-background   :init-keyword :insert-background
+			:accessor     insert-background
+			:tk-name      insertbackground
+			:allocation   :tk-virtual)
+   (insert-border-width :init-keyword :insert-border-width
+			:accessor     insert-border-width
+			:tk-name      insertborderwidth
+			:allocation   :tk-virtual)
+   (insert-off-time     :init-keyword :insert-off-time
+			:accessor     insert-off-time
+			:tk-name      insertofftime
+			:allocation   :tk-virtual)
+   (insert-on-time      :init-keyword :insert-on-time
+			:accessor     insert-on-time
+			:tk-name      insertontime
+			:allocation   :tk-virtual)
+   (insert-width        :init-keyword :insert-width
+			:accessor     insert-width
+			:tk-name      insertwidth
+			:allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-selectable> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-selectable> ()
+  ((select-background   :init-keyword :select-background
+			:accessor     select-background
+			:tk-name      selectbackground
+			:allocation   :tk-virtual)
+   (select-foreground   :init-keyword :select-foreground
+			:accessor     select-foreground
+			:tk-name      selectforeground
+			:allocation   :tk-virtual)
+   (select-border-width :init-keyword :select-border-width
+			:accessor     select-border-width
+			:tk-name      selectborderwidth
+			:allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-text-selectable> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-text-selectable> ()
+  ((export-selection	:init-keyword :export-selection
+			:accessor     export-selection
+			:tk-name      exportselection
+			:allocation   :tk-virtual)
+   (font		:init-keyword :font
+			:accessor     font
+			:allocation   :tk-virtual)
+   (foreground		:init-keyword :foreground
+			:accessor     foreground
+			:allocation   :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Destroyed-object>
+;;;;		This class serves only for destroyed objects (i.e. when a
+;;;;		widget or a canvas item is destroyed, its class is changed 
+;;;;		to destroyed 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Destroyed-object> ()
+  ())
+
+(provide "Basics")
+(require "Tk-methods")
diff --git a/STklos/Tk/Button.stklos b/STklos/Tk/Button.stklos
new file mode 100644
index 0000000..e5db9f8
--- /dev/null
+++ b/STklos/Tk/Button.stklos
@@ -0,0 +1,149 @@
+;;;
+;;;; B u t t o n . s t k 	  --  Label, Button, Check button and Radio button
+;;;;				      class definitions
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 30-Mar-1993 15:39
+;;;; Last file update: 21-Dec-1995 18:19
+
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Label> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Label>(<Tk-simple-widget> <Tk-simple-text> <Tk-sizeable> <Tk-bitmap>)
+  ())
+
+(define-method tk-constructor ((self <Label>))
+  Tk:label)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Button> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Button> (<Label> <Tk-reactive>)
+  ())
+
+(define-method tk-constructor ((self <Button>))
+  Tk:button)
+
+
+;;;
+;;; Buttons methods
+;;;
+(define-method flash ((self <Button>))
+  ((slot-ref self 'Id) 'flash))
+
+(define-method invoke ((self <Button>))
+  ((slot-ref self 'Id) 'invoke))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-complex-button>
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Tk-complex-button> (<Button>)
+  ((indicator-on	:accessor     indicator-on
+			:init-keyword :indicator-on
+			:tk-name      indicatoron
+			:allocation   :tk-virtual)
+   (select-color	:accessor     select-color
+			:init-keyword :select-color
+			:tk-name      selectco
+			:allocation   :tk-virtual)
+   (select-image	:accessor     select-image
+			:init-keyword :select-image
+			:tk-name      selectim
+			:allocation   :tk-virtual)
+   (string-value	:accessor     string-value
+			:init-keyword :string-value
+			:tk-name      stringval
+			:allocation   :tk-virtual)
+   (variable 		:accessor     variable 
+			:init-keyword :variable 
+			:allocation   :tk-virtual)))
+
+;;;
+;;; <Tk-complex-button> methods
+;;; 
+(define-method select ((self <Tk-complex-button>))
+  ((slot-ref self 'Id) 'select))
+
+(define-method deselect ((self <Tk-complex-button>))
+  ((slot-ref self 'Id) 'deselect))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Check-button> class definition
+;;;;
+;;;; Define a fictive slot ``value''. This slots permits to initialize
+;;;; the check button at creation time -- i.e you can do
+;;;; 	(define c (make <Check-button> :text "Test" :value #t))
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(define-class <Check-button> (<Tk-complex-button>)
+  ((on-value  :accessor     on-value 
+	      :init-keyword :on-value 
+	      :allocation   :tk-virtual
+	      :tk-name	    onvalue)
+   (off-value :accessor     off-value
+	      :init-keyword :off-value
+	      :allocation   :tk-virtual
+	      :tk-name	    offvalue)
+   ;; fictive slot 
+   (value     :accessor	    value
+	      :init-keyword :value
+	      :allocation   :virtual
+	      :slot-ref     (lambda (o)  
+			      (eval-string (slot-ref o 'variable)))
+	      :slot-set!    (lambda (o v) 
+			      (eval `(set! ,(string->symbol 
+					     (slot-ref o 'variable)) ,v))))))
+
+(define-method tk-constructor ((self <Check-button>))
+  Tk:checkbutton)
+
+;;;
+;;; <Check-button> methods
+;;;
+(define-method initialize ((self <Check-button>) args)
+  (next-method)
+  (let ((val (get-keyword :value  args #f)))
+    ;; If a value is specified at init-time init, set it.
+    (when val (slot-set! self 'value val))))
+
+(define-method toggle ((self <Check-button>))
+  ((slot-ref self 'Id) 'toggle))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Radio-button> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Radio-button> (<Tk-complex-button>)
+  ((value   :accessor value :init-keyword :value :allocation :tk-virtual)))
+
+
+(define-method tk-constructor ((self <Radio-button>))
+  Tk:radiobutton)
+
+
+(provide "Button")
diff --git a/STklos/Tk/Canvas.stklos b/STklos/Tk/Canvas.stklos
new file mode 100644
index 0000000..7a81d45
--- /dev/null
+++ b/STklos/Tk/Canvas.stklos
@@ -0,0 +1,338 @@
+;;;;
+;;;; C a n v a s . s t k 	  --  Canvas class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 18-Aug-1993 19:55
+;;;; Last file update: 23-Jul-1996 10:39
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Canvas class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Canvas> (<Tk-simple-widget> <Tk-sizeable> <Tk-xyscrollable> 
+			<Tk-editable> <Tk-selectable>)
+
+  ((items 	       :initform	(make-hash-table))
+   (close-enough       :init-keyword	:close-enough
+		       :accessor	close-enough
+		       :tk-name		closeenough
+		       :allocation	:tk-virtual)
+   (confine 	       :init-keyword	:confine
+		       :accessor	confine
+		       :allocation	:tk-virtual)
+   (x-scroll-increment :init-keyword    :x-scroll-increment
+		       :accessor	x-scroll-increment
+		       :tk-name		xscrollincrement
+		       :allocation 	:tk-virtual)
+   (y-scroll-increment :init-keyword    :y-xscroll-increment
+		       :accessor	y-scroll-increment
+		       :tk-name		yscrollincrement
+		       :allocation 	:tk-virtual)
+   (scroll-region      :init-keyword	:scroll-region
+		       :accessor	scroll-region
+		       :tk-name		scrollregion
+		       :allocation	:tk-virtual)))
+
+(define-method tk-constructor ((self <Canvas>))
+  Tk:canvas)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;; tag-value delivers the integer Id of an object. A method for canvas items 
+;; will be defined later
+(define-method tag-value ((object <top>))
+  (if (or (symbol?  object) (integer? object) (string?  object))
+      object
+      (error "**** object ~A is not contained in a canvas" object)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Canvas> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Add-tag
+;;;
+(define-method add-tag ((self <Canvas>) tag . args)
+  (apply (slot-ref self 'Id) 'addtag tag args))
+
+;;;
+;;; Bounding-box
+;;;
+(define-method bounding-box ((self <Canvas>) tag)
+  ((slot-ref self 'Id) 'bbox (tag-value tag)))
+ 
+;;;
+;;; Bind
+;;;
+(define-method bind ((self <Canvas>) tag-or-Id . args)
+  (if (and (string? tag-or-Id) 
+	   (> (string-length tag-or-Id) 2)
+	   (eq? (string-ref tag-or-Id 0) #\<))
+      (apply bind (slot-ref self 'Id) tag-or-Id args)
+      (apply (slot-ref self 'Id) 'bind  (tag-value tag-or-Id) args)))
+
+;;;
+;;; Canvas-x
+;;;
+(define-method canvas-x ((self <Canvas>) screenx . args)
+  (apply (slot-ref self 'Id) 'canvasx screenx args))
+
+;;;
+;;; Canvas-y
+;;;
+(define-method canvas-y ((self <Canvas>) screeny . args)
+  (apply (slot-ref self 'Id) 'canvasy screeny args))
+
+;;;
+;;; Coords et (setter coords)
+;;;
+(define-method coords ((self <Canvas>) tag-or-Id)
+  ((slot-ref self 'Id) 'coords (tag-value tag-or-Id)))
+
+(define-method (setter coords) ((self <Canvas>) tag-or-Id  args)
+  (apply (slot-ref self 'Id) 'coords (tag-value tag-or-Id) args))
+
+;;;
+;;; Delete-chars
+;;;
+(define-method delete-chars ((self <Canvas>) tag-or-Id first . last)
+  (apply (slot-ref self 'Id) 'dchars (tag-value tag-or-Id) first last))
+
+;;;
+;;; Delete (BUG. This procedure doesn't clean the hash table).....
+;;;
+(define-method canvas-delete ((self <Canvas>) . args)
+  (apply (slot-ref self 'Id) 'delete (map tag-value args)))
+
+;;;
+;;; Delete-tag
+;;;
+(define-method delete-tag ((self <Canvas>) tag-or-Id . tag-to-delete)
+  (apply (slot-ref self 'Id) 'dtag (tag-value tag-or-Id) tag-to-delete))
+
+
+;;;
+;;; Find-items
+;;;
+(define-method find-items ((self <Canvas>) . args)
+  (let ((result (apply (slot-ref self 'Id) 'find args)))
+    (if (list? result)
+        (map (lambda (x) (Cid->instance self x)) result)
+        (Cid->instance self result))))
+
+;;;
+;;; Focus
+;;;
+(define-method item-with-focus ((self <Canvas>))
+  (Cid->instance self ((slot-ref self 'Id) 'focus)))
+
+(define-method focus ((self <Canvas>) tag-or-id)
+  ((slot-ref self 'Id) 'focus (tag-value tag-or-id)))
+
+;;;
+;;; Get-tags
+;;;
+(define-method get-tags ((self <Canvas>) tag-or-Id)
+  ((slot-ref self 'Id) 'gettags (tag-value tag-or-Id)))
+
+;;;
+;;; Icursor
+;;;
+(define-method icursor ((self <Canvas>) tag-or-id index)
+  ((slot-ref self 'Id) 'icursor (tag-value tag-or-Id) index))
+
+;;;
+;;; Index
+;;;
+(define-method text-index ((self <Canvas>) tag-or-id index)
+  ((slot-ref self 'Id) 'index (tag-value tag-or-Id) index))
+
+;;;
+;;; Insert
+;;;
+(define-method text-insert ((self <Canvas>) tag-or-id before string)
+  ((slot-ref self 'Id) 'insert  (tag-value tag-or-Id) before string))
+
+
+;;;
+;;; Item-configure
+;;;
+(define-method item-configure ((self <Canvas>) tag-or-id . args )
+  (apply (slot-ref self 'Id) 'itemconfigure (tag-value tag-or-Id) args))
+
+;;;
+;;; Lower
+;;; 
+(define-method lower ((self <Canvas>) tag-or-Id . below)
+  (apply (slot-ref self 'Id) 'lower (tag-value tag-or-Id) (map tag-value below)))
+
+;;;
+;;; Move
+;;;
+(define-method move ((self <Canvas>) tag-or-Id x y)
+  ((slot-ref self 'Id) 'move (tag-value tag-or-Id) x y))
+
+;;;
+;;; Postscript
+;;;
+(define-method postscript ((self <Canvas>) . args)
+  (apply (slot-ref self 'Id) 'postscript args))
+
+;;;
+;;; Raise
+;;;
+(define-method raise ((self <Canvas>) tag-or-Id . above)
+  (apply (slot-ref self 'Id) 'raise (tag-value tag-or-Id) (map tag-value above)))
+
+;;;
+;;; Rescale
+;;;
+(define-method rescale ((self <Canvas>) tag-or-Id x y xs ys)
+  ((slot-ref self 'Id) 'scale (tag-value tag-or-Id) x y xs ys))
+
+;;;
+;;; Scan
+;;;
+(define-method scan ((self <Canvas>) option x y)
+  ((slot-ref self 'Id) 'scan option x y))
+
+;;;
+;;; Text-selection
+;;;
+(define-method text-selection ((self <Canvas>) . args)
+  (apply (slot-ref self 'Id) 'select args))
+
+;;;;;; item-type can be obtained by (class-name(class-of xxx))
+
+;;;
+;;; x-view family
+;;;
+(define-method x-view ((self <Canvas>) . args)
+  (apply (slot-ref self 'Id) 'xview args))
+
+(define-method x-view-scroll-units((self <Canvas>) num)
+  ((slot-ref self 'Id) 'xview 'scroll num 'units))
+
+(define-method x-view-scroll-pages((self <Canvas>) num)
+  ((slot-ref self 'Id) 'xview 'scroll num 'pages))
+
+(define-method x-view-moveto((self <Canvas>) fraction)
+  ((slot-ref self 'Id) 'xview 'moveto fraction))
+
+;;;
+;;; y-view family
+;;;
+(define-method y-view ((self <Canvas>) . args)
+  (apply (slot-ref self 'Id) 'yview args))
+
+(define-method y-view-scroll-units((self <Canvas>) num)
+  ((slot-ref self 'Id) 'yview 'scroll num 'units))
+
+(define-method y-view-scroll-pages((self <Canvas>) num)
+  ((slot-ref self 'Id) 'yview 'scroll num 'pages))
+
+(define-method y-view-moveto((self <Canvas>) fraction)
+  ((slot-ref self 'Id) 'yview 'moveto fraction))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; bind-for-dragging
+;;;;
+:;;; You can specify a :start, :before-motion, :after-motion, and :stop scripts
+;;;; If :before-motion returns #f the the object is not displaced and the
+;;;; :after-motion closure is not applied.
+;;;;
+;;;; Old :motion hook is equivalent to :after-motion but its use is deprecated
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-generic bind-for-dragging)
+(let ()
+  (define last-x 		   0)
+  (define last-y 		   0)
+  (define instance-selected '())
+
+  (define (start-drag instance x y closure tag)
+    (let ((tag (or tag (car ((slot-ref instance 'Id) 'find 'with 'current)))))
+      (delete-tag instance 'selected)
+      (add-tag instance 'selected 'with tag)
+      (raise instance 'selected)
+      (set! last-x x)
+      (set! last-y y)
+      (set! instance-selected (Cid->instance instance tag))
+      ;; Apply user :start hook
+      (if closure
+	  (closure instance-selected x y))))
+  
+  (define (motion-drag instance x y before after)
+    (let ((continue #t))
+      ;; Apply user :before-motion hook
+      (if before 
+	  (set! continue (before instance-selected x y)))
+      (when continue 
+	(move instance 'selected (- x last-x) (- y last-y))
+	(set! last-x x)
+	(set! last-y y)
+	;; Apply user :after-motion hook
+	(if after 
+	    (after instance-selected x y)))))
+
+  (define (fast-motion-drag instance x y)
+    (move instance 'selected (- x last-x) (- y last-y))
+    (set! last-x x)
+    (set! last-y y))
+  
+  (define (stop-drag instance x y closure)
+    (delete-tag instance 'selected)
+    ;; Apply user :stop hook
+    (if closure 
+	(closure instance-selected x y)))
+
+  (add-method bind-for-dragging (method ((self <Canvas>) . args)
+    (let* ((Id     (slot-ref self 'Id))
+	   (who    (tag-value (get-keyword :tag args 'all)))
+	   (but    (get-keyword :button args 1))
+	   (mod    (get-keyword :modifier args ""))
+	   (alone  (get-keyword :only-current args #t)) 
+	   (str    (if (equal? mod "") "" (string-append mod "-")))
+	   (start  (get-keyword :start args #f))
+	   (before (get-keyword :before-motion args #f))
+	   (after  (get-keyword :after-motion args (get-keyword :motion args #f)))
+	   (stop   (get-keyword :stop args #f)))
+      
+      ;; Start binding
+      (bind self who (format #f "<~AButtonPress-~A>" str but) 
+	    (lambda (x y) (start-drag self x y start (if alone #f who))))
+      ;; Motion binding
+      (bind self who (format #f "<~AB~A-Motion>" str but)
+	    (if (or before after)
+		(lambda (x y) (motion-drag self x y before after))
+		;; Provide a faster motion handler
+		(lambda (x y) (fast-motion-drag self x y))))
+      ;; Stop binding
+      (bind self who (format #f "<~AButtonRelease-~A>" str but)
+	    (lambda (x y) (stop-drag self x y stop)))))))
+
+(require "Canvitem")
+(provide "Canvas")
diff --git a/STklos/Tk/Canvitem.stklos b/STklos/Tk/Canvitem.stklos
new file mode 100644
index 0000000..e341e1a
--- /dev/null
+++ b/STklos/Tk/Canvitem.stklos
@@ -0,0 +1,458 @@
+;;;;
+;;;; C a n v i t e m . s t k 	  --  Canvas Items classes definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 24-Aug-1993 11:24
+;;;; Last file update: 17-Jan-1996 23:53
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-canvas-item>
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-canvas-item> (<Tk-object>)
+  ((Cid :getter  Cid))
+  :metaclass <Tk-item-metaclass>)
+
+(define-method initialize ((self <Tk-canvas-item>) initargs)
+  (let* ((parent  (get-keyword :parent initargs #f))
+	 (coords  (get-keyword :coords initargs '())))
+
+    ;; Verify that parent exists and that it is a canvas 
+    (unless parent
+       (error "**** You must specify the canvas which contain this object"))
+    (unless (is-a? parent <Canvas>)
+       (error "**** Specified canvas ~A is not valid" parent))
+
+    (let ((parent-Id (slot-ref parent 'Id)))
+      (slot-set! self 'parent parent)
+      (slot-set! self 'Id  parent-Id)
+      (slot-set! self 'Eid parent-Id)
+      ;; Initialize Cid last because composite item need it
+      (let ((Cid (initialize-item self parent-Id coords initargs)))
+	(slot-set! self 'Cid Cid)
+	(hash-table-put! (slot-ref parent 'items) Cid self)))
+    (next-method)))
+
+(define-method initialize-item ((self <Tk-canvas-item>) canv-Id coords args)
+  (error "initialize-item: no method for ~S subclass" self))
+
+(define-method Tk-write-object ((self <Tk-Canvas-item>) port)
+  (write (slot-ref self 'Cid) port))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-canvas-figure> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-canvas-figure> (<Tk-canvas-item>)
+  ((tags   :accessor tags   
+	   :init-keyword :tags 
+	   :allocation   :tk-virtual)
+   (coords :accessor     coords 
+	   :init-keyword :coords
+	   :allocation   :virtual 
+	   :slot-ref	 (lambda (o) 
+			   ((slot-ref o 'Id) 'coords (slot-ref o 'Cid)))
+	   :slot-set!	 (lambda (o v)
+			   (apply (slot-ref o 'Id) 'coords (slot-ref o 'Cid) v)))))
+
+(define-method initialize-item ((self <Tk-canvas-figure>) canv-Id coords args)
+  (apply canv-Id 'create (canvas-item-initializer self)
+         (append coords (get-keyword :tk-options args '()))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-composite-item> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-composite-item> (<Tk-canvas-item>)
+  ()
+  :metaclass <Tk-composite-item-metaclass>)
+
+(define-method add-to-group ((self <Tk-composite-item>) . items)
+  (let ((tag (Cid self)))
+    (for-each (lambda (i) (add-tag i tag)) items)))
+
+(define-method delete-from-group ((self <Tk-composite-item>) item)
+  (delete-tag item (Cid self)))
+
+(define-method items-of-group ((self <Tk-composite-item>))
+  (find-items (slot-ref self 'parent) 'withtag (Cid self)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Canvas-group> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Canvas-group> (<Tk-composite-item>)
+  ()
+)
+
+(define-method initialize-item ((self <Canvas-group>) parent-Id coords initargs)
+  ;; Just return the tag which will be shared among items
+  (gensym "group"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;; tag-value delivers the integer Id of an object
+(define-method tag-value ((object <Tk-canvas-item>))
+  (slot-ref object 'Cid))
+
+;;;
+;;; Utility: Cid->instance
+;;;
+(define (Cid->instance canvas id)
+  (hash-table-get (slot-ref canvas 'items) id #f))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-canvas-item> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Add-tag
+;;;
+(define-method add-tag ((self <Tk-canvas-item>) tag)
+  ((slot-ref self 'Id) 'addtag tag 'withtag (slot-ref self 'Cid)))
+
+;;;
+;;; Bounding-box
+;;;
+(define-method bounding-box ((self <Tk-canvas-item>))
+  ((slot-ref self 'Id) 'bbox (slot-ref self 'Cid)))
+
+;;;
+;;; Bind
+;;;
+(define-method bind ((self <Tk-canvas-item>) . args)
+  (apply (slot-ref self 'Id) 'bind (slot-ref self 'Cid) args))
+
+
+;;;
+;;; Delete-chars
+;;;
+(define-method delete-chars ((self <Tk-Canvas-item>) first . last)
+  (apply (slot-ref self 'Id) 'dchars (slot-ref self 'Cid) first last))
+
+
+;;;
+;;; Delete/Destroy
+;;;
+(define-method destroy ((self <Tk-canvas-item>))
+  (let ((parent   (slot-ref self 'parent))
+	(cid-item (slot-ref self 'Cid)))
+
+    ;; First delete item from canvas
+    ((slot-ref parent 'Id) 'delete cid-item)
+    ;; Now delete its reference in the hash table
+    (hash-table-remove! (slot-ref parent 'items) cid-item)
+    ;; Change class of the item to <Destroyed-object>
+    (change-class self <Destroyed-object>)))
+
+(define-method destroy ((self <Tk-composite-item>))
+  (let* ((parent (slot-ref self 'parent))
+	 (all    (find-items parent 'with (Cid self))))
+
+    ;; Destroy each components
+    (for-each destroy all)
+    ;; Delete reference of the group in hash table
+    (hash-table-remove! (slot-ref parent 'items) (Cid self)))
+    ;; Change class of the group to <Destroyed-object>
+    (change-class self <Destroyed-object>))
+
+(define-method delete ((self <Tk-canvas-item>))
+  ;; For compatibility with older versions
+  (destroy self))
+
+;;;
+;;; Delete-tag
+;;;
+(define-method delete-tag ((self <Tk-canvas-item>) tag-to-delete)
+  ((slot-ref self 'Id) 'dtag  (slot-ref self 'Cid) tag-to-delete))
+
+;;;;;;;;;; find is useless for Tk-canvas-item
+
+;;;
+;;; focus
+;;;
+(define-method focus ((self <Tk-canvas-item>))
+  ((slot-ref self 'Id) 'focus  (slot-ref self 'Cid)))
+
+;;;
+;;; get-tags
+;;;
+(define-method get-tags ((self <Tk-canvas-item>))
+  ((slot-ref self 'Id) 'gettags (slot-ref self 'Cid)))
+
+;;;
+;;; Icursor
+;;;
+(define-method icursor ((self <Tk-Canvas-item>) index)
+  ((slot-ref self 'Id) 'icursor (slot-ref self 'Cid) index))
+
+;;;
+;;; Index
+;;;
+(define-method text-index ((self <Tk-Canvas-item>) index)
+  ((slot-ref self 'Id) 'index (slot-ref self 'Cid) index))
+
+;;;
+;;; Insert
+;;;
+(define-method text-insert ((self <Tk-Canvas-item>) before string)
+  ((slot-ref self 'Id) 'insert  (slot-ref self 'Cid) before string))
+
+;;;
+;;; Lower
+;;;
+(define-method lower ((self <Tk-canvas-item>) . below)
+  (apply (slot-ref self 'Id) 'lower (slot-ref self 'Cid) (map tag-value below)))
+
+;;;
+;;; Move
+;;;
+(define-method move ((self <Tk-canvas-item>) x y)
+  ((slot-ref self 'Id) 'move (slot-ref self 'Cid) x y))
+
+;;;;;;;;;; postscript has no sense for Tk-canvas-item
+
+;;;
+;;; Raise
+;;;
+(define-method raise ((self <Tk-canvas-item>) . above)
+  (apply (slot-ref self 'Id) 'raise (slot-ref self 'Cid) (map tag-value above)))
+
+;;;
+;;; Rescale
+;;;
+(define-method rescale ((self <Tk-canvas-item>) x y xs ys)
+  ((slot-ref self 'Id) 'scale (slot-ref self 'Cid) x y xs ys))
+
+;;;
+;;; Text-selection  (not implemented. What is the prototype?)
+;;;
+
+;;;;;;;; item-type can (approximatively) be obtained by (class-name(class-of xxx))
+
+;;;
+;;; xview
+;;;
+(define-method xview ((self <Tk-canvas-item>) x)
+  ((slot-ref self 'Id) 'xview x))
+
+
+;;;
+;;; yview
+;;;
+(define-method yview ((self <Tk-canvas-item>) x)
+  ((slot-ref self 'Id) 'yview x))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Arc> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Arc> (<Tk-canvas-figure>)
+  ((extent  :accessor extent	:init-keyword :extent  :allocation :tk-virtual)
+   (fill    :accessor fill 	:init-keyword :fill    :allocation :tk-virtual)
+   (outline :accessor outline	:init-keyword :outline :allocation :tk-virtual)
+   (start   :accessor start	:init-keyword :start   :allocation :tk-virtual)
+   (stipple :accessor stipple	:init-keyword :stipple :allocation :tk-virtual)
+   (style   :accessor style	:init-keyword :style   :allocation :tk-virtual)
+   (width   :accessor width	:init-keyword :width   :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer((self <Arc>))	"arc")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Bitmap-item> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Bitmap-item> (<Tk-canvas-figure>)
+  ((anchor      :accessor 	anchor
+	        :init-keyword 	:anchor
+	        :allocation 	:tk-virtual)
+   (background  :accessor 	background
+	        :init-keyword 	:background
+	        :allocation 	:tk-virtual)
+   (bitmap-name :accessor 	bitmap-name
+	        :init-keyword 	:bitmap-name
+		:tk-name	bitmap
+	        :allocation 	:tk-virtual)
+   (foreground  :accessor 	foreground
+	        :init-keyword	:foreground
+	        :allocation	:tk-virtual)))
+
+(define-method canvas-item-initializer((self <Bitmap-Item>))	"bitmap")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Image-item> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Image-item> (<Tk-canvas-figure>)
+  ((anchor     :accessor 	anchor
+	       :init-keyword 	:anchor
+	       :allocation 	:tk-virtual)
+   (image-name :accessor	image-name
+	       :init-keyword	:image-name
+	       :tk-name		image
+	       :allocation	:tk-virtual)))
+
+(define-method canvas-item-initializer((self <Image-Item>))	"image")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Line> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Line> (<Tk-canvas-figure>)
+  ((arrow	 :accessor 	arrow	
+		 :init-keyword 	:arrow 
+		 :allocation 	:tk-virtual)
+   (arrow-shape	 :accessor 	arrow-shape
+		 :init-keyword 	:arrow-shape 
+		 :tk-name 	arrowshape 
+		 :allocation 	:tk-virtual)
+   (cap-style	 :accessor 	cap-style
+		 :init-keyword 	:cap-style
+		 :tk-name	capstyle
+		 :allocation 	:tk-virtual)
+   (fill	 :accessor 	fill
+		 :init-keyword 	:fill 
+		 :tk-name 	fill 
+		 :allocation 	:tk-virtual)
+   (join-style	 :accessor 	join-style
+		 :init-keyword 	:join-style 
+		 :tk-name 	joinstyle 
+		 :allocation 	:tk-virtual)
+   (smooth	 :accessor 	smooth
+		 :init-keyword 	:smooth 
+		 :allocation 	:tk-virtual)
+   (spline-steps :accessor 	spline-steps
+		 :init-keyword 	:spline-steps 
+		 :tk-name 	splinesteps 
+		 :allocation 	:tk-virtual)
+   (stipple	 :accessor 	stipple
+		 :init-keyword 	:stipple 
+		 :allocation 	:tk-virtual)
+   (width	 :accessor 	width
+		 :init-keyword 	:width 
+		 :allocation 	:tk-virtual)))
+
+(define-method canvas-item-initializer((self <Line>))		"line")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Oval> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Oval> (<Tk-canvas-figure>)
+  ((fill    :accessor fill    :init-keyword :fill    :allocation :tk-virtual)
+   (outline :accessor outline :init-keyword :outline :allocation :tk-virtual)
+   (stipple :accessor stipple :init-keyword :stipple :allocation :tk-virtual)
+   (width   :accessor width   :init-keyword :width   :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer((self <Oval>))		"oval")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Polygon> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Polygon> (<Tk-canvas-figure>)
+  ((fill    	 :accessor 	fill    
+		 :init-keyword 	:fill 
+		 :allocation 	:tk-virtual)
+   (outline 	 :accessor 	outline	
+		 :init-keyword  :outline 
+		 :allocation    :tk-virtual)
+   (smooth  	 :accessor 	smooth  
+		 :init-keyword 	:smooth
+		 :allocation 	:tk-virtual)
+   (spline-steps :accessor 	spline-steps
+		 :init-keyword 	:spline-steps
+		 :tk-name 	splinesteps
+		 :allocation 	:tk-virtual)
+   (stipple 	 :accessor 	stipple
+		 :init-keyword 	:stipple
+		 :allocation 	:tk-virtual)
+   (width   	 :accessor 	width   
+		 :init-keyword  :width
+		 :allocation 	:tk-virtual)))
+
+(define-method canvas-item-initializer((self <Polygon>))	"polygon")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Rectangle> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Rectangle> (<Tk-canvas-figure>)
+  ((fill    :accessor fill    :init-keyword :fill    :allocation :tk-virtual)
+   (outline :accessor outline :init-keyword :outline :allocation :tk-virtual)
+   (stipple :accessor stipple :init-keyword :stipple :allocation :tk-virtual)
+   (width   :accessor width   :init-keyword :width   :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer((self <Rectangle>))	"rectangle")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text-Item> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Text-item> (<Tk-canvas-figure>)
+  ((anchor  :accessor anchor  :init-keyword :anchor  :allocation :tk-virtual)
+   (fill    :accessor fill    :init-keyword :fill    :allocation :tk-virtual)
+   (font    :accessor font    :init-keyword :font    :allocation :tk-virtual)
+   (justify :accessor justify :init-keyword :justify :allocation :tk-virtual)
+   (stipple :accessor stipple :init-keyword :stipple :allocation :tk-virtual) 
+   (text    :accessor text-of :init-keyword :text    :allocation :tk-virtual)
+   (width   :accessor width   :init-keyword :width   :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer((self <Text-item>))	"text")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Canvas-window> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Canvas-Window> (<Tk-canvas-figure>)
+  ((anchor  :accessor anchor  :init-keyword :anchor  :allocation :tk-virtual)
+   (height  :accessor height  :init-keyword :height  :allocation :tk-virtual)
+   (width   :accessor width   :init-keyword :width   :allocation :tk-virtual)
+   (window  :accessor window  :init-keyword :window  :allocation :tk-virtual)))
+
+(define-method canvas-item-initializer((self <Canvas-window>))	"window")
+
+
+(provide "Canvitem")
diff --git a/STklos/Tk/Composite/Choicebox.stklos b/STklos/Tk/Composite/Choicebox.stklos
new file mode 100644
index 0000000..b208932
--- /dev/null
+++ b/STklos/Tk/Composite/Choicebox.stklos
@@ -0,0 +1,85 @@
+;;;;
+;;;; C h o i c e b o x . s t k 	  --  Choice Box composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 24-Sep-1996 17:49
+
+(require "Lentry")
+(require "Menu")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Choice-box> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Choice-box> (<Tk-composite-widget> <Labeled-Entry>)
+  (lentry 	 :accessor   lentry-of)
+   (menu	 :accessor   menu-of)
+   (menubutton   :accessor   menubutton-of)
+   ;; Non allocated slots
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to (frame lentry menu menubutton))
+   (border-width :accessor     border-width 
+		 :allocation   :propagated
+		 :init-keyword :border-width
+		 :propagate-to (frame))
+   (relief	 :accessor     relief
+		 :init-keyword :relief
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+;;;;
+;;;; <Choice-box> methods
+;;;;
+
+(define-method initialize-composite-widget ((self <Choice-box>) initargs parent)
+  (let* ((l  (make <Labeled-entry> :parent parent))
+	 (mb (make <Menu-button>   :parent parent
+		   		   :text ""
+				   :relief "flat"
+		   		   :indicator-on #t
+		   		   :relief "raised"))
+	 (m  (make <Menu>          :parent mb)))
+
+    (pack l  :side "left"  :fill "x" :expand #t)
+    (pack mb :side "right")
+    
+    ;; Initialize true slots
+    (slot-set! self 'Id	    (slot-ref l 'Id))
+    (slot-set! self 'lentry l)
+    (slot-set! self 'menu   m)
+    (slot-set! self 'menubutton mb)
+
+    ;; Initialize inherited slots
+    (slot-set! self 'label  (label-of l))
+    (slot-set! self 'entry  (entry-of l))
+
+    ;; Attach menu m to menu button mb
+    (set! (menu-of mb) m)))
+
+;;
+;; add-choice permits to add a new choice (a string) in the associated 
+;; Choice-box menu
+;;
+
+(define-method add-choice ((self <Choice-box>) mess)
+  (menu-add (Menu-of self) 'command 
+	    		   :label mess 
+			   :command (lambda () 
+				      (set! (value self) mess))))
+
+(provide "Choicebox")
diff --git a/STklos/Tk/Composite/Defbutton.stklos b/STklos/Tk/Composite/Defbutton.stklos
new file mode 100644
index 0000000..1bb33f1
--- /dev/null
+++ b/STklos/Tk/Composite/Defbutton.stklos
@@ -0,0 +1,55 @@
+;;;;
+;;;; D e f b u t t o n . s t k 	  --  Default button composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 13-Aug-1996 23:16
+
+(require "Frame")
+(require "Button")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Default-button> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Default-button> (<Tk-composite-widget> <Button>)
+  ((button 	   :accessor     button-of)
+   (internal-frame :accessor	 internal-frame-of)
+   ;; Fictive slots 
+   (background     :accessor     background
+		   :init-keyword :background
+		   :allocation   :propagated
+		   :propagate-to (frame button internal-frame))
+   (border-width   :accessor     border-width 
+		   :allocation   :propagated
+		   :init-keyword :border-width
+		   :propagate-to (frame))
+   (relief	   :accessor     relief
+		   :init-keyword :relief
+		   :allocation   :propagated
+		   :propagate-to (frame))))
+
+(define-method initialize-composite-widget ((self <Default-button>) initargs frame)
+  (let* ((if (make <Frame>  :parent frame :border-width 2 :relief "groove"))
+	 (b  (make <Button> :parent if)))
+
+    (pack b  :padx 5 :pady 5 :expand #t)
+    (pack if :padx 5 :pady 5 :expand #t)
+    
+    (slot-set! self 'Id    	    (Id b))
+    (slot-set! self 'button	    b)
+    (slot-set! self 'internal-frame if)))
+
+(provide "Defbutton")
diff --git a/STklos/Tk/Composite/Filebox.stklos b/STklos/Tk/Composite/Filebox.stklos
new file mode 100644
index 0000000..2ec1691
--- /dev/null
+++ b/STklos/Tk/Composite/Filebox.stklos
@@ -0,0 +1,297 @@
+;;;;
+;;;; F i l e b o x . s t k 	  --  File Box composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 13-Aug-1996 23:18
+
+(require "unix")
+(require "Toplevel")
+(require "Button")
+(require "Paned")
+(require "Scrollbox")
+(require "Lentry")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <File-box> class-definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <File-box> (<Tk-composite-widget>)
+  (paned	 		;; paned and button are not intended to the user
+   buttons
+   (left-frame  :accessor left-frame-of)
+   (right-frame :accessor right-frame-of)
+   (left-title  :accessor left-title-of)
+   (right-title :accessor right-title-of)
+   (lentry	:accessor lentry-of)
+   but-frame
+   (ok-button	:accessor ok-button-of)
+   (canc-button :accessor cancel-button-of)
+   (help-button :accessor help-button-of)
+   (all-button  :accessor all-button-of)
+
+   ;; Fictives slots
+   (value	 :accessor     value
+		 :allocation   :propagated
+		 :propagate-to (lentry))
+   (background   :accessor     background
+		 :allocation   :propagated
+		 :propagate-to (frame paned buttons left-frame right-frame 
+				left-title right-title lentry 
+				ok-button canc-button help-button all-button))
+   (width	 :accessor     width
+		 :init-keyword :width
+		 :allocation   :propagated
+		 :propagate-to (frame))
+   (height	 :accessor     height
+		 :init-keyword :height
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <File-box> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Interface
+;;; 
+
+(define-method initialize-composite-widget ((self <File-box>) initargs frame)
+  (let* ((paned  (make <VPaned> :parent frame :fraction 0.3))
+	 (f      (make <Frame>  :parent frame))
+	 (lf     (left-frame-of  paned))
+	 (rf     (right-frame-of paned)))
+
+    (slot-set! self 'paned 	 paned)
+    (slot-set! self 'buttons	 f) 
+    (slot-set! self 'left-frame  (make <Scroll-Listbox> :parent lf))
+    (slot-set! self 'right-frame (make <Scroll-Listbox> :parent rf))
+    (slot-set! self 'left-title  (make <Label>          :parent lf :text "Parents"))
+    (slot-set! self 'right-title (make <Label>          :parent rf :text "Files"))
+    (slot-set! self 'lentry	 (make <Labeled-entry>  :parent frame 
+				       			:title "File name"))
+    (slot-set! self 'ok-button   (make <Button> :text " Ok "     :parent f))
+    (slot-set! self 'canc-button (make <Button> :text " Cancel " :parent f))
+    (slot-set! self 'help-button (make <Button> :text " Help "   :parent f))
+    (slot-set! self 'all-button	 (make <Check-button> :text "All files" 
+				       :parent f))
+
+    ;; Pack everybody
+    (pack [left-title-of self] [right-title-of self] :fill "x") ; lists titles
+    (pack [left-frame-of self]					; paned
+	  [right-frame-of self]
+	  paned
+	  :expand #t :fill "both" :padx 4 :pady 5)
+    (pack [lentry-of self] :fill "x" :padx 5 :pady 5)		; lentry
+    (pack [ok-button-of self]					; bottom buttons
+	  [cancel-button-of self]
+	  [all-button-of self]
+	  [help-button-of self]
+	  :side "left" :expand #t :ipadx 3 :ipady 3)
+    (pack f :fill "x" :side "bottom" :padx 10 :pady 10)		; bot but's frame
+
+    ;; Set grip visible
+    (set! (background (grip-of paned)) "red")
+
+    ;; Set geometry of this widget (necessary to avoid a 0x0 widget).
+    (slot-set! paned 'width  (get-keyword :width  initargs 400))
+    (slot-set! paned 'height (get-keyword :height initargs 200))
+
+    ;; Don't export selection on Listboxes
+    (slot-set! (left-frame-of  self) 'export-selection #f)
+    (slot-set! (right-frame-of self) 'export-selection #f)
+
+    ;; Associate bindings 
+    (STk:associate-bindings self)
+
+    ;; Initialize listboxes
+    (let ((dir (getcwd)))
+      (slot-set! self 'value dir)
+      (scan-directory self dir))))
+
+;;;;
+;;;; Bindings association
+;;;;
+(define-method STk:associate-bindings ((self <File-box>))
+  (let ((directory (slot-ref self 'value))
+	(&	   string-append))
+    ;;
+    ;; toggle-all-files
+    ;; 
+    (define (toggle-all-files fb)
+      (let ((val (slot-ref fb 'value)))
+	(unless (file-is-directory? val)
+	  (set! val (dirname val)))
+	(slot-set! fb 'value val)
+	(scan-directory fb val)))
+
+    ;;
+    ;; choose-parent
+    ;;
+    (define (choose-parent fb)
+      (let* ((lb  (left-frame-of fb))
+	     (sel (current-selection lb)))
+	(when  sel
+	    ;; Read all component from 0 to sel and append them in a string
+	    (let ((dir "")
+		  (sel (car sel)))
+	      (do ((i 1 (+ i 1)))
+		  ((> i sel))
+		(set! dir (& dir "/" (get lb i))))
+	      (let ((new-dir (if (string=? dir "") "/" dir)))
+		(slot-set! fb 'value new-dir)
+		(scan-directory fb new-dir))))))
+
+    ;;
+    ;; choose-file
+    ;;
+    (define (choose-file fb)
+      (let* ((lb  (right-frame-of fb))
+	     (sel (current-selection lb)))
+	(when  sel
+	    (let* ((sel (car sel))
+		   (val (& (slot-ref fb 'value) "/" (get lb sel))))
+	      (if (file-is-directory? val)
+		  (begin
+		    ;; Make a new file name
+		    (catch 
+		     (let ((cur (getcwd)))
+		       ;; Make a pretty name (i.e. avoid things such as /a/b/../c)
+		       (chdir val)
+		       (set! val (getcwd))
+		       (chdir cur)))
+		    (slot-set! fb 'value val)
+		    (scan-directory fb val))
+		  (invoke fb))))))
+    ;;
+    ;; complete-file
+    ;;
+    (define (complete-file fb)
+      (let ((val (sort (glob (& (value fb) "*")) string<?)))
+	(when (= (length val) 1)
+	    (let ((f (car val)))
+	      (if (file-is-directory? f) (set! f (& f "/")))
+	      (slot-set! fb 'value f)
+	      (scan-directory fb f))))
+      ;; Keep focus on the labeled entry widget
+      'break)
+  
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; STk:associate-binding starts here
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  
+    ;;Display current directory in the labeled entry
+    (slot-set! self 'value (getcwd))
+    
+    ;; All files button
+    (slot-set! (all-button-of self) 'command (lambda () (toggle-all-files self)))
+    
+    ;; Help button
+    (slot-set! (help-button-of self) 'command 
+	       (lambda ()
+		 (STk:show-help-file "fbox-hlp.html")))
+    
+    ;; Button release in paned
+    (bind (listbox-of (left-frame-of self)) "<Double-1>" (lambda () 
+							   (choose-parent self)))
+    (bind (listbox-of (right-frame-of self)) "<Double-1>" (lambda ()
+							    (choose-file self)))
+    
+    ;; Tab in the entry
+    (bind (entry-of (lentry-of self)) "<space>" (lambda () (complete-file self)))
+    (bind (entry-of (lentry-of self)) "<Tab>"   (lambda () (complete-file self)))
+    
+    ;; Return in the entry
+    (bind (entry-of (lentry-of self)) "<Return>" (lambda () (invoke self)))))
+
+;;;
+;;; invoke
+;;;
+(define-method invoke ((self <File-box>))
+  (invoke (ok-button-of self)))
+
+;;
+;; Directory listing
+;;
+(define-method scan-directory ((fb <File-box>) directory)
+  (let ((& string-append))
+    (when (file-is-directory? directory)
+	(let ((files (if (value (all-button-of fb))
+			 (glob (& directory "/*") (& directory "/.*"))
+			 (glob (& directory "/*")))))
+	  ;; Display the right part
+	  (delete (right-frame-of fb) 0 'end)
+	  (apply insert (right-frame-of fb) 0 
+		 (map (lambda (x) (basename x)) (sort files string<?)))
+	  
+	  ;; Display the left part
+	  (delete (left-frame-of fb) 0 'end)
+	  (apply insert (left-frame-of fb) 0 (decompose-file-name directory))))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; make-file-box
+;;;;		User function which permits to create a toplevel containing a 
+;;;;		file selection box. Result is the value of the file choosen
+;;;;		or #f if the CANCEL button has been depressed
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define stk:filebox-lock   #F)  ;; lock variable
+
+(define (make-file-box . title)
+
+  (define (file-box-value fb)
+    (let* ((lb  (right-frame-of fb))
+	   (sel (current-selection lb))
+	   (val (value fb)))
+      (if (file-is-directory? val)
+	  (string-append val (if sel (string-append "/" (get lb (car sel))) ""))
+	  val)))
+
+  (let* ((t   (make <Toplevel> :class "FileSelector" 
+		    :title (if (null? title) "File Selection" (car title))))
+	 (f   (make <File-Box> :parent t))
+	 (res #t))
+
+    ;; map the filebox
+    (pack f :expand #t :fill "both")
+
+    ;; Associate actions to Ok and Cancel button
+    (set! (command (ok-button-of f)) 
+	  (lambda ()
+	    (set! res (file-box-value f))
+	    (set! stk:filebox-lock 'ok)))
+    (set! (command (cancel-button-of f)) 
+	  (lambda ()
+	    (set! res #f)
+	    (set! stk:filebox-lock 'cancel)))
+
+    (bind t "<Destroy>" (lambda () (set! stk:filebox-lock 'destroy)))
+
+    ;; and now wait an event
+    (tkwait 'variable 'stk:filebox-lock)
+
+    ;; Destroy the window
+    (catch (destroy t))
+
+    ;; Return the value of res
+    res))
+
+
+(provide "Filebox")
diff --git a/STklos/Tk/Composite/Lentry.stklos b/STklos/Tk/Composite/Lentry.stklos
new file mode 100644
index 0000000..2bfdbac
--- /dev/null
+++ b/STklos/Tk/Composite/Lentry.stklos
@@ -0,0 +1,77 @@
+;;;;
+;;;; L e n t r y  . s t k 	  --  Labeled Entry composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 13-Aug-1996 23:14
+
+(require "Frame")
+(require "Button")
+(require "Entry")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Labeled-Entry> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Labeled-entry> (<Tk-composite-widget> <Entry>)
+  ((entry	 :accessor   entry-of)
+   (label	 :accessor   label-of)
+   ;; Fictive slots
+   (title	 :accessor	title
+		 :init-keyword	:title
+		 :allocation	:propagated
+		 :propagate-to	((label text)))
+   (title-width	 :accessor	title-width
+		 :init-keyword	:title-width
+		 :allocation	:propagated
+		 :propagate-to	((label width)))
+   (anchor 	 :accessor	anchor
+		 :init-keyword	:anchor
+		 :allocation	:propagated
+		 :propagate-to	(label))
+   (background	 :accessor	background
+		 :init-keyword	:background
+		 :allocation	:propagated
+		 :propagate-to	(frame entry label))
+   (foreground	 :accessor	foreground
+		 :init-keyword	:foreground
+		 :allocation	:propagated
+		 :propagate-to	(entry label))
+   (border-width :accessor	border-width 
+		 :allocation	:propagated
+		 :init-keyword	:border-width
+		 :propagate-to	(frame))
+   (relief	 :accessor	relief
+		 :init-keyword	:relief
+		 :allocation	:propagated
+		 :propagate-to	(frame))
+   (entry-relief :accessor	dentry-relief
+		 :init-keyword	:entry-relief
+		 :allocation	:propagated
+		 :propagate-to	((entry relief)))  ))
+
+(define-method initialize-composite-widget ((self <Labeled-entry>) initargs frame)
+  (let* ((e (make <Entry> :parent frame :relief "ridge"))
+	 (l (make <Label> :parent frame)))
+
+    (pack l :side "left")
+    (pack e :side "right" :expand #t :fill "x")
+
+    (slot-set! self 'Id     (slot-ref e 'Id))
+    (slot-set! self 'entry  e)
+    (slot-set! self 'label  l)))
+
+(provide "Lentry")
diff --git a/STklos/Tk/Composite/Multipaned.stklos b/STklos/Tk/Composite/Multipaned.stklos
new file mode 100644
index 0000000..582033a
--- /dev/null
+++ b/STklos/Tk/Composite/Multipaned.stklos
@@ -0,0 +1,211 @@
+;;;;
+;;;; M u l t i p a n e d . s t k
+;;;;
+;;;; Rewritten version of Paned.stk to allow an arbitrary number of panes.
+;;;; Modified by Harvey J. Stein <hjstein@math.huji.ac.il>
+;;;; Modified again by Erick Gallesio for allowing horizontal and vertical
+;;;; placement
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; Idea of this implementation was found in comp.lang.tcl. 
+;;;; Original author seems to be James Noble and the version from which this 
+;;;; stuff is derivated is Jay Schmidgall (shmdgljd@ghostwind.rchland.ibm.com).
+
+(require "Frame")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <MultiPaned> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <MultiPaned> (<Tk-composite-widget>)
+  (;; Public slots
+   (frames       :accessor     frames-of)
+   (grips	 :accessor     grips-of)
+   (ghost	 :accessor     ghost-of)
+   (panes        :accessor     panes-of	   :init-keyword :panes)
+   (width	 :accessor     width	   :init-keyword :width
+		 :allocation   :propagated :propagate-to (frame))
+   (height	 :accessor     height	   :init-keyword :height
+		 :allocation   :propagated :propagate-to (frame))
+
+   ;; Virtual slot
+   (orientation  :accessor      orientation :allocation :virtual
+		 :slot-ref	(lambda (o)
+				  (extend-environment (environment o)
+				     (if vertical? "vertical" "horizontal")))
+		 :slot-set!	(lambda (o v)
+				  (extend-environment (environment o)
+				     (set! vertical? (equal? v "vertical"))
+				     (place-grips o))))
+   ;; Private slots
+   (environment  :accessor     environment)
+   (fractions  	 :accessor     fractions-of)
+   (grip-number  :accessor     grip-number-of)
+   (drag-start   :accessor     drag-start-of)))
+
+(define-method initialize-composite-widget ((self <MultiPaned>) initargs frame)
+  (let* ((panes     (get-keyword :panes initargs 2))
+	 (vertical? (equal? "vertical" 
+			    (get-keyword :orientation  initargs "vertical")))
+	 (fractions (make-vector panes))
+	 (frames    (make-vector panes))
+	 (grips     (make-vector (- panes 1)))
+	 (ghost	    (make <Frame> :parent frame :border-width 2 :relief "ridge")))
+
+    ;; Build the "container" frames
+    (dotimes (i panes)
+       (vector-set! fractions i (/ (+ i 1) panes))
+       (vector-set! frames    i (make <Frame> :parent frame :border-width 2
+				              :relief "raised")))
+
+    ;; Build grips
+    (dotimes (i (- panes 1))
+       (let ((G (make <Frame> :parent frame :width 10 :height 10 :border-width 2
+			      :relief "raised" :cursor "crosshair")))
+	 (vector-set! grips i G)
+	 ;; Associate bindings to the newly created grip
+	 (bind G "<Button-1>"        (lambda (|W| x y) (start-grip  self x y |W|)))
+	 (bind G "<B1-Motion>"       (lambda (x y)     (motion-grip self x y)))
+	 (bind G "<ButtonRelease-1>" (lambda (x y)     (stop-grip self x y)))))
+
+    ;; Initialize slots
+    (slot-set! self 'environment (the-environment))
+    (slot-set! self 'panes 	 panes)
+    (slot-set! self 'frames	 frames)
+    (slot-set! self 'grips	 grips)
+    (slot-set! self 'fractions   fractions)
+    (slot-set! self 'ghost	 ghost)
+    (slot-set! self 'Id		 (Id frame))
+
+    ;; Place grips
+    (place-grips self)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; <MultiPaned> methods 
+;;; 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method place-grips ((self <MultiPaned>))
+  (extend-environment (environment self)
+    (let ((f     0)
+	  (fp    0))
+      ;; Place frames and grips
+      (dotimes (i (- panes 1))
+	 (set! f (vector-ref fractions i))
+	 (if vertical?
+	     (begin
+	       (place (vector-ref grips i)  :rely 0.95   :relx f  :anchor "center")
+	       (place (vector-ref frames i) :y 0 :relh 1 :relx fp :relw (- f fp)))
+	      (begin
+		(place (vector-ref grips i)  :relx 0.95   :rely f  :anchor "center")
+		(place (vector-ref frames i) :x 0 :relw 1 :rely fp :relh (- f fp))))
+	  (raise (vector-ref grips i))
+	  (set! fp f))
+      
+      ;; Last frame
+      (if vertical?
+	  (place (vector-ref frames (- panes 1))
+		 :y 0 :relx f :relheight 1 :relwidth (- 1.0 f))
+	  (place (vector-ref frames (- panes 1))
+		 :x 0 :rely f :relwidth 1 :relheight (- 1.0 f))))))
+
+;;;
+;;; Methods for moving grips
+;;;
+(define-method find-grip ((self <MultiPaned>) w)
+  (do ((i 0 (+ 1 i)))
+      ((eq? w (slot-ref (vector-ref (grips-of self) i) 'id)) i)))
+
+(define-method start-grip ((self <MultiPaned>) x y w)
+  (extend-environment (environment self)
+    (let* ((grip   (find-grip self w))
+	   (ghost  (ghost-of self))
+	   (fracts (fractions-of self))
+	   (fr	 (vector-ref fracts grip)))
+      
+      (slot-set! self 'grip-number grip)
+      (slot-set! self 'drag-start (cons x y))
+
+      ;; Raise ghost
+      (place 'forget ghost) ; otherwise old constaints seems to stay valid
+      (if vertical?
+	  (place ghost :rely 0 :relx fr :anchor "n" :relh 1)
+	  (place ghost :relx 0 :rely fr :anchor "w" :relw 1))
+      (raise ghost)
+
+      ;; Raise current grip
+      (raise (vector-ref (grips-of self)  grip)))))
+
+(define-method motion-grip ((self <MultiPaned>) x y)
+  (extend-environment (environment self)
+     (let ((fraction (fractions-of self))
+	   (gn 	  (grip-number-of self))
+	   (ghost	  (ghost-of self)))
+
+       (if vertical?
+	   (begin
+	     (vector-set! fraction 
+			  gn
+			  (max 0.0001
+			       (min .9999
+				    (+ (vector-ref fraction gn)
+				       (/ (- x (car (drag-start-of self)))
+					  (+ 1 (winfo 'width (frame-of self))))))))
+	     (place ghost
+		    :rely 0 :relheight 1 :relx (vector-ref fraction gn) :anchor "n")
+	  (place (vector-ref (grips-of self) gn)
+		 :rely 0.95 :relx (vector-ref fraction gn) :anchor "center"))
+	   (begin
+	     (vector-set! fraction 
+			  gn
+		       (max 0.0001
+			    (min .9999
+				 (+ (vector-ref fraction gn)
+				    (/ (- y (cdr (drag-start-of self)))
+				       (+ 1 (winfo 'height (frame-of self))))))))
+	     (place ghost
+		 :relx 0 :relwidth 1 :rely (vector-ref fraction gn) :anchor "w")
+	     (place (vector-ref (grips-of self) gn)
+		 :relx 0.95 :rely (vector-ref fraction gn) :anchor "center"))))))
+
+(define-method stop-grip ((self <MultiPaned>) x y)
+  (let* ((gn 	    (grip-number-of self))
+	 (fractions (fractions-of self))
+	 (cp        (vector-ref fractions gn)))
+    (dotimes (i (- (panes-of self) 1))
+      (cond 
+       ((and (< i gn) (> (vector-ref fractions i) cp))
+		(vector-set! fractions i cp))
+       ((and (> i gn) (< (vector-ref fractions i) cp))
+		(vector-set! fractions i cp)))))
+  (lower (ghost-of self))
+  (place-grips self))
+
+(provide "Multipaned")
+
+;;;
+;;; Example of usage
+;;;
+;;; (define p (make <MultiPaned> 
+;;; 		:panes 4 
+;;; 		:width 400 :height 400
+;;; 		:orientation "horizontal"))
+;;; 
+;;; (define l0 (make <Label> :text "Lab0" :parent (vector-ref (frames-of p) 0)))
+;;; (define l1 (make <Label> :text "Lab1" :parent (vector-ref (frames-of p) 1)))
+;;; (define l2 (make <Label> :text "Lab2" :parent (vector-ref (frames-of p) 2)))
+;;; (pack l0 l1 l2 :expand #t :fill "both")
+;;; (pack p :expand #t)
+;;; 
diff --git a/STklos/Tk/Composite/Multiwin.stklos b/STklos/Tk/Composite/Multiwin.stklos
new file mode 100644
index 0000000..e427927
--- /dev/null
+++ b/STklos/Tk/Composite/Multiwin.stklos
@@ -0,0 +1,390 @@
+;;;;
+;;;; <Multiple-window> and <Inner-Window> classes 
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;
+;;;; Idea of multiples windows comes from a Tcl package called mdw_lib.tk
+;;;; (a classlib for [m]ulti-[d]ocument-[w]indow applications).
+;;;; The mdw-lib is a number of Tcl/Tk procedures to create and manipulate 
+;;;; multiple childwindows in one Tk application window 
+;;;; The  mdw_lib author is Thomas Schwarze <swz@rtws18.ee.tu-berlin.de>
+;;;; Original package is GPL'ed. However, code and way to implement
+;;;; multiple windows and mdw_lib are completely different.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  5-Apr-1996 18:04
+;;;; Last file update: 13-Aug-1996 23:22
+
+(require "Frame")
+(require "Button")
+
+
+(image 'create 'bitmap '*bitmap-cross* :data
+"#define cross_width 10
+#define cross_height 10
+static unsigned char cross_bits[] = {
+0,0,0,0,0xc,3,0x9c,3,0xf8,1,0xf0,0,0xf0,0,0xf8,1,0x9c,3,0x0c,3};")
+
+
+(image 'create 'bitmap '*bitmap-icon* :data
+"#define icon_width 10
+#define icon_height 10
+static unsigned char icon_bits[] = {
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0xfc,3,0xfc,3,0,0};")
+
+(image 'create 'bitmap '*bitmap-max* :data 
+"#define max_width 10
+#define max_height 10
+static unsigned char max_bits[] = {
+0,0,0,0,0xfc,3,0xfc,3,0xfc,3,0xfc,3,0xfc,3,0xfc,3,0xfc,3,0xfc,3};")
+
+(image 'create 'bitmap '*bitmap-min* :data
+"#define min_width 10
+#define min_height 10
+static unsigned char min_bits[] = {
+0,0,0,0,0,0,0,0,0xf0,0,0xf0,0,0xf0,0,0xf0,0,0,0,0,0};")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Multiple-window> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Multiple-window> (<Frame>)
+  (bottom-bar bottom-bar-title
+   (current		 :initform #f)
+   (children		 :initform '())
+   (child-selected-col	 :initform '("white"    . "RoyalBlue1"))
+   (child-unselected-col :initform '("gray80" .  "gray50"))))
+
+(define-method initialize ((self <Multiple-window>) initargs)
+  (next-method)
+  (if (zero? (width self))  (set! (width  self) 640))
+  (if (zero? (height self)) (set! (height self) 480))
+  (pack 'propagate self #f)
+
+  ;; Create the bottom bar
+  (let* ((bb (make <Frame> :parent self :border-width 3 :relief "groove"))
+	 (l  (make <Label> :parent bb :width 20 :border-width 3 :relief "ridge"
+		   	   :anchor "w")))
+    (pack l :side "left" :expand #f :padx 3 :pady 3)
+    (pack bb :side "bottom" :expand #f :fill "x")
+    (slot-set! self 'bottom-bar bb)
+    (slot-set! self 'bottom-bar-title l)))
+
+(define-method pack ((self <Multiple-window>))   ;; Pack without parameter 
+  (pack self :fill "both" :expand #t))
+
+(define-method find-current-window ((self <Multiple-window>) avoid)
+;; Find a plausible current window (i.e one which is different than
+;; avoid and which is not iconified).
+;; If no window is available return avoid.
+  (letrec ((plausible (lambda (l)
+			(cond ((null? l) avoid)
+			      ((or (equal? (car l) avoid)
+				   (slot-ref (car l) 'iconified?))
+			       (plausible (cdr l)))
+			      (ELSE (car l))))))
+    (plausible (slot-ref self 'children))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Inner-window> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Inner-window> (<Tk-composite-widget> <Frame>)
+  (title-label  icon-button maximize-button destroy-button icon internal-frame
+   (width	:init-keyword :width 	:accessor width
+		:allocation :propagated :propagate-to (frame))
+   (height	:init-keyword :height 	:accessor height
+		:allocation :propagated :propagate-to (frame))
+   (title	:init-keyword :title 	:accessor title
+		:allocation :propagated :propagate-to ((title-label text)))
+   (x		:initform 0)
+   (y		:initform 0)
+   (maximized?	:initform #f)
+   (iconified?	:initform #f)))
+
+(define-method initialize-composite-widget ((self <Inner-Window>) initargs parent)
+  (let* ((int   (make <Frame> :parent parent :border-width 0 :cursor "left_ptr"))
+	 (title (make <Frame>  :parent int   :relief "ridge" :border-width 1))
+	 (label (make <Label>  :parent title :text "No title" :cursor "hand2"))
+	 (b1	(make <Button> :parent title :image *bitmap-cross* :cursor "arrow"))
+	 (b2	(make <Button> :parent title :image *bitmap-max*   :cursor "arrow"))
+	 (b3    (make <Button> :parent title :image *bitmap-icon* :cursor "arrow")))
+   
+    ;; Make internal sub windows
+    (slot-set! self 'Id 	     (Id int))
+    (slot-set! self 'title-label     label)
+    (slot-set! self 'destroy-button  b1)
+    (slot-set! self 'icon-button     b3)
+    (slot-set! self 'maximize-button b2)
+    (slot-set! self 'internal-frame  int)
+
+    ;; Initialze slots
+    (if (zero? (width parent))  (set! (width  parent) 500))
+    (if (zero? (height parent)) (set! (height parent) 300))
+    (slot-set! parent 'border-width  3)
+    (slot-set! parent 'relief        "flat")
+    (slot-set! parent 'background    "gray80")
+
+    ;; Pack everything
+    (pack label    :side "left" :expand #t :fill "x")
+    (pack b1 b2 b3 :side "right")
+    (pack 'propagate self #f)
+    (pack title :side "top" :fill "x" :expand #f)
+    (pack int :fill "both" :expand #t)
+    
+    ;; Associate buttons callbacks
+    (set! (command b2) 
+	  (lambda () 
+	    ((if (slot-ref self 'maximized?) minimize-window maximize-window) 
+	     self)))
+    (set! (command b3) (lambda () (iconify-window self)))
+
+    ;; Associate bindings
+    (make-inner-window-bindings self label b1)
+
+    ;; Add the new window to the multiple-window children list
+    (let ((mult (slot-ref parent 'parent)))
+      (slot-set! mult 'children (cons self (slot-ref mult 'children))))))
+
+;;;;
+;;;; make-inner-window-bindings 
+;;;;  
+;;;; The hard part: associate bindings to the window corners and to
+;;;; the title bar. This is very long and very ugly; but can it be done
+;;;; in another way?
+;;;;
+(define (make-inner-window-bindings w title button)
+  (let ((bd	  15)	;; # of pixels for detecting a border
+	(pos-x    0)
+	(pos-y    0)
+	(index    0)
+	(resizing #f)
+	(cursors '#("top_left_corner"    "top_side"    "top_right_corner"
+		    "left_side"          "crosshair"   "right_side"
+		    "bottom_left_corner" "bottom_side" "bottom_right_corner")))
+    
+    (define (in-inner-window window x y)
+      (let* ((w      (winfo 'width  window))
+	     (h      (winfo 'height window))
+	     (choose (lambda (start)
+		       ;; Retain in index the cursor index
+		       (set! index (cond ((< x bd)       start)
+					 ((< x (- w bd)) (+ start 1))
+					 (ELSE		 (+ start 2))))
+		       ;; Return the name of the cursor to use
+		       (vector-ref cursors index))))
+
+	(slot-set! (slot-ref window 'frame) 'cursor
+		   (cond 
+		      ((< y bd) 	(choose 0))       ;; 0, 1 or 2
+		      ((< y (- h bd)) 	(choose 3))       ;; 3, 4 or 5
+		      (ELSE		(choose 6))))))   ;; 6, 7 or 8
+    
+    (define (resize-inner-window  window x y)
+      (unless (or resizing (slot-ref window 'maximized?))
+	(set! resizing #t)
+	(let* ((width  (winfo 'width  window))
+	       (height (winfo 'height window))
+	       (parent (parent window))
+	       (off-x  (winfo 'rootx parent))
+	       (off-y  (winfo 'rooty parent))
+	       (x1     (- (winfo 'rootx window) off-x))
+	       (y1     (- (winfo 'rooty window) off-y))
+	       (x2     (+ x1 width))
+	       (y2     (+ y1 height)))
+	  (case index
+	    ((0) 	   (set! x1 (- x off-x)) (set! y1 (- y off-y)))
+	    ((1) 		       		 (set! y1 (- y off-y)))
+	    ((2)     (set! x2 (- x off-x)) (set! y1 (- y off-y)))
+	    ((3)	   (set! x1 (- x off-x))                      )
+	    ((4))    ;;should not occurr
+	    ((5) 	   (set! x2 (- x off-x))                      )
+	    ((6) 	   (set! x1 (- x off-x)) (set! y2 (- y off-y)))
+	    ((7) 		       		 (set! y2 (- y off-y)))
+	    ((8) 	   (set! x2 (- x off-x)) (set! y2 (- y off-y))))
+	  (place window :in parent :x x1 :y y1 :width (- x2 x1) :height (- y2 y1)))
+	(set! resizing #f)))
+
+    ;;;;
+    ;;;; MAKE-INNER-WINDOW-BINDINGS starts here
+    ;;;; 
+    
+    ;; The frame
+    (let ((f (slot-ref w 'frame)))
+      (bind f "<1>"         (lambda ()        (raise w)))
+      (bind f "<Enter>"     (lambda (x y)     (in-inner-window w x y)))
+      (bind f "<Motion>"    (lambda (x y)     (in-inner-window w x y)))
+      (bind f "<B1-Motion>" (lambda (|X| |Y|) (resize-inner-window w |X| |Y|))))
+
+    ;; Title label
+    (bind title "<1>" 
+	  (lambda (|X| |Y|) (raise w) (set! pos-x |X|) (set! pos-y |Y|)))
+    (bind title "<B1-Motion>" 
+	  (lambda (|X| |Y|)
+	    (unless (slot-ref w 'maximized?)
+	      (place w :x (+ (winfo 'x w) (- |X| pos-x)) 
+		       :y (+ (winfo 'y w) (- |Y| pos-y)))
+	      (set! pos-x |X|)
+	      (set! pos-y |Y|)
+	      (update 'idle))))
+    (bind title "<2>" (lambda ()
+			(if (equal? w (slot-ref (parent w) 'current)) 
+			    (lower w))))
+
+    ;; The Destroy button
+    (bind button "<Double-1>" 
+	  (lambda () 
+	    ;; Delay instruction to prvent problem with button releasing
+	    (after 'idle (lambda () (destroy w)))))))
+
+
+(define-method place ((self <Inner-window>) . args) 
+  (raise self)
+  (next-method))
+
+
+(define-method unselect-window ((self <Inner-Window>))
+  (let* ((parent   (parent self))
+	 (t        (slot-ref self 'title-label))
+	 (color    (slot-ref (slot-ref self 'parent) 'child-unselected-col)))
+    (slot-set! parent 'current #f)
+    (raise (find-current-window parent self))
+    ;; Change title color
+    (set! (foreground t) (car color))
+    (set! (background t) (cdr color))))
+
+
+(define-method select-window ((self <Inner-Window>))
+  (let* ((parent      (parent self))
+	 (current     (slot-ref parent 'current)))
+    (unless (equal? self current)
+      (let ((t     (slot-ref self 'title-label))
+	    (color (slot-ref (slot-ref self 'parent) 'child-selected-col))
+	    (title (slot-ref parent 'bottom-bar-title)))
+	;; Change old title color
+	(when current
+	  (let ((t      (slot-ref current 'title-label))
+		(color  (slot-ref parent 'child-unselected-col)))
+	    (set! (foreground t) (car color))
+	    (set! (background t) (cdr color))))
+      
+	;; Change new title color
+	(set! (foreground t) (car color))
+	(set! (background t) (cdr color))
+	;; Change the title bar text
+	(set! (text-of title) (slot-ref self 'title))
+	;; New current window is self
+	(slot-set! parent 'current self)))))
+
+
+(define-method raise ((self <Inner-Window>))
+  (let* ((parent  (parent self))
+	 (current (slot-ref parent 'current)))
+    (unless (equal? self current)
+      (select-window self)
+      ;; Raise this window (but just under the bottom bar)
+      (if current 
+	  (raise self current)
+	  (lower self (slot-ref parent 'bottom-bar))))))
+
+(define-method lower ((self <Inner-Window>))
+  (unselect-window self)
+  (next-method))
+
+(define-method destroy ((self <Inner-window>))
+  (define (delete l) 
+    (cond ((null? l) 		   '())
+	  ((equal? (car l) self)   (cdr l))
+	  (else			   (cons (car l) (delete (cdr l))))))
+  
+  (let ((parent (slot-ref self 'parent)))
+    ;; Delete self from list of children
+    (slot-set! parent 'children (delete (slot-ref parent 'children)))
+    (unselect-window self)    
+    (when (equal? self (slot-ref parent 'current))
+      (set! (text-of (slot-ref parent 'bottom-bar-title)) "")
+      (slot-set! parent 'current #f)))
+  (next-method))
+
+
+(define-method maximize-window ((self <Inner-Window>))
+  (unless (slot-ref self 'maximized?)
+    (raise self)
+    (slot-set! self 'maximized? #t)
+    (slot-set! self 'x      (winfo 'x      self))
+    (slot-set! self 'y      (winfo 'y      self))
+    (slot-set! self 'width  (winfo 'width  self))
+    (slot-set! self 'height (winfo 'height self))
+    ; Use pack to fill the cavity
+    (pack self :fill "both" :expand #t)
+     ;; Change maximize button
+    (let ((but (slot-ref self 'maximize-button)))
+      (set! (image-of but) *bitmap-min*))))
+
+
+(define-method minimize-window ((self <Inner-Window>))
+  (when (slot-ref self 'maximized?)
+    (slot-set! self 'maximized? #f)
+    ;; Forget previous pack
+    (pack 'forget self)
+    (place self :x      (slot-ref self 'x)     
+	        :y      (slot-ref self 'y)
+	        :width  (slot-ref self 'width)
+		:height (slot-ref self 'height))
+    ;; Change maximize button
+    (let ((but (slot-ref self 'maximize-button)))
+      (set! (image-of but) *bitmap-max*))))
+
+(define-method iconify-window ((self <Inner-Window>))
+  (unless (slot-ref self 'iconified?)
+    (let ((parent (slot-ref self 'parent)))
+      (slot-set! self 'iconified? #t)
+      (minimize-window self)
+      (unselect-window self)
+      ; Retain window position before deleting it
+      (slot-set! self 'x      (winfo 'x      self))
+      (slot-set! self 'y      (winfo 'y      self))
+      (slot-set! self 'width  (winfo 'width  self))
+      (slot-set! self 'height (winfo 'height self))
+      (place 'forget self)
+
+      ;; Create Icon button
+      (let* ((bar    (slot-ref parent 'bottom-bar))
+	     (title  (slot-ref self 'title))
+	     (b      (make <Button> :parent bar :text title
+			   :font "-adobe-helvetica-*-r-*-*-*-100-*-*-*-*-*-*"
+			   :width  (min (string-length title) 15) :anchor "w"
+			   :command (lambda () (show-window self)))))
+	(slot-set! self 'icon b)
+	(pack b :side "left" :expand #f :fill "none"))
+
+      ;; If this window is alone; purge the bottom bar title
+      (when (equal? self (slot-ref parent 'current))
+	(set! (text-of (slot-ref parent 'bottom-bar-title)) "")
+	(slot-set! parent 'current #f)))))
+
+
+(define-method show-window ((self <Inner-Window>))
+  (when (slot-ref self 'iconified?)
+    (slot-set! self 'iconified? #f)
+    (place self :x      (slot-ref self 'x)     
+	        :y      (slot-ref self 'y)
+		:width  (slot-ref self 'width)
+		:height (slot-ref self 'height))
+    ;; Destroy icon
+    (destroy (slot-ref self 'icon))
+    ; And raise the window
+    (raise self)))
+
+
diff --git a/STklos/Tk/Composite/Paned.stklos b/STklos/Tk/Composite/Paned.stklos
new file mode 100644
index 0000000..99de71e
--- /dev/null
+++ b/STklos/Tk/Composite/Paned.stklos
@@ -0,0 +1,203 @@
+;;;;
+;;;; P a n e d . s t k 	  	      --  HPaned and VPaned composite widgets
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;; Idea of this implementation was found in comp.lang.tcl. 
+;;;; Original author seems to be James Noble and the version from which this 
+;;;; stuff is derivated is Jay Schmidgall (shmdgljd@ghostwind.rchland.ibm.com).
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 13-Aug-1996 23:22
+
+(require "Frame")
+
+(define paned:drag-start 0)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <HPaned> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <HPaned> (<Tk-composite-widget>)
+  ((top-frame    :accessor     top-frame-of)
+   (bottom-frame :accessor     bottom-frame-of)
+   (grip	 :accessor     grip-of)
+   (separator	 :accessor     separator-of)
+   (fraction     :init-keyword :fraction)
+   ;; Fictives slot
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to (frame top-frame bottom-frame grip separator))
+   (width	 :accessor     width
+		 :init-keyword :width
+		 :allocation   :propagated
+		 :propagate-to (frame))
+   (height	 :accessor     height
+		 :init-keyword :height
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+
+(define-method initialize-composite-widget ((self <HPaned>) initargs frame)
+  (let ((grip  (make <Frame> :parent frame :width 10 :height 10 :border-width 2 
+		    	     :relief "raised"  :cursor "crosshair"))
+	(separ (make <Frame> :parent frame :width 1 :height 4
+		     	     :border-width 2 :relief "ridge"))
+	(top   (make <Frame> :parent frame :border-width 2 :relief "raised"))
+	(bot   (make <Frame> :parent frame :border-width 2 :relief "raised")))
+
+    
+    ;; Associate bindings to the grip
+    (bind grip "<Button-1>"  		(lambda (y) (start-grip  self y)))
+    (bind grip "<B1-Motion>" 		(lambda (y) (motion-grip self y)))
+    (bind grip "<B1-ButtonRelease-1>" 	(lambda (y) (stop-grip   self y)))
+
+    ;; initialize true slots
+    (slot-set! self 'Id           (Id frame))
+    (slot-set! self 'top-frame    top)
+    (slot-set! self 'bottom-frame bot)
+    (slot-set! self 'grip 	  grip)
+    (slot-set! self 'separator 	  separ)
+    (slot-set! self 'fraction 	  (get-keyword :fraction initargs 0.5))
+
+    ;; Place the grip
+    (place-grip self)))
+   
+
+;;;
+;;; <HPaned> methods 
+;;; 
+(define-method place-grip ((self <HPaned>))
+  (let ((fraction (slot-ref self 'fraction)))
+    (place (separator-of self)    :relx 0    :rely fraction :anch "w" :relwi 1)
+    (place (grip-of self)         :relx 0.95 :rely fraction :anchor "center")
+    (place (top-frame-of self)    :x 0 :y 0 :relwidth 1 :relheight fraction)
+    (place (bottom-frame-of self) :x 0 :rely fraction :relwidth 1 
+				  :relheight (- 1.0 fraction))
+    ;; Hide separator behind the bottom and top frames
+    (lower (separator-of self))
+    ;; Be sure to raise the grip 
+    (raise (grip-of self))))
+
+(define-method start-grip ((self <HPaned>) y)
+  ;; Raise separator and grip 
+  (raise (separator-of self))
+  (raise (grip-of self))
+  (set! paned:drag-start y))
+
+(define-method motion-grip ((self <HPaned>) y)
+  (let ((fraction (slot-ref self 'fraction)))
+    (set! fraction (max 0.0001 
+			(min 0.9999
+			     (+ fraction 
+				(/ (- y paned:drag-start) 
+				   (+ 1 (winfo 'height (frame-of self))))))))
+    (place (separator-of self) :relx 0 :relwidth 1 :rely fraction :anchor "w")
+    (place (grip-of self)      :relx 0.95 :rely fraction :anchor "center")
+    (slot-set! self 'fraction fraction)))
+
+(define-method stop-grip ((self <HPaned>) y)
+  (place-grip self))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <VPaned> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <VPaned> (<Tk-composite-widget>)
+  ((left-frame   :accessor     left-frame-of)
+   (right-frame  :accessor     right-frame-of)
+   (grip	 :accessor     grip-of)
+   (separator	 :accessor     separator-of)
+   (fraction     :init-keyword :fraction)
+   ;; Fictives slots
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to    (frame left-frame right-frame grip separator))
+   (width	 :accessor     width
+		 :init-keyword :width
+		 :allocation   :propagated
+		 :propagate-to (frame))
+   (height	 :accessor     height
+		 :init-keyword :height
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+
+(define-method initialize-composite-widget ((self <VPaned>) initargs frame)
+  (let ((grip  (make <Frame> :parent frame :width 10 :height 10 :border-width 2 
+		    	     :relief "raised"  :cursor "crosshair"))
+	(separ (make <Frame> :parent frame :width 4 :height 1
+		     	     :border-width 2 :relief "ridge"))
+	(left   (make <Frame> :parent frame :border-width 2 :relief "raised"))
+	(right  (make <Frame> :parent frame :border-width 2 :relief "raised")))
+
+    
+    ;; Associate bindings to the grip
+    (bind grip "<Button-1>"  		(lambda (x) (start-grip  self x)))
+    (bind grip "<B1-Motion>" 		(lambda (x) (motion-grip self x)))
+    (bind grip "<B1-ButtonRelease-1>" 	(lambda (x) (stop-grip   self x)))
+
+    ;; initialize true slots
+    (slot-set! self 'Id           (Id frame))
+    (slot-set! self 'left-frame   left)
+    (slot-set! self 'right-frame  right)
+    (slot-set! self 'grip 	  grip)
+    (slot-set! self 'separator 	  separ)
+    (slot-set! self 'fraction 	  (get-keyword :fraction initargs 0.5))
+
+    ;; Place the grip
+    (place-grip self)))
+   
+
+;;;
+;;; <VPaned> methods 
+;;; 
+(define-method place-grip ((self <VPaned>))
+  (let ((fraction (slot-ref self 'fraction)))
+    (place (separator-of self)    :rely 0    :relx fraction :anch "n" :relh 1)
+    (place (grip-of self)         :rely 0.95 :relx fraction :anchor "center")
+    (place (left-frame-of self)   :x 0 :y 0 :relheight 1 :relwidth fraction)
+    (place (right-frame-of self)  :y 0 :relx fraction :relheight 1 
+				  :relwidth (- 1.0 fraction))
+    ;; Hide separator behind the right and left frames
+    (lower (separator-of self))
+    ;; Be sure to raise the grip 
+    (raise (grip-of self))))
+
+(define-method start-grip ((self <VPaned>) x)
+  ;; Raise separator and grip 
+  (raise (separator-of self))
+  (raise (grip-of self))
+  (set! paned:drag-start x))
+
+(define-method motion-grip ((self <VPaned>) x)
+  (let ((fraction (slot-ref self 'fraction)))
+    (set! fraction (max 0.0001 
+			(min 0.9999
+			     (+ fraction 
+				(/ (- x paned:drag-start) 
+				   (+ 1 (winfo 'width (frame-of self))))))))
+    (place (separator-of self) :rely 0 :relheight 1 :relx fraction :anchor "n")
+    (place (grip-of self)      :rely 0.95 :relx fraction :anchor "center")
+    (slot-set! self 'fraction fraction)))
+
+(define-method stop-grip ((self <VPaned>) x)
+  (place-grip self))
+
+
+(provide "Paned")
diff --git a/STklos/Tk/Composite/Scrollbox.stklos b/STklos/Tk/Composite/Scrollbox.stklos
new file mode 100644
index 0000000..a99a695
--- /dev/null
+++ b/STklos/Tk/Composite/Scrollbox.stklos
@@ -0,0 +1,99 @@
+;;;;
+;;;; S c r o l l b o x . s t k 	  --  Scroll Listbox composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Mar-1994 13:05
+;;;; Last file update: 13-Aug-1996 23:23
+
+(require "Frame")
+(require "Listbox")
+(require "Scrollbar")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Scroll-listbox> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Scroll-listbox> (<Tk-composite-widget> <Listbox>)
+  ((listbox 	  :accessor     listbox-of)
+   (h-scrollbar	  :accessor     h-scrollbar-of)
+   (v-scrollbar	  :accessor     v-scrollbar-of)
+   (h-scroll-side :accessor     h-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :h-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (and (winfo 'ismapped hs)
+					 (get-keyword :side (pack 'info hs)))))
+		  :slot-set!    (lambda (o v)
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (if v
+					(pack hs :fill "x" :side v 
+					         :before (slot-ref o 'listbox))
+					(pack 'forget hs)))))
+   (v-scroll-side :accessor     v-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :v-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (and (winfo 'ismapped vs)
+					 (get-keyword :side (pack 'info vs)))))
+		  :slot-set!    (lambda (o v)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (if v 
+					(pack vs :fill "y" :side v 
+					         :before (slot-ref o 'listbox))
+					(pack 'forget vs)))))
+   ;; Non allocated slots
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to (frame listbox h-scrollbar v-scrollbar))
+   (border-width :accessor     border-width 
+		 :allocation   :propagated
+		 :init-keyword :border-width
+		 :propagate-to (frame))
+   (relief	 :accessor     relief
+		 :init-keyword :relief
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+;;;;
+;;;;  <Scroll-listbox> methods
+;;;;
+
+(define-method initialize-composite-widget ((self <Scroll-listbox>) initargs parent)
+  (let* ((hs (make <Scrollbar> :parent parent :orientation "horizontal"))
+	 (vs (make <Scrollbar> :parent parent :orientation "vertical"))
+	 (l  (make <Listbox>   :parent parent)))
+
+    ;; Set internal true slots 
+    (slot-set! self 'Id	          (slot-ref l 'Id))
+    (slot-set! self 'listbox      l)
+    (slot-set! self 'h-scrollbar  hs)
+    (slot-set! self 'v-scrollbar  vs)
+
+    ;; Pack internal widgets (Warning: Order is important !!!!)
+    (pack vs :fill "y" :side "right")
+    (pack l  :expand #t :fill "both" :side 'bottom :after vs)
+
+    ;; Attach command to scrollbar and listbox
+    (slot-set! l 'x-scroll-command (lambda l (apply (slot-ref hs 'Id) 'set l)))
+    (slot-set! l 'y-scroll-command (lambda l (apply (slot-ref vs 'Id) 'set l)))
+
+    (slot-set! hs 'command (lambda args (apply (slot-ref l 'Id) 'xview args)))
+    (slot-set! vs 'command (lambda args (apply (slot-ref l 'Id) 'yview args)))
+))
+
+(provide "Scrollbox")
diff --git a/STklos/Tk/Composite/Scrollcanvas.stklos b/STklos/Tk/Composite/Scrollcanvas.stklos
new file mode 100644
index 0000000..9c0a9e8
--- /dev/null
+++ b/STklos/Tk/Composite/Scrollcanvas.stklos
@@ -0,0 +1,100 @@
+;;;;
+;;;; S c r o l l c a n v a s . s t k 	  --  Scroll Canvas composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 25-Mar-1995 11:03
+;;;; Last file update: 13-Aug-1996 23:23
+
+(require "Frame")
+(require "Canvas")
+(require "Scrollbar")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Scroll-canvas> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Scroll-canvas> (<Tk-composite-widget> <Canvas>)
+  ((canvas 	  :accessor     canvas-of)
+   (h-scrollbar	  :accessor     h-scrollbar-of)
+   (v-scrollbar	  :accessor     v-scrollbar-of)
+   (h-scroll-side :accessor     h-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :h-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (and (winfo 'ismapped hs)
+					 (get-keyword :side (pack 'info hs)))))
+		  :slot-set!    (lambda (o v) 
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (if v
+					(pack hs :fill "x" :side v 
+					         :before (slot-ref o 'canvas))
+					(pack 'forget hs)))))
+
+   (v-scroll-side :accessor     v-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :v-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (and (winfo 'ismapped vs)
+					 (get-keyword :side (pack 'info vs)))))
+		  :slot-set!    (lambda (o v)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (if v 
+					(pack vs :fill "y" :side v 
+					      :before (slot-ref o 'canvas))
+					(pack 'forget vs)))))
+   ;; Non allocated slots
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to (frame canvas h-scrollbar v-scrollbar))
+   (border-width :accessor     border-width 
+		 :allocation   :propagated
+		 :init-keyword :border-width
+		 :propagate-to (frame))
+   (relief	 :accessor     relief
+		 :init-keyword :relief
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+;;;;
+;;;;  <Scroll-canvas> methods
+;;;;
+
+(define-method initialize-composite-widget ((self <Scroll-canvas>) initargs parent)
+  (let* ((hs (make <Scrollbar> :parent parent :orientation "horizontal"))
+	 (vs (make <Scrollbar> :parent parent :orientation "vertical"))
+	 (c  (make <Canvas>    :parent parent)))
+    ;; Set internal true slots 
+    (slot-set! self 'Id	          (slot-ref c 'Id))
+    (slot-set! self 'canvas       c)
+    (slot-set! self 'h-scrollbar  hs)
+    (slot-set! self 'v-scrollbar  vs)
+
+    ;; Pack internal widgets (Warning: Order is dependant !!!!)
+    (pack vs :fill 'y :side 'right)
+    (pack c  :expand #t :fill "both" :side 'bottom :after vs)
+    (pack hs :fill 'x :after c)
+
+    ;; Attach command to scrollbar and canvas
+    (slot-set! c 'x-scroll-command (lambda l (apply (slot-ref hs 'Id) 'set l)))
+    (slot-set! c 'y-scroll-command (lambda l (apply (slot-ref vs 'Id) 'set l)))
+
+    (slot-set! hs 'command (lambda args (apply (slot-ref c 'Id) 'xview args)))
+    (slot-set! vs 'command (lambda args (apply (slot-ref c 'Id) 'yview args)))
+))
+
+(provide "Scrollcanvas")
diff --git a/STklos/Tk/Composite/Scrolltext.stklos b/STklos/Tk/Composite/Scrolltext.stklos
new file mode 100644
index 0000000..7f43ec3
--- /dev/null
+++ b/STklos/Tk/Composite/Scrolltext.stklos
@@ -0,0 +1,100 @@
+;;;;
+;;;; S c r o l l t e x t . s t k 	  --  Scroll Text composite widget
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  4-Apr-1995 11:19
+;;;; Last file update: 13-Aug-1996 23:24
+
+(require "Frame")
+(require "Text")
+(require "Scrollbar")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Scroll-text> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Scroll-text> (<Tk-composite-widget> <Text>)
+  ((text 	  :accessor     text-of)
+   (h-scrollbar	  :accessor     h-scrollbar-of)
+   (v-scrollbar	  :accessor     v-scrollbar-of)
+   (h-scroll-side :accessor     h-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :h-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (and (winfo 'ismapped hs)
+					 (get-keyword :side (pack 'info hs)))))
+		  :slot-set!    (lambda (o v) 
+				  (let ((hs (slot-ref o 'h-scrollbar)))
+				    (if v
+					(pack hs :fill "x" :side v 
+					         :before (slot-ref o 'text))
+					(pack 'forget hs)))))
+   (v-scroll-side :accessor     v-scroll-side
+		  :allocation   :virtual
+		  :init-keyword :v-scroll-side
+		  :slot-ref     (lambda (o)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (and (winfo 'ismapped vs)
+					 (get-keyword :side (pack 'info vs)))))
+		  :slot-set!    (lambda (o v)
+				  (let ((vs (slot-ref o 'v-scrollbar)))
+				    (if v 
+					(pack vs :fill "y" :side v 
+					      :before (slot-ref o 'text))
+					(pack 'forget vs)))))
+   ;; Non allocated slots
+   (background   :accessor     background
+		 :init-keyword :background
+		 :allocation   :propagated
+		 :propagate-to (frame text h-scrollbar v-scrollbar))
+   (border-width :accessor     border-width 
+		 :allocation   :propagated
+		 :init-keyword :border-width
+		 :propagate-to (frame))
+   (relief	 :accessor     relief
+		 :init-keyword :relief
+		 :allocation   :propagated
+		 :propagate-to (frame))))
+
+;;;;
+;;;;  <Scroll-text> methods
+;;;;
+
+(define-method initialize-composite-widget ((self <Scroll-text>) initargs parent)
+  (let* ((hs (make <Scrollbar> :parent parent :orientation "horizontal"))
+	 (vs (make <Scrollbar> :parent parent :orientation "vertical"))
+	 (t  (make <Text>      :parent parent)))
+
+    ;; Set internal true slots 
+    (slot-set! self 'Id	          (slot-ref t 'Id))
+    (slot-set! self 'text         t)
+    (slot-set! self 'h-scrollbar  hs)
+    (slot-set! self 'v-scrollbar  vs)
+
+    ;; Pack internal widgets (Warning: Order is dependant !!!!)
+    (pack vs :fill "y" :side "right")
+    (pack t  :expand #t :fill "both" :side 'bottom :after vs)
+
+    ;; Attach command to scrollbar and text
+    (slot-set! t 'x-scroll-command (lambda l (apply (slot-ref hs 'Id) 'set l)))
+    (slot-set! t 'y-scroll-command (lambda l (apply (slot-ref vs 'Id) 'set l)))
+
+    (slot-set! hs 'command (lambda args (apply (slot-ref t 'Id) 'xview args)))
+    (slot-set! vs 'command (lambda args (apply (slot-ref t 'Id) 'yview args)))
+))
+
+(provide "Scrolltext")
diff --git a/STklos/Tk/Entry.stklos b/STklos/Tk/Entry.stklos
new file mode 100644
index 0000000..f2e2389
--- /dev/null
+++ b/STklos/Tk/Entry.stklos
@@ -0,0 +1,161 @@
+;;;;
+;;;; E n t r y . s t k 		--  Entry class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 28-Feb-1994 11:36
+;;;; Last file update:  8-Jul-1996 00:12
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Entry> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Entry> (<Tk-simple-widget> <Tk-editable> <Tk-selectable> 
+		       <Tk-text-selectable>)
+  ((justify	     :accessor     justify
+		     :init-keyword :justify
+		     :allocation   :tk-virtual)
+   (x-scroll-command :init-keyword :x-scroll-command
+		     :accessor     x-scroll-command
+		     :tk-name      xscrollcommand
+		     :allocation   :tk-virtual)
+   (text-variable    :accessor     text-variable
+		     :init-keyword :text-variable
+		     :allocation   :tk-virtual
+		     :tk-name      textvar)
+   (show-chars	     :accessor	   show-chars
+		     :init-keyword :show-chars
+		     :allocation   :tk-virtual
+		     :tk-name	   show)
+   (state	     :accessor     state
+		     :init-keyword :state
+		     :allocation   :tk-virtual)
+   (string-value     :accessor     string-value
+		     :init-keyword :string-value
+		     :tk-name      stringval
+		     :allocation   :tk-virtual)
+   (width	     :accessor     width
+		     :init-keyword :width 
+		     :allocation   :tk-virtual)
+   ;; Fictive slot 
+   (value     	     :accessor	 value
+	      	     :init-keyword :value
+	      	     :allocation   :virtual
+	             :slot-ref     (lambda (o)  
+				     ((slot-ref o 'Id) 'get))
+	             :slot-set!    (lambda (o v) 
+				     ;; First delete all present chars
+				     ((slot-ref o 'Id) 'delete 0 'end)
+				     ;; Then insert new text
+				     ((slot-ref o 'Id) 'insert 0 v)))))
+
+(define-method tk-constructor ((self <Entry>))
+  Tk:entry)
+
+;;;
+;;; bounding-box
+;;;
+(define-method bounding-box ((self <Entry>) index)
+  ((slot-ref self 'Id) 'bbox index))
+
+;;;
+;;; Delete
+;;; 
+(define-method text-delete ((self <Entry>) start)
+  ((slot-ref self 'Id) 'delete start))
+
+(define-method text-delete ((self <Entry>) start end)
+  ((slot-ref self 'Id) 'delete start end))
+
+
+;;;
+;;; Cursor and (setter Cursor)
+;;;
+(define-method text-cursor ((self <Entry>))
+  ((slot-ref self 'Id) 'index 'insert))
+
+(define-method (setter text-cursor) ((self <Entry>) index)
+  ((slot-ref self 'Id) 'icursor index))
+
+;;;
+;;; Index 
+;;;
+(define-method text-index ((self <Entry>) index)
+  ((slot-ref self 'Id) 'index index))
+
+;;;
+;;; Insert
+;;;
+(define-method text-insert ((self <Entry>) text)
+  ((slot-ref self 'Id) 'insert 'insert text))
+
+(define-method text-insert ((self <Entry>) text position)
+  (let ((entry (slot-ref self 'Id)))
+    (entry 'icursor (car position))
+    (entry 'insert 'insert text)))
+
+;;;
+;;; Mark 
+;;; 
+(define-method text-mark ((self <Entry>) pos)
+  ((slot-ref self 'Id) 'scan 'mark pos))
+
+;;;
+;;; Drag-to 
+;;; 
+(define-method text-drag-to ((self <Entry>) pos)
+  ((slot-ref self 'Id) 'scan 'dragto pos))
+
+;;;
+;;; Selection-anchor
+;;; 
+(define-method selection-adjust ((self <Entry>) index)
+  ((slot-ref self 'Id) 'selection 'adjust index))
+
+;;;
+;;; Selection-clear
+;;; 
+(define-method selection-clear ((self <Entry>))
+  (apply (slot-ref self 'Id) 'selection 'clear))
+
+;;;
+;;; Selection-present?
+;;; 
+(define-method selection-present? ((self <Entry>))
+  ((slot-ref self 'Id) 'selection 'present))
+
+;;;
+;;; Selection-set!
+;;; 
+(define-method selection-set! ((self <Entry>) first  last)
+  (let ((Id (slot-ref self 'Id)))
+    (Id 'selection 'clear)
+    (Id 'selection 'from first)
+    (Id 'selection 'to last)))
+
+;;;
+;;; Selection-to!
+;;; 
+(define-method selection-to! ((self <Entry>) index)
+  ((slot-ref self 'Id) 'selection 'set index))
+
+;;;
+;;; X-view
+;;; 
+(define-method text-x-view ((self <Entry>) . args)
+  (apply (slot-ref self 'Id) 'xview args))
+
+(provide "Entry")
diff --git a/STklos/Tk/Frame.stklos b/STklos/Tk/Frame.stklos
new file mode 100644
index 0000000..2944a40
--- /dev/null
+++ b/STklos/Tk/Frame.stklos
@@ -0,0 +1,41 @@
+;;;;
+;;;; F r a m e . s t k 	  --  Frame class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 30-Mar-1993 15:39
+;;;; Last file update: 28-Sep-1995 22:48
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Frame> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Frame> (<Tk-simple-widget> <Tk-sizeable>)
+  ((class	:accessor	class
+		:init-keyword 	:class
+		:allocation	:tk-virtual)
+   (color-map	:accessor	color-map
+		:init-keyword	:color-map
+		:allocation	:tk-virtual
+		:tk-name	colormap)
+   (visual	:accessor	visual
+		:init-keyword	:visual
+		:allocation	:tk-virtual)))
+
+(define-method tk-constructor ((self <Frame>))
+  Tk:frame)
+
+(provide "Frame")
diff --git a/STklos/Tk/Image.stklos b/STklos/Tk/Image.stklos
new file mode 100644
index 0000000..2be40de
--- /dev/null
+++ b/STklos/Tk/Image.stklos
@@ -0,0 +1,92 @@
+;;;;
+;;;; I m a g e . s t k 		--  The Tk4.0 image mechanism
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 26-Jul-1995 11:23
+;;;; Last file update: 13-Dec-1995 23:25
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-image> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-Image> ()
+  ((Id  	:getter Id)
+   (file	:accessor	file
+		:init-keyword	:file
+		:allocation	:tk-virtual)
+   (data	:accessor	image-data
+		:init-keyword	:data
+		:allocation	:tk-virtual))   
+  :metaclass <Tk-metaclass>)
+
+(define-method initialize ((self <Tk-Image>) initargs)
+  (let ((tk-options (get-keyword :tk-options initargs '())))
+    (slot-set! self 'id (initialize-image self tk-options))
+    (next-method)))
+
+;;; Tk-write-object is called when a STklos object is passed to a Tk-command.
+;;; By default, we do the same job as write; but if an object is a <Tk-Image>
+;;; we will pass it its id. This method does this job.
+(define-method Tk-write-object((self <Tk-Image>) port)
+  (write (widget-name (slot-ref self 'id)) port))
+
+;;;
+;;; Destroy
+;;;
+(define-method destroy ((self <Tk-image>))
+  (Tk:image 'delete self))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Bitmap-image> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Bitmap-image> (<Tk-Image>)
+  ((background :accessor 	background
+	       :init-keyword	:background
+	       :allocation	:tk-virtual)
+   (foreground :accessor 	foreground
+	       :init-keyword	:foreground
+	       :allocation	:tk-virtual)
+   (mask-data  :accessor 	mask-data
+	       :init-keyword	:mask-data
+	       :tk-name		maskdata
+	       :allocation	:tk-virtual)
+   (mask-file  :accessor 	mask-file
+	       :init-keyword	:mask-file
+	       :tk-name		maskfile
+	       :allocation	:tk-virtual)))
+
+(define-method initialize-image((self <Bitmap-image>) args)
+  (apply Tk:image 'create 'bitmap (gensym "img") args))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Photo-image> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Photo-image> (<Tk-Image>)
+  ())
+
+(define-method initialize-image((self <Photo-image>) args)
+  (apply Tk:image 'create 'photo (gensym "img") args))
+
+
+
+
+(provide "Image")
diff --git a/STklos/Tk/Listbox.stklos b/STklos/Tk/Listbox.stklos
new file mode 100644
index 0000000..cc9fd9b
--- /dev/null
+++ b/STklos/Tk/Listbox.stklos
@@ -0,0 +1,161 @@
+;;;;
+;;;; L i s t b o x . s t k 		--  Listbox class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 28-Feb-1994 14:38
+;;;; Last file update:  2-Aug-1995 12:39
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Listbox> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Listbox> (<Tk-simple-widget> <Tk-selectable> <Tk-sizeable>
+			 <Tk-text-selectable> <Tk-xyscrollable>)
+  ((set-grid		:init-keyword :set-grid
+		   	:accessor     set-grid
+			:tk-name      setgrid
+			:allocation   :tk-virtual)
+   (select-mode		:init-keyword :select-mode
+			:accessor     select-mode
+			:tk-name      selectm
+			:allocation   :tk-virtual)
+   ;; Fictive slot 
+   (value		:accessor     value
+			:init-keyword :value
+			:allocation   :virtual
+			:slot-ref     (lambda (o)
+					((Id o) 'get 0 'end))
+			:slot-set!    (lambda (o v)
+					(let ((w  (Id o)))
+					  (w 'delete 0 'end)
+					  (apply w 'insert 0 v))))))
+
+(define-method tk-constructor ((self <Listbox>))
+  Tk:listbox)
+
+;;;
+;;; Listbox-activate
+;;;
+(define-method  listbox-activate ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'activate index))
+
+;;;
+;;; Bounding-box
+;;;
+(define-method bounding-box ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'bbox index))
+
+;;;
+;;; Current-selection
+;;;
+(define-method current-selection ((self <Listbox>))
+  (let ((res ((slot-ref self 'Id) 'curselection)))
+    (if (null? res) #f res)))
+
+;;;
+;;; Delete
+;;; 
+(define-method delete ((self <Listbox>) start . end)
+  (apply (slot-ref self 'Id) 'delete start end))
+
+;;;
+;;; Get
+;;;
+(define-method get ((self <Listbox>) start . end)
+  (apply (slot-ref self 'Id) 'get start end))
+
+;;;
+;;; Index
+;;;
+(define-method listbox-index ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'index index))
+
+;;;
+;;; Insert
+;;;
+(define-method insert ((self <Listbox>) index . value)
+  (apply (slot-ref self 'Id) 'insert index value))
+
+;;;
+;;; Nearest
+;;; 
+(define-method nearest ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'nearest index))
+
+
+;;;
+;;; Mark 
+;;; 
+(define-method text-mark ((self <Listbox>) x y)
+  ((slot-ref self 'Id) 'scan 'mark x y))
+
+;;;
+;;; Drag-to 
+;;; 
+(define-method text-drag-to ((self <Listbox>) x y)
+  ((slot-ref self 'Id) 'scan 'dragto x y))
+
+;;;
+;;; See-item
+;;;
+(define-method see-item ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'see index))
+
+;;;
+;;; Selection-anchor
+;;; 
+(define-method selection-anchor ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'selection 'anchor index))
+
+;;;
+;;; Selection-clear
+;;; 
+(define-method selection-clear ((self <Listbox>) first . last)
+  (apply (slot-ref self 'Id) 'selection 'clear first last))
+
+;;;
+;;; Selection-includes
+;;; 
+(define-method selection-includes ((self <Listbox>) index)
+  ((slot-ref self 'Id) 'selection 'includes index))
+
+;;;
+;;; Selection-set
+;;; 
+(define-method selection-set ((self <Listbox>) first . last)
+  (apply (slot-ref self 'Id) 'selection 'set first last))
+
+;;;
+;;; Size
+;;; 
+(define-method size ((self <Listbox>))
+  ((slot-ref self 'Id) 'size))
+
+;;;
+;;; X-View
+;;; 
+(define-method x-view ((self <Listbox>) . args)
+  (apply (slot-ref self 'Id) 'xview args))
+
+;;;
+;;; Y-View
+;;; 
+(define-method y-view ((self <Listbox>) args)
+  (apply (slot-ref self 'Id) 'yview args))
+
+
+(provide "Listbox")
diff --git a/STklos/Tk/Menu.stklos b/STklos/Tk/Menu.stklos
new file mode 100644
index 0000000..bd67377
--- /dev/null
+++ b/STklos/Tk/Menu.stklos
@@ -0,0 +1,268 @@
+;;;;
+;;;;  M e n u  . s t k			-- Menu Class definition 
+;;;; 
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  3-Mar-1994 21:03
+;;;; Last file update: 25-Mar-1996 22:57
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Menu> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Menu> (<Tk-simple-widget>)
+  (;; The slots hilight* are overloaded here since they don't exist in Tk
+   ;; Change the hierarchy?
+   (highlight-background :accessor     highlight-background  
+			 :init-keyword :highlight-background
+			 :allocation   :virtual
+			 :slot-ref     (lambda (o) #f)
+			 :slot-set!    (lambda (o v) v))
+   (highlight-color 	 :accessor     highlight-color  
+			 :init-keyword :highlight-color
+			 :tk-name      highlightcolor
+			 :allocation   :virtual
+			 :slot-ref     (lambda (o) #f)
+			 :slot-set!    (lambda (o v) v))
+   (highlight-thickness  :accessor     highlight-thickness  
+			 :init-keyword :highlight-thickness
+			 :tk-name      highlightthick
+			 :allocation   :virtual
+			 :slot-ref     (lambda (o) #f)
+			 :slot-set!    (lambda (o v) v))
+
+   (active-background	 :init-keyword :active-background 
+			 :accessor active-background
+			 :tk-name activebackground
+			 :allocation :tk-virtual)
+   (active-border-width	 :init-keyword :active-border-width 
+			 :accessor active-border-width
+			 :tk-name activeborderwidth
+			 :allocation :tk-virtual)
+   (active-foreground	 :init-keyword :active-foreground 
+			 :accessor active-foreground
+			 :tk-name activeforeground
+			 :allocation :tk-virtual)
+   (disabled-foreground  :init-keyword :disabled-foreground 
+			 :accessor disabled-foreground
+			 :tk-name disabledforeground
+			 :allocation :tk-virtual)
+   (font 		 :init-keyword :font 
+			 :accessor font 
+			 :allocation  :tk-virtual)
+   (foreground 	 	 :init-keyword :foreground 
+			 :accessor foreground 
+			 :allocation :tk-virtual)
+   (post-command 	 :init-keyword :post-command 
+			 :accessor post-command
+			 :tk-name postcommand
+			 :allocation :tk-virtual)
+   (select-color 	 :init-keyword :select-color 
+			 :accessor select-color
+			 :tk-name selectcolor
+			 :allocation :tk-virtual)
+   (tear-off 		 :init-keyword :tear-off 
+			 :accessor tear-off
+			 :tk-name tearoff
+			 :allocation :tk-virtual))
+  :metaclass <Tk-metaclass>)
+
+
+(define-method tk-constructor ((self <Menu>))
+  Tk:menu)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Menu> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Activate
+;;;
+(define-method activate ((self <Menu>) index)
+  ((slot-ref self 'Id) 'activate index))
+
+;;;
+;;; Menu-add
+;;;
+(define-method menu-add ((self <Menu>) type . args)
+  (apply (slot-ref self 'Id) 'add type args))
+
+;;;
+;;; Delete
+;;;
+(define-method delete ((self <Menu>) index1 . index2)
+  (apply (slot-ref self 'Id) 'delete index1 index2))
+
+
+;;;
+;;; Disable
+;;;
+(define-method disable ((self <Menu>) index)
+  ((slot-ref self 'Id) 'entryconfigure index :state "disabled"))
+
+;;;
+;;; Enable
+;;;
+(define-method enable ((self <Menu>) index)
+  ((slot-ref self 'Id) 'entryconfigure index :state "normal"))
+
+;;;
+;;; Menu-entry-configure
+;;;
+(define-method menu-entry-configure ((self <Menu>) index . args)
+  (apply (slot-ref self 'Id) 'entryconf index args))
+
+;;;
+;;; Menu-index
+;;;
+(define-method menu-index ((self <Menu>) index)
+  ((slot-ref self 'Id) 'index index))
+
+;;;
+;;; Invoke
+;;;
+(define-method invoke ((self <Menu>) index)
+  ((slot-ref self 'Id) 'invoke index))
+
+;;;
+;;; Menu-Post
+;;; 
+(define-method menu-post ((self <Menu>) x y)
+  ((slot-ref self 'Id) 'post x y))
+
+;;;
+;;; Menu-unpost
+;;; 
+(define-method menu-unpost ((self <Menu>))
+  ((slot-ref self 'Id) 'unpost))
+
+;;;
+;;; Menu-y-position
+;;;
+(define-method menu-y-position ((self <Menu>) index)
+  ((slot-ref self 'Id) 'ypos index))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Menu-button> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Menu-button> (<Tk-simple-widget> <Tk-sizeable> <Tk-bitmap> 
+			     <Tk-simple-text>)
+  ((active-background   :accessor     active-background
+			:init-keyword :active-background
+		        :allocation   :tk-virtual
+			:tk-name      activebackground)
+   (active-foreground   :accessor     active-foreground
+			:init-keyword :active-foreground
+			:allocation   :tk-virtual
+			:tk-name      activeforeground)
+   (disabled-foreground :accessor     disabled-foreground
+			:init-keyword :disabled-foreground
+			:allocation   :tk-virtual
+			:tk-name      disabledf)
+   (indicator-on	:init-keyword :indicator-on
+			:accessor     indicator-on
+			:allocation   :tk-virtual
+			:tk-name      indicatoron)
+   (menu		:accessor     menu-of
+			:allocation   :tk-virtual)
+   (state 		:accessor     state
+			:init-keyword :state
+			:allocation   :tk-virtual)
+   (underline 		:accessor     underline
+			:init-keyword :underline
+			:allocation   :tk-virtual)))
+
+(define-method tk-constructor ((self <Menu-button>))
+  Tk:menubutton)
+
+(define-method initialize ((self <Menu>) initargs)
+  ;; Do normal initialization
+  (next-method)
+  ;; If a parent is specified, modify the parent menu-button to point self
+  (let ((parent (get-keyword :parent initargs #f)))
+    (if (and parent (is-a? parent <Menu-button>))
+	(slot-set! parent 'menu (Id self)))))
+
+;;;
+;;; Define new accessors for menu slot to allow (set! (menu m-b) m) where m is an
+;;; instance. 
+;;; Note that not init-keyword exists for menu since a menu must be descendant 
+;;; of its's menu button (this implies it must be created after its menu button).
+;;;
+(define-method (setter menu-of) ((self <Menu-button>) (v <Menu>))
+  (slot-set! self 'menu (slot-ref v 'Id)))
+
+(define-method menu-of ((self <Menu-button>))
+  (Id->instance (slot-ref self 'menu)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Make-menubar	-- A simper way to make menus
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define (make-menubar parent l)
+  (define (make-menu parent items)
+    (let ((m (make <Menu> :parent parent)))
+      (for-each (lambda (item)
+		  (cond
+		   ; Separator
+		   ((equal? (car item) "")
+		         (menu-add m 'separator))
+		   ; Normal Menu
+		   ((and (= (length item) 2)
+			 (procedure? (cadr item))
+			 (menu-add m 'command :label   (car item)
+				   	      :command (cadr item))))
+		   ; Cascade menu
+		   ((and (= (length item) 2)
+			 (list? (cadr item))
+			 (menu-add m 'cascade :label (car item)
+				   	      :menu (make-menu m (cadr item)))))
+		   (ELSE
+		         (apply menu-add m item))))
+		items)
+      m))
+  (let ((f (make <Frame> :parent parent)))
+    ;; Store l in the f object to avoid GC problems
+    (set-widget-data! (Id f) 
+		      `(:menu ,l ,@(get-widget-data (Id f))))  
+    (for-each (lambda (x)
+		(let* ((title (if (list? (car x)) (caar x) (car x)))
+		       (rest  (cdr x))
+		       (mb    (make <Menu-button> :text title :parent f)))
+
+		  (if (list? (car x))
+		      ;; User has specified pack options. Use them.
+		      (apply pack mb (cdar x))
+		      ;; Pack menubutton on left and create its associated menu
+		      (pack mb :side "left"))
+		  (make-menu mb rest)))
+	    l)
+    ;; Return the created frame as result
+    f))
+ 
+(provide "Menu")
diff --git a/STklos/Tk/Message.stklos b/STklos/Tk/Message.stklos
new file mode 100644
index 0000000..26bc81d
--- /dev/null
+++ b/STklos/Tk/Message.stklos
@@ -0,0 +1,65 @@
+;;;;
+;;;; M e s s a g e . s t k 	  --  Message class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  3-Mar-1994 23:10
+;;;; Last file update: 26-Sep-1995 23:58
+
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Message> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Message> (<Tk-simple-widget>)
+  ((anchor	  :accessor     anchor
+		  :init-keyword :anchor
+		  :allocation   :tk-virtual)
+   (aspect	  :accessor 	aspect
+		  :init-keyword :aspect
+		  :allocation 	:tk-virtual)
+   (font	  :accessor     font
+		  :init-keyword :font
+		  :allocation   :tk-virtual)
+   (foreground	  :accessor     foreground
+		  :init-keyword :foreground
+		  :allocation   :tk-virtual)
+   (justify 	  :accessor 	justify 
+		  :init-keyword :justify 
+		  :allocation	:tk-virtual)
+   (pad-x	  :accessor     pad-x
+		  :init-keyword :pad-x
+		  :allocation   :tk-virtual
+		  :tk-name      padx)
+   (pad-y	  :accessor     pad-y
+		  :init-keyword :pad-y
+		  :allocation   :tk-virtual
+		  :tk-name      pady)
+   (text	  :accessor     text-of
+		  :init-keyword :text
+		  :allocation   :tk-virtual)
+   (text-variable :accessor     text-variable
+		  :init-keyword :text-variable
+		  :allocation   :tk-virtual
+		  :tk-name      textvar)
+   (width	  :accessor	width
+		  :init-keyword :width
+		  :allocation	:tk-virtual)))
+
+(define-method tk-constructor ((self <Message>))
+  Tk:message)
+
+(provide "Message")
diff --git a/STklos/Tk/STF.stklos b/STklos/Tk/STF.stklos
new file mode 100644
index 0000000..d9c92a4
--- /dev/null
+++ b/STklos/Tk/STF.stklos
@@ -0,0 +1,121 @@
+;;;;
+;;;; S T F . s t k      	--  Scheme Text Format managment
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 23-Aug-1994 10:49
+;;;; Last file update: 23-Aug-1994 17:13
+
+;;;;
+;;;; Font definition
+;;;;
+
+(define-generic text-save)
+(define-generic text-save-ASCII)
+(define-generic text-load)
+
+(let ((STF-signature "STF-0.2"))
+
+  ;;;;
+  ;;;; Utilities
+  ;;;;
+
+  ;; Get-STF  returns the STF form of the text contained in txt
+  (define (get-STF txt)
+    (let ((all-tags  (text-tags txt))
+	  (dump-tag (lambda (t)
+		      ;; Dump all slots which are not "" (except Id, Eid and parent)
+		      ;; which will be regenerated upon reading
+		      (let ((res '()))
+			(for-each 
+			     (lambda (s)
+			       (unless (memv s '(Id Eid parent))
+				 (let ((val (slot-ref t s)))
+				   (unless (equal? val "")
+				     (set! res 
+					   (append res `(,(make-keyword s) ',val))))
+				   )))
+			     (map car (class-slots <Text-tag>)))
+			res))))
+
+      (list STF-signature
+	    (value txt)
+	    (map list (map dump-tag all-tags)
+		      (map tag-ranges all-tags)))))
+  
+  ;; Set-STF-0.1! sets the editor to given STF (0.1 version)
+  ;; For Compatiblity only
+  (define (set-STF-0.1! txt STF)
+    (require "compatibility")
+    (compatibility-set-STF-0.1! txt STF))
+
+  ;; Set-STF-0.2! sets the editor to given STF (0.2 version)
+  (define (set-STF-0.2! txt STF)
+    (let ((text    (cadr STF)) 
+	  (formats (caddr STF)))
+      ;; First insert new text
+      (set! (value txt) text)
+      ;; And now enhence it
+      (for-each (lambda (t)
+		  (let* ((fmt   (car t))
+			 (where (cadr t))
+			 (Tid   (get-keyword :Tid fmt))
+			 (tag   (hash-table-get (slot-ref txt 'tags) Tid #f)))
+		    ;; If tag  doesn't already exists for this text, create it.
+		    (unless tag
+		      (set! tag  (eval `(make <Text-tag> :parent ,txt ,@fmt))))
+		    ;; Add the Tid tag to all the specified locations
+		    (unless (null? where)
+			  (do ((l where (cddr l)))
+			      ((null? l))
+			    (tag-add tag (car l) (cadr l))))))
+		  formats)))
+  
+  ;; Set-text! sets the editor to the text contained in the stdin withou formatting
+  (define (set-text! txt first-line)
+    (let ((editor (slot-ref txt 'Id)))
+      (editor 'delete "1.0" "end")
+      (do ((l first-line (read-line)))
+	  ((eof-object? l))
+	(editor 'insert "end" l)
+	(editor 'insert "end" "\n"))
+      (editor 'mark 'set 'insert "1.0")))
+
+  ;;;;
+  ;;;; Exported methods
+  ;;;;
+  (define-method text-save ((self <Text>) filename)
+    (with-output-to-file filename
+      (lambda ()
+	(format #t ";;;; ~S\n" STF-signature)
+	(format #t "~S\n" (get-STF self)))))
+ 
+  (define-method text-save-ASCII  ((self <Text>) filename)
+    (with-output-to-file filename
+      (lambda ()
+	(display (value self)))))
+ 
+  (define-method text-load ((self <Text>) filename)
+    (with-input-from-file filename
+      (lambda ()
+	(let ((first-line (read-line)))
+	  (cond 
+	   ((string=? first-line ";;;; \"STF-0.1\"") (set-STF-0.1! self (read)))
+	   ((string=? first-line ";;;; \"STF-0.2\"") (set-STF-0.2! self (read)))
+	   (else 	    			     (set-text! self first-line)))
+	  )))
+    (update))
+)
+
+(provide "STF")
+
+
diff --git a/STklos/Tk/Scale.stklos b/STklos/Tk/Scale.stklos
new file mode 100644
index 0000000..8c89e2d
--- /dev/null
+++ b/STklos/Tk/Scale.stklos
@@ -0,0 +1,139 @@
+;;;;
+;;;;  S c a l e . s t k			-- Scale Class definition 
+;;;; 
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;
+;;;; This software is a derivative work of other copyrighted softwares; the
+;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
+;;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 30-Mar-1993 15:28
+;;;; Last file update: 24-Aug-1995 09:15
+
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Scale> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Scale> (<Tk-simple-widget>)
+  ((active-background	:init-keyword   :active-background 
+			:accessor 	active-background
+			:tk-name 	activebackground
+			:allocation 	:tk-virtual)
+   (big-increment	:init-keyword 	:big-increment
+			:accessor 	big-increment
+			:allocation 	:tk-virtual
+			:tk-name 	bigincrement)
+   (command		:init-keyword 	:command 
+			:accessor 	command 
+			:allocation 	:tk-virtual)
+   (digits		:init-keyword	:digits
+			:accessor	digits
+			:allocation	:tk-virtual)
+   (font 		:init-keyword 	:font 
+			:accessor 	font 
+			:allocation  	:tk-virtual)
+   (foreground 		:init-keyword 	:foreground 
+			:accessor 	foreground 
+			:allocation 	:tk-virtual)
+   (from 		:init-keyword 	:from 
+			:accessor 	from 
+			:allocation 	:tk-virtual)
+   (scale-length	:init-keyword	:scale-length 
+			:accessor 	scale-length
+			:tk-name 	length
+			:allocation 	:tk-virtual)
+   (orientation 	:init-keyword 	:orientation
+			:accessor 	orientation
+			:tk-name 	orient
+			:allocation 	:tk-virtual)
+   (repeat-delay 	:init-keyword 	:repeat-delay
+			:accessor 	repeat-delay
+			:tk-name 	repeatdelay
+			:allocation 	:tk-virtual)
+   (repeat-interval 	:init-keyword 	:repeat-interval
+			:accessor 	repeat-interval
+			:tk-name 	repeatinterval
+			:allocation 	:tk-virtual)
+   (resolution		:init-keyword	:resolution
+			:accessor	resolution
+			:allocation	:tk-virtual)
+   (show-value 		:init-keyword 	:show-value
+			:accessor 	show-value
+			:tk-name 	showvalue
+			:allocation 	:tk-virtual)
+   (slider-length 	:init-keyword	:slider-length 
+			:accessor	slider-length 
+			:tk-name	sliderlength
+			:allocation	:tk-virtual)
+   (state 		:init-keyword	:state 
+			:accessor	state 
+			:allocation	:tk-virtual)
+   (text 		:init-keyword 	:text 
+			:accessor	text-of
+			:tk-name	label
+			:allocation 	:tk-virtual)
+   (tick-interval	:init-keyword	:tick-interval
+			:accessor	tick-interval
+			:tk-name	tickinterval
+			:allocation	:tk-virtual)
+   (to 			:init-keyword 	:to 
+			:accessor 	to 
+			:allocation 	:tk-virtual)
+   (trough-color 	:init-keyword 	:trough-color
+			:accessor 	trough-color
+			:tk-name 	troughcolor
+			:allocation 	:tk-virtual)
+   (variable		:init-keyword 	:variable 
+			:accessor 	variable
+			:allocation 	:tk-virtual)
+   (width 		:init-keyword 	:width 
+			:accessor 	width 
+			:allocation 	:tk-virtual)
+   ;; Fictive slot 
+   (value		:accessor     	value
+			:init-keyword 	:value
+			:allocation   	:virtual
+			:slot-ref     	(lambda (o)  
+					  ((slot-ref o 'Id) 'get))
+			:slot-set!    	(lambda (o v) 
+					  ((slot-ref o 'Id) 'set v)))))
+
+(define-method tk-constructor ((self <Scale>))
+  Tk:scale)
+
+;;;
+;;;  <Scale> methods
+;;;
+
+(define-method initialize ((self <Scale>) initargs)
+  (next-method)
+  (let* ((val (get-keyword :value initargs #f)))
+    ;; If a value is specified upon init, set it.
+    (when val
+	  (slot-set! self 'value val))))
+
+(define-method coords ((self <Scale>) . value)
+  (apply (slot-ref self 'Id) 'coords value))
+
+(define-method get ((self <Scale>) x y)
+  ((slot-ref self 'Id) 'coords x y))
+
+(define-method identify ((self <Scale>) x y)
+  ((slot-ref self 'Id) 'identify x y))
+
+
+(provide "Scale")
\ No newline at end of file
diff --git a/STklos/Tk/Scrollbar.stklos b/STklos/Tk/Scrollbar.stklos
new file mode 100644
index 0000000..9c52246
--- /dev/null
+++ b/STklos/Tk/Scrollbar.stklos
@@ -0,0 +1,133 @@
+;;;;
+;;;; S c r o l l b a r . s t k 	  --  Scrollbar class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date:  5-Mar-1994 17:19
+;;;; Last file update:  1-Jan-1996 18:35
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Scrollbar> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Scrollbar> (<Tk-simple-widget>)
+  ((active-background    :accessor     active-background
+			 :init-keyword :active-background
+			 :tk-name      activebackground
+			 :allocation   :tk-virtual)
+   (active-relief        :accessor     active-relief
+			 :init-keyword :active-relief
+			 :tk-name      activerelief
+			 :allocation   :tk-virtual)
+   (command 	         :accessor     command
+			 :init-keyword :command
+			 :allocation   :tk-virtual)  
+   (element-border-width :accessor     element-border-width
+			 :init-keyword :element-border-width
+			 :tk-name      elementborderwidth
+			 :allocation   :tk-virtual)
+   (jump 	         :accessor     jump
+			 :init-keyword :jump
+			 :allocation   :tk-virtual)
+   (orientation          :accessor     orientation
+			 :init-keyword :orientation
+			 :tk-name      orient
+			 :allocation   :tk-virtual)
+   (repeat-delay         :accessor     repeat-delay
+			 :init-keyword :repeat-delay
+			 :tk-name       repeatdelay
+			 :allocation   :tk-virtual)
+   (repeat-interval      :accessor     repeat-interval
+			 :init-keyword :repeat-interval
+			 :tk-name      repeatinterval
+			 :allocation   :tk-virtual)
+   (trough-color         :accessor     trough-color
+			 :init-keyword :trough-color
+			 :tk-name      troughcolor
+			 :allocation   :tk-virtual)
+   (width 	         :accessor     width
+			 :init-keyword :width
+			 :allocation   :tk-virtual)
+   ;; Fictive slot 
+   (value	         :accessor     value
+			 :init-keyword :value
+			 :allocation   :virtual
+			 :slot-ref     (lambda (o)  
+					 ((slot-ref o 'Id) 'get))
+			 :slot-set!    (lambda (o v) 
+					 (apply (slot-ref o 'Id) 'set v)))))
+
+(define-method tk-constructor ((self <Scrollbar>))
+  Tk:scrollbar)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Scrollbar Methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method initialize ((self <Scrollbar>) args)
+  (next-method)
+  (let ((val (get-keyword :value args #f)))
+    ;; If a value is specified at init-time init, set it.
+    (when val 
+	  (set! (value self) val))))
+
+;;;
+;;; Activate
+;;;
+(define-method  activate ((self <Scrollbar>))
+  ((slot-ref self 'Id) 'activate))
+
+(define-method  activate ((self <Scrollbar>) element)
+  ((slot-ref self 'Id) 'activate element))
+
+;;;
+;;; Scrollbar-delta
+;;;
+(define-method scrollbar-delta ((self <Scrollbar>) delta-x delta-y)
+  ((slot-ref self 'Id) 'delta delta-x delta-y))
+
+;;;
+;;; Scrollbar-fraction
+;;;
+(define-method scrollbar-fraction ((self <Scrollbar>) x y)
+  ((slot-ref self 'Id) 'fraction x y))
+
+;;;
+;;; Scrollbar-identify
+;;;
+(define-method scrollbar-identify ((self <Scrollbar>) x y)
+  ((slot-ref self 'Id) 'identify x y))
+
+;;;
+;;; Scrollbar-get
+;;;
+(define-method scrollbar-get ((self <Scrollbar>))
+  ((slot-ref self 'Id) 'get))
+
+;;;
+;;; Scrollbar-set!
+;;;
+(define-method scrollbar-set! ((self <Scrollbar>) x y z w) ; old syntax
+  ((slot-ref self 'Id) 'set x y z w))
+
+(define-method scrollbar-set! ((self <Scrollbar>) x y) ; new syntax
+  ((slot-ref self 'Id) 'set x y))
+
+
+
+(provide "Scrollbar")
diff --git a/STklos/Tk/Text.stklos b/STklos/Tk/Text.stklos
new file mode 100644
index 0000000..7ea72ff
--- /dev/null
+++ b/STklos/Tk/Text.stklos
@@ -0,0 +1,528 @@
+;;;;
+;;;; T e x t . s t k      --  Text class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;    Creation date: 22-Aug-1993 10:55
+;;;; Last file update: 13-Sep-1996 22:10
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-class <Text> (<Tk-simple-widget> <Tk-sizeable> <Tk-editable> 
+		      <Tk-selectable> <Tk-text-selectable>)
+  ((spacing1         :init-keyword :spacing1
+		     :accessor     spacing1
+		     :allocation   :tk-virtual)
+   (spacing2         :init-keyword :spacing2
+		     :accessor     spacing2
+		     :allocation   :tk-virtual)
+   (spacing3         :init-keyword :spacing3
+		     :accessor     spacing3
+		     :allocation   :tk-virtual)
+   (state            :init-keyword :state
+		     :accessor     state
+		     :allocation   :tk-virtual)
+   (tabs	     :init-keyword :tabs
+		     :accessor     tabs
+		     :allocation   :tk-virtual)
+   (x-scroll-command :init-keyword :x-scroll-command
+		     :accessor     x-scroll-command
+		     :tk-name      xscrollcommand
+		     :allocation   :tk-virtual)
+   (y-scroll-command :init-keyword :y-scroll-command
+		     :accessor     y-scroll-command
+		     :tk-name      yscrollcommand
+		     :allocation   :tk-virtual)
+   (wrap             :init-keyword :wrap
+		     :accessor     wrap
+		     :allocation   :tk-virtual)
+   (set-grid         :accessor     set-grid
+		     :init-keyword :set-grid
+		     :allocation   :tk-virtual
+		     :tk-name      setgrid)
+   (pad-x            :accessor     pad-x
+		     :init-keyword :pad-x
+		     :allocation   :tk-virtual
+		     :tk-name      padx)
+   (pad-y            :accessor     pad-y
+		     :init-keyword :pad-y
+		     :allocation   :tk-virtual
+		     :tk-name      pady)
+   (value            :accessor     value
+		     :init-keyword :value
+		     :allocation   :virtual
+		     :slot-ref     (lambda (o)
+				     ;; use "end-1c", rather than "end"
+                                     ;; because the text widget likes to tack
+                                     ;; on trailing newlines, which means
+                                     ;; (set! [value t] [value t])
+                                     ;; actually changes t's value.
+				     ((slot-ref o 'Id) 'get "1.0" "end-1c"))
+		     :slot-set!    (lambda (o v)
+				     ((slot-ref o 'Id) 'delete "1.0" "end")
+				     ((slot-ref o 'Id) 'insert "1.0" v)))
+   ;; The hash-table of associated tags
+   (tags	     :initform	   (make-hash-table))))
+
+(define-method tk-constructor ((self <Text>))
+  Tk:text)
+
+
+(define-method initialize ((self <Text>) initargs)
+  (next-method)
+  ;; Create a tag text selection (because Tk handle the tag "sel" specifically
+  (make <Text-tag> :parent self :Tid "sel")
+  ;; Create "insert" and "current" mark
+  (make <Text-mark> :parent self :Mid "insert"  :index "1.0")
+  (make <Text-mark> :parent self :Mid "current" :index "1.0"))  
+
+
+(define-method destroy ((self <Text>))
+  ;; Destroy all the embedded tags 
+  (hash-table-for-each (slot-ref self 'tags) 
+		       (lambda (k v) (catch (destroy v))))
+  (next-method))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;
+;;; Bounding-box
+;;;
+(define-method bounding-box ((self <Text>) index)
+  ((slot-ref self 'Id) 'bbox index))
+
+;;;
+;;; Compare-index
+;;;
+(define-method compare-index ((self <Text>) index1 op index2)
+  ((slot-ref self 'Id) 'compare index1 op index2))
+
+;;;
+;;; Text-delete
+;;;
+(define-method text-delete ((self <Text>) index1)
+  ((slot-ref self 'Id) 'delete index1))  
+
+(define-method text-delete ((self <Text>) index1 index2)
+  ((slot-ref self 'Id) 'delete index1 index2))
+
+
+;;;
+;;; Text-line-info
+;;; 
+(define-method text-line-info ((self <Text>) index)
+  ((slot-ref self 'Id) 'dlineinfo index))
+
+;;;
+;;; Text-get
+;;;
+(define-method text-get ((self <Text>) index1)
+  ((slot-ref self 'Id) 'get index1)) 
+
+(define-method text-get ((self <Text>) index1 index2)
+  ((slot-ref self 'Id) 'get index1 index2))
+
+;;;
+;;; Text-index
+;;;
+(define-method text-index ((self <Text>) index)
+  ((slot-ref self 'Id) 'index index))
+
+;;;
+;;; Text-insert
+;;;
+(define-method text-insert ((self <Text>) . l)
+  (apply (slot-ref self 'Id) 'insert l))
+
+;;;
+;;; Text-search
+;;;
+(define-method text-search ((self <Text>) . l)
+  (apply (slot-ref self 'Id) 'search l))
+
+;;;
+;;; Text-see
+;;;
+(define-method text-see ((self <Text>) index)
+  (apply (slot-ref self 'Id) 'see index))
+
+;;;
+;;; Text-tags
+;;; 
+(define-method text-tags ((self <Text>) . args)
+  (map (lambda (x) (Tid->instance self x))
+       (apply (slot-ref self 'Id) 'tag 'names args)))
+
+;;;
+;;; Text-marks
+;;;
+(define-method text-marks ((self <Text>))
+  (map (lambda (x) (Tid->instance self x))
+       ((slot-ref self 'Id) 'mark 'names)))
+
+;;;
+;;; Text-x-view
+;;;
+(define-method text-x-view ((self <Text>) . l)
+  (apply (slot-ref self 'Id) 'xview l))
+
+;;;
+;;; Text-x-view
+;;;
+(define-method text-y-view ((self <Text>) . l)
+  (apply (slot-ref self 'Id) 'yview l))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Other <Text> methods
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method get-line ((self <Text>) line)
+  (let ((l (format #f "~A.0" line)))
+    (if (compare-index self l ">" "end") 
+	#f
+	((slot-ref self 'Id) 'get (& line ".0" ) (& line ".0 lineend")))))
+
+(define-method text-save ((self <Text>) filename)
+  (with-output-to-file filename (lambda() (display (slot-ref self 'value)))))
+
+(define-method text-read ((self <Text>) filename)
+  (slot-set! self 'value (with-input-from-file filename 
+			   (lambda() 
+			     (let ((res ""))
+			       (do ((l (read-line) (read-line)))
+				   ((eof-object? l) (string-append res "\n"))
+				 (set! res (if (string=? res "")
+					       l
+					       (string-append res "\n" l)))))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text-tag> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Text-tag> (<Tk-object>)
+  ((Tid            :getter       Tid)
+   (background     :accessor 	 background    
+		   :init-keyword :background   
+		   :allocation   :tk-virtual)
+   (bg-stipple     :accessor     bg-stipple    
+		   :init-keyword :bg-stipple   
+		   :tk-name      bgstipple 
+		   :allocation   :tk-virtual)
+   (border-width   :accessor     border-width  
+		   :init-keyword :border-width 
+		   :tk-name      borderwidth 
+		   :allocation   :tk-virtual)
+   (fg-stipple     :accessor     fg-stipple    
+		   :init-keyword :fg-stipple   
+		   :tk-name      fgstipple 
+		   :allocation   :tk-virtual)
+   (font           :accessor     font          
+		   :init-keyword :font   
+		   :allocation   :tk-virtual)
+   (foreground     :accessor     foreground    
+		   :init-keyword :foreground   
+		   :allocation   :tk-virtual)
+   (justify	   :accessor	 justify
+		   :init-keyword :justify
+		   :allocation   :tk-virtual)
+   (lmargin1	   :accessor	 lmargin1
+		   :init-keyword :lmargin1
+		   :allocation   :tk-virtual)
+   (lmargin2	   :accessor	 lmargin2
+		   :init-keyword :lmargin2
+		   :allocation   :tk-virtual)
+   (offset	   :accessor	 offset
+		   :init-keyword :offset
+		   :allocation   :tk-virtual)
+   (overstrike	   :accessor	 overstrike
+		   :init-keyword :overstrike
+		   :allocation   :tk-virtual)
+   (relief         :accessor     relief        
+		   :init-keyword :relief   
+		   :allocation   :tk-virtual)
+   (rmargin	   :accessor	 rmargin
+		   :init-keyword :rmargin
+		   :allocation   :tk-virtual)
+   (spacing1	   :accessor	 spacing1
+		   :init-keyword :spacing1
+		   :allocation   :tk-virtual)
+   (spacing2	   :accessor	 spacing2
+		   :init-keyword :spacing2
+		   :allocation   :tk-virtual)
+   (spacing3	   :accessor	 spacing3
+		   :init-keyword :spacing3
+		   :allocation   :tk-virtual)
+   (tabs	   :accessor	 tabs
+		   :init-keyword :tabs
+		   :allocation   :tk-virtual)
+   (underline      :accessor     underline
+		   :init-keyword :underline
+		   :allocation   :tk-virtual)
+   (wrap	   :accessor	 wrap
+		   :init-keyword :wrap
+		   :allocation   :tk-virtual))
+  :metaclass <Tk-tag-metaclass>)
+
+(define-method initialize ((self <Text-tag>) initargs)
+  (let ((parent (get-keyword :parent initargs #f)))
+    ;; Verify that parent exists and that it is a <Text>
+    (unless  parent
+       (error "**** You must specify the text which contain this tag"))
+    (unless (is-a? parent <Text>)
+       (error "**** Specified text ~A is not valid" parent))
+
+    (let ((parent-Id (slot-ref parent 'Id))
+	  (Tid 	     (get-keyword :Tid initargs (gensym "tag_"))))
+      (slot-set! self 'Id     parent-Id)
+      (slot-set! self 'Eid    parent-Id)
+      (slot-set! self 'parent parent)
+      (slot-set! self 'Tid    Tid)
+
+      ;; Create the tag (configuring it suffice to create it)
+      (apply (slot-ref parent 'Id) 'tag 'configure Tid 
+	     			   (get-keyword :tk-options initargs '()))
+
+      ;; Add this tag to the hash-table
+      (hash-table-put! (slot-ref parent 'tags) Tid self)
+      (next-method))))
+
+
+;;; Tk-write-object is called when a STklos object is passed to a Tk-command.
+;;; By default, we do the same job as write; but if an object is a <Tk-widget>
+;;; we will pass it its Eid. This method does this job.
+(define-method Tk-write-object((self <Text-tag>) port)
+  (write (slot-ref self 'Tid) port))
+
+;;;
+;;; Utility: Tid->instance
+;;;
+(define (Tid->instance text id)
+  (hash-table-get (slot-ref text 'tags) id id))
+
+;;;
+;;; Tag-add
+;;;
+(define-method tag-add ((self <Text-tag>) index1)
+  ((slot-ref self 'Id) 'tag 'add (slot-ref self 'Tid) index1))
+
+(define-method tag-add ((self <Text-tag>) index1 index2)
+  ((slot-ref self 'Id) 'tag 'add (slot-ref self 'Tid) index1 index2))
+
+;;;
+;;; Bind
+;;;
+(define-method bind ((self <Text-tag>) . args)
+  (apply (slot-ref self 'Id) 'tag 'bind (slot-ref self 'Tid) args))
+
+;;;
+;;; Destroy (for tags)
+;;;
+(define-method destroy ((self <Text-tag>))
+  (let ((parent (slot-ref self 'parent))
+	(Tid    (slot-ref self 'Tid)))
+    ;; Destroy the tag from the Text
+    ((slot-ref self 'Id) 'tag 'delete Tid)
+    ;; Delete it from the hash table
+    (hash-table-remove! (slot-ref parent 'tags) Tid)
+    ;; Change its class to <Destroyed-object>
+    (change-class self <Destroyed-object>)))
+
+;;;
+;;; Tag-lower
+;;;
+(define-method tag-lower ((self <Text-tag>))
+  ((slot-ref self 'Id) 'tag 'lower (slot-ref self 'Tid)))
+
+(define-method tag-lower ((self <Text-tag>) below-this)
+  ((slot-ref self 'Id) 'tag 'lower (slot-ref self 'Tid) below-this))
+
+;;;
+;;; Tag Raise
+;;;
+(define-method tag-raise ((self <Text-tag>))
+  ((slot-ref self 'Id) 'tag 'raise (slot-ref self 'Tid)))
+
+(define-method tag-raise ((self <Text-tag>) below-this)
+  ((slot-ref self 'Id) 'tag 'raise (slot-ref self 'Tid) below-this))
+
+;;;
+;;; Tag-next-range
+;;;
+(define-method tag-next-range ((self <Text-tag>) index1)
+  ((slot-ref self 'Id) 'tag 'nextrange (slot-ref self 'Tid) index1))
+
+(define-method tag-next-range ((self <Text-tag>) index1 index2)
+  ((slot-ref self 'Id) 'tag 'nextrange (slot-ref self 'Id) index1 index2))
+
+  
+;;;
+;;; Tag-ranges
+;;;
+(define-method tag-ranges ((self <Text-tag>))
+  ((slot-ref self 'Id) 'tag 'ranges (slot-ref self 'Tid)))
+
+;;;
+;;; Tag Remove
+;;;
+(define-method tag-remove ((self <Text-tag>) index1)
+  ((slot-ref self 'Id) 'tag 'remove (slot-ref self 'Tid) index1)) 
+
+(define-method tag-remove ((self <Text-tag>) index1 index2)
+  ((slot-ref self 'Id) 'tag 'remove (slot-ref self 'Tid) index1 index2))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text-mark> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Text-mark> (<Tk-object>)
+  ((Mid     :getter  Mid)
+   (gravity :accessor 	  gravity
+	    :init-keyword :gravity
+	    :allocation   :virtual
+	    :slot-ref	  (lambda (o)   
+			    ((slot-ref o 'Id) 'mark 'gravity (slot-ref o 'Mid)))
+	    :slot-set!	  (lambda (o v)
+			    ((slot-ref o 'Id) 'mark 'gravity (slot-ref o 'Mid) v))))
+   :metaclass <Tk-metaclass>)
+
+(define-method Tk-write-object ((self <Text-mark>) port)
+  (write (slot-ref self 'Mid) port))
+
+(define-method initialize ((self <Text-mark>) initargs)
+  (let ((parent (get-keyword :parent initargs #f))
+	(index  (get-keyword :index  initargs #f)))
+    
+    ;; Verify that parent exists and that it is a <Text>
+    (unless  parent
+       (error "**** You must specify the text which contain this mark"))
+    (unless (is-a? parent <Text>)
+       (error "**** Specified text ~A is not valid" parent))
+    (unless index
+       (error "**** You must supply an index for the mark"))
+
+    (let ((parent-Id (slot-ref parent 'Id))
+	  (Mid 	     (get-keyword :Mid initargs (gensym "mark_"))))
+      (slot-set! self 'Id     parent-Id)
+      (slot-set! self 'Eid    parent-Id)
+      (slot-set! self 'parent parent)
+      (slot-set! self 'Mid    Mid)
+
+      ;; Add this mark to the hash-table
+      (hash-table-put! (slot-ref parent 'tags) Mid self)
+     
+      ;; Create the mark 
+      (parent-Id 'mark 'set Mid index)))
+  (next-method))
+
+(define-method mark-set ((self <Text-mark>) where)
+  ((slot-ref self 'Id) 'mark 'set (slot-ref self 'Mid) where))
+
+(define-method mark-unset ((self <Text-mark>))
+  ((slot-ref self 'Id) 'mark 'unset (slot-ref self 'Mid)))
+
+
+;;;
+;;; Destroy (for marks)
+;;;
+(define-method destroy ((self <Text-mark>))
+  (let ((parent (slot-ref self 'parent))
+	(Mid    (slot-ref self 'Mid)))
+    ;; Destroy the tag from the Text
+    ((slot-ref self 'Id) 'tag 'delete Mid)
+    ;; Delete it from the hash table
+    (hash-table-remove! (slot-ref parent 'tags) Mid)
+    ;; Change its class to <Destroyed-object>
+    (change-class self <Destroyed-object>)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Text-window> class definition
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Text-window> (<Tk-object>)
+  ((index	:accessor	index)
+    (align	:init-keyword 	:align
+		:accessor     	align
+		:allocation   	:tk-virtual)
+   (create	:init-keyword	:create
+		:accessor	create
+		:allocation	:tk-virtual)
+   (pad-x	:init-keyword	:pad-x
+		:accessor	pad-x
+		:tk-name	padx
+		:allocation	:tk-virtual)
+   (pad-y	:init-keyword	:pad-y
+		:accessor	pad-y
+		:tk-name	pady
+		:allocation	:tk-virtual)
+   (stretch	:init-keyword	:stretch
+		:accessor	stretch
+		:allocation	:tk-virtual)
+   (window	:init-keyword	:window
+		:accessor	window
+		:allocation	:tk-virtual))
+   :metaclass <Tk-text-window-metaclass>)
+
+(define-method initialize ((self <Text-window>) initargs)
+  (let ((parent (get-keyword :parent initargs #f))
+	(window (get-keyword :window (get-keyword :tk-options initargs '()) #f))
+	(index  (get-keyword :index  initargs #f)))
+
+    ;; Verify that parent exists and that it is a <Text>
+    (unless  (or parent window)
+       (error "**** You must specify the text which contain this window"))
+    (if window
+	(unless (is-a? (slot-ref window 'parent) <Text>)
+	   (error "**** Parent of widget '~S' is not a text" window))
+	(unless (is-a? parent <Text>)
+	   (error "**** Specified text ~A is not valid" parent)))
+    (unless index
+       (error "**** No index specified for this window"))
+
+    (let* ((parent    (if window (slot-ref window 'parent) parent))
+	   (parent-Id (slot-ref parent 'Id)))
+      (slot-set! self 'Id     parent-Id)
+      (slot-set! self 'Eid    parent-Id)
+      (slot-set! self 'parent parent)
+      (slot-set! self 'index  index)
+
+      ;; Create the tag (configuring it suffice to create it)
+      (apply parent-Id 'window 'create index 
+	               (get-keyword :tk-options initargs '()))
+
+      ;; Add the window to the hash-table
+      (hash-table-put! (slot-ref parent 'tags) (gensym) self)
+      (next-method))))
+
+(define-method embedded-text-windows ((self <Text>))
+  ((slot-ref self 'Id) 'window 'names))
+
+(require "STF")
+(provide "Text")
diff --git a/STklos/Tk/Tk-classes.stklos b/STklos/Tk/Tk-classes.stklos
new file mode 100644
index 0000000..50c4458
--- /dev/null
+++ b/STklos/Tk/Tk-classes.stklos
@@ -0,0 +1,56 @@
+;;;;
+;;;; T k - c l a s s e s . s t k	-- A set of autoloads for Tk classes
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 19-Sep-1994 16:00
+;;;; Last file update: 17-Aug-1996 17:14
+
+
+(let ()
+  (define-macro (make-autoload name . l)
+    ;; make 'name' autoload iff not already provided.
+    `(unless (provided? ,name)
+       ;; Specify a suffix for autoload because filenames are not case
+       ;; sensitive under Win32!
+       (autoload ,(string-append name ".stklos") ,@l)))
+
+
+  (make-autoload "Button"  	<Label> <Button> <Check-button> <Radio-button>)
+  (make-autoload "Canvas"  	<Canvas> <Canvas-group> <Arc> <Bitmap-item> 
+				<Line> <Oval> <Polygon> <Rectangle> <Text-item>
+				<Window>)
+  (make-autoload "Entry"   	<Entry>)
+  (make-autoload "Frame"   	<Frame>)
+  (make-autoload "Listbox"  	<Listbox>)
+  (make-autoload "Menu"    	<Menu> <Menu-button> make-menubar)
+  (make-autoload "Message" 	<Message>)
+  (make-autoload "Scale"   	<Scale>)
+  (make-autoload "Scrollbar" 	<Scrollbar>)
+  (make-autoload "Text"	 	<Text>)
+  (make-autoload "Toplevel"	<Toplevel> *top-root* deiconify iconify withdraw
+	  			toplevel-frame toplevel-state)
+  (make-autoload "Choicebox"	<Choice-box>)
+  (make-autoload "Defbutton"	<Default-button>)
+  (make-autoload "Filebox"	<File-box> make-file-box)
+  (make-autoload "Lentry"	<Labeled-entry>)
+  (make-autoload "Multiwin"	<Multiple-window> <Inner-window>)
+  (make-autoload "Multipaned"	<MultiPaned>)
+  (make-autoload "Paned"	<HPaned> <VPaned>)
+  (make-autoload "Scrollbox"	<Scroll-Listbox>)
+  (make-autoload "Scrollcanvas"	<Scroll-Canvas>)
+  (make-autoload "Scrolltext"	<Scroll-Text>)
+  (make-autoload "Image" 	<Bitmap-image> <Photo-image>)
+
+  (make-autoload "Basics"	<Tk-widget> <Tk-Composite-Widget>))
+
+(provide "Tk-classes")
diff --git a/STklos/Tk/Tk-meta.stklos b/STklos/Tk/Tk-meta.stklos
new file mode 100644
index 0000000..35924b8
--- /dev/null
+++ b/STklos/Tk/Tk-meta.stklos
@@ -0,0 +1,196 @@
+;;;;
+;;;; T k - m e t a . s t k 		--  Metaclasses definitions
+;;;;
+;;;; Copyright (C) 1993,1994,1995 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 24-Feb-1994 15:08
+;;;; Last file update: 23-Aug-1995 11:59
+;;;;
+;;;;
+;;;; The <With-Tk-virtual-slots-metaclass> original idea and implementation 
+;;;; are due to Robert DeLine <deline@amarillo.pa.dec.com>.
+;;;;
+;;;;
+;;;; Compatibility:
+;;;; 	- the :pseudo allocation is now replaced by :tk-virtual (Rob DeLine
+;;;;	  proposition). However both name are accepted. Avoid to use :pseudo
+;;;;	  since it will disappear in the future.
+;;;;
+;;;;	- the :special allocation is now replaced by :propagated (Rob DeLine
+;;;;	  proposition). However both name are accepted. Avoid to use :special
+;;;;	  since it will disappear in the future.
+;;;;
+;;;;	- the :propagate option for propagated slots is now replaced by 
+;;;;	  :propagate-to. Avoid to use :propagate since it will disappear in
+;;;;	  the future.
+
+(require "stklos")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <With-Tk-virtual-slots-metaclass> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Define Tk slots getters and setters. In fact this metaclass permits 
+;; a direct mapping of STklos slots to the Tk-library widget options.
+;; For instance, a <Label> has a slot called "text". Accessing this slot
+;; will call a Tk (C) library function 
+;;     (xxxx 'cget 'text)		for reading
+;; or
+;;     (xxxx 'configure 'text value)	for writing
+;; where xxxx is an internal name generated during instance creation).
+(define-class <With-Tk-virtual-slots-metaclass> (<class>)
+  (tk-valid-options))
+
+
+(define-method initialize ((class <With-Tk-virtual-slots-metaclass>) initargs)
+  (next-method)
+  ;; Build a A-list of allowed keywords. The A-list key is a scheme init
+  ;; keyword and the data is the tk option name for this keyword.
+  ;; Those keywords will be passed to the Tk-command at build time
+  (let ((slots   (slot-ref class 'slots))
+	(res     '())
+	(tk-virtual? (lambda(s) 
+		       (memv (get-slot-allocation s) '(:tk-virtual :pseudo)))))
+
+    (for-each (lambda (s)
+		(when (tk-virtual? s) 
+		      (let* ((key     (make-keyword (car s)))
+			     (tk-name (get-keyword :tk-name (cdr s) (car s))))
+			(set! res (cons (vector key (make-keyword tk-name) (car s))
+					res)))))
+	      slots)
+    
+    ;; Store all this list in the new allocated class
+    (slot-set! class 'tk-valid-options res)))
+
+
+(define-method make-instance ((class <With-Tk-virtual-slots-metaclass>) initargs)
+  (letrec ((instance   (allocate-instance class initargs))
+	   (valids     (slot-ref class 'tk-valid-options))
+	   (find       (lambda (key l)
+			 (cond
+			  ((null? l) #f)
+			  ((eq? key (vector-ref (car l) 0)) (car l))
+			  (else     (find key (cdr l))))))
+	   (tk-options ())
+	   (other-args ()))
+
+    ;; Filter initargs to pass only valid options to TK
+    (do ((args initargs (cddr args)))
+	((null? args))
+      (let ((opt (find (car args) valids)))
+	(if opt
+	    (set! tk-options (list* (vector-ref opt 1)(cadr args) tk-options))
+	    (set! other-args (list* (car args) (cadr args) other-args)))))
+
+    ;; Now initialize the instance with the two lists of args.
+    (initialize instance (append other-args (list :tk-options tk-options)))
+    instance))
+
+(define-method compute-get-n-set ((class <With-Tk-virtual-slots-metaclass>) slot)
+  (if (memv (get-slot-allocation slot) '(:tk-virtual :pseudo))
+      [let ((tk-name (make-keyword (get-keyword :tk-name (cdr slot) (car slot)))))
+	(compute-tk-virtual-get-n-set class tk-name)]
+      [next-method]))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-metaclass> (<With-Tk-virtual-slots-metaclass>)
+  ())
+
+(define-method compute-tk-virtual-get-n-set ((class <Tk-metaclass>) tk-name)
+  (list
+   (lambda (o)   ((slot-ref o 'Id) 'cget tk-name))
+   (lambda (o v) ([slot-ref o 'Id] 'configure tk-name v))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-item-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-item-metaclass> (<With-Tk-virtual-slots-metaclass>)
+  ())
+
+(define-method compute-tk-virtual-get-n-set ((class <Tk-item-metaclass>) tk-name)
+  (list
+   (lambda (o)
+     ((slot-ref o 'Id) 'itemcget (slot-ref o 'Cid) tk-name))
+   (lambda (o v)
+     ((slot-ref o 'Id) 'itemconf (slot-ref o 'Cid) tk-name v))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-tag-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-tag-metaclass> (<With-Tk-virtual-slots-metaclass>)
+  ())
+
+(define-method compute-tk-virtual-get-n-set ((class <Tk-tag-metaclass>) tk-name)
+  (list
+   (lambda (o)
+     ((slot-ref o 'Id) 'tag 'cget (slot-ref o 'Tid) tk-name))
+   (lambda (o v)
+     ((slot-ref o 'Id) 'tag 'configure (slot-ref o 'Tid) tk-name v))))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-text-window-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-text-window-metaclass> (<With-Tk-virtual-slots-metaclass>)
+  ())
+
+(define-method compute-tk-virtual-get-n-set ((class <Tk-text-window-metaclass>) 
+					     tk-name)
+  (list
+   (lambda (o)
+     ((slot-ref o 'Id) 'window 'cget (slot-ref o 'index) tk-name))
+   (lambda (o v)
+     ((slot-ref o 'Id) 'window 'configure (slot-ref o 'index) tk-name v))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-composite-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-composite-metaclass> (<Tk-metaclass> <Composite-metaclass>)
+  ())
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Tk-composite-item-metaclass> metaclass
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Tk-composite-item-metaclass> (<Tk-item-metaclass> 
+					     <Composite-metaclass>)
+  ()
+)
+
+(provide "Tk-meta")
diff --git a/STklos/Tk/Tk-methods.stklos b/STklos/Tk/Tk-methods.stklos
new file mode 100644
index 0000000..00c2ef6
--- /dev/null
+++ b/STklos/Tk/Tk-methods.stklos
@@ -0,0 +1,125 @@
+;;;;
+;;;; T k - m e t h o d s . s t k	-- redefine Tk commands as methods
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date:  9-Feb-1995 22:49
+;;;; Last file update: 13-Sep-1996 15:33
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;;;;  C O M M E N T S   A R E   O U T   O F  D A T E
+
+;;;;	This file is loaded at the first make on a Tk object. Its purpose
+;;;;    consists to define new widgets manipulation methods or functions
+;;;;	functions which will do the same job that the equivalent Tk function
+;;;;	(except that they know how manage STklos instances).
+;;;;	This file is loaded as later as possible to allow image creation of
+;;;; 	code containing Tk classes
+
+;;;; Loading of this file is done as soon as Tk::make-tk-name is
+;;;; called (i.e. as soon as a Tk object is created since this function is
+;;;; called for making the Id of a widget). Tk::make-tk-name is defined as
+;;;; an autoload in the Basics.stk file
+
+;;;;	Consequently, this file is loaded only when Tk is completly initialized
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;
+;; Stuff for generating Tcl variable names
+;;
+(define (Tk::make-tk-name parent subname)
+  (format #f "~A.~A"
+	  [if (or (eq? parent *root*) (eq? parent *top-root*))
+	      "" 
+	      (widget->string (slot-ref parent 'Id))]
+	  [or subname (gensym "v")]))
+
+
+;;; Tk-write-object is called when a STklos object is passed to a Tk-command.
+;;; By default, we do the same job as write; but if an object is a <Tk-widget>
+;;; we will pass it its Eid. This method does this job.
+(define-method Tk-write-object((self <Tk-widget>) port)
+  (write (widget-name (slot-ref self 'Eid)) port))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Tk-commands rewriting as methods or functions
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+;;;; A kind of predicate to determine if an object is a Tk-widget descendant
+(define-method tk-widget? ((self <Tk-widget>))  #t)
+(define-method tk-widget? ((self <top>))        #f)
+
+
+;;;; A general destroy
+(define-method destroy ((self <Tk-widget>))
+  (let ((Eid (slot-ref self 'Eid)))
+    ;; Destroy all the sons of this widget
+    (apply destroy (map (lambda (x) (or (Id->instance x) x))
+			(winfo 'children Eid)))	   
+    ;; Suicide
+    (Tk:destroy Eid)
+    (change-class self <Destroyed-object>)))
+
+(define-method destroy (obj)
+  ;; Method called when not using objects (e.g. [destroy .b] )
+  ;; Destroy all the sons of this widget  
+  (for-each destroy (winfo 'children obj))
+  ;; Suicide
+  (let ((inst (Id->instance obj)))
+    (when inst (change-class inst <Destroyed-object>))
+    (Tk:destroy obj)))
+
+(define-method destroy l		  ;; Destroy a list of widgets
+  (for-each destroy l))
+
+;;;; A general focus
+(define-method focus ()
+  (let ((w (Tk:focus)))
+    (and w (Id->instance w))))
+
+(define-method focus l (apply Tk:focus l))
+
+;;;; A general unpack (to avoid [pack 'forget ...] which is ugly
+(define (unpack . l)
+  (apply pack 'forget l))
+
+
+(define-method get-Tk-default-value ((self <Tk-widget>) slot)
+  (list-ref ((slot-ref self 'Id) 'configure (make-keyword slot)) 3))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; define *top-root* (a <toplevel> accessing the root window)
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require "Toplevel")
+
+(define *top-root* (if Tk:initialized?
+		       (let ((top (allocate-instance <Toplevel> '())))
+			 (slot-set! top 'Id     *root*)
+			 (slot-set! top 'Eid    *root*)
+			 (slot-set! top 'parent *root*)
+			 (set-widget-data! *root* `(:instance ,top))
+			 top)
+		       #f))
+(provide "Tk-methods")
diff --git a/STklos/Tk/Toplevel.stklos b/STklos/Tk/Toplevel.stklos
new file mode 100644
index 0000000..60aaecd
--- /dev/null
+++ b/STklos/Tk/Toplevel.stklos
@@ -0,0 +1,159 @@
+;;;;
+;;;; T o p l e v e l . s t k	  --  Toplevel class definition
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;	       Author: Erick Gallesio [eg@kaolin.unice.fr]
+;;;;	Creation date:	5-Mar-1994 17:19
+;;;; Last file update: 23-Jul-1996 23:44
+
+(require "Basics")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Toplevel> class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Toplevel> (<Tk-simple-widget> <Tk-sizeable>)
+  ((class	:accessor	class
+		:init-keyword 	:class
+		:allocation	:tk-virtual)
+   (colormap	:accessor	colormap
+		:init-keyword	:colormap
+		:allocation	:tk-virtual)
+   (screen	:accessor	screen
+		:init-keyword	:screen
+		:allocation	:tk-virtual)
+   (visual	:accessor	visual
+		:init-keyword	:visual
+		:allocation	:tk-virtual)
+   ;;;;
+   ;;;; Following slots embody the Tk:wm command options
+   ;;;; Note: "Uncommon" slots have not been given an accessor
+   ;;;;
+   (aspect	:allocation	:virtual
+		:init-keyword	:aspect
+		:slot-ref	(lambda (o) (Tk:wm 'aspect (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) 
+				  (apply Tk:wm 'aspect (slot-ref o 'Eid) v)))
+
+   (client	:allocation	:virtual
+		:init-keyword	:client
+		:slot-ref	(lambda (o) (Tk:wm 'client (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) 
+				  (Tk:wm 'client (slot-ref o 'Eid) v)))
+   (command	:allocation	:virtual
+		:init-keyword	:command
+		:slot-ref	(lambda (o) (Tk:wm 'command (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) 
+				  (Tk:wm 'command (slot-ref o 'Eid) v)))
+   (focus-model	:allocation	:virtual
+		:init-keyword	:focus-model
+		:slot-ref	(lambda (o) (Tk:wm 'focus (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v)
+				  (Tk:wm 'focus (slot-ref o 'Eid) v)))
+   (geometry	:accessor	geometry
+		:init-keyword 	:geometry
+		:allocation	:virtual
+		:slot-ref	(lambda (o) (Tk:wm 'geometry (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v)
+				  (Tk:wm 'geometry (slot-ref o 'Eid) v)))
+   (wm-group	:allocation	:virtual
+		:init-keyword	:wm-group
+		:slot-ref	(lambda (o) (Tk:wm 'group (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) 
+				  (Tk:wm 'group (slot-ref o 'Eid) v)))
+   (icon-bitmap	:accessor	icon-bitmap
+		:init-keyword	:icon-bitmap
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'iconbit (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'iconbit (slot-ref o 'Eid) v)))
+   (icon-mask	:init-keyword	:icon-mask
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'iconma (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'iconma (slot-ref o 'Eid) v)))
+   (icon-name	:accessor	icon-name
+		:init-keyword	:icon-name
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'iconnam (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'iconnam (slot-ref o 'Eid) v)))
+   (icon-window	:init-keyword	:icon-window
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'iconwin (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'iconwin (slot-ref o 'Eid) v)))
+   (max-size	:accessor	maximum-size
+		:init-keyword	:maximum-size
+		:allocation	:virtual
+		:slot-ref	(lambda (o) (Tk:wm 'max (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v)
+				  (apply Tk:wm 'max (slot-ref o 'Eid) v)))
+   (min-size	:accessor	minimum-size
+		:init-keyword	:minimum-size
+		:allocation	:virtual
+		:slot-ref	(lambda (o) (Tk:wm 'min (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v)
+				  (apply Tk:wm 'min (slot-ref o 'Eid) v)))
+   (override	:init-keyword	:override-redirect
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'over (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'over (slot-ref o 'Eid) v)))
+   (pos-from	:init-keyword	:position-from
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'pos (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'pos (slot-ref o 'Eid) v)))
+   (protocol	:init-keyword	:protocol
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'proto (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'proto (slot-ref o 'Eid) v)))
+   (size-from	:init-keyword	:size-from
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'size (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'size (slot-ref o 'Eid) v)))
+   (title	:accessor	title
+		:init-keyword	:title
+		:allocation	:virtual
+		:slot-ref	(lambda (o)   (Tk:wm 'title (slot-ref o 'Eid)))
+		:slot-set!	(lambda (o v) (Tk:wm 'title (slot-ref o 'Eid) v)))
+   (transient	:accessor	transient-for
+		:init-keyword	:transient-for
+		:allocation	:virtual
+		:slot-ref       (lambda (o)   (Tk:wm 'trans (slot-ref o 'Eid)))
+		:slot-set!      (lambda (o v) (Tk:wm 'trans (slot-ref o 'Eid) v)))))
+
+
+
+(define-method tk-constructor ((self <Toplevel>))
+  Tk:toplevel)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Some methods 
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method deiconify ((self <Toplevel>))
+  (Tk:wm 'deiconify (slot-ref self 'Eid)))
+
+(define-method iconify ((self <Toplevel>))
+  (Tk:wm 'iconify (slot-ref self 'Eid)))
+
+(define-method toplevel-frame ((self <Toplevel>))
+  (Tk:wm 'frame (slot-ref self 'Eid)))
+
+(define-method toplevel-state ((self <Toplevel>))
+  (Tk:wm 'state (slot-ref self 'Eid)))
+
+(define-method withdraw ((self <Toplevel>))
+  (Tk:wm 'withdraw (slot-ref self 'Eid)))
+
+(provide "Toplevel")
+
diff --git a/STklos/describe.stk b/STklos/describe.stk
new file mode 100644
index 0000000..e748f75
--- /dev/null
+++ b/STklos/describe.stk
@@ -0,0 +1,94 @@
+;;;;
+;;;; The DESCRIBE method (partly stolen fom Elk lib)
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 21-Mar-1993 14:33
+;;;; Last file update: 27-Sep-1994 14:07
+;;;;
+
+(require "stklos")
+;;;
+;;; describe for simple objects
+;;;
+(define-method describe ((x <top>))
+  (format #t "~s is " x)
+  (cond
+     ((integer? x)      (format #t "an integer"))
+     ((real?    x)      (format #t "a real"))
+     ((null?	x)      (format #t "an empty list"))
+     ((boolean?	x)      (format #t "a boolean value (~s)" (if x 'true 'false)))
+     ((char?	x)      (format #t "a character, ascii value is ~s" 
+				(char->integer x)))
+     ((symbol?	x)      (format #t "a symbol"))
+     ((pair?	x)	(format #t "a list"))
+     ((string?	x)	(if (eqv? x "")
+			    (format #t "an empty string")
+			    (format #t "a string of length ~s" (string-length x))))
+     ((vector?  x)   	(if (eqv? x '#())
+			    (format #t "an empty vector")
+			    (format #t "a vector of length ~s" (vector-length x))))
+     ((procedure? x)	(format #t "a procedure"))
+     ((environment? x)	(format #t "an environment"))
+     ((eof-object? x)	(format #t "the end-of-file object.~%"))
+     (else	     	(format #t "an unknown object (~s)" x)))
+  (format #t ".~%"))
+
+
+;;;
+;;; describe for STklos instances
+;;;
+(define-method describe ((x <object>))
+  (format #t "~S is an instance of class ~A~%" x (class-name (class-of x)))
+
+  ;; print all the instance slots
+  (format #t "Slots are: ~%")
+  (for-each (lambda (slot)
+	      (let ((name (if (pair? slot) (car slot) slot)))
+		(format #t "     ~S = ~A~%" name 
+					    (if (slot-bound? x name) 
+						(format #f "~S" (slot-ref x name))
+						"#[unbound]"))))
+       (class-slots (class-of x)))
+  #f)
+
+;;;
+;;; Describe for classes
+;;;
+(define-method describe ((x <class>))
+  (format #t "~S is a class. It's an instance of ~A~%" 
+	  (class-name x) (class-name (class-of x)))
+
+  (format #t "Superclasses are:~%")
+  (for-each (lambda (class) (format #t "    ~A~%" (class-name class)))
+       (class-direct-supers x))
+
+  (format #t "Directs slots are:~%") 
+  (for-each (lambda (s) 
+	 (let ((slot (if (pair? s) (car s) s)))
+	   (format #t "    ~A~%" slot)))
+       (class-direct-slots x))
+  
+  (format #t "Class Precedence List is:~%")
+  (for-each (lambda (s) (format #t "    ~A~%" (class-name s))) 
+	    (class-precedence-list x))
+
+  (format #t "~%Field Initializers ~%    ")
+  (write (slot-ref x 'initializers)) (newline)
+
+  (format #t "~%Getters and Setters~%    ")
+  (write (slot-ref x 'getters-n-setters)) (newline)
+  #f
+)
+
+(provide "describe")
+
diff --git a/STklos/stklos.stk b/STklos/stklos.stk
new file mode 100644
index 0000000..ee3f7a5
--- /dev/null
+++ b/STklos/stklos.stk
@@ -0,0 +1,553 @@
+;;;;
+;;;; s t k l o s . s t k    -- A variation of the Gregor Kickzales tiny-clos
+;;;;			      for STk
+;;;;
+;;;; Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+;;;; 
+;;;; Permission to use, copy, and/or distribute this software and its
+;;;; documentation for any purpose and without fee is hereby granted, provided
+;;;; that both the above copyright notice and this permission notice appear in
+;;;; all copies and derived works.  Fees for distribution or use of this
+;;;; software or derived works may only be charged with express written
+;;;; permission of the copyright holder.  
+;;;; This software is provided ``as is'' without express or implied warranty.
+;;;;
+;;;;           Author: Erick Gallesio [eg@unice.fr]
+;;;;    Creation date: 20-Feb-1994 21:09
+;;;; Last file update:  1-May-1996 12:13
+;;;;
+
+(require "hash")
+
+(UNLESS (PROVIDED? "stklos")
+  ;; Initialize STklos
+  (%init-stklos)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; First define some macros to ease further writing
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (build-scheme-name l)
+  (cond
+   ((and (list? l) (= (length l) 2) (eq? (car l) 'setter))
+       		        (string->symbol (format #f "the setter of ~A" (cadr l))))
+   ((symbol? l)		l)
+   (else    		(error "bad Scheme name ~S" l))))
+
+(define (build-specializers-list l)
+  ;; returns a pair where specializers and parameters are dissociated
+  (let loop ((l l) (args '()) (spec '()))
+    (cond
+     ((pair? l) ;; Something like ((x <integer>) ...) or (z (x <integer>) ...)
+             (let ((arg (car l)))
+	       (if (list? arg)
+		  (loop (cdr l) (cons (car arg) args) (cons (eval (cadr arg)) spec))
+		  (loop (cdr l) (cons arg args) (cons <top> spec)))))
+     ((null? l) ;; We have finished
+             (cons (reverse spec) (reverse args)))
+     (else      ;; We have an original list with a "dotted" cdr - i.e (a (b c) . d)
+      		(cons 
+		   (append (reverse spec) <top>)
+		   (append (reverse args) l))))))
+
+;;; Define-class
+(define-macro (define-class name supers slots . options)
+  `(define ,name
+     (make (or ,(get-keyword :metaclass options #f)
+	       ,(ensure-metaclass (map eval supers)))
+	   :dsupers ,(if (null? supers)
+			 `(list <object>)
+			 `(list ,@supers))
+	   :slots ',slots
+	   :name ',name)))
+
+
+;;; Method
+(define-macro (method args . body)
+  (let ((decomposition (build-specializers-list args)))
+    `(make <method>
+	   :specializers ',(car decomposition)
+	   :procedure	 (lambda (next-method ,@(cdr decomposition))
+			   ,@body))))
+
+;;; Define-generic
+(define-macro (define-generic name . l)
+  `(define ,name (apply make <generic> :name ',name ',l)))
+
+;;; Define-method
+(define-macro (define-method name args . body)
+  (let* ((name     (build-scheme-name name))
+	 (glob-env (global-environment))
+	 (previous (if (symbol-bound? name glob-env)
+		       (eval name glob-env)
+		       #f))
+	 (m	   (gensym "%M ")))
+    `(begin
+       (unless (and (symbol-bound? ',name) (is-a? ,name <generic>))
+	  (define-generic ,name :default ,previous))
+       (let ((,m (method ,args ,@body)))
+	 ;; Set the generic-function slot of the new method
+	 (slot-set! ,m 'generic-function ,name)
+	 (add-method ,name ,m))
+       ',name)))
+
+;;; is-a?
+(define-macro (is-a? obj class)
+  `(and (member ,class (class-precedence-list (class-of ,obj))) #t))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Metaclass utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (ensure-metaclass supers)
+  (if (null? supers) <class>
+      (let* ((all-metas (map class-of supers))
+	     (all-cpls (apply append
+			      (map (lambda (m) (cdr (class-precedence-list m))) 
+				   all-metas)))
+	     (needed-metas ()))
+	;; Find the most specific metaclasses.  The new metaclass will be
+	;; a subclass of these.
+	(for-each
+	 (lambda (meta)
+	   (when (and (not (member meta all-cpls)) (not (member meta needed-metas)))
+		 (set! needed-metas (append needed-metas (list meta)))))
+	 all-metas)
+	;; Now return a subclass of the metaclasses we found.
+	(if (null? (cdr needed-metas))
+	    (car needed-metas)  ;; If there's only one, just use it.
+	    (ensure-metaclass-with-supers needed-metas)))))
+
+
+(define ensure-metaclass-with-supers
+  (let ((table-of-metas (make-hash-table)))
+    (lambda (meta-supers)
+      (let* ((name (string->symbol (apply & (map class-name meta-supers))))
+	     (entry (hash-table-get table-of-metas name #f)))
+	(if entry entry
+	    (let ((new-metaclass (make <class>
+				      :dsupers meta-supers
+				      :slots ()
+				      :name (gensym "metaclass"))))
+	      (hash-table-put! table-of-metas name new-metaclass)
+	      new-metaclass))))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Utilities
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (compute-slot-getters class slots)
+  (for-each 
+      (lambda (s)
+	(if (pair? s)
+	     (let ((getter-name (get-keyword :getter (cdr s) #f)))
+	       (if getter-name
+		   (eval `(define-method ,getter-name ((self ,class))
+			    (slot-ref self ',(car s))))))))
+      slots))
+
+(define (compute-slot-setters class slots)
+  (for-each
+      (lambda (s)
+	(if (pair? s)
+	     (let ((setter-name (get-keyword :setter (cdr s) #f)))
+	       (if setter-name
+		   (eval `(define-method ,setter-name ((self ,class) value)
+			    (slot-set! self ',(car s) value)))))))
+      slots))
+
+(define (compute-slot-accessors class slots)
+  (for-each
+      (lambda (s)
+	(if (pair? s)
+	     (let ((accessor-name (get-keyword :accessor (cdr s) #f)))
+	       (if accessor-name
+		   (eval `(begin
+			    (define-method ,accessor-name ((self ,class))
+			      (slot-ref self ',(car s)))
+			    (define-method (setter ,accessor-name) ((self ,class) v)
+			      (slot-set! self ',(car s) v))))))))
+      slots))
+
+
+(define (get-slot-allocation s)
+  (if (symbol? s)
+      :instance
+      (get-keyword :allocation (cdr s) :instance)))
+
+;;;
+;;; compute-getters-n-setters
+;;; 
+
+(define (compute-getters-n-setters class slots)
+  (map (lambda (s)
+	 (if (pair? s)
+	     (cons (car s) (compute-get-n-set class s))
+	     (cons s	   (compute-get-n-set class (list s)))))
+       slots))
+
+
+;;;
+;;; compute-cpl
+;;;
+
+(define (compute-cpl class)
+  
+  (define (filter-cpl class)
+    (let ((res  '()))
+      (for-each (lambda (item)
+		  (unless (or (eq? item <object>) 
+			      (eq? item <top>) 
+			      (member item res))
+		   (set! res (cons item res))))
+	      class)
+      res))
+
+  (let* ((supers   (slot-ref class 'direct-supers))
+	 (big-list (apply append (cons class supers) (map compute-cpl supers))))
+    (reverse (list* <top> <object> (filter-cpl big-list)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Compute-get-n-set
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method compute-get-n-set ((class <class>) s)
+  (case (get-slot-allocation s)
+    (:instance ;; Instance slot
+               ;; get-n-set is just its offset
+     	       (let ((already-allocated (slot-ref class 'nfields)))
+		 (slot-set! class 'nfields (+ already-allocated 1))
+		 already-allocated))
+
+    (:class  ;; Class slot
+             ;; Class-slots accessors are implemented as 2 closures around 
+     	     ;; a Scheme variable. As instance slots, class slots must be
+	     ;; unbound at init time. Since assignement to an unbound variable 
+  	     ;; is not possible with our set! (in this case set! thinks that
+	     ;; the variable has not been defined), our variable is in fact 
+	     ;; a vector of length 1. This permits to circumvent this problem, 
+             ;; without introducing a "set-environment" primitive.
+             (let ((shared-cell (make-vector 1)))
+	       (list (lambda (o)   (vector-ref shared-cell 0))
+		     (lambda (o v) (vector-set! shared-cell 0 v)))))
+
+    (:virtual;; No allocation
+     	     ;; slot-ref and slot-set! function must be given by the user
+     	     (let ((get (get-keyword :slot-ref  (cdr s) #f))
+		   (set (get-keyword :slot-set! (cdr s) #f)))
+	       (unless (and get set)
+		  (error "You must supply a :slot-ref and a :slot-set! in ~A" s))
+	       (list (eval get) 
+		     (eval set))))
+    (else    (error "Allocation \"~S\" is unknown" (get-slot-allocation s)))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Initialize
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method initialize ((object <object>) initargs)
+  (%initialize-object object initargs))
+
+(define-method initialize ((class <class>) initargs)
+  (next-method)
+  (let ((dslots (get-keyword :slots initargs '())))
+    (slot-set! class 'name	  	(get-keyword :name    initargs '???))
+    (slot-set! class 'direct-supers 	(get-keyword :dsupers initargs '()))
+    (slot-set! class 'direct-slots  	dslots)
+    (slot-set! class 'cpl		(compute-cpl class))
+    (let ((slots (%compute-slots class)))
+      (slot-set! class 'slots	  	  slots)
+      (slot-set! class 'nfields	  	  0)
+      (slot-set! class 'initializers      (%compute-initializers slots))
+      (slot-set! class 'getters-n-setters (compute-getters-n-setters class slots)))
+
+    ;; Build getters - setters - accessors
+    (compute-slot-getters   class dslots)
+    (compute-slot-setters   class dslots)
+    (compute-slot-accessors class dslots)))
+
+
+(define-method initialize ((generic <generic>) initargs)
+  (let ((previous-definition (get-keyword :default initargs #f)))
+    (next-method)
+    (slot-set! generic 'name    (get-keyword :name initargs '???))
+    (slot-set! generic 'methods (if (is-a? previous-definition <procedure>)
+				    (list (make <method>
+						:specializers <top>
+						:procedure 
+						    (lambda (nm . l)
+						      (apply previous-definition 
+							     l))))
+				    ()))))
+
+(define-method initialize ((method <method>) initargs)
+  (next-method)
+  (slot-set! method 'generic-function #f)
+  (slot-set! method 'specializers (get-keyword :specializers initargs '()))
+  (slot-set! method 'procedure	  (get-keyword :procedure initargs (lambda l '()))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Allocate-instance
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method allocate-instance ((class <class>) initargs)
+  (%allocate-instance class))
+
+(define-method make-instance ((class <class>) initargs)
+  (let ((instance (allocate-instance class initargs)))
+    (initialize instance initargs)
+    instance))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Make. 
+;;;;
+;;;; A new definition which overwrite the previous one which was built-in
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define (MAKE class . initargs)
+  (make-instance class initargs))
+
+;;;;
+;;;; Protocol for calling standard generic functions. 
+;;;; This protocol is not used for real <generic> function (in this case
+;;;; we use a completly C hard-coded protocol).
+;;;; The method apply-generic is called by the interpreter when a subclass
+;;;; of <generic> is applied.
+;;;;
+(define-method apply-generic ((gf <generic>) args)
+  ;; Verify that this function has associated methods
+  (if (null? (slot-ref gf 'methods))
+      (no-method gf args))
+  
+  (let ((applicable (apply find-method gf args)))
+    (if applicable
+	(let* ((methods (sort-applicable-methods gf applicable args))
+	       (procs   (map (lambda (x) (slot-ref x 'procedure)) methods)))
+	  ;; Call the first applicable method
+	  (letrec ((next (lambda (procs args)
+			   (lambda new-args
+			     (let ((a (if (null? new-args) args new-args)))
+			       (if (null? procs)
+				   (no-next-method gf a)
+				   (apply (car procs)
+					  (next (cdr procs) a)
+					  a)))))))
+	    (apply (car procs) (next (cdr procs) args) args)))
+	;; No applicable method
+	(no-applicable-method gf args))))
+
+(define-method sort-applicable-methods ((gf <generic>) methods args)
+  (let ((targs (map class-of args)))
+    (sort methods (lambda (m1 m2) (method-more-specific? m1 m2 targs)))))
+
+(define-method method-more-specific? ((m1 <method>) (m2 <method>) targs)
+  (%method-more-specific? m1 m2 targs))
+
+;;;;
+;;;; Methods for the possible error we can encounter when calling a gf
+;;;;
+
+(define-method no-next-method ((gf <generic>) args)
+  (error "No next method when calling ~S (name=~S) with ~S as argument" 
+	 gf (slot-ref gf 'name) args))
+
+(define-method no-applicable-method ((gf <generic>) args)
+  (error "No applicable method for ~S\nin call ~S" 
+	 gf (append (cons (slot-ref gf 'name) args))))
+
+(define-method no-method ((gf <generic>) args)
+  (error "No method defined for ~S (name=~S)"  gf (slot-ref gf 'name)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Change-class
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method change-class ((old-instance <object>) (new-class <class>))
+  (let ((new-instance (allocate-instance new-class ()))
+	(old-slots    (map (lambda (x) (if (pair? x) (car x) x)) 
+			   (class-slots (class-of old-instance)))))
+    ;; Set all the common slots to their old value
+    (for-each (lambda (slot)
+		(if (and (slot-exists? new-instance slot)
+			 (slot-bound? old-instance slot))
+		    (slot-set! new-instance slot (slot-ref old-instance slot))))
+	      old-slots)
+    (%modify-instance old-instance new-instance)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Clone functions (from rdeline@CS.CMU.EDU)
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method shallow-clone ((self <object>))
+  (let ((clone (%allocate-instance (class-of self)))
+	(slots (map (lambda (x) (if (pair? x) (car x) x)) 
+		    (class-slots (class-of self)))))
+    (for-each (lambda (slot)
+		(if (slot-bound? self slot)
+		    (slot-set! clone slot
+			       (slot-ref self slot))))
+	      slots)
+    clone))
+
+(define-method deep-clone ((self <object>))
+  (let ((clone (%allocate-instance (class-of self)))
+	(slots (map (lambda (x) (if (pair? x) (car x) x)) 
+		    (class-slots (class-of self)))))
+    (for-each (lambda (slot)
+		(if (slot-bound? self slot)
+		    (slot-set! clone slot
+			       (let ((value (slot-ref self slot)))
+				 (if (instance? value)
+				     (deep-clone value)
+				     value)))))
+	      slots)
+    clone))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; method-body
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-method method-body ((self <method>))
+  (let* ((spec (map class-name (slot-ref self 'specializers)))
+	 (proc (procedure-body (slot-ref self 'procedure)))
+	 (args (cdadr proc))
+	 (body (cddr proc)))
+    (list* 'method (map list args spec) body)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; <Composite-metaclass> metaclass
+;;;; 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-class <Composite-metaclass> (<class>)
+  ())
+
+(define-method compute-get-n-set ((class <Composite-metaclass>) slot)
+  (if (memv (get-slot-allocation slot) '(:propagated :special))
+      (compute-propagated-get-n-set slot)
+      (next-method)))
+
+(define (compute-propagated-get-n-set s)
+  (let ((prop   	(or (get-keyword :propagate-to  (cdr s) #f)
+			    (get-keyword :propagate     (cdr s) #f)))
+	(s-name   	(car s))
+	(build-reader   (lambda (s default)
+			  (unless (pair? s) (set! s (list s default)))
+			  `(slot-ref (slot-ref o ',(car s)) ',(cadr s))))
+	(build-writer	(lambda (s default)
+			  (unless (pair? s) (set! s (list s default)))
+			  `(slot-set! (slot-ref o ',(car s)) ',(cadr s) v))))
+
+    (unless prop (error "Propagation not specified for slot ~s" s-name))
+    (unless (pair? prop) (error "Bad propagation list for slot ~s" s-name))
+
+    (list 
+       ;; The getter
+       (eval `(lambda (o) ,(build-reader (car prop) s-name)))
+       ;; The setter
+       (eval `(lambda (o v)
+		,@(map (lambda (item) (build-writer item s-name))
+		       prop))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Methods to compare objects
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-method object-eqv? (x y)
+  #f)
+
+(define-method object-equal? (x y)
+  #f)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Methods to display/write an object
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;; Write
+(define-method write-object (o file)
+  (format file "#[~A ~A]" (class-name (class-of o)) (address-of o)))
+
+(define-method write-object((self <class>) file)
+   (format file "#[~A ~A]" (class-name (class-of self)) 
+	   		   (class-name self)))
+
+(define-method write-object((self <generic>) file)
+  (format file "#[~A ~A]" (class-name (class-of self)) 
+	  		  (slot-ref self 'name)))
+
+;;; Display (do the same thing as write by default)
+(define-method display-object (o file) 
+  (write-object o file))
+
+;;; Tk-write-object is called when a STklos object is passed to a Tk-command.
+;;; By default, we do the same job as write; but if an object is a <Tk-widget>
+;;; we will pass it its Eid. The method for <Tk-widget> is defined elsewhere.
+(define-method Tk-write-object (o file)
+  (write-object o file))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Dylan Setters.
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define %syntax-set! 	set!)
+(define %syntax-define 	define)
+(define %dylan-setters	'initialized)
+
+(define-macro (setter var)
+  (let ((x (build-scheme-name `(setter ,var))))
+    `(if (symbol-bound? ',x)
+	 ,x
+	 (error "setter of ~s is undefined" ',var))))
+
+(define-macro (define var . val)
+  (when (null? val) (error "define: no value provided for ~A" var))
+  (if (and (pair? var) (eqv? (car var) 'setter))
+      `(%syntax-define ,(build-scheme-name var) ,@val)
+      `(%syntax-define ,var ,@val)))
+
+(define-macro (set! var val)
+  (if (list? var) 
+      `(,(build-scheme-name `(setter ,(car var))) ,@(cdr var) ,val)
+      `(%syntax-set! ,(build-scheme-name var) ,val)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; Backward compatibility
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define class-cpl class-precedence-list)
+
+(provide "stklos")
+)
diff --git a/Snow/Makefile b/Snow/Makefile
new file mode 120000
index 0000000..e92c0ec
--- /dev/null
+++ b/Snow/Makefile
@@ -0,0 +1 @@
+../Src/Makefile
\ No newline at end of file
diff --git a/Snow/address.c b/Snow/address.c
new file mode 120000
index 0000000..3648711
--- /dev/null
+++ b/Snow/address.c
@@ -0,0 +1 @@
+../Src/address.c
\ No newline at end of file
diff --git a/Snow/argv.c b/Snow/argv.c
new file mode 120000
index 0000000..c96e1c5
--- /dev/null
+++ b/Snow/argv.c
@@ -0,0 +1 @@
+../Src/argv.c
\ No newline at end of file
diff --git a/Snow/boolean.c b/Snow/boolean.c
new file mode 120000
index 0000000..6c312d2
--- /dev/null
+++ b/Snow/boolean.c
@@ -0,0 +1 @@
+../Src/boolean.c
\ No newline at end of file
diff --git a/Snow/char.c b/Snow/char.c
new file mode 120000
index 0000000..ca975bf
--- /dev/null
+++ b/Snow/char.c
@@ -0,0 +1 @@
+../Src/char.c
\ No newline at end of file
diff --git a/Snow/configure b/Snow/configure
new file mode 120000
index 0000000..5ffba42
--- /dev/null
+++ b/Snow/configure
@@ -0,0 +1 @@
+../Src/configure
\ No newline at end of file
diff --git a/Snow/configure.in b/Snow/configure.in
new file mode 120000
index 0000000..83b0c2b
--- /dev/null
+++ b/Snow/configure.in
@@ -0,0 +1 @@
+../Src/configure.in
\ No newline at end of file
diff --git a/Snow/cont.c b/Snow/cont.c
new file mode 120000
index 0000000..d0bdec0
--- /dev/null
+++ b/Snow/cont.c
@@ -0,0 +1 @@
+../Src/cont.c
\ No newline at end of file
diff --git a/Snow/dummy.c b/Snow/dummy.c
new file mode 120000
index 0000000..2227451
--- /dev/null
+++ b/Snow/dummy.c
@@ -0,0 +1 @@
+../Src/dummy.c
\ No newline at end of file
diff --git a/Snow/dump.c b/Snow/dump.c
new file mode 120000
index 0000000..939ef8e
--- /dev/null
+++ b/Snow/dump.c
@@ -0,0 +1 @@
+../Src/dump.c
\ No newline at end of file
diff --git a/Snow/dynload.c b/Snow/dynload.c
new file mode 120000
index 0000000..4d0259d
--- /dev/null
+++ b/Snow/dynload.c
@@ -0,0 +1 @@
+../Src/dynload.c
\ No newline at end of file
diff --git a/Snow/env.c b/Snow/env.c
new file mode 120000
index 0000000..35e2b84
--- /dev/null
+++ b/Snow/env.c
@@ -0,0 +1 @@
+../Src/env.c
\ No newline at end of file
diff --git a/Snow/error.c b/Snow/error.c
new file mode 120000
index 0000000..b7aafa0
--- /dev/null
+++ b/Snow/error.c
@@ -0,0 +1 @@
+../Src/error.c
\ No newline at end of file
diff --git a/Snow/eval.c b/Snow/eval.c
new file mode 120000
index 0000000..aee68d0
--- /dev/null
+++ b/Snow/eval.c
@@ -0,0 +1 @@
+../Src/eval.c
\ No newline at end of file
diff --git a/Snow/extend.c b/Snow/extend.c
new file mode 120000
index 0000000..cb40447
--- /dev/null
+++ b/Snow/extend.c
@@ -0,0 +1 @@
+../Src/extend.c
\ No newline at end of file
diff --git a/Snow/extend.h b/Snow/extend.h
new file mode 120000
index 0000000..cdda04e
--- /dev/null
+++ b/Snow/extend.h
@@ -0,0 +1 @@
+../Src/extend.h
\ No newline at end of file
diff --git a/Snow/gc.c b/Snow/gc.c
new file mode 120000
index 0000000..e4eba9c
--- /dev/null
+++ b/Snow/gc.c
@@ -0,0 +1 @@
+../Src/gc.c
\ No newline at end of file
diff --git a/Snow/gc.h b/Snow/gc.h
new file mode 120000
index 0000000..ff5a975
--- /dev/null
+++ b/Snow/gc.h
@@ -0,0 +1 @@
+../Src/gc.h
\ No newline at end of file
diff --git a/Snow/hash.c b/Snow/hash.c
new file mode 120000
index 0000000..9da7218
--- /dev/null
+++ b/Snow/hash.c
@@ -0,0 +1 @@
+../Extensions/hash.c
\ No newline at end of file
diff --git a/Snow/html.c b/Snow/html.c
new file mode 120000
index 0000000..8396e83
--- /dev/null
+++ b/Snow/html.c
@@ -0,0 +1 @@
+../Extensions/html.c
\ No newline at end of file
diff --git a/Snow/io.c b/Snow/io.c
new file mode 120000
index 0000000..ccfc963
--- /dev/null
+++ b/Snow/io.c
@@ -0,0 +1 @@
+../Src/io.c
\ No newline at end of file
diff --git a/Snow/keyword.c b/Snow/keyword.c
new file mode 120000
index 0000000..41504b9
--- /dev/null
+++ b/Snow/keyword.c
@@ -0,0 +1 @@
+../Src/keyword.c
\ No newline at end of file
diff --git a/Snow/list.c b/Snow/list.c
new file mode 120000
index 0000000..43a5e72
--- /dev/null
+++ b/Snow/list.c
@@ -0,0 +1 @@
+../Src/list.c
\ No newline at end of file
diff --git a/Snow/macros.c b/Snow/macros.c
new file mode 120000
index 0000000..64e0a3b
--- /dev/null
+++ b/Snow/macros.c
@@ -0,0 +1 @@
+../Src/macros.c
\ No newline at end of file
diff --git a/Snow/number.c b/Snow/number.c
new file mode 120000
index 0000000..186fd7e
--- /dev/null
+++ b/Snow/number.c
@@ -0,0 +1 @@
+../Src/number.c
\ No newline at end of file
diff --git a/Snow/pixmap.c b/Snow/pixmap.c
new file mode 120000
index 0000000..38fa787
--- /dev/null
+++ b/Snow/pixmap.c
@@ -0,0 +1 @@
+../Extensions/pixmap.c
\ No newline at end of file
diff --git a/Snow/port.c b/Snow/port.c
new file mode 120000
index 0000000..4083c87
--- /dev/null
+++ b/Snow/port.c
@@ -0,0 +1 @@
+../Src/port.c
\ No newline at end of file
diff --git a/Snow/posix.c b/Snow/posix.c
new file mode 120000
index 0000000..f7bc200
--- /dev/null
+++ b/Snow/posix.c
@@ -0,0 +1 @@
+../Extensions/posix.c
\ No newline at end of file
diff --git a/Snow/primitives.c b/Snow/primitives.c
new file mode 120000
index 0000000..ee9db57
--- /dev/null
+++ b/Snow/primitives.c
@@ -0,0 +1 @@
+../Src/primitives.c
\ No newline at end of file
diff --git a/Snow/print.c b/Snow/print.c
new file mode 120000
index 0000000..575419d
--- /dev/null
+++ b/Snow/print.c
@@ -0,0 +1 @@
+../Src/print.c
\ No newline at end of file
diff --git a/Snow/proc.c b/Snow/proc.c
new file mode 120000
index 0000000..e419161
--- /dev/null
+++ b/Snow/proc.c
@@ -0,0 +1 @@
+../Src/proc.c
\ No newline at end of file
diff --git a/Snow/process.c b/Snow/process.c
new file mode 120000
index 0000000..eb1f4cf
--- /dev/null
+++ b/Snow/process.c
@@ -0,0 +1 @@
+../Src/process.c
\ No newline at end of file
diff --git a/Snow/promise.c b/Snow/promise.c
new file mode 120000
index 0000000..91e75e7
--- /dev/null
+++ b/Snow/promise.c
@@ -0,0 +1 @@
+../Src/promise.c
\ No newline at end of file
diff --git a/Snow/read.c b/Snow/read.c
new file mode 120000
index 0000000..ca9129b
--- /dev/null
+++ b/Snow/read.c
@@ -0,0 +1 @@
+../Src/read.c
\ No newline at end of file
diff --git a/Snow/run-snow.in b/Snow/run-snow.in
new file mode 100644
index 0000000..a03ed29
--- /dev/null
+++ b/Snow/run-snow.in
@@ -0,0 +1,30 @@
+#!/bin/sh
+# Snow launcher
+
+# determine the kind of the machine which is running this script
+os=`uname -s`
+version=`uname -r`
+machine=`uname -m`
+
+case $os in
+  Linux*)
+	  case $version in
+            1.*) version=1.X;;
+	  esac
+	  case $machine in
+	    i*86) machine=ix86;;
+	  esac;;
+  SunOS*)
+	  case $machine in
+	    sun4*) machine=sun4;;
+	  esac
+esac
+id=$os-$version-$machine
+
+STK_LIBRARY=@libdir@
+export STK_LIBRARY
+
+exec $STK_LIBRARY/$id/snow-bin $*
+
+
+
diff --git a/Snow/signal.c b/Snow/signal.c
new file mode 120000
index 0000000..4d800a4
--- /dev/null
+++ b/Snow/signal.c
@@ -0,0 +1 @@
+../Src/signal.c
\ No newline at end of file
diff --git a/Snow/slib.c b/Snow/slib.c
new file mode 120000
index 0000000..34bd72b
--- /dev/null
+++ b/Snow/slib.c
@@ -0,0 +1 @@
+../Src/slib.c
\ No newline at end of file
diff --git a/Snow/socket.c b/Snow/socket.c
new file mode 120000
index 0000000..f836c94
--- /dev/null
+++ b/Snow/socket.c
@@ -0,0 +1 @@
+../Src/socket.c
\ No newline at end of file
diff --git a/Snow/sport.c b/Snow/sport.c
new file mode 120000
index 0000000..8beea76
--- /dev/null
+++ b/Snow/sport.c
@@ -0,0 +1 @@
+../Src/sport.c
\ No newline at end of file
diff --git a/Snow/sport.h b/Snow/sport.h
new file mode 120000
index 0000000..4c2749c
--- /dev/null
+++ b/Snow/sport.h
@@ -0,0 +1 @@
+../Src/sport.h
\ No newline at end of file
diff --git a/Snow/sregexp.c b/Snow/sregexp.c
new file mode 120000
index 0000000..3277264
--- /dev/null
+++ b/Snow/sregexp.c
@@ -0,0 +1 @@
+../Src/sregexp.c
\ No newline at end of file
diff --git a/Snow/stk.c b/Snow/stk.c
new file mode 120000
index 0000000..fadf7fb
--- /dev/null
+++ b/Snow/stk.c
@@ -0,0 +1 @@
+../Src/stk.c
\ No newline at end of file
diff --git a/Snow/stk.h b/Snow/stk.h
new file mode 120000
index 0000000..1cd64fe
--- /dev/null
+++ b/Snow/stk.h
@@ -0,0 +1 @@
+../Src/stk.h
\ No newline at end of file
diff --git a/Snow/stklos.c b/Snow/stklos.c
new file mode 120000
index 0000000..83c86a2
--- /dev/null
+++ b/Snow/stklos.c
@@ -0,0 +1 @@
+../Src/stklos.c
\ No newline at end of file
diff --git a/Snow/stklos.h b/Snow/stklos.h
new file mode 120000
index 0000000..d63c626
--- /dev/null
+++ b/Snow/stklos.h
@@ -0,0 +1 @@
+../Src/stklos.h
\ No newline at end of file
diff --git a/Snow/str.c b/Snow/str.c
new file mode 120000
index 0000000..141716a
--- /dev/null
+++ b/Snow/str.c
@@ -0,0 +1 @@
+../Src/str.c
\ No newline at end of file
diff --git a/Snow/symbol.c b/Snow/symbol.c
new file mode 120000
index 0000000..9a725de
--- /dev/null
+++ b/Snow/symbol.c
@@ -0,0 +1 @@
+../Src/symbol.c
\ No newline at end of file
diff --git a/Snow/syntax.c b/Snow/syntax.c
new file mode 120000
index 0000000..6914555
--- /dev/null
+++ b/Snow/syntax.c
@@ -0,0 +1 @@
+../Src/syntax.c
\ No newline at end of file
diff --git a/Snow/tcl-lib.c b/Snow/tcl-lib.c
new file mode 120000
index 0000000..fbe2542
--- /dev/null
+++ b/Snow/tcl-lib.c
@@ -0,0 +1 @@
+../Src/tcl-lib.c
\ No newline at end of file
diff --git a/Snow/tcl-util.c b/Snow/tcl-util.c
new file mode 120000
index 0000000..66f6a6c
--- /dev/null
+++ b/Snow/tcl-util.c
@@ -0,0 +1 @@
+../Src/tcl-util.c
\ No newline at end of file
diff --git a/Snow/test-snow b/Snow/test-snow
new file mode 100755
index 0000000..067fc41
--- /dev/null
+++ b/Snow/test-snow
@@ -0,0 +1,11 @@
+#!/bin/sh
+#
+# A simple shell script to test snow without installing it
+#
+
+
+STK_LIBRARY=../Lib 
+STK_LOAD_PATH=$STK_LIBRARY:../STklos:../Extensions
+
+export STK_LIBRARY STK_LOAD_PATH
+exec ../Snow/snow $*
diff --git a/Snow/toplevel.c b/Snow/toplevel.c
new file mode 120000
index 0000000..17241f8
--- /dev/null
+++ b/Snow/toplevel.c
@@ -0,0 +1 @@
+../Src/toplevel.c
\ No newline at end of file
diff --git a/Snow/trace.c b/Snow/trace.c
new file mode 120000
index 0000000..61d4a4e
--- /dev/null
+++ b/Snow/trace.c
@@ -0,0 +1 @@
+../Src/trace.c
\ No newline at end of file
diff --git a/Snow/unix.c b/Snow/unix.c
new file mode 120000
index 0000000..ea52083
--- /dev/null
+++ b/Snow/unix.c
@@ -0,0 +1 @@
+../Src/unix.c
\ No newline at end of file
diff --git a/Snow/userinit.c b/Snow/userinit.c
new file mode 120000
index 0000000..77c6dc3
--- /dev/null
+++ b/Snow/userinit.c
@@ -0,0 +1 @@
+../Src/userinit.c
\ No newline at end of file
diff --git a/Snow/vector.c b/Snow/vector.c
new file mode 120000
index 0000000..c65972c
--- /dev/null
+++ b/Snow/vector.c
@@ -0,0 +1 @@
+../Src/vector.c
\ No newline at end of file
diff --git a/Src/.gdb_history b/Src/.gdb_history
new file mode 100644
index 0000000..cb299e8
--- /dev/null
+++ b/Src/.gdb_history
@@ -0,0 +1,256 @@
+    255       longjmp(*Top_jmp_buf, JMP_RESTORE);
+    256     }
+    257     else {
+    258       STk_print(x, STk_curr_oport, WRT_MODE);
+    259       Putc('\n', STk_stdout);
+    260     }
+    261   }
+    262 }
+    263 
+    264 static void repl_driver(int argc, char **argv)
+    265 {
+    266   static int k;
+    267   static char **new_argv;
+    268   
+    269   new_argv = STk_process_argc_argv(argc, argv);
+    270 
+    271   if (STk_arg_image) {
+    272     STk_save_unix_args_and_environment(argc, argv);
+    273     STk_restore_image(STk_arg_image);
+    274   }
+    275   else {
+    276     /* Normal initialisation */
+    277     STk_reset_eval_stack();
+    278   }
+    279 
+    280   /* Point where we come back on errors, image restoration, ... */
+    281   k = setjmp(*Top_jmp_buf);
+    282   
+    283   Error_context	     = ERR_OK;	
+    284   STk_sigint_counter = 0;
+    285   STk_control_C	     = 0;
+    286 
+    287   switch (k) {
+    288     case 0:		init_interpreter();
+    289 			STk_initialize_scheme_args(new_argv);
+    290 			load_init_file();
+    291 #ifdef USE_TK
+    292 #  ifdef WIN32
+    293 			if (!STk_arg_no_tk)
+    294 			  Tk_main(STk_arg_sync,
+    295 				  STk_arg_name,
+    296 				  STk_arg_file,
+    297 				  "localhost:0",
+    298 				  STk_arg_geometry);
+    299 #  else
+    300 			if (!STk_arg_Xdisplay) 
+    301 			  STk_arg_Xdisplay =  getenv("DISPLAY");
+    302 			if (!STk_arg_no_tk && STk_arg_Xdisplay)
+    303 			  Tk_main(STk_arg_sync,
+    304 				  STk_arg_name,
+    305 				  STk_arg_file,
+    306 				  STk_arg_Xdisplay,
+    307 				  STk_arg_geometry);
+    308 #  endif
+    309 #endif
+    310 			finish_initialisation();
+    311 			break;
+    312     case JMP_RESTORE:	STk_restore_unix_args_and_environment(&argc, &argv);
+    313 			/* Process another time args since we have lost them ! */
+    314 			new_argv = STk_process_argc_argv(argc, argv);
+    315 			STk_initialize_scheme_args(new_argv);
+    316 #ifdef USE_TK
+    317 			if (!STk_arg_no_tk && (STk_arg_Xdisplay||getenv("DISPLAY")))
+    318 			  Tk_main(STk_arg_sync, 
+    319 				  STk_arg_name, 
+    320 				  STk_arg_file, 
+    321 				  STk_arg_Xdisplay,
+    322 				  STk_arg_geometry);
+    323 #endif
+    324 			finish_initialisation();
+    325 			break;
+    326     case JMP_THROW:
+    327     case JMP_ERROR:	break;
+    328   }
+    329 
+    330   repl_loop();
+    331   if (STk_interactivep) fprintf(STk_stderr, "Bye.\n");
+    332   STk_quit_interpreter(UNBOUND);
+    333 }
+    334 
+    335 /******************************************************************************
+    336  *
+    337  * Toplevel
+    338  * 
+    339  ******************************************************************************/
+    340 
+    341 void STk_toplevel(int argc, char **argv)
+    342 {
+    343   SCM stack_start; /* Unused variable. Its the first stack allocated variable */
+    344 
+run -visual staticgray
+break Tk_main
+run -visual staticgray
+next
+step
+next
+break tkFrame.c:297
+cont
+print screenName
+next
+print className
+next
+print visualName
+next
+step
+graph display dictPtr
+next
+print visInfoList
+next
+print new
+next
+run
+up
+down
+run
+cont
+next
+break main
+break tclUnixNotfy.c:248
+cont
+quit
+run -f T
+up
+run -f T
+1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
+run -f T
+qqqqq
+break STk_read_line
+break apply_read_closure 
+run -f T
+quit
+run
+run -f T
+break STk_read_line
+break apply_read_closure 
+run -f T
+graph display port
+next
+step
+next
+step
+next
+run
+all of the
+    517 	 * event sources to give them a chance to setup for the wait.
+    518 	 */
+    519 
+    520 	blockTimeSet = 0;
+    521 	for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
+    522 		sourcePtr = sourcePtr->nextPtr) {
+    523 	    (*sourcePtr->setupProc)(sourcePtr->clientData, flags);
+    524 	}
+    525 	if ((flags & TCL_DONT_WAIT) ||
+    526 		((flags & TCL_IDLE_EVENTS) && TclIdlePending())) {
+    527 	    /*
+    528 	     * Don't block:  there are idle events waiting, or we don't
+    529 	     * care about idle events anyway, or the caller asked us not
+    530 	     * to block.
+    531 	     */
+    532 
+    533 	    blockTime.sec = 0;
+    534 	    blockTime.usec = 0;
+    535 	    timePtr = &blockTime;
+    536 	} else if (blockTimeSet) {
+    537 	    timePtr = &blockTime;
+    538 	} else {
+    539 	    timePtr = NULL;
+    540 	}
+    541 
+    542 	/*
+    543 	 * Wait until an event occurs or the timer expires.
+    544 	 */
+    545 
+    546 	if (Tcl_WaitForEvent(timePtr) == TCL_ERROR) {
+    547 	    return 0;
+    548 	}
+    549 
+    550 	/*
+    551 	 * Give each of the event sources a chance to queue events,
+    552 	 * then call ServiceEvent and give it another chance to
+    553 	 * service events.
+    554 	 */
+    555 
+    556 	for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
+    557 		sourcePtr = sourcePtr->nextPtr) {
+    558 	    (*sourcePtr->checkProc)(sourcePtr->clientData, flags);
+    559 	}
+un -f T
+run -f T
+next
+step
+next
+cont
+quit
+run -f T < T.stk
+up
+quit
+run
+break finish_initialisation
+run
+next
+break toplevel.c:201
+run -f T < T.stk
+cont
+step
+next
+up
+down
+break io.c:74
+run -f T < T.stk
+disable 1
+disable 2
+quit
+run
+quit
+break Tcl_DeleteInterp
+run
+bt
+next
+step
+next
+cont
+next
+n
+s
+step
+next
+quit
+break main
+break Tk_DestroyWindow
+run
+disable 1
+cont
+next
+cont
+next
+cont
+step
+stepi
+next
+run
+info line 'Tk_DestroyWindow'
+break tkWindow.c:1145
+cont
+disable 2
+cont
+next
+step
+next
+tbreak tclHash.c:190
+cont
+next
+run
+cont
+quit
+
diff --git a/Src/Makefile b/Src/Makefile
new file mode 100644
index 0000000..5134e39
--- /dev/null
+++ b/Src/Makefile
@@ -0,0 +1,147 @@
+# Generated automatically from Makefile.in by configure.
+#
+# Makefile for STk
+# 
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: ??-Sep-1993 ??:??
+# Last file update:  6-Sep-1996 18:06
+#
+
+include ../config.make
+
+CFLAGS		= $(STKCFLAGS) $(VERS-OPT) $(MACHINE) $(DYNLOAD) $(TK) $(DFLGS) \
+		  $(OPTS)  -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SIGACTION=1 -DHAVE_SELECT=1 -DSTDC_HEADERS=1  \
+		  -I. -I../Tk/generic -I../Tk/$(FLAVOR) -I../Tcl -I../Mp \
+		   $(XINCLUDES)
+#
+# Add here your object ('.o') files
+#
+USER_OBJ	= 
+
+#
+# Scheme interpreter objects
+#
+SOBJ 		= stk.o slib.o primitives.o boolean.o char.o str.o vector.o\
+	  	  gc.o port.o  number.o list.o symbol.o\
+		  read.o print.o eval.o env.o macros.o syntax.o \
+		  cont.o io.o sport.o promise.o error.o proc.o keyword.o \
+		  dump.o address.o dynload.o unix.o toplevel.o argv.o \
+		  extend.o signal.o trace.o dummy.o \
+		  stklos.o
+
+TCLOBJ		= tcl-lib.o tcl-util.o 
+TKOBJ		= tk-main.o tk-glue.o tk-util.o 
+
+TKLIB		= ../Tk/$(FLAVOR)/libtk.a
+TCLLIB		= ../Tcl/libtcl.a
+EVTCLLIB	= ../Tcl/libevtcl.a
+MPLIB		= ../Mp/$(MP).a
+LIBS    	=  -ldl -lm $(LIB_DLD) $(LIB_MALLOC)
+
+ALLIBS	 = $(MPLIB) $(TKLIB) $(TCLLIB) $(EVTCLLIB)
+SALLLIBS = $(MPLIB) $(TCLLIB) 
+
+default: 
+	@echo "You must specify 'STk' or 'Snow'"
+
+STk:
+	make stk TK="-DUSE_TK"
+
+Snow:
+	make snow TK="-DNO_TK"
+	
+dev: 
+	make dev-bin TK="-DUSE_TK"
+
+tags:
+	etags *.[ch] ../Tcl/*.[ch] ../Tk/*.[ch]
+
+stk: 	userinit.o libstk.a $(ALLIBS)
+	/bin/rm -f stk
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o stk userinit.o libstk.a $(ALLIBS) \
+	      $(XLIBSW) $(LIBS)
+
+snow: 	userinit.o libsnow.a $(SALLIBS)
+	/bin/rm -f snow
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o snow userinit.o libsnow.a $(SALLLIBS)\
+	       $(LIBS) 
+
+dev-bin: userinit.o $(SOBJ) $(USEROBJ) $(TCLOBJ) $(TKOBJ) $(EOBJ) $(ETKOBJ) $(SALLIBS)
+	/bin/rm -f stk
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o stk userinit.o $(SOBJ) $(TCLOBJ) \
+	      $(TKOBJ) $(EOBJ) $(ETKOBJ) $(ALLIBS) $(XLIBSW) $(LIBS)
+
+libstk.a: $(SOBJ) $(TCLOBJ) $(TCLOBJ) $(TKOBJ) $(ETKOBJ) $(EOBJ)
+	/bin/rm -f libstk.a
+	ar rc libstk.a $(SOBJ) $(TKOBJ) $(TCLOBJ) $(ETKOBJ) $(EOBJ)
+	$(RANLIB) libstk.a
+
+libsnow.a: $(SOBJ) $(TCLOBJ) $(EOBJ)
+	/bin/rm -f libsnow.a
+	ar rc libsnow.a $(SOBJ) $(TCLOBJ) $(EOBJ)
+	$(RANLIB) libsnow.a
+
+etags:
+	etags *.[ch] ../Tcl/*.[ch] ../Tk/generic/*.[ch] ../Tk/unix/*.[ch]
+
+$(MPLIB):
+	(cd ../Mp; make $(MP).a)
+
+$(TKLIB): 
+	(cd ../Tk; make $(TKLIB))
+
+$(TCLLIB):
+	(cd ../Tk; make $(TKLIB))
+
+install:
+	@echo "You must specify 'install.stk' or "install.snow'"
+
+install.stk: stk
+	-if [ ! -d $(bindir) ] ; then mkdir -p $(bindir); fi
+	/bin/rm -f $(bindir)/stk $(bindir)/stk-$(VERSION) 
+	ln -s $(execdir)/stk $(bindir)/stk-$(VERSION) 
+	ln -s $(execdir)/stk $(bindir)/stk 
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) stk $(execdir)
+	$(STRIP) $(execdir)/stk
+	chmod 0755 $(bindir)/stk-$(VERSION) $(bindir)/stk $(execdir)/stk
+
+install.stk.libs:
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) libstk.a $(execdir)
+	$(RANLIB) $(execdir)/libstk.a
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) stk.h $(incdir)
+
+install.snow: snow
+	-if [ ! -d $(bindir) ] ; then mkdir -p $(bindir); fi
+	/bin/rm -f $(bindir)/snow-$(VERSION) $(bindir)/snow
+	ln -s $(execdir)/snow $(bindir)/snow-$(VERSION) 
+	ln -s $(execdir)/snow $(bindir)/snow 
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) snow $(execdir)
+	$(STRIP) $(execdir)/snow
+	chmod 0755 $(bindir)/snow-$(VERSION) $(bindir)/snow $(execdir)/snow
+
+install.snow.libs:
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) libsnow.a $(execdir)
+	$(RANLIB) $(execdir)/libsnow.a	
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) stk.h $(incdir)
+
+
+clean: 
+	@/bin/rm -f  core *.o core config.* \
+		     stk  libstk.a  stk  run-stk \
+		     snow libsnow.a snow run-snow
diff --git a/Src/Makefile.in b/Src/Makefile.in
new file mode 100644
index 0000000..f4e8596
--- /dev/null
+++ b/Src/Makefile.in
@@ -0,0 +1,146 @@
+#
+# Makefile for STk
+# 
+# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+# 
+# Permission to use, copy, and/or distribute this software and its
+# documentation for any purpose and without fee is hereby granted, provided
+# that both the above copyright notice and this permission notice appear in
+# all copies and derived works.  Fees for distribution or use of this
+# software or derived works may only be charged with express written
+# permission of the copyright holder.  
+# This software is provided ``as is'' without express or implied warranty.
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: ??-Sep-1993 ??:??
+# Last file update:  6-Sep-1996 18:06
+#
+
+include ../config.make
+
+CFLAGS		= $(STKCFLAGS) $(VERS-OPT) $(MACHINE) $(DYNLOAD) $(TK) $(DFLGS) \
+		  $(OPTS) @DEFS@ \
+		  -I. -I../Tk/generic -I../Tk/$(FLAVOR) -I../Tcl -I../Mp \
+		   $(XINCLUDES)
+#
+# Add here your object ('.o') files
+#
+USER_OBJ	= 
+
+#
+# Scheme interpreter objects
+#
+SOBJ 		= stk.o slib.o primitives.o boolean.o char.o str.o vector.o\
+	  	  gc.o port.o  number.o list.o symbol.o\
+		  read.o print.o eval.o env.o macros.o syntax.o \
+		  cont.o io.o sport.o promise.o error.o proc.o keyword.o \
+		  dump.o address.o dynload.o unix.o toplevel.o argv.o \
+		  extend.o signal.o trace.o dummy.o \
+		  stklos.o
+
+TCLOBJ		= tcl-lib.o tcl-util.o 
+TKOBJ		= tk-main.o tk-glue.o tk-util.o 
+
+TKLIB		= ../Tk/$(FLAVOR)/libtk.a
+TCLLIB		= ../Tcl/libtcl.a
+EVTCLLIB	= ../Tcl/libevtcl.a
+MPLIB		= ../Mp/$(MP).a
+LIBS    	= @LIBS@ $(LIB_DLD) $(LIB_MALLOC)
+
+ALLIBS	 = $(MPLIB) $(TKLIB) $(TCLLIB) $(EVTCLLIB)
+SALLLIBS = $(MPLIB) $(TCLLIB) 
+
+default: 
+	@echo "You must specify 'STk' or 'Snow'"
+
+STk:
+	make stk TK="-DUSE_TK"
+
+Snow:
+	make snow TK="-DNO_TK"
+	
+dev: 
+	make dev-bin TK="-DUSE_TK"
+
+tags:
+	etags *.[ch] ../Tcl/*.[ch] ../Tk/*.[ch]
+
+stk: 	userinit.o libstk.a $(ALLIBS)
+	/bin/rm -f stk
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o stk userinit.o libstk.a $(ALLIBS) \
+	      $(XLIBSW) $(LIBS)
+
+snow: 	userinit.o libsnow.a $(SALLIBS)
+	/bin/rm -f snow
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o snow userinit.o libsnow.a $(SALLLIBS)\
+	      @SNOW_LIBS@ $(LIBS) 
+
+dev-bin: userinit.o $(SOBJ) $(USEROBJ) $(TCLOBJ) $(TKOBJ) $(EOBJ) $(ETKOBJ) $(SALLIBS)
+	/bin/rm -f stk
+	$(CC) $(STKLDFLAGS) $(CFLAGS) -o stk userinit.o $(SOBJ) $(TCLOBJ) \
+	      $(TKOBJ) $(EOBJ) $(ETKOBJ) $(ALLIBS) $(XLIBSW) $(LIBS)
+
+libstk.a: $(SOBJ) $(TCLOBJ) $(TCLOBJ) $(TKOBJ) $(ETKOBJ) $(EOBJ)
+	/bin/rm -f libstk.a
+	ar rc libstk.a $(SOBJ) $(TKOBJ) $(TCLOBJ) $(ETKOBJ) $(EOBJ)
+	$(RANLIB) libstk.a
+
+libsnow.a: $(SOBJ) $(TCLOBJ) $(EOBJ)
+	/bin/rm -f libsnow.a
+	ar rc libsnow.a $(SOBJ) $(TCLOBJ) $(EOBJ)
+	$(RANLIB) libsnow.a
+
+etags:
+	etags *.[ch] ../Tcl/*.[ch] ../Tk/generic/*.[ch] ../Tk/unix/*.[ch]
+
+$(MPLIB):
+	(cd ../Mp; make $(MP).a)
+
+$(TKLIB): 
+	(cd ../Tk; make $(TKLIB))
+
+$(TCLLIB):
+	(cd ../Tk; make $(TKLIB))
+
+install:
+	@echo "You must specify 'install.stk' or "install.snow'"
+
+install.stk: stk
+	-if [ ! -d $(bindir) ] ; then mkdir -p $(bindir); fi
+	/bin/rm -f $(bindir)/stk $(bindir)/stk-$(VERSION) 
+	ln -s $(execdir)/stk $(bindir)/stk-$(VERSION) 
+	ln -s $(execdir)/stk $(bindir)/stk 
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) stk $(execdir)
+	$(STRIP) $(execdir)/stk
+	chmod 0755 $(bindir)/stk-$(VERSION) $(bindir)/stk $(execdir)/stk
+
+install.stk.libs:
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) libstk.a $(execdir)
+	$(RANLIB) $(execdir)/libstk.a
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) stk.h $(incdir)
+
+install.snow: snow
+	-if [ ! -d $(bindir) ] ; then mkdir -p $(bindir); fi
+	/bin/rm -f $(bindir)/snow-$(VERSION) $(bindir)/snow
+	ln -s $(execdir)/snow $(bindir)/snow-$(VERSION) 
+	ln -s $(execdir)/snow $(bindir)/snow 
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) snow $(execdir)
+	$(STRIP) $(execdir)/snow
+	chmod 0755 $(bindir)/snow-$(VERSION) $(bindir)/snow $(execdir)/snow
+
+install.snow.libs:
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
+	$(CP) libsnow.a $(execdir)
+	$(RANLIB) $(execdir)/libsnow.a	
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) stk.h $(incdir)
+
+
+clean: 
+	@/bin/rm -f  core *.o core config.* \
+		     stk  libstk.a  stk  run-stk \
+		     snow libsnow.a snow run-snow
diff --git a/Src/address.c b/Src/address.c
new file mode 100644
index 0000000..89cf2e9
--- /dev/null
+++ b/Src/address.c
@@ -0,0 +1,55 @@
+/*
+ *
+ *  a d d r e s s . c			-- Addresses management
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 16-Mar-1994 10:34
+ * Last file update: 22-Feb-1996 23:05
+ *
+ *
+ */
+
+#include "stk.h"
+#include "gc.h"
+
+SCM STk_address2object(char *buffer)
+{
+  SCM address;
+
+  sscanf(buffer, "%lx", &address);
+  if (!STk_valid_address(address)) 
+    Err("bad address", STk_makestring(buffer));
+  return address;
+}
+
+
+PRIMITIVE STk_address_of(SCM obj)
+{
+  SCM z;
+
+  NEWCELL(z, tc_address);
+  z->storage_as.env.data = obj;
+
+  return z;
+}
+
+PRIMITIVE STk_addressp(SCM address)
+{
+  return TYPEP(address, tc_address)? Truth: Ntruth;
+}
diff --git a/Src/argv.c b/Src/argv.c
new file mode 100644
index 0000000..012fa0a
--- /dev/null
+++ b/Src/argv.c
@@ -0,0 +1,315 @@
+/*
+ *
+ * a r g v . c			-- Argc/Argv management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 30-Aug-1994 15:38
+ * Last file update: 21-Sep-1996 22:38
+ */
+
+#include "stk.h"
+
+#ifdef WIN32
+#include <process.h>
+#include <io.h>
+#include <stdlib.h>
+#endif
+
+/* Previous versions of Stk use the TkArgv mechanism for managing argc/argv.
+ * Here is an ad hoc version for argc/argv hich is simpler than the original
+ * one and which can be used when NO_TK is defined
+ */
+
+#ifdef USE_TK
+char *STk_arg_Xdisplay 	  = NULL;
+char *STk_arg_geometry 	  = NULL;
+char *STk_arg_name 	  = NULL;
+char *STk_arg_visual	  = NULL;
+int   STk_arg_colormap	  = 0;
+int   STk_arg_sync	  = 0;
+int   STk_arg_no_tk	  = 0;
+#endif
+char *STk_arg_file	  = NULL;
+char *STk_arg_load	  = NULL;
+char *STk_arg_image	  = NULL;
+char *STk_arg_cells	  = NULL;
+int   STk_arg_interactive = 0;
+
+static struct arguments {
+  char *key;
+  char **flag;
+  char need_argument;
+  char *init;
+  char *help;
+} Table[] = {
+#ifdef USE_TK
+  {"-geometry",	   &STk_arg_geometry,		   1, NULL,
+		   "Initial geometry for window"},
+  {"-display",	   &STk_arg_Xdisplay,		   1, NULL,
+		   "Display to use"},
+  {"-new-colormap",(char **) &STk_arg_colormap,	   0, (char *) 0,
+   		   "Use a private colormap"},
+  {"-name",	   &STk_arg_name,		   1, NULL,
+		   "\tName to use for application"},
+  {"-sync",	   (char **) &STk_arg_sync,	   0, (char *) 0,
+		   "\tUse synchronous mode for display server"},
+  {"-visual", 	   &STk_arg_visual,		   1, NULL,
+   		   "Visual for main window"},
+  {"-no-tk",	   (char **) &STk_arg_no_tk,	   0, (char *) 0,
+		   "\tDon't initialize Tk"},
+#endif
+  {"-file",	   &STk_arg_file,		   1,  NULL,
+		   "\tFile from which to read commands"},
+  {"-load",	   &STk_arg_load,		   1,  NULL,
+		   "\tFile to load after all the initializations are done"},
+  {"-cells",	   &STk_arg_cells,		   1, (char *) 0L,
+		   "\tDefault size for heap"},
+  {"-image",	   &STk_arg_image,		   1,  NULL,
+		   "\tUse  previously created image"},
+  {"-interactive", (char **) &STk_arg_interactive, 0, (char *) 0,
+		   "Interactive mode"},
+  {"-help",	   NULL,			   0,  NULL,
+		   "\tPrint summary of command-line options and abort"},
+  {"", NULL, 0, NULL, ""}};
+
+static void usage(void)
+{
+  struct arguments *p;
+  
+  for (p = Table; *(p->key); p++) 
+    fprintf(STk_stderr, "%s\t%s\n", p->key, p->help);
+  exit(1);
+}
+
+char **STk_process_argc_argv(int argc, char **argv)
+{
+  struct arguments *p;
+  char **new_argv;
+  int i;
+  
+  /* Reset arguments to their default value */
+  for (p = Table; *(p->key); p++) 
+    if (p->flag)
+      *(p->flag) = p->init;
+
+  /* Set the program name */
+  STk_whence(*argv, STk_Argv0);
+
+  /* Option analysis */
+  while (--argc) {
+    char *arg  = *++argv;
+    int found  = FALSE;
+
+    if (!*arg) break;
+    
+    if (strcmp(arg, "--") == 0) { /* Special delimiter */
+      argv += 1;
+      argc -= 1;
+      break;
+    }
+    /* Try to find the option in table */
+    for (p = Table; *(p->key); p++) {
+      if (strlen(arg) >= 2) {
+	if  (strstr(p->key, arg)== p->key) {
+	  found = TRUE;
+	
+	  if (p->need_argument) {
+	    argc -= 1;
+	    argv += 1;
+	    
+	    if (*argv) 
+	      *(p->flag) = *argv;
+	    else {
+	      fprintf(STk_stderr,
+		      "\"%s\"  option requires an additional argument\n", 
+		      p->key);
+	      exit(1);
+	    }
+	  }
+	  else
+	    if (p->flag)
+	      *(p->flag) = (char *) TRUE;
+	    else
+	       usage();
+	}
+      }
+    }
+    
+    if (!found) break;
+  }
+  
+  /* Option have been analysed. Parse program arguments */
+  new_argv = (char**) must_malloc((argc + 1)  * sizeof(char*));
+
+  for (i = 0; argc; argc--) {
+    new_argv[i++] = *argv++;
+  }
+  new_argv[i] = NULL;
+  return new_argv;
+}
+
+/******************************************************************************
+ *
+ * Unix environment saving
+ *
+ * 	The two following function permit to save/restore the argc/argv/envp
+ * in a file. They are used upon image restauration.
+ *
+ ******************************************************************************/
+void STk_save_unix_args_and_environment(int argc, char **argv)
+{
+  FILE *f;
+  char **env;
+  char filename[50];
+  extern char **environ;
+
+  /* Open a file in which we will save argc/argv/envp */
+  sprintf(filename, "/usr/tmp/STktmp%d", getpid());
+  if ((f = fopen(filename, "w")) == NULL) {
+    STk_panic("Cannot save environment in %s.\n ABORT.\n", filename);
+    exit(1);
+  }
+
+  /* print argc */
+  fprintf(f, "%d\n", argc);
+
+  /* print argv */
+  for ( ; argc; argc-=1, argv+=1) {
+    fprintf(f, "%d %s\n", strlen(*argv), *argv);
+  }
+
+  /* print environment */
+  for (env=environ; *env; env++) {};
+  fprintf(f, "%d\n", env-environ);
+
+  for (env=environ; *env; env++) {
+    fprintf(f, "%d %s\n", strlen(*env), *env);
+  }
+
+  /* Close file */
+  fclose(f);
+}
+
+void STk_restore_unix_args_and_environment(int *argc, char ***argv)
+{
+  FILE *f;
+  int i, l, Argc, env_len;
+  char **Argv, **Env;
+  char filename[50];
+  extern char **environ;
+
+  /* Open a file in which we have saved argc/argv/envp */
+  sprintf(filename, "/usr/tmp/STktmp%d", getpid());
+  if ((f = fopen(filename, "r")) == NULL) {
+    STk_panic("Cannot re-open environment in %s.\n ABORT.\n", filename);
+    exit(1);
+  }
+
+  /* Read argc */
+  fscanf(f, "%d", &Argc); getc(f);
+
+  /* Read argv */
+  Argv = must_malloc((Argc+1) * sizeof(char *));
+
+  for (i=0; i<Argc; i++) {
+    fscanf(f, "%d", &l); getc(f);
+    Argv[i] = must_malloc(l+1);
+    fread(Argv[i], 1, l, f);
+    Argv[i][l] = '\0';
+  }
+  Argv[Argc] = NULL;
+
+  /* Read environment */
+  fscanf(f, "%d", &env_len); getc(f);
+  Env = must_malloc((env_len+1) * sizeof(char *));
+  for (i=0; i<env_len; i++) {
+    fscanf(f, "%d", &l); getc(f);
+    Env[i] = must_malloc(l+1);
+    fread(Env[i], 1, l, f);
+    Env[i][l] = '\0';
+  }
+  Env[i]= NULL;
+
+  /* Save read values in global variables */
+  *argc   = Argc;
+  *argv   = Argv;
+  environ = Env;
+  
+  /* close & delete temporary file */
+  fclose(f);
+  unlink(filename);
+}
+
+
+void STk_initialize_scheme_args(char **argv)
+{
+  SCM l;
+
+  for (l = NIL; *argv; argv++)
+    l = Cons(STk_makestring(*argv), l);
+  
+  VCELL(Intern(ARGV))      = Reverse(l);
+  VCELL(Intern(PROG_NAME)) = STk_makestring(STk_Argv0);
+}
+
+#ifdef WIN32
+#include <dos.h>
+
+char **STk_Win32_make_argc_argv(char *lpszCmdLine, int *argc)
+{
+  int size, i, code;
+  char **argv, **argvlist, *p, *tmp, *prog= "STk.exe";
+
+  /*
+   * First get an upper bound on the size of the argv array by counting the
+   * number of whitespace characters in the string.
+   */
+  for (size=1, p=lpszCmdLine; *p != '\0'; p++) {
+    if (isspace(UCHAR(*p))) size++;
+  }
+  size+=2;		/* Leave space for program name final NULL pointer. */
+  argvlist = (char **) ckalloc((unsigned) (size * sizeof(char *)));
+  argv = argvlist;
+
+  p = getenv("STK_LIBRARY");
+  if (p == NULL) 
+    panic("You must set the STK_LIBRARY variable");
+  tmp = must_malloc(strlen(p) + strlen(prog) + 2);
+  sprintf(tmp, "%s/%s", p, prog);
+  argv[0] = tmp;    		/* FIXME */
+
+  /*
+   * Split the command line into words, and store pointers to the start of
+   * each word into the argv array.  Skips leading whitespace on each word.
+   */
+
+  for (i=1, p=lpszCmdLine; *p != '\0'; i++) {
+    while (isspace(UCHAR(*p))) p++;
+    if (*p == '\0') break;
+    
+    argv[i] = p;
+    while (*p != '\0' && !isspace(UCHAR(*p))) 
+      p++;
+    if (*p) *p++ = '\0';
+  }
+  argv[i] = NULL;
+  *argc = i;
+  
+  return argv;
+}
+#endif
diff --git a/Src/boolean.c b/Src/boolean.c
new file mode 100644
index 0000000..3a1c9a9
--- /dev/null
+++ b/Src/boolean.c
@@ -0,0 +1,121 @@
+/*
+ *
+ * b o o l e a n . c			-- Booleans and Equivalence predicates
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 23-Oct-1993 21:37
+ * Last file update: 19-Apr-1996 23:13
+ */
+
+#include "stk.h"
+#include "extend.h"
+
+PRIMITIVE STk_not(SCM x)
+{
+  return EQ(x, Ntruth) ? Truth : Ntruth;
+}
+
+PRIMITIVE STk_booleanp(SCM x)
+{
+  return BOOLEANP(x) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_eq(SCM x,SCM y)
+{
+  return EQ(x,y) ? Truth : Ntruth;
+}
+
+PRIMITIVE STk_eqv(SCM x, SCM y)
+{
+  if (EQ(x,y)) return(Truth);
+ 
+  switch (TYPE(x)) {
+    case tc_symbol: if (SYMBOLP(y) && strcmp(PNAME(x), PNAME(y)) == 0)
+      		      return Truth;
+    		    break;
+    case tc_integer:
+    case tc_flonum:
+    case tc_bignum: if (NUMBERP(y)) {
+      		      if ((EXACTP(x) && FLONUMP(y)) || (FLONUMP(x) && EXACTP(y))) 
+			return Ntruth;
+		      return (STk_equal_numbers(x,  y)) ? Truth : Ntruth;
+    		    }
+    		    break;
+#ifndef COMPACT_SMALL_CST
+    case tc_char:   if (CHARP(y) && CHAR(x) == CHAR(y)) return Truth;
+		    break;
+#endif		      
+    case tc_keyword: if (KEYWORDP(y) && strcmp(KEYVAL(x), KEYVAL(y)) == 0)
+      		     return Truth;
+    		     break;
+#ifdef USE_STKLOS
+    case tc_instance: {
+      			SCM fct = VCELL(STk_intern("object-eqv?"));
+			/* Test for UNBOUND, cause gf are not defined during boot */
+			return (fct == UNBOUND) ? Ntruth : Apply(fct, LIST2(x, y));
+    		      }
+#endif
+    default: 	     if (EXTENDEDP(x) && EXTENDEDP(y) && TYPE(x) == TYPE(y)) 
+      			return STk_extended_compare(x, y, FALSE);
+  }
+  /* What can we do else? */
+  return Ntruth;
+}
+
+
+PRIMITIVE STk_equal(SCM x, SCM y)
+{
+Top:
+  if (STk_eqv(x, y) == Truth) return Truth;
+
+  switch (TYPE(x)) {
+    case tc_cons:   if (CONSP(y)) {
+      		      if (STk_equal(CAR(x), CAR(y)) == Ntruth) return Ntruth;
+		      x = CDR(x); y = CDR(y);
+		      goto Top;
+		    }
+		    break;
+    case tc_string: if (STRINGP(y)) 
+                      return (strcmp(CHARS(x), CHARS(y))==0) ? Truth: Ntruth;
+                    break;
+    case tc_vector: if (VECTORP(y)) {
+      		      long lx, ly, i;
+		      SCM *vx, *vy;
+		      
+		      lx = VECTSIZE(x); ly = VECTSIZE(y);
+ 		      if (lx != ly) return Ntruth;
+
+		      for (i=0, vx=VECT(x), vy=VECT(y); i < lx;  i++)
+			if (STk_equal(vx[i], vy[i]) == Ntruth) return Ntruth;
+		      return Truth;
+    		    }
+    		    break;
+#ifdef USE_STKLOS
+    case tc_instance: {
+      			SCM fct = VCELL(STk_intern("object-equal?"));
+			/* Test for UNBOUND, cause gf are not defined during boot */
+			return (fct == UNBOUND) ? Ntruth :  Apply(fct, LIST2(x, y));
+    		      }
+#endif
+    default:	    if (EXTENDEDP(x) && EXTENDEDP(y) && TYPE(x) == TYPE(y)) 
+      		      return STk_extended_compare(x, y, TRUE);
+  }
+  return Ntruth;
+}
+
+
diff --git a/Src/char.c b/Src/char.c
new file mode 100644
index 0000000..8e1bf3e
--- /dev/null
+++ b/Src/char.c
@@ -0,0 +1,227 @@
+/*
+ *
+ * c h a r . c				-- Characters management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: ??????
+ * Last file update:  4-May-1996 11:18
+ */
+
+#include <ctype.h>
+#include "stk.h"
+
+struct charelem {
+  char *name;
+  char value;
+};
+
+static struct charelem chartable [] = { 
+  "null",       '\000',
+  "bell",       '\007',
+  "backspace",  '\010',
+  "newline",    '\012',
+  "page",       '\014',
+  "return",     '\015',
+  "escape",     '\033',
+  "space",      '\040',
+  "delete",     '\177',
+
+  /* poeticless names */
+  "nul",        '\000',
+  "soh",        '\001',
+  "stx",        '\002',
+  "etx",        '\003',
+  "eot",        '\004',
+  "enq",        '\005',
+  "ack",        '\006',
+  "bel",        '\007',
+
+  "bs",         '\010',
+  "ht",         '\011',
+  "tab",        '\011',
+  "nl",         '\012',
+  "vt",         '\013',
+  "np",         '\014',
+  "cr",         '\015',
+  "so",         '\016',
+  "si",         '\017',
+
+  "dle",        '\020',
+  "dc1",        '\021',
+  "dc2",        '\022',
+  "dc3",        '\023',
+  "dc4",        '\024',
+  "nak",        '\025',
+  "syn",        '\026',
+  "etb",        '\027',
+
+  "can",        '\030',
+  "em",         '\031',
+  "sub",        '\032',
+  "esc",        '\033',
+  "fs",         '\034',
+  "gs",         '\035',
+  "rs",         '\036',
+  "us",         '\037',
+
+  "sp",		'\040',					  
+  "del",	'\177',
+  
+  "",           '\000'};
+
+
+static int my_strcmpi(register char *p1, register char *p2)
+{
+  for( ; tolower(*p1) == tolower(*p2); p1++, p2++) 
+    if (!*p1) return 0;
+
+  return tolower(*p1) - tolower(*p2);
+}
+
+
+
+char STk_string2char(char *s)
+/* converts a char name to a char */
+{
+  register struct charelem *p;
+  int diff;
+  
+  if (s[1] == '\000') return s[0];
+  for (p=chartable; *(p->name); p++) {
+    if (my_strcmpi(p->name, s) == 0) return p->value;
+  }
+  Err("Bad char name", NIL);
+  return '\0'; /* never reached */
+}
+
+char *STk_char2string(char c)  /* convert a char to it's external representation */
+{
+  static char result[2] = " ";  /* sets the \0 */
+  register struct charelem *p;
+
+  for (p=chartable; *(p->name); p++)
+    if (p->value == c) return p->name;
+  
+  /* If we are here it's a "normal" char */
+  *result = c;
+  return result;
+}
+
+SCM STk_makechar(char c)
+{
+  SCM z;
+
+#ifndef COMPACT_SMALL_CST
+  NEWCELL(z,tc_char);
+#endif
+  SET_CHARACTER(z, c);
+  return z;
+}
+
+
+/**** Section 6.6 ****/
+
+PRIMITIVE STk_charp(SCM obj)
+{
+  return CHARP(obj) ? Truth: Ntruth;
+}
+
+static int charcomp(SCM c1, SCM c2)
+{
+  if (NCHARP(c1)) Err("comparing char: bad char", c1); 
+  if (NCHARP(c2)) Err("comparing char: bad char", c2);
+  
+  return (CHAR(c1) - CHAR(c2));
+}
+
+static int charcompi(SCM c1, SCM c2)
+{
+  if (NCHARP(c1)) Err("comparing char: bad char", c1); 
+  if (NCHARP(c2)) Err("comparing char: bad char", c2);
+  
+  return (tolower(CHAR(c1)) - tolower(CHAR(c2)));
+}
+  
+PRIMITIVE STk_chareq   (SCM c1, SCM c2){return (charcomp(c1,c2)==0) ?Truth: Ntruth;}
+PRIMITIVE STk_charless (SCM c1, SCM c2){return (charcomp(c1,c2)<0)  ?Truth: Ntruth;}
+PRIMITIVE STk_chargt   (SCM c1, SCM c2){return (charcomp(c1,c2)>0)  ?Truth: Ntruth;}
+PRIMITIVE STk_charlesse(SCM c1, SCM c2){return (charcomp(c1,c2)<=0) ?Truth: Ntruth;}
+PRIMITIVE STk_chargte  (SCM c1, SCM c2){return (charcomp(c1,c2)>=0) ?Truth: Ntruth;}
+
+PRIMITIVE STk_chareqi   (SCM c1, SCM c2){return (charcompi(c1,c2)==0)?Truth:Ntruth;}
+PRIMITIVE STk_charlessi (SCM c1, SCM c2){return (charcompi(c1,c2)<0) ?Truth:Ntruth;}
+PRIMITIVE STk_chargti   (SCM c1, SCM c2){return (charcompi(c1,c2)>0) ?Truth:Ntruth;}
+PRIMITIVE STk_charlessei(SCM c1, SCM c2){return (charcompi(c1,c2)<=0)?Truth:Ntruth;}
+PRIMITIVE STk_chargtei  (SCM c1, SCM c2){return (charcompi(c1,c2)>=0)?Truth:Ntruth;}
+
+PRIMITIVE STk_char_alphap(SCM c)
+{
+  if (NCHARP(c)) Err("char-alphabetic?: bad character", c);
+  return isalpha(CHAR(c))? Truth: Ntruth;
+}
+
+PRIMITIVE STk_char_numericp(SCM c)
+{
+  if (NCHARP(c)) Err("char-numeric?: bad character", c);
+  return isdigit(CHAR(c))? Truth: Ntruth;
+}
+
+PRIMITIVE STk_char_whitep(SCM c)
+{
+  if (NCHARP(c)) Err("char-whitespace?: bad character", c);
+  return isspace(CHAR(c))? Truth: Ntruth;
+}
+
+PRIMITIVE STk_char_upperp(SCM c)
+{
+  if (NCHARP(c)) Err("char-upper-case?: bad character", c);
+  return isupper(CHAR(c))? Truth: Ntruth;
+}
+
+PRIMITIVE STk_char_lowerp(SCM c)
+{
+  if (NCHARP(c)) Err("char-lower-case?: bad character", c);
+  return islower(CHAR(c))? Truth: Ntruth;
+}
+
+PRIMITIVE STk_char2integer(SCM c)
+{
+  if (NCHARP(c)) Err("char->integer: bad character", c);
+  return STk_makeinteger((long) CHAR(c));
+}
+
+PRIMITIVE STk_integer2char(SCM i)
+{
+  int c = STk_integer_value(i);
+
+  if (c < 0 || c > MAX_CHAR_CODE) Err("integer->char: bad integer", i);
+  return STk_makechar(c);
+}
+
+PRIMITIVE STk_char_upper(SCM c)
+{
+  if (NCHARP(c)) Err("char-upcase: bad character", c);
+  return STk_makechar(toupper(CHAR(c)));
+}
+
+PRIMITIVE STk_char_lower(SCM c)
+{
+  if (NCHARP(c)) Err("char-downcase: bad character", c);
+  return STk_makechar(tolower(CHAR(c)));
+}
+
diff --git a/Src/configure b/Src/configure
new file mode 100755
index 0000000..a9583d3
--- /dev/null
+++ b/Src/configure
@@ -0,0 +1,1189 @@
+#! /bin/sh
+
+# Guess values for system-dependent variables and create Makefiles.
+# Generated automatically using autoconf version 2.7 
+# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+
+# Defaults:
+ac_help=
+ac_default_prefix=/usr/local
+# Any additions from configure.in:
+
+# Initialize some variables set by options.
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+build=NONE
+cache_file=./config.cache
+exec_prefix=NONE
+host=NONE
+no_create=
+nonopt=NONE
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+target=NONE
+verbose=
+x_includes=NONE
+x_libraries=NONE
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datadir='${prefix}/share'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+libdir='${exec_prefix}/lib'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+infodir='${prefix}/info'
+mandir='${prefix}/man'
+
+# Initialize some other variables.
+subdirs=
+MFLAGS= MAKEFLAGS=
+
+ac_prev=
+for ac_option
+do
+
+  # If the previous option needs an argument, assign it.
+  if test -n "$ac_prev"; then
+    eval "$ac_prev=\$ac_option"
+    ac_prev=
+    continue
+  fi
+
+  case "$ac_option" in
+  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
+  *) ac_optarg= ;;
+  esac
+
+  # Accept the important Cygnus configure options, so we can diagnose typos.
+
+  case "$ac_option" in
+
+  -bindir | --bindir | --bindi | --bind | --bin | --bi)
+    ac_prev=bindir ;;
+  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+    bindir="$ac_optarg" ;;
+
+  -build | --build | --buil | --bui | --bu)
+    ac_prev=build ;;
+  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+    build="$ac_optarg" ;;
+
+  -cache-file | --cache-file | --cache-fil | --cache-fi \
+  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+    ac_prev=cache_file ;;
+  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+    cache_file="$ac_optarg" ;;
+
+  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
+    ac_prev=datadir ;;
+  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
+  | --da=*)
+    datadir="$ac_optarg" ;;
+
+  -disable-* | --disable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    eval "enable_${ac_feature}=no" ;;
+
+  -enable-* | --enable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "enable_${ac_feature}='$ac_optarg'" ;;
+
+  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+  | --exec | --exe | --ex)
+    ac_prev=exec_prefix ;;
+  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+  | --exec=* | --exe=* | --ex=*)
+    exec_prefix="$ac_optarg" ;;
+
+  -gas | --gas | --ga | --g)
+    # Obsolete; use --with-gas.
+    with_gas=yes ;;
+
+  -help | --help | --hel | --he)
+    # Omit some internal or obsolete options to make the list less imposing.
+    # This message is too long to be a string in the A/UX 3.1 sh.
+    cat << EOF
+Usage: configure [options] [host]
+Options: [defaults in brackets after descriptions]
+Configuration:
+  --cache-file=FILE       cache test results in FILE
+  --help                  print this message
+  --no-create             do not create output files
+  --quiet, --silent       do not print \`checking...' messages
+  --version               print the version of autoconf that created configure
+Directory and file names:
+  --prefix=PREFIX         install architecture-independent files in PREFIX
+                          [$ac_default_prefix]
+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
+                          [same as prefix]
+  --bindir=DIR            user executables in DIR [EPREFIX/bin]
+  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
+  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
+  --datadir=DIR           read-only architecture-independent data in DIR
+                          [PREFIX/share]
+  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
+  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
+                          [PREFIX/com]
+  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
+  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
+  --includedir=DIR        C header files in DIR [PREFIX/include]
+  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
+  --infodir=DIR           info documentation in DIR [PREFIX/info]
+  --mandir=DIR            man documentation in DIR [PREFIX/man]
+  --srcdir=DIR            find the sources in DIR [configure dir or ..]
+  --program-prefix=PREFIX prepend PREFIX to installed program names
+  --program-suffix=SUFFIX append SUFFIX to installed program names
+  --program-transform-name=PROGRAM
+                          run sed PROGRAM on installed program names
+EOF
+    cat << EOF
+Host type:
+  --build=BUILD           configure for building on BUILD [BUILD=HOST]
+  --host=HOST             configure for HOST [guessed]
+  --target=TARGET         configure for TARGET [TARGET=HOST]
+Features and packages:
+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
+  --x-includes=DIR        X include files are in DIR
+  --x-libraries=DIR       X library files are in DIR
+EOF
+    if test -n "$ac_help"; then
+      echo "--enable and --with options recognized:$ac_help"
+    fi
+    exit 0 ;;
+
+  -host | --host | --hos | --ho)
+    ac_prev=host ;;
+  -host=* | --host=* | --hos=* | --ho=*)
+    host="$ac_optarg" ;;
+
+  -includedir | --includedir | --includedi | --included | --include \
+  | --includ | --inclu | --incl | --inc)
+    ac_prev=includedir ;;
+  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+  | --includ=* | --inclu=* | --incl=* | --inc=*)
+    includedir="$ac_optarg" ;;
+
+  -infodir | --infodir | --infodi | --infod | --info | --inf)
+    ac_prev=infodir ;;
+  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+    infodir="$ac_optarg" ;;
+
+  -libdir | --libdir | --libdi | --libd)
+    ac_prev=libdir ;;
+  -libdir=* | --libdir=* | --libdi=* | --libd=*)
+    libdir="$ac_optarg" ;;
+
+  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+  | --libexe | --libex | --libe)
+    ac_prev=libexecdir ;;
+  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+  | --libexe=* | --libex=* | --libe=*)
+    libexecdir="$ac_optarg" ;;
+
+  -localstatedir | --localstatedir | --localstatedi | --localstated \
+  | --localstate | --localstat | --localsta | --localst \
+  | --locals | --local | --loca | --loc | --lo)
+    ac_prev=localstatedir ;;
+  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
+  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
+    localstatedir="$ac_optarg" ;;
+
+  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+    ac_prev=mandir ;;
+  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+    mandir="$ac_optarg" ;;
+
+  -nfp | --nfp | --nf)
+    # Obsolete; use --without-fp.
+    with_fp=no ;;
+
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c)
+    no_create=yes ;;
+
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+    no_recursion=yes ;;
+
+  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+  | --oldin | --oldi | --old | --ol | --o)
+    ac_prev=oldincludedir ;;
+  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+    oldincludedir="$ac_optarg" ;;
+
+  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+    ac_prev=prefix ;;
+  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+    prefix="$ac_optarg" ;;
+
+  -program-prefix | --program-prefix | --program-prefi | --program-pref \
+  | --program-pre | --program-pr | --program-p)
+    ac_prev=program_prefix ;;
+  -program-prefix=* | --program-prefix=* | --program-prefi=* \
+  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+    program_prefix="$ac_optarg" ;;
+
+  -program-suffix | --program-suffix | --program-suffi | --program-suff \
+  | --program-suf | --program-su | --program-s)
+    ac_prev=program_suffix ;;
+  -program-suffix=* | --program-suffix=* | --program-suffi=* \
+  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+    program_suffix="$ac_optarg" ;;
+
+  -program-transform-name | --program-transform-name \
+  | --program-transform-nam | --program-transform-na \
+  | --program-transform-n | --program-transform- \
+  | --program-transform | --program-transfor \
+  | --program-transfo | --program-transf \
+  | --program-trans | --program-tran \
+  | --progr-tra | --program-tr | --program-t)
+    ac_prev=program_transform_name ;;
+  -program-transform-name=* | --program-transform-name=* \
+  | --program-transform-nam=* | --program-transform-na=* \
+  | --program-transform-n=* | --program-transform-=* \
+  | --program-transform=* | --program-transfor=* \
+  | --program-transfo=* | --program-transf=* \
+  | --program-trans=* | --program-tran=* \
+  | --progr-tra=* | --program-tr=* | --program-t=*)
+    program_transform_name="$ac_optarg" ;;
+
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil)
+    silent=yes ;;
+
+  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+    ac_prev=sbindir ;;
+  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+  | --sbi=* | --sb=*)
+    sbindir="$ac_optarg" ;;
+
+  -sharedstatedir | --sharedstatedir | --sharedstatedi \
+  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+  | --sharedst | --shareds | --shared | --share | --shar \
+  | --sha | --sh)
+    ac_prev=sharedstatedir ;;
+  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+  | --sha=* | --sh=*)
+    sharedstatedir="$ac_optarg" ;;
+
+  -site | --site | --sit)
+    ac_prev=site ;;
+  -site=* | --site=* | --sit=*)
+    site="$ac_optarg" ;;
+
+  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+    ac_prev=srcdir ;;
+  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+    srcdir="$ac_optarg" ;;
+
+  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+  | --syscon | --sysco | --sysc | --sys | --sy)
+    ac_prev=sysconfdir ;;
+  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+    sysconfdir="$ac_optarg" ;;
+
+  -target | --target | --targe | --targ | --tar | --ta | --t)
+    ac_prev=target ;;
+  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+    target="$ac_optarg" ;;
+
+  -v | -verbose | --verbose | --verbos | --verbo | --verb)
+    verbose=yes ;;
+
+  -version | --version | --versio | --versi | --vers)
+    echo "configure generated by autoconf version 2.7"
+    exit 0 ;;
+
+  -with-* | --with-*)
+    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "with_${ac_package}='$ac_optarg'" ;;
+
+  -without-* | --without-*)
+    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    eval "with_${ac_package}=no" ;;
+
+  --x)
+    # Obsolete; use --with-x.
+    with_x=yes ;;
+
+  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+  | --x-incl | --x-inc | --x-in | --x-i)
+    ac_prev=x_includes ;;
+  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+    x_includes="$ac_optarg" ;;
+
+  -x-libraries | --x-libraries | --x-librarie | --x-librari \
+  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+    ac_prev=x_libraries ;;
+  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+    x_libraries="$ac_optarg" ;;
+
+  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
+    ;;
+
+  *)
+    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
+      echo "configure: warning: $ac_option: invalid host type" 1>&2
+    fi
+    if test "x$nonopt" != xNONE; then
+      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
+    fi
+    nonopt="$ac_option"
+    ;;
+
+  esac
+done
+
+if test -n "$ac_prev"; then
+  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
+fi
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+# File descriptor usage:
+# 0 standard input
+# 1 file creation
+# 2 errors and warnings
+# 3 some systems may open it to /dev/tty
+# 4 used on the Kubota Titan
+# 6 checking for... messages and results
+# 5 compiler messages saved in config.log
+if test "$silent" = yes; then
+  exec 6>/dev/null
+else
+  exec 6>&1
+fi
+exec 5>./config.log
+
+echo "\
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+" 1>&5
+
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Also quote any args containing shell metacharacters.
+ac_configure_args=
+for ac_arg
+do
+  case "$ac_arg" in
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c) ;;
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
+  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
+  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
+  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
+  esac
+done
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -rf conftest* confdefs.h
+# AIX cpp loses on an empty file, so make sure it contains at least a newline.
+echo > confdefs.h
+
+# A filename unique to this package, relative to the directory that
+# configure is in, which we can look for to find out if srcdir is correct.
+ac_unique_file=stk.h
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+  ac_srcdir_defaulted=yes
+  # Try the directory containing this script, then its parent.
+  ac_prog=$0
+  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
+  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
+  srcdir=$ac_confdir
+  if test ! -r $srcdir/$ac_unique_file; then
+    srcdir=..
+  fi
+else
+  ac_srcdir_defaulted=no
+fi
+if test ! -r $srcdir/$ac_unique_file; then
+  if test "$ac_srcdir_defaulted" = yes; then
+    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
+  else
+    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
+  fi
+fi
+srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
+
+# Prefer explicitly selected file to automatically selected ones.
+if test -z "$CONFIG_SITE"; then
+  if test "x$prefix" != xNONE; then
+    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
+  else
+    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
+  fi
+fi
+for ac_site_file in $CONFIG_SITE; do
+  if test -r "$ac_site_file"; then
+    echo "loading site script $ac_site_file"
+    . "$ac_site_file"
+  fi
+done
+
+if test -r "$cache_file"; then
+  echo "loading cache $cache_file"
+  . $cache_file
+else
+  echo "creating cache $cache_file"
+  > $cache_file
+fi
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='echo $CPP $CPPFLAGS 1>&5;
+$CPP $CPPFLAGS'
+ac_compile='echo ${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5;
+${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
+ac_link='echo ${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5;
+${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
+
+if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
+  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
+  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
+    ac_n= ac_c='
+' ac_t='	'
+  else
+    ac_n=-n ac_c= ac_t=
+  fi
+else
+  ac_n= ac_c='\c' ac_t=
+fi
+
+
+/bin/rm -f config.cache
+CC=${CC-gcc}
+
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+  CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    # This must be in double quotes, not single quotes, because CPP may get
+  # substituted into the Makefile and "${CC-cc}" will confuse make.
+  CPP="${CC-cc} -E"
+  # On the NeXT, cc -E runs the code through the compiler's parser,
+  # not just through cpp.
+  cat > conftest.$ac_ext <<EOF
+#line 537 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP="${CC-cc} -E -traditional-cpp"
+  cat > conftest.$ac_ext <<EOF
+#line 551 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+  ac_cv_prog_CPP="$CPP"
+fi
+  CPP="$ac_cv_prog_CPP"
+else
+  ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+for ac_hdr in unistd.h limits.h
+do
+ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 584 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+for ac_func in sigaction select
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 619 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char $ac_func(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char $ac_func();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_func 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+echo $ac_n "checking for -ldl""... $ac_c" 1>&6
+ac_lib_var=`echo dl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-ldl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 671 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+dlopen()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -ldl"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+LIBS="$LIBS -lm"
+
+#--------------------------------------------------------------------
+# Some system needs extra libraries which are already tested for
+# stk (such as libsocket.a or libnsl.a)
+# I'm unable to test this since I know no machine which need it.
+# Please tell me if I'm wrong
+#--------------------------------------------------------------------
+SNOW_LIBS=""
+echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
+ac_lib_var=`echo socket | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lsocket  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 714 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+socket()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  SNOW_LIBS="$SNOW_LIBS -lsocket"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+echo $ac_n "checking for -lnsl""... $ac_c" 1>&6
+ac_lib_var=`echo nsl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lnsl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 748 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+t_accept()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  SNOW_LIBS="$SNOW_LIBS -lnsl"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist. Useful for Sony WS(Sony NEWS, NEWSOS 4.2R)
+#	Thanks to Nobuyuki Hikichi  <hikichi@sran340.sra.co.jp>
+#--------------------------------------------------------------------
+# If we cannot run a trivial program, we must be cross compiling.
+echo $ac_n "checking whether cross-compiling""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_c_cross'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test "$cross_compiling" = yes; then
+  ac_cv_c_cross=yes
+else
+cat > conftest.$ac_ext <<EOF
+#line 790 "configure"
+#include "confdefs.h"
+main(){return(0);}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  ac_cv_c_cross=no
+else
+  ac_cv_c_cross=yes
+fi
+fi
+rm -fr conftest*
+fi
+
+echo "$ac_t""$ac_cv_c_cross" 1>&6
+cross_compiling=$ac_cv_c_cross
+
+echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 812 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  ac_cv_header_stdc=yes
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+if test $ac_cv_header_stdc = yes; then
+  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 834 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "memchr" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 852 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "free" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+if test "$cross_compiling" = yes; then
+  :
+else
+cat > conftest.$ac_ext <<EOF
+#line 873 "configure"
+#include "confdefs.h"
+#include <ctype.h>
+#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int main () { int i; for (i = 0; i < 256; i++)
+if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
+exit (0); }
+
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  :
+else
+  ac_cv_header_stdc=no
+fi
+fi
+rm -fr conftest*
+fi
+fi
+
+echo "$ac_t""$ac_cv_header_stdc" 1>&6
+if test $ac_cv_header_stdc = yes; then
+  cat >> confdefs.h <<\EOF
+#define STDC_HEADERS 1
+EOF
+
+fi
+
+echo $ac_n "checking for pid_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 908 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "pid_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_pid_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_pid_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_pid_t" 1>&6
+if test $ac_cv_type_pid_t = no; then
+  cat >> confdefs.h <<\EOF
+#define pid_t int
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 947 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+int main() { return 0; }
+int t() {
+fd_set readMask, writeMask;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+if test $tk_ok = no; then
+    cat > conftest.$ac_ext <<EOF
+#line 966 "configure"
+#include "confdefs.h"
+#include <sys/select.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "fd_mask" >/dev/null 2>&1; then
+  rm -rf conftest*
+  tk_ok=yes
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define HAVE_SYS_SELECT_H 1
+EOF
+
+    fi
+fi
+echo "$ac_t""$tk_ok" 1>&6
+if test $tk_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_FD_SET 1
+EOF
+
+fi
+
+trap '' 1 2 15
+cat > confcache <<\EOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs.  It is not useful on other systems.
+# If it contains results you don't want to keep, you may remove or edit it.
+#
+# By default, configure uses ./config.cache as the cache file,
+# creating it if it does not exist already.  You can give configure
+# the --cache-file=FILE option to use a different cache file; that is
+# what configure does when it calls configure scripts in
+# subdirectories, so they share the cache.
+# Giving --cache-file=/dev/null disables caching, for debugging configure.
+# config.status only pays attention to the cache file if you give it the
+# --recheck option to rerun configure.
+#
+EOF
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(set) 2>&1 |
+  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
+  >> confcache
+if cmp -s $cache_file confcache; then
+  :
+else
+  if test -w $cache_file; then
+    echo "updating cache $cache_file"
+    cat confcache > $cache_file
+  else
+    echo "not updating unwritable cache $cache_file"
+  fi
+fi
+rm -f confcache
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+# Any assignment to VPATH causes Sun make to only execute
+# the first set of double-colon rules, so remove it if not needed.
+# If there is a colon in the path, we need to keep it.
+if test "x$srcdir" = x.; then
+  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
+fi
+
+trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
+
+# Transform confdefs.h into DEFS.
+# Protect against shell expansion while executing Makefile rules.
+# Protect against Makefile macro expansion.
+cat > conftest.defs <<\EOF
+s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
+s%[ 	`~#$^&*(){}\\|;'"<>?]%\\&%g
+s%\[%\\&%g
+s%\]%\\&%g
+s%\$%$$%g
+EOF
+DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
+rm -f conftest.defs
+
+
+# Without the "./", some shells look in PATH for config.status.
+: ${CONFIG_STATUS=./config.status}
+
+echo creating $CONFIG_STATUS
+rm -f $CONFIG_STATUS
+cat > $CONFIG_STATUS <<EOF
+#! /bin/sh
+# Generated automatically by configure.
+# Run this file to recreate the current configuration.
+# This directory was configured as follows,
+# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+#
+# $0 $ac_configure_args
+#
+# Compiler output produced by configure, useful for debugging
+# configure, is in ./config.log if it exists.
+
+ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
+for ac_option
+do
+  case "\$ac_option" in
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
+    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
+  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
+    echo "$CONFIG_STATUS generated by autoconf version 2.7"
+    exit 0 ;;
+  -help | --help | --hel | --he | --h)
+    echo "\$ac_cs_usage"; exit 0 ;;
+  *) echo "\$ac_cs_usage"; exit 1 ;;
+  esac
+done
+
+ac_given_srcdir=$srcdir
+
+trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+# Protect against being on the right side of a sed subst in config.status.
+sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
+ s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
+$ac_vpsub
+$extrasub
+s%@CFLAGS@%$CFLAGS%g
+s%@CPPFLAGS@%$CPPFLAGS%g
+s%@CXXFLAGS@%$CXXFLAGS%g
+s%@DEFS@%$DEFS%g
+s%@LDFLAGS@%$LDFLAGS%g
+s%@LIBS@%$LIBS%g
+s%@exec_prefix@%$exec_prefix%g
+s%@prefix@%$prefix%g
+s%@program_transform_name@%$program_transform_name%g
+s%@bindir@%$bindir%g
+s%@sbindir@%$sbindir%g
+s%@libexecdir@%$libexecdir%g
+s%@datadir@%$datadir%g
+s%@sysconfdir@%$sysconfdir%g
+s%@sharedstatedir@%$sharedstatedir%g
+s%@localstatedir@%$localstatedir%g
+s%@libdir@%$libdir%g
+s%@includedir@%$includedir%g
+s%@oldincludedir@%$oldincludedir%g
+s%@infodir@%$infodir%g
+s%@mandir@%$mandir%g
+s%@CPP@%$CPP%g
+s%@SNOW_LIBS@%$SNOW_LIBS%g
+
+CEOF
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
+  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  case "$ac_file" in
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
+  *) ac_file_in="${ac_file}.in" ;;
+  esac
+
+  # Adjust relative srcdir, etc. for subdirectories.
+
+  # Remove last slash and all that follows it.  Not all systems have dirname.
+  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
+  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
+    # The file is in a subdirectory.
+    test ! -d "$ac_dir" && mkdir "$ac_dir"
+    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
+    # A "../" for each directory in $ac_dir_suffix.
+    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
+  else
+    ac_dir_suffix= ac_dots=
+  fi
+
+  case "$ac_given_srcdir" in
+  .)  srcdir=.
+      if test -z "$ac_dots"; then top_srcdir=.
+      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
+  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
+  *) # Relative path.
+    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
+    top_srcdir="$ac_dots$ac_given_srcdir" ;;
+  esac
+
+  echo creating "$ac_file"
+  rm -f "$ac_file"
+  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
+  case "$ac_file" in
+  *Makefile*) ac_comsub="1i\\
+# $configure_input" ;;
+  *) ac_comsub= ;;
+  esac
+  sed -e "$ac_comsub
+s%@configure_input@%$configure_input%g
+s%@srcdir@%$srcdir%g
+s%@top_srcdir@%$top_srcdir%g
+" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+fi; done
+rm -f conftest.subs
+
+
+
+exit 0
+EOF
+chmod +x $CONFIG_STATUS
+rm -fr confdefs* $ac_clean_files
+test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
+
+
+if test ! -f ../Snow/Makefile
+then
+  ln -s ../Src/Makefile ../Snow/Makefile
+fi
diff --git a/Src/configure.in b/Src/configure.in
new file mode 100644
index 0000000..dfc2699
--- /dev/null
+++ b/Src/configure.in
@@ -0,0 +1,61 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during STk installation
+dnl	to configure the system for the local environment.
+
+AC_INIT(stk.h)
+/bin/rm -f config.cache
+CC=${CC-gcc}
+
+AC_HAVE_HEADERS(unistd.h limits.h)
+AC_HAVE_FUNCS(sigaction select)
+AC_CHECK_LIB(dl, dlopen, [LIBS="$LIBS -ldl"])
+LIBS="$LIBS -lm"
+
+#--------------------------------------------------------------------
+# Some system needs extra libraries which are already tested for
+# stk (such as libsocket.a or libnsl.a)
+# I'm unable to test this since I know no machine which need it.
+# Please tell me if I'm wrong
+#--------------------------------------------------------------------
+SNOW_LIBS=""
+AC_CHECK_LIB(socket, socket, [SNOW_LIBS="$SNOW_LIBS -lsocket"])
+AC_CHECK_LIB(nsl, t_accept,   [SNOW_LIBS="$SNOW_LIBS -lnsl"])
+AC_SUBST(SNOW_LIBS, SNOW_LIBS)
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist. Useful for Sony WS(Sony NEWS, NEWSOS 4.2R)
+#	Thanks to Nobuyuki Hikichi  <hikichi@sran340.sra.co.jp>
+#--------------------------------------------------------------------
+AC_PID_T
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([fd_set and sys/select])
+AC_TRY_COMPILE([#include <sys/types.h>],
+	[fd_set readMask, writeMask;], tk_ok=yes, tk_ok=no)
+if test $tk_ok = no; then
+    AC_HEADER_EGREP(fd_mask, sys/select.h, tk_ok=yes)
+    if test $tk_ok = yes; then
+	AC_DEFINE(HAVE_SYS_SELECT_H)
+    fi
+fi
+AC_MSG_RESULT($tk_ok)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_FD_SET)
+fi
+
+AC_OUTPUT(Makefile)
+
+if test ! -f ../Snow/Makefile
+then
+  ln -s ../Src/Makefile ../Snow/Makefile
+fi
diff --git a/Src/cont.c b/Src/cont.c
new file mode 100644
index 0000000..29e9f27
--- /dev/null
+++ b/Src/cont.c
@@ -0,0 +1,202 @@
+/*
+ *
+ * c o n t . c				-- Continuations management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date:  8-Nov-1993 11:34
+ * Last file update: 26-Apr-1996 17:46
+ */
+
+#include "stk.h"
+#include "gc.h"
+
+#ifdef sparc
+#define FLUSH_REGISTERS_WINDOW()	asm("t 0x3") /* Stolen in Elk 2.0 source */
+#else
+#define FLUSH_REGISTERS_WINDOW()
+#endif
+
+struct cont {
+  jmp_buf env;
+  SCM wind_stack;
+  SCM *start;
+  unsigned length;
+  SCM stack[1];
+};
+
+#define C_ENV(x) 	(((struct cont *)((x)->storage_as.cont.data))->env)
+#define C_START(x)	(((struct cont *)((x)->storage_as.cont.data))->start)
+#define C_LEN(x)	(((struct cont *)((x)->storage_as.cont.data))->length)
+#define C_STACK(x)	(((struct cont *)((x)->storage_as.cont.data))->stack)
+#define C_WIND_STACK(x)	(((struct cont *)((x)->storage_as.cont.data))->wind_stack)
+
+
+static SCM call_cc_escaped_value;
+
+/* Don't allocate these vars on stack */
+static SCM *from, *to;
+static long length;
+static int  i;
+
+
+static void unwind(SCM stop, int n);
+
+static int get_stack_length(void)
+{
+  SCM stack_limit;
+  
+  return (&stack_limit < STk_stack_start_ptr) ? STk_stack_start_ptr - &stack_limit
+    					      : &stack_limit - STk_stack_start_ptr;
+}
+
+static SCM prepare_call_cc(SCM proc)
+{
+  SCM z;
+
+  if (STk_procedurep(proc) == Ntruth)
+    Err("call-with-current-continuation: Bad procedure", proc);
+
+  /* Find the start adress and the length of the stack to save */
+  length = get_stack_length();
+  from   = (STk_stack_start_ptr<&z) ? STk_stack_start_ptr 
+				    : STk_stack_start_ptr-length;
+
+  /* Allocate a new object for this continuation */
+  NEWCELL(z, tc_cont);
+
+  z->storage_as.cont.data = must_malloc(sizeof(struct cont) + length * sizeof(SCM));
+
+  C_START(z) 	  = from;
+  C_LEN(z)   	  = length;
+  C_WIND_STACK(z) = STk_wind_stack;
+  FLUSH_REGISTERS_WINDOW();
+  for (i=length, to = C_STACK(z); i--; ) *to++ = *from++;
+
+  return z;
+}
+
+SCM STk_mark_continuation(SCM cont)
+{
+  STk_mark_stack((SCM *)C_STACK(cont), (SCM *)(C_STACK(cont)+C_LEN(cont)-1));
+  return C_WIND_STACK(cont);
+}
+
+SCM STk_do_call_cc(SCM *x)
+{
+  SCM tmp;
+  
+  tmp = prepare_call_cc(*x);
+  /* Use a setjmp/longjmp for the continuation */
+  if (setjmp(C_ENV(tmp)) == 0) {
+    *x = LIST2(*x, tmp);
+    return Truth;
+  }
+  else
+    return (*x=call_cc_escaped_value);
+}
+
+void STk_throw(SCM fct, SCM val)
+{
+  static SCM tmp;
+  union {
+    SCM stack_end;
+    SCM hole[1024]; /* Reserve 1K-pointers on stack */
+  }u;
+
+  /* Evaluate room on stack. If not enough call throw again to alloc. a new hole */
+  if (&u.stack_end < STk_stack_start_ptr) {
+    /* Stack grows downward */
+    if (&u.stack_end > C_START(fct)) STk_throw(fct, val);
+  }
+  else {
+    /* Stack grows upward */
+    if (&u.stack_end < C_START(fct)+ C_LEN(fct)) STk_throw(fct, val);
+  }
+
+  /* Take care of active dynamic-winds */
+  tmp = C_WIND_STACK(fct);
+  unwind(tmp, STk_llength(STk_wind_stack) - STk_llength(tmp));
+
+  /* Save val in a global and reset stack as it was before calling call/cc */
+  call_cc_escaped_value = val; tmp = fct;
+  FLUSH_REGISTERS_WINDOW();
+  for(to=C_START(fct), from=C_STACK(fct), i=C_LEN(fct); i--; ) *to++ = *from++;
+
+  /* And Go! */
+  longjmp(C_ENV(tmp), JMP_THROW);
+}
+
+PRIMITIVE STk_continuationp(SCM obj)
+{
+  return CONTINUATIONP(obj)? Truth: Ntruth;
+}
+
+/******************************************************************************
+ *
+ * Dynamic wind 
+ *
+ ******************************************************************************/
+
+void STk_unwind_all(void)
+{
+  SCM p;
+
+  for (p = STk_wind_stack; NNULLP(p); p = CDR(p)) {
+    STk_wind_stack = CDR(p);
+    Apply(CAR(CDR(CAR(p))), NIL);
+  }
+}
+
+static void unwind(SCM stop, int n)
+{
+  if (STk_wind_stack != stop) {
+    if (n < 0) {
+      unwind(CDR(stop),n+1);
+      Apply(CAR(CAR(stop)),NIL);
+      STk_wind_stack = stop;
+    }
+    else {
+      SCM old_wind_stack = STk_wind_stack;
+      
+      STk_wind_stack = CDR(STk_wind_stack);
+      Apply(CAR(CDR(CAR(old_wind_stack))), NIL);
+      unwind(stop, n-1);
+    }
+  }
+}
+
+static void test_procedure(SCM thunk)
+{
+  if (!STk_is_thunk(thunk)) Err("dynamic-wind: bad procedure", thunk);
+}
+
+PRIMITIVE STk_dynamic_wind(SCM thunk1, SCM thunk2, SCM thunk3)
+{
+  SCM result;
+
+  test_procedure(thunk1);
+  test_procedure(thunk2);
+  test_procedure(thunk3);
+
+  Apply(thunk1, NIL);
+  STk_wind_stack = Cons(LIST2(thunk1, thunk3), STk_wind_stack);
+  result = Apply(thunk2, NIL);
+  STk_wind_stack = CDR(STk_wind_stack);
+  Apply(thunk3, NIL);
+  return result;
+}
diff --git a/Src/dummy.c b/Src/dummy.c
new file mode 100644
index 0000000..e145e9a
--- /dev/null
+++ b/Src/dummy.c
@@ -0,0 +1,67 @@
+/******************************************************************************
+ *
+ * d u m m y . c		-- this file contains functions referenced
+ *				   (but not used) by the Tcl library.
+ *				   It is useful for the snow interpreter only.
+ *				   Dummy functions are defined here to make the 
+ *				   loader happy
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date:  1-Feb-1995 22:43
+ * Last file update: 21-Sep-1996 22:38
+ *
+ ******************************************************************************/
+
+#include "stk.h"
+
+
+#ifndef USE_TK
+
+static Error(char *msg)
+{
+  char buffer[100];
+
+  sprintf(buffer, "Error: call of '%s' in Snow !!!. This should not occur\n", msg);
+}
+
+char *Tcl_SetVar2(interp, name1, name2, val, flags)
+     Tcl_Interp *interp;
+     char *name1, *name2, *val;
+     int flags;
+{
+  Error("Tcl_SetVar2");
+}
+
+Tcl_File Tcl_GetFile(ClientData fileData, int type)
+{
+  Error("Tcl_GetFile");
+  return (Tcl_File) TCL_ERROR;
+}
+
+void Tcl_DeleteFileHandler(Tcl_File file)
+{
+  Error("Tcl_DeleteFileHandler");
+}
+
+void Tcl_CreateFileHandler(Tcl_File file, int mask, Tcl_FileProc *proc,
+			    ClientData clientData)
+{
+  Error("Tcl_CreateFileHandler");
+}
+#endif
+
diff --git a/Src/dump.c b/Src/dump.c
new file mode 100644
index 0000000..4f4bbc7
--- /dev/null
+++ b/Src/dump.c
@@ -0,0 +1,175 @@
+/*
+ * d u m p . c				-- Image creation
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ??-Jul-1993 ??:??
+ * Last file update:  2-Jun-1996 21:39
+ */
+
+#include "stk.h"
+
+int STk_dumped_core = 0;
+
+#if defined (SUNOS4) || defined(FREEBSD) || defined(LINUX)
+static caddr_t current_break 	= (caddr_t) -1;
+static long data_size 		= 0;
+static long data_start		= 0;
+static int restoring_image	= 0;
+
+#include <a.out.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <setjmp.h>
+#include <sys/types.h>
+#include <sys/time.h>
+
+#define TEXT_START(x)	(N_TXTADDR(x)+(sizeof(x)-N_TXTOFF(x)))
+#define TEXT_SIZE(x)	((x).a_text - (sizeof(x)-N_TXTOFF(x)))
+#define DATA_START(x)	(N_DATADDR(x))
+
+
+static int dump_data_file(char *argv0, char *name)
+{
+  int fd1, fd2;
+  struct exec header;
+
+  /* find the header of current running program */
+  if ((fd1 = open(argv0, O_RDONLY)) < 0) 
+    Err("dump: cannot open myself", STk_makestring(argv0));
+
+  read(fd1, &header, sizeof header);
+  
+  /* Now that this header is read, create the new file */
+  if ((fd2=open(name, O_WRONLY|O_CREAT|O_TRUNC, 0755)) < 0) {
+    close(fd1);
+    Err("dump: cannot open file", STk_makestring(name));
+  }
+
+  /* write in fd2 the current sbrk followed by data segment size */
+  current_break = (caddr_t) sbrk(0);
+  data_size     = (char *)current_break - (char *) DATA_START(header);
+  data_start    = DATA_START(header);
+
+  write(fd2, &current_break, sizeof(caddr_t));
+  write(fd2, &data_size,     sizeof(long));
+  write(fd2, &data_start,    sizeof(long));
+
+  /* Copy data segment */
+  write(fd2, (void *)DATA_START(header), data_size);
+  
+  close(fd1); close(fd2);
+  return 1;
+}
+
+
+static int Restore_data_file(char *name)
+{
+  int fd;
+
+  /* find the header of current running program */
+  if ((fd = open(name, O_RDONLY)) < 0) 
+    Err("Cannot open image file", STk_makestring(name));
+
+  /* read the break we have to set and data segment size */
+  read(fd, &current_break, sizeof(caddr_t));
+  read(fd, &data_size,     sizeof(long));
+  read(fd, &data_start,    sizeof(long));
+
+  /* read data segment */
+  brk(current_break);
+  read(fd, (void *)data_start, data_size);
+
+  close(fd); 
+  return 1;
+}
+
+
+static void internal_dump(char *s)
+{
+  /* Store current continuation in a global Scheme variable */
+  STk_eval_C_string("(define *global-continuation* (call/cc (lambda(e) e)))", NIL);
+
+  if (restoring_image) {
+    /* 
+     * Since the primitive dump is in the call stack when we saved 
+     * continuation, we go back here on image restoration. If restoring_image is
+     * is equal to 1, we are restoring an image, so we can return.
+     */
+    return;
+  }
+
+  STk_dumped_core = 1;
+  dump_data_file(STk_Argv0, CHARS(STk_internal_expand_file_name(s)));
+  STk_dumped_core = 0;
+}
+
+
+void STk_restore_image(char *s)
+{
+  SCM gcont;
+
+  Restore_data_file(s);
+  STk_dumped_core =  restoring_image = 1;
+
+  gcont = VCELL(Intern("*global-continuation*"));
+  /* After reading the file we must have a continuation in *global-continuation* */
+  if (NCONTINUATIONP(gcont)) {
+    Err("restore: file loaded is corrupted. DANGER.", NIL);
+  }
+  Apply(gcont, LIST1(Ntruth));
+}
+
+/******************************************************************************
+ *
+ * d u m p   p r i m i t i v e 
+ *
+ ******************************************************************************/
+
+PRIMITIVE STk_dump(SCM s)
+{
+  if (NSTRINGP(s)) Err("dump: bad file name", s);
+#ifdef USE_TK
+  if (Tk_initialized) Err("dump: cannot dump an image if you have "
+			  "not used the `-no-tk' option.\nSorry.", NIL);
+#endif
+  internal_dump(CHARS(s));
+  return UNDEFINED;
+}
+
+#else
+
+/********************************************/
+/****					 ****/
+/**** Architectures without Dump support ****/
+/****					 ****/
+/********************************************/
+
+static void dump_error()
+{
+  Err("dump/restore not available on this architecture", NIL);
+}
+
+void STk_restore_image(char *s)
+{
+  dump_error();
+}
+
+PRIMITIVE STk_dump(SCM s)
+{
+  dump_error();
+}
+#endif
diff --git a/Src/dynload.c b/Src/dynload.c
new file mode 100644
index 0000000..e23c6ba
--- /dev/null
+++ b/Src/dynload.c
@@ -0,0 +1,244 @@
+/*
+ *
+ * d y n l o a d . c			-- All the stuff dealing with 
+ *					   dynamic loading
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 23-Jan-1994 19:09
+ * Last file update: 21-Jul-1996 21:24
+ */
+
+/* Support for HPUX is due to Dipankar Gupta <dg@hplb.hpl.hp.com> */
+/* Support for NETBSD is from Franke Ruediger (Ruediger.Franke@rz.tu-ilmenau.de) */
+/* Support for FreeBsD is due to Amancio Hasty Jr (hasty@netcom.com) */
+/* Support for Linux is inspired from Patrick Nguyen (pnguyen@elde.epfl.ch) */
+
+
+#if defined(SUNOS4) || defined(SUNOS5) || defined(IRIX5) || defined(OSF1)
+#include <dlfcn.h>
+#endif
+
+#if defined(LINUX_DLD)
+#include <dld.h>
+#endif
+
+#if defined(NETBSD1)	     
+#include <sys/types.h>
+#include <nlist.h>
+#include <link.h>
+#define dlerror() "dlerror"  /* dlerror() isn't implemented in NetBSD 1.0 */
+#endif
+
+#ifdef HPUX
+#include <dl.h>
+#endif
+
+#include "stk.h"
+
+#ifdef USE_DYNLOAD
+static SCM list_of_files = NULL;
+
+#if defined(SUNOS4) || defined(SUNOS5) || defined(NETBSD1) || defined(FREEBSD) || defined(IRIX5) || defined(OSF1) ||defined(LINUX_ELF)
+
+static void load_and_call(char *path, char *fct_name)
+{
+  static void *self_handle= NULL;
+  void *handle;
+  void (*init_fct)();
+  SCM str;
+
+  /* Test if fct_name is already defined in the core interpreter
+  /* Don't do a dlopen with NULL more than one time since it seems to break
+  /* Solaris 2.3. (Moises Lejter <mlm@cs.brown.edu>) */
+  if (self_handle == NULL) 
+    if ((self_handle = (void *) dlopen(NULL,1)) == NULL)
+      Err("Cannot open myself !!!", NIL);
+
+  if ((init_fct = (void (*)()) dlsym(self_handle, fct_name)) != NULL)
+    Err("Module is already (statically) loaded", STk_makestring(path));
+
+  /* Try to avoid multiple loading */
+  if (!list_of_files) {
+    STk_gc_protect(&list_of_files);
+    list_of_files = NIL;
+  }
+  str = STk_makestring(path);
+  if (STk_member(str, list_of_files) != Ntruth) {
+    Err("Module is already (dynamically) loaded", str);
+  }
+  
+  /* Load file */
+  if ((handle = (void *) dlopen(path, 1)) == NULL) {
+    char msg[MAX_PATH_LENGTH];
+#ifdef FREEBSD
+    sprintf(msg, "Cannot open object file");
+#else
+    sprintf(msg, "Cannot open object file (%s)", dlerror());
+#endif
+    Err(msg, str);
+  }
+  
+  if ((init_fct = (void (*)()) dlsym(handle, fct_name)) == NULL) {
+    char msg[MAX_PATH_LENGTH];
+    
+    sprintf(msg, "Cannot find function \"%s\" in object file", fct_name);
+    Err(msg, NIL);
+  }
+  /* Call the init code */
+  (*init_fct)();
+  
+  list_of_files = Cons(str, list_of_files);
+}
+#endif
+
+#if defined(LINUX_DLD)
+/* 
+ * This code is for Linux, using the dld package. This code should not be used 
+ * anymore when ELF will be completely accepted under Linux. In the meanwhile...
+ *
+ * This code is inspired from a code sent by Patrick Nguyen pnguyen@elde.epfl.ch.
+ *
+ */
+
+static void load_and_call(char *path, char *fct_name)
+{
+  void *handle;
+  void (*init_fct)();
+  SCM str;
+  static dld_already_initialized = FALSE;
+
+  /* Try to avoid multiple loading */
+  if (!list_of_files) {
+    STk_gc_protect(&list_of_files);
+    list_of_files = NIL;
+  }
+  str = STk_makestring(path);
+  if (STk_member(str, list_of_files) != Ntruth) {
+    Err("Module is already (dynamically) loaded", str);
+  }
+
+  /* Dld must be initialized at first call */
+  if(!dld_already_initialized) {
+    if (dld_init (dld_find_executable (STk_Argv0)))
+      dld_perror("dld: failed to init dld");
+    else 
+      dld_already_initialized = TRUE;
+  }
+  
+  /* Load file */
+  if (dld_link(path)) dld_perror("dld: cannot link");
+
+  /* And get a pointer on function "fct_name" */
+  init_fct = (void (*) ()) dld_get_func(fct_name);
+  if (init_fct) {
+    /* When loading a function. It can induce some unresolved references 
+     * Most of the time, the unresolved references come from fucntions
+     * which are in the libc but which are not used by the core interpreter.
+     * For instance, if loaded module uses fork, which is not loaded in
+     * the interpreter, we will have an unresolve reference for _fork.
+     * To avoid this problem, we make again a link against standard libc
+     * Note: in general situation is more complicated than this, unresolved 
+     * symbols could be elsewhere than the libc....
+     * Those situation are not handled by current code, but I hope that ELF 
+     * will supplant this way of doing dynamic loading soon...
+     */
+    if (dld_function_executable_p (fct_name))
+      /* Call the init code */
+      (*init_fct) ();
+    else {
+      /* Function is notexecutable = we have unresolved references */
+      if (dld_link("/usr/lib/libc.a") && dld_link("/usr/lib/libc.sa")) 
+	dld_perror("dld: cannot link"); 
+
+      if (dld_function_executable_p (fct_name)) {
+	init_fct = (void (*) ()) dld_get_func(fct_name);
+	(*init_fct) ();
+      }
+      else {
+	char **unresolved;
+	extern int dld_undefined_sym_count; 
+	int i;	  
+	fprintf(STk_stderr, "dld: function %s not executable!\n", fct_name);
+	fprintf(STk_stderr, "Unresolved symbols are:\n");
+	
+	unresolved= dld_list_undefined_sym();
+	for (i = 0; i < dld_undefined_sym_count; i++)
+	  fprintf(STk_stderr, "\t%s\n",unresolved[i]);
+	free(unresolved);
+	Err("dld: link aborted", NIL);
+      }
+    }
+  }
+  else {
+    char msg[MAX_PATH_LENGTH];
+    sprintf(msg, "Cannot find function \"%s\" in object file", fct_name);
+    Err(msg, NIL);
+  }
+
+  list_of_files = Cons(str, list_of_files);
+}
+#endif /* LINUX_DLD */
+
+#ifdef HPUX
+static void load_and_call(char *path, char *fct_name)
+{
+  shl_t handle;
+  void (*init_fct)();
+ 
+  if ((handle = shl_load(path, BIND_IMMEDIATE | BIND_VERBOSE, 0L)) == NULL) 
+    Err("Cannot open file", STk_makestring(path));
+  
+  handle = NULL;
+  if (shl_findsym(&handle, fct_name, TYPE_PROCEDURE, &init_fct) == -1) {
+    char msg[MAX_PATH_LENGTH];
+    
+    sprintf(msg, "Cannot find function %s in object file", fct_name);
+    Err(msg, NIL);
+  }
+  /* Call the init code */
+  (*init_fct)();
+}
+#endif
+
+void STk_load_object_file(char *path)
+{
+  char fct_name[1024], *p, *slash, *dot;
+
+  /* Load the file as an object one */
+
+  for (p = path, slash = p-1; *p; p++)		/* Find position of last '/' */
+    if (*p == '/') slash = p;
+
+#if defined(NETBSD1) || defined(FREEBSD)
+  sprintf(fct_name, "_STk_init_%s", slash + 1);
+#else
+  sprintf(fct_name, "STk_init_%s", slash + 1);
+#endif
+
+  for (p = fct_name; *p; p++)			/* Delete suffix it it exists */
+      if (*p == '.') { *p = '\0'; break; }
+
+  load_and_call(path, fct_name);
+}
+
+#else /* not DYNLOAD */
+void STk_load_object_file(char *path)
+{
+  Err("load: Loading of object file is not defined on this architecture", NIL);
+}
+#endif
diff --git a/Src/env.c b/Src/env.c
new file mode 100644
index 0000000..95663a4
--- /dev/null
+++ b/Src/env.c
@@ -0,0 +1,219 @@
+/*
+ *
+ * e n v . c			-- Environment management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 23-Oct-1993 21:37
+ * Last file update: 23-Jul-1996 15:44
+ */
+
+#include "stk.h"
+#include "extend.h"
+
+static void makelocalvar(SCM x, int level, int position)
+{
+  if (ModifyCode() && CONSP(x)) { /* Replace (CAR x) by a localvar access */
+    SCM z;
+    NEWCELL(z, tc_localvar);
+    z->storage_as.localvar.position = position;
+    z->storage_as.localvar.level    = level;
+    z->storage_as.localvar.symbol   = CAR(x);
+    CAR(x) = z;
+  }
+}
+
+static void makeglobalvar(SCM x)
+{
+  if (ModifyCode() && CONSP(x)) { /* Replace (CAR x) by a globalvar access */
+    SCM z;
+    NEWCELL(z, tc_globalvar);
+    VCELL(z) = CAR(x);
+    CAR(x) = z;
+  }
+}
+
+SCM STk_makeenv(SCM l, int create_if_null)
+{
+  SCM z;
+  
+  if (NULLP(l) && !create_if_null) return STk_globenv;
+  
+  NEWCELL(z, tc_env);
+  z->storage_as.env.data = l;
+  return z;
+}
+
+/* Return the value of var in given env. Search is done only at out most level */
+SCM *STk_value_in_env(SCM var, SCM env)
+{
+  SCM fl, *al;
+  
+  al = &CAR(env);
+  for (fl=CAR(CAR(env)); NNULLP(fl); fl=CDR(fl)) {
+    if (NCONSP(fl)) {
+      if (EQ(fl, var)) return &CDR(*al);
+      else break;
+    }
+    al = &CDR(*al);
+    if EQ(CAR(fl), var) return &CAR(*al);
+  }
+  /* Not found */
+  return &UNBOUND;
+}
+
+SCM *STk_varlookup(SCM x, SCM env, int err_if_unbound)
+{
+  SCM frame, fl, *al, var;
+  int level, pos;
+
+  var = CONSP(x)? CAR(x) : x;
+
+  /* Try to find var in env */ 
+  for(level=0, frame=env; CONSP(frame); frame=CDR(frame), level++) {
+    al = &CAR(frame);
+
+    for (pos=0, fl=CAR(CAR(frame)); NNULLP(fl); fl=CDR(fl), pos++) {
+      if (NCONSP(fl)) {
+	if (EQ(fl, var)) { makelocalvar(x, level, pos); return &CDR(*al); }
+	else break;
+      }
+      al = &CDR(*al);
+      if EQ(CAR(fl), var) { makelocalvar(x, level, pos); return &CAR(*al); }
+    }
+  }
+  /* Not found. Return it's value in global environment */
+  if (err_if_unbound) {
+    SCM val = VCELL(var);
+
+    if (val == UNBOUND) {
+      /* C variables are always seen as unbound variables. This tends to 
+       * make them slower than standard variables but, in counterpart, this
+       * doesn't slow down acceses to Scheme variable 
+       */
+      if (var->cell_info & CELL_INFO_C_VAR) {
+	/* This is not an unbound variable but rather a C variable */
+	static SCM tmp;
+	tmp = STk_apply_getter_C_variable(PNAME(var));
+	return &tmp;
+      }
+      Err("unbound variable", var);
+    }
+    if (TYPEP(val, tc_autoload)) STk_do_autoload(var);
+  }
+  makeglobalvar(x);
+  return &VCELL(var);
+}
+
+SCM STk_localvalue(SCM var, SCM env)
+{
+  register SCM p, q;
+  register int i;
+
+  p = env;
+  /* Go down ``level'' environments */
+  for (i = var->storage_as.localvar.level; i; i--)
+    p = CDR(p);
+  
+  /* Go forward ``position'' variables */
+  q = CAR(CAR(p)); p = CDR(CAR(p)); 
+  for (i = var->storage_as.localvar.position; i; i--) {
+    p = CDR(p);
+    q = CDR(q);
+  }
+  return CONSP(q) ? CAR(p) : p;
+}
+
+
+SCM STk_extend_env(SCM formals, SCM actuals, SCM env, SCM who)
+{
+  register SCM f = formals, a = actuals;
+
+  for ( ; NNULLP(f); f=CDR(f), a=CDR(a)) {
+    if (NCONSP(f)) goto Out;
+    if (NULLP(a)) Err("too few arguments to", who);
+  }
+  if (NNULLP(a)) Err("too many arguments to", who);
+ Out:
+  return STk_fast_extend_env(formals, actuals, env);
+}
+
+
+
+PRIMITIVE STk_symbol_boundp(SCM x, SCM env)
+{
+  SCM tmp;
+
+  if (NSYMBOLP(x)) Err("symbol-bound?: not a symbol", x);
+  if (env == UNBOUND) env = STk_globenv;
+  else 
+    if (NENVP(env)) Err("symbol-bound?: bad environment", env);
+
+  tmp = *STk_varlookup(x, env->storage_as.env.data, FALSE);
+  return (tmp == UNBOUND) ? Ntruth : Truth;
+}
+
+PRIMITIVE STk_the_environment(SCM args, SCM env, int len)
+{
+  if (len) Err("the-environement: Too much parameters", args);
+  return STk_makeenv(env, 0);
+}
+
+PRIMITIVE STk_parent_environment(SCM env)
+{
+  if (NENVP(env)) Err("parent->environment: bad environment", env);
+
+  return (env==STk_globenv) ? Ntruth: STk_makeenv(CDR(env->storage_as.env.data),0);
+}
+
+PRIMITIVE STk_global_environment(void)
+{
+  return STk_globenv;
+}
+
+static SCM local_env2list(SCM l)
+{
+  register SCM res=NIL, l1, l2;
+
+  for (l1=CAR(l), l2=CDR(l); NNULLP(l1); l1=CDR(l1), l2=CDR(l2))
+    if (CONSP(l1))
+      res = Cons(Cons(CAR(l1), CAR(l2)), res);
+    else
+      /* We had a dotted list */
+      return  Cons(Cons(l1, l2), res);
+  return res;
+}
+
+
+PRIMITIVE STk_environment2list(SCM env)
+{
+  SCM l, res = NIL;
+
+  if (NENVP(env)) Err("environment->list: bad environment", env);
+
+  for (l=env->storage_as.env.data; NNULLP(l); l=CDR(l))
+    res = Cons(local_env2list(CAR(l)), res);
+  
+  res = Cons(STk_global_env2list(), res);
+  return Reverse(res);
+}
+
+
+PRIMITIVE STk_environmentp(SCM obj)
+{
+  return ENVP(obj)? Truth: Ntruth;
+}
diff --git a/Src/error.c b/Src/error.c
new file mode 100644
index 0000000..4e1f665
--- /dev/null
+++ b/Src/error.c
@@ -0,0 +1,96 @@
+/*
+ *
+ * e r r o r . c 			-- The error procedure
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 14-Nov-1993 14:58
+ * Last file update:  2-Jun-1996 21:49
+ */
+
+#include "stk.h"
+
+static jmp_buf global_jmp_buf; 		/* Jump buffer denoting toplevel context */
+jmp_buf *Top_jmp_buf = &global_jmp_buf;
+
+long Error_context = ERR_FATAL;
+
+
+void STk_err(char *message, SCM x)
+{
+  SCM tmp;
+  static int err_counter=0; /* to avoid loops when REPORT_ERROR proc is buggy */
+  char head[MAX_PATH_LENGTH+50];
+
+  err_counter += 1;
+
+  STk_reset_eval_hook();
+
+  if (!(Error_context & ERR_IGNORED)) {
+    /* Error is not ignored: A message must be printed */
+    if (*message) {
+      switch (Error_context) {
+        case ERR_READ_FROM_STRING: 
+	  	strcpy(head,"*** Read from string error:\n"); break;
+        case ERR_FATAL: 	
+	case ERR_OK:
+	        if (STk_current_filename==UNBOUND)
+		  sprintf(head, "*** Error:\n");
+		else {
+		  sprintf(head, "*** Error at line %d of file %s:\n",
+			  STk_line_counter, CHARS(STk_current_filename));
+		  STk_current_filename = UNBOUND;
+		}
+		break;
+#ifdef USE_TK
+	case ERR_TCL_BACKGROUND:    
+	  	strcpy(head, "*** Background error:\n"); break;
+#endif
+      }
+
+      tmp = VCELL(Intern(REPORT_ERROR));
+      if (tmp!=UNBOUND && STk_procedurep(tmp)==Truth &&  err_counter==1 && *message)
+	Apply(tmp, LIST3(STk_makestring(head), 
+			 STk_makestring(message), 
+			 STk_uncode(x)));
+      else {
+	if (err_counter>1) 
+	  fprintf(STk_stderr, "WARNING: %s is buggy!!\n", REPORT_ERROR);
+	fprintf(STk_stderr, "\n%s    %s", head, message);
+	if (NNULLP(x)) {
+	  fprintf(STk_stderr, ": "); 
+	  STk_print(STk_uncode(x), STk_curr_eport, WRT_MODE);
+	}
+	STk_show_eval_stack(5);
+      }
+    }
+    fflush(STk_stdout); fflush(STk_stderr);
+    STk_reset_eval_stack();
+    /* 
+     * Do all the terminal thunk of dynamic winds and make a long jump to
+     * location retained in Top_jmp_buf 
+     */
+    STk_unwind_all();
+  }
+
+  err_counter = 0;
+  switch (Error_context) {
+    case ERR_FATAL: 
+      STk_panic("FATAL ERROR IN CRITICAL CODE SECTION. ABANDON\n");
+    default:
+      longjmp(*Top_jmp_buf, JMP_ERROR);
+  }
+}
diff --git a/Src/eval.c b/Src/eval.c
new file mode 100644
index 0000000..14ee5f9
--- /dev/null
+++ b/Src/eval.c
@@ -0,0 +1,669 @@
+/*
+ *
+ * e v a l . c				-- The evaluator
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 23-Oct-1993 21:37
+ * Last file update:  2-Sep-1996 19:18
+ */
+
+#include "stk.h"
+#include "extend.h"
+#ifdef USE_STKLOS
+#  include "stklos.h"
+#endif
+
+#define RETURN(x)		{tmp = (x); goto Out; }
+
+/*
+ * STk_eval_flag indicates if eval has something to test (a ^C has
+ * occured, a eval-hook to apply, ...). Using this flag allow to
+ * minimize the number of tests done in eval the eval function (which
+ * must be as fast as possible since we spent most of our time in it).
+ * When this flag is up, the set of possible "diverting" things are 
+ * tested.
+ * This flag could also probably used for implementing a thread mechanism.
+ *
+ */
+
+int STk_eval_flag = 0;
+
+/*
+ * Eval stack
+ * 
+ * The eval stack is a stack of the arguments passed to eval. This stack permits
+ * to facilitate debugging  of Scheme programs. Its contents is displayed 
+ * when an error occurs.
+ * Note that "STk_eval_stack" does'nt need to be protected since it contains 
+ * pointers which are themselves copies of the eval C routine. Eval parameters
+ * will be marked as are all the objects which are in the C stack
+ * */
+
+static struct Stack_info {
+  SCM expr, env;
+  struct Stack_info *previous;
+} *stack = NULL;
+
+
+void STk_show_eval_stack(int depth)
+{
+  int j;
+  struct Stack_info *p;
+
+  fprintf(STk_stderr, "\nCurrent eval stack:\n__________________\n");
+  for (p=stack, j=0; p && j<=depth ; p=p->previous, j++) {
+    fprintf(STk_stderr, "%3d    ", j);
+    STk_print(STk_uncode(p->expr), STk_curr_eport, WRT_MODE);
+    Putc('\n', STk_stderr);
+    if (j == depth && p->previous) fprintf(STk_stderr, "...\n");
+  }
+}
+
+void STk_reset_eval_stack(void)
+{
+  stack = NULL;
+}
+
+PRIMITIVE STk_get_eval_stack(void)
+{
+  struct Stack_info *p;
+  SCM 		     z = NIL;
+  
+  for (p = stack; p ; p = p->previous) z = Cons(p->expr, z);
+  
+  return STk_reverse(z);
+}
+
+PRIMITIVE STk_get_env_stack(void)
+{
+  struct Stack_info *p;
+  SCM 		     z = NIL;
+  
+  for (p = stack; p ; p = p->previous)  {
+    /* Avoid to create an environment for each item */
+    SCM tmp = (z!=NIL && STk_equal(CAR(z)->storage_as.env.data,p->env)==Truth) ?
+      		CAR(z): 
+      		STk_makeenv(p->env, 0);
+    z = Cons(tmp, z);
+  }
+  return  STk_reverse(z);
+}
+
+
+SCM STk_top_env_stack(void)
+{
+  return stack ? STk_makeenv(stack->env, 0): STk_globenv;
+}
+
+static SCM eval_args(SCM l, SCM env)
+{
+  SCM result,v1,v2;
+
+  if (NULLP(l)) return NIL;
+
+  v1 = result = Cons(EVALCAR(l), NIL);
+  
+  for(v2=CDR(l); CONSP(v2); v2=CDR(v2)) {
+    v1 = CDR(v1) = Cons(EVALCAR(v2),NIL);
+  }
+  return result;
+}
+
+static SCM eval_cond(SCM *pform, SCM env)
+{
+  SCM l, clause, tmp, res = Truth;
+
+  for (l=*pform; NNULLP(l); l = CDR(l)) {
+    clause = CAR(l);
+    /* We are sure that clause is a cons here (see syntax_cond) */
+    if (EQ(CAR(clause), Sym_else) || (res=EVALCAR(clause)) != Ntruth) {
+      tmp = CDR(clause);
+      if (NULLP(tmp))  SYNTAX_RETURN(res, Ntruth);
+      if (NCONSP(tmp)) goto Error;
+
+      if (EQ(CAR(tmp), Sym_imply)) {
+	/* Clause is ((condition) => function) */
+	if (STk_llength(tmp) != 2) Err("cond: malformed `=>'", tmp);
+	SYNTAX_RETURN(Apply(EVALCAR(CDR(tmp)), LIST1(res)), Ntruth);
+      }
+      else {
+	for( ; NNULLP(CDR(tmp)); tmp=CDR(tmp))
+	  EVALCAR(tmp);
+	SYNTAX_RETURN(CAR(tmp), Truth);
+      }
+    }
+  }
+  SYNTAX_RETURN(UNDEFINED, Ntruth);
+Error:
+  Err("cond: bad clause body", clause);
+  return UNDEFINED; /* never reached */
+}
+
+/*
+ * *eval-hook* management.
+ *
+ * STk eval-hook mechanism is similar to the CL one. The *eval-hook*
+ * Scheme variable is managed as a C-variable which has a getter and a
+ * setter function associated to it. The functions below allow to
+ * manage a stack of hooks in the C stack. Each hook info is stored in
+ * a Eval_hook_info structure
+ * 
+ */
+
+struct Eval_hook_info {
+  SCM hook;
+  int bypass_check;
+  struct Eval_hook_info *previous;
+};
+
+static struct Eval_hook_info  eval_hook_bottom;
+static struct Eval_hook_info *eval_hook_stack = &eval_hook_bottom;
+
+
+static SCM get_eval_hook(char *s)
+{
+  return eval_hook_stack->hook;
+}
+
+static void set_eval_hook(char *unused, SCM value)
+{
+  if (value == Ntruth) {
+    eval_hook_stack	   = &eval_hook_bottom;
+    eval_hook_stack->hook  = Ntruth;
+  }
+  else {
+    if (STk_procedurep(value) == Ntruth) 
+      STk_err("Hook value must be #f or a procedure. It is", value);
+
+    eval_hook_stack->hook  	  = value;
+    eval_hook_stack->bypass_check = FALSE;
+    SET_EVAL_FLAG(1);
+  }
+}
+
+static SCM handle_eval_hook(SCM x, SCM env)
+{
+  struct Eval_hook_info info;
+  SCM res;
+  
+  /* Reset eval-hook to avoid recursive application */
+  info.previous     = eval_hook_stack;
+  info.hook         = Ntruth;
+  info.bypass_check = FALSE;
+  eval_hook_stack   = &info;
+
+  /* Call user code */
+  res = STk_apply(info.previous->hook, LIST2(x, STk_makeenv(env, 0)));
+  
+  /* If we are here, everything was correct */
+  eval_hook_stack = info.previous;
+  SET_EVAL_FLAG(1);
+  return res;
+}
+
+
+void STk_reset_eval_hook(void)
+{
+  eval_hook_stack		= &eval_hook_bottom;
+  eval_hook_stack->hook     	= Ntruth;
+  eval_hook_stack->bypass_check = FALSE;
+  eval_hook_stack->previous 	= &eval_hook_bottom; /* itself */
+}
+
+
+void STk_init_eval_hook(void)
+{
+  STk_define_C_variable(EVAL_HOOK, get_eval_hook, set_eval_hook);
+  STk_gc_protect(&eval_hook_bottom.hook);
+  STk_reset_eval_hook();
+}
+
+
+PRIMITIVE STk_eval_hook(SCM x, SCM env, SCM hook)
+{
+  SCM res;
+  struct Eval_hook_info info;
+
+  info.hook         = hook;
+  info.bypass_check = TRUE;
+  info.previous     = eval_hook_stack;
+  eval_hook_stack   = &info;
+  SET_EVAL_FLAG(1);
+
+  res = STk_eval(x, env->storage_as.env.data);
+  eval_hook_stack = info.previous;
+  SET_EVAL_FLAG(1);
+
+  return res;
+}
+
+/*
+ *
+ * E V A L
+ * 
+ */
+
+SCM STk_eval(SCM x, SCM env)
+{
+  register SCM tmp, fct;
+  register int len;
+  struct Stack_info infos;
+
+  infos.previous = stack; stack = &infos;
+Top:
+  infos.expr = x; infos.env = env; 
+  if (STk_eval_flag) {
+    /* We have something to test before evaluating the form:
+     *		- a ^C ?
+     *		- *eval-hook*?
+     */
+    
+    if (STk_control_C && !STk_sigint_counter) STk_handle_signal(SIGINT);
+    
+    if (eval_hook_stack->hook != Ntruth) {
+      if (eval_hook_stack->bypass_check) {
+	eval_hook_stack->bypass_check = FALSE;
+	if (CONSP(x)) {
+	  fct = EVAL(CAR(x)); /* Don't use EVALCAR here of course */
+	  goto Apply_args;
+	}
+      }
+      else
+	RETURN(handle_eval_hook(x, env));
+    }
+    SET_EVAL_FLAG(STk_control_C || 
+		  (eval_hook_stack->hook != Ntruth));
+  }
+
+  switch TYPE(x) {
+    case tc_symbol:
+         RETURN(*STk_varlookup(x, env, 1));
+    case tc_globalvar:
+	 RETURN(VCELL(VCELL(x)));
+    case tc_localvar:
+	 RETURN(STk_localvalue(x, env));
+    case tc_cons: {
+ 	 /* Evaluate the first argument of this list (without calling eval) */
+	 tmp = CAR(x);
+	 switch TYPE(tmp) {
+           case tc_symbol:
+	        fct=*STk_varlookup(x, env, 1);
+		break;
+	   case tc_cons:
+		fct = EVAL(tmp); break;
+	   case tc_globalvar:
+		fct = VCELL(VCELL(tmp)); break;
+	   case tc_localvar:
+		fct = STk_localvalue(tmp, env); break;
+           default:
+		fct = tmp;
+  	 }
+
+         Apply_args:
+	 /* Find length of the parameter list */
+	 for (len=0, tmp=CDR(x); NNULLP(tmp); len++, tmp=CDR(tmp))
+	   if (NCONSP(tmp)) Err("eval: malformed list", x);
+
+	 /* apply parameters to fct */
+	 tmp = CDR(x);
+	 switch (TYPE(fct)) {
+	   case tc_subr_0:
+	        if (len == 0) RETURN(SUBR0(fct)());
+		goto Error;
+	   case tc_subr_1:
+		if (len == 1) RETURN(SUBRF(fct)(EVALCAR(tmp)));
+		goto Error;
+	   case tc_subr_2:
+		if (len == 2) RETURN(SUBRF(fct)(EVALCAR(tmp), 
+						EVALCAR(CDR(tmp))));
+		goto Error;
+	   case tc_subr_3:
+		if (len == 3) RETURN(SUBRF(fct)(EVALCAR(tmp),
+						EVALCAR(CDR(tmp)),
+						EVALCAR(CDR(CDR(tmp)))));
+		goto Error;
+	   case tc_subr_0_or_1:
+		switch (len) {
+		  case 0: RETURN(SUBRF(fct)(UNBOUND));
+		  case 1: RETURN(SUBRF(fct)(EVALCAR(tmp)));
+		  default: goto Error;
+		}
+	   case tc_subr_1_or_2:
+		switch (len) {
+		  case 1: RETURN(SUBRF(fct)(EVALCAR(tmp), UNBOUND));
+		  case 2: RETURN(SUBRF(fct)(EVALCAR(tmp), 
+					    EVALCAR(CDR(tmp))));
+		  default: goto Error;
+		}
+	   case tc_subr_2_or_3:
+		switch (len) {
+		  case 2: RETURN(SUBRF(fct)(EVALCAR(tmp), 
+					    EVALCAR(CDR(tmp)),
+					    UNBOUND));
+		  case 3: RETURN(SUBRF(fct)(EVALCAR(tmp), 
+					    EVALCAR(CDR(tmp)),
+					    EVALCAR(CDR(CDR(tmp)))));
+		  default: goto Error;
+		}
+	   case tc_ssubr:
+		RETURN(SUBRF(fct)(tmp, env, TRUE));
+	   case tc_fsubr:
+		RETURN(SUBRF(fct)(tmp, env, len));
+	   case tc_syntax:
+		if (SUBRF(fct)(&x, env, len) == Truth) goto Top;
+		RETURN(x);
+	   case tc_lsubr:
+		RETURN(SUBRF(fct)(eval_args(tmp, env), len));
+#ifdef USE_STKLOS
+	   case tc_instance:
+	        tmp = eval_args(tmp, env);
+
+	        if (PUREGENERICP(fct)) {
+		  /* Do it in C */
+		  if (NULLP(THE_SLOT_OF(fct, S_methods)))
+		    Apply(VCELL(Intern("no-method")), LIST2(fct, tmp));
+
+		  fct = STk_compute_applicable_methods(fct, tmp, len, FALSE);
+		  /* fct is the list of applicable methods. Apply the
+		   * first one with the tail of the list as first
+		   * parameter (next-method). If fct is NIL, that's because
+		   * the no-applicable-method triggered didn't call error.
+		   */
+		  if (NULLP(fct)) RETURN(UNDEFINED);
+		  tmp = Cons(STk_make_next_method(CDR(fct), tmp), tmp);
+		  fct = THE_SLOT_OF(CAR(fct), S_procedure);
+		  env = STk_extend_env(CLOSURE_PARAMETERS(fct),
+				       tmp,
+				       fct->storage_as.closure.env,
+				       x);
+		  tmp = CDR(fct->storage_as.closure.code);
+		  goto Begin;
+		}
+		else
+		  /* Do it in Scheme */
+		  RETURN(STk_apply_user_generic(fct, tmp));
+
+	   case tc_next_method:
+	        /* By nature, next methods cannot be recursive; so, we can 
+		 * call the apply-next-method function */
+	        RETURN(STk_apply_next_method(fct, eval_args(tmp, env)));
+#endif		       
+#ifdef USE_TK
+	  case tc_tkcommand:
+	    	RETURN(STk_execute_Tcl_lib_cmd(fct, tmp, env, 1));
+#endif
+	   case tc_closure:
+		env = STk_extend_env(CLOSURE_PARAMETERS(fct),
+				     eval_args(tmp, env),
+				     fct->storage_as.closure.env,
+				     x);
+		tmp = CDR(fct->storage_as.closure.code);
+		/* NOBREAK */
+Begin:	   case tc_begin:
+		for( ; NNULLP(CDR(tmp)); tmp=CDR(tmp))
+		  EVALCAR(tmp);
+		x = CAR(tmp);
+	        goto Top;
+	   case tc_cont:
+		if (len == 1) STk_throw(fct, EVALCAR(tmp));
+		goto Error;
+	   case tc_let:
+		env = STk_fast_extend_env(CAR(tmp), 
+					  eval_args(CAR(CDR(tmp)),env), 
+					  env);
+		tmp = CDR(CDR(tmp));
+		goto Begin;
+	   case tc_letstar:
+		{
+		  SCM l1=CAR(tmp), l2=CAR(CDR(tmp));
+		  /* Create a rib to avoid that internal def be seen as global  */
+		  env = STk_fast_extend_env(NIL, NIL, env); 
+		  for ( ; NNULLP(l1); l1=CDR(l1), l2=CDR(l2))
+		    env = STk_fast_extend_env(Cons(CAR(l1), NIL), 
+					      Cons(EVALCAR(l2), NIL), env);
+		  tmp =  CDR(CDR(tmp));
+		  goto Begin;
+		}
+	   case tc_letrec:
+		{
+		  SCM bindings = NIL, l1=CAR(tmp), l2=CAR(CDR(tmp));
+		  
+		  /* Make a binding list an extend current with it */
+		  for (len=STk_llength(l1); len; len--) 
+		    bindings=Cons(UNBOUND,bindings);
+		  env = STk_fast_extend_env(l1, bindings, env);
+
+		  /* Eval init forms in the new environment */
+		  for (l1 = CAR(tmp); NNULLP(l1); l1=CDR(l1), l2=CDR(l2))
+		    *(STk_varlookup(CAR(l1), env, 0)) = EVALCAR(l2);
+
+		  /* Evaluate body */
+		  tmp =  CDR(CDR(tmp));
+		  goto Begin;
+		}
+           case tc_macro:
+	        x = Apply(fct->storage_as.macro.code, x);
+	        goto Top;
+	   case tc_quote:
+		RETURN(CAR(tmp));
+	   case tc_lambda:
+		NEWCELL(x, tc_closure);
+		x->storage_as.closure.env  = env;
+		x->storage_as.closure.code = tmp;
+		RETURN(x);
+	   case tc_if:
+		x = NEQ(EVALCAR(tmp), Ntruth) ? CAR(CDR(tmp))
+					      : CAR(CDR(CDR(tmp)));
+		goto Top;
+	   case tc_setq:
+		*(STk_varlookup(CAR(tmp), env, 0)) = EVALCAR(CDR(tmp));
+		if (TRACED_VARP(CAR(tmp))) STk_change_value(CAR(tmp), env);
+		RETURN(UNDEFINED);
+	   case tc_cond:
+		/* Don't use tmp because 
+		 *     1) it's in a register 
+		 *     2) we can arrive from tc_syntax 
+		 */
+		x = CDR(x); /* x is a "normal" var */
+		if (eval_cond(&x, env) == Truth) goto Top;
+		RETURN(x);
+	   case tc_and:
+		if (!len) RETURN(Truth);
+		for (--len ; len; len--, tmp=CDR(tmp))
+		  if (EVALCAR(tmp) == Ntruth) RETURN(Ntruth);
+		x=CAR(tmp);
+		goto Top;
+	   case tc_or:
+		if (!len) RETURN(Ntruth);
+		for (--len; len; len--, tmp=CDR(tmp))
+		  if ((fct=EVALCAR(tmp)) != Ntruth) RETURN(fct);
+		x=CAR(tmp);
+		goto Top;
+	   case tc_call_cc:
+		if (len != 1) goto Error;
+		x = EVALCAR(tmp);
+		if (STk_do_call_cc(&x) == Truth) goto Top;
+		RETURN(x);
+	   case tc_extend_env:
+	     	fct = EVALCAR(tmp);
+	        if (NENVP(fct)) Err("extend-env: bad environment", fct);
+		tmp = CDR(tmp);
+		env = STk_append(LIST2(fct->storage_as.env.data, env), 2);
+		goto Begin;
+	   case tc_apply:
+		tmp = eval_args(tmp, env);
+		fct = CAR(tmp);
+		tmp = STk_liststar(CDR(tmp),len-1);
+		if (STk_llength(tmp) == -1) Err("apply: bad parameter list", tmp);
+
+		switch (TYPE(fct)) {
+		  case tc_closure: env=STk_extend_env(
+		    				CAR(fct->storage_as.closure.code),
+						tmp,
+						fct->storage_as.closure.env,
+						x);
+		    		   tmp = CDR(fct->storage_as.closure.code);
+		    		   goto Begin;
+		    case tc_apply: /* Here we are not tail recursive. (i.e. when
+				    * we have something like (apply apply f ...)
+				    * We cannot use a goto, since we should go again
+				    * in tc_apply which will re-evaluates its 
+				    * parameters. However, this kind of call 
+				    * should be rare ...
+				    */
+				   RETURN(Apply(fct, tmp));
+		    case tc_call_cc:
+		    case tc_dynwind: x=Cons(fct, tmp);
+				     goto Top;
+#ifdef USE_STKLOS
+		    case tc_instance:
+		      		     RETURN(STk_apply_generic(fct, tmp));
+		    case tc_next_method:
+		      		     RETURN(STk_apply_next_method(fct,tmp));
+#endif
+		    default: 	     RETURN(Apply(fct, tmp));
+		}
+           default:
+		if (EXTENDEDP(fct)) {
+		  if (STk_extended_eval_parameters(fct)) 
+		    tmp = eval_args(tmp, env);
+		  RETURN(STk_extended_apply(fct, tmp, env));
+		}
+	        Err("eval: bad function in ", x);
+	 }
+       }
+     default:
+       RETURN(x);
+     }
+Out:
+  stack = infos.previous;
+  return tmp;
+
+Error:
+  Err("eval: Bad number of parameters", x);
+  return UNDEFINED; /* never reached */
+}
+
+
+SCM STk_apply(SCM fct, SCM param)
+{
+Top:
+  switch TYPE(fct) {
+    case tc_subr_0:
+         if (NULLP(param)) return SUBR0(fct)();
+	 break;
+    case tc_subr_1:
+	 if  (STk_llength(param) == 1)return SUBRF(fct)(CAR(param));
+	 break;
+    case tc_subr_2:
+	 if (STk_llength(param) == 2)
+	   return SUBRF(fct)(CAR(param), CAR(CDR(param)));
+	 break;
+    case tc_subr_3:
+	 if (STk_llength(param) == 3)
+	   return SUBRF(fct)(CAR(param), CAR(CDR(param)), CAR(CDR(CDR(param))));
+	 break;
+    case tc_subr_0_or_1:
+	 switch (STk_llength(param)) {
+	   case 0: return SUBRF(fct)(UNBOUND);
+	   case 1: return SUBRF(fct)(CAR(param));
+	 }	 
+    case tc_subr_1_or_2:
+	 switch (STk_llength(param)) {
+	   case 1: return SUBRF(fct)(CAR(param), UNBOUND);
+	   case 2: return SUBRF(fct)(CAR(param), CAR(CDR(param)));
+	 }
+
+    case tc_subr_2_or_3:
+	 switch (STk_llength(param)) {
+	   case 2: return SUBRF(fct)(CAR(param), CAR(CDR(param)));
+	   case 3: return SUBRF(fct)(CAR(param), CAR(CDR(param)), 
+				     CAR(CDR(CDR(param))));
+	 }
+    case tc_ssubr:
+	 return SUBRF(fct)(param, NIL, STk_llength(param));
+    case tc_lsubr:
+	 return SUBRF(fct)(param, STk_llength(param));
+    case tc_cont:
+	 if (STk_llength(param) == 1)
+	   STk_throw(fct, CAR(param));	 
+    case tc_closure: { 
+         register SCM env = STk_extend_env(CAR(fct->storage_as.closure.code),
+				       param,
+				       fct->storage_as.closure.env,
+				       fct);
+	 register SCM code;
+	 
+	 for(code=CDR(fct->storage_as.closure.code); NNULLP(code); code=CDR(code))
+	   param = EVALCAR(code);
+	 return param;
+       }
+#ifdef USE_STKLOS
+    case tc_instance:
+        return STk_apply_generic(fct, param);
+    case tc_next_method:
+        return STk_apply_next_method(fct, param);
+#endif
+#ifdef USE_TK
+    case tc_tkcommand:
+      	return STk_execute_Tcl_lib_cmd(fct, param, NIL, 0);
+#endif
+    case tc_apply:
+	 fct   = CAR(param);
+	 param = STk_liststar(CDR(param), STk_llength(CDR(param)));
+	 goto Top;
+    default:
+	 if (EXTENDEDP(fct)) 
+	   if (STk_extended_procedurep(fct)) 
+	     return STk_extended_apply(fct, param, UNBOUND);
+	 Err("apply: bad procedure", fct);
+  }
+
+  Err("apply: bad number of arguments to apply", Cons(fct,param));
+  return UNDEFINED; /* never reached */
+}
+
+
+PRIMITIVE STk_user_eval(SCM expr, SCM env)
+{
+  if (env == UNBOUND) env = STk_globenv;
+  else 
+    if (NENVP(env)) Err("eval: bad environment", env);
+
+  /* If expr is a list, make a copy of it to avoid the user to see it modified
+   * (i.e. "recoded") when eval returns
+   */
+  if (CONSP(expr)) expr = STk_copy_tree(expr);
+  return STk_eval(expr, env->storage_as.env.data);
+}
+
+
+PRIMITIVE STk_eval_string(SCM str, SCM env)
+{
+  SCM result;
+
+  if (env == UNBOUND) env = STk_globenv;
+  else 
+    if (NENVP(env)) Err("eval-string: bad environment", env);
+
+  if (NSTRINGP(str)) Err("eval-string: Bad string", str);
+  result = STk_internal_eval_string(CHARS(str), 
+				    ERR_READ_FROM_STRING, 
+				    env->storage_as.env.data);
+  return result == EVAL_ERROR? UNDEFINED: result;
+}
diff --git a/Src/extend.c b/Src/extend.c
new file mode 100644
index 0000000..988cf66
--- /dev/null
+++ b/Src/extend.c
@@ -0,0 +1,277 @@
+/*
+ *
+ * e x t e n d . c			-- All the stuff dealing with 
+ *					   extended types
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 15-Mar-1995 11:31
+ * Last file update: 10-Jun-1996 00:02
+ */
+
+#include "stk.h"
+#include "extend.h"
+
+#define EXT_TYPE_DESCR(x)	(xtypes[TYPE(x)- tc_start_extd])
+
+static STk_extended_scheme_type *xtypes[tc_stop_extd-tc_start_extd+1];
+static int extended_type_stamp = tc_start_extd;
+
+
+/******************************************************************************
+ * 
+ * Extended Types
+ *
+ ******************************************************************************/
+
+/***
+ ***
+ *** Default functions
+ ***
+ ***/ 
+
+static void internal_display(SCM obj, SCM port, int mode)
+{
+  sprintf(STk_tkbuffer, "#<%s %lx>", (EXT_TYPE_DESCR(obj))->type_name, 
+	  			     (unsigned long) obj);
+  Puts(STk_tkbuffer, PORT_FILE(port));
+}
+
+static SCM internal_apply(SCM obj, SCM args, SCM env)
+{
+  Err("apply: bad procedure", obj);
+  return UNDEFINED; /* to make the compiler happy */
+}
+
+static SCM internal_compare(SCM x, SCM y, int equalp)
+{
+  return Ntruth;
+}
+
+/***
+ *** 
+ *** Utilities
+ *** 
+ ***/
+void STk_extended_mark(SCM x)
+{
+  STk_extended_scheme_type *p= EXT_TYPE_DESCR(x);
+  if (p->gc_mark_fct) (*(p->gc_mark_fct))(x);
+}
+
+void STk_extended_sweep(SCM x)
+{
+  STk_extended_scheme_type *p = EXT_TYPE_DESCR(x);
+  if (p->gc_sweep_fct) (*(p->gc_sweep_fct))(x);
+}
+
+SCM STk_extended_apply(SCM x, SCM args, SCM env)
+{
+  return (*(EXT_TYPE_DESCR(x)->apply_fct))(x, args, env);
+}
+
+void STk_extended_display(SCM x, SCM port, int mode)
+{
+  (*(EXT_TYPE_DESCR(x)->display_fct))(x, port, mode);
+}
+
+int STk_extended_procedurep(SCM x)
+{
+  return (EXT_TYPE_DESCR(x)->flags && EXT_ISPROC);
+}
+
+int STk_extended_eval_parameters(SCM x)
+{
+  return (EXT_TYPE_DESCR(x)->flags && EXT_EVALPARAM);
+}
+
+SCM STk_extended_compare(SCM x, SCM y, int equalp)
+{
+  /* One of x or y (at least) is extended. */
+  return EXTENDEDP(x) ? (*(EXT_TYPE_DESCR(x)->compare_fct))(x, y, equalp)
+		      : (*(EXT_TYPE_DESCR(y)->compare_fct))(x, y, equalp);
+}
+
+/******************************************************************************
+ * 
+ * C-pointer
+ *
+ ******************************************************************************/
+
+typedef void (*STk_disp_function)(SCM x, SCM port, int mode);
+
+static int Cpointer_id 		        = 0;
+static int size       		        = 0;
+static STk_disp_function *display_array = NULL;
+
+
+static void Cpointer_default_display(SCM obj, SCM port, int mode)
+{
+  sprintf(STk_tkbuffer, "#<C-pointer %d %lx>", EXTID(obj), EXTDATA(obj));
+  Puts(STk_tkbuffer, PORT_FILE(port));
+}
+
+
+void STk_Cpointer_display(SCM obj, SCM port, int mode)
+{
+  (*(display_array[EXTID(obj)]))(obj, port, mode);
+}
+
+
+/******************************************************************************
+ *
+ * C variable 
+ *
+ ******************************************************************************/
+
+static Tcl_HashTable Cvars;
+static C_hash_table_initialized = 0;
+
+struct get_n_set_box {
+  SCM (*getter)();
+  void (*setter)();
+};
+
+		  
+SCM STk_apply_getter_C_variable(char *var)
+{
+  Tcl_HashEntry *entry;
+  
+  if (entry = Tcl_FindHashEntry(&Cvars, var)) {
+    struct get_n_set_box *p = (struct get_n_set_box *) Tcl_GetHashValue(entry);
+    
+    return (*(p->getter))(var);
+  }
+  else {
+    fprintf(STk_stderr, "internal error: %s variable has no getter!!\n", var);
+    return UNDEFINED;    
+  }
+}
+
+void STk_apply_setter_C_variable(char *var, SCM value)
+{  
+  Tcl_HashEntry *entry;
+  
+  if (entry = Tcl_FindHashEntry(&Cvars, var)) {
+    struct get_n_set_box *p = (struct get_n_set_box *) Tcl_GetHashValue(entry);
+    
+    (*(p->setter))(var, value);
+  }
+  else
+    fprintf(STk_stderr, "internal error: %s variable has no setter!!\n", var);
+}
+
+  
+/******************************************************************************
+ *
+ * Extended types and C-pointer User interface
+ *
+ ******************************************************************************/
+
+int STk_add_new_type(STk_extended_scheme_type *p)		       
+{
+  if (!p) Err("bad new type description", NIL);
+  
+  /* Set the apply procedure if not defined */
+  if (!p->apply_fct) p->apply_fct = internal_apply;
+
+  /* Replace NULL display function by a default function */
+  if (!p->display_fct) p->display_fct = internal_display;
+
+  /* Replace NULL compare function by a default function */
+  if (!p->compare_fct) p->compare_fct = internal_compare;
+
+  /* Store the new type descriptor in the xtypes array */
+  xtypes[extended_type_stamp - tc_start_extd] = p;
+
+  return extended_type_stamp++;
+}
+
+void STk_add_new_primitive(char *fct_name, int fct_type, struct obj * (*fct_ptr)())
+{
+  SCM z;
+
+  NEWCELL(z, fct_type);
+  z->storage_as.subr0.name = fct_name;
+  z->storage_as.subr0.f    = fct_ptr;
+  VCELL(Intern(fct_name))  = z;
+}
+
+SCM STk_eval_C_string(char *s, SCM env)
+{
+  SCM tmp = STk_internal_eval_string(s, ERR_OK, env);
+  return tmp == EVAL_ERROR ? NULL: tmp;
+}
+
+			 /*************************/
+
+int STk_new_Cpointer_id(void (*display_func)(SCM x, SCM port, int mode))
+{
+  if (++Cpointer_id >= size) {
+    if (display_array == NULL) {
+      display_array = must_malloc(10*sizeof (STk_disp_function));
+      size = 10;
+    }
+    else {
+      size += size / 2;
+      display_array = must_realloc(display_array, 
+				   size * sizeof (STk_disp_function));
+    }
+  }
+  /* store function in array */
+  display_array[Cpointer_id]= display_func? display_func : Cpointer_default_display;
+  return Cpointer_id;
+}
+
+SCM STk_make_Cpointer(int Cpointer_id, void *ptr, int staticp)
+{
+  register SCM z;
+
+  NEWCELL(z, tc_Cpointer);
+  EXTDATA(z)    = ptr;
+  EXTID(z)      = Cpointer_id;
+  EXTSTATICP(z) = staticp;
+  return z;
+}
+
+			 /*************************/
+
+void STk_define_C_variable(char *var, SCM (*getter)(), void (*setter)())
+{
+  Tcl_HashEntry *entry;
+  int new;
+  struct get_n_set_box *p;
+
+  if (!C_hash_table_initialized) {
+    /* First C-var. Create Hash table */
+    Tcl_InitHashTable(&Cvars, TCL_STRING_KEYS);
+    C_hash_table_initialized = 1;
+  }
+  
+  p         = must_malloc(sizeof(struct get_n_set_box));
+  p->getter = getter;
+  p->setter = setter;
+  entry     = Tcl_CreateHashEntry(&Cvars, var, &new);
+  if (!new) {
+    fprintf(STk_stderr, "Attempt to multi-define C variable `%s' !!\n", var);
+    return;
+  }
+  Tcl_SetHashValue(entry, p);
+
+  /* Now enter variable in obarray and set its info field to C variable */
+  Intern(var)->cell_info = CELL_INFO_C_VAR;
+}
diff --git a/Src/extend.h b/Src/extend.h
new file mode 100644
index 0000000..908bab1
--- /dev/null
+++ b/Src/extend.h
@@ -0,0 +1,38 @@
+/*
+ *
+ * e x t e n d . h			-- All the stuff dealing with 
+ *					   extended types
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 15-Mar-1995 11:36
+ * Last file update: 26-Feb-1996 13:41
+ */
+
+
+void STk_extended_mark(SCM x);
+void STk_extended_sweep(SCM x);
+SCM  STk_extended_apply(SCM x, SCM args, SCM env);
+void STk_extended_display(SCM x, SCM port, int mode);
+int  STk_extended_procedurep(SCM x);
+int  STk_extended_eval_parameters(SCM x);
+SCM  STk_extended_compare(SCM x, SCM y, int equalp);
+
+void STk_Cpointer_display(SCM obj, SCM port, int mode);
+
+SCM STk_apply_getter_C_variable(char *var);
+void STk_apply_setter_C_variable(char *var, SCM value);
diff --git a/Src/gc.c b/Src/gc.c
new file mode 100644
index 0000000..377d1b0
--- /dev/null
+++ b/Src/gc.c
@@ -0,0 +1,607 @@
+/*
+ *
+ *  g c . c			-- Mark and Sweep Garbage Collector 
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 17-Feb-1993 12:27
+ * Last file update: 29-Aug-1996 11:46
+ *
+ */
+
+#include "stk.h"
+#include "gc.h"
+#ifdef USE_STKLOS
+#  include "stklos.h"
+#endif
+#ifdef USE_TK
+#  include "tk-glue.h"
+#endif
+
+
+#define MIN_HEAP	100	/* A too small value cause an infinite loop */
+#define VALID_ADDRESS(heap_org, p)					    \
+	((p >= heap_org) && (p < heap_org + heap_size) &&		    \
+	 (((((char *)p) - ((char *)heap_org)) % sizeof(struct obj)) == 0))
+
+#define HEAPS_INCREMENT 10
+
+#define gc_mark(ptr)	STk_gc_mark(ptr)
+
+struct gc_protected {
+  SCM *location;
+  struct gc_protected *next;
+};
+
+
+/* exported vars */
+SCM 	STk_freelist;
+SCM 	*STk_stack_start_ptr;
+double  STk_total_gc_time = 0.0;
+long    STk_alloc_cells;
+int	STk_gc_requested = 0;
+
+/* internal vars */
+static jmp_buf	save_regs_gc_mark;
+static long	gc_cells_collected;
+static long	heap_size      = INITIAL_HEAP_SIZE;
+static int	gc_verbose     = 0;
+static int	gc_calls       = 0;
+static SCM 	*heaps 	       = NULL;
+static int 	heaps_length   = 0;
+static int	heaps_used     = 0;
+static double   time_gc_start;
+
+static struct gc_protected  *protected_registers = NULL;
+
+static no_memory(void)
+{
+  STk_panic("**** No more memory. Cannot allocate a new heap. Stop\n");
+}
+
+static void allocate_new_heap(void)
+{
+  SCM ptr, next;
+  SCM heap_org, heap_end;
+
+  /* Don't use must_malloc here since it can conduct to call GC when 
+   * allocating large heaps (typically with large -cells xxx)
+   */
+
+  if (heaps_used == heaps_length) {
+    /* Realloc heaps */
+    heaps_length += HEAPS_INCREMENT;
+    heaps         = (heaps_used) ?  realloc(heaps, heaps_length*sizeof(SCM)):
+				    malloc(heaps_length*sizeof(SCM));
+    if (!heaps) no_memory();
+  }
+  ptr = (SCM) malloc(sizeof(struct obj)*heap_size);
+  if (ptr) {
+    heap_org =  heaps[heaps_used++] = ptr;
+    heap_end = heap_org + heap_size;
+  }
+  else 
+    no_memory();
+
+  /* Prepare heap space */
+  for(ptr = heap_org, next=ptr+1; ptr < heap_end; ptr=next, next=ptr+1) {
+    ptr->type      = tc_free_cell;
+    ptr->cell_info = 0;
+    ptr->gc_mark   = 0;
+    CDR(ptr) = (next < heap_end) ? next : STk_freelist;
+  }
+  STk_freelist = heap_org;
+
+  if (gc_verbose)
+    fprintf(STk_stderr, ";; [new heap allocated (%d/%d)]\n", 
+	    		heaps_used, heaps_length);
+}
+
+static void gc_start(void)
+{
+  time_gc_start       = STk_my_time();
+  gc_calls           += 1;
+  gc_cells_collected  = 0;
+  gc_verbose	      = (VCELL(Intern(GC_VERBOSE)) != Ntruth);
+
+  if (gc_verbose) fprintf(STk_stderr, ";; [starting GC]\n");
+}
+
+static void gc_end(void)
+{
+  long total_cells, used_cells;
+  double time_for_this_gc;
+
+  total_cells = heaps_used * heap_size;
+  used_cells  = total_cells - gc_cells_collected;
+
+  time_for_this_gc   = STk_my_time() - time_gc_start;
+  STk_total_gc_time += time_for_this_gc;
+
+  /* 
+   * If heap is more than 75% filled after gc, allocate a new heap to 
+   * avoid continuous GCs
+   */
+  if (((float) used_cells / total_cells) > 0.75) allocate_new_heap();
+
+  STk_gc_requested = 0;
+
+  if (gc_verbose) 
+    fprintf(STk_stderr, ";; [end of GC (cells used: %ld/%ld; time: %.2fms)]\n", 
+	    	        used_cells, total_cells, time_for_this_gc);
+  STk_handle_signal(SIGHADGC);
+}
+
+
+void STk_gc_count_cells(long *allocated, long *used, long* calls)
+{
+  register SCM ptr, heap_org, heap_end;
+  register long used_cells = 0L;
+  int i;
+
+  for (i=0; i < heaps_used; i++) {
+    heap_org = heaps[i];
+    heap_end = heap_org + heap_size;
+
+    for(ptr = heap_org; ptr < heap_end; ptr++) 
+      if (NTYPEP(ptr, tc_free_cell)) used_cells	+= 1;
+  }
+
+  *allocated = heaps_used * heap_size;
+  *used      = used_cells;
+  *calls     = (long) gc_calls;
+}
+
+
+
+
+int STk_valid_address(SCM p)	/* True if p is a valid address. Used for #Pxyz */
+{
+  int i;
+  
+  for(i=0; i < heaps_used; i++) {
+    register SCM heap_org=heaps[i];
+    
+    if (VALID_ADDRESS(heap_org, p)) return TRUE;
+  }
+
+  return FALSE;
+}
+
+
+void STk_gc_mark(SCM ptr)
+{
+Top:
+   if (NULLP(ptr) || SMALL_CSTP(ptr)) return;
+   if (ptr->gc_mark)		      return;
+
+   ptr->gc_mark = GC_MARK;
+
+   switch (TYPE(ptr)) {
+     case tc_nil: 	  return;
+     case tc_cons:	  gc_mark(CAR(ptr));ptr = CDR(ptr); goto Top;
+     case tc_flonum:	  return;
+     case tc_integer:	  return;
+     case tc_bignum:	  return;
+     case tc_symbol:      ptr = VCELL(ptr);goto Top;
+     case tc_keyword:	  return;  
+     case tc_subr_0:	  return;
+     case tc_subr_1:	  return;
+     case tc_subr_2:	  return;
+     case tc_subr_3:	  return;
+     case tc_subr_0_or_1: return;
+     case tc_subr_1_or_2: return;
+     case tc_subr_2_or_3: return;
+     case tc_lsubr:	  return;
+     case tc_ssubr:	  return;
+     case tc_fsubr:	  return;
+     case tc_syntax:	  return;
+     case tc_closure:	  gc_mark(ptr->storage_as.closure.code);
+			  ptr = ptr->storage_as.closure.env;
+			  goto Top;
+     case tc_free_cell:	  /* -----> Error */
+     case tc_char:	  return;
+     case tc_string:	  return;
+     case tc_vector:	  {
+       			    long j;
+			    for(j = 0;j < ptr->storage_as.vector.dim; j++)
+			      gc_mark(ptr->storage_as.vector.data[j]);
+			    return;
+			  }
+     case tc_eof:      	  return;
+     case tc_undefined:	  return;
+     case tc_iport:	  
+     case tc_oport:	  gc_mark(PORT_REVENT(ptr)); 
+			  ptr = PORT_WEVENT(ptr);       
+			  goto Top;
+     case tc_isport:	  return;
+     case tc_osport:	  return;
+     case tc_boolean:	  return;
+     case tc_macro:	  ptr = ptr->storage_as.macro.code; goto Top;
+     case tc_localvar:	  ptr = ptr->storage_as.localvar.symbol; goto Top;
+     case tc_globalvar:	  ptr = VCELL(ptr); goto Top;
+     case tc_cont:	  ptr = STk_mark_continuation(ptr);
+       			  goto Top;
+     case tc_env:
+     case tc_address:	  ptr = ptr->storage_as.env.data;
+			  goto Top;
+     case tc_autoload:	  ptr = CAR(ptr);
+       			  goto Top;
+     case tc_Cpointer:    return;
+#ifdef USE_STKLOS
+     case tc_instance: 	  {
+       			    /* ACCESSORS_OF(ptr) doesn't need to be marked since it 
+			     * is always accessible from SLOTS_OF(CLASS_OF(ptr))
+			     */
+       			    long j;
+
+			    gc_mark(CLASS_OF(ptr));
+			    for (j = 0; j < NUMBER_OF_SLOTS(ptr); j++)
+			      gc_mark(THE_SLOT_OF(ptr, j));
+			    return;
+			  }
+     case tc_next_method: gc_mark(CAR(ptr)); ptr = CDR(ptr); goto Top;
+#endif
+#ifdef USE_TK
+     case tc_tkcommand:	  ptr = ptr->storage_as.tk.l_data; goto Top;
+#endif
+     case tc_quote:	  return;
+     case tc_lambda:	  return;
+     case tc_if:	  return;
+     case tc_setq:	  return;
+     case tc_cond:	  return;
+     case tc_and:	  return;
+     case tc_or:	  return;
+     case tc_let:	  return;
+     case tc_letstar:	  return;
+     case tc_letrec:	  return;
+     case tc_begin:	  return;
+     case tc_promise: 	  ptr = ptr->storage_as.promise.expr; goto Top;
+     case tc_apply:
+     case tc_call_cc:	  return;
+     case tc_dynwind:	  return;
+     case tc_extend_env:  return;
+     case tc_unbound:     return;
+     default:		  if (EXTENDEDP(ptr)) {STk_extended_mark(ptr); return;}
+   }
+   /* if we are here, it's an implementation error. Signal it */
+   fprintf(STk_stderr, "INTERNAL ERROR: trying to mark %lx (type=%d)\n", 
+	               (unsigned long) ptr, TYPE(ptr));
+}
+
+static void gc_sweep(void)
+{
+  SCM ptr, heap_org, heap_end, nfreelist;
+  long n;
+  int  i;
+
+  n 	    =  0;
+  nfreelist = NIL;
+
+  for (i = 0; i < heaps_used; i++) {
+    /* Sweep a heap */
+    heap_org = heaps[i];
+    heap_end = heap_org + heap_size;
+
+    for (ptr=heap_org; ptr < heap_end; ptr++) {
+      if (ptr->gc_mark == 0) {
+	switch (TYPE(ptr)) {
+          case tc_nil: 	       break;
+	  case tc_cons:	       break;
+	  case tc_flonum:      free(ptr->storage_as.flonum.data);
+	  case tc_integer:     break;
+	  case tc_bignum:      mpz_clear(BIGNUM(ptr)); free(BIGNUM(ptr)); break;
+	  case tc_symbol:      STk_free_symbol(ptr); break;
+	  case tc_keyword:     STk_free_keyword(ptr); break;
+	  case tc_subr_0:      break;
+	  case tc_subr_1:      break;
+	  case tc_subr_2:      break;
+	  case tc_subr_3:      break;
+	  case tc_subr_0_or_1: break;
+	  case tc_subr_1_or_2: break;
+	  case tc_subr_2_or_3: break;
+	  case tc_lsubr:       break;
+	  case tc_ssubr:       break;
+	  case tc_fsubr:       break;
+	  case tc_syntax:      break;
+	  case tc_closure:     break;
+	  case tc_free_cell:   break;
+	  case tc_char:	       break;
+	  case tc_string:      free(ptr->storage_as.string.data); break;
+	  case tc_vector:      free(ptr->storage_as.vector.data); break;
+	  case tc_eof:         break;
+	  case tc_undefined:   break;
+	  case tc_iport:       
+	  case tc_oport:       STk_freeport(ptr); break;
+	  case tc_isport:      
+	  case tc_osport:      STk_free_string_port(ptr); break;
+	  case tc_boolean:     break;
+	  case tc_macro:       break;
+	  case tc_localvar:    break;
+	  case tc_globalvar:   break;
+	  case tc_cont:	       free(ptr->storage_as.cont.data); break;
+	  case tc_env:	       break;
+	  case tc_address:     break;
+	  case tc_autoload:    break;
+	  case tc_Cpointer:    if (!EXTSTATICP(ptr)) free(EXTDATA(ptr)); break;
+#ifdef USE_STKLOS
+	  case tc_instance:    free(INST(ptr)); 	break;
+	  case tc_next_method: break;
+#endif
+#ifdef USE_TK
+	  case tc_tkcommand:  if (! ptr->storage_as.tk.data->deleted)
+	    			 Tcl_internal_DeleteCommand
+				     (STk_main_interp, ptr->storage_as.tk.data->Id);
+			       free(ptr->storage_as.tk.data);
+			       break;
+#endif
+	  case tc_quote:       break;
+	  case tc_lambda:      break;
+	  case tc_if:	       break;
+	  case tc_setq:	       break;
+	  case tc_cond:	       break;
+	  case tc_and:	       break;
+	  case tc_or:	       break;
+	  case tc_let:	       break;
+	  case tc_letstar:     break;
+	  case tc_letrec:      break;
+	  case tc_begin:       break;
+	  case tc_promise:     break;
+	  case tc_apply:       break;
+	  case tc_call_cc:     break;
+	  case tc_dynwind:     break;
+	  case tc_extend_env:  break;
+	  case tc_unbound:     break;
+	  default:	       if (EXTENDEDP(ptr))
+	    			STk_extended_sweep(ptr);
+	  		       else
+				 fprintf(STk_stderr,
+					 "FATAL ERROR: trying to sweep %lx "
+					 "(type=%d)\n",
+					 (unsigned long) ptr, TYPE(ptr));
+        }
+	
+	/* Declare this cell free and put it in free list */
+	ptr->type	= tc_free_cell;
+	ptr->cell_info  = 0;
+	CDR(ptr)	= nfreelist;
+	nfreelist	= ptr;
+	n              += 1;
+      }
+      else 
+	ptr->gc_mark = 0;
+    }
+  }
+  gc_cells_collected = n;
+  STk_freelist 	     = nfreelist;
+}
+
+void STk_mark_stack(SCM *start, SCM *end)
+{
+  register SCM p, heap_org;
+  register long i, j, n;
+  
+  if (start > end) {
+    SCM *tmp;
+    tmp = start; start = end; end = tmp;
+  }
+  n = end - start;
+
+  if (gc_verbose)
+    fprintf(STk_stderr, "[Marking zone <0x%lx->0x%lx> (%ld words)]\n",
+	    (unsigned long) start, (unsigned long) end, (unsigned long) n);
+  for(j=0; j<n; j++) {
+    p = start[j];
+    /* if p looks as a SCM pointer mark location */
+    for (i=0; i < heaps_used; i++) {
+      heap_org = heaps[i];
+      if (VALID_ADDRESS(heap_org, p) && NTYPEP(p,tc_free_cell)) gc_mark(p);
+    }
+  }
+}
+
+static void mark_protected(void)
+{
+  struct gc_protected *reg;
+
+  /* Mark protected vars */
+  for(reg = protected_registers; reg; reg = reg->next) gc_mark(*(reg->location));
+  
+  /* Mark all objects accessible from obarray */
+  STk_mark_symbol_table();
+
+  /* Mark the signal table */
+  STk_mark_signal_table();
+
+  /* Mark the table of traced variables */
+  STk_mark_tracevar_table();
+
+#ifdef USE_TK
+  /* Mark all Tcl/Tk callbacks */
+  STk_mark_callbacks();
+#endif
+}
+
+
+static void gc_mark_and_sweep(void)
+{
+  SCM stack_end;	/* The topmost variable allocated on stack */
+
+  gc_start();
+  setjmp(save_regs_gc_mark);
+  STk_mark_stack((SCM *) save_regs_gc_mark,
+		 (SCM *) (((char *) save_regs_gc_mark)+sizeof(save_regs_gc_mark)));
+  mark_protected();
+  STk_mark_stack((SCM *) STk_stack_start_ptr, (SCM *) &stack_end);
+
+  gc_sweep();
+  gc_end();
+}
+
+void STk_gc_for_newcell(void)
+{
+  if (Error_context != ERR_FATAL) {
+    STk_disallow_sigint();
+    Error_context = ERR_FATAL;
+    gc_mark_and_sweep();
+    Error_context = ERR_OK;
+    STk_allow_sigint();
+    if (NNULLP(STk_freelist)) return;
+  }
+  Err("Out of storage",NIL);
+}
+
+
+PRIMITIVE STk_gc(void)
+{
+  STk_disallow_sigint();
+  Error_context = ERR_FATAL;
+  gc_mark_and_sweep();
+  Error_context = ERR_OK;
+  STk_allow_sigint();
+
+  return UNDEFINED;
+}
+
+void STk_gc_protect(SCM *location)
+{
+  struct gc_protected *reg;
+
+  reg = (struct gc_protected *) must_malloc(sizeof(struct gc_protected));
+  
+  reg->location 	= location;
+  reg->next     	= protected_registers;
+  protected_registers 	= reg;
+}
+
+void STk_gc_unprotect(SCM *location)
+{
+  struct gc_protected *reg, *prev;
+
+  for (prev=NULL, reg=protected_registers; reg; prev=reg, reg=reg->next) 
+    if (reg->location == location) {
+      if (prev) 
+	prev->next = reg->next;
+      else
+	protected_registers = reg->next;
+      free(reg);
+      return;
+    }
+}
+
+
+PRIMITIVE STk_gc_stats(void)
+{
+  int i, freq[tc_stop_extd+1];
+  register SCM ptr, heap_org, heap_end;
+  long used_cells = 0L;
+
+  /* Reset array of frequencies */
+  for (i=0; i <=tc_stop_extd; i++) freq[i] =  0;
+  
+  /* Fill the frequencies array */
+  for (i=0; i < heaps_used; i++) {
+    heap_org = heaps[i];
+    heap_end = heap_org + heap_size;
+
+    for(ptr = heap_org; ptr < heap_end; ptr++) {
+      if (NTYPEP(ptr, tc_free_cell)) {
+	used_cells 	+= 1;
+	freq[TYPE(ptr)] += 1;
+      }
+    }
+  }
+
+  /* Print statistics */
+  fprintf(STk_stderr, ";; GC statistics\n");
+  fprintf(STk_stderr, ";; -------------\n");
+  fprintf(STk_stderr, ";; cells used %ld/%ld\n", used_cells, heaps_used*heap_size);
+  fprintf(STk_stderr, ";; # of used heaps %d\n", heaps_used);
+  fprintf(STk_stderr, ";; # of GC calls %d (time spent in GC %.2fms)\n", 
+	  	      gc_calls, STk_total_gc_time);
+
+  for (i=0; i <= tc_stop_extd; i++)
+    if (freq[i]) fprintf(STk_stderr, "(%d %d) ", i,  freq[i]);
+  fprintf(STk_stderr, "\n;;\n");
+ 
+  return UNDEFINED;
+}
+
+
+PRIMITIVE STk_find_cells(SCM type)
+{
+  SCM ptr, z, heap_org, heap_end;
+  int i,t,l;
+
+  if (NINTEGERP(type)) Err("%find-cells: bad integer", type);
+  t = INTEGER(type);
+
+  /* Count how many items we have */
+  for (i=l=0; i < heaps_used; i++) {
+    heap_org = heaps[i];
+    heap_end = heap_org + heap_size;
+    
+    for (ptr=heap_org; ptr < heap_end; ptr++)
+      if (TYPEP(ptr, t)) l += 1;
+  }
+
+  /* Allocate a vector for the result */
+  z = STk_makevect(l, NULL);
+  l = 0;
+  
+  /* Place all the items in the newly created vector */
+  for (i=l=0; i < heaps_used; i++) {
+    heap_org = heaps[i];
+    heap_end = heap_org + heap_size;
+  
+    for (ptr=heap_org; ptr < heap_end; ptr++)
+      if (ptr != z && TYPEP(ptr, t))
+	VECT(z)[l++] = ptr;
+  }
+  return z;
+}
+
+PRIMITIVE STk_expand_heap(SCM arg)
+{
+  int i, number_of_heaps, wanted;
+
+  if (NINTEGERP(arg)) Err("expand-heap: bad integer", arg);
+
+  gc_verbose      = VCELL(Intern(GC_VERBOSE))!=Ntruth;
+  wanted	  = INTEGER(arg);
+  number_of_heaps = (wanted + heap_size - 1) / heap_size;
+  
+  for (i = heaps_used; i < number_of_heaps; i++)
+    allocate_new_heap();
+  return UNDEFINED;
+}
+
+#ifndef max
+#define max(a,b) (((a)<(b))?(b):(a))
+#endif 
+
+void STk_init_gc(void)
+{
+  STk_freelist = NIL;
+  if (STk_arg_cells) {
+    /* Set the heap size to the specified value */
+    int tmp = atoi(STk_arg_cells);
+    if (tmp > 0) heap_size = max(tmp,MIN_HEAP);
+  }
+  allocate_new_heap();
+}
diff --git a/Src/gc.h b/Src/gc.h
new file mode 100644
index 0000000..b984166
--- /dev/null
+++ b/Src/gc.h
@@ -0,0 +1,35 @@
+/*
+ *
+ *  g c . h			-- Mark and Sweep Garbage Collector 
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 17-Feb-1993 12:27
+ * Last file update: 10-Feb-1995 19:59
+ *
+ */
+
+#define GC_MARK			01 /* To mark a cell */
+
+extern SCM *STk_stack_start_ptr;
+extern double STk_total_gc_time;
+
+void STk_gc_count_cells(long *allocated, long *used, long *calls);
+void STk_mark_stack(SCM *start, SCM *end); 
+int  STk_valid_address(SCM p);      /* true if p is a valid address */
+void STk_init_gc(void);
diff --git a/Src/hash.c b/Src/hash.c
new file mode 120000
index 0000000..9da7218
--- /dev/null
+++ b/Src/hash.c
@@ -0,0 +1 @@
+../Extensions/hash.c
\ No newline at end of file
diff --git a/Src/html.c b/Src/html.c
new file mode 120000
index 0000000..8396e83
--- /dev/null
+++ b/Src/html.c
@@ -0,0 +1 @@
+../Extensions/html.c
\ No newline at end of file
diff --git a/Src/io.c b/Src/io.c
new file mode 100644
index 0000000..14622e2
--- /dev/null
+++ b/Src/io.c
@@ -0,0 +1,292 @@
+/*
+ * i o . c					-- Low level I/O
+ * 
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.	
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *	     Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: ????
+ * Last file update: 26-Sep-1996 21:29
+ */
+
+#ifdef WIN32
+#  include <windows.h>
+#  include <io.h>
+#  include <fcntl.h>
+#  define TCL_EVENT_FLAG TCL_DONT_WAIT /* (FIXME) */
+#else
+#  define TCL_EVENT_FLAG 0
+#endif
+
+#include "stk.h"
+#include "sport.h"
+
+#define BUFFER_SIZE	512
+#define SYSTEM(instr)	{ instr; }
+#define STRING_PORTP(f) (((struct str_iob *) f)->signature == SPORT_SIGNATURE)
+
+#ifdef max
+#   undef max
+#endif
+#define max(a,b) ((a)>(b)? (a) : (b))
+
+#ifdef _STDIO_USES_IOSTREAM  /* GNU libc */
+#  if defined(_IO_STDIO_H) || defined (linux)
+#    define READ_DATA_PENDING(fp) (max(0,(fp)->_IO_read_end - (fp)->_IO_read_ptr))
+#  else
+#    define READ_DATA_PENDING(fp) (max(0,(fp)->_egptr - (fp)->_gptr))
+#  endif
+#endif
+#if (!defined (READ_DATA_PENDING)) && defined __SLBF
+#  define READ_DATA_PENDING(fp) (max(0,fp->_r))
+#endif
+#if !defined (READ_DATA_PENDING)
+#  ifdef WIN32
+#    define READ_DATA_PENDING(fp) (1)
+#  else 
+#    define READ_DATA_PENDING(fp) (fp->_cnt)
+#  endif
+#endif
+
+
+#ifdef WIN32
+  FILE *STk_stdin, *STk_stdout, *STk_stderr;
+#endif
+
+static char buffer[BUFFER_SIZE+1];
+static int  bufidx=0;
+static int  count=-1;
+static int  previous_char;
+static int  ungetted = 0;
+static int  filled=0;
+
+
+static void badport(int read)
+{
+  Err(read ? "String port is not open for reading"
+           : "String port is not open for writing",
+      NIL);
+}
+
+static int nop(Tcl_Event *unused1, int unused2){ printf("Hello from new event\n"); }
+
+#ifdef WIN32
+static insert_dummy_event(void)
+{
+  struct Tcl_Event *p;
+
+  p = (Tcl_Event *) must_malloc(sizeof(struct Tcl_Event));
+  p->proc =  nop;
+  Tcl_QueueEvent(p, TCL_QUEUE_TAIL);
+}
+
+static DWORD Kbd_Thread(LPDWORD dumb)
+{
+  unsigned long size;
+
+  for ( ; ; ) {
+    ReadFile(GetStdHandle(STD_INPUT_HANDLE), buffer, BUFFER_SIZE, &size, NULL);
+    buffer[size] = '\0';
+    count	 = (int) size;
+    filled       = 1;
+  }
+  /* Never readched */
+  return 0;
+}
+#endif
+
+void STk_StdinProc()
+{
+  for ( ; ; ) {
+    SYSTEM(count = read(fileno(STk_stdin), buffer, BUFFER_SIZE););
+    if (count != -1 || errno != EINTR) break;
+  }
+  filled = 1;
+}
+
+
+int STk_file_data_available(FILE *f)
+{
+  if ((f == STk_stdin) && (bufidx < count)) return 1;
+  if (READ_DATA_PENDING(f))		    return 1;
+  return 0;
+}
+
+
+int STk_getc(FILE *f)
+{
+  if (f == STk_stdin) {
+    if (ungetted) {
+      ungetted = 0;
+      return previous_char;
+    }
+    if (bufidx < count) return buffer[bufidx++];
+    else {
+#ifdef USE_TK
+      if (Tk_initialized && STk_interactivep) {
+	filled = 0;
+	while (!filled) {
+	  Tcl_DoOneEvent(TCL_EVENT_FLAG);
+	  if (Tk_GetNumMainWindows() <= 0) return EOF;
+	}
+      }
+#  ifndef WIN32
+      else
+	STk_StdinProc();
+#  endif
+#else 
+      /* This code is for snow only (Unix and Win32 flavours) */
+      STk_StdinProc();
+#endif
+      if (count <= 0) return EOF;
+      else {
+	bufidx = 1;
+	return *buffer;
+      }
+    }
+  }
+  else
+    if (STRING_PORTP(f)) {
+      register struct str_iob *g = (struct str_iob *)f;
+      if (!(g->flag & READING)) badport(TRUE);
+      return (--(g->cnt)>=0? ((int)*g->ptr++): EOF);
+    }
+    else {
+      int result;
+      SYSTEM(result=getc(f));
+      return result;
+    }
+}
+
+int STk_ungetc(int c, FILE *f)
+{
+  if (f == STk_stdin) {
+    ungetted = 1;
+    previous_char = c;
+  }
+  else
+    if (STRING_PORTP(f)) {
+      register struct str_iob *g = (struct str_iob *)f;
+      if (g->ptr == g->base) Err("INTERNAL ERROR: cannont unget char", NIL);
+      if (!(g->flag & READING)) badport(TRUE);
+      g->ptr--;
+      g->cnt++;
+    }
+    else
+      SYSTEM(ungetc(c, f));
+  return c;
+}
+
+int STk_putc(int c, FILE *f)
+{
+  if (STRING_PORTP(f)) {
+    register struct str_iob *g = (struct str_iob *)f;
+    register int tmp;
+    
+    if (!(g->flag & WRITING)) badport(FALSE);
+    if (++g->cnt == g->bufsiz) {
+      tmp	 = g->bufsiz;
+      tmp	+= tmp/2;
+      g->base	 = must_realloc(g->base, tmp);
+      g->ptr	 = g->base + g->bufsiz - 1; /* since base can have been moved */
+      g->bufsiz	 = tmp;
+    }
+    *g->ptr++ = (char) c;
+  }
+  else {
+    SYSTEM(c=fputc(c, f));
+    /* Signal an error if write fails. We can't be very cute here */
+    if (c == EOF) Err("write-char: write error", NIL);
+  }
+  return c;
+}
+
+int STk_puts(char *s, FILE *f)
+{
+  if (STRING_PORTP(f)) {
+    while (*s) STk_putc(*s++, f);
+    return 0;
+  }
+  else {
+    int result;
+    SYSTEM(result = fputs(s, f));
+    if (result == EOF) Err("write: write-error", NIL);
+    return result;
+  }
+}
+
+int STk_eof(FILE *f)
+{
+  if (STRING_PORTP(f))
+    return (((struct str_iob *)f)->cnt <= 0);
+  else {
+    int result;
+    SYSTEM(result=feof(f));
+    return result;
+  }
+}
+
+
+char * STk_line_bufferize_io(FILE *f)
+{
+  char *buff;
+
+  if ((buff=malloc(BUFFER_SIZE)) == NULL)
+    panic("Cannot allocate a line buffer for output file");
+  setvbuf(f, buff, _IOLBF, BUFFER_SIZE);
+  return buff;
+}
+
+
+#ifdef WIN32
+  /* 
+   * Windows apps don't have an associated console. The following code
+   * associate a console to the 3 standard files.  However, for some
+   * reason, even when closing stdin stdout and stderr, I was not able
+   * to remap console files on the first enties. Hence, the file name
+   * change from stdin to STk_stdin ...	 
+   */
+#  include <windows.h>
+#  include <io.h>
+#  include <fcntl.h>
+
+
+  void STk_init_io(void)
+  {
+    HANDLE Fin, Fout, Ferr;
+    unsigned long dumb;
+    
+    if (AllocConsole()) {
+      Fin  = GetStdHandle(STD_INPUT_HANDLE);
+      Fout = GetStdHandle(STD_OUTPUT_HANDLE);
+      Ferr = GetStdHandle(STD_ERROR_HANDLE);
+      
+      fclose(stdin); fclose(stdout); fclose (stderr);
+      
+      STk_stdin	 = fdopen(_open_osfhandle((long) Fin,  O_RDONLY), "r");
+      STk_stdout = fdopen(_open_osfhandle((long) Fout, O_APPEND), "w");
+      STk_stderr = fdopen(_open_osfhandle((long) Ferr, O_APPEND), "w");
+      
+      fflush(STk_stdout);
+      SetConsoleTitle("  *** STk console ***  ");
+      
+      /* Create a thread for reading keyboard */
+#ifdef USE_TK
+      CreateThread(NULL, 100, (LPTHREAD_START_ROUTINE) Kbd_Thread, NULL, 0, &dumb);
+#endif
+    }
+    else
+      STk_panic("Cannot create Win32 console");
+  }
+#endif
diff --git a/Src/keyword.c b/Src/keyword.c
new file mode 100644
index 0000000..24f7994
--- /dev/null
+++ b/Src/keyword.c
@@ -0,0 +1,114 @@
+/*
+ *
+ * k e y w o r d . c				-- Keywords management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 19-Nov-1993 16:12
+ * Last file update: 13-May-1996 22:40
+ */
+
+#include "stk.h"
+
+static Tcl_HashTable k_table;
+
+void STk_initialize_keyword_table(void)
+{
+  Tcl_InitHashTable(&k_table, TCL_STRING_KEYS);
+}
+
+void STk_free_keyword(SCM keyword)
+{
+  Tcl_DeleteHashEntry(Tcl_FindHashEntry(&k_table, KEYVAL(keyword)));
+}
+
+SCM STk_makekey(char *token)
+{
+  Tcl_HashEntry *p;
+
+  *token = '-';  /* because keywords corresponds to Tk options */
+  if (p = Tcl_FindHashEntry(&k_table, token))
+    return (SCM) Tcl_GetHashValue(p);
+  else {
+    SCM keyword;
+    int absent;
+    
+   /* Be careful with GC: Create hash entry after the new cell to avoid 
+    * partially initialized table entry 
+    */
+    NEWCELL(keyword, tc_keyword);
+    p 	            = Tcl_CreateHashEntry(&k_table, token, &absent);
+    KEYVAL(keyword) = Tcl_GetHashKey(&k_table, p);
+    Tcl_SetHashValue(p, (ClientData) keyword);
+    return keyword;
+  }
+}
+
+PRIMITIVE STk_make_keyword(SCM str)
+{
+  SCM z;
+  char *s, *copy;
+
+  switch (TYPE(str)) {
+    case tc_string: s = CHARS(str); break;
+    case tc_symbol: s = PNAME(str); break;
+    default:        Err("make-keyword: Bad parameter", str);
+  }
+
+  copy = must_malloc(strlen(s)+2);
+  strcpy(copy+1, s); /* copy[0] will be set to '-' in STk_makekey */
+  z = STk_makekey(copy);
+  free(copy);
+
+  return z;
+}
+
+PRIMITIVE STk_keywordp(SCM obj)
+{
+  return KEYWORDP(obj)? Truth : Ntruth;
+}
+
+PRIMITIVE STk_keyword2string(SCM obj)
+{
+  SCM res;
+
+  if (NKEYWORDP(obj)) Err("keyword->string: bad keyword", obj);
+  res = STk_makestring(KEYVAL(obj));
+  CHARS(res)[0] = ':';
+  return res;
+}
+
+
+PRIMITIVE STk_get_keyword(SCM key, SCM l, SCM default_value)
+{
+  if (NKEYWORDP(key))   Err("get-keyword: bad keyword", key);
+  if (CONSP(l) || NULLP(l)) {
+    int i, len = STk_llength(l);
+
+    if (len< 0 || len&1) goto Error;
+
+    for (i = 0; i < len; i+=2) {
+      if (NKEYWORDP(CAR(l))) Err("get-keyword: bad keyword", CAR(l));
+      if (strcmp(KEYVAL(CAR(l)), KEYVAL(key)) == 0) return CAR(CDR(l));
+      l = CDR(CDR(l));
+    }
+    if (default_value == UNBOUND) Err("get-keyword: value not found for", key);
+    return default_value;
+  }
+Error:
+    Err("get-keyword: bad list", l);
+}
diff --git a/Src/list.c b/Src/list.c
new file mode 100644
index 0000000..28ff605
--- /dev/null
+++ b/Src/list.c
@@ -0,0 +1,293 @@
+/*
+ *
+ * l i s t . c			-- Lists procedures
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: ??-Oct-1993 21:37
+ * Last file update:  7-Nov-1995 21:36
+ */
+
+#include "stk.h"
+
+PRIMITIVE STk_pairp(SCM x)
+{
+  return CONSP(x) ? Truth : Ntruth;
+}
+
+PRIMITIVE STk_cons(SCM x, SCM y)
+{
+  SCM z;
+  NEWCELL(z,tc_cons);
+  CAR(z) = x;
+  CDR(z) = y;
+  return z;
+}
+
+PRIMITIVE STk_car(SCM x)
+{
+  if (TYPEP(x, tc_cons)) return CAR(x);
+  Err("car: wrong type of argument", x);
+}
+
+PRIMITIVE STk_cdr(SCM x)
+{
+  if (TYPEP(x, tc_cons)) return CDR(x);
+  Err("cdr: wrong type of argument", x);
+}
+
+PRIMITIVE STk_setcar(SCM cell, SCM value)
+{
+  if NCONSP(cell) Err("set-car!: wrong type of argument", cell);
+  CAR(cell) = value;
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_setcdr(SCM cell, SCM value)
+{
+  if NCONSP(cell) Err("set-cdr!: wrong type of argument", cell);
+  CDR(cell) = value;
+  return UNDEFINED;
+}
+
+static SCM internal_cxr(SCM l, char *fct)
+{
+  register SCM tmp = l;
+  register char *p;
+
+  for(p = fct + strlen(fct)-1; *p != 'X'; p--) {
+    if (NCONSP(tmp)) {
+      char name[50];
+      sprintf(name, "c%sr: bad list", fct+1);
+      Err(name, l);
+    }
+    tmp = (*p == 'a') ? CAR(tmp) : CDR(tmp);
+  }
+  return tmp;
+}
+
+PRIMITIVE STk_caar  (SCM l) { return internal_cxr(l, "Xaa");   }
+PRIMITIVE STk_cdar  (SCM l) { return internal_cxr(l, "Xda");   }
+PRIMITIVE STk_cadr  (SCM l) { return internal_cxr(l, "Xad");   }
+PRIMITIVE STk_cddr  (SCM l) { return internal_cxr(l, "Xdd");   }
+PRIMITIVE STk_caaar (SCM l) { return internal_cxr(l, "Xaaa");  }
+PRIMITIVE STk_cdaar (SCM l) { return internal_cxr(l, "Xdaa");  }
+PRIMITIVE STk_cadar (SCM l) { return internal_cxr(l, "Xada");  }
+PRIMITIVE STk_cddar (SCM l) { return internal_cxr(l, "Xdda");  }
+PRIMITIVE STk_caadr (SCM l) { return internal_cxr(l, "Xaad");  }
+PRIMITIVE STk_cdadr (SCM l) { return internal_cxr(l, "Xdad");  }
+PRIMITIVE STk_caddr (SCM l) { return internal_cxr(l, "Xadd");  }
+PRIMITIVE STk_cdddr (SCM l) { return internal_cxr(l, "Xddd");  }
+PRIMITIVE STk_caaaar(SCM l) { return internal_cxr(l, "Xaaaa"); }
+PRIMITIVE STk_cdaaar(SCM l) { return internal_cxr(l, "Xdaaa"); }
+PRIMITIVE STk_cadaar(SCM l) { return internal_cxr(l, "Xadaa"); }
+PRIMITIVE STk_cddaar(SCM l) { return internal_cxr(l, "Xddaa"); }
+PRIMITIVE STk_caadar(SCM l) { return internal_cxr(l, "Xaada"); }
+PRIMITIVE STk_cdadar(SCM l) { return internal_cxr(l, "Xdada"); }
+PRIMITIVE STk_caddar(SCM l) { return internal_cxr(l, "Xadda"); }
+PRIMITIVE STk_cdddar(SCM l) { return internal_cxr(l, "Xddda"); }
+PRIMITIVE STk_caaadr(SCM l) { return internal_cxr(l, "Xaaad"); }
+PRIMITIVE STk_cdaadr(SCM l) { return internal_cxr(l, "Xdaad"); }
+PRIMITIVE STk_cadadr(SCM l) { return internal_cxr(l, "Xadad"); }
+PRIMITIVE STk_cddadr(SCM l) { return internal_cxr(l, "Xddad"); }
+PRIMITIVE STk_caaddr(SCM l) { return internal_cxr(l, "Xaadd"); }
+PRIMITIVE STk_cdaddr(SCM l) { return internal_cxr(l, "Xdadd"); }
+PRIMITIVE STk_cadddr(SCM l) { return internal_cxr(l, "Xaddd"); }
+PRIMITIVE STk_cddddr(SCM l) { return internal_cxr(l, "Xdddd"); }
+
+PRIMITIVE STk_nullp(SCM x)
+{
+  return EQ(x, NIL) ? Truth: Ntruth;
+}
+
+int STk_llength(SCM l)
+{
+  register SCM start = l;
+  register int len   = 0;
+	
+  for ( ; ; ) {
+    if (NULLP(l)) return len;
+    if ((l == start && len) || NCONSP(l)) return -1;
+    l = CDR(l);
+    len += 1;
+  }
+}
+
+PRIMITIVE STk_listp(SCM x)
+{
+  return (STk_llength(x) < 0) ? Ntruth : Truth;
+}
+
+PRIMITIVE STk_list(SCM l, int len)
+{
+  /* len is unused here */
+  return l;
+}
+
+PRIMITIVE STk_list_length(SCM l)
+{
+  int len = STk_llength(l);
+  if (len >= 0) return STk_makeinteger((long) len);
+  Err("length: not calculable.", NIL);
+}
+
+static SCM append2(SCM l1, SCM l2)
+{
+  register SCM res, p;
+
+  if (NULLP(l1)) return l2;
+  if (NCONSP(l1)) goto Error;
+
+  for (res = NIL; ; l1 = CDR(l1)) {
+    if (NCONSP(l1))      goto Error;
+    if (res == NIL){
+      NEWCELL(res, tc_cons);
+      p = res;
+    }
+    else {
+      NEWCELL(CDR(p), tc_cons);
+      p = CDR(p);
+    }
+    CAR(p) = CAR(l1);
+    CDR(p) = NIL;		/* Keep alwys a valid list in case of a GC */
+    if (NCONSP(CDR(l1))) break;
+  }
+  CDR(p) = l2;
+  return res;
+Error: 
+   Err("append: argument is not a list", l1);
+}
+
+PRIMITIVE STk_append(SCM l, int len)
+{
+  switch (len) {
+    case 0:  return NIL;
+    case 1:  return CAR(l);
+    case 2:  return append2(CAR(l), CAR(CDR(l)));
+    default: return append2(CAR(l), STk_append(CDR(l), len-1));
+  }
+}
+
+PRIMITIVE STk_reverse(SCM l)
+{
+  SCM p, n = NIL;
+
+  for(p=l; NNULLP(p); p=CDR(p)) {
+    if (NCONSP(p)) Err("reverse: bad list", l);
+    n = Cons(CAR(p),n);
+  }
+  return n;
+}
+
+PRIMITIVE STk_list_tail(SCM list, SCM k)
+{
+  register long x;
+
+  if (NCONSP(list)) Err("list-tail: Bad list", list);
+  x = STk_integer_value(k);
+  if (x >= 0) {
+    SCM l = list;
+
+    for (l=list; x > 0; x--) {
+      if (NULLP(l) || NCONSP(l)) Err("list-tail: list too short", list);
+      l = CDR(l);
+    }
+    return l;
+  }
+  Err("list-tail: index must be exact positive integer", k);
+}
+
+PRIMITIVE STk_list_ref(SCM list, SCM k)
+{
+  register long x;
+
+  if (NCONSP(list)) Err("list-ref: Bad list", list);	
+  x = STk_integer_value(k);
+  if (x >= 0) {
+    SCM l = list;
+
+    for ( ; x > 0; x--) {
+      if (NULLP(l) || NCONSP(l)) goto Error;
+      l = CDR(l);
+    }
+    
+    if (CONSP(l)) return CAR(l);
+  Error: 
+    Err("list-ref: list too short", list);
+  }
+  Err("list-ref: index must be exact positive integer", k);
+}
+
+static SCM lmember(SCM obj, SCM list,  SCM (*predicate)(SCM, SCM) )
+{
+  register SCM ptr;
+	
+  if (NCONSP(list) && NNULLP(list)) goto Error;
+  for (ptr=list; NNULLP(ptr); ) { 
+    if (CONSP(ptr)) {
+      if ((*predicate)(CAR(ptr), obj) == Truth) return ptr;
+    }
+    else 
+      /* end of a dotted list */
+      return ((*predicate)(ptr, obj) == Truth) ? ptr : Ntruth;
+    if ((ptr=CDR(ptr)) == list) goto Error;
+  }
+  return Ntruth;
+Error:
+  Err("member function: Bad list", list);
+}
+
+PRIMITIVE STk_memq  (SCM obj, SCM list)	{return lmember(obj, list, STk_eq);   }
+PRIMITIVE STk_memv  (SCM obj, SCM list)	{return lmember(obj, list, STk_eqv);  }
+PRIMITIVE STk_member(SCM obj, SCM list)	{return lmember(obj, list, STk_equal);}
+
+static SCM lassoc(SCM obj, SCM alist, SCM (*predicate)(SCM, SCM))
+{
+  register SCM l,tmp;
+	
+  for(l=alist; CONSP(l); ) {
+    tmp = CAR(l);
+    if (CONSP(tmp) && (*predicate)(CAR(tmp), obj) == Truth) return tmp;
+    if ((l=CDR(l)) == alist) goto Error;
+  }
+  if (NULLP(l)) return(Ntruth);
+Error:
+  Err("assoc function: improper list", alist);
+}
+
+PRIMITIVE STk_assq (SCM obj, SCM alist){return lassoc(obj, alist, STk_eq);   }
+PRIMITIVE STk_assv (SCM obj, SCM alist){return lassoc(obj, alist, STk_eqv);  }
+PRIMITIVE STk_assoc(SCM obj, SCM alist){return lassoc(obj, alist, STk_equal);}
+
+
+/***
+ *
+ * Non standard functions 
+ *
+ ***/
+
+PRIMITIVE STk_liststar(SCM l, int len)
+{
+  if (len == 0) return NIL;
+  /* l is a pair */
+  return (len == 1) ? CAR(l) : STk_cons(CAR(l), STk_liststar(CDR(l), len-1));
+}
+
+PRIMITIVE STk_copy_tree(SCM l)
+{
+  return CONSP(l) ? STk_cons(STk_copy_tree(CAR(l)), STk_copy_tree(CDR(l))): l;
+}
diff --git a/Src/macros.c b/Src/macros.c
new file mode 100644
index 0000000..d80863f
--- /dev/null
+++ b/Src/macros.c
@@ -0,0 +1,83 @@
+/*
+ * m a c r o s . c			-- Simple statically scoped macros
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ??-Oct-1993 ??:?? 
+ * Last file update:  2-Jun-1995 22:42
+ *
+ */
+
+
+#include "stk.h"
+
+PRIMITIVE STk_macro(SCM args, SCM env, int len)
+{
+  SCM z, code;
+  
+  if (len != 2) Err("macro: Bad parameter list", args);
+
+  code = Cons(Sym_lambda, args); /* Create code before to avoid GC problems */
+  NEWCELL(z, tc_macro);
+  z->storage_as.macro.code = EVAL(code);
+  return z;
+}
+
+/*
+ * macro_expand and macro_expand_1 are defined as fsubr rather than subr_1.
+ * This provision permits to carry the environment with the form to expand
+ * (this permits to corerctly expanse macros which are not are global level, 
+ * since we do a varlookup instead of grabbing the macro in a global var).
+ * But are there people which define macros at a level which are not global?
+ *
+ */
+
+static SCM expand(SCM form, SCM env, int just_1)
+{
+  if (CONSP(form)) {
+    register SCM tmp, car = CAR(form);
+    
+    if (SYMBOLP(car) && MACROP(tmp = *STk_varlookup(car, env, FALSE))) {
+      tmp = Apply(tmp->storage_as.macro.code, form);
+      return just_1 ? tmp : expand(tmp, env, FALSE);
+    }
+  }
+  return form;
+}
+
+PRIMITIVE STk_macro_expand_1(SCM form, SCM env, int len)
+{
+  if (len != 1) Err("macro-expand-1: bad number of parameters", form);
+  return expand(EVAL(CAR(form)), env, TRUE);
+}
+
+PRIMITIVE STk_macro_expand(SCM form, SCM env, int len)
+{
+  if (len != 1) Err("macro-expand: bad number of parameters", form);
+  return expand(EVAL(CAR(form)), env, FALSE);
+}
+
+PRIMITIVE STk_macro_body(SCM form)
+{
+  if (NMACROP(form)) Err("macro-body: bad macro", form);
+  return Cons(Intern("macro"), CDR(form->storage_as.macro.code));
+}
+
+PRIMITIVE STk_macrop(SCM obj)
+{
+  return MACROP(obj)? Truth: Ntruth;
+}
+
diff --git a/Src/number.c b/Src/number.c
new file mode 100644
index 0000000..f5fcecb
--- /dev/null
+++ b/Src/number.c
@@ -0,0 +1,1245 @@
+/*
+ *
+ * n u m b e r . c				-- Numbers management
+ *
+ *
+ * Numbers recognized by the interpreter are:
+ *		- integer (which fit in a C long)
+ *		- bignum  (arbitrary precision integer)
+ *		- flonum  (represented as a C double)
+ *
+ * Bignum use the GNU gmp API. However to avoid to fall under the GPL terms
+ * you can use the FGMP package (FGMP is a public domain implementation of
+ * a subset of the GNU gmp library with the same API, written by Mark 
+ * Henderson <markh@wimsey.bc.ca>). If your concern is speed, and if the
+ * GPL is not a problem for you, use the gmp package. 
+ *
+ *
+ *****
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 12-May-1993 10:34
+ * Last file update: 25-Sep-1996 14:40
+ */
+
+#include "stk.h"
+
+#define SMALLNUMP(x)	(fabs(x) <= SMALLINT_MAX)
+#define ISINT(x)	(floor(x) == (x))
+
+/*  
+ * This interface has been added for the Frank Schmuelling complex-number
+ * package (Frank email is * <frank@zeus.ph1.Uni-Koeln.DE>). Don't rely on
+ * it, since rationnal and complex numbers will be present in a future
+ * release. As soon as the full tower will be implemented in STk, 
+ * this door will be closed.
+ */
+   
+#define do_addition 	_STk_do_addition
+#define do_substract 	_STk_do_substract
+#define do_multiply 	_STk_do_multiply
+#define do_divide 	_STk_do_divide
+#define bignum2double 	_STk_bignum2double
+
+
+static double do_compare(SCM x, SCM y);
+
+static SCM makesmallint(long x)
+{
+  SCM z;
+
+#ifndef COMPACT_SMALL_CST
+  NEWCELL(z, tc_integer);
+#endif
+  SET_INTEGER(z, x); 
+  return z;
+}
+
+static SCM makebignum(char *s)
+{
+  SCM z;
+  NEWCELL(z, tc_bignum); 
+  BIGNUM(z) = must_malloc(sizeof(MP_INT));
+  mpz_init_set_str(BIGNUM(z), s, 10);
+  return z;
+}
+
+
+/******************************************************************************
+ * 
+ * Conversion Functions 
+ *
+ ******************************************************************************/
+
+static int digitp(char c, int base)
+{
+  c = ('0' <= c && c <= '9') ? c - '0':
+      ('a' <= c && c <= 'f') ? c - 'a' + 10:
+      ('A' <= c && c <= 'F') ? c - 'A' + 10:
+      (c == '#')             ? 0      :
+      100;
+  return (c < base);
+}
+
+static SCM int2bignum(long n)
+{
+  SCM z;
+  NEWCELL(z, tc_bignum);
+  BIGNUM(z) = must_malloc(sizeof(MP_INT));
+  mpz_init_set_si(BIGNUM(z), n);
+  return z;
+}
+
+static double bignum2double(MP_INT *bn)
+{
+  char   *s= mpz_get_str(NULL, 10, bn);
+  double d = (double) atof(s);
+  
+  free(s);
+  return d;
+}
+
+static SCM double2integer(double n)	/* small or big depending of n's size */
+{
+  int i, j, size = 20;
+  char *tmp = NULL;
+  SCM z;
+
+  if (!ISINT(n)) Err("cannot convert this number to an integer", STk_makenumber(n));
+  
+  /* Try first to convert n to a long */
+  if (((double) SMALLINT_MIN <= n) && (n <= (double) SMALLINT_MAX))
+    return STk_makeinteger((long) n);
+
+  /* n doesn't fit in a long => build a bignum. THIS IS VERY INEFFICIENT */  
+  tmp = must_malloc(size);
+  i = 0;
+  if (n < 0.0) { tmp[i++] = '-'; n = -n; }
+  do {
+    if (i >= size) tmp = must_realloc(tmp, size *= 2);
+    tmp[i++] = (int) fmod(n, (double) 10) + '0';
+    n = floor(n / 10.0);
+  }
+  while (n > 0.0);
+  tmp[i] = 0;
+
+  /* Reverse the content of string tmp */
+  for (i=i-1, j=(tmp[0]=='-'); i > j; i--, j++) {
+    char c = tmp[i];
+    tmp[i] = tmp[j];
+    tmp[j] = c;
+  }
+
+  /* tmp contains a textual representation of n. Convert it to a bignum */
+  z = makebignum(tmp);
+  if (tmp) free(tmp);
+  return z;
+}
+
+
+
+/* Convert a number to a C-string. Result must be freed if != from buffer */
+char *STk_number2Cstr(SCM n, long base, char buffer[])
+{
+  char *s = buffer;
+  
+  switch (TYPE(n)) {
+    case tc_flonum:
+         if (base != 10) Err("base must be 10 for this number", n);
+         sprintf(buffer, "%.15g", FLONM(n));
+         if (strchr(buffer, '.') == NULL && strchr(buffer, 'e') == NULL) 
+	   strcat(buffer, ".0");
+	 return buffer;
+    case tc_integer:
+	 {
+	   long tmp, val = INTEGER(n);
+	   int u;
+
+	   if (base==2 || base==8 || base==10 || base==16) {
+	     if (val < 0) {
+	       val  = -val;
+	       *s++ = '-';
+	     }
+	     for (s++, tmp=val; tmp >= base; tmp /= base) s++;
+	     *s = '\000'; tmp = val;
+	     do {
+	       u = tmp % base;
+	       *(--s) = u + ((u < 10) ? '0' : 'a'-10);
+	       tmp   /= base;
+	     }
+	     while (tmp);
+	     return buffer;
+	   }
+	 }
+    case tc_bignum:
+	   if (base==2 || base==8 || base==10 || base==16) {
+	     s = must_malloc(mpz_sizeinbase(BIGNUM(n), base) + 2);
+	     s = mpz_get_str(s, base, BIGNUM(n));
+	     return s;
+	   }
+  }
+
+  Err("base must be 2, 8, 10 or 16", (base == LONG_MIN) ? NIL: makesmallint(base));
+  return NULL; /* never reached */
+}
+
+/* Return #f if the C string doesn't contain a valid number. */
+/* UGLY! must be rewritten */
+SCM STk_Cstr2number(char *str, long base)
+{
+  int i, adigit=0, isint=1, exact=' ', radix = 0;
+  char *start      = str;
+  register char *p = str;
+
+  for (i = 0; i < 2; i++) {
+    if (*p == '#') {
+      p += 1;
+      switch (*p++) {
+        case 'e': if (exact == ' ') { exact = 'e'; break; }  else return Ntruth;
+	case 'i': if (exact == ' ') { exact = 'i'; break; }  else return Ntruth;
+	case 'b': if (!radix) {base = 2;  radix = 1; break;} else return Ntruth;
+	case 'o': if (!radix) {base = 8;  radix = 1; break;} else return Ntruth;
+	case 'd': if (!radix) {base = 10; radix = 1; break;} else return Ntruth;
+	case 'x': if (!radix) {base = 16; radix = 1; break;} else return Ntruth;
+	default:  Err("bad # syntax", STk_makestring(str));
+      }
+      str += 2;
+    }
+    if (*p != '#') break;
+  }
+
+  if (base != 2 && base != 8 && base != 10 && base != 16)
+    Err("base must be 2, 8, 10 or 16", (base==LONG_MIN) ? NIL: makesmallint(base));
+  
+  if (*p == '-' || *p == '+') p+=1;
+  if (*p == '#') goto End;
+  while(digitp(*p, base)) { p+=1; adigit=1; if (*p == '#') isint = 0; }
+
+  if (*p=='.'){
+    isint = 0; p += 1;
+    while(digitp(*p, base)) { p+=1; adigit=1; }
+  }
+
+  if (!adigit) goto End;
+
+  if (*p && strchr("eEsSfFdDlL", *p)) {
+    isint = 0;
+    p += 1;
+    if (*p == '-' || *p == '+') p+=1;
+    if (!digitp(*p, base)) goto End; 
+    p+=1;
+    while (digitp(*p, base)) p+=1;
+  }
+  if (*p) goto End;
+
+  /* Now we are sure it is a number. Find the more adequate type */
+  if (isint) {
+    MP_INT n;
+
+    if (*str == '+') str+=1; /* mpz_init_set_str doesn't recognize +xyz !!! */
+    if (mpz_init_set_str(&n, str, base) < 0) {
+      mpz_clear(&n);
+      return Ntruth;
+    }
+    if (mpz_cmp_si(&n, SMALLINT_MIN) >=0 && mpz_cmp_si(&n, SMALLINT_MAX) <= 0) {
+      long num = mpz_get_si(&n);
+      mpz_clear(&n);
+      return (exact == 'i') ? STk_makenumber(num) : makesmallint(num);
+    }
+    /* It's a bignum */
+    if (exact == 'i') return STk_makenumber(bignum2double(&n));
+    else {
+      SCM z;
+
+      NEWCELL(z, tc_bignum);
+      BIGNUM(z) = must_malloc(sizeof(MP_INT));
+      mpz_init_set(BIGNUM(z), &n);
+      mpz_clear(&n);
+      return z;
+    }
+  }
+  
+  /* It's a float */
+  if (exact == 'e')
+    Err("#e cannot be specified on this number", STk_makestring(str));
+  if (base == 10) {
+    /* Replace sharp signs by 0 */
+    for(p=str; *p; p++) 
+      switch (*p) {
+	case '#': *p = '0'; break;
+	case 's': case 'S': case 'f': case 'F':
+	case 'd': case 'D': case 'l': case 'L': *p = 'e';
+      }
+    return STk_makenumber((double) atof(str));
+  }
+End:
+  if (*start ==  '#') Err("Bad # syntax", STk_makestring(start));
+  return Ntruth;
+}
+
+long STk_integer_value(SCM x) /* Returns LONG_MIN if not representable as int */
+{
+  if (INTEGERP(x)) return INTEGER(x);
+  if (BIGNUMP(x)) {
+    if (mpz_cmp_si(BIGNUM(x), SMALLINT_MIN)>=0 && 
+	mpz_cmp_si(BIGNUM(x), SMALLINT_MAX)<=0)
+      return mpz_get_si(BIGNUM(x));
+  }
+  return LONG_MIN;
+}
+
+long STk_integer_value_no_overflow(SCM x) /* Returns LONG_MIN if not an integer */
+{
+  if (INTEGERP(x)) return INTEGER(x);
+  if (BIGNUMP(x))  return mpz_get_si(BIGNUM(x));
+  return LONG_MIN;
+}
+
+int STk_equal_numbers(SCM number1, SCM number2) /* number1 = number2 */
+{
+  return do_compare(number1, number2) == 0;
+}
+
+/******************************************************************************
+ *
+ * Simple operations 
+ *
+ ******************************************************************************/
+
+static SCM clone(SCM number)
+{
+  /* clone a number */
+  switch (TYPE(number)) {
+    case tc_integer: return makesmallint(INTEGER(number));
+    case tc_bignum:  {
+      		       SCM z;
+		       
+		       NEWCELL(z, tc_bignum); 
+		       BIGNUM(z) = must_malloc(sizeof(MP_INT));
+		       mpz_init(BIGNUM(z));
+		       mpz_set(BIGNUM(z), BIGNUM(number));
+		       return z;
+		     }
+    case tc_flonum:  return STk_makenumber(FLONM(number));
+    default:	     /* This is not a number. Return the parameter unmodified. */
+                     return number; /* Error will be signaled later */
+  }
+}
+
+void _STk_do_multiply(SCM *x, SCM y)
+{
+  switch (TYPE(*x)) {
+    case tc_integer:
+         switch (TYPE(y)) {
+	   case tc_integer:
+	        {
+		  double prod;
+		  if (SMALLNUMP(prod=(double) INTEGER(*x) * INTEGER(y)))
+		    SET_INTEGER(*x, (long) prod);
+		  else {
+		    *x = int2bignum(INTEGER(*x));
+		    mpz_mul_ui(BIGNUM(*x), BIGNUM(*x), INTEGER(y));
+		  }
+		}
+		break;
+	   case tc_bignum:
+		*x = int2bignum(INTEGER(*x));
+		mpz_mul(BIGNUM(*x), BIGNUM(*x), BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(INTEGER(*x) * FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_bignum:
+	 switch (TYPE(y)) {
+	   case tc_integer: 
+	        {
+		  SCM tmp = int2bignum(INTEGER(y));
+		  mpz_mul(BIGNUM(*x), BIGNUM(*x), BIGNUM(tmp));
+		}
+		break;
+	   case tc_bignum:
+		mpz_mul(BIGNUM(*x), BIGNUM(*x),  BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(bignum2double(BIGNUM(*x)) * FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_flonum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	        FLONM(*x) *= INTEGER(y);
+		break;
+	   case tc_bignum:
+		FLONM(*x) *= bignum2double(BIGNUM(y));
+		break;
+	   case tc_flonum:
+		FLONM(*x) *= FLONM(y);
+		break;
+	 }
+	 break;
+  }
+}
+
+void _STk_do_addition(SCM *x, SCM y)
+{
+  switch (TYPE(*x)) {
+    case tc_integer:
+         switch (TYPE(y)) {
+	   case tc_integer:
+	        {
+		  double add;
+		  if (SMALLNUMP(add=(double) INTEGER(*x) + INTEGER(y)))
+		    SET_INTEGER(*x, (long) add);
+		  else {
+		    *x = int2bignum(INTEGER(*x));
+		    mpz_add_ui(BIGNUM(*x), BIGNUM(*x), INTEGER(y));
+		  }
+		}
+		break;
+	   case tc_bignum:
+		*x = int2bignum(INTEGER(*x));
+		mpz_add(BIGNUM(*x), BIGNUM(*x), BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(INTEGER(*x) + FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_bignum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	      {
+	        SCM tmp = int2bignum(INTEGER(y));
+		mpz_add(BIGNUM(*x), BIGNUM(*x), BIGNUM(tmp));
+	      }
+	      break;
+	   case tc_bignum:
+		mpz_add(BIGNUM(*x), BIGNUM(*x),  BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(bignum2double(BIGNUM(*x)) + FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_flonum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	        FLONM(*x) += INTEGER(y);
+		break;
+	   case tc_bignum:
+		FLONM(*x) += bignum2double(BIGNUM(y));
+		break;
+	   case tc_flonum:
+		FLONM(*x) += FLONM(y);
+		break;
+	 }
+	 break;
+  }
+}
+
+static void _STk_do_substract(SCM *x, SCM y)
+{
+  switch (TYPE(*x)) {
+    case tc_integer:
+         switch (TYPE(y)) {
+	   case tc_integer:
+	        {
+		  double add;
+		  if (SMALLNUMP(add=(double) INTEGER(*x) - INTEGER(y)))
+		    SET_INTEGER(*x,(long) add);
+		  else {
+		    *x = int2bignum(INTEGER(*x));
+		    mpz_sub_ui(BIGNUM(*x), BIGNUM(*x), INTEGER(y));
+		  }
+		}
+		break;
+	   case tc_bignum:
+		*x = int2bignum(INTEGER(*x));
+		mpz_sub(BIGNUM(*x), BIGNUM(*x), BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(INTEGER(*x) - FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_bignum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	      {
+	        SCM tmp = int2bignum(INTEGER(y));
+		mpz_sub(BIGNUM(*x), BIGNUM(*x), BIGNUM(tmp));
+	      }
+	      break;
+	   case tc_bignum:
+		mpz_sub(BIGNUM(*x), BIGNUM(*x),  BIGNUM(y));
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(bignum2double(BIGNUM(*x)) - FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_flonum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	        FLONM(*x) -= INTEGER(y);
+		break;
+	   case tc_bignum:
+		FLONM(*x) -= bignum2double(BIGNUM(y));
+		break;
+	   case tc_flonum:
+		FLONM(*x) -= FLONM(y);
+		break;
+	 }
+	 break;
+  }
+}
+
+static void _STk_do_divide(SCM *x, SCM y)
+{
+  switch (TYPE(*x)) {
+    case tc_integer:
+         switch (TYPE(y)) {
+	   case tc_integer:
+	        {
+		  double div = (double) INTEGER(*x) / INTEGER(y);
+		 
+		  if (ISINT(div))
+		    SET_INTEGER(*x, (double) div);
+		  else
+		    *x = STk_makenumber(div);
+		}
+		break;
+	   case tc_bignum:
+		{
+		  MP_INT q,  r;
+
+		  mpz_init(&q); mpz_init(&r);
+		  *x = int2bignum(INTEGER(*x));
+		  mpz_mdivmod(&q, &r, BIGNUM(*x), BIGNUM(y));
+		  if (mpz_cmp_ui(&r, 0L) == 0)
+		    mpz_set(BIGNUM(*x), &q);
+		  else
+		    *x=STk_makenumber(bignum2double(BIGNUM(*x)) /
+				      bignum2double(BIGNUM(y)));
+		  mpz_clear(&q); mpz_clear(&r);
+		}
+		break;
+	   case tc_flonum:
+		*x = STk_makenumber(INTEGER(*x) / FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_bignum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	   case tc_bignum:
+	      {
+		MP_INT q,  r;	
+
+		mpz_init(&q); mpz_init(&r);
+		if (INTEGERP(y)) 
+		  y = int2bignum(INTEGER(y));
+
+		mpz_mdivmod(&q, &r, BIGNUM(*x), BIGNUM(y));
+		if (mpz_cmp_ui(&r, 0L) == 0)
+		  mpz_set(BIGNUM(*x), &q);
+		else
+		  *x=STk_makenumber(bignum2double(BIGNUM(*x)) /
+				    bignum2double(BIGNUM(y)));
+		mpz_clear(&q); mpz_clear(&r);
+	      }
+	      break;
+	   case tc_flonum:
+		*x = STk_makenumber(bignum2double(BIGNUM(*x)) / FLONM(y));
+		break;
+	 }
+	 break;
+    case tc_flonum:
+	 switch (TYPE(y)) {
+	   case tc_integer:
+	        FLONM(*x) /= INTEGER(y);
+		break;
+	   case tc_bignum:
+		FLONM(*x) /= bignum2double(BIGNUM(y));
+		break;
+	   case tc_flonum:
+		FLONM(*x) /= FLONM(y);
+		break;
+	 }
+	 break;
+  }
+}
+
+static SCM do_integer_division(SCM x, SCM y, int quotientp)
+{
+  MP_INT q, r;
+  SCM res;
+  int exact = 1;
+
+  /* Divide x by y and return its quotient or remainder. y is not 0 */
+  if (FLONUMP(x))
+    if (ISINT(FLONM(x))) { x = double2integer(FLONM(x)); exact = 0; }
+    else Err("bad number in an integer division", x);
+  
+  if (FLONUMP(y))
+    if (ISINT(FLONM(y))) { y = double2integer(FLONM(y)); exact = 0; }
+    else Err("bad number in an integer division", y);
+  
+  /* Here, x and y can only be integer or bignum (not float) */
+  if (INTEGERP(x))
+    if (INTEGERP(y)) {
+      res = makesmallint(quotientp? INTEGER(x)/INTEGER(y):
+			  	     INTEGER(x)%INTEGER(y));
+      return exact? res : STk_exact2inexact(res);
+    }
+    else
+      x = int2bignum(INTEGER(x));
+  else {
+    /* x is a bignum */
+    if (INTEGERP(y))
+      y = int2bignum(INTEGER(y));
+  }
+  
+  /* x and y are both bignums */
+  res = makebignum("0");
+
+  mpz_init(&q); mpz_init(&r);
+  mpz_divmod(&q, &r, BIGNUM(x), BIGNUM(y)); /* use divmod instead of mdivmod */
+  mpz_set(BIGNUM(res), quotientp? &q : &r); /* Thanks to kerch@parc.xerox.com*/
+  mpz_clear(&q); mpz_clear(&r);
+  return exact? res : STk_exact2inexact(res);
+}
+
+static double do_compare(SCM x, SCM y)
+{
+  switch (TYPE(x)) {
+    case tc_integer:
+         switch (TYPE(y)) {
+	   case tc_integer: return (double) (INTEGER(x)-INTEGER(y));
+	   case tc_bignum:  return (double) -(mpz_cmp_si(BIGNUM(y), INTEGER(x)));
+	   case tc_flonum:  return (double) INTEGER(x) - FLONM(y);
+	 }
+    case tc_bignum:
+	 switch (TYPE(y)) {
+	   case tc_integer: return (double) mpz_cmp_si(BIGNUM(x), INTEGER(y));
+	   case tc_bignum:  return (double) mpz_cmp(BIGNUM(x), BIGNUM(y));
+	   case tc_flonum:  return bignum2double(BIGNUM(x))-FLONM(y);
+	 }
+    case tc_flonum:
+	 switch (TYPE(y)) {
+	   case tc_integer: return (FLONM(x) - (double) INTEGER(y));
+	   case tc_bignum:  return (FLONM(x) - bignum2double(BIGNUM(y)));
+	   case tc_flonum:  return (FLONM(x) - FLONM(y));
+	 }
+    default: return 0.0; /* never reached */
+  }
+}
+
+
+/******************************************************************************
+ * 
+ * Scheme primitives and utilities 
+ *
+ ******************************************************************************/
+
+SCM STk_makenumber(double x)
+{
+  /* Floats are not stored in a struct obj since this leads to memory consumption
+   * This  memory consumption due to alignment problems. 
+   * For instance on a Sun 4, where double are 8 bytes, a struct obj with a double
+   * in line will occupy 16 bytes whereas it occupies only 12 bytes if the double
+   * is mallocated.
+   * This change (94/08/29) will give worst performances when crunching numbers,
+   * but use Fortran if this is your job :->
+   */
+
+  SCM z;
+  NEWCELL(z,tc_flonum); 
+  (*z).storage_as.flonum.data = must_malloc(sizeof(double));
+  FLONM(z) = x; 
+  return z;
+}
+
+
+SCM STk_makeinteger(long x)
+{
+  return (SMALLINT_MIN <= x && x <= SMALLINT_MAX) ? makesmallint(x): int2bignum(x);
+}
+    
+
+/******************************************************************************/
+
+/**** Section 6.5 ****/
+
+PRIMITIVE STk_numberp(SCM x)
+{
+  return NUMBERP(x)? Truth : Ntruth;
+}
+
+PRIMITIVE STk_integerp(SCM x)
+{
+  switch (TYPE(x)) {
+    case tc_integer:
+    case tc_bignum: return Truth;
+    case tc_flonum: {
+      		      double val = FLONM(x);
+		      return (floor(val) == val)? Truth : Ntruth;
+		    }
+    default: return Ntruth;
+  }
+}
+
+PRIMITIVE STk_exactp(SCM x)
+{
+  if (NNUMBERP(x)) Err("exact?: Bad number", x);
+  return EXACTP(x) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_inexactp(SCM x)
+{
+  if (NNUMBERP(x)) Err("inexact?: Bad number", x);
+  return NEXACTP(x) ? Truth: Ntruth;
+}
+
+
+#define Compare(name, operator)					\
+PRIMITIVE name(SCM l, SCM env, int from_eval)			\
+{								\
+  register SCM tmp1, tmp2;					\
+								\
+  if (NCONSP(l)) Err("too few parameters", l);			\
+  tmp1 = from_eval? EVALCAR(l): CAR(l);				\
+  if (NNUMBERP(tmp1)) goto Error;				\
+								\
+  for (l=CDR(l); NNULLP(l); l=CDR(l),tmp1=tmp2) {		\
+    tmp2 = from_eval? EVALCAR(l): CAR(l);			\
+    if (NNUMBERP(tmp2)) goto Error;				\
+    if (do_compare(tmp1, tmp2) operator 0) return Ntruth;	\
+  }								\
+  return Truth;							\
+Error:								\
+  Err("Bad number in a comparison", l);				\
+  return UNDEFINED; /* never reached */				\
+}
+
+Compare(STk_numequal,  !=)
+Compare(STk_lessp,     >=)
+Compare(STk_greaterp,  <=)
+Compare(STk_lessep,    >)
+Compare(STk_greaterep, <)
+
+
+PRIMITIVE STk_zerop(SCM n)
+{
+  switch (TYPE(n)) {
+    case tc_integer: return (INTEGER(n) == 0) 		     ? Truth: Ntruth;
+    case tc_flonum:  return (FLONM(n) == 0.0) 		     ? Truth: Ntruth;
+    case tc_bignum:  return (mpz_cmp_ui(BIGNUM(n), 0L) == 0) ? Truth: Ntruth;
+    default:         Err("zero?: bad number", n); 
+		     return UNDEFINED; /* never reached */
+  }
+}
+
+PRIMITIVE STk_positivep(SCM n)
+{
+  switch (TYPE(n)) {
+    case tc_integer: return (INTEGER(n) > 0) 		     ? Truth: Ntruth;
+    case tc_flonum:  return (FLONM(n) > 0.0) 		     ? Truth: Ntruth;
+    case tc_bignum:  return (mpz_cmp_ui(BIGNUM(n), 0L) > 0)  ? Truth: Ntruth;
+    default:         Err("positive?: bad number", n);
+		     return UNDEFINED; /* never reached */
+  }
+}  
+
+PRIMITIVE STk_negativep(SCM n)
+{
+  switch (TYPE(n)) {
+    case tc_integer: return (INTEGER(n) < 0) 		     ? Truth: Ntruth;
+    case tc_flonum:  return (FLONM(n) < 0.0) 		     ? Truth: Ntruth;
+    case tc_bignum:  return (mpz_cmp_ui(BIGNUM(n), 0L) < 0)  ? Truth: Ntruth;
+    default:         Err("negative?: bad number", n);
+		     return UNDEFINED; /* never reached */
+  }
+}
+
+PRIMITIVE STk_oddp(SCM n)
+{
+  MP_INT q, r;
+  long res;
+
+  switch (TYPE(n)) {
+    case tc_integer: return (INTEGER(n)%2) 		     ? Truth: Ntruth;
+    case tc_bignum:  mpz_init(&q), mpz_init(&r);
+      		     mpz_divmod_ui(&q, &r, BIGNUM(n), 2L);
+      		     res = mpz_cmp_ui(&r, 0L);
+      		     mpz_clear(&q); mpz_clear(&r);
+      		     return (res != 0) ? Truth: Ntruth;
+    default:         Err("odd?: bad number", n);
+		     return UNDEFINED; /* never reached */
+  }
+}  
+
+PRIMITIVE STk_evenp(SCM n)
+{
+  MP_INT q, r;
+  long res;
+
+  switch (TYPE(n)) {
+    case tc_integer: return (INTEGER(n)%2) 		     ? Ntruth: Truth;
+    case tc_bignum:  mpz_init(&q), mpz_init(&r);
+      		     mpz_divmod_ui(&q, &r, BIGNUM(n), 2L);
+      		     res = mpz_cmp_ui(&r, 0L);
+      		     mpz_clear(&q); mpz_clear(&r);
+      		     return (res == 0) ? Truth: Ntruth;
+    default:         Err("even?: bad number", n);
+		     return UNDEFINED; /* never reached */
+  }
+}
+
+PRIMITIVE STk_max(SCM l, SCM env, int from_eval)
+{
+  register SCM tmp, max;
+  int inexact;
+
+  if (NULLP(l)) Err("max: bad number of arguments", NIL);
+
+  tmp = from_eval? EVALCAR(l): CAR(l);
+  if (NNUMBERP(tmp)) goto Error;
+  inexact = FLONUMP(tmp);
+  max = tmp;
+  
+  for (l=CDR(l); NNULLP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) goto Error;
+    inexact |= FLONUMP(tmp);
+    if (do_compare(tmp, max) > 0) max = tmp;
+  }
+  return (inexact && EXACTP(max)) ? STk_exact2inexact(max) : max;
+Error:
+  Err("max: bad number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_min(SCM l, SCM env, int from_eval)
+{
+  register SCM tmp, min;
+  int inexact;
+
+  if (NULLP(l)) Err("min: bad number of arguments", NIL);
+
+  tmp = from_eval? EVALCAR(l): CAR(l);
+  if (NNUMBERP(tmp)) goto Error;
+  inexact = FLONUMP(tmp);
+  min = tmp;
+  
+  for (l=CDR(l); NNULLP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) goto Error;
+    inexact |= FLONUMP(tmp);
+    if (do_compare(tmp, min) < 0) min = tmp;
+  }
+  return (inexact && EXACTP(min)) ? STk_exact2inexact(min) : min;
+Error:
+  Err("min: bad number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_plus(SCM l, SCM env, int from_eval)
+{
+  SCM tmp, res = makesmallint(0);
+  
+  for ( ; CONSP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) Err("+: not a number", tmp);
+    do_addition(&res, tmp);
+  }
+  return res;
+}
+
+PRIMITIVE STk_difference(SCM l, SCM env, int from_eval)
+{
+  SCM tmp, res;
+
+  if (NULLP(l)) Err("-: no argument given", NIL);
+  if (NULLP(CDR(l))) l = Cons(makesmallint(0), l);	/* (- x) --> (- 0 x) */
+
+  tmp = res = clone(EVALCAR(l));
+  if (NNUMBERP(res)) goto Error;
+  for (l=CDR(l) ; CONSP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) goto Error;
+    do_substract(&res, tmp);
+  }
+  return res;
+Error:
+  Err("-: not a number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_times(SCM l, SCM env, int from_eval)
+{
+  SCM tmp, res = makesmallint(1);
+
+  for ( ; CONSP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) Err("*: not a number", tmp);
+    do_multiply(&res, tmp);
+  }
+  return res;
+}
+
+PRIMITIVE STk_division(SCM l, SCM env, int from_eval)
+{
+  SCM tmp, res;
+
+  if (NULLP(l)) Err("/: no argumenent given", NIL);
+  if (NULLP(CDR(l))) l = Cons(makesmallint(1), l);	/* (/ x) --> (/ 1 x) */
+  
+  tmp = res = clone(EVALCAR(l));
+  if (NNUMBERP(res)) goto Error;
+  for (l=CDR(l) ; CONSP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp) || STk_zerop(tmp) == Truth) goto Error;
+    do_divide(&res, tmp);
+  }
+  return res;
+Error:
+  Err("/: not a valid number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_absolute(SCM x)
+{
+  switch (TYPE(x)) {
+    case tc_integer: return (INTEGER(x) < 0) ? makesmallint(-INTEGER(x)) : x;
+    case tc_flonum:  return (FLONM(x) < 0.0) ? STk_makenumber(-FLONM(x)) : x;
+    case tc_bignum:  if (mpz_cmp_ui(BIGNUM(x), 0L) < 0) {
+     			SCM tmp = clone(x);
+			mpz_neg(BIGNUM(tmp), BIGNUM(x));
+			return tmp;
+		      }
+      		      return x;
+    default:         Err("abs: bad number", x);
+		     return UNDEFINED; /* never reached */
+  }
+}  
+
+PRIMITIVE STk_quotient(SCM n1, SCM n2)
+{
+  if (NNUMBERP(n1) || NNUMBERP(n2))
+    Err("quotient: bad arguments", Cons(n1, n2));
+  if (STk_zerop(n2) == Truth) Err("quotient: division by 0", NIL);
+      
+  return do_integer_division(n1, n2, TRUE);
+}
+
+PRIMITIVE STk_remainder(SCM n1, SCM n2)
+{
+  if (NNUMBERP(n1) || NNUMBERP(n2))
+    Err("remainder: bad arguments", Cons(n1, n2));
+  if (STk_zerop(n2) == Truth) Err("remainder: division by 0", NIL);
+
+  return do_integer_division(n1, n2, FALSE);
+}
+
+PRIMITIVE STk_modulo(SCM n1, SCM n2)
+{
+  SCM z;
+
+  if (NNUMBERP(n1) || NNUMBERP(n2))
+    Err("modulo: bad arguments", Cons(n1, n2));
+  if (STk_zerop(n2) == Truth) Err("modulo: division by 0", NIL);
+
+  z = do_integer_division(n1, n2, FALSE);
+  if (STk_negativep(n1) != STk_negativep(n2) && STk_zerop(z) != Truth) 
+    /*kerch@parc.xerox.com*/
+    do_addition(&z, n2);
+  return z;
+}
+
+
+static SCM gcd2(SCM n1, SCM n2)
+{
+  return (STk_zerop(n2) == Truth) ? n1 : gcd2(n2, STk_modulo(n1, n2));
+}
+
+PRIMITIVE STk_gcd(SCM l, SCM env, int from_eval)
+{
+  register SCM tmp, res;
+
+  if (NULLP(l)) return makesmallint(0L);
+  
+  tmp = EVALCAR(l);
+  if (NNUMBERP(tmp)) goto Error;
+  res = STk_absolute(tmp);
+  
+  for (l=CDR(l); NNULLP(l); l=CDR(l)) {
+    tmp = from_eval? EVALCAR(l): CAR(l);
+    if (NNUMBERP(tmp)) goto Error;
+    res = STk_absolute(gcd2(res, tmp));
+  }
+  return res;
+Error:
+  Err("gcd: bad number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_lcm(SCM l, SCM env, int from_eval)
+{
+  SCM tmp, res, gcd;
+
+  if (NULLP(l)) return makesmallint(1L);
+
+  tmp = EVALCAR(l);
+  if (NNUMBERP(tmp)) goto Error;
+  res = STk_absolute(clone(tmp));
+  
+  for (l=CDR(l); NNULLP(l); l=CDR(l)) {
+    tmp=EVALCAR(l);
+    if (NNUMBERP(tmp)) goto Error;
+    if (STk_zerop(tmp)==Truth) return tmp;
+    gcd = gcd2(res, tmp);
+    do_multiply(&res, tmp);
+    do_divide(&res, gcd);
+    res = STk_absolute(res);
+  }
+  return res;
+Error:
+  Err("lcm: bad number", tmp);
+  return UNDEFINED; /* never reached */
+}
+
+PRIMITIVE STk_floor(SCM x)
+{
+  if (NNUMBERP(x)) Err("floor: bad number", x);
+  if (FLONUMP(x)) return STk_makenumber(floor(FLONM(x)));
+  return x;
+}
+
+PRIMITIVE STk_ceiling(SCM x)
+{
+  if (NNUMBERP(x)) Err("ceiling: bad number", x);
+  if (FLONUMP(x)) return STk_makenumber(ceil(FLONM(x)));
+  return x;
+}
+
+PRIMITIVE STk_truncate(SCM x)
+{
+  if (NNUMBERP(x)) Err("truncate: bad number", x);
+  if (FLONUMP(x)) {
+    double d = FLONM(x);
+    return STk_makenumber(d < 0.0 ? ceil(d) : floor(d));
+  }
+  return x;
+}
+
+PRIMITIVE STk_round(SCM x)
+{
+  if (NNUMBERP(x)) Err("round: bad number", x);
+  if (FLONUMP(x)) {
+    /*  
+     * R4RS states that round must returns the closest integer to x, rounding to
+     * even when x is halfway between two integers (round to even is for consistency
+     * with IEEE standard).
+     * This explains the (too much) complicate computation below
+     */
+    double v 	      = FLONM(x); 
+    double v_plus_0_5 = v + 0.5;
+    double res        = floor(v_plus_0_5);
+
+    return STk_makenumber(
+      (v_plus_0_5 == res && v_plus_0_5/2 != floor(v_plus_0_5/2)) ? res-1: res);
+  }
+  return x;
+}
+
+#if !defined(WIN32) && !defined(__STDC__)
+#  define concat(a,b) a/**/b
+#else
+#  define concat(a,b) a##b
+#endif
+
+#define transcendental(fct)                                             \
+    PRIMITIVE concat(STk_,fct)(SCM z)                                   \
+    {                                                                   \
+      if (NUMBERP(z))                                                   \
+        return STk_makenumber(fct(FLONM(STk_exact2inexact(z))));        \
+      Err("transcendental function: bad number", z);                    \
+      return UNDEFINED /* never reached */;                             \
+    }
+
+transcendental(exp)
+transcendental(log)
+transcendental(sin)
+transcendental(cos)
+transcendental(tan)
+transcendental(asin)
+transcendental(acos)
+
+PRIMITIVE STk_atan(SCM y, SCM x)
+{
+  if (NNUMBERP(y)) Err("atan: bad  number", y);
+
+  if (x == UNBOUND)
+    return STk_makenumber(atan(FLONM(STk_exact2inexact(y))));
+  else {
+    double fl_x = FLONM(STk_exact2inexact(x));
+    double fl_y = FLONM(STk_exact2inexact(y));
+
+    /* Make a special case for (atan 0 0) -- in this case return 0 */
+    return STk_makenumber((fl_x == 0 && fl_y == 0) ? 0L : atan2(fl_y, fl_x));
+  }
+}
+
+PRIMITIVE STk_sqrt(SCM z)
+{
+  switch (TYPE(z)) {
+    case tc_integer: {
+      	 double d;
+	 
+	 if (INTEGER(z) < 0) goto Error;
+	 d = (double) sqrt((double) INTEGER(z));
+	 return ISINT(d) ? makesmallint((long) d): STk_makenumber(d);
+       }
+    case tc_bignum: {
+         MP_INT root, remainder;
+	 SCM res;
+
+	 if (mpz_cmp_si(BIGNUM(z), 0L) < 0) goto Error;
+	 mpz_init(&root); mpz_init(&remainder);
+	 mpz_sqrtrem(&root, &remainder, BIGNUM(z));
+	 if (mpz_cmp_si(&remainder, 0L) == 0) {
+	   /* Result is an integer */
+	   res = makebignum("0");
+	   mpz_set(BIGNUM(res), &root);
+	 }
+	 else {
+	   /* Result is a flonum */
+	   res = STk_makenumber(bignum2double(&root));
+	 }
+	 mpz_clear(&root); mpz_clear(&remainder);
+	 return res;
+       }
+    case tc_flonum: {
+         if (FLONM(z) < 0.0) goto Error;
+	 return STk_makenumber((double) sqrt(FLONM(z)));
+       }
+    default:
+         Err("sqrt: bad number", z);
+  }
+Error:
+  Err("sqrt: number is negative", z);
+  return UNDEFINED; /* never reached */
+}
+
+/*
+ (define (exact_expt z1 z2)
+  (define (square x) (* x x))
+  (cond ((= z2 0) 1)
+	((negative? z2) (/ 1 (exact_expt z1 (abs z2))))
+        ((even? z2) (square (exact_expt z1 (/ z2 2))))
+        (else (* z1 (exact_expt z1 (- z2 1))))))
+*/
+
+static SCM exact_expt(SCM z1, SCM z2)
+{
+  SCM res;
+  
+  if (STk_zerop(z2) == Truth) return makesmallint(1);
+  if (STk_negativep(z2) == Truth) { 
+    /* (/ 1 (expt z1 (abs z2) */
+    res = makesmallint(1);
+    do_divide(&res, exact_expt(z1, STk_absolute(z2)));
+    return res;
+  }
+  if (STk_evenp(z2) == Truth) {
+    /* (square (expt z1 (/ z2 2)) */
+    res = clone(z2);
+    do_divide(&res, makesmallint(2));
+    res = exact_expt(z1, res);
+    do_multiply(&res, res);
+    return res;
+  }
+  /* (* (expt z1 (- z2 1)) z1) */
+  res = clone(z2);
+  do_substract(&res, makesmallint(1));
+  res = exact_expt(z1, res);
+  do_multiply(&res, z1);
+  return res;
+}
+
+PRIMITIVE STk_expt(SCM z1, SCM z2)
+{
+  if (NNUMBERP(z1)) Err("expt: bad number", z1);
+  if (NNUMBERP(z2)) Err("expt: bad number", z2);
+
+  return (EXACTP(z1) && EXACTP(z2)) ?
+    		exact_expt(z1, z2)  :
+		STk_makenumber((double) pow(FLONM(STk_exact2inexact(z1)),
+					    FLONM(STk_exact2inexact(z2))));
+}
+
+PRIMITIVE STk_exact2inexact(SCM z)
+{
+  switch (TYPE(z)) {
+    case tc_integer: return STk_makenumber((double) INTEGER(z));
+    case tc_bignum:  return STk_makenumber(bignum2double(BIGNUM(z)));
+    case tc_flonum:  return z;
+    default:         Err("exact->inexact: bad number", z);
+		     return UNDEFINED; /* never reached */
+  }
+}
+
+PRIMITIVE STk_inexact2exact(SCM z)
+{
+  switch (TYPE(z)) {
+    case tc_integer: 
+    case tc_bignum:  return z;
+    case tc_flonum:  return double2integer(floor(FLONM(z)+0.5));
+    default:         Err("inexact->exact: bad number", z);
+      		     return UNDEFINED; /* never reached */
+  }
+}
+
+
+PRIMITIVE STk_string2number(SCM str, SCM base)
+{
+  if (NSTRINGP(str)) Err("string->number: not a string", str);
+  return STk_Cstr2number(CHARS(str), (base==UNBOUND)? 10 : STk_integer_value(base));
+}
+
+PRIMITIVE STk_number2string(SCM n, SCM base)
+{
+  char *s, buffer[100];
+  SCM z;
+
+  if (NNUMBERP(n))   Err("number->string: bad number", n);
+  s = STk_number2Cstr(n, (base == UNBOUND)? 10 : STk_integer_value(base), buffer);
+  z = STk_makestring(s);
+  if (s != buffer) free(s);
+  return z;
+}
+
+PRIMITIVE  STk_bignump(SCM n)
+{
+  return BIGNUMP(n) ? Truth: Ntruth;
+}
+
diff --git a/Src/pixmap.c b/Src/pixmap.c
new file mode 120000
index 0000000..38fa787
--- /dev/null
+++ b/Src/pixmap.c
@@ -0,0 +1 @@
+../Extensions/pixmap.c
\ No newline at end of file
diff --git a/Src/port.c b/Src/port.c
new file mode 100644
index 0000000..171c75f
--- /dev/null
+++ b/Src/port.c
@@ -0,0 +1,833 @@
+/*
+ *
+ *  p o r t . c			-- ports implementation
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 17-Feb-1993 12:27
+ * Last file update: 13-Sep-1996 21:59
+ *
+ */
+#ifndef WIN32
+#  include <sys/ioctl.h>
+#  include <sys/time.h>
+#  include <ctype.h>
+#endif
+
+#ifdef HAVE_SYS_SELECT_H
+#include <sys/select.h>	/* This seems to be useful only for AIX */
+#endif
+
+#ifndef NO_FD_SET
+#   define SELECT_MASK fd_set
+#else
+#   ifndef _AIX
+	typedef long fd_mask;
+#   endif
+#   if defined(_IBMR2)
+#	define SELECT_MASK void
+#   else
+#	define SELECT_MASK int
+#   endif
+#endif
+
+#include "stk.h"
+
+#ifdef WIN32
+  /* Provide substitute functions dor WIN32 */
+  FILE *popen(char *cmd, char *mode) 
+  {	
+    /* Returning NULL will yield an error */
+    return NULL;
+  }
+  void pclose(FILE *f)
+  {}
+#endif
+
+/* external vars */
+SCM STk_curr_iport, STk_curr_oport, STk_curr_eport, STk_eof_object;
+
+
+SCM STk_Cfile2port(char *name, FILE *f, int type, int flags)
+{
+  SCM z;
+
+  NEWCELL(z, type);
+  z->storage_as.port.p   = (struct port_descr *) 
+    				must_malloc(sizeof(struct port_descr));
+  PORT_FILE(z)           = f;
+  PORT_FLAGS(z)	 	 = flags;
+  PORT_REVENT(z)	 = Ntruth;
+  PORT_WEVENT(z)	 = Ntruth;
+  PORT_NAME(z)           = (char *) must_malloc(strlen(name)+1);
+  strcpy(PORT_NAME(z), name);
+
+  return z;
+}
+
+static SCM makeport(char *name, int type, char *mode, int error)
+{
+  SCM z     = Ntruth;
+  int flags = 0;
+  FILE *f;
+  char *full_name;
+
+  STk_disallow_sigint();
+  if (strncmp(name, "| ", 2)) {
+    full_name = CHARS(STk_internal_expand_file_name(name));
+
+    if ((f = fopen(full_name, mode)) == NULL) {
+      if (error) Err("could not open file", STk_makestring(name));
+      else goto Out;
+    }
+  }
+  else {
+    full_name = name;
+    if ((f = popen(name+1, mode)) == NULL) {
+      flags = PIPE_PORT;
+      if (error) Err("could not create pipe", STk_makestring(name));
+      else goto Out;
+    }    
+  }
+
+  z = STk_Cfile2port(full_name, f, type, flags);
+
+Out:
+  STk_allow_sigint();
+  return(z);
+}
+  
+static SCM verify_port(char *who, SCM port, int mode)
+{
+  char buff[100];
+
+  if (port == UNBOUND)     /* test write 'cause of flush */
+    port = (mode&F_WRITE) ? STk_curr_oport: STk_curr_iport; 
+
+  if (!(INP(port) || OUTP(port))) {
+    sprintf(buff, "%s: bad port", who);
+    Err(buff, port);
+  }
+  if (PORT_FLAGS(port) & PORT_CLOSED) {
+    sprintf(buff, "%s: port is closed", who);
+    Err(buff, port);
+  }
+  if ((mode & F_READ)  && INP(port))  return port; /* not else. It can be both */
+  if ((mode & F_WRITE) && OUTP(port)) return port;
+Error:
+  sprintf(buff, "%s: bad port", who);
+  Err(buff, port);
+}
+
+static void closeport(SCM port)
+{
+  if (PORT_FLAGS(port) & PORT_CLOSED) return;
+
+  STk_disallow_sigint();
+  
+  if (IPORTP(port) || OPORTP(port)) {			    /* Not a string port */
+#ifdef USE_TK
+    /* For pipe and file ports, delete the fileevent associated to it (if any) */
+    Tcl_DeleteFileHandler(Tcl_GetFile((ClientData) fileno(PORT_FILE(port)), 
+				    TCL_UNIX_FD));
+#endif
+    if (PORT_FLAGS(port) & PIPE_PORT)   		    /* Pipe port */
+      pclose(PORT_FILE(port));
+    else 						    /* File port */
+      fclose(PORT_FILE(port));
+  }
+  PORT_FLAGS(port) |= PORT_CLOSED;
+  STk_allow_sigint();
+}
+
+void STk_freeport(SCM port)
+{
+  STk_disallow_sigint();
+  closeport(port);
+  free(PORT_NAME(port));
+  free(port->storage_as.port.p);
+  STk_allow_sigint();
+}
+
+void STk_init_standard_ports(void)
+{
+  STk_curr_iport = STk_Cfile2port("*stdin*",  STk_stdin, tc_iport, 0);  
+  STk_gc_protect(&STk_curr_iport);
+  
+  STk_curr_oport = STk_Cfile2port("*stdout*", STk_stdout, tc_oport, 0);
+  STk_gc_protect(&STk_curr_oport);
+
+  STk_curr_eport = STk_Cfile2port("*stderr*", STk_stderr, tc_oport, 0);
+  STk_gc_protect(&STk_curr_eport);
+
+  
+  NEWCELL(STk_eof_object, tc_eof);
+  STk_gc_protect(&STk_eof_object);
+
+  STk_line_counter = 1;
+  STk_current_filename = UNBOUND;	/* Ubound <=> stdin */
+  STk_gc_protect(&STk_current_filename);
+}
+
+/******************************************************************************
+ *
+ * L O A D  stuff
+ *
+ ******************************************************************************/
+static int do_load(char *full_name)
+{
+  FILE *f;
+  int c;
+
+  if (!STk_dirp(full_name)) {
+     f = fopen(full_name, "r");
+     
+     if (f == NULL) return 0;
+
+     if (VCELL(Intern(LOAD_VERBOSE)) != Ntruth)
+       fprintf(STk_stderr, ";; Loading file \"%s\"\n", full_name);
+     
+     /* Just read one character. Assume that file is an object if this 
+      * character is a control one. Here, I don't try to see if the file magic 
+      * number has a particular value, since I'm not nure that all platforms
+      * use identical conventions 
+      */
+     c = Getc(f); Ungetc(c, f);
+     if (c != EOF &&  ((iscntrl(c)&& c!= '\n') || !isascii(c))) {
+       fclose(f);
+       STk_load_object_file(full_name);
+     }
+     else {
+       /* file seems not to be an object file. Try to load it as a Scheme file */
+       jmp_buf jb, *prev_jb = Top_jmp_buf;
+       long prev_context    = Error_context;
+       SCM previous_file, form;
+       int k, previous_line;
+      
+       /* Save info about current line and file */
+       previous_file	    = STk_current_filename;
+       previous_line	    = STk_line_counter;
+       STk_line_counter     = 1;
+       STk_current_filename = STk_makestring(full_name);
+
+       /* save normal error jmpbuf so that eval error don't lead to toplevel */
+       /* This permits to close the opened file in case of error */
+       /* If in a "catch", keep the ERR_IGNORED bit set */
+       if ((k = setjmp(jb)) == 0) {
+	 Top_jmp_buf   = &jb;
+
+	 for( ; ; ) {
+	   form = STk_readf(f, FALSE);
+	   if EQ(form, STk_eof_object) break;
+	   STk_eval(form, NIL);
+	 }
+       }
+       fclose(f);
+
+       Top_jmp_buf   = prev_jb;
+       Error_context = prev_context;
+       if (k) /*propagate error */ longjmp(*Top_jmp_buf, k);
+
+       /* No error: restore info about current line and file */
+       STk_current_filename = previous_file;
+       STk_line_counter	    = previous_line;
+     }
+     if (VCELL(Intern(LOAD_VERBOSE)) != Ntruth)
+       fprintf(STk_stderr, ";; File \"%s\" loaded\n", full_name);
+     return 1;
+  }
+  /* No file found */
+  return 0;
+}
+
+static int try_loadfile(char *prefix, char *fname, SCM suffixes)
+{
+  char full_name[MAX_PATH_LENGTH], *s;
+
+  /* First try to load without suffix */
+  if (strlen(prefix) + strlen(fname) + 2 >= MAX_PATH_LENGTH) goto TooLong;
+  sprintf(full_name, "%s%s%s", prefix, (*prefix ? "/": ""), fname);
+  
+  if (do_load(full_name)) return 1;
+
+  /* Now try to load file with suffix */
+  for ( ; NNULLP(suffixes); suffixes = CDR(suffixes)) {
+    /* We are sure that suffixes is a well formed list (ensured by loadfile) */
+    if (NSTRINGP(CAR(suffixes))) Err("load: bad suffix component", CAR(suffixes));
+    s = CHARS(CAR(suffixes));
+
+    if (strlen(prefix)+strlen(fname)+strlen(s)+3 >= MAX_PATH_LENGTH) goto  TooLong;
+    sprintf(full_name, "%s%s%s.%s", prefix, (*prefix ? "/": ""), fname, s);
+
+    if (do_load(full_name)) return 1;
+  }
+  
+  /* No file loaded */
+  return 0;
+
+TooLong:
+    Err("load: Filename too long", NIL);
+}
+
+SCM STk_loadfile(char *fname, int err_if_absent)
+{
+  int len;
+  SCM load_path, load_suffixes;     
+  
+  len           = strlen(fname);
+  load_path     = VCELL(Intern(LOAD_PATH));
+  load_suffixes = VCELL(Intern(LOAD_SUFFIXES));
+  
+  if (STk_llength(load_path)<0)     Err("load: bad loading path", load_path);
+  if (STk_llength(load_suffixes)<0) Err("load: bad set of suffixes", load_suffixes);
+ 
+#ifdef WIN32
+  if ((len > 0 && (fname[0] == '/' || fname[0] == '\\' || fname[0] == '~')) ||
+      (len > 1 && fname[0] == '.' && (fname[1] == '/' || fname[1] == '\\')) ||
+      (len > 2 && fname[0] == '.' && fname[1] == '.' && (fname[2] == '/' ||
+							 fname[2]=='\\'))   ||
+      (len > 1 && isalpha(fname[0]) && fname[1]==':')) {
+#else
+  if ((len > 0 && (fname[0] == '/' || fname[0] == '~')) ||
+      (len > 1 && fname[0] == '.' && fname[1] == '/') ||
+      (len > 2 && fname[0] == '.' && fname[1] == '.' && fname[2] == '/')) {
+#endif
+    
+    if (fname[0] == '~') 
+      fname = CHARS(STk_internal_expand_file_name(fname));
+
+    if (try_loadfile("", fname, load_suffixes))
+      return(err_if_absent? UNDEFINED: Truth);
+  }
+  else {
+    /* Use *load-path* for loading file */
+    for ( ; NNULLP(load_path); load_path = CDR(load_path)) {
+      if (NSTRINGP(CAR(load_path))) 
+	Err("load: bad loading path component", CAR(load_path));
+
+      if (try_loadfile(CHARS(CAR(load_path)), fname, load_suffixes))
+	return(err_if_absent? UNDEFINED: Truth);
+    }
+  }
+
+    /* If we are here, we have been unable to load a file. Report err if needed */
+  if (err_if_absent)
+    Err("load: cannot open file", STk_makestring(fname));
+  return Ntruth; 
+}
+
+
+PRIMITIVE STk_input_portp(SCM port)
+{
+  return IPORTP(port)? Truth: Ntruth;
+}
+
+PRIMITIVE STk_output_portp(SCM port)
+{
+  return OPORTP(port)? Truth: Ntruth;
+}
+
+PRIMITIVE STk_current_input_port(void)
+{
+  return STk_curr_iport;
+}
+
+PRIMITIVE STk_current_output_port(void)
+{
+  return STk_curr_oport;
+}
+
+PRIMITIVE STk_current_error_port(void)
+{
+  return STk_curr_eport;
+}
+
+PRIMITIVE STk_with_input_from_file(SCM string, SCM thunk)
+{
+  jmp_buf env, *prev_env = Top_jmp_buf;
+  SCM result, prev_iport = STk_curr_iport;
+  int prev_context 	 = Error_context;
+  int k;
+
+  if (NSTRINGP(string))     Err("with-input-from-file: bad string", string);
+  if (!STk_is_thunk(thunk)) Err("with-input-from-file: bad thunk", thunk);
+
+  STk_curr_iport = UNBOUND; 	/* will not be changed if opening fails */
+
+  if ((k = setjmp(env)) == 0) {
+    Top_jmp_buf     = &env;
+    STk_curr_iport  = makeport(CHARS(string), tc_iport, "r", TRUE);
+    result          = Apply(thunk, NIL);
+  }
+  /* restore normal error jmpbuf  and current input port*/
+  if (STk_curr_iport != UNBOUND) closeport(STk_curr_iport);
+  STk_curr_iport = prev_iport;
+  Top_jmp_buf    = prev_env;
+  Error_context  = prev_context;
+
+  if (k) /*propagate error */ longjmp(*Top_jmp_buf, k);
+  return result;
+}
+
+PRIMITIVE STk_with_output_to_file(SCM string, SCM thunk)
+{
+  jmp_buf env, *prev_env = Top_jmp_buf;
+  SCM result, prev_oport = STk_curr_oport;
+  int prev_context       = Error_context;
+  int k;
+
+  if (NSTRINGP(string))     Err("with-output-to-file: bad string", string);
+  if (!STk_is_thunk(thunk)) Err("with-output-to-file: bad thunk", thunk);
+
+  STk_curr_oport = UNBOUND;		/* will not be changed if opening fails */
+
+  if ((k = setjmp(env)) == 0) {
+    Top_jmp_buf     = &env;
+    STk_curr_oport  = makeport(CHARS(string), tc_oport, "w", TRUE);
+    result          = Apply(thunk, NIL);
+  }
+  /* restore normal error jmpbuf  and current output port*/
+  if (STk_curr_oport != UNBOUND) closeport(STk_curr_oport);
+  STk_curr_oport = prev_oport;
+  Top_jmp_buf    = prev_env;
+  Error_context  = prev_context;
+
+  if (k) /*propagate error */ longjmp(*Top_jmp_buf, k);
+  return result;
+}
+
+
+PRIMITIVE STk_open_input_file(SCM filename)
+{
+  if (NSTRINGP(filename)) Err("open-input-file: bad file name", filename);
+  return makeport(CHARS(filename), tc_iport, "r", TRUE);
+}
+
+PRIMITIVE STk_open_output_file(SCM filename)
+{
+  if (NSTRINGP(filename)) Err("open-output-file: bad file name", filename);
+  return makeport(CHARS(filename), tc_oport, "w", TRUE); 
+}
+
+PRIMITIVE STk_close_input_port(SCM port)
+{
+  if (!INP(port)) Err("close-input-port: not an input port", port);
+  closeport(port);
+
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_close_output_port(SCM port)
+{
+  if (!OUTP(port)) Err("close-output-port: not an output port", port);
+  closeport(port);
+
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_read(SCM port)
+{
+  port = verify_port("read", port, F_READ);
+  return(STk_readf(PORT_FILE(port), FALSE));
+}
+
+PRIMITIVE STk_read_char(SCM port)
+{
+  int c;
+
+  port = verify_port("read-char", port, F_READ);
+  c = Getc(PORT_FILE(port));
+  return (c == EOF) ? STk_eof_object : STk_makechar(c);
+}
+
+PRIMITIVE STk_peek_char(SCM port)
+{
+  int c;
+
+  port = verify_port("peek-char", port, F_READ);
+  c = Getc(PORT_FILE(port));
+  Ungetc(c, PORT_FILE(port));
+  return (c == EOF) ? STk_eof_object : STk_makechar(c);
+}
+
+PRIMITIVE STk_eof_objectp(SCM obj)
+{
+  return (obj == STk_eof_object)? Truth : Ntruth;
+}
+
+#ifdef WIN32
+PRIMITIVE STk_char_readyp(SCM port) 
+{
+  STk_panic("Not yet implemented!");
+}
+#else
+PRIMITIVE STk_char_readyp(SCM port) 
+{ 
+  port = verify_port("char-ready?", port, F_READ);
+  if (Eof(PORT_FILE(port))) return Truth;
+  if (ISPORTP(port)) /* !eof -> */  return Truth;
+  else {
+    /* First, see if characters are available in the buffer */
+    if (STk_file_data_available(PORT_FILE(port)))
+      return Truth;
+
+#ifdef HAVE_SELECT
+    {
+      SELECT_MASK readfds;
+      struct timeval timeout;
+      int f = fileno(PORT_FILE(port));
+
+      FD_ZERO(&readfds); 
+      FD_SET(f, &readfds);
+      timeout.tv_sec = timeout.tv_usec = 0;
+      return (select(f+1, &readfds, NULL, NULL, &timeout)) ? Truth : Ntruth;
+    }
+#else
+#  ifdef FIONREAD
+   {
+     int result;
+
+     ioctl(fileno(PORT_FILE(port)), FIONREAD, &result);
+     return result ? Truth : Ntruth;
+   }
+#  else
+   return Truth;
+#  endif
+#endif
+  }
+}
+#endif
+
+PRIMITIVE STk_write(SCM expr, SCM port)
+{
+  port = verify_port("write", port, F_WRITE);
+  STk_print(expr, port, WRT_MODE);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_display(SCM expr, SCM port)
+{
+  port = verify_port("display", port, F_WRITE);
+  STk_print(expr, port, DSP_MODE);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_newline(SCM port)
+{
+  port = verify_port("newline", port, F_WRITE);
+  Putc('\n', PORT_FILE(port));
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_write_char(SCM c, SCM port)
+{
+  if (NCHARP(c)) Err("write-char: not a character", c);
+  port = verify_port("write-char", port, F_WRITE);
+  Putc(CHAR(c), PORT_FILE(port));
+  return UNDEFINED;
+}
+
+/*
+ * The name `scheme_load' is needed because of a symbol table conflict
+ * in libc. This is bogus, but what do you do.
+ */
+PRIMITIVE STk_scheme_load(SCM filename)
+{
+  if (NSTRINGP(filename)) Err("load: bad file name", filename); 
+  return STk_loadfile(CHARS(filename), 1);
+}
+
+
+/*
+ *
+ * STk bonus
+ *
+ */
+
+static SCM internal_format(SCM l,int len,int error)/* a very simple and poor one */ 
+{
+  SCM port, fmt;
+  int format_in_string = 0;
+  char *p;
+  FILE *f;
+
+  if (error) {
+    if (len < 1) Err("error: Bad list of parameters", l);
+    format_in_string = 1;
+    port = STk_open_output_string();
+    len -= 1;
+  }
+  else {
+    if (len < 2) Err("format: Bad list of parameters", l);
+    port = CAR(l); l = CDR(l);
+    len -= 2;
+  }
+  fmt  = CAR(l); l = CDR(l);
+
+  if (BOOLEANP(port)){
+    if (port == Truth) port = STk_curr_oport;
+    else {
+      format_in_string = 1;
+      port= STk_open_output_string();
+    }
+  }
+  
+  verify_port(error? "error": "format", port, F_WRITE);
+  if (NSTRINGP(fmt)) Err("format: bad format string", fmt);
+
+  f = PORT_FILE(port);
+
+  for(p=CHARS(fmt); *p; p++) {
+    if (*p == '~') {
+      switch(*(++p)) {
+        case 'S':
+        case 's':
+        case 'A':
+        case 'a': if (len-- > 0) {
+                    STk_print(CAR(l), 
+			      port, 
+			      (tolower(*p) == 's')? WRT_MODE: DSP_MODE);
+                    l = CDR(l);
+                  }
+                  else Err("format: too much ~ in format string", l); 
+	          continue;
+        case '%': Putc('\n', f);
+                  continue;
+        case '~': Putc('~', f);
+                  continue;
+        default:  Putc('~',  f);
+                  /* NO BREAK */
+      }
+    }
+    Putc(*p, f);
+  }
+
+  if (NNULLP(l)) Err("format: too few ~ in format string", l);
+
+  return format_in_string ? STk_get_output_string(port) : UNDEFINED;
+}
+
+PRIMITIVE STk_format(SCM l, int len)
+{
+  return internal_format(l, len, FALSE);
+}
+
+PRIMITIVE STk_error(SCM l, int len)
+{
+  /* Set context to ERR_OK but keep the bit indicating if error must be caught */
+  Error_context = ERR_OK | (Error_context & ERR_IGNORED);
+
+  Err(CHARS(internal_format(l, len, TRUE)), NIL);
+  return UNDEFINED; 	/* for compiler */
+}
+
+PRIMITIVE STk_try_load(SCM filename)
+{
+  if (NSTRINGP(filename)) Err("try-load: bad file name", filename); 
+
+  return STk_loadfile(CHARS(filename), FALSE);
+}
+
+PRIMITIVE STk_open_file(SCM filename, SCM mode)
+{
+  int type;
+  
+
+  if (NSTRINGP(filename)) Err("open-file: bad file name", filename); 
+  if (NSTRINGP(mode) || CHARS(mode)[1] != '\0') goto Error;
+  
+  switch (CHARS(mode)[0]) {
+    case 'a': 
+    case 'w': type = tc_oport; break;
+    case 'r': type = tc_iport; break;
+    default:  ;
+Error:	      Err("open-file: bad mode", mode);
+  }
+  return(makeport(CHARS(filename), type, CHARS(mode), FALSE));
+}
+
+PRIMITIVE STk_close_port(SCM port)
+{
+  if (INP(port) || OUTP(port)) closeport(port);
+  else Err("close-port: bad port", port);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_read_line(SCM port)
+{
+  FILE *f;
+  int c, i, size = 128;
+  char *buff = (char *) must_malloc(size);
+  SCM res;
+
+  port = verify_port("read-line", port, F_READ);
+  f = PORT_FILE(port);
+  for (i = 0; ; i++) {
+    switch (c = Getc(f)) {
+      case EOF:  if (i == 0) { free(buff); return STk_eof_object; }
+      case '\n': res = STk_makestrg(i, buff); free(buff); return res;
+      default:   if (i == size) {
+	           size += size / 2;
+		   buff = must_realloc(buff, size);
+		 }
+	         buff[i] = c;
+    }
+  }
+}
+
+PRIMITIVE STk_flush(SCM port)
+{
+  int code;
+
+  port = verify_port("flush", port, F_WRITE|F_READ);
+  code = fflush(PORT_FILE(port));
+
+  if (code == EOF) Err("flush: cannot flush buffer", port);
+
+  return UNDEFINED;
+}
+
+/******************************************************************************
+ *
+ * Autoload stuff
+ *
+ ******************************************************************************/
+
+static SCM list_of_files = NULL;
+
+static SCM make_autoload(SCM file)
+{
+  SCM z;
+  
+  NEWCELL(z, tc_autoload);
+  CAR(z) =  file;
+  return z;
+}
+
+void STk_do_autoload(SCM var)
+{
+  SCM file, autoload;
+
+  autoload = VCELL(var); file = CAR(autoload);
+  
+  /* Retain in a list, files which are currently autoloaded to avoid mult. load */
+  if (!list_of_files) {
+    list_of_files = NIL;
+    STk_gc_protect(&list_of_files);
+  }
+
+  if (STk_member(file, list_of_files) != Ntruth) return;
+  list_of_files = Cons(file, list_of_files);
+
+  STk_loadfile(CHARS(file), TRUE);
+
+  list_of_files = CDR(list_of_files);
+
+  if (TYPEP(VCELL(var), tc_autoload)) {
+    Err("autoload: symbol was not defined", var);
+  }
+}
+
+PRIMITIVE STk_autoload(SCM l, SCM env, int len)
+{
+  SCM file;
+
+  if (len < 2) Err("autoload: bad parameter list", l);
+
+  file = CAR(l); 
+  if (NSTRINGP(file)) Err("autoload: bad file name", file);
+
+  for (l = CDR(l); NNULLP(l); l = CDR(l)) {
+    if (NSYMBOLP(CAR(l))) Err("autoload: bad symbol", CAR(l));
+    VCELL(CAR(l)) = make_autoload(file);
+  }
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_autoloadp(SCM l, SCM env, int len)
+{
+  if (len != 1 || NSYMBOLP(CAR(l)))
+    Err("autoload?: bad symbol", l);
+  
+  return TYPEP(CAR(l), tc_autoload) ? Truth: Ntruth;
+}
+
+#ifdef USE_TK
+/******************************************************************************
+ *
+ * Port event management
+ *
+ ******************************************************************************/
+
+static void apply_file_closure(SCM closure)
+{
+  Apply(closure, NIL);
+}
+ 
+
+static SCM when_port_ready(SCM port, SCM closure, char *name, int mode)
+{
+  char str[50];
+  Tcl_File f;
+
+  if (NIPORTP(port) && NOPORTP(port)) {
+    sprintf(str, "%s: bad port", name);
+    STk_err(str, port);
+  }
+
+  if (closure == UNBOUND) {
+    /* Return the current handler closure */
+    return ((mode == TCL_READABLE)? PORT_REVENT(port): PORT_WEVENT(port));
+  }
+
+  f = Tcl_GetFile((ClientData) fileno(PORT_FILE(port)), TCL_UNIX_FD);
+  
+  if (closure == Ntruth) {
+    Tcl_DeleteFileHandler(f);    
+    if (mode == TCL_READABLE)
+      PORT_REVENT(port) = Ntruth;
+    else
+      PORT_WEVENT(port) = Ntruth;
+  }
+  else {
+    if (STk_procedurep(closure) == Ntruth) {
+      sprintf(str, "%s: bad closure", name);
+      STk_err(str, closure);
+    }
+
+    Tcl_CreateFileHandler(f, mode, (Tcl_FileProc *) apply_file_closure, 
+			  (ClientData) closure);
+    if (mode == TCL_READABLE)
+      PORT_REVENT(port) = closure;
+    else
+      PORT_WEVENT(port) = closure;
+  }
+  return UNDEFINED;
+}
+  
+
+PRIMITIVE STk_when_port_readable(SCM port, SCM closure)
+{
+  return when_port_ready(port, closure, "when-port-readable", TCL_READABLE);
+}
+
+
+PRIMITIVE STk_when_port_writable(SCM port, SCM closure)
+{
+  return when_port_ready(port, closure, "when-port-writable", TCL_WRITABLE);
+}
+#endif
diff --git a/Src/posix.c b/Src/posix.c
new file mode 120000
index 0000000..f7bc200
--- /dev/null
+++ b/Src/posix.c
@@ -0,0 +1 @@
+../Extensions/posix.c
\ No newline at end of file
diff --git a/Src/primitives.c b/Src/primitives.c
new file mode 100644
index 0000000..2a6fd8f
--- /dev/null
+++ b/Src/primitives.c
@@ -0,0 +1,467 @@
+/*
+ *
+ * p r i m i t i v e s . c			-- List of STk subrs
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: ??????
+ * Last file update: 16-Jun-1996 22:54
+ */
+
+
+#include "stk.h"
+
+struct Primitive {
+  char *name;
+  char type;
+  PRIMITIVE (*fct)();
+};
+
+#ifdef USE_HASH
+extern PRIMITIVE STk_init_hash(void);
+#endif
+#ifdef USE_SOCKET
+extern PRIMITIVE STk_init_socket(void);
+#endif
+#ifdef USE_BLT
+extern PRIMITIVE STk_init_blt(void);
+#endif
+#ifdef USE_REGEXP
+extern PRIMITIVE STk_init_sregexp(void);
+#endif
+#ifdef USE_PROCESS
+extern PRIMITIVE STk_init_process(void);
+#endif
+#ifdef USE_POSIX
+extern PRIMITIVE STk_init_posix(void);
+#endif
+#ifdef USE_HTML
+extern PRIMITIVE STk_init_html(void);
+#endif
+#ifdef USE_PIXMAP
+extern PRIMITIVE STk_init_pixmap(void);
+#endif
+
+static struct Primitive Scheme_primitives[] = { 
+
+  /**** Section 4.1 ****/
+  {"quote",		    tc_syntax,	    STk_syntax_quote},
+  {"lambda",		    tc_syntax,	    STk_syntax_lambda},
+  {"if",		    tc_syntax,	    STk_syntax_if},
+  {"set!",		    tc_syntax,	    STk_syntax_setq},
+  
+  /**** Section 4.2 ****/
+  {"cond",		    tc_syntax,	    STk_syntax_cond},
+  {"and",		    tc_syntax,	    STk_syntax_and},
+  {"or",		    tc_syntax,	    STk_syntax_or},
+  {"let",		    tc_syntax,	    STk_syntax_let},
+  {"let*",		    tc_syntax,	    STk_syntax_letstar},
+  {"letrec",		    tc_syntax,	    STk_syntax_letrec},
+  {"begin",		    tc_syntax,	    STk_syntax_begin},
+  {"delay",		    tc_syntax,	    STk_syntax_delay},
+  {"quasiquote",	    tc_syntax,	    STk_syntax_quasiquote},
+  {"while",		    tc_fsubr,	    STk_while},		
+  {"until",		    tc_fsubr,	    STk_until},		
+  {"extend-environment",    tc_syntax,	    STk_syntax_extend_env},	/* + */
+
+
+  /**** Section 5 ****/
+  {"define",		    tc_syntax,	    STk_syntax_define},
+
+  /**** Section 6.1 ****/
+  {"boolean?",		    tc_subr_1,      STk_booleanp},
+  {"not",		    tc_subr_1,      STk_not},
+
+  /**** Section 6.2 ****/
+  {"eq?",		    tc_subr_2,      STk_eq},
+  {"eqv?",		    tc_subr_2,      STk_eqv},
+  {"equal?",		    tc_subr_2,      STk_equal},
+
+  /**** Section 6.3 ****/
+  {"pair?",		    tc_subr_1,      STk_pairp},
+  {"cons",		    tc_subr_2,      STk_cons},
+  {"car",		    tc_subr_1,      STk_car},
+  {"cdr",		    tc_subr_1,      STk_cdr},
+  {"set-car!",		    tc_subr_2,      STk_setcar},
+  {"set-cdr!",		    tc_subr_2,      STk_setcdr},
+  {"caar",		    tc_subr_1,      STk_caar},
+  {"cdar",		    tc_subr_1,      STk_cdar},
+  {"cadr",		    tc_subr_1,      STk_cadr},
+  {"cddr",		    tc_subr_1,      STk_cddr},
+  {"caaar",		    tc_subr_1,      STk_caaar},
+  {"cdaar",		    tc_subr_1,      STk_cdaar},
+  {"cadar",		    tc_subr_1,      STk_cadar},
+  {"cddar",		    tc_subr_1,      STk_cddar},
+  {"caadr",		    tc_subr_1,      STk_caadr},
+  {"cdadr",		    tc_subr_1,      STk_cdadr},
+  {"caddr",		    tc_subr_1,      STk_caddr},
+  {"cdddr",		    tc_subr_1,      STk_cdddr},
+  {"caaaar",		    tc_subr_1,      STk_caaaar},
+  {"cdaaar",		    tc_subr_1,      STk_cdaaar},
+  {"cadaar",		    tc_subr_1,      STk_cadaar},
+  {"cddaar",		    tc_subr_1,      STk_cddaar},
+  {"caadar",		    tc_subr_1,      STk_caadar},
+  {"cdadar",		    tc_subr_1,      STk_cdadar},
+  {"caddar",		    tc_subr_1,      STk_caddar},
+  {"cdddar",		    tc_subr_1,      STk_cdddar},
+  {"caaadr",		    tc_subr_1,      STk_caaadr},
+  {"cdaadr",		    tc_subr_1,      STk_cdaadr},
+  {"cadadr",		    tc_subr_1,      STk_cadadr},
+  {"cddadr",		    tc_subr_1,      STk_cddadr},
+  {"caaddr",		    tc_subr_1,      STk_caaddr},
+  {"cdaddr",		    tc_subr_1,      STk_cdaddr},
+  {"cadddr",		    tc_subr_1,      STk_cadddr},
+  {"cddddr",		    tc_subr_1,      STk_cddddr},
+  {"null?",		    tc_subr_1,      STk_nullp},
+  {"list?",		    tc_subr_1,      STk_listp},
+  {"list",		    tc_lsubr,       STk_list},
+  {"length",		    tc_subr_1,      STk_list_length},
+  {"append",		    tc_lsubr,       STk_append},
+  {"reverse",		    tc_subr_1,      STk_reverse},
+  {"list-tail",		    tc_subr_2,      STk_list_tail},
+  {"list-ref",		    tc_subr_2,      STk_list_ref},
+  {"memq",		    tc_subr_2,      STk_memq},
+  {"memv",		    tc_subr_2,      STk_memv},
+  {"member",		    tc_subr_2,      STk_member},
+  {"assq",		    tc_subr_2,      STk_assq},
+  {"assv",		    tc_subr_2,      STk_assv},
+  {"assoc",		    tc_subr_2,      STk_assoc},
+
+  {"list*",		    tc_lsubr,       STk_liststar},		/* + */
+  {"copy-tree",		    tc_subr_1,	    STk_copy_tree},		/* + */
+
+  /**** Section 6.4 ****/
+  {"symbol?",		    tc_subr_1,	    STk_symbolp},
+  {"symbol->string",	    tc_subr_1,	    STk_symbol2string},
+  {"string->symbol",	    tc_subr_1,	    STk_string2symbol},
+
+  /**** Section 6.5 ****/
+  {"number?",		    tc_subr_1,	    STk_numberp},
+  {"complex?",		    tc_subr_1,	    STk_numberp},
+  {"real?",		    tc_subr_1,	    STk_numberp},
+  {"rational?",		    tc_subr_1,	    STk_numberp},
+  {"integer?",		    tc_subr_1,	    STk_integerp},
+  {"exact?",		    tc_subr_1,	    STk_exactp},
+  {"inexact?",		    tc_subr_1,	    STk_inexactp},
+  {"=",			    tc_ssubr,	    STk_numequal},
+  {"<",			    tc_ssubr,	    STk_lessp},	  
+  {">",			    tc_ssubr,	    STk_greaterp},
+  {"<=",		    tc_ssubr,	    STk_lessep},
+  {">=",		    tc_ssubr,	    STk_greaterep},
+  {"zero?",		    tc_subr_1,	    STk_zerop},
+  {"negative?",		    tc_subr_1,	    STk_negativep},
+  {"positive?",		    tc_subr_1,	    STk_positivep},
+  {"odd?",		    tc_subr_1,	    STk_oddp},
+  {"even?",		    tc_subr_1,	    STk_evenp},
+  {"max",		    tc_ssubr,	    STk_max},
+  {"min",		    tc_ssubr,	    STk_min},
+  {"+",			    tc_ssubr,	    STk_plus},
+  {"-",			    tc_ssubr,	    STk_difference},
+  {"*",			    tc_ssubr,	    STk_times},
+  {"/",			    tc_ssubr,	    STk_division},
+  {"abs",		    tc_subr_1,	    STk_absolute},
+  {"quotient",		    tc_subr_2,	    STk_quotient},
+  {"remainder",		    tc_subr_2,	    STk_remainder},
+  {"modulo",		    tc_subr_2,	    STk_modulo},
+  {"gcd",		    tc_ssubr,	    STk_gcd},
+  {"lcm",		    tc_ssubr,	    STk_lcm},
+  {"floor",		    tc_subr_1,	    STk_floor},
+  {"ceiling",		    tc_subr_1,	    STk_ceiling},
+  {"truncate",		    tc_subr_1,	    STk_truncate},
+  {"round",		    tc_subr_1,	    STk_round},
+  {"exp",		    tc_subr_1,	    STk_exp},
+  {"log",		    tc_subr_1,	    STk_log},
+  {"sin",		    tc_subr_1,	    STk_sin},
+  {"cos",		    tc_subr_1,	    STk_cos},
+  {"tan",		    tc_subr_1,	    STk_tan},
+  {"asin",		    tc_subr_1,	    STk_asin},
+  {"acos",		    tc_subr_1,	    STk_acos},
+  {"atan",		    tc_subr_1_or_2, STk_atan},
+  {"sqrt",		    tc_subr_1,	    STk_sqrt},
+  {"expt",		    tc_subr_2,	    STk_expt},
+  {"exact->inexact",	    tc_subr_1,	    STk_exact2inexact},
+  {"inexact->exact",	    tc_subr_1,	    STk_inexact2exact},
+  {"string->number",	    tc_subr_1_or_2, STk_string2number},
+  {"number->string",	    tc_subr_1_or_2, STk_number2string},
+  {"bignum?",		    tc_subr_1,	    STk_bignump},		/* + */
+
+  /**** Section 6.6 ****/
+  {"char?",		    tc_subr_1,	    STk_charp},
+
+  {"char=?",		    tc_subr_2,	    STk_chareq},
+  {"char<?",		    tc_subr_2,	    STk_charless},
+  {"char>?",		    tc_subr_2,	    STk_chargt},
+  {"char<=?",		    tc_subr_2,	    STk_charlesse},
+  {"char>=?",		    tc_subr_2,	    STk_chargte},
+
+  {"char-ci=?",		    tc_subr_2,	    STk_chareqi},
+  {"char-ci<?",		    tc_subr_2,	    STk_charlessi},
+  {"char-ci>?",		    tc_subr_2,	    STk_chargti},
+  {"char-ci<=?",	    tc_subr_2,	    STk_charlessei},
+  {"char-ci>=?",	    tc_subr_2,	    STk_chargtei},
+  
+  {"char-alphabetic?",	    tc_subr_1,	    STk_char_alphap},
+  {"char-numeric?",	    tc_subr_1,	    STk_char_numericp},
+  {"char-whitespace?",	    tc_subr_1,	    STk_char_whitep},
+  {"char-upper-case?",	    tc_subr_1,	    STk_char_upperp},
+  {"char-lower-case?",	    tc_subr_1,	    STk_char_lowerp},
+  
+  {"integer->char",	    tc_subr_1,	    STk_integer2char},
+  {"char->integer",	    tc_subr_1,	    STk_char2integer},
+  {"char-upcase",	    tc_subr_1,	    STk_char_upper},
+  {"char-downcase",	    tc_subr_1,	    STk_char_lower},
+ 
+  /**** Section 6.7 ****/
+  {"string?",		    tc_subr_1,	    STk_stringp},
+
+  {"make-string",	    tc_subr_1_or_2, STk_make_string},
+  {"string",		    tc_lsubr,	    STk_lstring},
+  {"string-length",	    tc_subr_1,	    STk_string_length},
+  {"string-ref",	    tc_subr_2,	    STk_string_ref},
+  {"string-set!",	    tc_subr_3,	    STk_string_set},
+
+  {"string=?",		    tc_subr_2,	    STk_streq},
+  {"string<?",		    tc_subr_2,	    STk_strless},
+  {"string>?",		    tc_subr_2,	    STk_strgt},
+  {"string<=?",		    tc_subr_2,	    STk_strlesse},
+  {"string>=?",		    tc_subr_2,	    STk_strgte},
+
+  {"string-ci=?",	    tc_subr_2,	    STk_streqi},
+  {"string-ci<?",	    tc_subr_2,	    STk_strlessi},
+  {"string-ci>?",	    tc_subr_2,	    STk_strgti},
+  {"string-ci<=?",	    tc_subr_2,	    STk_strlessei},
+  {"string-ci>=?",	    tc_subr_2,	    STk_strgtei},
+
+  {"substring",		    tc_subr_3,	    STk_substring},
+  {"string-append",	    tc_lsubr,	    STk_string_append},
+  {"string->list",	    tc_subr_1,	    STk_string2list},
+  {"list->string",	    tc_subr_1,	    STk_list2string},
+  {"string-copy",	    tc_subr_1,	    STk_string_copy},
+  {"string-fill!",	    tc_subr_2,	    STk_string_fill},
+
+  {"string-find?",	    tc_subr_2,	    STk_string_findp},		/* + */
+  {"string-index",	    tc_subr_2,	    STk_string_index},		/* + */
+  {"string-lower",	    tc_subr_1,	    STk_string_lower},		/* + */
+  {"string-upper",	    tc_subr_1,	    STk_string_upper},		/* + */
+
+
+  /**** Section 6.8 ****/
+  {"vector?",		    tc_subr_1,	    STk_vectorp},
+  {"make-vector",	    tc_subr_1_or_2, STk_make_vector},
+  {"vector",		    tc_lsubr,	    STk_vector},
+  {"vector-length",	    tc_subr_1,	    STk_vector_length},
+  {"vector-ref",	    tc_subr_2,	    STk_vector_ref},
+  {"vector-set!",	    tc_subr_3,	    STk_vector_set},
+  {"vector->list",	    tc_subr_1,	    STk_vector2list},
+  {"list->vector",	    tc_subr_1,	    STk_list2vector},
+  {"vector-fill!",	    tc_subr_2,	    STk_vector_fill},
+
+  {"vector-copy",	    tc_subr_1,	    STk_vector_copy},		/* + */
+  {"vector-resize",	    tc_subr_2,	    STk_vector_resize},		/* + */
+
+  /**** Section 6.9 ****/
+  {"procedure?",	    tc_subr_1,	    STk_procedurep},
+  {"apply",		    tc_apply,	    NULL},
+  {"map",		    tc_lsubr,	    STk_map},
+  {"for-each",		    tc_lsubr,	    STk_for_each},
+  {"force",		    tc_subr_1,	    STk_force},
+  {"call-with-current-continuation",		
+     			    tc_call_cc,	    NULL}, 
+
+  {"promise?",	  	    tc_subr_1,	    STk_promisep},		/* + */
+  {"continuation?",	    tc_subr_1,	    STk_continuationp},		/* + */
+  {"dynamic-wind",	    tc_subr_3,	    STk_dynamic_wind},		/* + */
+  {"catch",		    tc_fsubr,	    STk_catch},			/* + */
+  {"procedure-body",	    tc_subr_1,	    STk_procedure_body},	/* + */
+
+  /**** Section 6.10 ****/
+  {"input-port?",	    tc_subr_1,	    STk_input_portp},
+  {"output-port?",	    tc_subr_1,	    STk_output_portp},
+  {"current-input-port",    tc_subr_0,	    STk_current_input_port},
+  {"current-output-port",   tc_subr_0,	    STk_current_output_port},
+  {"with-input-from-file",  tc_subr_2,	    STk_with_input_from_file},
+  {"with-output-to-file",   tc_subr_2,	    STk_with_output_to_file},
+  {"open-input-file",	    tc_subr_1,	    STk_open_input_file},
+  {"open-output-file",	    tc_subr_1,	    STk_open_output_file},
+  {"close-input-port",	    tc_subr_1,	    STk_close_input_port},
+  {"close-output-port",	    tc_subr_1,	    STk_close_output_port},
+  {"read",		    tc_subr_0_or_1, STk_read},
+  {"read-char",             tc_subr_0_or_1, STk_read_char},
+  {"peek-char",             tc_subr_0_or_1, STk_peek_char},
+  {"eof-object?",	    tc_subr_1,	    STk_eof_objectp},
+  {"char-ready?",	    tc_subr_0_or_1, STk_char_readyp},
+  {"write",		    tc_subr_1_or_2, STk_write},
+  {"display",		    tc_subr_1_or_2, STk_display},
+  {"newline",		    tc_subr_0_or_1, STk_newline},
+  {"write-char",	    tc_subr_1_or_2, STk_write_char},
+  {"load",		    tc_subr_1,	    STk_scheme_load},
+
+  {"open-file",		    tc_subr_2,	    STk_open_file},		/* + */
+  {"close-port",	    tc_subr_1,	    STk_close_port},		/* + */
+  {"read-line",		    tc_subr_0_or_1, STk_read_line},		/* + */
+  {"flush",		    tc_subr_0_or_1, STk_flush},			/* + */
+  {"try-load",		    tc_subr_1,	    STk_try_load},		/* + */
+  {"autoload",		    tc_fsubr,	    STk_autoload},		/* + */
+  {"autoload?",		    tc_fsubr,	    STk_autoloadp},		/* + */
+#ifdef USE_TK
+  {"when-port-readable",    tc_subr_1_or_2, STk_when_port_readable},	/* + */
+  {"when-port-writable",    tc_subr_1_or_2, STk_when_port_writable},	/* + */
+#endif
+  {"format",		    tc_lsubr,	    STk_format},		/* + */
+  {"error",		    tc_lsubr,	    STk_error},			/* + */
+  {"input-string-port?",    tc_subr_1,	    STk_input_string_portp},	/* + */
+  {"output-string-port?",   tc_subr_1,	    STk_output_string_portp},	/* + */
+  {"current-error-port",    tc_subr_0,	    STk_current_error_port},	/* + */
+  {"open-input-string",	    tc_subr_1,	    STk_open_input_string},	/* + */
+  {"open-output-string",    tc_subr_0,	    STk_open_output_string},	/* + */
+  {"get-output-string",	    tc_subr_1,	    STk_get_output_string},	/* + */
+  {"with-input-from-string",tc_subr_2,	    STk_with_input_from_string},/* + */
+  {"with-output-to-string", tc_subr_1,	    STk_with_output_to_string}, /* + */
+  {"read-from-string",	    tc_subr_1,	    STk_read_from_string},	/* + */
+
+  /**** Section 6.11 ****/
+  {"keyword?",		    tc_subr_1,	    STk_keywordp},		/* + */
+  {"make-keyword",	    tc_subr_1,	    STk_make_keyword},		/* + */
+  {"keyword->string",	    tc_subr_1, 	    STk_keyword2string},	/* + */
+  {"get-keyword",	    tc_subr_2_or_3, STk_get_keyword},		/* + */
+
+  /**** Section 6.12 ****/
+#ifdef USE_TK
+  {"widget->string",	    tc_subr_1,	    STk_widget2string},		/* + */
+  {"string->widget",	    tc_subr_1,	    STk_string2widget},		/* + */
+  {"tk-command?",	    tc_subr_1,	    STk_tk_commandp},		/* + */
+  {"widget-name",	    tc_subr_1,	    STk_widget_name},		/* + */
+  {"get-widget-data",	    tc_subr_1,	    STk_get_widget_data},	/* + */
+  {"set-widget-data!",	    tc_subr_2,	    STk_set_widget_data},	/* + */
+#endif
+
+  /**** Section 6.13 ****/
+  {"environment?",	    tc_subr_1,	    STk_environmentp},		/* + */
+  {"the-environment",	    tc_fsubr,	    STk_the_environment},	/* + */
+  {"parent-environment",    tc_subr_1,	    STk_parent_environment},	/* + */
+  {"global-environment",    tc_subr_0,	    STk_global_environment},	/* + */
+  {"environment->list",	    tc_subr_1,	    STk_environment2list},	/* + */
+  {"procedure-environment", tc_subr_1,	    STk_procedure_environment},	/* + */
+  {"symbol-bound?",	    tc_subr_1_or_2, STk_symbol_boundp},		/* + */
+  {"eval",		    tc_subr_1_or_2, STk_user_eval},		/* + */
+  {"eval-hook",		    tc_subr_3,	    STk_eval_hook},		/* + */
+
+
+  /**** Section 6.14 ****/
+  {"macro",		    tc_fsubr,	    STk_macro},			/* + */
+  {"macro?",		    tc_subr_1,	    STk_macrop},		/* + */
+  {"macro-expand",	    tc_fsubr,	    STk_macro_expand},		/* + */
+  {"macro-expand-1",	    tc_fsubr,	    STk_macro_expand_1},	/* + */
+  {"macro-body",	    tc_subr_1,	    STk_macro_body},		/* + */
+
+  /**** Section 6.15 ****/
+  {"address-of",	    tc_subr_1,	    STk_address_of},		/* + */
+  {"address?",		    tc_subr_1,	    STk_addressp},		/* + */
+
+  /**** Section 6.16 ****/
+  {"set-signal-handler!",   tc_subr_2,	    STk_set_signal_handler},	/* + */
+  {"add-signal-handler!",   tc_subr_2, 	    STk_add_signal_handler},	/* + */
+  {"get-signal-handlers",   tc_subr_0_or_1, STk_get_signal_handlers},	/* + */
+
+  /**** Section 6.17 ****/
+  {"getcwd",		    tc_subr_0,	    STk_getcwd},		/* + */
+  {"chdir",		    tc_subr_1,	    STk_chdir},			/* + */
+  {"getpid",		    tc_subr_0,	    STk_getpid},		/* + */
+  {"expand-file-name",	    tc_subr_1,	    STk_expand_file_name},	/* + */
+  {"canonical-path",	    tc_subr_1,	    STk_canonical_path},	/* + */
+  {"system",		    tc_subr_1,	    STk_system},		/* + */
+  {"getenv",		    tc_subr_1,	    STk_getenv},		/* + */
+  {"setenv!",		    tc_subr_2,	    STk_setenv},		/* + */
+  {"file-is-directory?",    tc_subr_1,	    STk_file_is_directoryp},	/* + */
+  {"file-is-regular?",      tc_subr_1,	    STk_file_is_regularp},	/* + */
+  {"file-is-readable?",     tc_subr_1,	    STk_file_is_readablep},	/* + */
+  {"file-is-writable?",     tc_subr_1,	    STk_file_is_writablep},	/* + */
+  {"file-is-executable?",   tc_subr_1,	    STk_file_is_executablep},	/* + */
+  {"file-exists?",	    tc_subr_1,	    STk_file_existp},		/* + */
+  {"glob",		    tc_lsubr,	    STk_file_glob},		/* + */
+
+  /**** Non standard procedures ****/
+  {"eval-string",	    tc_subr_1_or_2, STk_eval_string},		/* + */
+  {"gc",		    tc_subr_0,	    STk_gc},			/* + */
+  {"gc-stats",		    tc_subr_0,	    STk_gc_stats},		/* + */
+  {"expand-heap",	    tc_subr_1,	    STk_expand_heap},		/* + */
+  {"version",		    tc_subr_0,	    STk_version},		/* + */
+  {"machine-type",	    tc_subr_0,	    STk_machine_type},		/* + */
+  {"random",		    tc_subr_1,	    STk_random},		/* + */
+  {"set-random-seed!",	    tc_subr_1,	    STk_set_random_seed},	/* + */
+  {"sort",		    tc_subr_2,	    STk_sort},			/* + */
+  {"dump",		    tc_subr_1,	    STk_dump},			/* + */
+  {"get-internal-info",	    tc_subr_0,	    STk_get_internal_info},	/* + */
+  {"time",		    tc_fsubr,	    STk_time},			/* + */
+  {"uncode",		    tc_subr_1,	    STk_uncode},		/* + */
+  {"exit",		    tc_subr_0_or_1, STk_quit_interpreter},	/* + */
+
+#ifdef USE_TK
+  {"trace-var",		    tc_subr_2,	    STk_trace_var},		/* + */
+  {"untrace-var",	    tc_subr_1,	    STk_untrace_var},		/* + */
+#endif
+
+  /**** Undocumented primitives */
+  {"%get-eval-stack",	    tc_subr_0,	    STk_get_eval_stack},
+  {"%get-environment-stack",tc_subr_0,	    STk_get_env_stack},
+  {"%find-cells",	    tc_subr_1,	    STk_find_cells},
+  {"%library-location",	    tc_subr_0,	    STk_library_location},
+
+#ifdef USE_STKLOS
+  {"%init-stklos",	    tc_subr_0,	    STk_init_STklos},
+#endif
+
+#ifdef USE_HASH
+  {"%init-hash",	    tc_subr_0,	    STk_init_hash},
+#endif
+#ifdef USE_SOCKET
+  {"%init-socket",	    tc_subr_0,	    STk_init_socket},
+#endif
+#ifdef USE_BLT
+ {"%init-blt",	    	    tc_subr_0,	    STk_init_blt},
+#endif 
+#ifdef USE_REGEXP
+ {"%init-regexp",    	    tc_subr_0,	    STk_init_sregexp},
+#endif 
+#ifdef USE_PROCESS
+ {"%init-process",    	    tc_subr_0,	    STk_init_process},
+#endif
+#ifdef USE_POSIX
+ {"%init-posix",    	    tc_subr_0,	    STk_init_posix},
+#endif 
+#ifdef USE_HTML
+  {"%init-html",	    tc_subr_0,	    STk_init_html},
+#endif
+#if defined(USE_TK) && defined(USE_PIXMAP)
+  {"%init-pixmap",	    tc_subr_0,	    STk_init_pixmap},
+#endif
+  { "", 0, (SCM (*)()) NULL }
+};
+
+void STk_init_primitives(void)
+{
+  register struct Primitive *p;
+  register SCM z;
+
+  for (p = Scheme_primitives; *p->name; p++) {
+    /* Create a subr cell and store it in the obarray */
+    NEWCELL(z, p->type);
+    z->storage_as.subr.name = p->name;
+    z->storage_as.subr0.f   = p->fct;
+    VCELL(Intern(p->name))  =  z;
+  }
+}
diff --git a/Src/print.c b/Src/print.c
new file mode 100644
index 0000000..b4b9fa7
--- /dev/null
+++ b/Src/print.c
@@ -0,0 +1,327 @@
+/*
+ * p r i n t . c				-- writing stuff
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ??-Oct-1993 ??:?? 
+ * Last file update:  9-Jun-1996 23:53
+ *
+ */
+
+#include "stk.h"
+#include "extend.h"
+
+static char valid_symbol_chars[]=
+		"abcdefghijklmnopqrstuvwxyz0123456789+-.*/<=>!?:$%_&~^";
+
+static void printlist(SCM exp, SCM port, int mode)
+{
+  SCM tmp;
+  FILE *f = PORT_FILE(port);
+
+  STk_print(CAR(exp), port, mode);
+  for (tmp=CDR(exp); CONSP(tmp); tmp=CDR(tmp)) {
+    Putc(' ', f);
+    STk_print(CAR(tmp), port, mode);
+  }
+  if (NNULLP(tmp)) {
+    Puts(" . ", f);
+    STk_print(tmp, port, mode);
+  }
+}
+
+static void printsymbol(char *s, FILE *f, int mode)
+{
+  if (mode==WRT_MODE) {	/* See if we need to enclose pname between a "|" pair */
+    register char *p;
+    for (p = s; *p; p++) {
+      if (!strchr(valid_symbol_chars, *p)) {
+	Putc('|', f);  Puts(s, f); Putc('|', f);
+	return;
+      }
+    }
+  }
+  Puts(s, f);
+}
+
+#ifdef USE_STKLOS
+static void display_instance(SCM instance, SCM port, int type)
+{
+  char *fct_name;
+
+  if (type == DSP_MODE)   fct_name = "display-object"; else
+  if (type == WRT_MODE)   fct_name = "write-object";   else
+  /* (type == TK_MODE) */ fct_name = "tk-write-object";
+
+  Apply(VCELL(STk_intern(fct_name)), LIST2(instance, port));
+}
+#endif
+
+           
+SCM STk_print(SCM exp, SCM port, int mode)
+{
+  FILE *f = PORT_FILE(port);
+
+  switch TYPE(exp) {
+    case tc_nil:
+      Puts("()", f);
+      break;
+    case tc_undefined:
+      Puts("#[undefined]", f);
+      break;
+    case tc_boolean:
+      Puts(EQ(exp, Truth) ? "#t" : "#f", f);
+      break;
+    case tc_eof:
+      Puts("#[eof]", f);
+      break;
+    case tc_cons:
+      Putc('(', f); printlist(exp, port, mode); Putc(')', f);
+      break;
+    case tc_integer:
+    case tc_bignum:
+    case tc_flonum:
+      {
+	char buffer[100];
+
+	char *s = STk_number2Cstr(exp, 10, buffer);
+	Puts(s, f);
+	if (TYPE(exp) == tc_bignum) free(s);
+      }
+      break;
+    case tc_symbol:
+      printsymbol(PNAME(exp), f, mode);
+      break;
+    case tc_keyword:
+      if (mode != DSP_MODE) Putc(':', f);
+      Puts(KEYVAL(exp)+1, f);
+      break;
+    case tc_subr_0:
+    case tc_subr_1:
+    case tc_subr_2:
+    case tc_subr_3:
+    case tc_subr_0_or_1:
+    case tc_subr_1_or_2:
+    case tc_subr_2_or_3:
+    case tc_lsubr:
+    case tc_ssubr:
+    case tc_fsubr:
+    case tc_syntax:
+      Puts("#[subr ", f);
+      Puts((*exp).storage_as.subr.name, f);
+      Putc(']', f);
+      break;
+    case tc_closure:
+      if (mode != TK_MODE) 
+	sprintf(STk_tkbuffer, "#[closure %lx]", (unsigned long) exp);
+      else 
+	sprintf(STk_tkbuffer, "#p%lx", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_char:
+      if (mode!=DSP_MODE){
+	Puts("#\\", f);
+	Puts(STk_char2string(CHAR(exp)), f);
+      }
+      else Putc(CHAR(exp), f);
+      break;      
+    case tc_string:
+      {
+	register char *p  = CHARS(exp);
+	register int  len = STRSIZE(exp);
+
+	if (mode!=DSP_MODE) Putc('"', f);
+	
+	for (  ; len; len--, p++) {
+	  if (mode != DSP_MODE)
+	    switch (*p) {
+	      case '\0' : Puts("\\0000", f); break;
+	      case '\a' : Puts("\\a", f); break;
+	      case '\b' : Puts("\\n", f); break;
+	      case '\f' : Puts("\\f", f); break;
+	      case '\n' : Puts("\\n", f); break;
+	      case '\r' : Puts("\\r", f); break;
+	      case '\t' : Puts("\\t", f); break;
+	      case '\v' : Puts("\\v", f); break;
+	      case '"'  :
+	      case '\\' : Putc('\\', f); /* NO BREAK */
+	      default:    Putc(*p, f);
+	    }
+	  else 
+	     Putc(*p, f);
+	}
+	
+	if (mode!=DSP_MODE) Putc('"', f);	
+      }
+      break;
+    case tc_vector:
+      {
+        int j, n = exp->storage_as.vector.dim;
+        
+        Puts("#(", f);
+        for(j=0; j < n; j++) {
+	  STk_print(VECT(exp)[j], port, mode);
+	  if ((j + 1) < n) Putc(' ', f);
+	}
+        Putc(')', f);
+      }
+      break;         
+    case tc_iport:
+      if (mode != TK_MODE) 
+	sprintf(STk_tkbuffer, "#[input-port '%s'%s]", PORT_NAME(exp),
+		              (PORT_FLAGS(exp) & PORT_CLOSED) ? "(closed)" : "");
+      else
+	sprintf(STk_tkbuffer, "#file%lx", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_oport:
+      if (mode != TK_MODE) 
+	sprintf(STk_tkbuffer, "#[output-port '%s'%s]", PORT_NAME(exp),
+		              (PORT_FLAGS(exp) & PORT_CLOSED) ? "(closed)" : "");
+      else
+	sprintf(STk_tkbuffer, "#file%lx", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_isport:
+      sprintf(STk_tkbuffer, "#[input-string-port %lx%s]",
+	      (unsigned long) exp,
+	      (PORT_FLAGS(port) & PORT_CLOSED) ? "(closed)" : "");
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_osport:
+      sprintf(STk_tkbuffer, "#[output-string-port %lx%s]",
+	      (unsigned long) exp,
+	      (PORT_FLAGS(port) & PORT_CLOSED) ? "(closed)" : "");
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_macro:
+      sprintf(STk_tkbuffer, "#[macro %lx]",
+	      (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_localvar:
+      sprintf(STk_tkbuffer,"#[local %s @%d,%d)]",
+	      PNAME(exp->storage_as.localvar.symbol),
+	      exp->storage_as.localvar.level, 
+	      exp->storage_as.localvar.position);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_globalvar:
+      sprintf(STk_tkbuffer, "#[global %s]", PNAME(VCELL(exp)));
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_cont:
+      sprintf(STk_tkbuffer, "#[continuation %lx]", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_env:
+      sprintf(STk_tkbuffer, "#[environment %lx]", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_address:
+      {
+	char * fmt = (mode == DSP_MODE) ? "%lx" : "#p%lx";
+	sprintf(STk_tkbuffer, fmt, (unsigned long) exp->storage_as.env.data);
+	Puts(STk_tkbuffer, f);
+      }
+      break;
+    case tc_autoload: /* should never occur!!!!! */
+      sprintf(STk_tkbuffer, "#[autoload %lx]", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_Cpointer:
+      STk_Cpointer_display(exp, port, mode);
+      break;
+#ifdef USE_STKLOS
+    case tc_instance:
+      display_instance(exp, port, mode);
+      break;
+    case tc_next_method:
+      sprintf(STk_tkbuffer, "#[next_method %lx]", (unsigned long) exp);
+      Puts(STk_tkbuffer, f);
+      break;
+#endif
+#ifdef USE_TK
+    case tc_tkcommand:
+      if (mode != TK_MODE) Puts("#[Tk-command ", f);
+      Puts(exp->storage_as.tk.data->Id, f);
+      if (mode != TK_MODE) Putc(']', f);
+      break;
+#endif
+    case tc_quote:
+      Puts("#quote", f);
+      break;
+    case tc_lambda:
+      Puts("#lambda", f); 
+      break;
+    case tc_if:
+      Puts("#if", f); 
+      break;
+    case tc_setq:
+      Puts("#setq", f); 
+      break;
+    case tc_cond:
+      Puts("#cond", f); 
+      break;
+    case tc_and:
+      Puts("#and", f); 
+      break;
+    case tc_or:
+      Puts("#or", f); 
+      break;
+    case tc_let:
+      Puts("#let", f); 
+      break;
+    case tc_letstar:
+      Puts("#let*", f); 
+      break;
+    case tc_letrec:
+      Puts("#letrec", f); 
+      break;
+    case tc_begin:
+      Puts("#begin", f); 
+      break;
+    case tc_promise:
+      sprintf(STk_tkbuffer, "#[promise %lx (%sforced)]", 
+	      		    (unsigned long) exp, 
+	      		    exp->storage_as.promise.resultknown ? "" : "not ");
+      Puts(STk_tkbuffer, f);
+      break;
+    case tc_apply:
+      Puts("#apply", f);
+      break;
+    case tc_call_cc:
+      Puts("#call/cc", f);
+      break;
+    case tc_dynwind:
+      Puts("#dynamic-wind", f);
+      break;
+    case tc_extend_env:
+      Puts("#extend-environment", f);
+      break;
+    case tc_unbound:
+      Puts("#[unbound]", f);
+      break;
+    default:
+      if (EXTENDEDP(exp))
+	STk_extended_display(exp, port, mode);
+      else {
+	sprintf(STk_tkbuffer, "#[unknown %d %lx]", TYPE(exp), (unsigned long) exp);
+	Puts(STk_tkbuffer, f);
+      }
+  }
+  return UNDEFINED;
+}
diff --git a/Src/proc.c b/Src/proc.c
new file mode 100644
index 0000000..01934c0
--- /dev/null
+++ b/Src/proc.c
@@ -0,0 +1,135 @@
+/*
+ *
+ * p r o c . c			-- 
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 15-Nov-1993 22:02
+ * Last file update: 13-May-1996 22:41
+ */
+
+#include "stk.h"
+#include "extend.h"
+
+/**** Section 6.9 ****/
+
+int STk_is_thunk(SCM obj)
+{
+  switch (TYPE(obj)) {
+    case tc_closure:	/* We can be more clever here.... */
+#ifdef USE_STKLOS
+    case tc_instance:
+#endif
+    case tc_subr_0:
+    case tc_subr_0_or_1: return TRUE;
+  }
+  return FALSE;
+}
+
+
+PRIMITIVE STk_procedurep(SCM obj)
+{
+  switch (TYPE(obj)) {
+    case tc_subr_0: 	
+    case tc_subr_1: 	
+    case tc_subr_2:  
+    case tc_subr_3:	
+    case tc_subr_0_or_1:	
+    case tc_subr_1_or_2:
+    case tc_subr_2_or_3:
+    case tc_lambda:	
+    case tc_lsubr:		
+    case tc_ssubr:
+    case tc_closure:
+    case tc_cont:
+    case tc_apply:
+    case tc_call_cc:
+    case tc_dynwind: 
+#ifdef USE_STKLOS
+    case tc_instance:
+    case tc_next_method:
+#endif
+#ifdef USE_TK
+    case tc_tkcommand:
+#endif
+			return Truth;
+    default: 		if (EXTENDEDP(obj))
+      			  return STk_extended_procedurep(obj) ? Truth : Ntruth;
+			else 
+			  return Ntruth;
+  }
+}
+
+
+static SCM general_map(SCM l, int map, int len)
+{
+  register int i;
+  SCM res = NIL,*tmp = &res;
+  SCM fct, args;
+
+  if (NCONSP(l)) goto error;
+
+  fct  = CAR(l);
+  len -= 1;
+  args = STk_vector(CDR(l), len);
+
+  for ( ; ; ) {
+    /* Build parameter list */
+    for (l=NIL, i=len-1; i >= 0; i--) {
+      if (NULLP(VECT(args)[i])) return res;
+      if (NCONSP(VECT(args)[i])) goto error;
+
+      l             = Cons(CAR(VECT(args)[i]), l);
+      VECT(args)[i] = CDR(VECT(args)[i]);
+    }
+
+    /* See if it's a map or a for-each call */
+    if (map) {
+      *tmp = Cons(Apply(fct, l), NIL);
+      tmp  = &CDR(*tmp);
+    }
+    else Apply(fct, l);
+  }
+error:
+  { 
+    char buff[50];
+    sprintf(buff, "%s: malformed list", map? "map" : "for-each");
+    Err(buff, l);
+  }
+}
+
+PRIMITIVE STk_map(SCM l, int len)
+{
+  return general_map(l, 1, len);
+}
+
+PRIMITIVE STk_for_each(SCM l, int len)
+{
+  return general_map(l, 0, len);
+}
+
+PRIMITIVE STk_procedure_body(SCM proc)
+{
+  return TYPEP(proc, tc_closure) ? Cons(Sym_lambda, proc->storage_as.closure.code)
+    				 : Ntruth;
+}
+
+PRIMITIVE STk_procedure_environment(SCM proc)
+{
+  return TYPEP(proc, tc_closure) ? STk_makeenv(proc->storage_as.closure.env,0)
+    				 : Ntruth;    
+}
diff --git a/Src/process.c b/Src/process.c
new file mode 120000
index 0000000..2d6d58c
--- /dev/null
+++ b/Src/process.c
@@ -0,0 +1 @@
+../Extensions/process.c
\ No newline at end of file
diff --git a/Src/promise.c b/Src/promise.c
new file mode 100644
index 0000000..eee1606
--- /dev/null
+++ b/Src/promise.c
@@ -0,0 +1,61 @@
+/*
+ *
+ *  p r o m i s e . c		-- Promises management
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date:  2-Jun-1993 12:27
+ * Last file update: 10-Dec-1995 22:31
+ *
+ */
+
+#include "stk.h"
+
+/*
+ * Delay is implemented by syntax_delay in syntax.c
+ */
+
+PRIMITIVE STk_force(SCM promise)
+{
+  SCM z;
+
+  if (NPROMISEP(promise)) return promise;
+
+  if (promise->storage_as.promise.resultknown) 
+    /* promise was alraedy evaluated. Simply return expr field */
+    return promise->storage_as.promise.expr;
+
+  z = Apply(promise->storage_as.promise.expr, NIL);
+
+  if (promise->storage_as.promise.resultknown)
+    /* R4RS: "A promise may refer to its own value.... Forcing such
+     * a promise may cause the promise to be forced a second time before
+     * the first value has been computed.
+     */
+    return promise->storage_as.promise.expr;
+  else {
+    promise->storage_as.promise.expr 	     = z;
+    promise->storage_as.promise.resultknown  = 1;
+    return z;
+  }
+}
+
+PRIMITIVE STk_promisep(SCM promise)
+{
+  return PROMISEP(promise)? Truth: Ntruth;
+}
diff --git a/Src/read.c b/Src/read.c
new file mode 100644
index 0000000..fc3d1b0
--- /dev/null
+++ b/Src/read.c
@@ -0,0 +1,259 @@
+/*
+ * r e a d  . c				-- reading stuff
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ??-Oct-1993 ??:?? 
+ * Last file update: 17-May-1996 18:39
+ *
+ */
+
+#include <ctype.h>
+#include "stk.h"
+
+static SCM lreadr(FILE *f, int case_significant);
+
+
+static int flush_ws(FILE *f, char *message)
+{
+  int c, commentp=0;
+
+  c = Getc(f);
+  for ( ; ; ) {
+    switch (c) {
+      case EOF:  if (message) Err(message,NIL); else return(c);
+      case ';':  do 
+		   c = Getc(f); 
+		 while (c != '\n' && c != EOF);
+		 continue;
+      case '\n': STk_line_counter += 1; break;
+      default:   if (!isspace(c)) return(c);
+    }
+    c = Getc(f);
+  }
+}
+
+static SCM lreadlist(FILE *f, char delim, int case_significant)
+/* Read a list ended by the `delim' char */
+{
+  int c;
+  SCM tmp;
+  
+  c = flush_ws(f, "end of file inside list");
+  if (c == delim) return(NIL);
+
+  /* Read the car */
+  Ungetc(c, f);
+  tmp = lreadr(f, case_significant);
+  
+  /* Read the cdr */
+  if (EQ(tmp, Sym_dot)) {
+    tmp = lreadr(f, case_significant);
+    c = flush_ws(f, "end of file inside list");
+    if (c != delim) Err("missing close paren", NIL);
+    return(tmp);
+  }
+  return(Cons(tmp, lreadlist(f, delim, case_significant)));
+}
+
+static void lreadword(FILE *f, int c, int case_significant) 
+/* read an item whose 1st char is in c */
+{ 
+  register int j = 0;
+  int allchars   = 0;
+
+  for( ; ; ) {
+    allchars  ^= (c == '|');
+    if (c != '|') 
+      STk_tkbuffer[j++]  = (allchars || case_significant) ? c : tolower(c);
+
+    c = Getc(f);
+    if (c == EOF) break;
+    if (!allchars) {
+      if (strchr("()[]'`,;\"\n", c)) {
+	Ungetc(c, f);
+	break;
+      }
+      if (isspace(c)) break;
+    }
+    if (j >= TKBUFFERN-1) Err("read: token too large", NIL);
+  }
+
+  STk_tkbuffer[j] = '\0';
+}
+
+static void lreadchar(FILE *f, int c)
+/* read an char (or a char name) item whose 1st char is in c */
+{ 
+  register int j = 0;
+
+  for( ; ; ) {
+    STk_tkbuffer[j++] = c;
+    c = Getc(f);
+    if (c == EOF || isspace(c)) break;
+    if (strchr("()[]'`,;\"", c)) {
+      Ungetc(c, f);
+      break;
+    }
+    if (j >= TKBUFFERN-1) Err("read: token too large", NIL);
+  }
+  STk_tkbuffer[j] = '\0';
+}
+  
+static SCM lreadtoken(FILE *f, int c, int case_significant) 
+{
+  SCM z;
+
+  lreadword(f, c, case_significant);
+  z = STk_Cstr2number(STk_tkbuffer, 10L);
+
+  if (z == Ntruth)
+    /* It is not a number */
+    return (*STk_tkbuffer == ':') ? STk_makekey(STk_tkbuffer): Intern(STk_tkbuffer);
+
+  /* Return the number read */
+  return z;
+}
+
+static SCM lreadstring(FILE *f)
+{
+  int j, k ,c,n,len;
+  char *p, *buffer;
+  SCM z;
+
+  j = 0;
+  len = 100;
+  p = buffer = must_malloc(len);
+
+  while(((c = Getc(f)) != '"') && (c != EOF)) { 
+    if (c == '\\') {
+      c = Getc(f);
+      if (c == EOF) Err("eof after \\", NIL);
+      switch(c) {
+        case 'b' : c = '\b'; break;	/* Bs  */
+	case 'e' : c = 0x1b; break;	/* Esc */
+	case 'n' : c = '\n'; break;	/* Lf  */
+	case 'r' : c = '\r'; break;	/* Cr  */
+	case 't' : c = '\t'; break;	/* Tab */
+        case '\n': STk_line_counter += 1; continue;
+	case '0' : for( k=n=0 ; ; k++ ) {
+		     c = Getc(f);
+		     if (c == EOF) Err("eof after \\0", NIL);
+	             if (isdigit(c) && (c < '8') && k < 3) /* Max = 3 digits */
+		        n = n * 8 + c - '0';
+		     else {
+		       Ungetc(c, f);
+		       break;
+		     }
+		   }
+	           c = n & 0xff;
+      }
+    }
+    else
+      if (c == '\n') STk_line_counter += 1;
+
+    if ((j + 1) >= len) {
+      len = len + len / 2;
+      buffer = must_realloc(buffer, len);
+      p = buffer + j;
+    }
+    j++;
+    *p++ = c;
+  }
+  if (c == EOF) Err("end of file while reading a string", NIL);
+  *p = '\0';
+  
+  z = STk_makestrg(j, buffer);
+  free(buffer);
+
+  return z;
+}
+
+static SCM lreadr(FILE *f, int case_significant)
+{
+  int c;
+
+  for ( ; ; ) {
+    c = flush_ws(f, "end of file inside read encountered");
+    
+    switch (c) {
+      case '(':
+        return(lreadlist(f, ')', case_significant));
+      case '[':
+	return(lreadlist(f, ']', case_significant));
+      case ')':
+      case ']':
+	fprintf(STk_stderr, "\nunexpected close parenthesis");
+	if (STk_current_filename != UNBOUND)	
+	  fprintf(STk_stderr, " at line %d in file %s", 
+		  	      STk_line_counter, CHARS(STk_current_filename));
+	fprintf(STk_stderr, "\n");
+	break;
+      case '\'':
+	return LIST2(Sym_quote, lreadr(f, case_significant));
+      case '`':
+	return LIST2(Sym_quasiquote, lreadr(f, case_significant));
+      case '#':
+	switch(c=Getc(f)) {
+	  case 't':
+          case 'T':  return Truth;
+	  case 'f':
+	  case 'F':  return Ntruth;
+ 	  case '\\': lreadchar(f, Getc(f));
+	             return STk_makechar(STk_string2char(STk_tkbuffer));
+	  case '(' : { 
+	    	       SCM l = lreadlist(f, ')', case_significant);
+		       return STk_vector(l, STk_llength(l));
+	  	     }
+	  case '!' : while ((c=Getc(f)) != '\n')
+	               if (c == EOF) Err("eof encountered in a #! notation", NIL);
+		     Ungetc(c, f);
+	             continue;
+	  case 'p':
+	  case 'P': lreadword(f, Getc(f), TRUE);
+	    	    return STk_address2object(STk_tkbuffer);
+	  case '.': return STk_eval(lreadr(f, case_significant), NIL);
+	  default:  Ungetc(c, f); return lreadtoken(f, '#', FALSE);
+	}
+      case ',': {
+	SCM symb;
+
+	c = Getc(f);
+	if (c == '@') 
+	  symb = Sym_unq_splicing;
+	else {
+	  symb = Sym_unquote; 
+	  Ungetc(c, f);
+	}
+	return LIST2(symb, lreadr(f, case_significant));
+      }
+      case '"':
+	return lreadstring(f);
+      default:
+	return lreadtoken(f, c, case_significant);
+    }
+  }
+}
+
+SCM STk_readf(FILE *f, int case_significant)
+{
+  int c;
+  
+  c = flush_ws(f, (char *) NULL);
+  if (c == EOF) return(STk_eof_object);
+  Ungetc(c, f);
+  return lreadr(f, case_significant);
+}
diff --git a/Src/run-stk.in b/Src/run-stk.in
new file mode 100644
index 0000000..94d0b78
--- /dev/null
+++ b/Src/run-stk.in
@@ -0,0 +1,37 @@
+#!/bin/sh
+# STk launcher
+
+# determine the kind of the machine which is running this script
+os=`uname -s`
+version=`uname -r`
+machine=`uname -m`
+
+case $os in
+  Linux*) 
+	  case $version in
+            1.*) version=1.X;;
+	  esac
+	  case $machine in
+	    i*86) machine=ix86;;
+	  esac;;
+  SunOS*)
+	  case $machine in
+	    sun4*) machine=sun4;;
+	  esac
+esac
+id=$os-$version-$machine
+	  
+STK_LIBRARY=@libdir@
+export STK_LIBRARY
+
+#
+# Launch Snow rather than STk if the variable DISPLAY is not set.
+#
+if [ "$DISPLAY" = "" ] ;then
+  exec $STK_LIBRARY/$id/snow-bin  $*
+else
+  exec $STK_LIBRARY/$id/stk-bin -name stk $*
+fi
+
+
+
diff --git a/Src/signal.c b/Src/signal.c
new file mode 100644
index 0000000..4bbcf82
--- /dev/null
+++ b/Src/signal.c
@@ -0,0 +1,325 @@
+/*
+ *
+ * s i g n a l . c			-- Signal handling
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 10-Oct-1995 07:55
+ * Last file update: 23-Sep-1996 22:47
+ *
+ */
+
+#include "stk.h"
+#include <signal.h>
+
+#ifdef HAVE_SIGACTION
+#  ifdef SA_RESTART
+#    define SA_FLAGS SA_RESTART
+#  else 
+#    define SA_FLAGS 0
+#  endif
+#endif
+
+int STk_sigint_counter = 0;
+int STk_control_C      = 0;
+
+static SCM signals[MAX_SIGNAL];
+
+/* Convention: signals[i] can be 
+ * 			- #f if signal is ignored
+ *			- #t if signal is set to default
+ *			- a list of handlers
+ */
+
+static void handle_sigint_signal(void)
+{
+  SCM l = signals[SIGINT];
+  
+  STk_control_C = 0;
+  if (l == NIL) {
+    /* User has not redefined ^C action */
+#ifdef HAVE_SIGACTION
+    /* Empty the signal mask before calling STk_err, because it will do 
+     * a longjmp and don't let the system (at least Linux) a chance to 
+     * restore the mask 
+     */
+    sigset_t set;
+    
+    sigemptyset(&set);
+    sigaddset(&set, SIGINT);
+    sigprocmask(SIG_UNBLOCK, &set, NULL);
+#endif 
+    fprintf(STk_stderr, "*** Interrupt ***\n"); fflush(stderr);
+    STk_err("", NIL);
+  }
+  else {
+    SCM arg = LIST1(STk_makeinteger((long) SIGINT));
+
+    for ( ; CONSP(l); l = CDR(l)) {
+      if (STk_apply(CAR(l), arg) == Sym_break) break;
+    }
+  }
+}
+
+
+void STk_handle_signal(int sig)
+{
+  SCM l, arg;
+
+#ifndef  HAVE_SIGACTION
+  if (sig < MAX_SYSTEM_SIG)
+    signal(sig, STk_handle_signal);
+#endif
+
+  if (sig == SIGINT) {			/* SIGINT */
+    if (STk_sigint_counter > 0) {
+      /* ^C is disallowed for now. (We are probably in sequence which
+       * uses malloc). Retain that a Control-C was issued and return
+       */
+      STk_control_C = 1;
+      SET_EVAL_FLAG(1);
+      return;
+    }
+    else handle_sigint_signal();
+  }
+  
+  arg = LIST1(STk_makeinteger((long) sig));
+  for (l = signals[sig]; CONSP(l); l = CDR(l)) {
+    if (STk_apply(CAR(l), arg) == Sym_break) break;
+  }
+}
+
+static SCM set_handler(long s, SCM proc)
+{
+  void (*handler)();
+
+  if (BOOLEANP(proc))
+    /* Special case #f means ignore and #t means default */
+    handler = (proc == Truth) ? SIG_DFL: SIG_IGN;
+  else
+    /* Use our handler */
+    handler = STk_handle_signal;
+      
+#ifdef HAVE_SIGACTION
+  {
+    struct sigaction sigact;
+    
+    sigemptyset(&(sigact.sa_mask));
+    sigact.sa_handler = handler;
+    sigact.sa_flags   = SA_FLAGS;
+    sigaction(s, &sigact, NULL);
+  }
+#else
+  signal(s, handler);
+#endif
+  return signals[s] = proc;
+}
+
+
+PRIMITIVE STk_set_signal_handler(SCM sig, SCM proc)
+{
+  long s = STk_integer_value(sig);
+
+  if (s == LONG_MIN || s < 0 || s >= MAX_SIGNAL)
+    STk_err("set-signal-handler!: bad signal number", sig);
+
+  if (BOOLEANP(proc))
+    return set_handler(s, proc);
+  else {
+    if (STk_procedurep(proc) == Ntruth)
+      STk_err("set-signal-handler!: bad procedure", proc);
+    return set_handler(s, LIST1(proc));
+  }
+}
+
+  
+PRIMITIVE STk_add_signal_handler(SCM sig, SCM proc)
+{
+  long s = STk_integer_value(sig);
+
+  if (s == LONG_MIN || s < 0 || s >= MAX_SIGNAL)
+    STk_err("add-signal-handler!: bad signal number", sig);
+
+  if (STk_procedurep(proc) == Ntruth) 
+    STk_err("add-signal-handler!: bad procedure", proc);
+
+  if (BOOLEANP(signals[s]))
+    /* We add a handler on a defaulted or ignored signal */
+    return  set_handler(s, LIST1(proc));
+  else
+    /* Just add the new signal in front of the list */
+    return signals[s] = Cons(proc,signals[s]);
+}
+
+PRIMITIVE STk_get_signal_handlers(SCM sig)
+{
+  if (sig == UNBOUND) {				/* Return all handlers */
+    SCM z;
+  
+    z = STk_makevect(MAX_SIGNAL, NULL);
+    memcpy(VECT(z), signals, MAX_SIGNAL * sizeof(SCM));
+    return z; 
+  }
+  else {					/* Return handlers of sig only */
+    long s = STk_integer_value(sig);
+
+    if (s == LONG_MIN || s < 0 || s >= MAX_SIGNAL)
+      STk_err("get-signal-handlers: bad signal number", sig);
+    return signals[s];
+  }
+}
+
+void STk_mark_signal_table(void)
+{
+  int i;
+
+  for (i = 0; i < MAX_SIGNAL; i++) 
+    STk_gc_mark(signals[i]);
+}
+
+void STk_init_signal(void)
+{
+  int i;
+
+
+  for (i = 0; i < MAX_SIGNAL; i++) {
+    set_handler(i, (
+#ifdef SIGTSTP
+      (i==SIGTSTP) || /* interact. ^Z is set to SIGIGN to allow program supension */
+#endif
+#ifdef SIGABRT
+      (i== SIGABRT) || /* Really abort when receiving  ABORT (loops otherwise)*/
+#endif
+#ifdef SIGQUIT
+      (i == SIGQUIT) || /* ditto for QUIT */
+#endif
+      0) ? Truth : NIL);
+  }
+  /* 
+   * POSIX.1 signals 
+   */
+#ifdef SIGABRT
+  VCELL(Intern("SIGABRT")) = STk_makeinteger(SIGABRT);
+#endif
+#ifdef SIGALRM
+  VCELL(Intern("SIGALRM")) = STk_makeinteger(SIGALRM);
+#endif
+#ifdef SIGFPE
+  VCELL(Intern("SIGFPE")) = STk_makeinteger(SIGFPE);
+#endif
+#ifdef SIGHUP
+  VCELL(Intern("SIGHUP")) = STk_makeinteger(SIGHUP);
+#endif
+#ifdef SIGILL
+  VCELL(Intern("SIGILL")) = STk_makeinteger(SIGILL);
+#endif
+#ifdef SIGINT
+  VCELL(Intern("SIGINT")) = STk_makeinteger(SIGINT);
+#endif
+#ifdef SIGKILL
+  VCELL(Intern("SIGKILL")) = STk_makeinteger(SIGKILL);
+#endif
+#ifdef SIGPIPE
+  VCELL(Intern("SIGPIPE")) = STk_makeinteger(SIGPIPE);
+#endif
+#ifdef SIGQUIT
+  VCELL(Intern("SIGQUIT")) = STk_makeinteger(SIGQUIT);
+#endif
+#ifdef SIGSEGV
+  VCELL(Intern("SIGSEGV")) = STk_makeinteger(SIGSEGV);
+#endif
+#ifdef SIGTERM
+  VCELL(Intern("SIGTERM")) = STk_makeinteger(SIGTERM);
+#endif
+#ifdef SIGUSR1
+  VCELL(Intern("SIGUSR1")) = STk_makeinteger(SIGUSR1);
+#endif
+#ifdef SIGUSR2
+  VCELL(Intern("SIGUSR2")) = STk_makeinteger(SIGUSR2);
+#endif
+
+  /* 
+   * Following signals exist only on system which support Job Control 
+   */
+#ifdef SIGCHLD
+  VCELL(Intern("SIGCHLD")) = STk_makeinteger(SIGCHLD);
+#endif
+#ifdef SIGCONT
+  VCELL(Intern("SIGCONT")) = STk_makeinteger(SIGCONT);
+#endif
+#ifdef SIGSTOP
+  VCELL(Intern("SIGSTOP")) = STk_makeinteger(SIGSTOP);
+#endif
+#ifdef SIGTSTP
+  VCELL(Intern("SIGTSTP")) = STk_makeinteger(SIGTSTP);
+#endif
+#ifdef SIGTTIN
+  VCELL(Intern("SIGTTIN")) = STk_makeinteger(SIGTTIN);
+#endif
+#ifdef SIGTTOU
+  VCELL(Intern("SIGTTOU")) = STk_makeinteger(SIGTTOU);
+#endif
+
+  /*
+   * Non POSIX signals stolen on Suns and Linux
+   */
+
+#ifdef SIGTRAP
+  VCELL(Intern("SIGTRAP")) = STk_makeinteger(SIGTRAP);
+#endif
+#ifdef SIGIOT
+  VCELL(Intern("SIGIOT")) = STk_makeinteger(SIGIOT);
+#endif
+#ifdef SIGEMT
+  VCELL(Intern("SIGEMT")) = STk_makeinteger(SIGEMT);
+#endif
+#ifdef SIGBUS
+  VCELL(Intern("SIGBUS")) = STk_makeinteger(SIGBUS);
+#endif
+#ifdef SIGSYS
+  VCELL(Intern("SIGSYS")) = STk_makeinteger(SIGSYS);
+#endif
+#ifdef SIGURG
+  VCELL(Intern("SIGURG")) = STk_makeinteger(SIGURG);
+#endif
+#ifdef SIGCLD
+  VCELL(Intern("SIGCLD")) = STk_makeinteger(SIGCLD);
+#endif
+#ifdef SIGIO
+  VCELL(Intern("SIGIO")) = STk_makeinteger(SIGIO);
+#endif
+#ifdef SIGPOLL
+  VCELL(Intern("SIGPOLL")) = STk_makeinteger(SIGPOLL);
+#endif
+#ifdef SIGXCPU
+  VCELL(Intern("SIGXCPU")) = STk_makeinteger(SIGXCPU);
+#endif
+#ifdef SIGXFSZ
+  VCELL(Intern("SIGXFSZ")) = STk_makeinteger(SIGXFSZ);
+#endif
+#ifdef SIGVTALRM
+  VCELL(Intern("SIGVTALRM")) = STk_makeinteger(SIGVTALRM);
+#endif
+#ifdef SIGPROF
+  VCELL(Intern("SIGPROF")) = STk_makeinteger(SIGPROF);
+#endif
+#ifdef SIGWINCH
+  VCELL(Intern("SIGWINCH")) = STk_makeinteger(SIGWINCH);
+#endif
+#ifdef SIGLOST
+  VCELL(Intern("SIGLOST")) = STk_makeinteger(SIGLOST);
+#endif
+
+  /* Add GC signal */
+  VCELL(Intern("SIGHADGC")) = STk_makeinteger(SIGHADGC);
+}
diff --git a/Src/slib.c b/Src/slib.c
new file mode 100644
index 0000000..389649a
--- /dev/null
+++ b/Src/slib.c
@@ -0,0 +1,448 @@
+/*
+ * s l i b . c				-- Misc functions
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ??-Oct-1993 ??:?? 
+ * Last file update: 25-Sep-1996 17:55
+ *
+ */
+
+#ifdef WIN32
+#  include <windows.h>
+#endif
+
+#include "stk.h"
+#include "gc.h"
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef WIN32
+#   include <time.h>
+#   include <dos.h>
+#   include <process.h>
+#else
+#   include <stdarg.h>
+#   include <sys/times.h>
+#endif
+
+#ifdef USE_TK
+#   include "tk-glue.h"
+#endif
+
+
+
+#ifndef _DEBUG_MALLOC_INC
+
+#ifdef malloc
+#undef malloc
+#endif
+
+#ifdef realloc
+#undef realloc
+#endif
+
+#define MAX_MALLOC_BEFORE_GC 1<<20	/* 1 Mb should suffice before calling GC */
+
+static unsigned long malloc_count = 0;
+
+
+static void cannot_allocate()
+{
+  fprintf(stderr, "**** Storage allocation from system failed\n");
+  fprintf(stderr, "**** Evaluation aborted\n");
+  
+  STk_gc_requested = 1;
+
+  /* Use a null message to avoid a call to report-error (which uses conses) */
+  Err("", NIL);
+}
+
+void *STk_must_malloc(unsigned long size)
+{
+  void *tmp;
+
+  tmp = (void *) malloc(size);
+
+  /* Test for size because some libc return NULL when doing malloc(0) */
+  if (tmp == NULL && size) cannot_allocate();
+
+  /* Idea of malloc limitation comes from Harvey J. Stein 
+   * <hjstein@MATH.HUJI.AC.IL>. The following code provoke a GC when
+   * MAX_MALLOC_BEFORE_GC have been allocated by must_malloc. This 
+   * allows to GC before all cells have been exhausted 
+   */
+  malloc_count +=size;
+  if (malloc_count > MAX_MALLOC_BEFORE_GC) {
+    malloc_count     = 0;
+    STk_gc_requested = 1;
+  }
+
+  return tmp;
+}
+
+void *STk_must_realloc(void *ptr, unsigned long size)
+{
+  void *tmp;
+
+  tmp = (void *) realloc(ptr, size);
+  /* Since we cannot know (in a portable way) the size of area pointed by ptr,
+   * we will make the assumption that it is half the new requested size. 
+   * Of course, we are probably false here, but it seems more reasonable than 
+   * brutally increment it with size. 
+   */
+  malloc_count +=size/2;
+  if (malloc_count > MAX_MALLOC_BEFORE_GC) {
+    malloc_count     = 0;
+    STk_gc_requested = 1;
+  }
+
+  if (tmp == NULL) cannot_allocate();
+  return tmp;
+}
+#endif
+
+
+SCM STk_internal_eval_string(char *s, long context, SCM env)
+{
+  jmp_buf jb, *prev_jb = Top_jmp_buf;
+  long prev_context     = Error_context;
+  SCM result, port;
+  int k;
+  
+  /* Create a string port to read the command and evaluate it in a new context */
+  port = STk_internal_open_input_string(s);
+
+  /* save normal error jmpbuf  so that eval error don't lead to toplevel */
+  /* If in a "catch", keep the ERR_IGNORED bit set */
+  if ((k = setjmp(jb)) == 0) {
+    Top_jmp_buf   = &jb;
+    Error_context = (Error_context & ERR_IGNORED) | context;
+    result = STk_eval(STk_readf(PORT_FILE(port), FALSE), env);
+  }
+  Top_jmp_buf   = prev_jb;;
+  Error_context = prev_context;
+ 
+  if (k == 0) return result;
+  /* if we are here, an error has occured during the string reading 
+   * Two cases:
+   *    - we are in a catch. Do a longjump to the catch to signal it a fail
+   *    - otherwise error has already signaled, just return EVAL_ERROR
+   */
+  if (Error_context & ERR_IGNORED) longjmp(*Top_jmp_buf, k);
+  return EVAL_ERROR;
+}
+
+
+PRIMITIVE STk_catch(SCM expr, SCM env, int unused_len)
+{
+  jmp_buf jb, *prev_jb = Top_jmp_buf;
+  long prev_context     = Error_context;
+  SCM l;
+  int k;
+  
+  /* save normal error jmpbuf  so that eval error don't lead to toplevel */
+  if ((k = setjmp(jb)) == 0) {
+    Top_jmp_buf   = &jb;
+    Error_context |= ERR_IGNORED;
+
+    /* Evaluate the list of expressions */
+    for (l = expr; NNULLP(l); l = CDR(l)) 
+      STk_eval(CAR(l), env);
+  }
+  Top_jmp_buf   = prev_jb;
+  Error_context = prev_context; /* Don't use a mask to allow nested call to catch */
+
+  return (k == 0)? Ntruth: Truth;
+}
+
+PRIMITIVE STk_quit_interpreter(SCM retcode)
+{
+  long ret = 0;
+
+  if (retcode != UNBOUND) {
+    if ((ret=STk_integer_value(retcode)) == LONG_MIN)
+      Err("quit: bad return code", retcode);
+  }
+  STk_unwind_all();
+
+  /* call user finalization code */
+  STk_user_cleanup();
+
+#ifdef USE_TK
+  /* Unregister the interpreter from X server */
+  if (Tk_initialized) Tcl_DeleteCommand(STk_main_interp, ".");
+#endif
+
+#if defined(WIN32) && defined(USE_SOCKET)
+  /* Unregister the interpreter from Winsock */
+  WSACleanup();  
+#endif
+  exit(ret);
+}
+
+PRIMITIVE STk_version(void)
+{
+  return STk_makestring(STK_VERSION);
+}
+
+PRIMITIVE STk_machine_type(void)
+{
+  return STk_makestring(MACHINE);
+}
+
+PRIMITIVE STk_library_location(void)
+{
+   return STk_makestring(STk_library_path);
+}
+
+PRIMITIVE STk_random(SCM n)
+{
+  if (NEXACTP(n) || STk_negativep(n) == Truth || STk_zerop(n) == Truth)
+    Err("random: bad number", n);
+  return STk_modulo(STk_makeinteger(rand()), n);
+}
+
+PRIMITIVE STk_set_random_seed(SCM n)
+{
+  if (NEXACTP(n)) Err("set-random-seed!: bad number", n);
+  srand(STk_integer_value_no_overflow(n));
+  return UNDEFINED;
+}
+
+#ifndef HZ
+#define HZ 60.0
+#endif
+
+#ifdef CLOCKS_PER_SEC
+#  define TIC CLOCKS_PER_SEC
+#else 
+#  define TIC HZ
+#endif
+
+double STk_my_time(void)
+{
+#ifdef WIN32
+  return (long) 1000*(clock()/CLK_TCK);
+#else
+  struct tms time_buffer;
+  times(&time_buffer);
+  return 1000 * (time_buffer.tms_utime + time_buffer.tms_stime) / TIC;
+#endif
+}
+
+
+PRIMITIVE STk_get_internal_info(void)
+{
+  SCM z = STk_makevect(7, NULL);
+  long allocated, used, calls;
+
+  /* The result is a vector which contains
+   *	0 The total cpu used in ms
+   *	1 The number of cells currently in use.
+   *    2 Total number of allocated cells
+   *	3 The number of cells used since the last call to get-internal-info
+   *	4 Number of gc calls
+   *    5 Total time used in the gc
+   *	6 A boolean indicating if Tk is initialized
+   */
+
+  STk_gc_count_cells(&allocated, &used, &calls);
+
+  VECT(z)[0] = STk_makenumber(STk_my_time());
+  VECT(z)[1] = STk_makeinteger(used);
+  VECT(z)[2] = STk_makeinteger(allocated);
+  VECT(z)[3] = STk_makenumber((double) STk_alloc_cells);
+  VECT(z)[4] = STk_makeinteger(calls);
+  VECT(z)[5] = STk_makenumber((double) STk_total_gc_time);
+#ifdef USE_TK
+  VECT(z)[6] = Tk_initialized ? Truth: Ntruth;
+#else
+  VECT(z)[6] = Ntruth;
+#endif
+  
+  STk_alloc_cells = 0;
+  return z;
+}
+
+
+PRIMITIVE STk_time(SCM expr, SCM env, int len)
+{
+  double rt, gc_time;
+  SCM res;
+
+  if (len != 1) Err("time: bad expression" , expr);
+
+  STk_alloc_cells = 0;
+  gc_time         = STk_total_gc_time;
+  rt 	          = STk_my_time();
+  res 	          = EVALCAR(expr);
+  fprintf(STk_stderr, ";;    Time: %.2fms\n;; GC time: %.2fms\n;;   Cells: %ld\n",
+	  STk_my_time()-rt, STk_total_gc_time-gc_time, STk_alloc_cells);
+  return res;
+}
+
+
+/*
+ * STk_delete_Tcl_child_Interp
+ *
+ * 	This function must be called by a child process just after a fork
+ * It deletes the Tk commands associated to the interpreter (except send, 
+ * to avoid interpreter unregistering).
+ * 
+ * This must probably rewritten
+ */
+
+void STk_delete_Tcl_child_Interp(void)
+{
+#ifdef USE_TK
+  if (Tk_initialized) {
+    struct Tk_command *W;
+    Interp *iPtr = (Interp *) STk_main_interp;
+    Tcl_HashEntry *hPtr;
+
+    /* Try to find "send". Modify it's delproc to point NULL */
+    hPtr = Tcl_FindHashEntry(&iPtr->commandTable, "send");
+    if (hPtr != NULL) {
+      W = (struct Tk_command *) Tcl_GetHashValue(hPtr);
+      W->delproc = NULL;
+    }
+    /* Now we can destroy the interpreter  (send will not be destroyed) */
+    Tcl_DeleteInterp(STk_main_interp);
+    
+    /* Report-error points to a graphical procedure. Undefine it 
+     * to display error messages on stderr in the child process
+     */
+    STk_set_symbol_value("report-error", UNBOUND);
+
+    /* Redefine exit to the standard STk exit function */
+    STk_add_new_primitive("exit", tc_subr_0_or_1, STk_quit_interpreter);
+  }
+#else
+  /* Nothing to do for Snow */
+#endif
+}
+
+
+/* When STk evaluates an expression, it recodes it in a manner which permits it
+   to be more efficient for further evaluations. The uncode functions permits to 
+   do the reverse job: it takes an exppression and returns a form similar to the 
+   original one. 
+   Warning: when a macro has been expanded, there is no mean to "revert" it to 
+   its original form 
+*/
+
+
+static SCM associate(SCM l1, SCM l2)
+{
+  SCM z;
+
+  if (NULLP(l1)) return NIL;
+  
+  for(z= NIL; NNULLP(l1); l1=CDR(l1), l2=CDR(l2))
+    z = Cons(LIST2(CAR(l1), STk_uncode(CAR(l2))), z);
+  
+  return Reverse(z);
+}
+
+static SCM uncode_let(char *type, SCM expr)
+{
+  return Cons(Intern(type),
+	      Cons(associate(CAR(expr), CAR(CDR(expr))),
+		   STk_uncode(CDR(CDR(expr)))));
+}
+  
+PRIMITIVE STk_uncode(SCM expr)
+{
+  switch (TYPE(expr)) {
+    case tc_cons: switch (TYPE(CAR(expr))) {
+    		    case tc_let:     return uncode_let("let",    CDR(expr)); 
+      		    case tc_letstar: return uncode_let("let*",   CDR(expr)); 
+		    case tc_letrec:  return uncode_let("letrec", CDR(expr)); 
+		    case tc_if: 
+		         expr = CDR(expr);
+		         if (EQ(CAR(CDR(CDR(expr))), UNDEFINED)) 
+			   return Cons(Intern("if"),
+				       LIST2(STk_uncode(CAR(expr)),
+					     STk_uncode(CAR(CDR(expr)))));
+			 else
+			   return Cons(Intern("if"),
+				       LIST3(STk_uncode(CAR(expr)),
+					     STk_uncode(CAR(CDR(expr))),
+					     STk_uncode(CAR(CDR(CDR(expr))))));
+		    default: return Cons(STk_uncode(CAR(expr)),
+					 STk_uncode(CDR(expr)));
+		  }
+    case tc_quote:	return Intern("quote");
+    case tc_lambda:	return Intern("lambda");
+    case tc_if:		return Intern("if");
+    case tc_setq:	return Intern("set!");
+    case tc_cond:	return Intern("cond");
+    case tc_and:	return Intern("and");
+    case tc_or:		return Intern("or");
+    case tc_let:	return Intern("let");
+    case tc_letstar:	return Intern("letstar");
+    case tc_letrec: 	return Intern("letrec");
+    case tc_begin:	return Intern("begin");
+    case tc_globalvar:  return VCELL(expr);
+    case tc_localvar:   return expr->storage_as.localvar.symbol;
+    case tc_apply:	return Intern("apply");
+    case tc_call_cc:	return Intern("call-with-current-continuation");
+    case tc_dynwind:    return Intern("dynamic-wind");
+    case tc_extend_env: return Intern("extend-environment");
+    default:		return expr;
+  }
+}
+
+/* 
+ * A Panic procedure.
+ */
+void STk_panic TCL_VARARGS_DEF(char *,arg1)
+{
+  va_list argList;
+  char buf[1024];
+  char *format;
+	 
+  format = TCL_VARARGS_START(char *,arg1,argList);
+  vsprintf(buf, format, argList);
+
+#ifdef WIN32
+  MessageBeep(MB_ICONEXCLAMATION);
+  MessageBox(NULL, buf, "Fatal error in STk", 
+	     MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
+#else
+  fprintf(STk_stderr, "\n**** %s\n", buf);
+  fflush(STk_stderr);
+#endif
+  exit(1);
+}
+
+
+/******************************************************************************
+ *
+ * The following declarations serve only for referencing symbols which are used
+ * by Tcl or Tk and which are defined in this directory. Otherwise, the ld will
+ * not find them and report an error
+ *
+ ******************************************************************************/
+#ifndef WIN32
+typedef void (*dumb)();
+
+dumb STk_dumb[] = { 
+  (dumb) Tcl_TildeSubst,
+  (dumb) Tcl_SetVar2
+};
+#endif
diff --git a/Src/socket.c b/Src/socket.c
new file mode 120000
index 0000000..b257271
--- /dev/null
+++ b/Src/socket.c
@@ -0,0 +1 @@
+../Extensions/socket.c
\ No newline at end of file
diff --git a/Src/sport.c b/Src/sport.c
new file mode 100644
index 0000000..dc1e297
--- /dev/null
+++ b/Src/sport.c
@@ -0,0 +1,206 @@
+/*
+ * s p o r t . c			-- String ports management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 17-Feb-1993 12:27
+ * Last file update: 13-Jun-1996 18:24
+ *
+ *
+ * This is achieved in a (surely very) dependant way. A string port is implemented
+ * via a pseudo FILE descriptor malloc'd when open-input-string is called. This 
+ * descriptor is released when free-string-port is called.
+ */
+
+#include "stk.h"
+#include "sport.h"
+
+SCM STk_internal_open_input_string(char *str)
+{
+  struct str_iob *p;
+  SCM z;
+
+  p = (struct str_iob *) must_malloc(sizeof (struct str_iob));
+  
+  p->signature = SPORT_SIGNATURE;
+  p->flag      = READING;
+  p->cnt       = p->bufsiz = strlen(str);
+  p->base      = p->ptr    = must_malloc(p->cnt + 1);
+  strcpy(p->base, str);
+
+  /* Sport_descr is a short version of a port_descr */
+  NEWCELL(z, tc_isport);
+  z->storage_as.port.p   = (struct port_descr *) 
+				must_malloc(sizeof(struct sport_descr));
+  PORT_FILE(z)           = (FILE *) p;
+  PORT_FLAGS(z)	 	 = 0;
+
+  return z;
+}
+
+void STk_free_string_port(SCM port)
+{
+  struct str_iob * p;
+
+  p = (struct str_iob *) PORT_FILE(port);
+  free(p->base);
+  free(p);
+  free(port->storage_as.port.p);
+}
+
+SCM STk_internal_read_from_string(SCM port, int *eof, int case_significant)
+{
+  jmp_buf jb, *prev_jb = Top_jmp_buf;
+  long prev_context     = Error_context;
+  SCM result;
+  int k;
+
+  /* save normal error jmpbuf  so that read error don't lead to toplevel */
+  /* If in a "catch", keep the ERR_IGNORED bit set */
+  if ((k = setjmp(jb)) == 0) {
+    Top_jmp_buf   = &jb;
+    Error_context = (Error_context & ERR_IGNORED) | ERR_READ_FROM_STRING;
+    result 	  = STk_readf(PORT_FILE(port), case_significant);
+    *eof   	  = Eof(PORT_FILE(port));
+  }
+  Top_jmp_buf   = prev_jb;;
+  Error_context = prev_context;
+  
+  if (k == 0) return result;
+  
+  /* if we are here, an error has occured during the string reading 
+   * Two cases:
+   *    - we are in a catch. Do a longjump to the catch to signal it a fail
+   *    - otherwise error has already signaled, just return EVAL_ERROR
+   */
+  if (Error_context & ERR_IGNORED) longjmp(*Top_jmp_buf, k);
+  return EVAL_ERROR;
+}
+
+PRIMITIVE STk_open_input_string(SCM s)
+{
+  if (NSTRINGP(s)) Err("open-input-string: not a string", s);
+  return STk_internal_open_input_string(CHARS(s));
+}
+
+
+PRIMITIVE STk_open_output_string()
+{
+  struct str_iob *p;
+  SCM z;
+
+  p = (struct str_iob *) must_malloc(sizeof (struct str_iob));
+
+  p->signature = SPORT_SIGNATURE;
+  p->flag      = WRITING;
+  p->cnt       = 0;
+  p->bufsiz    = START_ALLOC;
+  p->base      = p->ptr = (char *) must_malloc(START_ALLOC);
+
+  NEWCELL(z, tc_osport);
+  z->storage_as.port.p   = (struct port_descr *) 
+    				must_malloc(sizeof(struct sport_descr));
+  PORT_FILE(z)           = (FILE *) p;
+  PORT_FLAGS(z)	 	 = 0;
+
+  return z;
+}
+
+PRIMITIVE STk_get_output_string(SCM port)
+{
+  if (NOSPORTP(port)) Err("get-output-string: Bad string-port", port);
+  if (PORT_FLAGS(port) & PORT_CLOSED) 
+    Err("get-output-string: string port is closed", port);
+
+  return STk_makestrg(((struct str_iob *)PORT_FILE(port))->cnt, 
+		      ((struct str_iob *)PORT_FILE(port))->base);
+}
+
+PRIMITIVE STk_input_string_portp(SCM port)
+{
+  return (ISPORTP(port)) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_output_string_portp(SCM port)
+{
+  return (OSPORTP(port)) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_with_input_from_string(SCM string, SCM thunk)
+{
+  jmp_buf env, *prev_env = Top_jmp_buf;
+  SCM result, prev_iport = STk_curr_iport;
+  int prev_context	 = Error_context;
+  int k;
+
+  if (NSTRINGP(string))     Err("with-input-from-string: bad string", string);
+  if (!STk_is_thunk(thunk)) Err("with-input-from-string: bad thunk", thunk);
+
+  if ((k = setjmp(env)) == 0) {
+    Top_jmp_buf    = &env;
+    STk_curr_iport = STk_internal_open_input_string(CHARS(string));
+    result         = Apply(thunk, NIL);
+  }
+  /* restore normal error jmpbuf  and current input port*/
+  STk_curr_iport = prev_iport;
+  Top_jmp_buf    = prev_env;
+  Error_context  = prev_context;
+
+  if (k) /*propagate error */ longjmp(*Top_jmp_buf, k);
+  return result;
+}
+
+PRIMITIVE STk_with_output_to_string(SCM thunk)
+{
+  jmp_buf env, *prev_env = Top_jmp_buf;
+  SCM result, prev_oport = STk_curr_oport;
+  int prev_context       = Error_context;
+  int k;
+
+  if (!STk_is_thunk(thunk)) Err("with-output-to-string: bad thunk", thunk);
+
+  if ((k = setjmp(env)) == 0) {
+    Top_jmp_buf    = &env;
+    STk_curr_oport = STk_open_output_string();
+    Apply(thunk, NIL);
+    result         = STk_get_output_string(STk_curr_oport);
+  }
+  /* restore normal error jmpbuf  and current input port*/
+  STk_curr_oport = prev_oport;
+  Top_jmp_buf    = prev_env;
+  Error_context  = prev_context;
+
+  if (k) /*propagate error */ longjmp(*Top_jmp_buf, k);
+  return result;
+}
+
+
+PRIMITIVE STk_read_from_string(SCM str)
+{
+  SCM result, port;
+  int eof;	/* not used here */
+
+  if (NSTRINGP(str)) Err("read-from-string: Bad string", str);
+
+  /* Create a string port to read in the expression */
+  port   = STk_internal_open_input_string(CHARS(str));
+  result = STk_internal_read_from_string(port, &eof, FALSE);
+
+  return result == EVAL_ERROR? UNDEFINED: result;
+}
+
+
diff --git a/Src/sport.h b/Src/sport.h
new file mode 100644
index 0000000..a0f413a
--- /dev/null
+++ b/Src/sport.h
@@ -0,0 +1,43 @@
+/*
+ * s p o r t . h			-- String ports management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 17-Feb-1993 12:27
+ * Last file update:  1-Feb-1995 13:38
+ *
+ *
+ * This is achieved in a (surely very) dependant way. A string port is implemented
+ * via a pseudo FILE descriptor malloc'd when open-input-string is called. This 
+ * descriptor is released when free-string-port is called.
+ */
+
+#define SPORT_SIGNATURE	0xabcdef00	/* Magic number for a string port	*/
+#define START_ALLOC	128		/* Initial size of an ouput string port */
+#define READING		01
+#define WRITING		02
+
+struct str_iob {
+       long int	signature;
+       short	flag;
+       int	cnt;
+       char 	*ptr;
+       char 	*base;
+       int	bufsiz;
+};
+
+
diff --git a/Src/sregexp.c b/Src/sregexp.c
new file mode 120000
index 0000000..1f89907
--- /dev/null
+++ b/Src/sregexp.c
@@ -0,0 +1 @@
+../Extensions/sregexp.c
\ No newline at end of file
diff --git a/Src/stk.c b/Src/stk.c
new file mode 100644
index 0000000..ed7c1fa
--- /dev/null
+++ b/Src/stk.c
@@ -0,0 +1,32 @@
+/******************************************************************************
+ *
+ * s t k . c
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 12-May-1993 10:34
+ * Last file update: 27-May-1996 10:04
+ *
+ ******************************************************************************/
+#define STK_MAIN
+#include "stk.h"
+
+int main(int argc,char **argv)
+{
+  STk_toplevel(argc, argv);
+  return 0;
+}
diff --git a/Src/stk.h b/Src/stk.h
new file mode 100644
index 0000000..110835e
--- /dev/null
+++ b/Src/stk.h
@@ -0,0 +1,1400 @@
+/******************************************************************************
+ *
+ * s t k . h
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 12-May-1993 10:34
+ * Last file update: 25-Sep-1996 14:33
+ *
+ ******************************************************************************/
+
+#ifndef _STK_H
+#define _STK_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#include <stdio.h>
+#include <setjmp.h>
+#include <assert.h>
+#include <math.h>
+#include <signal.h>
+#include <limits.h>
+#include <string.h>
+#include <sys/types.h>
+#include <errno.h>
+#ifndef WIN32
+#  include <memory.h>
+#endif
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
+#include <stdlib.h>
+#include "gmp.h"
+
+/*
+ * Header <tcl.h> is always included (even if not USE_TK) for the hash table
+ * function prototypes. 
+ */
+#include <tcl.h>
+
+/* ------------------------------------------------------------------------------ */
+
+#define COMPACT_SMALL_CST			/* compact coding for small const */
+
+#define FALSE			0
+#define TRUE			1
+
+#define TKBUFFERN 		1024		/* max size of a token */
+#define MAX_CHAR_CODE		255		/* Max code for a char */
+
+#ifdef USE_TK
+#  define INITIAL_HEAP_SIZE 	25000		/* size of heap (in cells) */
+#else
+#  define INITIAL_HEAP_SIZE 	10000		/* size of heap (in cells) */
+#endif
+
+#ifdef _POSIX_PATH_MAX
+#define MAX_PATH_LENGTH	 _POSIX_PATH_MAX
+#else
+#define MAX_PATH_LENGTH	 256
+#endif
+
+#define GC_VERBOSE	"*gc-verbose*"
+#define ARGC		"*argc*"
+#define ARGV		"*argv*"
+#define PROG_NAME	"*program-name*"
+#define DEBUG_MODE	"*debug*"
+#define EVAL_HOOK	"*eval-hook*"
+#define PRINT_BANNER	"*print-banner*"
+#define LOAD_PATH	"*load-path*"
+#define LOAD_SUFFIXES	"*load-suffixes*"
+#define LOAD_VERBOSE	"*load-verbose*"
+
+#define REPORT_ERROR	"report-error"
+
+#ifdef USE_TK
+#    include <tclInt.h>
+#    include <tk.h>
+#    define ROOT_WINDOW	"*root*"	/* Scheme name of main window */
+
+  struct Tk_command {
+    ClientData ptr;		/* pointer associated to the widget command */
+    Tcl_CmdProc *fct;	   	/* Tk lib function associated to widget */
+    Tcl_CmdDeleteProc *delproc; /* procedure to call when command is destroyed */
+    ClientData deldata;	   	/* value to pass to delproc */
+    int deleted;		/* 1 if command has already been deleted */
+    char Id[1];		   	/* must be last field */
+  };
+#endif
+
+
+struct obj {
+  unsigned char type;
+  unsigned char gc_mark;
+  unsigned char cell_info;
+  union {struct {struct obj * car; struct obj * cdr;} 		cons;
+	 struct {double *data;}					flonum;
+	 struct {char *pname; struct obj * vcell;} 		symbol;
+	 struct {char *name; struct obj * (*f)(void);} 		subr0;
+	 struct {char *name; struct obj * (*f)(void *,...);} 	subr;
+	 struct {struct obj *env; struct obj *code;} 		closure;
+	 struct {struct obj *code; }				macro;
+	 struct {long dim; char *data;} 			string;
+	 struct {long dim; struct obj **data;} 			vector;
+	 struct {struct port_descr *p;}				port;
+	 struct {char *data;} 					keyword;
+	 struct {MP_INT *data;}					bignum;
+	 struct {short level, position; struct obj *symbol;}	localvar;
+	 struct {struct obj *expr; int resultknown; }		promise;
+	 struct {void *data; }					cont;
+	 struct {struct obj *data;}				env;
+	 struct {short id; char staticp; void *data; }		extension;
+#ifdef USE_STKLOS
+    	 struct {int id; struct stklos_instance *data; }	instance;
+#endif
+#ifdef USE_TK
+	 /* Idea of l_data comes from Alexander Taranov <tay@jet.msk.edu> */
+	 struct {struct Tk_command *data; struct obj *l_data;}	tk;
+#endif
+       } storage_as;
+};
+
+typedef struct obj* SCM;
+typedef struct obj* PRIMITIVE;
+
+
+#define tc_nil    	0
+#define tc_cons   	1
+#define tc_flonum 	2
+#define tc_integer	3
+#define tc_bignum	4
+#define tc_symbol 	5
+#define tc_keyword	6
+#define tc_subr_0 	7
+#define tc_subr_1 	8
+#define tc_subr_2 	9
+#define tc_subr_3 	10
+#define tc_subr_0_or_1  11
+#define tc_subr_1_or_2  12
+#define tc_subr_2_or_3	13
+#define tc_lsubr  	14
+#define tc_ssubr	15
+#define tc_fsubr  	16
+#define tc_syntax  	17
+#define tc_closure 	18
+#define tc_free_cell 	19
+#define tc_char	        20
+#define tc_string       21
+#define tc_vector	22
+#define tc_eof		23
+#define tc_undefined	24
+#define tc_iport       	25
+#define tc_oport	26
+#define tc_isport	27
+#define tc_osport	28
+#define tc_boolean	29
+#define tc_macro	30
+#define tc_localvar	31
+#define tc_globalvar	32
+#define tc_cont		33
+#define tc_env		34
+#define tc_address	35
+#define tc_autoload	36
+#define tc_Cpointer	37
+
+#ifdef USE_STKLOS
+#  define tc_instance	 40
+#  define tc_next_method 41
+#endif
+
+#ifdef USE_TK
+#  define tc_tkcommand	50
+#endif
+
+#define tc_quote	61
+#define tc_lambda	62
+#define tc_if		63
+#define tc_setq		64
+#define tc_cond		65 
+#define tc_and		66
+#define tc_or		67
+#define tc_let		68
+#define tc_letstar	69
+#define tc_letrec	70
+#define tc_begin	71
+#define tc_promise	72
+#define tc_apply	73
+#define tc_call_cc	74
+#define tc_dynwind	75
+#define tc_extend_env   76
+#define tc_unbound	80
+#define tc_start_extd	90	/* Number of first extended type */
+#define tc_stop_extd	127	/* Number of last extended type */
+
+
+#define CAR(x) 		((*x).storage_as.cons.car)
+#define CDR(x) 		((*x).storage_as.cons.cdr)
+#define PNAME(x) 	((*x).storage_as.symbol.pname)
+#define KEYVAL(x)	((*x).storage_as.keyword.data)
+#define VCELL(x) 	((*x).storage_as.symbol.vcell)
+#define SUBR0(x) 	(*((*x).storage_as.subr0.f))
+#define SUBRF(x) 	(*((*x).storage_as.subr.f))
+#define FLONM(x) 	(*((*x).storage_as.flonum.data))
+#define CHARS(x)	((*x).storage_as.string.data)
+#define STRSIZE(x)	((*x).storage_as.string.dim)
+#define VECT(x)		((*x).storage_as.vector.data)
+#define VECTSIZE(x)	((*x).storage_as.vector.dim)
+#define BIGNUM(x)	((*x).storage_as.bignum.data)
+#define EXTDATA(x)	((*x).storage_as.extension.data)
+#define EXTID(x)	((*x).storage_as.extension.id)
+#define EXTSTATICP(x)	((*x).storage_as.extension.staticp)
+
+
+#ifdef COMPACT_SMALL_CST
+#  define MAKE_SMALL_CST(x,type)  (((long) (x) << 8) |((type) << 1) | 1)
+#  define SMALL_CST_TYPE(x)	  (((long) (x) >> 1) & 0x7F)
+#  define SMALL_CST_VALUE(x)	  ((long)  (x) >> 8)
+#  define SMALL_CSTP(x)		  ((long)  (x) & 1)
+#  define TYPE(x)		  (SMALL_CSTP(x) ? (int)SMALL_CST_TYPE(x):(x)->type)
+
+#  define INTEGER(x)		  SMALL_CST_VALUE(x)
+#  define SET_INTEGER(x, v)	  (x = (SCM) MAKE_SMALL_CST(v, tc_integer))
+#  define CHAR(x)		  ((unsigned char) SMALL_CST_VALUE(x))
+#  define SET_CHARACTER(x, v)	  (x = (SCM) MAKE_SMALL_CST(v, tc_char))
+#else
+#  define SMALL_CSTP(x)		  FALSE
+#  define TYPE(x)		  ((x)->type)
+
+#  define INTEGER(x)		  ((long) ((x)->storage_as.extension.data))
+#  define SET_INTEGER(x, v)	  (INTEGER(x) = (v))
+#  define CHAR(x)		  ((unsigned char) ((x)->storage_as.extension.data)
+#  define SET_CHARACTER(x, v)	  (CHAR(x) = (v))
+#endif
+
+
+#define EQ(x,y) 	((x) == (y))
+#define NEQ(x,y) 	((x) != (y))
+#define NULLP(x) 	EQ(x,NIL)
+#define NNULLP(x) 	NEQ(x,NIL)
+
+#define TYPEP(x,y) 	(TYPE(x) == (y))
+#define NTYPEP(x,y) 	(TYPE(x) != (y))
+
+#define CONSP(x)   	 TYPEP(x,tc_cons)
+#define CLOSUREP(x)	 TYPEP(x,tc_closure)
+#define FLONUMP(x) 	 TYPEP(x,tc_flonum)
+#define SYMBOLP(x) 	 TYPEP(x,tc_symbol)
+#define KEYWORDP(x)	 TYPEP(x,tc_keyword)
+#define STRINGP(x)	 TYPEP(x,tc_string)
+#define EOFP(x)		 TYPEP(x, tc_eof)
+#define BOOLEANP(x)	 TYPEP(x, tc_boolean)
+#define VECTORP(x)	 TYPEP(x,tc_vector)
+#define IPORTP(x)	 TYPEP(x,tc_iport)
+#define OPORTP(x)	 TYPEP(x,tc_oport)
+#define ISPORTP(x)	 TYPEP(x,tc_isport)
+#define OSPORTP(x)	 TYPEP(x,tc_osport)
+#define INTEGERP(x)	 TYPEP(x,tc_integer)
+#define BIGNUMP(x)	 TYPEP(x,tc_bignum)
+#define NUMBERP(x)	 (FLONUMP(x) || INTEGERP(x) || BIGNUMP(x))
+#define EXACTP(x)	 (INTEGERP(x) || BIGNUMP(x))
+#define CHARP(x)	 TYPEP(x,tc_char)
+#define PROMISEP(x)	 TYPEP(x,tc_promise)
+#define CONTINUATIONP(x) TYPEP(x,tc_cont)
+#define ENVP(x)		 TYPEP(x,tc_env)
+#define MACROP(x)	 TYPEP(x,tc_macro)
+#define EXTENDEDP(x)	 (tc_start_extd <= TYPE(x))
+#define CPOINTERP(x)	 TYPEP(x,tc_Cpointer)
+
+#define NCONSP(x)   	  NTYPEP(x,tc_cons)
+#define NCLOSUREP(x)	  NTYPEP(x,tc_closure)
+#define NFLONUMP(x) 	  NTYPEP(x,tc_flonum)
+#define NSYMBOLP(x) 	  NTYPEP(x,tc_symbol)
+#define NKEYWORDP(x)	  NTYPEP(x,tc_keyword)
+#define NSTRINGP(x)	  NTYPEP(x,tc_string)
+#define NEOFP(x)	  NTYPEP(x, tc_eof)
+#define NBOOLEANP(x)	  NTYPEP(x, tc_boolean)
+#define NVECTORP(x)	  NTYPEP(x,tc_vector)
+#define NIPORTP(x)	  NTYPEP(x,tc_iport)
+#define NOPORTP(x)	  NTYPEP(x,tc_oport)
+#define NISPORTP(x)	  NTYPEP(x,tc_isport)
+#define NOSPORTP(x)	  NTYPEP(x,tc_osport)
+#define NINTEGERP(x)	  NTYPEP(x,tc_integer)
+#define NBIGNUMP(x)	  NTYPEP(x,tc_bignum)
+#define NNUMBERP(x)	  (NFLONUMP(x) && NINTEGERP(x) && NBIGNUMP(x))
+#define NEXACTP(x)	  (NINTEGERP(x) && NBIGNUMP(x))
+#define NCHARP(x)	  NTYPEP(x,tc_char)
+#define NPROMISEP(x)	  NTYPEP(x,tc_promise)
+#define NCONTINUATIONP(x) NTYPEP(x,tc_cont)
+#define NENVP(x)	  NTYPEP(x,tc_env)
+#define NMACROP(x)	  NTYPEP(x,tc_macro)
+#define NEXTENDEDP(x)	  (!EXTENDEDP(x))
+#define NCPOINTERP(x)	  NTYPEP(x,tc_Cpointer)
+
+#ifdef USE_TK
+#  define TKCOMMP(x)	  TYPEP(x,tc_tkcommand)
+#  define NTKCOMMP(x)	  NTYPEP(x,tc_tkcommand)
+#endif
+
+#define ModifyCode()	NEQ(VCELL(STk_sym_debug), STk_truth)
+
+#define SYNTAX_RETURN(x, need_eval) \
+			  { *pform = (x); return (need_eval); }
+
+
+#ifdef _DEBUG_MALLOC_INC
+#define must_malloc(n)		malloc(n)
+#define must_realloc(p, n)	realloc(p, n)
+#endif
+
+
+#define CELL_INFO_C_VAR 	01	/* Symbol is a C variable */
+#define CELL_INFO_TRACED_VAR	02	/* Symbol is traced */
+
+
+
+#define TRACED_VARP(var)	(((var)->cell_info) & CELL_INFO_TRACED_VAR)
+
+
+#define Debug(message, obj) {fprintf(STk_stderr, "***%s",message); \
+			     STk_print(obj, STk_curr_eport, WRT_MODE); \
+			     fprintf(STk_stderr, "\n");}
+#define TRACE(message)	{printf("In %s (%d):", __FILE__, __LINE__); \
+			 printf message; putchar('\n');}
+
+
+/******************************************************************************/
+/******************************************************************************/
+/******************************************************************************/
+/******************************************************************************/
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  A D D R E S S . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+SCM 	  STk_address2object(char *buffer);
+
+PRIMITIVE STk_address_of(SCM obj);
+PRIMITIVE STk_addressp(SCM address);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  A R G V . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#ifdef USE_TK
+extern char *STk_arg_Xdisplay;
+extern char *STk_arg_geometry;
+extern char *STk_arg_name;
+extern char *STk_arg_visual;
+extern int   STk_arg_colormap;
+extern int   STk_arg_sync;
+extern int   STk_arg_no_tk;
+#endif
+extern char *STk_arg_file;
+extern char *STk_arg_load;
+extern char *STk_arg_cells;
+extern char *STk_arg_image;
+extern int   STk_arg_interactive;
+
+char** STk_process_argc_argv(int argc, char **argv);
+void   STk_save_unix_args_and_environment(int argc, char **argv);
+void   STk_restore_unix_args_and_environment(int *argc, char ***argv);
+void   STk_initialize_scheme_args(char **argv);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  B O O L E A N . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+PRIMITIVE STk_not(SCM x);
+PRIMITIVE STk_booleanp(SCM x);
+PRIMITIVE STk_eqv(SCM x, SCM y);
+PRIMITIVE STk_eq(SCM x,SCM y);
+PRIMITIVE STk_equal(SCM x, SCM y);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  C H A R . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+char  STk_string2char(char *s);
+char *STk_char2string(char c);
+SCM   STk_makechar(char c);
+
+PRIMITIVE STk_charp(SCM obj);
+
+PRIMITIVE STk_chareq   (SCM c1, SCM c2);
+PRIMITIVE STk_charless (SCM c1, SCM c2);
+PRIMITIVE STk_chargt   (SCM c1, SCM c2);
+PRIMITIVE STk_charlesse(SCM c1, SCM c2);
+PRIMITIVE STk_chargte  (SCM c1, SCM c2);
+
+PRIMITIVE STk_chareqi   (SCM c1, SCM c2);
+PRIMITIVE STk_charlessi (SCM c1, SCM c2);
+PRIMITIVE STk_chargti   (SCM c1, SCM c2);
+PRIMITIVE STk_charlessei(SCM c1, SCM c2);
+PRIMITIVE STk_chargtei  (SCM c1, SCM c2);
+
+PRIMITIVE STk_char_alphap(SCM c);
+PRIMITIVE STk_char_numericp(SCM c);
+PRIMITIVE STk_char_whitep(SCM c);
+PRIMITIVE STk_char_upperp(SCM c);
+PRIMITIVE STk_char_lowerp(SCM c);
+PRIMITIVE STk_char2integer(SCM c);
+PRIMITIVE STk_integer2char(SCM i);
+PRIMITIVE STk_char_upper(SCM c);
+PRIMITIVE STk_char_lower(SCM c);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  C O N T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+SCM 	  STk_mark_continuation(SCM cont);
+void 	  STk_throw(SCM fct, SCM val);
+SCM 	  STk_do_call_cc(SCM *x);
+PRIMITIVE STk_continuationp(SCM obj);
+
+void 	  STk_unwind_all(void);
+PRIMITIVE STk_dynamic_wind(SCM thunk1, SCM thunk2, SCM thunk3);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  D U M P . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+extern int STk_dumped_core;
+void STk_restore_image(char *s);
+PRIMITIVE STk_dump(SCM s);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  D Y N L O A D . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void STk_load_object_file(char *path);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  E N V . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#define STk_fast_extend_env(formals, actuals, env) \
+	Cons(Cons((formals), (actuals)), (env))
+
+SCM STk_makeenv(SCM l, int create_if_null);
+SCM *STk_value_in_env(SCM var, SCM env);
+SCM *STk_varlookup(SCM x, SCM env, int err_if_unbound);
+SCM STk_localvalue(SCM var, SCM env);
+SCM STk_extend_env(SCM formals, SCM actuals, SCM env, SCM who);
+
+PRIMITIVE STk_symbol_boundp(SCM x, SCM env);
+PRIMITIVE STk_the_environment(SCM args, SCM env, int len);
+PRIMITIVE STk_parent_environment(SCM env);
+PRIMITIVE STk_global_environment(void);
+PRIMITIVE STk_environment2list(SCM env);
+PRIMITIVE STk_environmentp(SCM obj);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  E R R O R . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+#define EVAL_ERROR		((SCM) 1)
+
+#define ERR_FATAL		000
+#define ERR_OK			001
+#define ERR_READ_FROM_STRING	002
+#define ERR_IGNORED		004
+#define ERR_TCL_BACKGROUND	010
+
+#define JMP_INIT		0
+#define JMP_ERROR		1
+#define JMP_THROW		2
+#define JMP_RESTORE		3
+
+extern jmp_buf *STk_top_jmp_buf; /* Jump buffer denoting toplevel context */
+extern long STk_error_context;
+
+void STk_err(char *message, SCM x);
+
+#define Err 		STk_err
+#define err		STk_err	/* For compatibility: don't use it anymore */
+#define Top_jmp_buf	STk_top_jmp_buf
+#define Error_context	STk_error_context
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  E V A L . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+/* The eval flag which tells eval that it has something to do before
+ * evaluating the form
+ */
+extern int STk_eval_flag;
+
+/* Eval stack. These are internals of the evaluator. Don't care*/
+void STk_show_eval_stack(int depth);
+void STk_reset_eval_stack(void);
+PRIMITIVE STk_get_eval_stack(void);
+
+/* Eval hook management */
+void STk_init_eval_hook(void);
+void STk_reset_eval_hook(void);
+PRIMITIVE STk_eval_hook(SCM x, SCM env, SCM hook);
+
+/* Environment stack. These are internals of the evaluator. Don't care*/
+SCM STk_top_env_stack(void);
+PRIMITIVE STk_get_env_stack(void);
+
+SCM STk_eval(SCM x,SCM env);
+SCM STk_apply(SCM fct, SCM param);
+
+PRIMITIVE STk_user_eval  (SCM expr, SCM env);
+PRIMITIVE STk_eval_string(SCM str, SCM env);
+
+#define Apply		  STk_apply
+#define EVAL(x)	  	  (STk_eval((x), env))
+#define EVALCAR(x)	  (SYMBOLP(CAR(x)) ? *STk_varlookup((x),env,1):EVAL(CAR(x)))
+#define SET_EVAL_FLAG(v)  {STk_eval_flag = (v);}
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  E X T E N D  . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#define EXT_ISPROC 	01	/* procedure? should answer #t */
+#define EXT_EVALPARAM 	02	/* evaluates parameter list when apply */
+
+#define STk_set_symbol_value(name,value)  {VCELL(Intern(name))=(value);}
+#define STk_get_symbol_value(name)	  (VCELL(Intern(name)))
+
+typedef struct {
+  char *type_name;		/* The external name of this type */
+  int  flags;			
+  void (*gc_mark_fct)(SCM x);
+  void (*gc_sweep_fct)(SCM x);
+  SCM  (*apply_fct)(SCM x, SCM args, SCM env);
+  void (*display_fct)(SCM x, SCM port, int mode);
+  SCM  (*compare_fct)(SCM x, SCM y, int equalp);
+  void *Reserved[7];		/* should be sufficient for a while */
+} STk_extended_scheme_type;
+
+
+int  STk_add_new_type(STk_extended_scheme_type *p);
+void STk_add_new_primitive(char *fct_name, int fct_type, PRIMITIVE (*fct_ptr)());
+SCM  STk_eval_C_string(char *s, SCM env);
+
+int STk_new_Cpointer_id(void (*display_func)(SCM x, SCM port, int mode));
+SCM STk_make_Cpointer(int Cpointer_id, void *ptr, int staticp);
+
+void STk_define_C_variable(char *var, SCM (*getter)(), void (*setter)());
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  G C . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+extern SCM  STk_freelist;
+extern long STk_alloc_cells;
+extern int  STk_gc_requested;
+
+#define NEWCELL(_into,_type)    			\
+ { 							\
+   if (STk_gc_requested || NULLP(STk_freelist))		\
+      STk_gc_for_newcell();				\
+   _into 	      = STk_freelist;			\
+   STk_freelist       = CDR(STk_freelist);		\
+   STk_alloc_cells   += 1;				\
+   _into->type        = _type;				\
+ }
+
+void STk_gc_for_newcell(void);
+void STk_gc_protect(SCM *location);   /* protect against GC this cell */
+void STk_gc_unprotect(SCM *location); /* un-protect against GC this cell */
+void STk_gc_mark(SCM location);       /* mark (recursively) this location */
+
+PRIMITIVE STk_gc_stats(void);				/* + */
+PRIMITIVE STk_gc(void);					/* + */
+PRIMITIVE STk_find_cells(SCM type);			/* + */
+PRIMITIVE STk_expand_heap(SCM arg);			/* + */
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  I O . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+#ifdef WIN32
+   extern FILE *STk_stdin, *STk_stdout, *STk_stderr;
+#else
+#  define STk_stdin  stdin
+#  define STk_stdout stdout
+#  define STk_stderr stderr
+#endif
+
+void   STk_StdinProc(void);
+int    STk_file_data_available(FILE *f);
+int    STk_getc(FILE *f);
+int    STk_ungetc(int c, FILE *f);
+int    STk_putc(int c, FILE *f);
+int    STk_puts(char *s, FILE *f);
+int    STk_eof(FILE *f);
+char * STk_line_bufferize_io(FILE *f);
+
+#ifdef WIN32
+void   STk_init_io(void);
+#endif
+
+#define Getc(f)         (STk_getc(f))
+#define Ungetc(c, f)    (STk_ungetc((c), (f)))
+#define Putc(c, f)      (STk_putc((c),   (f)))
+#define Puts(s, f)      (STk_puts((s),   (f)))
+#define Eof(f)		(STk_eof(f))
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ----  K E Y W O R D . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void STk_initialize_keyword_table(void);
+void STk_free_keyword(SCM keyword);
+
+SCM STk_makekey(char *token);
+PRIMITIVE STk_make_keyword(SCM str);
+PRIMITIVE STk_keywordp(SCM obj);
+PRIMITIVE STk_keyword2string(SCM obj);
+PRIMITIVE STk_get_keyword(SCM key, SCM l, SCM default_value);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- L I S T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+int STk_llength(SCM l);	/* length of a list. -1 if not a proper list */
+
+PRIMITIVE STk_pairp(SCM x);
+PRIMITIVE STk_cons(SCM x, SCM y);
+PRIMITIVE STk_car(SCM x);
+PRIMITIVE STk_cdr(SCM x);
+PRIMITIVE STk_setcar(SCM cell, SCM value);
+PRIMITIVE STk_setcdr(SCM cell, SCM value);
+PRIMITIVE STk_caar  (SCM l);
+PRIMITIVE STk_cdar  (SCM l);
+PRIMITIVE STk_cadr  (SCM l);
+PRIMITIVE STk_cddr  (SCM l);
+PRIMITIVE STk_caaar (SCM l);
+PRIMITIVE STk_cdaar (SCM l);
+PRIMITIVE STk_cadar (SCM l);
+PRIMITIVE STk_cddar (SCM l);
+PRIMITIVE STk_caadr (SCM l);
+PRIMITIVE STk_cdadr (SCM l);
+PRIMITIVE STk_caddr (SCM l);
+PRIMITIVE STk_cdddr (SCM l);
+PRIMITIVE STk_caaaar(SCM l);
+PRIMITIVE STk_cdaaar(SCM l);
+PRIMITIVE STk_cadaar(SCM l);
+PRIMITIVE STk_cddaar(SCM l);
+PRIMITIVE STk_caadar(SCM l);
+PRIMITIVE STk_cdadar(SCM l);
+PRIMITIVE STk_caddar(SCM l);
+PRIMITIVE STk_cdddar(SCM l);
+PRIMITIVE STk_caaadr(SCM l);
+PRIMITIVE STk_cdaadr(SCM l);
+PRIMITIVE STk_cadadr(SCM l);
+PRIMITIVE STk_cddadr(SCM l);
+PRIMITIVE STk_caaddr(SCM l);
+PRIMITIVE STk_cdaddr(SCM l);
+PRIMITIVE STk_cadddr(SCM l);
+PRIMITIVE STk_cddddr(SCM l);
+PRIMITIVE STk_nullp (SCM x);
+PRIMITIVE STk_listp (SCM x);
+PRIMITIVE STk_list  (SCM l, int len);
+PRIMITIVE STk_list_length(SCM l);
+PRIMITIVE STk_append(SCM l, int len);
+PRIMITIVE STk_reverse(SCM l);
+PRIMITIVE STk_list_tail(SCM list, SCM k);
+PRIMITIVE STk_list_ref(SCM list, SCM k);
+PRIMITIVE STk_memq  (SCM obj, SCM list);
+PRIMITIVE STk_memv  (SCM obj, SCM list);
+PRIMITIVE STk_member(SCM obj, SCM list);
+PRIMITIVE STk_assq  (SCM obj, SCM alist);
+PRIMITIVE STk_assv  (SCM obj, SCM alist);
+PRIMITIVE STk_assoc (SCM obj, SCM alist);
+
+PRIMITIVE STk_liststar(SCM l, int len);		/* + */
+PRIMITIVE STk_copy_tree(SCM l);			/* + */
+
+#define Cons			 STk_cons
+#define Reverse			 STk_reverse
+#define LIST1(a)		 Cons((a), NIL)
+#define LIST2(a,b) 		 Cons((a), LIST1(b))
+#define LIST3(a,b,c)		 Cons((a), LIST2((b),(c)))
+#define LIST4(a,b,c,d)		 Cons((a), LIST3((b),(c),(d)))
+#define LIST5(a,b,c,d,e)	 Cons((a), LIST4((b),(c),(d),(e)))
+#define LIST6(a,b,c,d,e,f)	 Cons((a), LIST5((b),(c),(d),(e),(f)))
+#define LIST7(a,b,c,d,e,f,g)	 Cons((a), LIST6((b),(c),(d),(e),(f),(g)))
+#define LIST8(a,b,c,d,e,f,g,h)	 Cons((a), LIST7((b),(c),(d),(e),(f),(g),(h)))
+#define LIST9(a,b,c,d,e,f,g,h,i) Cons((a), LIST8((b),(c),(d),(e),(f),(g),(h),(i)))
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- M A C R O . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+PRIMITIVE STk_macro(SCM args, SCM env, int len);		/* + */
+PRIMITIVE STk_macro_expand(SCM form, SCM env, int len);		/* + */
+PRIMITIVE STk_macro_expand_1(SCM form, SCM env, int len);	/* + */
+PRIMITIVE STk_macro_body(SCM form);				/* + */
+PRIMITIVE STk_macrop(SCM obj);					/* + */
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- N U M B E R  . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#ifdef COMPACT_SMALL_CST
+#  define SMALLINT_MAX	(LONG_MAX>>8)
+#else
+#  define SMALLINT_MAX  LONG_MAX
+#endif
+#define SMALLINT_MIN	(-SMALLINT_MAX)
+
+char   *STk_number2Cstr(SCM n, long base, char buffer[]);
+SCM	STk_Cstr2number(char *str, long base);
+SCM	STk_makenumber(double x);
+SCM	STk_makeinteger(long x);
+long	STk_integer_value(SCM x); /* Returns LONG_MIN if not representable as int */
+long	STk_integer_value_no_overflow(SCM x); /* Returns LONG_MIN if not an int */
+int	STk_equal_numbers(SCM number1, SCM number2); /* number1 = number2 */
+
+PRIMITIVE STk_numberp(SCM x);
+PRIMITIVE STk_integerp(SCM x);
+    
+PRIMITIVE STk_exactp(SCM x);
+PRIMITIVE STk_inexactp(SCM x);
+
+PRIMITIVE STk_numequal(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_lessp(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_greaterp(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_lessep(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_greaterep(SCM l, SCM env, int from_eval);
+
+PRIMITIVE STk_zerop(SCM n);
+PRIMITIVE STk_positivep(SCM n);
+PRIMITIVE STk_negativep(SCM n);
+PRIMITIVE STk_oddp(SCM n);
+PRIMITIVE STk_evenp(SCM n);
+
+PRIMITIVE STk_max(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_min(SCM l, SCM env, int from_eval);
+
+PRIMITIVE STk_plus(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_difference(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_times(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_division(SCM l, SCM env, int from_eval);
+
+PRIMITIVE STk_absolute(SCM x);
+PRIMITIVE STk_quotient(SCM n1, SCM n2);
+PRIMITIVE STk_remainder(SCM n1, SCM n2);
+PRIMITIVE STk_modulo(SCM n1, SCM n2);
+
+PRIMITIVE STk_gcd(SCM l, SCM env, int from_eval);
+PRIMITIVE STk_lcm(SCM l, SCM env, int from_eval);
+
+PRIMITIVE STk_floor(SCM x);
+PRIMITIVE STk_ceiling(SCM x);
+PRIMITIVE STk_truncate(SCM x);
+PRIMITIVE STk_round(SCM x);
+
+PRIMITIVE STk_exp(SCM z);
+PRIMITIVE STk_log(SCM z);
+PRIMITIVE STk_sin(SCM z);
+PRIMITIVE STk_cos(SCM z);
+PRIMITIVE STk_tan(SCM z);
+PRIMITIVE STk_asin(SCM z);
+PRIMITIVE STk_acos(SCM z);
+PRIMITIVE STk_atan(SCM y, SCM x);
+PRIMITIVE STk_sqrt(SCM z);
+PRIMITIVE STk_expt(SCM z1, SCM z2);
+
+PRIMITIVE STk_exact2inexact(SCM z);
+PRIMITIVE STk_inexact2exact(SCM z);
+PRIMITIVE STk_string2number(SCM str, SCM base);
+PRIMITIVE STk_number2string(SCM n, SCM base);
+
+PRIMITIVE  STk_bignump(SCM n);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- P O R T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+struct port_descr {		/* Slot order is important (see sport_descr) */
+  FILE *file;
+  int  flags;
+  char *filename;
+  SCM  read_event;
+  SCM  write_event;
+};
+
+#define PORT_FILE(x)	((x)->storage_as.port.p->file)
+#define PORT_NAME(x)	((x)->storage_as.port.p->filename)
+#define PORT_FLAGS(x)	((x)->storage_as.port.p->flags)
+#define PORT_REVENT(x)	((x)->storage_as.port.p->read_event)
+#define PORT_WEVENT(x)	((x)->storage_as.port.p->write_event)
+
+#define PORT_CLOSED 	01
+#define PIPE_PORT	02
+
+#define OUTP(p) 	(OPORTP(p) || OSPORTP(p))
+#define INP(p)  	(IPORTP(p) || ISPORTP(p))
+#define F_READ  	01
+#define F_WRITE 	02
+
+/* external vars */
+extern SCM STk_curr_iport, STk_curr_oport, STk_curr_eport, STk_eof_object;
+
+
+void 	  STk_freeport(SCM port);
+void 	  STk_init_standard_ports(void);
+SCM 	  STk_loadfile(char *fname, int err_if_absent);
+SCM 	  STk_Cfile2port(char *name, FILE *f, int type, int flags);
+
+PRIMITIVE STk_input_portp(SCM port);
+PRIMITIVE STk_output_portp(SCM port);
+PRIMITIVE STk_current_input_port(void);
+PRIMITIVE STk_current_output_port(void);
+PRIMITIVE STk_current_error_port(void);
+PRIMITIVE STk_with_input_from_file(SCM string, SCM thunk);
+PRIMITIVE STk_with_output_to_file(SCM string, SCM thunk);
+PRIMITIVE STk_open_input_file(SCM filename);
+PRIMITIVE STk_open_output_file(SCM filename);
+PRIMITIVE STk_close_input_port(SCM port);
+PRIMITIVE STk_close_output_port(SCM port);
+PRIMITIVE STk_read(SCM port);
+PRIMITIVE STk_read_char(SCM port);
+PRIMITIVE STk_peek_char(SCM port);
+PRIMITIVE STk_eof_objectp(SCM obj);
+PRIMITIVE STk_char_readyp(SCM port);
+PRIMITIVE STk_write(SCM expr, SCM port);
+PRIMITIVE STk_display(SCM expr, SCM port);
+PRIMITIVE STk_newline(SCM port);
+PRIMITIVE STk_write_char(SCM c, SCM port);
+PRIMITIVE STk_scheme_load(SCM filename);
+
+/* Non standard functions */
+PRIMITIVE STk_format(SCM l, int len);
+PRIMITIVE STk_error(SCM l, int len);
+PRIMITIVE STk_try_load(SCM filename);
+PRIMITIVE STk_open_file(SCM filename, SCM mode);
+PRIMITIVE STk_close_port(SCM port);
+PRIMITIVE STk_read_line(SCM port);
+PRIMITIVE STk_flush(SCM porSTk_t);
+
+void      STk_do_autoload(SCM var);
+PRIMITIVE STk_autoload(SCM l, SCM env, int len);
+PRIMITIVE STk_autoloadp(SCM l, SCM env, int len);
+
+PRIMITIVE STk_when_port_readable(SCM port, SCM closure);
+PRIMITIVE STk_when_port_writable(SCM port, SCM closure);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- P R I M I T I V E S . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void STk_init_primitives(void);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- P R I N T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#define DSP_MODE	01
+#define WRT_MODE	02
+#define TK_MODE		04	/* Always defined even if no Tk support */
+
+
+SCM STk_print(SCM exp, SCM port, int mode);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- P R O C . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#define CLOSURE_PARAMETERS(p)		(CAR((p)->storage_as.closure.code))
+
+int       STk_is_thunk(SCM obj);
+PRIMITIVE STk_procedurep(SCM obj);
+PRIMITIVE STk_map(SCM l, int len);
+PRIMITIVE STk_for_each(SCM l, int len);
+PRIMITIVE STk_procedure_body(SCM proc);
+PRIMITIVE STk_procedure_environment(SCM proc);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- P R O M I S E . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+PRIMITIVE STk_force(SCM promise);
+PRIMITIVE STk_promisep(SCM promise);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- R E A D . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+SCM STk_readf(FILE *f, int case_significant);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S I G N A L . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#define MAX_SYSTEM_SIG 		32		    /* True for all systems? */
+#define SIGHADGC		MAX_SYSTEM_SIG	    /* End of a GC run */
+#define MAX_SIGNAL		(MAX_SYSTEM_SIG+1)  
+
+extern STk_sigint_counter;
+extern STk_control_C;
+
+void      STk_handle_signal(int sig);
+PRIMITIVE STk_add_signal_handler(SCM sig, SCM proc);
+PRIMITIVE STk_set_signal_handler(SCM sig, SCM proc);
+PRIMITIVE STk_get_signal_handlers(SCM sig);
+
+void 	  STk_init_signal(void);
+void 	  STk_mark_signal_table(void);
+
+#define STk_disallow_sigint() {STk_sigint_counter += 1;}
+#define STk_allow_sigint()    {STk_sigint_counter -= 1;}
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S L I B . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#ifndef _DEBUG_MALLOC_INC
+void *STk_must_malloc(unsigned long size);
+void *STk_must_realloc(void *ptr, unsigned long size);
+#endif
+
+double   STk_my_time(void);
+
+SCM 	 STk_internal_eval_string(char *s, long err_code, SCM env);
+
+PRIMITIVE STk_catch(SCM expr, SCM env, int len);
+PRIMITIVE STk_quit_interpreter(SCM retcode);
+PRIMITIVE STk_version(void);
+PRIMITIVE STk_machine_type(void);
+PRIMITIVE STk_library_location(void);
+PRIMITIVE STk_random(SCM n);
+PRIMITIVE STk_set_random_seed(SCM n);
+PRIMITIVE STk_get_internal_info(void);
+PRIMITIVE STk_time(SCM expr, SCM env, int len);
+PRIMITIVE STk_uncode(SCM expr);
+#ifdef SIGSEGV
+PRIMITIVE STk_default_SIGSEGV_handler(void);
+#endif
+void STk_delete_Tcl_child_Interp(void);
+void STk_panic TCL_VARARGS_DEF(char *,arg1);
+
+
+#define must_malloc  STk_must_malloc
+#define must_realloc STk_must_realloc
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S P O R T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+struct sport_descr {		/* Slot order is important (see port_descr) */
+  FILE *file;
+  int  flags;
+};
+
+
+SCM 	  STk_internal_open_input_string(char *s);
+void 	  STk_free_string_port(SCM port);
+SCM 	  STk_internal_read_from_string(SCM port, int *eof, int case_significant);
+PRIMITIVE STk_open_input_string(SCM s);
+PRIMITIVE STk_open_output_string();
+PRIMITIVE STk_get_output_string(SCM port);
+PRIMITIVE STk_input_string_portp(SCM port);
+PRIMITIVE STk_output_string_portp(SCM port);
+PRIMITIVE STk_with_input_from_string(SCM string, SCM thunk);
+PRIMITIVE STk_with_output_to_string(SCM thunk);
+PRIMITIVE STk_read_from_string(SCM str);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S T K L O S . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+#ifdef USE_STKLOS
+#  define STKLOS_VERSION	"2.2b1"
+   PRIMITIVE STk_init_STklos(void);
+#endif
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S T R I N G . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+SCM       STk_makestrg(int len, char *init);
+
+PRIMITIVE STk_stringp(SCM obj);
+PRIMITIVE STk_make_string(SCM len, SCM init_char);
+PRIMITIVE STk_lstring(SCM l, int len);
+PRIMITIVE STk_string_length(SCM str);
+
+PRIMITIVE STk_string_ref(SCM str, SCM index);
+PRIMITIVE STk_string_set(SCM str, SCM index, SCM value);
+
+PRIMITIVE STk_streq   (SCM s1, SCM s2);
+PRIMITIVE STk_strless (SCM s1, SCM s2);
+PRIMITIVE STk_strgt   (SCM s1, SCM s2);
+PRIMITIVE STk_strlesse(SCM s1, SCM s2);
+PRIMITIVE STk_strgte  (SCM s1, SCM s2);
+
+PRIMITIVE STk_streqi   (SCM s1, SCM s2);
+PRIMITIVE STk_strlessi (SCM s1, SCM s2);
+PRIMITIVE STk_strgti   (SCM s1, SCM s2);
+PRIMITIVE STk_strlessei(SCM s1, SCM s2);
+PRIMITIVE STk_strgtei  (SCM s1, SCM s2);
+
+PRIMITIVE STk_substring(SCM string, SCM start, SCM end);
+PRIMITIVE STk_string_append(SCM l, int len);
+PRIMITIVE STk_string2list(SCM str);
+PRIMITIVE STk_list2string(SCM l);
+PRIMITIVE STk_string_copy(SCM str);
+PRIMITIVE STk_string_fill(SCM str, SCM c);
+
+PRIMITIVE STk_string_findp(SCM s1, SCM s2);			/* + */
+PRIMITIVE STk_string_index(SCM s1, SCM s2);			/* + */
+PRIMITIVE STk_string_lower(SCM s);				/* + */
+PRIMITIVE STk_string_upper(SCM s);				/* + */
+
+#define STk_makestring(s) STk_makestrg(strlen(s), (s))
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S Y M B O L . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void 	  STk_initialize_symbol_table(void);
+void 	  STk_mark_symbol_table(void);
+void 	  STk_free_symbol(SCM symbol);
+SCM  	  STk_global_env2list(void);
+SCM 	  STk_intern(char *name);
+
+PRIMITIVE STk_symbolp(SCM x);
+PRIMITIVE STk_symbol2string(SCM symbol);
+PRIMITIVE STk_string2symbol(SCM string);
+
+#define Intern	STk_intern
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- S Y N T A X . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+PRIMITIVE STk_syntax_quote     (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_lambda    (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_if        (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_setq      (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_cond      (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_and       (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_or        (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_let       (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_letstar   (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_letrec    (SCM *pform, SCM env, int len);
+
+PRIMITIVE STk_syntax_begin     (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_delay     (SCM *pform, SCM env, int len);
+PRIMITIVE STk_syntax_quasiquote(SCM *pform, SCM env, int len);
+
+PRIMITIVE STk_syntax_define    (SCM *pform, SCM env, int len);
+
+PRIMITIVE STk_while(SCM l, SCM env, int len);
+PRIMITIVE STk_until(SCM l, SCM env, int len);
+PRIMITIVE STk_syntax_extend_env(SCM *pform, SCM env, int len);
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- T O P L E V E L . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void STk_toplevel(int argc, char **argv);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- T R A C E . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void 	  STk_change_value	 (SCM var, SCM env);
+void 	  STk_mark_tracevar_table(void);
+PRIMITIVE STk_trace_var		 (SCM var, SCM code);
+PRIMITIVE STk_untrace_var	 (SCM var);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- U N I X . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+#ifndef WIN32
+#  define ISDIRSEP(ch) 	 ((ch)=='/')
+#  define ISABSOLUTE(cp) (ISDIRSEP(*cp))
+#  define DIRSEP 	 '/'
+#  define SDIRSEP  	 "/"
+#  define PATHSEP	 ':'
+#else
+#  define ISDIRSEP(ch) 	 ((ch)=='\\' || (ch)=='/')
+#  define ISABSOLUTE(cp) (ISDIRSEP(*cp) || \
+			 (isalpha(*cp)&&*((cp)+1)==':')&&ISDIRSEP(*((cp)+1)))
+#  define DIRSEP 	 '\\'
+#  define SDIRSEP  	 "\\"
+#  define PATHSEP	 ';'
+#endif
+
+
+void 	  STk_whence(char *exec, char *path);
+SCM 	  STk_internal_expand_file_name(char *s);
+SCM 	  STk_resolve_link(char *path, int count);
+int 	  STk_is_directory(const char *path);
+
+PRIMITIVE STk_expand_file_name(SCM s);
+PRIMITIVE STk_canonical_path(SCM str);
+PRIMITIVE STk_getcwd(void);
+PRIMITIVE STk_chdir(SCM s);
+PRIMITIVE STk_getpid(void);
+PRIMITIVE STk_system(SCM com);
+PRIMITIVE STk_getenv(SCM str);
+PRIMITIVE STk_setenv(SCM var, SCM value);
+
+PRIMITIVE STk_file_is_directoryp(SCM f);
+PRIMITIVE STk_file_is_regularp(SCM f);
+PRIMITIVE STk_file_is_readablep(SCM f);
+PRIMITIVE STk_file_is_writablep(SCM f);
+PRIMITIVE STk_file_is_executablep(SCM f);
+PRIMITIVE STk_file_existp(SCM f);
+PRIMITIVE STk_file_glob(SCM l, int len);
+
+
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- V E C T O R . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+SCM STk_makevect(int len, SCM init);
+
+PRIMITIVE STk_vectorp(SCM obj);
+PRIMITIVE STk_make_vector(SCM len, SCM init);
+PRIMITIVE STk_vector(SCM l, int len);
+PRIMITIVE STk_vector_length(SCM v);
+PRIMITIVE STk_vector_ref(SCM v, SCM index);
+PRIMITIVE STk_vector_set(SCM v, SCM index, SCM value);
+PRIMITIVE STk_vector2list(SCM v);
+PRIMITIVE STk_list2vector(SCM l);
+PRIMITIVE STk_vector_fill(SCM v, SCM fill);
+
+PRIMITIVE STk_vector_copy(SCM vect);
+PRIMITIVE STk_vector_resize(SCM vect, SCM size);
+PRIMITIVE STk_sort(SCM obj, SCM test);
+
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- U S E R I N I T . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void STk_user_init(void);
+void STk_user_cleanup(void);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- G L O B A L   V A R I A B L E S 
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+#ifdef STK_MAIN
+#   define Extern
+#else
+#   define Extern extern
+#endif
+
+/* Remember if we are running the stk or snow interpreter */
+Extern int STk_snow_is_running;
+
+/* Program name (expanded) */
+Extern char STk_Argv0[MAX_PATH_LENGTH];
+
+/* Is it an intearctive interpreter? */
+Extern int STk_interactivep;
+
+/* Scheme booleans #t and #f */
+Extern SCM STk_truth, STk_ntruth;
+
+/* Scheme () and the undefined value */
+Extern SCM STk_nil, STk_undefined, STk_unbound;
+
+/* read buffer */
+Extern char *STk_tkbuffer;
+Extern int STk_line_counter;
+Extern SCM STk_current_filename;
+
+/* Special symbols */
+Extern SCM STk_sym_lambda, STk_sym_quote,STk_sym_dot, STk_sym_imply, 
+			  STk_sym_debug, STk_sym_else, STk_sym_quasiquote, 
+           STk_sym_unquote, STk_sym_unquote_splicing, STk_sym_break;;
+
+/* Dynamic-wind */
+Extern SCM STk_wind_stack;
+
+/* Global environment */
+Extern SCM STk_globenv;
+
+/* Library location */
+Extern char *STk_library_path;
+
+
+#undef  Extern
+#define Truth 	  STk_truth
+#define Ntruth	  STk_ntruth
+#define NIL	  STk_nil
+#define UNBOUND   STk_unbound
+#define UNDEFINED STk_undefined
+
+#define Sym_lambda 	 STk_sym_lambda
+#define Sym_quote 	 STk_sym_quote
+#define Sym_dot 	 STk_sym_dot
+#define Sym_imply  	 STk_sym_imply
+#define Sym_debug 	 STk_sym_debug
+#define Sym_else 	 STk_sym_else
+#define Sym_quasiquote   STk_sym_quasiquote
+#define Sym_unquote 	 STk_sym_unquote
+#define Sym_unq_splicing STk_sym_unquote_splicing
+#define Sym_break	 STk_sym_break
+	
+#ifdef USE_TK
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- T C L - G L U E . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+void  STk_init_glue(void);
+SCM   STk_execute_Tcl_lib_cmd(SCM cmd, SCM args, SCM env, int eval_args);
+
+/*
+ * STk_Stringify permits to transform the string "s" in a valid STk string.
+ * Original string is deallocated if free_original is 1 
+ */
+char *STk_stringify(char *s, int free_original);
+#endif
+
+#ifdef USE_TK
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- T K - U T I L . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+
+PRIMITIVE STk_string2widget(SCM str);
+PRIMITIVE STk_widget2string(SCM widget);
+PRIMITIVE STk_tk_commandp(SCM obj);
+PRIMITIVE STk_widget_name(SCM obj);
+PRIMITIVE STk_get_widget_data(SCM widget);
+PRIMITIVE STk_set_widget_data(SCM widget, SCM value);
+PRIMITIVE STk_widget_environment(SCM widget);
+
+/*
+  ------------------------------------------------------------------------------
+  ----
+  ---- T K - M A I N . C
+  ----
+  ------------------------------------------------------------------------------
+*/
+extern Tcl_Interp *STk_main_interp;	/* Interpreter for this application. */
+extern int Tk_initialized ;		/* 1 when Tk is fully initialized */
+
+void Tk_main(int synchronize, char *name, char *fileName, char *Xdisplay,
+	     char *geometry);
+
+#endif
+
+#ifdef __cplusplus
+};
+#endif
+#endif /* ifndef _STK_H */
diff --git a/Src/stklos.c b/Src/stklos.c
new file mode 100644
index 0000000..6022153
--- /dev/null
+++ b/Src/stklos.c
@@ -0,0 +1,982 @@
+/*
+ *
+ *  s t k l o s . c			-- STklos support
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date:  9-Feb-1994 15:56
+ * Last file update: 24-Jul-1996 17:03 
+ */
+
+#ifdef USE_STKLOS
+
+#include "stk.h"
+#include "stklos.h"
+
+#define CLASSP(x)	    (INSTANCEP(x) && SUBCLASSP(CLASS_OF(x), Class))
+#define GENERICP(x)  	    (INSTANCEP(x) && SUBCLASSP(CLASS_OF(x), Generic))
+#define METHODP(x)  	    (INSTANCEP(x) && SUBCLASSP(CLASS_OF(x), Method))
+
+#define NCLASSP(x)	    (!CLASSP(x))
+#define NGENERICP(x)	    (!GENERICP(x))
+#define NMETHODP(x)  	    (!METHODP(x))
+
+#define SPEC_OF(x)	    THE_SLOT_OF(x, S_specializers)
+
+
+static char k_initform[]     = ":initform";     /* In a var so it can be */
+static char k_init_keyword[] = ":init-keyword"; /* patched by STk_makekey */
+
+static SCM Top, Object, Class, Generic, Method, Procedure_class, Entity_class;
+static SCM Boolean, Char, Pair, Procedure, String, Symbol, Vector, Number, 
+	   List, Null, Real, Integer, Keyword, Unknown;
+#ifdef USE_TK
+static SCM Widget;
+#endif
+
+static void slot_set_if_unbound(SCM obj, SCM slot_name, SCM value);
+
+/*****************************************************************************/
+
+static SCM make_instance(SCM classe, long  size, int type)
+{
+  register SCM z;
+  register long i;
+
+  NEWCELL(z, STk_tc_instance);
+  INST(z) 	     = must_malloc(sizeof(Instance) + (size-1)*sizeof(SCM));
+
+  CLASS_OF(z)        = classe;
+  INST_TYPE(z)	     = type;
+  ACCESSORS_OF(z)    = classe? THE_SLOT_OF(classe, S_getters_n_setters) : NIL;
+  NUMBER_OF_SLOTS(z) = size;
+
+  /* Set all the slots to unbound */
+  for (i = 0; i < size; i++)
+    THE_SLOT_OF(z, i) = UNBOUND;
+
+  return z;
+}
+
+/******************************************************************************
+ *
+ * compute-cpl
+ *
+ *   This version doesn't handle multiple-inheritance. It serves only for
+ * booting classes and will be overaloaded in Scheme
+ *
+ ******************************************************************************/
+
+static SCM compute_cpl(SCM supers, SCM res)
+{
+  return NULLP(supers)? Reverse(res)
+    		      : compute_cpl(THE_SLOT_OF(CAR(supers), S_direct_supers),
+					 Cons(CAR(supers), res));
+}
+
+/******************************************************************************
+ *
+ * compute-slots
+ *
+ ******************************************************************************/
+
+static SCM remove_duplicate_slots(SCM l, SCM res, SCM slots_already_seen)
+{
+  SCM tmp;
+
+  if (NULLP(l)) return res;
+
+  tmp = CONSP(CAR(l)) ? CAR(CAR(l)) : CAR(l);
+  if (NSYMBOLP(tmp)) Err("%compute-slots: bad slot name", tmp);
+  
+  if (STk_memq(tmp, slots_already_seen) == Ntruth) {
+    res 	       = Cons(CAR(l), res);
+    slots_already_seen = Cons(tmp, slots_already_seen);
+  }
+  
+  return remove_duplicate_slots(CDR(l), res, slots_already_seen);
+}
+
+static SCM build_slots_list(SCM dslots, SCM cpl)
+{
+  register SCM res = dslots;
+
+  for (cpl = CDR(cpl); NNULLP(cpl); cpl = CDR(cpl))
+    res = STk_append(LIST2(THE_SLOT_OF(CAR(cpl), S_direct_slots), res), 2);
+
+  /* res contains a list of slots. Remove slots which appears more than once */
+  return remove_duplicate_slots(Reverse(res), NIL, NIL);
+}
+
+
+static PRIMITIVE compute_slots(SCM classe)
+{
+  if (NCLASSP(classe)) Err("compute-class: bad class", classe);
+  return build_slots_list(THE_SLOT_OF(classe, S_direct_slots),
+			  THE_SLOT_OF(classe, S_cpl));
+}
+
+/******************************************************************************
+ *
+ * compute-getters-n-setters
+ *  
+ *   This version doesn't handle slot options. It serves only for booting 
+ * classes and will be overaloaded in Scheme.
+ *
+ ******************************************************************************/
+
+static SCM compute_getters_n_setters(SCM slots)
+{
+  SCM  res = NIL;
+  long i   = 0;
+
+  for (  ; NNULLP(slots); slots = CDR(slots)) 
+    res = Cons(Cons(CAR(slots),STk_makeinteger(i++)), res);
+
+  return res;
+}
+
+/******************************************************************************
+ *
+ * compute-initializers
+ *
+ ******************************************************************************/
+
+static SCM build_initializers(SCM slots)
+{
+  SCM initform, tmp, curr_slot, res = NIL;
+
+  for ( ; NNULLP(slots); slots = CDR(slots)) {
+    tmp       = NIL;
+    curr_slot = CAR(slots);
+
+    if (CONSP(curr_slot)) {	
+      /* slot is a pair. See if an :initform is provided */
+      if (STk_llength(curr_slot) > 1) {
+	initform = STk_get_keyword(STk_makekey(k_initform),CDR(curr_slot),NULL);
+	if (initform)
+	  tmp = STk_eval(LIST3(Sym_lambda, NIL, initform), NIL);
+      }
+    }
+    res = Cons(tmp, res);
+  }
+  return Reverse(res);
+}
+
+/******************************************************************************
+ *
+ * initialize-object
+ *
+ ******************************************************************************/
+
+static PRIMITIVE initialize_object(SCM obj, SCM initargs)
+{
+  SCM tmp, initializers, slots;
+
+  if (NINSTANCEP(obj))
+    Err("%initialize-object: bad instance", obj);
+  if (NCONSP(initargs) && NNULLP(initargs)) 
+    Err("%initialize-object: bad init list", initargs);
+  
+  initializers = THE_SLOT_OF(CLASS_OF(obj), S_initializers);
+  slots        = THE_SLOT_OF(CLASS_OF(obj), S_slots);
+  
+  /* See for each slot how it must be initialized */
+  for ( ; NNULLP(initializers); initializers=CDR(initializers), slots=CDR(slots)) {
+    SCM slot_name  = CAR(slots);
+    SCM slot_value = NULL;
+    
+    if (CONSP(slot_name)) {
+      /* This slot admits (perhaps) to be initialized at creation time */
+      tmp 	= STk_get_keyword(STk_makekey(k_init_keyword),CDR(slot_name), NULL);
+      slot_name = CAR(slot_name);
+      if (tmp) {
+	/* an initarg was provided for this slot */
+	if (NKEYWORDP(tmp))
+	  Err("%initialize-object: initarg must be a keyword. It was", tmp);
+	slot_value = STk_get_keyword(tmp, initargs, NULL);
+      }
+    }
+
+    if (slot_value)
+      /* set slot to provided value */
+      STk_slot_set(obj, slot_name, slot_value);
+    else 
+      /* set slot to its :initform if it exists */
+      if (NNULLP(CAR(initializers)))
+	slot_set_if_unbound(obj, slot_name, Apply(CAR(initializers), NIL));
+  }
+  
+  return obj;
+}
+
+/******************************************************************************/
+
+SCM STk_basic_make_class(SCM classe, SCM name, SCM dsupers, SCM dslots)
+{
+  SCM z, cpl, slots, g_n_s;
+
+  /* Allocate one instance */
+  z     = make_instance(classe, NUMBER_OF_CLASS_SLOTS, TYPE_INSTANCE);
+
+  /* Initialize its slots */
+  cpl   = compute_cpl(dsupers, LIST1(z));
+  slots = build_slots_list(dslots, cpl);
+  g_n_s = compute_getters_n_setters(slots);
+
+  THE_SLOT_OF(z, S_name)	      = name;
+  THE_SLOT_OF(z, S_direct_supers)     = dsupers;
+  THE_SLOT_OF(z, S_direct_slots)      = dslots;
+  THE_SLOT_OF(z, S_cpl)		      = cpl;
+  THE_SLOT_OF(z, S_slots)	      = slots;
+  THE_SLOT_OF(z, S_nfields)	      = STk_makeinteger(STk_llength(slots));
+  THE_SLOT_OF(z, S_getters_n_setters) = g_n_s;
+  THE_SLOT_OF(z, S_initializers)      = build_initializers(slots);
+
+  /* Don't forget to set the accessors list of the object */
+  ACCESSORS_OF(z) = THE_SLOT_OF(classe, S_getters_n_setters);
+  
+  return z;
+}
+
+/******************************************************************************/
+
+static void create_Top_Object_Class(void)
+{
+  SCM tmp, slots_of_class = LIST8(Intern("name"), 
+				  Intern("direct-supers"),
+				  Intern("direct-slots"),
+				  Intern("cpl"),
+				  Intern("slots"),
+				  Intern("nfields"),
+				  Intern("initializers"),
+				  Intern("getters-n-setters"));
+
+  /**** <Class> ****/
+  tmp 	= Intern("<class>");
+  Class = make_instance(NULL, NUMBER_OF_CLASS_SLOTS, TYPE_INSTANCE);
+
+  CLASS_OF(Class)     = Class;
+  ACCESSORS_OF(Class) = compute_getters_n_setters(slots_of_class);
+
+  THE_SLOT_OF(Class, S_name) 		  = tmp;
+  THE_SLOT_OF(Class, S_direct_supers)	  = NIL; /* will be changed */
+  THE_SLOT_OF(Class, S_direct_slots)	  = slots_of_class;
+  THE_SLOT_OF(Class, S_cpl)		  = NIL;  /* will be changed */
+  THE_SLOT_OF(Class, S_slots)		  = slots_of_class;
+  THE_SLOT_OF(Class, S_nfields)		  = STk_makeinteger(NUMBER_OF_CLASS_SLOTS);
+  THE_SLOT_OF(Class, S_initializers)      = build_initializers(slots_of_class);
+  THE_SLOT_OF(Class, S_getters_n_setters) = ACCESSORS_OF(Class);
+
+  VCELL(tmp) = Class;
+
+  /**** <Top> ****/
+  tmp = Intern("<top>");
+  Top = STk_basic_make_class(Class, tmp, NIL, NIL);
+
+  VCELL(tmp) = Top;
+  
+  /**** <Object> ****/
+  tmp	 = Intern("<object>");
+  Object = STk_basic_make_class(Class, tmp, LIST1(Top), NIL);
+
+  VCELL(tmp) = Object;
+
+  /* <top> <object> and <class> were partly uninitialized. Correct them here */
+  THE_SLOT_OF(Class, S_direct_supers)   = LIST1(Object);
+  THE_SLOT_OF(Class, S_cpl)		= LIST3(Class, Object, Top);
+
+  /* protect Top, Object and Class  against garbage collection */
+  STk_gc_protect(&Top);
+  STk_gc_protect(&Object);
+  STk_gc_protect(&Class);
+}
+
+/******************************************************************************/
+
+static PRIMITIVE instancep(SCM obj)
+{
+  return INSTANCEP(obj)? Truth: Ntruth;
+}
+
+PRIMITIVE STk_class_of(SCM obj)
+{
+  if (INSTANCEP(obj)) return CLASS_OF(obj);
+
+  switch (TYPE(obj)) {
+    case tc_boolean:	return Boolean;
+    case tc_char:	return Char;
+    case tc_cons:	return Pair;
+    case tc_nil:	return Null;
+    case tc_string:	return String;
+    case tc_symbol:	return Symbol;
+    case tc_vector:	return Vector;
+    case tc_flonum:	return Real;
+    case tc_integer:
+    case tc_bignum:	return Integer;
+    case tc_keyword:	return Keyword;
+#ifdef USE_TK
+    case tc_tkcommand:	return Widget;
+#endif
+    default: 		return (STk_procedurep(obj) == Truth)? Procedure: Unknown;
+  }
+}
+static PRIMITIVE class_name(SCM obj)
+{
+  if (NINSTANCEP(obj)) Err("class-name: bad class", obj);
+  return STk_slot_ref(obj, Intern("name"));
+}
+static PRIMITIVE class_direct_supers(SCM obj)
+{
+  if (NINSTANCEP(obj)) Err("class-direct-supers: bad class", obj);
+  return STk_slot_ref(obj, Intern("direct-supers"));
+}
+static PRIMITIVE class_direct_slots(SCM obj)
+{
+  if (NINSTANCEP(obj)) Err("class-direct-slots: bad class", obj);
+  return STk_slot_ref(obj, Intern("direct-slots"));
+}
+static PRIMITIVE class_cpl(SCM obj)
+{
+  if (NINSTANCEP(obj)) Err("class-precedence-list: bad class", obj);
+  return STk_slot_ref(obj, Intern("cpl"));
+}
+static PRIMITIVE class_slots(SCM obj)
+{
+  if (NINSTANCEP(obj)) Err("class-slots: bad class", obj);
+  return STk_slot_ref(obj, Intern("slots"));
+}
+
+static PRIMITIVE slot_existsp(SCM obj, SCM slot_name)
+{
+  if (NSYMBOLP(slot_name)) Err("slot-exists?: bad slot name", slot_name);
+  if (NINSTANCEP(obj))     Err("slot-exists?: bad object", obj);
+  return STk_assq(slot_name, ACCESSORS_OF(obj)) == Ntruth ? Ntruth : Truth;
+}
+
+
+/******************************************************************************
+ *
+ * slot-ref, slot-set! and slot-bound?
+ *
+ ******************************************************************************/
+
+PRIMITIVE STk_slot_ref(SCM obj, SCM slot_name)
+{
+  register SCM entry;
+  SCM res;
+
+  if (NINSTANCEP(obj)) Err("slot-ref: bad instance", obj);
+  
+  entry = STk_assq(slot_name, ACCESSORS_OF(obj));
+  if (entry == Ntruth) 
+    Err("slot-ref: no slot with name", slot_name);
+
+  /* Two cases here:
+   *	- if (cdr entry) is an integer (the offset of this slot in the slots vector
+   *	- otherwise (cadr entry) is the reader function to apply
+   */
+  res = INTEGERP(CDR(entry)) ? THE_SLOT_OF(obj, INTEGER(CDR(entry)))
+    			     : Apply(STk_cadr(entry), LIST1(obj));
+  if (res == UNBOUND) Err("slot-ref: slot unbound", slot_name);
+
+  return res;
+}
+
+PRIMITIVE STk_slot_set(SCM obj, SCM slot_name, SCM value)
+{
+  register SCM entry;
+
+  if (NINSTANCEP(obj)) Err("slot-set!: bad instance", obj);
+  
+  entry = STk_assq(slot_name, ACCESSORS_OF(obj));
+  if (entry == Ntruth) 
+    Err("slot-set!: no slot with name", slot_name);
+
+  /* Two cases here:
+   *	- if (cdr entry) is an integer (the offset of this slot in the slots vector)
+   *	- otherwise (caddr entry) is the writer function to apply
+   */
+  if (INTEGERP(CDR(entry)))
+    THE_SLOT_OF(obj, INTEGER(CDR(entry))) = value;
+  else
+    Apply(STk_caddr(entry), LIST2(obj, value));
+
+  return UNDEFINED;
+}
+
+static PRIMITIVE slot_boundp(SCM obj, SCM slot_name)
+{
+  register SCM entry;
+  SCM res;
+
+  if (NINSTANCEP(obj)) Err("slot-bound?: bad instance", obj);
+  
+  entry = STk_assq(slot_name, ACCESSORS_OF(obj));
+  if (entry == Ntruth) 
+    Err("slot-bound?: no slot with name", slot_name);
+
+  res = INTEGERP(CDR(entry)) ? THE_SLOT_OF(obj, INTEGER(CDR(entry)))
+    			     : Apply(STk_cadr(entry), LIST1(obj));
+
+  return (res == UNBOUND) ? Ntruth : Truth;
+}
+
+static void slot_set_if_unbound(SCM obj, SCM slot_name, SCM value)
+{
+  register SCM entry;
+
+  if ((entry = STk_assq(slot_name, ACCESSORS_OF(obj))) == Ntruth) return;
+
+  if (INTEGERP(CDR(entry))) {
+    if (THE_SLOT_OF(obj, INTEGER(CDR(entry))) == UNBOUND)
+      THE_SLOT_OF(obj, INTEGER(CDR(entry))) = value;
+  }
+  else {
+    if (Apply(STk_cadr(entry), LIST1(obj)) == UNBOUND)
+      Apply(STk_caddr(entry), LIST2(obj, value));
+  }
+}
+
+/******************************************************************************
+ *
+ * %allocate-instance (the low level instance allocation primitive)
+ *
+ ******************************************************************************/
+ 
+PRIMITIVE STk_allocate_instance(SCM classe)
+{
+  if (NCLASSP(classe)) Err("%allocate-instance: bad class", classe);
+  return make_instance(classe, 
+		       STk_integer_value(THE_SLOT_OF(classe, S_nfields)),
+		       EQ(classe, Generic) ? TYPE_GENERIC : TYPE_INSTANCE);
+}
+
+/******************************************************************************
+ *
+ * %modify-instance (used by change-class to modify in place)
+ * 
+ ******************************************************************************/
+static PRIMITIVE modify_instance(SCM old, SCM new)
+{
+  Instance *old_inst;
+
+  if (NINSTANCEP(old) || NINSTANCEP(new)) 
+	Err("%modify-instance: both parameters must be instances", NIL);
+
+  /* Exchange the data contained in old and new */
+  old_inst  = INST(old);
+  INST(old) = INST(new);
+  INST(new) = old_inst;
+    
+  return old;
+}
+
+static PRIMITIVE stklos_version(void)
+{
+  return STk_makestring(STKLOS_VERSION);
+}
+
+/******************************************************************************
+ *
+ *  GGGGG                FFFFF          
+ *  G                    F    
+ *  G  GG                FFF    
+ *  G   G                F      
+ *  GGGGG E N E R I C    F    U N C T I O N S
+ *
+ * This implementation provides
+ *	- generic functions (with class specializers)
+ *	- multi-methods
+ *	- next-method 
+ *	- a hard-coded MOP for standard gf, which can be overloaded for non-std gf
+ *
+ ******************************************************************************/
+
+SCM STk_make_next_method(SCM methods, SCM args)
+{
+  register SCM z;
+  
+  NEWCELL(z, tc_next_method);
+  CAR(z) = methods;
+  CDR(z) = args;
+  return z;
+}
+
+SCM STk_apply_next_method(SCM next, SCM provided_args)
+{
+  SCM methods = CAR(next);
+  SCM args    = NULLP(provided_args)? CDR(next) : provided_args;
+
+  if (NULLP(methods)) {
+    /* not very useful, but we cannot do bette for now*/
+    STk_err("no next-method  available", next); 
+#ifdef NYI
+    /* Ideal code */
+    SCM gf = ????? /* Hard to find the gf at minimal cost. Need more work */
+    return Apply(VCELL(Intern("no-next-method")), LIST2(gf, args));
+#endif
+  }
+  {
+    SCM m        = CAR(methods);
+    SCM new_next = STk_make_next_method(CDR(methods), args);
+
+    /* m is the function to call with args. */
+    return Apply(THE_SLOT_OF(m, S_procedure), Cons(new_next, args));
+  }
+}
+
+#ifdef NYI
+
+This comment must be updated 
+
+/******************************************************************************
+ * 
+ * Protocol for calling a generic fumction
+ *
+ * 	+ apply-generic (gf args)
+ *		+ compute-applicable-methods (gf args)
+ *		+ apply-methods (methods args)
+ *			+ apply-method (method args next-methods)
+ *				
+ * apply-method calls make-next-method to build the "continuation" of a a method
+ * Calling a next-method will call apply-next-method which in turn will call 
+ * apply-method again to call effectively the following method.
+ *
+ ******************************************************************************/
+#endif
+
+static int applicablep(SCM actual, SCM formal)
+{
+  register SCM ptr;
+
+  /* We test that (memq formal (slot-ref actual 'cpl))
+   * However, we don't call memq here since we already know that
+   * the list is well formed 
+   */
+  for (ptr=THE_SLOT_OF(actual, S_cpl); NNULLP(ptr); ptr = CDR(ptr)) { 
+    if (CONSP(ptr)) {
+      if (EQ(CAR(ptr), formal)) return TRUE;
+    }
+    else 
+      Err("Internal error in applicable: bad list", actual);
+  }
+  return FALSE;
+}
+
+static int more_specificp(SCM m1, SCM m2, SCM *targs)
+{
+  register SCM s1, s2;
+  register int i;
+  /* 
+   * Note: 
+   *   m1 and m2 can have != length (i.e. one can be one element longer than the 
+   * other when we have a dotted parameter list). For instance, with the call
+   *   (M 1)
+   * with
+   *   (define-method M (a . l) ....)
+   *   (define-method M (a) ....) 
+   *
+   * we consider that the second method is more specific.
+   *
+   * BTW, targs is an array of types. We don't need it's size since
+   * we already know that m1 and m2 are applicable (no risk to go past
+   * the end of this array).
+   *
+   */
+  for (i=0,s1=SPEC_OF(m1),s2=SPEC_OF(m2); ; i++,s1=CDR(s1),s2=CDR(s2)) {
+    if (NULLP(s1)) return 1;
+    if (NULLP(s2)) return 0;
+    if (CAR(s1) != CAR(s2)) {
+      register SCM l, cs1 = CAR(s1), cs2 = CAR(s2);
+      
+      for (l = THE_SLOT_OF(targs[i], S_cpl);   ; l = CDR(l)) {
+	if (EQ(cs1, CAR(l))) return 1;
+	if (EQ(cs2, CAR(l))) return 0;
+      }
+      return 0;/* should not occur! */
+    }
+  }
+  return 0; /* should not occur! */
+}
+
+#define BUFFSIZE 32		/* big enough for most uses */
+
+static SCM sort_applicable_methods(SCM method_list, int size, SCM *targs)
+{
+  int i, j, incr;
+  SCM *v, vector;
+  SCM buffer[BUFFSIZE];
+  SCM save = method_list;
+
+  /* For reasonably sized method_lists we can try to avoid all the
+   * consing and reorder the list in place...
+   * This idea is due to David McClain <Dave_McClain@msn.com>
+   */
+  if (size <= BUFFSIZE) {
+    for(i=0;  i < size; i++) {
+      buffer[i]   = CAR(method_list);
+      method_list = CDR(method_list);
+    }
+    v = buffer;
+  } 
+  else {
+    /* Too many elements in method_list to keep everything locally */
+    vector = STk_vector(save, size);
+    v      = VECT(vector);
+  }
+
+  /* Use a simple shell sort since it is generally faster than qsort on 
+   * small vectors (which is probably mostly the case when we have to
+   * sort a list of applicable methods).
+   */
+  for (incr = size / 2; incr; incr /= 2) {
+    for (i = incr; i < size; i++) {
+      for (j = i-incr ;j >= 0; j -= incr) {
+	if (more_specificp(v[j], v[j+incr], targs)) break;
+	else {
+	  SCM tmp   = v[j+incr];
+	  v[j+incr] = v[j];
+	  v[j]	    = tmp;
+	}
+      }
+    }
+  }
+
+  if (size <= BUFFSIZE) {
+    /* We did it in locally, so restore the original list (reordered) in-place */
+    for(i=0, method_list=save; i < size; i++, v++) {
+      CAR(method_list) = *v;
+      method_list      = CDR(method_list);
+    }
+    return save;
+  }
+  /* If we are here, that's that we did it the hard way... */ 
+  return STk_vector2list(vector);
+}
+
+SCM STk_compute_applicable_methods(SCM gf, SCM args, int len, int find_method)
+{
+  register int i;
+  int count = 0;
+  SCM l, fl, applicable = NIL;
+  SCM save = args;
+  SCM buffer[BUFFSIZE], *types, *p;
+  SCM tmp;
+ 
+  /* Build the list of arguments types */
+  if (len >= BUFFSIZE) {
+    tmp   = STk_makevect(len, NULL);
+    types = p = VECT(tmp);
+  }
+  else
+    types = p = buffer;
+  
+  for (  ; NNULLP(args); args = CDR(args)) 
+    *p++ = STk_class_of(CAR(args));
+ 
+  /* Build a list of all applicable methods */
+  for (l = THE_SLOT_OF(gf, S_methods); NNULLP(l); l = CDR(l)) {
+    for (i=0, fl=SPEC_OF(CAR(l));  ; i++, fl=CDR(fl)) {
+      if (INSTANCEP(fl) || 	  	/* We have a dotted argument list */
+	  (i >= len && NULLP(fl))) {	/* both list exhausted */
+	applicable = Cons(CAR(l), applicable);
+	count     += 1;
+	break;
+      }
+      if (i >= len || NULLP(fl) || !applicablep(types[i], CAR(fl))) break;
+    }
+  }
+
+  if (count == 0) {
+    if (find_method) return Ntruth;
+    Apply(VCELL(Intern("no-applicable-method")), LIST2(gf, save));
+    /* if we are here, it's because no-applicable-method hasn't signaled an error */
+    return NIL;
+  }
+  return (count == 1) ? applicable : 
+    			sort_applicable_methods(applicable, count, types);
+}
+
+
+
+static SCM apply_method(SCM m, SCM args, SCM next_methods)
+{
+  return Apply(THE_SLOT_OF(m, S_procedure),
+	       Cons(STk_make_next_method(next_methods, args), args));
+}
+
+SCM STk_apply_methods(SCM methods, SCM args)
+{
+  if (NULLP(methods)) {
+    /* 
+     * methods can be NIL if we have a no-applicable-method handler which 
+     * doesn't signal an error (or dont ends with a call to next-method)
+     * In this case return an undefined value
+     */
+    return UNDEFINED;
+  }
+
+  return apply_method(CAR(methods), args, CDR(methods));
+}
+
+SCM STk_apply_generic(SCM gf, SCM args)
+{
+  if (NGENERICP(gf)) Err("apply: bad generic function", gf);
+  if (NULLP(THE_SLOT_OF(gf, S_methods))) 
+    Err("apply: no method for generic", gf);
+
+  return STk_apply_methods(
+           STk_compute_applicable_methods(gf, args, STk_llength(args), FALSE),
+	   args);
+}
+
+
+SCM STk_apply_user_generic(SCM gf, SCM args)
+{
+  if (NGENERICP(gf)) STk_err("apply: bad generic function", gf);
+  return Apply(VCELL(Intern("apply-generic")), LIST2(gf, args));
+}
+
+
+/******************************************************************************
+  *
+  * add-method
+  *
+  *******************************************************************************/
+
+static SCM compute_new_list_of_methods(SCM gf, SCM new)
+{
+  SCM l1, l2, l;
+  SCM new_spec = SPEC_OF(new);
+  SCM methods  = THE_SLOT_OF(gf, S_methods);
+
+  for (l = methods; NNULLP(l); l = CDR(l)) {
+    for (l1=new_spec, l2=SPEC_OF(CAR(l));    ; l1=CDR(l1), l2=CDR(l2)) {
+      if (NULLP(l1) && NULLP(l2)) {
+	/* The spec. list of new method already exists in the gf mehods list */	
+	CAR(l) = new;
+	return methods;
+      }
+      if (NULLP(l1) || NULLP(l2) || NEQ(CAR(l1), CAR(l2))) break;
+    }
+  }
+
+  /* If we are here, we have not encountered a method with same specializers */
+  return Cons(new, methods);
+}
+
+
+static PRIMITIVE add_method(SCM gf, SCM method)
+{
+  if (NGENERICP(gf))    Err("add-method: bad generic function", gf); 
+  if (NMETHODP(method)) Err("add-method: bad method", method);
+  
+  THE_SLOT_OF(gf, S_methods) = compute_new_list_of_methods(gf, method); 
+  return method;
+}
+
+/******************************************************************************
+ *
+ * A simple make (which will be redefined later in Scheme)
+ * This version handles only creation of gf, methods and classes (no instances)
+ *
+ * Since this code will disappear when Stklos will be fully booted, 
+ * no precaution is taken to be efficient.
+ *
+ ******************************************************************************/
+
+static char k_name[] 	     = ":name";		/* Use vars since makekey patches */
+static char k_specializers[] = ":specializers"; /* its argument. This avoids the */
+static char k_procedure[]    = ":procedure";	/* -fwritable_string */
+static char k_dsupers[]	     = ":dsupers";
+static char k_slots[]	     = ":slots";
+static char k_gf[]	     = ":generic-function";
+
+static PRIMITIVE lmake(SCM args, int len)
+{
+  SCM classe, z;
+
+  if (len == 0) Err("make: parameter list is null", NIL);
+
+  classe = CAR(args); args  = CDR(args); 
+  
+  if (classe == Generic) {
+    z = make_instance(classe,
+		      STk_llength(THE_SLOT_OF(classe, S_slots)), 
+		      TYPE_GENERIC);
+
+    THE_SLOT_OF(z, S_name)    = STk_get_keyword(STk_makekey(k_name), args, 
+						Intern("???"));
+    THE_SLOT_OF(z, S_methods) = NIL;
+  }
+  else {
+    z = make_instance(classe, 
+		      STk_llength(THE_SLOT_OF(classe, S_slots)), TYPE_INSTANCE);
+
+    if (classe == Method) {
+      THE_SLOT_OF(z, S_generic_function) =  
+			STk_get_keyword(STk_makekey(k_gf), args, Ntruth);
+      THE_SLOT_OF(z, S_specializers) =  
+			STk_get_keyword(STk_makekey(k_specializers), args, NIL);
+      THE_SLOT_OF(z, S_procedure) =
+			STk_get_keyword(STk_makekey(k_procedure), args, NIL);
+    }
+    else {
+      /* In all the others case, make a new class .... No instance here */
+      THE_SLOT_OF(z, S_name) = 
+			STk_get_keyword(STk_makekey(k_name), args, Intern("???"));
+      THE_SLOT_OF(z, S_direct_supers) = 
+			STk_get_keyword(STk_makekey(k_dsupers), args, NIL);
+      THE_SLOT_OF(z, S_direct_slots)  = 
+			STk_get_keyword(STk_makekey(k_slots), args, NIL);
+    }
+  }
+  return z;
+}
+
+static PRIMITIVE find_method(SCM l, int len)
+{
+  SCM gf;
+  
+  if (len == 0) Err("find-method: no parameter list", NIL);
+
+  gf = CAR(l); l = CDR(l);
+  if (NGENERICP(gf)) Err("find-method: bad generic function", gf);
+  if (NULLP(THE_SLOT_OF(gf, S_methods))) 
+    Err("find-method: no methods for generic", gf);
+
+  return STk_compute_applicable_methods(gf, l, len-1, TRUE);
+}
+
+static PRIMITIVE user_more_specificp(SCM m1, SCM m2, SCM targs)
+{
+  char *msg1 = "%method-more-specific?: bad method";
+  char *msg2 = "%method-more-specific?: bad argument";
+  SCM l, v;
+  int i, len;
+
+  if (NMETHODP(m1)) 	      STk_err(msg1, m1);
+  if (NMETHODP(m2)) 	      STk_err(msg1, m2);
+  if ((len=STk_llength(targs)) < 0) STk_err(msg2, targs);
+
+  /* Verify that all the arguments of targs are classes and place them in a vector*/
+  v = STk_makevect(len, NULL);
+
+  for (i=0, l=targs; NNULLP(l); i++, l=CDR(l)) {
+    if (NCLASSP(CAR(l))) STk_err(msg2, targs);
+    VECT(v)[i] = CAR(l);
+  }
+  return more_specificp(m1, m2, VECT(v)) ? Truth: Ntruth;
+}
+  
+  
+
+/******************************************************************************
+ *
+ * Initializations 
+ *
+ ******************************************************************************/
+
+static void make_stdcls(SCM *var, char *name, SCM meta, SCM super, SCM slots)
+{
+   SCM tmp = Intern(name);
+   
+   *var = STk_basic_make_class(meta, tmp, LIST1(super), slots);
+   STk_gc_protect(var);
+   VCELL(tmp) = *var;
+}
+
+static void make_standard_classes(void)
+{
+  SCM tmp1 = LIST3(Intern("generic-function"), 
+		   Intern("specializers"), 
+		   Intern("procedure"));
+  SCM tmp2 = LIST2(Intern("name"), 
+		   Intern("methods"));
+
+  /* Generic functions classes */
+  make_stdcls(&Procedure_class, "<procedure-class>", Class, Class, 	     NIL);
+  make_stdcls(&Entity_class,    "<entity-class>",    Class, Procedure_class, NIL);
+  make_stdcls(&Method,		"<method>",	     Class, Object,	     tmp1);
+  make_stdcls(&Generic,		"<generic>",	     Entity_class, Object,   tmp2);
+
+  /* Primitive types classes */
+  make_stdcls(&Boolean, 	"<boolean>",	Class, 		 Top, 	    NIL);
+  make_stdcls(&Char,		"<char>",	Class, 		 Top,	    NIL);
+  make_stdcls(&List,		"<list>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Pair,		"<pair>",	Class, 		 List,	    NIL);
+  make_stdcls(&Null,		"<null>", 	Class, 		 List,	    NIL);
+  make_stdcls(&String,		"<string>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Symbol,		"<symbol>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Vector,		"<vector>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Number,		"<number>",	Class,		 Top,	    NIL);
+  make_stdcls(&Real,		"<real>",	Class, 		 Number,    NIL);
+  make_stdcls(&Integer,		"<integer>",	Class, 		 Real,	    NIL);
+  make_stdcls(&Keyword,		"<keyword>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Unknown,		"<unknown>",	Class, 		 Top,	    NIL);
+  make_stdcls(&Procedure,	"<procedure>",	Procedure_class, Top, 	    NIL);
+#ifdef USE_TK
+  make_stdcls(&Widget,		"<widget>",	Procedure_class, Procedure, NIL);
+#endif
+}  
+
+PRIMITIVE STk_init_STklos(void)
+{
+  STk_disallow_sigint();
+
+  Top = Object = Class = Generic = Method = NIL;
+  create_Top_Object_Class();
+  make_standard_classes();
+
+  /* Define new primitives */
+  STk_add_new_primitive("stklos-version",	 tc_subr_0, stklos_version);
+  STk_add_new_primitive("instance?", 	         tc_subr_1, instancep);
+  STk_add_new_primitive("slot-ref",		 tc_subr_2, STk_slot_ref);
+  STk_add_new_primitive("slot-set!",	         tc_subr_3, STk_slot_set);
+  STk_add_new_primitive("slot-bound?",	         tc_subr_2, slot_boundp);
+
+  STk_add_new_primitive("class-of",		 tc_subr_1, STk_class_of); 
+  STk_add_new_primitive("class-name",	         tc_subr_1, class_name);
+  STk_add_new_primitive("class-direct-supers",   tc_subr_1, class_direct_supers);
+  STk_add_new_primitive("class-direct-slots",    tc_subr_1, class_direct_slots);
+  STk_add_new_primitive("class-precedence-list", tc_subr_1, class_cpl);
+  STk_add_new_primitive("class-slots",	         tc_subr_1, class_slots);
+  STk_add_new_primitive("slot-exists?",	         tc_subr_2, slot_existsp);
+
+  STk_add_new_primitive("%allocate-instance",    tc_subr_1, STk_allocate_instance);
+  STk_add_new_primitive("%initialize-object",    tc_subr_2, initialize_object);
+  STk_add_new_primitive("%compute-slots",	 tc_subr_1, compute_slots);
+  STk_add_new_primitive("%compute-initializers", tc_subr_1, build_initializers);
+  STk_add_new_primitive("%modify-instance",	 tc_subr_2, modify_instance);
+  
+
+  STk_add_new_primitive("add-method", 		  tc_subr_2, add_method);
+  STk_add_new_primitive("make",	  		  tc_lsubr,  lmake);
+  STk_add_new_primitive("find-method",		  tc_lsubr,  find_method);
+  STk_add_new_primitive("%method-more-specific?", tc_subr_3, user_more_specificp);
+
+  STk_allow_sigint();
+  
+  return UNDEFINED;
+}
+#else 
+  /* Don't produce an empty object file since some compiler (loader?) don't 
+   * manage them corrctly 
+   */
+  static char not_used = '?';
+#endif
diff --git a/Src/stklos.h b/Src/stklos.h
new file mode 100644
index 0000000..382f1b8
--- /dev/null
+++ b/Src/stklos.h
@@ -0,0 +1,90 @@
+/*
+ *
+ *  s t k l o s . h			-- STklos support
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date:  9-Feb-1994 15:56
+ * Last file update: 24-Jul-1996 17:04 
+ */
+
+typedef struct stklos_instance {
+  char instance_type;
+  SCM classe;	  		/* Name is choosed to avoid conflicts with C++ */
+  SCM accessors;
+  int number_of_slots;
+  SCM slots[1];			/* Must be last !! */
+} Instance;
+
+
+#define TYPE_INSTANCE	    00
+#define TYPE_GENERIC	    01
+
+
+#define INST(x)	    	    ((x)->storage_as.instance.data)
+#define INSTID(x)	    ((x)->storage_as.instance.id)
+#define CLASS_OF(x) 	    (INST(x)->classe)
+#define INST_TYPE(x)	    (INST(x)->instance_type)
+#define ACCESSORS_OF(x)     (INST(x)->accessors)
+#define NUMBER_OF_SLOTS(x)  (INST(x)->number_of_slots)
+#define INSTANCEP(x)	    (TYPEP(x, tc_instance))
+#define NINSTANCEP(x)	    (NTYPEP(x, tc_instance))
+#define PUREGENERICP(x)	    (INSTANCEP(x) && (INST(x)->instance_type&TYPE_GENERIC))
+
+#define THE_SLOT_OF(x, i)   (INST(x)->slots[i])
+#define SUBCLASSP(c1, c2)   (STk_memq(c2, THE_SLOT_OF(c1, S_cpl)) != Ntruth)
+
+#define NXT_GF(x)	    (CAR(CAR(x))
+#define NXT_METHODS(x)	    (CDR(CAR(x))
+#define NXT_ARGS(x)	    (CDR(x))
+
+
+#define S_name 			0 	/*a symbol*/
+#define S_direct_supers 	1 	/* (class ...) */
+#define S_direct_slots		2 	/* ((name . options) ...) */
+#define S_cpl			3 	/* (class ...) */
+#define S_slots			4	/* ((name . options) ...) */
+#define S_nfields		5	/* an integer */
+#define S_initializers		6	/* (proc ...) */
+#define S_getters_n_setters	7	/* ((slot getter setter) ...) */
+#define NUMBER_OF_CLASS_SLOTS	8	
+
+
+#define S_methods		1	/* offset of methods slot in a <generic> */
+
+#define S_generic_function	0	/* offset of gf    slot in a <method> */
+#define S_specializers		1	/* offset of spec. slot in a <method> */
+#define S_procedure 		2	/* offset of proc. slot in a <method> */
+
+#define STk_tc_instance tc_instance	/* for compatibility with older versions */
+#define clath		classe		/* for compatibility with older versions */
+
+/* Low level functions exported */
+SCM STk_make_instance(SCM classe, long  size, int type);
+SCM STk_make_next_method(SCM methods, SCM args);
+SCM STk_basic_make_class(SCM classe, SCM name, SCM dsupers, SCM dslots);
+SCM STk_apply_generic(SCM gf, SCM args);
+
+
+PRIMITIVE STk_allocate_instance(SCM classe);
+PRIMITIVE STk_slot_ref(SCM obj, SCM slot_name);
+PRIMITIVE STk_slot_set(SCM obj, SCM slot_name, SCM value);
+PRIMITIVE STk_class_of(SCM obj);
+
+SCM STk_compute_applicable_methods(SCM gf, SCM args, int len, int find_method);
+SCM STk_apply_user_generic(SCM gf, SCM args);
+SCM STk_apply_next_method(SCM next, SCM provided_args);
diff --git a/Src/str.c b/Src/str.c
new file mode 100644
index 0000000..78fed57
--- /dev/null
+++ b/Src/str.c
@@ -0,0 +1,334 @@
+/*
+ *
+ * s t r . c				-- Strings management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: ??????
+ * Last file update: 13-May-1996 22:42
+ */
+
+#include <ctype.h>
+#include "stk.h"
+
+static char bad_string_message[] = "comparing string: bad string";
+ 
+static int stringcomp(SCM s1, SCM s2)
+{
+  register int l1, l2;
+  register char *str1, *str2;
+
+  if (NSTRINGP(s1)) Err(bad_string_message, s1); 
+  if (NSTRINGP(s2)) Err(bad_string_message, s2);
+
+  for (l1=STRSIZE(s1), str1=CHARS(s1), l2=STRSIZE(s2), str2=CHARS(s2);
+       l1 && l2;
+       l1--, str1++, l2--, str2++)
+    if (*str1 != *str2) return (*str1 - *str2);
+  
+  /* l1 == 0 || l2 == 0 */
+  return l1 ? +1 : (l2 ? -1 : 0);
+}
+
+
+static int stringcompi(SCM s1, SCM s2)
+{
+  register int l1, l2;
+  register char *str1, *str2;
+
+  if (NSTRINGP(s1)) Err(bad_string_message, s1);
+  if (NSTRINGP(s2)) Err(bad_string_message, s2);
+
+  for (l1=STRSIZE(s1), str1=CHARS(s1), l2=STRSIZE(s2), str2=CHARS(s2);
+       l1 && l2;
+       l1--, str1++, l2--, str2++)
+    if (tolower(*str1) != tolower(*str2))
+	return (tolower(*str1) - tolower(*str2));
+
+  /* l1 == 0 || l2 == 0 */
+  return l1 ? +1 : (l2 ? -1 : 0);
+}
+
+SCM STk_makestrg(int len, char *init)
+{
+  SCM  z;
+
+  STk_disallow_sigint();
+  NEWCELL(z, tc_string);
+
+  z->storage_as.string.dim  = len;
+  z->storage_as.string.data = (char *) must_malloc(len+1); 
+  z->storage_as.string.data[len] = 0;
+
+  if (init) memcpy(z->storage_as.string.data, init, len);
+  STk_allow_sigint();
+
+  return z;
+}
+
+
+/**** Section 6.7 ****/
+
+PRIMITIVE STk_stringp(SCM obj)
+{
+  return STRINGP(obj) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_make_string(SCM len, SCM init_char)
+{
+  long k;
+  SCM z;
+
+  if ((k=STk_integer_value(len)) < 0) Err("make-string: bad string length", len);
+
+  z = STk_makestrg(k, NULL);
+      
+  if (init_char != UNBOUND) {
+    if (CHARP(init_char)) {
+      char c = CHAR(init_char);
+      int j;
+
+      for(j=0 ;j<k; j++) z->storage_as.string.data[j] = c;
+    }
+    else
+      Err("make-string: initializing char not valid", init_char); }
+  return z;
+}
+
+PRIMITIVE STk_lstring(SCM l, int len)
+{
+  int j;
+  SCM tmp, z;
+
+  if (len < 0) Err("string: bad list", l);
+  z = STk_makestrg(len, NULL);
+
+  /* copy element in newly allocated string */
+  for (j=0; j < len; j++, l=CDR(l)) {
+    tmp = CAR(l);
+    if (NCHARP(tmp)) Err("string: bad element", tmp);
+    CHARS(z)[j] = CHAR(tmp);
+  }
+  return z;
+}
+
+PRIMITIVE STk_string_length(SCM str)
+{
+  if (NSTRINGP(str)) Err("string-length: not a string", str);
+  return STk_makeinteger(STRSIZE(str));
+}
+
+PRIMITIVE STk_string_ref(SCM str, SCM index)
+{
+  long k;
+
+  if (NSTRINGP(str))    	        Err("string-ref: not a string", str);
+  if ((k=STk_integer_value(index)) < 0) Err("string-ref: bad index", index);
+
+  if (k >= STRSIZE(str)) 
+    Err("string-ref: index out of bounds", index);
+  return STk_makechar(CHARS(str)[k]);
+}
+
+PRIMITIVE STk_string_set(SCM str, SCM index, SCM value)
+{
+  long k;
+
+  if (NSTRINGP(str))		        Err("string-set!: not a string", str); 
+  if ((k=STk_integer_value(index)) < 0) Err("string-set!: bad index", index); 
+  
+  if (k >= STRSIZE(str)) 
+    Err("string-set!: index out of bounds", index);
+    
+  if (NCHARP(value)) Err("string-set!: value is not a char", value);
+    
+  CHARS(str)[k] = CHAR(value);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_streq   (SCM s1,SCM s2){return (stringcomp(s1,s2)==0)? Truth: Ntruth;}
+PRIMITIVE STk_strless (SCM s1,SCM s2){return (stringcomp(s1,s2)<0) ? Truth: Ntruth;}
+PRIMITIVE STk_strgt   (SCM s1,SCM s2){return (stringcomp(s1,s2)>0) ? Truth: Ntruth;}
+PRIMITIVE STk_strlesse(SCM s1,SCM s2){return (stringcomp(s1,s2)<=0)? Truth: Ntruth;}
+PRIMITIVE STk_strgte  (SCM s1,SCM s2){return (stringcomp(s1,s2)>=0)? Truth: Ntruth;}
+
+PRIMITIVE STk_streqi   (SCM s1,SCM s2){return (stringcompi(s1,s2)==0)?Truth:Ntruth;}
+PRIMITIVE STk_strlessi (SCM s1,SCM s2){return (stringcompi(s1,s2)<0) ?Truth:Ntruth;}
+PRIMITIVE STk_strgti   (SCM s1,SCM s2){return (stringcompi(s1,s2)>0) ?Truth:Ntruth;}
+PRIMITIVE STk_strlessei(SCM s1,SCM s2){return (stringcompi(s1,s2)<=0)?Truth:Ntruth;}
+PRIMITIVE STk_strgtei  (SCM s1,SCM s2){return (stringcompi(s1,s2)>=0)?Truth:Ntruth;}
+
+PRIMITIVE STk_substring(SCM string, SCM start, SCM end)
+{
+  char msg[] = "substring: not an integer";
+  int from, to;
+
+  if (NSTRINGP(string)) Err("substring: not a string", string);
+
+  if ((from=STk_integer_value(start))==LONG_MIN) Err(msg ,start);
+  if ((to=STk_integer_value(end)) == LONG_MIN)   Err(msg ,end);
+
+  if (0 <= from && from <= to && to <= STRSIZE(string))
+    return STk_makestrg(to - from, CHARS(string)+from);
+
+  Err("substring: bad bounds", Cons(start, end));
+}
+
+PRIMITIVE STk_string_append(SCM l, int len)
+{
+  int i, total=0;
+  SCM z, tmp = l;
+  char *p;
+  
+  /* Compute total length of resulting string */
+  for (i = 0; i < len; i++) {
+    if (NSTRINGP(CAR(tmp)))
+      Err("string-append: bad string", CAR(tmp));
+    total += STRSIZE(CAR(tmp));
+    tmp = CDR(tmp);
+  }
+
+  /* Allocate result */
+  z = STk_makestrg(total, NULL);
+  p = CHARS(z);
+  
+  /* copy strings */
+  for (i=0; i < len; i++) {
+    memcpy(p, CHARS(CAR(l)), STRSIZE(CAR(l)));
+    p += STRSIZE(CAR(l));
+    l = CDR(l);
+  }
+  return z;
+}
+
+PRIMITIVE STk_string2list(SCM str)
+{
+  int j, len;
+  SCM tmp, z = NIL;
+
+  if (NSTRINGP(str)) Err("string->list: not a string", str);
+  len = STRSIZE(str);
+
+  for (j=0; j<len; j++) {
+    if (j == 0)
+      tmp = z = Cons(STk_makechar(CHARS(str)[j]), NIL);
+    else 
+      tmp = CDR(tmp) = Cons(STk_makechar(CHARS(str)[j]), NIL);
+  }
+  return z;
+}
+
+PRIMITIVE STk_list2string(SCM l)
+{
+  int j=0, len = STk_llength(l);
+  SCM z;
+
+  if (len < 0) Err("list->string: bad list", l);
+  z = STk_makestrg(len, NULL);
+  for ( ; NNULLP(l); l=CDR(l)) {
+    if (NCHARP(CAR(l))) Err("list->string: not a character", CAR(l));
+    CHARS(z)[j++] = CHAR(CAR(l));
+  }
+  return z;
+}
+
+PRIMITIVE STk_string_copy(SCM str)
+{
+  if (NSTRINGP(str)) Err("string-copy: not a string", str);
+  return STk_makestring(CHARS(str));
+}
+
+PRIMITIVE STk_string_fill(SCM str, SCM c)
+{
+  int len, i;
+  char c_char;
+
+  if (NSTRINGP(str)) Err("string-fill: not a string", str);
+  if (NCHARP(c))     Err("string-fill: not a char", c);
+
+  len = STRSIZE(str);
+  c_char = CHAR(c);
+
+  for (i = 0; i < len; i++)
+    CHARS(str)[i] = c_char;
+  return UNDEFINED;
+}
+
+
+/*
+ * 
+ * STk bonus
+ *
+ */
+
+static char *Memmem(char *s1, int l1, char *s2, int l2)
+{
+  if (l2 == 0) return s1;
+
+  for ( ; l1 >= l2 ; s1++, l1--)
+    if (memcmp(s1, s2, l2) == 0) return s1;
+
+  return NULL;
+}
+
+PRIMITIVE STk_string_findp(SCM s1, SCM s2)
+{
+  char msg[] = "string-find?: bad string";
+
+  if (NSTRINGP(s1)) Err(msg,s1);
+  if (NSTRINGP(s2)) Err(msg,s2);
+  
+  return Memmem(CHARS(s2), STRSIZE(s2), CHARS(s1), STRSIZE(s1)) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_string_index(SCM s1, SCM s2)
+{
+  char *p, msg[] = "string-index: bad string";
+
+  if (NSTRINGP(s1)) Err(msg,s1);
+  if (NSTRINGP(s2)) Err(msg,s2);
+
+  p = Memmem(CHARS(s2), STRSIZE(s2), CHARS(s1), STRSIZE(s1));
+  
+  return p? STk_makeinteger(p - CHARS(s2)) : Ntruth;
+}
+
+
+
+PRIMITIVE STk_string_lower(SCM s)
+{
+  SCM z;
+  register char *p, *q;
+
+  if (NSTRINGP(s)) Err("string-lower: not a string", s);
+  z = STk_makestrg(strlen(CHARS(s)), NULL);
+
+  for (p=CHARS(s), q=CHARS(z); *p; p++, q++) *q = tolower(*p);
+  return z;
+}
+
+PRIMITIVE STk_string_upper(SCM s)
+{
+  SCM z;
+  register char *p, *q;
+
+  if (NSTRINGP(s)) Err("string-upper: not a string", s);
+  z = STk_makestrg(strlen(CHARS(s)), NULL);
+
+  for (p=CHARS(s), q=CHARS(z); *p; p++, q++) *q = toupper(*p);
+  return z;
+}
diff --git a/Src/symbol.c b/Src/symbol.c
new file mode 100644
index 0000000..98aeffb
--- /dev/null
+++ b/Src/symbol.c
@@ -0,0 +1,104 @@
+/*
+ *
+ * s y m b o l . c			-- Symbols management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 20-Nov-1993 12:12
+ * Last file update:  3-Jun-1996 21:35
+ */
+
+#include "stk.h"
+
+static Tcl_HashTable obarray;
+
+void STk_initialize_symbol_table(void)
+{
+  Tcl_InitHashTable(&obarray, TCL_STRING_KEYS);
+}
+
+void STk_mark_symbol_table(void)
+{
+  register SCM x;
+  Tcl_HashEntry *ent;
+  Tcl_HashSearch tmp;
+
+  for (ent=Tcl_FirstHashEntry(&obarray, &tmp); ent;  ent=Tcl_NextHashEntry(&tmp)) {
+    x = (SCM) Tcl_GetHashValue(ent); 
+    if (VCELL(x) != UNBOUND || (x->cell_info & CELL_INFO_C_VAR)) STk_gc_mark(x);
+  }
+}
+
+void STk_free_symbol(SCM symbol)
+{
+  Tcl_DeleteHashEntry(Tcl_FindHashEntry(&obarray, PNAME(symbol)));
+}
+
+
+SCM STk_intern(char *name)
+{
+  Tcl_HashEntry *p;
+
+  if (p = Tcl_FindHashEntry(&obarray, name))
+    return Tcl_GetHashValue(p);
+  else {
+    SCM sym;
+    int absent;
+    
+    /* Be careful with GC: Create hash entry after the new cell to avoid 
+     * partially initialized table entry 
+     */
+    NEWCELL(sym, tc_symbol);
+    p 	       = Tcl_CreateHashEntry(&obarray, name, &absent);
+    PNAME(sym) = Tcl_GetHashKey(&obarray, p);
+    VCELL(sym) = UNBOUND;
+    Tcl_SetHashValue(p, (ClientData) sym);
+    return sym;
+  }
+}
+
+
+SCM STk_global_env2list(void)
+{
+  register SCM symbol, res = NIL;
+  Tcl_HashEntry *ent;
+  Tcl_HashSearch tmp;
+
+  for (ent=Tcl_FirstHashEntry(&obarray, &tmp); ent;  ent=Tcl_NextHashEntry(&tmp)) {
+    symbol = (SCM)Tcl_GetHashValue(ent);
+    res    = Cons(Cons(symbol, VCELL(symbol)), res);
+  }
+  return res;
+}
+
+
+PRIMITIVE STk_symbolp(SCM x)
+{
+  return SYMBOLP(x) ? Truth : Ntruth;
+}
+
+PRIMITIVE STk_symbol2string(SCM symbol)
+{  
+  if (NSYMBOLP(symbol)) Err("symbol->string: bad symbol", symbol);
+  return STk_makestring(PNAME(symbol));
+}
+   
+PRIMITIVE STk_string2symbol(SCM string)
+{
+  if (NSTRINGP(string)) Err("string->symbol: bad string", string);
+  return Intern(CHARS(string));
+}
diff --git a/Src/syntax.c b/Src/syntax.c
new file mode 100644
index 0000000..608314d
--- /dev/null
+++ b/Src/syntax.c
@@ -0,0 +1,407 @@
+/*
+ *
+ * s y n t a x . c			-- Syntaxic forms implementation
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 25-Oct-1993 23:39
+ * Last file update: 19-Sep-1995 11:49
+ */
+
+/* Notes:
+ * ------ 
+ * C functions syntax_xxx implement the scheme syntax xxx. A syntax function 
+ * returns its work in its first argument (SCM *pform). The function result
+ * is a boolean. If false, it indicates to eval that this result is 
+ * a final one (eval can return it unmodified). Otherwise, the eval function 
+ * take the result stored in *pform and evaluates it again (in the same eval 
+ * frame). This mechanaism permits to treat tail recursive calls as jump in
+ * the eval function.
+ *
+ * Syntax function which returns EVALCAR(zzzz) are not tail recursive in debug 
+ * mode (in normal mode only the first call is non tail recursive, since this 
+ * first call will replace the original code by an equivalent code which is 
+ * clean on tail recursive calls.
+ *
+ */
+
+#include "stk.h"
+
+
+#ifdef COMPACT_SMALL_CST
+#   define makecell(type) ((SCM) MAKE_SMALL_CST(0, type))
+#else
+static SCM makecell(int type)
+{
+  register SCM z;
+  NEWCELL(z, type);
+  return z;
+}
+#endif
+
+
+static SCM define2lambda(SCM l, int len)
+{
+  /* transform (define (f p) b) in (define f (lambda (p) b)) */
+  if (CONSP(l) && CONSP(CAR(l))){
+    if (len < 2) goto Error;
+    return Cons(CAR(CAR(l)), Cons(Cons(Sym_lambda,
+				       Cons(CDR(CAR(l)), CDR(l))),
+				  NIL));
+  }
+  else 
+    if (len == 2) return l;
+Error:
+  Err("define: bad parameter list", l);
+}
+
+PRIMITIVE STk_syntax_quote(SCM *pform, SCM env, int len)
+{
+  SCM args = CDR(*pform);
+
+  if (len != 1) Err("quote: Bad syntax", *pform);
+  if (ModifyCode()) CAR(*pform) = makecell(tc_quote);
+  SYNTAX_RETURN(CAR(args), Ntruth);
+}
+
+PRIMITIVE STk_syntax_lambda(SCM *pform, SCM env, int len)
+{
+  register SCM z, args=CDR(*pform);
+
+  if (len < 2) Err("lambda: bad syntax", *pform);
+
+  if(ModifyCode()) CAR(*pform) = makecell(tc_lambda);
+
+  NEWCELL(z, tc_closure);
+  z->storage_as.closure.env  = env;
+  z->storage_as.closure.code = args;
+  SYNTAX_RETURN(z, Ntruth);
+}
+
+
+PRIMITIVE STk_syntax_if(SCM *pform, SCM env, int len)
+{
+  SCM args = CDR(*pform);
+  
+  switch (len) {
+    case 2:  args = LIST3(CAR(args), CAR(CDR(args)), UNDEFINED);
+    case 3:  break;
+    default: Err("if: bad syntax", *pform);
+  }
+
+  if (ModifyCode()) {
+    CAR(*pform) = makecell(tc_if);
+    CDR(*pform) = args; /* will always contain a else part */
+  }
+
+  SYNTAX_RETURN(NEQ(EVALCAR(args), Ntruth) ? CAR(CDR(args)):CAR(CDR(CDR(args))), 
+		Truth);
+}
+
+PRIMITIVE STk_syntax_setq(SCM *pform, SCM env, int len)
+{
+  SCM var, *tmp, args = CDR(*pform);
+
+  if (len != 2)  	       Err("set!: bad assignement", args);
+  if (NSYMBOLP(var=CAR(args))) Err("set!: first argument is not a symbol", var);
+
+  tmp = STk_varlookup(var, env, 0);
+  if (*tmp == UNBOUND) {
+    /* C variables are always seen as unbound variables. This tends to 
+     * make them slower than standard variables but, in counterpart, this
+     * doesn't slow down accesses to Scheme variables 
+     */
+    if (var->cell_info & CELL_INFO_C_VAR) {
+      /* This is not an unbound variable but rather a C variable */
+      STk_apply_setter_C_variable(PNAME(var), EVALCAR(CDR(args)));
+      goto Out;
+    }
+    else
+      Err("set!: variable not defined", var);
+  }
+  if (ModifyCode()) CAR(*pform) = makecell(tc_setq);
+  *tmp = EVALCAR(CDR(args));
+
+Out:
+  if (TRACED_VARP(var)) STk_change_value(var, env);
+
+  SYNTAX_RETURN(UNDEFINED, Ntruth);
+}
+
+PRIMITIVE STk_syntax_cond(SCM *pform, SCM env, int len) /* len unused here */
+{
+  SCM l, tmp;
+  
+  for (l=CDR(*pform); CONSP(l); l=CDR(l)) {
+    if (NCONSP(CAR(l))) Err("cond: malformed clause", CAR(l));
+    if (EQ(CAR(CAR(l)), Sym_else) && NNULLP(CDR(l)))
+      Err("cond: else clause must be the last", *pform);
+  }
+  if (NNULLP(l)) Err("cond: malformed clauses list", CDR(*pform));
+
+  tmp = Cons(makecell(tc_cond), CDR(*pform));
+  if (ModifyCode()) CAR(*pform) = CAR(tmp);
+
+  SYNTAX_RETURN(tmp, Truth);
+}
+
+PRIMITIVE STk_syntax_and(SCM *pform, SCM env, int len)
+{
+  SCM l   = CDR(*pform);
+
+  if (ModifyCode()) CAR(*pform) = makecell(tc_and);
+
+  if (len == 0) SYNTAX_RETURN(Truth, Ntruth);
+
+  for (--len; len; len--, l=CDR(l)) {
+    if (EVALCAR(l) == Ntruth) SYNTAX_RETURN(Ntruth, Ntruth);
+  }
+  SYNTAX_RETURN(CAR(l), Truth);
+}
+
+PRIMITIVE STk_syntax_or(SCM *pform, SCM env, int len)
+{
+  SCM l   = CDR(*pform);
+  SCM val;
+
+  if (ModifyCode()) CAR(*pform) = makecell(tc_or);
+
+  if (len == 0) SYNTAX_RETURN(Ntruth, Ntruth);
+
+  for (--len; len; len--, l=CDR(l)) {
+    if ((val=EVALCAR(l)) != Ntruth) SYNTAX_RETURN(val, Ntruth);
+  }
+  SYNTAX_RETURN(CAR(l), Truth);
+}
+
+static SCM syntax_let_family(SCM *pform, SCM env, char *who, int type, int len)
+{
+  register SCM p, tmp, fl=NIL, al=NIL;
+  char buffer[100];
+  int named_let = 0;
+
+  if (len < 2) goto Error;
+
+  p = CAR(CDR(*pform));
+  if (SYMBOLP(p) && type == tc_let) {
+    /* It's a named let. Re-initialize to a correct value */ 
+    if (len < 3) goto Error;
+    named_let = 1;
+    p = CAR(CDR(CDR(*pform)));
+  }
+
+  for(  ; NNULLP(p); p=CDR(p)) {
+    if (STk_llength(tmp=CAR(p)) != 2 || NSYMBOLP(CAR(tmp))) {
+      sprintf(buffer, "%s: badly formed binding", who);
+      Err(buffer, CONSP(p)? tmp: p);
+    }
+    /* Verify that this binding doesn't already exist in fl 
+     * except for let* which aloows it (at least the formal semantics 
+     * given in R4RS). Problem shown by Brent Knight <knight@CS.Cornell.EDU>
+     */
+    if (type!=tc_letstar && STk_memv(CAR(tmp),fl)!=Ntruth) {
+      sprintf(buffer, "%s: duplicate binding", who);
+      Err(buffer, CAR(CDR(*pform)));
+    }
+    fl = Cons(CAR(tmp),fl); 
+    al = Cons(CAR(CDR(tmp)),al);
+  }
+
+  tmp = named_let ?
+    	   /* named let */
+    	   LIST4(makecell(tc_letrec), 
+		 LIST1(CAR(CDR(*pform))),
+		 LIST1(Cons(Sym_lambda, 
+			    Cons(Reverse(fl), CDR(CDR(CDR(*pform)))))),
+		 Cons(CAR(CDR(*pform)), Reverse(al))) :
+	   /* normal case */
+	   Cons(makecell(type), 
+		Cons(Reverse(fl), 
+		     Cons(Reverse(al), 
+			  CDR(CDR(*pform)))));
+
+  if (ModifyCode()) {
+    CAR(*pform) = CAR(tmp); 
+    CDR(*pform) = CDR(tmp); 
+  }
+  SYNTAX_RETURN(tmp, Truth);
+
+Error:
+  sprintf(buffer, "%s: incorrect number of subforms", who);
+  Err(buffer, *pform);
+}
+
+
+PRIMITIVE STk_syntax_let(SCM *pform, SCM env, int len)
+{
+  return syntax_let_family(pform, env, "let", tc_let, len);
+}
+
+PRIMITIVE STk_syntax_letstar(SCM *pform, SCM env, int len)
+{
+  return syntax_let_family(pform, env, "let*", tc_letstar, len);
+}
+
+PRIMITIVE STk_syntax_letrec(SCM *pform, SCM env, int len)
+{
+  return syntax_let_family(pform, env, "letrec", tc_letrec, len);
+}
+
+PRIMITIVE STk_syntax_begin(SCM *pform, SCM env, int len)
+{
+  register SCM l = CDR(*pform);
+
+  if (len == 0) Err("begin: no subform in sequence", l);
+  for ( ; NNULLP(CDR(l));  l = CDR(l))
+    EVALCAR(l);
+  if (ModifyCode()) CAR(*pform) = makecell(tc_begin);
+  SYNTAX_RETURN(CAR(l), Truth);;
+}
+
+PRIMITIVE STk_syntax_delay(SCM *pform, SCM env, int len)
+{
+  SCM z, tmp;
+
+  if (len != 1) Err("delay: Bad expression", *pform);
+
+  /* Build (lambda () expr) in tmp */
+  NEWCELL(tmp, tc_closure);
+  tmp->storage_as.closure.env = env;
+  tmp->storage_as.closure.code = Cons(NIL, CDR(*pform));
+
+  /* save this closure in the promise */
+  NEWCELL(z, tc_promise);
+  z->storage_as.promise.expr = tmp;
+  z->storage_as.promise.resultknown = 0;
+  SYNTAX_RETURN(z, Ntruth);
+}
+
+static SCM backquotify(SCM x, SCM env, int level)
+{
+  if (VECTORP(x)) 
+    return STk_list2vector(backquotify(STk_vector2list(x), env, level));
+
+  if (NCONSP(x)) return x;
+
+  if (EQ(CAR(x), Sym_quasiquote))
+    return LIST2(Sym_quasiquote,
+		 backquotify(CAR(CDR(x)), env, level+1));
+
+  if (EQ(CAR(x), Sym_unquote))
+    return (level == 1) ? EVALCAR(CDR(x))
+      			: LIST2(Sym_unquote,
+				backquotify(CAR(CDR(x)), env, level-1));
+
+  if (CONSP(CAR(x)) && EQ(CAR(CAR(x)), Sym_unq_splicing))
+    return NULLP(CDR(x)) ? EVALCAR(CDR(CAR(x)))
+	    		 : STk_append(LIST2(EVALCAR(CDR(CAR(x))),
+					    backquotify(CDR(x), env, level)),
+				      2);
+  /* Otherwise */
+  return Cons(backquotify(CAR(x), env, level), backquotify(CDR(x), env, level));
+}
+
+
+PRIMITIVE STk_syntax_quasiquote(SCM *pform, SCM env, int len)
+{
+  if (len == 0) Err("quasiquote: no form", NIL);
+  SYNTAX_RETURN(backquotify(CAR(CDR(*pform)), env, 1), Ntruth);
+}
+
+PRIMITIVE STk_syntax_define(SCM *pform, SCM env, int len)
+{
+  SCM *tmp, var, args;
+
+  args = define2lambda(CDR(*pform), len);
+  var  = CAR(args); if (NSYMBOLP(var)) Err("define: bad variable name", var);
+
+  if (NULLP(env)) {
+    /* Global var */
+    if (VCELL(var) == UNBOUND && (var->cell_info&CELL_INFO_C_VAR)) {
+      /* This is not an unbound variable but rather a C variable */
+      STk_apply_setter_C_variable(PNAME(var), EVALCAR(CDR(args)));
+    }
+    else {
+      tmp  = STk_varlookup(var, env, 0);
+      *tmp = EVALCAR(CDR(args));
+    }
+  }
+  else {
+    /* Local var */
+    tmp = STk_value_in_env(var, env);
+    if (tmp != &UNBOUND) {
+      /* This symbol was already defined at current level. Just do an assignment */
+      *tmp = EVALCAR(CDR(args));
+    }
+    else {
+      /* Extend current environment for that definition 
+      /* We should add new definition at the end of current environment (since some 
+      /* code as possbly be re-written usin tc_localvar). This avoid re-numbering 
+      /* acual code is FALSE */
+      SCM  tmp = CAR(env);
+    
+      tmp = Cons(Cons(var, 		  CAR(tmp)),
+		 Cons(EVALCAR(CDR(args)), CDR(tmp)));
+      CAR(CAR(env)) = CAR(tmp);
+      CDR(CAR(env)) = CDR(tmp);
+    }
+  }
+  if (TRACED_VARP(var)) STk_change_value(var, env);
+
+  SYNTAX_RETURN(UNDEFINED, Ntruth);
+}
+
+/*
+ *
+ * STk special syntaxic forms
+ *
+ */
+
+PRIMITIVE STk_syntax_extend_env(SCM *pform, SCM env, int len)
+{
+  if (len < 2) Err("extend-current-env: Bad syntax", *pform);
+  SYNTAX_RETURN(Cons(makecell(tc_extend_env), STk_copy_tree(CDR(*pform))),
+		Truth);
+}
+
+PRIMITIVE STk_while(SCM l, SCM env, int len)
+{
+  register SCM test, body;
+
+  if (len < 2) Err("while: bad argument list", NIL);
+  
+  for (test = EVALCAR(l); test != Ntruth; test = EVAL(CAR(l))) {
+    /* Evaluate each expression of the body */
+    for (body = CDR(l); !NULLP(body); body = CDR(body))
+      EVALCAR(body);
+  }
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_until(SCM l, SCM env, int len)
+{
+  register SCM test, body;
+
+  if (len < 2) Err("until: bad argument list", NIL);
+  
+  for (test = EVALCAR(l); test == Ntruth; test = EVAL(CAR(l))) {
+    /* Evaluate each expression of the body */
+    for (body = CDR(l); !NULLP(body); body = CDR(body))
+      EVALCAR(body);
+  }
+  return UNDEFINED;
+}
diff --git a/Src/tcl-lib.c b/Src/tcl-lib.c
new file mode 100644
index 0000000..b453921
--- /dev/null
+++ b/Src/tcl-lib.c
@@ -0,0 +1,800 @@
+/*
+ *
+ * t c l - l i b . c 		- A library remplacement for simulating 
+ *				  a Tcl interpreter in Scheme
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 19-Feb-1993 22:15
+ * Last file update: 29-Aug-1996 12:49
+ *
+ */
+
+
+#include "stk.h"
+
+#ifdef USE_TK
+#  include "tk-glue.h"
+#else
+#  include "tclInt.h"
+#endif
+
+
+#ifdef USE_TK
+#define BUFF_SIZE 100
+/******************************************************************************
+ *
+ *				Eval functions
+ *
+ ******************************************************************************/
+
+int Tcl_GlobalEval(interp, s)
+     Tcl_Interp *interp;
+     char *s;
+{
+  char buffer[BUFF_SIZE+3], *ptr = buffer;
+  SCM result;
+
+  /* 
+   * If the callback is nor surrounded by parenthesis, add them. We
+   * don't have parenthesis when the callback is a closure. In this
+   * case, the callback is simply #p12345. Note that this allow Tk to
+   * add some parameters to the callback when needed (on bindings, or
+   * scrollbars for instance). To recognize such cases, we look at
+   * first character: if it is not an open parenthesis, we add a pair
+   * of () around the callback string
+   *     
+   */
+  if (*s == '\0') return TCL_OK;
+  if (*s != '(') {
+    /* Build the command to evaluate by adding a pair of parenthesis */
+    int len = strlen(s);
+    
+    if (len > BUFF_SIZE) 
+      ptr = (char *) must_malloc(len+3);
+    sprintf(ptr, "(%s)", s);
+    s = ptr;
+  }
+  result = STk_internal_eval_string(s, ERR_TCL_BACKGROUND, NIL);
+  Tcl_ResetResult(interp);
+    
+  if (ptr != buffer) free(ptr);
+
+  if (result != EVAL_ERROR) {
+    SCM dumb;
+
+    Tcl_SetResult(interp, 
+		  STk_stringify(STk_convert_for_Tk(result, &dumb), 0), 
+		  TCL_DYNAMIC);
+    /* 
+     * Store also the "true" result in STk_last_Tk_result
+     * Warning: This pointer inot GC protected. We have to use it very soon 
+     * This is a kludge (used in text window)
+     */
+     STk_last_Tk_result = result;
+       
+     return (result == Sym_break) ? TCL_BREAK : TCL_OK;
+  }
+  
+  return TCL_ERROR;
+}
+
+int Tcl_Eval(interp, s) 	/* very simplist. */
+     Tcl_Interp *interp;	/* But do we need something more clever? */
+     char *s;
+{
+  return Tcl_GlobalEval(interp, s);
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_VarEval --
+ *
+ *	Given a variable number of string arguments, concatenate them
+ *	all together and execute the result as a Tcl command.
+ *
+ * Results:
+ *	A standard Tcl return result.  An error message or other
+ *	result may be left in interp->result.
+ *
+ * Side effects:
+ *	Depends on what was done by the command.
+ *
+ *----------------------------------------------------------------------
+ */
+	/* VARARGS2 */ /* ARGSUSED */
+int
+Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,arg1)
+{
+    va_list argList;
+    Tcl_DString buf;
+    char *string;
+    Tcl_Interp *interp;
+    int result;
+
+    /*
+     * Copy the strings one after the other into a single larger
+     * string.  Use stack-allocated space for small commands, but if
+     * the command gets too large than call ckalloc to create the
+     * space.
+     */
+
+    interp = TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+    Tcl_DStringInit(&buf);
+    while (1) {
+	string = va_arg(argList, char *);
+	if (string == NULL) {
+	    break;
+	}
+	Tcl_DStringAppend(&buf, string, -1);
+    }
+    va_end(argList);
+
+    result = Tcl_Eval(interp, Tcl_DStringValue(&buf));
+    Tcl_DStringFree(&buf);
+    return result;
+}
+
+/******************************************************************************
+ *
+ *	      Variable accesses (GetVar, GetVar2, SetVar, SetVar2)
+ *
+ ******************************************************************************/
+
+char *Tcl_GetVar(interp, var, flags)
+     Tcl_Interp *interp;	/* not used */
+     char *var;
+     int flags;
+{
+  SCM dumb, V = VCELL(Intern(var));
+  return (V == UNBOUND) ? NULL : STk_convert_for_Tk(V, &dumb);
+}
+
+char *Tcl_GetVar2(interp, name1, name2, flags)
+     Tcl_Interp *interp;	/* not used */
+     char *name1, *name2;
+     int flags;
+{
+  if (name2 && *name2) {
+    char *res, *s = must_malloc(strlen(name1) + strlen(name2) + 3);
+
+    sprintf(s, "%s{%s}", name1, name2);
+    res = Tcl_GetVar(interp, s, flags);
+    free(s);
+    return res;
+  }
+  return Tcl_GetVar(interp, name1, flags);
+}
+
+char *Tcl_SetVar(interp, var, val, flags)
+     Tcl_Interp *interp;
+     char *var, *val;
+     int flags;
+{
+  register SCM tmp, value;
+
+  tmp = Intern(var);
+  if (flags & STk_STRINGIFY) {
+    /* Val is already a string, since it comes from Tk */
+    value = STk_makestring(val);
+  }
+  else {
+    if (*val) {
+      SCM port;
+      int eof;
+      
+      port  = STk_internal_open_input_string(val);
+      value = STk_internal_read_from_string(port, &eof, TRUE);
+      if (value == EVAL_ERROR) return NULL;
+    }
+    else 
+      value =  STk_makestring("");
+  }
+
+  VCELL(tmp) = value;
+  if (TRACED_VARP(tmp)) STk_change_value(tmp, NIL);
+
+  return val;
+}
+
+char *Tcl_SetVar2(interp, name1, name2, val, flags)
+     Tcl_Interp *interp;
+     char *name1, *name2, *val;
+     int flags;
+{ 
+  if (name2 && *name2) {
+    char *res, *s = must_malloc(strlen(name1) + strlen(name2) + 3);
+
+    sprintf(s, "%s{%s}", name1, name2);
+    res = Tcl_SetVar(interp, s, val, flags);
+    free(s);
+    return res;
+  }
+  return Tcl_SetVar(interp, name1, val, flags);
+}
+
+/******************************************************************************
+ *
+ *			    Tcl command management
+ *
+ ******************************************************************************/
+
+int Tcl_internal_DeleteCommand(interp, cmdName)
+  Tcl_Interp *interp;
+  char *cmdName;
+{
+  struct Tk_command *W;
+  Interp *iPtr = (Interp *) interp;
+  Tcl_HashEntry *hPtr;
+  
+  /* the internal DeleteCommand do all the job (except setting cmdName to
+   * UNBOUND, because this implies to use intern which can allocate a cell)
+   * Consequently, GC calls this function, whereas Tk call the true 
+   * DeleteCommand
+   */
+  hPtr = Tcl_FindHashEntry(&iPtr->commandTable, cmdName);
+  if (hPtr == NULL) return -1;
+
+  W = (struct Tk_command *) Tcl_GetHashValue(hPtr);
+  if (W->deleted) return -1;
+
+  /* Execute the delete handler */
+  if (W->delproc != NULL) (*W->delproc)(W->deldata);
+
+  /* Note: W will be freed by the GC */
+  Tcl_DeleteHashEntry(hPtr);
+
+  /* Delete the command from the callbacks hash table */
+  STk_delete_callback(cmdName);
+
+  /* Remember that the command has been deleted */
+  W->deleted = 1;
+
+  return 0;
+}
+  
+
+int Tcl_DeleteCommand(interp, cmdName)
+     Tcl_Interp *interp;
+     char *cmdName;
+{
+  int result;
+
+  if (result = Tcl_internal_DeleteCommand(interp, cmdName))
+    return result;
+  
+  /* Undefine "cmdName" by doing a (set! cmdname #<unbound>) */
+  VCELL(Intern(cmdName)) = UNBOUND;
+
+  return 0;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_CreateCommand --
+ *
+ *	Define a new command in a command table.
+ *
+ * Results:
+ *	The return value is a token for the command, which can
+ *	be used in future calls to Tcl_NameOfCommand.
+ *
+ * Side effects:
+ *	If a command named cmdName already exists for interp, it is
+ *	deleted.
+ *----------------------------------------------------------------------
+ */
+Tcl_Command
+Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
+    Tcl_Interp *interp;		/* Token for command interpreter (returned
+				 * by a previous call to Tcl_CreateInterp). */
+    char *cmdName;		/* Name of command. */
+    Tcl_CmdProc *proc;		/* Command procedure to associate with
+				 * cmdName. */
+    ClientData clientData;	/* Arbitrary one-word value to pass to proc. */
+    Tcl_CmdDeleteProc *deleteProc;
+				/* If not NULL, gives a procedure to call when
+				 * this command is deleted. */
+{
+  struct Tk_command * W;
+  Interp *iPtr = (Interp *) interp;
+  register struct Tk_command *cmdPtr;
+  Tcl_HashEntry *hPtr;
+  int new;
+  SCM z;
+
+  /* 
+   * There are two things to do here.  
+   * 	- We must create a new variable and associate the newly
+   * 	  created Tk object to it. This is the Scheme part.
+   *    - We must  store the cmd in a hashtable contained in the interp data
+   *      structure. This is necessary to delete all the command associated
+   *      to the interpreter. This is important at least for the "send"
+   *      command which un-register the interpreter from the X server.
+   * 
+   */
+
+  /* Initialize the Tk_command structure */
+  W = (struct Tk_command *)must_malloc(sizeof(struct Tk_command)+strlen(cmdName));
+  W->ptr	= clientData;
+  W->fct 	= proc;
+  W->delproc    = deleteProc;
+  W->deldata	= clientData;
+  W->deleted	= 0;
+  strcpy(W->Id, cmdName);
+
+  /* Register the command in the Tcl command hash table */
+  hPtr = Tcl_CreateHashEntry(&iPtr->commandTable, cmdName, &new);
+  if (!new) {
+    /* Command already exists: delete the old one */
+    Tcl_DeleteCommand(interp, cmdName); /* not efficient but safer */
+  }
+  Tcl_SetHashValue(hPtr, W);
+
+  /* Define a Tk-command cell for this new command */
+  NEWCELL(z, tc_tkcommand);
+  z->storage_as.tk.data   = W;
+  z->storage_as.tk.l_data = Ntruth;
+    
+  /* Define a variable whose name is the command name */
+  VCELL(Intern(cmdName)) = z;
+
+  return (Tcl_Command) W;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetCommandName --
+ *
+ *	Given a token returned by Tcl_CreateCommand, this procedure
+ *	returns the current name of the command (which may have changed
+ *	due to renaming).
+ *
+ * Results:
+ *	The return value is the name of the given command.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_GetCommandName(interp, command)
+    Tcl_Interp *interp;		/* Interpreter containing the command. */
+    Tcl_Command command;	/* Token for the command, returned by a
+				 * previous call to Tcl_CreateCommand.
+				 * The command must not have been deleted. */
+{
+  return ((struct Tk_command *) command)->Id;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetCommandInfo --
+ *
+ *	Returns various information about a Tcl command.
+ *
+ * Results:
+ *	If cmdName exists in interp, then *infoPtr is modified to
+ *	hold information about cmdName and 1 is returned.  If the
+ *	command doesn't exist then 0 is returned and *infoPtr isn't
+ *	modified.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetCommandInfo(interp, cmdName, infoPtr)
+    Tcl_Interp *interp;			/* Interpreter in which to look
+					 * for command. */
+    char *cmdName;			/* Name of desired command. */
+    Tcl_CmdInfo *infoPtr;		/* Where to store information about
+					 * command. */
+{
+    SCM v = Intern(cmdName);
+    struct Tk_command *p;
+    
+    if (NTKCOMMP(VCELL(v))) return 0;
+
+    p =  VCELL(v)->storage_as.tk.data;
+
+    infoPtr->proc       = p->fct;
+    infoPtr->clientData = p->ptr;
+    infoPtr->deleteProc = p->delproc;;
+    infoPtr->deleteData = NULL;
+    return 1;
+}
+
+
+/******************************************************************************
+ *
+ *			  Tcl interpreter management
+ *
+ ******************************************************************************/
+
+Tcl_Interp *Tcl_CreateInterp()
+{
+  register Interp *iPtr = (Interp *) ckalloc(sizeof(Interp));
+  
+  iPtr->result		 = iPtr->resultSpace;
+  iPtr->freeProc	 = 0;
+  iPtr->errorLine	 = 0;
+  iPtr->resultSpace[0]   = 0;
+  
+  iPtr->appendResult	 = NULL;
+  iPtr->appendAvl	 = 0;
+  iPtr->appendUsed	 = 0;
+
+  strcpy(iPtr->pdFormat, "%g");
+
+  iPtr->assocData 	 = (Tcl_HashTable *) NULL;
+
+  /* See Tcl_CreateCommand for this table utility  */
+  Tcl_InitHashTable(&iPtr->commandTable, TCL_STRING_KEYS);
+
+  return (Tcl_Interp *) iPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetAssocData --
+ *
+ *	Creates a named association between user-specified data, a delete
+ *	function and this interpreter. If the association already exists
+ *	the data is overwritten with the new data. The delete function will
+ *	be invoked when the interpreter is deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets the associated data, creates the association if needed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_SetAssocData(interp, name, proc, clientData)
+    Tcl_Interp *interp;		/* Interpreter to associate with. */
+    char *name;			/* Name for association. */
+    Tcl_InterpDeleteProc *proc;	/* Proc to call when interpreter is
+                                 * about to be deleted. */
+    ClientData clientData;	/* One-word value to pass to proc. */
+{
+    Interp *iPtr = (Interp *) interp;
+    AssocData *dPtr;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    if (iPtr->assocData == (Tcl_HashTable *) NULL) {
+	if (iPtr->flags & DELETED) {
+	    /*
+	     * Don't create new entries after interpreter deletion
+	     * has started;  it isn't even safe to muck with the
+	     * interpreter right now
+	     */
+
+	    return;
+	}
+        iPtr->assocData = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
+        Tcl_InitHashTable(iPtr->assocData, TCL_STRING_KEYS);
+    }
+    hPtr = Tcl_CreateHashEntry(iPtr->assocData, name, &new);
+    if (new == 0) {
+        dPtr = (AssocData *) Tcl_GetHashValue(hPtr);
+    } else {
+        dPtr = (AssocData *) ckalloc(sizeof(AssocData));
+    }
+    dPtr->proc = proc;
+    dPtr->clientData = clientData;
+
+    Tcl_SetHashValue(hPtr, dPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteAssocData --
+ *
+ *	Deletes a named association of user-specified data with
+ *	the specified interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Deletes the association.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteAssocData(interp, name)
+    Tcl_Interp *interp;			/* Interpreter to associate with. */
+    char *name;				/* Name of association. */
+{
+    Interp *iPtr = (Interp *) interp;
+    AssocData *dPtr;
+    Tcl_HashEntry *hPtr;
+
+    if (iPtr->assocData == (Tcl_HashTable *) NULL) {
+        return;
+    }
+    hPtr = Tcl_FindHashEntry(iPtr->assocData, name);
+    if (hPtr == (Tcl_HashEntry *) NULL) {
+        return;
+    }
+    dPtr = (AssocData *) Tcl_GetHashValue(hPtr);
+    ckfree((char *) dPtr);
+    Tcl_DeleteHashEntry(hPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetAssocData --
+ *
+ *	Returns the client data associated with this name in the
+ *	specified interpreter.
+ *
+ * Results:
+ *	The client data in the AssocData record denoted by the named
+ *	association, or NULL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+ClientData
+Tcl_GetAssocData(interp, name, procPtr)
+    Tcl_Interp *interp;			/* Interpreter associated with. */
+    char *name;				/* Name of association. */
+    Tcl_InterpDeleteProc **procPtr;	/* Pointer to place to store address
+					 * of current deletion callback. */
+{
+    Interp *iPtr = (Interp *) interp;
+    AssocData *dPtr;
+    Tcl_HashEntry *hPtr;
+
+    if (iPtr->assocData == (Tcl_HashTable *) NULL) {
+        return (ClientData) NULL;
+    }
+    hPtr = Tcl_FindHashEntry(iPtr->assocData, name);
+    if (hPtr == (Tcl_HashEntry *) NULL) {
+        return (ClientData) NULL;
+    }
+    dPtr = (AssocData *) Tcl_GetHashValue(hPtr);
+    if (procPtr != (Tcl_InterpDeleteProc **) NULL) {
+        *procPtr = dPtr->proc;
+    }
+    return dPtr->clientData;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_InterpDeleted --
+ *
+ *	Returns nonzero if the interpreter has been deleted with a call
+ *	to Tcl_DeleteInterp.
+ *
+ * Results:
+ *	Nonzero if the interpreter is deleted, zero otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_InterpDeleted(interp)
+    Tcl_Interp *interp;
+{
+    return (((Interp *) interp)->flags & DELETED) ? 1 : 0;
+}
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteInterp --
+ *
+ *	Delete an interpreter and free up all of the resources associated
+ *	with it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The interpreter is destroyed.  The caller should never again
+ *	use the interp token.
+ *
+ *----------------------------------------------------------------------
+ */
+void Tcl_DeleteInterp(interp)
+    Tcl_Interp *interp;
+{
+  Interp *iPtr = (Interp *) interp;
+  Tcl_HashEntry *hPtr;
+  Tcl_HashSearch search;
+  struct Tk_command *W;
+
+  if (!iPtr || (iPtr->flags & DELETED)) return;
+
+  /* Mark the interpreter as deleted. No further evals will be allowed. */
+  iPtr->flags |= DELETED;
+  
+  /* Delete result space */
+  if (iPtr->appendResult != NULL) {
+    ckfree(iPtr->appendResult);
+  }
+  
+  /* delete hash table of Tk commands (see Tcl_CreateCommand) */
+  for (hPtr = Tcl_FirstHashEntry(&iPtr->commandTable, &search);
+       hPtr != NULL; 
+       hPtr = Tcl_NextHashEntry(&search)) {
+    W = (struct Tk_command *) Tcl_GetHashValue(hPtr);
+    Tcl_DeleteCommand(interp, W->Id);
+  }
+  Tcl_DeleteHashTable(&iPtr->commandTable);
+
+  ckfree((char *) iPtr);
+}
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetOpenFile --
+ *
+ *	Given a name of a channel registered in the given interpreter,
+ *	returns a FILE * for it.
+ *
+ * Results:
+ *	A standard Tcl result. If the channel is registered in the given
+ *	interpreter and it is managed by the "file" channel driver, and
+ *	it is open for the requested mode, then the output parameter
+ *	filePtr is set to a FILE * for the underlying file. On error, the
+ *	filePtr is not set, TCL_ERROR is returned and an error message is
+ *	left in interp->result.
+ *
+ * Side effects:
+ *	May invoke fdopen to create the FILE * for the requested file.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetOpenFile(interp, string, forWriting, checkUsage, filePtr)
+    Tcl_Interp *interp;		/* Interpreter in which to find file. */
+    char *string;		/* String that identifies file. */
+    int forWriting;		/* 1 means the file is going to be used
+				 * for writing, 0 means for reading. */
+    int checkUsage;		/* 1 means verify that the file was opened
+				 * in a mode that allows the access specified
+				 * by "forWriting". Ignored, we always
+                                 * check that the channel is open for the
+                                 * requested mode. */
+    ClientData *filePtr;	/* Store pointer to FILE structure here. */
+{
+  SCM port;
+
+  if ((string[0] == '#') && (string[1] == 'f') && (string[2] == 'i')
+      && (string[3] == 'l') && string[4] == 'e') {
+    char *end;
+    
+    port = (SCM) strtoul(string+5, &end, 16);
+    if ((end != string+5) && (*end == 0)) {
+      /* Verify the given address is a port */
+      if (STk_valid_address(port) && (IPORTP(port) || OPORTP(port))) {
+	/* Verify the port usage  */
+	if (checkUsage && (PORT_FLAGS(port) & PORT_CLOSED)) {
+	  Tcl_AppendResult(interp, "\"", string,
+			   "\" is closed", (char *) NULL);
+	  return TCL_ERROR;
+	}
+	if (forWriting) {
+	  if (checkUsage && !OPORTP(port)) {
+	    Tcl_AppendResult(interp, "\"", string,
+		    "\" wasn't opened for writing", (char *) NULL);
+	    return TCL_ERROR;
+	  }
+	}
+	else {
+	   if (!IPORTP(port)) {
+	     Tcl_AppendResult(interp, "\"", string,
+			      "\" wasn't opened for reading", (char *) NULL);
+	     return TCL_ERROR;
+	   }
+	}
+	
+	/* File is correct; return it in filePtr */
+	*filePtr = PORT_FILE(port);
+	return TCL_OK;
+      }
+    }
+  }
+  Tcl_AppendResult(interp, "Bad file specification \"", string,
+		    "\"", (char *) NULL);
+  return TCL_ERROR; 
+}
+#endif
+
+/******************************************************************************
+ *
+ * Tcl channels simulation.
+ *
+ *	Current version is very minimal. It should probably be extended to be 
+ *	more Tcl compatible, since Tcl model is very neat.
+ *
+ ******************************************************************************/
+
+Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, 
+				char *modeString, int permissions)
+{
+  return (Tcl_Channel) fopen(fileName, modeString);
+}
+
+int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
+{
+  return fclose((FILE *) chan);
+}
+
+int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead)
+{
+  return read(fileno((FILE *)chan), bufPtr, toRead);
+}
+
+int Tcl_Write(Tcl_Channel chan, char *s, int slen)
+{
+  return write(fileno((FILE *)chan), s, slen);
+}
+
+
+int Tcl_Seek(Tcl_Channel chan, int offset, int mode)
+{
+  return fseek((FILE*) chan, (long) offset, mode);
+}
+
+int Tcl_Flush(Tcl_Channel chan)
+{
+  return fflush((FILE *) chan);
+}
+
+Tcl_Channel Tcl_GetStdChannel(int type) /*  TCL_STDIN, TCL_STDOUT, TCL_STDERR. */
+{
+  switch (type) {
+    case TCL_STDIN:  return (Tcl_Channel) STk_stdin;
+    case TCL_STDOUT: return (Tcl_Channel) STk_stdout;
+    case TCL_STDERR: return (Tcl_Channel) STk_stderr;
+  }
+  return NULL;
+}
diff --git a/Src/tcl-util.c b/Src/tcl-util.c
new file mode 100644
index 0000000..f3c37ca
--- /dev/null
+++ b/Src/tcl-util.c
@@ -0,0 +1,503 @@
+/*
+ *
+ * t c l - u t i l . c		-- Some Tcl utilities (this correpond to part 
+ * 				   of code of the Tcl lib modified to take into
+ *				   account some Scheme specificities)
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 26-Feb-1993 10:10
+ * Last file update: 14-Jul-1996 21:58
+ *
+ *
+ * This code is derivated from several Tcl files which have the following 
+ * copyright notice
+ *
+ * Copyright (c) 1990-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#include "stk.h"
+#ifndef WIN32
+#  include <tclInt.h>
+#  include <tclPort.h>
+#endif
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_PosixError --
+ *
+ *	This procedure is typically called after UNIX kernel calls
+ *	return errors.  It stores machine-readable information about
+ *	the error in $errorCode returns an information string for
+ *	the caller's use.
+ *
+ * Results:
+ *	The return value is a human-readable string describing the
+ *	error, as returned by strerror.
+ *
+ * Side effects:
+ *	The global variable $errorCode is reset.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_PosixError(interp)
+    Tcl_Interp *interp;		/* Interpreter whose $errorCode variable
+				 * is to be changed. */
+{
+#ifdef STk_CODE
+    return (char *) strerror(errno);
+#else
+    char *id, *msg;
+
+    id = Tcl_ErrnoId();
+    msg = strerror(errno);
+    Tcl_SetErrorCode(interp, "POSIX", id, msg, (char *) NULL);
+    return msg;
+#endif
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Backslash --
+ *
+ *	Figure out how to handle a backslash sequence.
+ *
+ * Results:
+ *	The return value is the character that should be substituted
+ *	in place of the backslash sequence that starts at src.  If
+ *	readPtr isn't NULL then it is filled in with a count of the
+ *	number of characters in the backslash sequence.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char
+Tcl_Backslash(src, readPtr)
+    char *src;			/* Points to the backslash character of
+				 * a backslash sequence. */
+    int *readPtr;		/* Fill in with number of characters read
+				 * from src, unless NULL. */
+{
+    register char *p = src+1;
+    char result;
+    int count;
+
+    count = 2;
+
+    switch (*p) {
+	case 'a':
+	    result = 0x7;	/* Don't say '\a' here, since some compilers */
+	    break;		/* don't support it. */
+	case 'b':
+	    result = '\b';
+	    break;
+	case 'f':
+	    result = '\f';
+	    break;
+	case 'n':
+	    result = '\n';
+	    break;
+	case 'r':
+	    result = '\r';
+	    break;
+	case 't':
+	    result = '\t';
+	    break;
+	case 'v':
+	    result = '\v';
+	    break;
+	case 'x':
+	    if (isxdigit(UCHAR(p[1]))) {
+		char *end;
+
+		result = strtoul(p+1, &end, 16);
+		count = end - src;
+	    } else {
+		count = 2;
+		result = 'x';
+	    }
+	    break;
+	case '\n':
+	    do {
+		p++;
+	    } while (isspace(UCHAR(*p)));
+	    result = ' ';
+	    count = p - src;
+	    break;
+	case 0:
+	    result = '\\';
+	    count = 1;
+	    break;
+	default:
+	    if (isdigit(UCHAR(*p))) {
+		result = *p - '0';
+		p++;
+		if (!isdigit(UCHAR(*p))) {
+		    break;
+		}
+		count = 3;
+		result = (result << 3) + (*p - '0');
+		p++;
+		if (!isdigit(UCHAR(*p))) {
+		    break;
+		}
+		count = 4;
+		result = (result << 3) + (*p - '0');
+		break;
+	    }
+	    result = *p;
+	    count = 2;
+	    break;
+    }
+
+    if (readPtr != NULL) {
+	*readPtr = count;
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_TildeSubst --
+ *
+ *	Given a name starting with a tilde, produce a name where
+ *	the tilde and following characters have been replaced by
+ *	the home directory location for the named user.
+ *
+ * Results:
+ *	The result is a pointer to a static string containing
+ *	the new name.  If there was an error in processing the
+ *	tilde, then an error message is left in interp->result
+ *	and the return value is NULL.  The result may be stored
+ *	in bufferPtr; the caller must call Tcl_DStringFree(bufferPtr)
+ *	to free the name.
+ *
+ * Side effects:
+ *	Information may be left in bufferPtr.
+ *
+ *----------------------------------------------------------------------
+ */
+char *
+Tcl_TildeSubst(interp, name, bufferPtr)
+    Tcl_Interp *interp;		/* Interpreter in which to store error
+				 * message (if necessary). */
+    char *name;			/* File name, which may begin with "~/"
+				 * (to indicate current user's home directory)
+				 * or "~<user>/" (to indicate any user's
+				 * home directory). */
+    Tcl_DString *bufferPtr;	/* May be used to hold result.  Must not hold
+				 * anything at the time of the call, and need
+				 * not even be initialized. */
+{
+    char *dir;
+    register char *p;
+
+    Tcl_DStringInit(bufferPtr);
+    if (name[0] != '~') {
+	return name;
+    }
+
+    if ((name[1] == '/') || (name[1] == '\0')) {
+	dir = getenv("HOME");
+	if (dir == NULL) {
+	    Tcl_ResetResult(interp);
+	    Tcl_AppendResult(interp, "couldn't find HOME environment ",
+		    "variable to expand \"", name, "\"", (char *) NULL);
+	    return NULL;
+	}
+	Tcl_DStringAppend(bufferPtr, dir, -1);
+	Tcl_DStringAppend(bufferPtr, name+1, -1);
+    } else {
+	struct passwd *pwPtr;
+
+	for (p = &name[1]; (*p != 0) && (*p != '/'); p++) {
+	    /* Null body;  just find end of name. */
+	}
+	Tcl_DStringAppend(bufferPtr, name+1, p - (name+1));
+#ifdef WIN32
+	Tcl_ResetResult(interp);
+	Tcl_AppendResult(interp, "user \"", bufferPtr->string,
+		    "\" doesn't exist", (char *) NULL);
+	return NULL;
+    }
+#else
+	pwPtr = getpwnam(bufferPtr->string);
+	if (pwPtr == NULL) {
+	    endpwent();
+	    Tcl_ResetResult(interp);
+	    Tcl_AppendResult(interp, "user \"", bufferPtr->string,
+		    "\" doesn't exist", (char *) NULL);
+	    return NULL;
+	}
+	Tcl_DStringFree(bufferPtr);
+	Tcl_DStringAppend(bufferPtr, pwPtr->pw_dir, -1);
+	Tcl_DStringAppend(bufferPtr, p, -1);
+	endpwent();
+    }
+    return bufferPtr->string;
+#endif
+}
+
+
+int Tcl_ExprDouble(interp, string, ptr)
+     Tcl_Interp *interp;		/* Context in which to evaluate the
+					 * expression. */
+     char *string;			/* Expression to evaluate. */
+     double *ptr;			/* Where to store result. */
+{
+  SCM value = STk_eval_C_string(string, NIL);
+
+  if (value) {
+    if (NUMBERP(value)) {
+      *ptr = FLONM(STk_exact2inexact(value));
+      return TCL_OK;
+    }
+  }
+  interp->result = "expression didn't have numeric value";
+  return TCL_ERROR;
+}
+
+
+int Tcl_ExprLong(interp, string, ptr)
+     Tcl_Interp *interp;		/* Context in which to evaluate the
+					 * expression. */
+     char *string;			/* Expression to evaluate. */
+     long *ptr;				/* Where to store result. */
+{
+  SCM value = STk_eval_C_string(string, NIL);
+
+  if (value) {
+    if (EXACTP(value)) {
+      *ptr = (long) FLONM(STk_exact2inexact(value));
+      return TCL_OK;
+    }
+  }
+  interp->result = "expression didn't have numeric value";
+  return TCL_ERROR;
+}
+
+
+void Tcl_AddErrorInfo(interp, message)
+     Tcl_Interp *interp;
+     char *message;	
+{
+  SCM new, old, error_info;
+  
+  error_info = Intern("*error-info*");
+  new        = STk_makestring(message);
+  old	     = VCELL(error_info);
+
+  if (!STRINGP(old)) old = STk_makestring("");
+    
+  /* Append message to current value of *error-info* */
+  VCELL(error_info) = STk_string_append(LIST2(old, new), 2);			 
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AllowExceptions --
+ *
+ *	Sets a flag in an interpreter so that exceptions can occur
+ *	in the next call to Tcl_Eval without them being turned into
+ *	errors.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The TCL_ALLOW_EXCEPTIONS flag gets set in the interpreter's
+ *	evalFlags structure.  See the reference documentation for
+ *	more details.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_AllowExceptions(interp)
+    Tcl_Interp *interp;		/* Interpreter in which to set flag. */
+{
+    Interp *iPtr = (Interp *) interp;
+
+    iPtr->evalFlags |= TCL_ALLOW_EXCEPTIONS;
+}
+
+#ifdef USE_TK
+
+/*
+ *=============================================================================
+ *
+ * Misc
+ *
+ *=============================================================================
+ */
+
+/*
+ * The FileHashKey structure is used to associate the OS file handle and type
+ * with the corresponding notifier data in a FileHandle.
+ */
+
+typedef struct FileHashKey {
+    int type;			/* File handle type. */
+    ClientData osHandle;	/* Platform specific OS file handle. */
+} FileHashKey;
+
+typedef struct FileHandle {
+    FileHashKey key;		/* Hash key for a given file. */
+    ClientData data;		/* Platform specific notifier data. */
+    Tcl_FileFreeProc *proc;	/* Callback to invoke when file is freed. */
+} FileHandle;
+
+/*
+ * Static variables used in this file:
+ */
+
+static Tcl_HashTable fileTable;	/* Hash table containing file handles. */
+static int initialized = 0;	/* 1 if this module has been initialized. */
+
+/*
+ * Static procedures used in this file:
+ */
+
+static void 		FileExitProc _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetFile --
+ *
+ *	This function retrieves the file handle associated with a
+ *	platform specific file handle of the given type.  It creates
+ *	a new file handle if needed.
+ *
+ * Results:
+ *	Returns the file handle associated with the file descriptor.
+ *
+ * Side effects:
+ *	Initializes the file handle table if necessary.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_File
+Tcl_GetFile(osHandle, type)
+    ClientData osHandle;	/* Platform specific file handle. */
+    int type;			/* Type of file handle. */
+{
+    FileHashKey key;
+    Tcl_HashEntry *entryPtr;
+    int new;
+
+    if (!initialized) {
+	Tcl_InitHashTable(&fileTable, sizeof(FileHashKey)/sizeof(int));
+	Tcl_CreateExitHandler(FileExitProc, 0);
+	initialized = 1;
+    }
+    key.osHandle = osHandle;
+    key.type = type;
+    entryPtr = Tcl_CreateHashEntry(&fileTable, (char *) &key, &new);
+    if (new) {
+	FileHandle *newHandlePtr;
+
+	newHandlePtr = (FileHandle *) ckalloc(sizeof(FileHandle));
+	newHandlePtr->key = key;
+	newHandlePtr->data = NULL;
+	newHandlePtr->proc = NULL;
+	Tcl_SetHashValue(entryPtr, newHandlePtr);
+    }
+    
+    return (Tcl_File) Tcl_GetHashValue(entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetFileInfo --
+ *
+ *	This function retrieves the platform specific file data and
+ *	type from the file handle.
+ *
+ * Results:
+ *	If typePtr is not NULL, sets *typePtr to the type of the file.
+ *	Returns the platform specific file data.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+ClientData
+Tcl_GetFileInfo(handle, typePtr)
+    Tcl_File handle;
+    int *typePtr;
+{
+    FileHandle *handlePtr = (FileHandle *) handle;
+
+    if (typePtr) {
+	*typePtr = handlePtr->key.type;
+    }
+    return handlePtr->key.osHandle;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileExitProc --
+ *
+ *	This function an exit handler that frees any memory allocated
+ *	for the file handle table.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Cleans up the file handle table.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FileExitProc(clientData)
+    ClientData clientData;	/* Not used. */
+{
+    Tcl_HashSearch search;
+    Tcl_HashEntry *entryPtr;
+
+    entryPtr = Tcl_FirstHashEntry(&fileTable, &search);
+
+    while (entryPtr) {
+	ckfree(Tcl_GetHashValue(entryPtr));
+	entryPtr = Tcl_NextHashEntry(&search);
+    }
+
+    Tcl_DeleteHashTable(&fileTable);
+}
+#endif
diff --git a/Src/test-stk b/Src/test-stk
new file mode 100755
index 0000000..5805bd4
--- /dev/null
+++ b/Src/test-stk
@@ -0,0 +1,11 @@
+#!/bin/sh
+#
+# A simple shell script to test stk without installing it
+#
+
+STK_LIBRARY=../Lib 
+STK_LOAD_PATH=$STK_LIBRARY:../STklos:../STklos/Tk:../STklos/Tk/Composite:../Extensions
+STK_HELP_PATH=../Help
+
+export STK_LIBRARY STK_LOAD_PATH STK_HELP_PATH
+exec ../Src/stk "$@"
diff --git a/Src/tk-glue.c b/Src/tk-glue.c
new file mode 100644
index 0000000..a2b0fdd
--- /dev/null
+++ b/Src/tk-glue.c
@@ -0,0 +1,400 @@
+/*
+ *
+ * t k - g l u e . c 		- Glue function between the scheme and Tk worlds
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 19-Feb-1993 22:15
+ * Last file update: 13-Jun-1996 19:10
+ *
+ *
+ */
+
+#ifdef USE_TK
+#include "stk.h"
+#include "tk-glue.h"
+#include "gc.h"
+#include "tkInt.h"
+
+#define MAXARG 64	/* Max args on stack. Use malloc if greater */
+
+/* Scheme objects used to represent the "." pseudo widget and its name */
+SCM STk_root_window;
+SCM STk_root_window_name;
+
+/* Last result of Tcl_GlobalEval (as a SCM object rather than a string) */
+SCM STk_last_Tk_result;
+
+static SCM TkResult2Scheme(Tcl_Interp *interp)
+{
+  register char*s= interp->result;
+  register SCM tmp1, tmp2, z, port;
+  SCM result = NIL;
+  int eof;
+
+  if (*s) {
+    /* Create a string port to read in the result */
+    port   = STk_internal_open_input_string(s);
+    result = STk_internal_read_from_string(port, &eof, TRUE);
+    if (result == Sym_dot) result = STk_root_window;
+
+    if (!eof) {
+      /*  Result was a list of value, build a proper Scheme list */
+      tmp1 = result = LIST1(result);
+      for ( ; ; ) {
+	z = STk_internal_read_from_string(port, &eof, TRUE);
+	if (z == EVAL_ERROR || EOFP(z)) break;
+	if (z == Sym_dot) z = STk_root_window;
+	NEWCELL(tmp2, tc_cons);
+	CAR(tmp2) = z; 
+	CDR(tmp1) = tmp2;
+	tmp1      = tmp2;
+      }
+      CDR(tmp1) = NIL;
+    }
+    /* close_string_port(port); */
+  }
+
+  Tcl_ResetResult(interp); 
+  return (result == EVAL_ERROR)? UNDEFINED: result;
+}
+
+char *STk_convert_for_Tk(SCM obj, SCM *res)
+{
+  switch (TYPE(obj)) {
+    case tc_symbol:    *res = obj; return PNAME(obj);
+    case tc_integer:
+    case tc_bignum:
+    case tc_flonum:    *res = STk_number2string(obj, UNBOUND); return CHARS(*res);
+    case tc_string:    *res = obj; return CHARS(obj);
+    case tc_tkcommand: return (obj->storage_as.tk.data)->Id;
+    case tc_keyword:   *res = obj; return obj->storage_as.keyword.data;
+    case tc_boolean:   return (obj == Truth)? "#t" : "#f";
+    default:           /* Ok, take the big hammer (i.e. use a string port for 
+			* type coercion) Here, use write (and not display) 
+			* since it handles complex data structures containing
+			* eventually special chars which must be escaped
+			* Ex: (bind .w "<Enter>" '(display "<Enter>"))
+			*     First <Enter> is unquotted and second is not
+			*/
+		       {
+			 SCM port;
+			 
+			 port = STk_open_output_string();
+			 STk_print(obj, port, TK_MODE); 
+			 *res = STk_get_output_string(port);
+			 return CHARS(*res);
+		       }
+  }
+}
+
+ 
+SCM STk_execute_Tcl_lib_cmd(SCM cmd, SCM args, SCM env, int eval_args)
+{
+  char *buffer[MAXARG+2];
+  int tkres;
+  char **argv 	       = buffer;
+  int argc  	       = STk_llength(args);
+  SCM conv_res, start  = args;
+  struct Tk_command *W = cmd->storage_as.tk.data;
+
+ 
+  if (argc >= MAXARG) {
+    /* allocate dynamically the argv array (one extra for argv[0] and one 
+     * for the NULL terminator -dsf
+     */
+    argv=(char **) must_malloc((argc+2) * sizeof(char *));
+  }
+
+  /* 
+   * conv_res is (roughly) a vector of the values returned by convert_for_Tk. 
+   * It serves only to have pointers in the stack on the converted values. 
+   * This permits to avoid GC problems (i.e. a GC between 1 and argc 
+   * whereas convert_for_Tk has created new cells in a previous iteration 
+   */
+  conv_res = STk_makevect(argc+2, NIL);
+
+  /* First initialize an argv array */
+  argv[0] = cmd->storage_as.tk.data->Id;
+  
+  for (argc = 1; NNULLP(args); argc++, args=CDR(args)) {
+    if (NCONSP(args)) Err("Malformed list of arguments", start);
+    argv[argc] = STk_convert_for_Tk(eval_args ? STk_eval(CAR(args), env):CAR(args), 
+				    	      &(VECT(conv_res)[argc]));
+  }
+  argv[argc] = NULL;
+
+  /* Now, call the Tk library function */
+  Tcl_ResetResult(STk_main_interp);
+
+  tkres = (*W->fct)(W->ptr, STk_main_interp, argc, argv);
+  
+  if (argv != buffer) {
+    /* argv was allocated dynamically. Dispose it */
+    free(argv);
+  }
+
+  /* return result as a string or "evaluated" depending of string_result field */
+  if (tkres == TCL_OK)
+    return TkResult2Scheme(STk_main_interp);
+  
+  Err(STk_main_interp->result, NIL);
+}
+
+/******************************************************************************
+ *
+ * Callback management
+ *
+ ******************************************************************************/
+
+static Tcl_HashTable Tk_callbacks;
+
+
+int STk_valid_callback(char *s, void **closure)
+{
+  /* A callback is valid iff it is of the form "#pxxxx" where xxxx is composed
+   * only of hexadecimal digit.
+   * Furthermore, the given address must  be a valid adress
+   */
+  int l = strlen(s);
+  char *p;
+
+  *closure = NULL;
+  if (l > 2) {
+    if (s[0] == '#' && s[1] == 'p') {
+      /* Verify that the rest of the string only contains hexadecimal digits */
+      for (p = s + 2; *p; p++)
+	if (!isxdigit(*p)) return FALSE;
+
+      sscanf(s+2, "%lx", (unsigned long) closure);
+      if (!STk_valid_address((SCM) *closure)) return FALSE;
+    }
+  }
+  return TRUE;
+}
+
+void STk_add_callback(char *key1, char *key2, char *key3, SCM closure)
+{
+  Tcl_HashEntry *entry;
+  Tcl_HashTable *secondary_hash_table;
+  int new;
+  char key[200]; /* Largely sufficient */
+
+  if (*key2) {
+    /* We have two keys. Use a secondary hash table */
+    if (entry=Tcl_FindHashEntry(&Tk_callbacks, key1))
+      /* Key already in hash table */
+      secondary_hash_table = Tcl_GetHashValue(entry);
+    else {
+      secondary_hash_table = (Tcl_HashTable *) must_malloc(sizeof(Tcl_HashTable));
+      Tcl_InitHashTable(secondary_hash_table, TCL_STRING_KEYS);
+      entry = Tcl_CreateHashEntry(&Tk_callbacks, (char *) key1, &new);
+      Tcl_SetHashValue(entry, secondary_hash_table);
+    }
+    
+    /* Enter a new key (obtained from key2 and key3) in the hash table.
+     * Don't worry about old value: since it is no more pointed by the 
+     * hash table, it will be garbaged at next GC run
+     */
+    sprintf(key, "%s#%s", key2, key3);/* Create a new key from key2 and key3 */
+    entry = Tcl_CreateHashEntry(secondary_hash_table, key, &new);
+    Tcl_SetHashValue(entry, closure); 
+  }
+  else {
+    /* Only one key. No need for a secondary hash table */
+    entry =Tcl_CreateHashEntry(&Tk_callbacks, key1, &new);
+    Tcl_SetHashValue(entry, closure);
+  }
+}
+
+
+void STk_delete_callback(char *key)
+{
+  /*
+   * key is destroyed. We only need to free the entry associated to it in the 
+   * Tk_callback hash table (if it exists).
+   */
+  Tcl_HashEntry *entry;
+  Tcl_HashTable *secondary_hash_table;
+
+  if (entry=Tcl_FindHashEntry(&Tk_callbacks, key)) {
+    if (*key != 'a' && strncmp(key, "after#", 6) != 0) {
+      /* Delete the secondary hash table associated to this entry */
+      secondary_hash_table = Tcl_GetHashValue(entry);
+      Tcl_DeleteHashTable(secondary_hash_table);
+      free(secondary_hash_table);
+    }
+    /* Delete the entry itself */
+    Tcl_DeleteHashEntry(entry);
+  }
+}
+
+void STk_mark_callbacks(void)
+{
+  Tcl_HashEntry *entry1, *entry2;
+  Tcl_HashSearch search1, search2;
+  Tcl_HashTable *secondary;
+  char *key;
+
+  for (entry1 = Tcl_FirstHashEntry(&Tk_callbacks, &search1);
+       entry1;
+       entry1 = Tcl_NextHashEntry(&search1)) {
+    
+    key = Tcl_GetHashKey(&Tk_callbacks, entry1);
+    if (*key == 'a' && strncmp(key, "after#", 6) == 0) {
+      /* No secondary hash table */
+      STk_gc_mark((SCM) Tcl_GetHashValue(entry1));
+    }
+    else {
+      /* We have a secondary hash table. Scan it  */
+      secondary = Tcl_GetHashValue(entry1);
+      for (entry2 = Tcl_FirstHashEntry(secondary, &search2);
+	   entry2;
+	   entry2 = Tcl_NextHashEntry(&search2)) {
+	
+	STk_gc_mark((SCM) Tcl_GetHashValue(entry2));
+      }
+    }
+  }
+}
+
+/* 
+ * Return the parameters associated to the callback contained (as a string)
+ * in the value parameter. If an error occurs, this function returns NULL
+ *
+ */
+char *STk_append_callback_parameters(SCM proc)
+{
+  SCM param, port;
+
+  if (!CLOSUREP(proc)) return NULL;
+  param = CLOSURE_PARAMETERS(proc);
+
+  if (NULLP(param) || CONSP(param)) {
+    port = STk_open_output_string();
+    STk_print(Cons(proc, param) , port, TK_MODE); 
+    return CHARS(STk_get_output_string(port));
+  }
+  return NULL;
+}
+
+
+/******************************************************************************
+ *
+ * Tcl result manipulation functions
+ *
+ ******************************************************************************/
+
+void STk_sharp_dot_result(Tcl_Interp *interp, char *value)
+{
+  /* Transform Tcl result in #.result so that it is evaluated when read */
+  int len = strlen(value);
+  char *s;
+
+  s = (char *) STk_must_malloc(len + 3);
+  s[0] = '#';
+  s[1] = '.';
+  strcpy(s+2, value);
+  
+  Tcl_SetResult(interp, s, TCL_VOLATILE);
+}
+
+void STk_stringify_result(Tcl_Interp *interp, char *value)
+{
+  /* Transform Tcl result in "result" with " and \ escaped */
+  Tcl_SetResult(interp,  STk_stringify(value, 0), TCL_VOLATILE);
+}
+
+SCM STk_last_Tk_as_SCM(void)
+{
+  return STk_last_Tk_result;
+}
+
+SCM STk_get_NIL_value(void)
+{
+  return NIL;
+}
+
+
+/*
+ * STk_stringify permits to transform the string "s" in a valid STk string.
+ * Original string is deallocated if free_original is 1 
+ */
+
+char *STk_stringify(char *s, int free_original)
+{
+  char *res, *d;
+  
+  if (s == NULL) s = "";
+  res = d = must_malloc(2 * strlen(s) + 3); /* worst overestimation */
+  
+  for ( *d++ = '"'; *s; s++, d++) {
+    if (*s == '"' || *s == '\\') *d++ = '\\';
+    *d = *s;
+  }
+  *d++ = '"';
+  *d   = '\0';
+  
+  if (free_original) free(s);
+  return res;
+}
+
+
+/******************************************************************************
+ *
+ * Motif simulation
+ *
+ * Tk 4.0 uses a field in the Tk_Window structure to tell the library if it
+ * must be conform to Motif look. This field is Tcl_LinkVar'ed.
+ *
+ ******************************************************************************/
+
+static SCM get_Motif(char *s)
+{
+  TkWindow *p = (TkWindow *) Tk_MainWindow(STk_main_interp);
+  return (p->mainPtr->strictMotif) ? Truth: Ntruth;
+}
+
+static void set_Motif(char *s, SCM value)
+{ 
+  TkWindow *p = (TkWindow *) Tk_MainWindow(STk_main_interp);
+  p->mainPtr->strictMotif = !(value == Ntruth);
+}
+
+
+void STk_init_glue(void)
+{
+  /* 
+   * Take into account the fact that Tk main window  name (i.e. ``.'') 
+   * cannot be used in list since it leads to erroneous evaluation 
+   * (e.g. [focus .] would produce an error since read will find a malformed
+   * pair).
+   *
+   */
+  STk_root_window_name=Intern(ROOT_WINDOW);   STk_gc_protect(&STk_root_window_name);
+  STk_root_window     =STk_eval(Sym_dot, NIL);STk_gc_protect(&STk_root_window);
+
+  VCELL(STk_root_window_name) = STk_root_window;
+
+  /* Init the callback table */
+  Tcl_InitHashTable(&Tk_callbacks, TCL_STRING_KEYS);
+  
+  /* Associate a getter and a setter for the global variable *Tk-strict-Motif*  */
+  STk_define_C_variable("*tk-strict-motif*", get_Motif, set_Motif);
+}
+
+#endif /* USE_TK */
diff --git a/Src/tk-glue.h b/Src/tk-glue.h
new file mode 100644
index 0000000..6ddc9d7
--- /dev/null
+++ b/Src/tk-glue.h
@@ -0,0 +1,52 @@
+/*
+ *
+ * t k - g l u e . h 		- Glue function between the scheme and Tk worlds
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 19-Feb-1993 22:15
+ * Last file update:  2-Jul-1996 10:28
+ *
+ */
+
+/* Scheme objects used to represent the "." pseudo widget and its name */
+extern SCM STk_root_window;
+extern SCM STk_root_window_name;
+
+/* Last result of Tcl_GlobalEval (as a SCM object rather than a string) */
+extern SCM STk_last_Tk_result;
+
+char *STk_convert_for_Tk(SCM obj, SCM *res);
+
+void STk_sharp_dot_result(Tcl_Interp *interp, char *value);
+void STk_stringify_result(Tcl_Interp *interp, char *value);
+SCM STk_last_Tk_as_SCM(void);
+SCM STk_get_NIL_value(void);
+
+int   STk_valid_callback(char *s, void **p);
+void  STk_add_callback(char *key1, char *key2, char *key3, SCM closure);
+void  STk_delete_callback(char *key);
+void  STk_mark_callbacks(void);
+char *STk_append_callback_parameters(SCM proc);
+
+/*
+ * STk_stringify permits to transform the string "s" in a valid STk string.
+ * Original string is deallocated if free_original is 1 
+ */
+
+char *STk_stringify(char *s, int free_original);
+
diff --git a/Src/tk-main.c b/Src/tk-main.c
new file mode 100644
index 0000000..2c9e684
--- /dev/null
+++ b/Src/tk-main.c
@@ -0,0 +1,179 @@
+/* 
+ * t k - m a i n . c 			-- Initialization of Tk
+ *
+ * This code initializes the Tk library. It corresponds to a part of the 
+ * file main.c of the wish interpreter. 
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 13-May-1993 10:59
+ * Last file update: 27-Aug-1996 18:16
+ *
+ *
+ * Code used here was originally copyrigthed as shown below:
+ *      Copyright 1990-1992 Regents of the University of California.
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ */
+#ifdef USE_TK
+#include <signal.h>
+#include "stk.h"
+
+
+/*
+ * Command used to initialize wish:
+ */
+
+static char initCmd[] = "(load (string-append *stk-library* \"/STk/tk-init.stk\"))";
+
+/*
+ * Global variables used by the main program:
+ */
+
+static Tk_Window w;			/* The main window for the application.  If
+				 	 * NULL then the application no longer
+					 * exists. */
+Tcl_Interp *STk_main_interp= NULL;	/* Interpreter for this application. */
+int Tk_initialized = 0;			/* 1 when Tk is fully initialized */
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void DelayedMap _ANSI_ARGS_((ClientData clientData));
+static void StructureProc _ANSI_ARGS_((ClientData clientData,
+				       XEvent *eventPtr));
+
+
+/*
+ *
+ * Tcl-main
+ *
+ *  Perhaps, this procedure should be made available outside and the
+ *  USE_TK conditionnal flags should be split in USE_TCL and USE_TK
+ *
+ */
+
+static void Tcl_main(void)
+{
+  STk_main_interp = Tcl_CreateInterp();
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_main
+ *
+ *----------------------------------------------------------------------
+ */
+
+void Tk_main(int synchronize, char *name, char *fileName, char *Xdisplay,
+	     char *geometry)
+{
+  char *p, *Class;
+  int argc, code;
+  char *args[20];  
+
+  Tcl_main();
+
+  if (name == NULL) {
+    p    = (fileName != NULL) ? fileName: STk_Argv0;
+    name = strrchr(p, '/');
+    if (name != NULL) 
+      name++;
+    else 
+      name = p;
+  }
+
+  /*
+   * Initialize the Tk application and arrange to map the main window
+   * after the startup script has been executed, if any.  This way
+   * the script can withdraw the window so it isn't ever mapped
+   * at all.
+   */
+#ifdef FIXME
+  Class = (char *) ckalloc((unsigned) (strlen(name) + 1));
+  strcpy(Class, name);
+  Class[0] = toupper((unsigned char) Class[0]); 
+#else
+  Class = "STk";
+#endif
+
+#ifdef FIXME
+  ckfree(Class);
+#endif
+
+  args[0] = "toplevel";
+  args[1] = ".";
+  args[2] = "-class";
+  args[3] = Class;
+  argc = 4;
+
+  if (Xdisplay != NULL) {
+    args[argc] = "-screen";
+    args[argc+1] = Xdisplay;
+    argc += 2;
+  }
+
+  if (STk_arg_colormap) {
+    args[argc]   = "-colormap";
+    args[argc+1] = "new";
+    argc += 2;
+  }
+  if (STk_arg_visual != NULL) {
+      args[argc] = "-visual";
+      args[argc+1] = STk_arg_visual;
+      argc += 2;
+  }
+  args[argc] = NULL;
+  
+  Tcl_ResetResult(STk_main_interp);
+
+  code = TkCreateFrame((ClientData) NULL, STk_main_interp, argc, args, 1, name);
+  if (code != TCL_OK) {
+    panic(STk_main_interp->result);
+  }
+  
+#ifndef WIN32
+  if (synchronize) XSynchronize(Tk_Display(Tk_MainWindow(STk_main_interp)), TRUE);
+#endif
+  /* Set the geometry of the main window, if requested. */
+  if (geometry != NULL) {
+    if (TCL_OK != Tcl_VarEval(STk_main_interp, "(wm 'geometry \".\" '", 
+			      geometry, ")", NULL))
+      fprintf(STk_stderr, "**** Warning: %s\n", STk_main_interp->result);
+  }
+  code = TkPlatformInit(STk_main_interp);
+  
+  if (code == TCL_OK)
+    Tk_initialized = 1;   /* Ok, it's fully initialized */
+  
+  STk_init_tracevar(); 	/* Initialize the variable tracing mechanism */
+  STk_init_glue();
+
+  /* Initialize commands which are now in Tcl */
+  Tcl_CreateCommand(STk_main_interp, "after",  Tcl_AfterCmd, NULL, NULL);
+  Tcl_CreateCommand(STk_main_interp, "update", Tcl_UpdateCmd, NULL, NULL);
+  	/* Vwait command can always be done with (tkwait 'variable ...).
+	 * So we don't define explicitely vwait 
+	 * Note that "update" is also redefined by Tk4.1
+	 * Tcl_CreateCommand(STk_main_interp, "vwait",  Tcl_VwaitCmd, NULL, NULL);
+	 */
+
+  /* Execute STk's initialization script */
+  Tcl_GlobalEval(STk_main_interp, initCmd);
+}
+#endif /* USE_TK */
diff --git a/Src/tk-util.c b/Src/tk-util.c
new file mode 100644
index 0000000..e1849ec
--- /dev/null
+++ b/Src/tk-util.c
@@ -0,0 +1,83 @@
+/*
+ *
+ * t k - u t i l . c 		- Some Tk utilities 
+ *
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *            Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 19-Feb-1993 22:15
+ * Last file update: 26-Apr-1996 23:17
+ *
+ */
+
+#ifdef USE_TK
+#include "stk.h"
+#include "tk-glue.h"
+
+PRIMITIVE STk_string2widget(SCM str)
+{
+  SCM tmp, w;
+  char *s;
+
+  if (NSTRINGP(str)) Err("string->widget: bad string", str);
+
+  s = CHARS(str);
+  if (strcmp(s, ".") == 0) s = ROOT_WINDOW;
+
+  tmp = Intern(s);
+  if (STk_symbol_boundp(tmp, STk_globenv) == Truth && TKCOMMP(w=STk_eval(tmp, NIL)))
+    return w;
+  return Ntruth;
+}
+
+PRIMITIVE STk_widget2string(SCM widget)
+{
+  char *tmp;
+
+  if (NTKCOMMP(widget)) Err("widget->string: bad widget", widget);
+  tmp = (widget == STk_root_window) ? ROOT_WINDOW
+    				: widget->storage_as.tk.data->Id;
+  return STk_makestring(tmp);
+}
+
+PRIMITIVE STk_tk_commandp(SCM obj)
+{
+  return TKCOMMP(obj) ? Truth : Ntruth;
+}
+
+PRIMITIVE STk_widget_name(SCM widget)
+{
+  char *tmp;
+  
+  if (NTKCOMMP(widget)) Err("widget-name: bad widget", widget);
+  tmp = (widget == STk_root_window) ? ROOT_WINDOW
+    				    : widget->storage_as.tk.data->Id;
+  return Intern(tmp);
+}
+
+PRIMITIVE STk_get_widget_data(SCM widget)
+{
+  if (NTKCOMMP(widget)) Err("get-widget-data: bad widget", widget);
+  return widget->storage_as.tk.l_data;
+}
+
+PRIMITIVE STk_set_widget_data(SCM widget, SCM value)
+{
+  if (NTKCOMMP(widget)) Err("set-widget-data!: bad widget", widget);
+  widget->storage_as.tk.l_data = value;
+  return UNDEFINED;
+}
+#endif /* USE_TK */
diff --git a/Src/toplevel.c b/Src/toplevel.c
new file mode 100644
index 0000000..66c81a0
--- /dev/null
+++ b/Src/toplevel.c
@@ -0,0 +1,349 @@
+/*
+ *
+ * t o p l e v e l . c				-- The REP loop
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.	
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *	     Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date:  6-Apr-1994 14:46
+ * Last file update: 22-Sep-1996 23:48
+ */
+
+#include "stk.h"
+#include "gc.h"
+
+/* The cell representing NIL */
+static struct obj VNIL	   = {0, tc_nil};
+
+
+static void print_banner(void)
+{
+  if (VCELL(Intern(PRINT_BANNER)) != Ntruth){
+    fprintf(STk_stderr, "Welcome to the STk interpreter version %s [%s]\n", 
+	    STK_VERSION, MACHINE);
+    fprintf(STk_stderr, "Copyright © 1993-1996 Erick Gallesio - ");
+    fprintf(STk_stderr, "I3S - CNRS / ESSI <eg@unice.fr>\n");
+  }
+}
+
+static void weird_dirs(char *argv0)
+{
+  STk_panic("Could not find the directory where STk was installed.\nPerhaps some directories don't exist, or current executable (\"%s\") is in a strange place.\nYou should consider to set the \"STK_LIBRARY\" shell variable.\nExecution is aborted.", argv0);
+}
+
+static void load_init_file(void)
+{
+  /* Try to load init.stk in "." and, if not present, in $STK_LIBRARY/STk */
+  char init_file[] = "init.stk";
+  char file[2*MAX_PATH_LENGTH];
+
+  sprintf(file, "./%s", init_file);
+  if (STk_loadfile(file, 0) == Truth) return;
+
+  sprintf(file, "%s/STk/%s", STk_library_path, init_file);
+  if (STk_loadfile(file, 0) == Ntruth)
+    weird_dirs(STk_Argv0);
+}
+
+static void init_library_path(char *argv0)
+{
+  char *s;
+
+  STk_library_path = "";
+
+  if (s = getenv("STK_LIBRARY")) {
+    /* Initialize STk_library_path with the content of STK_LIBRARY 
+     * shell variable.
+     * Make a copy of environment variable (copy is necessary for
+     * images files) 
+     */
+    STk_library_path = (char *) must_malloc(strlen(s) + 1); 
+    strcpy(STk_library_path, s);
+  }
+  else {
+    SCM canonical_argv0 = STk_resolve_link(argv0, 0);
+    
+    if (canonical_argv0 != Ntruth) {
+      /* STk_library must be set to the parent directory of the executable */
+      char *s, *e;
+
+      s = CHARS(canonical_argv0);
+      e = s + strlen(s) - 1;
+      
+      while (e > s && !ISDIRSEP(*e)) e -= 1;	/* delete exec	name */
+      e -= 1;
+      while (e > s && !ISDIRSEP(*e)) e -= 1;	/* delete directory name */
+      *e = '\0';
+      
+      STk_library_path = must_malloc(strlen(s) + 1);
+      strcpy(STk_library_path, s);
+    }
+    else weird_dirs(argv0);
+  }
+}
+
+static void init_interpreter(void)
+{
+#ifdef WIN32
+  /* First initialize the IO system, to have a console on Windows */
+  STk_init_io();
+#endif
+
+  /* Remember if we are running the stk or snow interpreter */
+#ifdef USE_TK
+  STk_snow_is_running = FALSE;
+#else
+  STk_snow_is_running = TRUE;
+#endif
+
+  /* Global variables to initialize */
+  NIL		   = &VNIL;
+  STk_tkbuffer	   = (char *) must_malloc(TKBUFFERN+1);
+  STk_interactivep = STk_arg_interactive ||isatty(fileno(STk_stdin));
+
+  /* Initialize GC */
+  STk_init_gc();
+
+  /* Initialize symbol & keyword tables */
+  STk_initialize_symbol_table();
+  STk_initialize_keyword_table();
+
+  /* 
+	* Define some scheme objects used by the interpreter 
+	* and protect them against GC 
+	*/
+  NEWCELL(UNDEFINED, tc_undefined); STk_gc_protect(&UNDEFINED);
+  NEWCELL(UNBOUND,   tc_unbound);   STk_gc_protect(&UNBOUND);
+  NEWCELL(Truth,     tc_boolean);   STk_gc_protect(&Truth);
+  NEWCELL(Ntruth,    tc_boolean);   STk_gc_protect(&Ntruth);
+
+  Sym_lambda	   = Intern("lambda");		 STk_gc_protect(&Sym_lambda);
+  Sym_quote	   = Intern("quote");		 STk_gc_protect(&Sym_quote);
+  Sym_imply	   = Intern("=>");		 STk_gc_protect(&Sym_imply);
+  Sym_dot	   = Intern(".");		 STk_gc_protect(&Sym_dot);
+  Sym_debug	   = Intern(DEBUG_MODE);	 STk_gc_protect(&Sym_debug);
+  Sym_else	   = Intern("else");		 STk_gc_protect(&Sym_else);
+  Sym_quasiquote   = Intern("quasiquote");	 STk_gc_protect(&Sym_quasiquote);
+  Sym_unquote	   = Intern("unquote");		 STk_gc_protect(&Sym_unquote);
+  Sym_unq_splicing = Intern("unquote-splicing"); STk_gc_protect(&Sym_unq_splicing);
+  Sym_break	   = Intern("break");		 STk_gc_protect(&Sym_break);
+
+  STk_globenv	   = STk_makeenv(NIL, 1);	 STk_gc_protect(&STk_globenv);
+
+  /* GC_VERBOSE and REPORT_ERROR must ABSOLUTLY initialized before any GC occurs
+   * Otherwise, they will be allocated during a GC and this lead to an infinite 
+   * loop
+   */
+  VCELL(Intern(GC_VERBOSE))	= Ntruth;
+  VCELL(Intern(REPORT_ERROR))	= NIL;
+
+  VCELL(Intern(LOAD_SUFFIXES))	= NIL;
+  VCELL(Intern(LOAD_PATH))	= NIL;
+  VCELL(Intern(LOAD_VERBOSE))	= Ntruth;
+
+  /* Initialize the path of the library */
+  init_library_path(STk_Argv0);
+
+  /* Initialize *eval-hook* */
+  STk_init_eval_hook();
+
+  /* Initialize standard ports */
+  STk_init_standard_ports();
+
+  /* Initialize Scheme primitives */
+  STk_init_primitives();
+
+  /* Initialize signal table */
+  STk_init_signal();
+
+  /* initialize STk_wind_stack and protect it against garbage colection */
+  STk_wind_stack = NIL;	 STk_gc_protect(&STk_wind_stack);
+}
+
+static void finish_initialisation(void)
+{
+  /* 
+   * Initialize user extensions 
+   */
+  STk_user_init();
+
+
+#if (defined(USE_TK) && !defined(WIN32))
+  /*  
+   * Set up a handler for characters coming from stdin (Verify that we are
+   * interactive, because background interpreters are locked)
+   */
+  if (STk_interactivep) {
+    Tcl_File f = Tcl_GetFile((ClientData) fileno(STk_stdin),  TCL_UNIX_FD);
+    
+    Tcl_CreateFileHandler(f,
+			  TCL_READABLE,
+			  (Tk_FileProc *) STk_StdinProc, 
+			  (ClientData) NULL);
+  }
+#endif
+  
+  /* 
+   * See if we have the '-file' option
+   */
+  if (STk_arg_file) {
+    STk_set_signal_handler(STk_makeinteger(SIGINT), Truth);
+    STk_interactivep = 0;
+    STk_loadfile(STk_arg_file, TRUE);
+#ifdef USE_TK
+    if (Tk_initialized) Tk_MainLoop();
+#endif
+    exit(0);
+  }
+  
+  /* 
+   * See if we've used the '-interactive' option; if so, 
+   *		- unbufferize stdout and  stderr so that the interpreter can
+   *		  be used with Emacs and 
+   *		- print the STk banner
+   */
+  if (STk_interactivep) {
+    static char *out, *err;
+
+    out = STk_line_bufferize_io(STk_stdout);
+    err = STk_line_bufferize_io(STk_stderr);
+    print_banner();
+  }
+  fflush(stdout);
+
+  /* 
+   * Manage -load option 
+   */
+  if (STk_arg_load) {
+    STk_loadfile(STk_arg_load, TRUE);
+#ifdef USE_TK
+    if (Tk_initialized) Tcl_GlobalEval(STk_main_interp, "(update)");
+#endif
+  }
+}
+
+static void repl_loop(void)
+{
+  /* The print/eval/read loop */
+  for( ; ; ) {
+    SCM x;
+
+    if (STk_interactivep) {
+      fprintf(STk_stderr, "STk> ");
+      fflush(STk_stderr); 
+      fflush(STk_stdout);	/* This is for Ilisp users */
+    }
+    if (EQ(x=STk_readf(STk_stdin, FALSE), STk_eof_object)) return;
+    x = STk_eval(x, NIL);
+    if (STk_dumped_core) {
+      /* 
+       * When restoring an image we arrive here x contains the result of applying
+       * the saved continuation.
+       */
+      STk_dumped_core = 0;
+      longjmp(*Top_jmp_buf, JMP_RESTORE);
+    }
+    else {
+      STk_print(x, STk_curr_oport, WRT_MODE);
+      Putc('\n', STk_stdout);
+    }
+  }
+}
+
+static void repl_driver(int argc, char **argv)
+{
+  static int k;
+  static char **new_argv;
+  
+  new_argv = STk_process_argc_argv(argc, argv);
+
+  if (STk_arg_image) {
+    STk_save_unix_args_and_environment(argc, argv);
+    STk_restore_image(STk_arg_image);
+  }
+  else {
+    /* Normal initialisation */
+    STk_reset_eval_stack();
+  }
+
+  /* Point where we come back on errors, image restoration, ... */
+  k = setjmp(*Top_jmp_buf);
+  
+  Error_context	     = ERR_OK;	
+  STk_sigint_counter = 0;
+  STk_control_C	     = 0;
+
+  switch (k) {
+    case 0:		init_interpreter();
+			STk_initialize_scheme_args(new_argv);
+			load_init_file();
+#ifdef USE_TK
+#  ifdef WIN32
+			if (!STk_arg_no_tk)
+			  Tk_main(STk_arg_sync,
+				  STk_arg_name,
+				  STk_arg_file,
+				  "localhost:0",
+				  STk_arg_geometry);
+#  else
+			if (!STk_arg_Xdisplay) 
+			  STk_arg_Xdisplay =  getenv("DISPLAY");
+			if (!STk_arg_no_tk && STk_arg_Xdisplay)
+			  Tk_main(STk_arg_sync,
+				  STk_arg_name,
+				  STk_arg_file,
+				  STk_arg_Xdisplay,
+				  STk_arg_geometry);
+#  endif
+#endif
+			finish_initialisation();
+			break;
+    case JMP_RESTORE:	STk_restore_unix_args_and_environment(&argc, &argv);
+			/* Process another time args since we have lost them ! */
+			new_argv = STk_process_argc_argv(argc, argv);
+			STk_initialize_scheme_args(new_argv);
+#ifdef USE_TK
+			if (!STk_arg_no_tk && (STk_arg_Xdisplay||getenv("DISPLAY")))
+			  Tk_main(STk_arg_sync, 
+				  STk_arg_name, 
+				  STk_arg_file, 
+				  STk_arg_Xdisplay,
+				  STk_arg_geometry);
+#endif
+			finish_initialisation();
+			break;
+    case JMP_THROW:
+    case JMP_ERROR:	break;
+  }
+
+  repl_loop();
+  if (STk_interactivep) fprintf(STk_stderr, "Bye.\n");
+  STk_quit_interpreter(UNBOUND);
+}
+
+/******************************************************************************
+ *
+ * Toplevel
+ * 
+ ******************************************************************************/
+
+void STk_toplevel(int argc, char **argv)
+{
+  SCM stack_start; /* Unused variable. Its the first stack allocated variable */
+
+  STk_stack_start_ptr = &stack_start;
+  repl_driver(argc, argv);
+}
diff --git a/Src/trace.c b/Src/trace.c
new file mode 100644
index 0000000..09fe776
--- /dev/null
+++ b/Src/trace.c
@@ -0,0 +1,276 @@
+/*
+ *
+ * t r a c e . c 				-- Variable Tracing
+ * 
+ * Variable tracing is important in Tk since some widgets intensively use this
+ * mechanism. For instance, a check-button has a variable associated to it.
+ * When the button is clicked, the variable is set and when the variable is 
+ * modified, button state is consequntly changed (last case is done with a trace
+ * over the associated variable). Tcl trace mechanism is more general than this;
+ * the mechanism implemented here is just intended to mimic the trace over 
+ * variable writing (reading a var is not used by Tk and procedure tracing is a
+ * common thing easy to do in the Lisp world).
+ * Note: a single variable can be associated to several C functions (For instance
+ * when a radio-button associated variable is changed, a C function is used to 
+ * clear the selector and another to hilight the new selector). So, traces are 
+ * stored in a linked list (all traces are called on variable changement).
+ *
+ * Note:
+ *    - Implementation use Tcl hash tables to see if a variable is traced.
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 24-Feb-1993 13:07
+ * Last file update: 21-Jul-1996 21:29
+ *
+ */
+
+#include "stk.h"
+
+
+#define TRACING 	(1<<20)
+#define STk_TRACE 	TCL_TRACE_READS /* We use TCL_TRACE_READS, which is 	*/
+					/* not used by Tk, for tagging		*/
+					/* traces set with the trace-var 	*/
+					/* procedure 				*/
+
+typedef struct STk_VarTrace {
+  Tcl_VarTraceProc *traceProc; /* Procedure to call when operations given
+				* by flags are performed on variable. */
+  ClientData clientData;       /* Argument to pass to proc. */
+  int flags;		       /* What events the trace procedure is
+				* interested in:  OR-ed combination of
+				* TCL_TRACE_READS, TCL_TRACE_WRITES, and
+				* TCL_TRACE_UNSETS. */
+  struct STk_VarTrace *nextPtr;/* Next in list of traces associated with
+				* a particular variable. */
+  SCM env;		       /* Environment of this variable */
+} STk_var_trace;
+
+static Tcl_HashTable VarTable;	/* Global hash table retaining traced variables */
+
+/******************************************************************************
+ *
+ * Scheme part
+ *
+ ******************************************************************************/
+/********** L O W   L E V E L **********/
+
+static int TraceVar(SCM var, int flags, Tcl_VarTraceProc *proc, 
+		    ClientData clientData, SCM env)
+{
+  int 		new;
+  Tcl_HashEntry	*entry;
+  STk_var_trace	*data;
+  
+  entry = Tcl_CreateHashEntry(&VarTable, PNAME(var), &new);
+  /* Create the value associated to the "var" key */
+  data= (STk_var_trace *) ckalloc((unsigned) sizeof (STk_var_trace));
+  data->flags	   = flags  & ~TCL_TRACE_UNSETS; /* Unset has no meaning in stk */;
+  data->traceProc  = proc;
+  data->clientData = clientData;
+  data->env	   = env;
+  data->nextPtr	   = (STk_var_trace *) (new ? NULL : Tcl_GetHashValue(entry));
+
+  /* Put it in table */
+  Tcl_SetHashValue(entry, (ClientData) data);
+
+  /* Retain that it exist a traced variable for this symbol */
+  var->cell_info |= CELL_INFO_TRACED_VAR;
+
+  return TCL_OK;
+}
+ 
+
+static void UntraceVar(SCM var, int flags, Tcl_VarTraceProc *proc,
+		       ClientData clientData)
+{
+  Tcl_HashEntry *entry;
+  register STk_var_trace *p, *prev;
+  
+  if (entry = Tcl_FindHashEntry(&VarTable, PNAME(var))) {
+    /* Variable is traced. Try to find correponding trace function */
+    flags &= ~TCL_TRACE_UNSETS; /* Unset has no meaning for us */
+
+    p = (STk_var_trace *) Tcl_GetHashValue(entry);    
+    for (prev=NULL; p ; prev=p, p=p->nextPtr) {
+      if (p->traceProc == proc && p->flags == flags && p->clientData == clientData)
+	break;
+    }
+    if (p) {
+      if (prev == NULL) {
+	if (p->nextPtr)
+	  Tcl_SetHashValue(entry, (ClientData *) p->nextPtr);
+	else 
+	  Tcl_DeleteHashEntry(entry);
+      }
+      else
+	prev->nextPtr = p->nextPtr;
+      ckfree(p);
+    }
+  }
+}
+
+
+static char *TraceVarFct(ClientData clientData, Tcl_Interp *interp, 
+			 char *name1, char *name2, int flags)
+{
+  /* 
+   * ClientData is the only field which of interest here. It contains the
+   * thunk to call
+   */
+  STk_apply((SCM) clientData, NIL);
+
+  return NULL; /* to make the compiler happy */
+}
+
+
+/*
+ * STk_complete_untrace
+ *
+ * Delete all the traces associated to a variable (used by ``untrace-var'')
+ *
+ */
+
+static void complete_untrace(char *var)
+{
+  Tcl_HashEntry *entry;
+  register STk_var_trace *p, *q;
+  
+  if (entry = Tcl_FindHashEntry(&VarTable, var)) {
+    /* Variable is traced. Try to find correponding trace function */
+    for (p = (struct STk_VarTrace *) Tcl_GetHashValue(entry); p; p=q) {
+      q = p=p->nextPtr;
+      ckfree(p);
+    }
+    Tcl_DeleteHashEntry(entry);
+  }
+}
+
+/*
+ * STk_change_value
+ *
+ * This function is called by Scheme when a there's a change on a traced global
+ * variable (using a set! or a define). 
+ *
+ */
+
+void STk_change_value(SCM var, SCM env)
+{ 
+  Tcl_HashEntry *entry;
+  register STk_var_trace *data, *p;
+
+  if (entry = Tcl_FindHashEntry(&VarTable, PNAME(var))) {
+    /* Variable is traced. Call all the associated traces */
+    data = (STk_var_trace *) Tcl_GetHashValue(entry);
+    
+    for (p = data; p ; p = p->nextPtr) {
+      /* Invoke trace procedure if not already active */
+      if (p->flags & TRACING) 
+	continue;
+
+      p->flags |= TRACING;
+#ifdef USE_TK
+      (*p->traceProc)(p->clientData, STk_main_interp, PNAME(var), "", p->flags);
+#else
+      (*p->traceProc)(p->clientData, NULL, PNAME(var), "", p->flags);
+#endif
+      /* Unset our flag */
+      p->flags &= ~TRACING;
+    }
+  }
+}
+
+void STk_mark_tracevar_table(void)
+{
+  Tcl_HashEntry     *ent;
+  Tcl_HashSearch    tmp;
+  register STk_var_trace *p;
+
+  for (ent=Tcl_FirstHashEntry(&VarTable, &tmp); ent;  ent=Tcl_NextHashEntry(&tmp)) {
+    for (p = (STk_var_trace *) Tcl_GetHashValue(ent); p; p=p->nextPtr) {
+      if (p->flags & STk_TRACE) 
+	/* This is a trace done in Scheme (with trace-var). Consequently,
+	 * clientData is a closure that we must mark */
+	STk_gc_mark((SCM)(p->clientData));
+    }
+  }
+}
+
+
+/********** U S E R   I N T E R F A C E **********/
+
+PRIMITIVE STk_trace_var(SCM var, SCM code)
+{
+  if (NSYMBOLP(var)) 	   Err("trace-var: bad variable name", var);
+  if (!STk_is_thunk(code)) Err("trace-var: bad thunk", var);
+  
+  /* Add the trace */
+  TraceVar(var, TCL_TRACE_WRITES|STk_TRACE, TraceVarFct, (ClientData) code, NIL);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_untrace_var(SCM var)
+{
+  if (NSYMBOLP(var)) Err("untrace-var: bad variable name", var);
+  complete_untrace(PNAME(var));
+
+  return UNDEFINED;
+}
+
+
+
+#ifdef USE_TK
+/*
+ *
+ * Tcl Part
+ *
+ */
+
+int Tcl_TraceVar(interp, var, flags, proc, clientData)
+     Tcl_Interp *interp; char *var; int flags;
+     Tcl_VarTraceProc *proc; ClientData clientData;
+{
+  return TraceVar(Intern(var), flags, proc, clientData, NIL);
+}
+
+int Tcl_TraceVar2(interp, name1, name2, flags, proc, clientData)
+     Tcl_Interp *interp; char *name1, *name2; int flags; 
+     Tcl_VarTraceProc *proc; ClientData clientData;
+{
+  return TraceVar(Intern(name1), flags, proc, clientData, NIL);
+}
+
+void Tcl_UntraceVar(interp, var, flags, proc, clientData)
+     Tcl_Interp *interp; char *var; int flags;
+     Tcl_VarTraceProc *proc; ClientData clientData;
+{
+  UntraceVar(Intern(var), flags, proc, clientData);
+}
+
+void Tcl_UntraceVar2(interp, name1, name2, flags, proc, clientData)
+     Tcl_Interp *interp; char *name1, *name2; int flags; 
+     Tcl_VarTraceProc *proc; ClientData clientData;
+{
+  UntraceVar(Intern(name1), flags, proc, clientData);
+}
+#endif
+
+void STk_init_tracevar(void)
+{
+  Tcl_InitHashTable(&VarTable, TCL_ONE_WORD_KEYS);
+}
diff --git a/Src/unix.c b/Src/unix.c
new file mode 100644
index 0000000..7f2eb69
--- /dev/null
+++ b/Src/unix.c
@@ -0,0 +1,706 @@
+/*
+ *
+ * u n i x . c					-- Some Unix primitives
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 29-Mar-1994 10:57
+ * Last file update: 13-Sep-1996 10:17
+ */
+#ifndef WIN32
+#  include <unistd.h>
+#  include <pwd.h>
+#else
+#  include <io.h>
+#  define F_OK   00
+#  define X_OK   01
+#  define W_OK   02
+#  define R_OK   04
+#endif
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef WIN32
+   /* One of above files includes <stdarg.h> with BC++  (and stdarg and 
+    * vararg are not compatible 
+    */
+#  undef __STDARG_H 
+
+#  ifdef MSC_VER
+#    include <direct.h>
+#    include <windows.h>
+#    define S_ISDIR(mode) ((mode&0xF0000) == 0x40000)
+#    define S_ISREG(mode) ((mode&0xF00000) == 0x100000)
+#  else
+      /* Borland defines the opendir/readdir/closedir functions. Use them. */
+#     include <dirent.h>
+#  endif
+#else
+#  include <dirent.h>
+#endif
+ 
+#include "stk.h"
+
+
+#ifdef SUNOS4
+/* I avoid to use the POSIX getcwd since it is implemented using popen(3) and
+ * pwd(1) on SunOS 4.1.3 ==> It is VERY SLOW.
+ */
+
+#define getcwd my_getcwd
+static char *my_getcwd(char *path, int size)
+{
+  if (!path) path = (char *) must_malloc(size);
+  getwd(path);
+  return path;
+}
+#endif  /* SUNOS4 */
+
+/******************************************************************************
+ *
+ * Utilities
+ *
+ ******************************************************************************/
+
+/*
+ * TILDE-EXPAND		-- expand '~' and '~user' string prefix
+ *
+ */
+
+static char *tilde_expand(char *name, char *result)
+{
+  char *dir, *p;
+
+#ifdef WIN32
+  strcpy(result, name);
+  return name;	
+#else
+  if (name[0] != '~') {
+    strcpy(result, name);
+    return name;
+  }
+
+  if ((name[1] == '/') || (name[1] == '\0')) {
+    dir = getenv("HOME");
+    if (dir == NULL)
+      Err("couldn't find HOME environment for expanding ", STk_makestring(name));
+    
+    sprintf(result, "%s%s", dir, name+1);
+  } 
+  else {
+    struct passwd *pwPtr;
+    register int len;
+    for (p=&name[1]; (*p != 0) && (*p != '/'); p++) {
+      /* Null body;  just find end of name. */
+    }
+    len = p-(name+1);
+    strncpy(result, name+1, len);
+    result[len] = '\0';
+
+    pwPtr = getpwnam(result);
+    if (pwPtr == NULL) {
+      endpwent();
+      Err("User does not exist", STk_makestring(result));
+    }
+    sprintf(result, "%s%s", pwPtr->pw_dir, p);
+    endpwent();
+  }
+  return result;
+#endif
+}
+
+/*
+ * ABSOLUTE	-- Given a file name, return its (mostly clean) absolute path name
+ *
+ */
+static void absolute(char *s, char *pathname)	
+{
+  char *p = pathname;
+  char *t;
+
+  if (!ISABSOLUTE(s)) {
+    getcwd(pathname, MAX_PATH_LENGTH);
+    p = &pathname[strlen(pathname)];     /* place p at end of pathname */ 
+  }
+  *p = DIRSEP;
+
+  for ( ; *s; s++) {
+    t = s;
+    switch (*s) {
+      case '.' : if (*(s+1)) {
+		   switch (*++s) {
+		     case '.' : if (ISDIRSEP(*p) && (*(s+1)=='\0' || 
+						     ISDIRSEP(*(s+1)))) {
+		                  /* We must go back to the parent */
+		                  if (ISDIRSEP(*p) && p > pathname)    p --;
+				  while (p > pathname && !ISDIRSEP(*p)) p--;
+		                }
+		                else {
+				  /* There is a suit of dot. Copy it */
+				  for (s = t; *s == '.'; s++) *++p = '.';
+				  s -= 1;
+				}
+		                break;
+#ifdef WIN32
+		     case '\\':
+#endif
+		     case '/' : if (!ISDIRSEP(*p)) {
+		                   *++p = '.';
+		       		   *++p = DIRSEP;
+		     	        }
+		                break;
+		     default  : *++p = '.'; *++p = *s; break;
+		   }
+                 }
+                 else { /* We have a final (single) dot */
+		   if (!ISDIRSEP(*p)) *++p = '.';
+		 }
+                 break;
+#ifdef WIN32
+      case '\\':
+#endif
+      case '/' : if (!ISDIRSEP(*p)) *++p = DIRSEP; break;
+      default  : *++p = *s;
+    }
+  }
+  
+  /* Place a \0 at end. If path ends with a "/", delete it */
+  if (p == pathname || !ISDIRSEP(*p)) p++;
+  *p = '\0';
+}
+
+
+#define MAXLINK 50	/* Number max of link before declaring we have a loop */
+
+SCM STk_resolve_link(char *path, int count)
+{
+#ifdef WIN32
+  return STk_internal_expand_file_name(path);
+#else
+  char link[MAX_PATH_LENGTH], dst[MAX_PATH_LENGTH], *s, *d=dst;
+  int n;
+  SCM p;
+  
+  p  = STk_internal_expand_file_name(path);
+  
+  for (s=CHARS(p)+1, *d++='/' ;       ; s++, d++) {
+    switch (*s) {
+      case '\0':
+      case '/' : *d = '\0';
+	if ((n=readlink(dst, link, MAX_PATH_LENGTH-1)) > 0) {
+	  link[n] = '\0';
+	  if (link[0] == '/') 
+	    /* link is absolute */
+	    d = dst;
+	  else {
+	    /* relative link. Delete last item */
+	    while (*--d != '/') {
+	    }
+	    d += 1;
+	  }
+		   
+	  /* d points the place where the link must be placed */
+	  if (d - dst + strlen(link) + strlen(s) < MAX_PATH_LENGTH - 1) {
+	    /* we have enough room */
+	    sprintf(d, "%s%s", link, s); 
+	    /* Recurse. Be careful for loops (a->b and b->a) */
+	    if (count < MAXLINK) 
+	      return STk_resolve_link(dst, count+1);
+	  }
+	  return Ntruth;
+	}
+	else {
+	  if (errno != EINVAL) 
+	    /* EINVAL = file is not a symlink (i.e. it's a true error) */
+	    return Ntruth;
+	  else
+	    if (*s) *d = '/'; 
+	    else return STk_makestring(dst);		       
+	}
+      default:   *d = *s;
+    }
+  }
+#endif
+}
+
+   
+/*
+ *----------------------------------------------------------------------
+ *
+ * fileglob --
+ *      *****							        ******
+ * 	***** This function is an adaptation of the Tcl function DoGlob ******
+ *      ***** Adaptated to use true lists rather than string as in Tcl  ******
+ *      *****							        ******
+ *	
+ *
+ *      This recursive procedure forms the heart of the globbing
+ *      code.  It performs a depth-first traversal of the tree
+ *      given by the path name to be globbed.
+ *
+ * Results:
+ *      The return value is a standard Tcl result indicating whether
+ *      an error occurred in globbing.  After a normal return the
+ *      result in interp will be set to hold all of the file names
+ *      given by the dir and rem arguments.  After an error the
+ *      result in interp will hold an error message.
+ *
+ * Side effects:
+ *      None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static SCM fileglob(char *dir, char *rem, SCM result)
+/* dir: Name of a directory at which to start glob expansion.  This name
+ * is fixed: it doesn't contain any globbing chars. 
+ * rem: Path to glob-expand.
+ */
+{
+  /*
+   * When this procedure is entered, the name to be globbed may
+   * already have been partly expanded by ancestor invocations of
+   * fileglob.  The part that's already been expanded is in "dir"
+   * (this may initially be empty), and the part still to expand
+   * is in "rem".  This procedure expands "rem" one level, making
+   * recursive calls to itself if there's still more stuff left
+   * in the remainder.
+   */
+  
+  Tcl_DString newName;                /* Holds new name consisting of
+				       * dir plus the first part of rem. */
+  register char *p;
+  register char c;
+  char *openBrace, *closeBrace, *name, *dirName;
+  int gotSpecial, baseLength;
+  struct stat statBuf;
+
+  /*
+   * Make sure that the directory part of the name really is a
+   * directory.  If the directory name is "", use the name "."
+   * instead, because some UNIX systems don't treat "" like "."
+   * automatically. Keep the "" for use in generating file names,
+   * otherwise "glob foo.c" would return "./foo.c".
+   */
+  
+  dirName = (*dir == '\0') ? ".": dir;
+  if ((stat(dirName, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode))
+    return result;
+
+  Tcl_DStringInit(&newName);
+
+  /*
+   * First, find the end of the next element in rem, checking
+   * along the way for special globbing characters.
+   */
+  
+  gotSpecial = 0;
+  openBrace = closeBrace = NULL;
+  for (p = rem; ; p++) {
+    c = *p;
+    if ((c == '\0') || ((openBrace == NULL) && (c == '/'))) break;
+    if ((c == '{')  && (openBrace == NULL)) openBrace = p;
+    if ((c == '}')  && (openBrace != NULL) && (closeBrace == NULL)) closeBrace = p;
+    if ((c == '*') || (c == '[') || (c == '\\') || (c == '?')) gotSpecial = 1;
+  }
+
+  /*
+   * If there is an open brace in the argument, then make a recursive
+   * call for each element between the braces.  In this case, the
+   * recursive call to fileglob uses the same "dir" that we got.
+   * If there are several brace-pairs in a single name, we just handle
+   * one here, and the others will be handled in recursive calls.
+   */
+
+  if (openBrace != NULL) {
+    char *element;
+    
+    if (closeBrace == NULL) {
+      Tcl_DStringFree(&newName);      
+      Err("unmatched open-brace in file name", NIL);
+    }
+
+    Tcl_DStringAppend(&newName, rem, openBrace-rem);
+    baseLength = newName.length;
+    for (p = openBrace; *p != '}'; ) {
+      element = p+1;
+      for (p = element; ((*p != '}') && (*p != ',')); p++) {}
+      Tcl_DStringAppend(&newName, element, p-element);
+      Tcl_DStringAppend(&newName, closeBrace+1, -1);
+      result = fileglob(dir, newName.string, result);
+      newName.length = baseLength;
+    }
+    goto done;
+  }
+
+  /*
+   * Start building up the next-level name with dir plus a slash if
+   * needed to separate it from the next file name.
+   */
+
+  Tcl_DStringAppend(&newName, dir, -1);
+  if ((dir[0] != 0) && (newName.string[newName.length-1] != '/')) {
+    Tcl_DStringAppend(&newName, SDIRSEP, 1);
+  }
+  baseLength = newName.length;
+
+  /*
+   * If there were any pattern-matching characters, then scan through
+   * the directory to find all the matching names.
+   */
+  if (gotSpecial) {
+#ifdef _MSC_VER
+    WIN32_FIND_DATA wfd; /* VC++ support from Caleb Deupree <cdeupree@erinet.com> */
+    HANDLE handle;
+    Tcl_DString msvcname;
+    char savedChar;
+    BOOL bFound = TRUE;
+
+    Tcl_DStringInit(&msvcname);
+    Tcl_DStringAppend(&msvcname, dirName, -1);
+    Tcl_DStringAppend(&msvcname, SDIRSEP, 1);
+    Tcl_DStringAppend(&msvcname, "*\0", -1);
+       
+    handle = FindFirstFile(Tcl_DStringValue(&msvcname), &wfd);
+    if (handle == INVALID_HANDLE_VALUE) {
+      Tcl_DStringFree(&msvcname);
+      Err("Cannot find files, error = ", STk_makestring(GetLastError()));
+    }
+   
+    savedChar = *p;
+    *p = 0;
+    
+    while (bFound) {
+      /*
+       * Don't match names starting with "." unless the "." is
+       * present in the pattern.
+       */
+      if ((wfd.cFileName == '.') && (*rem != '.')) continue;
+      
+      if (Tcl_StringMatch(wfd.cFileName, rem)) {
+	newName.length = baseLength;
+	Tcl_DStringAppend(&newName, wfd.cFileName, -1);
+	if (savedChar == 0)
+	  result = Cons(STk_makestring(newName.string), result);
+	else {
+	  result = fileglob(newName.string, p+1, result);
+	  if (result != TCL_OK) break;
+	}
+      }
+      bFound = FindNextFile(handle, &wfd);
+    }
+    FindClose(handle);
+    Tcl_DStringFree(&msvcname);
+    *p = savedChar;
+    goto done;
+#else
+    DIR *d;
+    struct dirent *entryPtr;
+    char savedChar;
+
+    d = opendir(dirName);
+    if (d == NULL) {
+      Tcl_DStringFree(&newName);
+      Err("cannot read directory", STk_makestring(dirName));
+    }
+
+    /*
+     * Temporarily store a null into rem so that the pattern string
+     * is now null-terminated.
+     */
+
+    savedChar = *p;
+    *p = 0;
+
+    while (1) {
+      entryPtr = readdir(d);
+      if (entryPtr == NULL) break;
+      /*
+       * Don't match names starting with "." unless the "." is
+       * present in the pattern.
+       */
+      if ((*entryPtr->d_name == '.') && (*rem != '.')) continue;
+
+      if (Tcl_StringMatch(entryPtr->d_name, rem)) {
+	newName.length = baseLength;
+	Tcl_DStringAppend(&newName, entryPtr->d_name, -1);
+	if (savedChar == 0)
+	  result = Cons(STk_makestring(newName.string), result);
+	else {
+	  result = fileglob(newName.string, p+1, result);
+	  if (result != TCL_OK) break;
+	}
+      }
+      
+    }
+    closedir(d);
+    *p = savedChar;
+    goto done;
+#endif
+  }
+
+  /*
+   * The current element is a simple one with no fancy features.  Add
+   * it to the new name.  If there are more elements still to come,
+   * then recurse to process them.
+   */
+  
+  Tcl_DStringAppend(&newName, rem, p-rem);
+  if (*p != 0) {
+    result = fileglob(newName.string, p+1, result);
+    goto done;
+  }
+
+  /*
+   * There are no more elements in the pattern.  Check to be sure the
+   * file actually exists, then add its name to the list being formed
+   * in main_interp-result.
+   */
+
+  name = newName.string;
+  if (*name == 0) name = ".";
+  if (access(name, F_OK) != 0) goto done;
+  result = Cons(STk_makestring(name), result);
+done:
+  Tcl_DStringFree(&newName);
+  return result;
+}
+
+SCM STk_internal_expand_file_name(char *s)
+{
+  char expanded[2 * MAX_PATH_LENGTH], abs[2 * MAX_PATH_LENGTH];  
+  /* Warning: absolute makes no control about path overflow. Hence the "2 *" */
+
+  absolute(tilde_expand(s, expanded), abs);
+  return STk_makestring(abs);
+}
+
+
+void STk_whence(char *exec, char *path)
+{
+  char *p, *q, dir[MAX_PATH_LENGTH];
+  struct stat buf;
+ 
+  if (ISABSOLUTE(exec)) {
+    strncpy(path, exec, MAX_PATH_LENGTH);
+    return;
+  }
+
+#ifdef FREEBSD 
+  /* I don't understand why this is needed */
+  if (access(path, X_OK) == 0) {
+    stat(path, &buf);
+    if (!S_ISDIR(buf.st_mode)) return;
+  }  
+#endif
+
+  p = getenv("PATH");
+  while (*p) {
+    /* Copy the stuck of path in dir */
+    for (q = dir; *p && *p != PATHSEP; p++, q++) *q = *p;
+    *q = '\000';
+
+    if (!*dir) { 
+      /* patch suggested by Erik Ostrom <eostrom@vesuvius.ccs.neu.edu> */
+      getcwd(path, MAX_PATH_LENGTH);
+      sprintf(path + strlen(path), "%c%s", DIRSEP, exec);
+    }
+    else
+      sprintf(path, "%s%c%s", dir, DIRSEP, exec);
+
+    sprintf(path, "%s%c%s", dir, DIRSEP, exec);
+    if (access(path, X_OK) == 0) {
+      stat(path, &buf);
+      if (!S_ISDIR(buf.st_mode)) return;
+    }
+	 
+    /* Try next path */
+    if (*p) p++;
+  }
+  /* Not found. Set path to "" */
+  path[0] = '\0';
+}
+
+int STk_dirp(const char *path)
+{
+  struct stat buf;
+
+  if (stat(path, &buf) >= 0) 
+    return S_ISDIR(buf.st_mode);
+  return FALSE;
+}
+
+
+/******************************************************************************
+ *
+ * Primitives
+ *
+ ******************************************************************************/
+
+PRIMITIVE STk_expand_file_name(SCM s)
+{
+  if (NSTRINGP(s)) Err("expand-file-name: bad string", s);
+  return STk_internal_expand_file_name(CHARS(s));
+}
+
+PRIMITIVE STk_canonical_path(SCM str)
+{
+  if (NSTRINGP(str)) Err("canonical-path: not a string", str);
+  return STk_resolve_link(CHARS(str), 0);
+}
+
+PRIMITIVE STk_getcwd(void)
+{
+  
+  char *buf = (char *)getcwd(NULL, MAX_PATH_LENGTH);
+  SCM z;
+
+  if (!buf) Err("getcwd: cannot allocate space", NIL);
+  z = STk_makestring(buf);
+  free(buf);
+
+  return z;
+}
+
+PRIMITIVE STk_chdir(SCM s)
+{
+  if (NSTRINGP(s)) Err("chdir: bad string", s);
+  
+  if (chdir(CHARS(STk_internal_expand_file_name(CHARS(s)))))
+    Err("chdir: cannot change directory to", s);
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_getpid(void)
+{
+  return (STk_makeinteger((int) getpid()));
+}
+
+PRIMITIVE STk_system(SCM com)
+{
+  if (NSTRINGP(com)) Err("system: not a string", com);
+  return STk_makeinteger(system(CHARS(com)));
+}
+	 
+PRIMITIVE STk_getenv(SCM str)
+{
+  char *tmp;
+  if (NSTRINGP(str)) Err("getenv: not a string", str);
+  tmp = getenv(CHARS(str));
+  return tmp ? STk_makestring(tmp) : Ntruth;
+}
+
+PRIMITIVE STk_setenv(SCM var, SCM value)
+{
+  char *s;
+  if (NSTRINGP(var)) Err("setenv!: variable is not a string", var);
+  if (strchr(CHARS(var), '=')) Err("setenv!: variable contains a '='", var);
+  if (NSTRINGP(value)) Err("setenv!: value is not a string", value);
+
+  s = malloc(strlen(CHARS(var))+ strlen(CHARS(value)) + 2); /* 2 cause  '=' & \0 */
+  sprintf(s, "%s=%s", CHARS(var), CHARS(value));
+  putenv(s);
+  return UNDEFINED;
+}
+
+
+/******************************************************************************
+ *
+ * file-is-xxx? primitives
+ *
+ ******************************************************************************/
+
+static SCM my_access(SCM path, int mode, char *who)
+{
+  if (NSTRINGP(path)) {
+    char buff[100];
+    sprintf(buff, "%s: bad string", who);
+    Err(buff, path);
+  }
+  
+  return (access(CHARS(path), mode) == 0) ? Truth: Ntruth;
+}
+
+
+static SCM my_stat(SCM path, int mode, char *who)
+{
+  struct stat info;
+  
+  if (NSTRINGP(path)) {
+    char buff[100];
+    sprintf(buff, "%s: bad string", who);
+    Err(buff, path);
+  }
+
+  if (stat(CHARS(path), &info) != 0) return Ntruth;
+
+  switch (mode) {
+    case 1: return (S_ISDIR(info.st_mode)) ? Truth : Ntruth;
+    case 2: return (S_ISREG(info.st_mode)) ? Truth : Ntruth;
+  }
+}
+
+PRIMITIVE STk_file_is_directoryp(SCM f)
+{
+  return my_stat(f, 1, "file-is-directory?");
+}
+
+PRIMITIVE STk_file_is_regularp(SCM f)
+{
+  return my_stat(f, 2, "file-is-regular?");
+}
+
+PRIMITIVE STk_file_is_readablep(SCM f)
+{
+  return my_access(f, R_OK, "file-is-readable?");
+}
+
+PRIMITIVE STk_file_is_writablep(SCM f)
+{
+  return my_access(f, W_OK, "file-is-writable?");
+}
+
+PRIMITIVE STk_file_is_executablep(SCM f)
+{
+  return my_access(f, X_OK, "file-is-executable?");
+}
+
+PRIMITIVE STk_file_existp(SCM f)
+{
+  return my_access(f, F_OK, "file-exists?");
+}
+
+
+PRIMITIVE STk_file_glob(SCM l, int len) /* len is unused here */
+{
+  SCM res = NIL;
+  char s[2*MAX_PATH_LENGTH];
+  
+  for ( ; NNULLP(l); l = CDR(l)) {
+    if (NSTRINGP(CAR(l))) Err("glob: bad string", CAR(l));
+    
+    tilde_expand(CHARS(CAR(l)), s);
+
+    res = STk_append(LIST2(res, 
+			   (ISDIRSEP(*s)) ? fileglob(SDIRSEP, s+1, NIL) :
+			   fileglob("", s, NIL)),
+		     2);
+  }
+  return res;
+}
+
diff --git a/Src/userinit.c b/Src/userinit.c
new file mode 100644
index 0000000..99767a7
--- /dev/null
+++ b/Src/userinit.c
@@ -0,0 +1,36 @@
+/*
+ *
+ * u s e r i n i t . c			-- The place where user put his/her
+ *					   initialization
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@kaolin.unice.fr]
+ *    Creation date: 23-Jan-1994 19:09
+ * Last file update: 21-Jul-1996 11:49
+ */
+
+#include "stk.h"
+
+void STk_user_init(void)
+{
+  /* Put here the code you want to be run at init time */
+}
+
+void STk_user_cleanup(void)
+{
+  /* Put here the code you want to be run when the interpreter dies */
+}
diff --git a/Src/vector.c b/Src/vector.c
new file mode 100644
index 0000000..bbdc594
--- /dev/null
+++ b/Src/vector.c
@@ -0,0 +1,216 @@
+/*
+ *
+ * v e c t o r . c 			-- vectors management
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: ???
+ * Last file update: 10-Feb-1996 12:46
+ */
+
+#include <string.h>
+#include "stk.h"
+
+
+SCM STk_makevect(int len, SCM init)
+{
+  long j;
+  SCM  z;
+
+  STk_disallow_sigint();
+  NEWCELL(z, tc_vector);
+ 
+  z->storage_as.vector.dim  = len;
+  z->storage_as.vector.data = (SCM *) must_malloc(len * sizeof(SCM));
+
+  if (init)
+    for(j=0 ;j<len; j++) z->storage_as.vector.data[j] = init;
+
+  STk_allow_sigint();
+  return z;
+}
+
+
+/**** Section 6.8  ****/
+
+PRIMITIVE STk_vectorp(SCM obj)
+{
+  return VECTORP(obj) ? Truth: Ntruth;
+}
+
+PRIMITIVE STk_make_vector(SCM len, SCM init)
+{
+  long k;
+
+  if ((k=STk_integer_value(len))<0) Err("make-vector: bad vector length", len);
+  return STk_makevect(k, init);
+}
+
+PRIMITIVE STk_vector(SCM l, int len)
+{
+  int j;
+  SCM z = STk_makevect(len, NULL);
+  
+  for (j = 0; j < len; j++, l=CDR(l)) {
+    VECT(z)[j] = CAR(l);
+  }
+  return z;
+}
+
+PRIMITIVE STk_vector_length(SCM v)
+{
+  if NTYPEP(v, tc_vector) Err("vector-length: not a vector", v);
+  return STk_makeinteger((long) v->storage_as.vector.dim);
+}
+
+PRIMITIVE STk_vector_ref(SCM v, SCM index)
+{
+  long k;
+
+  if (NVECTORP(v))      	        Err("vector-ref: not a vector", v);
+  if ((k=STk_integer_value(index)) < 0) Err("vector-ref: bad index", index);
+  if (k >= v->storage_as.vector.dim) 
+    Err("vector-ref: index out of bounds", index);
+  return VECT(v)[k];
+}
+
+PRIMITIVE STk_vector_set(SCM v, SCM index, SCM value)
+{
+  long k;
+  
+  if (NVECTORP(v)) 			Err("vector-set!: not a vector", v);
+  if ((k=STk_integer_value(index)) < 0) Err("vector-set!: bad index", index);
+  if (k >= v->storage_as.vector.dim) 
+    Err("vector-set!: index out of bounds", index);
+  
+  VECT(v)[k] = value;
+  return UNDEFINED;
+}
+
+PRIMITIVE STk_vector2list(SCM v)
+{
+  int j, len;
+  SCM z, tmp;
+
+  if (NVECTORP(v)) Err("vector->list: not a vector", v);
+    
+  len = v->storage_as.vector.dim;
+  z   = NIL;
+
+  for (j=0; j<len; j++) {
+    if (j == 0)
+      tmp = z = Cons(VECT(v)[j], NIL);
+    else 
+      tmp = CDR(tmp) = Cons(VECT(v)[j], NIL);
+  }
+  return z;
+}
+
+PRIMITIVE STk_list2vector(SCM l)
+{
+  if (NCONSP(l) && NNULLP(l)) Err("list->vector: not a list", l);
+  return STk_vector(l, STk_llength(l));
+}
+
+
+PRIMITIVE STk_vector_fill(SCM v, SCM fill)
+{
+  int j, len;
+
+  if (NVECTORP(v)) Err("vector-fill!: not a vector", v);
+  
+  for (j=0, len= v->storage_as.vector.dim; j < len; j++) 
+    VECT(v)[j] = fill;
+ 
+  return UNDEFINED;
+}
+
+/*
+ * 
+ * STk bonus
+ *
+ */
+
+PRIMITIVE STk_vector_copy(SCM vect)
+{
+  SCM z;
+  int n;
+
+  if (NVECTORP(vect)) Err("vector-copy: bad vector", vect);
+  n = vect->storage_as.vector.dim;
+  z = STk_makevect(n, NULL);
+  memcpy(VECT(z), VECT(vect), n * sizeof(struct obj*));
+  return z;
+}
+
+PRIMITIVE STk_vector_resize(SCM vect, SCM size)
+{
+  long old_size, new_size;
+
+  if (NVECTORP(vect))  			    Err("vector-resize: bad vector", vect);
+  if ((new_size=STk_integer_value(size))<0) Err("vector-resize: bad new size",size);
+  
+  old_size 		       = vect->storage_as.vector.dim;
+  vect->storage_as.vector.dim  = new_size;
+  vect->storage_as.vector.data = must_realloc(vect->storage_as.vector.data, 
+					      new_size*sizeof(SCM));
+
+  if (old_size < new_size) { /* Fill in new cells with an unbound value */
+    long i;
+    
+    for (i = old_size; i < new_size; i++) 
+      VECT(vect)[i] = UNBOUND;
+  }
+  return vect;
+}
+
+
+PRIMITIVE STk_sort(SCM obj, SCM test)
+{
+  SCM *v;
+  int list = 0;
+  register int i, j, incr, n;
+
+  if (CONSP(obj) || NULLP(obj)) { list = 1; obj = STk_list2vector(obj); }
+  if (NVECTORP(obj)) Err("sort: bad object to sort", obj);
+  
+  obj = STk_vector_copy(obj);
+ 
+  /* 
+   * Use a shell sort. It has good performance on small arrays
+   * This sort should have better performances than a cleverer one 
+   * for the sorts we'll have to do in STklos (which are always small
+   * arrays).
+   */
+
+  v    = VECT(obj);
+  n    = obj->storage_as.vector.dim;
+
+  for (incr = n / 2; incr; incr /= 2) {
+    for (i = incr; i < n; i++) {
+      for (j = i-incr; j >= 0; j -= incr) {
+	if (Apply(test, LIST2(v[j], v[j+incr])) != Ntruth) 
+	  break;
+	else {
+	  SCM tmp   = v[j+incr];
+	  v[j+incr] = v[j];
+	  v[j]	    = tmp;
+	}
+      }
+    }
+  }
+  return list ? STk_vector2list(obj) : obj;
+}
diff --git a/Src/wstk.c b/Src/wstk.c
new file mode 100644
index 0000000..f6418be
--- /dev/null
+++ b/Src/wstk.c
@@ -0,0 +1,64 @@
+/******************************************************************************
+ *
+ * w s t k . c
+ *
+ * Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
+ * 
+ *
+ * Permission to use, copy, and/or distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that both the above copyright notice and this permission notice appear in
+ * all copies and derived works.  Fees for distribution or use of this
+ * software or derived works may only be charged with express written
+ * permission of the copyright holder.  
+ * This software is provided ``as is'' without express or implied warranty.
+ *
+ * This software is a derivative work of other copyrighted softwares; the
+ * copyright notices of these softwares are placed in the file COPYRIGHTS
+ *
+ *
+ *           Author: Erick Gallesio [eg@unice.fr]
+ *    Creation date: 12-May-1993 10:34
+ * Last file update: 21-Jul-1996 11:50
+ *
+ ******************************************************************************/
+#define STK_MAIN
+
+#include <dos.h>
+#include <locale.h>
+#include "stk.h"
+#include "tkWinInt.h"
+
+void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format));
+
+int APIENTRY WinMain(HINSTANCE hInstance, 
+			  HINSTANCE hPrevInstance, 
+			  LPSTR lpszCmdLine, 
+			  int nCmdShow)
+{
+  char **argv;
+  int argc;
+ 
+  /* Set up the default locale to be Windows ANSI character set.  */
+  setlocale(LC_ALL, "");
+  
+  Tcl_SetPanicProc(STk_panic);
+
+  argv = (char **) STk_Win32_make_argc_argv(lpszCmdLine, &argc);
+
+  TkWinXInit(hInstance);
+  
+  /*
+   * Increase the application queue size from default value of 8.
+   * At the default value, cross application SendMessage of WM_KILLFOCUS
+   * will fail because the handler will not be able to do a PostMessage!
+   * This is only needed for Windows 3.x, since NT dynamically expands
+   * the queue.
+   */
+  SetMessageQueue(64);
+  
+  STk_toplevel(argc, argv);
+  return 0;
+}
+
+
diff --git a/Tcl/Makefile.in b/Tcl/Makefile.in
new file mode 100644
index 0000000..5aa4040
--- /dev/null
+++ b/Tcl/Makefile.in
@@ -0,0 +1,75 @@
+#
+# This Makefile permits to build a subset of libtcl.a. This subset contains
+# unmodified functions of the original Tcl distribution which are used in 
+# the STk interpreter. Thoses functions are principally utilities functions
+# such as hash tables, regexp, unix utilities
+#
+
+include ../config.make
+
+CFLAGS = $(STKCFLAGS) $(DFLGS) -I. -I.. @DEFS@
+OBJ    = panic.o tclHash.o tclGet.o regexp.o tclAsync.o tclUtil.o \
+	 tclNotify.o @LIBOBJS@
+EVOBJ  = tclEvent.o tclUnixNotfy.o tclUnixTime.o  tclPreserve.o
+
+all: libtcl.a libevtcl.a
+
+libtcl.a: $(OBJ) 
+	rm -f libtcl.a
+	ar q libtcl.a $(OBJ)
+	$(RANLIB) libtcl.a
+
+libevtcl.a: $(EVOBJ) 
+	rm -f libevtcl.a
+	ar q libevtcl.a $(EVOBJ)
+	$(RANLIB) libevtcl.a
+
+install: all
+
+install.libs: install
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi 
+	$(CP) libtcl.a $(execdir)
+	$(RANLIB) $(execdir)/libtcl.a
+	$(CP) libevtcl.a $(execdir)
+	$(RANLIB) $(execdir)/libevtcl.a
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) tcl.h tclInt.h tclRegexp.h $(incdir)
+
+clean: 
+	@rm -f *.a *.o core *~ Makefile config.*
+
+# Files which must be generated if system does not provide the function they
+# implement
+
+getcwd.o: ./compat/getcwd.c
+	$(CC) -c $(CFLAGS) ./compat/getcwd.c
+
+opendir.o: ./compat/opendir.c
+	$(CC) -c $(CFLAGS) ./compat/opendir.c
+
+strerror.o: ./compat/strerror.c
+	$(CC) -c $(CFLAGS) ./compat/strerror.c
+
+strstr.o: ./compat/strstr.c
+	$(CC) -c $(CFLAGS) ./compat/strstr.c
+
+strtod.o: ./compat/strtod.c
+	$(CC) -c $(CFLAGS) ./compat/strtod.c
+
+strtol.o: ./compat/strtol.c
+	$(CC) -c $(CFLAGS) ./compat/strtol.c
+
+strtoul.o: ./compat/strtoul.c
+	$(CC) -c $(CFLAGS) ./compat/strtoul.c
+
+tmpnam.o: ./compat/tmpnam.c
+	$(CC) -c $(CFLAGS) ./compat/tmpnam.c
+
+waitpid.o: ./compat/waitpid.c
+	$(CC) -c $(CFLAGS) ./compat/waitpid.c
+
+fixstrtod.o: ./compat/fixstrtod.c
+	$(CC) -c $(CFLAGS) ./compat/fixstrtod.c
+
+strncasecmp.o: ./compat/strncasecmp.c
+	$(CC) -c $(CFLAGS) ./compat/strncasecmp.c
diff --git a/Tcl/README b/Tcl/README
new file mode 100644
index 0000000..98dc3c6
--- /dev/null
+++ b/Tcl/README
@@ -0,0 +1,5 @@
+This directory contains files of Tcl which are used by Stk without (or
+with very light) modification.
+Those files correspond to utilities which can be used as is in Scheme
+simulation of Tcl.
+
diff --git a/Tcl/compat/README b/Tcl/compat/README
new file mode 100644
index 0000000..a7b14e9
--- /dev/null
+++ b/Tcl/compat/README
@@ -0,0 +1,8 @@
+This directory contains various header and code files that are
+used make Tcl compatible with various releases of UNIX and UNIX-like
+systems.  Typically, files from this directory are used to compile
+Tcl when a system doesn't contain the corresponding files or when
+they are known to be incorrect.  When the whole world becomes POSIX-
+compliant this directory should be unnecessary.
+
+sccsid = @(#) README 1.2 94/11/04 15:17:09
diff --git a/Tcl/compat/dirent.h b/Tcl/compat/dirent.h
new file mode 100644
index 0000000..395e2c0
--- /dev/null
+++ b/Tcl/compat/dirent.h
@@ -0,0 +1,23 @@
+/*
+ * dirent.h --
+ *
+ *	This file is a replacement for <dirent.h> in systems that
+ *	support the old BSD-style <sys/dir.h> with a "struct direct".
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) dirent.h 1.3 94/12/17 16:26:15
+ */
+
+#ifndef _DIRENT
+#define _DIRENT
+
+#include <sys/dir.h>
+
+#define dirent direct
+
+#endif /* _DIRENT */
diff --git a/Tcl/compat/dirent2.h b/Tcl/compat/dirent2.h
new file mode 100644
index 0000000..4c5307a
--- /dev/null
+++ b/Tcl/compat/dirent2.h
@@ -0,0 +1,59 @@
+/*
+ * dirent.h --
+ *
+ *	Declarations of a library of directory-reading procedures
+ *	in the POSIX style ("struct dirent").
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) dirent2.h 1.3 94/12/17 16:26:16
+ */
+
+#ifndef _DIRENT
+#define _DIRENT
+
+#ifndef _TCL
+#include <tcl.h>
+#endif
+
+/*
+ * Dirent structure, which holds information about a single
+ * directory entry.
+ */
+
+#define MAXNAMLEN 255
+#define DIRBLKSIZ 512
+
+struct dirent {
+    long d_ino;			/* Inode number of entry */
+    short d_reclen;		/* Length of this record */
+    short d_namlen;		/* Length of string in d_name */
+    char d_name[MAXNAMLEN + 1];	/* Name must be no longer than this */
+};
+
+/*
+ * State that keeps track of the reading of a directory (clients
+ * should never look inside this structure;  the fields should
+ * only be accessed by the library procedures).
+ */
+
+typedef struct _dirdesc {
+    int dd_fd;
+    long dd_loc;
+    long dd_size;
+    char dd_buf[DIRBLKSIZ];
+} DIR;
+
+/*
+ * Procedures defined for reading directories:
+ */
+
+extern void		closedir _ANSI_ARGS_((DIR *dirp));
+extern DIR *		opendir _ANSI_ARGS_((char *name));
+extern struct dirent *	readdir _ANSI_ARGS_((DIR *dirp));
+
+#endif /* _DIRENT */
diff --git a/Tcl/compat/fixstrtod.c b/Tcl/compat/fixstrtod.c
new file mode 100644
index 0000000..9a34283
--- /dev/null
+++ b/Tcl/compat/fixstrtod.c
@@ -0,0 +1,38 @@
+/* 
+ * fixstrtod.c --
+ *
+ *	Source code for the "fixstrtod" procedure.  This procedure is
+ *	used in place of strtod under Solaris 2.4, in order to fix
+ *	a bug where the "end" pointer gets set incorrectly.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+static char sccsid[] = "@(#) fixstrtod.c 1.4 95/07/27 12:59:26";
+
+#include <stdio.h>
+
+#undef strtod
+
+/*
+ * Declare strtod explicitly rather than including stdlib.h, since in
+ * somes systems (e.g. SunOS 4.1.4) stdlib.h doesn't declare strtod.
+ */
+
+extern double strtod();
+
+double
+fixstrtod(string, endPtr)
+    char *string;
+    char **endPtr;
+{
+    double d;
+    d = strtod(string, endPtr);
+    if ((endPtr != NULL) && (*endPtr != string) && ((*endPtr)[-1] == 0)) {
+	*endPtr -= 1;
+    }
+    return d;
+}
diff --git a/Tcl/compat/float.h b/Tcl/compat/float.h
new file mode 100644
index 0000000..74e6219
--- /dev/null
+++ b/Tcl/compat/float.h
@@ -0,0 +1,16 @@
+/*
+ * float.h --
+ *
+ *	This is a dummy header file to #include in Tcl when there
+ *	is no float.h in /usr/include.  Right now this file is empty:
+ *	Tcl contains #ifdefs to deal with the lack of definitions;
+ *	all it needs is for the #include statement to work.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) float.h 1.2 94/12/17 16:26:17
+ */
diff --git a/Tcl/compat/getcwd.c b/Tcl/compat/getcwd.c
new file mode 100644
index 0000000..ddb18fc
--- /dev/null
+++ b/Tcl/compat/getcwd.c
@@ -0,0 +1,49 @@
+/* 
+ * getcwd.c --
+ *
+ *	This file provides an implementation of the getcwd procedure
+ *	that uses getwd, for systems with getwd but without getcwd.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) getcwd.c 1.4 94/12/17 16:26:18";
+#endif /* not lint */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+extern char *getwd _ANSI_ARGS_((char *pathname));
+
+char *
+getcwd(buf, size)
+    char *buf;			/* Where to put path for current directory. */
+    size_t size;		/* Number of bytes at buf. */
+{
+    char realBuffer[MAXPATHLEN+1];
+    int length;
+
+    if (getwd(realBuffer) == NULL) {
+	/*
+	 * There's not much we can do besides guess at an errno to
+	 * use for the result (the error message in realBuffer isn't
+	 * much use...).
+	 */
+
+	errno = EACCES;
+	return NULL;
+    }
+    length = strlen(realBuffer);
+    if (length >= size) {
+	errno = ERANGE;
+	return NULL;
+    }
+    strcpy(buf, realBuffer);
+    return buf;
+}
+
diff --git a/Tcl/compat/gettod.c b/Tcl/compat/gettod.c
new file mode 100644
index 0000000..4110262
--- /dev/null
+++ b/Tcl/compat/gettod.c
@@ -0,0 +1,32 @@
+/* 
+ * gettod.c --
+ *
+ *	This file provides the gettimeofday function on systems
+ *	that only have the System V ftime function.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) gettod.c 1.2 96/02/15 12:08:26
+ */
+
+#include "tcl.h"
+#include "tclPort.h"
+#include <sys/timeb.h>
+
+#undef timezone
+
+int
+gettimeofday(tp, tz)
+struct timeval *tp;
+struct timezone *tz;
+{
+    struct timeb t;
+    ftime(&t);
+    tp->tv_sec = t.time;
+    tp->tv_usec = t. millitm * 1000;
+    return 0;
+}
+
diff --git a/Tcl/compat/license.terms b/Tcl/compat/license.terms
new file mode 100644
index 0000000..3dcd816
--- /dev/null
+++ b/Tcl/compat/license.terms
@@ -0,0 +1,32 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+RESTRICTED RIGHTS: Use, duplication or disclosure by the government
+is subject to the restrictions as set forth in subparagraph (c) (1) (ii)
+of the Rights in Technical Data and Computer Software Clause as DFARS
+252.227-7013 and FAR 52.227-19.
diff --git a/Tcl/compat/limits.h b/Tcl/compat/limits.h
new file mode 100644
index 0000000..fbfd726
--- /dev/null
+++ b/Tcl/compat/limits.h
@@ -0,0 +1,22 @@
+/*
+ * limits.h --
+ *
+ *	This is a dummy header file to #include in Tcl when there
+ *	is no limits.h in /usr/include.  There are only a few
+ *	definitions here;  also see tclPort.h, which already
+ *	#defines some of the things here if they're not arleady
+ *	defined.
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) limits.h 1.6 94/12/17 16:26:19
+ */
+
+#define LONG_MIN		0x80000000
+#define LONG_MAX		0x7fffffff
+#define INT_MIN			0x80000000
+#define INT_MAX			0x7fffffff
diff --git a/Tcl/compat/opendir.c b/Tcl/compat/opendir.c
new file mode 100644
index 0000000..32a1e20
--- /dev/null
+++ b/Tcl/compat/opendir.c
@@ -0,0 +1,108 @@
+/* 
+ * opendir.c --
+ *
+ *	This file provides dirent-style directory-reading procedures
+ *	for V7 Unix systems that don't have such procedures.  The
+ *	origin of this code is unclear, but it seems to have come
+ *	originally from Larry Wall.
+ *
+ */
+
+static char sccsid[] = "@(#) opendir.c 1.2 94/11/04 13:55:02";
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+#undef DIRSIZ
+#define DIRSIZ(dp) \
+    ((sizeof (struct dirent) - (MAXNAMLEN+1)) + (((dp)->d_namlen+1 + 3) &~ 3))
+
+/*
+ * open a directory.
+ */
+DIR *
+opendir(name)
+char *name;
+{
+	register DIR *dirp;
+	register int fd;
+	char *myname;
+
+	myname = ((*name == '\0') ? "." : name);
+	if ((fd = open(myname, 0, 0)) == -1)
+		return NULL;
+	if ((dirp = (DIR *)ckalloc(sizeof(DIR))) == NULL) {
+		close (fd);
+		return NULL;
+	}
+	dirp->dd_fd = fd;
+	dirp->dd_loc = 0;
+	return dirp;
+}
+
+/*
+ * read an old style directory entry and present it as a new one
+ */
+#ifndef pyr
+#define	ODIRSIZ	14
+
+struct	olddirect {
+	ino_t	od_ino;
+	char	od_name[ODIRSIZ];
+};
+#else	/* a Pyramid in the ATT universe */
+#define	ODIRSIZ	248
+
+struct	olddirect {
+	long	od_ino;
+	short	od_fill1, od_fill2;
+	char	od_name[ODIRSIZ];
+};
+#endif
+
+/*
+ * get next entry in a directory.
+ */
+struct dirent *
+readdir(dirp)
+register DIR *dirp;
+{
+	register struct olddirect *dp;
+	static struct dirent dir;
+
+	for (;;) {
+		if (dirp->dd_loc == 0) {
+			dirp->dd_size = read(dirp->dd_fd, dirp->dd_buf,
+			    DIRBLKSIZ);
+			if (dirp->dd_size <= 0)
+				return NULL;
+		}
+		if (dirp->dd_loc >= dirp->dd_size) {
+			dirp->dd_loc = 0;
+			continue;
+		}
+		dp = (struct olddirect *)(dirp->dd_buf + dirp->dd_loc);
+		dirp->dd_loc += sizeof(struct olddirect);
+		if (dp->od_ino == 0)
+			continue;
+		dir.d_ino = dp->od_ino;
+		strncpy(dir.d_name, dp->od_name, ODIRSIZ);
+		dir.d_name[ODIRSIZ] = '\0'; /* insure null termination */
+		dir.d_namlen = strlen(dir.d_name);
+		dir.d_reclen = DIRSIZ(&dir);
+		return (&dir);
+	}
+}
+
+/*
+ * close a directory.
+ */
+void
+closedir(dirp)
+register DIR *dirp;
+{
+	close(dirp->dd_fd);
+	dirp->dd_fd = -1;
+	dirp->dd_loc = 0;
+	ckfree((char *) dirp);
+}
diff --git a/Tcl/compat/stdlib.h b/Tcl/compat/stdlib.h
new file mode 100644
index 0000000..dd8cb91
--- /dev/null
+++ b/Tcl/compat/stdlib.h
@@ -0,0 +1,45 @@
+/*
+ * stdlib.h --
+ *
+ *	Declares facilities exported by the "stdlib" portion of
+ *	the C library.  This file isn't complete in the ANSI-C
+ *	sense;  it only declares things that are needed by Tcl.
+ *	This file is needed even on many systems with their own
+ *	stdlib.h (e.g. SunOS) because not all stdlib.h files
+ *	declare all the procedures needed here (such as strtod).
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) stdlib.h 1.9 94/12/17 16:26:20
+ */
+
+#ifndef _STDLIB
+#define _STDLIB
+
+#include <tcl.h>
+
+extern void		abort _ANSI_ARGS_((void));
+extern double		atof _ANSI_ARGS_((CONST char *string));
+extern int		atoi _ANSI_ARGS_((CONST char *string));
+extern long		atol _ANSI_ARGS_((CONST char *string));
+extern char *		calloc _ANSI_ARGS_((unsigned int numElements,
+			    unsigned int size));
+extern void		exit _ANSI_ARGS_((int status));
+extern int		free _ANSI_ARGS_((char *blockPtr));
+extern char *		getenv _ANSI_ARGS_((CONST char *name));
+extern char *		malloc _ANSI_ARGS_((unsigned int numBytes));
+extern void		qsort _ANSI_ARGS_((VOID *base, int n, int size,
+			    int (*compar)(CONST VOID *element1, CONST VOID
+			    *element2)));
+extern char *		realloc _ANSI_ARGS_((char *ptr, unsigned int numBytes));
+extern double		strtod _ANSI_ARGS_((CONST char *string, char **endPtr));
+extern long		strtol _ANSI_ARGS_((CONST char *string, char **endPtr,
+			    int base));
+extern unsigned long	strtoul _ANSI_ARGS_((CONST char *string,
+			    char **endPtr, int base));
+
+#endif /* _STDLIB */
diff --git a/Tcl/compat/strerror.c b/Tcl/compat/strerror.c
new file mode 100644
index 0000000..5810242
--- /dev/null
+++ b/Tcl/compat/strerror.c
@@ -0,0 +1,470 @@
+/* 
+ * strerror.c --
+ *
+ *	Source code for the "strerror" library routine.
+ *
+ * Copyright (c) 1991-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) strerror.c 1.10 94/12/17 16:26:21";
+#endif /* not lint */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+extern int sys_nerr;
+extern char *sys_errlist[];
+/*
+ *----------------------------------------------------------------------
+ *
+ * strerror --
+ *
+ *	Map an integer error number into a printable string.
+ *
+ * Results:
+ *	The return value is a pointer to a string describing
+ *	error.  The first character of string isn't capitalized.
+ *
+ * Side effects:
+ *	Each call to this procedure may overwrite the value returned
+ *	by the previous call.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+strerror(error)
+    int error;			/* Integer identifying error (must be
+				 * one of the officially-defined Sprite
+				 * errors, as defined in errno.h). */
+{
+    static char msg[50];
+
+#ifndef NO_SYS_ERRLIST
+    if ((error <= sys_nerr) && (error > 0)) {
+	return sys_errlist[error];
+    }
+#else
+    switch (error) {
+#ifdef E2BIG
+	case E2BIG: return "argument list too long";
+#endif
+#ifdef EACCES
+	case EACCES: return "permission denied";
+#endif
+#ifdef EADDRINUSE
+	case EADDRINUSE: return "address already in use";
+#endif
+#ifdef EADDRNOTAVAIL
+	case EADDRNOTAVAIL: return "can't assign requested address";
+#endif
+#ifdef EADV
+	case EADV: return "advertise error";
+#endif
+#ifdef EAFNOSUPPORT
+	case EAFNOSUPPORT: return "address family not supported by protocol family";
+#endif
+#ifdef EAGAIN
+	case EAGAIN: return "no more processes";
+#endif
+#ifdef EALIGN
+	case EALIGN: return "EALIGN";
+#endif
+#ifdef EALREADY
+	case EALREADY: return "operation already in progress";
+#endif
+#ifdef EBADE
+	case EBADE: return "bad exchange descriptor";
+#endif
+#ifdef EBADF
+	case EBADF: return "bad file number";
+#endif
+#ifdef EBADFD
+	case EBADFD: return "file descriptor in bad state";
+#endif
+#ifdef EBADMSG
+	case EBADMSG: return "not a data message";
+#endif
+#ifdef EBADR
+	case EBADR: return "bad request descriptor";
+#endif
+#ifdef EBADRPC
+	case EBADRPC: return "RPC structure is bad";
+#endif
+#ifdef EBADRQC
+	case EBADRQC: return "bad request code";
+#endif
+#ifdef EBADSLT
+	case EBADSLT: return "invalid slot";
+#endif
+#ifdef EBFONT
+	case EBFONT: return "bad font file format";
+#endif
+#ifdef EBUSY
+	case EBUSY: return "mount device busy";
+#endif
+#ifdef ECHILD
+	case ECHILD: return "no children";
+#endif
+#ifdef ECHRNG
+	case ECHRNG: return "channel number out of range";
+#endif
+#ifdef ECOMM
+	case ECOMM: return "communication error on send";
+#endif
+#ifdef ECONNABORTED
+	case ECONNABORTED: return "software caused connection abort";
+#endif
+#ifdef ECONNREFUSED
+	case ECONNREFUSED: return "connection refused";
+#endif
+#ifdef ECONNRESET
+	case ECONNRESET: return "connection reset by peer";
+#endif
+#if defined(EDEADLK) && (!defined(EWOULDBLOCK) || (EDEADLK != EWOULDBLOCK))
+	case EDEADLK: return "resource deadlock avoided";
+#endif
+#ifdef EDEADLOCK
+	case EDEADLOCK: return "resource deadlock avoided";
+#endif
+#ifdef EDESTADDRREQ
+	case EDESTADDRREQ: return "destination address required";
+#endif
+#ifdef EDIRTY
+	case EDIRTY: return "mounting a dirty fs w/o force";
+#endif
+#ifdef EDOM
+	case EDOM: return "math argument out of range";
+#endif
+#ifdef EDOTDOT
+	case EDOTDOT: return "cross mount point";
+#endif
+#ifdef EDQUOT
+	case EDQUOT: return "disk quota exceeded";
+#endif
+#ifdef EDUPPKG
+	case EDUPPKG: return "duplicate package name";
+#endif
+#ifdef EEXIST
+	case EEXIST: return "file already exists";
+#endif
+#ifdef EFAULT
+	case EFAULT: return "bad address in system call argument";
+#endif
+#ifdef EFBIG
+	case EFBIG: return "file too large";
+#endif
+#ifdef EHOSTDOWN
+	case EHOSTDOWN: return "host is down";
+#endif
+#ifdef EHOSTUNREACH
+	case EHOSTUNREACH: return "host is unreachable";
+#endif
+#ifdef EIDRM
+	case EIDRM: return "identifier removed";
+#endif
+#ifdef EINIT
+	case EINIT: return "initialization error";
+#endif
+#ifdef EINPROGRESS
+	case EINPROGRESS: return "operation now in progress";
+#endif
+#ifdef EINTR
+	case EINTR: return "interrupted system call";
+#endif
+#ifdef EINVAL
+	case EINVAL: return "invalid argument";
+#endif
+#ifdef EIO
+	case EIO: return "I/O error";
+#endif
+#ifdef EISCONN
+	case EISCONN: return "socket is already connected";
+#endif
+#ifdef EISDIR
+	case EISDIR: return "illegal operation on a directory";
+#endif
+#ifdef EISNAME
+	case EISNAM: return "is a name file";
+#endif
+#ifdef ELBIN
+	case ELBIN: return "ELBIN";
+#endif
+#ifdef EL2HLT
+	case EL2HLT: return "level 2 halted";
+#endif
+#ifdef EL2NSYNC
+	case EL2NSYNC: return "level 2 not synchronized";
+#endif
+#ifdef EL3HLT
+	case EL3HLT: return "level 3 halted";
+#endif
+#ifdef EL3RST
+	case EL3RST: return "level 3 reset";
+#endif
+#ifdef ELIBACC
+	case ELIBACC: return "can not access a needed shared library";
+#endif
+#ifdef ELIBBAD
+	case ELIBBAD: return "accessing a corrupted shared library";
+#endif
+#ifdef ELIBEXEC
+	case ELIBEXEC: return "can not exec a shared library directly";
+#endif
+#ifdef ELIBMAX
+	case ELIBMAX: return
+		"attempting to link in more shared libraries than system limit";
+#endif
+#ifdef ELIBSCN
+	case ELIBSCN: return ".lib section in a.out corrupted";
+#endif
+#ifdef ELNRNG
+	case ELNRNG: return "link number out of range";
+#endif
+#ifdef ELOOP
+	case ELOOP: return "too many levels of symbolic links";
+#endif
+#ifdef EMFILE
+	case EMFILE: return "too many open files";
+#endif
+#ifdef EMLINK
+	case EMLINK: return "too many links";
+#endif
+#ifdef EMSGSIZE
+	case EMSGSIZE: return "message too long";
+#endif
+#ifdef EMULTIHOP
+	case EMULTIHOP: return "multihop attempted";
+#endif
+#ifdef ENAMETOOLONG
+	case ENAMETOOLONG: return "file name too long";
+#endif
+#ifdef ENAVAIL
+	case ENAVAIL: return "not available";
+#endif
+#ifdef ENET
+	case ENET: return "ENET";
+#endif
+#ifdef ENETDOWN
+	case ENETDOWN: return "network is down";
+#endif
+#ifdef ENETRESET
+	case ENETRESET: return "network dropped connection on reset";
+#endif
+#ifdef ENETUNREACH
+	case ENETUNREACH: return "network is unreachable";
+#endif
+#ifdef ENFILE
+	case ENFILE: return "file table overflow";
+#endif
+#ifdef ENOANO
+	case ENOANO: return "anode table overflow";
+#endif
+#if defined(ENOBUFS) && (!defined(ENOSR) || (ENOBUFS != ENOSR))
+	case ENOBUFS: return "no buffer space available";
+#endif
+#ifdef ENOCSI
+	case ENOCSI: return "no CSI structure available";
+#endif
+#ifdef ENODATA
+	case ENODATA: return "no data available";
+#endif
+#ifdef ENODEV
+	case ENODEV: return "no such device";
+#endif
+#ifdef ENOENT
+	case ENOENT: return "no such file or directory";
+#endif
+#ifdef ENOEXEC
+	case ENOEXEC: return "exec format error";
+#endif
+#ifdef ENOLCK
+	case ENOLCK: return "no locks available";
+#endif
+#ifdef ENOLINK
+	case ENOLINK: return "link has be severed";
+#endif
+#ifdef ENOMEM
+	case ENOMEM: return "not enough memory";
+#endif
+#ifdef ENOMSG
+	case ENOMSG: return "no message of desired type";
+#endif
+#ifdef ENONET
+	case ENONET: return "machine is not on the network";
+#endif
+#ifdef ENOPKG
+	case ENOPKG: return "package not installed";
+#endif
+#ifdef ENOPROTOOPT
+	case ENOPROTOOPT: return "bad proocol option";
+#endif
+#ifdef ENOSPC
+	case ENOSPC: return "no space left on device";
+#endif
+#ifdef ENOSR
+	case ENOSR: return "out of stream resources";
+#endif
+#ifdef ENOSTR
+	case ENOSTR: return "not a stream device";
+#endif
+#ifdef ENOSYM
+	case ENOSYM: return "unresolved symbol name";
+#endif
+#ifdef ENOSYS
+	case ENOSYS: return "function not implemented";
+#endif
+#ifdef ENOTBLK
+	case ENOTBLK: return "block device required";
+#endif
+#ifdef ENOTCONN
+	case ENOTCONN: return "socket is not connected";
+#endif
+#ifdef ENOTDIR
+	case ENOTDIR: return "not a directory";
+#endif
+#ifdef ENOTEMPTY
+	case ENOTEMPTY: return "directory not empty";
+#endif
+#ifdef ENOTNAM
+	case ENOTNAM: return "not a name file";
+#endif
+#ifdef ENOTSOCK
+	case ENOTSOCK: return "socket operation on non-socket";
+#endif
+#ifdef ENOTTY
+	case ENOTTY: return "inappropriate device for ioctl";
+#endif
+#ifdef ENOTUNIQ
+	case ENOTUNIQ: return "name not unique on network";
+#endif
+#ifdef ENXIO
+	case ENXIO: return "no such device or address";
+#endif
+#ifdef EOPNOTSUPP
+	case EOPNOTSUPP: return "operation not supported on socket";
+#endif
+#ifdef EPERM
+	case EPERM: return "not owner";
+#endif
+#ifdef EPFNOSUPPORT
+	case EPFNOSUPPORT: return "protocol family not supported";
+#endif
+#ifdef EPIPE
+	case EPIPE: return "broken pipe";
+#endif
+#ifdef EPROCLIM
+	case EPROCLIM: return "too many processes";
+#endif
+#ifdef EPROCUNAVAIL
+	case EPROCUNAVAIL: return "bad procedure for program";
+#endif
+#ifdef EPROGMISMATCH
+	case EPROGMISMATCH: return "program version wrong";
+#endif
+#ifdef EPROGUNAVAIL
+	case EPROGUNAVAIL: return "RPC program not available";
+#endif
+#ifdef EPROTO
+	case EPROTO: return "protocol error";
+#endif
+#ifdef EPROTONOSUPPORT
+	case EPROTONOSUPPORT: return "protocol not suppored";
+#endif
+#ifdef EPROTOTYPE
+	case EPROTOTYPE: return "protocol wrong type for socket";
+#endif
+#ifdef ERANGE
+	case ERANGE: return "math result unrepresentable";
+#endif
+#if defined(EREFUSED) && (!defined(ECONNREFUSED) || (EREFUSED != ECONNREFUSED))
+	case EREFUSED: return "EREFUSED";
+#endif
+#ifdef EREMCHG
+	case EREMCHG: return "remote address changed";
+#endif
+#ifdef EREMDEV
+	case EREMDEV: return "remote device";
+#endif
+#ifdef EREMOTE
+	case EREMOTE: return "pathname hit remote file system";
+#endif
+#ifdef EREMOTEIO
+	case EREMOTEIO: return "remote i/o error";
+#endif
+#ifdef EREMOTERELEASE
+	case EREMOTERELEASE: return "EREMOTERELEASE";
+#endif
+#ifdef EROFS
+	case EROFS: return "read-only file system";
+#endif
+#ifdef ERPCMISMATCH
+	case ERPCMISMATCH: return "RPC version is wrong";
+#endif
+#ifdef ERREMOTE
+	case ERREMOTE: return "object is remote";
+#endif
+#ifdef ESHUTDOWN
+	case ESHUTDOWN: return "can't send afer socket shutdown";
+#endif
+#ifdef ESOCKTNOSUPPORT
+	case ESOCKTNOSUPPORT: return "socket type not supported";
+#endif
+#ifdef ESPIPE
+	case ESPIPE: return "invalid seek";
+#endif
+#ifdef ESRCH
+	case ESRCH: return "no such process";
+#endif
+#ifdef ESRMNT
+	case ESRMNT: return "srmount error";
+#endif
+#ifdef ESTALE
+	case ESTALE: return "stale remote file handle";
+#endif
+#ifdef ESUCCESS
+	case ESUCCESS: return "Error 0";
+#endif
+#ifdef ETIME
+	case ETIME: return "timer expired";
+#endif
+#ifdef ETIMEDOUT
+	case ETIMEDOUT: return "connection timed out";
+#endif
+#ifdef ETOOMANYREFS
+	case ETOOMANYREFS: return "too many references: can't splice";
+#endif
+#ifdef ETXTBSY
+	case ETXTBSY: return "text file or pseudo-device busy";
+#endif
+#ifdef EUCLEAN
+	case EUCLEAN: return "structure needs cleaning";
+#endif
+#ifdef EUNATCH
+	case EUNATCH: return "protocol driver not attached";
+#endif
+#ifdef EUSERS
+	case EUSERS: return "too many users";
+#endif
+#ifdef EVERSION
+	case EVERSION: return "version mismatch";
+#endif
+#if defined(EWOULDBLOCK) && (!defined(EAGAIN) || (EWOULDBLOCK != EAGAIN))
+	case EWOULDBLOCK: return "operation would block";
+#endif
+#ifdef EXDEV
+	case EXDEV: return "cross-domain link";
+#endif
+#ifdef EXFULL
+	case EXFULL: return "message tables full";
+#endif
+    }
+#endif /* ! NO_SYS_ERRLIST */
+    sprintf(msg, "unknown error (%d)", error);
+    return msg;
+}
diff --git a/Tcl/compat/string.h b/Tcl/compat/string.h
new file mode 100644
index 0000000..2ab5510
--- /dev/null
+++ b/Tcl/compat/string.h
@@ -0,0 +1,64 @@
+/*
+ * string.h --
+ *
+ *	Declarations of ANSI C library procedures for string handling.
+ *
+ * Copyright (c) 1991-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) string.h 1.10 94/12/17 16:26:22
+ */
+
+#ifndef _STRING
+#define _STRING
+
+#include <tcl.h>
+
+/*
+ * The following #include is needed to define size_t. (This used to
+ * include sys/stdtypes.h but that doesn't exist on older versions
+ * of SunOS, e.g. 4.0.2, so I'm trying sys/types.h now.... hopefully
+ * it exists everywhere)
+ */
+
+#include <sys/types.h>
+
+extern char *		memchr _ANSI_ARGS_((CONST VOID *s, int c, size_t n));
+extern int		memcmp _ANSI_ARGS_((CONST VOID *s1, CONST VOID *s2,
+			    size_t n));
+extern char *		memcpy _ANSI_ARGS_((VOID *t, CONST VOID *f, size_t n));
+extern char *		memmove _ANSI_ARGS_((VOID *t, CONST VOID *f,
+			    size_t n));
+extern char *		memset _ANSI_ARGS_((VOID *s, int c, size_t n));
+
+extern int		strcasecmp _ANSI_ARGS_((CONST char *s1,
+			    CONST char *s2));
+extern char *		strcat _ANSI_ARGS_((char *dst, CONST char *src));
+extern char *		strchr _ANSI_ARGS_((CONST char *string, int c));
+extern int		strcmp _ANSI_ARGS_((CONST char *s1, CONST char *s2));
+extern char *		strcpy _ANSI_ARGS_((char *dst, CONST char *src));
+extern size_t		strcspn _ANSI_ARGS_((CONST char *string,
+			    CONST char *chars));
+extern char *		strdup _ANSI_ARGS_((CONST char *string));
+extern char *		strerror _ANSI_ARGS_((int error));
+extern size_t		strlen _ANSI_ARGS_((CONST char *string));
+extern int		strncasecmp _ANSI_ARGS_((CONST char *s1,
+			    CONST char *s2, size_t n));
+extern char *		strncat _ANSI_ARGS_((char *dst, CONST char *src,
+			    size_t numChars));
+extern int		strncmp _ANSI_ARGS_((CONST char *s1, CONST char *s2,
+			    size_t nChars));
+extern char *		strncpy _ANSI_ARGS_((char *dst, CONST char *src,
+			    size_t numChars));
+extern char *		strpbrk _ANSI_ARGS_((CONST char *string, char *chars));
+extern char *		strrchr _ANSI_ARGS_((CONST char *string, int c));
+extern size_t		strspn _ANSI_ARGS_((CONST char *string,
+			    CONST char *chars));
+extern char *		strstr _ANSI_ARGS_((CONST char *string,
+			    CONST char *substring));
+extern char *		strtok _ANSI_ARGS_((CONST char *s, CONST char *delim));
+
+#endif /* _STRING */
diff --git a/Tcl/compat/strncasecmp.c b/Tcl/compat/strncasecmp.c
new file mode 100644
index 0000000..7efa7b7
--- /dev/null
+++ b/Tcl/compat/strncasecmp.c
@@ -0,0 +1,95 @@
+/* 
+ * strncasecmp.c --
+ *
+ *	Source code for the "strncasecmp" library routine.
+ *
+ * Copyright (c) 1988-1993 The Regents of the University of California.
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+static char sccsid[] = "@(#) strncasecmp.c 1.1 94/12/26 15:13:47";
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * strncasecmp --
+ *
+ *	Compares two strings, ignoring case differences.
+ *
+ * Results:
+ *	Compares up to length chars of s1 and s2, returning -1, 0, or 1
+ *	if s1 is lexicographically less than, equal to, or greater
+ *	than s2 over those characters.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+strncasecmp(s1, s2, length)
+    char *s1;			/* First string. */
+    char *s2;			/* Second string. */
+    int length;			/* Maximum number of characters to compare
+				 * (stop earlier if the end of either string
+				 * is reached). */
+{
+    unsigned char u1, u2;
+
+    /*
+     * This array is designed for mapping upper and lower case letter
+     * together for a case independent comparison.  The mappings are
+     * based upon ASCII character sequences.
+     */
+
+    static unsigned char charmap[] = {
+	0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
+	0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
+	0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
+	0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f,
+	0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27,
+	0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
+	0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
+	0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
+	0x40, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
+	0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
+	0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
+	0x78, 0x79, 0x7a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
+	0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
+	0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
+	0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
+	0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
+	0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
+	0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
+	0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
+	0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
+	0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
+	0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
+	0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
+	0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
+	0xc0, 0xe1, 0xe2, 0xe3, 0xe4, 0xc5, 0xe6, 0xe7,
+	0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
+	0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
+	0xf8, 0xf9, 0xfa, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
+	0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
+	0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
+	0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
+	0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff,
+    };
+
+    for (; length != 0; length--, s1++, s2++) {
+	u1 = (unsigned char) *s1;
+	u2 = (unsigned char) *s2;
+	if (charmap[u1] != charmap[u2]) {
+	    return charmap[u1] - charmap[u2];
+	}
+	if (u1 == '\0') {
+	    return 0;
+	}
+    }
+    return 0;
+}
diff --git a/Tcl/compat/strstr.c b/Tcl/compat/strstr.c
new file mode 100644
index 0000000..7357b01
--- /dev/null
+++ b/Tcl/compat/strstr.c
@@ -0,0 +1,70 @@
+/* 
+ * strstr.c --
+ *
+ *	Source code for the "strstr" library routine.
+ *
+ * Copyright (c) 1988-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) strstr.c 1.3 94/12/17 16:26:23";
+#endif /* not lint */
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * strstr --
+ *
+ *	Locate the first instance of a substring in a string.
+ *
+ * Results:
+ *	If string contains substring, the return value is the
+ *	location of the first matching instance of substring
+ *	in string.  If string doesn't contain substring, the
+ *	return value is 0.  Matching is done on an exact
+ *	character-for-character basis with no wildcards or special
+ *	characters.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+strstr(string, substring)
+    register char *string;	/* String to search. */
+    char *substring;		/* Substring to try to find in string. */
+{
+    register char *a, *b;
+
+    /* First scan quickly through the two strings looking for a
+     * single-character match.  When it's found, then compare the
+     * rest of the substring.
+     */
+
+    b = substring;
+    if (*b == 0) {
+	return string;
+    }
+    for ( ; *string != 0; string += 1) {
+	if (*string != *b) {
+	    continue;
+	}
+	a = string;
+	while (1) {
+	    if (*b == 0) {
+		return string;
+	    }
+	    if (*a++ != *b++) {
+		break;
+	    }
+	}
+	b = substring;
+    }
+    return (char *) 0;
+}
diff --git a/Tcl/compat/strtod.c b/Tcl/compat/strtod.c
new file mode 100644
index 0000000..c96e20a
--- /dev/null
+++ b/Tcl/compat/strtod.c
@@ -0,0 +1,259 @@
+/* 
+ * strtod.c --
+ *
+ *	Source code for the "strtod" library procedure.
+ *
+ * Copyright (c) 1988-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) strtod.c 1.7 94/12/17 16:26:24";
+#endif /* not lint */
+
+#include "tcl.h"
+#ifdef NO_STDLIB_H
+#   include "compat/stdlib.h"
+#else
+#   include <stdlib.h>
+#endif
+#include <ctype.h>
+
+#ifndef TRUE
+#define TRUE 1
+#define FALSE 0
+#endif
+#ifndef NULL
+#define NULL 0
+#endif
+
+static int maxExponent = 511;	/* Largest possible base 10 exponent.  Any
+				 * exponent larger than this will already
+				 * produce underflow or overflow, so there's
+				 * no need to worry about additional digits.
+				 */
+static double powersOf10[] = {	/* Table giving binary powers of 10.  Entry */
+    10.,			/* is 10^2^i.  Used to convert decimal */
+    100.,			/* exponents into floating-point numbers. */
+    1.0e4,
+    1.0e8,
+    1.0e16,
+    1.0e32,
+    1.0e64,
+    1.0e128,
+    1.0e256
+};
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * strtod --
+ *
+ *	This procedure converts a floating-point number from an ASCII
+ *	decimal representation to internal double-precision format.
+ *
+ * Results:
+ *	The return value is the double-precision floating-point
+ *	representation of the characters in string.  If endPtr isn't
+ *	NULL, then *endPtr is filled in with the address of the
+ *	next character after the last one that was part of the
+ *	floating-point number.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+double
+strtod(string, endPtr)
+    CONST char *string;		/* A decimal ASCII floating-point number,
+				 * optionally preceded by white space.
+				 * Must have form "-I.FE-X", where I is the
+				 * integer part of the mantissa, F is the
+				 * fractional part of the mantissa, and X
+				 * is the exponent.  Either of the signs
+				 * may be "+", "-", or omitted.  Either I
+				 * or F may be omitted, or both.  The decimal
+				 * point isn't necessary unless F is present.
+				 * The "E" may actually be an "e".  E and X
+				 * may both be omitted (but not just one).
+				 */
+    char **endPtr;		/* If non-NULL, store terminating character's
+				 * address here. */
+{
+    int sign, expSign = FALSE;
+    double fraction, dblExp, *d;
+    register CONST char *p;
+    register int c;
+    int exp = 0;		/* Exponent read from "EX" field. */
+    int fracExp = 0;		/* Exponent that derives from the fractional
+				 * part.  Under normal circumstatnces, it is
+				 * the negative of the number of digits in F.
+				 * However, if I is very long, the last digits
+				 * of I get dropped (otherwise a long I with a
+				 * large negative exponent could cause an
+				 * unnecessary overflow on I alone).  In this
+				 * case, fracExp is incremented one for each
+				 * dropped digit. */
+    int mantSize;		/* Number of digits in mantissa. */
+    int decPt;			/* Number of mantissa digits BEFORE decimal
+				 * point. */
+    CONST char *pExp;		/* Temporarily holds location of exponent
+				 * in string. */
+
+    /*
+     * Strip off leading blanks and check for a sign.
+     */
+
+    p = string;
+    while (isspace(*p)) {
+	p += 1;
+    }
+    if (*p == '-') {
+	sign = TRUE;
+	p += 1;
+    } else {
+	if (*p == '+') {
+	    p += 1;
+	}
+	sign = FALSE;
+    }
+
+    /*
+     * Count the number of digits in the mantissa (including the decimal
+     * point), and also locate the decimal point.
+     */
+
+    decPt = -1;
+    for (mantSize = 0; ; mantSize += 1)
+    {
+	c = *p;
+	if (!isdigit(c)) {
+	    if ((c != '.') || (decPt >= 0)) {
+		break;
+	    }
+	    decPt = mantSize;
+	}
+	p += 1;
+    }
+
+    /*
+     * Now suck up the digits in the mantissa.  Use two integers to
+     * collect 9 digits each (this is faster than using floating-point).
+     * If the mantissa has more than 18 digits, ignore the extras, since
+     * they can't affect the value anyway.
+     */
+    
+    pExp  = p;
+    p -= mantSize;
+    if (decPt < 0) {
+	decPt = mantSize;
+    } else {
+	mantSize -= 1;			/* One of the digits was the point. */
+    }
+    if (mantSize > 18) {
+	fracExp = decPt - 18;
+	mantSize = 18;
+    } else {
+	fracExp = decPt - mantSize;
+    }
+    if (mantSize == 0) {
+	fraction = 0.0;
+	p = string;
+	goto done;
+    } else {
+	int frac1, frac2;
+	frac1 = 0;
+	for ( ; mantSize > 9; mantSize -= 1)
+	{
+	    c = *p;
+	    p += 1;
+	    if (c == '.') {
+		c = *p;
+		p += 1;
+	    }
+	    frac1 = 10*frac1 + (c - '0');
+	}
+	frac2 = 0;
+	for (; mantSize > 0; mantSize -= 1)
+	{
+	    c = *p;
+	    p += 1;
+	    if (c == '.') {
+		c = *p;
+		p += 1;
+	    }
+	    frac2 = 10*frac2 + (c - '0');
+	}
+	fraction = (1.0e9 * frac1) + frac2;
+    }
+
+    /*
+     * Skim off the exponent.
+     */
+
+    p = pExp;
+    if ((*p == 'E') || (*p == 'e')) {
+	p += 1;
+	if (*p == '-') {
+	    expSign = TRUE;
+	    p += 1;
+	} else {
+	    if (*p == '+') {
+		p += 1;
+	    }
+	    expSign = FALSE;
+	}
+	while (isdigit(*p)) {
+	    exp = exp * 10 + (*p - '0');
+	    p += 1;
+	}
+    }
+    if (expSign) {
+	exp = fracExp - exp;
+    } else {
+	exp = fracExp + exp;
+    }
+
+    /*
+     * Generate a floating-point number that represents the exponent.
+     * Do this by processing the exponent one bit at a time to combine
+     * many powers of 2 of 10. Then combine the exponent with the
+     * fraction.
+     */
+    
+    if (exp < 0) {
+	expSign = TRUE;
+	exp = -exp;
+    } else {
+	expSign = FALSE;
+    }
+    if (exp > maxExponent) {
+	exp = maxExponent;
+    }
+    dblExp = 1.0;
+    for (d = powersOf10; exp != 0; exp >>= 1, d += 1) {
+	if (exp & 01) {
+	    dblExp *= *d;
+	}
+    }
+    if (expSign) {
+	fraction /= dblExp;
+    } else {
+	fraction *= dblExp;
+    }
+
+done:
+    if (endPtr != NULL) {
+	*endPtr = (char *) p;
+    }
+
+    if (sign) {
+	return -fraction;
+    }
+    return fraction;
+}
diff --git a/Tcl/compat/strtol.c b/Tcl/compat/strtol.c
new file mode 100644
index 0000000..00558de
--- /dev/null
+++ b/Tcl/compat/strtol.c
@@ -0,0 +1,85 @@
+/* 
+ * strtol.c --
+ *
+ *	Source code for the "strtol" library procedure.
+ *
+ * Copyright (c) 1988 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) strtol.c 1.3 94/12/17 16:26:25";
+#endif /* not lint */
+
+#include <ctype.h>
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * strtol --
+ *
+ *	Convert an ASCII string into an integer.
+ *
+ * Results:
+ *	The return value is the integer equivalent of string.  If endPtr
+ *	is non-NULL, then *endPtr is filled in with the character
+ *	after the last one that was part of the integer.  If string
+ *	doesn't contain a valid integer value, then zero is returned
+ *	and *endPtr is set to string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+long int
+strtol(string, endPtr, base)
+    char *string;		/* String of ASCII digits, possibly
+				 * preceded by white space.  For bases
+				 * greater than 10, either lower- or
+				 * upper-case digits may be used.
+				 */
+    char **endPtr;		/* Where to store address of terminating
+				 * character, or NULL. */
+    int base;			/* Base for conversion.  Must be less
+				 * than 37.  If 0, then the base is chosen
+				 * from the leading characters of string:
+				 * "0x" means hex, "0" means octal, anything
+				 * else means decimal.
+				 */
+{
+    register char *p;
+    int result;
+
+    /*
+     * Skip any leading blanks.
+     */
+
+    p = string;
+    while (isspace(*p)) {
+	p += 1;
+    }
+
+    /*
+     * Check for a sign.
+     */
+
+    if (*p == '-') {
+	p += 1;
+	result = -(strtoul(p, endPtr, base));
+    } else {
+	if (*p == '+') {
+	    p += 1;
+	}
+	result = strtoul(p, endPtr, base);
+    }
+    if ((result == 0) && (endPtr != 0) && (*endPtr == p)) {
+	*endPtr = string;
+    }
+    return result;
+}
diff --git a/Tcl/compat/strtoul.c b/Tcl/compat/strtoul.c
new file mode 100644
index 0000000..29dc37f
--- /dev/null
+++ b/Tcl/compat/strtoul.c
@@ -0,0 +1,185 @@
+/* 
+ * strtoul.c --
+ *
+ *	Source code for the "strtoul" library procedure.
+ *
+ * Copyright (c) 1988 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) strtoul.c 1.4 94/12/17 16:26:26";
+#endif /* not lint */
+
+#include <ctype.h>
+
+/*
+ * The table below is used to convert from ASCII digits to a
+ * numerical equivalent.  It maps from '0' through 'z' to integers
+ * (100 for non-digit characters).
+ */
+
+static char cvtIn[] = {
+    0, 1, 2, 3, 4, 5, 6, 7, 8, 9,		/* '0' - '9' */
+    100, 100, 100, 100, 100, 100, 100,		/* punctuation */
+    10, 11, 12, 13, 14, 15, 16, 17, 18, 19,	/* 'A' - 'Z' */
+    20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
+    30, 31, 32, 33, 34, 35,
+    100, 100, 100, 100, 100, 100,		/* punctuation */
+    10, 11, 12, 13, 14, 15, 16, 17, 18, 19,	/* 'a' - 'z' */
+    20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
+    30, 31, 32, 33, 34, 35};
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * strtoul --
+ *
+ *	Convert an ASCII string into an integer.
+ *
+ * Results:
+ *	The return value is the integer equivalent of string.  If endPtr
+ *	is non-NULL, then *endPtr is filled in with the character
+ *	after the last one that was part of the integer.  If string
+ *	doesn't contain a valid integer value, then zero is returned
+ *	and *endPtr is set to string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+unsigned long int
+strtoul(string, endPtr, base)
+    char *string;		/* String of ASCII digits, possibly
+				 * preceded by white space.  For bases
+				 * greater than 10, either lower- or
+				 * upper-case digits may be used.
+				 */
+    char **endPtr;		/* Where to store address of terminating
+				 * character, or NULL. */
+    int base;			/* Base for conversion.  Must be less
+				 * than 37.  If 0, then the base is chosen
+				 * from the leading characters of string:
+				 * "0x" means hex, "0" means octal, anything
+				 * else means decimal.
+				 */
+{
+    register char *p;
+    register unsigned long int result = 0;
+    register unsigned digit;
+    int anyDigits = 0;
+
+    /*
+     * Skip any leading blanks.
+     */
+
+    p = string;
+    while (isspace(*p)) {
+	p += 1;
+    }
+
+    /*
+     * If no base was provided, pick one from the leading characters
+     * of the string.
+     */
+    
+    if (base == 0)
+    {
+	if (*p == '0') {
+	    p += 1;
+	    if (*p == 'x') {
+		p += 1;
+		base = 16;
+	    } else {
+
+		/*
+		 * Must set anyDigits here, otherwise "0" produces a
+		 * "no digits" error.
+		 */
+
+		anyDigits = 1;
+		base = 8;
+	    }
+	}
+	else base = 10;
+    } else if (base == 16) {
+
+	/*
+	 * Skip a leading "0x" from hex numbers.
+	 */
+
+	if ((p[0] == '0') && (p[1] == 'x')) {
+	    p += 2;
+	}
+    }
+
+    /*
+     * Sorry this code is so messy, but speed seems important.  Do
+     * different things for base 8, 10, 16, and other.
+     */
+
+    if (base == 8) {
+	for ( ; ; p += 1) {
+	    digit = *p - '0';
+	    if (digit > 7) {
+		break;
+	    }
+	    result = (result << 3) + digit;
+	    anyDigits = 1;
+	}
+    } else if (base == 10) {
+	for ( ; ; p += 1) {
+	    digit = *p - '0';
+	    if (digit > 9) {
+		break;
+	    }
+	    result = (10*result) + digit;
+	    anyDigits = 1;
+	}
+    } else if (base == 16) {
+	for ( ; ; p += 1) {
+	    digit = *p - '0';
+	    if (digit > ('z' - '0')) {
+		break;
+	    }
+	    digit = cvtIn[digit];
+	    if (digit > 15) {
+		break;
+	    }
+	    result = (result << 4) + digit;
+	    anyDigits = 1;
+	}
+    } else {
+	for ( ; ; p += 1) {
+	    digit = *p - '0';
+	    if (digit > ('z' - '0')) {
+		break;
+	    }
+	    digit = cvtIn[digit];
+	    if (digit >= base) {
+		break;
+	    }
+	    result = result*base + digit;
+	    anyDigits = 1;
+	}
+    }
+
+    /*
+     * See if there were any digits at all.
+     */
+
+    if (!anyDigits) {
+	p = string;
+    }
+
+    if (endPtr != 0) {
+	*endPtr = p;
+    }
+
+    return result;
+}
diff --git a/Tcl/compat/tmpnam.c b/Tcl/compat/tmpnam.c
new file mode 100644
index 0000000..33e8f0b
--- /dev/null
+++ b/Tcl/compat/tmpnam.c
@@ -0,0 +1,39 @@
+/*
+ * Copyright (c) 1988 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that this notice is preserved and that due credit is given
+ * to the University of California at Berkeley. The name of the University
+ * may not be used to endorse or promote products derived from this
+ * software without specific written prior permission. This software
+ * is provided ``as is'' without express or implied warranty.
+ */
+
+static char sccsid[] = "@(#) tmpnam.c 1.1 94/08/09 13:17:13";
+
+#include <sys/param.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+#include <stdio.h>
+
+/*
+ * Use /tmp instead of /usr/tmp, because L_tmpname is only 14 chars
+ * on some machines (like NeXT machines) and /usr/tmp will cause
+ * buffer overflows.
+ */
+
+#define	P_tmpdir	"/tmp"
+
+char *
+tmpnam(s)
+	char *s;
+{
+	static char name[50];
+	char *mktemp();
+
+	if (!s)
+		s = name;
+	(void)sprintf(s, "%s/XXXXXX", P_tmpdir);
+	return(mktemp(s));
+}
diff --git a/Tcl/compat/unistd.h b/Tcl/compat/unistd.h
new file mode 100644
index 0000000..66e1250
--- /dev/null
+++ b/Tcl/compat/unistd.h
@@ -0,0 +1,83 @@
+/*
+ * unistd.h --
+ *
+ *      Macros, CONSTants and prototypes for Posix conformance.
+ *
+ * Copyright 1989 Regents of the University of California
+ * Permission to use, copy, modify, and distribute this
+ * software and its documentation for any purpose and without
+ * fee is hereby granted, provided that the above copyright
+ * notice appear in all copies.  The University of California
+ * makes no representations about the suitability of this
+ * software for any purpose.  It is provided "as is" without
+ * express or implied warranty.
+ *
+ * @(#) unistd.h 1.5 94/12/17 16:26:27
+ */
+
+#ifndef _UNISTD
+#define _UNISTD
+
+#include <sys/types.h>
+#ifndef _TCL
+#   include "tcl.h"
+#endif
+
+#ifndef NULL
+#define NULL    0
+#endif
+
+/* 
+ * Strict POSIX stuff goes here.  Extensions go down below, in the 
+ * ifndef _POSIX_SOURCE section.
+ */
+
+extern void _exit _ANSI_ARGS_((int status));
+extern int access _ANSI_ARGS_((CONST char *path, int mode));
+extern int chdir _ANSI_ARGS_((CONST char *path));
+extern int chown _ANSI_ARGS_((CONST char *path, uid_t owner, gid_t group));
+extern int close _ANSI_ARGS_((int fd));
+extern int dup _ANSI_ARGS_((int oldfd));
+extern int dup2 _ANSI_ARGS_((int oldfd, int newfd));
+extern int execl _ANSI_ARGS_((CONST char *path, ...));
+extern int execle _ANSI_ARGS_((CONST char *path, ...));
+extern int execlp _ANSI_ARGS_((CONST char *file, ...));
+extern int execv _ANSI_ARGS_((CONST char *path, char **argv));
+extern int execve _ANSI_ARGS_((CONST char *path, char **argv, char **envp));
+extern int execvp _ANSI_ARGS_((CONST char *file, char **argv));
+extern pid_t fork _ANSI_ARGS_((void));
+extern char *getcwd _ANSI_ARGS_((char *buf, size_t size));
+extern gid_t getegid _ANSI_ARGS_((void));
+extern uid_t geteuid _ANSI_ARGS_((void));
+extern gid_t getgid _ANSI_ARGS_((void));
+extern int getgroups _ANSI_ARGS_((int bufSize, int *buffer));
+extern pid_t getpid _ANSI_ARGS_((void));
+extern uid_t getuid _ANSI_ARGS_((void));
+extern int isatty _ANSI_ARGS_((int fd));
+extern long lseek _ANSI_ARGS_((int fd, long offset, int whence));
+extern int pipe _ANSI_ARGS_((int *fildes));
+extern int read _ANSI_ARGS_((int fd, char *buf, size_t size));
+extern int setgid _ANSI_ARGS_((gid_t group));
+extern int setuid _ANSI_ARGS_((uid_t user));
+extern unsigned sleep _ANSI_ARGS_ ((unsigned seconds));
+extern char *ttyname _ANSI_ARGS_((int fd));
+extern int unlink _ANSI_ARGS_((CONST char *path));
+extern int write _ANSI_ARGS_((int fd, CONST char *buf, size_t size));
+
+#ifndef	_POSIX_SOURCE
+extern char *crypt _ANSI_ARGS_((CONST char *, CONST char *));
+extern int fchown _ANSI_ARGS_((int fd, uid_t owner, gid_t group));
+extern int flock _ANSI_ARGS_((int fd, int operation));
+extern int ftruncate _ANSI_ARGS_((int fd, unsigned long length));
+extern int readlink _ANSI_ARGS_((CONST char *path, char *buf, int bufsize));
+extern int setegid _ANSI_ARGS_((gid_t group));
+extern int seteuid _ANSI_ARGS_((uid_t user));
+extern int setreuid _ANSI_ARGS_((int ruid, int euid));
+extern int symlink _ANSI_ARGS_((CONST char *, CONST char *));
+extern int ttyslot _ANSI_ARGS_((void));
+extern int truncate _ANSI_ARGS_((CONST char *path, unsigned long length));
+extern int vfork _ANSI_ARGS_((void));
+#endif /* _POSIX_SOURCE */
+
+#endif /* _UNISTD */
+
diff --git a/Tcl/compat/waitpid.c b/Tcl/compat/waitpid.c
new file mode 100644
index 0000000..5198c59
--- /dev/null
+++ b/Tcl/compat/waitpid.c
@@ -0,0 +1,172 @@
+/* 
+ * waitpid.c --
+ *
+ *	This procedure emulates the POSIX waitpid kernel call on
+ *	BSD systems that don't have waitpid but do have wait3.
+ *	This code is based on a prototype version written by
+ *	Mark Diekhans and Karl Lehenbauer.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#) waitpid.c 1.7 94/12/17 16:26:27";
+#endif /* not lint */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * A linked list of the following structures is used to keep track
+ * of processes for which we received notification from the kernel,
+ * but the application hasn't waited for them yet (this can happen
+ * because wait may not return the process we really want).  We
+ * save the information here until the application finally does
+ * wait for the process.
+ */
+
+typedef struct WaitInfo {
+    int pid;				/* Pid of process that exited. */
+    WAIT_STATUS_TYPE status;		/* Status returned when child exited
+					 * or suspended. */
+    struct WaitInfo *nextPtr;		/* Next in list of exited processes. */
+} WaitInfo;
+
+static WaitInfo *deadList = NULL;	/* First in list of all dead
+					 * processes. */
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * waitpid --
+ *
+ *	This procedure emulates the functionality of the POSIX
+ *	waitpid kernel call, using the BSD wait3 kernel call.
+ *	Note:  it doesn't emulate absolutely all of the waitpid
+ *	functionality, in that it doesn't support pid's of 0
+ *	or < -1.
+ *
+ * Results:
+ *	-1 is returned if there is an error in the wait kernel call.
+ *	Otherwise the pid of an exited or suspended process is
+ *	returned and *statusPtr is set to the status value of the
+ *	process.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+#ifdef waitpid
+#   undef waitpid
+#endif
+
+int
+waitpid(pid, statusPtr, options)
+    int pid;			/* The pid to wait on.  Must be -1 or
+				 * greater than zero. */
+    int *statusPtr;		/* Where to store wait status for the
+				 * process. */
+    int options;		/* OR'ed combination of WNOHANG and
+				 * WUNTRACED. */
+{
+    register WaitInfo *waitPtr, *prevPtr;
+    int result;
+    WAIT_STATUS_TYPE status;
+
+    if ((pid < -1) || (pid == 0)) {
+	errno = EINVAL;
+	return -1;
+    }
+
+    /*
+     * See if there's a suitable process that has already stopped or
+     * exited. If so, remove it from the list of exited processes and
+     * return its information.
+     */
+
+    for (waitPtr = deadList, prevPtr = NULL; waitPtr != NULL;
+	    prevPtr = waitPtr, waitPtr = waitPtr->nextPtr) {
+	if ((pid != waitPtr->pid) && (pid != -1)) {
+	    continue;
+	}
+	if (!(options & WUNTRACED) && (WIFSTOPPED(waitPtr->status))) {
+	    continue;
+	}
+	result = waitPtr->pid;
+	*statusPtr = *((int *) &waitPtr->status);
+	if (prevPtr == NULL) {
+	    deadList = waitPtr->nextPtr;
+	} else {
+	    prevPtr->nextPtr = waitPtr->nextPtr;
+	}
+	ckfree((char *) waitPtr);
+	return result;
+    }
+
+    /*
+     * Wait for any process to stop or exit.  If it's an acceptable one
+     * then return it to the caller;  otherwise store information about it
+     * in the list of exited processes and try again.  On systems that
+     * have only wait but not wait3, there are several situations we can't
+     * handle, but we do the best we can (e.g. can still handle some
+     * combinations of options by invoking wait instead of wait3).
+     */
+
+    while (1) {
+#if NO_WAIT3
+	if (options & WNOHANG) {
+	    return 0;
+	}
+	if (options != 0) {
+	    errno = EINVAL;
+	    return -1;
+	}
+	result = wait(&status);
+#else
+	result = wait3(&status, options, 0);
+#endif
+	if ((result == -1) && (errno == EINTR)) {
+	    continue;
+	}
+	if (result <= 0) {
+	    return result;
+	}
+
+	if ((pid != result) && (pid != -1)) {
+	    goto saveInfo;
+	}
+	if (!(options & WUNTRACED) && (WIFSTOPPED(status))) {
+	    goto saveInfo;
+	}
+	*statusPtr = *((int *) &status);
+	return result;
+
+	/*
+	 * Can't return this info to caller.  Save it in the list of
+	 * stopped or exited processes.  Tricky point: first check for
+	 * an existing entry for the process and overwrite it if it
+	 * exists (e.g. a previously stopped process might now be dead).
+	 */
+
+	saveInfo:
+	for (waitPtr = deadList; waitPtr != NULL; waitPtr = waitPtr->nextPtr) {
+	    if (waitPtr->pid == result) {
+		waitPtr->status = status;
+		goto waitAgain;
+	    }
+	}
+	waitPtr = (WaitInfo *) ckalloc(sizeof(WaitInfo));
+	waitPtr->pid = result;
+	waitPtr->status = status;
+	waitPtr->nextPtr = deadList;
+	deadList = waitPtr;
+
+	waitAgain: continue;
+    }
+}
diff --git a/Tcl/configure b/Tcl/configure
new file mode 100755
index 0000000..108542a
--- /dev/null
+++ b/Tcl/configure
@@ -0,0 +1,4040 @@
+#! /bin/sh
+
+# Guess values for system-dependent variables and create Makefiles.
+# Generated automatically using autoconf version 2.7 
+# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+
+# Defaults:
+ac_help=
+ac_default_prefix=/usr/local
+# Any additions from configure.in:
+ac_help="$ac_help
+  --enable-gcc            allow use of gcc if available"
+ac_help="$ac_help
+  --disable-load          disallow dynamic loading and "load" command"
+ac_help="$ac_help
+  --enable-shared         build libtcl as a shared library"
+
+# Initialize some variables set by options.
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+build=NONE
+cache_file=./config.cache
+exec_prefix=NONE
+host=NONE
+no_create=
+nonopt=NONE
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+target=NONE
+verbose=
+x_includes=NONE
+x_libraries=NONE
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datadir='${prefix}/share'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+libdir='${exec_prefix}/lib'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+infodir='${prefix}/info'
+mandir='${prefix}/man'
+
+# Initialize some other variables.
+subdirs=
+MFLAGS= MAKEFLAGS=
+
+ac_prev=
+for ac_option
+do
+
+  # If the previous option needs an argument, assign it.
+  if test -n "$ac_prev"; then
+    eval "$ac_prev=\$ac_option"
+    ac_prev=
+    continue
+  fi
+
+  case "$ac_option" in
+  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
+  *) ac_optarg= ;;
+  esac
+
+  # Accept the important Cygnus configure options, so we can diagnose typos.
+
+  case "$ac_option" in
+
+  -bindir | --bindir | --bindi | --bind | --bin | --bi)
+    ac_prev=bindir ;;
+  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+    bindir="$ac_optarg" ;;
+
+  -build | --build | --buil | --bui | --bu)
+    ac_prev=build ;;
+  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+    build="$ac_optarg" ;;
+
+  -cache-file | --cache-file | --cache-fil | --cache-fi \
+  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+    ac_prev=cache_file ;;
+  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+    cache_file="$ac_optarg" ;;
+
+  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
+    ac_prev=datadir ;;
+  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
+  | --da=*)
+    datadir="$ac_optarg" ;;
+
+  -disable-* | --disable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    eval "enable_${ac_feature}=no" ;;
+
+  -enable-* | --enable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "enable_${ac_feature}='$ac_optarg'" ;;
+
+  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+  | --exec | --exe | --ex)
+    ac_prev=exec_prefix ;;
+  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+  | --exec=* | --exe=* | --ex=*)
+    exec_prefix="$ac_optarg" ;;
+
+  -gas | --gas | --ga | --g)
+    # Obsolete; use --with-gas.
+    with_gas=yes ;;
+
+  -help | --help | --hel | --he)
+    # Omit some internal or obsolete options to make the list less imposing.
+    # This message is too long to be a string in the A/UX 3.1 sh.
+    cat << EOF
+Usage: configure [options] [host]
+Options: [defaults in brackets after descriptions]
+Configuration:
+  --cache-file=FILE       cache test results in FILE
+  --help                  print this message
+  --no-create             do not create output files
+  --quiet, --silent       do not print \`checking...' messages
+  --version               print the version of autoconf that created configure
+Directory and file names:
+  --prefix=PREFIX         install architecture-independent files in PREFIX
+                          [$ac_default_prefix]
+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
+                          [same as prefix]
+  --bindir=DIR            user executables in DIR [EPREFIX/bin]
+  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
+  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
+  --datadir=DIR           read-only architecture-independent data in DIR
+                          [PREFIX/share]
+  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
+  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
+                          [PREFIX/com]
+  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
+  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
+  --includedir=DIR        C header files in DIR [PREFIX/include]
+  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
+  --infodir=DIR           info documentation in DIR [PREFIX/info]
+  --mandir=DIR            man documentation in DIR [PREFIX/man]
+  --srcdir=DIR            find the sources in DIR [configure dir or ..]
+  --program-prefix=PREFIX prepend PREFIX to installed program names
+  --program-suffix=SUFFIX append SUFFIX to installed program names
+  --program-transform-name=PROGRAM
+                          run sed PROGRAM on installed program names
+EOF
+    cat << EOF
+Host type:
+  --build=BUILD           configure for building on BUILD [BUILD=HOST]
+  --host=HOST             configure for HOST [guessed]
+  --target=TARGET         configure for TARGET [TARGET=HOST]
+Features and packages:
+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
+  --x-includes=DIR        X include files are in DIR
+  --x-libraries=DIR       X library files are in DIR
+EOF
+    if test -n "$ac_help"; then
+      echo "--enable and --with options recognized:$ac_help"
+    fi
+    exit 0 ;;
+
+  -host | --host | --hos | --ho)
+    ac_prev=host ;;
+  -host=* | --host=* | --hos=* | --ho=*)
+    host="$ac_optarg" ;;
+
+  -includedir | --includedir | --includedi | --included | --include \
+  | --includ | --inclu | --incl | --inc)
+    ac_prev=includedir ;;
+  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+  | --includ=* | --inclu=* | --incl=* | --inc=*)
+    includedir="$ac_optarg" ;;
+
+  -infodir | --infodir | --infodi | --infod | --info | --inf)
+    ac_prev=infodir ;;
+  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+    infodir="$ac_optarg" ;;
+
+  -libdir | --libdir | --libdi | --libd)
+    ac_prev=libdir ;;
+  -libdir=* | --libdir=* | --libdi=* | --libd=*)
+    libdir="$ac_optarg" ;;
+
+  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+  | --libexe | --libex | --libe)
+    ac_prev=libexecdir ;;
+  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+  | --libexe=* | --libex=* | --libe=*)
+    libexecdir="$ac_optarg" ;;
+
+  -localstatedir | --localstatedir | --localstatedi | --localstated \
+  | --localstate | --localstat | --localsta | --localst \
+  | --locals | --local | --loca | --loc | --lo)
+    ac_prev=localstatedir ;;
+  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
+  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
+    localstatedir="$ac_optarg" ;;
+
+  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+    ac_prev=mandir ;;
+  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+    mandir="$ac_optarg" ;;
+
+  -nfp | --nfp | --nf)
+    # Obsolete; use --without-fp.
+    with_fp=no ;;
+
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c)
+    no_create=yes ;;
+
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+    no_recursion=yes ;;
+
+  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+  | --oldin | --oldi | --old | --ol | --o)
+    ac_prev=oldincludedir ;;
+  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+    oldincludedir="$ac_optarg" ;;
+
+  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+    ac_prev=prefix ;;
+  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+    prefix="$ac_optarg" ;;
+
+  -program-prefix | --program-prefix | --program-prefi | --program-pref \
+  | --program-pre | --program-pr | --program-p)
+    ac_prev=program_prefix ;;
+  -program-prefix=* | --program-prefix=* | --program-prefi=* \
+  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+    program_prefix="$ac_optarg" ;;
+
+  -program-suffix | --program-suffix | --program-suffi | --program-suff \
+  | --program-suf | --program-su | --program-s)
+    ac_prev=program_suffix ;;
+  -program-suffix=* | --program-suffix=* | --program-suffi=* \
+  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+    program_suffix="$ac_optarg" ;;
+
+  -program-transform-name | --program-transform-name \
+  | --program-transform-nam | --program-transform-na \
+  | --program-transform-n | --program-transform- \
+  | --program-transform | --program-transfor \
+  | --program-transfo | --program-transf \
+  | --program-trans | --program-tran \
+  | --progr-tra | --program-tr | --program-t)
+    ac_prev=program_transform_name ;;
+  -program-transform-name=* | --program-transform-name=* \
+  | --program-transform-nam=* | --program-transform-na=* \
+  | --program-transform-n=* | --program-transform-=* \
+  | --program-transform=* | --program-transfor=* \
+  | --program-transfo=* | --program-transf=* \
+  | --program-trans=* | --program-tran=* \
+  | --progr-tra=* | --program-tr=* | --program-t=*)
+    program_transform_name="$ac_optarg" ;;
+
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil)
+    silent=yes ;;
+
+  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+    ac_prev=sbindir ;;
+  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+  | --sbi=* | --sb=*)
+    sbindir="$ac_optarg" ;;
+
+  -sharedstatedir | --sharedstatedir | --sharedstatedi \
+  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+  | --sharedst | --shareds | --shared | --share | --shar \
+  | --sha | --sh)
+    ac_prev=sharedstatedir ;;
+  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+  | --sha=* | --sh=*)
+    sharedstatedir="$ac_optarg" ;;
+
+  -site | --site | --sit)
+    ac_prev=site ;;
+  -site=* | --site=* | --sit=*)
+    site="$ac_optarg" ;;
+
+  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+    ac_prev=srcdir ;;
+  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+    srcdir="$ac_optarg" ;;
+
+  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+  | --syscon | --sysco | --sysc | --sys | --sy)
+    ac_prev=sysconfdir ;;
+  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+    sysconfdir="$ac_optarg" ;;
+
+  -target | --target | --targe | --targ | --tar | --ta | --t)
+    ac_prev=target ;;
+  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+    target="$ac_optarg" ;;
+
+  -v | -verbose | --verbose | --verbos | --verbo | --verb)
+    verbose=yes ;;
+
+  -version | --version | --versio | --versi | --vers)
+    echo "configure generated by autoconf version 2.7"
+    exit 0 ;;
+
+  -with-* | --with-*)
+    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "with_${ac_package}='$ac_optarg'" ;;
+
+  -without-* | --without-*)
+    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    eval "with_${ac_package}=no" ;;
+
+  --x)
+    # Obsolete; use --with-x.
+    with_x=yes ;;
+
+  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+  | --x-incl | --x-inc | --x-in | --x-i)
+    ac_prev=x_includes ;;
+  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+    x_includes="$ac_optarg" ;;
+
+  -x-libraries | --x-libraries | --x-librarie | --x-librari \
+  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+    ac_prev=x_libraries ;;
+  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+    x_libraries="$ac_optarg" ;;
+
+  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
+    ;;
+
+  *)
+    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
+      echo "configure: warning: $ac_option: invalid host type" 1>&2
+    fi
+    if test "x$nonopt" != xNONE; then
+      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
+    fi
+    nonopt="$ac_option"
+    ;;
+
+  esac
+done
+
+if test -n "$ac_prev"; then
+  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
+fi
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+# File descriptor usage:
+# 0 standard input
+# 1 file creation
+# 2 errors and warnings
+# 3 some systems may open it to /dev/tty
+# 4 used on the Kubota Titan
+# 6 checking for... messages and results
+# 5 compiler messages saved in config.log
+if test "$silent" = yes; then
+  exec 6>/dev/null
+else
+  exec 6>&1
+fi
+exec 5>./config.log
+
+echo "\
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+" 1>&5
+
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Also quote any args containing shell metacharacters.
+ac_configure_args=
+for ac_arg
+do
+  case "$ac_arg" in
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c) ;;
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
+  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
+  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
+  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
+  esac
+done
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -rf conftest* confdefs.h
+# AIX cpp loses on an empty file, so make sure it contains at least a newline.
+echo > confdefs.h
+
+# A filename unique to this package, relative to the directory that
+# configure is in, which we can look for to find out if srcdir is correct.
+ac_unique_file=./tcl.h
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+  ac_srcdir_defaulted=yes
+  # Try the directory containing this script, then its parent.
+  ac_prog=$0
+  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
+  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
+  srcdir=$ac_confdir
+  if test ! -r $srcdir/$ac_unique_file; then
+    srcdir=..
+  fi
+else
+  ac_srcdir_defaulted=no
+fi
+if test ! -r $srcdir/$ac_unique_file; then
+  if test "$ac_srcdir_defaulted" = yes; then
+    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
+  else
+    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
+  fi
+fi
+srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
+
+# Prefer explicitly selected file to automatically selected ones.
+if test -z "$CONFIG_SITE"; then
+  if test "x$prefix" != xNONE; then
+    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
+  else
+    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
+  fi
+fi
+for ac_site_file in $CONFIG_SITE; do
+  if test -r "$ac_site_file"; then
+    echo "loading site script $ac_site_file"
+    . "$ac_site_file"
+  fi
+done
+
+if test -r "$cache_file"; then
+  echo "loading cache $cache_file"
+  . $cache_file
+else
+  echo "creating cache $cache_file"
+  > $cache_file
+fi
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='echo $CPP $CPPFLAGS 1>&5;
+$CPP $CPPFLAGS'
+ac_compile='echo ${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5;
+${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
+ac_link='echo ${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5;
+${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
+
+if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
+  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
+  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
+    ac_n= ac_c='
+' ac_t='	'
+  else
+    ac_n=-n ac_c= ac_t=
+  fi
+else
+  ac_n= ac_c='\c' ac_t=
+fi
+
+
+# SCCS: @(#) configure.in 1.102 96/04/17 10:46:25
+
+TCL_VERSION=7.5
+TCL_MAJOR_VERSION=7
+TCL_MINOR_VERSION=5
+VERSION=${TCL_VERSION}
+
+if test "${prefix}" = "NONE"; then
+    prefix=/usr/local
+fi
+if test "${exec_prefix}" = "NONE"; then
+    exec_prefix=$prefix
+fi
+
+# Extract the first word of "ranlib", so it can be a program name with args.
+set dummy ranlib; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test -n "$RANLIB"; then
+  ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
+else
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      ac_cv_prog_RANLIB="ranlib"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":"
+fi
+fi
+RANLIB="$ac_cv_prog_RANLIB"
+if test -n "$RANLIB"; then
+  echo "$ac_t""$RANLIB" 1>&6
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+# Check whether --enable-gcc or --disable-gcc was given.
+if test "${enable_gcc+set}" = set; then
+  enableval="$enable_gcc"
+  tcl_ok=$enableval
+else
+  tcl_ok=no
+fi
+
+if test "$tcl_ok" = "yes"; then
+    # Extract the first word of "gcc", so it can be a program name with args.
+set dummy gcc; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test -n "$CC"; then
+  ac_cv_prog_CC="$CC" # Let the user override the test.
+else
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      ac_cv_prog_CC="gcc"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  test -z "$ac_cv_prog_CC" && ac_cv_prog_CC="cc"
+fi
+fi
+CC="$ac_cv_prog_CC"
+if test -n "$CC"; then
+  echo "$ac_t""$CC" 1>&6
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.c <<EOF
+#ifdef __GNUC__
+  yes;
+#endif
+EOF
+if ${CC-cc} -E conftest.c 2>&5 | egrep yes >/dev/null 2>&1; then
+  ac_cv_prog_gcc=yes
+else
+  ac_cv_prog_gcc=no
+fi
+fi
+
+echo "$ac_t""$ac_cv_prog_gcc" 1>&6
+if test $ac_cv_prog_gcc = yes; then
+  GCC=yes
+  if test "${CFLAGS+set}" != set; then
+    echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_gcc_g'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  echo 'void f(){}' > conftest.c
+if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then
+  ac_cv_prog_gcc_g=yes
+else
+  ac_cv_prog_gcc_g=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_prog_gcc_g" 1>&6
+    if test $ac_cv_prog_gcc_g = yes; then
+      CFLAGS="-g -O"
+    else
+      CFLAGS="-O"
+    fi
+  fi
+else
+  GCC=
+  test "${CFLAGS+set}" = set || CFLAGS="-g"
+fi
+
+else
+    CC=${CC-cc}
+
+fi
+# If we cannot run a trivial program, we must be cross compiling.
+echo $ac_n "checking whether cross-compiling""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_c_cross'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test "$cross_compiling" = yes; then
+  ac_cv_c_cross=yes
+else
+cat > conftest.$ac_ext <<EOF
+#line 664 "configure"
+#include "confdefs.h"
+main(){return(0);}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  ac_cv_c_cross=no
+else
+  ac_cv_c_cross=yes
+fi
+fi
+rm -fr conftest*
+fi
+
+echo "$ac_t""$ac_cv_c_cross" 1>&6
+cross_compiling=$ac_cv_c_cross
+
+
+#--------------------------------------------------------------------
+#	Supply substitutes for missing POSIX library procedures, or
+#	set flags so Tcl uses alternate procedures.
+#--------------------------------------------------------------------
+
+for ac_func in getcwd opendir strerror strstr
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 694 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char $ac_func(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char $ac_func();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+LIBOBJS="$LIBOBJS ${ac_func}.o"
+fi
+
+done
+
+for ac_func in strtol tmpnam waitpid
+do
+echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 743 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char $ac_func(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char $ac_func();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
+choke me
+#else
+$ac_func();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_$ac_func=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+LIBOBJS="$LIBOBJS ${ac_func}.o"
+fi
+
+done
+
+echo $ac_n "checking for strerror""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strerror'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 790 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strerror(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strerror();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strerror) || defined (__stub___strerror)
+choke me
+#else
+strerror();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strerror=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strerror=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strerror`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_STRERROR 1
+EOF
+
+fi
+
+echo $ac_n "checking for getwd""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_getwd'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 838 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char getwd(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char getwd();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_getwd) || defined (__stub___getwd)
+choke me
+#else
+getwd();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_getwd=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_getwd=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'getwd`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_GETWD 1
+EOF
+
+fi
+
+echo $ac_n "checking for wait3""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_wait3'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 886 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char wait3(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char wait3();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_wait3) || defined (__stub___wait3)
+choke me
+#else
+wait3();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_wait3=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_wait3=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'wait3`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_WAIT3 1
+EOF
+
+fi
+
+echo $ac_n "checking for uname""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_uname'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 934 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char uname(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char uname();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_uname) || defined (__stub___uname)
+choke me
+#else
+uname();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_uname=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_uname=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'uname`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_UNAME 1
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	On a few very rare systems, all of the libm.a stuff is
+#	already in libc.a.  Set compiler flags accordingly.
+#	Also, Linux requires the "ieee" library for math to work
+#	right (and it must appear before "-lm").
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for sin""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_sin'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 990 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char sin(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char sin();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_sin) || defined (__stub___sin)
+choke me
+#else
+sin();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_sin=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_sin=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'sin`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  MATH_LIBS=""
+else
+  echo "$ac_t""no" 1>&6
+MATH_LIBS="-lm"
+fi
+
+echo $ac_n "checking for -lieee""... $ac_c" 1>&6
+ac_lib_var=`echo ieee | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lieee  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1038 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  MATH_LIBS="-lieee $MATH_LIBS"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+#--------------------------------------------------------------------
+#	Supply substitutes for missing POSIX header files.  Special
+#	notes:
+#	    - stdlib.h doesn't define strtol, strtoul, or
+#	      strtod insome versions of SunOS
+#	    - some versions of string.h don't declare procedures such
+#	      as strstr
+#--------------------------------------------------------------------
+
+echo $ac_n "checking dirent.h""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1076 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#include <dirent.h>
+int main() { return 0; }
+int t() {
+
+#ifndef _POSIX_SOURCE
+#   ifdef __Lynx__
+	/*
+	 * Generate compilation error to make the test fail:  Lynx headers
+	 * are only valid if really in the POSIX environment.
+	 */
+
+	missing_procedure();
+#   endif
+#endif
+DIR *d;
+struct dirent *entryPtr;
+char *p;
+d = opendir("foobar");
+entryPtr = readdir(d);
+p = entryPtr->d_name;
+closedir(d);
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  tcl_ok=yes
+else
+  rm -rf conftest*
+  tcl_ok=no
+fi
+rm -f conftest*
+
+if test $tcl_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_DIRENT_H 1
+EOF
+
+fi
+echo "$ac_t""$tcl_ok" 1>&6
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+  CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    # This must be in double quotes, not single quotes, because CPP may get
+  # substituted into the Makefile and "${CC-cc}" will confuse make.
+  CPP="${CC-cc} -E"
+  # On the NeXT, cc -E runs the code through the compiler's parser,
+  # not just through cpp.
+  cat > conftest.$ac_ext <<EOF
+#line 1134 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP="${CC-cc} -E -traditional-cpp"
+  cat > conftest.$ac_ext <<EOF
+#line 1148 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+  ac_cv_prog_CPP="$CPP"
+fi
+  CPP="$ac_cv_prog_CPP"
+else
+  ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+ac_safe=`echo "errno.h" | tr './\055' '___'`
+echo $ac_n "checking for errno.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1179 "configure"
+#include "confdefs.h"
+#include <errno.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_ERRNO_H 1
+EOF
+
+fi
+
+ac_safe=`echo "float.h" | tr './\055' '___'`
+echo $ac_n "checking for float.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1212 "configure"
+#include "confdefs.h"
+#include <float.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_FLOAT_H 1
+EOF
+
+fi
+
+ac_safe=`echo "limits.h" | tr './\055' '___'`
+echo $ac_n "checking for limits.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1245 "configure"
+#include "confdefs.h"
+#include <limits.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_LIMITS_H 1
+EOF
+
+fi
+
+ac_safe=`echo "stdlib.h" | tr './\055' '___'`
+echo $ac_n "checking for stdlib.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1278 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+cat > conftest.$ac_ext <<EOF
+#line 1303 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtol" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tcl_ok=0
+fi
+rm -f conftest*
+
+cat > conftest.$ac_ext <<EOF
+#line 1317 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtoul" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tcl_ok=0
+fi
+rm -f conftest*
+
+cat > conftest.$ac_ext <<EOF
+#line 1331 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtod" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tcl_ok=0
+fi
+rm -f conftest*
+
+if test $tcl_ok = 0; then
+    cat >> confdefs.h <<\EOF
+#define NO_STDLIB_H 1
+EOF
+
+fi
+ac_safe=`echo "string.h" | tr './\055' '___'`
+echo $ac_n "checking for string.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1356 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+cat > conftest.$ac_ext <<EOF
+#line 1381 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strstr" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tcl_ok=0
+fi
+rm -f conftest*
+
+cat > conftest.$ac_ext <<EOF
+#line 1395 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strerror" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tcl_ok=0
+fi
+rm -f conftest*
+
+if test $tcl_ok = 0; then
+    cat >> confdefs.h <<\EOF
+#define NO_STRING_H 1
+EOF
+
+fi
+ac_safe=`echo "sys/wait.h" | tr './\055' '___'`
+echo $ac_n "checking for sys/wait.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1420 "configure"
+#include "confdefs.h"
+#include <sys/wait.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_SYS_WAIT_H 1
+EOF
+
+fi
+
+for ac_hdr in unistd.h
+do
+ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1455 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1496 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+int main() { return 0; }
+int t() {
+fd_set readMask, writeMask;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+if test $tk_ok = no; then
+    cat > conftest.$ac_ext <<EOF
+#line 1515 "configure"
+#include "confdefs.h"
+#include <sys/select.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "fd_mask" >/dev/null 2>&1; then
+  rm -rf conftest*
+  tk_ok=yes
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define HAVE_SYS_SELECT_H 1
+EOF
+
+    fi
+fi
+echo "$ac_t""$tk_ok" 1>&6
+if test $tk_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_FD_SET 1
+EOF
+
+fi
+
+#------------------------------------------------------------------------------
+#       Find out all about time handling differences.
+#------------------------------------------------------------------------------
+
+for ac_hdr in sys/time.h
+do
+ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1553 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1586 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#include <sys/time.h>
+#include <time.h>
+int main() { return 0; }
+int t() {
+struct tm *tp;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  ac_cv_header_time=yes
+else
+  rm -rf conftest*
+  ac_cv_header_time=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_header_time" 1>&6
+if test $ac_cv_header_time = yes; then
+  cat >> confdefs.h <<\EOF
+#define TIME_WITH_SYS_TIME 1
+EOF
+
+fi
+
+echo $ac_n "checking whether struct tm is in sys/time.h or time.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1620 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#include <time.h>
+int main() { return 0; }
+int t() {
+struct tm *tp; tp->tm_sec;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  ac_cv_struct_tm=time.h
+else
+  rm -rf conftest*
+  ac_cv_struct_tm=sys/time.h
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_struct_tm" 1>&6
+if test $ac_cv_struct_tm = sys/time.h; then
+  cat >> confdefs.h <<\EOF
+#define TM_IN_SYS_TIME 1
+EOF
+
+fi
+
+echo $ac_n "checking for tm_zone in struct tm""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_struct_tm_zone'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1653 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#include <$ac_cv_struct_tm>
+int main() { return 0; }
+int t() {
+struct tm tm; tm.tm_zone;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  ac_cv_struct_tm_zone=yes
+else
+  rm -rf conftest*
+  ac_cv_struct_tm_zone=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_struct_tm_zone" 1>&6
+if test "$ac_cv_struct_tm_zone" = yes; then
+  cat >> confdefs.h <<\EOF
+#define HAVE_TM_ZONE 1
+EOF
+
+else
+  echo $ac_n "checking for tzname""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_var_tzname'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1685 "configure"
+#include "confdefs.h"
+#include <time.h>
+#ifndef tzname /* For SGI.  */
+extern char *tzname[]; /* RS6000 and others reject char **tzname.  */
+#endif
+int main() { return 0; }
+int t() {
+atoi(*tzname);
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  ac_cv_var_tzname=yes
+else
+  rm -rf conftest*
+  ac_cv_var_tzname=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_var_tzname" 1>&6
+  if test $ac_cv_var_tzname = yes; then
+    cat >> confdefs.h <<\EOF
+#define HAVE_TZNAME 1
+EOF
+
+  fi
+fi
+
+
+echo $ac_n "checking tm_tzadj in struct tm""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1719 "configure"
+#include "confdefs.h"
+#include <time.h>
+int main() { return 0; }
+int t() {
+struct tm tm; tm.tm_tzadj;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  cat >> confdefs.h <<\EOF
+#define HAVE_TM_TZADJ 1
+EOF
+
+         echo "$ac_t""yes" 1>&6
+else
+  rm -rf conftest*
+  echo "$ac_t""no" 1>&6
+fi
+rm -f conftest*
+
+
+echo $ac_n "checking tm_gmtoff in struct tm""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1743 "configure"
+#include "confdefs.h"
+#include <time.h>
+int main() { return 0; }
+int t() {
+struct tm tm; tm.tm_gmtoff;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  cat >> confdefs.h <<\EOF
+#define HAVE_TM_GMTOFF 1
+EOF
+
+         echo "$ac_t""yes" 1>&6
+else
+  rm -rf conftest*
+  echo "$ac_t""no" 1>&6
+fi
+rm -f conftest*
+
+
+#
+# Its important to include time.h in this check, as some systems (like convex)
+# have timezone functions, etc.
+#
+echo $ac_n "checking timezone variable""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1771 "configure"
+#include "confdefs.h"
+#include <time.h>
+int main() { return 0; }
+int t() {
+extern long timezone;
+         timezone += 1;
+         exit (0);
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  cat >> confdefs.h <<\EOF
+#define HAVE_TIMEZONE_VAR 1
+EOF
+
+         echo "$ac_t""yes" 1>&6
+else
+  rm -rf conftest*
+  echo "$ac_t""no" 1>&6
+fi
+rm -f conftest*
+
+
+#--------------------------------------------------------------------
+#	On some systems strstr is broken: it returns a pointer even
+#	even if the original string is empty.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking proper strstr implementation""... $ac_c" 1>&6
+if test "$cross_compiling" = yes; then
+  tcl_ok=no
+else
+cat > conftest.$ac_ext <<EOF
+#line 1805 "configure"
+#include "confdefs.h"
+
+extern int strstr();
+int main()
+{
+    exit(strstr("\0test", "test") ? 1 : 0);
+}
+
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  tcl_ok=yes
+else
+  tcl_ok=no
+fi
+fi
+rm -fr conftest*
+if test $tcl_ok = yes; then
+    echo "$ac_t""yes" 1>&6
+else
+    echo "$ac_t""broken, using substitute" 1>&6
+    LIBOBJS="$LIBOBJS strstr.o"
+fi
+
+#--------------------------------------------------------------------
+#	Check for strtoul function.  This is tricky because under some
+#	versions of AIX strtoul returns an incorrect terminator
+#	pointer for the string "0".
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for strtoul""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strtoul'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1841 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strtoul(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strtoul();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strtoul) || defined (__stub___strtoul)
+choke me
+#else
+strtoul();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strtoul=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strtoul=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strtoul`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+if test "$cross_compiling" = yes; then
+  tcl_ok=0
+else
+cat > conftest.$ac_ext <<EOF
+#line 1885 "configure"
+#include "confdefs.h"
+
+extern int strtoul();
+int main()
+{
+    char *string = "0";
+    char *term;
+    int value;
+    value = strtoul(string, &term, 0);
+    if ((value != 0) || (term != (string+1))) {
+        exit(1);
+    }
+    exit(0);
+}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  :
+else
+  tcl_ok=0
+fi
+fi
+rm -fr conftest*
+if test "$tcl_ok" = 0; then
+    test -n "$verbose" && echo "	Adding strtoul.o."
+    LIBOBJS="$LIBOBJS strtoul.o"
+fi
+
+#--------------------------------------------------------------------
+#	Check for the strtod function.  This is tricky because in some
+#	versions of Linux strtod mis-parses strings starting with "+".
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for strtod""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strtod'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1924 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strtod(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strtod();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strtod) || defined (__stub___strtod)
+choke me
+#else
+strtod();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strtod`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+if test "$cross_compiling" = yes; then
+  tcl_ok=0
+else
+cat > conftest.$ac_ext <<EOF
+#line 1968 "configure"
+#include "confdefs.h"
+
+extern double strtod();
+int main()
+{
+    char *string = " +69";
+    char *term;
+    double value;
+    value = strtod(string, &term);
+    if ((value != 69) || (term != (string+4))) {
+	exit(1);
+    }
+    exit(0);
+}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  :
+else
+  tcl_ok=0
+fi
+fi
+rm -fr conftest*
+if test "$tcl_ok" = 0; then
+    test -n "$verbose" && echo "	Adding strtod.o."
+    LIBOBJS="$LIBOBJS strtod.o"
+fi
+
+#--------------------------------------------------------------------
+#	Under Solaris 2.4, strtod returns the wrong value for the
+#	terminating character under some conditions.  Check for this
+#	and if the problem exists use a substitute procedure
+#	"fixstrtod" that corrects the error.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for strtod""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strtod'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2009 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strtod(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strtod();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strtod) || defined (__stub___strtod)
+choke me
+#else
+strtod();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strtod`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_strtod=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_strtod=0
+fi
+
+if test "$tcl_strtod" = 1; then
+    echo $ac_n "checking for Solaris strtod bug""... $ac_c" 1>&6
+    if test "$cross_compiling" = yes; then
+  tcl_ok=0
+else
+cat > conftest.$ac_ext <<EOF
+#line 2055 "configure"
+#include "confdefs.h"
+
+	extern double strtod();
+	int main()
+	{
+	    char *string = "NaN";
+	    char *term;
+	    strtod(string, &term);
+	    if ((term != string) && (term[-1] == 0)) {
+		exit(1);
+	    }
+	    exit(0);
+	}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  tcl_ok=1
+else
+  tcl_ok=0
+fi
+fi
+rm -fr conftest*
+    if test $tcl_ok = 1; then
+	echo "$ac_t""ok" 1>&6
+    else
+	echo "$ac_t""buggy" 1>&6
+	LIBOBJS="$LIBOBJS fixstrtod.o"
+	cat >> confdefs.h <<\EOF
+#define strtod fixstrtod
+EOF
+
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2100 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  ac_cv_header_stdc=yes
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+if test $ac_cv_header_stdc = yes; then
+  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 2122 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "memchr" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 2140 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "free" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+if test "$cross_compiling" = yes; then
+  :
+else
+cat > conftest.$ac_ext <<EOF
+#line 2161 "configure"
+#include "confdefs.h"
+#include <ctype.h>
+#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int main () { int i; for (i = 0; i < 256; i++)
+if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
+exit (0); }
+
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  :
+else
+  ac_cv_header_stdc=no
+fi
+fi
+rm -fr conftest*
+fi
+fi
+
+echo "$ac_t""$ac_cv_header_stdc" 1>&6
+if test $ac_cv_header_stdc = yes; then
+  cat >> confdefs.h <<\EOF
+#define STDC_HEADERS 1
+EOF
+
+fi
+
+echo $ac_n "checking for mode_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2196 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "mode_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_mode_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_mode_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_mode_t" 1>&6
+if test $ac_cv_type_mode_t = no; then
+  cat >> confdefs.h <<\EOF
+#define mode_t int
+EOF
+
+fi
+
+echo $ac_n "checking for pid_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2227 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "pid_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_pid_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_pid_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_pid_t" 1>&6
+if test $ac_cv_type_pid_t = no; then
+  cat >> confdefs.h <<\EOF
+#define pid_t int
+EOF
+
+fi
+
+echo $ac_n "checking for size_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2258 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "size_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_size_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_size_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_size_t" 1>&6
+if test $ac_cv_type_size_t = no; then
+  cat >> confdefs.h <<\EOF
+#define size_t unsigned
+EOF
+
+fi
+
+echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2289 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "uid_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_uid_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_uid_t=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_type_uid_t" 1>&6
+if test $ac_cv_type_uid_t = no; then
+  cat >> confdefs.h <<\EOF
+#define uid_t int
+EOF
+
+  cat >> confdefs.h <<\EOF
+#define gid_t int
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	If a system doesn't have an opendir function (man, that's old!)
+#	then we have to supply a different version of dirent.h which
+#	is compatible with the substitute version of opendir that's
+#	provided.  This version only works with V7-style directories.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for opendir""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_opendir'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2330 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char opendir(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char opendir();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_opendir) || defined (__stub___opendir)
+choke me
+#else
+opendir();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_opendir=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_opendir=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'opendir`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define USE_DIRENT2_H 1
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	Check for the existence of sys_errlist (this is only needed if
+#	there's no strerror, but I don't know how to conditionalize the
+#	check).
+#--------------------------------------------------------------------
+
+echo $ac_n "checking sys_errlist""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 2382 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+
+extern char *sys_errlist[];
+extern int sys_nerr;
+sys_errlist[sys_nerr-1][0] = 0;
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  tcl_ok=yes
+else
+  rm -rf conftest*
+  tcl_ok=no
+fi
+rm -f conftest*
+
+echo "$ac_t""$tcl_ok" 1>&6
+if test $tcl_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_SYS_ERRLIST 1
+EOF
+
+fi
+
+#--------------------------------------------------------------------
+#	The check below checks whether <sys/wait.h> defines the type
+#	"union wait" correctly.  It's needed because of weirdness in
+#	HP-UX where "union wait" is defined in both the BSD and SYS-V
+#	environments.  Checking the usability of WIFEXITED seems to do
+#	the trick.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking union wait""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 2421 "configure"
+#include "confdefs.h"
+#include <sys/types.h> 
+#include <sys/wait.h>
+int main() { return 0; }
+int t() {
+
+union wait x;
+WIFEXITED(x);		/* Generates compiler error if WIFEXITED
+			 * uses an int. */
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  tcl_ok=yes
+else
+  rm -rf conftest*
+  tcl_ok=no
+fi
+rm -f conftest*
+
+echo "$ac_t""$tcl_ok" 1>&6
+if test $tcl_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_UNION_WAIT 1
+EOF
+
+fi
+
+#--------------------------------------------------------------------
+#	Check to see whether the system supports the matherr function
+#	and its associated type "struct exception".
+#--------------------------------------------------------------------
+
+echo $ac_n "checking matherr support""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 2458 "configure"
+#include "confdefs.h"
+#include <math.h>
+int main() { return 0; }
+int t() {
+
+struct exception x;
+x.type = DOMAIN;
+x.type = SING;
+
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tcl_ok=yes
+else
+  rm -rf conftest*
+  tcl_ok=no
+fi
+rm -f conftest*
+
+echo "$ac_t""$tcl_ok" 1>&6
+if test $tcl_ok = yes; then
+    cat >> confdefs.h <<\EOF
+#define NEED_MATHERR 1
+EOF
+
+fi
+
+#--------------------------------------------------------------------
+#	Check to see whether the system provides a vfork kernel call.
+#	If not, then use fork instead.  Also, check for a problem with
+#	vforks and signals that can cause core dumps if a vforked child
+#	resets a signal handler.  If the problem exists, then use fork
+#	instead of vfork.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for vfork""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_vfork'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2500 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char vfork(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char vfork();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_vfork) || defined (__stub___vfork)
+choke me
+#else
+vfork();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_vfork=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_vfork=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'vfork`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+if test "$tcl_ok" = 1; then
+    echo $ac_n "checking vfork/signal bug""... $ac_c" 1>&6;
+    if test "$cross_compiling" = yes; then
+  tcl_ok=0
+else
+cat > conftest.$ac_ext <<EOF
+#line 2546 "configure"
+#include "confdefs.h"
+
+	#include <stdio.h>
+	#include <signal.h>
+	#include <sys/wait.h>
+	int gotSignal = 0;
+	sigProc(sig)
+	    int sig;
+	{
+	    gotSignal = 1;
+	}
+	main()
+	{
+	    int pid, sts;
+	    (void) signal(SIGCHLD, sigProc);
+	    pid = vfork();
+	    if (pid <  0) {
+		exit(1);
+	    } else if (pid == 0) {
+		(void) signal(SIGCHLD, SIG_DFL);
+		_exit(0);
+	    } else {
+		(void) wait(&sts);
+	    }
+	    exit((gotSignal) ? 0 : 1);
+	}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  tcl_ok=1
+else
+  tcl_ok=0
+fi
+fi
+rm -fr conftest*
+    if test "$tcl_ok" = 1; then
+	echo "$ac_t""ok" 1>&6
+    else
+	echo "$ac_t""buggy, using fork instead" 1>&6
+    fi
+fi
+rm -f core
+if test "$tcl_ok" = 0; then
+    cat >> confdefs.h <<\EOF
+#define vfork fork
+EOF
+
+fi
+
+#--------------------------------------------------------------------
+#	Check whether there is an strncasecmp function on this system.
+#	This is a bit tricky because under SCO it's in -lsocket and
+#	under Sequent Dynix it's in -linet.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for strncasecmp""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strncasecmp'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2607 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strncasecmp(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strncasecmp();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strncasecmp) || defined (__stub___strncasecmp)
+choke me
+#else
+strncasecmp();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strncasecmp=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strncasecmp=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strncasecmp`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+if test "$tcl_ok" = 0; then
+    echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
+ac_lib_var=`echo socket | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lsocket  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 2656 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+strncasecmp()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+fi
+if test "$tcl_ok" = 0; then
+    echo $ac_n "checking for -linet""... $ac_c" 1>&6
+ac_lib_var=`echo inet | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-linet  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 2693 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+strncasecmp()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_ok=1
+else
+  echo "$ac_t""no" 1>&6
+tcl_ok=0
+fi
+
+fi
+if test "$tcl_ok" = 0; then
+    LIBOBJS="$LIBOBJS strncasecmp.o"
+fi
+
+#--------------------------------------------------------------------
+#	The code below deals with several issues related to gettimeofday:
+#	1. Some systems don't provide a gettimeofday function at all
+#	   (set NO_GETTOD if this is the case).
+#	2. SGI systems don't use the BSD form of the gettimeofday function,
+#	   but they have a BSDgettimeofday function that can be used instead.
+#	3. See if gettimeofday is declared in the <sys/time.h> header file.
+#	   if not, set the GETTOD_NOT_DECLARED flag so that tclPort.h can
+#	   declare it.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for BSDgettimeofday""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_BSDgettimeofday'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2741 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char BSDgettimeofday(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char BSDgettimeofday();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_BSDgettimeofday) || defined (__stub___BSDgettimeofday)
+choke me
+#else
+BSDgettimeofday();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_BSDgettimeofday=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_BSDgettimeofday=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'BSDgettimeofday`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  cat >> confdefs.h <<\EOF
+#define HAVE_BSDGETTIMEOFDAY 1
+EOF
+
+else
+  echo "$ac_t""no" 1>&6
+echo $ac_n "checking for gettimeofday""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_gettimeofday'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2786 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char gettimeofday(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char gettimeofday();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_gettimeofday) || defined (__stub___gettimeofday)
+choke me
+#else
+gettimeofday();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_gettimeofday=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_gettimeofday=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'gettimeofday`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define NO_GETTOD 1
+EOF
+
+fi
+
+fi
+
+echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 2833 "configure"
+#include "confdefs.h"
+#include <sys/time.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "gettimeofday" >/dev/null 2>&1; then
+  rm -rf conftest*
+  echo "$ac_t""present" 1>&6
+else
+  rm -rf conftest*
+  
+    echo "$ac_t""missing" 1>&6
+    cat >> confdefs.h <<\EOF
+#define GETTOD_NOT_DECLARED 1
+EOF
+
+
+fi
+rm -f conftest*
+
+
+#--------------------------------------------------------------------
+#	Interactive UNIX requires -linet instead of -lsocket, plus it
+#	needs net/errno.h to define the socket-related error codes.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for -linet""... $ac_c" 1>&6
+ac_lib_var=`echo inet | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-linet  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 2867 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -linet"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+ac_safe=`echo "net/errno.h" | tr './\055' '___'`
+echo $ac_n "checking for net/errno.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2899 "configure"
+#include "confdefs.h"
+#include <net/errno.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  cat >> confdefs.h <<\EOF
+#define HAVE_NET_ERRNO_H 1
+EOF
+
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+#--------------------------------------------------------------------
+#	Check for the existence of the -lsocket and -lnsl libraries.
+#	The order here is important, so that they end up in the right
+#	order in the command line generated by make.  Here are some
+#	special considerations:
+#	1. Use "connect" and "accept" to check for -lsocket, and
+#	   "gethostbyname" to check for -lnsl.
+#	2. Use each function name only once:  can't redo a check because
+#	   autoconf caches the results of the last check and won't redo it.
+#	3. Use -lnsl and -lsocket only if they supply procedures that
+#	   aren't already present in the normal libraries.  This is because
+#	   IRIX 5.2 has libraries, but they aren't needed and they're
+#	   bogus:  they goof up name resolution if used.
+#	4. On some SVR4 systems, can't use -lsocket without -lnsl too.
+#	   To get around this problem, check for both libraries together
+#	   if -lsocket doesn't work by itself.
+#--------------------------------------------------------------------
+
+tcl_checkBoth=0
+echo $ac_n "checking for connect""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2950 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char connect(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char connect();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_connect) || defined (__stub___connect)
+choke me
+#else
+connect();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_connect=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_connect=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'connect`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_checkSocket=0
+else
+  echo "$ac_t""no" 1>&6
+tcl_checkSocket=1
+fi
+
+if test "$tcl_checkSocket" = 1; then
+    echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
+ac_lib_var=`echo socket | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lsocket  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 2999 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -lsocket"
+else
+  echo "$ac_t""no" 1>&6
+tcl_checkBoth=1
+fi
+
+fi
+if test "$tcl_checkBoth" = 1; then
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lsocket -lnsl"
+    echo $ac_n "checking for accept""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_accept'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 3035 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char accept(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char accept();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_accept) || defined (__stub___accept)
+choke me
+#else
+accept();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_accept=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_accept=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'accept`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tcl_checkNsl=0
+else
+  echo "$ac_t""no" 1>&6
+LIBS=$tk_oldLibs
+fi
+
+fi
+echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 3081 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char gethostbyname(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char gethostbyname();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_gethostbyname) || defined (__stub___gethostbyname)
+choke me
+#else
+gethostbyname();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_gethostbyname=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_gethostbyname=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'gethostbyname`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+echo $ac_n "checking for -lnsl""... $ac_c" 1>&6
+ac_lib_var=`echo nsl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lnsl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 3126 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -lnsl"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+fi
+
+
+#--------------------------------------------------------------------
+#	The statements below define a collection of symbols related to
+#	dynamic loading and shared libraries:
+#
+#	DL_OBJS -	Name of the object file that implements dynamic
+#			loading for Tcl on this system.
+#	DL_LIBS -	Library file(s) to include in tclsh and other base
+#			applications in order for the "load" command to work.
+#	LD_FLAGS -	Flags to pass to the compiler when linking object
+#			files into an executable application binary such
+#			as tclsh.
+#	LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib",
+#			that tell the run-time dynamic linker where to look
+#			for shared libraries such as libtcl.so.  Depends on
+#			the variable LIB_INSTALL_DIR in the Makefile.
+#	MAKE_LIB -	Command to execute to build the Tcl library;
+#			differs depending on whether or not Tcl is being
+#			compiled as a shared library.
+#	SHLIB_CFLAGS -	Flags to pass to cc when compiling the components
+#			of a shared library (may request position-independent
+#			code, among other things).
+#	SHLIB_LD -	Base command to use for combining object files
+#			into a shared library.
+#	SHLIB_LD_LIBS -	Dependent libraries for the linker to scan when
+#			creating shared libraries.  This symbol typically
+#			goes at the end of the "ld" commands that build
+#			shared libraries. The value of the symbol is
+#			"${LIBS}" if all of the dependent libraries should
+#			be specified when creating a shared library.  If
+#			dependent libraries should not be specified (as on
+#			SunOS 4.x, where they cause the link to fail, or in
+#			general if Tcl and Tk aren't themselves shared
+#			libraries), then this symbol has an empty string
+#			as its value.
+#	SHLIB_SUFFIX -	Suffix to use for the names of dynamically loadable
+#			extensions.  An empty string means we don't know how
+#			to use shared libraries on this platform.
+#	TCL_LIB_FILE -	Name of the file that contains the Tcl library, such
+#			as libtcl7.5.so or libtcl7.5.a.
+#	TCL_LIB_SUFFIX -Specifies everything that comes after the "libtcl"
+#			in the shared library name, using the $VERSION variable
+#			to put the version in the right place.  This is used
+#			by platforms that need non-standard library names.
+#			Examples:  ${VERSION}.so.1.1 on NetBSD, since it needs
+#			to have a version after the .so, and ${VERSION}.a
+#			on AIX, since the Tcl shared library needs to have
+#			a .a extension whereas shared objects for loadable
+#			extensions have a .so extension.  Defaults to
+#			${VERSION}${SHLIB_SUFFIX}.
+#--------------------------------------------------------------------
+
+# Step 1: set the variable "system" to hold the name and version number
+# for the system.  This can usually be done via the "uname" command, but
+# there are a few systems, like Next, where this doesn't work.
+
+echo $ac_n "checking system version (for dynamic loading)""... $ac_c" 1>&6
+if test -f /usr/lib/NextStep/software_version; then
+    system=NEXTSTEP-`awk '/3/,/3/' /usr/lib/NextStep/software_version`
+else
+    system=`uname -s`-`uname -r`
+    if test "$?" -ne 0 ; then
+	echo "$ac_t""unknown (can't find uname command)" 1>&6
+	system=unknown
+    else
+	# Special check for weird MP-RAS system (uname returns weird
+	# results, and the version is kept in special file).
+    
+	if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then
+	    system=MP-RAS-`awk '{print $3}' /etc/.relid'`
+	fi
+	if test "`uname -s`" = "AIX" ; then
+	    system=AIX-`uname -v`.`uname -r`
+	fi
+	echo "$ac_t""$system" 1>&6
+    fi
+fi
+
+# Step 2: check for existence of -ldl library.  This is needed because
+# Linux can use either -ldl or -ldld for dynamic loading.
+
+echo $ac_n "checking for -ldl""... $ac_c" 1>&6
+ac_lib_var=`echo dl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-ldl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 3243 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+dlopen()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  have_dl=yes
+else
+  echo "$ac_t""no" 1>&6
+have_dl=no
+fi
+
+
+# Step 3: disable dynamic loading if requested via a command-line switch.
+
+# Check whether --enable-load or --disable-load was given.
+if test "${enable_load+set}" = set; then
+  enableval="$enable_load"
+  tcl_ok=$enableval
+else
+  tcl_ok=yes
+fi
+
+if test "$tcl_ok" = "no"; then
+    system=unknown
+fi
+
+# Step 4: set configuration options based on system name and version.
+
+fullSrcDir=`cd $srcdir; pwd`
+AIX=no
+TCL_SHARED_LIB_SUFFIX=""
+TCL_UNSHARED_LIB_SUFFIX=""
+TCL_LIB_VERSIONS_OK=ok
+case $system in
+    AIX-*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o tclLoadAix.o"
+	DL_LIBS="-lld"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-L${LIB_INSTALL_DIR}'
+	cat >> confdefs.h <<\EOF
+#define NO_DLFCN_H 1
+EOF
+
+	AIX=yes
+	TCL_SHARED_LIB_SUFFIX='${VERSION}.a'
+	;;
+    HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*)
+	SHLIB_CFLAGS="+z"
+	SHLIB_LD="ld -b"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".sl"
+	DL_OBJS="tclLoadShl.o"
+	DL_LIBS="-ldld"
+	LD_FLAGS="-Wl,-E"
+	LD_SEARCH_FLAGS='-Wl,+b,${LIB_INSTALL_DIR}:.'
+	;;
+    IRIX-4.*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_SUFFIX="..o"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    IRIX-5.*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="ld -shared -rdata_shared"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_INSTALL_DIR}'
+	;;
+    Linux*)
+	SHLIB_CFLAGS="-fPIC"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	if test "$have_dl" = yes; then
+	    SHLIB_LD="${CC} -shared"
+	    DL_OBJS="tclLoadDl.o"
+	    DL_LIBS="-ldl"
+	    LD_FLAGS="-rdynamic"
+	    LD_SEARCH_FLAGS=""
+	else
+	    ac_safe=`echo "dld.h" | tr './\055' '___'`
+echo $ac_n "checking for dld.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 3356 "configure"
+#include "confdefs.h"
+#include <dld.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  
+		SHLIB_LD="ld -shared"
+		DL_OBJS="tclLoadDld.o"
+		DL_LIBS="-ldld"
+		LD_FLAGS=""
+		LD_SEARCH_FLAGS=""
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+	fi
+	;;
+    MP-RAS-02*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    MP-RAS-*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS="-Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+    NetBSD-*|FreeBSD-*)
+	# Not available on all versions:  check for include file.
+	ac_safe=`echo "dlfcn.h" | tr './\055' '___'`
+echo $ac_n "checking for dlfcn.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 3414 "configure"
+#include "confdefs.h"
+#include <dlfcn.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  
+	    SHLIB_CFLAGS="-fpic"
+	    SHLIB_LD="ld -Bshareable"
+	    SHLIB_LD_LIBS=""
+	    SHLIB_SUFFIX=".so"
+	    DL_OBJS="tclLoadDl2.o"
+	    DL_LIBS=""
+	    LD_FLAGS=""
+	    LD_SEARCH_FLAGS=""
+	
+else
+  echo "$ac_t""no" 1>&6
+
+	    SHLIB_CFLAGS=""
+	    SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	    SHLIB_LD_LIBS=""
+	    SHLIB_SUFFIX="..o"
+	    DL_OBJS="tclLoadAout.o"
+	    DL_LIBS=""
+	    LD_FLAGS=""
+	    LD_SEARCH_FLAGS=""
+	
+fi
+
+
+	# FreeBSD doesn't handle version numbers with dots.  Also, have to
+	# append a dummy version number to .so file names.
+
+	TCL_SHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.so.1.0'
+	TCL_UNSHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.a'
+	TCL_LIB_VERSIONS_OK=nodots
+	;;
+    NEXTSTEP-*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="cc -nostdlib -r"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadNext.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-1.012)
+	# OSF/1 1.[012] from OSF, and derivatives, including Paragon OSF/1
+	SHLIB_CFLAGS=""
+	# Hack: make package name same as library name
+	SHLIB_LD='ld -R -export $@:'
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadOSF.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-1.*)
+	# OSF/1 1.3 from OSF using ELF, and derivatives, including AD2
+	SHLIB_CFLAGS="-fpic"
+	SHLIB_LD="ld -shared"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-V*)
+        # Digital OSF/1
+	SHLIB_CFLAGS=""
+	SHLIB_LD='ld -shared -expect_unresolved "*"'
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_INSTALL_DIR}'
+	;;
+    RISCos-*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX="..o"
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    SCO_SV-3.2*)
+        # Note, dlopen is available only on SCO 3.2.5 and greater.  However,
+        # this test works, since "uname -s" was non-standard in 3.2.4 and
+        # below.
+	SHLIB_CFLAGS="-Kpic -belf"
+	SHLIB_LD="ld -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS="-belf -Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+     SINIX*5.4*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    SunOS-4*)
+	SHLIB_CFLAGS="-PIC"
+	SHLIB_LD="ld"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-L${LIB_INSTALL_DIR}'
+
+	# SunOS can't handle version numbers with dots in them in library
+	# specs, like -ltcl7.5, so use -ltcl75 instead.  Also, it
+	# requires an extra version number at the end of .so file names.
+	# So, the library has to have a name like libtcl75.so.1.0
+
+	TCL_SHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.so.1.0'
+	TCL_UNSHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.a'
+	TCL_LIB_VERSIONS_OK=nodots
+	;;
+    SunOS-5*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="/usr/ccs/bin/ld -G -z text"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-R ${LIB_INSTALL_DIR}'
+	;;
+    ULTRIX-4.*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_SUFFIX="..o"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    UNIX_SV*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS="-Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+esac
+
+# If pseudo-static linking is in use (see K. B. Kenny, "Dynamic Loading for
+# Tcl -- What Became of It?".  Proc. 2nd Tcl/Tk Workshop, New Orleans, LA,
+# Computerized Processes Unlimited, 1994), then we need to determine which
+# of several header files defines the a.out file format (a.out.h, sys/exec.h,
+# or sys/exec_aout.h).  At present, we support only a file format that
+# is more or less version-7-compatible.  In particular,
+#	- a.out files must begin with `struct exec'.
+#	- the N_TXTOFF on the `struct exec' must compute the seek address
+#	  of the text segment
+#	- The `struct exec' must contain a_magic, a_text, a_data, a_bss
+#	  and a_entry fields.
+# The following compilation should succeed if and only if either sys/exec.h
+# or a.out.h is usable for the purpose.
+#
+# Note that the modified COFF format used on MIPS Ultrix 4.x is usable; the
+# `struct exec' includes a second header that contains information that
+# duplicates the v7 fields that are needed.
+
+if test "x$DL_OBJS" = "xtclLoadAout.o" ; then
+    echo $ac_n "checking sys/exec.h""... $ac_c" 1>&6
+    cat > conftest.$ac_ext <<EOF
+#line 3613 "configure"
+#include "confdefs.h"
+#include <sys/exec.h>
+int main() { return 0; }
+int t() {
+
+	struct exec foo;
+	unsigned long seek;
+	int flag;
+#if defined(__mips) || defined(mips)
+	seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+	seek = N_TXTOFF (foo);
+#endif
+	flag = (foo.a_magic == OMAGIC);
+	return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tcl_ok=usable
+else
+  rm -rf conftest*
+  tcl_ok=unusable
+fi
+rm -f conftest*
+
+    echo "$ac_t""$tcl_ok" 1>&6
+    if test $tcl_ok = usable; then
+	cat >> confdefs.h <<\EOF
+#define USE_SYS_EXEC_H 1
+EOF
+
+    else
+	echo $ac_n "checking a.out.h""... $ac_c" 1>&6
+	cat > conftest.$ac_ext <<EOF
+#line 3650 "configure"
+#include "confdefs.h"
+#include <a.out.h>
+int main() { return 0; }
+int t() {
+
+	    struct exec foo;
+	    unsigned long seek;
+	    int flag;
+#if defined(__mips) || defined(mips)
+	    seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+	    seek = N_TXTOFF (foo);
+#endif
+	    flag = (foo.a_magic == OMAGIC);
+	    return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+	
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tcl_ok=usable
+else
+  rm -rf conftest*
+  tcl_ok=unusable
+fi
+rm -f conftest*
+
+	echo "$ac_t""$tcl_ok" 1>&6
+	if test $tcl_ok = usable; then
+	    cat >> confdefs.h <<\EOF
+#define USE_A_OUT_H 1
+EOF
+
+	else
+	    echo $ac_n "checking sys/exec_aout.h""... $ac_c" 1>&6
+	    cat > conftest.$ac_ext <<EOF
+#line 3687 "configure"
+#include "confdefs.h"
+#include <sys/exec_aout.h>
+int main() { return 0; }
+int t() {
+
+		struct exec foo;
+		unsigned long seek;
+		int flag;
+#if defined(__mips) || defined(mips)
+		seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+		seek = N_TXTOFF (foo);
+#endif
+		flag = (foo.a_midmag == OMAGIC);
+		return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+	    
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tcl_ok=usable
+else
+  rm -rf conftest*
+  tcl_ok=unusable
+fi
+rm -f conftest*
+
+	    echo "$ac_t""$tcl_ok" 1>&6
+	    if test $tcl_ok = usable; then
+		cat >> confdefs.h <<\EOF
+#define USE_SYS_EXEC_AOUT_H 1
+EOF
+
+	    else
+		DL_OBJS=""
+	    fi
+	fi
+    fi
+fi
+
+if test "x$DL_OBJS" != "x" ; then
+    BUILD_DLTEST="\$(DLTEST_TARGETS)"
+else
+    echo "Can't figure out how to do dynamic loading or shared libraries"
+    echo "on this system."
+    SHLIB_CFLAGS=""
+    SHLIB_LD=""
+    SHLIB_SUFFIX=""
+    DL_OBJS="tclLoadNone.o"
+    DL_LIBS=""
+    LD_FLAGS=""
+    LD_SEARCH_FLAGS=""
+    BUILD_DLTEST=""
+fi
+
+# If we're running gcc, then change the C flags for compiling shared
+# libraries to the right flags for gcc, instead of those for the
+# standard manufacturer compiler.
+
+if test "$DL_OBJS" != "tclLoadNone.o" ; then
+    if test "$CC" = "gcc" -o `$CC -v 2>&1 | grep -c gcc` != "0" ; then
+	SHLIB_CFLAGS="-fPIC"
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	The statements below define a collection of symbols related to
+#	building libtcl as a shared library instead of a static library.
+#--------------------------------------------------------------------
+
+realRanlib=$RANLIB
+if test "$TCL_SHARED_LIB_SUFFIX" = "" ; then
+    TCL_SHARED_LIB_SUFFIX='${VERSION}${SHLIB_SUFFIX}'
+fi
+if test "$TCL_UNSHARED_LIB_SUFFIX" = "" ; then
+    TCL_UNSHARED_LIB_SUFFIX='${VERSION}.a'
+fi
+# Check whether --enable-shared or --disable-shared was given.
+if test "${enable_shared+set}" = set; then
+  enableval="$enable_shared"
+  tcl_ok=$enableval
+else
+  tcl_ok=no
+fi
+
+if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" \
+	-a "${DL_OBJS}" != "tclLoadAout.o" ; then
+    TCL_SHLIB_CFLAGS="${SHLIB_CFLAGS}"
+    TCL_LD_SEARCH_FLAGS="${LD_SEARCH_FLAGS}"
+    eval "TCL_LIB_FILE=libtcl${TCL_SHARED_LIB_SUFFIX}"
+    MAKE_LIB="\${SHLIB_LD} -o ${TCL_LIB_FILE} \${OBJS} ${SHLIB_LD_LIBS}"
+    RANLIB=":"
+else
+    if test "$AIX" = "no" ; then
+	SHLIB_LD_LIBS=""
+    fi
+    TCL_SHLIB_CFLAGS=""
+    TCL_LD_SEARCH_FLAGS=""
+    eval "TCL_LIB_FILE=libtcl${TCL_UNSHARED_LIB_SUFFIX}"
+    MAKE_LIB="ar cr ${TCL_LIB_FILE} \${OBJS}"
+fi
+
+# Note:  in the following variable, it's important to use the absolute
+# path name of the Tcl directory rather than "..":  this is because
+# AIX remembers this path and will attempt to use it at run-time to look
+# up the Tcl library.
+
+if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
+    TCL_BUILD_LIB_SPEC="-L`pwd` -ltcl${VERSION}"
+    TCL_LIB_SPEC="-L${exec_prefix}/lib -ltcl${VERSION}"
+else
+    TCL_BUILD_LIB_SPEC="-L`pwd` -ltcl`echo ${VERSION} | tr -d .`"
+    TCL_LIB_SPEC="-L${exec_prefix}/lib -ltcl`echo ${VERSION} | tr -d .`"
+fi
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+trap '' 1 2 15
+cat > confcache <<\EOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs.  It is not useful on other systems.
+# If it contains results you don't want to keep, you may remove or edit it.
+#
+# By default, configure uses ./config.cache as the cache file,
+# creating it if it does not exist already.  You can give configure
+# the --cache-file=FILE option to use a different cache file; that is
+# what configure does when it calls configure scripts in
+# subdirectories, so they share the cache.
+# Giving --cache-file=/dev/null disables caching, for debugging configure.
+# config.status only pays attention to the cache file if you give it the
+# --recheck option to rerun configure.
+#
+EOF
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(set) 2>&1 |
+  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
+  >> confcache
+if cmp -s $cache_file confcache; then
+  :
+else
+  if test -w $cache_file; then
+    echo "updating cache $cache_file"
+    cat confcache > $cache_file
+  else
+    echo "not updating unwritable cache $cache_file"
+  fi
+fi
+rm -f confcache
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+# Any assignment to VPATH causes Sun make to only execute
+# the first set of double-colon rules, so remove it if not needed.
+# If there is a colon in the path, we need to keep it.
+if test "x$srcdir" = x.; then
+  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
+fi
+
+trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
+
+# Transform confdefs.h into DEFS.
+# Protect against shell expansion while executing Makefile rules.
+# Protect against Makefile macro expansion.
+cat > conftest.defs <<\EOF
+s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
+s%[ 	`~#$^&*(){}\\|;'"<>?]%\\&%g
+s%\[%\\&%g
+s%\]%\\&%g
+s%\$%$$%g
+EOF
+DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
+rm -f conftest.defs
+
+
+# Without the "./", some shells look in PATH for config.status.
+: ${CONFIG_STATUS=./config.status}
+
+echo creating $CONFIG_STATUS
+rm -f $CONFIG_STATUS
+cat > $CONFIG_STATUS <<EOF
+#! /bin/sh
+# Generated automatically by configure.
+# Run this file to recreate the current configuration.
+# This directory was configured as follows,
+# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+#
+# $0 $ac_configure_args
+#
+# Compiler output produced by configure, useful for debugging
+# configure, is in ./config.log if it exists.
+
+ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
+for ac_option
+do
+  case "\$ac_option" in
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
+    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
+  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
+    echo "$CONFIG_STATUS generated by autoconf version 2.7"
+    exit 0 ;;
+  -help | --help | --hel | --he | --h)
+    echo "\$ac_cs_usage"; exit 0 ;;
+  *) echo "\$ac_cs_usage"; exit 1 ;;
+  esac
+done
+
+ac_given_srcdir=$srcdir
+
+trap 'rm -fr `echo "Makefile tclConfig.sh" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+# Protect against being on the right side of a sed subst in config.status.
+sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
+ s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
+$ac_vpsub
+$extrasub
+s%@CFLAGS@%$CFLAGS%g
+s%@CPPFLAGS@%$CPPFLAGS%g
+s%@CXXFLAGS@%$CXXFLAGS%g
+s%@DEFS@%$DEFS%g
+s%@LDFLAGS@%$LDFLAGS%g
+s%@LIBS@%$LIBS%g
+s%@exec_prefix@%$exec_prefix%g
+s%@prefix@%$prefix%g
+s%@program_transform_name@%$program_transform_name%g
+s%@bindir@%$bindir%g
+s%@sbindir@%$sbindir%g
+s%@libexecdir@%$libexecdir%g
+s%@datadir@%$datadir%g
+s%@sysconfdir@%$sysconfdir%g
+s%@sharedstatedir@%$sharedstatedir%g
+s%@localstatedir@%$localstatedir%g
+s%@libdir@%$libdir%g
+s%@includedir@%$includedir%g
+s%@oldincludedir@%$oldincludedir%g
+s%@infodir@%$infodir%g
+s%@mandir@%$mandir%g
+s%@RANLIB@%$RANLIB%g
+s%@CC@%$CC%g
+s%@LIBOBJS@%$LIBOBJS%g
+s%@CPP@%$CPP%g
+s%@BUILD_DLTEST@%$BUILD_DLTEST%g
+s%@DL_LIBS@%$DL_LIBS%g
+s%@DL_OBJS@%$DL_OBJS%g
+s%@LD_FLAGS@%$LD_FLAGS%g
+s%@MAKE_LIB@%$MAKE_LIB%g
+s%@MATH_LIBS@%$MATH_LIBS%g
+s%@SHLIB_CFLAGS@%$SHLIB_CFLAGS%g
+s%@SHLIB_LD@%$SHLIB_LD%g
+s%@SHLIB_LD_LIBS@%$SHLIB_LD_LIBS%g
+s%@SHLIB_SUFFIX@%$SHLIB_SUFFIX%g
+s%@TCL_BUILD_LIB_SPEC@%$TCL_BUILD_LIB_SPEC%g
+s%@TCL_LD_SEARCH_FLAGS@%$TCL_LD_SEARCH_FLAGS%g
+s%@TCL_LIB_FILE@%$TCL_LIB_FILE%g
+s%@TCL_LIB_SPEC@%$TCL_LIB_SPEC%g
+s%@TCL_LIB_VERSIONS_OK@%$TCL_LIB_VERSIONS_OK%g
+s%@TCL_MAJOR_VERSION@%$TCL_MAJOR_VERSION%g
+s%@TCL_MINOR_VERSION@%$TCL_MINOR_VERSION%g
+s%@TCL_SHARED_LIB_SUFFIX@%$TCL_SHARED_LIB_SUFFIX%g
+s%@TCL_SHLIB_CFLAGS@%$TCL_SHLIB_CFLAGS%g
+s%@TCL_UNSHARED_LIB_SUFFIX@%$TCL_UNSHARED_LIB_SUFFIX%g
+s%@TCL_VERSION@%$TCL_VERSION%g
+
+CEOF
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+CONFIG_FILES=\${CONFIG_FILES-"Makefile tclConfig.sh"}
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
+  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  case "$ac_file" in
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
+  *) ac_file_in="${ac_file}.in" ;;
+  esac
+
+  # Adjust relative srcdir, etc. for subdirectories.
+
+  # Remove last slash and all that follows it.  Not all systems have dirname.
+  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
+  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
+    # The file is in a subdirectory.
+    test ! -d "$ac_dir" && mkdir "$ac_dir"
+    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
+    # A "../" for each directory in $ac_dir_suffix.
+    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
+  else
+    ac_dir_suffix= ac_dots=
+  fi
+
+  case "$ac_given_srcdir" in
+  .)  srcdir=.
+      if test -z "$ac_dots"; then top_srcdir=.
+      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
+  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
+  *) # Relative path.
+    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
+    top_srcdir="$ac_dots$ac_given_srcdir" ;;
+  esac
+
+  echo creating "$ac_file"
+  rm -f "$ac_file"
+  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
+  case "$ac_file" in
+  *Makefile*) ac_comsub="1i\\
+# $configure_input" ;;
+  *) ac_comsub= ;;
+  esac
+  sed -e "$ac_comsub
+s%@configure_input@%$configure_input%g
+s%@srcdir@%$srcdir%g
+s%@top_srcdir@%$top_srcdir%g
+" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+fi; done
+rm -f conftest.subs
+
+
+
+exit 0
+EOF
+chmod +x $CONFIG_STATUS
+rm -fr confdefs* $ac_clean_files
+test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
+
diff --git a/Tcl/configure.in b/Tcl/configure.in
new file mode 100644
index 0000000..b43a8b7
--- /dev/null
+++ b/Tcl/configure.in
@@ -0,0 +1,960 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during Tcl installation
+dnl	to configure the system for the local environment.
+AC_INIT(./tcl.h)
+# SCCS: @(#) configure.in 1.102 96/04/17 10:46:25
+
+TCL_VERSION=7.5
+TCL_MAJOR_VERSION=7
+TCL_MINOR_VERSION=5
+VERSION=${TCL_VERSION}
+
+if test "${prefix}" = "NONE"; then
+    prefix=/usr/local
+fi
+if test "${exec_prefix}" = "NONE"; then
+    exec_prefix=$prefix
+fi
+
+AC_PROG_RANLIB
+AC_ARG_ENABLE(gcc, [  --enable-gcc            allow use of gcc if available],
+    [tcl_ok=$enableval], [tcl_ok=no])
+if test "$tcl_ok" = "yes"; then
+    AC_PROG_CC
+else
+    CC=${CC-cc}
+AC_SUBST(CC)
+fi
+AC_C_CROSS
+
+#--------------------------------------------------------------------
+#	Supply substitutes for missing POSIX library procedures, or
+#	set flags so Tcl uses alternate procedures.
+#--------------------------------------------------------------------
+
+AC_REPLACE_FUNCS(getcwd opendir strerror strstr)
+AC_REPLACE_FUNCS(strtol tmpnam waitpid)
+AC_CHECK_FUNC(strerror, , AC_DEFINE(NO_STRERROR))
+AC_CHECK_FUNC(getwd, , AC_DEFINE(NO_GETWD))
+AC_CHECK_FUNC(wait3, , AC_DEFINE(NO_WAIT3))
+AC_CHECK_FUNC(uname, , AC_DEFINE(NO_UNAME))
+
+#--------------------------------------------------------------------
+#	On a few very rare systems, all of the libm.a stuff is
+#	already in libc.a.  Set compiler flags accordingly.
+#	Also, Linux requires the "ieee" library for math to work
+#	right (and it must appear before "-lm").
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(sin, MATH_LIBS="", MATH_LIBS="-lm")
+AC_CHECK_LIB(ieee, main, [MATH_LIBS="-lieee $MATH_LIBS"])
+
+#--------------------------------------------------------------------
+#	Supply substitutes for missing POSIX header files.  Special
+#	notes:
+#	    - stdlib.h doesn't define strtol, strtoul, or
+#	      strtod insome versions of SunOS
+#	    - some versions of string.h don't declare procedures such
+#	      as strstr
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING(dirent.h)
+AC_TRY_LINK([#include <sys/types.h>
+#include <dirent.h>], [
+#ifndef _POSIX_SOURCE
+#   ifdef __Lynx__
+	/*
+	 * Generate compilation error to make the test fail:  Lynx headers
+	 * are only valid if really in the POSIX environment.
+	 */
+
+	missing_procedure();
+#   endif
+#endif
+DIR *d;
+struct dirent *entryPtr;
+char *p;
+d = opendir("foobar");
+entryPtr = readdir(d);
+p = entryPtr->d_name;
+closedir(d);
+], tcl_ok=yes, tcl_ok=no)
+if test $tcl_ok = no; then
+    AC_DEFINE(NO_DIRENT_H)
+fi
+AC_MSG_RESULT($tcl_ok)
+AC_CHECK_HEADER(errno.h, , AC_DEFINE(NO_ERRNO_H))
+AC_CHECK_HEADER(float.h, , AC_DEFINE(NO_FLOAT_H))
+AC_CHECK_HEADER(limits.h, , AC_DEFINE(NO_LIMITS_H))
+AC_CHECK_HEADER(stdlib.h, tcl_ok=1, tcl_ok=0)
+AC_EGREP_HEADER(strtol, stdlib.h, , tcl_ok=0)
+AC_EGREP_HEADER(strtoul, stdlib.h, , tcl_ok=0)
+AC_EGREP_HEADER(strtod, stdlib.h, , tcl_ok=0)
+if test $tcl_ok = 0; then
+    AC_DEFINE(NO_STDLIB_H)
+fi
+AC_CHECK_HEADER(string.h, tcl_ok=1, tcl_ok=0)
+AC_EGREP_HEADER(strstr, string.h, , tcl_ok=0)
+AC_EGREP_HEADER(strerror, string.h, , tcl_ok=0)
+if test $tcl_ok = 0; then
+    AC_DEFINE(NO_STRING_H)
+fi
+AC_CHECK_HEADER(sys/wait.h, , AC_DEFINE(NO_SYS_WAIT_H))
+AC_HAVE_HEADERS(unistd.h)
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([fd_set and sys/select])
+AC_TRY_COMPILE([#include <sys/types.h>],
+	[fd_set readMask, writeMask;], tk_ok=yes, tk_ok=no)
+if test $tk_ok = no; then
+    AC_HEADER_EGREP(fd_mask, sys/select.h, tk_ok=yes)
+    if test $tk_ok = yes; then
+	AC_DEFINE(HAVE_SYS_SELECT_H)
+    fi
+fi
+AC_MSG_RESULT($tk_ok)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_FD_SET)
+fi
+
+#------------------------------------------------------------------------------
+#       Find out all about time handling differences.
+#------------------------------------------------------------------------------
+
+AC_CHECK_HEADERS(sys/time.h)
+AC_HEADER_TIME
+AC_STRUCT_TIMEZONE
+
+AC_MSG_CHECKING([tm_tzadj in struct tm])
+AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_tzadj;],
+        [AC_DEFINE(HAVE_TM_TZADJ)
+         AC_MSG_RESULT(yes)],
+        AC_MSG_RESULT(no))
+
+AC_MSG_CHECKING([tm_gmtoff in struct tm])
+AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_gmtoff;],
+        [AC_DEFINE(HAVE_TM_GMTOFF)
+         AC_MSG_RESULT(yes)],
+        AC_MSG_RESULT(no))
+
+#
+# Its important to include time.h in this check, as some systems (like convex)
+# have timezone functions, etc.
+#
+AC_MSG_CHECKING([timezone variable])
+AC_TRY_COMPILE([#include <time.h>],
+        [extern long timezone;
+         timezone += 1;
+         exit (0);],
+        [AC_DEFINE(HAVE_TIMEZONE_VAR)
+         AC_MSG_RESULT(yes)],
+        AC_MSG_RESULT(no))
+
+#--------------------------------------------------------------------
+#	On some systems strstr is broken: it returns a pointer even
+#	even if the original string is empty.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([proper strstr implementation])
+AC_TRY_RUN([
+extern int strstr();
+int main()
+{
+    exit(strstr("\0test", "test") ? 1 : 0);
+}
+], tcl_ok=yes, tcl_ok=no, tcl_ok=no)
+if test $tcl_ok = yes; then
+    AC_MSG_RESULT(yes)
+else
+    AC_MSG_RESULT([broken, using substitute])
+    LIBOBJS="$LIBOBJS strstr.o"
+fi
+
+#--------------------------------------------------------------------
+#	Check for strtoul function.  This is tricky because under some
+#	versions of AIX strtoul returns an incorrect terminator
+#	pointer for the string "0".
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strtoul, tcl_ok=1, tcl_ok=0)
+AC_TRY_RUN([
+extern int strtoul();
+int main()
+{
+    char *string = "0";
+    char *term;
+    int value;
+    value = strtoul(string, &term, 0);
+    if ((value != 0) || (term != (string+1))) {
+        exit(1);
+    }
+    exit(0);
+}], , tcl_ok=0, tcl_ok=0)
+if test "$tcl_ok" = 0; then
+    test -n "$verbose" && echo "	Adding strtoul.o."
+    LIBOBJS="$LIBOBJS strtoul.o"
+fi
+
+#--------------------------------------------------------------------
+#	Check for the strtod function.  This is tricky because in some
+#	versions of Linux strtod mis-parses strings starting with "+".
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strtod, tcl_ok=1, tcl_ok=0)
+AC_TRY_RUN([
+extern double strtod();
+int main()
+{
+    char *string = " +69";
+    char *term;
+    double value;
+    value = strtod(string, &term);
+    if ((value != 69) || (term != (string+4))) {
+	exit(1);
+    }
+    exit(0);
+}], , tcl_ok=0, tcl_ok=0)
+if test "$tcl_ok" = 0; then
+    test -n "$verbose" && echo "	Adding strtod.o."
+    LIBOBJS="$LIBOBJS strtod.o"
+fi
+
+#--------------------------------------------------------------------
+#	Under Solaris 2.4, strtod returns the wrong value for the
+#	terminating character under some conditions.  Check for this
+#	and if the problem exists use a substitute procedure
+#	"fixstrtod" that corrects the error.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strtod, tcl_strtod=1, tcl_strtod=0)
+if test "$tcl_strtod" = 1; then
+    AC_MSG_CHECKING([for Solaris strtod bug])
+    AC_TRY_RUN([
+	extern double strtod();
+	int main()
+	{
+	    char *string = "NaN";
+	    char *term;
+	    strtod(string, &term);
+	    if ((term != string) && (term[-1] == 0)) {
+		exit(1);
+	    }
+	    exit(0);
+	}], tcl_ok=1, tcl_ok=0, tcl_ok=0)
+    if test $tcl_ok = 1; then
+	AC_MSG_RESULT(ok)
+    else
+	AC_MSG_RESULT(buggy)
+	LIBOBJS="$LIBOBJS fixstrtod.o"
+	AC_DEFINE(strtod, fixstrtod)
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist.
+#--------------------------------------------------------------------
+
+AC_TYPE_MODE_T
+AC_TYPE_PID_T
+AC_TYPE_SIZE_T
+AC_TYPE_UID_T
+
+#--------------------------------------------------------------------
+#	If a system doesn't have an opendir function (man, that's old!)
+#	then we have to supply a different version of dirent.h which
+#	is compatible with the substitute version of opendir that's
+#	provided.  This version only works with V7-style directories.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(opendir, , AC_DEFINE(USE_DIRENT2_H))
+
+#--------------------------------------------------------------------
+#	Check for the existence of sys_errlist (this is only needed if
+#	there's no strerror, but I don't know how to conditionalize the
+#	check).
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING(sys_errlist)
+AC_TRY_LINK(, [
+extern char *sys_errlist[];
+extern int sys_nerr;
+sys_errlist[sys_nerr-1][0] = 0;
+], tcl_ok=yes, tcl_ok=no)
+AC_MSG_RESULT($tcl_ok)
+if test $tcl_ok = no; then
+    AC_DEFINE(NO_SYS_ERRLIST)
+fi
+
+#--------------------------------------------------------------------
+#	The check below checks whether <sys/wait.h> defines the type
+#	"union wait" correctly.  It's needed because of weirdness in
+#	HP-UX where "union wait" is defined in both the BSD and SYS-V
+#	environments.  Checking the usability of WIFEXITED seems to do
+#	the trick.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([union wait])
+AC_TRY_LINK([#include <sys/types.h> 
+#include <sys/wait.h>], [
+union wait x;
+WIFEXITED(x);		/* Generates compiler error if WIFEXITED
+			 * uses an int. */
+], tcl_ok=yes, tcl_ok=no)
+AC_MSG_RESULT($tcl_ok)
+if test $tcl_ok = no; then
+    AC_DEFINE(NO_UNION_WAIT)
+fi
+
+#--------------------------------------------------------------------
+#	Check to see whether the system supports the matherr function
+#	and its associated type "struct exception".
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([matherr support])
+AC_TRY_COMPILE([#include <math.h>], [
+struct exception x;
+x.type = DOMAIN;
+x.type = SING;
+], tcl_ok=yes, tcl_ok=no)
+AC_MSG_RESULT($tcl_ok)
+if test $tcl_ok = yes; then
+    AC_DEFINE(NEED_MATHERR)
+fi
+
+#--------------------------------------------------------------------
+#	Check to see whether the system provides a vfork kernel call.
+#	If not, then use fork instead.  Also, check for a problem with
+#	vforks and signals that can cause core dumps if a vforked child
+#	resets a signal handler.  If the problem exists, then use fork
+#	instead of vfork.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(vfork, tcl_ok=1, tcl_ok=0)
+if test "$tcl_ok" = 1; then
+    AC_MSG_CHECKING([vfork/signal bug]);
+    AC_TRY_RUN([
+	#include <stdio.h>
+	#include <signal.h>
+	#include <sys/wait.h>
+	int gotSignal = 0;
+	sigProc(sig)
+	    int sig;
+	{
+	    gotSignal = 1;
+	}
+	main()
+	{
+	    int pid, sts;
+	    (void) signal(SIGCHLD, sigProc);
+	    pid = vfork();
+	    if (pid <  0) {
+		exit(1);
+	    } else if (pid == 0) {
+		(void) signal(SIGCHLD, SIG_DFL);
+		_exit(0);
+	    } else {
+		(void) wait(&sts);
+	    }
+	    exit((gotSignal) ? 0 : 1);
+	}], tcl_ok=1, tcl_ok=0, tcl_ok=0)
+    if test "$tcl_ok" = 1; then
+	AC_MSG_RESULT(ok)
+    else
+	AC_MSG_RESULT([buggy, using fork instead])
+    fi
+fi
+rm -f core
+if test "$tcl_ok" = 0; then
+    AC_DEFINE(vfork, fork)
+fi
+
+#--------------------------------------------------------------------
+#	Check whether there is an strncasecmp function on this system.
+#	This is a bit tricky because under SCO it's in -lsocket and
+#	under Sequent Dynix it's in -linet.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strncasecmp, tcl_ok=1, tcl_ok=0)
+if test "$tcl_ok" = 0; then
+    AC_CHECK_LIB(socket, strncasecmp, tcl_ok=1, tcl_ok=0)
+fi
+if test "$tcl_ok" = 0; then
+    AC_CHECK_LIB(inet, strncasecmp, tcl_ok=1, tcl_ok=0)
+fi
+if test "$tcl_ok" = 0; then
+    LIBOBJS="$LIBOBJS strncasecmp.o"
+fi
+
+#--------------------------------------------------------------------
+#	The code below deals with several issues related to gettimeofday:
+#	1. Some systems don't provide a gettimeofday function at all
+#	   (set NO_GETTOD if this is the case).
+#	2. SGI systems don't use the BSD form of the gettimeofday function,
+#	   but they have a BSDgettimeofday function that can be used instead.
+#	3. See if gettimeofday is declared in the <sys/time.h> header file.
+#	   if not, set the GETTOD_NOT_DECLARED flag so that tclPort.h can
+#	   declare it.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(BSDgettimeofday, AC_DEFINE(HAVE_BSDGETTIMEOFDAY),
+	AC_CHECK_FUNC(gettimeofday, , AC_DEFINE(NO_GETTOD)))
+AC_MSG_CHECKING([for gettimeofday declaration])
+AC_EGREP_HEADER(gettimeofday, sys/time.h, AC_MSG_RESULT(present), [
+    AC_MSG_RESULT(missing)
+    AC_DEFINE(GETTOD_NOT_DECLARED)
+])
+
+#--------------------------------------------------------------------
+#	Interactive UNIX requires -linet instead of -lsocket, plus it
+#	needs net/errno.h to define the socket-related error codes.
+#--------------------------------------------------------------------
+
+AC_CHECK_LIB(inet, main, [LIBS="$LIBS -linet"])
+AC_CHECK_HEADER(net/errno.h, AC_DEFINE(HAVE_NET_ERRNO_H))
+
+#--------------------------------------------------------------------
+#	Check for the existence of the -lsocket and -lnsl libraries.
+#	The order here is important, so that they end up in the right
+#	order in the command line generated by make.  Here are some
+#	special considerations:
+#	1. Use "connect" and "accept" to check for -lsocket, and
+#	   "gethostbyname" to check for -lnsl.
+#	2. Use each function name only once:  can't redo a check because
+#	   autoconf caches the results of the last check and won't redo it.
+#	3. Use -lnsl and -lsocket only if they supply procedures that
+#	   aren't already present in the normal libraries.  This is because
+#	   IRIX 5.2 has libraries, but they aren't needed and they're
+#	   bogus:  they goof up name resolution if used.
+#	4. On some SVR4 systems, can't use -lsocket without -lnsl too.
+#	   To get around this problem, check for both libraries together
+#	   if -lsocket doesn't work by itself.
+#--------------------------------------------------------------------
+
+tcl_checkBoth=0
+AC_CHECK_FUNC(connect, tcl_checkSocket=0, tcl_checkSocket=1)
+if test "$tcl_checkSocket" = 1; then
+    AC_CHECK_LIB(socket, main, LIBS="$LIBS -lsocket", tcl_checkBoth=1)
+fi
+if test "$tcl_checkBoth" = 1; then
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lsocket -lnsl"
+    AC_CHECK_FUNC(accept, tcl_checkNsl=0, [LIBS=$tk_oldLibs])
+fi
+AC_CHECK_FUNC(gethostbyname, , AC_CHECK_LIB(nsl, main, [LIBS="$LIBS -lnsl"]))
+
+#--------------------------------------------------------------------
+#	The statements below define a collection of symbols related to
+#	dynamic loading and shared libraries:
+#
+#	DL_OBJS -	Name of the object file that implements dynamic
+#			loading for Tcl on this system.
+#	DL_LIBS -	Library file(s) to include in tclsh and other base
+#			applications in order for the "load" command to work.
+#	LD_FLAGS -	Flags to pass to the compiler when linking object
+#			files into an executable application binary such
+#			as tclsh.
+#	LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib",
+#			that tell the run-time dynamic linker where to look
+#			for shared libraries such as libtcl.so.  Depends on
+#			the variable LIB_INSTALL_DIR in the Makefile.
+#	MAKE_LIB -	Command to execute to build the Tcl library;
+#			differs depending on whether or not Tcl is being
+#			compiled as a shared library.
+#	SHLIB_CFLAGS -	Flags to pass to cc when compiling the components
+#			of a shared library (may request position-independent
+#			code, among other things).
+#	SHLIB_LD -	Base command to use for combining object files
+#			into a shared library.
+#	SHLIB_LD_LIBS -	Dependent libraries for the linker to scan when
+#			creating shared libraries.  This symbol typically
+#			goes at the end of the "ld" commands that build
+#			shared libraries. The value of the symbol is
+#			"${LIBS}" if all of the dependent libraries should
+#			be specified when creating a shared library.  If
+#			dependent libraries should not be specified (as on
+#			SunOS 4.x, where they cause the link to fail, or in
+#			general if Tcl and Tk aren't themselves shared
+#			libraries), then this symbol has an empty string
+#			as its value.
+#	SHLIB_SUFFIX -	Suffix to use for the names of dynamically loadable
+#			extensions.  An empty string means we don't know how
+#			to use shared libraries on this platform.
+#	TCL_LIB_FILE -	Name of the file that contains the Tcl library, such
+#			as libtcl7.5.so or libtcl7.5.a.
+#	TCL_LIB_SUFFIX -Specifies everything that comes after the "libtcl"
+#			in the shared library name, using the $VERSION variable
+#			to put the version in the right place.  This is used
+#			by platforms that need non-standard library names.
+#			Examples:  ${VERSION}.so.1.1 on NetBSD, since it needs
+#			to have a version after the .so, and ${VERSION}.a
+#			on AIX, since the Tcl shared library needs to have
+#			a .a extension whereas shared objects for loadable
+#			extensions have a .so extension.  Defaults to
+#			${VERSION}${SHLIB_SUFFIX}.
+#--------------------------------------------------------------------
+
+# Step 1: set the variable "system" to hold the name and version number
+# for the system.  This can usually be done via the "uname" command, but
+# there are a few systems, like Next, where this doesn't work.
+
+AC_MSG_CHECKING([system version (for dynamic loading)])
+if test -f /usr/lib/NextStep/software_version; then
+    system=NEXTSTEP-`awk '/3/,/3/' /usr/lib/NextStep/software_version`
+else
+    system=`uname -s`-`uname -r`
+    if test "$?" -ne 0 ; then
+	AC_MSG_RESULT([unknown (can't find uname command)])
+	system=unknown
+    else
+	# Special check for weird MP-RAS system (uname returns weird
+	# results, and the version is kept in special file).
+    
+	if test -r /etc/.relid -a "X`uname -n`" = "X`uname -s`" ; then
+	    system=MP-RAS-`awk '{print $3}' /etc/.relid'`
+	fi
+	if test "`uname -s`" = "AIX" ; then
+	    system=AIX-`uname -v`.`uname -r`
+	fi
+	AC_MSG_RESULT($system)
+    fi
+fi
+
+# Step 2: check for existence of -ldl library.  This is needed because
+# Linux can use either -ldl or -ldld for dynamic loading.
+
+AC_CHECK_LIB(dl, dlopen, have_dl=yes, have_dl=no)
+
+# Step 3: disable dynamic loading if requested via a command-line switch.
+
+AC_ARG_ENABLE(load, [  --disable-load          disallow dynamic loading and "load" command],
+    [tcl_ok=$enableval], [tcl_ok=yes])
+if test "$tcl_ok" = "no"; then
+    system=unknown
+fi
+
+# Step 4: set configuration options based on system name and version.
+
+fullSrcDir=`cd $srcdir; pwd`
+AIX=no
+TCL_SHARED_LIB_SUFFIX=""
+TCL_UNSHARED_LIB_SUFFIX=""
+TCL_LIB_VERSIONS_OK=ok
+case $system in
+    AIX-*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o tclLoadAix.o"
+	DL_LIBS="-lld"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-L${LIB_INSTALL_DIR}'
+	AC_DEFINE(NO_DLFCN_H)
+	AIX=yes
+	TCL_SHARED_LIB_SUFFIX='${VERSION}.a'
+	;;
+    HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*)
+	SHLIB_CFLAGS="+z"
+	SHLIB_LD="ld -b"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".sl"
+	DL_OBJS="tclLoadShl.o"
+	DL_LIBS="-ldld"
+	LD_FLAGS="-Wl,-E"
+	LD_SEARCH_FLAGS='-Wl,+b,${LIB_INSTALL_DIR}:.'
+	;;
+    IRIX-4.*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_SUFFIX="..o"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    IRIX-5.*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="ld -shared -rdata_shared"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_INSTALL_DIR}'
+	;;
+    Linux*)
+	SHLIB_CFLAGS="-fPIC"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	if test "$have_dl" = yes; then
+	    SHLIB_LD="${CC} -shared"
+	    DL_OBJS="tclLoadDl.o"
+	    DL_LIBS="-ldl"
+	    LD_FLAGS="-rdynamic"
+	    LD_SEARCH_FLAGS=""
+	else
+	    AC_CHECK_HEADER(dld.h, [
+		SHLIB_LD="ld -shared"
+		DL_OBJS="tclLoadDld.o"
+		DL_LIBS="-ldld"
+		LD_FLAGS=""
+		LD_SEARCH_FLAGS=""])
+	fi
+	;;
+    MP-RAS-02*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    MP-RAS-*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS="-Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+    NetBSD-*|FreeBSD-*)
+	# Not available on all versions:  check for include file.
+	AC_CHECK_HEADER(dlfcn.h, [
+	    SHLIB_CFLAGS="-fpic"
+	    SHLIB_LD="ld -Bshareable"
+	    SHLIB_LD_LIBS=""
+	    SHLIB_SUFFIX=".so"
+	    DL_OBJS="tclLoadDl2.o"
+	    DL_LIBS=""
+	    LD_FLAGS=""
+	    LD_SEARCH_FLAGS=""
+	], [
+	    SHLIB_CFLAGS=""
+	    SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	    SHLIB_LD_LIBS=""
+	    SHLIB_SUFFIX="..o"
+	    DL_OBJS="tclLoadAout.o"
+	    DL_LIBS=""
+	    LD_FLAGS=""
+	    LD_SEARCH_FLAGS=""
+	])
+
+	# FreeBSD doesn't handle version numbers with dots.  Also, have to
+	# append a dummy version number to .so file names.
+
+	TCL_SHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.so.1.0'
+	TCL_UNSHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.a'
+	TCL_LIB_VERSIONS_OK=nodots
+	;;
+    NEXTSTEP-*)
+	SHLIB_CFLAGS=""
+	SHLIB_LD="cc -nostdlib -r"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadNext.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-1.[012])
+	# OSF/1 1.[012] from OSF, and derivatives, including Paragon OSF/1
+	SHLIB_CFLAGS=""
+	# Hack: make package name same as library name
+	SHLIB_LD='ld -R -export $@:'
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadOSF.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-1.*)
+	# OSF/1 1.3 from OSF using ELF, and derivatives, including AD2
+	SHLIB_CFLAGS="-fpic"
+	SHLIB_LD="ld -shared"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    OSF1-V*)
+        # Digital OSF/1
+	SHLIB_CFLAGS=""
+	SHLIB_LD='ld -shared -expect_unresolved "*"'
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_INSTALL_DIR}'
+	;;
+    RISCos-*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX="..o"
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    SCO_SV-3.2*)
+        # Note, dlopen is available only on SCO 3.2.5 and greater.  However,
+        # this test works, since "uname -s" was non-standard in 3.2.4 and
+        # below.
+	SHLIB_CFLAGS="-Kpic -belf"
+	SHLIB_LD="ld -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS=""
+	LD_FLAGS="-belf -Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+     SINIX*5.4*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS=""
+	;;
+    SunOS-4*)
+	SHLIB_CFLAGS="-PIC"
+	SHLIB_LD="ld"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-L${LIB_INSTALL_DIR}'
+
+	# SunOS can't handle version numbers with dots in them in library
+	# specs, like -ltcl7.5, so use -ltcl75 instead.  Also, it
+	# requires an extra version number at the end of .so file names.
+	# So, the library has to have a name like libtcl75.so.1.0
+
+	TCL_SHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.so.1.0'
+	TCL_UNSHARED_LIB_SUFFIX='`echo ${VERSION} | tr -d .`.a'
+	TCL_LIB_VERSIONS_OK=nodots
+	;;
+    SunOS-5*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="/usr/ccs/bin/ld -G -z text"
+	SHLIB_LD_LIBS='${LIBS}'
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS=""
+	LD_SEARCH_FLAGS='-R ${LIB_INSTALL_DIR}'
+	;;
+    ULTRIX-4.*)
+	SHLIB_CFLAGS="-G 0"
+	SHLIB_SUFFIX="..o"
+	SHLIB_LD="echo tclLdAout $CC \{$SHLIB_CFLAGS\} | `pwd`/tclsh -r -G 0"
+	SHLIB_LD_LIBS=""
+	DL_OBJS="tclLoadAout.o"
+	DL_LIBS=""
+	LD_FLAGS="-Wl,-D,08000000"
+	LD_SEARCH_FLAGS=""
+	;;
+    UNIX_SV*)
+	SHLIB_CFLAGS="-K PIC"
+	SHLIB_LD="cc -G"
+	SHLIB_LD_LIBS=""
+	SHLIB_SUFFIX=".so"
+	DL_OBJS="tclLoadDl.o"
+	DL_LIBS="-ldl"
+	LD_FLAGS="-Wl,-Bexport"
+	LD_SEARCH_FLAGS=""
+	;;
+esac
+
+# If pseudo-static linking is in use (see K. B. Kenny, "Dynamic Loading for
+# Tcl -- What Became of It?".  Proc. 2nd Tcl/Tk Workshop, New Orleans, LA,
+# Computerized Processes Unlimited, 1994), then we need to determine which
+# of several header files defines the a.out file format (a.out.h, sys/exec.h,
+# or sys/exec_aout.h).  At present, we support only a file format that
+# is more or less version-7-compatible.  In particular,
+#	- a.out files must begin with `struct exec'.
+#	- the N_TXTOFF on the `struct exec' must compute the seek address
+#	  of the text segment
+#	- The `struct exec' must contain a_magic, a_text, a_data, a_bss
+#	  and a_entry fields.
+# The following compilation should succeed if and only if either sys/exec.h
+# or a.out.h is usable for the purpose.
+#
+# Note that the modified COFF format used on MIPS Ultrix 4.x is usable; the
+# `struct exec' includes a second header that contains information that
+# duplicates the v7 fields that are needed.
+
+if test "x$DL_OBJS" = "xtclLoadAout.o" ; then
+    AC_MSG_CHECKING(sys/exec.h)
+    AC_TRY_COMPILE([#include <sys/exec.h>],[
+	struct exec foo;
+	unsigned long seek;
+	int flag;
+#if defined(__mips) || defined(mips)
+	seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+	seek = N_TXTOFF (foo);
+#endif
+	flag = (foo.a_magic == OMAGIC);
+	return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+], tcl_ok=usable, tcl_ok=unusable)
+    AC_MSG_RESULT($tcl_ok)
+    if test $tcl_ok = usable; then
+	AC_DEFINE(USE_SYS_EXEC_H)
+    else
+	AC_MSG_CHECKING(a.out.h)
+	AC_TRY_COMPILE([#include <a.out.h>],[
+	    struct exec foo;
+	    unsigned long seek;
+	    int flag;
+#if defined(__mips) || defined(mips)
+	    seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+	    seek = N_TXTOFF (foo);
+#endif
+	    flag = (foo.a_magic == OMAGIC);
+	    return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+	], tcl_ok=usable, tcl_ok=unusable)
+	AC_MSG_RESULT($tcl_ok)
+	if test $tcl_ok = usable; then
+	    AC_DEFINE(USE_A_OUT_H)
+	else
+	    AC_MSG_CHECKING(sys/exec_aout.h)
+	    AC_TRY_COMPILE([#include <sys/exec_aout.h>],[
+		struct exec foo;
+		unsigned long seek;
+		int flag;
+#if defined(__mips) || defined(mips)
+		seek = N_TXTOFF (foo.ex_f, foo.ex_o);
+#else
+		seek = N_TXTOFF (foo);
+#endif
+		flag = (foo.a_midmag == OMAGIC);
+		return foo.a_text + foo.a_data + foo.a_bss + foo.a_entry;
+	    ], tcl_ok=usable, tcl_ok=unusable)
+	    AC_MSG_RESULT($tcl_ok)
+	    if test $tcl_ok = usable; then
+		AC_DEFINE(USE_SYS_EXEC_AOUT_H)
+	    else
+		DL_OBJS=""
+	    fi
+	fi
+    fi
+fi
+
+if test "x$DL_OBJS" != "x" ; then
+    BUILD_DLTEST="\$(DLTEST_TARGETS)"
+else
+    echo "Can't figure out how to do dynamic loading or shared libraries"
+    echo "on this system."
+    SHLIB_CFLAGS=""
+    SHLIB_LD=""
+    SHLIB_SUFFIX=""
+    DL_OBJS="tclLoadNone.o"
+    DL_LIBS=""
+    LD_FLAGS=""
+    LD_SEARCH_FLAGS=""
+    BUILD_DLTEST=""
+fi
+
+# If we're running gcc, then change the C flags for compiling shared
+# libraries to the right flags for gcc, instead of those for the
+# standard manufacturer compiler.
+
+if test "$DL_OBJS" != "tclLoadNone.o" ; then
+    if test "$CC" = "gcc" -o `$CC -v 2>&1 | grep -c gcc` != "0" ; then
+	SHLIB_CFLAGS="-fPIC"
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	The statements below define a collection of symbols related to
+#	building libtcl as a shared library instead of a static library.
+#--------------------------------------------------------------------
+
+realRanlib=$RANLIB
+if test "$TCL_SHARED_LIB_SUFFIX" = "" ; then
+    TCL_SHARED_LIB_SUFFIX='${VERSION}${SHLIB_SUFFIX}'
+fi
+if test "$TCL_UNSHARED_LIB_SUFFIX" = "" ; then
+    TCL_UNSHARED_LIB_SUFFIX='${VERSION}.a'
+fi
+AC_ARG_ENABLE(shared,
+    [  --enable-shared         build libtcl as a shared library],
+    [tcl_ok=$enableval], [tcl_ok=no])
+if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" \
+	-a "${DL_OBJS}" != "tclLoadAout.o" ; then
+    TCL_SHLIB_CFLAGS="${SHLIB_CFLAGS}"
+    TCL_LD_SEARCH_FLAGS="${LD_SEARCH_FLAGS}"
+    eval "TCL_LIB_FILE=libtcl${TCL_SHARED_LIB_SUFFIX}"
+    MAKE_LIB="\${SHLIB_LD} -o ${TCL_LIB_FILE} \${OBJS} ${SHLIB_LD_LIBS}"
+    RANLIB=":"
+else
+    if test "$AIX" = "no" ; then
+	SHLIB_LD_LIBS=""
+    fi
+    TCL_SHLIB_CFLAGS=""
+    TCL_LD_SEARCH_FLAGS=""
+    eval "TCL_LIB_FILE=libtcl${TCL_UNSHARED_LIB_SUFFIX}"
+    MAKE_LIB="ar cr ${TCL_LIB_FILE} \${OBJS}"
+fi
+
+# Note:  in the following variable, it's important to use the absolute
+# path name of the Tcl directory rather than "..":  this is because
+# AIX remembers this path and will attempt to use it at run-time to look
+# up the Tcl library.
+
+if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
+    TCL_BUILD_LIB_SPEC="-L`pwd` -ltcl${VERSION}"
+    TCL_LIB_SPEC="-L${exec_prefix}/lib -ltcl${VERSION}"
+else
+    TCL_BUILD_LIB_SPEC="-L`pwd` -ltcl`echo ${VERSION} | tr -d .`"
+    TCL_LIB_SPEC="-L${exec_prefix}/lib -ltcl`echo ${VERSION} | tr -d .`"
+fi
+
+AC_SUBST(BUILD_DLTEST)
+AC_SUBST(DL_LIBS)
+AC_SUBST(DL_OBJS)
+AC_SUBST(LD_FLAGS)
+AC_SUBST(MAKE_LIB)
+AC_SUBST(MATH_LIBS)
+AC_SUBST(SHLIB_CFLAGS)
+AC_SUBST(SHLIB_LD)
+AC_SUBST(SHLIB_LD_LIBS)
+AC_SUBST(SHLIB_SUFFIX)
+AC_SUBST(TCL_BUILD_LIB_SPEC)
+AC_SUBST(TCL_LD_SEARCH_FLAGS)
+AC_SUBST(TCL_LIB_FILE)
+AC_SUBST(TCL_LIB_SPEC)
+AC_SUBST(TCL_LIB_VERSIONS_OK)
+AC_SUBST(TCL_MAJOR_VERSION)
+AC_SUBST(TCL_MINOR_VERSION)
+AC_SUBST(TCL_SHARED_LIB_SUFFIX)
+AC_SUBST(TCL_SHLIB_CFLAGS)
+AC_SUBST(TCL_UNSHARED_LIB_SUFFIX)
+AC_SUBST(TCL_VERSION)
+
+AC_OUTPUT(Makefile tclConfig.sh)
diff --git a/Tcl/license.terms b/Tcl/license.terms
new file mode 100644
index 0000000..3dcd816
--- /dev/null
+++ b/Tcl/license.terms
@@ -0,0 +1,32 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+RESTRICTED RIGHTS: Use, duplication or disclosure by the government
+is subject to the restrictions as set forth in subparagraph (c) (1) (ii)
+of the Rights in Technical Data and Computer Software Clause as DFARS
+252.227-7013 and FAR 52.227-19.
diff --git a/Tcl/panic.c b/Tcl/panic.c
new file mode 100644
index 0000000..d181945
--- /dev/null
+++ b/Tcl/panic.c
@@ -0,0 +1,92 @@
+/* 
+ * panic.c --
+ *
+ *	Source code for the "panic" library procedure for Tcl;
+ *	individual applications will probably override this with
+ *	an application-specific panic procedure.
+ *
+ * Copyright (c) 1988-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) panic.c 1.11 96/02/15 11:50:29
+ */
+
+#include <stdio.h>
+#ifdef NO_STDLIB_H
+#   include "compat/stdlib.h"
+#else
+#   include <stdlib.h>
+#endif
+
+#include "tcl.h"
+
+/*
+ * The panicProc variable contains a pointer to an application
+ * specific panic procedure.
+ */
+
+void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetPanicProc --
+ *
+ *	Replace the default panic behavior with the specified functiion.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets the panicProc variable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_SetPanicProc(proc)
+    void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
+{
+    panicProc = proc;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * panic --
+ *
+ *	Print an error message and kill the process.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The process dies, entering the debugger if possible.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* VARARGS ARGSUSED */
+void
+panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
+    char *format;		/* Format string, suitable for passing to
+				 * fprintf. */
+    char *arg1, *arg2, *arg3;	/* Additional arguments (variable in number)
+				 * to pass to fprintf. */
+    char *arg4, *arg5, *arg6, *arg7, *arg8;
+{
+    if (panicProc != NULL) {
+	(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
+    } else {
+	(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
+		arg7, arg8);
+	(void) fprintf(stderr, "\n");
+	(void) fflush(stderr);
+	abort();
+    }
+}
diff --git a/Tcl/regexp.c b/Tcl/regexp.c
new file mode 100644
index 0000000..52e5a51
--- /dev/null
+++ b/Tcl/regexp.c
@@ -0,0 +1,1335 @@
+/*
+ * TclRegComp and TclRegExec -- TclRegSub is elsewhere
+ *
+ *	Copyright (c) 1986 by University of Toronto.
+ *	Written by Henry Spencer.  Not derived from licensed software.
+ *
+ *	Permission is granted to anyone to use this software for any
+ *	purpose on any computer system, and to redistribute it freely,
+ *	subject to the following restrictions:
+ *
+ *	1. The author is not responsible for the consequences of use of
+ *		this software, no matter how awful, even if they arise
+ *		from defects in it.
+ *
+ *	2. The origin of this software must not be misrepresented, either
+ *		by explicit claim or by omission.
+ *
+ *	3. Altered versions must be plainly marked as such, and must not
+ *		be misrepresented as being the original software.
+ *
+ * Beware that some of this code is subtly aware of the way operator
+ * precedence is structured in regular expressions.  Serious changes in
+ * regular-expression syntax might require a total rethink.
+ *
+ * *** NOTE: this code has been altered slightly for use in Tcl: ***
+ * *** 1. Use ckalloc and ckfree instead of  malloc and free.	 ***
+ * *** 2. Add extra argument to regexp to specify the real	 ***
+ * ***    start of the string separately from the start of the	 ***
+ * ***    current search. This is needed to search for multiple	 ***
+ * ***    matches within a string.				 ***
+ * *** 3. Names have been changed, e.g. from regcomp to		 ***
+ * ***    TclRegComp, to avoid clashes with other 		 ***
+ * ***    regexp implementations used by applications. 		 ***
+ * *** 4. Added errMsg declaration and TclRegError procedure	 ***
+ * *** 5. Various lint-like things, such as casting arguments	 ***
+ * ***	  in procedure calls.					 ***
+ *
+ * *** NOTE: This code has been altered for use in MT-Sturdy Tcl ***
+ * *** 1. All use of static variables has been changed to access ***
+ * ***    fields of a structure.                                 ***
+ * *** 2. This in addition to changes to TclRegError makes the   ***
+ * ***    code multi-thread safe.                                ***
+ *
+ * SCCS: @(#) regexp.c 1.12 96/04/02 13:54:57
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * The variable below is set to NULL before invoking regexp functions
+ * and checked after those functions.  If an error occurred then TclRegError
+ * will set the variable to point to a (static) error message.  This
+ * mechanism unfortunately does not support multi-threading, but the
+ * procedures TclRegError and TclGetRegError can be modified to use
+ * thread-specific storage for the variable and thereby make the code
+ * thread-safe.
+ */
+
+static char *errMsg = NULL;
+
+/*
+ * The "internal use only" fields in regexp.h are present to pass info from
+ * compile to execute that permits the execute phase to run lots faster on
+ * simple cases.  They are:
+ *
+ * regstart	char that must begin a match; '\0' if none obvious
+ * reganch	is the match anchored (at beginning-of-line only)?
+ * regmust	string (pointer into program) that match must include, or NULL
+ * regmlen	length of regmust string
+ *
+ * Regstart and reganch permit very fast decisions on suitable starting points
+ * for a match, cutting down the work a lot.  Regmust permits fast rejection
+ * of lines that cannot possibly match.  The regmust tests are costly enough
+ * that TclRegComp() supplies a regmust only if the r.e. contains something
+ * potentially expensive (at present, the only such thing detected is * or +
+ * at the start of the r.e., which can involve a lot of backup).  Regmlen is
+ * supplied because the test in TclRegExec() needs it and TclRegComp() is
+ * computing it anyway.
+ */
+
+/*
+ * Structure for regexp "program".  This is essentially a linear encoding
+ * of a nondeterministic finite-state machine (aka syntax charts or
+ * "railroad normal form" in parsing technology).  Each node is an opcode
+ * plus a "next" pointer, possibly plus an operand.  "Next" pointers of
+ * all nodes except BRANCH implement concatenation; a "next" pointer with
+ * a BRANCH on both ends of it is connecting two alternatives.  (Here we
+ * have one of the subtle syntax dependencies:  an individual BRANCH (as
+ * opposed to a collection of them) is never concatenated with anything
+ * because of operator precedence.)  The operand of some types of node is
+ * a literal string; for others, it is a node leading into a sub-FSM.  In
+ * particular, the operand of a BRANCH node is the first node of the branch.
+ * (NB this is *not* a tree structure:  the tail of the branch connects
+ * to the thing following the set of BRANCHes.)  The opcodes are:
+ */
+
+/* definition	number	opnd?	meaning */
+#define	END	0	/* no	End of program. */
+#define	BOL	1	/* no	Match "" at beginning of line. */
+#define	EOL	2	/* no	Match "" at end of line. */
+#define	ANY	3	/* no	Match any one character. */
+#define	ANYOF	4	/* str	Match any character in this string. */
+#define	ANYBUT	5	/* str	Match any character not in this string. */
+#define	BRANCH	6	/* node	Match this alternative, or the next... */
+#define	BACK	7	/* no	Match "", "next" ptr points backward. */
+#define	EXACTLY	8	/* str	Match this string. */
+#define	NOTHING	9	/* no	Match empty string. */
+#define	STAR	10	/* node	Match this (simple) thing 0 or more times. */
+#define	PLUS	11	/* node	Match this (simple) thing 1 or more times. */
+#define	OPEN	20	/* no	Mark this point in input as start of #n. */
+			/*	OPEN+1 is number 1, etc. */
+#define	CLOSE	(OPEN+NSUBEXP)	/* no	Analogous to OPEN. */
+
+/*
+ * Opcode notes:
+ *
+ * BRANCH	The set of branches constituting a single choice are hooked
+ *		together with their "next" pointers, since precedence prevents
+ *		anything being concatenated to any individual branch.  The
+ *		"next" pointer of the last BRANCH in a choice points to the
+ *		thing following the whole choice.  This is also where the
+ *		final "next" pointer of each individual branch points; each
+ *		branch starts with the operand node of a BRANCH node.
+ *
+ * BACK		Normal "next" pointers all implicitly point forward; BACK
+ *		exists to make loop structures possible.
+ *
+ * STAR,PLUS	'?', and complex '*' and '+', are implemented as circular
+ *		BRANCH structures using BACK.  Simple cases (one character
+ *		per match) are implemented with STAR and PLUS for speed
+ *		and to minimize recursive plunges.
+ *
+ * OPEN,CLOSE	...are numbered at compile time.
+ */
+
+/*
+ * A node is one char of opcode followed by two chars of "next" pointer.
+ * "Next" pointers are stored as two 8-bit pieces, high order first.  The
+ * value is a positive offset from the opcode of the node containing it.
+ * An operand, if any, simply follows the node.  (Note that much of the
+ * code generation knows about this implicit relationship.)
+ *
+ * Using two bytes for the "next" pointer is vast overkill for most things,
+ * but allows patterns to get big without disasters.
+ */
+#define	OP(p)	(*(p))
+#define	NEXT(p)	(((*((p)+1)&0377)<<8) + (*((p)+2)&0377))
+#define	OPERAND(p)	((p) + 3)
+
+/*
+ * See regmagic.h for one further detail of program structure.
+ */
+
+
+/*
+ * Utility definitions.
+ */
+#ifndef CHARBITS
+#define	UCHARAT(p)	((int)*(unsigned char *)(p))
+#else
+#define	UCHARAT(p)	((int)*(p)&CHARBITS)
+#endif
+
+#define	FAIL(m)	{ TclRegError(m); return(NULL); }
+#define	ISMULT(c)	((c) == '*' || (c) == '+' || (c) == '?')
+#define	META	"^$.[()|?+*\\"
+
+/*
+ * Flags to be passed up and down.
+ */
+#define	HASWIDTH	01	/* Known never to match null string. */
+#define	SIMPLE		02	/* Simple enough to be STAR/PLUS operand. */
+#define	SPSTART		04	/* Starts with * or +. */
+#define	WORST		0	/* Worst case. */
+
+/*
+ * Global work variables for TclRegComp().
+ */
+struct regcomp_state  {
+    char *regparse;		/* Input-scan pointer. */
+    int regnpar;		/* () count. */
+    char *regcode;		/* Code-emit pointer; &regdummy = don't. */
+    long regsize;		/* Code size. */
+};
+
+static char regdummy;
+
+/*
+ * The first byte of the regexp internal "program" is actually this magic
+ * number; the start node begins in the second byte.
+ */
+#define	MAGIC	0234
+
+
+/*
+ * Forward declarations for TclRegComp()'s friends.
+ */
+
+static char *		reg _ANSI_ARGS_((int paren, int *flagp,
+			    struct regcomp_state *rcstate));
+static char *		regatom _ANSI_ARGS_((int *flagp,
+			    struct regcomp_state *rcstate));
+static char *		regbranch _ANSI_ARGS_((int *flagp,
+			    struct regcomp_state *rcstate));
+static void		regc _ANSI_ARGS_((int b,
+			    struct regcomp_state *rcstate));
+static void		reginsert _ANSI_ARGS_((int op, char *opnd,
+			    struct regcomp_state *rcstate));
+static char *		regnext _ANSI_ARGS_((char *p));
+static char *		regnode _ANSI_ARGS_((int op,
+			    struct regcomp_state *rcstate));
+static void 		regoptail _ANSI_ARGS_((char *p, char *val));
+static char *		regpiece _ANSI_ARGS_((int *flagp,
+			    struct regcomp_state *rcstate));
+static void 		regtail _ANSI_ARGS_((char *p, char *val));
+
+#ifdef STRCSPN
+static int strcspn _ANSI_ARGS_((char *s1, char *s2));
+#endif
+
+/*
+ - TclRegComp - compile a regular expression into internal code
+ *
+ * We can't allocate space until we know how big the compiled form will be,
+ * but we can't compile it (and thus know how big it is) until we've got a
+ * place to put the code.  So we cheat:  we compile it twice, once with code
+ * generation turned off and size counting turned on, and once "for real".
+ * This also means that we don't allocate space until we are sure that the
+ * thing really will compile successfully, and we never have to move the
+ * code and thus invalidate pointers into it.  (Note that it has to be in
+ * one piece because free() must be able to free it all.)
+ *
+ * Beware that the optimization-preparation code in here knows about some
+ * of the structure of the compiled regexp.
+ */
+regexp *
+TclRegComp(exp)
+char *exp;
+{
+	register regexp *r;
+	register char *scan;
+	register char *longest;
+	register int len;
+	int flags;
+	struct regcomp_state state;
+	struct regcomp_state *rcstate= &state;
+
+	if (exp == NULL)
+		FAIL("NULL argument");
+
+	/* First pass: determine size, legality. */
+	rcstate->regparse = exp;
+	rcstate->regnpar = 1;
+	rcstate->regsize = 0L;
+	rcstate->regcode = &regdummy;
+	regc(MAGIC, rcstate);
+	if (reg(0, &flags, rcstate) == NULL)
+		return(NULL);
+
+	/* Small enough for pointer-storage convention? */
+	if (rcstate->regsize >= 32767L)		/* Probably could be 65535L. */
+		FAIL("regexp too big");
+
+	/* Allocate space. */
+	r = (regexp *)ckalloc(sizeof(regexp) + (unsigned)rcstate->regsize);
+	if (r == NULL)
+		FAIL("out of space");
+
+	/* Second pass: emit code. */
+	rcstate->regparse = exp;
+	rcstate->regnpar = 1;
+	rcstate->regcode = r->program;
+	regc(MAGIC, rcstate);
+	if (reg(0, &flags, rcstate) == NULL)
+		return(NULL);
+
+	/* Dig out information for optimizations. */
+	r->regstart = '\0';	/* Worst-case defaults. */
+	r->reganch = 0;
+	r->regmust = NULL;
+	r->regmlen = 0;
+	scan = r->program+1;			/* First BRANCH. */
+	if (OP(regnext(scan)) == END) {		/* Only one top-level choice. */
+		scan = OPERAND(scan);
+
+		/* Starting-point info. */
+		if (OP(scan) == EXACTLY)
+			r->regstart = *OPERAND(scan);
+		else if (OP(scan) == BOL)
+			r->reganch++;
+
+		/*
+		 * If there's something expensive in the r.e., find the
+		 * longest literal string that must appear and make it the
+		 * regmust.  Resolve ties in favor of later strings, since
+		 * the regstart check works with the beginning of the r.e.
+		 * and avoiding duplication strengthens checking.  Not a
+		 * strong reason, but sufficient in the absence of others.
+		 */
+		if (flags&SPSTART) {
+			longest = NULL;
+			len = 0;
+			for (; scan != NULL; scan = regnext(scan))
+				if (OP(scan) == EXACTLY && ((int) strlen(OPERAND(scan))) >= len) {
+					longest = OPERAND(scan);
+					len = strlen(OPERAND(scan));
+				}
+			r->regmust = longest;
+			r->regmlen = len;
+		}
+	}
+
+	return(r);
+}
+
+/*
+ - reg - regular expression, i.e. main body or parenthesized thing
+ *
+ * Caller must absorb opening parenthesis.
+ *
+ * Combining parenthesis handling with the base level of regular expression
+ * is a trifle forced, but the need to tie the tails of the branches to what
+ * follows makes it hard to avoid.
+ */
+static char *
+reg(paren, flagp, rcstate)
+int paren;			/* Parenthesized? */
+int *flagp;
+struct regcomp_state *rcstate;
+{
+	register char *ret;
+	register char *br;
+	register char *ender;
+	register int parno = 0;
+	int flags;
+
+	*flagp = HASWIDTH;	/* Tentatively. */
+
+	/* Make an OPEN node, if parenthesized. */
+	if (paren) {
+		if (rcstate->regnpar >= NSUBEXP)
+			FAIL("too many ()");
+		parno = rcstate->regnpar;
+		rcstate->regnpar++;
+		ret = regnode(OPEN+parno,rcstate);
+	} else
+		ret = NULL;
+
+	/* Pick up the branches, linking them together. */
+	br = regbranch(&flags,rcstate);
+	if (br == NULL)
+		return(NULL);
+	if (ret != NULL)
+		regtail(ret, br);	/* OPEN -> first. */
+	else
+		ret = br;
+	if (!(flags&HASWIDTH))
+		*flagp &= ~HASWIDTH;
+	*flagp |= flags&SPSTART;
+	while (*rcstate->regparse == '|') {
+		rcstate->regparse++;
+		br = regbranch(&flags,rcstate);
+		if (br == NULL)
+			return(NULL);
+		regtail(ret, br);	/* BRANCH -> BRANCH. */
+		if (!(flags&HASWIDTH))
+			*flagp &= ~HASWIDTH;
+		*flagp |= flags&SPSTART;
+	}
+
+	/* Make a closing node, and hook it on the end. */
+	ender = regnode((paren) ? CLOSE+parno : END,rcstate);	
+	regtail(ret, ender);
+
+	/* Hook the tails of the branches to the closing node. */
+	for (br = ret; br != NULL; br = regnext(br))
+		regoptail(br, ender);
+
+	/* Check for proper termination. */
+	if (paren && *rcstate->regparse++ != ')') {
+		FAIL("unmatched ()");
+	} else if (!paren && *rcstate->regparse != '\0') {
+		if (*rcstate->regparse == ')') {
+			FAIL("unmatched ()");
+		} else
+			FAIL("junk on end");	/* "Can't happen". */
+		/* NOTREACHED */
+	}
+
+	return(ret);
+}
+
+/*
+ - regbranch - one alternative of an | operator
+ *
+ * Implements the concatenation operator.
+ */
+static char *
+regbranch(flagp, rcstate)
+int *flagp;
+struct regcomp_state *rcstate;
+{
+	register char *ret;
+	register char *chain;
+	register char *latest;
+	int flags;
+
+	*flagp = WORST;		/* Tentatively. */
+
+	ret = regnode(BRANCH,rcstate);
+	chain = NULL;
+	while (*rcstate->regparse != '\0' && *rcstate->regparse != '|' &&
+				*rcstate->regparse != ')') {
+		latest = regpiece(&flags, rcstate);
+		if (latest == NULL)
+			return(NULL);
+		*flagp |= flags&HASWIDTH;
+		if (chain == NULL)	/* First piece. */
+			*flagp |= flags&SPSTART;
+		else
+			regtail(chain, latest);
+		chain = latest;
+	}
+	if (chain == NULL)	/* Loop ran zero times. */
+		(void) regnode(NOTHING,rcstate);
+
+	return(ret);
+}
+
+/*
+ - regpiece - something followed by possible [*+?]
+ *
+ * Note that the branching code sequences used for ? and the general cases
+ * of * and + are somewhat optimized:  they use the same NOTHING node as
+ * both the endmarker for their branch list and the body of the last branch.
+ * It might seem that this node could be dispensed with entirely, but the
+ * endmarker role is not redundant.
+ */
+static char *
+regpiece(flagp, rcstate)
+int *flagp;
+struct regcomp_state *rcstate;
+{
+	register char *ret;
+	register char op;
+	register char *next;
+	int flags;
+
+	ret = regatom(&flags,rcstate);
+	if (ret == NULL)
+		return(NULL);
+
+	op = *rcstate->regparse;
+	if (!ISMULT(op)) {
+		*flagp = flags;
+		return(ret);
+	}
+
+	if (!(flags&HASWIDTH) && op != '?')
+		FAIL("*+ operand could be empty");
+	*flagp = (op != '+') ? (WORST|SPSTART) : (WORST|HASWIDTH);
+
+	if (op == '*' && (flags&SIMPLE))
+		reginsert(STAR, ret, rcstate);
+	else if (op == '*') {
+		/* Emit x* as (x&|), where & means "self". */
+		reginsert(BRANCH, ret, rcstate);			/* Either x */
+		regoptail(ret, regnode(BACK,rcstate));		/* and loop */
+		regoptail(ret, ret);			/* back */
+		regtail(ret, regnode(BRANCH,rcstate));		/* or */
+		regtail(ret, regnode(NOTHING,rcstate));		/* null. */
+	} else if (op == '+' && (flags&SIMPLE))
+		reginsert(PLUS, ret, rcstate);
+	else if (op == '+') {
+		/* Emit x+ as x(&|), where & means "self". */
+		next = regnode(BRANCH,rcstate);			/* Either */
+		regtail(ret, next);
+		regtail(regnode(BACK,rcstate), ret);		/* loop back */
+		regtail(next, regnode(BRANCH,rcstate));		/* or */
+		regtail(ret, regnode(NOTHING,rcstate));		/* null. */
+	} else if (op == '?') {
+		/* Emit x? as (x|) */
+		reginsert(BRANCH, ret, rcstate);			/* Either x */
+		regtail(ret, regnode(BRANCH,rcstate));		/* or */
+		next = regnode(NOTHING,rcstate);		/* null. */
+		regtail(ret, next);
+		regoptail(ret, next);
+	}
+	rcstate->regparse++;
+	if (ISMULT(*rcstate->regparse))
+		FAIL("nested *?+");
+
+	return(ret);
+}
+
+/*
+ - regatom - the lowest level
+ *
+ * Optimization:  gobbles an entire sequence of ordinary characters so that
+ * it can turn them into a single node, which is smaller to store and
+ * faster to run.  Backslashed characters are exceptions, each becoming a
+ * separate node; the code is simpler that way and it's not worth fixing.
+ */
+static char *
+regatom(flagp, rcstate)
+int *flagp;
+struct regcomp_state *rcstate;
+{
+	register char *ret;
+	int flags;
+
+	*flagp = WORST;		/* Tentatively. */
+
+	switch (*rcstate->regparse++) {
+	case '^':
+		ret = regnode(BOL,rcstate);
+		break;
+	case '$':
+		ret = regnode(EOL,rcstate);
+		break;
+	case '.':
+		ret = regnode(ANY,rcstate);
+		*flagp |= HASWIDTH|SIMPLE;
+		break;
+	case '[': {
+			register int clss;
+			register int classend;
+
+			if (*rcstate->regparse == '^') {	/* Complement of range. */
+				ret = regnode(ANYBUT,rcstate);
+				rcstate->regparse++;
+			} else
+				ret = regnode(ANYOF,rcstate);
+			if (*rcstate->regparse == ']' || *rcstate->regparse == '-')
+				regc(*rcstate->regparse++,rcstate);
+			while (*rcstate->regparse != '\0' && *rcstate->regparse != ']') {
+				if (*rcstate->regparse == '-') {
+					rcstate->regparse++;
+					if (*rcstate->regparse == ']' || *rcstate->regparse == '\0')
+						regc('-',rcstate);
+					else {
+						clss = UCHARAT(rcstate->regparse-2)+1;
+						classend = UCHARAT(rcstate->regparse);
+						if (clss > classend+1)
+							FAIL("invalid [] range");
+						for (; clss <= classend; clss++)
+							regc((char)clss,rcstate);
+						rcstate->regparse++;
+					}
+				} else
+					regc(*rcstate->regparse++,rcstate);
+			}
+			regc('\0',rcstate);
+			if (*rcstate->regparse != ']')
+				FAIL("unmatched []");
+			rcstate->regparse++;
+			*flagp |= HASWIDTH|SIMPLE;
+		}
+		break;
+	case '(':
+		ret = reg(1, &flags, rcstate);
+		if (ret == NULL)
+			return(NULL);
+		*flagp |= flags&(HASWIDTH|SPSTART);
+		break;
+	case '\0':
+	case '|':
+	case ')':
+		FAIL("internal urp");	/* Supposed to be caught earlier. */
+		/* NOTREACHED */
+		break;
+	case '?':
+	case '+':
+	case '*':
+		FAIL("?+* follows nothing");
+		/* NOTREACHED */
+		break;
+	case '\\':
+		if (*rcstate->regparse == '\0')
+			FAIL("trailing \\");
+		ret = regnode(EXACTLY,rcstate);
+		regc(*rcstate->regparse++,rcstate);
+		regc('\0',rcstate);
+		*flagp |= HASWIDTH|SIMPLE;
+		break;
+	default: {
+			register int len;
+			register char ender;
+
+			rcstate->regparse--;
+			len = strcspn(rcstate->regparse, META);
+			if (len <= 0)
+				FAIL("internal disaster");
+			ender = *(rcstate->regparse+len);
+			if (len > 1 && ISMULT(ender))
+				len--;		/* Back off clear of ?+* operand. */
+			*flagp |= HASWIDTH;
+			if (len == 1)
+				*flagp |= SIMPLE;
+			ret = regnode(EXACTLY,rcstate);
+			while (len > 0) {
+				regc(*rcstate->regparse++,rcstate);
+				len--;
+			}
+			regc('\0',rcstate);
+		}
+		break;
+	}
+
+	return(ret);
+}
+
+/*
+ - regnode - emit a node
+ */
+static char *			/* Location. */
+regnode(op, rcstate)
+int op;
+struct regcomp_state *rcstate;
+{
+	register char *ret;
+	register char *ptr;
+
+	ret = rcstate->regcode;
+	if (ret == &regdummy) {
+		rcstate->regsize += 3;
+		return(ret);
+	}
+
+	ptr = ret;
+	*ptr++ = (char)op;
+	*ptr++ = '\0';		/* Null "next" pointer. */
+	*ptr++ = '\0';
+	rcstate->regcode = ptr;
+
+	return(ret);
+}
+
+/*
+ - regc - emit (if appropriate) a byte of code
+ */
+static void
+regc(b, rcstate)
+int b;
+struct regcomp_state *rcstate;
+{
+	if (rcstate->regcode != &regdummy)
+		*rcstate->regcode++ = (char)b;
+	else
+		rcstate->regsize++;
+}
+
+/*
+ - reginsert - insert an operator in front of already-emitted operand
+ *
+ * Means relocating the operand.
+ */
+static void
+reginsert(op, opnd, rcstate)
+int op;
+char *opnd;
+struct regcomp_state *rcstate;
+{
+	register char *src;
+	register char *dst;
+	register char *place;
+
+	if (rcstate->regcode == &regdummy) {
+		rcstate->regsize += 3;
+		return;
+	}
+
+	src = rcstate->regcode;
+	rcstate->regcode += 3;
+	dst = rcstate->regcode;
+	while (src > opnd)
+		*--dst = *--src;
+
+	place = opnd;		/* Op node, where operand used to be. */
+	*place++ = (char)op;
+	*place++ = '\0';
+	*place = '\0';
+}
+
+/*
+ - regtail - set the next-pointer at the end of a node chain
+ */
+static void
+regtail(p, val)
+char *p;
+char *val;
+{
+	register char *scan;
+	register char *temp;
+	register int offset;
+
+	if (p == &regdummy)
+		return;
+
+	/* Find last node. */
+	scan = p;
+	for (;;) {
+		temp = regnext(scan);
+		if (temp == NULL)
+			break;
+		scan = temp;
+	}
+
+	if (OP(scan) == BACK)
+		offset = scan - val;
+	else
+		offset = val - scan;
+	*(scan+1) = (char)((offset>>8)&0377);
+	*(scan+2) = (char)(offset&0377);
+}
+
+/*
+ - regoptail - regtail on operand of first argument; nop if operandless
+ */
+static void
+regoptail(p, val)
+char *p;
+char *val;
+{
+	/* "Operandless" and "op != BRANCH" are synonymous in practice. */
+	if (p == NULL || p == &regdummy || OP(p) != BRANCH)
+		return;
+	regtail(OPERAND(p), val);
+}
+
+/*
+ * TclRegExec and friends
+ */
+
+/*
+ * Global work variables for TclRegExec().
+ */
+struct regexec_state  {
+    char *reginput;		/* String-input pointer. */
+    char *regbol;		/* Beginning of input, for ^ check. */
+    char **regstartp;	/* Pointer to startp array. */
+    char **regendp;		/* Ditto for endp. */
+};
+
+/*
+ * Forwards.
+ */
+static int 		regtry _ANSI_ARGS_((regexp *prog, char *string,
+			    struct regexec_state *restate));
+static int 		regmatch _ANSI_ARGS_((char *prog,
+			    struct regexec_state *restate));
+static int 		regrepeat _ANSI_ARGS_((char *p,
+			    struct regexec_state *restate));
+
+#ifdef DEBUG
+int regnarrate = 0;
+void regdump _ANSI_ARGS_((regexp *r));
+static char *regprop _ANSI_ARGS_((char *op));
+#endif
+
+/*
+ - TclRegExec - match a regexp against a string
+ */
+int
+TclRegExec(prog, string, start)
+register regexp *prog;
+register char *string;
+char *start;
+{
+	register char *s;
+	struct regexec_state state;
+	struct regexec_state *restate= &state;
+
+	/* Be paranoid... */
+	if (prog == NULL || string == NULL) {
+		TclRegError("NULL parameter");
+		return(0);
+	}
+
+	/* Check validity of program. */
+	if (UCHARAT(prog->program) != MAGIC) {
+		TclRegError("corrupted program");
+		return(0);
+	}
+
+	/* If there is a "must appear" string, look for it. */
+	if (prog->regmust != NULL) {
+		s = string;
+		while ((s = strchr(s, prog->regmust[0])) != NULL) {
+			if (strncmp(s, prog->regmust, (size_t) prog->regmlen)
+			    == 0)
+				break;	/* Found it. */
+			s++;
+		}
+		if (s == NULL)	/* Not present. */
+			return(0);
+	}
+
+	/* Mark beginning of line for ^ . */
+	restate->regbol = start;
+
+	/* Simplest case:  anchored match need be tried only once. */
+	if (prog->reganch)
+		return(regtry(prog, string, restate));
+
+	/* Messy cases:  unanchored match. */
+	s = string;
+	if (prog->regstart != '\0')
+		/* We know what char it must start with. */
+		while ((s = strchr(s, prog->regstart)) != NULL) {
+			if (regtry(prog, s, restate))
+				return(1);
+			s++;
+		}
+	else
+		/* We don't -- general case. */
+		do {
+			if (regtry(prog, s, restate))
+				return(1);
+		} while (*s++ != '\0');
+
+	/* Failure. */
+	return(0);
+}
+
+/*
+ - regtry - try match at specific point
+ */
+static int			/* 0 failure, 1 success */
+regtry(prog, string, restate)
+regexp *prog;
+char *string;
+struct regexec_state *restate;
+{
+	register int i;
+	register char **sp;
+	register char **ep;
+
+	restate->reginput = string;
+	restate->regstartp = prog->startp;
+	restate->regendp = prog->endp;
+
+	sp = prog->startp;
+	ep = prog->endp;
+	for (i = NSUBEXP; i > 0; i--) {
+		*sp++ = NULL;
+		*ep++ = NULL;
+	}
+	if (regmatch(prog->program + 1,restate)) {
+		prog->startp[0] = string;
+		prog->endp[0] = restate->reginput;
+		return(1);
+	} else
+		return(0);
+}
+
+/*
+ - regmatch - main matching routine
+ *
+ * Conceptually the strategy is simple:  check to see whether the current
+ * node matches, call self recursively to see whether the rest matches,
+ * and then act accordingly.  In practice we make some effort to avoid
+ * recursion, in particular by going through "ordinary" nodes (that don't
+ * need to know whether the rest of the match failed) by a loop instead of
+ * by recursion.
+ */
+static int			/* 0 failure, 1 success */
+regmatch(prog, restate)
+char *prog;
+struct regexec_state *restate;
+{
+    register char *scan;	/* Current node. */
+    char *next;		/* Next node. */
+
+    scan = prog;
+#ifdef DEBUG
+    if (scan != NULL && regnarrate)
+	fprintf(stderr, "%s(\n", regprop(scan));
+#endif
+    while (scan != NULL) {
+#ifdef DEBUG
+	if (regnarrate)
+	    fprintf(stderr, "%s...\n", regprop(scan));
+#endif
+	next = regnext(scan);
+
+	switch (OP(scan)) {
+	    case BOL:
+		if (restate->reginput != restate->regbol) {
+		    return 0;
+		}
+		break;
+	    case EOL:
+		if (*restate->reginput != '\0') {
+		    return 0;
+		}
+		break;
+	    case ANY:
+		if (*restate->reginput == '\0') {
+		    return 0;
+		}
+		restate->reginput++;
+		break;
+	    case EXACTLY: {
+		register int len;
+		register char *opnd;
+
+		opnd = OPERAND(scan);
+		/* Inline the first character, for speed. */
+		if (*opnd != *restate->reginput) {
+		    return 0 ;
+		}
+		len = strlen(opnd);
+		if (len > 1 && strncmp(opnd, restate->reginput, (size_t) len)
+			!= 0) {
+		    return 0;
+		}
+		restate->reginput += len;
+		break;
+	    }
+	    case ANYOF:
+		if (*restate->reginput == '\0'
+			|| strchr(OPERAND(scan), *restate->reginput) == NULL) {
+		    return 0;
+		}
+		restate->reginput++;
+		break;
+	    case ANYBUT:
+		if (*restate->reginput == '\0'
+			|| strchr(OPERAND(scan), *restate->reginput) != NULL) {
+		    return 0;
+		}
+		restate->reginput++;
+		break;
+	    case NOTHING:
+		break;
+	    case BACK:
+		break;
+	    case OPEN+1:
+	    case OPEN+2:
+	    case OPEN+3:
+	    case OPEN+4:
+	    case OPEN+5:
+	    case OPEN+6:
+	    case OPEN+7:
+	    case OPEN+8:
+	    case OPEN+9: {
+		register int no;
+		register char *save;
+
+	doOpen:
+		no = OP(scan) - OPEN;
+		save = restate->reginput;
+
+		if (regmatch(next,restate)) {
+		    /*
+		     * Don't set startp if some later invocation of the
+		     * same parentheses already has.
+		     */
+		    if (restate->regstartp[no] == NULL) {
+			restate->regstartp[no] = save;
+		    }
+		    return 1;
+		} else {
+		    return 0;
+		}
+	    }
+	    case CLOSE+1:
+	    case CLOSE+2:
+	    case CLOSE+3:
+	    case CLOSE+4:
+	    case CLOSE+5:
+	    case CLOSE+6:
+	    case CLOSE+7:
+	    case CLOSE+8:
+	    case CLOSE+9: {
+		register int no;
+		register char *save;
+
+	doClose:
+		no = OP(scan) - CLOSE;
+		save = restate->reginput;
+
+		if (regmatch(next,restate)) {
+				/*
+				 * Don't set endp if some later
+				 * invocation of the same parentheses
+				 * already has.
+				 */
+		    if (restate->regendp[no] == NULL)
+			restate->regendp[no] = save;
+		    return 1;
+		} else {
+		    return 0;
+		}
+	    }
+	    case BRANCH: {
+		register char *save;
+
+		if (OP(next) != BRANCH) { /* No choice. */
+		    next = OPERAND(scan); /* Avoid recursion. */
+		} else {
+		    do {
+			save = restate->reginput;
+			if (regmatch(OPERAND(scan),restate))
+			    return(1);
+			restate->reginput = save;
+			scan = regnext(scan);
+		    } while (scan != NULL && OP(scan) == BRANCH);
+		    return 0;
+		}
+		break;
+	    }
+	    case STAR:
+	    case PLUS: {
+		register char nextch;
+		register int no;
+		register char *save;
+		register int min;
+
+		/*
+		 * Lookahead to avoid useless match attempts
+		 * when we know what character comes next.
+		 */
+		nextch = '\0';
+		if (OP(next) == EXACTLY)
+		    nextch = *OPERAND(next);
+		min = (OP(scan) == STAR) ? 0 : 1;
+		save = restate->reginput;
+		no = regrepeat(OPERAND(scan),restate);
+		while (no >= min) {
+		    /* If it could work, try it. */
+		    if (nextch == '\0' || *restate->reginput == nextch)
+			if (regmatch(next,restate))
+			    return(1);
+		    /* Couldn't or didn't -- back up. */
+		    no--;
+		    restate->reginput = save + no;
+		}
+		return(0);
+	    }
+	    case END:
+		return(1);	/* Success! */
+	    default:
+		if (OP(scan) > OPEN && OP(scan) < OPEN+NSUBEXP) {
+		    goto doOpen;
+		} else if (OP(scan) > CLOSE && OP(scan) < CLOSE+NSUBEXP) {
+		    goto doClose;
+		}
+		TclRegError("memory corruption");
+		return 0;
+	}
+
+	scan = next;
+    }
+
+    /*
+     * We get here only if there's trouble -- normally "case END" is
+     * the terminating point.
+     */
+    TclRegError("corrupted pointers");
+    return(0);
+}
+
+/*
+ - regrepeat - repeatedly match something simple, report how many
+ */
+static int
+regrepeat(p, restate)
+char *p;
+struct regexec_state *restate;
+{
+	register int count = 0;
+	register char *scan;
+	register char *opnd;
+
+	scan = restate->reginput;
+	opnd = OPERAND(p);
+	switch (OP(p)) {
+	case ANY:
+		count = strlen(scan);
+		scan += count;
+		break;
+	case EXACTLY:
+		while (*opnd == *scan) {
+			count++;
+			scan++;
+		}
+		break;
+	case ANYOF:
+		while (*scan != '\0' && strchr(opnd, *scan) != NULL) {
+			count++;
+			scan++;
+		}
+		break;
+	case ANYBUT:
+		while (*scan != '\0' && strchr(opnd, *scan) == NULL) {
+			count++;
+			scan++;
+		}
+		break;
+	default:		/* Oh dear.  Called inappropriately. */
+		TclRegError("internal foulup");
+		count = 0;	/* Best compromise. */
+		break;
+	}
+	restate->reginput = scan;
+
+	return(count);
+}
+
+/*
+ - regnext - dig the "next" pointer out of a node
+ */
+static char *
+regnext(p)
+register char *p;
+{
+	register int offset;
+
+	if (p == &regdummy)
+		return(NULL);
+
+	offset = NEXT(p);
+	if (offset == 0)
+		return(NULL);
+
+	if (OP(p) == BACK)
+		return(p-offset);
+	else
+		return(p+offset);
+}
+
+#ifdef DEBUG
+
+static char *regprop();
+
+/*
+ - regdump - dump a regexp onto stdout in vaguely comprehensible form
+ */
+void
+regdump(r)
+regexp *r;
+{
+	register char *s;
+	register char op = EXACTLY;	/* Arbitrary non-END op. */
+	register char *next;
+
+
+	s = r->program + 1;
+	while (op != END) {	/* While that wasn't END last time... */
+		op = OP(s);
+		printf("%2d%s", s-r->program, regprop(s));	/* Where, what. */
+		next = regnext(s);
+		if (next == NULL)		/* Next ptr. */
+			printf("(0)");
+		else 
+			printf("(%d)", (s-r->program)+(next-s));
+		s += 3;
+		if (op == ANYOF || op == ANYBUT || op == EXACTLY) {
+			/* Literal string, where present. */
+			while (*s != '\0') {
+				putchar(*s);
+				s++;
+			}
+			s++;
+		}
+		putchar('\n');
+	}
+
+	/* Header fields of interest. */
+	if (r->regstart != '\0')
+		printf("start `%c' ", r->regstart);
+	if (r->reganch)
+		printf("anchored ");
+	if (r->regmust != NULL)
+		printf("must have \"%s\"", r->regmust);
+	printf("\n");
+}
+
+/*
+ - regprop - printable representation of opcode
+ */
+static char *
+regprop(op)
+char *op;
+{
+	register char *p;
+	static char buf[50];
+
+	(void) strcpy(buf, ":");
+
+	switch (OP(op)) {
+	case BOL:
+		p = "BOL";
+		break;
+	case EOL:
+		p = "EOL";
+		break;
+	case ANY:
+		p = "ANY";
+		break;
+	case ANYOF:
+		p = "ANYOF";
+		break;
+	case ANYBUT:
+		p = "ANYBUT";
+		break;
+	case BRANCH:
+		p = "BRANCH";
+		break;
+	case EXACTLY:
+		p = "EXACTLY";
+		break;
+	case NOTHING:
+		p = "NOTHING";
+		break;
+	case BACK:
+		p = "BACK";
+		break;
+	case END:
+		p = "END";
+		break;
+	case OPEN+1:
+	case OPEN+2:
+	case OPEN+3:
+	case OPEN+4:
+	case OPEN+5:
+	case OPEN+6:
+	case OPEN+7:
+	case OPEN+8:
+	case OPEN+9:
+		sprintf(buf+strlen(buf), "OPEN%d", OP(op)-OPEN);
+		p = NULL;
+		break;
+	case CLOSE+1:
+	case CLOSE+2:
+	case CLOSE+3:
+	case CLOSE+4:
+	case CLOSE+5:
+	case CLOSE+6:
+	case CLOSE+7:
+	case CLOSE+8:
+	case CLOSE+9:
+		sprintf(buf+strlen(buf), "CLOSE%d", OP(op)-CLOSE);
+		p = NULL;
+		break;
+	case STAR:
+		p = "STAR";
+		break;
+	case PLUS:
+		p = "PLUS";
+		break;
+	default:
+		if (OP(op) > OPEN && OP(op) < OPEN+NSUBEXP) {
+		    sprintf(buf+strlen(buf), "OPEN%d", OP(op)-OPEN);
+		    p = NULL;
+		    break;
+		} else if (OP(op) > CLOSE && OP(op) < CLOSE+NSUBEXP) {
+		    sprintf(buf+strlen(buf), "CLOSE%d", OP(op)-CLOSE);
+		    p = NULL;
+		} else {
+		    TclRegError("corrupted opcode");
+		}
+		break;
+	}
+	if (p != NULL)
+		(void) strcat(buf, p);
+	return(buf);
+}
+#endif
+
+/*
+ * The following is provided for those people who do not have strcspn() in
+ * their C libraries.  They should get off their butts and do something
+ * about it; at least one public-domain implementation of those (highly
+ * useful) string routines has been published on Usenet.
+ */
+#ifdef STRCSPN
+/*
+ * strcspn - find length of initial segment of s1 consisting entirely
+ * of characters not from s2
+ */
+
+static int
+strcspn(s1, s2)
+char *s1;
+char *s2;
+{
+	register char *scan1;
+	register char *scan2;
+	register int count;
+
+	count = 0;
+	for (scan1 = s1; *scan1 != '\0'; scan1++) {
+		for (scan2 = s2; *scan2 != '\0';)	/* ++ moved down. */
+			if (*scan1 == *scan2++)
+				return(count);
+		count++;
+	}
+	return(count);
+}
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclRegError --
+ *
+ *	This procedure is invoked by the regexp code when an error
+ *	occurs.  It saves the error message so it can be seen by the
+ *	code that called Spencer's code.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The value of "string" is saved in "errMsg".
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TclRegError(string)
+    char *string;			/* Error message. */
+{
+    errMsg = string;
+}
+
+char *
+TclGetRegError()
+{
+    return errMsg;
+}
diff --git a/Tcl/tcl.h b/Tcl/tcl.h
new file mode 100644
index 0000000..24c3c26
--- /dev/null
+++ b/Tcl/tcl.h
@@ -0,0 +1,1058 @@
+/*
+ * tcl.h --
+ *
+ *	This header file describes the externally-visible facilities
+ *	of the Tcl interpreter.
+ *
+ * Copyright (c) 1987-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tcl.h 1.266 96/04/10 11:25:19
+ */
+
+#ifndef _TCL
+#define _TCL
+
+/*
+ * The following definitions set up the proper options for Windows
+ * compilers.  We use this method because there is no autoconf equivalent.
+ */
+
+#if defined(_WIN32) && !defined(__WIN32__)
+#   define __WIN32__
+#endif
+
+#ifdef __WIN32__
+#   undef USE_PROTOTYPE
+#   undef HAS_STDARG
+#   define USE_PROTOTYPE
+#   define HAS_STDARG
+#endif
+
+#ifdef WIN32
+#   undef USE_PROTOTYPE
+#   undef HAS_STDARG
+#   define USE_PROTOTYPE
+#   define HAS_STDARG
+#endif
+
+#ifndef BUFSIZ
+#include <stdio.h>
+#endif
+
+#define TCL_VERSION "7.5"
+#define TCL_MAJOR_VERSION 7
+#define TCL_MINOR_VERSION 5
+
+/*
+ * Definitions that allow Tcl functions with variable numbers of
+ * arguments to be used with either varargs.h or stdarg.h.  TCL_VARARGS
+ * is used in procedure prototypes.  TCL_VARARGS_DEF is used to declare
+ * the arguments in a function definiton: it takes the type and name of
+ * the first argument and supplies the appropriate argument declaration
+ * string for use in the function definition.  TCL_VARARGS_START
+ * initializes the va_list data structure and returns the first argument.
+ */
+
+#if defined(__STDC__) || defined(HAS_STDARG)
+#   define TCL_VARARGS(type, name) (type name, ...)
+#   define TCL_VARARGS_DEF(type, name) (type name, ...)
+#   define TCL_VARARGS_START(type, name, list) (va_start(list, name), name)
+#else
+#   ifdef __cplusplus
+#	define TCL_VARARGS(type, name) (type name, ...)
+#	define TCL_VARARGS_DEF(type, name) (type va_alist, ...)
+#   else
+#	define TCL_VARARGS(type, name) ()
+#	define TCL_VARARGS_DEF(type, name) (va_alist)
+#   endif
+#   define TCL_VARARGS_START(type, name, list) \
+	(va_start(list), va_arg(list, type))
+#endif
+
+/*
+ * Definitions that allow this header file to be used either with or
+ * without ANSI C features like function prototypes.
+ */
+
+#undef _ANSI_ARGS_
+#undef CONST
+
+#if ((defined(__STDC__) || defined(SABER)) && !defined(NO_PROTOTYPE)) || defined(__cplusplus) || defined(USE_PROTOTYPE)
+#   define _USING_PROTOTYPES_ 1
+#   define _ANSI_ARGS_(x)	x
+#   define CONST const
+#else
+#   define _ANSI_ARGS_(x)	()
+#   define CONST
+#endif
+
+#ifdef __cplusplus
+#   define EXTERN extern "C"
+#else
+#   define EXTERN extern
+#endif
+
+/*
+ * Macro to use instead of "void" for arguments that must have
+ * type "void *" in ANSI C;  maps them to type "char *" in
+ * non-ANSI systems.
+ */
+#ifndef __WIN32__
+#ifndef VOID
+#   ifdef __STDC__
+#       define VOID void
+#   else
+#       define VOID char
+#   endif
+#endif
+#else /* __WIN32__ */
+/*
+ * The following code is copied from winnt.h
+ */
+#ifndef VOID
+#define VOID void
+typedef char CHAR;
+typedef short SHORT;
+typedef long LONG;
+#endif
+#endif /* __WIN32__ */
+
+/*
+ * Miscellaneous declarations.
+ */
+
+#ifndef NULL
+#define NULL 0
+#endif
+
+#ifndef _CLIENTDATA
+#   if defined(__STDC__) || defined(__cplusplus)
+    typedef void *ClientData;
+#   else
+    typedef int *ClientData;
+#   endif /* __STDC__ */
+#define _CLIENTDATA
+#endif
+
+/*
+ * Data structures defined opaquely in this module.  The definitions
+ * below just provide dummy types.  A few fields are made visible in
+ * Tcl_Interp structures, namely those for returning string values.
+ * Note:  any change to the Tcl_Interp definition below must be mirrored
+ * in the "real" definition in tclInt.h.
+ */
+
+typedef struct Tcl_Interp{
+    char *result;		/* Points to result string returned by last
+				 * command. */
+    void (*freeProc) _ANSI_ARGS_((char *blockPtr));
+				/* Zero means result is statically allocated.
+				 * TCL_DYNAMIC means result was allocated with
+				 * ckalloc and should be freed with ckfree.
+				 * Other values give address of procedure
+				 * to invoke to free the result.  Must be
+				 * freed by Tcl_Eval before executing next
+				 * command. */
+    int errorLine;		/* When TCL_ERROR is returned, this gives
+				 * the line number within the command where
+				 * the error occurred (1 means first line). */
+} Tcl_Interp;
+
+typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
+typedef struct Tcl_Command_ *Tcl_Command;
+typedef struct Tcl_Event Tcl_Event;
+typedef struct Tcl_File_ *Tcl_File;
+typedef struct Tcl_Channel_ *Tcl_Channel;
+typedef struct Tcl_RegExp_ *Tcl_RegExp;
+typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
+typedef struct Tcl_Trace_ *Tcl_Trace;
+
+/*
+ * When a TCL command returns, the string pointer interp->result points to
+ * a string containing return information from the command.  In addition,
+ * the command procedure returns an integer value, which is one of the
+ * following:
+ *
+ * TCL_OK		Command completed normally;  interp->result contains
+ *			the command's result.
+ * TCL_ERROR		The command couldn't be completed successfully;
+ *			interp->result describes what went wrong.
+ * TCL_RETURN		The command requests that the current procedure
+ *			return;  interp->result contains the procedure's
+ *			return value.
+ * TCL_BREAK		The command requests that the innermost loop
+ *			be exited;  interp->result is meaningless.
+ * TCL_CONTINUE		Go on to the next iteration of the current loop;
+ *			interp->result is meaningless.
+ */
+
+#define TCL_OK		0
+#define TCL_ERROR	1
+#define TCL_RETURN	2
+#define TCL_BREAK	3
+#define TCL_CONTINUE	4
+
+#define TCL_RESULT_SIZE 200
+
+/*
+ * Argument descriptors for math function callbacks in expressions:
+ */
+
+typedef enum {TCL_INT, TCL_DOUBLE, TCL_EITHER} Tcl_ValueType;
+typedef struct Tcl_Value {
+    Tcl_ValueType type;		/* Indicates intValue or doubleValue is
+				 * valid, or both. */
+    long intValue;		/* Integer value. */
+    double doubleValue;		/* Double-precision floating value. */
+} Tcl_Value;
+
+/*
+ * Procedure types defined by Tcl:
+ */
+
+typedef int (Tcl_AppInitProc) _ANSI_ARGS_((Tcl_Interp *interp));
+typedef int (Tcl_AsyncProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, int code));
+typedef void (Tcl_ChannelProc) _ANSI_ARGS_((ClientData clientData, int mask));
+typedef void (Tcl_CloseProc) _ANSI_ARGS_((ClientData data));
+typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
+typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, int argc, char *argv[]));
+typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc,
+	ClientData cmdClientData, int argc, char *argv[]));
+typedef int (Tcl_EventProc) _ANSI_ARGS_((Tcl_Event *evPtr, int flags));
+typedef void (Tcl_EventCheckProc) _ANSI_ARGS_((ClientData clientData,
+	int flags));
+typedef int (Tcl_EventDeleteProc) _ANSI_ARGS_((Tcl_Event *evPtr,
+        ClientData clientData));
+typedef void (Tcl_EventSetupProc) _ANSI_ARGS_((ClientData clientData,
+	int flags));
+typedef void (Tcl_ExitProc) _ANSI_ARGS_((ClientData clientData));
+typedef void (Tcl_FileProc) _ANSI_ARGS_((ClientData clientData, int mask));
+typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData));
+typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
+typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData));
+typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp));
+typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr));
+typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp));
+typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData,
+        Tcl_Channel chan, char *address, int port));
+typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData));
+typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, char *part1, char *part2, int flags));
+
+/*
+ * The structure returned by Tcl_GetCmdInfo and passed into
+ * Tcl_SetCmdInfo:
+ */
+
+typedef struct Tcl_CmdInfo {
+    Tcl_CmdProc *proc;			/* Procedure to implement command. */
+    ClientData clientData;		/* ClientData passed to proc. */
+    Tcl_CmdDeleteProc *deleteProc;	/* Procedure to call when command
+					 * is deleted. */
+    ClientData deleteData;		/* Value to pass to deleteProc (usually
+					 * the same as clientData). */
+} Tcl_CmdInfo;
+
+/*
+ * The structure defined below is used to hold dynamic strings.  The only
+ * field that clients should use is the string field, and they should
+ * never modify it.
+ */
+
+#define TCL_DSTRING_STATIC_SIZE 200
+typedef struct Tcl_DString {
+    char *string;		/* Points to beginning of string:  either
+				 * staticSpace below or a malloc'ed array. */
+    int length;			/* Number of non-NULL characters in the
+				 * string. */
+    int spaceAvl;		/* Total number of bytes available for the
+				 * string and its terminating NULL char. */
+    char staticSpace[TCL_DSTRING_STATIC_SIZE];
+				/* Space to use in common case where string
+				 * is small. */
+} Tcl_DString;
+
+#define Tcl_DStringLength(dsPtr) ((dsPtr)->length)
+#define Tcl_DStringValue(dsPtr) ((dsPtr)->string)
+#define Tcl_DStringTrunc Tcl_DStringSetLength
+
+/*
+ * Definitions for the maximum number of digits of precision that may
+ * be specified in the "tcl_precision" variable, and the number of
+ * characters of buffer space required by Tcl_PrintDouble.
+ */
+
+#define TCL_MAX_PREC 17
+#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10)
+
+/*
+ * Flag that may be passed to Tcl_ConvertElement to force it not to
+ * output braces (careful!  if you change this flag be sure to change
+ * the definitions at the front of tclUtil.c).
+ */
+
+#define TCL_DONT_USE_BRACES	1
+
+/*
+ * Flag values passed to Tcl_RecordAndEval.
+ * WARNING: these bit choices must not conflict with the bit choices
+ * for evalFlag bits in tclInt.h!!
+ */
+
+#define TCL_NO_EVAL		0x10000
+#define TCL_EVAL_GLOBAL		0x20000
+
+/*
+ * Special freeProc values that may be passed to Tcl_SetResult (see
+ * the man page for details):
+ */
+
+#define TCL_VOLATILE	((Tcl_FreeProc *) 1)
+#define TCL_STATIC	((Tcl_FreeProc *) 0)
+#define TCL_DYNAMIC	((Tcl_FreeProc *) 3)
+
+/*
+ * Flag values passed to variable-related procedures.
+ */
+
+#define TCL_GLOBAL_ONLY		1
+#define TCL_APPEND_VALUE	2
+#define TCL_LIST_ELEMENT	4
+#define TCL_TRACE_READS		0x10
+#define TCL_TRACE_WRITES	0x20
+#define TCL_TRACE_UNSETS	0x40
+#define TCL_TRACE_DESTROYED	0x80
+#define TCL_INTERP_DESTROYED	0x100
+#define TCL_LEAVE_ERR_MSG	0x200
+#ifdef STk_CODE
+#  define STk_STRINGIFY		0x400	/* tells Tcl_SetVar to stringify value */
+#endif
+
+
+/*
+ * Types for linked variables:
+ */
+
+#define TCL_LINK_INT		1
+#define TCL_LINK_DOUBLE		2
+#define TCL_LINK_BOOLEAN	3
+#define TCL_LINK_STRING		4
+#define TCL_LINK_READ_ONLY	0x80
+
+/*
+ * The following declarations either map ckalloc and ckfree to
+ * malloc and free, or they map them to procedures with all sorts
+ * of debugging hooks defined in tclCkalloc.c.
+ */
+
+#ifdef TCL_MEM_DEBUG
+
+#  define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
+#  define ckfree(x)  Tcl_DbCkfree(x, __FILE__, __LINE__)
+#  define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
+
+EXTERN int		Tcl_DumpActiveMemory _ANSI_ARGS_((char *fileName));
+EXTERN void		Tcl_ValidateAllMemory _ANSI_ARGS_((char *file,
+			    int line));
+
+#else
+
+#  define ckalloc(x) malloc(x)
+#  define ckfree(x)  free(x)
+#  define ckrealloc(x,y) realloc(x,y)
+
+#  define Tcl_DumpActiveMemory(x)
+#  define Tcl_ValidateAllMemory(x,y)
+
+#endif /* TCL_MEM_DEBUG */
+
+/*
+ * Macro to free result of interpreter.
+ */
+
+#define Tcl_FreeResult(interp)					\
+    if ((interp)->freeProc != 0) {				\
+	if (((interp)->freeProc == TCL_DYNAMIC)			\
+	    || ((interp)->freeProc == (Tcl_FreeProc *) free)) {	\
+	    ckfree((interp)->result);				\
+	} else {						\
+	    (*(interp)->freeProc)((interp)->result);		\
+	}							\
+	(interp)->freeProc = 0;					\
+    }
+
+/*
+ * Forward declaration of Tcl_HashTable.  Needed by some C++ compilers
+ * to prevent errors when the forward reference to Tcl_HashTable is
+ * encountered in the Tcl_HashEntry structure.
+ */
+
+#ifdef __cplusplus
+struct Tcl_HashTable;
+#endif
+
+/*
+ * Structure definition for an entry in a hash table.  No-one outside
+ * Tcl should access any of these fields directly;  use the macros
+ * defined below.
+ */
+
+typedef struct Tcl_HashEntry {
+    struct Tcl_HashEntry *nextPtr;	/* Pointer to next entry in this
+					 * hash bucket, or NULL for end of
+					 * chain. */
+    struct Tcl_HashTable *tablePtr;	/* Pointer to table containing entry. */
+    struct Tcl_HashEntry **bucketPtr;	/* Pointer to bucket that points to
+					 * first entry in this entry's chain:
+					 * used for deleting the entry. */
+    ClientData clientData;		/* Application stores something here
+					 * with Tcl_SetHashValue. */
+    union {				/* Key has one of these forms: */
+	char *oneWordValue;		/* One-word value for key. */
+	int words[1];			/* Multiple integer words for key.
+					 * The actual size will be as large
+					 * as necessary for this table's
+					 * keys. */
+	char string[4];			/* String for key.  The actual size
+					 * will be as large as needed to hold
+					 * the key. */
+    } key;				/* MUST BE LAST FIELD IN RECORD!! */
+} Tcl_HashEntry;
+
+/*
+ * Structure definition for a hash table.  Must be in tcl.h so clients
+ * can allocate space for these structures, but clients should never
+ * access any fields in this structure.
+ */
+
+#define TCL_SMALL_HASH_TABLE 4
+typedef struct Tcl_HashTable {
+    Tcl_HashEntry **buckets;		/* Pointer to bucket array.  Each
+					 * element points to first entry in
+					 * bucket's hash chain, or NULL. */
+    Tcl_HashEntry *staticBuckets[TCL_SMALL_HASH_TABLE];
+					/* Bucket array used for small tables
+					 * (to avoid mallocs and frees). */
+    int numBuckets;			/* Total number of buckets allocated
+					 * at **bucketPtr. */
+    int numEntries;			/* Total number of entries present
+					 * in table. */
+    int rebuildSize;			/* Enlarge table when numEntries gets
+					 * to be this large. */
+    int downShift;			/* Shift count used in hashing
+					 * function.  Designed to use high-
+					 * order bits of randomized keys. */
+    int mask;				/* Mask value used in hashing
+					 * function. */
+    int keyType;			/* Type of keys used in this table. 
+					 * It's either TCL_STRING_KEYS,
+					 * TCL_ONE_WORD_KEYS, or an integer
+					 * giving the number of ints that
+                                         * is the size of the key.
+					 */
+    Tcl_HashEntry *(*findProc) _ANSI_ARGS_((struct Tcl_HashTable *tablePtr,
+	    char *key));
+    Tcl_HashEntry *(*createProc) _ANSI_ARGS_((struct Tcl_HashTable *tablePtr,
+	    char *key, int *newPtr));
+} Tcl_HashTable;
+
+/*
+ * Structure definition for information used to keep track of searches
+ * through hash tables:
+ */
+
+typedef struct Tcl_HashSearch {
+    Tcl_HashTable *tablePtr;		/* Table being searched. */
+    int nextIndex;			/* Index of next bucket to be
+					 * enumerated after present one. */
+    Tcl_HashEntry *nextEntryPtr;	/* Next entry to be enumerated in the
+					 * the current bucket. */
+} Tcl_HashSearch;
+
+/*
+ * Acceptable key types for hash tables:
+ */
+
+#define TCL_STRING_KEYS		0
+#define TCL_ONE_WORD_KEYS	1
+
+/*
+ * Macros for clients to use to access fields of hash entries:
+ */
+
+#define Tcl_GetHashValue(h) ((h)->clientData)
+#define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
+#define Tcl_GetHashKey(tablePtr, h) \
+    ((char *) (((tablePtr)->keyType == TCL_ONE_WORD_KEYS) ? (h)->key.oneWordValue \
+						: (h)->key.string))
+
+/*
+ * Macros to use for clients to use to invoke find and create procedures
+ * for hash tables:
+ */
+
+#define Tcl_FindHashEntry(tablePtr, key) \
+	(*((tablePtr)->findProc))(tablePtr, key)
+#define Tcl_CreateHashEntry(tablePtr, key, newPtr) \
+	(*((tablePtr)->createProc))(tablePtr, key, newPtr)
+
+/*
+ * Flag values to pass to Tcl_DoOneEvent to disable searches
+ * for some kinds of events:
+ */
+
+#define TCL_DONT_WAIT		(1<<1)
+#define TCL_WINDOW_EVENTS	(1<<2)
+#define TCL_FILE_EVENTS		(1<<3)
+#define TCL_TIMER_EVENTS	(1<<4)
+#define TCL_IDLE_EVENTS		(1<<5)	/* WAS 0x10 ???? */
+#define TCL_ALL_EVENTS		(~TCL_DONT_WAIT)
+
+/*
+ * The following structure defines a generic event for the Tcl event
+ * system.  These are the things that are queued in calls to Tcl_QueueEvent
+ * and serviced later by Tcl_DoOneEvent.  There can be many different
+ * kinds of events with different fields, corresponding to window events,
+ * timer events, etc.  The structure for a particular event consists of
+ * a Tcl_Event header followed by additional information specific to that
+ * event.
+ */
+
+struct Tcl_Event {
+    Tcl_EventProc *proc;	/* Procedure to call to service this event. */
+    struct Tcl_Event *nextPtr;	/* Next in list of pending events, or NULL. */
+};
+
+/*
+ * Positions to pass to Tk_QueueEvent:
+ */
+
+typedef enum {
+    TCL_QUEUE_TAIL, TCL_QUEUE_HEAD, TCL_QUEUE_MARK
+} Tcl_QueuePosition;
+
+/*
+ * The following structure keeps is used to hold a time value, either as
+ * an absolute time (the number of seconds from the epoch) or as an
+ * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
+ * On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT.
+ */
+
+typedef struct Tcl_Time {
+    long sec;			/* Seconds. */
+    long usec;			/* Microseconds. */
+} Tcl_Time;
+
+/*
+ * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler
+ * to indicate what sorts of events are of interest:
+ */
+
+#define TCL_READABLE	(1<<1)
+#define TCL_WRITABLE	(1<<2)
+#define TCL_EXCEPTION	(1<<3)
+
+/*
+ * Flag values to pass to Tcl_OpenCommandChannel to indicate the
+ * disposition of the stdio handles.  TCL_STDIN, TCL_STDOUT, TCL_STDERR,
+ * are also used in Tcl_GetStdChannel.
+ */
+
+#define TCL_STDIN		(1<<1)	
+#define TCL_STDOUT		(1<<2)
+#define TCL_STDERR		(1<<3)
+#define TCL_ENFORCE_MODE	(1<<4)
+
+/*
+ * Typedefs for the various operations in a channel type:
+ */
+
+typedef int	(Tcl_DriverBlockModeProc) _ANSI_ARGS_((ClientData instanceData,
+		    Tcl_File inFile, Tcl_File outFile, int mode));
+typedef int	(Tcl_DriverCloseProc) _ANSI_ARGS_((ClientData instanceData,
+		    Tcl_Interp *interp, Tcl_File inFile, Tcl_File outFile));
+typedef int	(Tcl_DriverInputProc) _ANSI_ARGS_((ClientData instanceData,
+		    Tcl_File inFile, char *buf, int toRead,
+		    int *errorCodePtr));
+typedef int	(Tcl_DriverOutputProc) _ANSI_ARGS_((ClientData instanceData,
+	            Tcl_File outFile, char *buf, int toWrite,
+        	    int *errorCodePtr));
+typedef int	(Tcl_DriverSeekProc) _ANSI_ARGS_((ClientData instanceData,
+		    Tcl_File inFile, Tcl_File outFile, long offset, int mode,
+		    int *errorCodePtr));
+typedef int	(Tcl_DriverSetOptionProc) _ANSI_ARGS_((
+		    ClientData instanceData, Tcl_Interp *interp,
+                    char *optionName, char *value));
+typedef int	(Tcl_DriverGetOptionProc) _ANSI_ARGS_((
+		    ClientData instanceData, char *optionName,
+                    Tcl_DString *dsPtr));
+
+/*
+ * Enum for different end of line translation and recognition modes.
+ */
+
+typedef enum Tcl_EolTranslation {
+    TCL_TRANSLATE_AUTO,			/* Eol == \r, \n and \r\n. */
+    TCL_TRANSLATE_CR,			/* Eol == \r. */
+    TCL_TRANSLATE_LF,			/* Eol == \n. */
+    TCL_TRANSLATE_CRLF			/* Eol == \r\n. */
+} Tcl_EolTranslation;
+
+/*
+ * struct Tcl_ChannelType:
+ *
+ * One such structure exists for each type (kind) of channel.
+ * It collects together in one place all the functions that are
+ * part of the specific channel type.
+ */
+
+typedef struct Tcl_ChannelType {
+    char *typeName;			/* The name of the channel type in Tcl
+                                         * commands. This storage is owned by
+                                         * channel type. */
+    Tcl_DriverBlockModeProc *blockModeProc;
+    					/* Set blocking mode for the
+                                         * raw channel. May be NULL. */
+    Tcl_DriverCloseProc *closeProc;	/* Procedure to call to close
+                                         * the channel. */
+    Tcl_DriverInputProc *inputProc;	/* Procedure to call for input
+                                         * on channel. */
+    Tcl_DriverOutputProc *outputProc;	/* Procedure to call for output
+                                         * on channel. */
+    Tcl_DriverSeekProc *seekProc;	/* Procedure to call to seek
+                                         * on the channel. May be NULL. */
+    Tcl_DriverSetOptionProc *setOptionProc;
+    					/* Set an option on a channel. */
+    Tcl_DriverGetOptionProc *getOptionProc;
+    					/* Get an option from a channel. */
+} Tcl_ChannelType;
+
+/*
+ * The following flags determine whether the blockModeProc above should
+ * set the channel into blocking or nonblocking mode. They are passed
+ * as arguments to the blockModeProc procedure in the above structure.
+ */
+
+#define TCL_MODE_BLOCKING 0		/* Put channel into blocking mode. */
+#define TCL_MODE_NONBLOCKING 1		/* Put channel into nonblocking
+					 * mode. */
+
+/*
+ * Types for file handles:
+ */
+
+#define TCL_UNIX_FD	1
+#define TCL_MAC_FILE	2
+#define TCL_MAC_SOCKET	3
+#define TCL_WIN_PIPE	4
+#define TCL_WIN_FILE	5
+#define TCL_WIN_SOCKET	6
+#define TCL_WIN_CONSOLE 7
+
+/*
+ * Enum for different types of file paths.
+ */
+
+typedef enum Tcl_PathType {
+    TCL_PATH_ABSOLUTE,
+    TCL_PATH_RELATIVE,
+    TCL_PATH_VOLUME_RELATIVE
+} Tcl_PathType;
+
+/*
+ * The following interface is exported for backwards compatibility, but
+ * is only implemented on Unix.  Portable applications should use
+ * Tcl_OpenCommandChannel, instead.
+ */
+
+EXTERN int		Tcl_CreatePipeline _ANSI_ARGS_((Tcl_Interp *interp,
+			    int argc, char **argv, int **pidArrayPtr,
+			    int *inPipePtr, int *outPipePtr,
+			    int *errFilePtr));
+
+/*
+ * Exported Tcl procedures:
+ */
+
+EXTERN void		Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *message));
+EXTERN void		Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string));
+EXTERN void		Tcl_AppendResult _ANSI_ARGS_(
+    			    TCL_VARARGS(Tcl_Interp *,interp));
+EXTERN int		Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN Tcl_AsyncHandler	Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc *proc,
+			    ClientData clientData));
+EXTERN void		Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async));
+EXTERN int		Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp *interp,
+			    int code));
+EXTERN void		Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
+EXTERN int		Tcl_AsyncReady _ANSI_ARGS_((void));
+EXTERN void		Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN char		Tcl_Backslash _ANSI_ARGS_((char *src,
+			    int *readPtr));
+EXTERN void		Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_InterpDeleteProc *proc,
+			    ClientData clientData));
+EXTERN void		Tcl_CancelIdleCall _ANSI_ARGS_((Tcl_IdleProc *idleProc,
+			    ClientData clientData));
+EXTERN VOID *		Tcl_Ckalloc _ANSI_ARGS_((unsigned int size));
+EXTERN void		Tcl_Ckfree _ANSI_ARGS_((char *ptr));
+EXTERN int		Tcl_Close _ANSI_ARGS_((Tcl_Interp *interp,
+        		    Tcl_Channel chan));
+EXTERN int		Tcl_CommandComplete _ANSI_ARGS_((char *cmd));
+EXTERN char *		Tcl_Concat _ANSI_ARGS_((int argc, char **argv));
+EXTERN int		Tcl_ConvertElement _ANSI_ARGS_((char *src,
+			    char *dst, int flags));
+EXTERN int		Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp *slave,
+			    char *slaveCmd, Tcl_Interp *target,
+        		    char *targetCmd, int argc, char **argv));
+EXTERN Tcl_Channel	Tcl_CreateChannel _ANSI_ARGS_((
+    			    Tcl_ChannelType *typePtr, char *chanName,
+                            Tcl_File inFile, Tcl_File outFile,
+                            ClientData instanceData));
+EXTERN void		Tcl_CreateChannelHandler _ANSI_ARGS_((
+			    Tcl_Channel chan, int mask,
+                            Tcl_ChannelProc *proc, ClientData clientData));
+EXTERN void		Tcl_CreateCloseHandler _ANSI_ARGS_((
+			    Tcl_Channel chan, Tcl_CloseProc *proc,
+                            ClientData clientData));
+EXTERN Tcl_Command	Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *cmdName, Tcl_CmdProc *proc,
+			    ClientData clientData,
+			    Tcl_CmdDeleteProc *deleteProc));
+EXTERN void		Tcl_CreateEventSource _ANSI_ARGS_((
+			    Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc
+			    *checkProc, ClientData clientData));
+EXTERN void		Tcl_CreateExitHandler _ANSI_ARGS_((Tcl_ExitProc *proc,
+			    ClientData clientData));
+EXTERN void		Tcl_CreateFileHandler _ANSI_ARGS_((
+    			    Tcl_File file, int mask, Tcl_FileProc *proc,
+			    ClientData clientData));
+EXTERN Tcl_Interp *	Tcl_CreateInterp _ANSI_ARGS_((void));
+EXTERN void		Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int numArgs, Tcl_ValueType *argTypes,
+			    Tcl_MathProc *proc, ClientData clientData));
+EXTERN void		Tcl_CreateModalTimeout _ANSI_ARGS_((int milliseconds,
+			    Tcl_TimerProc *proc, ClientData clientData));
+EXTERN Tcl_Interp	*Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp *interp,
+		            char *slaveName, int isSafe));
+EXTERN Tcl_TimerToken	Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds,
+			    Tcl_TimerProc *proc, ClientData clientData));
+EXTERN Tcl_Trace	Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp,
+			    int level, Tcl_CmdTraceProc *proc,
+			    ClientData clientData));
+EXTERN char *		Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,
+			    char *file, int line));
+EXTERN int		Tcl_DbCkfree _ANSI_ARGS_((char *ptr,
+			    char *file, int line));
+EXTERN char *		Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr,
+			    unsigned int size, char *file, int line));
+EXTERN void		Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp *interp,
+                            char *name));
+EXTERN int		Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *cmdName));
+EXTERN void		Tcl_DeleteChannelHandler _ANSI_ARGS_((
+    			    Tcl_Channel chan, Tcl_ChannelProc *proc,
+                            ClientData clientData));
+EXTERN void		Tcl_DeleteCloseHandler _ANSI_ARGS_((
+			    Tcl_Channel chan, Tcl_CloseProc *proc,
+                            ClientData clientData));
+EXTERN void		Tcl_DeleteEventSource _ANSI_ARGS_((
+			    Tcl_EventSetupProc *setupProc,
+			    Tcl_EventCheckProc *checkProc,
+			    ClientData clientData));
+EXTERN void		Tcl_DeleteEvents _ANSI_ARGS_((
+			    Tcl_EventDeleteProc *proc,
+                            ClientData clientData));
+EXTERN void		Tcl_DeleteExitHandler _ANSI_ARGS_((Tcl_ExitProc *proc,
+			    ClientData clientData));
+EXTERN void		Tcl_DeleteFileHandler _ANSI_ARGS_((
+    			    Tcl_File file));
+EXTERN void		Tcl_DeleteHashEntry _ANSI_ARGS_((
+			    Tcl_HashEntry *entryPtr));
+EXTERN void		Tcl_DeleteHashTable _ANSI_ARGS_((
+			    Tcl_HashTable *tablePtr));
+EXTERN void		Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		Tcl_DeleteModalTimeout _ANSI_ARGS_((
+			    Tcl_TimerProc *proc, ClientData clientData));
+EXTERN void		Tcl_DeleteTimerHandler _ANSI_ARGS_((
+			    Tcl_TimerToken token));
+EXTERN void		Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_Trace trace));
+EXTERN void		Tcl_DetachPids _ANSI_ARGS_((int numPids, int *pidPtr));
+EXTERN void		Tcl_DontCallWhenDeleted _ANSI_ARGS_((
+			    Tcl_Interp *interp, Tcl_InterpDeleteProc *proc,
+			    ClientData clientData));
+EXTERN int		Tcl_DoOneEvent _ANSI_ARGS_((int flags));
+EXTERN void		Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc,
+			    ClientData clientData));
+EXTERN char *		Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString *dsPtr,
+			    char *string, int length));
+EXTERN char *		Tcl_DStringAppendElement _ANSI_ARGS_((
+			    Tcl_DString *dsPtr, char *string));
+EXTERN void		Tcl_DStringEndSublist _ANSI_ARGS_((Tcl_DString *dsPtr));
+EXTERN void		Tcl_DStringFree _ANSI_ARGS_((Tcl_DString *dsPtr));
+EXTERN void		Tcl_DStringGetResult _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_DString *dsPtr));
+EXTERN void		Tcl_DStringInit _ANSI_ARGS_((Tcl_DString *dsPtr));
+EXTERN void		Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_DString *dsPtr));
+EXTERN void		Tcl_DStringSetLength _ANSI_ARGS_((Tcl_DString *dsPtr,
+			    int length));
+EXTERN void		Tcl_DStringStartSublist _ANSI_ARGS_((
+			    Tcl_DString *dsPtr));
+EXTERN int		Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN char *		Tcl_ErrnoId _ANSI_ARGS_((void));
+EXTERN char *		Tcl_ErrnoMsg _ANSI_ARGS_((int err));
+EXTERN int		Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp, char *cmd));
+EXTERN int		Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *fileName));
+EXTERN void		Tcl_EventuallyFree _ANSI_ARGS_((ClientData clientData,
+			    Tcl_FreeProc *freeProc));
+EXTERN void		Tcl_Exit _ANSI_ARGS_((int status));
+EXTERN int		Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *ptr));
+EXTERN int		Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, double *ptr));
+EXTERN int		Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, long *ptr));
+EXTERN int		Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string));
+EXTERN int		Tcl_FileReady _ANSI_ARGS_((Tcl_File file,
+			    int mask));
+EXTERN void		Tcl_FindExecutable _ANSI_ARGS_((char *argv0));
+EXTERN Tcl_HashEntry *	Tcl_FirstHashEntry _ANSI_ARGS_((
+			    Tcl_HashTable *tablePtr,
+			    Tcl_HashSearch *searchPtr));
+EXTERN int		Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN void 		Tcl_FreeFile _ANSI_ARGS_((
+    			    Tcl_File file));
+EXTERN int		Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp *interp,
+       			    char *slaveCmd, Tcl_Interp **targetInterpPtr,
+                            char **targetCmdPtr, int *argcPtr,
+			    char ***argvPtr));
+EXTERN ClientData	Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp *interp,
+                            char *name, Tcl_InterpDeleteProc **procPtr));
+EXTERN int		Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *boolPtr));
+EXTERN Tcl_Channel	Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp *interp,
+	        	    char *chanName, int *modePtr));
+EXTERN int		Tcl_GetChannelBufferSize _ANSI_ARGS_((
+    			    Tcl_Channel chan));
+EXTERN Tcl_File		Tcl_GetChannelFile _ANSI_ARGS_((Tcl_Channel chan,
+	        	    int direction));
+EXTERN ClientData	Tcl_GetChannelInstanceData _ANSI_ARGS_((
+    			    Tcl_Channel chan));
+EXTERN int		Tcl_GetChannelOption _ANSI_ARGS_((Tcl_Channel chan,
+		            char *optionName, Tcl_DString *dsPtr));
+EXTERN char *		Tcl_GetChannelName _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN int		Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *cmdName, Tcl_CmdInfo *infoPtr));
+EXTERN char *		Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_Command command));
+EXTERN char *		Tcl_GetCwd _ANSI_ARGS_((char *buf, int len));
+EXTERN int		Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, double *doublePtr));
+EXTERN int		Tcl_GetErrno _ANSI_ARGS_((void));
+EXTERN Tcl_File		Tcl_GetFile _ANSI_ARGS_((ClientData fileData,
+			    int type));
+EXTERN ClientData	Tcl_GetFileInfo _ANSI_ARGS_((Tcl_File file,
+			    int *typePtr));
+EXTERN char *		Tcl_GetHostName _ANSI_ARGS_((void));
+EXTERN int		Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *intPtr));
+EXTERN int		Tcl_GetInterpPath _ANSI_ARGS_((Tcl_Interp *askInterp,
+			    Tcl_Interp *slaveInterp));
+EXTERN Tcl_Interp	*Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN ClientData	Tcl_GetNotifierData _ANSI_ARGS_((Tcl_File file,
+			    Tcl_FileFreeProc **freeProcPtr));
+EXTERN int		Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int write, int checkUsage,
+			    ClientData *filePtr));
+EXTERN Tcl_PathType	Tcl_GetPathType _ANSI_ARGS_((char *path));
+EXTERN int		Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan,
+        		    Tcl_DString *dsPtr));
+EXTERN Tcl_Interp	*Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *slaveName));
+EXTERN Tcl_Channel	Tcl_GetStdChannel _ANSI_ARGS_((int type));
+EXTERN char *		Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, int flags));
+EXTERN char *		Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, int flags));
+EXTERN int		Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *command));
+EXTERN char *		Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable *tablePtr));
+EXTERN int		Tcl_Init _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		Tcl_InitHashTable _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    int keyType));
+EXTERN void		Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN int		Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN int		Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan));
+EXTERN int		Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN int		Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN char *		Tcl_JoinPath _ANSI_ARGS_((int argc, char **argv,
+			    Tcl_DString *resultPtr));
+EXTERN int		Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, char *addr, int type));
+EXTERN void		Tcl_Main _ANSI_ARGS_((int argc, char **argv,
+			    Tcl_AppInitProc *appInitProc));
+EXTERN Tcl_Channel	Tcl_MakeFileChannel _ANSI_ARGS_((ClientData inFile,
+		            ClientData outFile, int mode));
+EXTERN int		Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN Tcl_Channel	Tcl_MakeTcpClientChannel _ANSI_ARGS_((
+    			    ClientData tcpSocket));
+EXTERN char *		Tcl_Merge _ANSI_ARGS_((int argc, char **argv));
+EXTERN Tcl_HashEntry *	Tcl_NextHashEntry _ANSI_ARGS_((
+			    Tcl_HashSearch *searchPtr));
+EXTERN Tcl_Channel	Tcl_OpenCommandChannel _ANSI_ARGS_((
+    			    Tcl_Interp *interp, int argc, char **argv,
+			    int flags));
+EXTERN Tcl_Channel	Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp,
+        		    char *fileName, char *modeString,
+                            int permissions));
+EXTERN Tcl_Channel	Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp *interp,
+			    int port, char *address, char *myaddr,
+		            int myport, int async));
+EXTERN Tcl_Channel	Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp *interp,
+		            int port, char *host,
+        		    Tcl_TcpAcceptProc *acceptProc,
+			    ClientData callbackData));
+EXTERN char *		Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, char **termPtr));
+EXTERN int		Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, char *version));
+EXTERN char *		Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, char *version, int exact));
+EXTERN char *		Tcl_PosixError _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		Tcl_Preserve _ANSI_ARGS_((ClientData data));
+EXTERN void		Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp *interp,
+			    double value, char *dst));
+EXTERN int		Tcl_PutEnv _ANSI_ARGS_((CONST char *string));
+EXTERN void		Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr,
+			    Tcl_QueuePosition position));
+EXTERN int		Tcl_Read _ANSI_ARGS_((Tcl_Channel chan,
+	        	    char *bufPtr, int toRead));
+EXTERN void		Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
+EXTERN int		Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *cmd, int flags));
+EXTERN Tcl_RegExp	Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string));
+EXTERN int		Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_RegExp regexp, char *string, char *start));
+EXTERN int		Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, char *pattern));
+EXTERN void		Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp,
+			    int index, char **startPtr, char **endPtr));
+EXTERN void		Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp *interp,
+	        	    Tcl_Channel chan));
+EXTERN void		Tcl_Release _ANSI_ARGS_((ClientData clientData));
+EXTERN void		Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp));
+#define Tcl_Return Tcl_SetResult
+EXTERN int		Tcl_ScanElement _ANSI_ARGS_((char *string,
+			    int *flagPtr));
+EXTERN int		Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan,
+        		    int offset, int mode));
+EXTERN void		Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp *interp,
+                            char *name, Tcl_InterpDeleteProc *proc,
+                            ClientData clientData));
+EXTERN void		Tcl_SetChannelBufferSize _ANSI_ARGS_((
+			    Tcl_Channel chan, int sz));
+EXTERN int		Tcl_SetChannelOption _ANSI_ARGS_((
+			    Tcl_Interp *interp, Tcl_Channel chan,
+	        	    char *optionName, char *newValue));
+EXTERN int		Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *cmdName, Tcl_CmdInfo *infoPtr));
+EXTERN void		Tcl_SetErrno _ANSI_ARGS_((int errno));
+EXTERN void		Tcl_SetErrorCode _ANSI_ARGS_(
+    			    TCL_VARARGS(Tcl_Interp *,interp));
+EXTERN void		Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr));
+EXTERN void		Tcl_SetNotifierData _ANSI_ARGS_((Tcl_File file,
+			    Tcl_FileFreeProc *freeProcPtr, ClientData data));
+EXTERN void		Tcl_SetPanicProc _ANSI_ARGS_((void (*proc)
+			    _ANSI_ARGS_(TCL_VARARGS(char *, format))));
+EXTERN int		Tcl_SetRecursionLimit _ANSI_ARGS_((Tcl_Interp *interp,
+			    int depth));
+EXTERN void		Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, Tcl_FreeProc *freeProc));
+EXTERN void		Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel,
+			    int type));
+EXTERN char *		Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, char *newValue, int flags));
+EXTERN char *		Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, char *newValue,
+			    int flags));
+EXTERN char *		Tcl_SignalId _ANSI_ARGS_((int sig));
+EXTERN char *		Tcl_SignalMsg _ANSI_ARGS_((int sig));
+EXTERN void		Tcl_Sleep _ANSI_ARGS_((int ms));
+EXTERN int		Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *list, int *argcPtr, char ***argvPtr));
+EXTERN void		Tcl_SplitPath _ANSI_ARGS_((char *path,
+			    int *argcPtr, char ***argvPtr));
+EXTERN void		Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *pkgName, Tcl_PackageInitProc *initProc,
+			    Tcl_PackageInitProc *safeInitProc));
+EXTERN int		Tcl_StringMatch _ANSI_ARGS_((char *string,
+			    char *pattern));
+EXTERN int		Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan));
+#define Tcl_TildeSubst Tcl_TranslateFileName
+EXTERN int		Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, int flags, Tcl_VarTraceProc *proc,
+			    ClientData clientData));
+EXTERN int		Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, int flags,
+			    Tcl_VarTraceProc *proc, ClientData clientData));
+EXTERN char *		Tcl_TranslateFileName _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, Tcl_DString *bufferPtr));
+EXTERN void		Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName));
+EXTERN int		Tcl_UnregisterChannel _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_Channel chan));
+EXTERN int		Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, int flags));
+EXTERN int		Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, int flags));
+EXTERN void		Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, int flags, Tcl_VarTraceProc *proc,
+			    ClientData clientData));
+EXTERN void		Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, int flags,
+			    Tcl_VarTraceProc *proc, ClientData clientData));
+EXTERN void		Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName));
+EXTERN int		Tcl_UpVar _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *frameName, char *varName,
+			    char *localName, int flags));
+EXTERN int		Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *frameName, char *part1, char *part2,
+			    char *localName, int flags));
+EXTERN int		Tcl_VarEval _ANSI_ARGS_(
+    			    TCL_VARARGS(Tcl_Interp *,interp));
+EXTERN ClientData	Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *varName, int flags,
+			    Tcl_VarTraceProc *procPtr,
+			    ClientData prevClientData));
+EXTERN ClientData	Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *part1, char *part2, int flags,
+			    Tcl_VarTraceProc *procPtr,
+			    ClientData prevClientData));
+EXTERN int		Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time *timePtr));
+EXTERN int		Tcl_WaitPid _ANSI_ARGS_((int pid, int *statPtr,
+                            int options));
+EXTERN void		Tcl_WatchFile _ANSI_ARGS_((Tcl_File file,
+			    int mask));
+EXTERN int		Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
+        		    char *s, int slen));
+
+#endif /* _TCL */
diff --git a/Tcl/tclAsync.c b/Tcl/tclAsync.c
new file mode 100644
index 0000000..905b664
--- /dev/null
+++ b/Tcl/tclAsync.c
@@ -0,0 +1,265 @@
+/* 
+ * tclAsync.c --
+ *
+ *	This file provides low-level support needed to invoke signal
+ *	handlers in a safe way.  The code here doesn't actually handle
+ *	signals, though.  This code is based on proposals made by
+ *	Mark Diekhans and Don Libes.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclAsync.c 1.6 96/02/15 11:46:15
+ */
+
+#include "tclInt.h"
+
+/*
+ * One of the following structures exists for each asynchronous
+ * handler:
+ */
+
+typedef struct AsyncHandler {
+    int ready;				/* Non-zero means this handler should
+					 * be invoked in the next call to
+					 * Tcl_AsyncInvoke. */
+    struct AsyncHandler *nextPtr;	/* Next in list of all handlers for
+					 * the process. */
+    Tcl_AsyncProc *proc;		/* Procedure to call when handler
+					 * is invoked. */
+    ClientData clientData;		/* Value to pass to handler when it
+					 * is invoked. */
+} AsyncHandler;
+
+/*
+ * The variables below maintain a list of all existing handlers.
+ */
+
+static AsyncHandler *firstHandler;	/* First handler defined for process,
+					 * or NULL if none. */
+static AsyncHandler *lastHandler;	/* Last handler or NULL. */
+
+/*
+ * The variable below is set to 1 whenever a handler becomes ready and
+ * it is cleared to zero whenever Tcl_AsyncInvoke is called.  It can be
+ * checked elsewhere in the application by calling Tcl_AsyncReady to see
+ * if Tcl_AsyncInvoke should be invoked.
+ */
+
+static int asyncReady = 0;
+
+/*
+ * The variable below indicates whether Tcl_AsyncInvoke is currently
+ * working.  If so then we won't set asyncReady again until
+ * Tcl_AsyncInvoke returns.
+ */
+
+static int asyncActive = 0;
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AsyncCreate --
+ *
+ *	This procedure creates the data structures for an asynchronous
+ *	handler, so that no memory has to be allocated when the handler
+ *	is activated.
+ *
+ * Results:
+ *	The return value is a token for the handler, which can be used
+ *	to activate it later on.
+ *
+ * Side effects:
+ *	Information about the handler is recorded.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_AsyncHandler
+Tcl_AsyncCreate(proc, clientData)
+    Tcl_AsyncProc *proc;		/* Procedure to call when handler
+					 * is invoked. */
+    ClientData clientData;		/* Argument to pass to handler. */
+{
+    AsyncHandler *asyncPtr;
+
+    asyncPtr = (AsyncHandler *) ckalloc(sizeof(AsyncHandler));
+    asyncPtr->ready = 0;
+    asyncPtr->nextPtr = NULL;
+    asyncPtr->proc = proc;
+    asyncPtr->clientData = clientData;
+    if (firstHandler == NULL) {
+	firstHandler = asyncPtr;
+    } else {
+	lastHandler->nextPtr = asyncPtr;
+    }
+    lastHandler = asyncPtr;
+    return (Tcl_AsyncHandler) asyncPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AsyncMark --
+ *
+ *	This procedure is called to request that an asynchronous handler
+ *	be invoked as soon as possible.  It's typically called from
+ *	an interrupt handler, where it isn't safe to do anything that
+ *	depends on or modifies application state.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The handler gets marked for invocation later.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_AsyncMark(async)
+    Tcl_AsyncHandler async;		/* Token for handler. */
+{
+    ((AsyncHandler *) async)->ready = 1;
+    if (!asyncActive) {
+	asyncReady = 1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AsyncInvoke --
+ *
+ *	This procedure is called at a "safe" time at background level
+ *	to invoke any active asynchronous handlers.
+ *
+ * Results:
+ *	The return value is a normal Tcl result, which is intended to
+ *	replace the code argument as the current completion code for
+ *	interp.
+ *
+ * Side effects:
+ *	Depends on the handlers that are active.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_AsyncInvoke(interp, code)
+    Tcl_Interp *interp;			/* If invoked from Tcl_Eval just after
+					 * completing a command, points to
+					 * interpreter.  Otherwise it is
+					 * NULL. */
+    int code; 				/* If interp is non-NULL, this gives
+					 * completion code from command that
+					 * just completed. */
+{
+    AsyncHandler *asyncPtr;
+
+    if (asyncReady == 0) {
+	return code;
+    }
+    asyncReady = 0;
+    asyncActive = 1;
+    if (interp == NULL) {
+	code = 0;
+    }
+
+    /*
+     * Make one or more passes over the list of handlers, invoking
+     * at most one handler in each pass.  After invoking a handler,
+     * go back to the start of the list again so that (a) if a new
+     * higher-priority handler gets marked while executing a lower
+     * priority handler, we execute the higher-priority handler
+     * next, and (b) if a handler gets deleted during the execution
+     * of a handler, then the list structure may change so it isn't
+     * safe to continue down the list anyway.
+     */
+
+    while (1) {
+	for (asyncPtr = firstHandler; asyncPtr != NULL;
+		asyncPtr = asyncPtr->nextPtr) {
+	    if (asyncPtr->ready) {
+		break;
+	    }
+	}
+	if (asyncPtr == NULL) {
+	    break;
+	}
+	asyncPtr->ready = 0;
+	code = (*asyncPtr->proc)(asyncPtr->clientData, interp, code);
+    }
+    asyncActive = 0;
+    return code;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AsyncDelete --
+ *
+ *	Frees up all the state for an asynchronous handler.  The handler
+ *	should never be used again.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The state associated with the handler is deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_AsyncDelete(async)
+    Tcl_AsyncHandler async;		/* Token for handler to delete. */
+{
+    AsyncHandler *asyncPtr = (AsyncHandler *) async;
+    AsyncHandler *prevPtr;
+
+    if (firstHandler == asyncPtr) {
+	firstHandler = asyncPtr->nextPtr;
+	if (firstHandler == NULL) {
+	    lastHandler = NULL;
+	}
+    } else {
+	prevPtr = firstHandler;
+	while (prevPtr->nextPtr != asyncPtr) {
+	    prevPtr = prevPtr->nextPtr;
+	}
+	prevPtr->nextPtr = asyncPtr->nextPtr;
+	if (lastHandler == asyncPtr) {
+	    lastHandler = prevPtr;
+	}
+    }
+    ckfree((char *) asyncPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AsyncReady --
+ *
+ *	This procedure can be used to tell whether Tcl_AsyncInvoke
+ *	needs to be called.  This procedure is the external interface
+ *	for checking the internal asyncReady variable.
+ *
+ * Results:
+ * 	The return value is 1 whenever a handler is ready and is 0
+ *	when no handlers are ready.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_AsyncReady()
+{
+    return asyncReady;
+}
diff --git a/Tcl/tclConfig.sh b/Tcl/tclConfig.sh
new file mode 100644
index 0000000..bef136c
--- /dev/null
+++ b/Tcl/tclConfig.sh
@@ -0,0 +1,94 @@
+# tclConfig.sh --
+# 
+# This shell script (for sh) is generated automatically by Tcl's
+# configure script.  It will create shell variables for most of
+# the configuration options discovered by the configure script.
+# This script is intended to be included by the configure scripts
+# for Tcl extensions so that they don't have to figure this all
+# out for themselves.
+#
+# The information in this file is specific to a single platform.
+#
+# SCCS: @(#) tclConfig.sh.in 1.13 96/04/11 09:50:14
+
+# Tcl's version number.
+TCL_VERSION='7.5'
+TCL_MAJOR_VERSION='7'
+TCL_MINOR_VERSION='5'
+
+# C compiler to use for compilation.
+TCL_CC='gcc'
+
+# -D flags for use with the C compiler.
+TCL_DEFS=' -DHAVE_UNISTD_H=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_TZNAME=1 -DHAVE_TIMEZONE_VAR=1 -DSTDC_HEADERS=1 -Dvfork=fork '
+
+# The name of the Tcl library (may be either a .a file or a shared library):
+TCL_LIB_FILE=libtcl7.5.a
+
+# Additional libraries to use when linking Tcl.
+TCL_LIBS='-ldl  -lieee -lm'
+
+# Top-level directory in which Tcl's platform-independent files are
+# installed.
+TCL_PREFIX='/usr/local'
+
+# Top-level directory in which Tcl's platform-specific files (e.g.
+# executables) are installed.
+TCL_EXEC_PREFIX='/usr/local'
+
+# Flags to pass to cc when compiling the components of a shared library:
+TCL_SHLIB_CFLAGS='-fPIC'
+
+# Base command to use for combining object files into a shared library:
+TCL_SHLIB_LD='gcc -shared'
+
+# Either '$LIBS' (if dependent libraries should be included when linking
+# shared libraries) or an empty string.  See Tcl's configure.in for more
+# explanation.
+TCL_SHLIB_LD_LIBS=''
+
+# Suffix to use for the name of a shared library.
+TCL_SHLIB_SUFFIX='.so'
+
+# Library file(s) to include in tclsh and other base applications
+# in order to provide facilities needed by DLOBJ above.
+TCL_DL_LIBS='-ldl'
+
+# Flags to pass to the compiler when linking object files into
+# an executable tclsh or tcltest binary.
+TCL_LD_FLAGS='-rdynamic'
+
+# Flags to pass to ld, such as "-R /usr/local/tcl/lib", that tell the
+# run-time dynamic linker where to look for shared libraries such as
+# libtcl.so.  Used when linking applications.  Only works if there
+# is a variable "LIB_INSTALL_DIR" defined in the Makefile.
+TCL_LD_SEARCH_FLAGS=''
+
+# Additional object files linked with Tcl to provide compatibility
+# with standard facilities from ANSI C or POSIX.
+TCL_COMPAT_OBJS=''
+
+# Name of the ranlib program to use.
+TCL_RANLIB='ranlib'
+
+# String to pass to linker to pick up the Tcl library from its
+# build directory.
+TCL_LIB_SPEC='-L/usr/local/lib -ltcl7.5'
+
+# Indicates whether a version numbers should be used in -l switches
+# (if 1, use switches like -ltcl7.5;  if 0, use switches like -ltcl).
+# 0 is required under SunOS 4.1, for example.
+TCL_LIB_VERSIONS_OK='ok'
+
+# String that can be evaluated to generate the part of a shared library
+# name that comes after the "libxxx" (includes version number, if any,
+# extension, and anything else needed).  Depends on the variables
+# VERSION and SHLIB_SUFFIX.  On most UNIX systems this is
+# ${VERSION}.${SHLIB_SUFFIX}.
+TCL_SHARED_LIB_SUFFIX='${VERSION}${SHLIB_SUFFIX}'
+
+# String that can be evaluated to generate the part of an unshared library
+# name that comes after the "libxxx" (includes version number, if any,
+# extension, and anything else needed).  Depends on the variables
+# VERSION.  On most UNIX systems this is ${VERSION}.a.
+TCL_UNSHARED_LIB_SUFFIX='${VERSION}.a'
diff --git a/Tcl/tclConfig.sh.in b/Tcl/tclConfig.sh.in
new file mode 100644
index 0000000..6ae5880
--- /dev/null
+++ b/Tcl/tclConfig.sh.in
@@ -0,0 +1,94 @@
+# tclConfig.sh --
+# 
+# This shell script (for sh) is generated automatically by Tcl's
+# configure script.  It will create shell variables for most of
+# the configuration options discovered by the configure script.
+# This script is intended to be included by the configure scripts
+# for Tcl extensions so that they don't have to figure this all
+# out for themselves.
+#
+# The information in this file is specific to a single platform.
+#
+# SCCS: @(#) tclConfig.sh.in 1.13 96/04/11 09:50:14
+
+# Tcl's version number.
+TCL_VERSION='@TCL_VERSION@'
+TCL_MAJOR_VERSION='@TCL_MAJOR_VERSION@'
+TCL_MINOR_VERSION='@TCL_MINOR_VERSION@'
+
+# C compiler to use for compilation.
+TCL_CC='@CC@'
+
+# -D flags for use with the C compiler.
+TCL_DEFS='@DEFS@'
+
+# The name of the Tcl library (may be either a .a file or a shared library):
+TCL_LIB_FILE=@TCL_LIB_FILE@
+
+# Additional libraries to use when linking Tcl.
+TCL_LIBS='@DL_LIBS@ @LIBS@ @MATH_LIBS@'
+
+# Top-level directory in which Tcl's platform-independent files are
+# installed.
+TCL_PREFIX='@prefix@'
+
+# Top-level directory in which Tcl's platform-specific files (e.g.
+# executables) are installed.
+TCL_EXEC_PREFIX='@exec_prefix@'
+
+# Flags to pass to cc when compiling the components of a shared library:
+TCL_SHLIB_CFLAGS='@SHLIB_CFLAGS@'
+
+# Base command to use for combining object files into a shared library:
+TCL_SHLIB_LD='@SHLIB_LD@'
+
+# Either '$LIBS' (if dependent libraries should be included when linking
+# shared libraries) or an empty string.  See Tcl's configure.in for more
+# explanation.
+TCL_SHLIB_LD_LIBS='@SHLIB_LD_LIBS@'
+
+# Suffix to use for the name of a shared library.
+TCL_SHLIB_SUFFIX='@SHLIB_SUFFIX@'
+
+# Library file(s) to include in tclsh and other base applications
+# in order to provide facilities needed by DLOBJ above.
+TCL_DL_LIBS='@DL_LIBS@'
+
+# Flags to pass to the compiler when linking object files into
+# an executable tclsh or tcltest binary.
+TCL_LD_FLAGS='@LD_FLAGS@'
+
+# Flags to pass to ld, such as "-R /usr/local/tcl/lib", that tell the
+# run-time dynamic linker where to look for shared libraries such as
+# libtcl.so.  Used when linking applications.  Only works if there
+# is a variable "LIB_INSTALL_DIR" defined in the Makefile.
+TCL_LD_SEARCH_FLAGS='@TCL_LD_SEARCH_FLAGS@'
+
+# Additional object files linked with Tcl to provide compatibility
+# with standard facilities from ANSI C or POSIX.
+TCL_COMPAT_OBJS='@LIBOBJS@'
+
+# Name of the ranlib program to use.
+TCL_RANLIB='@RANLIB@'
+
+# String to pass to linker to pick up the Tcl library from its
+# build directory.
+TCL_LIB_SPEC='@TCL_LIB_SPEC@'
+
+# Indicates whether a version numbers should be used in -l switches
+# (if 1, use switches like -ltcl7.5;  if 0, use switches like -ltcl).
+# 0 is required under SunOS 4.1, for example.
+TCL_LIB_VERSIONS_OK='@TCL_LIB_VERSIONS_OK@'
+
+# String that can be evaluated to generate the part of a shared library
+# name that comes after the "libxxx" (includes version number, if any,
+# extension, and anything else needed).  Depends on the variables
+# VERSION and SHLIB_SUFFIX.  On most UNIX systems this is
+# ${VERSION}.${SHLIB_SUFFIX}.
+TCL_SHARED_LIB_SUFFIX='@TCL_SHARED_LIB_SUFFIX@'
+
+# String that can be evaluated to generate the part of an unshared library
+# name that comes after the "libxxx" (includes version number, if any,
+# extension, and anything else needed).  Depends on the variables
+# VERSION.  On most UNIX systems this is ${VERSION}.a.
+TCL_UNSHARED_LIB_SUFFIX='@TCL_UNSHARED_LIB_SUFFIX@'
diff --git a/Tcl/tclEvent.c b/Tcl/tclEvent.c
new file mode 100644
index 0000000..0738f4d
--- /dev/null
+++ b/Tcl/tclEvent.c
@@ -0,0 +1,2282 @@
+/* 
+ * tclEvent.c --
+ *
+ *	This file provides basic event-managing facilities for Tcl,
+ *	including an event queue, and mechanisms for attaching
+ *	callbacks to certain events.
+ *
+ *	It also contains the command procedures for the commands
+ *	"after", "vwait", and "update".
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclEvent.c 1.127 96/03/22 12:12:33
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * For each file registered in a call to Tcl_CreateFileHandler,
+ * there is one record of the following type.  All of these records
+ * are chained together into a single list.
+ */
+
+typedef struct FileHandler {
+    Tcl_File file;		/* Generic file handle for file. */
+    int mask;			/* Mask of desired events: TCL_READABLE, etc. */
+    int readyMask;		/* Events that were ready the last time that
+				 * FileHandlerCheckProc checked this file. */
+    Tcl_FileProc *proc;		/* Procedure to call, in the style of
+				 * Tcl_CreateFileHandler.  This is NULL
+				 * if the handler was created by
+				 * Tcl_CreateFileHandler2. */
+    ClientData clientData;	/* Argument to pass to proc. */
+    struct FileHandler *nextPtr;/* Next in list of all files we care
+				 * about (NULL for end of list). */
+} FileHandler;
+
+static FileHandler *firstFileHandlerPtr = (FileHandler *) NULL;
+				/* List of all file handlers. */
+static int fileEventSourceCreated = 0;
+				/* Non-zero means that the file event source
+				 * hasn't been registerd with the Tcl
+				 * notifier yet. */
+
+/*
+ * The following structure is what is added to the Tcl event queue when
+ * file handlers are ready to fire.
+ */
+
+typedef struct FileHandlerEvent {
+    Tcl_Event header;		/* Information that is standard for
+				 * all events. */
+    Tcl_File file;		/* File descriptor that is ready.  Used
+				 * to find the FileHandler structure for
+				 * the file (can't point directly to the
+				 * FileHandler structure because it could
+				 * go away while the event is queued). */
+} FileHandlerEvent;
+
+/*
+ * For each timer callback that's pending (either regular or "modal"),
+ * there is one record of the following type.  The normal handlers
+ * (created by Tcl_CreateTimerHandler) are chained together in a
+ * list sorted by time (earliest event first).
+ */
+
+typedef struct TimerHandler {
+    Tcl_Time time;			/* When timer is to fire. */
+    Tcl_TimerProc *proc;		/* Procedure to call. */
+    ClientData clientData;		/* Argument to pass to proc. */
+    Tcl_TimerToken token;		/* Identifies event so it can be
+					 * deleted.  Not used in modal
+					 * timeouts. */
+    struct TimerHandler *nextPtr;	/* Next event in queue, or NULL for
+					 * end of queue. */
+} TimerHandler;
+
+static TimerHandler *firstTimerHandlerPtr = NULL;
+					/* First event in queue. */
+static int timerEventSourceCreated = 0;	/* 0 means that the timer event source
+					 * hasn't yet been registered with the
+					 * Tcl notifier. */
+
+/*
+ * The information below describes a stack of modal timeouts managed by
+ * Tcl_CreateModalTimer and Tcl_DeleteModalTimer.  Only the first element
+ * in the list is used at any given time.
+ */
+
+static TimerHandler *firstModalHandlerPtr = NULL;
+
+/*
+ * The following structure is what's added to the Tcl event queue when
+ * timer handlers are ready to fire.
+ */
+
+typedef struct TimerEvent {
+    Tcl_Event header;			/* Information that is standard for
+					 * all events. */
+    Tcl_Time time;			/* All timer events that specify this
+					 * time or earlier are ready
+                                         * to fire. */
+} TimerEvent;
+
+/*
+ * There is one of the following structures for each of the
+ * handlers declared in a call to Tcl_DoWhenIdle.  All of the
+ * currently-active handlers are linked together into a list.
+ */
+
+typedef struct IdleHandler {
+    Tcl_IdleProc (*proc);	/* Procedure to call. */
+    ClientData clientData;	/* Value to pass to proc. */
+    int generation;		/* Used to distinguish older handlers from
+				 * recently-created ones. */
+    struct IdleHandler *nextPtr;/* Next in list of active handlers. */
+} IdleHandler;
+
+static IdleHandler *idleList = NULL;
+				/* First in list of all idle handlers. */
+static IdleHandler *lastIdlePtr = NULL;
+				/* Last in list (or NULL for empty list). */
+static int idleGeneration = 0;	/* Used to fill in the "generation" fields
+				 * of IdleHandler structures.  Increments
+				 * each time Tcl_DoOneEvent starts calling
+				 * idle handlers, so that all old handlers
+				 * can be called without calling any of the
+				 * new ones created by old ones. */
+
+/*
+ * The data structure below is used by the "after" command to remember
+ * the command to be executed later.  All of the pending "after" commands
+ * for an interpreter are linked together in a list.
+ */
+
+typedef struct AfterInfo {
+    struct AfterAssocData *assocPtr;
+				/* Pointer to the "tclAfter" assocData for
+				 * the interp in which command will be
+				 * executed. */
+    char *command;		/* Command to execute.  Malloc'ed, so must
+				 * be freed when structure is deallocated. */
+    int id;			/* Integer identifier for command;  used to
+				 * cancel it. */
+    Tcl_TimerToken token;	/* Used to cancel the "after" command.  NULL
+				 * means that the command is run as an
+				 * idle handler rather than as a timer
+				 * handler.  NULL means this is an "after
+				 * idle" handler rather than a
+                                 * timer handler. */
+    struct AfterInfo *nextPtr;	/* Next in list of all "after" commands for
+				 * this interpreter. */
+} AfterInfo;
+
+/*
+ * One of the following structures is associated with each interpreter
+ * for which an "after" command has ever been invoked.  A pointer to
+ * this structure is stored in the AssocData for the "tclAfter" key.
+ */
+
+typedef struct AfterAssocData {
+    Tcl_Interp *interp;		/* The interpreter for which this data is
+				 * registered. */
+    AfterInfo *firstAfterPtr;	/* First in list of all "after" commands
+				 * still pending for this interpreter, or
+				 * NULL if none. */
+} AfterAssocData;
+
+#ifdef STk_CODE
+static AfterAssocData After_list;
+#endif
+
+
+
+/*
+ * The data structure below is used to report background errors.  One
+ * such structure is allocated for each error;  it holds information
+ * about the interpreter and the error until bgerror can be invoked
+ * later as an idle handler.
+ */
+
+typedef struct BgError {
+    Tcl_Interp *interp;		/* Interpreter in which error occurred.  NULL
+				 * means this error report has been cancelled
+				 * (a previous report generated a break). */
+    char *errorMsg;		/* The error message (interp->result when
+				 * the error occurred).  Malloc-ed. */
+    char *errorInfo;		/* Value of the errorInfo variable
+				 * (malloc-ed). */
+    char *errorCode;		/* Value of the errorCode variable
+				 * (malloc-ed). */
+    struct BgError *nextPtr;	/* Next in list of all pending error
+				 * reports for this interpreter, or NULL
+				 * for end of list. */
+} BgError;
+
+/*
+ * One of the structures below is associated with the "tclBgError"
+ * assoc data for each interpreter.  It keeps track of the head and
+ * tail of the list of pending background errors for the interpreter.
+ */
+
+typedef struct ErrAssocData {
+    BgError *firstBgPtr;	/* First in list of all background errors
+				 * waiting to be processed for this
+				 * interpreter (NULL if none). */
+    BgError *lastBgPtr;		/* Last in list of all background errors
+				 * waiting to be processed for this
+				 * interpreter (NULL if none). */
+} ErrAssocData;
+
+/*
+ * For each exit handler created with a call to Tcl_CreateExitHandler
+ * there is a structure of the following type:
+ */
+
+typedef struct ExitHandler {
+    Tcl_ExitProc *proc;		/* Procedure to call when process exits. */
+    ClientData clientData;	/* One word of information to pass to proc. */
+    struct ExitHandler *nextPtr;/* Next in list of all exit handlers for
+				 * this application, or NULL for end of list. */
+} ExitHandler;
+
+static ExitHandler *firstExitPtr = NULL;
+				/* First in list of all exit handlers for
+				 * application. */
+
+/*
+ * Structures of the following type are used during the execution
+ * of Tcl_WaitForFile, to keep track of the file and timeout.
+ */
+
+typedef struct FileWait {
+    Tcl_File file;		/* File to wait on. */
+    int mask;			/* Conditions to wait for (TCL_READABLE,
+				 * etc.) */
+    int timeout;		/* Original "timeout" argument to
+				 * Tcl_WaitForFile. */
+    Tcl_Time abortTime;		/* Time at which to abort the wait. */
+    int present;		/* Conditions present on the file during
+				 * the last time through the event loop. */
+    int done;			/* Non-zero means we're done:  either one of
+				 * the desired conditions is present or the
+				 * timeout period has elapsed. */
+} FileWait;
+
+/*
+ * The following variable is a "secret" indication to Tcl_Exit that
+ * it should dump out the state of memory before exiting.  If the
+ * value is non-NULL, it gives the name of the file in which to
+ * dump memory usage information.
+ */
+
+char *tclMemDumpFileName = NULL;
+
+/*
+ * Prototypes for procedures referenced only in this file:
+ */
+
+static void		AfterCleanupProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp));
+static void		AfterProc _ANSI_ARGS_((ClientData clientData));
+static void		BgErrorDeleteProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp));
+static void		FileHandlerCheckProc _ANSI_ARGS_((
+			    ClientData clientData, int flags));
+static int		FileHandlerEventProc _ANSI_ARGS_((Tcl_Event *evPtr,
+			    int flags));
+static void		FileHandlerExitProc _ANSI_ARGS_((ClientData data));
+static void		FileHandlerSetupProc _ANSI_ARGS_((
+			    ClientData clientData, int flags));
+static void		FreeAfterPtr _ANSI_ARGS_((AfterInfo *afterPtr));
+static AfterInfo *	GetAfterEvent _ANSI_ARGS_((AfterAssocData *assocPtr,
+			    char *string));
+static void		HandleBgErrors _ANSI_ARGS_((ClientData clientData));
+static void		TimerHandlerCheckProc _ANSI_ARGS_((
+			    ClientData clientData, int flags));
+static int		TimerHandlerEventProc _ANSI_ARGS_((Tcl_Event *evPtr,
+			    int flags));
+static void		TimerHandlerExitProc _ANSI_ARGS_((ClientData data));
+static void		TimerHandlerSetupProc _ANSI_ARGS_((
+			    ClientData clientData, int flags));
+static char *		VwaitVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_CreateFileHandler --
+ *
+ *	Arrange for a given procedure to be invoked whenever
+ *	a given file becomes readable or writable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, whenever the I/O channel given by file becomes
+ *	ready in the way indicated by mask, proc will be invoked.
+ *	See the manual entry for details on the calling sequence
+ *	to proc.  If file is already registered then the old mask
+ *	and proc and clientData values will be replaced with
+ *	new ones.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_CreateFileHandler(file, mask, proc, clientData)
+    Tcl_File file;		/* Handle of stream to watch. */
+    int mask;			/* OR'ed combination of TCL_READABLE,
+				 * TCL_WRITABLE, and TCL_EXCEPTION:
+				 * indicates conditions under which
+				 * proc should be called. */
+    Tcl_FileProc *proc;		/* Procedure to call for each
+				 * selected event. */
+    ClientData clientData;	/* Arbitrary data to pass to proc. */
+{
+    register FileHandler *filePtr;
+
+    if (!fileEventSourceCreated) {
+	fileEventSourceCreated = 1;
+	Tcl_CreateEventSource(FileHandlerSetupProc, FileHandlerCheckProc,
+		(ClientData) NULL);
+        Tcl_CreateExitHandler(FileHandlerExitProc, (ClientData) NULL);
+    }
+
+    /*
+     * Make sure the file isn't already registered.  Create a
+     * new record in the normal case where there's no existing
+     * record.
+     */
+
+    for (filePtr = firstFileHandlerPtr; filePtr != NULL;
+	    filePtr = filePtr->nextPtr) {
+	if (filePtr->file == file) {
+	    break;
+	}
+    }
+    if (filePtr == NULL) {
+	filePtr = (FileHandler *) ckalloc(sizeof(FileHandler));
+	filePtr->file = file;
+	filePtr->nextPtr = firstFileHandlerPtr;
+	firstFileHandlerPtr = filePtr;
+    }
+
+    /*
+     * The remainder of the initialization below is done regardless
+     * of whether or not this is a new record or a modification of
+     * an old one.
+     */
+
+    filePtr->mask = mask;
+    filePtr->readyMask = 0;
+    filePtr->proc = proc;
+    filePtr->clientData = clientData;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_DeleteFileHandler --
+ *
+ *	Cancel a previously-arranged callback arrangement for
+ *	a file.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a callback was previously registered on file, remove it.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteFileHandler(file)
+    Tcl_File file;		/* Stream id for which to remove
+				 * callback procedure. */
+{
+    FileHandler *filePtr, *prevPtr;
+
+    /*
+     * Find the entry for the given file (and return if there
+     * isn't one).
+     */
+
+    for (prevPtr = NULL, filePtr = firstFileHandlerPtr; ;
+	    prevPtr = filePtr, filePtr = filePtr->nextPtr) {
+	if (filePtr == NULL) {
+	    return;
+	}
+	if (filePtr->file == file) {
+	    break;
+	}
+    }
+
+    /*
+     * Clean up information in the callback record.
+     */
+
+    if (prevPtr == NULL) {
+	firstFileHandlerPtr = filePtr->nextPtr;
+    } else {
+	prevPtr->nextPtr = filePtr->nextPtr;
+    }
+    ckfree((char *) filePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileHandlerExitProc --
+ *
+ *	Cleanup procedure to delete the file event source during exit
+ *	cleanup.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Destroys the file event source.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+FileHandlerExitProc(clientData)
+    ClientData clientData;		/* Not used. */
+{
+    Tcl_DeleteEventSource(FileHandlerSetupProc, FileHandlerCheckProc,
+            (ClientData) NULL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileHandlerSetupProc --
+ *
+ *	This procedure is part of the "event source" for file handlers.
+ *	It is invoked by Tcl_DoOneEvent before it calls select (or
+ *	whatever it uses to wait).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tells the notifier which files should be waited for.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FileHandlerSetupProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include
+					 * TCL_FILE_EVENTS then we do
+					 * nothing. */
+{
+    FileHandler *filePtr;
+
+    if (!(flags & TCL_FILE_EVENTS)) {
+	return;
+    }
+    for (filePtr = firstFileHandlerPtr; filePtr != NULL;
+	    filePtr = filePtr->nextPtr) {
+	if (filePtr->mask != 0) {
+	    Tcl_WatchFile(filePtr->file, filePtr->mask);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileHandlerCheckProc --
+ *
+ *	This procedure is the second part of the "event source" for
+ *	file handlers.  It is invoked by Tcl_DoOneEvent after it calls
+ *	select (or whatever it uses to wait for events).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Makes entries on the Tcl event queue for each file that is
+ *	now ready.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FileHandlerCheckProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include 
+					 * TCL_FILE_EVENTS then we do
+					 * nothing. */
+{
+    FileHandler *filePtr;
+    FileHandlerEvent *fileEvPtr;
+
+    if (!(flags & TCL_FILE_EVENTS)) {
+	return;
+    }
+    for (filePtr = firstFileHandlerPtr; filePtr != NULL;
+	    filePtr = filePtr->nextPtr) {
+	if (filePtr->mask != 0) {
+	    filePtr->readyMask = Tcl_FileReady(filePtr->file, filePtr->mask);
+	    if (filePtr->readyMask != 0) {
+		fileEvPtr = (FileHandlerEvent *) ckalloc(
+			sizeof(FileHandlerEvent));
+		fileEvPtr->header.proc = FileHandlerEventProc;
+		fileEvPtr->file = filePtr->file;
+		Tcl_QueueEvent((Tcl_Event *) fileEvPtr, TCL_QUEUE_TAIL);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileHandlerEventProc --
+ *
+ *	This procedure is called by Tcl_DoOneEvent when a file event
+ *	reaches the front of the event queue.  This procedure is responsible
+ *	for actually handling the event by invoking the callback for the
+ *	file handler.
+ *
+ * Results:
+ *	Returns 1 if the event was handled, meaning it should be removed
+ *	from the queue.  Returns 0 if the event was not handled, meaning
+ *	it should stay on the queue.  The only time the event isn't
+ *	handled is if the TCL_FILE_EVENTS flag bit isn't set.
+ *
+ * Side effects:
+ *	Whatever the file handler's callback procedure does
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileHandlerEventProc(evPtr, flags)
+    Tcl_Event *evPtr;		/* Event to service. */
+    int flags;			/* Flags that indicate what events to
+				 * handle, such as TCL_FILE_EVENTS. */
+{
+    FileHandler *filePtr;
+    FileHandlerEvent *fileEvPtr = (FileHandlerEvent *) evPtr;
+    int mask;
+
+    if (!(flags & TCL_FILE_EVENTS)) {
+	return 0;
+    }
+
+    /*
+     * Search through the file handlers to find the one whose handle matches
+     * the event.  We do this rather than keeping a pointer to the file
+     * handler directly in the event, so that the handler can be deleted
+     * while the event is queued without leaving a dangling pointer.
+     */
+
+    for (filePtr = firstFileHandlerPtr; filePtr != NULL;
+	    filePtr = filePtr->nextPtr) {
+	if (filePtr->file != fileEvPtr->file) {
+	    continue;
+	}
+
+	/*
+	 * The code is tricky for two reasons:
+	 * 1. The file handler's desired events could have changed
+	 *    since the time when the event was queued, so AND the
+	 *    ready mask with the desired mask.
+	 * 2. The file could have been closed and re-opened since
+	 *    the time when the event was queued.  This is why the
+	 *    ready mask is stored in the file handler rather than
+	 *    the queued event:  it will be zeroed when a new
+	 *    file handler is created for the newly opened file.
+	 */
+
+	mask = filePtr->readyMask & filePtr->mask;
+	filePtr->readyMask = 0;
+	if (mask != 0) {
+	    (*filePtr->proc)(filePtr->clientData, mask);
+	}
+	break;
+    }
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_CreateTimerHandler --
+ *
+ *	Arrange for a given procedure to be invoked at a particular
+ *	time in the future.
+ *
+ * Results:
+ *	The return value is a token for the timer event, which
+ *	may be used to delete the event before it fires.
+ *
+ * Side effects:
+ *	When milliseconds have elapsed, proc will be invoked
+ *	exactly once.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tcl_TimerToken
+Tcl_CreateTimerHandler(milliseconds, proc, clientData)
+    int milliseconds;		/* How many milliseconds to wait
+				 * before invoking proc. */
+    Tcl_TimerProc *proc;	/* Procedure to invoke. */
+    ClientData clientData;	/* Arbitrary data to pass to proc. */
+{
+    register TimerHandler *timerHandlerPtr, *tPtr2, *prevPtr;
+    static int id = 0;
+
+    if (!timerEventSourceCreated) {
+	timerEventSourceCreated = 1;
+	Tcl_CreateEventSource(TimerHandlerSetupProc, TimerHandlerCheckProc,
+		(ClientData) NULL);
+        Tcl_CreateExitHandler(TimerHandlerExitProc, (ClientData) NULL);
+    }
+
+    timerHandlerPtr = (TimerHandler *) ckalloc(sizeof(TimerHandler));
+
+    /*
+     * Compute when the event should fire.
+     */
+
+    TclGetTime(&timerHandlerPtr->time);
+    timerHandlerPtr->time.sec += milliseconds/1000;
+    timerHandlerPtr->time.usec += (milliseconds%1000)*1000;
+    if (timerHandlerPtr->time.usec >= 1000000) {
+	timerHandlerPtr->time.usec -= 1000000;
+	timerHandlerPtr->time.sec += 1;
+    }
+    
+    /*
+     * Fill in other fields for the event.
+     */
+
+    timerHandlerPtr->proc = proc;
+    timerHandlerPtr->clientData = clientData;
+    id++;
+    timerHandlerPtr->token = (Tcl_TimerToken) id;
+
+    /*
+     * Add the event to the queue in the correct position
+     * (ordered by event firing time).
+     */
+
+    for (tPtr2 = firstTimerHandlerPtr, prevPtr = NULL; tPtr2 != NULL;
+	    prevPtr = tPtr2, tPtr2 = tPtr2->nextPtr) {
+	if ((tPtr2->time.sec > timerHandlerPtr->time.sec)
+		|| ((tPtr2->time.sec == timerHandlerPtr->time.sec)
+		&& (tPtr2->time.usec > timerHandlerPtr->time.usec))) {
+	    break;
+	}
+    }
+    timerHandlerPtr->nextPtr = tPtr2;
+    if (prevPtr == NULL) {
+	firstTimerHandlerPtr = timerHandlerPtr;
+    } else {
+	prevPtr->nextPtr = timerHandlerPtr;
+    }
+    return timerHandlerPtr->token;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_DeleteTimerHandler --
+ *
+ *	Delete a previously-registered timer handler.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Destroy the timer callback identified by TimerToken,
+ *	so that its associated procedure will not be called.
+ *	If the callback has already fired, or if the given
+ *	token doesn't exist, then nothing happens.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteTimerHandler(token)
+    Tcl_TimerToken token;	/* Result previously returned by
+				 * Tcl_DeleteTimerHandler. */
+{
+    register TimerHandler *timerHandlerPtr, *prevPtr;
+
+    for (timerHandlerPtr = firstTimerHandlerPtr, prevPtr = NULL;
+	    timerHandlerPtr != NULL; prevPtr = timerHandlerPtr,
+	    timerHandlerPtr = timerHandlerPtr->nextPtr) {
+	if (timerHandlerPtr->token != token) {
+	    continue;
+	}
+	if (prevPtr == NULL) {
+	    firstTimerHandlerPtr = timerHandlerPtr->nextPtr;
+	} else {
+	    prevPtr->nextPtr = timerHandlerPtr->nextPtr;
+	}
+	ckfree((char *) timerHandlerPtr);
+	return;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_CreateModalTimeout --
+ *
+ *	Arrange for a given procedure to be invoked at a particular
+ *	time in the future, independently of all other timer events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When milliseconds have elapsed, proc will be invoked
+ *	exactly once.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_CreateModalTimeout(milliseconds, proc, clientData)
+    int milliseconds;		/* How many milliseconds to wait
+				 * before invoking proc. */
+    Tcl_TimerProc *proc;	/* Procedure to invoke. */
+    ClientData clientData;	/* Arbitrary data to pass to proc. */
+{
+    TimerHandler *timerHandlerPtr;
+
+    if (!timerEventSourceCreated) {
+	timerEventSourceCreated = 1;
+	Tcl_CreateEventSource(TimerHandlerSetupProc, TimerHandlerCheckProc,
+		(ClientData) NULL);
+        Tcl_CreateExitHandler(TimerHandlerExitProc, (ClientData) NULL);
+    }
+
+    timerHandlerPtr = (TimerHandler *) ckalloc(sizeof(TimerHandler));
+
+    /*
+     * Compute when the timeout should fire and fill in the other fields
+     * of the handler.
+     */
+
+    TclGetTime(&timerHandlerPtr->time);
+    timerHandlerPtr->time.sec += milliseconds/1000;
+    timerHandlerPtr->time.usec += (milliseconds%1000)*1000;
+    if (timerHandlerPtr->time.usec >= 1000000) {
+	timerHandlerPtr->time.usec -= 1000000;
+	timerHandlerPtr->time.sec += 1;
+    }
+    timerHandlerPtr->proc = proc;
+    timerHandlerPtr->clientData = clientData;
+
+    /*
+     * Push the handler on the top of the modal stack.
+     */
+
+    timerHandlerPtr->nextPtr = firstModalHandlerPtr;
+    firstModalHandlerPtr = timerHandlerPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_DeleteModalTimeout --
+ *
+ *	Remove the topmost modal timer handler from the stack of
+ *	modal  handlers.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Destroys the topmost modal timeout handler, which must
+ *	match proc and clientData.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteModalTimeout(proc, clientData)
+    Tcl_TimerProc *proc;	/* Callback procedure for the timeout. */
+    ClientData clientData;	/* Arbitrary data to pass to proc. */
+{
+    TimerHandler *timerHandlerPtr;
+
+    timerHandlerPtr = firstModalHandlerPtr;
+    firstModalHandlerPtr = timerHandlerPtr->nextPtr;
+    if ((timerHandlerPtr->proc != proc)
+	    || (timerHandlerPtr->clientData != clientData)) {
+	panic("Tcl_DeleteModalTimeout found timeout stack corrupted");
+    }
+    ckfree((char *) timerHandlerPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TimerHandlerSetupProc --
+ *
+ *	This procedure is part of the "event source" for timers.
+ *	It is invoked by Tcl_DoOneEvent before it calls select (or
+ *	whatever it uses to wait).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tells the notifier how long to sleep if it decides to block.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TimerHandlerSetupProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include
+					 * TCL_TIMER_EVENTS then we only
+					 * consider modal timers. */
+{
+    TimerHandler *timerHandlerPtr, *tPtr2;
+    Tcl_Time blockTime;
+
+    /*
+     * Find the timer handler (regular or modal) that fires first.
+     */
+
+    timerHandlerPtr = firstTimerHandlerPtr;
+    if (!(flags & TCL_TIMER_EVENTS)) {
+	timerHandlerPtr = NULL;
+    }
+    if (timerHandlerPtr != NULL) {
+	tPtr2 = firstModalHandlerPtr;
+	if (tPtr2 != NULL) {
+	    if ((timerHandlerPtr->time.sec > tPtr2->time.sec)
+		    || ((timerHandlerPtr->time.sec == tPtr2->time.sec)
+		    && (timerHandlerPtr->time.usec > tPtr2->time.usec))) {
+		timerHandlerPtr = tPtr2;
+	    }
+	}
+    } else {
+	timerHandlerPtr = firstModalHandlerPtr;
+    }
+    if (timerHandlerPtr == NULL) {
+	return;
+    }
+
+    TclGetTime(&blockTime);
+    blockTime.sec = timerHandlerPtr->time.sec - blockTime.sec;
+    blockTime.usec = timerHandlerPtr->time.usec - blockTime.usec;
+    if (blockTime.usec < 0) {
+	blockTime.sec -= 1;
+	blockTime.usec += 1000000;
+    }
+    if (blockTime.sec < 0) {
+	blockTime.sec = 0;
+	blockTime.usec = 0;
+    }
+    Tcl_SetMaxBlockTime(&blockTime);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TimerHandlerCheckProc --
+ *
+ *	This procedure is the second part of the "event source" for
+ *	file handlers.  It is invoked by Tcl_DoOneEvent after it calls
+ *	select (or whatever it uses to wait for events).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Makes entries on the Tcl event queue for each file that is
+ *	now ready.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TimerHandlerCheckProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include 
+					 * TCL_TIMER_EVENTS then we only
+					 * consider modal timeouts. */
+{
+    TimerHandler *timerHandlerPtr;
+    TimerEvent *timerEvPtr;
+    int triggered, gotTime;
+    Tcl_Time curTime;
+
+    triggered = 0;
+    gotTime = 0;
+    timerHandlerPtr = firstTimerHandlerPtr;
+    if ((flags & TCL_TIMER_EVENTS) && (timerHandlerPtr != NULL)) {
+	TclGetTime(&curTime);
+	gotTime = 1;
+	if ((timerHandlerPtr->time.sec < curTime.sec)
+		|| ((timerHandlerPtr->time.sec == curTime.sec)
+		&& (timerHandlerPtr->time.usec <= curTime.usec))) {
+	    triggered = 1;
+	}
+    }
+    timerHandlerPtr = firstModalHandlerPtr;
+    if (timerHandlerPtr != NULL) {
+	if (!gotTime) {
+	    TclGetTime(&curTime);
+	}
+	if ((timerHandlerPtr->time.sec < curTime.sec)
+		|| ((timerHandlerPtr->time.sec == curTime.sec)
+		&& (timerHandlerPtr->time.usec <= curTime.usec))) {
+	    triggered = 1;
+	}
+    }
+    if (triggered) {
+	timerEvPtr = (TimerEvent *) ckalloc(sizeof(TimerEvent));
+	timerEvPtr->header.proc = TimerHandlerEventProc;
+	timerEvPtr->time.sec = curTime.sec;
+	timerEvPtr->time.usec = curTime.usec;
+	Tcl_QueueEvent((Tcl_Event *) timerEvPtr, TCL_QUEUE_TAIL);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TimerHandlerExitProc --
+ *
+ *	Callback invoked during exit cleanup to destroy the timer event
+ *	source.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Destroys the timer event source.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+TimerHandlerExitProc(clientData)
+    ClientData clientData;		/* Not used. */
+{
+    Tcl_DeleteEventSource(TimerHandlerSetupProc, TimerHandlerCheckProc,
+            (ClientData) NULL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TimerHandlerEventProc --
+ *
+ *	This procedure is called by Tcl_DoOneEvent when a timer event
+ *	reaches the front of the event queue.  This procedure handles
+ *	the event by invoking the callbacks for all timers that are
+ *	ready.
+ *
+ * Results:
+ *	Returns 1 if the event was handled, meaning it should be removed
+ *	from the queue.  Returns 0 if the event was not handled, meaning
+ *	it should stay on the queue.  The only time the event isn't
+ *	handled is if the TCL_TIMER_EVENTS flag bit isn't set.
+ *
+ * Side effects:
+ *	Whatever the timer handler callback procedures do.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+TimerHandlerEventProc(evPtr, flags)
+    Tcl_Event *evPtr;		/* Event to service. */
+    int flags;			/* Flags that indicate what events to
+				 * handle, such as TCL_FILE_EVENTS. */
+{
+    TimerHandler *timerHandlerPtr;
+    TimerEvent *timerEvPtr = (TimerEvent *) evPtr;
+
+    /*
+     * Invoke the current modal timeout first, if there is one and
+     * it has triggered.
+     */
+
+    timerHandlerPtr = firstModalHandlerPtr;
+    if (firstModalHandlerPtr != NULL) {
+	if ((timerHandlerPtr->time.sec < timerEvPtr->time.sec)
+		|| ((timerHandlerPtr->time.sec == timerEvPtr->time.sec)
+		&& (timerHandlerPtr->time.usec <= timerEvPtr->time.usec))) {
+	    (*timerHandlerPtr->proc)(timerHandlerPtr->clientData);
+	}
+    }
+
+    /*
+     * Invoke any normal timers that have fired.
+     */
+
+    if (!(flags & TCL_TIMER_EVENTS)) {
+	return 1;
+    }
+
+    while (1) {
+	timerHandlerPtr = firstTimerHandlerPtr;
+	if (timerHandlerPtr == NULL) {
+	    break;
+	}
+	if ((timerHandlerPtr->time.sec > timerEvPtr->time.sec)
+		|| ((timerHandlerPtr->time.sec == timerEvPtr->time.sec)
+		&& (timerHandlerPtr->time.usec >= timerEvPtr->time.usec))) {
+	    break;
+	}
+
+	/*
+	 * Remove the handler from the queue before invoking it,
+	 * to avoid potential reentrancy problems.
+	 */
+
+	firstTimerHandlerPtr = timerHandlerPtr->nextPtr;
+	(*timerHandlerPtr->proc)(timerHandlerPtr->clientData);
+	ckfree((char *) timerHandlerPtr);
+    }
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tcl_DoWhenIdle --
+ *
+ *	Arrange for proc to be invoked the next time the system is
+ *	idle (i.e., just before the next time that Tcl_DoOneEvent
+ *	would have to wait for something to happen).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Proc will eventually be called, with clientData as argument.
+ *	See the manual entry for details.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tcl_DoWhenIdle(proc, clientData)
+    Tcl_IdleProc *proc;		/* Procedure to invoke. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    register IdleHandler *idlePtr;
+
+    idlePtr = (IdleHandler *) ckalloc(sizeof(IdleHandler));
+    idlePtr->proc = proc;
+    idlePtr->clientData = clientData;
+    idlePtr->generation = idleGeneration;
+    idlePtr->nextPtr = NULL;
+    if (lastIdlePtr == NULL) {
+	idleList = idlePtr;
+    } else {
+	lastIdlePtr->nextPtr = idlePtr;
+    }
+    lastIdlePtr = idlePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_CancelIdleCall --
+ *
+ *	If there are any when-idle calls requested to a given procedure
+ *	with given clientData, cancel all of them.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If the proc/clientData combination were on the when-idle list,
+ *	they are removed so that they will never be called.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_CancelIdleCall(proc, clientData)
+    Tcl_IdleProc *proc;		/* Procedure that was previously registered. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    register IdleHandler *idlePtr, *prevPtr;
+    IdleHandler *nextPtr;
+
+    for (prevPtr = NULL, idlePtr = idleList; idlePtr != NULL;
+	    prevPtr = idlePtr, idlePtr = idlePtr->nextPtr) {
+	while ((idlePtr->proc == proc)
+		&& (idlePtr->clientData == clientData)) {
+	    nextPtr = idlePtr->nextPtr;
+	    ckfree((char *) idlePtr);
+	    idlePtr = nextPtr;
+	    if (prevPtr == NULL) {
+		idleList = idlePtr;
+	    } else {
+		prevPtr->nextPtr = idlePtr;
+	    }
+	    if (idlePtr == NULL) {
+		lastIdlePtr = prevPtr;
+		return;
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclIdlePending --
+ *
+ *	This function is called by the notifier subsystem to determine
+ *	whether there are any idle handlers currently scheduled.
+ *
+ * Results:
+ *	Returns 0 if the idle list is empty, otherwise it returns 1.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclIdlePending()
+{
+    return (idleList == NULL) ? 0 : 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclServiceIdle --
+ *
+ *	This procedure is invoked by the notifier when it becomes idle.
+ *
+ * Results:
+ *	The return value is 1 if the procedure actually found an idle
+ *	handler to invoke.  If no handler was found then 0 is returned.
+ *
+ * Side effects:
+ *	Invokes all pending idle handlers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclServiceIdle()
+{
+    IdleHandler *idlePtr;
+    int oldGeneration;
+    int foundIdle;
+
+    if (idleList == NULL) {
+	return 0;
+    }
+    
+    foundIdle = 0;
+    oldGeneration = idleGeneration;
+    idleGeneration++;
+
+    /*
+     * The code below is trickier than it may look, for the following
+     * reasons:
+     *
+     * 1. New handlers can get added to the list while the current
+     *    one is being processed.  If new ones get added, we don't
+     *    want to process them during this pass through the list (want
+     *    to check for other work to do first).  This is implemented
+     *    using the generation number in the handler:  new handlers
+     *    will have a different generation than any of the ones currently
+     *    on the list.
+     * 2. The handler can call Tcl_DoOneEvent, so we have to remove
+     *    the handler from the list before calling it. Otherwise an
+     *    infinite loop could result.
+     * 3. Tcl_CancelIdleCall can be called to remove an element from
+     *    the list while a handler is executing, so the list could
+     *    change structure during the call.
+     */
+
+    for (idlePtr = idleList;
+	    ((idlePtr != NULL)
+		    && ((oldGeneration - idlePtr->generation) >= 0));
+	    idlePtr = idleList) {
+	idleList = idlePtr->nextPtr;
+	if (idleList == NULL) {
+	    lastIdlePtr = NULL;
+	}
+	foundIdle = 1;
+	(*idlePtr->proc)(idlePtr->clientData);
+	ckfree((char *) idlePtr);
+    }
+
+    return foundIdle;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_BackgroundError --
+ *
+ *	This procedure is invoked to handle errors that occur in Tcl
+ *	commands that are invoked in "background" (e.g. from event or
+ *	timer bindings).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The command "bgerror" is invoked later as an idle handler to
+ *	process the error, passing it the error message.  If that fails,
+ *	then an error message is output on stderr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_BackgroundError(interp)
+    Tcl_Interp *interp;		/* Interpreter in which an error has
+				 * occurred. */
+{
+    BgError *errPtr;
+    char *varValue;
+    ErrAssocData *assocPtr;
+
+    /*
+     * The Tcl_AddErrorInfo call below (with an empty string) ensures that
+     * errorInfo gets properly set.  It's needed in cases where the error
+     * came from a utility procedure like Tcl_GetVar instead of Tcl_Eval;
+     * in these cases errorInfo still won't have been set when this
+     * procedure is called.
+     */
+
+    Tcl_AddErrorInfo(interp, "");
+    errPtr = (BgError *) ckalloc(sizeof(BgError));
+    errPtr->interp = interp;
+    errPtr->errorMsg = (char *) ckalloc((unsigned) (strlen(interp->result)
+	    + 1));
+    strcpy(errPtr->errorMsg, interp->result);
+#ifdef STk_CODE
+    varValue = Tcl_GetVar(interp, "*error-info*", TCL_GLOBAL_ONLY);
+#else
+    varValue = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
+#endif
+    if (varValue == NULL) {
+	varValue = errPtr->errorMsg;
+    }
+    errPtr->errorInfo = (char *) ckalloc((unsigned) (strlen(varValue) + 1));
+    strcpy(errPtr->errorInfo, varValue);
+#ifdef STk_CODE
+    varValue = Tcl_GetVar(interp, "*error-code*", TCL_GLOBAL_ONLY);
+#else
+    varValue = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY);
+#endif
+    if (varValue == NULL) {
+	varValue = "";
+    }
+    errPtr->errorCode = (char *) ckalloc((unsigned) (strlen(varValue) + 1));
+    strcpy(errPtr->errorCode, varValue);
+    errPtr->nextPtr = NULL;
+
+    assocPtr = (ErrAssocData *) Tcl_GetAssocData(interp, "tclBgError",
+	    (Tcl_InterpDeleteProc **) NULL);
+    if (assocPtr == NULL) {
+
+	/*
+	 * This is the first time a background error has occurred in
+	 * this interpreter.  Create associated data to keep track of
+	 * pending error reports.
+	 */
+
+	assocPtr = (ErrAssocData *) ckalloc(sizeof(ErrAssocData));
+	assocPtr->firstBgPtr = NULL;
+	assocPtr->lastBgPtr = NULL;
+	Tcl_SetAssocData(interp, "tclBgError", BgErrorDeleteProc,
+		(ClientData) assocPtr);
+    }
+    if (assocPtr->firstBgPtr == NULL) {
+	assocPtr->firstBgPtr = errPtr;
+	Tcl_DoWhenIdle(HandleBgErrors, (ClientData) assocPtr);
+    } else {
+	assocPtr->lastBgPtr->nextPtr = errPtr;
+    }
+    assocPtr->lastBgPtr = errPtr;
+    Tcl_ResetResult(interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * HandleBgErrors --
+ *
+ *	This procedure is invoked as an idle handler to process all of
+ *	the accumulated background errors.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what actions "bgerror" takes for the errors.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+HandleBgErrors(clientData)
+    ClientData clientData;	/* Pointer to ErrAssocData structure. */
+{
+    Tcl_Interp *interp;
+    char *command;
+    char *argv[2];
+    int code;
+    BgError *errPtr;
+    ErrAssocData *assocPtr = (ErrAssocData *) clientData;
+    Tcl_Channel errChannel;
+
+    while (assocPtr->firstBgPtr != NULL) {
+	interp = assocPtr->firstBgPtr->interp;
+	if (interp == NULL) {
+	    goto doneWithReport;
+	}
+
+	/*
+	 * Restore important state variables to what they were at
+	 * the time the error occurred.
+	 */
+
+#ifdef STk_CODE
+	Tcl_SetVar(interp, "*error-info*", assocPtr->firstBgPtr->errorInfo,
+		STk_STRINGIFY | TCL_GLOBAL_ONLY);
+	Tcl_SetVar(interp, "*error-code*", assocPtr->firstBgPtr->errorCode,
+		STk_STRINGIFY | TCL_GLOBAL_ONLY);
+#else
+	Tcl_SetVar(interp, "errorInfo", assocPtr->firstBgPtr->errorInfo,
+		TCL_GLOBAL_ONLY);
+	Tcl_SetVar(interp, "errorCode", assocPtr->firstBgPtr->errorCode,
+		TCL_GLOBAL_ONLY);
+#endif
+
+	/*
+	 * Create and invoke the bgerror command.
+	 */
+
+	argv[0] = "bgerror";
+#ifdef STk_CODE
+	assocPtr->firstBgPtr->errorMsg= 
+	  		(char *)STk_stringify(assocPtr->firstBgPtr->errorMsg, 1);
+#endif
+	argv[1] = assocPtr->firstBgPtr->errorMsg;
+	command = Tcl_Merge(2, argv);
+	Tcl_AllowExceptions(interp);
+        Tcl_Preserve((ClientData) interp);
+	code = Tcl_GlobalEval(interp, command);
+	ckfree(command);
+	if (code == TCL_ERROR) {
+
+            /*
+             * We have to get the error output channel at the latest possible
+             * time, because the eval (above) might have changed the channel.
+             */
+            
+            errChannel = Tcl_GetStdChannel(TCL_STDERR);
+            if (errChannel != (Tcl_Channel) NULL) {
+                if (strcmp(interp->result,
+           "\"bgerror\" is an invalid command name or ambiguous abbreviation")
+                        == 0) {
+                    Tcl_Write(errChannel, assocPtr->firstBgPtr->errorInfo, -1);
+                    Tcl_Write(errChannel, "\n", -1);
+                } else {
+                    Tcl_Write(errChannel,
+                            "bgerror failed to handle background error.\n",
+                            -1);
+                    Tcl_Write(errChannel, "    Original error: ", -1);
+                    Tcl_Write(errChannel, assocPtr->firstBgPtr->errorMsg,
+                            -1);
+                    Tcl_Write(errChannel, "\n", -1);
+                    Tcl_Write(errChannel, "    Error in bgerror: ", -1);
+                    Tcl_Write(errChannel, interp->result, -1);
+                    Tcl_Write(errChannel, "\n", -1);
+                }
+                Tcl_Flush(errChannel);
+            }
+	} else if (code == TCL_BREAK) {
+
+	    /*
+	     * Break means cancel any remaining error reports for this
+	     * interpreter.
+	     */
+
+	    for (errPtr = assocPtr->firstBgPtr; errPtr != NULL;
+		    errPtr = errPtr->nextPtr) {
+		if (errPtr->interp == interp) {
+		    errPtr->interp = NULL;
+		}
+	    }
+	}
+
+        Tcl_Release((ClientData) interp);
+
+	/*
+	 * Discard the command and the information about the error report.
+	 */
+
+	doneWithReport:
+	ckfree(assocPtr->firstBgPtr->errorMsg);
+	ckfree(assocPtr->firstBgPtr->errorInfo);
+	ckfree(assocPtr->firstBgPtr->errorCode);
+	errPtr = assocPtr->firstBgPtr->nextPtr;
+	ckfree((char *) assocPtr->firstBgPtr);
+	assocPtr->firstBgPtr = errPtr;
+    }
+    assocPtr->lastBgPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * BgErrorDeleteProc --
+ *
+ *	This procedure is associated with the "tclBgError" assoc data
+ *	for an interpreter;  it is invoked when the interpreter is
+ *	deleted in order to free the information assoicated with any
+ *	pending error reports.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Background error information is freed: if there were any
+ *	pending error reports, they are cancelled.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+BgErrorDeleteProc(clientData, interp)
+    ClientData clientData;	/* Pointer to ErrAssocData structure. */
+    Tcl_Interp *interp;		/* Interpreter being deleted. */
+{
+    ErrAssocData *assocPtr = (ErrAssocData *) clientData;
+    BgError *errPtr;
+
+    while (assocPtr->firstBgPtr != NULL) {
+	errPtr = assocPtr->firstBgPtr;
+	assocPtr->firstBgPtr = errPtr->nextPtr;
+	ckfree(errPtr->errorMsg);
+	ckfree(errPtr->errorInfo);
+	ckfree(errPtr->errorCode);
+	ckfree((char *) errPtr);
+    }
+    ckfree((char *) assocPtr);
+    Tcl_CancelIdleCall(HandleBgErrors, (ClientData) assocPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_CreateExitHandler --
+ *
+ *	Arrange for a given procedure to be invoked just before the
+ *	application exits.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Proc will be invoked with clientData as argument when the
+ *	application exits.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_CreateExitHandler(proc, clientData)
+    Tcl_ExitProc *proc;		/* Procedure to invoke. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    ExitHandler *exitPtr;
+
+    exitPtr = (ExitHandler *) ckalloc(sizeof(ExitHandler));
+    exitPtr->proc = proc;
+    exitPtr->clientData = clientData;
+    exitPtr->nextPtr = firstExitPtr;
+    firstExitPtr = exitPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteExitHandler --
+ *
+ *	This procedure cancels an existing exit handler matching proc
+ *	and clientData, if such a handler exits.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If there is an exit handler corresponding to proc and clientData
+ *	then it is cancelled;  if no such handler exists then nothing
+ *	happens.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteExitHandler(proc, clientData)
+    Tcl_ExitProc *proc;		/* Procedure that was previously registered. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    ExitHandler *exitPtr, *prevPtr;
+
+    for (prevPtr = NULL, exitPtr = firstExitPtr; exitPtr != NULL;
+	    prevPtr = exitPtr, exitPtr = exitPtr->nextPtr) {
+	if ((exitPtr->proc == proc)
+		&& (exitPtr->clientData == clientData)) {
+	    if (prevPtr == NULL) {
+		firstExitPtr = exitPtr->nextPtr;
+	    } else {
+		prevPtr->nextPtr = exitPtr->nextPtr;
+	    }
+	    ckfree((char *) exitPtr);
+	    return;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Exit --
+ *
+ *	This procedure is called to terminate the application.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All existing exit handlers are invoked, then the application
+ *	ends.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_Exit(status)
+    int status;			/* Exit status for application;  typically
+				 * 0 for normal return, 1 for error return. */
+{
+    ExitHandler *exitPtr;
+
+    for (exitPtr = firstExitPtr; exitPtr != NULL; exitPtr = firstExitPtr) {
+	/*
+	 * Be careful to remove the handler from the list before invoking
+	 * its callback.  This protects us against double-freeing if the
+	 * callback should call Tcl_DeleteExitHandler on itself.
+	 */
+
+	firstExitPtr = exitPtr->nextPtr;
+	(*exitPtr->proc)(exitPtr->clientData);
+	ckfree((char *) exitPtr);
+    }
+#ifdef TCL_MEM_DEBUG
+    if (tclMemDumpFileName != NULL) {
+	Tcl_DumpActiveMemory(tclMemDumpFileName);
+    }
+#endif
+    
+    TclPlatformExit(status);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AfterCmd --
+ *
+ *	This procedure is invoked to process the "after" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tcl_AfterCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Points to the "tclAfter" assocData for
+				 * this interpreter, or NULL if the assocData
+				 * hasn't been created yet.*/
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    /*
+     * The variable below is used to generate unique identifiers for
+     * after commands.  This id can wrap around, which can potentially
+     * cause problems.  However, there are not likely to be problems
+     * in practice, because after commands can only be requested to
+     * about a month in the future, and wrap-around is unlikely to
+     * occur in less than about 1-10 years.  Thus it's unlikely that
+     * any old ids will still be around when wrap-around occurs.
+     */
+
+    static int nextId = 1;
+    int ms;
+    AfterInfo *afterPtr;
+#ifdef STk_CODE
+    static int initialized = 0;
+    void *closure;
+    AfterAssocData *assocPtr = &After_list;
+#else
+    AfterAssocData *assocPtr = (AfterAssocData *) clientData;
+#endif
+    Tcl_CmdInfo cmdInfo;
+    size_t length;
+
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+#ifdef STk_CODE
+    if (!initialized) {
+      After_list.interp = interp; 	/* really useless !!!! */ 
+      After_list.firstAfterPtr = NULL; 
+      initialized = 1;
+    }
+#else
+    /*
+     * Create the "after" information associated for this interpreter,
+     * if it doesn't already exist.  Associate it with the command too,
+     * so that it will be passed in as the ClientData argument in the
+     * future.
+     */
+
+    if (assocPtr == NULL) {
+	assocPtr = (AfterAssocData *) ckalloc(sizeof(AfterAssocData));
+	assocPtr->interp = interp;
+	assocPtr->firstAfterPtr = NULL;
+	Tcl_SetAssocData(interp, "tclAfter", AfterCleanupProc,
+		(ClientData) assocPtr);
+	cmdInfo.proc = Tcl_AfterCmd;
+	cmdInfo.clientData = (ClientData) assocPtr;
+	cmdInfo.deleteProc = NULL;
+	cmdInfo.deleteData = (ClientData) assocPtr;
+	Tcl_SetCommandInfo(interp, argv[0], &cmdInfo);
+    }
+#endif
+
+    /*
+     * Parse the command.
+     */
+
+    length = strlen(argv[1]);
+    if (isdigit(UCHAR(argv[1][0]))) {
+	if (Tcl_GetInt(interp, argv[1], &ms) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (ms < 0) {
+	    ms = 0;
+	}
+	if (argc == 2) {
+	    Tcl_Sleep(ms);
+	    return TCL_OK;
+	}
+	afterPtr = (AfterInfo *) ckalloc((unsigned) (sizeof(AfterInfo)));
+	afterPtr->assocPtr = assocPtr;
+	if (argc == 3) {
+#ifdef STk_CODE
+	    if (!STk_valid_callback(argv[2], &closure)) {
+	        Tcl_AppendResult(interp, "bad closure specification \"",
+				         argv[2], "\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+#endif
+	    afterPtr->command = (char *) ckalloc((unsigned)
+		    (strlen(argv[2]) + 1));
+	    strcpy(afterPtr->command, argv[2]);
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " ms [script]\"", (char *) NULL);
+	    return TCL_ERROR;
+#else
+	    afterPtr->command = Tcl_Concat(argc-2, argv+2);
+#endif
+	}
+	afterPtr->id = nextId;
+	nextId += 1;
+	afterPtr->token = Tcl_CreateTimerHandler(ms, AfterProc,
+		(ClientData) afterPtr);
+	afterPtr->nextPtr = assocPtr->firstAfterPtr;
+	assocPtr->firstAfterPtr = afterPtr;
+	sprintf(interp->result, "after#%d", afterPtr->id);
+#ifdef STk_CODE
+	if (closure != NULL)
+	  /* Register the callback to prinevent it to be GC'ed */
+	  STk_add_callback(interp->result, "", "", closure);
+#endif
+    } else if (strncmp(argv[1], "cancel", length) == 0) {
+	char *arg;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cancel id|command\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    arg = argv[2];
+#ifndef STk_CODE
+	} else {
+	    arg = Tcl_Concat(argc-2, argv+2);
+#endif
+	}
+	for (afterPtr = assocPtr->firstAfterPtr; afterPtr != NULL;
+		afterPtr = afterPtr->nextPtr) {
+	    if (strcmp(afterPtr->command, arg) == 0) {
+		break;
+	    }
+	}
+	if (afterPtr == NULL) {
+	    afterPtr = GetAfterEvent(assocPtr, arg);
+	}
+#ifndef STk_CODE
+	if (arg != argv[2]) {
+	    ckfree(arg);
+	}
+#endif
+	if (afterPtr != NULL) {
+	    if (afterPtr->token != NULL) {
+		Tcl_DeleteTimerHandler(afterPtr->token);
+	    } else {
+		Tcl_CancelIdleCall(AfterProc, (ClientData) afterPtr);
+	    }
+	    FreeAfterPtr(afterPtr);
+	}
+    } else if ((strncmp(argv[1], "idle", length) == 0)
+	     && (length >= 2)) {
+#ifdef STk_CODE
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " idle script\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (!STk_valid_callback(argv[2], &closure)) {
+	  Tcl_AppendResult(interp, "bad closure specification \"",
+			   argv[2], "\"", (char *) NULL);
+	  return TCL_ERROR;
+	}
+#else
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " idle script script ...\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#endif
+	afterPtr = (AfterInfo *) ckalloc((unsigned) (sizeof(AfterInfo)));
+	afterPtr->assocPtr = assocPtr;
+#ifdef STk_CODE
+	afterPtr->command = (char *) ckalloc((unsigned) (strlen(argv[2]) + 1));
+	strcpy(afterPtr->command, argv[2]);
+#else
+	if (argc == 3) {
+	    afterPtr->command = (char *) ckalloc((unsigned)
+		    (strlen(argv[2]) + 1));
+	    strcpy(afterPtr->command, argv[2]);
+	} else {
+	    afterPtr->command = Tcl_Concat(argc-2, argv+2);
+	}
+#endif
+	afterPtr->id = nextId;
+	nextId += 1;
+	afterPtr->token = NULL;
+	afterPtr->nextPtr = assocPtr->firstAfterPtr;
+	assocPtr->firstAfterPtr = afterPtr;
+	Tcl_DoWhenIdle(AfterProc, (ClientData) afterPtr);
+	sprintf(interp->result, "after#%d", afterPtr->id);
+#ifdef STk_CODE
+	if (closure != NULL)
+	  /* Register the callback to prevent it to be GC'ed */
+	  STk_add_callback(interp->result, "", "", closure);
+#endif
+    } else if ((strncmp(argv[1], "info", length) == 0)
+	     && (length >= 2)) {
+	if (argc == 2) {
+	    char buffer[30];
+
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "(", NULL);
+#endif
+	    for (afterPtr = assocPtr->firstAfterPtr; afterPtr != NULL;
+		    afterPtr = afterPtr->nextPtr) {
+		if (assocPtr->interp == interp) {
+		    sprintf(buffer, "after#%d", afterPtr->id);
+		    Tcl_AppendElement(interp, buffer);
+		}
+	    }
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, ")", NULL);
+#endif
+	    return TCL_OK;
+	}
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " info ?id?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	afterPtr = GetAfterEvent(assocPtr, argv[2]);
+	if (afterPtr == NULL) {
+	    Tcl_AppendResult(interp, "event \"", argv[2],
+		    "\" doesn't exist", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	Tcl_AppendElement(interp, afterPtr->command);
+	Tcl_AppendElement(interp,
+		(afterPtr->token == NULL) ? "idle" : "timer");
+    } else {
+	Tcl_AppendResult(interp, "bad argument \"", argv[1],
+		"\": must be cancel, idle, info, or a number",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetAfterEvent --
+ *
+ *	This procedure parses an "after" id such as "after#4" and
+ *	returns a pointer to the AfterInfo structure.
+ *
+ * Results:
+ *	The return value is either a pointer to an AfterInfo structure,
+ *	if one is found that corresponds to "string" and is for interp,
+ *	or NULL if no corresponding after event can be found.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static AfterInfo *
+GetAfterEvent(assocPtr, string)
+    AfterAssocData *assocPtr;	/* Points to "after"-related information for
+				 * this interpreter. */
+    char *string;		/* Textual identifier for after event, such
+				 * as "after#6". */
+{
+    AfterInfo *afterPtr;
+    int id;
+    char *end;
+
+    if (strncmp(string, "after#", 6) != 0) {
+	return NULL;
+    }
+    string += 6;
+    id = strtoul(string, &end, 10);
+    if ((end == string) || (*end != 0)) {
+	return NULL;
+    }
+    for (afterPtr = assocPtr->firstAfterPtr; afterPtr != NULL;
+	    afterPtr = afterPtr->nextPtr) {
+	if (afterPtr->id == id) {
+	    return afterPtr;
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * AfterProc --
+ *
+ *	Timer callback to execute commands registered with the
+ *	"after" command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Executes whatever command was specified.  If the command
+ *	returns an error, then the command "bgerror" is invoked
+ *	to process the error;  if bgerror fails then information
+ *	about the error is output on stderr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+AfterProc(clientData)
+    ClientData clientData;	/* Describes command to execute. */
+{
+    AfterInfo *afterPtr = (AfterInfo *) clientData;
+    AfterAssocData *assocPtr = afterPtr->assocPtr;
+    AfterInfo *prevPtr;
+    int result;
+    Tcl_Interp *interp;
+
+    /*
+     * First remove the callback from our list of callbacks;  otherwise
+     * someone could delete the callback while it's being executed, which
+     * could cause a core dump.
+     */
+
+    if (assocPtr->firstAfterPtr == afterPtr) {
+	assocPtr->firstAfterPtr = afterPtr->nextPtr;
+    } else {
+	for (prevPtr = assocPtr->firstAfterPtr; prevPtr->nextPtr != afterPtr;
+		prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body. */
+	}
+	prevPtr->nextPtr = afterPtr->nextPtr;
+    }
+
+    /*
+     * Execute the callback.
+     */
+
+    interp = assocPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    result = Tcl_GlobalEval(interp, afterPtr->command);
+    if (result != TCL_OK) {
+	Tcl_AddErrorInfo(interp, "\n    (\"after\" script)");
+	Tcl_BackgroundError(interp);
+    }
+    Tcl_Release((ClientData) interp);
+    
+    /*
+     * Free the memory for the callback.
+     */
+
+    ckfree(afterPtr->command);
+    ckfree((char *) afterPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FreeAfterPtr --
+ *
+ *	This procedure removes an "after" command from the list of
+ *	those that are pending and frees its resources.  This procedure
+ *	does *not* cancel the timer handler;  if that's needed, the
+ *	caller must do it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The memory associated with afterPtr is released.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FreeAfterPtr(afterPtr)
+    AfterInfo *afterPtr;		/* Command to be deleted. */
+{
+    AfterInfo *prevPtr;
+    AfterAssocData *assocPtr = afterPtr->assocPtr;
+
+    if (assocPtr->firstAfterPtr == afterPtr) {
+	assocPtr->firstAfterPtr = afterPtr->nextPtr;
+    } else {
+	for (prevPtr = assocPtr->firstAfterPtr; prevPtr->nextPtr != afterPtr;
+		prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body. */
+	}
+	prevPtr->nextPtr = afterPtr->nextPtr;
+    }
+    ckfree(afterPtr->command);
+    ckfree((char *) afterPtr);
+}
+
+#ifndef STk_CODE
+/*
+ *----------------------------------------------------------------------
+ *
+ * AfterCleanupProc --
+ *
+ *	This procedure is invoked whenever an interpreter is deleted
+ *	to cleanup the AssocData for "tclAfter".
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	After commands are removed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+AfterCleanupProc(clientData, interp)
+    ClientData clientData;	/* Points to AfterAssocData for the
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Interpreter that is being deleted. */
+{
+    AfterAssocData *assocPtr = (AfterAssocData *) clientData;
+    AfterInfo *afterPtr;
+
+    while (assocPtr->firstAfterPtr != NULL) {
+	afterPtr = assocPtr->firstAfterPtr;
+	assocPtr->firstAfterPtr = afterPtr->nextPtr;
+	if (afterPtr->token != NULL) {
+	    Tcl_DeleteTimerHandler(afterPtr->token);
+	} else {
+	    Tcl_CancelIdleCall(AfterProc, (ClientData) afterPtr);
+	}
+	ckfree(afterPtr->command);
+	ckfree((char *) afterPtr);
+    }
+    ckfree((char *) assocPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_VwaitCmd --
+ *
+ *	This procedure is invoked to process the "vwait" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tcl_VwaitCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Not used. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    int done, foundEvent;
+
+    if (argc != 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " name\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_TraceVar(interp, argv[1],
+	    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+	    VwaitVarProc, (ClientData) &done);
+    done = 0;
+    foundEvent = 1;
+    while (!done && foundEvent) {
+	foundEvent = Tcl_DoOneEvent(0);
+    }
+    Tcl_UntraceVar(interp, argv[1],
+	    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+	    VwaitVarProc, (ClientData) &done);
+
+    /*
+     * Clear out the interpreter's result, since it may have been set
+     * by event handlers.
+     */
+
+    Tcl_ResetResult(interp);
+    if (!foundEvent) {
+	Tcl_AppendResult(interp, "can't wait for variable \"", argv[1],
+		"\":  would wait forever", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+	/* ARGSUSED */
+static char *
+VwaitVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Pointer to integer to set to 1. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    int *donePtr = (int *) clientData;
+
+    *donePtr = 1;
+    return (char *) NULL;
+}
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_UpdateCmd --
+ *
+ *	This procedure is invoked to process the "update" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tcl_UpdateCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Not used. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    int flags = 0;		/* Initialization needed only to stop
+				 * compiler warnings. */
+
+    if (argc == 1) {
+	flags = TCL_ALL_EVENTS|TCL_DONT_WAIT;
+    } else if (argc == 2) {
+	if (strncmp(argv[1], "idletasks", strlen(argv[1])) != 0) {
+	    Tcl_AppendResult(interp, "bad option \"", argv[1],
+		    "\": must be idletasks", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	flags = TCL_IDLE_EVENTS|TCL_DONT_WAIT;
+    } else {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " ?idletasks?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    while (Tcl_DoOneEvent(flags) != 0) {
+	/* Empty loop body */
+    }
+
+    /*
+     * Must clear the interpreter's result because event handlers could
+     * have executed commands.
+     */
+
+    Tcl_ResetResult(interp);
+    return TCL_OK;
+}
+
+#ifndef STk_CODE
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclWaitForFile --
+ *
+ *	This procedure waits synchronously for a file to become readable
+ *	or writable, with an optional timeout.
+ *
+ * Results:
+ *	The return value is an OR'ed combination of TCL_READABLE,
+ *	TCL_WRITABLE, and TCL_EXCEPTION, indicating the conditions
+ *	that are present on file at the time of the return.  This
+ *	procedure will not return until either "timeout" milliseconds
+ *	have elapsed or at least one of the conditions given by mask
+ *	has occurred for file (a return value of 0 means that a timeout
+ *	occurred).  No normal events will be serviced during the
+ *	execution of this procedure.
+ *
+ * Side effects:
+ *	Time passes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclWaitForFile(file, mask, timeout)
+    Tcl_File file;		/* Handle for file on which to wait. */
+    int mask;			/* What to wait for: OR'ed combination of
+				 * TCL_READABLE, TCL_WRITABLE, and
+				 * TCL_EXCEPTION. */
+    int timeout;		/* Maximum amount of time to wait for one
+				 * of the conditions in mask to occur, in
+				 * milliseconds.  A value of 0 means don't
+				 * wait at all, and a value of -1 means
+				 * wait forever. */
+{
+    Tcl_Time abortTime, now, blockTime;
+    int present;
+
+    /*
+     * If there is a non-zero finite timeout, compute the time when
+     * we give up.
+     */
+
+    if (timeout > 0) {
+	TclGetTime(&now);
+	abortTime.sec = now.sec + timeout/1000;
+	abortTime.usec = now.usec + (timeout%1000)*1000;
+	if (abortTime.usec >= 1000000) {
+	    abortTime.usec -= 1000000;
+	    abortTime.sec += 1;
+	}
+    }
+
+    /*
+     * Loop in a mini-event loop of our own, waiting for either the
+     * file to become ready or a timeout to occur.
+     */
+
+    while (1) {
+	Tcl_WatchFile(file, mask);
+	if (timeout > 0) {
+	    blockTime.sec = abortTime.sec - now.sec;
+	    blockTime.usec = abortTime.usec - now.usec;
+	    if (blockTime.usec < 0) {
+		blockTime.sec -= 1;
+		blockTime.usec += 1000000;
+	    }
+	    if (blockTime.sec < 0) {
+		blockTime.sec = 0;
+		blockTime.usec = 0;
+	    }
+	    Tcl_WaitForEvent(&blockTime);
+	} else if (timeout == 0) {
+	    blockTime.sec = 0;
+	    blockTime.usec = 0;
+	    Tcl_WaitForEvent(&blockTime);
+	} else {
+	    Tcl_WaitForEvent((Tcl_Time *) NULL);
+	}
+	present = Tcl_FileReady(file, mask);
+	if (present != 0) {
+	    break;
+	}
+	if (timeout == 0) {
+	    break;
+	}
+	TclGetTime(&now);
+	if ((abortTime.sec < now.sec)
+		|| ((abortTime.sec == now.sec)
+		&& (abortTime.usec <= now.usec))) {
+	    break;
+	}
+    }
+    return present;
+}
+#endif
diff --git a/Tcl/tclGet.c b/Tcl/tclGet.c
new file mode 100644
index 0000000..08a0aca
--- /dev/null
+++ b/Tcl/tclGet.c
@@ -0,0 +1,253 @@
+/* 
+ * tclGet.c --
+ *
+ *	This file contains procedures to convert strings into
+ *	other forms, like integers or floating-point numbers or
+ *	booleans, doing syntax checking along the way.
+ *
+ * Copyright (c) 1990-1993 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclGet.c 1.24 96/02/15 11:42:47
+ */
+
+#ifdef WIN32
+#  include <errno.h>
+#  include <math.h>
+#endif
+#include "tclInt.h"
+#include "tclPort.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetInt --
+ *
+ *	Given a string, produce the corresponding integer value.
+ *
+ * Results:
+ *	The return value is normally TCL_OK;  in this case *intPtr
+ *	will be set to the integer value equivalent to string.  If
+ *	string is improperly formed then TCL_ERROR is returned and
+ *	an error message will be left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetInt(interp, string, intPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    char *string;		/* String containing a (possibly signed)
+				 * integer in a form acceptable to strtol. */
+    int *intPtr;		/* Place to store converted result. */
+{
+    char *end, *p;
+    int i;
+
+    /*
+     * Note: use strtoul instead of strtol for integer conversions
+     * to allow full-size unsigned numbers, but don't depend on strtoul
+     * to handle sign characters;  it won't in some implementations.
+     */
+
+    errno = 0;
+    for (p = string; isspace(UCHAR(*p)); p++) {
+	/* Empty loop body. */
+    }
+    if (*p == '-') {
+	p++;
+	i = -(int)strtoul(p, &end, 0);
+    } else if (*p == '+') {
+	p++;
+	i = strtoul(p, &end, 0);
+    } else {
+	i = strtoul(p, &end, 0);
+    }
+    if (end == p) {
+	badInteger:
+        if (interp != (Tcl_Interp *) NULL) {
+            Tcl_AppendResult(interp, "expected integer but got \"", string,
+                    "\"", (char *) NULL);
+        }
+	return TCL_ERROR;
+    }
+    if (errno == ERANGE) {
+        if (interp != (Tcl_Interp *) NULL) {
+            interp->result = "integer value too large to represent";
+            Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW",
+                    interp->result, (char *) NULL);
+        }
+	return TCL_ERROR;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    if (*end != 0) {
+	goto badInteger;
+    }
+    *intPtr = i;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetDouble --
+ *
+ *	Given a string, produce the corresponding double-precision
+ *	floating-point value.
+ *
+ * Results:
+ *	The return value is normally TCL_OK;  in this case *doublePtr
+ *	will be set to the double-precision value equivalent to string.
+ *	If string is improperly formed then TCL_ERROR is returned and
+ *	an error message will be left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetDouble(interp, string, doublePtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    char *string;		/* String containing a floating-point number
+				 * in a form acceptable to strtod. */
+    double *doublePtr;		/* Place to store converted result. */
+{
+    char *end;
+    double d;
+
+    errno = 0;
+    d = strtod(string, &end);
+    if (end == string) {
+	badDouble:
+        if (interp != (Tcl_Interp *) NULL) {
+            Tcl_AppendResult(interp,
+                    "expected floating-point number but got \"",
+                    string, "\"", (char *) NULL);
+        }
+	return TCL_ERROR;
+    }
+    if (errno != 0) {
+        if (interp != (Tcl_Interp *) NULL) {
+#ifdef STk_CODE
+            Tcl_AppendResult(interp, "incorrect floating-point \"",
+			     string, "\"", (char *) NULL);
+#else
+            TclExprFloatError(interp, d);
+#endif
+        }
+	return TCL_ERROR;
+    }
+    while ((*end != 0) && isspace(UCHAR(*end))) {
+	end++;
+    }
+    if (*end != 0) {
+	goto badDouble;
+    }
+    *doublePtr = d;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetBoolean --
+ *
+ *	Given a string, return a 0/1 boolean value corresponding
+ *	to the string.
+ *
+ * Results:
+ *	The return value is normally TCL_OK;  in this case *boolPtr
+ *	will be set to the 0/1 value equivalent to string.  If
+ *	string is improperly formed then TCL_ERROR is returned and
+ *	an error message will be left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_GetBoolean(interp, string, boolPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    char *string;		/* String containing a boolean number
+				 * specified either as 1/0 or true/false or
+				 * yes/no. */
+    int *boolPtr;		/* Place to store converted result, which
+				 * will be 0 or 1. */
+{
+    int i;
+    char lowerCase[10], c;
+    size_t length;
+
+    /*
+     * Convert the input string to all lower-case.
+     */
+
+    for (i = 0; i < 9; i++) {
+	c = string[i];
+	if (c == 0) {
+	    break;
+	}
+	if ((c >= 'A') && (c <= 'Z')) {
+	    c += (char) ('a' - 'A');
+	}
+	lowerCase[i] = c;
+    }
+    lowerCase[i] = 0;
+
+    length = strlen(lowerCase);
+    c = lowerCase[0];
+#ifdef STk_CODE
+    if (c == '#') {
+      if ((lowerCase[1] == 'f' && lowerCase[2] == '\0')) {
+	*boolPtr = 0;
+      }
+      else if ((lowerCase[1] == 't' && lowerCase[2] == '\0')) {
+	*boolPtr = 1;
+      }
+      else {
+	goto badBoolean;
+      }
+#endif
+    } else if ((c == '0') && (lowerCase[1] == '\0')) {
+	*boolPtr = 0;
+    } else if ((c == '1') && (lowerCase[1] == '\0')) {
+	*boolPtr = 1;
+    } else if ((c == 'y') && (strncmp(lowerCase, "yes", length) == 0)) {
+	*boolPtr = 1;
+    } else if ((c == 'n') && (strncmp(lowerCase, "no", length) == 0)) {
+	*boolPtr = 0;
+    } else if ((c == 't') && (strncmp(lowerCase, "true", length) == 0)) {
+	*boolPtr = 1;
+    } else if ((c == 'f') && (strncmp(lowerCase, "false", length) == 0)) {
+	*boolPtr = 0;
+    } else if ((c == 'o') && (length >= 2)) {
+	if (strncmp(lowerCase, "on", length) == 0) {
+	    *boolPtr = 1;
+	} else if (strncmp(lowerCase, "off", length) == 0) {
+	    *boolPtr = 0;
+	} else {
+	    goto badBoolean;
+	}
+    } else {
+	badBoolean:
+        if (interp != (Tcl_Interp *) NULL) {
+            Tcl_AppendResult(interp, "expected boolean value but got \"",
+                    string, "\"", (char *) NULL);
+        }
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
diff --git a/Tcl/tclHash.c b/Tcl/tclHash.c
new file mode 100644
index 0000000..41de0b2
--- /dev/null
+++ b/Tcl/tclHash.c
@@ -0,0 +1,921 @@
+/* 
+ * tclHash.c --
+ *
+ *	Implementation of in-memory hash tables for Tcl and Tcl-based
+ *	applications.
+ *
+ * Copyright (c) 1991-1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclHash.c 1.15 96/02/15 11:50:23
+ */
+
+#include "tclInt.h"
+
+/*
+ * When there are this many entries per bucket, on average, rebuild
+ * the hash table to make it larger.
+ */
+
+#define REBUILD_MULTIPLIER	3
+
+
+/*
+ * The following macro takes a preliminary integer hash value and
+ * produces an index into a hash tables bucket list.  The idea is
+ * to make it so that preliminary values that are arbitrarily similar
+ * will end up in different buckets.  The hash function was taken
+ * from a random-number generator.
+ */
+
+#define RANDOM_INDEX(tablePtr, i) \
+    (((((long) (i))*1103515245) >> (tablePtr)->downShift) & (tablePtr)->mask)
+
+/*
+ * Procedure prototypes for static procedures in this file:
+ */
+
+static Tcl_HashEntry *	ArrayFind _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key));
+static Tcl_HashEntry *	ArrayCreate _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key, int *newPtr));
+static Tcl_HashEntry *	BogusFind _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key));
+static Tcl_HashEntry *	BogusCreate _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key, int *newPtr));
+static unsigned int	HashString _ANSI_ARGS_((char *string));
+static void		RebuildTable _ANSI_ARGS_((Tcl_HashTable *tablePtr));
+static Tcl_HashEntry *	StringFind _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key));
+static Tcl_HashEntry *	StringCreate _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key, int *newPtr));
+static Tcl_HashEntry *	OneWordFind _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key));
+static Tcl_HashEntry *	OneWordCreate _ANSI_ARGS_((Tcl_HashTable *tablePtr,
+			    char *key, int *newPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_InitHashTable --
+ *
+ *	Given storage for a hash table, set up the fields to prepare
+ *	the hash table for use.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	TablePtr is now ready to be passed to Tcl_FindHashEntry and
+ *	Tcl_CreateHashEntry.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_InitHashTable(tablePtr, keyType)
+    register Tcl_HashTable *tablePtr;	/* Pointer to table record, which
+					 * is supplied by the caller. */
+    int keyType;			/* Type of keys to use in table:
+					 * TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
+					 * or an integer >= 2. */
+{
+    tablePtr->buckets = tablePtr->staticBuckets;
+    tablePtr->staticBuckets[0] = tablePtr->staticBuckets[1] = 0;
+    tablePtr->staticBuckets[2] = tablePtr->staticBuckets[3] = 0;
+    tablePtr->numBuckets = TCL_SMALL_HASH_TABLE;
+    tablePtr->numEntries = 0;
+    tablePtr->rebuildSize = TCL_SMALL_HASH_TABLE*REBUILD_MULTIPLIER;
+    tablePtr->downShift = 28;
+    tablePtr->mask = 3;
+    tablePtr->keyType = keyType;
+    if (keyType == TCL_STRING_KEYS) {
+	tablePtr->findProc = StringFind;
+	tablePtr->createProc = StringCreate;
+    } else if (keyType == TCL_ONE_WORD_KEYS) {
+	tablePtr->findProc = OneWordFind;
+	tablePtr->createProc = OneWordCreate;
+    } else {
+	tablePtr->findProc = ArrayFind;
+	tablePtr->createProc = ArrayCreate;
+    };
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteHashEntry --
+ *
+ *	Remove a single entry from a hash table.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The entry given by entryPtr is deleted from its table and
+ *	should never again be used by the caller.  It is up to the
+ *	caller to free the clientData field of the entry, if that
+ *	is relevant.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteHashEntry(entryPtr)
+    Tcl_HashEntry *entryPtr;
+{
+    register Tcl_HashEntry *prevPtr;
+
+    if (*entryPtr->bucketPtr == entryPtr) {
+	*entryPtr->bucketPtr = entryPtr->nextPtr;
+    } else {
+	for (prevPtr = *entryPtr->bucketPtr; ; prevPtr = prevPtr->nextPtr) {
+	    if (prevPtr == NULL) {
+		panic("malformed bucket chain in Tcl_DeleteHashEntry");
+	    }
+	    if (prevPtr->nextPtr == entryPtr) {
+		prevPtr->nextPtr = entryPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    entryPtr->tablePtr->numEntries--;
+    ckfree((char *) entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteHashTable --
+ *
+ *	Free up everything associated with a hash table except for
+ *	the record for the table itself.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The hash table is no longer useable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteHashTable(tablePtr)
+    register Tcl_HashTable *tablePtr;		/* Table to delete. */
+{
+    register Tcl_HashEntry *hPtr, *nextPtr;
+    int i;
+
+    /*
+     * Free up all the entries in the table.
+     */
+
+    for (i = 0; i < tablePtr->numBuckets; i++) {
+	hPtr = tablePtr->buckets[i];
+	while (hPtr != NULL) {
+	    nextPtr = hPtr->nextPtr;
+	    ckfree((char *) hPtr);
+	    hPtr = nextPtr;
+	}
+    }
+
+    /*
+     * Free up the bucket array, if it was dynamically allocated.
+     */
+
+    if (tablePtr->buckets != tablePtr->staticBuckets) {
+	ckfree((char *) tablePtr->buckets);
+    }
+
+    /*
+     * Arrange for panics if the table is used again without
+     * re-initialization.
+     */
+
+    tablePtr->findProc = BogusFind;
+    tablePtr->createProc = BogusCreate;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_FirstHashEntry --
+ *
+ *	Locate the first entry in a hash table and set up a record
+ *	that can be used to step through all the remaining entries
+ *	of the table.
+ *
+ * Results:
+ *	The return value is a pointer to the first entry in tablePtr,
+ *	or NULL if tablePtr has no entries in it.  The memory at
+ *	*searchPtr is initialized so that subsequent calls to
+ *	Tcl_NextHashEntry will return all of the entries in the table,
+ *	one at a time.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_HashEntry *
+Tcl_FirstHashEntry(tablePtr, searchPtr)
+    Tcl_HashTable *tablePtr;		/* Table to search. */
+    Tcl_HashSearch *searchPtr;		/* Place to store information about
+					 * progress through the table. */
+{
+    searchPtr->tablePtr = tablePtr;
+    searchPtr->nextIndex = 0;
+    searchPtr->nextEntryPtr = NULL;
+    return Tcl_NextHashEntry(searchPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_NextHashEntry --
+ *
+ *	Once a hash table enumeration has been initiated by calling
+ *	Tcl_FirstHashEntry, this procedure may be called to return
+ *	successive elements of the table.
+ *
+ * Results:
+ *	The return value is the next entry in the hash table being
+ *	enumerated, or NULL if the end of the table is reached.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_HashEntry *
+Tcl_NextHashEntry(searchPtr)
+    register Tcl_HashSearch *searchPtr;	/* Place to store information about
+					 * progress through the table.  Must
+					 * have been initialized by calling
+					 * Tcl_FirstHashEntry. */
+{
+    Tcl_HashEntry *hPtr;
+
+    while (searchPtr->nextEntryPtr == NULL) {
+	if (searchPtr->nextIndex >= searchPtr->tablePtr->numBuckets) {
+	    return NULL;
+	}
+	searchPtr->nextEntryPtr =
+		searchPtr->tablePtr->buckets[searchPtr->nextIndex];
+	searchPtr->nextIndex++;
+    }
+    hPtr = searchPtr->nextEntryPtr;
+    searchPtr->nextEntryPtr = hPtr->nextPtr;
+    return hPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_HashStats --
+ *
+ *	Return statistics describing the layout of the hash table
+ *	in its hash buckets.
+ *
+ * Results:
+ *	The return value is a malloc-ed string containing information
+ *	about tablePtr.  It is the caller's responsibility to free
+ *	this string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_HashStats(tablePtr)
+    Tcl_HashTable *tablePtr;		/* Table for which to produce stats. */
+{
+#define NUM_COUNTERS 10
+    int count[NUM_COUNTERS], overflow, i, j;
+    double average, tmp;
+    register Tcl_HashEntry *hPtr;
+    char *result, *p;
+
+    /*
+     * Compute a histogram of bucket usage.
+     */
+
+    for (i = 0; i < NUM_COUNTERS; i++) {
+	count[i] = 0;
+    }
+    overflow = 0;
+    average = 0.0;
+    for (i = 0; i < tablePtr->numBuckets; i++) {
+	j = 0;
+	for (hPtr = tablePtr->buckets[i]; hPtr != NULL; hPtr = hPtr->nextPtr) {
+	    j++;
+	}
+	if (j < NUM_COUNTERS) {
+	    count[j]++;
+	} else {
+	    overflow++;
+	}
+	tmp = j;
+	average += (tmp+1.0)*(tmp/tablePtr->numEntries)/2.0;
+    }
+
+    /*
+     * Print out the histogram and a few other pieces of information.
+     */
+
+    result = (char *) ckalloc((unsigned) ((NUM_COUNTERS*60) + 300));
+    sprintf(result, "%d entries in table, %d buckets\n",
+	    tablePtr->numEntries, tablePtr->numBuckets);
+    p = result + strlen(result);
+    for (i = 0; i < NUM_COUNTERS; i++) {
+	sprintf(p, "number of buckets with %d entries: %d\n",
+		i, count[i]);
+	p += strlen(p);
+    }
+    sprintf(p, "number of buckets with %d or more entries: %d\n",
+	    NUM_COUNTERS, overflow);
+    p += strlen(p);
+    sprintf(p, "average search distance for entry: %.1f", average);
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * HashString --
+ *
+ *	Compute a one-word summary of a text string, which can be
+ *	used to generate a hash index.
+ *
+ * Results:
+ *	The return value is a one-word summary of the information in
+ *	string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static unsigned int
+HashString(string)
+    register char *string;	/* String from which to compute hash value. */
+{
+    register unsigned int result;
+    register int c;
+
+    /*
+     * I tried a zillion different hash functions and asked many other
+     * people for advice.  Many people had their own favorite functions,
+     * all different, but no-one had much idea why they were good ones.
+     * I chose the one below (multiply by 9 and add new character)
+     * because of the following reasons:
+     *
+     * 1. Multiplying by 10 is perfect for keys that are decimal strings,
+     *    and multiplying by 9 is just about as good.
+     * 2. Times-9 is (shift-left-3) plus (old).  This means that each
+     *    character's bits hang around in the low-order bits of the
+     *    hash value for ever, plus they spread fairly rapidly up to
+     *    the high-order bits to fill out the hash value.  This seems
+     *    works well both for decimal and non-decimal strings.
+     */
+
+    result = 0;
+    while (1) {
+	c = *string;
+	string++;
+	if (c == 0) {
+	    break;
+	}
+	result += (result<<3) + c;
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * StringFind --
+ *
+ *	Given a hash table with string keys, and a string key, find
+ *	the entry with a matching key.
+ *
+ * Results:
+ *	The return value is a token for the matching entry in the
+ *	hash table, or NULL if there was no matching entry.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+StringFind(tablePtr, key)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    char *key;			/* Key to use to find matching entry. */
+{
+    register Tcl_HashEntry *hPtr;
+    register char *p1, *p2;
+    int index;
+
+    index = HashString(key) & tablePtr->mask;
+
+    /*
+     * Search all of the entries in the appropriate bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	for (p1 = key, p2 = hPtr->key.string; ; p1++, p2++) {
+	    if (*p1 != *p2) {
+		break;
+	    }
+	    if (*p1 == '\0') {
+		return hPtr;
+	    }
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * StringCreate --
+ *
+ *	Given a hash table with string keys, and a string key, find
+ *	the entry with a matching key.  If there is no matching entry,
+ *	then create a new entry that does match.
+ *
+ * Results:
+ *	The return value is a pointer to the matching entry.  If this
+ *	is a newly-created entry, then *newPtr will be set to a non-zero
+ *	value;  otherwise *newPtr will be set to 0.  If this is a new
+ *	entry the value stored in the entry will initially be 0.
+ *
+ * Side effects:
+ *	A new entry may be added to the hash table.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+StringCreate(tablePtr, key, newPtr)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    char *key;			/* Key to use to find or create matching
+				 * entry. */
+    int *newPtr;		/* Store info here telling whether a new
+				 * entry was created. */
+{
+    register Tcl_HashEntry *hPtr;
+    register char *p1, *p2;
+    int index;
+
+    index = HashString(key) & tablePtr->mask;
+
+    /*
+     * Search all of the entries in this bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	for (p1 = key, p2 = hPtr->key.string; ; p1++, p2++) {
+	    if (*p1 != *p2) {
+		break;
+	    }
+	    if (*p1 == '\0') {
+		*newPtr = 0;
+		return hPtr;
+	    }
+	}
+    }
+
+    /*
+     * Entry not found.  Add a new one to the bucket.
+     */
+
+    *newPtr = 1;
+    hPtr = (Tcl_HashEntry *) ckalloc((unsigned)
+	    (sizeof(Tcl_HashEntry) + strlen(key) - (sizeof(hPtr->key) -1)));
+    hPtr->tablePtr = tablePtr;
+    hPtr->bucketPtr = &(tablePtr->buckets[index]);
+    hPtr->nextPtr = *hPtr->bucketPtr;
+    hPtr->clientData = 0;
+    strcpy(hPtr->key.string, key);
+    *hPtr->bucketPtr = hPtr;
+    tablePtr->numEntries++;
+
+    /*
+     * If the table has exceeded a decent size, rebuild it with many
+     * more buckets.
+     */
+
+    if (tablePtr->numEntries >= tablePtr->rebuildSize) {
+	RebuildTable(tablePtr);
+    }
+    return hPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * OneWordFind --
+ *
+ *	Given a hash table with one-word keys, and a one-word key, find
+ *	the entry with a matching key.
+ *
+ * Results:
+ *	The return value is a token for the matching entry in the
+ *	hash table, or NULL if there was no matching entry.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+OneWordFind(tablePtr, key)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    register char *key;		/* Key to use to find matching entry. */
+{
+    register Tcl_HashEntry *hPtr;
+    int index;
+
+    index = RANDOM_INDEX(tablePtr, key);
+
+    /*
+     * Search all of the entries in the appropriate bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	if (hPtr->key.oneWordValue == key) {
+	    return hPtr;
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * OneWordCreate --
+ *
+ *	Given a hash table with one-word keys, and a one-word key, find
+ *	the entry with a matching key.  If there is no matching entry,
+ *	then create a new entry that does match.
+ *
+ * Results:
+ *	The return value is a pointer to the matching entry.  If this
+ *	is a newly-created entry, then *newPtr will be set to a non-zero
+ *	value;  otherwise *newPtr will be set to 0.  If this is a new
+ *	entry the value stored in the entry will initially be 0.
+ *
+ * Side effects:
+ *	A new entry may be added to the hash table.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+OneWordCreate(tablePtr, key, newPtr)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    register char *key;		/* Key to use to find or create matching
+				 * entry. */
+    int *newPtr;		/* Store info here telling whether a new
+				 * entry was created. */
+{
+    register Tcl_HashEntry *hPtr;
+    int index;
+
+    index = RANDOM_INDEX(tablePtr, key);
+
+    /*
+     * Search all of the entries in this bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	if (hPtr->key.oneWordValue == key) {
+	    *newPtr = 0;
+	    return hPtr;
+	}
+    }
+
+    /*
+     * Entry not found.  Add a new one to the bucket.
+     */
+
+    *newPtr = 1;
+    hPtr = (Tcl_HashEntry *) ckalloc(sizeof(Tcl_HashEntry));
+    hPtr->tablePtr = tablePtr;
+    hPtr->bucketPtr = &(tablePtr->buckets[index]);
+    hPtr->nextPtr = *hPtr->bucketPtr;
+    hPtr->clientData = 0;
+    hPtr->key.oneWordValue = key;
+    *hPtr->bucketPtr = hPtr;
+    tablePtr->numEntries++;
+
+    /*
+     * If the table has exceeded a decent size, rebuild it with many
+     * more buckets.
+     */
+
+    if (tablePtr->numEntries >= tablePtr->rebuildSize) {
+	RebuildTable(tablePtr);
+    }
+    return hPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ArrayFind --
+ *
+ *	Given a hash table with array-of-int keys, and a key, find
+ *	the entry with a matching key.
+ *
+ * Results:
+ *	The return value is a token for the matching entry in the
+ *	hash table, or NULL if there was no matching entry.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+ArrayFind(tablePtr, key)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    char *key;			/* Key to use to find matching entry. */
+{
+    register Tcl_HashEntry *hPtr;
+    int *arrayPtr = (int *) key;
+    register int *iPtr1, *iPtr2;
+    int index, count;
+
+    for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr;
+	    count > 0; count--, iPtr1++) {
+	index += *iPtr1;
+    }
+    index = RANDOM_INDEX(tablePtr, index);
+
+    /*
+     * Search all of the entries in the appropriate bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	for (iPtr1 = arrayPtr, iPtr2 = hPtr->key.words,
+		count = tablePtr->keyType; ; count--, iPtr1++, iPtr2++) {
+	    if (count == 0) {
+		return hPtr;
+	    }
+	    if (*iPtr1 != *iPtr2) {
+		break;
+	    }
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ArrayCreate --
+ *
+ *	Given a hash table with one-word keys, and a one-word key, find
+ *	the entry with a matching key.  If there is no matching entry,
+ *	then create a new entry that does match.
+ *
+ * Results:
+ *	The return value is a pointer to the matching entry.  If this
+ *	is a newly-created entry, then *newPtr will be set to a non-zero
+ *	value;  otherwise *newPtr will be set to 0.  If this is a new
+ *	entry the value stored in the entry will initially be 0.
+ *
+ * Side effects:
+ *	A new entry may be added to the hash table.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tcl_HashEntry *
+ArrayCreate(tablePtr, key, newPtr)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    register char *key;		/* Key to use to find or create matching
+				 * entry. */
+    int *newPtr;		/* Store info here telling whether a new
+				 * entry was created. */
+{
+    register Tcl_HashEntry *hPtr;
+    int *arrayPtr = (int *) key;
+    register int *iPtr1, *iPtr2;
+    int index, count;
+
+    for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr;
+	    count > 0; count--, iPtr1++) {
+	index += *iPtr1;
+    }
+    index = RANDOM_INDEX(tablePtr, index);
+
+    /*
+     * Search all of the entries in the appropriate bucket.
+     */
+
+    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
+	    hPtr = hPtr->nextPtr) {
+	for (iPtr1 = arrayPtr, iPtr2 = hPtr->key.words,
+		count = tablePtr->keyType; ; count--, iPtr1++, iPtr2++) {
+	    if (count == 0) {
+		*newPtr = 0;
+		return hPtr;
+	    }
+	    if (*iPtr1 != *iPtr2) {
+		break;
+	    }
+	}
+    }
+
+    /*
+     * Entry not found.  Add a new one to the bucket.
+     */
+
+    *newPtr = 1;
+    hPtr = (Tcl_HashEntry *) ckalloc((unsigned) (sizeof(Tcl_HashEntry)
+	    + (tablePtr->keyType*sizeof(int)) - 4));
+    hPtr->tablePtr = tablePtr;
+    hPtr->bucketPtr = &(tablePtr->buckets[index]);
+    hPtr->nextPtr = *hPtr->bucketPtr;
+    hPtr->clientData = 0;
+    for (iPtr1 = arrayPtr, iPtr2 = hPtr->key.words, count = tablePtr->keyType;
+	    count > 0; count--, iPtr1++, iPtr2++) {
+	*iPtr2 = *iPtr1;
+    }
+    *hPtr->bucketPtr = hPtr;
+    tablePtr->numEntries++;
+
+    /*
+     * If the table has exceeded a decent size, rebuild it with many
+     * more buckets.
+     */
+
+    if (tablePtr->numEntries >= tablePtr->rebuildSize) {
+	RebuildTable(tablePtr);
+    }
+    return hPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * BogusFind --
+ *
+ *	This procedure is invoked when an Tcl_FindHashEntry is called
+ *	on a table that has been deleted.
+ *
+ * Results:
+ *	If panic returns (which it shouldn't) this procedure returns
+ *	NULL.
+ *
+ * Side effects:
+ *	Generates a panic.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static Tcl_HashEntry *
+BogusFind(tablePtr, key)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    char *key;			/* Key to use to find matching entry. */
+{
+    panic("called Tcl_FindHashEntry on deleted table");
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * BogusCreate --
+ *
+ *	This procedure is invoked when an Tcl_CreateHashEntry is called
+ *	on a table that has been deleted.
+ *
+ * Results:
+ *	If panic returns (which it shouldn't) this procedure returns
+ *	NULL.
+ *
+ * Side effects:
+ *	Generates a panic.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static Tcl_HashEntry *
+BogusCreate(tablePtr, key, newPtr)
+    Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
+    char *key;			/* Key to use to find or create matching
+				 * entry. */
+    int *newPtr;		/* Store info here telling whether a new
+				 * entry was created. */
+{
+    panic("called Tcl_CreateHashEntry on deleted table");
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RebuildTable --
+ *
+ *	This procedure is invoked when the ratio of entries to hash
+ *	buckets becomes too large.  It creates a new table with a
+ *	larger bucket array and moves all of the entries into the
+ *	new table.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory gets reallocated and entries get re-hashed to new
+ *	buckets.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RebuildTable(tablePtr)
+    register Tcl_HashTable *tablePtr;	/* Table to enlarge. */
+{
+    int oldSize, count, index;
+    Tcl_HashEntry **oldBuckets;
+    register Tcl_HashEntry **oldChainPtr, **newChainPtr;
+    register Tcl_HashEntry *hPtr;
+
+    oldSize = tablePtr->numBuckets;
+    oldBuckets = tablePtr->buckets;
+
+    /*
+     * Allocate and initialize the new bucket array, and set up
+     * hashing constants for new array size.
+     */
+
+    tablePtr->numBuckets *= 4;
+    tablePtr->buckets = (Tcl_HashEntry **) ckalloc((unsigned)
+	    (tablePtr->numBuckets * sizeof(Tcl_HashEntry *)));
+    for (count = tablePtr->numBuckets, newChainPtr = tablePtr->buckets;
+	    count > 0; count--, newChainPtr++) {
+	*newChainPtr = NULL;
+    }
+    tablePtr->rebuildSize *= 4;
+    tablePtr->downShift -= 2;
+    tablePtr->mask = (tablePtr->mask << 2) + 3;
+
+    /*
+     * Rehash all of the existing entries into the new bucket array.
+     */
+
+    for (oldChainPtr = oldBuckets; oldSize > 0; oldSize--, oldChainPtr++) {
+	for (hPtr = *oldChainPtr; hPtr != NULL; hPtr = *oldChainPtr) {
+	    *oldChainPtr = hPtr->nextPtr;
+	    if (tablePtr->keyType == TCL_STRING_KEYS) {
+		index = HashString(hPtr->key.string) & tablePtr->mask;
+	    } else if (tablePtr->keyType == TCL_ONE_WORD_KEYS) {
+		index = RANDOM_INDEX(tablePtr, hPtr->key.oneWordValue);
+	    } else {
+		register int *iPtr;
+		int count;
+
+		for (index = 0, count = tablePtr->keyType,
+			iPtr = hPtr->key.words; count > 0; count--, iPtr++) {
+		    index += *iPtr;
+		}
+		index = RANDOM_INDEX(tablePtr, index);
+	    }
+	    hPtr->bucketPtr = &(tablePtr->buckets[index]);
+	    hPtr->nextPtr = *hPtr->bucketPtr;
+	    *hPtr->bucketPtr = hPtr;
+	}
+    }
+
+    /*
+     * Free up the old bucket array, if it was dynamically allocated.
+     */
+
+    if (oldBuckets != tablePtr->staticBuckets) {
+	ckfree((char *) oldBuckets);
+    }
+}
diff --git a/Tcl/tclInt.h b/Tcl/tclInt.h
new file mode 100644
index 0000000..a3147b0
--- /dev/null
+++ b/Tcl/tclInt.h
@@ -0,0 +1,1075 @@
+/*
+ * tclInt.h --
+ *
+ *	Declarations of things used internally by the Tcl interpreter.
+ *
+ * Copyright (c) 1987-1993 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclInt.h 1.200 96/04/11 17:24:12
+ */
+
+#ifndef _TCLINT
+#define _TCLINT
+
+/*
+ * Common include files needed by most of the Tcl source files are
+ * included here, so that system-dependent personalizations for the
+ * include files only have to be made in once place.  This results
+ * in a few extra includes, but greater modularity.  The order of
+ * the three groups of #includes is important.  For example, stdio.h
+ * is needed by tcl.h, and the _ANSI_ARGS_ declaration in tcl.h is
+ * needed by stdlib.h in some configurations.
+ */
+
+#include <stdio.h>
+
+#ifndef _TCL
+#include "tcl.h"
+#endif
+#ifndef _REGEXP
+#include "tclRegexp.h"
+#endif
+
+#include <ctype.h>
+#ifdef NO_LIMITS_H
+#   include "compat/limits.h"
+#else
+#   include <limits.h>
+#endif
+#ifdef NO_STDLIB_H
+#   include "compat/stdlib.h"
+#else
+#   include <stdlib.h>
+#endif
+#ifdef NO_STRING_H
+#include "compat/string.h"
+#else
+#include <string.h>
+#endif
+#if defined(__STDC__) || defined(HAS_STDARG)
+#   include <stdarg.h>
+#else
+#   include <varargs.h>
+#endif
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to variables.   These are used primarily
+ * in tclVar.c
+ *----------------------------------------------------------------
+ */
+
+/*
+ * The following structure defines a variable trace, which is used to
+ * invoke a specific C procedure whenever certain operations are performed
+ * on a variable.
+ */
+
+typedef struct VarTrace {
+    Tcl_VarTraceProc *traceProc;/* Procedure to call when operations given
+				 * by flags are performed on variable. */
+    ClientData clientData;	/* Argument to pass to proc. */
+    int flags;			/* What events the trace procedure is
+				 * interested in:  OR-ed combination of
+				 * TCL_TRACE_READS, TCL_TRACE_WRITES, and
+				 * TCL_TRACE_UNSETS. */
+    struct VarTrace *nextPtr;	/* Next in list of traces associated with
+				 * a particular variable. */
+} VarTrace;
+
+/*
+ * When a variable trace is active (i.e. its associated procedure is
+ * executing), one of the following structures is linked into a list
+ * associated with the variable's interpreter.  The information in
+ * the structure is needed in order for Tcl to behave reasonably
+ * if traces are deleted while traces are active.
+ */
+
+typedef struct ActiveVarTrace {
+    struct Var *varPtr;		/* Variable that's being traced. */
+    struct ActiveVarTrace *nextPtr;
+				/* Next in list of all active variable
+				 * traces for the interpreter, or NULL
+				 * if no more. */
+    VarTrace *nextTracePtr;	/* Next trace to check after current
+				 * trace procedure returns;  if this
+				 * trace gets deleted, must update pointer
+				 * to avoid using free'd memory. */
+} ActiveVarTrace;
+
+/*
+ * The following structure describes an enumerative search in progress on
+ * an array variable;  this are invoked with options to the "array"
+ * command.
+ */
+
+typedef struct ArraySearch {
+    int id;			/* Integer id used to distinguish among
+				 * multiple concurrent searches for the
+				 * same array. */
+    struct Var *varPtr;		/* Pointer to array variable that's being
+				 * searched. */
+    Tcl_HashSearch search;	/* Info kept by the hash module about
+				 * progress through the array. */
+    Tcl_HashEntry *nextEntry;	/* Non-null means this is the next element
+				 * to be enumerated (it's leftover from
+				 * the Tcl_FirstHashEntry call or from
+				 * an "array anymore" command).  NULL
+				 * means must call Tcl_NextHashEntry
+				 * to get value to return. */
+    struct ArraySearch *nextPtr;/* Next in list of all active searches
+				 * for this variable, or NULL if this is
+				 * the last one. */
+} ArraySearch;
+
+/*
+ * The structure below defines a variable, which associates a string name
+ * with a string value.  Pointers to these structures are kept as the
+ * values of hash table entries, and the name of each variable is stored
+ * in the hash entry.
+ */
+
+typedef struct Var {
+    int valueLength;		/* Holds the number of non-null bytes
+				 * actually occupied by the variable's
+				 * current value in value.string (extra
+				 * space is sometimes left for expansion).
+				 * For array and global variables this is
+				 * meaningless. */
+    int valueSpace;		/* Total number of bytes of space allocated
+				 * at value.string.  0 means there is no
+				 * space allocated. */
+    union {
+	char *string;		/* String value of variable, used for scalar
+				 * variables and array elements.  Malloc-ed. */
+	Tcl_HashTable *tablePtr;/* For array variables, this points to
+				 * information about the hash table used
+				 * to implement the associative array. 
+				 * Points to malloc-ed data. */
+	struct Var *upvarPtr;	/* If this is a global variable being
+				 * referred to in a procedure, or a variable
+				 * created by "upvar", this field points to
+				 * the record for the higher-level variable. */
+    } value;
+    Tcl_HashEntry *hPtr;	/* Hash table entry that refers to this
+				 * variable, or NULL if the variable has
+				 * been detached from its hash table (e.g.
+				 * an array is deleted, but some of its
+				 * elements are still referred to in upvars). */
+    int refCount;		/* Counts number of active uses of this
+				 * variable, not including its main hash
+				 * table entry: 1 for each additional variable
+				 * whose upVarPtr points here, 1 for each
+				 * nested trace active on variable.  This
+				 * record can't be deleted until refCount
+				 * becomes 0. */
+    VarTrace *tracePtr;		/* First in list of all traces set for this
+				 * variable. */
+    ArraySearch *searchPtr;	/* First in list of all searches active
+				 * for this variable, or NULL if none. */
+    int flags;			/* Miscellaneous bits of information about
+				 * variable.  See below for definitions. */
+} Var;
+
+/*
+ * Flag bits for variables:
+ *
+ * VAR_ARRAY	-		1 means this is an array variable rather
+ *				than a scalar variable.
+ * VAR_UPVAR - 			1 means this variable just contains a
+ *				pointer to another variable that has the
+ *				real value.  Variables like this come
+ *				about through the "upvar" and "global"
+ *				commands.
+ * VAR_UNDEFINED -		1 means that the variable is currently
+ *				undefined.  Undefined variables usually
+ *				go away completely, but if an undefined
+ *				variable has a trace on it, or if it is
+ *				a global variable being used by a procedure,
+ *				then it stays around even when undefined.
+ * VAR_TRACE_ACTIVE -		1 means that trace processing is currently
+ *				underway for a read or write access, so
+ *				new read or write accesses should not cause
+ *				trace procedures to be called and the
+ *				variable can't be deleted.
+ */
+
+#define VAR_ARRAY		1
+#define VAR_UPVAR		2
+#define VAR_UNDEFINED		4
+#define VAR_TRACE_ACTIVE	0x10
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to procedures.   These are used primarily
+ * in tclProc.c
+ *----------------------------------------------------------------
+ */
+
+/*
+ * The structure below defines an argument to a procedure, which
+ * consists of a name and an (optional) default value.
+ */
+
+typedef struct Arg {
+    struct Arg *nextPtr;	/* Next argument for this procedure,
+				 * or NULL if this is the last argument. */
+    char *defValue;		/* Pointer to arg's default value, or NULL
+				 * if no default value. */
+    char name[4];		/* Name of argument starts here.  The name
+				 * is followed by space for the default,
+				 * if there is one.  The actual size of this
+				 * field will be as large as necessary to
+				 * hold both name and default value.  THIS
+				 * MUST BE THE LAST FIELD IN THE STRUCTURE!! */
+} Arg;
+
+/*
+ * The structure below defines a command procedure, which consists of
+ * a collection of Tcl commands plus information about arguments and
+ * variables.
+ */
+
+typedef struct Proc {
+    struct Interp *iPtr;	/* Interpreter for which this command
+				 * is defined. */
+    int refCount;		/* Reference count:  1 if still present
+				 * in command table plus 1 for each call
+				 * to the procedure that is currently
+				 * active.  This structure can be freed
+				 * when refCount becomes zero. */
+    char *command;		/* Command that constitutes the body of
+				 * the procedure (dynamically allocated). */
+    Arg *argPtr;		/* Pointer to first of procedure's formal
+				 * arguments, or NULL if none. */
+} Proc;
+
+/*
+ * The structure below defines a command trace.  This is used to allow Tcl
+ * clients to find out whenever a command is about to be executed.
+ */
+
+typedef struct Trace {
+    int level;			/* Only trace commands at nesting level
+				 * less than or equal to this. */
+    Tcl_CmdTraceProc *proc;	/* Procedure to call to trace command. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+    struct Trace *nextPtr;	/* Next in list of traces for this interp. */
+} Trace;
+
+/*
+ * The structure below defines an entry in the assocData hash table which
+ * is associated with an interpreter. The entry contains a pointer to a
+ * function to call when the interpreter is deleted, and a pointer to
+ * a user-defined piece of data.
+ */
+
+typedef struct AssocData {
+    Tcl_InterpDeleteProc *proc;	/* Proc to call when deleting. */
+    ClientData clientData;	/* Value to pass to proc. */
+} AssocData;    
+
+/*
+ * The structure below defines a frame, which is a procedure invocation.
+ * These structures exist only while procedures are being executed, and
+ * provide a sort of call stack.
+ */
+
+typedef struct CallFrame {
+    Tcl_HashTable varTable;	/* Hash table containing all of procedure's
+				 * local variables. */
+    int level;			/* Level of this procedure, for "uplevel"
+				 * purposes (i.e. corresponds to nesting of
+				 * callerVarPtr's, not callerPtr's).  1 means
+				 * outer-most procedure, 0 means top-level. */
+    int argc;			/* This and argv below describe name and
+				 * arguments for this procedure invocation. */
+    char **argv;		/* Array of arguments. */
+    struct CallFrame *callerPtr;
+				/* Value of interp->framePtr when this
+				 * procedure was invoked (i.e. next in
+				 * stack of all active procedures). */
+    struct CallFrame *callerVarPtr;
+				/* Value of interp->varFramePtr when this
+				 * procedure was invoked (i.e. determines
+				 * variable scoping within caller;  same
+				 * as callerPtr unless an "uplevel" command
+				 * or something equivalent was active in
+				 * the caller). */
+} CallFrame;
+
+/*
+ * The structure below defines one history event (a previously-executed
+ * command that can be re-executed in whole or in part).
+ */
+
+typedef struct {
+    char *command;		/* String containing previously-executed
+				 * command. */
+    int bytesAvl;		/* Total # of bytes available at *event (not
+				 * all are necessarily in use now). */
+} HistoryEvent;
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to history.   These are used primarily
+ * in tclHistory.c
+ *----------------------------------------------------------------
+ */
+
+/*
+ * The structure below defines a pending revision to the most recent
+ * history event.  Changes are linked together into a list and applied
+ * during the next call to Tcl_RecordHistory.  See the comments at the
+ * beginning of tclHistory.c for information on revisions.
+ */
+
+typedef struct HistoryRev {
+    int firstIndex;		/* Index of the first byte to replace in
+				 * current history event. */
+    int lastIndex;		/* Index of last byte to replace in
+				 * current history event. */
+    int newSize;		/* Number of bytes in newBytes. */
+    char *newBytes;		/* Replacement for the range given by
+				 * firstIndex and lastIndex (malloced). */
+    struct HistoryRev *nextPtr;	/* Next in chain of revisions to apply, or
+				 * NULL for end of list. */
+} HistoryRev;
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to expressions.  These are used only in
+ * tclExpr.c.
+ *----------------------------------------------------------------
+ */
+
+/*
+ * The data structure below defines a math function (e.g. sin or hypot)
+ * for use in Tcl expressions.
+ */
+
+#define MAX_MATH_ARGS 5
+typedef struct MathFunc {
+    int numArgs;		/* Number of arguments for function. */
+    Tcl_ValueType argTypes[MAX_MATH_ARGS];
+				/* Acceptable types for each argument. */
+    Tcl_MathProc *proc;		/* Procedure that implements this function. */
+    ClientData clientData;	/* Additional argument to pass to the function
+				 * when invoking it. */
+} MathFunc;
+
+/*
+ *----------------------------------------------------------------
+ * One of the following structures exists for each command in
+ * an interpreter.  The Tcl_Command opaque type actually refers
+ * to these structures.
+ *----------------------------------------------------------------
+ */
+
+typedef struct Command {
+    Tcl_HashEntry *hPtr;	/* Pointer to the hash table entry in
+				 * interp->commandTable that refers to
+				 * this command.  Used to get a command's
+				 * name from its Tcl_Command handle.  NULL
+				 * means that the hash table entry has
+				 * been removed already (this can happen
+				 * if deleteProc causes the command to be
+				 * deleted or recreated). */
+    Tcl_CmdProc *proc;		/* Procedure to process command. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+    Tcl_CmdDeleteProc *deleteProc;
+				/* Procedure to invoke when deleting
+				 * command. */
+    ClientData deleteData;	/* Arbitrary value to pass to deleteProc
+				 * (usually the same as clientData). */
+    int deleted;		/* Means that the command is in the process
+				 * of being deleted (its deleteProc is
+				 * currently executing).  Any other attempts
+				 * to delete the command should be ignored. */
+} Command;
+
+/*
+ *----------------------------------------------------------------
+ * This structure defines an interpreter, which is a collection of
+ * commands plus other state information related to interpreting
+ * commands, such as variable storage.  Primary responsibility for
+ * this data structure is in tclBasic.c, but almost every Tcl
+ * source file uses something in here.
+ *----------------------------------------------------------------
+ */
+
+typedef struct Interp {
+
+    /*
+     * Note:  the first three fields must match exactly the fields in
+     * a Tcl_Interp struct (see tcl.h).  If you change one, be sure to
+     * change the other.
+     */
+
+    char *result;		/* Points to result returned by last
+				 * command. */
+    Tcl_FreeProc *freeProc;	/* Zero means result is statically allocated.
+				 * TCL_DYNAMIC means result was allocated with
+				 * ckalloc and should be freed with ckfree.
+				 * Other values give address of procedure
+				 * to invoke to free the result.  Must be
+				 * freed by Tcl_Eval before executing next
+				 * command. */
+    int errorLine;		/* When TCL_ERROR is returned, this gives
+				 * the line number within the command where
+				 * the error occurred (1 means first line). */
+    Tcl_HashTable commandTable;	/* Contains all of the commands currently
+				 * registered in this interpreter.  Indexed
+				 * by strings; values have type (Command *). */
+    Tcl_HashTable mathFuncTable;/* Contains all of the math functions currently
+				 * defined for the interpreter.  Indexed by
+				 * strings (function names);  values have
+				 * type (MathFunc *). */
+
+    /*
+     * Information related to procedures and variables.  See tclProc.c
+     * and tclvar.c for usage.
+     */
+
+    Tcl_HashTable globalTable;	/* Contains all global variables for
+				 * interpreter. */
+    int numLevels;		/* Keeps track of how many nested calls to
+				 * Tcl_Eval are in progress for this
+				 * interpreter.  It's used to delay deletion
+				 * of the table until all Tcl_Eval invocations
+				 * are completed. */
+    int maxNestingDepth;	/* If numLevels exceeds this value then Tcl
+				 * assumes that infinite recursion has
+				 * occurred and it generates an error. */
+    CallFrame *framePtr;	/* Points to top-most in stack of all nested
+				 * procedure invocations.  NULL means there
+				 * are no active procedures. */
+    CallFrame *varFramePtr;	/* Points to the call frame whose variables
+				 * are currently in use (same as framePtr
+				 * unless an "uplevel" command is being
+				 * executed).  NULL means no procedure is
+				 * active or "uplevel 0" is being exec'ed. */
+    ActiveVarTrace *activeTracePtr;
+				/* First in list of active traces for interp,
+				 * or NULL if no active traces. */
+    int returnCode;		/* Completion code to return if current
+				 * procedure exits with a TCL_RETURN code. */
+    char *errorInfo;		/* Value to store in errorInfo if returnCode
+				 * is TCL_ERROR.  Malloc'ed, may be NULL */
+    char *errorCode;		/* Value to store in errorCode if returnCode
+				 * is TCL_ERROR.  Malloc'ed, may be NULL */
+
+    /*
+     * Information related to history:
+     */
+
+    int numEvents;		/* Number of previously-executed commands
+				 * to retain. */
+    HistoryEvent *events;	/* Array containing numEvents entries
+				 * (dynamically allocated). */
+    int curEvent;		/* Index into events of place where current
+				 * (or most recent) command is recorded. */
+    int curEventNum;		/* Event number associated with the slot
+				 * given by curEvent. */
+    HistoryRev *revPtr;		/* First in list of pending revisions. */
+    char *historyFirst;		/* First char. of current command executed
+				 * from history module or NULL if none. */
+    int revDisables;		/* 0 means history revision OK;  > 0 gives
+				 * a count of number of times revision has
+				 * been disabled. */
+    char *evalFirst;		/* If TCL_RECORD_BOUNDS flag set, Tcl_Eval
+				 * sets this field to point to the first
+				 * char. of text from which the current
+				 * command came.  Otherwise Tcl_Eval sets
+				 * this to NULL. */
+    char *evalLast;		/* Similar to evalFirst, except points to
+				 * last character of current command. */
+
+    /*
+     * Information used by Tcl_AppendResult to keep track of partial
+     * results.  See Tcl_AppendResult code for details.
+     */
+
+    char *appendResult;		/* Storage space for results generated
+				 * by Tcl_AppendResult.  Malloc-ed.  NULL
+				 * means not yet allocated. */
+    int appendAvl;		/* Total amount of space available at
+				 * partialResult. */
+    int appendUsed;		/* Number of non-null bytes currently
+				 * stored at partialResult. */
+
+    /*
+     * A cache of compiled regular expressions.  See Tcl_RegExpCompile
+     * in tclUtil.c for details.
+     */
+
+#define NUM_REGEXPS 5
+    char *patterns[NUM_REGEXPS];/* Strings corresponding to compiled
+				 * regular expression patterns.  NULL
+				 * means that this slot isn't used.
+				 * Malloc-ed. */
+    int patLengths[NUM_REGEXPS];/* Number of non-null characters in
+				 * corresponding entry in patterns.
+				 * -1 means entry isn't used. */
+    regexp *regexps[NUM_REGEXPS];
+				/* Compiled forms of above strings.  Also
+				 * malloc-ed, or NULL if not in use yet. */
+
+    /*
+     * Information about packages.  Used only in tclPkg.c.
+     */
+
+    Tcl_HashTable packageTable;	/* Describes all of the packages loaded
+				 * in or available to this interpreter.
+				 * Keys are package names, values are
+				 * (Package *) pointers. */
+    char *packageUnknown;	/* Command to invoke during "package
+				 * require" commands for packages that
+				 * aren't described in packageTable. 
+				 * Malloc'ed, may be NULL. */
+
+    /*
+     * Information used by Tcl_PrintDouble:
+     */
+
+    char pdFormat[10];		/* Format string used by Tcl_PrintDouble. */
+    int pdPrec;			/* Current precision (used to restore the
+				 * the tcl_precision variable after a bogus
+				 * value has been put into it). */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    int cmdCount;		/* Total number of times a command procedure
+				 * has been called for this interpreter. */
+    int noEval;			/* Non-zero means no commands should actually
+				 * be executed:  just parse only.  Used in
+				 * expressions when the result is already
+				 * determined. */
+    int evalFlags;		/* Flags to control next call to Tcl_Eval.
+				 * Normally zero, but may be set before
+				 * calling Tcl_Eval.  See below for valid
+				 * values. */
+    char *termPtr;		/* Character just after the last one in
+				 * a command.  Set by Tcl_Eval before
+				 * returning. */
+    char *scriptFile;		/* NULL means there is no nested source
+				 * command active;  otherwise this points to
+				 * the name of the file being sourced (it's
+				 * not malloc-ed:  it points to an argument
+				 * to Tcl_EvalFile. */
+    int flags;			/* Various flag bits.  See below. */
+    Trace *tracePtr;		/* List of traces for this interpreter. */
+    Tcl_HashTable *assocData;	/* Hash table for associating data with
+                                 * this interpreter. Cleaned up when
+                                 * this interpreter is deleted. */
+    char resultSpace[TCL_RESULT_SIZE+1];
+				/* Static space for storing small results. */
+} Interp;
+
+/*
+ * EvalFlag bits for Interp structures:
+ *
+ * TCL_BRACKET_TERM	1 means that the current script is terminated by
+ *			a close bracket rather than the end of the string.
+ * TCL_RECORD_BOUNDS	Tells Tcl_Eval to record information in the
+ *			evalFirst and evalLast fields for each command
+ *			executed directly from the string (top-level
+ *			commands and those from command substitution).
+ * TCL_ALLOW_EXCEPTIONS	1 means it's OK for the script to terminate with
+ *			a code other than TCL_OK or TCL_ERROR;  0 means
+ *			codes other than these should be turned into errors.
+ */
+
+#define TCL_BRACKET_TERM	1
+#define TCL_RECORD_BOUNDS	2
+#define TCL_ALLOW_EXCEPTIONS	4
+
+/*
+ * Flag bits for Interp structures:
+ *
+ * DELETED:		Non-zero means the interpreter has been deleted:
+ *			don't process any more commands for it, and destroy
+ *			the structure as soon as all nested invocations of
+ *			Tcl_Eval are done.
+ * ERR_IN_PROGRESS:	Non-zero means an error unwind is already in progress.
+ *			Zero means a command proc has been invoked since last
+ *			error occured.
+ * ERR_ALREADY_LOGGED:	Non-zero means information has already been logged
+ *			in $errorInfo for the current Tcl_Eval instance,
+ *			so Tcl_Eval needn't log it (used to implement the
+ *			"error message log" command).
+ * ERROR_CODE_SET:	Non-zero means that Tcl_SetErrorCode has been
+ *			called to record information for the current
+ *			error.  Zero means Tcl_Eval must clear the
+ *			errorCode variable if an error is returned.
+ * EXPR_INITIALIZED:	1 means initialization specific to expressions has
+ *			been carried out.
+ */
+
+#define DELETED			1
+#define ERR_IN_PROGRESS		2
+#define ERR_ALREADY_LOGGED	4
+#define ERROR_CODE_SET		8
+#define EXPR_INITIALIZED	0x10
+
+/*
+ * Default value for the pdPrec and pdFormat fields of interpreters:
+ */
+
+#define DEFAULT_PD_PREC 6
+#define DEFAULT_PD_FORMAT "%g"
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to command parsing.   These are used in
+ * tclParse.c and its clients.
+ *----------------------------------------------------------------
+ */
+
+/*
+ * The following data structure is used by various parsing procedures
+ * to hold information about where to store the results of parsing
+ * (e.g. the substituted contents of a quoted argument, or the result
+ * of a nested command).  At any given time, the space available
+ * for output is fixed, but a procedure may be called to expand the
+ * space available if the current space runs out.
+ */
+
+typedef struct ParseValue {
+    char *buffer;		/* Address of first character in
+				 * output buffer. */
+    char *next;			/* Place to store next character in
+				 * output buffer. */
+    char *end;			/* Address of the last usable character
+				 * in the buffer. */
+    void (*expandProc) _ANSI_ARGS_((struct ParseValue *pvPtr, int needed));
+				/* Procedure to call when space runs out;
+				 * it will make more space. */
+    ClientData clientData;	/* Arbitrary information for use of
+				 * expandProc. */
+} ParseValue;
+
+/*
+ * A table used to classify input characters to assist in parsing
+ * Tcl commands.  The table should be indexed with a signed character
+ * using the CHAR_TYPE macro.  The character may have a negative
+ * value.
+ */
+
+extern char tclTypeTable[];
+#define CHAR_TYPE(c) (tclTypeTable+128)[c]
+
+/*
+ * Possible values returned by CHAR_TYPE:
+ *
+ * TCL_NORMAL -		All characters that don't have special significance
+ *			to the Tcl language.
+ * TCL_SPACE -		Character is space, tab, or return.
+ * TCL_COMMAND_END -	Character is newline or null or semicolon or
+ *			close-bracket.
+ * TCL_QUOTE -		Character is a double-quote.
+ * TCL_OPEN_BRACKET -	Character is a "[".
+ * TCL_OPEN_BRACE -	Character is a "{".
+ * TCL_CLOSE_BRACE -	Character is a "}".
+ * TCL_BACKSLASH -	Character is a "\".
+ * TCL_DOLLAR -		Character is a "$".
+ */
+
+#define TCL_NORMAL		0
+#define TCL_SPACE		1
+#define TCL_COMMAND_END		2
+#define TCL_QUOTE		3
+#define TCL_OPEN_BRACKET	4
+#define TCL_OPEN_BRACE		5
+#define TCL_CLOSE_BRACE		6
+#define TCL_BACKSLASH		7
+#define TCL_DOLLAR		8
+
+/*
+ * Maximum number of levels of nesting permitted in Tcl commands (used
+ * to catch infinite recursion).
+ */
+
+#define MAX_NESTING_DEPTH	1000
+
+/*
+ * The macro below is used to modify a "char" value (e.g. by casting
+ * it to an unsigned character) so that it can be used safely with
+ * macros such as isspace.
+ */
+
+#define UCHAR(c) ((unsigned char) (c))
+
+/*
+ * Given a size or address, the macro below "aligns" it to the machine's
+ * memory unit size (e.g. an 8-byte boundary) so that anything can be
+ * placed at the aligned address without fear of an alignment error.
+ */
+
+#define TCL_ALIGN(x) ((x + 7) & ~7)
+
+/*
+ * For each event source (created with Tcl_CreateEventSource) there
+ * is a structure of the following type:
+ */
+
+typedef struct TclEventSource {
+    Tcl_EventSetupProc *setupProc;	/* This procedure is called by
+					 * Tcl_DoOneEvent to set up information
+					 * for the wait operation, such as
+					 * files to wait for or maximum
+					 * timeout. */
+    Tcl_EventCheckProc *checkProc;	/* This procedure is called by
+					 * Tcl_DoOneEvent after its wait
+					 * operation to see what events
+					 * are ready and queue them. */
+    ClientData clientData;		/* Arbitrary one-word argument to pass
+					 * to setupProc and checkProc. */
+    struct TclEventSource *nextPtr;	/* Next in list of all event sources
+					 * defined for applicaton. */
+} TclEventSource;
+
+/*
+ * The following macros are used to specify the runtime platform
+ * setting of the tclPlatform variable.
+ */
+
+typedef enum {
+    TCL_PLATFORM_UNIX,		/* Any Unix-like OS. */
+    TCL_PLATFORM_MAC,		/* MacOS. */
+    TCL_PLATFORM_WINDOWS	/* Any Microsoft Windows OS. */
+} TclPlatformType;
+
+/*
+ *----------------------------------------------------------------
+ * Variables shared among Tcl modules but not used by the outside
+ * world:
+ *----------------------------------------------------------------
+ */
+
+extern Tcl_Time			tclBlockTime;
+extern int			tclBlockTimeSet;
+extern char *			tclExecutableName;
+extern TclEventSource *		tclFirstEventSourcePtr;
+extern Tcl_ChannelType	 	tclFileChannelType;
+extern char *			tclMemDumpFileName;
+extern TclPlatformType		tclPlatform;
+
+/*
+ *----------------------------------------------------------------
+ * Procedures shared among Tcl modules but not used by the outside
+ * world:
+ *----------------------------------------------------------------
+ */
+
+EXTERN void		panic();
+EXTERN int		TclCleanupChildren _ANSI_ARGS_((Tcl_Interp *interp,
+		            int numPids, int *pidPtr, Tcl_Channel errorChan));
+EXTERN int		TclCloseFile _ANSI_ARGS_((Tcl_File file));
+EXTERN char *		TclConvertToNative _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, Tcl_DString *bufferPtr));
+EXTERN char *		TclConvertToNetwork _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, Tcl_DString *bufferPtr));
+EXTERN void		TclCopyAndCollapse _ANSI_ARGS_((int count, char *src,
+			    char *dst));
+EXTERN int		TclChdir _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *dirName));
+EXTERN void		TclClosePipeFile _ANSI_ARGS_((Tcl_File file));
+EXTERN Tcl_Channel	TclCreateCommandChannel _ANSI_ARGS_((
+    			    Tcl_File readFile, Tcl_File writeFile,
+			    Tcl_File errorFile, int numPids, int *pidPtr));
+EXTERN int              TclCreatePipe _ANSI_ARGS_((Tcl_File *readPipe,
+			    Tcl_File *writePipe));
+EXTERN int		TclCreatePipeline _ANSI_ARGS_((Tcl_Interp *interp,
+			    int argc, char **argv, int **pidArrayPtr,
+			    Tcl_File *inPipePtr,
+			    Tcl_File *outPipePtr,
+			    Tcl_File *errFilePtr));
+EXTERN Tcl_File		TclCreateTempFile _ANSI_ARGS_((char *contents));
+EXTERN void		TclDeleteVars _ANSI_ARGS_((Interp *iPtr,
+			    Tcl_HashTable *tablePtr));
+EXTERN int		TclDoGlob _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *separators, Tcl_DString *headPtr,
+			    char *tail));
+EXTERN void		TclExpandParseValue _ANSI_ARGS_((ParseValue *pvPtr,
+			    int needed));
+EXTERN void		TclExprFloatError _ANSI_ARGS_((Tcl_Interp *interp,
+			    double value));
+EXTERN int		TclFindElement _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *list, char **elementPtr, char **nextPtr,
+			    int *sizePtr, int *bracePtr));
+EXTERN Proc *		TclFindProc _ANSI_ARGS_((Interp *iPtr,
+			    char *procName));
+EXTERN void		TclFreePackageInfo _ANSI_ARGS_((Interp *iPtr));
+EXTERN char *		TclGetCwd _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN unsigned long	TclGetClicks _ANSI_ARGS_((void));
+EXTERN char *		TclGetExtension _ANSI_ARGS_((char *name));
+EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp *interp,
+		            Tcl_Channel chan));
+EXTERN int		TclGetDate _ANSI_ARGS_((char *p,
+			    unsigned long now, long zone,
+			    unsigned long *timePtr));
+EXTERN Tcl_Channel	TclGetDefaultStdChannel _ANSI_ARGS_((int type));
+EXTERN char *		TclGetEnv _ANSI_ARGS_((char *name));
+EXTERN int		TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, CallFrame **framePtrPtr));
+EXTERN int		TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp,
+        		    char *string, int *seekFlagPtr));
+EXTERN unsigned long	TclGetSeconds _ANSI_ARGS_((void));
+EXTERN void		TclGetTime _ANSI_ARGS_((Tcl_Time *time));
+EXTERN int		TclGetTimeZone _ANSI_ARGS_((unsigned long time));
+EXTERN char *		TclGetUserHome _ANSI_ARGS_((char *name,
+			    Tcl_DString *bufferPtr));
+EXTERN int		TclGetListIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *indexPtr));
+EXTERN int		TclGetLoadedPackages _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *targetName));
+EXTERN char *		TclGetUserHome _ANSI_ARGS_((char *name,
+			    Tcl_DString *bufferPtr));
+EXTERN int		TclGuessPackageName _ANSI_ARGS_((char *fileName,
+			    Tcl_DString *bufPtr));
+EXTERN int              TclHasPipes _ANSI_ARGS_((void));
+EXTERN int		TclHasSockets _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN int		TclIdlePending _ANSI_ARGS_((void));
+EXTERN int		TclInterpInit _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN Proc *		TclIsProc _ANSI_ARGS_((Command *cmdPtr));
+EXTERN int		TclLoadFile _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *fileName, char *sym1, char *sym2,
+			    Tcl_PackageInitProc **proc1Ptr,
+			    Tcl_PackageInitProc **proc2Ptr));
+EXTERN int		TclMakeFileTable _ANSI_ARGS_((Tcl_Interp *interp,
+                            int noStdio));
+EXTERN int		TclMatchFiles _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *separators, Tcl_DString *dirPtr,
+			    char *pattern, char *tail));
+EXTERN int		TclNeedSpace _ANSI_ARGS_((char *start, char *end));
+EXTERN Tcl_File		TclOpenFile _ANSI_ARGS_((char *fname, int mode));
+EXTERN int		TclParseBraces _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, char **termPtr, ParseValue *pvPtr));
+EXTERN int		TclParseNestedCmd _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int flags, char **termPtr,
+			    ParseValue *pvPtr));
+EXTERN int		TclParseQuotes _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int termChar, int flags,
+			    char **termPtr, ParseValue *pvPtr));
+EXTERN int		TclParseWords _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int flags, int maxWords,
+			    char **termPtr, int *argcPtr, char **argv,
+			    ParseValue *pvPtr));
+EXTERN void		TclPlatformExit _ANSI_ARGS_((int status));
+EXTERN void		TclPlatformInit _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN char *		TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+EXTERN int		TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp *interp,
+		            Tcl_Interp *cmdInterp, char *cmdName,
+                            Tcl_CmdProc *proc, ClientData clientData));
+EXTERN int		TclReadFile _ANSI_ARGS_((Tcl_File file,
+			    int shouldBlock, char *buf, int toRead));
+EXTERN int		TclSeekFile _ANSI_ARGS_((Tcl_File file,
+			    int offset, int whence));
+EXTERN int		TclServiceIdle _ANSI_ARGS_((void));
+EXTERN void		TclSetupEnv _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN int		TclSockGetPort _ANSI_ARGS_((Tcl_Interp *interp,
+		            char *string, char *proto, int *portPtr));
+EXTERN int		TclSockMinimumBuffers _ANSI_ARGS_((int sock,
+        		    int size));
+EXTERN int              TclSpawnPipeline _ANSI_ARGS_((Tcl_Interp *interp,
+	                    int *pidPtr, int *numPids, int argc, char **argv,
+			    Tcl_File inputFile,
+			    Tcl_File outputFile,
+	                    Tcl_File errorFile,
+	                    char *intIn, char *finalOut));
+EXTERN int		TclTestChannelCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		TclTestChannelEventCmd _ANSI_ARGS_((
+    			    ClientData clientData, Tcl_Interp *interp,
+                            int argc, char **argv));
+EXTERN int		TclUpdateReturnInfo _ANSI_ARGS_((Interp *iPtr));
+EXTERN int		TclWaitForFile _ANSI_ARGS_((Tcl_File file,
+			    int mask, int timeout));
+EXTERN char *		TclWordEnd _ANSI_ARGS_((char *start, int nested,
+			    int *semiPtr));
+EXTERN int		TclWriteFile _ANSI_ARGS_((Tcl_File file,
+			    int shouldBlock, char *buf, int toWrite));
+
+/*
+ *----------------------------------------------------------------
+ * Command procedures in the generic core:
+ *----------------------------------------------------------------
+ */
+
+EXTERN int	Tcl_AfterCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_AppendCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ArrayCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_BreakCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_CaseCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_CatchCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_CdCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ClockCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_CloseCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ConcatCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ContinueCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_CpCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_EchoCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_EofCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ErrorCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_EvalCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ExecCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ExitCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ExprCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FblockedCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FconfigureCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FileCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FileEventCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FlushCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ForCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ForeachCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_FormatCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_GetsCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_GlobalCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_GlobCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_HistoryCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_IfCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_IncrCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_InfoCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_InterpCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_JoinCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LappendCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LindexCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LinsertCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LlengthCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ListCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LoadCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LrangeCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LreplaceCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_LsCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LsearchCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_LsortCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_MacBeepCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_MacSourceCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_MkdirCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_MvCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_OpenCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_PackageCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_PidCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ProcCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_PutsCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_PwdCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ReadCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_RegexpCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_RegsubCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_RenameCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ReturnCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_RmCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int 	Tcl_RmdirCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_ScanCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SeekCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SetCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SplitCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SocketCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SourceCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_StringCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SubstCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_SwitchCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_TellCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_TimeCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_TraceCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_UnsetCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_UpdateCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_UplevelCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_UpvarCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_VwaitCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	Tcl_WhileCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int	TclUnsupported0Cmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+
+#endif /* _TCLINT */
diff --git a/Tcl/tclMtherr.c b/Tcl/tclMtherr.c
new file mode 100644
index 0000000..2f56e00
--- /dev/null
+++ b/Tcl/tclMtherr.c
@@ -0,0 +1,86 @@
+/* 
+ * tclMatherr.c --
+ *
+ *	This function provides a default implementation of the
+ *	"matherr" function, for SYS-V systems where it's needed.
+ *
+ * Copyright (c) 1993-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclMtherr.c 1.11 96/02/15 11:58:36
+ */
+
+#include "tclInt.h"
+#include <math.h>
+
+#ifndef TCL_GENERIC_ONLY
+#include "tclPort.h"
+#else
+#define NO_ERRNO_H
+#endif
+
+#ifdef NO_ERRNO_H
+extern int errno;			/* Use errno from tclExpr.c. */
+#define EDOM 33
+#define ERANGE 34
+#endif
+
+/*
+ * The following variable is secretly shared with Tcl so we can
+ * tell if expression evaluation is in progress.  If not, matherr
+ * just emulates the default behavior, which includes printing
+ * a message.
+ */
+
+extern int tcl_MathInProgress;
+
+/*
+ * The following definitions allow matherr to compile on systems
+ * that don't really support it.  The compiled procedure is bogus,
+ * but it will never be executed on these systems anyway.
+ */
+
+#ifndef NEED_MATHERR
+struct exception {
+    int type;
+};
+#define DOMAIN 0
+#define SING 0
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * matherr --
+ *
+ *	This procedure is invoked on Sys-V systems when certain
+ *	errors occur in mathematical functions.  Type "man matherr"
+ *	for more information on how this function works.
+ *
+ * Results:
+ *	Returns 1 to indicate that we've handled the error
+ *	locally.
+ *
+ * Side effects:
+ *	Sets errno based on what's in xPtr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+matherr(xPtr)
+    struct exception *xPtr;	/* Describes error that occurred. */
+{
+    if (!tcl_MathInProgress) {
+	return 0;
+    }
+    if ((xPtr->type == DOMAIN) || (xPtr->type == SING)) {
+	errno = EDOM;
+    } else {
+	errno = ERANGE;
+    }
+    return 1;
+}
diff --git a/Tcl/tclNotify.c b/Tcl/tclNotify.c
new file mode 100644
index 0000000..0745591
--- /dev/null
+++ b/Tcl/tclNotify.c
@@ -0,0 +1,578 @@
+/* 
+ * tclNotify.c --
+ *
+ *	This file provides the parts of the Tcl event notifier that are
+ *	the same on all platforms, plus a few other parts that are used
+ *	on more than one platform but not all.
+ *
+ *	The notifier is the lowest-level part of the event system.  It
+ *	manages an event queue that holds Tcl_Event structures and a list
+ *	of event sources that can add events to the queue.  It also
+ *	contains the procedure Tcl_DoOneEvent that invokes the event
+ *	sources and blocks to wait for new events, but Tcl_DoOneEvent
+ *	is in the platform-specific part of the notifier (in files like
+ *	tclUnixNotify.c).
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclNotify.c 1.6 96/02/29 09:20:10
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * The following variable records the address of the first event
+ * source in the list of all event sources for the application.
+ * This variable is accessed by the notifier to traverse the list
+ * and invoke each event source.
+ */
+
+TclEventSource *tclFirstEventSourcePtr = NULL;
+
+/*
+ * The following variables indicate how long to block in the event
+ * notifier the next time it blocks (default:  block forever).
+ */
+
+static int blockTimeSet = 0;	/* 0 means there is no maximum block
+				 * time:  block forever. */
+static Tcl_Time blockTime;	/* If blockTimeSet is 1, gives the
+				 * maximum elapsed time for the next block. */
+
+/*
+ * The following variables keep track of the event queue.  In addition
+ * to the first (next to be serviced) and last events in the queue,
+ * we keep track of a "marker" event.  This provides a simple priority
+ * mechanism whereby events can be inserted at the front of the queue
+ * but behind all other high-priority events already in the queue (this
+ * is used for things like a sequence of Enter and Leave events generated
+ * during a grab in Tk).
+ */
+
+static Tcl_Event *firstEventPtr = NULL;
+				/* First pending event, or NULL if none. */
+static Tcl_Event *lastEventPtr = NULL;
+				/* Last pending event, or NULL if none. */
+static Tcl_Event *markerEventPtr = NULL;
+				/* Last high-priority event in queue, or
+				 * NULL if none. */
+
+/*
+ * Prototypes for procedures used only in this file:
+ */
+
+static int		ServiceEvent _ANSI_ARGS_((int flags));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_CreateEventSource --
+ *
+ *	This procedure is invoked to create a new source of events.
+ *	The source is identified by a procedure that gets invoked
+ *	during Tcl_DoOneEvent to check for events on that source
+ *	and queue them.
+ *
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	SetupProc and checkProc will be invoked each time that Tcl_DoOneEvent
+ *	runs out of things to do.  SetupProc will be invoked before
+ *	Tcl_DoOneEvent calls select or whatever else it uses to wait
+ *	for events.  SetupProc typically calls functions like Tcl_WatchFile
+ *	or Tcl_SetMaxBlockTime to indicate what to wait for.
+ *
+ *	CheckProc is called after select or whatever operation was actually
+ *	used to wait.  It figures out whether anything interesting actually
+ *	happened (e.g. by calling Tcl_FileReady), and then calls
+ *	Tcl_QueueEvent to queue any events that are ready.
+ *
+ *	Each of these procedures is passed two arguments, e.g.
+ *		(*checkProc)(ClientData clientData, int flags));
+ *	ClientData is the same as the clientData argument here, and flags
+ *	is a combination of things like TCL_FILE_EVENTS that indicates
+ *	what events are of interest:  setupProc and checkProc use flags
+ *	to figure out whether their events are relevant or not.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_CreateEventSource(setupProc, checkProc, clientData)
+    Tcl_EventSetupProc *setupProc;	/* Procedure to invoke to figure out
+					 * what to wait for. */
+    Tcl_EventCheckProc *checkProc;	/* Procedure to call after waiting
+					 * to see what happened. */
+    ClientData clientData;		/* One-word argument to pass to
+					 * setupProc and checkProc. */
+{
+    TclEventSource *sourcePtr;
+
+    sourcePtr = (TclEventSource *) ckalloc(sizeof(TclEventSource));
+    sourcePtr->setupProc = setupProc;
+    sourcePtr->checkProc = checkProc;
+    sourcePtr->clientData = clientData;
+    sourcePtr->nextPtr = tclFirstEventSourcePtr;
+    tclFirstEventSourcePtr = sourcePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteEventSource --
+ *
+ *	This procedure is invoked to delete the source of events
+ *	given by proc and clientData.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The given event source is cancelled, so its procedure will
+ *	never again be called.  If no such source exists, nothing
+ *	happens.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteEventSource(setupProc, checkProc, clientData)
+    Tcl_EventSetupProc *setupProc;	/* Procedure to invoke to figure out
+					 * what to wait for. */
+    Tcl_EventCheckProc *checkProc;	/* Procedure to call after waiting
+					 * to see what happened. */
+    ClientData clientData;		/* One-word argument to pass to
+					 * setupProc and checkProc. */
+{
+    TclEventSource *sourcePtr, *prevPtr;
+
+    for (sourcePtr = tclFirstEventSourcePtr, prevPtr = NULL;
+	    sourcePtr != NULL;
+	    prevPtr = sourcePtr, sourcePtr = sourcePtr->nextPtr) {
+	if ((sourcePtr->setupProc != setupProc)
+		|| (sourcePtr->checkProc != checkProc)
+		|| (sourcePtr->clientData != clientData)) {
+	    continue;
+	}
+	if (prevPtr == NULL) {
+	    tclFirstEventSourcePtr = sourcePtr->nextPtr;
+	} else {
+	    prevPtr->nextPtr = sourcePtr->nextPtr;
+	}
+	ckfree((char *) sourcePtr);
+	return;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_QueueEvent --
+ *
+ *	Insert an event into the Tk event queue at one of three
+ *	positions: the head, the tail, or before a floating marker.
+ *	Events inserted before the marker will be processed in
+ *	first-in-first-out order, but before any events inserted at
+ *	the tail of the queue.  Events inserted at the head of the
+ *	queue will be processed in last-in-first-out order.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_QueueEvent(evPtr, position)
+    Tcl_Event* evPtr;		/* Event to add to queue.  The storage
+				 * space must have been allocated the caller
+				 * with malloc (ckalloc), and it becomes
+				 * the property of the event queue.  It
+				 * will be freed after the event has been
+				 * handled. */
+    Tcl_QueuePosition position;	/* One of TCL_QUEUE_TAIL, TCL_QUEUE_HEAD,
+				 * TCL_QUEUE_MARK. */
+{
+    if (position == TCL_QUEUE_TAIL) {
+	/*
+	 * Append the event on the end of the queue.
+	 */
+
+	evPtr->nextPtr = NULL;
+	if (firstEventPtr == NULL) {
+	    firstEventPtr = evPtr;
+	} else {
+	    lastEventPtr->nextPtr = evPtr;
+	}
+	lastEventPtr = evPtr;
+    } else if (position == TCL_QUEUE_HEAD) {
+	/*
+	 * Push the event on the head of the queue.
+	 */
+
+	evPtr->nextPtr = firstEventPtr;
+	if (firstEventPtr == NULL) {
+	    lastEventPtr = evPtr;
+	}	    
+	firstEventPtr = evPtr;
+    } else if (position == TCL_QUEUE_MARK) {
+	/*
+	 * Insert the event after the current marker event and advance
+	 * the marker to the new event.
+	 */
+
+	if (markerEventPtr == NULL) {
+	    evPtr->nextPtr = firstEventPtr;
+	    firstEventPtr = evPtr;
+	} else {
+	    evPtr->nextPtr = markerEventPtr->nextPtr;
+	    markerEventPtr->nextPtr = evPtr;
+	}
+	markerEventPtr = evPtr;
+	if (evPtr->nextPtr == NULL) {
+	    lastEventPtr = evPtr;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DeleteEvents --
+ *
+ *	Calls a procedure for each event in the queue and deletes those
+ *	for which the procedure returns 1. Events for which the
+ *	procedure returns 0 are left in the queue.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Potentially removes one or more events from the event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DeleteEvents(proc, clientData)
+    Tcl_EventDeleteProc *proc;		/* The procedure to call. */
+    ClientData clientData;    		/* type-specific data. */
+{
+    Tcl_Event *evPtr, *prevPtr, *hold;
+
+    for (prevPtr = (Tcl_Event *) NULL, evPtr = firstEventPtr;
+             evPtr != (Tcl_Event *) NULL;
+             ) {
+        if ((*proc) (evPtr, clientData) == 1) {
+            if (firstEventPtr == evPtr) {
+                firstEventPtr = evPtr->nextPtr;
+                if (evPtr->nextPtr == (Tcl_Event *) NULL) {
+                    lastEventPtr = (Tcl_Event *) NULL;
+                }
+            } else {
+                prevPtr->nextPtr = evPtr->nextPtr;
+            }
+            hold = evPtr;
+            evPtr = evPtr->nextPtr;
+            ckfree((char *) hold);
+        } else {
+            prevPtr = evPtr;
+            evPtr = evPtr->nextPtr;
+        }
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ServiceEvent --
+ *
+ *	Process one event from the event queue.  This routine is called
+ *	by the notifier whenever it wants Tk to process an event.  
+ *
+ * Results:
+ *	The return value is 1 if the procedure actually found an event
+ *	to process.  If no processing occurred, then 0 is returned.
+ *
+ * Side effects:
+ *	Invokes all of the event handlers for the highest priority
+ *	event in the event queue.  May collapse some events into a
+ *	single event or discard stale events.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ServiceEvent(flags)
+    int flags;			/* Indicates what events should be processed.
+				 * May be any combination of TCL_WINDOW_EVENTS
+				 * TCL_FILE_EVENTS, TCL_TIMER_EVENTS, or other
+				 * flags defined elsewhere.  Events not
+				 * matching this will be skipped for processing
+				 * later. */
+{
+    Tcl_Event *evPtr, *prevPtr;
+    Tcl_EventProc *proc;
+
+    /*
+     * No event flags is equivalent to TCL_ALL_EVENTS.
+     */
+    
+    if ((flags & TCL_ALL_EVENTS) == 0) {
+	flags |= TCL_ALL_EVENTS;
+    }
+
+    /*
+     * Loop through all the events in the queue until we find one
+     * that can actually be handled.
+     */
+
+    for (evPtr = firstEventPtr; evPtr != NULL; evPtr = evPtr->nextPtr) {
+	/*
+	 * Call the handler for the event.  If it actually handles the
+	 * event then free the storage for the event.  There are two
+	 * tricky things here, but stemming from the fact that the event
+	 * code may be re-entered while servicing the event:
+	 *
+	 * 1. Set the "proc" field to NULL.  This is a signal to ourselves
+	 *    that we shouldn't reexecute the handler if the event loop
+	 *    is re-entered.
+	 * 2. When freeing the event, must search the queue again from the
+	 *    front to find it.  This is because the event queue could
+	 *    change almost arbitrarily while handling the event, so we
+	 *    can't depend on pointers found now still being valid when
+	 *    the handler returns.
+	 */
+
+	proc = evPtr->proc;
+	evPtr->proc = NULL;
+	if ((proc != NULL) && (*proc)(evPtr, flags)) {
+	    if (firstEventPtr == evPtr) {
+		firstEventPtr = evPtr->nextPtr;
+		if (evPtr->nextPtr == NULL) {
+		    lastEventPtr = NULL;
+		}
+	    } else {
+		for (prevPtr = firstEventPtr; prevPtr->nextPtr != evPtr;
+			prevPtr = prevPtr->nextPtr) {
+		    /* Empty loop body. */
+		}
+		prevPtr->nextPtr = evPtr->nextPtr;
+		if (evPtr->nextPtr == NULL) {
+		    lastEventPtr = prevPtr;
+		}
+	    }
+	    if (markerEventPtr == evPtr) {
+		markerEventPtr = NULL;
+	    }
+	    ckfree((char *) evPtr);
+	    return 1;
+	} else {
+	    /*
+	     * The event wasn't actually handled, so we have to restore
+	     * the proc field to allow the event to be attempted again.
+	     */
+
+	    evPtr->proc = proc;
+	}
+
+	/*
+	 * The handler for this event asked to defer it.  Just go on to
+	 * the next event.
+	 */
+
+	continue;
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetMaxBlockTime --
+ *
+ *	This procedure is invoked by event sources to tell the notifier
+ *	how long it may block the next time it blocks.  The timePtr
+ *	argument gives a maximum time;  the actual time may be less if
+ *	some other event source requested a smaller time.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May reduce the length of the next sleep in the notifier.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_SetMaxBlockTime(timePtr)
+    Tcl_Time *timePtr;		/* Specifies a maximum elapsed time for
+				 * the next blocking operation in the
+				 * event notifier. */
+{
+    if (!blockTimeSet || (timePtr->sec < blockTime.sec)
+	    || ((timePtr->sec == blockTime.sec)
+	    && (timePtr->usec < blockTime.usec))) {
+	blockTime = *timePtr;
+	blockTimeSet = 1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DoOneEvent --
+ *
+ *	Process a single event of some sort.  If there's no work to
+ *	do, wait for an event to occur, then process it.
+ *
+ * Results:
+ *	The return value is 1 if the procedure actually found an event
+ *	to process.  If no processing occurred, then 0 is returned (this
+ *	can happen if the TCL_DONT_WAIT flag is set or if there are no
+ *	event handlers to wait for in the set specified by flags).
+ *
+ * Side effects:
+ *	May delay execution of process while waiting for an event,
+ *	unless TCL_DONT_WAIT is set in the flags argument.  Event
+ *	sources are invoked to check for and queue events.  Event
+ *	handlers may produce arbitrary side effects.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_DoOneEvent(flags)
+    int flags;			/* Miscellaneous flag values:  may be any
+				 * combination of TCL_DONT_WAIT,
+				 * TCL_WINDOW_EVENTS, TCL_FILE_EVENTS,
+				 * TCL_TIMER_EVENTS, TCL_IDLE_EVENTS, or
+				 * others defined by event sources. */
+{
+    TclEventSource *sourcePtr;
+    Tcl_Time *timePtr;
+
+    /*
+     * No event flags is equivalent to TCL_ALL_EVENTS.
+     */
+    
+    if ((flags & TCL_ALL_EVENTS) == 0) {
+	flags |= TCL_ALL_EVENTS;
+    }
+
+    /*
+     * The core of this procedure is an infinite loop, even though
+     * we only service one event.  The reason for this is that we
+     * might think we have an event ready (e.g. the connection to
+     * the server becomes readable), but then we might discover that
+     * there's nothing interesting on that connection, so no event
+     * was serviced.  Or, the select operation could return prematurely
+     * due to a signal.  The easiest thing in both these cases is
+     * just to loop back and try again.
+     */
+
+    while (1) {
+
+	/*
+	 * The first thing we do is to service any asynchronous event
+	 * handlers.
+	 */
+    
+	if (Tcl_AsyncReady()) {
+	    (void) Tcl_AsyncInvoke((Tcl_Interp *) NULL, 0);
+	    return 1;
+	}
+
+	/*
+	 * If idle events are the only things to service, skip the
+	 * main part of the loop and go directly to handle idle
+	 * events (i.e. don't wait even if TCL_DONT_WAIT isn't set.
+	 */
+
+	if (flags == TCL_IDLE_EVENTS) {
+	    flags = TCL_IDLE_EVENTS|TCL_DONT_WAIT;
+	    goto idleEvents;
+	}
+
+	/*
+	 * Ask Tk to service a queued event, if there are any.
+	 */
+
+	if (ServiceEvent(flags)) {
+	    return 1;
+	}
+
+	/*
+	 * There are no events already queued.  Invoke all of the
+	 * event sources to give them a chance to setup for the wait.
+	 */
+
+	blockTimeSet = 0;
+	for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
+		sourcePtr = sourcePtr->nextPtr) {
+	    (*sourcePtr->setupProc)(sourcePtr->clientData, flags);
+	}
+	if ((flags & TCL_DONT_WAIT) ||
+		((flags & TCL_IDLE_EVENTS) && TclIdlePending())) {
+	    /*
+	     * Don't block:  there are idle events waiting, or we don't
+	     * care about idle events anyway, or the caller asked us not
+	     * to block.
+	     */
+
+	    blockTime.sec = 0;
+	    blockTime.usec = 0;
+	    timePtr = &blockTime;
+	} else if (blockTimeSet) {
+	    timePtr = &blockTime;
+	} else {
+	    timePtr = NULL;
+	}
+
+	/*
+	 * Wait until an event occurs or the timer expires.
+	 */
+
+	if (Tcl_WaitForEvent(timePtr) == TCL_ERROR) {
+	    return 0;
+	}
+
+	/*
+	 * Give each of the event sources a chance to queue events,
+	 * then call ServiceEvent and give it another chance to
+	 * service events.
+	 */
+
+	for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
+		sourcePtr = sourcePtr->nextPtr) {
+	    (*sourcePtr->checkProc)(sourcePtr->clientData, flags);
+	}
+	if (ServiceEvent(flags)) {
+	    return 1;
+	}
+
+	/*
+	 * We've tried everything at this point, but nobody had anything
+	 * to do.  Check for idle events.  If none, either quit or go back
+	 * to the top and try again.
+	 */
+
+	idleEvents:
+	if ((flags & TCL_IDLE_EVENTS) && TclServiceIdle()) {
+	    return 1;
+	}
+	if (flags & TCL_DONT_WAIT) {
+	    return 0;
+	}
+    }
+}
diff --git a/Tcl/tclPort.h b/Tcl/tclPort.h
new file mode 100644
index 0000000..aae7628
--- /dev/null
+++ b/Tcl/tclPort.h
@@ -0,0 +1,29 @@
+/*
+ * tclPort.h --
+ *
+ *	This header file handles porting issues that occur because
+ *	of differences between systems.  It reads in platform specific
+ *	portability files.
+ *
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclPort.h 1.15 96/02/07 17:24:21
+ */
+
+#ifndef _TCLPORT
+#define _TCLPORT
+
+#if defined(__WIN32__) || defined(_WIN32)
+#   include "tclWinPort.h"
+#else
+#   if defined(MAC_TCL)
+#	include "tclMacPort.h"
+#    else
+#	include "tclUnixPort.h"
+#    endif
+#endif
+
+#endif /* _TCLPORT */
diff --git a/Tcl/tclPreserve.c b/Tcl/tclPreserve.c
new file mode 100644
index 0000000..714fb54
--- /dev/null
+++ b/Tcl/tclPreserve.c
@@ -0,0 +1,275 @@
+/* 
+ * tclPreserve.c --
+ *
+ *	This file contains a collection of procedures that are used
+ *	to make sure that widget records and other data structures
+ *	aren't reallocated when there are nested procedures that
+ *	depend on their existence.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclPreserve.c 1.14 96/03/20 08:24:37
+ */
+
+#include "tclInt.h"
+
+/*
+ * The following data structure is used to keep track of all the
+ * Tcl_Preserve calls that are still in effect.  It grows as needed
+ * to accommodate any number of calls in effect.
+ */
+
+typedef struct {
+    ClientData clientData;	/* Address of preserved block. */
+    int refCount;		/* Number of Tcl_Preserve calls in effect
+				 * for block. */
+    int mustFree;		/* Non-zero means Tcl_EventuallyFree was
+				 * called while a Tcl_Preserve call was in
+				 * effect, so the structure must be freed
+				 * when refCount becomes zero. */
+    Tcl_FreeProc *freeProc;	/* Procedure to call to free. */
+} Reference;
+
+static Reference *refArray;	/* First in array of references. */
+static int spaceAvl = 0;	/* Total number of structures available
+				 * at *firstRefPtr. */
+static int inUse = 0;		/* Count of structures currently in use
+				 * in refArray. */
+#define INITIAL_SIZE 2
+
+/*
+ * Static routines in this file:
+ */
+
+static void	PreserveExitProc _ANSI_ARGS_((ClientData clientData));
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PreserveExitProc --
+ *
+ *	Called during exit processing to clean up the reference array.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees the storage of the reference array.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+PreserveExitProc(clientData)
+    ClientData clientData;		/* NULL -Unused. */
+{
+    if (spaceAvl != 0) {
+        ckfree((char *) refArray);
+        refArray = (Reference *) NULL;
+        inUse = 0;
+        spaceAvl = 0;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Preserve --
+ *
+ *	This procedure is used by a procedure to declare its interest
+ *	in a particular block of memory, so that the block will not be
+ *	reallocated until a matching call to Tcl_Release has been made.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information is retained so that the block of memory will
+ *	not be freed until at least the matching call to Tcl_Release.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_Preserve(clientData)
+    ClientData clientData;	/* Pointer to malloc'ed block of memory. */
+{
+    Reference *refPtr;
+    int i;
+
+    /*
+     * See if there is already a reference for this pointer.  If so,
+     * just increment its reference count.
+     */
+
+    for (i = 0, refPtr = refArray; i < inUse; i++, refPtr++) {
+	if (refPtr->clientData == clientData) {
+	    refPtr->refCount++;
+	    return;
+	}
+    }
+
+    /*
+     * Make a reference array if it doesn't already exist, or make it
+     * bigger if it is full.
+     */
+
+    if (inUse == spaceAvl) {
+	if (spaceAvl == 0) {
+            Tcl_CreateExitHandler((Tcl_ExitProc *) PreserveExitProc,
+                    (ClientData) NULL);
+	    refArray = (Reference *) ckalloc((unsigned)
+		    (INITIAL_SIZE*sizeof(Reference)));
+	    spaceAvl = INITIAL_SIZE;
+	} else {
+	    Reference *new;
+
+	    new = (Reference *) ckalloc((unsigned)
+		    (2*spaceAvl*sizeof(Reference)));
+	    memcpy((VOID *) new, (VOID *) refArray,
+                    spaceAvl*sizeof(Reference));
+	    ckfree((char *) refArray);
+	    refArray = new;
+	    spaceAvl *= 2;
+	}
+    }
+
+    /*
+     * Make a new entry for the new reference.
+     */
+
+    refPtr = &refArray[inUse];
+    refPtr->clientData = clientData;
+    refPtr->refCount = 1;
+    refPtr->mustFree = 0;
+    inUse += 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Release --
+ *
+ *	This procedure is called to cancel a previous call to
+ *	Tcl_Preserve, thereby allowing a block of memory to be
+ *	freed (if no one else cares about it).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If Tcl_EventuallyFree has been called for clientData, and if
+ *	no other call to Tcl_Preserve is still in effect, the block of
+ *	memory is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_Release(clientData)
+    ClientData clientData;	/* Pointer to malloc'ed block of memory. */
+{
+    Reference *refPtr;
+    int mustFree;
+    Tcl_FreeProc *freeProc;
+    int i;
+
+    for (i = 0, refPtr = refArray; i < inUse; i++, refPtr++) {
+	if (refPtr->clientData != clientData) {
+	    continue;
+	}
+	refPtr->refCount--;
+	if (refPtr->refCount == 0) {
+
+            /*
+             * Must remove information from the slot before calling freeProc
+             * to avoid reentrancy problems if the freeProc calls Tcl_Preserve
+             * on the same clientData. Copy down the last reference in the
+             * array to overwrite the current slot.
+             */
+
+            freeProc = refPtr->freeProc;
+            mustFree = refPtr->mustFree;
+	    inUse--;
+	    if (i < inUse) {
+		refArray[i] = refArray[inUse];
+	    }
+	    if (mustFree) {
+		if ((freeProc == TCL_DYNAMIC) ||
+                        (freeProc == (Tcl_FreeProc *) free)) {
+		    ckfree((char *) clientData);
+		} else {
+		    (*freeProc)((char *) clientData);
+		}
+	    }
+	}
+	return;
+    }
+
+    /*
+     * Reference not found.  This is a bug in the caller.
+     */
+
+    panic("Tcl_Release couldn't find reference for 0x%x", clientData);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_EventuallyFree --
+ *
+ *	Free up a block of memory, unless a call to Tcl_Preserve is in
+ *	effect for that block.  In this case, defer the free until all
+ *	calls to Tcl_Preserve have been undone by matching calls to
+ *	Tcl_Release.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Ptr may be released by calling free().
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_EventuallyFree(clientData, freeProc)
+    ClientData clientData;	/* Pointer to malloc'ed block of memory. */
+    Tcl_FreeProc *freeProc;	/* Procedure to actually do free. */
+{
+    Reference *refPtr;
+    int i;
+
+    /*
+     * See if there is a reference for this pointer.  If so, set its
+     * "mustFree" flag (the flag had better not be set already!).
+     */
+
+    for (i = 0, refPtr = refArray; i < inUse; i++, refPtr++) {
+	if (refPtr->clientData != clientData) {
+	    continue;
+	}
+	if (refPtr->mustFree) {
+	    panic("Tcl_EventuallyFree called twice for 0x%x\n", clientData);
+        }
+        refPtr->mustFree = 1;
+	refPtr->freeProc = freeProc;
+        return;
+    }
+
+    /*
+     * No reference for this block.  Free it now.
+     */
+
+    if ((freeProc == TCL_DYNAMIC) || (freeProc == (Tcl_FreeProc *) free)) {
+	ckfree((char *) clientData);
+    } else {
+	(*freeProc)((char *)clientData);
+    }
+}
diff --git a/Tcl/tclRegexp.h b/Tcl/tclRegexp.h
new file mode 100644
index 0000000..986316b
--- /dev/null
+++ b/Tcl/tclRegexp.h
@@ -0,0 +1,40 @@
+/*
+ * Definitions etc. for regexp(3) routines.
+ *
+ * Caveat:  this is V8 regexp(3) [actually, a reimplementation thereof],
+ * not the System V one.
+ *
+ * SCCS: @(#) tclRegexp.h 1.6 96/04/02 18:43:57
+ */
+
+#ifndef _REGEXP
+#define _REGEXP 1
+
+#ifndef _TCL
+#include "tcl.h"
+#endif
+
+/*
+ * NSUBEXP must be at least 10, and no greater than 117 or the parser
+ * will not work properly.
+ */
+
+#define NSUBEXP  20
+
+typedef struct regexp {
+	char *startp[NSUBEXP];
+	char *endp[NSUBEXP];
+	char regstart;		/* Internal use only. */
+	char reganch;		/* Internal use only. */
+	char *regmust;		/* Internal use only. */
+	int regmlen;		/* Internal use only. */
+	char program[1];	/* Unwarranted chumminess with compiler. */
+} regexp;
+
+EXTERN regexp *TclRegComp _ANSI_ARGS_((char *exp));
+EXTERN int TclRegExec _ANSI_ARGS_((regexp *prog, char *string, char *start));
+EXTERN void TclRegSub _ANSI_ARGS_((regexp *prog, char *source, char *dest));
+EXTERN void TclRegError _ANSI_ARGS_((char *msg));
+EXTERN char *TclGetRegError _ANSI_ARGS_((void));
+
+#endif /* REGEXP */
diff --git a/Tcl/tclUnixNotfy.c b/Tcl/tclUnixNotfy.c
new file mode 100644
index 0000000..e03d186
--- /dev/null
+++ b/Tcl/tclUnixNotfy.c
@@ -0,0 +1,322 @@
+/* 
+ * tclUnixNotify.c --
+ *
+ *	This file contains Unix-specific procedures for the notifier,
+ *	which is the lowest-level part of the Tcl event loop.  This file
+ *	works together with ../generic/tclNotify.c.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclUnixNotfy.c 1.30 96/03/22 12:45:31
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+#include <signal.h> 
+
+/*
+ * The information below is used to provide read, write, and
+ * exception masks to select during calls to Tcl_DoOneEvent.
+ */
+
+static fd_mask checkMasks[3*MASK_SIZE];
+				/* This array is used to build up the masks
+				 * to be used in the next call to select.
+				 * Bits are set in response to calls to
+				 * Tcl_WatchFile. */
+static fd_mask readyMasks[3*MASK_SIZE];
+				/* This array reflects the readable/writable
+				 * conditions that were found to exist by the
+				 * last call to select. */
+static int numFdBits;		/* Number of valid bits in checkMasks
+				 * (one more than highest fd for which
+				 * Tcl_WatchFile has been called). */
+
+/*
+ * Static routines in this file:
+ */
+
+static int	MaskEmpty _ANSI_ARGS_((long *maskPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_WatchFile --
+ *
+ *	Arrange for Tcl_DoOneEvent to include this file in the masks
+ *	for the next call to select.  This procedure is invoked by
+ *	event sources, which are in turn invoked by Tcl_DoOneEvent
+ *	before it invokes select.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	
+ *	The notifier will generate a file event when the I/O channel
+ *	given by fd next becomes ready in the way indicated by mask.
+ *	If fd is already registered then the old mask will be replaced
+ *	with the new one.  Once the event is sent, the notifier will
+ *	not send any more events about the fd until the next call to
+ *	Tcl_NotifyFile. 
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_WatchFile(file, mask)
+    Tcl_File file;	/* Generic file handle for a stream. */
+    int mask;			/* OR'ed combination of TCL_READABLE,
+				 * TCL_WRITABLE, and TCL_EXCEPTION:
+				 * indicates conditions to wait for
+				 * in select. */
+{
+    int fd, type, index;
+    fd_mask bit;
+
+    fd = (int) Tcl_GetFileInfo(file, &type);
+
+    if (type != TCL_UNIX_FD) {
+	panic("Tcl_WatchFile: unexpected file type");
+    }
+
+    if (fd >= FD_SETSIZE) {
+	panic("Tcl_WatchFile can't handle file id %d", fd);
+    }
+
+    index = fd/(NBBY*sizeof(fd_mask));
+    bit = 1 << (fd%(NBBY*sizeof(fd_mask)));
+    if (mask & TCL_READABLE) {
+	checkMasks[index] |= bit;
+    }
+    if (mask & TCL_WRITABLE) {
+	(checkMasks+MASK_SIZE)[index] |= bit;
+    }
+    if (mask & TCL_EXCEPTION) {
+	(checkMasks+2*(MASK_SIZE))[index] |= bit;
+    }
+    if (numFdBits <= fd) {
+	numFdBits = fd+1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_FileReady --
+ *
+ *	Indicates what conditions (readable, writable, etc.) were
+ *	present on a file the last time the notifier invoked select.
+ *	This procedure is typically invoked by event sources to see
+ *	if they should queue events.
+ *
+ * Results:
+ *	The return value is 0 if none of the conditions specified by mask
+ *	was true for fd the last time the system checked.  If any of the
+ *	conditions were true, then the return value is a mask of those
+ *	that were true.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_FileReady(file, mask)
+    Tcl_File file;	/* Generic file handle for a stream. */
+    int mask;			/* OR'ed combination of TCL_READABLE,
+				 * TCL_WRITABLE, and TCL_EXCEPTION:
+				 * indicates conditions caller cares about. */
+{
+    int index, result, type, fd;
+    fd_mask bit;
+
+    fd = (int) Tcl_GetFileInfo(file, &type);
+    if (type != TCL_UNIX_FD) {
+	panic("Tcl_FileReady: unexpected file type");
+    }
+
+    index = fd/(NBBY*sizeof(fd_mask));
+    bit = 1 << (fd%(NBBY*sizeof(fd_mask)));
+    result = 0;
+    if ((mask & TCL_READABLE) && (readyMasks[index] & bit)) {
+	result |= TCL_READABLE;
+    }
+    if ((mask & TCL_WRITABLE) && ((readyMasks+MASK_SIZE)[index] & bit)) {
+	result |= TCL_WRITABLE;
+    }
+    if ((mask & TCL_EXCEPTION) && ((readyMasks+(2*MASK_SIZE))[index] & bit)) {
+	result |= TCL_EXCEPTION;
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MaskEmpty --
+ *
+ *	Returns nonzero if mask is empty (has no bits set).
+ *
+ * Results:
+ *	Nonzero if the mask is empty, zero otherwise.
+ *
+ * Side effects:
+ *	None
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+MaskEmpty(maskPtr)
+    long *maskPtr;
+{
+    long *runPtr, *tailPtr;
+    int found, sz;
+
+    sz = 3 * ((MASK_SIZE) / sizeof(long)) * sizeof(fd_mask);
+    for (runPtr = maskPtr, tailPtr = maskPtr + sz, found = 0;
+             runPtr < tailPtr;
+             runPtr++) {
+        if (*runPtr != 0) {
+            found = 1;
+            break;
+        }
+    }
+    return !found;    
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_WaitForEvent --
+ *
+ *	This procedure does the lowest level wait for events in a
+ *	platform-specific manner.  It uses information provided by
+ *	previous calls to Tcl_WatchFile, plus the timePtr argument,
+ *	to determine what to wait for and how long to wait.
+ *
+ * Results:
+ *	The return value is normally TCL_OK.  However, if there are
+ *	no events to wait for (e.g. no files and no timers) so that
+ *	the procedure would block forever, then it returns TCL_ERROR.
+ *
+ * Side effects:
+ *	May put the process to sleep for a while, depending on timePtr.
+ *	When this procedure returns, an event of interest to the application
+ *	has probably, but not necessarily, occurred.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_WaitForEvent(timePtr)
+    Tcl_Time *timePtr;		/* Specifies the maximum amount of time
+				 * that this procedure should block before
+				 * returning.  The time is given as an
+				 * interval, not an absolute wakeup time.
+				 * NULL means block forever. */
+{
+    struct timeval timeout, *timeoutPtr;
+    int numFound;
+
+    memcpy((VOID *) readyMasks, (VOID *) checkMasks,
+	    3*MASK_SIZE*sizeof(fd_mask));
+    if (timePtr == NULL) {
+	if ((numFdBits == 0) || (MaskEmpty((long *) readyMasks))) {
+	    return TCL_ERROR;
+	}
+	timeoutPtr = NULL;
+    } else {
+	timeoutPtr = &timeout;
+	timeout.tv_sec = timePtr->sec;
+	timeout.tv_usec = timePtr->usec;
+    }
+    numFound = select(numFdBits, (SELECT_MASK *) &readyMasks[0],
+	    (SELECT_MASK *) &readyMasks[MASK_SIZE],
+	    (SELECT_MASK *) &readyMasks[2*MASK_SIZE], timeoutPtr);
+
+    /*
+     * Some systems don't clear the masks after an error, so
+     * we have to do it here.
+     */
+
+    if (numFound == -1) {
+	memset((VOID *) readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
+    }
+
+    /*
+     * Reset the check masks in preparation for the next call to
+     * select.
+     */
+
+    numFdBits = 0;
+    memset((VOID *) checkMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Sleep --
+ *
+ *	Delay execution for the specified number of milliseconds.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Time passes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_Sleep(ms)
+    int ms;			/* Number of milliseconds to sleep. */
+{
+    static struct timeval delay;
+    Tcl_Time before, after;
+
+    /*
+     * The only trick here is that select appears to return early
+     * under some conditions, so we have to check to make sure that
+     * the right amount of time really has elapsed.  If it's too
+     * early, go back to sleep again.
+     */
+
+    TclGetTime(&before);
+    after = before;
+    after.sec += ms/1000;
+    after.usec += (ms%1000)*1000;
+    if (after.usec > 1000000) {
+	after.usec -= 1000000;
+	after.sec += 1;
+    }
+    while (1) {
+	delay.tv_sec = after.sec - before.sec;
+	delay.tv_usec = after.usec - before.usec;
+	if (delay.tv_usec < 0) {
+	    delay.tv_usec += 1000000;
+	    delay.tv_sec -= 1;
+	}
+
+	/*
+	 * Special note:  must convert delay.tv_sec to int before comparing
+	 * to zero, since delay.tv_usec is unsigned on some platforms.
+	 */
+
+	if ((((int) delay.tv_sec) < 0)
+		|| ((delay.tv_usec == 0) && (delay.tv_sec == 0))) {
+	    break;
+	}
+	(void) select(0, (SELECT_MASK *) 0, (SELECT_MASK *) 0,
+		(SELECT_MASK *) 0, &delay);
+	TclGetTime(&before);
+    }
+}
+
diff --git a/Tcl/tclUnixPort.h b/Tcl/tclUnixPort.h
new file mode 100644
index 0000000..1b78021
--- /dev/null
+++ b/Tcl/tclUnixPort.h
@@ -0,0 +1,413 @@
+/*
+ * tclUnixPort.h --
+ *
+ *	This header file handles porting issues that occur because
+ *	of differences between systems.  It reads in UNIX-related
+ *	header files and sets up UNIX-related macros for Tcl's UNIX
+ *	core.  It should be the only file that contains #ifdefs to
+ *	handle different flavors of UNIX.  This file sets up the
+ *	union of all UNIX-related things needed by any of the Tcl
+ *	core files.  This file depends on configuration #defines such
+ *	as NO_DIRENT_H that are set up by the "configure" script.
+ *
+ *	Much of the material in this file was originally contributed
+ *	by Karl Lehenbauer, Mark Diekhans and Peter da Silva.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclUnixPort.h 1.33 96/03/25 17:15:21
+ */
+
+#ifndef _TCLUNIXPORT
+#define _TCLUNIXPORT
+
+#ifndef _TCLINT
+#   include "tclInt.h"
+#endif
+#include <errno.h>
+#include <fcntl.h>
+#ifdef HAVE_NET_ERRNO_H
+#   include <net/errno.h>
+#endif
+#include <pwd.h>
+#include <signal.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#ifdef USE_DIRENT2_H
+#   include "../compat/dirent2.h"
+#else
+#   ifdef NO_DIRENT_H
+#	include "../compat/dirent.h"
+#   else
+#	include <dirent.h>
+#   endif
+#endif
+#include <sys/file.h>
+#ifdef HAVE_SYS_SELECT_H
+#   include <sys/select.h>
+#endif
+#include <sys/stat.h>
+#if TIME_WITH_SYS_TIME
+#   include <sys/time.h>
+#   include <time.h>
+#else
+#   if HAVE_SYS_TIME_H
+#       include <sys/time.h>
+#   else
+#       include <time.h>
+#   endif
+#endif
+#ifndef NO_SYS_WAIT_H
+#   include <sys/wait.h>
+#endif
+#ifdef HAVE_UNISTD_H
+#   include <unistd.h>
+#else
+#   include "../compat/unistd.h"
+#endif
+
+/*
+ * Socket support stuff: This likely needs more work to parameterize for
+ * each system.
+ */
+
+#include <sys/socket.h>		/* struct sockaddr, SOCK_STREAM, ... */
+#include <sys/utsname.h>	/* uname system call. */
+#include <netinet/in.h>		/* struct in_addr, struct sockaddr_in */
+#include <arpa/inet.h>		/* inet_ntoa() */
+#include <netdb.h>		/* gethostbyname() */
+
+/*
+ * NeXT doesn't define O_NONBLOCK, so #define it here if necessary.
+ */
+
+#ifndef O_NONBLOCK
+#   define O_NONBLOCK 0x80
+#endif
+
+/*
+ * HPUX needs the flag O_NONBLOCK to get the right non-blocking I/O
+ * semantics, while most other systems need O_NDELAY.  Define the
+ * constant NBIO_FLAG to be one of these
+ */
+
+#ifdef HPUX
+#  define NBIO_FLAG O_NONBLOCK
+#else
+#  define NBIO_FLAG O_NDELAY
+#endif
+
+/*
+ * The default platform eol translation on Unix is TCL_TRANSLATE_LF:
+ */
+
+#define	TCL_PLATFORM_TRANSLATION	TCL_TRANSLATE_LF
+
+/*
+ * Not all systems declare the errno variable in errno.h. so this
+ * file does it explicitly.  The list of system error messages also
+ * isn't generally declared in a header file anywhere.
+ */
+
+extern int errno;
+
+/*
+ * The type of the status returned by wait varies from UNIX system
+ * to UNIX system.  The macro below defines it:
+ */
+
+#ifdef _AIX
+#   define WAIT_STATUS_TYPE pid_t
+#else
+#ifndef NO_UNION_WAIT
+#   define WAIT_STATUS_TYPE union wait
+#else
+#   define WAIT_STATUS_TYPE int
+#endif
+#endif
+
+/*
+ * Supply definitions for macros to query wait status, if not already
+ * defined in header files above.
+ */
+
+#ifndef WIFEXITED
+#   define WIFEXITED(stat)  (((*((int *) &(stat))) & 0xff) == 0)
+#endif
+
+#ifndef WEXITSTATUS
+#   define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xff)
+#endif
+
+#ifndef WIFSIGNALED
+#   define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0x00ff)))
+#endif
+
+#ifndef WTERMSIG
+#   define WTERMSIG(stat)    ((*((int *) &(stat))) & 0x7f)
+#endif
+
+#ifndef WIFSTOPPED
+#   define WIFSTOPPED(stat)  (((*((int *) &(stat))) & 0xff) == 0177)
+#endif
+
+#ifndef WSTOPSIG
+#   define WSTOPSIG(stat)    (((*((int *) &(stat))) >> 8) & 0xff)
+#endif
+
+/*
+ * Define constants for waitpid() system call if they aren't defined
+ * by a system header file.
+ */
+
+#ifndef WNOHANG
+#   define WNOHANG 1
+#endif
+#ifndef WUNTRACED
+#   define WUNTRACED 2
+#endif
+
+/*
+ * Supply macros for seek offsets, if they're not already provided by
+ * an include file.
+ */
+
+#ifndef SEEK_SET
+#   define SEEK_SET 0
+#endif
+
+#ifndef SEEK_CUR
+#   define SEEK_CUR 1
+#endif
+
+#ifndef SEEK_END
+#   define SEEK_END 2
+#endif
+
+/*
+ * The stuff below is needed by the "time" command.  If this
+ * system has no gettimeofday call, then must use times and the
+ * CLK_TCK #define (from sys/param.h) to compute elapsed time.
+ * Unfortunately, some systems only have HZ and no CLK_TCK, and
+ * some might not even have HZ.
+ */
+
+#ifdef NO_GETTOD
+#   include <sys/times.h>
+#   include <sys/param.h>
+#   ifndef CLK_TCK
+#       ifdef HZ
+#           define CLK_TCK HZ
+#       else
+#           define CLK_TCK 60
+#       endif
+#   endif
+#else
+#   ifdef HAVE_BSDGETTIMEOFDAY
+#	define gettimeofday BSDgettimeofday
+#   endif
+#endif
+
+#ifdef GETTOD_NOT_DECLARED
+EXTERN int		gettimeofday _ANSI_ARGS_((struct timeval *tp,
+			    struct timezone *tzp));
+#endif
+
+/*
+ * Define access mode constants if they aren't already defined.
+ */
+
+#ifndef F_OK
+#    define F_OK 00
+#endif
+#ifndef X_OK
+#    define X_OK 01
+#endif
+#ifndef W_OK
+#    define W_OK 02
+#endif
+#ifndef R_OK
+#    define R_OK 04
+#endif
+
+/*
+ * Define FD_CLOEEXEC (the close-on-exec flag bit) if it isn't
+ * already defined.
+ */
+
+#ifndef FD_CLOEXEC
+#   define FD_CLOEXEC 1
+#endif
+
+/*
+ * On systems without symbolic links (i.e. S_IFLNK isn't defined)
+ * define "lstat" to use "stat" instead.
+ */
+
+#ifndef S_IFLNK
+#   define lstat stat
+#endif
+
+/*
+ * Define macros to query file type bits, if they're not already
+ * defined.
+ */
+
+#ifndef S_ISREG
+#   ifdef S_IFREG
+#       define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
+#   else
+#       define S_ISREG(m) 0
+#   endif
+# endif
+#ifndef S_ISDIR
+#   ifdef S_IFDIR
+#       define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#   else
+#       define S_ISDIR(m) 0
+#   endif
+# endif
+#ifndef S_ISCHR
+#   ifdef S_IFCHR
+#       define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
+#   else
+#       define S_ISCHR(m) 0
+#   endif
+# endif
+#ifndef S_ISBLK
+#   ifdef S_IFBLK
+#       define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
+#   else
+#       define S_ISBLK(m) 0
+#   endif
+# endif
+#ifndef S_ISFIFO
+#   ifdef S_IFIFO
+#       define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
+#   else
+#       define S_ISFIFO(m) 0
+#   endif
+# endif
+#ifndef S_ISLNK
+#   ifdef S_IFLNK
+#       define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
+#   else
+#       define S_ISLNK(m) 0
+#   endif
+# endif
+#ifndef S_ISSOCK
+#   ifdef S_IFSOCK
+#       define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
+#   else
+#       define S_ISSOCK(m) 0
+#   endif
+# endif
+
+/*
+ * Make sure that MAXPATHLEN is defined.
+ */
+
+#ifndef MAXPATHLEN
+#   ifdef PATH_MAX
+#       define MAXPATHLEN PATH_MAX
+#   else
+#       define MAXPATHLEN 2048
+#   endif
+#endif
+
+/*
+ * Make sure that L_tmpnam is defined.
+ */
+
+#ifndef L_tmpnam
+#   define L_tmpnam 100
+#endif
+
+/*
+ * The following macro defines the type of the mask arguments to
+ * select:
+ */
+
+#ifndef NO_FD_SET
+#   define SELECT_MASK fd_set
+#else
+#   ifndef _AIX
+	typedef long fd_mask;
+#   endif
+#   if defined(_IBMR2)
+#	define SELECT_MASK void
+#   else
+#	define SELECT_MASK int
+#   endif
+#endif
+
+/*
+ * Define "NBBY" (number of bits per byte) if it's not already defined.
+ */
+
+#ifndef NBBY
+#   define NBBY 8
+#endif
+
+/*
+ * The following macro defines the number of fd_masks in an fd_set:
+ */
+
+#ifndef FD_SETSIZE
+#   ifdef OPEN_MAX
+#	define FD_SETSIZE OPEN_MAX
+#   else
+#	define FD_SETSIZE 256
+#   endif
+#endif
+#if !defined(howmany)
+#   define howmany(x, y) (((x)+((y)-1))/(y))
+#endif
+#ifndef NFDBITS
+#   define NFDBITS NBBY*sizeof(fd_mask)
+#endif
+#define MASK_SIZE howmany(FD_SETSIZE, NFDBITS)
+
+/*
+ * The following function is declared in tclInt.h but doesn't do anything
+ * on Unix systems.
+ */
+
+#define TclSetSystemEnv(a,b)
+
+/*
+ * The following implements the Unix method for exiting the process.
+ */
+#define TclPlatformExit(status) exit(status)
+
+/*
+ * The following functions always succeeds under Unix.
+ */
+
+#define TclHasSockets(interp) (TCL_OK)
+#define TclHasPipes() (1)
+
+/*
+ * Variables provided by the C library:
+ */
+
+#if defined(_sgi) || defined(__sgi)
+#define environ _environ
+#endif
+extern char **environ;
+
+/*
+ * At present (12/91) not all stdlib.h implementations declare strtod.
+ * The declaration below is here to ensure that it's declared, so that
+ * the compiler won't take the default approach of assuming it returns
+ * an int.  There's no ANSI prototype for it because there would end
+ * up being too many conflicts with slightly-different prototypes.
+ */
+
+extern double strtod();
+
+#endif /* _TCLUNIXPORT */
diff --git a/Tcl/tclUnixTime.c b/Tcl/tclUnixTime.c
new file mode 100644
index 0000000..96d29bf
--- /dev/null
+++ b/Tcl/tclUnixTime.c
@@ -0,0 +1,217 @@
+/* 
+ * tclUnixTime.c --
+ *
+ *	Contains Unix specific versions of Tcl functions that
+ *	obtain time values from the operating system.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclUnixTime.c 1.10 96/02/15 11:58:41
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ *-----------------------------------------------------------------------------
+ *
+ * TclGetSeconds --
+ *
+ *	This procedure returns the number of seconds from the epoch.  On
+ *	most Unix systems the epoch is Midnight Jan 1, 1970 GMT.
+ *
+ * Results:
+ *	Number of seconds from the epoch.
+ *
+ * Side effects:
+ *	None.
+ *
+ *-----------------------------------------------------------------------------
+ */
+
+unsigned long
+TclGetSeconds()
+{
+    return time((time_t *) NULL);
+}
+
+/*
+ *-----------------------------------------------------------------------------
+ *
+ * TclGetClicks --
+ *
+ *	This procedure returns a value that represents the highest resolution
+ *	clock available on the system.  There are no garantees on what the
+ *	resolution will be.  In Tcl we will call this value a "click".  The
+ *	start time is also system dependant.
+ *
+ * Results:
+ *	Number of clicks from some start time.
+ *
+ * Side effects:
+ *	None.
+ *
+ *-----------------------------------------------------------------------------
+ */
+
+unsigned long
+TclGetClicks()
+{
+    unsigned long now;
+#ifdef NO_GETTOD
+    struct tms dummy;
+#else
+    struct timeval date;
+    struct timezone tz;
+#endif
+
+#ifdef NO_GETTOD
+    now = (unsigned long) times(&dummy);
+#else
+    gettimeofday(&date, &tz);
+    now = date.tv_sec*1000000 + date.tv_usec;
+#endif
+
+    return now;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetTimeZone --
+ *
+ *	Determines the current timezone.  The method varies wildly
+ *	between different platform implementations, so its hidden in
+ *	this function.
+ *
+ * Results:
+ *	Hours east of GMT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclGetTimeZone (currentTime)
+    unsigned long  currentTime;
+{
+    /*
+     * Determine how a timezone is obtained from "struct tm".  If there is no
+     * time zone in this struct (very lame) then use the timezone variable.
+     * This is done in a way to make the timezone variable the method of last
+     * resort, as some systems have it in addition to a field in "struct tm".
+     * The gettimeofday system call can also be used to determine the time
+     * zone.
+     */
+    
+#if defined(HAVE_TM_TZADJ)
+#   define TCL_GOT_TIMEZONE
+    time_t      curTime = (time_t) currentTime;
+    struct tm  *timeDataPtr = localtime(&curTime);
+    int         timeZone;
+
+    timeZone = timeDataPtr->tm_tzadj  / 60;
+    if (timeDataPtr->tm_isdst) {
+        timeZone += 60;
+    }
+    
+    return timeZone;
+#endif
+
+#if defined(HAVE_TM_GMTOFF) && !defined (TCL_GOT_TIMEZONE)
+#   define TCL_GOT_TIMEZONE
+    time_t     curTime = (time_t) currentTime;
+    struct tm *timeDataPtr = localtime(&currentTime);
+    int        timeZone;
+
+    timeZone = -(timeDataPtr->tm_gmtoff / 60);
+    if (timeDataPtr->tm_isdst) {
+        timeZone += 60;
+    }
+    
+    return timeZone;
+#endif
+
+    /*
+     * Must prefer timezone variable over gettimeofday, as gettimeofday does
+     * not return timezone information on many systems that have moved this
+     * information outside of the kernel.
+     */
+    
+#if defined(HAVE_TIMEZONE_VAR) && !defined (TCL_GOT_TIMEZONE)
+#   define TCL_GOT_TIMEZONE
+    static int setTZ = 0;
+    int        timeZone;
+
+    if (!setTZ) {
+        tzset();
+        setTZ = 1;
+    }
+
+    /*
+     * Note: this is not a typo in "timezone" below!  See tzset
+     * documentation for details.
+     */
+
+    timeZone = timezone / 60;
+
+    return timeZone;
+#endif
+
+#if defined(HAVE_GETTIMEOFDAY) && !defined (TCL_GOT_TIMEZONE)
+#   define TCL_GOT_TIMEZONE
+    struct timeval  tv;
+    struct timezone tz;
+    int timeZone;
+
+    gettimeofday(&tv, &tz);
+    timeZone = tz.tz_minuteswest;
+    if (tz.tz_dsttime) {
+        timeZone += 60;
+    }
+    
+    return timeZone;
+#endif
+
+#ifndef TCL_GOT_TIMEZONE
+    /*
+     * Cause compile error, we don't know how to get timezone.
+     */
+    error: autoconf did not figure out how to determine the timezone. 
+#endif
+
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetTime --
+ *
+ *	Gets the current system time in seconds and microseconds
+ *	since the beginning of the epoch: 00:00 UCT, January 1, 1970.
+ *
+ * Results:
+ *	Returns the current time in timePtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TclGetTime(timePtr)
+    Tcl_Time *timePtr;		/* Location to store time information. */
+{
+    struct timeval tv;
+    struct timezone tz;
+    
+    (void) gettimeofday(&tv, &tz);
+    timePtr->sec = tv.tv_sec;
+    timePtr->usec = tv.tv_usec;
+}
diff --git a/Tcl/tclUtil.c b/Tcl/tclUtil.c
new file mode 100644
index 0000000..d4c3e04
--- /dev/null
+++ b/Tcl/tclUtil.c
@@ -0,0 +1,2199 @@
+/* 
+ * tclUtil.c --
+ *
+ *	This file contains utility procedures that are used by many Tcl
+ *	commands.
+ *
+ * Copyright (c) 1987-1993 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclUtil.c 1.112 96/02/15 11:42:52
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * The following values are used in the flags returned by Tcl_ScanElement
+ * and used by Tcl_ConvertElement.  The value TCL_DONT_USE_BRACES is also
+ * defined in tcl.h;  make sure its value doesn't overlap with any of the
+ * values below.
+ *
+ * TCL_DONT_USE_BRACES -	1 means the string mustn't be enclosed in
+ *				braces (e.g. it contains unmatched braces,
+ *				or ends in a backslash character, or user
+ *				just doesn't want braces);  handle all
+ *				special characters by adding backslashes.
+ * USE_BRACES -			1 means the string contains a special
+ *				character that can be handled simply by
+ *				enclosing the entire argument in braces.
+ * BRACES_UNMATCHED -		1 means that braces aren't properly matched
+ *				in the argument.
+ */
+
+#define USE_BRACES		2
+#define BRACES_UNMATCHED	4
+
+/*
+ * Function prototypes for local procedures in this file:
+ */
+
+static void		SetupAppendBuffer _ANSI_ARGS_((Interp *iPtr,
+			    int newSpace));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclFindElement --
+ *
+ *	Given a pointer into a Tcl list, locate the first (or next)
+ *	element in the list.
+ *
+ * Results:
+ *	The return value is normally TCL_OK, which means that the
+ *	element was successfully located.  If TCL_ERROR is returned
+ *	it means that list didn't have proper list structure;
+ *	interp->result contains a more detailed error message.
+ *
+ *	If TCL_OK is returned, then *elementPtr will be set to point
+ *	to the first element of list, and *nextPtr will be set to point
+ *	to the character just after any white space following the last
+ *	character that's part of the element.  If this is the last argument
+ *	in the list, then *nextPtr will point to the NULL character at the
+ *	end of list.  If sizePtr is non-NULL, *sizePtr is filled in with
+ *	the number of characters in the element.  If the element is in
+ *	braces, then *elementPtr will point to the character after the
+ *	opening brace and *sizePtr will not include either of the braces.
+ *	If there isn't an element in the list, *sizePtr will be zero, and
+ *	both *elementPtr and *termPtr will refer to the null character at
+ *	the end of list.  Note:  this procedure does NOT collapse backslash
+ *	sequences.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclFindElement(interp, list, elementPtr, nextPtr, sizePtr, bracePtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. 
+				 * If NULL, then no error message is left
+				 * after errors. */
+    register char *list;	/* String containing Tcl list with zero
+				 * or more elements (possibly in braces). */
+    char **elementPtr;		/* Fill in with location of first significant
+				 * character in first element of list. */
+    char **nextPtr;		/* Fill in with location of character just
+				 * after all white space following end of
+				 * argument (i.e. next argument or end of
+				 * list). */
+    int *sizePtr;		/* If non-zero, fill in with size of
+				 * element. */
+    int *bracePtr;		/* If non-zero fill in with non-zero/zero
+				 * to indicate that arg was/wasn't
+				 * in braces. */
+{
+    register char *p;
+    int openBraces = 0;
+    int inQuotes = 0;
+    int size;
+
+    /*
+     * Skim off leading white space and check for an opening brace or
+     * quote.   Note:  use of "isascii" below and elsewhere in this
+     * procedure is a temporary hack (7/27/90) because Mx uses characters
+     * with the high-order bit set for some things.  This should probably
+     * be changed back eventually, or all of Tcl should call isascii.
+     */
+
+    while (isspace(UCHAR(*list))) {
+	list++;
+    }
+#ifdef STk_CODE
+    if (*list == '(') {
+#else
+    if (*list == '{') {
+#endif    
+	openBraces = 1;
+	list++;
+    } else if (*list == '"') {
+	inQuotes = 1;
+	list++;
+    }
+    if (bracePtr != 0) {
+	*bracePtr = openBraces;
+    }
+    p = list;
+
+    /*
+     * Find the end of the element (either a space or a close brace or
+     * the end of the string).
+     */
+
+    while (1) {
+	switch (*p) {
+
+	    /*
+	     * Open brace: don't treat specially unless the element is
+	     * in braces.  In this case, keep a nesting count.
+	     */
+
+#ifdef STk_CODE
+ 	    case '(':
+#else
+  	    case '{':
+#endif
+		if (openBraces != 0) {
+		    openBraces++;
+		}
+		break;
+
+	    /*
+	     * Close brace: if element is in braces, keep nesting
+	     * count and quit when the last close brace is seen.
+	     */
+
+#ifdef STk_CODE
+	    case ')':
+#else
+  	    case '}':
+#endif
+		if (openBraces == 1) {
+		    char *p2;
+
+		    size = p - list;
+		    p++;
+		    if (isspace(UCHAR(*p)) || (*p == 0)) {
+			goto done;
+		    }
+		    for (p2 = p; (*p2 != 0) && (!isspace(UCHAR(*p2)))
+			    && (p2 < p+20); p2++) {
+			/* null body */
+		    }
+		    if (interp != NULL) {
+			Tcl_ResetResult(interp);
+			sprintf(interp->result,
+				"list element in braces followed by \"%.*s\" instead of space",
+				(int) (p2-p), p);
+		    }
+		    return TCL_ERROR;
+		} else if (openBraces != 0) {
+		    openBraces--;
+		}
+		break;
+
+	    /*
+	     * Backslash:  skip over everything up to the end of the
+	     * backslash sequence.
+	     */
+
+	    case '\\': {
+		int size;
+
+		(void) Tcl_Backslash(p, &size);
+		p += size - 1;
+		break;
+	    }
+
+	    /*
+	     * Space: ignore if element is in braces or quotes;  otherwise
+	     * terminate element.
+	     */
+
+	    case ' ':
+	    case '\f':
+	    case '\n':
+	    case '\r':
+	    case '\t':
+	    case '\v':
+		if ((openBraces == 0) && !inQuotes) {
+		    size = p - list;
+		    goto done;
+		}
+		break;
+
+	    /*
+	     * Double-quote:  if element is in quotes then terminate it.
+	     */
+
+	    case '"':
+		if (inQuotes) {
+		    char *p2;
+
+		    size = p-list;
+		    p++;
+		    if (isspace(UCHAR(*p)) || (*p == 0)) {
+			goto done;
+		    }
+		    for (p2 = p; (*p2 != 0) && (!isspace(UCHAR(*p2)))
+			    && (p2 < p+20); p2++) {
+			/* null body */
+		    }
+		    if (interp != NULL) {
+			Tcl_ResetResult(interp);
+			sprintf(interp->result,
+				"list element in quotes followed by \"%.*s\" %s", (int) (p2-p), p,
+				"instead of space");
+		    }
+		    return TCL_ERROR;
+		}
+		break;
+
+	    /*
+	     * End of list:  terminate element.
+	     */
+
+	    case 0:
+		if (openBraces != 0) {
+		    if (interp != NULL) {
+			Tcl_SetResult(interp, "unmatched open brace in list",
+				TCL_STATIC);
+		    }
+		    return TCL_ERROR;
+		} else if (inQuotes) {
+		    if (interp != NULL) {
+			Tcl_SetResult(interp, "unmatched open quote in list",
+				TCL_STATIC);
+		    }
+		    return TCL_ERROR;
+		}
+		size = p - list;
+		goto done;
+
+	}
+	p++;
+    }
+
+    done:
+    while (isspace(UCHAR(*p))) {
+	p++;
+    }
+    *elementPtr = list;
+    *nextPtr = p;
+    if (sizePtr != 0) {
+	*sizePtr = size;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclCopyAndCollapse --
+ *
+ *	Copy a string and eliminate any backslashes that aren't in braces.
+ *
+ * Results:
+ *	There is no return value.  Count chars. get copied from src
+ *	to dst.  Along the way, if backslash sequences are found outside
+ *	braces, the backslashes are eliminated in the copy.
+ *	After scanning count chars. from source, a null character is
+ *	placed at the end of dst.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TclCopyAndCollapse(count, src, dst)
+    int count;			/* Total number of characters to copy
+				 * from src. */
+    register char *src;		/* Copy from here... */
+    register char *dst;		/* ... to here. */
+{
+    register char c;
+    int numRead;
+
+    for (c = *src; count > 0; src++, c = *src, count--) {
+	if (c == '\\') {
+	    *dst = Tcl_Backslash(src, &numRead);
+	    dst++;
+	    src += numRead-1;
+	    count -= numRead-1;
+	} else {
+	    *dst = c;
+	    dst++;
+	}
+    }
+    *dst = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SplitList --
+ *
+ *	Splits a list up into its constituent fields.
+ *
+ * Results
+ *	The return value is normally TCL_OK, which means that
+ *	the list was successfully split up.  If TCL_ERROR is
+ *	returned, it means that "list" didn't have proper list
+ *	structure;  interp->result will contain a more detailed
+ *	error message.
+ *
+ *	*argvPtr will be filled in with the address of an array
+ *	whose elements point to the elements of list, in order.
+ *	*argcPtr will get filled in with the number of valid elements
+ *	in the array.  A single block of memory is dynamically allocated
+ *	to hold both the argv array and a copy of the list (with
+ *	backslashes and braces removed in the standard way).
+ *	The caller must eventually free this memory by calling free()
+ *	on *argvPtr.  Note:  *argvPtr and *argcPtr are only modified
+ *	if the procedure returns normally.
+ *
+ * Side effects:
+ *	Memory is allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_SplitList(interp, list, argcPtr, argvPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. 
+				 * If NULL, then no error message is left. */
+    char *list;			/* Pointer to string with list structure. */
+    int *argcPtr;		/* Pointer to location to fill in with
+				 * the number of elements in the list. */
+    char ***argvPtr;		/* Pointer to place to store pointer to array
+				 * of pointers to list elements. */
+{
+    char **argv;
+    register char *p;
+    int size, i, result, elSize, brace;
+    char *element;
+
+    /*
+     * Figure out how much space to allocate.  There must be enough
+     * space for both the array of pointers and also for a copy of
+     * the list.  To estimate the number of pointers needed, count
+     * the number of space characters in the list.
+     */
+
+#ifdef STk_CODE
+    {
+      char *q;
+
+      for (size = 1, p = q = list; *p != 0; p++) {
+	if (isspace(UCHAR(*p))) size++;
+	if (*p == ')') q = p; 
+      }
+
+      /* 
+       * Tcl considers strings of the form "( ... )" as quoted string
+       * (rather than lists). So if the string is of this form, open
+       * and close parenthesis are replaced by spaces
+       */
+      if (q > list && *list == '(' && *q == ')') {
+	*list = *q = ' ';
+      }
+    }
+#else
+    for (size = 1, p = list; *p != 0; p++) {
+	if (isspace(UCHAR(*p))) {
+	    size++;
+	}
+    }
+#endif
+    size++;			/* Leave space for final NULL pointer. */
+    argv = (char **) ckalloc((unsigned)
+	    ((size * sizeof(char *)) + (p - list) + 1));
+    for (i = 0, p = ((char *) argv) + size*sizeof(char *);
+	    *list != 0; i++) {
+	result = TclFindElement(interp, list, &element, &list, &elSize, &brace);
+	if (result != TCL_OK) {
+	    ckfree((char *) argv);
+	    return result;
+	}
+	if (*element == 0) {
+	    break;
+	}
+	if (i >= size) {
+	    ckfree((char *) argv);
+	    if (interp != NULL) {
+		Tcl_SetResult(interp, "internal error in Tcl_SplitList",
+			TCL_STATIC);
+	    }
+	    return TCL_ERROR;
+	}
+	argv[i] = p;
+	if (brace) {
+	    strncpy(p, element, (size_t) elSize);
+	    p += elSize;
+	    *p = 0;
+	    p++;
+	} else {
+	    TclCopyAndCollapse(elSize, element, p);
+	    p += elSize+1;
+	}
+    }
+
+    argv[i] = NULL;
+    *argvPtr = argv;
+    *argcPtr = i;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_ScanElement --
+ *
+ *	This procedure is a companion procedure to Tcl_ConvertElement.
+ *	It scans a string to see what needs to be done to it (e.g.
+ *	add backslashes or enclosing braces) to make the string into
+ *	a valid Tcl list element.
+ *
+ * Results:
+ *	The return value is an overestimate of the number of characters
+ *	that will be needed by Tcl_ConvertElement to produce a valid
+ *	list element from string.  The word at *flagPtr is filled in
+ *	with a value needed by Tcl_ConvertElement when doing the actual
+ *	conversion.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_ScanElement(string, flagPtr)
+    char *string;		/* String to convert to Tcl list element. */
+    int *flagPtr;		/* Where to store information to guide
+				 * Tcl_ConvertElement. */
+{
+    int flags, nestingLevel;
+    register char *p;
+
+    /*
+     * This procedure and Tcl_ConvertElement together do two things:
+     *
+     * 1. They produce a proper list, one that will yield back the
+     * argument strings when evaluated or when disassembled with
+     * Tcl_SplitList.  This is the most important thing.
+     * 
+     * 2. They try to produce legible output, which means minimizing the
+     * use of backslashes (using braces instead).  However, there are
+     * some situations where backslashes must be used (e.g. an element
+     * like "{abc": the leading brace will have to be backslashed.  For
+     * each element, one of three things must be done:
+     *
+     * (a) Use the element as-is (it doesn't contain anything special
+     * characters).  This is the most desirable option.
+     *
+     * (b) Enclose the element in braces, but leave the contents alone.
+     * This happens if the element contains embedded space, or if it
+     * contains characters with special interpretation ($, [, ;, or \),
+     * or if it starts with a brace or double-quote, or if there are
+     * no characters in the element.
+     *
+     * (c) Don't enclose the element in braces, but add backslashes to
+     * prevent special interpretation of special characters.  This is a
+     * last resort used when the argument would normally fall under case
+     * (b) but contains unmatched braces.  It also occurs if the last
+     * character of the argument is a backslash or if the element contains
+     * a backslash followed by newline.
+     *
+     * The procedure figures out how many bytes will be needed to store
+     * the result (actually, it overestimates).  It also collects information
+     * about the element in the form of a flags word.
+     */
+
+    nestingLevel = 0;
+#ifdef STk_CODE
+    flags = TCL_DONT_USE_BRACES;
+#else
+    flags = 0;
+#endif
+    if (string == NULL) {
+	string = "";
+    }
+    p = string;
+    if ((*p == '{') || (*p == '"') || (*p == 0)) {
+	flags |= USE_BRACES;
+    }
+    for ( ; *p != 0; p++) {
+	switch (*p) {
+	    case '{':
+		nestingLevel++;
+		break;
+	    case '}':
+		nestingLevel--;
+		if (nestingLevel < 0) {
+		    flags |= TCL_DONT_USE_BRACES|BRACES_UNMATCHED;
+		}
+		break;
+#ifndef STk_CODE
+	    case '[':
+	    case '$':
+	    case ';':
+	    case ' ':
+	    case '\f':
+	    case '\n':
+	    case '\r':
+	    case '\t':
+	    case '\v':
+		flags |= USE_BRACES;
+		break;
+#endif
+	    case '\\':
+		if ((p[1] == 0) || (p[1] == '\n')) {
+		    flags = TCL_DONT_USE_BRACES;
+		} else {
+		    int size;
+
+		    (void) Tcl_Backslash(p, &size);
+		    p += size-1;
+		    flags |= USE_BRACES;
+		}
+		break;
+	}
+    }
+    if (nestingLevel != 0) {
+	flags = TCL_DONT_USE_BRACES | BRACES_UNMATCHED;
+    }
+    *flagPtr = flags;
+
+    /*
+     * Allow enough space to backslash every character plus leave
+     * two spaces for braces.
+     */
+
+    return 2*(p-string) + 2;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_ConvertElement --
+ *
+ *	This is a companion procedure to Tcl_ScanElement.  Given the
+ *	information produced by Tcl_ScanElement, this procedure converts
+ *	a string to a list element equal to that string.
+ *
+ * Results:
+ *	Information is copied to *dst in the form of a list element
+ *	identical to src (i.e. if Tcl_SplitList is applied to dst it
+ *	will produce a string identical to src).  The return value is
+ *	a count of the number of characters copied (not including the
+ *	terminating NULL character).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_ConvertElement(src, dst, flags)
+    register char *src;		/* Source information for list element. */
+    char *dst;			/* Place to put list-ified element. */
+    int flags;			/* Flags produced by Tcl_ScanElement. */
+{
+    register char *p = dst;
+
+    /*
+     * See the comment block at the beginning of the Tcl_ScanElement
+     * code for details of how this works.
+     */
+#ifdef STk_CODE
+    if ((src == NULL) || (*src == 0)) {
+        p[0] = '\\';
+ 	p[1] = '0';
+ 	p[2] = 0;
+ 	return 2;
+    }
+    while (*p++ = *src++) /* Nothing */;
+    return p - dst - 1;
+#else
+    if ((src == NULL) || (*src == 0)) {
+	p[0] = '{';
+	p[1] = '}';
+	p[2] = 0;
+	return 2;
+    }
+    if ((flags & USE_BRACES) && !(flags & TCL_DONT_USE_BRACES)) {
+	*p = '{';
+	p++;
+	for ( ; *src != 0; src++, p++) {
+	    *p = *src;
+	}
+	*p = '}';
+	p++;
+    } else {
+	if (*src == '{') {
+	    /*
+	     * Can't have a leading brace unless the whole element is
+	     * enclosed in braces.  Add a backslash before the brace.
+	     * Furthermore, this may destroy the balance between open
+	     * and close braces, so set BRACES_UNMATCHED.
+	     */
+
+	    p[0] = '\\';
+	    p[1] = '{';
+	    p += 2;
+	    src++;
+	    flags |= BRACES_UNMATCHED;
+	}
+	for (; *src != 0 ; src++) {
+	    switch (*src) {
+		case ']':
+		case '[':
+		case '$':
+		case ';':
+		case ' ':
+		case '\\':
+		case '"':
+		    *p = '\\';
+		    p++;
+		    break;
+		case '{':
+		case '}':
+		    /*
+		     * It may not seem necessary to backslash braces, but
+		     * it is.  The reason for this is that the resulting
+		     * list element may actually be an element of a sub-list
+		     * enclosed in braces (e.g. if Tcl_DStringStartSublist
+		     * has been invoked), so there may be a brace mismatch
+		     * if the braces aren't backslashed.
+		     */
+
+		    if (flags & BRACES_UNMATCHED) {
+			*p = '\\';
+			p++;
+		    }
+		    break;
+		case '\f':
+		    *p = '\\';
+		    p++;
+		    *p = 'f';
+		    p++;
+		    continue;
+		case '\n':
+		    *p = '\\';
+		    p++;
+		    *p = 'n';
+		    p++;
+		    continue;
+		case '\r':
+		    *p = '\\';
+		    p++;
+		    *p = 'r';
+		    p++;
+		    continue;
+		case '\t':
+		    *p = '\\';
+		    p++;
+		    *p = 't';
+		    p++;
+		    continue;
+		case '\v':
+		    *p = '\\';
+		    p++;
+		    *p = 'v';
+		    p++;
+		    continue;
+	    }
+	    *p = *src;
+	    p++;
+	}
+    }
+    *p = '\0';
+    return p-dst;
+#endif
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Merge --
+ *
+ *	Given a collection of strings, merge them together into a
+ *	single string that has proper Tcl list structured (i.e.
+ *	Tcl_SplitList may be used to retrieve strings equal to the
+ *	original elements, and Tcl_Eval will parse the string back
+ *	into its original elements).
+ *
+ * Results:
+ *	The return value is the address of a dynamically-allocated
+ *	string containing the merged list.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_Merge(argc, argv)
+    int argc;			/* How many strings to merge. */
+    char **argv;		/* Array of string values. */
+{
+#   define LOCAL_SIZE 20
+    int localFlags[LOCAL_SIZE], *flagPtr;
+    int numChars;
+    char *result;
+    register char *dst;
+    int i;
+
+    /*
+     * Pass 1: estimate space, gather flags.
+     */
+
+    if (argc <= LOCAL_SIZE) {
+	flagPtr = localFlags;
+    } else {
+	flagPtr = (int *) ckalloc((unsigned) argc*sizeof(int));
+    }
+#ifdef STk_CODE
+    numChars = 3; /* +2 cause of () */
+#else
+    numChars = 1;
+#endif
+    for (i = 0; i < argc; i++) {
+	numChars += Tcl_ScanElement(argv[i], &flagPtr[i]) + 1;
+    }
+
+    /*
+     * Pass two: copy into the result area.
+     */
+
+    result = (char *) ckalloc((unsigned) numChars);
+#ifdef STk_CODE
+    *result = '('; dst = result+1;
+#else
+    dst = result;
+#endif
+    for (i = 0; i < argc; i++) {
+	numChars = Tcl_ConvertElement(argv[i], dst, flagPtr[i]);
+	dst += numChars;
+	*dst = ' ';
+	dst++;
+    }
+#ifdef STk_CODE
+    if (dst != result+1) dst -= 1;
+    dst[0] = ')';
+    dst[1] = '\0';
+#else
+    if (dst == result) {
+	*dst = 0;
+    } else {
+	dst[-1] = 0;
+    }
+#endif
+
+    if (flagPtr != localFlags) {
+	ckfree((char *) flagPtr);
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Concat --
+ *
+ *	Concatenate a set of strings into a single large string.
+ *
+ * Results:
+ *	The return value is dynamically-allocated string containing
+ *	a concatenation of all the strings in argv, with spaces between
+ *	the original argv elements.
+ *
+ * Side effects:
+ *	Memory is allocated for the result;  the caller is responsible
+ *	for freeing the memory.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_Concat(argc, argv)
+    int argc;			/* Number of strings to concatenate. */
+    char **argv;		/* Array of strings to concatenate. */
+{
+    int totalSize, i;
+    register char *p;
+    char *result;
+
+    for (totalSize = 1, i = 0; i < argc; i++) {
+	totalSize += strlen(argv[i]) + 1;
+    }
+    result = (char *) ckalloc((unsigned) totalSize);
+    if (argc == 0) {
+	*result = '\0';
+	return result;
+    }
+    for (p = result, i = 0; i < argc; i++) {
+	char *element;
+	int length;
+
+	/*
+	 * Clip white space off the front and back of the string
+	 * to generate a neater result, and ignore any empty
+	 * elements.
+	 */
+
+	element = argv[i];
+	while (isspace(UCHAR(*element))) {
+	    element++;
+	}
+	for (length = strlen(element);
+		(length > 0) && (isspace(UCHAR(element[length-1])));
+		length--) {
+	    /* Null loop body. */
+	}
+	if (length == 0) {
+	    continue;
+	}
+	(void) strncpy(p, element, (size_t) length);
+	p += length;
+	*p = ' ';
+	p++;
+    }
+    if (p != result) {
+	p[-1] = 0;
+    } else {
+	*p = 0;
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_StringMatch --
+ *
+ *	See if a particular string matches a particular pattern.
+ *
+ * Results:
+ *	The return value is 1 if string matches pattern, and
+ *	0 otherwise.  The matching operation permits the following
+ *	special characters in the pattern: *?\[] (see the manual
+ *	entry for details on what these mean).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_StringMatch(string, pattern)
+    register char *string;	/* String. */
+    register char *pattern;	/* Pattern, which may contain
+				 * special characters. */
+{
+    char c2;
+
+    while (1) {
+	/* See if we're at the end of both the pattern and the string.
+	 * If so, we succeeded.  If we're at the end of the pattern
+	 * but not at the end of the string, we failed.
+	 */
+	
+	if (*pattern == 0) {
+	    if (*string == 0) {
+		return 1;
+	    } else {
+		return 0;
+	    }
+	}
+	if ((*string == 0) && (*pattern != '*')) {
+	    return 0;
+	}
+
+	/* Check for a "*" as the next pattern character.  It matches
+	 * any substring.  We handle this by calling ourselves
+	 * recursively for each postfix of string, until either we
+	 * match or we reach the end of the string.
+	 */
+	
+	if (*pattern == '*') {
+	    pattern += 1;
+	    if (*pattern == 0) {
+		return 1;
+	    }
+	    while (1) {
+		if (Tcl_StringMatch(string, pattern)) {
+		    return 1;
+		}
+		if (*string == 0) {
+		    return 0;
+		}
+		string += 1;
+	    }
+	}
+    
+	/* Check for a "?" as the next pattern character.  It matches
+	 * any single character.
+	 */
+
+	if (*pattern == '?') {
+	    goto thisCharOK;
+	}
+
+	/* Check for a "[" as the next pattern character.  It is followed
+	 * by a list of characters that are acceptable, or by a range
+	 * (two characters separated by "-").
+	 */
+	
+	if (*pattern == '[') {
+	    pattern += 1;
+	    while (1) {
+		if ((*pattern == ']') || (*pattern == 0)) {
+		    return 0;
+		}
+		if (*pattern == *string) {
+		    break;
+		}
+		if (pattern[1] == '-') {
+		    c2 = pattern[2];
+		    if (c2 == 0) {
+			return 0;
+		    }
+		    if ((*pattern <= *string) && (c2 >= *string)) {
+			break;
+		    }
+		    if ((*pattern >= *string) && (c2 <= *string)) {
+			break;
+		    }
+		    pattern += 2;
+		}
+		pattern += 1;
+	    }
+	    while (*pattern != ']') {
+		if (*pattern == 0) {
+		    pattern--;
+		    break;
+		}
+		pattern += 1;
+	    }
+	    goto thisCharOK;
+	}
+    
+	/* If the next pattern character is '/', just strip off the '/'
+	 * so we do exact matching on the character that follows.
+	 */
+	
+	if (*pattern == '\\') {
+	    pattern += 1;
+	    if (*pattern == 0) {
+		return 0;
+	    }
+	}
+
+	/* There's no special character.  Just make sure that the next
+	 * characters of each string match.
+	 */
+	
+	if (*pattern != *string) {
+	    return 0;
+	}
+
+	thisCharOK: pattern += 1;
+	string += 1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetResult --
+ *
+ *	Arrange for "string" to be the Tcl return value.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	interp->result is left pointing either to "string" (if "copy" is 0)
+ *	or to a copy of string.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_SetResult(interp, string, freeProc)
+    Tcl_Interp *interp;		/* Interpreter with which to associate the
+				 * return value. */
+    char *string;		/* Value to be returned.  If NULL,
+				 * the result is set to an empty string. */
+    Tcl_FreeProc *freeProc;	/* Gives information about the string:
+				 * TCL_STATIC, TCL_VOLATILE, or the address
+				 * of a Tcl_FreeProc such as free. */
+{
+    register Interp *iPtr = (Interp *) interp;
+    int length;
+    Tcl_FreeProc *oldFreeProc = iPtr->freeProc;
+    char *oldResult = iPtr->result;
+
+    if (string == NULL) {
+	iPtr->resultSpace[0] = 0;
+	iPtr->result = iPtr->resultSpace;
+	iPtr->freeProc = 0;
+    } else if (freeProc == TCL_DYNAMIC) {
+	iPtr->result = string;
+	iPtr->freeProc = TCL_DYNAMIC;
+    } else if (freeProc == TCL_VOLATILE) {
+	length = strlen(string);
+	if (length > TCL_RESULT_SIZE) {
+	    iPtr->result = (char *) ckalloc((unsigned) length+1);
+	    iPtr->freeProc = TCL_DYNAMIC;
+	} else {
+	    iPtr->result = iPtr->resultSpace;
+	    iPtr->freeProc = 0;
+	}
+	strcpy(iPtr->result, string);
+    } else {
+	iPtr->result = string;
+	iPtr->freeProc = freeProc;
+    }
+
+    /*
+     * If the old result was dynamically-allocated, free it up.  Do it
+     * here, rather than at the beginning, in case the new result value
+     * was part of the old result value.
+     */
+
+    if (oldFreeProc != 0) {
+	if ((oldFreeProc == TCL_DYNAMIC)
+		|| (oldFreeProc == (Tcl_FreeProc *) free)) {
+	    ckfree(oldResult);
+	} else {
+	    (*oldFreeProc)(oldResult);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AppendResult --
+ *
+ *	Append a variable number of strings onto the result already
+ *	present for an interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The result in the interpreter given by the first argument
+ *	is extended by the strings given by the second and following
+ *	arguments (up to a terminating NULL argument).
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* VARARGS2 */
+void
+Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,arg1)
+{
+    va_list argList;
+    register Interp *iPtr;
+    char *string;
+    int newSpace;
+
+    /*
+     * First, scan through all the arguments to see how much space is
+     * needed.
+     */
+
+    iPtr = (Interp *) TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+    newSpace = 0;
+    while (1) {
+	string = va_arg(argList, char *);
+	if (string == NULL) {
+	    break;
+	}
+	newSpace += strlen(string);
+    }
+    va_end(argList);
+
+    /*
+     * If the append buffer isn't already setup and large enough
+     * to hold the new data, set it up.
+     */
+
+    if ((iPtr->result != iPtr->appendResult)
+	    || (iPtr->appendResult[iPtr->appendUsed] != 0)
+	    || ((newSpace + iPtr->appendUsed) >= iPtr->appendAvl)) {
+       SetupAppendBuffer(iPtr, newSpace);
+    }
+
+    /*
+     * Final step:  go through all the argument strings again, copying
+     * them into the buffer.
+     */
+
+    TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+    while (1) {
+	string = va_arg(argList, char *);
+	if (string == NULL) {
+	    break;
+	}
+	strcpy(iPtr->appendResult + iPtr->appendUsed, string);
+	iPtr->appendUsed += strlen(string);
+    }
+    va_end(argList);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AppendElement --
+ *
+ *	Convert a string to a valid Tcl list element and append it
+ *	to the current result (which is ostensibly a list).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The result in the interpreter given by the first argument
+ *	is extended with a list element converted from string.  A
+ *	separator space is added before the converted list element
+ *	unless the current result is empty, contains the single
+ *	character "{", or ends in " {".
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_AppendElement(interp, string)
+    Tcl_Interp *interp;		/* Interpreter whose result is to be
+				 * extended. */
+    char *string;		/* String to convert to list element and
+				 * add to result. */
+{
+    register Interp *iPtr = (Interp *) interp;
+    int size, flags;
+    char *dst;
+
+    /*
+     * See how much space is needed, and grow the append buffer if
+     * needed to accommodate the list element.
+     */
+
+    size = Tcl_ScanElement(string, &flags) + 1;
+    if ((iPtr->result != iPtr->appendResult)
+	    || (iPtr->appendResult[iPtr->appendUsed] != 0)
+	    || ((size + iPtr->appendUsed) >= iPtr->appendAvl)) {
+       SetupAppendBuffer(iPtr, size+iPtr->appendUsed);
+    }
+
+    /*
+     * Convert the string into a list element and copy it to the
+     * buffer that's forming, with a space separator if needed.
+     */
+
+    dst = iPtr->appendResult + iPtr->appendUsed;
+    if (TclNeedSpace(iPtr->appendResult, dst)) {
+	iPtr->appendUsed++;
+	*dst = ' ';
+	dst++;
+    }
+    iPtr->appendUsed += Tcl_ConvertElement(string, dst, flags);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SetupAppendBuffer --
+ *
+ *	This procedure makes sure that there is an append buffer
+ *	properly initialized for interp, and that it has at least
+ *	enough room to accommodate newSpace new bytes of information.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SetupAppendBuffer(iPtr, newSpace)
+    register Interp *iPtr;	/* Interpreter whose result is being set up. */
+    int newSpace;		/* Make sure that at least this many bytes
+				 * of new information may be added. */
+{
+    int totalSpace;
+
+    /*
+     * Make the append buffer larger, if that's necessary, then
+     * copy the current result into the append buffer and make the
+     * append buffer the official Tcl result.
+     */
+
+    if (iPtr->result != iPtr->appendResult) {
+	/*
+	 * If an oversized buffer was used recently, then free it up
+	 * so we go back to a smaller buffer.  This avoids tying up
+	 * memory forever after a large operation.
+	 */
+
+	if (iPtr->appendAvl > 500) {
+	    ckfree(iPtr->appendResult);
+	    iPtr->appendResult = NULL;
+	    iPtr->appendAvl = 0;
+	}
+	iPtr->appendUsed = strlen(iPtr->result);
+    } else if (iPtr->result[iPtr->appendUsed] != 0) {
+	/*
+	 * Most likely someone has modified a result created by
+	 * Tcl_AppendResult et al. so that it has a different size.
+	 * Just recompute the size.
+	 */
+
+	iPtr->appendUsed = strlen(iPtr->result);
+    }
+    totalSpace = newSpace + iPtr->appendUsed;
+    if (totalSpace >= iPtr->appendAvl) {
+	char *new;
+
+	if (totalSpace < 100) {
+	    totalSpace = 200;
+	} else {
+	    totalSpace *= 2;
+	}
+	new = (char *) ckalloc((unsigned) totalSpace);
+	strcpy(new, iPtr->result);
+	if (iPtr->appendResult != NULL) {
+	    ckfree(iPtr->appendResult);
+	}
+	iPtr->appendResult = new;
+	iPtr->appendAvl = totalSpace;
+    } else if (iPtr->result != iPtr->appendResult) {
+	strcpy(iPtr->appendResult, iPtr->result);
+    }
+    Tcl_FreeResult(iPtr);
+    iPtr->result = iPtr->appendResult;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_ResetResult --
+ *
+ *	This procedure restores the result area for an interpreter
+ *	to its default initialized state, freeing up any memory that
+ *	may have been allocated for the result and clearing any
+ *	error information for the interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_ResetResult(interp)
+    Tcl_Interp *interp;		/* Interpreter for which to clear result. */
+{
+    register Interp *iPtr = (Interp *) interp;
+
+    Tcl_FreeResult(iPtr);
+    iPtr->result = iPtr->resultSpace;
+    iPtr->resultSpace[0] = 0;
+    iPtr->flags &=
+	    ~(ERR_ALREADY_LOGGED | ERR_IN_PROGRESS | ERROR_CODE_SET);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_SetErrorCode --
+ *
+ *	This procedure is called to record machine-readable information
+ *	about an error that is about to be returned.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The errorCode global variable is modified to hold all of the
+ *	arguments to this procedure, in a list form with each argument
+ *	becoming one element of the list.  A flag is set internally
+ *	to remember that errorCode has been set, so the variable doesn't
+ *	get set automatically when the error is returned.
+ *
+ *----------------------------------------------------------------------
+ */
+	/* VARARGS2 */
+void
+Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,arg1)
+{
+    va_list argList;
+    char *string;
+    int flags;
+    Interp *iPtr;
+
+    /*
+     * Scan through the arguments one at a time, appending them to
+     * $errorCode as list elements.
+     */
+
+    iPtr = (Interp *) TCL_VARARGS_START(Tcl_Interp *,arg1,argList);
+    flags = TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT;
+    while (1) {
+	string = va_arg(argList, char *);
+	if (string == NULL) {
+	    break;
+	}
+	(void) Tcl_SetVar2((Tcl_Interp *) iPtr, "errorCode",
+		(char *) NULL, string, flags);
+	flags |= TCL_APPEND_VALUE;
+    }
+    va_end(argList);
+    iPtr->flags |= ERROR_CODE_SET;
+}
+
+#ifndef STk_CODE
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetListIndex --
+ *
+ *	Parse a list index, which may be either an integer or the
+ *	value "end".
+ *
+ * Results:
+ *	The return value is either TCL_OK or TCL_ERROR.  If it is
+ *	TCL_OK, then the index corresponding to string is left in
+ *	*indexPtr.  If the return value is TCL_ERROR, then string
+ *	was bogus;  an error message is returned in interp->result.
+ *	If a negative index is specified, it is rounded up to 0.
+ *	The index value may be larger than the size of the list
+ *	(this happens when "end" is specified).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclGetListIndex(interp, string, indexPtr)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    char *string;			/* String containing list index. */
+    int *indexPtr;			/* Where to store index. */
+{
+    if (isdigit(UCHAR(*string)) || (*string == '-')) {
+	if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (*indexPtr < 0) {
+	    *indexPtr = 0;
+	}
+    } else if (strncmp(string, "end", strlen(string)) == 0) {
+	*indexPtr = INT_MAX;
+    } else {
+	Tcl_AppendResult(interp, "bad index \"", string,
+		"\": must be integer or \"end\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_RegExpCompile --
+ *
+ *	Compile a regular expression into a form suitable for fast
+ *	matching.  This procedure retains a small cache of pre-compiled
+ *	regular expressions in the interpreter, in order to avoid
+ *	compilation costs as much as possible.
+ *
+ * Results:
+ *	The return value is a pointer to the compiled form of string,
+ *	suitable for passing to Tcl_RegExpExec.  This compiled form
+ *	is only valid up until the next call to this procedure, so
+ *	don't keep these around for a long time!  If an error occurred
+ *	while compiling the pattern, then NULL is returned and an error
+ *	message is left in interp->result.
+ *
+ * Side effects:
+ *	The cache of compiled regexp's in interp will be modified to
+ *	hold information for string, if such information isn't already
+ *	present in the cache.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_RegExp
+Tcl_RegExpCompile(interp, string)
+    Tcl_Interp *interp;			/* For use in error reporting. */
+    char *string;			/* String for which to produce
+					 * compiled regular expression. */
+{
+    register Interp *iPtr = (Interp *) interp;
+    int i, length;
+    regexp *result;
+
+    length = strlen(string);
+    for (i = 0; i < NUM_REGEXPS; i++) {
+	if ((length == iPtr->patLengths[i])
+		&& (strcmp(string, iPtr->patterns[i]) == 0)) {
+	    /*
+	     * Move the matched pattern to the first slot in the
+	     * cache and shift the other patterns down one position.
+	     */
+
+	    if (i != 0) {
+		int j;
+		char *cachedString;
+
+		cachedString = iPtr->patterns[i];
+		result = iPtr->regexps[i];
+		for (j = i-1; j >= 0; j--) {
+		    iPtr->patterns[j+1] = iPtr->patterns[j];
+		    iPtr->patLengths[j+1] = iPtr->patLengths[j];
+		    iPtr->regexps[j+1] = iPtr->regexps[j];
+		}
+		iPtr->patterns[0] = cachedString;
+		iPtr->patLengths[0] = length;
+		iPtr->regexps[0] = result;
+	    }
+	    return (Tcl_RegExp) iPtr->regexps[0];
+	}
+    }
+
+    /*
+     * No match in the cache.  Compile the string and add it to the
+     * cache.
+     */
+
+    TclRegError((char *) NULL);
+    result = TclRegComp(string);
+    if (TclGetRegError() != NULL) {
+	Tcl_AppendResult(interp,
+	    "couldn't compile regular expression pattern: ",
+	    TclGetRegError(), (char *) NULL);
+	return NULL;
+    }
+    if (iPtr->patterns[NUM_REGEXPS-1] != NULL) {
+	ckfree(iPtr->patterns[NUM_REGEXPS-1]);
+	ckfree((char *) iPtr->regexps[NUM_REGEXPS-1]);
+    }
+    for (i = NUM_REGEXPS - 2; i >= 0; i--) {
+	iPtr->patterns[i+1] = iPtr->patterns[i];
+	iPtr->patLengths[i+1] = iPtr->patLengths[i];
+	iPtr->regexps[i+1] = iPtr->regexps[i];
+    }
+    iPtr->patterns[0] = (char *) ckalloc((unsigned) (length+1));
+    strcpy(iPtr->patterns[0], string);
+    iPtr->patLengths[0] = length;
+    iPtr->regexps[0] = result;
+    return (Tcl_RegExp) result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_RegExpExec --
+ *
+ *	Execute the regular expression matcher using a compiled form
+ *	of a regular expression and save information about any match
+ *	that is found.
+ *
+ * Results:
+ *	If an error occurs during the matching operation then -1
+ *	is returned and interp->result contains an error message.
+ *	Otherwise the return value is 1 if a matching range is
+ *	found and 0 if there is no matching range.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_RegExpExec(interp, re, string, start)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tcl_RegExp re;		/* Compiled regular expression;  must have
+				 * been returned by previous call to
+				 * Tcl_RegExpCompile. */
+    char *string;		/* String against which to match re. */
+    char *start;		/* If string is part of a larger string,
+				 * this identifies beginning of larger
+				 * string, so that "^" won't match. */
+{
+    int match;
+
+    regexp *regexpPtr = (regexp *) re;
+    TclRegError((char *) NULL);
+    match = TclRegExec(regexpPtr, string, start);
+    if (TclGetRegError() != NULL) {
+	Tcl_ResetResult(interp);
+	Tcl_AppendResult(interp, "error while matching regular expression: ",
+		TclGetRegError(), (char *) NULL);
+	return -1;
+    }
+    return match;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_RegExpRange --
+ *
+ *	Returns pointers describing the range of a regular expression match,
+ *	or one of the subranges within the match.
+ *
+ * Results:
+ *	The variables at *startPtr and *endPtr are modified to hold the
+ *	addresses of the endpoints of the range given by index.  If the
+ *	specified range doesn't exist then NULLs are returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_RegExpRange(re, index, startPtr, endPtr)
+    Tcl_RegExp re;		/* Compiled regular expression that has
+				 * been passed to Tcl_RegExpExec. */
+    int index;			/* 0 means give the range of the entire
+				 * match, > 0 means give the range of
+				 * a matching subrange.  Must be no greater
+				 * than NSUBEXP. */
+    char **startPtr;		/* Store address of first character in
+				 * (sub-) range here. */
+    char **endPtr;		/* Store address of character just after last
+				 * in (sub-) range here. */
+{
+    regexp *regexpPtr = (regexp *) re;
+
+    if (index >= NSUBEXP) {
+	*startPtr = *endPtr = NULL;
+    } else {
+	*startPtr = regexpPtr->startp[index];
+	*endPtr = regexpPtr->endp[index];
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_RegExpMatch --
+ *
+ *	See if a string matches a regular expression.
+ *
+ * Results:
+ *	If an error occurs during the matching operation then -1
+ *	is returned and interp->result contains an error message.
+ *	Otherwise the return value is 1 if "string" matches "pattern"
+ *	and 0 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_RegExpMatch(interp, string, pattern)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    char *string;		/* String. */
+    char *pattern;		/* Regular expression to match against
+				 * string. */
+{
+    Tcl_RegExp re;
+
+    re = Tcl_RegExpCompile(interp, pattern);
+    if (re == NULL) {
+	return -1;
+    }
+    return Tcl_RegExpExec(interp, re, string, string);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringInit --
+ *
+ *	Initializes a dynamic string, discarding any previous contents
+ *	of the string (Tcl_DStringFree should have been called already
+ *	if the dynamic string was previously in use).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The dynamic string is initialized to be empty.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringInit(dsPtr)
+    register Tcl_DString *dsPtr;	/* Pointer to structure for
+					 * dynamic string. */
+{
+    dsPtr->string = dsPtr->staticSpace;
+    dsPtr->length = 0;
+    dsPtr->spaceAvl = TCL_DSTRING_STATIC_SIZE;
+    dsPtr->staticSpace[0] = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringAppend --
+ *
+ *	Append more characters to the current value of a dynamic string.
+ *
+ * Results:
+ *	The return value is a pointer to the dynamic string's new value.
+ *
+ * Side effects:
+ *	Length bytes from string (or all of string if length is less
+ *	than zero) are added to the current value of the string.  Memory
+ *	gets reallocated if needed to accomodate the string's new size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_DStringAppend(dsPtr, string, length)
+    register Tcl_DString *dsPtr;	/* Structure describing dynamic
+					 * string. */
+    char *string;			/* String to append.  If length is
+					 * -1 then this must be
+					 * null-terminated. */
+    int length;				/* Number of characters from string
+					 * to append.  If < 0, then append all
+					 * of string, up to null at end. */
+{
+    int newSize;
+    char *newString, *dst, *end;
+
+    if (length < 0) {
+	length = strlen(string);
+    }
+    newSize = length + dsPtr->length;
+
+    /*
+     * Allocate a larger buffer for the string if the current one isn't
+     * large enough.  Allocate extra space in the new buffer so that there
+     * will be room to grow before we have to allocate again.
+     */
+
+    if (newSize >= dsPtr->spaceAvl) {
+	dsPtr->spaceAvl = newSize*2;
+	newString = (char *) ckalloc((unsigned) dsPtr->spaceAvl);
+	memcpy((VOID *)newString, (VOID *) dsPtr->string,
+		(size_t) dsPtr->length);
+	if (dsPtr->string != dsPtr->staticSpace) {
+	    ckfree(dsPtr->string);
+	}
+	dsPtr->string = newString;
+    }
+
+    /*
+     * Copy the new string into the buffer at the end of the old
+     * one.
+     */
+
+    for (dst = dsPtr->string + dsPtr->length, end = string+length;
+	    string < end; string++, dst++) {
+	*dst = *string;
+    }
+    *dst = 0;
+    dsPtr->length += length;
+    return dsPtr->string;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringAppendElement --
+ *
+ *	Append a list element to the current value of a dynamic string.
+ *
+ * Results:
+ *	The return value is a pointer to the dynamic string's new value.
+ *
+ * Side effects:
+ *	String is reformatted as a list element and added to the current
+ *	value of the string.  Memory gets reallocated if needed to
+ *	accomodate the string's new size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tcl_DStringAppendElement(dsPtr, string)
+    register Tcl_DString *dsPtr;	/* Structure describing dynamic
+					 * string. */
+    char *string;			/* String to append.  Must be
+					 * null-terminated. */
+{
+    int newSize, flags;
+    char *dst, *newString;
+
+    newSize = Tcl_ScanElement(string, &flags) + dsPtr->length + 1;
+
+    /*
+     * Allocate a larger buffer for the string if the current one isn't
+     * large enough.  Allocate extra space in the new buffer so that there
+     * will be room to grow before we have to allocate again.
+     * SPECIAL NOTE: must use memcpy, not strcpy, to copy the string
+     * to a larger buffer, since there may be embedded NULLs in the
+     * string in some cases.
+     */
+
+    if (newSize >= dsPtr->spaceAvl) {
+	dsPtr->spaceAvl = newSize*2;
+	newString = (char *) ckalloc((unsigned) dsPtr->spaceAvl);
+	memcpy((VOID *) newString, (VOID *) dsPtr->string,
+		(size_t) dsPtr->length);
+	if (dsPtr->string != dsPtr->staticSpace) {
+	    ckfree(dsPtr->string);
+	}
+	dsPtr->string = newString;
+    }
+
+    /*
+     * Convert the new string to a list element and copy it into the
+     * buffer at the end, with a space, if needed.
+     */
+
+    dst = dsPtr->string + dsPtr->length;
+    if (TclNeedSpace(dsPtr->string, dst)) {
+	*dst = ' ';
+	dst++;
+	dsPtr->length++;
+    }
+    dsPtr->length += Tcl_ConvertElement(string, dst, flags);
+    return dsPtr->string;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringSetLength --
+ *
+ *	Change the length of a dynamic string.  This can cause the
+ *	string to either grow or shrink, depending on the value of
+ *	length.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The length of dsPtr is changed to length and a null byte is
+ *	stored at that position in the string.  If length is larger
+ *	than the space allocated for dsPtr, then a panic occurs.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringSetLength(dsPtr, length)
+    register Tcl_DString *dsPtr;	/* Structure describing dynamic
+					 * string. */
+    int length;				/* New length for dynamic string. */
+{
+    if (length < 0) {
+	length = 0;
+    }
+    if (length >= dsPtr->spaceAvl) {
+	char *newString;
+
+	dsPtr->spaceAvl = length+1;
+	newString = (char *) ckalloc((unsigned) dsPtr->spaceAvl);
+
+	/*
+	 * SPECIAL NOTE: must use memcpy, not strcpy, to copy the string
+	 * to a larger buffer, since there may be embedded NULLs in the
+	 * string in some cases.
+	 */
+
+	memcpy((VOID *) newString, (VOID *) dsPtr->string,
+		(size_t) dsPtr->length);
+	if (dsPtr->string != dsPtr->staticSpace) {
+	    ckfree(dsPtr->string);
+	}
+	dsPtr->string = newString;
+    }
+    dsPtr->length = length;
+    dsPtr->string[length] = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringFree --
+ *
+ *	Frees up any memory allocated for the dynamic string and
+ *	reinitializes the string to an empty state.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The previous contents of the dynamic string are lost, and
+ *	the new value is an empty string.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringFree(dsPtr)
+    register Tcl_DString *dsPtr;	/* Structure describing dynamic
+					 * string. */
+{
+    if (dsPtr->string != dsPtr->staticSpace) {
+	ckfree(dsPtr->string);
+    }
+    dsPtr->string = dsPtr->staticSpace;
+    dsPtr->length = 0;
+    dsPtr->spaceAvl = TCL_DSTRING_STATIC_SIZE;
+    dsPtr->staticSpace[0] = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringResult --
+ *
+ *	This procedure moves the value of a dynamic string into an
+ *	interpreter as its result.  The string itself is reinitialized
+ *	to an empty string.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The string is "moved" to interp's result, and any existing
+ *	result for interp is freed up.  DsPtr is reinitialized to
+ *	an empty string.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringResult(interp, dsPtr)
+    Tcl_Interp *interp;			/* Interpreter whose result is to be
+					 * reset. */
+    Tcl_DString *dsPtr;			/* Dynamic string that is to become
+					 * the result of interp. */
+{
+    Tcl_ResetResult(interp);
+    if (dsPtr->string != dsPtr->staticSpace) {
+	interp->result = dsPtr->string;
+	interp->freeProc = TCL_DYNAMIC;
+    } else if (dsPtr->length < TCL_RESULT_SIZE) {
+	interp->result = ((Interp *) interp)->resultSpace;
+	strcpy(interp->result, dsPtr->string);
+    } else {
+	Tcl_SetResult(interp, dsPtr->string, TCL_VOLATILE);
+    }
+    dsPtr->string = dsPtr->staticSpace;
+    dsPtr->length = 0;
+    dsPtr->spaceAvl = TCL_DSTRING_STATIC_SIZE;
+    dsPtr->staticSpace[0] = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringGetResult --
+ *
+ *	This procedure moves the result of an interpreter into a
+ *	dynamic string.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The interpreter's result is cleared, and the previous contents
+ *	of dsPtr are freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringGetResult(interp, dsPtr)
+    Tcl_Interp *interp;			/* Interpreter whose result is to be
+					 * reset. */
+    Tcl_DString *dsPtr;			/* Dynamic string that is to become
+					 * the result of interp. */
+{
+    Interp *iPtr = (Interp *) interp;
+    if (dsPtr->string != dsPtr->staticSpace) {
+	ckfree(dsPtr->string);
+    }
+    dsPtr->length = strlen(iPtr->result);
+    if (iPtr->freeProc != NULL) {
+	if ((iPtr->freeProc == TCL_DYNAMIC)
+		|| (iPtr->freeProc == (Tcl_FreeProc *) free)) {
+	    dsPtr->string = iPtr->result;
+	    dsPtr->spaceAvl = dsPtr->length+1;
+	} else {
+	    dsPtr->string = (char *) ckalloc((unsigned) (dsPtr->length+1));
+	    strcpy(dsPtr->string, iPtr->result);
+	    (*iPtr->freeProc)(iPtr->result);
+	}
+	dsPtr->spaceAvl = dsPtr->length+1;
+	iPtr->freeProc = NULL;
+    } else {
+	if (dsPtr->length < TCL_DSTRING_STATIC_SIZE) {
+	    dsPtr->string = dsPtr->staticSpace;
+	    dsPtr->spaceAvl = TCL_DSTRING_STATIC_SIZE;
+	} else {
+	    dsPtr->string = (char *) ckalloc((unsigned) (dsPtr->length + 1));
+	    dsPtr->spaceAvl = dsPtr->length + 1;
+	}
+	strcpy(dsPtr->string, iPtr->result);
+    }
+    iPtr->result = iPtr->resultSpace;
+    iPtr->resultSpace[0] = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringStartSublist --
+ *
+ *	This procedure adds the necessary information to a dynamic
+ *	string (e.g. " {" to start a sublist.  Future element
+ *	appends will be in the sublist rather than the main list.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Characters get added to the dynamic string.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringStartSublist(dsPtr)
+    Tcl_DString *dsPtr;			/* Dynamic string. */
+{
+    if (TclNeedSpace(dsPtr->string, dsPtr->string + dsPtr->length)) {
+	Tcl_DStringAppend(dsPtr, " {", -1);
+    } else {
+	Tcl_DStringAppend(dsPtr, "{", -1);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_DStringEndSublist --
+ *
+ *	This procedure adds the necessary characters to a dynamic
+ *	string to end a sublist (e.g. "}").  Future element appends
+ *	will be in the enclosing (sub)list rather than the current
+ *	sublist.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_DStringEndSublist(dsPtr)
+    Tcl_DString *dsPtr;			/* Dynamic string. */
+{
+    Tcl_DStringAppend(dsPtr, "}", -1);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_PrintDouble --
+ *
+ *	Given a floating-point value, this procedure converts it to
+ *	an ASCII string using.
+ *
+ * Results:
+ *	The ASCII equivalent of "value" is written at "dst".  It is
+ *	written using the current precision, and it is guaranteed to
+ *	contain a decimal point or exponent, so that it looks like
+ *	a floating-point value and not an integer.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_PrintDouble(interp, value, dst)
+    Tcl_Interp *interp;			/* Interpreter whose tcl_precision
+					 * variable controls printing. */
+    double value;			/* Value to print as string. */
+    char *dst;				/* Where to store converted value;
+					 * must have at least TCL_DOUBLE_SPACE
+					 * characters. */
+{
+    register char *p;
+    sprintf(dst, ((Interp *) interp)->pdFormat, value);
+
+    /*
+     * If the ASCII result looks like an integer, add ".0" so that it
+     * doesn't look like an integer anymore.  This prevents floating-point
+     * values from being converted to integers unintentionally.
+     */
+
+    for (p = dst; *p != 0; p++) {
+	if ((*p == '.') || (isalpha(UCHAR(*p)))) {
+	    return;
+	}
+    }
+    p[0] = '.';
+    p[1] = '0';
+    p[2] = 0;
+}
+
+#ifndef STk_CODE
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclPrecTraceProc --
+ *
+ *	This procedure is invoked whenever the variable "tcl_precision"
+ *	is written.
+ *
+ * Results:
+ *	Returns NULL if all went well, or an error message if the
+ *	new value for the variable doesn't make sense.
+ *
+ * Side effects:
+ *	If the new value doesn't make sense then this procedure
+ *	undoes the effect of the variable modification.  Otherwise
+ *	it modifies the format string that's used by Tcl_PrintDouble.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+char *
+TclPrecTraceProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Not used. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    register Interp *iPtr = (Interp *) interp;
+    char *value, *end;
+    int prec;
+
+    /*
+     * If the variable is unset, then recreate the trace and restore
+     * the default value of the format string.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_TraceVar2(interp, name1, name2,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    TclPrecTraceProc, clientData);
+	}
+	strcpy(iPtr->pdFormat, DEFAULT_PD_FORMAT);
+	iPtr->pdPrec = DEFAULT_PD_PREC;
+	return (char *) NULL;
+    }
+
+    value = Tcl_GetVar2(interp, name1, name2, flags & TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    prec = strtoul(value, &end, 10);
+    if ((prec <= 0) || (prec > TCL_MAX_PREC) || (prec > 100) ||
+	    (end == value) || (*end != 0)) {
+	char oldValue[10];
+
+	sprintf(oldValue, "%d", iPtr->pdPrec);
+	Tcl_SetVar2(interp, name1, name2, oldValue, flags & TCL_GLOBAL_ONLY);
+	return "improper value for precision";
+    }
+    sprintf(iPtr->pdFormat, "%%.%dg", prec);
+    iPtr->pdPrec = prec;
+    return (char *) NULL;
+}
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclNeedSpace --
+ *
+ *	This procedure checks to see whether it is appropriate to
+ *	add a space before appending a new list element to an
+ *	existing string.
+ *
+ * Results:
+ *	The return value is 1 if a space is appropriate, 0 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclNeedSpace(start, end)
+    char *start;		/* First character in string. */
+    char *end;			/* End of string (place where space will
+				 * be added, if appropriate). */
+{
+    /*
+     * A space is needed unless either
+     * (a) we're at the start of the string, or
+     * (b) the trailing characters of the string consist of one or more
+     *     open curly braces preceded by a space or extending back to
+     *     the beginning of the string.
+     * (c) the trailing characters of the string consist of a space
+     *	   preceded by a character other than backslash.
+     */
+
+    if (end == start) {
+	return 0;
+    }
+    end--;
+    if (*end != '{') {
+	if (isspace(UCHAR(*end)) && ((end == start) || (end[-1] != '\\'))) {
+	    return 0;
+	}
+	return 1;
+    }
+    do {
+	if (end == start) {
+	    return 0;
+	}
+	end--;
+    } while (*end == '{');
+    if (isspace(UCHAR(*end))) {
+	return 0;
+    }
+    return 1;
+}
diff --git a/Tcl/tclWinNotify.c b/Tcl/tclWinNotify.c
new file mode 100644
index 0000000..b0958c8
--- /dev/null
+++ b/Tcl/tclWinNotify.c
@@ -0,0 +1,273 @@
+/* 
+ * tclWinNotify.c --
+ *
+ *	This file contains Windows-specific procedures for the notifier,
+ *	which is the lowest-level part of the Tcl event loop.  This file
+ *	works together with ../generic/tclNotify.c.
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclWinNotify.c 1.8 96/02/29 09:19:08
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+#ifndef STk_CODE
+#  include <winsock.h>
+#endif
+
+/*
+ * The following variable is a backdoor for use by Tk.  It is set when
+ * Tk needs to process events on the Tcl event queue without reentering
+ * the system event loop.  Tk uses it to flush the Tcl event queue.
+ */
+
+static int ignoreEvents = 0;
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclWinFlushEvents --
+ *
+ *	This function is a special purpose hack to allow Tk to
+ *	process queued Window events during a recursive event loop
+ *	without looking for new events on the system event queue.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Services any pending Tcl events and calls idle handlers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TclWinFlushEvents()
+{
+    ignoreEvents = 1;
+    while (Tcl_DoOneEvent(TCL_DONT_WAIT|TCL_WINDOW_EVENTS|TCL_IDLE_EVENTS)) {
+    }
+    ignoreEvents = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_WatchFile --
+ *
+ *	Arrange for Tcl_DoOneEvent to include this file in the masks
+ *	for the next call to select.  This procedure is invoked by
+ *	event sources, which are in turn invoked by Tcl_DoOneEvent
+ *	before it invokes select.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	
+ *	The notifier will generate a file event when the I/O channel
+ *	given by fd next becomes ready in the way indicated by mask.
+ *	If fd is already registered then the old mask will be replaced
+ *	with the new one.  Once the event is sent, the notifier will
+ *	not send any more events about the fd until the next call to
+ *	Tcl_NotifyFile. 
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_WatchFile(file, mask)
+    Tcl_File file;		/* Opaque identifier for a stream. */
+    int mask;			/* OR'ed combination of TCL_READABLE,
+				 * TCL_WRITABLE, and TCL_EXCEPTION:
+				 * indicates conditions to wait for
+				 * in select. */
+{
+    int type;
+
+    (void) Tcl_GetFileInfo(file, &type);
+
+    if (type == TCL_WIN_SOCKET) {
+#ifndef STk_CODE
+	TclWinWatchSocket(file, mask);
+#endif
+    } else if (type == TCL_WIN_FILE) {
+	Tcl_Time timeout = { 0, 0 };
+
+	/*
+	 * Files are always ready under Windows, so we just set a
+	 * 0 timeout.
+	 */
+
+	Tcl_SetMaxBlockTime(&timeout);
+    } else if (type == TCL_WIN_PIPE) {
+	/*
+	 * We don't support waiting on pipes yet.
+	 */
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_FileReady --
+ *
+ *	Indicates what conditions (readable, writable, etc.) were
+ *	present on a file the last time the notifier invoked select.
+ *	This procedure is typically invoked by event sources to see
+ *	if they should queue events.
+ *
+ * Results:
+ *	The return value is 0 if none of the conditions specified by mask
+ *	was true for fd the last time the system checked.  If any of the
+ *	conditions were true, then the return value is a mask of those
+ *	that were true.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_FileReady(file, mask)
+    Tcl_File file;	/* File handle for a stream. */
+    int mask;			/* OR'ed combination of TCL_READABLE,
+				 * TCL_WRITABLE, and TCL_EXCEPTION:
+				 * indicates conditions caller cares about. */
+{
+    int type;
+
+    (void) Tcl_GetFileInfo(file, &type);
+
+    if (type == TCL_WIN_SOCKET) {
+#ifndef STk_CODE
+	return TclWinSocketReady(file, mask);
+#endif
+    } else if (type == TCL_WIN_FILE) {
+	/*
+	 * Under Windows, files are always ready, so we just return the
+	 * mask that was passed in.
+	 */
+
+	return mask;
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_WaitForEvent --
+ *
+ *	This procedure does the lowest level wait for events in a
+ *	platform-specific manner.  It uses information provided by
+ *	previous calls to Tcl_WatchFile, plus the timePtr argument,
+ *	to determine what to wait for and how long to wait.
+ *
+ * Results:
+ *	The return value is normally TCL_OK.  However, if there are
+ *	no events to wait for (e.g. no files and no timers) so that
+ *	the procedure would block forever, then it returns TCL_ERROR.
+ *
+ * Side effects:
+ *	May put the process to sleep for a while, depending on timePtr.
+ *	When this procedure returns, an event of interest to the application
+ *	has probably, but not necessarily, occurred.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_WaitForEvent(timePtr)
+    Tcl_Time *timePtr;		/* Specifies the maximum amount of time
+				 * that this procedure should block before
+				 * returning.  The time is given as an
+				 * interval, not an absolute wakeup time.
+				 * NULL means block forever. */
+{
+    MSG msg;
+    int foundEvent = 1;
+
+    /*
+     * If we are ignoring events from the system, just return immediately.
+     */
+
+    if (ignoreEvents) {
+	return TCL_OK;
+    }
+
+    /*
+     * Set up the asynchronous select handlers for any sockets we
+     * are watching.
+     */
+#ifndef STk_CODE
+    TclWinNotifySocket();
+#endif
+
+    /*
+     * Look for an event, setting a timer so we don't block forever.
+     */
+
+    if (timePtr != NULL) {
+	UINT ms;
+	ms = timePtr->sec * 1000;
+	ms += timePtr->usec / 1000;
+
+	if (ms > 0) {
+	    UINT timerHandle = SetTimer(NULL, 0, ms, NULL);
+	    GetMessage(&msg, NULL, 0, 0);
+	    KillTimer(NULL, timerHandle);
+	} else {
+
+	    /*
+	     * If the timeout is too small, we just poll.
+	     */
+
+	    foundEvent = PeekMessage(&msg, NULL, 0, 0, PM_REMOVE);
+	}
+    } else {
+	GetMessage(&msg, NULL, 0, 0);
+    }
+
+    /*
+     * Dispatch the message, if we found one.  If we are exiting, be
+     * sure to inform Tcl so we can clean up properly.
+     */
+
+    if (foundEvent) {
+	if (msg.message == WM_QUIT) {
+	    Tcl_Exit(0);
+	}
+	TranslateMessage(&msg);
+	DispatchMessage(&msg);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_Sleep --
+ *
+ *	Delay execution for the specified number of milliseconds.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Time passes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tcl_Sleep(ms)
+    int ms;			/* Number of milliseconds to sleep. */
+{
+    Sleep(ms);
+}
diff --git a/Tcl/tclWinPort.h b/Tcl/tclWinPort.h
new file mode 100644
index 0000000..6d604d3
--- /dev/null
+++ b/Tcl/tclWinPort.h
@@ -0,0 +1,369 @@
+/*
+ * tclWinPort.h --
+ *
+ *	This header file handles porting issues that occur because of
+ *	differences between Windows and Unix. It should be the only
+ *	file that contains #ifdefs to handle different flavors of OS.
+ *
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclWinPort.h 1.32 96/03/25 17:14:38
+ */
+
+#ifndef _TCLWINPORT
+#define _TCLWINPORT
+
+#include <malloc.h>
+#include <stdio.h>
+
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <process.h>
+#include <signal.h>
+#include <winsock.h>
+#include <sys/stat.h>
+#include <sys/timeb.h>
+#include <time.h>
+#include <io.h>
+#include <fcntl.h>
+
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+#undef WIN32_LEAN_AND_MEAN
+
+/*
+ * Define EINPROGRESS in terms of WSAEINPROGRESS.
+ */
+
+#ifndef	EINPROGRESS
+#define EINPROGRESS WSAEINPROGRESS
+#endif
+
+/*
+ * If ENOTSUP is not defined, define it to a value that will never occur.
+ */
+
+#ifndef ENOTSUP
+#define	ENOTSUP		-1030507
+#endif
+
+/*
+ * The default platform eol translation on Windows is TCL_TRANSLATE_CRLF:
+ */
+
+#define	TCL_PLATFORM_TRANSLATION	TCL_TRANSLATE_CRLF
+
+/*
+ * Declare dynamic loading extension macro.
+ */
+
+#define TCL_SHLIB_EXT ".dll"
+
+/*
+ * Supply definitions for macros to query wait status, if not already
+ * defined in header files above.
+ */
+
+#if TCL_UNION_WAIT
+#   define WAIT_STATUS_TYPE union wait
+#else
+#   define WAIT_STATUS_TYPE int
+#endif
+
+#ifndef WIFEXITED
+#   define WIFEXITED(stat)  (((*((int *) &(stat))) & 0xff) == 0)
+#endif
+
+#ifndef WEXITSTATUS
+#   define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xff)
+#endif
+
+#ifndef WIFSIGNALED
+#   define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0x00ff)))
+#endif
+
+#ifndef WTERMSIG
+#   define WTERMSIG(stat)    ((*((int *) &(stat))) & 0x7f)
+#endif
+
+#ifndef WIFSTOPPED
+#   define WIFSTOPPED(stat)  (((*((int *) &(stat))) & 0xff) == 0177)
+#endif
+
+#ifndef WSTOPSIG
+#   define WSTOPSIG(stat)    (((*((int *) &(stat))) >> 8) & 0xff)
+#endif
+
+/*
+ * Define constants for waitpid() system call if they aren't defined
+ * by a system header file.
+ */
+
+#ifndef WNOHANG
+#   define WNOHANG 1
+#endif
+#ifndef WUNTRACED
+#   define WUNTRACED 2
+#endif
+
+/*
+ * Define MAXPATHLEN in terms of MAXPATH if available
+ */
+
+#ifndef MAXPATH
+#define MAXPATH MAX_PATH
+#endif /* MAXPATH */
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN MAXPATH
+#endif /* MAXPATHLEN */
+
+#ifndef F_OK
+#    define F_OK 00
+#endif
+#ifndef X_OK
+#    define X_OK 01
+#endif
+#ifndef W_OK
+#    define W_OK 02
+#endif
+#ifndef R_OK
+#    define R_OK 04
+#endif
+
+/*
+ * On systems without symbolic links (i.e. S_IFLNK isn't defined)
+ * define "lstat" to use "stat" instead.
+ */
+
+#ifndef S_IFLNK
+#   define lstat stat
+#endif
+
+/*
+ * Define macros to query file type bits, if they're not already
+ * defined.
+ */
+
+#ifndef S_ISREG
+#   ifdef S_IFREG
+#       define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
+#   else
+#       define S_ISREG(m) 0
+#   endif
+# endif
+#ifndef S_ISDIR
+#   ifdef S_IFDIR
+#       define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+#   else
+#       define S_ISDIR(m) 0
+#   endif
+# endif
+#ifndef S_ISCHR
+#   ifdef S_IFCHR
+#       define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
+#   else
+#       define S_ISCHR(m) 0
+#   endif
+# endif
+#ifndef S_ISBLK
+#   ifdef S_IFBLK
+#       define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
+#   else
+#       define S_ISBLK(m) 0
+#   endif
+# endif
+#ifndef S_ISFIFO
+#   ifdef S_IFIFO
+#       define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
+#   else
+#       define S_ISFIFO(m) 0
+#   endif
+# endif
+#ifndef S_ISLNK
+#   ifdef S_IFLNK
+#       define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
+#   else
+#       define S_ISLNK(m) 0
+#   endif
+# endif
+#ifndef S_ISSOCK
+#   ifdef S_IFSOCK
+#       define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
+#   else
+#       define S_ISSOCK(m) 0
+#   endif
+# endif
+
+/*
+ * Define pid_t and uid_t if they're not already defined.
+ */
+
+#if ! TCL_PID_T
+#   define pid_t int
+#endif
+#if ! TCL_UID_T
+#   define uid_t int
+#endif
+
+/*
+ * Provide an implementation of TclSetSystemEnv in terms of the equivalent
+ * Win32 call.
+ */
+
+#define TclSetSystemEnv(a,b) SetEnvironmentVariable(a,b)
+
+/*
+ * Provide a stub definition for TclGetUserHome().
+ */
+
+#define TclGetUserHome(name,bufferPtr) (NULL)
+
+/*
+ * Visual C++ has some odd names for common functions, so we need to
+ * define a few macros to handle them.  Also, it defines EDEADLOCK and
+ * EDEADLK as the same value, which confuses Tcl_ErrnoId().
+ */
+
+#ifdef _MSC_VER
+#    define environ _environ
+#    define hypot _hypot
+#    define exception _exception
+#    undef EDEADLOCK
+#endif /* _MSC_VER */
+
+/*
+ * The following defines redefine the Windows Socket errors as
+ * BSD errors so Tcl_PosixError can do the right thing.
+ */
+
+#ifndef EWOULDBLOCK
+#define EWOULDBLOCK             EAGAIN
+#endif
+#ifndef EALREADY
+#define EALREADY	149	/* operation already in progress */
+#endif
+#ifndef ENOTSOCK
+#define ENOTSOCK	95	/* Socket operation on non-socket */
+#endif
+#ifndef EDESTADDRREQ
+#define EDESTADDRREQ	96	/* Destination address required */
+#endif
+#ifndef EMSGSIZE
+#define EMSGSIZE	97	/* Message too long */
+#endif
+#ifndef EPROTOTYPE
+#define EPROTOTYPE	98	/* Protocol wrong type for socket */
+#endif
+#ifndef ENOPROTOOPT
+#define ENOPROTOOPT	99	/* Protocol not available */
+#endif
+#ifndef EPROTONOSUPPORT
+#define EPROTONOSUPPORT	120	/* Protocol not supported */
+#endif
+#ifndef ESOCKTNOSUPPORT
+#define ESOCKTNOSUPPORT	121	/* Socket type not supported */
+#endif
+#ifndef EOPNOTSUPP
+#define EOPNOTSUPP	122	/* Operation not supported on socket */
+#endif
+#ifndef EPFNOSUPPORT
+#define EPFNOSUPPORT	123	/* Protocol family not supported */
+#endif
+#ifndef EAFNOSUPPORT
+#define EAFNOSUPPORT	124	/* Address family not supported */
+#endif
+#ifndef EADDRINUSE
+#define EADDRINUSE	125	/* Address already in use */
+#endif
+#ifndef EADDRNOTAVAIL
+#define EADDRNOTAVAIL	126	/* Can't assign requested address */
+#endif
+#ifndef ENETDOWN
+#define ENETDOWN	127	/* Network is down */
+#endif
+#ifndef ENETUNREACH
+#define ENETUNREACH	128	/* Network is unreachable */
+#endif
+#ifndef ENETRESET
+#define ENETRESET	129	/* Network dropped connection on reset */
+#endif
+#ifndef ECONNABORTED
+#define ECONNABORTED	130	/* Software caused connection abort */
+#endif
+#ifndef ECONNRESET
+#define ECONNRESET	131	/* Connection reset by peer */
+#endif
+#ifndef ENOBUFS
+#define ENOBUFS		132	/* No buffer space available */
+#endif
+#ifndef EISCONN
+#define EISCONN		133	/* Socket is already connected */
+#endif
+#ifndef ENOTCONN
+#define ENOTCONN	134	/* Socket is not connected */
+#endif
+#ifndef ESHUTDOWN
+#define ESHUTDOWN	143	/* Can't send after socket shutdown */
+#endif
+#ifndef ETOOMANYREFS
+#define ETOOMANYREFS	144	/* Too many references: can't splice */
+#endif
+#ifndef ETIMEDOUT
+#define ETIMEDOUT	145	/* Connection timed out */
+#endif
+#ifndef ECONNREFUSED
+#define ECONNREFUSED	146	/* Connection refused */
+#endif
+#ifndef ELOOP
+#define ELOOP		90	/* Symbolic link loop */
+#endif
+#ifndef EHOSTDOWN
+#define EHOSTDOWN	147	/* Host is down */
+#endif
+#ifndef EHOSTUNREACH
+#define EHOSTUNREACH	148	/* No route to host */
+#endif
+#ifndef ENOTEMPTY
+#define ENOTEMPTY 	93	/* directory not empty */
+#endif
+#ifndef EUSERS
+#define EUSERS		94	/* Too many users (for UFS) */
+#endif
+#ifndef EDQUOT
+#define EDQUOT		49	/* Disc quota exceeded */
+#endif
+#ifndef ESTALE
+#define ESTALE		151	/* Stale NFS file handle */
+#endif
+#ifndef EREMOTE
+#define EREMOTE		66	/* The object is remote */
+#endif
+
+/*
+ * The following implements the Windows method for exiting the process.
+ */
+#define TclPlatformExit(status) exit(status)
+
+
+/*
+ * Declarations for Windows specific functions.
+ */
+
+#ifndef STk_CODE
+   //* This is necesary to compile socket.c (FIXME) */
+EXTERN void		TclWinConvertError _ANSI_ARGS_((DWORD errCode));
+EXTERN void		TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
+EXTERN HINSTANCE	TclWinGetTclInstance _ANSI_ARGS_((void));
+EXTERN HINSTANCE	TclWinLoadLibrary _ANSI_ARGS_((char *name));
+EXTERN void		TclWinNotifySocket _ANSI_ARGS_((void));
+EXTERN int		TclWinSocketReady _ANSI_ARGS_((Tcl_File file,
+			    int mask));
+EXTERN void		TclWinWatchSocket _ANSI_ARGS_((Tcl_File file,
+			    int mask));
+#endif
+#endif /* _TCLWINPORT */
diff --git a/Tcl/tclWinTime.c b/Tcl/tclWinTime.c
new file mode 100644
index 0000000..6c8ac71
--- /dev/null
+++ b/Tcl/tclWinTime.c
@@ -0,0 +1,127 @@
+/* 
+ * tclWinTime.c --
+ *
+ *	Contains Windows specific versions of Tcl functions that
+ *	obtain time values from the operating system.
+ *
+ * Copyright 1995 by Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tclWinTime.c 1.4 96/04/02 18:49:06
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetSeconds --
+ *
+ *	This procedure returns the number of seconds from the epoch.
+ *	On most Unix systems the epoch is Midnight Jan 1, 1970 GMT.
+ *
+ * Results:
+ *	Number of seconds from the epoch.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+unsigned long
+TclGetSeconds()
+{
+    return (unsigned long) time((time_t *) NULL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetClicks --
+ *
+ *	This procedure returns a value that represents the highest
+ *	resolution clock available on the system.  There are no
+ *	guarantees on what the resolution will be.  In Tcl we will
+ *	call this value a "click".  The start time is also system
+ *	dependant.
+ *
+ * Results:
+ *	Number of clicks from some start time.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+unsigned long
+TclGetClicks()
+{
+    return GetTickCount();
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetTimeZone --
+ *
+ *	Determines the current timezone.  The method varies wildly
+ *	between different Platform implementations, so its hidden in
+ *	this function.
+ *
+ * Results:
+ *	Hours east of GMT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TclGetTimeZone (currentTime)
+    unsigned long  currentTime;
+{
+    static int setTZ = 0;
+    int timeZone;
+
+    if (!setTZ) {
+        tzset();
+        setTZ = 1;
+    }
+    timeZone = _timezone / 60;
+
+    return timeZone;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetTime --
+ *
+ *	Gets the current system time in seconds and microseconds
+ *	since the beginning of the epoch: 00:00 UCT, January 1, 1970.
+ *
+ * Results:
+ *	Returns the current time in timePtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TclGetTime(timePtr)
+    Tcl_Time *timePtr;		/* Location to store time information. */
+{
+    struct timeb t;
+
+    ftime(&t);
+    timePtr->sec = t.time;
+    timePtr->usec = t.millitm * 1000;
+}
diff --git a/Tk/Makefile b/Tk/Makefile
new file mode 100644
index 0000000..08c6e0a
--- /dev/null
+++ b/Tk/Makefile
@@ -0,0 +1,26 @@
+#
+# Tk Makefile for unix (this is just a relay Makefile)
+#
+#           Author: Erick Gallesio [eg@unice.fr]
+#    Creation date: 20-Feb-1996 09:49
+# Last file update: 24-Jul-1996 15:00
+#
+
+include ../config.make
+
+libtk.a:
+	(cd $(FLAVOR); $(MAKE) libtk.a)
+
+install:
+	(cd $(FLAVOR); $(MAKE) install)
+
+install.libs:
+	(cd $(FLAVOR); $(MAKE) install.libs)
+
+clean:
+	(cd $(FLAVOR); $(MAKE) clean)
+	rm -f config.*
+
+
+
+
diff --git a/Tk/README b/Tk/README
new file mode 100644
index 0000000..7c94b06
--- /dev/null
+++ b/Tk/README
@@ -0,0 +1,317 @@
+The Tk Toolkit
+
+SCCS: @(#) README 1.32 96/07/31 16:29:10
+
+1. Introduction
+---------------
+
+This directory and its descendants contain the sources and documentation
+for Tk, an X11 toolkit implemented with the Tcl scripting language.  The
+information here corresponds to Tk 4.1.  This release is designed to work
+with Tcl 7.5 and may not work with any other version of Tcl.
+
+The main new feature in this release is support for the Mac and PC
+platforms.  Aside from the ports, the release consists mostly of bug
+fixes.  There are no major new features.
+
+2. Documentation
+----------------
+
+The best way to get started with Tk is to read one of the introductory
+books on Tcl and Tk:
+
+    Tcl and the Tk Toolkit, by John Ousterhout,
+    Addison-Wesley, 1994, ISBN 0-201-63337-X
+
+    Practical Programming in Tcl and Tk, by Brent Welch,
+    Prentice-Hall, 1995, ISBN 0-13-182007-9
+
+The "doc" subdirectory in this release contains a complete set of
+reference manual entries for Tk.  Files with extension ".1" are for
+programs such as wish; files with extension ".3" are for C library
+procedures; and files with extension ".n" describe Tcl commands.  To
+print any of the manual entries, cd to the "doc" directory and invoke
+your favorite variant of troff using the normal -man macros, for example
+
+		ditroff -man wish.1
+
+to print wish.1.  If Tk has been installed correctly and your "man"
+program supports it, you should be able to access the Tcl manual entries
+using the normal "man" mechanisms, such as
+
+		man wish
+
+If you are porting Tk 3.6 scripts to Tk 4.0, you may find the Postscript
+file doc/tk4.0.ps useful.  It is a porting guide that summarizes the
+new features and discusses how to deal with the changes in Tk 4.0
+that are not backwards compatible.
+
+There is also an official home for Tcl and Tk on the Web:
+	http://www.smli.com/research/tcl
+These Web pages include release updates, reports on bug fixes and porting
+issues, HTML versions of the manual pages, and pointers to many other
+Tcl/Tk Web pages at other sites.  Check them out!
+
+3. Compiling and installing Tk
+------------------------------
+
+This release contains everything you should need to compile and run
+Tk under UNIX, Macintoshes, and PCs (either Windows NT, Windows 95,
+or Win 3.1 with Win32s).
+
+Before trying to compile Tk you should do the following things:
+
+    (a) Check for a binary release.  Pre-compiled binary releases are
+        available now for PCs and Macintoshes, and several flavors of
+        UNIX.  Binary releases are much easier to install than source
+        releases.  To find out whether a binary release is available for
+        your platform, check the home page for the Sun Tcl/Tk project
+        (http://www.sunlabs.com/research/tcl) and also check in the FTP
+        directory from which you retrieved the base distribution.
+
+    (b) Make sure you have the most recent patch release.  Look in the
+	FTP directory from which you retrieved this distribution to see
+	if it has been updated with patches.  Patch releases fix bugs
+	without changing any features, so you should normally use the
+	latest patch release for the version of Tcl that you want. 
+	Patch releases are available in two forms.  A file like
+	tk4.1p1.tar.Z is a complete release for patch level 1 of Tk
+	version 4.1.  If there is a file with a higher patch level than
+	this release, just fetch the file with the highest patch level
+	and use it.
+
+	Patches are also available in the form of patch files that just
+	contain the changes from one patch level to another.  These
+	files have names like tk4.1p1.patch, tk4.1p2.patch, etc.  They
+	may also have .gz or .Z extensions to indicate compression.  To
+	use one of these files, you apply it to an existing release with
+	the "patch" program.  Patches must be applied in order:
+	tk4.1p1.patch must be applied to an unpatched Tk 4.1 release
+	to produce a Tk 4.1p1 release;  tk4.1p2.patch can then be
+	applied to Tk 4.1p1 to produce Tk 4.1p2, and so on. To apply an
+	uncompressed patch file such as tk4.1p1.patch, invoke a shell
+	command like the following from the directory containing this
+	file:
+	    patch -p < tk4.1p1.patch
+	If the patch file has a .gz extension, it was compressed with
+	gzip.  To apply it, invoke a command like the following:
+	    gunzip -c tk4.1p1.patch.gz | patch -p
+	If the patch file has a .Z extension, it was compressed with
+	compress.  To apply it, invoke a command like the following:
+	    zcat tk4.1p1.patch.Z | patch -p
+	If you're applying a patch to a release that has already been
+	compiled, then before applying the patch you should cd to the
+	"unix" subdirectory and type "make distclean" to restore the
+	directory to a pristine state.
+
+Once you've done this, change to the "unix" subdirectory if you're
+compiling under UNIX, "win" if you're compiling under Windows, or
+"mac" if you're compiling on a Macintosh.  Then follow the instructions
+in the README file in that directory for compiling Tk, installing it,
+and running the test suite.
+
+4. Getting started
+------------------
+
+The best way to get started with Tk is by reading one of the introductory
+books.
+
+The subdirectory library/demos contains a number of pre-canned scripts
+that demonstrate various features of Tk.  See the README file in the
+directory for a description of what's available.  The file
+library/demos/widget is a script that you can use to invoke many individual
+demonstrations of Tk's facilities, see the code that produced the demos,
+and modify the code to try out alternatives.
+
+5. Summary of changes in Tk 4.1
+-------------------------------
+
+The main change for Tk 4.1 is that Tk now runs on Macintosh and
+PC platforms as well as UNIX.  The PC port runs under Windows 3.1
+(with Win32s), Windows 95, and Windows NT.  This required a lot of
+reorganization of the sources but it didn't require any changes to
+Tk's externally visible interfaces.
+
+Besides the ports and numerous bug fixes, Tk 4.1 contains the following
+new features.  Existing scripts for Tk 4.0 should run unchanged under
+Tk 4.1.
+
+    1. There is a new command "grid" that implements a table style of
+       geometry management.   This will be used by future releases of
+       the SpecTcl GUI builder.
+
+    2. The wish main program now supports -visual and -colormap command-
+       line arguments.
+
+    3. Text widgets have been improved in several ways:
+	- Performance when there are many tags should be much better now;
+	  tags should only be slow if there are a very large number of tags
+	  on an individual character.
+	- There are new "dump", "mark next", "mark prev" and "tag prevrange"
+	  widget commands for extracting information out of a text widget.
+
+    4. Tk is now a first-class Tcl package (in the sense of the new
+       Tcl "package" command).  You can load Tk into a slave interpreter
+       "foo" with the command "load {} Tk foo" if Tk is statically
+       linked.  Tk can also be compiled as a shared library using the
+       --enable-shared switch for "configure".
+
+    5. The event loop has moved to Tcl.  Many procedures and #defines
+       have been renamed, such as the "tkerror" command (now "bgerror"),
+       TK_READABLE (now TCL_READABLE), and Tk_DoOneEvent (now
+       Tcl_DoOneEvent).  All of the old Tk names are still supported
+       for backwards compatibility but you should switch over ASAP to
+       the new ones.
+
+    6. Tk_Preserve, Tk_Release, and Tk_Eventually have been moved to Tcl.
+       There are #defines in tk.h for backward compatibility, but you
+       should switch ASAP to the new Tcl APIs.
+
+    7. There is a new command "after info" that allows you to find out about
+       pending "after" handlers that haven't yet fired.
+
+    8. Scrollbars and scales now have proper button 2 support as required
+       by Motif.
+
+    9. Menus have two new options, -transient and -tearoffcommand.
+
+    10. Entries have a new "bbox" widget command.
+
+    11. When manual pages are installed, additional links are created for
+       each of the procedures described in the manual page, so that it's
+       easier to invoke the "man" command.
+
+    12. Wish supports a new "--" option:  it will only process options
+       up through the --;  anything after that will be passed through
+       to the application in the argc and argv variables.
+
+Although Tk 4.1 is compatible with Tk 4.0 scripts at the Tcl level,
+there are a few incompatible changes in Tk's C APIs.  These will
+only affect C code, not Tcl/Tk scripts, and they are obscure enough that
+they probably won't affect many existing extensions.  If there are any
+potential problems, they will be detected by an ANSI-compliant C compiler
+such as gcc.
+
+    1. The procedure Tk_CreateMainWindow no longer exists.  Instead,
+       Tk_Init does everything that Tk_CreateMainWindow used to do.
+
+    2. The procedures Tk_EventInit and Tk_CreateFileHandler2 have been
+       eliminated.  Tk_EventInit is no longer needed since the event loop
+       is always available.  Tk_CreateFileHandler doesn't make sense with
+       the new notifier in Tcl, but you can get the same effect with the
+       new "event source" mechanism (see the Notifier.3 manual entry in
+       Tcl).
+
+    3. Tk doesn't export any global C variables anymore, because this
+       doesn't work with Windows DLLs.  The C variable tk_NumMainWindows
+       has been replaced with the procedures Tk_GetNumMainWindows(), and
+       the variable tk_CanvasTagsOption has been replaced with the
+       procedures Tk_CanvasTagsParseProc and Tk_CanvasTagsPrintProc.
+
+    4. The interface to Tk_RestrictProc has changed so that the restrict
+       procedure can ask for an event to be discarded, as well as processed
+       or deferred.
+
+For a complete list of all the changes in this release, see the file
+"changes" in this directory.
+
+6. Tcl/Tk newsgroup
+-------------------
+
+There is a network news group "comp.lang.tcl" intended for the exchange
+of information about Tcl, Tk, and related applications.  Feel free to use
+this newsgroup both for general information questions and for bug reports.
+We read the newsgroup and will attempt to fix bugs and problems reported
+to it.
+
+When using comp.lang.tcl, please be sure that your e-mail return address
+is correctly set in your postings.  This allows people to respond directly
+to you, rather than the entire newsgroup, for answers that are not of
+general interest.  A bad e-mail return address may prevent you from
+getting answers to your questions.  You may have to reconfigure your news
+reading software to ensure that it is supplying valid e-mail addresses.
+
+7. Tcl/Tk contributed archive
+--------------------------
+
+Many people have created exciting packages and applications based on Tcl
+and/or Tk and made them freely available to the Tcl community.  An archive
+of these contributions is kept on the machine ftp.neosoft.com.  You
+can access the archive using anonymous FTP;  the Tcl contributed archive is
+in the directory "/pub/tcl".  The archive also contains several FAQ
+("frequently asked questions") documents that provide solutions to problems
+that are commonly encountered by TCL newcomers.
+
+8. Support and bug fixes
+------------------------
+
+We're very interested in receiving bug reports and suggestions for
+improvements.  We prefer that you send this information to the
+comp.lang.tcl newsgroup rather than to any of us at Sun.  We'll see
+anything on comp.lang.tcl, and in addition someone else who reads 
+omp.lang.tcl may be able to offer a solution.  The normal turn-around
+time for bugs is 2-4 weeks.  Enhancements may take longer and may not
+happen at all unless there is widespread support for them (we're
+trying to slow the rate at which Tk turns into a kitchen sink).  It's
+very difficult to make incompatible changes to Tcl at this point, due
+to the size of the installed base.
+
+When reporting bugs, please provide a short wish script that we can
+use to reproduce the bug.  Make sure that the script runs with a
+bare-bones wish and doesn't depend on any extensions or other
+programs, particularly those that exist only at your site.  Also,
+please include three additional pieces of information with the
+script:
+    (a) how do we use the script to make the problem happen (e.g.
+	what things do we click on, in what order)?
+    (b) what happens when you do these things (presumably this is
+        undesirable)?
+    (c) what did you expect to happen instead?
+
+The Tcl/Tk community is too large for us to provide much individual
+support for users.  If you need help we suggest that you post questions
+to comp.lang.tcl.  We read the newsgroup and will attempt to answer
+esoteric questions for which no-one else is likely to know the answer.
+In addition, Tcl/Tk support and training are available commercially from
+NeoSoft (info@neosoft.com), Computerized Processes Unlimited
+(gwl@cpu.com), and Data Kinetics (education@dkl.com).
+
+9. Release organization
+------------------------
+
+Each Tk release is identified by two numbers separated by a dot, e.g.
+3.2 or 3.3.  If a new release contains changes that are likely to break
+existing C code or Tcl scripts then the major release number increments
+and the minor number resets to zero: 3.0, 4.0, etc.  If a new release
+contains only bug fixes and compatible changes, then the minor number
+increments without changing the major number, e.g. 3.1, 3.2, etc.  If
+you have C code or Tcl scripts that work with release X.Y, then they
+should also work with any release X.Z as long as Z > Y.
+
+Alpha and beta releases have an additional suffix of the form a2 or b1.
+For example, Tk 3.3b1 is the first beta release of Tk version 3.3,
+Tk 3.3b2 is the second beta release, and so on.  A beta release is an
+initial version of a new release, used to fix bugs and bad features
+before declaring the release stable.  An alpha release is like a beta
+release, except it's likely to need even more work before it's "ready
+for prime time".  New releases are normally preceded by one or more
+alpha and beta releases.  We hope that lots of people will try out
+the alpha and beta releases and report problems.  We'll make new alpha/
+beta releases to fix the problems, until eventually there is a beta
+release that appears to be stable.  Once this occurs we'll make the
+final release.
+
+We can't promise to maintain compatibility among alpha and beta releases.
+For example, release 4.1b2 may not be backward compatible with 4.1b1, even
+though the final 4.1 release will be backward compatible with 4.0.  This
+allows us to change new features as we find problems during beta testing.
+We'll try to minimize incompatibilities between beta releases, but if a
+major problem turns up then we'll fix it even if it introduces an
+incompatibility.  Once the official release is made then there won't
+be any more incompatibilities until the next release with a new major
+version number.
+
+Patch releases have a suffix such as p1 or p2.  These releases contain
+bug fixes only.  A patch release (e.g Tk 4.1p2) should be completely
+compatible with the base release from which it is derived (e.g. Tk
+4.1), and you should normally use the highest available patch release.
diff --git a/Tk/ToDo b/Tk/ToDo
new file mode 100644
index 0000000..683dc80
--- /dev/null
+++ b/Tk/ToDo
@@ -0,0 +1,90 @@
+This file contains a list of bugs to fix and minor feature changes
+needed in the Tk toolkit.  The list is ordered by the time when the
+idea for the change first arose;  no priority should be inferred from
+the order.
+
+sccsid = SCCS: @(#) ToDo 1.8 96/02/16 10:55:14
+
+106. Add feature to buttons for automatic defaulting, where button
+allocates extra space for default ring.
+
+136. Implement mechanism for using existing window as main window for
+application, support with command-line argument in wish.
+
+139. Change canvas Postscript generation to be smarter about font names
+that have been abbreviated:  use X to look up the full name.
+
+147. Add "window" entry to menus.
+
+148. Add an "initProc" and a "freeProc" to TK_CONFIG_CUSTOM config types.
+
+150. In SYNONYM options, specify a command-line switch for the other
+option, not a database name.
+
+153. Some fonts (e.g. Times) have underline characters that extend
+*below* the official descent of the font.  Right now the underline
+is invisible for these fonts in text widgets.  Find a way to make
+this work in text?
+
+150. Change the bindings for menubuttons to watch mouse motion events
+and map them to menu or menubutton windows "by hand", so as to eliminate
+the need for a menu to be a descendant of the menubutton.
+
+151. Create an I/O event handler so that Tk can continue after a server
+connection is lost.
+
+153. Allow Tk applications to be embedded inside other Tk applications:
+    - Allow the window for a widget to be specified explicitly, rather
+      than being created automatically by Tk.  This would allow the
+      main window for one application to use an internal window that
+      already exists in another application.
+    - Modify wish's main.c to allow a window id for the main window to
+      be specified as a command-line argument.
+    - Build a special widget for embedding other applications, which will
+      implement the window-manager side of the ICCCM protocols, e.g.,
+      feeding requested size information up from the embedded application
+      into the enclosing widget hierarchy.
+
+154. Improvements to canvases:
+    - Allow items to be rotated?
+    - Allow polygons to be outlined.
+    - Make "raise" of window items work correctly.
+    - In the "find" widget option, make it possible to restrict search
+      to a particular tag.
+    - Allow items to become visible/invisible.
+
+156. Add a "wm anchor" option to make it easier to center windows.
+
+157. Various improvements to option database:
+    - Allow patterns to be read from database or deleted from database.
+    - Allow database to be cleared without automatically reloading from
+      .Xdefaults files.
+    - Allow additional info to be read from various window properties.
+    - Support new wildcards from X11R5.
+    - Allow mechanism to extend to cover cases where there isn't even
+      a window, or even an application by the name used in the option
+      get command.
+    - Allow options in database to override those specified on Tcl
+      command lines?
+    - Revert to X conflict-resolution scheme?
+
+158. Make it possible for wish to run without a display.
+
+159. Change option tables to be arrays of pointers, rather than arrays of
+entries?  Makes it easier to keep separate named structures for particular
+options, e.g. so that you can tell when an option has changed.
+
+160. Change text scrolling so that the top of the window can fall in
+the middle of a text line.
+
+161. Allow text tabs to be specified in units of characters, rather
+than just inches.
+
+162. Fix tk_strictMotif to make it easier to turn on and off (e.g.
+conditionalize the binding scripts, rather than the creation of
+the bindings).
+
+163. Change text bindings so that Enter and Leave events occur when
+the mouse moves between disjoint ranges with the same tag.
+
+164. Provide block insertion cursor in text widgets.
diff --git a/Tk/bitmaps/error.bmp b/Tk/bitmaps/error.bmp
new file mode 100644
index 0000000..5a1331f
--- /dev/null
+++ b/Tk/bitmaps/error.bmp
@@ -0,0 +1,8 @@
+#define error_width 17
+#define error_height 17
+static unsigned char error_bits[] = {
+   0xf0, 0x0f, 0x00, 0x58, 0x15, 0x00, 0xac, 0x2a, 0x00, 0x16, 0x50, 0x00,
+   0x2b, 0xa0, 0x00, 0x55, 0x40, 0x01, 0xa3, 0xc0, 0x00, 0x45, 0x41, 0x01,
+   0x83, 0xc2, 0x00, 0x05, 0x45, 0x01, 0x03, 0xca, 0x00, 0x05, 0x74, 0x01,
+   0x0a, 0xa8, 0x00, 0x14, 0x58, 0x00, 0xe8, 0x2f, 0x00, 0x50, 0x15, 0x00,
+   0xa0, 0x0a, 0x00};
diff --git a/Tk/bitmaps/gray12.bmp b/Tk/bitmaps/gray12.bmp
new file mode 100644
index 0000000..a0eafa1
--- /dev/null
+++ b/Tk/bitmaps/gray12.bmp
@@ -0,0 +1,6 @@
+#define gray12_width 16
+#define gray12_height 16
+static unsigned char gray12_bits[] = {
+   0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22,
+   0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88,
+   0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88};
diff --git a/Tk/bitmaps/gray25.bmp b/Tk/bitmaps/gray25.bmp
new file mode 100644
index 0000000..ae2000d
--- /dev/null
+++ b/Tk/bitmaps/gray25.bmp
@@ -0,0 +1,6 @@
+#define gray25_width 16
+#define gray25_height 16
+static unsigned char gray25_bits[] = {
+   0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22,
+   0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88,
+   0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88};
diff --git a/Tk/bitmaps/gray50.bmp b/Tk/bitmaps/gray50.bmp
new file mode 100644
index 0000000..1f9fbc0
--- /dev/null
+++ b/Tk/bitmaps/gray50.bmp
@@ -0,0 +1,6 @@
+#define gray50_width 16
+#define gray50_height 16
+static unsigned char gray50_bits[] = {
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
+   0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa};
diff --git a/Tk/bitmaps/hourglass.bmp b/Tk/bitmaps/hourglass.bmp
new file mode 100644
index 0000000..bb1d8ad
--- /dev/null
+++ b/Tk/bitmaps/hourglass.bmp
@@ -0,0 +1,9 @@
+#define hourglass_width 19
+#define hourglass_height 21
+static unsigned char hourglass_bits[] = {
+   0xff, 0xff, 0x07, 0x55, 0x55, 0x05, 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01,
+   0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 0xc2, 0x0a, 0x03, 0x46, 0x05, 0x01,
+   0x82, 0x0a, 0x03, 0x06, 0x05, 0x01, 0x02, 0x03, 0x03, 0x86, 0x05, 0x01,
+   0xc2, 0x0a, 0x03, 0x66, 0x15, 0x01, 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01,
+   0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 0xa2, 0x2a, 0x03, 0xff, 0xff, 0x07,
+   0xab, 0xaa, 0x02};
diff --git a/Tk/bitmaps/info.bmp b/Tk/bitmaps/info.bmp
new file mode 100644
index 0000000..801476e
--- /dev/null
+++ b/Tk/bitmaps/info.bmp
@@ -0,0 +1,5 @@
+#define info_width 8
+#define info_height 21
+static unsigned char info_bits[] = {
+   0x3c, 0x2a, 0x16, 0x2a, 0x14, 0x00, 0x00, 0x3f, 0x15, 0x2e, 0x14, 0x2c,
+   0x14, 0x2c, 0x14, 0x2c, 0x14, 0x2c, 0xd7, 0xab, 0x55};
diff --git a/Tk/bitmaps/questhead.bmp b/Tk/bitmaps/questhead.bmp
new file mode 100644
index 0000000..17b2929
--- /dev/null
+++ b/Tk/bitmaps/questhead.bmp
@@ -0,0 +1,9 @@
+#define questhead_width 20
+#define questhead_height 22
+static unsigned char questhead_bits[] = {
+   0xf8, 0x1f, 0x00, 0xac, 0x2a, 0x00, 0x56, 0x55, 0x00, 0xeb, 0xaf, 0x00,
+   0xf5, 0x5f, 0x01, 0xfb, 0xbf, 0x00, 0x75, 0x5d, 0x01, 0xfb, 0xbe, 0x02,
+   0x75, 0x5d, 0x05, 0xab, 0xbe, 0x0a, 0x55, 0x5f, 0x07, 0xab, 0xaf, 0x00,
+   0xd6, 0x57, 0x01, 0xac, 0xab, 0x00, 0xd8, 0x57, 0x00, 0xb0, 0xaa, 0x00,
+   0x50, 0x55, 0x00, 0xb0, 0x0b, 0x00, 0xd0, 0x17, 0x00, 0xb0, 0x0b, 0x00,
+   0x58, 0x15, 0x00, 0xa8, 0x2a, 0x00};
diff --git a/Tk/bitmaps/question.bmp b/Tk/bitmaps/question.bmp
new file mode 100644
index 0000000..ceba2ab
--- /dev/null
+++ b/Tk/bitmaps/question.bmp
@@ -0,0 +1,10 @@
+#define question_width 17
+#define question_height 27
+static unsigned char question_bits[] = {
+   0xf0, 0x0f, 0x00, 0x58, 0x15, 0x00, 0xac, 0x2a, 0x00, 0x56, 0x55, 0x00,
+   0x2b, 0xa8, 0x00, 0x15, 0x50, 0x01, 0x0b, 0xa0, 0x00, 0x05, 0x60, 0x01,
+   0x0b, 0xa0, 0x00, 0x05, 0x60, 0x01, 0x0b, 0xb0, 0x00, 0x00, 0x58, 0x01,
+   0x00, 0xaf, 0x00, 0x80, 0x55, 0x00, 0xc0, 0x2a, 0x00, 0x40, 0x15, 0x00,
+   0xc0, 0x02, 0x00, 0x40, 0x01, 0x00, 0xc0, 0x02, 0x00, 0x40, 0x01, 0x00,
+   0xc0, 0x02, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0xc0, 0x02, 0x00,
+   0x40, 0x01, 0x00, 0xc0, 0x02, 0x00, 0x00, 0x01, 0x00};
diff --git a/Tk/bitmaps/warning.bmp b/Tk/bitmaps/warning.bmp
new file mode 100644
index 0000000..7925440
--- /dev/null
+++ b/Tk/bitmaps/warning.bmp
@@ -0,0 +1,5 @@
+#define warning_width 6
+#define warning_height 19
+static unsigned char warning_bits[] = {
+   0x0c, 0x16, 0x2b, 0x15, 0x2b, 0x15, 0x2b, 0x16, 0x0a, 0x16, 0x0a, 0x16,
+   0x0a, 0x00, 0x00, 0x1e, 0x0a, 0x16, 0x0a};
diff --git a/Tk/changes b/Tk/changes
new file mode 100644
index 0000000..38982c4
--- /dev/null
+++ b/Tk/changes
@@ -0,0 +1,3154 @@
+This file summarizes all changes made to Tk since version 1.0 was
+released on March 13, 1991.  Changes that aren't backward compatible
+are marked specially.
+
+SCCS: @(#) changes 1.104 96/07/31 16:45:04
+
+3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
+the interpreter when the main window is deleted (otherwise there will
+be dangling pointers to the non-existent window).
+
+3/16/91 (bug fix) Modified tkColor.c not to free black or white colors:
+some X servers get upset at this.
+
+3/18/91 (bug fix) Modified tkShare.c to fix bug causing "DeleteGroup
+couldn't find group on shareList" panic.
+
+3/18/91 (bug fix) Several changes to tkListbox.c and tkScrollbar.c to
+handle listboxes (and scrollbars) with zero total entries in them.
+
+3/22/91 (bug fix) Fixed a few ='s in tkListbox.c that should be ==.
+
+3/22/91 (bug fix) Fixed error in main.c that caused BadWindow errors
+in some cases where wish scripts invoke "destroy .".
+
+3/23/91 (new feature) Added Tk_CancelIdleCall to remove Tk_DoWhenIdle
+handler.
+
+3/23/91 (bug fix and new feature) Added -name option to main.c, made
+it more clever about choosing name (was always using the name "wish"
+on most Unix systems).
+
+3/23/91 (new feature) Added TK_CONFIG_STRING option to Tk_ConfigureWidget,
+used it to malloc strings for various widget options that used to be
+Tk_Uid's (e.g. button text, message strings, etc.).  Eliminates core
+leaks when values change in continuous non-repeating fashion.
+
+3/29/91 (new feature) Added Tk_Preserve, Tk_Release, and
+Tk_EventuallyFree procedures to help manage widget records and avoid
+premature memory free-ing.
+
+4/4/91 (bug fix) Fixed problem in tkWm.c where top-level window geometry
+wasn't tracking correctly when wm-induced size change also changed window
+position (e.g. menus wouldn't be displayed at the right places).
+
+4/5/91 (new feature) Added "invoke" option to widget command for buttons,
+check buttons, and radio buttons.
+
+4/5/91 (new feature) Added "unpack" option to "pack" command.
+
+4/5/91 (bug fix) Changed tkPack.c to use new Tk_Preserve code and be
+more careful about window deletions that occur while repacking is in
+progress.
+
+4/6/91 (bug fix) Major overhaul of deletion code in all widgets to use
+Tk_Preserve and Tk_Release.  Should fix many problems.
+
+4/6/91 (bug fix) Changed "winfo children" to generate correct lists
+when child names have embedded spaces.
+
+4/6/91 (new feature) Added "screenheight" and "screenwidth" options to
+"winfo".
+
+4/18/91 (bug fix) Binding mechanism didn't correctly handle very long
+%-substitutions in commands (e.g. long path names) and caused memory
+to be overwritten.  Modified tkBind.c to fix.
+
+---------------------- Release 1.1, 4/18/91 -------------------------
+
+4/19/91 (bug fix) Inconsistent ICCCM handling of coordinates of reparented
+windows causes windows to gradually walk south when moved or resized.
+Fixed tkWm.c to patch around the problem.
+
+---------------------- Release 1.2, 4/24/91 -------------------------
+
+4/26/91 (new feature) Added -geometry and -display switches to wish.
+Also wrote wish manual entry.
+
+5/3/91 (bug fix) Fixed bug in tkListbox.c that caused garbage to appear
+at right edge of window when strings were to large to fit in window.
+
+5/3/91 (bug fix) Fixed bug in tkListbox.c where topIndex wasn't getting
+updated when elements were deleted:  tended to cause errors in
+communication with scrollbars.
+
+5/16/91 (bug fix) Fixed bug in tk3d.c, which caused core dumps when
+consecutive points in a polygon were the same (happened with some
+configurations of radio buttons, for example).
+
+5/16/91 (bug fix) Fixed main.c to allow stdin to be redirected.
+
+6/1/91 (bug fix) Make sure that pointers are never used after being
+freed.
+
+6/15/91 (bug fix) Fixed bug in tkBind.c that caused current binding
+values to not always be printed correctly.
+
+6/15/91 (bug fix) Make sure that interpreters are always unregistered
+when their main windows are deleted, and make wish delete the main
+window before exiting.
+
+8/21/91 (misfeature correction)  Automatically set source of window
+position to "user" in "wm geometry" command, unless it has been
+explicitly set to "program".
+
+9/5/91 (bug fix) Modified option code to accept '#' as a comment
+character in .Xdefaults files, in addition to '!'.
+
+9/10/91 (misfeature correction) Changed binding mechanism so that
+numeric %-sequences are output in decimal instead of hex.
+
+9/19/91 (bug fix) Fixed bug in Tk_DoOneEvent(1) where it wasn't
+checking files and X connections properly so it missed events.
+
+10/6/91 (new feature) Reorganized tkBind.c to provide generic "binding
+table" structure, which can be used to create bindings on items in
+canvases as well as windows.
+
+10/6/91 (new feature) Upgraded buttons and menus to use new tracing
+code in Tcl 6.0.  Allows radio buttons and check buttons to both set
+and clear themselves when associated variable changes.
+
+10/17/91 (bug fix) Fixed 2 bugs in listboxes: accidentally advanced the
+selection when new entries were inserted in the listbox after the location
+of the selected item(s), and goofed up on redisplay if selected item
+was deleted and then selection was immediately lost.
+
+10/27/91 (bug fix) "pack unpack" wasn't telling Tk that it no longer
+manages window;  this led to core dumps in some situations.
+
+10/31/91 (reorganization) Renamed manual entries so that they are no
+more than 14 characters in length.
+
+10/31/91 (reorganization) Changed tk.h and tkInt.h so that tkInt.h
+doesn't needed to be included by tk.h.
+
+11/3/91 (portability improvement) Eliminated use of "class" as a variable
+name, since it's a reserved word in C++.
+
+11/7/91 (reorganization) Many changes to upgrade for Tcl 6.1 including
+use of Tcl hash tables instead of separate "Hash_" module.  The "lib"
+subdirectory is no longer needed in Tk.
+
+---------------------- Release 1.3, 11/7/91 -------------------------
+
+11/24/91 (bug fix) Fixed bug causing occasional errors if existing bindings
+are modified (FindSequence in tkBind.c forget to set *maskPtr).
+
+11/24/91 (bug fix) Used wrong hash table in Tk_GetColorByValue.  Could
+cause new entries to get created unnecessarily.
+
+12/2/91 (bug fix) Changed "bind" code to put backslashes in front of
+special characters (e.g. [ or \) that appear in %-replacements, so that
+they can be parsed cleanly.
+
+12/10/91 (bug fix) Manual entries had first lines that caused "man" program
+to try weird preprocessor.  Added blank comment lines to fix problem.
+
+1/2/92 (documentation cleanup) Changed manual entries for Tk_GetBitmap
+and the like to make it more clear that the argument must be a Tk_Uid
+and not a string.
+
+1/2/92 (bug fix) Fixed problem where scrollbars that were very short or
+very narrow (too small to hold both arrows) could cause negative values
+in calls to XClearArea, which crashed some servers.
+
+1/2/92 (bug fix) Fixed bug in TkMeasureChars occurring when maxChars
+is 0.  Occasionally affected things like message window geometry.
+
+1/3/92 (new feature) Added procedures Tk_GetJustify, Tk_GetAnchor,
+Tk_GetCapStyle, and Tk_GetJoinStyle, plus support for these things
+in Tk_ConfigureWidget.
+
+---------------------- Release 1.4, 1/10/92 -------------------------
+
+1/12/92 (bug fix) TkMenubutton.c wasn't cleaning up mbPtr->varName
+properly during menubutton cleanup if an error occurred during
+menubutton creation.
+
+1/19/92 (bug fix) Fixed off-by-one bug in tkListbox.c that caused
+scrollbars to display a slider that was too large.
+
+2/10/92 (bug fix) Tk_CreateFileHandler didn't correctly handle case
+where new mask was specified for existing handler.
+
+2/13/92 (bug fix) Tk_DeleteAllBindings wasn't correctly removing
+bindings from the pattern table:  only did the removal for the
+first pattern in a pattern list.
+
+2/15/92 (new feature) Added procedures Tk_DefineBitmap and
+Tk_SizeOfBitmap.  Tk_GetBitmapFromData is now considered obsolete
+and probably shouldn't be used anymore.  Tk_GetBitmapFromData
+is now implemented by calling Tk_DefineBitmap and Tk_GetBitmap.
+
+2/15/92 (new feature) Added "curselection" and "select clear" options
+to widget command for listboxes.
+
+2/15/92 (new feature) Added Tk_3DBorderColor procedure.
+
+2/17/92 (relaxed limitations) Changed scrollbars so they no longer limit
+the slider position to lie within the object's range:  can scroll off the
+end of an object, if the object permits it.  Changed listboxes and
+entries to explicitly prevent viewing off the ends.  Also relaxed
+listbox index checks so that out-of-range indices are automatically
+adjust to fit within the listbox range.
+
+2/19/92 (bug fix) tkWindow.c tended to leave half-created windows around
+if a new window's name was found to be in use already.  Fixed to clean
+them up.
+
+2/22/92 (new feature) Added -anchor, -bitmap, -height, -textvariable,
+-width options to labels, buttons, check buttons, menu buttons, and radio
+buttons.  This means that (a) size can be controlled better, (b) bitmaps
+can be displayed in any buttons, (c) the position of the text within the
+button can be controlled, and (d) a button can be made to display the value
+of a variable, continuously updating itself.  Also changed -selector option
+so that if it's specified as an empty string then no selector is drawn
+for the button.
+
+2/22/92 (new feature) Changed menus to support bitmaps in menu entries:
+added new -bitmap option for entries.
+
+2/26/92 (bug fix) "after" command, when invoked with just one argument,
+called Tk_Sleep rather than registering a timer handler and looping on
+Tk_DoOneEvent.  As a result, it caused the application to become non-
+responsive to X events during the sleep.  Changed to use a Tk_DoOneEvent
+loop so that it is responsive.
+
+2/26/92 (bug fix) Tk's main program didn't map the main window until
+after the startup script returned.  Changed to map the window as a
+do-when-idle handler, so that scripts can cause the window to be
+mapped immediately with a call to "update" or "after".
+
+2/28/92 (bug fix) "wm withdraw" wasn't working if invoked before window
+was originally mapped:  window got mapped anyway.  Fixed so that the
+window doesn't get mapped as long as it's withdrawn.
+
+2/29/92 (new feature) Can use "focus none" to clear input focus.
+
+2/29/92 (bug fix) Fixed tkEvent.c to generate SubstructureNotify events
+properly.  These weren't being generated previously.
+
+2/29/92 (bug fix) Fixed entries so that newline characters can be properly
+displayed (as `\x0a').  Had to change interface to TkDisplayChars in order
+to do this (added flags argument).
+
+2/29/92 (bug fix) Change Tk not to update size and position of top-level
+windows directly during calls like Tk_ResizeWindow.  Instead, wait until
+actual event is received.  This makes updates happen at same time as
+callbacks.
+
+3/6/92 (bug fix) TkMenubutton.c was dumping core when a menubutton was
+pressed at a time when there was no associated menu for the button.
+
+3/6/92 (new feature) Added Tk script library directory with official
+Tk initialization file "tk.tcl".  Other procedures used by Tk are in
+other files.  Tk procedures and variables all have names starting
+with "tk_".  Also added Wish startup script "wish.tcl", which sources
+both the Tk and Tcl startup scripts.  This means that things like
+auto-loading and abbreviation expansion are now available in wish.
+Added new variables tk_library, tk_priv, and tk_version.
+
+3/6/92 (new feature) It's now possible to set bindings for whole
+classes by using the class name in the bind command.  For example,
+"bind Button <Enter> {puts stdout Hi!}" will cause a message to be
+printed whenever any mouse button is entered.  Can also use "all"
+to set bindings for all widgets.  Widget-specific bindings override
+class bindings which override "all" bindings.
+
+3/6/92 (reorganization) Changed buttons (all flavors) and listboxes to
+eliminate all hard-wired behavior.  Instead, default behavior is set
+by class bindings in tk.tcl.  Also set up class bindings for menus,
+menubuttons, and entries, which previously had no default behavior at
+all.  Scrollbars and scales still have hard-wired behavior that can't
+be overridden.
+
+3/7/92 (look-and-feel change) Changed listboxes and entries and menus
+to use button 2 for scanning instead of button 3.  This is more consistent
+with the official Motif use of button 2 for dragging.
+
+3/10/92 (new features) Added more options to "winfo" command:  screencells,
+screendepth, screenmmheight, screenmmwidth, and screenvisual.
+
+3/13/92 (bug fix) Event sharing mechanism (tkShare.c) wasn't checking
+to see whether window was mapped before sharing events with it.
+
+3/16/92 (bug fix) Tk_SetInternalBorderWidth was passing wrong window to
+geometry-management procedures, causing core-dumps when menu buttons
+had their border widths changed.
+
+3/16/92 (bug fix) Menus were setting their geometry directory rather
+than using Tk_GeometryRequest mechanism.
+
+3/17/92 (new feature) Added -cursor option to all widgets to set the
+active cursor for the widget.  Also added TK_CONFIG_ACTIVE_CURSOR
+configure type.
+
+3/18/92 (new feature) Implemented generalized screen coordinates to
+allow resolution-independent specification in many cases (but pixel-
+based coordinates are still OK).  Added Tk_GetScreenMM(),
+Tk_GetPixels(), new configure types TK_CONFIG_SCREEN_MM and
+TK_CONFIG_PIXELS.  Changed widgets to use this new configure types
+wherever possible (a few of the more complex cases still haven't
+been taken care of yet).  Added "pixels" and "fpixels" options to
+"winfo" command.
+
+3/18/92 (new feature) First cut at canvas widgets is done and part of
+the official Tk now.  Canvases display text and structured graphics,
+and allow you to bind commands to events related to the text and
+graphics.
+
+3/21/92 (new feature) Added new "place" command.  It implements a
+new geometry manager that provides fixed placement, rubber-sheet
+placement, and combinations of the two.  Eliminated the commands
+"move", "resize", and "map" that were provided by main.c but never
+officially supported;  the placer provides all of this functionality.
+
+3/23/92 (bug fix) Fixed bug in tkWm.c where top-level windows were
+occasionally not being given the right size.  The problem occurred
+when a string of resizes happened all in a row (such as deleting all
+the windows in an application and then recreating them).
+
+3/23/92 (new feature) Added Tk_CoordsToWindow procedure and
+"winfo containing" command.  These may be used to locate the window
+containing a given point.
+
+3/28/92 (new feature) Added "-exportselection" option to listboxes,
+so that listbox selection need not necessarily be the X selection.
+
+4/12/92 (bug fix) Changed menu buttons to store name of menubutton
+in the associated variable, rather than the name of the menu.  This
+is necessary in order to allow several menu buttons to share the
+same menu.
+*** POTENTIAL INCOMPATIBILITY ***
+
+4/12/92 (bug fix) Fixed core dump that occurred in tkError.c when
+removing the first error record from the error list.
+
+4/15/92 (bug fix) Fixed bug in tkBind.c that prevented <KeyPress-1>
+event specifications from being processed correctly:  the "1" was
+treated as a button name rather than a keysym.
+
+4/18/92 (new feature) Added Tk_DefineCursor and Tk_UndefineCursor
+procedures.
+
+4/18/92 (new feature) Major revision to listboxes.  Can now scroll and
+scan in both x and y, plus -exportselection option allows selection not
+to be exported.  The "view" widget command has been replaced by "xview"
+and "yview", and the "scan" widget command has a new syntax.
+*** POTENTIAL INCOMPATIBILITY ***
+
+4/18/92 (new feature) Added -exportselection option to entries, so you
+can select whether you want the entry selection to be the X selection
+or not.
+
+4/24/92 (new features) Added TK_CONFIG_CUSTOM type to Tk_ConfigureWidget,
+plus added new flags TK_CONFIG_NULL_OK, TK_CONFIG_DONT_SET_DEFAULT,
+and TK_CONFIG_OPTION_SPECIFIED.  Several other new types, such as
+TK_CONFIG_CAP_STYLE, were also added as part of implementing canvases.
+
+4/29/92 (bug fix) Changed "-selector" default for menus to have separate
+values for mono and color.
+
+4/30/92 (bug fix) Fixed bug in tkListbox.c where it occasionally generated
+bogus scroll commands (last index less than first).
+
+4/30/92 (reorganization) Moved demos directory to "library/demos".
+
+---------------------- Release 2.0, 5/1/92 -------------------------
+
+5/2/92 (bug fix) Fixed problem in tkListbox.c where it was doing too many
+redisplays after repeated insertions.  Also reduced number of invocations
+of scrollbar commands.
+
+5/7/92 (portability improvement) Changed main.c not to use TK_EXCEPTION
+flag;  it isn't needed and it causes problems on some systems.
+
+5/9/92 (bug fix) Plugged core leaks in tkListbox.c and tkBind.c
+
+5/9/92 (bug fix) TkBind.c was accidentally deleting bindings during
+attempts to print non-existent bindings.
+
+5/11/92 (bug fix) Maximum name length for applications (name used in
+"send" commands) was too short (only 20);  increased to 1000.  Also
+fixed bug related to over-long names that caused core dumps.
+
+5/13/92 (bug fix) tkShare.c was using a dangling pointer if a share
+group was deleted as a side-effect of a shared event.
+
+5/13/92 (bug fix) Various initialization and core leak problems in
+tkGC.c, tkSend.c, tkMenu.c, tkEvent.c, tkCanvas.c, tkCanvPoly.c,
+tkCanvLine.c, tkListbox.c, tkEntry.c.
+
+5/13/92 (bug fix) Empty entries could be scanned off the left edge,
+displaying a garbage character.
+
+5/13/92 (bug fix) Fixed a few problems with window manager interactions,
+such as tendency for windows to spontaneously shrink in size.  By no
+means are all of the problems fixed, though.
+
+5/13/92 (performance optimization) Changed Tk_GeometryRequest not to
+invoke geometry manager unless requested size has changed.
+
+---------------------- Release 2.1, 5/14/92 -------------------------
+
+5/1/92 (new features) Added flags like TK_IDLE_EVENTS to Tk_DoWhenIdle,
+plus added "idletasks" option to "update" command.  Tk_DoWhenIdle arguments
+look different now, but the change should be upward-compatible.
+
+5/17/92 (new feature/bug fix) Added support for VisibilityNotify events
+to the "bind" command.  For some reason they weren't supported previously.
+
+5/17/92 (new feature) Added "tkwait" command.
+
+5/17/92 (new feature) Added "grab" command.
+
+5/17/92 (new feature) Added "-width" option to messages.  Also changed
+messages to use the computed (i.e. desired) line length when displaying,
+not the actual width of the window.
+
+5/17/92 (bug fixes) Did some more fiddling with tkWm.c in the hopes
+of improving window manager interactions.  Now there won't be more than
+one configure request outstanding to the wm at a time.
+
+5/17/92 (bug fix) Arrowheads on canvas lines weren't being translated
+or scaled correctly.
+
+5/20/92 (bug fix) Page-mode scrolling didn't work correctly for canvases
+(wrong windowUnits was passed to scrollbars).
+
+5/20/92 (bug fix) Changed scrollbars not to lose highlight when pointer
+leaves window with button down.  Also changed redisplay to double-buffer
+for smoother redraws.
+
+5/21/92 (new feature) Added "gray50" and "gray25" as predefined bitmaps.
+
+5/22/92 (new feature) Buttons can now be disabled using the "-state" and
+"-disabledforeground configuration options.  The "activate" and "deactivate"
+widget commands for buttons are now obsolete and will go away soon.
+Please change Tcl scripts not to use them.
+
+5/23/92 (new feature) Entries can now be disabled using the "-state"
+config option.  Also improved class bindings for entries to keep the
+cursor visible in the window when operations occur.  Also made slight
+improvements in the way redisplay is done.
+
+5/23/92 (new feature) Added "-textvariable" option to entries so that
+the text in an entry can be tied to the value of a global variable in
+a fashion similar to buttons.
+
+5/27/92 (new feature) Added "-textvariable" and "-anchor" options to
+messages.
+
+5/28/92 (new feature) Added "-padx" and "-pady" and "-underline" options
+to menubuttons.
+
+5/28/92 (feature change) Changed "-width" and "-height" options on
+all flavors of buttons and menubuttons so that they are orthogonal
+to "-padx" and "-pady".  It used to be that -width overrode -padx
+(no padding).  Now they accumulate.
+
+5/29/92 (new feature) Added "-disabledforeground" option to menus and
+all flavors of buttons (can specify color for disabled things rather
+than just using stipple to gray out).
+
+5/29/92 (new features) Added many new options to menu entries:
+-activebackground, -background, -font, -state, -underline.  The
+"disable" and "enable" widget commands for menus are now obsolete
+and will go away soon.  Please change Tcl scripts not to use them.
+
+5/29/92 (new features) Added "atom" and "atomname" options to "winfo"
+command.
+
+5/29/92 (new feature) Wrote tk_listboxSingleSelect procedure, which
+can be used to change listbox behavior so that only a single item is
+selected at once.
+
+6/1/92 (new feature) Added new modifier names "Meta" and "Alt" for
+"bind" command.
+
+6/3/92 (new feature) Added "winfo toplevel" command.
+
+6/3/92 (new feature) Made several changes for greater Motif compliance,
+including:
+    - menu retention if you click and release in the menu button,
+    - keyboard traversal of menus (see traversal.man)
+    - no widget flashing if you set $tk_strictMotif to 1
+
+6/15/92 (bug fix) Fixed problem in tkBind.c where command string for a
+binding could get reallocated while the command was being executed (e.g.
+bindings that delete or change themselves).
+
+6/15/92 (bug fix) Don't allow "tabWidth" field to become zero in tkFont.c:
+can cause core dumps for fonts that don't enough information to compute
+tab widths.
+
+6/19/92 (bug fix) Fixed bug in binding mechanism that caused structure-
+related events to be reported both to the correct window and its parent.
+
+7/14/92 (bug fix) Changed tkColor.c not to free colors for visual types
+StaticGray or StaticColor.
+
+7/15/92 (new feature) Text widgets now exist.  They display any number of
+lines of text with a variety of display formats, and include hypertext
+facilities.  See the manual page for details.
+
+7/20/92 (bug fix) If a top-level window was put in the iconic state to
+begin with, it could be deiconified with "wm deiconify .foo" until it had
+first been deiconified by hand from the window manager.  Tk was getting
+confused and thought the window was mapped when it wasn't.
+
+7/29/92 (bug fix) Don't permit rectangles or ovals to have zero-sized
+dimensions.  Round up to at least one pixel.
+
+7/29/92 (new features) Major upgrade to canvases:
+    - new item types: arc, window, bitmap
+    - added Bezier spline support for lines and polygons
+    - rectangles and ovals now center their outlines on the shape,
+      rather than drawing them entirely inside the shape
+    - new "coords" and "bbox" widget commands
+    - new "-tags" option for all item types.
+    - new "-confine" option to prevent scrolling off edge of canvas.
+
+8/6/92 (new feature) Added "-width" and "-height" options to frames.
+The "-geometry" option is now obsolete and should be removed from Tcl
+scripts:  it may go away in the future.
+
+8/7/92 (bug fix) Error messages in Tk_ParseArgv were sometimes including
+the option name where they should have included its value.
+
+---------------------- Release 2.2, 8/7/92 -------------------------
+
+8/7/92 (bug fix) Changed tkCanvas.c to be more conservative in the area
+it passes to XCopyArea.
+
+8/8/92 (bug fix) Fixed bug in tkTextDisp.c that sometimes caused core
+dumps when text views changed (e.g. typing return on last line of screen).
+
+8/8/92 (bug fix) Fixed bug in menu.tcl that caused errors when using
+keyboard to traverse over separator menu entries.
+
+8/10/92 (bug fix) Changed to use OPEN_MAX instead of MAX_FD to compute
+maximum # of open files.
+
+8/10/92 (bug fix) Canvases weren't updating scrollbars on window size
+changes.  They also weren't recentering canvases on window size changes.
+
+8/10/92 (bug fix) There were still a few places where commands were being
+invoked at local level instead of global level (e.g. commands associated
+with buttons and menu entries).
+
+8/10/92 (bug fix) TkBind.c used to ignore explicit shift modifiers for
+all keys (i.e. <Shift-Tab> was treated the same as <Tab>).  Modified to
+allow explicit request for shift modifier, like <Shift-Tab>.
+
+8/13/92 (feature change) Changed default fonts to request "Adobe" fonts
+explicitly.
+
+8/16/92 (bug fixes) Modified tkCanvArc.c and tkTrig.c to increase slightly
+the bounding boxes for arcs, in order to make sure that proper redisplay
+occurs when arcs are moved (little turds were getting left behind).
+
+8/16/92 (bug fix) Modified tkCanvas.c not to redraw at all if the redisplay
+area is off the screen.  Also, only do a background clear for the portion
+of the redraw area that is on-screen.  Also, reduced size of off-screen
+pixmaps used for redisplaying, which speeds up redisplay in some cases.
+
+8/19/92 (bug fix) Canvases that were taller than wide were not being
+redisplayed properly.
+
+8/20/92 (new feature) Added Tk_CreateGenericHandler procedure for trapping
+all X events (useful for tracing, watching non-Tk windows, etc.).
+
+8/21/92 (bug fix) Widgets weren't always being notified when they got
+the focus back again (the problem had to do with grabs and menus in
+particular).
+
+8/21/92 (new feature) Added "-state" option to scale widgets.
+
+8/22/92 (new feature) Changed tkBitmap.c to allow tilde-substitution
+to occur in bitmap file names.
+
+---------------------- Release 2.3, 8/24/92 -------------------------
+
+8/27/92 (bug fix) Changes to -activebackground and -activeforeground options
+for menubuttons were being lost.
+
+8/27/92 (bug fix) Entries were selecting last character when a B1-drag
+occurred past the right edge of the text.
+
+8/28/92 (bug fix) Fixed bug in canvases where a grab during a button
+press caused the canvas state to lock up so that it didn't select a
+new current item.
+
+9/7/92 (bug fix) Changed tkMenu.c to accept numerical menu indices that
+are out of range;  now it just rounds them off to the nearest existing
+entry.
+
+9/7/92 (bug fix) Fixed bug in tkTextDisp.c that caused core dumps when
+invoking "yview -pickplace" widget command on texts that are too small
+to hold any lines at all.
+
+9/11/92 (bug fix) Fixed bug in tkTextDisp.c that caused core dumps
+when adding tags to non-existent lines.
+
+9/11/92 (bug fix) Line items in canvases didn't permit an empty fill
+color (i.e. couldn't make them transparent).
+
+9/14/92 (reorganization) Changed manual entries to use .1, .3, and .n
+extensions.  Added "install" target to Makefile to suggest how Tk should
+be installed.
+
+9/16/92 (bug fix) Changed tkSend.c to always specify the root window of
+screen 0 rather than using DefaultRootWindow.  DefaultRootWindow doesn't
+always go to screen 0 on displays with multiple screens, which can result
+in send's not being possible between the screens.
+
+9/18/92 (new feature) Added three new options to "wm" command: "protocol",
+"client", and "command".  These provide support for window manager protocols
+such as WM_DELETE_WINDOW and WM_TAKE_FOCUS, plus support for the
+WM_CLIENT_MACHINE and WM_COMMAND properties.
+
+9/30/92 (new feature) Implemented color model support, including
+"tk colormodel" command and Tk_GetColorModel and Tk_SetColorModel
+procedures.  These allow you to force mono operation even on a color
+display.  Also changed color allocation not to give errors when colors
+run out, but just to switch to a mono color model.
+
+10/1/92 (bug fixes) Fixed two bugs in tkTextBTree.c that caused core dumps
+during text deletion.
+
+10/5/92 (bug work-around) Changed tkColor.c to ignore errors when freeing
+colors.  This is needed to work around improper reference count management
+for colormap entries under X11/NeWS.
+
+10/7/92 (new feature) Added support for different visual types, including
+procedures Tk_SetWindowVisual and Tk_SetWindowColormap, plus macros
+Tk_Visual, Tk_Depth, and Tk_Colormap.  The code for this was contributed
+by Paul Mackerras.
+
+10/7/92 (new feature) Added Tk_IsTopLevel macro.
+
+10/12/92 (bug fix) Fixed bug in tk.tcl that caused torn-off menus with
+cascaded children not to track mouse motion correctly (the cascade
+switched in response to mouse motions within the cascaded child).
+
+10/12/92 (new feature) Major changes to focus handling:
+(a) Tk watches FocusIn and FocusOut events for focus changes, not Enter
+    and Leave, so it will work better with explicit-focus-model window
+    managers (e.g. mwm in default mode).
+(b) Tk generates FocusIn and FocusOut events for the focus window now.
+    The old procedural interface (via Tk_CreateFocusHandler) is obsolete
+    and is no longer used inside Tk.  It is still supported for
+    compatibility, but won't be for long.  You should change your code
+    to use FocusIn and FocusOut events instead.
+(c) The model for FocusIn and FocusOut events is different than the
+    one described in Xlib documentation.  See the "focus" manual entry
+    for details.
+(d) If there is no input focus then keyboard events are discarded.  They
+    used to be directed to the mouse pointer window, although this wasn't
+    documented.  The focus now defaults to the root window.
+*** POTENTIAL INCOMPATIBILITY ***
+
+10/15/92 (bug fix) Fixed text items in canvases where they didn't
+display the insertion cursor if the item had no characters in it.
+
+10/26/92 (bug fix) Fixed bug in tkSelect.c that occasionally caused
+BadWindow X protocol errors when retrieving the selection.  Tk wasn't
+making sure that a window existed before using it to retrieve the
+selection.
+
+10/30/92 (feature change) Changed canvases so that if the scroll region
+is smaller than the window and -confine is on, the scroll region isn't
+forced to be centered in the window;  it can be anywhere that meets the
+confinement restrictions.
+
+11/2/92 (new feature) Added "winfo exists" command.
+
+11/5/92 (new feature) Changed DoWhenIdle handlers so that if a new
+when-idle handler is created as a side-effect of another when-idle
+handler, the new handler isn't invoked until Tk has first checked
+for other events to process.
+
+11/6/92 (bug fixes, new features) Major overhaul of window manager
+interface:
+(a) Tk should now work with virtual-root window managers;
+(b) windows will now place more accurately on the screen and stay where
+    they're supposed to;
+(c) size changes handled more reliably;
+(d) code now works robustly in the face of withdrawals followed
+    immediately by deiconifications.
+(e) Added new procedure Tk_GetVRootInfo and new options to "winfo" command:
+    vrootx, vrooty, vrootwidth, vrootheight.
+(f) Added "overrideredirect" option to "wm".
+(g) Fixed bug where change in width-only via "wm geom" didn't always work
+   (min and max window sizes weren't being set properly for the wm).
+
+11/6/92 (bug fixes) Modified menus so that they work correctly with
+virtual root window managers.  Also fixed bug where menus didn't move
+along with their associated windows, so that the menu popped up at
+the old location of the window rather than its new location.
+
+11/9/92 (new constraint) Made it illegal to give windows names that
+start with upper-case letters, since such names will goof up the
+option database by appearing to be classes rather than names.
+*** POTENTIAL INCOMPATIBILITY ***
+
+11/10/92 (new feature) Added Postscript output to canvases.
+
+11/13/92 (bug fix) Changed default for maximum size passed to window
+manager from 1000000 (which causes some wm's to make windows too large
+when "maximized") to the size of the display.
+
+11/14/92 (feature change) Major overhaul of menubuttons and pull-down
+menus.  Removed event-sharing code, including Tk_ShareEvents and
+Tk_UnshareEvents.  The -variable option for menubuttons has been
+removed,and the "post" and "unpost" widget commands for menubuttons
+no longer exist.  The "post" widget command for menus no longer
+allows a group option.  The procedure tk_menus has been replaced
+with a new procedure, tk_menuBar, which has a slightly different
+interface.
+*** POTENTIAL INCOMPATIBILITY ***
+
+11/20/92 (new features, feature changes) Major overhaul of grab
+mechanism to produce more correct event streams.  Also changed Tcl
+commands to require explicit window for grab releases (makes it
+possible for grabs to work on multiple displays simultaneously).
+The old "grab none" command no longer exists, but new options
+have been added: "current", "release", "set", and "status".
+*** POTENTIAL INCOMPATIBILITY ***
+
+11/20/92 (new feature) Use TK_LIBRARY environment variable to set library
+directory location, if it is defined.  Otherwise fall back on usual
+compiled-in value.
+
+11/25/92 (bug fix) "wm grid" command was using wrong window.
+
+11/29/92 (bug fix) Fixed core dump that occurred when trying to use
+placer on top-level windows: return error instead.
+
+11/29/92 (bug fix) Selection retrieval wasn't making sure that the window
+on whose behalf selection is being retrieved actually exists.
+
+12/3/92 (new feature) Added support for Mode_switch key to support the
+full ISO character set.  Also added event handlers for MappingNotify
+events so that Tk updates itself in response to keycode and modifier
+changes.
+
+12/6/92 (bug fix) Ignore recursive attempts to destroy window.
+
+12/9/92 (new demos) Added "tcolor" and "rmt" demos.
+
+12/10/92 (new features) Added "yposition" widget command for menus,
+changed "delete" widget command to take an optional second index,
+and changed -command option for cascade entries so that it is
+invoked when the entry is activated rather than when it is invoked.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/12/92 (implementation change)  Changed the procedures Tk_FreeBitmap,
+Tk_NameOfBitmap, Tk_SizeOfBitmap, Tk_FreeCursor, Tk_NameOfCursor, and
+Tk_FreeGC to require an addition Display argument.  This is needed for
+Tk to function correctly when an application has windows on multiple
+displays.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/12/92 (new feature) Started creating a test suite.  Right now it
+only has a few tests.
+
+12/12/92 (new feature) Modified the packer so that a window can be
+packed in descendants of its parent (used to be restricted to the
+parent alone).  This makes it possible to hide extra windows used
+for geometry management.  Also, can use generalized screen distances
+in the "pack" command.
+
+12/16/92 (feature change) Boolean options such as -exportselection now
+print as 0/1 rather than true/false (both the default and current values
+print this way).  This makes it easier to use these values in expressions.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/16/92 (name change) The classes "RadioButton" and "CheckButton" have
+been renamed "Radiobutton" and "Checkbutton" for consistency.  From now
+on widget class names will have exactly one capital letter.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/16/92 (new feature) Added -setgrid option to listboxes.
+
+12/16/92 (new feature) The "destroy" command, and the "delete" widget
+command for canvases, now accept any number of arguments, including
+zero.
+
+12/16/92 (new feature) Changed internal TkBindError procedure to
+Tk_BackgroundError and exported it to Tk clients.
+
+12/16/92 (option name change) Changed the place command's "dependents"
+option to "slaves" for better consistency with documentation.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/16/92 (name changes) Renamed the "cursor*" options in entries and
+canvases to "insert*".  Also renamed the "cursor" index to "insert" and
+the "cursor" widget command to "icursor".  This was done to avoid
+confusion between the mouse cursor and the insertion cursor.
+*** POTENTIAL INCOMPATIBILITY ***
+
+---------------------- Release 3.0, 12/17/92 -------------------------
+
+12/17/92 (bug fix) Fixed dangling-pointer bug in canvases that occurred
+if a <LeaveNotify> binding deleted the current item.
+
+12/18/92 (bug fix) Core dump occurred if "wm" invoked with no arguments.
+Also, tkWm.c wasn't properly setting WM_CLASS property on application
+startup.
+
+12/18/92 (incorrect documentation) Updated manual entries for Tk_FreeGC,
+Tk_FreeCursor, and Tk_FreeBitmap to reflect new interface that requires
+"display" argument.
+
+12/18/92 (missing documentation) Added documentation for the canvas
+"postscript" command, which was missing in the 3.0 release.
+
+12/21/92 (bug fixes) There were lots of problems with the new installation
+targets in the Makefiles, such as using "cp -f" and not installing
+prolog.ps.  Made several other miscellaneous improvements to Makefile.
+
+12/21/92 (bug fix) Arrowheads on canvas line items weren't moving properly
+after coordinate changes made with the "coords" widget command.
+
+12/21/92 (bug fix) If top-level window was initially withdrawn, couldn't
+ever deiconify it again.
+
+12/21/92 (bug fix) Double-button event sequences didn't always trigger
+properly when grabs were in effect.
+
+12/22/92 (bug fix) The packer didn't display any top or bottom windows
+after a left or right expanded window, and vice versa.  Also made the
+distribution of space among expanded windows more even.
+
+12/28/92 (new features) Several improvements to selection:
+(a) Added procedures Tk_ClearSelection and Tk_DeleteSelHandler.
+(b) Added "clear" and "own" options to "selection" command, extended
+    "handle" option to delete handlers.
+(c) Error returns from "selection handle" scripts are now turned into
+    selection retrieval errors ("no such selection") rather than an
+    empty selection.
+(d) Tk responds automatically for targets APPLICATION (name of application,
+    so you can "send" to it) and WINDOW_NAME (name of window within
+    application.
+(e) Added test file "select.test" to test suite.
+
+12/28/92 (bug fix) Fixed problem with flashing menus that occurred
+because menu.tcl was willing to unpost and then immediately repost
+the same menu.
+
+1/6/93 (bug fix) Test for UnmapNotify events in tkPack.c used = instead
+of ==.
+
+1/21/93 (bug fix) Changed many widgets to eliminate use of
+DefaultVisualofScreen, DefaultColormap, etc. and use the visuals
+and colormaps for the actual windows instead.  Also changed to
+inherit colormaps and windows from parent by default.
+
+1/21/93 (new features) Added new winfo options "cells", "depth", and
+"visual".
+
+1/23/93 (bug fix) Fixed problem with text display that could result
+in negative XCopyArea heights being sent to X server.  This causes some
+servers (e.g. some versions of OpenWindows) to crash.
+
+1/25/93 (new feature) Added -postcommand option to menus, so that menus
+can be reconfigured before each posting.
+
+1/29/93 (feature change) Changed %X and %Y in bindings so that they
+refer to the virtual root rather than the true root.  Although
+potentially incompatible, this change should almost always "do the
+right thing".
+*** POTENTIAL INCOMPATIBILITY ***
+
+1/31/93 (bug fix) Changed "send" code to grab server while updating
+the registry property (before this fix, two programs could allocate
+the same interpreter name if they started up simultaneously).  In
+order to make this fix I had to change the code for reclaiming
+names of dead interpreters in a way that sometimes allows dead
+interpreters to persist in the registry.
+
+2/1/93 (feature change) Changed entries to allow leftmost "visible"
+character to be the end of the text (i.e. no characters actually visible).
+This is needed so that the cursor can be displayed even if the last
+actual character is too wide to fit in the window.
+
+2/3/93 (bug fix) Fixed two bugs in tkFocus.c:  (a) FocusIn events
+were getting lost in some cases because the focus window hadn't been
+created yet (e.g. new top-level window pops up underneath the mouse);
+(b) Tk was accidentally triggering FocusOut events when the mouse
+moved from a top-level window to one of its children.
+
+2/4/93 (new feature) Added "visibility" option to "tkwait" command to make
+it easier to wait for a new window to appear on the screen.
+
+---------------------- Release 3.1, 2/5/93 -------------------------
+
+2/10/93 (installation improvements) Makefile improvements:  added RANLIB
+variable for easier Sys-V installation, changed to use INCLUDE_DIR
+properly, and added SHELL variable for SGI systems.
+
+---------------------- Release 3.2, 2/11/93 -------------------------
+
+2/11/93 (new feature) Added "wm state" command, and improved wm so that
+the right thing will happen if you invoke "wm iconify" when a window is
+withdrawn.
+
+2/14/93 (bug fix) When -colormap option was used in generating Postscript
+for canvases, Tk didn't add an extra space after the color command.
+
+2/14/93 (new feature) Changed "extern" declarations in tk.h to "EXTERN",
+which will use the definition of EXTERN from tcl.h and work correctly
+in C++ programs.
+
+2/18/93 (bug fix) Item-specific bindings weren't getting deleted from
+canvas items when the items were deleted.  As a result, they could
+suddenly re-appear for new items if the new items were allocated a
+record at the same addresses as the old ones.
+
+2/18/93 (feature reversal) Changed "after" back again, so that it sleeps
+*without* responding to events when it is invoked with just one argument;
+can always use tkwait plus after with additional arguments to achieve
+the effect of responding to events.
+*** POTENTIAL INCOMPATIBILITY ***
+
+2/20/93 (bug fix) Fixed bug in tkWindow.c where colormaps weren't being
+set correctly for new top-level windows on different screens than their
+parents (the bug results in X protocol errors: "invalid Colormap
+parameter").
+
+2/22/93 (bug fix) Changed "#!/usr/local/wish" in demo scripts to
+"#!/usr/local/bin/wish" to reflect new location of binary.
+
+2/22/93 (new feature) Added new reliefs "groove" and "ridge".
+
+2/25/93 (new feature) Added new built-in bitmaps:  "error", "hourglass",
+"info", "question", "questhead", and "warning".  Also added new demo in
+"widget" to display all of these (under the Miscellaneous menu).
+
+2/25/93 (improved implementation) Changed DrawText procedure in
+prolog for outputting Postscript from canvases to use stringwidth
+instead of charpath+pathbbox:  avoids limitcheck problems with long
+strings, and also properly includes space characters in calculation.
+
+2/25/93 (bug fix) Fixed several bugs in library/menu.tcl that caused
+menu traversal to mis-behave when menu had no entries.
+
+2/26/93 (new feature) Added "wm frame" command.
+
+3/6/93 (bug fix) Mwm in click-to-focus mode was goofing up grabs so that
+pull-down menus were sometimes unresponsive.  Modified tk.tcl to ignore
+the spurious B1-Enter events generated by mwm, plus modified tkGrab.c to
+release simulated button grabs correctly.
+
+3/8/93 (bug fix) Tk had wrong interpretation of "lbearing" font metric,
+which caused text to be displayed at the wrong horizontal position in
+several places (labels/buttons, listboxes, canvas text, scales).  This
+change will cause slight changes in the way certain widgets are
+displayed.
+
+3/12/93 (bug fix) Fixed core dumps that occurred in tkEntry.c because of
+zero values in entryPtr->avgWidth.
+
+3/12/93 (bug fix) Tk_CoordsToWindow was using root coordinates always.
+Changed to use virtual-root coordinates when a virtual-root window
+manager is being used.  Before this fix, "winfo containing" didn't
+return the correct window under virtual-root window managers.
+
+3/18/93 (bug fix) Modified tkWm.c so that Tk doesn't fight with window
+manager over position of window;  it just takes what the window manager
+gives it.
+
+3/21/93 (new feature) Changed menus to display cascade entries with
+standard Motif arrows at right side.a
+
+3/22/93 (bug fix) Fixed bug in tkPack.c that was causing memory to
+get trashed with the integer value 1.
+
+3/22/93 (bug fix) Canvas text didn't print correctly if it contained
+an open paren (or other special character) immediately followed by
+an octal digit.
+
+3/22/93 (bug fix) Text widgets didn't redisplay properly in cases
+where two or more groups of lines both got taller at the same time
+(e.g. from tag changes), causing two separate bit copies where the
+first bit copy's target area overlapped the source area for
+the second bit copy.
+
+4/1/93 (bug fix) Changed canvases to use ISO Latin-1 font encoding
+if that's supported by the Postscript interpreter.  Also added workaround
+for bug in NeWSprint related to stipple fills.
+
+4/1/93 (bug fixes) Made various changes to focusing and grabs to
+eliminate extraneous focus events and generally improve behavior.
+
+4/2/93 (bug fix) Modified tkWm.c not to wait indefinitely for the window
+manager to map or reconfigure a window:  this led to deadlock in some
+situations, such as creating a new top-level window with a grab held.
+
+4/19/93 (bug fix) Fixed another bug in tkWm.c that caused windows to walk
+across the screen in some situations.  Also fixed problem where rapid
+posting and unposting of cascaded submenus (or menus?) could cause Tk
+to become confused about whether or not a window is mapped (added
+TkWmUnmapWindow procedure to make top-level unmaps synchronous).
+
+4/24/93 (feature change) Changed the "after" command to allow times
+less than or equal to 0, and to use 0 whenever they occur.
+
+4/26/93 (new feature) Implemented security check for "send" as proposed
+by Bennett Todd: incoming sends are now rejected unless (a) xhost-style
+access control is enabled and (b) the list of authorized hosts is
+empty.  In other words, you have to use xauth to use send.  This feature
+can be disabled by setting the TK_NO_SECURITY flag at compile-time.
+
+5/15/93 (improvement) Switched to use Tcl_PrintDouble whenever returning
+real values as Tcl results.  This potentially allows higher precision.
+Switched to use %.15g whenever printing reals in Postscript files.
+However, the change Tcl_PrintDouble causes incompatibilities.  For
+now, it's disabled with a macro in tclInt.h that redefines Tcl_PrintDouble.
+Tk 4.0 will delete the macro, and you can also delete it now if you
+want the better (but incompatible) behavior.
+
+5/19/93 (bug fix) Fixed divide-by-zero problem that could occur in
+closeness calculations for canvas oval items.
+
+5/30/93 (bug fix) PROP and CONFIG were accidentally #defined to the same
+value in tkBind.c, which could cause incorrect %-substitutions in event
+bindings in a few exotic cases.
+
+6/4/93 (improvement) Changed to use GNU autoconfig for configuration.
+Makefile format changed, and Tcl is no longer automatically included
+in Tk releases.
+
+6/7/93 (bug fix) Fixed off-by-one error in rounding negative coordinates
+during redisplay of canvases.
+
+6/9/93 (feature improvement) Modified default bindings for entries to
+keep one character visible to the left of the cursor during backspaces.
+
+6/18/93 (feature improvement) Added patchlevel.h, for use in coordinating
+future patch releases, and also added tk_patchLevel variable to make the
+patch level available in scripts.
+
+6/26/93 (bug fix) Fixed numeric problems in scales that occurred with
+very large scale values.
+
+6/26/93 (bug fix) Polygon items in canvases could cause core dumps if
+the "coords" widget command was used to add one new coordinate.
+
+6/26/93 (bug fix) Changed canvases to handle large stipple patterns
+gracefully (stipples used to jump around during redisplay and lose
+coherency).
+
+7/1/93 (syntax change, new feature) Implemented the new packer syntax
+as described in the book.  For now the old syntax will continue to be
+supported too.  Converting over is straightforward except (a) use
+"-anchor" instead of "frame", and (b) padding is different (separate
+internal and external padding, plus pad amounts are *on each side*
+instead of total).  Also added "pack propagate" command for keeping
+the packer from setting the master's requested size.
+
+7/1/93 Changed copyright notices.  The effect is the same as with the
+old notices, but the new notices more clearly disclaim liability.
+
+7/7/93 (new feature) Added support for window stacking order.  Windows
+will now stack in the order created (most recent on top), plus "raise"
+and "lower" commands may be used to restack (Tk_RestackWindow procedure
+is available from C level).
+
+7/7/93 (reorganization) Moved main.c to tkMain.c, reorganized it to
+call Tcl_AppInit just like tclsh does, and added argv0 variable to contain
+application name, and added default Tcl_AppInit procedure for wish.
+Also added tkTest.c to hold C code for testing.
+
+7/7/93 (new feature) Added new Tk-specific "exit" command, which cleans
+up properly before exiting.  It replaces the Tcl "exit" command, and
+can be used in place of "destroy .".
+
+7/9/93 (new features) Added tk_dialog library procedure that creates
+dialogs with a bitmap, message, and any number of buttons.  Also changed
+default tkerror procedure to use tk_dialog plus offer the user a chance
+to see a Tcl stack trace.
+
+-------------------- Release 3.3 Beta 1, 7/9/93 -------------------------
+
+7/12/93 (configuration changes) Eliminated leading blank line in
+configure script;  provided separate targets in Makefile for installing
+binary and non-binary information; fixed -lnsl and -lsocket handling
+in configure; added autoconf support for fd_set type; check for various
+typedefs like mode_t and size_t, and provide substitutes if they
+don't exist; don't include tkAppInit.o in libtk.a; try to locate the
+X includes and library in all of the standard places for various systems.
+
+7/14/93 (new feature) Modified tkMain.c so that it stores the value
+of the -display command-line option into the DISPLAY environment
+variable, if it is specified.
+
+7/15/93 (feature removal) Removed auto-initialization feature from
+Tk_ConfigureWidget, so that you must once again initialize all fields
+of a widget record before calling Tk_ConfigureWidget.  This restores
+the behavior back to what it was in Tk 3.2.
+
+7/16/93 (bug fix) Modified tkBind.c to ignore the Caps Lock modifier
+unless it is explicitly requested in a binding.  Without this fix,
+buttons and menus and other things didn't work if the Caps Lock key
+was active.
+
+-------------------- Release 3.3 Beta 2, 7/21/93 -------------------------
+
+7/21/93 (new feature) Change "make install" so that it will modify the
+#! lines on demo scripts to reflect the place where the wish binary
+is installed.
+
+7/23/93 (new feature) Added Tk_MainWindow procedure that returns the
+main window associated with a Tcl interpreter.  This is intended for
+use by Tcl_AppInit and other initialization procedures.
+
+7/24/93 (configuration improvements) Changed configure script not to
+omplain about "fd_set" missing if it's defined in <sys/select.h>.
+
+7/28/93 (bug fix) "Bad Match - parameter mismatch" errors were
+sometimes occurring when several top-level windows got created
+at the same time, due to wrong choice of sibling when stacking
+windows.
+
+8/14/93 (new feature) Added support for tcl_prompt1 and tcl_prompt2
+to wish main program:  makes prompts user-settable.
+
+8/19/93 (bug fix) Bindings to event sequences like "aD" never matched
+because the Shift key has to be pressed before D.  Modified Tk to
+ignore extraneous keypresses if they are for modifier keys.
+
+8/26/93 (configuration changes) Added Tk_Init, modified Tcl_AppInit
+procedures to use it and Tcl_Init.  Added support for .wishrc file.
+
+8/28/93 (new feature) The main window is now a legitimate toplevel
+widget.
+
+-------------------- Release 3.3 Beta 3, 8/30/93 -------------------------
+
+9/2/93 (bug fix) The packer wasn't always relaying out a master after
+changes to some of the configuration options of its slaves.
+
+9/2/93 (bug fix) The binding mechanism made it impossible for patterns
+like <Double-ButtonRelease-1> to ever match.
+
+9/2/93 (bug fix) Fixed core dump that occurred for bitmap canvas items
+if Postscript is generated but no -bitmap option has been specified.
+
+9/4/93 (enhancement) Slight improvements to menu traversal:  set menu
+traversal bindings for menubar window in tk_menuBar, plus trigger
+traversal on <Any-Alt-Keypress> instead of <Alt-Keypress>.
+
+9/9/93 (bug fix) Changed tkBind.c so that the Num_Lock key doesn't
+prevent events from triggering bindings.
+
+9/9/93 (bug fix) Changed tkOption.c to always fetch RESOURCE_MANAGER
+property from root window of screen 0, rather than using default
+screen.
+
+9/9/93 (bug fix) Entry widgets weren't allocating quite enough width
+for themselves.  Fixed this and changed the size computation to match
+what's done for buttons and texts.
+
+9/16/93 (bug fix) Changed tkMain.c not to call exit C procedure directly;
+instead always invoke "exit" Tcl command so that application can redefine
+the command to do additional cleanup.
+
+-------------------- Release 3.3, 9/29/93 -------------------------
+
+9/30/93 (bug fix) Packer wasn't unmapping slaves when master got deleted.
+
+9/30/93 (bug fix) Binding event sequences such as <Right> were being
+misprinted as ASCII characters such as "S".
+
+10/6/93 (bug fix) Canvases weren't unmapping window items when the canvas
+got unmapped, which caused problems for window items whose windows weren't
+descendants of the canvas (they got left on the screen).
+
+10/7/93 (feature change) NULL proc arguments to Tk_CreateFileHandler used
+to have a special undocumented meaning (fd was display);  eliminated this
+special interpretation.
+
+10/7/93 (configuration change) Eliminated dependency of tkMain.c on
+tkInt.h and tkConfig.h, so that it's easier for people to copy the file
+out of the source directory to make modified versions.
+
+10/8/93 (bug fix) 3.0 introduced a bug where the class of the application
+wasn't being set properly, so options based on the application class
+weren't triggering.  Fixed by adding new argument to Tk_CreateMainWindow.
+
+10/11/93 (bug fix) Fixed bug in tkTextBTree.c where some deletions would
+cause core dumps due to halfwayLinePtr not getting set correctly.
+
+10/18/93 (bug fix) Fixed a couple of bugs that made it hard to actually
+display N characters in an entry with "-width N" (tended to scroll the
+entry so that only N-1 characters were visible at once).
+
+10/22/93 (bug fix) During configuration, XINCLUDE_DIR and XLIBRARY_DIR
+weren't overriding xmkmf like they were supposed to.
+
+10/23/93 (new feature) Allow negative scale factors in canvas "scale"
+widget command.
+
+10/23/93 (bug fix) Grabs weren't being cleaned up right if the grab
+window was deleted, causing core-dumps in some cases.
+
+10/23/93 (bug fix) tk_TextSelectTo wasn't checking to be sure that
+the "anchor" mark exists.
+
+10/27/93 (bug fix) Fixed core dump that could occur in a text widget if
+the scroll command modifies the text.
+
+11/1/93 (bug fix) Change texts so that the -yscrollcommand option is
+invoked at display time, not when the window is re-layed out.  This
+eliminated various core dumps that could occur if -yscrollcommand modified
+the text.
+
+-------------------- Release 3.4, 11/04/93 -------------------------
+
+Note: there is no 3.5 release.  It was flawed and was thus withdrawn
+shortly after it was released.
+
+11/12/93 (bug fix) TkMain.c didn't compile on some systems because of
+R_OK in call to "access".  Changed to eliminate call to "access".
+
+-------------------- Release 3.6, 11/26/93 -------------------------
+
+11/10/93 (bug fix) Packer and placer didn't always reposition a window
+correctly if it was managed inside a neice or lower descendant (using
+"-in" option) and the neice's parent moved.
+
+11/24/93 (bug fix) Fixed time problem in selection (retrievals could
+fail if retriever hasn't received any X events since selection was
+made, so that time of retrieval appears to be older than time of
+selection).  Selection code is now much less picky about times, both
+on retrieving and supplying sides.
+
+12/2/93 (new feature) Changed arrow-head drawing code for canvas
+lines to draw a 0-width outline in addition to filling the area:
+this produces much nicer, more symmetrical displays.
+
+12/2/93 (bug fix) When colors ran out, Tk was invoking "tkerror"
+when its state was internally inconsistent, which could cause
+core dumps in some situations (e.g. if tkerror used the same color
+that caused colors to run out).  Changed notification to occur
+as a when-idle handler.
+
+12/3/93 (bug fix) During a global grab, Tk wasn't including PointerMotion
+in the list of grabbed events, so pointer motion couldn't be tracked
+outside the grabbing application.
+
+12/3/93 (bug fix) Canvases didn't handle smoothed lines correctly
+when they only contained two points.
+
+12/3/93 (bug fix) Fixed bug in tkWindow.c where certain kinds of
+errors during window creation could cause Destroy events to be generated
+for a window that was never completely initialized.
+
+12/13/93 (bug fix) Fixed bug in tkTextDisp.c that resulted in core
+dumps at line 1467 under exmh.  The exact situation is that a text
+widget was being redisplayed at a time when it had a -yscrollcommand
+option but hadn't yet been mapped onto the screen.
+
+12/17/93 (bug fix) Fixed bug in tkWindow.c whereby new top-level windows
+with non-default visuals still inherited border pixmap from parent (root),
+which could cause visual clash and X error.
+
+12/17/93 (bug fix) Fixed bug in tkTextDisp.c that caused round-off
+error in the information passed to scroll commands.
+
+12/18/93 (bug fix) Fixed bug in tkPack.c that caused core dumps in
+some situations if a master with siblings packed "-in" it was deleted.
+
+12/18/93 (bug fix) Added "compat" directory to distribution, since it's
+referenced by tkConfig.h on some systems.
+
+12/18/93 (performance improvement) Improved performance of appending to
+a listbox, so that inserting N items doesn't take N**2 time.
+
+12/20/93 (bug fix) Fixed bug in canvas ovals that caused the fill color
+for the oval to stick out past the outline.
+
+1/2/94 (fixed Xlib bug) Added code to reuse X resource identifiers so
+that they won't run out in long running applications.  There are three
+new library procedures: Tk_FreeXId, Tk_GetPixmap, and Tk_FreePixmap.
+Modified all Tk code to use these procedures, so wish applications should
+now be able to run forever without running out of identifiers.
+
+1/10/94 (bug fix) tkCursor wasn't freeing pixmaps used to create
+cursors, which caused memory leaks in programs that changed cursors
+frequently.
+
+1/21/94 (bug fix) Fixed bug in scales that caused them to loop
+infinitely drawing tick-marks when -from and -to were the same.
+
+2/2/94 (bug fix) Fixed problem where messages that contained tabs
+didn't always compute the correct size, so that text spilled off
+the right edge.  The fix adds an extra "tabOrigin" parameter to
+the internal procedures TkMeasureChars, TkDisplayChars, and
+TkUnderlineChars.
+
+2/4/94 (bug fix) Fixed off-by-one problem in tkBind.c that caused
+it to read past the initialized part of dispPtr->modKeyCodes.
+
+2/7/94 (bug fix) Text widgets didn't handle grabs correctly, such
+that the "current" character got stuck if a grab occurred while a
+mouse button was down.  It would get unstuck until after the
+next button press and release.
+
+2/19/94 (bug fix) Fixed prolog.ps (prolog for Postscript printing from
+canvases) so that it correctly prints all of the characters in the
+ISO Latin-1 character set.
+
+2/19/94 (bug fix) Modified tkBind.c to save and restore the interpreter's
+result across the execution of binding scripts.  Otherwise if an event
+triggers in the middle of some other script (e.g. a destroy event during
+window creation, because there was an error in the creation command),
+the intepreter's result gets lost.
+
+2/19/94 (bug fix) Fixed bug in dealing with results of sent command
+that could cause them to get lost in some situations.
+
+2/21/94 (bug fix) Don't let user close a dialog window created by
+tk_dialog, since this would cause tk_dialog to hang:  force the user
+to select one of the dialog's buttons.
+
+2/21/94 (bug fix) Fixed bug in canvas polygons whereby they didn't
+correctly handle changes in the number of points (via "coords"
+widget command).
+
+2/23/94 (bug fix) Large bitmaps in canvases didn't print correctly
+because they overflowed the 64-KB limit on strings in Postscript.
+Changed canvas printing to split up large bitmaps into mutliple
+smaller ones for printing.
+
+2/25/94 (bug fix) The "." window was being set up with -width
+and -height options, which interfered with geometry management (any
+configuration change on "." causes the window to change size to
+200x200, then change back again).
+
+2/26/94 (bug fix) Fixed several bugs that occurred when a Destroy
+event handler for a window deleted the window's parent.
+
+3/3/94 (new features) Changes to binding mechanism:
+    - The modifiers for "Alt", "Meta", and "M" are now computed by
+      examining the modifier map, rather than being hardwired to
+      M2, M1, and M1.
+    - When processing events, one script is invoked for each object
+      in the list passed to Tk_BindEvent, rather than stopping as
+      soon as a script is invoked for some object.  The "break" and
+      "continue" commands can be used within a script to abort all
+      scripts for the event or the current one.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added "bindtags" command so that new binding groups can be
+      defined for widgets and the evaluation order can be changed.
+    - When matching events to bindings, extra modifiers are now ignored,
+      as if "Any" were specified for every event.  The "Any" modifier
+      is still recognized, but it is ignored and is deprecated.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - In % sequences that print window identifiers (e.g. %a and %S), print
+      in hexadecimal rather than decimal, for consistence with "winfo id".
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The "bind" command no longer supports the event types CirculateRequest,
+      ConfigureRequest, MapRequest, or ResizeRequest.  These event types
+      are somewhat dangerous, and they never worked anyway.
+
+3/13/94 (bug fix) Fixed numerous problems with the "wm iconwindow" command.
+It appears that this command never really worked at all, but it should
+work OK now.
+
+3/14/94 (feature changes) Removed several obsolete features:
+    - Eliminated "enable" and "disable" widget commands for menus.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Eliminated "activate" and "deactivate" widget commands for buttons,
+      checkbuttons, radiobuttons, and menubuttons.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Removed -geometry option for frames and toplevels:  it causes
+      problems when .Xdefaults files contain entries like
+      "*geometry: +0+0".  Must use -width and -height instead.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Desupported "tkVersion" variable: use "tk_version" instead.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+3/16/94 (feature changes) Changes to listboxes:
+    - Eliminated -geometry option (it causes problems when .Xdefaults
+      files contain entries like "*geometry: +0+0").  Added -width
+      and -height options to use instead.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+3/21/94 (bug fix) Fixed bug in tkOption.c where the option cache wasn't
+properly cleaned up after window deletion;  this could cause the wrong
+value from the option database to be used under some conditions.
+
+3/25/94 (new features) Changes to geometry management:
+    - Added Tk_MaintainGeometry and Tk_UnmaintainGeometry procedures
+      to solve problems with -in windows.  Modified the packer, the
+      placer, and canvases to use them.
+    - Changed 2nd argument to Tk_ManageGeometry from Tk_GeometryProc *
+      to a pointer to a structure with additional information about
+      the geometry manager, such as name and procedure to call when
+      slaves are stolen.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+3/28/94 (new feature) Overhauled event management:
+    - Added "cancel" option to the "after" command so that you can
+      cancel previously-scheduled commands.
+    - Separated X-specific stuff from generic event management.  The
+      file tkEvent.c can now be used stand-alone without the rest of Tk.
+      See the manual entry for Tk_EventInit for information on which
+      procedures are available this way.
+    - Added Tk_CreateFileHandler2 procedure, which provides a lower-level
+      and more powerful form of file event handler.
+    - Fixed bug in Tk_DoOneEvent where an infinite loop could occur if
+      the TK_FILE_EVENT and TK_DONT_WAIT flags were set simultaneously
+      (there were bugs with several other combinations too;  all should
+      be fixed now).
+
+3/28/94 (new feature) Added "fileevent" command, which allows event-
+driven I/O in the style of Mark Diekhans' "addinput" command.
+
+4/11/94 (new feature) Better support for colormaps and visuals:
+    - Added new -colormap and -visual options to toplevels and frames.
+    - Added "winfo visualsavailable" command.
+    - Added "wm colormapwindows" command, plus support for WM_COLORMAP_WINDOWS
+      to Tk_SetWindowColormap.
+    - Added new library procedures Tk_GetVisual, Tk_GetColormap,
+      and Tk_FreeColormap.
+
+4/11/94 (bug fix) Fixed core dump that used to occur when specifying
+an iconwindow ("wm iconwindow") for a toplevel on a different screen
+than the main window.
+
+4/23/94 (new feature) Added support for images, including the following:
+    - New "image" command for creating images.
+    - Built-in image type: bitmap.
+    - New "image" item type in canvases.
+    - Labels, buttons, checkbuttons, radiobuttons, menubuttons, and
+      menu entries now support a -image option for displaying images.
+    - Tk_CreateImageType and Tk_ImageChanged procedures, for defining
+      new types of images in C.
+    - Tk_GetImage, Tk_FreeImage, Tk_RedrawImage, and Tk_SizeOfImage
+      procedures, for using images in widgets.
+
+5/1/94 (new features) Added new procedures Tk_3DVerticalBevel and
+Tk_3DHorizontalBevel.
+
+5/11/94 (new features) Major overhaul of text widgets:
+    - Implemented embedded windows and "window" widget command.
+    - Added new configuration options for tags: -justify, -lmargin1,
+      -lmargin2, -rmargin, -offset, -spacing1, -spacing2, and -spacing3.
+      See the "Display styles" widget demo for examples.
+    - Added new configuration options for texts: -spacing1, -spacing2,
+      and -spacing3.
+    - Added "tagList" option to "insert" widget command to control
+      tags on new text.  Made tagged regions so they aren't sticky on
+      either side:  new characters get a tag only if the old chars. on
+      both sides had it.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added gravity for marks, and "mark gravity" widget command.
+    - Added horizontal scrolling, "xview" widget command, -xscrollcommand
+      option.  Changed "scan" widget commands to support horizontal
+      scrolling.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added "search" widget command for searching (either exact matches
+      or regular expressions).
+    - New widget commands: bbox, dlineinfo, and see.
+    - Changed implementation of bindings so that Enter and Leave
+      events are not generated unless the tag has just become present
+      (or just ceased to be present) on the current character.  Also
+      changed bindings to process separately for each tag, rather than
+      having high-priority tags override low-priority ones.
+    - The "end" index now refers to the character after the last newline
+      rather than the newline itself.  You can now tag the final newline
+      and set a mark after the final newline.
+    - Deletions of the "sel" tag and the "insert" and "current" marks
+      are now ignored silently, rather than generating errors.  This means
+      you can do things like "eval .t tag delete [.t tag names]".
+
+5/19/94 (bug fix) Canvases didn't generate proper Postscript for stippled
+text.
+
+5/20/94 (new feature) Added "bell" command to ring the display's bell.
+
+5/20/94 (new feature) Incorporated "square" demonstration widget into
+tktest application.
+
+5/20/94 (new features) Changed wish application (tkMain.c):
+    - wish no longer processes the -help option.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The wish main program is now called Tk_Main;  tkAppInit.c has a
+      "main" procedure that calls Tk_Main.  This makes it easier to use
+      Tk with C++ programs, which need their own main programs, and it
+      also allows an application to prefilter the argument list before
+      calling Tk_Main.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The application's class is now the same as its name (except the
+      first letter is capitalized), instead of "Tk".
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The -file keyword is no longer required:  the script file name can
+      be provided as the first argument without being preceded by "-file",
+      as in tclsh.  For backward compatibility the "-file" keyword is
+      ignored if it is the first argument, but it is deprecated.
+
+5/26/94 (feature removed) Removed support for "fill" justify mode from
+Tk_GetJustify and from the TK_CONFIG_JUSTIFY configuration option.  None
+of the built-in widgets ever supported this mode anyway.
+*** POTENTIAL INCOMPATIBILITY ***
+
+5/27/94 (feature change) Changed Tk to use Tk_PrintDouble everywhere
+that it converts reals to strings.  This means that floating-point
+values will be generated in some cases where integer-like values were
+generated before.
+*** POTENTIAL INCOMPATIBILITY ***
+
+6/1/94 (feature change) Renamed "pack newinfo" command to "pack info".
+The old "pack info" command is no longer available.
+*** POTENTIAL INCOMPATIBILITY ***
+
+6/20/94 (feature changes) Overhaul of entry widgets:
+    - Added "-justify" option.
+    - Added "-show" option to make entries easier to use for passwords.
+    - Added "cget" widget command.
+    - Added "selection range" and "selection present" widget commands.
+    - Added "anchor" symbolic index.
+    - Changed "-scrollcommand" option to "-xscrollcommand", "view"
+      widget command to "xview", for compatibility with other widgets.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Changed sel.last to refer to character just *after* last one
+      selected, again for compatibility with other widgets.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - For "delete" widget command, second index now refers to character
+      just *after* last one to delete.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Overhauled bindings to be more Motif-compatible and to include
+      common Emacs bindings for editing.
+    - Changed -width option:  if specified as 0, widget sizes to fit
+      its current text.
+
+6/11/94 (new features) Improved Motif compatibility:
+    - Added "-highlightwidth" and "-highlightcolor" options to all widgets.
+
+6/27/94 (bug fix) Postscript generation for text items in canvases was
+not justifying the text properly when a -width was specified that was
+longer than the longest line.
+
+6/27/94 (bug fix) "winfo exists" used to report a window as existing
+if it was in the process of being destroyed (i.e., a destroy handler
+is in the middle of execution).  Changed to report it as non-existent
+under these conditions.
+*** POTENTIAL INCOMPATIBILITY ***
+
+7/11/94 (bug fix) Selections claimed via "selection own" weren't always
+being cleared properly when the selection was claimed away.  Also fixed
+bug where Tk wasn't properly claiming the selection, if there haven't
+been any recent X events at the time of the claim.
+
+7/13/94 (feature changes) Overhaul of scrollbar widgets:
+    - New widget commands: "activate", "cget", "fraction", and "identify".
+    - New options: -activebackground, -activerelief, -highlightcolor,
+      -jump, -highlightthickness, and -troughcolor.  What used to be
+      -background is now -troughcolor, -foreground is now -background,
+      and -activeforeground is now -activebackground.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added new syntax for "set" command, "get" result, and generated
+      commands.  Changed other widgets to use the new syntax.
+    - Moved the bindings out of C and into Tcl scripts, using the new
+      options and widget commands.  Added support for all Motif
+      bindings, plus jump scrolling and cancelling of slider drags.
+
+7/16/94 (bug fix) Canvases assumed that the Leave event for one item
+didn't modify or delete the next current item;  this could cause core
+dumps under some conditions.
+
+7/23/94 (feature change) Modified Tk_BackgroundError so that tkerror
+is invoked as an idle handler.  If tkerror generates a break exception
+then all other queued reports are aborted.
+
+8/14/94 (bug fix) "cursorOffTime" and "cursorOnTime" were confused in
+canvases, resulting in the same time being used for both.
+
+8/16/94 (bug fix) "tkwait variable" command didn't detect errors in
+variable name, such as trying to wait for an entire array.
+
+9/2/94 (new features) Overhaul of scale widgets:
+    - Floating-point values are supported now, following Paul Mackerras'
+      "fscale" widget.  Added "-resolution" and "-digits" options.
+    - Added "-variable" option to link scale to variable, following
+      Henning Schulzrinne's implementation.
+    - Added focus highlight (-highlightthickness and -highlightcolor
+      options).
+    - Added new widget commands "cget",  "coords", "identify", plus
+      improved "get";  removed wired-in bindings, added complete set
+      of Motif bindings via Tcl scripts.
+    - Changed -sliderforeground option to -background, -background to
+      -troughColor, -activeforeground to -activebackground.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Moved value label from below horizontal scales to above the scale,
+      for Motif compliance.
+
+9/9/94 (bug fix) Fixed bug in tkWm.c that caused long delays in "raise"
+command under some conditions (window already at the top of the stack).
+
+9/10/94 (new features) Overhaul of label/button/checkbutton/radiobutton
+widgets:
+    - Added focus highlight (-highlightthickness and -highlightcolor
+      options).
+    - Added new widget command "cget".
+    - Changed -selector option to -selectcolor, and changed its meaning
+      too: empty no longer means don't draw the indicator;  it means
+      don't use a special color when selected.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added -indicatoron (controls whether indicator is displayed) and
+      -selectimage (gives special image to display when selected) options.
+    - Modified bindings to be more Motif-like, added binding for space
+      key.
+    - Changed padding defaults to give widgets correct Motif appearance
+      by default.  Also, changed to ignore padding options when displaying
+      an image or bitmap.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Can now display text on multiple lines:  newlines cause line breaks,
+      and word wrapping can be requested with -wraplength option.  Also
+      added -justify and -underline options.
+    - The -value option for radiobuttons can now have an empty string as
+      its value;  it no longer defaults to the name of the widget.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+9/13/94 (new features) Modified both canvases and messages to support
+-highlightthickness and -highlightcolor options plus "cget" widget
+command.
+
+9/19/94 (new features) Added Tk_UnsetGrid procedure, modified widgets
+to use it.  Also changed Tk_SetGrid so that at most one window per
+toplevel can have gridding enabled.
+
+9/23/94 (new features) Major overhaul of listbox widgets:
+    - Added focus highlight (-highlightthickness and -highlightcolor
+      options).
+    - Added new widget command "cget".
+    - Revised selection commands to support single selections as well
+      as multiple disjoint selections;  syntax of "selection" widget
+      command has changed to support this.  Added new option -selectmode
+      for specifying which mode to use.  Default is single selection;
+      tk_listboxSingleSelect procedure no longer exists.  Selections
+      now return as items separated by newlines instead of a list whose
+      elements are the items.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Extended "get" widget command to allow many items to be retrieved
+      at once.
+    - Added "bbox" widget command for finding position of an element on
+      screen.
+    - Added "activate" command to mark element with traversal focus.
+    - Extended index mechanism to support new types of indices:
+      "active", "anchor", "@x,y".
+    - Added "see" widget command.
+    - Revised bindings to include all Motif features except for AddMode.
+    - If -width or -height option is <= 0, the widget requests a size just
+      large enough to hold all of its text.
+
+10/6/94 (new features) Overhaul of menubuttons:
+    - Added focus highlight (-highlightthickness and -highlightcolor
+      options).
+    - Added new widget command "cget".
+    - Added -indicatoron option to display option menu indicator.
+    - The -menu option must be a child of the menubutton.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+10/6/94 (new features) Overhaul of menu widgets:
+    - Added new widget commands "cget" and "entrycget".
+    - Changed the implementation of tear-off menus to be more
+      Motif-like;  added -tearoff option for specifying whether
+      tearoff entry is displayed.
+    - Changed interpretation of "@y" index:  it now returns the
+      closest entry, rather than "none" if y is outside the menu's
+      range.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The -menu option for a cascade entry must now be a child of
+      the menu.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added "type" widget command, so that you can query the type of
+      an entry.
+    - Added -foreground, -activeforeground, -selectcolor, -indicatoron,
+      -image, and -selectimage options to menu entries.
+    - Changed "selector" menu option to "selectColor" for Motif compliance.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added -relief option for menus, just for consistency with other
+      widgets (it was implicitly "raised" before).
+
+10/6/94 (feature change) Completely overhauled the bindings for menus
+and menubuttons.  They now fit better with other Tk 4.0 facilities,
+such as the new binding mechanism, and they provide better Motif
+compliance (e.g. keyboard traversal of submenus).  Also, the bindings
+now support option menus, popup menus, and proper Motif tear-off
+menus.
+
+10/6/94 (obsolete features) The procedures tk_menuBar and
+tk_bindForTraversal are no longer needed in Tk 4.0.  They still exist
+for compability, but they do nothing.
+
+10/6/94 (new procedures) Added "tk_popup" procedure for posting a
+popup menu, and "tk_optionMenu" for creating an option menubutton
+and its associated menu.
+
+10/6/94 (change in name) The variable "tk_priv" has been renamed
+to "tkPriv" to reflect that fact that it is private to Tk now.
+This shouldn't cause any problems, since no-one except Tk should
+have been using it before anyway (right?).
+
+10/6/94 (bug fix) Fixed bug in texts where sometimes the text would
+stop tracking mouse motion (the "current" item wouldn't get updated)
+because the text widget missed a ButtonRelease event.
+
+10/20/94 (new features) Overhauled selection code to support multiple
+selections (primary, secondary, etc.) and multiple displays:
+    - Changed "selection" command to support new options such as
+      "-displayof" and "-selection".  Old command formats are still
+      supported for compatibility, but they are no longer documented
+      and are deprecated.
+    - Changed procedures Tk_GetSelection, Tk_CreateSelHandler, and
+      Tk_ClearSelection to take additional "selection" argument.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Selection targets APPLICATION and WINDOW_NAME have been replaced
+      by TK_APPLICATION and TK_WINDOW.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+10/20/94 (new features) Added support for clipboard:
+    - New "clipboard" command.
+    - C procedures Tk_ClipboardClear and Tk_ClipboardAppend.
+    - Bindings for "cut", "paste", and "copy" for text and entry widgets,
+      plus "copy" binding for listboxes.
+
+10/24/94 (bug fix) Button widgets weren't checking for errors when
+setting the values of associated variables.
+
+11/3/94 (bug fix) Fixed bug whereby Tk would hang if "exit" was invoked
+from inside a <Destroy> binding.
+
+11/15/94 (new features) Overhaul of focus mechanism:
+    - Added support for multiple displays:  separate focus windows are
+      kept for each display.
+    - Added support for keyboard traversal.
+    - Changed focus model so Tk keeps track of a focus window for each
+      top-level window and automatically sets the focus on Enter to the
+      top-level.  Tk no longer synthesizes FocusIn and FocusOut events,
+      but just uses the standard X mechanisms.  There is no "default"
+      focus window anymore; the focus reverts to top-levels by default.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Changed focus command:  eliminated "focus default" and "focus none",
+      added "-displayof" and "-lastfor" options.  An empty string is now
+      used to signify "no focus" instead of "none".
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Added library procedures tk_focusNext, tk_focusPrev, and
+      tk_focusFollowsMouse.
+    - Removed obsolete Tk_CreateFocusHandler:  must use FocusIn and
+      FocusOut events now.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+11/23/94 (new features) Overhaul of "send" command:
+    - Added support for multiple displays: -displayof option to "send".
+    - Added asynchronous sends: -async option to "send".
+    - Eliminated fixed timeouts on sends:  as long as the target
+      application appears to exist, the send will wait for it.
+    - Stale entries get removed from the application registry now,
+      so "winfo interps" should never return non-existent applications.
+    - Can change the name of an application with "tk appname" command.
+      This is also the preferred way of querying the application name
+      now.
+    - The errorCode and errorInfo variables are now propagated back to
+      the sender now, so a full stack trace is available.
+    - Tk checks display security on each send now, instead of just during
+      initialization, so changes in the security status are seen immediately
+      by all applications.
+    - The above changes required changes to the data formats used for
+      communication between source and target applications, so Tk 4.0
+      applications cannot send to, or be sent from, Tk 3.6 applications.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - The procedure Tk_RegisterInterp has been replaced with Tk_SetAppName.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+12/6/94 (cleanup) Eliminated "interp" argument to Tk_GetColorByValue,
+since it is no longer needed.
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/7/94 (feature change) Changed the "wm" command so that top-level
+windows are now resizable by default.  You can no longer specify
+empty arguments to "wm maxsize" and "wm minsize".
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/8/94 (new feature) Added new "photo" image type using code provided
+by Paul Mackerras:  currently supports only PPM "P6" format images.
+
+12/14/94 (new features) Canvas modifications:
+    - Modified the interfaces between generic canvas code and the item
+      types so that it's easy for people to write new item types outside
+      of Tk.
+    - Added support for transparent bitmap items:  just specify an
+      empty string as the background color.
+    - Changed the "xview" and "yview" commands for canvases to use the
+      new scrolling syntax.
+    - Eliminated -scrollincrement option.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+12/14/94 (bug fix) Fixed bug where the dimensions of canvas arrowheads
+scaled during a "scale" widget command, but the scaling was only
+temporary and got lost on the next re-configure of the item.  The
+correct behavior is for the arrowheads not to scale.
+
+-------------------- Release 4.0b1, 12/23/94 -------------------------
+
+12/26/94 (bug fix) Removed obsolete demos from Makefile (color, dialog,
+size), fixed "install" target.
+
+1/3/95 (bug fix) Fixed all procedure calls to explicitly cast arguments:
+implicit conversions from prototypes don't work when compiling under
+non-ANSI compilers.  Tk is now clean under gcc -Wconversion.
+
+1/4/95 (bug fix) Used "screenX" without ever setting it in DisplayText
+in tkCanvText.c:  caused tabs in canvas text items to get messed up.
+
+1/4/95 (bug fix) Canvases forgot to register the built-in types if
+Tk_CreateItemType was called before a canvas widget was created.
+
+1/4/95 (bug fixes) Fixed glitches in various text bindings:
+    - Up used to do nothing if the cursor was at 2.0.
+    - Right used to make the cursor invisible if it was just before
+      the final newline of the text.
+    - Control-t didn't conform to Emacs;  made it conform to GNU Emacs.
+    - Deleted Control-x binding, since it doesn't conform to anything and
+      is confusing for Emacs users.
+
+1/4/95 (bug fixes) Changed Control-t for entries just as for texts (see
+above) an deleted Control-x for entries (see above).
+
+1/4/95 (bug fix) The packer didn't map slaves unless the master was mapped;
+this could cause slaves to get "lost" so that they weren't mapped until the
+master resized.
+
+1/5/95 (bug fix) Scrollbars weren't executing the proper code the first time
+the mouse entered the widget;  this caused problems if tk_strictMotif was
+set.
+
+1/6/95 (bug fix) Fixed label/button/checkbutton/radiobutton/menubutton
+widgets to allow arbitrary screen distances when specifying -width and
+-height for an image or bitmap (the manual pages already documented this
+but the code didn't implement it).
+
+1/6/95 (new feature) Added very primitive support for input methods,
+as suggested by Martin Forssen.  This should be enough for European
+character sets (Compose key) but it isn't near enough for Asian
+character sets.
+
+1/8/95 (bug fix) Fixed problem in canvas "xview" and "yview" commands
+where divide-by-zero errors could sometimes occur.
+
+1/8/95 (bug fix) New event handler didn't properly handle files for
+which both TK_READABLE and TK_WRITABLE were specified.
+
+1/11/95 (bug fix) Fixed bug with text selections:  was returning count
+too high for data, causing bogus garbage to appear when selection was
+copied.
+
+-------------------- Release 4.0b2, 1/12/95 -------------------------
+
+1/27/95 (feature removal) Removed %D substitution from binding scripts:
+wasn't portable, shouldn't be used anyway.
+*** POTENTIAL INCOMPATIBILITY ***
+
+1/27/95 (new features) Added -displayof options to the commands
+"winfo atom", "winfo atomname", "winfo containing", "winfo interps",
+and "winfo pathname".
+
+1/27/95 (new feature) Added "idle" option to "after" command to run
+scripts as idle handlers.
+
+1/28/95 (new feature) Modified placer to make -x and -relx additive
+if you specify both.  Same for -y and -rely, -width and -relwidth,
+and -height and -relheight.  This makes it easy to make request such
+as "make .a 2 pixels larger than .b".
+*** POTENTIAL INCOMPATIBILITY ***
+
+1/28/95 (new feature) Improved auto-grab mechanism in canvases (which
+prevents current item from changing while a button is down):  changed
+to report Enter and Leave events for the current item while a button
+is down.  However, as before, no Enter events are reported for other
+items until the button goes up.
+
+1/28/95 (new feature) Bitmap images are now transparent if the -background
+is specified as an empty string (-maskdata and -maskfile are ignored in
+this case).  This is also the default.
+
+1/28/95 (bug fix) Tk didn't support manufacturer- or site-specific keysyms
+such as SunAudioMute.  Modified tkBind.c so that it uses XStringToKeysym
+in addition to its own hash table, so that all keysyms are now available.
+
+1/30/95 (feature change) Modified "clipboard append" so that it reclaims
+the clipboard selection if it had been previously lost, rather than just
+generating an error.  This handles certain race conditions more cleanly,
+and also allows the use of programs like "xclipboard".
+
+1/30/95 (new feature) Added -xscrollincrement and -yscrollincrement
+options to canvases.
+
+1/31/95 (bug fix) Geometry management was broken if a particular geometry
+manager claimed a slave away from itself.
+
+1/31/95 (bug fix) Fixed bug in tkVisual.c where a visual with fewer bits
+than requested was being selected in preference to one with just the right
+number of bits.
+
+1/31/95 (bug fix) Texts weren't redisplaying the padding region properly
+after changes in -padx or -pady.
+
+1/31/95 (new features) More text improvements:
+    - Extended "insert" widget command for texts to allow multiple
+      text-tagList pairs in the same command.
+    - Added -nocase option to "search" widget command.
+    - Added -overstrike option to tags.
+    - Added tab stops, via -tabs option for widget and for tags.
+
+2/10/95 (bug fix) Modified all widgets to allow renaming of widget
+commands.  Deleting a widget command will delete the widget.
+
+2/11/95 (new feature) Added -highlightbackground option to all widgets.
+
+2/14/95 (new feature) Added "insert" widget command for menus.
+
+2/15/95 (new feature) Modified text display code (for all widgets) to
+display well-known control characters like newline and backspace as
+\n or \b instead of \xa.
+
+2/15/95 (bug fix) Modified bitmap and photo image managers to delete
+the image command when the image is deleted.  Also modified them to
+allow renaming of the image command, and to delete the image if the
+image command is deleted.
+
+2/15/95 (bug fix) Fixed text widgets to allow horizontal scrolling
+even if wrapping was enabled, if a line isn't entirely visible due to
+a large character or embedded window.
+
+2/16/95 (feature change) Added "postcascade" widget command to menus,
+changed "invoke" and "activate" not to post or unpost submenus.  Also
+fixed bug in redisplay that tended to leave bits of garbage on menu
+when submenu unposted.
+*** POTENTIAL INCOMPATIBILITY ***
+
+2/16/95 (feature removal) Removed "snap back" behavior (slider
+snaps back to old position if you move the mouse outside the widet
+before releasing the button) from scrollbars and scales.
+
+2/16/95 (bug fix) The last line of a listbox wasn't being displayed if
+it was only partially visible.
+
+2/16/95 (new features) Added support for "-resolution 0" (no rounding
+of values) to scale widgets, plus smarter computation of how many digits
+to display.
+
+2/17/95 (bug fix) Fixed bug in text bindings for things like Shift-Left:
+didn't properly set the anchor position.
+
+2/20/95 (bug fix) Changed management of COLORMAP_WINDOWS property to
+add the toplevel implicitly to the end of the list if it wasn't already
+on the list somewhere.  Without this, some window managers implicitly
+put it at the front of the list, so that colormaps in internal windows
+are never used.
+
+2/20/95 (bug fix) Changed to use separate command procedures for
+button, checkbutton, label, and radiobutton commands.  This allows the
+class commands to be renamed without breaking their behavior.
+
+2/20/95 (removed feature) The "bind" command no longer supports
+"Keymap" events;  they never worked anyway.
+
+2/20/95 (bug fix) The text "search" widget command looped infinitely
+when searching an empty text.
+
+2/20/95 (bug fix) Canvases weren't redrawing their borders after
+configuration changes.
+
+2/20/95 (upgrade) Changed to use autoconf version 2.2.
+
+2/21/95 (bug fix) Fixed several bug fixes in menu bindings that occur
+when menus have no entries.
+
+2/21/95 (bug fix) Fixed bug in geometry management that caused windows
+packed -in siblings to not always be mapped and unmapped properly
+(particularly when the toplevel got unmapped and mapped).
+
+2/22/95 (bug fix) Fixed resource leak problem in tkTextDisp.c that
+caused embedded windows not to be unmapped when off-screen.
+
+2/23/95 (bug fix) "After cancel" dumped core when the script for an
+after event cancelled itself.
+
+2/24/95 (bug fix) Text and entry widgets weren't properly ignoring
+Alt-, Control-, and Meta- keystrokes, so a widget-specific binding
+for one of these resulted in the character also being inserted.
+
+2/24/95 (bug fix) Several widgets accidentally performed unsigned
+division on negative numbers, thereby losing the sign bit.  This
+mostly affected the display of images and bitmaps in buttons,
+menubuttons, and messages.
+
+2/24/95 (feature reversal) Restored old behavior of %A so that it
+returns non-printing characters as well as printing ones now.
+*** POTENTIAL INCOMPATIBILITY with Tk 4.0b2, but not with Tk 3.6 ***
+
+2/24/95 (bug fix) Duplicate "leave" events could occur for canvas
+items under some conditions, due to recursive calls to PickCurrentItem.
+Added code to detect and skip the nested calls.
+
+2/24/95 (bug fix) Fixed bug where an error could occur during the first
+keystroke in an application if its binding invoked "break".
+
+2/25/95 (new feature) Modified syntax of "search" widget command for
+texts.  The -nowrap switch and the "variable" final argument are no
+longer supported.  Instead, there is a -count switch to replace
+the final argument;  if the final argument is specified, it is now
+a stopping index for the search.  The features of -nowrap can be
+achieved now with the stopping index.
+*** POTENTIAL INCOMPATIBILITY with Tk 4.0b2, but not with Tk 3.6 ***
+
+2/27/95 (bug fix) Fixed problem that appears to prevent keyboard
+input for working under IRIX:  tkBind.c was ignoring XmbLookupString
+calls that returned a status of XLookupBoth.
+
+2/27/95 (new feature) Added Tk_GetItemTypes procedure to return
+information about available canvas item types.
+
+2/27/95 (feature change) Changed Makefile to always use install-sh
+for installations:  there's just too much variation among "install"
+system programs, which makes installation flakey.
+
+2/27/95 (bug fix) Fixed bug in tkSend.c that caused core dumps if
+the app's main window was destroyed by a destroy handler on a
+child.
+
+3/5/95 (feature change) Change separator character used in "bind +..."
+bindings from semi-colon to newline (permits bindings that are
+comments, for what that's worth).
+
+3/7/95 (bug fix/feature change) Overhauled focus code, both in C
+and in Tcl:
+    - Tk won't move the X focus in response to the "focus" command
+      unless either the application already has the focus or the
+      -force switch is specified.
+    - Tk no longer sets the X focus to anything other than top-levels;
+      it synthesizes events for FocusIn and FocusOut to children.
+    - A window no longer has to be viewable when focussed to;  Tk will
+      set the X focus later, when the window becomes viewable.
+    - Added -takefocus option to all widgets.
+    - Rewrote tk_focusPrev and tk_focusNext to use the -takefocus option.
+      These procedures no longer set the focus;  they just return the
+      next window in focus order.
+      *** POTENTIAL INCOMPATIBILITY with Tk 4.0b2, but not with Tk 3.6 ***
+    - Eliminated tk_focusContinue.
+      *** POTENTIAL INCOMPATIBILITY with Tk 4.0b2, but not with Tk 3.6 ***
+
+3/8/95 (new feature, bug fix) Added support for tk_strictMotif variable
+in C:  Tk_StrictMotif library procedure.  Modified buttons, menubuttons,
+menus to use it.  This fixes the problem with menus not supporting
+tk_strictMotif properly in Tk4.0b1 and b2.
+
+3/16/95 (feature overhaul) Overhauled color management:
+    - Changed Tk so it never denies a color request because a colormap
+      filled up.  Instead, it allocates the closest available color.
+    - Eliminated "color model" mechanism.  The "tk colormodel" command
+      is gone, as are the procedures Tk_GetColorModel and Tk_SetColorModel.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Changed 3D border implementation to allocate colors for shadows
+      lazily, so they're never allocated if they're never used.  Also
+      added new feature whereby stippling is used for borders when
+      the colormap has run out of entries.  Changed arguments to many
+      of Tk_3D C procedures to take a Tk_Window as argument instead of
+      a (Display *).  This is needed to do lazy color allocation.
+      *** POTENTIAL INCOMPATIBILITY ***
+    - Eliminated colormap argument to Tk_GetColor, Tk_GetColorByValue,
+      and Tk_Get3DBorder.
+      *** POTENTIAL INCOMPATIBILITY ***
+
+3/16/95 (feature change) Event bindings created from Tcl will now ignore
+Enter, Leave, FocusIn, and FocusOut events with detail NotifyInferior.
+This is done in anticipation of mega-widgets, so that the user of a
+mega-widget can create Enter/Leave bindings on the mega-widget without
+seeing spurious events as the mouse moves among the windows in the
+mega-widget.
+*** POTENTIAL INCOMPATIBILITY ***
+
+3/17/95 (feature change) Changed C interfaces throughout Tk to use ints
+instead of unsigneds:  the unsigneds turn out to cause subtle problems
+with arithmetic in some places, and using ints everywhere is just
+simpler.
+*** POTENTIAL INCOMPATIBILITY ***
+
+3/23/95 (bug fix) Selections longer than 4000 bytes were being
+truncated to 4000 bytes.
+
+-------------------- Release 4.0b3, 3/24/95 -------------------------
+
+3/25/95 (bug fix) Changed "install" to "./install" in Makefile so that
+"make install" will work even when "." isn't in the search path.
+
+3/25/95 (bug fix) Modified Tk's selection mechanism to prevent core
+dumps in other applications during retrievals of large selections
+(this is actually a bug in the other apps, but I've patched Tk to
+keep it from getting triggered).
+
+3/25/95 (bug fix) Fixed bug where X window for "." wasn't being
+deleted.
+
+3/27/95 (bug fix) Fixed many bugs associated with having more than
+one application in a single process.
+
+3/28/95 (bug fix) The "search" widget command for texts didn't
+return the correct index and count if there were embedded widgets
+on the same line as the returned range but before the end of
+the range.
+
+3/28/95 (bug fix) Changed pasting via button 2 in text and entries
+so that it inserts at the pointer location, not the location of
+the insertion cursor.
+
+3/28/95 (bug fix) Fixed several bugs related to <Destroy> bindings
+that delete ancestors in the window hierarchy.  Also eliminated
+extraneous calls to XDestroyWindow, which speeds up window deletion
+by about 3x.
+
+3/28/95 (bug fix) Several widgets (buttons, menubuttons, menus) didn't
+properly handle image deletions that occurred while the widget was
+being deleted (caused core dumps).
+
+3/29/95 (bug fix) When retrieving long selections from text widgets,
+parts of lines were getting duplicated in the selection information.
+
+4/1/95 (bug fix) Fixed bug that caused infinite loop in horizontal
+scales with 0 range.
+
+4/1/95 (bug fix) Fixed problem with -command option for scrollbars and
+-takefocus option that caused commands to be evaluated in the wrong
+context.
+
+4/1/95 (bug fix) Fixed problem with option database that caused it to
+sometimes use the wrong option (wasn't flushing the database properly
+after a change in a window's class).
+
+4/1/95 (bug fix) If a line in a text widget just barely fit in the window,
+Tk was allocating a second screen line just for the newline character.
+
+4/1/95 (new feature) When backspacing in an entry widget, when you reach
+the left edge of the widget, the insertion cursor gets recentered.
+
+4/1/95 (new features) Added "winfo pointerx" and "winfo pointery" commands
+to fetch the current pointer position.
+
+4/6/95 (bug fix) If the last line of a text widget was only partially
+visible, it was counted as visible for purposes of the scrollbar.  Now
+it is treated as if it were off-screen for scrolling purposes.
+
+4/6/95 (new feature) Modified "bell" command to reset screen saver as well.
+
+4/6/95 (feature change) Modified menu scanning (where menus pull down
+as you drag across their menubuttons) so it only works among menus
+in the same toplevel;  it used to work for any menubuttons in the
+application.
+
+4/6/95 (bug fix) Canvas text items weren't allowing real numbers in
+"@x,y" notation for specifying indices.
+
+4/7/95 (bug fix) Menus didn't display correctly when -activeborderwidth
+was large.
+
+4/7/95 (bug fix) Changed "clipboard append" command to support -- option
+and to always treat the last argument as data, even if it starts with
+"-".
+
+4/17/95 (new feature) Added -wrap option to text tags.
+
+4/18/95 (bug fix) Listboxes and texts weren't updating their grid information
+when -width or -height changed.
+
+4/18/95 (bug fix) "Down" didn't work right in text widgets if the last
+line was only partially visible in the window.
+
+4/19/95 (bug fix) Listboxes didn't handle partially visible last lines
+right:  couldn't scroll it into full visibility, for example.
+
+4/20/95 (bug fix) If a toplevel was positioned with a command like
+"wm geometry . -0-0", the window didn't reposition itself to maintain
+that geometry after a size change.
+
+4/21/95 (feature change) Changed order of binding tags so widget bindings
+fire before class bindings.  New order is: widget, class, toplevel, all.
+*** POTENTIAL INCOMPATIBILITY with Tk 4.0b3, but not with Tk 3.6 ***
+
+4/23/95 (new feature) Added "winfo colormapfull" command.
+
+4/23/95 (new feature) Buttons and radiobuttons and checkbuttons now
+treat Return the same as Space, unless tk_strictMotif is set.
+
+4/23/95 (bug fix) Modified menu tear-off procedure to duplicate the
+binding tags and bindings of the original in the copy.
+
+4/25/95 (bug fix and feature change) Modified mechanism for choosing
+"best" visual to fix a bug where depth wasn't really getting highest
+priority in all situations.
+
+4/28/95 (bug fix) Failed text searches starting at "end" could result
+in an infinite loop in Tk.
+
+4/30/95 (new feature) Added "wm resizable" command to enable and
+disable interactive resizing.
+
+4/30/95 (new feature) Added "window names" widget command to texts:
+returns a list of all embedded windows.
+
+5/2/95 (feature change) Changed text searches so that forward searches
+start at the given index, rather than the character just after the
+given index.
+*** POTENTIAL INCOMPATIBILITY with Tk 4.0b3, but not with Tk 3.6 ***
+
+5/4/95 (bug fix) Default bit gravity for windows was wrong (it was
+ForgetGravity) causing unnecessary flashing when windows were resized.
+
+5/4/95 (feature change) Modified Tk_DoOneEvent so that it doesn't
+sleep if there's nothing that will wake it up again (e.g. no file
+or timer handlers).  Returns 0 immediately.
+
+5/5/95 (configuration change) Changed to use BSDgettimeofday instead
+of gettimeofday on systems like IRIX where BSDgettimeofday is
+available.  This avoids compilation problems due to the different
+interface to gettimeofday provided by IRIX.
+
+5/5/95 (feature change) Changed binding mechanism so that all bindings
+are created immediately at initialization time, rather than waiting
+until the first FocusIn or Enter event for a class.
+
+5/6/95 (feature change) Changed default text for labels, buttons,
+checkbuttons, radiobuttons, menubuttons, and messages from " " to
+"".
+
+5/6/95 (bug fix) If the application was destroyed in the middle of
+an "update" command, Tk would dump core.
+
+5/6/95 (bug fix) Changed manual entries to use the standard .TH
+macro instead of a custom .HS macro;  the .HS macro confuses index
+generators like makewhatis.
+
+5/6/95 (bug fix) Change "wm iconwindow" command to disable button
+presses for the icon window.  This is needed so that the window
+manager can get those events (X only allows button presses to go
+to one client for a given window).
+
+5/9/95 (new feature) When specifying visuals, can now use "best"
+with a depth, e.g. "-visual {best 8}" to get the best 8-bit visual.
+
+5/18/95 (bug fix) Fixed bug with -spacing* options for text widget:
+screen distances weren't allowed, only integers.
+
+5/20/95 (bug fix) Eliminated memory leaks in tkTextDisp.c and elsewhere.
+
+5/22/95 (color change) Changed the Tk color palette to a gray scheme.
+Also added a library procedure tk_setPalette that makes it easy to
+change colors on the fly, and a procedure tk_bisque that restores the
+previous light brown scheme.
+
+5/28/95 (bug fix) Modified canvases so that the -width and -height
+options refer to the space inside the borders, not the total widget
+space.  Also changed "xview" and "yview" commands and scroll-increment
+rounding to use the pixel just inside the borders, rather than (0,0).
+
+5/28/95 (bug fix) Several widgets (e.g. entries, buttons, and menus)
+didn't properly handle unsets of variables they were tracing, if the
+variables were reference through upvars in procedures.
+
+6/4/95 (bug fix) The placer wasn't rounding window widths right when
+both -relx and -relwidth were specified (or -rely and -relheight) so
+that rounding errors accumulated.
+
+6/4/95 (feature improvement) Change parsing of text indices to handle
+weird mark and tag names better (e.g. any string ending with ".first"
+will now be parsed as a tag name, even if it contains embedded spaces,
+etc.).
+
+6/4/95 (feature change) If a font defines glyphs for control characters,
+they are now displayed, instead of translating the character to a
+backslash sequence (however, tabs and newlines are still treated
+specially;  glyphs are not displayed for these characters).
+
+6/4/95 (bug fix) Modify the implementation of "raise" and "lower" for
+toplevels so that it now works under olwm and olvwm.  It didn't use to
+work, and the problem is really in the window manager, but Tk now
+patches around it.  However, only "total" raises and lowers work:
+raising and lowering relative to a sibling still don't work under
+olvwm and olwm.
+
+6/4/95 (feature change) Modified tab code in texts so that a tab always
+occupies at least as much space as a space character.
+
+6/4/95 (bug fix) The "%t" substitution wasn't being made properly in
+Enter and Leave event bindings.
+
+6/7/95 (new feature) Added support for GIF images.  Unfortunately it's
+a bit fragile:  certain kinds of badly formed images can cause core
+dumps;  I don't know enough about the GIF reader (taken from giftoppm)
+to figure this out.
+
+6/7/95 (bug fix and feature change) Fixed PPM image reader to be more
+flexible about header formats, and added support for PGM images.
+
+6/7/95 (feature change) Added -outlinestipple option to canvas arc
+items, changed "-style arc" to use -outline as the color instead of
+-fill (the old approach was pretty quirky).
+*** POTENTIAL INCOMPATIBILITY ***
+
+6/8/95 (feature change) Modified interface to Tk_Main to pass in the
+address of the application-specific initialization procedure.
+Tcl_AppInit is no longer hardwired into Tk_Main.  This is needed
+in order to make Tcl a shared library.
+
+6/8/95 (feature change) Modified Makefile so that the installed versions
+of wish and libtk.a have version number in them (e.g. wish4.0 and
+libtk4.0.a) and the library directory name also has an embedded version
+number (e.g., /usr/local/lib/tk4.0).  This should make it easier for
+Tk 4.0 to coexist with earlier versions.
+
+6/9/95 (new feature) Added -outline and -width options to canvas polygon
+items.
+
+6/9/95 (feature changed) Renamed -decimate in photo widget to -subsample
+(decimate wasn't technically correct).
+*** POTENTIAL INCOMPATIBILITY with Tk 4.0b3, but not with Tk 3.6 ***
+
+-------------------- Release 4.0b4, 6/16/95 -------------------------
+
+6/19/95 (bug fix) Colors weren't being rounded correctly in canvas
+Postscript generation: caused "white" to appear slightly gray when
+the display of the canvas used only 8 bits per color.
+
+6/20/95 (bug fix) "bbox" widget command for texts didn't return
+proper width for tabs.
+
+6/20/95 (bug fix) Scrollbars didn't always work right for texts:
+couldn't scroll all the way to the bottom of the text in a single
+drag of the slider.
+
+6/20/95 (new feature) Added "delta" widget command for scrollbars
+(needed for above bug fix).
+
+6/23/95 (bug fix) Listboxes weren't properly redisplaying their
+borders when the were configured to a smaller size.
+
+6/23/95 (new feature) Added "winfo server" command.
+
+6/23/95 (bug fix) If a menu was posted, couldn't switch to another
+menu with an Alt- key.
+
+6/24/95 (new feature) Added "winfo pointerxy" command.
+
+6/25/95 (bug fix) Tk_ParseArgv referenced beyond the end of 0-length
+option names.
+
+6/25/95 (bug fix) Fixed problem in tkOption.c where "cachedWindow"
+could get garbage in it if the main window's class was changed by
+calling Tk_SetClass.
+
+6/25/95 (bug fix) Fixed two bugs in menus, one where errors in
+variable traces weren't propagated correctly and one where "invoke"
+was invoked at the wrong stack level, with the result that variable
+traces didn't have access to the right variables.
+
+6/27/95 (bug fix) tk3d.c wasn't using all the right information
+when deciding whether or not to stipple borders, so it stippled
+borders even on 16-bit true-color displays.
+
+6/28/95 (bug fix) Page up and down operations in texts could cause
+insertion cursor to drift to the right.  Changed tkTextScrollPages
+to use upper-left corner of current character, rather than center
+of character.
+
+6/28/95 (bug fix) Changed text widget so that you can't put the
+insertion cursor after the last newline in the text.
+
+6/28/95 (bug fix) Bitmap images didn't allow ~'s in file names.
+
+6/28/95 (bug fix) Fixed problem that could cause core dumps in the
+text widget when dealing with embedded windows (there were problems
+if the act of redisplaying caused the window layout to change, which
+can happen with embedded windows).
+
+6/28/95 (bug fix) Texts didn't handle indices with double negatives,
+such as ".t mark set insert {insert + -20 chars}".
+
+6/28/95 (bug fix) Fixed problem where focus didn't always revert to
+its prior window after a dialog box was dismissed.
+
+6/28/95 (bug fix) Fixed problem with "search" widget command returning
+incorrect length on some backwards regexp searches.
+
+6/28/95 (bug fix) Successive "wm iconbitmap . {}" commands could cause
+a core dump.
+
+6/29/95 (new feature) Added -elementborderwidth option for scrollbars
+so the -borderwidth can be set to 0 without flattening the arrows and
+slider.
+
+-------------------- Release 4.0, 7/1/95 -------------------------
+
+7/18/95 (bug fix) %t in event bindings didn't work properly for some
+events (e.g. PropertyNotify).
+
+7/18/95 (bug fix) Changed "exec wish" lines in demo scripts to
+"exec wish4.0" to avoid version conflicts.
+
+7/18/95 (bug fix) Fixed round-off errors in scrolling for texts,
+canvases, listboxes, and entries.  The error could cause the view
+to shift up in a command like "$w yview moveto [lindex [$w yview] 0]".
+
+7/19/95 (bug fix) Canvases weren't always redrawing borders correctly
+when they became unobscured.  There were also some problems with
+improper refresh after size changes.
+
+7/19/95 (bug fix) Fixed bug in text index processing that causes
+tests textIndex-11.1 and textIndex12.1 to fail on some platforms.
+
+7/19/95 (bug fix) Fixed bug where 2-second delays were ocurring during
+"raise" and "lower" commands for toplevel windows under some window
+managers (such as fvwm).
+
+7/20/95 (bug fix) Text searches were misbehaving when there were embedded
+windows on the starting line of the search.  The most common symptom is
+that Tk would fail to find a match at the starting position for the
+search.
+
+7/22/95 (bug fix) Fixed core dump that could occur in menus if a checkbutton
+entry's -variable option referred to an array (or couldn't be read
+by the menu C code for some other reason).
+
+7/22/95 (bug fix) Text widgets didn't update their scrollbars when
+changes were made to information that was off-screen.
+
+7/25/95 (bug fix) Fixed core-dump in tkListbox.c that used to happen
+in the command ".l bbox end" if the listbox was empty.
+
+7/25/95 (bug fix) Page-up and page-down bindings for listboxes didn't
+move active element to remain on the screen.
+
+7/25/95 (bug fix) Patched around H-P compiler problem that results in
+core-dumps in tkImgPhoto.c during image handling.
+
+7/25/95 (bug fix) Fixed bug in tkImgPhoto.c that caused core dumps
+(during Tk self-tests and other image uses) on AIX and other machines
+where "schar" in tkImgPhoto.c was being defined as "short" instead of
+"char".
+
+7/26/95 (bug fix) The PPM image reader couldn't handle maximum intensity
+values other than 255.
+
+7/26/95 (bug fix) Canvases didn't redraw their borders when the relief
+changed from raised to flat.
+
+7/27/95 (bug fix) Canvases didn't set the scrolling values correctly
+when no scroll region was specified.
+
+7/28/95 (bug fix) Modified menu and tk_dialog scripts to restore any
+old grab that might have been in effect before a menu or dialog was
+posted.
+
+----------------- Released patch 4.0p1, 7/29/95 ----------------------
+
+8/4/95 (bug fix) Calls to toupper and tolower weren't using the UCHAR
+macro, so they didn't always work in non-U.S. locales. (JO)
+
+8/14/95 (new feature) Added -tearoffcommand option for menus.
+
+8/16/95 (bug fix) Canvases didn't generate proper Enter and Leave
+events if the Leave handler for an item reconfigured the canvas in
+a way that made the old current item the new current item again. (JO)
+
+8/21/95 (bug fix/feature change) When -takefocus was a script, Tk
+was allowing window viewability to override it.  Changed so that
+viewability is now ignored when -takefocus is a script. (JO)
+
+8/21/95 (bug fixes) Fixed memory leaks in tkSend.c, tkSelect.c, and
+tkUnixWm.c (JO).
+
+8/21/95 (bug fix) Text widgets didn't handle commands like
+".t search -backwards foo end 1.0" properly:  never found foo. (JO)
+
+8/23/95 (new feature) Added Makefile and configure.in support for
+dynamic loading. (JO)
+
+8/25/95 (bug fix) The "frame" and "toplevel" commands couldn't safely
+be renamed, due to a kludgy way that they shared a single command
+procedure.  Split into separate procedures. (JO)
+
+8/25/95 (bug fix) Fixed bug in libary/menu.tcl that caused "grab
+window not visible" errors for popup menus (and perhaps elsewhere?). (JO)
+
+8/25/95 (bug fix / new feature) The "gray25" bitmap was really only
+12.5% on, not 25%.  Added new "gray12" bitmap that is the same as the
+old "gray25".  "Gray25" is still supported for compatibility, but its
+use is deprecated. (JO)
+
+8/25/95 (bug fix) Scrollbar bindings didn't properly handle case where
+B2 is clicked while B1 is already down. (JO)
+
+8/26/95 (bug fix) Menus were ignoring -activebackground if tk_strictMotif
+was set, but not -activeforeground.  Changed to ignore both. (JO)
+
+8/26/95 (bug fix) Scales and scrollbars didn't properly handle a
+-repeatdelay value of 0 (they shouldn't auto-repeat in this case). (JO)
+
+8/28/95 (bug fix) Tcl errors were occurring for tkPriv(oldGrab) when
+clicking on a disabled option menu. (JO)
+
+8/28/95 (bug fix) Changed event-handling code to use FD_SETSIZE instead
+of OPEN_MAX, since OPEN_MAX is incorrect on some systems (e.g., IRIX). (JO)
+
+8/28/95 (bug fix) Fixed bug in photo images that caused garbling of
+image data in the "put" and "copy" commands if the source data had
+only one scan line but had a width less than the width of the target
+image. (JO)
+
+8/29/95 (bug fix) Tk used to refuse to post menus if they had no
+entries.  This made it impossible for a menu to fill itself the first
+time it is posted.  Changed to allow menus with no entries to be
+posted. (JO)
+
+8/30/95 (bug fix) If there was extra space at the bottom of a menu,
+it wasn't being redisplayed properly.
+
+8/30/95 (new feature) Added -transient option to menus.
+
+8/30/95 (new features) Added proper button 2 support to both scrollbars
+and scales (it sets the slider position from the mouse position). (JO)
+
+8/30/95 (bug fix) Fixed potential core dump that could occur in
+photo images (ReadPPMFileHeader could overflow buffer under some bad
+inputs, such as certain GIF images). (JO)
+
+8/30/95 (bug fix) Errors of the form `syntax error in expression "!"'
+could occasionally happen in tkScaleDrag. (JO)
+
+8/31/95 (new feature) Changed man page installation (with "mkLinks"
+script) to create additional links for manual pages corresponding to
+each of the procedure and command names described in the pages. (JO)
+
+9/1/95 (new feature) Added "after info" command.  Also added checks
+so that one interpreter can't cancel another's "after" events. (JO)
+
+9/8/95 (bug fix) Fixed bug that could cause memory corruption and core
+dumps if a "fileevent" handler was deleted while the handler was
+active. (JO)
+
+9/11/95 Reorganized Tk sources for Windows and Mac ports.  All sources
+are now in subdirectories:  "generic" contains sources that work on all
+platforms, "windows", "mac", and "unix" directories contain platform-
+specific sources.  (SS)
+
+9/11/95 (new feature) Added new  "notifier" mechanism to allow multiple
+implementations of the mechanisms for finding out about events.  This
+change was necessary to support Mac and PC platforms, but it may also
+allow other goodies such as combining Xt and Tk widgets in a single
+application.  See the new manual entry Notifier.3 for details. (SS)
+
+9/11/95 (feature change) Changed interface to Tk_RestrictProc so that
+(a) it takes a clientData argument instead of display and arg, and
+(b) it returns a value that can ask for the event to be discarded as well
+as deferred or processed. (SS)
+*** POTENTIAL INCOMPATIBILITY ***
+
+9/11/95 (new feature) Added TK_WINDOW_EVENTS #define, which is equivalent
+to TK_X_EVENTS but is now preferred, since it applies to all platforms. (SS)
+
+9/11/95 (feature change) Can't export variables anymore because this doesn't
+work under Windows DLLs.  Eliminated tk_NumMainWindows variable and replaced
+with procedure Tk_GetNumMainWindows. (SS)
+*** POTENTIAL INCOMPATIBILITY ***
+
+9/11/95 (new feature) Added procedure Tk_PreserveColormap to increment
+the reference count on colormaps.  Used in photo widgets. (SS)
+
+----------------- Released patch 4.0p2, 9/15/95 ----------------------
+
+----------------- Released 4.1a1, 9/15/95 ----------------------
+
+9/22/95 (renamed files) Changed the names of the bitmap images in the
+$tk_library/demos/images directory to use the .bmap file extension.  (RJ)
+
+9/22/95 (bug fix) Fixed bug where text widgets could occasionally
+display the insertion cursor both at the end of one line and the
+beginning of the next. (JO)
+
+9/25/95 (bug fix) Fixed bug that could cause core dumps when an
+application uses multiple screens and a binding destroys the main
+window (bind code was using MainInfo structure after it had been
+freed). (JO)
+
+9/25/95 (bug fix) Text widgets sometimes scrolled backwards on
+occasion if you dragged down past the bottom of the scrollbar. (JO)
+
+9/25/95 (bug fix) Fixed bug in menus where a cascaded submenu posted
+from a torn-off menu could be left posted if mouse was pulled off the
+end of the cascade and released. (JO)
+
+9/25/95 (new feature) Added "--" switch to wish, so that you can
+pass arguments like -n through to a script without having wish
+interpret them. (JO)
+
+9/25/95 (bug fix) Fixed core dump that could occur for radiobuttons
+and selectbuttons if -selectcolor was an empty string. (JO)
+
+9/26/95 (bug fix) Entries didn't used to notice if a trace procedure
+on the -textvariable overrode a new value set by the entry.  This
+could cause the variable to get out of sync with the contents of the
+entry. (JO)
+
+9/26/95 (new feature) Added -sliderrelief option to scales, changed
+default bindings to change the slider's relief to sunken while it's
+being dragged with the mouse. (JO)
+
+9/26/95 (bug fix) TkColor.c wasn't computing colormap size correctly;
+could result in X Protocol error for QueryColors when colormaps run
+out of colors. (JO)
+
+9/26/95 (bug fix) Wish couldn't handle script files with spaces in
+their names. (JO)
+
+9/27/95 (cosmetic clean-up) Removed extraneous spaces to make error
+messages consistent: ":  should be" is now ": should be". (JO)
+
+9/27/95 (feature change)  Modified tk_dialog so that it uses the
+option database for the -wraplength option on the message.  This
+allows the option to be overridden by the caller. (JO)
+
+9/28/95 (bug fix) Wish incorrectly parsed the command line under
+Windows, causing backslashes to be substituted. (SS)
+
+9/28/95 (bug fix) Wish now sources wishrc.tcl instead of .wishrc. (SS)
+
+9/28/95 (bug fix) Tk_DoOneEvent returned 0 under some circumstances
+when it was possible to find more work to do.  For example, if a
+signal interrupted select(), but no event handlers were triggered, it
+would return 0 even though it could still detect events by reentering
+select().  (SS)
+
+9/29/95 (bug fix) "winfo interps" caused a crash under Windows. (SS)
+
+10/1/95 (feature change) Eliminated Tk_NotifyIdle interface in favor of
+Tk_IdlePending. (SS)
+
+10/1/95 (bug fix) Turned motion event collapsing into an idle handler
+so it will be easier to move the event loop into Tcl. (SS)
+
+10/1/95 (bug fix) Fixed several problems with negative coordinates
+in canvases.  One example:  dragging a canvas rectangle with a wide
+border and fractional coordinates could leave junk on the screen
+if the rectangle was in negative coordinate space. (JO)
+
+10/2/95 (bug fix) Tk was improperly handling Enter/Leave events
+during a button grab. (SS)
+
+10/2/95 (new feature) Added support for the Macintosh do script
+('dosc') event.  Available only on the Macintosh.  (RJ)
+
+10/4/95 (new feature) Added support for compiling with VC++.
+Resulting binaries work under Win32s through NT.
+
+----------------- Released 4.1a2, 10/6/95 ----------------------
+
+10/10/95 (new feature) Macintosh Tk now supports the complete set
+of X cursors that Unix Tk supports. (RJ)
+
+10/11/95 (bug fix) Tk now supports all of the X11 cursors under
+Windows.  (SS)
+
+10/11/95 (bug fix) The "wm resizable" command was missing from the
+Windows version of Tk. (SS)
+
+10/12/95 (bug fix) Macintosh Tk had problems with clipping toplevel
+windows that children of any frame other than another toplevel. (RJ)
+
+10/13/95 (bug fix) Eliminated dependency on MKS toolkit for generating
+the tk.def file from Borland object files. (SS)
+
+10/16/95 (bug fix) Fixed clipping and update problems relating to
+the raising and lowering of overlapping windows on Mac. (RJ)
+
+10/30/95 (bug fix) When focus-follows-mode (invoked via tk_focusFollowsMouse),
+was focussing on windows even in situations where keyboard traversal would
+skip the window.  Changed to use the tkFocusOK procedure so that the
+criteria for focussing are the same in both modes. (JO)
+
+11/2/95 (bug fix) Changed listbox bindings to ignore double-clicks.
+This avoids errors that used to occur if a user defined a binding
+for double-click that deleted the listbox. (JO)
+
+11/3/95 (feature change) Moved most of the Tk event loop to Tcl.  Many
+Tk_ names have become Tcl names now:
+
+TK_READABLE =>		TCL_READABLE
+TK_WRITABLE =>		TCL_WRITABLE
+TK_EXCEPTION =>		TCL_EXCEPTION
+TK_DONT_WAIT =>		TCL_DONT_WAIT
+TK_WINDOW_EVENTS =>	TCL_WINDOW_EVENTS
+TK_FILE_EVENTS =>	TCL_FILE_EVENTS
+TK_TIMER_EVENTS =>	TCL_TIMER_EVENTS
+TK_IDLE_EVENTS =>	TCL_IDLE_EVENTS
+TK_ALL_EVENTS =>	TCL_ALL_EVENTS
+Tk_IdleProc =>		Tcl_IdleProc
+Tk_FileProc =>		Tcl_FileProc
+Tk_TimerProc =>		Tcl_TimerProc
+Tk_TimerToken =>	Tcl_TimerToken
+Tk_BackgroundError =>	Tcl_BackgroundError
+Tk_CancelIdleCall =>	Tcl_CancelIdleCall
+Tk_CreateFileHandler =>	Tcl_CreateFileHandler
+Tk_CreateTimerHandler =>Tcl_CreateTimerHandler
+Tk_DeleteFileHandler =>	Tcl_DeleteFileHandler
+Tk_DeleteTimerHandler =>Tk_DeleteTimerHandler
+Tk_DoOneEvent =>	Tcl_DoOneEvent
+Tk_DoWhenIdle =>	Tcl_DoWhenIdle
+Tk_Sleep =>		Tcl_Sleep
+tkerror =>		bgerror
+
+Other than the name changes, the functions are the same.  In addition,
+there are #defines in tk.h so that the old Tk names will still work.
+tkerror and bgerror are specially hacked as synonyms, so it should be
+safe to use either one.  You should switch to the new Tcl names ASAP,
+though, since the old Tk names will eventually be desupported. (JO)
+
+11/7/95 (features removed) As part of moving the event loop to Tcl,
+the following procedures were deleted:
+    - Tk_EventInit (the presence of the event loop in Tcl should
+      make this unneccessary).
+    - Tk_CreatFileHandler2 (you can get the same effect by using event
+      sources in Tcl, but you have to modify your code to use the new
+      Tcl APIs).
+    - All of the stuff in the manual entries Notifer.3 and QueueEvent.3;
+      this has changed because the notifier got reworked when it was
+      moved to Tcl.
+*** POTENTIAL INCOMPATIBILITY ***
+
+11/7/95 (feature change)  Changed to use exit handler to cleanup windows
+in Tk, so Tk no longer needs to have a private copy of the "exit" command.
+(JO)
+
+11/7/95 (bug fix) If wish was invoked with a command-line geometry and
+a script file (e.g. "wish foo.tcl -geometry 30x20"), and if one of
+the windows created by the script used the -setgrid option, then the
+width and height from the command line were lost. (JO)
+
+11/8/95 (bug fix) The "see" command didn't work quite right for texts:
+if the window was small and you try to "see" a line just offscreen,
+Tk centered the line (actually, mis-centered it) when it should have
+aligned it at the top or bottom. (JO)
+
+11/9/95 (bug fix) The "send" command crashed if you tried to send to
+a different display with "-displayof". (JO)
+
+11/9/95 (bug fix) The Symbol font didn't print right in Postscript
+output, because of changes made to re-encode fonts to get proper
+ISO Latin1 behavior.  Changed the code not to re-encode the Symbol
+font. (JO)
+
+11/13/95 (bug fix) Fixed Makefile.in and configure.in for UNIX so that
+configure can be run from a clean directory separate from the Tcl source
+tree, and compilations can be performed there. (JO)
+
+11/17/95 (bug fix) If a window was gridded, Tk still computed the
+default maximum dimensions in pixel units, which resulted in windows
+that could grow much larger than the screen. (JO)
+
+11/17/95 (bug fix) If a menus entries were all disabled, posting
+the menu and typing Up or Down caused an infinite loop, locking
+up the screen (JO).
+
+11/19/95 (bug fix) The focus wasn't being restored properly after a
+menu selection in a cascaded menu. (JO)
+
+11/19/95 (bug fix) Menubutton's didn't stipple display their images
+differently when disabled.  Change to have the same behavior as buttons:
+the image is stippled over in the background color when the menubutton
+is disabled. (JO)
+
+11/21/95 (bug fix) Changes in display attributes such as font could
+cause core dumps in the text widget under some circumstances involving
+line wrapping. (JO)
+
+11/22/95 (bug fix/new feature)  Changed both the placer and the packer
+to ensure that slaves are unmapped whenever the master is unmapped.
+This saves time that slaves might otherwise spend trying to redisplay
+themselves when they're unmapped. (JO)
+
+11/22/95 (bug fix) Space and return keys didn't work for menus if
+they were posted via Alt-x keystrokes. (JO)
+
+11/24/95 (bug fix) tk_dialog procedure had binding for <Return> that
+always activated default binding, even if input focus was in some
+other binding.  Removed this feature, since existing focus support
+will already "do the right thing".  (JO)
+
+11/24/95 (bug fix) Both canvases and texts could dump core if a binding
+(such as ButtonRelease on an internal item) deleted the widget. (JO)
+
+11/24/95 (feature change) Replaced "configInfo" file with tkConfig.sh,
+which is more complete and uses slightly different names.  Also
+arranged for tkConfig.sh to be installed in the platform-specific
+library directory. (JO)
+
+11/24/95 (bug fix) It was possible for a slave to be placed or packed
+-in itself, with unpleasant consequences.  It is now an error for the
+slave to be its own master for geometry management. (JO)
+
+11/25/95 (bug fix) The -command option of scales was sometimes being
+invoked spuriously (e.g. when the mouse moved in the scale without a
+button down).  This was because the scale wasn't rounding properly
+when setting the scale value from its associated variable. (JO)
+
+----------------- Released patch 4.0p3, 11/28/95 ----------------------
+
+12/18/95 (feature change) Moved Tk_Preserve, Tk_Release, and
+Tk_EventuallyFree to Tcl, renamed to Tcl_Preserve etc.  Added #defines
+to tk.h so that the old names still work.  (JO)
+
+12/23/95 (bug fix) If a single process had > 1 Tk application, Tk
+didn't guarantee that the application names were unique, which could
+cause all sorts of confusion with "send".  (JO)
+
+12/23/95 (feature change) Eliminated Tk_CreateMainWindow and moved
+all of its functionality to Tk_Init.  All that you need to do now
+to get Tk in an application is to call Tk_Init.  Improved Tk_Init
+so that -colormap and -visual command-line arguments are now passed
+through to TkCreateFrame.  Tk_Main is much simpler now, since a lot
+of its functionality has moved to Tk_Init. (JO)
+*** POTENTIAL INCOMPATIBILITY ***
+
+12/23/95 (new feature) Added support for Tcl_StaticPackage so
+that Tk can now be loaded into slave interpreters with the "load"
+command to create new applications. (JO)
+
+12/23/95 (new features) Added support for -colormap and -visual command-
+line options for wish. (JO)
+
+1/4/95 (bug fix) Fixed keyboard code to properly handle alt-key
+sequences for international keyboards and menu-accelerators. (SS)
+
+1/5/96 (bug fix) Scrollbar code sometimes generated errors on accesses
+to tkPriv(relief) during control-clicks. (JO)
+
+1/9/96 (new feature) added the "grid" command to provide a table based
+geometry manager. (SU)
+
+1/12/96 (performance optimization) Changed the way tag information is kept
+in the text's Btree so the cost of adding and removing tag ranges is no longer
+proportional to the number of unique tags in the text.  In the old system
+the cost of adding N unique tags was O(N-squared).  The new implementation is
+optimized for tags that only cover a small amount of text, measuring from
+their earliest tag range to the end of their last range.  In the best case the
+cost of adding a tag range is unrelated to the number of unique tags, so the
+cost of adding N tags is only O(N).  In the worst case, where all tags
+cover all the text, the cost is still O(N-squared) to add N such tags.
+Deleting tags still has an O(N) cost (so deleting N tags is O(N-squared),
+but it is now a factor of 2 faster than the old system. (BW)
+
+1/12/96 (new feature) added the text "dump" operation that returns information
+about all elements in a text widget: text, tags, marks, and windows. (BW)
+
+1/12/96 (new feature) added the text "mark next" and "mark previous" operations
+to search forward and backwards for the next (previous) mark in the text. (BW)
+
+1/12/96 (new feature) added the text "tag prevrange" operation to search
+backwards for the current or previous range of a tag. (BW)
+
+1/16/96 (new feature) Added support for relative widget placement on
+the "grid" command. (SU)
+
+1/17/96 (new feature) Modified the Makefile/configure setup to support
+compiling Tk as a shared library.  Use the --enable-shared option to
+the "configure" script. (JO)
+
+----------------- Released 4.1b1, 1/26/96 -----------------------
+
+2/2/96 (bug fix) Frames were getting a default size of 200x200, whereas
+there should be no default. (JO)
+
+2/2/96 (bug fix) Argc wasn't getting reset properly after Tk removed
+the arguments it understood from those on the command line. (JO)
+
+2/6/96 (bug fix) Fixed off by one error in argument parsing code under
+Windows. (SS)
+
+2/6/96 (bug fix) "wm transient" now works under Windows.  The resulting
+toplevel is created with a modal dialog box frame and will not appear
+in the taskbar under Windows '95. (SS)
+
+2/9/96 (bug fix) Changed Makefile.in to use -L and -l for Tcl and Tk
+libraries so that shared libraries are more likely to be found correctly
+on more platforms. (JO)
+
+2/14/96 (feature change) Eliminated tk_CanvasTagsOption variable because
+it can't be exported safely across DLL boundaries.  Instead, exported
+Tk_CanvasTagsParseProc and Tk_CanvasTagsPrintProc procedures for
+use by canvas type managers in creating their own custom options. (JO)
+*** POTENTIAL INCOMPATIBILITY ***
+
+2/14/96 (bug fix) "winfo pointerxy" when applied to a non-toplevel window
+crashed wish.  (SS)
+
+2/14/96 (bug fix) "tkwait visibility" would hang under Windows. (SS)
+
+2/14/96 (bug fix) Cursors were not being updated until an enter event.
+In cases where the cursor left the toplevel and reentered before Tk
+noticed, the cursor would get "stuck" until the next enter event.
+Similarly, if the cursor attribute of a window was updated while the
+mouse was in the window, the cursor would not change until the next
+time the mouse entered the window. (SS)
+
+2/15/96 (bug fix) If a top-level was resizable in one direction
+(e.g. "wm resizable . 0 1"), once the user resized it any changes
+in the internally requested size (by the widgets) were ignored,
+even for the non-resizable dimension.  Fixed to handle the two
+dimensions totally independently, so the widget's requests are
+honored as long as that dimension hasn't been set by the user. (JO)
+
+2/17/96 (bug fix) If a text widget had very long lines (e.g. more than
+32K pixels), integer overflow could occur, resulting in parts of the
+line not being visible. (JO)
+
+2/20/96 (feature change) Changed the -minsize option of grid to take
+screen units instead of pixels. (SU)
+
+2/20/96 (bug fix) grid row and column weights are compared against
+MINWEIGHT (0.001) instead of 0.0 to guard against divide by zero errors
+during weight normalization. (SU)
+
+2/20/96 (bug fix) Menu commands were not being invoked sometimes.
+There was a race condition that caused events to be processed while a
+menu was being unposted. (SS)
+
+----------------- Released 4.1b2, 2/23/96 -----------------------
+
+2/23/96 (bug fix) Alt-keys invoked in torn-off and popped up menus
+caused menus to be posted in the parent toplevel. (JO)
+
+2/23/96 (bug fix) Canvases weren't always updating their scrollbars
+when they should. (JO)
+
+2/23/96 (bug fix) Fixed core dump that could occur if a WM_DELETE_PROTOCOL
+handler generated an error. (JO)
+
+2/24/96 (bug fix) Removed dependencies on Makefile in the UNIX Makefile:
+this caused problems on some platforms (like Linux?). (JO)
+
+2/24/96 (feature change) Changed text and entry widgets so that they
+set the insertion cursor before inserting during a button-2 click.
+Also made optional bindings check for tk_strictMotif at the time of
+the event, rather than at the time the bindings are created. (JO)
+
+2/24/96 (bug fix) Tk tended to crash with an X error when unsetting
+an icon window (e.g. "wm iconwindow . {}"). (JO)
+
+2/25/96 (bug fix) Wasn't removing windows from the WM_COLORMAP_WINDOWS
+property when they were deleted.  (JO)
+
+3/1/96 (new feature) Added new "bbox" widget command for entries.
+Also modified mouse bindings for entries and texts so that the
+mouse position rounds to the nearest inter-character gap, rather
+than the left edge of the character under the mouse.  This provides
+more natural selection behavior. (JO)
+
+3/1/96 (bug fix) Fixed core dump that could occur in image code if an
+image was deleted while in use in a widet, then re-used in another
+widget while "deleted". (JO)
+
+3/1/96 (bug fix) Calling wish with a single argument caused a crash
+under Windows due to an off-by-one error in the argument parsing code. (SS)
+
+3/1/96 (bug fix) Palette management was broken and resulted in
+incorrect palette realization and refresh behavior.  Also, images were
+being drawn incorrectly if they were attached to widgets that had a
+private colormap. (SS)
+
+3/2/96 (bug fix) It was possible to press the mouse button over an
+option menu, drag to a pulldown menu, and have the pulldown menu
+popup in place of the option menu.  Fixed this so that option menus
+are isolated from each other and from pulldowns. (JO)
+
+3/2/96 (bug fix) Fixed yet another bug that caused long delays when
+raising toplevel windows. (JO)
+
+3/2/96 (bug fix) Fixed bug in canvases where zero-sized rectangles
+and ovals didn't always redisplay right (could leave trailing
+garbage on screen when moved). (JO)
+
+3/2/96 (bug fix) Entry widgets reset their insertion cursor, selection,
+and view whenever the text variable changed, plus whenever a "configure"
+widget command was invoked and there was a text variable for the
+widget.  Fixed to preserve this information as much as possible. (JO)
+
+3/5/96 (new feature) Added version suffix to shared library names so that
+Tk will compile under NetBSD and FreeBSD (I hope).  (JO)
+
+3/6/96 (bug fix) Changed the way certain configure & motion events are
+reported.  This fixes several bugs in menus & "winfo rootx". (RJ)
+
+3/7/96 (bug fix) Fixed tag remove bug that showed up when draging out a
+selection.  If you had dragged left, then tried to drag back right, the
+left edge of the selection wasn't being updated because the tag remove
+wasn't doing anything. (BW)
+
+3/7/96 (bug fix) Fixed the boundary conditions of tag prevrange.  The second
+index argument wasn't effecting in stopping the search if it fell within
+a range.  The second index has to come at or before the start of a range
+for the range to be found by tag prevrange. (BW)
+
+3/7/96 (bug fix) "puts" to stdout or stderr when running from a script
+caused wish41.exe to exit silently.  Now the output is silently
+discarded without generating an error.  (SS)
+
+3/7/96 (bug fix) Fixed bug where wish was treating empty lines in the input
+as end of input, if the input came from stdin. This would cause it to
+complain about missing closing braces etc. (JL)
+
+----------------- Released 4.1b3, 3/8/96 -----------------------
+
+3/9/96 (bug fix) Fixed bug in text.tcl that could cause errors in text
+widgets of the form 'can't use non-numeric string as operand of "-"'. (JO)
+
+3/12/96 (feature improvement) Modified startup script to look in several
+different places for the Tcl library directory.  This should allow tk
+to find the libraries under all but the weirdest conditions, even without
+the TK_LIBRARY environment variable being set. (JO)
+
+3/14/96 (bug fix) "wish bogus_file_name" didn't print an error message. (JO)
+
+3/14/96 (bug fix) Button-2 wasn't claiming the focus during paste
+operations. (JO)
+
+3/14/96 (bug fix) "tkwait visibility" use to hang forever if its window
+was deleted.  Now it detects this condition and returns an error. (JO)
+
+3/16/96 (bug fix) Changed configuration stuff to get dynamic loading and
+shared libraries working under AIX. (JO)
+
+3/16/96 (bug fix) Fixed core dumps that could occur when a slave interpreter
+was deleted in the middle of executin bindings. (JO)
+
+3/18/96 (new feature) Added support for Activate/Deactivate events.
+Currently, these new X events will generated only on the Macintosh. (RJ/CS)
+
+3/21/96 (bug fix) The "tag prevrange" command would fail to return the current
+range if it began at 1.0 and the starting point of the search was within
+the range. (BW)
+
+3/21/96 (configuration improvement) Changed configure script so it
+doesn't use version numbers (as in -ltk4.1 and libtk4.1.so) under
+SunOS 4.1, where they don't work anyway.  (JO)
+
+3/22/96 (bug fix) Made Tk more robust against interpreter deletion. Now it
+should be safe to delete an interpreter with a Tk application inside it,
+without first deleting the Tk application. (JL)
+
+3/26/96 (bug fix) Tk now returns results from a "send" to an interpreter
+in which the Tk application is destroyed, if the interpreter continues
+computing after the Tk application is destroyed. Previously any results
+computed after '.' was destroyed in the target interpreter were discarded
+by the "send". (JL)
+
+3/26/96 (new feature) Tk now provides a static Tktest package which is
+present only in test versions of Tk; this allows the testing commands to
+be loaded into new interpreters besides the main one. (JL)
+
+3/28/96 (bug fix) Changed the tk_dialog procedure *not* to make the
+dialog a transient for its parent.  The old behavior meant that the
+dialog did not get posted if the parent was iconified. (JO)
+
+4/5/96 (bug fix) Tk would occasionally crash when destroying toplevels
+under Windows. (SS)
+
+4/5/96 (bug fix) Fonts were not being properly deallocated, causing
+GDI resources to be consumed and never released under Windows. (SS)
+
+4/11/96 (bug fix) Toplevel windows with no specified geometry were
+always appearing in the upper left corner of the screen under
+Windows. (SS)
+
+4/11/96 (bug fix) "wm minsize" did not properly report the minimum
+size imposed by the Windows window manager. (SS)
+
+4/13/96 (bug fix) Text widgets could dump core in some cases where
+text was inserted on the top visible line. (JO)
+
+4/16/96 (bug fix) Changed menu code to ignore errors that occur when
+restoring a grab:  the old grab window might not be visible anymore. (JO)
+
+----------------- Released 4.1, 4/21/96 -----------------------
+
+5/1/96 (buf fix) "option readfile" did not handle files with CRLF
+line termination. (SS)
+
+5/1/96 (bug fix) Changed to install tkConfig.sh under "make install-binaries",
+not "make install-libraries". (JO)
+
+5/7/96 (bug fix) Moved initScript in tkUnixInit.c to writable memory to
+avoid potential core dumps. (JO)
+
+5/7/96 (bug fix) Changed tk_dialog back so that the dialog box is a
+transient window again.  This is needed to make sure that the dialog
+box doesn't get obscured.  Also changed it to return -1 if the dialog
+window is deleted before the user presses a button. (JO)
+
+5/16/96 (bug fix) Fixed bug that caused core-dumps if a text widget
+with -setgrid 1 was deleted by removing its command. (JO)
+
+5/22/96 (bug fix) Listboxes weren't properly ignoring double clicks on
+button 1. (JO)
+
+6/12/96 (bug fix) Focus was automatically placed on new toplevels.
+This caused the titlebar to flash during menubar traversal. (SS)
+
+6/12/96 (bug fix) Iconification of a window with a specified geometry
+by using the minimize button would leave the window in an inconsistent
+state.  When the window was deiconified using "wm deiconify", the
+window would continue to display as an icon with the deiconified
+geometry. (SS)
+
+6/12/96 (bug fix) Fixed a resource leak where the text widget was not
+freeing all of the TkRegions it created.  This fix affects all
+platforms, but is particularly important for Win32s. (SS)
+
+6/21/96 (configuration change) Added --enable-gcc switch to configure
+script to make Tk just like Tcl.  Now Tk will not use gcc unless you
+request it explicitly. (JO)
+
+7/18/96 (bug fix) Changed "configure" script to add an extra -R switch
+(or whatever is appropriate to the platform) if the X library is in a
+nonstandard place.  This guarantees that the shared library can be
+found at runtime without having to set the LD_LIBRARY_PATH variable. (JO)
+
+7/19/96 (bug fix) Fixed bug in tkImgGIF.c that cause core dumps if a
+GIF file contained multiple images. (JO)
+
+7/20/96 (bug fix) Deadlock could occur if a recursive series of send
+operations involved multiple displays. (JO)
+
+7/23/96 (bug fix) Fixed a resource leak where deallocated XIDs were
+taking up memory on Windows and Macintosh platforms. (SS)
+
+7/30/96 (bug fix) A core dump could occur if a <Destroy> handler for
+a window tried to create a child in the half-dead window.  Fixed by
+making the window's name disappear from the name table once it starts
+to be deleted. (JO)
+
+----------------- Released patch 4.1p1, 8/2/96 -----------------------
diff --git a/Tk/compat/license.terms b/Tk/compat/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/compat/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/compat/limits.h b/Tk/compat/limits.h
new file mode 100644
index 0000000..fbfd726
--- /dev/null
+++ b/Tk/compat/limits.h
@@ -0,0 +1,22 @@
+/*
+ * limits.h --
+ *
+ *	This is a dummy header file to #include in Tcl when there
+ *	is no limits.h in /usr/include.  There are only a few
+ *	definitions here;  also see tclPort.h, which already
+ *	#defines some of the things here if they're not arleady
+ *	defined.
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * @(#) limits.h 1.6 94/12/17 16:26:19
+ */
+
+#define LONG_MIN		0x80000000
+#define LONG_MAX		0x7fffffff
+#define INT_MIN			0x80000000
+#define INT_MAX			0x7fffffff
diff --git a/Tk/compat/stdlib.h b/Tk/compat/stdlib.h
new file mode 100644
index 0000000..059ea29
--- /dev/null
+++ b/Tk/compat/stdlib.h
@@ -0,0 +1,45 @@
+/*
+ * stdlib.h --
+ *
+ *	Declares facilities exported by the "stdlib" portion of
+ *	the C library.  This file isn't complete in the ANSI-C
+ *	sense;  it only declares things that are needed by Tcl.
+ *	This file is needed even on many systems with their own
+ *	stdlib.h (e.g. SunOS) because not all stdlib.h files
+ *	declare all the procedures needed here (such as strtod).
+ *
+ * Copyright (c) 1991 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) stdlib.h 1.10 96/02/15 14:43:54
+ */
+
+#ifndef _STDLIB
+#define _STDLIB
+
+#include <tcl.h>
+
+extern void		abort _ANSI_ARGS_((void));
+extern double		atof _ANSI_ARGS_((CONST char *string));
+extern int		atoi _ANSI_ARGS_((CONST char *string));
+extern long		atol _ANSI_ARGS_((CONST char *string));
+extern char *		calloc _ANSI_ARGS_((unsigned int numElements,
+			    unsigned int size));
+extern void		exit _ANSI_ARGS_((int status));
+extern int		free _ANSI_ARGS_((char *blockPtr));
+extern char *		getenv _ANSI_ARGS_((CONST char *name));
+extern char *		malloc _ANSI_ARGS_((unsigned int numBytes));
+extern void		qsort _ANSI_ARGS_((VOID *base, int n, int size,
+			    int (*compar)(CONST VOID *element1, CONST VOID
+			    *element2)));
+extern char *		realloc _ANSI_ARGS_((char *ptr, unsigned int numBytes));
+extern double		strtod _ANSI_ARGS_((CONST char *string, char **endPtr));
+extern long		strtol _ANSI_ARGS_((CONST char *string, char **endPtr,
+			    int base));
+extern unsigned long	strtoul _ANSI_ARGS_((CONST char *string,
+			    char **endPtr, int base));
+
+#endif /* _STDLIB */
diff --git a/Tk/compat/unistd.h b/Tk/compat/unistd.h
new file mode 100644
index 0000000..3af430c
--- /dev/null
+++ b/Tk/compat/unistd.h
@@ -0,0 +1,84 @@
+/*
+ * unistd.h --
+ *
+ *      Macros, CONSTants and prototypes for Posix conformance.
+ *
+ * Copyright 1989 Regents of the University of California
+ * Permission to use, copy, modify, and distribute this
+ * software and its documentation for any purpose and without
+ * fee is hereby granted, provided that the above copyright
+ * notice appear in all copies.  The University of California
+ * makes no representations about the suitability of this
+ * software for any purpose.  It is provided "as is" without
+ * express or implied warranty.
+ *
+ * SCCS: @(#) unistd.h 1.7 96/02/15 14:43:57
+ */
+
+#ifndef _UNISTD
+#define _UNISTD
+
+#include <sys/types.h>
+#ifndef _TCL
+#   include "tcl.h"
+#endif
+
+#ifndef NULL
+#define NULL    0
+#endif
+
+/* 
+ * Strict POSIX stuff goes here.  Extensions go down below, in the 
+ * ifndef _POSIX_SOURCE section.
+ */
+
+extern void _exit _ANSI_ARGS_((int status));
+extern int access _ANSI_ARGS_((CONST char *path, int mode));
+extern int chdir _ANSI_ARGS_((CONST char *path));
+extern int chown _ANSI_ARGS_((CONST char *path, uid_t owner, gid_t group));
+extern int close _ANSI_ARGS_((int fd));
+extern int dup _ANSI_ARGS_((int oldfd));
+extern int dup2 _ANSI_ARGS_((int oldfd, int newfd));
+extern int execl _ANSI_ARGS_((CONST char *path, ...));
+extern int execle _ANSI_ARGS_((CONST char *path, ...));
+extern int execlp _ANSI_ARGS_((CONST char *file, ...));
+extern int execv _ANSI_ARGS_((CONST char *path, char **argv));
+extern int execve _ANSI_ARGS_((CONST char *path, char **argv, char **envp));
+extern int execvp _ANSI_ARGS_((CONST char *file, char **argv));
+extern pid_t fork _ANSI_ARGS_((void));
+extern char *getcwd _ANSI_ARGS_((char *buf, size_t size));
+extern gid_t getegid _ANSI_ARGS_((void));
+extern uid_t geteuid _ANSI_ARGS_((void));
+extern gid_t getgid _ANSI_ARGS_((void));
+extern int getgroups _ANSI_ARGS_((int bufSize, int *buffer));
+extern pid_t getpid _ANSI_ARGS_((void));
+extern uid_t getuid _ANSI_ARGS_((void));
+extern int isatty _ANSI_ARGS_((int fd));
+extern long lseek _ANSI_ARGS_((int fd, long offset, int whence));
+extern int pipe _ANSI_ARGS_((int *fildes));
+extern int read _ANSI_ARGS_((int fd, char *buf, size_t size));
+extern int setgid _ANSI_ARGS_((gid_t group));
+extern int setuid _ANSI_ARGS_((uid_t user));
+extern unsigned sleep _ANSI_ARGS_ ((unsigned seconds));
+extern char *ttyname _ANSI_ARGS_((int fd));
+extern int unlink _ANSI_ARGS_((CONST char *path));
+extern int write _ANSI_ARGS_((int fd, CONST char *buf, size_t size));
+
+#ifndef	_POSIX_SOURCE
+extern char *crypt _ANSI_ARGS_((CONST char *, CONST char *));
+extern int fchown _ANSI_ARGS_((int fd, uid_t owner, gid_t group));
+extern int flock _ANSI_ARGS_((int fd, int operation));
+extern int ftruncate _ANSI_ARGS_((int fd, unsigned long length));
+extern int ioctl _ANSI_ARGS_((int fd, int request, ...));
+extern int readlink _ANSI_ARGS_((CONST char *path, char *buf, int bufsize));
+extern int setegid _ANSI_ARGS_((gid_t group));
+extern int seteuid _ANSI_ARGS_((uid_t user));
+extern int setreuid _ANSI_ARGS_((int ruid, int euid));
+extern int symlink _ANSI_ARGS_((CONST char *, CONST char *));
+extern int ttyslot _ANSI_ARGS_((void));
+extern int truncate _ANSI_ARGS_((CONST char *path, unsigned long length));
+extern int vfork _ANSI_ARGS_((void));
+#endif /* _POSIX_SOURCE */
+
+#endif /* _UNISTD */
+
diff --git a/Tk/confdefs.h b/Tk/confdefs.h
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/Tk/confdefs.h
@@ -0,0 +1 @@
+
diff --git a/Tk/configure b/Tk/configure
new file mode 100755
index 0000000..43bbc70
--- /dev/null
+++ b/Tk/configure
@@ -0,0 +1,5 @@
+#! /bin/sh
+
+cd unix; ./configure $*
+
+# Simple no?
diff --git a/Tk/configure.in b/Tk/configure.in
new file mode 100644
index 0000000..2a4640d
--- /dev/null
+++ b/Tk/configure.in
@@ -0,0 +1,335 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during Tk installation
+dnl	to configure the system for the local environment.
+AC_INIT(tk.h)
+
+# @(#) configure.in 1.17 95/06/27 21:54:20
+
+AC_PROG_INSTALL
+AC_PROG_RANLIB
+AC_PREFIX_PROGRAM(wish)
+CC=${CC-cc}
+AC_SUBST(CC)
+AC_HAVE_HEADERS(unistd.h limits.h)
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([fd_set and sys/select])
+AC_TRY_COMPILE([#include <sys/types.h>],
+	[fd_set readMask, writeMask;], tk_ok=yes, tk_ok=no)
+if test $tk_ok = no; then
+    AC_HEADER_EGREP(fd_mask, sys/select.h, tk_ok=yes)
+    if test $tk_ok = yes; then
+	AC_DEFINE(HAVE_SYS_SELECT_H)
+    fi
+fi
+AC_MSG_RESULT($tk_ok)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_FD_SET)
+fi
+
+#--------------------------------------------------------------------
+#	Supply a substitute for stdlib.h if it doesn't define strtol,
+#	strtoul, or strtod (which it doesn't in some versions of SunOS).
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING(stdlib.h)
+AC_HEADER_EGREP(strtol, stdlib.h, tk_ok=yes, tk_ok=no)
+AC_HEADER_EGREP(strtoul, stdlib.h, , tk_ok=no)
+AC_HEADER_EGREP(strtod, stdlib.h, , tk_ok=no)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_STDLIB_H)
+fi
+AC_MSG_RESULT($tk_ok)
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist.
+#--------------------------------------------------------------------
+
+AC_MODE_T
+AC_PID_T
+AC_SIZE_T
+AC_UID_T
+
+#--------------------------------------------------------------------
+#	Locate the X11 header files and the X11 library archive.  Try
+#	the ac_path_x macro first, but if it doesn't find the X stuff
+#	(e.g. because there's no xmkmf program) then check through
+#	a list of possible directories.  Under some conditions the
+#	autoconf macro will return an include directory that contains
+#	no include files, so double-check its result just to be safe.
+#--------------------------------------------------------------------
+
+AC_PATH_X
+not_really_there=""
+if test "$no_x" = ""; then
+    if test "$x_includes" = ""; then
+	AC_TRY_CPP([#include <X11/XIntrinsic.h>], , not_really_there="yes")
+    else
+	if test ! -r $x_includes/X11/Intrinsic.h; then
+	    not_really_there="yes"
+	fi
+    fi
+fi
+if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then
+    echo checking for X11 header files
+    XINCLUDES="# no special path needed"
+    AC_TRY_CPP([#include <X11/Intrinsic.h>], , XINCLUDES="nope")
+    if test "$XINCLUDES" = nope; then
+        dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/include/X11R4 /usr/X11R5/include /usr/include/X11R5 /usr/openwin/include /usr/X11/include /usr/sww/include"
+        for i in $dirs ; do
+	    if test -r $i/X11/Intrinsic.h; then
+	        XINCLUDES=" -I$i"
+	    fi
+        done
+    fi
+else
+    if test "$x_includes" != ""; then
+	XINCLUDES=-I$x_includes
+    else
+	XINCLUDES="# no special path needed"
+    fi
+fi
+if test "$XINCLUDES" = nope; then
+  echo "Warning:  couldn't find any X11 include files."
+  XINCLUDES="# no include files found"
+fi
+AC_SUBST(XINCLUDES)
+
+if test "$no_x" = yes; then
+    XLIBSW=nope
+    if test "$XLIBSW" = nope; then
+	dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/lib/X11R4 /usr/X11R5/lib /usr/lib/X11R5 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib"
+	for i in $dirs ; do
+	    if test -r $i/libX11.a; then
+		XLIBSW="-L$i -lX11"
+	    fi
+	done
+    fi
+else
+    if test "$x_libraries" = ""; then
+	XLIBSW=-lX11
+    else
+	XLIBSW="-L$x_libraries -lX11"
+    fi
+fi
+if test "$XLIBSW" = nope ; then
+    AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow)
+fi
+if test "$XLIBSW" = nope ; then
+    echo "Warning:  couldn't find the X11 library archive.  Using -lX11."
+    XLIBSW=-lX11
+fi
+AC_SUBST(XLIBSW)
+
+#--------------------------------------------------------------------
+#	Check for the existence of various libraries.  The order here
+#	is important, so that then end up in the right order in the
+#	command line generated by make.  The -lsocket and -lnsl libraries
+#	require a couple of special tricks:
+#	1. Use "connect" and "accept" to check for -lsocket, and
+#	   "gethostbyname" to check for -lnsl.
+#	2. Use each function name only once:  can't redo a check because
+#	   autoconf caches the results of the last check and won't redo it.
+#	3. Use -lnsl and -lsocket only if they supply procedures that
+#	   aren't already present in the normal libraries.  This is because
+#	   IRIX 5.2 has libraries, but they aren't needed and they're
+#	   bogus:  they goof up name resolution if used.
+#	4. On some SVR4 systems, can't use -lsocket without -lnsl too.
+#	   To get around this problem, check for both libraries together
+#	   if -lsocket doesn't work by itself.
+#--------------------------------------------------------------------
+
+AC_CHECK_LIB(Xbsd, main, [LIBS="$LIBS -lXbsd"])
+
+tk_checkBoth=0
+AC_CHECK_FUNC(connect, tk_checkSocket=0, tk_checkSocket=1)
+if test "$tk_checkSocket" = 1; then
+    AC_CHECK_LIB(socket, main, LIBS="$LIBS -lsocket", tk_checkBoth=1)
+fi
+if test "$tk_checkBoth" = 1; then
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lsocket -lnsl"
+    AC_CHECK_FUNC(accept, tk_checkNsl=0, [LIBS=$tk_oldLibs])
+fi
+AC_CHECK_FUNC(gethostbyname, , AC_CHECK_LIB(nsl, main, [LIBS="$LIBS -lnsl"]))
+
+#--------------------------------------------------------------------
+# One more check related to the X libraries.  The standard releases
+# of Ultrix don't support the "xauth" mechanism, so send won't work
+# unless TK_NO_SECURITY is defined.  However, there are usually copies
+# of the MIT X server available as well, which do support xauth.
+# Check for the MIT stuff and use it if it exists.
+#
+# Note: can't use ac_check_lib macro (at least, not in Autoconf 2.1)
+# because it can't deal with the "-" in the library name.
+#--------------------------------------------------------------------
+
+if test -d /usr/include/mit ; then
+    AC_MSG_CHECKING([MIT X libraries])
+    tk_oldCFlags=$CFLAGS
+    CFLAGS="$CFLAGS -I/usr/include/mit"
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lX11-mit"
+    AC_TRY_LINK([
+	#include <X11/Xlib.h>
+    ], [
+	XOpenDisplay(0);
+    ], [
+	AC_MSG_RESULT(yes)
+	XLIBSW="-lX11-mit"
+	XINCLUDES="-I/usr/include/mit"
+    ], AC_MSG_RESULT(no))
+    CFLAGS=$tk_oldCFlags
+    LIBS=$tk_oldLibs
+fi
+
+#--------------------------------------------------------------------
+#	Figure out how to find out whether a FILE structure contains
+#	buffered readable data.  Some known names for the count field:
+#		_cnt:		Most UNIX systems
+#		__cnt:		HPUX
+#		_r:		BSD
+#		readCount:	Sprite
+#	Or, in GNU libc there are two fields, _gptr and _egptr, which
+#	have to be compared.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([count field in FILE structures])
+AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_cnt = 0;], fcnt="_cnt", )
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->__cnt = 0;], fcnt="__cnt", )
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_r = 0;], fcnt="_r", )
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->readCount = 0;], fcnt="readCount", )
+fi
+if test "$fcnt" != ""; then
+    AC_DEFINE_UNQUOTED(TK_FILE_COUNT, $fcnt)
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_gptr = f->egptr;],
+	tk_ok=yes, tk_ok=no)
+    if test $tk_ok = yes; then
+	AC_DEFINE(TK_FILE_GPTR)
+	fcnt="_gptr/_egptr"
+    fi
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_IO_read_ptr = f->_IO_read_end;],
+	tk_ok=yes, tk_ok=no)
+    if test $tk_ok = yes; then
+	AC_DEFINE(TK_FILE_READ_PTR)
+	fcnt="_IO_read_ptr/_IO_read_end"
+    fi
+fi
+if test "$fcnt" = ""; then
+    AC_MSG_RESULT([not found; must supply TkReadDataPending procedure])
+else
+    AC_MSG_RESULT("$fcnt")
+fi
+
+#--------------------------------------------------------------------
+#	On a few very rare systems, all of the libm.a stuff is
+#	already in libc.a.  Set compiler flags accordingly.
+#	Also, Linux requires the "ieee" library for math to
+#	work right (and it must appear before "-lm").
+#--------------------------------------------------------------------
+
+MATH_LIBS=""
+AC_CHECK_FUNC(sin, , MATH_LIBS="-lm")
+AC_CHECK_LIB(ieee, main, [MATH_LIBS="-lieee $MATH_LIBS"])
+AC_SUBST(MATH_LIBS)
+
+#--------------------------------------------------------------------
+#	If this system doesn't have a memmove procedure, use memcpy
+#	instead.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(memmove, , [AC_DEFINE(memmove, memcpy)])
+
+#--------------------------------------------------------------------
+#	Figure out whether "char" is unsigned.  If so, set a
+#	#define.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING(type of "char")
+AC_TRY_RUN([
+int main()
+{
+    char c;
+    int i;
+    c = 0377;
+    i = c;
+    if (i == -1) {
+	exit(0);
+    }
+    exit(1);
+}], tk_signed=1, tk_signed=0)
+if test $tk_signed = 0; then
+    AC_DEFINE(CHAR_UNSIGNED)
+    AC_MSG_RESULT(unsigned)
+else
+    AC_MSG_RESULT(signed)
+fi
+
+#--------------------------------------------------------------------
+#	SGI systems don't use the BSD form of the gettimeofday function,
+#	but they have a BSDgettimeofday function that can be used instead.
+#
+#	Also, check for the existence of a gettimeofday declaration,
+#	to tkPort.h can declare it if it isn't already declared.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(BSDgettimeofday, AC_DEFINE(HAVE_BSDGETTIMEOFDAY))
+AC_MSG_CHECKING([for gettimeofday declaration])
+AC_EGREP_HEADER(gettimeofday, sys/time.h, AC_MSG_RESULT(present), [
+    AC_MSG_RESULT(missing)
+    AC_DEFINE(GETTOD_NOT_DECLARED)
+])
+
+#--------------------------------------------------------------------
+#	Under Solaris 2.4, strtod returns the wrong value for the
+#	terminating character under some conditions.  Check for this
+#	and if the problem exists use a substitute procedure
+#	"fixstrtod" (provided by Tcl) that corrects the error.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strtod, tk_strtod=1, tk_strtod=0)
+if test "$tk_strtod" = 1; then
+    AC_MSG_CHECKING([for Solaris 2.4 strtod bug])
+    AC_TRY_RUN([
+	extern double strtod();
+	int main()
+	{
+	    char *string = "NaN";
+	    char *term;
+	    strtod(string, &term);
+	    if ((term != string) && (term[-1] == 0)) {
+		exit(1);
+	    }
+	    exit(0);
+	}], AC_MSG_RESULT(ok), [
+	    AC_MSG_RESULT(buggy)
+	    AC_DEFINE(strtod, fixstrtod)
+	])
+fi
+
+AC_OUTPUT(Makefile)
diff --git a/Tk/doc/README.stk b/Tk/doc/README.stk
new file mode 100644
index 0000000..40d91f3
--- /dev/null
+++ b/Tk/doc/README.stk
@@ -0,0 +1,5 @@
+Tk documentation is in the directory Doc/Manual.
+
+It has been modified to take into account the STk modifications and is no more 
+available in this directory.
+
diff --git a/Tk/generic/README b/Tk/generic/README
new file mode 100644
index 0000000..572cc93
--- /dev/null
+++ b/Tk/generic/README
@@ -0,0 +1,5 @@
+This directory contains Tk source files that work on all the platforms
+where Tk runs (e.g. UNIX, PCs, and Macintoshes).  Platform-specific
+sources are in the directories ../unix, ../win, and ../mac.
+
+SCCS ID: @(#) README 1.1 95/09/11 14:02:45
diff --git a/Tk/generic/default.h b/Tk/generic/default.h
new file mode 100644
index 0000000..91a19f6
--- /dev/null
+++ b/Tk/generic/default.h
@@ -0,0 +1,29 @@
+/*
+ * default.h --
+ *
+ *	This file defines the defaults for all options for all of
+ *	the Tk widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) default.h 1.4 96/02/07 17:33:39
+ */
+
+#ifndef _DEFAULT
+#define _DEFAULT
+
+#if defined(__WIN32__) || defined(_WIN32)
+#   include "tkWinDefault.h"
+#else
+#   if defined(MAC_TCL)
+#	include "tkMacDefault.h"
+#   else
+#	include "tkUnixDefault.h"
+#   endif
+#endif
+
+#endif /* _DEFAULT */
diff --git a/Tk/generic/ks_names.h b/Tk/generic/ks_names.h
new file mode 100644
index 0000000..3eee008
--- /dev/null
+++ b/Tk/generic/ks_names.h
@@ -0,0 +1,917 @@
+/*
+ * This file is generated from $(INCLUDESRC)/keysymdef.h.  Do not edit.
+ */
+{ "BackSpace", 0xFF08 },
+{ "Tab", 0xFF09 },
+{ "Linefeed", 0xFF0A },
+{ "Clear", 0xFF0B },
+{ "Return", 0xFF0D },
+{ "Pause", 0xFF13 },
+{ "Escape", 0xFF1B },
+{ "Delete", 0xFFFF },
+{ "Multi_key", 0xFF20 },
+{ "Kanji", 0xFF21 },
+{ "Home", 0xFF50 },
+{ "Left", 0xFF51 },
+{ "Up", 0xFF52 },
+{ "Right", 0xFF53 },
+{ "Down", 0xFF54 },
+{ "Prior", 0xFF55 },
+{ "Next", 0xFF56 },
+{ "End", 0xFF57 },
+{ "Begin", 0xFF58 },
+{ "Select", 0xFF60 },
+{ "Print", 0xFF61 },
+{ "Execute", 0xFF62 },
+{ "Insert", 0xFF63 },
+{ "Undo", 0xFF65 },
+{ "Redo", 0xFF66 },
+{ "Menu", 0xFF67 },
+{ "Find", 0xFF68 },
+{ "Cancel", 0xFF69 },
+{ "Help", 0xFF6A },
+{ "Break", 0xFF6B },
+{ "Mode_switch", 0xFF7E },
+{ "script_switch", 0xFF7E },
+{ "Num_Lock", 0xFF7F },
+{ "KP_Space", 0xFF80 },
+{ "KP_Tab", 0xFF89 },
+{ "KP_Enter", 0xFF8D },
+{ "KP_F1", 0xFF91 },
+{ "KP_F2", 0xFF92 },
+{ "KP_F3", 0xFF93 },
+{ "KP_F4", 0xFF94 },
+{ "KP_Equal", 0xFFBD },
+{ "KP_Multiply", 0xFFAA },
+{ "KP_Add", 0xFFAB },
+{ "KP_Separator", 0xFFAC },
+{ "KP_Subtract", 0xFFAD },
+{ "KP_Decimal", 0xFFAE },
+{ "KP_Divide", 0xFFAF },
+{ "KP_0", 0xFFB0 },
+{ "KP_1", 0xFFB1 },
+{ "KP_2", 0xFFB2 },
+{ "KP_3", 0xFFB3 },
+{ "KP_4", 0xFFB4 },
+{ "KP_5", 0xFFB5 },
+{ "KP_6", 0xFFB6 },
+{ "KP_7", 0xFFB7 },
+{ "KP_8", 0xFFB8 },
+{ "KP_9", 0xFFB9 },
+{ "F1", 0xFFBE },
+{ "F2", 0xFFBF },
+{ "F3", 0xFFC0 },
+{ "F4", 0xFFC1 },
+{ "F5", 0xFFC2 },
+{ "F6", 0xFFC3 },
+{ "F7", 0xFFC4 },
+{ "F8", 0xFFC5 },
+{ "F9", 0xFFC6 },
+{ "F10", 0xFFC7 },
+{ "F11", 0xFFC8 },
+{ "L1", 0xFFC8 },
+{ "F12", 0xFFC9 },
+{ "L2", 0xFFC9 },
+{ "F13", 0xFFCA },
+{ "L3", 0xFFCA },
+{ "F14", 0xFFCB },
+{ "L4", 0xFFCB },
+{ "F15", 0xFFCC },
+{ "L5", 0xFFCC },
+{ "F16", 0xFFCD },
+{ "L6", 0xFFCD },
+{ "F17", 0xFFCE },
+{ "L7", 0xFFCE },
+{ "F18", 0xFFCF },
+{ "L8", 0xFFCF },
+{ "F19", 0xFFD0 },
+{ "L9", 0xFFD0 },
+{ "F20", 0xFFD1 },
+{ "L10", 0xFFD1 },
+{ "F21", 0xFFD2 },
+{ "R1", 0xFFD2 },
+{ "F22", 0xFFD3 },
+{ "R2", 0xFFD3 },
+{ "F23", 0xFFD4 },
+{ "R3", 0xFFD4 },
+{ "F24", 0xFFD5 },
+{ "R4", 0xFFD5 },
+{ "F25", 0xFFD6 },
+{ "R5", 0xFFD6 },
+{ "F26", 0xFFD7 },
+{ "R6", 0xFFD7 },
+{ "F27", 0xFFD8 },
+{ "R7", 0xFFD8 },
+{ "F28", 0xFFD9 },
+{ "R8", 0xFFD9 },
+{ "F29", 0xFFDA },
+{ "R9", 0xFFDA },
+{ "F30", 0xFFDB },
+{ "R10", 0xFFDB },
+{ "F31", 0xFFDC },
+{ "R11", 0xFFDC },
+{ "F32", 0xFFDD },
+{ "R12", 0xFFDD },
+{ "R13", 0xFFDE },
+{ "F33", 0xFFDE },
+{ "F34", 0xFFDF },
+{ "R14", 0xFFDF },
+{ "F35", 0xFFE0 },
+{ "R15", 0xFFE0 },
+{ "Shift_L", 0xFFE1 },
+{ "Shift_R", 0xFFE2 },
+{ "Control_L", 0xFFE3 },
+{ "Control_R", 0xFFE4 },
+{ "Caps_Lock", 0xFFE5 },
+{ "Shift_Lock", 0xFFE6 },
+{ "Meta_L", 0xFFE7 },
+{ "Meta_R", 0xFFE8 },
+{ "Alt_L", 0xFFE9 },
+{ "Alt_R", 0xFFEA },
+{ "Super_L", 0xFFEB },
+{ "Super_R", 0xFFEC },
+{ "Hyper_L", 0xFFED },
+{ "Hyper_R", 0xFFEE },
+{ "space", 0x020 },
+{ "exclam", 0x021 },
+{ "quotedbl", 0x022 },
+{ "numbersign", 0x023 },
+{ "dollar", 0x024 },
+{ "percent", 0x025 },
+{ "ampersand", 0x026 },
+{ "quoteright", 0x027 },
+{ "parenleft", 0x028 },
+{ "parenright", 0x029 },
+{ "asterisk", 0x02a },
+{ "plus", 0x02b },
+{ "comma", 0x02c },
+{ "minus", 0x02d },
+{ "period", 0x02e },
+{ "slash", 0x02f },
+{ "0", 0x030 },
+{ "1", 0x031 },
+{ "2", 0x032 },
+{ "3", 0x033 },
+{ "4", 0x034 },
+{ "5", 0x035 },
+{ "6", 0x036 },
+{ "7", 0x037 },
+{ "8", 0x038 },
+{ "9", 0x039 },
+{ "colon", 0x03a },
+{ "semicolon", 0x03b },
+{ "less", 0x03c },
+{ "equal", 0x03d },
+{ "greater", 0x03e },
+{ "question", 0x03f },
+{ "at", 0x040 },
+{ "A", 0x041 },
+{ "B", 0x042 },
+{ "C", 0x043 },
+{ "D", 0x044 },
+{ "E", 0x045 },
+{ "F", 0x046 },
+{ "G", 0x047 },
+{ "H", 0x048 },
+{ "I", 0x049 },
+{ "J", 0x04a },
+{ "K", 0x04b },
+{ "L", 0x04c },
+{ "M", 0x04d },
+{ "N", 0x04e },
+{ "O", 0x04f },
+{ "P", 0x050 },
+{ "Q", 0x051 },
+{ "R", 0x052 },
+{ "S", 0x053 },
+{ "T", 0x054 },
+{ "U", 0x055 },
+{ "V", 0x056 },
+{ "W", 0x057 },
+{ "X", 0x058 },
+{ "Y", 0x059 },
+{ "Z", 0x05a },
+{ "bracketleft", 0x05b },
+{ "backslash", 0x05c },
+{ "bracketright", 0x05d },
+{ "asciicircum", 0x05e },
+{ "underscore", 0x05f },
+{ "quoteleft", 0x060 },
+{ "a", 0x061 },
+{ "b", 0x062 },
+{ "c", 0x063 },
+{ "d", 0x064 },
+{ "e", 0x065 },
+{ "f", 0x066 },
+{ "g", 0x067 },
+{ "h", 0x068 },
+{ "i", 0x069 },
+{ "j", 0x06a },
+{ "k", 0x06b },
+{ "l", 0x06c },
+{ "m", 0x06d },
+{ "n", 0x06e },
+{ "o", 0x06f },
+{ "p", 0x070 },
+{ "q", 0x071 },
+{ "r", 0x072 },
+{ "s", 0x073 },
+{ "t", 0x074 },
+{ "u", 0x075 },
+{ "v", 0x076 },
+{ "w", 0x077 },
+{ "x", 0x078 },
+{ "y", 0x079 },
+{ "z", 0x07a },
+{ "braceleft", 0x07b },
+{ "bar", 0x07c },
+{ "braceright", 0x07d },
+{ "asciitilde", 0x07e },
+{ "nobreakspace", 0x0a0 },
+{ "exclamdown", 0x0a1 },
+{ "cent", 0x0a2 },
+{ "sterling", 0x0a3 },
+{ "currency", 0x0a4 },
+{ "yen", 0x0a5 },
+{ "brokenbar", 0x0a6 },
+{ "section", 0x0a7 },
+{ "diaeresis", 0x0a8 },
+{ "copyright", 0x0a9 },
+{ "ordfeminine", 0x0aa },
+{ "guillemotleft", 0x0ab },
+{ "notsign", 0x0ac },
+{ "hyphen", 0x0ad },
+{ "registered", 0x0ae },
+{ "macron", 0x0af },
+{ "degree", 0x0b0 },
+{ "plusminus", 0x0b1 },
+{ "twosuperior", 0x0b2 },
+{ "threesuperior", 0x0b3 },
+{ "acute", 0x0b4 },
+{ "mu", 0x0b5 },
+{ "paragraph", 0x0b6 },
+{ "periodcentered", 0x0b7 },
+{ "cedilla", 0x0b8 },
+{ "onesuperior", 0x0b9 },
+{ "masculine", 0x0ba },
+{ "guillemotright", 0x0bb },
+{ "onequarter", 0x0bc },
+{ "onehalf", 0x0bd },
+{ "threequarters", 0x0be },
+{ "questiondown", 0x0bf },
+{ "Agrave", 0x0c0 },
+{ "Aacute", 0x0c1 },
+{ "Acircumflex", 0x0c2 },
+{ "Atilde", 0x0c3 },
+{ "Adiaeresis", 0x0c4 },
+{ "Aring", 0x0c5 },
+{ "AE", 0x0c6 },
+{ "Ccedilla", 0x0c7 },
+{ "Egrave", 0x0c8 },
+{ "Eacute", 0x0c9 },
+{ "Ecircumflex", 0x0ca },
+{ "Ediaeresis", 0x0cb },
+{ "Igrave", 0x0cc },
+{ "Iacute", 0x0cd },
+{ "Icircumflex", 0x0ce },
+{ "Idiaeresis", 0x0cf },
+{ "Eth", 0x0d0 },
+{ "Ntilde", 0x0d1 },
+{ "Ograve", 0x0d2 },
+{ "Oacute", 0x0d3 },
+{ "Ocircumflex", 0x0d4 },
+{ "Otilde", 0x0d5 },
+{ "Odiaeresis", 0x0d6 },
+{ "multiply", 0x0d7 },
+{ "Ooblique", 0x0d8 },
+{ "Ugrave", 0x0d9 },
+{ "Uacute", 0x0da },
+{ "Ucircumflex", 0x0db },
+{ "Udiaeresis", 0x0dc },
+{ "Yacute", 0x0dd },
+{ "Thorn", 0x0de },
+{ "ssharp", 0x0df },
+{ "agrave", 0x0e0 },
+{ "aacute", 0x0e1 },
+{ "acircumflex", 0x0e2 },
+{ "atilde", 0x0e3 },
+{ "adiaeresis", 0x0e4 },
+{ "aring", 0x0e5 },
+{ "ae", 0x0e6 },
+{ "ccedilla", 0x0e7 },
+{ "egrave", 0x0e8 },
+{ "eacute", 0x0e9 },
+{ "ecircumflex", 0x0ea },
+{ "ediaeresis", 0x0eb },
+{ "igrave", 0x0ec },
+{ "iacute", 0x0ed },
+{ "icircumflex", 0x0ee },
+{ "idiaeresis", 0x0ef },
+{ "eth", 0x0f0 },
+{ "ntilde", 0x0f1 },
+{ "ograve", 0x0f2 },
+{ "oacute", 0x0f3 },
+{ "ocircumflex", 0x0f4 },
+{ "otilde", 0x0f5 },
+{ "odiaeresis", 0x0f6 },
+{ "division", 0x0f7 },
+{ "oslash", 0x0f8 },
+{ "ugrave", 0x0f9 },
+{ "uacute", 0x0fa },
+{ "ucircumflex", 0x0fb },
+{ "udiaeresis", 0x0fc },
+{ "yacute", 0x0fd },
+{ "thorn", 0x0fe },
+{ "ydiaeresis", 0x0ff },
+{ "Aogonek", 0x1a1 },
+{ "breve", 0x1a2 },
+{ "Lstroke", 0x1a3 },
+{ "Lcaron", 0x1a5 },
+{ "Sacute", 0x1a6 },
+{ "Scaron", 0x1a9 },
+{ "Scedilla", 0x1aa },
+{ "Tcaron", 0x1ab },
+{ "Zacute", 0x1ac },
+{ "Zcaron", 0x1ae },
+{ "Zabovedot", 0x1af },
+{ "aogonek", 0x1b1 },
+{ "ogonek", 0x1b2 },
+{ "lstroke", 0x1b3 },
+{ "lcaron", 0x1b5 },
+{ "sacute", 0x1b6 },
+{ "caron", 0x1b7 },
+{ "scaron", 0x1b9 },
+{ "scedilla", 0x1ba },
+{ "tcaron", 0x1bb },
+{ "zacute", 0x1bc },
+{ "doubleacute", 0x1bd },
+{ "zcaron", 0x1be },
+{ "zabovedot", 0x1bf },
+{ "Racute", 0x1c0 },
+{ "Abreve", 0x1c3 },
+{ "Cacute", 0x1c6 },
+{ "Ccaron", 0x1c8 },
+{ "Eogonek", 0x1ca },
+{ "Ecaron", 0x1cc },
+{ "Dcaron", 0x1cf },
+{ "Nacute", 0x1d1 },
+{ "Ncaron", 0x1d2 },
+{ "Odoubleacute", 0x1d5 },
+{ "Rcaron", 0x1d8 },
+{ "Uring", 0x1d9 },
+{ "Udoubleacute", 0x1db },
+{ "Tcedilla", 0x1de },
+{ "racute", 0x1e0 },
+{ "abreve", 0x1e3 },
+{ "cacute", 0x1e6 },
+{ "ccaron", 0x1e8 },
+{ "eogonek", 0x1ea },
+{ "ecaron", 0x1ec },
+{ "dcaron", 0x1ef },
+{ "nacute", 0x1f1 },
+{ "ncaron", 0x1f2 },
+{ "odoubleacute", 0x1f5 },
+{ "udoubleacute", 0x1fb },
+{ "rcaron", 0x1f8 },
+{ "uring", 0x1f9 },
+{ "tcedilla", 0x1fe },
+{ "abovedot", 0x1ff },
+{ "Hstroke", 0x2a1 },
+{ "Hcircumflex", 0x2a6 },
+{ "Iabovedot", 0x2a9 },
+{ "Gbreve", 0x2ab },
+{ "Jcircumflex", 0x2ac },
+{ "hstroke", 0x2b1 },
+{ "hcircumflex", 0x2b6 },
+{ "idotless", 0x2b9 },
+{ "gbreve", 0x2bb },
+{ "jcircumflex", 0x2bc },
+{ "Cabovedot", 0x2c5 },
+{ "Ccircumflex", 0x2c6 },
+{ "Gabovedot", 0x2d5 },
+{ "Gcircumflex", 0x2d8 },
+{ "Ubreve", 0x2dd },
+{ "Scircumflex", 0x2de },
+{ "cabovedot", 0x2e5 },
+{ "ccircumflex", 0x2e6 },
+{ "gabovedot", 0x2f5 },
+{ "gcircumflex", 0x2f8 },
+{ "ubreve", 0x2fd },
+{ "scircumflex", 0x2fe },
+{ "kappa", 0x3a2 },
+{ "Rcedilla", 0x3a3 },
+{ "Itilde", 0x3a5 },
+{ "Lcedilla", 0x3a6 },
+{ "Emacron", 0x3aa },
+{ "Gcedilla", 0x3ab },
+{ "Tslash", 0x3ac },
+{ "rcedilla", 0x3b3 },
+{ "itilde", 0x3b5 },
+{ "lcedilla", 0x3b6 },
+{ "emacron", 0x3ba },
+{ "gacute", 0x3bb },
+{ "tslash", 0x3bc },
+{ "ENG", 0x3bd },
+{ "eng", 0x3bf },
+{ "Amacron", 0x3c0 },
+{ "Iogonek", 0x3c7 },
+{ "Eabovedot", 0x3cc },
+{ "Imacron", 0x3cf },
+{ "Ncedilla", 0x3d1 },
+{ "Omacron", 0x3d2 },
+{ "Kcedilla", 0x3d3 },
+{ "Uogonek", 0x3d9 },
+{ "Utilde", 0x3dd },
+{ "Umacron", 0x3de },
+{ "amacron", 0x3e0 },
+{ "iogonek", 0x3e7 },
+{ "eabovedot", 0x3ec },
+{ "imacron", 0x3ef },
+{ "ncedilla", 0x3f1 },
+{ "omacron", 0x3f2 },
+{ "kcedilla", 0x3f3 },
+{ "uogonek", 0x3f9 },
+{ "utilde", 0x3fd },
+{ "umacron", 0x3fe },
+{ "overline", 0x47e },
+{ "kana_fullstop", 0x4a1 },
+{ "kana_openingbracket", 0x4a2 },
+{ "kana_closingbracket", 0x4a3 },
+{ "kana_comma", 0x4a4 },
+{ "kana_middledot", 0x4a5 },
+{ "kana_WO", 0x4a6 },
+{ "kana_a", 0x4a7 },
+{ "kana_i", 0x4a8 },
+{ "kana_u", 0x4a9 },
+{ "kana_e", 0x4aa },
+{ "kana_o", 0x4ab },
+{ "kana_ya", 0x4ac },
+{ "kana_yu", 0x4ad },
+{ "kana_yo", 0x4ae },
+{ "kana_tu", 0x4af },
+{ "prolongedsound", 0x4b0 },
+{ "kana_A", 0x4b1 },
+{ "kana_I", 0x4b2 },
+{ "kana_U", 0x4b3 },
+{ "kana_E", 0x4b4 },
+{ "kana_O", 0x4b5 },
+{ "kana_KA", 0x4b6 },
+{ "kana_KI", 0x4b7 },
+{ "kana_KU", 0x4b8 },
+{ "kana_KE", 0x4b9 },
+{ "kana_KO", 0x4ba },
+{ "kana_SA", 0x4bb },
+{ "kana_SHI", 0x4bc },
+{ "kana_SU", 0x4bd },
+{ "kana_SE", 0x4be },
+{ "kana_SO", 0x4bf },
+{ "kana_TA", 0x4c0 },
+{ "kana_TI", 0x4c1 },
+{ "kana_TU", 0x4c2 },
+{ "kana_TE", 0x4c3 },
+{ "kana_TO", 0x4c4 },
+{ "kana_NA", 0x4c5 },
+{ "kana_NI", 0x4c6 },
+{ "kana_NU", 0x4c7 },
+{ "kana_NE", 0x4c8 },
+{ "kana_NO", 0x4c9 },
+{ "kana_HA", 0x4ca },
+{ "kana_HI", 0x4cb },
+{ "kana_HU", 0x4cc },
+{ "kana_HE", 0x4cd },
+{ "kana_HO", 0x4ce },
+{ "kana_MA", 0x4cf },
+{ "kana_MI", 0x4d0 },
+{ "kana_MU", 0x4d1 },
+{ "kana_ME", 0x4d2 },
+{ "kana_MO", 0x4d3 },
+{ "kana_YA", 0x4d4 },
+{ "kana_YU", 0x4d5 },
+{ "kana_YO", 0x4d6 },
+{ "kana_RA", 0x4d7 },
+{ "kana_RI", 0x4d8 },
+{ "kana_RU", 0x4d9 },
+{ "kana_RE", 0x4da },
+{ "kana_RO", 0x4db },
+{ "kana_WA", 0x4dc },
+{ "kana_N", 0x4dd },
+{ "voicedsound", 0x4de },
+{ "semivoicedsound", 0x4df },
+{ "kana_switch", 0xFF7E },
+{ "Arabic_comma", 0x5ac },
+{ "Arabic_semicolon", 0x5bb },
+{ "Arabic_question_mark", 0x5bf },
+{ "Arabic_hamza", 0x5c1 },
+{ "Arabic_maddaonalef", 0x5c2 },
+{ "Arabic_hamzaonalef", 0x5c3 },
+{ "Arabic_hamzaonwaw", 0x5c4 },
+{ "Arabic_hamzaunderalef", 0x5c5 },
+{ "Arabic_hamzaonyeh", 0x5c6 },
+{ "Arabic_alef", 0x5c7 },
+{ "Arabic_beh", 0x5c8 },
+{ "Arabic_tehmarbuta", 0x5c9 },
+{ "Arabic_teh", 0x5ca },
+{ "Arabic_theh", 0x5cb },
+{ "Arabic_jeem", 0x5cc },
+{ "Arabic_hah", 0x5cd },
+{ "Arabic_khah", 0x5ce },
+{ "Arabic_dal", 0x5cf },
+{ "Arabic_thal", 0x5d0 },
+{ "Arabic_ra", 0x5d1 },
+{ "Arabic_zain", 0x5d2 },
+{ "Arabic_seen", 0x5d3 },
+{ "Arabic_sheen", 0x5d4 },
+{ "Arabic_sad", 0x5d5 },
+{ "Arabic_dad", 0x5d6 },
+{ "Arabic_tah", 0x5d7 },
+{ "Arabic_zah", 0x5d8 },
+{ "Arabic_ain", 0x5d9 },
+{ "Arabic_ghain", 0x5da },
+{ "Arabic_tatweel", 0x5e0 },
+{ "Arabic_feh", 0x5e1 },
+{ "Arabic_qaf", 0x5e2 },
+{ "Arabic_kaf", 0x5e3 },
+{ "Arabic_lam", 0x5e4 },
+{ "Arabic_meem", 0x5e5 },
+{ "Arabic_noon", 0x5e6 },
+{ "Arabic_heh", 0x5e7 },
+{ "Arabic_waw", 0x5e8 },
+{ "Arabic_alefmaksura", 0x5e9 },
+{ "Arabic_yeh", 0x5ea },
+{ "Arabic_fathatan", 0x5eb },
+{ "Arabic_dammatan", 0x5ec },
+{ "Arabic_kasratan", 0x5ed },
+{ "Arabic_fatha", 0x5ee },
+{ "Arabic_damma", 0x5ef },
+{ "Arabic_kasra", 0x5f0 },
+{ "Arabic_shadda", 0x5f1 },
+{ "Arabic_sukun", 0x5f2 },
+{ "Arabic_switch", 0xFF7E },
+{ "Serbian_dje", 0x6a1 },
+{ "Macedonia_gje", 0x6a2 },
+{ "Cyrillic_io", 0x6a3 },
+{ "Ukranian_je", 0x6a4 },
+{ "Macedonia_dse", 0x6a5 },
+{ "Ukranian_i", 0x6a6 },
+{ "Ukranian_yi", 0x6a7 },
+{ "Serbian_je", 0x6a8 },
+{ "Serbian_lje", 0x6a9 },
+{ "Serbian_nje", 0x6aa },
+{ "Serbian_tshe", 0x6ab },
+{ "Macedonia_kje", 0x6ac },
+{ "Byelorussian_shortu", 0x6ae },
+{ "Serbian_dze", 0x6af },
+{ "numerosign", 0x6b0 },
+{ "Serbian_DJE", 0x6b1 },
+{ "Macedonia_GJE", 0x6b2 },
+{ "Cyrillic_IO", 0x6b3 },
+{ "Ukranian_JE", 0x6b4 },
+{ "Macedonia_DSE", 0x6b5 },
+{ "Ukranian_I", 0x6b6 },
+{ "Ukranian_YI", 0x6b7 },
+{ "Serbian_JE", 0x6b8 },
+{ "Serbian_LJE", 0x6b9 },
+{ "Serbian_NJE", 0x6ba },
+{ "Serbian_TSHE", 0x6bb },
+{ "Macedonia_KJE", 0x6bc },
+{ "Byelorussian_SHORTU", 0x6be },
+{ "Serbian_DZE", 0x6bf },
+{ "Cyrillic_yu", 0x6c0 },
+{ "Cyrillic_a", 0x6c1 },
+{ "Cyrillic_be", 0x6c2 },
+{ "Cyrillic_tse", 0x6c3 },
+{ "Cyrillic_de", 0x6c4 },
+{ "Cyrillic_ie", 0x6c5 },
+{ "Cyrillic_ef", 0x6c6 },
+{ "Cyrillic_ghe", 0x6c7 },
+{ "Cyrillic_ha", 0x6c8 },
+{ "Cyrillic_i", 0x6c9 },
+{ "Cyrillic_shorti", 0x6ca },
+{ "Cyrillic_ka", 0x6cb },
+{ "Cyrillic_el", 0x6cc },
+{ "Cyrillic_em", 0x6cd },
+{ "Cyrillic_en", 0x6ce },
+{ "Cyrillic_o", 0x6cf },
+{ "Cyrillic_pe", 0x6d0 },
+{ "Cyrillic_ya", 0x6d1 },
+{ "Cyrillic_er", 0x6d2 },
+{ "Cyrillic_es", 0x6d3 },
+{ "Cyrillic_te", 0x6d4 },
+{ "Cyrillic_u", 0x6d5 },
+{ "Cyrillic_zhe", 0x6d6 },
+{ "Cyrillic_ve", 0x6d7 },
+{ "Cyrillic_softsign", 0x6d8 },
+{ "Cyrillic_yeru", 0x6d9 },
+{ "Cyrillic_ze", 0x6da },
+{ "Cyrillic_sha", 0x6db },
+{ "Cyrillic_e", 0x6dc },
+{ "Cyrillic_shcha", 0x6dd },
+{ "Cyrillic_che", 0x6de },
+{ "Cyrillic_hardsign", 0x6df },
+{ "Cyrillic_YU", 0x6e0 },
+{ "Cyrillic_A", 0x6e1 },
+{ "Cyrillic_BE", 0x6e2 },
+{ "Cyrillic_TSE", 0x6e3 },
+{ "Cyrillic_DE", 0x6e4 },
+{ "Cyrillic_IE", 0x6e5 },
+{ "Cyrillic_EF", 0x6e6 },
+{ "Cyrillic_GHE", 0x6e7 },
+{ "Cyrillic_HA", 0x6e8 },
+{ "Cyrillic_I", 0x6e9 },
+{ "Cyrillic_SHORTI", 0x6ea },
+{ "Cyrillic_KA", 0x6eb },
+{ "Cyrillic_EL", 0x6ec },
+{ "Cyrillic_EM", 0x6ed },
+{ "Cyrillic_EN", 0x6ee },
+{ "Cyrillic_O", 0x6ef },
+{ "Cyrillic_PE", 0x6f0 },
+{ "Cyrillic_YA", 0x6f1 },
+{ "Cyrillic_ER", 0x6f2 },
+{ "Cyrillic_ES", 0x6f3 },
+{ "Cyrillic_TE", 0x6f4 },
+{ "Cyrillic_U", 0x6f5 },
+{ "Cyrillic_ZHE", 0x6f6 },
+{ "Cyrillic_VE", 0x6f7 },
+{ "Cyrillic_SOFTSIGN", 0x6f8 },
+{ "Cyrillic_YERU", 0x6f9 },
+{ "Cyrillic_ZE", 0x6fa },
+{ "Cyrillic_SHA", 0x6fb },
+{ "Cyrillic_E", 0x6fc },
+{ "Cyrillic_SHCHA", 0x6fd },
+{ "Cyrillic_CHE", 0x6fe },
+{ "Cyrillic_HARDSIGN", 0x6ff },
+{ "Greek_ALPHAaccent", 0x7a1 },
+{ "Greek_EPSILONaccent", 0x7a2 },
+{ "Greek_ETAaccent", 0x7a3 },
+{ "Greek_IOTAaccent", 0x7a4 },
+{ "Greek_IOTAdiaeresis", 0x7a5 },
+{ "Greek_IOTAaccentdiaeresis", 0x7a6 },
+{ "Greek_OMICRONaccent", 0x7a7 },
+{ "Greek_UPSILONaccent", 0x7a8 },
+{ "Greek_UPSILONdieresis", 0x7a9 },
+{ "Greek_UPSILONaccentdieresis", 0x7aa },
+{ "Greek_OMEGAaccent", 0x7ab },
+{ "Greek_alphaaccent", 0x7b1 },
+{ "Greek_epsilonaccent", 0x7b2 },
+{ "Greek_etaaccent", 0x7b3 },
+{ "Greek_iotaaccent", 0x7b4 },
+{ "Greek_iotadieresis", 0x7b5 },
+{ "Greek_iotaaccentdieresis", 0x7b6 },
+{ "Greek_omicronaccent", 0x7b7 },
+{ "Greek_upsilonaccent", 0x7b8 },
+{ "Greek_upsilondieresis", 0x7b9 },
+{ "Greek_upsilonaccentdieresis", 0x7ba },
+{ "Greek_omegaaccent", 0x7bb },
+{ "Greek_ALPHA", 0x7c1 },
+{ "Greek_BETA", 0x7c2 },
+{ "Greek_GAMMA", 0x7c3 },
+{ "Greek_DELTA", 0x7c4 },
+{ "Greek_EPSILON", 0x7c5 },
+{ "Greek_ZETA", 0x7c6 },
+{ "Greek_ETA", 0x7c7 },
+{ "Greek_THETA", 0x7c8 },
+{ "Greek_IOTA", 0x7c9 },
+{ "Greek_KAPPA", 0x7ca },
+{ "Greek_LAMBDA", 0x7cb },
+{ "Greek_MU", 0x7cc },
+{ "Greek_NU", 0x7cd },
+{ "Greek_XI", 0x7ce },
+{ "Greek_OMICRON", 0x7cf },
+{ "Greek_PI", 0x7d0 },
+{ "Greek_RHO", 0x7d1 },
+{ "Greek_SIGMA", 0x7d2 },
+{ "Greek_TAU", 0x7d4 },
+{ "Greek_UPSILON", 0x7d5 },
+{ "Greek_PHI", 0x7d6 },
+{ "Greek_CHI", 0x7d7 },
+{ "Greek_PSI", 0x7d8 },
+{ "Greek_OMEGA", 0x7d9 },
+{ "Greek_alpha", 0x7e1 },
+{ "Greek_beta", 0x7e2 },
+{ "Greek_gamma", 0x7e3 },
+{ "Greek_delta", 0x7e4 },
+{ "Greek_epsilon", 0x7e5 },
+{ "Greek_zeta", 0x7e6 },
+{ "Greek_eta", 0x7e7 },
+{ "Greek_theta", 0x7e8 },
+{ "Greek_iota", 0x7e9 },
+{ "Greek_kappa", 0x7ea },
+{ "Greek_lambda", 0x7eb },
+{ "Greek_mu", 0x7ec },
+{ "Greek_nu", 0x7ed },
+{ "Greek_xi", 0x7ee },
+{ "Greek_omicron", 0x7ef },
+{ "Greek_pi", 0x7f0 },
+{ "Greek_rho", 0x7f1 },
+{ "Greek_sigma", 0x7f2 },
+{ "Greek_finalsmallsigma", 0x7f3 },
+{ "Greek_tau", 0x7f4 },
+{ "Greek_upsilon", 0x7f5 },
+{ "Greek_phi", 0x7f6 },
+{ "Greek_chi", 0x7f7 },
+{ "Greek_psi", 0x7f8 },
+{ "Greek_omega", 0x7f9 },
+{ "Greek_switch", 0xFF7E },
+{ "leftradical", 0x8a1 },
+{ "topleftradical", 0x8a2 },
+{ "horizconnector", 0x8a3 },
+{ "topintegral", 0x8a4 },
+{ "botintegral", 0x8a5 },
+{ "vertconnector", 0x8a6 },
+{ "topleftsqbracket", 0x8a7 },
+{ "botleftsqbracket", 0x8a8 },
+{ "toprightsqbracket", 0x8a9 },
+{ "botrightsqbracket", 0x8aa },
+{ "topleftparens", 0x8ab },
+{ "botleftparens", 0x8ac },
+{ "toprightparens", 0x8ad },
+{ "botrightparens", 0x8ae },
+{ "leftmiddlecurlybrace", 0x8af },
+{ "rightmiddlecurlybrace", 0x8b0 },
+{ "topleftsummation", 0x8b1 },
+{ "botleftsummation", 0x8b2 },
+{ "topvertsummationconnector", 0x8b3 },
+{ "botvertsummationconnector", 0x8b4 },
+{ "toprightsummation", 0x8b5 },
+{ "botrightsummation", 0x8b6 },
+{ "rightmiddlesummation", 0x8b7 },
+{ "lessthanequal", 0x8bc },
+{ "notequal", 0x8bd },
+{ "greaterthanequal", 0x8be },
+{ "integral", 0x8bf },
+{ "therefore", 0x8c0 },
+{ "variation", 0x8c1 },
+{ "infinity", 0x8c2 },
+{ "nabla", 0x8c5 },
+{ "approximate", 0x8c8 },
+{ "similarequal", 0x8c9 },
+{ "ifonlyif", 0x8cd },
+{ "implies", 0x8ce },
+{ "identical", 0x8cf },
+{ "radical", 0x8d6 },
+{ "includedin", 0x8da },
+{ "includes", 0x8db },
+{ "intersection", 0x8dc },
+{ "union", 0x8dd },
+{ "logicaland", 0x8de },
+{ "logicalor", 0x8df },
+{ "partialderivative", 0x8ef },
+{ "function", 0x8f6 },
+{ "leftarrow", 0x8fb },
+{ "uparrow", 0x8fc },
+{ "rightarrow", 0x8fd },
+{ "downarrow", 0x8fe },
+{ "blank", 0x9df },
+{ "soliddiamond", 0x9e0 },
+{ "checkerboard", 0x9e1 },
+{ "ht", 0x9e2 },
+{ "ff", 0x9e3 },
+{ "cr", 0x9e4 },
+{ "lf", 0x9e5 },
+{ "nl", 0x9e8 },
+{ "vt", 0x9e9 },
+{ "lowrightcorner", 0x9ea },
+{ "uprightcorner", 0x9eb },
+{ "upleftcorner", 0x9ec },
+{ "lowleftcorner", 0x9ed },
+{ "crossinglines", 0x9ee },
+{ "horizlinescan1", 0x9ef },
+{ "horizlinescan3", 0x9f0 },
+{ "horizlinescan5", 0x9f1 },
+{ "horizlinescan7", 0x9f2 },
+{ "horizlinescan9", 0x9f3 },
+{ "leftt", 0x9f4 },
+{ "rightt", 0x9f5 },
+{ "bott", 0x9f6 },
+{ "topt", 0x9f7 },
+{ "vertbar", 0x9f8 },
+{ "emspace", 0xaa1 },
+{ "enspace", 0xaa2 },
+{ "em3space", 0xaa3 },
+{ "em4space", 0xaa4 },
+{ "digitspace", 0xaa5 },
+{ "punctspace", 0xaa6 },
+{ "thinspace", 0xaa7 },
+{ "hairspace", 0xaa8 },
+{ "emdash", 0xaa9 },
+{ "endash", 0xaaa },
+{ "signifblank", 0xaac },
+{ "ellipsis", 0xaae },
+{ "doubbaselinedot", 0xaaf },
+{ "onethird", 0xab0 },
+{ "twothirds", 0xab1 },
+{ "onefifth", 0xab2 },
+{ "twofifths", 0xab3 },
+{ "threefifths", 0xab4 },
+{ "fourfifths", 0xab5 },
+{ "onesixth", 0xab6 },
+{ "fivesixths", 0xab7 },
+{ "careof", 0xab8 },
+{ "figdash", 0xabb },
+{ "leftanglebracket", 0xabc },
+{ "decimalpoint", 0xabd },
+{ "rightanglebracket", 0xabe },
+{ "marker", 0xabf },
+{ "oneeighth", 0xac3 },
+{ "threeeighths", 0xac4 },
+{ "fiveeighths", 0xac5 },
+{ "seveneighths", 0xac6 },
+{ "trademark", 0xac9 },
+{ "signaturemark", 0xaca },
+{ "trademarkincircle", 0xacb },
+{ "leftopentriangle", 0xacc },
+{ "rightopentriangle", 0xacd },
+{ "emopencircle", 0xace },
+{ "emopenrectangle", 0xacf },
+{ "leftsinglequotemark", 0xad0 },
+{ "rightsinglequotemark", 0xad1 },
+{ "leftdoublequotemark", 0xad2 },
+{ "rightdoublequotemark", 0xad3 },
+{ "prescription", 0xad4 },
+{ "minutes", 0xad6 },
+{ "seconds", 0xad7 },
+{ "latincross", 0xad9 },
+{ "hexagram", 0xada },
+{ "filledrectbullet", 0xadb },
+{ "filledlefttribullet", 0xadc },
+{ "filledrighttribullet", 0xadd },
+{ "emfilledcircle", 0xade },
+{ "emfilledrect", 0xadf },
+{ "enopencircbullet", 0xae0 },
+{ "enopensquarebullet", 0xae1 },
+{ "openrectbullet", 0xae2 },
+{ "opentribulletup", 0xae3 },
+{ "opentribulletdown", 0xae4 },
+{ "openstar", 0xae5 },
+{ "enfilledcircbullet", 0xae6 },
+{ "enfilledsqbullet", 0xae7 },
+{ "filledtribulletup", 0xae8 },
+{ "filledtribulletdown", 0xae9 },
+{ "leftpointer", 0xaea },
+{ "rightpointer", 0xaeb },
+{ "club", 0xaec },
+{ "diamond", 0xaed },
+{ "heart", 0xaee },
+{ "maltesecross", 0xaf0 },
+{ "dagger", 0xaf1 },
+{ "doubledagger", 0xaf2 },
+{ "checkmark", 0xaf3 },
+{ "ballotcross", 0xaf4 },
+{ "musicalsharp", 0xaf5 },
+{ "musicalflat", 0xaf6 },
+{ "malesymbol", 0xaf7 },
+{ "femalesymbol", 0xaf8 },
+{ "telephone", 0xaf9 },
+{ "telephonerecorder", 0xafa },
+{ "phonographcopyright", 0xafb },
+{ "caret", 0xafc },
+{ "singlelowquotemark", 0xafd },
+{ "doublelowquotemark", 0xafe },
+{ "cursor", 0xaff },
+{ "leftcaret", 0xba3 },
+{ "rightcaret", 0xba6 },
+{ "downcaret", 0xba8 },
+{ "upcaret", 0xba9 },
+{ "overbar", 0xbc0 },
+{ "downtack", 0xbc2 },
+{ "upshoe", 0xbc3 },
+{ "downstile", 0xbc4 },
+{ "underbar", 0xbc6 },
+{ "jot", 0xbca },
+{ "quad", 0xbcc },
+{ "uptack", 0xbce },
+{ "circle", 0xbcf },
+{ "upstile", 0xbd3 },
+{ "downshoe", 0xbd6 },
+{ "rightshoe", 0xbd8 },
+{ "leftshoe", 0xbda },
+{ "lefttack", 0xbdc },
+{ "righttack", 0xbfc },
+{ "hebrew_aleph", 0xce0 },
+{ "hebrew_beth", 0xce1 },
+{ "hebrew_gimmel", 0xce2 },
+{ "hebrew_daleth", 0xce3 },
+{ "hebrew_he", 0xce4 },
+{ "hebrew_waw", 0xce5 },
+{ "hebrew_zayin", 0xce6 },
+{ "hebrew_het", 0xce7 },
+{ "hebrew_teth", 0xce8 },
+{ "hebrew_yod", 0xce9 },
+{ "hebrew_finalkaph", 0xcea },
+{ "hebrew_kaph", 0xceb },
+{ "hebrew_lamed", 0xcec },
+{ "hebrew_finalmem", 0xced },
+{ "hebrew_mem", 0xcee },
+{ "hebrew_finalnun", 0xcef },
+{ "hebrew_nun", 0xcf0 },
+{ "hebrew_samekh", 0xcf1 },
+{ "hebrew_ayin", 0xcf2 },
+{ "hebrew_finalpe", 0xcf3 },
+{ "hebrew_pe", 0xcf4 },
+{ "hebrew_finalzadi", 0xcf5 },
+{ "hebrew_zadi", 0xcf6 },
+{ "hebrew_kuf", 0xcf7 },
+{ "hebrew_resh", 0xcf8 },
+{ "hebrew_shin", 0xcf9 },
+{ "hebrew_taf", 0xcfa },
+{ "Hebrew_switch", 0xFF7E },
diff --git a/Tk/generic/patchlevel.h b/Tk/generic/patchlevel.h
new file mode 100644
index 0000000..f7a00ec
--- /dev/null
+++ b/Tk/generic/patchlevel.h
@@ -0,0 +1,23 @@
+/*
+ * patchlevel.h --
+ *
+ * This file does nothing except define a "patch level" for Tk.
+ * The patch level has the form "X.YpZ" where X.Y is the base
+ * release, and Z is a serial number that is used to sequence
+ * patches for a given release.  Thus 4.0p1 is the first patch
+ * to release 4.0, 4.0p2 is the patch that follows 4.0p1, and
+ * so on.  The "pZ" is omitted in an original new release, and
+ * it is replaced with "bZ" for beta releases or "aZ" for alpha
+ * releases (e.g. 4.0b1 is the first beta release of Tk 4.0).
+ * The patch level ensures that patches are applied in the
+ * correct order and only to appropriate sources.
+ *
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) patchlevel.h 1.17 96/07/17 14:16:34
+ */
+
+#define TK_PATCH_LEVEL "4.1p1"
diff --git a/Tk/generic/tk.h b/Tk/generic/tk.h
new file mode 100644
index 0000000..1407385
--- /dev/null
+++ b/Tk/generic/tk.h
@@ -0,0 +1,1345 @@
+/*
+ * tk.h --
+ *
+ *	Declarations for Tk-related things that are visible
+ *	outside of the Tk module itself.
+ *
+ * Copyright (c) 1989-1994 The Regents of the University of California.
+ * Copyright (c) 1994 The Australian National University.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tk.h 1.185 96/05/18 16:29:52
+ */
+
+#ifndef _TK
+#define _TK
+
+#define TK_VERSION "4.1"
+#define TK_MAJOR_VERSION 4
+#define TK_MINOR_VERSION 1
+
+#ifndef _TCL
+#include <tcl.h>
+#endif
+#ifndef _XLIB_H
+#ifdef MAC_TCL
+#include <Xlib.h>
+#include <X.h>
+#else
+#include <X11/Xlib.h>
+#endif
+#endif
+#ifdef __STDC__
+#include <stddef.h>
+#endif
+
+#ifdef STk_CODE
+   /* Don't include the following code when compiling the interpreter */
+#  ifndef _STK_H
+#    define SCM void *	/* Tk code never manipulate SCM object directly */
+#    include <tk-glue.h>
+#  endif
+#endif
+
+/*
+ * Decide whether or not to use input methods.
+ */
+
+#ifdef XNQueryInputStyle
+#define TK_USE_INPUT_METHODS
+#endif
+
+/*
+ * Dummy types that are used by clients:
+ */
+
+typedef struct Tk_BindingTable_ *Tk_BindingTable;
+typedef struct Tk_Canvas_ *Tk_Canvas;
+typedef struct Tk_Cursor_ *Tk_Cursor;
+typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler;
+typedef struct Tk_Image__ *Tk_Image;
+typedef struct Tk_ImageMaster_ *Tk_ImageMaster;
+typedef struct Tk_Window_ *Tk_Window;
+typedef struct Tk_3DBorder_ *Tk_3DBorder;
+
+/*
+ * Additional types exported to clients.
+ */
+
+typedef char *Tk_Uid;
+
+/*
+ * Structure used to specify how to handle argv options.
+ */
+
+typedef struct {
+    char *key;		/* The key string that flags the option in the
+			 * argv array. */
+    int type;		/* Indicates option type;  see below. */
+    char *src;		/* Value to be used in setting dst;  usage
+			 * depends on type. */
+    char *dst;		/* Address of value to be modified;  usage
+			 * depends on type. */
+    char *help;		/* Documentation message describing this option. */
+} Tk_ArgvInfo;
+
+/*
+ * Legal values for the type field of a Tk_ArgvInfo: see the user
+ * documentation for details.
+ */
+
+#define TK_ARGV_CONSTANT		15
+#define TK_ARGV_INT			16
+#define TK_ARGV_STRING			17
+#define TK_ARGV_UID			18
+#define TK_ARGV_REST			19
+#define TK_ARGV_FLOAT			20
+#define TK_ARGV_FUNC			21
+#define TK_ARGV_GENFUNC			22
+#define TK_ARGV_HELP			23
+#define TK_ARGV_CONST_OPTION		24
+#define TK_ARGV_OPTION_VALUE		25
+#define TK_ARGV_OPTION_NAME_VALUE	26
+#define TK_ARGV_END			27
+
+/*
+ * Flag bits for passing to Tk_ParseArgv:
+ */
+
+#define TK_ARGV_NO_DEFAULTS		0x1
+#define TK_ARGV_NO_LEFTOVERS		0x2
+#define TK_ARGV_NO_ABBREV		0x4
+#define TK_ARGV_DONT_SKIP_FIRST_ARG	0x8
+
+/*
+ * Structure used to describe application-specific configuration
+ * options:  indicates procedures to call to parse an option and
+ * to return a text string describing an option.
+ */
+
+typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, Tk_Window tkwin, char *value, char *widgRec,
+	int offset));
+typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData,
+	Tk_Window tkwin, char *widgRec, int offset,
+	Tcl_FreeProc **freeProcPtr));
+
+typedef struct Tk_CustomOption {
+    Tk_OptionParseProc *parseProc;	/* Procedure to call to parse an
+					 * option and store it in converted
+					 * form. */
+    Tk_OptionPrintProc *printProc;	/* Procedure to return a printable
+					 * string describing an existing
+					 * option. */
+    ClientData clientData;		/* Arbitrary one-word value used by
+					 * option parser:  passed to
+					 * parseProc and printProc. */
+} Tk_CustomOption;
+
+/*
+ * Structure used to specify information for Tk_ConfigureWidget.  Each
+ * structure gives complete information for one option, including
+ * how the option is specified on the command line, where it appears
+ * in the option database, etc.
+ */
+
+typedef struct Tk_ConfigSpec {
+    int type;			/* Type of option, such as TK_CONFIG_COLOR;
+				 * see definitions below.  Last option in
+				 * table must have type TK_CONFIG_END. */
+    char *argvName;		/* Switch used to specify option in argv.
+				 * NULL means this spec is part of a group. */
+    char *dbName;		/* Name for option in option database. */
+    char *dbClass;		/* Class for option in database. */
+    char *defValue;		/* Default value for option if not
+				 * specified in command line or database. */
+    int offset;			/* Where in widget record to store value;
+				 * use Tk_Offset macro to generate values
+				 * for this. */
+    int specFlags;		/* Any combination of the values defined
+				 * below;  other bits are used internally
+				 * by tkConfig.c. */
+    Tk_CustomOption *customPtr;	/* If type is TK_CONFIG_CUSTOM then this is
+				 * a pointer to info about how to parse and
+				 * print the option.  Otherwise it is
+				 * irrelevant. */
+} Tk_ConfigSpec;
+
+/*
+ * Type values for Tk_ConfigSpec structures.  See the user
+ * documentation for details.
+ */
+
+#define TK_CONFIG_BOOLEAN	1
+#define TK_CONFIG_INT		2
+#define TK_CONFIG_DOUBLE	3
+#define TK_CONFIG_STRING	4
+#define TK_CONFIG_UID		5
+#define TK_CONFIG_COLOR		6
+#define TK_CONFIG_FONT		7
+#define TK_CONFIG_BITMAP	8
+#define TK_CONFIG_BORDER	9
+#define TK_CONFIG_RELIEF	10
+#define TK_CONFIG_CURSOR	11
+#define TK_CONFIG_ACTIVE_CURSOR	12
+#define TK_CONFIG_JUSTIFY	13
+#define TK_CONFIG_ANCHOR	14
+#define TK_CONFIG_SYNONYM	15
+#define TK_CONFIG_CAP_STYLE	16
+#define TK_CONFIG_JOIN_STYLE	17
+#define TK_CONFIG_PIXELS	18
+#define TK_CONFIG_MM		19
+#define TK_CONFIG_WINDOW	20
+#define TK_CONFIG_CUSTOM	21
+#ifdef STk_CODE
+#  define TK_CONFIG_CLOSURE	22
+#  define TK_CONFIG_SINT	23 /* value is an int but default is a string */
+#  define TK_CONFIG_SBOOLEAN	24 /* value is a boolean but default is a string */
+#  define TK_CONFIG_MENU	25 /* only for -menu in a menubutton */
+#  define TK_CONFIG_BSTRING	26 /* Value is a string but default is a boolean */
+#  define TK_CONFIG_END		30
+#else
+#  define TK_CONFIG_END		22
+#endif
+
+/*
+ * Macro to use to fill in "offset" fields of Tk_ConfigInfos.
+ * Computes number of bytes from beginning of structure to a
+ * given field.
+ */
+
+#ifdef offsetof
+#define Tk_Offset(type, field) ((int) offsetof(type, field))
+#else
+#define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
+#endif
+
+/*
+ * Possible values for flags argument to Tk_ConfigureWidget:
+ */
+
+#define TK_CONFIG_ARGV_ONLY	1
+
+/*
+ * Possible flag values for Tk_ConfigInfo structures.  Any bits at
+ * or above TK_CONFIG_USER_BIT may be used by clients for selecting
+ * certain entries.  Before changing any values here, coordinate with
+ * tkConfig.c (internal-use-only flags are defined there).
+ */
+
+#define TK_CONFIG_COLOR_ONLY		1
+#define TK_CONFIG_MONO_ONLY		2
+#define TK_CONFIG_NULL_OK		4
+#define TK_CONFIG_DONT_SET_DEFAULT	8
+#define TK_CONFIG_OPTION_SPECIFIED	0x10
+#define TK_CONFIG_USER_BIT		0x100
+
+/*
+ * Enumerated type for describing actions to be taken in response
+ * to a restrictProc established by Tk_RestrictEvents.
+ */
+
+typedef enum {
+    TK_DEFER_EVENT, TK_PROCESS_EVENT, TK_DISCARD_EVENT
+} Tk_RestrictAction;
+
+/*
+ * Priority levels to pass to Tk_AddOption:
+ */
+
+#define TK_WIDGET_DEFAULT_PRIO	20
+#define TK_STARTUP_FILE_PRIO	40
+#define TK_USER_DEFAULT_PRIO	60
+#define TK_INTERACTIVE_PRIO	80
+#define TK_MAX_PRIO		100
+
+/*
+ * Relief values returned by Tk_GetRelief:
+ */
+
+#define TK_RELIEF_RAISED	1
+#define TK_RELIEF_FLAT		2
+#define TK_RELIEF_SUNKEN	4
+#define TK_RELIEF_GROOVE	8
+#define TK_RELIEF_RIDGE		16
+
+/*
+ * "Which" argument values for Tk_3DBorderGC:
+ */
+
+#define TK_3D_FLAT_GC		1
+#define TK_3D_LIGHT_GC		2
+#define TK_3D_DARK_GC		3
+
+/*
+ * Special EnterNotify/LeaveNotify "mode" for use in events
+ * generated by tkShare.c.  Pick a high enough value that it's
+ * unlikely to conflict with existing values (like NotifyNormal)
+ * or any new values defined in the future.
+ */
+
+#define TK_NOTIFY_SHARE		20
+
+/*
+ * Enumerated type for describing a point by which to anchor something:
+ */
+
+typedef enum {
+    TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE,
+    TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW,
+    TK_ANCHOR_CENTER
+} Tk_Anchor;
+
+/*
+ * Enumerated type for describing a style of justification:
+ */
+
+typedef enum {
+    TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, TK_JUSTIFY_CENTER
+} Tk_Justify;
+
+/*
+ * Each geometry manager (the packer, the placer, etc.) is represented
+ * by a structure of the following form, which indicates procedures
+ * to invoke in the geometry manager to carry out certain functions.
+ */
+
+typedef void (Tk_GeomRequestProc) _ANSI_ARGS_((ClientData clientData,
+	Tk_Window tkwin));
+typedef void (Tk_GeomLostSlaveProc) _ANSI_ARGS_((ClientData clientData,
+	Tk_Window tkwin));
+
+typedef struct Tk_GeomMgr {
+    char *name;			/* Name of the geometry manager (command
+				 * used to invoke it, or name of widget
+				 * class that allows embedded widgets). */
+    Tk_GeomRequestProc *requestProc;
+				/* Procedure to invoke when a slave's
+				 * requested geometry changes. */
+    Tk_GeomLostSlaveProc *lostSlaveProc;
+				/* Procedure to invoke when a slave is
+				 * taken away from one geometry manager
+				 * by another.  NULL means geometry manager
+				 * doesn't care when slaves are lost. */
+} Tk_GeomMgr;
+
+/*
+ * Result values returned by Tk_GetScrollInfo:
+ */
+
+#define TK_SCROLL_MOVETO	1
+#define TK_SCROLL_PAGES		2
+#define TK_SCROLL_UNITS		3
+#define TK_SCROLL_ERROR		4
+
+/*---------------------------------------------------------------------------
+ *
+ * Extensions to the X event set
+ *
+ *---------------------------------------------------------------------------
+ */
+
+#define ActivateNotify	    (LASTEvent)
+#define DeactivateNotify    (LASTEvent + 1)
+#define TK_LASTEVENT	    (LASTEvent + 2)
+
+#define ActivateMask	    (1L << 30)
+
+typedef struct {
+    int type;
+    unsigned long serial;   /* # of last request processed by server */
+    Bool send_event;	    /* True if this came from a SendEvent request */
+    Display *display;	    /* Display the event was read from */
+    Window window;	    /* Window in which event occurred. */
+} XActivateDeactivateEvent;
+typedef XActivateDeactivateEvent XActivateEvent;
+typedef XActivateDeactivateEvent XDeactivateEvent;
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Macros for querying Tk_Window structures.  See the
+ * manual entries for documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+#define Tk_Display(tkwin)		(((Tk_FakeWin *) (tkwin))->display)
+#define Tk_ScreenNumber(tkwin)		(((Tk_FakeWin *) (tkwin))->screenNum)
+#define Tk_Screen(tkwin)		(ScreenOfDisplay(Tk_Display(tkwin), \
+	Tk_ScreenNumber(tkwin)))
+#define Tk_Depth(tkwin)			(((Tk_FakeWin *) (tkwin))->depth)
+#define Tk_Visual(tkwin)		(((Tk_FakeWin *) (tkwin))->visual)
+#define Tk_WindowId(tkwin)		(((Tk_FakeWin *) (tkwin))->window)
+#define Tk_PathName(tkwin) 		(((Tk_FakeWin *) (tkwin))->pathName)
+#define Tk_Name(tkwin)			(((Tk_FakeWin *) (tkwin))->nameUid)
+#define Tk_Class(tkwin) 		(((Tk_FakeWin *) (tkwin))->classUid)
+#define Tk_X(tkwin)			(((Tk_FakeWin *) (tkwin))->changes.x)
+#define Tk_Y(tkwin)			(((Tk_FakeWin *) (tkwin))->changes.y)
+#define Tk_Width(tkwin)			(((Tk_FakeWin *) (tkwin))->changes.width)
+#define Tk_Height(tkwin) \
+    (((Tk_FakeWin *) (tkwin))->changes.height)
+#define Tk_Changes(tkwin)		(&((Tk_FakeWin *) (tkwin))->changes)
+#define Tk_Attributes(tkwin)		(&((Tk_FakeWin *) (tkwin))->atts)
+#define Tk_IsMapped(tkwin) \
+    (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED)
+#define Tk_IsTopLevel(tkwin) \
+    (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL)
+#define Tk_ReqWidth(tkwin)		(((Tk_FakeWin *) (tkwin))->reqWidth)
+#define Tk_ReqHeight(tkwin)		(((Tk_FakeWin *) (tkwin))->reqHeight)
+#define Tk_InternalBorderWidth(tkwin) \
+    (((Tk_FakeWin *) (tkwin))->internalBorderWidth)
+#define Tk_Parent(tkwin)		(((Tk_FakeWin *) (tkwin))->parentPtr)
+#define Tk_Colormap(tkwin)		(((Tk_FakeWin *) (tkwin))->atts.colormap)
+
+/*
+ * The structure below is needed by the macros above so that they can
+ * access the fields of a Tk_Window.  The fields not needed by the macros
+ * are declared as "dummyX".  The structure has its own type in order to
+ * prevent applications from accessing Tk_Window fields except using
+ * official macros.  WARNING!! The structure definition must be kept
+ * consistent with the TkWindow structure in tkInt.h.  If you change one,
+ * then change the other.  See the declaration in tkInt.h for
+ * documentation on what the fields are used for internally.
+ */
+
+typedef struct Tk_FakeWin {
+    Display *display;
+    char *dummy1;
+    int screenNum;
+    Visual *visual;
+    int depth;
+    Window window;
+    char *dummy2;
+    char *dummy3;
+    Tk_Window parentPtr;
+    char *dummy4;
+    char *dummy5;
+    char *pathName;
+    Tk_Uid nameUid;
+    Tk_Uid classUid;
+    XWindowChanges changes;
+    unsigned int dummy6;
+    XSetWindowAttributes atts;
+    unsigned long dummy7;
+    unsigned int flags;
+    char *dummy8;
+#ifdef TK_USE_INPUT_METHODS
+    XIC dummy9;
+#endif /* TK_USE_INPUT_METHODS */
+    ClientData *dummy10;
+    int dummy11;
+    int dummy12;
+    char *dummy13;
+    char *dummy14;
+    ClientData dummy15;
+    int reqWidth, reqHeight;
+    int internalBorderWidth;
+    char *dummy16;
+    char *dummy17;
+} Tk_FakeWin;
+
+/*
+ * Flag values for TkWindow (and Tk_FakeWin) structures are:
+ *
+ * TK_MAPPED:			1 means window is currently mapped,
+ *				0 means unmapped.
+ * TK_TOP_LEVEL:		1 means this is a top-level window (it
+ *				was or will be created as a child of
+ *				a root window).
+ * TK_ALREADY_DEAD:		1 means the window is in the process of
+ *				being destroyed already.
+ * TK_NEED_CONFIG_NOTIFY:	1 means that the window has been reconfigured
+ *				before it was made to exist.  At the time of
+ *				making it exist a ConfigureNotify event needs
+ *				to be generated.
+ * TK_GRAB_FLAG:		Used to manage grabs.  See tkGrab.c for
+ *				details.
+ * TK_CHECKED_IC:		1 means we've already tried to get an input
+ *				context for this window;  if the ic field
+ *				is NULL it means that there isn't a context
+ *				for the field.
+ * TK_PARENT_DESTROYED:		1 means that the window's parent has already
+ *				been destroyed or is in the process of being
+ *				destroyed.
+ * TK_WM_COLORMAP_WINDOW:	1 means that this window has at some time
+ *				appeared in the WM_COLORMAP_WINDOWS property
+ *				for its toplevel, so we have to remove it
+ *				from that property if the window is
+ *				deleted and the toplevel isn't.
+ */
+
+#define TK_MAPPED		1
+#define TK_TOP_LEVEL		2
+#define TK_ALREADY_DEAD		4
+#define TK_NEED_CONFIG_NOTIFY	8
+#define TK_GRAB_FLAG		0x10
+#define TK_CHECKED_IC		0x20
+#define TK_PARENT_DESTROYED	0x40
+#define TK_WM_COLORMAP_WINDOW	0x80
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Procedure prototypes and structures used for defining new canvas
+ * items:
+ *
+ *--------------------------------------------------------------
+ */
+
+/*
+ * For each item in a canvas widget there exists one record with
+ * the following structure.  Each actual item is represented by
+ * a record with the following stuff at its beginning, plus additional
+ * type-specific stuff after that.
+ */
+
+#define TK_TAG_SPACE 3
+
+typedef struct Tk_Item  {
+    int id;				/* Unique identifier for this item
+					 * (also serves as first tag for
+					 * item). */
+    struct Tk_Item *nextPtr;		/* Next in display list of all
+					 * items in this canvas.  Later items
+					 * in list are drawn on top of earlier
+					 * ones. */
+    Tk_Uid staticTagSpace[TK_TAG_SPACE];/* Built-in space for limited # of
+					 * tags. */
+    Tk_Uid *tagPtr;			/* Pointer to array of tags.  Usually
+					 * points to staticTagSpace, but
+					 * may point to malloc-ed space if
+					 * there are lots of tags. */
+    int tagSpace;			/* Total amount of tag space available
+					 * at tagPtr. */
+    int numTags;			/* Number of tag slots actually used
+					 * at *tagPtr. */
+    struct Tk_ItemType *typePtr;	/* Table of procedures that implement
+					 * this type of item. */
+    int x1, y1, x2, y2;			/* Bounding box for item, in integer
+					 * canvas units. Set by item-specific
+					 * code and guaranteed to contain every
+					 * pixel drawn in item.  Item area
+					 * includes x1 and y1 but not x2
+					 * and y2. */
+
+    /*
+     *------------------------------------------------------------------
+     * Starting here is additional type-specific stuff;  see the
+     * declarations for individual types to see what is part of
+     * each type.  The actual space below is determined by the
+     * "itemInfoSize" of the type's Tk_ItemType record.
+     *------------------------------------------------------------------
+     */
+} Tk_Item;
+
+/*
+ * Records of the following type are used to describe a type of
+ * item (e.g.  lines, circles, etc.) that can form part of a
+ * canvas widget.
+ */
+
+typedef int	Tk_ItemCreateProc _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+		    char **argv));
+typedef int	Tk_ItemConfigureProc _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+		    char **argv, int flags));
+typedef int	Tk_ItemCoordProc _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+		    char **argv));
+typedef void	Tk_ItemDeleteProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, Display *display));
+typedef void	Tk_ItemDisplayProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, Display *display, Drawable dst,
+		    int x, int y, int width, int height));
+typedef double	Tk_ItemPointProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, double *pointPtr));
+typedef int	Tk_ItemAreaProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, double *rectPtr));
+typedef int	Tk_ItemPostscriptProc _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+typedef void	Tk_ItemScaleProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, double originX, double originY,
+		    double scaleX, double scaleY));
+typedef void	Tk_ItemTranslateProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, double deltaX, double deltaY));
+typedef int	Tk_ItemIndexProc _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_Canvas canvas, Tk_Item *itemPtr, char *indexString,
+		    int *indexPtr));
+typedef void	Tk_ItemCursorProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, int index));
+typedef int	Tk_ItemSelectionProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, int offset, char *buffer,
+		    int maxBytes));
+typedef void	Tk_ItemInsertProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, int beforeThis, char *string));
+typedef void	Tk_ItemDCharsProc _ANSI_ARGS_((Tk_Canvas canvas,
+		    Tk_Item *itemPtr, int first, int last));
+
+typedef struct Tk_ItemType {
+    char *name;				/* The name of this type of item, such
+					 * as "line". */
+    int itemSize;			/* Total amount of space needed for
+					 * item's record. */
+    Tk_ItemCreateProc *createProc;	/* Procedure to create a new item of
+					 * this type. */
+    Tk_ConfigSpec *configSpecs;		/* Pointer to array of configuration
+					 * specs for this type.  Used for
+					 * returning configuration info. */
+    Tk_ItemConfigureProc *configProc;	/* Procedure to call to change
+					 * configuration options. */
+    Tk_ItemCoordProc *coordProc;	/* Procedure to call to get and set
+					 * the item's coordinates. */
+    Tk_ItemDeleteProc *deleteProc;	/* Procedure to delete existing item of
+					 * this type. */
+    Tk_ItemDisplayProc *displayProc;	/* Procedure to display items of
+					 * this type. */
+    int alwaysRedraw;			/* Non-zero means displayProc should
+					 * be called even when the item has
+					 * been moved off-screen. */
+    Tk_ItemPointProc *pointProc;	/* Computes distance from item to
+					 * a given point. */
+    Tk_ItemAreaProc *areaProc;		/* Computes whether item is inside,
+					 * outside, or overlapping an area. */
+    Tk_ItemPostscriptProc *postscriptProc;
+					/* Procedure to write a Postscript
+					 * description for items of this
+					 * type. */
+    Tk_ItemScaleProc *scaleProc;	/* Procedure to rescale items of
+					 * this type. */
+    Tk_ItemTranslateProc *translateProc;/* Procedure to translate items of
+					 * this type. */
+    Tk_ItemIndexProc *indexProc;	/* Procedure to determine index of
+					 * indicated character.  NULL if
+					 * item doesn't support indexing. */
+    Tk_ItemCursorProc *icursorProc;	/* Procedure to set insert cursor pos.
+					 * to just before a given position. */
+    Tk_ItemSelectionProc *selectionProc;/* Procedure to return selection (in
+					 * STRING format) when it is in this
+					 * item. */
+    Tk_ItemInsertProc *insertProc;	/* Procedure to insert something into
+					 * an item. */
+    Tk_ItemDCharsProc *dCharsProc;	/* Procedure to delete characters
+					 * from an item. */
+    struct Tk_ItemType *nextPtr;	/* Used to link types together into
+					 * a list. */
+} Tk_ItemType;
+
+/*
+ * The following structure provides information about the selection and
+ * the insertion cursor.  It is needed by only a few items, such as
+ * those that display text.  It is shared by the generic canvas code
+ * and the item-specific code, but most of the fields should be written
+ * only by the canvas generic code.
+ */
+
+typedef struct Tk_CanvasTextInfo {
+    Tk_3DBorder selBorder;	/* Border and background for selected
+				 * characters.  Read-only to items.*/
+    int selBorderWidth;		/* Width of border around selection. 
+				 * Read-only to items. */
+    XColor *selFgColorPtr;	/* Foreground color for selected text.
+				 * Read-only to items. */
+    Tk_Item *selItemPtr;	/* Pointer to selected item.  NULL means
+				 * selection isn't in this canvas.
+				 * Writable by items. */
+    int selectFirst;		/* Index of first selected character. 
+				 * Writable by items. */
+    int selectLast;		/* Index of last selected character. 
+				 * Writable by items. */
+    Tk_Item *anchorItemPtr;	/* Item corresponding to "selectAnchor":
+				 * not necessarily selItemPtr.   Read-only
+				 * to items. */
+    int selectAnchor;		/* Fixed end of selection (i.e. "select to"
+				 * operation will use this as one end of the
+				 * selection).  Writable by items. */
+    Tk_3DBorder insertBorder;	/* Used to draw vertical bar for insertion
+				 * cursor.  Read-only to items. */
+    int insertWidth;		/* Total width of insertion cursor.  Read-only
+				 * to items. */
+    int insertBorderWidth;	/* Width of 3-D border around insert cursor.
+				 * Read-only to items. */
+    Tk_Item *focusItemPtr;	/* Item that currently has the input focus,
+				 * or NULL if no such item.  Read-only to
+				 * items.  */
+    int gotFocus;		/* Non-zero means that the canvas widget has
+				 * the input focus.  Read-only to items.*/
+    int cursorOn;		/* Non-zero means that an insertion cursor
+				 * should be displayed in focusItemPtr.
+				 * Read-only to items.*/
+} Tk_CanvasTextInfo;
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Procedure prototypes and structures used for managing images:
+ *
+ *--------------------------------------------------------------
+ */
+
+typedef struct Tk_ImageType Tk_ImageType;
+typedef int (Tk_ImageCreateProc) _ANSI_ARGS_((Tcl_Interp *interp,
+	char *name, int argc, char **argv, Tk_ImageType *typePtr,
+	Tk_ImageMaster master, ClientData *masterDataPtr));
+typedef ClientData (Tk_ImageGetProc) _ANSI_ARGS_((Tk_Window tkwin,
+	ClientData masterData));
+typedef void (Tk_ImageDisplayProc) _ANSI_ARGS_((ClientData instanceData,
+	Display *display, Drawable drawable, int imageX, int imageY,
+	int width, int height, int drawableX, int drawableY));
+typedef void (Tk_ImageFreeProc) _ANSI_ARGS_((ClientData instanceData,
+	Display *display));
+typedef void (Tk_ImageDeleteProc) _ANSI_ARGS_((ClientData masterData));
+typedef void (Tk_ImageChangedProc) _ANSI_ARGS_((ClientData clientData,
+	int x, int y, int width, int height, int imageWidth,
+	int imageHeight));
+
+/*
+ * The following structure represents a particular type of image
+ * (bitmap, xpm image, etc.).  It provides information common to
+ * all images of that type, such as the type name and a collection
+ * of procedures in the image manager that respond to various
+ * events.  Each image manager is represented by one of these
+ * structures.
+ */
+
+struct Tk_ImageType {
+    char *name;			/* Name of image type. */
+    Tk_ImageCreateProc *createProc;
+				/* Procedure to call to create a new image
+				 * of this type. */
+    Tk_ImageGetProc *getProc;	/* Procedure to call the first time
+				 * Tk_GetImage is called in a new way
+				 * (new visual or screen). */
+    Tk_ImageDisplayProc *displayProc;
+				/* Call to draw image, in response to
+				 * Tk_RedrawImage calls. */
+    Tk_ImageFreeProc *freeProc;	/* Procedure to call whenever Tk_FreeImage
+				 * is called to release an instance of an
+				 * image. */
+    Tk_ImageDeleteProc *deleteProc;
+				/* Procedure to call to delete image.  It
+				 * will not be called until after freeProc
+				 * has been called for each instance of the
+				 * image. */
+    struct Tk_ImageType *nextPtr;
+				/* Next in list of all image types currently
+				 * known.  Filled in by Tk, not by image
+				 * manager. */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Additional definitions used to manage images of type "photo".
+ *
+ *--------------------------------------------------------------
+ */
+
+/*
+ * The following type is used to identify a particular photo image
+ * to be manipulated:
+ */
+
+typedef void *Tk_PhotoHandle;
+
+/*
+ * The following structure describes a block of pixels in memory:
+ */
+
+typedef struct Tk_PhotoImageBlock {
+    unsigned char *pixelPtr;	/* Pointer to the first pixel. */
+    int		width;		/* Width of block, in pixels. */
+    int		height;		/* Height of block, in pixels. */
+    int		pitch;		/* Address difference between corresponding
+				 * pixels in successive lines. */
+    int		pixelSize;	/* Address difference between successive
+				 * pixels in the same line. */
+    int		offset[3];	/* Address differences between the red, green
+				 * and blue components of the pixel and the
+				 * pixel as a whole. */
+} Tk_PhotoImageBlock;
+
+/*
+ * Procedure prototypes and structures used in reading and
+ * writing photo images:
+ */
+
+typedef struct Tk_PhotoImageFormat Tk_PhotoImageFormat;
+typedef int (Tk_ImageFileMatchProc) _ANSI_ARGS_((FILE *f, char *fileName,
+	char *formatString, int *widthPtr, int *heightPtr));
+typedef int (Tk_ImageStringMatchProc) _ANSI_ARGS_((char *string,
+	char *formatString, int *widthPtr, int *heightPtr));
+typedef int (Tk_ImageFileReadProc) _ANSI_ARGS_((Tcl_Interp *interp,
+	FILE *f, char *fileName, char *formatString, Tk_PhotoHandle imageHandle,
+	int destX, int destY, int width, int height, int srcX, int srcY));
+typedef int (Tk_ImageStringReadProc) _ANSI_ARGS_((Tcl_Interp *interp,
+	char *string, char *formatString, Tk_PhotoHandle imageHandle,
+	int destX, int destY, int width, int height, int srcX, int srcY));
+typedef int (Tk_ImageFileWriteProc) _ANSI_ARGS_((Tcl_Interp *interp,
+	char *fileName, char *formatString, Tk_PhotoImageBlock *blockPtr));
+typedef int (Tk_ImageStringWriteProc) _ANSI_ARGS_((Tcl_Interp *interp,
+	Tcl_DString *dataPtr, char *formatString,
+	Tk_PhotoImageBlock *blockPtr));
+
+/*
+ * The following structure represents a particular file format for
+ * storing images (e.g., PPM, GIF, JPEG, etc.).  It provides information
+ * to allow image files of that format to be recognized and read into
+ * a photo image.
+ */
+
+struct Tk_PhotoImageFormat {
+    char *name;			/* Name of image file format */
+    Tk_ImageFileMatchProc *fileMatchProc;
+				/* Procedure to call to determine whether
+				 * an image file matches this format. */
+    Tk_ImageStringMatchProc *stringMatchProc;
+				/* Procedure to call to determine whether
+				 * the data in a string matches this format. */
+    Tk_ImageFileReadProc *fileReadProc;
+				/* Procedure to call to read data from
+				 * an image file into a photo image. */
+    Tk_ImageStringReadProc *stringReadProc;
+				/* Procedure to call to read data from
+				 * a string into a photo image. */
+    Tk_ImageFileWriteProc *fileWriteProc;
+				/* Procedure to call to write data from
+				 * a photo image to a file. */
+    Tk_ImageStringWriteProc *stringWriteProc;
+				/* Procedure to call to obtain a string
+				 * representation of the data in a photo
+				 * image.*/
+    struct Tk_PhotoImageFormat *nextPtr;
+				/* Next in list of all photo image formats
+				 * currently known.  Filled in by Tk, not
+				 * by image format handler. */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * The definitions below provide backward compatibility for
+ * functions and types related to event handling that used to
+ * be in Tk but have moved to Tcl.
+ *
+ *--------------------------------------------------------------
+ */
+
+#define TK_READABLE		TCL_READABLE
+#define TK_WRITABLE		TCL_WRITABLE
+#define TK_EXCEPTION		TCL_EXCEPTION
+
+#define TK_DONT_WAIT		TCL_DONT_WAIT
+#define TK_X_EVENTS		TCL_WINDOW_EVENTS
+#define TK_WINDOW_EVENTS	TCL_WINDOW_EVENTS
+#define TK_FILE_EVENTS		TCL_FILE_EVENTS
+#define TK_TIMER_EVENTS		TCL_TIMER_EVENTS
+#define TK_IDLE_EVENTS		TCL_IDLE_EVENTS
+#define TK_ALL_EVENTS		TCL_ALL_EVENTS
+
+#define Tk_IdleProc		Tcl_IdleProc
+#define Tk_FileProc		Tcl_FileProc
+#define Tk_TimerProc		Tcl_TimerProc
+#define Tk_TimerToken		Tcl_TimerToken
+
+#define Tk_BackgroundError	Tcl_BackgroundError
+#define Tk_CancelIdleCall	Tcl_CancelIdleCall
+#define Tk_CreateFileHandler(file,mask,proc,data) \
+    Tcl_CreateFileHandler(Tcl_GetFile((ClientData) (file), TCL_UNIX_FD), \
+    (mask), (proc), (data))
+#define Tk_CreateTimerHandler	Tcl_CreateTimerHandler
+#define Tk_DeleteFileHandler(file) \
+    Tcl_DeleteFileHandler(Tcl_GetFile((ClientData) (file), TCL_UNIX_FD))
+#define Tk_DeleteTimerHandler	Tcl_DeleteTimerHandler
+#define Tk_DoOneEvent		Tcl_DoOneEvent
+#define Tk_DoWhenIdle		Tcl_DoWhenIdle
+#define Tk_Sleep		Tcl_Sleep
+
+/* Additional stuff that has moved to Tcl: */
+
+#define Tk_AfterCmd		Tcl_AfterCmd
+#define Tk_EventuallyFree	Tcl_EventuallyFree
+#define Tk_FreeProc		Tcl_FreeProc
+#define Tk_Preserve		Tcl_Preserve
+#define Tk_Release		Tcl_Release
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Additional procedure types defined by Tk.
+ *
+ *--------------------------------------------------------------
+ */
+
+typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData,
+	XErrorEvent *errEventPtr));
+typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData,
+	XEvent *eventPtr));
+typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData,
+	XEvent *eventPtr));
+typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, char *portion));
+typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData));
+typedef Tk_RestrictAction (Tk_RestrictProc) _ANSI_ARGS_((
+	ClientData clientData, XEvent *eventPtr));
+typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData,
+	int offset, char *buffer, int maxBytes));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Exported procedures and variables.
+ *
+ *--------------------------------------------------------------
+ */
+
+EXTERN XColor *		Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border));
+EXTERN GC		Tk_3DBorderGC _ANSI_ARGS_((Tk_Window tkwin,
+			    Tk_3DBorder border, int which));
+EXTERN void		Tk_3DHorizontalBevel _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border, int x,
+			    int y, int width, int height, int leftIn,
+			    int rightIn, int topBevel, int relief));
+EXTERN void		Tk_3DVerticalBevel _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border, int x,
+			    int y, int width, int height, int leftBevel,
+			    int relief));
+EXTERN void		Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, char *name,
+			    char *value, int priority));
+EXTERN void		Tk_BindEvent _ANSI_ARGS_((Tk_BindingTable bindingTable,
+			    XEvent *eventPtr, Tk_Window tkwin, int numObjects,
+			    ClientData *objectPtr));
+EXTERN void		Tk_CanvasDrawableCoords _ANSI_ARGS_((Tk_Canvas canvas,
+			    double x, double y, short *drawableXPtr,
+			    short *drawableYPtr));
+EXTERN void		Tk_CanvasEventuallyRedraw _ANSI_ARGS_((
+			    Tk_Canvas canvas, int x1, int y1, int x2,
+			    int y2));
+EXTERN int		Tk_CanvasGetCoord _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, char *string,
+			    double *doublePtr));
+EXTERN Tk_CanvasTextInfo *Tk_CanvasGetTextInfo _ANSI_ARGS_((Tk_Canvas canvas));
+EXTERN int		Tk_CanvasPsBitmap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Pixmap bitmap, int x, int y,
+			    int width, int height));
+EXTERN int		Tk_CanvasPsColor _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, XColor *colorPtr));
+EXTERN int		Tk_CanvasPsFont _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, XFontStruct *fontStructPtr));
+EXTERN void		Tk_CanvasPsPath _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, double *coordPtr, int numPoints));
+EXTERN int		Tk_CanvasPsStipple _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Pixmap bitmap));
+EXTERN double		Tk_CanvasPsY _ANSI_ARGS_((Tk_Canvas canvas, double y));
+EXTERN void		Tk_CanvasSetStippleOrigin _ANSI_ARGS_((
+			    Tk_Canvas canvas, GC gc));
+EXTERN int		Tk_CanvasTagsParseProc _ANSI_ARGS_((
+			    ClientData clientData, Tcl_Interp *interp,
+			    Tk_Window tkwin, char *value, char *widgRec,
+			    int offset));
+EXTERN char *		Tk_CanvasTagsPrintProc _ANSI_ARGS_((
+			    ClientData clientData, Tk_Window tkwin,
+			    char *widgRec, int offset,
+			    Tcl_FreeProc **freeProcPtr));
+EXTERN Tk_Window	Tk_CanvasTkwin _ANSI_ARGS_((Tk_Canvas canvas));
+EXTERN void		Tk_CanvasWindowCoords _ANSI_ARGS_((Tk_Canvas canvas,
+			    double x, double y, short *screenXPtr,
+			    short *screenYPtr));
+EXTERN void		Tk_ChangeWindowAttributes _ANSI_ARGS_((Tk_Window tkwin,
+			    unsigned long valueMask,
+			    XSetWindowAttributes *attsPtr));
+EXTERN void		Tk_ClearSelection _ANSI_ARGS_((Tk_Window tkwin,
+			    Atom selection));
+EXTERN int		Tk_ClipboardAppend _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Atom target, Atom format,
+			    char* buffer));
+EXTERN int		Tk_ClipboardClear _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin));
+EXTERN int		Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specs,
+			    char *widgRec, char *argvName, int flags));
+EXTERN int		Tk_ConfigureValue _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specs,
+			    char *widgRec, char *argvName, int flags));
+EXTERN int		Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specs,
+			    int argc, char **argv, char *widgRec,
+			    int flags));
+EXTERN void		Tk_ConfigureWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    unsigned int valueMask, XWindowChanges *valuePtr));
+EXTERN Tk_Window	Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY,
+			    Tk_Window tkwin));
+#ifdef STk_CODE
+EXTERN unsigned long	Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_BindingTable bindingTable, ClientData object,
+			    char *eventString, char *command, char *str1, 
+			    char *str2));
+#else
+EXTERN unsigned long	Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_BindingTable bindingTable, ClientData object,
+			    char *eventString, char *command, int append));
+#endif
+EXTERN Tk_BindingTable	Tk_CreateBindingTable _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN Tk_ErrorHandler	Tk_CreateErrorHandler _ANSI_ARGS_((Display *display,
+			    int errNum, int request, int minorCode,
+			    Tk_ErrorProc *errorProc, ClientData clientData));
+EXTERN void		Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token,
+			    unsigned long mask, Tk_EventProc *proc,
+			    ClientData clientData));
+EXTERN void		Tk_CreateGenericHandler _ANSI_ARGS_((
+			    Tk_GenericProc *proc, ClientData clientData));
+EXTERN void		Tk_CreateImageType _ANSI_ARGS_((
+			    Tk_ImageType *typePtr));
+EXTERN void		Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType *typePtr));
+EXTERN void		Tk_CreatePhotoImageFormat _ANSI_ARGS_((
+			    Tk_PhotoImageFormat *formatPtr));
+EXTERN void		Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin,
+			    Atom selection, Atom target,
+			    Tk_SelectionProc *proc, ClientData clientData,
+			    Atom format));
+EXTERN Tk_Window	Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window parent, char *name, char *screenName));
+EXTERN Tk_Window	Tk_CreateWindowFromPath _ANSI_ARGS_((
+			    Tcl_Interp *interp, Tk_Window tkwin,
+			    char *pathName, char *screenName));
+EXTERN int		Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Uid name, char *source, int width,
+			    int height));
+EXTERN void		Tk_DefineCursor _ANSI_ARGS_((Tk_Window window,
+			    Tk_Cursor cursor));
+EXTERN void		Tk_DeleteAllBindings _ANSI_ARGS_((
+			    Tk_BindingTable bindingTable, ClientData object));
+EXTERN int		Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_BindingTable bindingTable, ClientData object,
+			    char *eventString));
+EXTERN void		Tk_DeleteBindingTable _ANSI_ARGS_((
+			    Tk_BindingTable bindingTable));
+EXTERN void		Tk_DeleteErrorHandler _ANSI_ARGS_((
+			    Tk_ErrorHandler handler));
+EXTERN void		Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token,
+			    unsigned long mask, Tk_EventProc *proc,
+			    ClientData clientData));
+EXTERN void		Tk_DeleteGenericHandler _ANSI_ARGS_((
+			    Tk_GenericProc *proc, ClientData clientData));
+EXTERN void		Tk_DeleteImage _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name));
+EXTERN void		Tk_DeleteSelHandler _ANSI_ARGS_((Tk_Window tkwin,
+			    Atom selection, Atom target));
+EXTERN void		Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN char *		Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_Draw3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border,
+			    XPoint *pointPtr, int numPoints, int borderWidth,
+			    int leftRelief));
+EXTERN void		Tk_Draw3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border, int x,
+			    int y, int width, int height, int borderWidth,
+			    int relief));
+EXTERN void		Tk_DrawFocusHighlight _ANSI_ARGS_((Tk_Window tkwin,
+			    GC gc, int width, Drawable drawable));
+EXTERN void		Tk_Fill3DPolygon _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border,
+			    XPoint *pointPtr, int numPoints, int borderWidth,
+			    int leftRelief));
+EXTERN void		Tk_Fill3DRectangle _ANSI_ARGS_((Tk_Window tkwin,
+			    Drawable drawable, Tk_3DBorder border, int x,
+			    int y, int width, int height, int borderWidth,
+			    int relief));
+EXTERN Tk_PhotoHandle	Tk_FindPhoto _ANSI_ARGS_((char *imageName));
+EXTERN void		Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border));
+EXTERN void		Tk_FreeBitmap _ANSI_ARGS_((Display *display,
+			    Pixmap bitmap));
+EXTERN void		Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr));
+EXTERN void		Tk_FreeColormap _ANSI_ARGS_((Display *display,
+			    Colormap colormap));
+EXTERN void		Tk_FreeCursor _ANSI_ARGS_((Display *display,
+			    Tk_Cursor cursor));
+EXTERN void		Tk_FreeFontStruct _ANSI_ARGS_((
+			    XFontStruct *fontStructPtr));
+EXTERN void		Tk_FreeGC _ANSI_ARGS_((Display *display, GC gc));
+EXTERN void		Tk_FreeImage _ANSI_ARGS_((Tk_Image image));
+EXTERN void		Tk_FreeOptions _ANSI_ARGS_((Tk_ConfigSpec *specs,
+			    char *widgRec, Display *display, int needFlags));
+EXTERN void		Tk_FreePixmap _ANSI_ARGS_((Display *display,
+			    Pixmap pixmap));
+EXTERN void		Tk_FreeXId _ANSI_ARGS_((Display *display, XID xid));
+EXTERN GC		Tk_GCForColor _ANSI_ARGS_((XColor *colorPtr,
+			    Drawable drawable));
+EXTERN void		Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin,
+			    int reqWidth,  int reqHeight));
+EXTERN Tk_3DBorder	Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid colorName));
+EXTERN void		Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_BindingTable bindingTable, ClientData object));
+EXTERN int		Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, Tk_Anchor *anchorPtr));
+EXTERN char *		Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin,
+			    Atom atom));
+EXTERN char *		Tk_GetBinding _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_BindingTable bindingTable, ClientData object,
+			    char *eventString));
+EXTERN Pixmap		Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid string));
+EXTERN Pixmap		Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *source,
+			    int width, int height));
+EXTERN int		Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *capPtr));
+EXTERN XColor *		Tk_GetColor _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid name));
+EXTERN XColor *		Tk_GetColorByValue _ANSI_ARGS_((Tk_Window tkwin,
+			    XColor *colorPtr));
+EXTERN Colormap		Tk_GetColormap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string));
+EXTERN Tk_Cursor	Tk_GetCursor _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid string));
+EXTERN Tk_Cursor	Tk_GetCursorFromData _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *source, char *mask,
+			    int width, int height, int xHot, int yHot,
+			    Tk_Uid fg, Tk_Uid bg));
+EXTERN XFontStruct *	Tk_GetFontStruct _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid name));
+EXTERN GC		Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin,
+			    unsigned long valueMask, XGCValues *valuePtr));
+EXTERN Tk_Image		Tk_GetImage _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *name,
+			    Tk_ImageChangedProc *changeProc,
+			    ClientData clientData));
+EXTERN Tk_ItemType *	Tk_GetItemTypes _ANSI_ARGS_((void));
+EXTERN int		Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int *joinPtr));
+EXTERN int		Tk_GetJustify _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, Tk_Justify *justifyPtr));
+EXTERN int		Tk_GetNumMainWindows _ANSI_ARGS_((void));
+EXTERN Tk_Uid		Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, char *name,
+			    char *className));
+EXTERN int		Tk_GetPixels _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string, int *intPtr));
+EXTERN Pixmap		Tk_GetPixmap _ANSI_ARGS_((Display *display, Drawable d,
+			    int width, int height, int depth));
+EXTERN int		Tk_GetRelief _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int *reliefPtr));
+EXTERN void		Tk_GetRootCoords _ANSI_ARGS_ ((Tk_Window tkwin,
+			    int *xPtr, int *yPtr));
+EXTERN int		Tk_GetScrollInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    int argc, char **argv, double *dblPtr,
+			    int *intPtr));
+EXTERN int		Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string, double *doublePtr));
+EXTERN int		Tk_GetSelection _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Atom selection, Atom target,
+			    Tk_GetSelProc *proc, ClientData clientData));
+EXTERN Tk_Uid		Tk_GetUid _ANSI_ARGS_((char *string));
+EXTERN Visual *		Tk_GetVisual _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string, int *depthPtr,
+			    Colormap *colormapPtr));
+EXTERN void		Tk_GetVRootGeometry _ANSI_ARGS_((Tk_Window tkwin,
+			    int *xPtr, int *yPtr, int *widthPtr,
+			    int *heightPtr));
+EXTERN int		Tk_Grab _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, int grabGlobal));
+EXTERN void		Tk_HandleEvent _ANSI_ARGS_((XEvent *eventPtr));
+EXTERN Tk_Window      	Tk_IdToWindow _ANSI_ARGS_((Display *display,
+			    Window window));
+EXTERN void		Tk_ImageChanged _ANSI_ARGS_((
+			    Tk_ImageMaster master, int x, int y,
+			    int width, int height, int imageWidth,
+			    int imageHeight));
+EXTERN int		Tk_Init _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN Atom		Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin,
+			    char *name));
+EXTERN void		Tk_Main _ANSI_ARGS_((int argc, char **argv,
+			    Tcl_AppInitProc *appInitProc));
+EXTERN void		Tk_MainLoop _ANSI_ARGS_((void));
+EXTERN void		Tk_MaintainGeometry _ANSI_ARGS_((Tk_Window slave,
+			    Tk_Window master, int x, int y, int width,
+			    int height));
+EXTERN Tk_Window	Tk_MainWindow _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin,
+			    Tk_GeomMgr *mgrPtr, ClientData clientData));
+EXTERN void		Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    int x, int y, int width, int height));
+EXTERN void		Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x,
+			    int y));
+EXTERN void		Tk_MoveToplevelWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    int x, int y));
+EXTERN char *		Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border));
+EXTERN char *		Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor));
+EXTERN char *		Tk_NameOfBitmap _ANSI_ARGS_((Display *display,
+			    Pixmap bitmap));
+EXTERN char *		Tk_NameOfCapStyle _ANSI_ARGS_((int cap));
+EXTERN char *		Tk_NameOfColor _ANSI_ARGS_((XColor *colorPtr));
+EXTERN char *		Tk_NameOfCursor _ANSI_ARGS_((Display *display,
+			    Tk_Cursor cursor));
+EXTERN char *		Tk_NameOfFontStruct _ANSI_ARGS_((
+			    XFontStruct *fontStructPtr));
+EXTERN char *		Tk_NameOfImage _ANSI_ARGS_((
+			    Tk_ImageMaster imageMaster));
+EXTERN char *		Tk_NameOfJoinStyle _ANSI_ARGS_((int join));
+EXTERN char *		Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify));
+EXTERN char *		Tk_NameOfRelief _ANSI_ARGS_((int relief));
+EXTERN Tk_Window	Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *pathName, Tk_Window tkwin));
+EXTERN void		Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin,
+			    Atom selection, Tk_LostSelProc *proc,
+			    ClientData clientData));
+EXTERN int		Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, int *argcPtr, char **argv,
+			    Tk_ArgvInfo *argTable, int flags));
+EXTERN void		Tk_PhotoPutBlock _ANSI_ARGS_((Tk_PhotoHandle handle,
+			    Tk_PhotoImageBlock *blockPtr, int x, int y,
+			    int width, int height));
+EXTERN void		Tk_PhotoPutZoomedBlock _ANSI_ARGS_((
+			    Tk_PhotoHandle handle,
+			    Tk_PhotoImageBlock *blockPtr, int x, int y,
+			    int width, int height, int zoomX, int zoomY,
+			    int subsampleX, int subsampleY));
+EXTERN int		Tk_PhotoGetImage _ANSI_ARGS_((Tk_PhotoHandle handle,
+			    Tk_PhotoImageBlock *blockPtr));
+EXTERN void		Tk_PhotoBlank _ANSI_ARGS_((Tk_PhotoHandle handle));
+EXTERN void		Tk_PhotoExpand _ANSI_ARGS_((Tk_PhotoHandle handle,
+			    int width, int height ));
+EXTERN void		Tk_PhotoGetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
+			    int *widthPtr, int *heightPtr));
+EXTERN void		Tk_PhotoSetSize _ANSI_ARGS_((Tk_PhotoHandle handle,
+			    int width, int height));
+EXTERN void		Tk_PreserveColormap _ANSI_ARGS_((Display *display,
+			    Colormap colormap));
+EXTERN void		Tk_QueueWindowEvent _ANSI_ARGS_((XEvent *eventPtr,
+			    Tcl_QueuePosition position));
+EXTERN void		Tk_RedrawImage _ANSI_ARGS_((Tk_Image image, int imageX,
+			    int imageY, int width, int height,
+			    Drawable drawable, int drawableX, int drawableY));
+EXTERN void		Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    int width, int height));
+EXTERN int		Tk_RestackWindow _ANSI_ARGS_((Tk_Window tkwin,
+			    int aboveBelow, Tk_Window other));
+EXTERN Tk_RestrictProc *Tk_RestrictEvents _ANSI_ARGS_((Tk_RestrictProc *proc,
+			    ClientData arg, ClientData *prevArgPtr));
+EXTERN char *		Tk_SetAppName _ANSI_ARGS_((Tk_Window tkwin,
+			    char *name));
+EXTERN void		Tk_SetBackgroundFromBorder _ANSI_ARGS_((
+			    Tk_Window tkwin, Tk_3DBorder border));
+EXTERN void		Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin,
+			    char *className));
+EXTERN void		Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin,
+			    int reqWidth, int reqHeight, int gridWidth,
+			    int gridHeight));
+EXTERN void		Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin,
+			    int width));
+EXTERN void		Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin,
+			    unsigned long pixel));
+EXTERN void		Tk_SetWindowBackgroundPixmap _ANSI_ARGS_((
+			    Tk_Window tkwin, Pixmap pixmap));
+EXTERN void		Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin,
+			    unsigned long pixel));
+EXTERN void		Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin,
+			    int width));
+EXTERN void		Tk_SetWindowBorderPixmap _ANSI_ARGS_((Tk_Window tkwin,
+			    Pixmap pixmap));
+EXTERN void		Tk_SetWindowColormap _ANSI_ARGS_((Tk_Window tkwin,
+			    Colormap colormap));
+EXTERN int		Tk_SetWindowVisual _ANSI_ARGS_((Tk_Window tkwin,
+			    Visual *visual, int depth,
+			    Colormap colormap));
+EXTERN void		Tk_SizeOfBitmap _ANSI_ARGS_((Display *display,
+			    Pixmap bitmap, int *widthPtr,
+			    int *heightPtr));
+EXTERN void		Tk_SizeOfImage _ANSI_ARGS_((Tk_Image image,
+			    int *widthPtr, int *heightPtr));
+EXTERN int		Tk_StrictMotif _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window));
+EXTERN void		Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_UnmaintainGeometry _ANSI_ARGS_((Tk_Window slave,
+			    Tk_Window master));
+EXTERN void		Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin));
+EXTERN void		Tk_UnsetGrid _ANSI_ARGS_((Tk_Window tkwin));
+
+/*
+ * Tcl commands exported by Tk:
+ */
+
+EXTERN int		Tk_AfterCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_BellCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_BindCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_CheckbuttonCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_EntryCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_FileeventCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_FrameCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_FocusCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_GrabCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_GridCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ImageCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_LabelCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_LowerCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_MenuCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_MessageCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_OptionCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_PackCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_RadiobuttonCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_RaiseCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_SendCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_TextCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_TkCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_ToplevelCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_WinfoCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN int		Tk_WmCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+
+#endif /* _TK */
diff --git a/Tk/generic/tk3d.c b/Tk/generic/tk3d.c
new file mode 100644
index 0000000..5eae8a4
--- /dev/null
+++ b/Tk/generic/tk3d.c
@@ -0,0 +1,1328 @@
+/* 
+ * tk3d.c --
+ *
+ *	This module provides procedures to draw borders in
+ *	the three-dimensional Motif style.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tk3d.c 1.53 96/06/27 08:15:35
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * One of the following data structures is allocated for
+ * each 3-D border currently in use.  Structures of this
+ * type are indexed by borderTable, so that a single
+ * structure can be shared for several uses.
+ */
+
+typedef struct {
+    Screen *screen;		/* Screen on which the border will be used. */
+    Visual *visual;		/* Visual for all windows and pixmaps using
+				 * the border. */
+    int depth;			/* Number of bits per pixel of drawables where
+				 * the border will be used. */
+    Colormap colormap;		/* Colormap out of which pixels are
+				 * allocated. */
+    int refCount;		/* Number of different users of
+				 * this border.  */
+    XColor *bgColorPtr;		/* Background color (intensity
+				 * between lightColorPtr and
+				 * darkColorPtr). */
+    XColor *darkColorPtr;	/* Color for darker areas (must free when
+				 * deleting structure). NULL means shadows
+				 * haven't been allocated yet.*/
+    XColor *lightColorPtr;	/* Color used for lighter areas of border
+				 * (must free this when deleting structure).
+				 * NULL means shadows haven't been allocated
+				 * yet. */
+    Pixmap shadow;		/* Stipple pattern to use for drawing
+				 * shadows areas.  Used for displays with
+				 * <= 64 colors or where colormap has filled
+				 * up. */
+    GC bgGC;			/* Used (if necessary) to draw areas in
+				 * the background color. */
+    GC darkGC;			/* Used to draw darker parts of the
+				 * border. None means the shadow colors
+				 * haven't been allocated yet.*/
+    GC lightGC;			/* Used to draw lighter parts of
+				 * the border. None means the shadow colors
+				 * haven't been allocated yet. */
+    Tcl_HashEntry *hashPtr;	/* Entry in borderTable (needed in
+				 * order to delete structure). */
+} Border;
+
+/*
+ * Hash table to map from a border's values (color, etc.) to a
+ * Border structure for those values.
+ */
+
+static Tcl_HashTable borderTable;
+typedef struct {
+    Tk_Uid colorName;		/* Color for border. */
+    Colormap colormap;		/* Colormap used for allocating border
+				 * colors. */
+    Screen *screen;		/* Screen on which border will be drawn. */
+} BorderKey;
+
+/*
+ * Maximum intensity for a color:
+ */
+
+#define MAX_INTENSITY 65535
+
+
+static int initialized = 0;	/* 0 means static structures haven't
+				 * been initialized yet. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		BorderInit _ANSI_ARGS_((void));
+static void		GetShadows _ANSI_ARGS_((Border *borderPtr,
+			    Tk_Window tkwin));
+static int		Intersect _ANSI_ARGS_((XPoint *a1Ptr, XPoint *a2Ptr,
+			    XPoint *b1Ptr, XPoint *b2Ptr, XPoint *iPtr));
+static void		ShiftLine _ANSI_ARGS_((XPoint *p1Ptr, XPoint *p2Ptr,
+			    int distance, XPoint *p3Ptr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_Get3DBorder --
+ *
+ *	Create a data structure for displaying a 3-D border.
+ *
+ * Results:
+ *	The return value is a token for a data structure
+ *	describing a 3-D border.  This token may be passed
+ *	to Tk_Draw3DRectangle and Tk_Free3DBorder.  If an
+ *	error prevented the border from being created then
+ *	NULL is returned and an error message will be left
+ *	in interp->result.
+ *
+ * Side effects:
+ *	Data structures, graphics contexts, etc. are allocated.
+ *	It is the caller's responsibility to eventually call
+ *	Tk_Free3DBorder to release the resources.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_3DBorder
+Tk_Get3DBorder(interp, tkwin, colorName)
+    Tcl_Interp *interp;		/* Place to store an error message. */
+    Tk_Window tkwin;		/* Token for window in which border will
+				 * be drawn. */
+    Tk_Uid colorName;		/* String giving name of color
+				 * for window background. */
+{
+    BorderKey key;
+    Tcl_HashEntry *hashPtr;
+    register Border *borderPtr;
+    int new;
+    XGCValues gcValues;
+
+    if (!initialized) {
+	BorderInit();
+    }
+
+    /*
+     * First, check to see if there's already a border that will work
+     * for this request.
+     */
+
+    key.colorName = colorName;
+    key.colormap = Tk_Colormap(tkwin);
+    key.screen = Tk_Screen(tkwin);
+
+    hashPtr = Tcl_CreateHashEntry(&borderTable, (char *) &key, &new);
+    if (!new) {
+	borderPtr = (Border *) Tcl_GetHashValue(hashPtr);
+	borderPtr->refCount++;
+    } else {
+
+	/*
+	 * No satisfactory border exists yet.  Initialize a new one.
+	 */
+    
+	borderPtr = (Border *) ckalloc(sizeof(Border));
+	borderPtr->screen = Tk_Screen(tkwin);
+	borderPtr->visual = Tk_Visual(tkwin);
+	borderPtr->depth = Tk_Depth(tkwin);
+	borderPtr->colormap = key.colormap;
+	borderPtr->refCount = 1;
+	borderPtr->bgColorPtr = NULL;
+	borderPtr->darkColorPtr = NULL;
+	borderPtr->lightColorPtr = NULL;
+	borderPtr->shadow = None;
+	borderPtr->bgGC = None;
+	borderPtr->darkGC = None;
+	borderPtr->lightGC = None;
+	borderPtr->hashPtr = hashPtr;
+	Tcl_SetHashValue(hashPtr, borderPtr);
+    
+	/*
+	 * Create the information for displaying the background color,
+	 * but delay the allocation of shadows until they are actually
+	 * needed for drawing.
+	 */
+    
+	borderPtr->bgColorPtr = Tk_GetColor(interp, tkwin, colorName);
+	if (borderPtr->bgColorPtr == NULL) {
+	    goto error;
+	}
+	gcValues.foreground = borderPtr->bgColorPtr->pixel;
+	borderPtr->bgGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+    }
+    return (Tk_3DBorder) borderPtr;
+
+    error:
+    Tk_Free3DBorder((Tk_3DBorder) borderPtr);
+    return NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_3DVerticalBevel --
+ *
+ *	This procedure draws a vertical bevel along one side of
+ *	an object.  The bevel is always rectangular in shape:
+ *			|||
+ *			|||
+ *			|||
+ *			|||
+ *			|||
+ *			|||
+ *	An appropriate shadow color is chosen for the bevel based
+ *	on the leftBevel and relief arguments.  Normally this
+ *	procedure is called first, then Tk_3DHorizontalBevel is
+ *	called next to draw neat corners.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Graphics are drawn in drawable.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_3DVerticalBevel(tkwin, drawable, border, x, y, width, height,
+	leftBevel, relief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    int x, y, width, height;	/* Area of vertical bevel. */
+    int leftBevel;		/* Non-zero means this bevel forms the
+				 * left side of the object;  0 means it
+				 * forms the right side. */
+    int relief;			/* Kind of bevel to draw.  For example,
+				 * TK_RELIEF_RAISED means interior of
+				 * object should appear higher than
+				 * exterior. */
+{
+    Border *borderPtr = (Border *) border;
+    GC left, right;
+    Display *display = Tk_Display(tkwin);
+
+    if ((borderPtr->lightGC == None) && (relief != TK_RELIEF_FLAT)) {
+	GetShadows(borderPtr, tkwin);
+    }
+    if (relief == TK_RELIEF_RAISED) {
+	XFillRectangle(display, drawable, 
+		(leftBevel) ? borderPtr->lightGC : borderPtr->darkGC,
+		x, y, (unsigned) width, (unsigned) height);
+    } else if (relief == TK_RELIEF_SUNKEN) {
+	XFillRectangle(display, drawable, 
+		(leftBevel) ? borderPtr->darkGC : borderPtr->lightGC,
+		x, y, (unsigned) width, (unsigned) height);
+    } else if (relief == TK_RELIEF_RIDGE) {
+	int half;
+
+	left = borderPtr->lightGC;
+	right = borderPtr->darkGC;
+	ridgeGroove:
+	half = width/2;
+	if (!leftBevel && (width & 1)) {
+	    half++;
+	}
+	XFillRectangle(display, drawable, left, x, y, (unsigned) half,
+		(unsigned) height);
+	XFillRectangle(display, drawable, right, x+half, y,
+		(unsigned) (width-half), (unsigned) height);
+    } else if (relief == TK_RELIEF_GROOVE) {
+	left = borderPtr->darkGC;
+	right = borderPtr->lightGC;
+	goto ridgeGroove;
+    } else if (relief == TK_RELIEF_FLAT) {
+	XFillRectangle(display, drawable, borderPtr->bgGC, x, y,
+		(unsigned) width, (unsigned) height);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_3DHorizontalBevel --
+ *
+ *	This procedure draws a horizontal bevel along one side of
+ *	an object.  The bevel has mitered corners (depending on
+ *	leftIn and rightIn arguments).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_3DHorizontalBevel(tkwin, drawable, border, x, y, width, height,
+	leftIn, rightIn, topBevel, relief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    int x, y, width, height;	/* Bounding box of area of bevel.  Height
+				 * gives width of border. */
+    int leftIn, rightIn;	/* Describes whether the left and right
+				 * edges of the bevel angle in or out as
+				 * they go down.  For example, if "leftIn"
+				 * is true, the left side of the bevel
+				 * looks like this:
+				 *	___________
+				 *	 __________
+				 *	  _________
+				 *	   ________
+				 */
+    int topBevel;		/* Non-zero means this bevel forms the
+				 * top side of the object;  0 means it
+				 * forms the bottom side. */
+    int relief;			/* Kind of bevel to draw.  For example,
+				 * TK_RELIEF_RAISED means interior of
+				 * object should appear higher than
+				 * exterior. */
+{
+    Border *borderPtr = (Border *) border;
+    Display *display = Tk_Display(tkwin);
+    int bottom, halfway, x1, x2, x1Delta, x2Delta;
+    GC topGC = None, bottomGC = None;
+				/* Initializations needed only to prevent
+				 * compiler warnings. */
+
+    if ((borderPtr->lightGC == None) && (relief != TK_RELIEF_FLAT)) {
+	GetShadows(borderPtr, tkwin);
+    }
+
+    /*
+     * Compute a GC for the top half of the bevel and a GC for the
+     * bottom half (they're the same in many cases).
+     */
+
+    switch (relief) {
+	case TK_RELIEF_RAISED:
+	    topGC = bottomGC =
+		    (topBevel) ? borderPtr->lightGC : borderPtr->darkGC;
+	    break;
+	case TK_RELIEF_SUNKEN:
+	    topGC = bottomGC =
+		    (topBevel) ? borderPtr->darkGC : borderPtr->lightGC;
+	    break;
+	case TK_RELIEF_RIDGE:
+	    topGC = borderPtr->lightGC;
+	    bottomGC = borderPtr->darkGC;
+	    break;
+	case TK_RELIEF_GROOVE:
+	    topGC = borderPtr->darkGC;
+	    bottomGC = borderPtr->lightGC;
+	    break;
+	case TK_RELIEF_FLAT:
+	    topGC = bottomGC = borderPtr->bgGC;
+	    break;
+    }
+
+    /*
+     * Compute various other geometry-related stuff.
+     */
+
+    x1 = x;
+    if (!leftIn) {
+	x1 += height;
+    }
+    x2 = x+width;
+    if (!rightIn) {
+	x2 -= height;
+    }
+    x1Delta = (leftIn) ? 1 : -1;
+    x2Delta = (rightIn) ? -1 : 1;
+    halfway = y + height/2;
+    if (!topBevel && (height & 1)) {
+	halfway++;
+    }
+    bottom = y + height;
+
+    /*
+     * Draw one line for each y-coordinate covered by the bevel.
+     */
+
+    for ( ; y < bottom; y++) {
+	/*
+	 * In some weird cases (such as large border widths for skinny
+	 * rectangles) x1 can be >= x2.  Don't draw the lines
+	 * in these cases.
+	 */
+
+	if (x1 < x2) {
+	    XFillRectangle(display, drawable,
+		(y < halfway) ? topGC : bottomGC, x1, y,
+		(unsigned) (x2-x1), (unsigned) 1);
+	}
+	x1 += x1Delta;
+	x2 += x2Delta;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_Draw3DRectangle --
+ *
+ *	Draw a 3-D border at a given place in a given window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A 3-D border will be drawn in the indicated drawable.
+ *	The outside edges of the border will be determined by x,
+ *	y, width, and height.  The inside edges of the border
+ *	will be determined by the borderWidth argument.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_Draw3DRectangle(tkwin, drawable, border, x, y, width, height,
+	borderWidth, relief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    int x, y, width, height;	/* Outside area of region in
+				 * which border will be drawn. */
+    int borderWidth;		/* Desired width for border, in
+				 * pixels. */
+    int relief;			/* Type of relief: TK_RELIEF_RAISED,
+				 * TK_RELIEF_SUNKEN, TK_RELIEF_GROOVE, etc. */
+{
+    if (width < 2*borderWidth) {
+	borderWidth = width/2;
+    }
+    if (height < 2*borderWidth) {
+	borderWidth = height/2;
+    }
+    Tk_3DVerticalBevel(tkwin, drawable, border, x, y, borderWidth, height,
+	    1, relief);
+    Tk_3DVerticalBevel(tkwin, drawable, border, x+width-borderWidth, y,
+	    borderWidth, height, 0, relief);
+    Tk_3DHorizontalBevel(tkwin, drawable, border, x, y, width, borderWidth,
+	    1, 1, 1, relief);
+    Tk_3DHorizontalBevel(tkwin, drawable, border, x, y+height-borderWidth,
+	    width, borderWidth, 0, 0, 0, relief);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOf3DBorder --
+ *
+ *	Given a border, return a textual string identifying the
+ *	border's color.
+ *
+ * Results:
+ *	The return value is the string that was used to create
+ *	the border.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOf3DBorder(border)
+    Tk_3DBorder border;		/* Token for border. */
+{
+    Border *borderPtr = (Border *) border;
+
+    return ((BorderKey *) borderPtr->hashPtr->key.words)->colorName;
+}
+
+/*
+ *--------------------------------------------------------------------
+ *
+ * Tk_3DBorderColor --
+ *
+ *	Given a 3D border, return the X color used for the "flat"
+ *	surfaces.
+ *
+ * Results:
+ *	Returns the color used drawing flat surfaces with the border.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------------
+ */
+XColor *
+Tk_3DBorderColor(border)
+    Tk_3DBorder border;		/* Border whose color is wanted. */
+{
+    return(((Border *) border)->bgColorPtr);
+}
+
+/*
+ *--------------------------------------------------------------------
+ *
+ * Tk_3DBorderGC --
+ *
+ *	Given a 3D border, returns one of the graphics contexts used to
+ *	draw the border.
+ *
+ * Results:
+ *	Returns the graphics context given by the "which" argument.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------------
+ */
+GC
+Tk_3DBorderGC(tkwin, border, which)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Tk_3DBorder border;		/* Border whose GC is wanted. */
+    int which;			/* Selects one of the border's 3 GC's:
+				 * TK_3D_FLAT_GC, TK_3D_LIGHT_GC, or
+				 * TK_3D_DARK_GC. */
+{
+    Border * borderPtr = (Border *) border;
+
+    if ((borderPtr->lightGC == None) && (which != TK_3D_FLAT_GC)) {
+	GetShadows(borderPtr, tkwin);
+    }
+    if (which == TK_3D_FLAT_GC) {
+	return borderPtr->bgGC;
+    } else if (which == TK_3D_LIGHT_GC) {
+	return borderPtr->lightGC;
+    } else if (which == TK_3D_DARK_GC){
+	return borderPtr->darkGC;
+    }
+    panic("bogus \"which\" value in Tk_3DBorderGC");
+
+    /*
+     * The code below will never be executed, but it's needed to
+     * keep compilers happy.
+     */
+
+    return (GC) None;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_Free3DBorder --
+ *
+ *	This procedure is called when a 3D border is no longer
+ *	needed.  It frees the resources associated with the
+ *	border.  After this call, the caller should never again
+ *	use the "border" token.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources are freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_Free3DBorder(border)
+    Tk_3DBorder border;		/* Token for border to be released. */
+{
+    register Border *borderPtr = (Border *) border;
+    Display *display = DisplayOfScreen(borderPtr->screen);
+
+    borderPtr->refCount--;
+    if (borderPtr->refCount == 0) {
+	if (borderPtr->bgColorPtr != NULL) {
+	    Tk_FreeColor(borderPtr->bgColorPtr);
+	}
+	if (borderPtr->darkColorPtr != NULL) {
+	    Tk_FreeColor(borderPtr->darkColorPtr);
+	}
+	if (borderPtr->lightColorPtr != NULL) {
+	    Tk_FreeColor(borderPtr->lightColorPtr);
+	}
+	if (borderPtr->shadow != None) {
+	    Tk_FreeBitmap(display, borderPtr->shadow);
+	}
+	if (borderPtr->bgGC != None) {
+	    Tk_FreeGC(display, borderPtr->bgGC);
+	}
+	if (borderPtr->darkGC != None) {
+	    Tk_FreeGC(display, borderPtr->darkGC);
+	}
+	if (borderPtr->lightGC != None) {
+	    Tk_FreeGC(display, borderPtr->lightGC);
+	}
+	Tcl_DeleteHashEntry(borderPtr->hashPtr);
+	ckfree((char *) borderPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetBackgroundFromBorder --
+ *
+ *	Change the background of a window to one appropriate for a given
+ *	3-D border.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tkwin's background gets modified.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetBackgroundFromBorder(tkwin, border)
+    Tk_Window tkwin;		/* Window whose background is to be set. */
+    Tk_3DBorder border;		/* Token for border. */
+{
+    register Border *borderPtr = (Border *) border;
+
+    Tk_SetWindowBackground(tkwin, borderPtr->bgColorPtr->pixel);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetRelief --
+ *
+ *	Parse a relief description and return the corresponding
+ *	relief value, or an error.
+ *
+ * Results:
+ *	A standard Tcl return value.  If all goes well then
+ *	*reliefPtr is filled in with one of the values
+ *	TK_RELIEF_RAISED, TK_RELIEF_FLAT, or TK_RELIEF_SUNKEN.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_GetRelief(interp, name, reliefPtr)
+    Tcl_Interp *interp;		/* For error messages. */
+    char *name;			/* Name of a relief type. */
+    int *reliefPtr;		/* Where to store converted relief. */
+{
+    char c;
+    size_t length;
+
+    c = name[0];
+    length = strlen(name);
+    if ((c == 'f') && (strncmp(name, "flat", length) == 0)) {
+	*reliefPtr = TK_RELIEF_FLAT;
+    } else if ((c == 'g') && (strncmp(name, "groove", length) == 0)
+	    && (length >= 2)) {
+        *reliefPtr = TK_RELIEF_GROOVE;
+    } else if ((c == 'r') && (strncmp(name, "raised", length) == 0)
+	    && (length >= 2)) {
+	*reliefPtr = TK_RELIEF_RAISED;
+    } else if ((c == 'r') && (strncmp(name, "ridge", length) == 0)) {
+        *reliefPtr = TK_RELIEF_RIDGE;
+    } else if ((c == 's') && (strncmp(name, "sunken", length) == 0)) {
+	*reliefPtr = TK_RELIEF_SUNKEN;
+    } else {
+	sprintf(interp->result, "bad relief type \"%.50s\": must be %s",
+		name, "flat, groove, raised, ridge, or sunken");
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfRelief --
+ *
+ *	Given a relief value, produce a string describing that
+ *	relief value.
+ *
+ * Results:
+ *	The return value is a static string that is equivalent
+ *	to relief.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfRelief(relief)
+    int relief;		/* One of TK_RELIEF_FLAT, TK_RELIEF_RAISED,
+			 * or TK_RELIEF_SUNKEN. */
+{
+    if (relief == TK_RELIEF_FLAT) {
+	return "flat";
+    } else if (relief == TK_RELIEF_SUNKEN) {
+	return "sunken";
+    } else if (relief == TK_RELIEF_RAISED) {
+	return "raised";
+    } else if (relief == TK_RELIEF_GROOVE) {
+	return "groove";
+    } else if (relief == TK_RELIEF_RIDGE) {
+	return "ridge";
+    } else {
+	return "unknown relief";
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_Draw3DPolygon --
+ *
+ *	Draw a border with 3-D appearance around the edge of a
+ *	given polygon.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information is drawn in "drawable" in the form of a
+ *	3-D border borderWidth units width wide on the left
+ *	of the trajectory given by pointPtr and numPoints (or
+ *	-borderWidth units wide on the right side, if borderWidth
+ *	is negative).
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints,
+	borderWidth, leftRelief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    XPoint *pointPtr;		/* Array of points describing
+				 * polygon.  All points must be
+				 * absolute (CoordModeOrigin). */
+    int numPoints;		/* Number of points at *pointPtr. */
+    int borderWidth;		/* Width of border, measured in
+				 * pixels to the left of the polygon's
+				 * trajectory.   May be negative. */
+    int leftRelief;		/* TK_RELIEF_RAISED or
+				 * TK_RELIEF_SUNKEN: indicates how
+				 * stuff to left of trajectory looks
+				 * relative to stuff on right. */
+{
+    XPoint poly[4], b1, b2, newB1, newB2;
+    XPoint perp, c, shift1, shift2;	/* Used for handling parallel lines. */
+    register XPoint *p1Ptr, *p2Ptr;
+    Border *borderPtr = (Border *) border;
+    GC gc;
+    int i, lightOnLeft, dx, dy, parallel, pointsSeen;
+    Display *display = Tk_Display(tkwin);
+
+    if (borderPtr->lightGC == None) {
+	GetShadows(borderPtr, tkwin);
+    }
+
+    /*
+     * Handle grooves and ridges with recursive calls.
+     */
+
+    if ((leftRelief == TK_RELIEF_GROOVE) || (leftRelief == TK_RELIEF_RIDGE)) {
+	int halfWidth;
+
+	halfWidth = borderWidth/2;
+	Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints,
+		halfWidth, (leftRelief == TK_RELIEF_GROOVE) ? TK_RELIEF_RAISED
+		: TK_RELIEF_SUNKEN);
+	Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints,
+		-halfWidth, (leftRelief == TK_RELIEF_GROOVE) ? TK_RELIEF_SUNKEN
+		: TK_RELIEF_RAISED);
+	return;
+    }
+
+    /*
+     * If the polygon is already closed, drop the last point from it
+     * (we'll close it automatically).
+     */
+
+    p1Ptr = &pointPtr[numPoints-1];
+    p2Ptr = &pointPtr[0];
+    if ((p1Ptr->x == p2Ptr->x) && (p1Ptr->y == p2Ptr->y)) {
+	numPoints--;
+    }
+
+    /*
+     * The loop below is executed once for each vertex in the polgon.
+     * At the beginning of each iteration things look like this:
+     *
+     *          poly[1]       /
+     *             *        /
+     *             |      /
+     *             b1   * poly[0] (pointPtr[i-1])
+     *             |    |
+     *             |    |
+     *             |    |
+     *             |    |
+     *             |    |
+     *             |    | *p1Ptr            *p2Ptr
+     *             b2   *--------------------*
+     *             |
+     *             |
+     *             x-------------------------
+     *
+     * The job of this iteration is to do the following:
+     * (a) Compute x (the border corner corresponding to
+     *     pointPtr[i]) and put it in poly[2].  As part of
+     *	   this, compute a new b1 and b2 value for the next
+     *	   side of the polygon.
+     * (b) Put pointPtr[i] into poly[3].
+     * (c) Draw the polygon given by poly[0..3].
+     * (d) Advance poly[0], poly[1], b1, and b2 for the
+     *     next side of the polygon.
+     */
+
+    /*
+     * The above situation doesn't first come into existence until
+     * two points have been processed;  the first two points are
+     * used to "prime the pump", so some parts of the processing
+     * are ommitted for these points.  The variable "pointsSeen"
+     * keeps track of the priming process;  it has to be separate
+     * from i in order to be able to ignore duplicate points in the
+     * polygon.
+     */
+
+    pointsSeen = 0;
+    for (i = -2, p1Ptr = &pointPtr[numPoints-2], p2Ptr = p1Ptr+1;
+	    i < numPoints; i++, p1Ptr = p2Ptr, p2Ptr++) {
+	if ((i == -1) || (i == numPoints-1)) {
+	    p2Ptr = pointPtr;
+	}
+	if ((p2Ptr->x == p1Ptr->x) && (p2Ptr->y == p1Ptr->y)) {
+	    /*
+	     * Ignore duplicate points (they'd cause core dumps in
+	     * ShiftLine calls below).
+	     */
+	    continue;
+	}
+	ShiftLine(p1Ptr, p2Ptr, borderWidth, &newB1);
+	newB2.x = newB1.x + (p2Ptr->x - p1Ptr->x);
+	newB2.y = newB1.y + (p2Ptr->y - p1Ptr->y);
+	poly[3] = *p1Ptr;
+	parallel = 0;
+	if (pointsSeen >= 1) {
+	    parallel = Intersect(&newB1, &newB2, &b1, &b2, &poly[2]);
+
+	    /*
+	     * If two consecutive segments of the polygon are parallel,
+	     * then things get more complex.  Consider the following
+	     * diagram:
+	     *
+	     * poly[1]
+	     *    *----b1-----------b2------a
+	     *                                \
+	     *                                  \
+	     *         *---------*----------*    b
+	     *        poly[0]  *p2Ptr   *p1Ptr  /
+	     *                                /
+	     *              --*--------*----c
+	     *              newB1    newB2
+	     *
+	     * Instead of using x and *p1Ptr for poly[2] and poly[3], as
+	     * in the original diagram, use a and b as above.  Then instead
+	     * of using x and *p1Ptr for the new poly[0] and poly[1], use
+	     * b and c as above.
+	     *
+	     * Do the computation in three stages:
+	     * 1. Compute a point "perp" such that the line p1Ptr-perp
+	     *    is perpendicular to p1Ptr-p2Ptr.
+	     * 2. Compute the points a and c by intersecting the lines
+	     *    b1-b2 and newB1-newB2 with p1Ptr-perp.
+	     * 3. Compute b by shifting p1Ptr-perp to the right and
+	     *    intersecting it with p1Ptr-p2Ptr.
+	     */
+
+	    if (parallel) {
+		perp.x = p1Ptr->x + (p2Ptr->y - p1Ptr->y);
+		perp.y = p1Ptr->y - (p2Ptr->x - p1Ptr->x);
+		(void) Intersect(p1Ptr, &perp, &b1, &b2, &poly[2]);
+		(void) Intersect(p1Ptr, &perp, &newB1, &newB2, &c);
+		ShiftLine(p1Ptr, &perp, borderWidth, &shift1);
+		shift2.x = shift1.x + (perp.x - p1Ptr->x);
+		shift2.y = shift1.y + (perp.y - p1Ptr->y);
+		(void) Intersect(p1Ptr, p2Ptr, &shift1, &shift2, &poly[3]);
+	    }
+	}
+	if (pointsSeen >= 2) {
+	    dx = poly[3].x - poly[0].x;
+	    dy = poly[3].y - poly[0].y;
+	    if (dx > 0) {
+		lightOnLeft = (dy <= dx);
+	    } else {
+		lightOnLeft = (dy < dx);
+	    }
+	    if (lightOnLeft ^ (leftRelief == TK_RELIEF_RAISED)) {
+		gc = borderPtr->lightGC;
+	    } else {
+		gc = borderPtr->darkGC;
+	    }
+	    XFillPolygon(display, drawable, gc, poly, 4, Convex,
+		    CoordModeOrigin);
+	}
+	b1.x = newB1.x;
+	b1.y = newB1.y;
+	b2.x = newB2.x;
+	b2.y = newB2.y;
+	poly[0].x = poly[3].x;
+	poly[0].y = poly[3].y;
+	if (parallel) {
+	    poly[1].x = c.x;
+	    poly[1].y = c.y;
+	} else if (pointsSeen >= 1) {
+	    poly[1].x = poly[2].x;
+	    poly[1].y = poly[2].y;
+	}
+	pointsSeen++;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Fill3DRectangle --
+ *
+ *	Fill a rectangular area, supplying a 3D border if desired.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets drawn on the screen.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_Fill3DRectangle(tkwin, drawable, border, x, y, width,
+	height, borderWidth, relief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    int x, y, width, height;	/* Outside area of rectangular region. */
+    int borderWidth;		/* Desired width for border, in
+				 * pixels. Border will be *inside* region. */
+    int relief;			/* Indicates 3D effect: TK_RELIEF_FLAT,
+				 * TK_RELIEF_RAISED, or TK_RELIEF_SUNKEN. */
+{
+    register Border *borderPtr = (Border *) border;
+
+    XFillRectangle(Tk_Display(tkwin), drawable, borderPtr->bgGC,
+	    x, y, (unsigned int) width, (unsigned int) height);
+    if (relief != TK_RELIEF_FLAT) {
+	Tk_Draw3DRectangle(tkwin, drawable, border, x, y, width,
+		height, borderWidth, relief);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Fill3DPolygon --
+ *
+ *	Fill a polygonal area, supplying a 3D border if desired.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets drawn on the screen.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_Fill3DPolygon(tkwin, drawable, border, pointPtr, numPoints,
+	borderWidth, leftRelief)
+    Tk_Window tkwin;		/* Window for which border was allocated. */
+    Drawable drawable;		/* X window or pixmap in which to draw. */
+    Tk_3DBorder border;		/* Token for border to draw. */
+    XPoint *pointPtr;		/* Array of points describing
+				 * polygon.  All points must be
+				 * absolute (CoordModeOrigin). */
+    int numPoints;		/* Number of points at *pointPtr. */
+    int borderWidth;		/* Width of border, measured in
+				 * pixels to the left of the polygon's
+				 * trajectory.   May be negative. */
+    int leftRelief;			/* Indicates 3D effect of left side of
+				 * trajectory relative to right:
+				 * TK_RELIEF_FLAT, TK_RELIEF_RAISED,
+				 * or TK_RELIEF_SUNKEN. */
+{
+    register Border *borderPtr = (Border *) border;
+
+    XFillPolygon(Tk_Display(tkwin), drawable, borderPtr->bgGC,
+	    pointPtr, numPoints, Complex, CoordModeOrigin);
+    if (leftRelief != TK_RELIEF_FLAT) {
+	Tk_Draw3DPolygon(tkwin, drawable, border, pointPtr, numPoints,
+		borderWidth, leftRelief);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * BorderInit --
+ *
+ *	Initialize the structures used for border management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *-------------------------------------------------------------
+ */
+
+static void
+BorderInit()
+{
+    initialized = 1;
+    Tcl_InitHashTable(&borderTable, sizeof(BorderKey)/sizeof(int));
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ShiftLine --
+ *
+ *	Given two points on a line, compute a point on a
+ *	new line that is parallel to the given line and
+ *	a given distance away from it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ShiftLine(p1Ptr, p2Ptr, distance, p3Ptr)
+    XPoint *p1Ptr;		/* First point on line. */
+    XPoint *p2Ptr;		/* Second point on line. */
+    int distance;		/* New line is to be this many
+				 * units to the left of original
+				 * line, when looking from p1 to
+				 * p2.  May be negative. */
+    XPoint *p3Ptr;		/* Store coords of point on new
+				 * line here. */
+{
+    int dx, dy, dxNeg, dyNeg;
+
+    /*
+     * The table below is used for a quick approximation in
+     * computing the new point.  An index into the table
+     * is 128 times the slope of the original line (the slope
+     * must always be between 0 and 1).  The value of the table
+     * entry is 128 times the amount to displace the new line
+     * in y for each unit of perpendicular distance.  In other
+     * words, the table maps from the tangent of an angle to
+     * the inverse of its cosine.  If the slope of the original
+     * line is greater than 1, then the displacement is done in
+     * x rather than in y.
+     */
+
+    static int shiftTable[129];
+
+    /*
+     * Initialize the table if this is the first time it is
+     * used.
+     */
+
+    if (shiftTable[0] == 0) {
+	int i;
+	double tangent, cosine;
+
+	for (i = 0; i <= 128; i++) {
+	    tangent = i/128.0;
+	    cosine = 128/cos(atan(tangent)) + .5;
+	    shiftTable[i] = cosine;
+	}
+    }
+
+    *p3Ptr = *p1Ptr;
+    dx = p2Ptr->x - p1Ptr->x;
+    dy = p2Ptr->y - p1Ptr->y;
+    if (dy < 0) {
+	dyNeg = 1;
+	dy = -dy;
+    } else {
+	dyNeg = 0;
+    }
+    if (dx < 0) {
+	dxNeg = 1;
+	dx = -dx;
+    } else {
+	dxNeg = 0;
+    }
+    if (dy <= dx) {
+	dy = ((distance * shiftTable[(dy<<7)/dx]) + 64) >> 7;
+	if (!dxNeg) {
+	    dy = -dy;
+	}
+	p3Ptr->y += dy;
+    } else {
+	dx = ((distance * shiftTable[(dx<<7)/dy]) + 64) >> 7;
+	if (dyNeg) {
+	    dx = -dx;
+	}
+	p3Ptr->x += dx;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Intersect --
+ *
+ *	Find the intersection point between two lines.
+ *
+ * Results:
+ *	Under normal conditions 0 is returned and the point
+ *	at *iPtr is filled in with the intersection between
+ *	the two lines.  If the two lines are parallel, then
+ *	-1 is returned and *iPtr isn't modified.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+Intersect(a1Ptr, a2Ptr, b1Ptr, b2Ptr, iPtr)
+    XPoint *a1Ptr;		/* First point of first line. */
+    XPoint *a2Ptr;		/* Second point of first line. */
+    XPoint *b1Ptr;		/* First point of second line. */
+    XPoint *b2Ptr;		/* Second point of second line. */
+    XPoint *iPtr;		/* Filled in with intersection point. */
+{
+    int dxadyb, dxbdya, dxadxb, dyadyb, p, q;
+
+    /*
+     * The code below is just a straightforward manipulation of two
+     * equations of the form y = (x-x1)*(y2-y1)/(x2-x1) + y1 to solve
+     * for the x-coordinate of intersection, then the y-coordinate.
+     */
+
+    dxadyb = (a2Ptr->x - a1Ptr->x)*(b2Ptr->y - b1Ptr->y);
+    dxbdya = (b2Ptr->x - b1Ptr->x)*(a2Ptr->y - a1Ptr->y);
+    dxadxb = (a2Ptr->x - a1Ptr->x)*(b2Ptr->x - b1Ptr->x);
+    dyadyb = (a2Ptr->y - a1Ptr->y)*(b2Ptr->y - b1Ptr->y);
+
+    if (dxadyb == dxbdya) {
+	return -1;
+    }
+    p = (a1Ptr->x*dxbdya - b1Ptr->x*dxadyb + (b1Ptr->y - a1Ptr->y)*dxadxb);
+    q = dxbdya - dxadyb;
+    if (q < 0) {
+	p = -p;
+	q = -q;
+    }
+    if (p < 0) {
+	iPtr->x = - ((-p + q/2)/q);
+    } else {
+	iPtr->x = (p + q/2)/q;
+    }
+    p = (a1Ptr->y*dxadyb - b1Ptr->y*dxbdya + (b1Ptr->x - a1Ptr->x)*dyadyb);
+    q = dxadyb - dxbdya;
+    if (q < 0) {
+	p = -p;
+	q = -q;
+    }
+    if (p < 0) {
+	iPtr->y = - ((-p + q/2)/q);
+    } else {
+	iPtr->y = (p + q/2)/q;
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetShadows --
+ *
+ *	This procedure computes the shadow colors for a 3-D border
+ *	and fills in the corresponding fields of the Border structure.
+ *	It's called lazily, so that the colors aren't allocated until
+ *	something is actually drawn with them.  That way, if a border
+ *	is only used for flat backgrounds the shadow colors will
+ *	never be allocated.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The lightGC and darkGC fields in borderPtr get filled in,
+ *	if they weren't already.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetShadows(borderPtr, tkwin)
+    Border *borderPtr;		/* Information about border. */
+    Tk_Window tkwin;		/* Window where border will be used for
+				 * drawing. */
+{
+    XColor lightColor, darkColor;
+    int stressed, tmp1, tmp2;
+    XGCValues gcValues;
+
+    if (borderPtr->lightGC != None) {
+	return;
+    }
+    stressed = TkCmapStressed(tkwin, borderPtr->colormap);
+
+    /*
+     * First, handle the case of a color display with lots of colors.
+     * The shadow colors get computed using whichever formula results
+     * in the greatest change in color:
+     * 1. Lighter shadow is half-way to white, darker shadow is half
+     *    way to dark.
+     * 2. Lighter shadow is 40% brighter than background, darker shadow
+     *    is 40% darker than background.
+     */
+
+    if (!stressed && (Tk_Depth(tkwin) >= 6)) {
+	/*
+	 * This is a color display with lots of colors.  For the dark
+	 * shadow, cut 40% from each of the background color components.
+	 * For the light shadow, boost each component by 40% or half-way
+	 * to white, whichever is greater (the first approach works
+	 * better for unsaturated colors, the second for saturated ones).
+	 */
+
+	darkColor.red = (60 * (int) borderPtr->bgColorPtr->red)/100;
+	darkColor.green = (60 * (int) borderPtr->bgColorPtr->green)/100;
+	darkColor.blue = (60 * (int) borderPtr->bgColorPtr->blue)/100;
+	borderPtr->darkColorPtr = Tk_GetColorByValue(tkwin, &darkColor);
+	gcValues.foreground = borderPtr->darkColorPtr->pixel;
+	borderPtr->darkGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+
+	/*
+	 * Compute the colors using integers, not using lightColor.red
+	 * etc.: these are shorts and may have problems with integer
+	 * overflow.
+	 */
+
+	tmp1 = (14 * (int) borderPtr->bgColorPtr->red)/10;
+	if (tmp1 > MAX_INTENSITY) {
+	    tmp1 = MAX_INTENSITY;
+	}
+	tmp2 = (MAX_INTENSITY + (int) borderPtr->bgColorPtr->red)/2;
+	lightColor.red = (tmp1 > tmp2) ? tmp1 : tmp2;
+	tmp1 = (14 * (int) borderPtr->bgColorPtr->green)/10;
+	if (tmp1 > MAX_INTENSITY) {
+	    tmp1 = MAX_INTENSITY;
+	}
+	tmp2 = (MAX_INTENSITY + (int) borderPtr->bgColorPtr->green)/2;
+	lightColor.green = (tmp1 > tmp2) ? tmp1 : tmp2;
+	tmp1 = (14 * (int) borderPtr->bgColorPtr->blue)/10;
+	if (tmp1 > MAX_INTENSITY) {
+	    tmp1 = MAX_INTENSITY;
+	}
+	tmp2 = (MAX_INTENSITY + (int) borderPtr->bgColorPtr->blue)/2;
+	lightColor.blue = (tmp1 > tmp2) ? tmp1 : tmp2;
+	borderPtr->lightColorPtr = Tk_GetColorByValue(tkwin, &lightColor);
+	gcValues.foreground = borderPtr->lightColorPtr->pixel;
+	borderPtr->lightGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+	return;
+    }
+
+    if (borderPtr->shadow == None) {
+	borderPtr->shadow = Tk_GetBitmap((Tcl_Interp *) NULL, tkwin,
+		Tk_GetUid("gray50"));
+	if (borderPtr->shadow == None) {
+	    panic("GetShadows couldn't allocate bitmap for border");
+	}
+    }
+    if (borderPtr->visual->map_entries > 2) {
+	/*
+	 * This isn't a monochrome display, but the colormap either
+	 * ran out of entries or didn't have very many to begin with.
+	 * Generate the light shadows with a white stipple and the
+	 * dark shadows with a black stipple.
+	 */
+
+	gcValues.foreground = borderPtr->bgColorPtr->pixel;
+	gcValues.background = BlackPixelOfScreen(borderPtr->screen);
+	gcValues.stipple = borderPtr->shadow;
+	gcValues.fill_style = FillOpaqueStippled;
+	borderPtr->darkGC = Tk_GetGC(tkwin,
+		GCForeground|GCBackground|GCStipple|GCFillStyle, &gcValues);
+	gcValues.background = WhitePixelOfScreen(borderPtr->screen);
+	borderPtr->lightGC = Tk_GetGC(tkwin,
+		GCForeground|GCBackground|GCStipple|GCFillStyle, &gcValues);
+	return;
+    }
+
+    /*
+     * This is just a measly monochrome display, hardly even worth its
+     * existence on this earth.  Make one shadow a 50% stipple and the
+     * other the opposite of the background.
+     */
+
+    gcValues.foreground = WhitePixelOfScreen(borderPtr->screen);
+    gcValues.background = BlackPixelOfScreen(borderPtr->screen);
+    gcValues.stipple = borderPtr->shadow;
+    gcValues.fill_style = FillOpaqueStippled;
+    borderPtr->lightGC = Tk_GetGC(tkwin,
+	    GCForeground|GCBackground|GCStipple|GCFillStyle, &gcValues);
+    if (borderPtr->bgColorPtr->pixel
+	    == WhitePixelOfScreen(borderPtr->screen)) {
+	gcValues.foreground = BlackPixelOfScreen(borderPtr->screen);
+	borderPtr->darkGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+    } else {
+	borderPtr->darkGC = borderPtr->lightGC;
+	borderPtr->lightGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+    }
+}
diff --git a/Tk/generic/tkArgv.c b/Tk/generic/tkArgv.c
new file mode 100644
index 0000000..42aa9f0
--- /dev/null
+++ b/Tk/generic/tkArgv.c
@@ -0,0 +1,432 @@
+/*
+ * tkArgv.c --
+ *
+ *	This file contains a procedure that handles table-based
+ *	argv-argc parsing.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkArgv.c 1.20 96/02/15 18:51:32
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+
+/*
+ * Default table of argument descriptors.  These are normally available
+ * in every application.
+ */
+
+static Tk_ArgvInfo defaultTable[] = {
+    {"-help",	TK_ARGV_HELP,	(char *) NULL,	(char *) NULL,
+	"Print summary of command-line options and abort"},
+    {NULL,	TK_ARGV_END,	(char *) NULL,	(char *) NULL,
+	(char *) NULL}
+};
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void	PrintUsage _ANSI_ARGS_((Tcl_Interp *interp,
+		    Tk_ArgvInfo *argTable, int flags));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ParseArgv --
+ *
+ *	Process an argv array according to a table of expected
+ *	command-line options.  See the manual page for more details.
+ *
+ * Results:
+ *	The return value is a standard Tcl return value.  If an
+ *	error occurs then an error message is left in interp->result.
+ *	Under normal conditions, both *argcPtr and *argv are modified
+ *	to return the arguments that couldn't be processed here (they
+ *	didn't match the option table, or followed an TK_ARGV_REST
+ *	argument).
+ *
+ * Side effects:
+ *	Variables may be modified, resources may be entered for tkwin,
+ *	or procedures may be called.  It all depends on the arguments
+ *	and their entries in argTable.  See the user documentation
+ *	for details.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags)
+    Tcl_Interp *interp;		/* Place to store error message. */
+    Tk_Window tkwin;		/* Window to use for setting Tk options.
+				 * NULL means ignore Tk option specs. */
+    int *argcPtr;		/* Number of arguments in argv.  Modified
+				 * to hold # args left in argv at end. */
+    char **argv;		/* Array of arguments.  Modified to hold
+				 * those that couldn't be processed here. */
+    Tk_ArgvInfo *argTable;	/* Array of option descriptions */
+    int flags;			/* Or'ed combination of various flag bits,
+				 * such as TK_ARGV_NO_DEFAULTS. */
+{
+    register Tk_ArgvInfo *infoPtr;
+				/* Pointer to the current entry in the
+				 * table of argument descriptions. */
+    Tk_ArgvInfo *matchPtr;	/* Descriptor that matches current argument. */
+    char *curArg;		/* Current argument */
+    register char c;		/* Second character of current arg (used for
+				 * quick check for matching;  use 2nd char.
+				 * because first char. will almost always
+				 * be '-'). */
+    int srcIndex;		/* Location from which to read next argument
+				 * from argv. */
+    int dstIndex;		/* Index into argv to which next unused
+				 * argument should be copied (never greater
+				 * than srcIndex). */
+    int argc;			/* # arguments in argv still to process. */
+    size_t length;		/* Number of characters in current argument. */
+    int i;
+
+    if (flags & TK_ARGV_DONT_SKIP_FIRST_ARG) {
+	srcIndex = dstIndex = 0;
+	argc = *argcPtr;
+    } else {
+	srcIndex = dstIndex = 1;
+	argc = *argcPtr-1;
+    }
+
+    while (argc > 0) {
+	curArg = argv[srcIndex];
+	srcIndex++;
+	argc--;
+	length = strlen(curArg);
+	if (length > 0) {
+	    c = curArg[1];
+	} else {
+	    c = 0;
+	}
+
+	/*
+	 * Loop throught the argument descriptors searching for one with
+	 * the matching key string.  If found, leave a pointer to it in
+	 * matchPtr.
+	 */
+
+	matchPtr = NULL;
+	for (i = 0; i < 2; i++) {
+	    if (i == 0) {
+		infoPtr = argTable;
+	    } else {
+		infoPtr = defaultTable;
+	    }
+	    for (; (infoPtr != NULL) && (infoPtr->type != TK_ARGV_END);
+		    infoPtr++) {
+		 if (infoPtr->key == NULL) {
+		     continue;
+		 }
+		 if ((infoPtr->key[1] != c)
+			 || (strncmp(infoPtr->key, curArg, length) != 0)) {
+		     continue;
+		 }
+		 if ((tkwin == NULL)
+			 && ((infoPtr->type == TK_ARGV_CONST_OPTION)
+			 || (infoPtr->type == TK_ARGV_OPTION_VALUE)
+			 || (infoPtr->type == TK_ARGV_OPTION_NAME_VALUE))) {
+		     continue;
+		 }
+		 if (infoPtr->key[length] == 0) {
+		     matchPtr = infoPtr;
+		     goto gotMatch;
+		 }
+		 if (flags & TK_ARGV_NO_ABBREV) {
+		     continue;
+		 }
+		 if (matchPtr != NULL) {
+		     Tcl_AppendResult(interp, "ambiguous option \"", curArg,
+			     "\"", (char *) NULL);
+		     return TCL_ERROR;
+		 }
+		 matchPtr = infoPtr;
+	    }
+	}
+	if (matchPtr == NULL) {
+
+	    /*
+	     * Unrecognized argument.  Just copy it down, unless the caller
+	     * prefers an error to be registered.
+	     */
+
+	    if (flags & TK_ARGV_NO_LEFTOVERS) {
+		Tcl_AppendResult(interp, "unrecognized argument \"",
+			curArg, "\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    argv[dstIndex] = curArg;
+	    dstIndex++;
+	    continue;
+	}
+
+	/*
+	 * Take the appropriate action based on the option type
+	 */
+
+	gotMatch:
+	infoPtr = matchPtr;
+	switch (infoPtr->type) {
+	    case TK_ARGV_CONSTANT:
+		*((int *) infoPtr->dst) = (int) infoPtr->src;
+		break;
+	    case TK_ARGV_INT:
+		if (argc == 0) {
+		    goto missingArg;
+		} else {
+		    char *endPtr;
+
+		    *((int *) infoPtr->dst) =
+			    strtol(argv[srcIndex], &endPtr, 0);
+		    if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) {
+			Tcl_AppendResult(interp, "expected integer argument ",
+				"for \"", infoPtr->key, "\" but got \"",
+				argv[srcIndex], "\"", (char *) NULL);
+			return TCL_ERROR;
+		    }
+		    srcIndex++;
+		    argc--;
+		}
+		break;
+	    case TK_ARGV_STRING:
+		if (argc == 0) {
+		    goto missingArg;
+		} else {
+		    *((char **)infoPtr->dst) = argv[srcIndex];
+		    srcIndex++;
+		    argc--;
+		}
+		break;
+	    case TK_ARGV_UID:
+		if (argc == 0) {
+		    goto missingArg;
+		} else {
+		    *((Tk_Uid *)infoPtr->dst) = Tk_GetUid(argv[srcIndex]);
+		    srcIndex++;
+		    argc--;
+		}
+		break;
+	    case TK_ARGV_REST:
+		*((int *) infoPtr->dst) = dstIndex;
+		goto argsDone;
+	    case TK_ARGV_FLOAT:
+		if (argc == 0) {
+		    goto missingArg;
+		} else {
+		    char *endPtr;
+
+		    *((double *) infoPtr->dst) =
+			    strtod(argv[srcIndex], &endPtr);
+		    if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) {
+			Tcl_AppendResult(interp, "expected floating-point ",
+				"argument for \"", infoPtr->key,
+				"\" but got \"", argv[srcIndex], "\"",
+				(char *) NULL);
+			return TCL_ERROR;
+		    }
+		    srcIndex++;
+		    argc--;
+		}
+		break;
+	    case TK_ARGV_FUNC: {
+		int (*handlerProc)();
+
+		handlerProc = (int (*)())infoPtr->src;
+		
+		if ((*handlerProc)(infoPtr->dst, infoPtr->key,
+			argv[srcIndex])) {
+		    srcIndex += 1;
+		    argc -= 1;
+		}
+		break;
+	    }
+	    case TK_ARGV_GENFUNC: {
+		int	    (*handlerProc)();
+
+		handlerProc = (int (*)())infoPtr->src;
+
+		argc = (*handlerProc)(infoPtr->dst, interp, infoPtr->key,
+			argc, argv+srcIndex);
+		if (argc < 0) {
+		    return TCL_ERROR;
+		}
+		break;
+	    }
+	    case TK_ARGV_HELP:
+		PrintUsage (interp, argTable, flags);
+		return TCL_ERROR;
+	    case TK_ARGV_CONST_OPTION:
+		Tk_AddOption(tkwin, infoPtr->dst, infoPtr->src,
+			TK_INTERACTIVE_PRIO);
+		break;
+	    case TK_ARGV_OPTION_VALUE:
+		if (argc < 1) {
+		    goto missingArg;
+		}
+		Tk_AddOption(tkwin, infoPtr->dst, argv[srcIndex],
+			TK_INTERACTIVE_PRIO);
+		srcIndex++;
+		argc--;
+		break;
+	    case TK_ARGV_OPTION_NAME_VALUE:
+		if (argc < 2) {
+		    Tcl_AppendResult(interp, "\"", curArg,
+			    "\" option requires two following arguments",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		Tk_AddOption(tkwin, argv[srcIndex], argv[srcIndex+1],
+			TK_INTERACTIVE_PRIO);
+		srcIndex += 2;
+		argc -= 2;
+		break;
+	    default:
+		sprintf(interp->result, "bad argument type %d in Tk_ArgvInfo",
+			infoPtr->type);
+		return TCL_ERROR;
+	}
+    }
+
+    /*
+     * If we broke out of the loop because of an OPT_REST argument,
+     * copy the remaining arguments down.
+     */
+
+    argsDone:
+    while (argc) {
+	argv[dstIndex] = argv[srcIndex];
+	srcIndex++;
+	dstIndex++;
+	argc--;
+    }
+    argv[dstIndex] = (char *) NULL;
+    *argcPtr = dstIndex;
+    return TCL_OK;
+
+    missingArg:
+    Tcl_AppendResult(interp, "\"", curArg,
+	    "\" option requires an additional argument", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PrintUsage --
+ *
+ *	Generate a help string describing command-line options.
+ *
+ * Results:
+ *	Interp->result will be modified to hold a help string
+ *	describing all the options in argTable, plus all those
+ *	in the default table unless TK_ARGV_NO_DEFAULTS is
+ *	specified in flags.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+PrintUsage(interp, argTable, flags)
+    Tcl_Interp *interp;		/* Place information in this interp's
+				 * result area. */
+    Tk_ArgvInfo *argTable;	/* Array of command-specific argument
+				 * descriptions. */
+    int flags;			/* If the TK_ARGV_NO_DEFAULTS bit is set
+				 * in this word, then don't generate
+				 * information for default options. */
+{
+    register Tk_ArgvInfo *infoPtr;
+    int width, i, numSpaces;
+#define NUM_SPACES 20
+    static char spaces[] = "                    ";
+    char tmp[30];
+
+    /*
+     * First, compute the width of the widest option key, so that we
+     * can make everything line up.
+     */
+
+    width = 4;
+    for (i = 0; i < 2; i++) {
+	for (infoPtr = i ? defaultTable : argTable;
+		infoPtr->type != TK_ARGV_END; infoPtr++) {
+	    int length;
+	    if (infoPtr->key == NULL) {
+		continue;
+	    }
+	    length = strlen(infoPtr->key);
+	    if (length > width) {
+		width = length;
+	    }
+	}
+    }
+
+    Tcl_AppendResult(interp, "Command-specific options:", (char *) NULL);
+    for (i = 0; ; i++) {
+	for (infoPtr = i ? defaultTable : argTable;
+		infoPtr->type != TK_ARGV_END; infoPtr++) {
+	    if ((infoPtr->type == TK_ARGV_HELP) && (infoPtr->key == NULL)) {
+		Tcl_AppendResult(interp, "\n", infoPtr->help, (char *) NULL);
+		continue;
+	    }
+	    Tcl_AppendResult(interp, "\n ", infoPtr->key, ":", (char *) NULL);
+	    numSpaces = width + 1 - strlen(infoPtr->key);
+	    while (numSpaces > 0) {
+		if (numSpaces >= NUM_SPACES) {
+		    Tcl_AppendResult(interp, spaces, (char *) NULL);
+		} else {
+		    Tcl_AppendResult(interp, spaces+NUM_SPACES-numSpaces,
+			    (char *) NULL);
+		}
+		numSpaces -= NUM_SPACES;
+	    }
+	    Tcl_AppendResult(interp, infoPtr->help, (char *) NULL);
+	    switch (infoPtr->type) {
+		case TK_ARGV_INT: {
+		    sprintf(tmp, "%d", *((int *) infoPtr->dst));
+		    Tcl_AppendResult(interp, "\n\t\tDefault value: ",
+			    tmp, (char *) NULL);
+		    break;
+		}
+		case TK_ARGV_FLOAT: {
+		    sprintf(tmp, "%g", *((double *) infoPtr->dst));
+		    Tcl_AppendResult(interp, "\n\t\tDefault value: ",
+			    tmp, (char *) NULL);
+		    break;
+		}
+		case TK_ARGV_STRING: {
+		    char *string;
+
+		    string = *((char **) infoPtr->dst);
+		    if (string != NULL) {
+			Tcl_AppendResult(interp, "\n\t\tDefault value: \"",
+				string, "\"", (char *) NULL);
+		    }
+		    break;
+		}
+		default: {
+		    break;
+		}
+	    }
+	}
+
+	if ((flags & TK_ARGV_NO_DEFAULTS) || (i > 0)) {
+	    break;
+	}
+	Tcl_AppendResult(interp, "\nGeneric options for all commands:",
+		(char *) NULL);
+    }
+}
diff --git a/Tk/generic/tkAtom.c b/Tk/generic/tkAtom.c
new file mode 100644
index 0000000..9d35f6b
--- /dev/null
+++ b/Tk/generic/tkAtom.c
@@ -0,0 +1,217 @@
+/* 
+ * tkAtom.c --
+ *
+ *	This file manages a cache of X Atoms in order to avoid
+ *	interactions with the X server.  It's much like the Xmu
+ *	routines, except it has a cleaner interface (caller
+ *	doesn't have to provide permanent storage for atom names,
+ *	for example).
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkAtom.c 1.13 96/02/15 18:51:34
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The following are a list of the predefined atom strings.
+ * They should match those found in xatom.h
+ */
+
+static char * atomNameArray[] = {
+    "PRIMARY",		"SECONDARY",		"ARC",
+    "ATOM",		"BITMAP",		"CARDINAL",
+    "COLORMAP",		"CURSOR",		"CUT_BUFFER0",
+    "CUT_BUFFER1",	"CUT_BUFFER2",		"CUT_BUFFER3",
+    "CUT_BUFFER4",	"CUT_BUFFER5",		"CUT_BUFFER6",
+    "CUT_BUFFER7",	"DRAWABLE",		"FONT",
+    "INTEGER",		"PIXMAP",		"POINT",
+    "RECTANGLE",	"RESOURCE_MANAGER",	"RGB_COLOR_MAP",
+    "RGB_BEST_MAP",	"RGB_BLUE_MAP",		"RGB_DEFAULT_MAP",
+    "RGB_GRAY_MAP",	"RGB_GREEN_MAP",	"RGB_RED_MAP",
+    "STRING",		"VISUALID",		"WINDOW",
+    "WM_COMMAND",	"WM_HINTS",		"WM_CLIENT_MACHINE",
+    "WM_ICON_NAME",	"WM_ICON_SIZE",		"WM_NAME",
+    "WM_NORMAL_HINTS",	"WM_SIZE_HINTS",	"WM_ZOOM_HINTS",
+    "MIN_SPACE",	"NORM_SPACE",		"MAX_SPACE",
+    "END_SPACE",	"SUPERSCRIPT_X",	"SUPERSCRIPT_Y",
+    "SUBSCRIPT_X",	"SUBSCRIPT_Y",		"UNDERLINE_POSITION",
+    "UNDERLINE_THICKNESS", "STRIKEOUT_ASCENT",	"STRIKEOUT_DESCENT",
+    "ITALIC_ANGLE",	"X_HEIGHT",		"QUAD_WIDTH",
+    "WEIGHT",		"POINT_SIZE",		"RESOLUTION",
+    "COPYRIGHT",	"NOTICE",		"FONT_NAME",
+    "FAMILY_NAME",	"FULL_NAME",		"CAP_HEIGHT",
+    "WM_CLASS",		"WM_TRANSIENT_FOR",
+    (char *) NULL
+};
+
+/*
+ * Forward references to procedures defined in this file:
+ */
+
+static void	AtomInit _ANSI_ARGS_((TkDisplay *dispPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_InternAtom --
+ *
+ *	Given a string, produce the equivalent X atom.  This
+ *	procedure is equivalent to XInternAtom, except that it
+ *	keeps a local cache of atoms.  Once a name is known,
+ *	the server need not be contacted again for that name.
+ *
+ * Results:
+ *	The return value is the Atom corresponding to name.
+ *
+ * Side effects:
+ *	A new entry may be added to the local atom cache.
+ *
+ *--------------------------------------------------------------
+ */
+
+Atom
+Tk_InternAtom(tkwin, name)
+    Tk_Window tkwin;		/* Window token;  map name to atom
+				 * for this window's display. */
+    char *name;			/* Name to turn into atom. */
+{
+    register TkDisplay *dispPtr;
+    register Tcl_HashEntry *hPtr;
+    int new;
+
+    dispPtr = ((TkWindow *) tkwin)->dispPtr;
+    if (!dispPtr->atomInit) {
+	AtomInit(dispPtr);
+    }
+
+    hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, name, &new);
+    if (new) {
+	Tcl_HashEntry *hPtr2;
+	Atom atom;
+
+	atom = XInternAtom(dispPtr->display, name, False);
+	Tcl_SetHashValue(hPtr, atom);
+	hPtr2 = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
+		&new);
+	Tcl_SetHashValue(hPtr2, Tcl_GetHashKey(&dispPtr->nameTable, hPtr));
+    }
+    return (Atom) Tcl_GetHashValue(hPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetAtomName --
+ *
+ *	This procedure is equivalent to XGetAtomName except that
+ *	it uses the local atom cache to avoid contacting the
+ *	server.
+ *
+ * Results:
+ *	The return value is a character string corresponding to
+ *	the atom given by "atom".  This string's storage space
+ *	is static:  it need not be freed by the caller, and should
+ *	not be modified by the caller.  If "atom" doesn't exist
+ *	on tkwin's display, then the string "?bad atom?" is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_GetAtomName(tkwin, atom)
+    Tk_Window tkwin;		/* Window token;  map atom to name
+				 * relative to this window's
+				 * display. */
+    Atom atom;			/* Atom whose name is wanted. */
+{
+    register TkDisplay *dispPtr;
+    register Tcl_HashEntry *hPtr;
+
+    dispPtr = ((TkWindow *) tkwin)->dispPtr;
+    if (!dispPtr->atomInit) {
+	AtomInit(dispPtr);
+    }
+
+    hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);
+    if (hPtr == NULL) {
+	char *name;
+	Tk_ErrorHandler handler;
+	int new, mustFree;
+
+	handler= Tk_CreateErrorHandler(dispPtr->display, BadAtom,
+		-1, -1, (Tk_ErrorProc *) NULL, (ClientData) NULL);
+	name = XGetAtomName(dispPtr->display, atom);
+	mustFree = 1;
+	if (name == NULL) {
+	    name = "?bad atom?";
+	    mustFree = 0;
+	}
+	Tk_DeleteErrorHandler(handler);
+	hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,
+		&new);
+	Tcl_SetHashValue(hPtr, atom);
+	if (mustFree) {
+	    XFree(name);
+	}
+	name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);
+	hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
+		&new);
+	Tcl_SetHashValue(hPtr, name);
+    }
+    return (char *) Tcl_GetHashValue(hPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AtomInit --
+ *
+ *	Initialize atom-related information for a display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tables get initialized, etc. etc..
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+AtomInit(dispPtr)
+    register TkDisplay *dispPtr;	/* Display to initialize. */
+{
+    Tcl_HashEntry *hPtr;
+    Atom atom;
+
+    dispPtr->atomInit = 1;
+    Tcl_InitHashTable(&dispPtr->nameTable, TCL_STRING_KEYS);
+    Tcl_InitHashTable(&dispPtr->atomTable, TCL_ONE_WORD_KEYS);
+
+    for (atom = 1; atom <= XA_LAST_PREDEFINED; atom++) {
+	hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);
+	if (hPtr == NULL) {
+	    char *name;
+	    int new;
+
+	    name = atomNameArray[atom - 1];
+	    hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,
+		&new);
+	    Tcl_SetHashValue(hPtr, atom);
+	    name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);
+	    hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
+		&new);
+	    Tcl_SetHashValue(hPtr, name);
+	}
+    }
+}
diff --git a/Tk/generic/tkBind.c b/Tk/generic/tkBind.c
new file mode 100644
index 0000000..c334988
--- /dev/null
+++ b/Tk/generic/tkBind.c
@@ -0,0 +1,2715 @@
+/* 
+ * tkBind.c --
+ *
+ *	This file provides procedures that associate Tcl commands
+ *	with X events or sequences of X events.
+ *
+ * Copyright (c) 1989-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkBind.c 1.110 96/03/22 11:54:55
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The structure below represents a binding table.  A binding table
+ * represents a domain in which event bindings may occur.  It includes
+ * a space of objects relative to which events occur (usually windows,
+ * but not always), a history of recent events in the domain, and
+ * a set of mappings that associate particular Tcl commands with sequences
+ * of events in the domain.  Multiple binding tables may exist at once,
+ * either because there are multiple applications open, or because there
+ * are multiple domains within an application with separate event
+ * bindings for each (for example, each canvas widget has a separate
+ * binding table for associating events with the items in the canvas).
+ *
+ * Note: it is probably a bad idea to reduce EVENT_BUFFER_SIZE much
+ * below 30.  To see this, consider a triple mouse button click while
+ * the Shift key is down (and auto-repeating).  There may be as many
+ * as 3 auto-repeat events after each mouse button press or release
+ * (see the first large comment block within Tk_BindEvent for more on
+ * this), for a total of 20 events to cover the three button presses
+ * and two intervening releases.  If you reduce EVENT_BUFFER_SIZE too
+ * much, shift multi-clicks will be lost.
+ * 
+ */
+
+#define EVENT_BUFFER_SIZE 30
+typedef struct BindingTable {
+    XEvent eventRing[EVENT_BUFFER_SIZE];/* Circular queue of recent events
+					 * (higher indices are for more recent
+					 * events). */
+    int detailRing[EVENT_BUFFER_SIZE];	/* "Detail" information (keySym or
+					 * button or 0) for each entry in
+					 * eventRing. */
+    int curEvent;			/* Index in eventRing of most recent
+					 * event.  Newer events have higher
+					 * indices. */
+    Tcl_HashTable patternTable;		/* Used to map from an event to a list
+					 * of patterns that may match that
+					 * event.  Keys are PatternTableKey
+					 * structs, values are (PatSeq *). */
+    Tcl_HashTable objectTable;		/* Used to map from an object to a list
+					 * of patterns associated with that
+					 * object.  Keys are ClientData,
+					 * values are (PatSeq *). */
+    Tcl_Interp *interp;			/* Interpreter in which commands are
+					 * executed. */
+} BindingTable;
+
+/*
+ * Structures of the following form are used as keys in the patternTable
+ * for a binding table:
+ */
+
+typedef struct PatternTableKey {
+    ClientData object;		/* Identifies object (or class of objects)
+				 * relative to which event occurred.  For
+				 * example, in the widget binding table for
+				 * an application this is the path name of
+				 * a widget, or a widget class, or "all". */
+    int type;			/* Type of event (from X). */
+    int detail;			/* Additional information, such as
+				 * keysym or button, or 0 if nothing
+				 * additional.*/
+} PatternTableKey;
+
+/*
+ * The following structure defines a pattern, which is matched
+ * against X events as part of the process of converting X events
+ * into Tcl commands.
+ */
+
+typedef struct Pattern {
+    int eventType;		/* Type of X event, e.g. ButtonPress. */
+    int needMods;		/* Mask of modifiers that must be
+				 * present (0 means no modifiers are
+				 * required). */
+    int detail;			/* Additional information that must
+				 * match event.  Normally this is 0,
+				 * meaning no additional information
+				 * must match.  For KeyPress and
+				 * KeyRelease events, a keySym may
+				 * be specified to select a
+				 * particular keystroke (0 means any
+				 * keystrokes).  For button events,
+				 * specifies a particular button (0
+				 * means any buttons are OK). */
+} Pattern;
+
+/*
+ * The structure below defines a pattern sequence, which consists
+ * of one or more patterns.  In order to trigger, a pattern
+ * sequence must match the most recent X events (first pattern
+ * to most recent event, next pattern to next event, and so on).
+ */
+
+typedef struct PatSeq {
+    int numPats;		/* Number of patterns in sequence
+				 * (usually 1). */
+    char *command;		/* Command to invoke when this
+				 * pattern sequence matches (malloc-ed). */
+    int flags;			/* Miscellaneous flag values;  see
+				 * below for definitions. */
+    struct PatSeq *nextSeqPtr;
+				/* Next in list of all pattern
+				 * sequences that have the same
+				 * initial pattern.  NULL means
+				 * end of list. */
+    Tcl_HashEntry *hPtr;	/* Pointer to hash table entry for
+				 * the initial pattern.  This is the
+				 * head of the list of which nextSeqPtr
+				 * forms a part. */
+    ClientData object;		/* Identifies object with which event is
+				 * associated (e.g. window). */
+    struct PatSeq *nextObjPtr;
+				/* Next in list of all pattern
+				 * sequences for the same object
+				 * (NULL for end of list).  Needed to
+				 * implement Tk_DeleteAllBindings. */
+    Pattern pats[1];		/* Array of "numPats" patterns.  Only
+				 * one element is declared here but
+				 * in actuality enough space will be
+				 * allocated for "numPats" patterns.
+				 * To match, pats[0] must match event
+				 * n, pats[1] must match event n-1,
+				 * etc. */
+} PatSeq;
+
+/*
+ * Flag values for PatSeq structures:
+ *
+ * PAT_NEARBY		1 means that all of the events matching
+ *			this sequence must occur with nearby X
+ *			and Y mouse coordinates and close in time.
+ *			This is typically used to restrict multiple
+ *			button presses.
+ */
+
+#define PAT_NEARBY		1
+
+/*
+ * Constants that define how close together two events must be
+ * in milliseconds or pixels to meet the PAT_NEARBY constraint:
+ */
+
+#define NEARBY_PIXELS		5
+#define NEARBY_MS		500
+
+/*
+ * One of the following structures exists for each interpreter,
+ * associated with the key "tkBind".  This structure keeps track
+ * of the current display and screen in the interpreter, so that
+ * a script can be invoked whenever the display/screen changes
+ * (the script does things like point tkPriv at a display-specific
+ * structure).
+ */
+
+typedef struct ScreenInfo {
+    TkDisplay *curDispPtr;	/* Display for last binding command invoked
+				 * in this application. */
+    int curScreenIndex;		/* Index of screen for last binding command. */
+    int bindingDepth;		/* Number of active instances of Tk_BindEvent
+				 * in this application. */
+} ScreenInfo;
+
+/*
+ * In X11R4 and earlier versions, XStringToKeysym is ridiculously
+ * slow.  The data structure and hash table below, along with the
+ * code that uses them, implement a fast mapping from strings to
+ * keysyms.  In X11R5 and later releases XStringToKeysym is plenty
+ * fast so this stuff isn't needed.  The #define REDO_KEYSYM_LOOKUP
+ * is normally undefined, so that XStringToKeysym gets used.  It
+ * can be set in the Makefile to enable the use of the hash table
+ * below.
+ */
+
+#ifdef REDO_KEYSYM_LOOKUP
+typedef struct {
+    char *name;				/* Name of keysym. */
+    KeySym value;			/* Numeric identifier for keysym. */
+} KeySymInfo;
+static KeySymInfo keyArray[] = {
+#ifndef lint
+#include "ks_names.h"
+#endif
+    {(char *) NULL, 0}
+};
+static Tcl_HashTable keySymTable;	/* keyArray hashed by keysym value. */
+static Tcl_HashTable nameTable;		/* keyArray hashed by keysym name. */
+#endif /* REDO_KEYSYM_LOOKUP */
+
+static int initialized = 0;
+
+/*
+ * A hash table is kept to map from the string names of event
+ * modifiers to information about those modifiers.  The structure
+ * for storing this information, and the hash table built at
+ * initialization time, are defined below.
+ */
+
+typedef struct {
+    char *name;			/* Name of modifier. */
+    int mask;			/* Button/modifier mask value,							 * such as Button1Mask. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} ModInfo;
+
+/*
+ * Flags for ModInfo structures:
+ *
+ * DOUBLE -		Non-zero means duplicate this event,
+ *			e.g. for double-clicks.
+ * TRIPLE -		Non-zero means triplicate this event,
+ *			e.g. for triple-clicks.
+ */
+
+#define DOUBLE		1
+#define TRIPLE		2
+
+/*
+ * The following special modifier mask bits are defined, to indicate
+ * logical modifiers such as Meta and Alt that may float among the
+ * actual modifier bits.
+ */
+
+#define META_MASK	(AnyModifier<<1)
+#define ALT_MASK	(AnyModifier<<2)
+
+static ModInfo modArray[] = {
+    {"Control",		ControlMask,	0},
+    {"Shift",		ShiftMask,	0},
+    {"Lock",		LockMask,	0},
+    {"Meta",		META_MASK,	0},
+    {"M",		META_MASK,	0},
+    {"Alt",		ALT_MASK,	0},
+    {"B1",		Button1Mask,	0},
+    {"Button1",		Button1Mask,	0},
+    {"B2",		Button2Mask,	0},
+    {"Button2",		Button2Mask,	0},
+    {"B3",		Button3Mask,	0},
+    {"Button3",		Button3Mask,	0},
+    {"B4",		Button4Mask,	0},
+    {"Button4",		Button4Mask,	0},
+    {"B5",		Button5Mask,	0},
+    {"Button5",		Button5Mask,	0},
+    {"Mod1",		Mod1Mask,	0},
+    {"M1",		Mod1Mask,	0},
+    {"Command",		Mod1Mask,	0},
+    {"Mod2",		Mod2Mask,	0},
+    {"M2",		Mod2Mask,	0},
+    {"Option",		Mod2Mask,	0},
+    {"Mod3",		Mod3Mask,	0},
+    {"M3",		Mod3Mask,	0},
+    {"Mod4",		Mod4Mask,	0},
+    {"M4",		Mod4Mask,	0},
+    {"Mod5",		Mod5Mask,	0},
+    {"M5",		Mod5Mask,	0},
+    {"Double",		0,		DOUBLE},
+    {"Triple",		0,		TRIPLE},
+    {"Any",		0,		0},	/* Ignored: historical relic. */
+    {NULL,		0,		0}
+};
+static Tcl_HashTable modTable;
+
+/*
+ * This module also keeps a hash table mapping from event names
+ * to information about those events.  The structure, an array
+ * to use to initialize the hash table, and the hash table are
+ * all defined below.
+ */
+
+typedef struct {
+    char *name;			/* Name of event. */
+    int type;			/* Event type for X, such as
+				 * ButtonPress. */
+    int eventMask;		/* Mask bits (for XSelectInput)
+				 * for this event type. */
+} EventInfo;
+
+/*
+ * Note:  some of the masks below are an OR-ed combination of
+ * several masks.  This is necessary because X doesn't report
+ * up events unless you also ask for down events.  Also, X
+ * doesn't report button state in motion events unless you've
+ * asked about button events.
+ */
+
+static EventInfo eventArray[] = {
+    {"Motion",		MotionNotify,
+	    ButtonPressMask|PointerMotionMask},
+    {"Button",		ButtonPress,		ButtonPressMask},
+    {"ButtonPress",	ButtonPress,		ButtonPressMask},
+    {"ButtonRelease",	ButtonRelease,
+	    ButtonPressMask|ButtonReleaseMask},
+    {"Colormap",	ColormapNotify,		ColormapChangeMask},
+    {"Enter",		EnterNotify,		EnterWindowMask},
+    {"Leave",		LeaveNotify,		LeaveWindowMask},
+    {"Expose",		Expose,			ExposureMask},
+    {"FocusIn",		FocusIn,		FocusChangeMask},
+    {"FocusOut",	FocusOut,		FocusChangeMask},
+    {"Key",		KeyPress,		KeyPressMask},
+    {"KeyPress",	KeyPress,		KeyPressMask},
+    {"KeyRelease",	KeyRelease,
+	    KeyPressMask|KeyReleaseMask},
+    {"Property",	PropertyNotify,		PropertyChangeMask},
+    {"Circulate",	CirculateNotify,	StructureNotifyMask},
+    {"Configure",	ConfigureNotify,	StructureNotifyMask},
+    {"Destroy",		DestroyNotify,		StructureNotifyMask},
+    {"Gravity",		GravityNotify,		StructureNotifyMask},
+    {"Map",		MapNotify,		StructureNotifyMask},
+    {"Reparent",	ReparentNotify,		StructureNotifyMask},
+    {"Unmap",		UnmapNotify,		StructureNotifyMask},
+    {"Visibility",	VisibilityNotify,	VisibilityChangeMask},
+    {"Activate",	ActivateNotify,		ActivateMask},
+    {"Deactivate",	DeactivateNotify,	ActivateMask},
+    {(char *) NULL,	0,			0}
+};
+static Tcl_HashTable eventTable;
+
+/*
+ * The defines and table below are used to classify events into
+ * various groups.  The reason for this is that logically identical
+ * fields (e.g. "state") appear at different places in different
+ * types of events.  The classification masks can be used to figure
+ * out quickly where to extract information from events.
+ */
+
+#define KEY_BUTTON_MOTION	0x1
+#define CROSSING		0x2
+#define FOCUS			0x4
+#define EXPOSE			0x8
+#define VISIBILITY		0x10
+#define CREATE			0x20
+#define MAP			0x40
+#define REPARENT		0x80
+#define CONFIG			0x100
+#define CONFIG_REQ		0x200
+#define RESIZE_REQ		0x400
+#define GRAVITY			0x800
+#define PROP			0x1000
+#define SEL_CLEAR		0x2000
+#define SEL_REQ			0x4000
+#define SEL_NOTIFY		0x8000
+#define COLORMAP		0x10000
+#define MAPPING			0x20000
+#define ACTIVATE		0x40000
+
+static int flagArray[TK_LASTEVENT] = {
+   /* Not used */		0,
+   /* Not used */		0,
+   /* KeyPress */		KEY_BUTTON_MOTION,
+   /* KeyRelease */		KEY_BUTTON_MOTION,
+   /* ButtonPress */		KEY_BUTTON_MOTION,
+   /* ButtonRelease */		KEY_BUTTON_MOTION,
+   /* MotionNotify */		KEY_BUTTON_MOTION,
+   /* EnterNotify */		CROSSING,
+   /* LeaveNotify */		CROSSING,
+   /* FocusIn */		FOCUS,
+   /* FocusOut */		FOCUS,
+   /* KeymapNotify */		0,
+   /* Expose */			EXPOSE,
+   /* GraphicsExpose */		EXPOSE,
+   /* NoExpose */		0,
+   /* VisibilityNotify */	VISIBILITY,
+   /* CreateNotify */		CREATE,
+   /* DestroyNotify */		0,
+   /* UnmapNotify */		0,
+   /* MapNotify */		MAP,
+   /* MapRequest */		0,
+   /* ReparentNotify */		REPARENT,
+   /* ConfigureNotify */	CONFIG,
+   /* ConfigureRequest */	CONFIG_REQ,
+   /* GravityNotify */		0,
+   /* ResizeRequest */		RESIZE_REQ,
+   /* CirculateNotify */	0,
+   /* CirculateRequest */	0,
+   /* PropertyNotify */		PROP,
+   /* SelectionClear */		SEL_CLEAR,
+   /* SelectionRequest */	SEL_REQ,
+   /* SelectionNotify */	SEL_NOTIFY,
+   /* ColormapNotify */		COLORMAP,
+   /* ClientMessage */		0,
+   /* MappingNotify */		MAPPING,
+   /* Activate */		ACTIVATE,	    
+   /* Deactivate */		ACTIVATE
+};
+
+/*
+ * Prototypes for local procedures defined in this file:
+ */
+
+static void		ChangeScreen _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *dispName, int screenIndex));
+static void		ExpandPercents _ANSI_ARGS_((TkWindow *winPtr,
+			    char *before, XEvent *eventPtr, KeySym keySym,
+			    Tcl_DString *dsPtr));
+static PatSeq *		FindSequence _ANSI_ARGS_((Tcl_Interp *interp,
+			    BindingTable *bindPtr, ClientData object,
+			    char *eventString, int create,
+			    unsigned long *maskPtr));
+static void		FreeScreenInfo _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp));
+static char *		GetField _ANSI_ARGS_((char *p, char *copy, int size));
+static KeySym		GetKeySym _ANSI_ARGS_((TkDisplay *dispPtr,
+			    XEvent *eventPtr));
+static void		InitKeymapInfo _ANSI_ARGS_((TkDisplay *dispPtr));
+static PatSeq *		MatchPatterns _ANSI_ARGS_((TkDisplay *dispPtr,
+			    BindingTable *bindPtr, PatSeq *psPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateBindingTable --
+ *
+ *	Set up a new domain in which event bindings may be created.
+ *
+ * Results:
+ *	The return value is a token for the new table, which must
+ *	be passed to procedures like Tk_CreatBinding.
+ *
+ * Side effects:
+ *	Memory is allocated for the new table.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_BindingTable
+Tk_CreateBindingTable(interp)
+    Tcl_Interp *interp;		/* Interpreter to associate with the binding
+				 * table:  commands are executed in this
+				 * interpreter. */
+{
+    register BindingTable *bindPtr;
+    int i;
+
+    /*
+     * If this is the first time a binding table has been created,
+     * initialize the global data structures.
+     */
+
+    if (!initialized) {
+	register Tcl_HashEntry *hPtr;
+	register ModInfo *modPtr;
+	register EventInfo *eiPtr;
+	int dummy;
+
+#ifdef REDO_KEYSYM_LOOKUP
+	register KeySymInfo *kPtr;
+
+	Tcl_InitHashTable(&keySymTable, TCL_STRING_KEYS);
+	Tcl_InitHashTable(&nameTable, TCL_ONE_WORD_KEYS);
+	for (kPtr = keyArray; kPtr->name != NULL; kPtr++) {
+	    hPtr = Tcl_CreateHashEntry(&keySymTable, kPtr->name, &dummy);
+	    Tcl_SetHashValue(hPtr, kPtr->value);
+	    hPtr = Tcl_CreateHashEntry(&nameTable, (char *) kPtr->value,
+		    &dummy);
+	    Tcl_SetHashValue(hPtr, kPtr->name);
+	}
+#endif /* REDO_KEYSYM_LOOKUP */
+
+	initialized = 1;
+    
+	Tcl_InitHashTable(&modTable, TCL_STRING_KEYS);
+	for (modPtr = modArray; modPtr->name != NULL; modPtr++) {
+	    hPtr = Tcl_CreateHashEntry(&modTable, modPtr->name, &dummy);
+	    Tcl_SetHashValue(hPtr, modPtr);
+	}
+    
+	Tcl_InitHashTable(&eventTable, TCL_STRING_KEYS);
+	for (eiPtr = eventArray; eiPtr->name != NULL; eiPtr++) {
+	    hPtr = Tcl_CreateHashEntry(&eventTable, eiPtr->name, &dummy);
+	    Tcl_SetHashValue(hPtr, eiPtr);
+	}
+    }
+
+    /*
+     * Create and initialize a new binding table.
+     */
+
+    bindPtr = (BindingTable *) ckalloc(sizeof(BindingTable));
+    for (i = 0; i < EVENT_BUFFER_SIZE; i++) {
+	bindPtr->eventRing[i].type = -1;
+    }
+    bindPtr->curEvent = 0;
+    Tcl_InitHashTable(&bindPtr->patternTable,
+	    sizeof(PatternTableKey)/sizeof(int));
+    Tcl_InitHashTable(&bindPtr->objectTable, TCL_ONE_WORD_KEYS);
+    bindPtr->interp = interp;
+    return (Tk_BindingTable) bindPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteBindingTable --
+ *
+ *	Destroy a binding table and free up all its memory.
+ *	The caller should not use bindingTable again after
+ *	this procedure returns.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory is freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DeleteBindingTable(bindingTable)
+    Tk_BindingTable bindingTable;	/* Token for the binding table to
+					 * destroy. */
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    PatSeq *psPtr, *nextPtr;
+    Tcl_HashEntry *hPtr;
+    Tcl_HashSearch search;
+
+    /*
+     * Find and delete all of the patterns associated with the binding
+     * table.
+     */
+
+    for (hPtr = Tcl_FirstHashEntry(&bindPtr->patternTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	for (psPtr = (PatSeq *) Tcl_GetHashValue(hPtr);
+		psPtr != NULL; psPtr = nextPtr) {
+	    nextPtr = psPtr->nextSeqPtr;
+	    ckfree((char *) psPtr->command);
+	    ckfree((char *) psPtr);
+	}
+    }
+
+    /*
+     * Clean up the rest of the information associated with the
+     * binding table.
+     */
+
+    Tcl_DeleteHashTable(&bindPtr->patternTable);
+    Tcl_DeleteHashTable(&bindPtr->objectTable);
+    ckfree((char *) bindPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateBinding --
+ *
+ *	Add a binding to a binding table, so that future calls to
+ *	Tk_BindEvent may execute the command in the binding.
+ *
+ * Results:
+ *	The return value is 0 if an error occurred while setting
+ *	up the binding.  In this case, an error message will be
+ *	left in interp->result.  If all went well then the return
+ *	value is a mask of the event types that must be made
+ *	available to Tk_BindEvent in order to properly detect when
+ *	this binding triggers.  This value can be used to determine
+ *	what events to select for in a window, for example.
+ *
+ * Side effects:
+ *	The new binding may cause future calls to Tk_BindEvent to
+ *	behave differently than they did previously.
+ *
+ *--------------------------------------------------------------
+ */
+
+unsigned long
+#ifdef STk_CODE
+Tk_CreateBinding(interp, bindingTable, object, eventString, command, str1, str2)
+#else
+Tk_CreateBinding(interp, bindingTable, object, eventString, command, append)
+#endif
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_BindingTable bindingTable;	/* Table in which to create binding. */
+    ClientData object;			/* Token for object with which binding
+					 * is associated. */
+    char *eventString;			/* String describing event sequence
+					 * that triggers binding. */
+    char *command;			/* Contains Tcl command to execute
+					 * when binding triggers. */
+#ifdef STk_CODE
+    char *str1, *str2;		       /* strings used as keys in the binding 
+					* table. */
+#else
+    int append;				/* 0 means replace any existing
+					 * binding for eventString;  1 means
+					 * append to that binding. */
+#endif
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    register PatSeq *psPtr;
+    unsigned long eventMask;
+#ifdef STk_CODE
+    char *new;
+    SCM p;
+
+    if (!STk_valid_callback(command, &p) || (p == NULL)) {
+       BadSpec:	
+         Tcl_AppendResult(interp, "bad closure specification \"",
+			           command, "\"", (char *) NULL);
+	 return TCL_ERROR;
+    }
+    if (p != NULL) {
+      /* 
+       * Modify the binding to tranform it in a call with parameters set.
+       * It's a hack but this avoid to do this work at each binding 
+       * execution
+       */
+      if ((new=STk_append_callback_parameters(p)) == NULL) goto BadSpec;
+      /* new will be  automatically GC'ed. */
+      command = new;
+    }
+#endif
+    psPtr = FindSequence(interp, bindPtr, object, eventString, 1, &eventMask);
+    if (psPtr == NULL) {
+	return 0;
+    }
+#ifdef STk_CODE
+    {
+#else
+    if (append && (psPtr->command != NULL)) {
+	int length;
+	char *new;
+
+	length = strlen(psPtr->command) + strlen(command) + 2;
+	new = (char *) ckalloc((unsigned) length);
+	sprintf(new, "%s\n%s", psPtr->command, command);
+	ckfree((char *) psPtr->command);
+	psPtr->command = new;
+    } else {
+#endif
+	if (psPtr->command != NULL) {
+	    ckfree((char *) psPtr->command);
+	}
+	psPtr->command = (char *) ckalloc((unsigned) (strlen(command) + 1));
+	strcpy(psPtr->command, command);
+    }
+#ifdef STk_CODE
+    if (eventMask) STk_add_callback(str1, eventString, str2, p);
+#endif
+    return eventMask;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteBinding --
+ *
+ *	Remove an event binding from a binding table.
+ *
+ * Results:
+ *	The result is a standard Tcl return value.  If an error
+ *	occurs then interp->result will contain an error message.
+ *
+ * Side effects:
+ *	The binding given by object and eventString is removed
+ *	from bindingTable.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_DeleteBinding(interp, bindingTable, object, eventString)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_BindingTable bindingTable;	/* Table in which to delete binding. */
+    ClientData object;			/* Token for object with which binding
+					 * is associated. */
+    char *eventString;			/* String describing event sequence
+					 * that triggers binding. */
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    register PatSeq *psPtr, *prevPtr;
+    unsigned long eventMask;
+    Tcl_HashEntry *hPtr;
+
+    psPtr = FindSequence(interp, bindPtr, object, eventString, 0, &eventMask);
+    if (psPtr == NULL) {
+	Tcl_ResetResult(interp);
+	return TCL_OK;
+    }
+
+    /*
+     * Unlink the binding from the list for its object, then from the
+     * list for its pattern.
+     */
+
+    hPtr = Tcl_FindHashEntry(&bindPtr->objectTable, (char *) object);
+    if (hPtr == NULL) {
+	panic("Tk_DeleteBinding couldn't find object table entry");
+    }
+    prevPtr = (PatSeq *) Tcl_GetHashValue(hPtr);
+    if (prevPtr == psPtr) {
+	Tcl_SetHashValue(hPtr, psPtr->nextObjPtr);
+    } else {
+	for ( ; ; prevPtr = prevPtr->nextObjPtr) {
+	    if (prevPtr == NULL) {
+		panic("Tk_DeleteBinding couldn't find on object list");
+	    }
+	    if (prevPtr->nextObjPtr == psPtr) {
+		prevPtr->nextObjPtr = psPtr->nextObjPtr;
+		break;
+	    }
+	}
+    }
+    prevPtr = (PatSeq *) Tcl_GetHashValue(psPtr->hPtr);
+    if (prevPtr == psPtr) {
+	if (psPtr->nextSeqPtr == NULL) {
+	    Tcl_DeleteHashEntry(psPtr->hPtr);
+	} else {
+	    Tcl_SetHashValue(psPtr->hPtr, psPtr->nextSeqPtr);
+	}
+    } else {
+	for ( ; ; prevPtr = prevPtr->nextSeqPtr) {
+	    if (prevPtr == NULL) {
+		panic("Tk_DeleteBinding couldn't find on hash chain");
+	    }
+	    if (prevPtr->nextSeqPtr == psPtr) {
+		prevPtr->nextSeqPtr = psPtr->nextSeqPtr;
+		break;
+	    }
+	}
+    }
+    ckfree((char *) psPtr->command);
+    ckfree((char *) psPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetBinding --
+ *
+ *	Return the command associated with a given event string.
+ *
+ * Results:
+ *	The return value is a pointer to the command string
+ *	associated with eventString for object in the domain
+ *	given by bindingTable.  If there is no binding for
+ *	eventString, or if eventString is improperly formed,
+ *	then NULL is returned and an error message is left in
+ *	interp->result.  The return value is semi-static:  it
+ *	will persist until the binding is changed or deleted.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_GetBinding(interp, bindingTable, object, eventString)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_BindingTable bindingTable;	/* Table in which to look for
+					 * binding. */
+    ClientData object;			/* Token for object with which binding
+					 * is associated. */
+    char *eventString;			/* String describing event sequence
+					 * that triggers binding. */
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    register PatSeq *psPtr;
+    unsigned long eventMask;
+
+    psPtr = FindSequence(interp, bindPtr, object, eventString, 0, &eventMask);
+    if (psPtr == NULL) {
+	return NULL;
+    }
+    return psPtr->command;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetAllBindings --
+ *
+ *	Return a list of event strings for all the bindings
+ *	associated with a given object.
+ *
+ * Results:
+ *	There is no return value.  Interp->result is modified to
+ *	hold a Tcl list with one entry for each binding associated
+ *	with object in bindingTable.  Each entry in the list
+ *	contains the event string associated with one binding.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_GetAllBindings(interp, bindingTable, object)
+    Tcl_Interp *interp;			/* Interpreter returning result or
+					 * error. */
+    Tk_BindingTable bindingTable;	/* Table in which to look for
+					 * bindings. */
+    ClientData object;			/* Token for object. */
+
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    register PatSeq *psPtr;
+    register Pattern *patPtr;
+    Tcl_HashEntry *hPtr;
+    Tcl_DString ds;
+    char c, buffer[10];
+    int patsLeft, needMods;
+    register ModInfo *modPtr;
+    register EventInfo *eiPtr;
+
+    hPtr = Tcl_FindHashEntry(&bindPtr->objectTable, (char *) object);
+    if (hPtr == NULL) {
+	return;
+    }
+    Tcl_DStringInit(&ds);
+#ifdef STk_CODE
+    Tcl_AppendResult(interp, "(", NULL);
+#endif
+    for (psPtr = (PatSeq *) Tcl_GetHashValue(hPtr); psPtr != NULL;
+	    psPtr = psPtr->nextObjPtr) {
+	Tcl_DStringSetLength(&ds, 0);
+
+	/*
+	 * For each binding, output information about each of the
+	 * patterns in its sequence.  The order of the patterns in
+	 * the sequence is backwards from the order in which they
+	 * must be output.
+	 */
+
+	for (patsLeft = psPtr->numPats,
+		patPtr = &psPtr->pats[psPtr->numPats - 1];
+		patsLeft > 0; patsLeft--, patPtr--) {
+
+	    /*
+	     * Check for simple case of an ASCII character.
+	     */
+
+	    if ((patPtr->eventType == KeyPress)
+		    && (patPtr->needMods == 0)
+		    && (patPtr->detail < 128)
+		    && isprint(UCHAR(patPtr->detail))
+		    && (patPtr->detail != '<')
+		    && (patPtr->detail != ' ')) {
+
+		c = patPtr->detail;
+		Tcl_DStringAppend(&ds, &c, 1);
+		continue;
+	    }
+
+	    /*
+	     * It's a more general event specification.  First check
+	     * for "Double" or "Triple", then modifiers, then event type,
+	     * then keysym or button detail.
+	     */
+
+#ifdef STk_CODE
+	    Tcl_DStringAppend(&ds, "\"<", 2);
+#else
+	    Tcl_DStringAppend(&ds, "<", 1);
+#endif
+	    if ((patsLeft > 1) && (memcmp((char *) patPtr,
+		    (char *) (patPtr-1), sizeof(Pattern)) == 0)) {
+		patsLeft--;
+		patPtr--;
+		if ((patsLeft > 1) && (memcmp((char *) patPtr,
+			(char *) (patPtr-1), sizeof(Pattern)) == 0)) {
+		    patsLeft--;
+		    patPtr--;
+		    Tcl_DStringAppend(&ds, "Triple-", 7);
+		} else {
+		    Tcl_DStringAppend(&ds, "Double-", 7);
+		}
+	    }
+
+	    for (needMods = patPtr->needMods, modPtr = modArray;
+		    needMods != 0; modPtr++) {
+		if (modPtr->mask & needMods) {
+		    needMods &= ~modPtr->mask;
+		    Tcl_DStringAppend(&ds, modPtr->name, -1);
+		    Tcl_DStringAppend(&ds, "-", 1);
+		}
+	    }
+
+	    for (eiPtr = eventArray; eiPtr->name != NULL; eiPtr++) {
+		if (eiPtr->type == patPtr->eventType) {
+		    Tcl_DStringAppend(&ds, eiPtr->name, -1);
+		    if (patPtr->detail != 0) {
+			Tcl_DStringAppend(&ds, "-", 1);
+		    }
+		    break;
+		}
+	    }
+
+	    if (patPtr->detail != 0) {
+		if ((patPtr->eventType == KeyPress)
+			|| (patPtr->eventType == KeyRelease)) {
+		    char *string;
+
+		    string = TkKeysymToString((KeySym) patPtr->detail);
+		    if (string != NULL) {
+			Tcl_DStringAppend(&ds, string, -1);
+		    }
+		} else {
+		    sprintf(buffer, "%d", patPtr->detail);
+		    Tcl_DStringAppend(&ds, buffer, -1);
+		}
+	    }
+#ifdef STk_CODE
+	    Tcl_DStringAppend(&ds, ">\"", 2);
+#else
+	    Tcl_DStringAppend(&ds, ">", 1);
+#endif
+	}
+	Tcl_AppendElement(interp, Tcl_DStringValue(&ds));
+    }
+#ifdef STk_CODE
+    Tcl_AppendResult(interp, ")", NULL);
+#endif
+    Tcl_DStringFree(&ds);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteAllBindings --
+ *
+ *	Remove all bindings associated with a given object in a
+ *	given binding table.
+ *
+ * Results:
+ *	All bindings associated with object are removed from
+ *	bindingTable.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DeleteAllBindings(bindingTable, object)
+    Tk_BindingTable bindingTable;	/* Table in which to delete
+					 * bindings. */
+    ClientData object;			/* Token for object. */
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    register PatSeq *psPtr, *prevPtr;
+    PatSeq *nextPtr;
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&bindPtr->objectTable, (char *) object);
+    if (hPtr == NULL) {
+	return;
+    }
+    for (psPtr = (PatSeq *) Tcl_GetHashValue(hPtr); psPtr != NULL;
+	    psPtr = nextPtr) {
+	nextPtr  = psPtr->nextObjPtr;
+
+	/*
+	 * Be sure to remove each binding from its hash chain in the
+	 * pattern table.  If this is the last pattern in the chain,
+	 * then delete the hash entry too.
+	 */
+
+	prevPtr = (PatSeq *) Tcl_GetHashValue(psPtr->hPtr);
+	if (prevPtr == psPtr) {
+	    if (psPtr->nextSeqPtr == NULL) {
+		Tcl_DeleteHashEntry(psPtr->hPtr);
+	    } else {
+		Tcl_SetHashValue(psPtr->hPtr, psPtr->nextSeqPtr);
+	    }
+	} else {
+	    for ( ; ; prevPtr = prevPtr->nextSeqPtr) {
+		if (prevPtr == NULL) {
+		    panic("Tk_DeleteAllBindings couldn't find on hash chain");
+		}
+		if (prevPtr->nextSeqPtr == psPtr) {
+		    prevPtr->nextSeqPtr = psPtr->nextSeqPtr;
+		    break;
+		}
+	    }
+	}
+	ckfree((char *) psPtr->command);
+	ckfree((char *) psPtr);
+    }
+    Tcl_DeleteHashEntry(hPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_BindEvent --
+ *
+ *	This procedure is invoked to process an X event.  The
+ *	event is added to those recorded for the binding table.
+ *	Then each of the objects at *objectPtr is checked in
+ *	order to see if it has a binding that matches the recent
+ *	events.  If so, that binding is invoked and the rest of
+ *	objects are skipped.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on the command associated with the matching
+ *	binding.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr)
+    Tk_BindingTable bindingTable;	/* Table in which to look for
+					 * bindings. */
+    XEvent *eventPtr;			/* What actually happened. */
+    Tk_Window tkwin;			/* Window on display where event
+					 * occurred (needed in order to
+					 * locate display information). */
+    int numObjects;			/* Number of objects at *objectPtr. */
+    ClientData *objectPtr;		/* Array of one or more objects
+					 * to check for a matching binding. */
+{
+    BindingTable *bindPtr = (BindingTable *) bindingTable;
+    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
+    TkDisplay *oldDispPtr;
+    ScreenInfo *screenPtr;
+    XEvent *ringPtr;
+    PatSeq *matchPtr;
+    PatternTableKey key;
+    Tcl_HashEntry *hPtr;
+    int detail, code, oldScreen;
+    Tcl_Interp *interp;
+    Tcl_DString scripts, savedResult;
+    char *p, *end;
+
+    /*
+     * Ignore the event completely if it is an Enter, Leave, FocusIn,
+     * or FocusOut event with detail NotifyInferior.  The reason for
+     * ignoring these events is that we don't want transitions between
+     * a window and its children to visible to bindings on the parent:
+     * this would cause problems for mega-widgets, since the internal
+     * structure of a mega-widget isn't supposed to be visible to
+     * people watching the parent.
+     */
+
+    if ((eventPtr->type == EnterNotify)  || (eventPtr->type == LeaveNotify)) {
+	if (eventPtr->xcrossing.detail == NotifyInferior) {
+	    return;
+	}
+    }
+    if ((eventPtr->type == FocusIn)  || (eventPtr->type == FocusOut)) {
+	if (eventPtr->xfocus.detail == NotifyInferior) {
+	    return;
+	}
+    }
+
+    /*
+     * Add the new event to the ring of saved events for the
+     * binding table.  Two tricky points:
+     *
+     * 1. Combine consecutive MotionNotify events.  Do this by putting
+     *    the new event *on top* of the previous event.
+     * 2. If a modifier key is held down, it auto-repeats to generate
+     *    continuous KeyPress and KeyRelease events.  These can flush
+     *    the event ring so that valuable information is lost (such
+     *    as repeated button clicks).  To handle this, check for the
+     *    special case of a modifier KeyPress arriving when the previous
+     *    two events are a KeyRelease and KeyPress of the same key.
+     *    If this happens, mark the most recent event (the KeyRelease)
+     *    invalid and put the new event on top of the event before that
+     *    (the KeyPress).
+     */
+
+    if ((eventPtr->type == MotionNotify)
+	    && (bindPtr->eventRing[bindPtr->curEvent].type == MotionNotify)) {
+	/*
+	 * Don't advance the ring pointer.
+	 */
+    } else if (eventPtr->type == KeyPress) {
+	int i;
+	for (i = 0; ; i++) {
+	    if (i >= dispPtr->numModKeyCodes) {
+		goto advanceRingPointer;
+	    }
+	    if (dispPtr->modKeyCodes[i] == eventPtr->xkey.keycode) {
+		break;
+	    }
+	}
+	ringPtr = &bindPtr->eventRing[bindPtr->curEvent];
+	if ((ringPtr->type != KeyRelease)
+		|| (ringPtr->xkey.keycode != eventPtr->xkey.keycode)) {
+	    goto advanceRingPointer;
+	}
+	if (bindPtr->curEvent <= 0) {
+	    i = EVENT_BUFFER_SIZE - 1;
+	} else {
+	    i = bindPtr->curEvent - 1;
+	}
+	ringPtr = &bindPtr->eventRing[i];
+	if ((ringPtr->type != KeyPress)
+		|| (ringPtr->xkey.keycode != eventPtr->xkey.keycode)) {
+	    goto advanceRingPointer;
+	}
+	bindPtr->eventRing[bindPtr->curEvent].type = -1;
+	bindPtr->curEvent = i;
+    } else {
+	advanceRingPointer:
+	bindPtr->curEvent++;
+	if (bindPtr->curEvent >= EVENT_BUFFER_SIZE) {
+	    bindPtr->curEvent = 0;
+	}
+    }
+    ringPtr = &bindPtr->eventRing[bindPtr->curEvent];
+    memcpy((VOID *) ringPtr, (VOID *) eventPtr, sizeof(XEvent));
+    detail = 0;
+    bindPtr->detailRing[bindPtr->curEvent] = 0;
+    if ((ringPtr->type == KeyPress) || (ringPtr->type == KeyRelease)) {
+	detail = (int) GetKeySym(dispPtr, ringPtr);
+	if (detail == NoSymbol) {
+	    detail = 0;
+	}
+    } else if ((ringPtr->type == ButtonPress)
+	    || (ringPtr->type == ButtonRelease)) {
+	detail = ringPtr->xbutton.button;
+    }
+    bindPtr->detailRing[bindPtr->curEvent] = detail;
+
+    /*
+     * Loop over all the objects, finding the binding script for each
+     * one.  Append all of the binding scripts, with %-sequences expanded,
+     * to "scripts", with null characters separating the scripts for
+     * each object.
+     */
+
+    Tcl_DStringInit(&scripts);
+    for ( ; numObjects > 0; numObjects--, objectPtr++) {
+
+	/*
+	 * Match the new event against those recorded in the
+	 * pattern table, saving the longest matching pattern.
+	 * For events with details (button and key events) first
+	 * look for a binding for the specific key or button.
+	 * If none is found, then look for a binding for all
+	 * keys or buttons (detail of 0).
+	 */
+    
+	matchPtr = NULL;
+	key.object = *objectPtr;
+	key.type = ringPtr->type;
+	key.detail = detail;
+	hPtr = Tcl_FindHashEntry(&bindPtr->patternTable, (char *) &key);
+	if (hPtr != NULL) {
+	    matchPtr = MatchPatterns(dispPtr, bindPtr,
+		    (PatSeq *) Tcl_GetHashValue(hPtr));
+	}
+	if ((detail != 0) && (matchPtr == NULL)) {
+	    key.detail = 0;
+	    hPtr = Tcl_FindHashEntry(&bindPtr->patternTable, (char *) &key);
+	    if (hPtr != NULL) {
+		matchPtr = MatchPatterns(dispPtr, bindPtr,
+			(PatSeq *) Tcl_GetHashValue(hPtr));
+	    }
+	}
+    
+	if (matchPtr != NULL) {
+	    ExpandPercents((TkWindow *) tkwin, matchPtr->command, eventPtr,
+		    (KeySym) detail, &scripts);
+	    Tcl_DStringAppend(&scripts, "", 1);
+	}
+    }
+    if (Tcl_DStringLength(&scripts) == 0) {
+	return;
+    }
+
+    /*
+     * Now go back through and evaluate the script for each object,
+     * in order, dealing with "break" and "continue" exceptions
+     * appropriately.
+     *
+     * There are two tricks here:
+     * 1. Bindings can be invoked from in the middle of Tcl commands,
+     *    where interp->result is significant (for example, a widget
+     *    might be deleted because of an error in creating it, so the
+     *    result contains an error message that is eventually going to
+     *    be returned by the creating command).  To preserve the result,
+     *    we save it in a dynamic string.
+     * 2. The binding's action can potentially delete the binding,
+     *    so bindPtr may not point to anything valid once the action
+     *    completes.  Thus we have to save bindPtr->interp in a
+     *    local variable in order to restore the result.
+     */
+
+    interp = bindPtr->interp;
+    Tcl_DStringInit(&savedResult);
+
+    /*
+     * Save information about the current screen, then invoke a script
+     * if the screen has changed.
+     */
+
+    Tcl_DStringGetResult(interp, &savedResult);
+
+    screenPtr = (ScreenInfo *) Tcl_GetAssocData(interp, "tkBind",
+	    (Tcl_InterpDeleteProc **) NULL);
+
+    if (screenPtr == NULL) {
+	screenPtr = (ScreenInfo *) ckalloc(sizeof(ScreenInfo));
+	screenPtr->curDispPtr = NULL;
+	screenPtr->curScreenIndex = -1;
+	screenPtr->bindingDepth = 0;
+	Tcl_SetAssocData(interp, "tkBind", FreeScreenInfo,
+		(ClientData) screenPtr);
+    }
+    oldDispPtr = screenPtr->curDispPtr;
+    oldScreen = screenPtr->curScreenIndex;
+    if ((dispPtr != screenPtr->curDispPtr)
+	    || (Tk_ScreenNumber(tkwin) != screenPtr->curScreenIndex)) {
+	screenPtr->curDispPtr = dispPtr;
+	screenPtr->curScreenIndex = Tk_ScreenNumber(tkwin);
+	ChangeScreen(interp, dispPtr->name, screenPtr->curScreenIndex);
+    }
+
+    p = Tcl_DStringValue(&scripts);
+    end = p + Tcl_DStringLength(&scripts);
+    while (p != end) {
+	screenPtr->bindingDepth += 1;
+	Tcl_AllowExceptions(interp);
+	code = Tcl_GlobalEval(interp, p);
+	screenPtr->bindingDepth -= 1;
+	if (code != TCL_OK) {
+	    if (code == TCL_CONTINUE) {
+		/*
+		 * Do nothing:  just go on to the next script.
+		 */
+	    } else if (code == TCL_BREAK) {
+		break;
+	    } else {
+		Tcl_AddErrorInfo(interp, "\n    (command bound to event)");
+		Tcl_BackgroundError(interp);
+		break;
+	    }
+	}
+
+	/*
+	 * Skip over the current script and its terminating null character.
+	 */
+
+	while (*p != 0) {
+	    p++;
+	}
+	p++;
+    }
+    if ((screenPtr->bindingDepth != 0) &&
+            ((oldDispPtr != screenPtr->curDispPtr)
+                    || (oldScreen != screenPtr->curScreenIndex))) {
+
+	/*
+	 * Some other binding script is currently executing, but its
+	 * screen is no longer current.  Change the current display
+	 * back again.
+	 */
+
+	screenPtr->curDispPtr = oldDispPtr;
+	screenPtr->curScreenIndex = oldScreen;
+	ChangeScreen(interp, oldDispPtr->name, oldScreen);
+    }
+    Tcl_DStringResult(interp, &savedResult);
+    Tcl_DStringFree(&scripts);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangeScreen --
+ *
+ *	This procedure is invoked whenever the current screen changes
+ *	in an application.  It invokes a Tcl procedure named
+ *	"tkScreenChanged", passing it the screen name as argument.
+ *	tkScreenChanged does things like making the tkPriv variable
+ *	point to an array for the current display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what tkScreenChanged does.  If an error occurs
+ *	them tkError will be invoked.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeScreen(interp, dispName, screenIndex)
+    Tcl_Interp *interp;			/* Interpreter in which to invoke
+					 * command. */
+    char *dispName;			/* Name of new display. */
+    int screenIndex;			/* Index of new screen. */
+{
+#ifdef STk_CODE
+    char command[200];
+    int code;
+
+    sprintf(command, "(Tk-screen-changed \"%s.%d\")", dispName, screenIndex);
+    code = Tcl_GlobalEval(interp, command);
+#else
+    Tcl_DString cmd;
+    int code;
+    char screen[30];
+
+    Tcl_DStringInit(&cmd);
+    Tcl_DStringAppend(&cmd, "tkScreenChanged ", 16);
+    Tcl_DStringAppend(&cmd, dispName, -1);
+    sprintf(screen, ".%d", screenIndex);
+    Tcl_DStringAppend(&cmd, screen, -1);
+
+    code = Tcl_GlobalEval(interp, Tcl_DStringValue(&cmd));
+#endif
+    if (code != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (changing screen in event binding)");
+	Tcl_BackgroundError(interp);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FreeScreenInfo --
+ *
+ *	This procedure is invoked when an interpreter is deleted in
+ *	order to free the ScreenInfo structure associated with the
+ *	"tkBind" AssocData.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Storage is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FreeScreenInfo(clientData, interp)
+    ClientData clientData;	/* Pointer to ScreenInfo structure. */
+    Tcl_Interp *interp;		/* Interpreter that is being deleted. */
+{
+    ckfree((char *) clientData);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindSequence --
+ *
+ *	Find the entry in a binding table that corresponds to a
+ *	particular pattern string, and return a pointer to that
+ *	entry.
+ *
+ * Results:
+ *	The return value is normally a pointer to the PatSeq
+ *	in patternTable that corresponds to eventString.  If an error
+ *	was found while parsing eventString, or if "create" is 0 and
+ *	no pattern sequence previously existed, then NULL is returned
+ *	and interp->result contains a message describing the problem.
+ *	If no pattern sequence previously existed for eventString, then
+ *	a new one is created with a NULL command field.  In a successful
+ *	return, *maskPtr is filled in with a mask of the event types
+ *	on which the pattern sequence depends.
+ *
+ * Side effects:
+ *	A new pattern sequence may be created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static PatSeq *
+FindSequence(interp, bindPtr, object, eventString, create, maskPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error
+				 * reporting. */
+    BindingTable *bindPtr;	/* Table to use for lookup. */
+    ClientData object;		/* Token for object(s) with which binding
+				 * is associated. */
+    char *eventString;		/* String description of pattern to
+				 * match on.  See user documentation
+				 * for details. */
+    int create;			/* 0 means don't create the entry if
+				 * it doesn't already exist.   Non-zero
+				 * means create. */
+    unsigned long *maskPtr;	/* *maskPtr is filled in with the event
+				 * types on which this pattern sequence
+				 * depends. */
+
+{
+    Pattern pats[EVENT_BUFFER_SIZE];
+    int numPats;
+    register char *p;
+    register Pattern *patPtr;
+    register PatSeq *psPtr;
+    register Tcl_HashEntry *hPtr;
+#define FIELD_SIZE 48
+    char field[FIELD_SIZE];
+    int flags, count, new;
+    size_t sequenceSize;
+    unsigned long eventMask;
+    PatternTableKey key;
+
+    /*
+     *-------------------------------------------------------------
+     * Step 1: parse the pattern string to produce an array
+     * of Patterns.  The array is generated backwards, so
+     * that the lowest-indexed pattern corresponds to the last
+     * event that must occur.
+     *-------------------------------------------------------------
+     */
+
+    p = eventString;
+    flags = 0;
+    eventMask = 0;
+    for (numPats = 0, patPtr = &pats[EVENT_BUFFER_SIZE-1];
+	    numPats < EVENT_BUFFER_SIZE;
+	    numPats++, patPtr--) {
+	patPtr->eventType = -1;
+	patPtr->needMods = 0;
+	patPtr->detail = 0;
+	while (isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (*p == '\0') {
+	    break;
+	}
+
+	/*
+	 * Handle simple ASCII characters.
+	 */
+
+	if (*p != '<') {
+	    char string[2];
+
+	    patPtr->eventType = KeyPress;
+	    eventMask |= KeyPressMask;
+	    string[0] = *p;
+	    string[1] = 0;
+	    patPtr->detail = TkStringToKeysym(string);
+	    if (patPtr->detail == NoSymbol) {
+		if (isprint(UCHAR(*p))) {
+		    patPtr->detail = *p;
+		} else {
+		    sprintf(interp->result,
+			    "bad ASCII character 0x%x", (unsigned char) *p);
+		    return NULL;
+		}
+	    }
+	    p++;
+	    continue;
+	}
+
+	/*
+	 * A fancier event description.  Must consist of
+	 * 1. open angle bracket.
+	 * 2. any number of modifiers, each followed by spaces
+	 *    or dashes.
+	 * 3. an optional event name.
+	 * 4. an option button or keysym name.  Either this or
+	 *    item 3 *must* be present;  if both are present
+	 *    then they are separated by spaces or dashes.
+	 * 5. a close angle bracket.
+	 */
+
+	count = 1;
+	p++;
+	while (1) {
+	    register ModInfo *modPtr;
+	    p = GetField(p, field, FIELD_SIZE);
+	    hPtr = Tcl_FindHashEntry(&modTable, field);
+	    if (hPtr == NULL) {
+		break;
+	    }
+	    modPtr = (ModInfo *) Tcl_GetHashValue(hPtr);
+	    patPtr->needMods |= modPtr->mask;
+	    if (modPtr->flags & (DOUBLE|TRIPLE)) {
+		flags |= PAT_NEARBY;
+		if (modPtr->flags & DOUBLE) {
+		    count = 2;
+		} else {
+		    count = 3;
+		}
+	    }
+	    while ((*p == '-') || isspace(UCHAR(*p))) {
+		p++;
+	    }
+	}
+	hPtr = Tcl_FindHashEntry(&eventTable, field);
+	if (hPtr != NULL) {
+	    register EventInfo *eiPtr;
+	    eiPtr = (EventInfo *) Tcl_GetHashValue(hPtr);
+	    patPtr->eventType = eiPtr->type;
+	    eventMask |= eiPtr->eventMask;
+	    while ((*p == '-') || isspace(UCHAR(*p))) {
+		p++;
+	    }
+	    p = GetField(p, field, FIELD_SIZE);
+	}
+	if (*field != '\0') {
+	    if ((*field >= '1') && (*field <= '5') && (field[1] == '\0')) {
+		if (patPtr->eventType == -1) {
+		    patPtr->eventType = ButtonPress;
+		    eventMask |= ButtonPressMask;
+		} else if ((patPtr->eventType == KeyPress)
+			|| (patPtr->eventType == KeyRelease)) {
+		    goto getKeysym;
+		} else if ((patPtr->eventType != ButtonPress)
+			&& (patPtr->eventType != ButtonRelease)) {
+		    Tcl_AppendResult(interp, "specified button \"", field,
+			    "\" for non-button event", (char *) NULL);
+		    return NULL;
+		}
+		patPtr->detail = (*field - '0');
+	    } else {
+		getKeysym:
+		patPtr->detail = TkStringToKeysym(field);
+		if (patPtr->detail == NoSymbol) {
+		    Tcl_AppendResult(interp, "bad event type or keysym \"",
+			    field, "\"", (char *) NULL);
+		    return NULL;
+		}
+		if (patPtr->eventType == -1) {
+		    patPtr->eventType = KeyPress;
+		    eventMask |= KeyPressMask;
+		} else if ((patPtr->eventType != KeyPress)
+			&& (patPtr->eventType != KeyRelease)) {
+		    Tcl_AppendResult(interp, "specified keysym \"", field,
+			    "\" for non-key event", (char *) NULL);
+		    return NULL;
+		}
+	    }
+	} else if (patPtr->eventType == -1) {
+	    interp->result = "no event type or button # or keysym";
+	    return NULL;
+	}
+	while ((*p == '-') || isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (*p != '>') {
+	    interp->result = "missing \">\" in binding";
+	    return NULL;
+	}
+	p++;
+
+	/*
+	 * Replicate events for DOUBLE and TRIPLE.
+	 */
+
+	if ((count > 1) && (numPats < EVENT_BUFFER_SIZE-1)) {
+	    patPtr[-1] = patPtr[0];
+	    patPtr--;
+	    numPats++;
+	    if ((count == 3) && (numPats < EVENT_BUFFER_SIZE-1)) {
+		patPtr[-1] = patPtr[0];
+		patPtr--;
+		numPats++;
+	    }
+	}
+    }
+
+    /*
+     *-------------------------------------------------------------
+     * Step 2: find the sequence in the binding table if it exists,
+     * and add a new sequence to the table if it doesn't.
+     *-------------------------------------------------------------
+     */
+
+    if (numPats == 0) {
+	interp->result = "no events specified in binding";
+	return NULL;
+    }
+    patPtr = &pats[EVENT_BUFFER_SIZE-numPats];
+    key.object = object;
+    key.type = patPtr->eventType;
+    key.detail = patPtr->detail;
+    hPtr = Tcl_CreateHashEntry(&bindPtr->patternTable, (char *) &key, &new);
+    sequenceSize = numPats*sizeof(Pattern);
+    if (!new) {
+	for (psPtr = (PatSeq *) Tcl_GetHashValue(hPtr); psPtr != NULL;
+		psPtr = psPtr->nextSeqPtr) {
+	    if ((numPats == psPtr->numPats)
+		    && ((flags & PAT_NEARBY) == (psPtr->flags & PAT_NEARBY))
+		    && (memcmp((char *) patPtr, (char *) psPtr->pats,
+		    sequenceSize) == 0)) {
+		goto done;
+	    }
+	}
+    }
+    if (!create) {
+	if (new) {
+	    Tcl_DeleteHashEntry(hPtr);
+	}
+	Tcl_AppendResult(interp, "no binding exists for \"",
+		eventString, "\"", (char *) NULL);
+	return NULL;
+    }
+    psPtr = (PatSeq *) ckalloc((unsigned) (sizeof(PatSeq)
+	    + (numPats-1)*sizeof(Pattern)));
+    psPtr->numPats = numPats;
+    psPtr->command = NULL;
+    psPtr->flags = flags;
+    psPtr->nextSeqPtr = (PatSeq *) Tcl_GetHashValue(hPtr);
+    psPtr->hPtr = hPtr;
+    Tcl_SetHashValue(hPtr, psPtr);
+
+    /*
+     * Link the pattern into the list associated with the object.
+     */
+
+    psPtr->object = object;
+    hPtr = Tcl_CreateHashEntry(&bindPtr->objectTable, (char *) object, &new);
+    if (new) {
+	psPtr->nextObjPtr = NULL;
+    } else {
+	psPtr->nextObjPtr = (PatSeq *) Tcl_GetHashValue(hPtr);
+    }
+    Tcl_SetHashValue(hPtr, psPtr);
+
+    memcpy((VOID *) psPtr->pats, (VOID *) patPtr, sequenceSize);
+
+    done:
+    *maskPtr = eventMask;
+    return psPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetField --
+ *
+ *	Used to parse pattern descriptions.  Copies up to
+ *	size characters from p to copy, stopping at end of
+ *	string, space, "-", ">", or whenever size is
+ *	exceeded.
+ *
+ * Results:
+ *	The return value is a pointer to the character just
+ *	after the last one copied (usually "-" or space or
+ *	">", but could be anything if size was exceeded).
+ *	Also places NULL-terminated string (up to size
+ *	character, including NULL), at copy.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static char *
+GetField(p, copy, size)
+    register char *p;		/* Pointer to part of pattern. */
+    register char *copy;	/* Place to copy field. */
+    int size;			/* Maximum number of characters to
+				 * copy. */
+{
+    while ((*p != '\0') && !isspace(UCHAR(*p)) && (*p != '>')
+	    && (*p != '-') && (size > 1)) {
+	*copy = *p;
+	p++;
+	copy++;
+	size--;
+    }
+    *copy = '\0';
+    return p;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetKeySym --
+ *
+ *	Given an X KeyPress or KeyRelease event, map the
+ *	keycode in the event into a KeySym.
+ *
+ * Results:
+ *	The return value is the KeySym corresponding to
+ *	eventPtr, or NoSymbol if no matching Keysym could be
+ *	found.
+ *
+ * Side effects:
+ *	In the first call for a given display, keycode-to-
+ *	KeySym maps get loaded.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static KeySym
+GetKeySym(dispPtr, eventPtr)
+    register TkDisplay *dispPtr;	/* Display in which to
+					 * map keycode. */
+    register XEvent *eventPtr;		/* Description of X event. */
+{
+    KeySym sym;
+    int index;
+
+    /*
+     * Refresh the mapping information if it's stale
+     */
+
+    if (dispPtr->bindInfoStale) {
+	InitKeymapInfo(dispPtr);
+    }
+
+    /*
+     * Figure out which of the four slots in the keymap vector to
+     * use for this key.  Refer to Xlib documentation for more info
+     * on how this computation works.
+     */
+
+    index = 0;
+    if (eventPtr->xkey.state & dispPtr->modeModMask) {
+	index = 2;
+    }
+    if ((eventPtr->xkey.state & ShiftMask)
+	    || ((dispPtr->lockUsage != LU_IGNORE)
+	    && (eventPtr->xkey.state & LockMask))) {
+	index += 1;
+    }
+    sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode, index);
+
+    /*
+     * Special handling:  if the key was shifted because of Lock, but
+     * lock is only caps lock, not shift lock, and the shifted keysym
+     * isn't upper-case alphabetic, then switch back to the unshifted
+     * keysym.
+     */
+
+    if ((index & 1) && !(eventPtr->xkey.state & ShiftMask)
+	    && (dispPtr->lockUsage == LU_CAPS)) {
+	if (!(((sym >= XK_A) && (sym <= XK_Z))
+		|| ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis))
+		|| ((sym >= XK_Ooblique) && (sym <= XK_Thorn)))) {
+	    index &= ~1;
+	    sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
+		    index);
+	}
+    }
+
+    /*
+     * Another bit of special handling:  if this is a shifted key and there
+     * is no keysym defined, then use the keysym for the unshifted key.
+     */
+
+    if ((index & 1) && (sym == NoSymbol)) {
+	sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
+		    index & ~1);
+    }
+    return sym;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MatchPatterns --
+ *
+ *	Given a list of pattern sequences and a list of
+ *	recent events, return a pattern sequence that matches
+ *	the event list.
+ *
+ * Results:
+ *	The return value is NULL if no pattern matches the
+ *	recent events from bindPtr.  If one or more patterns
+ *	matches, then the longest (or most specific) matching
+ *	pattern is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static PatSeq *
+MatchPatterns(dispPtr, bindPtr, psPtr)
+    TkDisplay *dispPtr;		/* Display from which the event came. */
+    BindingTable *bindPtr;	/* Information about binding table, such
+				 * as ring of recent events. */
+    register PatSeq *psPtr;	/* List of pattern sequences. */
+{
+    register PatSeq *bestPtr = NULL;
+
+    /*
+     * Iterate over all the pattern sequences.
+     */
+
+    for ( ; psPtr != NULL; psPtr = psPtr->nextSeqPtr) {
+	register XEvent *eventPtr;
+	register Pattern *patPtr;
+	Window window;
+	int *detailPtr;
+	int patCount, ringCount, flags, state;
+	int modMask;
+
+	/*
+	 * Iterate over all the patterns in a sequence to be
+	 * sure that they all match.
+	 */
+
+	eventPtr = &bindPtr->eventRing[bindPtr->curEvent];
+	detailPtr = &bindPtr->detailRing[bindPtr->curEvent];
+	window = eventPtr->xany.window;
+	patPtr = psPtr->pats;
+	patCount = psPtr->numPats;
+	ringCount = EVENT_BUFFER_SIZE;
+	while (patCount > 0) {
+	    if (ringCount <= 0) {
+		goto nextSequence;
+	    }
+	    if (eventPtr->xany.type != patPtr->eventType) {
+		/*
+		 * Most of the event types are considered superfluous
+		 * in that they are ignored if they occur in the middle
+		 * of a pattern sequence and have mismatching types.  The
+		 * only ones that cannot be ignored are ButtonPress and
+		 * ButtonRelease events (if the next event in the pattern
+		 * is a KeyPress or KeyRelease) and KeyPress and KeyRelease
+		 * events (if the next pattern event is a ButtonPress or
+		 * ButtonRelease).  Here are some tricky cases to consider:
+		 * 1. Double-Button or Double-Key events.
+		 * 2. Double-ButtonRelease or Double-KeyRelease events.
+		 * 3. The arrival of various events like Enter and Leave
+		 *    and FocusIn and GraphicsExpose between two button
+		 *    presses or key presses.
+		 * 4. Modifier keys like Shift and Control shouldn't
+		 *    generate conflicts with button events.
+		 */
+
+		if ((patPtr->eventType == KeyPress)
+			|| (patPtr->eventType == KeyRelease)) {
+		    if ((eventPtr->xany.type == ButtonPress)
+			    || (eventPtr->xany.type == ButtonRelease)) {
+			goto nextSequence;
+		    }
+		} else if ((patPtr->eventType == ButtonPress)
+			|| (patPtr->eventType == ButtonRelease)) {
+		    if ((eventPtr->xany.type == KeyPress)
+			    || (eventPtr->xany.type == KeyRelease)) {
+			int i;
+
+			/*
+			 * Ignore key events if they are modifier keys.
+			 */
+
+			for (i = 0; i < dispPtr->numModKeyCodes; i++) {
+			    if (dispPtr->modKeyCodes[i]
+				    == eventPtr->xkey.keycode) {
+				/*
+				 * This key is a modifier key, so ignore it.
+				 */
+				goto nextEvent;
+			    }
+			}
+			goto nextSequence;
+		    }
+		}
+		goto nextEvent;
+	    }
+	    if (eventPtr->xany.window != window) {
+		goto nextSequence;
+	    }
+
+	    /*
+	     * Note: it's important for the keysym check to go before
+	     * the modifier check, so we can ignore unwanted modifier
+	     * keys before choking on the modifier check.
+	     */
+
+	    if ((patPtr->detail != 0)
+		    && (patPtr->detail != *detailPtr)) {
+		/*
+		 * The detail appears not to match.  However, if the event
+		 * is a KeyPress for a modifier key then just ignore the
+		 * event.  Otherwise event sequences like "aD" never match
+		 * because the shift key goes down between the "a" and the
+		 * "D".
+		 */
+
+		if (eventPtr->xany.type == KeyPress) {
+		    int i;
+
+		    for (i = 0; i < dispPtr->numModKeyCodes; i++) {
+			if (dispPtr->modKeyCodes[i] == eventPtr->xkey.keycode) {
+			    goto nextEvent;
+			}
+		    }
+		}
+		goto nextSequence;
+	    }
+	    flags = flagArray[eventPtr->type];
+	    if (flags & KEY_BUTTON_MOTION) {
+		state = eventPtr->xkey.state;
+	    } else if (flags & CROSSING) {
+		state = eventPtr->xcrossing.state;
+	    } else {
+		state = 0;
+	    }
+	    if (patPtr->needMods != 0) {
+		modMask = patPtr->needMods;
+		if ((modMask & META_MASK) && (dispPtr->metaModMask != 0)) {
+		    modMask = (modMask & ~META_MASK) | dispPtr->metaModMask;
+		}
+		if ((modMask & ALT_MASK) && (dispPtr->altModMask != 0)) {
+		    modMask = (modMask & ~ALT_MASK) | dispPtr->altModMask;
+		}
+		if ((state & modMask) != modMask) {
+		    goto nextSequence;
+		}
+	    }
+	    if (psPtr->flags & PAT_NEARBY) {
+		register XEvent *firstPtr;
+		int timeDiff;
+
+		firstPtr = &bindPtr->eventRing[bindPtr->curEvent];
+		timeDiff = (Time) firstPtr->xkey.time - eventPtr->xkey.time;
+		if ((firstPtr->xkey.x_root
+			    < (eventPtr->xkey.x_root - NEARBY_PIXELS))
+			|| (firstPtr->xkey.x_root
+			    > (eventPtr->xkey.x_root + NEARBY_PIXELS))
+			|| (firstPtr->xkey.y_root
+			    < (eventPtr->xkey.y_root - NEARBY_PIXELS))
+			|| (firstPtr->xkey.y_root
+			    > (eventPtr->xkey.y_root + NEARBY_PIXELS))
+			|| (timeDiff > NEARBY_MS)) {
+		    goto nextSequence;
+		}
+	    }
+	    patPtr++;
+	    patCount--;
+	    nextEvent:
+	    if (eventPtr == bindPtr->eventRing) {
+		eventPtr = &bindPtr->eventRing[EVENT_BUFFER_SIZE-1];
+		detailPtr = &bindPtr->detailRing[EVENT_BUFFER_SIZE-1];
+	    } else {
+		eventPtr--;
+		detailPtr--;
+	    }
+	    ringCount--;
+	}
+
+	/*
+	 * This sequence matches.  If we've already got another match,
+	 * pick whichever is most specific.  Detail is most important,
+	 * then needMods.
+	 */
+
+	if (bestPtr != NULL) {
+	    register Pattern *patPtr2;
+	    int i;
+
+	    if (psPtr->numPats != bestPtr->numPats) {
+		if (bestPtr->numPats > psPtr->numPats) {
+		    goto nextSequence;
+		} else {
+		    goto newBest;
+		}
+	    }
+	    for (i = 0, patPtr = psPtr->pats, patPtr2 = bestPtr->pats;
+		    i < psPtr->numPats; i++, patPtr++, patPtr2++) {
+		if (patPtr->detail != patPtr2->detail) {
+		    if (patPtr->detail == 0) {
+			goto nextSequence;
+		    } else {
+			goto newBest;
+		    }
+		}
+		if (patPtr->needMods != patPtr2->needMods) {
+		    if ((patPtr->needMods & patPtr2->needMods)
+			    == patPtr->needMods) {
+			goto nextSequence;
+		    } else if ((patPtr->needMods & patPtr2->needMods)
+			    == patPtr2->needMods) {
+			goto newBest;
+		    }
+		}
+	    }
+	    goto nextSequence;	/* Tie goes to newest pattern. */
+	}
+	newBest:
+	bestPtr = psPtr;
+
+	nextSequence: continue;
+    }
+    return bestPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ExpandPercents --
+ *
+ *	Given a command and an event, produce a new command
+ *	by replacing % constructs in the original command
+ *	with information from the X event.
+ *
+ * Results:
+ *	The new expanded command is appended to the dynamic string
+ *	given by dsPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+#ifdef STk_CODE
+/* 
+ * There are no more '%' in STk, but since this function is not too much modified, 
+ * I prefer do the modification in place, rather than rewrite it in an #ifdef. 
+ * Furthermore, patch command can be run easily on it 
+ */
+#endif
+
+static void
+ExpandPercents(winPtr, before, eventPtr, keySym, dsPtr)
+    TkWindow *winPtr;		/* Window where event occurred:  needed to
+				 * get input context. */
+    register char *before;	/* Command containing percent
+				 * expressions to be replaced. */
+    register XEvent *eventPtr;	/* X event containing information
+				 * to be used in % replacements. */
+    KeySym keySym;		/* KeySym: only relevant for
+				 * KeyPress and KeyRelease events). */
+    Tcl_DString *dsPtr;		/* Dynamic string in which to append
+				 * new command. */
+{
+    int spaceNeeded, cvtFlags;	/* Used to substitute string as proper Tcl
+				 * list element. */
+    int number, flags, length;
+#define NUM_SIZE 40
+    register char *string;
+    char numStorage[NUM_SIZE+1];
+
+    if (eventPtr->type < TK_LASTEVENT) {
+	flags = flagArray[eventPtr->type];
+    } else {
+	flags = 0;
+    }
+#ifdef STk_CODE
+    /* 
+     * Binding is something like "(#p123abc x y)" or "(#p123abc)"
+     * Skip the function "name"
+     */
+    for (string=before;
+	 (*string != 0) && (*string != ' ') &&  (*string != ')'); 
+	 string++) {
+      /* Empty loop body. */
+    }
+    Tcl_DStringAppend(dsPtr, before, string-before);
+    before = string;
+#endif   
+   
+    while (1) {
+#ifndef STk_CODE
+	/*
+	 * Find everything up to the next % character and append it
+	 * to the result string.
+	 */
+        for (string = before; (*string != 0) && (*string != '%'); string++) {
+	    /* Empty loop body. */
+        }
+	if (string != before) {
+	    Tcl_DStringAppend(dsPtr, before, string-before);
+	    before = string;
+	}
+#endif
+	if (*before == 0) {
+	    break;
+	}
+
+	/*
+	 * There's a percent sequence here.  Process it.
+	 */
+
+	number = 0;
+	string = "??";
+#ifdef STk_CODE
+	switch (before[0]) {
+#else
+	switch (before[1]) {
+#endif
+	    case '#':
+		number = eventPtr->xany.serial;
+		goto doNumber;
+	    case 'a':
+#ifdef STk_CODE
+		sprintf(numStorage, "#x%x", (int) eventPtr->xconfigure.above);
+#else
+		sprintf(numStorage, "0x%x", (int) eventPtr->xconfigure.above);
+#endif
+		string = numStorage;
+		goto doString;
+	    case 'b':
+		number = eventPtr->xbutton.button;
+		goto doNumber;
+	    case 'c':
+		if (flags & EXPOSE) {
+		    number = eventPtr->xexpose.count;
+		} else if (flags & MAPPING) {
+		    number = eventPtr->xmapping.count;
+		}
+		goto doNumber;
+	    case 'd':
+		if (flags & (CROSSING|FOCUS)) {
+		    if (flags & FOCUS) {
+			number = eventPtr->xfocus.detail;
+		    } else {
+			number = eventPtr->xcrossing.detail;
+		    }
+		    switch (number) {
+			case NotifyAncestor:
+			    string = "NotifyAncestor";
+			    break;
+			case NotifyVirtual:
+			    string = "NotifyVirtual";
+			    break;
+			case NotifyInferior:
+			    string = "NotifyInferior";
+			    break;
+			case NotifyNonlinear:
+			    string = "NotifyNonlinear";
+			    break;
+			case NotifyNonlinearVirtual:
+			    string = "NotifyNonlinearVirtual";
+			    break;
+			case NotifyPointer:
+			    string = "NotifyPointer";
+			    break;
+			case NotifyPointerRoot:
+			    string = "NotifyPointerRoot";
+			    break;
+			case NotifyDetailNone:
+			    string = "NotifyDetailNone";
+			    break;
+		    }
+		} else if (flags & CONFIG_REQ) {
+		    switch (eventPtr->xconfigurerequest.detail) {
+			case Above:
+			    string = "Above";
+			    break;
+			case Below:
+			    string = "Below";
+			    break;
+			case TopIf:
+			    string = "TopIf";
+			    break;
+			case BottomIf:
+			    string = "BottomIf";
+			    break;
+			case Opposite:
+			    string = "Opposite";
+			    break;
+		    }
+		}
+		goto doString;
+	    case 'f':
+#ifdef STk_CODE
+	      string = (eventPtr->xcrossing.focus) ? "#t" : "#f";
+	      goto doSymbol;
+#else
+		number = eventPtr->xcrossing.focus;
+		goto doNumber;
+#endif
+	    case 'h':
+		if (flags & EXPOSE) {
+		    number = eventPtr->xexpose.height;
+		} else if (flags & (CONFIG|CONFIG_REQ)) {
+		    number = eventPtr->xconfigure.height;
+		} else if (flags & RESIZE_REQ) {
+		    number = eventPtr->xresizerequest.height;
+		}
+		goto doNumber;
+	    case 'k':
+		number = eventPtr->xkey.keycode;
+		goto doNumber;
+	    case 'm':
+		if (flags & CROSSING) {
+		    number = eventPtr->xcrossing.mode;
+		} else if (flags & FOCUS) {
+		    number = eventPtr->xfocus.mode;
+		}
+		switch (number) {
+		    case NotifyNormal:
+			string = "NotifyNormal";
+			break;
+		    case NotifyGrab:
+			string = "NotifyGrab";
+			break;
+		    case NotifyUngrab:
+			string = "NotifyUngrab";
+			break;
+		    case NotifyWhileGrabbed:
+			string = "NotifyWhileGrabbed";
+			break;
+		}
+		goto doString;
+	    case 'o':
+		if (flags & CREATE) {
+		    number = eventPtr->xcreatewindow.override_redirect;
+		} else if (flags & MAP) {
+		    number = eventPtr->xmap.override_redirect;
+		} else if (flags & REPARENT) {
+		    number = eventPtr->xreparent.override_redirect;
+		} else if (flags & CONFIG) {
+		    number = eventPtr->xconfigure.override_redirect;
+		}
+#ifdef STk_CODE
+		string = number ? "#t" : "#f";
+		goto doSymbol;
+#else
+		goto doNumber;
+#endif
+	    case 'p':
+		switch (eventPtr->xcirculate.place) {
+		    case PlaceOnTop:
+			string = "PlaceOnTop";
+			break;
+		    case PlaceOnBottom:
+			string = "PlaceOnBottom";
+			break;
+		}
+		goto doString;
+	    case 's':
+		if (flags & KEY_BUTTON_MOTION) {
+		    number = eventPtr->xkey.state;
+		} else if (flags & CROSSING) {
+		    number = eventPtr->xcrossing.state;
+		} else if (flags & VISIBILITY) {
+		    switch (eventPtr->xvisibility.state) {
+			case VisibilityUnobscured:
+			    string = "VisibilityUnobscured";
+			    break;
+			case VisibilityPartiallyObscured:
+			    string = "VisibilityPartiallyObscured";
+			    break;
+			case VisibilityFullyObscured:
+			    string = "VisibilityFullyObscured";
+			    break;
+		    }
+		    goto doString;
+		}
+		goto doNumber;
+	    case 't':
+		if (flags & PROP) {
+		    number = (int) eventPtr->xproperty.time;
+		} else if (flags & SEL_CLEAR) {
+		    number = (int) eventPtr->xselectionclear.time;
+		} else if (flags & KEY_BUTTON_MOTION) {
+		    number = (int) eventPtr->xkey.time;
+		} else if (flags & SEL_REQ) {
+		    number = (int) eventPtr->xselectionrequest.time;
+		} else if (flags & SEL_NOTIFY) {
+		    number = (int) eventPtr->xselection.time;
+		} else if (flags & CROSSING) {
+		    number = (int) eventPtr->xcrossing.time;
+		}
+		goto doNumber;
+	    case 'v':
+		number = eventPtr->xconfigurerequest.value_mask;
+		goto doNumber;
+	    case 'w':
+		if (flags & EXPOSE) {
+		    number = eventPtr->xexpose.width;
+		} else if (flags & (CONFIG|CONFIG_REQ)) {
+		    number = eventPtr->xconfigure.width;
+		} else if (flags & RESIZE_REQ) {
+		    number = eventPtr->xresizerequest.width;
+		}
+		goto doNumber;
+	    case 'x':
+		if (flags & KEY_BUTTON_MOTION) {
+		    number = eventPtr->xkey.x;
+		} else if (flags & EXPOSE) {
+		    number = eventPtr->xexpose.x;
+		} else if (flags & (CREATE|CONFIG|GRAVITY|CONFIG_REQ)) {
+		    number = eventPtr->xcreatewindow.x;
+		} else if (flags & REPARENT) {
+		    number = eventPtr->xreparent.x;
+		} else if (flags & CROSSING) {
+		    number = eventPtr->xcrossing.x;
+		}
+		goto doNumber;
+	    case 'y':
+		if (flags & KEY_BUTTON_MOTION) {
+		    number = eventPtr->xkey.y;
+		} else if (flags & EXPOSE) {
+		    number = eventPtr->xexpose.y;
+		} else if (flags & (CREATE|CONFIG|GRAVITY|CONFIG_REQ)) {
+		    number = eventPtr->xcreatewindow.y;
+		} else if (flags & REPARENT) {
+		    number = eventPtr->xreparent.y;
+		} else if (flags & CROSSING) {
+		    number = eventPtr->xcrossing.y;
+
+		}
+		goto doNumber;
+	    case 'A':
+		if ((eventPtr->type == KeyPress)
+			|| (eventPtr->type == KeyRelease)) {
+		    int numChars;
+
+		    /*
+		     * If we're using input methods and this is a keypress
+		     * event, invoke XmbLookupString.  Otherwise just use
+		     * the older XLookupString.
+		     */
+
+#ifdef TK_USE_INPUT_METHODS
+		    Status status;
+		    if ((winPtr->inputContext != NULL)
+			    && (eventPtr->type == KeyPress)) {
+                        numChars = XmbLookupString(winPtr->inputContext,
+                                &eventPtr->xkey, numStorage, NUM_SIZE,
+                                (KeySym *) NULL, &status);
+			if ((status != XLookupChars)
+				&& (status != XLookupBoth)) {
+			    numChars = 0;
+			}
+                    } else {
+                        numChars = XLookupString(&eventPtr->xkey, numStorage,
+                                NUM_SIZE, (KeySym *) NULL,
+                                (XComposeStatus *) NULL);
+		    }
+#else /* TK_USE_INPUT_METHODS */
+		    numChars = XLookupString(&eventPtr->xkey, numStorage,
+			    NUM_SIZE, (KeySym *) NULL,
+			    (XComposeStatus *) NULL);
+#endif /* TK_USE_INPUT_METHODS */
+		    numStorage[numChars] = '\0';
+		    string = numStorage;
+		}
+		goto doString;
+	    case 'B':
+		number = eventPtr->xcreatewindow.border_width;
+		goto doNumber;
+	    case 'E':
+		number = (int) eventPtr->xany.send_event;
+		goto doNumber;
+	    case 'K':
+		if ((eventPtr->type == KeyPress)
+			|| (eventPtr->type == KeyRelease)) {
+		    char *name;
+
+		    name = TkKeysymToString(keySym);
+		    if (name != NULL) {
+			string = name;
+		    }
+		}
+		goto doString;
+	    case 'N':
+		number = (int) keySym;
+		goto doNumber;
+	    case 'R':
+		number = (int) eventPtr->xkey.root;
+		goto doNumber;
+	    case 'S':
+#ifdef STk_CODE
+		sprintf(numStorage, "#x%x", (int) eventPtr->xkey.subwindow);
+#else
+		sprintf(numStorage, "0x%x", (int) eventPtr->xkey.subwindow);
+#endif
+		string = numStorage;
+		goto doString;
+	    case 'T':
+		number = eventPtr->type;
+		goto doNumber;
+	    case 'W': {
+		Tk_Window tkwin;
+
+		tkwin = Tk_IdToWindow(eventPtr->xany.display,
+			eventPtr->xany.window);
+		if (tkwin != NULL) {
+		    string = Tk_PathName(tkwin);
+#ifdef STk_CODE
+		    if (string[1] == '\0') string = "*root*";
+#endif
+		} else {
+		    string = "??";
+		}
+#ifdef STk_CODE
+		goto doSymbol;
+#else
+		goto doString;
+#endif
+	    }
+	    case 'X': {
+		Tk_Window tkwin;
+		int x, y;
+		int width, height;
+
+		number = eventPtr->xkey.x_root;
+		tkwin = Tk_IdToWindow(eventPtr->xany.display,
+			eventPtr->xany.window);
+		if (tkwin != NULL) {
+		    Tk_GetVRootGeometry(tkwin, &x, &y, &width, &height);
+		    number -= x;
+		}
+		goto doNumber;
+	    }
+	    case 'Y': {
+		Tk_Window tkwin;
+		int x, y;
+		int width, height;
+
+		number = eventPtr->xkey.y_root;
+		tkwin = Tk_IdToWindow(eventPtr->xany.display,
+			eventPtr->xany.window);
+		if (tkwin != NULL) {
+		    Tk_GetVRootGeometry(tkwin, &x, &y, &width, &height);
+		    number -= y;
+		}
+		goto doNumber;
+	    }
+	    default:
+#ifdef STk_CODE
+	        /* Just append the current ccharater in the result string */
+		Tcl_DStringAppend(dsPtr, before, 1);
+		before += 1;
+		continue;
+#else
+		numStorage[0] = before[1];
+		numStorage[1] = '\0';
+		string = numStorage;
+		goto doString;
+#endif
+	}
+#ifdef STk_CODE
+	doSymbol:
+	{
+	  Tcl_DStringAppend(dsPtr, string, -1);
+	  before += 1;
+	  continue;
+	}
+	doString:
+	{
+	  char *s;
+
+	  s = STk_stringify(string, 0);
+	  Tcl_DStringAppend(dsPtr, s, -1);
+	  free(s);
+	  before += 1;
+	  continue;
+	}
+	doNumber:
+	{
+	  sprintf(numStorage, "%d", number);
+	  Tcl_DStringAppend(dsPtr, numStorage, -1);
+	  before += 1;
+	}
+#else
+	doNumber:
+	sprintf(numStorage, "%d", number);
+	string = numStorage;
+
+	doString:
+	spaceNeeded = Tcl_ScanElement(string, &cvtFlags);
+	length = Tcl_DStringLength(dsPtr);
+	Tcl_DStringSetLength(dsPtr, length + spaceNeeded);
+	spaceNeeded = Tcl_ConvertElement(string,
+		Tcl_DStringValue(dsPtr) + length,
+		cvtFlags | TCL_DONT_USE_BRACES);
+	Tcl_DStringSetLength(dsPtr, length + spaceNeeded);
+	before += 2;
+#endif
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCopyAndGlobalEval --
+ *
+ *	This procedure makes a copy of a script then calls Tcl_GlobalEval
+ *	to evaluate it.  It's used in situations where the execution of
+ *	a command may cause the original command string to be reallocated.
+ *
+ * Results:
+ *	Returns the result of evaluating script, including both a standard
+ *	Tcl completion code and a string in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkCopyAndGlobalEval(interp, script)
+    Tcl_Interp *interp;			/* Interpreter in which to evaluate
+					 * script. */
+    char *script;			/* Script to evaluate. */
+{
+    Tcl_DString buffer;
+    int code;
+
+    Tcl_DStringInit(&buffer);
+    Tcl_DStringAppend(&buffer, script, -1);
+    code = Tcl_GlobalEval(interp, Tcl_DStringValue(&buffer));
+    Tcl_DStringFree(&buffer);
+    return code;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * InitKeymapInfo --
+ *
+ *	This procedure is invoked to scan keymap information
+ *	to recompute stuff that's important for binding, such
+ *	as the modifier key (if any) that corresponds to "mode
+ *	switch".
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Keymap-related information in dispPtr is updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+InitKeymapInfo(dispPtr)
+    TkDisplay *dispPtr;		/* Display for which to recompute keymap
+				 * information. */
+{
+    XModifierKeymap *modMapPtr;
+    register KeyCode *codePtr;
+    KeySym keysym;
+    int count, i, j, max, arraySize;
+#define KEYCODE_ARRAY_SIZE 20
+
+    dispPtr->bindInfoStale = 0;
+    modMapPtr = XGetModifierMapping(dispPtr->display);
+
+    /*
+     * Check the keycodes associated with the Lock modifier.  If
+     * any of them is associated with the XK_Shift_Lock modifier,
+     * then Lock has to be interpreted as Shift Lock, not Caps Lock.
+     */
+
+    dispPtr->lockUsage = LU_IGNORE;
+    codePtr = modMapPtr->modifiermap + modMapPtr->max_keypermod*LockMapIndex;
+    for (count = modMapPtr->max_keypermod; count > 0; count--, codePtr++) {
+	if (*codePtr == 0) {
+	    continue;
+	}
+	keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
+	if (keysym == XK_Shift_Lock) {
+	    dispPtr->lockUsage = LU_SHIFT;
+	    break;
+	}
+	if (keysym == XK_Caps_Lock) {
+	    dispPtr->lockUsage = LU_CAPS;
+	    break;
+	}
+    }
+
+    /*
+     * Look through the keycodes associated with modifiers to see if
+     * the the "mode switch", "meta", or "alt" keysyms are associated
+     * with any modifiers.  If so, remember their modifier mask bits.
+     */
+
+    dispPtr->modeModMask = 0;
+    dispPtr->metaModMask = 0;
+    dispPtr->altModMask = 0;
+    codePtr = modMapPtr->modifiermap;
+    max = 8*modMapPtr->max_keypermod;
+    for (i = 0; i < max; i++, codePtr++) {
+	if (*codePtr == 0) {
+	    continue;
+	}
+	keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
+	if (keysym == XK_Mode_switch) {
+	    dispPtr->modeModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+	}
+	if ((keysym == XK_Meta_L) || (keysym == XK_Meta_R)) {
+	    dispPtr->metaModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+	}
+	if ((keysym == XK_Alt_L) || (keysym == XK_Alt_R)) {
+	    dispPtr->altModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+	}
+    }
+
+    /*
+     * Create an array of the keycodes for all modifier keys.
+     */
+
+    if (dispPtr->modKeyCodes != NULL) {
+	ckfree((char *) dispPtr->modKeyCodes);
+    }
+    dispPtr->numModKeyCodes = 0;
+    arraySize = KEYCODE_ARRAY_SIZE;
+    dispPtr->modKeyCodes = (KeyCode *) ckalloc((unsigned)
+	    (KEYCODE_ARRAY_SIZE * sizeof(KeyCode)));
+    for (i = 0, codePtr = modMapPtr->modifiermap; i < max; i++, codePtr++) {
+	if (*codePtr == 0) {
+	    continue;
+	}
+
+	/*
+	 * Make sure that the keycode isn't already in the array.
+	 */
+
+	for (j = 0; j < dispPtr->numModKeyCodes; j++) {
+	    if (dispPtr->modKeyCodes[j] == *codePtr) {
+		goto nextModCode;
+	    }
+	}
+	if (dispPtr->numModKeyCodes >= arraySize) {
+	    KeyCode *new;
+
+	    /*
+	     * Ran out of space in the array;  grow it.
+	     */
+
+	    arraySize *= 2;
+	    new = (KeyCode *) ckalloc((unsigned)
+		    (arraySize * sizeof(KeyCode)));
+	    memcpy((VOID *) new, (VOID *) dispPtr->modKeyCodes,
+		    (dispPtr->numModKeyCodes * sizeof(KeyCode)));
+	    ckfree((char *) dispPtr->modKeyCodes);
+	    dispPtr->modKeyCodes = new;
+	}
+	dispPtr->modKeyCodes[dispPtr->numModKeyCodes] = *codePtr;
+	dispPtr->numModKeyCodes++;
+	nextModCode: continue;
+    }
+    XFreeModifiermap(modMapPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkStringToKeysym --
+ *
+ *	This procedure finds the keysym associated with a given keysym
+ *	name.
+ *
+ * Results:
+ *	The return value is the keysym that corresponds to name, or
+ *	NoSymbol if there is no such keysym.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+KeySym
+TkStringToKeysym(name)
+    char *name;			/* Name of a keysym. */
+{
+#ifdef REDO_KEYSYM_LOOKUP
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&keySymTable, name);
+    if (hPtr != NULL) {
+	return (KeySym) Tcl_GetHashValue(hPtr);
+    }
+#endif /* REDO_KEYSYM_LOOKUP */
+    return XStringToKeysym(name);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkKeysymToString --
+ *
+ *	This procedure finds the keysym name associated with a given
+ *	keysym.
+ *
+ * Results:
+ *	The return value is a pointer to a static string containing
+ *	the name of the given keysym, or NULL if there is no known name.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+TkKeysymToString(keysym)
+    KeySym keysym;
+{
+#ifdef REDO_KEYSYM_LOOKUP
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&nameTable, (char *)keysym);
+    if (hPtr != NULL) {
+	return (char *) Tcl_GetHashValue(hPtr);
+    }
+#endif /* REDO_KEYSYM_LOOKUP */
+    return XKeysymToString(keysym);
+}
diff --git a/Tk/generic/tkBitmap.c b/Tk/generic/tkBitmap.c
new file mode 100644
index 0000000..f6bb172
--- /dev/null
+++ b/Tk/generic/tkBitmap.c
@@ -0,0 +1,553 @@
+/* 
+ * tkBitmap.c --
+ *
+ *	This file maintains a database of read-only bitmaps for the Tk
+ *	toolkit.  This allows bitmaps to be shared between widgets and
+ *	also avoids interactions with the X server.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkBitmap.c 1.37 96/07/23 16:54:40
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+
+/*
+ * The includes below are for pre-defined bitmaps.
+ */
+
+#include "error.bmp"
+#include "gray12.bmp"
+#include "gray25.bmp"
+#include "gray50.bmp"
+#include "hourglass.bmp"
+#include "info.bmp"
+#include "questhead.bmp"
+#include "question.bmp"
+#include "warning.bmp"
+
+/*
+ * One of the following data structures exists for each bitmap that is
+ * currently in use.  Each structure is indexed with both "idTable" and
+ * "nameTable".
+ */
+
+typedef struct {
+    Pixmap bitmap;		/* X identifier for bitmap.  None means this
+				 * bitmap was created by Tk_DefineBitmap
+				 * and it isn't currently in use. */
+    int width, height;		/* Dimensions of bitmap. */
+    Display *display;		/* Display for which bitmap is valid. */
+    int refCount;		/* Number of active uses of bitmap. */
+    Tcl_HashEntry *hashPtr;	/* Entry in nameTable for this structure
+				 * (needed when deleting). */
+} TkBitmap;
+
+/*
+ * Hash table to map from a textual description of a bitmap to the
+ * TkBitmap record for the bitmap, and key structure used in that
+ * hash table:
+ */
+
+static Tcl_HashTable nameTable;
+typedef struct {
+    Tk_Uid name;		/* Textual name for desired bitmap. */
+    Screen *screen;		/* Screen on which bitmap will be used. */
+} NameKey;
+
+/*
+ * Hash table that maps from <display + bitmap id> to the TkBitmap structure
+ * for the bitmap.  This table is used by Tk_FreeBitmap.
+ */
+
+static Tcl_HashTable idTable;
+typedef struct {
+    Display *display;		/* Display for which bitmap was allocated. */
+    Pixmap pixmap;		/* X identifier for pixmap. */
+} IdKey;
+
+/*
+ * For each call to Tk_DefineBitmap one of the following structures is
+ * created to hold information about the bitmap.
+ */
+
+typedef struct {
+    char *source;		/* Bits for bitmap. */
+    int width, height;		/* Dimensions of bitmap. */
+} PredefBitmap;
+
+/*
+ * Hash table create by Tk_DefineBitmap to map from a name to a
+ * collection of in-core data about a bitmap.  The table is
+ * indexed by the address of the data for the bitmap, and the entries
+ * contain pointers to PredefBitmap structures.
+ */
+
+static Tcl_HashTable predefTable;
+
+/*
+ * Hash table used by Tk_GetBitmapFromData to map from a collection
+ * of in-core data about a bitmap to a Tk_Uid giving an automatically-
+ * generated name for the bitmap:
+ */
+
+static Tcl_HashTable dataTable;
+typedef struct {
+    char *source;		/* Bitmap bits. */
+    int width, height;		/* Dimensions of bitmap. */
+} DataKey;
+
+static int initialized = 0;	/* 0 means static structures haven't been
+				 * initialized yet. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		BitmapInit _ANSI_ARGS_((void));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetBitmap --
+ *
+ *	Given a string describing a bitmap, locate (or create if necessary)
+ *	a bitmap that fits the description.
+ *
+ * Results:
+ *	The return value is the X identifer for the desired bitmap
+ *	(i.e. a Pixmap with a single plane), unless string couldn't be
+ *	parsed correctly.  In this case, None is returned and an error
+ *	message is left in interp->result.  The caller should never
+ *	modify the bitmap that is returned, and should eventually call
+ *	Tk_FreeBitmap when the bitmap is no longer needed.
+ *
+ * Side effects:
+ *	The bitmap is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeBitmap, so that the database can be cleaned up when bitmaps
+ *	aren't needed anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Pixmap
+Tk_GetBitmap(interp, tkwin, string)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which bitmap will be used. */
+    Tk_Uid string;		/* Description of bitmap.  See manual entry
+				 * for details on legal syntax. */
+{
+    NameKey nameKey;
+    IdKey idKey;
+    Tcl_HashEntry *nameHashPtr, *idHashPtr, *predefHashPtr;
+    register TkBitmap *bitmapPtr;
+    PredefBitmap *predefPtr;
+    int new;
+    Pixmap bitmap;
+    int width, height;
+    int dummy2;
+
+    if (!initialized) {
+	BitmapInit();
+    }
+
+    nameKey.name = string;
+    nameKey.screen = Tk_Screen(tkwin);
+    nameHashPtr = Tcl_CreateHashEntry(&nameTable, (char *) &nameKey, &new);
+    if (!new) {
+	bitmapPtr = (TkBitmap *) Tcl_GetHashValue(nameHashPtr);
+	bitmapPtr->refCount++;
+	return bitmapPtr->bitmap;
+    }
+
+    /*
+     * No suitable bitmap exists.  Create a new bitmap from the
+     * information contained in the string.  If the string starts
+     * with "@" then the rest of the string is a file name containing
+     * the bitmap.  Otherwise the string must refer to a bitmap
+     * defined by a call to Tk_DefineBitmap.
+     */
+
+    if (*string == '@') {
+	Tcl_DString buffer;
+	int result;
+
+	string = Tcl_TranslateFileName(interp, string + 1, &buffer);
+	if (string == NULL) {
+	    goto error;
+	}
+	result = XReadBitmapFile(Tk_Display(tkwin),
+		RootWindowOfScreen(nameKey.screen), string,
+		(unsigned int *) &width, (unsigned int *) &height,
+		&bitmap, &dummy2, &dummy2);
+	Tcl_DStringFree(&buffer);
+	if (result != BitmapSuccess) {
+	    Tcl_AppendResult(interp, "error reading bitmap file \"", string,
+		    "\"", (char *) NULL);
+	    goto error;
+	}
+    } else {
+	predefHashPtr = Tcl_FindHashEntry(&predefTable, string);
+	if (predefHashPtr == NULL) {
+	    /*
+	     * The check for a NULL interpreter is a special hack that
+	     * allows this procedure to be called from GetShadows in
+	     * tk3d.c, where it doesn't have an intepreter handle.
+	     */
+
+	    if (interp != NULL) {
+		Tcl_AppendResult(interp, "bitmap \"", string,
+			"\" not defined", (char *) NULL);
+	    }
+	    goto error;
+	}
+	predefPtr = (PredefBitmap *) Tcl_GetHashValue(predefHashPtr);
+	width = predefPtr->width;
+	height = predefPtr->height;
+	bitmap = XCreateBitmapFromData(Tk_Display(tkwin),
+		RootWindowOfScreen(nameKey.screen), predefPtr->source,
+		(unsigned) width, (unsigned) height);
+    }
+
+    /*
+     * Add information about this bitmap to our database.
+     */
+
+    bitmapPtr = (TkBitmap *) ckalloc(sizeof(TkBitmap));
+    bitmapPtr->bitmap = bitmap;
+    bitmapPtr->width = width;
+    bitmapPtr->height = height;
+    bitmapPtr->display = Tk_Display(tkwin);
+    bitmapPtr->refCount = 1;
+    bitmapPtr->hashPtr = nameHashPtr;
+    idKey.display = bitmapPtr->display;
+    idKey.pixmap = bitmap;
+    idHashPtr = Tcl_CreateHashEntry(&idTable, (char *) &idKey,
+	    &new);
+    if (!new) {
+	panic("bitmap already registered in Tk_GetBitmap");
+    }
+    Tcl_SetHashValue(nameHashPtr, bitmapPtr);
+    Tcl_SetHashValue(idHashPtr, bitmapPtr);
+    return bitmapPtr->bitmap;
+
+    error:
+    Tcl_DeleteHashEntry(nameHashPtr);
+    return None;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DefineBitmap --
+ *
+ *	This procedure associates a textual name with a binary bitmap
+ *	description, so that the name may be used to refer to the
+ *	bitmap in future calls to Tk_GetBitmap.
+ *
+ * Results:
+ *	A standard Tcl result.  If an error occurs then TCL_ERROR is
+ *	returned and a message is left in interp->result.
+ *
+ * Side effects:
+ *	"Name" is entered into the bitmap table and may be used from
+ *	here on to refer to the given bitmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_DefineBitmap(interp, name, source, width, height)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Uid name;		/* Name to use for bitmap.  Must not already
+				 * be defined as a bitmap. */
+    char *source;		/* Address of bits for bitmap. */
+    int width;			/* Width of bitmap. */
+    int height;			/* Height of bitmap. */
+{
+    int new;
+    Tcl_HashEntry *predefHashPtr;
+    PredefBitmap *predefPtr;
+
+    if (!initialized) {
+	BitmapInit();
+    }
+
+    predefHashPtr = Tcl_CreateHashEntry(&predefTable, name, &new);
+    if (!new) {
+        Tcl_AppendResult(interp, "bitmap \"", name,
+		"\" is already defined", (char *) NULL);
+	return TCL_ERROR;
+    }
+    predefPtr = (PredefBitmap *) ckalloc(sizeof(PredefBitmap));
+    predefPtr->source = source;
+    predefPtr->width = width;
+    predefPtr->height = height;
+    Tcl_SetHashValue(predefHashPtr, predefPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfBitmap --
+ *
+ *	Given a bitmap, return a textual string identifying the
+ *	bitmap.
+ *
+ * Results:
+ *	The return value is the string name associated with bitmap.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_Uid
+Tk_NameOfBitmap(display, bitmap)
+    Display *display;			/* Display for which bitmap was
+					 * allocated. */
+    Pixmap bitmap;			/* Bitmap whose name is wanted. */
+{
+    IdKey idKey;
+    Tcl_HashEntry *idHashPtr;
+    TkBitmap *bitmapPtr;
+
+    if (!initialized) {
+	unknown:
+	panic("Tk_NameOfBitmap received unknown bitmap argument");
+    }
+
+    idKey.display = display;
+    idKey.pixmap = bitmap;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	goto unknown;
+    }
+    bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
+    return ((NameKey *) bitmapPtr->hashPtr->key.words)->name;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_SizeOfBitmap --
+ *
+ *	Given a bitmap managed by this module, returns the width
+ *	and height of the bitmap.
+ *
+ * Results:
+ *	The words at *widthPtr and *heightPtr are filled in with
+ *	the dimenstions of bitmap.
+ *
+ * Side effects:
+ *	If bitmap isn't managed by this module then the procedure
+ *	panics..
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_SizeOfBitmap(display, bitmap, widthPtr, heightPtr)
+    Display *display;			/* Display for which bitmap was
+					 * allocated. */
+    Pixmap bitmap;			/* Bitmap whose size is wanted. */
+    int *widthPtr;			/* Store bitmap width here. */
+    int *heightPtr;			/* Store bitmap height here. */
+{
+    IdKey idKey;
+    Tcl_HashEntry *idHashPtr;
+    TkBitmap *bitmapPtr;
+
+    if (!initialized) {
+	unknownBitmap:
+	panic("Tk_SizeOfBitmap received unknown bitmap argument");
+    }
+
+    idKey.display = display;
+    idKey.pixmap = bitmap;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	goto unknownBitmap;
+    }
+    bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
+    *widthPtr = bitmapPtr->width;
+    *heightPtr = bitmapPtr->height;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeBitmap --
+ *
+ *	This procedure is called to release a bitmap allocated by
+ *	Tk_GetBitmap or TkGetBitmapFromData.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The reference count associated with bitmap is decremented, and
+ *	it is officially deallocated if no-one is using it anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeBitmap(display, bitmap)
+    Display *display;			/* Display for which bitmap was
+					 * allocated. */
+    Pixmap bitmap;			/* Bitmap to be released. */
+{
+    Tcl_HashEntry *idHashPtr;
+    register TkBitmap *bitmapPtr;
+    IdKey idKey;
+
+    if (!initialized) {
+	panic("Tk_FreeBitmap called before Tk_GetBitmap");
+    }
+
+    idKey.display = display;
+    idKey.pixmap = bitmap;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	panic("Tk_FreeBitmap received unknown bitmap argument");
+    }
+    bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
+    bitmapPtr->refCount--;
+    if (bitmapPtr->refCount == 0) {
+	Tk_FreePixmap(bitmapPtr->display, bitmapPtr->bitmap);
+	Tcl_DeleteHashEntry(idHashPtr);
+	Tcl_DeleteHashEntry(bitmapPtr->hashPtr);
+	ckfree((char *) bitmapPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetBitmapFromData --
+ *
+ *	Given a description of the bits for a bitmap, make a bitmap that
+ *	has the given properties. *** NOTE:  this procedure is obsolete
+ *	and really shouldn't be used anymore. ***
+ *
+ * Results:
+ *	The return value is the X identifer for the desired bitmap
+ *	(a one-plane Pixmap), unless it couldn't be created properly.
+ *	In this case, None is returned and an error message is left in
+ *	interp->result.  The caller should never modify the bitmap that
+ *	is returned, and should eventually call Tk_FreeBitmap when the
+ *	bitmap is no longer needed.
+ *
+ * Side effects:
+ *	The bitmap is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeBitmap, so that the database can be cleaned up when bitmaps
+ *	aren't needed anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+Pixmap
+Tk_GetBitmapFromData(interp, tkwin, source, width, height)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which bitmap will be used. */
+    char *source;		/* Bitmap data for bitmap shape. */
+    int width, height;		/* Dimensions of bitmap. */
+{
+    DataKey nameKey;
+    Tcl_HashEntry *dataHashPtr;
+    Tk_Uid name = NULL;		/* Initialization need only to prevent
+				 * compiler warning. */
+    int new;
+    static int autoNumber = 0;
+    char string[20];
+
+    if (!initialized) {
+	BitmapInit();
+    }
+
+    nameKey.source = source;
+    nameKey.width = width;
+    nameKey.height = height;
+    dataHashPtr = Tcl_CreateHashEntry(&dataTable, (char *) &nameKey, &new);
+    if (!new) {
+	name = (Tk_Uid) Tcl_GetHashValue(dataHashPtr);
+    } else {
+	autoNumber++;
+	sprintf(string, "_tk%d", autoNumber);
+	name = Tk_GetUid(string);
+	Tcl_SetHashValue(dataHashPtr, name);
+	if (Tk_DefineBitmap(interp, name, source, width, height) != TCL_OK) {
+	    Tcl_DeleteHashEntry(dataHashPtr);
+	    return TCL_ERROR;
+	}
+    }
+    return Tk_GetBitmap(interp, tkwin, name);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * BitmapInit --
+ *
+ *	Initialize the structures used for bitmap management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+BitmapInit()
+{
+    Tcl_Interp *dummy;
+
+    dummy = Tcl_CreateInterp();
+    initialized = 1;
+    Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
+    Tcl_InitHashTable(&dataTable, sizeof(DataKey)/sizeof(int));
+    Tcl_InitHashTable(&predefTable, TCL_ONE_WORD_KEYS);
+
+    /*
+     * The call below is tricky:  can't use sizeof(IdKey) because it
+     * gets padded with extra unpredictable bytes on some 64-bit
+     * machines.
+     */
+
+    Tcl_InitHashTable(&idTable, (sizeof(Display *) + sizeof(Pixmap))
+	    /sizeof(int));
+
+    Tk_DefineBitmap(dummy, Tk_GetUid("error"), (char *) error_bits,
+	    error_width, error_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("gray50"), (char *) gray50_bits,
+	    gray50_width, gray50_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("gray25"), (char *) gray25_bits,
+	    gray25_width, gray25_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("gray12"), (char *) gray12_bits,
+	    gray12_width, gray12_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("hourglass"), (char *) hourglass_bits,
+	    hourglass_width, hourglass_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("info"), (char *) info_bits,
+	    info_width, info_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("questhead"), (char *) questhead_bits,
+	    questhead_width, questhead_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("question"), (char *) question_bits,
+	    question_width, question_height);
+    Tk_DefineBitmap(dummy, Tk_GetUid("warning"), (char *) warning_bits,
+	    warning_width, warning_height);
+    Tcl_DeleteInterp(dummy);
+}
diff --git a/Tk/generic/tkButton.c b/Tk/generic/tkButton.c
new file mode 100644
index 0000000..6aac8b7
--- /dev/null
+++ b/Tk/generic/tkButton.c
@@ -0,0 +1,1972 @@
+/* 
+ * tkButton.c --
+ *
+ *	This module implements a collection of button-like
+ *	widgets for the Tk toolkit.  The widgets implemented
+ *	include labels, buttons, check buttons, and radio
+ *	buttons.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkButton.c 1.128 96/03/01 17:34:49
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the button.  NULL
+				 * means that the window has been destroyed. */
+    Display *display;		/* Display containing widget.  Needed to
+				 * free up resources after tkwin is gone. */
+    Tcl_Interp *interp;		/* Interpreter associated with button. */
+    Tcl_Command widgetCmd;	/* Token for button's widget command. */
+    int type;			/* Type of widget:  restricts operations
+				 * that may be performed on widget.  See
+				 * below for possible values. */
+
+    /*
+     * Information about what's in the button.
+     */
+
+    char *text;			/* Text to display in button (malloc'ed)
+				 * or NULL. */
+    int numChars;		/* # of characters in text. */
+    int underline;		/* Index of character to underline.  < 0 means
+				 * don't underline anything. */
+    char *textVarName;		/* Name of variable (malloc'ed) or NULL.
+				 * If non-NULL, button displays the contents
+				 * of this variable. */
+    Pixmap bitmap;		/* Bitmap to display or None.  If not None
+				 * then text and textVar are ignored. */
+    char *imageString;		/* Name of image to display (malloc'ed), or
+				 * NULL.  If non-NULL, bitmap, text, and
+				 * textVarName are ignored. */
+    Tk_Image image;		/* Image to display in window, or NULL if
+				 * none. */
+    char *selectImageString;	/* Name of image to display when selected
+				 * (malloc'ed), or NULL. */
+    Tk_Image selectImage;	/* Image to display in window when selected,
+				 * or NULL if none.  Ignored if image is
+				 * NULL. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_Uid state;		/* State of button for display purposes:
+				 * normal, active, or disabled. */
+    Tk_3DBorder normalBorder;	/* Structure used to draw 3-D
+				 * border and background when window
+				 * isn't active.  NULL means no such
+				 * border exists. */
+    Tk_3DBorder activeBorder;	/* Structure used to draw 3-D
+				 * border and background when window
+				 * is active.  NULL means no such
+				 * border exists. */
+    int borderWidth;		/* Width of border. */
+    int relief;			/* 3-d effect: TK_RELIEF_RAISED, etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *normalFg;		/* Foreground color in normal mode. */
+    XColor *activeFg;		/* Foreground color in active mode.  NULL
+				 * means use normalFg instead. */
+    XColor *disabledFg;		/* Foreground color when disabled.  NULL
+				 * means use normalFg with a 50% stipple
+				 * instead. */
+    GC normalTextGC;		/* GC for drawing text in normal mode.  Also
+				 * used to copy from off-screen pixmap onto
+				 * screen. */
+    GC activeTextGC;		/* GC for drawing text in active mode (NULL
+				 * means use normalTextGC). */
+    Pixmap gray;		/* Pixmap for displaying disabled text if
+				 * disabledFg is NULL. */
+    GC disabledGC;		/* Used to produce disabled effect.  If
+				 * disabledFg isn't NULL, this GC is used to
+				 * draw button text or icon.  Otherwise
+				 * text or icon is drawn with normalGC and
+				 * this GC is used to stipple background
+				 * across it.  For labels this is None. */
+    GC copyGC;			/* Used for copying information from an
+				 * off-screen pixmap to the screen. */
+    char *widthString;		/* Value of -width option.  Malloc'ed. */
+    char *heightString;		/* Value of -height option.  Malloc'ed. */
+    int width, height;		/* If > 0, these specify dimensions to request
+				 * for window, in characters for text and in
+				 * pixels for bitmaps.  In this case the actual
+				 * size of the text string or bitmap is
+				 * ignored in computing desired window size. */
+    int wrapLength;		/* Line length (in pixels) at which to wrap
+				 * onto next line.  <= 0 means don't wrap
+				 * except at newlines. */
+    int padX, padY;		/* Extra space around text (pixels to leave
+				 * on each side).  Ignored for bitmaps and
+				 * images. */
+    Tk_Anchor anchor;		/* Where text/bitmap should be displayed
+				 * inside button region. */
+    Tk_Justify justify;		/* Justification to use for multi-line text. */
+    int indicatorOn;		/* True means draw indicator, false means
+				 * don't draw it. */
+    Tk_3DBorder selectBorder;	/* For drawing indicator background, or perhaps
+				 * widget background, when selected. */
+    int textWidth;		/* Width needed to display text as requested,
+				 * in pixels. */
+    int textHeight;		/* Height needed to display text as requested,
+				 * in pixels. */
+    int indicatorSpace;		/* Horizontal space (in pixels) allocated for
+				 * display of indicator. */
+    int indicatorDiameter;	/* Diameter of indicator, in pixels. */
+
+    /*
+     * For check and radio buttons, the fields below are used
+     * to manage the variable indicating the button's state.
+     */
+
+    char *selVarName;		/* Name of variable used to control selected
+				 * state of button.  Malloc'ed (if
+				 * not NULL). */
+    char *onValue;		/* Value to store in variable when
+				 * this button is selected.  Malloc'ed (if
+				 * not NULL). */
+    char *offValue;		/* Value to store in variable when this
+				 * button isn't selected.  Malloc'ed
+				 * (if not NULL).  Valid only for check
+				 * buttons. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    char *command;		/* Command to execute when button is
+				 * invoked; valid for buttons only.
+				 * If not NULL, it's malloc-ed. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+#ifdef STk_CODE
+    int string;			/* if true the value of the variable associated
+ 				 * to the button must be "stringified"
+				 */
+#endif
+} Button;
+
+/*
+ * Possible "type" values for buttons.  These are the kinds of
+ * widgets supported by this file.  The ordering of the type
+ * numbers is significant:  greater means more features and is
+ * used in the code.
+ */
+
+#define TYPE_LABEL		0
+#define TYPE_BUTTON		1
+#define TYPE_CHECK_BUTTON	2
+#define TYPE_RADIO_BUTTON	3
+
+/*
+ * Class names for buttons, indexed by one of the type values above.
+ */
+
+static char *classNames[] = {"Label", "Button", "Checkbutton", "Radiobutton"};
+
+/*
+ * Flag bits for buttons:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * SELECTED:			Non-zero means this button is selected,
+ *				so special highlight should be drawn.
+ * GOT_FOCUS:			Non-zero means this button currently
+ *				has the input focus.
+ */
+
+#define REDRAW_PENDING		1
+#define SELECTED		2
+#define GOT_FOCUS		4
+
+/*
+ * Mask values used to selectively enable entries in the
+ * configuration specs:
+ */
+
+#define LABEL_MASK		TK_CONFIG_USER_BIT
+#define BUTTON_MASK		TK_CONFIG_USER_BIT << 1
+#define CHECK_BUTTON_MASK	TK_CONFIG_USER_BIT << 2
+#define RADIO_BUTTON_MASK	TK_CONFIG_USER_BIT << 3
+#define ALL_MASK		(LABEL_MASK | BUTTON_MASK \
+	| CHECK_BUTTON_MASK | RADIO_BUTTON_MASK)
+
+static int configFlags[] = {LABEL_MASK, BUTTON_MASK,
+	CHECK_BUTTON_MASK, RADIO_BUTTON_MASK};
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_BUTTON_ACTIVE_BG_COLOR, Tk_Offset(Button, activeBorder),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK
+	|TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_BUTTON_ACTIVE_BG_MONO, Tk_Offset(Button, activeBorder),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK
+	|TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_BUTTON_ACTIVE_FG_COLOR, Tk_Offset(Button, activeFg), 
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK
+	|TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_BUTTON_ACTIVE_FG_MONO, Tk_Offset(Button, activeFg), 
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK
+	|TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_ANCHOR, "-anchor", "anchor", "Anchor",
+	DEF_BUTTON_ANCHOR, Tk_Offset(Button, anchor), ALL_MASK},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_BUTTON_BG_COLOR, Tk_Offset(Button, normalBorder),
+	ALL_MASK | TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_BUTTON_BG_MONO, Tk_Offset(Button, normalBorder),
+	ALL_MASK | TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, ALL_MASK},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, ALL_MASK},
+    {TK_CONFIG_BITMAP, "-bitmap", "bitmap", "Bitmap",
+	DEF_BUTTON_BITMAP, Tk_Offset(Button, bitmap),
+	ALL_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_BUTTON_BORDER_WIDTH, Tk_Offset(Button, borderWidth), ALL_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-command", "command", "Command",
+#else
+    {TK_CONFIG_STRING, "-command", "command", "Command",
+#endif
+	DEF_BUTTON_COMMAND, Tk_Offset(Button, command),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_BUTTON_CURSOR, Tk_Offset(Button, cursor),
+	ALL_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_BUTTON_DISABLED_FG_COLOR,
+	Tk_Offset(Button, disabledFg), BUTTON_MASK|CHECK_BUTTON_MASK
+	|RADIO_BUTTON_MASK|TK_CONFIG_COLOR_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_BUTTON_DISABLED_FG_MONO,
+	Tk_Offset(Button, disabledFg), BUTTON_MASK|CHECK_BUTTON_MASK
+	|RADIO_BUTTON_MASK|TK_CONFIG_MONO_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, ALL_MASK},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_BUTTON_FONT, Tk_Offset(Button, fontPtr),
+	ALL_MASK},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_BUTTON_FG, Tk_Offset(Button, normalFg), ALL_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-height", "height", "Height",
+#else
+    {TK_CONFIG_STRING, "-height", "height", "Height",
+#endif
+	DEF_BUTTON_HEIGHT, Tk_Offset(Button, heightString), ALL_MASK},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_BUTTON_HIGHLIGHT_BG,
+	Tk_Offset(Button, highlightBgColorPtr), ALL_MASK},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_BUTTON_HIGHLIGHT, Tk_Offset(Button, highlightColorPtr),
+	ALL_MASK},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_LABEL_HIGHLIGHT_WIDTH, Tk_Offset(Button, highlightWidth),
+	LABEL_MASK},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_BUTTON_HIGHLIGHT_WIDTH, Tk_Offset(Button, highlightWidth),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+    {TK_CONFIG_STRING, "-image", "image", "Image",
+	DEF_BUTTON_IMAGE, Tk_Offset(Button, imageString),
+	ALL_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-indicatoron", "indicatorOn", "IndicatorOn",
+	DEF_BUTTON_INDICATOR, Tk_Offset(Button, indicatorOn),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+    {TK_CONFIG_JUSTIFY, "-justify", "justify", "Justify",
+	DEF_BUTTON_JUSTIFY, Tk_Offset(Button, justify), ALL_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_BSTRING, "-offvalue", "offValue", "Value",
+#else
+    {TK_CONFIG_STRING, "-offvalue", "offValue", "Value",
+#endif
+	DEF_BUTTON_OFF_VALUE, Tk_Offset(Button, offValue),
+	CHECK_BUTTON_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_BSTRING, "-onvalue", "onValue", "Value",
+#else
+    {TK_CONFIG_STRING, "-onvalue", "onValue", "Value",
+#endif
+	DEF_BUTTON_ON_VALUE, Tk_Offset(Button, onValue),
+	CHECK_BUTTON_MASK},
+    {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
+	DEF_BUTTON_PADX, Tk_Offset(Button, padX), BUTTON_MASK},
+    {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
+	DEF_LABCHKRAD_PADX, Tk_Offset(Button, padX),
+	LABEL_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+    {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
+	DEF_BUTTON_PADY, Tk_Offset(Button, padY), BUTTON_MASK},
+    {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
+	DEF_LABCHKRAD_PADY, Tk_Offset(Button, padY),
+	LABEL_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_BUTTON_RELIEF, Tk_Offset(Button, relief), BUTTON_MASK},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_LABCHKRAD_RELIEF, Tk_Offset(Button, relief),
+	LABEL_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+    {TK_CONFIG_BORDER, "-selectcolor", "selectColor", "Background",
+	DEF_BUTTON_SELECT_COLOR, Tk_Offset(Button, selectBorder),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_COLOR_ONLY
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BORDER, "-selectcolor", "selectColor", "Background",
+	DEF_BUTTON_SELECT_MONO, Tk_Offset(Button, selectBorder),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_MONO_ONLY
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-selectimage", "selectImage", "SelectImage",
+	DEF_BUTTON_SELECT_IMAGE, Tk_Offset(Button, selectImageString),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-state", "state", "State",
+	DEF_BUTTON_STATE, Tk_Offset(Button, state),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_BOOLEAN, "-stringvalue", "stringvalue", "StringValue",
+	"#f", Tk_Offset(Button, string),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK},
+#endif
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_LABEL_TAKE_FOCUS, Tk_Offset(Button, takeFocus),
+	LABEL_MASK|TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_BUTTON_TAKE_FOCUS, Tk_Offset(Button, takeFocus),
+	BUTTON_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-text", "text", "Text",
+	DEF_BUTTON_TEXT, Tk_Offset(Button, text), ALL_MASK},
+    {TK_CONFIG_STRING, "-textvariable", "textVariable", "Variable",
+	DEF_BUTTON_TEXT_VARIABLE, Tk_Offset(Button, textVarName),
+	ALL_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-underline", "underline", "Underline",
+	DEF_BUTTON_UNDERLINE, Tk_Offset(Button, underline), ALL_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_BSTRING, "-value", "value", "Value",
+#else
+    {TK_CONFIG_STRING, "-value", "value", "Value",
+#endif
+	DEF_BUTTON_VALUE, Tk_Offset(Button, onValue),
+	RADIO_BUTTON_MASK},
+    {TK_CONFIG_STRING, "-variable", "variable", "Variable",
+	DEF_RADIOBUTTON_VARIABLE, Tk_Offset(Button, selVarName),
+	RADIO_BUTTON_MASK},
+    {TK_CONFIG_STRING, "-variable", "variable", "Variable",
+	DEF_CHECKBUTTON_VARIABLE, Tk_Offset(Button, selVarName),
+	CHECK_BUTTON_MASK|TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-width", "width", "Width",
+#else
+    {TK_CONFIG_STRING, "-width", "width", "Width",
+#endif
+	DEF_BUTTON_WIDTH, Tk_Offset(Button, widthString), ALL_MASK},
+    {TK_CONFIG_PIXELS, "-wraplength", "wrapLength", "WrapLength",
+	DEF_BUTTON_WRAP_LENGTH, Tk_Offset(Button, wrapLength), ALL_MASK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * String to print out in error messages, identifying options for
+ * widget commands for different types of labels or buttons:
+ */
+
+static char *optionStrings[] = {
+    "cget or configure",
+    "cget, configure, flash, or invoke",
+    "cget, configure, deselect, flash, invoke, select, or toggle",
+    "cget, configure, deselect, flash, invoke, or select"
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ButtonCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static int		ButtonCreate _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv,
+			    int type));
+static void		ButtonEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		ButtonImageProc _ANSI_ARGS_((ClientData clientData,
+			    int x, int y, int width, int height,
+			    int imgWidth, int imgHeight));
+static void		ButtonSelectImageProc _ANSI_ARGS_((
+			    ClientData clientData, int x, int y, int width,
+			    int height, int imgWidth, int imgHeight));
+static char *		ButtonTextVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static char *		ButtonVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static int		ButtonWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		ComputeButtonGeometry _ANSI_ARGS_((Button *butPtr));
+static int		ConfigureButton _ANSI_ARGS_((Tcl_Interp *interp,
+			    Button *butPtr, int argc, char **argv,
+			    int flags));
+static void		DestroyButton _ANSI_ARGS_((Button *butPtr));
+static void		DisplayButton _ANSI_ARGS_((ClientData clientData));
+static int		InvokeButton  _ANSI_ARGS_((Button *butPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ButtonCmd, Tk_CheckbuttonCmd, Tk_LabelCmd, Tk_RadiobuttonCmd --
+ *
+ *	These procedures are invoked to process the "button", "label",
+ *	"radiobutton", and "checkbutton" Tcl commands.  See the
+ *	user documentation for details on what they do.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.  These procedures are just wrappers;
+ *	they call ButtonCreate to do all of the real work.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ButtonCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return ButtonCreate(clientData, interp, argc, argv, TYPE_BUTTON);
+}
+
+int
+Tk_CheckbuttonCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return ButtonCreate(clientData, interp, argc, argv, TYPE_CHECK_BUTTON);
+}
+
+int
+Tk_LabelCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return ButtonCreate(clientData, interp, argc, argv, TYPE_LABEL);
+}
+
+int
+Tk_RadiobuttonCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return ButtonCreate(clientData, interp, argc, argv, TYPE_RADIO_BUTTON);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ButtonCreate --
+ *
+ *	This procedure does all the real work of implementing the
+ *	"button", "label", "radiobutton", and "checkbutton" Tcl
+ *	commands.  See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ButtonCreate(clientData, interp, argc, argv, type)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+    int type;			/* Type of button to create: TYPE_LABEL,
+				 * TYPE_BUTTON, TYPE_CHECK_BUTTON, or
+				 * TYPE_RADIO_BUTTON. */
+{
+    register Button *butPtr;
+    Tk_Window tkwin = (Tk_Window) clientData;
+    Tk_Window new;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Create the new window.
+     */
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize the data structure for the button.
+     */
+
+    butPtr = (Button *) ckalloc(sizeof(Button));
+    butPtr->tkwin = new;
+    butPtr->display = Tk_Display(new);
+    butPtr->widgetCmd = Tcl_CreateCommand(interp, Tk_PathName(butPtr->tkwin),
+	    ButtonWidgetCmd, (ClientData) butPtr, ButtonCmdDeletedProc);
+    butPtr->interp = interp;
+    butPtr->type = type;
+    butPtr->text = NULL;
+    butPtr->numChars = 0;
+    butPtr->underline = -1;
+    butPtr->textVarName = NULL;
+    butPtr->bitmap = None;
+    butPtr->imageString = NULL;
+    butPtr->image = NULL;
+    butPtr->selectImageString = NULL;
+    butPtr->selectImage = NULL;
+    butPtr->state = tkNormalUid;
+    butPtr->normalBorder = NULL;
+    butPtr->activeBorder = NULL;
+    butPtr->borderWidth = 0;
+    butPtr->relief = TK_RELIEF_FLAT;
+    butPtr->highlightWidth = 0;
+    butPtr->highlightBgColorPtr = NULL;
+    butPtr->highlightColorPtr = NULL;
+    butPtr->inset = 0;
+    butPtr->fontPtr = NULL;
+    butPtr->normalFg = NULL;
+    butPtr->activeFg = NULL;
+    butPtr->disabledFg = NULL;
+    butPtr->normalTextGC = None;
+    butPtr->activeTextGC = None;
+    butPtr->gray = None;
+    butPtr->disabledGC = None;
+    butPtr->copyGC = None;
+    butPtr->widthString = NULL;
+    butPtr->heightString = NULL;
+    butPtr->width = 0;
+    butPtr->height = 0;
+    butPtr->wrapLength = 0;
+    butPtr->padX = 0;
+    butPtr->padY = 0;
+    butPtr->anchor = TK_ANCHOR_CENTER;
+    butPtr->justify = TK_JUSTIFY_CENTER;
+    butPtr->indicatorOn = 0;
+    butPtr->selectBorder = NULL;
+    butPtr->indicatorSpace = 0;
+    butPtr->indicatorDiameter = 0;
+    butPtr->selVarName = NULL;
+    butPtr->onValue = NULL;
+    butPtr->offValue = NULL;
+    butPtr->cursor = None;
+    butPtr->command = NULL;
+    butPtr->takeFocus = NULL;
+    butPtr->flags = 0;
+#ifdef STk_CODE
+    butPtr->string = 0;
+#endif
+
+    Tk_SetClass(new, classNames[type]);
+    Tk_CreateEventHandler(butPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    ButtonEventProc, (ClientData) butPtr);
+    if (ConfigureButton(interp, butPtr, argc-2, argv+2,
+	    configFlags[type]) != TCL_OK) {
+	Tk_DestroyWindow(butPtr->tkwin);
+	return TCL_ERROR;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(butPtr->tkwin));
+#else
+    interp->result = Tk_PathName(butPtr->tkwin);
+#endif
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ButtonWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ButtonWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about button widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Button *butPtr = (Button *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+#ifdef STk_CODE
+    int flag;
+#endif
+
+    if (argc < 2) {
+	sprintf(interp->result,
+		"wrong # args: should be \"%.50s option ?arg arg ...?\"",
+		argv[0]);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) butPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, butPtr->tkwin, configSpecs,
+		(char *) butPtr, argv[2], configFlags[butPtr->type]);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, butPtr->tkwin, configSpecs,
+		    (char *) butPtr, (char *) NULL, configFlags[butPtr->type]);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, butPtr->tkwin, configSpecs,
+		    (char *) butPtr, argv[2],
+		    configFlags[butPtr->type]);
+	} else {
+	    result = ConfigureButton(interp, butPtr, argc-2, argv+2,
+		    configFlags[butPtr->type] | TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "deselect", length) == 0)
+	    && (butPtr->type >= TYPE_CHECK_BUTTON)) {
+	if (argc > 2) {
+	    sprintf(interp->result,
+		    "wrong # args: should be \"%.50s deselect\"",
+		    argv[0]);
+	    goto error;
+	}
+#ifdef STk_CODE
+	flag = (butPtr->string)? STk_STRINGIFY : 0;
+#endif
+	if (butPtr->type == TYPE_CHECK_BUTTON) {
+	    if (Tcl_SetVar(interp, butPtr->selVarName, butPtr->offValue,
+#ifdef STk_CODE
+		    flag |
+#endif
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		result = TCL_ERROR;
+	    }
+	} else if (butPtr->flags & SELECTED) {
+#ifdef STk_CODE
+	    if (Tcl_SetVar(interp, butPtr->selVarName, "#t",
+		   flag|
+#else
+	    if (Tcl_SetVar(interp, butPtr->selVarName, "",
+#endif
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		result = TCL_ERROR;
+	    };
+	}
+    } else if ((c == 'f') && (strncmp(argv[1], "flash", length) == 0)
+	    && (butPtr->type != TYPE_LABEL)) {
+	int i;
+
+	if (argc > 2) {
+	    sprintf(interp->result,
+		    "wrong # args: should be \"%.50s flash\"",
+		    argv[0]);
+	    goto error;
+	}
+	if (butPtr->state != tkDisabledUid) {
+	    for (i = 0; i < 4; i++) {
+		butPtr->state = (butPtr->state == tkNormalUid)
+			? tkActiveUid : tkNormalUid;
+		Tk_SetBackgroundFromBorder(butPtr->tkwin,
+			(butPtr->state == tkActiveUid) ? butPtr->activeBorder
+			: butPtr->normalBorder);
+		DisplayButton((ClientData) butPtr);
+
+		/*
+		 * Special note: must cancel any existing idle handler
+		 * for DisplayButton;  it's no longer needed, and DisplayButton
+		 * cleared the REDRAW_PENDING flag.
+		 */
+
+		Tcl_CancelIdleCall(DisplayButton, (ClientData) butPtr);
+		XFlush(butPtr->display);
+		Tcl_Sleep(50);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "invoke", length) == 0)
+	    && (butPtr->type > TYPE_LABEL)) {
+	if (argc > 2) {
+	    sprintf(interp->result,
+		    "wrong # args: should be \"%.50s invoke\"",
+		    argv[0]);
+	    goto error;
+	}
+	if (butPtr->state != tkDisabledUid) {
+	    result = InvokeButton(butPtr);
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "select", length) == 0)
+	    && (butPtr->type >= TYPE_CHECK_BUTTON)) {
+	if (argc > 2) {
+	    sprintf(interp->result,
+		    "wrong # args: should be \"%.50s select\"",
+		    argv[0]);
+	    goto error;
+	}
+	if (Tcl_SetVar(interp, butPtr->selVarName, butPtr->onValue,
+#ifdef STk_CODE
+	       ((butPtr->string)? STk_STRINGIFY:0) |
+#endif
+		TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+
+	    result = TCL_ERROR;
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "toggle", length) == 0)
+	    && (length >= 2) && (butPtr->type == TYPE_CHECK_BUTTON)) {
+	if (argc > 2) {
+	    sprintf(interp->result,
+		    "wrong # args: should be \"%.50s toggle\"",
+		    argv[0]);
+	    goto error;
+	}
+	if (butPtr->flags & SELECTED) {
+	    if (Tcl_SetVar(interp, butPtr->selVarName, butPtr->offValue,
+#ifdef STk_CODE
+	            ((butPtr->string)? STk_STRINGIFY:0) |
+#endif
+		    TCL_GLOBAL_ONLY) == NULL) {
+		result = TCL_ERROR;
+	    }
+	} else {
+	    if (Tcl_SetVar(interp, butPtr->selVarName, butPtr->onValue,
+#ifdef STk_CODE
+	            ((butPtr->string)? STk_STRINGIFY:0) |
+#endif
+		    TCL_GLOBAL_ONLY) == NULL) {
+		result = TCL_ERROR;
+	    }
+	}
+    } else {
+	sprintf(interp->result,
+		"bad option \"%.50s\": must be %s", argv[1],
+		optionStrings[butPtr->type]);
+	goto error;
+    }
+    Tcl_Release((ClientData) butPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) butPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyButton --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a button at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the widget is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyButton(butPtr)
+    Button *butPtr;		/* Info about button widget. */
+{
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (butPtr->textVarName != NULL) {
+	Tcl_UntraceVar(butPtr->interp, butPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonTextVarProc, (ClientData) butPtr);
+    }
+    if (butPtr->image != NULL) {
+	Tk_FreeImage(butPtr->image);
+    }
+    if (butPtr->selectImage != NULL) {
+	Tk_FreeImage(butPtr->selectImage);
+    }
+    if (butPtr->normalTextGC != None) {
+	Tk_FreeGC(butPtr->display, butPtr->normalTextGC);
+    }
+    if (butPtr->activeTextGC != None) {
+	Tk_FreeGC(butPtr->display, butPtr->activeTextGC);
+    }
+    if (butPtr->gray != None) {
+	Tk_FreeBitmap(butPtr->display, butPtr->gray);
+    }
+    if (butPtr->disabledGC != None) {
+	Tk_FreeGC(butPtr->display, butPtr->disabledGC);
+    }
+    if (butPtr->copyGC != None) {
+	Tk_FreeGC(butPtr->display, butPtr->copyGC);
+    }
+    if (butPtr->selVarName != NULL) {
+	Tcl_UntraceVar(butPtr->interp, butPtr->selVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonVarProc, (ClientData) butPtr);
+    }
+    Tk_FreeOptions(configSpecs, (char *) butPtr, butPtr->display,
+	    configFlags[butPtr->type]);
+    Tcl_EventuallyFree((ClientData)butPtr, TCL_DYNAMIC);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureButton --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a button widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as text string, colors, font,
+ *	etc. get set for butPtr;  old resources get freed, if there
+ *	were any.  The button is redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureButton(interp, butPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Button *butPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    Tk_Image image;
+
+
+    /*
+     * Eliminate any existing trace on variables monitored by the button.
+     */
+
+    if (butPtr->textVarName != NULL) {
+	Tcl_UntraceVar(interp, butPtr->textVarName, 
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonTextVarProc, (ClientData) butPtr);
+    }
+    if (butPtr->selVarName != NULL) {
+	Tcl_UntraceVar(interp, butPtr->selVarName, 
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonVarProc, (ClientData) butPtr);
+    }
+
+    if (Tk_ConfigureWidget(interp, butPtr->tkwin, configSpecs,
+	    argc, argv, (char *) butPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as setting the
+     * background from a 3-D border, or filling in complicated
+     * defaults that couldn't be specified to Tk_ConfigureWidget.
+     */
+
+    if ((butPtr->state == tkActiveUid) && !Tk_StrictMotif(butPtr->tkwin)) {
+	Tk_SetBackgroundFromBorder(butPtr->tkwin, butPtr->activeBorder);
+    } else {
+	Tk_SetBackgroundFromBorder(butPtr->tkwin, butPtr->normalBorder);
+	if ((butPtr->state != tkNormalUid) && (butPtr->state != tkActiveUid)
+		&& (butPtr->state != tkDisabledUid)) {
+	    Tcl_AppendResult(interp, "bad state value \"", butPtr->state,
+		    "\": must be normal, active, or disabled", (char *) NULL);
+	    butPtr->state = tkNormalUid;
+	    return TCL_ERROR;
+	}
+    }
+
+    if (butPtr->highlightWidth < 0) {
+	butPtr->highlightWidth = 0;
+    }
+
+    gcValues.font = butPtr->fontPtr->fid;
+    gcValues.foreground = butPtr->normalFg->pixel;
+    gcValues.background = Tk_3DBorderColor(butPtr->normalBorder)->pixel;
+    
+    /*
+     * Note: GraphicsExpose events are disabled in normalTextGC because it's
+     * used to copy stuff from an off-screen pixmap onto the screen (we know
+     * that there's no problem with obscured areas).
+     */
+
+    gcValues.graphics_exposures = False;
+    newGC = Tk_GetGC(butPtr->tkwin,
+	    GCForeground|GCBackground|GCFont|GCGraphicsExposures,
+	    &gcValues);
+    if (butPtr->normalTextGC != None) {
+	Tk_FreeGC(butPtr->display, butPtr->normalTextGC);
+    }
+    butPtr->normalTextGC = newGC;
+
+    if (butPtr->activeFg != NULL) {
+	gcValues.font = butPtr->fontPtr->fid;
+	gcValues.foreground = butPtr->activeFg->pixel;
+	gcValues.background = Tk_3DBorderColor(butPtr->activeBorder)->pixel;
+	newGC = Tk_GetGC(butPtr->tkwin,
+		GCForeground|GCBackground|GCFont, &gcValues);
+	if (butPtr->activeTextGC != None) {
+	    Tk_FreeGC(butPtr->display, butPtr->activeTextGC);
+	}
+	butPtr->activeTextGC = newGC;
+    }
+
+    if (butPtr->type != TYPE_LABEL) {
+	gcValues.font = butPtr->fontPtr-> fid;
+	gcValues.background = Tk_3DBorderColor(butPtr->normalBorder)->pixel;
+	if ((butPtr->disabledFg != NULL) && (butPtr->imageString == NULL)) {
+	    gcValues.foreground = butPtr->disabledFg->pixel;
+	    mask = GCForeground|GCBackground|GCFont;
+	} else {
+	    gcValues.foreground = gcValues.background;
+	    if (butPtr->gray == None) {
+		butPtr->gray = Tk_GetBitmap(interp, butPtr->tkwin,
+			Tk_GetUid("gray50"));
+		if (butPtr->gray == None) {
+		    return TCL_ERROR;
+		}
+	    }
+	    gcValues.fill_style = FillStippled;
+	    gcValues.stipple = butPtr->gray;
+	    mask = GCForeground|GCFillStyle|GCStipple;
+	}
+	newGC = Tk_GetGC(butPtr->tkwin, mask, &gcValues);
+	if (butPtr->disabledGC != None) {
+	    Tk_FreeGC(butPtr->display, butPtr->disabledGC);
+	}
+	butPtr->disabledGC = newGC;
+    }
+
+    if (butPtr->copyGC == None) {
+	butPtr->copyGC = Tk_GetGC(butPtr->tkwin, 0, &gcValues);
+    }
+
+    if (butPtr->padX < 0) {
+	butPtr->padX = 0;
+    }
+    if (butPtr->padY < 0) {
+	butPtr->padY = 0;
+    }
+
+    if (butPtr->type >= TYPE_CHECK_BUTTON) {
+	char *value;
+
+	if (butPtr->selVarName == NULL) {
+	    butPtr->selVarName = (char *) ckalloc((unsigned)
+		    (strlen(Tk_Name(butPtr->tkwin)) + 1));
+	    strcpy(butPtr->selVarName, Tk_Name(butPtr->tkwin));
+	}
+
+	/*
+	 * Select the button if the associated variable has the
+	 * appropriate value, initialize the variable if it doesn't
+	 * exist, then set a trace on the variable to monitor future
+	 * changes to its value.
+	 */
+
+	value = Tcl_GetVar(interp, butPtr->selVarName, TCL_GLOBAL_ONLY);
+	butPtr->flags &= ~SELECTED;
+	if (value != NULL) {
+	    if (strcmp(value, butPtr->onValue) == 0) {
+		butPtr->flags |= SELECTED;
+	    }
+	} else {
+	    if (Tcl_SetVar(interp, butPtr->selVarName,
+#ifdef STk_CODE
+		    (butPtr->type == TYPE_CHECK_BUTTON) ? butPtr->offValue : "#f",
+		    ((butPtr->string)? STk_STRINGIFY:0) |
+#else
+		    (butPtr->type == TYPE_CHECK_BUTTON) ? butPtr->offValue : "",
+#endif
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		return TCL_ERROR;
+	    }
+	}
+	Tcl_TraceVar(interp, butPtr->selVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonVarProc, (ClientData) butPtr);
+    }
+
+    /*
+     * Get the images for the widget, if there are any.  Allocate the
+     * new images before freeing the old ones, so that the reference
+     * counts don't go to zero and cause image data to be discarded.
+     */
+
+    if (butPtr->imageString != NULL) {
+	image = Tk_GetImage(butPtr->interp, butPtr->tkwin,
+		butPtr->imageString, ButtonImageProc, (ClientData) butPtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (butPtr->image != NULL) {
+	Tk_FreeImage(butPtr->image);
+    }
+    butPtr->image = image;
+    if (butPtr->selectImageString != NULL) {
+	image = Tk_GetImage(butPtr->interp, butPtr->tkwin,
+		butPtr->selectImageString, ButtonSelectImageProc,
+		(ClientData) butPtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (butPtr->selectImage != NULL) {
+	Tk_FreeImage(butPtr->selectImage);
+    }
+    butPtr->selectImage = image;
+
+    if ((butPtr->image == NULL) && (butPtr->bitmap == None)
+	    && (butPtr->textVarName != NULL)) {
+	/*
+	 * The button must display the value of a variable: set up a trace
+	 * on the variable's value, create the variable if it doesn't
+	 * exist, and fetch its current value.
+	 */
+
+	char *value;
+
+	value = Tcl_GetVar(interp, butPtr->textVarName, TCL_GLOBAL_ONLY);
+	if (value == NULL) {
+	    if (Tcl_SetVar(interp, butPtr->textVarName, butPtr->text,
+#ifdef STk_CODE
+	            ((butPtr->string)? STk_STRINGIFY:0) |
+#endif
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    if (butPtr->text != NULL) {
+		ckfree(butPtr->text);
+	    }
+	    butPtr->text = (char *) ckalloc((unsigned) (strlen(value) + 1));
+	    strcpy(butPtr->text, value);
+	}
+	Tcl_TraceVar(interp, butPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ButtonTextVarProc, (ClientData) butPtr);
+    }
+
+    if ((butPtr->bitmap != None) || (butPtr->image != NULL)) {
+	if (Tk_GetPixels(interp, butPtr->tkwin, butPtr->widthString,
+		&butPtr->width) != TCL_OK) {
+	    widthError:
+	    Tcl_AddErrorInfo(interp, "\n    (processing -width option)");
+	    return TCL_ERROR;
+	}
+	if (Tk_GetPixels(interp, butPtr->tkwin, butPtr->heightString,
+		&butPtr->height) != TCL_OK) {
+	    heightError:
+	    Tcl_AddErrorInfo(interp, "\n    (processing -height option)");
+	    return TCL_ERROR;
+	}
+    } else {
+	if (Tcl_GetInt(interp, butPtr->widthString, &butPtr->width)
+		!= TCL_OK) {
+	    goto widthError;
+	}
+	if (Tcl_GetInt(interp, butPtr->heightString, &butPtr->height)
+		!= TCL_OK) {
+	    goto heightError;
+	}
+    }
+    ComputeButtonGeometry(butPtr);
+
+    /*
+     * Lastly, arrange for the button to be redisplayed.
+     */
+
+    if (Tk_IsMapped(butPtr->tkwin) && !(butPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	butPtr->flags |= REDRAW_PENDING;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayButton --
+ *
+ *	This procedure is invoked to display a button widget.  It is
+ *	normally invoked as an idle handler.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Commands are output to X to display the button in its
+ *	current mode.  The REDRAW_PENDING flag is cleared.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayButton(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    register Button *butPtr = (Button *) clientData;
+    GC gc;
+    Tk_3DBorder border;
+    Pixmap pixmap;
+    int x = 0;			/* Initialization only needed to stop
+				 * compiler warning. */
+    int y, relief;
+    register Tk_Window tkwin = butPtr->tkwin;
+    int width, height;
+    int offset;			/* 0 means this is a label widget.  1 means
+				 * it is a flavor of button, so we offset
+				 * the text to make the button appear to
+				 * move up and down as the relief changes. */
+
+    butPtr->flags &= ~REDRAW_PENDING;
+    if ((butPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    border = butPtr->normalBorder;
+    if ((butPtr->state == tkDisabledUid) && (butPtr->disabledFg != NULL)) {
+	gc = butPtr->disabledGC;
+    } else if ((butPtr->state == tkActiveUid)
+	    && !Tk_StrictMotif(butPtr->tkwin)) {
+	gc = butPtr->activeTextGC;
+	border = butPtr->activeBorder;
+    } else {
+	gc = butPtr->normalTextGC;
+    }
+    if ((butPtr->flags & SELECTED) && (butPtr->state != tkActiveUid)
+	    && (butPtr->selectBorder != NULL) && !butPtr->indicatorOn) {
+	border = butPtr->selectBorder;
+    }
+
+    /*
+     * Override the relief specified for the button if this is a
+     * checkbutton or radiobutton and there's no indicator.
+     */
+
+    relief = butPtr->relief;
+    if ((butPtr->type >= TYPE_CHECK_BUTTON) && !butPtr->indicatorOn) {
+	relief = (butPtr->flags & SELECTED) ? TK_RELIEF_SUNKEN
+		: TK_RELIEF_RAISED;
+    }
+
+    offset = (butPtr->type == TYPE_BUTTON) && !Tk_StrictMotif(butPtr->tkwin);
+
+    /*
+     * In order to avoid screen flashes, this procedure redraws
+     * the button in a pixmap, then copies the pixmap to the
+     * screen in a single operation.  This means that there's no
+     * point in time where the on-sreen image has been cleared.
+     */
+
+    pixmap = Tk_GetPixmap(butPtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+    Tk_Fill3DRectangle(tkwin, pixmap, border, 0, 0, Tk_Width(tkwin),
+	    Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
+
+    /*
+     * Display image or bitmap or text for button.
+     */
+
+    if (butPtr->image != None) {
+	Tk_SizeOfImage(butPtr->image, &width, &height);
+
+	imageOrBitmap:
+	switch (butPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_W: case TK_ANCHOR_SW:
+		x = butPtr->inset + butPtr->indicatorSpace + offset;
+		break;
+	    case TK_ANCHOR_N: case TK_ANCHOR_CENTER: case TK_ANCHOR_S:
+		x = ((int) (Tk_Width(tkwin) + butPtr->indicatorSpace
+			- width))/2;
+		break;
+	    default:
+		x = Tk_Width(tkwin) - butPtr->inset - width - offset;
+		break;
+	}
+	switch (butPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_N: case TK_ANCHOR_NE:
+		y = butPtr->inset + offset;
+		break;
+	    case TK_ANCHOR_W: case TK_ANCHOR_CENTER: case TK_ANCHOR_E:
+		y = ((int) (Tk_Height(tkwin) - height))/2;
+		break;
+	    default:
+		y = Tk_Height(tkwin) - butPtr->inset - height - offset;
+		break;
+	}
+	if (relief == TK_RELIEF_RAISED) {
+	    x -= offset;
+	    y -= offset;
+	} else if (relief == TK_RELIEF_SUNKEN) {
+	    x += offset;
+	    y += offset;
+	}
+	if (butPtr->image != NULL) {
+	    if ((butPtr->selectImage != NULL) && (butPtr->flags & SELECTED)) {
+		Tk_RedrawImage(butPtr->selectImage, 0, 0, width, height, pixmap,
+			x, y);
+	    } else {
+		Tk_RedrawImage(butPtr->image, 0, 0, width, height, pixmap,
+			x, y);
+	    }
+	} else {
+	    XSetClipOrigin(butPtr->display, gc, x, y);
+	    XCopyPlane(butPtr->display, butPtr->bitmap, pixmap, gc, 0, 0,
+		    (unsigned int) width, (unsigned int) height, x, y, 1);
+	    XSetClipOrigin(butPtr->display, gc, 0, 0);
+	}
+	y += height/2;
+    } else if (butPtr->bitmap != None) {
+	Tk_SizeOfBitmap(butPtr->display, butPtr->bitmap, &width, &height);
+	goto imageOrBitmap;
+    } else {
+	switch (butPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_W: case TK_ANCHOR_SW:
+		x = butPtr->inset + butPtr->padX + butPtr->indicatorSpace
+			+ offset;
+		break;
+	    case TK_ANCHOR_N: case TK_ANCHOR_CENTER: case TK_ANCHOR_S:
+		x = ((int) (Tk_Width(tkwin) + butPtr->indicatorSpace
+			- butPtr->textWidth))/2;
+		break;
+	    default:
+		x = Tk_Width(tkwin) - butPtr->inset - butPtr->padX
+			- butPtr->textWidth - offset;
+		break;
+	}
+	switch (butPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_N: case TK_ANCHOR_NE:
+		y = butPtr->inset + butPtr->padY + offset;
+		break;
+	    case TK_ANCHOR_W: case TK_ANCHOR_CENTER: case TK_ANCHOR_E:
+		y = ((int) (Tk_Height(tkwin) - butPtr->textHeight))/2;
+		break;
+	    default:
+		y = Tk_Height(tkwin) - butPtr->inset - butPtr->padY
+			- butPtr->textHeight - offset;
+		break;
+	}
+	if (relief == TK_RELIEF_RAISED) {
+	    x -= offset;
+	    y -= offset;
+	} else if (relief == TK_RELIEF_SUNKEN) {
+	    x += offset;
+	    y += offset;
+	}
+	TkDisplayText(butPtr->display, pixmap, butPtr->fontPtr,
+		butPtr->text, butPtr->numChars, x, y, butPtr->textWidth,
+		butPtr->justify, butPtr->underline, gc);
+	y += butPtr->textHeight/2;
+    }
+
+    /*
+     * Draw the indicator for check buttons and radio buttons.  At this
+     * point x and y refer to the top-left corner of the text or image
+     * or bitmap.
+     */
+
+    if ((butPtr->type == TYPE_CHECK_BUTTON) && butPtr->indicatorOn) {
+	int dim;
+
+	dim = butPtr->indicatorDiameter;
+	x -= butPtr->indicatorSpace;
+	y -= dim/2;
+	if (dim > 2*butPtr->borderWidth) {
+	    Tk_Draw3DRectangle(tkwin, pixmap, border, x, y, dim, dim,
+		    butPtr->borderWidth, 
+		    (butPtr->flags & SELECTED) ? TK_RELIEF_SUNKEN :
+		    TK_RELIEF_RAISED);
+	    x += butPtr->borderWidth;
+	    y += butPtr->borderWidth;
+	    dim -= 2*butPtr->borderWidth;
+	    if (butPtr->flags & SELECTED) {
+		GC gc;
+
+		gc = Tk_3DBorderGC(tkwin,(butPtr->selectBorder != NULL)
+			? butPtr->selectBorder : butPtr->normalBorder,
+			TK_3D_FLAT_GC);
+		XFillRectangle(butPtr->display, pixmap, gc, x, y,
+			(unsigned int) dim, (unsigned int) dim);
+	    } else {
+		Tk_Fill3DRectangle(tkwin, pixmap, butPtr->normalBorder, x, y,
+			dim, dim, butPtr->borderWidth, TK_RELIEF_FLAT);
+	    }
+	}
+    } else if ((butPtr->type == TYPE_RADIO_BUTTON) && butPtr->indicatorOn) {
+	XPoint points[4];
+	int radius;
+
+	radius = butPtr->indicatorDiameter/2;
+	points[0].x = x - butPtr->indicatorSpace;
+	points[0].y = y;
+	points[1].x = points[0].x + radius;
+	points[1].y = points[0].y + radius;
+	points[2].x = points[1].x + radius;
+	points[2].y = points[0].y;
+	points[3].x = points[1].x;
+	points[3].y = points[0].y - radius;
+	if (butPtr->flags & SELECTED) {
+	    GC gc;
+
+	    gc = Tk_3DBorderGC(tkwin, (butPtr->selectBorder != NULL)
+		    ? butPtr->selectBorder : butPtr->normalBorder,
+		    TK_3D_FLAT_GC);
+	    XFillPolygon(butPtr->display, pixmap, gc, points, 4, Convex,
+		    CoordModeOrigin);
+	} else {
+	    Tk_Fill3DPolygon(tkwin, pixmap, butPtr->normalBorder, points,
+		    4, butPtr->borderWidth, TK_RELIEF_FLAT);
+	}
+	Tk_Draw3DPolygon(tkwin, pixmap, border, points, 4, butPtr->borderWidth,
+		(butPtr->flags & SELECTED) ? TK_RELIEF_SUNKEN :
+		TK_RELIEF_RAISED);
+    }
+
+    /*
+     * If the button is disabled with a stipple rather than a special
+     * foreground color, generate the stippled effect.  If the widget
+     * is selected and we use a different background color when selected,
+     * must temporarily modify the GC.
+     */
+
+    if ((butPtr->state == tkDisabledUid)
+	    && ((butPtr->disabledFg == NULL) || (butPtr->image != NULL))) {
+	if ((butPtr->flags & SELECTED) && !butPtr->indicatorOn
+		&& (butPtr->selectBorder != NULL)) {
+	    XSetForeground(butPtr->display, butPtr->disabledGC,
+		    Tk_3DBorderColor(butPtr->selectBorder)->pixel);
+	}
+	XFillRectangle(butPtr->display, pixmap, butPtr->disabledGC,
+		butPtr->inset, butPtr->inset,
+		(unsigned) (Tk_Width(tkwin) - 2*butPtr->inset),
+		(unsigned) (Tk_Height(tkwin) - 2*butPtr->inset));
+	if ((butPtr->flags & SELECTED) && !butPtr->indicatorOn
+		&& (butPtr->selectBorder != NULL)) {
+	    XSetForeground(butPtr->display, butPtr->disabledGC,
+		    Tk_3DBorderColor(butPtr->normalBorder)->pixel);
+	}
+    }
+
+    /*
+     * Draw the border and traversal highlight last.  This way, if the
+     * button's contents overflow they'll be covered up by the border.
+     */
+
+    if (relief != TK_RELIEF_FLAT) {
+	Tk_Draw3DRectangle(tkwin, pixmap, border,
+		butPtr->highlightWidth, butPtr->highlightWidth,
+		Tk_Width(tkwin) - 2*butPtr->highlightWidth,
+		Tk_Height(tkwin) - 2*butPtr->highlightWidth,
+		butPtr->borderWidth, relief);
+    }
+    if (butPtr->highlightWidth != 0) {
+	GC gc;
+
+	if (butPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(butPtr->highlightColorPtr, pixmap);
+	} else {
+	    gc = Tk_GCForColor(butPtr->highlightBgColorPtr, pixmap);
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, butPtr->highlightWidth, pixmap);
+    }
+
+    /*
+     * Copy the information from the off-screen pixmap onto the screen,
+     * then delete the pixmap.
+     */
+
+    XCopyArea(butPtr->display, pixmap, Tk_WindowId(tkwin),
+	    butPtr->copyGC, 0, 0, (unsigned) Tk_Width(tkwin),
+	    (unsigned) Tk_Height(tkwin), 0, 0);
+    Tk_FreePixmap(butPtr->display, pixmap);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ButtonEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on buttons.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ButtonEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Button *butPtr = (Button *) clientData;
+    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
+	goto redraw;
+    } else if (eventPtr->type == ConfigureNotify) {
+	/*
+	 * Must redraw after size changes, since layout could have changed
+	 * and borders will need to be redrawn.
+	 */
+
+	goto redraw;
+    } else if (eventPtr->type == DestroyNotify) {
+	if (butPtr->tkwin != NULL) {
+	    butPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(butPtr->interp,
+		    Tcl_GetCommandName(butPtr->interp, butPtr->widgetCmd));
+	}
+	if (butPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayButton, (ClientData) butPtr);
+	}
+	DestroyButton(butPtr);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    butPtr->flags |= GOT_FOCUS;
+	    if (butPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    butPtr->flags &= ~GOT_FOCUS;
+	    if (butPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    }
+    return;
+
+    redraw:
+    if ((butPtr->tkwin != NULL) && !(butPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	butPtr->flags |= REDRAW_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ButtonCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ButtonCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Button *butPtr = (Button *) clientData;
+    Tk_Window tkwin = butPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	butPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeButtonGeometry --
+ *
+ *	After changes in a button's text or bitmap, this procedure
+ *	recomputes the button's geometry and passes this information
+ *	along to the geometry manager for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The button's window may change size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ComputeButtonGeometry(butPtr)
+    register Button *butPtr;	/* Button whose geometry may have changed. */
+{
+    int width, height;
+
+    if (butPtr->highlightWidth < 0) {
+	butPtr->highlightWidth = 0;
+    }
+    butPtr->inset = butPtr->highlightWidth + butPtr->borderWidth;
+    butPtr->indicatorSpace = 0;
+    if (butPtr->image != NULL) {
+	Tk_SizeOfImage(butPtr->image, &width, &height);
+	imageOrBitmap:
+	if (butPtr->width > 0) {
+	    width = butPtr->width;
+	}
+	if (butPtr->height > 0) {
+	    height = butPtr->height;
+	}
+	if ((butPtr->type >= TYPE_CHECK_BUTTON) && butPtr->indicatorOn) {
+	    butPtr->indicatorSpace = height;
+	    if (butPtr->type == TYPE_CHECK_BUTTON) {
+		butPtr->indicatorDiameter = (65*height)/100;
+	    } else {
+		butPtr->indicatorDiameter = (75*height)/100;
+	    }
+	}
+    } else if (butPtr->bitmap != None) {
+	Tk_SizeOfBitmap(butPtr->display, butPtr->bitmap, &width, &height);
+	goto imageOrBitmap;
+    } else {
+	butPtr->numChars = strlen(butPtr->text);
+	TkComputeTextGeometry(butPtr->fontPtr, butPtr->text,
+		butPtr->numChars, butPtr->wrapLength, &butPtr->textWidth,
+		&butPtr->textHeight);
+	width = butPtr->textWidth;
+	height = butPtr->textHeight;
+	if (butPtr->width > 0) {
+	    width = butPtr->width * XTextWidth(butPtr->fontPtr, "0", 1);
+	}
+	if (butPtr->height > 0) {
+	    height = butPtr->height * (butPtr->fontPtr->ascent
+		    + butPtr->fontPtr->descent);
+	}
+	if ((butPtr->type >= TYPE_CHECK_BUTTON) && butPtr->indicatorOn) {
+	    butPtr->indicatorDiameter = butPtr->fontPtr->ascent
+		    + butPtr->fontPtr->descent;
+	    if (butPtr->type == TYPE_CHECK_BUTTON) {
+		butPtr->indicatorDiameter = (80*butPtr->indicatorDiameter)/100;
+	    }
+	    butPtr->indicatorSpace = butPtr->indicatorDiameter
+		+ XTextWidth(butPtr->fontPtr, "0", 1);
+	}
+    }
+
+    /*
+     * When issuing the geometry request, add extra space for the indicator,
+     * if any, and for the border and padding, plus two extra pixels so the
+     * display can be offset by 1 pixel in either direction for the raised
+     * or lowered effect.
+     */
+
+    if ((butPtr->image == NULL) && (butPtr->bitmap == None)) {
+	width += 2*butPtr->padX;
+	height += 2*butPtr->padY;
+    }
+    if ((butPtr->type == TYPE_BUTTON) && !Tk_StrictMotif(butPtr->tkwin)) {
+	width += 2;
+	height += 2;
+    }
+    Tk_GeometryRequest(butPtr->tkwin, (int) (width + butPtr->indicatorSpace
+	    + 2*butPtr->inset), (int) (height + 2*butPtr->inset));
+    Tk_SetInternalBorder(butPtr->tkwin, butPtr->inset);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InvokeButton --
+ *
+ *	This procedure is called to carry out the actions associated
+ *	with a button, such as invoking a Tcl command or setting a
+ *	variable.  This procedure is invoked, for example, when the
+ *	button is invoked via the mouse.
+ *
+ * Results:
+ *	A standard Tcl return value.  Information is also left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	Depends on the button and its associated command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+InvokeButton(butPtr)
+    register Button *butPtr;		/* Information about button. */
+{
+#ifdef STk_CODE
+  int flag = (butPtr->string? STk_STRINGIFY : 0)|TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG;
+#endif
+
+    if (butPtr->type == TYPE_CHECK_BUTTON) {
+	if (butPtr->flags & SELECTED) {
+	    if (Tcl_SetVar(butPtr->interp, butPtr->selVarName, butPtr->offValue,
+#ifdef STk_CODE
+		    flag) == NULL) {
+#else
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+#endif
+		return TCL_ERROR;
+	    }
+	} else {
+	    if (Tcl_SetVar(butPtr->interp, butPtr->selVarName, butPtr->onValue,
+#ifdef STk_CODE
+		    flag) == NULL) {
+#else
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+#endif
+		return TCL_ERROR;
+	    }
+	}
+    } else if (butPtr->type == TYPE_RADIO_BUTTON) {
+	if (Tcl_SetVar(butPtr->interp, butPtr->selVarName, butPtr->onValue,
+#ifdef STk_CODE
+		flag) == NULL) {
+#else
+		TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+#endif
+	    return TCL_ERROR;
+	}
+    }
+    if ((butPtr->type != TYPE_LABEL) && (butPtr->command != NULL)) {
+	return TkCopyAndGlobalEval(butPtr->interp, butPtr->command);
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ButtonVarProc --
+ *
+ *	This procedure is invoked when someone changes the
+ *	state variable associated with a radio button.  Depending
+ *	on the new value of the button's variable, the button
+ *	may be selected or deselected.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The button may become selected or deselected.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+ButtonVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about button. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    register Button *butPtr = (Button *) clientData;
+    char *value;
+
+    /*
+     * If the variable is being unset, then just re-establish the
+     * trace unless the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	butPtr->flags &= ~SELECTED;
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_TraceVar(interp, butPtr->selVarName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    ButtonVarProc, clientData);
+	}
+	goto redisplay;
+    }
+
+    /*
+     * Use the value of the variable to update the selected status of
+     * the button.
+     */
+
+    value = Tcl_GetVar(interp, butPtr->selVarName, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (strcmp(value, butPtr->onValue) == 0) {
+	if (butPtr->flags & SELECTED) {
+	    return (char *) NULL;
+	}
+	butPtr->flags |= SELECTED;
+    } else if (butPtr->flags & SELECTED) {
+	butPtr->flags &= ~SELECTED;
+    } else {
+	return (char *) NULL;
+    }
+
+    redisplay:
+    if ((butPtr->tkwin != NULL) && Tk_IsMapped(butPtr->tkwin)
+	    && !(butPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	butPtr->flags |= REDRAW_PENDING;
+    }
+    return (char *) NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ButtonTextVarProc --
+ *
+ *	This procedure is invoked when someone changes the variable
+ *	whose contents are to be displayed in a button.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The text displayed in the button will change to match the
+ *	variable.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+ButtonTextVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about button. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Not used. */
+    char *name2;		/* Not used. */
+    int flags;			/* Information about what happened. */
+{
+    register Button *butPtr = (Button *) clientData;
+    char *value;
+
+    /*
+     * If the variable is unset, then immediately recreate it unless
+     * the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_SetVar(interp, butPtr->textVarName, butPtr->text,
+#ifdef STk_CODE
+		   (butPtr->string? STk_STRINGIFY: 0) |
+#endif
+		    TCL_GLOBAL_ONLY);
+	    Tcl_TraceVar(interp, butPtr->textVarName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    ButtonTextVarProc, clientData);
+	}
+	return (char *) NULL;
+    }
+
+    value = Tcl_GetVar(interp, butPtr->textVarName, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (butPtr->text != NULL) {
+	ckfree(butPtr->text);
+    }
+    butPtr->text = (char *) ckalloc((unsigned) (strlen(value) + 1));
+    strcpy(butPtr->text, value);
+    ComputeButtonGeometry(butPtr);
+
+    if ((butPtr->tkwin != NULL) && Tk_IsMapped(butPtr->tkwin)
+	    && !(butPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	butPtr->flags |= REDRAW_PENDING;
+    }
+    return (char *) NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ButtonImageProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the size of contents
+ *	of an image displayed in a button.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for the button to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ButtonImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to widget record. */
+    int x, y;				/* Upper left pixel (within image)
+					 * that must be redisplayed. */
+    int width, height;			/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    register Button *butPtr = (Button *) clientData;
+
+    if (butPtr->tkwin != NULL) {
+	ComputeButtonGeometry(butPtr);
+	if (Tk_IsMapped(butPtr->tkwin) && !(butPtr->flags & REDRAW_PENDING)) {
+	    Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	    butPtr->flags |= REDRAW_PENDING;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ButtonSelectImageProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the size of contents
+ *	of the image displayed in a button when it is selected.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May arrange for the button to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ButtonSelectImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to widget record. */
+    int x, y;				/* Upper left pixel (within image)
+					 * that must be redisplayed. */
+    int width, height;			/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    register Button *butPtr = (Button *) clientData;
+
+    /*
+     * Don't recompute geometry:  it's controlled by the primary image.
+     */
+
+    if ((butPtr->flags & SELECTED) && (butPtr->tkwin != NULL)
+	    && Tk_IsMapped(butPtr->tkwin)
+	    && !(butPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayButton, (ClientData) butPtr);
+	butPtr->flags |= REDRAW_PENDING;
+    }
+}
diff --git a/Tk/generic/tkCanvArc.c b/Tk/generic/tkCanvArc.c
new file mode 100644
index 0000000..186e644
--- /dev/null
+++ b/Tk/generic/tkCanvArc.c
@@ -0,0 +1,1724 @@
+/* 
+ * tkCanvArc.c --
+ *
+ *	This file implements arc items for canvas widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvArc.c 1.32 96/02/17 16:59:09
+ */
+
+#include <stdio.h>
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The structure below defines the record for each arc item.
+ */
+
+typedef struct ArcItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    double bbox[4];		/* Coordinates (x1, y1, x2, y2) of bounding
+				 * box for oval of which arc is a piece. */
+    double start;		/* Angle at which arc begins, in degrees
+				 * between 0 and 360. */
+    double extent;		/* Extent of arc (angular distance from
+				 * start to end of arc) in degrees between
+				 * -360 and 360. */
+    double *outlinePtr;		/* Points to (x,y) coordinates for points
+				 * that define one or two closed polygons
+				 * representing the portion of the outline
+				 * that isn't part of the arc (the V-shape
+				 * for a pie slice or a line-like segment
+				 * for a chord).  Malloc'ed. */
+    int numOutlinePoints;	/* Number of points at outlinePtr.  Zero
+				 * means no space allocated. */
+    int width;			/* Width of outline (in pixels). */
+    XColor *outlineColor;	/* Color for outline.  NULL means don't
+				 * draw outline. */
+    XColor *fillColor;		/* Color for filling arc (used for drawing
+				 * outline too when style is "arc").  NULL
+				 * means don't fill arc. */
+    Pixmap fillStipple;		/* Stipple bitmap for filling item. */
+    Pixmap outlineStipple;	/* Stipple bitmap for outline. */
+    Tk_Uid style;		/* How to draw arc: arc, chord, or pieslice. */
+    GC outlineGC;		/* Graphics context for outline. */
+    GC fillGC;			/* Graphics context for filling item. */
+    double center1[2];		/* Coordinates of center of arc outline at
+				 * start (see ComputeArcOutline). */
+    double center2[2];		/* Coordinates of center of arc outline at
+				 * start+extent (see ComputeArcOutline). */
+} ArcItem;
+
+/*
+ * The definitions below define the sizes of the polygons used to
+ * display outline information for various styles of arcs:
+ */
+
+#define CHORD_OUTLINE_PTS	7
+#define PIE_OUTLINE1_PTS	6
+#define PIE_OUTLINE2_PTS	7
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_DOUBLE, "-extent", (char *) NULL, (char *) NULL,
+	"90", Tk_Offset(ArcItem, extent), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_COLOR, "-fill", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(ArcItem, fillColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-outline", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(ArcItem, outlineColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-outlinestipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(ArcItem, outlineStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_DOUBLE, "-start", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(ArcItem, start), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BITMAP, "-stipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(ArcItem, fillStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-style", (char *) NULL, (char *) NULL,
+	"pieslice", Tk_Offset(ArcItem, style), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"1", Tk_Offset(ArcItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ComputeArcBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    ArcItem *arcPtr));
+static int		ConfigureArc _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateArc _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteArc _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayArc _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static int		ArcCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv));
+static int		ArcToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		ArcToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *coordPtr));
+static int		ArcToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static void		ScaleArc _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateArc _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+static int		AngleInRange _ANSI_ARGS_((double x, double y,
+			    double start, double extent));
+static void		ComputeArcOutline _ANSI_ARGS_((ArcItem *arcPtr));
+static int		HorizLineToArc _ANSI_ARGS_((double x1, double x2,
+			    double y, double rx, double ry,
+			    double start, double extent));
+static int		VertLineToArc _ANSI_ARGS_((double x, double y1,
+			    double y2, double rx, double ry,
+			    double start, double extent));
+
+/*
+ * The structures below defines the arc item types by means of procedures
+ * that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkArcType = {
+    "arc",				/* name */
+    sizeof(ArcItem),			/* itemSize */
+    CreateArc,				/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureArc,			/* configureProc */
+    ArcCoords,				/* coordProc */
+    DeleteArc,				/* deleteProc */
+    DisplayArc,				/* displayProc */
+    0,					/* alwaysRedraw */
+    ArcToPoint,				/* pointProc */
+    ArcToArea,				/* areaProc */
+    ArcToPostscript,			/* postscriptProc */
+    ScaleArc,				/* scaleProc */
+    TranslateArc,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+#ifndef PI
+#    define PI 3.14159265358979323846
+#endif
+
+/*
+ * The uid's below comprise the legal values for the "-style"
+ * option for arcs.
+ */
+
+static Tk_Uid arcUid =  NULL;
+static Tk_Uid chordUid =  NULL;
+static Tk_Uid pieSliceUid = NULL;
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateArc --
+ *
+ *	This procedure is invoked to create a new arc item in
+ *	a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is
+ *	left uninitialized, so it can be safely freed by the
+ *	caller.
+ *
+ * Side effects:
+ *	A new arc item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateArc(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing arc. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+
+    if (argc < 4) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x1 y1 x2 y2 ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Carry out once-only initialization.
+     */
+
+    if (arcUid == NULL) {
+	arcUid = Tk_GetUid("arc");
+	chordUid = Tk_GetUid("chord");
+	pieSliceUid = Tk_GetUid("pieslice");
+    }
+
+    /*
+     * Carry out initialization that is needed in order to clean
+     * up after errors during the the remainder of this procedure.
+     */
+
+    arcPtr->start = 0;
+    arcPtr->extent = 90;
+    arcPtr->outlinePtr = NULL;
+    arcPtr->numOutlinePoints = 0;
+    arcPtr->width = 1;
+    arcPtr->outlineColor = NULL;
+    arcPtr->fillColor = NULL;
+    arcPtr->fillStipple = None;
+    arcPtr->outlineStipple = None;
+    arcPtr->style = pieSliceUid;
+    arcPtr->outlineGC = None;
+    arcPtr->fillGC = None;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &arcPtr->bbox[0]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		&arcPtr->bbox[1]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[2],
+		    &arcPtr->bbox[2]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[3],
+		    &arcPtr->bbox[3]) != TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureArc(interp, canvas, itemPtr, argc-4, argv+4, 0) != TCL_OK) {
+	DeleteArc(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArcCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on arcs.  See the user documentation for details
+ *	on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ArcCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    char c0[TCL_DOUBLE_SPACE], c1[TCL_DOUBLE_SPACE];
+    char c2[TCL_DOUBLE_SPACE], c3[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, arcPtr->bbox[0], c0);
+	Tcl_PrintDouble(interp, arcPtr->bbox[1], c1);
+	Tcl_PrintDouble(interp, arcPtr->bbox[2], c2);
+	Tcl_PrintDouble(interp, arcPtr->bbox[3], c3);
+	Tcl_AppendResult(interp, c0, " ", c1, " ", c2, " ", c3,
+		(char *) NULL);
+    } else if (argc == 4) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0],
+		    &arcPtr->bbox[0]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		    &arcPtr->bbox[1]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[2],
+			&arcPtr->bbox[2]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[3],
+			&arcPtr->bbox[3]) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeArcBbox(canvas, arcPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 4, got %d",
+		argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureArc --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a arc item, such as its outline and fill colors.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information, such as colors and stipple
+ *	patterns, may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureArc(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Arc item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    int i;
+    Tk_Window tkwin;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) arcPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as
+     * style and graphics contexts.
+     */
+
+    i = arcPtr->start/360.0;
+    arcPtr->start -= i*360.0;
+    if (arcPtr->start < 0) {
+	arcPtr->start += 360.0;
+    }
+    i = arcPtr->extent/360.0;
+    arcPtr->extent -= i*360.0;
+
+    if ((arcPtr->style != arcUid) && (arcPtr->style != chordUid)
+	    && (arcPtr->style != pieSliceUid)) {
+	Tcl_AppendResult(interp, "bad -style option \"",
+		arcPtr->style, "\": must be arc, chord, or pieslice",
+		(char *) NULL);
+	arcPtr->style = pieSliceUid;
+	return TCL_ERROR;
+    }
+
+    if (arcPtr->width < 0) {
+	arcPtr->width = 1;
+    }
+    if (arcPtr->outlineColor == NULL) {
+	newGC = None;
+    } else {
+	gcValues.foreground = arcPtr->outlineColor->pixel;
+	gcValues.cap_style = CapButt;
+	gcValues.line_width = arcPtr->width;
+	mask = GCForeground|GCCapStyle|GCLineWidth;
+	if (arcPtr->outlineStipple != None) {
+	    gcValues.stipple = arcPtr->outlineStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCStipple|GCFillStyle;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (arcPtr->outlineGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), arcPtr->outlineGC);
+    }
+    arcPtr->outlineGC = newGC;
+
+    if ((arcPtr->fillColor == NULL) || (arcPtr->style == arcUid)) {
+	newGC = None;
+    } else {
+	gcValues.foreground = arcPtr->fillColor->pixel;
+	if (arcPtr->style == chordUid) {
+	    gcValues.arc_mode = ArcChord;
+	} else {
+	    gcValues.arc_mode = ArcPieSlice;
+	}
+	mask = GCForeground|GCArcMode;
+	if (arcPtr->fillStipple != None) {
+	    gcValues.stipple = arcPtr->fillStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCStipple|GCFillStyle;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (arcPtr->fillGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), arcPtr->fillGC);
+    }
+    arcPtr->fillGC = newGC;
+
+    ComputeArcBbox(canvas, arcPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteArc --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a arc item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteArc(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+
+    if (arcPtr->numOutlinePoints != 0) {
+	ckfree((char *) arcPtr->outlinePtr);
+    }
+    if (arcPtr->outlineColor != NULL) {
+	Tk_FreeColor(arcPtr->outlineColor);
+    }
+    if (arcPtr->fillColor != NULL) {
+	Tk_FreeColor(arcPtr->fillColor);
+    }
+    if (arcPtr->fillStipple != None) {
+	Tk_FreeBitmap(display, arcPtr->fillStipple);
+    }
+    if (arcPtr->outlineStipple != None) {
+	Tk_FreeBitmap(display, arcPtr->outlineStipple);
+    }
+    if (arcPtr->outlineGC != None) {
+	Tk_FreeGC(display, arcPtr->outlineGC);
+    }
+    if (arcPtr->fillGC != None) {
+	Tk_FreeGC(display, arcPtr->fillGC);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeArcBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of an arc.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ComputeArcBbox(canvas, arcPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    ArcItem *arcPtr;			/* Item whose bbox is to be
+					 * recomputed. */
+{
+    double tmp, center[2], point[2];
+
+    /*
+     * Make sure that the first coordinates are the lowest ones.
+     */
+
+    if (arcPtr->bbox[1] > arcPtr->bbox[3]) {
+	double tmp;
+	tmp = arcPtr->bbox[3];
+	arcPtr->bbox[3] = arcPtr->bbox[1];
+	arcPtr->bbox[1] = tmp;
+    }
+    if (arcPtr->bbox[0] > arcPtr->bbox[2]) {
+	double tmp;
+	tmp = arcPtr->bbox[2];
+	arcPtr->bbox[2] = arcPtr->bbox[0];
+	arcPtr->bbox[0] = tmp;
+    }
+
+    ComputeArcOutline(arcPtr);
+
+    /*
+     * To compute the bounding box, start with the the bbox formed
+     * by the two endpoints of the arc.  Then add in the center of
+     * the arc's oval (if relevant) and the 3-o'clock, 6-o'clock,
+     * 9-o'clock, and 12-o'clock positions, if they are relevant.
+     */
+
+    arcPtr->header.x1 = arcPtr->header.x2 = arcPtr->center1[0];
+    arcPtr->header.y1 = arcPtr->header.y2 = arcPtr->center1[1];
+    TkIncludePoint((Tk_Item *) arcPtr, arcPtr->center2);
+    center[0] = (arcPtr->bbox[0] + arcPtr->bbox[2])/2;
+    center[1] = (arcPtr->bbox[1] + arcPtr->bbox[3])/2;
+    if (arcPtr->style != arcUid) {
+	TkIncludePoint((Tk_Item *) arcPtr, center);
+    }
+
+    tmp = -arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	point[0] = arcPtr->bbox[2];
+	point[1] = center[1];
+	TkIncludePoint((Tk_Item *) arcPtr, point);
+    }
+    tmp = 90.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	point[0] = center[0];
+	point[1] = arcPtr->bbox[1];
+	TkIncludePoint((Tk_Item *) arcPtr, point);
+    }
+    tmp = 180.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	point[0] = arcPtr->bbox[0];
+	point[1] = center[1];
+	TkIncludePoint((Tk_Item *) arcPtr, point);
+    }
+    tmp = 270.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	point[0] = center[0];
+	point[1] = arcPtr->bbox[3];
+	TkIncludePoint((Tk_Item *) arcPtr, point);
+    }
+
+    /*
+     * Lastly, expand by the width of the arc (if the arc's outline is
+     * being drawn) and add one extra pixel just for safety.
+     */
+
+    if (arcPtr->outlineColor == NULL) {
+	tmp = 1;
+    } else {
+	tmp = (arcPtr->width + 1)/2 + 1;
+    }
+    arcPtr->header.x1 -= tmp;
+    arcPtr->header.y1 -= tmp;
+    arcPtr->header.x2 += tmp;
+    arcPtr->header.y2 += tmp;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayArc --
+ *
+ *	This procedure is invoked to draw an arc item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayArc(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    short x1, y1, x2, y2;
+    int start, extent;
+
+    /*
+     * Compute the screen coordinates of the bounding box for the item,
+     * plus integer values for the angles.
+     */
+
+    Tk_CanvasDrawableCoords(canvas, arcPtr->bbox[0], arcPtr->bbox[1],
+	    &x1, &y1);
+    Tk_CanvasDrawableCoords(canvas, arcPtr->bbox[2], arcPtr->bbox[3],
+	    &x2, &y2);
+    if (x2 <= x1) {
+	x2 = x1+1;
+    }
+    if (y2 <= y1) {
+	y2 = y1+1;
+    }
+    start = (64*arcPtr->start) + 0.5;
+    extent = (64*arcPtr->extent) + 0.5;
+
+    /*
+     * Display filled arc first (if wanted), then outline.  If the extent
+     * is zero then don't invoke XFillArc or XDrawArc, since this causes
+     * some window servers to crash and should be a no-op anyway.
+     */
+
+    if ((arcPtr->fillGC != None) && (extent != 0)) {
+	if (arcPtr->fillStipple != None) {
+	    Tk_CanvasSetStippleOrigin(canvas, arcPtr->fillGC);
+	}
+	XFillArc(display, drawable, arcPtr->fillGC, x1, y1, (unsigned) (x2-x1),
+		(unsigned) (y2-y1), start, extent);
+	if (arcPtr->fillStipple != None) {
+	    XSetTSOrigin(display, arcPtr->fillGC, 0, 0);
+	}
+    }
+    if (arcPtr->outlineGC != None) {
+	if (arcPtr->outlineStipple != None) {
+	    Tk_CanvasSetStippleOrigin(canvas, arcPtr->outlineGC);
+	}
+	if (extent != 0) {
+	    XDrawArc(display, drawable, arcPtr->outlineGC, x1, y1,
+		    (unsigned) (x2-x1), (unsigned) (y2-y1), start, extent);
+	}
+
+	/*
+	 * If the outline width is very thin, don't use polygons to draw
+	 * the linear parts of the outline (this often results in nothing
+	 * being displayed); just draw lines instead.
+	 */
+
+	if (arcPtr->width <= 2) {
+	    Tk_CanvasDrawableCoords(canvas, arcPtr->center1[0],
+		    arcPtr->center1[1], &x1, &y1);
+	    Tk_CanvasDrawableCoords(canvas, arcPtr->center2[0],
+		    arcPtr->center2[1], &x2, &y2);
+
+	    if (arcPtr->style == chordUid) {
+		XDrawLine(display, drawable, arcPtr->outlineGC,
+			x1, y1, x2, y2);
+	    } else if (arcPtr->style == pieSliceUid) {
+		short cx, cy;
+
+		Tk_CanvasDrawableCoords(canvas,
+			(arcPtr->bbox[0] + arcPtr->bbox[2])/2.0,
+			(arcPtr->bbox[1] + arcPtr->bbox[3])/2.0, &cx, &cy);
+		XDrawLine(display, drawable, arcPtr->outlineGC,
+			cx, cy, x1, y1);
+		XDrawLine(display, drawable, arcPtr->outlineGC,
+			cx, cy, x2, y2);
+	    }
+	} else {
+	    if (arcPtr->style == chordUid) {
+		TkFillPolygon(canvas, arcPtr->outlinePtr, CHORD_OUTLINE_PTS,
+			display, drawable, arcPtr->outlineGC, None);
+	    } else if (arcPtr->style == pieSliceUid) {
+		TkFillPolygon(canvas, arcPtr->outlinePtr, PIE_OUTLINE1_PTS,
+			display, drawable, arcPtr->outlineGC, None);
+		TkFillPolygon(canvas, arcPtr->outlinePtr + 2*PIE_OUTLINE1_PTS,
+			PIE_OUTLINE2_PTS, display, drawable, arcPtr->outlineGC,
+			None);
+	    }
+	}
+	if (arcPtr->outlineStipple != None) {
+	    XSetTSOrigin(display, arcPtr->outlineGC, 0, 0);
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArcToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	arc, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the arc.  If the
+ *	point isn't inside the arc then the return value is the
+ *	distance from the point to the arc.  If itemPtr is filled,
+ *	then anywhere in the interior is considered "inside"; if
+ *	itemPtr isn't filled, then "inside" means only the area
+ *	occupied by the outline.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+ArcToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    double vertex[2], pointAngle, diff, dist, newDist;
+    double poly[8], polyDist, width, t1, t2;
+    int filled, angleInRange;
+
+    if ((arcPtr->fillGC != None) || (arcPtr->outlineGC == None)) {
+	filled = 1;
+    } else {
+	filled = 0;
+    }
+
+    /*
+     * See if the point is within the angular range of the arc.
+     * Remember, X angles are backwards from the way we'd normally
+     * think of them.  Also, compensate for any eccentricity of
+     * the oval.
+     */
+
+    vertex[0] = (arcPtr->bbox[0] + arcPtr->bbox[2])/2.0;
+    vertex[1] = (arcPtr->bbox[1] + arcPtr->bbox[3])/2.0;
+    t1 = (pointPtr[1] - vertex[1])/(arcPtr->bbox[3] - arcPtr->bbox[1]);
+    t2 = (pointPtr[0] - vertex[0])/(arcPtr->bbox[2] - arcPtr->bbox[0]);
+    if ((t1 == 0.0) && (t2 == 0.0)) {
+	pointAngle = 0;
+    } else {
+	pointAngle = -atan2(t1, t2)*180/PI;
+    }
+    diff = pointAngle - arcPtr->start;
+    diff -= ((int) (diff/360.0) * 360.0);
+    if (diff < 0) {
+	diff += 360.0;
+    }
+    angleInRange = (diff <= arcPtr->extent) ||
+	    ((arcPtr->extent < 0) && ((diff - 360.0) >= arcPtr->extent));
+
+    /*
+     * Now perform different tests depending on what kind of arc
+     * we're dealing with.
+     */
+
+    if (arcPtr->style == arcUid) {
+	if (angleInRange) {
+	    return TkOvalToPoint(arcPtr->bbox, (double) arcPtr->width,
+		    0, pointPtr);
+	}
+	dist = hypot(pointPtr[0] - arcPtr->center1[0],
+		pointPtr[1] - arcPtr->center1[1]);
+	newDist = hypot(pointPtr[0] - arcPtr->center2[0],
+		pointPtr[1] - arcPtr->center2[1]);
+	if (newDist < dist) {
+	    return newDist;
+	}
+	return dist;
+    }
+
+    if ((arcPtr->fillGC != None) || (arcPtr->outlineGC == None)) {
+	filled = 1;
+    } else {
+	filled = 0;
+    }
+    if (arcPtr->outlineGC == None) {
+	width = 0.0;
+    } else {
+	width = arcPtr->width;
+    }
+
+    if (arcPtr->style == pieSliceUid) {
+	if (width > 1.0) {
+	    dist = TkPolygonToPoint(arcPtr->outlinePtr, PIE_OUTLINE1_PTS,
+		    pointPtr);
+	    newDist = TkPolygonToPoint(arcPtr->outlinePtr + 2*PIE_OUTLINE1_PTS,
+			PIE_OUTLINE2_PTS, pointPtr);
+	} else {
+	    dist = TkLineToPoint(vertex, arcPtr->center1, pointPtr);
+	    newDist = TkLineToPoint(vertex, arcPtr->center2, pointPtr);
+	}
+	if (newDist < dist) {
+	    dist = newDist;
+	}
+	if (angleInRange) {
+	    newDist = TkOvalToPoint(arcPtr->bbox, width, filled, pointPtr);
+	    if (newDist < dist) {
+		dist = newDist;
+	    }
+	}
+	return dist;
+    }
+
+    /*
+     * This is a chord-style arc.  We have to deal specially with the
+     * triangular piece that represents the difference between a
+     * chord-style arc and a pie-slice arc (for small angles this piece
+     * is excluded here where it would be included for pie slices;
+     * for large angles the piece is included here but would be
+     * excluded for pie slices).
+     */
+
+    if (width > 1.0) {
+	dist = TkPolygonToPoint(arcPtr->outlinePtr, CHORD_OUTLINE_PTS,
+		    pointPtr);
+    } else {
+	dist = TkLineToPoint(arcPtr->center1, arcPtr->center2, pointPtr);
+    }
+    poly[0] = poly[6] = vertex[0];
+    poly[1] = poly[7] = vertex[1];
+    poly[2] = arcPtr->center1[0];
+    poly[3] = arcPtr->center1[1];
+    poly[4] = arcPtr->center2[0];
+    poly[5] = arcPtr->center2[1];
+    polyDist = TkPolygonToPoint(poly, 4, pointPtr);
+    if (angleInRange) {
+	if ((arcPtr->extent < -180.0) || (arcPtr->extent > 180.0)
+		|| (polyDist > 0.0)) {
+	    newDist = TkOvalToPoint(arcPtr->bbox, width, filled, pointPtr);
+	    if (newDist < dist) {
+		dist = newDist;
+	    }
+	}
+    } else {
+	if ((arcPtr->extent < -180.0) || (arcPtr->extent > 180.0)) {
+	    if (filled && (polyDist < dist)) {
+		dist = polyDist;
+	    }
+	}
+    }
+    return dist;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArcToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given area.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ArcToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against arc. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    double rx, ry;		/* Radii for transformed oval:  these define
+				 * an oval centered at the origin. */
+    double tRect[4];		/* Transformed version of x1, y1, x2, y2,
+				 * for coord. system where arc is centered
+				 * on the origin. */
+    double center[2], width, angle, tmp;
+    double points[20], *pointPtr;
+    int numPoints, filled;
+    int inside;			/* Non-zero means every test so far suggests
+				 * that arc is inside rectangle.  0 means
+				 * every test so far shows arc to be outside
+				 * of rectangle. */
+    int newInside;
+
+    if ((arcPtr->fillGC != None) || (arcPtr->outlineGC == None)) {
+	filled = 1;
+    } else {
+	filled = 0;
+    }
+    if (arcPtr->outlineGC == None) {
+	width = 0.0;
+    } else {
+	width = arcPtr->width;
+    }
+
+    /*
+     * Transform both the arc and the rectangle so that the arc's oval
+     * is centered on the origin.
+     */
+
+    center[0] = (arcPtr->bbox[0] + arcPtr->bbox[2])/2.0;
+    center[1] = (arcPtr->bbox[1] + arcPtr->bbox[3])/2.0;
+    tRect[0] = rectPtr[0] - center[0];
+    tRect[1] = rectPtr[1] - center[1];
+    tRect[2] = rectPtr[2] - center[0];
+    tRect[3] = rectPtr[3] - center[1];
+    rx = arcPtr->bbox[2] - center[0] + width/2.0;
+    ry = arcPtr->bbox[3] - center[1] + width/2.0;
+
+    /*
+     * Find the extreme points of the arc and see whether these are all
+     * inside the rectangle (in which case we're done), partly in and
+     * partly out (in which case we're done), or all outside (in which
+     * case we have more work to do).  The extreme points include the
+     * following, which are checked in order:
+     *
+     * 1. The outside points of the arc, corresponding to start and
+     *	  extent.
+     * 2. The center of the arc (but only in pie-slice mode).
+     * 3. The 12, 3, 6, and 9-o'clock positions (but only if the arc
+     *    includes those angles).
+     */
+
+    pointPtr = points;
+    numPoints = 0;
+    angle = -arcPtr->start*(PI/180.0);
+    pointPtr[0] = rx*cos(angle);
+    pointPtr[1] = ry*sin(angle);
+    angle += -arcPtr->extent*(PI/180.0);
+    pointPtr[2] = rx*cos(angle);
+    pointPtr[3] = ry*sin(angle);
+    numPoints = 2;
+    pointPtr += 4;
+
+    if ((arcPtr->style == pieSliceUid) && (arcPtr->extent < 180.0)) {
+	pointPtr[0] = 0.0;
+	pointPtr[1] = 0.0;
+	numPoints++;
+	pointPtr += 2;
+    }
+
+    tmp = -arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	pointPtr[0] = rx;
+	pointPtr[1] = 0.0;
+	numPoints++;
+	pointPtr += 2;
+    }
+    tmp = 90.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	pointPtr[0] = 0.0;
+	pointPtr[1] = -ry;
+	numPoints++;
+	pointPtr += 2;
+    }
+    tmp = 180.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	pointPtr[0] = -rx;
+	pointPtr[1] = 0.0;
+	numPoints++;
+	pointPtr += 2;
+    }
+    tmp = 270.0 - arcPtr->start;
+    if (tmp < 0) {
+	tmp += 360.0;
+    }
+    if ((tmp < arcPtr->extent) || ((tmp-360) > arcPtr->extent)) {
+	pointPtr[0] = 0.0;
+	pointPtr[1] = ry;
+	numPoints++;
+	pointPtr += 2;
+    }
+
+    /*
+     * Now that we've located the extreme points, loop through them all
+     * to see which are inside the rectangle.
+     */
+
+    inside = (points[0] > tRect[0]) && (points[0] < tRect[2])
+	    && (points[1] > tRect[1]) && (points[1] < tRect[3]);
+    for (pointPtr = points+2; numPoints > 1; pointPtr += 2, numPoints--) {
+	newInside = (pointPtr[0] > tRect[0]) && (pointPtr[0] < tRect[2])
+		&& (pointPtr[1] > tRect[1]) && (pointPtr[1] < tRect[3]);
+	if (newInside != inside) {
+	    return 0;
+	}
+    }
+
+    if (inside) {
+	return 1;
+    }
+
+    /*
+     * So far, oval appears to be outside rectangle, but can't yet tell
+     * for sure.  Next, test each of the four sides of the rectangle
+     * against the bounding region for the arc.  If any intersections
+     * are found, then return "overlapping".  First, test against the
+     * polygon(s) forming the sides of a chord or pie-slice.
+     */
+
+    if (arcPtr->style == pieSliceUid) {
+	if (width >= 1.0) {
+	    if (TkPolygonToArea(arcPtr->outlinePtr, PIE_OUTLINE1_PTS,
+		    rectPtr) != -1)  {
+		return 0;
+	    }
+	    if (TkPolygonToArea(arcPtr->outlinePtr + 2*PIE_OUTLINE1_PTS,
+		    PIE_OUTLINE2_PTS, rectPtr) != -1) {
+		return 0;
+	    }
+	} else {
+	    if ((TkLineToArea(center, arcPtr->center1, rectPtr) != -1) ||
+		    (TkLineToArea(center, arcPtr->center2, rectPtr) != -1)) {
+		return 0;
+	    }
+	}
+    } else if (arcPtr->style == chordUid) {
+	if (width >= 1.0) {
+	    if (TkPolygonToArea(arcPtr->outlinePtr, CHORD_OUTLINE_PTS,
+		    rectPtr) != -1) {
+		return 0;
+	    }
+	} else {
+	    if (TkLineToArea(arcPtr->center1, arcPtr->center2,
+		    rectPtr) != -1) {
+		return 0;
+	    }
+	}
+    }
+
+    /*
+     * Next check for overlap between each of the four sides and the
+     * outer perimiter of the arc.  If the arc isn't filled, then also
+     * check the inner perimeter of the arc.
+     */
+
+    if (HorizLineToArc(tRect[0], tRect[2], tRect[1], rx, ry, arcPtr->start,
+		arcPtr->extent)
+	    || HorizLineToArc(tRect[0], tRect[2], tRect[3], rx, ry,
+		arcPtr->start, arcPtr->extent)
+	    || VertLineToArc(tRect[0], tRect[1], tRect[3], rx, ry,
+		arcPtr->start, arcPtr->extent)
+	    || VertLineToArc(tRect[2], tRect[1], tRect[3], rx, ry,
+		arcPtr->start, arcPtr->extent)) {
+	return 0;
+    }
+    if ((width > 1.0) && !filled) {
+	rx -= width;
+	ry -= width;
+	if (HorizLineToArc(tRect[0], tRect[2], tRect[1], rx, ry, arcPtr->start,
+		    arcPtr->extent)
+		|| HorizLineToArc(tRect[0], tRect[2], tRect[3], rx, ry,
+		    arcPtr->start, arcPtr->extent)
+		|| VertLineToArc(tRect[0], tRect[1], tRect[3], rx, ry,
+		    arcPtr->start, arcPtr->extent)
+		|| VertLineToArc(tRect[2], tRect[1], tRect[3], rx, ry,
+		    arcPtr->start, arcPtr->extent)) {
+	    return 0;
+	}
+    }
+
+    /*
+     * The arc still appears to be totally disjoint from the rectangle,
+     * but it's also possible that the rectangle is totally inside the arc.
+     * Do one last check, which is to check one point of the rectangle
+     * to see if it's inside the arc.  If it is, we've got overlap.  If
+     * it isn't, the arc's really outside the rectangle.
+     */
+
+    if (ArcToPoint(canvas, itemPtr, rectPtr) == 0.0) {
+	return 0;
+    }
+    return -1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleArc --
+ *
+ *	This procedure is invoked to rescale an arc item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The arc referred to by itemPtr is rescaled so that the
+ *	following transformation is applied to all point
+ *	coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleArc(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing arc. */
+    Tk_Item *itemPtr;			/* Arc to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+
+    arcPtr->bbox[0] = originX + scaleX*(arcPtr->bbox[0] - originX);
+    arcPtr->bbox[1] = originY + scaleY*(arcPtr->bbox[1] - originY);
+    arcPtr->bbox[2] = originX + scaleX*(arcPtr->bbox[2] - originX);
+    arcPtr->bbox[3] = originY + scaleY*(arcPtr->bbox[3] - originY);
+    ComputeArcBbox(canvas, arcPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateArc --
+ *
+ *	This procedure is called to move an arc by a given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the arc is offset by (xDelta, yDelta), and
+ *	the bounding box is updated in the generic part of the item
+ *	structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateArc(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+
+    arcPtr->bbox[0] += deltaX;
+    arcPtr->bbox[1] += deltaY;
+    arcPtr->bbox[2] += deltaX;
+    arcPtr->bbox[3] += deltaY;
+    ComputeArcBbox(canvas, arcPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeArcOutline --
+ *
+ *	This procedure creates a polygon describing everything in
+ *	the outline for an arc except what's in the curved part.
+ *	For a "pie slice" arc this is a V-shaped chunk, and for
+ *	a "chord" arc this is a linear chunk (with cutaway corners).
+ *	For "arc" arcs, this stuff isn't relevant.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The information at arcPtr->outlinePtr gets modified, and
+ *	storage for arcPtr->outlinePtr may be allocated or freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeArcOutline(arcPtr)
+    ArcItem *arcPtr;			/* Information about arc. */
+{
+    double sin1, cos1, sin2, cos2, angle, halfWidth;
+    double boxWidth, boxHeight;
+    double vertex[2], corner1[2], corner2[2];
+    double *outlinePtr;
+
+    /*
+     * Make sure that the outlinePtr array is large enough to hold
+     * either a chord or pie-slice outline.
+     */
+
+    if (arcPtr->numOutlinePoints == 0) {
+	arcPtr->outlinePtr = (double *) ckalloc((unsigned)
+		(26 * sizeof(double)));
+	arcPtr->numOutlinePoints = 22;
+    }
+    outlinePtr = arcPtr->outlinePtr;
+
+    /*
+     * First compute the two points that lie at the centers of
+     * the ends of the curved arc segment, which are marked with
+     * X's in the figure below:
+     *
+     *
+     *				  * * *
+     *			      *          *
+     *			   *      * *      *
+     *			 *    *         *    *
+     *			*   *             *   *
+     *			 X *               * X
+     *
+     * The code is tricky because the arc can be ovular in shape.
+     * It computes the position for a unit circle, and then
+     * scales to fit the shape of the arc's bounding box.
+     *
+     * Also, watch out because angles go counter-clockwise like you
+     * might expect, but the y-coordinate system is inverted.  To
+     * handle this, just negate the angles in all the computations.
+     */
+
+    boxWidth = arcPtr->bbox[2] - arcPtr->bbox[0];
+    boxHeight = arcPtr->bbox[3] - arcPtr->bbox[1];
+    angle = -arcPtr->start*PI/180.0;
+    sin1 = sin(angle);
+    cos1 = cos(angle);
+    angle -= arcPtr->extent*PI/180.0;
+    sin2 = sin(angle);
+    cos2 = cos(angle);
+    vertex[0] = (arcPtr->bbox[0] + arcPtr->bbox[2])/2.0;
+    vertex[1] = (arcPtr->bbox[1] + arcPtr->bbox[3])/2.0;
+    arcPtr->center1[0] = vertex[0] + cos1*boxWidth/2.0;
+    arcPtr->center1[1] = vertex[1] + sin1*boxHeight/2.0;
+    arcPtr->center2[0] = vertex[0] + cos2*boxWidth/2.0;
+    arcPtr->center2[1] = vertex[1] + sin2*boxHeight/2.0;
+
+    /*
+     * Next compute the "outermost corners" of the arc, which are
+     * marked with X's in the figure below:
+     *
+     *				  * * *
+     *			      *          *
+     *			   *      * *      *
+     *			 *    *         *    *
+     *			X   *             *   X
+     *			   *               *
+     *
+     * The code below is tricky because it has to handle eccentricity
+     * in the shape of the oval.  The key in the code below is to
+     * realize that the slope of the line from arcPtr->center1 to corner1
+     * is (boxWidth*sin1)/(boxHeight*cos1), and similarly for arcPtr->center2
+     * and corner2.  These formulas can be computed from the formula for
+     * the oval.
+     */
+
+    halfWidth = arcPtr->width/2.0;
+    if (((boxWidth*sin1) == 0.0) && ((boxHeight*cos1) == 0.0)) {
+	angle = 0.0;
+    } else {
+	angle = atan2(boxWidth*sin1, boxHeight*cos1);
+    }
+    corner1[0] = arcPtr->center1[0] + cos(angle)*halfWidth;
+    corner1[1] = arcPtr->center1[1] + sin(angle)*halfWidth;
+    if (((boxWidth*sin2) == 0.0) && ((boxHeight*cos2) == 0.0)) {
+	angle = 0.0;
+    } else {
+	angle = atan2(boxWidth*sin2, boxHeight*cos2);
+    }
+    corner2[0] = arcPtr->center2[0] + cos(angle)*halfWidth;
+    corner2[1] = arcPtr->center2[1] + sin(angle)*halfWidth;
+
+    /*
+     * For a chord outline, generate a six-sided polygon with three
+     * points for each end of the chord.  The first and third points
+     * for each end are butt points generated on either side of the
+     * center point.  The second point is the corner point.
+     */
+
+    if (arcPtr->style == chordUid) {
+	outlinePtr[0] = outlinePtr[12] = corner1[0];
+	outlinePtr[1] = outlinePtr[13] = corner1[1];
+	TkGetButtPoints(arcPtr->center2, arcPtr->center1,
+		(double) arcPtr->width, 0, outlinePtr+10, outlinePtr+2);
+	outlinePtr[4] = arcPtr->center2[0] + outlinePtr[2]
+		- arcPtr->center1[0];
+	outlinePtr[5] = arcPtr->center2[1] + outlinePtr[3]
+		- arcPtr->center1[1];
+	outlinePtr[6] = corner2[0];
+	outlinePtr[7] = corner2[1];
+	outlinePtr[8] = arcPtr->center2[0] + outlinePtr[10]
+		- arcPtr->center1[0];
+	outlinePtr[9] = arcPtr->center2[1] + outlinePtr[11]
+		- arcPtr->center1[1];
+    } else if (arcPtr->style == pieSliceUid) {
+	/*
+	 * For pie slices, generate two polygons, one for each side
+	 * of the pie slice.  The first arm has a shape like this,
+	 * where the center of the oval is X, arcPtr->center1 is at Y, and
+	 * corner1 is at Z:
+	 *
+	 *	 _____________________
+	 *	|		      \
+	 *	|		       \
+	 *	X		     Y  Z
+	 *	|		       /
+	 *	|_____________________/
+	 *
+	 */
+
+	TkGetButtPoints(arcPtr->center1, vertex, (double) arcPtr->width, 0,
+		outlinePtr, outlinePtr+2);
+	outlinePtr[4] = arcPtr->center1[0] + outlinePtr[2] - vertex[0];
+	outlinePtr[5] = arcPtr->center1[1] + outlinePtr[3] - vertex[1];
+	outlinePtr[6] = corner1[0];
+	outlinePtr[7] = corner1[1];
+	outlinePtr[8] = arcPtr->center1[0] + outlinePtr[0] - vertex[0];
+	outlinePtr[9] = arcPtr->center1[1] + outlinePtr[1] - vertex[1];
+	outlinePtr[10] = outlinePtr[0];
+	outlinePtr[11] = outlinePtr[1];
+
+	/*
+	 * The second arm has a shape like this:
+	 *
+	 *
+	 *	   ______________________
+	 *	  /			  \
+	 *	 /			   \
+	 *	Z  Y			X  /
+	 *	 \			  /
+	 *	  \______________________/
+	 *
+	 * Similar to above X is the center of the oval/circle, Y is
+	 * arcPtr->center2, and Z is corner2.  The extra jog out to the left
+	 * of X is needed in or to produce a butted joint with the
+	 * first arm;  the corner to the right of X is one of the
+	 * first two points of the first arm, depending on extent.
+	 */
+
+	TkGetButtPoints(arcPtr->center2, vertex, (double) arcPtr->width, 0,
+		outlinePtr+12, outlinePtr+16);
+	if ((arcPtr->extent > 180) ||
+		((arcPtr->extent < 0) && (arcPtr->extent > -180))) {
+	    outlinePtr[14] = outlinePtr[0];
+	    outlinePtr[15] = outlinePtr[1];
+	} else {
+	    outlinePtr[14] = outlinePtr[2];
+	    outlinePtr[15] = outlinePtr[3];
+	}
+	outlinePtr[18] = arcPtr->center2[0] + outlinePtr[16] - vertex[0];
+	outlinePtr[19] = arcPtr->center2[1] + outlinePtr[17] - vertex[1];
+	outlinePtr[20] = corner2[0];
+	outlinePtr[21] = corner2[1];
+	outlinePtr[22] = arcPtr->center2[0] + outlinePtr[12] - vertex[0];
+	outlinePtr[23] = arcPtr->center2[1] + outlinePtr[13] - vertex[1];
+	outlinePtr[24] = outlinePtr[12];
+	outlinePtr[25] = outlinePtr[13];
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * HorizLineToArc --
+ *
+ *	Determines whether a horizontal line segment intersects
+ *	a given arc.
+ *
+ * Results:
+ *	The return value is 1 if the given line intersects the
+ *	infinitely-thin arc section defined by rx, ry, start,
+ *	and extent, and 0 otherwise.  Only the perimeter of the
+ *	arc is checked: interior areas (e.g. pie-slice or chord)
+ *	are not checked.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+HorizLineToArc(x1, x2, y, rx, ry, start, extent)
+    double x1, x2;		/* X-coords of endpoints of line segment. 
+				 * X1 must be <= x2. */
+    double y;			/* Y-coordinate of line segment. */
+    double rx, ry;		/* These x- and y-radii define an oval
+				 * centered at the origin. */
+    double start, extent;	/* Angles that define extent of arc, in
+				 * the standard fashion for this module. */
+{
+    double tmp;
+    double tx, ty;		/* Coordinates of intersection point in
+				 * transformed coordinate system. */
+    double x;
+
+    /*
+     * Compute the x-coordinate of one possible intersection point
+     * between the arc and the line.  Use a transformed coordinate
+     * system where the oval is a unit circle centered at the origin.
+     * Then scale back to get actual x-coordinate.
+     */
+
+    ty = y/ry;
+    tmp = 1 - ty*ty;
+    if (tmp < 0) {
+	return 0;
+    }
+    tx = sqrt(tmp);
+    x = tx*rx;
+
+    /*
+     * Test both intersection points.
+     */
+
+    if ((x >= x1) && (x <= x2) && AngleInRange(tx, ty, start, extent)) {
+	return 1;
+    }
+    if ((-x >= x1) && (-x <= x2) && AngleInRange(-tx, ty, start, extent)) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * VertLineToArc --
+ *
+ *	Determines whether a vertical line segment intersects
+ *	a given arc.
+ *
+ * Results:
+ *	The return value is 1 if the given line intersects the
+ *	infinitely-thin arc section defined by rx, ry, start,
+ *	and extent, and 0 otherwise.  Only the perimeter of the
+ *	arc is checked: interior areas (e.g. pie-slice or chord)
+ *	are not checked.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+VertLineToArc(x, y1, y2, rx, ry, start, extent)
+    double x;			/* X-coordinate of line segment. */
+    double y1, y2;		/* Y-coords of endpoints of line segment. 
+				 * Y1 must be <= y2. */
+    double rx, ry;		/* These x- and y-radii define an oval
+				 * centered at the origin. */
+    double start, extent;	/* Angles that define extent of arc, in
+				 * the standard fashion for this module. */
+{
+    double tmp;
+    double tx, ty;		/* Coordinates of intersection point in
+				 * transformed coordinate system. */
+    double y;
+
+    /*
+     * Compute the y-coordinate of one possible intersection point
+     * between the arc and the line.  Use a transformed coordinate
+     * system where the oval is a unit circle centered at the origin.
+     * Then scale back to get actual y-coordinate.
+     */
+
+    tx = x/rx;
+    tmp = 1 - tx*tx;
+    if (tmp < 0) {
+	return 0;
+    }
+    ty = sqrt(tmp);
+    y = ty*ry;
+
+    /*
+     * Test both intersection points.
+     */
+
+    if ((y > y1) && (y < y2) && AngleInRange(tx, ty, start, extent)) {
+	return 1;
+    }
+    if ((-y > y1) && (-y < y2) && AngleInRange(tx, -ty, start, extent)) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AngleInRange --
+ *
+ *	Determine whether the angle from the origin to a given
+ *	point is within a given range.
+ *
+ * Results:
+ *	The return value is 1 if the angle from (0,0) to (x,y)
+ *	is in the range given by start and extent, where angles
+ *	are interpreted in the standard way for ovals (meaning
+ *	backwards from normal interpretation).  Otherwise the
+ *	return value is 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+AngleInRange(x, y, start, extent)
+    double x, y;		/* Coordinate of point;  angle measured
+				 * from origin to here, relative to x-axis. */
+    double start;		/* First angle, degrees, >=0, <=360. */
+    double extent;		/* Size of arc in degrees >=-360, <=360. */
+{
+    double diff;
+
+    if ((x == 0.0) && (y == 0.0)) {
+	return 1;
+    }
+    diff = -atan2(y, x);
+    diff = diff*(180.0/PI) - start;
+    while (diff > 360.0) {
+	diff -= 360.0;
+    }
+    while (diff < 0.0) {
+	diff += 360.0;
+    }
+    if (extent >= 0) {
+	return diff <= extent;
+    }
+    return (diff-360.0) >= extent;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArcToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	arc items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used
+ *	to be there.  If no error occurs, then Postscript for the
+ *	item is appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ArcToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    ArcItem *arcPtr = (ArcItem *) itemPtr;
+    char buffer[400];
+    double y1, y2, ang1, ang2;
+
+    y1 = Tk_CanvasPsY(canvas, arcPtr->bbox[1]);
+    y2 = Tk_CanvasPsY(canvas, arcPtr->bbox[3]);
+    ang1 = arcPtr->start;
+    ang2 = ang1 + arcPtr->extent;
+    if (ang2 < ang1) {
+	ang1 = ang2;
+	ang2 = arcPtr->start;
+    }
+
+    /*
+     * If the arc is filled, output Postscript for the interior region
+     * of the arc.
+     */
+
+    if (arcPtr->fillGC != None) {
+	sprintf(buffer, "matrix currentmatrix\n%.15g %.15g translate %.15g %.15g scale\n",
+		(arcPtr->bbox[0] + arcPtr->bbox[2])/2, (y1 + y2)/2,
+		(arcPtr->bbox[2] - arcPtr->bbox[0])/2, (y1 - y2)/2);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	if (arcPtr->style == chordUid) {
+	    sprintf(buffer, "0 0 1 %.15g %.15g arc closepath\nsetmatrix\n",
+		    ang1, ang2);
+	} else {
+	    sprintf(buffer,
+		    "0 0 moveto 0 0 1 %.15g %.15g arc closepath\nsetmatrix\n",
+		    ang1, ang2);
+	}
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, arcPtr->fillColor) != TCL_OK) {
+	    return TCL_ERROR;
+	};
+	if (arcPtr->fillStipple != None) {
+	    Tcl_AppendResult(interp, "clip ", (char *) NULL);
+	    if (Tk_CanvasPsStipple(interp, canvas, arcPtr->fillStipple)
+		    != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (arcPtr->outlineGC != None) {
+		Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+	}
+    }
+
+    /*
+     * If there's an outline for the arc, draw it.
+     */
+
+    if (arcPtr->outlineGC != None) {
+	sprintf(buffer, "matrix currentmatrix\n%.15g %.15g translate %.15g %.15g scale\n",
+		(arcPtr->bbox[0] + arcPtr->bbox[2])/2, (y1 + y2)/2,
+		(arcPtr->bbox[2] - arcPtr->bbox[0])/2, (y1 - y2)/2);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	sprintf(buffer, "0 0 1 %.15g %.15g arc\nsetmatrix\n", ang1, ang2);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	sprintf(buffer, "%d setlinewidth\n0 setlinecap\n", arcPtr->width);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, arcPtr->outlineColor)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (arcPtr->outlineStipple != None) {
+	    Tcl_AppendResult(interp, "StrokeClip ", (char *) NULL);
+	    if (Tk_CanvasPsStipple(interp, canvas,
+		    arcPtr->outlineStipple) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "stroke\n", (char *) NULL);
+	}
+	if (arcPtr->style != arcUid) {
+	    Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+	    if (arcPtr->style == chordUid) {
+		Tk_CanvasPsPath(interp, canvas, arcPtr->outlinePtr,
+			CHORD_OUTLINE_PTS);
+	    } else {
+		Tk_CanvasPsPath(interp, canvas, arcPtr->outlinePtr,
+			PIE_OUTLINE1_PTS);
+		if (Tk_CanvasPsColor(interp, canvas, arcPtr->outlineColor)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (arcPtr->outlineStipple != None) {
+		    Tcl_AppendResult(interp, "clip ", (char *) NULL);
+		    if (Tk_CanvasPsStipple(interp, canvas,
+			    arcPtr->outlineStipple) != TCL_OK) {
+			return TCL_ERROR;
+		    }
+		} else {
+		    Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+		}
+		Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+		Tk_CanvasPsPath(interp, canvas,
+			arcPtr->outlinePtr + 2*PIE_OUTLINE1_PTS,
+			PIE_OUTLINE2_PTS);
+	    }
+	    if (Tk_CanvasPsColor(interp, canvas, arcPtr->outlineColor)
+		    != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (arcPtr->outlineStipple != None) {
+		Tcl_AppendResult(interp, "clip ", (char *) NULL);
+		if (Tk_CanvasPsStipple(interp, canvas,
+			arcPtr->outlineStipple) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    } else {
+		Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+	    }
+	}
+    }
+
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCanvBmap.c b/Tk/generic/tkCanvBmap.c
new file mode 100644
index 0000000..5cddcff
--- /dev/null
+++ b/Tk/generic/tkCanvBmap.c
@@ -0,0 +1,800 @@
+/* 
+ * tkCanvBmap.c --
+ *
+ *	This file implements bitmap items for canvas widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvBmap.c 1.29 96/02/17 16:59:10
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkCanvas.h"
+
+/*
+ * The structure below defines the record for each bitmap item.
+ */
+
+typedef struct BitmapItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    double x, y;		/* Coordinates of positioning point for
+				 * bitmap. */
+    Tk_Anchor anchor;		/* Where to anchor bitmap relative to
+				 * (x,y). */
+    Pixmap bitmap;		/* Bitmap to display in window. */
+    XColor *fgColor;		/* Foreground color to use for bitmap. */
+    XColor *bgColor;		/* Background color to use for bitmap. */
+    GC gc;			/* Graphics context to use for drawing
+				 * bitmap on screen. */
+} BitmapItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_ANCHOR, "-anchor", (char *) NULL, (char *) NULL,
+	"center", Tk_Offset(BitmapItem, anchor), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_COLOR, "-background", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapItem, bgColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-bitmap", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapItem, bitmap), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-foreground", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(BitmapItem, fgColor), 0},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static int		BitmapCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv));
+static int		BitmapToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		BitmapToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *coordPtr));
+static int		BitmapToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static void		ComputeBitmapBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    BitmapItem *bmapPtr));
+static int		ConfigureBitmap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateBitmap _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteBitmap _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayBitmap _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static void		ScaleBitmap _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateBitmap _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * The structures below defines the bitmap item type in terms of
+ * procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkBitmapType = {
+    "bitmap",				/* name */
+    sizeof(BitmapItem),			/* itemSize */
+    CreateBitmap,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureBitmap,			/* configureProc */
+    BitmapCoords,			/* coordProc */
+    DeleteBitmap,			/* deleteProc */
+    DisplayBitmap,			/* displayProc */
+    0,					/* alwaysRedraw */
+    BitmapToPoint,			/* pointProc */
+    BitmapToArea,			/* areaProc */
+    BitmapToPostscript,			/* postscriptProc */
+    ScaleBitmap,			/* scaleProc */
+    TranslateBitmap,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateBitmap --
+ *
+ *	This procedure is invoked to create a new bitmap
+ *	item in a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is left uninitialized,
+ *	so it can be safely freed by the caller.
+ *
+ * Side effects:
+ *	A new bitmap item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateBitmap(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing rectangle. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x y ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize item's record.
+     */
+
+    bmapPtr->anchor = TK_ANCHOR_CENTER;
+    bmapPtr->bitmap = None;
+    bmapPtr->fgColor = NULL;
+    bmapPtr->bgColor = NULL;
+    bmapPtr->gc = None;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &bmapPtr->x) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1], &bmapPtr->y)
+		!= TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureBitmap(interp, canvas, itemPtr, argc-2, argv+2, 0) != TCL_OK) {
+	DeleteBitmap(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * BitmapCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on bitmap items.  See the user documentation for
+ *	details on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+BitmapCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+    char x[TCL_DOUBLE_SPACE], y[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, bmapPtr->x, x);
+	Tcl_PrintDouble(interp, bmapPtr->y, y);
+	Tcl_AppendResult(interp, x, " ", y, (char *) NULL);
+    } else if (argc == 2) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &bmapPtr->x) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[1], &bmapPtr->y)
+		    != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeBitmapBbox(canvas, bmapPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 2, got %d", argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureBitmap --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a bitmap item, such as its anchor position.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureBitmap(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Bitmap item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC;
+    Tk_Window tkwin;
+    unsigned long mask;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) bmapPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as those
+     * that determine the graphics context.
+     */
+
+    gcValues.foreground = bmapPtr->fgColor->pixel;
+    mask = GCForeground;
+    if (bmapPtr->bgColor != NULL) {
+	gcValues.background = bmapPtr->bgColor->pixel;
+	mask |= GCBackground;
+    } else {
+	gcValues.clip_mask = bmapPtr->bitmap;
+	mask |= GCClipMask;
+    }
+    newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    if (bmapPtr->gc != None) {
+	Tk_FreeGC(Tk_Display(tkwin), bmapPtr->gc);
+    }
+    bmapPtr->gc = newGC;
+
+    ComputeBitmapBbox(canvas, bmapPtr);
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteBitmap --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a bitmap item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteBitmap(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+
+    if (bmapPtr->bitmap != None) {
+	Tk_FreeBitmap(display, bmapPtr->bitmap);
+    }
+    if (bmapPtr->fgColor != NULL) {
+	Tk_FreeColor(bmapPtr->fgColor);
+    }
+    if (bmapPtr->bgColor != NULL) {
+	Tk_FreeColor(bmapPtr->bgColor);
+    }
+    if (bmapPtr->gc != NULL) {
+	Tk_FreeGC(display, bmapPtr->gc);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeBitmapBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a bitmap item.
+ *	This procedure is where the child bitmap's placement is
+ *	computed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ComputeBitmapBbox(canvas, bmapPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    BitmapItem *bmapPtr;		/* Item whose bbox is to be
+					 * recomputed. */
+{
+    int width, height;
+    int x, y;
+
+    x = bmapPtr->x + ((bmapPtr->x >= 0) ? 0.5 : - 0.5);
+    y = bmapPtr->y + ((bmapPtr->y >= 0) ? 0.5 : - 0.5);
+
+    if (bmapPtr->bitmap == None) {
+	bmapPtr->header.x1 = bmapPtr->header.x2 = x;
+	bmapPtr->header.y1 = bmapPtr->header.y2 = y;
+	return;
+    }
+
+    /*
+     * Compute location and size of bitmap, using anchor information.
+     */
+
+    Tk_SizeOfBitmap(Tk_Display(Tk_CanvasTkwin(canvas)), bmapPtr->bitmap,
+	    &width, &height);
+    switch (bmapPtr->anchor) {
+	case TK_ANCHOR_N:
+	    x -= width/2;
+	    break;
+	case TK_ANCHOR_NE:
+	    x -= width;
+	    break;
+	case TK_ANCHOR_E:
+	    x -= width;
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_SE:
+	    x -= width;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_S:
+	    x -= width/2;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_SW:
+	    y -= height;
+	    break;
+	case TK_ANCHOR_W:
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_NW:
+	    break;
+	case TK_ANCHOR_CENTER:
+	    x -= width/2;
+	    y -= height/2;
+	    break;
+    }
+
+    /*
+     * Store the information in the item header.
+     */
+
+    bmapPtr->header.x1 = x;
+    bmapPtr->header.y1 = y;
+    bmapPtr->header.x2 = x + width;
+    bmapPtr->header.y2 = y + height;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayBitmap --
+ *
+ *	This procedure is invoked to draw a bitmap item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayBitmap(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+    int bmapX, bmapY, bmapWidth, bmapHeight;
+    short drawableX, drawableY;
+
+    /*
+     * If the area being displayed doesn't cover the whole bitmap,
+     * then only redisplay the part of the bitmap that needs
+     * redisplay.
+     */
+
+    if (bmapPtr->bitmap != None) {
+	if (x > bmapPtr->header.x1) {
+	    bmapX = x - bmapPtr->header.x1;
+	    bmapWidth = bmapPtr->header.x2 - x;
+	} else {
+	    bmapX = 0;
+	    if ((x+width) < bmapPtr->header.x2) {
+		bmapWidth = x + width - bmapPtr->header.x1;
+	    } else {
+		bmapWidth = bmapPtr->header.x2 - bmapPtr->header.x1;
+	    }
+	}
+	if (y > bmapPtr->header.y1) {
+	    bmapY = y - bmapPtr->header.y1;
+	    bmapHeight = bmapPtr->header.y2 - y;
+	} else {
+	    bmapY = 0;
+	    if ((y+height) < bmapPtr->header.y2) {
+		bmapHeight = y + height - bmapPtr->header.y1;
+	    } else {
+		bmapHeight = bmapPtr->header.y2 - bmapPtr->header.y1;
+	    }
+	}
+	Tk_CanvasDrawableCoords(canvas,
+		(double) (bmapPtr->header.x1 + bmapX),
+		(double) (bmapPtr->header.y1 + bmapY),
+		&drawableX, &drawableY);
+
+	/*
+	 * Must modify the mask origin within the graphics context
+	 * to line up with the bitmap's origin (in order to make
+	 * bitmaps with "-background {}" work right).
+	 */
+ 
+	XSetClipOrigin(display, bmapPtr->gc, drawableX - bmapX,
+		drawableY - bmapY);
+	XCopyPlane(display, bmapPtr->bitmap, drawable,
+		bmapPtr->gc, bmapX, bmapY, (unsigned int) bmapWidth,
+		(unsigned int) bmapHeight, drawableX, drawableY, 1);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * BitmapToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	rectangle, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the bitmap.  If the
+ *	point isn't inside the bitmap then the return value is the
+ *	distance from the point to the bitmap.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+BitmapToPoint(canvas, itemPtr, coordPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *coordPtr;		/* Pointer to x and y coordinates. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+    double x1, x2, y1, y2, xDiff, yDiff;
+
+    x1 = bmapPtr->header.x1;
+    y1 = bmapPtr->header.y1;
+    x2 = bmapPtr->header.x2;
+    y2 = bmapPtr->header.y2;
+
+    /*
+     * Point is outside rectangle.
+     */
+
+    if (coordPtr[0] < x1) {
+	xDiff = x1 - coordPtr[0];
+    } else if (coordPtr[0] > x2)  {
+	xDiff = coordPtr[0] - x2;
+    } else {
+	xDiff = 0;
+    }
+
+    if (coordPtr[1] < y1) {
+	yDiff = y1 - coordPtr[1];
+    } else if (coordPtr[1] > y2)  {
+	yDiff = coordPtr[1] - y2;
+    } else {
+	yDiff = 0;
+    }
+
+    return hypot(xDiff, yDiff);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * BitmapToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangle.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+BitmapToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against rectangle. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+
+    if ((rectPtr[2] <= bmapPtr->header.x1)
+	    || (rectPtr[0] >= bmapPtr->header.x2)
+	    || (rectPtr[3] <= bmapPtr->header.y1)
+	    || (rectPtr[1] >= bmapPtr->header.y2)) {
+	return -1;
+    }
+    if ((rectPtr[0] <= bmapPtr->header.x1)
+	    && (rectPtr[1] <= bmapPtr->header.y1)
+	    && (rectPtr[2] >= bmapPtr->header.x2)
+	    && (rectPtr[3] >= bmapPtr->header.y2)) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleBitmap --
+ *
+ *	This procedure is invoked to rescale a bitmap item in a
+ *	canvas.  It is one of the standard item procedures for
+ *	bitmap items, and is invoked by the generic canvas code.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The item referred to by itemPtr is rescaled so that the
+ *	following transformation is applied to all point coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleBitmap(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing rectangle. */
+    Tk_Item *itemPtr;			/* Rectangle to be scaled. */
+    double originX, originY;		/* Origin about which to scale item. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+
+    bmapPtr->x = originX + scaleX*(bmapPtr->x - originX);
+    bmapPtr->y = originY + scaleY*(bmapPtr->y - originY);
+    ComputeBitmapBbox(canvas, bmapPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateBitmap --
+ *
+ *	This procedure is called to move an item by a given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the item is offset by (xDelta, yDelta), and
+ *	the bounding box is updated in the generic part of the item
+ *	structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateBitmap(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+
+    bmapPtr->x += deltaX;
+    bmapPtr->y += deltaY;
+    ComputeBitmapBbox(canvas, bmapPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * BitmapToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	bitmap items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used to be there.
+ *	If no error occurs, then Postscript for the item is appended
+ *	to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+BitmapToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
+    double x, y;
+    int width, height, rowsAtOnce, rowsThisTime;
+    int curRow;
+    char buffer[200];
+
+    if (bmapPtr->bitmap == None) {
+	return TCL_OK;
+    }
+
+    /*
+     * Compute the coordinates of the lower-left corner of the bitmap,
+     * taking into account the anchor position for the bitmp.
+     */
+
+    x = bmapPtr->x;
+    y = Tk_CanvasPsY(canvas, bmapPtr->y);
+    Tk_SizeOfBitmap(Tk_Display(Tk_CanvasTkwin(canvas)), bmapPtr->bitmap,
+	    &width, &height);
+    switch (bmapPtr->anchor) {
+	case TK_ANCHOR_NW:			y -= height;		break;
+	case TK_ANCHOR_N:	x -= width/2.0; y -= height;		break;
+	case TK_ANCHOR_NE:	x -= width;	y -= height;		break;
+	case TK_ANCHOR_E:	x -= width;	y -= height/2.0;	break;
+	case TK_ANCHOR_SE:	x -= width;				break;
+	case TK_ANCHOR_S:	x -= width/2.0;				break;
+	case TK_ANCHOR_SW:						break;
+	case TK_ANCHOR_W:			y -= height/2.0;	break;
+	case TK_ANCHOR_CENTER:	x -= width/2.0; y -= height/2.0;	break;
+    }
+
+    /*
+     * Color the background, if there is one.
+     */
+
+    if (bmapPtr->bgColor != NULL) {
+	sprintf(buffer,
+		"%.15g %.15g moveto %d 0 rlineto 0 %d rlineto %d %s\n",
+		x, y, width, height, -width,"0 rlineto closepath");
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, bmapPtr->bgColor) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+    }
+
+    /*
+     * Draw the bitmap, if there is a foreground color.  If the bitmap
+     * is very large, then chop it up into multiple bitmaps, each
+     * consisting of one or more rows.  This is needed because Postscript
+     * can't handle single strings longer than 64 KBytes long.
+     */
+
+    if (bmapPtr->fgColor != NULL) {
+	if (Tk_CanvasPsColor(interp, canvas, bmapPtr->fgColor) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (width > 60000) {
+	    Tcl_ResetResult(interp);
+	    Tcl_AppendResult(interp, "can't generate Postscript",
+		    " for bitmaps more than 60000 pixels wide",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	rowsAtOnce = 60000/width;
+	if (rowsAtOnce < 1) {
+	    rowsAtOnce = 1;
+	}
+	sprintf(buffer, "%.15g %.15g translate\n", x, y+height);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	for (curRow = 0; curRow < height; curRow += rowsAtOnce) {
+	    rowsThisTime = rowsAtOnce;
+	    if (rowsThisTime > (height - curRow)) {
+		rowsThisTime = height - curRow;
+	    }
+	    sprintf(buffer, "0 -%.15g translate\n%d %d true matrix {\n",
+		    (double) rowsThisTime, width, rowsThisTime);
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	    if (Tk_CanvasPsBitmap(interp, canvas, bmapPtr->bitmap,
+		    0, curRow, width, rowsThisTime) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    Tcl_AppendResult(interp, "\n} imagemask\n", (char *) NULL);
+	}
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCanvImg.c b/Tk/generic/tkCanvImg.c
new file mode 100644
index 0000000..4385219
--- /dev/null
+++ b/Tk/generic/tkCanvImg.c
@@ -0,0 +1,677 @@
+/* 
+ * tkCanvImg.c --
+ *
+ *	This file implements image items for canvas widgets.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvImg.c 1.17 96/02/17 17:18:43
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkCanvas.h"
+
+/*
+ * The structure below defines the record for each image item.
+ */
+
+typedef struct ImageItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    Tk_Canvas canvas;		/* Canvas containing the image. */
+    double x, y;		/* Coordinates of positioning point for
+				 * image. */
+    Tk_Anchor anchor;		/* Where to anchor image relative to
+				 * (x,y). */
+    char *imageString;		/* String describing -image option (malloc-ed).
+				 * NULL means no image right now. */
+    Tk_Image image;		/* Image to display in window, or NULL if
+				 * no image at present. */
+} ImageItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_ANCHOR, "-anchor", (char *) NULL, (char *) NULL,
+	"center", Tk_Offset(ImageItem, anchor), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_STRING, "-image", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(ImageItem, imageString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ImageChangedProc _ANSI_ARGS_((ClientData clientData,
+			    int x, int y, int width, int height, int imgWidth,
+			    int imgHeight));
+static int		ImageCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv));
+static int		ImageToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		ImageToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *coordPtr));
+static void		ComputeImageBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    ImageItem *imgPtr));
+static int		ConfigureImage _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateImage _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteImage _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayImage _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static void		ScaleImage _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateImage _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * The structures below defines the image item type in terms of
+ * procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkImageType = {
+    "image",				/* name */
+    sizeof(ImageItem),			/* itemSize */
+    CreateImage,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureImage,			/* configureProc */
+    ImageCoords,			/* coordProc */
+    DeleteImage,			/* deleteProc */
+    DisplayImage,			/* displayProc */
+    0,					/* alwaysRedraw */
+    ImageToPoint,			/* pointProc */
+    ImageToArea,			/* areaProc */
+    (Tk_ItemPostscriptProc *) NULL,	/* postscriptProc */
+    ScaleImage,				/* scaleProc */
+    TranslateImage,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateImage --
+ *
+ *	This procedure is invoked to create a new image
+ *	item in a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is left uninitialized,
+ *	so it can be safely freed by the caller.
+ *
+ * Side effects:
+ *	A new image item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateImage(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing rectangle. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x y ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize item's record.
+     */
+
+    imgPtr->canvas = canvas;
+    imgPtr->anchor = TK_ANCHOR_CENTER;
+    imgPtr->imageString = NULL;
+    imgPtr->image = NULL;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &imgPtr->x) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1], &imgPtr->y)
+		!= TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureImage(interp, canvas, itemPtr, argc-2, argv+2, 0) != TCL_OK) {
+	DeleteImage(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ImageCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on image items.  See the user documentation for
+ *	details on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ImageCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+    char x[TCL_DOUBLE_SPACE], y[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, imgPtr->x, x);
+	Tcl_PrintDouble(interp, imgPtr->y, y);
+	Tcl_AppendResult(interp, x, " ", y, (char *) NULL);
+    } else if (argc == 2) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &imgPtr->x) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		    &imgPtr->y) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeImageBbox(canvas, imgPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 2, got %d", argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureImage --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of an image item, such as its anchor position.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureImage(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Image item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+    Tk_Window tkwin;
+    Tk_Image image;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc,
+	    argv, (char *) imgPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Create the image.  Save the old image around and don't free it
+     * until after the new one is allocated.  This keeps the reference
+     * count from going to zero so the image doesn't have to be recreated
+     * if it hasn't changed.
+     */
+
+    if (imgPtr->imageString != NULL) {
+	image = Tk_GetImage(interp, tkwin, imgPtr->imageString,
+		ImageChangedProc, (ClientData) imgPtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (imgPtr->image != NULL) {
+	Tk_FreeImage(imgPtr->image);
+    }
+    imgPtr->image = image;
+    ComputeImageBbox(canvas, imgPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteImage --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a image item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteImage(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+
+    if (imgPtr->imageString != NULL) {
+	ckfree(imgPtr->imageString);
+    }
+    if (imgPtr->image != NULL) {
+	Tk_FreeImage(imgPtr->image);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeImageBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a image item.
+ *	This procedure is where the child image's placement is
+ *	computed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ComputeImageBbox(canvas, imgPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    ImageItem *imgPtr;			/* Item whose bbox is to be
+					 * recomputed. */
+{
+    int width, height;
+    int x, y;
+
+    x = imgPtr->x + ((imgPtr->x >= 0) ? 0.5 : - 0.5);
+    y = imgPtr->y + ((imgPtr->y >= 0) ? 0.5 : - 0.5);
+
+    if (imgPtr->image == None) {
+	imgPtr->header.x1 = imgPtr->header.x2 = x;
+	imgPtr->header.y1 = imgPtr->header.y2 = y;
+	return;
+    }
+
+    /*
+     * Compute location and size of image, using anchor information.
+     */
+
+    Tk_SizeOfImage(imgPtr->image, &width, &height);
+    switch (imgPtr->anchor) {
+	case TK_ANCHOR_N:
+	    x -= width/2;
+	    break;
+	case TK_ANCHOR_NE:
+	    x -= width;
+	    break;
+	case TK_ANCHOR_E:
+	    x -= width;
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_SE:
+	    x -= width;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_S:
+	    x -= width/2;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_SW:
+	    y -= height;
+	    break;
+	case TK_ANCHOR_W:
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_NW:
+	    break;
+	case TK_ANCHOR_CENTER:
+	    x -= width/2;
+	    y -= height/2;
+	    break;
+    }
+
+    /*
+     * Store the information in the item header.
+     */
+
+    imgPtr->header.x1 = x;
+    imgPtr->header.y1 = y;
+    imgPtr->header.x2 = x + width;
+    imgPtr->header.y2 = y + height;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayImage --
+ *
+ *	This procedure is invoked to draw a image item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayImage(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+    short drawableX, drawableY;
+
+    if (imgPtr->image == NULL) {
+	return;
+    }
+
+    /*
+     * Translate the coordinates to those of the image, then redisplay it.
+     */
+
+    Tk_CanvasDrawableCoords(canvas, (double) x, (double) y,
+	    &drawableX, &drawableY);
+    Tk_RedrawImage(imgPtr->image, x - imgPtr->header.x1, y - imgPtr->header.y1,
+	    width, height, drawable, drawableX, drawableY);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ImageToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	rectangle, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the image.  If the
+ *	point isn't inside the image then the return value is the
+ *	distance from the point to the image.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static double
+ImageToPoint(canvas, itemPtr, coordPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *coordPtr;		/* Pointer to x and y coordinates. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+    double x1, x2, y1, y2, xDiff, yDiff;
+
+    x1 = imgPtr->header.x1;
+    y1 = imgPtr->header.y1;
+    x2 = imgPtr->header.x2;
+    y2 = imgPtr->header.y2;
+
+    /*
+     * Point is outside rectangle.
+     */
+
+    if (coordPtr[0] < x1) {
+	xDiff = x1 - coordPtr[0];
+    } else if (coordPtr[0] > x2)  {
+	xDiff = coordPtr[0] - x2;
+    } else {
+	xDiff = 0;
+    }
+
+    if (coordPtr[1] < y1) {
+	yDiff = y1 - coordPtr[1];
+    } else if (coordPtr[1] > y2)  {
+	yDiff = coordPtr[1] - y2;
+    } else {
+	yDiff = 0;
+    }
+
+    return hypot(xDiff, yDiff);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ImageToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangle.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ImageToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against rectangle. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+
+    if ((rectPtr[2] <= imgPtr->header.x1)
+	    || (rectPtr[0] >= imgPtr->header.x2)
+	    || (rectPtr[3] <= imgPtr->header.y1)
+	    || (rectPtr[1] >= imgPtr->header.y2)) {
+	return -1;
+    }
+    if ((rectPtr[0] <= imgPtr->header.x1)
+	    && (rectPtr[1] <= imgPtr->header.y1)
+	    && (rectPtr[2] >= imgPtr->header.x2)
+	    && (rectPtr[3] >= imgPtr->header.y2)) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleImage --
+ *
+ *	This procedure is invoked to rescale an item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The item referred to by itemPtr is rescaled so that the
+ *	following transformation is applied to all point coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleImage(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing rectangle. */
+    Tk_Item *itemPtr;			/* Rectangle to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+
+    imgPtr->x = originX + scaleX*(imgPtr->x - originX);
+    imgPtr->y = originY + scaleY*(imgPtr->y - originY);
+    ComputeImageBbox(canvas, imgPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateImage --
+ *
+ *	This procedure is called to move an item by a given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the item is offset by (xDelta, yDelta), and
+ *	the bounding box is updated in the generic part of the item
+ *	structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateImage(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    ImageItem *imgPtr = (ImageItem *) itemPtr;
+
+    imgPtr->x += deltaX;
+    imgPtr->y += deltaY;
+    ComputeImageBbox(canvas, imgPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageChangedProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the image's size or
+ *	how it is displayed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for the canvas to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImageChangedProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to canvas item for image. */
+    int x, y;				/* Upper left pixel (within image)
+					 * that must be redisplayed. */
+    int width, height;			/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    ImageItem *imgPtr = (ImageItem *) clientData;
+
+    /*
+     * If the image's size changed and it's not anchored at its
+     * northwest corner then just redisplay the entire area of the
+     * image.  This is a bit over-conservative, but we need to do
+     * something because a size change also means a position change.
+     */
+
+    if (((imgPtr->header.x2 - imgPtr->header.x1) != imgWidth)
+	    || ((imgPtr->header.y2 - imgPtr->header.y1) != imgHeight)) {
+	x = y = 0;
+	width = imgWidth;
+	height = imgHeight;
+	Tk_CanvasEventuallyRedraw(imgPtr->canvas, imgPtr->header.x1,
+		imgPtr->header.y1, imgPtr->header.x2, imgPtr->header.y2);
+    } 
+    ComputeImageBbox(imgPtr->canvas, imgPtr);
+    Tk_CanvasEventuallyRedraw(imgPtr->canvas, imgPtr->header.x1 + x,
+	    imgPtr->header.y1 + y, (int) (imgPtr->header.x1 + x + width),
+	    (int) (imgPtr->header.y1 + y + height));
+}
diff --git a/Tk/generic/tkCanvLine.c b/Tk/generic/tkCanvLine.c
new file mode 100644
index 0000000..b509e1f
--- /dev/null
+++ b/Tk/generic/tkCanvLine.c
@@ -0,0 +1,1635 @@
+/* 
+ * tkCanvLine.c --
+ *
+ *	This file implements line items for canvas widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvLine.c 1.43 96/02/15 18:52:30
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The structure below defines the record for each line item.
+ */
+
+typedef struct LineItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    Tk_Canvas canvas;		/* Canvas containing item.  Needed for
+				 * parsing arrow shapes. */
+    int numPoints;		/* Number of points in line (always >= 2). */
+    double *coordPtr;		/* Pointer to malloc-ed array containing
+				 * x- and y-coords of all points in line.
+				 * X-coords are even-valued indices, y-coords
+				 * are corresponding odd-valued indices. If
+				 * the line has arrowheads then the first
+				 * and last points have been adjusted to refer
+				 * to the necks of the arrowheads rather than
+				 * their tips.  The actual endpoints are
+				 * stored in the *firstArrowPtr and
+				 * *lastArrowPtr, if they exist. */
+    int width;			/* Width of line. */
+    XColor *fg;			/* Foreground color for line. */
+    Pixmap fillStipple;		/* Stipple bitmap for filling line. */
+    int capStyle;		/* Cap style for line. */
+    int joinStyle;		/* Join style for line. */
+    GC gc;			/* Graphics context for filling line. */
+    GC arrowGC;			/* Graphics context for drawing arrowheads. */
+    Tk_Uid arrow;		/* Indicates whether or not to draw arrowheads:
+				 * "none", "first", "last", or "both". */
+    float arrowShapeA;		/* Distance from tip of arrowhead to center. */
+    float arrowShapeB;		/* Distance from tip of arrowhead to trailing
+				 * point, measured along shaft. */
+    float arrowShapeC;		/* Distance of trailing points from outside
+				 * edge of shaft. */
+    double *firstArrowPtr;	/* Points to array of PTS_IN_ARROW points
+				 * describing polygon for arrowhead at first
+				 * point in line.  First point of arrowhead
+				 * is tip.  Malloc'ed.  NULL means no arrowhead
+				 * at first point. */
+    double *lastArrowPtr;	/* Points to polygon for arrowhead at last
+				 * point in line (PTS_IN_ARROW points, first
+				 * of which is tip).  Malloc'ed.  NULL means
+				 * no arrowhead at last point. */
+    int smooth;			/* Non-zero means draw line smoothed (i.e.
+				 * with Bezier splines). */
+    int splineSteps;		/* Number of steps in each spline segment. */
+} LineItem;
+
+/*
+ * Number of points in an arrowHead:
+ */
+
+#define PTS_IN_ARROW 6
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static int		ArrowheadPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, LineItem *linePtr,
+			    double *arrowPtr));
+static void		ComputeLineBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    LineItem *linePtr));
+static int		ConfigureLine _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		ConfigureArrows _ANSI_ARGS_((Tk_Canvas canvas,
+			    LineItem *linePtr));
+static int		CreateLine _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteLine _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayLine _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static int		LineCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr,
+			    int argc, char **argv));
+static int		LineToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		LineToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *coordPtr));
+static int		LineToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static int		ParseArrowShape _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, Tk_Window tkwin, char *value,
+			    char *recordPtr, int offset));
+static char *		PrintArrowShape _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin, char *recordPtr, int offset,
+			    Tcl_FreeProc **freeProcPtr));
+static void		ScaleLine _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateLine _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * Information used for parsing configuration specs.  If you change any
+ * of the default strings, be sure to change the corresponding default
+ * values in CreateLine.
+ */
+
+static Tk_CustomOption arrowShapeOption = {ParseArrowShape,
+	PrintArrowShape, (ClientData) NULL};
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_UID, "-arrow", (char *) NULL, (char *) NULL,
+	"none", Tk_Offset(LineItem, arrow), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_CUSTOM, "-arrowshape", (char *) NULL, (char *) NULL,
+#ifdef STk_CODE
+	"(8 10 3)", Tk_Offset(LineItem, arrowShapeA),
+#else
+	"8 10 3", Tk_Offset(LineItem, arrowShapeA),
+#endif
+	TK_CONFIG_DONT_SET_DEFAULT, &arrowShapeOption},
+    {TK_CONFIG_CAP_STYLE, "-capstyle", (char *) NULL, (char *) NULL,
+	"butt", Tk_Offset(LineItem, capStyle), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_COLOR, "-fill", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(LineItem, fg), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_JOIN_STYLE, "-joinstyle", (char *) NULL, (char *) NULL,
+	"round", Tk_Offset(LineItem, joinStyle), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BOOLEAN, "-smooth", (char *) NULL, (char *) NULL,
+#ifdef STk_CODE
+	"#f", Tk_Offset(LineItem, smooth), TK_CONFIG_DONT_SET_DEFAULT},
+#else
+	"0", Tk_Offset(LineItem, smooth), TK_CONFIG_DONT_SET_DEFAULT},
+#endif
+    {TK_CONFIG_INT, "-splinesteps", (char *) NULL, (char *) NULL,
+	"12", Tk_Offset(LineItem, splineSteps), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BITMAP, "-stipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(LineItem, fillStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"1", Tk_Offset(LineItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * The structures below defines the line item type by means
+ * of procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkLineType = {
+    "line",				/* name */
+    sizeof(LineItem),			/* itemSize */
+    CreateLine,				/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureLine,			/* configureProc */
+    LineCoords,				/* coordProc */
+    DeleteLine,				/* deleteProc */
+    DisplayLine,			/* displayProc */
+    0,					/* alwaysRedraw */
+    LineToPoint,			/* pointProc */
+    LineToArea,				/* areaProc */
+    LineToPostscript,			/* postscriptProc */
+    ScaleLine,				/* scaleProc */
+    TranslateLine,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ * The Tk_Uid's below refer to uids for the various arrow types:
+ */
+
+static Tk_Uid noneUid = NULL;
+static Tk_Uid firstUid = NULL;
+static Tk_Uid lastUid = NULL;
+static Tk_Uid bothUid = NULL;
+
+/*
+ * The definition below determines how large are static arrays
+ * used to hold spline points (splines larger than this have to
+ * have their arrays malloc-ed).
+ */
+
+#define MAX_STATIC_POINTS 200
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateLine --
+ *
+ *	This procedure is invoked to create a new line item in
+ *	a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is left uninitialized,
+ *	so it can be safely freed by the caller.
+ *
+ * Side effects:
+ *	A new line item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateLine(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing line. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    int i;
+
+    if (argc < 4) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x1 y1 x2 y2 ?x3 y3 ...? ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Carry out initialization that is needed to set defaults and to
+     * allow proper cleanup after errors during the the remainder of
+     * this procedure.
+     */
+
+    linePtr->canvas = canvas;
+    linePtr->numPoints = 0;
+    linePtr->coordPtr = NULL;
+    linePtr->width = 1;
+    linePtr->fg = None;
+    linePtr->fillStipple = None;
+    linePtr->capStyle = CapButt;
+    linePtr->joinStyle = JoinRound;
+    linePtr->gc = None;
+    linePtr->arrowGC = None;
+    if (noneUid == NULL) {
+	noneUid = Tk_GetUid("none");
+	firstUid = Tk_GetUid("first");
+	lastUid = Tk_GetUid("last");
+	bothUid = Tk_GetUid("both");
+    }
+    linePtr->arrow = noneUid;
+    linePtr->arrowShapeA = 8.0;
+    linePtr->arrowShapeB = 10.0;
+    linePtr->arrowShapeC = 3.0;
+    linePtr->firstArrowPtr = NULL;
+    linePtr->lastArrowPtr = NULL;
+    linePtr->smooth = 0;
+    linePtr->splineSteps = 12;
+
+    /*
+     * Count the number of points and then parse them into a point
+     * array.  Leading arguments are assumed to be points if they
+     * start with a digit or a minus sign followed by a digit.
+     */
+
+    for (i = 4; i < (argc-1); i+=2) {
+	if ((!isdigit(UCHAR(argv[i][0]))) &&
+		((argv[i][0] != '-')
+		|| ((argv[i][1] != '.') && !isdigit(UCHAR(argv[i][1]))))) {
+	    break;
+	}
+    }
+    if (LineCoords(interp, canvas, itemPtr, i, argv) != TCL_OK) {
+	goto error;
+    }
+    if (ConfigureLine(interp, canvas, itemPtr, argc-i, argv+i, 0) == TCL_OK) {
+	return TCL_OK;
+    }
+
+    error:
+    DeleteLine(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * LineCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on lines.  See the user documentation for details
+ *	on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+LineCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    char buffer[TCL_DOUBLE_SPACE];
+    int i, numPoints;
+
+    if (argc == 0) {
+	double *coordPtr;
+	int numCoords;
+
+	numCoords = 2*linePtr->numPoints;
+	if (linePtr->firstArrowPtr != NULL) {
+	    coordPtr = linePtr->firstArrowPtr;
+	} else {
+	    coordPtr = linePtr->coordPtr;
+	}
+	for (i = 0; i < numCoords; i++, coordPtr++) {
+	    if (i == 2) {
+		coordPtr = linePtr->coordPtr+2;
+	    }
+	    if ((linePtr->lastArrowPtr != NULL) && (i == (numCoords-2))) {
+		coordPtr = linePtr->lastArrowPtr;
+	    }
+	    Tcl_PrintDouble(interp, *coordPtr, buffer);
+	    Tcl_AppendElement(interp, buffer);
+	}
+    } else if (argc < 4) {
+	Tcl_AppendResult(interp,
+		"too few coordinates for line: must have at least 4",
+		(char *) NULL);
+	return TCL_ERROR;
+    } else if (argc & 1) {
+	Tcl_AppendResult(interp,
+		"odd number of coordinates specified for line",
+		(char *) NULL);
+	return TCL_ERROR;
+    } else {
+	numPoints = argc/2;
+	if (linePtr->numPoints != numPoints) {
+	    if (linePtr->coordPtr != NULL) {
+		ckfree((char *) linePtr->coordPtr);
+	    }
+	    linePtr->coordPtr = (double *) ckalloc((unsigned)
+		    (sizeof(double) * argc));
+	    linePtr->numPoints = numPoints;
+	}
+	for (i = argc-1; i >= 0; i--) {
+	    if (Tk_CanvasGetCoord(interp, canvas, argv[i],
+		    &linePtr->coordPtr[i]) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	}
+
+	/*
+	 * Update arrowheads by throwing away any existing arrow-head
+	 * information and calling ConfigureArrows to recompute it.
+	 */
+
+	if (linePtr->firstArrowPtr != NULL) {
+	    ckfree((char *) linePtr->firstArrowPtr);
+	    linePtr->firstArrowPtr = NULL;
+	}
+	if (linePtr->lastArrowPtr != NULL) {
+	    ckfree((char *) linePtr->lastArrowPtr);
+	    linePtr->lastArrowPtr = NULL;
+	}
+	if (linePtr->arrow != noneUid) {
+	    ConfigureArrows(canvas, linePtr);
+	}
+	ComputeLineBbox(canvas, linePtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureLine --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a line item such as its background color.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information, such as colors and stipple
+ *	patterns, may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureLine(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Line item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC, arrowGC;
+    unsigned long mask;
+    Tk_Window tkwin;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) linePtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as
+     * graphics contexts.
+     */
+
+    if (linePtr->fg == NULL) {
+	newGC = arrowGC = None;
+    } else {
+	gcValues.foreground = linePtr->fg->pixel;
+	gcValues.join_style = linePtr->joinStyle;
+	if (linePtr->width < 0) {
+	    linePtr->width = 1;
+	}
+	gcValues.line_width = linePtr->width;
+	mask = GCForeground|GCJoinStyle|GCLineWidth;
+	if (linePtr->fillStipple != None) {
+	    gcValues.stipple = linePtr->fillStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCStipple|GCFillStyle;
+	}
+	if (linePtr->arrow == noneUid) {
+	    gcValues.cap_style = linePtr->capStyle;
+	    mask |= GCCapStyle;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+	gcValues.line_width = 0;
+	arrowGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (linePtr->gc != None) {
+	Tk_FreeGC(Tk_Display(tkwin), linePtr->gc);
+    }
+    if (linePtr->arrowGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), linePtr->arrowGC);
+    }
+    linePtr->gc = newGC;
+    linePtr->arrowGC = arrowGC;
+
+    /*
+     * Keep spline parameters within reasonable limits.
+     */
+
+    if (linePtr->splineSteps < 1) {
+	linePtr->splineSteps = 1;
+    } else if (linePtr->splineSteps > 100) {
+	linePtr->splineSteps = 100;
+    }
+
+    /*
+     * Setup arrowheads, if needed.  If arrowheads are turned off,
+     * restore the line's endpoints (they were shortened when the
+     * arrowheads were added).
+     */
+
+    if ((linePtr->firstArrowPtr != NULL) && (linePtr->arrow != firstUid)
+	    && (linePtr->arrow != bothUid)) {
+	linePtr->coordPtr[0] = linePtr->firstArrowPtr[0];
+	linePtr->coordPtr[1] = linePtr->firstArrowPtr[1];
+	ckfree((char *) linePtr->firstArrowPtr);
+	linePtr->firstArrowPtr = NULL;
+    }
+    if ((linePtr->lastArrowPtr != NULL) && (linePtr->arrow != lastUid)
+	    && (linePtr->arrow != bothUid)) {
+	int i;
+
+	i = 2*(linePtr->numPoints-1);
+	linePtr->coordPtr[i] = linePtr->lastArrowPtr[0];
+	linePtr->coordPtr[i+1] = linePtr->lastArrowPtr[1];
+	ckfree((char *) linePtr->lastArrowPtr);
+	linePtr->lastArrowPtr = NULL;
+    }
+    if (linePtr->arrow != noneUid) {
+	if ((linePtr->arrow != firstUid) && (linePtr->arrow != lastUid)
+		&& (linePtr->arrow != bothUid)) {
+	    Tcl_AppendResult(interp, "bad arrow spec \"",
+		    linePtr->arrow, "\": must be none, first, last, or both",
+		    (char *) NULL);
+	    linePtr->arrow = noneUid;
+	    return TCL_ERROR;
+	}
+	ConfigureArrows(canvas, linePtr);
+    }
+
+    /*
+     * Recompute bounding box for line.
+     */
+
+    ComputeLineBbox(canvas, linePtr);
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteLine --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a line item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteLine(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+
+    if (linePtr->coordPtr != NULL) {
+	ckfree((char *) linePtr->coordPtr);
+    }
+    if (linePtr->fg != NULL) {
+	Tk_FreeColor(linePtr->fg);
+    }
+    if (linePtr->fillStipple != None) {
+	Tk_FreeBitmap(display, linePtr->fillStipple);
+    }
+    if (linePtr->gc != None) {
+	Tk_FreeGC(display, linePtr->gc);
+    }
+    if (linePtr->arrowGC != None) {
+	Tk_FreeGC(display, linePtr->arrowGC);
+    }
+    if (linePtr->firstArrowPtr != NULL) {
+	ckfree((char *) linePtr->firstArrowPtr);
+    }
+    if (linePtr->lastArrowPtr != NULL) {
+	ckfree((char *) linePtr->lastArrowPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeLineBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a line.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeLineBbox(canvas, linePtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    LineItem *linePtr;			/* Item whose bbos is to be
+					 * recomputed. */
+{
+    double *coordPtr;
+    int i;
+
+    coordPtr = linePtr->coordPtr;
+    linePtr->header.x1 = linePtr->header.x2 = *coordPtr;
+    linePtr->header.y1 = linePtr->header.y2 = coordPtr[1];
+
+    /*
+     * Compute the bounding box of all the points in the line,
+     * then expand in all directions by the line's width to take
+     * care of butting or rounded corners and projecting or
+     * rounded caps.  This expansion is an overestimate (worst-case
+     * is square root of two over two) but it's simple.  Don't do
+     * anything special for curves.  This causes an additional
+     * overestimate in the bounding box, but is faster.
+     */
+
+    for (i = 1, coordPtr = linePtr->coordPtr+2; i < linePtr->numPoints;
+	    i++, coordPtr += 2) {
+	TkIncludePoint((Tk_Item *) linePtr, coordPtr);
+    }
+    linePtr->header.x1 -= linePtr->width;
+    linePtr->header.x2 += linePtr->width;
+    linePtr->header.y1 -= linePtr->width;
+    linePtr->header.y2 += linePtr->width;
+
+    /*
+     * For mitered lines, make a second pass through all the points.
+     * Compute the locations of the two miter vertex points and add
+     * those into the bounding box.
+     */
+
+    if (linePtr->joinStyle == JoinMiter) {
+	for (i = linePtr->numPoints, coordPtr = linePtr->coordPtr; i >= 3;
+		i--, coordPtr += 2) {
+	    double miter[4];
+	    int j;
+    
+	    if (TkGetMiterPoints(coordPtr, coordPtr+2, coordPtr+4,
+		    (double) linePtr->width, miter, miter+2)) {
+		for (j = 0; j < 4; j += 2) {
+		    TkIncludePoint((Tk_Item *) linePtr, miter+j);
+		}
+	    }
+	}
+    }
+
+    /*
+     * Add in the sizes of arrowheads, if any.
+     */
+
+    if (linePtr->arrow != noneUid) {
+	if (linePtr->arrow != lastUid) {
+	    for (i = 0, coordPtr = linePtr->firstArrowPtr; i < PTS_IN_ARROW;
+		    i++, coordPtr += 2) {
+		TkIncludePoint((Tk_Item *) linePtr, coordPtr);
+	    }
+	}
+	if (linePtr->arrow != firstUid) {
+	    for (i = 0, coordPtr = linePtr->lastArrowPtr; i < PTS_IN_ARROW;
+		    i++, coordPtr += 2) {
+		TkIncludePoint((Tk_Item *) linePtr, coordPtr);
+	    }
+	}
+    }
+
+    /*
+     * Add one more pixel of fudge factor just to be safe (e.g.
+     * X may round differently than we do).
+     */
+
+    linePtr->header.x1 -= 1;
+    linePtr->header.x2 += 1;
+    linePtr->header.y1 -= 1;
+    linePtr->header.y2 += 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayLine --
+ *
+ *	This procedure is invoked to draw a line item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayLine(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    XPoint staticPoints[MAX_STATIC_POINTS];
+    XPoint *pointPtr;
+    XPoint *pPtr;
+    double *coordPtr;
+    int i, numPoints;
+
+    if (linePtr->gc == None) {
+	return;
+    }
+
+    /*
+     * Build up an array of points in screen coordinates.  Use a
+     * static array unless the line has an enormous number of points;
+     * in this case, dynamically allocate an array.  For smoothed lines,
+     * generate the curve points on each redisplay.
+     */
+
+    if ((linePtr->smooth) && (linePtr->numPoints > 2)) {
+	numPoints = 1 + linePtr->numPoints*linePtr->splineSteps;
+    } else {
+	numPoints = linePtr->numPoints;
+    }
+
+    if (numPoints <= MAX_STATIC_POINTS) {
+	pointPtr = staticPoints;
+    } else {
+	pointPtr = (XPoint *) ckalloc((unsigned) (numPoints * sizeof(XPoint)));
+    }
+
+    if ((linePtr->smooth) && (linePtr->numPoints > 2)) {
+	numPoints = TkMakeBezierCurve(canvas, linePtr->coordPtr,
+		linePtr->numPoints, linePtr->splineSteps, pointPtr,
+		(double *) NULL);
+    } else {
+	for (i = 0, coordPtr = linePtr->coordPtr, pPtr = pointPtr;
+		i < linePtr->numPoints;  i += 1, coordPtr += 2, pPtr++) {
+	    Tk_CanvasDrawableCoords(canvas, coordPtr[0], coordPtr[1],
+		    &pPtr->x, &pPtr->y);
+	}
+    }
+
+    /*
+     * Display line, the free up line storage if it was dynamically
+     * allocated.  If we're stippling, then modify the stipple offset
+     * in the GC.  Be sure to reset the offset when done, since the
+     * GC is supposed to be read-only.
+     */
+
+    if (linePtr->fillStipple != None) {
+	Tk_CanvasSetStippleOrigin(canvas, linePtr->gc);
+	Tk_CanvasSetStippleOrigin(canvas, linePtr->arrowGC);
+    }
+    XDrawLines(display, drawable, linePtr->gc, pointPtr, numPoints,
+	    CoordModeOrigin);
+    if (pointPtr != staticPoints) {
+	ckfree((char *) pointPtr);
+    }
+
+    /*
+     * Display arrowheads, if they are wanted.
+     */
+
+    if (linePtr->firstArrowPtr != NULL) {
+	TkFillPolygon(canvas, linePtr->firstArrowPtr, PTS_IN_ARROW,
+		display, drawable, linePtr->gc, NULL);
+    }
+    if (linePtr->lastArrowPtr != NULL) {
+	TkFillPolygon(canvas, linePtr->lastArrowPtr, PTS_IN_ARROW,
+		display, drawable, linePtr->gc, NULL);
+    }
+    if (linePtr->fillStipple != None) {
+	XSetTSOrigin(display, linePtr->gc, 0, 0);
+	XSetTSOrigin(display, linePtr->arrowGC, 0, 0);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * LineToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	line, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are pointPtr[0] and pointPtr[1] is inside the line.  If the
+ *	point isn't inside the line then the return value is the
+ *	distance from the point to the line.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+LineToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    double *coordPtr, *linePoints;
+    double staticSpace[2*MAX_STATIC_POINTS];
+    double poly[10];
+    double bestDist, dist;
+    int numPoints, count;
+    int changedMiterToBevel;	/* Non-zero means that a mitered corner
+				 * had to be treated as beveled after all
+				 * because the angle was < 11 degrees. */
+
+    bestDist = 1.0e36;
+
+    /*
+     * Handle smoothed lines by generating an expanded set of points
+     * against which to do the check.
+     */
+
+    if ((linePtr->smooth) && (linePtr->numPoints > 2)) {
+	numPoints = 1 + linePtr->numPoints*linePtr->splineSteps;
+	if (numPoints <= MAX_STATIC_POINTS) {
+	    linePoints = staticSpace;
+	} else {
+	    linePoints = (double *) ckalloc((unsigned)
+		    (2*numPoints*sizeof(double)));
+	}
+	numPoints = TkMakeBezierCurve(canvas, linePtr->coordPtr,
+		linePtr->numPoints, linePtr->splineSteps, (XPoint *) NULL,
+		linePoints);
+    } else {
+	numPoints = linePtr->numPoints;
+	linePoints = linePtr->coordPtr;
+    }
+
+    /*
+     * The overall idea is to iterate through all of the edges of
+     * the line, computing a polygon for each edge and testing the
+     * point against that polygon.  In addition, there are additional
+     * tests to deal with rounded joints and caps.
+     */
+
+    changedMiterToBevel = 0;
+    for (count = numPoints, coordPtr = linePoints; count >= 2;
+	    count--, coordPtr += 2) {
+
+	/*
+	 * If rounding is done around the first point then compute
+	 * the distance between the point and the point.
+	 */
+
+	if (((linePtr->capStyle == CapRound) && (count == numPoints))
+		|| ((linePtr->joinStyle == JoinRound)
+			&& (count != numPoints))) {
+	    dist = hypot(coordPtr[0] - pointPtr[0], coordPtr[1] - pointPtr[1])
+		    - linePtr->width/2.0;
+	    if (dist <= 0.0) {
+		bestDist = 0.0;
+		goto done;
+	    } else if (dist < bestDist) {
+		bestDist = dist;
+	    }
+	}
+
+	/*
+	 * Compute the polygonal shape corresponding to this edge,
+	 * consisting of two points for the first point of the edge
+	 * and two points for the last point of the edge.
+	 */
+
+	if (count == numPoints) {
+	    TkGetButtPoints(coordPtr+2, coordPtr, (double) linePtr->width,
+		    linePtr->capStyle == CapProjecting, poly, poly+2);
+	} else if ((linePtr->joinStyle == JoinMiter) && !changedMiterToBevel) {
+	    poly[0] = poly[6];
+	    poly[1] = poly[7];
+	    poly[2] = poly[4];
+	    poly[3] = poly[5];
+	} else {
+	    TkGetButtPoints(coordPtr+2, coordPtr, (double) linePtr->width, 0,
+		    poly, poly+2);
+
+	    /*
+	     * If this line uses beveled joints, then check the distance
+	     * to a polygon comprising the last two points of the previous
+	     * polygon and the first two from this polygon;  this checks
+	     * the wedges that fill the mitered joint.
+	     */
+
+	    if ((linePtr->joinStyle == JoinBevel) || changedMiterToBevel) {
+		poly[8] = poly[0];
+		poly[9] = poly[1];
+		dist = TkPolygonToPoint(poly, 5, pointPtr);
+		if (dist <= 0.0) {
+		    bestDist = 0.0;
+		    goto done;
+		} else if (dist < bestDist) {
+		    bestDist = dist;
+		}
+		changedMiterToBevel = 0;
+	    }
+	}
+	if (count == 2) {
+	    TkGetButtPoints(coordPtr, coordPtr+2, (double) linePtr->width,
+		    linePtr->capStyle == CapProjecting, poly+4, poly+6);
+	} else if (linePtr->joinStyle == JoinMiter) {
+	    if (TkGetMiterPoints(coordPtr, coordPtr+2, coordPtr+4,
+		    (double) linePtr->width, poly+4, poly+6) == 0) {
+		changedMiterToBevel = 1;
+		TkGetButtPoints(coordPtr, coordPtr+2, (double) linePtr->width,
+			0, poly+4, poly+6);
+	    }
+	} else {
+	    TkGetButtPoints(coordPtr, coordPtr+2, (double) linePtr->width, 0,
+		    poly+4, poly+6);
+	}
+	poly[8] = poly[0];
+	poly[9] = poly[1];
+	dist = TkPolygonToPoint(poly, 5, pointPtr);
+	if (dist <= 0.0) {
+	    bestDist = 0.0;
+	    goto done;
+	} else if (dist < bestDist) {
+	    bestDist = dist;
+	}
+    }
+
+    /*
+     * If caps are rounded, check the distance to the cap around the
+     * final end point of the line.
+     */
+
+    if (linePtr->capStyle == CapRound) {
+	dist = hypot(coordPtr[0] - pointPtr[0], coordPtr[1] - pointPtr[1])
+		- linePtr->width/2.0;
+	if (dist <= 0.0) {
+	    bestDist = 0.0;
+	    goto done;
+	} else if (dist < bestDist) {
+	    bestDist = dist;
+	}
+    }
+
+    /*
+     * If there are arrowheads, check the distance to the arrowheads.
+     */
+
+    if (linePtr->arrow != noneUid) {
+	if (linePtr->arrow != lastUid) {
+	    dist = TkPolygonToPoint(linePtr->firstArrowPtr, PTS_IN_ARROW,
+		    pointPtr);
+	    if (dist <= 0.0) {
+		bestDist = 0.0;
+		goto done;
+	    } else if (dist < bestDist) {
+		bestDist = dist;
+	    }
+	}
+	if (linePtr->arrow != firstUid) {
+	    dist = TkPolygonToPoint(linePtr->lastArrowPtr, PTS_IN_ARROW,
+		    pointPtr);
+	    if (dist <= 0.0) {
+		bestDist = 0.0;
+		goto done;
+	    } else if (dist < bestDist) {
+		bestDist = dist;
+	    }
+	}
+    }
+
+    done:
+    if ((linePoints != staticSpace) && (linePoints != linePtr->coordPtr)) {
+	ckfree((char *) linePoints);
+    }
+    return bestDist;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * LineToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the
+ *	area, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+LineToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against line. */
+    double *rectPtr;
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    double staticSpace[2*MAX_STATIC_POINTS];
+    double *linePoints;
+    double radius;
+    int numPoints, result;
+
+    radius = linePtr->width/2.0;
+
+    /*
+     * Handle smoothed lines by generating an expanded set of points
+     * against which to do the check.
+     */
+
+    if ((linePtr->smooth) && (linePtr->numPoints > 2)) {
+	numPoints = 1 + linePtr->numPoints*linePtr->splineSteps;
+	if (numPoints <= MAX_STATIC_POINTS) {
+	    linePoints = staticSpace;
+	} else {
+	    linePoints = (double *) ckalloc((unsigned)
+		    (2*numPoints*sizeof(double)));
+	}
+	numPoints = TkMakeBezierCurve(canvas, linePtr->coordPtr,
+		linePtr->numPoints, linePtr->splineSteps, (XPoint *) NULL,
+		linePoints);
+    } else {
+	numPoints = linePtr->numPoints;
+	linePoints = linePtr->coordPtr;
+    }
+
+    /*
+     * Check the segments of the line.
+     */
+
+    result = TkThickPolyLineToArea(linePoints, numPoints, 
+	    (double) linePtr->width, linePtr->capStyle, linePtr->joinStyle,
+	    rectPtr);
+    if (result == 0) {
+	goto done;
+    }
+
+    /*
+     * Check arrowheads, if any.
+     */
+
+    if (linePtr->arrow != noneUid) {
+	if (linePtr->arrow != lastUid) {
+	    if (TkPolygonToArea(linePtr->firstArrowPtr, PTS_IN_ARROW,
+		    rectPtr) != result) {
+		result = 0;
+		goto done;
+	    }
+	}
+	if (linePtr->arrow != firstUid) {
+	    if (TkPolygonToArea(linePtr->lastArrowPtr, PTS_IN_ARROW,
+		    rectPtr) != result) {
+		result = 0;
+		goto done;
+	    }
+	}
+    }
+
+    done:
+    if ((linePoints != staticSpace) && (linePoints != linePtr->coordPtr)) {
+	ckfree((char *) linePoints);
+    }
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleLine --
+ *
+ *	This procedure is invoked to rescale a line item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The line referred to by itemPtr is rescaled so that the
+ *	following transformation is applied to all point
+ *	coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleLine(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing line. */
+    Tk_Item *itemPtr;			/* Line to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    double *coordPtr;
+    int i;
+
+    /*
+     * Delete any arrowheads before scaling all the points (so that
+     * the end-points of the line get restored).
+     */
+
+    if (linePtr->firstArrowPtr != NULL) {
+	linePtr->coordPtr[0] = linePtr->firstArrowPtr[0];
+	linePtr->coordPtr[1] = linePtr->firstArrowPtr[1];
+	ckfree((char *) linePtr->firstArrowPtr);
+	linePtr->firstArrowPtr = NULL;
+    }
+    if (linePtr->lastArrowPtr != NULL) {
+	int i;
+
+	i = 2*(linePtr->numPoints-1);
+	linePtr->coordPtr[i] = linePtr->lastArrowPtr[0];
+	linePtr->coordPtr[i+1] = linePtr->lastArrowPtr[1];
+	ckfree((char *) linePtr->lastArrowPtr);
+	linePtr->lastArrowPtr = NULL;
+    }
+    for (i = 0, coordPtr = linePtr->coordPtr; i < linePtr->numPoints;
+	    i++, coordPtr += 2) {
+	coordPtr[0] = originX + scaleX*(*coordPtr - originX);
+	coordPtr[1] = originY + scaleY*(coordPtr[1] - originY);
+    }
+    if (linePtr->arrow != noneUid) {
+	ConfigureArrows(canvas, linePtr);
+    }
+    ComputeLineBbox(canvas, linePtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateLine --
+ *
+ *	This procedure is called to move a line by a given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the line is offset by (xDelta, yDelta), and
+ *	the bounding box is updated in the generic part of the item
+ *	structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateLine(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    double *coordPtr;
+    int i;
+
+    for (i = 0, coordPtr = linePtr->coordPtr; i < linePtr->numPoints;
+	    i++, coordPtr += 2) {
+	coordPtr[0] += deltaX;
+	coordPtr[1] += deltaY;
+    }
+    if (linePtr->firstArrowPtr != NULL) {
+	for (i = 0, coordPtr = linePtr->firstArrowPtr; i < PTS_IN_ARROW;
+		i++, coordPtr += 2) {
+	    coordPtr[0] += deltaX;
+	    coordPtr[1] += deltaY;
+	}
+    }
+    if (linePtr->lastArrowPtr != NULL) {
+	for (i = 0, coordPtr = linePtr->lastArrowPtr; i < PTS_IN_ARROW;
+		i++, coordPtr += 2) {
+	    coordPtr[0] += deltaX;
+	    coordPtr[1] += deltaY;
+	}
+    }
+    ComputeLineBbox(canvas, linePtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ParseArrowShape --
+ *
+ *	This procedure is called back during option parsing to
+ *	parse arrow shape information.
+ *
+ * Results:
+ *	The return value is a standard Tcl result:  TCL_OK means
+ *	that the arrow shape information was parsed ok, and
+ *	TCL_ERROR means it couldn't be parsed.
+ *
+ * Side effects:
+ *	Arrow information in recordPtr is updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ParseArrowShape(clientData, interp, tkwin, value, recordPtr, offset)
+    ClientData clientData;	/* Not used. */
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Window tkwin;		/* Not used. */
+    char *value;		/* Textual specification of arrow shape. */
+    char *recordPtr;		/* Pointer to item record in which to
+				 * store arrow information. */
+    int offset;			/* Offset of shape information in widget
+				 * record. */
+{
+    LineItem *linePtr = (LineItem *) recordPtr;
+    double a, b, c;
+    int argc;
+    char **argv = NULL;
+
+    if (offset != Tk_Offset(LineItem, arrowShapeA)) {
+	panic("ParseArrowShape received bogus offset");
+    }
+
+    if (Tcl_SplitList(interp, value, &argc, &argv) != TCL_OK) {
+	syntaxError:
+	Tcl_ResetResult(interp);
+	Tcl_AppendResult(interp, "bad arrow shape \"", value,
+		"\": must be list with three numbers", (char *) NULL);
+	if (argv != NULL) {
+	    ckfree((char *) argv);
+	}
+	return TCL_ERROR;
+    }
+    if (argc != 3) {
+	goto syntaxError;
+    }
+    if ((Tk_CanvasGetCoord(interp, linePtr->canvas, argv[0], &a) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, linePtr->canvas, argv[1], &b)
+		!= TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, linePtr->canvas, argv[2], &c)
+		!= TCL_OK)) {
+	goto syntaxError;
+    }
+    linePtr->arrowShapeA = a;
+    linePtr->arrowShapeB = b;
+    linePtr->arrowShapeC = c;
+    ckfree((char *) argv);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PrintArrowShape --
+ *
+ *	This procedure is a callback invoked by the configuration
+ *	code to return a printable value describing an arrow shape.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+    /* ARGSUSED */
+static char *
+PrintArrowShape(clientData, tkwin, recordPtr, offset, freeProcPtr)
+    ClientData clientData;	/* Not used. */
+    Tk_Window tkwin;		/* Window associated with linePtr's widget. */
+    char *recordPtr;		/* Pointer to item record containing current
+				 * shape information. */
+    int offset;			/* Offset of arrow information in record. */
+    Tcl_FreeProc **freeProcPtr;	/* Store address of procedure to call to
+				 * free string here. */
+{
+    LineItem *linePtr = (LineItem *) recordPtr;
+    char *buffer;
+
+    buffer = (char *) ckalloc(120);
+#ifdef STk_CODE
+    sprintf(buffer, "(%.5g %.5g %.5g)", linePtr->arrowShapeA,
+	    linePtr->arrowShapeB, linePtr->arrowShapeC);
+#else
+    sprintf(buffer, "%.5g %.5g %.5g", linePtr->arrowShapeA,
+	    linePtr->arrowShapeB, linePtr->arrowShapeC);
+#endif
+    *freeProcPtr = TCL_DYNAMIC;
+    return buffer;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureArrows --
+ *
+ *	If arrowheads have been requested for a line, this
+ *	procedure makes arrangements for the arrowheads.
+ *
+ * Results:
+ *	Always returns TCL_OK.
+ *
+ * Side effects:
+ *	Information in linePtr is set up for one or two arrowheads.
+ *	the firstArrowPtr and lastArrowPtr polygons are allocated
+ *	and initialized, if need be, and the end points of the line
+ *	are adjusted so that a thick line doesn't stick out past
+ *	the arrowheads.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ConfigureArrows(canvas, linePtr)
+    Tk_Canvas canvas;			/* Canvas in which arrows will be
+					 * displayed (interp and tkwin
+					 * fields are needed). */
+    LineItem *linePtr;			/* Item to configure for arrows. */
+{
+    double *poly, *coordPtr;
+    double dx, dy, length, sinTheta, cosTheta, temp;
+    double fracHeight;			/* Line width as fraction of
+					 * arrowhead width. */
+    double backup;			/* Distance to backup end points
+					 * so the line ends in the middle
+					 * of the arrowhead. */
+    double vertX, vertY;		/* Position of arrowhead vertex. */
+    double shapeA, shapeB, shapeC;	/* Adjusted coordinates (see
+					 * explanation below). */
+
+    /*
+     * The code below makes a tiny increase in the shape parameters
+     * for the line.  This is a bit of a hack, but it seems to result
+     * in displays that more closely approximate the specified parameters.
+     * Without the adjustment, the arrows come out smaller than expected.
+     */
+
+    shapeA = linePtr->arrowShapeA + 0.001;
+    shapeB = linePtr->arrowShapeB + 0.001;
+    shapeC = linePtr->arrowShapeC + linePtr->width/2.0 + 0.001;
+
+    /*
+     * If there's an arrowhead on the first point of the line, compute
+     * its polygon and adjust the first point of the line so that the
+     * line doesn't stick out past the leading edge of the arrowhead.
+     */
+
+    fracHeight = (linePtr->width/2.0)/shapeC;
+    backup = fracHeight*shapeB + shapeA*(1.0 - fracHeight)/2.0;
+    if (linePtr->arrow != lastUid) {
+	poly = linePtr->firstArrowPtr;
+	if (poly == NULL) {
+	    poly = (double *) ckalloc((unsigned)
+		    (2*PTS_IN_ARROW*sizeof(double)));
+	    poly[0] = poly[10] = linePtr->coordPtr[0];
+	    poly[1] = poly[11] = linePtr->coordPtr[1];
+	    linePtr->firstArrowPtr = poly;
+	}
+	dx = poly[0] - linePtr->coordPtr[2];
+	dy = poly[1] - linePtr->coordPtr[3];
+	length = hypot(dx, dy);
+	if (length == 0) {
+	    sinTheta = cosTheta = 0.0;
+	} else {
+	    sinTheta = dy/length;
+	    cosTheta = dx/length;
+	}
+	vertX = poly[0] - shapeA*cosTheta;
+	vertY = poly[1] - shapeA*sinTheta;
+	temp = shapeC*sinTheta;
+	poly[2] = poly[0] - shapeB*cosTheta + temp;
+	poly[8] = poly[2] - 2*temp;
+	temp = shapeC*cosTheta;
+	poly[3] = poly[1] - shapeB*sinTheta - temp;
+	poly[9] = poly[3] + 2*temp;
+	poly[4] = poly[2]*fracHeight + vertX*(1.0-fracHeight);
+	poly[5] = poly[3]*fracHeight + vertY*(1.0-fracHeight);
+	poly[6] = poly[8]*fracHeight + vertX*(1.0-fracHeight);
+	poly[7] = poly[9]*fracHeight + vertY*(1.0-fracHeight);
+
+	/*
+	 * Polygon done.  Now move the first point towards the second so
+	 * that the corners at the end of the line are inside the
+	 * arrowhead.
+	 */
+
+	linePtr->coordPtr[0] = poly[0] - backup*cosTheta;
+	linePtr->coordPtr[1] = poly[1] - backup*sinTheta;
+    }
+
+    /*
+     * Similar arrowhead calculation for the last point of the line.
+     */
+
+    if (linePtr->arrow != firstUid) {
+	coordPtr = linePtr->coordPtr + 2*(linePtr->numPoints-2);
+	poly = linePtr->lastArrowPtr;
+	if (poly == NULL) {
+	    poly = (double *) ckalloc((unsigned)
+		    (2*PTS_IN_ARROW*sizeof(double)));
+	    poly[0] = poly[10] = coordPtr[2];
+	    poly[1] = poly[11] = coordPtr[3];
+	    linePtr->lastArrowPtr = poly;
+	}
+	dx = poly[0] - coordPtr[0];
+	dy = poly[1] - coordPtr[1];
+	length = hypot(dx, dy);
+	if (length == 0) {
+	    sinTheta = cosTheta = 0.0;
+	} else {
+	    sinTheta = dy/length;
+	    cosTheta = dx/length;
+	}
+	vertX = poly[0] - shapeA*cosTheta;
+	vertY = poly[1] - shapeA*sinTheta;
+	temp = shapeC*sinTheta;
+	poly[2] = poly[0] - shapeB*cosTheta + temp;
+	poly[8] = poly[2] - 2*temp;
+	temp = shapeC*cosTheta;
+	poly[3] = poly[1] - shapeB*sinTheta - temp;
+	poly[9] = poly[3] + 2*temp;
+	poly[4] = poly[2]*fracHeight + vertX*(1.0-fracHeight);
+	poly[5] = poly[3]*fracHeight + vertY*(1.0-fracHeight);
+	poly[6] = poly[8]*fracHeight + vertX*(1.0-fracHeight);
+	poly[7] = poly[9]*fracHeight + vertY*(1.0-fracHeight);
+	coordPtr[2] = poly[0] - backup*cosTheta;
+	coordPtr[3] = poly[1] - backup*sinTheta;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * LineToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	line items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used
+ *	to be there.  If no error occurs, then Postscript for the
+ *	item is appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+LineToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    LineItem *linePtr = (LineItem *) itemPtr;
+    char buffer[200];
+    char *style;
+
+    if (linePtr->fg == NULL) {
+	return TCL_OK;
+    }
+
+    /*
+     * Generate a path for the line's center-line (do this differently
+     * for straight lines and smoothed lines).
+     */
+
+    if ((!linePtr->smooth) || (linePtr->numPoints <= 2)) {
+	Tk_CanvasPsPath(interp, canvas, linePtr->coordPtr, linePtr->numPoints);
+    } else {
+	if (linePtr->fillStipple == None) {
+	    TkMakeBezierPostscript(interp, canvas, linePtr->coordPtr,
+		    linePtr->numPoints);
+	} else {
+	    /*
+	     * Special hack: Postscript printers don't appear to be able
+	     * to turn a path drawn with "curveto"s into a clipping path
+	     * without exceeding resource limits, so TkMakeBezierPostscript
+	     * won't work for stippled curves.  Instead, generate all of
+	     * the intermediate points here and output them into the
+	     * Postscript file with "lineto"s instead.
+	     */
+
+	    double staticPoints[2*MAX_STATIC_POINTS];
+	    double *pointPtr;
+	    int numPoints;
+
+	    numPoints = 1 + linePtr->numPoints*linePtr->splineSteps;
+	    pointPtr = staticPoints;
+	    if (numPoints > MAX_STATIC_POINTS) {
+		pointPtr = (double *) ckalloc((unsigned)
+			(numPoints * 2 * sizeof(double)));
+	    }
+	    numPoints = TkMakeBezierCurve(canvas, linePtr->coordPtr,
+		    linePtr->numPoints, linePtr->splineSteps, (XPoint *) NULL,
+		    pointPtr);
+	    Tk_CanvasPsPath(interp, canvas, pointPtr, numPoints);
+	    if (pointPtr != staticPoints) {
+		ckfree((char *) pointPtr);
+	    }
+	}
+    }
+
+    /*
+     * Set other line-drawing parameters and stroke out the line.
+     */
+
+    sprintf(buffer, "%d setlinewidth\n", linePtr->width);
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+    style = "0 setlinecap\n";
+    if (linePtr->capStyle == CapRound) {
+	style = "1 setlinecap\n";
+    } else if (linePtr->capStyle == CapProjecting) {
+	style = "2 setlinecap\n";
+    }
+    Tcl_AppendResult(interp, style, (char *) NULL);
+    style = "0 setlinejoin\n";
+    if (linePtr->joinStyle == JoinRound) {
+	style = "1 setlinejoin\n";
+    } else if (linePtr->joinStyle == JoinBevel) {
+	style = "2 setlinejoin\n";
+    }
+    Tcl_AppendResult(interp, style, (char *) NULL);
+    if (Tk_CanvasPsColor(interp, canvas, linePtr->fg) != TCL_OK) {
+	return TCL_ERROR;
+    };
+    if (linePtr->fillStipple != None) {
+	Tcl_AppendResult(interp, "StrokeClip ", (char *) NULL);
+	if (Tk_CanvasPsStipple(interp, canvas, linePtr->fillStipple)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+    } else {
+	Tcl_AppendResult(interp, "stroke\n", (char *) NULL);
+    }
+
+    /*
+     * Output polygons for the arrowheads, if there are any.
+     */
+
+    if (linePtr->firstArrowPtr != NULL) {
+	if (linePtr->fillStipple != None) {
+	    Tcl_AppendResult(interp, "grestore gsave\n",
+		    (char *) NULL);
+	}
+	if (ArrowheadPostscript(interp, canvas, linePtr,
+		linePtr->firstArrowPtr) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+    }
+    if (linePtr->lastArrowPtr != NULL) {
+	if (linePtr->fillStipple != None) {
+	    Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+	}
+	if (ArrowheadPostscript(interp, canvas, linePtr,
+		linePtr->lastArrowPtr) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArrowheadPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	an arrowhead for a line item.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used
+ *	to be there.  If no error occurs, then Postscript for the
+ *	arrowhead is appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ArrowheadPostscript(interp, canvas, linePtr, arrowPtr)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    LineItem *linePtr;			/* Line item for which Postscript is
+					 * being generated. */
+    double *arrowPtr;			/* Pointer to first of five points
+					 * describing arrowhead polygon. */
+{
+    Tk_CanvasPsPath(interp, canvas, arrowPtr, PTS_IN_ARROW);
+    if (linePtr->fillStipple != None) {
+	Tcl_AppendResult(interp, "clip ", (char *) NULL);
+	if (Tk_CanvasPsStipple(interp, canvas, linePtr->fillStipple)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+    } else {
+	Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCanvPoly.c b/Tk/generic/tkCanvPoly.c
new file mode 100644
index 0000000..a72556c
--- /dev/null
+++ b/Tk/generic/tkCanvPoly.c
@@ -0,0 +1,993 @@
+/* 
+ * tkCanvPoly.c --
+ *
+ *	This file implements polygon items for canvas widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvPoly.c 1.34 96/02/15 18:52:32
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The structure below defines the record for each polygon item.
+ */
+
+typedef struct PolygonItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    int numPoints;		/* Number of points in polygon (always >= 3).
+				 * Polygon is always closed. */
+    int pointsAllocated;	/* Number of points for which space is
+				 * allocated at *coordPtr. */
+    double *coordPtr;		/* Pointer to malloc-ed array containing
+				 * x- and y-coords of all points in polygon.
+				 * X-coords are even-valued indices, y-coords
+				 * are corresponding odd-valued indices. */
+    int width;			/* Width of outline. */
+    XColor *outlineColor;	/* Color for outline. */
+    GC outlineGC;		/* Graphics context for drawing outline. */
+    XColor *fillColor;		/* Foreground color for polygon. */
+    Pixmap fillStipple;		/* Stipple bitmap for filling polygon. */
+    GC fillGC;			/* Graphics context for filling polygon. */
+    int smooth;			/* Non-zero means draw shape smoothed (i.e.
+				 * with Bezier splines). */
+    int splineSteps;		/* Number of steps in each spline segment. */
+} PolygonItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_COLOR, "-fill", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(PolygonItem, fillColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-outline", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(PolygonItem, outlineColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-smooth", (char *) NULL, (char *) NULL,
+#ifdef STk_CODE
+       "#f", Tk_Offset(PolygonItem, smooth), TK_CONFIG_DONT_SET_DEFAULT},
+#else
+	"0", Tk_Offset(PolygonItem, smooth), TK_CONFIG_DONT_SET_DEFAULT},
+#endif
+    {TK_CONFIG_INT, "-splinesteps", (char *) NULL, (char *) NULL,
+	"12", Tk_Offset(PolygonItem, splineSteps), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BITMAP, "-stipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(PolygonItem, fillStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"1", Tk_Offset(PolygonItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ComputePolygonBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    PolygonItem *polyPtr));
+static int		ConfigurePolygon _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreatePolygon _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeletePolygon _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr,  Display *display));
+static void		DisplayPolygon _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static int		PolygonCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr,
+			    int argc, char **argv));
+static int		PolygonToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		PolygonToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *pointPtr));
+static int		PolygonToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static void		ScalePolygon _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslatePolygon _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * The structures below defines the polygon item type by means
+ * of procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkPolygonType = {
+    "polygon",				/* name */
+    sizeof(PolygonItem),		/* itemSize */
+    CreatePolygon,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigurePolygon,			/* configureProc */
+    PolygonCoords,			/* coordProc */
+    DeletePolygon,			/* deleteProc */
+    DisplayPolygon,			/* displayProc */
+    0,					/* alwaysRedraw */
+    PolygonToPoint,			/* pointProc */
+    PolygonToArea,			/* areaProc */
+    PolygonToPostscript,		/* postscriptProc */
+    ScalePolygon,			/* scaleProc */
+    TranslatePolygon,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ * The definition below determines how large are static arrays
+ * used to hold spline points (splines larger than this have to
+ * have their arrays malloc-ed).
+ */
+
+#define MAX_STATIC_POINTS 200
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreatePolygon --
+ *
+ *	This procedure is invoked to create a new polygon item in
+ *	a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is
+ *	left uninitialized, so it can be safely freed by the
+ *	caller.
+ *
+ * Side effects:
+ *	A new polygon item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreatePolygon(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing polygon. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    int i;
+
+    if (argc < 6) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name,
+		" x1 y1 x2 y2 x3 y3 ?x4 y4 ...? ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Carry out initialization that is needed in order to clean
+     * up after errors during the the remainder of this procedure.
+     */
+
+    polyPtr->numPoints = 0;
+    polyPtr->pointsAllocated = 0;
+    polyPtr->coordPtr = NULL;
+    polyPtr->width = 1;
+    polyPtr->outlineColor = NULL;
+    polyPtr->outlineGC = None;
+    polyPtr->fillColor = NULL;
+    polyPtr->fillStipple = None;
+    polyPtr->fillGC = None;
+    polyPtr->smooth = 0;
+    polyPtr->splineSteps = 12;
+
+    /*
+     * Count the number of points and then parse them into a point
+     * array.  Leading arguments are assumed to be points if they
+     * start with a digit or a minus sign followed by a digit.
+     */
+
+    for (i = 4; i < (argc-1); i+=2) {
+	if ((!isdigit(UCHAR(argv[i][0]))) &&
+		((argv[i][0] != '-') || (!isdigit(UCHAR(argv[i][1]))))) {
+	    break;
+	}
+    }
+    if (PolygonCoords(interp, canvas, itemPtr, i, argv) != TCL_OK) {
+	goto error;
+    }
+
+    if (ConfigurePolygon(interp, canvas, itemPtr, argc-i, argv+i, 0)
+	    == TCL_OK) {
+	return TCL_OK;
+    }
+
+    error:
+    DeletePolygon(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PolygonCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on polygons.  See the user documentation for details
+ *	on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+PolygonCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    char buffer[TCL_DOUBLE_SPACE];
+    int i, numPoints;
+
+    if (argc == 0) {
+	for (i = 0; i < 2*polyPtr->numPoints; i++) {
+	    Tcl_PrintDouble(interp, polyPtr->coordPtr[i], buffer);
+	    Tcl_AppendElement(interp, buffer);
+	}
+    } else if (argc < 6) {
+	Tcl_AppendResult(interp,
+		"too few coordinates for polygon: must have at least 6",
+		(char *) NULL);
+	return TCL_ERROR;
+    } else if (argc & 1) {
+	Tcl_AppendResult(interp,
+		"odd number of coordinates specified for polygon",
+		(char *) NULL);
+	return TCL_ERROR;
+    } else {
+	numPoints = argc/2;
+	if (polyPtr->pointsAllocated <= numPoints) {
+	    if (polyPtr->coordPtr != NULL) {
+		ckfree((char *) polyPtr->coordPtr);
+	    }
+
+	    /*
+	     * One extra point gets allocated here, just in case we have
+	     * to add another point to close the polygon.
+	     */
+
+	    polyPtr->coordPtr = (double *) ckalloc((unsigned)
+		    (sizeof(double) * (argc+2)));
+	    polyPtr->pointsAllocated = numPoints+1;
+	}
+	for (i = argc-1; i >= 0; i--) {
+	    if (Tk_CanvasGetCoord(interp, canvas, argv[i],
+		    &polyPtr->coordPtr[i]) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	}
+	polyPtr->numPoints = numPoints;
+    
+	/*
+	 * Close the polygon if it isn't already closed.
+	 */
+    
+	if ((polyPtr->coordPtr[argc-2] != polyPtr->coordPtr[0])
+		|| (polyPtr->coordPtr[argc-1] != polyPtr->coordPtr[1])) {
+	    polyPtr->numPoints++;
+	    polyPtr->coordPtr[argc] = polyPtr->coordPtr[0];
+	    polyPtr->coordPtr[argc+1] = polyPtr->coordPtr[1];
+	}
+	ComputePolygonBbox(canvas, polyPtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigurePolygon --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a polygon item such as its background color.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information, such as colors and stipple
+ *	patterns, may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigurePolygon(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Polygon item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    Tk_Window tkwin;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) polyPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as
+     * graphics contexts.
+     */
+
+    if (polyPtr->width < 1) {
+	polyPtr->width = 1;
+    }
+    if (polyPtr->outlineColor == NULL) {
+	newGC = None;
+    } else {
+	gcValues.foreground = polyPtr->outlineColor->pixel;
+	gcValues.line_width = polyPtr->width;
+	gcValues.cap_style = CapRound;
+	gcValues.join_style = JoinRound;
+	mask = GCForeground|GCLineWidth|GCCapStyle|GCJoinStyle;
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (polyPtr->outlineGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), polyPtr->outlineGC);
+    }
+    polyPtr->outlineGC = newGC;
+
+    if (polyPtr->fillColor == NULL) {
+	newGC = None;
+    } else {
+	gcValues.foreground = polyPtr->fillColor->pixel;
+	mask = GCForeground;
+	if (polyPtr->fillStipple != None) {
+	    gcValues.stipple = polyPtr->fillStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCStipple|GCFillStyle;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (polyPtr->fillGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), polyPtr->fillGC);
+    }
+    polyPtr->fillGC = newGC;
+
+    /*
+     * Keep spline parameters within reasonable limits.
+     */
+
+    if (polyPtr->splineSteps < 1) {
+	polyPtr->splineSteps = 1;
+    } else if (polyPtr->splineSteps > 100) {
+	polyPtr->splineSteps = 100;
+    }
+
+    ComputePolygonBbox(canvas, polyPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeletePolygon --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a polygon item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeletePolygon(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+
+    if (polyPtr->coordPtr != NULL) {
+	ckfree((char *) polyPtr->coordPtr);
+    }
+    if (polyPtr->fillColor != NULL) {
+	Tk_FreeColor(polyPtr->fillColor);
+    }
+    if (polyPtr->fillStipple != None) {
+	Tk_FreeBitmap(display, polyPtr->fillStipple);
+    }
+    if (polyPtr->outlineColor != NULL) {
+	Tk_FreeColor(polyPtr->outlineColor);
+    }
+    if (polyPtr->outlineGC != None) {
+	Tk_FreeGC(display, polyPtr->outlineGC);
+    }
+    if (polyPtr->fillGC != None) {
+	Tk_FreeGC(display, polyPtr->fillGC);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputePolygonBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a polygon.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputePolygonBbox(canvas, polyPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    PolygonItem *polyPtr;		/* Item whose bbox is to be
+					 * recomputed. */
+{
+    double *coordPtr;
+    int i;
+
+    coordPtr = polyPtr->coordPtr;
+    polyPtr->header.x1 = polyPtr->header.x2 = *coordPtr;
+    polyPtr->header.y1 = polyPtr->header.y2 = coordPtr[1];
+
+    for (i = 1, coordPtr = polyPtr->coordPtr+2; i < polyPtr->numPoints;
+	    i++, coordPtr += 2) {
+	TkIncludePoint((Tk_Item *) polyPtr, coordPtr);
+    }
+
+    /*
+     * Expand bounding box in all directions to account for the outline,
+     * which can stick out beyond the polygon.  Add one extra pixel of
+     * fudge, just in case X rounds differently than we do.
+     */
+
+    i = (polyPtr->width+1)/2 + 1;
+    polyPtr->header.x1 -= i;
+    polyPtr->header.x2 += i;
+    polyPtr->header.y1 -= i;
+    polyPtr->header.y2 += i;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkFillPolygon --
+ *
+ *	This procedure is invoked to convert a polygon to screen
+ *	coordinates and display it using a particular GC.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkFillPolygon(canvas, coordPtr, numPoints, display, drawable, gc, outlineGC)
+    Tk_Canvas canvas;			/* Canvas whose coordinate system
+					 * is to be used for drawing. */
+    double *coordPtr;			/* Array of coordinates for polygon:
+					 * x1, y1, x2, y2, .... */
+    int numPoints;			/* Twice this many coordinates are
+					 * present at *coordPtr. */
+    Display *display;			/* Display on which to draw polygon. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * polygon. */
+    GC gc;				/* Graphics context for drawing. */
+    GC outlineGC;			/* If not None, use this to draw an
+					 * outline around the polygon after
+					 * filling it. */
+{
+    XPoint staticPoints[MAX_STATIC_POINTS];
+    XPoint *pointPtr;
+    XPoint *pPtr;
+    int i;
+
+    /*
+     * Build up an array of points in screen coordinates.  Use a
+     * static array unless the polygon has an enormous number of points;
+     * in this case, dynamically allocate an array.
+     */
+
+    if (numPoints <= MAX_STATIC_POINTS) {
+	pointPtr = staticPoints;
+    } else {
+	pointPtr = (XPoint *) ckalloc((unsigned) (numPoints * sizeof(XPoint)));
+    }
+
+    for (i = 0, pPtr = pointPtr; i < numPoints; i += 1, coordPtr += 2, pPtr++) {
+	Tk_CanvasDrawableCoords(canvas, coordPtr[0], coordPtr[1], &pPtr->x,
+		&pPtr->y);
+    }
+
+    /*
+     * Display polygon, then free up polygon storage if it was dynamically
+     * allocated.
+     */
+
+    if (gc != None) {
+	XFillPolygon(display, drawable, gc, pointPtr, numPoints, Complex,
+		CoordModeOrigin);
+    }
+    if (outlineGC != None) {
+	XDrawLines(display, drawable, outlineGC, pointPtr,
+	    numPoints, CoordModeOrigin);
+    }
+    if (pointPtr != staticPoints) {
+	ckfree((char *) pointPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayPolygon --
+ *
+ *	This procedure is invoked to draw a polygon item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayPolygon(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+
+    if ((polyPtr->fillGC == None) && (polyPtr->outlineGC == None)) {
+	return;
+    }
+
+    /*
+     * If we're stippling then modify the stipple offset in the GC.  Be
+     * sure to reset the offset when done, since the GC is supposed to be
+     * read-only.
+     */
+
+    if ((polyPtr->fillStipple != None) && (polyPtr->fillGC != None)) {
+	Tk_CanvasSetStippleOrigin(canvas, polyPtr->fillGC);
+    }
+
+    if (!polyPtr->smooth) {
+	TkFillPolygon(canvas, polyPtr->coordPtr, polyPtr->numPoints,
+		display, drawable, polyPtr->fillGC, polyPtr->outlineGC);
+    } else {
+	int numPoints;
+	XPoint staticPoints[MAX_STATIC_POINTS];
+	XPoint *pointPtr;
+
+	/*
+	 * This is a smoothed polygon.  Display using a set of generated
+	 * spline points rather than the original points.
+	 */
+
+	numPoints = 1 + polyPtr->numPoints*polyPtr->splineSteps;
+	if (numPoints <= MAX_STATIC_POINTS) {
+	    pointPtr = staticPoints;
+	} else {
+	    pointPtr = (XPoint *) ckalloc((unsigned)
+		    (numPoints * sizeof(XPoint)));
+	}
+	numPoints = TkMakeBezierCurve(canvas, polyPtr->coordPtr,
+		polyPtr->numPoints, polyPtr->splineSteps, pointPtr,
+		(double *) NULL);
+	if (polyPtr->fillGC != None) {
+	    XFillPolygon(display, drawable, polyPtr->fillGC, pointPtr,
+		    numPoints, Complex, CoordModeOrigin);
+	}
+	if (polyPtr->outlineGC != None) {
+	    XDrawLines(display, drawable, polyPtr->outlineGC, pointPtr,
+		    numPoints, CoordModeOrigin);
+	}
+	if (pointPtr != staticPoints) {
+	    ckfree((char *) pointPtr);
+	}
+    }
+    if ((polyPtr->fillStipple != None) && (polyPtr->fillGC != None)) {
+	XSetTSOrigin(display, polyPtr->fillGC, 0, 0);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PolygonToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	polygon, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are pointPtr[0] and pointPtr[1] is inside the polygon.  If the
+ *	point isn't inside the polygon then the return value is the
+ *	distance from the point to the polygon.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+PolygonToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    double *coordPtr, distance;
+    double staticSpace[2*MAX_STATIC_POINTS];
+    int numPoints;
+
+    if (!polyPtr->smooth) {
+	distance = TkPolygonToPoint(polyPtr->coordPtr, polyPtr->numPoints,
+		pointPtr);
+    } else {
+	/*
+	 * Smoothed polygon.  Generate a new set of points and use them
+	 * for comparison.
+	 */
+    
+	numPoints = 1 + polyPtr->numPoints*polyPtr->splineSteps;
+	if (numPoints <= MAX_STATIC_POINTS) {
+	    coordPtr = staticSpace;
+	} else {
+	    coordPtr = (double *) ckalloc((unsigned)
+		    (2*numPoints*sizeof(double)));
+	}
+	numPoints = TkMakeBezierCurve(canvas, polyPtr->coordPtr,
+		polyPtr->numPoints, polyPtr->splineSteps, (XPoint *) NULL,
+		coordPtr);
+	distance = TkPolygonToPoint(coordPtr, numPoints, pointPtr);
+	if (coordPtr != staticSpace) {
+	    ckfree((char *) coordPtr);
+	}
+    }
+    if (polyPtr->outlineColor != NULL) {
+	distance -= polyPtr->width/2.0;
+	if (distance < 0) {
+	    distance = 0;
+	}
+    }
+    return distance;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PolygonToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+PolygonToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against polygon. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    double *coordPtr, rect2[4], halfWidth;
+    double staticSpace[2*MAX_STATIC_POINTS];
+    int numPoints, result;
+
+    /*
+     * Handle smoothed polygons by generating an expanded set of points
+     * against which to do the check.
+     */
+
+    if (polyPtr->smooth) {
+	numPoints = 1 + polyPtr->numPoints*polyPtr->splineSteps;
+	if (numPoints <= MAX_STATIC_POINTS) {
+	    coordPtr = staticSpace;
+	} else {
+	    coordPtr = (double *) ckalloc((unsigned)
+		    (2*numPoints*sizeof(double)));
+	}
+	numPoints = TkMakeBezierCurve(canvas, polyPtr->coordPtr,
+		polyPtr->numPoints, polyPtr->splineSteps, (XPoint *) NULL,
+		coordPtr);
+    } else {
+	numPoints = polyPtr->numPoints;
+	coordPtr = polyPtr->coordPtr;
+    }
+
+    if (polyPtr->width <= 1) {
+	/*
+	 * The outline of the polygon doesn't stick out, so we can
+	 * do a simple check.
+	 */
+
+	result = TkPolygonToArea(coordPtr, numPoints, rectPtr);
+    } else {
+	/*
+	 * The polygon has a wide outline, so the check is more complicated.
+	 * First, check the line segments to see if they overlap the area.
+	 */
+
+	result = TkThickPolyLineToArea(coordPtr, numPoints, 
+	    (double) polyPtr->width, CapRound, JoinRound, rectPtr);
+	if (result >= 0) {
+	    goto done;
+	}
+
+	/*
+	 * There is no overlap between the polygon's outline and the
+	 * rectangle.  This means either the rectangle is entirely outside
+	 * the polygon or entirely inside.  To tell the difference,
+	 * see whether the polygon (with 0 outline width) overlaps the
+	 * rectangle bloated by half the outline width.
+	 */
+
+	halfWidth = polyPtr->width/2.0;
+	rect2[0] = rectPtr[0] - halfWidth;
+	rect2[1] = rectPtr[1] - halfWidth;
+	rect2[2] = rectPtr[2] + halfWidth;
+	rect2[3] = rectPtr[3] + halfWidth;
+	if (TkPolygonToArea(coordPtr, numPoints, rect2) == -1) {
+	    result = -1;
+	} else {
+	    result = 0;
+	}
+    }
+
+    done:
+    if ((coordPtr != staticSpace) && (coordPtr != polyPtr->coordPtr)) {
+	ckfree((char *) coordPtr);
+    }
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScalePolygon --
+ *
+ *	This procedure is invoked to rescale a polygon item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The polygon referred to by itemPtr is rescaled so that the
+ *	following transformation is applied to all point
+ *	coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScalePolygon(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing polygon. */
+    Tk_Item *itemPtr;			/* Polygon to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    double *coordPtr;
+    int i;
+
+    for (i = 0, coordPtr = polyPtr->coordPtr; i < polyPtr->numPoints;
+	    i++, coordPtr += 2) {
+	*coordPtr = originX + scaleX*(*coordPtr - originX);
+	coordPtr[1] = originY + scaleY*(coordPtr[1] - originY);
+    }
+    ComputePolygonBbox(canvas, polyPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslatePolygon --
+ *
+ *	This procedure is called to move a polygon by a given
+ *	amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the polygon is offset by (xDelta, yDelta),
+ *	and the bounding box is updated in the generic part of the
+ *	item structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslatePolygon(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+    double *coordPtr;
+    int i;
+
+    for (i = 0, coordPtr = polyPtr->coordPtr; i < polyPtr->numPoints;
+	    i++, coordPtr += 2) {
+	*coordPtr += deltaX;
+	coordPtr[1] += deltaY;
+    }
+    ComputePolygonBbox(canvas, polyPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PolygonToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	polygon items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used
+ *	to be there.  If no error occurs, then Postscript for the
+ *	item is appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+PolygonToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    char string[100];
+    PolygonItem *polyPtr = (PolygonItem *) itemPtr;
+
+    /*
+     * Fill the area of the polygon.
+     */
+
+    if (polyPtr->fillColor != NULL) {
+	if (!polyPtr->smooth) {
+	    Tk_CanvasPsPath(interp, canvas, polyPtr->coordPtr,
+		    polyPtr->numPoints);
+	} else {
+	    TkMakeBezierPostscript(interp, canvas, polyPtr->coordPtr,
+		    polyPtr->numPoints);
+	}
+	if (Tk_CanvasPsColor(interp, canvas, polyPtr->fillColor) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (polyPtr->fillStipple != None) {
+	    Tcl_AppendResult(interp, "eoclip ", (char *) NULL);
+	    if (Tk_CanvasPsStipple(interp, canvas, polyPtr->fillStipple)
+		    != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (polyPtr->outlineColor != NULL) {
+		Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "eofill\n", (char *) NULL);
+	}
+    }
+
+    /*
+     * Now draw the outline, if there is one.
+     */
+
+    if (polyPtr->outlineColor != NULL) {
+	if (!polyPtr->smooth) {
+	    Tk_CanvasPsPath(interp, canvas, polyPtr->coordPtr,
+		polyPtr->numPoints);
+	} else {
+	    TkMakeBezierPostscript(interp, canvas, polyPtr->coordPtr,
+		polyPtr->numPoints);
+	}
+
+	sprintf(string, "%d setlinewidth\n", polyPtr->width);
+	Tcl_AppendResult(interp, string,
+		"1 setlinecap\n1 setlinejoin\n", (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, polyPtr->outlineColor)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	Tcl_AppendResult(interp, "stroke\n", (char *) NULL);
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCanvPs.c b/Tk/generic/tkCanvPs.c
new file mode 100644
index 0000000..11a4f98
--- /dev/null
+++ b/Tk/generic/tkCanvPs.c
@@ -0,0 +1,1168 @@
+/* 
+ * tkCanvPs.c --
+ *
+ *	This module provides Postscript output support for canvases,
+ *	including the "postscript" widget command plus a few utility
+ *	procedures used for generating Postscript.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvPs.c 1.48 96/05/20 13:13:09
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkCanvas.h"
+#include "tkPort.h"
+
+/*
+ * See tkCanvas.h for key data structures used to implement canvases.
+ */
+
+/*
+ * One of the following structures is created to keep track of Postscript
+ * output being generated.  It consists mostly of information provided on
+ * the widget command line.
+ */
+
+typedef struct TkPostscriptInfo {
+    int x, y, width, height;	/* Area to print, in canvas pixel
+				 * coordinates. */
+    int x2, y2;			/* x+width and y+height. */
+    char *pageXString;		/* String value of "-pagex" option or NULL. */
+    char *pageYString;		/* String value of "-pagey" option or NULL. */
+    double pageX, pageY;	/* Postscript coordinates (in points)
+				 * corresponding to pageXString and
+				 * pageYString. Don't forget that y-values
+				 * grow upwards for Postscript! */
+    char *pageWidthString;	/* Printed width of output. */
+    char *pageHeightString;	/* Printed height of output. */
+    double scale;		/* Scale factor for conversion: each pixel
+				 * maps into this many points. */
+    Tk_Anchor pageAnchor;	/* How to anchor bbox on Postscript page. */
+    int rotate;			/* Non-zero means output should be rotated
+				 * on page (landscape mode). */
+    char *fontVar;		/* If non-NULL, gives name of global variable
+				 * containing font mapping information.
+				 * Malloc'ed. */
+    char *colorVar;		/* If non-NULL, give name of global variable
+				 * containing color mapping information.
+				 * Malloc'ed. */
+    char *colorMode;		/* Mode for handling colors:  "monochrome",
+				 * "gray", or "color".  Malloc'ed. */
+    int colorLevel;		/* Numeric value corresponding to colorMode:
+				 * 0 for mono, 1 for gray, 2 for color. */
+    char *fileName;		/* Name of file in which to write Postscript;
+				 * NULL means return Postscript info as
+				 * result. Malloc'ed. */
+    FILE *f;			/* Open file corresponding to fileName. */
+    Tcl_HashTable fontTable;	/* Hash table containing names of all font
+				 * families used in output.  The hash table
+				 * values are not used. */
+    int prepass;		/* Non-zero means that we're currently in
+				 * the pre-pass that collects font information,
+				 * so the Postscript generated isn't
+				 * relevant. */
+} TkPostscriptInfo;
+
+/*
+ * The table below provides a template that's used to process arguments
+ * to the canvas "postscript" command and fill in TkPostscriptInfo
+ * structures.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_STRING, "-colormap", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, colorVar), 0},
+    {TK_CONFIG_STRING, "-colormode", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, colorMode), 0},
+    {TK_CONFIG_STRING, "-file", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, fileName), 0},
+    {TK_CONFIG_STRING, "-fontmap", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, fontVar), 0},
+    {TK_CONFIG_PIXELS, "-height", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, height), 0},
+    {TK_CONFIG_ANCHOR, "-pageanchor", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, pageAnchor), 0},
+    {TK_CONFIG_STRING, "-pageheight", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, pageHeightString), 0},
+    {TK_CONFIG_STRING, "-pagewidth", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, pageWidthString), 0},
+    {TK_CONFIG_STRING, "-pagex", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, pageXString), 0},
+    {TK_CONFIG_STRING, "-pagey", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, pageYString), 0},
+    {TK_CONFIG_BOOLEAN, "-rotate", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, rotate), 0},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, width), 0},
+    {TK_CONFIG_PIXELS, "-x", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, x), 0},
+    {TK_CONFIG_PIXELS, "-y", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, y), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		GetPostscriptPoints _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, double *doublePtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkCanvPostscriptCmd --
+ *
+ *	This procedure is invoked to process the "postscript" options
+ *	of the widget command for canvas widgets. See the user
+ *	documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+    /* ARGSUSED */
+int
+TkCanvPostscriptCmd(canvasPtr, interp, argc, argv)
+    TkCanvas *canvasPtr;		/* Information about canvas widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings.  Caller has
+					 * already parsed this command enough
+					 * to know that argv[1] is
+					 * "postscript". */
+{
+    TkPostscriptInfo psInfo, *oldInfoPtr;
+    int result = TCL_ERROR;
+    Tk_Item *itemPtr;
+#define STRING_LENGTH 400
+    char string[STRING_LENGTH+1], *p;
+    char *prologPathParts[2];
+    time_t now;
+#if !(defined(__WIN32__) || defined(MAC_TCL))
+    struct passwd *pwPtr;
+#endif /* __WIN32__ || MAC_TCL */
+    FILE *f;
+    size_t length;
+    int deltaX = 0, deltaY = 0;		/* Offset of lower-left corner of
+					 * area to be marked up, measured
+					 * in canvas units from the positioning
+					 * point on the page (reflects
+					 * anchor position).  Initial values
+					 * needed only to stop compiler
+					 * warnings. */
+    Tcl_HashSearch search;
+    Tcl_HashEntry *hPtr;
+    Tcl_DString buffer, buffer2;
+    char *libDir;
+
+    /*
+     *----------------------------------------------------------------
+     * Initialize the data structure describing Postscript generation,
+     * then process all the arguments to fill the data structure in.
+     *----------------------------------------------------------------
+     */
+
+    oldInfoPtr = canvasPtr->psInfoPtr;
+    canvasPtr->psInfoPtr = &psInfo;
+    psInfo.x = canvasPtr->xOrigin;
+    psInfo.y = canvasPtr->yOrigin;
+    psInfo.width = -1;
+    psInfo.height = -1;
+    psInfo.pageXString = NULL;
+    psInfo.pageYString = NULL;
+    psInfo.pageX = 72*4.25;
+    psInfo.pageY = 72*5.5;
+    psInfo.pageWidthString = NULL;
+    psInfo.pageHeightString = NULL;
+    psInfo.scale = 1.0;
+    psInfo.pageAnchor = TK_ANCHOR_CENTER;
+    psInfo.rotate = 0;
+    psInfo.fontVar = NULL;
+    psInfo.colorVar = NULL;
+    psInfo.colorMode = NULL;
+    psInfo.colorLevel = 0;
+    psInfo.fileName = NULL;
+    psInfo.f = NULL;
+    psInfo.prepass = 0;
+    Tcl_InitHashTable(&psInfo.fontTable, TCL_STRING_KEYS);
+    result = Tk_ConfigureWidget(canvasPtr->interp, canvasPtr->tkwin,
+	    configSpecs, argc-2, argv+2, (char *) &psInfo,
+	    TK_CONFIG_ARGV_ONLY);
+    if (result != TCL_OK) {
+	goto cleanup;
+    }
+
+    if (psInfo.width == -1) {
+	psInfo.width = Tk_Width(canvasPtr->tkwin);
+    }
+    if (psInfo.height == -1) {
+	psInfo.height = Tk_Height(canvasPtr->tkwin);
+    }
+    psInfo.x2 = psInfo.x + psInfo.width;
+    psInfo.y2 = psInfo.y + psInfo.height;
+
+    if (psInfo.pageXString != NULL) {
+	if (GetPostscriptPoints(canvasPtr->interp, psInfo.pageXString,
+		&psInfo.pageX) != TCL_OK) {
+	    goto cleanup;
+	}
+    }
+    if (psInfo.pageYString != NULL) {
+	if (GetPostscriptPoints(canvasPtr->interp, psInfo.pageYString,
+		&psInfo.pageY) != TCL_OK) {
+	    goto cleanup;
+	}
+    }
+    if (psInfo.pageWidthString != NULL) {
+	if (GetPostscriptPoints(canvasPtr->interp, psInfo.pageWidthString,
+		&psInfo.scale) != TCL_OK) {
+	    goto cleanup;
+	}
+	psInfo.scale /= psInfo.width;
+    } else if (psInfo.pageHeightString != NULL) {
+	if (GetPostscriptPoints(canvasPtr->interp, psInfo.pageHeightString,
+		&psInfo.scale) != TCL_OK) {
+	    goto cleanup;
+	}
+	psInfo.scale /= psInfo.height;
+    } else {
+	psInfo.scale = (72.0/25.4)*WidthMMOfScreen(Tk_Screen(canvasPtr->tkwin));
+	psInfo.scale /= WidthOfScreen(Tk_Screen(canvasPtr->tkwin));
+    }
+    switch (psInfo.pageAnchor) {
+	case TK_ANCHOR_NW:
+	case TK_ANCHOR_W:
+	case TK_ANCHOR_SW:
+	    deltaX = 0;
+	    break;
+	case TK_ANCHOR_N:
+	case TK_ANCHOR_CENTER:
+	case TK_ANCHOR_S:
+	    deltaX = -psInfo.width/2;
+	    break;
+	case TK_ANCHOR_NE:
+	case TK_ANCHOR_E:
+	case TK_ANCHOR_SE:
+	    deltaX = -psInfo.width;
+	    break;
+    }
+    switch (psInfo.pageAnchor) {
+	case TK_ANCHOR_NW:
+	case TK_ANCHOR_N:
+	case TK_ANCHOR_NE:
+	    deltaY = - psInfo.height;
+	    break;
+	case TK_ANCHOR_W:
+	case TK_ANCHOR_CENTER:
+	case TK_ANCHOR_E:
+	    deltaY = -psInfo.height/2;
+	    break;
+	case TK_ANCHOR_SW:
+	case TK_ANCHOR_S:
+	case TK_ANCHOR_SE:
+	    deltaY = 0;
+	    break;
+    }
+
+    if (psInfo.colorMode == NULL) {
+	psInfo.colorLevel = 2;
+    } else {
+	length = strlen(psInfo.colorMode);
+	if (strncmp(psInfo.colorMode, "monochrome", length) == 0) {
+	    psInfo.colorLevel = 0;
+	} else if (strncmp(psInfo.colorMode, "gray", length) == 0) {
+	    psInfo.colorLevel = 1;
+	} else if (strncmp(psInfo.colorMode, "color", length) == 0) {
+	    psInfo.colorLevel = 2;
+	} else {
+	    Tcl_AppendResult(canvasPtr->interp, "bad color mode \"",
+		    psInfo.colorMode, "\": must be monochrome, ",
+		    "gray, or color", (char *) NULL);
+	    goto cleanup;
+	}
+    }
+
+    if (psInfo.fileName != NULL) {
+	p = Tcl_TranslateFileName(canvasPtr->interp, psInfo.fileName, &buffer);
+	if (p == NULL) {
+	    goto cleanup;
+	}
+	psInfo.f = fopen(p, "w");
+	Tcl_DStringFree(&buffer);
+	if (psInfo.f == NULL) {
+	    Tcl_AppendResult(canvasPtr->interp, "couldn't write file \"",
+		    psInfo.fileName, "\": ",
+		    Tcl_PosixError(canvasPtr->interp), (char *) NULL);
+	    goto cleanup;
+	}
+    }
+
+    /*
+     *--------------------------------------------------------
+     * Make a pre-pass over all of the items, generating Postscript
+     * and then throwing it away.  The purpose of this pass is just
+     * to collect information about all the fonts in use, so that
+     * we can output font information in the proper form required
+     * by the Document Structuring Conventions.
+     *--------------------------------------------------------
+     */
+
+    psInfo.prepass = 1;
+    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    itemPtr = itemPtr->nextPtr) {
+	if ((itemPtr->x1 >= psInfo.x2) || (itemPtr->x2 < psInfo.x)
+		|| (itemPtr->y1 >= psInfo.y2) || (itemPtr->y2 < psInfo.y)) {
+	    continue;
+	}
+	if (itemPtr->typePtr->postscriptProc == NULL) {
+	    continue;
+	}
+	result = (*itemPtr->typePtr->postscriptProc)(canvasPtr->interp,
+		(Tk_Canvas) canvasPtr, itemPtr, 1);
+	Tcl_ResetResult(canvasPtr->interp);
+	if (result != TCL_OK) {
+	    /*
+	     * An error just occurred.  Just skip out of this loop.
+	     * There's no need to report the error now;  it can be
+	     * reported later (errors can happen later that don't
+	     * happen now, so we still have to check for errors later
+	     * anyway).
+	     */
+	    break;
+	}
+    }
+    psInfo.prepass = 0;
+
+    /*
+     *--------------------------------------------------------
+     * Generate the header and prolog for the Postscript.
+     *--------------------------------------------------------
+     */
+
+    Tcl_AppendResult(canvasPtr->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
+	    "%%Creator: Tk Canvas Widget\n", (char *) NULL);
+#if !(defined(__WIN32__) || defined(MAC_TCL))
+    pwPtr = getpwuid(getuid());
+    Tcl_AppendResult(canvasPtr->interp, "%%For: ",
+	    (pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
+	    (char *) NULL);
+    endpwent();
+#endif /* __WIN32__ || MAC_TCL */
+    Tcl_AppendResult(canvasPtr->interp, "%%Title: Window ",
+	    Tk_PathName(canvasPtr->tkwin), "\n", (char *) NULL);
+    time(&now);
+    Tcl_AppendResult(canvasPtr->interp, "%%CreationDate: ",
+	    ctime(&now), (char *) NULL);
+    if (!psInfo.rotate) {
+	sprintf(string, "%d %d %d %d",
+		(int) (psInfo.pageX + psInfo.scale*deltaX),
+		(int) (psInfo.pageY + psInfo.scale*deltaY),
+		(int) (psInfo.pageX + psInfo.scale*(deltaX + psInfo.width)
+			+ 1.0),
+		(int) (psInfo.pageY + psInfo.scale*(deltaY + psInfo.height)
+			+ 1.0));
+    } else {
+	sprintf(string, "%d %d %d %d",
+		(int) (psInfo.pageX - psInfo.scale*(deltaY + psInfo.height)),
+		(int) (psInfo.pageY + psInfo.scale*deltaX),
+		(int) (psInfo.pageX - psInfo.scale*deltaY + 1.0),
+		(int) (psInfo.pageY + psInfo.scale*(deltaX + psInfo.width)
+			+ 1.0));
+    }
+    Tcl_AppendResult(canvasPtr->interp, "%%BoundingBox: ", string,
+	    "\n", (char *) NULL);
+    Tcl_AppendResult(canvasPtr->interp, "%%Pages: 1\n", 
+	    "%%DocumentData: Clean7Bit\n", (char *) NULL);
+    Tcl_AppendResult(canvasPtr->interp, "%%Orientation: ",
+	    psInfo.rotate ? "Landscape\n" : "Portrait\n", (char *) NULL);
+    p = "%%DocumentNeededResources: font ";
+    for (hPtr = Tcl_FirstHashEntry(&psInfo.fontTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	Tcl_AppendResult(canvasPtr->interp, p,
+		Tcl_GetHashKey(&psInfo.fontTable, hPtr),
+		"\n", (char *) NULL);
+	p = "%%+ font ";
+    }
+    Tcl_AppendResult(canvasPtr->interp, "%%EndComments\n\n", (char *) NULL);
+
+    /*
+     * Read a standard prolog file from disk and insert it into
+     * the Postscript.
+     */
+
+#ifdef STk_CODE
+    libDir = Tcl_GetVar(canvasPtr->interp, "*stk-library*", TCL_GLOBAL_ONLY);
+#else
+    libDir = Tcl_GetVar(canvasPtr->interp, "tk_library", TCL_GLOBAL_ONLY);
+#endif
+    if (libDir == NULL) {
+	Tcl_ResetResult(canvasPtr->interp);
+	Tcl_AppendResult(canvasPtr->interp, "couldn't find library directory: ",
+#ifdef STk_CODE
+		"*stk-library* variable doesn't exist", (char *) NULL);
+#else
+		"tk_library variable doesn't exist", (char *) NULL);
+#endif
+	goto cleanup;
+    }
+#ifdef STk_CODE
+    sprintf(string, "%.350s/STk/prolog.ps", libDir);
+    f = fopen(string, "r");
+    Tcl_DStringInit(&buffer2);
+    Tcl_DStringAppend(&buffer2, string, -1);
+#else
+    sprintf(string, "%.350s", libDir);
+    Tcl_TranslateFileName(canvasPtr->interp, string, &buffer);
+    prologPathParts[0] = buffer.string;
+    prologPathParts[1] = "prolog.ps";
+    Tcl_DStringInit(&buffer2);
+    Tcl_JoinPath(2, prologPathParts, &buffer2);
+    Tcl_DStringFree(&buffer);
+    f = fopen(buffer2.string, "r");
+#endif
+    if (f == NULL) {
+	Tcl_ResetResult(canvasPtr->interp);
+	Tcl_AppendResult(canvasPtr->interp, "couldn't open prolog file \"",
+		buffer2.string, "\": ", Tcl_PosixError(canvasPtr->interp),
+		(char *) NULL);
+	Tcl_DStringFree(&buffer2);
+	goto cleanup;
+    }
+    Tcl_DStringFree(&buffer2);
+    while (fgets(string, STRING_LENGTH, f) != NULL) {
+	Tcl_AppendResult(canvasPtr->interp, string, (char *) NULL);
+    }
+    if (ferror(f)) {
+	fclose(f);
+	Tcl_ResetResult(canvasPtr->interp);
+	Tcl_AppendResult(canvasPtr->interp, "error reading prolog file \"",
+		string, "\": ",
+		Tcl_PosixError(canvasPtr->interp), (char *) NULL);
+	goto cleanup;
+    }
+    fclose(f);
+    if (psInfo.f != NULL) {
+	fputs(canvasPtr->interp->result, psInfo.f);
+	Tcl_ResetResult(canvasPtr->interp);
+    }
+
+    /*
+     *-----------------------------------------------------------
+     * Document setup:  set the color level and include fonts.
+     *-----------------------------------------------------------
+     */
+
+    sprintf(string, "/CL %d def\n", psInfo.colorLevel);
+    Tcl_AppendResult(canvasPtr->interp, "%%BeginSetup\n", string,
+	    (char *) NULL);
+    for (hPtr = Tcl_FirstHashEntry(&psInfo.fontTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	Tcl_AppendResult(canvasPtr->interp, "%%IncludeResource: font ",
+		Tcl_GetHashKey(&psInfo.fontTable, hPtr), "\n", (char *) NULL);
+    }
+    Tcl_AppendResult(canvasPtr->interp, "%%EndSetup\n\n", (char *) NULL);
+
+    /*
+     *-----------------------------------------------------------
+     * Page setup:  move to page positioning point, rotate if
+     * needed, set scale factor, offset for proper anchor position,
+     * and set clip region.
+     *-----------------------------------------------------------
+     */
+
+    Tcl_AppendResult(canvasPtr->interp, "%%Page: 1 1\n", "save\n",
+	    (char *) NULL);
+    sprintf(string, "%.1f %.1f translate\n", psInfo.pageX, psInfo.pageY);
+    Tcl_AppendResult(canvasPtr->interp, string, (char *) NULL);
+    if (psInfo.rotate) {
+	Tcl_AppendResult(canvasPtr->interp, "90 rotate\n", (char *) NULL);
+    }
+    sprintf(string, "%.4g %.4g scale\n", psInfo.scale, psInfo.scale);
+    Tcl_AppendResult(canvasPtr->interp, string, (char *) NULL);
+    sprintf(string, "%d %d translate\n", deltaX - psInfo.x, deltaY);
+    Tcl_AppendResult(canvasPtr->interp, string, (char *) NULL);
+    sprintf(string, "%d %.15g moveto %d %.15g lineto %d %.15g lineto %d %.15g",
+	    psInfo.x, Tk_CanvasPsY((Tk_Canvas) canvasPtr, (double) psInfo.y),
+	    psInfo.x2, Tk_CanvasPsY((Tk_Canvas) canvasPtr, (double) psInfo.y),
+	    psInfo.x2, Tk_CanvasPsY((Tk_Canvas) canvasPtr, (double) psInfo.y2),
+	    psInfo.x, Tk_CanvasPsY((Tk_Canvas) canvasPtr, (double) psInfo.y2));
+    Tcl_AppendResult(canvasPtr->interp, string,
+	" lineto closepath clip newpath\n", (char *) NULL);
+    if (psInfo.f != NULL) {
+	fputs(canvasPtr->interp->result, psInfo.f);
+	Tcl_ResetResult(canvasPtr->interp);
+    }
+
+    /*
+     *---------------------------------------------------------------------
+     * Iterate through all the items, having each relevant one draw itself.
+     * Quit if any of the items returns an error.
+     *---------------------------------------------------------------------
+     */
+
+    result = TCL_OK;
+    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    itemPtr = itemPtr->nextPtr) {
+	if ((itemPtr->x1 >= psInfo.x2) || (itemPtr->x2 < psInfo.x)
+		|| (itemPtr->y1 >= psInfo.y2) || (itemPtr->y2 < psInfo.y)) {
+	    continue;
+	}
+	if (itemPtr->typePtr->postscriptProc == NULL) {
+	    continue;
+	}
+	Tcl_AppendResult(canvasPtr->interp, "gsave\n", (char *) NULL);
+	result = (*itemPtr->typePtr->postscriptProc)(canvasPtr->interp,
+		(Tk_Canvas) canvasPtr, itemPtr, 0);
+	if (result != TCL_OK) {
+	    char msg[100];
+
+	    sprintf(msg, "\n    (generating Postscript for item %d)",
+		    itemPtr->id);
+	    Tcl_AddErrorInfo(canvasPtr->interp, msg);
+	    goto cleanup;
+	}
+	Tcl_AppendResult(canvasPtr->interp, "grestore\n", (char *) NULL);
+	if (psInfo.f != NULL) {
+	    fputs(canvasPtr->interp->result, psInfo.f);
+	    Tcl_ResetResult(canvasPtr->interp);
+	}
+    }
+
+    /*
+     *---------------------------------------------------------------------
+     * Output page-end information, such as commands to print the page
+     * and document trailer stuff.
+     *---------------------------------------------------------------------
+     */
+
+    Tcl_AppendResult(canvasPtr->interp, "restore showpage\n\n",
+	    "%%Trailer\nend\n%%EOF\n", (char *) NULL);
+    if (psInfo.f != NULL) {
+	fputs(canvasPtr->interp->result, psInfo.f);
+	Tcl_ResetResult(canvasPtr->interp);
+    }
+
+    /*
+     * Clean up psInfo to release malloc'ed stuff.
+     */
+
+    cleanup:
+    if (psInfo.pageXString != NULL) {
+	ckfree(psInfo.pageXString);
+    }
+    if (psInfo.pageYString != NULL) {
+	ckfree(psInfo.pageYString);
+    }
+    if (psInfo.pageWidthString != NULL) {
+	ckfree(psInfo.pageWidthString);
+    }
+    if (psInfo.pageHeightString != NULL) {
+	ckfree(psInfo.pageHeightString);
+    }
+    if (psInfo.fontVar != NULL) {
+	ckfree(psInfo.fontVar);
+    }
+    if (psInfo.colorVar != NULL) {
+	ckfree(psInfo.colorVar);
+    }
+    if (psInfo.colorMode != NULL) {
+	ckfree(psInfo.colorMode);
+    }
+    if (psInfo.fileName != NULL) {
+	ckfree(psInfo.fileName);
+    }
+    if (psInfo.f != NULL) {
+	fclose(psInfo.f);
+    }
+    Tcl_DeleteHashTable(&psInfo.fontTable);
+    canvasPtr->psInfoPtr = oldInfoPtr;
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsColor --
+ *
+ *	This procedure is called by individual canvas items when
+ *	they want to set a color value for output.  Given information
+ *	about an X color, this procedure will generate Postscript
+ *	commands to set up an appropriate color in Postscript.
+ *
+ * Results:
+ *	Returns a standard Tcl return value.  If an error occurs
+ *	then an error message will be left in interp->result.
+ *	If no error occurs, then additional Postscript will be
+ *	appended to interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasPsColor(interp, canvas, colorPtr)
+    Tcl_Interp *interp;			/* Interpreter for returning Postscript
+					 * or error message. */
+    Tk_Canvas canvas;			/* Information about canvas. */
+    XColor *colorPtr;			/* Information about color. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    TkPostscriptInfo *psInfoPtr = canvasPtr->psInfoPtr;
+    int tmp;
+    double red, green, blue;
+    char string[200];
+
+    if (psInfoPtr->prepass) {
+	return TCL_OK;
+    }
+
+    /*
+     * If there is a color map defined, then look up the color's name
+     * in the map and use the Postscript commands found there, if there
+     * are any.
+     */
+
+    if (psInfoPtr->colorVar != NULL) {
+	char *cmdString;
+
+	cmdString = Tcl_GetVar2(interp, psInfoPtr->colorVar,
+		Tk_NameOfColor(colorPtr), 0);
+	if (cmdString != NULL) {
+	    Tcl_AppendResult(interp, cmdString, "\n", (char *) NULL);
+	    return TCL_OK;
+	}
+    }
+
+    /*
+     * No color map entry for this color.  Grab the color's intensities
+     * and output Postscript commands for them.  Special note:  X uses
+     * a range of 0-65535 for intensities, but most displays only use
+     * a range of 0-255, which maps to (0, 256, 512, ... 65280) in the
+     * X scale.  This means that there's no way to get perfect white,
+     * since the highest intensity is only 65280 out of 65535.  To
+     * work around this problem, rescale the X intensity to a 0-255
+     * scale and use that as the basis for the Postscript colors.  This
+     * scheme still won't work if the display only uses 4 bits per color,
+     * but most diplays use at least 8 bits.
+     */
+
+    tmp = colorPtr->red;
+    red = ((double) (tmp >> 8))/255.0;
+    tmp = colorPtr->green;
+    green = ((double) (tmp >> 8))/255.0;
+    tmp = colorPtr->blue;
+    blue = ((double) (tmp >> 8))/255.0;
+    sprintf(string, "%.3f %.3f %.3f setrgbcolor AdjustColor\n",
+	    red, green, blue);
+    Tcl_AppendResult(interp, string, (char *) NULL);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsFont --
+ *
+ *	This procedure is called by individual canvas items when
+ *	they want to output text.  Given information about an X
+ *	font, this procedure will generate Postscript commands
+ *	to set up an appropriate font in Postscript.
+ *
+ * Results:
+ *	Returns a standard Tcl return value.  If an error occurs
+ *	then an error message will be left in interp->result.
+ *	If no error occurs, then additional Postscript will be
+ *	appended to the interp->result.
+ *
+ * Side effects:
+ *	The Postscript font name is entered into psInfoPtr->fontTable
+ *	if it wasn't already there.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasPsFont(interp, canvas, fontStructPtr)
+    Tcl_Interp *interp;			/* Interpreter for returning Postscript
+					 * or error message. */
+    Tk_Canvas canvas;			/* Information about canvas. */
+    XFontStruct *fontStructPtr;		/* Information about font in which text
+					 * is to be printed. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    TkPostscriptInfo *psInfoPtr = canvasPtr->psInfoPtr;
+    char *name, *end, *weightString, *slantString;
+#define TOTAL_FIELDS	8
+#define FAMILY_FIELD	1
+#define WEIGHT_FIELD	2
+#define SLANT_FIELD	3
+#define SIZE_FIELD	7
+    char *fieldPtrs[TOTAL_FIELDS];
+#define MAX_NAME_SIZE 100
+    char fontName[MAX_NAME_SIZE+50], pointString[20];
+    int i, c, weightSize, nameSize, points;
+    char *p;
+
+    name = Tk_NameOfFontStruct(fontStructPtr);
+
+    /*
+     * First, look up the font's name in the font map, if there is one.
+     * If there is an entry for this font, it consists of a list
+     * containing font name and size.  Use this information.
+     */
+
+    if (psInfoPtr->fontVar != NULL) {
+	char *list, **argv;
+	int argc;
+	double size;
+
+	list = Tcl_GetVar2(interp, psInfoPtr->fontVar,
+		name, 0);
+	if (list != NULL) {
+	    if (Tcl_SplitList(interp, list, &argc, &argv) != TCL_OK) {
+		badMapEntry:
+		Tcl_ResetResult(interp);
+		Tcl_AppendResult(interp, "bad font map entry for \"", name,
+			"\": \"", list, "\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (argc != 2) {
+		goto badMapEntry;
+	    }
+	    size = strtod(argv[1], &end);
+	    if ((size <= 0) || (*end != 0)) {
+		goto badMapEntry;
+	    }
+	    sprintf(pointString, "%.15g", size);
+	    Tcl_AppendResult(interp, "/", argv[0], " findfont ",
+		    pointString, " scalefont ", (char *) NULL);
+	    if (strncasecmp(argv[0], "Symbol", 7) != 0) {
+		Tcl_AppendResult(interp, "ISOEncode ", (char *) NULL);
+	    }
+	    Tcl_AppendResult(interp, "setfont\n", (char *) NULL);
+	    Tcl_CreateHashEntry(&psInfoPtr->fontTable, argv[0], &i);
+	    ckfree((char *) argv);
+	    return TCL_OK;
+	}
+    }
+
+    /*
+     * Not in the font map.  Try to parse the name to get four fields:
+     * family name, weight, slant, and point size.  To do this, split the
+     * font name up into fields, storing pointers to the first character
+     * of each field in fieldPtrs.
+     */
+
+    if (name[0] != '-') {
+	goto error;
+    }
+    for (p =  name+1, i = 0; i < TOTAL_FIELDS; i++) {
+	fieldPtrs[i] = p;
+	while (*p != '-') {
+	    if (*p == 0) {
+		goto error;
+	    }
+	    p++;
+	}
+	p++;
+    }
+
+    /*
+     * Use the information from the X font name to make a guess at a
+     * Postscript font name of the form "<family>-<weight><slant>" where
+     * <weight> and <slant> may be omitted and if both are omitted then
+     * the dash is also omitted.  Postscript is very picky about font names,
+     * so there are several heuristics in the code below (e.g. don't
+     * include a "Roman" slant except for "Times" font, and make sure
+     * that the first letter of each field is capitalized but no other
+     * letters are in caps).
+     */
+
+    nameSize = fieldPtrs[FAMILY_FIELD+1] - 1 - fieldPtrs[FAMILY_FIELD];
+    if ((nameSize == 0) || (nameSize > MAX_NAME_SIZE)) {
+	goto error;
+    }
+    strncpy(fontName, fieldPtrs[FAMILY_FIELD], (size_t) nameSize);
+    if (islower(UCHAR(fontName[0]))) {
+	fontName[0] = toupper(UCHAR(fontName[0]));
+    }
+    for (p = fontName+1, i = nameSize-1; i > 0; p++, i--) {
+	if (isupper(UCHAR(*p))) {
+	    *p = tolower(UCHAR(*p));
+	}
+    }
+    *p = 0;
+    weightSize = fieldPtrs[WEIGHT_FIELD+1] - 1 - fieldPtrs[WEIGHT_FIELD];
+    if (weightSize == 0) {
+	goto error;
+    }
+    if (strncasecmp(fieldPtrs[WEIGHT_FIELD], "medium",
+	    (size_t) weightSize) == 0) {
+	weightString = "";
+    } else if (strncasecmp(fieldPtrs[WEIGHT_FIELD], "bold",
+	    (size_t) weightSize) == 0) {
+	weightString = "Bold";
+    } else {
+	goto error;
+    }
+    if (fieldPtrs[SLANT_FIELD+1] != (fieldPtrs[SLANT_FIELD] + 2)) {
+	goto error;
+    }
+    c = fieldPtrs[SLANT_FIELD][0];
+    if ((c == 'r') || (c == 'R')) {
+	slantString = "";
+	if ((weightString[0] == 0) && (nameSize == 5)
+		&& (strncmp(fontName, "Times", 5) == 0)) {
+	    slantString = "Roman";
+	}
+    } else if ((c == 'i') || (c == 'I')) {
+	slantString = "Italic";
+    } else if ((c == 'o') || (c == 'O')) {
+	slantString = "Oblique";
+    } else {
+	goto error;
+    }
+    if ((weightString[0] != 0) || (slantString[0] != 0)) {
+	sprintf(p, "-%s%s", weightString, slantString);
+    }
+    points = strtoul(fieldPtrs[SIZE_FIELD], &end, 0);
+    if (points == 0) {
+	goto error;
+    }
+    sprintf(pointString, "%.15g", ((double) points)/10.0);
+    Tcl_AppendResult(interp, "/", fontName, " findfont ",
+	    pointString, " scalefont ", (char *) NULL);
+    if (strcmp(fontName, "Symbol") != 0) {
+	Tcl_AppendResult(interp, "ISOEncode ", (char *) NULL);
+    }
+    Tcl_AppendResult(interp, "setfont\n", (char *) NULL);
+    Tcl_CreateHashEntry(&psInfoPtr->fontTable, fontName, &i);
+    return TCL_OK;
+
+    error:
+    Tcl_ResetResult(interp);
+    Tcl_AppendResult(interp, "couldn't translate font name \"",
+	    name, "\" to Postscript", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsBitmap --
+ *
+ *	This procedure is called to output the contents of a
+ *	sub-region of a bitmap in proper image data format for
+ *	Postscript (i.e. data between angle brackets, one bit
+ *	per pixel).
+ *
+ * Results:
+ *	Returns a standard Tcl return value.  If an error occurs
+ *	then an error message will be left in interp->result.
+ *	If no error occurs, then additional Postscript will be
+ *	appended to interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasPsBitmap(interp, canvas, bitmap, startX, startY, width, height)
+    Tcl_Interp *interp;			/* Interpreter for returning Postscript
+					 * or error message. */
+    Tk_Canvas canvas;			/* Information about canvas. */
+    Pixmap bitmap;			/* Bitmap for which to generate
+					 * Postscript. */
+    int startX, startY;			/* Coordinates of upper-left corner
+					 * of rectangular region to output. */
+    int width, height;			/* Height of rectangular region. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    TkPostscriptInfo *psInfoPtr = canvasPtr->psInfoPtr;
+    XImage *imagePtr;
+    int charsInLine, x, y, lastX, lastY, value, mask;
+    unsigned int totalWidth, totalHeight;
+    char string[100];
+    Window dummyRoot;
+    int dummyX, dummyY;
+    unsigned dummyBorderwidth, dummyDepth;
+
+    if (psInfoPtr->prepass) {
+	return TCL_OK;
+    }
+
+    /*
+     * The following call should probably be a call to Tk_SizeOfBitmap
+     * instead, but it seems that we are occasionally invoked by custom
+     * item types that create their own bitmaps without registering them
+     * with Tk.  XGetGeometry is a bit slower than Tk_SizeOfBitmap, but
+     * it shouldn't matter here.
+     */
+
+    XGetGeometry(Tk_Display(Tk_CanvasTkwin(canvas)), bitmap, &dummyRoot,
+	    (int *) &dummyX, (int *) &dummyY, (unsigned int *) &totalWidth,
+	    (unsigned int *) &totalHeight, &dummyBorderwidth, &dummyDepth);
+    imagePtr = XGetImage(Tk_Display(canvasPtr->tkwin), bitmap, 0, 0,
+	    totalWidth, totalHeight, 1, XYPixmap);
+    Tcl_AppendResult(interp, "<", (char *) NULL);
+    mask = 0x80;
+    value = 0;
+    charsInLine = 0;
+    lastX = startX + width - 1;
+    lastY = startY + height - 1;
+    for (y = lastY; y >= startY; y--) {
+	for (x = startX; x <= lastX; x++) {
+	    if (XGetPixel(imagePtr, x, y)) {
+		value |= mask;
+	    }
+	    mask >>= 1;
+	    if (mask == 0) {
+		sprintf(string, "%02x", value);
+		Tcl_AppendResult(interp, string, (char *) NULL);
+		mask = 0x80;
+		value = 0;
+		charsInLine += 2;
+		if (charsInLine >= 60) {
+		    Tcl_AppendResult(interp, "\n", (char *) NULL);
+		    charsInLine = 0;
+		}
+	    }
+	}
+	if (mask != 0x80) {
+	    sprintf(string, "%02x", value);
+	    Tcl_AppendResult(interp, string, (char *) NULL);
+	    mask = 0x80;
+	    value = 0;
+	    charsInLine += 2;
+	}
+    }
+    Tcl_AppendResult(interp, ">", (char *) NULL);
+    XDestroyImage(imagePtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsStipple --
+ *
+ *	This procedure is called by individual canvas items when
+ *	they have created a path that they'd like to be filled with
+ *	a stipple pattern.  Given information about an X bitmap,
+ *	this procedure will generate Postscript commands to fill
+ *	the current clip region using a stipple pattern defined by the
+ *	bitmap.
+ *
+ * Results:
+ *	Returns a standard Tcl return value.  If an error occurs
+ *	then an error message will be left in interp->result.
+ *	If no error occurs, then additional Postscript will be
+ *	appended to interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasPsStipple(interp, canvas, bitmap)
+    Tcl_Interp *interp;			/* Interpreter for returning Postscript
+					 * or error message. */
+    Tk_Canvas canvas;			/* Information about canvas. */
+    Pixmap bitmap;			/* Bitmap to use for stippling. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    TkPostscriptInfo *psInfoPtr = canvasPtr->psInfoPtr;
+    int width, height;
+    char string[100];
+    Window dummyRoot;
+    int dummyX, dummyY;
+    unsigned dummyBorderwidth, dummyDepth;
+
+    if (psInfoPtr->prepass) {
+	return TCL_OK;
+    }
+
+    /*
+     * The following call should probably be a call to Tk_SizeOfBitmap
+     * instead, but it seems that we are occasionally invoked by custom
+     * item types that create their own bitmaps without registering them
+     * with Tk.  XGetGeometry is a bit slower than Tk_SizeOfBitmap, but
+     * it shouldn't matter here.
+     */
+
+    XGetGeometry(Tk_Display(Tk_CanvasTkwin(canvas)), bitmap, &dummyRoot,
+	    (int *) &dummyX, (int *) &dummyY, (unsigned *) &width,
+	    (unsigned *) &height, &dummyBorderwidth, &dummyDepth);
+    sprintf(string, "%d %d ", width, height);
+    Tcl_AppendResult(interp, string, (char *) NULL);
+    if (Tk_CanvasPsBitmap(interp, (Tk_Canvas) canvasPtr, bitmap, 0, 0,
+	    width, height) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    Tcl_AppendResult(interp, " StippleFill\n", (char *) NULL);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsY --
+ *
+ *	Given a y-coordinate in canvas coordinates, this procedure
+ *	returns a y-coordinate to use for Postscript output.
+ *
+ * Results:
+ *	Returns the Postscript coordinate that corresponds to
+ *	"y".
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+double
+Tk_CanvasPsY(canvas, y)
+    Tk_Canvas canvas;			/* Token for canvas on whose behalf
+					 * Postscript is being generated. */
+    double y;				/* Y-coordinate in canvas coords. */
+{
+    TkPostscriptInfo *psInfoPtr = ((TkCanvas *) canvas)->psInfoPtr;
+
+    return psInfoPtr->y2 - y;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasPsPath --
+ *
+ *	Given an array of points for a path, generate Postscript
+ *	commands to create the path.
+ *
+ * Results:
+ *	Postscript commands get appended to what's in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CanvasPsPath(interp, canvas, coordPtr, numPoints)
+    Tcl_Interp *interp;			/* Put generated Postscript in this
+					 * interpreter's result field. */
+    Tk_Canvas canvas;			/* Canvas on whose behalf Postscript
+					 * is being generated. */
+    double *coordPtr;			/* Pointer to first in array of
+					 * 2*numPoints coordinates giving
+					 * points for path. */
+    int numPoints;			/* Number of points at *coordPtr. */
+{
+    TkPostscriptInfo *psInfoPtr = ((TkCanvas *) canvas)->psInfoPtr;
+    char buffer[200];
+
+    if (psInfoPtr->prepass) {
+	return;
+    }
+    sprintf(buffer, "%.15g %.15g moveto\n", coordPtr[0],
+	    Tk_CanvasPsY(canvas, coordPtr[1]));
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+    for (numPoints--, coordPtr += 2; numPoints > 0;
+	    numPoints--, coordPtr += 2) {
+	sprintf(buffer, "%.15g %.15g lineto\n", coordPtr[0],
+		Tk_CanvasPsY(canvas, coordPtr[1]));
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetPostscriptPoints --
+ *
+ *	Given a string, returns the number of Postscript points
+ *	corresponding to that string.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	screen distance is stored at *doublePtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetPostscriptPoints(interp, string, doublePtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    char *string;		/* String describing a screen distance. */
+    double *doublePtr;		/* Place to store converted result. */
+{
+    char *end;
+    double d;
+
+    d = strtod(string, &end);
+    if (end == string) {
+	error:
+	Tcl_AppendResult(interp, "bad distance \"", string,
+		"\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    switch (*end) {
+	case 'c':
+	    d *= 72.0/2.54;
+	    end++;
+	    break;
+	case 'i':
+	    d *= 72.0;
+	    end++;
+	    break;
+	case 'm':
+	    d *= 72.0/25.4;
+	    end++;
+	    break;
+	case 0:
+	    break;
+	case 'p':
+	    end++;
+	    break;
+	default:
+	    goto error;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    if (*end != 0) {
+	goto error;
+    }
+    *doublePtr = d;
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCanvText.c b/Tk/generic/tkCanvText.c
new file mode 100644
index 0000000..20533ab
--- /dev/null
+++ b/Tk/generic/tkCanvText.c
@@ -0,0 +1,1611 @@
+/* 
+ * tkCanvText.c --
+ *
+ *	This file implements text items for canvas widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvText.c 1.56 96/02/17 17:45:17
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkCanvas.h"
+#include "tkPort.h"
+
+/*
+ * One of the following structures is kept for each line of text
+ * in a text item.  It contains geometry and display information
+ * for that line.
+ */
+
+typedef struct TextLine {
+    char *firstChar;		/* Pointer to the first character in this
+				 * line (in the "text" field of enclosing
+				 * text item). */
+    int numChars;		/* Number of characters displayed in this
+				 * line. */
+    int totalChars;		/* Total number of characters included as
+				 * part of this line (may include an extra
+				 * space character at the end that isn't
+				 * displayed). */
+    int x, y;			/* Origin at which to draw line on screen
+				 * (in integer pixel units, but in canvas
+				 * coordinates, not screen coordinates). */
+    int x1, y1;			/* Upper-left pixel that is part of text
+				 * line on screen (again, in integer canvas
+				 * pixel units). */
+    int x2, y2;			/* Lower-left pixel that is part of text
+				 * line on screen (again, in integer canvas
+				 * pixel units). */
+} TextLine;
+
+/*
+ * The structure below defines the record for each text item.
+ */
+
+typedef struct TextItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    Tk_CanvasTextInfo *textInfoPtr;
+				/* Pointer to a structure containing
+				 * information about the selection and
+				 * insertion cursor.  The structure is owned
+				 * by (and shared with) the generic canvas
+				 * code. */
+    char *text;			/* Text for item (malloc-ed). */
+    int numChars;		/* Number of non-NULL characters in text. */
+    double x, y;		/* Positioning point for text. */
+    Tk_Anchor anchor;		/* Where to anchor text relative to (x,y). */
+    int width;			/* Width of lines for word-wrap, pixels.
+				 * Zero means no word-wrap. */
+    Tk_Justify justify;		/* Justification mode for text. */
+    int rightEdge;		/* Pixel just to right of right edge of
+				 * area of text item.  Used for selecting
+				 * up to end of line. */
+    XFontStruct *fontPtr;	/* Font for drawing text. */
+    XColor *color;		/* Color for text. */
+    Pixmap stipple;		/* Stipple bitmap for text, or None. */
+    GC gc;			/* Graphics context for drawing text. */
+    TextLine *linePtr;		/* Pointer to array of structures describing
+				 * individual lines of text item (malloc-ed). */
+    int numLines;		/* Number of structs at *linePtr. */
+    int insertPos;		/* Insertion cursor is displayed just to left
+				 * of character with this index. */
+    GC cursorOffGC;		/* If not None, this gives a graphics context
+				 * to use to draw the insertion cursor when
+				 * it's off.  Usedif the selection and
+				 * insertion cursor colors are the same.  */
+    GC selTextGC;		/* Graphics context for selected text. */
+} TextItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_ANCHOR, "-anchor", (char *) NULL, (char *) NULL,
+	"center", Tk_Offset(TextItem, anchor),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_COLOR, "-fill", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(TextItem, color), 0},
+    {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
+	"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*",
+	Tk_Offset(TextItem, fontPtr), 0},
+    {TK_CONFIG_JUSTIFY, "-justify", (char *) NULL, (char *) NULL,
+	"left", Tk_Offset(TextItem, justify),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BITMAP, "-stipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TextItem, stipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_STRING, "-text", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TextItem, text), 0},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(TextItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ComputeTextBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    TextItem *textPtr));
+static int		ConfigureText _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateText _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteText _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayText _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static int		GetSelText _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, int offset, char *buffer,
+			    int maxBytes));
+static int		GetTextIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr,
+			    char *indexString, int *indexPtr));
+static void		LineToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, int numChars));
+static void		ScaleText _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		SetTextCursor _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, int index));
+static int		TextCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		TextDeleteChars _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, int first, int last));
+static void		TextInsert _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, int beforeThis, char *string));
+static int		TextToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		TextToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *pointPtr));
+static int		TextToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static void		TranslateText _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * The structures below defines the rectangle and oval item types
+ * by means of procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkTextType = {
+    "text",				/* name */
+    sizeof(TextItem),			/* itemSize */
+    CreateText,				/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureText,			/* configureProc */
+    TextCoords,				/* coordProc */
+    DeleteText,				/* deleteProc */
+    DisplayText,			/* displayProc */
+    0,					/* alwaysRedraw */
+    TextToPoint,			/* pointProc */
+    TextToArea,				/* areaProc */
+    TextToPostscript,			/* postscriptProc */
+    ScaleText,				/* scaleProc */
+    TranslateText,			/* translateProc */
+    GetTextIndex,			/* indexProc */
+    SetTextCursor,			/* icursorProc */
+    GetSelText,				/* selectionProc */
+    TextInsert,				/* insertProc */
+    TextDeleteChars,			/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateText --
+ *
+ *	This procedure is invoked to create a new text item
+ *	in a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item then an error message is left in
+ *	interp->result;  in this case itemPtr is left uninitialized
+ *	so it can be safely freed by the caller.
+ *
+ * Side effects:
+ *	A new text item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateText(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing rectangle. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x y ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Carry out initialization that is needed in order to clean
+     * up after errors during the the remainder of this procedure.
+     */
+
+    textPtr->text = NULL;
+    textPtr->textInfoPtr = Tk_CanvasGetTextInfo(canvas);
+    textPtr->numChars = 0;
+    textPtr->anchor = TK_ANCHOR_CENTER;
+    textPtr->width = 0;
+    textPtr->justify = TK_JUSTIFY_LEFT;
+    textPtr->rightEdge = 0;
+    textPtr->fontPtr = NULL;
+    textPtr->color = NULL;
+    textPtr->stipple = None;
+    textPtr->gc = None;
+    textPtr->linePtr = NULL;
+    textPtr->numLines = 0;
+    textPtr->insertPos = 0;
+    textPtr->cursorOffGC = None;
+    textPtr->selTextGC = None;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &textPtr->x) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1], &textPtr->y)
+		!= TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureText(interp, canvas, itemPtr, argc-2, argv+2, 0) != TCL_OK) {
+	DeleteText(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on text items.  See the user documentation for
+ *	details on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+TextCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    char x[TCL_DOUBLE_SPACE], y[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, textPtr->x, x);
+	Tcl_PrintDouble(interp, textPtr->y, y);
+	Tcl_AppendResult(interp, x, " ", y, (char *) NULL);
+    } else if (argc == 2) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &textPtr->x) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		    &textPtr->y) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeTextBbox(canvas, textPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 2, got %d", argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureText --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a text item, such as its border and background colors.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information, such as colors and stipple
+ *	patterns, may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureText(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Rectangle item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC, newSelGC;
+    unsigned long mask;
+    Tk_Window tkwin;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+    XColor *selBgColorPtr;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) textPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as
+     * graphics contexts.
+     */
+
+    textPtr->numChars = strlen(textPtr->text);
+    newGC = newSelGC = None;
+    if ((textPtr->color != NULL) && (textPtr->fontPtr != NULL)) {
+	gcValues.foreground = textPtr->color->pixel;
+	gcValues.font = textPtr->fontPtr->fid;
+	mask = GCForeground|GCFont;
+	if (textPtr->stipple != None) {
+	    gcValues.stipple = textPtr->stipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCForeground|GCStipple|GCFillStyle;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+	gcValues.foreground = textInfoPtr->selFgColorPtr->pixel;
+	newSelGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (textPtr->gc != None) {
+	Tk_FreeGC(Tk_Display(tkwin), textPtr->gc);
+    }
+    textPtr->gc = newGC;
+    if (textPtr->selTextGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), textPtr->selTextGC);
+    }
+    textPtr->selTextGC = newSelGC;
+
+    selBgColorPtr = Tk_3DBorderColor(textInfoPtr->selBorder);
+    if (Tk_3DBorderColor(textInfoPtr->insertBorder)->pixel
+	    == selBgColorPtr->pixel) {
+	if (selBgColorPtr->pixel == BlackPixelOfScreen(Tk_Screen(tkwin))) {
+	    gcValues.foreground = WhitePixelOfScreen(Tk_Screen(tkwin));
+	} else {
+	    gcValues.foreground = BlackPixelOfScreen(Tk_Screen(tkwin));
+	}
+	newGC = Tk_GetGC(tkwin, GCForeground, &gcValues);
+    } else {
+	newGC = None;
+    }
+    if (textPtr->cursorOffGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), textPtr->cursorOffGC);
+    }
+    textPtr->cursorOffGC = newGC;
+
+    /*
+     * If the text was changed, move the selection and insertion indices
+     * to keep them inside the item.
+     */
+
+    if (textInfoPtr->selItemPtr == itemPtr) {
+	if (textInfoPtr->selectFirst >= textPtr->numChars) {
+	    textInfoPtr->selItemPtr = NULL;
+	} else {
+	    if (textInfoPtr->selectLast >= textPtr->numChars) {
+		textInfoPtr->selectLast = textPtr->numChars-1;
+	    }
+	    if ((textInfoPtr->anchorItemPtr == itemPtr)
+		    && (textInfoPtr->selectAnchor >= textPtr->numChars)) {
+		textInfoPtr->selectAnchor = textPtr->numChars-1;
+	    }
+	}
+    }
+    if (textPtr->insertPos >= textPtr->numChars) {
+	textPtr->insertPos = textPtr->numChars;
+    }
+
+    ComputeTextBbox(canvas, textPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteText --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a text item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteText(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall canvas widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+
+    if (textPtr->text != NULL) {
+	ckfree(textPtr->text);
+    }
+    if (textPtr->fontPtr != NULL) {
+	Tk_FreeFontStruct(textPtr->fontPtr);
+    }
+    if (textPtr->color != NULL) {
+	Tk_FreeColor(textPtr->color);
+    }
+    if (textPtr->stipple != None) {
+	Tk_FreeBitmap(display, textPtr->stipple);
+    }
+    if (textPtr->gc != None) {
+	Tk_FreeGC(display, textPtr->gc);
+    }
+    if (textPtr->linePtr != NULL) {
+	ckfree((char *) textPtr->linePtr);
+    }
+    if (textPtr->cursorOffGC != None) {
+	Tk_FreeGC(display, textPtr->cursorOffGC);
+    }
+    if (textPtr->selTextGC != None) {
+	Tk_FreeGC(display, textPtr->selTextGC);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeTextBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a text item.
+ *	In addition, it recomputes all of the geometry information
+ *	used to display a text item or check for mouse hits.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr, and the linePtr structure is regenerated
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeTextBbox(canvas, textPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    TextItem *textPtr;			/* Item whose bbos is to be
+					 * recomputed. */
+{
+    TextLine *linePtr;
+#define MAX_LINES 100
+    char *lineStart[MAX_LINES];
+    int lineChars[MAX_LINES];
+    int linePixels[MAX_LINES];
+    int numLines, wrapPixels, maxLinePixels, leftX, topY, y;
+    int lineHeight, i, fudge;
+    char *p;
+    XCharStruct *maxBoundsPtr = &textPtr->fontPtr->max_bounds;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+
+    if (textPtr->linePtr != NULL) {
+	ckfree((char *) textPtr->linePtr);
+	textPtr->linePtr = NULL;
+    }
+
+    /*
+     * Work through the text computing the starting point, number of
+     * characters, and number of pixels in each line.
+     */
+
+    p = textPtr->text;
+    maxLinePixels = 0;
+    if (textPtr->width > 0) {
+	wrapPixels = textPtr->width;
+    } else {
+	wrapPixels = 10000000;
+    }
+    for (numLines = 0; (numLines < MAX_LINES); numLines++) {
+	int numChars, numPixels;
+	numChars = TkMeasureChars(textPtr->fontPtr, p,
+		(textPtr->text + textPtr->numChars) - p, 0,
+		wrapPixels, 0, TK_WHOLE_WORDS|TK_AT_LEAST_ONE, &numPixels);
+	if (numPixels > maxLinePixels) {
+	    maxLinePixels = numPixels;
+	}
+	lineStart[numLines] = p;
+	lineChars[numLines] = numChars;
+	linePixels[numLines] = numPixels;
+	p += numChars;
+
+	/*
+	 * Skip space character that terminates a line, if there is one.
+	 * In the case of multiple spaces, all but one will be displayed.
+	 * This is important to make sure the insertion cursor gets
+	 * displayed when it is in the middle of a multi-space.
+	 */
+
+	if (isspace(UCHAR(*p))) {
+	    p++;
+	} else if (*p == 0) {
+	    /*
+	     * The code below is tricky.  Putting the loop termination
+	     * here guarantees that there's a TextLine for the last
+	     * line of text, even if the line is empty (this can
+	     * also happen if the entire text item is empty).  This is
+	     * needed so that we can display the insertion cursor on a
+	     * line even when it is empty.
+	     */
+
+	    numLines++;
+	    break;
+	}
+    }
+
+    /*
+     * Use overall geometry information to compute the top-left corner
+     * of the bounding box for the text item.
+     */
+
+    leftX = textPtr->x + 0.5;
+    topY = textPtr->y + 0.5;
+    lineHeight = textPtr->fontPtr->ascent + textPtr->fontPtr->descent;
+    switch (textPtr->anchor) {
+	case TK_ANCHOR_NW:
+	case TK_ANCHOR_N:
+	case TK_ANCHOR_NE:
+	    break;
+
+	case TK_ANCHOR_W:
+	case TK_ANCHOR_CENTER:
+	case TK_ANCHOR_E:
+	    topY -= (lineHeight * numLines)/2;
+	    break;
+
+	case TK_ANCHOR_SW:
+	case TK_ANCHOR_S:
+	case TK_ANCHOR_SE:
+	    topY -= lineHeight * numLines;
+	    break;
+    }
+    switch (textPtr->anchor) {
+	case TK_ANCHOR_NW:
+	case TK_ANCHOR_W:
+	case TK_ANCHOR_SW:
+	    break;
+
+	case TK_ANCHOR_N:
+	case TK_ANCHOR_CENTER:
+	case TK_ANCHOR_S:
+	    leftX -= maxLinePixels/2;
+	    break;
+
+	case TK_ANCHOR_NE:
+	case TK_ANCHOR_E:
+	case TK_ANCHOR_SE:
+	    leftX -= maxLinePixels;
+	    break;
+    }
+    textPtr->rightEdge = leftX + maxLinePixels;
+
+    /*
+     * Create the new TextLine array and fill it in using the geometry
+     * information gathered already.
+     */
+
+    if (numLines > 0) {
+	textPtr->linePtr = (TextLine *) ckalloc((unsigned)
+		(numLines * sizeof(TextLine)));
+    } else {
+	textPtr->linePtr = NULL;
+    }
+    textPtr->numLines = numLines;
+    for (i = 0, linePtr = textPtr->linePtr, y = topY;
+	    i < numLines; i++, linePtr++, y += lineHeight) {
+	linePtr->firstChar = lineStart[i];
+	linePtr->numChars = lineChars[i];
+	if (i == (numLines-1)) {
+	    linePtr->totalChars = linePtr->numChars;
+	} else {
+	    linePtr->totalChars = lineStart[i+1] - lineStart[i];
+	}
+	switch (textPtr->justify) {
+	    case TK_JUSTIFY_LEFT:
+		linePtr->x = leftX;
+		break;
+	    case TK_JUSTIFY_CENTER:
+		linePtr->x = leftX + maxLinePixels/2 - linePixels[i]/2;
+		break;
+	    case TK_JUSTIFY_RIGHT:
+		linePtr->x = leftX + maxLinePixels - linePixels[i];
+		break;
+	}
+	linePtr->y = y + textPtr->fontPtr->ascent;
+	linePtr->x1 = linePtr->x + maxBoundsPtr->lbearing;
+	linePtr->y1 = y;
+	linePtr->x2 = linePtr->x + linePixels[i];
+	linePtr->y2 = linePtr->y + textPtr->fontPtr->descent - 1;
+    }
+
+    /*
+     * Last of all, update the bounding box for the item.  The item's
+     * bounding box includes the bounding box of all its lines, plus
+     * an extra fudge factor for the cursor border (which could
+     * potentially be quite large).
+     */
+
+    linePtr = textPtr->linePtr;
+    textPtr->header.x1 = textPtr->header.x2 = leftX;
+    textPtr->header.y1 = topY;
+    textPtr->header.y2 = topY + numLines*lineHeight;
+    for (linePtr = textPtr->linePtr, i = textPtr->numLines; i > 0;
+	    i--, linePtr++) {
+	if (linePtr->x1 < textPtr->header.x1) {
+	    textPtr->header.x1 = linePtr->x1;
+	}
+	if (linePtr->x2 >= textPtr->header.x2) {
+	    textPtr->header.x2 = linePtr->x2 + 1;
+	}
+    }
+
+    fudge = (textInfoPtr->insertWidth+1)/2;
+    if (textInfoPtr->selBorderWidth > fudge) {
+	fudge = textInfoPtr->selBorderWidth;
+    }
+    textPtr->header.x1 -= fudge;
+    textPtr->header.x2 += fudge;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayText --
+ *
+ *	This procedure is invoked to draw a text item in a given
+ *	drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayText(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    TextLine *linePtr;
+    int i, focusHere, insertX, insertIndex, lineIndex, tabOrigin;
+    int beforeSelect, inSelect, afterSelect, selStartX, selEndX;
+    short drawableX, drawableY;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+    Tk_Window tkwin = Tk_CanvasTkwin(canvas);
+
+    if (textPtr->gc == None) {
+	return;
+    }
+
+    /*
+     * If we're stippling, then modify the stipple offset in the GC.  Be
+     * sure to reset the offset when done, since the GC is supposed to be
+     * read-only.
+     */
+
+    if (textPtr->stipple != None) {
+	Tk_CanvasSetStippleOrigin(canvas, textPtr->gc);
+    }
+
+    focusHere = (textInfoPtr->focusItemPtr == itemPtr) &&
+	    (textInfoPtr->gotFocus);
+    for (linePtr = textPtr->linePtr, i = textPtr->numLines;
+	    i > 0; linePtr++, i--) {
+
+	/*
+	 * If part or all of this line is selected, then draw a special
+	 * background under the selected part of the line.
+	 */
+
+	lineIndex = linePtr->firstChar - textPtr->text;
+	if ((textInfoPtr->selItemPtr != itemPtr)
+		|| (textInfoPtr->selectLast < lineIndex)
+		|| (textInfoPtr->selectFirst >= (lineIndex
+			+ linePtr->totalChars))) {
+	    beforeSelect = linePtr->numChars;
+	    inSelect = 0;
+	} else {
+	    beforeSelect = textInfoPtr->selectFirst - lineIndex;
+	    if (beforeSelect <= 0) {
+		beforeSelect = 0;
+		selStartX = linePtr->x;
+	    } else {
+		(void) TkMeasureChars(textPtr->fontPtr,
+			linePtr->firstChar, beforeSelect, 0,
+			(int) 1000000, 0, TK_PARTIAL_OK, &selStartX);
+		selStartX += linePtr->x;
+	    }
+	    inSelect = textInfoPtr->selectLast + 1 - (lineIndex + beforeSelect);
+
+	    /*
+	     * If the selection spans the end of this line, then display
+	     * selection background all the way to the end of the line.
+	     * However, for the last line we only want to display up to
+	     * the last character, not the end of the line, hence the
+	     * "i != 1" check.
+	     */
+
+	    if (inSelect >= (linePtr->totalChars - beforeSelect)) {
+		inSelect = linePtr->numChars - beforeSelect;
+		if (i != 1) {
+		    selEndX = textPtr->rightEdge;
+		    goto fillSelectBackground;
+		}
+	    }
+	    (void) TkMeasureChars(textPtr->fontPtr,
+		    linePtr->firstChar + beforeSelect, inSelect,
+		    selStartX-linePtr->x, (int) 1000000, 0, TK_PARTIAL_OK,
+		    &selEndX);
+	    selEndX += linePtr->x;
+	    fillSelectBackground:
+	    Tk_CanvasDrawableCoords(canvas,
+		    (double) (selStartX - textInfoPtr->selBorderWidth),
+		    (double) (linePtr->y - textPtr->fontPtr->ascent),
+		    &drawableX, &drawableY);
+	    Tk_Fill3DRectangle(tkwin, drawable, textInfoPtr->selBorder,
+		    drawableX, drawableY,
+		    selEndX - selStartX + 2*textInfoPtr->selBorderWidth,
+		    textPtr->fontPtr->ascent + textPtr->fontPtr->descent,
+		    textInfoPtr->selBorderWidth, TK_RELIEF_RAISED);
+	}
+
+	/*
+	 * If the insertion cursor is in this line, then draw a special
+	 * background for the cursor before drawing the text.  Note:
+	 * if we're the cursor item but the cursor is turned off, then
+	 * redraw background over the area of the cursor.  This guarantees
+	 * that the selection won't make the cursor invisible on mono
+	 * displays, where both are drawn in the same color.
+	 */
+
+	if (focusHere) {
+	    insertIndex = textPtr->insertPos
+		    - (linePtr->firstChar - textPtr->text);
+	    if ((insertIndex >= 0) && (insertIndex <= linePtr->numChars)) {
+		(void) TkMeasureChars(textPtr->fontPtr, linePtr->firstChar,
+		    insertIndex, 0, (int) 1000000, 0, TK_PARTIAL_OK, &insertX);
+		Tk_CanvasDrawableCoords(canvas,
+			(double) (linePtr->x + insertX
+			    - (textInfoPtr->insertWidth)/2),
+			(double) (linePtr->y - textPtr->fontPtr->ascent),
+			&drawableX, &drawableY);
+		if (textInfoPtr->cursorOn) {
+		    Tk_Fill3DRectangle(tkwin, drawable,
+			    textInfoPtr->insertBorder, drawableX, drawableY,
+			    textInfoPtr->insertWidth,
+			    textPtr->fontPtr->ascent
+				+ textPtr->fontPtr->descent,
+			    textInfoPtr->insertBorderWidth, TK_RELIEF_RAISED);
+		} else if (textPtr->cursorOffGC != None) {
+		    /* Redraw the background over the area of the cursor,
+		     * even though the cursor is turned off.  This guarantees
+		     * that the selection won't make the cursor invisible on
+		     * mono displays, where both may be drawn in the same
+		     * color.
+		     */
+
+		    XFillRectangle(display, drawable, textPtr->cursorOffGC,
+			    drawableX, drawableY,
+			    (unsigned) textInfoPtr->insertWidth,
+			    (unsigned) (textPtr->fontPtr->ascent
+				+ textPtr->fontPtr->descent));
+		}
+	    }
+	}
+
+	/*
+	 * Display the text in three pieces:  the part before the
+	 * selection, the selected part (which needs a different graphics
+	 * context), and the part after the selection.
+	 */
+
+	Tk_CanvasDrawableCoords(canvas, (double) linePtr->x,
+		(double) linePtr->y, &drawableX, &drawableY);
+	tabOrigin = drawableX;
+	if (beforeSelect != 0) {
+	    TkDisplayChars(display, drawable, textPtr->gc, textPtr->fontPtr,
+		    linePtr->firstChar, beforeSelect, drawableX,
+		    drawableY, tabOrigin, 0);
+	}
+	if (inSelect != 0) {
+	    Tk_CanvasDrawableCoords(canvas, (double) selStartX,
+		    (double) linePtr->y, &drawableX, &drawableY);
+	    TkDisplayChars(display, drawable, textPtr->selTextGC,
+		    textPtr->fontPtr, linePtr->firstChar + beforeSelect,
+		    inSelect, drawableX, drawableY, tabOrigin, 0);
+	}
+	afterSelect = linePtr->numChars - beforeSelect - inSelect;
+	if (afterSelect > 0) {
+	    Tk_CanvasDrawableCoords(canvas, (double) selEndX,
+		    (double) linePtr->y, &drawableX, &drawableY);
+	    TkDisplayChars(display, drawable, textPtr->gc, textPtr->fontPtr,
+		    linePtr->firstChar + beforeSelect + inSelect,
+		    afterSelect, drawableX, drawableY, tabOrigin, 0);
+	}
+    }
+    if (textPtr->stipple != None) {
+	XSetTSOrigin(display, textPtr->gc, 0, 0);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextInsert --
+ *
+ *	Insert characters into a text item at a given position.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The text in the given item is modified.  The cursor and
+ *	selection positions are also modified to reflect the
+ *	insertion.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TextInsert(canvas, itemPtr, beforeThis, string)
+    Tk_Canvas canvas;		/* Canvas containing text item. */
+    Tk_Item *itemPtr;		/* Text item to be modified. */
+    int beforeThis;		/* Index of character before which text is
+				 * to be inserted. */
+    char *string;		/* New characters to be inserted. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    int length;
+    char *new;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+
+    length = strlen(string);
+    if (length == 0) {
+	return;
+    }
+    if (beforeThis < 0) {
+	beforeThis = 0;
+    }
+    if (beforeThis > textPtr->numChars) {
+	beforeThis = textPtr->numChars;
+    }
+
+    new = (char *) ckalloc((unsigned) (textPtr->numChars + length + 1));
+    strncpy(new, textPtr->text, (size_t) beforeThis);
+    strcpy(new+beforeThis, string);
+    strcpy(new+beforeThis+length, textPtr->text+beforeThis);
+    ckfree(textPtr->text);
+    textPtr->text = new;
+    textPtr->numChars += length;
+
+    /*
+     * Inserting characters invalidates indices such as those for the
+     * selection and cursor.  Update the indices appropriately.
+     */
+
+    if (textInfoPtr->selItemPtr == itemPtr) {
+	if (textInfoPtr->selectFirst >= beforeThis) {
+	    textInfoPtr->selectFirst += length;
+	}
+	if (textInfoPtr->selectLast >= beforeThis) {
+	    textInfoPtr->selectLast += length;
+	}
+	if ((textInfoPtr->anchorItemPtr == itemPtr)
+		&& (textInfoPtr->selectAnchor >= beforeThis)) {
+	    textInfoPtr->selectAnchor += length;
+	}
+    }
+    if (textPtr->insertPos >= beforeThis) {
+	textPtr->insertPos += length;
+    }
+    ComputeTextBbox(canvas, textPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextDeleteChars --
+ *
+ *	Delete one or more characters from a text item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Characters between "first" and "last", inclusive, get
+ *	deleted from itemPtr, and things like the selection
+ *	position get updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TextDeleteChars(canvas, itemPtr, first, last)
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Item in which to delete characters. */
+    int first;			/* Index of first character to delete. */
+    int last;			/* Index of last character to delete. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    int count;
+    char *new;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+
+    if (first < 0) {
+	first = 0;
+    }
+    if (last >= textPtr->numChars) {
+	last = textPtr->numChars-1;
+    }
+    if (first > last) {
+	return;
+    }
+    count = last + 1 - first;
+
+    new = (char *) ckalloc((unsigned) (textPtr->numChars + 1 - count));
+    strncpy(new, textPtr->text, (size_t) first);
+    strcpy(new+first, textPtr->text+last+1);
+    ckfree(textPtr->text);
+    textPtr->text = new;
+    textPtr->numChars -= count;
+
+    /*
+     * Update indexes for the selection and cursor to reflect the
+     * renumbering of the remaining characters.
+     */
+
+    if (textInfoPtr->selItemPtr == itemPtr) {
+	if (textInfoPtr->selectFirst > first) {
+	    textInfoPtr->selectFirst -= count;
+	    if (textInfoPtr->selectFirst < first) {
+		textInfoPtr->selectFirst = first;
+	    }
+	}
+	if (textInfoPtr->selectLast >= first) {
+	    textInfoPtr->selectLast -= count;
+	    if (textInfoPtr->selectLast < (first-1)) {
+		textInfoPtr->selectLast = (first-1);
+	    }
+	}
+	if (textInfoPtr->selectFirst > textInfoPtr->selectLast) {
+	    textInfoPtr->selItemPtr = NULL;
+	}
+	if ((textInfoPtr->anchorItemPtr == itemPtr)
+		&& (textInfoPtr->selectAnchor > first)) {
+	    textInfoPtr->selectAnchor -= count;
+	    if (textInfoPtr->selectAnchor < first) {
+		textInfoPtr->selectAnchor = first;
+	    }
+	}
+    }
+    if (textPtr->insertPos > first) {
+	textPtr->insertPos -= count;
+	if (textPtr->insertPos < first) {
+	    textPtr->insertPos = first;
+	}
+    }
+    ComputeTextBbox(canvas, textPtr);
+    return;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	text item, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are pointPtr[0] and pointPtr[1] is inside the arc.  If the
+ *	point isn't inside the arc then the return value is the
+ *	distance from the point to the arc.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static double
+TextToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    TextLine *linePtr;
+    int i;
+    double xDiff, yDiff, dist, minDist;
+
+    /*
+     * Treat each line in the text item as a rectangle, compute the
+     * distance to that rectangle, and take the minimum of these
+     * distances.  Perform most of the calculations in integer pixel
+     * units, since that's how the dimensions of the text are defined.
+     */
+
+    minDist = -1.0;
+    for (linePtr = textPtr->linePtr, i = textPtr->numLines;
+	    i > 0; linePtr++, i--) {
+
+	/*
+	 * If the point is inside the line's rectangle, then can
+	 * return immediately.
+	 */
+    
+	if ((pointPtr[0] >= linePtr->x1)
+		&& (pointPtr[0] <= linePtr->x2)
+		&& (pointPtr[1] >= linePtr->y1)
+		&& (pointPtr[1] <= linePtr->y2)) {
+	    return 0.0;
+	}
+    
+	/*
+	 * Point is outside line's rectangle; compute distance to nearest
+	 * side.
+	 */
+    
+	if (pointPtr[0] < linePtr->x1) {
+	    xDiff = linePtr->x1 - pointPtr[0];
+	} else if (pointPtr[0] > linePtr->x2)  {
+	    xDiff = pointPtr[0] - linePtr->x2;
+	} else {
+	    xDiff = 0;
+	}
+    
+	if (pointPtr[1] < linePtr->y1) {
+	    yDiff = linePtr->y1 - pointPtr[1];
+	} else if (pointPtr[1] > linePtr->y2)  {
+	    yDiff = pointPtr[1] - linePtr->y2;
+	} else {
+	    yDiff = 0;
+	}
+
+	dist = hypot(xDiff, yDiff);
+	if ((dist < minDist) || (minDist < 0.0)) {
+	    minDist = dist;
+	}
+    }
+    return minDist;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangle.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+TextToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Item to check against rectangle. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    TextLine *linePtr;
+    int i, result;
+
+    /*
+     * Scan the lines one at a time, seeing whether each line is
+     * entirely in, entirely out, or overlapping the rectangle.  If
+     * an overlap is detected, return immediately;  otherwise wait
+     * until all lines have been processed and see if they were all
+     * inside or all outside.
+     */
+
+    result = 0;
+    for (linePtr = textPtr->linePtr, i = textPtr->numLines;
+	    i > 0; linePtr++, i--) {
+	if ((rectPtr[2] < linePtr->x1) || (rectPtr[0] > linePtr->x2)
+		|| (rectPtr[3] < linePtr->y1) || (rectPtr[1] > linePtr->y2)) {
+	    if (result == 1) {
+		return 0;
+	    }
+	    result = -1;
+	    continue;
+	}
+	if ((linePtr->x1 < rectPtr[0]) || (linePtr->x2 > rectPtr[2])
+		|| (linePtr->y1 < rectPtr[1]) || (linePtr->y2 > rectPtr[3])) {
+	    return 0;
+	}
+	if (result == -1) {
+	    return 0;
+	}
+	result = 1;
+    }
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleText --
+ *
+ *	This procedure is invoked to rescale a text item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Scales the position of the text, but not the size
+ *	of the font for the text.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ScaleText(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing rectangle. */
+    Tk_Item *itemPtr;			/* Rectangle to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+
+    textPtr->x = originX + scaleX*(textPtr->x - originX);
+    textPtr->y = originY + scaleY*(textPtr->y - originY);
+    ComputeTextBbox(canvas, textPtr);
+    return;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateText --
+ *
+ *	This procedure is called to move a text item by a
+ *	given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the text item is offset by (xDelta, yDelta),
+ *	and the bounding box is updated in the generic part of the
+ *	item structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateText(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+
+    textPtr->x += deltaX;
+    textPtr->y += deltaY;
+    ComputeTextBbox(canvas, textPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetTextIndex --
+ *
+ *	Parse an index into a text item and return either its value
+ *	or an error.
+ *
+ * Results:
+ *	A standard Tcl result.  If all went well, then *indexPtr is
+ *	filled in with the index (into itemPtr) corresponding to
+ *	string.  Otherwise an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetTextIndex(interp, canvas, itemPtr, string, indexPtr)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item for which the index is being
+				 * specified. */
+    char *string;		/* Specification of a particular character
+				 * in itemPtr's text. */
+    int *indexPtr;		/* Where to store converted index. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    size_t length;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+
+    length = strlen(string);
+
+    if (string[0] == 'e') {
+	if (strncmp(string, "end", length) == 0) {
+	    *indexPtr = textPtr->numChars;
+	} else {
+	    badIndex:
+
+	    /*
+	     * Some of the paths here leave messages in interp->result,
+	     * so we have to clear it out before storing our own message.
+	     */
+
+	    Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+	    Tcl_AppendResult(interp, "bad index \"", string, "\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+    } else if (string[0] == 'i') {
+	if (strncmp(string, "insert", length) == 0) {
+	    *indexPtr = textPtr->insertPos;
+	} else {
+	    goto badIndex;
+	}
+    } else if (string[0] == 's') {
+	if (textInfoPtr->selItemPtr != itemPtr) {
+	    interp->result = "selection isn't in item";
+	    return TCL_ERROR;
+	}
+	if (length < 5) {
+	    goto badIndex;
+	}
+	if (strncmp(string, "sel.first", length) == 0) {
+	    *indexPtr = textInfoPtr->selectFirst;
+	} else if (strncmp(string, "sel.last", length) == 0) {
+	    *indexPtr = textInfoPtr->selectLast;
+	} else {
+	    goto badIndex;
+	}
+    } else if (string[0] == '@') {
+	int x, y, dummy, i;
+	double tmp;
+	char *end, *p;
+	TextLine *linePtr;
+
+	p = string+1;
+	tmp = strtod(p, &end);
+	if ((end == p) || (*end != ',')) {
+	    goto badIndex;
+	}
+	x = (tmp < 0) ? tmp - 0.5 : tmp + 0.5;
+	p = end+1;
+	tmp = strtod(p, &end);
+	if ((end == p) || (*end != 0)) {
+	    goto badIndex;
+	}
+	y = (tmp < 0) ? tmp - 0.5 : tmp + 0.5;
+	if ((textPtr->numChars == 0) || (y < textPtr->linePtr[0].y1)) {
+	    *indexPtr = 0;
+	    return TCL_OK;
+	}
+	for (i = 0, linePtr = textPtr->linePtr; ; i++, linePtr++) {
+	    if (i >= textPtr->numLines) {
+		*indexPtr = textPtr->numChars;
+		return TCL_OK;
+	    }
+	    if (y <= linePtr->y2) {
+		break;
+	    }
+	}
+	*indexPtr = TkMeasureChars(textPtr->fontPtr, linePtr->firstChar,
+		linePtr->numChars, linePtr->x, x, linePtr->x, 0, &dummy);
+	*indexPtr += linePtr->firstChar - textPtr->text;
+    } else {
+	if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
+	    goto badIndex;
+	}
+	if (*indexPtr < 0){
+	    *indexPtr = 0;
+	} else if (*indexPtr > textPtr->numChars) {
+	    *indexPtr = textPtr->numChars;
+	}
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SetTextCursor --
+ *
+ *	Set the position of the insertion cursor in this item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor position will change.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+SetTextCursor(canvas, itemPtr, index)
+    Tk_Canvas canvas;			/* Record describing canvas widget. */
+    Tk_Item *itemPtr;			/* Text item in which cursor position
+					 * is to be set. */
+    int index;				/* Index of character just before which
+					 * cursor is to be positioned. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+
+    if (index < 0) {
+	textPtr->insertPos = 0;
+    } else  if (index > textPtr->numChars) {
+	textPtr->insertPos = textPtr->numChars;
+    } else {
+	textPtr->insertPos = index;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetSelText --
+ *
+ *	This procedure is invoked to return the selected portion
+ *	of a text item.  It is only called when this item has
+ *	the selection.
+ *
+ * Results:
+ *	The return value is the number of non-NULL bytes stored
+ *	at buffer.  Buffer is filled (or partially filled) with a
+ *	NULL-terminated string containing part or all of the selection,
+ *	as given by offset and maxBytes.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetSelText(canvas, itemPtr, offset, buffer, maxBytes)
+    Tk_Canvas canvas;			/* Canvas containing selection. */
+    Tk_Item *itemPtr;			/* Text item containing selection. */
+    int offset;				/* Offset within selection of first
+					 * character to be returned. */
+    char *buffer;			/* Location in which to place
+					 * selection. */
+    int maxBytes;			/* Maximum number of bytes to place
+					 * at buffer, not including terminating
+					 * NULL character. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    int count;
+    Tk_CanvasTextInfo *textInfoPtr = textPtr->textInfoPtr;
+
+    count = textInfoPtr->selectLast + 1 - textInfoPtr->selectFirst - offset;
+    if (textInfoPtr->selectLast == textPtr->numChars) {
+	count -= 1;
+    }
+    if (count > maxBytes) {
+	count = maxBytes;
+    }
+    if (count <= 0) {
+	return 0;
+    }
+    strncpy(buffer, textPtr->text + textInfoPtr->selectFirst + offset,
+	    (size_t) count);
+    buffer[count] = '\0';
+    return count;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	text items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used
+ *	to be there.  If no error occurs, then Postscript for the
+ *	item is appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+TextToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Leave Postscript or error message
+					 * here. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    TextItem *textPtr = (TextItem *) itemPtr;
+    TextLine *linePtr;
+    int i;
+    char *xoffset = NULL, *yoffset = NULL;	/* Initializations needed */
+    char *justify = NULL;			/* only to stop compiler
+   						 * warnings. */
+    char buffer[500];
+
+    if (textPtr->color == NULL) {
+	return TCL_OK;
+    }
+
+    if (Tk_CanvasPsFont(interp, canvas, textPtr->fontPtr) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    if (Tk_CanvasPsColor(interp, canvas, textPtr->color) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    if (textPtr->stipple != None) {
+	Tcl_AppendResult(interp, "/StippleText {\n    ",
+		(char *) NULL);
+	Tk_CanvasPsStipple(interp, canvas, textPtr->stipple);
+	Tcl_AppendResult(interp, "} bind def\n", (char *) NULL);
+    }
+    sprintf(buffer, "%.15g %.15g [\n", textPtr->x,
+	    Tk_CanvasPsY(canvas, textPtr->y));
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+    for (i = textPtr->numLines, linePtr = textPtr->linePtr;
+	    i > 0; i--, linePtr++) {
+	Tcl_AppendResult(interp, "    ", (char *) NULL);
+	LineToPostscript(interp, linePtr->firstChar,
+		linePtr->numChars);
+	Tcl_AppendResult(interp, "\n", (char *) NULL);
+    }
+    switch (textPtr->anchor) {
+	case TK_ANCHOR_NW:     xoffset = "0";    yoffset = "0";   break;
+	case TK_ANCHOR_N:      xoffset = "-0.5"; yoffset = "0";   break;
+	case TK_ANCHOR_NE:     xoffset = "-1";   yoffset = "0";   break;
+	case TK_ANCHOR_E:      xoffset = "-1";   yoffset = "0.5"; break;
+	case TK_ANCHOR_SE:     xoffset = "-1";   yoffset = "1";   break;
+	case TK_ANCHOR_S:      xoffset = "-0.5"; yoffset = "1";   break;
+	case TK_ANCHOR_SW:     xoffset = "0";    yoffset = "1";   break;
+	case TK_ANCHOR_W:      xoffset = "0";    yoffset = "0.5"; break;
+	case TK_ANCHOR_CENTER: xoffset = "-0.5"; yoffset = "0.5"; break;
+    }
+    switch (textPtr->justify) {
+	case TK_JUSTIFY_LEFT:	justify = "0";   break;
+	case TK_JUSTIFY_CENTER:	justify = "0.5"; break;
+	case TK_JUSTIFY_RIGHT:	justify = "1";   break;
+    }
+    sprintf(buffer, "] %d %s %s %s %s DrawText\n",
+	    textPtr->fontPtr->ascent + textPtr->fontPtr->descent,
+	    xoffset, yoffset, justify,
+	    (textPtr->stipple == None) ? "false" : "true");
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * LineToPostscript --
+ *
+ *	This procedure generates a parenthesized Postscript string
+ *	describing one line of text from a text item.
+ *
+ * Results:
+ *	None. The parenthesized string is appended to
+ *	interp->result.  It generates proper backslash notation so
+ *	that Postscript can interpret the string correctly.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+LineToPostscript(interp, string, numChars)
+    Tcl_Interp *interp;		/* Interp whose result is to be appended to. */
+    char *string;		/* String to Postscript-ify. */
+    int numChars;		/* Number of characters in the string. */
+{
+#define BUFFER_SIZE 100
+    char buffer[BUFFER_SIZE+5];
+    int used, c;
+
+    buffer[0] = '(';
+    used = 1;
+    for ( ; numChars > 0; string++, numChars--) {
+	c = (*string) & 0xff;
+	if ((c == '(') || (c == ')') || (c == '\\') || (c < 0x20)
+		|| (c >= 0x7f)) {
+	    /*
+	     * Tricky point:  the "03" is necessary in the sprintf below,
+	     * so that a full three digits of octal are always generated.
+	     * Without the "03", a number following this sequence could
+	     * be interpreted by Postscript as part of this sequence.
+	     */
+	    sprintf(buffer+used, "\\%03o", c);
+	    used += strlen(buffer+used);
+	} else {
+	    buffer[used] = c;
+	    used++;
+	}
+	if (used >= BUFFER_SIZE) {
+	    buffer[used] = 0;
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	    used = 0;
+	}
+    }
+    buffer[used] = ')';
+    buffer[used+1] = 0;
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+}
diff --git a/Tk/generic/tkCanvUtil.c b/Tk/generic/tkCanvUtil.c
new file mode 100644
index 0000000..0706fcf
--- /dev/null
+++ b/Tk/generic/tkCanvUtil.c
@@ -0,0 +1,406 @@
+/* 
+ * tkCanvUtil.c --
+ *
+ *	This procedure contains a collection of utility procedures
+ *	used by the implementations of various canvas item types.
+ *
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvUtil.c 1.6 96/02/15 18:53:10
+ */
+
+#include "tk.h"
+#include "tkCanvas.h"
+#include "tkPort.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CanvasTkwin --
+ *
+ *	Given a token for a canvas, this procedure returns the
+ *	widget that represents the canvas.
+ *
+ * Results:
+ *	The return value is a handle for the widget.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_CanvasTkwin(canvas)
+    Tk_Canvas canvas;			/* Token for the canvas. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    return canvasPtr->tkwin;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CanvasDrawableCoords --
+ *
+ *	Given an (x,y) coordinate pair within a canvas, this procedure
+ *	returns the corresponding coordinates at which the point should
+ *	be drawn in the drawable used for display.
+ *
+ * Results:
+ *	There is no return value.  The values at *drawableXPtr and
+ *	*drawableYPtr are filled in with the coordinates at which
+ *	x and y should be drawn.  These coordinates are clipped
+ *	to fit within a "short", since this is what X uses in
+ *	most cases for drawing.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_CanvasDrawableCoords(canvas, x, y, drawableXPtr, drawableYPtr)
+    Tk_Canvas canvas;			/* Token for the canvas. */
+    double x, y;			/* Coordinates in canvas space. */
+    short *drawableXPtr, *drawableYPtr;	/* Screen coordinates are stored
+					 * here. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    double tmp;
+
+    tmp = x - canvasPtr->drawableXOrigin;
+    if (tmp > 0) {
+	tmp += 0.5;
+    } else {
+	tmp -= 0.5;
+    }
+    if (tmp > 32767) {
+	*drawableXPtr = 32767;
+    } else if (tmp < -32768) {
+	*drawableXPtr = -32768;
+    } else {
+	*drawableXPtr = tmp;
+    }
+
+    tmp = y  - canvasPtr->drawableYOrigin;
+    if (tmp > 0) {
+	tmp += 0.5;
+    } else {
+	tmp -= 0.5;
+    }
+    if (tmp > 32767) {
+	*drawableYPtr = 32767;
+    } else if (tmp < -32768) {
+	*drawableYPtr = -32768;
+    } else {
+	*drawableYPtr = tmp;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CanvasWindowCoords --
+ *
+ *	Given an (x,y) coordinate pair within a canvas, this procedure
+ *	returns the corresponding coordinates in the canvas's window.
+ *
+ * Results:
+ *	There is no return value.  The values at *screenXPtr and
+ *	*screenYPtr are filled in with the coordinates at which
+ *	(x,y) appears in the canvas's window.  These coordinates
+ *	are clipped to fit within a "short", since this is what X
+ *	uses in most cases for drawing.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_CanvasWindowCoords(canvas, x, y, screenXPtr, screenYPtr)
+    Tk_Canvas canvas;			/* Token for the canvas. */
+    double x, y;			/* Coordinates in canvas space. */
+    short *screenXPtr, *screenYPtr;	/* Screen coordinates are stored
+					 * here. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    double tmp;
+
+    tmp = x - canvasPtr->xOrigin;
+    if (tmp > 0) {
+	tmp += 0.5;
+    } else {
+	tmp -= 0.5;
+    }
+    if (tmp > 32767) {
+	*screenXPtr = 32767;
+    } else if (tmp < -32768) {
+	*screenXPtr = -32768;
+    } else {
+	*screenXPtr = tmp;
+    }
+
+    tmp = y  - canvasPtr->yOrigin;
+    if (tmp > 0) {
+	tmp += 0.5;
+    } else {
+	tmp -= 0.5;
+    }
+    if (tmp > 32767) {
+	*screenYPtr = 32767;
+    } else if (tmp < -32768) {
+	*screenYPtr = -32768;
+    } else {
+	*screenYPtr = tmp;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasGetCoord --
+ *
+ *	Given a string, returns a floating-point canvas coordinate
+ *	corresponding to that string.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	canvas coordinate is stored at *doublePtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasGetCoord(interp, canvas, string, doublePtr)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Canvas canvas;		/* Canvas to which coordinate applies. */
+    char *string;		/* Describes coordinate (any screen
+				 * coordinate form may be used here). */
+    double *doublePtr;		/* Place to store converted coordinate. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    if (Tk_GetScreenMM(canvasPtr->interp, canvasPtr->tkwin, string,
+	    doublePtr) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    *doublePtr *= canvasPtr->pixelsPerMM;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CanvasSetStippleOrigin --
+ *
+ *	This procedure sets the stipple origin in a graphics context
+ *	so that stipples drawn with the GC will line up with other
+ *	stipples previously drawn in the canvas.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The graphics context is modified.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_CanvasSetStippleOrigin(canvas, gc)
+    Tk_Canvas canvas;		/* Token for a canvas. */
+    GC gc;			/* Graphics context that is about to be
+				 * used to draw a stippled pattern as
+				 * part of redisplaying the canvas. */
+
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+
+    XSetTSOrigin(canvasPtr->display, gc, -canvasPtr->drawableXOrigin,
+	    -canvasPtr->drawableYOrigin);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CanvasGetTextInfo --
+ *
+ *	This procedure returns a pointer to a structure containing
+ *	information about the selection and insertion cursor for
+ *	a canvas widget.  Items such as text items save the pointer
+ *	and use it to share access to the information with the generic
+ *	canvas code.
+ *
+ * Results:
+ *	The return value is a pointer to the structure holding text
+ *	information for the canvas.  Most of the fields should not
+ *	be modified outside the generic canvas code;  see the user
+ *	documentation for details.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_CanvasTextInfo *
+Tk_CanvasGetTextInfo(canvas)
+    Tk_Canvas canvas;			/* Token for the canvas widget. */
+{
+    return &((TkCanvas *) canvas)->textInfo;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasTagsParseProc --
+ *
+ *	This procedure is invoked during option processing to handle
+ *	"-tags" options for canvas items.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *	The tags for a given item get replaced by those indicated
+ *	in the value argument.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasTagsParseProc(clientData, interp, tkwin, value, widgRec, offset)
+    ClientData clientData;		/* Not used.*/
+    Tcl_Interp *interp;			/* Used for reporting errors. */
+    Tk_Window tkwin;			/* Window containing canvas widget. */
+    char *value;			/* Value of option (list of tag
+					 * names). */
+    char *widgRec;			/* Pointer to record for item. */
+    int offset;				/* Offset into item (ignored). */
+{
+    register Tk_Item *itemPtr = (Tk_Item *) widgRec;
+    int argc, i;
+    char **argv;
+    Tk_Uid *newPtr;
+
+    /*
+     * Break the value up into the individual tag names.
+     */
+
+    if (Tcl_SplitList(interp, value, &argc, &argv) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Make sure that there's enough space in the item to hold the
+     * tag names.
+     */
+
+    if (itemPtr->tagSpace < argc) {
+	newPtr = (Tk_Uid *) ckalloc((unsigned) (argc * sizeof(Tk_Uid)));
+	for (i = itemPtr->numTags-1; i >= 0; i--) {
+	    newPtr[i] = itemPtr->tagPtr[i];
+	}
+	if (itemPtr->tagPtr != itemPtr->staticTagSpace) {
+	    ckfree((char *) itemPtr->tagPtr);
+	}
+	itemPtr->tagPtr = newPtr;
+	itemPtr->tagSpace = argc;
+    }
+    itemPtr->numTags = argc;
+    for (i = 0; i < argc; i++) {
+	itemPtr->tagPtr[i] = Tk_GetUid(argv[i]);
+    }
+    ckfree((char *) argv);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasTagsPrintProc --
+ *
+ *	This procedure is invoked by the Tk configuration code
+ *	to produce a printable string for the "-tags" configuration
+ *	option for canvas items.
+ *
+ * Results:
+ *	The return value is a string describing all the tags for
+ *	the item referred to by "widgRec".  In addition, *freeProcPtr
+ *	is filled in with the address of a procedure to call to free
+ *	the result string when it's no longer needed (or NULL to
+ *	indicate that the string doesn't need to be freed).
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_CanvasTagsPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr)
+    ClientData clientData;		/* Ignored. */
+    Tk_Window tkwin;			/* Window containing canvas widget. */
+    char *widgRec;			/* Pointer to record for item. */
+    int offset;				/* Ignored. */
+    Tcl_FreeProc **freeProcPtr;		/* Pointer to variable to fill in with
+					 * information about how to reclaim
+					 * storage for return string. */
+{
+    register Tk_Item *itemPtr = (Tk_Item *) widgRec;
+
+#ifdef STk_CODE
+    char *s;
+    int i;
+    Tcl_DString ds;
+
+    if (itemPtr->numTags == 0) {
+	*freeProcPtr = (Tcl_FreeProc *) NULL;
+	return "()";
+    }
+    
+    /* if the Tcl tag list is "a b c" construct the string ("a" "b" "c") */
+    Tcl_DStringInit(&ds); 
+    Tcl_DStringAppend(&ds, "(", 1);
+
+    for (i = 0; i < itemPtr->numTags; i++) {
+      Tcl_DStringAppend(&ds, " \"", 2);
+      Tcl_DStringAppend(&ds, ((char **)itemPtr->tagPtr)[i], -1);
+      Tcl_DStringAppend(&ds, "\"", 1);
+    }
+    Tcl_DStringAppend(&ds, ")", 1);
+
+    /* Make a copy of the dynamic string we have crated and free the DSTring  */
+    s = ckalloc(strlen(Tcl_DStringValue(&ds)) + 1);
+    strcpy(s, Tcl_DStringValue(&ds));
+    Tcl_DStringFree(&ds);
+      
+    *freeProcPtr = (Tcl_FreeProc *) free;
+    return s;
+#else
+    if (itemPtr->numTags == 0) {
+	*freeProcPtr = (Tcl_FreeProc *) NULL;
+	return "";
+    }
+    if (itemPtr->numTags == 1) {
+	*freeProcPtr = (Tcl_FreeProc *) NULL;
+	return (char *) itemPtr->tagPtr[0];
+    }
+    *freeProcPtr = TCL_DYNAMIC;
+    return Tcl_Merge(itemPtr->numTags, (char **) itemPtr->tagPtr);
+#endif
+}
diff --git a/Tk/generic/tkCanvWind.c b/Tk/generic/tkCanvWind.c
new file mode 100644
index 0000000..815c1da
--- /dev/null
+++ b/Tk/generic/tkCanvWind.c
@@ -0,0 +1,836 @@
+/* 
+ * tkCanvWind.c --
+ *
+ *	This file implements window items for canvas widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvWind.c 1.25 96/02/17 16:59:13
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkCanvas.h"
+
+/*
+ * The structure below defines the record for each window item.
+ */
+
+typedef struct WindowItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    double x, y;		/* Coordinates of positioning point for
+				 * window. */
+    Tk_Window tkwin;		/* Window associated with item.  NULL means
+				 * window has been destroyed. */
+    int width;			/* Width to use for window (<= 0 means use
+				 * window's requested width). */
+    int height;			/* Width to use for window (<= 0 means use
+				 * window's requested width). */
+    Tk_Anchor anchor;		/* Where to anchor window relative to
+				 * (x,y). */
+    Tk_Canvas canvas;		/* Canvas containing this item. */
+} WindowItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_ANCHOR, "-anchor", (char *) NULL, (char *) NULL,
+	"center", Tk_Offset(WindowItem, anchor), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_PIXELS, "-height", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(WindowItem, height), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(WindowItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_WINDOW, "-window", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(WindowItem, tkwin), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ComputeWindowBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    WindowItem *winItemPtr));
+static int		ConfigureWinItem _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateWinItem _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteWinItem _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayWinItem _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static void		ScaleWinItem _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateWinItem _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+static int		WinItemCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv));
+static void		WinItemLostSlaveProc _ANSI_ARGS_((
+			    ClientData clientData, Tk_Window tkwin));
+static void		WinItemRequestProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		WinItemStructureProc _ANSI_ARGS_((
+			    ClientData clientData, XEvent *eventPtr));
+static int		WinItemToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *rectPtr));
+static double		WinItemToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *pointPtr));
+
+/*
+ * The structure below defines the window item type by means of procedures
+ * that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkWindowType = {
+    "window",				/* name */
+    sizeof(WindowItem),			/* itemSize */
+    CreateWinItem,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureWinItem,			/* configureProc */
+    WinItemCoords,			/* coordProc */
+    DeleteWinItem,			/* deleteProc */
+    DisplayWinItem,			/* displayProc */
+    1,					/* alwaysRedraw */
+    WinItemToPoint,			/* pointProc */
+    WinItemToArea,			/* areaProc */
+    (Tk_ItemPostscriptProc *) NULL,	/* postscriptProc */
+    ScaleWinItem,			/* scaleProc */
+    TranslateWinItem,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* cursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+
+/*
+ * The structure below defines the official type record for the
+ * placer:
+ */
+
+static Tk_GeomMgr canvasGeomType = {
+    "canvas",				/* name */
+    WinItemRequestProc,			/* requestProc */
+    WinItemLostSlaveProc,		/* lostSlaveProc */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateWinItem --
+ *
+ *	This procedure is invoked to create a new window
+ *	item in a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is
+ *	left uninitialized, so it can be safely freed by the
+ *	caller.
+ *
+ * Side effects:
+ *	A new window item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateWinItem(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing rectangle. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x y ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize item's record.
+     */
+
+    winItemPtr->tkwin = NULL;
+    winItemPtr->width = 0;
+    winItemPtr->height = 0;
+    winItemPtr->anchor = TK_ANCHOR_CENTER;
+    winItemPtr->canvas = canvas;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &winItemPtr->x) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		&winItemPtr->y) != TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureWinItem(interp, canvas, itemPtr, argc-2, argv+2, 0)
+	    != TCL_OK) {
+	DeleteWinItem(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on window items.  See the user documentation for
+ *	details on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+WinItemCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+    char x[TCL_DOUBLE_SPACE], y[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, winItemPtr->x, x);
+	Tcl_PrintDouble(interp, winItemPtr->y, y);
+	Tcl_AppendResult(interp, x, " ", y, (char *) NULL);
+    } else if (argc == 2) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0], &winItemPtr->x)
+		!= TCL_OK) || (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		&winItemPtr->y) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeWindowBbox(canvas, winItemPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 2, got %d", argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureWinItem --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a window item, such as its anchor position.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureWinItem(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Window item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+    Tk_Window oldWindow;
+    Tk_Window canvasTkwin;
+
+    oldWindow = winItemPtr->tkwin;
+    canvasTkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, canvasTkwin, configSpecs, argc, argv,
+	    (char *) winItemPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing.
+     */
+
+    if (oldWindow != winItemPtr->tkwin) {
+	if (oldWindow != NULL) {
+	    Tk_DeleteEventHandler(oldWindow, StructureNotifyMask,
+		    WinItemStructureProc, (ClientData) winItemPtr);
+	    Tk_ManageGeometry(oldWindow, (Tk_GeomMgr *) NULL,
+		    (ClientData) NULL);
+	    Tk_UnmaintainGeometry(oldWindow, canvasTkwin);
+	    Tk_UnmapWindow(oldWindow);
+	}
+	if (winItemPtr->tkwin != NULL) {
+	    Tk_Window ancestor, parent;
+
+	    /*
+	     * Make sure that the canvas is either the parent of the
+	     * window associated with the item or a descendant of that
+	     * parent.  Also, don't allow a top-level window to be
+	     * managed inside a canvas.
+	     */
+
+	    parent = Tk_Parent(winItemPtr->tkwin);
+	    for (ancestor = canvasTkwin; ;
+		    ancestor = Tk_Parent(ancestor)) {
+		if (ancestor == parent) {
+		    break;
+		}
+		if (((Tk_FakeWin *) (ancestor))->flags & TK_TOP_LEVEL) {
+		    badWindow:
+		    Tcl_AppendResult(interp, "can't use ",
+			    Tk_PathName(winItemPtr->tkwin),
+			    " in a window item of this canvas", (char *) NULL);
+		    winItemPtr->tkwin = NULL;
+		    return TCL_ERROR;
+		}
+	    }
+	    if (((Tk_FakeWin *) (winItemPtr->tkwin))->flags & TK_TOP_LEVEL) {
+		goto badWindow;
+	    }
+	    if (winItemPtr->tkwin == canvasTkwin) {
+		goto badWindow;
+	    }
+	    Tk_CreateEventHandler(winItemPtr->tkwin, StructureNotifyMask,
+		    WinItemStructureProc, (ClientData) winItemPtr);
+	    Tk_ManageGeometry(winItemPtr->tkwin, &canvasGeomType,
+		    (ClientData) winItemPtr);
+	}
+    }
+
+    ComputeWindowBbox(canvas, winItemPtr);
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteWinItem --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a window item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteWinItem(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Overall info about widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+    Tk_Window canvasTkwin = Tk_CanvasTkwin(canvas);
+
+    if (winItemPtr->tkwin != NULL) {
+	Tk_DeleteEventHandler(winItemPtr->tkwin, StructureNotifyMask,
+		WinItemStructureProc, (ClientData) winItemPtr);
+	Tk_ManageGeometry(winItemPtr->tkwin, (Tk_GeomMgr *) NULL,
+		(ClientData) NULL);
+	if (canvasTkwin != Tk_Parent(winItemPtr->tkwin)) {
+	    Tk_UnmaintainGeometry(winItemPtr->tkwin, canvasTkwin);
+	}
+	Tk_UnmapWindow(winItemPtr->tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeWindowBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a window item.
+ *	This procedure is where the child window's placement is
+ *	computed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeWindowBbox(canvas, winItemPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    WindowItem *winItemPtr;		/* Item whose bbox is to be
+					 * recomputed. */
+{
+    int width, height, x, y;
+
+    x = winItemPtr->x + ((winItemPtr->x >= 0) ? 0.5 : - 0.5);
+    y = winItemPtr->y + ((winItemPtr->y >= 0) ? 0.5 : - 0.5);
+
+    if (winItemPtr->tkwin == NULL) {
+	winItemPtr->header.x1 = winItemPtr->header.x2 = x;
+	winItemPtr->header.y1 = winItemPtr->header.y2 = y;
+	return;
+    }
+
+    /*
+     * Compute dimensions of window.
+     */
+
+    width = winItemPtr->width;
+    if (width <= 0) {
+	width = Tk_ReqWidth(winItemPtr->tkwin);
+	if (width <= 0) {
+	    width = 1;
+	}
+    }
+    height = winItemPtr->height;
+    if (height <= 0) {
+	height = Tk_ReqHeight(winItemPtr->tkwin);
+	if (height <= 0) {
+	    height = 1;
+	}
+    }
+
+    /*
+     * Compute location of window, using anchor information.
+     */
+
+    switch (winItemPtr->anchor) {
+	case TK_ANCHOR_N:
+	    x -= width/2;
+	    break;
+	case TK_ANCHOR_NE:
+	    x -= width;
+	    break;
+	case TK_ANCHOR_E:
+	    x -= width;
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_SE:
+	    x -= width;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_S:
+	    x -= width/2;
+	    y -= height;
+	    break;
+	case TK_ANCHOR_SW:
+	    y -= height;
+	    break;
+	case TK_ANCHOR_W:
+	    y -= height/2;
+	    break;
+	case TK_ANCHOR_NW:
+	    break;
+	case TK_ANCHOR_CENTER:
+	    x -= width/2;
+	    y -= height/2;
+	    break;
+    }
+
+    /*
+     * Store the information in the item header.
+     */
+
+    winItemPtr->header.x1 = x;
+    winItemPtr->header.y1 = y;
+    winItemPtr->header.x2 = x + width;
+    winItemPtr->header.y2 = y + height;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayWinItem --
+ *
+ *	This procedure is invoked to "draw" a window item in a given
+ *	drawable.  Since the window draws itself, we needn't do any
+ *	actual redisplay here.  However, this procedure takes care
+ *	of actually repositioning the child window so that it occupies
+ *	the correct screen position.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The child window's position may get changed.  Note: this
+ *	procedure gets called both when a window needs to be displayed
+ *	and when it ceases to be visible on the screen (e.g. it was
+ *	scrolled or moved off-screen or the enclosing canvas is
+ *	unmapped).
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayWinItem(canvas, itemPtr, display, drawable, regionX, regionY,
+	regionWidth, regionHeight)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int regionX, regionY, regionWidth, regionHeight;
+					/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+    int width, height;
+    short x, y;
+    Tk_Window canvasTkwin = Tk_CanvasTkwin(canvas);
+
+    if (winItemPtr->tkwin == NULL) {
+	return;
+    }
+
+    Tk_CanvasWindowCoords(canvas, (double) winItemPtr->header.x1,
+	    (double) winItemPtr->header.y1, &x, &y);
+    width = winItemPtr->header.x2 - winItemPtr->header.x1;
+    height = winItemPtr->header.y2 - winItemPtr->header.y1;
+
+    /*
+     * Reposition and map the window (but in different ways depending
+     * on whether the canvas is the window's parent).
+     */
+
+    if (canvasTkwin == Tk_Parent(winItemPtr->tkwin)) {
+	if ((x != Tk_X(winItemPtr->tkwin)) || (y != Tk_Y(winItemPtr->tkwin))
+		|| (width != Tk_Width(winItemPtr->tkwin))
+		|| (height != Tk_Height(winItemPtr->tkwin))) {
+	    Tk_MoveResizeWindow(winItemPtr->tkwin, x, y, width, height);
+	}
+	Tk_MapWindow(winItemPtr->tkwin);
+    } else {
+	Tk_MaintainGeometry(winItemPtr->tkwin, canvasTkwin, x, y,
+		width, height);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	rectangle, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the window.  If the
+ *	point isn't inside the window then the return value is the
+ *	distance from the point to the window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static double
+WinItemToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+    double x1, x2, y1, y2, xDiff, yDiff;
+
+    x1 = winItemPtr->header.x1;
+    y1 = winItemPtr->header.y1;
+    x2 = winItemPtr->header.x2;
+    y2 = winItemPtr->header.y2;
+
+    /*
+     * Point is outside rectangle.
+     */
+
+    if (pointPtr[0] < x1) {
+	xDiff = x1 - pointPtr[0];
+    } else if (pointPtr[0] >= x2)  {
+	xDiff = pointPtr[0] + 1 - x2;
+    } else {
+	xDiff = 0;
+    }
+
+    if (pointPtr[1] < y1) {
+	yDiff = y1 - pointPtr[1];
+    } else if (pointPtr[1] >= y2)  {
+	yDiff = pointPtr[1] + 1 - y2;
+    } else {
+	yDiff = 0;
+    }
+
+    return hypot(xDiff, yDiff);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangle.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+WinItemToArea(canvas, itemPtr, rectPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against rectangle. */
+    double *rectPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+
+    if ((rectPtr[2] <= winItemPtr->header.x1)
+	    || (rectPtr[0] >= winItemPtr->header.x2)
+	    || (rectPtr[3] <= winItemPtr->header.y1)
+	    || (rectPtr[1] >= winItemPtr->header.y2)) {
+	return -1;
+    }
+    if ((rectPtr[0] <= winItemPtr->header.x1)
+	    && (rectPtr[1] <= winItemPtr->header.y1)
+	    && (rectPtr[2] >= winItemPtr->header.x2)
+	    && (rectPtr[3] >= winItemPtr->header.y2)) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleWinItem --
+ *
+ *	This procedure is invoked to rescale a rectangle or oval
+ *	item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The rectangle or oval referred to by itemPtr is rescaled
+ *	so that the following transformation is applied to all
+ *	point coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleWinItem(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing rectangle. */
+    Tk_Item *itemPtr;			/* Rectangle to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+
+    winItemPtr->x = originX + scaleX*(winItemPtr->x - originX);
+    winItemPtr->y = originY + scaleY*(winItemPtr->y - originY);
+    if (winItemPtr->width > 0) {
+	winItemPtr->width = scaleY*winItemPtr->width;
+    }
+    if (winItemPtr->height > 0) {
+	winItemPtr->height = scaleY*winItemPtr->height;
+    }
+    ComputeWindowBbox(canvas, winItemPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateWinItem --
+ *
+ *	This procedure is called to move a rectangle or oval by a
+ *	given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the rectangle or oval is offset by
+ *	(xDelta, yDelta), and the bounding box is updated in the
+ *	generic part of the item structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateWinItem(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    WindowItem *winItemPtr = (WindowItem *) itemPtr;
+
+    winItemPtr->x += deltaX;
+    winItemPtr->y += deltaY;
+    ComputeWindowBbox(canvas, winItemPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemStructureProc --
+ *
+ *	This procedure is invoked whenever StructureNotify events
+ *	occur for a window that's managed as part of a canvas window
+ *	item.  This procudure's only purpose is to clean up when
+ *	windows are deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is disassociated from the window item when it is
+ *	deleted.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+WinItemStructureProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to record describing window item. */
+    XEvent *eventPtr;		/* Describes what just happened. */
+{
+    WindowItem *winItemPtr = (WindowItem *) clientData;
+
+    if (eventPtr->type == DestroyNotify) {
+	winItemPtr->tkwin = NULL;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemRequestProc --
+ *
+ *	This procedure is invoked whenever a window that's associated
+ *	with a window canvas item changes its requested dimensions.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The size and location on the screen of the window may change,
+ *	depending on the options specified for the window item.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+WinItemRequestProc(clientData, tkwin)
+    ClientData clientData;		/* Pointer to record for window item. */
+    Tk_Window tkwin;			/* Window that changed its desired
+					 * size. */
+{
+    WindowItem *winItemPtr = (WindowItem *) clientData;
+
+    ComputeWindowBbox(winItemPtr->canvas, winItemPtr);
+    DisplayWinItem(winItemPtr->canvas, (Tk_Item *) winItemPtr,
+	    (Display *) NULL, (Drawable) None, 0, 0, 0, 0);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * WinItemLostSlaveProc --
+ *
+ *	This procedure is invoked by Tk whenever some other geometry
+ *	claims control over a slave that used to be managed by us.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Forgets all canvas-related information about the slave.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+WinItemLostSlaveProc(clientData, tkwin)
+    ClientData clientData;	/* WindowItem structure for slave window that
+				 * was stolen away. */
+    Tk_Window tkwin;		/* Tk's handle for the slave window. */
+{
+    WindowItem *winItemPtr = (WindowItem *) clientData;
+    Tk_Window canvasTkwin = Tk_CanvasTkwin(winItemPtr->canvas);
+
+    Tk_DeleteEventHandler(winItemPtr->tkwin, StructureNotifyMask,
+	    WinItemStructureProc, (ClientData) winItemPtr);
+    if (canvasTkwin != Tk_Parent(winItemPtr->tkwin)) {
+	Tk_UnmaintainGeometry(winItemPtr->tkwin, canvasTkwin);
+    }
+    Tk_UnmapWindow(winItemPtr->tkwin);
+    winItemPtr->tkwin = NULL;
+}
diff --git a/Tk/generic/tkCanvas.c b/Tk/generic/tkCanvas.c
new file mode 100644
index 0000000..a43a40a
--- /dev/null
+++ b/Tk/generic/tkCanvas.c
@@ -0,0 +1,3786 @@
+/* 
+ * tkCanvas.c --
+ *
+ *	This module implements canvas widgets for the Tk toolkit.
+ *	A canvas displays a background and a collection of graphical
+ *	objects such as rectangles, lines, and texts.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvas.c 1.119 96/03/21 11:26:39
+ */
+
+#include "default.h"
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkCanvas.h"
+
+/*
+ * See tkCanvas.h for key data structures used to implement canvases.
+ */
+
+/*
+ * The structure defined below is used to keep track of a tag search
+ * in progress.  Only the "prevPtr" field should be accessed by anyone
+ * other than StartTagSearch and NextItem.
+ */
+
+typedef struct TagSearch {
+    TkCanvas *canvasPtr;	/* Canvas widget being searched. */
+    Tk_Uid tag;			/* Tag to search for.   0 means return
+				 * all items. */
+    Tk_Item *prevPtr;		/* Item just before last one found (or NULL
+				 * if last one found was first in the item
+				 * list of canvasPtr). */
+    Tk_Item *currentPtr;	/* Pointer to last item returned. */
+    int searchOver;		/* Non-zero means NextItem should always
+				 * return NULL. */
+} TagSearch;
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_CANVAS_BG_COLOR, Tk_Offset(TkCanvas, bgBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_CANVAS_BG_MONO, Tk_Offset(TkCanvas, bgBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_CANVAS_BORDER_WIDTH, Tk_Offset(TkCanvas, borderWidth), 0},
+    {TK_CONFIG_DOUBLE, "-closeenough", "closeEnough", "CloseEnough",
+	DEF_CANVAS_CLOSE_ENOUGH, Tk_Offset(TkCanvas, closeEnough), 0},
+    {TK_CONFIG_BOOLEAN, "-confine", "confine", "Confine",
+	DEF_CANVAS_CONFINE, Tk_Offset(TkCanvas, confine), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_CANVAS_CURSOR, Tk_Offset(TkCanvas, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-height", "height", "Height",
+	DEF_CANVAS_HEIGHT, Tk_Offset(TkCanvas, height), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_CANVAS_HIGHLIGHT_BG,
+	Tk_Offset(TkCanvas, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_CANVAS_HIGHLIGHT, Tk_Offset(TkCanvas, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_CANVAS_HIGHLIGHT_WIDTH, Tk_Offset(TkCanvas, highlightWidth), 0},
+    {TK_CONFIG_BORDER, "-insertbackground", "insertBackground", "Foreground",
+	DEF_CANVAS_INSERT_BG, Tk_Offset(TkCanvas, textInfo.insertBorder), 0},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_CANVAS_INSERT_BD_COLOR,
+	Tk_Offset(TkCanvas, textInfo.insertBorderWidth), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_CANVAS_INSERT_BD_MONO,
+	Tk_Offset(TkCanvas, textInfo.insertBorderWidth), TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_INT, "-insertofftime", "insertOffTime", "OffTime",
+	DEF_CANVAS_INSERT_OFF_TIME, Tk_Offset(TkCanvas, insertOffTime), 0},
+    {TK_CONFIG_INT, "-insertontime", "insertOnTime", "OnTime",
+	DEF_CANVAS_INSERT_ON_TIME, Tk_Offset(TkCanvas, insertOnTime), 0},
+    {TK_CONFIG_PIXELS, "-insertwidth", "insertWidth", "InsertWidth",
+	DEF_CANVAS_INSERT_WIDTH, Tk_Offset(TkCanvas, textInfo.insertWidth), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_CANVAS_RELIEF, Tk_Offset(TkCanvas, relief), 0},
+    {TK_CONFIG_STRING, "-scrollregion", "scrollRegion", "ScrollRegion",
+	DEF_CANVAS_SCROLL_REGION, Tk_Offset(TkCanvas, regionString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_CANVAS_SELECT_COLOR, Tk_Offset(TkCanvas, textInfo.selBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_CANVAS_SELECT_MONO, Tk_Offset(TkCanvas, textInfo.selBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_PIXELS, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_CANVAS_SELECT_BD_COLOR,
+	Tk_Offset(TkCanvas, textInfo.selBorderWidth), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_PIXELS, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_CANVAS_SELECT_BD_MONO, Tk_Offset(TkCanvas, textInfo.selBorderWidth),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_CANVAS_SELECT_FG_COLOR, Tk_Offset(TkCanvas, textInfo.selFgColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_CANVAS_SELECT_FG_MONO, Tk_Offset(TkCanvas, textInfo.selFgColorPtr),
+	TK_CONFIG_MONO_ONLY},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_CANVAS_TAKE_FOCUS, Tk_Offset(TkCanvas, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-width", "width", "Width",
+	DEF_CANVAS_WIDTH, Tk_Offset(TkCanvas, width), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#endif
+	DEF_CANVAS_X_SCROLL_CMD, Tk_Offset(TkCanvas, xScrollCmd),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-xscrollincrement", "xScrollIncrement",
+	"ScrollIncrement",
+	DEF_CANVAS_X_SCROLL_INCREMENT, Tk_Offset(TkCanvas, xScrollIncrement),
+	0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#endif
+	DEF_CANVAS_Y_SCROLL_CMD, Tk_Offset(TkCanvas, yScrollCmd),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-yscrollincrement", "yScrollIncrement",
+	"ScrollIncrement",
+	DEF_CANVAS_Y_SCROLL_INCREMENT, Tk_Offset(TkCanvas, yScrollIncrement),
+	0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * List of all the item types known at present:
+ */
+
+static Tk_ItemType *typeList = NULL;	/* NULL means initialization hasn't
+					 * been done yet. */
+
+/*
+ * Standard item types provided by Tk:
+ */
+
+extern Tk_ItemType tkArcType, tkBitmapType, tkImageType, tkLineType;
+extern Tk_ItemType tkOvalType, tkPolygonType;
+extern Tk_ItemType tkRectangleType, tkTextType, tkWindowType;
+
+/*
+ * Various Tk_Uid's used by this module (set up during initialization):
+ */
+
+static Tk_Uid allUid = NULL;
+static Tk_Uid currentUid = NULL;
+
+/*
+ * Statistics counters:
+ */
+
+static int numIdSearches;
+static int numSlowSearches;
+
+/*
+ * Prototypes for procedures defined later in this file:
+ */
+
+static void		CanvasBindProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		CanvasBlinkProc _ANSI_ARGS_((ClientData clientData));
+static void		CanvasCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		CanvasDoEvent _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    XEvent *eventPtr));
+static void		CanvasEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		CanvasFetchSelection _ANSI_ARGS_((
+			    ClientData clientData, int offset,
+			    char *buffer, int maxBytes));
+static Tk_Item *	CanvasFindClosest _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    double coords[2]));
+static void		CanvasFocusProc _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    int gotFocus));
+static void		CanvasLostSelection _ANSI_ARGS_((
+			    ClientData clientData));
+static void		CanvasSelectTo _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    Tk_Item *itemPtr, int index));
+static void		CanvasSetOrigin _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    int xOrigin, int yOrigin));
+static void		CanvasUpdateScrollbars _ANSI_ARGS_((
+			    TkCanvas *canvasPtr));
+static int		CanvasWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		ConfigureCanvas _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkCanvas *canvasPtr, int argc, char **argv,
+			    int flags));
+static void		DestroyCanvas _ANSI_ARGS_((char *memPtr));
+static void		DisplayCanvas _ANSI_ARGS_((ClientData clientData));
+static void		DoItem _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Item *itemPtr, Tk_Uid tag));
+static int		FindItems _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkCanvas *canvasPtr, int argc, char **argv,
+			    char *newTag, char *cmdName, char *option));
+static int		FindArea _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkCanvas *canvasPtr, char **argv, Tk_Uid uid,
+			    int enclosed));
+static double		GridAlign _ANSI_ARGS_((double coord, double spacing));
+static void		InitCanvas _ANSI_ARGS_((void));
+static Tk_Item *	NextItem _ANSI_ARGS_((TagSearch *searchPtr));
+static void		PickCurrentItem _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    XEvent *eventPtr));
+static void		PrintScrollFractions _ANSI_ARGS_((int screen1,
+			    int screen2, int object1, int object2,
+			    char *string));
+static void		RelinkItems _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    char *tag, Tk_Item *prevPtr));
+static Tk_Item *	StartTagSearch _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    char *tag, TagSearch *searchPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasCmd --
+ *
+ *	This procedure is invoked to process the "canvas" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_CanvasCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkCanvas *canvasPtr;
+    Tk_Window new;
+
+    if (typeList == NULL) {
+	InitCanvas();
+    }
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize fields that won't be initialized by ConfigureCanvas,
+     * or which ConfigureCanvas expects to have reasonable values
+     * (e.g. resource pointers).
+     */
+
+    canvasPtr = (TkCanvas *) ckalloc(sizeof(TkCanvas));
+    canvasPtr->tkwin = new;
+    canvasPtr->display = Tk_Display(new);
+    canvasPtr->interp = interp;
+    canvasPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(canvasPtr->tkwin), CanvasWidgetCmd,
+	    (ClientData) canvasPtr, CanvasCmdDeletedProc);
+    canvasPtr->firstItemPtr = NULL;
+    canvasPtr->lastItemPtr = NULL;
+    canvasPtr->borderWidth = 0;
+    canvasPtr->bgBorder = NULL;
+    canvasPtr->relief = TK_RELIEF_FLAT;
+    canvasPtr->highlightWidth = 0;
+    canvasPtr->highlightBgColorPtr = NULL;
+    canvasPtr->highlightColorPtr = NULL;
+    canvasPtr->inset = 0;
+    canvasPtr->pixmapGC = None;
+    canvasPtr->width = None;
+    canvasPtr->height = None;
+    canvasPtr->confine = 0;
+    canvasPtr->textInfo.selBorder = NULL;
+    canvasPtr->textInfo.selBorderWidth = 0;
+    canvasPtr->textInfo.selFgColorPtr = NULL;
+    canvasPtr->textInfo.selItemPtr = NULL;
+    canvasPtr->textInfo.selectFirst = -1;
+    canvasPtr->textInfo.selectLast = -1;
+    canvasPtr->textInfo.anchorItemPtr = NULL;
+    canvasPtr->textInfo.selectAnchor = 0;
+    canvasPtr->textInfo.insertBorder = NULL;
+    canvasPtr->textInfo.insertWidth = 0;
+    canvasPtr->textInfo.insertBorderWidth = 0;
+    canvasPtr->textInfo.focusItemPtr = NULL;
+    canvasPtr->textInfo.gotFocus = 0;
+    canvasPtr->textInfo.cursorOn = 0;
+    canvasPtr->insertOnTime = 0;
+    canvasPtr->insertOffTime = 0;
+    canvasPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+    canvasPtr->xOrigin = canvasPtr->yOrigin = 0;
+    canvasPtr->drawableXOrigin = canvasPtr->drawableYOrigin = 0;
+    canvasPtr->bindingTable = NULL;
+    canvasPtr->currentItemPtr = NULL;
+    canvasPtr->newCurrentPtr = NULL;
+    canvasPtr->closeEnough = 0.0;
+    canvasPtr->pickEvent.type = LeaveNotify;
+    canvasPtr->pickEvent.xcrossing.x = 0;
+    canvasPtr->pickEvent.xcrossing.y = 0;
+    canvasPtr->state = 0;
+    canvasPtr->xScrollCmd = NULL;
+    canvasPtr->yScrollCmd = NULL;
+    canvasPtr->scrollX1 = 0;
+    canvasPtr->scrollY1 = 0;
+    canvasPtr->scrollX2 = 0;
+    canvasPtr->scrollY2 = 0;
+    canvasPtr->regionString = NULL;
+    canvasPtr->xScrollIncrement = 0;
+    canvasPtr->yScrollIncrement = 0;
+    canvasPtr->scanX = 0;
+    canvasPtr->scanXOrigin = 0;
+    canvasPtr->scanY = 0;
+    canvasPtr->scanYOrigin = 0;
+    canvasPtr->hotPtr = NULL;
+    canvasPtr->hotPrevPtr = NULL;
+    canvasPtr->cursor = None;
+    canvasPtr->takeFocus = NULL;
+    canvasPtr->pixelsPerMM = WidthOfScreen(Tk_Screen(new));
+    canvasPtr->pixelsPerMM /= WidthMMOfScreen(Tk_Screen(new));
+    canvasPtr->flags = 0;
+    canvasPtr->nextId = 1;
+    canvasPtr->psInfoPtr = NULL;
+
+    Tk_SetClass(canvasPtr->tkwin, "Canvas");
+    Tk_CreateEventHandler(canvasPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    CanvasEventProc, (ClientData) canvasPtr);
+    Tk_CreateEventHandler(canvasPtr->tkwin, KeyPressMask|KeyReleaseMask
+	    |ButtonPressMask|ButtonReleaseMask|EnterWindowMask
+	    |LeaveWindowMask|PointerMotionMask, CanvasBindProc,
+	    (ClientData) canvasPtr);
+    Tk_CreateSelHandler(canvasPtr->tkwin, XA_PRIMARY, XA_STRING,
+	    CanvasFetchSelection, (ClientData) canvasPtr, XA_STRING);
+    if (ConfigureCanvas(interp, canvasPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(canvasPtr->tkwin));
+#else
+    interp->result = Tk_PathName(canvasPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(canvasPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CanvasWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about canvas
+					 * widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+    size_t length;
+    int c, result;
+    Tk_Item *itemPtr = NULL;		/* Initialization needed only to
+					 * prevent compiler warning. */
+    TagSearch search;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) canvasPtr);
+    result = TCL_OK;
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "addtag", length) == 0)) {
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " addtags tag searchCommand ?arg arg ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = FindItems(interp, canvasPtr, argc-3, argv+3, argv[2], argv[0],
+		" addtag tag");
+    } else if ((c == 'b') && (strncmp(argv[1], "bbox", length) == 0)
+	    && (length >= 2)) {
+	int i, gotAny;
+	int x1 = 0, y1 = 0, x2 = 0, y2 = 0;	/* Initializations needed
+						 * only to prevent compiler
+						 * warnings. */
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " bbox tagOrId ?tagOrId ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	gotAny = 0;
+	for (i = 2; i < argc; i++) {
+	    for (itemPtr = StartTagSearch(canvasPtr, argv[i], &search);
+		    itemPtr != NULL; itemPtr = NextItem(&search)) {
+		if ((itemPtr->x1 >= itemPtr->x2)
+			|| (itemPtr->y1 >= itemPtr->y2)) {
+		    continue;
+		}
+		if (!gotAny) {
+		    x1 = itemPtr->x1;
+		    y1 = itemPtr->y1;
+		    x2 = itemPtr->x2;
+		    y2 = itemPtr->y2;
+		    gotAny = 1;
+		} else {
+		    if (itemPtr->x1 < x1) {
+			x1 = itemPtr->x1;
+		    }
+		    if (itemPtr->y1 < y1) {
+			y1 = itemPtr->y1;
+		    }
+		    if (itemPtr->x2 > x2) {
+			x2 = itemPtr->x2;
+		    }
+		    if (itemPtr->y2 > y2) {
+			y2 = itemPtr->y2;
+		    }
+		}
+	    }
+	}
+	if (gotAny) {
+	    sprintf(interp->result, "%d %d %d %d", x1, y1, x2, y2);
+	}
+    } else if ((c == 'b') && (strncmp(argv[1], "bind", length) == 0)
+	    && (length >= 2)) {
+	ClientData object;
+
+	if ((argc < 3) || (argc > 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " bind tagOrId ?sequence? ?command?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+
+	/*
+	 * Figure out what object to use for the binding (individual
+	 * item vs. tag).
+	 */
+
+	object = 0;
+	if (isdigit(UCHAR(argv[2][0]))) {
+	    int id;
+	    char *end;
+
+	    id = strtoul(argv[2], &end, 0);
+	    if (*end != 0) {
+		goto bindByTag;
+	    }
+	    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+		    itemPtr = itemPtr->nextPtr) {
+		if (itemPtr->id == id) {
+		    object = (ClientData) itemPtr;
+		    break;
+		}
+	    }
+	    if (object == 0) {
+		Tcl_AppendResult(interp, "item \"", argv[2],
+			"\" doesn't exist", (char *) NULL);
+		goto error;
+	    }
+	} else {
+	    bindByTag:
+	    object = (ClientData) Tk_GetUid(argv[2]);
+	}
+
+	/*
+	 * Make a binding table if the canvas doesn't already have
+	 * one.
+	 */
+
+	if (canvasPtr->bindingTable == NULL) {
+	    canvasPtr->bindingTable = Tk_CreateBindingTable(interp);
+	}
+
+	if (argc == 5) {
+	    int append = 0;
+	    unsigned long mask;
+
+	    if (argv[4][0] == 0) {
+		result = Tk_DeleteBinding(interp, canvasPtr->bindingTable,
+			object, argv[3]);
+		goto done;
+	    }
+
+#ifdef STk_CODE
+	    mask = Tk_CreateBinding(interp, canvasPtr->bindingTable,
+		    object, argv[3], argv[4], argv[0], argv[2]);
+#else
+	    if (argv[4][0] == '+') {
+		argv[4]++;
+		append = 1;
+	    }
+	    mask = Tk_CreateBinding(interp, canvasPtr->bindingTable,
+		    object, argv[3], argv[4], append);
+#endif
+	    if (mask == 0) {
+		goto error;
+	    }
+	    if (mask & (unsigned) ~(ButtonMotionMask|Button1MotionMask
+		    |Button2MotionMask|Button3MotionMask|Button4MotionMask
+		    |Button5MotionMask|ButtonPressMask|ButtonReleaseMask
+		    |EnterWindowMask|LeaveWindowMask|KeyPressMask
+		    |KeyReleaseMask|PointerMotionMask)) {
+		Tk_DeleteBinding(interp, canvasPtr->bindingTable,
+			object, argv[3]);
+		Tcl_ResetResult(interp);
+		Tcl_AppendResult(interp, "requested illegal events; ",
+			"only key, button, motion, and enter/leave ",
+			"events may be used", (char *) NULL);
+		goto error;
+	    }
+	} else if (argc == 4) {
+	    char *command;
+    
+	    command = Tk_GetBinding(interp, canvasPtr->bindingTable,
+		    object, argv[3]);
+	    if (command == NULL) {
+		goto error;
+	    }
+	    interp->result = command;
+	} else {
+	    Tk_GetAllBindings(interp, canvasPtr->bindingTable, object);
+	}
+    } else if ((c == 'c') && (strcmp(argv[1], "canvasx") == 0)) {
+	int x;
+	double grid;
+
+	if ((argc < 3) || (argc > 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " canvasx screenx ?gridspacing?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (Tk_GetPixels(interp, canvasPtr->tkwin, argv[2], &x) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 4) {
+	    if (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[3],
+		    &grid) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    grid = 0.0;
+	}
+	x += canvasPtr->xOrigin;
+	Tcl_PrintDouble(interp, GridAlign((double) x, grid), interp->result);
+    } else if ((c == 'c') && (strcmp(argv[1], "canvasy") == 0)) {
+	int y;
+	double grid;
+
+	if ((argc < 3) || (argc > 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " canvasy screeny ?gridspacing?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (Tk_GetPixels(interp, canvasPtr->tkwin, argv[2], &y) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 4) {
+	    if (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr,
+		    argv[3], &grid) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    grid = 0.0;
+	}
+	y += canvasPtr->yOrigin;
+	Tcl_PrintDouble(interp, GridAlign((double) y, grid), interp->result);
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, canvasPtr->tkwin, configSpecs,
+		(char *) canvasPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 3)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, canvasPtr->tkwin, configSpecs,
+		    (char *) canvasPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, canvasPtr->tkwin, configSpecs,
+		    (char *) canvasPtr, argv[2], 0);
+	} else {
+	    result = ConfigureCanvas(interp, canvasPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "coords", length) == 0)
+	    && (length >= 3)) {
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " coords tagOrId ?x y x y ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+	if (itemPtr != NULL) {
+	    if (argc != 3) {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    }
+	    if (itemPtr->typePtr->coordProc != NULL) {
+		result = (*itemPtr->typePtr->coordProc)(interp,
+			(Tk_Canvas) canvasPtr, itemPtr, argc-3, argv+3);
+	    }
+	    if (argc != 3) {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    }
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "create", length) == 0)
+	    && (length >= 2)) {
+	Tk_ItemType *typePtr;
+	Tk_ItemType *matchPtr = NULL;
+	Tk_Item *itemPtr;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " create type ?arg arg ...?\"", (char *) NULL);
+	    goto error;
+	}
+	c = argv[2][0];
+	length = strlen(argv[2]);
+	for (typePtr = typeList; typePtr != NULL; typePtr = typePtr->nextPtr) {
+	    if ((c == typePtr->name[0])
+		    && (strncmp(argv[2], typePtr->name, length) == 0)) {
+		if (matchPtr != NULL) {
+		    badType:
+		    Tcl_AppendResult(interp,
+			    "unknown or ambiguous item type \"",
+			    argv[2], "\"", (char *) NULL);
+		    goto error;
+		}
+		matchPtr = typePtr;
+	    }
+	}
+	if (matchPtr == NULL) {
+	    goto badType;
+	}
+	typePtr = matchPtr;
+	itemPtr = (Tk_Item *) ckalloc((unsigned) typePtr->itemSize);
+	itemPtr->id = canvasPtr->nextId;
+	canvasPtr->nextId++;
+	itemPtr->tagPtr = itemPtr->staticTagSpace;
+	itemPtr->tagSpace = TK_TAG_SPACE;
+	itemPtr->numTags = 0;
+	itemPtr->typePtr = typePtr;
+	if ((*typePtr->createProc)(interp, (Tk_Canvas) canvasPtr,
+		itemPtr, argc-3, argv+3) != TCL_OK) {
+	    ckfree((char *) itemPtr);
+	    goto error;
+	}
+	itemPtr->nextPtr = NULL;
+	canvasPtr->hotPtr = itemPtr;
+	canvasPtr->hotPrevPtr = canvasPtr->lastItemPtr;
+	if (canvasPtr->lastItemPtr == NULL) {
+	    canvasPtr->firstItemPtr = itemPtr;
+	} else {
+	    canvasPtr->lastItemPtr->nextPtr = itemPtr;
+	}
+	canvasPtr->lastItemPtr = itemPtr;
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	canvasPtr->flags |= REPICK_NEEDED;
+	sprintf(interp->result, "%d", itemPtr->id);
+    } else if ((c == 'd') && (strncmp(argv[1], "dchars", length) == 0)
+	    && (length >= 2)) {
+	int first, last;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " dchars tagOrId first ?last?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if ((itemPtr->typePtr->indexProc == NULL)
+		    || (itemPtr->typePtr->dCharsProc == NULL)) {
+		continue;
+	    }
+	    if ((*itemPtr->typePtr->indexProc)(interp, (Tk_Canvas) canvasPtr,
+		    itemPtr, argv[3], &first) != TCL_OK) {
+		goto error;
+	    }
+	    if (argc == 5) {
+		if ((*itemPtr->typePtr->indexProc)(interp,
+			(Tk_Canvas) canvasPtr, itemPtr, argv[4], &last)
+			!= TCL_OK) {
+		    goto error;
+		}
+	    } else {
+		last = first;
+	    }
+
+	    /*
+	     * Redraw both item's old and new areas:  it's possible
+	     * that a delete could result in a new area larger than
+	     * the old area.
+	     */
+
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    (*itemPtr->typePtr->dCharsProc)((Tk_Canvas) canvasPtr,
+		    itemPtr, first, last);
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)
+	    && (length >= 2)) {
+	int i;
+
+	for (i = 2; i < argc; i++) {
+	    for (itemPtr = StartTagSearch(canvasPtr, argv[i], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+		if (canvasPtr->bindingTable != NULL) {
+		    Tk_DeleteAllBindings(canvasPtr->bindingTable,
+			    (ClientData) itemPtr);
+		}
+		(*itemPtr->typePtr->deleteProc)((Tk_Canvas) canvasPtr, itemPtr,
+			canvasPtr->display);
+		if (itemPtr->tagPtr != itemPtr->staticTagSpace) {
+		    ckfree((char *) itemPtr->tagPtr);
+		}
+		if (search.prevPtr == NULL) {
+		    canvasPtr->firstItemPtr = itemPtr->nextPtr;
+		    if (canvasPtr->firstItemPtr == NULL) {
+			canvasPtr->lastItemPtr = NULL;
+		    }
+		} else {
+		    search.prevPtr->nextPtr = itemPtr->nextPtr;
+		}
+		if (canvasPtr->lastItemPtr == itemPtr) {
+		    canvasPtr->lastItemPtr = search.prevPtr;
+		}
+		ckfree((char *) itemPtr);
+		if (itemPtr == canvasPtr->currentItemPtr) {
+		    canvasPtr->currentItemPtr = NULL;
+		    canvasPtr->flags |= REPICK_NEEDED;
+		}
+		if (itemPtr == canvasPtr->newCurrentPtr) {
+		    canvasPtr->newCurrentPtr = NULL;
+		    canvasPtr->flags |= REPICK_NEEDED;
+		}
+		if (itemPtr == canvasPtr->textInfo.focusItemPtr) {
+		    canvasPtr->textInfo.focusItemPtr = NULL;
+		}
+		if (itemPtr == canvasPtr->textInfo.selItemPtr) {
+		    canvasPtr->textInfo.selItemPtr = NULL;
+		}
+		if ((itemPtr == canvasPtr->hotPtr)
+			|| (itemPtr == canvasPtr->hotPrevPtr)) {
+		    canvasPtr->hotPtr = NULL;
+		}
+	    }
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "dtag", length) == 0)
+	    && (length >= 2)) {
+	Tk_Uid tag;
+	int i;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " dtag tagOrId ?tagToDelete?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (argc == 4) {
+	    tag = Tk_GetUid(argv[3]);
+	} else {
+	    tag = Tk_GetUid(argv[2]);
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    for (i = itemPtr->numTags-1; i >= 0; i--) {
+		if (itemPtr->tagPtr[i] == tag) {
+		    itemPtr->tagPtr[i] = itemPtr->tagPtr[itemPtr->numTags-1];
+		    itemPtr->numTags--;
+		}
+	    }
+	}
+    } else if ((c == 'f') && (strncmp(argv[1], "find", length) == 0)
+	    && (length >= 2)) {
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " find searchCommand ?arg arg ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = FindItems(interp, canvasPtr, argc-2, argv+2, (char *) NULL,
+		argv[0]," find");
+    } else if ((c == 'f') && (strncmp(argv[1], "focus", length) == 0)
+	    && (length >= 2)) {
+	if (argc > 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " focus ?tagOrId?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	itemPtr = canvasPtr->textInfo.focusItemPtr;
+	if (argc == 2) {
+	    if (itemPtr != NULL) {
+		sprintf(interp->result, "%d", itemPtr->id);
+	    }
+	    goto done;
+	}
+	if ((itemPtr != NULL) && (canvasPtr->textInfo.gotFocus)) {
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	}
+	if (argv[2][0] == 0) {
+	    canvasPtr->textInfo.focusItemPtr = NULL;
+	    goto done;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if (itemPtr->typePtr->icursorProc != NULL) {
+		break;
+	    }
+	}
+	if (itemPtr == NULL) {
+	    goto done;
+	}
+	canvasPtr->textInfo.focusItemPtr = itemPtr;
+	if (canvasPtr->textInfo.gotFocus) {
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	}
+    } else if ((c == 'g') && (strncmp(argv[1], "gettags", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " gettags tagOrId\"", (char *) NULL);
+	    goto error;
+	}
+	itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+	if (itemPtr != NULL) {
+	    int i;
+#ifdef STk_CODE
+	    Tcl_AppendElement(interp, "(");
+	    for (i = 0; i < itemPtr->numTags; i++) {
+	      Tcl_AppendResult(interp, " \"", (char *) itemPtr->tagPtr[i], 
+		                       "\"", NULL);
+	    }
+	    Tcl_AppendElement(interp, ")");
+#else
+	    for (i = 0; i < itemPtr->numTags; i++) {
+		Tcl_AppendElement(interp, (char *) itemPtr->tagPtr[i]);
+	    }
+#endif
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "icursor", length) == 0)
+	    && (length >= 2)) {
+	int index;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " icursor tagOrId index\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if ((itemPtr->typePtr->indexProc == NULL)
+		    || (itemPtr->typePtr->icursorProc == NULL)) {
+		goto done;
+	    }
+	    if ((*itemPtr->typePtr->indexProc)(interp, (Tk_Canvas) canvasPtr,
+		    itemPtr, argv[3], &index) != TCL_OK) {
+		goto error;
+	    }
+	    (*itemPtr->typePtr->icursorProc)((Tk_Canvas) canvasPtr, itemPtr,
+		    index);
+	    if ((itemPtr == canvasPtr->textInfo.focusItemPtr)
+		    && (canvasPtr->textInfo.cursorOn)) {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "index", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " index tagOrId string\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if (itemPtr->typePtr->indexProc != NULL) {
+		break;
+	    }
+	}
+	if (itemPtr == NULL) {
+	    Tcl_AppendResult(interp, "can't find an indexable item \"",
+		    argv[2], "\"", (char *) NULL);
+	    goto error;
+	}
+	if ((*itemPtr->typePtr->indexProc)(interp, (Tk_Canvas) canvasPtr,
+		itemPtr, argv[3], &index) != TCL_OK) {
+	    goto error;
+	}
+	sprintf(interp->result, "%d", index);
+    } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
+	    && (length >= 3)) {
+	int beforeThis;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " insert tagOrId beforeThis string\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if ((itemPtr->typePtr->indexProc == NULL)
+		    || (itemPtr->typePtr->insertProc == NULL)) {
+		continue;
+	    }
+	    if ((*itemPtr->typePtr->indexProc)(interp, (Tk_Canvas) canvasPtr,
+		    itemPtr, argv[3], &beforeThis) != TCL_OK) {
+		goto error;
+	    }
+
+	    /*
+	     * Redraw both item's old and new areas:  it's possible
+	     * that an insertion could result in a new area either
+	     * larger or smaller than the old area.
+	     */
+
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    (*itemPtr->typePtr->insertProc)((Tk_Canvas) canvasPtr,
+		    itemPtr, beforeThis, argv[4]);
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, itemPtr->x1,
+		    itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "itemcget", length) == 0)
+	    && (length >= 6)) {
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " itemcget tagOrId option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+	if (itemPtr != NULL) {
+	    result = Tk_ConfigureValue(canvasPtr->interp, canvasPtr->tkwin,
+		    itemPtr->typePtr->configSpecs, (char *) itemPtr,
+		    argv[3], 0);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "itemconfigure", length) == 0)
+	    && (length >= 6)) {
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " itemconfigure tagOrId ?option value ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    if (argc == 3) {
+		result = Tk_ConfigureInfo(canvasPtr->interp, canvasPtr->tkwin,
+			itemPtr->typePtr->configSpecs, (char *) itemPtr,
+			(char *) NULL, 0);
+	    } else if (argc == 4) {
+		result = Tk_ConfigureInfo(canvasPtr->interp, canvasPtr->tkwin,
+			itemPtr->typePtr->configSpecs, (char *) itemPtr,
+			argv[3], 0);
+	    } else {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+		result = (*itemPtr->typePtr->configProc)(interp,
+			(Tk_Canvas) canvasPtr, itemPtr, argc-3, argv+3,
+			TK_CONFIG_ARGV_ONLY);
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+		canvasPtr->flags |= REPICK_NEEDED;
+	    }
+	    if ((result != TCL_OK) || (argc < 5)) {
+		break;
+	    }
+	}
+    } else if ((c == 'l') && (strncmp(argv[1], "lower", length) == 0)) {
+	Tk_Item *prevPtr;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " lower tagOrId ?belowThis?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+
+	/*
+	 * First find the item just after which we'll insert the
+	 * named items.
+	 */
+
+	if (argc == 3) {
+	    prevPtr = NULL;
+	} else {
+	    prevPtr = StartTagSearch(canvasPtr, argv[3], &search);
+	    if (prevPtr != NULL) {
+		prevPtr = search.prevPtr;
+	    } else {
+		Tcl_AppendResult(interp, "tag \"", argv[3],
+			"\" doesn't match any items", (char *) NULL);
+		goto error;
+	    }
+	}
+	RelinkItems(canvasPtr, argv[2], prevPtr);
+    } else if ((c == 'm') && (strncmp(argv[1], "move", length) == 0)) {
+	double xAmount, yAmount;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " move tagOrId xAmount yAmount\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if ((Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[3],
+		&xAmount) != TCL_OK) || (Tk_CanvasGetCoord(interp,
+		(Tk_Canvas) canvasPtr, argv[4], &yAmount) != TCL_OK)) {
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    (void) (*itemPtr->typePtr->translateProc)((Tk_Canvas) canvasPtr,
+		    itemPtr,  xAmount, yAmount);
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    canvasPtr->flags |= REPICK_NEEDED;
+	}
+    } else if ((c == 'p') && (strncmp(argv[1], "postscript", length) == 0)) {
+	result = TkCanvPostscriptCmd(canvasPtr, interp, argc, argv);
+#ifdef STk_CODE
+	/* Return the content of interp->result as a string since newlines
+	 * and case are significant in PostScript.
+	 */
+	STk_stringify_result(interp, interp->result);
+#endif
+    } else if ((c == 'r') && (strncmp(argv[1], "raise", length) == 0)) {
+	Tk_Item *prevPtr;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " raise tagOrId ?aboveThis?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+
+	/*
+	 * First find the item just after which we'll insert the
+	 * named items.
+	 */
+
+	if (argc == 3) {
+	    prevPtr = canvasPtr->lastItemPtr;
+	} else {
+	    prevPtr = NULL;
+	    for (itemPtr = StartTagSearch(canvasPtr, argv[3], &search);
+		    itemPtr != NULL; itemPtr = NextItem(&search)) {
+		prevPtr = itemPtr;
+	    }
+	    if (prevPtr == NULL) {
+		Tcl_AppendResult(interp, "tagOrId \"", argv[3],
+			"\" doesn't match any items", (char *) NULL);
+		goto error;
+	    }
+	}
+	RelinkItems(canvasPtr, argv[2], prevPtr);
+    } else if ((c == 's') && (strncmp(argv[1], "scale", length) == 0)
+	    && (length >= 3)) {
+	double xOrigin, yOrigin, xScale, yScale;
+
+	if (argc != 7) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " scale tagOrId xOrigin yOrigin xScale yScale\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if ((Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr,
+		    argv[3], &xOrigin) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr,
+		    argv[4], &yOrigin) != TCL_OK)
+		|| (Tcl_GetDouble(interp, argv[5], &xScale) != TCL_OK)
+		|| (Tcl_GetDouble(interp, argv[6], &yScale) != TCL_OK)) {
+	    goto error;
+	}
+	if ((xScale == 0.0) || (yScale == 0.0)) {
+	    interp->result = "scale factor cannot be zero";
+	    goto error;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    (void) (*itemPtr->typePtr->scaleProc)((Tk_Canvas) canvasPtr,
+		    itemPtr, xOrigin, yOrigin, xScale, yScale);
+	    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		    itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+	    canvasPtr->flags |= REPICK_NEEDED;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "scan", length) == 0)
+	    && (length >= 3)) {
+	int x, y;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " scan mark|dragto x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &y) != TCL_OK)){
+	    goto error;
+	}
+	if ((argv[2][0] == 'm')
+		&& (strncmp(argv[2], "mark", strlen(argv[2])) == 0)) {
+	    canvasPtr->scanX = x;
+	    canvasPtr->scanXOrigin = canvasPtr->xOrigin;
+	    canvasPtr->scanY = y;
+	    canvasPtr->scanYOrigin = canvasPtr->yOrigin;
+	} else if ((argv[2][0] == 'd')
+		&& (strncmp(argv[2], "dragto", strlen(argv[2])) == 0)) {
+	    int newXOrigin, newYOrigin, tmp;
+
+	    /*
+	     * Compute a new view origin for the canvas, amplifying the
+	     * mouse motion.
+	     */
+
+	    tmp = canvasPtr->scanXOrigin - 10*(x - canvasPtr->scanX)
+		    - canvasPtr->scrollX1;
+	    newXOrigin = canvasPtr->scrollX1 + tmp;
+	    tmp = canvasPtr->scanYOrigin - 10*(y - canvasPtr->scanY)
+		    - canvasPtr->scrollY1;
+	    newYOrigin = canvasPtr->scrollY1 + tmp;
+	    CanvasSetOrigin(canvasPtr, newXOrigin, newYOrigin);
+	} else {
+	    Tcl_AppendResult(interp, "bad scan option \"", argv[2],
+		    "\": must be mark or dragto", (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "select", length) == 0)
+	    && (length >= 2)) {
+	int index;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " select option ?tagOrId? ?arg?\"", (char *) NULL);
+	    goto error;
+	}
+	if (argc >= 4) {
+	    for (itemPtr = StartTagSearch(canvasPtr, argv[3], &search);
+		    itemPtr != NULL; itemPtr = NextItem(&search)) {
+		if ((itemPtr->typePtr->indexProc != NULL)
+			&& (itemPtr->typePtr->selectionProc != NULL)){
+		    break;
+		}
+	    }
+	    if (itemPtr == NULL) {
+		Tcl_AppendResult(interp,
+			"can't find an indexable and selectable item \"",
+			argv[3], "\"", (char *) NULL);
+		goto error;
+	    }
+	}
+	if (argc == 5) {
+	    if ((*itemPtr->typePtr->indexProc)(interp, (Tk_Canvas) canvasPtr,
+		    itemPtr, argv[4], &index) != TCL_OK) {
+		goto error;
+	    }
+	}
+	length = strlen(argv[2]);
+	c = argv[2][0];
+	if ((c == 'a') && (strncmp(argv[2], "adjust", length) == 0)) {
+	    if (argc != 5) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " select adjust tagOrId index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    if (canvasPtr->textInfo.selItemPtr == itemPtr) {
+		if (index < (canvasPtr->textInfo.selectFirst
+			+ canvasPtr->textInfo.selectLast)/2) {
+		    canvasPtr->textInfo.selectAnchor =
+			    canvasPtr->textInfo.selectLast + 1;
+		} else {
+		    canvasPtr->textInfo.selectAnchor =
+			    canvasPtr->textInfo.selectFirst;
+		}
+	    }
+	    CanvasSelectTo(canvasPtr, itemPtr, index);
+	} else if ((c == 'c') && (argv[2] != NULL)
+		&& (strncmp(argv[2], "clear", length) == 0)) {
+	    if (argc != 3) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " select clear\"", (char *) NULL);
+		goto error;
+	    }
+	    if (canvasPtr->textInfo.selItemPtr != NULL) {
+		Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+			canvasPtr->textInfo.selItemPtr->x1,
+			canvasPtr->textInfo.selItemPtr->y1,
+			canvasPtr->textInfo.selItemPtr->x2,
+			canvasPtr->textInfo.selItemPtr->y2);
+		canvasPtr->textInfo.selItemPtr = NULL;
+	    }
+	    goto done;
+	} else if ((c == 'f') && (strncmp(argv[2], "from", length) == 0)) {
+	    if (argc != 5) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " select from tagOrId index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    canvasPtr->textInfo.anchorItemPtr = itemPtr;
+	    canvasPtr->textInfo.selectAnchor = index;
+	} else if ((c == 'i') && (strncmp(argv[2], "item", length) == 0)) {
+	    if (argc != 3) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " select item\"", (char *) NULL);
+		goto error;
+	    }
+	    if (canvasPtr->textInfo.selItemPtr != NULL) {
+		sprintf(interp->result, "%d",
+			canvasPtr->textInfo.selItemPtr->id);
+	    }
+	} else if ((c == 't') && (strncmp(argv[2], "to", length) == 0)) {
+	    if (argc != 5) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " select to tagOrId index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    CanvasSelectTo(canvasPtr, itemPtr, index);
+	} else {
+	    Tcl_AppendResult(interp, "bad select option \"", argv[2],
+		    "\": must be adjust, clear, from, item, or to",
+		    (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "type", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " type tag\"", (char *) NULL);
+	    goto error;
+	}
+	itemPtr = StartTagSearch(canvasPtr, argv[2], &search);
+	if (itemPtr != NULL) {
+	    interp->result = itemPtr->typePtr->name;
+	}
+    } else if ((c == 'x') && (strncmp(argv[1], "xview", length) == 0)) {
+	int count, type;
+	int newX = 0;		/* Initialization needed only to prevent
+				 * gcc warnings. */
+	double fraction;
+
+	if (argc == 2) {
+	    PrintScrollFractions(canvasPtr->xOrigin + canvasPtr->inset,
+		    canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin)
+		    - canvasPtr->inset, canvasPtr->scrollX1,
+		    canvasPtr->scrollX2, interp->result);
+	} else {
+	    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+	    switch (type) {
+		case TK_SCROLL_ERROR:
+		    goto error;
+		case TK_SCROLL_MOVETO:
+		    newX = canvasPtr->scrollX1 - canvasPtr->inset
+			    + (int) (fraction * (canvasPtr->scrollX2
+			    - canvasPtr->scrollX1) + 0.5);
+		    break;
+		case TK_SCROLL_PAGES:
+		    newX = canvasPtr->xOrigin + count * .9
+			    * (Tk_Width(canvasPtr->tkwin) - 2*canvasPtr->inset);
+		    break;
+		case TK_SCROLL_UNITS:
+		    if (canvasPtr->xScrollIncrement > 0) {
+			newX = canvasPtr->xOrigin
+				+ count*canvasPtr->xScrollIncrement;
+		    } else {
+			newX = canvasPtr->xOrigin + count * .1
+				* (Tk_Width(canvasPtr->tkwin)
+				- 2*canvasPtr->inset);
+		    }
+		    break;
+	    }
+	    CanvasSetOrigin(canvasPtr, newX, canvasPtr->yOrigin);
+	}
+    } else if ((c == 'y') && (strncmp(argv[1], "yview", length) == 0)) {
+	int count, type;
+	int newY = 0;		/* Initialization needed only to prevent
+				 * gcc warnings. */
+	double fraction;
+
+	if (argc == 2) {
+	    PrintScrollFractions(canvasPtr->yOrigin + canvasPtr->inset,
+		    canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin)
+		    - canvasPtr->inset, canvasPtr->scrollY1,
+		    canvasPtr->scrollY2, interp->result);
+	} else {
+	    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+	    switch (type) {
+		case TK_SCROLL_ERROR:
+		    goto error;
+		case TK_SCROLL_MOVETO:
+		    newY = canvasPtr->scrollY1 - canvasPtr->inset
+			    + (int) (fraction*(canvasPtr->scrollY2
+			    - canvasPtr->scrollY1) + 0.5);
+		    break;
+		case TK_SCROLL_PAGES:
+		    newY = canvasPtr->yOrigin + count * .9
+			    * (Tk_Height(canvasPtr->tkwin)
+			    - 2*canvasPtr->inset);
+		    break;
+		case TK_SCROLL_UNITS:
+		    if (canvasPtr->yScrollIncrement > 0) {
+			newY = canvasPtr->yOrigin
+				+ count*canvasPtr->yScrollIncrement;
+		    } else {
+			newY = canvasPtr->yOrigin + count * .1
+				* (Tk_Height(canvasPtr->tkwin)
+				- 2*canvasPtr->inset);
+		    }
+		    break;
+	    }
+	    CanvasSetOrigin(canvasPtr, canvasPtr->xOrigin, newY);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be addtag, bbox, bind, ",
+		"canvasx, canvasy, cget, configure, coords, create, ",
+		"dchars, delete, dtag, find, focus, ",
+		"gettags, icursor, index, insert, itemcget, itemconfigure, ",
+		"lower, move, postscript, raise, scale, scan, ",
+		"select, type, xview, or yview",
+		(char *) NULL);  
+	goto error;
+    }
+    done:
+    Tcl_Release((ClientData) canvasPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) canvasPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyCanvas --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a canvas at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the canvas is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyCanvas(memPtr)
+    char *memPtr;		/* Info about canvas widget. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) memPtr;
+    Tk_Item *itemPtr;
+
+    /*
+     * Free up all of the items in the canvas.
+     */
+
+    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    itemPtr = canvasPtr->firstItemPtr) {
+	canvasPtr->firstItemPtr = itemPtr->nextPtr;
+	(*itemPtr->typePtr->deleteProc)((Tk_Canvas) canvasPtr, itemPtr,
+		canvasPtr->display);
+	if (itemPtr->tagPtr != itemPtr->staticTagSpace) {
+	    ckfree((char *) itemPtr->tagPtr);
+	}
+	ckfree((char *) itemPtr);
+    }
+
+    /*
+     * Free up all the stuff that requires special handling,
+     * then let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (canvasPtr->pixmapGC != None) {
+	Tk_FreeGC(canvasPtr->display, canvasPtr->pixmapGC);
+    }
+    Tcl_DeleteTimerHandler(canvasPtr->insertBlinkHandler);
+    if (canvasPtr->bindingTable != NULL) {
+	Tk_DeleteBindingTable(canvasPtr->bindingTable);
+    }
+    Tk_FreeOptions(configSpecs, (char *) canvasPtr, canvasPtr->display, 0);
+    ckfree((char *) canvasPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureCanvas --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a canvas widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for canvasPtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureCanvas(interp, canvasPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    TkCanvas *canvasPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC new;
+
+    if (Tk_ConfigureWidget(interp, canvasPtr->tkwin, configSpecs,
+	    argc, argv, (char *) canvasPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as setting the
+     * background from a 3-D border and creating a GC for copying
+     * bits to the screen.
+     */
+
+    Tk_SetBackgroundFromBorder(canvasPtr->tkwin, canvasPtr->bgBorder);
+
+    if (canvasPtr->highlightWidth < 0) {
+	canvasPtr->highlightWidth = 0;
+    }
+    canvasPtr->inset = canvasPtr->borderWidth + canvasPtr->highlightWidth;
+
+    gcValues.function = GXcopy;
+    gcValues.foreground = Tk_3DBorderColor(canvasPtr->bgBorder)->pixel;
+    gcValues.graphics_exposures = False;
+    new = Tk_GetGC(canvasPtr->tkwin,
+	    GCFunction|GCForeground|GCGraphicsExposures, &gcValues);
+    if (canvasPtr->pixmapGC != None) {
+	Tk_FreeGC(canvasPtr->display, canvasPtr->pixmapGC);
+    }
+    canvasPtr->pixmapGC = new;
+
+    /*
+     * Reset the desired dimensions for the window.
+     */
+
+    Tk_GeometryRequest(canvasPtr->tkwin, canvasPtr->width + 2*canvasPtr->inset,
+	    canvasPtr->height + 2*canvasPtr->inset);
+
+    /*
+     * Restart the cursor timing sequence in case the on-time or off-time
+     * just changed.
+     */
+
+    if (canvasPtr->textInfo.gotFocus) {
+	CanvasFocusProc(canvasPtr, 1);
+    }
+
+    /*
+     * Recompute the scroll region.
+     */
+
+    canvasPtr->scrollX1 = 0;
+    canvasPtr->scrollY1 = 0;
+    canvasPtr->scrollX2 = 0;
+    canvasPtr->scrollY2 = 0;
+    if (canvasPtr->regionString != NULL) {
+	int argc2;
+	char **argv2;
+
+	if (Tcl_SplitList(canvasPtr->interp, canvasPtr->regionString,
+		&argc2, &argv2) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (argc2 != 4) {
+	    Tcl_AppendResult(interp, "bad scrollRegion \"",
+		    canvasPtr->regionString, "\"", (char *) NULL);
+	    badRegion:
+	    ckfree(canvasPtr->regionString);
+	    ckfree((char *) argv2);
+	    canvasPtr->regionString = NULL;
+	    return TCL_ERROR;
+	}
+	if ((Tk_GetPixels(canvasPtr->interp, canvasPtr->tkwin,
+		    argv2[0], &canvasPtr->scrollX1) != TCL_OK)
+		|| (Tk_GetPixels(canvasPtr->interp, canvasPtr->tkwin,
+		    argv2[1], &canvasPtr->scrollY1) != TCL_OK)
+		|| (Tk_GetPixels(canvasPtr->interp, canvasPtr->tkwin,
+		    argv2[2], &canvasPtr->scrollX2) != TCL_OK)
+		|| (Tk_GetPixels(canvasPtr->interp, canvasPtr->tkwin,
+		    argv2[3], &canvasPtr->scrollY2) != TCL_OK)) {
+	    goto badRegion;
+	}
+	ckfree((char *) argv2);
+    }
+
+    /*
+     * Reset the canvas's origin (this is a no-op unless confine
+     * mode has just been turned on or the scroll region has changed).
+     */
+
+    CanvasSetOrigin(canvasPtr, canvasPtr->xOrigin, canvasPtr->yOrigin);
+    canvasPtr->flags |= UPDATE_SCROLLBARS|REDRAW_BORDERS;
+    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+	    canvasPtr->xOrigin, canvasPtr->yOrigin,
+	    canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin),
+	    canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin));
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayCanvas --
+ *
+ *	This procedure redraws the contents of a canvas window.
+ *	It is invoked as a do-when-idle handler, so it only runs
+ *	when there's nothing else for the application to do.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayCanvas(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+    Tk_Window tkwin = canvasPtr->tkwin;
+    Tk_Item *itemPtr;
+    Pixmap pixmap;
+    int screenX1, screenX2, screenY1, screenY2, width, height;
+
+    if (canvasPtr->tkwin == NULL) {
+	return;
+    }
+    if (!Tk_IsMapped(tkwin)) {
+	goto done;
+    }
+
+    /*
+     * Choose a new current item if that is needed (this could cause
+     * event handlers to be invoked).
+     */
+
+    while (canvasPtr->flags & REPICK_NEEDED) {
+	Tcl_Preserve((ClientData) canvasPtr);
+	canvasPtr->flags &= ~REPICK_NEEDED;
+	PickCurrentItem(canvasPtr, &canvasPtr->pickEvent);
+	tkwin = canvasPtr->tkwin;
+	Tcl_Release((ClientData) canvasPtr);
+	if (tkwin == NULL) {
+	    return;
+	}
+    }
+
+    /*
+     * Compute the intersection between the area that needs redrawing
+     * and the area that's visible on the screen.
+     */
+
+    if ((canvasPtr->redrawX1 < canvasPtr->redrawX2)
+	    && (canvasPtr->redrawY1 < canvasPtr->redrawY2)) {
+	screenX1 = canvasPtr->xOrigin + canvasPtr->inset;
+	screenY1 = canvasPtr->yOrigin + canvasPtr->inset;
+	screenX2 = canvasPtr->xOrigin + Tk_Width(tkwin) - canvasPtr->inset;
+	screenY2 = canvasPtr->yOrigin + Tk_Height(tkwin) - canvasPtr->inset;
+	if (canvasPtr->redrawX1 > screenX1) {
+	    screenX1 = canvasPtr->redrawX1;
+	}
+	if (canvasPtr->redrawY1 > screenY1) {
+	    screenY1 = canvasPtr->redrawY1;
+	}
+	if (canvasPtr->redrawX2 < screenX2) {
+	    screenX2 = canvasPtr->redrawX2;
+	}
+	if (canvasPtr->redrawY2 < screenY2) {
+	    screenY2 = canvasPtr->redrawY2;
+	}
+	if ((screenX1 >= screenX2) || (screenY1 >= screenY2)) {
+	    goto borders;
+	}
+    
+	/*
+	 * Redrawing is done in a temporary pixmap that is allocated
+	 * here and freed at the end of the procedure.  All drawing
+	 * is done to the pixmap, and the pixmap is copied to the
+	 * screen at the end of the procedure. The temporary pixmap
+	 * serves two purposes:
+	 *
+	 * 1. It provides a smoother visual effect (no clearing and
+	 *    gradual redraw will be visible to users).
+	 * 2. It allows us to redraw only the objects that overlap
+	 *    the redraw area.  Otherwise incorrect results could
+	 *	  occur from redrawing things that stick outside of
+	 *	  the redraw area (we'd have to redraw everything in
+	 *    order to make the overlaps look right).
+	 *
+	 * Some tricky points about the pixmap:
+	 *
+	 * 1. We only allocate a large enough pixmap to hold the
+	 *    area that has to be redisplayed.  This saves time in
+	 *    in the X server for large objects that cover much
+	 *    more than the area being redisplayed:  only the area
+	 *    of the pixmap will actually have to be redrawn.
+	 * 2. Some X servers (e.g. the one for DECstations) have troubles
+	 *    with characters that overlap an edge of the pixmap (on the
+	 *    DEC servers, as of 8/18/92, such characters are drawn one
+	 *    pixel too far to the right).  To handle this problem,
+	 *    make the pixmap a bit larger than is absolutely needed
+	 *    so that for normal-sized fonts the characters that overlap
+	 *    the edge of the pixmap will be outside the area we care
+	 *    about.
+	 */
+    
+	canvasPtr->drawableXOrigin = screenX1 - 30;
+	canvasPtr->drawableYOrigin = screenY1 - 30;
+	pixmap = Tk_GetPixmap(Tk_Display(tkwin), Tk_WindowId(tkwin),
+	    (screenX2 + 30 - canvasPtr->drawableXOrigin),
+	    (screenY2 + 30 - canvasPtr->drawableYOrigin),
+	    Tk_Depth(tkwin));
+    
+	/*
+	 * Clear the area to be redrawn.
+	 */
+    
+	width = screenX2 - screenX1;
+	height = screenY2 - screenY1;
+    
+	XFillRectangle(Tk_Display(tkwin), pixmap, canvasPtr->pixmapGC,
+		screenX1 - canvasPtr->drawableXOrigin,
+		screenY1 - canvasPtr->drawableYOrigin, (unsigned int) width,
+		(unsigned int) height);
+    
+	/*
+	 * Scan through the item list, redrawing those items that need it.
+	 * An item must be redraw if either (a) it intersects the smaller
+	 * on-screen area or (b) it intersects the full canvas area and its
+	 * type requests that it be redrawn always (e.g. so subwindows can
+	 * be unmapped when they move off-screen).
+	 */
+    
+	for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+		itemPtr = itemPtr->nextPtr) {
+	    if ((itemPtr->x1 >= screenX2)
+		    || (itemPtr->y1 >= screenY2)
+		    || (itemPtr->x2 < screenX1)
+		    || (itemPtr->y2 < screenY1)) {
+		if (!itemPtr->typePtr->alwaysRedraw
+			|| (itemPtr->x1 >= canvasPtr->redrawX2)
+			|| (itemPtr->y1 >= canvasPtr->redrawY2)
+			|| (itemPtr->x2 < canvasPtr->redrawX1)
+			|| (itemPtr->y2 < canvasPtr->redrawY1)) {
+		    continue;
+		}
+	    }
+	    (*itemPtr->typePtr->displayProc)((Tk_Canvas) canvasPtr, itemPtr,
+		    canvasPtr->display, pixmap, screenX1, screenY1, width,
+		    height);
+	}
+    
+	/*
+	 * Copy from the temporary pixmap to the screen, then free up
+	 * the temporary pixmap.
+	 */
+    
+	XCopyArea(Tk_Display(tkwin), pixmap, Tk_WindowId(tkwin),
+		canvasPtr->pixmapGC,
+		screenX1 - canvasPtr->drawableXOrigin,
+		screenY1 - canvasPtr->drawableYOrigin,
+		(unsigned) (screenX2 - screenX1),
+		(unsigned) (screenY2 - screenY1),
+		screenX1 - canvasPtr->xOrigin, screenY1 - canvasPtr->yOrigin);
+	Tk_FreePixmap(Tk_Display(tkwin), pixmap);
+    }
+
+    /*
+     * Draw the window borders, if needed.
+     */
+
+    borders:
+    if (canvasPtr->flags & REDRAW_BORDERS) {
+	canvasPtr->flags &= ~REDRAW_BORDERS;
+	if (canvasPtr->borderWidth > 0) {
+	    Tk_Draw3DRectangle(tkwin, Tk_WindowId(tkwin),
+		    canvasPtr->bgBorder, canvasPtr->highlightWidth,
+		    canvasPtr->highlightWidth,
+		    Tk_Width(tkwin) - 2*canvasPtr->highlightWidth,
+		    Tk_Height(tkwin) - 2*canvasPtr->highlightWidth,
+		    canvasPtr->borderWidth, canvasPtr->relief);
+	}
+	if (canvasPtr->highlightWidth != 0) {
+	    GC gc;
+    
+	    if (canvasPtr->textInfo.gotFocus) {
+		gc = Tk_GCForColor(canvasPtr->highlightColorPtr,
+			Tk_WindowId(tkwin));
+	    } else {
+		gc = Tk_GCForColor(canvasPtr->highlightBgColorPtr,
+			Tk_WindowId(tkwin));
+	    }
+	    Tk_DrawFocusHighlight(tkwin, gc, canvasPtr->highlightWidth,
+		    Tk_WindowId(tkwin));
+	}
+    }
+
+    done:
+    canvasPtr->flags &= ~REDRAW_PENDING;
+    canvasPtr->redrawX1 = canvasPtr->redrawX2 = 0;
+    canvasPtr->redrawY1 = canvasPtr->redrawY2 = 0;
+    if (canvasPtr->flags & UPDATE_SCROLLBARS) {
+	CanvasUpdateScrollbars(canvasPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on canvases.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CanvasEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+
+    if (eventPtr->type == Expose) {
+	int x, y;
+
+	x = eventPtr->xexpose.x + canvasPtr->xOrigin;
+	y = eventPtr->xexpose.y + canvasPtr->yOrigin;
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, x, y,
+		x + eventPtr->xexpose.width,
+		y + eventPtr->xexpose.height);
+	if ((eventPtr->xexpose.x < canvasPtr->inset)
+		|| (eventPtr->xexpose.y < canvasPtr->inset)
+		|| ((eventPtr->xexpose.x + eventPtr->xexpose.width)
+		    > (Tk_Width(canvasPtr->tkwin) - canvasPtr->inset))
+		|| ((eventPtr->xexpose.y + eventPtr->xexpose.height)
+		    > (Tk_Height(canvasPtr->tkwin) - canvasPtr->inset))) {
+	    canvasPtr->flags |= REDRAW_BORDERS;
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	if (canvasPtr->tkwin != NULL) {
+	    canvasPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(canvasPtr->interp,
+		    Tcl_GetCommandName(canvasPtr->interp,
+		    canvasPtr->widgetCmd));
+	}
+	if (canvasPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayCanvas, (ClientData) canvasPtr);
+	}
+	Tcl_EventuallyFree((ClientData) canvasPtr, DestroyCanvas);
+    } else if (eventPtr->type == ConfigureNotify) {
+	canvasPtr->flags |= UPDATE_SCROLLBARS;
+
+	/*
+	 * The call below is needed in order to recenter the canvas if
+	 * it's confined and its scroll region is smaller than the window.
+	 */
+
+	CanvasSetOrigin(canvasPtr, canvasPtr->xOrigin, canvasPtr->yOrigin);
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, canvasPtr->xOrigin,
+		canvasPtr->yOrigin,
+		canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin),
+		canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin));
+	canvasPtr->flags |= REDRAW_BORDERS;
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    CanvasFocusProc(canvasPtr, 1);
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    CanvasFocusProc(canvasPtr, 0);
+	}
+    } else if (eventPtr->type == UnmapNotify) {
+	Tk_Item *itemPtr;
+
+	/*
+	 * Special hack:  if the canvas is unmapped, then must notify
+	 * all items with "alwaysRedraw" set, so that they know that
+	 * they are no longer displayed.
+	 */
+
+	for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+		itemPtr = itemPtr->nextPtr) {
+	    if (itemPtr->typePtr->alwaysRedraw) {
+		(*itemPtr->typePtr->displayProc)((Tk_Canvas) canvasPtr,
+			itemPtr, canvasPtr->display, None, 0, 0, 0, 0);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CanvasCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+    Tk_Window tkwin = canvasPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	canvasPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CanvasEventuallyRedraw --
+ *
+ *	Arrange for part or all of a canvas widget to redrawn at
+ *	some convenient time in the future.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The screen will eventually be refreshed.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CanvasEventuallyRedraw(canvas, x1, y1, x2, y2)
+    Tk_Canvas canvas;		/* Information about widget. */
+    int x1, y1;			/* Upper left corner of area to redraw.
+				 * Pixels on edge are redrawn. */
+    int x2, y2;			/* Lower right corner of area to redraw.
+				 * Pixels on edge are not redrawn. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) canvas;
+    if ((x1 == x2) || (y1 == y2)) {
+	return;
+    }
+    if (canvasPtr->flags & REDRAW_PENDING) {
+	if (x1 <= canvasPtr->redrawX1) {
+	    canvasPtr->redrawX1 = x1;
+	}
+	if (y1 <= canvasPtr->redrawY1) {
+	    canvasPtr->redrawY1 = y1;
+	}
+	if (x2 >= canvasPtr->redrawX2) {
+	    canvasPtr->redrawX2 = x2;
+	}
+	if (y2 >= canvasPtr->redrawY2) {
+	    canvasPtr->redrawY2 = y2;
+	}
+    } else {
+	canvasPtr->redrawX1 = x1;
+	canvasPtr->redrawY1 = y1;
+	canvasPtr->redrawX2 = x2;
+	canvasPtr->redrawY2 = y2;
+	Tcl_DoWhenIdle(DisplayCanvas, (ClientData) canvasPtr);
+	canvasPtr->flags |= REDRAW_PENDING;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateItemType --
+ *
+ *	This procedure may be invoked to add a new kind of canvas
+ *	element to the core item types supported by Tk.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, the new item type will be useable in canvas
+ *	widgets (e.g. typePtr->name can be used as the item type
+ *	in "create" widget commands).  If there was already a
+ *	type with the same name as in typePtr, it is replaced with
+ *	the new type.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CreateItemType(typePtr)
+    Tk_ItemType *typePtr;		/* Information about item type;
+					 * storage must be statically
+					 * allocated (must live forever). */
+{
+    Tk_ItemType *typePtr2, *prevPtr;
+
+    if (typeList == NULL) {
+	InitCanvas();
+    }
+
+    /*
+     * If there's already an item type with the given name, remove it.
+     */
+
+    for (typePtr2 = typeList, prevPtr = NULL; typePtr2 != NULL;
+	    prevPtr = typePtr2, typePtr2 = typePtr2->nextPtr) {
+	if (strcmp(typePtr2->name, typePtr->name) == 0) {
+	    if (prevPtr == NULL) {
+		typeList = typePtr2->nextPtr;
+	    } else {
+		prevPtr->nextPtr = typePtr2->nextPtr;
+	    }
+	    break;
+	}
+    }
+    typePtr->nextPtr = typeList;
+    typeList = typePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetItemTypes --
+ *
+ *	This procedure returns a pointer to the list of all item
+ *	types.
+ *
+ * Results:
+ *	The return value is a pointer to the first in the list
+ *	of item types currently supported by canvases.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_ItemType *
+Tk_GetItemTypes()
+{
+    if (typeList == NULL) {
+	InitCanvas();
+    }
+    return typeList;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * InitCanvas --
+ *
+ *	This procedure is invoked to perform once-only-ever
+ *	initialization for the module, such as setting up
+ *	the type table.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+InitCanvas()
+{
+    if (typeList != NULL) {
+	return;
+    }
+    typeList = &tkRectangleType;
+    tkRectangleType.nextPtr = &tkTextType;
+    tkTextType.nextPtr = &tkLineType;
+    tkLineType.nextPtr = &tkPolygonType;
+    tkPolygonType.nextPtr = &tkImageType;
+    tkImageType.nextPtr = &tkOvalType;
+    tkOvalType.nextPtr = &tkBitmapType;
+    tkBitmapType.nextPtr = &tkArcType;
+    tkArcType.nextPtr = &tkWindowType;
+    tkWindowType.nextPtr = NULL;
+    allUid = Tk_GetUid("all");
+    currentUid = Tk_GetUid("current");
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * StartTagSearch --
+ *
+ *	This procedure is called to initiate an enumeration of
+ *	all items in a given canvas that contain a given tag.
+ *
+ * Results:
+ *	The return value is a pointer to the first item in
+ *	canvasPtr that matches tag, or NULL if there is no
+ *	such item.  The information at *searchPtr is initialized
+ *	such that successive calls to NextItem will return
+ *	successive items that match tag.
+ *
+ * Side effects:
+ *	SearchPtr is linked into a list of searches in progress
+ *	on canvasPtr, so that elements can safely be deleted
+ *	while the search is in progress.  EndTagSearch must be
+ *	called at the end of the search to unlink searchPtr from
+ *	this list.
+ *
+ *--------------------------------------------------------------
+ */
+
+static Tk_Item *
+StartTagSearch(canvasPtr, tag, searchPtr)
+    TkCanvas *canvasPtr;		/* Canvas whose items are to be
+					 * searched. */
+    char *tag;				/* String giving tag value. */
+    TagSearch *searchPtr;		/* Record describing tag search;
+					 * will be initialized here. */
+{
+    int id;
+    Tk_Item *itemPtr, *prevPtr;
+    Tk_Uid *tagPtr;
+    Tk_Uid uid;
+    int count;
+
+    /*
+     * Initialize the search.
+     */
+
+    searchPtr->canvasPtr = canvasPtr;
+    searchPtr->searchOver = 0;
+
+    /*
+     * Find the first matching item in one of several ways. If the tag
+     * is a number then it selects the single item with the matching
+     * identifier.  In this case see if the item being requested is the
+     * hot item, in which case the search can be skipped.
+     */
+
+    if (isdigit(UCHAR(*tag))) {
+	char *end;
+
+	numIdSearches++;
+	id = strtoul(tag, &end, 0);
+	if (*end == 0) {
+	    itemPtr = canvasPtr->hotPtr;
+	    prevPtr = canvasPtr->hotPrevPtr;
+	    if ((itemPtr == NULL) || (itemPtr->id != id) || (prevPtr == NULL)
+		    || (prevPtr->nextPtr != itemPtr)) {
+		numSlowSearches++;
+		for (prevPtr = NULL, itemPtr = canvasPtr->firstItemPtr;
+			itemPtr != NULL;
+			prevPtr = itemPtr, itemPtr = itemPtr->nextPtr) {
+		    if (itemPtr->id == id) {
+			break;
+		    }
+		}
+	    }
+	    searchPtr->prevPtr = prevPtr;
+	    searchPtr->searchOver = 1;
+	    canvasPtr->hotPtr = itemPtr;
+	    canvasPtr->hotPrevPtr = prevPtr;
+	    return itemPtr;
+	}
+    }
+
+    searchPtr->tag = uid = Tk_GetUid(tag);
+    if (uid == allUid) {
+
+	/*
+	 * All items match.
+	 */
+
+	searchPtr->tag = NULL;
+	searchPtr->prevPtr = NULL;
+	searchPtr->currentPtr = canvasPtr->firstItemPtr;
+	return canvasPtr->firstItemPtr;
+    }
+
+    /*
+     * None of the above.  Search for an item with a matching tag.
+     */
+
+    for (prevPtr = NULL, itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    prevPtr = itemPtr, itemPtr = itemPtr->nextPtr) {
+	for (tagPtr = itemPtr->tagPtr, count = itemPtr->numTags;
+		count > 0; tagPtr++, count--) {
+	    if (*tagPtr == uid) {
+		searchPtr->prevPtr = prevPtr;
+		searchPtr->currentPtr = itemPtr;
+		return itemPtr;
+	    }
+	}
+    }
+    searchPtr->prevPtr = prevPtr;
+    searchPtr->searchOver = 1;
+    return NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * NextItem --
+ *
+ *	This procedure returns successive items that match a given
+ *	tag;  it should be called only after StartTagSearch has been
+ *	used to begin a search.
+ *
+ * Results:
+ *	The return value is a pointer to the next item that matches
+ *	the tag specified to StartTagSearch, or NULL if no such
+ *	item exists.  *SearchPtr is updated so that the next call
+ *	to this procedure will return the next item.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static Tk_Item *
+NextItem(searchPtr)
+    TagSearch *searchPtr;		/* Record describing search in
+					 * progress. */
+{
+    Tk_Item *itemPtr, *prevPtr;
+    int count;
+    Tk_Uid uid;
+    Tk_Uid *tagPtr;
+
+    /*
+     * Find next item in list (this may not actually be a suitable
+     * one to return), and return if there are no items left.
+     */
+
+    prevPtr = searchPtr->prevPtr;
+    if (prevPtr == NULL) {
+	itemPtr = searchPtr->canvasPtr->firstItemPtr;
+    } else {
+	itemPtr = prevPtr->nextPtr;
+    }
+    if ((itemPtr == NULL) || (searchPtr->searchOver)) {
+	searchPtr->searchOver = 1;
+	return NULL;
+    }
+    if (itemPtr != searchPtr->currentPtr) {
+	/*
+	 * The structure of the list has changed.  Probably the
+	 * previously-returned item was removed from the list.
+	 * In this case, don't advance prevPtr;  just return
+	 * its new successor (i.e. do nothing here).
+	 */
+    } else {
+	prevPtr = itemPtr;
+	itemPtr = prevPtr->nextPtr;
+    }
+
+    /*
+     * Handle special case of "all" search by returning next item.
+     */
+
+    uid = searchPtr->tag;
+    if (uid == NULL) {
+	searchPtr->prevPtr = prevPtr;
+	searchPtr->currentPtr = itemPtr;
+	return itemPtr;
+    }
+
+    /*
+     * Look for an item with a particular tag.
+     */
+
+    for ( ; itemPtr != NULL; prevPtr = itemPtr, itemPtr = itemPtr->nextPtr) {
+	for (tagPtr = itemPtr->tagPtr, count = itemPtr->numTags;
+		count > 0; tagPtr++, count--) {
+	    if (*tagPtr == uid) {
+		searchPtr->prevPtr = prevPtr;
+		searchPtr->currentPtr = itemPtr;
+		return itemPtr;
+	    }
+	}
+    }
+    searchPtr->prevPtr = prevPtr;
+    searchPtr->searchOver = 1;
+    return NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DoItem --
+ *
+ *	This is a utility procedure called by FindItems.  It
+ *	either adds itemPtr's id to the result forming in interp,
+ *	or it adds a new tag to itemPtr, depending on the value
+ *	of tag.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If tag is NULL then itemPtr's id is added as a list element
+ *	to interp->result;  otherwise tag is added to itemPtr's
+ *	list of tags.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DoItem(interp, itemPtr, tag)
+    Tcl_Interp *interp;			/* Interpreter in which to (possibly)
+					 * record item id. */
+    Tk_Item *itemPtr;			/* Item to (possibly) modify. */
+    Tk_Uid tag;				/* Tag to add to those already
+					 * present for item, or NULL. */
+{
+    Tk_Uid *tagPtr;
+    int count;
+
+    /*
+     * Handle the "add-to-result" case and return, if appropriate.
+     */
+
+    if (tag == NULL) {
+	char msg[30];
+	sprintf(msg, "%d", itemPtr->id);
+	Tcl_AppendElement(interp, msg);
+	return;
+    }
+
+    for (tagPtr = itemPtr->tagPtr, count = itemPtr->numTags;
+	    count > 0; tagPtr++, count--) {
+	if (tag == *tagPtr) {
+	    return;
+	}
+    }
+
+    /*
+     * Grow the tag space if there's no more room left in the current
+     * block.
+     */
+
+    if (itemPtr->tagSpace == itemPtr->numTags) {
+	Tk_Uid *newTagPtr;
+
+	itemPtr->tagSpace += 5;
+	newTagPtr = (Tk_Uid *) ckalloc((unsigned)
+		(itemPtr->tagSpace * sizeof(Tk_Uid)));
+	memcpy((VOID *) newTagPtr, (VOID *) itemPtr->tagPtr,
+		(itemPtr->numTags * sizeof(Tk_Uid)));
+	if (itemPtr->tagPtr != itemPtr->staticTagSpace) {
+	    ckfree((char *) itemPtr->tagPtr);
+	}
+	itemPtr->tagPtr = newTagPtr;
+	tagPtr = &itemPtr->tagPtr[itemPtr->numTags];
+    }
+
+    /*
+     * Add in the new tag.
+     */
+
+    *tagPtr = tag;
+    itemPtr->numTags++;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FindItems --
+ *
+ *	This procedure does all the work of implementing the
+ *	"find" and "addtag" options of the canvas widget command,
+ *	which locate items that have certain features (location,
+ *	tags, position in display list, etc.).
+ *
+ * Results:
+ *	A standard Tcl return value.  If newTag is NULL, then a
+ *	list of ids from all the items that match argc/argv is
+ *	returned in interp->result.  If newTag is NULL, then
+ *	the normal interp->result is an empty string.  If an error
+ *	occurs, then interp->result will hold an error message.
+ *
+ * Side effects:
+ *	If newTag is non-NULL, then all the items that match the
+ *	information in argc/argv have that tag added to their
+ *	lists of tags.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+FindItems(interp, canvasPtr, argc, argv, newTag, cmdName, option)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    TkCanvas *canvasPtr;		/* Canvas whose items are to be
+					 * searched. */
+    int argc;				/* Number of entries in argv.  Must be
+					 * greater than zero. */
+    char **argv;			/* Arguments that describe what items
+					 * to search for (see user doc on
+					 * "find" and "addtag" options). */
+    char *newTag;			/* If non-NULL, gives new tag to set
+					 * on all found items;  if NULL, then
+					 * ids of found items are returned
+					 * in interp->result. */
+    char *cmdName;			/* Name of original Tcl command, for
+					 * use in error messages. */
+    char *option;			/* For error messages:  gives option
+					 * from Tcl command and other stuff
+					 * up to what's in argc/argv. */
+{
+    int c;
+    size_t length;
+    TagSearch search;
+    Tk_Item *itemPtr;
+    Tk_Uid uid;
+
+    if (newTag != NULL) {
+	uid = Tk_GetUid(newTag);
+    } else {
+	uid = NULL;
+    }
+    c = argv[0][0];
+    length = strlen(argv[0]);
+    if ((c == 'a') && (strncmp(argv[0], "above", length) == 0)
+	    && (length >= 2)) {
+	Tk_Item *lastPtr = NULL;
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " above tagOrId", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	for (itemPtr = StartTagSearch(canvasPtr, argv[1], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    lastPtr = itemPtr;
+	}
+	if ((lastPtr != NULL) && (lastPtr->nextPtr != NULL)) {
+	    DoItem(interp, lastPtr->nextPtr, uid);
+	}
+    } else if ((c == 'a') && (strncmp(argv[0], "all", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 1) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " all", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+#ifdef STk_CODE
+	if (!uid) Tcl_AppendElement(interp, "(");
+#endif
+	for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+		itemPtr = itemPtr->nextPtr) {
+	    DoItem(interp, itemPtr, uid);
+	}
+#ifdef STk_CODE
+	if (!uid) Tcl_AppendElement(interp, ")");
+#endif
+    } else if ((c == 'b') && (strncmp(argv[0], "below", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " below tagOrId", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	itemPtr = StartTagSearch(canvasPtr, argv[1], &search);
+	if (search.prevPtr != NULL) {
+	    DoItem(interp, search.prevPtr, uid);
+	}
+    } else if ((c == 'c') && (strncmp(argv[0], "closest", length) == 0)) {
+	double closestDist;
+	Tk_Item *startPtr, *closestPtr;
+	double coords[2], halo;
+	int x1, y1, x2, y2;
+
+	if ((argc < 3) || (argc > 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " closest x y ?halo? ?start?",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[1],
+		&coords[0]) != TCL_OK) || (Tk_CanvasGetCoord(interp,
+		(Tk_Canvas) canvasPtr, argv[2], &coords[1]) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	if (argc > 3) {
+	    if (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[3],
+		    &halo) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (halo < 0.0) {
+		Tcl_AppendResult(interp, "can't have negative halo value \"",
+			argv[3], "\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	} else {
+	    halo = 0.0;
+	}
+
+	/*
+	 * Find the item at which to start the search.
+	 */
+
+	startPtr = canvasPtr->firstItemPtr;
+	if (argc == 5) {
+	    itemPtr = StartTagSearch(canvasPtr, argv[4], &search);
+	    if (itemPtr != NULL) {
+		startPtr = itemPtr;
+	    }
+	}
+
+	/*
+	 * The code below is optimized so that it can eliminate most
+	 * items without having to call their item-specific procedures.
+	 * This is done by keeping a bounding box (x1, y1, x2, y2) that
+	 * an item's bbox must overlap if the item is to have any
+	 * chance of being closer than the closest so far.
+	 */
+
+	itemPtr = startPtr;
+	if (itemPtr == NULL) {
+	    return TCL_OK;
+	}
+	closestDist = (*itemPtr->typePtr->pointProc)((Tk_Canvas) canvasPtr,
+		itemPtr, coords) - halo;
+	if (closestDist < 0.0) {
+	    closestDist = 0.0;
+	}
+	while (1) {
+	    double newDist;
+
+	    /*
+	     * Update the bounding box using itemPtr, which is the
+	     * new closest item.
+	     */
+
+	    x1 = (coords[0] - closestDist - halo - 1);
+	    y1 = (coords[1] - closestDist - halo - 1);
+	    x2 = (coords[0] + closestDist + halo + 1);
+	    y2 = (coords[1] + closestDist + halo + 1);
+	    closestPtr = itemPtr;
+
+	    /*
+	     * Search for an item that beats the current closest one.
+	     * Work circularly through the canvas's item list until
+	     * getting back to the starting item.
+	     */
+
+	    while (1) {
+		itemPtr = itemPtr->nextPtr;
+		if (itemPtr == NULL) {
+		    itemPtr = canvasPtr->firstItemPtr;
+		}
+		if (itemPtr == startPtr) {
+		    DoItem(interp, closestPtr, uid);
+		    return TCL_OK;
+		}
+		if ((itemPtr->x1 >= x2) || (itemPtr->x2 <= x1)
+			|| (itemPtr->y1 >= y2) || (itemPtr->y2 <= y1)) {
+		    continue;
+		}
+		newDist = (*itemPtr->typePtr->pointProc)((Tk_Canvas) canvasPtr,
+			itemPtr, coords) - halo;
+		if (newDist < 0.0) {
+		    newDist = 0.0;
+		}
+		if (newDist <= closestDist) {
+		    closestDist = newDist;
+		    break;
+		}
+	    }
+	}
+    } else if ((c == 'e') && (strncmp(argv[0], "enclosed", length) == 0)) {
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " enclosed x1 y1 x2 y2", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return FindArea(interp, canvasPtr, argv+1, uid, 1);
+    } else if ((c == 'o') && (strncmp(argv[0], "overlapping", length) == 0)) {
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " overlapping x1 y1 x2 y2",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return FindArea(interp, canvasPtr, argv+1, uid, 0);
+    } else if ((c == 'w') && (strncmp(argv[0], "withtag", length) == 0)) {
+		if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    cmdName, option, " withtag tagOrId", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	if (!uid) Tcl_AppendElement(interp, "(");
+#endif
+	for (itemPtr = StartTagSearch(canvasPtr, argv[1], &search);
+		itemPtr != NULL; itemPtr = NextItem(&search)) {
+	    DoItem(interp, itemPtr, uid);
+	}
+#ifdef STk_CODE
+	if (!uid) Tcl_AppendElement(interp, ")");
+#endif
+    } else  {
+	Tcl_AppendResult(interp, "bad search command \"", argv[0],
+		"\": must be above, all, below, closest, enclosed, ",
+		"overlapping, or withtag", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FindArea --
+ *
+ *	This procedure implements area searches for the "find"
+ *	and "addtag" options.
+ *
+ * Results:
+ *	A standard Tcl return value.  If newTag is NULL, then a
+ *	list of ids from all the items overlapping or enclosed
+ *	by the rectangle given by argc is returned in interp->result.
+ *	If newTag is NULL, then the normal interp->result is an
+ *	empty string.  If an error occurs, then interp->result will
+ *	hold an error message.
+ *
+ * Side effects:
+ *	If uid is non-NULL, then all the items overlapping
+ *	or enclosed by the area in argv have that tag added to
+ *	their lists of tags.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+FindArea(interp, canvasPtr, argv, uid, enclosed)
+    Tcl_Interp *interp;			/* Interpreter for error reporting
+					 * and result storing. */
+    TkCanvas *canvasPtr;		/* Canvas whose items are to be
+					 * searched. */
+    char **argv;			/* Array of four arguments that
+					 * give the coordinates of the
+					 * rectangular area to search. */
+    Tk_Uid uid;				/* If non-NULL, gives new tag to set
+					 * on all found items;  if NULL, then
+					 * ids of found items are returned
+					 * in interp->result. */
+    int enclosed;			/* 0 means overlapping or enclosed
+					 * items are OK, 1 means only enclosed
+					 * items are OK. */
+{
+    double rect[4], tmp;
+    int x1, y1, x2, y2;
+    Tk_Item *itemPtr;
+
+    if ((Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[0],
+		&rect[0]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[1],
+		&rect[1]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[2],
+		&rect[2]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, (Tk_Canvas) canvasPtr, argv[3],
+		&rect[3]) != TCL_OK)) {
+	return TCL_ERROR;
+    }
+    if (rect[0] > rect[2]) {
+	tmp = rect[0]; rect[0] = rect[2]; rect[2] = tmp;
+    }
+    if (rect[1] > rect[3]) {
+	tmp = rect[1]; rect[1] = rect[3]; rect[3] = tmp;
+    }
+
+    /*
+     * Use an integer bounding box for a quick test, to avoid
+     * calling item-specific code except for items that are close.
+     */
+#ifdef STk_CODE
+    if (!uid) Tcl_AppendElement(interp, "(");
+#endif
+    x1 = (rect[0]-1.0);
+    y1 = (rect[1]-1.0);
+    x2 = (rect[2]+1.0);
+    y2 = (rect[3]+1.0);
+    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    itemPtr = itemPtr->nextPtr) {
+	if ((itemPtr->x1 >= x2) || (itemPtr->x2 <= x1)
+		|| (itemPtr->y1 >= y2) || (itemPtr->y2 <= y1)) {
+	    continue;
+	}
+	if ((*itemPtr->typePtr->areaProc)((Tk_Canvas) canvasPtr, itemPtr, rect)
+		>= enclosed) {
+	    DoItem(interp, itemPtr, uid);
+	}
+    }
+#ifdef STk_CODE
+    if (!uid) Tcl_AppendElement(interp, ")");
+#endif
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RelinkItems --
+ *
+ *	Move one or more items to a different place in the
+ *	display order for a canvas.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The items identified by "tag" are moved so that they
+ *	are all together in the display list and immediately
+ *	after prevPtr.  The order of the moved items relative
+ *	to each other is not changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+RelinkItems(canvasPtr, tag, prevPtr)
+    TkCanvas *canvasPtr;	/* Canvas to be modified. */
+    char *tag;			/* Tag identifying items to be moved
+				 * in the redisplay list. */
+    Tk_Item *prevPtr;		/* Reposition the items so that they
+				 * go just after this item (NULL means
+				 * put at beginning of list). */
+{
+    Tk_Item *itemPtr;
+    TagSearch search;
+    Tk_Item *firstMovePtr, *lastMovePtr;
+
+    /*
+     * Find all of the items to be moved and remove them from
+     * the list, making an auxiliary list running from firstMovePtr
+     * to lastMovePtr.  Record their areas for redisplay.
+     */
+
+    firstMovePtr = lastMovePtr = NULL;
+    for (itemPtr = StartTagSearch(canvasPtr, tag, &search);
+	    itemPtr != NULL; itemPtr = NextItem(&search)) {
+	if (itemPtr == prevPtr) {
+	    /*
+	     * Item after which insertion is to occur is being
+	     * moved!  Switch to insert after its predecessor.
+	     */
+
+	    prevPtr = search.prevPtr;
+	}
+	if (search.prevPtr == NULL) {
+	    canvasPtr->firstItemPtr = itemPtr->nextPtr;
+	} else {
+	    search.prevPtr->nextPtr = itemPtr->nextPtr;
+	}
+	if (canvasPtr->lastItemPtr == itemPtr) {
+	    canvasPtr->lastItemPtr = search.prevPtr;
+	}
+	if (firstMovePtr == NULL) {
+	    firstMovePtr = itemPtr;
+	} else {
+	    lastMovePtr->nextPtr = itemPtr;
+	}
+	lastMovePtr = itemPtr;
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, itemPtr->x1, itemPtr->y1,
+		itemPtr->x2, itemPtr->y2);
+	canvasPtr->flags |= REPICK_NEEDED;
+    }
+
+    /*
+     * Insert the list of to-be-moved items back into the canvas's
+     * at the desired position.
+     */
+
+    if (firstMovePtr == NULL) {
+	return;
+    }
+    if (prevPtr == NULL) {
+	lastMovePtr->nextPtr = canvasPtr->firstItemPtr;
+	canvasPtr->firstItemPtr = firstMovePtr;
+    } else {
+	lastMovePtr->nextPtr = prevPtr->nextPtr;
+	prevPtr->nextPtr = firstMovePtr;
+    }
+    if (canvasPtr->lastItemPtr == prevPtr) {
+	canvasPtr->lastItemPtr = lastMovePtr;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasBindProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher to handle
+ *	events associated with bindings on items.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on the command invoked as part of the binding
+ *	(if there was any).
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CanvasBindProc(clientData, eventPtr)
+    ClientData clientData;		/* Pointer to canvas structure. */
+    XEvent *eventPtr;			/* Pointer to X event that just
+					 * happened. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+
+    Tcl_Preserve((ClientData) canvasPtr);
+
+    /*
+     * This code below keeps track of the current modifier state in
+     * canvasPtr>state.  This information is used to defer repicks of
+     * the current item while buttons are down.
+     */
+
+    if ((eventPtr->type == ButtonPress) || (eventPtr->type == ButtonRelease)) {
+	int mask;
+
+	switch (eventPtr->xbutton.button) {
+	    case Button1:
+		mask = Button1Mask;
+		break;
+	    case Button2:
+		mask = Button2Mask;
+		break;
+	    case Button3:
+		mask = Button3Mask;
+		break;
+	    case Button4:
+		mask = Button4Mask;
+		break;
+	    case Button5:
+		mask = Button5Mask;
+		break;
+	    default:
+		mask = 0;
+		break;
+	}
+
+	/*
+	 * For button press events, repick the current item using the
+	 * button state before the event, then process the event.  For
+	 * button release events, first process the event, then repick
+	 * the current item using the button state *after* the event
+	 * (the button has logically gone up before we change the
+	 * current item).
+	 */
+
+	if (eventPtr->type == ButtonPress) {
+	    /*
+	     * On a button press, first repick the current item using
+	     * the button state before the event, the process the event.
+	     */
+
+	    canvasPtr->state = eventPtr->xbutton.state;
+	    PickCurrentItem(canvasPtr, eventPtr);
+	    canvasPtr->state ^= mask;
+	    CanvasDoEvent(canvasPtr, eventPtr);
+	} else {
+	    /*
+	     * Button release: first process the event, with the button
+	     * still considered to be down.  Then repick the current
+	     * item under the assumption that the button is no longer down.
+	     */
+
+	    canvasPtr->state = eventPtr->xbutton.state;
+	    CanvasDoEvent(canvasPtr, eventPtr);
+	    eventPtr->xbutton.state ^= mask;
+	    canvasPtr->state = eventPtr->xbutton.state;
+	    PickCurrentItem(canvasPtr, eventPtr);
+	    eventPtr->xbutton.state ^= mask;
+	}
+	goto done;
+    } else if ((eventPtr->type == EnterNotify)
+	    || (eventPtr->type == LeaveNotify)) {
+	canvasPtr->state = eventPtr->xcrossing.state;
+	PickCurrentItem(canvasPtr, eventPtr);
+	goto done;
+    } else if (eventPtr->type == MotionNotify) {
+	canvasPtr->state = eventPtr->xmotion.state;
+	PickCurrentItem(canvasPtr, eventPtr);
+    }
+    CanvasDoEvent(canvasPtr, eventPtr);
+
+    done:
+    Tcl_Release((ClientData) canvasPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PickCurrentItem --
+ *
+ *	Find the topmost item in a canvas that contains a given
+ *	location and mark the the current item.  If the current
+ *	item has changed, generate a fake exit event on the old
+ *	current item and a fake enter event on the new current
+ *	item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The current item for canvasPtr may change.  If it does,
+ *	then the commands associated with item entry and exit
+ *	could do just about anything.  A binding script could
+ *	delete the canvas, so callers should protect themselves
+ *	with Tcl_Preserve and Tcl_Release.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+PickCurrentItem(canvasPtr, eventPtr)
+    TkCanvas *canvasPtr;		/* Canvas widget in which to select
+					 * current item. */
+    XEvent *eventPtr;			/* Event describing location of
+					 * mouse cursor.  Must be EnterWindow,
+					 * LeaveWindow, ButtonRelease, or
+					 * MotionNotify. */
+{
+    double coords[2];
+    int buttonDown;
+
+    /*
+     * Check whether or not a button is down.  If so, we'll log entry
+     * and exit into and out of the current item, but not entry into
+     * any other item.  This implements a form of grabbing equivalent
+     * to what the X server does for windows.
+     */
+
+    buttonDown = canvasPtr->state
+	    & (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask);
+    if (!buttonDown) {
+	canvasPtr->flags &= ~LEFT_GRABBED_ITEM;
+    }
+
+    /*
+     * Save information about this event in the canvas.  The event in
+     * the canvas is used for two purposes:
+     *
+     * 1. Event bindings: if the current item changes, fake events are
+     *    generated to allow item-enter and item-leave bindings to trigger.
+     * 2. Reselection: if the current item gets deleted, can use the
+     *    saved event to find a new current item.
+     * Translate MotionNotify events into EnterNotify events, since that's
+     * what gets reported to item handlers.
+     */
+
+    if (eventPtr != &canvasPtr->pickEvent) {
+	if ((eventPtr->type == MotionNotify)
+		|| (eventPtr->type == ButtonRelease)) {
+	    canvasPtr->pickEvent.xcrossing.type = EnterNotify;
+	    canvasPtr->pickEvent.xcrossing.serial = eventPtr->xmotion.serial;
+	    canvasPtr->pickEvent.xcrossing.send_event
+		    = eventPtr->xmotion.send_event;
+	    canvasPtr->pickEvent.xcrossing.display = eventPtr->xmotion.display;
+	    canvasPtr->pickEvent.xcrossing.window = eventPtr->xmotion.window;
+	    canvasPtr->pickEvent.xcrossing.root = eventPtr->xmotion.root;
+	    canvasPtr->pickEvent.xcrossing.subwindow = None;
+	    canvasPtr->pickEvent.xcrossing.time = eventPtr->xmotion.time;
+	    canvasPtr->pickEvent.xcrossing.x = eventPtr->xmotion.x;
+	    canvasPtr->pickEvent.xcrossing.y = eventPtr->xmotion.y;
+	    canvasPtr->pickEvent.xcrossing.x_root = eventPtr->xmotion.x_root;
+	    canvasPtr->pickEvent.xcrossing.y_root = eventPtr->xmotion.y_root;
+	    canvasPtr->pickEvent.xcrossing.mode = NotifyNormal;
+	    canvasPtr->pickEvent.xcrossing.detail = NotifyNonlinear;
+	    canvasPtr->pickEvent.xcrossing.same_screen
+		    = eventPtr->xmotion.same_screen;
+	    canvasPtr->pickEvent.xcrossing.focus = False;
+	    canvasPtr->pickEvent.xcrossing.state = eventPtr->xmotion.state;
+	} else  {
+	    canvasPtr->pickEvent = *eventPtr;
+	}
+    }
+
+    /*
+     * If this is a recursive call (there's already a partially completed
+     * call pending on the stack;  it's in the middle of processing a
+     * Leave event handler for the old current item) then just return;
+     * the pending call will do everything that's needed.
+     */
+
+    if (canvasPtr->flags & REPICK_IN_PROGRESS) {
+	return;
+    }
+
+    /*
+     * A LeaveNotify event automatically means that there's no current
+     * object, so the check for closest item can be skipped.
+     */
+
+    coords[0] = canvasPtr->pickEvent.xcrossing.x + canvasPtr->xOrigin;
+    coords[1] = canvasPtr->pickEvent.xcrossing.y + canvasPtr->yOrigin;
+    if (canvasPtr->pickEvent.type != LeaveNotify) {
+	canvasPtr->newCurrentPtr = CanvasFindClosest(canvasPtr, coords);
+    } else {
+	canvasPtr->newCurrentPtr = NULL;
+    }
+
+    if ((canvasPtr->newCurrentPtr == canvasPtr->currentItemPtr)
+	    && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
+	/*
+	 * Nothing to do:  the current item hasn't changed.
+	 */
+
+	return;
+    }
+
+    /*
+     * Simulate a LeaveNotify event on the previous current item and
+     * an EnterNotify event on the new current item.  Remove the "current"
+     * tag from the previous current item and place it on the new current
+     * item.
+     */
+
+    if ((canvasPtr->newCurrentPtr != canvasPtr->currentItemPtr)
+	    && (canvasPtr->currentItemPtr != NULL)
+	    && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
+	XEvent event;
+	Tk_Item *itemPtr = canvasPtr->currentItemPtr;
+	int i;
+
+	event = canvasPtr->pickEvent;
+	event.type = LeaveNotify;
+
+	/*
+	 * If the event's detail happens to be NotifyInferior the
+	 * binding mechanism will discard the event.  To be consistent,
+	 * always use NotifyAncestor.
+	 */
+
+	event.xcrossing.detail = NotifyAncestor;
+	canvasPtr->flags |= REPICK_IN_PROGRESS;
+	CanvasDoEvent(canvasPtr, &event);
+	canvasPtr->flags &= ~REPICK_IN_PROGRESS;
+
+	/*
+	 * The check below is needed because there could be an event
+	 * handler for <LeaveNotify> that deletes the current item.
+	 */
+
+	if ((itemPtr == canvasPtr->currentItemPtr) && !buttonDown) {
+	    for (i = itemPtr->numTags-1; i >= 0; i--) {
+		if (itemPtr->tagPtr[i] == currentUid) {
+		    itemPtr->tagPtr[i] = itemPtr->tagPtr[itemPtr->numTags-1];
+		    itemPtr->numTags--;
+		    break;
+		}
+	    }
+	}
+    
+	/*
+	 * Note:  during CanvasDoEvent above, it's possible that
+	 * canvasPtr->newCurrentPtr got reset to NULL because the
+	 * item was deleted.
+	 */
+    }
+    if ((canvasPtr->newCurrentPtr != canvasPtr->currentItemPtr) && buttonDown) {
+	canvasPtr->flags |= LEFT_GRABBED_ITEM;
+	return;
+    }
+
+    /*
+     * Special note:  it's possible that canvasPtr->newCurrentPtr ==
+     * canvasPtr->currentItemPtr here.  This can happen, for example,
+     * if LEFT_GRABBED_ITEM was set.
+     */
+
+    canvasPtr->flags &= ~LEFT_GRABBED_ITEM;
+    canvasPtr->currentItemPtr = canvasPtr->newCurrentPtr;
+    if (canvasPtr->currentItemPtr != NULL) {
+	XEvent event;
+
+	DoItem((Tcl_Interp *) NULL, canvasPtr->currentItemPtr, currentUid);
+	event = canvasPtr->pickEvent;
+	event.type = EnterNotify;
+	event.xcrossing.detail = NotifyAncestor;
+	CanvasDoEvent(canvasPtr, &event);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasFindClosest --
+ *
+ *	Given x and y coordinates, find the topmost canvas item that
+ *	is "close" to the coordinates.
+ *
+ * Results:
+ *	The return value is a pointer to the topmost item that is
+ *	close to (x,y), or NULL if no item is close.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_Item *
+CanvasFindClosest(canvasPtr, coords)
+    TkCanvas *canvasPtr;		/* Canvas widget to search. */
+    double coords[2];			/* Desired x,y position in canvas,
+					 * not screen, coordinates.) */
+{
+    Tk_Item *itemPtr;
+    Tk_Item *bestPtr;
+    int x1, y1, x2, y2;
+
+    x1 = coords[0] - canvasPtr->closeEnough;
+    y1 = coords[1] - canvasPtr->closeEnough;
+    x2 = coords[0] + canvasPtr->closeEnough;
+    y2 = coords[1] + canvasPtr->closeEnough;
+
+    bestPtr = NULL;
+    for (itemPtr = canvasPtr->firstItemPtr; itemPtr != NULL;
+	    itemPtr = itemPtr->nextPtr) {
+	if ((itemPtr->x1 > x2) || (itemPtr->x2 < x1)
+		|| (itemPtr->y1 > y2) || (itemPtr->y2 < y1)) {
+	    continue;
+	}
+	if ((*itemPtr->typePtr->pointProc)((Tk_Canvas) canvasPtr,
+		itemPtr, coords) <= canvasPtr->closeEnough) {
+	    bestPtr = itemPtr;
+	}
+    }
+    return bestPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasDoEvent --
+ *
+ *	This procedure is called to invoke binding processing
+ *	for a new event that is associated with the current item
+ *	for a canvas.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on the bindings for the canvas.  A binding script
+ *	could delete the canvas, so callers should protect themselves
+ *	with Tcl_Preserve and Tcl_Release.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CanvasDoEvent(canvasPtr, eventPtr)
+    TkCanvas *canvasPtr;		/* Canvas widget in which event
+					 * occurred. */
+    XEvent *eventPtr;			/* Real or simulated X event that
+					 * is to be processed. */
+{
+#define NUM_STATIC 3
+    ClientData staticObjects[NUM_STATIC];
+    ClientData *objectPtr;
+    int numObjects, i;
+    Tk_Item *itemPtr;
+
+    if (canvasPtr->bindingTable == NULL) {
+	return;
+    }
+
+    itemPtr = canvasPtr->currentItemPtr;
+    if ((eventPtr->type == KeyPress) || (eventPtr->type == KeyRelease)) {
+	itemPtr = canvasPtr->textInfo.focusItemPtr;
+    }
+    if (itemPtr == NULL) {
+	return;
+    }
+
+    /*
+     * Set up an array with all the relevant objects for processing
+     * this event.  The relevant objects are (a) the event's item,
+     * (b) the tags associated with the event's item, and (c) the
+     * tag "all".  If there are a lot of tags then malloc an array
+     * to hold all of the objects.
+     */
+
+    numObjects = itemPtr->numTags + 2;
+    if (numObjects <= NUM_STATIC) {
+	objectPtr = staticObjects;
+    } else {
+	objectPtr = (ClientData *) ckalloc((unsigned)
+		(numObjects * sizeof(ClientData)));
+    }
+    objectPtr[0] = (ClientData) allUid;
+    for (i = itemPtr->numTags-1; i >= 0; i--) {
+	objectPtr[i+1] = (ClientData) itemPtr->tagPtr[i];
+    }
+    objectPtr[itemPtr->numTags+1] = (ClientData) itemPtr;
+
+    /*
+     * Invoke the binding system, then free up the object array if
+     * it was malloc-ed.
+     */
+
+    if (canvasPtr->tkwin != NULL) {
+	Tk_BindEvent(canvasPtr->bindingTable, eventPtr, canvasPtr->tkwin,
+		numObjects, objectPtr);
+    }
+    if (objectPtr != staticObjects) {
+	ckfree((char *) objectPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasBlinkProc --
+ *
+ *	This procedure is called as a timer handler to blink the
+ *	insertion cursor off and on.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor gets turned on or off, redisplay gets invoked,
+ *	and this procedure reschedules itself.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CanvasBlinkProc(clientData)
+    ClientData clientData;	/* Pointer to record describing entry. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+
+    if (!canvasPtr->textInfo.gotFocus || (canvasPtr->insertOffTime == 0)) {
+	return;
+    }
+    if (canvasPtr->textInfo.cursorOn) {
+	canvasPtr->textInfo.cursorOn = 0;
+	canvasPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		canvasPtr->insertOffTime, CanvasBlinkProc,
+		(ClientData) canvasPtr);
+    } else {
+	canvasPtr->textInfo.cursorOn = 1;
+	canvasPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		canvasPtr->insertOnTime, CanvasBlinkProc,
+		(ClientData) canvasPtr);
+    }
+    if (canvasPtr->textInfo.focusItemPtr != NULL) {
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		canvasPtr->textInfo.focusItemPtr->x1,
+		canvasPtr->textInfo.focusItemPtr->y1,
+		canvasPtr->textInfo.focusItemPtr->x2,
+		canvasPtr->textInfo.focusItemPtr->y2);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasFocusProc --
+ *
+ *	This procedure is called whenever a canvas gets or loses the
+ *	input focus.  It's also called whenever the window is
+ *	reconfigured while it has the focus.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor gets turned on or off.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CanvasFocusProc(canvasPtr, gotFocus)
+    TkCanvas *canvasPtr;	/* Canvas that just got or lost focus. */
+    int gotFocus;		/* 1 means window is getting focus, 0 means
+				 * it's losing it. */
+{
+    Tcl_DeleteTimerHandler(canvasPtr->insertBlinkHandler);
+    if (gotFocus) {
+	canvasPtr->textInfo.gotFocus = 1;
+	canvasPtr->textInfo.cursorOn = 1;
+	if (canvasPtr->insertOffTime != 0) {
+	    canvasPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		    canvasPtr->insertOffTime, CanvasBlinkProc,
+		    (ClientData) canvasPtr);
+	}
+    } else {
+	canvasPtr->textInfo.gotFocus = 0;
+	canvasPtr->textInfo.cursorOn = 0;
+	canvasPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+    }
+    if (canvasPtr->textInfo.focusItemPtr != NULL) {
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		canvasPtr->textInfo.focusItemPtr->x1,
+		canvasPtr->textInfo.focusItemPtr->y1,
+		canvasPtr->textInfo.focusItemPtr->x2,
+		canvasPtr->textInfo.focusItemPtr->y2);
+    }
+    if (canvasPtr->highlightWidth > 0) {
+	canvasPtr->flags |= REDRAW_BORDERS;
+	if (!(canvasPtr->flags & REDRAW_PENDING)) {
+	    Tcl_DoWhenIdle(DisplayCanvas, (ClientData) canvasPtr);
+	    canvasPtr->flags |= REDRAW_PENDING;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasSelectTo --
+ *
+ *	Modify the selection by moving its un-anchored end.  This could
+ *	make the selection either larger or smaller.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The selection changes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CanvasSelectTo(canvasPtr, itemPtr, index)
+    TkCanvas *canvasPtr;	/* Information about widget. */
+    Tk_Item *itemPtr;		/* Item that is to hold selection. */
+    int index;			/* Index of element that is to become the
+				 * "other" end of the selection. */
+{
+    int oldFirst, oldLast;
+    Tk_Item *oldSelPtr;
+
+    oldFirst = canvasPtr->textInfo.selectFirst;
+    oldLast = canvasPtr->textInfo.selectLast;
+    oldSelPtr = canvasPtr->textInfo.selItemPtr;
+
+    /*
+     * Grab the selection if we don't own it already.
+     */
+
+    if (canvasPtr->textInfo.selItemPtr == NULL) {
+	Tk_OwnSelection(canvasPtr->tkwin, XA_PRIMARY, CanvasLostSelection,
+		(ClientData) canvasPtr);
+    } else if (canvasPtr->textInfo.selItemPtr != itemPtr) {
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		canvasPtr->textInfo.selItemPtr->x1,
+		canvasPtr->textInfo.selItemPtr->y1,
+		canvasPtr->textInfo.selItemPtr->x2,
+		canvasPtr->textInfo.selItemPtr->y2);
+    }
+    canvasPtr->textInfo.selItemPtr = itemPtr;
+
+    if (canvasPtr->textInfo.anchorItemPtr != itemPtr) {
+	canvasPtr->textInfo.anchorItemPtr = itemPtr;
+	canvasPtr->textInfo.selectAnchor = index;
+    }
+    if (canvasPtr->textInfo.selectAnchor <= index) {
+	canvasPtr->textInfo.selectFirst = canvasPtr->textInfo.selectAnchor;
+	canvasPtr->textInfo.selectLast = index;
+    } else {
+	canvasPtr->textInfo.selectFirst = index;
+	canvasPtr->textInfo.selectLast = canvasPtr->textInfo.selectAnchor - 1;
+    }
+    if ((canvasPtr->textInfo.selectFirst != oldFirst)
+	    || (canvasPtr->textInfo.selectLast != oldLast)
+	    || (itemPtr != oldSelPtr)) {
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		itemPtr->x1, itemPtr->y1, itemPtr->x2, itemPtr->y2);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasFetchSelection --
+ *
+ *	This procedure is invoked by Tk to return part or all of
+ *	the selection, when the selection is in a canvas widget.
+ *	This procedure always returns the selection as a STRING.
+ *
+ * Results:
+ *	The return value is the number of non-NULL bytes stored
+ *	at buffer.  Buffer is filled (or partially filled) with a
+ *	NULL-terminated string containing part or all of the selection,
+ *	as given by offset and maxBytes.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CanvasFetchSelection(clientData, offset, buffer, maxBytes)
+    ClientData clientData;		/* Information about canvas widget. */
+    int offset;				/* Offset within selection of first
+					 * character to be returned. */
+    char *buffer;			/* Location in which to place
+					 * selection. */
+    int maxBytes;			/* Maximum number of bytes to place
+					 * at buffer, not including terminating
+					 * NULL character. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+
+    if (canvasPtr->textInfo.selItemPtr == NULL) {
+	return -1;
+    }
+    if (canvasPtr->textInfo.selItemPtr->typePtr->selectionProc == NULL) {
+	return -1;
+    }
+    return (*canvasPtr->textInfo.selItemPtr->typePtr->selectionProc)(
+	    (Tk_Canvas) canvasPtr, canvasPtr->textInfo.selItemPtr, offset,
+	    buffer, maxBytes);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CanvasLostSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	grabbed away from a canvas widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The existing selection is unhighlighted, and the window is
+ *	marked as not containing a selection.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CanvasLostSelection(clientData)
+    ClientData clientData;		/* Information about entry widget. */
+{
+    TkCanvas *canvasPtr = (TkCanvas *) clientData;
+
+    if (canvasPtr->textInfo.selItemPtr != NULL) {
+	Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+		canvasPtr->textInfo.selItemPtr->x1,
+		canvasPtr->textInfo.selItemPtr->y1,
+		canvasPtr->textInfo.selItemPtr->x2,
+		canvasPtr->textInfo.selItemPtr->y2);
+    }
+    canvasPtr->textInfo.selItemPtr = NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GridAlign --
+ *
+ *	Given a coordinate and a grid spacing, this procedure
+ *	computes the location of the nearest grid line to the
+ *	coordinate.
+ *
+ * Results:
+ *	The return value is the location of the grid line nearest
+ *	to coord.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static double
+GridAlign(coord, spacing)
+    double coord;		/* Coordinate to grid-align. */
+    double spacing;		/* Spacing between grid lines.   If <= 0
+				 * then no alignment is done. */
+{
+    if (spacing <= 0.0) {
+	return coord;
+    }
+    if (coord < 0) {
+	return -((int) ((-coord)/spacing + 0.5)) * spacing;
+    }
+    return ((int) (coord/spacing + 0.5)) * spacing;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PrintScrollFractions --
+ *
+ *	Given the range that's visible in the window and the "100%
+ *	range" for what's in the canvas, print a string containing
+ *	the scroll fractions.  This procedure is used for both x
+ *	and y scrolling.
+ *
+ * Results:
+ *	The memory pointed to by string is modified to hold
+ *	two real numbers containing the scroll fractions (between
+ *	0 and 1) corresponding to the other arguments.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+PrintScrollFractions(screen1, screen2, object1, object2, string)
+    int screen1;		/* Lowest coordinate visible in the window. */
+    int screen2;		/* Highest coordinate visible in the window. */
+    int object1;		/* Lowest coordinate in the object. */
+    int object2;		/* Highest coordinate in the object. */
+    char *string;		/* Two real numbers get printed here.  Must
+				 * have enough storage for two %g
+				 * conversions. */
+{
+    double range, f1, f2;
+
+    range = object2 - object1;
+    if (range <= 0) {
+	f1 = 0;
+	f2 = 1.0;
+    } else {
+	f1 = (screen1 - object1)/range;
+	if (f1 < 0) {
+	    f1 = 0.0;
+	}
+	f2 = (screen2 - object1)/range;
+	if (f2 > 1.0) {
+	    f2 = 1.0;
+	}
+	if (f2 < f1) {
+	    f2 = f1;
+	}
+    }
+    sprintf(string, "%g %g", f1, f2);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasUpdateScrollbars --
+ *
+ *	This procedure is invoked whenever a canvas has changed in
+ *	a way that requires scrollbars to be redisplayed (e.g. the
+ *	view in the canvas has changed).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If there are scrollbars associated with the canvas, then
+ *	their scrolling commands are invoked to cause them to
+ *	redisplay.  If errors occur, additional Tcl commands may
+ *	be invoked to process the errors.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CanvasUpdateScrollbars(canvasPtr)
+    TkCanvas *canvasPtr;		/* Information about canvas. */
+{
+    int result;
+    char buffer[200];
+    Tcl_Interp *interp;
+    int xOrigin, yOrigin, inset, width, height, scrollX1, scrollX2,
+        scrollY1, scrollY2;
+    char *xScrollCmd, *yScrollCmd;
+
+    /*
+     * Save all the relevant values from the canvasPtr, because it might be
+     * deleted as part of either of the two calls to Tcl_VarEval below.
+     */
+    
+    interp = canvasPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    xScrollCmd = canvasPtr->xScrollCmd;
+    if (xScrollCmd != (char *) NULL) {
+        Tcl_Preserve((ClientData) xScrollCmd);
+    }
+    yScrollCmd = canvasPtr->yScrollCmd;
+    if (yScrollCmd != (char *) NULL) {
+        Tcl_Preserve((ClientData) yScrollCmd);
+    }
+    xOrigin = canvasPtr->xOrigin;
+    yOrigin = canvasPtr->yOrigin;
+    inset = canvasPtr->inset;
+    width = Tk_Width(canvasPtr->tkwin);
+    height = Tk_Height(canvasPtr->tkwin);
+    scrollX1 = canvasPtr->scrollX1;
+    scrollX2 = canvasPtr->scrollX2;
+    scrollY1 = canvasPtr->scrollY1;
+    scrollY2 = canvasPtr->scrollY2;
+    canvasPtr->flags &= ~UPDATE_SCROLLBARS;
+    if (canvasPtr->xScrollCmd != NULL) {
+	PrintScrollFractions(xOrigin + inset, xOrigin + width - inset,
+                scrollX1, scrollX2, buffer);
+	result = Tcl_VarEval(interp, xScrollCmd, " ", buffer, (char *) NULL);
+	if (result != TCL_OK) {
+	    Tcl_BackgroundError(interp);
+	}
+	Tcl_ResetResult(interp);
+        Tcl_Release((ClientData) xScrollCmd);
+    }
+
+    if (yScrollCmd != NULL) {
+	PrintScrollFractions(yOrigin + inset, yOrigin + height - inset,
+                scrollY1, scrollY2, buffer);
+	result = Tcl_VarEval(interp, yScrollCmd, " ", buffer, (char *) NULL);
+	if (result != TCL_OK) {
+	    Tcl_BackgroundError(interp);
+	}
+	Tcl_ResetResult(interp);
+        Tcl_Release((ClientData) yScrollCmd);
+    }
+    Tcl_Release((ClientData) interp);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CanvasSetOrigin --
+ *
+ *	This procedure is invoked to change the mapping between
+ *	canvas coordinates and screen coordinates in the canvas
+ *	window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The canvas will be redisplayed to reflect the change in
+ *	view.  In addition, scrollbars will be updated if there
+ *	are any.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CanvasSetOrigin(canvasPtr, xOrigin, yOrigin)
+    TkCanvas *canvasPtr;	/* Information about canvas. */
+    int xOrigin;		/* New X origin for canvas (canvas x-coord
+				 * corresponding to left edge of canvas
+				 * window). */
+    int yOrigin;		/* New Y origin for canvas (canvas y-coord
+				 * corresponding to top edge of canvas
+				 * window). */
+{
+    int left, right, top, bottom, delta;
+
+    /*
+     * If scroll increments have been set, round the window origin
+     * to the nearest multiple of the increments.  Remember, the
+     * origin is the place just inside the borders,  not the upper
+     * left corner.
+     */
+
+    if (canvasPtr->xScrollIncrement > 0) {
+	if (xOrigin >= 0) {
+	    xOrigin += canvasPtr->xScrollIncrement/2;
+	    xOrigin -= (xOrigin + canvasPtr->inset)
+		    % canvasPtr->xScrollIncrement;
+	} else {
+	    xOrigin = (-xOrigin) + canvasPtr->xScrollIncrement/2;
+	    xOrigin = -(xOrigin - (xOrigin - canvasPtr->inset)
+		    % canvasPtr->xScrollIncrement);
+	}
+    }
+    if (canvasPtr->yScrollIncrement > 0) {
+	if (yOrigin >= 0) {
+	    yOrigin += canvasPtr->yScrollIncrement/2;
+	    yOrigin -= (yOrigin + canvasPtr->inset)
+		    % canvasPtr->yScrollIncrement;
+	} else {
+	    yOrigin = (-yOrigin) + canvasPtr->yScrollIncrement/2;
+	    yOrigin = -(yOrigin - (yOrigin - canvasPtr->inset)
+		    % canvasPtr->yScrollIncrement);
+	}
+    }
+
+    /*
+     * Adjust the origin if necessary to keep as much as possible of the
+     * canvas in the view.  The variables left, right, etc. keep track of
+     * how much extra space there is on each side of the view before it
+     * will stick out past the scroll region.  If one side sticks out past
+     * the edge of the scroll region, adjust the view to bring that side
+     * back to the edge of the scrollregion (but don't move it so much that
+     * the other side sticks out now).  If scroll increments are in effect,
+     * be sure to adjust only by full increments.
+     */
+
+    if ((canvasPtr->confine) && (canvasPtr->regionString != NULL)) {
+	left = xOrigin + canvasPtr->inset - canvasPtr->scrollX1;
+	right = canvasPtr->scrollX2
+		- (xOrigin + Tk_Width(canvasPtr->tkwin) - canvasPtr->inset);
+	top = yOrigin + canvasPtr->inset - canvasPtr->scrollY1;
+	bottom = canvasPtr->scrollY2
+		- (yOrigin + Tk_Height(canvasPtr->tkwin) - canvasPtr->inset);
+	if ((left < 0) && (right > 0)) {
+	    delta = (right > -left) ? -left : right;
+	    if (canvasPtr->xScrollIncrement > 0) {
+		delta -= delta % canvasPtr->xScrollIncrement;
+	    }
+	    xOrigin += delta;
+	} else if ((right < 0) && (left > 0)) {
+	    delta = (left > -right) ? -right : left;
+	    if (canvasPtr->xScrollIncrement > 0) {
+		delta -= delta % canvasPtr->xScrollIncrement;
+	    }
+	    xOrigin -= delta;
+	}
+	if ((top < 0) && (bottom > 0)) {
+	    delta = (bottom > -top) ? -top : bottom;
+	    if (canvasPtr->yScrollIncrement > 0) {
+		delta -= delta % canvasPtr->yScrollIncrement;
+	    }
+	    yOrigin += delta;
+	} else if ((bottom < 0) && (top > 0)) {
+	    delta = (top > -bottom) ? -bottom : top;
+	    if (canvasPtr->yScrollIncrement > 0) {
+		delta -= delta % canvasPtr->yScrollIncrement;
+	    }
+	    yOrigin -= delta;
+	}
+    }
+
+    if ((xOrigin == canvasPtr->xOrigin) && (yOrigin == canvasPtr->yOrigin)) {
+	return;
+    }
+
+    /*
+     * Tricky point: must redisplay not only everything that's visible
+     * in the window's final configuration, but also everything that was
+     * visible in the initial configuration.  This is needed because some
+     * item types, like windows, need to know when they move off-screen
+     * so they can explicitly undisplay themselves.
+     */
+
+    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+	    canvasPtr->xOrigin, canvasPtr->yOrigin,
+	    canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin),
+	    canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin));
+    canvasPtr->xOrigin = xOrigin;
+    canvasPtr->yOrigin = yOrigin;
+    canvasPtr->flags |= UPDATE_SCROLLBARS;
+    Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr,
+	    canvasPtr->xOrigin, canvasPtr->yOrigin,
+	    canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin),
+	    canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin));
+}
diff --git a/Tk/generic/tkCanvas.h b/Tk/generic/tkCanvas.h
new file mode 100644
index 0000000..52b3a51
--- /dev/null
+++ b/Tk/generic/tkCanvas.h
@@ -0,0 +1,257 @@
+/*
+ * tkCanvas.h --
+ *
+ *	Declarations shared among all the files that implement
+ *	canvas widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCanvas.h 1.41 96/02/15 18:51:28
+ */
+
+#ifndef _TKCANVAS
+#define _TKCANVAS
+
+#ifndef _TK
+#include "tk.h"
+#endif
+
+/*
+ * The record below describes a canvas widget.  It is made available
+ * to the item procedures so they can access certain shared fields such
+ * as the overall displacement and scale factor for the canvas.
+ */
+
+typedef struct TkCanvas {
+    Tk_Window tkwin;		/* Window that embodies the canvas.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget;  needed, among
+				 * other things, to release resources after
+				 * tkwin has already gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with canvas. */
+    Tcl_Command widgetCmd;	/* Token for canvas's widget command. */
+    Tk_Item *firstItemPtr;	/* First in list of all items in canvas,
+				 * or NULL if canvas empty. */
+    Tk_Item *lastItemPtr;	/* Last in list of all items in canvas,
+				 * or NULL if canvas empty. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    int borderWidth;		/* Width of 3-D border around window. */
+    Tk_3DBorder bgBorder;	/* Used for canvas background. */
+    int relief;			/* Indicates whether window as a whole is
+				 * raised, sunken, or flat. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    GC pixmapGC;		/* Used to copy bits from a pixmap to the
+				 * screen and also to clear the pixmap. */
+    int width, height;		/* Dimensions to request for canvas window,
+				 * specified in pixels. */
+    int redrawX1, redrawY1;	/* Upper left corner of area to redraw,
+				 * in pixel coordinates.  Border pixels
+				 * are included.  Only valid if
+				 * REDRAW_PENDING flag is set. */
+    int redrawX2, redrawY2;	/* Lower right corner of area to redraw,
+				 * in integer canvas coordinates.  Border
+				 * pixels will *not* be redrawn. */
+    int confine;		/* Non-zero means constrain view to keep
+				 * as much of canvas visible as possible. */
+
+    /*
+     * Information used to manage the selection and insertion cursor:
+     */
+
+    Tk_CanvasTextInfo textInfo; /* Contains lots of fields;  see tk.h for
+				 * details.  This structure is shared with
+				 * the code that implements individual items. */
+    int insertOnTime;		/* Number of milliseconds cursor should spend
+				 * in "on" state for each blink. */
+    int insertOffTime;		/* Number of milliseconds cursor should spend
+				 * in "off" state for each blink. */
+    Tcl_TimerToken insertBlinkHandler;
+				/* Timer handler used to blink cursor on and
+				 * off. */
+
+    /*
+     * Transformation applied to canvas as a whole:  to compute screen
+     * coordinates (X,Y) from canvas coordinates (x,y), do the following:
+     *
+     * X = x - xOrigin;
+     * Y = y - yOrigin;
+     */
+
+    int xOrigin, yOrigin;	/* Canvas coordinates corresponding to
+				 * upper-left corner of window, given in
+				 * canvas pixel units. */
+    int drawableXOrigin, drawableYOrigin;
+				/* During redisplay, these fields give the
+				 * canvas coordinates corresponding to
+				 * the upper-left corner of the drawable
+				 * where items are actually being drawn
+				 * (typically a pixmap smaller than the
+				 * whole window). */
+
+    /*
+     * Information used for event bindings associated with items.
+     */
+
+    Tk_BindingTable bindingTable;
+				/* Table of all bindings currently defined
+				 * for this canvas.  NULL means that no
+				 * bindings exist, so the table hasn't been
+				 * created.  Each "object" used for this
+				 * table is either a Tk_Uid for a tag or
+				 * the address of an item named by id. */
+    Tk_Item *currentItemPtr;	/* The item currently containing the mouse
+				 * pointer, or NULL if none. */
+    Tk_Item *newCurrentPtr;	/* The item that is about to become the
+				 * current one, or NULL.  This field is
+				 * used to detect deletions  of the new
+				 * current item pointer that occur during
+				 * Leave processing of the previous current
+				 * item.  */
+    double closeEnough;		/* The mouse is assumed to be inside an
+				 * item if it is this close to it. */
+    XEvent pickEvent;		/* The event upon which the current choice
+				 * of currentItem is based.  Must be saved
+				 * so that if the currentItem is deleted,
+				 * can pick another. */
+    int state;			/* Last known modifier state.  Used to
+				 * defer picking a new current object
+				 * while buttons are down. */
+
+    /*
+     * Information used for managing scrollbars:
+     */
+
+    char *xScrollCmd;		/* Command prefix for communicating with
+				 * horizontal scrollbar.  NULL means no
+				 * horizontal scrollbar.  Malloc'ed*/
+    char *yScrollCmd;		/* Command prefix for communicating with
+				 * vertical scrollbar.  NULL means no
+				 * vertical scrollbar.  Malloc'ed*/
+    int scrollX1, scrollY1, scrollX2, scrollY2;
+				/* These four coordinates define the region
+				 * that is the 100% area for scrolling (i.e.
+				 * these numbers determine the size and
+				 * location of the sliders on scrollbars).
+				 * Units are pixels in canvas coords. */
+    char *regionString;		/* The option string from which scrollX1
+				 * etc. are derived.  Malloc'ed. */
+    int xScrollIncrement;	/* If >0, defines a grid for horizontal
+				 * scrolling.  This is the size of the "unit",
+				 * and the left edge of the screen will always
+				 * lie on an even unit boundary. */
+    int yScrollIncrement;	/* If >0, defines a grid for horizontal
+				 * scrolling.  This is the size of the "unit",
+				 * and the left edge of the screen will always
+				 * lie on an even unit boundary. */
+
+    /*
+     * Information used for scanning:
+     */
+
+    int scanX;			/* X-position at which scan started (e.g.
+				 * button was pressed here). */
+    int scanXOrigin;		/* Value of xOrigin field when scan started. */
+    int scanY;			/* Y-position at which scan started (e.g.
+				 * button was pressed here). */
+    int scanYOrigin;		/* Value of yOrigin field when scan started. */
+
+    /*
+     * Information used to speed up searches by remembering the last item
+     * created or found with an item id search.
+     */
+
+    Tk_Item *hotPtr;		/* Pointer to "hot" item (one that's been
+				 * recently used.  NULL means there's no
+				 * hot item. */
+    Tk_Item *hotPrevPtr;	/* Pointer to predecessor to hotPtr (NULL
+				 * means item is first in list).  This is
+				 * only a hint and may not really be hotPtr's
+				 * predecessor. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    double pixelsPerMM;		/* Scale factor between MM and pixels;
+				 * used when converting coordinates. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+    int nextId;			/* Number to use as id for next item
+				 * created in widget. */
+    struct TkPostscriptInfo *psInfoPtr;
+				/* Pointer to information used for generating
+				 * Postscript for the canvas.  NULL means
+				 * no Postscript is currently being
+				 * generated. */
+} TkCanvas;
+
+/*
+ * Flag bits for canvases:
+ *
+ * REDRAW_PENDING -		1 means a DoWhenIdle handler has already
+ *				been created to redraw some or all of the
+ *				canvas.
+ * REDRAW_BORDERS - 		1 means that the borders need to be redrawn
+ *				during the next redisplay operation.
+ * REPICK_NEEDED -		1 means DisplayCanvas should pick a new
+ *				current item before redrawing the canvas.
+ * GOT_FOCUS -			1 means the focus is currently in this
+ *				widget, so should draw the insertion cursor
+ *				and traversal highlight.
+ * CURSOR_ON -			1 means the insertion cursor is in the "on"
+ *				phase of its blink cycle.  0 means either
+ *				we don't have the focus or the cursor is in
+ *				the "off" phase of its cycle.
+ * UPDATE_SCROLLBARS -		1 means the scrollbars should get updated
+ *				as part of the next display operation.
+ * LEFT_GRABBED_ITEM -		1 means that the mouse left the current
+ *				item while a grab was in effect, so we
+ *				didn't change canvasPtr->currentItemPtr.
+ * REPICK_IN_PROGRESS -		1 means PickCurrentItem is currently
+ *				executing.  If it should be called recursively,
+ *				it should simply return immediately.
+ */
+
+#define REDRAW_PENDING		1
+#define REDRAW_BORDERS		2
+#define REPICK_NEEDED		4
+#define GOT_FOCUS		8
+#define CURSOR_ON		0x10
+#define UPDATE_SCROLLBARS	0x20
+#define LEFT_GRABBED_ITEM	0x40
+#define REPICK_IN_PROGRESS	0x100
+
+/*
+ * Canvas-related procedures that are shared among Tk modules but not
+ * exported to the outside world:
+ */
+
+extern int		TkCanvPostscriptCmd _ANSI_ARGS_((TkCanvas *canvasPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+
+#endif /* _TKCANVAS */
diff --git a/Tk/generic/tkClipboard.c b/Tk/generic/tkClipboard.c
new file mode 100644
index 0000000..6166363
--- /dev/null
+++ b/Tk/generic/tkClipboard.c
@@ -0,0 +1,606 @@
+/*
+ * tkClipboard.c --
+ *
+ * 	This file manages the clipboard for the Tk toolkit,
+ * 	maintaining a collection of data buffers that will be
+ * 	supplied on demand to requesting applications.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkClipboard.c 1.14 96/02/15 18:52:37
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkSelect.h"
+
+/*
+ * Prototypes for procedures used only in this file:
+ */
+
+static int		ClipboardAppHandler _ANSI_ARGS_((ClientData clientData,
+			    int offset, char *buffer, int maxBytes));
+static int		ClipboardHandler _ANSI_ARGS_((ClientData clientData,
+			    int offset, char *buffer, int maxBytes));
+static int		ClipboardWindowHandler _ANSI_ARGS_((
+			    ClientData clientData, int offset, char *buffer,
+			    int maxBytes));
+static void		ClipboardLostSel _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ClipboardHandler --
+ *
+ *	This procedure acts as selection handler for the
+ *	clipboard manager.  It extracts the required chunk of
+ *	data from the buffer chain for a given selection target.
+ *
+ * Results:
+ *	The return value is a count of the number of bytes
+ *	actually stored at buffer.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ClipboardHandler(clientData, offset, buffer, maxBytes)
+    ClientData clientData;	/* Information about data to fetch. */
+    int offset;			/* Return selection bytes starting at this
+				 * offset. */
+    char *buffer;		/* Place to store converted selection. */
+    int maxBytes;		/* Maximum # of bytes to store at buffer. */
+{
+    TkClipboardTarget *targetPtr = (TkClipboardTarget*) clientData;
+    TkClipboardBuffer *cbPtr;
+    char *srcPtr, *destPtr;
+    int count = 0;
+    int scanned = 0;
+    size_t length, freeCount;
+
+    /*
+     * Skip to buffer containing offset byte
+     */
+
+    for (cbPtr = targetPtr->firstBufferPtr; ; cbPtr = cbPtr->nextPtr) {
+	if (cbPtr == NULL) {
+	    return 0;
+	}
+	if (scanned + cbPtr->length > offset) {
+	    break;
+	}
+	scanned += cbPtr->length;
+    }
+
+    /*
+     * Copy up to maxBytes or end of list, switching buffers as needed.
+     */
+
+    freeCount = maxBytes;
+    srcPtr = cbPtr->buffer + (offset - scanned);
+    destPtr = buffer;
+    length = cbPtr->length - (offset - scanned);
+    while (1) {
+	if (length > freeCount) {
+	    strncpy(destPtr, srcPtr, freeCount);
+	    return maxBytes;
+	} else {
+	    strncpy(destPtr, srcPtr, length);
+	    destPtr += length;
+	    count += length;
+	    freeCount -= length;
+	}
+	cbPtr = cbPtr->nextPtr;
+	if (cbPtr == NULL) {
+	    break;
+	}
+	srcPtr = cbPtr->buffer;
+	length = cbPtr->length;
+    }
+    return count;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ClipboardAppHandler --
+ *
+ *	This procedure acts as selection handler for retrievals of type
+ *	TK_APPLICATION.  It returns the name of the application that
+ *	owns the clipboard.  Note:  we can't use the default Tk
+ *	selection handler for this selection type, because the clipboard
+ *	window isn't a "real" window and doesn't have the necessary
+ *	information.
+ *
+ * Results:
+ *	The return value is a count of the number of bytes
+ *	actually stored at buffer.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ClipboardAppHandler(clientData, offset, buffer, maxBytes)
+    ClientData clientData;	/* Pointer to TkDisplay structure. */
+    int offset;			/* Return selection bytes starting at this
+				 * offset. */
+    char *buffer;		/* Place to store converted selection. */
+    int maxBytes;		/* Maximum # of bytes to store at buffer. */
+{
+    TkDisplay *dispPtr = (TkDisplay *) clientData;
+    size_t length;
+    char *p;
+
+    p = dispPtr->clipboardAppPtr->winPtr->nameUid;
+    length = strlen(p);
+    length -= offset;
+    if (length <= 0) {
+	return 0;
+    }
+    if (length > maxBytes) {
+	length = maxBytes;
+    }
+    strncpy(buffer, p, length);
+    return length;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ClipboardWindowHandler --
+ *
+ *	This procedure acts as selection handler for retrievals of
+ *	type TK_WINDOW.  Since the clipboard doesn't correspond to
+ *	any particular window, we just return ".".  We can't use Tk's
+ *	default handler for this selection type, because the clipboard
+ *	window isn't a valid window.
+ *
+ * Results:
+ *	The return value is 1, the number of non-null bytes stored
+ *	at buffer.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ClipboardWindowHandler(clientData, offset, buffer, maxBytes)
+    ClientData clientData;	/* Not used. */
+    int offset;			/* Return selection bytes starting at this
+				 * offset. */
+    char *buffer;		/* Place to store converted selection. */
+    int maxBytes;		/* Maximum # of bytes to store at buffer. */
+{
+    buffer[0] = '.';
+    buffer[1] = 0;
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ClipboardLostSel --
+ *
+ *	This procedure is invoked whenever clipboard ownership is
+ *	claimed by another window.  It just sets a flag so that we
+ *	know the clipboard was taken away.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The clipboard is marked as inactive.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ClipboardLostSel(clientData)
+    ClientData clientData;		/* Pointer to TkDisplay structure. */
+{
+    TkDisplay *dispPtr = (TkDisplay*) clientData;
+
+    dispPtr->clipboardActive = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ClipboardClear --
+ *
+ *	Take control of the clipboard and clear out the previous
+ *	contents.  This procedure must be invoked before any
+ *	calls to Tk_AppendToClipboard.
+ *
+ * Results:
+ *	A standard Tcl result.  If an error occurs, an error message is
+ *	left in interp->result.
+ *
+ * Side effects:
+ *	From now on, requests for the CLIPBOARD selection will be
+ *	directed to the clipboard manager routines associated with
+ *	clipWindow for the display of tkwin.  In order to guarantee
+ *	atomicity, no event handling should occur between
+ *	Tk_ClipboardClear and the following Tk_AppendToClipboard
+ *	calls.  This procedure may cause a user-defined LostSel command 
+ * 	to be invoked when the CLIPBOARD is claimed, so any calling
+ *	function should be reentrant at the point Tk_ClipboardClear is
+ *	invoked.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ClipboardClear(interp, tkwin)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in application that is clearing
+				 * clipboard;  identifies application and
+				 * display. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkClipboardTarget *targetPtr, *nextTargetPtr;
+    TkClipboardBuffer *cbPtr, *nextCbPtr;
+
+    if (dispPtr->clipWindow == NULL) {
+	int result;
+
+	result = TkClipInit(interp, dispPtr);
+	if (result != TCL_OK) {
+	    return result;
+	}
+    }
+
+    /*
+     * Discard any existing clipboard data and delete the selection
+     * handler(s) associated with that data.
+     */
+
+    for (targetPtr = dispPtr->clipTargetPtr; targetPtr != NULL;
+	    targetPtr = nextTargetPtr) {
+	for (cbPtr = targetPtr->firstBufferPtr; cbPtr != NULL;
+		cbPtr = nextCbPtr) {
+	    ckfree(cbPtr->buffer);
+	    nextCbPtr = cbPtr->nextPtr;
+	    ckfree((char *) cbPtr);
+	}
+	nextTargetPtr = targetPtr->nextPtr;
+	Tk_DeleteSelHandler(dispPtr->clipWindow, dispPtr->clipboardAtom,
+		targetPtr->type);
+	ckfree((char *) targetPtr);
+    }
+    dispPtr->clipTargetPtr = NULL;
+
+    /*
+     * Reclaim the clipboard selection if we lost it.
+     */
+
+    if (!dispPtr->clipboardActive) {
+	Tk_OwnSelection(dispPtr->clipWindow, dispPtr->clipboardAtom,
+		ClipboardLostSel, (ClientData) dispPtr);
+	dispPtr->clipboardActive = 1;
+    }
+    dispPtr->clipboardAppPtr = winPtr->mainPtr;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ClipboardAppend --
+ *
+ * 	Append a buffer of data to the clipboard.  The first buffer of
+ *	a given type determines the format for that type.  Any successive
+ *	appends to that type must have the same format or an error will
+ *	be returned.  Tk_ClipboardClear must be called before a sequence
+ *	of Tk_ClipboardAppend calls can be issued.  In order to guarantee
+ *	atomicity, no event handling should occur between Tk_ClipboardClear
+ *	and the following Tk_AppendToClipboard calls.
+ *
+ * Results:
+ *	A standard Tcl result.  If an error is returned, an error message
+ *	is left in interp->result.
+ *
+ * Side effects:
+ * 	The specified buffer will be copied onto the end of the clipboard.
+ *	The clipboard maintains a list of buffers which will be used to
+ *	supply the data for a selection get request.  The first time a given
+ *	type is appended, Tk_ClipboardAppend will register a selection
+ * 	handler of the appropriate type.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ClipboardAppend(interp, tkwin, type, format, buffer)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Window tkwin;		/* Window that selects a display. */
+    Atom type;			/* The desired conversion type for this
+				 * clipboard item, e.g. STRING or LENGTH. */
+    Atom format;		/* Format in which the selection
+				 * information should be returned to
+				 * the requestor. */
+    char* buffer;		/* NULL terminated string containing the data
+				 * to be added to the clipboard. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkClipboardTarget *targetPtr;
+    TkClipboardBuffer *cbPtr;
+
+    /*
+     * If this application doesn't already own the clipboard, clear
+     * the clipboard.  If we don't own the clipboard selection, claim it.
+     */
+
+    if (dispPtr->clipboardAppPtr != winPtr->mainPtr) {
+	Tk_ClipboardClear(interp, tkwin);
+    } else if (!dispPtr->clipboardActive) {
+	Tk_OwnSelection(dispPtr->clipWindow, dispPtr->clipboardAtom,
+		ClipboardLostSel, (ClientData) dispPtr);
+	dispPtr->clipboardActive = 1;
+    }
+
+    /*
+     * Check to see if the specified target is already present on the
+     * clipboard.  If it isn't, we need to create a new target; otherwise,
+     * we just append the new buffer to the clipboard list.
+     */
+
+    for (targetPtr = dispPtr->clipTargetPtr; targetPtr != NULL;
+	    targetPtr = targetPtr->nextPtr) {
+	if (targetPtr->type == type)
+	    break;
+    }
+    if (targetPtr == NULL) {
+	targetPtr = (TkClipboardTarget*) ckalloc(sizeof(TkClipboardTarget));
+	targetPtr->type = type;
+	targetPtr->format = format;
+	targetPtr->firstBufferPtr = targetPtr->lastBufferPtr = NULL;
+	targetPtr->nextPtr = dispPtr->clipTargetPtr;
+	dispPtr->clipTargetPtr = targetPtr;
+	Tk_CreateSelHandler(dispPtr->clipWindow, dispPtr->clipboardAtom,
+		type, ClipboardHandler, (ClientData) targetPtr, format);
+    } else if (targetPtr->format != format) {
+	Tcl_AppendResult(interp, "format \"", Tk_GetAtomName(tkwin, format),
+		"\" does not match current format \"",
+		Tk_GetAtomName(tkwin, targetPtr->format),"\" for ",
+		Tk_GetAtomName(tkwin, type), (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Append a new buffer to the buffer chain.
+     */
+
+    cbPtr = (TkClipboardBuffer*) ckalloc(sizeof(TkClipboardBuffer));
+    cbPtr->nextPtr = NULL;
+    if (targetPtr->lastBufferPtr != NULL) {
+	targetPtr->lastBufferPtr->nextPtr = cbPtr;
+    } else {
+	targetPtr->firstBufferPtr = cbPtr;
+    }
+    targetPtr->lastBufferPtr = cbPtr;
+
+    cbPtr->length = strlen(buffer);
+    cbPtr->buffer = (char *) ckalloc((unsigned) (cbPtr->length + 1));
+    strcpy(cbPtr->buffer, buffer);
+
+    TkSelUpdateClipboard((TkWindow*)(dispPtr->clipWindow), targetPtr);
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ClipboardCmd --
+ *
+ *	This procedure is invoked to process the "clipboard" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ClipboardCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    char *path = NULL;
+    size_t length;
+    int count;
+    char c;
+    char **args;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "append", length) == 0)) {
+	Atom target, format;
+	char *targetName = NULL;
+	char *formatName = NULL;
+
+	for (count = argc-2, args = argv+2; count > 1; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == '-') && (length == 2)) {
+		args++;
+		count--;
+		break;
+	    }
+	    if ((c == 'd') && (strncmp(args[0], "-displayof", length) == 0)) {
+		path = args[1];
+	    } else if ((c == 'f')
+		    && (strncmp(args[0], "-format", length) == 0)) {
+		formatName = args[1];
+	    } else if ((c == 't')
+		    && (strncmp(args[0], "-type", length) == 0)) {
+		targetName = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (count != 1) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " append ?options? data\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (path != NULL) {
+	    tkwin = Tk_NameToWindow(interp, path, tkwin);
+	}
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (targetName != NULL) {
+	    target = Tk_InternAtom(tkwin, targetName);
+	} else {
+	    target = XA_STRING;
+	}
+	if (formatName != NULL) {
+	    format = Tk_InternAtom(tkwin, formatName);
+	} else {
+	    format = XA_STRING;
+	}
+	return Tk_ClipboardAppend(interp, tkwin, target, format, args[0]);
+    } else if ((c == 'c') && (strncmp(argv[1], "clear", length) == 0)) {
+	for (count = argc-2, args = argv+2; count > 0; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    if (count < 2) {
+		Tcl_AppendResult(interp, "value for \"", *args,
+			"\" missing", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == 'd') && (strncmp(args[0], "-displayof", length) == 0)) {
+		path = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (count > 0) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " clear ?options?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (path != NULL) {
+	    tkwin = Tk_NameToWindow(interp, path, tkwin);
+	}
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	return Tk_ClipboardClear(interp, tkwin);
+    } else {
+	sprintf(interp->result,
+		"bad option \"%.50s\": must be clear or append",
+		argv[1]);
+	return TCL_ERROR;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkClipInit --
+ *
+ *	This procedure is called to initialize the window for claiming
+ *	clipboard ownership and for receiving selection get results.  This
+ *	function is called from tkSelect.c as well as tkClipboard.c.
+ *
+ * Results:
+ *	The result is a standard Tcl return value, which is normally TCL_OK.
+ *	If an error occurs then an error message is left in interp->result
+ *	and TCL_ERROR is returned.
+ *
+ * Side effects:
+ *	Sets up the clipWindow and related data structures.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkClipInit(interp, dispPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error
+				 * reporting. */
+    register TkDisplay *dispPtr;/* Display to initialize. */
+{
+    XSetWindowAttributes atts;
+
+    dispPtr->clipTargetPtr = NULL;
+    dispPtr->clipboardActive = 0;
+    dispPtr->clipboardAppPtr = NULL;
+    
+    /*
+     * Create the window used for clipboard ownership and selection retrieval,
+     * and set up an event handler for it.
+     */
+
+    dispPtr->clipWindow = Tk_CreateWindow(interp, (Tk_Window) NULL,
+	    "_clip", DisplayString(dispPtr->display));
+    if (dispPtr->clipWindow == NULL) {
+	return TCL_ERROR;
+    }
+    atts.override_redirect = True;
+    Tk_ChangeWindowAttributes(dispPtr->clipWindow, CWOverrideRedirect, &atts);
+    Tk_MakeWindowExist(dispPtr->clipWindow);
+
+    if (dispPtr->multipleAtom == None) {
+	/*
+	 * Need to invoke selection initialization to make sure that
+	 * atoms we depend on below are defined.
+	 */
+
+	TkSelInit(dispPtr->clipWindow);
+    }
+
+    /*
+     * Create selection handlers for types TK_APPLICATION and TK_WINDOW
+     * on this window.  Can't use the default handlers for these types
+     * because this isn't a full-fledged window.
+     */
+
+    Tk_CreateSelHandler(dispPtr->clipWindow, dispPtr->clipboardAtom,
+	    dispPtr->applicationAtom, ClipboardAppHandler,
+	    (ClientData) dispPtr, XA_STRING);
+    Tk_CreateSelHandler(dispPtr->clipWindow, dispPtr->clipboardAtom,
+	    dispPtr->windowAtom, ClipboardWindowHandler,
+	    (ClientData) dispPtr, XA_STRING);
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkCmds.c b/Tk/generic/tkCmds.c
new file mode 100644
index 0000000..f5f1992
--- /dev/null
+++ b/Tk/generic/tkCmds.c
@@ -0,0 +1,1574 @@
+/* 
+ * tkCmds.c --
+ *
+ *	This file contains a collection of Tk-related Tcl commands
+ *	that didn't fit in any particular file of the toolkit.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCmds.c 1.110 96/04/03 15:54:47
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include <errno.h>
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static Tk_Window	GetDisplayOf _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char **argv));
+static TkWindow *	GetToplevel _ANSI_ARGS_((Tk_Window tkwin));
+static char *		WaitVariableProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static void		WaitVisibilityProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		WaitWindowProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_BellCmd --
+ *
+ *	This procedure is invoked to process the "bell" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_BellCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    size_t length;
+
+    if ((argc != 1) && (argc != 3)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" ?-displayof window?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    if (argc == 3) {
+	length = strlen(argv[1]);
+	if ((length < 2) || (strncmp(argv[1], "-displayof", length) != 0)) {
+	    Tcl_AppendResult(interp, "bad option \"", argv[1],
+		    "\": must be -displayof", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tkwin = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+    }
+    XBell(Tk_Display(tkwin), 0);
+    XForceScreenSaver(Tk_Display(tkwin), ScreenSaverReset);
+    XFlush(Tk_Display(tkwin));
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_BindCmd --
+ *
+ *	This procedure is invoked to process the "bind" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_BindCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr;
+    ClientData object;
+
+    if ((argc < 2) || (argc > 4)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" window ?pattern? ?command?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    if (argv[1][0] == '.') {
+	winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[1], tkwin);
+	if (winPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	object = (ClientData) winPtr->pathName;
+    } else {
+	winPtr = (TkWindow *) clientData;
+	object = (ClientData) Tk_GetUid(argv[1]);
+    }
+
+    if (argc == 4) {
+	int append = 0;
+	unsigned long mask;
+
+	if (argv[3][0] == 0) {
+#ifdef STk_CODE
+	  /* delete the old binding from the callback table */
+	  STk_add_callback(argv[1], argv[2], "", STk_get_NIL_value());
+#endif
+	    return Tk_DeleteBinding(interp, winPtr->mainPtr->bindingTable,
+		    object, argv[2]);
+	}
+#ifdef STk_CODE
+	mask = Tk_CreateBinding(interp, winPtr->mainPtr->bindingTable,
+		object, argv[2], argv[3], argv[1], "");
+#else
+	if (argv[3][0] == '+') {
+	    argv[3]++;
+	    append = 1;
+	}
+	mask = Tk_CreateBinding(interp, winPtr->mainPtr->bindingTable,
+		object, argv[2], argv[3], append);
+#endif
+	if (mask == 0) {
+	    return TCL_ERROR;
+	}
+    } else if (argc == 3) {
+	char *command;
+
+	command = Tk_GetBinding(interp, winPtr->mainPtr->bindingTable,
+		object, argv[2]);
+	if (command == NULL) {
+	    Tcl_ResetResult(interp);
+	    return TCL_OK;
+	}
+	interp->result = command;
+    } else {
+	Tk_GetAllBindings(interp, winPtr->mainPtr->bindingTable, object);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBindEventProc --
+ *
+ *	This procedure is invoked by Tk_HandleEvent for each event;  it
+ *	causes any appropriate bindings for that event to be invoked.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what bindings have been established with the "bind"
+ *	command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBindEventProc(winPtr, eventPtr)
+    TkWindow *winPtr;			/* Pointer to info about window. */
+    XEvent *eventPtr;			/* Information about event. */
+{
+#define MAX_OBJS 20
+    ClientData objects[MAX_OBJS], *objPtr;
+    static Tk_Uid allUid = NULL;
+    TkWindow *topLevPtr;
+    int i, count;
+    char *p;
+    Tcl_HashEntry *hPtr;
+
+    if ((winPtr->mainPtr == NULL) || (winPtr->mainPtr->bindingTable == NULL)) {
+	return;
+    }
+
+    objPtr = objects;
+    if (winPtr->numTags != 0) {
+	/*
+	 * Make a copy of the tags for the window, replacing window names
+	 * with pointers to the pathName from the appropriate window.
+	 */
+
+	if (winPtr->numTags > MAX_OBJS) {
+	    objPtr = (ClientData *) ckalloc((unsigned)
+		    (winPtr->numTags * sizeof(ClientData)));
+	}
+	for (i = 0; i < winPtr->numTags; i++) {
+	    p = (char *) winPtr->tagPtr[i];
+	    if (*p == '.') {
+		hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->nameTable, p);
+		if (hPtr != NULL) {
+		    p = ((TkWindow *) Tcl_GetHashValue(hPtr))->pathName;
+		} else {
+		    p = NULL;
+		}
+	    }
+	    objPtr[i] = (ClientData) p;
+	}
+	count = winPtr->numTags;
+    } else {
+	objPtr[0] = (ClientData) winPtr->pathName;
+	objPtr[1] = (ClientData) winPtr->classUid;
+	for (topLevPtr = winPtr;
+		(topLevPtr != NULL) && !(topLevPtr->flags & TK_TOP_LEVEL);
+		topLevPtr = topLevPtr->parentPtr) {
+	    /* Empty loop body. */
+	}
+	if ((winPtr != topLevPtr) && (topLevPtr != NULL)) {
+	    count = 4;
+	    objPtr[2] = (ClientData) topLevPtr->pathName;
+	} else {
+	    count = 3;
+	}
+	if (allUid == NULL) {
+	    allUid = Tk_GetUid("all");
+	}
+	objPtr[count-1] = (ClientData) allUid;
+    }
+    Tk_BindEvent(winPtr->mainPtr->bindingTable, eventPtr, (Tk_Window) winPtr,
+	    count, objPtr);
+    if (objPtr != objects) {
+	ckfree((char *) objPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_BindtagsCmd --
+ *
+ *	This procedure is invoked to process the "bindtags" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_BindtagsCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr, *winPtr2;
+    int i, tagArgc;
+    char *p, **tagArgv;
+
+    if ((argc < 2) || (argc > 3)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" window ?tags?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[1], tkwin);
+    if (winPtr == NULL) {
+	return TCL_ERROR;
+    }
+    if (argc == 2) {
+#ifdef STk_CODE
+        Tcl_AppendResult(interp, "(", NULL);
+#endif
+	if (winPtr->numTags == 0) {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " #.", winPtr->pathName, NULL);
+	    Tcl_AppendResult(interp, " \"", winPtr->classUid, "\"", NULL);
+#else
+	    Tcl_AppendElement(interp, winPtr->pathName);
+	    Tcl_AppendElement(interp, winPtr->classUid);
+#endif
+	    for (winPtr2 = winPtr;
+		    (winPtr2 != NULL) && !(winPtr2->flags & TK_TOP_LEVEL);
+		    winPtr2 = winPtr2->parentPtr) {
+		/* Empty loop body. */
+	    }
+	    if ((winPtr != winPtr2) && (winPtr2 != NULL)) {
+#ifdef STk_CODE
+		Tcl_AppendResult(interp, " #.", winPtr2->pathName, NULL);
+#else
+		Tcl_AppendElement(interp, winPtr2->pathName);
+#endif
+	    }
+#ifdef STk_CODE
+	    Tcl_AppendElement(interp, "\"all\"");
+#else
+	    Tcl_AppendElement(interp, "all");
+#endif
+	} else {
+	    for (i = 0; i < winPtr->numTags; i++) {
+#ifdef STk_CODE
+	        char *s = winPtr->tagPtr[i];
+		
+		if (*s == '.')
+		  Tcl_AppendResult(interp, " #.", s, NULL);
+		else
+		  Tcl_AppendResult(interp, " \"", s, "\"", NULL);
+#else
+		Tcl_AppendElement(interp, (char *) winPtr->tagPtr[i]);
+#endif
+	    }
+	}
+#ifdef STk_CODE
+        Tcl_AppendResult(interp, ")", NULL);
+#endif
+	return TCL_OK;
+    }
+    if (winPtr->tagPtr != NULL) {
+	TkFreeBindingTags(winPtr);
+    }
+    if (argv[2][0] == 0) {
+	return TCL_OK;
+    }
+    if (Tcl_SplitList(interp, argv[2], &tagArgc, &tagArgv) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    winPtr->numTags = tagArgc;
+    winPtr->tagPtr = (ClientData *) ckalloc((unsigned)
+	    (tagArgc * sizeof(ClientData)));
+    for (i = 0; i < tagArgc; i++) {
+	p = tagArgv[i];
+	if (p[0] == '.') {
+	    char *copy;
+
+	    /*
+	     * Handle names starting with "." specially: store a malloc'ed
+	     * string, rather than a Uid;  at event time we'll look up the
+	     * name in the window table and use the corresponding window,
+	     * if there is one.
+	     */
+
+	    copy = (char *) ckalloc((unsigned) (strlen(p) + 1));
+	    strcpy(copy, p);
+	    winPtr->tagPtr[i] = (ClientData) copy;
+	} else {
+	    winPtr->tagPtr[i] = (ClientData) Tk_GetUid(p);
+	}
+    }
+    ckfree((char *) tagArgv);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkFreeBindingTags --
+ *
+ *	This procedure is called to free all of the binding tags
+ *	associated with a window;  typically it is only invoked where
+ *	there are window-specific tags.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Any binding tags for winPtr are freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkFreeBindingTags(winPtr)
+    TkWindow *winPtr;		/* Window whose tags are to be released. */
+{
+    int i;
+    char *p;
+
+    for (i = 0; i < winPtr->numTags; i++) {
+	p = (char *) (winPtr->tagPtr[i]);
+	if (*p == '.') {
+	    /*
+	     * Names starting with "." are malloced rather than Uids, so
+	     * they have to be freed.
+	     */
+    
+	    ckfree(p);
+	}
+    }
+    ckfree((char *) winPtr->tagPtr);
+    winPtr->numTags = 0;
+    winPtr->tagPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DestroyCmd --
+ *
+ *	This procedure is invoked to process the "destroy" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_DestroyCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window window;
+    Tk_Window tkwin = (Tk_Window) clientData;
+    int i;
+
+    for (i = 1; i < argc; i++) {
+	window = Tk_NameToWindow(interp, argv[i], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	Tk_DestroyWindow(window);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_LowerCmd --
+ *
+ *	This procedure is invoked to process the "lower" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_LowerCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window main = (Tk_Window) clientData;
+    Tk_Window tkwin, other;
+
+    if ((argc != 2) && (argc != 3)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " window ?belowThis?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    tkwin = Tk_NameToWindow(interp, argv[1], main);
+    if (tkwin == NULL) {
+	return TCL_ERROR;
+    }
+    if (argc == 2) {
+	other = NULL;
+    } else {
+	other = Tk_NameToWindow(interp, argv[2], main);
+	if (other == NULL) {
+	    return TCL_ERROR;
+	}
+    }
+    if (Tk_RestackWindow(tkwin, Below, other) != TCL_OK) {
+	Tcl_AppendResult(interp, "can't lower \"", argv[1], "\" below \"",
+		argv[2], "\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_RaiseCmd --
+ *
+ *	This procedure is invoked to process the "raise" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_RaiseCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window main = (Tk_Window) clientData;
+    Tk_Window tkwin, other;
+
+    if ((argc != 2) && (argc != 3)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " window ?aboveThis?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    tkwin = Tk_NameToWindow(interp, argv[1], main);
+    if (tkwin == NULL) {
+	return TCL_ERROR;
+    }
+    if (argc == 2) {
+	other = NULL;
+    } else {
+	other = Tk_NameToWindow(interp, argv[2], main);
+	if (other == NULL) {
+	    return TCL_ERROR;
+	}
+    }
+    if (Tk_RestackWindow(tkwin, Above, other) != TCL_OK) {
+	Tcl_AppendResult(interp, "can't raise \"", argv[1], "\" above \"",
+		argv[2], "\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_TkCmd --
+ *
+ *	This procedure is invoked to process the "tk" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_TkCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    char c;
+    size_t length;
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "appname", length) == 0)) {
+	winPtr = ((TkWindow *) tkwin)->mainPtr->winPtr;
+	if (argc > 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " appname ?newName?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    winPtr->nameUid = Tk_GetUid(Tk_SetAppName(tkwin, argv[2]));
+	}
+#ifdef STk_CODE
+	STk_stringify_result(interp, winPtr->nameUid);
+#else
+	interp->result = winPtr->nameUid;
+#endif
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be appname", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_TkwaitCmd --
+ *
+ *	This procedure is invoked to process the "tkwait" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_TkwaitCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    int c, done;
+    size_t length;
+
+    if (argc != 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " variable|visibility|window name\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'v') && (strncmp(argv[1], "variable", length) == 0)
+	    && (length >= 2)) {
+	if (Tcl_TraceVar(interp, argv[2],
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		WaitVariableProc, (ClientData) &done) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	done = 0;
+	while (!done) {
+	    Tcl_DoOneEvent(0);
+	}
+	Tcl_UntraceVar(interp, argv[2],
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		WaitVariableProc, (ClientData) &done);
+    } else if ((c == 'v') && (strncmp(argv[1], "visibility", length) == 0)
+	    && (length >= 2)) {
+	Tk_Window window;
+
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	Tk_CreateEventHandler(window, VisibilityChangeMask|StructureNotifyMask,
+	    WaitVisibilityProc, (ClientData) &done);
+	done = 0;
+	while (!done) {
+	    Tcl_DoOneEvent(0);
+	}
+	if (done != 1) {
+	    /*
+	     * Note that we do not delete the event handler because it
+	     * was deleted automatically when the window was destroyed.
+	     */
+
+	    Tcl_ResetResult(interp);
+	    Tcl_AppendResult(interp, "window \"", argv[2],
+		    "\" was deleted before its visibility changed",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	Tk_DeleteEventHandler(window, VisibilityChangeMask|StructureNotifyMask,
+	    WaitVisibilityProc, (ClientData) &done);
+    } else if ((c == 'w') && (strncmp(argv[1], "window", length) == 0)) {
+	Tk_Window window;
+
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	Tk_CreateEventHandler(window, StructureNotifyMask,
+	    WaitWindowProc, (ClientData) &done);
+	done = 0;
+	while (!done) {
+	    Tcl_DoOneEvent(0);
+	}
+	/*
+	 * Note:  there's no need to delete the event handler.  It was
+	 * deleted automatically when the window was destroyed.
+	 */
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be variable, visibility, or window", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Clear out the interpreter's result, since it may have been set
+     * by event handlers.
+     */
+
+    Tcl_ResetResult(interp);
+    return TCL_OK;
+}
+
+	/* ARGSUSED */
+static char *
+WaitVariableProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Pointer to integer to set to 1. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    int *donePtr = (int *) clientData;
+
+    *donePtr = 1;
+    return (char *) NULL;
+}
+
+	/*ARGSUSED*/
+static void
+WaitVisibilityProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to integer to set to 1. */
+    XEvent *eventPtr;		/* Information about event (not used). */
+{
+    int *donePtr = (int *) clientData;
+
+    if (eventPtr->type == VisibilityNotify) {
+	*donePtr = 1;
+    }
+    if (eventPtr->type == DestroyNotify) {
+	*donePtr = 2;
+    }
+}
+
+static void
+WaitWindowProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to integer to set to 1. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    int *donePtr = (int *) clientData;
+
+    if (eventPtr->type == DestroyNotify) {
+	*donePtr = 1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_UpdateCmd --
+ *
+ *	This procedure is invoked to process the "update" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_UpdateCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    int flags;
+    Display *display;
+
+    if (argc == 1) {
+	flags = TCL_DONT_WAIT;
+    } else if (argc == 2) {
+	if (strncmp(argv[1], "idletasks", strlen(argv[1])) != 0) {
+	    Tcl_AppendResult(interp, "bad option \"", argv[1],
+		    "\": must be idletasks", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	flags = TCL_IDLE_EVENTS;
+    } else {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " ?idletasks?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Handle all pending events, sync the display, and repeat over
+     * and over again until all pending events have been handled.
+     * Special note:  it's possible that the entire application could
+     * be destroyed by an event handler that occurs during the update.
+     * Thus, don't use any information from tkwin after calling
+     * Tcl_DoOneEvent.
+     */
+
+    display = Tk_Display(tkwin);
+    while (1) {
+	while (Tcl_DoOneEvent(flags) != 0) {
+	    /* Empty loop body */
+	}
+	XSync(display, False);
+	if (Tcl_DoOneEvent(flags) == 0) {
+	    break;
+	}
+    }
+
+    /*
+     * Must clear the interpreter's result because event handlers could
+     * have executed commands.
+     */
+
+    Tcl_ResetResult(interp);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_WinfoCmd --
+ *
+ *	This procedure is invoked to process the "winfo" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_WinfoCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    size_t length;
+    char c, *argName;
+    Tk_Window window;
+    register TkWindow *winPtr;
+
+#define SETUP(name) \
+    if (argc != 3) {\
+	argName = name; \
+	goto wrongArgs; \
+    } \
+    window = Tk_NameToWindow(interp, argv[2], tkwin); \
+    if (window == NULL) { \
+	return TCL_ERROR; \
+    }
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strcmp(argv[1], "atom") == 0)) {
+	char *atomName;
+
+	if (argc == 3) {
+	    atomName = argv[2];
+	} else if (argc == 5) {
+	    atomName = argv[4];
+	    tkwin = GetDisplayOf(interp, tkwin, argv+2);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " atom ?-displayof window? name\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	sprintf(interp->result, "%ld", Tk_InternAtom(tkwin, atomName));
+    } else if ((c == 'a') && (strncmp(argv[1], "atomname", length) == 0)
+	    && (length >= 5)) {
+	Atom atom;
+	char *name, *id;
+
+	if (argc == 3) {
+	    id = argv[2];
+	} else if (argc == 5) {
+	    id = argv[4];
+	    tkwin = GetDisplayOf(interp, tkwin, argv+2);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " atomname ?-displayof window? id\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (Tcl_GetInt(interp, id, (int *) &atom) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	name = Tk_GetAtomName(tkwin, atom);
+	if (strcmp(name, "?bad atom?") == 0) {
+	    Tcl_AppendResult(interp, "no atom exists with id \"",
+		    argv[2], "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	STk_stringify_result(interp, name);
+#else
+	interp->result = name;
+#endif
+    } else if ((c == 'c') && (strncmp(argv[1], "cells", length) == 0)
+	    && (length >= 2)) {
+	SETUP("cells");
+	sprintf(interp->result, "%d", Tk_Visual(window)->map_entries);
+    } else if ((c == 'c') && (strncmp(argv[1], "children", length) == 0)
+	    && (length >= 2)) {
+	SETUP("children");
+#ifdef STk_CODE
+	Tcl_AppendElement(interp, "#.(list ");
+#endif
+	for (winPtr = ((TkWindow *) window)->childList; winPtr != NULL;
+		winPtr = winPtr->nextPtr) {
+	    Tcl_AppendElement(interp, winPtr->pathName);
+	}
+#ifdef STk_CODE
+	Tcl_AppendElement(interp, ")");
+#endif
+    } else if ((c == 'c') && (strncmp(argv[1], "class", length) == 0)
+	    && (length >= 2)) {
+	SETUP("class");
+#ifdef STk_CODE
+	STk_stringify_result(interp, Tk_Class(window));
+#else
+	interp->result = Tk_Class(window);
+#endif
+    } else if ((c == 'c') && (strncmp(argv[1], "colormapfull", length) == 0)
+	    && (length >= 3)) {
+	SETUP("colormapfull");
+	interp->result = (TkCmapStressed(window, Tk_Colormap(window)))
+#ifdef STk_CODE
+		? "#t" : "#f";
+#else
+		? "1" : "0";
+#endif
+    } else if ((c == 'c') && (strncmp(argv[1], "containing", length) == 0)
+	    && (length >= 3)) {
+	int rootX, rootY, index;
+
+	if (argc == 4) {
+	    index = 2;
+	} else if (argc == 6) {
+	    index = 4;
+	    tkwin = GetDisplayOf(interp, tkwin, argv+2);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " containing ?-displayof window? rootX rootY\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((Tk_GetPixels(interp, tkwin, argv[index], &rootX) != TCL_OK)
+		|| (Tk_GetPixels(interp, tkwin, argv[index+1], &rootY)
+		!= TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	window = Tk_CoordsToWindow(rootX, rootY, tkwin);
+	if (window != NULL) {
+#ifdef STk_CODE
+	    STk_sharp_dot_result(interp, Tk_PathName(window));
+	}
+	else {
+	  interp->result = "#f";
+#else
+	    interp->result = Tk_PathName(window);
+#endif
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "depth", length) == 0)) {
+	SETUP("depth");
+	sprintf(interp->result, "%d", Tk_Depth(window));
+    } else if ((c == 'e') && (strncmp(argv[1], "exists", length) == 0)) {
+	if (argc != 3) {
+	    argName = "exists";
+	    goto wrongArgs;
+	}
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if ((window == NULL)
+		|| (((TkWindow *) window)->flags & TK_ALREADY_DEAD)) {
+#ifdef STk_CODE
+	    interp->result = "#f";
+#else
+	    interp->result = "0";
+#endif
+	} else {
+#ifdef STk_CODE
+	    interp->result = "#t";
+#else
+	    interp->result = "1";
+#endif
+	}
+    } else if ((c == 'f') && (strncmp(argv[1], "fpixels", length) == 0)
+	    && (length >= 2)) {
+	double mm, pixels;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " fpixels window number\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tk_GetScreenMM(interp, window, argv[3], &mm) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	pixels = mm * WidthOfScreen(Tk_Screen(window))
+		/ WidthMMOfScreen(Tk_Screen(window));
+	Tcl_PrintDouble(interp, pixels, interp->result);
+    } else if ((c == 'g') && (strncmp(argv[1], "geometry", length) == 0)) {
+	SETUP("geometry");
+	sprintf(interp->result, "%dx%d+%d+%d", Tk_Width(window),
+		Tk_Height(window), Tk_X(window), Tk_Y(window));
+    } else if ((c == 'h') && (strncmp(argv[1], "height", length) == 0)) {
+	SETUP("height");
+	sprintf(interp->result, "%d", Tk_Height(window));
+    } else if ((c == 'i') && (strcmp(argv[1], "id") == 0)) {
+	SETUP("id");
+	Tk_MakeWindowExist(window);
+#ifdef STk_CODE
+	sprintf(interp->result, "#x%x", (unsigned int) Tk_WindowId(window));
+#else
+	sprintf(interp->result, "0x%x", (unsigned int) Tk_WindowId(window));
+#endif
+    } else if ((c == 'i') && (strncmp(argv[1], "interps", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 4) {
+	    tkwin = GetDisplayOf(interp, tkwin, argv+2);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	} else if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " interps ?-displayof window?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return TkGetInterpNames(interp, tkwin);
+    } else if ((c == 'i') && (strncmp(argv[1], "ismapped", length) == 0)
+	    && (length >= 2)) {
+	SETUP("ismapped");
+#ifdef STk_CODE
+	interp->result = Tk_IsMapped(window) ? "#t" : "#f";
+#else
+	interp->result = Tk_IsMapped(window) ? "1" : "0";
+#endif
+    } else if ((c == 'm') && (strncmp(argv[1], "manager", length) == 0)) {
+	SETUP("manager");
+	winPtr = (TkWindow *) window;
+	if (winPtr->geomMgrPtr != NULL) {
+#ifdef STk_CODE
+	    STk_stringify_result(interp, winPtr->geomMgrPtr->name);
+	}
+	else
+	  interp->result = "#f";
+#else
+	    interp->result = winPtr->geomMgrPtr->name;
+	}
+#endif
+    } else if ((c == 'n') && (strncmp(argv[1], "name", length) == 0)) {
+	SETUP("name");
+#ifdef STk_CODE
+	STk_stringify_result(interp, Tk_Name(window));
+#else
+	interp->result = Tk_Name(window);
+#endif
+    } else if ((c == 'p') && (strncmp(argv[1], "parent", length) == 0)) {
+	SETUP("parent");
+	winPtr = (TkWindow *) window;
+	if (winPtr->parentPtr != NULL) {
+#ifdef STk_CODE
+	    STk_sharp_dot_result(interp, winPtr->parentPtr->pathName);
+#else
+	    interp->result = winPtr->parentPtr->pathName;
+#endif
+	}
+    } else if ((c == 'p') && (strncmp(argv[1], "pathname", length) == 0)
+	    && (length >= 2)) {
+	int index, id;
+
+	if (argc == 3) {
+	    index = 2;
+	} else if (argc == 5) {
+	    index = 4;
+	    tkwin = GetDisplayOf(interp, tkwin, argv+2);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " pathname ?-displayof window? id\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (Tcl_GetInt(interp, argv[index], &id) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	window = Tk_IdToWindow(Tk_Display(tkwin), (Window) id);
+	if ((window == NULL) || (((TkWindow *) window)->mainPtr
+		!= ((TkWindow *) tkwin)->mainPtr)) {
+	    Tcl_AppendResult(interp, "window id \"", argv[index],
+		    "\" doesn't exist in this application", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	STk_stringify_result(interp, Tk_PathName(window));
+#else
+	interp->result = Tk_PathName(window);
+#endif
+    } else if ((c == 'p') && (strncmp(argv[1], "pixels", length) == 0)
+	    && (length >= 2)) {
+	int pixels;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " pixels window number\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tk_GetPixels(interp, window, argv[3], &pixels) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	sprintf(interp->result, "%d", pixels);
+    } else if ((c == 'p') && (strcmp(argv[1], "pointerx") == 0)) {
+	int x, y;
+
+	SETUP("pointerx");
+	winPtr = GetToplevel(window);
+	if (winPtr == NULL) {
+	    x = -1;
+	} else {
+	    TkGetPointerCoords((Tk_Window)winPtr, &x, &y);
+	}
+	sprintf(interp->result, "%d", x);
+    } else if ((c == 'p') && (strcmp(argv[1], "pointerxy") == 0)) {
+	int x, y;
+
+	SETUP("pointerxy");
+	winPtr = GetToplevel(window);
+	if (winPtr == NULL) {
+	    x = -1;
+	} else {
+	    TkGetPointerCoords((Tk_Window)winPtr, &x, &y);
+	}
+	sprintf(interp->result, "%d %d", x, y);
+    } else if ((c == 'p') && (strcmp(argv[1], "pointery") == 0)) {
+	int x, y;
+
+	SETUP("pointery");
+	winPtr = GetToplevel(window);
+	if (winPtr == NULL) {
+	    y = -1;
+	} else {
+	    TkGetPointerCoords((Tk_Window)winPtr, &x, &y);
+	}
+	sprintf(interp->result, "%d", y);
+    } else if ((c == 'r') && (strncmp(argv[1], "reqheight", length) == 0)
+	    && (length >= 4)) {
+	SETUP("reqheight");
+	sprintf(interp->result, "%d", Tk_ReqHeight(window));
+    } else if ((c == 'r') && (strncmp(argv[1], "reqwidth", length) == 0)
+	    && (length >= 4)) {
+	SETUP("reqwidth");
+	sprintf(interp->result, "%d", Tk_ReqWidth(window));
+    } else if ((c == 'r') && (strncmp(argv[1], "rgb", length) == 0)
+	    && (length >= 2)) {
+	XColor *colorPtr;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " rgb window colorName\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	colorPtr = Tk_GetColor(interp, window, argv[3]);
+	if (colorPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	sprintf(interp->result, "%d %d %d", colorPtr->red, colorPtr->green,
+		colorPtr->blue);
+	Tk_FreeColor(colorPtr);
+    } else if ((c == 'r') && (strcmp(argv[1], "rootx") == 0)) {
+	int x, y;
+
+	SETUP("rootx");
+	Tk_GetRootCoords(window, &x, &y);
+	sprintf(interp->result, "%d", x);
+    } else if ((c == 'r') && (strcmp(argv[1], "rooty") == 0)) {
+	int x, y;
+
+	SETUP("rooty");
+	Tk_GetRootCoords(window, &x, &y);
+	sprintf(interp->result, "%d", y);
+    } else if ((c == 's') && (strcmp(argv[1], "screen") == 0)) {
+	char string[20];
+
+	SETUP("screen");
+	sprintf(string, "%d", Tk_ScreenNumber(window));
+	Tcl_AppendResult(interp, Tk_DisplayName(window), ".", string,
+		(char *) NULL);
+#ifdef STk_CODE
+	STk_stringify_result(interp, interp->result);
+#endif
+    } else if ((c == 's') && (strncmp(argv[1], "screencells", length) == 0)
+	    && (length >= 7)) {
+	SETUP("screencells");
+	sprintf(interp->result, "%d", CellsOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "screendepth", length) == 0)
+	    && (length >= 7)) {
+	SETUP("screendepth");
+	sprintf(interp->result, "%d", DefaultDepthOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "screenheight", length) == 0)
+	    && (length >= 7)) {
+	SETUP("screenheight");
+	sprintf(interp->result, "%d",  HeightOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "screenmmheight", length) == 0)
+	    && (length >= 9)) {
+	SETUP("screenmmheight");
+	sprintf(interp->result, "%d",  HeightMMOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "screenmmwidth", length) == 0)
+	    && (length >= 9)) {
+	SETUP("screenmmwidth");
+	sprintf(interp->result, "%d",  WidthMMOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "screenvisual", length) == 0)
+	    && (length >= 7)) {
+	SETUP("screenvisual");
+	switch (DefaultVisualOfScreen(Tk_Screen(window))->class) {
+	    case PseudoColor:	interp->result = "pseudocolor"; break;
+	    case GrayScale:	interp->result = "grayscale"; break;
+	    case DirectColor:	interp->result = "directcolor"; break;
+	    case TrueColor:	interp->result = "truecolor"; break;
+	    case StaticColor:	interp->result = "staticcolor"; break;
+	    case StaticGray:	interp->result = "staticgray"; break;
+	    default:		interp->result = "unknown"; break;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "screenwidth", length) == 0)
+	    && (length >= 7)) {
+	SETUP("screenwidth");
+	sprintf(interp->result, "%d",  WidthOfScreen(Tk_Screen(window)));
+    } else if ((c == 's') && (strncmp(argv[1], "server", length) == 0)
+	    && (length >= 2)) {
+	SETUP("server");
+	TkGetServerInfo(interp, window);
+#ifdef STk_CODE
+	{ 
+	  char *s = (char*) STk_stringify(interp->result, 0);
+	  Tcl_SetResult(interp, s, TCL_VOLATILE);
+	}	
+#endif
+    } else if ((c == 't') && (strncmp(argv[1], "toplevel", length) == 0)) {
+	SETUP("toplevel");
+	winPtr = GetToplevel(window);
+	if (winPtr != NULL) {
+#ifdef STk_CODE
+	    STk_sharp_dot_result(interp, winPtr->pathName);
+#else
+	    interp->result = winPtr->pathName;
+#endif
+	}
+    } else if ((c == 'v') && (strncmp(argv[1], "viewable", length) == 0)
+	    && (length >= 3)) {
+	SETUP("viewable");
+	for (winPtr = (TkWindow *) window; ; winPtr = winPtr->parentPtr) {
+	    if ((winPtr == NULL) || !(winPtr->flags & TK_MAPPED)) {
+#ifdef STk_CODE
+		interp->result = "#f";
+#else
+		interp->result = "0";
+#endif
+		break;
+	    }
+	    if (winPtr->flags & TK_TOP_LEVEL) {
+#ifdef STk_CODE
+		interp->result = "#t";
+#else
+		interp->result = "1";
+#endif
+		break;
+	    }
+	}
+    } else if ((c == 'v') && (strcmp(argv[1], "visual") == 0)) {
+	SETUP("visual");
+	switch (Tk_Visual(window)->class) {
+	    case PseudoColor:	interp->result = "pseudocolor"; break;
+	    case GrayScale:	interp->result = "grayscale"; break;
+	    case DirectColor:	interp->result = "directcolor"; break;
+	    case TrueColor:	interp->result = "truecolor"; break;
+	    case StaticColor:	interp->result = "staticcolor"; break;
+	    case StaticGray:	interp->result = "staticgray"; break;
+	    default:		interp->result = "unknown"; break;
+	}
+    } else if ((c == 'v') && (strncmp(argv[1], "visualid", length) == 0)
+	       && (length >= 7)) {
+	SETUP("visualid");
+	sprintf(interp->result, "0x%x", (unsigned int)
+		XVisualIDFromVisual(Tk_Visual(window)));
+    } else if ((c == 'v') && (strncmp(argv[1], "visualsavailable", length) == 0)
+	    && (length >= 7)) {
+	XVisualInfo template, *visInfoPtr;
+	int count, i;
+	char string[70], visualIdString[16], *fmt;
+	int includeVisualId;
+
+	if (argc == 3) {
+	    includeVisualId = 0;
+	} else if ((argc == 4)
+		&& (strncmp(argv[3], "includeids", strlen(argv[3])) == 0)) {
+	    includeVisualId = 1;
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " visualsavailable window ?includeids?\"", 
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	window = Tk_NameToWindow(interp, argv[2], tkwin); 
+	if (window == NULL) { 
+	  return TCL_ERROR; 
+	}
+
+	template.screen = Tk_ScreenNumber(window);
+	visInfoPtr = XGetVisualInfo(Tk_Display(window), VisualScreenMask,
+		&template, &count);
+	if (visInfoPtr == NULL) {
+	    interp->result = "can't find any visuals for screen";
+	    return TCL_ERROR;
+	}
+	for (i = 0; i < count; i++) {
+	    switch (visInfoPtr[i].class) {
+		case PseudoColor:	fmt = "pseudocolor %d"; break;
+		case GrayScale:		fmt = "grayscale %d"; break;
+		case DirectColor:	fmt = "directcolor %d"; break;
+		case TrueColor:		fmt = "truecolor %d"; break;
+		case StaticColor:	fmt = "staticcolor %d"; break;
+		case StaticGray:	fmt = "staticgray %d"; break;
+		default:		fmt = "unknown"; break;
+	    }
+	    sprintf(string, fmt, visInfoPtr[i].depth);
+	    if (includeVisualId) {
+		sprintf(visualIdString, " 0x%x",
+			(unsigned int) visInfoPtr[i].visualid);
+		strcat(string, visualIdString);
+	    }
+	    Tcl_AppendElement(interp, string);
+	}
+	XFree((char *) visInfoPtr);
+    } else if ((c == 'v') && (strncmp(argv[1], "vrootheight", length) == 0)
+	    && (length >= 6)) {
+	int x, y;
+	int width, height;
+
+	SETUP("vrootheight");
+	Tk_GetVRootGeometry(window, &x, &y, &width, &height);
+	sprintf(interp->result, "%d", height);
+    } else if ((c == 'v') && (strncmp(argv[1], "vrootwidth", length) == 0)
+	    && (length >= 6)) {
+	int x, y;
+	int width, height;
+
+	SETUP("vrootwidth");
+	Tk_GetVRootGeometry(window, &x, &y, &width, &height);
+	sprintf(interp->result, "%d", width);
+    } else if ((c == 'v') && (strcmp(argv[1], "vrootx") == 0)) {
+	int x, y;
+	int width, height;
+
+	SETUP("vrootx");
+	Tk_GetVRootGeometry(window, &x, &y, &width, &height);
+	sprintf(interp->result, "%d", x);
+    } else if ((c == 'v') && (strcmp(argv[1], "vrooty") == 0)) {
+	int x, y;
+	int width, height;
+
+	SETUP("vrooty");
+	Tk_GetVRootGeometry(window, &x, &y, &width, &height);
+	sprintf(interp->result, "%d", y);
+    } else if ((c == 'w') && (strncmp(argv[1], "width", length) == 0)) {
+	SETUP("width");
+	sprintf(interp->result, "%d", Tk_Width(window));
+    } else if ((c == 'x') && (argv[1][1] == '\0')) {
+	SETUP("x");
+	sprintf(interp->result, "%d", Tk_X(window));
+    } else if ((c == 'y') && (argv[1][1] == '\0')) {
+	SETUP("y");
+	sprintf(interp->result, "%d", Tk_Y(window));
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be atom, atomname, cells, children, ",
+		"class, colormapfull, containing, depth, exists, fpixels, ",
+		"geometry, height, ",
+		"id, interps, ismapped, manager, name, parent, pathname, ",
+		"pixels, pointerx, pointerxy, pointery, reqheight, ",
+		"reqwidth, rgb, ",
+		"rootx, rooty, ",
+		"screen, screencells, screendepth, screenheight, ",
+		"screenmmheight, screenmmwidth, screenvisual, ",
+		"screenwidth, server, ",
+		"toplevel, viewable, visual, visualid, visualsavailable, ",
+		"vrootheight, vrootwidth, vrootx, vrooty, ",
+		"width, x, or y", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+
+    wrongArgs:
+    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+	    argv[0], " ", argName, " window\"", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetDisplayOf --
+ *
+ *	Parses a "-displayof" option for the "winfo" command.
+ *
+ * Results:
+ *	The return value is a token for the window specified in
+ *	argv[1].  If argv[0] and argv[1] couldn't be parsed, NULL
+ *	is returned and an error is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_Window
+GetDisplayOf(interp, tkwin, argv)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Window to use for looking up window
+				 * given in argv[1]. */
+    char **argv;		/* Array of two strings.   First must be
+				 * "-displayof" or an abbreviation, second
+				 * must be window name. */
+{
+    size_t length;
+
+    length = strlen(argv[0]);
+    if ((length < 2) || (strncmp(argv[0], "-displayof", length) != 0)) {
+	Tcl_AppendResult(interp, "bad argument \"", argv[0],
+		"\": must be -displayof", (char *) NULL);
+	return (Tk_Window) NULL;
+    }
+    return Tk_NameToWindow(interp, argv[1], tkwin);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkDeadAppCmd --
+ *
+ *	If an application has been deleted then all Tk commands will be
+ *	re-bound to this procedure.
+ *
+ * Results:
+ *	A standard Tcl error is reported to let the user know that
+ *	the application is dead.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+TkDeadAppCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Dummy. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tcl_AppendResult(interp, "can't invoke \"", argv[0],
+	    "\" command:  application has been destroyed", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetToplevel --
+ *
+ *	Retrieves the toplevel window which is the nearest ancestor of
+ *	of the specified window.
+ *
+ * Results:
+ *	Returns the toplevel window or NULL if the window has no
+ *	ancestor which is a toplevel.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkWindow *
+GetToplevel(tkwin)
+    Tk_Window tkwin;		/* Window for which the toplevel should be
+				 * deterined. */
+{
+     TkWindow *winPtr = (TkWindow *) tkwin;
+
+     while (!(winPtr->flags & TK_TOP_LEVEL)) {
+	 winPtr = winPtr->parentPtr;
+	 if (winPtr == NULL) {
+	     return NULL;
+	 }
+     }
+     return winPtr;
+}
diff --git a/Tk/generic/tkColor.c b/Tk/generic/tkColor.c
new file mode 100644
index 0000000..8f8d1fe
--- /dev/null
+++ b/Tk/generic/tkColor.c
@@ -0,0 +1,721 @@
+/* 
+ * tkColor.c --
+ *
+ *	This file maintains a database of color values for the Tk
+ *	toolkit, in order to avoid round-trips to the server to
+ *	map color names to pixel values.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkColor.c 1.40 96/03/28 09:12:20
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+#include "tkInt.h"
+
+/*
+ * A two-level data structure is used to manage the color database.
+ * The top level consists of one entry for each color name that is
+ * currently active, and the bottom level contains one entry for each
+ * pixel value that is still in use.  The distinction between
+ * levels is necessary because the same pixel may have several
+ * different names.  There are two hash tables, one used to index into
+ * each of the data structures.  The name hash table is used when
+ * allocating colors, and the pixel hash table is used when freeing
+ * colors.
+ */
+
+/*
+ * One of the following data structures is used to keep track of
+ * each color that this module has allocated from the X display
+ * server.  These entries are indexed by two hash tables defined
+ * below:  nameTable and valueTable.
+ */
+
+#define COLOR_MAGIC ((unsigned int) 0x46140277)
+
+typedef struct TkColor {
+    XColor color;		/* Information about this color. */
+    unsigned int magic;		/* Used for quick integrity check on this
+				 * structure.   Must always have the
+				 * value COLOR_MAGIC. */
+    GC gc;			/* Simple gc with this color as foreground
+				 * color and all other fields defaulted.
+				 * May be None. */
+    Screen *screen;		/* Screen where this color is valid.  Used
+				 * to delete it, and to find its display. */
+    Colormap colormap;		/* Colormap from which this entry was
+				 * allocated. */
+    Visual *visual;             /* Visual associated with colormap. */
+    int refCount;		/* Number of uses of this structure. */
+    Tcl_HashTable *tablePtr;	/* Hash table that indexes this structure
+				 * (needed when deleting structure). */
+    Tcl_HashEntry *hashPtr;	/* Pointer to hash table entry for this
+				 * structure. (for use in deleting entry). */
+} TkColor;
+
+/*
+ * Hash table for name -> TkColor mapping, and key structure used to
+ * index into that table:
+ */
+
+static Tcl_HashTable nameTable;
+typedef struct {
+    Tk_Uid name;		/* Name of desired color. */
+    Colormap colormap;		/* Colormap from which color will be
+				 * allocated. */
+    Display *display;		/* Display for colormap. */
+} NameKey;
+
+/*
+ * Hash table for value -> TkColor mapping, and key structure used to
+ * index into that table:
+ */
+
+static Tcl_HashTable valueTable;
+typedef struct {
+    int red, green, blue;	/* Values for desired color. */
+    Colormap colormap;		/* Colormap from which color will be
+				 * allocated. */
+    Display *display;		/* Display for colormap. */
+} ValueKey;
+
+static int initialized = 0;	/* 0 means static structures haven't been
+				 * initialized yet. */
+
+/*
+ * If a colormap fills up, attempts to allocate new colors from that
+ * colormap will fail.  When that happens, we'll just choose the
+ * closest color from those that are available in the colormap.
+ * One of the following structures will be created for each "stressed"
+ * colormap to keep track of the colors that are available in the
+ * colormap (otherwise we would have to re-query from the server on
+ * each allocation, which would be very slow).  These entries are
+ * flushed after a few seconds, since other clients may release or
+ * reallocate colors over time.
+ */
+
+struct TkStressedCmap {
+    Colormap colormap;			/* X's token for the colormap. */
+    int numColors;			/* Number of entries currently active
+					 * at *colorPtr. */
+    XColor *colorPtr;			/* Pointer to malloc'ed array of all
+					 * colors that seem to be available in
+					 * the colormap.  Some may not actually
+					 * be available, e.g. because they are
+					 * read-write for another client;  when
+					 * we find this out, we remove them
+					 * from the array. */
+    struct TkStressedCmap *nextPtr;	/* Next in list of all stressed
+					 * colormaps for the display. */
+};
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		ColorInit _ANSI_ARGS_((void));
+static void		DeleteStressedCmap _ANSI_ARGS_((Display *display,
+			    Colormap colormap));
+static void		FindClosestColor _ANSI_ARGS_((Tk_Window tkwin,
+			    XColor *desiredColorPtr, XColor *actualColorPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetColor --
+ *
+ *	Given a string name for a color, map the name to a corresponding
+ *	XColor structure.
+ *
+ * Results:
+ *	The return value is a pointer to an XColor structure that
+ *	indicates the red, blue, and green intensities for the color
+ *	given by "name", and also specifies a pixel value to use to
+ *	draw in that color.  If an error occurs, NULL is returned and
+ *	an error message will be left in interp->result.
+ *
+ * Side effects:
+ *	The color is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeColor so that the database is cleaned up when colors
+ *	aren't in use anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XColor *
+Tk_GetColor(interp, tkwin, name)
+    Tcl_Interp *interp;		/* Place to leave error message if
+				 * color can't be found. */
+    Tk_Window tkwin;		/* Window in which color will be used. */
+    Tk_Uid name;		/* Name of color to allocated (in form
+				 * suitable for passing to XParseColor). */
+{
+    NameKey nameKey;
+    Tcl_HashEntry *nameHashPtr;
+    int new;
+    TkColor *tkColPtr;
+    XColor color;
+    Display *display = Tk_Display(tkwin);
+
+    if (!initialized) {
+	ColorInit();
+    }
+
+    /*
+     * First, check to see if there's already a mapping for this color
+     * name.
+     */
+
+    nameKey.name = name;
+    nameKey.colormap = Tk_Colormap(tkwin);
+    nameKey.display = display;
+    nameHashPtr = Tcl_CreateHashEntry(&nameTable, (char *) &nameKey, &new);
+    if (!new) {
+	tkColPtr = (TkColor *) Tcl_GetHashValue(nameHashPtr);
+	tkColPtr->refCount++;
+	return &tkColPtr->color;
+    }
+
+    /*
+     * The name isn't currently known.  Map from the name to a pixel
+     * value.  Call XAllocNamedColor rather than XParseColor for non-# names:
+     * this saves a server round-trip for those names.
+     */
+
+    if (*name != '#') {
+	XColor screen;
+
+	if (XAllocNamedColor(display, nameKey.colormap, name, &screen,
+		&color) != 0) {
+	    DeleteStressedCmap(display, nameKey.colormap);
+	} else {
+	    /*
+	     * Couldn't allocate the color.  Try translating the name to
+	     * a color value, to see whether the problem is a bad color
+	     * name or a full colormap.  If the colormap is full, then
+	     * pick an approximation to the desired color.
+	     */
+
+	    if (XLookupColor(display, nameKey.colormap, name, &color,
+		    &screen) == 0) {
+		Tcl_AppendResult(interp, "unknown color name \"",
+			name, "\"", (char *) NULL);
+		Tcl_DeleteHashEntry(nameHashPtr);
+		return (XColor *) NULL;
+	    }
+	    FindClosestColor(tkwin, &screen, &color);
+	}
+    } else {
+	if (XParseColor(display, nameKey.colormap, name, &color) == 0) {
+	    Tcl_AppendResult(interp, "invalid color name \"", name,
+		    "\"", (char *) NULL);
+	    Tcl_DeleteHashEntry(nameHashPtr);
+	    return (XColor *) NULL;
+	}
+	if (XAllocColor(display, nameKey.colormap, &color) != 0) {
+	    DeleteStressedCmap(display, nameKey.colormap);
+	} else {
+	    FindClosestColor(tkwin, &color, &color);
+	}
+    }
+
+    /*
+     * Now create a new TkColor structure and add it to nameTable.
+     */
+
+    tkColPtr = (TkColor *) ckalloc(sizeof(TkColor));
+    tkColPtr->color = color;
+    tkColPtr->magic = COLOR_MAGIC;
+    tkColPtr->gc = None;
+    tkColPtr->screen = Tk_Screen(tkwin);
+    tkColPtr->colormap = nameKey.colormap;
+    tkColPtr->visual  = Tk_Visual(tkwin);
+    tkColPtr->refCount = 1;
+    tkColPtr->tablePtr = &nameTable;
+    tkColPtr->hashPtr = nameHashPtr;
+    Tcl_SetHashValue(nameHashPtr, tkColPtr);
+
+    return &tkColPtr->color;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetColorByValue --
+ *
+ *	Given a desired set of red-green-blue intensities for a color,
+ *	locate a pixel value to use to draw that color in a given
+ *	window.
+ *
+ * Results:
+ *	The return value is a pointer to an XColor structure that
+ *	indicates the closest red, blue, and green intensities available
+ *	to those specified in colorPtr, and also specifies a pixel
+ *	value to use to draw in that color.
+ *
+ * Side effects:
+ *	The color is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeColor, so that the database is cleaned up when colors
+ *	aren't in use anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XColor *
+Tk_GetColorByValue(tkwin, colorPtr)
+    Tk_Window tkwin;		/* Window where color will be used. */
+    XColor *colorPtr;		/* Red, green, and blue fields indicate
+				 * desired color. */
+{
+    ValueKey valueKey;
+    Tcl_HashEntry *valueHashPtr;
+    int new;
+    TkColor *tkColPtr;
+    Display *display = Tk_Display(tkwin);
+
+    if (!initialized) {
+	ColorInit();
+    }
+
+    /*
+     * First, check to see if there's already a mapping for this color
+     * name.
+     */
+
+    valueKey.red = colorPtr->red;
+    valueKey.green = colorPtr->green;
+    valueKey.blue = colorPtr->blue;
+    valueKey.colormap = Tk_Colormap(tkwin);
+    valueKey.display = display;
+    valueHashPtr = Tcl_CreateHashEntry(&valueTable, (char *) &valueKey, &new);
+    if (!new) {
+	tkColPtr = (TkColor *) Tcl_GetHashValue(valueHashPtr);
+	tkColPtr->refCount++;
+	return &tkColPtr->color;
+    }
+
+    /*
+     * The name isn't currently known.  Find a pixel value for this
+     * color and add a new structure to valueTable.
+     */
+
+    tkColPtr = (TkColor *) ckalloc(sizeof(TkColor));
+    tkColPtr->color.red = valueKey.red;
+    tkColPtr->color.green = valueKey.green;
+    tkColPtr->color.blue = valueKey.blue;
+    if (XAllocColor(display, valueKey.colormap, &tkColPtr->color) != 0) {
+	DeleteStressedCmap(display, valueKey.colormap);
+    } else {
+	FindClosestColor(tkwin, &tkColPtr->color, &tkColPtr->color);
+    }
+    tkColPtr->magic = COLOR_MAGIC;
+    tkColPtr->gc = None;
+    tkColPtr->screen = Tk_Screen(tkwin);
+    tkColPtr->colormap = valueKey.colormap;
+    tkColPtr->visual  = Tk_Visual(tkwin);
+    tkColPtr->refCount = 1;
+    tkColPtr->tablePtr = &valueTable;
+    tkColPtr->hashPtr = valueHashPtr;
+    Tcl_SetHashValue(valueHashPtr, tkColPtr);
+    return &tkColPtr->color;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfColor --
+ *
+ *	Given a color, return a textual string identifying
+ *	the color.
+ *
+ * Results:
+ *	If colorPtr was created by Tk_GetColor, then the return
+ *	value is the "string" that was used to create it.
+ *	Otherwise the return value is a string that could have
+ *	been passed to Tk_GetColor to allocate that color.  The
+ *	storage for the returned string is only guaranteed to
+ *	persist up until the next call to this procedure.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfColor(colorPtr)
+    XColor *colorPtr;		/* Color whose name is desired. */
+{
+    register TkColor *tkColPtr = (TkColor *) colorPtr;
+    static char string[20];
+
+    if ((tkColPtr->magic == COLOR_MAGIC)
+	    && (tkColPtr->tablePtr == &nameTable)) {
+	return ((NameKey *) tkColPtr->hashPtr->key.words)->name;
+    }
+    sprintf(string, "#%04x%04x%04x", colorPtr->red, colorPtr->green,
+	    colorPtr->blue);
+    return string;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GCForColor --
+ *
+ *	Given a color allocated from this module, this procedure
+ *	returns a GC that can be used for simple drawing with that
+ *	color.
+ *
+ * Results:
+ *	The return value is a GC with color set as its foreground
+ *	color and all other fields defaulted.  This GC is only valid
+ *	as long as the color exists;  it is freed automatically when
+ *	the last reference to the color is freed.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+GC
+Tk_GCForColor(colorPtr, drawable)
+    XColor *colorPtr;		/* Color for which a GC is desired. Must
+				 * have been allocated by Tk_GetColor or
+				 * Tk_GetColorByName. */
+    Drawable drawable;		/* Drawable in which the color will be
+				 * used (must have same screen and depth
+				 * as the one for which the color was
+				 * allocated). */
+{
+    TkColor *tkColPtr = (TkColor *) colorPtr;
+    XGCValues gcValues;
+
+    /*
+     * Do a quick sanity check to make sure this color was really
+     * allocated by Tk_GetColor.
+     */
+
+    if (tkColPtr->magic != COLOR_MAGIC) {
+	panic("Tk_GCForColor called with bogus color");
+    }
+
+    if (tkColPtr->gc == None) {
+	gcValues.foreground = tkColPtr->color.pixel;
+	tkColPtr->gc = XCreateGC(DisplayOfScreen(tkColPtr->screen),
+		drawable, GCForeground, &gcValues);
+    }
+    return tkColPtr->gc;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeColor --
+ *
+ *	This procedure is called to release a color allocated by
+ *	Tk_GetColor.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The reference count associated with colorPtr is deleted, and
+ *	the color is released to X if there are no remaining uses
+ *	for it.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeColor(colorPtr)
+    XColor *colorPtr;		/* Color to be released.  Must have been
+				 * allocated by Tk_GetColor or
+				 * Tk_GetColorByValue. */
+{
+    register TkColor *tkColPtr = (TkColor *) colorPtr;
+    Visual *visual;
+    Screen *screen = tkColPtr->screen;
+
+    /*
+     * Do a quick sanity check to make sure this color was really
+     * allocated by Tk_GetColor.
+     */
+
+    if (tkColPtr->magic != COLOR_MAGIC) {
+	panic("Tk_FreeColor called with bogus color");
+    }
+
+    tkColPtr->refCount--;
+    if (tkColPtr->refCount == 0) {
+
+	/*
+	 * Careful!  Don't free black or white, since this will
+	 * make some servers very unhappy.  Also, there is a bug in
+	 * some servers (such Sun's X11/NeWS server) where reference
+	 * counting is performed incorrectly, so that if a color is
+	 * allocated twice in different places and then freed twice,
+	 * the second free generates an error (this bug existed as of
+	 * 10/1/92).  To get around this problem, ignore errors that
+	 * occur during the free operation.
+	 */
+
+	visual = tkColPtr->visual;
+	if ((visual->class != StaticGray) && (visual->class != StaticColor)
+		&& (tkColPtr->color.pixel != BlackPixelOfScreen(screen))
+		&& (tkColPtr->color.pixel != WhitePixelOfScreen(screen))) {
+	    Tk_ErrorHandler handler;
+
+	    handler = Tk_CreateErrorHandler(DisplayOfScreen(screen),
+		    -1, -1, -1, (Tk_ErrorProc *) NULL, (ClientData) NULL);
+	    XFreeColors(DisplayOfScreen(screen), tkColPtr->colormap,
+		    &tkColPtr->color.pixel, 1, 0L);
+	    Tk_DeleteErrorHandler(handler);
+	}
+	if (tkColPtr->gc != None) {
+	    XFreeGC(DisplayOfScreen(screen), tkColPtr->gc);
+	}
+	DeleteStressedCmap(DisplayOfScreen(screen), tkColPtr->colormap);
+	Tcl_DeleteHashEntry(tkColPtr->hashPtr);
+	tkColPtr->magic = 0;
+	ckfree((char *) tkColPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ColorInit --
+ *
+ *	Initialize the structure used for color management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ColorInit()
+{
+    initialized = 1;
+    Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
+    Tcl_InitHashTable(&valueTable, sizeof(ValueKey)/sizeof(int));
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindClosestColor --
+ *
+ *	When Tk can't allocate a color because a colormap has filled
+ *	up, this procedure is called to find and allocate the closest
+ *	available color in the colormap.
+ *
+ * Results:
+ *	There is no return value, but *actualColorPtr is filled in
+ *	with information about the closest available color in tkwin's
+ *	colormap.  This color has been allocated via X, so it must
+ *	be released by the caller when the caller is done with it.
+ *
+ * Side effects:
+ *	A color is allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FindClosestColor(tkwin, desiredColorPtr, actualColorPtr)
+    Tk_Window tkwin;			/* Window where color will be used. */
+    XColor *desiredColorPtr;		/* RGB values of color that was
+					 * wanted (but unavailable). */
+    XColor *actualColorPtr;		/* Structure to fill in with RGB and
+					 * pixel for closest available
+					 * color. */
+{
+    TkStressedCmap *stressPtr;
+    float tmp, distance, closestDistance;
+    int i, closest, numFound;
+    XColor *colorPtr;
+    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
+    Colormap colormap = Tk_Colormap(tkwin);
+    XVisualInfo template, *visInfoPtr;
+
+    /*
+     * Find the TkStressedCmap structure for this colormap, or create
+     * a new one if needed.
+     */
+
+    for (stressPtr = dispPtr->stressPtr; ; stressPtr = stressPtr->nextPtr) {
+	if (stressPtr == NULL) {
+	    stressPtr = (TkStressedCmap *) ckalloc(sizeof(TkStressedCmap));
+	    stressPtr->colormap = colormap;
+	    template.visualid = XVisualIDFromVisual(Tk_Visual(tkwin));
+	    visInfoPtr = XGetVisualInfo(Tk_Display(tkwin),
+		    VisualIDMask, &template, &numFound);
+	    if (numFound < 1) {
+		panic("FindClosestColor couldn't lookup visual");
+	    }
+	    stressPtr->numColors = visInfoPtr->colormap_size;
+	    XFree((char *) visInfoPtr);
+	    stressPtr->colorPtr = (XColor *) ckalloc((unsigned)
+		    (stressPtr->numColors * sizeof(XColor)));
+	    for (i = 0; i  < stressPtr->numColors; i++) {
+		stressPtr->colorPtr[i].pixel = (unsigned long) i;
+	    }
+	    XQueryColors(dispPtr->display, colormap, stressPtr->colorPtr,
+		    stressPtr->numColors);
+	    stressPtr->nextPtr = dispPtr->stressPtr;
+	    dispPtr->stressPtr = stressPtr;
+	    break;
+	}
+	if (stressPtr->colormap == colormap) {
+	    break;
+	}
+    }
+
+    /*
+     * Find the color that best approximates the desired one, then
+     * try to allocate that color.  If that fails, it must mean that
+     * the color was read-write (so we can't use it, since it's owner
+     * might change it) or else it was already freed.  Try again,
+     * over and over again, until something succeeds.
+     */
+
+    while (1)  {
+	if (stressPtr->numColors == 0) {
+	    panic("FindClosestColor ran out of colors");
+	}
+	closestDistance = 1e30;
+	closest = 0;
+	for (colorPtr = stressPtr->colorPtr, i = 0; i < stressPtr->numColors;
+		colorPtr++, i++) {
+	    /*
+	     * Use Euclidean distance in RGB space, weighted by Y (of YIQ)
+	     * as the objective function;  this accounts for differences
+	     * in the color sensitivity of the eye.
+	     */
+    
+	    tmp = .30*(((int) desiredColorPtr->red) - (int) colorPtr->red);
+	    distance = tmp*tmp;
+	    tmp = .61*(((int) desiredColorPtr->green) - (int) colorPtr->green);
+	    distance += tmp*tmp;
+	    tmp = .11*(((int) desiredColorPtr->blue) - (int) colorPtr->blue);
+	    distance += tmp*tmp;
+	    if (distance < closestDistance) {
+		closest = i;
+		closestDistance = distance;
+	    }
+	}
+	if (XAllocColor(dispPtr->display, colormap,
+		&stressPtr->colorPtr[closest]) != 0) {
+	    *actualColorPtr = stressPtr->colorPtr[closest];
+	    return;
+	}
+
+	/*
+	 * Couldn't allocate the color.  Remove it from the table and
+	 * go back to look for the next best color.
+	 */
+
+	stressPtr->colorPtr[closest] =
+		stressPtr->colorPtr[stressPtr->numColors-1];
+	stressPtr->numColors -= 1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCmapStressed --
+ *
+ *	Check to see whether a given colormap is known to be out
+ *	of entries.
+ *
+ * Results:
+ *	1 is returned if "colormap" is stressed (i.e. it has run out
+ *	of entries recently), 0 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkCmapStressed(tkwin, colormap)
+    Tk_Window tkwin;		/* Window that identifies the display
+				 * containing the colormap. */
+    Colormap colormap;		/* Colormap to check for stress. */
+{
+    TkStressedCmap *stressPtr;
+
+    for (stressPtr = ((TkWindow *) tkwin)->dispPtr->stressPtr;
+	    stressPtr != NULL; stressPtr = stressPtr->nextPtr) {
+	if (stressPtr->colormap == colormap) {
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteStressedCmap --
+ *
+ *	This procedure releases the information cached for "colormap"
+ *	so that it will be refetched from the X server the next time
+ *	it is needed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The TkStressedCmap structure for colormap is deleted;  the
+ *	colormap is no longer considered to be "stressed".
+ *
+ * Note:
+ *	This procedure is invoked whenever a color in a colormap is
+ *	freed, and whenever a color allocation in a colormap succeeds.
+ *	This guarantees that TkStressedCmap structures are always
+ *	deleted before the corresponding Colormap is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteStressedCmap(display, colormap)
+    Display *display;		/* Xlib's handle for the display
+				 * containing the colormap. */
+    Colormap colormap;		/* Colormap to flush. */
+{
+    TkStressedCmap *prevPtr, *stressPtr;
+    TkDisplay *dispPtr = TkGetDisplay(display);
+
+    for (prevPtr = NULL, stressPtr = dispPtr->stressPtr; stressPtr != NULL;
+	    prevPtr = stressPtr, stressPtr = stressPtr->nextPtr) {
+	if (stressPtr->colormap == colormap) {
+	    if (prevPtr == NULL) {
+		dispPtr->stressPtr = stressPtr->nextPtr;
+	    } else {
+		prevPtr->nextPtr = stressPtr->nextPtr;
+	    }
+	    ckfree((char *) stressPtr->colorPtr);
+	    ckfree((char *) stressPtr);
+	    return;
+	}
+    }
+}
diff --git a/Tk/generic/tkConfig.c b/Tk/generic/tkConfig.c
new file mode 100644
index 0000000..11a3a88
--- /dev/null
+++ b/Tk/generic/tkConfig.c
@@ -0,0 +1,1273 @@
+/* 
+ * tkConfig.c --
+ *
+ *	This file contains the Tk_ConfigureWidget procedure.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkConfig.c 1.52 96/02/15 18:52:39
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+
+/*
+ * Values for "flags" field of Tk_ConfigSpec structures.  Be sure
+ * to coordinate these values with those defined in tk.h
+ * (TK_CONFIG_COLOR_ONLY, etc.).  There must not be overlap!
+ *
+ * INIT -		Non-zero means (char *) things have been
+ *			converted to Tk_Uid's.
+ */
+
+#define INIT		0x20
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		DoConfig _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specPtr,
+			    Tk_Uid value, int valueIsUid, char *widgRec));
+static Tk_ConfigSpec *	FindConfigSpec _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_ConfigSpec *specs, char *argvName,
+			    int needFlags, int hateFlags));
+static char *		FormatConfigInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specPtr,
+			    char *widgRec));
+#ifdef STk_CODE
+static char *		FormatConfigValue _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specPtr,
+			    char *widgRec, char *buffer,
+			    Tcl_FreeProc **freeProcPtr, int* stringp));
+#else
+static char *		FormatConfigValue _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_ConfigSpec *specPtr,
+			    char *widgRec, char *buffer,
+			    Tcl_FreeProc **freeProcPtr));
+#endif
+
+#ifdef STk_CODE
+
+/* This UGLY code is used only for menus items.
+ * It saves in the static variable menu_addr the addresse of the menu item
+ * we are configuring. This addresse is necessary for storing the closure
+ * associated to the "command" of a menu item. Address will be used to associate 
+ * a unique signature to this item
+ */
+
+static void *menu_addr = NULL;
+
+int
+Tk_Menu_ConfigureWidget(interp, addr, tkwin, specs, argc, argv, widgRec, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    void * addr;		/* address of the menu item */
+    Tk_Window tkwin;		/* Window containing widget (needed to
+				 * set up X resources). */
+    Tk_ConfigSpec *specs;	/* Describes legal options. */
+    int argc;			/* Number of elements in argv. */
+    char **argv;		/* Command-line options. */
+    char *widgRec;		/* Record whose fields are to be
+				 * modified.  Values must be properly
+				 * initialized. */
+    int flags;			/* Used to specify additional flags
+				 * that must be present in config specs
+				 * for them to be considered.  Also,
+				 * may have TK_CONFIG_ARGV_ONLY set. */
+{
+  int res ;
+  
+  /* This is a fluid-let :-) */
+  menu_addr = addr;
+  res = Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags);
+  menu_addr = NULL;
+  return res;
+}
+#endif
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ConfigureWidget --
+ *
+ *	Process command-line options and database options to
+ *	fill in fields of a widget record with resources and
+ *	other parameters.
+ *
+ * Results:
+ *	A standard Tcl return value.  In case of an error,
+ *	interp->result will hold an error message.
+ *
+ * Side effects:
+ *	The fields of widgRec get filled in with information
+ *	from argc/argv and the option database.  Old information
+ *	in widgRec's fields gets recycled.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Window containing widget (needed to
+				 * set up X resources). */
+    Tk_ConfigSpec *specs;	/* Describes legal options. */
+    int argc;			/* Number of elements in argv. */
+    char **argv;		/* Command-line options. */
+    char *widgRec;		/* Record whose fields are to be
+				 * modified.  Values must be properly
+				 * initialized. */
+    int flags;			/* Used to specify additional flags
+				 * that must be present in config specs
+				 * for them to be considered.  Also,
+				 * may have TK_CONFIG_ARGV_ONLY set. */
+{
+    register Tk_ConfigSpec *specPtr;
+    Tk_Uid value;		/* Value of option from database. */
+    int needFlags;		/* Specs must contain this set of flags
+				 * or else they are not considered. */
+    int hateFlags;		/* If a spec contains any bits here, it's
+				 * not considered. */
+
+    needFlags = flags & ~(TK_CONFIG_USER_BIT - 1);
+    if (Tk_Depth(tkwin) <= 1) {
+	hateFlags = TK_CONFIG_COLOR_ONLY;
+    } else {
+	hateFlags = TK_CONFIG_MONO_ONLY;
+    }
+
+    /*
+     * Pass one:  scan through all the option specs, replacing strings
+     * with Tk_Uids (if this hasn't been done already) and clearing
+     * the TK_CONFIG_OPTION_SPECIFIED flags.
+     */
+
+    for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
+	if (!(specPtr->specFlags & INIT) && (specPtr->argvName != NULL)) {
+	    if (specPtr->dbName != NULL) {
+		specPtr->dbName = Tk_GetUid(specPtr->dbName);
+	    }
+	    if (specPtr->dbClass != NULL) {
+		specPtr->dbClass = Tk_GetUid(specPtr->dbClass);
+	    }
+	    if (specPtr->defValue != NULL) {
+		specPtr->defValue = Tk_GetUid(specPtr->defValue);
+	    }
+	}
+	specPtr->specFlags = (specPtr->specFlags & ~TK_CONFIG_OPTION_SPECIFIED)
+		| INIT;
+    }
+
+    /*
+     * Pass two:  scan through all of the arguments, processing those
+     * that match entries in the specs.
+     */
+
+    for ( ; argc > 0; argc -= 2, argv += 2) {
+	specPtr = FindConfigSpec(interp, specs, *argv, needFlags, hateFlags);
+	if (specPtr == NULL) {
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Process the entry.
+	 */
+
+	if (argc < 2) {
+	    Tcl_AppendResult(interp, "value for \"", *argv,
+		    "\" missing", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (DoConfig(interp, tkwin, specPtr, argv[1], 0, widgRec) != TCL_OK) {
+	    char msg[100];
+
+	    sprintf(msg, "\n    (processing \"%.40s\" option)",
+		    specPtr->argvName);
+	    Tcl_AddErrorInfo(interp, msg);
+	    return TCL_ERROR;
+	}
+	specPtr->specFlags |= TK_CONFIG_OPTION_SPECIFIED;
+    }
+
+    /*
+     * Pass three:  scan through all of the specs again;  if no
+     * command-line argument matched a spec, then check for info
+     * in the option database.  If there was nothing in the
+     * database, then use the default.
+     */
+
+    if (!(flags & TK_CONFIG_ARGV_ONLY)) {
+	for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
+	    if ((specPtr->specFlags & TK_CONFIG_OPTION_SPECIFIED)
+		    || (specPtr->argvName == NULL)
+		    || (specPtr->type == TK_CONFIG_SYNONYM)) {
+		continue;
+	    }
+	    if (((specPtr->specFlags & needFlags) != needFlags)
+		    || (specPtr->specFlags & hateFlags)) {
+		continue;
+	    }
+	    value = NULL;
+	    if (specPtr->dbName != NULL) {
+		value = Tk_GetOption(tkwin, specPtr->dbName, specPtr->dbClass);
+	    }
+	    if (value != NULL) {
+		if (DoConfig(interp, tkwin, specPtr, value, 1, widgRec) !=
+			TCL_OK) {
+		    char msg[200];
+    
+		    sprintf(msg, "\n    (%s \"%.50s\" in widget \"%.50s\")",
+			    "database entry for",
+			    specPtr->dbName, Tk_PathName(tkwin));
+		    Tcl_AddErrorInfo(interp, msg);
+		    return TCL_ERROR;
+		}
+	    } else {
+		value = specPtr->defValue;
+		if ((value != NULL) && !(specPtr->specFlags
+			& TK_CONFIG_DONT_SET_DEFAULT)) {
+		    if (DoConfig(interp, tkwin, specPtr, value, 1, widgRec) !=
+			    TCL_OK) {
+			char msg[200];
+	
+			sprintf(msg,
+				"\n    (%s \"%.50s\" in widget \"%.50s\")",
+				"default value for",
+				specPtr->dbName, Tk_PathName(tkwin));
+			Tcl_AddErrorInfo(interp, msg);
+			return TCL_ERROR;
+		    }
+		}
+	    }
+	}
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FindConfigSpec --
+ *
+ *	Search through a table of configuration specs, looking for
+ *	one that matches a given argvName.
+ *
+ * Results:
+ *	The return value is a pointer to the matching entry, or NULL
+ *	if nothing matched.  In that case an error message is left
+ *	in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static Tk_ConfigSpec *
+FindConfigSpec(interp, specs, argvName, needFlags, hateFlags)
+    Tcl_Interp *interp;		/* Used for reporting errors. */
+    Tk_ConfigSpec *specs;	/* Pointer to table of configuration
+				 * specifications for a widget. */
+    char *argvName;		/* Name (suitable for use in a "config"
+				 * command) identifying particular option. */
+    int needFlags;		/* Flags that must be present in matching
+				 * entry. */
+    int hateFlags;		/* Flags that must NOT be present in
+				 * matching entry. */
+{
+    register Tk_ConfigSpec *specPtr;
+    register char c;		/* First character of current argument. */
+    Tk_ConfigSpec *matchPtr;	/* Matching spec, or NULL. */
+    size_t length;
+
+    c = argvName[1];
+    length = strlen(argvName);
+    matchPtr = NULL;
+    for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
+	if (specPtr->argvName == NULL) {
+	    continue;
+	}
+	if ((specPtr->argvName[1] != c)
+		|| (strncmp(specPtr->argvName, argvName, length) != 0)) {
+	    continue;
+	}
+	if (((specPtr->specFlags & needFlags) != needFlags)
+		|| (specPtr->specFlags & hateFlags)) {
+	    continue;
+	}
+	if (specPtr->argvName[length] == 0) {
+	    matchPtr = specPtr;
+	    goto gotMatch;
+	}
+	if (matchPtr != NULL) {
+	    Tcl_AppendResult(interp, "ambiguous option \"", argvName,
+		    "\"", (char *) NULL);
+	    return (Tk_ConfigSpec *) NULL;
+	}
+	matchPtr = specPtr;
+    }
+
+    if (matchPtr == NULL) {
+	Tcl_AppendResult(interp, "unknown option \"", argvName,
+		"\"", (char *) NULL);
+	return (Tk_ConfigSpec *) NULL;
+    }
+
+    /*
+     * Found a matching entry.  If it's a synonym, then find the
+     * entry that it's a synonym for.
+     */
+
+    gotMatch:
+    specPtr = matchPtr;
+    if (specPtr->type == TK_CONFIG_SYNONYM) {
+	for (specPtr = specs; ; specPtr++) {
+	    if (specPtr->type == TK_CONFIG_END) {
+		Tcl_AppendResult(interp,
+			"couldn't find synonym for option \"",
+			argvName, "\"", (char *) NULL);
+		return (Tk_ConfigSpec *) NULL;
+	    }
+	    if ((specPtr->dbName == matchPtr->dbName) 
+		    && (specPtr->type != TK_CONFIG_SYNONYM)
+		    && ((specPtr->specFlags & needFlags) == needFlags)
+		    && !(specPtr->specFlags & hateFlags)) {
+		break;
+	    }
+	}
+    }
+    return specPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DoConfig --
+ *
+ *	This procedure applies a single configuration option
+ *	to a widget record.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *	WidgRec is modified as indicated by specPtr and value.
+ *	The old value is recycled, if that is appropriate for
+ *	the value type.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Window containing widget (needed to
+				 * set up X resources). */
+    Tk_ConfigSpec *specPtr;	/* Specifier to apply. */
+    char *value;		/* Value to use to fill in widgRec. */
+    int valueIsUid;		/* Non-zero means value is a Tk_Uid;
+				 * zero means it's an ordinary string. */
+    char *widgRec;		/* Record whose fields are to be
+				 * modified.  Values must be properly
+				 * initialized. */
+{
+    char *ptr;
+    Tk_Uid uid;
+    int nullValue;
+
+    nullValue = 0;
+    if ((*value == 0) && (specPtr->specFlags & TK_CONFIG_NULL_OK)) {
+	nullValue = 1;
+    }
+
+    do {
+	ptr = widgRec + specPtr->offset;
+	switch (specPtr->type) {
+	    case TK_CONFIG_BOOLEAN:
+		if (Tcl_GetBoolean(interp, value, (int *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_INT:
+		if (Tcl_GetInt(interp, value, (int *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_DOUBLE:
+		if (Tcl_GetDouble(interp, value, (double *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+#ifdef STk_CODE
+	    case TK_CONFIG_CLOSURE: {
+	        char buffer[50], *s = "";
+		SCM p;
+
+		if (*value) {
+		  if (!STk_valid_callback(value, &p)) {
+		  BadSpec:	
+		    Tcl_AppendResult(interp, "bad closure specification \"",
+				             value, "\"", (char *) NULL);
+		    return TCL_ERROR;
+		  }
+		  if (p != NULL) {
+		    if (menu_addr != NULL) {
+		      sprintf(buffer, "%x", menu_addr);
+		      s = buffer;
+		    }
+		    
+		    /* add this closure to the callback table */
+		    STk_add_callback(Tk_PathName(tkwin), specPtr->argvName, s, p);
+		  }
+		}
+	    }
+	    /* NOBREAK */
+	    /* And now continue to register this command as a string */
+	    case TK_CONFIG_SINT:
+	    case TK_CONFIG_SBOOLEAN:
+	    case TK_CONFIG_BSTRING:
+#endif
+	    case TK_CONFIG_STRING: {
+		char *old, *new;
+
+		if (nullValue) {
+		    new = NULL;
+		} else {
+		    new = (char *) ckalloc((unsigned) (strlen(value) + 1));
+		    strcpy(new, value);
+		}
+		old = *((char **) ptr);
+		if (old != NULL) {
+		    ckfree(old);
+		}
+		*((char **) ptr) = new;
+		break;
+	    }
+#ifdef STk_CODE
+	    case TK_CONFIG_MENU: {
+		char *old, *new;
+
+		if (nullValue) {
+		    new = NULL;
+		} else {
+		    new = (char *) ckalloc((unsigned) (strlen(value) + 3));
+		    new[0] = '#';
+		    new[1] = '.';
+		    strcpy(new+2, value);
+		}
+		old = *((char **) ptr);
+		if (old != NULL) {
+		    ckfree(old);
+		}
+		*((char **) ptr) = new;
+		break;
+	    }
+
+#endif
+	    case TK_CONFIG_UID:
+		if (nullValue) {
+		    *((Tk_Uid *) ptr) = NULL;
+		} else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    *((Tk_Uid *) ptr) = uid;
+		}
+		break;
+	    case TK_CONFIG_COLOR: {
+		XColor *newPtr, *oldPtr;
+
+		if (nullValue) {
+		    newPtr = NULL;
+		} else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    newPtr = Tk_GetColor(interp, tkwin, uid);
+		    if (newPtr == NULL) {
+			return TCL_ERROR;
+		    }
+		}
+		oldPtr = *((XColor **) ptr);
+		if (oldPtr != NULL) {
+		    Tk_FreeColor(oldPtr);
+		}
+		*((XColor **) ptr) = newPtr;
+		break;
+	    }
+	    case TK_CONFIG_FONT: {
+		XFontStruct *newPtr, *oldPtr;
+
+		if (nullValue) {
+		    newPtr = NULL;
+		} else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    newPtr = Tk_GetFontStruct(interp, tkwin, uid);
+		    if (newPtr == NULL) {
+			return TCL_ERROR;
+		    }
+		}
+		oldPtr = *((XFontStruct **) ptr);
+		if (oldPtr != NULL) {
+		    Tk_FreeFontStruct(oldPtr);
+		}
+		*((XFontStruct **) ptr) = newPtr;
+		break;
+	    }
+	    case TK_CONFIG_BITMAP: {
+		Pixmap new, old;
+
+		if (nullValue) {
+		    new = None;
+	        } else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    new = Tk_GetBitmap(interp, tkwin, uid);
+		    if (new == None) {
+			return TCL_ERROR;
+		    }
+		}
+		old = *((Pixmap *) ptr);
+		if (old != None) {
+		    Tk_FreeBitmap(Tk_Display(tkwin), old);
+		}
+		*((Pixmap *) ptr) = new;
+		break;
+	    }
+	    case TK_CONFIG_BORDER: {
+		Tk_3DBorder new, old;
+
+		if (nullValue) {
+		    new = NULL;
+		} else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    new = Tk_Get3DBorder(interp, tkwin, uid);
+		    if (new == NULL) {
+			return TCL_ERROR;
+		    }
+		}
+		old = *((Tk_3DBorder *) ptr);
+		if (old != NULL) {
+		    Tk_Free3DBorder(old);
+		}
+		*((Tk_3DBorder *) ptr) = new;
+		break;
+	    }
+	    case TK_CONFIG_RELIEF:
+		uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		if (Tk_GetRelief(interp, uid, (int *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_CURSOR:
+	    case TK_CONFIG_ACTIVE_CURSOR: {
+		Tk_Cursor new, old;
+
+		if (nullValue) {
+		    new = None;
+		} else {
+		    uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		    new = Tk_GetCursor(interp, tkwin, uid);
+		    if (new == None) {
+			return TCL_ERROR;
+		    }
+		}
+		old = *((Tk_Cursor *) ptr);
+		if (old != None) {
+		    Tk_FreeCursor(Tk_Display(tkwin), old);
+		}
+		*((Tk_Cursor *) ptr) = new;
+		if (specPtr->type == TK_CONFIG_ACTIVE_CURSOR) {
+		    Tk_DefineCursor(tkwin, new);
+		}
+		break;
+	    }
+	    case TK_CONFIG_JUSTIFY:
+		uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		if (Tk_GetJustify(interp, uid, (Tk_Justify *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_ANCHOR:
+		uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		if (Tk_GetAnchor(interp, uid, (Tk_Anchor *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_CAP_STYLE:
+		uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		if (Tk_GetCapStyle(interp, uid, (int *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_JOIN_STYLE:
+		uid = valueIsUid ? (Tk_Uid) value : Tk_GetUid(value);
+		if (Tk_GetJoinStyle(interp, uid, (int *) ptr) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_PIXELS:
+		if (Tk_GetPixels(interp, tkwin, value, (int *) ptr)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_MM:
+		if (Tk_GetScreenMM(interp, tkwin, value, (double *) ptr)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    case TK_CONFIG_WINDOW: {
+		Tk_Window tkwin2;
+
+		if (nullValue) {
+		    tkwin2 = NULL;
+		} else {
+		    tkwin2 = Tk_NameToWindow(interp, value, tkwin);
+		    if (tkwin2 == NULL) {
+			return TCL_ERROR;
+		    }
+		}
+		*((Tk_Window *) ptr) = tkwin2;
+		break;
+	    }
+	    case TK_CONFIG_CUSTOM:
+		if ((*specPtr->customPtr->parseProc)(
+			specPtr->customPtr->clientData, interp, tkwin,
+			value, widgRec, specPtr->offset) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		break;
+	    default: {
+		sprintf(interp->result, "bad config table: unknown type %d",
+			specPtr->type);
+		return TCL_ERROR;
+	    }
+	}
+	specPtr++;
+    } while ((specPtr->argvName == NULL) && (specPtr->type != TK_CONFIG_END));
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ConfigureInfo --
+ *
+ *	Return information about the configuration options
+ *	for a window, and their current values.
+ *
+ * Results:
+ *	Always returns TCL_OK.  Interp->result will be modified
+ *	hold a description of either a single configuration option
+ *	available for "widgRec" via "specs", or all the configuration
+ *	options available.  In the "all" case, the result will
+ *	available for "widgRec" via "specs".  The result will
+ *	be a list, each of whose entries describes one option.
+ *	Each entry will itself be a list containing the option's
+ *	name for use on command lines, database name, database
+ *	class, default value, and current value (empty string
+ *	if none).  For options that are synonyms, the list will
+ *	contain only two values:  name and synonym name.  If the
+ *	"name" argument is non-NULL, then the only information
+ *	returned is that for the named argument (i.e. the corresponding
+ *	entry in the overall list is returned).
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Window corresponding to widgRec. */
+    Tk_ConfigSpec *specs;	/* Describes legal options. */
+    char *widgRec;		/* Record whose fields contain current
+				 * values for options. */
+    char *argvName;		/* If non-NULL, indicates a single option
+				 * whose info is to be returned.  Otherwise
+				 * info is returned for all options. */
+    int flags;			/* Used to specify additional flags
+				 * that must be present in config specs
+				 * for them to be considered. */
+{
+    register Tk_ConfigSpec *specPtr;
+    int needFlags, hateFlags;
+    char *list;
+#ifdef STk_CODE
+    char *leader = "(";
+#else
+    char *leader = "{";
+#endif
+
+    needFlags = flags & ~(TK_CONFIG_USER_BIT - 1);
+    if (Tk_Depth(tkwin) <= 1) {
+	hateFlags = TK_CONFIG_COLOR_ONLY;
+    } else {
+	hateFlags = TK_CONFIG_MONO_ONLY;
+    }
+
+    /*
+     * If information is only wanted for a single configuration
+     * spec, then handle that one spec specially.
+     */
+
+    Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+    if (argvName != NULL) {
+	specPtr = FindConfigSpec(interp, specs, argvName, needFlags,
+		hateFlags);
+	if (specPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	interp->result = FormatConfigInfo(interp, tkwin, specPtr, widgRec);
+	interp->freeProc = TCL_DYNAMIC;
+	return TCL_OK;
+    }
+
+    /*
+     * Loop through all the specs, creating a big list with all
+     * their information.
+     */
+
+    for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
+	if ((argvName != NULL) && (specPtr->argvName != argvName)) {
+	    continue;
+	}
+	if (((specPtr->specFlags & needFlags) != needFlags)
+		|| (specPtr->specFlags & hateFlags)) {
+	    continue;
+	}
+	if (specPtr->argvName == NULL) {
+	    continue;
+	}
+	list = FormatConfigInfo(interp, tkwin, specPtr, widgRec);
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, leader, list, ")", (char *) NULL);
+	ckfree(list);
+	leader = " (";
+#else
+	Tcl_AppendResult(interp, leader, list, "}", (char *) NULL);
+	ckfree(list);
+	leader = " {";
+#endif
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FormatConfigInfo --
+ *
+ *	Create a valid Tcl list holding the configuration information
+ *	for a single configuration option.
+ *
+ * Results:
+ *	A Tcl list, dynamically allocated.  The caller is expected to
+ *	arrange for this list to be freed eventually.
+ *
+ * Side effects:
+ *	Memory is allocated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static char *
+FormatConfigInfo(interp, tkwin, specPtr, widgRec)
+    Tcl_Interp *interp;			/* Interpreter to use for things
+					 * like floating-point precision. */
+    Tk_Window tkwin;			/* Window corresponding to widget. */
+    register Tk_ConfigSpec *specPtr;	/* Pointer to information describing
+					 * option. */
+    char *widgRec;			/* Pointer to record holding current
+					 * values of info for widget. */
+{
+    char *argv[6], *result;
+#ifdef STk_CODE
+#   define MAX_BUFFER 200
+    char buffer[MAX_BUFFER], dflt[MAX_BUFFER];
+    int len, stringp;
+#else
+    char buffer[200];
+#endif
+    Tcl_FreeProc *freeProc = (Tcl_FreeProc *) NULL;
+
+    argv[0] = specPtr->argvName;
+    argv[1] = specPtr->dbName;
+    argv[2] = specPtr->dbClass;
+    argv[3] = specPtr->defValue;
+    if (specPtr->type == TK_CONFIG_SYNONYM) {
+#ifdef STk_CODE
+      result = ckalloc(strlen(argv[0]) + strlen(argv [1]) + 4);
+      sprintf(result, ":%s \"%s\"", argv[0]+1, argv [1]);
+      return result;
+#else
+	return Tcl_Merge(2, argv);
+#endif
+    }
+#ifdef STk_CODE
+    argv[4] = FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer,
+	    &freeProc, &stringp);
+#else
+    argv[4] = FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer,
+	    &freeProc);
+#endif
+    if (argv[1] == NULL) {
+	argv[1] = "";
+    }
+    if (argv[2] == NULL) {
+	argv[2] = "";
+    }
+#ifdef STk_CODE
+    /* 
+     * Default value of an option (the one at index 3) can contain weird 
+     * characters (e.g. fonts can contain '#'). Quote it if necessary.
+     */
+    if (argv[3] == NULL) {
+	argv[3] = "\"\"";
+    }
+    else if (stringp) {
+      sprintf(dflt, "\"%s\"", argv[3]);
+      argv[3] = dflt;		
+    }
+    if (argv[4] == NULL) {
+	argv[4] = "\"\"";
+    }  
+    len = strlen(argv[0])+strlen(argv[1])+strlen(argv[2])+
+          strlen(argv[3])+strlen(argv[4]) + 9; /* 4 spaces, 4 quotes  and a null */
+
+    /* copy argv array in the result string  and subsitute "-" by ":" 
+     * in option name. Quote also the name and the class of the
+     * Qutotication is a little bit simplistic here, but those parameters 
+     * are identifier (a priori)
+     */
+    result = ckalloc(len);      
+    sprintf(result, ":%s \"%s\" \"%s\" %s %s", 
+	    	    argv[0]+1,argv[1],argv[2],argv[3],argv[4]);
+#else
+    if (argv[3] == NULL) {
+	argv[3] = "";
+    }
+    if (argv[4] == NULL) {
+	argv[4] = "";
+    }
+    result = Tcl_Merge(5, argv);
+#endif
+    if (freeProc != NULL) {
+	if ((freeProc == TCL_DYNAMIC) || (freeProc == (Tcl_FreeProc *) free)) {
+	    ckfree(argv[4]);
+	} else {
+	    (*freeProc)(argv[4]);
+	}
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FormatConfigValue --
+ *
+ *	This procedure formats the current value of a configuration
+ *	option.
+ *
+ * Results:
+ *	The return value is the formatted value of the option given
+ *	by specPtr and widgRec.  If the value is static, so that it
+ *	need not be freed, *freeProcPtr will be set to NULL;  otherwise
+ *	*freeProcPtr will be set to the address of a procedure to
+ *	free the result, and the caller must invoke this procedure
+ *	when it is finished with the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static char *
+#ifndef STk_CODE
+FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr)
+#else
+FormatConfigValue(interp, tkwin, specPtr, widgRec, buffer, freeProcPtr, stringp)
+#endif
+    Tcl_Interp *interp;		/* Interpreter for use in real conversions. */
+    Tk_Window tkwin;		/* Window corresponding to widget. */
+    Tk_ConfigSpec *specPtr;	/* Pointer to information describing option.
+				 * Must not point to a synonym option. */
+    char *widgRec;		/* Pointer to record holding current
+				 * values of info for widget. */
+    char *buffer;		/* Static buffer to use for small values.
+				 * Must have at least 200 bytes of storage. */
+    Tcl_FreeProc **freeProcPtr;	/* Pointer to word to fill in with address
+				 * of procedure to free the result, or NULL
+				 * if result is static. */
+#ifdef STk_CODE
+    int *stringp;		/* 1 if the default value of this configuration 
+				 * option is a string
+				 */
+#endif
+{
+    char *ptr, *result;
+
+#ifdef STk_CODE
+    *stringp = 1;
+#endif
+    *freeProcPtr = NULL;
+    ptr = widgRec + specPtr->offset;
+    result = "";
+    switch (specPtr->type) {
+	case TK_CONFIG_BOOLEAN:
+#ifdef STk_CODE
+	    *stringp = 0;
+	    /* NO BREAK */
+        case TK_CONFIG_SBOOLEAN:
+	    return (*((int *) ptr) == 0) ? "#f" : "#t";
+#else
+	    if (*((int *) ptr) == 0) {
+		result = "0";
+	    } else {
+		result = "1";
+	    }
+	    break;
+#endif
+	case TK_CONFIG_INT:
+	    sprintf(buffer, "%d", *((int *) ptr));
+#ifdef STk_CODE
+	    *stringp = 0;
+	    return buffer;
+#else
+	    result = buffer;
+	    break;
+#endif
+	case TK_CONFIG_DOUBLE:
+	    Tcl_PrintDouble(interp, *((double *) ptr), buffer);
+#ifdef STk_CODE
+	    *stringp = 0;
+	    return buffer;
+#else
+	    result = buffer;
+	    break;
+#endif
+#ifdef STk_CODE
+	case TK_CONFIG_SINT:
+	    *stringp = 0;
+	    result   = (*(char **) ptr);
+	    if (result == NULL) result = "0";
+	    return result;
+        case TK_CONFIG_MENU:
+	    *stringp = 0;
+	    result   = (*(char **) ptr);
+	    if (result == NULL) result = "#f";
+	    return result;
+        case TK_CONFIG_CLOSURE:
+	    result = (*(char **) ptr);
+	    if (result == NULL) {
+	      result = "";
+	      break;
+	    }
+	    else {
+	      *stringp = 0;
+	      return result;
+	    }
+        case TK_CONFIG_BSTRING:
+	    *stringp = 0;
+	    /* NO BREAK */
+#endif
+	case TK_CONFIG_STRING:
+	    result = (*(char **) ptr);
+	    if (result == NULL) {
+		result = "";
+	    }
+	    break;
+	case TK_CONFIG_UID: {
+	    Tk_Uid uid = *((Tk_Uid *) ptr);
+	    if (uid != NULL) {
+		result = uid;
+	    }
+	    break;
+	}
+	case TK_CONFIG_COLOR: {
+	    XColor *colorPtr = *((XColor **) ptr);
+	    if (colorPtr != NULL) {
+		result = Tk_NameOfColor(colorPtr);
+	    }
+	    break;
+	}
+	case TK_CONFIG_FONT: {
+	    XFontStruct *fontStructPtr = *((XFontStruct **) ptr);
+	    if (fontStructPtr != NULL) {
+		result = Tk_NameOfFontStruct(fontStructPtr);
+	    }
+	    break;
+	}
+	case TK_CONFIG_BITMAP: {
+	    Pixmap pixmap = *((Pixmap *) ptr);
+	    if (pixmap != None) {
+		result = Tk_NameOfBitmap(Tk_Display(tkwin), pixmap);
+	    }
+	    break;
+	}
+	case TK_CONFIG_BORDER: {
+	    Tk_3DBorder border = *((Tk_3DBorder *) ptr);
+	    if (border != NULL) {
+		result = Tk_NameOf3DBorder(border);
+	    }
+	    break;
+	}
+	case TK_CONFIG_RELIEF:
+	    result = Tk_NameOfRelief(*((int *) ptr));
+	    break;
+	case TK_CONFIG_CURSOR:
+	case TK_CONFIG_ACTIVE_CURSOR: {
+	    Tk_Cursor cursor = *((Tk_Cursor *) ptr);
+	    if (cursor != None) {
+		result = Tk_NameOfCursor(Tk_Display(tkwin), cursor);
+	    }
+	    break;
+	}
+	case TK_CONFIG_JUSTIFY:
+	    result = Tk_NameOfJustify(*((Tk_Justify *) ptr));
+	    break;
+	case TK_CONFIG_ANCHOR:
+	    result = Tk_NameOfAnchor(*((Tk_Anchor *) ptr));
+	    break;
+	case TK_CONFIG_CAP_STYLE:
+	    result = Tk_NameOfCapStyle(*((int *) ptr));
+	    break;
+	case TK_CONFIG_JOIN_STYLE:
+	    result = Tk_NameOfJoinStyle(*((int *) ptr));
+	    break;
+	case TK_CONFIG_PIXELS:
+	    sprintf(buffer, "%d", *((int *) ptr));
+#ifdef STk_CODE
+	    *stringp = 0; /* most of the time correct "2c" will be seen as 
+			   * the symbol 2c but this should be rare */
+	    return buffer;
+#else
+	    result = buffer;
+	    break;
+#endif
+	case TK_CONFIG_MM:
+	    Tcl_PrintDouble(interp, *((double *) ptr), buffer);
+#ifdef STk_CODE
+	    *stringp = 0;
+	    return buffer;
+#else
+	    result = buffer;
+	    break;
+#endif
+	case TK_CONFIG_WINDOW: {
+	    Tk_Window tkwin;
+
+	    tkwin = *((Tk_Window *) ptr);
+	    if (tkwin != NULL) {
+		result = Tk_PathName(tkwin);
+	    }
+	    break;
+	}
+	case TK_CONFIG_CUSTOM:
+	    result = (*specPtr->customPtr->printProc)(
+		    specPtr->customPtr->clientData, tkwin, widgRec,
+		    specPtr->offset, freeProcPtr);
+#ifdef STk_CODE
+	    *stringp = 0;
+	    return result;
+#endif
+	    break;
+	default: 
+	    result = "?? unknown type ??";
+    }
+#ifdef STk_CODE
+    /* result contain a value which must be converted to a string */
+    if (result == NULL) {
+      return  "\"\"";
+    }
+    else {
+      register char *s, *d;
+      int len;
+      char *r      	    = buffer;
+      Tcl_FreeProc *oldFree = *freeProcPtr;
+
+      *freeProcPtr = (Tcl_FreeProc *) NULL;
+      len          = strlen(result);
+
+      if (len > (200/2)-3) {
+	r = ckalloc(len * 2 + 3); /* worst overestimation */
+	*freeProcPtr = (Tcl_FreeProc *) free;
+      }
+
+      d = r; *d++ = '"';
+      for (s = result; *s; s++, d++) {
+	if (*s == '"' || *s == '\\') *d++ = '\\';
+	*d = *s;
+      }
+      *d++ = '"';
+      *d   = '\0';
+
+      if (oldFree != NULL) {
+	/* 
+	 * oldFree could be non NULL iff we have TK_CONFIG_CUSTOM before.
+	 * In this case result points something which must be unallocated
+	 *
+	 */
+	if (oldFree == (Tcl_FreeProc *) free) {
+	    ckfree(result);
+	} else {
+	    (*oldFree)(result);
+	}
+      }
+      return r;
+    }
+#else
+    return result;
+#endif
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ConfigureValue --
+ *
+ *	This procedure returns the current value of a configuration
+ *	option for a widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl completion code (TCL_OK or
+ *	TCL_ERROR).  Interp->result will be set to hold either the value
+ *	of the option given by argvName (if TCL_OK is returned) or
+ *	an error message (if TCL_ERROR is returned).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Window corresponding to widgRec. */
+    Tk_ConfigSpec *specs;	/* Describes legal options. */
+    char *widgRec;		/* Record whose fields contain current
+				 * values for options. */
+    char *argvName;		/* Gives the command-line name for the
+				 * option whose value is to be returned. */
+    int flags;			/* Used to specify additional flags
+				 * that must be present in config specs
+				 * for them to be considered. */
+{
+    Tk_ConfigSpec *specPtr;
+    int needFlags, hateFlags;
+#ifdef STk_CODE
+    int dumb;
+#endif
+
+    needFlags = flags & ~(TK_CONFIG_USER_BIT - 1);
+    if (Tk_Depth(tkwin) <= 1) {
+	hateFlags = TK_CONFIG_COLOR_ONLY;
+    } else {
+	hateFlags = TK_CONFIG_MONO_ONLY;
+    }
+    specPtr = FindConfigSpec(interp, specs, argvName, needFlags, hateFlags);
+    if (specPtr == NULL) {
+	return TCL_ERROR;
+    }
+#ifdef STk_CODE
+    interp->result = FormatConfigValue(interp, tkwin, specPtr, widgRec,
+	    interp->result, &interp->freeProc, &dumb);
+#else
+    interp->result = FormatConfigValue(interp, tkwin, specPtr, widgRec,
+	    interp->result, &interp->freeProc);
+#endif
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeOptions --
+ *
+ *	Free up all resources associated with configuration options.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Any resource in widgRec that is controlled by a configuration
+ *	option (e.g. a Tk_3DBorder or XColor) is freed in the appropriate
+ *	fashion.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+Tk_FreeOptions(specs, widgRec, display, needFlags)
+    Tk_ConfigSpec *specs;	/* Describes legal options. */
+    char *widgRec;		/* Record whose fields contain current
+				 * values for options. */
+    Display *display;		/* X display; needed for freeing some
+				 * resources. */
+    int needFlags;		/* Used to specify additional flags
+				 * that must be present in config specs
+				 * for them to be considered. */
+{
+    register Tk_ConfigSpec *specPtr;
+    char *ptr;
+
+    for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
+	if ((specPtr->specFlags & needFlags) != needFlags) {
+	    continue;
+	}
+	ptr = widgRec + specPtr->offset;
+	switch (specPtr->type) {
+#ifdef STk_CODE
+	    case TK_CONFIG_CLOSURE:
+	    case TK_CONFIG_MENU:
+	    case TK_CONFIG_SINT:
+	    case TK_CONFIG_SBOOLEAN:
+	    case TK_CONFIG_BSTRING:
+#endif
+	    case TK_CONFIG_STRING:
+		if (*((char **) ptr) != NULL) {
+		    ckfree(*((char **) ptr));
+		    *((char **) ptr) = NULL;
+		}
+		break;
+	    case TK_CONFIG_COLOR:
+		if (*((XColor **) ptr) != NULL) {
+		    Tk_FreeColor(*((XColor **) ptr));
+		    *((XColor **) ptr) = NULL;
+		}
+		break;
+	    case TK_CONFIG_FONT:
+		if (*((XFontStruct **) ptr) != NULL) {
+		    Tk_FreeFontStruct(*((XFontStruct **) ptr));
+		    *((XFontStruct **) ptr) = NULL;
+		}
+		break;
+	    case TK_CONFIG_BITMAP:
+		if (*((Pixmap *) ptr) != None) {
+		    Tk_FreeBitmap(display, *((Pixmap *) ptr));
+		    *((Pixmap *) ptr) = None;
+		}
+		break;
+	    case TK_CONFIG_BORDER:
+		if (*((Tk_3DBorder *) ptr) != NULL) {
+		    Tk_Free3DBorder(*((Tk_3DBorder *) ptr));
+		    *((Tk_3DBorder *) ptr) = NULL;
+		}
+		break;
+	    case TK_CONFIG_CURSOR:
+	    case TK_CONFIG_ACTIVE_CURSOR:
+		if (*((Tk_Cursor *) ptr) != None) {
+		    Tk_FreeCursor(display, *((Tk_Cursor *) ptr));
+		    *((Tk_Cursor *) ptr) = None;
+		}
+	}
+    }
+}
diff --git a/Tk/generic/tkConsole.c b/Tk/generic/tkConsole.c
new file mode 100644
index 0000000..3c5ba1c
--- /dev/null
+++ b/Tk/generic/tkConsole.c
@@ -0,0 +1,543 @@
+/* 
+ * tkConsole.c --
+ *
+ *	This file implements a Tcl console for systems that may not
+ *	otherwise have access to a console.  It uses the Text widget
+ *	and provides special access via a console command.
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkConsole.c 1.37 96/04/20 15:17:32
+ */
+
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type holds information for each console
+ * which a handler (i.e. a Tcl command) has been defined for a particular
+ * top-level window.
+ */
+
+typedef struct ConsoleInfo {
+    Tcl_Interp *consoleInterp;	/* Interpreter for the console. */
+    Tcl_Interp *interp;		/* Interpreter to send console commands. */
+} ConsoleInfo;
+
+static Tcl_Interp *gStdoutInterp = NULL;
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int	ConsoleCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+static void 	ConsoleDeleteProc _ANSI_ARGS_((ClientData clientData));
+static void	ConsoleEventProc _ANSI_ARGS_((ClientData clientData,
+		    XEvent *eventPtr));
+static int	InterpreterCmd _ANSI_ARGS_((ClientData clientData,
+		    Tcl_Interp *interp, int argc, char **argv));
+
+static int		ConsoleInput _ANSI_ARGS_((ClientData instanceData,
+			    Tcl_File inFile, char *buf, int toRead,
+			    int *errorCode));
+static int		ConsoleOutput _ANSI_ARGS_((ClientData instanceData,
+			    Tcl_File outFile, char *buf, int toWrite,
+			    int *errorCode));
+static int		ConsoleClose _ANSI_ARGS_((ClientData instanceData,
+			    Tcl_Interp *interp, Tcl_File inFile, 
+			    Tcl_File outFile));
+
+/*
+ * This structure describes the channel type structure for file based IO:
+ */
+
+static Tcl_ChannelType consoleChannelType = {
+    "console",			/* Type name. */
+    NULL,			/* Always non-blocking.*/
+    ConsoleClose,		/* Close proc. */
+    ConsoleInput,		/* Input proc. */
+    ConsoleOutput,		/* Output proc. */
+    NULL,			/* Seek proc. */
+    NULL,			/* Set option proc. */
+    NULL,			/* Get option proc. */
+};
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkConsoleCreate --
+ *
+ * 	Create the console channels and install them as the standard
+ * 	channels.  All I/O will be discarded until TkConsoleInit is
+ * 	called to attach the console to a text widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Creates the console channel and installs it as the standard
+ *	channels.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkConsoleCreate()
+{
+    Tcl_Channel consoleChannel;
+    Tcl_File inFile, outFile, errFile;
+
+    inFile = Tcl_GetFile((ClientData) 0, 0);
+    outFile = Tcl_GetFile((ClientData) 1, 0);
+    errFile = Tcl_GetFile((ClientData) 2, 0);
+
+    consoleChannel = Tcl_CreateChannel(&consoleChannelType, "console0",
+	    inFile, NULL, (ClientData) NULL);
+    if (consoleChannel != NULL) {
+	Tcl_SetChannelOption(NULL, consoleChannel, "-translation", "lf");
+	Tcl_SetChannelOption(NULL, consoleChannel, "-buffering", "none");
+    }
+    Tcl_SetStdChannel(consoleChannel, TCL_STDIN);
+    consoleChannel = Tcl_CreateChannel(&consoleChannelType, "console1",
+	    NULL, outFile, (ClientData) NULL);
+    if (consoleChannel != NULL) {
+	Tcl_SetChannelOption(NULL, consoleChannel, "-translation", "lf");
+	Tcl_SetChannelOption(NULL, consoleChannel, "-buffering", "none");
+    }
+    Tcl_SetStdChannel(consoleChannel, TCL_STDOUT);
+    consoleChannel = Tcl_CreateChannel(&consoleChannelType, "console2",
+	    NULL, errFile, (ClientData) NULL);
+    if (consoleChannel != NULL) {
+	Tcl_SetChannelOption(NULL, consoleChannel, "-translation", "lf");
+	Tcl_SetChannelOption(NULL, consoleChannel, "-buffering", "none");
+    }
+    Tcl_SetStdChannel(consoleChannel, TCL_STDERR);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkConsoleInit --
+ *
+ *	Initialize the console.  This code actually creates a new
+ *	application and associated interpreter.  This effectivly hides
+ *	the implementation from the main application.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new console it created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int 
+TkConsoleInit(interp)
+    Tcl_Interp *interp;			/* Interpreter to use for prompting. */
+{
+    Tcl_Interp *consoleInterp;
+    ConsoleInfo *info;
+    Tk_Window mainWindow = Tk_MainWindow(interp);
+#ifdef MAC_TCL
+    static char initCmd[] = "source -rsrc {Console}";
+#else
+    static char initCmd[] = "source $tk_library/console.tcl";
+#endif
+    
+    consoleInterp = Tcl_CreateInterp();
+    if (consoleInterp == NULL) {
+	goto error;
+    }
+    
+    /*
+     * Initialized Tcl and Tk.
+     */
+
+    if (Tcl_Init(consoleInterp) != TCL_OK) {
+	goto error;
+    }
+    if (Tk_Init(consoleInterp) != TCL_OK) {
+	goto error;
+    }
+    gStdoutInterp = interp;
+    
+    /* 
+     * Add console commands to the interp 
+     */
+    info = (ConsoleInfo *) ckalloc(sizeof(ConsoleInfo));
+    info->interp = interp;
+    info->consoleInterp = consoleInterp;
+    Tcl_CreateCommand(interp, "console", ConsoleCmd, (ClientData) info,
+	    (Tcl_CmdDeleteProc *) ConsoleDeleteProc);
+    Tcl_CreateCommand(consoleInterp, "interp", InterpreterCmd,
+	    (ClientData) info, (Tcl_CmdDeleteProc *) NULL);
+
+    Tk_CreateEventHandler(mainWindow, StructureNotifyMask, ConsoleEventProc,
+	    (ClientData) info);
+
+    Tcl_Preserve((ClientData) consoleInterp);
+    if (Tcl_Eval(consoleInterp, initCmd) == TCL_ERROR) {
+	/* goto error; -- no problem for now... */
+	printf("Eval error: %s", consoleInterp->result);
+    }
+    Tcl_Release((ClientData) consoleInterp);
+    return TCL_OK;
+    
+    error:
+    if (consoleInterp != NULL) {
+    	Tcl_DeleteInterp(consoleInterp);
+    }
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleOutput--
+ *
+ *	Writes the given output on the IO channel. Returns count of how
+ *	many characters were actually written, and an error indication.
+ *
+ * Results:
+ *	A count of how many characters were written is returned and an
+ *	error indication is returned in an output argument.
+ *
+ * Side effects:
+ *	Writes output on the actual channel.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ConsoleOutput(instanceData, outFile, buf, toWrite, errorCode)
+    ClientData instanceData;		/* Unused. */
+    Tcl_File outFile;			/* Output device for channel. */
+    char *buf;				/* The data buffer. */
+    int toWrite;			/* How many bytes to write? */
+    int *errorCode;			/* Where to store error code. */
+{
+    *errorCode = 0;
+    Tcl_SetErrno(0);
+
+    if (gStdoutInterp != NULL) {
+	TkConsolePrint(gStdoutInterp, outFile, buf, toWrite);
+    }
+    
+    return toWrite;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleInput --
+ *
+ *	Read input from the console.  Not currently implemented.
+ *
+ * Results:
+ *	Always returns EOF.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConsoleInput(instanceData, inFile, buf, bufSize, errorCode)
+    ClientData instanceData;		/* Unused. */
+    Tcl_File inFile;			/* Input device for channel. */
+    char *buf;				/* Where to store data read. */
+    int bufSize;			/* How much space is available
+                                         * in the buffer? */
+    int *errorCode;			/* Where to store error code. */
+{
+    return 0;			/* Always return EOF. */
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleClose --
+ *
+ *	Closes the IO channel.
+ *
+ * Results:
+ *	Always returns 0 (success).
+ *
+ * Side effects:
+ *	Frees the dummy file associated with the channel.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ConsoleClose(instanceData, interp, inFile, outFile)
+    ClientData instanceData;	/* Unused. */
+    Tcl_Interp *interp;	/* Unused. */
+    Tcl_File inFile;		/* Input file to close. */
+    Tcl_File outFile;		/* Output file to close. */
+{
+    if (inFile) {
+	Tcl_FreeFile(inFile);
+    }
+    if (outFile && (outFile != inFile)) {
+	Tcl_FreeFile(outFile);
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleCmd --
+ *
+ *	The console command implements a Tcl interface to the various console
+ *	options.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConsoleCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Not used. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    ConsoleInfo *info = (ConsoleInfo *) clientData;
+    char c;
+    int length;
+    int result;
+    Tcl_Interp *consoleInterp;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    result = TCL_OK;
+    consoleInterp = info->consoleInterp;
+    Tcl_Preserve((ClientData) consoleInterp);
+    if ((c == 't') && (strncmp(argv[1], "title", length)) == 0) {
+	Tcl_DString dString;
+	char *wmCmd = "wm title . {";
+	
+	Tcl_DStringInit(&dString);
+	Tcl_DStringAppend(&dString, wmCmd, strlen(wmCmd));
+	Tcl_DStringAppend(&dString, argv[2], strlen(argv[2]));
+	Tcl_DStringAppend(&dString, "}", strlen("}"));
+	Tcl_Eval(consoleInterp, dString.string);
+	Tcl_DStringFree(&dString);
+    } else if ((c == 'h') && (strncmp(argv[1], "hide", length)) == 0) {
+	Tcl_Eval(info->consoleInterp, "wm withdraw .");
+    } else if ((c == 's') && (strncmp(argv[1], "show", length)) == 0) {
+	Tcl_Eval(info->consoleInterp, "wm deiconify .");
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": should be hide, show, or title",
+		(char *) NULL);
+        result = TCL_ERROR;
+    }
+    Tcl_Release((ClientData) consoleInterp);
+    return result;
+} /* ConsoleCmd */
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InterpreterCmd --
+ *
+ *	This command allows the console interp to communicate with the
+ *	main interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+InterpreterCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Not used. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    ConsoleInfo *info = (ConsoleInfo *) clientData;
+    char c;
+    int length;
+    int result;
+    Tcl_Interp *otherInterp;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    result = TCL_OK;
+    otherInterp = info->interp;
+    Tcl_Preserve((ClientData) otherInterp);
+    if ((c == 'e') && (strncmp(argv[1], "eval", length)) == 0) {
+   	result = Tcl_GlobalEval(otherInterp, argv[2]);
+    	Tcl_AppendResult(interp, otherInterp->result, (char *) NULL);
+    } else if ((c == 'r') && (strncmp(argv[1], "record", length)) == 0) {
+   	Tcl_RecordAndEval(otherInterp, argv[2], TCL_EVAL_GLOBAL);
+	result = TCL_OK;
+    	Tcl_AppendResult(interp, otherInterp->result, (char *) NULL);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": should be eval or record",
+		(char *) NULL);
+	result = TCL_ERROR;
+    }
+    Tcl_Release((ClientData) otherInterp);
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleDeleteProc --
+ *
+ *	If the console command is deleted we destroy the console window
+ *	and all associated data structures.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new console it created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void 
+ConsoleDeleteProc(clientData) 
+    ClientData clientData;
+{
+    ConsoleInfo *info = (ConsoleInfo *) clientData;
+
+    Tcl_DeleteInterp(info->consoleInterp);
+    info->consoleInterp = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConsoleEventProc --
+ *
+ *	This event procedure is registered on the main window of the
+ *	slave interpreter.  If the user or a running script causes the
+ *	main window to be destroyed, then we need to inform the console
+ *	interpreter by invoking "tkConsoleExit".
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Invokes the "tkConsoleExit" procedure in the console interp.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ConsoleEventProc(clientData, eventPtr)
+    ClientData clientData;
+    XEvent *eventPtr;
+{
+    ConsoleInfo *info = (ConsoleInfo *) clientData;
+    Tcl_Interp *consoleInterp;
+    
+    if (eventPtr->type == DestroyNotify) {
+        consoleInterp = info->consoleInterp;
+        Tcl_Preserve((ClientData) consoleInterp);
+	Tcl_Eval(consoleInterp, "tkConsoleExit");
+        Tcl_Release((ClientData) consoleInterp);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkConsolePrint --
+ *
+ *	Prints to the give text to the console.  Given the main interp
+ *	this functions find the appropiate console interp and forwards
+ *	the text to be added to that console.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkConsolePrint(interp, outFile, buffer, size)
+    Tcl_Interp *interp;		/* Main interpreter. */
+    Tcl_File outFile;		/* Should be stdout or stderr. */
+    char *buffer;		/* Text buffer. */
+    long size;			/* Size of text buffer. */
+{
+    Tcl_DString command, output;
+    Tcl_CmdInfo cmdInfo;
+    char *cmd;
+    ConsoleInfo *info;
+    Tcl_Interp *consoleInterp;
+    int result;
+    int fd = (int) Tcl_GetFileInfo(outFile, NULL);
+
+    if (interp == NULL) {
+	return;
+    }
+    
+    if (fd == 2) {
+	cmd = "tkConsoleOutput stderr ";
+    } else {
+	cmd = "tkConsoleOutput stdout ";
+    }
+    
+    result = Tcl_GetCommandInfo(interp, "console", &cmdInfo);
+    if (result == 0) {
+	return;
+    }
+    info = (ConsoleInfo *) cmdInfo.clientData;
+    
+    Tcl_DStringInit(&output);
+    Tcl_DStringAppend(&output, buffer, size);
+
+    Tcl_DStringInit(&command);
+    Tcl_DStringAppend(&command, cmd, strlen(cmd));
+    Tcl_DStringAppendElement(&command, output.string);
+
+    consoleInterp = info->consoleInterp;
+    Tcl_Preserve((ClientData) consoleInterp);
+    Tcl_Eval(consoleInterp, command.string);
+    Tcl_Release((ClientData) consoleInterp);
+    
+    Tcl_DStringFree(&command);
+    Tcl_DStringFree(&output);
+}
diff --git a/Tk/generic/tkCursor.c b/Tk/generic/tkCursor.c
new file mode 100644
index 0000000..e185109
--- /dev/null
+++ b/Tk/generic/tkCursor.c
@@ -0,0 +1,384 @@
+/* 
+ * tkCursor.c --
+ *
+ *	This file maintains a database of read-only cursors for the Tk
+ *	toolkit.  This allows cursors to be shared between widgets and
+ *	also avoids round-trips to the X server.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkCursor.c 1.27 96/02/15 18:52:40
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * A TkCursor structure exists for each cursor that is currently
+ * active.  Each structure is indexed with two hash tables defined
+ * below.  One of the tables is idTable, and the other is either
+ * nameTable or dataTable, also defined below.
+ */
+
+/*
+ * Hash table to map from a textual description of a cursor to the
+ * TkCursor record for the cursor, and key structure used in that
+ * hash table:
+ */
+
+static Tcl_HashTable nameTable;
+typedef struct {
+    Tk_Uid name;		/* Textual name for desired cursor. */
+    Display *display;		/* Display for which cursor will be used. */
+} NameKey;
+
+/*
+ * Hash table to map from a collection of in-core data about a
+ * cursor (bitmap contents, etc.) to a TkCursor structure:
+ */
+
+static Tcl_HashTable dataTable;
+typedef struct {
+    char *source;		/* Cursor bits. */
+    char *mask;			/* Mask bits. */
+    int width, height;		/* Dimensions of cursor (and data
+				 * and mask). */
+    int xHot, yHot;		/* Location of cursor hot-spot. */
+    Tk_Uid fg, bg;		/* Colors for cursor. */
+    Display *display;		/* Display on which cursor will be used. */
+} DataKey;
+
+/*
+ * Hash table that maps from <display + cursor id> to the TkCursor structure
+ * for the cursor.  This table is used by Tk_FreeCursor.
+ */
+
+static Tcl_HashTable idTable;
+typedef struct {
+    Display *display;		/* Display for which cursor was allocated. */
+    Tk_Cursor cursor;		/* Cursor identifier. */
+} IdKey;
+
+static int initialized = 0;	/* 0 means static structures haven't been
+				 * initialized yet. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		CursorInit _ANSI_ARGS_((void));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetCursor --
+ *
+ *	Given a string describing a cursor, locate (or create if necessary)
+ *	a cursor that fits the description.
+ *
+ * Results:
+ *	The return value is the X identifer for the desired cursor,
+ *	unless string couldn't be parsed correctly.  In this case,
+ *	None is returned and an error message is left in interp->result.
+ *	The caller should never modify the cursor that is returned, and
+ *	should eventually call Tk_FreeCursor when the cursor is no longer
+ *	needed.
+ *
+ * Side effects:
+ *	The cursor is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeCursor, so that the database can be cleaned up when cursors
+ *	aren't needed anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Cursor
+Tk_GetCursor(interp, tkwin, string)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    Tk_Uid string;		/* Description of cursor.  See manual entry
+				 * for details on legal syntax. */
+{
+    NameKey nameKey;
+    IdKey idKey;
+    Tcl_HashEntry *nameHashPtr, *idHashPtr;
+    register TkCursor *cursorPtr;
+    int new;
+
+    if (!initialized) {
+	CursorInit();
+    }
+
+    nameKey.name = string;
+    nameKey.display = Tk_Display(tkwin);
+    nameHashPtr = Tcl_CreateHashEntry(&nameTable, (char *) &nameKey, &new);
+    if (!new) {
+	cursorPtr = (TkCursor *) Tcl_GetHashValue(nameHashPtr);
+	cursorPtr->refCount++;
+	return cursorPtr->cursor;
+    }
+
+    cursorPtr = TkGetCursorByName(interp, tkwin, string);
+
+    if (cursorPtr == NULL) {
+	Tcl_DeleteHashEntry(nameHashPtr);
+	return None;
+    }
+
+    /*
+     * Add information about this cursor to our database.
+     */
+
+    cursorPtr->refCount = 1;
+    cursorPtr->otherTable = &nameTable;
+    cursorPtr->hashPtr = nameHashPtr;
+    idKey.display = nameKey.display;
+    idKey.cursor = cursorPtr->cursor;
+    idHashPtr = Tcl_CreateHashEntry(&idTable, (char *) &idKey, &new);
+    if (!new) {
+	panic("cursor already registered in Tk_GetCursor");
+    }
+    Tcl_SetHashValue(nameHashPtr, cursorPtr);
+    Tcl_SetHashValue(idHashPtr, cursorPtr);
+
+    return cursorPtr->cursor;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetCursorFromData --
+ *
+ *	Given a description of the bits and colors for a cursor,
+ *	make a cursor that has the given properties.
+ *
+ * Results:
+ *	The return value is the X identifer for the desired cursor,
+ *	unless it couldn't be created properly.  In this case, None is
+ *	returned and an error message is left in interp->result.  The
+ *	caller should never modify the cursor that is returned, and
+ *	should eventually call Tk_FreeCursor when the cursor is no
+ *	longer needed.
+ *
+ * Side effects:
+ *	The cursor is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeCursor, so that the database can be cleaned up when cursors
+ *	aren't needed anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Cursor
+Tk_GetCursorFromData(interp, tkwin, source, mask, width, height,
+	xHot, yHot, fg, bg)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    char *source;		/* Bitmap data for cursor shape. */
+    char *mask;			/* Bitmap data for cursor mask. */
+    int width, height;		/* Dimensions of cursor. */
+    int xHot, yHot;		/* Location of hot-spot in cursor. */
+    Tk_Uid fg;			/* Foreground color for cursor. */
+    Tk_Uid bg;			/* Background color for cursor. */
+{
+    DataKey dataKey;
+    IdKey idKey;
+    Tcl_HashEntry *dataHashPtr, *idHashPtr;
+    register TkCursor *cursorPtr;
+    int new;
+    XColor fgColor, bgColor;
+
+    if (!initialized) {
+	CursorInit();
+    }
+
+    dataKey.source = source;
+    dataKey.mask = mask;
+    dataKey.width = width;
+    dataKey.height = height;
+    dataKey.xHot = xHot;
+    dataKey.yHot = yHot;
+    dataKey.fg = fg;
+    dataKey.bg = bg;
+    dataKey.display = Tk_Display(tkwin);
+    dataHashPtr = Tcl_CreateHashEntry(&dataTable, (char *) &dataKey, &new);
+    if (!new) {
+	cursorPtr = (TkCursor *) Tcl_GetHashValue(dataHashPtr);
+	cursorPtr->refCount++;
+	return cursorPtr->cursor;
+    }
+
+    /*
+     * No suitable cursor exists yet.  Make one using the data
+     * available and add it to the database.
+     */
+
+    if (XParseColor(dataKey.display, Tk_Colormap(tkwin), fg, &fgColor) == 0) {
+	Tcl_AppendResult(interp, "invalid color name \"", fg, "\"",
+		(char *) NULL);
+	goto error;
+    }
+    if (XParseColor(dataKey.display, Tk_Colormap(tkwin), bg, &bgColor) == 0) {
+	Tcl_AppendResult(interp, "invalid color name \"", bg, "\"",
+		(char *) NULL);
+	goto error;
+    }
+
+    cursorPtr = TkCreateCursorFromData(tkwin, source, mask, width, height,
+	    xHot, yHot, fgColor, bgColor);
+
+    if (cursorPtr == NULL) {
+	goto error;
+    }
+
+    cursorPtr->refCount = 1;
+    cursorPtr->otherTable = &dataTable;
+    cursorPtr->hashPtr = dataHashPtr;
+    idKey.display = dataKey.display;
+    idKey.cursor = cursorPtr->cursor;
+    idHashPtr = Tcl_CreateHashEntry(&idTable, (char *) &idKey, &new);
+    if (!new) {
+	panic("cursor already registered in Tk_GetCursorFromData");
+    }
+    Tcl_SetHashValue(dataHashPtr, cursorPtr);
+    Tcl_SetHashValue(idHashPtr, cursorPtr);
+    return cursorPtr->cursor;
+
+    error:
+    Tcl_DeleteHashEntry(dataHashPtr);
+    return None;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfCursor --
+ *
+ *	Given a cursor, return a textual string identifying it.
+ *
+ * Results:
+ *	If cursor was created by Tk_GetCursor, then the return
+ *	value is the "string" that was used to create it.
+ *	Otherwise the return value is a string giving the X
+ *	identifier for the cursor.  The storage for the returned
+ *	string is only guaranteed to persist up until the next
+ *	call to this procedure.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfCursor(display, cursor)
+    Display *display;		/* Display for which cursor was allocated. */
+    Tk_Cursor cursor;		/* Identifier for cursor whose name is
+				 * wanted. */
+{
+    IdKey idKey;
+    Tcl_HashEntry *idHashPtr;
+    TkCursor *cursorPtr;
+    static char string[20];
+
+    if (!initialized) {
+	printid:
+	sprintf(string, "cursor id 0x%x", (unsigned int) cursor);
+	return string;
+    }
+    idKey.display = display;
+    idKey.cursor = cursor;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	goto printid;
+    }
+    cursorPtr = (TkCursor *) Tcl_GetHashValue(idHashPtr);
+    if (cursorPtr->otherTable != &nameTable) {
+	goto printid;
+    }
+    return ((NameKey *) cursorPtr->hashPtr->key.words)->name;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeCursor --
+ *
+ *	This procedure is called to release a cursor allocated by
+ *	Tk_GetCursor or TkGetCursorFromData.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The reference count associated with cursor is decremented, and
+ *	it is officially deallocated if no-one is using it anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeCursor(display, cursor)
+    Display *display;		/* Display for which cursor was allocated. */
+    Tk_Cursor cursor;		/* Identifier for cursor to be released. */
+{
+    IdKey idKey;
+    Tcl_HashEntry *idHashPtr;
+    register TkCursor *cursorPtr;
+
+    if (!initialized) {
+	panic("Tk_FreeCursor called before Tk_GetCursor");
+    }
+
+    idKey.display = display;
+    idKey.cursor = cursor;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	panic("Tk_FreeCursor received unknown cursor argument");
+    }
+    cursorPtr = (TkCursor *) Tcl_GetHashValue(idHashPtr);
+    cursorPtr->refCount--;
+    if (cursorPtr->refCount == 0) {
+	Tcl_DeleteHashEntry(cursorPtr->hashPtr);
+	Tcl_DeleteHashEntry(idHashPtr);
+	TkFreeCursor(cursorPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CursorInit --
+ *
+ *	Initialize the structures used for cursor management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CursorInit()
+{
+    initialized = 1;
+    Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
+    Tcl_InitHashTable(&dataTable, sizeof(DataKey)/sizeof(int));
+
+    /*
+     * The call below is tricky:  can't use sizeof(IdKey) because it
+     * gets padded with extra unpredictable bytes on some 64-bit
+     * machines.
+     */
+
+    Tcl_InitHashTable(&idTable, (sizeof(Display *) + sizeof(Tk_Cursor))
+	    /sizeof(int));
+}
diff --git a/Tk/generic/tkEntry.c b/Tk/generic/tkEntry.c
new file mode 100644
index 0000000..8d283f3
--- /dev/null
+++ b/Tk/generic/tkEntry.c
@@ -0,0 +1,2293 @@
+/* 
+ * tkEntry.c --
+ *
+ *	This module implements entry widgets for the Tk
+ *	toolkit.  An entry displays a string and allows
+ *	the string to be edited.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkEntry.c 1.101 96/03/21 13:55:45
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each entry
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the entry. NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with entry. */
+    Tcl_Command widgetCmd;	/* Token for entry's widget command. */
+    int numChars;		/* Number of non-NULL characters in
+				 * string (may be 0). */
+    char *string;		/* Pointer to storage for string;
+				 * NULL-terminated;  malloc-ed. */
+    char *textVarName;		/* Name of variable (malloc'ed) or NULL.
+				 * If non-NULL, entry's string tracks the
+				 * contents of this variable and vice versa. */
+    Tk_Uid state;		/* Normal or disabled.  Entry is read-only
+				 * when disabled. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_3DBorder normalBorder;	/* Used for drawing border around whole
+				 * window, plus used for background. */
+    int borderWidth;		/* Width of 3-D border around window. */
+    int relief;			/* 3-D effect: TK_RELIEF_RAISED, etc. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *fgColorPtr;		/* Text color in normal mode. */
+    GC textGC;			/* For drawing normal text. */
+    Tk_3DBorder selBorder;	/* Border and background for selected
+				 * characters. */
+    int selBorderWidth;		/* Width of border around selection. */
+    XColor *selFgColorPtr;	/* Foreground color for selected text. */
+    GC selTextGC;		/* For drawing selected text. */
+    Tk_3DBorder insertBorder;	/* Used to draw vertical bar for insertion
+				 * cursor. */
+    int insertWidth;		/* Total width of insert cursor. */
+    int insertBorderWidth;	/* Width of 3-D border around insert cursor. */
+    int insertOnTime;		/* Number of milliseconds cursor should spend
+				 * in "on" state for each blink. */
+    int insertOffTime;		/* Number of milliseconds cursor should spend
+				 * in "off" state for each blink. */
+    Tcl_TimerToken insertBlinkHandler;
+				/* Timer handler used to blink cursor on and
+				 * off. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    GC highlightGC;		/* For drawing traversal highlight. */
+    Tk_Justify justify;		/* Justification to use for text within
+				 * window. */
+    int avgWidth;		/* Width of average character. */
+    int prefWidth;		/* Desired width of window, measured in
+				 * average characters. */
+    int inset;			/* Number of pixels on the left and right
+				 * sides that are taken up by XPAD, borderWidth
+				 * (if any), and highlightWidth (if any). */
+    int leftIndex;		/* Index of left-most character visible in
+				 * window. */
+    int leftX;			/* X position at which leftIndex is drawn
+				 * (varies depending on justify). */
+    int tabOrigin;		/* Origin for tabs (left edge of string[0]). */
+    int insertPos;		/* Index of character before which next
+				 * typed character will be inserted. */
+    char *showChar;		/* Value of -show option.  If non-NULL, first
+				 * character is used for displaying all
+				 * characters in entry.  Malloc'ed. */
+    char *displayString;	/* If non-NULL, points to string with same
+				 * length as string but whose characters
+				 * are all equal to showChar.  Malloc'ed. */
+
+    /*
+     * Information about what's selected, if any.
+     */
+
+    int selectFirst;		/* Index of first selected character (-1 means
+				 * nothing selected. */
+    int selectLast;		/* Index of last selected character (-1 means
+				 * nothing selected. */
+    int selectAnchor;		/* Fixed end of selection (i.e. "select to"
+				 * operation will use this as one end of the
+				 * selection). */
+    int exportSelection;	/* Non-zero means tie internal entry selection
+				 * to X selection. */
+
+    /*
+     * Information for scanning:
+     */
+
+    int scanMarkX;		/* X-position at which scan started (e.g.
+				 * button was pressed here). */
+    int scanMarkIndex;		/* Index of character that was at left of
+				 * window when scan started. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    char *scrollCmd;		/* Command prefix for communicating with
+				 * scrollbar(s).  Malloc'ed.  NULL means
+				 * no command to issue. */
+    int flags;			/* Miscellaneous flags;  see below for
+				 * definitions. */
+#ifdef STk_CODE
+    int stringp;		/* if true the value of the variable associated
+				 * to the entry must be "stringified" */
+#endif
+} Entry;
+
+/*
+ * Assigned bits of "flags" fields of Entry structures, and what those
+ * bits mean:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler has
+ *				already been queued to redisplay the entry.
+ * BORDER_NEEDED:		Non-zero means 3-D border must be redrawn
+ *				around window during redisplay.  Normally
+ *				only text portion needs to be redrawn.
+ * CURSOR_ON:			Non-zero means insert cursor is displayed at
+ *				present.  0 means it isn't displayed.
+ * GOT_FOCUS:			Non-zero means this window has the input
+ *				focus.
+ * UPDATE_SCROLLBAR:		Non-zero means scrollbar should be updated
+ *				during next redisplay operation.
+ */
+
+#define REDRAW_PENDING		1
+#define BORDER_NEEDED		2
+#define CURSOR_ON		4
+#define GOT_FOCUS		8
+#define UPDATE_SCROLLBAR	16
+
+/*
+ * The following macro defines how many extra pixels to leave on each
+ * side of the text in the entry.
+ */
+
+#define XPAD 1
+#define YPAD 1
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_ENTRY_BG_COLOR, Tk_Offset(Entry, normalBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_ENTRY_BG_MONO, Tk_Offset(Entry, normalBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_ENTRY_BORDER_WIDTH, Tk_Offset(Entry, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_ENTRY_CURSOR, Tk_Offset(Entry, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-exportselection", "exportSelection",
+	"ExportSelection", DEF_ENTRY_EXPORT_SELECTION,
+	Tk_Offset(Entry, exportSelection), 0},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_ENTRY_FONT, Tk_Offset(Entry, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_ENTRY_FG, Tk_Offset(Entry, fgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_ENTRY_HIGHLIGHT_BG,
+	Tk_Offset(Entry, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_ENTRY_HIGHLIGHT, Tk_Offset(Entry, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_ENTRY_HIGHLIGHT_WIDTH, Tk_Offset(Entry, highlightWidth), 0},
+    {TK_CONFIG_BORDER, "-insertbackground", "insertBackground", "Foreground",
+	DEF_ENTRY_INSERT_BG, Tk_Offset(Entry, insertBorder), 0},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_ENTRY_INSERT_BD_COLOR, Tk_Offset(Entry, insertBorderWidth),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_ENTRY_INSERT_BD_MONO, Tk_Offset(Entry, insertBorderWidth),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_INT, "-insertofftime", "insertOffTime", "OffTime",
+	DEF_ENTRY_INSERT_OFF_TIME, Tk_Offset(Entry, insertOffTime), 0},
+    {TK_CONFIG_INT, "-insertontime", "insertOnTime", "OnTime",
+	DEF_ENTRY_INSERT_ON_TIME, Tk_Offset(Entry, insertOnTime), 0},
+    {TK_CONFIG_PIXELS, "-insertwidth", "insertWidth", "InsertWidth",
+	DEF_ENTRY_INSERT_WIDTH, Tk_Offset(Entry, insertWidth), 0},
+    {TK_CONFIG_JUSTIFY, "-justify", "justify", "Justify",
+	DEF_ENTRY_JUSTIFY, Tk_Offset(Entry, justify), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_ENTRY_RELIEF, Tk_Offset(Entry, relief), 0},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_ENTRY_SELECT_COLOR, Tk_Offset(Entry, selBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_ENTRY_SELECT_MONO, Tk_Offset(Entry, selBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_PIXELS, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_ENTRY_SELECT_BD_COLOR, Tk_Offset(Entry, selBorderWidth),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_PIXELS, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_ENTRY_SELECT_BD_MONO, Tk_Offset(Entry, selBorderWidth),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_ENTRY_SELECT_FG_COLOR, Tk_Offset(Entry, selFgColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_ENTRY_SELECT_FG_MONO, Tk_Offset(Entry, selFgColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_STRING, "-show", "show", "Show",
+	DEF_ENTRY_SHOW, Tk_Offset(Entry, showChar), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-state", "state", "State",
+	DEF_ENTRY_STATE, Tk_Offset(Entry, state), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_BOOLEAN, "-stringvalue", "stringvalue", "StringValue",
+	"#t", Tk_Offset(Entry, stringp), 0},
+#endif
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_ENTRY_TAKE_FOCUS, Tk_Offset(Entry, takeFocus), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-textvariable", "textVariable", "Variable",
+	DEF_ENTRY_TEXT_VARIABLE, Tk_Offset(Entry, textVarName),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-width", "width", "Width",
+	DEF_ENTRY_WIDTH, Tk_Offset(Entry, prefWidth), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#endif
+	DEF_ENTRY_SCROLL_COMMAND, Tk_Offset(Entry, scrollCmd),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Flags for GetEntryIndex procedure:
+ */
+
+#define ZERO_OK			1
+#define LAST_PLUS_ONE_OK	2
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		ConfigureEntry _ANSI_ARGS_((Tcl_Interp *interp,
+			    Entry *entryPtr, int argc, char **argv,
+			    int flags));
+static void		DeleteChars _ANSI_ARGS_((Entry *entryPtr, int index,
+			    int count));
+static void		DestroyEntry _ANSI_ARGS_((char *memPtr));
+static void		DisplayEntry _ANSI_ARGS_((ClientData clientData));
+static void		EntryBlinkProc _ANSI_ARGS_((ClientData clientData));
+static void		EntryCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		EntryComputeGeometry _ANSI_ARGS_((Entry *entryPtr));
+static void		EntryEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		EntryFocusProc _ANSI_ARGS_ ((Entry *entryPtr,
+			    int gotFocus));
+static int		EntryFetchSelection _ANSI_ARGS_((ClientData clientData,
+			    int offset, char *buffer, int maxBytes));
+static void		EntryLostSelection _ANSI_ARGS_((
+			    ClientData clientData));
+static void		EventuallyRedraw _ANSI_ARGS_((Entry *entryPtr));
+static void		EntryScanTo _ANSI_ARGS_((Entry *entryPtr, int y));
+static void		EntrySetValue _ANSI_ARGS_((Entry *entryPtr,
+			    char *value));
+static void		EntrySelectTo _ANSI_ARGS_((
+			    Entry *entryPtr, int index));
+static char *		EntryTextVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static void		EntryUpdateScrollbar _ANSI_ARGS_((Entry *entryPtr));
+static void		EntryValueChanged _ANSI_ARGS_((Entry *entryPtr));
+static void		EntryVisibleRange _ANSI_ARGS_((Entry *entryPtr,
+			    double *firstPtr, double *lastPtr));
+static int		EntryWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		GetEntryIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    Entry *entryPtr, char *string, int *indexPtr));
+static void		InsertChars _ANSI_ARGS_((Entry *entryPtr, int index,
+			    char *string));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_EntryCmd --
+ *
+ *	This procedure is invoked to process the "entry" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_EntryCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    register Entry *entryPtr;
+    Tk_Window new;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize the fields of the structure that won't be initialized
+     * by ConfigureEntry, or that ConfigureEntry requires to be
+     * initialized already (e.g. resource pointers).
+     */
+
+    entryPtr = (Entry *) ckalloc(sizeof(Entry));
+    entryPtr->tkwin = new;
+    entryPtr->display = Tk_Display(new);
+    entryPtr->interp = interp;
+    entryPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(entryPtr->tkwin), EntryWidgetCmd,
+	    (ClientData) entryPtr, EntryCmdDeletedProc);
+    entryPtr->numChars = 0;
+    entryPtr->string = (char *) ckalloc(1);
+    entryPtr->string[0] = '\0';
+    entryPtr->textVarName = NULL;
+    entryPtr->state = tkNormalUid;
+    entryPtr->normalBorder = NULL;
+    entryPtr->borderWidth = 0;
+    entryPtr->relief = TK_RELIEF_FLAT;
+    entryPtr->fontPtr = NULL;
+    entryPtr->fgColorPtr = NULL;
+    entryPtr->textGC = None;
+    entryPtr->selBorder = NULL;
+    entryPtr->selBorderWidth = 0;
+    entryPtr->selFgColorPtr = NULL;
+    entryPtr->selTextGC = None;
+    entryPtr->insertBorder = NULL;
+    entryPtr->insertWidth = 0;
+    entryPtr->insertBorderWidth = 0;
+    entryPtr->insertOnTime = 0;
+    entryPtr->insertOffTime = 0;
+    entryPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+    entryPtr->highlightWidth = 0;
+    entryPtr->highlightBgColorPtr = NULL;
+    entryPtr->highlightColorPtr = NULL;
+    entryPtr->justify = TK_JUSTIFY_LEFT;
+    entryPtr->avgWidth = 1;
+    entryPtr->prefWidth = 0;
+    entryPtr->inset = XPAD;
+    entryPtr->leftIndex = 0;
+    entryPtr->leftX = 0;
+    entryPtr->tabOrigin = 0;
+    entryPtr->insertPos = 0;
+    entryPtr->showChar = NULL;
+    entryPtr->displayString = NULL;
+    entryPtr->selectFirst = -1;
+    entryPtr->selectLast = -1;
+    entryPtr->selectAnchor = 0;
+    entryPtr->exportSelection = 1;
+    entryPtr->scanMarkX = 0;
+    entryPtr->scanMarkIndex = 0;
+    entryPtr->cursor = None;
+    entryPtr->takeFocus = NULL;
+    entryPtr->scrollCmd = NULL;
+    entryPtr->flags = 0;
+
+    Tk_SetClass(entryPtr->tkwin, "Entry");
+    Tk_CreateEventHandler(entryPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    EntryEventProc, (ClientData) entryPtr);
+    Tk_CreateSelHandler(entryPtr->tkwin, XA_PRIMARY, XA_STRING,
+	    EntryFetchSelection, (ClientData) entryPtr, XA_STRING);
+    if (ConfigureEntry(interp, entryPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(entryPtr->tkwin));
+#else
+    interp->result = Tk_PathName(entryPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(entryPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EntryWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+EntryWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about entry widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    register Entry *entryPtr = (Entry *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c, height;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) entryPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'b') && (strncmp(argv[1], "bbox", length) == 0)) {
+	int index, x1, x2;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " bbox index\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetEntryIndex(interp, entryPtr, argv[2], &index) != TCL_OK) {
+	    goto error;
+	}
+	if ((index == entryPtr->numChars) && (index > 0)) {
+	    index--;
+	}
+	TkMeasureChars(entryPtr->fontPtr,
+		(entryPtr->displayString == NULL) ? entryPtr->string
+		: entryPtr->displayString, index, entryPtr->tabOrigin,
+		1000000, entryPtr->tabOrigin, TK_NEWLINES_NOT_SPECIAL,
+		&x1);
+	if (index < entryPtr->numChars) {
+	    TkMeasureChars(entryPtr->fontPtr,
+		(entryPtr->displayString == NULL) ? entryPtr->string
+		: entryPtr->displayString, index+1, entryPtr->tabOrigin,
+		1000000, entryPtr->tabOrigin, TK_NEWLINES_NOT_SPECIAL,
+		&x2);
+	} else {
+	    x2 = x1;
+	}
+	height = entryPtr->fontPtr->ascent + entryPtr->fontPtr->descent;
+	sprintf(interp->result, "%d %d %d %d", x1, 
+		(Tk_Height(entryPtr->tkwin) - height)/2, x2-x1, height);
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, entryPtr->tkwin, configSpecs,
+		(char *) entryPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, entryPtr->tkwin, configSpecs,
+		    (char *) entryPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, entryPtr->tkwin, configSpecs,
+		    (char *) entryPtr, argv[2], 0);
+	} else {
+	    result = ConfigureEntry(interp, entryPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)) {
+	int first, last;
+
+	if ((argc < 3) || (argc > 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " delete firstIndex ?lastIndex?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetEntryIndex(interp, entryPtr, argv[2], &first) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 3) {
+	    last = first+1;
+	} else {
+	    if (GetEntryIndex(interp, entryPtr, argv[3], &last) != TCL_OK) {
+		goto error;
+	    }
+	}
+	if ((last >= first) && (entryPtr->state == tkNormalUid)) {
+	    DeleteChars(entryPtr, first, last-first);
+	}
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get\"", (char *) NULL);
+	    goto error;
+	}
+#ifdef STk_CODE
+	if (entryPtr->stringp)
+	  STk_stringify_result(interp, entryPtr->string);
+	else
+#endif
+	interp->result = entryPtr->string;
+    } else if ((c == 'i') && (strncmp(argv[1], "icursor", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " icursor pos\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetEntryIndex(interp, entryPtr, argv[2], &entryPtr->insertPos)
+		!= TCL_OK) {
+	    goto error;
+	}
+	EventuallyRedraw(entryPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "index", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " index string\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetEntryIndex(interp, entryPtr, argv[2], &index) != TCL_OK) {
+	    goto error;
+	}
+	sprintf(interp->result, "%d", index);
+    } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " insert index text\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetEntryIndex(interp, entryPtr, argv[2], &index) != TCL_OK) {
+	    goto error;
+	}
+	if (entryPtr->state == tkNormalUid) {
+	    InsertChars(entryPtr, index, argv[3]);
+	}
+    } else if ((c == 's') && (length >= 2)
+	    && (strncmp(argv[1], "scan", length) == 0)) {
+	int x;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " scan mark|dragto x\"", (char *) NULL);
+	    goto error;
+	}
+	if (Tcl_GetInt(interp, argv[3], &x) != TCL_OK) {
+	    goto error;
+	}
+	if ((argv[2][0] == 'm')
+		&& (strncmp(argv[2], "mark", strlen(argv[2])) == 0)) {
+	    entryPtr->scanMarkX = x;
+	    entryPtr->scanMarkIndex = entryPtr->leftIndex;
+	} else if ((argv[2][0] == 'd')
+		&& (strncmp(argv[2], "dragto", strlen(argv[2])) == 0)) {
+	    EntryScanTo(entryPtr, x);
+	} else {
+	    Tcl_AppendResult(interp, "bad scan option \"", argv[2],
+		    "\": must be mark or dragto", (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 's') && (length >= 2)
+	    && (strncmp(argv[1], "selection", length) == 0)) {
+	int index, index2;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " select option ?index?\"", (char *) NULL);
+	    goto error;
+	}
+	length = strlen(argv[2]);
+	c = argv[2][0];
+	if ((c == 'c') && (strncmp(argv[2], "clear", length) == 0)) {
+	    if (argc != 3) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection clear\"", (char *) NULL);
+		goto error;
+	    }
+	    if (entryPtr->selectFirst != -1) {
+		entryPtr->selectFirst = entryPtr->selectLast = -1;
+		EventuallyRedraw(entryPtr);
+	    }
+	    goto done;
+	} else if ((c == 'p') && (strncmp(argv[2], "present", length) == 0)) {
+	    if (argc != 3) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection present\"", (char *) NULL);
+		goto error;
+	    }
+#ifdef STk_CODE
+	    interp->result = (entryPtr->selectFirst == -1) ? "#f" : "#t";
+#else
+	    if (entryPtr->selectFirst == -1) {
+		interp->result = "0";
+	    } else {
+		interp->result = "1";
+	    }
+#endif
+	    goto done;
+	}
+	if (argc >= 4) {
+	    if (GetEntryIndex(interp, entryPtr, argv[3], &index) != TCL_OK) {
+		goto error;
+	    }
+	}
+	if ((c == 'a') && (strncmp(argv[2], "adjust", length) == 0)) {
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection adjust index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    if (entryPtr->selectFirst >= 0) {
+		int half1, half2;
+
+		half1 = (entryPtr->selectFirst + entryPtr->selectLast)/2;
+		half2 = (entryPtr->selectFirst + entryPtr->selectLast + 1)/2;
+		if (index < half1) {
+		    entryPtr->selectAnchor = entryPtr->selectLast;
+		} else if (index > half2) {
+		    entryPtr->selectAnchor = entryPtr->selectFirst;
+		} else {
+		    /*
+		     * We're at about the halfway point in the selection;
+		     * just keep the existing anchor.
+		     */
+		}
+	    }
+	    EntrySelectTo(entryPtr, index);
+	} else if ((c == 'f') && (strncmp(argv[2], "from", length) == 0)) {
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection from index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    entryPtr->selectAnchor = index;
+	} else if ((c == 'r') && (strncmp(argv[2], "range", length) == 0)) {
+	    if (argc != 5) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection range start end\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    if (GetEntryIndex(interp, entryPtr, argv[4], &index2) != TCL_OK) {
+		goto error;
+	    }
+	    if (index >= index2) {
+		entryPtr->selectFirst = entryPtr->selectLast = -1;
+	    } else {
+		if ((entryPtr->selectFirst == -1)
+			&& (entryPtr->exportSelection)) {
+		    Tk_OwnSelection(entryPtr->tkwin, XA_PRIMARY, 
+			    EntryLostSelection, (ClientData) entryPtr);
+		}
+		entryPtr->selectFirst = index;
+		entryPtr->selectLast = index2;
+	    }
+	    if ((entryPtr->selectFirst == -1) && (entryPtr->exportSelection)) {
+		Tk_OwnSelection(entryPtr->tkwin, XA_PRIMARY,
+			EntryLostSelection, (ClientData) entryPtr);
+	    }
+	    EventuallyRedraw(entryPtr);
+	} else if ((c == 't') && (strncmp(argv[2], "to", length) == 0)) {
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection to index\"",
+			(char *) NULL);
+		goto error;
+	    }
+	    EntrySelectTo(entryPtr, index);
+	} else {
+	    Tcl_AppendResult(interp, "bad selection option \"", argv[2],
+		    "\": must be adjust, clear, from, present, range, or to",
+		    (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 'x') && (strncmp(argv[1], "xview", length) == 0)) {
+	int index, type, count, charsPerPage;
+	double fraction, first, last;
+
+	if (argc == 2) {
+	    EntryVisibleRange(entryPtr, &first, &last);
+	    sprintf(interp->result, "%g %g", first, last);
+	    goto done;
+	} else if (argc == 3) {
+	    if (GetEntryIndex(interp, entryPtr, argv[2], &index) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+	    index = entryPtr->leftIndex;
+	    switch (type) {
+		case TK_SCROLL_ERROR:
+		    goto error;
+		case TK_SCROLL_MOVETO:
+		    index = (fraction * entryPtr->numChars) + 0.5;
+		    break;
+		case TK_SCROLL_PAGES:
+		    charsPerPage = ((Tk_Width(entryPtr->tkwin)
+			    - 2*entryPtr->inset) / entryPtr->avgWidth) - 2;
+		    if (charsPerPage < 1) {
+			charsPerPage = 1;
+		    }
+		    index += charsPerPage*count;
+		    break;
+		case TK_SCROLL_UNITS:
+		    index += count;
+		    break;
+	    }
+	}
+	if (index >= entryPtr->numChars) {
+	    index = entryPtr->numChars-1;
+	}
+	if (index < 0) {
+	    index = 0;
+	}
+	entryPtr->leftIndex = index;
+	entryPtr->flags |= UPDATE_SCROLLBAR;
+	EntryComputeGeometry(entryPtr);
+	EventuallyRedraw(entryPtr);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be bbox, cget, configure, delete, get, ",
+		"icursor, index, insert, scan, selection, or xview",
+		(char *) NULL);
+	goto error;
+    }
+    done:
+    Tcl_Release((ClientData) entryPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) entryPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyEntry --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of an entry at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the entry is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyEntry(memPtr)
+    char *memPtr;		/* Info about entry widget. */
+{
+    register Entry *entryPtr = (Entry *) memPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    ckfree(entryPtr->string);
+    if (entryPtr->textVarName != NULL) {
+	Tcl_UntraceVar(entryPtr->interp, entryPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		EntryTextVarProc, (ClientData) entryPtr);
+    }
+    if (entryPtr->textGC != None) {
+	Tk_FreeGC(entryPtr->display, entryPtr->textGC);
+    }
+    if (entryPtr->selTextGC != None) {
+	Tk_FreeGC(entryPtr->display, entryPtr->selTextGC);
+    }
+    Tcl_DeleteTimerHandler(entryPtr->insertBlinkHandler);
+    if (entryPtr->displayString != NULL) {
+	ckfree(entryPtr->displayString);
+    }
+    Tk_FreeOptions(configSpecs, (char *) entryPtr, entryPtr->display, 0);
+    ckfree((char *) entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureEntry --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or reconfigure)
+ *	an entry widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for entryPtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureEntry(interp, entryPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Entry *entryPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC new;
+    int oldExport;
+
+    /*
+     * Eliminate any existing trace on a variable monitored by the entry.
+     */
+
+    if (entryPtr->textVarName != NULL) {
+	Tcl_UntraceVar(interp, entryPtr->textVarName, 
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		EntryTextVarProc, (ClientData) entryPtr);
+    }
+
+    oldExport = entryPtr->exportSelection;
+    if (Tk_ConfigureWidget(interp, entryPtr->tkwin, configSpecs,
+	    argc, argv, (char *) entryPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * If the entry is tied to the value of a variable, then set up
+     * a trace on the variable's value, create the variable if it doesn't
+     * exist, and set the entry's value from the variable's value.
+     */
+
+    if (entryPtr->textVarName != NULL) {
+	char *value;
+
+	value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY);
+	if (value == NULL) {
+	    Tcl_SetVar(interp, entryPtr->textVarName, entryPtr->string,
+#ifdef STk_CODE
+		       (entryPtr->stringp? STk_STRINGIFY: 0) |
+#endif
+		    TCL_GLOBAL_ONLY);
+	} else {
+	    EntrySetValue(entryPtr, value);
+	}
+	Tcl_TraceVar(interp, entryPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		EntryTextVarProc, (ClientData) entryPtr);
+    }
+
+    /*
+     * A few other options also need special processing, such as parsing
+     * the geometry and setting the background from a 3-D border.
+     */
+
+    if ((entryPtr->state != tkNormalUid)
+	    && (entryPtr->state != tkDisabledUid)) {
+	Tcl_AppendResult(interp, "bad state value \"", entryPtr->state,
+		"\": must be normal or disabled", (char *) NULL);
+	entryPtr->state = tkNormalUid;
+	return TCL_ERROR;
+    }
+
+    Tk_SetBackgroundFromBorder(entryPtr->tkwin, entryPtr->normalBorder);
+
+    gcValues.foreground = entryPtr->fgColorPtr->pixel;
+    gcValues.font = entryPtr->fontPtr->fid;
+    gcValues.graphics_exposures = False;
+    new = Tk_GetGC(entryPtr->tkwin, GCForeground|GCFont|GCGraphicsExposures,
+	    &gcValues);
+    if (entryPtr->textGC != None) {
+	Tk_FreeGC(entryPtr->display, entryPtr->textGC);
+    }
+    entryPtr->textGC = new;
+
+    gcValues.foreground = entryPtr->selFgColorPtr->pixel;
+    gcValues.font = entryPtr->fontPtr->fid;
+    new = Tk_GetGC(entryPtr->tkwin, GCForeground|GCFont, &gcValues);
+    if (entryPtr->selTextGC != None) {
+	Tk_FreeGC(entryPtr->display, entryPtr->selTextGC);
+    }
+    entryPtr->selTextGC = new;
+
+    if (entryPtr->insertWidth <= 0) {
+	entryPtr->insertWidth = 2;
+    }
+    if (entryPtr->insertBorderWidth > entryPtr->insertWidth/2) {
+	entryPtr->insertBorderWidth = entryPtr->insertWidth/2;
+    }
+
+    /*
+     * Restart the cursor timing sequence in case the on-time or off-time
+     * just changed.
+     */
+
+    if (entryPtr->flags & GOT_FOCUS) {
+	EntryFocusProc(entryPtr, 1);
+    }
+
+    /*
+     * Claim the selection if we've suddenly started exporting it.
+     */
+
+    if (entryPtr->exportSelection && (!oldExport)
+	    && (entryPtr->selectFirst != -1)) {
+	Tk_OwnSelection(entryPtr->tkwin, XA_PRIMARY, EntryLostSelection,
+		(ClientData) entryPtr);
+    }
+
+    /*
+     * Recompute the window's geometry and arrange for it to be
+     * redisplayed.
+     */
+
+    Tk_SetInternalBorder(entryPtr->tkwin,
+	    entryPtr->borderWidth + entryPtr->highlightWidth);
+    if (entryPtr->highlightWidth <= 0) {
+	entryPtr->highlightWidth = 0;
+    }
+    entryPtr->inset = entryPtr->highlightWidth + entryPtr->borderWidth + XPAD;
+    entryPtr->avgWidth = XTextWidth(entryPtr->fontPtr, "0", 1);
+    EntryComputeGeometry(entryPtr);
+    entryPtr->flags |= UPDATE_SCROLLBAR;
+    EventuallyRedraw(entryPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayEntry --
+ *
+ *	This procedure redraws the contents of an entry window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayEntry(clientData)
+    ClientData clientData;	/* Information about window. */
+{
+    register Entry *entryPtr = (Entry *) clientData;
+    register Tk_Window tkwin = entryPtr->tkwin;
+    int baseY, selStartX, selEndX, index, cursorX;
+    int xBound, count;
+    Pixmap pixmap;
+    char *displayString;
+
+    entryPtr->flags &= ~REDRAW_PENDING;
+    if ((entryPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    /*
+     * Update the scrollbar if that's needed.
+     */
+
+    if (entryPtr->flags & UPDATE_SCROLLBAR) {
+	EntryUpdateScrollbar(entryPtr);
+    }
+
+    /*
+     * In order to avoid screen flashes, this procedure redraws the
+     * textual area of the entry into off-screen memory, then copies
+     * it back on-screen in a single operation.  This means there's
+     * no point in time where the on-screen image has been cleared.
+     */
+
+    pixmap = Tk_GetPixmap(entryPtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+
+    /*
+     * Compute x-coordinate of the pixel just after last visible
+     * one, plus vertical position of baseline of text.
+     */
+
+    xBound = Tk_Width(tkwin) - entryPtr->inset;
+    baseY = (Tk_Height(tkwin) + entryPtr->fontPtr->ascent
+	    - entryPtr->fontPtr->descent)/2;
+
+    /*
+     * Draw the background in three layers.  From bottom to top the
+     * layers are:  normal background, selection background, and
+     * insertion cursor background.
+     */
+
+    Tk_Fill3DRectangle(tkwin, pixmap, entryPtr->normalBorder,
+	    0, 0, Tk_Width(tkwin), Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
+    if (entryPtr->displayString == NULL) {
+	displayString = entryPtr->string;
+    } else {
+	displayString = entryPtr->displayString;
+    }
+    if (entryPtr->selectLast > entryPtr->leftIndex) {
+	if (entryPtr->selectFirst <= entryPtr->leftIndex) {
+	    selStartX = entryPtr->leftX;
+	    index = entryPtr->leftIndex;
+	} else {
+	    (void) TkMeasureChars(entryPtr->fontPtr,
+		    displayString + entryPtr->leftIndex,
+		    entryPtr->selectFirst - entryPtr->leftIndex,
+		    entryPtr->leftX, xBound, entryPtr->tabOrigin,
+		    TK_PARTIAL_OK|TK_NEWLINES_NOT_SPECIAL, &selStartX);
+	    index = entryPtr->selectFirst;
+	}
+	if ((selStartX - entryPtr->selBorderWidth) < xBound) {
+	    (void) TkMeasureChars(entryPtr->fontPtr,
+		    displayString + index, entryPtr->selectLast - index,
+		    selStartX, xBound, entryPtr->tabOrigin,
+		    TK_PARTIAL_OK|TK_NEWLINES_NOT_SPECIAL, &selEndX);
+	    Tk_Fill3DRectangle(tkwin, pixmap, entryPtr->selBorder,
+		    selStartX - entryPtr->selBorderWidth,
+		    baseY - entryPtr->fontPtr->ascent
+			    - entryPtr->selBorderWidth,
+		    (selEndX - selStartX) + 2*entryPtr->selBorderWidth,
+		    entryPtr->fontPtr->ascent + entryPtr->fontPtr->descent
+			    + 2*entryPtr->selBorderWidth,
+		    entryPtr->selBorderWidth, TK_RELIEF_RAISED);
+	} else {
+	    selEndX = xBound;
+	}
+    }
+
+    /*
+     * Draw a special background for the insertion cursor, overriding
+     * even the selection background.  As a special hack to keep the
+     * cursor visible when the insertion cursor color is the same as
+     * the color for selected text (e.g., on mono displays), write
+     * background in the cursor area (instead of nothing) when the
+     * cursor isn't on.  Otherwise the selection would hide the cursor.
+     */
+
+    if ((entryPtr->insertPos >= entryPtr->leftIndex)
+	    && (entryPtr->state == tkNormalUid)
+	    && (entryPtr->flags & GOT_FOCUS)) {
+	(void) TkMeasureChars(entryPtr->fontPtr,
+		displayString + entryPtr->leftIndex,
+		entryPtr->insertPos - entryPtr->leftIndex, entryPtr->leftX,
+		xBound + entryPtr->insertWidth, entryPtr->tabOrigin,
+		TK_PARTIAL_OK|TK_NEWLINES_NOT_SPECIAL, &cursorX);
+	cursorX -= (entryPtr->insertWidth)/2;
+	if (cursorX < xBound) {
+	    if (entryPtr->flags & CURSOR_ON) {
+		Tk_Fill3DRectangle(tkwin, pixmap, entryPtr->insertBorder,
+			cursorX, baseY - entryPtr->fontPtr->ascent,
+			entryPtr->insertWidth,
+			entryPtr->fontPtr->ascent + entryPtr->fontPtr->descent,
+			entryPtr->insertBorderWidth, TK_RELIEF_RAISED);
+	    } else if (entryPtr->insertBorder == entryPtr->selBorder) {
+		Tk_Fill3DRectangle(tkwin, pixmap, entryPtr->normalBorder,
+			cursorX, baseY - entryPtr->fontPtr->ascent,
+			entryPtr->insertWidth,
+			entryPtr->fontPtr->ascent + entryPtr->fontPtr->descent,
+			0, TK_RELIEF_FLAT);
+	    }
+	}
+    }
+
+    /*
+     * Draw the text in three pieces:  first the piece to the left of
+     * the selection, then the selection, then the piece to the right
+     * of the selection.
+     */
+
+    if (entryPtr->selectLast <= entryPtr->leftIndex) {
+	TkDisplayChars(entryPtr->display, pixmap, entryPtr->textGC,
+		entryPtr->fontPtr, displayString + entryPtr->leftIndex,
+		entryPtr->numChars - entryPtr->leftIndex, entryPtr->leftX,
+		baseY, entryPtr->tabOrigin, TK_NEWLINES_NOT_SPECIAL);
+    } else {
+	count = entryPtr->selectFirst - entryPtr->leftIndex;
+	if (count > 0) {
+	    TkDisplayChars(entryPtr->display, pixmap, entryPtr->textGC,
+		    entryPtr->fontPtr, displayString + entryPtr->leftIndex,
+		    count, entryPtr->leftX, baseY, entryPtr->tabOrigin,
+		    TK_NEWLINES_NOT_SPECIAL);
+	    index = entryPtr->selectFirst;
+	} else {
+	    index = entryPtr->leftIndex;
+	}
+	count = entryPtr->selectLast - index;
+	if ((selStartX < xBound) && (count > 0)) {
+	    TkDisplayChars(entryPtr->display, pixmap, entryPtr->selTextGC,
+		    entryPtr->fontPtr, displayString + index, count,
+		    selStartX, baseY, entryPtr->tabOrigin,
+		    TK_NEWLINES_NOT_SPECIAL);
+	}
+	count = entryPtr->numChars - entryPtr->selectLast;
+	if ((selEndX < xBound) && (count > 0)) {
+	    TkDisplayChars(entryPtr->display, pixmap, entryPtr->textGC,
+		    entryPtr->fontPtr,
+		    displayString + entryPtr->selectLast,
+		    count, selEndX, baseY, entryPtr->tabOrigin,
+		    TK_NEWLINES_NOT_SPECIAL);
+	}
+    }
+
+    /*
+     * Draw the border and focus highlight last, so they will overwrite
+     * any text that extends past the viewable part of the window.
+     */
+
+    if (entryPtr->relief != TK_RELIEF_FLAT) {
+	Tk_Draw3DRectangle(tkwin, pixmap, entryPtr->normalBorder,
+		entryPtr->highlightWidth, entryPtr->highlightWidth,
+		Tk_Width(tkwin) - 2*entryPtr->highlightWidth,
+		Tk_Height(tkwin) - 2*entryPtr->highlightWidth,
+		entryPtr->borderWidth, entryPtr->relief);
+    }
+    if (entryPtr->highlightWidth != 0) {
+	GC gc;
+
+	if (entryPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(entryPtr->highlightColorPtr, pixmap);
+	} else {
+	    gc = Tk_GCForColor(entryPtr->highlightBgColorPtr, pixmap);
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, entryPtr->highlightWidth, pixmap);
+    }
+
+    /*
+     * Everything's been redisplayed;  now copy the pixmap onto the screen
+     * and free up the pixmap.
+     */
+
+    XCopyArea(entryPtr->display, pixmap, Tk_WindowId(tkwin), entryPtr->textGC,
+	    0, 0, (unsigned) Tk_Width(tkwin), (unsigned) Tk_Height(tkwin),
+	    0, 0);
+    Tk_FreePixmap(entryPtr->display, pixmap);
+    entryPtr->flags &= ~BORDER_NEEDED;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryComputeGeometry --
+ *
+ *	This procedure is invoked to recompute information about where
+ *	in its window an entry's string will be displayed.  It also
+ *	computes the requested size for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The leftX and tabOrigin fields are recomputed for entryPtr,
+ *	and leftIndex may be adjusted.  Tk_GeometryRequest is called
+ *	to register the desired dimensions for the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryComputeGeometry(entryPtr)
+    Entry *entryPtr;			/* Widget record for entry. */
+{
+    int totalLength, overflow, maxOffScreen, rightX;
+    int fontHeight, height, width, i;
+    char *p, *displayString;
+
+    /*
+     * If we're displaying a special character instead of the value of
+     * the entry, recompute the displayString.
+     */
+
+    if (entryPtr->displayString != NULL) {
+	ckfree(entryPtr->displayString);
+	entryPtr->displayString = NULL;
+    }
+    if (entryPtr->showChar != NULL) {
+	entryPtr->displayString = (char *) ckalloc((unsigned)
+		(entryPtr->numChars + 1));
+	for (p = entryPtr->displayString, i = entryPtr->numChars; i > 0;
+		i--, p++) {
+	    *p = entryPtr->showChar[0];
+	}
+	*p = 0;
+	displayString = entryPtr->displayString;
+    } else {
+	displayString = entryPtr->string;
+    }
+
+    /*
+     * Recompute where the leftmost character on the display will
+     * be drawn (entryPtr->leftX) and adjust leftIndex if necessary
+     * so that we don't let characters hang off the edge of the
+     * window unless the entire window is full.
+     */
+
+    TkMeasureChars(entryPtr->fontPtr, displayString, entryPtr->numChars,
+	    0, INT_MAX, 0, TK_NEWLINES_NOT_SPECIAL, &totalLength);
+    overflow = totalLength - (Tk_Width(entryPtr->tkwin) - 2*entryPtr->inset);
+    if (overflow <= 0) {
+	entryPtr->leftIndex = 0;
+	if (entryPtr->justify == TK_JUSTIFY_LEFT) {
+	    entryPtr->leftX = entryPtr->inset;
+	} else if (entryPtr->justify == TK_JUSTIFY_RIGHT) {
+	    entryPtr->leftX = Tk_Width(entryPtr->tkwin) - entryPtr->inset
+		    - totalLength;
+	} else {
+	    entryPtr->leftX = (Tk_Width(entryPtr->tkwin) - totalLength)/2;
+	}
+	entryPtr->tabOrigin = entryPtr->leftX;
+    } else {
+	/*
+	 * The whole string can't fit in the window.  Compute the
+	 * maximum number of characters that may be off-screen to
+	 * the left without leaving empty space on the right of the
+	 * window, then don't let leftIndex be any greater than that.
+	 */
+
+	maxOffScreen = TkMeasureChars(entryPtr->fontPtr, displayString,
+	    entryPtr->numChars, 0, overflow, 0,
+	    TK_NEWLINES_NOT_SPECIAL|TK_PARTIAL_OK, &rightX);
+	if (rightX < overflow) {
+	    maxOffScreen += 1;
+	}
+	if (entryPtr->leftIndex > maxOffScreen) {
+	    entryPtr->leftIndex = maxOffScreen;
+	}
+	TkMeasureChars(entryPtr->fontPtr, displayString,
+		entryPtr->leftIndex, 0, INT_MAX, 0,
+		TK_NEWLINES_NOT_SPECIAL|TK_PARTIAL_OK, &rightX);
+	entryPtr->leftX = entryPtr->inset;
+	entryPtr->tabOrigin = entryPtr->leftX - rightX;
+    }
+
+    fontHeight = entryPtr->fontPtr->ascent + entryPtr->fontPtr->descent;
+    height = fontHeight + 2*entryPtr->inset + 2*(YPAD-XPAD);
+    if (entryPtr->prefWidth > 0) {
+	width = entryPtr->prefWidth*entryPtr->avgWidth + 2*entryPtr->inset;
+    } else {
+	if (totalLength == 0) {
+	    width = entryPtr->avgWidth + 2*entryPtr->inset;
+	} else {
+	    width = totalLength + 2*entryPtr->inset;
+	}
+    }
+    Tk_GeometryRequest(entryPtr->tkwin, width, height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InsertChars --
+ *
+ *	Add new characters to an entry widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	New information gets added to entryPtr;  it will be redisplayed
+ *	soon, but not necessarily immediately.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InsertChars(entryPtr, index, string)
+    register Entry *entryPtr;	/* Entry that is to get the new
+				 * elements. */
+    int index;			/* Add the new elements before this
+				 * element. */
+    char *string;		/* New characters to add (NULL-terminated
+				 * string). */
+{
+    int length;
+    char *new;
+
+    length = strlen(string);
+    if (length == 0) {
+	return;
+    }
+    new = (char *) ckalloc((unsigned) (entryPtr->numChars + length + 1));
+    strncpy(new, entryPtr->string, (size_t) index);
+    strcpy(new+index, string);
+    strcpy(new+index+length, entryPtr->string+index);
+    ckfree(entryPtr->string);
+    entryPtr->string = new;
+    entryPtr->numChars += length;
+
+    /*
+     * Inserting characters invalidates all indexes into the string.
+     * Touch up the indexes so that they still refer to the same
+     * characters (at new positions).  When updating the selection
+     * end-points, don't include the new text in the selection unless
+     * it was completely surrounded by the selection.
+     */
+
+    if (entryPtr->selectFirst >= index) {
+	entryPtr->selectFirst += length;
+    }
+    if (entryPtr->selectLast > index) {
+	entryPtr->selectLast += length;
+    }
+    if ((entryPtr->selectAnchor > index) || (entryPtr->selectFirst >= index)) {
+	entryPtr->selectAnchor += length;
+    }
+    if (entryPtr->leftIndex > index) {
+	entryPtr->leftIndex += length;
+    }
+    if (entryPtr->insertPos >= index) {
+	entryPtr->insertPos += length;
+    }
+    EntryValueChanged(entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteChars --
+ *
+ *	Remove one or more characters from an entry widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory gets freed, the entry gets modified and (eventually)
+ *	redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteChars(entryPtr, index, count)
+    register Entry *entryPtr;	/* Entry widget to modify. */
+    int index;			/* Index of first character to delete. */
+    int count;			/* How many characters to delete. */
+{
+    char *new;
+
+    if ((index + count) > entryPtr->numChars) {
+	count = entryPtr->numChars - index;
+    }
+    if (count <= 0) {
+	return;
+    }
+
+    new = (char *) ckalloc((unsigned) (entryPtr->numChars + 1 - count));
+    strncpy(new, entryPtr->string, (size_t) index);
+    strcpy(new+index, entryPtr->string+index+count);
+    ckfree(entryPtr->string);
+    entryPtr->string = new;
+    entryPtr->numChars -= count;
+
+    /*
+     * Deleting characters results in the remaining characters being
+     * renumbered.  Update the various indexes into the string to reflect
+     * this change.
+     */
+
+    if (entryPtr->selectFirst >= index) {
+	if (entryPtr->selectFirst >= (index+count)) {
+	    entryPtr->selectFirst -= count;
+	} else {
+	    entryPtr->selectFirst = index;
+	}
+    }
+    if (entryPtr->selectLast >= index) {
+	if (entryPtr->selectLast >= (index+count)) {
+	    entryPtr->selectLast -= count;
+	} else {
+	    entryPtr->selectLast = index;
+	}
+    }
+    if (entryPtr->selectLast <= entryPtr->selectFirst) {
+	entryPtr->selectFirst = entryPtr->selectLast = -1;
+    }
+    if (entryPtr->selectAnchor >= index) {
+	if (entryPtr->selectAnchor >= (index+count)) {
+	    entryPtr->selectAnchor -= count;
+	} else {
+	    entryPtr->selectAnchor = index;
+	}
+    }
+    if (entryPtr->leftIndex > index) {
+	if (entryPtr->leftIndex >= (index+count)) {
+	    entryPtr->leftIndex -= count;
+	} else {
+	    entryPtr->leftIndex = index;
+	}
+    }
+    if (entryPtr->insertPos >= index) {
+	if (entryPtr->insertPos >= (index+count)) {
+	    entryPtr->insertPos -= count;
+	} else {
+	    entryPtr->insertPos = index;
+	}
+    }
+    EntryValueChanged(entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryValueChanged --
+ *
+ *	This procedure is invoked when characters are inserted into
+ *	an entry or deleted from it.  It updates the entry's associated
+ *	variable, if there is one, and does other bookkeeping such
+ *	as arranging for redisplay.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryValueChanged(entryPtr)
+    Entry *entryPtr;		/* Entry whose value just changed. */
+{
+    char *newValue;
+
+    if (entryPtr->textVarName == NULL) {
+	newValue = NULL;
+    } else {
+	newValue = Tcl_SetVar(entryPtr->interp, entryPtr->textVarName,
+#ifdef STk_CODE
+		entryPtr->string, 
+	        (entryPtr->stringp ? STk_STRINGIFY : 0) | TCL_GLOBAL_ONLY);
+#else
+		entryPtr->string, TCL_GLOBAL_ONLY);
+#endif
+    }
+
+    if ((newValue != NULL) && (strcmp(newValue, entryPtr->string) != 0)) {
+	/*
+	 * The value of the variable is different than what we asked for.
+	 * This means that a trace on the variable modified it.  In this
+	 * case our trace procedure wasn't invoked since the modification
+	 * came while a trace was already active on the variable.  So,
+	 * update our value to reflect the variable's latest value.
+	 */
+
+	EntrySetValue(entryPtr, newValue);
+    } else {
+	/*
+	 * Arrange for redisplay.
+	 */
+
+	entryPtr->flags |= UPDATE_SCROLLBAR;
+	EntryComputeGeometry(entryPtr);
+	EventuallyRedraw(entryPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntrySetValue --
+ *
+ *	Replace the contents of a text entry with a given value.  This
+ *	procedure is invoked when updating the entry from the entry's
+ *	associated variable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The string displayed in the entry will change.  The selection,
+ *	insertion point, and view may have to be adjusted to keep them
+ *	within the bounds of the new string.  Note: this procedure does
+ *	*not* update the entry's associated variable, since that could
+ *	result in an infinite loop.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntrySetValue(entryPtr, value)
+    register Entry *entryPtr;		/* Entry whose value is to be
+					 * changed. */
+    char *value;			/* New text to display in entry. */
+{
+    ckfree(entryPtr->string);
+    entryPtr->numChars = strlen(value);
+    entryPtr->string = (char *) ckalloc((unsigned) (entryPtr->numChars + 1));
+    strcpy(entryPtr->string, value);
+    if (entryPtr->selectFirst != -1) {
+	if (entryPtr->selectFirst >= entryPtr->numChars) {
+	    entryPtr->selectFirst = entryPtr->selectLast = -1;
+	} else if (entryPtr->selectLast > entryPtr->numChars) {
+	    entryPtr->selectLast = entryPtr->numChars;
+	}
+    }
+    if (entryPtr->leftIndex >= entryPtr->numChars) {
+	entryPtr->leftIndex = entryPtr->numChars-1;
+    }
+    if (entryPtr->insertPos > entryPtr->numChars) {
+	entryPtr->insertPos = entryPtr->numChars;
+    }
+
+    entryPtr->flags |= UPDATE_SCROLLBAR;
+    EntryComputeGeometry(entryPtr);
+    EventuallyRedraw(entryPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EntryEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on entryes.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EntryEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Entry *entryPtr = (Entry *) clientData;
+    if (eventPtr->type == Expose) {
+	EventuallyRedraw(entryPtr);
+	entryPtr->flags |= BORDER_NEEDED;
+    } else if (eventPtr->type == DestroyNotify) {
+	if (entryPtr->tkwin != NULL) {
+	    entryPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(entryPtr->interp,
+		    Tcl_GetCommandName(entryPtr->interp, entryPtr->widgetCmd));
+	}
+	if (entryPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayEntry, (ClientData) entryPtr);
+	}
+	Tcl_EventuallyFree((ClientData) entryPtr, DestroyEntry);
+    } else if (eventPtr->type == ConfigureNotify) {
+	Tcl_Preserve((ClientData) entryPtr);
+	entryPtr->flags |= UPDATE_SCROLLBAR;
+	EntryComputeGeometry(entryPtr);
+	EventuallyRedraw(entryPtr);
+	Tcl_Release((ClientData) entryPtr);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    EntryFocusProc(entryPtr, 1);
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    EntryFocusProc(entryPtr, 0);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Entry *entryPtr = (Entry *) clientData;
+    Tk_Window tkwin = entryPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	entryPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetEntryIndex --
+ *
+ *	Parse an index into an entry and return either its value
+ *	or an error.
+ *
+ * Results:
+ *	A standard Tcl result.  If all went well, then *indexPtr is
+ *	filled in with the index (into entryPtr) corresponding to
+ *	string.  The index value is guaranteed to lie between 0 and
+ *	the number of characters in the string, inclusive.  If an
+ *	error occurs then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetEntryIndex(interp, entryPtr, string, indexPtr)
+    Tcl_Interp *interp;		/* For error messages. */
+    Entry *entryPtr;		/* Entry for which the index is being
+				 * specified. */
+    char *string;		/* Specifies character in entryPtr. */
+    int *indexPtr;		/* Where to store converted index. */
+{
+    size_t length;
+
+    length = strlen(string);
+
+    if (string[0] == 'a') {
+	if (strncmp(string, "anchor", length) == 0) {
+	    *indexPtr = entryPtr->selectAnchor;
+	} else {
+	    badIndex:
+
+	    /*
+	     * Some of the paths here leave messages in interp->result,
+	     * so we have to clear it out before storing our own message.
+	     */
+
+	    Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+	    Tcl_AppendResult(interp, "bad entry index \"", string,
+		    "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+    } else if (string[0] == 'e') {
+	if (strncmp(string, "end", length) == 0) {
+	    *indexPtr = entryPtr->numChars;
+	} else {
+	    goto badIndex;
+	}
+    } else if (string[0] == 'i') {
+	if (strncmp(string, "insert", length) == 0) {
+	    *indexPtr = entryPtr->insertPos;
+	} else {
+	    goto badIndex;
+	}
+    } else if (string[0] == 's') {
+	if (entryPtr->selectFirst == -1) {
+	    interp->result = "selection isn't in entry";
+	    return TCL_ERROR;
+	}
+	if (length < 5) {
+	    goto badIndex;
+	}
+	if (strncmp(string, "sel.first", length) == 0) {
+	    *indexPtr = entryPtr->selectFirst;
+	} else if (strncmp(string, "sel.last", length) == 0) {
+	    *indexPtr = entryPtr->selectLast;
+	} else {
+	    goto badIndex;
+	}
+    } else if (string[0] == '@') {
+	int x, dummy, roundUp;
+
+	if (Tcl_GetInt(interp, string+1, &x) != TCL_OK) {
+	    goto badIndex;
+	}
+	if (x < entryPtr->inset) {
+	    x = entryPtr->inset;
+	}
+	roundUp = 0;
+	if (x >= (Tk_Width(entryPtr->tkwin) - entryPtr->inset)) {
+	    x = Tk_Width(entryPtr->tkwin) - entryPtr->inset - 1;
+	    roundUp = 1;
+	}
+	if (entryPtr->numChars == 0) {
+	    *indexPtr = 0;
+	} else {
+	    *indexPtr = TkMeasureChars(entryPtr->fontPtr,
+		    (entryPtr->displayString == NULL) ? entryPtr->string
+		    : entryPtr->displayString,
+		    entryPtr->numChars, entryPtr->tabOrigin, x,
+		    entryPtr->tabOrigin, TK_NEWLINES_NOT_SPECIAL, &dummy);
+	}
+
+	/*
+	 * Special trick:  if the x-position was off-screen to the right,
+	 * round the index up to refer to the character just after the
+	 * last visible one on the screen.  This is needed to enable the
+	 * last character to be selected, for example.
+	 */
+
+	if (roundUp && (*indexPtr < entryPtr->numChars)) {
+	    *indexPtr += 1;
+	}
+    } else {
+	if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
+	    goto badIndex;
+	}
+	if (*indexPtr < 0){
+	    *indexPtr = 0;
+	} else if (*indexPtr > entryPtr->numChars) {
+	    *indexPtr = entryPtr->numChars;
+	}
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryScanTo --
+ *
+ *	Given a y-coordinate (presumably of the curent mouse location)
+ *	drag the view in the window to implement the scan operation.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The view in the window may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryScanTo(entryPtr, x)
+    register Entry *entryPtr;		/* Information about widget. */
+    int x;				/* X-coordinate to use for scan
+					 * operation. */
+{
+    int newLeftIndex;
+
+    /*
+     * Compute new leftIndex for entry by amplifying the difference
+     * between the current position and the place where the scan
+     * started (the "mark" position).  If we run off the left or right
+     * side of the entry, then reset the mark point so that the current
+     * position continues to correspond to the edge of the window.
+     * This means that the picture will start dragging as soon as the
+     * mouse reverses direction (without this reset, might have to slide
+     * mouse a long ways back before the picture starts moving again).
+     */
+
+    newLeftIndex = entryPtr->scanMarkIndex
+	    - (10*(x - entryPtr->scanMarkX))/entryPtr->avgWidth;
+    if (newLeftIndex >= entryPtr->numChars) {
+	newLeftIndex = entryPtr->scanMarkIndex = entryPtr->numChars-1;
+	entryPtr->scanMarkX = x;
+    }
+    if (newLeftIndex < 0) {
+	newLeftIndex = entryPtr->scanMarkIndex = 0;
+	entryPtr->scanMarkX = x;
+    } 
+    if (newLeftIndex != entryPtr->leftIndex) {
+	entryPtr->leftIndex = newLeftIndex;
+	entryPtr->flags |= UPDATE_SCROLLBAR;
+	EntryComputeGeometry(entryPtr);
+	EventuallyRedraw(entryPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntrySelectTo --
+ *
+ *	Modify the selection by moving its un-anchored end.  This could
+ *	make the selection either larger or smaller.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The selection changes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntrySelectTo(entryPtr, index)
+    register Entry *entryPtr;		/* Information about widget. */
+    int index;				/* Index of element that is to
+					 * become the "other" end of the
+					 * selection. */
+{
+    int newFirst, newLast;
+
+    /*
+     * Grab the selection if we don't own it already.
+     */
+
+    if ((entryPtr->selectFirst == -1) && (entryPtr->exportSelection)) {
+	Tk_OwnSelection(entryPtr->tkwin, XA_PRIMARY, EntryLostSelection,
+		(ClientData) entryPtr);
+    }
+
+    /*
+     * Pick new starting and ending points for the selection.
+     */
+
+    if (entryPtr->selectAnchor > entryPtr->numChars) {
+	entryPtr->selectAnchor = entryPtr->numChars;
+    }
+    if (entryPtr->selectAnchor <= index) {
+	newFirst = entryPtr->selectAnchor;
+	newLast = index;
+    } else {
+	newFirst = index;
+	newLast = entryPtr->selectAnchor;
+	if (newLast < 0) {
+	    newFirst = newLast = -1;
+	}
+    }
+    if ((entryPtr->selectFirst == newFirst)
+	    && (entryPtr->selectLast == newLast)) {
+	return;
+    }
+    entryPtr->selectFirst = newFirst;
+    entryPtr->selectLast = newLast;
+    EventuallyRedraw(entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryFetchSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	requested by someone.  It returns part or all of the selection
+ *	in a buffer provided by the caller.
+ *
+ * Results:
+ *	The return value is the number of non-NULL bytes stored
+ *	at buffer.  Buffer is filled (or partially filled) with a
+ *	NULL-terminated string containing part or all of the selection,
+ *	as given by offset and maxBytes.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+EntryFetchSelection(clientData, offset, buffer, maxBytes)
+    ClientData clientData;		/* Information about entry widget. */
+    int offset;				/* Offset within selection of first
+					 * character to be returned. */
+    char *buffer;			/* Location in which to place
+					 * selection. */
+    int maxBytes;			/* Maximum number of bytes to place
+					 * at buffer, not including terminating
+					 * NULL character. */
+{
+    Entry *entryPtr = (Entry *) clientData;
+    int count;
+    char *displayString;
+
+    if ((entryPtr->selectFirst < 0) || !(entryPtr->exportSelection)) {
+	return -1;
+    }
+    count = entryPtr->selectLast - entryPtr->selectFirst - offset;
+    if (count > maxBytes) {
+	count = maxBytes;
+    }
+    if (count <= 0) {
+	return 0;
+    }
+    if (entryPtr->displayString == NULL) {
+	displayString = entryPtr->string;
+    } else {
+	displayString = entryPtr->displayString;
+    }
+    strncpy(buffer, displayString + entryPtr->selectFirst + offset,
+	    (size_t) count);
+    buffer[count] = '\0';
+    return count;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryLostSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	grabbed away from an entry widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The existing selection is unhighlighted, and the window is
+ *	marked as not containing a selection.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryLostSelection(clientData)
+    ClientData clientData;		/* Information about entry widget. */
+{
+    Entry *entryPtr = (Entry *) clientData;
+
+    if ((entryPtr->selectFirst != -1) && entryPtr->exportSelection) {
+	entryPtr->selectFirst = -1;
+	entryPtr->selectLast = -1;
+	EventuallyRedraw(entryPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EventuallyRedraw --
+ *
+ *	Ensure that an entry is eventually redrawn on the display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets redisplayed.  Right now we don't do selective
+ *	redisplays:  the whole window will be redrawn.  This doesn't
+ *	seem to hurt performance noticeably, but if it does then this
+ *	could be changed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EventuallyRedraw(entryPtr)
+    register Entry *entryPtr;		/* Information about widget. */
+{
+    if ((entryPtr->tkwin == NULL) || !Tk_IsMapped(entryPtr->tkwin)) {
+	return;
+    }
+
+    /*
+     * Right now we don't do selective redisplays:  the whole window
+     * will be redrawn.  This doesn't seem to hurt performance noticeably,
+     * but if it does then this could be changed.
+     */
+
+    if (!(entryPtr->flags & REDRAW_PENDING)) {
+	entryPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayEntry, (ClientData) entryPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryVisibleRange --
+ *
+ *	Return information about the range of the entry that is
+ *	currently visible.
+ *
+ * Results:
+ *	*firstPtr and *lastPtr are modified to hold fractions between
+ *	0 and 1 identifying the range of characters visible in the
+ *	entry.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryVisibleRange(entryPtr, firstPtr, lastPtr)
+    Entry *entryPtr;			/* Information about widget. */
+    double *firstPtr;			/* Return position of first visible
+					 * character in widget. */
+    double *lastPtr;			/* Return position of char just after
+					 * last visible one. */
+{
+    char *displayString;
+    int charsInWindow, endX;
+
+    if (entryPtr->displayString == NULL) {
+	displayString = entryPtr->string;
+    } else {
+	displayString = entryPtr->displayString;
+    }
+    if (entryPtr->numChars == 0) {
+	*firstPtr = 0.0;
+	*lastPtr = 1.0;
+    } else {
+	charsInWindow = TkMeasureChars(entryPtr->fontPtr,
+		displayString + entryPtr->leftIndex,
+		entryPtr->numChars - entryPtr->leftIndex, entryPtr->inset,
+		Tk_Width(entryPtr->tkwin) - entryPtr->inset, entryPtr->inset,
+		TK_AT_LEAST_ONE|TK_NEWLINES_NOT_SPECIAL, &endX);
+	*firstPtr = ((double) entryPtr->leftIndex)/entryPtr->numChars;
+	*lastPtr = ((double) (entryPtr->leftIndex + charsInWindow))
+		/entryPtr->numChars;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryUpdateScrollbar --
+ *
+ *	This procedure is invoked whenever information has changed in
+ *	an entry in a way that would invalidate a scrollbar display.
+ *	If there is an associated scrollbar, then this procedure updates
+ *	it by invoking a Tcl command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A Tcl command is invoked, and an additional command may be
+ *	invoked to process errors in the command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryUpdateScrollbar(entryPtr)
+    Entry *entryPtr;			/* Information about widget. */
+{
+    char args[100];
+    int code;
+    double first, last;
+    Tcl_Interp *interp;
+
+    if (entryPtr->scrollCmd == NULL) {
+	return;
+    }
+
+    interp = entryPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    EntryVisibleRange(entryPtr, &first, &last);
+    sprintf(args, " %g %g", first, last);
+    code = Tcl_VarEval(interp, entryPtr->scrollCmd, args, (char *) NULL);
+    if (code != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (horizontal scrolling command executed by entry)");
+	Tcl_BackgroundError(interp);
+    }
+    Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+    Tcl_Release((ClientData) interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryBlinkProc --
+ *
+ *	This procedure is called as a timer handler to blink the
+ *	insertion cursor off and on.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor gets turned on or off, redisplay gets invoked,
+ *	and this procedure reschedules itself.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryBlinkProc(clientData)
+    ClientData clientData;	/* Pointer to record describing entry. */
+{
+    register Entry *entryPtr = (Entry *) clientData;
+
+    if (!(entryPtr->flags & GOT_FOCUS) || (entryPtr->insertOffTime == 0)) {
+	return;
+    }
+    if (entryPtr->flags & CURSOR_ON) {
+	entryPtr->flags &= ~CURSOR_ON;
+	entryPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		entryPtr->insertOffTime, EntryBlinkProc, (ClientData) entryPtr);
+    } else {
+	entryPtr->flags |= CURSOR_ON;
+	entryPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		entryPtr->insertOnTime, EntryBlinkProc, (ClientData) entryPtr);
+    }
+    EventuallyRedraw(entryPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EntryFocusProc --
+ *
+ *	This procedure is called whenever the entry gets or loses the
+ *	input focus.  It's also called whenever the window is reconfigured
+ *	while it has the focus.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor gets turned on or off.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EntryFocusProc(entryPtr, gotFocus)
+    register Entry *entryPtr;	/* Entry that got or lost focus. */
+    int gotFocus;		/* 1 means window is getting focus, 0 means
+				 * it's losing it. */
+{
+    Tcl_DeleteTimerHandler(entryPtr->insertBlinkHandler);
+    if (gotFocus) {
+	entryPtr->flags |= GOT_FOCUS | CURSOR_ON;
+	if (entryPtr->insertOffTime != 0) {
+	    entryPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		    entryPtr->insertOnTime, EntryBlinkProc,
+		    (ClientData) entryPtr);
+	}
+    } else {
+	entryPtr->flags &= ~(GOT_FOCUS | CURSOR_ON);
+	entryPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+    }
+    EventuallyRedraw(entryPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EntryTextVarProc --
+ *
+ *	This procedure is invoked when someone changes the variable
+ *	whose contents are to be displayed in an entry.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The text displayed in the entry will change to match the
+ *	variable.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+EntryTextVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about button. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Not used. */
+    char *name2;		/* Not used. */
+    int flags;			/* Information about what happened. */
+{
+    register Entry *entryPtr = (Entry *) clientData;
+    char *value;
+
+    /*
+     * If the variable is unset, then immediately recreate it unless
+     * the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_SetVar(interp, entryPtr->textVarName, entryPtr->string,
+		    TCL_GLOBAL_ONLY);
+	    Tcl_TraceVar(interp, entryPtr->textVarName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    EntryTextVarProc, clientData);
+	}
+	return (char *) NULL;
+    }
+
+    /*
+     * Update the entry's text with the value of the variable, unless
+     * the entry already has that value (this happens when the variable
+     * changes value because we changed it because someone typed in
+     * the entry).
+     */
+
+    value = Tcl_GetVar(interp, entryPtr->textVarName, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (strcmp(value, entryPtr->string) != 0) {
+	EntrySetValue(entryPtr, value);
+    }
+    return (char *) NULL;
+}
diff --git a/Tk/generic/tkError.c b/Tk/generic/tkError.c
new file mode 100644
index 0000000..ce9cc8c
--- /dev/null
+++ b/Tk/generic/tkError.c
@@ -0,0 +1,300 @@
+/* 
+ * tkError.c --
+ *
+ *	This file provides a high-performance mechanism for
+ *	selectively dealing with errors that occur in talking
+ *	to the X server.  This is useful, for example, when
+ *	communicating with a window that may not exist.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkError.c 1.20 96/02/15 18:53:17
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The default X error handler gets saved here, so that it can
+ * be invoked if an error occurs that we can't handle.
+ */
+
+static int	(*defaultHandler) _ANSI_ARGS_((Display *display,
+		    XErrorEvent *eventPtr)) = NULL;
+
+
+/*
+ * Forward references to procedures declared later in this file:
+ */
+
+static int	ErrorProc _ANSI_ARGS_((Display *display,
+		    XErrorEvent *errEventPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateErrorHandler --
+ *
+ *	Arrange for all a given procedure to be invoked whenever
+ *	certain errors occur.
+ *
+ * Results:
+ *	The return value is a token identifying the handler;
+ *	it must be passed to Tk_DeleteErrorHandler to delete the
+ *	handler.
+ *
+ * Side effects:
+ *	If an X error occurs that matches the error, request,
+ *	and minor arguments, then errorProc will be invoked.
+ *	ErrorProc should have the following structure:
+ *
+ *	int
+ *	errorProc(clientData, errorEventPtr)
+ *	    caddr_t clientData;
+ *	    XErrorEvent *errorEventPtr;
+ *	{
+ *	}
+ *
+ *	The clientData argument will be the same as the clientData
+ *	argument to this procedure, and errorEvent will describe
+ *	the error.  If errorProc returns 0, it means that it
+ *	completely "handled" the error:  no further processing
+ *	should be done.  If errorProc returns 1, it means that it
+ *	didn't know how to deal with the error, so we should look
+ *	for other error handlers, or invoke the default error
+ *	handler if no other handler returns zero.  Handlers are
+ *	invoked in order of age:  youngest handler first.
+ *
+ *	Note:  errorProc will only be called for errors associated
+ *	with X requests made AFTER this call, but BEFORE the handler
+ *	is deleted by calling Tk_DeleteErrorHandler.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_ErrorHandler
+Tk_CreateErrorHandler(display, error, request, minorCode, errorProc, clientData)
+    Display *display;		/* Display for which to handle
+				 * errors. */
+    int error;			/* Consider only errors with this
+				 * error_code (-1 means consider
+				 * all errors). */
+    int request;		/* Consider only errors with this
+				 * major request code (-1 means
+				 * consider all major codes). */
+    int minorCode;		/* Consider only errors with this
+				 * minor request code (-1 means
+				 * consider all minor codes). */
+    Tk_ErrorProc *errorProc;	/* Procedure to invoke when a
+				 * matching error occurs.  NULL means
+				 * just ignore matching errors. */
+    ClientData clientData;	/* Arbitrary value to pass to
+				 * errorProc. */
+{
+    register TkErrorHandler *errorPtr;
+    register TkDisplay *dispPtr;
+
+    /*
+     * Find the display.  If Tk doesn't know about this display then
+     * it's an error:  panic.
+     */
+
+    dispPtr = TkGetDisplay(display);
+    if (dispPtr == NULL) {
+	panic("Unknown display passed to Tk_CreateErrorHandler");
+    }
+
+    /*
+     * Make sure that X calls us whenever errors occur.
+     */
+
+    if (defaultHandler == NULL) {
+	defaultHandler = XSetErrorHandler(ErrorProc);
+    }
+
+    /*
+     * Create the handler record.
+     */
+
+    errorPtr = (TkErrorHandler *) ckalloc(sizeof(TkErrorHandler));
+    errorPtr->dispPtr = dispPtr;
+    errorPtr->firstRequest = NextRequest(display);
+    errorPtr->lastRequest = (unsigned) -1;
+    errorPtr->error = error;
+    errorPtr->request = request;
+    errorPtr->minorCode = minorCode;
+    errorPtr->errorProc = errorProc;
+    errorPtr->clientData = clientData;
+    errorPtr->nextPtr = dispPtr->errorPtr;
+    dispPtr->errorPtr = errorPtr;
+
+    return (Tk_ErrorHandler) errorPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteErrorHandler --
+ *
+ *	Do not use an error handler anymore.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The handler denoted by the "handler" argument will not
+ *	be invoked for any X errors associated with requests
+ *	made after this call.  However, if errors arrive later
+ *	for requests made BEFORE this call, then the handler
+ *	will still be invoked.  Call XSync if you want to be
+ *	sure that all outstanding errors have been received
+ *	and processed.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DeleteErrorHandler(handler)
+    Tk_ErrorHandler handler;	/* Token for handler to delete;
+				 * was previous return value from
+				 * Tk_CreateErrorHandler. */
+{
+    register TkErrorHandler *errorPtr = (TkErrorHandler *) handler;
+    register TkDisplay *dispPtr = errorPtr->dispPtr;
+
+    errorPtr->lastRequest = NextRequest(dispPtr->display) - 1;
+
+    /*
+     * Every once-in-a-while, cleanup handlers that are no longer
+     * active.  We probably won't be able to free the handler that
+     * was just deleted (need to wait for any outstanding requests to
+     * be processed by server), but there may be previously-deleted
+     * handlers that are now ready for garbage collection.  To reduce
+     * the cost of the cleanup, let a few dead handlers pile up, then
+     * clean them all at once.  This adds a bit of overhead to errors
+     * that might occur while the dead handlers are hanging around,
+     * but reduces the overhead of scanning the list to clean up
+     * (particularly if there are many handlers that stay around
+     * forever).
+     */
+
+    dispPtr->deleteCount += 1;
+    if (dispPtr->deleteCount >= 10) {
+	register TkErrorHandler *prevPtr;
+	TkErrorHandler *nextPtr;
+	int lastSerial;
+
+	dispPtr->deleteCount = 0;
+	lastSerial = LastKnownRequestProcessed(dispPtr->display);
+	errorPtr = dispPtr->errorPtr;
+	for (errorPtr = dispPtr->errorPtr, prevPtr = NULL;
+		errorPtr != NULL;  errorPtr = nextPtr) {
+	    nextPtr = errorPtr->nextPtr;
+	    if ((errorPtr->lastRequest != -1)
+		    && (errorPtr->lastRequest <= lastSerial)) {
+		if (prevPtr == NULL) {
+		    dispPtr->errorPtr = nextPtr;
+		} else {
+		    prevPtr->nextPtr = nextPtr;
+		}
+		ckfree((char *) errorPtr);
+		continue;
+	    }
+	    prevPtr = errorPtr;
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ErrorProc --
+ *
+ *	This procedure is invoked by the X system when error
+ *	events arrive.
+ *
+ * Results:
+ *	If it returns, the return value is zero.  However,
+ *	it is possible that one of the error handlers may
+ *	just exit.
+ *
+ * Side effects:
+ *	This procedure does two things.  First, it uses the
+ *	serial #  in the error event to eliminate handlers whose
+ *	expiration serials are now in the past.  Second, it
+ *	invokes any handlers that want to deal with the error.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ErrorProc(display, errEventPtr)
+    Display *display;			/* Display for which error
+					 * occurred. */
+    register XErrorEvent *errEventPtr;	/* Information about error. */
+{
+    register TkDisplay *dispPtr;
+    register TkErrorHandler *errorPtr;
+
+    /*
+     * See if we know anything about the display.  If not, then
+     * invoke the default error handler.
+     */
+
+    dispPtr = TkGetDisplay(display);
+    if (dispPtr == NULL) {
+	goto couldntHandle;
+    }
+
+    /*
+     * Otherwise invoke any relevant handlers for the error, in order.
+     */
+
+    for (errorPtr = dispPtr->errorPtr; errorPtr != NULL;
+	    errorPtr = errorPtr->nextPtr) {
+	if ((errorPtr->firstRequest > errEventPtr->serial)
+		|| ((errorPtr->error != -1)
+		    && (errorPtr->error != errEventPtr->error_code))
+		|| ((errorPtr->request != -1)
+		    && (errorPtr->request != errEventPtr->request_code))
+		|| ((errorPtr->minorCode != -1)
+		    && (errorPtr->minorCode != errEventPtr->minor_code))
+		|| ((errorPtr->lastRequest != -1)
+		    && (errorPtr->lastRequest < errEventPtr->serial))) {
+	    continue;
+	}
+	if (errorPtr->errorProc == NULL) {
+	    return 0;
+	} else {
+	    if ((*errorPtr->errorProc)(errorPtr->clientData,
+		    errEventPtr) == 0) {
+		return 0;
+	    }
+	}
+    }
+
+    /*
+     * See if the error is a BadWindow error.  If so, and it refers
+     * to a window that still exists in our window table, then ignore
+     * the error.  Errors like this can occur if a window owned by us
+     * is deleted by someone externally, like a window manager.  We'll
+     * ignore the errors at least long enough to clean up internally and
+     * remove the entry from the window table.
+     */
+
+    if ((errEventPtr->error_code == BadWindow) && (Tk_IdToWindow(display,
+	    (Window) errEventPtr->resourceid) != NULL)) {
+	return 0;
+    }
+
+    /*
+     * We couldn't handle the error.  Use the default handler.
+     */
+
+    couldntHandle:
+    return (*defaultHandler)(display, errEventPtr);
+}
diff --git a/Tk/generic/tkEvent.c b/Tk/generic/tkEvent.c
new file mode 100644
index 0000000..11529d3
--- /dev/null
+++ b/Tk/generic/tkEvent.c
@@ -0,0 +1,1041 @@
+/* 
+ * tkEvent.c --
+ *
+ *	This file provides basic low-level facilities for managing
+ *	X events in Tk.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkEvent.c 1.16 96/03/29 17:56:54
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include <signal.h>
+
+/*
+ * There's a potential problem if a handler is deleted while it's
+ * current (i.e. its procedure is executing), since Tk_HandleEvent
+ * will need to read the handler's "nextPtr" field when the procedure
+ * returns.  To handle this problem, structures of the type below
+ * indicate the next handler to be processed for any (recursively
+ * nested) dispatches in progress.  The nextHandler fields get
+ * updated if the handlers pointed to are deleted.  Tk_HandleEvent
+ * also needs to know if the entire window gets deleted;  the winPtr
+ * field is set to zero if that particular window gets deleted.
+ */
+
+typedef struct InProgress {
+    XEvent *eventPtr;		 /* Event currently being handled. */
+    TkWindow *winPtr;		 /* Window for event.  Gets set to None if
+				  * window is deleted while event is being
+				  * handled. */
+    TkEventHandler *nextHandler; /* Next handler in search. */
+    struct InProgress *nextPtr;	 /* Next higher nested search. */
+} InProgress;
+
+static InProgress *pendingPtr = NULL;
+				/* Topmost search in progress, or
+				 * NULL if none. */
+
+/*
+ * For each call to Tk_CreateGenericHandler, an instance of the following
+ * structure will be created.  All of the active handlers are linked into a
+ * list.
+ */
+
+typedef struct GenericHandler {
+    Tk_GenericProc *proc;	/* Procedure to dispatch on all X events. */
+    ClientData clientData;	/* Client data to pass to procedure. */
+    int deleteFlag;		/* Flag to set when this handler is deleted. */
+    struct GenericHandler *nextPtr;
+				/* Next handler in list of all generic
+				 * handlers, or NULL for end of list. */
+} GenericHandler;
+
+static GenericHandler *genericList = NULL;
+				/* First handler in the list, or NULL. */
+static GenericHandler *lastGenericPtr = NULL;
+				/* Last handler in list. */
+
+/*
+ * There's a potential problem if Tk_HandleEvent is entered recursively.
+ * A handler cannot be deleted physically until we have returned from
+ * calling it.  Otherwise, we're looking at unallocated memory in advancing to
+ * its `next' entry.  We deal with the problem by using the `delete flag' and
+ * deleting handlers only when it's known that there's no handler active.
+ *
+ * The following variable has a non-zero value when a handler is active.
+ */
+
+static int genericHandlersActive = 0;
+
+/*
+ * The following structure is used for queueing X-style events on the
+ * Tcl event queue.
+ */
+
+typedef struct TkWindowEvent {
+    Tcl_Event header;		/* Standard information for all events. */
+    XEvent event;		/* The X event. */
+} TkWindowEvent;
+
+/*
+ * Array of event masks corresponding to each X event:
+ */
+
+static unsigned long eventMasks[] = {
+    0,
+    0,
+    KeyPressMask,			/* KeyPress */
+    KeyReleaseMask,			/* KeyRelease */
+    ButtonPressMask,			/* ButtonPress */
+    ButtonReleaseMask,			/* ButtonRelease */
+    PointerMotionMask|PointerMotionHintMask|ButtonMotionMask
+	    |Button1MotionMask|Button2MotionMask|Button3MotionMask
+	    |Button4MotionMask|Button5MotionMask,
+					/* MotionNotify */
+    EnterWindowMask,			/* EnterNotify */
+    LeaveWindowMask,			/* LeaveNotify */
+    FocusChangeMask,			/* FocusIn */
+    FocusChangeMask,			/* FocusOut */
+    KeymapStateMask,			/* KeymapNotify */
+    ExposureMask,			/* Expose */
+    ExposureMask,			/* GraphicsExpose */
+    ExposureMask,			/* NoExpose */
+    VisibilityChangeMask,		/* VisibilityNotify */
+    SubstructureNotifyMask,		/* CreateNotify */
+    StructureNotifyMask,		/* DestroyNotify */
+    StructureNotifyMask,		/* UnmapNotify */
+    StructureNotifyMask,		/* MapNotify */
+    SubstructureRedirectMask,		/* MapRequest */
+    StructureNotifyMask,		/* ReparentNotify */
+    StructureNotifyMask,		/* ConfigureNotify */
+    SubstructureRedirectMask,		/* ConfigureRequest */
+    StructureNotifyMask,		/* GravityNotify */
+    ResizeRedirectMask,			/* ResizeRequest */
+    StructureNotifyMask,		/* CirculateNotify */
+    SubstructureRedirectMask,		/* CirculateRequest */
+    PropertyChangeMask,			/* PropertyNotify */
+    0,					/* SelectionClear */
+    0,					/* SelectionRequest */
+    0,					/* SelectionNotify */
+    ColormapChangeMask,			/* ColormapNotify */
+    0,					/* ClientMessage */
+    0,					/* Mapping Notify */
+    ActivateMask,			/* ActivateNotify */
+    ActivateMask			/* DeactivateNotify */
+};
+
+/*
+ * If someone has called Tk_RestrictEvents, the information below
+ * keeps track of it.
+ */
+
+static Tk_RestrictProc *restrictProc;
+				/* Procedure to call.  NULL means no
+				 * restrictProc is currently in effect. */
+static ClientData restrictArg;	/* Argument to pass to restrictProc. */
+
+/*
+ * Prototypes for procedures that are only referenced locally within
+ * this file.
+ */
+
+static void		DelayedMotionProc _ANSI_ARGS_((ClientData clientData));
+static int		WindowEventProc _ANSI_ARGS_((Tcl_Event *evPtr,
+			    int flags));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateEventHandler --
+ *
+ *	Arrange for a given procedure to be invoked whenever
+ *	events from a given class occur in a given window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, whenever an event of the type given by
+ *	mask occurs for token and is processed by Tk_HandleEvent,
+ *	proc will be called.  See the manual entry for details
+ *	of the calling sequence and return value for proc.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CreateEventHandler(token, mask, proc, clientData)
+    Tk_Window token;		/* Token for window in which to
+				 * create handler. */
+    unsigned long mask;		/* Events for which proc should
+				 * be called. */
+    Tk_EventProc *proc;		/* Procedure to call for each
+				 * selected event */
+    ClientData clientData;	/* Arbitrary data to pass to proc. */
+{
+    register TkEventHandler *handlerPtr;
+    register TkWindow *winPtr = (TkWindow *) token;
+    int found;
+
+    /*
+     * Skim through the list of existing handlers to (a) compute the
+     * overall event mask for the window (so we can pass this new
+     * value to the X system) and (b) see if there's already a handler
+     * declared with the same callback and clientData (if so, just
+     * change the mask).  If no existing handler matches, then create
+     * a new handler.
+     */
+
+    found = 0;
+    if (winPtr->handlerList == NULL) {
+	handlerPtr = (TkEventHandler *) ckalloc(
+		(unsigned) sizeof(TkEventHandler));
+	winPtr->handlerList = handlerPtr;
+	goto initHandler;
+    } else {
+	for (handlerPtr = winPtr->handlerList; ;
+		handlerPtr = handlerPtr->nextPtr) {
+	    if ((handlerPtr->proc == proc)
+		    && (handlerPtr->clientData == clientData)) {
+		handlerPtr->mask = mask;
+		found = 1;
+	    }
+	    if (handlerPtr->nextPtr == NULL) {
+		break;
+	    }
+	}
+    }
+
+    /*
+     * Create a new handler if no matching old handler was found.
+     */
+
+    if (!found) {
+	handlerPtr->nextPtr = (TkEventHandler *)
+		ckalloc(sizeof(TkEventHandler));
+	handlerPtr = handlerPtr->nextPtr;
+	initHandler:
+	handlerPtr->mask = mask;
+	handlerPtr->proc = proc;
+	handlerPtr->clientData = clientData;
+	handlerPtr->nextPtr = NULL;
+    }
+
+    /*
+     * No need to call XSelectInput:  Tk always selects on all events
+     * for all windows (needed to support bindings on classes and "all").
+     */
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteEventHandler --
+ *
+ *	Delete a previously-created handler.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If there existed a handler as described by the
+ *	parameters, the handler is deleted so that proc
+ *	will not be invoked again.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DeleteEventHandler(token, mask, proc, clientData)
+    Tk_Window token;		/* Same as corresponding arguments passed */
+    unsigned long mask;		/* previously to Tk_CreateEventHandler. */
+    Tk_EventProc *proc;
+    ClientData clientData;
+{
+    register TkEventHandler *handlerPtr;
+    register InProgress *ipPtr;
+    TkEventHandler *prevPtr;
+    register TkWindow *winPtr = (TkWindow *) token;
+
+    /*
+     * Find the event handler to be deleted, or return
+     * immediately if it doesn't exist.
+     */
+
+    for (handlerPtr = winPtr->handlerList, prevPtr = NULL; ;
+	    prevPtr = handlerPtr, handlerPtr = handlerPtr->nextPtr) {
+	if (handlerPtr == NULL) {
+	    return;
+	}
+	if ((handlerPtr->mask == mask) && (handlerPtr->proc == proc)
+		&& (handlerPtr->clientData == clientData)) {
+	    break;
+	}
+    }
+
+    /*
+     * If Tk_HandleEvent is about to process this handler, tell it to
+     * process the next one instead.
+     */
+
+    for (ipPtr = pendingPtr; ipPtr != NULL; ipPtr = ipPtr->nextPtr) {
+	if (ipPtr->nextHandler == handlerPtr) {
+	    ipPtr->nextHandler = handlerPtr->nextPtr;
+	}
+    }
+
+    /*
+     * Free resources associated with the handler.
+     */
+
+    if (prevPtr == NULL) {
+	winPtr->handlerList = handlerPtr->nextPtr;
+    } else {
+	prevPtr->nextPtr = handlerPtr->nextPtr;
+    }
+    ckfree((char *) handlerPtr);
+
+
+    /*
+     * No need to call XSelectInput:  Tk always selects on all events
+     * for all windows (needed to support bindings on classes and "all").
+     */
+}
+
+/*--------------------------------------------------------------
+ *
+ * Tk_CreateGenericHandler --
+ *
+ *	Register a procedure to be called on each X event, regardless
+ *	of display or window.  Generic handlers are useful for capturing
+ *	events that aren't associated with windows, or events for windows
+ *	not managed by Tk.
+ *
+ * Results:
+ *	None.
+ *
+ * Side Effects:
+ *	From now on, whenever an X event is given to Tk_HandleEvent,
+ *	invoke proc, giving it clientData and the event as arguments.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CreateGenericHandler(proc, clientData)
+     Tk_GenericProc *proc;	/* Procedure to call on every event. */
+     ClientData clientData;	/* One-word value to pass to proc. */
+{
+    GenericHandler *handlerPtr;
+    
+    handlerPtr = (GenericHandler *) ckalloc (sizeof (GenericHandler));
+    
+    handlerPtr->proc = proc;
+    handlerPtr->clientData = clientData;
+    handlerPtr->deleteFlag = 0;
+    handlerPtr->nextPtr = NULL;
+    if (genericList == NULL) {
+	genericList = handlerPtr;
+    } else {
+	lastGenericPtr->nextPtr = handlerPtr;
+    }
+    lastGenericPtr = handlerPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DeleteGenericHandler --
+ *
+ *	Delete a previously-created generic handler.
+ *
+ * Results:
+ *	None.
+ *
+ * Side Effects:
+ *	If there existed a handler as described by the parameters,
+ *	that handler is logically deleted so that proc will not be
+ *	invoked again.  The physical deletion happens in the event
+ *	loop in Tk_HandleEvent.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DeleteGenericHandler(proc, clientData)
+     Tk_GenericProc *proc;
+     ClientData clientData;
+{
+    GenericHandler * handler;
+    
+    for (handler = genericList; handler; handler = handler->nextPtr) {
+	if ((handler->proc == proc) && (handler->clientData == clientData)) {
+	    handler->deleteFlag = 1;
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_HandleEvent --
+ *
+ *	Given an event, invoke all the handlers that have
+ *	been registered for the event.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on the handlers.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_HandleEvent(eventPtr)
+    XEvent *eventPtr;		/* Event to dispatch. */
+{
+    register TkEventHandler *handlerPtr;
+    register GenericHandler *genericPtr;
+    register GenericHandler *genPrevPtr;
+    TkWindow *winPtr;
+    unsigned long mask;
+    InProgress ip;
+    Window handlerWindow;
+    TkDisplay *dispPtr;
+    Tcl_Interp *interp = (Tcl_Interp *) NULL;
+
+    /* 
+     * Next, invoke all the generic event handlers (those that are
+     * invoked for all events).  If a generic event handler reports that
+     * an event is fully processed, go no further.
+     */
+
+    for (genPrevPtr = NULL, genericPtr = genericList;  genericPtr != NULL; ) {
+	if (genericPtr->deleteFlag) {
+	    if (!genericHandlersActive) {
+		GenericHandler *tmpPtr;
+
+		/*
+		 * This handler needs to be deleted and there are no
+		 * calls pending through the handler, so now is a safe
+		 * time to delete it.
+		 */
+
+		tmpPtr = genericPtr->nextPtr;
+		if (genPrevPtr == NULL) {
+		    genericList = tmpPtr;
+		} else {
+		    genPrevPtr->nextPtr = tmpPtr;
+		}
+		if (tmpPtr == NULL) {
+		    lastGenericPtr = genPrevPtr;
+		}
+		(void) ckfree((char *) genericPtr);
+		genericPtr = tmpPtr;
+		continue;
+	    }
+	} else {
+	    int done;
+
+	    genericHandlersActive++;
+	    done = (*genericPtr->proc)(genericPtr->clientData, eventPtr);
+	    genericHandlersActive--;
+	    if (done) {
+		return;
+	    }
+	}
+	genPrevPtr = genericPtr;
+	genericPtr = genPrevPtr->nextPtr;
+    }
+
+    /*
+     * If the event is a MappingNotify event, find its display and
+     * refresh the keyboard mapping information for the display.
+     * After that there's nothing else to do with the event, so just
+     * quit.
+     */
+
+    if (eventPtr->type == MappingNotify) {
+	dispPtr = TkGetDisplay(eventPtr->xmapping.display);
+	if (dispPtr != NULL) {
+	    XRefreshKeyboardMapping(&eventPtr->xmapping);
+	    dispPtr->bindInfoStale = 1;
+	}
+	return;
+    }
+
+    /*
+     * Events selected by StructureNotify require special handling.
+     * They look the same as those selected by SubstructureNotify.
+     * The only difference is whether the "event" and "window" fields
+     * are the same.  Compare the two fields and convert StructureNotify
+     * to SubstructureNotify if necessary.
+     */
+
+    handlerWindow = eventPtr->xany.window;
+    mask = eventMasks[eventPtr->xany.type];
+    if (mask == StructureNotifyMask) {
+	if (eventPtr->xmap.event != eventPtr->xmap.window) {
+	    mask = SubstructureNotifyMask;
+	    handlerWindow = eventPtr->xmap.event;
+	}
+    }
+    winPtr = (TkWindow *) Tk_IdToWindow(eventPtr->xany.display, handlerWindow);
+    if (winPtr == NULL) {
+
+	/*
+	 * There isn't a TkWindow structure for this window.
+	 * However, if the event is a PropertyNotify event then call
+	 * the selection manager (it deals beneath-the-table with
+	 * certain properties).
+	 */
+
+	if (eventPtr->type == PropertyNotify) {
+	    TkSelPropProc(eventPtr);
+	}
+	return;
+    }
+
+    if (winPtr->mainPtr != NULL) {
+
+        /*
+         * Protect interpreter for this window from possible deletion
+         * while we are dealing with the event for this window. Thus,
+         * widget writers do not have to worry about protecting the
+         * interpreter in their own code.
+         */
+        
+        interp = winPtr->mainPtr->interp;
+        Tcl_Preserve((ClientData) interp);
+        
+	/*
+	 * Call focus-related code to look at FocusIn, FocusOut, Enter,
+	 * and Leave events;  depending on its return value, ignore the
+	 * event.
+	 */
+    
+	if ((mask & (FocusChangeMask|EnterWindowMask|LeaveWindowMask))
+		&& !TkFocusFilterEvent(winPtr, eventPtr)) {
+            Tcl_Release((ClientData) interp);
+	    return;
+	}
+    
+	/*
+	 * Redirect KeyPress and KeyRelease events to the focus window,
+	 * or ignore them entirely if there is no focus window.  Map the
+	 * x and y coordinates to make sense in the context of the focus
+	 * window, if possible (make both -1 if the map-from and map-to
+	 * windows don't share the same screen).
+	 */
+    
+	if (mask & (KeyPressMask|KeyReleaseMask)) {
+	    TkWindow *focusPtr;
+	    int winX, winY, focusX, focusY;
+    
+	    winPtr->dispPtr->lastEventTime = eventPtr->xkey.time;
+	    focusPtr = TkGetFocus(winPtr);
+	    if (focusPtr == NULL) {
+                Tcl_Release((ClientData) interp);
+		return;
+	    }
+	    if ((focusPtr->display != winPtr->display)
+		    || (focusPtr->screenNum != winPtr->screenNum)) {
+		eventPtr->xkey.x = -1;
+		eventPtr->xkey.y = -1;
+	    } else {
+		Tk_GetRootCoords((Tk_Window) winPtr, &winX, &winY);
+		Tk_GetRootCoords((Tk_Window) focusPtr, &focusX, &focusY);
+		eventPtr->xkey.x -= focusX - winX;
+		eventPtr->xkey.y -= focusY - winY;
+	    }
+	    eventPtr->xkey.window = focusPtr->window;
+	    winPtr = focusPtr;
+	}
+    
+	/*
+	 * Call a grab-related procedure to do special processing on
+	 * pointer events.
+	 */
+    
+	if (mask & (ButtonPressMask|ButtonReleaseMask|PointerMotionMask
+		|EnterWindowMask|LeaveWindowMask)) {
+	    if (mask & (ButtonPressMask|ButtonReleaseMask)) {
+		winPtr->dispPtr->lastEventTime = eventPtr->xbutton.time;
+	    } else if (mask & PointerMotionMask) {
+		winPtr->dispPtr->lastEventTime = eventPtr->xmotion.time;
+	    } else {
+		winPtr->dispPtr->lastEventTime = eventPtr->xcrossing.time;
+	    }
+	    if (TkPointerEvent(eventPtr, winPtr) == 0) {
+                goto done;
+	    }
+	}
+    }
+
+#ifdef TK_USE_INPUT_METHODS
+    /*
+     * Pass the event to the input method(s), if there are any, and
+     * discard the event if the input method(s) insist.  Create the
+     * input context for the window if it hasn't already been done
+     * (XFilterEvent needs this context).
+     */
+
+    if (!(winPtr->flags & TK_CHECKED_IC)) {
+	if (winPtr->dispPtr->inputMethod != NULL) {
+	    winPtr->inputContext = XCreateIC(
+		    winPtr->dispPtr->inputMethod, XNInputStyle,
+		    XIMPreeditNothing|XIMStatusNothing,
+		    XNClientWindow, winPtr->window,
+		    XNFocusWindow, winPtr->window, NULL);
+	}
+	winPtr->flags |= TK_CHECKED_IC;
+    }
+    if (XFilterEvent(eventPtr, None)) {
+        goto done;
+    }
+#endif /* TK_USE_INPUT_METHODS */
+
+    /*
+     * For events where it hasn't already been done, update the current
+     * time in the display.
+     */
+
+    if (eventPtr->type == PropertyNotify) {
+	winPtr->dispPtr->lastEventTime = eventPtr->xproperty.time;
+    }
+
+    /*
+     * There's a potential interaction here with Tk_DeleteEventHandler.
+     * Read the documentation for pendingPtr.
+     */
+
+    ip.eventPtr = eventPtr;
+    ip.winPtr = winPtr;
+    ip.nextHandler = NULL;
+    ip.nextPtr = pendingPtr;
+    pendingPtr = &ip;
+    if (mask == 0) {
+	if ((eventPtr->type == SelectionClear)
+		|| (eventPtr->type == SelectionRequest)
+		|| (eventPtr->type == SelectionNotify)) {
+	    TkSelEventProc((Tk_Window) winPtr, eventPtr);
+	} else if ((eventPtr->type == ClientMessage)
+		&& (eventPtr->xclient.message_type ==
+		    Tk_InternAtom((Tk_Window) winPtr, "WM_PROTOCOLS"))) {
+	    TkWmProtocolEventProc(winPtr, eventPtr);
+	}
+    } else {
+	for (handlerPtr = winPtr->handlerList; handlerPtr != NULL; ) {
+	    if ((handlerPtr->mask & mask) != 0) {
+		ip.nextHandler = handlerPtr->nextPtr;
+		(*(handlerPtr->proc))(handlerPtr->clientData, eventPtr);
+		handlerPtr = ip.nextHandler;
+	    } else {
+		handlerPtr = handlerPtr->nextPtr;
+	    }
+	}
+
+	/*
+	 * Pass the event to the "bind" command mechanism.  But, don't
+	 * do this for SubstructureNotify events.  The "bind" command
+	 * doesn't support them anyway, and it's easier to filter out
+	 * these events here than in the lower-level procedures.
+	 */
+
+	if ((ip.winPtr != None) && (mask != SubstructureNotifyMask)) {
+	    TkBindEventProc(winPtr, eventPtr);
+	}
+    }
+    pendingPtr = ip.nextPtr;
+done:
+
+    /*
+     * Release the interpreter for this window so that it can be potentially
+     * deleted if requested.
+     */
+    
+    if (interp != (Tcl_Interp *) NULL) {
+        Tcl_Release((ClientData) interp);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkEventDeadWindow --
+ *
+ *	This procedure is invoked when it is determined that
+ *	a window is dead.  It cleans up event-related information
+ *	about the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Various things get cleaned up and recycled.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkEventDeadWindow(winPtr)
+    TkWindow *winPtr;		/* Information about the window
+				 * that is being deleted. */
+{
+    register TkEventHandler *handlerPtr;
+    register InProgress *ipPtr;
+
+    /*
+     * While deleting all the handlers, be careful to check for
+     * Tk_HandleEvent being about to process one of the deleted
+     * handlers.  If it is, tell it to quit (all of the handlers
+     * are being deleted).
+     */
+
+    while (winPtr->handlerList != NULL) {
+	handlerPtr = winPtr->handlerList;
+	winPtr->handlerList = handlerPtr->nextPtr;
+	for (ipPtr = pendingPtr; ipPtr != NULL; ipPtr = ipPtr->nextPtr) {
+	    if (ipPtr->nextHandler == handlerPtr) {
+		ipPtr->nextHandler = NULL;
+	    }
+	    if (ipPtr->winPtr == winPtr) {
+		ipPtr->winPtr = None;
+	    }
+	}
+	ckfree((char *) handlerPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCurrentTime --
+ *
+ *	Try to deduce the current time.  "Current time" means the time
+ *	of the event that led to the current code being executed, which
+ *	means the time in the most recently-nested invocation of
+ *	Tk_HandleEvent.
+ *
+ * Results:
+ *	The return value is the time from the current event, or
+ *	CurrentTime if there is no current event or if the current
+ *	event contains no time.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Time
+TkCurrentTime(dispPtr)
+    TkDisplay *dispPtr;		/* Display for which the time is desired. */
+{
+    register XEvent *eventPtr;
+
+    if (pendingPtr == NULL) {
+	return dispPtr->lastEventTime;
+    }
+    eventPtr = pendingPtr->eventPtr;
+    switch (eventPtr->type) {
+	case ButtonPress:
+	case ButtonRelease:
+	    return eventPtr->xbutton.time;
+	case KeyPress:
+	case KeyRelease:
+	    return eventPtr->xkey.time;
+	case MotionNotify:
+	    return eventPtr->xmotion.time;
+	case EnterNotify:
+	case LeaveNotify:
+	    return eventPtr->xcrossing.time;
+	case PropertyNotify:
+	    return eventPtr->xproperty.time;
+    }
+    return dispPtr->lastEventTime;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_RestrictEvents --
+ *
+ *	This procedure is used to globally restrict the set of events
+ *	that will be dispatched.  The restriction is done by filtering
+ *	all incoming X events through a procedure that determines
+ *	whether they are to be processed immediately, deferred, or
+ *	discarded.
+ *
+ * Results:
+ *	The return value is the previous restriction procedure in effect,
+ *	if there was one, or NULL if there wasn't.
+ *
+ * Side effects:
+ *	From now on, proc will be called to determine whether to process,
+ *	defer or discard each incoming X event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_RestrictProc *
+Tk_RestrictEvents(proc, arg, prevArgPtr)
+    Tk_RestrictProc *proc;	/* Procedure to call for each incoming
+				 * event. */
+    ClientData arg;		/* Arbitrary argument to pass to proc. */
+    ClientData *prevArgPtr;	/* Place to store information about previous
+				 * argument. */
+{
+    Tk_RestrictProc *prev;
+
+    prev = restrictProc;
+    *prevArgPtr = restrictArg;
+    restrictProc = proc;
+    restrictArg = arg;
+    return prev;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_QueueWindowEvent --
+ *
+ *	Given an X-style window event, this procedure adds it to the
+ *	Tcl event queue at the given position.  This procedure also
+ *	performs mouse motion event collapsing if possible.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Adds stuff to the event queue, which will eventually be
+ *	processed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_QueueWindowEvent(eventPtr, position)
+    XEvent *eventPtr;			/* Event to add to queue.  This
+					 * procedures copies it before adding
+					 * it to the queue. */
+    Tcl_QueuePosition position;		/* Where to put it on the queue:
+					 * TCL_QUEUE_TAIL, TCL_QUEUE_HEAD,
+					 * or TCL_QUEUE_MARK. */
+{
+    TkWindowEvent *wevPtr;
+    TkDisplay *dispPtr;
+
+    /*
+     * Find our display structure for the event's display.
+     */
+    for (dispPtr = tkDisplayList; ; dispPtr = dispPtr->nextPtr) {
+	if (dispPtr == NULL) {
+	    return;
+	}
+	if (dispPtr->display == eventPtr->xany.display) {
+	    break;
+	}
+    }
+
+    if ((dispPtr->delayedMotionPtr != NULL) && (position == TCL_QUEUE_TAIL)) {
+	if ((eventPtr->type == MotionNotify) && (eventPtr->xmotion.window
+		== dispPtr->delayedMotionPtr->event.xmotion.window)) {
+	    /*
+	     * The new event is a motion event in the same window as the
+	     * saved motion event.  Just replace the saved event with the
+	     * new one.
+	     */
+
+	    dispPtr->delayedMotionPtr->event = *eventPtr;
+	    return;
+	} else if ((eventPtr->type != GraphicsExpose)
+		&& (eventPtr->type != NoExpose)
+		&& (eventPtr->type != Expose)) {
+	    /*
+	     * The new event may conflict with the saved motion event.  Queue
+	     * the saved motion event now so that it will be processed before
+	     * the new event.
+	     */
+
+	    Tcl_QueueEvent(&dispPtr->delayedMotionPtr->header, position);
+	    dispPtr->delayedMotionPtr = NULL;
+	    Tcl_CancelIdleCall(DelayedMotionProc, (ClientData) dispPtr);
+	}
+    }
+
+    wevPtr = (TkWindowEvent *) ckalloc(sizeof(TkWindowEvent));
+    wevPtr->header.proc = WindowEventProc;
+    wevPtr->event = *eventPtr;
+    if ((eventPtr->type == MotionNotify) && (position == TCL_QUEUE_TAIL)) {
+	/*
+	 * The new event is a motion event so don't queue it immediately;
+	 * save it around in case another motion event arrives that it can
+	 * be collapsed with.
+	 */
+
+	if (dispPtr->delayedMotionPtr != NULL) {
+	    panic("Tk_QueueWindowEvent found unexpected delayed motion event");
+	}
+	dispPtr->delayedMotionPtr = wevPtr;
+	Tcl_DoWhenIdle(DelayedMotionProc, (ClientData) dispPtr);
+    } else {
+	Tcl_QueueEvent(&wevPtr->header, position);
+    }
+}
+
+/*
+ *---------------------------------------------------------------------------
+ *
+ * TkQueueEventForAllChildren --
+ *
+ *	Given an XEvent, recursively queue the event for this window and
+ *	all non-toplevel children of the given window.  
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Events queued.
+ *
+ *---------------------------------------------------------------------------
+ */
+
+void
+TkQueueEventForAllChildren(tkwin, eventPtr)
+    Tk_Window tkwin;	    /* Window to which event is sent. */
+    XEvent *eventPtr;	    /* The event to be sent. */
+{
+    TkWindow *winPtr, *childPtr;
+
+    winPtr = (TkWindow *) tkwin;
+    eventPtr->xany.window = winPtr->window;
+    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_TAIL);
+    
+    childPtr = winPtr->childList;
+    while (childPtr != NULL) {
+	if (!Tk_IsTopLevel(childPtr)) {
+	    TkQueueEventForAllChildren((Tk_Window) childPtr, eventPtr);
+	}
+	childPtr = childPtr->nextPtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WindowEventProc --
+ *
+ *	This procedure is called by Tcl_DoOneEvent when a window event
+ *	reaches the front of the event queue.  This procedure is responsible
+ *	for actually handling the event.
+ *
+ * Results:
+ *	Returns 1 if the event was handled, meaning it should be removed
+ *	from the queue.  Returns 0 if the event was not handled, meaning
+ *	it should stay on the queue.  The event isn't handled if the
+ *	TCL_WINDOW_EVENTS bit isn't set in flags, if a restrict proc
+ *	prevents the event from being handled.
+ *
+ * Side effects:
+ *	Whatever the event handlers for the event do.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+WindowEventProc(evPtr, flags)
+    Tcl_Event *evPtr;		/* Event to service. */
+    int flags;			/* Flags that indicate what events to
+				 * handle, such as TCL_WINDOW_EVENTS. */
+{
+    TkWindowEvent *wevPtr = (TkWindowEvent *) evPtr;
+    Tk_RestrictAction result;
+
+    if (!(flags & TCL_WINDOW_EVENTS)) {
+	return 0;
+    }
+    if (restrictProc != NULL) {
+	result = (*restrictProc)(restrictArg, &wevPtr->event);
+	if (result != TK_PROCESS_EVENT) {
+	    if (result == TK_DEFER_EVENT) {
+		return 0;
+	    } else {
+		/*
+		 * TK_DELETE_EVENT: return and say we processed the event,
+		 * even though we didn't do anything at all.
+		 */
+		return 1;
+	    }
+	}
+    }
+    Tk_HandleEvent(&wevPtr->event);
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DelayedMotionProc --
+ *
+ *	This procedure is invoked as an idle handler when a mouse motion
+ *	event has been delayed.  It queues the delayed event so that it
+ *	will finally be serviced.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The delayed mouse motion event gets added to the Tcl event
+ *	queue for servicing.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DelayedMotionProc(clientData)
+    ClientData clientData;	/* Pointer to display containing a delayed
+				 * motion event to be serviced. */
+{
+    TkDisplay *dispPtr = (TkDisplay *) clientData;
+
+    if (dispPtr->delayedMotionPtr == NULL) {
+	panic("DelayedMotionProc found no delayed mouse motion event");
+    }
+    Tcl_QueueEvent(&dispPtr->delayedMotionPtr->header, TCL_QUEUE_TAIL);
+    dispPtr->delayedMotionPtr = NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MainLoop --
+ *
+ *	Call Tcl_DoOneEvent over and over again in an infinite
+ *	loop as long as there exist any main windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arbitrary;  depends on handlers for events.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_MainLoop()
+{
+    while (Tk_GetNumMainWindows() > 0) {
+	Tcl_DoOneEvent(0);
+    }
+}
diff --git a/Tk/generic/tkFocus.c b/Tk/generic/tkFocus.c
new file mode 100644
index 0000000..e0da28c
--- /dev/null
+++ b/Tk/generic/tkFocus.c
@@ -0,0 +1,835 @@
+/* 
+ * tkFocus.c --
+ *
+ *	This file contains procedures that manage the input
+ *	focus for Tk.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkFocus.c 1.27 96/02/15 18:53:29
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * For each top-level window that has ever received the focus, there
+ * is a record of the following type:
+ */
+
+typedef struct TkFocusInfo {
+    TkWindow *topLevelPtr;	/* Information about top-level window. */
+    TkWindow *focusWinPtr;	/* The next time the focus comes to this
+				 * top-level, it will be given to this
+				 * window. */
+    struct TkFocusInfo *nextPtr;/* Next in list of all focus records for
+				 * a given application. */
+} FocusInfo;
+
+static int focusDebug = 0;
+
+/*
+ * The following magic value is stored in the "send_event" field of
+ * FocusIn and FocusOut events that are generated in this file.  This
+ * allows us to separate "real" events coming from the server from
+ * those that we generated.
+ */
+
+#define GENERATED_EVENT_MAGIC ((Bool) 0x547321ac)
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+
+static void		ChangeXFocus _ANSI_ARGS_((TkWindow *topLevelPtr,
+			    int focus));
+static void		FocusMapProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		GenerateFocusEvents _ANSI_ARGS_((TkWindow *sourcePtr,
+			    TkWindow *destPtr));
+static void		SetFocus _ANSI_ARGS_((TkWindow *winPtr, int force));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_FocusCmd --
+ *
+ *	This procedure is invoked to process the "focus" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_FocusCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr = (TkWindow *) clientData;
+    TkWindow *newPtr, *focusWinPtr, *topLevelPtr;
+    FocusInfo *focusPtr;
+    char c;
+    size_t length;
+
+    /*
+     * If invoked with no arguments, just return the current focus window.
+     */
+
+    if (argc == 1) {
+	focusWinPtr = TkGetFocus(winPtr);
+	if (focusWinPtr != NULL) {
+#ifdef STk_CODE
+	    STk_sharp_dot_result(interp, focusWinPtr->pathName);
+#else
+	    interp->result = focusWinPtr->pathName;
+#endif
+	}
+#ifdef STk_CODE
+	else 
+	  interp->result = "#f";
+#endif
+	return TCL_OK;
+    }
+
+    /*
+     * If invoked with a single argument beginning with "." then focus
+     * on that window.
+     */
+
+    if (argc == 2) {
+	if (argv[1][0] == 0) {
+	    return TCL_OK;
+	}
+	if (argv[1][0] == '.') {
+	    newPtr = (TkWindow *) Tk_NameToWindow(interp, argv[1], tkwin);
+	    if (newPtr == NULL) {
+		return TCL_ERROR;
+	    }
+	    if (!(newPtr->flags & TK_ALREADY_DEAD)) {
+		SetFocus(newPtr, 0);
+	    }
+	    return TCL_OK;
+	}
+    }
+
+    length = strlen(argv[1]);
+    c = argv[1][1];
+    if ((c == 'd') && (strncmp(argv[1], "-displayof", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+#ifdef STk_CODE
+		    argv[0], " :displayof window\"", (char *) NULL);
+#else
+		    argv[0], " -displayof window\"", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+	newPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
+	if (newPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	newPtr = TkGetFocus(newPtr);
+	if (newPtr != NULL) {
+	    interp->result = newPtr->pathName;
+	}
+    } else if ((c == 'f') && (strncmp(argv[1], "-force", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+#ifdef STk_CODE
+		    argv[0], " :force window\"", (char *) NULL);
+#else
+		    argv[0], " -force window\"", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+	if (argv[2][0] == 0) {
+	    return TCL_OK;
+	}
+	newPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
+	if (newPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	SetFocus(newPtr, 1);
+    } else if ((c == 'l') && (strncmp(argv[1], "-lastfor", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+#ifdef STk_CODE
+		    argv[0], " :lastfor window\"", (char *) NULL);
+#else
+		    argv[0], " -lastfor window\"", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+	newPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
+	if (newPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	for (topLevelPtr = newPtr; topLevelPtr != NULL;
+		topLevelPtr = topLevelPtr->parentPtr)  {
+	    if (topLevelPtr->flags & TK_TOP_LEVEL) {
+		for (focusPtr = newPtr->mainPtr->focusPtr; focusPtr != NULL;
+			focusPtr = focusPtr->nextPtr) {
+		    if (focusPtr->topLevelPtr == topLevelPtr) {
+#ifdef STk_CODE
+			STk_sharp_dot_result(interp,
+			  		     focusPtr->focusWinPtr->pathName);
+#else
+			interp->result = focusPtr->focusWinPtr->pathName;
+#endif
+			return TCL_OK;
+		    }
+		}
+#ifdef STk_CODE
+		STk_sharp_dot_result(interp, topLevelPtr->pathName);
+#else
+		interp->result = topLevelPtr->pathName;
+#endif
+		return TCL_OK;
+	    }
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+#ifdef STk_CODE
+		"\": must be :displayof, :force, or :lastfor", (char *) NULL);
+#else
+		"\": must be -displayof, -force, or -lastfor", (char *) NULL);
+#endif
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkFocusFilterEvent --
+ *
+ *	This procedure is invoked by Tk_HandleEvent when it encounters
+ *	a FocusIn, FocusOut, Enter, or Leave event.
+ *
+ * Results:
+ *	A return value of 1 means that Tk_HandleEvent should process
+ *	the event normally (i.e. event handlers should be invoked).
+ *	A return value of 0 means that this event should be ignored.
+ *
+ * Side effects:
+ *	Additional events may be generated, and the focus may switch.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkFocusFilterEvent(winPtr, eventPtr)
+    TkWindow *winPtr;		/* Window that focus event is directed to. */
+    XEvent *eventPtr;		/* FocusIn or FocusOut event. */
+{
+    /*
+     * Design notes: the window manager and X server work together to
+     * transfer the focus among top-level windows.  This procedure takes
+     * care of transferring the focus from a top-level window to the
+     * actual window within that top-level that has the focus.  We
+     * do this by synthesizing X events to move the focus around.  None
+     * of the FocusIn and FocusOut events generated by X are ever used
+     * outside of this procedure;  only the synthesized events get through
+     * to the rest of the application.  At one point (e.g. Tk4.0b1) Tk
+     * used to call X to move the focus from a top-level to one of its
+     * descendants, then just pass through the events generated by X.
+     * This approach didn't work very well, for a variety of reasons.
+     * For example, if X generates the events they go at the back of
+     * the event queue, which could cause problems if other things
+     * have already happened, such as moving the focus to yet another
+     * window.
+     */
+
+    FocusInfo *focusPtr;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkWindow *newFocusPtr;
+    int retValue, delta;
+
+    /*
+     * If this was a generated event, just turn off the generated
+     * flag and pass the event through.
+     */
+
+    if (eventPtr->xfocus.send_event == GENERATED_EVENT_MAGIC) {
+	eventPtr->xfocus.send_event = 0;
+	return 1;
+    }
+    /*
+     * This was not a generated event.  We'll return 1 (so that the
+     * event will be processed) if it's an Enter or Leave event, and
+     * 0 (so that the event won't be processed) if it's a FocusIn or
+     * FocusOut event.  Also, skip NotifyPointer, NotifyPointerRoot,
+     * and NotifyInferior focus events immediately; they're not
+     * useful and tend to cause confusion.
+     */
+
+    if ((eventPtr->type == FocusIn) || (eventPtr->type == FocusOut)) {
+	retValue = 0;
+	if ((eventPtr->xfocus.detail == NotifyPointer)
+		|| (eventPtr->xfocus.detail == NotifyPointerRoot)
+		|| (eventPtr->xfocus.detail == NotifyInferior)) {
+	    return retValue;
+	}
+    } else {
+	retValue = 1;
+	if (eventPtr->xcrossing.detail == NotifyInferior) {
+	    return retValue;
+	}
+    }
+
+    /*
+     * If winPtr isn't a top-level window than just ignore the event.
+     */
+
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	return retValue;
+    }
+
+    /*
+     * If there is a grab in effect and this window is outside the
+     * grabbed tree, then ignore the event.
+     */
+
+    if (TkGrabState(winPtr) == TK_GRAB_EXCLUDED)  {
+	return retValue;
+    
+}
+    /*
+     * Find the FocusInfo structure for the window, and make a new one
+     * if there isn't one already.
+     */
+
+    for (focusPtr = winPtr->mainPtr->focusPtr; focusPtr != NULL;
+	    focusPtr = focusPtr->nextPtr) {
+	if (focusPtr->topLevelPtr == winPtr) {
+	    break;
+	}
+    }
+    if (focusPtr == NULL) {
+	focusPtr = (FocusInfo *) ckalloc(sizeof(FocusInfo));
+	focusPtr->topLevelPtr = focusPtr->focusWinPtr = winPtr;
+	focusPtr->nextPtr = winPtr->mainPtr->focusPtr;
+	winPtr->mainPtr->focusPtr = focusPtr;
+    }
+
+    /*
+     * It is possible that there were outstanding FocusIn and FocusOut
+     * events on their way to us at the time the focus was changed
+     * internally with the "focus" command.  If so, these events could
+     * potentially cause us to lose the focus (switch it to the window
+     * of the last FocusIn event) even though the focus change occurred
+     * after those events.  The following code detects this and puts
+     * the focus back to the place where it was rightfully set.
+     */
+
+    newFocusPtr = focusPtr->focusWinPtr;
+
+    delta = eventPtr->xfocus.serial - winPtr->mainPtr->focusSerial;
+    if (focusDebug) {
+	printf("check event serial %d, delta %d\n",
+		(int) eventPtr->xfocus.serial, delta);
+    }
+    if ((delta < 0) && (winPtr->mainPtr->lastFocusPtr != NULL)) {
+	newFocusPtr = winPtr->mainPtr->lastFocusPtr;
+	if (focusDebug) {
+	    printf("reverting to %s instead of %s\n", newFocusPtr->pathName,
+		    focusPtr->focusWinPtr->pathName);
+	}
+    }
+
+    if (eventPtr->type == FocusIn) {
+	GenerateFocusEvents(dispPtr->focusWinPtr, newFocusPtr);
+	dispPtr->focusWinPtr = newFocusPtr;
+	dispPtr->implicitWinPtr = NULL;
+	if (focusDebug) {
+	    printf("Focussed on %s\n", newFocusPtr->pathName);
+	}
+    } else if (eventPtr->type == FocusOut) {
+	GenerateFocusEvents(dispPtr->focusWinPtr, (TkWindow *) NULL);
+	dispPtr->focusWinPtr = NULL;
+	dispPtr->implicitWinPtr = NULL;
+	if (focusDebug) {
+	    printf("Unfocussed from %s, detail %d\n", winPtr->pathName,
+		    eventPtr->xfocus.detail);
+	}
+    } else if (eventPtr->type == EnterNotify) {
+	/*
+	 * If there is no window manager, or if the window manager isn't
+	 * moving the focus around (e.g. the disgusting "NoTitleFocus"
+	 * option has been selected in twm), then we won't get FocusIn
+	 * or FocusOut events.  Instead, the "focus" field will be set
+	 * in an Enter event to indicate that we've already got the focus
+	 * when then mouse enters the window (even though we didn't get
+	 * a FocusIn event).  Watch for this and grab the focus when it
+	 * happens.
+	 */
+
+	if (eventPtr->xcrossing.focus && (dispPtr->focusWinPtr == NULL)) {
+	    GenerateFocusEvents(dispPtr->focusWinPtr, newFocusPtr);
+	    dispPtr->focusWinPtr = newFocusPtr;
+	    dispPtr->implicitWinPtr = winPtr;
+	    if (focusDebug) {
+		printf("Focussed implicitly on %s\n",
+			newFocusPtr->pathName);
+	    }
+	}
+    } else if (eventPtr->type == LeaveNotify) {
+	/*
+	 * If the pointer just left a window for which we automatically
+	 * claimed the focus on enter, generate FocusOut events.  Note:
+	 * dispPtr->implicitWinPtr may not be the same as
+	 * dispPtr->focusWinPtr (e.g. because the "focus" command was
+	 * used to redirect the focus after it arrived at
+	 * dispPtr->implicitWinPtr)!!
+	 */
+
+	if (dispPtr->implicitWinPtr == winPtr) {
+	    GenerateFocusEvents(dispPtr->focusWinPtr, (TkWindow *) NULL);
+	    dispPtr->focusWinPtr = NULL;
+	    dispPtr->implicitWinPtr = NULL;
+	    if (focusDebug) {
+		printf("Defocussed implicitly\n");
+	    }
+	}
+    }
+    return retValue;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SetFocus --
+ *
+ *	This procedure is invoked to change the focus window for a
+ *	given display in a given application.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Event handlers may be invoked to process the change of
+ *	focus.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SetFocus(winPtr, force)
+    TkWindow *winPtr;		/* Window that is to be the new focus for
+				 * its display and application. */
+    int force;			/* If non-zero, set the X focus to this
+				 * window even if the application doesn't
+				 * currently have the X focus. */
+{
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    FocusInfo *focusPtr;
+    TkWindow *topLevelPtr, *topLevelPtr2;
+
+    if (winPtr == dispPtr->focusWinPtr) {
+	return;
+    }
+
+    /*
+     * Find the top-level window for winPtr, then find (or create)
+     * a record for the top-level.
+     */
+
+    for (topLevelPtr = winPtr; ; topLevelPtr = topLevelPtr->parentPtr)  {
+	if (topLevelPtr == NULL) {
+	    /*
+	     * The window is being deleted.  No point in worrying about
+	     * giving it the focus.
+	     */
+
+	    return;
+	}
+	if (topLevelPtr->flags & TK_TOP_LEVEL) {
+	    break;
+	}
+    }
+    for (focusPtr = winPtr->mainPtr->focusPtr; focusPtr != NULL;
+	    focusPtr = focusPtr->nextPtr) {
+	if (focusPtr->topLevelPtr == topLevelPtr) {
+	    break;
+	}
+    }
+    if (focusPtr == NULL) {
+	focusPtr = (FocusInfo *) ckalloc(sizeof(FocusInfo));
+	focusPtr->topLevelPtr = topLevelPtr;
+	focusPtr->nextPtr = winPtr->mainPtr->focusPtr;
+	winPtr->mainPtr->focusPtr = focusPtr;
+    }
+
+    /*
+     * Reset the focus, but only if the application already has the
+     * input focus or "force" has been specified.
+     */
+
+    focusPtr->focusWinPtr = winPtr;
+    Tk_MakeWindowExist((Tk_Window) winPtr);
+    if (force || ((dispPtr->focusWinPtr != NULL)
+	    && (dispPtr->focusWinPtr->mainPtr == winPtr->mainPtr))) {
+	/*
+	 * Reset the focus in X if it has changed top-levels and if the
+	 * new top-level isn't override-redirect (the only reason to
+	 * change the X focus is so that the window manager can redecorate
+	 * the focus window, but if it's override-redirect then it won't
+	 * be decorated anyway;  also, changing the focus to menus causes
+	 * all sorts of problems with olvwm:  the focus gets lost if
+	 * keyboard traversal is used to move among menus.
+	 */
+
+	if (dispPtr->focusWinPtr != NULL) {
+	    for (topLevelPtr2 = dispPtr->focusWinPtr;
+		    (topLevelPtr2 != NULL)
+			&& !(topLevelPtr2->flags & TK_TOP_LEVEL);
+		    topLevelPtr2 = topLevelPtr2->parentPtr)  {
+		/* Empty loop body. */
+	    }
+	} else {
+	    topLevelPtr2 = NULL;
+	}
+	if ((topLevelPtr2 != topLevelPtr)
+		&& !(topLevelPtr->atts.override_redirect)) {
+	    if (dispPtr->focusOnMapPtr != NULL) {
+		Tk_DeleteEventHandler((Tk_Window) dispPtr->focusOnMapPtr,
+			StructureNotifyMask, FocusMapProc,
+			(ClientData) dispPtr->focusOnMapPtr);
+		dispPtr->focusOnMapPtr = NULL;
+	    }
+	    if (topLevelPtr->flags & TK_MAPPED) {
+		ChangeXFocus(topLevelPtr, force);
+	    } else {
+		/*
+		 * The window isn't mapped, so we can't give it the focus
+		 * right now.  Create an event handler that will give it
+		 * the focus as soon as it is mapped.
+		 */
+
+		Tk_CreateEventHandler((Tk_Window) topLevelPtr,
+			StructureNotifyMask, FocusMapProc,
+			(ClientData) topLevelPtr);
+		dispPtr->focusOnMapPtr = topLevelPtr;
+		dispPtr->forceFocus = force;
+	    }
+	}
+	GenerateFocusEvents(dispPtr->focusWinPtr, winPtr);
+	dispPtr->focusWinPtr = winPtr;
+    }
+
+    /*
+     * Remember the current serial number for the X server and issue
+     * a dummy server request.  This marks the position at which we
+     * changed the focus, so we can distinguish FocusIn and FocusOut
+     * events on either side of the mark.
+     */
+
+    winPtr->mainPtr->lastFocusPtr = winPtr;
+    winPtr->mainPtr->focusSerial = NextRequest(winPtr->display);
+    XNoOp(winPtr->display);
+    if (focusDebug) {
+	printf("focus marking for %s at %d\n", winPtr->pathName,
+		(int) winPtr->mainPtr->focusSerial);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetFocus --
+ *
+ *	Given a window, this procedure returns the current focus
+ *	window for its application and display.
+ *
+ * Results:
+ *	The return value is a pointer to the window that currently
+ *	has the input focus for the specified application and
+ *	display, or NULL if none.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkWindow *
+TkGetFocus(winPtr)
+    TkWindow *winPtr;		/* Window that selects an application
+				 * and a display. */
+{
+    TkWindow *focusWinPtr;
+
+    focusWinPtr = winPtr->dispPtr->focusWinPtr;
+    if ((focusWinPtr != NULL) && (focusWinPtr->mainPtr == winPtr->mainPtr)) {
+	return focusWinPtr;
+    }
+    return (TkWindow *) NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkFocusDeadWindow --
+ *
+ *	This procedure is invoked when it is determined that
+ *	a window is dead.  It cleans up focus-related information
+ *	about the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Various things get cleaned up and recycled.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkFocusDeadWindow(winPtr)
+    register TkWindow *winPtr;		/* Information about the window
+					 * that is being deleted. */
+{
+    FocusInfo *focusPtr, *prevPtr;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+
+    /*
+     * Search for focus records that refer to this window either as
+     * the top-level window or the current focus window.
+     */
+
+    for (prevPtr = NULL, focusPtr = winPtr->mainPtr->focusPtr;
+	    focusPtr != NULL;
+	    prevPtr = focusPtr, focusPtr = focusPtr->nextPtr) {
+	if (winPtr == focusPtr->topLevelPtr) {
+	    /*
+	     * The top-level window is the one being deleted: free
+	     * the focus record and release the focus back to PointerRoot
+	     * if we acquired it implicitly.
+	     */
+
+	    if (dispPtr->implicitWinPtr == winPtr) {
+		if (focusDebug) {
+		    printf("releasing focus to root after %s died\n",
+			    focusPtr->topLevelPtr->pathName);
+		}
+		dispPtr->implicitWinPtr = NULL;
+		dispPtr->focusWinPtr = NULL;
+	    }
+	    if (dispPtr->focusWinPtr == focusPtr->focusWinPtr) {
+		dispPtr->focusWinPtr = NULL;
+	    }
+	    if (dispPtr->focusOnMapPtr == focusPtr->topLevelPtr) {
+		dispPtr->focusOnMapPtr = NULL;
+	    }
+	    if (prevPtr == NULL) {
+		winPtr->mainPtr->focusPtr = focusPtr->nextPtr;
+	    } else {
+		prevPtr->nextPtr = focusPtr->nextPtr;
+	    }
+	    ckfree((char *) focusPtr);
+	    break;
+	} else if (winPtr == focusPtr->focusWinPtr) {
+	    /*
+	     * The deleted window had the focus for its top-level:
+	     * move the focus to the top-level itself.
+	     */
+
+	    focusPtr->focusWinPtr = focusPtr->topLevelPtr;
+	    if ((dispPtr->focusWinPtr == winPtr)
+		    && !(focusPtr->topLevelPtr->flags & TK_ALREADY_DEAD)) {
+		if (focusDebug) {
+		    printf("forwarding focus to %s after %s died\n",
+			    focusPtr->topLevelPtr->pathName, winPtr->pathName);
+		}
+		GenerateFocusEvents(dispPtr->focusWinPtr,
+			focusPtr->topLevelPtr);
+		dispPtr->focusWinPtr = focusPtr->topLevelPtr;
+	    }
+	    break;
+	}
+    }
+
+    if (winPtr->mainPtr->lastFocusPtr == winPtr) {
+	winPtr->mainPtr->lastFocusPtr = NULL;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GenerateFocusEvents --
+ *
+ *	This procedure is called to create FocusIn and FocusOut events to
+ *	move the input focus from one window to another.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	FocusIn and FocusOut events are generated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GenerateFocusEvents(sourcePtr, destPtr)
+    TkWindow *sourcePtr;	/* Window that used to have the focus (may
+				 * be NULL). */
+    TkWindow *destPtr;		/* New window to have the focus (may be
+				 * NULL). */
+
+{
+    XEvent event;
+    TkWindow *winPtr;
+
+    winPtr = sourcePtr;
+    if (winPtr == NULL) {
+	winPtr = destPtr;
+	if (winPtr == NULL) {
+	    return;
+	}
+    }
+
+    event.xfocus.serial = LastKnownRequestProcessed(winPtr->display);
+    event.xfocus.send_event = GENERATED_EVENT_MAGIC;
+    event.xfocus.display = winPtr->display;
+    event.xfocus.mode = NotifyNormal;
+    TkInOutEvents(&event, sourcePtr, destPtr, FocusOut, FocusIn,
+	    TCL_QUEUE_MARK);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangeXFocus --
+ *
+ *	This procedure is invoked to move the official X focus from
+ *	one top-level to another.  We do this when the application
+ *	changes the focus window from one top-level to another, in
+ *	order to notify the window manager so that it can highlight
+ *	the new focus top-level.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The official X focus window changes;  the application's focus
+ *	window isn't changed by this procedure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeXFocus(topLevelPtr, force)
+    TkWindow *topLevelPtr;	/* Top-level window that is to receive
+				 * the X focus. */
+    int force;			/* Non-zero means claim the focus even
+				 * if it didn't originally belong to
+				 * topLevelPtr's application. */
+{
+    TkDisplay *dispPtr = topLevelPtr->dispPtr;
+    TkWindow *winPtr;
+    Window focusWindow;
+    int dummy;
+    Tk_ErrorHandler errHandler;
+
+    /*
+     * If the focus was received implicitly, then there's no advantage
+     * in setting an explicit focus;  just return.
+     */
+
+    if (dispPtr->implicitWinPtr != NULL) {
+	return;
+    }
+
+    /*
+     * Check to make sure that the focus is still in one of the
+     * windows of this application.  Furthermore, grab the server
+     * to make sure that the focus doesn't change in the middle
+     * of this operation.
+     */
+
+    if (!focusDebug) {
+	XGrabServer(dispPtr->display);
+    }
+    if (!force) {
+	XGetInputFocus(dispPtr->display, &focusWindow, &dummy);
+	winPtr = (TkWindow *) Tk_IdToWindow(dispPtr->display, focusWindow);
+	if ((winPtr == NULL) || (winPtr->mainPtr != topLevelPtr->mainPtr)) {
+	    goto done;
+	}
+    }
+
+    /*
+     * Tell X to change the focus.  Ignore errors that occur when changing
+     * the focus:  it is still possible that the window we're focussing
+     * to could have gotten unmapped, which will generate an error.
+     */
+
+    errHandler = Tk_CreateErrorHandler(dispPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    XSetInputFocus(dispPtr->display, topLevelPtr->window, RevertToParent,
+	    CurrentTime);
+    Tk_DeleteErrorHandler(errHandler);
+    if (focusDebug) {
+	printf("Set X focus to %s\n", topLevelPtr->pathName);
+    }
+
+    done:
+    if (!focusDebug) {
+	XUngrabServer(dispPtr->display);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FocusMapProc --
+ *
+ *	This procedure is called as an event handler for StructureNotify
+ *	events, if a window receives the focus at a time when its
+ *	toplevel isn't mapped.  The procedure is needed because X
+ *	won't allow the focus to be set to an unmapped window;  we
+ *	detect when the toplevel is mapped and set the focus to it then.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If this is a map event, the focus gets set to the toplevel
+ *	given by clientData.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FocusMapProc(clientData, eventPtr)
+    ClientData clientData;	/* Toplevel window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    TkWindow *winPtr = (TkWindow *) clientData;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+
+    if (eventPtr->type == MapNotify) {
+	ChangeXFocus(winPtr, dispPtr->forceFocus);
+	Tk_DeleteEventHandler((Tk_Window) winPtr, StructureNotifyMask,
+		FocusMapProc, clientData);
+	dispPtr->focusOnMapPtr = NULL;
+    }
+}
diff --git a/Tk/generic/tkFont.c b/Tk/generic/tkFont.c
new file mode 100644
index 0000000..622ce18
--- /dev/null
+++ b/Tk/generic/tkFont.c
@@ -0,0 +1,977 @@
+/* 
+ * tkFont.c --
+ *
+ *	This file maintains a database of looked-up fonts for the Tk
+ *	toolkit, in order to avoid round-trips to the server to map
+ *	font names to XFontStructs.  It also provides several utility
+ *	procedures for measuring and displaying text.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkFont.c 1.38 96/02/15 18:53:31
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * This module caches extra information about fonts in addition to
+ * what X already provides.  The extra information is used by the
+ * TkMeasureChars procedure, and consists of two parts:  a type and
+ * a width.  The type is one of the following:
+ *
+ * NORMAL:		Standard character.
+ * TAB:			Tab character:  output enough space to
+ *			get to next tab stop.
+ * NEWLINE:		Newline character:  don't output anything more
+ *			on this line (character has infinite width).
+ * REPLACE:		This character doesn't print:  instead of
+ *			displaying character, display a replacement
+ *			sequence like "\n" (for those characters where
+ *			ANSI C defines such a sequence) or a sequence
+ *			of the form "\xdd" where dd is the hex equivalent
+ *			of the character.
+ * SKIP:		Don't display anything for this character.  This
+ *			is only used where the font doesn't contain
+ *			all the characters needed to generate
+ *			replacement sequences.
+ * The width gives the total width of the displayed character or
+ * sequence:  for replacement sequences, it gives the width of the
+ * sequence.
+ */
+
+#define NORMAL		1
+#define TAB		2
+#define NEWLINE		3
+#define REPLACE		4
+#define SKIP		5
+
+/*
+ * One of the following data structures exists for each font that is
+ * currently active.  The structure is indexed with two hash tables,
+ * one based on font name and one based on XFontStruct address.
+ */
+
+typedef struct {
+    XFontStruct *fontStructPtr;	/* X information about font. */
+    Display *display;		/* Display to which font belongs. */
+    int refCount;		/* Number of active uses of this font. */
+    char *types;		/* Malloc'ed array giving types of all
+				 * chars in the font (may be NULL). */
+    unsigned char *widths;	/* Malloc'ed array giving widths of all
+				 * chars in the font (may be NULL). */
+    int tabWidth;		/* Width of tabs in this font. */
+    Tcl_HashEntry *nameHashPtr;	/* Entry in name-based hash table (needed
+				 * when deleting this structure). */
+} TkFont;
+
+/*
+ * Hash table for name -> TkFont mapping, and key structure used to
+ * index into that table:
+ */
+
+static Tcl_HashTable nameTable;
+typedef struct {
+    Tk_Uid name;		/* Name of font. */
+    Display *display;		/* Display for which font is valid. */
+} NameKey;
+
+/*
+ * Hash table for font struct -> TkFont mapping. This table is
+ * indexed by the XFontStruct address.
+ */
+
+static Tcl_HashTable fontTable;
+
+static int initialized = 0;	/* 0 means static structures haven't been
+				 * initialized yet. */
+
+/*
+ * To speed up TkMeasureChars, the variables below keep the last
+ * mapping from (XFontStruct *) to (TkFont *).
+ */
+
+static TkFont *lastFontPtr = NULL;
+static XFontStruct *lastFontStructPtr = NULL;
+
+/*
+ * Characters used when displaying control sequences.
+ */
+
+static char hexChars[] = "0123456789abcdefxtnvr\\";
+
+/*
+ * The following table maps some control characters to sequences
+ * like '\n' rather than '\x10'.  A zero entry in the table means
+ * no such mapping exists, and the table only maps characters
+ * less than 0x10.
+ */
+
+static char mapChars[] = {
+    0, 0, 0, 0, 0, 0, 0,
+    'a', 'b', 't', 'n', 'v', 'f', 'r',
+    0
+};
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		FontInit _ANSI_ARGS_((void));
+static void		SetFontMetrics _ANSI_ARGS_((TkFont *fontPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetFontStruct --
+ *
+ *	Given a string name for a font, map the name to an XFontStruct
+ *	describing the font.
+ *
+ * Results:
+ *	The return value is normally a pointer to the font description
+ *	for the desired font.  If an error occurs in mapping the string
+ *	to a font, then an error message will be left in interp->result
+ *	and NULL will be returned.
+ *
+ * Side effects:
+ *	The font is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeFontStruct, so that the database is cleaned up when fonts
+ *	aren't in use anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XFontStruct *
+Tk_GetFontStruct(interp, tkwin, name)
+    Tcl_Interp *interp;		/* Place to leave error message if
+				 * font can't be found. */
+    Tk_Window tkwin;		/* Window in which font will be used. */
+    Tk_Uid name;		/* Name of font (in form suitable for
+				 * passing to XLoadQueryFont). */
+{
+    NameKey nameKey;
+    Tcl_HashEntry *nameHashPtr, *fontHashPtr;
+    int new;
+    register TkFont *fontPtr;
+    XFontStruct *fontStructPtr;
+
+    if (!initialized) {
+	FontInit();
+    }
+
+    /*
+     * First, check to see if there's already a mapping for this font
+     * name.
+     */
+
+    nameKey.name = name;
+    nameKey.display = Tk_Display(tkwin);
+    nameHashPtr = Tcl_CreateHashEntry(&nameTable, (char *) &nameKey, &new);
+    if (!new) {
+	fontPtr = (TkFont *) Tcl_GetHashValue(nameHashPtr);
+	fontPtr->refCount++;
+	return fontPtr->fontStructPtr;
+    }
+
+    /*
+     * The name isn't currently known.  Map from the name to a font, and
+     * add a new structure to the database.
+     */
+
+    fontStructPtr = XLoadQueryFont(nameKey.display, name);
+    if (fontStructPtr == NULL) {
+	Tcl_DeleteHashEntry(nameHashPtr);
+	Tcl_AppendResult(interp, "font \"", name, "\" doesn't exist",
+		(char *) NULL);
+	return NULL;
+    }
+    fontPtr = (TkFont *) ckalloc(sizeof(TkFont));
+    fontPtr->display = nameKey.display;
+    fontPtr->fontStructPtr = fontStructPtr;
+    fontPtr->refCount = 1;
+    fontPtr->types = NULL;
+    fontPtr->widths = NULL;
+    fontPtr->nameHashPtr = nameHashPtr;
+    fontHashPtr = Tcl_CreateHashEntry(&fontTable, (char *) fontStructPtr, &new);
+    if (!new) {
+	panic("XFontStruct already registered in Tk_GetFontStruct");
+    }
+    Tcl_SetHashValue(nameHashPtr, fontPtr);
+    Tcl_SetHashValue(fontHashPtr, fontPtr);
+    return fontPtr->fontStructPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfFontStruct --
+ *
+ *	Given a font, return a textual string identifying it.
+ *
+ * Results:
+ *	If font was created by Tk_GetFontStruct, then the return
+ *	value is the "string" that was used to create it.
+ *	Otherwise the return value is a string giving the X
+ *	identifier for the font.  The storage for the returned
+ *	string is only guaranteed to persist up until the next
+ *	call to this procedure.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfFontStruct(fontStructPtr)
+    XFontStruct *fontStructPtr;		/* Font whose name is desired. */
+{
+    Tcl_HashEntry *fontHashPtr;
+    TkFont *fontPtr;
+    static char string[20];
+
+    if (!initialized) {
+	printid:
+	sprintf(string, "font id 0x%x", (unsigned int) fontStructPtr->fid);
+	return string;
+    }
+    fontHashPtr = Tcl_FindHashEntry(&fontTable, (char *) fontStructPtr);
+    if (fontHashPtr == NULL) {
+	goto printid;
+    }
+    fontPtr = (TkFont *) Tcl_GetHashValue(fontHashPtr);
+    return ((NameKey *) fontPtr->nameHashPtr->key.words)->name;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeFontStruct --
+ *
+ *	This procedure is called to release a font allocated by
+ *	Tk_GetFontStruct.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The reference count associated with font is decremented, and
+ *	the font is officially deallocated if no-one is using it
+ *	anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeFontStruct(fontStructPtr)
+    XFontStruct *fontStructPtr;	/* Font to be released. */
+{
+    Tcl_HashEntry *fontHashPtr;
+    register TkFont *fontPtr;
+
+    if (!initialized) {
+	panic("Tk_FreeFontStruct called before Tk_GetFontStruct");
+    }
+
+    fontHashPtr = Tcl_FindHashEntry(&fontTable, (char *) fontStructPtr);
+    if (fontHashPtr == NULL) {
+	panic("Tk_FreeFontStruct received unknown font argument");
+    }
+    fontPtr = (TkFont *) Tcl_GetHashValue(fontHashPtr);
+    fontPtr->refCount--;
+    if (fontPtr->refCount == 0) {
+	/*
+	 * We really should call Tk_FreeXId below to release the font's
+	 * resource identifier, but this seems to cause problems on
+	 * many X servers (as of 5/1/94) where the font resource isn't
+	 * really released, which can cause the wrong font to be used
+	 * later on.  So, don't release the resource id after all, even
+	 * though this results in an id leak.
+	 *
+	 * Tk_FreeXId(fontPtr->display, (XID) fontPtr->fontStructPtr->fid);
+	 */
+
+	XFreeFont(fontPtr->display, fontPtr->fontStructPtr);
+	Tcl_DeleteHashEntry(fontPtr->nameHashPtr);
+	Tcl_DeleteHashEntry(fontHashPtr);
+	if (fontPtr->types != NULL) {
+	    ckfree(fontPtr->types);
+	}
+	if (fontPtr->widths != NULL) {
+	    ckfree((char *) fontPtr->widths);
+	}
+	ckfree((char *) fontPtr);
+	lastFontStructPtr = NULL;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FontInit --
+ *
+ *	Initialize the structure used for font management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FontInit()
+{
+    initialized = 1;
+    Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
+    Tcl_InitHashTable(&fontTable, TCL_ONE_WORD_KEYS);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SetFontMetrics --
+ *
+ *	This procedure is called to fill in the "widths" and "types"
+ *	arrays for a font.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	FontPtr gets modified to hold font metric information.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SetFontMetrics(fontPtr)
+    register TkFont *fontPtr;		/* Font structure in which to
+					 * set metrics. */
+{
+    int i, replaceOK;
+    register XFontStruct *fontStructPtr = fontPtr->fontStructPtr;
+    char *p;
+
+    /*
+     * Pass 1: initialize the arrays.
+     */
+
+    fontPtr->types = (char *) ckalloc(256);
+    fontPtr->widths = (unsigned char *) ckalloc(256);
+    for (i = 0; i < 256; i++) {
+	fontPtr->types[i] = REPLACE;
+    }
+
+    /*
+     * Pass 2:  for all characters that exist in the font and are
+     * not control characters, fill in the type and width
+     * information.
+     */
+
+    for (i = 0; i < 256;  i++) {
+	if ((i == 0177) || (i < fontStructPtr->min_char_or_byte2)
+		|| (i > fontStructPtr->max_char_or_byte2)) {
+	    continue;
+	}
+	fontPtr->types[i] = NORMAL;
+	if (fontStructPtr->per_char == NULL) {
+	    fontPtr->widths[i] = fontStructPtr->min_bounds.width;
+	} else {
+	    fontPtr->widths[i] = fontStructPtr->per_char[i
+		    - fontStructPtr->min_char_or_byte2].width;
+	}
+    }
+
+    /*
+     * Pass 3: fill in information for characters that have to
+     * be replaced with  "\xhh" or "\n" strings.  If the font doesn't
+     * have the characters needed for this, then just use the
+     * font's default character.
+     */
+
+    replaceOK = 1;
+    for (p = hexChars; *p != 0; p++) {
+	if (fontPtr->types[*p] != NORMAL) {
+	    replaceOK = 0;
+	    break;
+	}
+    }
+    for (i = 0; i < 256; i++) {
+	if (fontPtr->types[i] != REPLACE) {
+	    continue;
+	}
+	if (replaceOK) {
+	    if ((i < sizeof(mapChars)) && (mapChars[i] != 0)) {
+		fontPtr->widths[i] = fontPtr->widths['\\']
+			+ fontPtr->widths[mapChars[i]];
+	    } else {
+		fontPtr->widths[i] = fontPtr->widths['\\']
+			+ fontPtr->widths['x']
+			+ fontPtr->widths[hexChars[i & 0xf]]
+			+ fontPtr->widths[hexChars[(i>>4) & 0xf]];
+	    }
+	} else {
+	    fontPtr->types[i] = SKIP;
+	    fontPtr->widths[i] = 0;
+	}
+    }
+
+    /*
+     * Lastly, fill in special information for newline and tab.
+     */
+
+    fontPtr->types['\n'] = NEWLINE;
+    fontPtr->types['\t'] = TAB;
+    fontPtr->widths['\t'] = 0;
+    if (fontPtr->types['0'] == NORMAL) {
+	fontPtr->tabWidth = 8*fontPtr->widths['0'];
+    } else {
+	fontPtr->tabWidth = 8*fontStructPtr->max_bounds.width;
+    }
+
+    /*
+     * Make sure the tab width isn't zero (some fonts may not have enough
+     * information to set a reasonable tab width).
+     */
+
+    if (fontPtr->tabWidth == 0) {
+	fontPtr->tabWidth = 1;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkMeasureChars --
+ *
+ *	Measure the number of characters from a string that
+ *	will fit in a given horizontal span.  The measurement
+ *	is done under the assumption that TkDisplayChars will
+ *	be used to actually display the characters.
+ *
+ * Results:
+ *	The return value is the number of characters from source
+ *	that fit in the span given by startX and maxX.  *nextXPtr
+ *	is filled in with the x-coordinate at which the first
+ *	character that didn't fit would be drawn, if it were to
+ *	be drawn.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkMeasureChars(fontStructPtr, source, maxChars, startX, maxX,
+	tabOrigin, flags, nextXPtr)
+    XFontStruct *fontStructPtr;	/* Font in which to draw characters. */
+    char *source;		/* Characters to be displayed.  Need not
+				 * be NULL-terminated. */
+    int maxChars;		/* Maximum # of characters to consider from
+				 * source. */
+    int startX;			/* X-position at which first character will
+				 * be drawn. */
+    int maxX;			/* Don't consider any character that would
+				 * cross this x-position. */
+    int tabOrigin;		/* X-location that serves as "origin" for
+				 * tab stops. */
+    int flags;			/* Various flag bits OR-ed together.
+				 * TK_WHOLE_WORDS means stop on a word boundary
+				 * (just before a space character) if
+				 * possible.  TK_AT_LEAST_ONE means always
+				 * return a value of at least one, even
+				 * if the character doesn't fit. 
+				 * TK_PARTIAL_OK means it's OK to display only
+				 * a part of the last character in the line.
+				 * TK_NEWLINES_NOT_SPECIAL means that newlines
+				 * are treated just like other control chars:
+				 * they don't terminate the line.
+				 * TK_IGNORE_TABS means give all tabs zero
+				 * width. */
+    int *nextXPtr;		/* Return x-position of terminating
+				 * character here. */
+{
+    register TkFont *fontPtr;
+    register char *p;		/* Current character. */
+    register int c;
+    char *term;			/* Pointer to most recent character that
+				 * may legally be a terminating character. */
+    int termX;			/* X-position just after term. */
+    int curX;			/* X-position corresponding to p. */
+    int newX;			/* X-position corresponding to p+1. */
+    int type;
+    int rem;
+
+    /*
+     * Find the TkFont structure for this font, and make sure its
+     * font metrics exist.
+     */
+
+    if (lastFontStructPtr == fontStructPtr) {
+	fontPtr = lastFontPtr;
+    } else {
+	Tcl_HashEntry *fontHashPtr;
+
+	if (!initialized) {
+	    badArg:
+	    panic("TkMeasureChars received unknown font argument");
+	}
+    
+	fontHashPtr = Tcl_FindHashEntry(&fontTable, (char *) fontStructPtr);
+	if (fontHashPtr == NULL) {
+	    goto badArg;
+	}
+	fontPtr = (TkFont *) Tcl_GetHashValue(fontHashPtr);
+	lastFontStructPtr = fontPtr->fontStructPtr;
+	lastFontPtr = fontPtr;
+    }
+    if (fontPtr->types == NULL) {
+	SetFontMetrics(fontPtr);
+    }
+
+    /*
+     * Scan the input string one character at a time, until a character
+     * is found that crosses maxX.
+     */
+
+    newX = curX = startX;
+    termX = 0;		/* Not needed, but eliminates compiler warning. */
+    term = source;
+    for (p = source, c = *p & 0xff; maxChars > 0; p++, maxChars--) {
+	type = fontPtr->types[c];
+	if ((type == NORMAL) || (type == REPLACE)) {
+	    newX += fontPtr->widths[c];
+	} else if (type == TAB) {
+	    if (!(flags & TK_IGNORE_TABS)) {
+		newX += fontPtr->tabWidth;
+		rem = (newX - tabOrigin) % fontPtr->tabWidth;
+		if (rem < 0) {
+		    rem += fontPtr->tabWidth;
+		}
+		newX -= rem;
+	    }
+	} else if (type == NEWLINE) {
+	    if (flags & TK_NEWLINES_NOT_SPECIAL) {
+		newX += fontPtr->widths[c];
+	    } else {
+		break;
+	    }
+	} else if (type != SKIP) {
+	    panic("Unknown type %d in TkMeasureChars", type);
+	}
+	if (newX > maxX) {
+	    break;
+	}
+	if (maxChars > 1) {
+	    c = p[1] & 0xff;
+	} else {
+	    /*
+	     * Can't look at next character: it could be in uninitialized
+	     * memory.
+	     */
+
+	    c = 0;
+	}
+	if (isspace(UCHAR(c)) || (c == 0)) {
+	    term = p+1;
+	    termX = newX;
+	}
+	curX = newX;
+    }
+
+    /*
+     * P points to the first character that doesn't fit in the desired
+     * span.  Use the flags to figure out what to return.
+     */
+
+    if ((flags & TK_PARTIAL_OK) && (curX < maxX)) {
+	curX = newX;
+	p++;
+    }
+    if ((flags & TK_AT_LEAST_ONE) && (term == source) && (maxChars > 0)
+	     && !isspace(UCHAR(*term))) {
+	term = p;
+	termX = curX;
+	if (term == source) {
+	    term++;
+	    termX = newX;
+	}
+    } else if ((maxChars == 0) || !(flags & TK_WHOLE_WORDS)) {
+	term = p;
+	termX = curX;
+    }
+    *nextXPtr = termX;
+    return term-source;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkDisplayChars --
+ *
+ *	Draw a string of characters on the screen, converting
+ *	tabs to the right number of spaces and control characters
+ *	to sequences of the form "\xhh" where hh are two hex
+ *	digits.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets drawn on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkDisplayChars(display, drawable, gc, fontStructPtr, string, numChars,
+	x, y, tabOrigin, flags)
+    Display *display;		/* Display on which to draw. */
+    Drawable drawable;		/* Window or pixmap in which to draw. */
+    GC gc;			/* Graphics context for actually drawing
+				 * characters. */
+    XFontStruct *fontStructPtr;	/* Font used in GC;  must have been allocated
+				 * by Tk_GetFontStruct.  Used to compute sizes
+				 * of tabs, etc. */
+    char *string;		/* Characters to be displayed. */
+    int numChars;		/* Number of characters to display from
+				 * string. */
+    int x, y;			/* Coordinates at which to draw string. */
+    int tabOrigin;		/* X-location that serves as "origin" for
+				 * tab stops. */
+    int flags;			/* Flags to control display.  Only
+				 * TK_NEWLINES_NOT_SPECIAL and TK_IGNORE_TABS
+				 * are supported right now.  See
+				 * TkMeasureChars for information about it. */
+{
+    register TkFont *fontPtr;
+    register char *p;		/* Current character being scanned. */
+    register int c;
+    int type;
+    char *start;		/* First character waiting to be displayed. */
+    int startX;			/* X-coordinate corresponding to start. */
+    int curX;			/* X-coordinate corresponding to p. */
+    char replace[10];
+    int rem;
+
+    /*
+     * Find the TkFont structure for this font, and make sure its
+     * font metrics exist.
+     */
+
+    if (lastFontStructPtr == fontStructPtr) {
+	fontPtr = lastFontPtr;
+    } else {
+	Tcl_HashEntry *fontHashPtr;
+
+	if (!initialized) {
+	    badArg:
+	    panic("TkDisplayChars received unknown font argument");
+	}
+    
+	fontHashPtr = Tcl_FindHashEntry(&fontTable, (char *) fontStructPtr);
+	if (fontHashPtr == NULL) {
+	    goto badArg;
+	}
+	fontPtr = (TkFont *) Tcl_GetHashValue(fontHashPtr);
+	lastFontStructPtr = fontPtr->fontStructPtr;
+	lastFontPtr = fontPtr;
+    }
+    if (fontPtr->types == NULL) {
+	SetFontMetrics(fontPtr);
+    }
+
+    /*
+     * Scan the string one character at a time.  Display control
+     * characters immediately, but delay displaying normal characters
+     * in order to pass many characters to the server all together.
+     */
+
+    startX = curX = x;
+    start = string;
+    for (p = string; numChars > 0; numChars--, p++) {
+	c = *p & 0xff;
+	type = fontPtr->types[c];
+	if (type == NORMAL) {
+	    curX += fontPtr->widths[c];
+	    continue;
+	}
+	if (p != start) {
+	    XDrawString(display, drawable, gc, startX, y, start, p - start);
+	    startX = curX;
+	}
+	if (type == TAB) {
+	    if (!(flags & TK_IGNORE_TABS)) {
+		curX += fontPtr->tabWidth;
+		rem = (curX - tabOrigin) % fontPtr->tabWidth;
+		if (rem < 0) {
+		    rem += fontPtr->tabWidth;
+		}
+		curX -= rem;
+	    }
+	} else if (type == REPLACE || 
+		(type == NEWLINE && flags & TK_NEWLINES_NOT_SPECIAL)) {
+	    if ((c < sizeof(mapChars)) && (mapChars[c] != 0)) {
+		replace[0] = '\\';
+	        replace[1] = mapChars[c];
+	        XDrawString(display, drawable, gc, startX, y, replace, 2);
+	        curX += fontPtr->widths[replace[0]]
+		        + fontPtr->widths[replace[1]];
+	    } else {
+		replace[0] = '\\';
+	        replace[1] = 'x';
+	        replace[2] = hexChars[(c >> 4) & 0xf];
+	        replace[3] = hexChars[c & 0xf];
+	        XDrawString(display, drawable, gc, startX, y, replace, 4);
+	        curX += fontPtr->widths[replace[0]]
+		        + fontPtr->widths[replace[1]]
+		        + fontPtr->widths[replace[2]]
+		        + fontPtr->widths[replace[3]];
+  	    }
+	} else if (type == NEWLINE) {
+  	    y += fontStructPtr->ascent + fontStructPtr->descent;
+	    curX = x;
+	} else if (type != SKIP) {
+	    panic("Unknown type %d in TkDisplayChars", type);
+	}
+	startX = curX;
+	start = p+1;
+    }
+
+    /*
+     * At the very end, there may be one last batch of normal characters
+     * to display.
+     */
+
+    if (p != start) {
+	XDrawString(display, drawable, gc, startX, y, start, p - start);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkUnderlineChars --
+ *
+ *	This procedure draws an underline for a given range of characters
+ *	in a given string, using appropriate information for the string's
+ *	font.  It doesn't draw the characters (which are assumed to have
+ *	been displayed previously);  it just draws the underline.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets displayed in "drawable".
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkUnderlineChars(display, drawable, gc, fontStructPtr, string, x, y,
+	tabOrigin, flags, firstChar, lastChar)
+    Display *display;		/* Display on which to draw. */
+    Drawable drawable;		/* Window or pixmap in which to draw. */
+    GC gc;			/* Graphics context for actually drawing
+				 * underline. */
+    XFontStruct *fontStructPtr;	/* Font used in GC;  must have been allocated
+				 * by Tk_GetFontStruct.  Used to character
+				 * dimensions, etc. */
+    char *string;		/* String containing characters to be
+				 * underlined. */
+    int x, y;			/* Coordinates at which first character of
+				 * string is drawn. */
+    int tabOrigin;		/* X-location that serves as "origin" for
+				 * tab stops. */
+    int flags;			/* Flags that were passed to TkDisplayChars. */
+    int firstChar;		/* Index of first character to underline. */
+    int lastChar;		/* Index of last character to underline. */
+{
+    int xUnder, yUnder, width, height;
+    unsigned long value;
+
+    /*
+     * First compute the vertical span of the underline, using font
+     * properties if they exist.
+     */
+
+    if (XGetFontProperty(fontStructPtr, XA_UNDERLINE_POSITION, &value)) {
+	yUnder = y + value;
+    } else {
+	yUnder = y + fontStructPtr->max_bounds.descent/2;
+    }
+    if (XGetFontProperty(fontStructPtr, XA_UNDERLINE_THICKNESS, &value)) {
+	height = value;
+    } else {
+	height = 2;
+    }
+
+    /*
+     * Now compute the horizontal span of the underline.
+     */
+
+    TkMeasureChars(fontStructPtr, string, firstChar, x, (int) 1000000,
+	    tabOrigin, flags, &xUnder);
+    TkMeasureChars(fontStructPtr, string+firstChar, lastChar+1-firstChar,
+	    xUnder, (int) 1000000, tabOrigin, flags, &width);
+    width -= xUnder;
+
+    XFillRectangle(display, drawable, gc, xUnder, yUnder,
+	    (unsigned int) width, (unsigned int) height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkComputeTextGeometry --
+ *
+ *	This procedure computes the amount of screen space needed to
+ *	display a multi-line string of text.
+ *
+ * Results:
+ *	There is no return value.  The dimensions of the screen area
+ *	needed to display the text are returned in *widthPtr, and *heightPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkComputeTextGeometry(fontStructPtr, string, numChars, wrapLength,
+	widthPtr, heightPtr)
+    XFontStruct *fontStructPtr;	/* Font that will be used to display text. */
+    char *string;		/* String whose dimensions are to be
+				 * computed. */
+    int numChars;		/* Number of characters to consider from
+				 * string. */
+    int wrapLength;		/* Longest permissible line length, in
+				 * pixels.  <= 0 means no automatic wrapping:
+				 * just let lines get as long as needed. */
+    int *widthPtr;		/* Store width of string here. */
+    int *heightPtr;		/* Store height of string here. */
+{
+    int thisWidth, maxWidth, numLines;
+    char *p;
+
+    if (wrapLength <= 0) {
+	wrapLength = INT_MAX;
+    }
+    maxWidth = 0;
+    for (numLines = 1, p = string; (p - string) < numChars; numLines++) {
+	p += TkMeasureChars(fontStructPtr, p, numChars - (p - string), 0,
+		wrapLength, 0, TK_WHOLE_WORDS|TK_AT_LEAST_ONE, &thisWidth);
+	if (thisWidth > maxWidth) {
+	    maxWidth = thisWidth;
+	}
+	if (*p == 0) {
+	    break;
+	}
+
+	/*
+	 * If the character that didn't fit in this line was a white
+	 * space character then skip it.
+	 */
+
+	if (isspace(UCHAR(*p))) {
+	    p++;
+	}
+    }
+    *widthPtr = maxWidth;
+    *heightPtr = numLines * (fontStructPtr->ascent + fontStructPtr->descent);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkDisplayText --
+ *
+ *	Display a text string on one or more lines.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The text given by "string" gets displayed at the given location
+ *	in the given drawable with the given font etc.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkDisplayText(display, drawable, fontStructPtr, string, numChars, x, y,
+	length, justify, underline, gc)
+    Display *display;		/* X display to use for drawing text. */
+    Drawable drawable;		/* Window or pixmap in which to draw the
+				 * text. */
+    XFontStruct *fontStructPtr;	/* Font that determines geometry of text
+				 * (should be same as font in gc). */
+    char *string;		/* String to display;  may contain embedded
+				 * newlines. */
+    int numChars;		/* Number of characters to use from string. */
+    int x, y;			/* Pixel coordinates within drawable of
+				 * upper left corner of display area. */
+    int length;			/* Line length in pixels;  used to compute
+				 * word wrap points and also for
+				 * justification.   Must be > 0. */
+    Tk_Justify justify;		/* How to justify lines. */
+    int underline;		/* Index of character to underline, or < 0
+				 * for no underlining. */
+    GC gc;			/* Graphics context to use for drawing text. */
+{
+    char *p;
+    int charsThisLine, lengthThisLine, xThisLine;
+
+    /*
+     * Work through the string one line at a time.  Display each line
+     * in four steps:
+     *     1. Compute the line's length.
+     *     2. Figure out where to display the line for justification.
+     *     3. Display the line.
+     *     4. Underline one character if needed.
+     */
+
+    y += fontStructPtr->ascent;
+    for (p = string; numChars > 0; ) {
+	charsThisLine = TkMeasureChars(fontStructPtr, p, numChars, 0, length,
+		0, TK_WHOLE_WORDS|TK_AT_LEAST_ONE, &lengthThisLine);
+	if (justify == TK_JUSTIFY_LEFT) {
+	    xThisLine = x;
+	} else if (justify == TK_JUSTIFY_CENTER) {
+	    xThisLine = x + (length - lengthThisLine)/2;
+	} else {
+	    xThisLine = x + (length - lengthThisLine);
+	}
+	TkDisplayChars(display, drawable, gc, fontStructPtr, p, charsThisLine,
+		xThisLine, y, xThisLine, 0);
+	if ((underline >= 0) && (underline < charsThisLine)) {
+	    TkUnderlineChars(display, drawable, gc, fontStructPtr, p,
+		    xThisLine, y, xThisLine, 0, underline, underline);
+	}
+	p += charsThisLine;
+	numChars -= charsThisLine;
+	underline -= charsThisLine;
+	y += fontStructPtr->ascent + fontStructPtr->descent;
+
+	/*
+	 * If the character that didn't fit was a space character, skip it.
+	 */
+
+	if (isspace(UCHAR(*p))) {
+	    p++;
+	    numChars--;
+	    underline--;
+	}
+    }
+}
diff --git a/Tk/generic/tkFrame.c b/Tk/generic/tkFrame.c
new file mode 100644
index 0000000..6cbacba
--- /dev/null
+++ b/Tk/generic/tkFrame.c
@@ -0,0 +1,793 @@
+/* 
+ * tkFrame.c --
+ *
+ *	This module implements "frame"  and "toplevel" widgets for
+ *	the Tk toolkit.  Frames are windows with a background color
+ *	and possibly a 3-D effect, but not much else in the way of
+ *	attributes.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkFrame.c 1.68 96/02/15 18:53:30
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each
+ * frame that currently exists for this process:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the frame.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up. */
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with widget.  Used
+				 * to delete widget command. */
+    Tcl_Command widgetCmd;	/* Token for frame's widget command. */
+    char *className;		/* Class name for widget (from configuration
+				 * option).  Malloc-ed. */
+    int mask;			/* Either FRAME or TOPLEVEL;  used to select
+				 * which configuration options are valid for
+				 * widget. */
+    char *screenName;		/* Screen on which widget is created.  Non-null
+				 * only for top-levels.  Malloc-ed, may be
+				 * NULL. */
+    char *visualName;		/* Textual description of visual for window,
+				 * from -visual option.  Malloc-ed, may be
+				 * NULL. */
+    char *colormapName;		/* Textual description of colormap for window,
+				 * from -colormap option.  Malloc-ed, may be
+				 * NULL. */
+    Colormap colormap;		/* If not None, identifies a colormap
+				 * allocated for this window, which must be
+				 * freed when the window is deleted. */
+    Tk_3DBorder border;		/* Structure used to draw 3-D border and
+				 * background.  NULL means no background
+				 * or border. */
+    int borderWidth;		/* Width of 3-D border (if any). */
+    int relief;			/* 3-d effect: TK_RELIEF_RAISED etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int width;			/* Width to request for window.  <= 0 means
+				 * don't request any size. */
+    int height;			/* Height to request for window.  <= 0 means
+				 * don't request any size. */
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} Frame;
+
+/*
+ * Flag bits for frames:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * GOT_FOCUS:			Non-zero means this widget currently
+ *				has the input focus.
+ */
+
+#define REDRAW_PENDING		1
+#define GOT_FOCUS		4
+
+/*
+ * The following flag bits are used so that there can be separate
+ * defaults for some configuration options for frames and toplevels.
+ */
+
+#define FRAME		TK_CONFIG_USER_BIT
+#define TOPLEVEL	(TK_CONFIG_USER_BIT << 1)
+#define BOTH		(FRAME | TOPLEVEL)
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_FRAME_BG_COLOR, Tk_Offset(Frame, border),
+	BOTH|TK_CONFIG_COLOR_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_FRAME_BG_MONO, Tk_Offset(Frame, border),
+	BOTH|TK_CONFIG_MONO_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, BOTH},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, BOTH},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_FRAME_BORDER_WIDTH, Tk_Offset(Frame, borderWidth), BOTH},
+    {TK_CONFIG_STRING, "-class", "class", "Class",
+	DEF_FRAME_CLASS, Tk_Offset(Frame, className), FRAME},
+    {TK_CONFIG_STRING, "-class", "class", "Class",
+	DEF_TOPLEVEL_CLASS, Tk_Offset(Frame, className), TOPLEVEL},
+    {TK_CONFIG_STRING, "-colormap", "colormap", "Colormap",
+	DEF_FRAME_COLORMAP, Tk_Offset(Frame, colormapName),
+	BOTH|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_FRAME_CURSOR, Tk_Offset(Frame, cursor), BOTH|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-height", "height", "Height",
+	DEF_FRAME_HEIGHT, Tk_Offset(Frame, height), BOTH},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_FRAME_HIGHLIGHT_BG,
+	Tk_Offset(Frame, highlightBgColorPtr), BOTH},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_FRAME_HIGHLIGHT, Tk_Offset(Frame, highlightColorPtr), BOTH},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_FRAME_HIGHLIGHT_WIDTH, Tk_Offset(Frame, highlightWidth), BOTH},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_FRAME_RELIEF, Tk_Offset(Frame, relief), BOTH},
+    {TK_CONFIG_STRING, "-screen", "screen", "Screen",
+	DEF_TOPLEVEL_SCREEN, Tk_Offset(Frame, screenName),
+	TOPLEVEL|TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_FRAME_TAKE_FOCUS, Tk_Offset(Frame, takeFocus),
+	BOTH|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-visual", "visual", "Visual",
+	DEF_FRAME_VISUAL, Tk_Offset(Frame, visualName),
+	BOTH|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-width", "width", "Width",
+	DEF_FRAME_WIDTH, Tk_Offset(Frame, width), BOTH},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		ConfigureFrame _ANSI_ARGS_((Tcl_Interp *interp,
+			    Frame *framePtr, int argc, char **argv,
+			    int flags));
+static void		DestroyFrame _ANSI_ARGS_((char *memPtr));
+static void		DisplayFrame _ANSI_ARGS_((ClientData clientData));
+static void		FrameCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		FrameEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		FrameWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		MapFrame _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_FrameCmd, Tk_ToplevelCmd --
+ *
+ *	These procedures are invoked to process the "frame" and
+ *	"toplevel" Tcl commands.  See the user documentation for
+ *	details on what they do.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.  These procedures are just wrappers;
+ *	they call ButtonCreate to do all of the real work.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_FrameCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return TkCreateFrame(clientData, interp, argc, argv, 0, (char *) NULL);
+}
+
+int
+Tk_ToplevelCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    return TkCreateFrame(clientData, interp, argc, argv, 1, (char *) NULL);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkFrameCreate --
+ *
+ *	This procedure is invoked to process the "frame" and "toplevel"
+ *	Tcl commands;  it is also invoked directly by Tk_Init to create
+ *	a new main window.  See the user documentation for the "frame"
+ *	and "toplevel" commands for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkCreateFrame(clientData, interp, argc, argv, toplevel, appName)
+    ClientData clientData;	/* Main window associated with interpreter.
+				 * If we're called by Tk_Init to create a
+				 * new application, then this is NULL. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+    int toplevel;		/* Non-zero means create a toplevel window,
+				 * zero means create a frame. */
+    char *appName;		/* Should only be non-NULL if clientData is
+				 * NULL:  gives the base name to use for the
+				 * new application. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    Frame *framePtr;
+    Tk_Window new = NULL;
+    char *className, *screenName, *visualName, *colormapName, *arg;
+    int i, c, length, depth;
+    Colormap colormap;
+    Visual *visual;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Pre-process the argument list.  Scan through it to find any
+     * "-class", "-screen", "-visual", and "-colormap" options.  These
+     * arguments need to be processed specially, before the window
+     * is configured using the usual Tk mechanisms.
+     */
+
+    className = colormapName = screenName = visualName = NULL;
+    colormap = None;
+    for (i = 2; i < argc; i += 2) {
+	arg = argv[i];
+	length = strlen(arg);
+	if (length < 2) {
+	    continue;
+	}
+	c = arg[1];
+	if ((c == 'c') && (strncmp(arg, "-class", strlen(arg)) == 0)
+		&& (length >= 3)) {
+	    className = argv[i+1];
+	} else if ((c == 'c')
+		&& (strncmp(arg, "-colormap", strlen(arg)) == 0)) {
+	    colormapName = argv[i+1];
+	} else if ((c == 's') && toplevel
+		&& (strncmp(arg, "-screen", strlen(arg)) == 0)) {
+	    screenName = argv[i+1];
+	} else if ((c == 'v')
+		&& (strncmp(arg, "-visual", strlen(arg)) == 0)) {
+	    visualName = argv[i+1];
+	}
+    }
+
+    /*
+     * Create the window, and deal with the special options -classname,
+     * -colormap, -screenname, and -visual.  The order here is tricky,
+     * because we want to allow values for these options to come from
+     * the database, yet we can't do that until the window is created.
+     */
+
+    if (screenName == NULL) {
+	screenName = (toplevel) ? "" : NULL;
+    }
+    if (tkwin != NULL) {
+	new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], screenName);
+    } else {
+	/*
+	 * We were called from Tk_Init;  create a new application.
+	 */
+
+	if (appName == NULL) {
+	    panic("TkCreateFrame didn't get application name");
+	}
+	new = TkCreateMainWindow(interp, screenName, appName);
+    }
+    if (new == NULL) {
+	goto error;
+    }
+    if (className == NULL) {
+	className = Tk_GetOption(new, "class", "Class");
+	if (className == NULL) {
+	    className = (toplevel) ? "Toplevel" : "Frame";
+	}
+    }
+    Tk_SetClass(new, className);
+    if (visualName == NULL) {
+	visualName = Tk_GetOption(new, "visual", "Visual");
+    }
+    if (colormapName == NULL) {
+	colormapName = Tk_GetOption(new, "colormap", "Colormap");
+    }
+    if (visualName != NULL) {
+	visual = Tk_GetVisual(interp, new, visualName, &depth,
+		(colormapName == NULL) ? &colormap : (Colormap *) NULL);
+	if (visual == NULL) {
+	    goto error;
+	}
+	Tk_SetWindowVisual(new, visual, depth, colormap);
+    }
+    if (colormapName != NULL) {
+	colormap = Tk_GetColormap(interp, new, colormapName);
+	if (colormap == None) {
+	    goto error;
+	}
+	Tk_SetWindowColormap(new, colormap);
+    }
+
+    /*
+     * For top-level windows, provide an initial geometry request of
+     * 200x200,  just so the window looks nicer on the screen if it
+     * doesn't request a size for itself.
+     */
+
+    if (toplevel) {
+	Tk_GeometryRequest(new, 200, 200);
+    }
+
+    /*
+     * Create the widget record, process configuration options, and
+     * create event handlers.  Then fill in a few additional fields
+     * in the widget record from the special options.
+     */
+
+    framePtr = (Frame *) ckalloc(sizeof(Frame));
+    framePtr->tkwin = new;
+    framePtr->display = Tk_Display(new);
+    framePtr->interp = interp;
+    framePtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(new), FrameWidgetCmd,
+	    (ClientData) framePtr, FrameCmdDeletedProc);
+    framePtr->className = NULL;
+    framePtr->mask = (toplevel) ? TOPLEVEL : FRAME;
+    framePtr->screenName = NULL;
+    framePtr->visualName = NULL;
+    framePtr->colormapName = NULL;
+    framePtr->colormap = colormap;
+    framePtr->border = NULL;
+    framePtr->borderWidth = 0;
+    framePtr->relief = TK_RELIEF_FLAT;
+    framePtr->highlightWidth = 0;
+    framePtr->highlightBgColorPtr = NULL;
+    framePtr->highlightColorPtr = NULL;
+    framePtr->width = 0;
+    framePtr->height = 0;
+    framePtr->cursor = None;
+    framePtr->takeFocus = NULL;
+    framePtr->flags = 0;
+    Tk_CreateEventHandler(new, ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    FrameEventProc, (ClientData) framePtr);
+    if (ConfigureFrame(interp, framePtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+    if (toplevel) {
+	Tcl_DoWhenIdle(MapFrame, (ClientData) framePtr);
+    }
+#ifdef STk_CODE
+     STk_sharp_dot_result(interp,Tk_PathName(new));
+#else
+    interp->result = Tk_PathName(new);
+#endif
+    return TCL_OK;
+
+    error:
+    if (new != NULL) {
+	Tk_DestroyWindow(new);
+    }
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FrameWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a frame widget.  See the user
+ *	documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+FrameWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about frame widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Frame *framePtr = (Frame *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c, i;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) framePtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	result = Tk_ConfigureValue(interp, framePtr->tkwin, configSpecs,
+		(char *) framePtr, argv[2], framePtr->mask);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, framePtr->tkwin, configSpecs,
+		    (char *) framePtr, (char *) NULL, framePtr->mask);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, framePtr->tkwin, configSpecs,
+		    (char *) framePtr, argv[2], framePtr->mask);
+	} else {
+	    /*
+	     * Don't allow the options -class, -newcmap, -screen,
+	     * or -visual to be changed.
+	     */
+
+	    for (i = 2; i < argc; i++) {
+		length = strlen(argv[i]);
+		if (length < 2) {
+		    continue;
+		}
+		c = argv[i][1];
+		if (((c == 'c') && (strncmp(argv[i], "-class", length) == 0)
+			&& (length >= 2))
+			|| ((c == 'c') && (framePtr->mask == TOPLEVEL)
+			&& (strncmp(argv[i], "-colormap", length) == 0))
+			|| ((c == 's') && (framePtr->mask == TOPLEVEL)
+			&& (strncmp(argv[i], "-screen", length) == 0))
+			|| ((c == 'v') && (framePtr->mask == TOPLEVEL)
+			&& (strncmp(argv[i], "-visual", length) == 0))) {
+		    Tcl_AppendResult(interp, "can't modify ", argv[i],
+			    " option after widget is created", (char *) NULL);
+		    result = TCL_ERROR;
+		    goto done;
+		}
+	    }
+	    result = ConfigureFrame(interp, framePtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget or configure", (char *) NULL);
+	result = TCL_ERROR;
+    }
+
+    done:
+    Tcl_Release((ClientData) framePtr);
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyFrame --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a frame at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the frame is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyFrame(memPtr)
+    char *memPtr;		/* Info about frame widget. */
+{
+    register Frame *framePtr = (Frame *) memPtr;
+
+    Tk_FreeOptions(configSpecs, (char *) framePtr, framePtr->display,
+	    framePtr->mask);
+    if (framePtr->colormap != None) {
+	Tk_FreeColormap(framePtr->display, framePtr->colormap);
+    }
+    ckfree((char *) framePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureFrame --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a frame widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as text string, colors, font,
+ *	etc. get set for framePtr;  old resources get freed, if there
+ *	were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureFrame(interp, framePtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Frame *framePtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    if (Tk_ConfigureWidget(interp, framePtr->tkwin, configSpecs,
+	    argc, argv, (char *) framePtr, flags | framePtr->mask) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    if (framePtr->border != NULL) {
+	Tk_SetBackgroundFromBorder(framePtr->tkwin, framePtr->border);
+    }
+    if (framePtr->highlightWidth < 0) {
+	framePtr->highlightWidth = 0;
+    }
+    Tk_SetInternalBorder(framePtr->tkwin,
+	    framePtr->borderWidth + framePtr->highlightWidth);
+    if ((framePtr->width > 0) || (framePtr->height > 0)) {
+	Tk_GeometryRequest(framePtr->tkwin, framePtr->width,
+		framePtr->height);
+    }
+
+    if (Tk_IsMapped(framePtr->tkwin)) {
+	if (!(framePtr->flags & REDRAW_PENDING)) {
+	    Tcl_DoWhenIdle(DisplayFrame, (ClientData) framePtr);
+	}
+	framePtr->flags |= REDRAW_PENDING;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayFrame --
+ *
+ *	This procedure is invoked to display a frame widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Commands are output to X to display the frame in its
+ *	current mode.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayFrame(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    register Frame *framePtr = (Frame *) clientData;
+    register Tk_Window tkwin = framePtr->tkwin;
+    GC gc;
+
+    framePtr->flags &= ~REDRAW_PENDING;
+    if ((framePtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    if (framePtr->border != NULL) {
+	Tk_Fill3DRectangle(tkwin, Tk_WindowId(tkwin),
+		framePtr->border, framePtr->highlightWidth,
+		framePtr->highlightWidth,
+		Tk_Width(tkwin) - 2*framePtr->highlightWidth,
+		Tk_Height(tkwin) - 2*framePtr->highlightWidth,
+		framePtr->borderWidth, framePtr->relief);
+    }
+    if (framePtr->highlightWidth != 0) {
+	if (framePtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(framePtr->highlightColorPtr,
+		    Tk_WindowId(tkwin));
+	} else {
+	    gc = Tk_GCForColor(framePtr->highlightBgColorPtr,
+		    Tk_WindowId(tkwin));
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, framePtr->highlightWidth,
+		Tk_WindowId(tkwin));
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * FrameEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher on
+ *	structure changes to a frame.  For frames with 3D
+ *	borders, this procedure is also invoked for exposures.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+FrameEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    register XEvent *eventPtr;	/* Information about event. */
+{
+    register Frame *framePtr = (Frame *) clientData;
+
+    if (((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0))
+	    || (eventPtr->type == ConfigureNotify)) {
+	goto redraw;
+    } else if (eventPtr->type == DestroyNotify) {
+	if (framePtr->tkwin != NULL) {
+	    framePtr->tkwin = NULL;
+	    Tcl_DeleteCommand(framePtr->interp,
+		    Tcl_GetCommandName(framePtr->interp, framePtr->widgetCmd));
+	}
+	if (framePtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayFrame, (ClientData) framePtr);
+	}
+	Tcl_CancelIdleCall(MapFrame, (ClientData) framePtr);
+	Tcl_EventuallyFree((ClientData) framePtr, DestroyFrame);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    framePtr->flags |= GOT_FOCUS;
+	    if (framePtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    framePtr->flags &= ~GOT_FOCUS;
+	    if (framePtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    }
+    return;
+
+    redraw:
+    if ((framePtr->tkwin != NULL) && !(framePtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayFrame, (ClientData) framePtr);
+	framePtr->flags |= REDRAW_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FrameCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FrameCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Frame *framePtr = (Frame *) clientData;
+    Tk_Window tkwin = framePtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	framePtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MapFrame --
+ *
+ *	This procedure is invoked as a when-idle handler to map a
+ *	newly-created top-level frame.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The frame given by the clientData argument is mapped.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MapFrame(clientData)
+    ClientData clientData;		/* Pointer to frame structure. */
+{
+    Frame *framePtr = (Frame *) clientData;
+
+    /*
+     * Wait for all other background events to be processed before
+     * mapping window.  This ensures that the window's correct geometry
+     * will have been determined before it is first mapped, so that the
+     * window manager doesn't get a false idea of its desired geometry.
+     */
+
+    Tcl_Preserve((ClientData) framePtr);
+    while (1) {
+	if (Tcl_DoOneEvent(TCL_IDLE_EVENTS) == 0) {
+	    break;
+	}
+
+	/*
+	 * After each event, make sure that the window still exists
+	 * and quit if the window has been destroyed.
+	 */
+
+	if (framePtr->tkwin == NULL) {
+	    Tcl_Release((ClientData) framePtr);
+	    return;
+	}
+    }
+    Tk_MapWindow(framePtr->tkwin);
+    Tcl_Release((ClientData) framePtr);
+}
diff --git a/Tk/generic/tkGC.c b/Tk/generic/tkGC.c
new file mode 100644
index 0000000..f68db12
--- /dev/null
+++ b/Tk/generic/tkGC.c
@@ -0,0 +1,363 @@
+/* 
+ * tkGC.c --
+ *
+ *	This file maintains a database of read-only graphics contexts 
+ *	for the Tk toolkit, in order to allow GC's to be shared.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkGC.c 1.18 96/02/15 18:53:32
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+
+/*
+ * One of the following data structures exists for each GC that is
+ * currently active.  The structure is indexed with two hash tables,
+ * one based on the values in the graphics context and the other
+ * based on the display and GC identifier.
+ */
+
+typedef struct {
+    GC gc;			/* Graphics context. */
+    Display *display;		/* Display to which gc belongs. */
+    int refCount;		/* Number of active uses of gc. */
+    Tcl_HashEntry *valueHashPtr;/* Entry in valueTable (needed when deleting
+				 * this structure). */
+} TkGC;
+
+/*
+ * Hash table to map from a GC's values to a TkGC structure describing
+ * a GC with those values (used by Tk_GetGC).
+ */
+
+static Tcl_HashTable valueTable;
+typedef struct {
+    XGCValues values;		/* Desired values for GC. */
+    Display *display;		/* Display for which GC is valid. */
+    int screenNum;		/* screen number of display */
+    int depth;			/* and depth for which GC is valid. */
+} ValueKey;
+
+/*
+ * Hash table for <display + GC> -> TkGC mapping. This table is used by
+ * Tk_FreeGC.
+ */
+
+static Tcl_HashTable idTable;
+typedef struct {
+    Display *display;		/* Display for which GC was allocated. */
+    GC gc;			/* X's identifier for GC. */
+} IdKey;
+
+static int initialized = 0;	/* 0 means static structures haven't been
+				 * initialized yet. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		GCInit _ANSI_ARGS_((void));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetGC --
+ *
+ *	Given a desired set of values for a graphics context, find
+ *	a read-only graphics context with the desired values.
+ *
+ * Results:
+ *	The return value is the X identifer for the desired graphics
+ *	context.  The caller should never modify this GC, and should
+ *	call Tk_FreeGC when the GC is no longer needed.
+ *
+ * Side effects:
+ *	The GC is added to an internal database with a reference count.
+ *	For each call to this procedure, there should eventually be a call
+ *	to Tk_FreeGC, so that the database can be cleaned up when GC's
+ *	aren't needed anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+GC
+Tk_GetGC(tkwin, valueMask, valuePtr)
+    Tk_Window tkwin;		/* Window in which GC will be used. */
+    register unsigned long valueMask;
+				/* 1 bits correspond to values specified
+				 * in *valuesPtr;  other values are set
+				 * from defaults. */
+    register XGCValues *valuePtr;
+				/* Values are specified here for bits set
+				 * in valueMask. */
+{
+    ValueKey valueKey;
+    IdKey idKey;
+    Tcl_HashEntry *valueHashPtr, *idHashPtr;
+    register TkGC *gcPtr;
+    int new;
+    Drawable d, freeDrawable;
+
+    if (!initialized) {
+	GCInit();
+    }
+
+    /*
+     * Must zero valueKey at start to clear out pad bytes that may be
+     * part of structure on some systems.
+     */
+
+    memset((VOID *) &valueKey, 0, sizeof(valueKey));
+
+    /*
+     * First, check to see if there's already a GC that will work
+     * for this request (exact matches only, sorry).
+     */
+
+    if (valueMask & GCFunction) {
+	valueKey.values.function = valuePtr->function;
+    } else {
+	valueKey.values.function = GXcopy;
+    }
+    if (valueMask & GCPlaneMask) {
+	valueKey.values.plane_mask = valuePtr->plane_mask;
+    } else {
+	valueKey.values.plane_mask = (unsigned) ~0;
+    }
+    if (valueMask & GCForeground) {
+	valueKey.values.foreground = valuePtr->foreground;
+    } else {
+	valueKey.values.foreground = 0;
+    }
+    if (valueMask & GCBackground) {
+	valueKey.values.background = valuePtr->background;
+    } else {
+	valueKey.values.background = 1;
+    }
+    if (valueMask & GCLineWidth) {
+	valueKey.values.line_width = valuePtr->line_width;
+    } else {
+	valueKey.values.line_width = 0;
+    }
+    if (valueMask & GCLineStyle) {
+	valueKey.values.line_style = valuePtr->line_style;
+    } else {
+	valueKey.values.line_style = LineSolid;
+    }
+    if (valueMask & GCCapStyle) {
+	valueKey.values.cap_style = valuePtr->cap_style;
+    } else {
+	valueKey.values.cap_style = CapButt;
+    }
+    if (valueMask & GCJoinStyle) {
+	valueKey.values.join_style = valuePtr->join_style;
+    } else {
+	valueKey.values.join_style = JoinMiter;
+    }
+    if (valueMask & GCFillStyle) {
+	valueKey.values.fill_style = valuePtr->fill_style;
+    } else {
+	valueKey.values.fill_style = FillSolid;
+    }
+    if (valueMask & GCFillRule) {
+	valueKey.values.fill_rule = valuePtr->fill_rule;
+    } else {
+	valueKey.values.fill_rule = EvenOddRule;
+    }
+    if (valueMask & GCArcMode) {
+	valueKey.values.arc_mode = valuePtr->arc_mode;
+    } else {
+	valueKey.values.arc_mode = ArcPieSlice;
+    }
+    if (valueMask & GCTile) {
+	valueKey.values.tile = valuePtr->tile;
+    } else {
+	valueKey.values.tile = None;
+    }
+    if (valueMask & GCStipple) {
+	valueKey.values.stipple = valuePtr->stipple;
+    } else {
+	valueKey.values.stipple = None;
+    }
+    if (valueMask & GCTileStipXOrigin) {
+	valueKey.values.ts_x_origin = valuePtr->ts_x_origin;
+    } else {
+	valueKey.values.ts_x_origin = 0;
+    }
+    if (valueMask & GCTileStipYOrigin) {
+	valueKey.values.ts_y_origin = valuePtr->ts_y_origin;
+    } else {
+	valueKey.values.ts_y_origin = 0;
+    }
+    if (valueMask & GCFont) {
+	valueKey.values.font = valuePtr->font;
+    } else {
+	valueKey.values.font = None;
+    }
+    if (valueMask & GCSubwindowMode) {
+	valueKey.values.subwindow_mode = valuePtr->subwindow_mode;
+    } else {
+	valueKey.values.subwindow_mode = ClipByChildren;
+    }
+    if (valueMask & GCGraphicsExposures) {
+	valueKey.values.graphics_exposures = valuePtr->graphics_exposures;
+    } else {
+	valueKey.values.graphics_exposures = True;
+    }
+    if (valueMask & GCClipXOrigin) {
+	valueKey.values.clip_x_origin = valuePtr->clip_x_origin;
+    } else {
+	valueKey.values.clip_x_origin = 0;
+    }
+    if (valueMask & GCClipYOrigin) {
+	valueKey.values.clip_y_origin = valuePtr->clip_y_origin;
+    } else {
+	valueKey.values.clip_y_origin = 0;
+    }
+    if (valueMask & GCClipMask) {
+	valueKey.values.clip_mask = valuePtr->clip_mask;
+    } else {
+	valueKey.values.clip_mask = None;
+    }
+    if (valueMask & GCDashOffset) {
+	valueKey.values.dash_offset = valuePtr->dash_offset;
+    } else {
+	valueKey.values.dash_offset = 0;
+    }
+    if (valueMask & GCDashList) {
+	valueKey.values.dashes = valuePtr->dashes;
+    } else {
+	valueKey.values.dashes = 4;
+    }
+    valueKey.display = Tk_Display(tkwin);
+    valueKey.screenNum = Tk_ScreenNumber(tkwin);
+    valueKey.depth = Tk_Depth(tkwin);
+    valueHashPtr = Tcl_CreateHashEntry(&valueTable, (char *) &valueKey, &new);
+    if (!new) {
+	gcPtr = (TkGC *) Tcl_GetHashValue(valueHashPtr);
+	gcPtr->refCount++;
+	return gcPtr->gc;
+    }
+
+    /*
+     * No GC is currently available for this set of values.  Allocate a
+     * new GC and add a new structure to the database.
+     */
+
+    gcPtr = (TkGC *) ckalloc(sizeof(TkGC));
+
+    /*
+     * Find or make a drawable to use to specify the screen and depth
+     * of the GC.  We may have to make a small pixmap, to avoid doing
+     * Tk_MakeWindowExist on the window.
+     */
+
+    freeDrawable = None;
+    if (Tk_WindowId(tkwin) != None) {
+	d = Tk_WindowId(tkwin);
+    } else if (valueKey.depth ==
+	    DefaultDepth(valueKey.display, valueKey.screenNum)) {
+	d = RootWindow(valueKey.display, valueKey.screenNum);
+    } else {
+	d = Tk_GetPixmap(valueKey.display,
+		RootWindow(valueKey.display, valueKey.screenNum),
+		1, 1, valueKey.depth);
+	freeDrawable = d;
+    }
+
+    gcPtr->gc = XCreateGC(valueKey.display, d, valueMask, &valueKey.values);
+    gcPtr->display = valueKey.display;
+    gcPtr->refCount = 1;
+    gcPtr->valueHashPtr = valueHashPtr;
+    idKey.display = valueKey.display;
+    idKey.gc = gcPtr->gc;
+    idHashPtr = Tcl_CreateHashEntry(&idTable, (char *) &idKey, &new);
+    if (!new) {
+	panic("GC already registered in Tk_GetGC");
+    }
+    Tcl_SetHashValue(valueHashPtr, gcPtr);
+    Tcl_SetHashValue(idHashPtr, gcPtr);
+    if (freeDrawable != None) {
+	Tk_FreePixmap(valueKey.display, freeDrawable);
+    }
+
+    return gcPtr->gc;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeGC --
+ *
+ *	This procedure is called to release a graphics context allocated by
+ *	Tk_GetGC.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The reference count associated with gc is decremented, and
+ *	gc is officially deallocated if no-one is using it anymore.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeGC(display, gc)
+    Display *display;		/* Display for which gc was allocated. */
+    GC gc;			/* Graphics context to be released. */
+{
+    IdKey idKey;
+    Tcl_HashEntry *idHashPtr;
+    register TkGC *gcPtr;
+
+    if (!initialized) {
+	panic("Tk_FreeGC called before Tk_GetGC");
+    }
+
+    idKey.display = display;
+    idKey.gc = gc;
+    idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
+    if (idHashPtr == NULL) {
+	panic("Tk_FreeGC received unknown gc argument");
+    }
+    gcPtr = (TkGC *) Tcl_GetHashValue(idHashPtr);
+    gcPtr->refCount--;
+    if (gcPtr->refCount == 0) {
+	Tk_FreeXId(gcPtr->display, (XID) XGContextFromGC(gcPtr->gc));
+	XFreeGC(gcPtr->display, gcPtr->gc);
+	Tcl_DeleteHashEntry(gcPtr->valueHashPtr);
+	Tcl_DeleteHashEntry(idHashPtr);
+	ckfree((char *) gcPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GCInit --
+ *
+ *	Initialize the structures used for GC management.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Read the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GCInit()
+{
+    initialized = 1;
+    Tcl_InitHashTable(&valueTable, sizeof(ValueKey)/sizeof(int));
+    Tcl_InitHashTable(&idTable, sizeof(IdKey)/sizeof(int));
+}
diff --git a/Tk/generic/tkGeometry.c b/Tk/generic/tkGeometry.c
new file mode 100644
index 0000000..ec2c959
--- /dev/null
+++ b/Tk/generic/tkGeometry.c
@@ -0,0 +1,582 @@
+/* 
+ * tkGeometry.c --
+ *
+ *	This file contains generic Tk code for geometry management
+ *	(stuff that's used by all geometry managers).
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkGeometry.c 1.31 96/02/15 18:53:32
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * Data structures of the following type are used by Tk_MaintainGeometry.
+ * For each slave managed by Tk_MaintainGeometry, there is one of these
+ * structures associated with its master.
+ */
+
+typedef struct MaintainSlave {
+    Tk_Window slave;		/* The slave window being positioned. */
+    Tk_Window master;		/* The master that determines slave's
+				 * position; it must be a descendant of
+				 * slave's parent. */
+    int x, y;			/* Desired position of slave relative to
+				 * master. */
+    int width, height;		/* Desired dimensions of slave. */
+    struct MaintainSlave *nextPtr;
+				/* Next in list of Maintains associated
+				 * with master. */
+} MaintainSlave;
+
+/*
+ * For each window that has been specified as a master to
+ * Tk_MaintainGeometry, there is a structure of the following type:
+ */
+
+typedef struct MaintainMaster {
+    Tk_Window ancestor;		/* The lowest ancestor of this window
+				 * for which we have *not* created a
+				 * StructureNotify handler.  May be the
+				 * same as the window itself. */
+    int checkScheduled;		/* Non-zero means that there is already a
+				 * call to MaintainCheckProc scheduled as
+				 * an idle handler. */
+    MaintainSlave *slavePtr;	/* First in list of all slaves associated
+				 * with this master. */
+} MaintainMaster;
+
+/*
+ * Hash table that maps from a master's Tk_Window token to a list of
+ * Maintains for that master:
+ */
+
+static Tcl_HashTable maintainHashTable;
+
+/*
+ * Has maintainHashTable been initialized yet?
+ */
+
+static int initialized = 0;
+
+/*
+ * Prototypes for static procedures in this file:
+ */
+
+static void		MaintainCheckProc _ANSI_ARGS_((ClientData clientData));
+static void		MaintainMasterProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		MaintainSlaveProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ManageGeometry --
+ *
+ *	Arrange for a particular procedure to manage the geometry
+ *	of a given slave window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Proc becomes the new geometry manager for tkwin, replacing
+ *	any previous geometry manager.  The geometry manager will
+ *	be notified (by calling procedures in *mgrPtr) when interesting
+ *	things happen in the future.  If there was an existing geometry
+ *	manager for tkwin different from the new one, it is notified
+ *	by calling its lostSlaveProc.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_ManageGeometry(tkwin, mgrPtr, clientData)
+    Tk_Window tkwin;		/* Window whose geometry is to
+				 * be managed by proc.  */
+    Tk_GeomMgr *mgrPtr;		/* Static structure describing the
+				 * geometry manager.  This structure
+				 * must never go away. */
+    ClientData clientData;	/* Arbitrary one-word argument to
+				 * pass to geometry manager procedures. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if ((winPtr->geomMgrPtr != NULL) && (mgrPtr != NULL)
+	    && ((winPtr->geomMgrPtr != mgrPtr)
+		|| (winPtr->geomData != clientData))
+	    && (winPtr->geomMgrPtr->lostSlaveProc != NULL)) {
+	(*winPtr->geomMgrPtr->lostSlaveProc)(winPtr->geomData, tkwin);
+    }
+
+    winPtr->geomMgrPtr = mgrPtr;
+    winPtr->geomData = clientData;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GeometryRequest --
+ *
+ *	This procedure is invoked by widget code to indicate
+ *	its preferences about the size of a window it manages.
+ *	In general, widget code should call this procedure
+ *	rather than Tk_ResizeWindow.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The geometry manager for tkwin (if any) is invoked to
+ *	handle the request.  If possible, it will reconfigure
+ *	tkwin and/or other windows to satisfy the request.  The
+ *	caller gets no indication of success or failure, but it
+ *	will get X events if the window size was actually
+ *	changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_GeometryRequest(tkwin, reqWidth, reqHeight)
+    Tk_Window tkwin;		/* Window that geometry information
+				 * pertains to. */
+    int reqWidth, reqHeight;	/* Minimum desired dimensions for
+				 * window, in pixels. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    /*
+     * X gets very upset if a window requests a width or height of
+     * zero, so rounds requested sizes up to at least 1.
+     */
+
+    if (reqWidth <= 0) {
+	reqWidth = 1;
+    }
+    if (reqHeight <= 0) {
+	reqHeight = 1;
+    }
+    if ((reqWidth == winPtr->reqWidth) && (reqHeight == winPtr->reqHeight)) {
+	return;
+    }
+    winPtr->reqWidth = reqWidth;
+    winPtr->reqHeight = reqHeight;
+    if ((winPtr->geomMgrPtr != NULL)
+	    && (winPtr->geomMgrPtr->requestProc != NULL)) {
+	(*winPtr->geomMgrPtr->requestProc)(winPtr->geomData, tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetInternalBorder --
+ *
+ *	Notify relevant geometry managers that a window has an internal
+ *	border of a given width and that child windows should not be
+ *	placed on that border.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The border width is recorded for the window, and all geometry
+ *	managers of all children are notified so that can re-layout, if
+ *	necessary.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetInternalBorder(tkwin, width)
+    Tk_Window tkwin;		/* Window that will have internal border. */
+    int width;			/* Width of internal border, in pixels. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if (width == winPtr->internalBorderWidth) {
+	return;
+    }
+    if (width < 0) {
+	width = 0;
+    }
+    winPtr->internalBorderWidth = width;
+
+    /*
+     * All the slaves for which this is the master window must now be
+     * repositioned to take account of the new internal border width.
+     * To signal all the geometry managers to do this, just resize the
+     * window to its current size.  The ConfigureNotify event will
+     * cause geometry managers to recompute everything.
+     */
+
+    Tk_ResizeWindow(tkwin, Tk_Width(tkwin), Tk_Height(tkwin));
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_MaintainGeometry --
+ *
+ *	This procedure is invoked by geometry managers to handle slaves
+ *	whose master's are not their parents.  It translates the desired
+ *	geometry for the slave into the coordinate system of the parent
+ *	and respositions the slave if it isn't already at the right place.
+ *	Furthermore, it sets up event handlers so that if the master (or
+ *	any of its ancestors up to the slave's parent) is mapped, unmapped,
+ *	or moved, then the slave will be adjusted to match.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Event handlers are created and state is allocated to keep track
+ *	of slave.  Note:  if slave was already managed for master by
+ *	Tk_MaintainGeometry, then the previous information is replaced
+ *	with the new information.  The caller must eventually call
+ *	Tk_UnmaintainGeometry to eliminate the correspondence (or, the
+ *	state is automatically freed when either window is destroyed).
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_MaintainGeometry(slave, master, x, y, width, height)
+    Tk_Window slave;		/* Slave for geometry management. */
+    Tk_Window master;		/* Master for slave; must be a descendant
+				 * of slave's parent. */
+    int x, y;			/* Desired position of slave within master. */
+    int width, height;		/* Desired dimensions for slave. */
+{
+    Tcl_HashEntry *hPtr;
+    MaintainMaster *masterPtr;
+    register MaintainSlave *slavePtr;
+    int new, map;
+    Tk_Window ancestor, parent;
+
+    if (!initialized) {
+	initialized = 1;
+	Tcl_InitHashTable(&maintainHashTable, TCL_ONE_WORD_KEYS);
+    }
+
+    /*
+     * See if there is already a MaintainMaster structure for the master;
+     * if not, then create one.
+     */
+
+    parent = Tk_Parent(slave);
+    hPtr = Tcl_CreateHashEntry(&maintainHashTable, (char *) master, &new);
+    if (!new) {
+	masterPtr = (MaintainMaster *) Tcl_GetHashValue(hPtr);
+    } else {
+	masterPtr = (MaintainMaster *) ckalloc(sizeof(MaintainMaster));
+	masterPtr->ancestor = master;
+	masterPtr->checkScheduled = 0;
+	masterPtr->slavePtr = NULL;
+	Tcl_SetHashValue(hPtr, masterPtr);
+    }
+
+    /*
+     * Create a MaintainSlave structure for the slave if there isn't
+     * already one.
+     */
+
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+	    slavePtr = slavePtr->nextPtr) {
+	if (slavePtr->slave == slave) {
+	    goto gotSlave;
+	}
+    }
+    slavePtr = (MaintainSlave *) ckalloc(sizeof(MaintainSlave));
+    slavePtr->slave = slave;
+    slavePtr->master = master;
+    slavePtr->nextPtr = masterPtr->slavePtr;
+    masterPtr->slavePtr = slavePtr;
+    Tk_CreateEventHandler(slave, StructureNotifyMask, MaintainSlaveProc,
+	    (ClientData) slavePtr);
+
+    /*
+     * Make sure that there are event handlers registered for all
+     * the windows between master and slave's parent (including master
+     * but not slave's parent).  There may already be handlers for master
+     * and some of its ancestors (masterPtr->ancestor tells how many).
+     */
+
+    for (ancestor = master; ancestor != parent;
+	    ancestor = Tk_Parent(ancestor)) {
+	if (ancestor == masterPtr->ancestor) {
+	    Tk_CreateEventHandler(ancestor, StructureNotifyMask,
+		    MaintainMasterProc, (ClientData) masterPtr);
+	    masterPtr->ancestor = Tk_Parent(ancestor);
+	}
+    }
+
+    /*
+     * Fill in up-to-date information in the structure, then update the
+     * window if it's not currently in the right place or state.
+     */
+
+    gotSlave:
+    slavePtr->x = x;
+    slavePtr->y = y;
+    slavePtr->width = width;
+    slavePtr->height = height;
+    map = 1;
+    for (ancestor = slavePtr->master; ; ancestor = Tk_Parent(ancestor)) {
+	if (!Tk_IsMapped(ancestor) && (ancestor != parent)) {
+	    map = 0;
+	}
+	if (ancestor == parent) {
+	    if ((x != Tk_X(slavePtr->slave))
+		    || (y != Tk_Y(slavePtr->slave))
+		    || (width != Tk_Width(slavePtr->slave))
+		    || (height != Tk_Height(slavePtr->slave))) {
+		Tk_MoveResizeWindow(slavePtr->slave, x, y, width, height);
+	    }
+	    if (map) {
+		Tk_MapWindow(slavePtr->slave);
+	    } else {
+		Tk_UnmapWindow(slavePtr->slave);
+	    }
+	    break;
+	}
+	x += Tk_X(ancestor) + Tk_Changes(ancestor)->border_width;
+	y += Tk_Y(ancestor) + Tk_Changes(ancestor)->border_width;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_UnmaintainGeometry --
+ *
+ *	This procedure cancels a previous Tk_MaintainGeometry call,
+ *	so that the relationship between slave and master is no longer
+ *	maintained.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The slave is unmapped and state is released, so that slave won't
+ *	track master any more.  If we weren't previously managing slave
+ *	relative to master, then this procedure has no effect.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_UnmaintainGeometry(slave, master)
+    Tk_Window slave;		/* Slave for geometry management. */
+    Tk_Window master;		/* Master for slave; must be a descendant
+				 * of slave's parent. */
+{
+    Tcl_HashEntry *hPtr;
+    MaintainMaster *masterPtr;
+    register MaintainSlave *slavePtr, *prevPtr;
+    Tk_Window ancestor;
+
+    if (!initialized) {
+	initialized = 1;
+	Tcl_InitHashTable(&maintainHashTable, TCL_ONE_WORD_KEYS);
+    }
+
+    if (!(((TkWindow *) slave)->flags & TK_ALREADY_DEAD)) {
+	Tk_UnmapWindow(slave);
+    }
+    hPtr = Tcl_FindHashEntry(&maintainHashTable, (char *) master);
+    if (hPtr == NULL) {
+	return;
+    }
+    masterPtr = (MaintainMaster *) Tcl_GetHashValue(hPtr);
+    slavePtr = masterPtr->slavePtr;
+    if (slavePtr->slave == slave) {
+	masterPtr->slavePtr = slavePtr->nextPtr;
+    } else {
+	for (prevPtr = slavePtr, slavePtr = slavePtr->nextPtr; ;
+		prevPtr = slavePtr, slavePtr = slavePtr->nextPtr) {
+	    if (slavePtr == NULL) {
+		return;
+	    }
+	    if (slavePtr->slave == slave) {
+		prevPtr->nextPtr = slavePtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    Tk_DeleteEventHandler(slavePtr->slave, StructureNotifyMask,
+	    MaintainSlaveProc, (ClientData) slavePtr);
+    ckfree((char *) slavePtr);
+    if (masterPtr->slavePtr == NULL) {
+	if (masterPtr->ancestor != NULL) {
+	    for (ancestor = master; ; ancestor = Tk_Parent(ancestor)) {
+		Tk_DeleteEventHandler(ancestor, StructureNotifyMask,
+			MaintainMasterProc, (ClientData) masterPtr);
+		if (ancestor == masterPtr->ancestor) {
+		    break;
+		}
+	    }
+	}
+	if (masterPtr->checkScheduled) {
+	    Tcl_CancelIdleCall(MaintainCheckProc, (ClientData) masterPtr);
+	}
+	Tcl_DeleteHashEntry(hPtr);
+	ckfree((char *) masterPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MaintainMasterProc --
+ *
+ *	This procedure is invoked by the Tk event dispatcher in
+ *	response to StructureNotify events on the master or one
+ *	of its ancestors, on behalf of Tk_MaintainGeometry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	It schedules a call to MaintainCheckProc, which will eventually
+ *	caused the postions and mapped states to be recalculated for all
+ *	the maintained slaves of the master.  Or, if the master window is
+ *	being deleted then state is cleaned up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MaintainMasterProc(clientData, eventPtr)
+    ClientData clientData;		/* Pointer to MaintainMaster structure
+					 * for the master window. */
+    XEvent *eventPtr;			/* Describes what just happened. */
+{
+    MaintainMaster *masterPtr = (MaintainMaster *) clientData;
+    MaintainSlave *slavePtr;
+    int done;
+
+    if ((eventPtr->type == ConfigureNotify)
+	    || (eventPtr->type == MapNotify)
+	    || (eventPtr->type == UnmapNotify)) {
+	if (!masterPtr->checkScheduled) {
+	    masterPtr->checkScheduled = 1;
+	    Tcl_DoWhenIdle(MaintainCheckProc, (ClientData) masterPtr);
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	/*
+	 * Delete all of the state associated with this master, but
+	 * be careful not to use masterPtr after the last slave is
+	 * deleted, since its memory will have been freed.
+	 */
+
+	done = 0;
+	do {
+	    slavePtr = masterPtr->slavePtr;
+	    if (slavePtr->nextPtr == NULL) {
+		done = 1;
+	    }
+	    Tk_UnmaintainGeometry(slavePtr->slave, slavePtr->master);
+	} while (!done);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MaintainSlaveProc --
+ *
+ *	This procedure is invoked by the Tk event dispatcher in
+ *	response to StructureNotify events on a slave being managed
+ *	by Tk_MaintainGeometry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If the event is a DestroyNotify event then the Maintain state
+ *	and event handlers for this slave are deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MaintainSlaveProc(clientData, eventPtr)
+    ClientData clientData;		/* Pointer to MaintainSlave structure
+					 * for master-slave pair. */
+    XEvent *eventPtr;			/* Describes what just happened. */
+{
+    MaintainSlave *slavePtr = (MaintainSlave *) clientData;
+
+    if (eventPtr->type == DestroyNotify) {
+	Tk_UnmaintainGeometry(slavePtr->slave, slavePtr->master);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MaintainCheckProc --
+ *
+ *	This procedure is invoked by the Tk event dispatcher as an
+ *	idle handler, when a master or one of its ancestors has been
+ *	reconfigured, mapped, or unmapped.  Its job is to scan all of
+ *	the slaves for the master and reposition them, map them, or
+ *	unmap them as needed to maintain their geometry relative to
+ *	the master.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Slaves can get repositioned, mapped, or unmapped.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MaintainCheckProc(clientData)
+    ClientData clientData;		/* Pointer to MaintainMaster structure
+					 * for the master window. */
+{
+    MaintainMaster *masterPtr = (MaintainMaster *) clientData;
+    MaintainSlave *slavePtr;
+    Tk_Window ancestor, parent;
+    int x, y, map;
+
+    masterPtr->checkScheduled = 0;
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+	    slavePtr = slavePtr->nextPtr) {
+	parent = Tk_Parent(slavePtr->slave);
+	x = slavePtr->x;
+	y = slavePtr->y;
+	map = 1;
+	for (ancestor = slavePtr->master; ; ancestor = Tk_Parent(ancestor)) {
+	    if (!Tk_IsMapped(ancestor) && (ancestor != parent)) {
+		map = 0;
+	    }
+	    if (ancestor == parent) {
+		if ((x != Tk_X(slavePtr->slave))
+			|| (y != Tk_Y(slavePtr->slave))) {
+		    Tk_MoveWindow(slavePtr->slave, x, y);
+		}
+		if (map) {
+		    Tk_MapWindow(slavePtr->slave);
+		} else {
+		    Tk_UnmapWindow(slavePtr->slave);
+		}
+		break;
+	    }
+	    x += Tk_X(ancestor) + Tk_Changes(ancestor)->border_width;
+	    y += Tk_Y(ancestor) + Tk_Changes(ancestor)->border_width;
+	}
+    }
+}
diff --git a/Tk/generic/tkGet.c b/Tk/generic/tkGet.c
new file mode 100644
index 0000000..9cd8257
--- /dev/null
+++ b/Tk/generic/tkGet.c
@@ -0,0 +1,586 @@
+/* 
+ * tkGet.c --
+ *
+ *	This file contains a number of "Tk_GetXXX" procedures, which
+ *	parse text strings into useful forms for Tk.  This file has
+ *	the simpler procedures, like Tk_GetDirection and Tk_GetUid.
+ *	The more complex procedures like Tk_GetColor are in separate
+ *	files.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkGet.c 1.12 96/02/15 18:53:33
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The hash table below is used to keep track of all the Tk_Uids created
+ * so far.
+ */
+
+static Tcl_HashTable uidTable;
+static int initialized = 0;
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetAnchor --
+ *
+ *	Given a string, return the corresponding Tk_Anchor.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	position is stored at *anchorPtr;  otherwise TCL_ERROR
+ *	is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetAnchor(interp, string, anchorPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    char *string;		/* String describing a direction. */
+    Tk_Anchor *anchorPtr;	/* Where to store Tk_Anchor corresponding
+				 * to string. */
+{
+    switch (string[0]) {
+	case 'n':
+	    if (string[1] == 0) {
+		*anchorPtr = TK_ANCHOR_N;
+		return TCL_OK;
+	    } else if ((string[1] == 'e') && (string[2] == 0)) {
+		*anchorPtr = TK_ANCHOR_NE;
+		return TCL_OK;
+	    } else if ((string[1] == 'w') && (string[2] == 0)) {
+		*anchorPtr = TK_ANCHOR_NW;
+		return TCL_OK;
+	    }
+	    goto error;
+	case 's':
+	    if (string[1] == 0) {
+		*anchorPtr = TK_ANCHOR_S;
+		return TCL_OK;
+	    } else if ((string[1] == 'e') && (string[2] == 0)) {
+		*anchorPtr = TK_ANCHOR_SE;
+		return TCL_OK;
+	    } else if ((string[1] == 'w') && (string[2] == 0)) {
+		*anchorPtr = TK_ANCHOR_SW;
+		return TCL_OK;
+	    } else {
+		goto error;
+	    }
+	case 'e':
+	    if (string[1] == 0) {
+		*anchorPtr = TK_ANCHOR_E;
+		return TCL_OK;
+	    }
+	    goto error;
+	case 'w':
+	    if (string[1] == 0) {
+		*anchorPtr = TK_ANCHOR_W;
+		return TCL_OK;
+	    }
+	    goto error;
+	case 'c':
+	    if (strncmp(string, "center", strlen(string)) == 0) {
+		*anchorPtr = TK_ANCHOR_CENTER;
+		return TCL_OK;
+	    }
+	    goto error;
+    }
+
+    error:
+    Tcl_AppendResult(interp, "bad anchor position \"", string,
+	    "\": must be n, ne, e, se, s, sw, w, nw, or center",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfAnchor --
+ *
+ *	Given a Tk_Anchor, return the string that corresponds
+ *	to it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfAnchor(anchor)
+    Tk_Anchor anchor;		/* Anchor for which identifying string
+				 * is desired. */
+{
+    switch (anchor) {
+	case TK_ANCHOR_N: return "n";
+	case TK_ANCHOR_NE: return "ne";
+	case TK_ANCHOR_E: return "e";
+	case TK_ANCHOR_SE: return "se";
+	case TK_ANCHOR_S: return "s";
+	case TK_ANCHOR_SW: return "sw";
+	case TK_ANCHOR_W: return "w";
+	case TK_ANCHOR_NW: return "nw";
+	case TK_ANCHOR_CENTER: return "center";
+    }
+    return "unknown anchor position";
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetJoinStyle --
+ *
+ *	Given a string, return the corresponding Tk_JoinStyle.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	justification is stored at *joinPtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetJoinStyle(interp, string, joinPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    char *string;		/* String describing a justification style. */
+    int *joinPtr;		/* Where to store join style corresponding
+				 * to string. */
+{
+    int c;
+    size_t length;
+
+    c = string[0];
+    length = strlen(string);
+
+    if ((c == 'b') && (strncmp(string, "bevel", length) == 0)) {
+	*joinPtr = JoinBevel;
+	return TCL_OK;
+    }
+    if ((c == 'm') && (strncmp(string, "miter", length) == 0)) {
+	*joinPtr = JoinMiter;
+	return TCL_OK;
+    }
+    if ((c == 'r') && (strncmp(string, "round", length) == 0)) {
+	*joinPtr = JoinRound;
+	return TCL_OK;
+    }
+
+    Tcl_AppendResult(interp, "bad join style \"", string,
+	    "\": must be bevel, miter, or round",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfJoinStyle --
+ *
+ *	Given a Tk_JoinStyle, return the string that corresponds
+ *	to it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfJoinStyle(join)
+    int join;			/* Join style for which identifying string
+				 * is desired. */
+{
+    switch (join) {
+	case JoinBevel: return "bevel";
+	case JoinMiter: return "miter";
+	case JoinRound: return "round";
+    }
+    return "unknown join style";
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetCapStyle --
+ *
+ *	Given a string, return the corresponding Tk_CapStyle.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	justification is stored at *capPtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetCapStyle(interp, string, capPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    char *string;		/* String describing a justification style. */
+    int *capPtr;		/* Where to store cap style corresponding
+				 * to string. */
+{
+    int c;
+    size_t length;
+
+    c = string[0];
+    length = strlen(string);
+
+    if ((c == 'b') && (strncmp(string, "butt", length) == 0)) {
+	*capPtr = CapButt;
+	return TCL_OK;
+    }
+    if ((c == 'p') && (strncmp(string, "projecting", length) == 0)) {
+	*capPtr = CapProjecting;
+	return TCL_OK;
+    }
+    if ((c == 'r') && (strncmp(string, "round", length) == 0)) {
+	*capPtr = CapRound;
+	return TCL_OK;
+    }
+
+    Tcl_AppendResult(interp, "bad cap style \"", string,
+	    "\": must be butt, projecting, or round",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfCapStyle --
+ *
+ *	Given a Tk_CapStyle, return the string that corresponds
+ *	to it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfCapStyle(cap)
+    int cap;			/* Cap style for which identifying string
+				 * is desired. */
+{
+    switch (cap) {
+	case CapButt: return "butt";
+	case CapProjecting: return "projecting";
+	case CapRound: return "round";
+    }
+    return "unknown cap style";
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetJustify --
+ *
+ *	Given a string, return the corresponding Tk_Justify.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	justification is stored at *justifyPtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetJustify(interp, string, justifyPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    char *string;		/* String describing a justification style. */
+    Tk_Justify *justifyPtr;	/* Where to store Tk_Justify corresponding
+				 * to string. */
+{
+    int c;
+    size_t length;
+
+    c = string[0];
+    length = strlen(string);
+
+    if ((c == 'l') && (strncmp(string, "left", length) == 0)) {
+	*justifyPtr = TK_JUSTIFY_LEFT;
+	return TCL_OK;
+    }
+    if ((c == 'r') && (strncmp(string, "right", length) == 0)) {
+	*justifyPtr = TK_JUSTIFY_RIGHT;
+	return TCL_OK;
+    }
+    if ((c == 'c') && (strncmp(string, "center", length) == 0)) {
+	*justifyPtr = TK_JUSTIFY_CENTER;
+	return TCL_OK;
+    }
+
+    Tcl_AppendResult(interp, "bad justification \"", string,
+	    "\": must be left, right, or center",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_NameOfJustify --
+ *
+ *	Given a Tk_Justify, return the string that corresponds
+ *	to it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfJustify(justify)
+    Tk_Justify justify;		/* Justification style for which
+				 * identifying string is desired. */
+{
+    switch (justify) {
+	case TK_JUSTIFY_LEFT: return "left";
+	case TK_JUSTIFY_RIGHT: return "right";
+	case TK_JUSTIFY_CENTER: return "center";
+    }
+    return "unknown justification style";
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetUid --
+ *
+ *	Given a string, this procedure returns a unique identifier
+ *	for the string.
+ *
+ * Results:
+ *	This procedure returns a Tk_Uid corresponding to the "string"
+ *	argument.  The Tk_Uid has a string value identical to string
+ *	(strcmp will return 0), but it's guaranteed that any other
+ *	calls to this procedure with a string equal to "string" will
+ *	return exactly the same result (i.e. can compare Tk_Uid
+ *	*values* directly, without having to call strcmp on what they
+ *	point to).
+ *
+ * Side effects:
+ *	New information may be entered into the identifier table.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Uid
+Tk_GetUid(string)
+    char *string;		/* String to convert. */
+{
+    int dummy;
+
+    if (!initialized) {
+	Tcl_InitHashTable(&uidTable, TCL_STRING_KEYS);
+	initialized = 1;
+    }
+    return (Tk_Uid) Tcl_GetHashKey(&uidTable,
+	    Tcl_CreateHashEntry(&uidTable, string, &dummy));
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetScreenMM --
+ *
+ *	Given a string, returns the number of screen millimeters
+ *	corresponding to that string.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	screen distance is stored at *doublePtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetScreenMM(interp, tkwin, string, doublePtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    Tk_Window tkwin;		/* Window whose screen determines conversion
+				 * from centimeters and other absolute
+				 * units. */
+    char *string;		/* String describing a screen distance. */
+    double *doublePtr;		/* Place to store converted result. */
+{
+    char *end;
+    double d;
+
+    d = strtod(string, &end);
+    if (end == string) {
+	error:
+	Tcl_AppendResult(interp, "bad screen distance \"", string,
+		"\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    switch (*end) {
+	case 0:
+	    d /= WidthOfScreen(Tk_Screen(tkwin));
+	    d *= WidthMMOfScreen(Tk_Screen(tkwin));
+	    break;
+	case 'c':
+	    d *= 10;
+	    end++;
+	    break;
+	case 'i':
+	    d *= 25.4;
+	    end++;
+	    break;
+	case 'm':
+	    end++;
+	    break;
+	case 'p':
+	    d *= 25.4/72.0;
+	    end++;
+	    break;
+	default:
+	    goto error;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    if (*end != 0) {
+	goto error;
+    }
+    *doublePtr = d;
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetPixels --
+ *
+ *	Given a string, returns the number of pixels corresponding
+ *	to that string.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the
+ *	rounded pixel distance is stored at *intPtr;  otherwise
+ *	TCL_ERROR is returned and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetPixels(interp, tkwin, string, intPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    Tk_Window tkwin;		/* Window whose screen determines conversion
+				 * from centimeters and other absolute
+				 * units. */
+    char *string;		/* String describing a justification style. */
+    int *intPtr;		/* Place to store converted result. */
+{
+    char *end;
+    double d;
+
+    d = strtod(string, &end);
+    if (end == string) {
+	error:
+	Tcl_AppendResult(interp, "bad screen distance \"", string,
+		"\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    switch (*end) {
+	case 0:
+	    break;
+	case 'c':
+	    d *= 10*WidthOfScreen(Tk_Screen(tkwin));
+	    d /= WidthMMOfScreen(Tk_Screen(tkwin));
+	    end++;
+	    break;
+	case 'i':
+	    d *= 25.4*WidthOfScreen(Tk_Screen(tkwin));
+	    d /= WidthMMOfScreen(Tk_Screen(tkwin));
+	    end++;
+	    break;
+	case 'm':
+	    d *= WidthOfScreen(Tk_Screen(tkwin));
+	    d /= WidthMMOfScreen(Tk_Screen(tkwin));
+	    end++;
+	    break;
+	case 'p':
+	    d *= (25.4/72.0)*WidthOfScreen(Tk_Screen(tkwin));
+	    d /= WidthMMOfScreen(Tk_Screen(tkwin));
+	    end++;
+	    break;
+	default:
+	    goto error;
+    }
+    while ((*end != '\0') && isspace(UCHAR(*end))) {
+	end++;
+    }
+    if (*end != 0) {
+	goto error;
+    }
+    if (d < 0) {
+	*intPtr = (int) (d - 0.5);
+    } else {
+	*intPtr = (int) (d + 0.5);
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkGrab.c b/Tk/generic/tkGrab.c
new file mode 100644
index 0000000..67e3604
--- /dev/null
+++ b/Tk/generic/tkGrab.c
@@ -0,0 +1,1559 @@
+/* 
+ * tkGrab.c --
+ *
+ *	This file provides procedures that implement grabs for Tk.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkGrab.c 1.50 96/02/15 18:53:34
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The grab state machine has four states: ungrabbed, button pressed,
+ * grabbed, and button pressed while grabbed.  In addition, there are
+ * three pieces of grab state information: the current grab window,
+ * the current restrict window, and whether the mouse is captured.
+ *
+ * The current grab window specifies the point in the Tk window
+ * heirarchy above which pointer events will not be reported.  Any
+ * window within the subtree below the grab window will continue to
+ * receive events as normal.  Events outside of the grab tree will be
+ * reported to the grab window.
+ *
+ * If the current restrict window is set, then all pointer events will
+ * be reported only to the restrict window.  The restrict window is
+ * normally set during an automatic button grab.
+ *
+ * The mouse capture state specifies whether the window system will
+ * report mouse events outside of any Tk toplevels.  This is set
+ * during a global grab or an automatic button grab.
+ *
+ * The transitions between different states is given in the following
+ * table:
+ * 
+ * Event\State	U	B	G	GB
+ * -----------	--	--	--	--
+ * FirstPress	B	B	GB	GB
+ * Press	B	B	G	GB
+ * Release	U	B	G	GB
+ * LastRelease	U	U	G	G
+ * Grab		G	G	G	G
+ * Ungrab	U	B	U	U
+ *
+ * Note: U=Ungrabbed, B=Button, G=Grabbed, GB=Grab and Button
+ *
+ * In addition, the following conditions are always true:
+ *
+ * State\Variable	Grab	     Restrict	     Capture
+ * --------------	----	     --------	     -------
+ * Ungrabbed		 0		0		0
+ * Button		 0		1		1
+ * Grabbed		 1		0		b/g
+ * Grab and Button	 1		1		1
+ *
+ * Note: 0 means variable is set to NULL, 1 means variable is set to
+ * some window, b/g means the variable is set to a window if a button
+ * is currently down or a global grab is in effect.
+ *
+ * The final complication to all of this is enter and leave events.
+ * In order to correctly handle all of the various cases, Tk cannot
+ * rely on X enter/leave events in all situations.  The following
+ * describes the correct sequence of enter and leave events that
+ * should be observed by Tk scripts:
+ *
+ * Event(state)		Enter/Leave From -> To
+ * ------------		----------------------
+ * LastRelease(B | GB): restrict window -> anc(grab window, event window)
+ * Grab(U | B): 	event window -> anc(grab window, event window)
+ * Grab(G):		anc(old grab window, event window) ->
+ * 				anc(new grab window, event window)
+ * Grab(GB):		restrict window -> anc(new grab window, event window)
+ * Ungrab(G):		anc(grab window, event window) -> event window
+ * Ungrab(GB):		restrict window -> event window
+ *
+ * Note: anc(x,y) returns the least ancestor of y that is in the tree
+ * of x, terminating at toplevels.
+ */
+
+/*
+ * The following structure is used to pass information to 
+ * GrabRestrictProc from EatGrabEvents.
+ */
+
+typedef struct {
+    Display *display;		/* Display from which to discard events. */
+    unsigned int serial;	/* Serial number with which to compare. */
+} GrabInfo;
+
+/*
+ * Bit definitions for grabFlags field of TkDisplay structures:
+ *
+ * GRAB_GLOBAL			1 means this is a global grab (we grabbed via
+ *				the server so all applications are locked out).
+ *				0 means this is a local grab that affects
+ *				only this application.
+ * GRAB_TEMP_GLOBAL		1 means we've temporarily grabbed via the
+ *				server because a button is down and we want
+ *				to make sure that we get the button-up
+ *				event.  The grab will be released when the
+ *				last mouse button goes up.
+ */
+
+#define GRAB_GLOBAL		1
+#define GRAB_TEMP_GLOBAL	4
+
+/*
+ * The following structure is a Tcl_Event that triggers a change in
+ * the grabWinPtr field of a display.  This event guarantees that
+ * the change occurs in the proper order relative to enter and leave
+ * events.
+ */
+
+typedef struct NewGrabWinEvent {
+    Tcl_Event header;		/* Standard information for all Tcl events. */
+    TkDisplay *dispPtr;		/* Display whose grab window is to change. */
+    Window grabWindow;		/* New grab window for display.  This is
+				 * recorded instead of a (TkWindow *) because
+				 * it will allow us to detect cases where
+				 * the window is destroyed before this event
+				 * is processed. */
+} NewGrabWinEvent;
+
+/*
+ * The following magic value is stored in the "send_event" field of
+ * EnterNotify and LeaveNotify events that are generated in this
+ * file.  This allows us to separate "real" events coming from the
+ * server from those that we generated.
+ */
+
+#define GENERATED_EVENT_MAGIC ((Bool) 0x147321ac)
+
+/*
+ * Mask that selects any of the state bits corresponding to buttons,
+ * plus masks that select individual buttons' bits:
+ */
+
+#define ALL_BUTTONS \
+	(Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask)
+static unsigned int buttonStates[] = {
+    Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask
+};
+
+/*
+ * Forward declarations for procedures declared later in this file:
+ */
+
+static void		EatGrabEvents _ANSI_ARGS_((TkDisplay *dispPtr,
+			    unsigned int serial));
+static TkWindow *	FindCommonAncestor _ANSI_ARGS_((TkWindow *winPtr1,
+			    TkWindow *winPtr2, int *countPtr1,
+			    int *countPtr2));
+static Tk_RestrictAction GrabRestrictProc _ANSI_ARGS_((ClientData arg,
+			    XEvent *eventPtr));
+static int		GrabWinEventProc _ANSI_ARGS_((Tcl_Event *evPtr,
+			    int flags));
+static void		MovePointer2 _ANSI_ARGS_((TkWindow *sourcePtr,
+			    TkWindow *destPtr, int mode, int leaveEvents,
+			    int EnterEvents));
+static void		QueueGrabWindowChange _ANSI_ARGS_((TkDisplay *dispPtr,
+			    TkWindow *grabWinPtr));
+static void		ReleaseButtonGrab _ANSI_ARGS_((TkDisplay *dispPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GrabCmd --
+ *
+ *	This procedure is invoked to process the "grab" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_GrabCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    int globalGrab, c;
+    Tk_Window tkwin;
+    TkDisplay *dispPtr;
+    size_t length;
+
+    if (argc < 2) {
+	badArgs:
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+#ifdef STk_CODE
+		argv[0], " ?:global? window\" or \"", argv[0],
+#else
+		argv[0], " ?-global? window\" or \"", argv[0],
+#endif
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if (c == '.') {
+	if (argc != 2) {
+	    goto badArgs;
+	}
+	tkwin = Tk_NameToWindow(interp, argv[1], (Tk_Window) clientData);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	return Tk_Grab(interp, tkwin, 0);
+    } else if ((c == '-') && (strncmp(argv[1], "-global", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    goto badArgs;
+	}
+	tkwin = Tk_NameToWindow(interp, argv[2], (Tk_Window) clientData);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	return Tk_Grab(interp, tkwin, 1);
+    } else if ((c == 'c') && (strncmp(argv[1], "current", length) == 0)) {
+	if (argc > 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " current ?window?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    tkwin = Tk_NameToWindow(interp, argv[2], (Tk_Window) clientData);
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	    dispPtr = ((TkWindow *) tkwin)->dispPtr;
+	    if (dispPtr->eventualGrabWinPtr != NULL) {
+#ifdef STk_CODE
+		STk_sharp_dot_result(interp, dispPtr->eventualGrabWinPtr->pathName);
+#else
+		interp->result = dispPtr->eventualGrabWinPtr->pathName;
+#endif
+	    }
+#ifdef STk_CODE
+	    else
+	      interp->result = "#f";
+#endif
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "(", (char *) NULL);
+#endif
+	    for (dispPtr = tkDisplayList; dispPtr != NULL;
+		    dispPtr = dispPtr->nextPtr) {
+		if (dispPtr->eventualGrabWinPtr != NULL) {
+#ifdef STk_CODE
+		  Tcl_AppendResult(interp, " #.",
+				   dispPtr->eventualGrabWinPtr->pathName, 
+				   (char *) NULL);
+#else
+		    Tcl_AppendElement(interp,
+			    dispPtr->eventualGrabWinPtr->pathName);
+#endif
+		}
+	    }
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, ")", (char *) NULL);
+#endif
+	}
+	return TCL_OK;
+    } else if ((c == 'r') && (strncmp(argv[1], "release", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " release window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tkwin = Tk_NameToWindow(interp, argv[2], (Tk_Window) clientData);
+	if (tkwin == NULL) {
+	    Tcl_ResetResult(interp);
+	} else {
+	    Tk_Ungrab(tkwin);
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "set", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+#ifdef STk_CODE
+		    argv[0], " set ?:global? window\"", (char *) NULL);
+#else
+		    argv[0], " set ?-global? window\"", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    globalGrab = 0;
+	    tkwin = Tk_NameToWindow(interp, argv[2], (Tk_Window) clientData);
+	} else {
+	    globalGrab = 1;
+	    length = strlen(argv[2]);
+	    if ((strncmp(argv[2], "-global", length) != 0) || (length < 2)) {
+		Tcl_AppendResult(interp, "bad argument \"", argv[2],
+#ifdef STk_CODE
+			"\": must be \"", argv[0], " set ?:global? window\"",
+#else
+			"\": must be \"", argv[0], " set ?-global? window\"",
+#endif
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	    tkwin = Tk_NameToWindow(interp, argv[3], (Tk_Window) clientData);
+	}
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	return Tk_Grab(interp, tkwin, globalGrab);
+    } else if ((c == 's') && (strncmp(argv[1], "status", length) == 0)
+	    && (length >= 2)) {
+	TkWindow *winPtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " status window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2],
+		(Tk_Window) clientData);
+	if (winPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	dispPtr = winPtr->dispPtr;
+#ifdef STk_CODE
+	if (dispPtr->eventualGrabWinPtr != winPtr) {
+	    interp->result = "\"none\"";
+	} else if (dispPtr->grabFlags & GRAB_GLOBAL) {
+	    interp->result = "\"global\"";
+	} else {
+	    interp->result = "\"local\"";
+	}
+#else
+	if (dispPtr->eventualGrabWinPtr != winPtr) {
+	    interp->result = "none";
+	} else if (dispPtr->grabFlags & GRAB_GLOBAL) {
+	    interp->result = "global";
+	} else {
+	    interp->result = "local";
+	}
+#endif
+    } else {
+	Tcl_AppendResult(interp, "unknown or ambiguous option \"", argv[1],
+		"\": must be current, release, set, or status",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Grab --
+ *
+ *	Grabs the pointer and keyboard, so that mouse-related events are
+ *	only reported relative to a given window and its descendants.
+ *
+ * Results:
+ *	A standard Tcl result is returned.  TCL_OK is the normal return
+ *	value;  if the grab could not be set then TCL_ERROR is returned
+ *	and interp->result will hold an error message.
+ *
+ * Side effects:
+ *	Once this call completes successfully, no window outside the
+ *	tree rooted at tkwin will receive pointer- or keyboard-related
+ *	events until the next call to Tk_Ungrab.  If a previous grab was
+ *	in effect within this application, then it is replaced with a new
+ *	one.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_Grab(interp, tkwin, grabGlobal)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Window tkwin;			/* Window on whose behalf the pointer
+					 * is to be grabbed. */
+    int grabGlobal;			/* Non-zero means issue a grab to the
+					 * server so that no other application
+					 * gets mouse or keyboard events.
+					 * Zero means the grab only applies
+					 * within this application. */
+{
+    int grabResult;
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkWindow *winPtr2;
+    unsigned int serial;
+
+    ReleaseButtonGrab(dispPtr);
+    if (dispPtr->eventualGrabWinPtr != NULL) {
+	if ((dispPtr->eventualGrabWinPtr == winPtr)
+		&& (grabGlobal == ((dispPtr->grabFlags & GRAB_GLOBAL) != 0))) {
+	    return TCL_OK;
+	}
+	if (dispPtr->eventualGrabWinPtr->mainPtr != winPtr->mainPtr) {
+	    alreadyGrabbed:
+	    interp->result = "grab failed: another application has grab";
+	    return TCL_ERROR;
+	}
+	Tk_Ungrab((Tk_Window) dispPtr->eventualGrabWinPtr);
+    }
+
+    Tk_MakeWindowExist(tkwin);
+    if (!grabGlobal) {
+	Window dummy1, dummy2;
+	int dummy3, dummy4, dummy5, dummy6;
+	unsigned int state;
+
+	/*
+	 * Local grab.  However, if any mouse buttons are down, turn
+	 * it into a global grab temporarily, until the last button
+	 * goes up.  This does two things: (a) it makes sure that we
+	 * see the button-up event;  and (b) it allows us to track mouse
+	 * motion among all of the windows of this application.
+	 */
+
+	dispPtr->grabFlags &= ~(GRAB_GLOBAL|GRAB_TEMP_GLOBAL);
+	XQueryPointer(dispPtr->display, winPtr->window, &dummy1,
+		&dummy2, &dummy3, &dummy4, &dummy5, &dummy6, &state);
+	if ((state & ALL_BUTTONS) != 0) {
+	    dispPtr->grabFlags |= GRAB_TEMP_GLOBAL;
+	    goto setGlobalGrab;
+	}
+    } else {
+	dispPtr->grabFlags |= GRAB_GLOBAL;
+	setGlobalGrab:
+
+	/*
+	 * Tricky point: must ungrab before grabbing.  This is needed
+	 * in case there is a button auto-grab already in effect.  If
+	 * there is, and the mouse has moved to a different window, X
+	 * won't generate enter and leave events to move the mouse if
+	 * we grab without ungrabbing.
+	 */
+
+	XUngrabPointer(dispPtr->display, CurrentTime);
+	serial = NextRequest(dispPtr->display);
+	grabResult = XGrabPointer(dispPtr->display, winPtr->window,
+		True, ButtonPressMask|ButtonReleaseMask|ButtonMotionMask
+		|PointerMotionMask, GrabModeAsync, GrabModeAsync, None,
+		None, CurrentTime);
+	if (grabResult != 0) {
+	    grabError:
+	    if (grabResult == GrabNotViewable) {
+		interp->result = "grab failed: window not viewable";
+	    } else if (grabResult == AlreadyGrabbed) {
+		goto alreadyGrabbed;
+	    } else if (grabResult == GrabFrozen) {
+		interp->result = "grab failed: keyboard or pointer frozen";
+	    } else if (grabResult == GrabInvalidTime) {
+		interp->result = "grab failed: invalid time";
+	    } else {
+		char msg[100];
+	
+		sprintf(msg, "grab failed for unknown reason (code %d)",
+			grabResult);
+		Tcl_AppendResult(interp, msg, (char *) NULL);
+	    }
+	    return TCL_ERROR;
+	}
+	grabResult = XGrabKeyboard(dispPtr->display, Tk_WindowId(tkwin),
+		False, GrabModeAsync, GrabModeAsync, CurrentTime);
+	if (grabResult != 0) {
+	    XUngrabPointer(dispPtr->display, CurrentTime);
+	    goto grabError;
+	}
+
+	/*
+	 * Eat up any grab-related events generated by the server for the
+	 * grab.  There are several reasons for doing this:
+	 *
+	 * 1. We have to synthesize the events for local grabs anyway, since
+	 *    the server doesn't participate in them.
+	 * 2. The server doesn't always generate the right events for global
+	 *    grabs (e.g. it generates events even if the current window is
+	 *    in the grab tree, which we don't want).
+	 * 3. We want all the grab-related events to be processed immediately
+	 *    (before other events that are already queued); events coming
+	 *    from the server will be in the wrong place, but events we
+	 *    synthesize here will go to the front of the queue.
+	 */
+
+	EatGrabEvents(dispPtr, serial);
+    }
+
+    /*
+     * Synthesize leave events to move the pointer from its current window
+     * up to the lowest ancestor that it has in common with the grab window.
+     * However, only do this if the pointer is outside the grab window's
+     * subtree but inside the grab window's application.
+     */
+
+    if ((dispPtr->serverWinPtr != NULL)
+	    && (dispPtr->serverWinPtr->mainPtr == winPtr->mainPtr)) {
+	for (winPtr2 = dispPtr->serverWinPtr; ; winPtr2 = winPtr2->parentPtr) {
+	    if (winPtr2 == winPtr) {
+		break;
+	    }
+	    if (winPtr2 == NULL) {
+		MovePointer2(dispPtr->serverWinPtr, winPtr, NotifyGrab, 1, 0);
+		break;
+	    }
+	}
+    }
+    QueueGrabWindowChange(dispPtr, winPtr);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Ungrab --
+ *
+ *	Releases a grab on the mouse pointer and keyboard, if there
+ *	is one set on the specified window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Pointer and keyboard events will start being delivered to other
+ *	windows again.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_Ungrab(tkwin)
+    Tk_Window tkwin;			/* Window whose grab should be
+					 * released. */
+{
+    TkDisplay *dispPtr;
+    TkWindow *grabWinPtr, *winPtr;
+    unsigned int serial;
+
+    grabWinPtr = (TkWindow *) tkwin;
+    dispPtr = grabWinPtr->dispPtr;
+    if (grabWinPtr != dispPtr->eventualGrabWinPtr) {
+	return;
+    }
+    ReleaseButtonGrab(dispPtr);
+    QueueGrabWindowChange(dispPtr, (TkWindow *) NULL);
+    if (dispPtr->grabFlags & (GRAB_GLOBAL|GRAB_TEMP_GLOBAL)) {
+	dispPtr->grabFlags &= ~(GRAB_GLOBAL|GRAB_TEMP_GLOBAL);
+	serial = NextRequest(dispPtr->display);
+	XUngrabPointer(dispPtr->display, CurrentTime);
+	XUngrabKeyboard(dispPtr->display, CurrentTime);
+	EatGrabEvents(dispPtr, serial);
+    }
+
+    /*
+     * Generate events to move the pointer back to the window where it
+     * really is.  Some notes:
+     * 1. As with grabs, only do this if the "real" window is not a
+     *    descendant of the grab window, since in this case the pointer
+     *    is already where it's supposed to be.
+     * 2. If the "real" window is in some other application then don't
+     *    generate any events at all, since everything's already been
+     *    reported correctly.
+     * 3. Only generate enter events.  Don't generate leave events,
+     *    because we never told the lower-level windows that they
+     *    had the pointer in the first place.
+     */
+
+    for (winPtr = dispPtr->serverWinPtr; ; winPtr = winPtr->parentPtr) {
+	if (winPtr == grabWinPtr) {
+	    break;
+	}
+	if (winPtr == NULL) {
+	    if ((dispPtr->serverWinPtr == NULL) ||
+		    (dispPtr->serverWinPtr->mainPtr == grabWinPtr->mainPtr)) {
+		MovePointer2(grabWinPtr, dispPtr->serverWinPtr,
+			NotifyUngrab, 0, 1);
+	    }
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReleaseButtonGrab --
+ *
+ *	This procedure is called to release a simulated button grab, if
+ *	there is one in effect.  A button grab is present whenever
+ *	dispPtr->buttonWinPtr is non-NULL or when the GRAB_TEMP_GLOBAL
+ *	flag is set.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	DispPtr->buttonWinPtr is reset to NULL, and enter and leave
+ *	events are generated if necessary to move the pointer from
+ *	the button grab window to its current window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ReleaseButtonGrab(dispPtr)
+    register TkDisplay *dispPtr;	/* Display whose button grab is to be
+					 * released. */
+{
+    unsigned int serial;
+
+    if (dispPtr->buttonWinPtr != NULL) {
+	if (dispPtr->buttonWinPtr != dispPtr->serverWinPtr) {
+	    MovePointer2(dispPtr->buttonWinPtr, dispPtr->serverWinPtr,
+		    NotifyUngrab, 1, 1);
+	}
+	dispPtr->buttonWinPtr = NULL;
+    }
+    if (dispPtr->grabFlags & GRAB_TEMP_GLOBAL) {
+	dispPtr->grabFlags &= ~GRAB_TEMP_GLOBAL;
+	serial = NextRequest(dispPtr->display);
+	XUngrabPointer(dispPtr->display, CurrentTime);
+	XUngrabKeyboard(dispPtr->display, CurrentTime);
+	EatGrabEvents(dispPtr, serial);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkPointerEvent --
+ *
+ *	This procedure is called for each pointer-related event, before
+ *	the event has been processed.  It does various things to make
+ *	grabs work correctly.
+ *
+ * Results:
+ *	If the return value is 1 it means the event should be processed
+ *	(event handlers should be invoked).  If the return value is 0
+ *	it means the event should be ignored in order to make grabs
+ *	work correctly.  In some cases this procedure modifies the event.
+ *
+ * Side effects:
+ *	Grab state information may be updated.  New events may also be
+ *	pushed back onto the event queue to replace or augment the
+ *	one passed in here.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkPointerEvent(eventPtr, winPtr)
+    register XEvent *eventPtr;		/* Pointer to the event. */
+    TkWindow *winPtr;			/* Tk's information for window
+					 * where event was reported. */
+{
+    register TkWindow *winPtr2;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    unsigned int serial;
+    int outsideGrabTree = 0;
+    int ancestorOfGrab = 0;
+    int appGrabbed = 0;			/* Non-zero means event is being
+					 * reported to an application that is
+					 * affected by the grab. */
+
+    /*
+     * Collect information about the grab (if any).
+     */
+
+    switch (TkGrabState(winPtr)) {
+	case TK_GRAB_IN_TREE:
+	    appGrabbed = 1;
+	    break;
+	case TK_GRAB_ANCESTOR:
+	    appGrabbed = 1;
+	    outsideGrabTree = 1;
+	    ancestorOfGrab = 1;
+	    break;
+	case TK_GRAB_EXCLUDED:
+	    appGrabbed = 1;
+	    outsideGrabTree = 1;
+	    break;
+    }
+
+    if ((eventPtr->type == EnterNotify) || (eventPtr->type == LeaveNotify)) {
+	/*
+	 * Keep track of what window the mouse is *really* over.
+	 * Any events that we generate have a special send_event value,
+	 * which is detected below and used to ignore the event for
+	 * purposes of setting serverWinPtr.
+	 */
+
+	if (eventPtr->xcrossing.send_event != GENERATED_EVENT_MAGIC) {
+	    if ((eventPtr->type == LeaveNotify) &&
+		    (winPtr->flags & TK_TOP_LEVEL)) {
+		dispPtr->serverWinPtr = NULL;
+	    } else {
+		dispPtr->serverWinPtr = winPtr;
+	    }
+	}
+
+	/*
+	 * When a grab is active, X continues to report enter and leave
+	 * events for windows outside the tree of the grab window:
+	 * 1. Detect these events and ignore them except for
+	 *    windows above the grab window.
+	 * 2. Allow Enter and Leave events to pass through the
+	 *    windows above the grab window, but never let them
+	 *    end up with the pointer *in* one of those windows.
+	 */
+
+	if (dispPtr->grabWinPtr != NULL) {
+	    if (outsideGrabTree && appGrabbed) {
+		if (!ancestorOfGrab) {
+		    return 0;
+		}
+		switch (eventPtr->xcrossing.detail) {
+		    case NotifyInferior:
+			return 0;
+		    case NotifyAncestor:
+			eventPtr->xcrossing.detail = NotifyVirtual;
+			break;
+		    case NotifyNonlinear:
+			eventPtr->xcrossing.detail = NotifyNonlinearVirtual;
+			break;
+		}
+	    }
+
+	    /*
+	     * Make buttons have the same grab-like behavior inside a grab
+	     * as they do outside a grab:  do this by ignoring enter and
+	     * leave events except for the window in which the button was
+	     * pressed.
+	     */
+
+	    if ((dispPtr->buttonWinPtr != NULL)
+		    && (winPtr != dispPtr->buttonWinPtr)) {
+		return 0;
+	    }
+	}
+	return 1;
+    }
+
+    if (!appGrabbed) {
+	return 1;
+    }
+
+    if (eventPtr->type == MotionNotify) {
+	/*
+	 * When grabs are active, X reports motion events relative to the
+	 * window under the pointer.  Instead, it should report the events
+	 * relative to the window the button went down in, if there is a
+	 * button down.  Otherwise, if the pointer window is outside the
+	 * subtree of the grab window, the events should be reported
+	 * relative to the grab window.  Otherwise, the event should be
+	 * reported to the pointer window.
+	 */
+
+	winPtr2 = winPtr;
+	if (dispPtr->buttonWinPtr != NULL) {
+	    winPtr2 = dispPtr->buttonWinPtr;
+	} else if (outsideGrabTree || (dispPtr->serverWinPtr == NULL)) {
+	    winPtr2 = dispPtr->grabWinPtr;
+	}
+	if (winPtr2 != winPtr) {
+	    TkChangeEventWindow(eventPtr, winPtr2);
+	    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_HEAD);
+	    return 0;
+	}
+	return 1;
+    }
+
+    /*
+     * Process ButtonPress and ButtonRelease events:
+     * 1. Keep track of whether a button is down and what window it
+     *    went down in.
+     * 2. If the first button goes down outside the grab tree, pretend
+     *    it went down in the grab window.  Note: it's important to
+     *    redirect events to the grab window like this in order to make
+     *    things like menus work, where button presses outside the
+     *    grabbed menu need to be seen.  An application can always
+     *    ignore the events if they occur outside its window.
+     * 3. If a button press or release occurs outside the window where
+     *    the first button was pressed, retarget the event so it's reported
+     *    to the window where the first button was pressed.
+     * 4. If the last button is released in a window different than where
+     *    the first button was pressed, generate Enter/Leave events to
+     *    move the mouse from the button window to its current window.
+     * 5. If the grab is set at a time when a button is already down, or
+     *    if the window where the button was pressed was deleted, then
+     *    dispPtr->buttonWinPtr will stay NULL.  Just forget about the
+     *    auto-grab for the button press;  events will go to whatever
+     *    window contains the pointer.  If this window isn't in the grab
+     *    tree then redirect events to the grab window.
+     * 6. When a button is pressed during a local grab, the X server sets
+     *    a grab of its own, since it doesn't even know about our local
+     *    grab.  This causes enter and leave events no longer to be
+     *    generated in the same way as for global grabs.  To eliminate this
+     *    problem, set a temporary global grab when the first button goes
+     *    down and release it when the last button comes up.
+     */
+
+    if ((eventPtr->type == ButtonPress) || (eventPtr->type == ButtonRelease)) {
+	winPtr2 = dispPtr->buttonWinPtr;
+	if (winPtr2 == NULL) {
+	    if (outsideGrabTree) {
+		winPtr2 = dispPtr->grabWinPtr;			/* Note 5. */
+	    } else {
+		winPtr2 = winPtr;				/* Note 5. */
+	    }
+	}
+	if (eventPtr->type == ButtonPress) {
+	    if ((eventPtr->xbutton.state & ALL_BUTTONS) == 0) {
+		if (outsideGrabTree) {
+		    TkChangeEventWindow(eventPtr, dispPtr->grabWinPtr);
+		    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_HEAD);
+		    return 0;					/* Note 2. */
+		}
+		if (!(dispPtr->grabFlags & GRAB_GLOBAL)) {	/* Note 6. */
+		    serial = NextRequest(dispPtr->display);
+		    if (XGrabPointer(dispPtr->display,
+			    dispPtr->grabWinPtr->window, True,
+			    ButtonPressMask|ButtonReleaseMask|ButtonMotionMask,
+			    GrabModeAsync, GrabModeAsync, None, None,
+			    CurrentTime) == 0) {
+			EatGrabEvents(dispPtr, serial);
+			if (XGrabKeyboard(dispPtr->display, winPtr->window,
+				False, GrabModeAsync, GrabModeAsync,
+				CurrentTime) == 0) {
+			    dispPtr->grabFlags |= GRAB_TEMP_GLOBAL;
+			} else {
+			    XUngrabPointer(dispPtr->display, CurrentTime);
+			}
+		    }
+		}
+		dispPtr->buttonWinPtr = winPtr;
+		return 1;
+	    }
+	} else {
+	    if ((eventPtr->xbutton.state & ALL_BUTTONS)
+		    == buttonStates[eventPtr->xbutton.button - Button1]) {
+		ReleaseButtonGrab(dispPtr);			/* Note 4. */
+	    }
+	}
+	if (winPtr2 != winPtr) {
+	    TkChangeEventWindow(eventPtr, winPtr2);
+	    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_HEAD);
+	    return 0;						/* Note 3. */
+	}
+    }
+
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkChangeEventWindow --
+ *
+ *	Given an event and a new window to which the event should be
+ *	retargeted, modify fields of the event so that the event is
+ *	properly retargeted to the new window.
+ *
+ * Results:
+ *	The following fields of eventPtr are modified:  window,
+ *	subwindow, x, y, same_screen.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkChangeEventWindow(eventPtr, winPtr)
+    register XEvent *eventPtr;	/* Event to retarget.  Must have
+				 * type ButtonPress, ButtonRelease, KeyPress,
+				 * KeyRelease, MotionNotify, EnterNotify,
+				 * or LeaveNotify. */
+    TkWindow *winPtr;		/* New target window for event. */
+{
+    int x, y, sameScreen, bd;
+    register TkWindow *childPtr;
+
+    eventPtr->xmotion.window = Tk_WindowId(winPtr);
+    if (eventPtr->xmotion.root ==
+	    RootWindow(winPtr->display, winPtr->screenNum)) {
+	Tk_GetRootCoords((Tk_Window) winPtr, &x, &y);
+	eventPtr->xmotion.x = eventPtr->xmotion.x_root - x;
+	eventPtr->xmotion.y = eventPtr->xmotion.y_root - y;
+	eventPtr->xmotion.subwindow = None;
+	for (childPtr = winPtr->childList; childPtr != NULL;
+		childPtr = childPtr->nextPtr) {
+	    if (childPtr->flags & TK_TOP_LEVEL) {
+		continue;
+	    }
+	    x = eventPtr->xmotion.x - childPtr->changes.x;
+	    y = eventPtr->xmotion.y - childPtr->changes.y;
+	    bd = childPtr->changes.border_width;
+	    if ((x >= -bd) && (y >= -bd)
+		    && (x < (childPtr->changes.width + bd))
+		    && (y < (childPtr->changes.height + bd))) {
+		eventPtr->xmotion.subwindow = childPtr->window;
+	    }
+	}
+	sameScreen = 1;
+    } else {
+	eventPtr->xmotion.x = 0;
+	eventPtr->xmotion.y = 0;
+	eventPtr->xmotion.subwindow = None;
+	sameScreen = 0;
+    }
+    if (eventPtr->type == MotionNotify) {
+	eventPtr->xmotion.same_screen = sameScreen;
+    } else {
+	eventPtr->xbutton.same_screen = sameScreen;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkInOutEvents --
+ *
+ *	This procedure synthesizes EnterNotify and LeaveNotify events
+ *	to correctly transfer the pointer from one window to another.
+ *	It can also be used to generate FocusIn and FocusOut events
+ *	to move the input focus.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Synthesized events may be pushed back onto the event queue.
+ *	The event pointed to by eventPtr is modified.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkInOutEvents(eventPtr, sourcePtr, destPtr, leaveType, enterType, position)
+    XEvent *eventPtr;		/* A template X event.  Must have all fields
+				 * properly set except for type, window,
+				 * subwindow, x, y, detail, and same_screen
+				 * (Not all of these fields are valid for
+				 * FocusIn/FocusOut events;  x_root and y_root
+				 * must be valid for Enter/Leave events, even
+				 * though x and y needn't be valid). */
+    TkWindow *sourcePtr;	/* Window that used to have the pointer or
+				 * focus (NULL means it was not in a window
+				 * managed by this process). */
+    TkWindow *destPtr;		/* Window that is to end up with the pointer
+				 * or focus (NULL means it's not one managed
+				 * by this process). */
+    int leaveType;		/* Type of events to generate for windows
+				 * being left (LeaveNotify or FocusOut).  0
+				 * means don't generate leave events. */
+    int enterType;		/* Type of events to generate for windows
+				 * being entered (EnterNotify or FocusIn).  0
+				 * means don't generate enter events. */
+    Tcl_QueuePosition position;	/* Position at which events are added to
+				 * the system event queue. */
+{
+    register TkWindow *winPtr;
+    int upLevels, downLevels, i, j, focus;
+
+    /*
+     * There are four possible cases to deal with:
+     *
+     * 1. SourcePtr and destPtr are the same.  There's nothing to do in
+     *    this case.
+     * 2. SourcePtr is an ancestor of destPtr in the same top-level
+     *    window.  Must generate events down the window tree from source
+     *    to dest.
+     * 3. DestPtr is an ancestor of sourcePtr in the same top-level
+     *    window.  Must generate events up the window tree from sourcePtr
+     *    to destPtr.
+     * 4. All other cases.  Must first generate events up the window tree
+     *    from sourcePtr to its top-level, then down from destPtr's
+     *    top-level to destPtr. This form is called "non-linear."
+     *
+     * The call to FindCommonAncestor separates these four cases and decides
+     * how many levels up and down events have to be generated for.
+     */
+
+    if (sourcePtr == destPtr) {
+	return;
+    }
+    if ((leaveType == FocusOut) || (enterType == FocusIn)) {
+	focus = 1;
+    } else {
+	focus = 0;
+    }
+    FindCommonAncestor(sourcePtr, destPtr, &upLevels, &downLevels);
+
+    /*
+     * Generate enter/leave events and add them to the grab event queue.
+     */
+
+
+#define QUEUE(w, t, d)					\
+    if (w->window != None) {				\
+	eventPtr->type = t;				\
+	if (focus) {					\
+	    eventPtr->xfocus.window = w->window;	\
+	    eventPtr->xfocus.detail = d;		\
+	} else {					\
+	    eventPtr->xcrossing.detail = d;		\
+	    TkChangeEventWindow(eventPtr, w);		\
+	}						\
+	Tk_QueueWindowEvent(eventPtr, position);	\
+    }
+
+    if (downLevels == 0) {
+    
+	/*
+	 * SourcePtr is an inferior of destPtr.
+	 */
+
+	if (leaveType != 0) {
+	    QUEUE(sourcePtr, leaveType, NotifyAncestor);
+	    for (winPtr = sourcePtr->parentPtr, i = upLevels-1; i > 0;
+		    winPtr = winPtr->parentPtr, i--) {
+		QUEUE(winPtr, leaveType, NotifyVirtual);
+	    }
+	}
+	if ((enterType != 0) && (destPtr != NULL)) {
+	    QUEUE(destPtr, enterType, NotifyInferior);
+	}
+    } else if (upLevels == 0) {
+
+	/*
+	 * DestPtr is an inferior of sourcePtr.
+	 */
+
+	if ((leaveType != 0) && (sourcePtr != NULL)) {
+	    QUEUE(sourcePtr, leaveType, NotifyInferior);
+	}
+	if (enterType != 0) {
+	    for (i = downLevels-1; i > 0; i--) {
+		for (winPtr = destPtr->parentPtr, j = 1; j < i;
+			winPtr = winPtr->parentPtr, j++) {
+		}
+		QUEUE(winPtr, enterType, NotifyVirtual);
+	    }
+	    if (destPtr != NULL) {
+		QUEUE(destPtr, enterType, NotifyAncestor);
+	    }
+	}
+    } else {
+
+	/*
+	 * Non-linear:  neither window is an inferior of the other.
+	 */
+
+	if (leaveType != 0) {
+	    QUEUE(sourcePtr, leaveType, NotifyNonlinear);
+	    for (winPtr = sourcePtr->parentPtr, i = upLevels-1; i > 0;
+		    winPtr = winPtr->parentPtr, i--) {
+		QUEUE(winPtr, leaveType, NotifyNonlinearVirtual);
+	    }
+	}
+	if (enterType != 0) {
+	    for (i = downLevels-1; i > 0; i--) {
+		for (winPtr = destPtr->parentPtr, j = 1; j < i;
+			winPtr = winPtr->parentPtr, j++) {
+		}
+		QUEUE(winPtr, enterType, NotifyNonlinearVirtual);
+	    }
+	    if (destPtr != NULL) {
+		QUEUE(destPtr, enterType, NotifyNonlinear);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MovePointer2 --
+ *
+ *	This procedure synthesizes  EnterNotify and LeaveNotify events
+ *	to correctly transfer the pointer from one window to another.
+ *	It is different from TkInOutEvents in that no template X event
+ *	needs to be supplied;  this procedure generates the template
+ *	event and calls TkInOutEvents.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Synthesized events may be pushed back onto the event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MovePointer2(sourcePtr, destPtr, mode, leaveEvents, enterEvents)
+    TkWindow *sourcePtr;	/* Window currently containing pointer (NULL
+				 * means it's not one managed by this
+				 * process). */
+    TkWindow *destPtr;		/* Window that is to end up containing the
+				 * pointer (NULL means it's not one managed
+				 * by this process). */
+    int mode;			/* Mode for enter/leave events, such as
+				 * NotifyNormal or NotifyUngrab. */
+    int leaveEvents;		/* Non-zero means generate leave events for the
+				 * windows being left.  Zero means don't
+				 * generate leave events. */
+    int enterEvents;		/* Non-zero means generate enter events for the
+				 * windows being entered.  Zero means don't
+				 * generate enter events. */
+{
+    XEvent event;
+    Window dummy1, dummy2;
+    int dummy3, dummy4;
+    TkWindow *winPtr;
+
+    winPtr = sourcePtr;
+    if ((winPtr == NULL) || (winPtr->window == None)) {
+	winPtr = destPtr;
+	if ((winPtr == NULL) || (winPtr->window == None)) {
+	    return;
+	}
+    }
+
+    event.xcrossing.serial = LastKnownRequestProcessed(
+	winPtr->display);
+    event.xcrossing.send_event = GENERATED_EVENT_MAGIC;
+    event.xcrossing.display = winPtr->display;
+    event.xcrossing.root = RootWindow(winPtr->display,
+	    winPtr->screenNum);
+    event.xcrossing.time = TkCurrentTime(winPtr->dispPtr);
+    XQueryPointer(winPtr->display, winPtr->window, &dummy1, &dummy2,
+	    &event.xcrossing.x_root, &event.xcrossing.y_root,
+	    &dummy3, &dummy4, &event.xcrossing.state);
+    event.xcrossing.mode = mode;
+    event.xcrossing.focus = False;
+    TkInOutEvents(&event, sourcePtr, destPtr, (leaveEvents) ? LeaveNotify : 0,
+	    (enterEvents) ? EnterNotify : 0, TCL_QUEUE_MARK);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGrabDeadWindow --
+ *
+ *	This procedure is invoked whenever a window is deleted, so that
+ *	grab-related cleanup can be performed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Various cleanups happen, such as generating events to move the
+ *	pointer back to its "natural" window as if an ungrab had been
+ *	done.  See the code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkGrabDeadWindow(winPtr)
+    register TkWindow *winPtr;		/* Window that is in the process
+					 * of being deleted. */
+{
+    TkDisplay *dispPtr = winPtr->dispPtr;
+
+    if (dispPtr->eventualGrabWinPtr == winPtr) {
+	/*
+	 * Grab window was deleted.  Release the grab.
+	 */
+
+	Tk_Ungrab((Tk_Window) dispPtr->eventualGrabWinPtr);
+    } else if (dispPtr->buttonWinPtr == winPtr) {
+	ReleaseButtonGrab(dispPtr);
+    }
+    if (dispPtr->serverWinPtr == winPtr) {
+	if (winPtr->flags & TK_TOP_LEVEL) {
+	    dispPtr->serverWinPtr = NULL;
+	} else {
+	    dispPtr->serverWinPtr = winPtr->parentPtr;
+	}
+    }
+    if (dispPtr->grabWinPtr == winPtr) {
+	dispPtr->grabWinPtr = NULL;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EatGrabEvents --
+ *
+ *	This procedure is called to eliminate any Enter, Leave,
+ *	FocusIn, or FocusOut events in the event queue for a
+ *	display that have mode NotifyGrab or NotifyUngrab and
+ *	have a serial number no less than a given value and are not
+ *	generated by the grab module.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	DispPtr's display gets sync-ed, and some of the events get
+ *	removed from the Tk event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EatGrabEvents(dispPtr, serial)
+    TkDisplay *dispPtr;		/* Display from which to consume events. */
+    unsigned int serial;	/* Only discard events that have a serial
+				 * number at least this great. */
+{
+    Tk_RestrictProc *oldProc;
+    GrabInfo info;
+    ClientData oldArg, dummy;
+
+    info.display = dispPtr->display;
+    info.serial = serial;
+    XSync(dispPtr->display, False);
+    oldProc = Tk_RestrictEvents(GrabRestrictProc, (ClientData)&info, &oldArg);
+    while (Tcl_DoOneEvent(TCL_DONT_WAIT|TCL_WINDOW_EVENTS)) {
+    }
+    Tk_RestrictEvents(oldProc, oldArg, &dummy);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GrabRestrictProc --
+ *
+ *	A Tk_RestrictProc used by EatGrabEvents to eliminate any
+ *	Enter, Leave, FocusIn, or FocusOut events in the event queue
+ *	for a display that has mode NotifyGrab or NotifyUngrab and
+ *	have a serial number no less than a given value.
+ *
+ * Results:
+ *	Returns either TK_DISCARD_EVENT or TK_DEFER_EVENT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_RestrictAction
+GrabRestrictProc(arg, eventPtr)
+    ClientData arg;
+    XEvent *eventPtr;
+{
+    GrabInfo *info = (GrabInfo *) arg;
+    int mode, diff;
+
+    /*
+     * The diff caculation is trickier than it may seem.  Don't forget
+     * that serial numbers can wrap around, so can't compare the two
+     * serial numbers directly.
+     */
+
+    diff = eventPtr->xany.serial - info->serial;
+    if ((eventPtr->type == EnterNotify)
+	    || (eventPtr->type == LeaveNotify)) {
+	mode = eventPtr->xcrossing.mode;
+    } else if ((eventPtr->type == FocusIn)
+	    || (eventPtr->type == FocusOut)) {
+	mode = eventPtr->xfocus.mode;
+    } else {
+	mode = NotifyNormal;
+    }
+    if ((info->display != eventPtr->xany.display) || (mode == NotifyNormal)
+	    || (diff < 0)) {
+	return TK_DEFER_EVENT;
+    } else {
+	return TK_DISCARD_EVENT;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * QueueGrabWindowChange --
+ *
+ *	This procedure queues a special event in the Tcl event queue,
+ *	which will cause the "grabWinPtr" field for the display to get
+ *	modified when the event is processed.  This is needed to make
+ *	sure that the grab window changes at the proper time relative
+ *	to grab-related enter and leave events that are also in the
+ *	queue.  In particular, this approach works even when multiple
+ *	grabs and ungrabs happen back-to-back.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	DispPtr->grabWinPtr will be modified later (by GrabWinEventProc)
+ *	when the event is removed from the grab event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+QueueGrabWindowChange(dispPtr, grabWinPtr)
+    TkDisplay *dispPtr;		/* Display on which to change the grab
+				 * window. */
+    TkWindow *grabWinPtr;	/* Window that is to become the new grab
+				 * window (may be NULL). */
+{
+    NewGrabWinEvent *grabEvPtr;
+
+    grabEvPtr = (NewGrabWinEvent *) ckalloc(sizeof(NewGrabWinEvent));
+    grabEvPtr->header.proc = GrabWinEventProc;
+    grabEvPtr->dispPtr = dispPtr;
+    if (grabWinPtr == NULL) {
+	grabEvPtr->grabWindow = None;
+    } else {
+	grabEvPtr->grabWindow = grabWinPtr->window;
+    }
+    Tcl_QueueEvent(&grabEvPtr->header, TCL_QUEUE_MARK);
+    dispPtr->eventualGrabWinPtr = grabWinPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GrabWinEventProc --
+ *
+ *	This procedure is invoked as a handler for Tcl_Events of type
+ *	NewGrabWinEvent.  It updates the current grab window field in
+ *	a display.
+ *
+ * Results:
+ *	Returns 1 if the event was processed, 0 if it should be deferred
+ *	for processing later.
+ *
+ * Side effects:
+ *	The grabWinPtr field is modified in the display associated with
+ *	the event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+GrabWinEventProc(evPtr, flags)
+    Tcl_Event *evPtr;		/* Event of type NewGrabWinEvent. */
+    int flags;			/* Flags argument to Tk_DoOneEvent: indicates
+				 * what kinds of events are being processed
+				 * right now. */
+{
+    NewGrabWinEvent *grabEvPtr = (NewGrabWinEvent *) evPtr;
+
+    grabEvPtr->dispPtr->grabWinPtr = (TkWindow *) Tk_IdToWindow(
+	    grabEvPtr->dispPtr->display, grabEvPtr->grabWindow);
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindCommonAncestor --
+ *
+ *	Given two windows, this procedure finds their least common
+ *	ancestor and also computes how many levels up this ancestor
+ *	is from each of the original windows.
+ *
+ * Results:
+ *	If the windows are in different applications or top-level
+ *	windows, then NULL is returned and *countPtr1 and *countPtr2
+ *	are set to the depths of the two windows in their respective
+ *	top-level windows (1 means the window is a top-level, 2 means
+ *	its parent is a top-level, and so on).  Otherwise, the return
+ *	value is a pointer to the common ancestor and the counts are
+ *	set to the distance of winPtr1 and winPtr2 from this ancestor
+ *	(1 means they're children, 2 means grand-children, etc.).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkWindow *
+FindCommonAncestor(winPtr1, winPtr2, countPtr1, countPtr2)
+    TkWindow *winPtr1;		/* First window.   May be NULL. */
+    TkWindow *winPtr2;		/* Second window.  May be NULL. */
+    int *countPtr1;		/* Store nesting level of winPtr1 within
+				 * common ancestor here. */
+    int *countPtr2;		/* Store nesting level of winPtr2 within
+				 * common ancestor here. */
+{
+    register TkWindow *winPtr;
+    TkWindow *ancestorPtr;
+    int count1, count2, i;
+
+    /*
+     * Mark winPtr1 and all of its ancestors with a special flag bit.
+     */
+
+    if (winPtr1 != NULL) {
+	for (winPtr = winPtr1; winPtr != NULL; winPtr = winPtr->parentPtr) {
+	    winPtr->flags |= TK_GRAB_FLAG;
+	    if (winPtr->flags & TK_TOP_LEVEL) {
+		break;
+	    }
+	}
+    }
+
+    /*
+     * Search upwards from winPtr2 until an ancestor of winPtr1 is
+     * found or a top-level window is reached.
+     */
+
+    winPtr = winPtr2;
+    count2 = 0;
+    ancestorPtr = NULL;
+    if (winPtr2 != NULL) {
+	for (; winPtr != NULL; count2++, winPtr = winPtr->parentPtr) {
+	    if (winPtr->flags & TK_GRAB_FLAG) {
+		ancestorPtr = winPtr;
+		break;
+	    }
+	    if (winPtr->flags & TK_TOP_LEVEL)  {
+		count2++;
+		break;
+	    }
+	}
+    }
+
+    /*
+     * Search upwards from winPtr1 again, clearing the flag bits and
+     * remembering how many levels up we had to go.
+     */
+
+    if (winPtr1 == NULL) {
+	count1 = 0;
+    } else {
+	count1 = -1;
+	for (i = 0, winPtr = winPtr1; winPtr != NULL;
+		i++, winPtr = winPtr->parentPtr) {
+	    winPtr->flags &= ~TK_GRAB_FLAG;
+	    if (winPtr == ancestorPtr) {
+		count1 = i;
+	    }
+	    if (winPtr->flags & TK_TOP_LEVEL) {
+		if (count1 == -1) {
+		    count1 = i+1;
+		}
+		break;
+	    }
+	}
+    }
+
+    *countPtr1 = count1;
+    *countPtr2 = count2;
+    return ancestorPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkPositionInTree --
+ *
+ *	Compute where the given window is relative to a particular
+ *	subtree of the window hierarchy.
+ *
+ * Results:
+ *
+ *	Returns TK_GRAB_IN_TREE if the window is contained in the
+ *	subtree.  Returns TK_GRAB_ANCESTOR if the window is an
+ *	ancestor of the subtree, in the same toplevel.  Otherwise
+ *	it returns TK_GRAB_EXCLUDED.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkPositionInTree(winPtr, treePtr)
+    TkWindow *winPtr;		/* Window to be checked. */
+    TkWindow *treePtr;		/* Root of tree to compare against. */
+{
+    TkWindow *winPtr2;
+
+    for (winPtr2 = winPtr; winPtr2 != treePtr;
+	   winPtr2 = winPtr2->parentPtr) {
+	if (winPtr2 == NULL) {
+	    for (winPtr2 = treePtr; winPtr2 != NULL;
+		    winPtr2 = winPtr2->parentPtr) {
+		if (winPtr2 == winPtr) {
+		    return TK_GRAB_ANCESTOR;
+		}
+		if (winPtr2->flags & TK_TOP_LEVEL) {
+		    break;
+		}
+	    }
+	    return TK_GRAB_EXCLUDED;
+	}
+    }
+    return TK_GRAB_IN_TREE;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGrabState --
+ *
+ *	Given a window, this procedure returns a value that indicates
+ *	the grab state of the application relative to the window.
+ *
+ * Results:
+ *	The return value is one of three things:
+ *	    TK_GRAB_NONE -	no grab is in effect.
+ *	    TK_GRAB_IN_TREE -   there is a grab in effect, and winPtr
+ *				is in the grabbed subtree.
+ *	    TK_GRAB_ANCESTOR -  there is a grab in effect;  winPtr is
+ *				an ancestor of the grabbed window, in
+ *				the same toplevel.
+ *	    TK_GRAB_EXCLUDED -	there is a grab in effect; winPtr is
+ *				outside the tree of the grab and is not
+ *				an ancestor of the grabbed window in the
+ *				same toplevel.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkGrabState(winPtr)
+    TkWindow *winPtr;		/* Window for which grab information is
+				 * needed. */
+{
+    TkWindow *grabWinPtr = winPtr->dispPtr->grabWinPtr;
+
+    if (grabWinPtr == NULL) {
+	return TK_GRAB_NONE;
+    }
+    if ((winPtr->mainPtr != grabWinPtr->mainPtr)
+	    && !(winPtr->dispPtr->grabFlags & GRAB_GLOBAL)) {
+	return TK_GRAB_NONE;
+    }
+
+    return TkPositionInTree(winPtr, grabWinPtr);
+}
diff --git a/Tk/generic/tkGrid.c b/Tk/generic/tkGrid.c
new file mode 100644
index 0000000..bd7cd3e
--- /dev/null
+++ b/Tk/generic/tkGrid.c
@@ -0,0 +1,2052 @@
+/* 
+ * tkGrid.c --
+ *
+ *	Grid based geometry manager.
+ *
+ * Copyright (c) 1996 by Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ *
+ * SCCS: @(#) tkGrid.c 1.21 96/02/21 10:50:58
+ */
+
+#include "tkInt.h"
+
+/*
+ * LayoutInfo structure.  We shouldn't be using hard-wired limits!
+ */
+
+#define MAXGRIDSIZE 128
+#ifndef MAXINT
+#  define MAXINT 0x7fff
+#endif
+#define MINWEIGHT	0.0001		/* weight totals < this are considered to be zero */
+
+/*
+ * Special characters to support relative layouts
+ */
+
+#define REL_SKIP	'x'	/* skip this column */
+#define REL_HORIZ	'-'	/* extend previous widget horizontally */
+#define REL_VERT	'^'	/* extend previous widget verticallly */
+
+/*
+ *  structure to hold collected constraints temporarily:
+ *  needs to use a "Constrain" thingy
+ */
+
+typedef struct {
+    int width, height;		/* number of cells horizontally, vertically */
+    int lastRow;			/* last cell with a window in it */
+    int minWidth[MAXGRIDSIZE];	/* largest minWidth in each column */
+    int minHeight[MAXGRIDSIZE];	/* largest minHeight in each row */
+    double weightX[MAXGRIDSIZE];	/* largest weight in each column */
+    double weightY[MAXGRIDSIZE];	/* largest weight in each row */
+} LayoutInfo;
+
+/* structure for holding row and column constraints */
+
+typedef struct {
+    int used;		/* maximum element used */
+    int max;		/* maximum element allocated */
+    int *minsize;		/* array of minimum column/row sizes */
+    double *weight;	/* array of column/row weights */
+} Constrain;
+
+/* For each window that the gridbag cares about (either because
+ * the window is managed by the gridbag or because the window
+ * has slaves that are managed by the gridbag), there is a
+ * structure of the following type:
+ */
+
+typedef struct GridBag {
+    Tk_Window tkwin;		/* Tk token for window.  NULL means that
+				 * the window has been deleted, but the
+				 * packet hasn't had a chance to clean up
+				 * yet because the structure is still in
+				 * use. */
+    struct GridBag *masterPtr;	/* Master window within which this window
+				 * is managed (NULL means this window
+				 * isn't managed by the gridbag). */
+    struct GridBag *nextPtr;	/* Next window managed within same
+				 * parent.  List is priority-ordered:
+				 * first on list gets layed out first. */
+    struct GridBag *slavePtr;	/* First in list of slaves managed
+				 * inside this window (NULL means
+				 * no gridbag slaves). */
+
+    int gridColumn, gridRow;
+    int gridWidth, gridHeight;
+
+    int tempX, tempY;
+    int tempWidth, tempHeight;
+
+    double weightX, weightY;
+    int minWidth, minHeight;
+
+    int padX, padY;		/* Total additional pixels to leave around the
+				 * window (half of this space is left on each
+				 * side).  This is space *outside* the window:
+				 * we'll allocate extra space in frame but
+				 * won't enlarge window). */
+    int iPadX, iPadY;		/* Total extra pixels to allocate inside the
+				 * window (half this amount will appear on
+				 * each side). */
+    int startx, starty;		/* starting location of layout */
+
+    int doubleBw;		/* Twice the window's last known border
+				 * width.  If this changes, the window
+				 * must be re-arranged within its parent. */
+    int *abortPtr;		/* If non-NULL, it means that there is a nested
+				 * call to ArrangeGrid already working on
+				 * this window.  *abortPtr may be set to 1 to
+				 * abort that nested call.  This happens, for
+				 * example, if tkwin or any of its slaves
+				 * is deleted. */
+    int flags;			/* Miscellaneous flags;  see below
+				 * for definitions. */
+
+    Constrain row, column;		/* column and row constraints */
+
+    int valid;
+    LayoutInfo *layoutCache;
+} GridBag;
+
+/*
+ * Flag values for GridBag structures:
+ *
+ * REQUESTED_RELAYOUT:		1 means a Tk_DoWhenIdle request
+ *				has already been made to re-arrange
+ *				all the slaves of this window.
+ * STICK_NORTH  		1 means this window sticks to the edgth of its
+ * STICK_EAST			cavity
+ * STICK_SOUTH
+ * STICK_WEST
+ *
+ * DONT_PROPAGATE:		1 means don't set this window's requested
+ *				size.  0 means if this window is a master
+ *				then Tk will set its requested size to fit
+ *				the needs of its slaves.
+ */
+
+#define STICK_NORTH		1
+#define STICK_EAST		2
+#define STICK_SOUTH		4
+#define STICK_WEST		8
+#define STICK_ALL		(STICK_NORTH|STICK_EAST|STICK_SOUTH|STICK_WEST)
+
+#define REQUESTED_RELAYOUT	16
+#define DONT_PROPAGATE		32
+
+/*
+ * Hash table used to map from Tk_Window tokens to corresponding
+ * GridBag structures:
+ */
+
+static Tcl_HashTable gridBagHashTable;
+
+/*
+ * Have statics in this module been initialized?
+ */
+
+static initialized = 0;
+
+/*
+ * Prototypes for procedures used only in this file:
+ */
+
+static void		ArrangeGrid _ANSI_ARGS_((ClientData clientData));
+static int		ConfigureSlaves _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, int argc, char *argv[]));
+static void		DestroyGridBag _ANSI_ARGS_((char *memPtr));
+static void		GetCachedLayoutInfo _ANSI_ARGS_((GridBag *masterPtr));
+static GridBag *	GetGridBag _ANSI_ARGS_((Tk_Window tkwin));
+static void		GetLayoutInfo _ANSI_ARGS_((GridBag *masterPtr,
+			    LayoutInfo *r));
+static void		GetMinSize _ANSI_ARGS_((GridBag *masterPtr,
+			    LayoutInfo *info, int *minw, int *minh));
+static void		GridBagStructureProc _ANSI_ARGS_((
+			    ClientData clientData, XEvent *eventPtr));
+static void		GridLostSlaveProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		GridReqProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		GridBagStructureProc _ANSI_ARGS_((
+			    ClientData clientData, XEvent *eventPtr));
+static void		StickyToString _ANSI_ARGS_((int flags, char *result));
+static int		StringToSticky _ANSI_ARGS_((char *string));
+static void		Unlink _ANSI_ARGS_((GridBag *gridPtr));
+
+static Tk_GeomMgr gridMgrType = {
+    "grid",			/* name */
+    GridReqProc,		/* requestProc */
+    GridLostSlaveProc,		/* lostSlaveProc */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GridCmd --
+ *
+ *	This procedure is invoked to process the "grid" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GridCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    size_t length;
+    char c;
+  
+    if ((argc >= 2) && (argv[1][0] == '.')) {
+	return ConfigureSlaves(interp, tkwin, argc-1, argv+1);
+    }
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option arg ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+  
+    if ((c == 'b') && (strncmp(argv[1], "bbox", length) == 0)) {
+	Tk_Window master;
+	GridBag *masterPtr;
+	int row, column;
+	int i, x, y;
+	int prevX, prevY;
+	int width, height;
+	double weight;
+	int diff;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "Wrong number of arguments: ",
+		    "must be \"",argv[0],
+		    " bbox <master> <column> <row>\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+        
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tcl_GetInt(interp, argv[3], &column) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (Tcl_GetInt(interp, argv[4], &row) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetGridBag(master);
+
+	/* make sure the grid is up to snuff */
+
+	while ((masterPtr->flags & REQUESTED_RELAYOUT)) {
+	    Tk_CancelIdleCall(ArrangeGrid, (ClientData) masterPtr);
+	    ArrangeGrid((ClientData) masterPtr);
+	}
+	GetCachedLayoutInfo(masterPtr);
+
+	if (row < 0 || column < 0) {
+	    *interp->result = '\0';
+	    return TCL_OK;
+	}
+	if (column >= masterPtr->layoutCache->width ||
+		row >= masterPtr->layoutCache->height) {
+	    *interp->result = '\0';
+	    return TCL_OK;
+	}
+	x = masterPtr->startx;
+	y = masterPtr->starty;
+	GetMinSize(masterPtr, masterPtr->layoutCache, &width, &height);
+
+	diff = Tk_Width(masterPtr->tkwin) - (width + masterPtr->iPadX);
+	for (weight=0.0, i=0; i<masterPtr->layoutCache->width; i++)
+	    weight += masterPtr->layoutCache->weightX[i];
+
+	prevX = 0;			/* Needed to prevent gcc warning. */
+	for (i=0; i<=column; i++) {
+	    int dx = 0;
+	    if (weight > MINWEIGHT) {
+		dx = (int)((((double)diff) * masterPtr->layoutCache->weightX[i])
+			/ weight);
+	    }
+	    prevX = x;
+	    x += masterPtr->layoutCache->minWidth[i] + dx;
+	}
+	diff = Tk_Height(masterPtr->tkwin) - (height + masterPtr->iPadY);
+	for (weight=0.0, i=0; i<masterPtr->layoutCache->width; i++) {
+	    weight += masterPtr->layoutCache->weightY[i];
+	}
+	prevY = 0;			/* Needed to prevent gcc warning. */
+	for (i=0; i<=row; i++) {
+	    int dy = 0;
+	    if (weight > MINWEIGHT) {
+		dy = (int)((((double)diff) * masterPtr->layoutCache->weightY[i])
+			/ weight);
+	    }
+	    prevY = y;
+	    y += masterPtr->layoutCache->minHeight[i] + dy;
+	}
+	sprintf(interp->result,"%d %d %d %d",prevX,prevY,x - prevX,y - prevY);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)) {
+	if (argv[2][0] != '.') {
+	    Tcl_AppendResult(interp, "bad argument \"", argv[2],
+		    "\": must be name of window", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return ConfigureSlaves(interp, tkwin, argc-2, argv+2);
+    } else if ((c == 'f') && (strncmp(argv[1], "forget", length) == 0)) {
+	Tk_Window slave;
+	GridBag *slavePtr;
+	int i;
+    
+	for (i = 2; i < argc; i++) {
+	    slave = Tk_NameToWindow(interp, argv[i], tkwin);
+	    if (slave == NULL) {
+		return TCL_ERROR;
+	    }
+	    slavePtr = GetGridBag(slave);
+	    if (slavePtr->masterPtr != NULL) {
+		Tk_ManageGeometry(slave, (Tk_GeomMgr *) NULL,
+			(ClientData) NULL);
+		Unlink(slavePtr);
+		Tk_UnmapWindow(slavePtr->tkwin);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "info", length) == 0)) {
+	register GridBag *slavePtr;
+	Tk_Window slave;
+	char buffer[64];
+    
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " info window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	slave = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (slave == NULL) {
+	    return TCL_ERROR;
+	}
+	slavePtr = GetGridBag(slave);
+	if (slavePtr->masterPtr == NULL) {
+	    interp->result[0] = '\0';
+	    return TCL_OK;
+	}
+    
+	Tcl_AppendElement(interp, "-in");
+	Tcl_AppendElement(interp, Tk_PathName(slavePtr->masterPtr->tkwin));
+	sprintf(buffer, " -column %d -row %d -columnspan %d -rowspan %d",
+		slavePtr->gridColumn, slavePtr->gridRow,
+		slavePtr->gridWidth, slavePtr->gridHeight);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	sprintf(buffer, " -ipadx %d -ipady %d -padx %d -pady %d",
+		slavePtr->iPadX/2, slavePtr->iPadY/2, slavePtr->padX/2,
+		slavePtr->padY/2);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	StickyToString(slavePtr->flags,buffer);
+	Tcl_AppendResult(interp, " -sticky ", buffer, (char *) NULL);
+/*
+	sprintf(buffer, " -weightx %.2f -weighty %.2f",
+		slavePtr->weightX, slavePtr->weightY);
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+*/
+    } else if ((c == 'p') && (strncmp(argv[1], "propagate", length) == 0)) {
+	Tk_Window master;
+	GridBag *masterPtr;
+	int propagate;
+    
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " propagate window ?boolean?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetGridBag(master);
+	if (argc == 3) {
+#ifdef STk_CODE
+	    interp->result = (masterPtr->flags & DONT_PROPAGATE) ? "#f" : "#t";
+#else
+	    interp->result = (masterPtr->flags & DONT_PROPAGATE) ? "0" : "1";
+#endif
+	    return TCL_OK;
+	}
+	if (Tcl_GetBoolean(interp, argv[3], &propagate) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (propagate) {
+	    masterPtr->flags &= ~DONT_PROPAGATE;
+      
+	    /*
+	     * Re-arrange the master to allow new geometry information to
+	     * propagate upwards to the master\'s master.
+	     */
+      
+	    if (masterPtr->abortPtr != NULL) {
+		*masterPtr->abortPtr = 1;
+	    }
+	    masterPtr->valid = 0;
+	    if (!(masterPtr->flags & REQUESTED_RELAYOUT)) {
+		masterPtr->flags |= REQUESTED_RELAYOUT;
+		Tk_DoWhenIdle(ArrangeGrid, (ClientData) masterPtr);
+	    }
+	} else {
+	    masterPtr->flags |= DONT_PROPAGATE;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "size", length) == 0)) {
+	Tk_Window master;
+	GridBag *masterPtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " size window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL)
+	    return TCL_ERROR;
+	masterPtr = GetGridBag(master);
+	GetCachedLayoutInfo(masterPtr);
+
+	sprintf(interp->result, "%d %d", masterPtr->layoutCache->width,
+		masterPtr->layoutCache->height);
+    } else if ((c == 's') && (strncmp(argv[1], "slaves", length) == 0)) {
+	Tk_Window master;
+	GridBag *masterPtr, *slavePtr;
+	int i, value;
+	int row = -1, column = -1;
+ 
+	if (argc < 3 || argc%2 ==0) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " slaves window ?-option value...?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	for (i=3; i<argc; i+=2) {
+	    if (*argv[i] != '-' || (length = strlen(argv[i])) < 2) {
+		Tcl_AppendResult(interp, "Invalid args: should be \"",
+			argv[0], " slaves window ?-option value...?\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (Tcl_GetInt(interp, argv[i+1], &value) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (value < 0) {
+		Tcl_AppendResult(interp, argv[i],
+			" is an invalid value: should NOT be < 0",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (strncmp(argv[i], "-column", length) == 0) {
+		column = value;
+	    } else if (strncmp(argv[i], "-row", length) == 0) {
+		row = value;
+	    } else {
+		Tcl_AppendResult(interp, argv[i],
+			" is an invalid option: should be \"",
+			"-row, -column\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetGridBag(master);
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, "(", NULL);
+#endif
+	for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					     slavePtr = slavePtr->nextPtr) {
+	    if (column>=0 && (slavePtr->gridColumn > column
+		    || slavePtr->gridColumn+slavePtr->gridWidth-1 < column)) {
+		continue;
+	    }
+	    if (row>=0 && (slavePtr->gridRow > row ||
+		    slavePtr->gridRow+slavePtr->gridHeight-1 < row)) {
+		continue;
+	    }
+	    Tcl_AppendElement(interp, Tk_PathName(slavePtr->tkwin));
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, ")", NULL);
+#endif
+
+    /*
+     * grid columnconfigure <master> <index> -option
+     * grid columnconfigure <master> <index> -option value -option value
+     * grid rowconfigure <master> <index> -option
+     * grid rowconfigure <master> <index> -option value -option value
+     */
+   
+    } else if(((c=='c') && (strncmp(argv[1], "columnconfigure", length) == 0)) ||
+            ((c=='r') && (strncmp(argv[1], "rowconfigure", length) == 0))) {
+	Tk_Window master;
+	GridBag *masterPtr;
+	Constrain *con;
+	int index, i, size;
+	double weight;
+
+	if (argc != 5 && (argc < 5 || argc%2 == 1)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " ", argv[1], " master index ?-option value...?\"",
+		    (char *)NULL);
+	    return TCL_ERROR;
+	}
+
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetGridBag(master);
+	con = (c=='c') ? &(masterPtr->column) : &(masterPtr->row);
+
+	if (Tcl_GetInt(interp, argv[3], &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (index < 0 || index >= MAXGRIDSIZE) {
+	    Tcl_AppendResult(interp, argv[3], " is out of range",
+		    (char *)NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 *  make sure the row/column constraint array is allocated.  This
+	 *  Should be changed to avoid hard-wired limits.  We'll wimp out
+	 *  for now.
+	 */
+
+	if (con->max == 0) {
+	    unsigned int size;
+	    con->max = MAXGRIDSIZE;
+	    con->used = 0;
+
+	    size = MAXGRIDSIZE * sizeof(con->minsize[0]);
+	    con->minsize = (int *) ckalloc(size);
+	    memset(con->minsize, 0, size);
+
+	    size = MAXGRIDSIZE * sizeof(con->weight[0]);
+	    con->weight = (double *) ckalloc(size);
+	    memset(con->weight, 0, size);
+	}
+
+	for (i=4; i<argc; i+=2) {
+	    if (*argv[i] != '-' || (length = strlen(argv[i])) < 2) {
+		Tcl_AppendResult(interp, "Invalid arg: \"",
+			argv[0], "\" expecting -minsize or -weight",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (strncmp(argv[i], "-minsize", length) == 0) {
+		if (argc == 5) {
+		    size = con->used <= index ?  0 : con->minsize[index];
+		    sprintf(interp->result, "%d", size);
+		} else if (Tk_GetPixels(interp, master, argv[i+1], &size)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		} else {
+		    con->minsize[index] = size;
+		    if (size > 0 && index >= con->used) 
+			con->used = index+1;
+		    else if (size == 0 && index+1 == con->used) {
+			while (index >= 0  && (con->minsize[index]==0) &&
+				(con->weight[index] == 0.0)) {
+			    index--;
+			}
+			con->used = index + 1;
+		    }
+		}
+	    } else if (strncmp(argv[i], "-weight", length) == 0) {
+		if (argc == 5) {
+		    weight = con->used <= index ?  0 : con->weight[index];
+		    sprintf(interp->result, "%.2f", weight);
+		} else if (Tcl_GetDouble(interp, argv[i+1], &weight) != TCL_OK) {
+		    return TCL_ERROR;
+		} else {
+		    con->weight[index] = weight;
+		    if (weight > MINWEIGHT && index >= con->used) 
+			con->used = index+1;
+		    else if (weight == 0.0 && index+1 == con->used) {
+			while (index >= 0 && (con->minsize[index]==0) &&
+				(con->weight[index] == 0.0)) {
+			    index--;
+			}
+			con->used = index + 1;
+		    }
+		}
+	    } else {
+		Tcl_AppendResult(interp, argv[i],
+			" is an invalid option: should be \"",
+			"-minsize, -weight\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	/* if we changed a property, re-arrange the table */
+
+	if (argc != 5) {
+	    if (masterPtr->abortPtr != NULL) {
+		*masterPtr->abortPtr = 1;
+	    }
+	    masterPtr->valid = 0;
+	    if (!(masterPtr->flags & REQUESTED_RELAYOUT)) {
+		masterPtr->flags |= REQUESTED_RELAYOUT;
+		Tk_DoWhenIdle(ArrangeGrid, (ClientData) masterPtr);
+	    }
+	}
+    } else if((c == 'l') && (strncmp(argv[1], "location", length) == 0)) {
+	Tk_Window master;
+	GridBag *masterPtr;
+	int x, y, i, j, w, h;
+	int width, height;
+	double weight;
+	int diff;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " location master x y\"", (char *)NULL);
+	    return TCL_ERROR;
+	}
+
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetGridBag(master);
+
+	if (Tk_GetPixels(interp, master, argv[3], &x) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (Tk_GetPixels(interp, master, argv[4], &y) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	/* make sure the grid is up to snuff */
+
+	while ((masterPtr->flags & REQUESTED_RELAYOUT)) {
+	    Tk_CancelIdleCall(ArrangeGrid, (ClientData) masterPtr);
+	    ArrangeGrid((ClientData) masterPtr);
+	}
+	GetCachedLayoutInfo(masterPtr);
+	GetMinSize(masterPtr, masterPtr->layoutCache, &width, &height);
+
+	diff = Tk_Width(masterPtr->tkwin) - (width + masterPtr->iPadX);
+	for (weight=0.0, i=0; i<masterPtr->layoutCache->width; i++) {
+	    weight += masterPtr->layoutCache->weightX[i];
+	}
+	w = masterPtr->startx;
+	if (w > x) {
+	    i = -1;
+	} else {
+	    for (i=0; i<masterPtr->layoutCache->width; i++) {
+		int dx = 0;
+		if (weight > MINWEIGHT) {
+		    dx = (int)((((double)diff) * masterPtr->layoutCache->weightX[i])
+			    / weight);
+		    }
+		w += masterPtr->layoutCache->minWidth[i] + dx;
+		if (w > x) {
+		    break;
+		}
+	    }
+	}
+
+	diff = Tk_Height(masterPtr->tkwin) - (height + masterPtr->iPadY);
+	for (weight=0.0, j = 0; j < masterPtr->layoutCache->height; j++)
+	    weight += masterPtr->layoutCache->weightY[j];
+	h = masterPtr->starty;
+	if (h > y) {
+	    j = -1;
+	} else {
+	    for (j=0; j<masterPtr->layoutCache->height; j++) {
+		int dy = 0;
+		if (weight > MINWEIGHT) {
+		    dy = (int)((((double)diff) * masterPtr->layoutCache->weightY[j])
+			    / weight);
+		}
+		h += masterPtr->layoutCache->minHeight[j] + dy;
+		if (h > y) {
+		    break;
+		}
+	    }
+	}
+	sprintf(interp->result, "%d %d", i, j);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\":  must be bbox, columnconfigure, configure, forget, info, ",
+		"location, propagate, rowconfigure, size, or slaves",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GridReqProc --
+ *
+ *	This procedure is invoked by Tk_GeometryRequest for
+ *	windows managed by the gridbag.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for tkwin, and all its managed siblings, to
+ *	be re-arranged at the next idle point.
+ *
+ *--------------------------------------------------------------
+ */
+
+/* ARGSUSED */
+static void
+GridReqProc(clientData, tkwin)
+    ClientData clientData;	/* GridBag's information about
+				 * window that got new preferred
+				 * geometry.  */
+    Tk_Window tkwin;		/* Other Tk-related information
+				 * about the window. */
+{
+    register GridBag *gridPtr = (GridBag *) clientData;
+
+    gridPtr = gridPtr->masterPtr;
+    gridPtr->valid = 0;
+    if (!(gridPtr->flags & REQUESTED_RELAYOUT)) {
+	gridPtr->flags |= REQUESTED_RELAYOUT;
+	Tk_DoWhenIdle(ArrangeGrid, (ClientData) gridPtr);
+    }
+}
+
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GridLostSlaveProc --
+ *
+ *	This procedure is invoked by Tk whenever some other geometry
+ *	claims control over a slave that used to be managed by us.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Forgets all grid-related information about the slave.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+GridLostSlaveProc(clientData, tkwin)
+    ClientData clientData;	/* GridBag structure for slave window that
+				 * was stolen away. */
+    Tk_Window tkwin;		/* Tk's handle for the slave window. */
+{
+    register GridBag *slavePtr = (GridBag *) clientData;
+
+    if (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin)) {
+	Tk_UnmaintainGeometry(slavePtr->tkwin, slavePtr->masterPtr->tkwin);
+    }
+    Unlink(slavePtr);
+    Tk_UnmapWindow(slavePtr->tkwin);
+}
+
+/*
+ * Fill in an instance of the above structure for the current set
+ * of managed children.  This requires two passes through the
+ * set of children, first to figure out what cells they occupy
+ * and how many rows and columns there are, and then to distribute
+ * the weights and min sizes amoung the rows/columns.
+ *
+ * This also caches the minsizes for all the children when they are
+ * first encountered.
+ */
+
+static void
+GetLayoutInfo(masterPtr, r)
+    GridBag *masterPtr;
+    LayoutInfo *r;
+{
+    register GridBag *slavePtr;
+    int i, k, px, py, pixels_diff, nextSize;
+    double weight_diff, weight;
+    register int curX, curY, curWidth, curHeight, curRow, curCol;
+    int xMax[MAXGRIDSIZE];
+    int yMax[MAXGRIDSIZE];
+
+    /*
+     * Pass #1
+     *
+     * Figure out the dimensions of the layout grid.
+     */
+
+    r->width = r->height = 0;
+    curRow = curCol = -1;
+    memset(xMax, 0, sizeof(int) * MAXGRIDSIZE);
+    memset(yMax, 0, sizeof(int) * MAXGRIDSIZE);
+
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					 slavePtr = slavePtr->nextPtr) {
+
+	curX = slavePtr->gridColumn;
+	curY = slavePtr->gridRow;
+	curWidth = slavePtr->gridWidth;
+	curHeight = slavePtr->gridHeight;
+
+	/* Adjust the grid width and height */
+	for (px = curX + curWidth; r->width < px; r->width++) {
+	    /* Null body. */
+	}
+	for (py = curY + curHeight; r->height < py; r->height++) {
+	    /* Null body. */
+	}
+
+	/* Adjust the xMax and yMax arrays */
+	for (i = curX; i < (curX + curWidth); i++) {
+	    yMax[i] = py;
+	}
+	for (i = curY; i < (curY + curHeight); i++) {
+	    xMax[i] = px;
+	}
+
+	/* Cache the current slave's size. */
+	slavePtr->minWidth = Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw;
+	slavePtr->minHeight = Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw;
+    }
+
+    /*
+     * Apply minimum row/column dimensions
+     */ 
+    if (r->width < masterPtr->column.used) {
+	r->width = masterPtr->column.used;
+    }
+    r->lastRow = r->height;
+    if (r->height < masterPtr->row.used) {
+	r->height = masterPtr->row.used;
+    }
+
+    /*
+     * Pass #2
+     */
+
+    curRow = curCol = -1;
+    memset(xMax, 0, sizeof(int) * MAXGRIDSIZE);
+    memset(yMax, 0, sizeof(int) * MAXGRIDSIZE);
+
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					 slavePtr = slavePtr->nextPtr) {
+	curX = slavePtr->gridColumn;
+	curY = slavePtr->gridRow;
+	curWidth = slavePtr->gridWidth;
+	curHeight = slavePtr->gridHeight;
+
+	px = curX + curWidth;
+	py = curY + curHeight;
+
+	for (i = curX; i < (curX + curWidth); i++) {
+	    yMax[i] = py;
+	}
+	for (i = curY; i < (curY + curHeight); i++) {
+	    xMax[i] = px;
+	}
+
+	/* Assign the new values to the gridbag slave */
+	slavePtr->tempX = curX;
+	slavePtr->tempY = curY;
+	slavePtr->tempWidth = curWidth;
+	slavePtr->tempHeight = curHeight;
+    }
+
+    /*
+     * Pass #3
+     *
+     * Distribute the minimun widths and weights:
+     */
+
+    /* Initialize arrays to zero */
+    memset(r->minWidth, 0, r->width * sizeof(int));
+    memset(r->minHeight, 0, r->height * sizeof(int));
+    memset(r->weightX, 0, r->width * sizeof(double));
+    memset(r->weightY, 0, r->height * sizeof(double));
+    nextSize = MAXINT;
+
+    for (i = 1; i != MAXINT; i = nextSize, nextSize = MAXINT) {
+	for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					     slavePtr = slavePtr->nextPtr) {
+
+	    if (slavePtr->tempWidth == i) {
+		px = slavePtr->tempX + slavePtr->tempWidth; /* right column */
+
+		/* 
+		 * Figure out if we should use this slave\'s weight.  If the weight
+		 * is less than the total weight spanned by the width of the cell,
+		 * then discard the weight.  Otherwise split it the difference
+		 * according to the existing weights.
+		 */
+
+		weight_diff = slavePtr->weightX;
+		for (k = slavePtr->tempX; k < px; k++)
+		    weight_diff -= r->weightX[k];
+		if (weight_diff > 0.0) {
+		    weight = 0.0;
+		    for (k = slavePtr->tempX; k < px; k++)
+			weight += r->weightX[k];
+		    for (k = slavePtr->tempX; weight > MINWEIGHT; k++) {
+			double wt = r->weightX[k];
+			double dx = (wt * weight_diff) / weight;
+			r->weightX[k] += dx;
+			weight_diff -= dx;
+			weight -= wt;
+		    }
+		    /* Assign the remainder to the rightmost cell */
+		    r->weightX[px-1] += weight_diff;
+		}
+
+		/*
+		 * Calculate the minWidth array values.
+		 * First, figure out how wide the current slave needs to be.
+		 * Then, see if it will fit within the current minWidth values.
+		 * If it won\'t fit, add the difference according to the weightX array.
+		 */
+
+		pixels_diff = slavePtr->minWidth + slavePtr->padX + slavePtr->iPadX;
+		for (k = slavePtr->tempX; k < px; k++)
+		    pixels_diff -= r->minWidth[k];
+		if (pixels_diff > 0) {
+		    weight = 0.0;
+		    for (k = slavePtr->tempX; k < px; k++)
+			weight += r->weightX[k];
+		    for (k = slavePtr->tempX; weight > MINWEIGHT; k++) {
+			double wt = r->weightX[k];
+			int dx = (int)((wt * ((double)pixels_diff)) / weight);
+			r->minWidth[k] += dx;
+			pixels_diff -= dx;
+			weight -= wt;
+		    }
+		    /* Any leftovers go into the rightmost cell */
+		    r->minWidth[px-1] += pixels_diff;
+		}
+	    }
+	    else if (slavePtr->tempWidth > i && slavePtr->tempWidth < nextSize)
+		nextSize = slavePtr->tempWidth;
+
+
+	    if (slavePtr->tempHeight == i) {
+		py = slavePtr->tempY + slavePtr->tempHeight; /* bottom row */
+
+		/* 
+		 * Figure out if we should use this slave\'s weight.  If the weight
+		 * is less than the total weight spanned by the height of the cell,
+		 * then discard the weight.  Otherwise split it the difference
+		 * according to the existing weights.
+		 */
+
+		weight_diff = slavePtr->weightY;
+		for (k = slavePtr->tempY; k < py; k++)
+		    weight_diff -= r->weightY[k];
+		if (weight_diff > 0.0) {
+		    weight = 0.0;
+		    for (k = slavePtr->tempY; k < py; k++)
+			weight += r->weightY[k];
+		    for (k = slavePtr->tempY; weight > MINWEIGHT; k++) {
+			double wt = r->weightY[k];
+			double dy = (wt * weight_diff) / weight;
+			r->weightY[k] += dy;
+			weight_diff -= dy;
+			weight -= wt;
+		    }
+		    /* Assign the remainder to the bottom cell */
+		    r->weightY[py-1] += weight_diff;
+		}
+
+		/*
+		 * Calculate the minHeight array values.
+		 * First, figure out how tall the current slave needs to be.
+		 * Then, see if it will fit within the current minHeight values.
+		 * If it won\'t fit, add the difference according to the weightY array.
+		 */
+
+		pixels_diff = slavePtr->minHeight + slavePtr->padY + slavePtr->iPadY;
+		for (k = slavePtr->tempY; k < py; k++)
+		    pixels_diff -= r->minHeight[k];
+		if (pixels_diff > 0) {
+		    weight = 0.0;
+		    for (k = slavePtr->tempY; k < py; k++)
+			weight += r->weightY[k];
+		    for (k = slavePtr->tempY; weight > MINWEIGHT; k++) {
+			double wt = r->weightY[k];
+			int dy = (int)((wt * ((double)pixels_diff)) / weight);
+			r->minHeight[k] += dy;
+			pixels_diff -= dy;
+			weight -= wt;
+		    }
+		    /* Any leftovers go into the bottom cell */
+		    r->minHeight[py-1] += pixels_diff;
+		}
+	    }
+	    else if (slavePtr->tempHeight > i && slavePtr->tempHeight < nextSize)
+		nextSize = slavePtr->tempHeight;
+	}
+    }
+
+    /*
+     * Apply minimum row/column dimensions
+     */
+    for (i=0; i<masterPtr->column.used; i++) {
+	if (r->minWidth[i] < masterPtr->column.minsize[i])
+	    r->minWidth[i] = masterPtr->column.minsize[i];
+	if (r->weightX[i] < masterPtr->column.weight[i])
+	    r->weightX[i] = masterPtr->column.weight[i];
+    }
+    for (i=0; i<masterPtr->row.used; i++) {
+	if (r->minHeight[i] < masterPtr->row.minsize[i])
+	    r->minHeight[i] = masterPtr->row.minsize[i];
+	if (r->weightY[i] < masterPtr->row.weight[i])
+	    r->weightY[i] = masterPtr->row.weight[i];
+    }
+}
+
+/*
+ * Cache the layout info after it is calculated.
+ */
+static void
+GetCachedLayoutInfo(masterPtr)
+    GridBag *masterPtr;
+{
+    if (masterPtr->valid == 0) {
+	if (!masterPtr->layoutCache)
+	    masterPtr->layoutCache = (LayoutInfo *)ckalloc(sizeof(LayoutInfo));
+
+	GetLayoutInfo(masterPtr, masterPtr->layoutCache);
+	masterPtr->valid = 1;
+    }
+}
+
+/*
+ * Adjusts the x, y, width, and height fields to the correct
+ * values depending on the constraint geometry and pads.
+ */
+
+static void
+AdjustForGravity(gridPtr, x, y, width, height)
+    GridBag *gridPtr;
+    int *x;
+    int *y;
+    int *width;
+    int *height;
+{
+    int diffx=0, diffy=0;
+    int sticky = gridPtr->flags&STICK_ALL;
+
+    *x += gridPtr->padX/2;
+    *width -= gridPtr->padX;
+    *y += gridPtr->padY/2;
+    *height -= gridPtr->padY;
+
+    if (*width > (gridPtr->minWidth + gridPtr->iPadX)) {
+	diffx = *width - (gridPtr->minWidth + gridPtr->iPadX);
+	*width = gridPtr->minWidth + gridPtr->iPadX;
+    }
+
+    if (*height > (gridPtr->minHeight + gridPtr->iPadY)) {
+	diffy = *height - (gridPtr->minHeight + gridPtr->iPadY);
+	*height = gridPtr->minHeight + gridPtr->iPadY;
+    }
+
+    if (sticky&STICK_EAST && sticky&STICK_WEST)
+	*width += diffx;
+    if (sticky&STICK_NORTH && sticky&STICK_SOUTH)
+	*height += diffy;
+    if (!(sticky&STICK_WEST)) {
+	if (sticky&STICK_EAST)
+	    *x += diffx;
+	else
+	    *x += diffx/2;
+    }
+    if (!(sticky&STICK_NORTH)) {
+	if (sticky&STICK_SOUTH)
+	    *y += diffy;
+	else
+	    *y += diffy/2;
+    }
+}
+
+/*
+ * Figure out the minimum size (not counting the X border) of the
+ * master based on the information from GetLayoutInfo()
+ */
+
+static void
+GetMinSize(masterPtr, info, minw, minh)
+    GridBag *masterPtr;
+    LayoutInfo *info;
+    int *minw;
+    int *minh;
+{
+    int i, t;
+    int intBWidth;	/* Width of internal border in parent window,
+			 * if any. */
+
+    intBWidth = Tk_InternalBorderWidth(masterPtr->tkwin);
+
+    t = 0;
+    for(i = 0; i < info->width; i++)
+	t += info->minWidth[i];
+    *minw = t + 2*intBWidth;
+
+    t = 0;
+    for(i = 0; i < info->height; i++)
+	t += info->minHeight[i];
+    *minh = t + 2*intBWidth;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArrangeGrid --
+ *
+ *	This procedure is invoked (using the Tk_DoWhenIdle
+ *	mechanism) to re-layout a set of windows managed by
+ *	the gridbag.  It is invoked at idle time so that a
+ *	series of gridbag requests can be merged into a single
+ *	layout operation.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The slaves of masterPtr may get resized or moved.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ArrangeGrid(clientData)
+    ClientData clientData;	/* Structure describing parent whose slaves
+				 * are to be re-layed out. */
+{
+    register GridBag *masterPtr = (GridBag *) clientData;
+    register GridBag *slavePtr;	
+    int abort;
+    int i, x, y, width, height;
+    int diffw, diffh;
+    double weight;
+    Tk_Window parent, ancestor;
+    LayoutInfo info;
+    int intBWidth;	/* Width of internal border in parent window,
+			 * if any. */
+    int iPadX, iPadY;
+
+    masterPtr->flags &= ~REQUESTED_RELAYOUT;
+
+    /*
+     * If the parent has no slaves anymore, then don't do anything
+     * at all:  just leave the parent's size as-is.
+     * Even if row and column constraints have been set!
+     */
+
+    if (masterPtr->slavePtr == NULL) {
+	return;
+    }
+
+    /*
+     * Abort any nested call to ArrangeGrid for this window, since
+     * we'll do everything necessary here, and set up so this call
+     * can be aborted if necessary.  
+     */
+
+    if (masterPtr->abortPtr != NULL) {
+	*masterPtr->abortPtr = 1;
+    }
+    masterPtr->abortPtr = &abort;
+    abort = 0;
+    Tk_Preserve((ClientData) masterPtr);
+
+    /*
+     * Pass #1: scan all the slaves to figure out the total amount
+     * of space needed.
+     */
+
+    GetLayoutInfo(masterPtr, &info);
+    GetMinSize(masterPtr, &info, &width, &height);
+
+    if (((width != Tk_ReqWidth(masterPtr->tkwin))
+	    || (height != Tk_ReqHeight(masterPtr->tkwin)))
+	    && !(masterPtr->flags & DONT_PROPAGATE)) {
+	Tk_GeometryRequest(masterPtr->tkwin, width, height);
+	masterPtr->flags |= REQUESTED_RELAYOUT;
+	masterPtr->valid = 0;
+	Tk_DoWhenIdle(ArrangeGrid, (ClientData) masterPtr);
+	goto done;
+    }
+
+    /*
+     * If the parent isn't mapped then don't do anything more:  wait
+     * until it gets mapped again.  Need to get at least to here to
+     * reflect size needs up the window hierarchy, but there's no
+     * point in actually mapping the slaves.
+     */
+
+    if (!Tk_IsMapped(masterPtr->tkwin)) {
+	goto done;
+    }
+
+
+    /*
+     * If the current dimensions of the window don't match the desired
+     * dimensions, then adjust the minWidth and minHeight arrays
+     * according to the weights.
+     */
+
+    diffw = Tk_Width(masterPtr->tkwin) - (width + masterPtr->iPadX);
+    if (diffw != 0) {
+	weight = 0.0;
+	for (i = 0; i < info.width; i++)
+	    weight += info.weightX[i];
+	if (weight > MINWEIGHT) {
+	    for (i = 0; i < info.width; i++) {
+		int dx = (int)(( ((double)diffw) * info.weightX[i]) / weight);
+		info.minWidth[i] += dx;
+		width += dx;
+		if (info.minWidth[i] < 0) {
+		    width -= info.minWidth[i];
+		    info.minWidth[i] = 0;
+		}
+	    }
+	}
+	diffw = Tk_Width(masterPtr->tkwin) - (width + masterPtr->iPadX);
+    }
+    else {
+	diffw = 0;
+    }
+
+    diffh = Tk_Height(masterPtr->tkwin) - (height + masterPtr->iPadY);
+    if (diffh != 0) {
+	weight = 0.0;
+	for (i = 0; i < info.height; i++)
+	    weight += info.weightY[i];
+	if (weight > MINWEIGHT) {
+	    for (i = 0; i < info.height; i++) {
+		int dy = (int)(( ((double)diffh) * info.weightY[i]) / weight);
+		info.minHeight[i] += dy;
+		height += dy;
+		if (info.minHeight[i] < 0) {
+		    height -= info.minHeight[i];
+		    info.minHeight[i] = 0;
+		}
+	    }
+	}
+	diffh = Tk_Height(masterPtr->tkwin) - (height + masterPtr->iPadY);
+    }
+    else {
+	diffh = 0;
+    }
+
+    /*
+     * Now do the actual layout of the slaves using the layout information
+     * that has been collected.
+     */
+
+    iPadX = masterPtr->iPadX/2;
+    iPadY = masterPtr->iPadY/2;
+    intBWidth = Tk_InternalBorderWidth(masterPtr->tkwin);
+
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					 slavePtr = slavePtr->nextPtr) {
+
+	masterPtr->startx = x = diffw/2 + intBWidth + iPadX;
+	for(i = 0; i < slavePtr->tempX; i++)
+	    x += info.minWidth[i];
+
+	masterPtr->starty = y = diffh/2 + intBWidth + iPadY;
+	for(i = 0; i < slavePtr->tempY; i++)
+	    y += info.minHeight[i];
+
+	width = 0;
+	for(i = slavePtr->tempX; i < (slavePtr->tempX + slavePtr->tempWidth); i++)
+	    width += info.minWidth[i];
+
+	height = 0;
+	for(i = slavePtr->tempY; i < (slavePtr->tempY + slavePtr->tempHeight); i++)
+	    height += info.minHeight[i];
+
+	AdjustForGravity(slavePtr, &x, &y, &width, &height);
+
+	/*
+	 * If the window in which slavePtr is managed is not its
+	 * parent in the window hierarchy, translate the coordinates
+	 * to the coordinate system of the real X parent.
+	 */
+
+	parent = Tk_Parent(slavePtr->tkwin);
+	for (ancestor = masterPtr->tkwin; ancestor != parent;
+					  ancestor = Tk_Parent(ancestor)) {
+	    x += Tk_X(ancestor) + Tk_Changes(ancestor)->border_width;
+	    y += Tk_Y(ancestor) + Tk_Changes(ancestor)->border_width;
+	}
+
+	/*
+	 * If the window is too small to be interesting then
+	 * unmap it.  Otherwise configure it and then make sure
+	 * it's mapped.
+	 */
+
+	if ((width <= 0) || (height <= 0)) {
+	    Tk_UnmapWindow(slavePtr->tkwin);
+	}
+	else {
+	    if ((x != Tk_X(slavePtr->tkwin))
+		    || (y != Tk_Y(slavePtr->tkwin))
+		    || (width != Tk_Width(slavePtr->tkwin))
+		    || (height != Tk_Height(slavePtr->tkwin))) {
+		Tk_MoveResizeWindow(slavePtr->tkwin, x, y, width, height);
+	    }
+	    if (abort) {
+		goto done;
+	    }
+	    Tk_MapWindow(slavePtr->tkwin);
+	}
+
+	/*
+	 * Changes to the window's structure could cause almost anything
+	 * to happen, including deleting the parent or child.  If this
+	 * happens, we'll be told to abort.
+	 */
+
+	if (abort) {
+	    goto done;
+	}
+    }
+
+    done:
+    masterPtr->abortPtr = NULL;
+    Tk_Release((ClientData) masterPtr);
+}
+
+
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetGridBag --
+ *
+ *	This internal procedure is used to locate a GridBag
+ *	structure for a given window, creating one if one
+ *	doesn't exist already.
+ *
+ * Results:
+ *	The return value is a pointer to the GridBag structure
+ *	corresponding to tkwin.
+ *
+ * Side effects:
+ *	A new gridbag structure may be created.  If so, then
+ *	a callback is set up to clean things up when the
+ *	window is deleted.
+ *
+ *--------------------------------------------------------------
+ */
+
+static GridBag *
+GetGridBag(tkwin)
+    Tk_Window tkwin;		/* Token for window for which
+				 * gridbag structure is desired. */
+{
+    register GridBag *gridPtr;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    if (!initialized) {
+	initialized = 1;
+	Tcl_InitHashTable(&gridBagHashTable, TCL_ONE_WORD_KEYS);
+    }
+
+    /*
+     * See if there's already gridbag for this window.  If not,
+     * then create a new one.
+     */
+
+    hPtr = Tcl_CreateHashEntry(&gridBagHashTable, (char *) tkwin, &new);
+    if (!new) {
+	return (GridBag *) Tcl_GetHashValue(hPtr);
+    }
+    gridPtr = (GridBag *) ckalloc(sizeof(GridBag));
+    gridPtr->tkwin = tkwin;
+    gridPtr->masterPtr = NULL;
+    gridPtr->nextPtr = NULL;
+    gridPtr->slavePtr = NULL;
+
+    gridPtr->gridColumn = gridPtr->gridRow = -1;
+    gridPtr->gridWidth = gridPtr->gridHeight = 1;
+    gridPtr->weightX = gridPtr->weightY = 0.0;
+    gridPtr->minWidth = gridPtr->minHeight = 0;
+
+    gridPtr->padX = gridPtr->padY = 0;
+    gridPtr->iPadX = gridPtr->iPadY = 0;
+    gridPtr->startx = gridPtr->starty = 0;
+    gridPtr->doubleBw = 2*Tk_Changes(tkwin)->border_width;
+    gridPtr->abortPtr = NULL;
+    gridPtr->flags = 0;
+
+    gridPtr->column.max = 0;
+    gridPtr->row.max = 0;
+    gridPtr->column.used = 0;
+    gridPtr->row.used = 0;
+
+    gridPtr->valid = 0;
+    gridPtr->layoutCache = NULL;
+
+    Tcl_SetHashValue(hPtr, gridPtr);
+    Tk_CreateEventHandler(tkwin, StructureNotifyMask,
+	    GridBagStructureProc, (ClientData) gridPtr);
+    return gridPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Unlink --
+ *
+ *	Remove a gridbag from its parent's list of slaves.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The parent will be scheduled for re-arranging.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+Unlink(gridPtr)
+    register GridBag *gridPtr;		/* Window to unlink. */
+{
+    register GridBag *masterPtr, *gridPtr2;
+
+    masterPtr = gridPtr->masterPtr;
+    if (masterPtr == NULL) {
+	return;
+    }
+    if (masterPtr->slavePtr == gridPtr) {
+	masterPtr->slavePtr = gridPtr->nextPtr;
+    }
+    else {
+	for (gridPtr2 = masterPtr->slavePtr; ; gridPtr2 = gridPtr2->nextPtr) {
+	    if (gridPtr2 == NULL) {
+		panic("Unlink couldn't find previous window");
+	    }
+	    if (gridPtr2->nextPtr == gridPtr) {
+		gridPtr2->nextPtr = gridPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    masterPtr->valid = 0;
+    if (!(masterPtr->flags & REQUESTED_RELAYOUT)) {
+	masterPtr->flags |= REQUESTED_RELAYOUT;
+	Tk_DoWhenIdle(ArrangeGrid, (ClientData) masterPtr);
+    }
+    if (masterPtr->abortPtr != NULL) {
+	*masterPtr->abortPtr = 1;
+    }
+
+    gridPtr->masterPtr = NULL;
+}
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyGridBag --
+ *
+ *	This procedure is invoked by Tk_EventuallyFree or Tk_Release
+ *	to clean up the internal structure of a gridbag at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the gridbag is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyGridBag(memPtr)
+    char *memPtr;		/* Info about window that is now dead. */
+{
+    register GridBag *gridPtr = (GridBag *) memPtr;
+
+    if (gridPtr->column.max) {
+	ckfree((char *) gridPtr->column.minsize);
+	ckfree((char *) gridPtr->column.weight);
+    }
+    if (gridPtr->row.max) {
+	ckfree((char *) gridPtr->row.minsize);
+	ckfree((char *) gridPtr->row.weight);
+    }
+    if (gridPtr->layoutCache)
+	ckfree((char *) gridPtr->layoutCache);
+
+    ckfree((char *) gridPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GridBagStructureProc --
+ *
+ *	This procedure is invoked by the Tk event dispatcher in response
+ *	to StructureNotify events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a window was just deleted, clean up all its gridbag-related
+ *	information.  If it was just resized, re-configure its slaves, if
+ *	any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GridBagStructureProc(clientData, eventPtr)
+    ClientData clientData;		/* Our information about window
+					 * referred to by eventPtr. */
+    XEvent *eventPtr;			/* Describes what just happened. */
+{
+    register GridBag *gridPtr = (GridBag *) clientData;
+
+    if (eventPtr->type == ConfigureNotify) {
+	gridPtr->valid = 0;
+	if (!(gridPtr->flags & REQUESTED_RELAYOUT)) {
+	    gridPtr->flags |= REQUESTED_RELAYOUT;
+	    Tk_DoWhenIdle(ArrangeGrid, (ClientData) gridPtr);
+	}
+	if (gridPtr->doubleBw != 2*Tk_Changes(gridPtr->tkwin)->border_width) {
+	    if ((gridPtr->masterPtr != NULL) &&
+		    !(gridPtr->masterPtr->flags & REQUESTED_RELAYOUT)) {
+		gridPtr->doubleBw = 2*Tk_Changes(gridPtr->tkwin)->border_width;
+		gridPtr->masterPtr->flags |= REQUESTED_RELAYOUT;
+		Tk_DoWhenIdle(ArrangeGrid, (ClientData) gridPtr->masterPtr);
+	    }
+	}
+    }
+    else if (eventPtr->type == DestroyNotify) {
+	register GridBag *gridPtr2, *nextPtr;
+
+	if (gridPtr->masterPtr != NULL) {
+	    Unlink(gridPtr);
+	}
+	for (gridPtr2 = gridPtr->slavePtr; gridPtr2 != NULL;
+					   gridPtr2 = nextPtr) {
+	    Tk_UnmapWindow(gridPtr2->tkwin);
+	    gridPtr2->masterPtr = NULL;
+	    nextPtr = gridPtr2->nextPtr;
+	    gridPtr2->nextPtr = NULL;
+	}
+	Tcl_DeleteHashEntry(Tcl_FindHashEntry(&gridBagHashTable,
+		(char *) gridPtr->tkwin));
+	if (gridPtr->flags & REQUESTED_RELAYOUT) {
+	    Tk_CancelIdleCall(ArrangeGrid, (ClientData) gridPtr);
+	}
+	gridPtr->tkwin = NULL;
+	Tk_EventuallyFree((ClientData) gridPtr, DestroyGridBag);
+    }
+    else if (eventPtr->type == MapNotify) {
+	gridPtr->valid = 0;
+	if (!(gridPtr->flags & REQUESTED_RELAYOUT)) {
+	    gridPtr->flags |= REQUESTED_RELAYOUT;
+	    Tk_DoWhenIdle(ArrangeGrid, (ClientData) gridPtr);
+	}
+    }
+    else if (eventPtr->type == UnmapNotify) {
+	register GridBag *gridPtr2;
+
+	for (gridPtr2 = gridPtr->slavePtr; gridPtr2 != NULL;
+					   gridPtr2 = gridPtr2->nextPtr) {
+	    Tk_UnmapWindow(gridPtr2->tkwin);
+	}
+    }
+}
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureSlaves --
+ *
+ *	This implements the guts of the "grid configure" command.  Given
+ *	a list of slaves and configuration options, it arranges for the
+ *	gridbag to manage the slaves and sets the specified options.
+ *
+ * Results:
+ *	TCL_OK is returned if all went well.  Otherwise, TCL_ERROR is
+ *	returned and interp->result is set to contain an error message.
+ *
+ * Side effects:
+ *	Slave windows get taken over by the gridbag.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureSlaves(interp, tkwin, argc, argv)
+    Tcl_Interp *interp;	/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Any window in application containing
+				 * slaves.  Used to look up slave names. */
+    int argc;			/* Numb = 0er of elements in argv. */
+    char *argv[];		/* Argument strings:  contains one or more
+				 * window names followed by any number
+				 * of "option value" pairs.  Caller must
+				 * make sure that there is at least one
+				 * window name. */
+{
+    GridBag *masterPtr, *slavePtr, *prevPtr;
+    Tk_Window other, slave, parent, ancestor;
+    int i, j, numWindows, c, length, tmp, positionGiven;
+    int currentColumn=0, numColumns=1;
+    int gotLayout = 0;
+    int gotWidth = 0;
+    int width;
+
+    /*
+     * Find out how many windows are specified. (shouldn't use harwired symbols)
+     */
+
+    for (numWindows = 0; numWindows < argc; numWindows++) {
+	if (argv[numWindows][0] != '.'
+		 && strcmp(argv[numWindows],"-")!=0
+		 && strcmp(argv[numWindows],"^")!=0
+		 && strcmp(argv[numWindows],"x")!=0) {
+	    break;
+	}
+    }
+    slave = NULL;
+
+    /*
+     * Iterate over all of the slave windows, parsing the configuration
+     * options for each slave.  It's a bit wasteful to re-parse the
+     * options for each slave, but things get too messy if we try to
+     * parse the arguments just once at the beginning.  For example,
+     * if a slave already is managed we want to just change a few
+     * existing values without resetting everything.  If there are
+     * multiple windows, the -in option only gets processed for the
+     * first window.
+     */
+
+    masterPtr = NULL;
+    prevPtr = NULL;
+    positionGiven = 0;
+    for (j = 0; j < numWindows; j++) {
+
+	/* adjust default widget location for non-widgets */
+	if (*argv[j] != '.') {
+	    switch (*argv[j]) {
+		case '^':	/* extend the widget in the previous row 
+				 * Since we don't know who the master is yet,
+				 * handle these in a separate pass at the end
+				 */
+		    /* no break */
+		case REL_SKIP:	/* skip over the next column */
+		    currentColumn++;
+		    break;
+		case REL_HORIZ:	/* increase the span, already dealt with */
+		    /* not quite right */
+		    if (j>0 && (*argv[j-1] == REL_SKIP || *argv[j-1] == '^')) {
+			Tcl_AppendResult(interp, "Invalid grid combination:",
+				" \"-\" can't follow \"", argv[j-1], "\"",NULL);
+			return TCL_ERROR;
+		    }
+		    break;
+		default:
+		    panic("Invalid grid position indicator");
+	    }
+	    continue;
+	}
+
+	for (numColumns=1; j+numColumns < numWindows && *argv[j+numColumns] == REL_HORIZ;
+		numColumns++) {
+	    /* null body */
+	}
+	slave = Tk_NameToWindow(interp, argv[j], tkwin);
+	if (slave == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tk_IsTopLevel(slave)) {
+	    Tcl_AppendResult(interp, "can't manage \"", argv[j],
+		    "\": it's a top-level window", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	slavePtr = GetGridBag(slave);
+
+	/*
+	 * The following statement is taken from tkPack.c:
+	 *
+	 * "If the slave isn't currently managed, reset all of its
+	 * configuration information to default values (there could
+	 * be old values left from a previous packer)."
+	 *
+	 * I disagree with this statement.  If a slave is disabled (using
+	 * "forget") and then re-enabled, I submit that 90% of the time the
+	 * programmer will want it to retain its old configuration information.
+	 * If the programmer doesn't want this behavior, then she can reset the
+	 * defaults for herself, but she will never have to worry about keeping
+	 * track of the old state. 
+	 */
+
+	for (i = numWindows; i < argc; i+=2) {
+	    if ((i+2) > argc) {
+		Tcl_AppendResult(interp, "extra option \"", argv[i],
+			"\" (option with no value?)", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    length = strlen(argv[i]);
+	    if (length < 2) {
+		goto badOption;
+	    }
+	    c = argv[i][1];
+	    if ((c == 'i') && (strcmp(argv[i], "-in") == 0)) {
+		if (j == 0) {
+		    other = Tk_NameToWindow(interp, argv[i+1], tkwin);
+		    if (other == NULL) {
+			return TCL_ERROR;
+		    }
+		    if (other == slave) {
+			sprintf(interp->result,"Window can't be managed in itself");
+			return TCL_ERROR;
+		    }
+		    masterPtr = GetGridBag(other);
+		    prevPtr = masterPtr->slavePtr;
+		    if (prevPtr != NULL) {
+			while (prevPtr->nextPtr != NULL) {
+			    prevPtr = prevPtr->nextPtr;
+			}
+		    }
+		    positionGiven = 1;
+		}
+	    } else if ((c == 'i') && (strcmp(argv[i], "-ipadx") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp < 0)) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad ipadx value \"", argv[i+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->iPadX = tmp*2;
+	    } else if ((c == 'i') && (strcmp(argv[i], "-ipady") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad ipady value \"", argv[i+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->iPadY = tmp*2;
+	    } else if ((c == 'p') && (strcmp(argv[i], "-padx") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad padx value \"", argv[i+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->padX = tmp*2;
+	    } else if ((c == 'p') && (strcmp(argv[i], "-pady") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad pady value \"", argv[i+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->padY = tmp*2;
+	    } else if ((c == 'c') && (strcmp(argv[i], "-column") == 0)) {
+		if (Tcl_GetInt(interp, argv[i+1], &tmp) != TCL_OK || tmp<0) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad column value \"", argv[i+1],
+			    "\": must be a non-negative integer", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->gridColumn = tmp;
+	    } else if ((c == 'r') && (strcmp(argv[i], "-row") == 0)) {
+		if (Tcl_GetInt(interp, argv[i+1], &tmp) != TCL_OK || tmp<0) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad grid value \"", argv[i+1],
+			    "\": must be a non-negative integer", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->gridRow = tmp;
+	    } else if ((c == 'c') && (strcmp(argv[i], "-columnspan") == 0)) {
+		if (Tcl_GetInt(interp, argv[i+1], &tmp) != TCL_OK || tmp <= 0) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad columnspan value \"", argv[i+1],
+			    "\": must be a positive integer", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->gridWidth = tmp;
+		gotWidth++;
+	    } else if ((c == 'r') && (strcmp(argv[i], "-rowspan") == 0)) {
+		if (Tcl_GetInt(interp, argv[i+1], &tmp) != TCL_OK) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad rowspan value \"", argv[i+1],
+			    "\": must be a positive integer", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->gridHeight = tmp;
+/*
+	    } else if ((c == 'w') &&
+		    (!strcmp(argv[i], "-weightx") || !strcmp(argv[i], "-wx"))) {
+		if (Tcl_GetDouble(interp, argv[i+1], &tmp_dbl) != TCL_OK) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad weight value \"", argv[i+1],
+			    "\": must be a double", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->weightX = tmp_dbl;
+	    }
+	    else if ((c == 'w') &&
+		    (!strcmp(argv[i], "-weighty") || !strcmp(argv[i], "-wy"))) {
+		if (Tcl_GetDouble(interp, argv[i+1], &tmp_dbl) != TCL_OK) {
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad weight value \"", argv[i+1],
+			    "\": must be a double", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->weightY = tmp_dbl;
+*/
+	    } else if ((c == 's') && strcmp(argv[i], "-sticky") == 0) {
+		int sticky = StringToSticky(argv[i+1]);
+		if (sticky == -1) {
+		    Tcl_AppendResult(interp, "bad stickyness value \"", argv[i+1],
+			    "\": must be a string containing n, e, s, and/or w", (char *)NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->flags = sticky | (slavePtr->flags & ~STICK_ALL);
+	    } else {
+		badOption:
+		Tcl_AppendResult(interp, "unknown or ambiguous option \"",
+			argv[i], "\": must be -in, -sticky, ",
+			"-row, -column, -rowspan, -columnspan, ",
+			"-ipadx, -ipady, -padx or -pady.",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	/*
+	 * If no position in a gridbag list was specified and the slave
+	 * is already managed, then leave it in its current location in
+	 * its current gridbag list.
+	 */
+
+	if (!positionGiven && (slavePtr->masterPtr != NULL)) {
+	    masterPtr = slavePtr->masterPtr;
+	    goto scheduleLayout;
+	}
+
+	/*
+	 * If the slave is going to be put back after itself then
+	 * skip the whole operation, since it won't work anyway.
+	 */
+
+	if (prevPtr == slavePtr) {
+	    masterPtr = slavePtr->masterPtr;
+	    goto scheduleLayout;
+	}
+    
+	/*
+	 * If the "-in" option has not been specified, arrange for the
+	 * slave to go at the end of the order for its parent.
+	 */
+    
+	if (!positionGiven) {
+	    masterPtr = GetGridBag(Tk_Parent(slave));
+	    prevPtr = masterPtr->slavePtr;
+	    if (prevPtr != NULL) {
+		while (prevPtr->nextPtr != NULL) {
+		    prevPtr = prevPtr->nextPtr;
+		}
+	    }
+	}
+
+	/*
+	 * Make sure that the slave's parent is either the master or
+	 * an ancestor of the master.
+	 */
+    
+	parent = Tk_Parent(slave);
+	for (ancestor = masterPtr->tkwin; ; ancestor = Tk_Parent(ancestor)) {
+	    if (ancestor == parent) {
+		break;
+	    }
+	    if (Tk_IsTopLevel(ancestor)) {
+		Tcl_AppendResult(interp, "can't put ", argv[j],
+			" inside ", Tk_PathName(masterPtr->tkwin),
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	/*
+	 * Unlink the slave if it's currently managed, then position it
+	 * after prevPtr.
+	 */
+
+	if (slavePtr->masterPtr != NULL) {
+	    Unlink(slavePtr);
+	}
+	slavePtr->masterPtr = masterPtr;
+	if (prevPtr == NULL) {
+	    slavePtr->nextPtr = masterPtr->slavePtr;
+	    masterPtr->slavePtr = slavePtr;
+	} else {
+	    slavePtr->nextPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = slavePtr;
+	}
+	Tk_ManageGeometry(slave, &gridMgrType, (ClientData) slavePtr);
+	prevPtr = slavePtr;
+
+	/* assign default row and column */
+
+	if (slavePtr->gridColumn == -1) {
+	    slavePtr->gridColumn = currentColumn;
+	}
+	slavePtr->gridWidth += numColumns - 1;
+	if (slavePtr->gridRow == -1) {
+	    if (!gotLayout++) GetCachedLayoutInfo(masterPtr);
+	    slavePtr->gridRow = masterPtr->layoutCache->lastRow;
+	}
+
+	/*
+	 * Arrange for the parent to be re-arranged at the first
+	 * idle moment.
+	 */
+
+	scheduleLayout:
+	if (masterPtr->abortPtr != NULL) {
+	    *masterPtr->abortPtr = 1;
+	}
+	masterPtr->valid = 0;
+	if (!(masterPtr->flags & REQUESTED_RELAYOUT)) {
+	    masterPtr->flags |= REQUESTED_RELAYOUT;
+	    Tk_DoWhenIdle(ArrangeGrid, (ClientData) masterPtr);
+	}
+	currentColumn += slavePtr->gridWidth;
+	numColumns = 1;
+    }
+
+    /* now look for all the "^"'s */
+
+    for (j = 0; j < numWindows; j++) {
+	struct GridBag *otherPtr;
+    	char *lastWindow;	/* use this window to base current row/col on */
+	int match;		/* found a match for the ^ */
+
+    	if (*argv[j] == '.') {
+	    lastWindow = argv[j];
+	}
+	if (*argv[j] != '^') {
+	    continue;
+	}
+	for (width=1; width+j < numWindows && *argv[j+width] == '^'; width++) {
+	    /* Null Body */
+	}
+	other = Tk_NameToWindow(interp, lastWindow, tkwin);
+	otherPtr = GetGridBag(other);
+	if (!gotLayout++) GetCachedLayoutInfo(masterPtr);
+
+	for (match=0, slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+					 slavePtr = slavePtr->nextPtr) {
+
+	    if (slavePtr->gridWidth == width
+		    && slavePtr->gridColumn == otherPtr->gridColumn + otherPtr->gridWidth
+		    && slavePtr->gridRow + slavePtr->gridHeight == otherPtr->gridRow) {
+		slavePtr->gridHeight++;
+		match++;
+	    }
+	    lastWindow = Tk_PathName(slavePtr->tkwin);
+	}
+	if (!match) {
+	    Tcl_AppendResult(interp, "can't find slave to extend with \"^\"",
+		    " after ",lastWindow,
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	j += width - 1;
+    }
+    return TCL_OK;
+}
+
+/* convert "Sticky" bits into a string */
+
+static void
+StickyToString(flags, result)
+    int flags;		/* the sticky flags */
+    char *result;	/* where to put the result */
+{
+    int count = 0;
+    if (flags&STICK_NORTH) result[count++] = 'n';
+    if (flags&STICK_EAST) result[count++] = 'e';
+    if (flags&STICK_SOUTH) result[count++] = 's';
+    if (flags&STICK_WEST) result[count++] = 'w';
+    if (count) {
+	result[count] = '\0';
+    } else {
+	sprintf(result,"{}");
+    }
+}
+
+/* convert sticky string to flags */
+
+static int
+StringToSticky(string)
+    char *string;
+{
+    int sticky = 0;
+    char c;
+
+    while ((c = *string++) != '\0') {
+	switch (c) {
+	    case 'n': case 'N': sticky |= STICK_NORTH; break;
+	    case 'e': case 'E': sticky |= STICK_EAST;  break;
+	    case 's': case 'S': sticky |= STICK_SOUTH; break;
+	    case 'w': case 'W': sticky |= STICK_WEST;  break;
+	    case ' ': case ',': case '\t': case '\r': case '\n': break;
+	    default: return -1;
+	}
+    }
+    return sticky;
+}		
diff --git a/Tk/generic/tkImage.c b/Tk/generic/tkImage.c
new file mode 100644
index 0000000..3c4b32b
--- /dev/null
+++ b/Tk/generic/tkImage.c
@@ -0,0 +1,763 @@
+/* 
+ * tkImage.c --
+ *
+ *	This module implements the image protocol, which allows lots
+ *	of different kinds of images to be used in lots of different
+ *	widgets.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkImage.c 1.11 96/03/01 17:19:28
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * Each call to Tk_GetImage returns a pointer to one of the following
+ * structures, which is used as a token by clients (widgets) that
+ * display images.
+ */
+
+typedef struct Image {
+    Tk_Window tkwin;		/* Window passed to Tk_GetImage (needed to
+				 * "re-get" the image later if the manager
+				 * changes). */
+    Display *display;		/* Display for tkwin.  Needed because when
+				 * the image is eventually freed tkwin may
+				 * not exist anymore. */
+    struct ImageMaster *masterPtr;
+				/* Master for this image (identifiers image
+				 * manager, for example). */
+    ClientData instanceData;
+				/* One word argument to pass to image manager
+				 * when dealing with this image instance. */
+    Tk_ImageChangedProc *changeProc;
+				/* Code in widget to call when image changes
+				 * in a way that affects redisplay. */
+    ClientData widgetClientData;
+				/* Argument to pass to changeProc. */
+    struct Image *nextPtr;	/* Next in list of all image instances
+				 * associated with the same name. */
+
+} Image;
+
+/*
+ * For each image master there is one of the following structures,
+ * which represents a name in the image table and all of the images
+ * instantiated from it.  Entries in mainPtr->imageTable point to
+ * these structures.
+ */
+
+typedef struct ImageMaster {
+    Tk_ImageType *typePtr;	/* Information about image type.  NULL means
+				 * that no image manager owns this image:  the
+				 * image was deleted. */
+    ClientData masterData;	/* One-word argument to pass to image mgr
+				 * when dealing with the master, as opposed
+				 * to instances. */
+    int width, height;		/* Last known dimensions for image. */
+    Tcl_HashTable *tablePtr;	/* Pointer to hash table containing image
+				 * (the imageTable field in some TkMainInfo
+				 * structure). */
+    Tcl_HashEntry *hPtr;	/* Hash entry in mainPtr->imageTable for
+				 * this structure (used to delete the hash
+				 * entry). */
+    Image *instancePtr;		/* Pointer to first in list of instances
+				 * derived from this name. */
+} ImageMaster;
+
+/*
+ * The following variable points to the first in a list of all known
+ * image types.
+ */
+
+static Tk_ImageType *imageTypeList = NULL;
+
+/*
+ * Prototypes for local procedures:
+ */
+
+static void		DeleteImage _ANSI_ARGS_((ImageMaster *masterPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CreateImageType --
+ *
+ *	This procedure is invoked by an image manager to tell Tk about
+ *	a new kind of image and the procedures that manage the new type.
+ *	The procedure is typically invoked during Tcl_AppInit.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The new image type is entered into a table used in the "image
+ *	create" command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_CreateImageType(typePtr)
+    Tk_ImageType *typePtr;	/* Structure describing the type.  All of
+				 * the fields except "nextPtr" must be filled
+				 * in by caller.  Must not have been passed
+				 * to Tk_CreateImageType previously. */
+{
+    Tk_ImageType *typePtr2;
+
+    typePtr2 = (Tk_ImageType *) ckalloc(sizeof(Tk_ImageType));
+    *typePtr2 = *typePtr;
+    typePtr2->name = (char *) ckalloc((unsigned) (strlen(typePtr->name) + 1));
+    strcpy(typePtr2->name, typePtr->name);
+    typePtr2->nextPtr = imageTypeList;
+    imageTypeList = typePtr2;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ImageCmd --
+ *
+ *	This procedure is invoked to process the "image" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_ImageCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    TkWindow *winPtr = (TkWindow *) clientData;
+    int c, i, new, firstOption;
+    size_t length;
+    Tk_ImageType *typePtr;
+    ImageMaster *masterPtr;
+    Image *imagePtr;
+    Tcl_HashEntry *hPtr;
+    Tcl_HashSearch search;
+    char idString[30], *name;
+    static int id = 0;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?args?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "create", length) == 0)) {
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " create type ?name? ?options?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	c = argv[2][0];
+
+	/*
+	 * Look up the image type.
+	 */
+
+	for (typePtr = imageTypeList; typePtr != NULL;
+		typePtr = typePtr->nextPtr) {
+	    if ((c == typePtr->name[0])
+		    && (strcmp(argv[2], typePtr->name) == 0)) {
+		break;
+	    }
+	}
+	if (typePtr == NULL) {
+	    Tcl_AppendResult(interp, "image type \"", argv[2],
+		    "\" doesn't exist", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Figure out a name to use for the new image.
+	 */
+
+	if ((argc == 3) || (argv[3][0] == '-')) {
+	    id++;
+	    sprintf(idString, "image%d", id);
+	    name = idString;
+	    firstOption = 3;
+	} else {
+	    name = argv[3];
+	    firstOption = 4;
+	}
+
+	/*
+	 * Create the data structure for the new image.
+	 */
+
+	hPtr = Tcl_CreateHashEntry(&winPtr->mainPtr->imageTable, name, &new);
+	if (new) {
+	    masterPtr = (ImageMaster *) ckalloc(sizeof(ImageMaster));
+	    masterPtr->typePtr = NULL;
+	    masterPtr->masterData = NULL;
+	    masterPtr->width = masterPtr->height = 1;
+	    masterPtr->tablePtr = &winPtr->mainPtr->imageTable;
+	    masterPtr->hPtr = hPtr;
+	    masterPtr->instancePtr = NULL;
+	    Tcl_SetHashValue(hPtr, masterPtr);
+	} else {
+	    /*
+	     * An image already exists by this name.  Disconnect the
+	     * instances from the master.
+	     */
+
+	    masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	    if (masterPtr->typePtr != NULL) {
+		for (imagePtr = masterPtr->instancePtr; imagePtr != NULL;
+			imagePtr = imagePtr->nextPtr) {
+		   (*masterPtr->typePtr->freeProc)(
+			   imagePtr->instanceData, imagePtr->display);
+		   (*imagePtr->changeProc)(imagePtr->widgetClientData, 0, 0,
+			masterPtr->width, masterPtr->height, masterPtr->width,
+			masterPtr->height);
+		}
+		(*masterPtr->typePtr->deleteProc)(masterPtr->masterData);
+		masterPtr->typePtr = NULL;
+	    }
+	}
+
+	/*
+	 * Call the image type manager so that it can perform its own
+	 * initialization, then re-"get" for any existing instances of
+	 * the image.
+	 */
+
+	if ((*typePtr->createProc)(interp, name, argc-firstOption,
+		argv+firstOption, typePtr, (Tk_ImageMaster) masterPtr,
+		&masterPtr->masterData) != TCL_OK) {
+	    DeleteImage(masterPtr);
+	    return TCL_ERROR;
+	}
+	masterPtr->typePtr = typePtr;
+	for (imagePtr = masterPtr->instancePtr; imagePtr != NULL;
+		imagePtr = imagePtr->nextPtr) {
+	   imagePtr->instanceData = (*typePtr->getProc)(
+		   imagePtr->tkwin, masterPtr->masterData);
+	}
+#ifdef STk_CODE
+	STk_sharp_dot_result(interp, 
+ 			     Tcl_GetHashKey(&winPtr->mainPtr->imageTable, hPtr));
+#else
+	interp->result = Tcl_GetHashKey(&winPtr->mainPtr->imageTable, hPtr);
+#endif
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)) {
+	for (i = 2; i < argc; i++) {
+	    hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->imageTable, argv[i]);
+	    if (hPtr == NULL) {
+	    Tcl_AppendResult(interp, "image \"", argv[i],
+		    "\" doesn't exist", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	    DeleteImage(masterPtr);
+	}
+    } else if ((c == 'h') && (strncmp(argv[1], "height", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " height name\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->imageTable, argv[2]);
+	if (hPtr == NULL) {
+	    Tcl_AppendResult(interp, "image \"", argv[2],
+		    "\" doesn't exist", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	sprintf(interp->result, "%d", masterPtr->height);
+    } else if ((c == 'n') && (strncmp(argv[1], "names", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " names\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "(", NULL);
+#endif
+	for (hPtr = Tcl_FirstHashEntry(&winPtr->mainPtr->imageTable, &search);
+		hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	    Tcl_AppendElement(interp, Tcl_GetHashKey(
+		    &winPtr->mainPtr->imageTable, hPtr));
+	}
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, ")", NULL);
+#endif
+    } else if ((c == 't') && (strcmp(argv[1], "type") == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " type name\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->imageTable, argv[2]);
+	if (hPtr == NULL) {
+	    Tcl_AppendResult(interp, "image \"", argv[2],
+		    "\" doesn't exist", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	if (masterPtr->typePtr != NULL) {
+	    interp->result = masterPtr->typePtr->name;
+	}
+    } else if ((c == 't') && (strcmp(argv[1], "types") == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " types\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	for (typePtr = imageTypeList; typePtr != NULL;
+		typePtr = typePtr->nextPtr) {
+	    Tcl_AppendElement(interp, typePtr->name);
+	}
+    } else if ((c == 'w') && (strncmp(argv[1], "width", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " width name\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->imageTable, argv[2]);
+	if (hPtr == NULL) {
+	    Tcl_AppendResult(interp, "image \"", argv[2],
+		    "\" doesn't exist", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	sprintf(interp->result, "%d", masterPtr->width);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be create, delete, height, names, type, types,",
+		" or width", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ImageChanged --
+ *
+ *	This procedure is called by an image manager whenever something
+ *	has happened that requires the image to be redrawn (some of its
+ *	pixels have changed, or its size has changed).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Any widgets that display the image are notified so that they
+ *	can redisplay themselves as appropriate.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_ImageChanged(imageMaster, x, y, width, height, imageWidth,
+	imageHeight)
+    Tk_ImageMaster imageMaster;	/* Image that needs redisplay. */
+    int x, y;			/* Coordinates of upper-left pixel of
+				 * region of image that needs to be
+				 * redrawn. */
+    int width, height;		/* Dimensions (in pixels) of region of
+				 * image to redraw.  If either dimension
+				 * is zero then the image doesn't need to
+				 * be redrawn (perhaps all that happened is
+				 * that its size changed). */
+    int imageWidth, imageHeight;/* New dimensions of image. */
+{
+    ImageMaster *masterPtr = (ImageMaster *) imageMaster;
+    Image *imagePtr;
+
+    masterPtr->width = imageWidth;
+    masterPtr->height = imageHeight;
+    for (imagePtr = masterPtr->instancePtr; imagePtr != NULL;
+	    imagePtr = imagePtr->nextPtr) {
+	(*imagePtr->changeProc)(imagePtr->widgetClientData, x, y,
+	    width, height, imageWidth, imageHeight);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_NameOfImage --
+ *
+ *	Given a token for an image master, this procedure returns
+ *	the name of the image.
+ *
+ * Results:
+ *	The return value is the string name for imageMaster.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tk_NameOfImage(imageMaster)
+    Tk_ImageMaster imageMaster;		/* Token for image. */
+{
+    ImageMaster *masterPtr = (ImageMaster *) imageMaster;
+
+    return Tcl_GetHashKey(masterPtr->tablePtr, masterPtr->hPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetImage --
+ *
+ *	This procedure is invoked by a widget when it wants to use
+ *	a particular image in a particular window.
+ *
+ * Results:
+ *	The return value is a token for the image.  If there is no image
+ *	by the given name, then NULL is returned and an error message is
+ *	left in interp->result.
+ *
+ * Side effects:
+ *	Tk records the fact that the widget is using the image, and
+ *	it will invoke changeProc later if the widget needs redisplay
+ *	(i.e. its size changes or some of its pixels change).  The
+ *	caller must eventually invoke Tk_FreeImage when it no longer
+ *	needs the image.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Image
+Tk_GetImage(interp, tkwin, name, changeProc, clientData)
+    Tcl_Interp *interp;		/* Place to leave error message if image
+				 * can't be found. */
+    Tk_Window tkwin;		/* Token for window in which image will
+				 * be used. */
+    char *name;			/* Name of desired image. */
+    Tk_ImageChangedProc *changeProc;
+				/* Procedure to invoke when redisplay is
+				 * needed because image's pixels or size
+				 * changed. */
+    ClientData clientData;	/* One-word argument to pass to damageProc. */
+{
+    Tcl_HashEntry *hPtr;
+    ImageMaster *masterPtr;
+    Image *imagePtr;
+
+    hPtr = Tcl_FindHashEntry(&((TkWindow *) tkwin)->mainPtr->imageTable, name);
+    if (hPtr == NULL) {
+	goto noSuchImage;
+    }
+    masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+    if (masterPtr->typePtr == NULL) {
+	goto noSuchImage;
+    }
+    imagePtr = (Image *) ckalloc(sizeof(Image));
+    imagePtr->tkwin = tkwin;
+    imagePtr->display = Tk_Display(tkwin);
+    imagePtr->masterPtr = masterPtr;
+    imagePtr->instanceData =
+	    (*masterPtr->typePtr->getProc)(tkwin, masterPtr->masterData);
+    imagePtr->changeProc = changeProc;
+    imagePtr->widgetClientData = clientData;
+    imagePtr->nextPtr = masterPtr->instancePtr;
+    masterPtr->instancePtr = imagePtr;
+    return (Tk_Image) imagePtr;
+
+    noSuchImage:
+    Tcl_AppendResult(interp, "image \"", name, "\" doesn't exist",
+	    (char *) NULL);
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeImage --
+ *
+ *	This procedure is invoked by a widget when it no longer needs
+ *	an image acquired by a previous call to Tk_GetImage.  For each
+ *	call to Tk_GetImage there must be exactly one call to Tk_FreeImage.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The association between the image and the widget is removed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeImage(image)
+    Tk_Image image;		/* Token for image that is no longer
+				 * needed by a widget. */
+{
+    Image *imagePtr = (Image *) image;
+    ImageMaster *masterPtr = imagePtr->masterPtr;
+    Image *prevPtr;
+
+    /*
+     * Clean up the particular instance.
+     */
+
+    if (masterPtr->typePtr != NULL) {
+	(*masterPtr->typePtr->freeProc)(imagePtr->instanceData,
+		imagePtr->display);
+    }
+    prevPtr = masterPtr->instancePtr;
+    if (prevPtr == imagePtr) {
+	masterPtr->instancePtr = imagePtr->nextPtr;
+    } else {
+	while (prevPtr->nextPtr != imagePtr) {
+	    prevPtr = prevPtr->nextPtr;
+	}
+	prevPtr->nextPtr = imagePtr->nextPtr;
+    }
+    ckfree((char *) imagePtr);
+
+    /* 
+     * If there are no more instances left for the master, and if the
+     * master image has been deleted, then delete the master too.
+     */
+
+    if ((masterPtr->typePtr == NULL) && (masterPtr->instancePtr == NULL)) {
+	Tcl_DeleteHashEntry(masterPtr->hPtr);
+	ckfree((char *) masterPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_RedrawImage --
+ *
+ *	This procedure is called by widgets that contain images in order
+ *	to redisplay an image on the screen or an off-screen pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image's manager is notified, and it redraws the desired
+ *	portion of the image before returning.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_RedrawImage(image, imageX, imageY, width, height, drawable,
+	drawableX, drawableY)
+    Tk_Image image;		/* Token for image to redisplay. */
+    int imageX, imageY;		/* Upper-left pixel of region in image that
+				 * needs to be redisplayed. */
+    int width, height;		/* Dimensions of region to redraw. */
+    Drawable drawable;		/* Drawable in which to display image
+				 * (window or pixmap).  If this is a pixmap,
+				 * it must have the same depth as the window
+				 * used in the Tk_GetImage call for the
+				 * image. */
+    int drawableX, drawableY;	/* Coordinates in drawable that correspond
+				 * to imageX and imageY. */
+{
+    Image *imagePtr = (Image *) image;
+
+    if (imagePtr->masterPtr->typePtr == NULL) {
+	/*
+	 * No master for image, so nothing to display.
+	 */
+
+	return;
+    }
+
+    /*
+     * Clip the redraw area to the area of the image.
+     */
+
+    if (imageX < 0) {
+	width += imageX;
+	drawableX -= imageX;
+	imageX = 0;
+    }
+    if (imageY < 0) {
+	height += imageY;
+	drawableY -= imageY;
+	imageY = 0;
+    }
+    if ((imageX + width) > imagePtr->masterPtr->width) {
+	width = imagePtr->masterPtr->width - imageX;
+    }
+    if ((imageY + height) > imagePtr->masterPtr->height) {
+	height = imagePtr->masterPtr->height - imageY;
+    }
+    (*imagePtr->masterPtr->typePtr->displayProc)(
+	    imagePtr->instanceData, imagePtr->display, drawable,
+	    imageX, imageY, width, height, drawableX, drawableY);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SizeOfImage --
+ *
+ *	This procedure returns the current dimensions of an image.
+ *
+ * Results:
+ *	The width and height of the image are returned in *widthPtr
+ *	and *heightPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SizeOfImage(image, widthPtr, heightPtr)
+    Tk_Image image;		/* Token for image whose size is wanted. */
+    int *widthPtr;		/* Return width of image here. */
+    int *heightPtr;		/* Return height of image here. */
+{
+    Image *imagePtr = (Image *) image;
+
+    *widthPtr = imagePtr->masterPtr->width;
+    *heightPtr = imagePtr->masterPtr->height;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DeleteImage --
+ *
+ *	Given the name of an image, this procedure destroys the
+ *	image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image is destroyed; existing instances will display as
+ *	blank areas.  If no such image exists then the procedure does
+ *	nothing.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_DeleteImage(interp, name)
+    Tcl_Interp *interp;		/* Interpreter in which the image was
+				 * created. */
+    char *name;			/* Name of image. */
+{
+    Tcl_HashEntry *hPtr;
+    Tcl_CmdInfo info;
+    TkWindow *winPtr;
+
+    if (Tcl_GetCommandInfo(interp, "winfo", &info) == 0) {
+	return;
+    }
+    winPtr = (TkWindow *) info.clientData;
+    hPtr = Tcl_FindHashEntry(&winPtr->mainPtr->imageTable, name);
+    if (hPtr == NULL) {
+	return;
+    }
+    DeleteImage((ImageMaster *) Tcl_GetHashValue(hPtr));
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteImage --
+ *
+ *	This procedure is responsible for deleting an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The connection is dropped between instances of this image and
+ *	an image master.  Image instances will redisplay themselves
+ *	as empty areas, but existing instances will not be deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteImage(masterPtr)
+    ImageMaster *masterPtr;	/* Pointer to main data structure for image. */
+{
+    Image *imagePtr;
+    Tk_ImageType *typePtr;
+
+    typePtr = masterPtr->typePtr;
+    masterPtr->typePtr = NULL;
+    if (typePtr != NULL) {
+	for (imagePtr = masterPtr->instancePtr; imagePtr != NULL;
+		imagePtr = imagePtr->nextPtr) {
+	   (*typePtr->freeProc)(imagePtr->instanceData,
+		   imagePtr->display);
+	   (*imagePtr->changeProc)(imagePtr->widgetClientData, 0, 0,
+		    masterPtr->width, masterPtr->height, masterPtr->width,
+		    masterPtr->height);
+	}
+	(*typePtr->deleteProc)(masterPtr->masterData);
+    }
+    if (masterPtr->instancePtr == NULL) {
+	Tcl_DeleteHashEntry(masterPtr->hPtr);
+	ckfree((char *) masterPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkDeleteAllImages --
+ *
+ *	This procedure is called when an application is deleted.  It
+ *	calls back all of the managers for all images so that they
+ *	can cleanup, then it deletes all of Tk's internal information
+ *	about images.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All information for all images gets deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkDeleteAllImages(mainPtr)
+    TkMainInfo *mainPtr;	/* Structure describing application that is
+				 * going away. */
+{
+    Tcl_HashSearch search;
+    Tcl_HashEntry *hPtr;
+    ImageMaster *masterPtr;
+
+    for (hPtr = Tcl_FirstHashEntry(&mainPtr->imageTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	masterPtr = (ImageMaster *) Tcl_GetHashValue(hPtr);
+	DeleteImage(masterPtr);
+    }
+    Tcl_DeleteHashTable(&mainPtr->imageTable);
+}
diff --git a/Tk/generic/tkImgBmap.c b/Tk/generic/tkImgBmap.c
new file mode 100644
index 0000000..365ce22
--- /dev/null
+++ b/Tk/generic/tkImgBmap.c
@@ -0,0 +1,1024 @@
+/* 
+ * tkImgBmap.c --
+ *
+ *	This procedure implements images of type "bitmap" for Tk.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkImgBmap.c 1.28 96/07/31 16:45:26
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The following data structure represents the master for a bitmap
+ * image:
+ */
+
+typedef struct BitmapMaster {
+    Tk_ImageMaster tkMaster;	/* Tk's token for image master.  NULL means
+				 * the image is being deleted. */
+    Tcl_Interp *interp;		/* Interpreter for application that is
+				 * using image. */
+    Tcl_Command imageCmd;	/* Token for image command (used to delete
+				 * it when the image goes away).  NULL means
+				 * the image command has already been
+				 * deleted. */
+    int width, height;		/* Dimensions of image. */
+    char *data;			/* Data comprising bitmap (suitable for
+				 * input to XCreateBitmapFromData).   May
+				 * be NULL if no data.  Malloc'ed. */
+    char *maskData;		/* Data for bitmap's mask (suitable for
+				 * input to XCreateBitmapFromData).
+				 * Malloc'ed. */
+    Tk_Uid fgUid;		/* Value of -foreground option (malloc'ed). */
+    Tk_Uid bgUid;		/* Value of -background option (malloc'ed). */
+    char *fileString;		/* Value of -file option (malloc'ed). */
+    char *dataString;		/* Value of -data option (malloc'ed). */
+    char *maskFileString;	/* Value of -maskfile option (malloc'ed). */
+    char *maskDataString;	/* Value of -maskdata option (malloc'ed). */
+    struct BitmapInstance *instancePtr;
+				/* First in list of all instances associated
+				 * with this master. */
+} BitmapMaster;
+
+/*
+ * The following data structure represents all of the instances of an
+ * image that lie within a particular window:
+ */
+
+typedef struct BitmapInstance {
+    int refCount;		/* Number of instances that share this
+				 * data structure. */
+    BitmapMaster *masterPtr;	/* Pointer to master for image. */
+    Tk_Window tkwin;		/* Window in which the instances will be
+				 * displayed. */
+    XColor *fg;			/* Foreground color for displaying image. */
+    XColor *bg;			/* Background color for displaying image. */
+    Pixmap bitmap;		/* The bitmap to display. */
+    Pixmap mask;		/* Mask: only display bitmap pixels where
+				 * there are 1's here. */
+    GC gc;			/* Graphics context for displaying bitmap.
+				 * None means there was an error while
+				 * setting up the instance, so it cannot
+				 * be displayed. */
+    struct BitmapInstance *nextPtr;
+				/* Next in list of all instance structures
+				 * associated with masterPtr (NULL means
+				 * end of list). */
+} BitmapInstance;
+
+/*
+ * The type record for bitmap images:
+ */
+
+static int		ImgBmapCreate _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int argc, char **argv,
+			    Tk_ImageType *typePtr, Tk_ImageMaster master,
+			    ClientData *clientDataPtr));
+static ClientData	ImgBmapGet _ANSI_ARGS_((Tk_Window tkwin,
+			    ClientData clientData));
+static void		ImgBmapDisplay _ANSI_ARGS_((ClientData clientData,
+			    Display *display, Drawable drawable, 
+			    int imageX, int imageY, int width, int height,
+			    int drawableX, int drawableY));
+static void		ImgBmapFree _ANSI_ARGS_((ClientData clientData,
+			    Display *display));
+static void		ImgBmapDelete _ANSI_ARGS_((ClientData clientData));
+
+Tk_ImageType tkBitmapImageType = {
+    "bitmap",			/* name */
+    ImgBmapCreate,		/* createProc */
+    ImgBmapGet,			/* getProc */
+    ImgBmapDisplay,		/* displayProc */
+    ImgBmapFree,		/* freeProc */
+    ImgBmapDelete,		/* deleteProc */
+    (Tk_ImageType *) NULL	/* nextPtr */
+};
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_UID, "-background", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(BitmapMaster, bgUid), 0},
+    {TK_CONFIG_STRING, "-data", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapMaster, dataString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-file", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapMaster, fileString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-foreground", (char *) NULL, (char *) NULL,
+	"#000000", Tk_Offset(BitmapMaster, fgUid), 0},
+    {TK_CONFIG_STRING, "-maskdata", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapMaster, maskDataString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-maskfile", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(BitmapMaster, maskFileString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * The following data structure is used to describe the state of
+ * parsing a bitmap file or string.  It is used for communication
+ * between TkGetBitmapData and NextBitmapWord.
+ */
+
+#define MAX_WORD_LENGTH 100
+typedef struct ParseInfo {
+    char *string;		/* Next character of string data for bitmap,
+				 * or NULL if bitmap is being read from
+				 * file. */
+    FILE *f;			/* File containing bitmap data, or NULL
+				 * if no file. */
+    char word[MAX_WORD_LENGTH+1];
+				/* Current word of bitmap data, NULL
+				 * terminated. */
+    int wordLength;		/* Number of non-NULL bytes in word. */
+} ParseInfo;
+
+/*
+ * Prototypes for procedures used only locally in this file:
+ */
+
+static int		ImgBmapCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		ImgBmapCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		ImgBmapConfigureInstance _ANSI_ARGS_((
+			    BitmapInstance *instancePtr));
+static int		ImgBmapConfigureMaster _ANSI_ARGS_((
+			    BitmapMaster *masterPtr, int argc, char **argv,
+			    int flags));
+static int		NextBitmapWord _ANSI_ARGS_((ParseInfo *parseInfoPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapCreate --
+ *
+ *	This procedure is called by the Tk image code to create "test"
+ *	images.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	The data structure for a new image is allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ImgBmapCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
+    Tcl_Interp *interp;		/* Interpreter for application containing
+				 * image. */
+    char *name;			/* Name to use for image. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings for options (doesn't
+				 * include image name or type). */
+    Tk_ImageType *typePtr;	/* Pointer to our type record (not used). */
+    Tk_ImageMaster master;	/* Token for image, to be used by us in
+				 * later callbacks. */
+    ClientData *clientDataPtr;	/* Store manager's token for image here;
+				 * it will be returned in later callbacks. */
+{
+    BitmapMaster *masterPtr;
+
+    masterPtr = (BitmapMaster *) ckalloc(sizeof(BitmapMaster));
+    masterPtr->tkMaster = master;
+    masterPtr->interp = interp;
+    masterPtr->imageCmd = Tcl_CreateCommand(interp, name, ImgBmapCmd,
+	    (ClientData) masterPtr, ImgBmapCmdDeletedProc);
+    masterPtr->width = masterPtr->height = 0;
+    masterPtr->data = NULL;
+    masterPtr->maskData = NULL;
+    masterPtr->fgUid = NULL;
+    masterPtr->bgUid = NULL;
+    masterPtr->fileString = NULL;
+    masterPtr->dataString = NULL;
+    masterPtr->maskFileString = NULL;
+    masterPtr->maskDataString = NULL;
+    masterPtr->instancePtr = NULL;
+    if (ImgBmapConfigureMaster(masterPtr, argc, argv, 0) != TCL_OK) {
+	ImgBmapDelete((ClientData) masterPtr);
+	return TCL_ERROR;
+    }
+    *clientDataPtr = (ClientData) masterPtr;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapConfigureMaster --
+ *
+ *	This procedure is called when a bitmap image is created or
+ *	reconfigured.  It process configuration options and resets
+ *	any instances of the image.
+ *
+ * Results:
+ *	A standard Tcl return value.  If TCL_ERROR is returned then
+ *	an error message is left in masterPtr->interp->result.
+ *
+ * Side effects:
+ *	Existing instances of the image will be redisplayed to match
+ *	the new configuration options.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ImgBmapConfigureMaster(masterPtr, argc, argv, flags)
+    BitmapMaster *masterPtr;	/* Pointer to data structure describing
+				 * overall bitmap image to (reconfigure). */
+    int argc;			/* Number of entries in argv. */
+    char **argv;		/* Pairs of configuration options for image. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget,
+				 * such as TK_CONFIG_ARGV_ONLY. */
+{
+    BitmapInstance *instancePtr;
+    int maskWidth, maskHeight, dummy1, dummy2;
+
+    if (Tk_ConfigureWidget(masterPtr->interp, Tk_MainWindow(masterPtr->interp),
+	    configSpecs, argc, argv, (char *) masterPtr, flags)
+	    != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Parse the bitmap and/or mask to create binary data.  Make sure that
+     * the bitmap and mask have the same dimensions.
+     */
+
+    if (masterPtr->data != NULL) {
+	ckfree(masterPtr->data);
+	masterPtr->data = NULL;
+    }
+    if ((masterPtr->fileString != NULL) || (masterPtr->dataString != NULL)) {
+	masterPtr->data = TkGetBitmapData(masterPtr->interp,
+		masterPtr->dataString, masterPtr->fileString,
+		&masterPtr->width, &masterPtr->height, &dummy1, &dummy2);
+	if (masterPtr->data == NULL) {
+	    return TCL_ERROR;
+	}
+    }
+    if (masterPtr->maskData != NULL) {
+	ckfree(masterPtr->maskData);
+	masterPtr->maskData = NULL;
+    }
+    if ((masterPtr->maskFileString != NULL)
+	    || (masterPtr->maskDataString != NULL)) {
+	if (masterPtr->data == NULL) {
+	    masterPtr->interp->result = "can't have mask without bitmap";
+	    return TCL_ERROR;
+	}
+	masterPtr->maskData = TkGetBitmapData(masterPtr->interp,
+		masterPtr->maskDataString, masterPtr->maskFileString,
+		&maskWidth, &maskHeight, &dummy1, &dummy2);
+	if (masterPtr->maskData == NULL) {
+	    return TCL_ERROR;
+	}
+	if ((maskWidth != masterPtr->width)
+		|| (maskHeight != masterPtr->height)) {
+	    ckfree(masterPtr->maskData);
+	    masterPtr->maskData = NULL;
+	    masterPtr->interp->result = "bitmap and mask have different sizes";
+	    return TCL_ERROR;
+	}
+    }
+
+    /*
+     * Cycle through all of the instances of this image, regenerating
+     * the information for each instance.  Then force the image to be
+     * redisplayed everywhere that it is used.
+     */
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	ImgBmapConfigureInstance(instancePtr);
+    }
+    Tk_ImageChanged(masterPtr->tkMaster, 0, 0, masterPtr->width,
+	    masterPtr->height, masterPtr->width, masterPtr->height);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapConfigureInstance --
+ *
+ *	This procedure is called to create displaying information for
+ *	a bitmap image instance based on the configuration information
+ *	in the master.  It is invoked both when new instances are
+ *	created and when the master is reconfigured.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Generates errors via Tcl_BackgroundError if there are problems
+ *	in setting up the instance.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgBmapConfigureInstance(instancePtr)
+    BitmapInstance *instancePtr;	/* Instance to reconfigure. */
+{
+    BitmapMaster *masterPtr = instancePtr->masterPtr;
+    XColor *colorPtr;
+    XGCValues gcValues;
+    GC gc;
+    unsigned int mask;
+
+    /*
+     * For each of the options in masterPtr, translate the string
+     * form into an internal form appropriate for instancePtr.
+     */
+
+    if (*masterPtr->bgUid != 0) {
+	colorPtr = Tk_GetColor(masterPtr->interp, instancePtr->tkwin,
+		masterPtr->bgUid);
+	if (colorPtr == NULL) {
+	    goto error;
+	}
+    } else {
+	colorPtr = NULL;
+    }
+    if (instancePtr->bg != NULL) {
+	Tk_FreeColor(instancePtr->bg);
+    }
+    instancePtr->bg = colorPtr;
+
+    colorPtr = Tk_GetColor(masterPtr->interp, instancePtr->tkwin,
+	    masterPtr->fgUid);
+    if (colorPtr == NULL) {
+	goto error;
+    }
+    if (instancePtr->fg != NULL) {
+	Tk_FreeColor(instancePtr->fg);
+    }
+    instancePtr->fg = colorPtr;
+
+    if (instancePtr->bitmap != None) {
+	Tk_FreePixmap(Tk_Display(instancePtr->tkwin), instancePtr->bitmap);
+	instancePtr->bitmap = None;
+    }
+    if (masterPtr->data != NULL) {
+	instancePtr->bitmap = XCreateBitmapFromData(
+		Tk_Display(instancePtr->tkwin),
+		RootWindowOfScreen(Tk_Screen(instancePtr->tkwin)),
+		masterPtr->data, (unsigned) masterPtr->width,
+		(unsigned) masterPtr->height);
+    }
+
+    if (instancePtr->mask != None) {
+	Tk_FreePixmap(Tk_Display(instancePtr->tkwin), instancePtr->mask);
+	instancePtr->mask = None;
+    }
+    if (masterPtr->maskData != NULL) {
+	instancePtr->mask = XCreateBitmapFromData(
+		Tk_Display(instancePtr->tkwin),
+		RootWindowOfScreen(Tk_Screen(instancePtr->tkwin)),
+		masterPtr->maskData, (unsigned) masterPtr->width,
+		(unsigned) masterPtr->height);
+    }
+
+    if (masterPtr->data != NULL) {
+	gcValues.foreground = instancePtr->fg->pixel;
+	gcValues.graphics_exposures = False;
+	mask = GCForeground|GCGraphicsExposures;
+	if (instancePtr->bg != NULL) {
+	    gcValues.background = instancePtr->bg->pixel;
+	    mask |= GCBackground;
+	    if (instancePtr->mask != None) {
+		gcValues.clip_mask = instancePtr->mask;
+		mask |= GCClipMask;
+	    }
+	} else {
+	    gcValues.clip_mask = instancePtr->bitmap;
+	    mask |= GCClipMask;
+	}
+	gc = Tk_GetGC(instancePtr->tkwin, mask, &gcValues);
+    } else {
+	gc = None;
+    }
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(Tk_Display(instancePtr->tkwin), instancePtr->gc);
+    }
+    instancePtr->gc = gc;
+    return;
+
+    error:
+    /*
+     * An error occurred: clear the graphics context in the instance to
+     * make it clear that this instance cannot be displayed.  Then report
+     * the error.
+     */
+
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(Tk_Display(instancePtr->tkwin), instancePtr->gc);
+    }
+    instancePtr->gc = None;
+    Tcl_AddErrorInfo(masterPtr->interp, "\n    (while configuring image \"");
+    Tcl_AddErrorInfo(masterPtr->interp, Tk_NameOfImage(masterPtr->tkMaster));
+    Tcl_AddErrorInfo(masterPtr->interp, "\")");
+    Tcl_BackgroundError(masterPtr->interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetBitmapData --
+ *
+ *	Given a file name or ASCII string, this procedure parses the
+ *	file or string contents to produce binary data for a bitmap.
+ *
+ * Results:
+ *	If the bitmap description was parsed successfully then the
+ *	return value is a malloc-ed array containing the bitmap data.
+ *	The dimensions of the data are stored in *widthPtr and
+ *	*heightPtr.  *hotXPtr and *hotYPtr are set to the bitmap
+ *	hotspot if one is defined, otherwise they are set to -1, -1.
+ *	If an error occurred, NULL is returned and an error message is
+ *	left in interp->result.
+ *
+ * Side effects:
+ *	A bitmap is created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+TkGetBitmapData(interp, string, fileName, widthPtr, heightPtr,
+	hotXPtr, hotYPtr)
+    Tcl_Interp *interp;			/* For reporting errors. */
+    char *string;			/* String describing bitmap.  May
+					 * be NULL. */
+    char *fileName;			/* Name of file containing bitmap
+					 * description.  Used only if string
+					 * is NULL.  Must not be NULL if
+					 * string is NULL. */
+    int *widthPtr, *heightPtr;		/* Dimensions of bitmap get returned
+					 * here. */
+    int *hotXPtr, *hotYPtr;		/* Position of hot spot or -1,-1. */
+{
+    int width, height, numBytes, hotX, hotY;
+    char *p, *end, *expandedFileName;
+    ParseInfo pi;
+    char *data = NULL;
+    Tcl_DString buffer;
+
+    pi.string = string;
+    if (string == NULL) {
+	expandedFileName = Tcl_TranslateFileName(interp, fileName, &buffer);
+	if (expandedFileName == NULL) {
+	    return NULL;
+	}
+	pi.f = fopen(expandedFileName, "r");
+	Tcl_DStringFree(&buffer);
+	if (pi.f == NULL) {
+	    Tcl_AppendResult(interp, "couldn't read bitmap file \"",
+		    fileName, "\": ", Tcl_PosixError(interp), (char *) NULL);
+	    return NULL;
+	}
+    } else {
+	pi.f = NULL;
+    }
+
+    /*
+     * Parse the lines that define the dimensions of the bitmap,
+     * plus the first line that defines the bitmap data (it declares
+     * the name of a data variable but doesn't include any actual
+     * data).  These lines look something like the following:
+     *
+     *		#define foo_width 16
+     *		#define foo_height 16
+     *		#define foo_x_hot 3
+     *		#define foo_y_hot 3
+     *		static char foo_bits[] = {
+     *
+     * The x_hot and y_hot lines may or may not be present.  It's
+     * important to check for "char" in the last line, in order to
+     * reject old X10-style bitmaps that used shorts.
+     */
+
+    width = 0;
+    height = 0;
+    hotX = -1;
+    hotY = -1;
+    while (1) {
+	if (NextBitmapWord(&pi) != TCL_OK) {
+	    goto error;
+	}
+	if ((pi.wordLength >= 6) && (pi.word[pi.wordLength-6] == '_')
+		&& (strcmp(pi.word+pi.wordLength-6, "_width") == 0)) {
+	    if (NextBitmapWord(&pi) != TCL_OK) {
+		goto error;
+	    }
+	    width = strtol(pi.word, &end, 0);
+	    if ((end == pi.word) || (*end != 0)) {
+		goto error;
+	    }
+	} else if ((pi.wordLength >= 7) && (pi.word[pi.wordLength-7] == '_')
+		&& (strcmp(pi.word+pi.wordLength-7, "_height") == 0)) {
+	    if (NextBitmapWord(&pi) != TCL_OK) {
+		goto error;
+	    }
+	    height = strtol(pi.word, &end, 0);
+	    if ((end == pi.word) || (*end != 0)) {
+		goto error;
+	    }
+	} else if ((pi.wordLength >= 6) && (pi.word[pi.wordLength-6] == '_')
+		&& (strcmp(pi.word+pi.wordLength-6, "_x_hot") == 0)) {
+	    if (NextBitmapWord(&pi) != TCL_OK) {
+		goto error;
+	    }
+	    hotX = strtol(pi.word, &end, 0);
+	    if ((end == pi.word) || (*end != 0)) {
+		goto error;
+	    }
+	} else if ((pi.wordLength >= 6) && (pi.word[pi.wordLength-6] == '_')
+		&& (strcmp(pi.word+pi.wordLength-6, "_y_hot") == 0)) {
+	    if (NextBitmapWord(&pi) != TCL_OK) {
+		goto error;
+	    }
+	    hotY = strtol(pi.word, &end, 0);
+	    if ((end == pi.word) || (*end != 0)) {
+		goto error;
+	    }
+	} else if ((pi.word[0] == 'c') && (strcmp(pi.word, "char") == 0)) {
+	    while (1) {
+		if (NextBitmapWord(&pi) != TCL_OK) {
+		    goto error;
+		}
+		if ((pi.word[0] == '{') && (pi.word[1] == 0)) {
+		    goto getData;
+		}
+	    }
+	} else if ((pi.word[0] == '{') && (pi.word[1] == 0)) {
+	    Tcl_AppendResult(interp, "format error in bitmap data; ",
+		    "looks like it's an obsolete X10 bitmap file",
+		    (char *) NULL);
+	    goto errorCleanup;
+	}
+    }
+
+    /*
+     * Now we've read everything but the data.  Allocate an array
+     * and read in the data.
+     */
+
+    getData:
+    if ((width <= 0) || (height <= 0)) {
+	goto error;
+    }
+    numBytes = ((width+7)/8) * height;
+    data = (char *) ckalloc((unsigned) numBytes);
+    for (p = data; numBytes > 0; p++, numBytes--) {
+	if (NextBitmapWord(&pi) != TCL_OK) {
+	    goto error;
+	}
+	*p = strtol(pi.word, &end, 0);
+	if (end == pi.word) {
+	    goto error;
+	}
+    }
+
+    /*
+     * All done.  Clean up and return.
+     */
+
+    if (pi.f != NULL) {
+	fclose(pi.f);
+    }
+    *widthPtr = width;
+    *heightPtr = height;
+    *hotXPtr = hotX;
+    *hotYPtr = hotY;
+    return data;
+
+    error:
+    interp->result = "format error in bitmap data";
+    errorCleanup:
+    if (data != NULL) {
+	ckfree(data);
+    }
+    if (pi.f != NULL) {
+	fclose(pi.f);
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NextBitmapWord --
+ *
+ *	This procedure retrieves the next word of information (stuff
+ *	between commas or white space) from a bitmap description.
+ *
+ * Results:
+ *	Returns TCL_OK if all went well.  In this case the next word,
+ *	and its length, will be availble in *parseInfoPtr.  If the end
+ *	of the bitmap description was reached then TCL_ERROR is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+NextBitmapWord(parseInfoPtr)
+    ParseInfo *parseInfoPtr;		/* Describes what we're reading
+					 * and where we are in it. */
+{
+    char *src, *dst;
+    int c;
+
+    parseInfoPtr->wordLength = 0;
+    dst = parseInfoPtr->word;
+    if (parseInfoPtr->string != NULL) {
+	for (src = parseInfoPtr->string; isspace(UCHAR(*src)) || (*src == ',');
+		src++) {
+	    if (*src == 0) {
+		return TCL_ERROR;
+	    }
+	}
+	for ( ; !isspace(UCHAR(*src)) && (*src != ',') && (*src != 0); src++) {
+	    *dst = *src;
+	    dst++;
+	    parseInfoPtr->wordLength++;
+	    if (parseInfoPtr->wordLength > MAX_WORD_LENGTH) {
+		return TCL_ERROR;
+	    }
+	}
+	parseInfoPtr->string = src;
+    } else {
+	for (c = getc(parseInfoPtr->f); isspace(UCHAR(c)) || (c == ',');
+		c = getc(parseInfoPtr->f)) {
+	    if (c == EOF) {
+		return TCL_ERROR;
+	    }
+	}
+	for ( ; !isspace(UCHAR(c)) && (c != ',') && (c != EOF);
+		c = getc(parseInfoPtr->f)) {
+	    *dst = c;
+	    dst++;
+	    parseInfoPtr->wordLength++;
+	    if (parseInfoPtr->wordLength > MAX_WORD_LENGTH) {
+		return TCL_ERROR;
+	    }
+	}
+    }
+    if (parseInfoPtr->wordLength == 0) {
+	return TCL_ERROR;
+    }
+    parseInfoPtr->word[parseInfoPtr->wordLength] = 0;
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ImgBmapCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to an image managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ImgBmapCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about the image master. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    BitmapMaster *masterPtr = (BitmapMaster *) clientData;
+    int c, code;
+    size_t length;
+
+    if (argc < 2) {
+	sprintf(interp->result,
+		"wrong # args: should be \"%.50s option ?arg arg ...?\"",
+		argv[0]);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return Tk_ConfigureValue(interp, Tk_MainWindow(interp), configSpecs,
+		(char *) masterPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    code = Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    code = Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, argv[2], 0);
+	} else {
+	    code = ImgBmapConfigureMaster(masterPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+	return code;
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget or configure", (char *) NULL);
+	return TCL_ERROR;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapGet --
+ *
+ *	This procedure is called for each use of a bitmap image in a
+ *	widget.
+ *
+ * Results:
+ *	The return value is a token for the instance, which is passed
+ *	back to us in calls to ImgBmapDisplay and ImgBmapFree.
+ *
+ * Side effects:
+ *	A data structure is set up for the instance (or, an existing
+ *	instance is re-used for the new one).
+ *
+ *----------------------------------------------------------------------
+ */
+
+static ClientData
+ImgBmapGet(tkwin, masterData)
+    Tk_Window tkwin;		/* Window in which the instance will be
+				 * used. */
+    ClientData masterData;	/* Pointer to our master structure for the
+				 * image. */
+{
+    BitmapMaster *masterPtr = (BitmapMaster *) masterData;
+    BitmapInstance *instancePtr;
+
+    /*
+     * See if there is already an instance for this window.  If so
+     * then just re-use it.
+     */
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	if (instancePtr->tkwin == tkwin) {
+	    instancePtr->refCount++;
+	    return (ClientData) instancePtr;
+	}
+    }
+
+    /*
+     * The image isn't already in use in this window.  Make a new
+     * instance of the image.
+     */
+
+    instancePtr = (BitmapInstance *) ckalloc(sizeof(BitmapInstance));
+    instancePtr->refCount = 1;
+    instancePtr->masterPtr = masterPtr;
+    instancePtr->tkwin = tkwin;
+    instancePtr->fg = NULL;
+    instancePtr->bg = NULL;
+    instancePtr->bitmap = None;
+    instancePtr->mask = None;
+    instancePtr->gc = None;
+    instancePtr->nextPtr = masterPtr->instancePtr;
+    masterPtr->instancePtr = instancePtr;
+    ImgBmapConfigureInstance(instancePtr);
+
+    /*
+     * If this is the first instance, must set the size of the image.
+     */
+
+    if (instancePtr->nextPtr == NULL) {
+	Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, masterPtr->width,
+		masterPtr->height);
+    }
+
+    return (ClientData) instancePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapDisplay --
+ *
+ *	This procedure is invoked to draw a bitmap image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A portion of the image gets rendered in a pixmap or window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgBmapDisplay(clientData, display, drawable, imageX, imageY, width,
+	height, drawableX, drawableY)
+    ClientData clientData;	/* Pointer to BitmapInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display on which to draw image. */
+    Drawable drawable;		/* Pixmap or window in which to draw image. */
+    int imageX, imageY;		/* Upper-left corner of region within image
+				 * to draw. */
+    int width, height;		/* Dimensions of region within image to draw. */
+    int drawableX, drawableY;	/* Coordinates within drawable that
+				 * correspond to imageX and imageY. */
+{
+    BitmapInstance *instancePtr = (BitmapInstance *) clientData;
+    int masking;
+
+    /*
+     * If there's no graphics context, it means that an error occurred
+     * while creating the image instance so it can't be displayed.
+     */
+
+    if (instancePtr->gc == None) {
+	return;
+    }
+
+    /*
+     * If masking is in effect, must modify the mask origin within
+     * the graphics context to line up with the image's origin.
+     * Then draw the image and reset the clip origin, if there's
+     * a mask.
+     */
+
+    masking = (instancePtr->mask != None) || (instancePtr->bg == NULL);
+    if (masking) {
+	XSetClipOrigin(display, instancePtr->gc, drawableX - imageX,
+		drawableY - imageY);
+    }
+    XCopyPlane(display, instancePtr->bitmap, drawable, instancePtr->gc,
+	    imageX, imageY, (unsigned) width, (unsigned) height,
+	    drawableX, drawableY, 1);
+    if (masking) {
+	XSetClipOrigin(display, instancePtr->gc, 0, 0);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapFree --
+ *
+ *	This procedure is called when a widget ceases to use a
+ *	particular instance of an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Internal data structures get cleaned up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgBmapFree(clientData, display)
+    ClientData clientData;	/* Pointer to BitmapInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display containing window that used image. */
+{
+    BitmapInstance *instancePtr = (BitmapInstance *) clientData;
+    BitmapInstance *prevPtr;
+
+    instancePtr->refCount--;
+    if (instancePtr->refCount > 0) {
+	return;
+    }
+
+    /*
+     * There are no more uses of the image within this widget.  Free
+     * the instance structure.
+     */
+
+    if (instancePtr->fg != NULL) {
+	Tk_FreeColor(instancePtr->fg);
+    }
+    if (instancePtr->bg != NULL) {
+	Tk_FreeColor(instancePtr->bg);
+    }
+    if (instancePtr->bitmap != None) {
+	Tk_FreePixmap(display, instancePtr->bitmap);
+    }
+    if (instancePtr->mask != None) {
+	Tk_FreePixmap(display, instancePtr->mask);
+    }
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(display, instancePtr->gc);
+    }
+    if (instancePtr->masterPtr->instancePtr == instancePtr) {
+	instancePtr->masterPtr->instancePtr = instancePtr->nextPtr;
+    } else {
+	for (prevPtr = instancePtr->masterPtr->instancePtr;
+		prevPtr->nextPtr != instancePtr; prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body */
+	}
+	prevPtr->nextPtr = instancePtr->nextPtr;
+    }
+    ckfree((char *) instancePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapDelete --
+ *
+ *	This procedure is called by the image code to delete the
+ *	master structure for an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with the image get freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgBmapDelete(masterData)
+    ClientData masterData;	/* Pointer to BitmapMaster structure for
+				 * image.  Must not have any more instances. */
+{
+    BitmapMaster *masterPtr = (BitmapMaster *) masterData;
+
+    if (masterPtr->instancePtr != NULL) {
+	panic("tried to delete bitmap image when instances still exist");
+    }
+    masterPtr->tkMaster = NULL;
+    if (masterPtr->imageCmd != NULL) {
+	Tcl_DeleteCommand(masterPtr->interp,
+		Tcl_GetCommandName(masterPtr->interp, masterPtr->imageCmd));
+    }
+    if (masterPtr->data != NULL) {
+	ckfree(masterPtr->data);
+    }
+    if (masterPtr->maskData != NULL) {
+	ckfree(masterPtr->maskData);
+    }
+    Tk_FreeOptions(configSpecs, (char *) masterPtr, (Display *) NULL, 0);
+    ckfree((char *) masterPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgBmapCmdDeletedProc --
+ *
+ *	This procedure is invoked when the image command for an image
+ *	is deleted.  It deletes the image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image is deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgBmapCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to BitmapMaster structure for
+				 * image. */
+{
+    BitmapMaster *masterPtr = (BitmapMaster *) clientData;
+
+    masterPtr->imageCmd = NULL;
+    if (masterPtr->tkMaster != NULL) {
+	Tk_DeleteImage(masterPtr->interp, Tk_NameOfImage(masterPtr->tkMaster));
+    }
+}
diff --git a/Tk/generic/tkImgGIF.c b/Tk/generic/tkImgGIF.c
new file mode 100644
index 0000000..08418cc
--- /dev/null
+++ b/Tk/generic/tkImgGIF.c
@@ -0,0 +1,698 @@
+/*
+ * tkImgGIF.c --
+ *
+ * A photo image file handler for GIF files. Reads 87a and 89a GIF files.
+ * At present there is no write function.
+ *
+ * Derived from the giftoppm code found in the pbmplus package 
+ * and tkImgFmtPPM.c in the tk4.0b2 distribution by -
+ *
+ * Reed Wade (wade@cs.utk.edu), University of Tennessee
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * This file also contains code from the giftoppm program, which is
+ * copyrighted as follows:
+ *
+ * +-------------------------------------------------------------------+
+ * | Copyright 1990, David Koblas.                                     |
+ * |   Permission to use, copy, modify, and distribute this software   |
+ * |   and its documentation for any purpose and without fee is hereby |
+ * |   granted, provided that the above copyright notice appear in all |
+ * |   copies and that both that copyright notice and this permission  |
+ * |   notice appear in supporting documentation.  This software is    |
+ * |   provided "as is" without express or implied warranty.           |
+ * +-------------------------------------------------------------------+
+ *
+ * SCCS: @(#) tkImgGIF.c 1.9 96/07/19 09:57:18
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The format record for the GIF file format:
+ */
+
+static int      FileMatchGIF _ANSI_ARGS_((FILE *f, char *fileName,
+		    char *formatString, int *widthPtr, int *heightPtr));
+static int      FileReadGIF  _ANSI_ARGS_((Tcl_Interp *interp,
+		    FILE *f, char *fileName, char *formatString,
+		    Tk_PhotoHandle imageHandle, int destX, int destY,
+		    int width, int height, int srcX, int srcY));
+
+Tk_PhotoImageFormat tkImgFmtGIF = {
+	"GIF",			/* name */
+	FileMatchGIF,   /* fileMatchProc */
+	NULL,           /* stringMatchProc */
+	FileReadGIF,    /* fileReadProc */
+	NULL,           /* stringReadProc */
+	NULL,           /* fileWriteProc */
+	NULL,           /* stringWriteProc */
+};
+
+#define INTERLACE		0x40
+#define LOCALCOLORMAP		0x80
+#define BitSet(byte, bit)	(((byte) & (bit)) == (bit))
+#define MAXCOLORMAPSIZE		256
+#define CM_RED			0
+#define CM_GREEN		1
+#define CM_BLUE			2
+#define MAX_LWZ_BITS		12
+#define LM_to_uint(a,b)         (((b)<<8)|(a))
+#define ReadOK(file,buffer,len)	(fread(buffer, len, 1, file) != 0)
+
+/*
+ * Prototypes for local procedures defined in this file:
+ */
+
+static int		DoExtension _ANSI_ARGS_((FILE *fd, int label,
+			    int *transparent));
+static int		GetCode _ANSI_ARGS_((FILE *fd, int code_size,
+			    int flag));
+static int		GetDataBlock _ANSI_ARGS_((FILE *fd,
+			    unsigned char *buf));
+static int		LWZReadByte _ANSI_ARGS_((FILE *fd, int flag,
+			    int input_code_size));
+static int		ReadColorMap _ANSI_ARGS_((FILE *fd, int number,
+			    unsigned char buffer[3][MAXCOLORMAPSIZE]));
+static int		ReadGIFHeader _ANSI_ARGS_((FILE *f, int *widthPtr,
+			    int *heightPtr));
+static int		ReadImage _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *imagePtr, FILE *fd, int len, int height,
+			    unsigned char cmap[3][MAXCOLORMAPSIZE],
+			    int interlace, int transparent));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileMatchGIF --
+ *
+ *  This procedure is invoked by the photo image type to see if
+ *  a file contains image data in GIF format.
+ *
+ * Results:
+ *  The return value is 1 if the first characters in file f look
+ *  like GIF data, and 0 otherwise.
+ *
+ * Side effects:
+ *  The access position in f may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileMatchGIF(f, fileName, formatString, widthPtr, heightPtr)
+    FILE *f;			/* The image file, open for reading. */
+    char *fileName;		/* The name of the image file. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here if the file is a valid
+				 * raw GIF file. */
+{
+	return ReadGIFHeader(f, widthPtr, heightPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileReadGIF --
+ *
+ *	This procedure is called by the photo image type to read
+ *	GIF format data from a file and write it into a given
+ *	photo image.
+ *
+ * Results:
+ *	A standard TCL completion code.  If TCL_ERROR is returned
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	The access position in file f is changed, and new data is
+ *	added to the image given by imageHandle.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileReadGIF(interp, f, fileName, formatString, imageHandle, destX, destY,
+	width, height, srcX, srcY)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    FILE *f;			/* The image file, open for reading. */
+    char *fileName;		/* The name of the image file. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    Tk_PhotoHandle imageHandle;	/* The photo image to write into. */
+    int destX, destY;		/* Coordinates of top-left pixel in
+				 * photo image to be written to. */
+    int width, height;		/* Dimensions of block of photo image to
+				 * be written to. */
+    int srcX, srcY;		/* Coordinates of top-left pixel to be used
+				 * in image being read. */
+{
+    int fileWidth, fileHeight;
+    int nBytes;
+    Tk_PhotoImageBlock block;
+    unsigned char buf[100];
+    int bitPixel;
+    unsigned int colorResolution;
+    unsigned int background;
+    unsigned int aspectRatio;
+    unsigned char localColorMap[3][MAXCOLORMAPSIZE];
+    unsigned char colorMap[3][MAXCOLORMAPSIZE];
+    int useGlobalColormap;
+    int transparent = -1;
+
+    if (!ReadGIFHeader(f, &fileWidth, &fileHeight)) {
+	Tcl_AppendResult(interp, "couldn't read GIF header from file \"",
+		fileName, "\"", NULL);
+	return TCL_ERROR;
+    }
+    if ((fileWidth <= 0) || (fileHeight <= 0)) {
+	Tcl_AppendResult(interp, "GIF image file \"", fileName,
+		"\" has dimension(s) <= 0", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    if (fread(buf, 1, 3, f) != 3) {
+	return TCL_OK;
+    }
+    bitPixel = 2<<(buf[0]&0x07);
+    colorResolution = (((buf[0]&0x70)>>3)+1);
+    background = buf[1];
+    aspectRatio = buf[2];
+
+    if (BitSet(buf[0], LOCALCOLORMAP)) {    /* Global Colormap */
+	if (!ReadColorMap(f, bitPixel, colorMap)) {
+	    Tcl_AppendResult(interp, "error reading color map",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+    }
+
+    if ((srcX + width) > fileWidth) {
+	width = fileWidth - srcX;
+    }
+    if ((srcY + height) > fileHeight) {
+	height = fileHeight - srcY;
+    }
+    if ((width <= 0) || (height <= 0)
+	    || (srcX >= fileWidth) || (srcY >= fileHeight)) {
+	return TCL_OK;
+    }
+
+    Tk_PhotoExpand(imageHandle, destX + width, destY + height);
+
+    block.width = fileWidth;
+    block.height = fileHeight;
+    block.pixelSize = 3;
+    block.pitch = 3 * fileWidth;
+    block.offset[0] = 0;
+    block.offset[1] = 1;
+    block.offset[2] = 2;
+    nBytes = fileHeight * block.pitch;
+    block.pixelPtr = (unsigned char *) ckalloc((unsigned) nBytes);
+
+    while (1) {
+	if (fread(buf, 1, 1, f) != 1) {
+	    /*
+	     * Premature end of image.  We should really notify
+	     * the user, but for now just show garbage.
+	     */
+
+	    break;
+	}
+
+	if (buf[0] == ';') {
+	    /*
+	     * GIF terminator.
+	     */
+
+	    break;
+	}
+
+	if (buf[0] == '!') {
+	    /*
+	     * This is a GIF extension.
+	     */
+
+	    if (fread(buf, 1, 1, f) != 1) {
+		interp->result =
+			"error reading extension function code in GIF image";
+		goto error;
+	    }
+	    if (DoExtension(f, buf[0], &transparent) < 0) {
+		interp->result = "error reading extension in GIF image";
+		goto error;
+	    }
+	    continue;
+	}
+
+	if (buf[0] != ',') {
+	    /*
+	     * Not a valid start character; ignore it.
+	     */
+	    continue;
+	}
+
+	if (fread(buf, 1, 9, f) != 9) {
+	    interp->result = "couldn't read left/top/width/height in GIF image";
+	    goto error;
+	}
+
+	useGlobalColormap = ! BitSet(buf[8], LOCALCOLORMAP);
+
+	bitPixel = 1<<((buf[8]&0x07)+1);
+
+	if (!useGlobalColormap) {
+	    if (!ReadColorMap(f, bitPixel, localColorMap)) {
+		    Tcl_AppendResult(interp, "error reading color map", 
+			    (char *) NULL);
+		    goto error;
+	    }
+	    if (ReadImage(interp, (char *) block.pixelPtr, f, fileWidth,
+		    fileHeight, localColorMap, BitSet(buf[8], INTERLACE),
+		    transparent) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    if (ReadImage(interp, (char *) block.pixelPtr, f, fileWidth,
+		    fileHeight, colorMap, BitSet(buf[8], INTERLACE),
+		    transparent) != TCL_OK) {
+		goto error;
+	    }
+	}
+	break;
+    }
+
+    Tk_PhotoPutBlock(imageHandle, &block, destX, destY, fileWidth, fileHeight);
+    ckfree((char *) block.pixelPtr);
+    return TCL_OK;
+
+    error:
+    ckfree((char *) block.pixelPtr);
+    return TCL_ERROR;
+
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReadGIFHeader --
+ *
+ *	This procedure reads the GIF header from the beginning of a
+ *	GIF file and returns the dimensions of the image.
+ *
+ * Results:
+ *	The return value is 1 if file "f" appears to start with
+ *	a valid GIF header, 0 otherwise.  If the header is valid,
+ *	then *widthPtr and *heightPtr are modified to hold the
+ *	dimensions of the image.
+ *
+ * Side effects:
+ *	The access position in f advances.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ReadGIFHeader(f, widthPtr, heightPtr)
+    FILE *f;			/* Image file to read the header from */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here. */
+{
+    unsigned char buf[7];
+
+    if ((fread(buf, 1, 6, f) != 6)
+	    || ((strncmp("GIF87a", (char *) buf, 6) != 0)
+	    && (strncmp("GIF89a", (char *) buf, 6) != 0))) {
+	return 0;
+    }
+
+    if (fread(buf, 1, 4, f) != 4) {
+	return 0;
+    }
+
+    *widthPtr = LM_to_uint(buf[0],buf[1]);
+    *heightPtr = LM_to_uint(buf[2],buf[3]);
+    return 1;
+}
+
+/*
+ *-----------------------------------------------------------------
+ * The code below is copied from the giftoppm program and modified
+ * just slightly.
+ *-----------------------------------------------------------------
+ */
+
+static int
+ReadColorMap(fd,number,buffer)
+FILE        *fd;
+int     number;
+unsigned char   buffer[3][MAXCOLORMAPSIZE];
+{
+	int     i;
+	unsigned char   rgb[3];
+
+	for (i = 0; i < number; ++i) {
+		if (! ReadOK(fd, rgb, sizeof(rgb)))
+			return 0;
+
+		buffer[CM_RED][i] = rgb[0] ;
+		buffer[CM_GREEN][i] = rgb[1] ;
+		buffer[CM_BLUE][i] = rgb[2] ;
+	}
+	return 1;
+}
+
+
+
+static int
+DoExtension(fd, label, transparent)
+FILE    *fd;
+int label;
+int	*transparent;
+{
+	static unsigned char buf[256];
+	int count = 0;
+
+	switch (label) {
+		case 0x01:      /* Plain Text Extension */
+			break;
+
+		case 0xff:      /* Application Extension */
+			break;
+
+		case 0xfe:      /* Comment Extension */
+			do {
+				count = GetDataBlock(fd, (unsigned char*) buf);
+			} while (count > 0);
+			return count;
+
+		case 0xf9:      /* Graphic Control Extension */
+			count = GetDataBlock(fd, (unsigned char*) buf);
+			if (count < 0) {
+				return 1;
+			}
+			if ((buf[0] & 0x1) != 0) {
+				*transparent = buf[3];
+			}
+
+			do {
+			    count = GetDataBlock(fd, (unsigned char*) buf);
+			} while (count > 0);
+			return count;
+	}
+
+	do {
+	    count = GetDataBlock(fd, (unsigned char*) buf);
+	} while (count > 0);
+	return count;
+}
+
+static int ZeroDataBlock = 0;
+
+static int
+GetDataBlock(fd, buf)
+FILE        *fd;
+unsigned char   *buf;
+{
+	unsigned char   count;
+
+	if (! ReadOK(fd,&count,1)) {
+		return -1;
+	}
+
+	ZeroDataBlock = count == 0;
+
+	if ((count != 0) && (! ReadOK(fd, buf, count))) {
+		return -1;
+	}
+
+	return count;
+}
+
+
+static int
+ReadImage(interp, imagePtr, fd, len, height, cmap, interlace, transparent)
+Tcl_Interp *interp;
+char 	*imagePtr;
+FILE    *fd;
+int len, height;
+unsigned char   cmap[3][MAXCOLORMAPSIZE];
+int interlace;
+int transparent;
+{
+	unsigned char   c;
+	int     v;
+	int     xpos = 0, ypos = 0, pass = 0;
+	char 	*colStr;
+
+
+	/*
+	 *  Initialize the Compression routines
+	 */
+	if (! ReadOK(fd,&c,1))  {
+	    Tcl_AppendResult(interp, "error reading GIF image: ",
+		    Tcl_PosixError(interp), (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	if (LWZReadByte(fd, 1, c) < 0) {
+	    interp->result = "format error in GIF image";
+	    return TCL_ERROR;
+	}
+
+	if (transparent != -1) {
+	    colStr = Tcl_GetVar(interp, "TRANSPARENT_GIF_COLOR", 0L);
+	    if (colStr != NULL) {
+	        XColor *colorPtr;
+	        colorPtr = Tk_GetColor(interp, Tk_MainWindow(interp), 
+			Tk_GetUid(colStr));
+		if (colorPtr) {
+		    cmap[CM_RED][transparent] = colorPtr->red >> 8;
+		    cmap[CM_GREEN][transparent] = colorPtr->green >> 8;
+		    cmap[CM_BLUE][transparent] = colorPtr->blue >> 8;
+		    Tk_FreeColor(colorPtr);
+		}
+	    }
+	}
+
+	while ((v = LWZReadByte(fd,0,c)) >= 0 ) {
+
+		imagePtr[ (xpos*3)  +  (ypos *len*3)] = cmap[CM_RED][v];
+		imagePtr[ (xpos*3)  +  (ypos *len*3) +1] = cmap[CM_GREEN][v];
+		imagePtr[ (xpos*3)  +  (ypos *len*3) +2] = cmap[CM_BLUE][v];
+
+		++xpos;
+		if (xpos == len) {
+			xpos = 0;
+			if (interlace) {
+				switch (pass) {
+					case 0:
+					case 1:
+						ypos += 8; break;
+					case 2:
+						ypos += 4; break;
+					case 3:
+						ypos += 2; break;
+				}
+
+				if (ypos >= height) {
+					++pass;
+					switch (pass) {
+						case 1:
+							ypos = 4; break;
+						case 2:
+							ypos = 2; break;
+						case 3:
+							ypos = 1; break;
+						default:
+							return TCL_OK;
+					}
+				}
+			} else {
+				++ypos;
+			}
+		}
+		if (ypos >= height)
+			break;
+	}
+	return TCL_OK;
+}
+
+static int
+LWZReadByte(fd, flag, input_code_size)
+FILE    *fd;
+int flag;
+int input_code_size;
+{
+	static int  fresh = 0;
+	int     code, incode;
+	static int  code_size, set_code_size;
+	static int  max_code, max_code_size;
+	static int  firstcode, oldcode;
+	static int  clear_code, end_code;
+	static int  table[2][(1<< MAX_LWZ_BITS)];
+	static int  stack[(1<<(MAX_LWZ_BITS))*2], *sp;
+	register int    i;
+
+
+	if (flag) {
+
+		set_code_size = input_code_size;
+		code_size = set_code_size+1;
+		clear_code = 1 << set_code_size ;
+		end_code = clear_code + 1;
+		max_code_size = 2*clear_code;
+		max_code = clear_code+2;
+
+		GetCode(fd, 0, 1);
+
+		fresh = 1;
+
+		for (i = 0; i < clear_code; ++i) {
+			table[0][i] = 0;
+			table[1][i] = i;
+		}
+		for (; i < (1<<MAX_LWZ_BITS); ++i) {
+			table[0][i] = table[1][0] = 0;
+		}
+
+		sp = stack;
+
+		return 0;
+
+	} else if (fresh) {
+
+		fresh = 0;
+		do {
+			firstcode = oldcode = GetCode(fd, code_size, 0);
+		} while (firstcode == clear_code);
+		return firstcode;
+	}
+
+	if (sp > stack)
+		return *--sp;
+
+	while ((code = GetCode(fd, code_size, 0)) >= 0) {
+		if (code == clear_code) {
+			for (i = 0; i < clear_code; ++i) {
+				table[0][i] = 0;
+				table[1][i] = i;
+			}
+
+			for (; i < (1<<MAX_LWZ_BITS); ++i) {
+				table[0][i] = table[1][i] = 0;
+			}
+
+			code_size = set_code_size+1;
+			max_code_size = 2*clear_code;
+			max_code = clear_code+2;
+			sp = stack;
+			firstcode = oldcode = GetCode(fd, code_size, 0);
+			return firstcode;
+
+	} else if (code == end_code) {
+		int     count;
+		unsigned char   buf[260];
+
+		if (ZeroDataBlock)
+			return -2;
+
+		while ((count = GetDataBlock(fd, buf)) > 0)
+			;
+
+		if (count != 0)
+			return -2;
+	}
+
+	incode = code;
+
+	if (code >= max_code) {
+		*sp++ = firstcode;
+		code = oldcode;
+	}
+
+	while (code >= clear_code) {
+		*sp++ = table[1][code];
+		if (code == table[0][code]) {
+			return -2;
+
+			/*
+			 * Used to be this instead, Steve Ball suggested
+			 * the change to just return.
+
+			printf("circular table entry BIG ERROR\n");
+			*/
+		}
+		code = table[0][code];
+	}
+
+	*sp++ = firstcode = table[1][code];
+
+	if ((code = max_code) <(1<<MAX_LWZ_BITS)) {
+
+		table[0][code] = oldcode;
+		table[1][code] = firstcode;
+		++max_code;
+		if ((max_code>=max_code_size) && (max_code_size < (1<<MAX_LWZ_BITS))) {
+			max_code_size *= 2;
+			++code_size;
+		}
+	}
+
+	oldcode = incode;
+
+	if (sp > stack)
+		return *--sp;
+	}
+	return code;
+}
+
+
+static int
+GetCode(fd, code_size, flag)
+FILE    *fd;
+int code_size;
+int flag;
+{
+	static unsigned char    buf[280];
+	static int      curbit, lastbit, done, last_byte;
+	int         i, j, ret;
+	unsigned char       count;
+
+	if (flag) {
+		curbit = 0;
+		lastbit = 0;
+		done = 0;
+		return 0;
+	}
+
+
+	if ( (curbit+code_size) >= lastbit) {
+		if (done) {
+			/* ran off the end of my bits */
+			return -1;
+		}
+		buf[0] = buf[last_byte-2];
+		buf[1] = buf[last_byte-1];
+
+		if ((count = GetDataBlock(fd, &buf[2])) == 0)
+			done = 1;
+
+		last_byte = 2 + count;
+		curbit = (curbit - lastbit) + 16;
+		lastbit = (2+count)*8 ;
+	}
+
+	ret = 0;
+	for (i = curbit, j = 0; j < code_size; ++i, ++j)
+		ret |= ((buf[ i / 8 ] & (1 << (i % 8))) != 0) << j;
+
+
+	curbit += code_size;
+
+	return ret;
+}
diff --git a/Tk/generic/tkImgPPM.c b/Tk/generic/tkImgPPM.c
new file mode 100644
index 0000000..b87c02f
--- /dev/null
+++ b/Tk/generic/tkImgPPM.c
@@ -0,0 +1,408 @@
+/*
+ * tkImgPPM.c --
+ *
+ *	A photo image file handler for PPM (Portable PixMap) files.
+ *
+ * Copyright (c) 1994 The Australian National University.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * Author: Paul Mackerras (paulus@cs.anu.edu.au),
+ *	   Department of Computer Science,
+ *	   Australian National University.
+ *
+ * SCCS: @(#) tkImgPPM.c 1.13 96/03/18 14:56:41
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The maximum amount of memory to allocate for data read from the
+ * file.  If we need more than this, we do it in pieces.
+ */
+
+#define MAX_MEMORY	10000		/* don't allocate > 10KB */
+
+/*
+ * Define PGM and PPM, i.e. gray images and color images.
+ */
+
+#define PGM 1
+#define PPM 2
+
+/*
+ * The format record for the PPM file format:
+ */
+
+static int		FileMatchPPM _ANSI_ARGS_((FILE *f, char *fileName,
+			    char *formatString, int *widthPtr,
+			    int *heightPtr));
+static int		FileReadPPM  _ANSI_ARGS_((Tcl_Interp *interp,
+			    FILE *f, char *fileName, char *formatString,
+			    Tk_PhotoHandle imageHandle, int destX, int destY,
+			    int width, int height, int srcX, int srcY));
+static int		FileWritePPM _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *fileName, char *formatString,
+			    Tk_PhotoImageBlock *blockPtr));
+
+Tk_PhotoImageFormat tkImgFmtPPM = {
+    "PPM",			/* name */
+    FileMatchPPM,		/* fileMatchProc */
+    NULL,			/* stringMatchProc */
+    FileReadPPM,		/* fileReadProc */
+    NULL,			/* stringReadProc */
+    FileWritePPM,		/* fileWriteProc */
+    NULL,			/* stringWriteProc */
+};
+
+/*
+ * Prototypes for local procedures defined in this file:
+ */
+
+static int		ReadPPMFileHeader _ANSI_ARGS_((FILE *f, int *widthPtr,
+			    int *heightPtr, int *maxIntensityPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileMatchPPM --
+ *
+ *	This procedure is invoked by the photo image type to see if
+ *	a file contains image data in PPM format.
+ *
+ * Results:
+ *	The return value is >0 if the first characters in file "f" look
+ *	like PPM data, and 0 otherwise.
+ *
+ * Side effects:
+ *	The access position in f may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileMatchPPM(f, fileName, formatString, widthPtr, heightPtr)
+    FILE *f;			/* The image file, open for reading. */
+    char *fileName;		/* The name of the image file. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here if the file is a valid
+				 * raw PPM file. */
+{
+    int dummy;
+
+    return ReadPPMFileHeader(f, widthPtr, heightPtr, &dummy);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileReadPPM --
+ *
+ *	This procedure is called by the photo image type to read
+ *	PPM format data from a file and write it into a given
+ *	photo image.
+ *
+ * Results:
+ *	A standard TCL completion code.  If TCL_ERROR is returned
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	The access position in file f is changed, and new data is
+ *	added to the image given by imageHandle.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileReadPPM(interp, f, fileName, formatString, imageHandle, destX, destY,
+	width, height, srcX, srcY)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    FILE *f;			/* The image file, open for reading. */
+    char *fileName;		/* The name of the image file. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    Tk_PhotoHandle imageHandle;	/* The photo image to write into. */
+    int destX, destY;		/* Coordinates of top-left pixel in
+				 * photo image to be written to. */
+    int width, height;		/* Dimensions of block of photo image to
+				 * be written to. */
+    int srcX, srcY;		/* Coordinates of top-left pixel to be used
+				 * in image being read. */
+{
+    int fileWidth, fileHeight, maxIntensity;
+    int nLines, nBytes, h, type, count;
+    unsigned char *pixelPtr;
+    Tk_PhotoImageBlock block;
+
+    type = ReadPPMFileHeader(f, &fileWidth, &fileHeight, &maxIntensity);
+    if (type == 0) {
+	Tcl_AppendResult(interp, "couldn't read raw PPM header from file \"",
+		fileName, "\"", NULL);
+	return TCL_ERROR;
+    }
+    if ((fileWidth <= 0) || (fileHeight <= 0)) {
+	Tcl_AppendResult(interp, "PPM image file \"", fileName,
+		"\" has dimension(s) <= 0", (char *) NULL);
+	return TCL_ERROR;
+    }
+    if ((maxIntensity <= 0) || (maxIntensity >= 256)) {
+	char buffer[30];
+
+	sprintf(buffer, "%d", maxIntensity);
+	Tcl_AppendResult(interp, "PPM image file \"", fileName,
+		"\" has bad maximum intensity value ", buffer,
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    if ((srcX + width) > fileWidth) {
+	width = fileWidth - srcX;
+    }
+    if ((srcY + height) > fileHeight) {
+	height = fileHeight - srcY;
+    }
+    if ((width <= 0) || (height <= 0)
+	|| (srcX >= fileWidth) || (srcY >= fileHeight)) {
+	return TCL_OK;
+    }
+
+    if (type == PGM) {
+        block.pixelSize = 1;
+        block.offset[0] = 0;
+	block.offset[1] = 0;
+	block.offset[2] = 0;
+    }
+    else {
+        block.pixelSize = 3;
+        block.offset[0] = 0;
+	block.offset[1] = 1;
+	block.offset[2] = 2;
+    }
+    block.width = width;
+    block.pitch = block.pixelSize * fileWidth;
+
+    Tk_PhotoExpand(imageHandle, destX + width, destY + height);
+
+    if (srcY > 0) {
+	fseek(f, (long) (srcY * block.pitch), SEEK_CUR);
+    }
+
+    nLines = (MAX_MEMORY + block.pitch - 1) / block.pitch;
+    if (nLines > height) {
+	nLines = height;
+    }
+    if (nLines <= 0) {
+	nLines = 1;
+    }
+    nBytes = nLines * block.pitch;
+    pixelPtr = (unsigned char *) ckalloc((unsigned) nBytes);
+    block.pixelPtr = pixelPtr + srcX * block.pixelSize;
+
+    for (h = height; h > 0; h -= nLines) {
+	if (nLines > h) {
+	    nLines = h;
+	    nBytes = nLines * block.pitch;
+	}
+	count = fread(pixelPtr, 1, (unsigned) nBytes, f);
+	if (count != nBytes) {
+	    Tcl_AppendResult(interp, "error reading PPM image file \"",
+		    fileName, "\": ",
+		    feof(f) ? "not enough data" : Tcl_PosixError(interp),
+		    (char *) NULL);
+	    ckfree((char *) pixelPtr);
+	    return TCL_ERROR;
+	}
+	if (maxIntensity != 255) {
+	    unsigned char *p;
+
+	    for (p = pixelPtr; count > 0; count--, p++) {
+		*p = (((int) *p) * 255)/maxIntensity;
+	    }
+	}
+	block.height = nLines;
+	Tk_PhotoPutBlock(imageHandle, &block, destX, destY, width, nLines);
+	destY += nLines;
+    }
+
+    ckfree((char *) pixelPtr);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FileWritePPM --
+ *
+ *	This procedure is invoked to write image data to a file in PPM
+ *	format.
+ *
+ * Results:
+ *	A standard TCL completion code.  If TCL_ERROR is returned
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Data is written to the file given by "fileName".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+FileWritePPM(interp, fileName, formatString, blockPtr)
+    Tcl_Interp *interp;
+    char *fileName;
+    char *formatString;
+    Tk_PhotoImageBlock *blockPtr;
+{
+    FILE *f;
+    int w, h;
+    int greenOffset, blueOffset, nBytes;
+    unsigned char *pixelPtr, *pixLinePtr;
+
+    if ((f = fopen(fileName, "wb")) == NULL) {
+	Tcl_AppendResult(interp, fileName, ": ", Tcl_PosixError(interp),
+		(char *)NULL);
+	return TCL_ERROR;
+    }
+
+    fprintf(f, "P6\n%d %d\n255\n", blockPtr->width, blockPtr->height);
+
+    pixLinePtr = blockPtr->pixelPtr + blockPtr->offset[0];
+    greenOffset = blockPtr->offset[1] - blockPtr->offset[0];
+    blueOffset = blockPtr->offset[2] - blockPtr->offset[0];
+
+    if ((greenOffset == 1) && (blueOffset == 2) && (blockPtr->pixelSize == 3)
+	    && (blockPtr->pitch == (blockPtr->width * 3))) {
+	nBytes = blockPtr->height * blockPtr->pitch;
+	if (fwrite(pixLinePtr, 1, (unsigned) nBytes, f) != nBytes) {
+	    goto writeerror;
+	}
+    } else {
+	for (h = blockPtr->height; h > 0; h--) {
+	    pixelPtr = pixLinePtr;
+	    for (w = blockPtr->width; w > 0; w--) {
+		if ((putc(pixelPtr[0], f) == EOF)
+			|| (putc(pixelPtr[greenOffset], f) == EOF)
+			|| (putc(pixelPtr[blueOffset], f) == EOF)) {
+		    goto writeerror;
+		}
+		pixelPtr += blockPtr->pixelSize;
+	    }
+	    pixLinePtr += blockPtr->pitch;
+	}
+    }
+
+    if (fclose(f) == 0) {
+	return TCL_OK;
+    }
+    f = NULL;
+
+ writeerror:
+    Tcl_AppendResult(interp, "error writing \"", fileName, "\": ",
+	    Tcl_PosixError(interp), (char *) NULL);
+    if (f != NULL) {
+	fclose(f);
+    }
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReadPPMFileHeader --
+ *
+ *	This procedure reads the PPM header from the beginning of a
+ *	PPM file and returns information from the header.
+ *
+ * Results:
+ *	The return value is PGM if file "f" appears to start with
+ *	a valid PGM header, PPM if "f" appears to start with a valid
+ *      PPM header, and 0 otherwise.  If the header is valid,
+ *	then *widthPtr and *heightPtr are modified to hold the
+ *	dimensions of the image and *maxIntensityPtr is modified to
+ *	hold the value of a "fully on" intensity value.
+ *
+ * Side effects:
+ *	The access position in f advances.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ReadPPMFileHeader(f, widthPtr, heightPtr, maxIntensityPtr)
+    FILE *f;			/* Image file to read the header from */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here. */
+    int *maxIntensityPtr;	/* The maximum intensity value for
+				 * the image is stored here. */
+{
+#define BUFFER_SIZE 1000
+    char buffer[BUFFER_SIZE];
+    int i, numFields, firstInLine, c;
+    int type = 0;
+
+    /*
+     * Read 4 space-separated fields from the file, ignoring
+     * comments (any line that starts with "#").
+     */
+
+    c = getc(f);
+    firstInLine = 1;
+    i = 0;
+    for (numFields = 0; numFields < 4; numFields++) {
+	/*
+	 * Skip comments and white space.
+	 */
+
+	while (1) {
+	    while (isspace(UCHAR(c))) {
+		firstInLine = (c == '\n');
+		c = getc(f);
+	    }
+	    if (c != '#') {
+		break;
+	    }
+	    do {
+		c = getc(f);
+	    } while ((c != EOF) && (c != '\n'));
+	    firstInLine = 1;
+	}
+
+	/*
+	 * Read a field (everything up to the next white space).
+	 */
+
+	while ((c != EOF) && !isspace(UCHAR(c))) {
+	    if (i < (BUFFER_SIZE-2)) {
+		buffer[i]  = c;
+		i++;
+	    }
+	    c = getc(f);
+	}
+	if (i < (BUFFER_SIZE-1)) {
+	    buffer[i] = ' ';
+	    i++;
+	}
+	firstInLine = 0;
+    }
+    buffer[i] = 0;
+
+    /*
+     * Parse the fields, which are: id, width, height, maxIntensity.
+     */
+
+    if (strncmp(buffer, "P6 ", 3) == 0) {
+	type = PPM;
+    } else if (strncmp(buffer, "P5 ", 3) == 0) {
+	type = PGM;
+    } else {
+	return 0;
+    }
+    if (sscanf(buffer+3, "%d %d %d", widthPtr, heightPtr, maxIntensityPtr)
+	    != 3) {
+	return 0;
+    }
+    return type;
+}
diff --git a/Tk/generic/tkImgPhoto.c b/Tk/generic/tkImgPhoto.c
new file mode 100644
index 0000000..a8b69b1
--- /dev/null
+++ b/Tk/generic/tkImgPhoto.c
@@ -0,0 +1,4119 @@
+/*
+ * tkImgPhoto.c --
+ *
+ *	Implements images of type "photo" for Tk.  Photo images are
+ *	stored in full color (24 bits per pixel) and displayed using
+ *	dithering if necessary.
+ *
+ * Copyright (c) 1994 The Australian National University.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * Author: Paul Mackerras (paulus@cs.anu.edu.au),
+ *	   Department of Computer Science,
+ *	   Australian National University.
+ *
+ * SCCS: @(#) tkImgPhoto.c 1.44 96/03/01 17:35:11
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+#include <math.h>
+#include <ctype.h>
+
+/*
+ * Declaration for internal Xlib function used here:
+ */
+
+extern _XInitImageFuncPtrs _ANSI_ARGS_((XImage *image));
+
+/*
+ * A signed 8-bit integral type.  If chars are unsigned and the compiler
+ * isn't an ANSI one, then we have to use short instead (which wastes
+ * space) to get signed behavior.
+ */
+
+#if defined(__STDC__) || defined(_AIX)
+    typedef signed char schar;
+#else
+#   ifndef __CHAR_UNSIGNED__
+	typedef char schar;
+#   else
+	typedef short schar;
+#   endif
+#endif
+
+/*
+ * An unsigned 32-bit integral type, used for pixel values.
+ * We use int rather than long here to accommodate those systems
+ * where longs are 64 bits.
+ */
+
+typedef unsigned int pixel;
+
+/*
+ * The maximum number of pixels to transmit to the server in a
+ * single XPutImage call.
+ */
+
+#define MAX_PIXELS 65536
+
+/*
+ * The set of colors required to display a photo image in a window depends on:
+ *	- the visual used by the window
+ *	- the palette, which specifies how many levels of each primary
+ *	  color to use, and
+ *	- the gamma value for the image.
+ *
+ * Pixel values allocated for specific colors are valid only for the
+ * colormap in which they were allocated.  Sets of pixel values
+ * allocated for displaying photos are re-used in other windows if
+ * possible, that is, if the display, colormap, palette and gamma
+ * values match.  A hash table is used to locate these sets of pixel
+ * values, using the following data structure as key:
+ */
+
+typedef struct {
+    Display *display;		/* Qualifies the colormap resource ID */
+    Colormap colormap;		/* Colormap that the windows are using. */
+    double gamma;		/* Gamma exponent value for images. */
+    Tk_Uid palette;		/* Specifies how many shades of each primary
+				 * we want to allocate. */
+} ColorTableId;
+
+/*
+ * For a particular (display, colormap, palette, gamma) combination,
+ * a data structure of the following type is used to store the allocated
+ * pixel values and other information:
+ */
+
+typedef struct ColorTable {
+    ColorTableId id;		/* Information used in selecting this
+				 * color table. */
+    int	flags;			/* See below. */
+    int	refCount;		/* Number of instances using this map. */
+    int liveRefCount;		/* Number of instances which are actually
+				 * in use, using this map. */
+    int	numColors;		/* Number of colors allocated for this map. */
+
+    XVisualInfo	visualInfo;	/* Information about the visual for windows
+				 * using this color table. */
+
+    pixel redValues[256];	/* Maps 8-bit values of red intensity
+				 * to a pixel value or index in pixelMap. */
+    pixel greenValues[256];	/* Ditto for green intensity */
+    pixel blueValues[256];	/* Ditto for blue intensity */
+    unsigned long *pixelMap;	/* Actual pixel values allocated. */
+
+    unsigned char colorQuant[3][256];
+				/* Maps 8-bit intensities to quantized
+				 * intensities.  The first index is 0 for
+				 * red, 1 for green, 2 for blue. */
+} ColorTable;
+
+/*
+ * Bit definitions for the flags field of a ColorTable.
+ * BLACK_AND_WHITE:		1 means only black and white colors are
+ *				available.
+ * COLOR_WINDOW:		1 means a full 3-D color cube has been
+ *				allocated.
+ * DISPOSE_PENDING:		1 means a call to DisposeColorTable has
+ *				been scheduled as an idle handler, but it
+ *				hasn't been invoked yet.
+ * MAP_COLORS:			1 means pixel values should be mapped
+ *				through pixelMap.
+ */
+
+#define BLACK_AND_WHITE		1
+#define COLOR_WINDOW		2
+#define DISPOSE_PENDING		4
+#define MAP_COLORS		8
+
+/*
+ * Definition of the data associated with each photo image master.
+ */
+
+typedef struct PhotoMaster {
+    Tk_ImageMaster tkMaster;	/* Tk's token for image master.  NULL means
+				 * the image is being deleted. */
+    Tcl_Interp *interp;		/* Interpreter associated with the
+				 * application using this image. */
+    Tcl_Command imageCmd;	/* Token for image command (used to delete
+				 * it when the image goes away).  NULL means
+				 * the image command has already been
+				 * deleted. */
+    int	flags;			/* Sundry flags, defined below. */
+    int	width, height;		/* Dimensions of image. */
+    int userWidth, userHeight;	/* User-declared image dimensions. */
+    Tk_Uid palette;		/* User-specified default palette for
+				 * instances of this image. */
+    double gamma;		/* Display gamma value to correct for. */
+    char *fileString;		/* Name of file to read into image. */
+    char *dataString;		/* String value to use as contents of image. */
+    char *format;		/* User-specified format of data in image
+				 * file or string value. */
+    unsigned char *pix24;	/* Local storage for 24-bit image. */
+    int ditherX, ditherY;	/* Location of first incorrectly
+				 * dithered pixel in image. */
+    TkRegion validRegion;	/* Tk region indicating which parts of
+				 * the image have valid image data. */
+    struct PhotoInstance *instancePtr;
+				/* First in the list of instances
+				 * associated with this master. */
+} PhotoMaster;
+
+/*
+ * Bit definitions for the flags field of a PhotoMaster.
+ * COLOR_IMAGE:			1 means that the image has different color
+ *				components.
+ * IMAGE_CHANGED:		1 means that the instances of this image
+ *				need to be redithered.
+ */
+
+#define COLOR_IMAGE		1
+#define IMAGE_CHANGED		2
+
+/*
+ * The following data structure represents all of the instances of
+ * a photo image in windows on a given screen that are using the
+ * same colormap.
+ */
+
+typedef struct PhotoInstance {
+    PhotoMaster *masterPtr;	/* Pointer to master for image. */
+    Display *display;		/* Display for windows using this instance. */
+    Colormap colormap;		/* The image may only be used in windows with
+				 * this particular colormap. */
+    struct PhotoInstance *nextPtr;
+				/* Pointer to the next instance in the list
+				 * of instances associated with this master. */
+    int refCount;		/* Number of instances using this structure. */
+    Tk_Uid palette;		/* Palette for these particular instances. */
+    double gamma;		/* Gamma value for these instances. */
+    Tk_Uid defaultPalette;	/* Default palette to use if a palette
+				 * is not specified for the master. */
+    ColorTable *colorTablePtr;	/* Pointer to information about colors
+				 * allocated for image display in windows
+				 * like this one. */
+    Pixmap pixels;		/* X pixmap containing dithered image. */
+    int width, height;		/* Dimensions of the pixmap. */
+    schar *error;		/* Error image, used in dithering. */
+    XImage *imagePtr;		/* Image structure for converted pixels. */
+    XVisualInfo visualInfo;	/* Information about the visual that these
+				 * windows are using. */
+    GC gc;			/* Graphics context for writing images
+				 * to the pixmap. */
+} PhotoInstance;
+
+/*
+ * The following data structure is used to return information
+ * from ParseSubcommandOptions:
+ */
+
+struct SubcommandOptions {
+    int options;		/* Individual bits indicate which
+				 * options were specified - see below. */
+    char *name;			/* Name specified without an option. */
+    int fromX, fromY;		/* Values specified for -from option. */
+    int fromX2, fromY2;		/* Second coordinate pair for -from option. */
+    int toX, toY;		/* Values specified for -to option. */
+    int toX2, toY2;		/* Second coordinate pair for -to option. */
+    int zoomX, zoomY;		/* Values specified for -zoom option. */
+    int subsampleX, subsampleY;	/* Values specified for -subsample option. */
+    char *format;		/* Value specified for -format option. */
+};
+
+/*
+ * Bit definitions for use with ParseSubcommandOptions:
+ * Each bit is set in the allowedOptions parameter on a call to
+ * ParseSubcommandOptions if that option is allowed for the current
+ * photo image subcommand.  On return, the bit is set in the options
+ * field of the SubcommandOptions structure if that option was specified.
+ *
+ * OPT_FORMAT:			Set if -format option allowed/specified.
+ * OPT_FROM:			Set if -from option allowed/specified.
+ * OPT_SHRINK:			Set if -shrink option allowed/specified.
+ * OPT_SUBSAMPLE:		Set if -subsample option allowed/spec'd.
+ * OPT_TO:			Set if -to option allowed/specified.
+ * OPT_ZOOM:			Set if -zoom option allowed/specified.
+ */
+
+#define OPT_FORMAT	1
+#define OPT_FROM	2
+#define OPT_SHRINK	4
+#define OPT_SUBSAMPLE	8
+#define OPT_TO		0x10
+#define OPT_ZOOM	0x20
+
+/*
+ * List of option names.  The order here must match the order of
+ * declarations of the OPT_* constants above.
+ */
+
+static char *optionNames[] = {
+    "-format",
+    "-from",
+    "-shrink",
+    "-subsample",
+    "-to",
+    "-zoom",
+    (char *) NULL
+};
+
+/*
+ * The type record for photo images:
+ */
+
+static int		ImgPhotoCreate _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int argc, char **argv,
+			    Tk_ImageType *typePtr, Tk_ImageMaster master,
+			    ClientData *clientDataPtr));
+static ClientData	ImgPhotoGet _ANSI_ARGS_((Tk_Window tkwin,
+			    ClientData clientData));
+static void		ImgPhotoDisplay _ANSI_ARGS_((ClientData clientData,
+			    Display *display, Drawable drawable,
+			    int imageX, int imageY, int width, int height,
+			    int drawableX, int drawableY));
+static void		ImgPhotoFree _ANSI_ARGS_((ClientData clientData,
+			    Display *display));
+static void		ImgPhotoDelete _ANSI_ARGS_((ClientData clientData));
+
+Tk_ImageType tkPhotoImageType = {
+    "photo",			/* name */
+    ImgPhotoCreate,		/* createProc */
+    ImgPhotoGet,		/* getProc */
+    ImgPhotoDisplay,		/* displayProc */
+    ImgPhotoFree,		/* freeProc */
+    ImgPhotoDelete,		/* deleteProc */
+    (Tk_ImageType *) NULL	/* nextPtr */
+};
+
+/*
+ * Default configuration
+ */
+
+#define DEF_PHOTO_GAMMA		"1"
+#define DEF_PHOTO_HEIGHT	"0"
+#define DEF_PHOTO_PALETTE	""
+#define DEF_PHOTO_WIDTH		"0"
+
+/*
+ * Information used for parsing configuration specifications:
+ */
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_STRING, "-data", (char *) NULL, (char *) NULL,
+	 (char *) NULL, Tk_Offset(PhotoMaster, dataString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-format", (char *) NULL, (char *) NULL,
+	 (char *) NULL, Tk_Offset(PhotoMaster, format), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-file", (char *) NULL, (char *) NULL,
+	 (char *) NULL, Tk_Offset(PhotoMaster, fileString), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_DOUBLE, "-gamma", (char *) NULL, (char *) NULL,
+	 DEF_PHOTO_GAMMA, Tk_Offset(PhotoMaster, gamma), 0},
+    {TK_CONFIG_INT, "-height", (char *) NULL, (char *) NULL,
+	 DEF_PHOTO_HEIGHT, Tk_Offset(PhotoMaster, userHeight), 0},
+    {TK_CONFIG_UID, "-palette", (char *) NULL, (char *) NULL,
+	 DEF_PHOTO_PALETTE, Tk_Offset(PhotoMaster, palette), 0},
+    {TK_CONFIG_INT, "-width", (char *) NULL, (char *) NULL,
+	 DEF_PHOTO_WIDTH, Tk_Offset(PhotoMaster, userWidth), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	 (char *) NULL, 0, 0}
+};
+
+/*
+ * Hash table used to provide access to photo images from C code.
+ */
+
+static Tcl_HashTable imgPhotoHash;
+static int imgPhotoHashInitialized;	/* set when Tcl_InitHashTable done */
+
+/*
+ * Hash table used to hash from (display, colormap, palette, gamma)
+ * to ColorTable address.
+ */
+
+static Tcl_HashTable imgPhotoColorHash;
+static int imgPhotoColorHashInitialized;
+#define N_COLOR_HASH	(sizeof(ColorTableId) / sizeof(int))
+
+/*
+ * Pointer to the first in the list of known photo image formats.
+ */
+
+static Tk_PhotoImageFormat *formatList = NULL;
+
+/*
+ * Forward declarations
+ */
+
+static int		ImgPhotoCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		ParseSubcommandOptions _ANSI_ARGS_((
+			    struct SubcommandOptions *optPtr,
+			    Tcl_Interp *interp, int allowedOptions,
+			    int *indexPtr, int argc, char **argv));
+static void		ImgPhotoCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static int		ImgPhotoConfigureMaster _ANSI_ARGS_((
+			    Tcl_Interp *interp, PhotoMaster *masterPtr,
+			    int argc, char **argv, int flags));
+static void		ImgPhotoConfigureInstance _ANSI_ARGS_((
+			    PhotoInstance *instancePtr));
+static void		ImgPhotoSetSize _ANSI_ARGS_((PhotoMaster *masterPtr,
+			    int width, int height));
+static void		ImgPhotoInstanceSetSize _ANSI_ARGS_((
+			    PhotoInstance *instancePtr));
+static int		IsValidPalette _ANSI_ARGS_((PhotoInstance *instancePtr,
+			    char *palette));
+static int		CountBits _ANSI_ARGS_((pixel mask));
+static void		GetColorTable _ANSI_ARGS_((PhotoInstance *instancePtr));
+static void		FreeColorTable _ANSI_ARGS_((ColorTable *colorPtr));
+static void		AllocateColors _ANSI_ARGS_((ColorTable *colorPtr));
+static void		DisposeColorTable _ANSI_ARGS_((ClientData clientData));
+static void		DisposeInstance _ANSI_ARGS_((ClientData clientData));
+static int		ReclaimColors _ANSI_ARGS_((ColorTableId *id,
+			    int numColors));
+static int		MatchFileFormat _ANSI_ARGS_((Tcl_Interp *interp,
+			    FILE *f, char *fileName, char *formatString,
+			    Tk_PhotoImageFormat **imageFormatPtr,
+			    int *widthPtr, int *heightPtr));
+static int		MatchStringFormat _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, char *formatString,
+			    Tk_PhotoImageFormat **imageFormatPtr,
+			    int *widthPtr, int *heightPtr));
+static void		Dither _ANSI_ARGS_((PhotoMaster *masterPtr,
+			    int x, int y, int width, int height));
+static void		DitherInstance _ANSI_ARGS_((PhotoInstance *instancePtr,
+			    int x, int y, int width, int height));
+
+#undef MIN
+#define MIN(a, b)	((a) < (b)? (a): (b))
+#undef MAX
+#define MAX(a, b)	((a) > (b)? (a): (b))
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CreatePhotoImageFormat --
+ *
+ *	This procedure is invoked by an image file handler to register
+ *	a new photo image format and the procedures that handle the
+ *	new format.  The procedure is typically invoked during
+ *	Tcl_AppInit.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The new image file format is entered into a table used in the
+ *	photo image "read" and "write" subcommands.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_CreatePhotoImageFormat(formatPtr)
+    Tk_PhotoImageFormat *formatPtr;
+				/* Structure describing the format.  All of
+				 * the fields except "nextPtr" must be filled
+				 * in by caller.  Must not have been passed
+				 * to Tk_CreatePhotoImageFormat previously. */
+{
+    Tk_PhotoImageFormat *copyPtr;
+
+    copyPtr = (Tk_PhotoImageFormat *) ckalloc(sizeof(Tk_PhotoImageFormat));
+    *copyPtr = *formatPtr;
+    copyPtr->name = (char *) ckalloc((unsigned) (strlen(formatPtr->name) + 1));
+    strcpy(copyPtr->name, formatPtr->name);
+    copyPtr->nextPtr = formatList;
+    formatList = copyPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoCreate --
+ *
+ *	This procedure is called by the Tk image code to create
+ *	a new photo image.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	The data structure for a new photo image is allocated and
+ *	initialized.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ImgPhotoCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
+    Tcl_Interp *interp;		/* Interpreter for application containing
+				 * image. */
+    char *name;			/* Name to use for image. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings for options (doesn't
+				 * include image name or type). */
+    Tk_ImageType *typePtr;	/* Pointer to our type record (not used). */
+    Tk_ImageMaster master;	/* Token for image, to be used by us in
+				 * later callbacks. */
+    ClientData *clientDataPtr;	/* Store manager's token for image here;
+				 * it will be returned in later callbacks. */
+{
+    PhotoMaster *masterPtr;
+    Tcl_HashEntry *entry;
+    int isNew;
+
+    /*
+     * Allocate and initialize the photo image master record.
+     */
+
+    masterPtr = (PhotoMaster *) ckalloc(sizeof(PhotoMaster));
+    memset((void *) masterPtr, 0, sizeof(PhotoMaster));
+    masterPtr->tkMaster = master;
+    masterPtr->interp = interp;
+    masterPtr->imageCmd = Tcl_CreateCommand(interp, name, ImgPhotoCmd,
+	    (ClientData) masterPtr, ImgPhotoCmdDeletedProc);
+    masterPtr->palette = NULL;
+    masterPtr->pix24 = NULL;
+    masterPtr->instancePtr = NULL;
+    masterPtr->validRegion = TkCreateRegion();
+
+    /*
+     * Process configuration options given in the image create command.
+     */
+
+    if (ImgPhotoConfigureMaster(interp, masterPtr, argc, argv, 0) != TCL_OK) {
+	ImgPhotoDelete((ClientData) masterPtr);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Enter this photo image in the hash table.
+     */
+
+    if (!imgPhotoHashInitialized) {
+	Tcl_InitHashTable(&imgPhotoHash, TCL_STRING_KEYS);
+	imgPhotoHashInitialized = 1;
+    }
+    entry = Tcl_CreateHashEntry(&imgPhotoHash, name, &isNew);
+    Tcl_SetHashValue(entry, masterPtr);
+
+    *clientDataPtr = (ClientData) masterPtr;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoCmd --
+ *
+ *	This procedure is invoked to process the Tcl command that
+ *	corresponds to a photo image.  See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ImgPhotoCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about photo master. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    PhotoMaster *masterPtr = (PhotoMaster *) clientData;
+    int c, result, index;
+    int x, y, width, height;
+    int dataWidth, dataHeight;
+    struct SubcommandOptions options;
+    int listArgc;
+    char **listArgv;
+    char **srcArgv;
+    unsigned char *pixelPtr;
+    Tk_PhotoImageBlock block;
+    Tk_Window tkwin;
+    char string[16];
+    XColor color;
+    Tk_PhotoImageFormat *imageFormat;
+    int imageWidth, imageHeight;
+    int matched;
+    FILE *f;
+    Tk_PhotoHandle srcHandle;
+    size_t length;
+    Tcl_DString buffer;
+    char *realFileName;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+
+    if ((c == 'b') && (strncmp(argv[1], "blank", length) == 0)) {
+	/*
+	 * photo blank command - just call Tk_PhotoBlank.
+	 */
+
+	if (argc == 2) {
+	    Tk_PhotoBlank(masterPtr);
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " blank\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+    } else if ((c == 'c') && (length >= 2)
+	    && (strncmp(argv[1], "cget", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	result = Tk_ConfigureValue(interp, Tk_MainWindow(interp), configSpecs,
+		(char *) masterPtr, argv[2], 0);
+    } else if ((c == 'c') && (length >= 3)
+	    && (strncmp(argv[1], "configure", length) == 0)) {
+	/*
+	 * photo configure command - handle this in the standard way.
+	 */
+
+	if (argc == 2) {
+	    return Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, (char *) NULL, 0);
+	}
+	if (argc == 3) {
+	    return Tk_ConfigureInfo(interp, Tk_MainWindow(interp),
+		    configSpecs, (char *) masterPtr, argv[2], 0);
+	}
+	return ImgPhotoConfigureMaster(interp, masterPtr, argc-2, argv+2,
+		TK_CONFIG_ARGV_ONLY);
+    } else if ((c == 'c') && (length >= 3)
+	    && (strncmp(argv[1], "copy", length) == 0)) {
+	/*
+	 * photo copy command - first parse options.
+	 */
+
+	index = 2;
+	memset((VOID *) &options, 0, sizeof(options));
+	options.zoomX = options.zoomY = 1;
+	options.subsampleX = options.subsampleY = 1;
+	options.name = NULL;
+	if (ParseSubcommandOptions(&options, interp,
+		OPT_FROM | OPT_TO | OPT_ZOOM | OPT_SUBSAMPLE | OPT_SHRINK,
+		&index, argc, argv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (options.name == NULL || index < argc) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " copy source-image ?-from x1 y1 x2 y2?",
+		    " ?-to x1 y1 x2 y2? ?-zoom x y? ?-subsample x y?",
+		    "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Look for the source image and get a pointer to its image data.
+	 * Check the values given for the -from option.
+	 */
+
+	if ((srcHandle = Tk_FindPhoto(options.name)) == NULL) {
+	    Tcl_AppendResult(interp, "image \"", argv[2], "\" doesn't",
+		    " exist or is not a photo image", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	Tk_PhotoGetImage(srcHandle, &block);
+	if ((options.fromX2 > block.width) || (options.fromY2 > block.height)
+		|| (options.fromX2 > block.width)
+		|| (options.fromY2 > block.height)) {
+	    Tcl_AppendResult(interp, "coordinates for -from option extend ",
+		    "outside source image", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Fill in default values for unspecified parameters.
+	 */
+
+	if (((options.options & OPT_FROM) == 0) || (options.fromX2 < 0)) {
+	    options.fromX2 = block.width;
+	    options.fromY2 = block.height;
+	}
+	if (((options.options & OPT_TO) == 0) || (options.toX2 < 0)) {
+	    width = options.fromX2 - options.fromX;
+	    if (options.subsampleX > 0) {
+		width = (width + options.subsampleX - 1) / options.subsampleX;
+	    } else if (options.subsampleX == 0) {
+		width = 0;
+	    } else {
+		width = (width - options.subsampleX - 1) / -options.subsampleX;
+	    }
+	    options.toX2 = options.toX + width * options.zoomX;
+
+	    height = options.fromY2 - options.fromY;
+	    if (options.subsampleY > 0) {
+		height = (height + options.subsampleY - 1)
+			/ options.subsampleY;
+	    } else if (options.subsampleY == 0) {
+		height = 0;
+	    } else {
+		height = (height - options.subsampleY - 1)
+			/ -options.subsampleY;
+	    }
+	    options.toY2 = options.toY + height * options.zoomY;
+	}
+
+	/*
+	 * Set the destination image size if the -shrink option was specified.
+	 */
+
+	if (options.options & OPT_SHRINK) {
+	    ImgPhotoSetSize(masterPtr, options.toX2, options.toY2);
+	}
+
+	/*
+	 * Copy the image data over using Tk_PhotoPutZoomedBlock.
+	 */
+
+	block.pixelPtr += options.fromX * block.pixelSize
+	    + options.fromY * block.pitch;
+	block.width = options.fromX2 - options.fromX;
+	block.height = options.fromY2 - options.fromY;
+	Tk_PhotoPutZoomedBlock((Tk_PhotoHandle) masterPtr, &block,
+		options.toX, options.toY, options.toX2 - options.toX,
+		options.toY2 - options.toY, options.zoomX, options.zoomY,
+		options.subsampleX, options.subsampleY);
+
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	/*
+	 * photo get command - first parse and check parameters.
+	 */
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " get x y\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	if ((x < 0) || (x >= masterPtr->width)
+		|| (y < 0) || (y >= masterPtr->height)) {
+	    Tcl_AppendResult(interp, argv[0], " get: ",
+		    "coordinates out of range", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Extract the value of the desired pixel and format it as a string.
+	 */
+
+	pixelPtr = masterPtr->pix24 + (y * masterPtr->width + x) * 3;
+	sprintf(string, "%d %d %d", pixelPtr[0], pixelPtr[1],
+		pixelPtr[2]);
+	Tcl_AppendResult(interp, string, (char *) NULL);
+    } else if ((c == 'p') && (strncmp(argv[1], "put", length) == 0)) {
+	/*
+	 * photo put command - first parse the options and colors specified.
+	 */
+
+	index = 2;
+	memset((VOID *) &options, 0, sizeof(options));
+	options.name = NULL;
+	if (ParseSubcommandOptions(&options, interp, OPT_TO,
+	       &index, argc, argv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if ((options.name == NULL) || (index < argc)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		     " put {{colors...}...} ?-to x1 y1 x2 y2?\"",
+		     (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (Tcl_SplitList(interp, options.name, &dataHeight, &srcArgv)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	tkwin = Tk_MainWindow(interp);
+	block.pixelPtr = NULL;
+	dataWidth = 0;
+	pixelPtr = NULL;
+	for (y = 0; y < dataHeight; ++y) {
+	    if (Tcl_SplitList(interp, srcArgv[y], &listArgc, &listArgv)
+		    != TCL_OK) {
+		break;
+	    }
+	    if (y == 0) {
+		dataWidth = listArgc;
+		pixelPtr = (unsigned char *) ckalloc((unsigned)
+			dataWidth * dataHeight * 3);
+		block.pixelPtr = pixelPtr;
+	    } else {
+		if (listArgc != dataWidth) {
+		    Tcl_AppendResult(interp, "all elements of color list must",
+			     " have the same number of elements",
+			    (char *) NULL);
+		    ckfree((char *) listArgv);
+		    break;
+		}
+	    }
+	    for (x = 0; x < dataWidth; ++x) {
+		if (!XParseColor(Tk_Display(tkwin), Tk_Colormap(tkwin),
+			listArgv[x], &color)) {
+		    Tcl_AppendResult(interp, "can't parse color \"",
+			    listArgv[x], "\"", (char *) NULL);
+		    break;
+		}
+		*pixelPtr++ = color.red >> 8;
+		*pixelPtr++ = color.green >> 8;
+		*pixelPtr++ = color.blue >> 8;
+	    }
+	    ckfree((char *) listArgv);
+	    if (x < dataWidth)
+		break;
+	}
+	ckfree((char *) srcArgv);
+	if (y < dataHeight || dataHeight == 0 || dataWidth == 0) {
+	    if (block.pixelPtr != NULL) {
+		ckfree((char *) block.pixelPtr);
+	    }
+	    if (y < dataHeight) {
+		return TCL_ERROR;
+	    }
+	    return TCL_OK;
+	}
+
+	/*
+	 * Fill in default values for the -to option, then
+	 * copy the block in using Tk_PhotoPutBlock.
+	 */
+
+	if (((options.options & OPT_TO) == 0) || (options.toX2 < 0)) {
+	    options.toX2 = options.toX + dataWidth;
+	    options.toY2 = options.toY + dataHeight;
+	}
+	block.width = dataWidth;
+	block.height = dataHeight;
+	block.pitch = dataWidth * 3;
+	block.pixelSize = 3;
+	block.offset[0] = 0;
+	block.offset[1] = 1;
+	block.offset[2] = 2;
+	Tk_PhotoPutBlock((ClientData)masterPtr, &block,
+		options.toX, options.toY, options.toX2 - options.toX,
+		options.toY2 - options.toY);
+	ckfree((char *) block.pixelPtr);
+    } else if ((c == 'r') && (length >= 3)
+	       && (strncmp(argv[1], "read", length) == 0)) {
+	/*
+	 * photo read command - first parse the options specified.
+	 */
+
+	index = 2;
+	memset((VOID *) &options, 0, sizeof(options));
+	options.name = NULL;
+	options.format = NULL;
+	if (ParseSubcommandOptions(&options, interp,
+		OPT_FORMAT | OPT_FROM | OPT_TO | OPT_SHRINK,
+		&index, argc, argv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if ((options.name == NULL) || (index < argc)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " read fileName ?-format format-name?",
+		    " ?-from x1 y1 x2 y2? ?-to x y? ?-shrink?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Open the image file and look for a handler for it.
+	 */
+
+	realFileName = Tcl_TranslateFileName(interp, options.name, &buffer);
+	if (realFileName == NULL) {
+	    return TCL_ERROR;
+	}
+	f = fopen(realFileName, "rb");
+	Tcl_DStringFree(&buffer);
+	if (f == NULL) {
+	    Tcl_AppendResult(interp, "couldn't read image file \"",
+		    options.name, "\": ", Tcl_PosixError(interp),
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (MatchFileFormat(interp, f, options.name, options.format,
+		&imageFormat, &imageWidth, &imageHeight) != TCL_OK) {
+	    fclose(f);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Check the values given for the -from option.
+	 */
+
+	if ((options.fromX > imageWidth) || (options.fromY > imageHeight)
+		|| (options.fromX2 > imageWidth)
+		|| (options.fromY2 > imageHeight)) {
+	    Tcl_AppendResult(interp, "coordinates for -from option extend ",
+		    "outside source image", (char *) NULL);
+	    fclose(f);
+	    return TCL_ERROR;
+	}
+	if (((options.options & OPT_FROM) == 0) || (options.fromX2 < 0)) {
+	    width = imageWidth - options.fromX;
+	    height = imageHeight - options.fromY;
+	} else {
+	    width = options.fromX2 - options.fromX;
+	    height = options.fromY2 - options.fromY;
+	}
+
+	/*
+	 * If the -shrink option was specified, set the size of the image.
+	 */
+
+	if (options.options & OPT_SHRINK) {
+	    ImgPhotoSetSize(masterPtr, options.toX + width,
+		    options.toY + height);
+	}
+
+	/*
+	 * Call the handler's file read procedure to read the data
+	 * into the image.
+	 */
+
+	result = (*imageFormat->fileReadProc)(interp, f, options.name,
+		options.format, (Tk_PhotoHandle) masterPtr, options.toX,
+		options.toY, width, height, options.fromX, options.fromY);
+	if (f != NULL) {
+	    fclose(f);
+	}
+	return result;
+    } else if ((c == 'r') && (length >= 3)
+	       && (strncmp(argv[1], "redither", length) == 0)) {
+
+	if (argc == 2) {
+	    /*
+	     * Call Dither if any part of the image is not correctly
+	     * dithered at present.
+	     */
+
+	    x = masterPtr->ditherX;
+	    y = masterPtr->ditherY;
+	    if (masterPtr->ditherX != 0) {
+		Dither(masterPtr, x, y, masterPtr->width - x, 1);
+	    }
+	    if (masterPtr->ditherY < masterPtr->height) {
+		x = 0;
+		Dither(masterPtr, 0, masterPtr->ditherY, masterPtr->width,
+			masterPtr->height - masterPtr->ditherY);
+	    }
+
+	    if (y < masterPtr->height) {
+		/*
+		 * Tell the core image code that part of the image has changed.
+		 */
+
+		Tk_ImageChanged(masterPtr->tkMaster, x, y,
+			(masterPtr->width - x), (masterPtr->height - y),
+			masterPtr->width, masterPtr->height);
+	    }
+
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " redither\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+    } else if ((c == 'w') && (strncmp(argv[1], "write", length) == 0)) {
+	/*
+	 * photo write command - first parse and check any options given.
+	 */
+
+	index = 2;
+	memset((VOID *) &options, 0, sizeof(options));
+	options.name = NULL;
+	options.format = NULL;
+	if (ParseSubcommandOptions(&options, interp, OPT_FORMAT | OPT_FROM,
+		&index, argc, argv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if ((options.name == NULL) || (index < argc)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " write fileName ?-format format-name?",
+		    "?-from x1 y1 x2 y2?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((options.fromX > masterPtr->width)
+		|| (options.fromY > masterPtr->height)
+		|| (options.fromX2 > masterPtr->width)
+		|| (options.fromY2 > masterPtr->height)) {
+	    Tcl_AppendResult(interp, "coordinates for -from option extend ",
+		    "outside image", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Fill in default values for unspecified parameters.
+	 */
+
+	if (((options.options & OPT_FROM) == 0) || (options.fromX2 < 0)) {
+	    options.fromX2 = masterPtr->width;
+	    options.fromY2 = masterPtr->height;
+	}
+
+	/*
+	 * Search for an appropriate image file format handler,
+	 * and give an error if none is found.
+	 */
+
+	matched = 0;
+	for (imageFormat = formatList; imageFormat != NULL;
+	     imageFormat = imageFormat->nextPtr) {
+	    if ((options.format == NULL)
+		    || (strncasecmp(options.format, imageFormat->name,
+		    strlen(imageFormat->name)) == 0)) {
+		matched = 1;
+		if (imageFormat->fileWriteProc != NULL) {
+		    break;
+		}
+	    }
+	}
+	if (imageFormat == NULL) {
+	    if (options.format == NULL) {
+		Tcl_AppendResult(interp, "no available image file format ",
+			"has file writing capability", (char *) NULL);
+	    } else if (!matched) {
+		Tcl_AppendResult(interp, "image file format \"",
+			options.format, "\" is unknown", (char *) NULL);
+	    } else {
+		Tcl_AppendResult(interp, "image file format \"",
+			options.format, "\" has no file writing capability",
+			(char *) NULL);
+	    }
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Call the handler's file write procedure to write out
+	 * the image.
+	 */
+
+	Tk_PhotoGetImage((Tk_PhotoHandle) masterPtr, &block);
+	block.pixelPtr += options.fromY * block.pitch + options.fromX * 3;
+	block.width = options.fromX2 - options.fromX;
+	block.height = options.fromY2 - options.fromY;
+	return (*imageFormat->fileWriteProc)(interp, options.name,
+		options.format, &block);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be blank, cget, configure, copy, get, put,",
+		" read, redither, or write", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ParseSubcommandOptions --
+ *
+ *	This procedure is invoked to process one of the options
+ *	which may be specified for the photo image subcommands,
+ *	namely, -from, -to, -zoom, -subsample, -format, and -shrink.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Fields in *optPtr get filled in.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ParseSubcommandOptions(optPtr, interp, allowedOptions, optIndexPtr, argc, argv)
+    struct SubcommandOptions *optPtr;
+				/* Information about the options specified
+				 * and the values given is returned here. */
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    int allowedOptions;		/* Indicates which options are valid for
+				 * the current command. */
+    int *optIndexPtr;		/* Points to a variable containing the
+				 * current index in argv; this variable is
+				 * updated by this procedure. */
+    int argc;			/* Number of arguments in argv[]. */
+    char **argv;		/* Arguments to be parsed. */
+{
+    int index, c, bit, currentBit;
+    size_t length;
+    char *option, **listPtr;
+    int values[4];
+    int numValues, maxValues, argIndex;
+
+    for (index = *optIndexPtr; index < argc; *optIndexPtr = ++index) {
+	/*
+	 * We can have one value specified without an option;
+	 * it goes into optPtr->name.
+	 */
+
+	option = argv[index];
+	if (option[0] != '-') {
+	    if (optPtr->name == NULL) {
+		optPtr->name = option;
+		continue;
+	    }
+	    break;
+	}
+
+	/*
+	 * Work out which option this is.
+	 */
+
+	length = strlen(option);
+	c = option[0];
+	bit = 0;
+	currentBit = 1;
+	for (listPtr = optionNames; *listPtr != NULL; ++listPtr) {
+	    if ((c == *listPtr[0])
+		    && (strncmp(option, *listPtr, length) == 0)) {
+		if (bit != 0) {
+		    bit = 0;	/* An ambiguous option. */
+		    break;
+		}
+		bit = currentBit;
+	    }
+	    currentBit <<= 1;
+	}
+
+	/*
+	 * If this option is not recognized and allowed, put
+	 * an error message in the interpreter and return.
+	 */
+
+	if ((allowedOptions & bit) == 0) {
+	    Tcl_AppendResult(interp, "unrecognized option \"", argv[index],
+		    "\": must be ", (char *)NULL);
+	    bit = 1;
+	    for (listPtr = optionNames; *listPtr != NULL; ++listPtr) {
+		if ((allowedOptions & bit) != 0) {
+		    if ((allowedOptions & (bit - 1)) != 0) {
+			Tcl_AppendResult(interp, ", ", (char *) NULL);
+			if ((allowedOptions & ~((bit << 1) - 1)) == 0) {
+			    Tcl_AppendResult(interp, "or ", (char *) NULL);
+			}
+		    }
+		    Tcl_AppendResult(interp, *listPtr, (char *) NULL);
+		}
+		bit <<= 1;
+	    }
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * For the -from, -to, -zoom and -subsample options,
+	 * parse the values given.  Report an error if too few
+	 * or too many values are given.
+	 */
+
+	if ((bit != OPT_SHRINK) && (bit != OPT_FORMAT)) {
+	    maxValues = ((bit == OPT_FROM) || (bit == OPT_TO))? 4: 2;
+	    argIndex = index + 1;
+	    for (numValues = 0; numValues < maxValues; ++numValues) {
+		if ((argIndex < argc) && (isdigit(UCHAR(argv[argIndex][0]))
+			|| ((argv[argIndex][0] == '-')
+			&& (isdigit(UCHAR(argv[argIndex][1])))))) {
+		    if (Tcl_GetInt(interp, argv[argIndex], &values[numValues])
+			    != TCL_OK) {
+			return TCL_ERROR;
+		    }
+		} else {
+		    break;
+		}
+		++argIndex;
+	    }
+
+	    if (numValues == 0) {
+		Tcl_AppendResult(interp, "the \"", argv[index], "\" option ",
+			 "requires one ", maxValues == 2? "or two": "to four",
+			 " integer values", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    *optIndexPtr = (index += numValues);
+
+	    /*
+	     * Y values default to the corresponding X value if not specified.
+	     */
+
+	    if (numValues == 1) {
+		values[1] = values[0];
+	    }
+	    if (numValues == 3) {
+		values[3] = values[2];
+	    }
+
+	    /*
+	     * Check the values given and put them in the appropriate
+	     * field of the SubcommandOptions structure.
+	     */
+
+	    switch (bit) {
+		case OPT_FROM:
+		    if ((values[0] < 0) || (values[1] < 0) || ((numValues > 2)
+			    && ((values[2] < 0) || (values[3] < 0)))) {
+			Tcl_AppendResult(interp, "value(s) for the -from",
+				" option must be non-negative", (char *) NULL);
+			return TCL_ERROR;
+		    }
+		    if (numValues <= 2) {
+			optPtr->fromX = values[0];
+			optPtr->fromY = values[1];
+			optPtr->fromX2 = -1;
+			optPtr->fromY2 = -1;
+		    } else {
+			optPtr->fromX = MIN(values[0], values[2]);
+			optPtr->fromY = MIN(values[1], values[3]);
+			optPtr->fromX2 = MAX(values[0], values[2]);
+			optPtr->fromY2 = MAX(values[1], values[3]);
+		    }
+		    break;
+		case OPT_SUBSAMPLE:
+		    optPtr->subsampleX = values[0];
+		    optPtr->subsampleY = values[1];
+		    break;
+		case OPT_TO:
+		    if ((values[0] < 0) || (values[1] < 0) || ((numValues > 2)
+			    && ((values[2] < 0) || (values[3] < 0)))) {
+			Tcl_AppendResult(interp, "value(s) for the -to",
+				" option must be non-negative", (char *) NULL);
+			return TCL_ERROR;
+		    }
+		    if (numValues <= 2) {
+			optPtr->toX = values[0];
+			optPtr->toY = values[1];
+			optPtr->toX2 = -1;
+			optPtr->toY2 = -1;
+		    } else {
+			optPtr->toX = MIN(values[0], values[2]);
+			optPtr->toY = MIN(values[1], values[3]);
+			optPtr->toX2 = MAX(values[0], values[2]);
+			optPtr->toY2 = MAX(values[1], values[3]);
+		    }
+		    break;
+		case OPT_ZOOM:
+		    if ((values[0] <= 0) || (values[1] <= 0)) {
+			Tcl_AppendResult(interp, "value(s) for the -zoom",
+				" option must be positive", (char *) NULL);
+			return TCL_ERROR;
+		    }
+		    optPtr->zoomX = values[0];
+		    optPtr->zoomY = values[1];
+		    break;
+	    }
+	} else if (bit == OPT_FORMAT) {
+	    /*
+	     * The -format option takes a single string value.
+	     */
+
+	    if (index + 1 < argc) {
+		*optIndexPtr = ++index;
+		optPtr->format = argv[index];
+	    } else {
+		Tcl_AppendResult(interp, "the \"-format\" option ",
+			"requires a value", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	/*
+	 * Remember that we saw this option.
+	 */
+
+	optPtr->options |= bit;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoConfigureMaster --
+ *
+ *	This procedure is called when a photo image is created or
+ *	reconfigured.  It processes configuration options and resets
+ *	any instances of the image.
+ *
+ * Results:
+ *	A standard Tcl return value.  If TCL_ERROR is returned then
+ *	an error message is left in masterPtr->interp->result.
+ *
+ * Side effects:
+ *	Existing instances of the image will be redisplayed to match
+ *	the new configuration options.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ImgPhotoConfigureMaster(interp, masterPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    PhotoMaster *masterPtr;	/* Pointer to data structure describing
+				 * overall photo image to (re)configure. */
+    int argc;			/* Number of entries in argv. */
+    char **argv;		/* Pairs of configuration options for image. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget,
+				 * such as TK_CONFIG_ARGV_ONLY. */
+{
+    PhotoInstance *instancePtr;
+    char *oldFileString, *oldDataString, *realFileName, *oldPaletteString;
+    double oldGamma;
+    int result;
+    FILE *f;
+    Tk_PhotoImageFormat *imageFormat;
+    int imageWidth, imageHeight;
+    Tcl_DString buffer;
+
+    /*
+     * Save the current values for fileString and dataString, so we
+     * can tell if the user specifies them anew.
+     */
+
+    oldFileString = masterPtr->fileString;
+    oldDataString = (oldFileString == NULL)? masterPtr->dataString: NULL;
+    oldPaletteString = masterPtr->palette;
+    oldGamma = masterPtr->gamma;
+
+    /*
+     * Process the configuration options specified.
+     */
+
+    if (Tk_ConfigureWidget(interp, Tk_MainWindow(interp), configSpecs,
+	    argc, argv, (char *) masterPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Regard the empty string for -file, -data or -format as the null
+     * value.
+     */
+
+    if ((masterPtr->fileString != NULL) && (masterPtr->fileString[0] == 0)) {
+	ckfree(masterPtr->fileString);
+	masterPtr->fileString = NULL;
+    }
+    if ((masterPtr->dataString != NULL) && (masterPtr->dataString[0] == 0)) {
+	ckfree(masterPtr->dataString);
+	masterPtr->dataString = NULL;
+    }
+    if ((masterPtr->format != NULL) && (masterPtr->format[0] == 0)) {
+	ckfree(masterPtr->format);
+	masterPtr->format = NULL;
+    }
+
+    /*
+     * Set the image to the user-requested size, if any,
+     * and make sure storage is correctly allocated for this image.
+     */
+
+    ImgPhotoSetSize(masterPtr, masterPtr->width, masterPtr->height);
+
+    /*
+     * Read in the image from the file or string if the user has
+     * specified the -file or -data option.
+     */
+
+    if ((masterPtr->fileString != NULL)
+	    && (masterPtr->fileString != oldFileString)) {
+
+	realFileName = Tcl_TranslateFileName(interp, masterPtr->fileString,
+		&buffer);
+	if (realFileName == NULL) {
+	    return TCL_ERROR;
+	}
+	f = fopen(realFileName, "rb");
+	Tcl_DStringFree(&buffer);
+	if (f == NULL) {
+	    Tcl_AppendResult(interp, "couldn't read image file \"",
+		    masterPtr->fileString, "\": ", Tcl_PosixError(interp),
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (MatchFileFormat(interp, f, masterPtr->fileString,
+		masterPtr->format, &imageFormat, &imageWidth,
+		&imageHeight) != TCL_OK) {
+	    fclose(f);
+	    return TCL_ERROR;
+	}
+	ImgPhotoSetSize(masterPtr, imageWidth, imageHeight);
+	result = (*imageFormat->fileReadProc)(interp, f, masterPtr->fileString,
+		masterPtr->format, (Tk_PhotoHandle) masterPtr, 0, 0,
+		imageWidth, imageHeight, 0, 0);
+	fclose(f);
+	if (result != TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	masterPtr->flags |= IMAGE_CHANGED;
+    }
+
+    if ((masterPtr->fileString == NULL) && (masterPtr->dataString != NULL)
+	    && (masterPtr->dataString != oldDataString)) {
+
+	if (MatchStringFormat(interp, masterPtr->dataString, 
+		masterPtr->format, &imageFormat, &imageWidth,
+		&imageHeight) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	ImgPhotoSetSize(masterPtr, imageWidth, imageHeight);
+	if ((*imageFormat->stringReadProc)(interp, masterPtr->dataString,
+		masterPtr->format, (Tk_PhotoHandle) masterPtr,
+		0, 0, imageWidth, imageHeight, 0, 0) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	masterPtr->flags |= IMAGE_CHANGED;
+    }
+
+    /*
+     * Enforce a reasonable value for gamma.
+     */
+
+    if (masterPtr->gamma <= 0) {
+	masterPtr->gamma = 1.0;
+    }
+
+    if ((masterPtr->gamma != oldGamma)
+	    || (masterPtr->palette != oldPaletteString)) {
+	masterPtr->flags |= IMAGE_CHANGED;
+    }
+
+    /*
+     * Cycle through all of the instances of this image, regenerating
+     * the information for each instance.  Then force the image to be
+     * redisplayed everywhere that it is used.
+     */
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	ImgPhotoConfigureInstance(instancePtr);
+    }
+
+    /*
+     * Inform the generic image code that the image
+     * has (potentially) changed.
+     */
+
+    Tk_ImageChanged(masterPtr->tkMaster, 0, 0, masterPtr->width,
+	    masterPtr->height, masterPtr->width, masterPtr->height);
+    masterPtr->flags &= ~IMAGE_CHANGED;
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoConfigureInstance --
+ *
+ *	This procedure is called to create displaying information for
+ *	a photo image instance based on the configuration information
+ *	in the master.  It is invoked both when new instances are
+ *	created and when the master is reconfigured.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Generates errors via Tcl_BackgroundError if there are problems
+ *	in setting up the instance.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoConfigureInstance(instancePtr)
+    PhotoInstance *instancePtr;	/* Instance to reconfigure. */
+{
+    PhotoMaster *masterPtr = instancePtr->masterPtr;
+    XImage *imagePtr;
+    int bitsPerPixel;
+    ColorTable *colorTablePtr;
+    XRectangle validBox;
+
+    /*
+     * If the -palette configuration option has been set for the master,
+     * use the value specified for our palette, but only if it is
+     * a valid palette for our windows.  Use the gamma value specified
+     * the master.
+     */
+
+    if ((masterPtr->palette && masterPtr->palette[0])
+	    && IsValidPalette(instancePtr, masterPtr->palette)) {
+	instancePtr->palette = masterPtr->palette;
+    } else {
+	instancePtr->palette = instancePtr->defaultPalette;
+    }
+    instancePtr->gamma = masterPtr->gamma;
+
+    /*
+     * If we don't currently have a color table, or if the one we
+     * have no longer applies (e.g. because our palette or gamma
+     * has changed), get a new one.
+     */
+
+    colorTablePtr = instancePtr->colorTablePtr;
+    if ((colorTablePtr == NULL)
+	    || (instancePtr->colormap != colorTablePtr->id.colormap)
+	    || (instancePtr->palette != colorTablePtr->id.palette)
+	    || (instancePtr->gamma != colorTablePtr->id.gamma)) {
+	/*
+	 * Free up our old color table, and get a new one.
+	 */
+
+	if (colorTablePtr != NULL) {
+	    colorTablePtr->liveRefCount -= 1;
+	    FreeColorTable(colorTablePtr);
+	}
+	GetColorTable(instancePtr);
+
+	/*
+	 * Create a new XImage structure for sending data to
+	 * the X server, if necessary.
+	 */
+
+	if (instancePtr->colorTablePtr->flags & BLACK_AND_WHITE) {
+	    bitsPerPixel = 1;
+	} else {
+	    bitsPerPixel = instancePtr->visualInfo.depth;
+	}
+
+	if ((instancePtr->imagePtr == NULL)
+		|| (instancePtr->imagePtr->bits_per_pixel != bitsPerPixel)) {
+	    if (instancePtr->imagePtr != NULL) {
+		XFree((char *) instancePtr->imagePtr);
+	    }
+	    imagePtr = XCreateImage(instancePtr->display,
+		    instancePtr->visualInfo.visual, (unsigned) bitsPerPixel,
+		    (bitsPerPixel > 1? ZPixmap: XYBitmap), 0, (char *) NULL,
+		    1, 1, 32, 0);
+	    instancePtr->imagePtr = imagePtr;
+
+	    /*
+	     * Determine the endianness of this machine.
+	     * We create images using the local host's endianness, rather
+	     * than the endianness of the server; otherwise we would have
+	     * to byte-swap any 16 or 32 bit values that we store in the
+	     * image in those situations where the server's endianness
+	     * is different from ours.
+	     */
+
+	    if (imagePtr != NULL) {
+		union {
+		    int i;
+		    char c[sizeof(int)];
+		} kludge;
+
+		imagePtr->bitmap_unit = sizeof(pixel) * NBBY;
+		kludge.i = 0;
+		kludge.c[0] = 1;
+		imagePtr->byte_order = (kludge.i == 1) ? LSBFirst : MSBFirst;
+		_XInitImageFuncPtrs(imagePtr);
+	    }
+	}
+    }
+
+    /*
+     * If the user has specified a width and/or height for the master
+     * which is different from our current width/height, set the size
+     * to the values specified by the user.  If we have no pixmap, we
+     * do this also, since it has the side effect of allocating a
+     * pixmap for us.
+     */
+
+    if ((instancePtr->pixels == None) || (instancePtr->error == NULL)
+	    || (instancePtr->width != masterPtr->width)
+	    || (instancePtr->height != masterPtr->height)) {
+	ImgPhotoInstanceSetSize(instancePtr);
+    }
+
+    /*
+     * Redither this instance if necessary.
+     */
+
+    if ((masterPtr->flags & IMAGE_CHANGED)
+	    || (instancePtr->colorTablePtr != colorTablePtr)) {
+	TkClipBox(masterPtr->validRegion, &validBox);
+	if ((validBox.width > 0) && (validBox.height > 0)) {
+	    DitherInstance(instancePtr, validBox.x, validBox.y,
+		    validBox.width, validBox.height);
+	}
+    }
+
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoGet --
+ *
+ *	This procedure is called for each use of a photo image in a
+ *	widget.
+ *
+ * Results:
+ *	The return value is a token for the instance, which is passed
+ *	back to us in calls to ImgPhotoDisplay and ImgPhotoFree.
+ *
+ * Side effects:
+ *	A data structure is set up for the instance (or, an existing
+ *	instance is re-used for the new one).
+ *
+ *----------------------------------------------------------------------
+ */
+
+static ClientData
+ImgPhotoGet(tkwin, masterData)
+    Tk_Window tkwin;		/* Window in which the instance will be
+				 * used. */
+    ClientData masterData;	/* Pointer to our master structure for the
+				 * image. */
+{
+    PhotoMaster *masterPtr = (PhotoMaster *) masterData;
+    PhotoInstance *instancePtr;
+    Colormap colormap;
+    int mono, nRed, nGreen, nBlue;
+    XVisualInfo visualInfo, *visInfoPtr;
+    XRectangle validBox;
+    char buf[16];
+    int numVisuals;
+    XColor *white, *black;
+    XGCValues gcValues;
+
+    /*
+     * Table of "best" choices for palette for PseudoColor displays
+     * with between 3 and 15 bits/pixel.
+     */
+
+    static int paletteChoice[13][3] = {
+	/*  #red, #green, #blue */
+	 {2,  2,  2,			/* 3 bits, 8 colors */},
+	 {2,  3,  2,			/* 4 bits, 12 colors */},
+	 {3,  4,  2,			/* 5 bits, 24 colors */},
+	 {4,  5,  3,			/* 6 bits, 60 colors */},
+	 {5,  6,  4,			/* 7 bits, 120 colors */},
+	 {7,  7,  4,			/* 8 bits, 198 colors */},
+	 {8, 10,  6,			/* 9 bits, 480 colors */},
+	{10, 12,  8,			/* 10 bits, 960 colors */},
+	{14, 15,  9,			/* 11 bits, 1890 colors */},
+	{16, 20, 12,			/* 12 bits, 3840 colors */},
+	{20, 24, 16,			/* 13 bits, 7680 colors */},
+	{26, 30, 20,			/* 14 bits, 15600 colors */},
+	{32, 32, 30,			/* 15 bits, 30720 colors */}
+    };
+
+    /*
+     * See if there is already an instance for windows using
+     * the same colormap.  If so then just re-use it.
+     */
+
+    colormap = Tk_Colormap(tkwin);
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	if ((colormap == instancePtr->colormap)
+		&& (Tk_Display(tkwin) == instancePtr->display)) {
+
+	    /*
+	     * Re-use this instance.
+	     */
+
+	    if (instancePtr->refCount == 0) {
+		/*
+		 * We are resurrecting this instance.
+		 */
+
+		Tcl_CancelIdleCall(DisposeInstance, (ClientData) instancePtr);
+		if (instancePtr->colorTablePtr != NULL) {
+		    FreeColorTable(instancePtr->colorTablePtr);
+		}
+		GetColorTable(instancePtr);
+	    }
+	    instancePtr->refCount++;
+	    return (ClientData) instancePtr;
+	}
+    }
+
+    /*
+     * The image isn't already in use in a window with the same colormap.
+     * Make a new instance of the image.
+     */
+
+    instancePtr = (PhotoInstance *) ckalloc(sizeof(PhotoInstance));
+    instancePtr->masterPtr = masterPtr;
+    instancePtr->display = Tk_Display(tkwin);
+    instancePtr->colormap = Tk_Colormap(tkwin);
+    Tk_PreserveColormap(instancePtr->display, instancePtr->colormap);
+    instancePtr->refCount = 1;
+    instancePtr->colorTablePtr = NULL;
+    instancePtr->pixels = None;
+    instancePtr->error = NULL;
+    instancePtr->width = 0;
+    instancePtr->height = 0;
+    instancePtr->imagePtr = 0;
+    instancePtr->nextPtr = masterPtr->instancePtr;
+    masterPtr->instancePtr = instancePtr;
+
+    /*
+     * Obtain information about the visual and decide on the
+     * default palette.
+     */
+
+    visualInfo.screen = Tk_ScreenNumber(tkwin);
+    visualInfo.visualid = XVisualIDFromVisual(Tk_Visual(tkwin));
+    visInfoPtr = XGetVisualInfo(Tk_Display(tkwin),
+	    VisualScreenMask | VisualIDMask, &visualInfo, &numVisuals);
+    nRed = 2;
+    nGreen = nBlue = 0;
+    mono = 1;
+    if (visInfoPtr != NULL) {
+	instancePtr->visualInfo = *visInfoPtr;
+	switch (visInfoPtr->class) {
+	    case DirectColor:
+	    case TrueColor:
+		nRed = 1 << CountBits(visInfoPtr->red_mask);
+		nGreen = 1 << CountBits(visInfoPtr->green_mask);
+		nBlue = 1 << CountBits(visInfoPtr->blue_mask);
+		mono = 0;
+		break;
+	    case PseudoColor:
+	    case StaticColor:
+		if (visInfoPtr->depth > 15) {
+		    nRed = 32;
+		    nGreen = 32;
+		    nBlue = 32;
+		    mono = 0;
+		} else if (visInfoPtr->depth >= 3) {
+		    int *ip = paletteChoice[visInfoPtr->depth - 3];
+    
+		    nRed = ip[0];
+		    nGreen = ip[1];
+		    nBlue = ip[2];
+		    mono = 0;
+		}
+		break;
+	    case GrayScale:
+	    case StaticGray:
+		nRed = 1 << visInfoPtr->depth;
+		break;
+	}
+	XFree((char *) visInfoPtr);
+
+    } else {
+	panic("ImgPhotoGet couldn't find visual for window");
+    }
+
+    sprintf(buf, ((mono) ? "%d": "%d/%d/%d"), nRed, nGreen, nBlue);
+    instancePtr->defaultPalette = Tk_GetUid(buf);
+
+    /*
+     * Make a GC with background = black and foreground = white.
+     */
+
+    white = Tk_GetColor(masterPtr->interp, tkwin, "white");
+    black = Tk_GetColor(masterPtr->interp, tkwin, "black");
+    gcValues.foreground = (white != NULL)? white->pixel:
+	    WhitePixelOfScreen(Tk_Screen(tkwin));
+    gcValues.background = (black != NULL)? black->pixel:
+	    BlackPixelOfScreen(Tk_Screen(tkwin));
+    gcValues.graphics_exposures = False;
+    instancePtr->gc = Tk_GetGC(tkwin,
+	    GCForeground|GCBackground|GCGraphicsExposures, &gcValues);
+
+    /*
+     * Set configuration options and finish the initialization of the instance.
+     */
+
+    ImgPhotoConfigureInstance(instancePtr);
+
+    /*
+     * If this is the first instance, must set the size of the image.
+     */
+
+    if (instancePtr->nextPtr == NULL) {
+	Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0,
+		masterPtr->width, masterPtr->height);
+    }
+
+    /*
+     * Dither the image to fill in this instance's pixmap.
+     */
+
+    TkClipBox(masterPtr->validRegion, &validBox);
+    if ((validBox.width > 0) && (validBox.height > 0)) {
+	DitherInstance(instancePtr, validBox.x, validBox.y, validBox.width,
+		validBox.height);
+    }
+
+    return (ClientData) instancePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoDisplay --
+ *
+ *	This procedure is invoked to draw a photo image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A portion of the image gets rendered in a pixmap or window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoDisplay(clientData, display, drawable, imageX, imageY, width,
+	height, drawableX, drawableY)
+    ClientData clientData;	/* Pointer to PhotoInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display on which to draw image. */
+    Drawable drawable;		/* Pixmap or window in which to draw image. */
+    int imageX, imageY;		/* Upper-left corner of region within image
+				 * to draw. */
+    int width, height;		/* Dimensions of region within image to draw. */
+    int drawableX, drawableY;	/* Coordinates within drawable that
+				 * correspond to imageX and imageY. */
+{
+    PhotoInstance *instancePtr = (PhotoInstance *) clientData;
+
+    /*
+     * If there's no pixmap, it means that an error occurred
+     * while creating the image instance so it can't be displayed.
+     */
+
+    if (instancePtr->pixels == None) {
+	return;
+    }
+
+    /*
+     * masterPtr->region describes which parts of the image contain
+     * valid data.  We set this region as the clip mask for the gc,
+     * setting its origin appropriately, and use it when drawing the
+     * image.
+     */
+
+    TkSetRegion(display, instancePtr->gc, instancePtr->masterPtr->validRegion);
+    XSetClipOrigin(display, instancePtr->gc, drawableX - imageX,
+	    drawableY - imageY);
+    XCopyArea(display, instancePtr->pixels, drawable, instancePtr->gc,
+	    imageX, imageY, (unsigned) width, (unsigned) height,
+	    drawableX, drawableY);
+    XSetClipMask(display, instancePtr->gc, None);
+    XSetClipOrigin(display, instancePtr->gc, 0, 0);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoFree --
+ *
+ *	This procedure is called when a widget ceases to use a
+ *	particular instance of an image.  We don't actually get
+ *	rid of the instance until later because we may be about
+ *	to get this instance again.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Internal data structures get cleaned up, later.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoFree(clientData, display)
+    ClientData clientData;	/* Pointer to PhotoInstance structure for
+				 * for instance to be displayed. */
+    Display *display;		/* Display containing window that used image. */
+{
+    PhotoInstance *instancePtr = (PhotoInstance *) clientData;
+    ColorTable *colorPtr;
+
+    instancePtr->refCount -= 1;
+    if (instancePtr->refCount > 0) {
+	return;
+    }
+
+    /*
+     * There are no more uses of the image within this widget.
+     * Decrement the count of live uses of its color table, so
+     * that its colors can be reclaimed if necessary, and
+     * set up an idle call to free the instance structure.
+     */
+
+    colorPtr = instancePtr->colorTablePtr;
+    if (colorPtr != NULL) {
+	colorPtr->liveRefCount -= 1;
+    }
+    
+    Tcl_DoWhenIdle(DisposeInstance, (ClientData) instancePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoDelete --
+ *
+ *	This procedure is called by the image code to delete the
+ *	master structure for an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with the image get freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoDelete(masterData)
+    ClientData masterData;	/* Pointer to PhotoMaster structure for
+				 * image.  Must not have any more instances. */
+{
+    PhotoMaster *masterPtr = (PhotoMaster *) masterData;
+    PhotoInstance *instancePtr;
+
+    while ((instancePtr = masterPtr->instancePtr) != NULL) {
+	if (instancePtr->refCount > 0) {
+	    panic("tried to delete photo image when instances still exist");
+	}
+	Tcl_CancelIdleCall(DisposeInstance, (ClientData) instancePtr);
+	DisposeInstance((ClientData) instancePtr);
+    }
+    masterPtr->tkMaster = NULL;
+    if (masterPtr->imageCmd != NULL) {
+	Tcl_DeleteCommand(masterPtr->interp,
+		Tcl_GetCommandName(masterPtr->interp, masterPtr->imageCmd));
+    }
+    if (masterPtr->pix24 != NULL) {
+	ckfree((char *) masterPtr->pix24);
+    }
+    if (masterPtr->validRegion != NULL) {
+	TkDestroyRegion(masterPtr->validRegion);
+    }
+    Tk_FreeOptions(configSpecs, (char *) masterPtr, (Display *) NULL, 0);
+    ckfree((char *) masterPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoCmdDeletedProc --
+ *
+ *	This procedure is invoked when the image command for an image
+ *	is deleted.  It deletes the image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image is deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to PhotoMaster structure for
+				 * image. */
+{
+    PhotoMaster *masterPtr = (PhotoMaster *) clientData;
+
+    masterPtr->imageCmd = NULL;
+    if (masterPtr->tkMaster != NULL) {
+	Tk_DeleteImage(masterPtr->interp, Tk_NameOfImage(masterPtr->tkMaster));
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoSetSize --
+ *
+ *	This procedure reallocates the image storage and instance
+ *	pixmaps for a photo image, as necessary, to change the
+ *	image's size to `width' x `height' pixels.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Storage gets reallocated, for the master and all its instances.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoSetSize(masterPtr, width, height)
+    PhotoMaster *masterPtr;
+    int width, height;
+{
+    unsigned char *newPix24;
+    int h, offset, pitch;
+    unsigned char *srcPtr, *destPtr;
+    XRectangle validBox, clipBox;
+    TkRegion clipRegion;
+    PhotoInstance *instancePtr;
+
+    if (masterPtr->userWidth > 0) {
+	width = masterPtr->userWidth;
+    }
+    if (masterPtr->userHeight > 0) {
+	height = masterPtr->userHeight;
+    }
+
+    /*
+     * We have to trim the valid region if it is currently
+     * larger than the new image size.
+     */
+
+    TkClipBox(masterPtr->validRegion, &validBox);
+    if ((validBox.x + validBox.width > (unsigned) width)
+	    || (validBox.y + validBox.height > (unsigned) height)) {
+	clipBox.x = 0;
+	clipBox.y = 0;
+	clipBox.width = width;
+	clipBox.height = height;
+	clipRegion = TkCreateRegion();
+	TkUnionRectWithRegion(&clipBox, clipRegion, clipRegion);
+	TkIntersectRegion(masterPtr->validRegion, clipRegion,
+		masterPtr->validRegion);
+	TkDestroyRegion(clipRegion);
+	TkClipBox(masterPtr->validRegion, &validBox);
+    }
+
+    if ((width != masterPtr->width) || (height != masterPtr->height)
+	    || (masterPtr->pix24 == NULL)) {
+
+	/*
+	 * Reallocate storage for the 24-bit image and copy
+	 * over valid regions.
+	 */
+
+	pitch = width * 3;
+	newPix24 = (unsigned char *) ckalloc((unsigned) (height * pitch));
+
+	/*
+	 * Zero the new array.  The dithering code shouldn't read the
+	 * areas outside validBox, but they might be copied to another
+	 * photo image or written to a file.
+	 */
+
+	if ((masterPtr->pix24 != NULL)
+	    && ((width == masterPtr->width) || (width == validBox.width))) {
+	    if (validBox.y > 0) {
+		memset((VOID *) newPix24, 0, (size_t) (validBox.y * pitch));
+	    }
+	    h = validBox.y + validBox.height;
+	    if (h < height) {
+		memset((VOID *) (newPix24 + h * pitch), 0,
+			(size_t) ((height - h) * pitch));
+	    }
+	} else {
+	    memset((VOID *) newPix24, 0, (size_t) (height * pitch));
+	}
+
+	if (masterPtr->pix24 != NULL) {
+
+	    /*
+	     * Copy the common area over to the new array array and
+	     * free the old array.
+	     */
+
+	    if (width == masterPtr->width) {
+
+		/*
+		 * The region to be copied is contiguous.
+		 */
+
+		offset = validBox.y * pitch;
+		memcpy((VOID *) (newPix24 + offset),
+			(VOID *) (masterPtr->pix24 + offset),
+			(size_t) (validBox.height * pitch));
+
+	    } else if ((validBox.width > 0) && (validBox.height > 0)) {
+
+		/*
+		 * Area to be copied is not contiguous - copy line by line.
+		 */
+
+		destPtr = newPix24 + (validBox.y * width + validBox.x) * 3;
+		srcPtr = masterPtr->pix24 + (validBox.y * masterPtr->width
+			+ validBox.x) * 3;
+		for (h = validBox.height; h > 0; h--) {
+		    memcpy((VOID *) destPtr, (VOID *) srcPtr,
+			    (size_t) (validBox.width * 3));
+		    destPtr += width * 3;
+		    srcPtr += masterPtr->width * 3;
+		}
+	    }
+
+	    ckfree((char *) masterPtr->pix24);
+	}
+
+	masterPtr->pix24 = newPix24;
+	masterPtr->width = width;
+	masterPtr->height = height;
+
+	/*
+	 * Dithering will be correct up to the end of the last
+	 * pre-existing complete scanline.
+	 */
+
+	if ((validBox.x > 0) || (validBox.y > 0)) {
+	    masterPtr->ditherX = 0;
+	    masterPtr->ditherY = 0;
+	} else if (validBox.width == width) {
+	    if ((int) validBox.height < masterPtr->ditherY) {
+		masterPtr->ditherX = 0;
+		masterPtr->ditherY = validBox.height;
+	    }
+	} else {
+	    if ((masterPtr->ditherY > 0)
+		    || ((int) validBox.width < masterPtr->ditherX)) {
+		masterPtr->ditherX = validBox.width;
+		masterPtr->ditherY = 0;
+	    }
+	}
+    }
+
+    /*
+     * Now adjust the sizes of the pixmaps for all of the instances.
+     */
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	ImgPhotoInstanceSetSize(instancePtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImgPhotoInstanceSetSize --
+ *
+ * 	This procedure reallocates the instance pixmap and dithering
+ *	error array for a photo instance, as necessary, to change the
+ *	image's size to `width' x `height' pixels.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Storage gets reallocated, here and in the X server.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImgPhotoInstanceSetSize(instancePtr)
+    PhotoInstance *instancePtr;		/* Instance whose size is to be
+					 * changed. */
+{
+    PhotoMaster *masterPtr;
+    schar *newError;
+    schar *errSrcPtr, *errDestPtr;
+    int h, offset;
+    XRectangle validBox;
+    Pixmap newPixmap;
+
+    masterPtr = instancePtr->masterPtr;
+    TkClipBox(masterPtr->validRegion, &validBox);
+
+    if ((instancePtr->width != masterPtr->width)
+	    || (instancePtr->height != masterPtr->height)
+	    || (instancePtr->pixels == None)) {
+	newPixmap = Tk_GetPixmap(instancePtr->display,
+		RootWindow(instancePtr->display,
+		    instancePtr->visualInfo.screen),
+		(masterPtr->width > 0) ? masterPtr->width: 1,
+		(masterPtr->height > 0) ? masterPtr->height: 1,
+		instancePtr->visualInfo.depth);
+
+	/*
+	 * The following is a gross hack needed to properly support colormaps
+	 * under Windows.  Before the pixels can be copied to the pixmap,
+	 * the relevent colormap must be associated with the drawable.
+	 * Normally we can infer this association from the window that
+	 * was used to create the pixmap.  However, in this case we're
+	 * using the root window, so we have to be more explicit.
+	 */
+
+	TkSetPixmapColormap(newPixmap, instancePtr->colormap);
+
+	if (instancePtr->pixels != None) {
+	    /*
+	     * Copy any common pixels from the old pixmap and free it.
+	     */
+	    XCopyArea(instancePtr->display, instancePtr->pixels, newPixmap,
+		    instancePtr->gc, validBox.x, validBox.y,
+		    validBox.width, validBox.height, validBox.x, validBox.y);
+	    Tk_FreePixmap(instancePtr->display, instancePtr->pixels);
+	}
+	instancePtr->pixels = newPixmap;
+    }
+
+    if ((instancePtr->width != masterPtr->width)
+	    || (instancePtr->height != masterPtr->height)
+	    || (instancePtr->error == NULL)) {
+
+	newError = (schar *) ckalloc((unsigned)
+		(masterPtr->height * masterPtr->width * 3 * sizeof(schar)));
+
+	/*
+	 * Zero the new array so that we don't get bogus error values
+	 * propagating into areas we dither later.
+	 */
+
+	if ((instancePtr->error != NULL)
+	    && ((instancePtr->width == masterPtr->width)
+		|| (validBox.width == masterPtr->width))) {
+	    if (validBox.y > 0) {
+		memset((VOID *) newError, 0, (size_t)
+			(validBox.y * masterPtr->width * 3 * sizeof(schar)));
+	    }
+	    h = validBox.y + validBox.height;
+	    if (h < masterPtr->height) {
+		memset((VOID *) (newError + h * masterPtr->width * 3), 0,
+			(size_t) ((masterPtr->height - h)
+			    * masterPtr->width * 3 * sizeof(schar)));
+	    }
+	} else {
+	    memset((VOID *) newError, 0, (size_t)
+		    (masterPtr->height * masterPtr->width * 3 * sizeof(schar)));
+	}
+
+	if (instancePtr->error != NULL) {
+
+	    /*
+	     * Copy the common area over to the new array
+	     * and free the old array.
+	     */
+
+	    if (masterPtr->width == instancePtr->width) {
+
+		offset = validBox.y * masterPtr->width * 3;
+		memcpy((VOID *) (newError + offset),
+			(VOID *) (instancePtr->error + offset),
+			(size_t) (validBox.height
+			* masterPtr->width * 3 * sizeof(schar)));
+
+	    } else if (validBox.width > 0 && validBox.height > 0) {
+
+		errDestPtr = newError
+			+ (validBox.y * masterPtr->width + validBox.x) * 3;
+		errSrcPtr = instancePtr->error
+			+ (validBox.y * instancePtr->width + validBox.x) * 3;
+		for (h = validBox.height; h > 0; --h) {
+		    memcpy((VOID *) errDestPtr, (VOID *) errSrcPtr,
+			    validBox.width * 3 * sizeof(schar));
+		    errDestPtr += masterPtr->width * 3;
+		    errSrcPtr += instancePtr->width * 3;
+		}
+	    }
+	    ckfree((char *) instancePtr->error);
+	}
+
+	instancePtr->error = newError;
+    }
+
+    instancePtr->width = masterPtr->width;
+    instancePtr->height = masterPtr->height;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * IsValidPalette --
+ *
+ *	This procedure is called to check whether a value given for
+ *	the -palette option is valid for a particular instance
+ * 	of a photo image.
+ *
+ * Results:
+ *	A boolean value: 1 if the palette is acceptable, 0 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+IsValidPalette(instancePtr, palette)
+    PhotoInstance *instancePtr;		/* Instance to which the palette
+					 * specification is to be applied. */
+    char *palette;			/* Palette specification string. */
+{
+    int nRed, nGreen, nBlue, mono, numColors;
+    char *endp;
+
+    /*
+     * First parse the specification: it must be of the form
+     * %d or %d/%d/%d.
+     */
+
+    nRed = strtol(palette, &endp, 10);
+    if ((endp == palette) || ((*endp != 0) && (*endp != '/'))
+	    || (nRed < 2) || (nRed > 256)) {
+	return 0;
+    }
+
+    if (*endp == 0) {
+	mono = 1;
+	nGreen = nBlue = nRed;
+    } else {
+	palette = endp + 1;
+	nGreen = strtol(palette, &endp, 10);
+	if ((endp == palette) || (*endp != '/') || (nGreen < 2)
+		|| (nGreen > 256)) {
+	    return 0;
+	}
+	palette = endp + 1;
+	nBlue = strtol(palette, &endp, 10);
+	if ((endp == palette) || (*endp != 0) || (nBlue < 2)
+		|| (nBlue > 256)) {
+	    return 0;
+	}
+	mono = 0;
+    }
+
+    switch (instancePtr->visualInfo.class) {
+	case DirectColor:
+	case TrueColor:
+	    if ((nRed > (1 << CountBits(instancePtr->visualInfo.red_mask)))
+		    || (nGreen > (1
+			<< CountBits(instancePtr->visualInfo.green_mask)))
+		    || (nBlue > (1
+			<< CountBits(instancePtr->visualInfo.blue_mask)))) {
+		return 0;
+	    }
+	    break;
+	case PseudoColor:
+	case StaticColor:
+	    numColors = nRed;
+	    if (!mono) {
+		numColors *= nGreen*nBlue;
+	    }
+	    if (numColors > (1 << instancePtr->visualInfo.depth)) {
+		return 0;
+	    }
+	    break;
+	case GrayScale:
+	case StaticGray:
+	    if (!mono || (nRed > (1 << instancePtr->visualInfo.depth))) {
+		return 0;
+	    }
+	    break;
+    }
+
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CountBits --
+ *
+ *	This procedure counts how many bits are set to 1 in `mask'.
+ *
+ * Results:
+ *	The integer number of bits.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+CountBits(mask)
+    pixel mask;			/* Value to count the 1 bits in. */
+{
+    int n;
+
+    for( n = 0; mask != 0; mask &= mask - 1 )
+	n++;
+    return n;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetColorTable --
+ *
+ *	This procedure is called to allocate a table of colormap
+ *	information for an instance of a photo image.  Only one such
+ *	table is allocated for all photo instances using the same
+ *	display, colormap, palette and gamma values, so that the
+ *	application need only request a set of colors from the X
+ *	server once for all such photo widgets.  This procedure
+ *	maintains a hash table to find previously-allocated
+ *	ColorTables.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new ColorTable may be allocated and placed in the hash
+ *	table, and have colors allocated for it.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetColorTable(instancePtr)
+    PhotoInstance *instancePtr;		/* Instance needing a color table. */
+{
+    ColorTable *colorPtr;
+    Tcl_HashEntry *entry;
+    ColorTableId id;
+    int isNew;
+
+    /*
+     * Look for an existing ColorTable in the hash table.
+     */
+
+    memset((VOID *) &id, 0, sizeof(id));
+    id.display = instancePtr->display;
+    id.colormap = instancePtr->colormap;
+    id.palette = instancePtr->palette;
+    id.gamma = instancePtr->gamma;
+    if (!imgPhotoColorHashInitialized) {
+	Tcl_InitHashTable(&imgPhotoColorHash, N_COLOR_HASH);
+	imgPhotoColorHashInitialized = 1;
+    }
+    entry = Tcl_CreateHashEntry(&imgPhotoColorHash, (char *) &id, &isNew);
+
+    if (!isNew) {
+	/*
+	 * Re-use the existing entry.
+	 */
+
+	colorPtr = (ColorTable *) Tcl_GetHashValue(entry);
+
+    } else {
+	/*
+	 * No color table currently available; need to make one.
+	 */
+
+	colorPtr = (ColorTable *) ckalloc(sizeof(ColorTable));
+
+	/*
+	 * The following line of code should not normally be needed due
+	 * to the assignment in the following line.  However, it compensates
+	 * for bugs in some compilers (HP, for example) where
+	 * sizeof(ColorTable) is 24 but the assignment only copies 20 bytes,
+	 * leaving 4 bytes uninitialized;  these cause problems when using
+	 * the id for lookups in imgPhotoColorHash, and can result in
+	 * core dumps.
+	 */
+
+	memset((VOID *) &colorPtr->id, 0, sizeof(ColorTableId));
+	colorPtr->id = id;
+	Tk_PreserveColormap(colorPtr->id.display, colorPtr->id.colormap);
+	colorPtr->flags = 0;
+	colorPtr->refCount = 0;
+	colorPtr->liveRefCount = 0;
+	colorPtr->numColors = 0;
+	colorPtr->visualInfo = instancePtr->visualInfo;
+	colorPtr->pixelMap = NULL;
+	Tcl_SetHashValue(entry, colorPtr);
+    }
+
+    colorPtr->refCount++;
+    colorPtr->liveRefCount++;
+    instancePtr->colorTablePtr = colorPtr;
+    if (colorPtr->flags & DISPOSE_PENDING) {
+	Tcl_CancelIdleCall(DisposeColorTable, (ClientData) colorPtr);
+	colorPtr->flags &= ~DISPOSE_PENDING;
+    }
+
+    /*
+     * Allocate colors for this color table if necessary.
+     */
+
+    if ((colorPtr->numColors == 0)
+	    && ((colorPtr->flags & BLACK_AND_WHITE) == 0)) {
+	AllocateColors(colorPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FreeColorTable --
+ *
+ *	This procedure is called when an instance ceases using a
+ *	color table.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If no other instances are using this color table, a when-idle
+ *	handler is registered to free up the color table and the colors
+ *	allocated for it.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FreeColorTable(colorPtr)
+    ColorTable *colorPtr;	/* Pointer to the color table which is
+				 * no longer required by an instance. */
+{
+    colorPtr->refCount--;
+    if (colorPtr->refCount > 0) {
+	return;
+    }
+    if ((colorPtr->flags & DISPOSE_PENDING) == 0) {
+	Tcl_DoWhenIdle(DisposeColorTable, (ClientData) colorPtr);
+	colorPtr->flags |= DISPOSE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * AllocateColors --
+ *
+ *	This procedure allocates the colors required by a color table,
+ *	and sets up the fields in the color table data structure which
+ *	are used in dithering.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Colors are allocated from the X server.  Fields in the
+ *	color table data structure are updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+AllocateColors(colorPtr)
+    ColorTable *colorPtr;	/* Pointer to the color table requiring
+				 * colors to be allocated. */
+{
+    int i, r, g, b, rMult, mono;
+    int numColors, nRed, nGreen, nBlue;
+    double fr, fg, fb, igam;
+    XColor *colors;
+    unsigned long *pixels;
+
+    /* 16-bit intensity value for i/n of full intensity. */
+#   define CFRAC(i, n)	((i) * 65535 / (n))
+
+    /* As for CFRAC, but apply exponent of g. */
+#   define CGFRAC(i, n, g)	((int)(65535 * pow((double)(i) / (n), (g))))
+
+    /*
+     * First parse the palette specification to get the required number of
+     * shades of each primary.
+     */
+
+    mono = sscanf(colorPtr->id.palette, "%d/%d/%d", &nRed, &nGreen, &nBlue)
+	    <= 1;
+    igam = 1.0 / colorPtr->id.gamma;
+
+    /*
+     * Each time around this loop, we reduce the number of colors we're
+     * trying to allocate until we succeed in allocating all of the colors
+     * we need.
+     */
+
+    for (;;) {
+	/*
+	 * If we are using 1 bit/pixel, we don't need to allocate
+	 * any colors (we just use the foreground and background
+	 * colors in the GC).
+	 */
+
+	if (mono && (nRed <= 2)) {
+	    colorPtr->flags |= BLACK_AND_WHITE;
+	    return;
+	}
+
+	/*
+	 * Calculate the RGB coordinates of the colors we want to
+	 * allocate and store them in *colors.
+	 */
+
+	if ((colorPtr->visualInfo.class == DirectColor)
+	    || (colorPtr->visualInfo.class == TrueColor)) {
+
+	    /*
+	     * Direct/True Color: allocate shades of red, green, blue
+	     * independently.
+	     */
+
+	    if (mono) {
+		numColors = nGreen = nBlue = nRed;
+	    } else {
+		numColors = MAX(MAX(nRed, nGreen), nBlue);
+	    }
+	    colors = (XColor *) ckalloc(numColors * sizeof(XColor));
+
+	    for (i = 0; i < numColors; ++i) {
+		if (igam == 1.0) {
+		    colors[i].red = CFRAC(i, nRed - 1);
+		    colors[i].green = CFRAC(i, nGreen - 1);
+		    colors[i].blue = CFRAC(i, nBlue - 1);
+		} else {
+		    colors[i].red = CGFRAC(i, nRed - 1, igam);
+		    colors[i].green = CGFRAC(i, nGreen - 1, igam);
+		    colors[i].blue = CGFRAC(i, nBlue - 1, igam);
+		}
+	    }
+	} else {
+	    /*
+	     * PseudoColor, StaticColor, GrayScale or StaticGray visual:
+	     * we have to allocate each color in the color cube separately.
+	     */
+
+	    numColors = (mono) ? nRed: (nRed * nGreen * nBlue);
+	    colors = (XColor *) ckalloc(numColors * sizeof(XColor));
+
+	    if (!mono) {
+		/*
+		 * Color display using a PseudoColor or StaticColor visual.
+		 */
+
+		i = 0;
+		for (r = 0; r < nRed; ++r) {
+		    for (g = 0; g < nGreen; ++g) {
+			for (b = 0; b < nBlue; ++b) {
+			    if (igam == 1.0) {
+				colors[i].red = CFRAC(r, nRed - 1);
+				colors[i].green = CFRAC(g, nGreen - 1);
+				colors[i].blue = CFRAC(b, nBlue - 1);
+			    } else {
+				colors[i].red = CGFRAC(r, nRed - 1, igam);
+				colors[i].green = CGFRAC(g, nGreen - 1, igam);
+				colors[i].blue = CGFRAC(b, nBlue - 1, igam);
+			    }
+			    i++;
+			}
+		    }
+		}
+	    } else {
+		/*
+		 * Monochrome display - allocate the shades of grey we want.
+		 */
+
+		for (i = 0; i < numColors; ++i) {
+		    if (igam == 1.0) {
+			r = CFRAC(i, numColors - 1);
+		    } else {
+			r = CGFRAC(i, numColors - 1, igam);
+		    }
+		    colors[i].red = colors[i].green = colors[i].blue = r;
+		}
+	    }
+	}
+
+	/*
+	 * Now try to allocate the colors we've calculated.
+	 */
+
+	pixels = (unsigned long *) ckalloc(numColors * sizeof(unsigned long));
+	for (i = 0; i < numColors; ++i) {
+	    if (!XAllocColor(colorPtr->id.display, colorPtr->id.colormap,
+		    &colors[i])) {
+
+		/*
+		 * Can't get all the colors we want in the default colormap;
+		 * first try freeing colors from other unused color tables.
+		 */
+
+		if (!ReclaimColors(&colorPtr->id, numColors - i)
+			|| !XAllocColor(colorPtr->id.display,
+			colorPtr->id.colormap, &colors[i])) {
+		    /*
+		     * Still can't allocate the color.
+		     */
+		    break;
+		}
+	    }
+	    pixels[i] = colors[i].pixel;
+	}
+
+	/*
+	 * If we didn't get all of the colors, reduce the
+	 * resolution of the color cube, free the ones we got,
+	 * and try again.
+	 */
+
+	if (i >= numColors) {
+	    break;
+	}
+	XFreeColors(colorPtr->id.display, colorPtr->id.colormap, pixels, i, 0);
+	ckfree((char *) colors);
+	ckfree((char *) pixels);
+
+	if (!mono) {
+	    if ((nRed == 2) && (nGreen == 2) && (nBlue == 2)) {
+		/*
+		 * Fall back to 1-bit monochrome display.
+		 */
+
+		mono = 1;
+	    } else {
+		/*
+		 * Reduce the number of shades of each primary to about
+		 * 3/4 of the previous value.  This should reduce the
+		 * total number of colors required to about half the
+		 * previous value for PseudoColor displays.
+		 */
+
+		nRed = (nRed * 3 + 2) / 4;
+		nGreen = (nGreen * 3 + 2) / 4;
+		nBlue = (nBlue * 3 + 2) / 4;
+	    }
+	} else {
+	    /*
+	     * Reduce the number of shades of gray to about 1/2.
+	     */
+
+	    nRed = nRed / 2;
+	}
+    }
+    
+    /*
+     * We have allocated all of the necessary colors:
+     * fill in various fields of the ColorTable record.
+     */
+
+    if (!mono) {
+	colorPtr->flags |= COLOR_WINDOW;
+
+	/*
+	 * The following is a hairy hack.  We only want to index into
+	 * the pixelMap on colormap displays.  However, if the display
+	 * is on Windows, then we actually want to store the index not
+	 * the value since we will be passing the color table into the
+	 * TkPutImage call.
+	 */
+	
+#ifndef __WIN32__
+	if ((colorPtr->visualInfo.class != DirectColor)
+		&& (colorPtr->visualInfo.class != TrueColor)) {
+	    colorPtr->flags |= MAP_COLORS;
+	}
+#endif /* __WIN32__ */
+    }
+
+    colorPtr->numColors = numColors;
+    colorPtr->pixelMap = pixels;
+
+    /*
+     * Set up quantization tables for dithering.
+     */
+    rMult = nGreen * nBlue;
+    for (i = 0; i < 256; ++i) {
+	r = (i * (nRed - 1) + 127) / 255;
+	if (mono) {
+	    fr = (double) colors[r].red / 65535.0;
+	    if (colorPtr->id.gamma != 1.0 ) {
+		fr = pow(fr, colorPtr->id.gamma);
+	    }
+	    colorPtr->colorQuant[0][i] = (int)(fr * 255.99);
+	    colorPtr->redValues[i] = colors[r].pixel;
+	} else {
+	    g = (i * (nGreen - 1) + 127) / 255;
+	    b = (i * (nBlue - 1) + 127) / 255;
+	    if ((colorPtr->visualInfo.class == DirectColor)
+		    || (colorPtr->visualInfo.class == TrueColor)) {
+		colorPtr->redValues[i] = colors[r].pixel
+		    & colorPtr->visualInfo.red_mask;
+		colorPtr->greenValues[i] = colors[g].pixel
+		    & colorPtr->visualInfo.green_mask;
+		colorPtr->blueValues[i] = colors[b].pixel
+		    & colorPtr->visualInfo.blue_mask;
+	    } else {
+		r *= rMult;
+		g *= nBlue;
+		colorPtr->redValues[i] = r;
+		colorPtr->greenValues[i] = g;
+		colorPtr->blueValues[i] = b;
+	    }
+	    fr = (double) colors[r].red / 65535.0;
+	    fg = (double) colors[g].green / 65535.0;
+	    fb = (double) colors[b].blue / 65535.0;
+	    if (colorPtr->id.gamma != 1.0) {
+		fr = pow(fr, colorPtr->id.gamma);
+		fg = pow(fg, colorPtr->id.gamma);
+		fb = pow(fb, colorPtr->id.gamma);
+	    }
+	    colorPtr->colorQuant[0][i] = (int)(fr * 255.99);
+	    colorPtr->colorQuant[1][i] = (int)(fg * 255.99);
+	    colorPtr->colorQuant[2][i] = (int)(fb * 255.99);
+	}
+    }
+
+    ckfree((char *) colors);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisposeColorTable --
+ *
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The colors in the argument color table are freed, as is the
+ *	color table structure itself.  The color table is removed
+ *	from the hash table which is used to locate color tables.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisposeColorTable(clientData)
+    ClientData clientData;	/* Pointer to the ColorTable whose
+				 * colors are to be released. */
+{
+    ColorTable *colorPtr;
+    Tcl_HashEntry *entry;
+
+    colorPtr = (ColorTable *) clientData;
+    if (colorPtr->pixelMap != NULL) {
+	if (colorPtr->numColors > 0) {
+	    XFreeColors(colorPtr->id.display, colorPtr->id.colormap,
+		    colorPtr->pixelMap, colorPtr->numColors, 0);
+	    Tk_FreeColormap(colorPtr->id.display, colorPtr->id.colormap);
+	}
+	ckfree((char *) colorPtr->pixelMap);
+    }
+
+    entry = Tcl_FindHashEntry(&imgPhotoColorHash, (char *) &colorPtr->id);
+    if (entry == NULL) {
+	panic("DisposeColorTable couldn't find hash entry");
+    }
+    Tcl_DeleteHashEntry(entry);
+
+    ckfree((char *) colorPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReclaimColors --
+ *
+ *	This procedure is called to try to free up colors in the
+ *	colormap used by a color table.  It looks for other color
+ *	tables with the same colormap and with a zero live reference
+ *	count, and frees their colors.  It only does so if there is
+ *	the possibility of freeing up at least `numColors' colors.
+ *
+ * Results:
+ *	The return value is TRUE if any colors were freed, FALSE
+ *	otherwise.
+ *
+ * Side effects:
+ *	ColorTables which are not currently in use may lose their
+ *	color allocations.
+ *
+ *---------------------------------------------------------------------- */
+
+static int
+ReclaimColors(id, numColors)
+    ColorTableId *id;		/* Pointer to information identifying
+				 * the color table which needs more colors. */
+    int numColors;		/* Number of colors required. */
+{
+    Tcl_HashSearch srch;
+    Tcl_HashEntry *entry;
+    ColorTable *colorPtr;
+    int nAvail;
+
+    /*
+     * First scan through the color hash table to get an
+     * upper bound on how many colors we might be able to free.
+     */
+
+    nAvail = 0;
+    entry = Tcl_FirstHashEntry(&imgPhotoColorHash, &srch);
+    while (entry != NULL) {
+	colorPtr = (ColorTable *) Tcl_GetHashValue(entry);
+	if ((colorPtr->id.display == id->display)
+	    && (colorPtr->id.colormap == id->colormap)
+	    && (colorPtr->liveRefCount == 0 )&& (colorPtr->numColors != 0)
+	    && ((colorPtr->id.palette != id->palette)
+		|| (colorPtr->id.gamma != id->gamma))) {
+
+	    /*
+	     * We could take this guy's colors off him.
+	     */
+
+	    nAvail += colorPtr->numColors;
+	}
+	entry = Tcl_NextHashEntry(&srch);
+    }
+
+    /*
+     * nAvail is an (over)estimate of the number of colors we could free.
+     */
+
+    if (nAvail < numColors) {
+	return 0;
+    }
+
+    /*
+     * Scan through a second time freeing colors.
+     */
+
+    entry = Tcl_FirstHashEntry(&imgPhotoColorHash, &srch);
+    while ((entry != NULL) && (numColors > 0)) {
+	colorPtr = (ColorTable *) Tcl_GetHashValue(entry);
+	if ((colorPtr->id.display == id->display)
+		&& (colorPtr->id.colormap == id->colormap)
+		&& (colorPtr->liveRefCount == 0) && (colorPtr->numColors != 0)
+		&& ((colorPtr->id.palette != id->palette)
+		    || (colorPtr->id.gamma != id->gamma))) {
+
+	    /*
+	     * Free the colors that this ColorTable has.
+	     */
+
+	    XFreeColors(colorPtr->id.display, colorPtr->id.colormap,
+		    colorPtr->pixelMap, colorPtr->numColors, 0);
+	    numColors -= colorPtr->numColors;
+	    colorPtr->numColors = 0;
+	    ckfree((char *) colorPtr->pixelMap);
+	    colorPtr->pixelMap = NULL;
+	}
+
+	entry = Tcl_NextHashEntry(&srch);
+    }
+    return 1;			/* we freed some colors */
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisposeInstance --
+ *
+ *	This procedure is called to finally free up an instance
+ *	of a photo image which is no longer required.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The instance data structure and the resources it references
+ *	are freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisposeInstance(clientData)
+    ClientData clientData;	/* Pointer to the instance whose resources
+				 * are to be released. */
+{
+    PhotoInstance *instancePtr = (PhotoInstance *) clientData;
+    PhotoInstance *prevPtr;
+
+    if (instancePtr->pixels != None) {
+	Tk_FreePixmap(instancePtr->display, instancePtr->pixels);
+    }
+    if (instancePtr->gc != None) {
+	Tk_FreeGC(instancePtr->display, instancePtr->gc);
+    }
+    if (instancePtr->imagePtr != NULL) {
+	XFree((char *) instancePtr->imagePtr);
+    }
+    if (instancePtr->error != NULL) {
+	ckfree((char *) instancePtr->error);
+    }
+    if (instancePtr->colorTablePtr != NULL) {
+	FreeColorTable(instancePtr->colorTablePtr);
+    }
+
+    if (instancePtr->masterPtr->instancePtr == instancePtr) {
+	instancePtr->masterPtr->instancePtr = instancePtr->nextPtr;
+    } else {
+	for (prevPtr = instancePtr->masterPtr->instancePtr;
+		prevPtr->nextPtr != instancePtr; prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body */
+	}
+	prevPtr->nextPtr = instancePtr->nextPtr;
+    }
+    Tk_FreeColormap(instancePtr->display, instancePtr->colormap);
+    ckfree((char *) instancePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MatchFileFormat --
+ *
+ *	This procedure is called to find a photo image file format
+ *	handler which can parse the image data in the given file.
+ *	If a user-specified format string is provided, only handlers
+ *	whose names match a prefix of the format string are tried.
+ *
+ * Results:
+ *	A standard TCL return value.  If the return value is TCL_OK, a
+ *	pointer to the image format record is returned in
+ *	*imageFormatPtr, and the width and height of the image are
+ *	returned in *widthPtr and *heightPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+MatchFileFormat(interp, f, fileName, formatString, imageFormatPtr,
+	widthPtr, heightPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    FILE *f;			/* The image file, open for reading. */
+    char *fileName;		/* The name of the image file. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    Tk_PhotoImageFormat **imageFormatPtr;
+				/* A pointer to the photo image format
+				 * record is returned here. */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here. */
+{
+    int matched;
+    Tk_PhotoImageFormat *formatPtr;
+
+    /*
+     * Scan through the table of file format handlers to find
+     * one which can handle the image.
+     */
+
+    matched = 0;
+    for (formatPtr = formatList; formatPtr != NULL;
+	 formatPtr = formatPtr->nextPtr) {
+	if (formatString != NULL) {
+	    if (strncasecmp(formatString, formatPtr->name,
+		    strlen(formatPtr->name)) != 0) {
+		continue;
+	    }
+	    matched = 1;
+	    if (formatPtr->fileMatchProc == NULL) {
+		Tcl_AppendResult(interp, "-file option isn't supported for ",
+			formatString, " images", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (formatPtr->fileMatchProc != NULL) {
+	    fseek(f, 0L, SEEK_SET);
+	    if ((*formatPtr->fileMatchProc)(f, fileName, formatString,
+		    widthPtr, heightPtr)) {
+		if (*widthPtr < 1) {
+		    *widthPtr = 1;
+		}
+		if (*heightPtr < 1) {
+		    *heightPtr = 1;
+		}
+		break;
+	    }
+	}
+    }
+
+    if (formatPtr == NULL) {
+	if ((formatString != NULL) && !matched) {
+	    Tcl_AppendResult(interp, "image file format \"", formatString,
+		    "\" is not supported", (char *) NULL);
+	} else {
+	    Tcl_AppendResult(interp,
+		    "couldn't recognize data in image file \"",
+		    fileName, "\"", (char *) NULL);
+	}
+	return TCL_ERROR;
+    }
+
+    *imageFormatPtr = formatPtr;
+    fseek(f, 0L, SEEK_SET);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MatchStringFormat --
+ *
+ *	This procedure is called to find a photo image file format
+ *	handler which can parse the image data in the given string.
+ *	If a user-specified format string is provided, only handlers
+ *	whose names match a prefix of the format string are tried.
+ *
+ * Results:
+ *	A standard TCL return value.  If the return value is TCL_OK, a
+ *	pointer to the image format record is returned in
+ *	*imageFormatPtr, and the width and height of the image are
+ *	returned in *widthPtr and *heightPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+MatchStringFormat(interp, string, formatString, imageFormatPtr,
+	widthPtr, heightPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting errors. */
+    char *string;		/* String containing the image data. */
+    char *formatString;		/* User-specified format string, or NULL. */
+    Tk_PhotoImageFormat **imageFormatPtr;
+				/* A pointer to the photo image format
+				 * record is returned here. */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are
+				 * returned here. */
+{
+    int matched;
+    Tk_PhotoImageFormat *formatPtr;
+
+    /*
+     * Scan through the table of file format handlers to find
+     * one which can handle the image.
+     */
+
+    matched = 0;
+    for (formatPtr = formatList; formatPtr != NULL;
+	    formatPtr = formatPtr->nextPtr) {
+	if (formatString != NULL) {
+	    if (strncasecmp(formatString, formatPtr->name,
+		    strlen(formatPtr->name)) != 0) {
+		continue;
+	    }
+	    matched = 1;
+	    if (formatPtr->stringMatchProc == NULL) {
+		Tcl_AppendResult(interp, "-data option isn't supported for ",
+			formatString, " images", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if ((formatPtr->stringMatchProc != NULL)
+		&& (*formatPtr->stringMatchProc)(string, formatString,
+		widthPtr, heightPtr)) {
+	    break;
+	}
+    }
+
+    if (formatPtr == NULL) {
+	if ((formatString != NULL) && !matched) {
+	    Tcl_AppendResult(interp, "image format \"", formatString,
+		    "\" is not supported", (char *) NULL);
+	} else {
+	    Tcl_AppendResult(interp, "couldn't recognize image data",
+		    (char *) NULL);
+	}
+	return TCL_ERROR;
+    }
+
+    *imageFormatPtr = formatPtr;
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FindPhoto --
+ *
+ *	This procedure is called to get an opaque handle (actually a
+ *	PhotoMaster *) for a given image, which can be used in
+ *	subsequent calls to Tk_PhotoPutBlock, etc.  The `name'
+ *	parameter is the name of the image.
+ *
+ * Results:
+ *	The handle for the photo image, or NULL if there is no
+ *	photo image with the name given.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_PhotoHandle
+Tk_FindPhoto(imageName)
+    char *imageName;		/* Name of the desired photo image. */
+{
+    Tcl_HashEntry *entry;
+
+    if (!imgPhotoHashInitialized) {
+	return NULL;
+    }
+    entry = Tcl_FindHashEntry(&imgPhotoHash, imageName);
+    if (entry == NULL) {
+	return NULL;
+    }
+    return (Tk_PhotoHandle) Tcl_GetHashValue(entry);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoPutBlock --
+ *
+ *	This procedure is called to put image data into a photo image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image data is stored.  The image may be expanded.
+ *	The Tk image code is informed that the image has changed.
+ *
+ *---------------------------------------------------------------------- */
+
+void
+Tk_PhotoPutBlock(handle, blockPtr, x, y, width, height)
+    Tk_PhotoHandle handle;	/* Opaque handle for the photo image
+				 * to be updated. */
+    register Tk_PhotoImageBlock *blockPtr;
+				/* Pointer to a structure describing the
+				 * pixel data to be copied into the image. */
+    int x, y;			/* Coordinates of the top-left pixel to
+				 * be updated in the image. */
+    int width, height;		/* Dimensions of the area of the image
+				 * to be updated. */
+{
+    register PhotoMaster *masterPtr;
+    int xEnd, yEnd;
+    int greenOffset, blueOffset;
+    int wLeft, hLeft;
+    int wCopy, hCopy;
+    unsigned char *srcPtr, *srcLinePtr;
+    unsigned char *destPtr, *destLinePtr;
+    int pitch;
+    XRectangle rect;
+
+    masterPtr = (PhotoMaster *) handle;
+
+    if ((masterPtr->userWidth != 0) && ((x + width) > masterPtr->userWidth)) {
+	width = masterPtr->userWidth - x;
+    }
+    if ((masterPtr->userHeight != 0)
+	    && ((y + height) > masterPtr->userHeight)) {
+	height = masterPtr->userHeight - y;
+    }
+    if ((width <= 0) || (height <= 0))
+	return;
+
+    xEnd = x + width;
+    yEnd = y + height;
+    if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
+	ImgPhotoSetSize(masterPtr, MAX(xEnd, masterPtr->width),
+		MAX(yEnd, masterPtr->height));
+    }
+
+    if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
+	    && (x < masterPtr->ditherX))) {
+	/*
+	 * The dithering isn't correct past the start of this block.
+	 */
+	masterPtr->ditherX = x;
+	masterPtr->ditherY = y;
+    }
+
+    /*
+     * If this image block could have different red, green and blue
+     * components, mark it as a color image.
+     */
+
+    greenOffset = blockPtr->offset[1] - blockPtr->offset[0];
+    blueOffset = blockPtr->offset[2] - blockPtr->offset[0];
+    if ((greenOffset != 0) || (blueOffset != 0)) {
+	masterPtr->flags |= COLOR_IMAGE;
+    }
+
+    /*
+     * Copy the data into our local 24-bit/pixel array.
+     * If we can do it with a single memcpy, we do.
+     */
+
+    destLinePtr = masterPtr->pix24 + (y * masterPtr->width + x) * 3;
+    pitch = masterPtr->width * 3;
+
+    if ((blockPtr->pixelSize == 3) && (greenOffset == 1) && (blueOffset == 2)
+	    && (width <= blockPtr->width) && (height <= blockPtr->height)
+	    && ((height == 1) || ((x == 0) && (width == masterPtr->width)
+		&& (blockPtr->pitch == pitch)))) {
+	memcpy((VOID *) destLinePtr,
+		(VOID *) (blockPtr->pixelPtr + blockPtr->offset[0]),
+		(size_t) (height * width * 3));
+    } else {
+	for (hLeft = height; hLeft > 0;) {
+	    srcLinePtr = blockPtr->pixelPtr + blockPtr->offset[0];
+	    hCopy = MIN(hLeft, blockPtr->height);
+	    hLeft -= hCopy;
+	    for (; hCopy > 0; --hCopy) {
+		destPtr = destLinePtr;
+		for (wLeft = width; wLeft > 0;) {
+		    wCopy = MIN(wLeft, blockPtr->width);
+		    wLeft -= wCopy;
+		    srcPtr = srcLinePtr;
+		    for (; wCopy > 0; --wCopy) {
+			*destPtr++ = srcPtr[0];
+			*destPtr++ = srcPtr[greenOffset];
+			*destPtr++ = srcPtr[blueOffset];
+			srcPtr += blockPtr->pixelSize;
+		    }
+		}
+		srcLinePtr += blockPtr->pitch;
+		destLinePtr += pitch;
+	    }
+	}
+    }
+
+    /*
+     * Add this new block to the region which specifies which data is valid.
+     */
+
+    rect.x = x;
+    rect.y = y;
+    rect.width = width;
+    rect.height = height;
+    TkUnionRectWithRegion(&rect, masterPtr->validRegion,
+	    masterPtr->validRegion);
+
+    /*
+     * Update each instance.
+     */
+
+    Dither(masterPtr, x, y, width, height);
+
+    /*
+     * Tell the core image code that this image has changed.
+     */
+
+    Tk_ImageChanged(masterPtr->tkMaster, x, y, width, height, masterPtr->width,
+	    masterPtr->height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoPutZoomedBlock --
+ *
+ *	This procedure is called to put image data into a photo image,
+ *	with possible subsampling and/or zooming of the pixels.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image data is stored.  The image may be expanded.
+ *	The Tk image code is informed that the image has changed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PhotoPutZoomedBlock(handle, blockPtr, x, y, width, height, zoomX, zoomY,
+	subsampleX, subsampleY)
+    Tk_PhotoHandle handle;	/* Opaque handle for the photo image
+				 * to be updated. */
+    register Tk_PhotoImageBlock *blockPtr;
+				/* Pointer to a structure describing the
+				 * pixel data to be copied into the image. */
+    int x, y;			/* Coordinates of the top-left pixel to
+				 * be updated in the image. */
+    int width, height;		/* Dimensions of the area of the image
+				 * to be updated. */
+    int zoomX, zoomY;		/* Zoom factors for the X and Y axes. */
+    int subsampleX, subsampleY;	/* Subsampling factors for the X and Y axes. */
+{
+    register PhotoMaster *masterPtr;
+    int xEnd, yEnd;
+    int greenOffset, blueOffset;
+    int wLeft, hLeft;
+    int wCopy, hCopy;
+    int blockWid, blockHt;
+    unsigned char *srcPtr, *srcLinePtr, *srcOrigPtr;
+    unsigned char *destPtr, *destLinePtr;
+    int pitch;
+    int xRepeat, yRepeat;
+    int blockXSkip, blockYSkip;
+    XRectangle rect;
+
+    if ((zoomX == 1) && (zoomY == 1) && (subsampleX == 1)
+	    && (subsampleY == 1)) {
+	Tk_PhotoPutBlock(handle, blockPtr, x, y, width, height);
+	return;
+    }
+
+    masterPtr = (PhotoMaster *) handle;
+
+    if ((zoomX <= 0) || (zoomY <= 0))
+	return;
+    if ((masterPtr->userWidth != 0) && ((x + width) > masterPtr->userWidth)) {
+	width = masterPtr->userWidth - x;
+    }
+    if ((masterPtr->userHeight != 0)
+	    && ((y + height) > masterPtr->userHeight)) {
+	height = masterPtr->userHeight - y;
+    }
+    if ((width <= 0) || (height <= 0))
+	return;
+
+    xEnd = x + width;
+    yEnd = y + height;
+    if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
+	ImgPhotoSetSize(masterPtr, MAX(xEnd, masterPtr->width),
+		MAX(yEnd, masterPtr->height));
+    }
+
+    if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
+	   && (x < masterPtr->ditherX))) {
+	/*
+	 * The dithering isn't correct past the start of this block.
+	 */
+
+	masterPtr->ditherX = x;
+	masterPtr->ditherY = y;
+    }
+
+    /*
+     * If this image block could have different red, green and blue
+     * components, mark it as a color image.
+     */
+
+    greenOffset = blockPtr->offset[1] - blockPtr->offset[0];
+    blueOffset = blockPtr->offset[2] - blockPtr->offset[0];
+    if ((greenOffset != 0) || (blueOffset != 0)) {
+	masterPtr->flags |= COLOR_IMAGE;
+    }
+
+    /*
+     * Work out what area the pixel data in the block expands to after
+     * subsampling and zooming.
+     */
+
+    blockXSkip = subsampleX * blockPtr->pixelSize;
+    blockYSkip = subsampleY * blockPtr->pitch;
+    if (subsampleX > 0)
+	blockWid = ((blockPtr->width + subsampleX - 1) / subsampleX) * zoomX;
+    else if (subsampleX == 0)
+	blockWid = width;
+    else
+	blockWid = ((blockPtr->width - subsampleX - 1) / -subsampleX) * zoomX;
+    if (subsampleY > 0)
+	blockHt = ((blockPtr->height + subsampleY - 1) / subsampleY) * zoomY;
+    else if (subsampleY == 0)
+	blockHt = height;
+    else
+	blockHt = ((blockPtr->height - subsampleY - 1) / -subsampleY) * zoomY;
+
+    /*
+     * Copy the data into our local 24-bit/pixel array.
+     */
+
+    destLinePtr = masterPtr->pix24 + (y * masterPtr->width + x) * 3;
+    srcOrigPtr = blockPtr->pixelPtr + blockPtr->offset[0];
+    if (subsampleX < 0) {
+	srcOrigPtr += (blockPtr->width - 1) * blockPtr->pixelSize;
+    }
+    if (subsampleY < 0) {
+	srcOrigPtr += (blockPtr->height - 1) * blockPtr->pitch;
+    }
+
+    pitch = masterPtr->width * 3;
+    for (hLeft = height; hLeft > 0; ) {
+	hCopy = MIN(hLeft, blockHt);
+	hLeft -= hCopy;
+	yRepeat = zoomY;
+	srcLinePtr = srcOrigPtr;
+	for (; hCopy > 0; --hCopy) {
+	    destPtr = destLinePtr;
+	    for (wLeft = width; wLeft > 0;) {
+		wCopy = MIN(wLeft, blockWid);
+		wLeft -= wCopy;
+		srcPtr = srcLinePtr;
+		for (; wCopy > 0; wCopy -= zoomX) {
+		    for (xRepeat = MIN(wCopy, zoomX); xRepeat > 0; xRepeat--) {
+			*destPtr++ = srcPtr[0];
+			*destPtr++ = srcPtr[greenOffset];
+			*destPtr++ = srcPtr[blueOffset];
+		    }
+		    srcPtr += blockXSkip;
+		}
+	    }
+	    destLinePtr += pitch;
+	    yRepeat--;
+	    if (yRepeat <= 0) {
+		srcLinePtr += blockYSkip;
+		yRepeat = zoomY;
+	    }
+	}
+    }
+
+    /*
+     * Add this new block to the region that specifies which data is valid.
+     */
+
+    rect.x = x;
+    rect.y = y;
+    rect.width = width;
+    rect.height = height;
+    TkUnionRectWithRegion(&rect, masterPtr->validRegion,
+	    masterPtr->validRegion);
+
+    /*
+     * Update each instance.
+     */
+
+    Dither(masterPtr, x, y, width, height);
+
+    /*
+     * Tell the core image code that this image has changed.
+     */
+
+    Tk_ImageChanged(masterPtr->tkMaster, x, y, width, height, masterPtr->width,
+	    masterPtr->height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Dither --
+ *
+ *	This procedure is called to update an area of each instance's
+ *	pixmap by dithering the corresponding area of the image master.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The pixmap of each instance of this image gets updated.
+ *	The fields in *masterPtr indicating which area of the image
+ *	is correctly dithered get updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+Dither(masterPtr, x, y, width, height)
+    PhotoMaster *masterPtr;	/* Image master whose instances are
+				 * to be updated. */
+    int x, y;			/* Coordinates of the top-left pixel
+				 * in the area to be dithered. */
+    int width, height;		/* Dimensions of the area to be dithered. */
+{
+    PhotoInstance *instancePtr;
+
+    if ((width <= 0) || (height <= 0)) {
+	return;
+    }
+
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	DitherInstance(instancePtr, x, y, width, height);
+    }
+
+    /*
+     * Work out whether this block will be correctly dithered
+     * and whether it will extend the correctly dithered region.
+     */
+
+    if (((y < masterPtr->ditherY)
+	    || ((y == masterPtr->ditherY) && (x <= masterPtr->ditherX)))
+	    && ((y + height) > (masterPtr->ditherY))) {
+
+	/*
+	 * This block starts inside (or immediately after) the correctly
+	 * dithered region, so the first scan line at least will be right.
+	 * Furthermore this block extends into scanline masterPtr->ditherY.
+	 */
+
+	if ((x == 0) && (width == masterPtr->width)) {
+	    /*
+	     * We are doing the full width, therefore the dithering
+	     * will be correct to the end.
+	     */
+
+	    masterPtr->ditherX = 0;
+	    masterPtr->ditherY = y + height;
+	} else {
+	    /*
+	     * We are doing partial scanlines, therefore the
+	     * correctly-dithered region will be extended by
+	     * at most one scan line.
+	     */
+
+	    if (x <= masterPtr->ditherX) {
+		masterPtr->ditherX = x + width;
+		if (masterPtr->ditherX >= masterPtr->width) {
+		    masterPtr->ditherX = 0;
+		    masterPtr->ditherY++;
+		}
+	    }
+	}
+    }
+
+}    
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DitherInstance --
+ *
+ *	This procedure is called to update an area of an instance's
+ *	pixmap by dithering the corresponding area of the master.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The instance's pixmap gets updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DitherInstance(instancePtr, xStart, yStart, width, height)
+    PhotoInstance *instancePtr;	/* The instance to be updated. */
+    int xStart, yStart;		/* Coordinates of the top-left pixel in the
+				 * block to be dithered. */
+    int width, height;		/* Dimensions of the block to be dithered. */
+{
+    PhotoMaster *masterPtr;
+    ColorTable *colorPtr;
+    XImage *imagePtr;
+    int nLines, bigEndian;
+    int i, c, x, y;
+    int xEnd, yEnd;
+    int bitsPerPixel, bytesPerLine, lineLength;
+    unsigned char *srcLinePtr, *srcPtr;
+    schar *errLinePtr, *errPtr;
+    unsigned char *destBytePtr, *dstLinePtr;
+    pixel *destLongPtr;
+    pixel firstBit, word, mask;
+    int col[3];
+    int doDithering = 1;
+
+    colorPtr = instancePtr->colorTablePtr;
+    masterPtr = instancePtr->masterPtr;
+
+    /*
+     * Turn dithering off in certain cases where it is not
+     * needed (TrueColor, DirectColor with many colors).
+     */
+
+    if ((colorPtr->visualInfo.class == DirectColor)
+	    || (colorPtr->visualInfo.class == TrueColor)) {
+	int nRed, nGreen, nBlue, result;
+
+	result = sscanf(colorPtr->id.palette, "%d/%d/%d", &nRed,
+		&nGreen, &nBlue);
+	if ((nRed >= 256)
+		&& ((result == 1) || ((nGreen >= 256) && (nBlue >= 256)))) {
+	    doDithering = 0;
+	}
+    }
+
+    /*
+     * First work out how many lines to do at a time,
+     * then how many bytes we'll need for pixel storage,
+     * and allocate it.
+     */
+
+    nLines = (MAX_PIXELS + width - 1) / width;
+    if (nLines < 1) {
+	nLines = 1;
+    }
+    if (nLines > height ) {
+	nLines = height;
+    }
+
+    imagePtr = instancePtr->imagePtr;
+    if (imagePtr == NULL) {
+	return;			/* we must be really tight on memory */
+    }
+    bitsPerPixel = imagePtr->bits_per_pixel;
+    bytesPerLine = ((bitsPerPixel * width + 31) >> 3) & ~3;
+    imagePtr->width = width;
+    imagePtr->height = nLines;
+    imagePtr->bytes_per_line = bytesPerLine;
+    imagePtr->data = (char *) ckalloc((unsigned) (imagePtr->bytes_per_line * nLines));
+    bigEndian = imagePtr->bitmap_bit_order == MSBFirst;
+    firstBit = bigEndian? (1 << (imagePtr->bitmap_unit - 1)): 1;
+
+    lineLength = masterPtr->width * 3;
+    srcLinePtr = masterPtr->pix24 + yStart * lineLength + xStart * 3;
+    errLinePtr = instancePtr->error + yStart * lineLength + xStart * 3;
+    xEnd = xStart + width;
+
+    /*
+     * Loop over the image, doing at most nLines lines before
+     * updating the screen image.
+     */
+
+    for (; height > 0; height -= nLines) {
+	if (nLines > height) {
+	    nLines = height;
+	}
+	dstLinePtr = (unsigned char *) imagePtr->data;
+	yEnd = yStart + nLines;
+	for (y = yStart; y < yEnd; ++y) {
+	    srcPtr = srcLinePtr;
+	    errPtr = errLinePtr;
+	    destBytePtr = dstLinePtr;
+	    destLongPtr = (pixel *) dstLinePtr;
+	    if (colorPtr->flags & COLOR_WINDOW) {
+		/*
+		 * Color window.  We dither the three components
+		 * independently, using Floyd-Steinberg dithering,
+		 * which propagates errors from the quantization of
+		 * pixels to the pixels below and to the right.
+		 */
+
+		for (x = xStart; x < xEnd; ++x) {
+		    if (doDithering) {
+			for (i = 0; i < 3; ++i) {
+			    /*
+			     * Compute the error propagated into this pixel
+			     * for this component.
+			     * If e[x,y] is the array of quantization error
+			     * values, we compute
+			     *     7/16 * e[x-1,y] + 1/16 * e[x-1,y-1]
+			     *   + 5/16 * e[x,y-1] + 3/16 * e[x+1,y-1]
+			     * and round it to an integer.
+			     *
+			     * The expression ((c + 2056) >> 4) - 128
+			     * computes round(c / 16), and works correctly on
+			     * machines without a sign-extending right shift.
+			     */
+			    
+			    c = (x > 0) ? errPtr[-3] * 7: 0;
+			    if (y > 0) {
+				if (x > 0) {
+				    c += errPtr[-lineLength-3];
+				}
+				c += errPtr[-lineLength] * 5;
+				if ((x + 1) < masterPtr->width) {
+				    c += errPtr[-lineLength+3] * 3;
+				}
+			    }
+			    
+			    /*
+			     * Add the propagated error to the value of this
+			     * component, quantize it, and store the
+			     * quantization error.
+			     */
+			    
+			    c = ((c + 2056) >> 4) - 128 + *srcPtr++;
+			    if (c < 0) {
+				c = 0;
+			    } else if (c > 255) {
+				c = 255;
+			    }
+			    col[i] = colorPtr->colorQuant[i][c];
+			    *errPtr++ = c - col[i];
+			}
+		    } else {
+			/* 
+			 * Output is virtually continuous in this case,
+			 * so don't bother dithering.
+			 */
+
+			col[0] = *srcPtr++;
+			col[1] = *srcPtr++;
+			col[2] = *srcPtr++;
+		    }
+
+		    /*
+		     * Translate the quantized component values into
+		     * an X pixel value, and store it in the image.
+		     */
+
+		    i = colorPtr->redValues[col[0]]
+			    + colorPtr->greenValues[col[1]]
+			    + colorPtr->blueValues[col[2]];
+		    if (colorPtr->flags & MAP_COLORS) {
+			i = colorPtr->pixelMap[i];
+		    }
+		    switch (bitsPerPixel) {
+			case NBBY:
+			    *destBytePtr++ = i;
+			    break;
+			case NBBY * sizeof(pixel):
+			    *destLongPtr++ = i;
+			    break;
+			default:
+			    XPutPixel(imagePtr, x - xStart, y - yStart,
+				    (unsigned) i);
+		    }
+		}
+
+	    } else if (bitsPerPixel > 1) {
+		/*
+		 * Multibit monochrome window.  The operation here is similar
+		 * to the color window case above, except that there is only
+		 * one component.  If the master image is in color, use the
+		 * luminance computed as
+		 *	0.344 * red + 0.5 * green + 0.156 * blue.
+		 */
+
+		for (x = xStart; x < xEnd; ++x) {
+		    c = (x > 0) ? errPtr[-1] * 7: 0;
+		    if (y > 0) {
+			if (x > 0)  {
+			    c += errPtr[-lineLength-1];
+			}
+			c += errPtr[-lineLength] * 5;
+			if (x + 1 < masterPtr->width) {
+			    c += errPtr[-lineLength+1] * 3;
+			}
+		    }
+		    c = ((c + 2056) >> 4) - 128;
+
+		    if ((masterPtr->flags & COLOR_IMAGE) == 0) {
+			c += srcPtr[0];
+		    } else {
+			c += (unsigned)(srcPtr[0] * 11 + srcPtr[1] * 16
+					+ srcPtr[2] * 5 + 16) >> 5;
+		    }
+		    srcPtr += 3;
+
+		    if (c < 0) {
+			c = 0;
+		    } else if (c > 255) {
+			c = 255;
+		    }
+		    i = colorPtr->colorQuant[0][c];
+		    *errPtr++ = c - i;
+		    i = colorPtr->redValues[i];
+		    switch (bitsPerPixel) {
+			case NBBY:
+			    *destBytePtr++ = i;
+			    break;
+			case NBBY * sizeof(pixel):
+			    *destLongPtr++ = i;
+			    break;
+			default:
+			    XPutPixel(imagePtr, x - xStart, y - yStart,
+				    (unsigned) i);
+		    }
+		}
+	    } else {
+		/*
+		 * 1-bit monochrome window.  This is similar to the
+		 * multibit monochrome case above, except that the
+		 * quantization is simpler (we only have black = 0
+		 * and white = 255), and we produce an XY-Bitmap.
+		 */
+
+		word = 0;
+		mask = firstBit;
+		for (x = xStart; x < xEnd; ++x) {
+		    /*
+		     * If we have accumulated a whole word, store it
+		     * in the image and start a new word.
+		     */
+
+		    if (mask == 0) {
+			*destLongPtr++ = word;
+			mask = firstBit;
+			word = 0;
+		    }
+
+		    c = (x > 0) ? errPtr[-1] * 7: 0;
+		    if (y > 0) {
+			if (x > 0) {
+			    c += errPtr[-lineLength-1];
+			}
+			c += errPtr[-lineLength] * 5;
+			if (x + 1 < masterPtr->width) {
+			    c += errPtr[-lineLength+1] * 3;
+			}
+		    }
+		    c = ((c + 2056) >> 4) - 128;
+
+		    if ((masterPtr->flags & COLOR_IMAGE) == 0) {
+			c += srcPtr[0];
+		    } else {
+			c += (unsigned)(srcPtr[0] * 11 + srcPtr[1] * 16
+					+ srcPtr[2] * 5 + 16) >> 5;
+		    }
+		    srcPtr += 3;
+
+		    if (c < 0) {
+			c = 0;
+		    } else if (c > 255) {
+			c = 255;
+		    }
+		    if (c >= 128) {
+			word |= mask;
+			*errPtr++ = c - 255;
+		    } else {
+			*errPtr++ = c;
+		    }
+		    mask = bigEndian? (mask >> 1): (mask << 1);
+		}
+		*destLongPtr = word;
+	    }
+	    srcLinePtr += lineLength;
+	    errLinePtr += lineLength;
+	    dstLinePtr += bytesPerLine;
+	}
+
+	/*
+	 * Update the pixmap for this instance with the block of
+	 * pixels that we have just computed.
+	 */
+
+	TkPutImage(colorPtr->pixelMap, colorPtr->numColors,
+		instancePtr->display, instancePtr->pixels,
+		instancePtr->gc, imagePtr, 0, 0, xStart, yStart,
+		(unsigned) width, (unsigned) nLines);
+	yStart = yEnd;
+	
+    }
+
+    ckfree(imagePtr->data);
+    imagePtr->data = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoBlank --
+ *
+ *	This procedure is called to clear an entire photo image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The valid region for the image is set to the null region.
+ *	The generic image code is notified that the image has changed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PhotoBlank(handle)
+    Tk_PhotoHandle handle;	/* Handle for the image to be blanked. */
+{
+    PhotoMaster *masterPtr;
+    PhotoInstance *instancePtr;
+
+    masterPtr = (PhotoMaster *) handle;
+    masterPtr->ditherX = masterPtr->ditherY = 0;
+    masterPtr->flags = 0;
+
+    /*
+     * The image has valid data nowhere.
+     */
+
+    if (masterPtr->validRegion != NULL) {
+	TkDestroyRegion(masterPtr->validRegion);
+    }
+    masterPtr->validRegion = TkCreateRegion();
+
+    /*
+     * Clear out the 24-bit pixel storage array.
+     * Clear out the dithering error arrays for each instance.
+     */
+
+    memset((VOID *) masterPtr->pix24, 0,
+	    (size_t) (masterPtr->width * masterPtr->height));
+    for (instancePtr = masterPtr->instancePtr; instancePtr != NULL;
+	    instancePtr = instancePtr->nextPtr) {
+	memset((VOID *) instancePtr->error, 0,
+		(size_t) (masterPtr->width * masterPtr->height
+		    * sizeof(schar)));
+    }
+
+    /*
+     * Tell the core image code that this image has changed.
+     */
+
+    Tk_ImageChanged(masterPtr->tkMaster, 0, 0, masterPtr->width,
+	    masterPtr->height, masterPtr->width, masterPtr->height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoExpand --
+ *
+ *	This procedure is called to request that a photo image be
+ *	expanded if necessary to be at least `width' pixels wide and
+ *	`height' pixels high.  If the user has declared a definite
+ *	image size (using the -width and -height configuration
+ *	options) then this call has no effect.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The size of the photo image may change; if so the generic
+ *	image code is informed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PhotoExpand(handle, width, height)
+    Tk_PhotoHandle handle;	/* Handle for the image to be expanded. */
+    int width, height;		/* Desired minimum dimensions of the image. */
+{
+    PhotoMaster *masterPtr;
+
+    masterPtr = (PhotoMaster *) handle;
+
+    if (width <= masterPtr->width) {
+	width = masterPtr->width;
+    }
+    if (height <= masterPtr->height) {
+	height = masterPtr->height;
+    }
+    if ((width != masterPtr->width) || (height != masterPtr->height)) {
+	ImgPhotoSetSize(masterPtr, MAX(width, masterPtr->width),
+		MAX(height, masterPtr->height));
+	Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, masterPtr->width,
+		masterPtr->height);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoGetSize --
+ *
+ *	This procedure is called to obtain the current size of a photo
+ *	image.
+ *
+ * Results:
+ *	The image's width and height are returned in *widthp
+ *	and *heightp.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PhotoGetSize(handle, widthPtr, heightPtr)
+    Tk_PhotoHandle handle;	/* Handle for the image whose dimensions
+				 * are requested. */
+    int *widthPtr, *heightPtr;	/* The dimensions of the image are returned
+				 * here. */
+{
+    PhotoMaster *masterPtr;
+
+    masterPtr = (PhotoMaster *) handle;
+    *widthPtr = masterPtr->width;
+    *heightPtr = masterPtr->height;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoSetSize --
+ *
+ *	This procedure is called to set size of a photo image.
+ *	This call is equivalent to using the -width and -height
+ *	configuration options.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The size of the image may change; if so the generic
+ *	image code is informed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PhotoSetSize(handle, width, height)
+    Tk_PhotoHandle handle;	/* Handle for the image whose size is to
+				 * be set. */
+    int width, height;		/* New dimensions for the image. */
+{
+    PhotoMaster *masterPtr;
+
+    masterPtr = (PhotoMaster *) handle;
+
+    masterPtr->userWidth = width;
+    masterPtr->userHeight = height;
+    ImgPhotoSetSize(masterPtr, ((width > 0) ? width: masterPtr->width),
+	    ((height > 0) ? height: masterPtr->height));
+    Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0,
+	    masterPtr->width, masterPtr->height);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PhotoGetImage --
+ *
+ *	This procedure is called to obtain image data from a photo
+ *	image.  This procedure fills in the Tk_PhotoImageBlock structure
+ *	pointed to by `blockPtr' with details of the address and
+ *	layout of the image data in memory.
+ *
+ * Results:
+ *	TRUE (1) indicating that image data is available,
+ *	for backwards compatibility with the old photo widget.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_PhotoGetImage(handle, blockPtr)
+    Tk_PhotoHandle handle;	/* Handle for the photo image from which
+				 * image data is desired. */
+    Tk_PhotoImageBlock *blockPtr;
+				/* Information about the address and layout
+				 * of the image data is returned here. */
+{
+    PhotoMaster *masterPtr;
+
+    masterPtr = (PhotoMaster *) handle;
+    blockPtr->pixelPtr = masterPtr->pix24;
+    blockPtr->width = masterPtr->width;
+    blockPtr->height = masterPtr->height;
+    blockPtr->pitch = masterPtr->width * 3;
+    blockPtr->pixelSize = 3;
+    blockPtr->offset[0] = 0;
+    blockPtr->offset[1] = 1;
+    blockPtr->offset[2] = 2;
+    return 1;
+}
diff --git a/Tk/generic/tkImgUtil.c b/Tk/generic/tkImgUtil.c
new file mode 100644
index 0000000..31504b8
--- /dev/null
+++ b/Tk/generic/tkImgUtil.c
@@ -0,0 +1,78 @@
+/* 
+ * tkImgUtil.c --
+ *
+ *	This file contains image related utility functions.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkImgUtil.c 1.3 96/02/15 18:53:12
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+#include "xbytes.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkAlignImageData --
+ *
+ *	This function takes an image and copies the data into an
+ *	aligned buffer, performing any necessary bit swapping.
+ *
+ * Results:
+ *	Returns a newly allocated buffer that should be freed by the
+ *	caller.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+TkAlignImageData(image, alignment, bitOrder)
+    XImage *image;		/* Image to be aligned. */
+    int alignment;		/* Number of bytes to which the data should
+				 * be aligned (e.g. 2 or 4) */
+    int bitOrder;		/* Desired bit order: LSBFirst or MSBFirst. */
+{
+    long dataWidth;
+    char *data, *srcPtr, *destPtr;
+    int i, j;
+
+    if (image->bits_per_pixel != 1) {
+	panic("TkAlignImageData: Can't handle image depths greater than 1.");
+    }
+
+    /*
+     * Compute line width for output data buffer.
+     */
+
+    dataWidth = image->bytes_per_line;
+    if (dataWidth % alignment) {
+	dataWidth += (alignment - (dataWidth % alignment));
+    }
+
+    data = ckalloc(dataWidth * image->height);
+
+    destPtr = data;
+    for (i = 0; i < image->height; i++) {
+	srcPtr = &image->data[i * image->bytes_per_line];
+	for (j = 0; j < dataWidth; j++) {
+	    if (j >= image->bytes_per_line) {
+		*destPtr = 0;
+	    } else if (image->bitmap_bit_order != bitOrder) {
+		*destPtr = xBitReverseTable[(unsigned char)(*(srcPtr++))];
+	    } else {
+		*destPtr = *(srcPtr++);
+	    }
+	    destPtr++;
+	}
+    }
+    return data;
+}
diff --git a/Tk/generic/tkInt.h b/Tk/generic/tkInt.h
new file mode 100644
index 0000000..748ccbd
--- /dev/null
+++ b/Tk/generic/tkInt.h
@@ -0,0 +1,818 @@
+/*
+ * tkInt.h --
+ *
+ *	Declarations for things used internally by the Tk
+ *	procedures but not exported outside the module.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkInt.h 1.165 96/03/18 13:02:25
+ */
+
+#ifndef _TKINT
+#define _TKINT
+
+#ifndef _TK
+#include "tk.h"
+#endif
+#ifndef _TCL
+#include "tcl.h"
+#endif
+#ifndef _TKPORT
+#include <tkPort.h>
+#endif
+
+/*
+ * Opaque type declarations:
+ */
+
+typedef struct TkColormap TkColormap;
+typedef struct TkGrabEvent TkGrabEvent;
+typedef struct Tk_PostscriptInfo Tk_PostscriptInfo;
+typedef struct TkRegion_ *TkRegion;
+typedef struct TkStressedCmap TkStressedCmap;
+
+/*
+ * One of the following structures is maintained for each cursor in
+ * use in the system.  This structure is used by tkCursor.c and the
+ * various system specific cursor files.
+ */
+
+typedef struct TkCursor {
+    Tk_Cursor cursor;		/* System specific identifier for cursor. */
+    int refCount;		/* Number of active uses of cursor. */
+    Tcl_HashTable *otherTable;	/* Second table (other than idTable) used
+				 * to index this entry. */
+    Tcl_HashEntry *hashPtr;	/* Entry in otherTable for this structure
+				 * (needed when deleting). */
+} TkCursor;
+
+/*
+ * One of the following structures is maintained for each display
+ * containing a window managed by Tk:
+ */
+
+typedef struct TkDisplay {
+    Display *display;		/* Xlib's info about display. */
+    struct TkDisplay *nextPtr;	/* Next in list of all displays. */
+    char *name;			/* Name of display (with any screen
+				 * identifier removed).  Malloc-ed. */
+    Time lastEventTime;		/* Time of last event received for this
+				 * display. */
+
+    /*
+     * Information used primarily by tkBind.c:
+     */
+
+    int bindInfoStale;		/* Non-zero means the variables in this
+				 * part of the structure are potentially
+				 * incorrect and should be recomputed. */
+    unsigned int modeModMask;	/* Has one bit set to indicate the modifier
+				 * corresponding to "mode shift".  If no
+				 * such modifier, than this is zero. */
+    unsigned int metaModMask;	/* Has one bit set to indicate the modifier
+				 * corresponding to the "Meta" key.  If no
+				 * such modifier, then this is zero. */
+    unsigned int altModMask;	/* Has one bit set to indicate the modifier
+				 * corresponding to the "Meta" key.  If no
+				 * such modifier, then this is zero. */
+    enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage;
+				/* Indicates how to interpret lock modifier. */
+    int numModKeyCodes;		/* Number of entries in modKeyCodes array
+				 * below. */
+    KeyCode *modKeyCodes;	/* Pointer to an array giving keycodes for
+				 * all of the keys that have modifiers
+				 * associated with them.  Malloc'ed, but
+				 * may be NULL. */
+
+    /*
+     * Information used by tkError.c only:
+     */
+
+    struct TkErrorHandler *errorPtr;
+				/* First in list of error handlers
+				 * for this display.  NULL means
+				 * no handlers exist at present. */
+    int deleteCount;		/* Counts # of handlers deleted since
+				 * last time inactive handlers were
+				 * garbage-collected.  When this number
+				 * gets big, handlers get cleaned up. */
+
+    /*
+     * Information used by tkSend.c only:
+     */
+
+    Tk_Window commTkwin;	/* Window used for communication
+				 * between interpreters during "send"
+				 * commands.  NULL means send info hasn't
+				 * been initialized yet. */
+    Atom commProperty;		/* X's name for comm property. */
+    Atom registryProperty;	/* X's name for property containing
+				 * registry of interpreter names. */
+    Atom appNameProperty;	/* X's name for property used to hold the
+				 * application name on each comm window. */
+
+    /*
+     * Information used by tkSelect.c and tkClipboard.c only:
+     */
+
+    struct TkSelectionInfo *selectionInfoPtr;
+				/* First in list of selection information
+				 * records.  Each entry contains information
+				 * about the current owner of a particular
+				 * selection on this display. */
+    Atom multipleAtom;		/* Atom for MULTIPLE.  None means
+				 * selection stuff isn't initialized. */
+    Atom incrAtom;		/* Atom for INCR. */
+    Atom targetsAtom;		/* Atom for TARGETS. */
+    Atom timestampAtom;		/* Atom for TIMESTAMP. */
+    Atom textAtom;		/* Atom for TEXT. */
+    Atom compoundTextAtom;	/* Atom for COMPOUND_TEXT. */
+    Atom applicationAtom;	/* Atom for TK_APPLICATION. */
+    Atom windowAtom;		/* Atom for TK_WINDOW. */
+    Atom clipboardAtom;		/* Atom for CLIPBOARD. */
+
+    Tk_Window clipWindow;	/* Window used for clipboard ownership and to
+				 * retrieve selections between processes. NULL
+				 * means clipboard info hasn't been
+				 * initialized. */
+    int clipboardActive;	/* 1 means we currently own the clipboard
+				 * selection, 0 means we don't. */
+    struct TkMainInfo *clipboardAppPtr;
+				/* Last application that owned clipboard. */
+    struct TkClipboardTarget *clipTargetPtr;
+				/* First in list of clipboard type information
+				 * records.  Each entry contains information
+				 * about the buffers for a given selection
+				 * target. */
+
+    /*
+     * Information used by tkAtom.c only:
+     */
+
+    int atomInit;		/* 0 means stuff below hasn't been
+				 * initialized yet. */
+    Tcl_HashTable nameTable;	/* Maps from names to Atom's. */
+    Tcl_HashTable atomTable;	/* Maps from Atom's back to names. */
+
+    /*
+     * Information used by tkCursor.c only:
+     */
+
+    Font cursorFont;		/* Font to use for standard cursors.
+				 * None means font not loaded yet. */
+
+    /*
+     * Information used by tkGrab.c only:
+     */
+
+    struct TkWindow *grabWinPtr;
+				/* Window in which the pointer is currently
+				 * grabbed, or NULL if none. */
+    struct TkWindow *eventualGrabWinPtr;
+				/* Value that grabWinPtr will have once the
+				 * grab event queue (below) has been
+				 * completely emptied. */
+    struct TkWindow *buttonWinPtr;
+				/* Window in which first mouse button was
+				 * pressed while grab was in effect, or NULL
+				 * if no such press in effect. */
+    struct TkWindow *serverWinPtr;
+				/* If no application contains the pointer then
+				 * this is NULL.  Otherwise it contains the
+				 * last window for which we've gotten an
+				 * Enter or Leave event from the server (i.e.
+				 * the last window known to have contained
+				 * the pointer).  Doesn't reflect events
+				 * that were synthesized in tkGrab.c. */
+    TkGrabEvent *firstGrabEventPtr;
+				/* First in list of enter/leave events
+				 * synthesized by grab code.  These events
+				 * must be processed in order before any other
+				 * events are processed.  NULL means no such
+				 * events. */
+    TkGrabEvent *lastGrabEventPtr;
+				/* Last in list of synthesized events, or NULL
+				 * if list is empty. */
+    int grabFlags;		/* Miscellaneous flag values.  See definitions
+				 * in tkGrab.c. */
+
+    /*
+     * Information used by tkXId.c only:
+     */
+
+    struct TkIdStack *idStackPtr;
+				/* First in list of chunks of free resource
+				 * identifiers, or NULL if there are no free
+				 * resources. */
+    XID (*defaultAllocProc) _ANSI_ARGS_((Display *display));
+				/* Default resource allocator for display. */
+    struct TkIdStack *windowStackPtr;
+				/* First in list of chunks of window
+				 * identifers that can't be reused right
+				 * now. */
+    int idCleanupScheduled;	/* 1 means a call to WindowIdCleanup has
+				 * already been scheduled, 0 means it
+				 * hasn't. */
+
+    /*
+     * Information maintained by tkWindow.c for use later on by tkXId.c:
+     */
+
+
+    int destroyCount;		/* Number of Tk_DestroyWindow operations
+				 * in progress. */
+    unsigned long lastDestroyRequest;
+				/* Id of most recent XDestroyWindow request;
+				 * can re-use ids in windowStackPtr when
+				 * server has seen this request and event
+				 * queue is empty. */
+
+    /*
+     * Information used by tkVisual.c only:
+     */
+
+    TkColormap *cmapPtr;	/* First in list of all non-default colormaps
+				 * allocated for this display. */
+
+    /*
+     * Information used by tkFocus.c only:
+     */
+
+    struct TkWindow *focusWinPtr;
+				/* Window that currently has the focus for
+				 * this display, or NULL if none. */
+    struct TkWindow *implicitWinPtr;
+				/* If the focus arrived at a toplevel window
+				 * implicitly via an Enter event (rather
+				 * than via a FocusIn event), this points
+				 * to the toplevel window.  Otherwise it is
+				 * NULL. */
+    struct TkWindow *focusOnMapPtr;
+				/* This points to a toplevel window that is
+				 * supposed to receive the X input focus as
+				 * soon as it is mapped (needed to handle the
+				 * fact that X won't allow the focus on an
+				 * unmapped window).  NULL means no delayed
+				 * focus op in progress. */
+    int forceFocus;		/* Associated with focusOnMapPtr:  non-zero
+				 * means claim the focus even if some other
+				 * application currently has it. */
+
+    /*
+     * Used by tkColor.c only:
+     */
+
+    TkStressedCmap *stressPtr;	/* First in list of colormaps that have
+				 * filled up, so we have to pick an
+				 * approximate color. */
+
+    /*
+     * Used by tkEvent.c only:
+     */
+
+    struct TkWindowEvent *delayedMotionPtr;
+				/* Points to a malloc-ed motion event
+				 * whose processing has been delayed in
+				 * the hopes that another motion event
+				 * will come along right away and we can
+				 * merge the two of them together.  NULL
+				 * means that there is no delayed motion
+				 * event. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+#ifdef TK_USE_INPUT_METHODS
+    XIM inputMethod;		/* Input method for this display */
+#endif /* TK_USE_INPUT_METHODS */
+    Tcl_HashTable winTable;	/* Maps from X window ids to TkWindow ptrs. */
+} TkDisplay;
+
+/*
+ * One of the following structures exists for each error handler
+ * created by a call to Tk_CreateErrorHandler.  The structure
+ * is managed by tkError.c.
+ */
+
+typedef struct TkErrorHandler {
+    TkDisplay *dispPtr;		/* Display to which handler applies. */
+    unsigned long firstRequest;	/* Only errors with serial numbers
+				 * >= to this are considered. */
+    unsigned long lastRequest;	/* Only errors with serial numbers
+				 * <= to this are considered.  This
+				 * field is filled in when XUnhandle
+				 * is called.  -1 means XUnhandle
+				 * hasn't been called yet. */
+    int error;			/* Consider only errors with this
+				 * error_code (-1 means consider
+				 * all errors). */
+    int request;		/* Consider only errors with this
+				 * major request code (-1 means
+				 * consider all major codes). */
+    int minorCode;		/* Consider only errors with this
+				 * minor request code (-1 means
+				 * consider all minor codes). */
+    Tk_ErrorProc *errorProc;	/* Procedure to invoke when a matching
+				 * error occurs.  NULL means just ignore
+				 * errors. */
+    ClientData clientData;	/* Arbitrary value to pass to
+				 * errorProc. */
+    struct TkErrorHandler *nextPtr;
+				/* Pointer to next older handler for
+				 * this display, or NULL for end of
+				 * list. */
+} TkErrorHandler;
+
+/*
+ * One of the following structures exists for each event handler
+ * created by calling Tk_CreateEventHandler.  This information
+ * is used by tkEvent.c only.
+ */
+
+typedef struct TkEventHandler {
+    unsigned long mask;		/* Events for which to invoke
+				 * proc. */
+    Tk_EventProc *proc;		/* Procedure to invoke when an event
+				 * in mask occurs. */
+    ClientData clientData;	/* Argument to pass to proc. */
+    struct TkEventHandler *nextPtr;
+				/* Next in list of handlers
+				 * associated with window (NULL means
+				 * end of list). */
+} TkEventHandler;
+
+/*
+ * Tk keeps one of the following data structures for each main
+ * window (created by a call to Tk_CreateMainWindow).  It stores
+ * information that is shared by all of the windows associated
+ * with a particular main window.
+ */
+
+typedef struct TkMainInfo {
+    int refCount;		/* Number of windows whose "mainPtr" fields
+				 * point here.  When this becomes zero, can
+				 * free up the structure (the reference
+				 * count is zero because windows can get
+				 * deleted in almost any order;  the main
+				 * window isn't necessarily the last one
+				 * deleted). */
+    struct TkWindow *winPtr;	/* Pointer to main window. */
+    Tcl_Interp *interp;		/* Interpreter associated with application. */
+    Tcl_HashTable nameTable;	/* Hash table mapping path names to TkWindow
+				 * structs for all windows related to this
+				 * main window.  Managed by tkWindow.c. */
+    Tk_BindingTable bindingTable;
+				/* Used in conjunction with "bind" command
+				 * to bind events to Tcl commands. */
+#ifdef STk_CODE
+    TkDisplay *curDispPtr;	/* Display for last binding command invoked
+				 * in this application;  used only  by
+				 * tkBind.c. */
+    int curScreenIndex;		/* Index of screen for last binding command.
+				 * Used only by tkBind.c. */
+    int bindingDepth;		/* Number of active instances of Tk_BindEvent
+				 * in this application.  Used only by
+				 * tkBind.c. */
+#endif
+    struct TkFocusInfo *focusPtr;
+				/* First in list of records containing focus
+				 * information for each top-level in the
+				 * application.  Used only by tkFocus.c. */
+    unsigned long focusSerial;	/* Serial number of last request we made to
+				 * change the focus.  Used to identify
+				 * stale focus notifications coming from the
+				 * X server. */
+    struct TkWindow *lastFocusPtr;
+				/* The most recent window that was given the
+				 * focus via "focus" command.  Used to restore
+				 * the focus when we get stale FocusIn
+				 * events. */
+    struct ElArray *optionRootPtr;
+				/* Top level of option hierarchy for this
+				 * main window.  NULL means uninitialized.
+				 * Managed by tkOption.c. */
+    Tcl_HashTable imageTable;	/* Maps from image names to Tk_ImageMaster
+				 * structures.  Managed by tkImage.c. */
+    int strictMotif;		/* This is linked to the tk_strictMotif
+				 * global variable. */
+    struct TkMainInfo *nextPtr;	/* Next in list of all main windows managed by
+				 * this process. */
+} TkMainInfo;
+
+/*
+ * Tk keeps one of the following structures for each window.
+ * Some of the information (like size and location) is a shadow
+ * of information managed by the X server, and some is special
+ * information used here, such as event and geometry management
+ * information.  This information is (mostly) managed by tkWindow.c.
+ * WARNING: the declaration below must be kept consistent with the
+ * Tk_FakeWin structure in tk.h.  If you change one, be sure to
+ * change the other!!
+ */
+
+typedef struct TkWindow {
+
+    /*
+     * Structural information:
+     */
+
+    Display *display;		/* Display containing window. */
+    TkDisplay *dispPtr;		/* Tk's information about display
+				 * for window. */
+    int screenNum;		/* Index of screen for window, among all
+				 * those for dispPtr. */
+    Visual *visual;		/* Visual to use for window.  If not default,
+				 * MUST be set before X window is created. */
+    int depth;			/* Number of bits/pixel. */
+    Window window;		/* X's id for window.   NULL means window
+				 * hasn't actually been created yet, or it's
+				 * been deleted. */
+    struct TkWindow *childList;	/* First in list of child windows,
+				 * or NULL if no children. */
+    struct TkWindow *lastChildPtr;
+				/* Last in list of child windows, or NULL
+				 * if no children. */
+    struct TkWindow *parentPtr;	/* Pointer to parent window (logical
+				 * parent, not necessarily X parent).  NULL
+				 * means either this is the main window, or
+				 * the window's parent has already been
+				 * deleted. */
+    struct TkWindow *nextPtr;	/* Next in list of children with
+				 * same parent (NULL if end of
+				 * list). */
+    TkMainInfo *mainPtr;	/* Information shared by all windows
+				 * associated with a particular main
+				 * window.  NULL means this window is
+				 * a rogue that isn't associated with
+				 * any application (at present, this
+				 * only happens for the dummy windows
+				 * used for "send" communication).  */
+
+    /*
+     * Name and type information for the window:
+     */
+
+    char *pathName;		/* Path name of window (concatenation
+				 * of all names between this window and
+				 * its top-level ancestor).  This is a
+				 * pointer into an entry in
+				 * mainPtr->nameTable.  NULL means that
+				 * the window hasn't been completely
+				 * created yet. */
+    Tk_Uid nameUid;		/* Name of the window within its parent
+				 * (unique within the parent). */
+    Tk_Uid classUid;		/* Class of the window.  NULL means window
+				 * hasn't been given a class yet. */
+
+    /*
+     * Geometry and other attributes of window.  This information
+     * may not be updated on the server immediately;  stuff that
+     * hasn't been reflected in the server yet is called "dirty".
+     * At present, information can be dirty only if the window
+     * hasn't yet been created.
+     */
+
+    XWindowChanges changes;	/* Geometry and other info about
+				 * window. */
+    unsigned int dirtyChanges;	/* Bits indicate fields of "changes"
+				 * that are dirty. */
+    XSetWindowAttributes atts;	/* Current attributes of window. */
+    unsigned long dirtyAtts;	/* Bits indicate fields of "atts"
+				 * that are dirty. */
+
+    unsigned int flags;		/* Various flag values:  these are all
+				 * defined in tk.h (confusing, but they're
+				 * needed there for some query macros). */
+
+    /*
+     * Information kept by the event manager (tkEvent.c):
+     */
+
+    TkEventHandler *handlerList;/* First in list of event handlers
+				 * declared for this window, or
+				 * NULL if none. */
+#ifdef TK_USE_INPUT_METHODS
+    XIC inputContext;		/* Input context (for input methods). */
+#endif /* TK_USE_INPUT_METHODS */
+
+    /*
+     * Information used for event bindings (see "bind" and "bindtags"
+     * commands in tkCmds.c):
+     */
+
+    ClientData *tagPtr;		/* Points to array of tags used for bindings
+				 * on this window.  Each tag is a Tk_Uid.
+				 * Malloc'ed.  NULL means no tags. */
+    int numTags;		/* Number of tags at *tagPtr. */
+
+    /*
+     * Information used by tkOption.c to manage options for the
+     * window.
+     */
+
+    int optionLevel;		/* -1 means no option information is
+				 * currently cached for this window.
+				 * Otherwise this gives the level in
+				 * the option stack at which info is
+				 * cached. */
+    /*
+     * Information used by tkSelect.c to manage the selection.
+     */
+
+    struct TkSelHandler *selHandlerList;
+				/* First in list of handlers for
+				 * returning the selection in various
+				 * forms. */
+
+    /*
+     * Information used by tkGeometry.c for geometry management.
+     */
+
+    Tk_GeomMgr *geomMgrPtr;	/* Information about geometry manager for
+				 * this window. */
+    ClientData geomData;	/* Argument for geometry manager procedures. */
+    int reqWidth, reqHeight;	/* Arguments from last call to
+				 * Tk_GeometryRequest, or 0's if
+				 * Tk_GeometryRequest hasn't been
+				 * called. */
+    int internalBorderWidth;	/* Width of internal border of window
+				 * (0 means no internal border).  Geometry
+				 * managers should not normally place children
+				 * on top of the border. */
+
+    /*
+     * Information maintained by tkWm.c for window manager communication.
+     */
+
+    struct TkWmInfo *wmInfoPtr;	/* For top-level windows, points to
+				 * structure with wm-related info (see
+				 * tkWm.c).  For other windows, this
+				 * is NULL. */
+
+    /*
+     * Platform specific information private to each port.
+     */
+
+    struct TkWindowPrivate *privatePtr;
+} TkWindow;
+
+/*
+ * Pointer to first entry in list of all displays currently known.
+ */
+
+extern TkDisplay *tkDisplayList;
+
+/*
+ * Flags passed to TkMeasureChars:
+ */
+
+#define TK_WHOLE_WORDS		 1
+#define TK_AT_LEAST_ONE		 2
+#define TK_PARTIAL_OK		 4
+#define TK_NEWLINES_NOT_SPECIAL	 8
+#define TK_IGNORE_TABS		16
+
+/*
+ * Return values from TkGrabState:
+ */
+
+#define TK_GRAB_NONE		0
+#define TK_GRAB_IN_TREE		1
+#define TK_GRAB_ANCESTOR	2
+#define TK_GRAB_EXCLUDED	3
+
+/*
+ * The macro below is used to modify a "char" value (e.g. by casting
+ * it to an unsigned character) so that it can be used safely with
+ * macros such as isspace.
+ */
+
+#define UCHAR(c) ((unsigned char) (c))
+
+/*
+ * Miscellaneous variables shared among Tk modules but not exported
+ * to the outside world:
+ */
+
+extern Tk_Uid			tkActiveUid;
+extern Tk_ImageType		tkBitmapImageType;
+extern Tk_Uid			tkDisabledUid;
+extern Tk_PhotoImageFormat	tkImgFmtGIF;
+extern void			(*tkHandleEventProc) _ANSI_ARGS_((
+    				    XEvent* eventPtr));
+extern Tk_PhotoImageFormat	tkImgFmtPPM;
+extern TkMainInfo		*tkMainWindowList;
+extern Tk_Uid			tkNormalUid;
+extern Tk_ImageType		tkPhotoImageType;
+extern int			tkSendSerial;
+
+/*
+ * Internal procedures shared among Tk modules but not exported
+ * to the outside world:
+ */
+
+EXTERN char *		TkAlignImageData _ANSI_ARGS_((XImage *image,
+			    int alignment, int bitOrder));
+EXTERN int		TkAreaToPolygon _ANSI_ARGS_((double *polyPtr,
+			    int numPoints, double *rectPtr));
+EXTERN void		TkBezierPoints _ANSI_ARGS_((double control[],
+			    int numSteps, double *coordPtr));
+EXTERN void		TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas,
+			    double control[], int numSteps,
+			    XPoint *xPointPtr));
+EXTERN void		TkBindEventProc _ANSI_ARGS_((TkWindow *winPtr,
+			    XEvent *eventPtr));
+EXTERN void		TkChangeEventWindow _ANSI_ARGS_((XEvent *eventPtr,
+			    TkWindow *winPtr));
+#ifndef TkClipBox
+EXTERN void		TkClipBox _ANSI_ARGS_((TkRegion rgn,
+			    XRectangle* rect_return));
+#endif
+EXTERN int		TkClipInit _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkDisplay *dispPtr));
+EXTERN int		TkCmapStressed _ANSI_ARGS_((Tk_Window tkwin,
+			    Colormap colormap));
+EXTERN void		TkComputeTextGeometry _ANSI_ARGS_((
+			    XFontStruct *fontStructPtr, char *string,
+			    int numChars, int wrapLength, int *widthPtr,
+			    int *heightPtr));
+EXTERN void		TkConsoleCreate _ANSI_ARGS_((void));
+EXTERN int		TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN void		TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tcl_File outFile, char *buffer, long size));
+EXTERN int		TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *script));
+EXTERN TkCursor *	TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin,
+			    char *source, char *mask, int width, int height,
+			    int xHot, int yHot, XColor fg, XColor bg));
+EXTERN int		TkCreateFrame _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv,
+			    int toplevel, char *appName));
+EXTERN Tk_Window	TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *screenName, char *baseName));
+#ifndef TkCreateRegion
+EXTERN TkRegion		TkCreateRegion _ANSI_ARGS_((void));
+#endif
+EXTERN Time		TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr));
+EXTERN int		TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+EXTERN void		TkDeleteAllImages _ANSI_ARGS_((TkMainInfo *mainPtr));
+#ifndef TkDestroyRegion
+EXTERN void		TkDestroyRegion _ANSI_ARGS_((TkRegion rgn));
+#endif
+EXTERN void		TkDisplayChars _ANSI_ARGS_((Display *display,
+			    Drawable drawable, GC gc,
+			    XFontStruct *fontStructPtr, char *string,
+			    int numChars, int x, int y, int tabOrigin,
+			    int flags));
+EXTERN void		TkDisplayText _ANSI_ARGS_((Display *display,
+			    Drawable drawable, XFontStruct *fontStructPtr,
+			    char *string, int numChars, int x, int y,
+			    int length, Tk_Justify justify, int underline,
+			    GC gc));
+EXTERN void		TkEventCleanupProc _ANSI_ARGS_((
+			    ClientData clientData, Tcl_Interp *interp));
+EXTERN void		TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas,
+			    double *coordPtr, int numPoints, Display *display,
+			    Drawable drawable, GC gc, GC outlineGC));
+EXTERN void		TkFocusDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int		TkFocusFilterEvent _ANSI_ARGS_((TkWindow *winPtr,
+			    XEvent *eventPtr));
+EXTERN void		TkFreeBindingTags _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkFreeWindowId _ANSI_ARGS_((TkDisplay *dispPtr,
+			    Window w));
+EXTERN void		TkFreeCursor _ANSI_ARGS_((TkCursor *cursorPtr));
+EXTERN char *		TkGetBitmapData _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, char *fileName, int *widthPtr,
+			    int *heightPtr, int *hotXPtr, int *hotYPtr));
+EXTERN void		TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[],
+			    double width, int project, double m1[],
+			    double m2[]));
+EXTERN TkCursor *	TkGetCursorByName _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Tk_Uid string));
+EXTERN TkDisplay *	TkGetDisplay _ANSI_ARGS_((Display *display));
+EXTERN TkWindow *	TkGetFocus _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int		TkGetInterpNames _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin));
+EXTERN int		TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[],
+			    double p3[], double width, double m1[],
+			    double m2[]));
+EXTERN void		TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin,
+			    int *xPtr, int *yPtr));
+EXTERN char *		TkGetDefaultScreenName _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *screenName));
+EXTERN void		TkGetServerInfo _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin));
+EXTERN void		TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int		TkGrabState _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN TkWindow *      	TkIDToWindow _ANSI_ARGS_((Window window, 
+			    TkDisplay *display));
+EXTERN void		TkIncludePoint _ANSI_ARGS_((Tk_Item *itemPtr,
+			    double *pointPtr));
+EXTERN void		TkInitXId _ANSI_ARGS_((TkDisplay *dispPtr));
+EXTERN void		TkInOutEvents _ANSI_ARGS_((XEvent *eventPtr,
+			    TkWindow *sourcePtr, TkWindow *destPtr,
+			    int leaveType, int enterType,
+			    Tcl_QueuePosition position));
+#ifndef TkIntersectRegion
+EXTERN void		TkIntersectRegion _ANSI_ARGS_((TkRegion sra,
+			    TkRegion srcb, TkRegion dr_return));
+#endif
+EXTERN char *		TkKeysymToString _ANSI_ARGS_((KeySym keysym));
+EXTERN int		TkLineToArea _ANSI_ARGS_((double end1Ptr[2],
+			    double end2Ptr[2], double rectPtr[4]));
+EXTERN double		TkLineToPoint _ANSI_ARGS_((double end1Ptr[2],
+			    double end2Ptr[2], double pointPtr[2]));
+EXTERN int		TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas,
+			    double *pointPtr, int numPoints, int numSteps,
+			    XPoint xPoints[], double dblPoints[]));
+EXTERN void		TkMakeBezierPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, double *pointPtr,
+			    int numPoints));
+EXTERN Window		TkMakeWindow _ANSI_ARGS_((TkWindow *winPtr,
+			    Window parent));
+EXTERN int		TkMeasureChars _ANSI_ARGS_((XFontStruct *fontStructPtr,
+			    char *source, int maxChars, int startX, int maxX,
+			    int tabOrigin, int flags, int *nextXPtr));
+EXTERN void		TkOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int		TkOvalToArea _ANSI_ARGS_((double *ovalPtr,
+			    double *rectPtr));
+EXTERN double		TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4],
+			    double width, int filled, double pointPtr[2]));
+EXTERN int		TkPlatformInit _ANSI_ARGS_((Tcl_Interp *interp));
+EXTERN int		TkPointerEvent _ANSI_ARGS_((XEvent *eventPtr,
+			    TkWindow *winPtr));
+EXTERN int		TkPolygonToArea _ANSI_ARGS_((double *polyPtr,
+			    int numPoints, double *rectPtr));
+EXTERN double		TkPolygonToPoint _ANSI_ARGS_((double *polyPtr,
+			    int numPoints, double *pointPtr));
+EXTERN int		TkPositionInTree _ANSI_ARGS_((TkWindow *winPtr,
+			    TkWindow *treePtr));
+#ifndef TkPutImage
+EXTERN void		TkPutImage _ANSI_ARGS_((unsigned long *colors,
+			    int ncolors, Display* display, Drawable d,
+			    GC gc, XImage* image, int src_x, int src_y,
+			    int dest_x, int dest_y, unsigned int width,
+			    unsigned int height));
+#endif
+#ifndef TkRectInRegion
+EXTERN int		TkRectInRegion _ANSI_ARGS_((TkRegion rgn,
+			    int x, int y, unsigned int width,
+			    unsigned int height));
+#endif
+EXTERN void		TkQueueEventForAllChildren _ANSI_ARGS_((
+			    Tk_Window tkwin, XEvent *eventPtr));
+EXTERN int		TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc,
+			    int x, int y, int width, int height, int dx,
+			    int dy, TkRegion damageRgn));
+EXTERN void		TkSelDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin,
+			    XEvent *eventPtr));
+EXTERN void		TkSelInit _ANSI_ARGS_((Tk_Window tkwin));
+#ifndef TkSetPixmapColormap
+EXTERN void		TkSetPixmapColormap _ANSI_ARGS_((Pixmap pixmap,
+			    Colormap colormap));
+#endif
+#ifndef TkSetRegion
+EXTERN void		TkSetRegion _ANSI_ARGS_((Display* display, GC gc,
+			    TkRegion rgn));
+#endif
+EXTERN void		TkSelPropProc _ANSI_ARGS_((XEvent *eventPtr));
+EXTERN int		TkThickPolyLineToArea _ANSI_ARGS_((double *coordPtr,
+			    int numPoints, double width, int capStyle,
+			    int joinStyle, double *rectPtr));
+EXTERN KeySym		TkStringToKeysym _ANSI_ARGS_((char *name));
+EXTERN void		TkUnderlineChars _ANSI_ARGS_((Display *display,
+			    Drawable drawable, GC gc,
+			    XFontStruct *fontStructPtr, char *string,
+			    int x, int y, int tabOrigin, int flags,
+			    int firstChar, int lastChar));
+#ifndef TkUnionRectWithRegion
+EXTERN void		TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect,
+			    TkRegion src, TkRegion dr_return));
+#endif
+EXTERN void		TkWmAddToColormapWindows _ANSI_ARGS_((
+			    TkWindow *winPtr));
+EXTERN void		TkWmDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkWmMapWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkWmNewWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkWmProtocolEventProc _ANSI_ARGS_((TkWindow *winPtr,
+			    XEvent *evenvPtr));
+EXTERN void		TkWmRemoveFromColormapWindows _ANSI_ARGS_((
+			    TkWindow *winPtr));
+EXTERN void		TkWmRestackToplevel _ANSI_ARGS_((TkWindow *winPtr,
+			    int aboveBelow, TkWindow *otherPtr));
+EXTERN void		TkWmSetClass _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN void		TkWmUnmapWindow _ANSI_ARGS_((TkWindow *winPtr));
+EXTERN int		TkXFileProc _ANSI_ARGS_((ClientData clientData,
+			    int mask, int flags));
+
+#endif  /* _TKINT */
diff --git a/Tk/generic/tkListbox.c b/Tk/generic/tkListbox.c
new file mode 100644
index 0000000..0839500
--- /dev/null
+++ b/Tk/generic/tkListbox.c
@@ -0,0 +1,2289 @@
+/* 
+ * tkListbox.c --
+ *
+ *	This module implements listbox widgets for the Tk
+ *	toolkit.  A listbox displays a collection of strings,
+ *	one per line, and provides scrolling and selection.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkListbox.c 1.109 96/05/17 16:26:55
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+
+/*
+ * One record of the following type is kept for each element
+ * associated with a listbox widget:
+ */
+
+typedef struct Element {
+    int textLength;		/* # non-NULL characters in text. */
+    int lBearing;		/* Distance from first character's
+				 * origin to left edge of character. */
+    int pixelWidth;		/* Total width of element in pixels (including
+				 * left bearing and right bearing). */
+    int selected;		/* 1 means this item is selected, 0 means
+				 * it isn't. */
+    struct Element *nextPtr;	/* Next in list of all elements of this
+				 * listbox, or NULL for last element. */
+    char text[4];		/* Characters of this element, NULL-
+				 * terminated.  The actual space allocated
+				 * here will be as large as needed (> 4,
+				 * most likely).  Must be the last field
+				 * of the record. */
+} Element;
+
+#define ElementSize(stringLength) \
+	((unsigned) (sizeof(Element) - 3 + stringLength))
+
+/*
+ * A data structure of the following type is kept for each listbox
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the listbox.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with listbox. */
+    Tcl_Command widgetCmd;	/* Token for listbox's widget command. */
+    int numElements;		/* Total number of elements in this listbox. */
+    Element *firstPtr;		/* First in list of elements (NULL if no
+				 * elements). */
+    Element *lastPtr;		/* Last in list of elements (NULL if no
+				 * elements). */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_3DBorder normalBorder;	/* Used for drawing border around whole
+				 * window, plus used for background. */
+    int borderWidth;		/* Width of 3-D border around window. */
+    int relief;			/* 3-D effect: TK_RELIEF_RAISED, etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *fgColorPtr;		/* Text color in normal mode. */
+    GC textGC;			/* For drawing normal text. */
+    Tk_3DBorder selBorder;	/* Borders and backgrounds for selected
+				 * elements. */
+    int selBorderWidth;		/* Width of border around selection. */
+    XColor *selFgColorPtr;	/* Foreground color for selected elements. */
+    GC selTextGC;		/* For drawing selected text. */
+    int width;			/* Desired width of window, in characters. */
+    int height;			/* Desired height of window, in lines. */
+    int lineHeight;		/* Number of pixels allocated for each line
+				 * in display. */
+    int topIndex;		/* Index of top-most element visible in
+				 * window. */
+    int fullLines;		/* Number of lines that fit are completely
+				 * visible in window.  There may be one
+				 * additional line at the bottom that is
+				 * partially visible. */
+    int partialLine;		/* 0 means that the window holds exactly
+				 * fullLines lines.  1 means that there is
+				 * one additional line that is partially
+				 * visble. */
+    int setGrid;		/* Non-zero means pass gridding information
+				 * to window manager. */
+
+    /*
+     * Information to support horizontal scrolling:
+     */
+
+    int maxWidth;		/* Width (in pixels) of widest string in
+				 * listbox. */
+    int xScrollUnit;		/* Number of pixels in one "unit" for
+				 * horizontal scrolling (window scrolls
+				 * horizontally in increments of this size).
+				 * This is an average character size. */
+    int xOffset;		/* The left edge of each string in the
+				 * listbox is offset to the left by this
+				 * many pixels (0 means no offset, positive
+				 * means there is an offset). */
+
+    /*
+     * Information about what's selected or active, if any.
+     */
+
+    Tk_Uid selectMode;		/* Selection style: single, browse, multiple,
+				 * or extended.  This value isn't used in C
+				 * code, but the Tcl bindings use it. */
+    int numSelected;		/* Number of elements currently selected. */
+    int selectAnchor;		/* Fixed end of selection (i.e. element
+				 * at which selection was started.) */
+    int exportSelection;	/* Non-zero means tie internal listbox
+				 * to X selection. */
+    int active;			/* Index of "active" element (the one that
+				 * has been selected by keyboard traversal).
+				 * -1 means none. */
+
+    /*
+     * Information for scanning:
+     */
+
+    int scanMarkX;		/* X-position at which scan started (e.g.
+				 * button was pressed here). */
+    int scanMarkY;		/* Y-position at which scan started (e.g.
+				 * button was pressed here). */
+    int scanMarkXOffset;	/* Value of "xOffset" field when scan
+				 * started. */
+    int scanMarkYIndex;		/* Index of line that was at top of window
+				 * when scan started. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    char *yScrollCmd;		/* Command prefix for communicating with
+				 * vertical scrollbar.  NULL means no command
+				 * to issue.  Malloc'ed. */
+    char *xScrollCmd;		/* Command prefix for communicating with
+				 * horizontal scrollbar.  NULL means no command
+				 * to issue.  Malloc'ed. */
+    int flags;			/* Various flag bits:  see below for
+				 * definitions. */
+} Listbox;
+
+/*
+ * Flag bits for listboxes:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * UPDATE_V_SCROLLBAR:		Non-zero means vertical scrollbar needs
+ *				to be updated.
+ * UPDATE_H_SCROLLBAR:		Non-zero means horizontal scrollbar needs
+ *				to be updated.
+ * GOT_FOCUS:			Non-zero means this widget currently
+ *				has the input focus.
+ */
+
+#define REDRAW_PENDING		1
+#define UPDATE_V_SCROLLBAR	2
+#define UPDATE_H_SCROLLBAR	4
+#define GOT_FOCUS		8
+
+/*
+ * Information used for argv parsing:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_LISTBOX_BG_COLOR, Tk_Offset(Listbox, normalBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_LISTBOX_BG_MONO, Tk_Offset(Listbox, normalBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_LISTBOX_BORDER_WIDTH, Tk_Offset(Listbox, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_LISTBOX_CURSOR, Tk_Offset(Listbox, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-exportselection", "exportSelection",
+	"ExportSelection", DEF_LISTBOX_EXPORT_SELECTION,
+	Tk_Offset(Listbox, exportSelection), 0},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_LISTBOX_FONT, Tk_Offset(Listbox, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_LISTBOX_FG, Tk_Offset(Listbox, fgColorPtr), 0},
+    {TK_CONFIG_INT, "-height", "height", "Height",
+	DEF_LISTBOX_HEIGHT, Tk_Offset(Listbox, height), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_LISTBOX_HIGHLIGHT_BG,
+	Tk_Offset(Listbox, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_LISTBOX_HIGHLIGHT, Tk_Offset(Listbox, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_LISTBOX_HIGHLIGHT_WIDTH, Tk_Offset(Listbox, highlightWidth), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_LISTBOX_RELIEF, Tk_Offset(Listbox, relief), 0},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_LISTBOX_SELECT_COLOR, Tk_Offset(Listbox, selBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_LISTBOX_SELECT_MONO, Tk_Offset(Listbox, selBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_PIXELS, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_LISTBOX_SELECT_BD, Tk_Offset(Listbox, selBorderWidth), 0},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_LISTBOX_SELECT_FG_COLOR, Tk_Offset(Listbox, selFgColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_LISTBOX_SELECT_FG_MONO, Tk_Offset(Listbox, selFgColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_UID, "-selectmode", "selectMode", "SelectMode",
+	DEF_LISTBOX_SELECT_MODE, Tk_Offset(Listbox, selectMode), 0},
+    {TK_CONFIG_BOOLEAN, "-setgrid", "setGrid", "SetGrid",
+	DEF_LISTBOX_SET_GRID, Tk_Offset(Listbox, setGrid), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_LISTBOX_TAKE_FOCUS, Tk_Offset(Listbox, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-width", "width", "Width",
+	DEF_LISTBOX_WIDTH, Tk_Offset(Listbox, width), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#endif
+	DEF_LISTBOX_SCROLL_COMMAND, Tk_Offset(Listbox, xScrollCmd),
+	TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#endif
+	DEF_LISTBOX_SCROLL_COMMAND, Tk_Offset(Listbox, yScrollCmd),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ChangeListboxOffset _ANSI_ARGS_((Listbox *listPtr,
+			    int offset));
+static void		ChangeListboxView _ANSI_ARGS_((Listbox *listPtr,
+			    int index));
+static int		ConfigureListbox _ANSI_ARGS_((Tcl_Interp *interp,
+			    Listbox *listPtr, int argc, char **argv,
+			    int flags));
+static void		DeleteEls _ANSI_ARGS_((Listbox *listPtr, int first,
+			    int last));
+static void		DestroyListbox _ANSI_ARGS_((char *memPtr));
+static void		DisplayListbox _ANSI_ARGS_((ClientData clientData));
+static int		GetListboxIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    Listbox *listPtr, char *string, int numElsOK,
+			    int *indexPtr));
+static void		InsertEls _ANSI_ARGS_((Listbox *listPtr, int index,
+			    int argc, char **argv));
+static void		ListboxCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		ListboxComputeGeometry _ANSI_ARGS_((Listbox *listPtr,
+			    int fontChanged, int maxIsStale, int updateGrid));
+static void		ListboxEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		ListboxFetchSelection _ANSI_ARGS_((
+			    ClientData clientData, int offset, char *buffer,
+			    int maxBytes));
+static void		ListboxLostSelection _ANSI_ARGS_((
+			    ClientData clientData));
+static void		ListboxRedrawRange _ANSI_ARGS_((Listbox *listPtr,
+			    int first, int last));
+static void		ListboxScanTo _ANSI_ARGS_((Listbox *listPtr,
+			    int x, int y));
+static void		ListboxSelect _ANSI_ARGS_((Listbox *listPtr,
+			    int first, int last, int select));
+static void		ListboxUpdateHScrollbar _ANSI_ARGS_((Listbox *listPtr));
+static void		ListboxUpdateVScrollbar _ANSI_ARGS_((Listbox *listPtr));
+static int		ListboxWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		NearestListboxElement _ANSI_ARGS_((Listbox *listPtr,
+			    int y));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ListboxCmd --
+ *
+ *	This procedure is invoked to process the "listbox" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ListboxCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Listbox *listPtr;
+    Tk_Window new;
+    Tk_Window tkwin = (Tk_Window) clientData;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize the fields of the structure that won't be initialized
+     * by ConfigureListbox, or that ConfigureListbox requires to be
+     * initialized already (e.g. resource pointers).
+     */
+
+    listPtr = (Listbox *) ckalloc(sizeof(Listbox));
+    listPtr->tkwin = new;
+    listPtr->display = Tk_Display(new);
+    listPtr->interp = interp;
+    listPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(listPtr->tkwin), ListboxWidgetCmd,
+	    (ClientData) listPtr, ListboxCmdDeletedProc);
+    listPtr->numElements = 0;
+    listPtr->firstPtr = NULL;
+    listPtr->lastPtr = NULL;
+    listPtr->normalBorder = NULL;
+    listPtr->borderWidth = 0;
+    listPtr->relief = TK_RELIEF_RAISED;
+    listPtr->highlightWidth = 0;
+    listPtr->highlightBgColorPtr = NULL;
+    listPtr->highlightColorPtr = NULL;
+    listPtr->inset = 0;
+    listPtr->fontPtr = NULL;
+    listPtr->fgColorPtr = NULL;
+    listPtr->textGC = None;
+    listPtr->selBorder = NULL;
+    listPtr->selBorderWidth = 0;
+    listPtr->selFgColorPtr = None;
+    listPtr->selTextGC = None;
+    listPtr->width = 0;
+    listPtr->height = 0;
+    listPtr->lineHeight = 0;
+    listPtr->topIndex = 0;
+    listPtr->fullLines = 1;
+    listPtr->partialLine = 0;
+    listPtr->setGrid = 0;
+    listPtr->maxWidth = 0;
+    listPtr->xScrollUnit = 0;
+    listPtr->xOffset = 0;
+    listPtr->selectMode = NULL;
+    listPtr->numSelected = 0;
+    listPtr->selectAnchor = 0;
+    listPtr->exportSelection = 1;
+    listPtr->active = 0;
+    listPtr->scanMarkX = 0;
+    listPtr->scanMarkY = 0;
+    listPtr->scanMarkXOffset = 0;
+    listPtr->scanMarkYIndex = 0;
+    listPtr->cursor = None;
+    listPtr->takeFocus = NULL;
+    listPtr->xScrollCmd = NULL;
+    listPtr->yScrollCmd = NULL;
+    listPtr->flags = 0;
+
+    Tk_SetClass(listPtr->tkwin, "Listbox");
+    Tk_CreateEventHandler(listPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    ListboxEventProc, (ClientData) listPtr);
+    Tk_CreateSelHandler(listPtr->tkwin, XA_PRIMARY, XA_STRING,
+	    ListboxFetchSelection, (ClientData) listPtr, XA_STRING);
+    if (ConfigureListbox(interp, listPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(listPtr->tkwin));
+#else
+    interp->result = Tk_PathName(listPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(listPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ListboxWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ListboxWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about listbox widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    register Listbox *listPtr = (Listbox *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) listPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "activate", length) == 0)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " activate index\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	ListboxRedrawRange(listPtr, listPtr->active, listPtr->active);
+	if (GetListboxIndex(interp, listPtr, argv[2], 0, &index)
+		!= TCL_OK) {
+	    goto error;
+	}
+	listPtr->active = index;
+	ListboxRedrawRange(listPtr, listPtr->active, listPtr->active);
+    } else if ((c == 'b') && (strncmp(argv[1], "bbox", length) == 0)) {
+	int index, x, y, i;
+	Element *elPtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " bbox index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	for (i = 0, elPtr = listPtr->firstPtr; i < index;
+		i++, elPtr = elPtr->nextPtr) {
+	    /* Empty loop body. */
+	}
+	if ((index >= listPtr->topIndex) && (index < listPtr->numElements)
+		    && (index < (listPtr->topIndex + listPtr->fullLines
+		    + listPtr->partialLine))) {
+	    x = listPtr->inset - listPtr->xOffset;
+	    y = ((index - listPtr->topIndex)*listPtr->lineHeight)
+		    + listPtr->inset + listPtr->selBorderWidth;
+	    sprintf(interp->result, "%d %d %d %d", x, y, elPtr->pixelWidth,
+		    listPtr->fontPtr->ascent + listPtr->fontPtr->descent);
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, listPtr->tkwin, configSpecs,
+		(char *) listPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, listPtr->tkwin, configSpecs,
+		    (char *) listPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, listPtr->tkwin, configSpecs,
+		    (char *) listPtr, argv[2], 0);
+	} else {
+	    result = ConfigureListbox(interp, listPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "curselection", length) == 0)
+	    && (length >= 2)) {
+	int i, count;
+	char index[20];
+	Element *elPtr;
+
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " curselection\"",
+		    (char *) NULL);
+	    goto error;
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, "(", NULL);
+#endif
+	count = 0;
+	for (i = 0, elPtr = listPtr->firstPtr; elPtr != NULL;
+		i++, elPtr = elPtr->nextPtr) {
+	    if (elPtr->selected) {
+		sprintf(index, "%d", i);
+		Tcl_AppendElement(interp, index);
+		count++;
+	    }
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, ")", NULL);
+#endif
+	if (count != listPtr->numSelected) {
+	    panic("ListboxWidgetCmd: selection count incorrect");
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)) {
+	int first, last;
+
+	if ((argc < 3) || (argc > 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " delete firstIndex ?lastIndex?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 0, &first) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 3) {
+	    last = first;
+	} else {
+	    if (GetListboxIndex(interp, listPtr, argv[3], 0, &last) != TCL_OK) {
+		goto error;
+	    }
+	}
+	DeleteEls(listPtr, first, last);
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	int first, last, i;
+	Element *elPtr;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get first ?last?\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 0, &first) != TCL_OK) {
+	    goto error;
+	}
+	if ((argc == 4) && (GetListboxIndex(interp, listPtr, argv[3],
+		0, &last) != TCL_OK)) {
+	    goto error;
+	}
+	for (elPtr = listPtr->firstPtr, i = 0; i < first;
+		i++, elPtr = elPtr->nextPtr) {
+	    /* Empty loop body. */
+	}
+	if (elPtr != NULL) {
+#ifdef STk_CODE
+	    if (argc == 3) {
+		STk_stringify_result(interp, elPtr->text);
+	    } else {
+	        Tcl_AppendResult(interp, "(", NULL);
+		for (  ; i <= last; i++, elPtr = elPtr->nextPtr) {
+		  Tcl_AppendResult(interp, " ", 
+				   STk_stringify(elPtr->text, 0), NULL);
+		}
+		Tcl_AppendResult(interp, ")", NULL);
+	    }
+#else
+	    if (argc == 3) {
+		interp->result = elPtr->text;
+	    } else {
+		for (  ; i <= last; i++, elPtr = elPtr->nextPtr) {
+		    Tcl_AppendElement(interp, elPtr->text);
+		}
+	    }
+#endif
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "index", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " index index\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 1, &index)
+		!= TCL_OK) {
+	    goto error;
+	}
+	sprintf(interp->result, "%d", index);
+    } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " insert index ?element element ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 1, &index)
+		!= TCL_OK) {
+	    goto error;
+	}
+	InsertEls(listPtr, index, argc-3, argv+3);
+    } else if ((c == 'n') && (strncmp(argv[1], "nearest", length) == 0)) {
+	int index, y;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " nearest y\"", (char *) NULL);
+	    goto error;
+	}
+	if (Tcl_GetInt(interp, argv[2], &y) != TCL_OK) {
+	    goto error;
+	}
+	index = NearestListboxElement(listPtr, y);
+	sprintf(interp->result, "%d", index);
+    } else if ((c == 's') && (length >= 2)
+	    && (strncmp(argv[1], "scan", length) == 0)) {
+	int x, y;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " scan mark|dragto x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &y) != TCL_OK)) {
+	    goto error;
+	}
+	if ((argv[2][0] == 'm')
+		&& (strncmp(argv[2], "mark", strlen(argv[2])) == 0)) {
+	    listPtr->scanMarkX = x;
+	    listPtr->scanMarkY = y;
+	    listPtr->scanMarkXOffset = listPtr->xOffset;
+	    listPtr->scanMarkYIndex = listPtr->topIndex;
+	} else if ((argv[2][0] == 'd')
+		&& (strncmp(argv[2], "dragto", strlen(argv[2])) == 0)) {
+	    ListboxScanTo(listPtr, x, y);
+	} else {
+	    Tcl_AppendResult(interp, "bad scan option \"", argv[2],
+		    "\": must be mark or dragto", (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "see", length) == 0)
+	    && (length >= 3)) {
+	int index, diff;
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " see index\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	diff = listPtr->topIndex-index;
+	if (diff > 0) {
+	    if (diff <= (listPtr->fullLines/3)) {
+		ChangeListboxView(listPtr, index);
+	    } else {
+		ChangeListboxView(listPtr, index - (listPtr->fullLines-1)/2);
+	    }
+	} else {
+	    diff = index - (listPtr->topIndex + listPtr->fullLines - 1);
+	    if (diff > 0) {
+		if (diff <= (listPtr->fullLines/3)) {
+		    ChangeListboxView(listPtr, listPtr->topIndex + diff);
+		} else {
+		    ChangeListboxView(listPtr,
+			    index - (listPtr->fullLines-1)/2);
+		}
+	    }
+	}
+    } else if ((c == 's') && (length >= 3)
+	    && (strncmp(argv[1], "selection", length) == 0)) {
+	int first, last;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " selection option index ?index?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetListboxIndex(interp, listPtr, argv[3], 0, &first) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 5) {
+	    if (GetListboxIndex(interp, listPtr, argv[4], 0, &last) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    last = first;
+	}
+	length = strlen(argv[2]);
+	c = argv[2][0];
+	if ((c == 'a') && (strncmp(argv[2], "anchor", length) == 0)) {
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " selection anchor index\"", (char *) NULL);
+		goto error;
+	    }
+	    listPtr->selectAnchor = first;
+	} else if ((c == 'c') && (strncmp(argv[2], "clear", length) == 0)) {
+	    ListboxSelect(listPtr, first, last, 0);
+	} else if ((c == 'i') && (strncmp(argv[2], "includes", length) == 0)) {
+	    int i;
+	    Element *elPtr;
+    
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " selection includes index\"", (char *) NULL);
+		goto error;
+	    }
+	    for (elPtr = listPtr->firstPtr, i = 0; i < first;
+		    i++, elPtr = elPtr->nextPtr) {
+		/* Empty loop body. */
+	    }
+#ifdef STk_CODE
+	    interp->result = ((elPtr != NULL) && (elPtr->selected)) ? "#t" : "#f";
+#else
+	    if ((elPtr != NULL) && (elPtr->selected)) {
+		interp->result = "1";
+	    } else {
+		interp->result = "0";
+	    }
+#endif
+	} else if ((c == 's') && (strncmp(argv[2], "set", length) == 0)) {
+	    ListboxSelect(listPtr, first, last, 1);
+	} else {
+	    Tcl_AppendResult(interp, "bad selection option \"", argv[2],
+		    "\": must be anchor, clear, includes, or set",
+		    (char *) NULL);
+	    goto error;
+	}
+    } else if ((c == 's') && (length >= 2)
+	    && (strncmp(argv[1], "size", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " size\"", (char *) NULL);
+	    goto error;
+	}
+	sprintf(interp->result, "%d", listPtr->numElements);
+    } else if ((c == 'x') && (strncmp(argv[1], "xview", length) == 0)) {
+	int index, count, type, windowWidth, windowUnits;
+	int offset = 0;		/* Initialized to stop gcc warnings. */
+	double fraction, fraction2;
+
+	windowWidth = Tk_Width(listPtr->tkwin)
+	    - 2*(listPtr->inset + listPtr->selBorderWidth);
+	if (argc == 2) {
+	    if (listPtr->maxWidth == 0) {
+		interp->result = "0 1";
+	    } else {
+		fraction = listPtr->xOffset/((double) listPtr->maxWidth);
+		fraction2 = (listPtr->xOffset + windowWidth)
+			/((double) listPtr->maxWidth);
+		if (fraction2 > 1.0) {
+		    fraction2 = 1.0;
+		}
+		sprintf(interp->result, "%g %g", fraction, fraction2);
+	    }
+	} else if (argc == 3) {
+	    if (Tcl_GetInt(interp, argv[2], &index) != TCL_OK) {
+		goto error;
+	    }
+	    ChangeListboxOffset(listPtr, index*listPtr->xScrollUnit);
+	} else {
+	    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+	    switch (type) {
+		case TK_SCROLL_ERROR:
+		    goto error;
+		case TK_SCROLL_MOVETO:
+		    offset = fraction*listPtr->maxWidth + 0.5;
+		    break;
+		case TK_SCROLL_PAGES:
+		    windowUnits = windowWidth/listPtr->xScrollUnit;
+		    if (windowUnits > 2) {
+			offset = listPtr->xOffset
+				+ count*listPtr->xScrollUnit*(windowUnits-2);
+		    } else {
+			offset = listPtr->xOffset + count*listPtr->xScrollUnit;
+		    }
+		    break;
+		case TK_SCROLL_UNITS:
+		    offset = listPtr->xOffset + count*listPtr->xScrollUnit;
+		    break;
+	    }
+	    ChangeListboxOffset(listPtr, offset);
+	}
+    } else if ((c == 'y') && (strncmp(argv[1], "yview", length) == 0)) {
+	int index, count, type;
+	double fraction, fraction2;
+
+	if (argc == 2) {
+	    if (listPtr->numElements == 0) {
+		interp->result = "0 1";
+	    } else {
+		fraction = listPtr->topIndex/((double) listPtr->numElements);
+		fraction2 = (listPtr->topIndex+listPtr->fullLines)
+			/((double) listPtr->numElements);
+		if (fraction2 > 1.0) {
+		    fraction2 = 1.0;
+		}
+		sprintf(interp->result, "%g %g", fraction, fraction2);
+	    }
+	} else if (argc == 3) {
+	    if (GetListboxIndex(interp, listPtr, argv[2], 0, &index)
+		    != TCL_OK) {
+		goto error;
+	    }
+	    ChangeListboxView(listPtr, index);
+	} else {
+	    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+	    switch (type) {
+		case TK_SCROLL_ERROR:
+		    goto error;
+		case TK_SCROLL_MOVETO:
+		    index = listPtr->numElements*fraction + 0.5;
+		    break;
+		case TK_SCROLL_PAGES:
+		    if (listPtr->fullLines > 2) {
+			index = listPtr->topIndex
+				+ count*(listPtr->fullLines-2);
+		    } else {
+			index = listPtr->topIndex + count;
+		    }
+		    break;
+		case TK_SCROLL_UNITS:
+		    index = listPtr->topIndex + count;
+		    break;
+	    }
+	    ChangeListboxView(listPtr, index);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be activate, bbox, cget, configure, ",
+		"curselection, delete, get, index, insert, nearest, ",
+		"scan, see, selection, size, ",
+		"xview, or yview", (char *) NULL);
+	goto error;
+    }
+    Tcl_Release((ClientData) listPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) listPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyListbox --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a listbox at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the listbox is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyListbox(memPtr)
+    char *memPtr;	/* Info about listbox widget. */
+{
+    register Listbox *listPtr = (Listbox *) memPtr;
+    register Element *elPtr, *nextPtr;
+
+    /*
+     * Free up all of the list elements.
+     */
+
+    for (elPtr = listPtr->firstPtr; elPtr != NULL; ) {
+	nextPtr = elPtr->nextPtr;
+	ckfree((char *) elPtr);
+	elPtr = nextPtr;
+    }
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (listPtr->textGC != None) {
+	Tk_FreeGC(listPtr->display, listPtr->textGC);
+    }
+    if (listPtr->selTextGC != None) {
+	Tk_FreeGC(listPtr->display, listPtr->selTextGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) listPtr, listPtr->display, 0);
+    ckfree((char *) listPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureListbox --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or reconfigure)
+ *	a listbox widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for listPtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureListbox(interp, listPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Listbox *listPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC new;
+    int oldExport;
+
+    oldExport = listPtr->exportSelection;
+    if (Tk_ConfigureWidget(interp, listPtr->tkwin, configSpecs,
+	    argc, argv, (char *) listPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as setting the
+     * background from a 3-D border.
+     */
+
+    Tk_SetBackgroundFromBorder(listPtr->tkwin, listPtr->normalBorder);
+
+    if (listPtr->highlightWidth < 0) {
+	listPtr->highlightWidth = 0;
+    }
+    listPtr->inset = listPtr->highlightWidth + listPtr->borderWidth;
+
+    gcValues.foreground = listPtr->fgColorPtr->pixel;
+    gcValues.font = listPtr->fontPtr->fid;
+    gcValues.graphics_exposures = False;
+    new = Tk_GetGC(listPtr->tkwin, GCForeground|GCFont|GCGraphicsExposures,
+	    &gcValues);
+    if (listPtr->textGC != None) {
+	Tk_FreeGC(listPtr->display, listPtr->textGC);
+    }
+    listPtr->textGC = new;
+
+    gcValues.foreground = listPtr->selFgColorPtr->pixel;
+    gcValues.font = listPtr->fontPtr->fid;
+    new = Tk_GetGC(listPtr->tkwin, GCForeground|GCFont, &gcValues);
+    if (listPtr->selTextGC != None) {
+	Tk_FreeGC(listPtr->display, listPtr->selTextGC);
+    }
+    listPtr->selTextGC = new;
+
+    /*
+     * Claim the selection if we've suddenly started exporting it and
+     * there is a selection to export.
+     */
+
+    if (listPtr->exportSelection && !oldExport
+	    && (listPtr->numSelected != 0)) {
+	Tk_OwnSelection(listPtr->tkwin, XA_PRIMARY, ListboxLostSelection,
+		(ClientData) listPtr);
+    }
+
+    /*
+     * Register the desired geometry for the window and arrange for
+     * the window to be redisplayed.
+     */
+
+    ListboxComputeGeometry(listPtr, 1, 1, 1);
+    listPtr->flags |= UPDATE_V_SCROLLBAR|UPDATE_H_SCROLLBAR;
+    ListboxRedrawRange(listPtr, 0, listPtr->numElements-1);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayListbox --
+ *
+ *	This procedure redraws the contents of a listbox window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayListbox(clientData)
+    ClientData clientData;	/* Information about window. */
+{
+    register Listbox *listPtr = (Listbox *) clientData;
+    register Tk_Window tkwin = listPtr->tkwin;
+    register Element *elPtr;
+    GC gc;
+    int i, limit, x, y, width, prevSelected;
+    int left, right;			/* Non-zero values here indicate
+					 * that the left or right edge of
+					 * the listbox is off-screen. */
+    Pixmap pixmap;
+
+    listPtr->flags &= ~REDRAW_PENDING;
+    if (listPtr->flags & UPDATE_V_SCROLLBAR) {
+	ListboxUpdateVScrollbar(listPtr);
+    }
+    if (listPtr->flags & UPDATE_H_SCROLLBAR) {
+	ListboxUpdateHScrollbar(listPtr);
+    }
+    listPtr->flags &= ~(REDRAW_PENDING|UPDATE_V_SCROLLBAR|UPDATE_H_SCROLLBAR);
+    if ((listPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    /*
+     * Redrawing is done in a temporary pixmap that is allocated
+     * here and freed at the end of the procedure.  All drawing is
+     * done to the pixmap, and the pixmap is copied to the screen
+     * at the end of the procedure.  This provides the smoothest
+     * possible visual effects (no flashing on the screen).
+     */
+
+    pixmap = Tk_GetPixmap(listPtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+    Tk_Fill3DRectangle(tkwin, pixmap, listPtr->normalBorder, 0, 0,
+	    Tk_Width(tkwin), Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
+
+    /*
+     * Iterate through all of the elements of the listbox, displaying each
+     * in turn.  Selected elements use a different GC and have a raised
+     * background.
+     */
+
+    limit = listPtr->topIndex + listPtr->fullLines + listPtr->partialLine - 1;
+    if (limit >= listPtr->numElements) {
+	limit = listPtr->numElements-1;
+    }
+    left = right = 0;
+    if (listPtr->xOffset > 0) {
+	left = listPtr->selBorderWidth+1;
+    }
+    if ((listPtr->maxWidth - listPtr->xOffset) > (Tk_Width(listPtr->tkwin)
+	    - 2*(listPtr->inset + listPtr->selBorderWidth)))  {
+	right = listPtr->selBorderWidth+1;
+    }
+    prevSelected = 0;
+    for (elPtr = listPtr->firstPtr, i = 0; (elPtr != NULL) && (i <= limit);
+	    prevSelected = elPtr->selected, elPtr = elPtr->nextPtr, i++) {
+	if (i < listPtr->topIndex) {
+	    continue;
+	}
+	x = listPtr->inset;
+	y = ((i - listPtr->topIndex) * listPtr->lineHeight) 
+		+ listPtr->inset;
+	gc = listPtr->textGC;
+	if (elPtr->selected) {
+	    gc = listPtr->selTextGC;
+	    width = Tk_Width(tkwin) - 2*listPtr->inset;
+	    Tk_Fill3DRectangle(tkwin, pixmap, listPtr->selBorder, x, y,
+		    width, listPtr->lineHeight, 0, TK_RELIEF_FLAT);
+
+	    /*
+	     * Draw beveled edges around the selection, if there are visible
+	     * edges next to this element.  Special considerations:
+	     * 1. The left and right bevels may not be visible if horizontal
+	     *    scrolling is enabled (the "left" and "right" variables
+	     *    are zero to indicate that the corresponding bevel is
+	     *    visible).
+	     * 2. Top and bottom bevels are only drawn if this is the
+	     *    first or last seleted item.
+	     * 3. If the left or right bevel isn't visible, then the "left"
+	     *    and "right" variables, computed above, have non-zero values
+	     *    that extend the top and bottom bevels so that the mitered
+	     *    corners are off-screen.
+	     */
+
+	    if (left == 0) {
+		Tk_3DVerticalBevel(tkwin, pixmap, listPtr->selBorder,
+			x, y, listPtr->selBorderWidth, listPtr->lineHeight,
+			1, TK_RELIEF_RAISED);
+	    }
+	    if (right == 0) {
+		Tk_3DVerticalBevel(tkwin, pixmap, listPtr->selBorder,
+			x + width - listPtr->selBorderWidth, y,
+			listPtr->selBorderWidth, listPtr->lineHeight,
+			0, TK_RELIEF_RAISED);
+	    }
+	    if (!prevSelected) {
+		Tk_3DHorizontalBevel(tkwin, pixmap, listPtr->selBorder,
+			x-left, y, width+left+right, listPtr->selBorderWidth,
+			1, 1, 1, TK_RELIEF_RAISED);
+	    }
+	    if ((elPtr->nextPtr == NULL) || !elPtr->nextPtr->selected) {
+		Tk_3DHorizontalBevel(tkwin, pixmap, listPtr->selBorder, x-left,
+			y + listPtr->lineHeight - listPtr->selBorderWidth,
+			width+left+right, listPtr->selBorderWidth, 0, 0, 0,
+			TK_RELIEF_RAISED);
+	    }
+	}
+	y += listPtr->fontPtr->ascent + listPtr->selBorderWidth;
+	x = listPtr->inset + listPtr->selBorderWidth - elPtr->lBearing
+		- listPtr->xOffset;
+	XDrawString(listPtr->display, pixmap, gc, x, y,
+		elPtr->text, elPtr->textLength);
+
+	/*
+	 * If this is the active element, underline it.
+	 */
+
+	if ((i == listPtr->active) && (listPtr->flags & GOT_FOCUS)) {
+	    XFillRectangle(listPtr->display, pixmap, gc,
+		    listPtr->inset + listPtr->selBorderWidth
+			- listPtr->xOffset,
+		    y + listPtr->fontPtr->descent - 1,
+		    (unsigned) elPtr->pixelWidth, 1);
+	}
+    }
+
+    /*
+     * Redraw the border for the listbox to make sure that it's on top
+     * of any of the text of the listbox entries.
+     */
+
+    Tk_Draw3DRectangle(tkwin, pixmap, listPtr->normalBorder,
+	    listPtr->highlightWidth, listPtr->highlightWidth,
+	    Tk_Width(tkwin) - 2*listPtr->highlightWidth,
+	    Tk_Height(tkwin) - 2*listPtr->highlightWidth,
+	    listPtr->borderWidth, listPtr->relief);
+    if (listPtr->highlightWidth > 0) {
+	GC gc;
+
+	if (listPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(listPtr->highlightColorPtr, pixmap);
+	} else {
+	    gc = Tk_GCForColor(listPtr->highlightBgColorPtr, pixmap);
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, listPtr->highlightWidth, pixmap);
+    }
+    XCopyArea(listPtr->display, pixmap, Tk_WindowId(tkwin),
+	    listPtr->textGC, 0, 0, (unsigned) Tk_Width(tkwin),
+	    (unsigned) Tk_Height(tkwin), 0, 0);
+    Tk_FreePixmap(listPtr->display, pixmap);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxComputeGeometry --
+ *
+ *	This procedure is invoked to recompute geometry information
+ *	such as the sizes of the elements and the overall dimensions
+ *	desired for the listbox.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Geometry information is updated and a new requested size is
+ *	registered for the widget.  Internal border and gridding
+ *	information is also set.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxComputeGeometry(listPtr, fontChanged, maxIsStale, updateGrid)
+    Listbox *listPtr;		/* Listbox whose geometry is to be
+				 * recomputed. */
+    int fontChanged;		/* Non-zero means the font may have changed
+				 * so per-element width information also
+				 * has to be computed. */
+    int maxIsStale;		/* Non-zero means the "maxWidth" field may
+				 * no longer be up-to-date and must
+				 * be recomputed.  If fontChanged is 1 then
+				 * this must be 1. */
+    int updateGrid;		/* Non-zero means call Tk_SetGrid or
+				 * Tk_UnsetGrid to update gridding for
+				 * the window. */
+{
+    register Element *elPtr;
+    int dummy, fontHeight, width, height, pixelWidth, pixelHeight;
+    XCharStruct bbox;
+
+    if (fontChanged  || maxIsStale) {
+	listPtr->xScrollUnit = XTextWidth(listPtr->fontPtr, "0", 1);
+	listPtr->maxWidth = 0;
+	for (elPtr = listPtr->firstPtr; elPtr != NULL; elPtr = elPtr->nextPtr) {
+	    if (fontChanged) {
+		XTextExtents(listPtr->fontPtr, elPtr->text, elPtr->textLength,
+			&dummy, &dummy, &dummy, &bbox);
+		elPtr->lBearing = bbox.lbearing;
+		elPtr->pixelWidth = bbox.rbearing - bbox.lbearing;
+	    }
+	    if (elPtr->pixelWidth > listPtr->maxWidth) {
+		listPtr->maxWidth = elPtr->pixelWidth;
+	    }
+	}
+    }
+
+    fontHeight = listPtr->fontPtr->ascent + listPtr->fontPtr->descent;
+    listPtr->lineHeight = fontHeight + 1 + 2*listPtr->selBorderWidth;
+    width = listPtr->width;
+    if (width <= 0) {
+	width = (listPtr->maxWidth + listPtr->xScrollUnit - 1)
+		/listPtr->xScrollUnit;
+	if (width < 1) {
+	    width = 1;
+	}
+    }
+    pixelWidth = width*listPtr->xScrollUnit + 2*listPtr->inset
+	    + 2*listPtr->selBorderWidth;
+    height = listPtr->height;
+    if (listPtr->height <= 0) {
+	height = listPtr->numElements;
+	if (height < 1) {
+	    height = 1;
+	}
+    }
+    pixelHeight = height*listPtr->lineHeight + 2*listPtr->inset;
+    Tk_GeometryRequest(listPtr->tkwin, pixelWidth, pixelHeight);
+    Tk_SetInternalBorder(listPtr->tkwin, listPtr->inset);
+    if (updateGrid) {
+	if (listPtr->setGrid) {
+	    Tk_SetGrid(listPtr->tkwin, width, height, listPtr->xScrollUnit,
+		    listPtr->lineHeight);
+	} else {
+	    Tk_UnsetGrid(listPtr->tkwin);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InsertEls --
+ *
+ *	Add new elements to a listbox widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	New information gets added to listPtr;  it will be redisplayed
+ *	soon, but not immediately.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InsertEls(listPtr, index, argc, argv)
+    register Listbox *listPtr;	/* Listbox that is to get the new
+				 * elements. */
+    int index;			/* Add the new elements before this
+				 * element. */
+    int argc;			/* Number of new elements to add. */
+    char **argv;		/* New elements (one per entry). */
+{
+    register Element *prevPtr, *newPtr;
+    int length, dummy, i, oldMaxWidth;
+    XCharStruct bbox;
+
+    /*
+     * Find the element before which the new ones will be inserted.
+     */
+
+    if (index <= 0) {
+	index = 0;
+    }
+    if (index > listPtr->numElements) {
+	index = listPtr->numElements;
+    }
+    if (index == 0) {
+	prevPtr = NULL;
+    } else if (index == listPtr->numElements) {
+          prevPtr = listPtr->lastPtr;
+    } else {
+	for (prevPtr = listPtr->firstPtr, i = index - 1; i > 0; i--) {
+	    prevPtr = prevPtr->nextPtr;
+	}
+    }
+
+    /*
+     * For each new element, create a record, initialize it, and link
+     * it into the list of elements.
+     */
+
+    oldMaxWidth = listPtr->maxWidth;
+    for (i = argc ; i > 0; i--, argv++, prevPtr = newPtr) {
+	length = strlen(*argv);
+	newPtr = (Element *) ckalloc(ElementSize(length));
+	newPtr->textLength = length;
+	strcpy(newPtr->text, *argv);
+	XTextExtents(listPtr->fontPtr, newPtr->text, newPtr->textLength,
+		&dummy, &dummy, &dummy, &bbox);
+	newPtr->lBearing = bbox.lbearing;
+	newPtr->pixelWidth = bbox.rbearing - bbox.lbearing;
+	if (newPtr->pixelWidth > listPtr->maxWidth) {
+	    listPtr->maxWidth = newPtr->pixelWidth;
+	}
+	newPtr->selected = 0;
+	if (prevPtr == NULL) {
+	    newPtr->nextPtr = listPtr->firstPtr;
+	    listPtr->firstPtr = newPtr;
+	} else {
+	    newPtr->nextPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = newPtr;
+	}
+    }
+    if ((prevPtr != NULL) && (prevPtr->nextPtr == NULL)) {
+	listPtr->lastPtr = prevPtr;
+    }
+    listPtr->numElements += argc;
+
+    /*
+     * Update the selection and other indexes to account for the
+     * renumbering that has just occurred.  Then arrange for the new
+     * information to be displayed.
+     */
+
+    if (index <= listPtr->selectAnchor) {
+	listPtr->selectAnchor += argc;
+    }
+    if (index < listPtr->topIndex) {
+	listPtr->topIndex += argc;
+    }
+    if (index <= listPtr->active) {
+	listPtr->active += argc;
+	if ((listPtr->active >= listPtr->numElements)
+		&& (listPtr->numElements > 0)) {
+	    listPtr->active = listPtr->numElements-1;
+	}
+    }
+    listPtr->flags |= UPDATE_V_SCROLLBAR;
+    if (listPtr->maxWidth != oldMaxWidth) {
+	listPtr->flags |= UPDATE_H_SCROLLBAR;
+    }
+    ListboxComputeGeometry(listPtr, 0, 0, 0);
+    ListboxRedrawRange(listPtr, index, listPtr->numElements-1);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteEls --
+ *
+ *	Remove one or more elements from a listbox widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory gets freed, the listbox gets modified and (eventually)
+ *	redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteEls(listPtr, first, last)
+    register Listbox *listPtr;	/* Listbox widget to modify. */
+    int first;			/* Index of first element to delete. */
+    int last;			/* Index of last element to delete. */
+{
+    register Element *prevPtr, *elPtr;
+    int count, i, widthChanged;
+
+    /*
+     * Adjust the range to fit within the existing elements of the
+     * listbox, and make sure there's something to delete.
+     */
+
+    if (first < 0) {
+	first = 0;
+    }
+    if (last >= listPtr->numElements) {
+	last = listPtr->numElements-1;
+    }
+    count = last + 1 - first;
+    if (count <= 0) {
+	return;
+    }
+
+    /*
+     * Find the element just before the ones to delete.
+     */
+
+    if (first == 0) {
+	prevPtr = NULL;
+    } else {
+	for (i = first-1, prevPtr = listPtr->firstPtr; i > 0; i--) {
+	    prevPtr = prevPtr->nextPtr;
+	}
+    }
+
+    /*
+     * Delete the requested number of elements.
+     */
+
+    widthChanged = 0;
+    for (i = count; i > 0; i--) {
+	if (prevPtr == NULL) {
+	    elPtr = listPtr->firstPtr;
+	    listPtr->firstPtr = elPtr->nextPtr;
+	    if (listPtr->firstPtr == NULL) {
+		listPtr->lastPtr = NULL;
+	    }
+	} else {
+	    elPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = elPtr->nextPtr;
+	    if (prevPtr->nextPtr == NULL) {
+		listPtr->lastPtr = prevPtr;
+	    }
+	}
+	if (elPtr->pixelWidth == listPtr->maxWidth) {
+	    widthChanged = 1;
+	}
+	if (elPtr->selected) {
+	    listPtr->numSelected -= 1;
+	}
+	ckfree((char *) elPtr);
+    }
+    listPtr->numElements -= count;
+
+    /*
+     * Update the selection and viewing information to reflect the change
+     * in the element numbering, and redisplay to slide information up over
+     * the elements that were deleted.
+     */
+
+    if (first <= listPtr->selectAnchor) {
+	listPtr->selectAnchor -= count;
+	if (listPtr->selectAnchor < first) {
+	    listPtr->selectAnchor = first;
+	}
+    }
+    if (first <= listPtr->topIndex) {
+	listPtr->topIndex -= count;
+	if (listPtr->topIndex < first) {
+	    listPtr->topIndex = first;
+	}
+    }
+    if (listPtr->topIndex > (listPtr->numElements - listPtr->fullLines)) {
+	listPtr->topIndex = listPtr->numElements - listPtr->fullLines;
+	if (listPtr->topIndex < 0) {
+	    listPtr->topIndex = 0;
+	}
+    }
+    if (listPtr->active > last) {
+	listPtr->active -= count;
+    } else if (listPtr->active >= first) {
+	listPtr->active = first;
+	if ((listPtr->active >= listPtr->numElements)
+		&& (listPtr->numElements > 0)) {
+	    listPtr->active = listPtr->numElements-1;
+	}
+    }
+    listPtr->flags |= UPDATE_V_SCROLLBAR;
+    ListboxComputeGeometry(listPtr, 0, widthChanged, 0);
+    if (widthChanged) {
+	listPtr->flags |= UPDATE_H_SCROLLBAR;
+    }
+    ListboxRedrawRange(listPtr, first, listPtr->numElements-1);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ListboxEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on listboxes.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ListboxEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Listbox *listPtr = (Listbox *) clientData;
+
+    if (eventPtr->type == Expose) {
+	ListboxRedrawRange(listPtr,
+		NearestListboxElement(listPtr, eventPtr->xexpose.y),
+		NearestListboxElement(listPtr, eventPtr->xexpose.y
+		+ eventPtr->xexpose.height));
+    } else if (eventPtr->type == DestroyNotify) {
+	if (listPtr->tkwin != NULL) {
+	    if (listPtr->setGrid) {
+		Tk_UnsetGrid(listPtr->tkwin);
+	    }
+	    listPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(listPtr->interp,
+		    Tcl_GetCommandName(listPtr->interp, listPtr->widgetCmd));
+	}
+	if (listPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayListbox, (ClientData) listPtr);
+	}
+	Tcl_EventuallyFree((ClientData) listPtr, DestroyListbox);
+    } else if (eventPtr->type == ConfigureNotify) {
+	int vertSpace;
+
+	vertSpace = Tk_Height(listPtr->tkwin) - 2*listPtr->inset;
+	listPtr->fullLines = vertSpace / listPtr->lineHeight;
+	if ((listPtr->fullLines*listPtr->lineHeight) < vertSpace) {
+	    listPtr->partialLine = 1;
+	} else {
+	    listPtr->partialLine = 0;
+	}
+	listPtr->flags |= UPDATE_V_SCROLLBAR|UPDATE_H_SCROLLBAR;
+	ChangeListboxView(listPtr, listPtr->topIndex);
+	ChangeListboxOffset(listPtr, listPtr->xOffset);
+
+	/*
+	 * Redraw the whole listbox.  It's hard to tell what needs
+	 * to be redrawn (e.g. if the listbox has shrunk then we
+	 * may only need to redraw the borders), so just redraw
+	 * everything for safety.
+	 */
+
+	ListboxRedrawRange(listPtr, 0, listPtr->numElements-1);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    listPtr->flags |= GOT_FOCUS;
+	    ListboxRedrawRange(listPtr, 0, listPtr->numElements-1);
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    listPtr->flags &= ~GOT_FOCUS;
+	    ListboxRedrawRange(listPtr, 0, listPtr->numElements-1);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Listbox *listPtr = (Listbox *) clientData;
+    Tk_Window tkwin = listPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	if (listPtr->setGrid) {
+	    Tk_UnsetGrid(listPtr->tkwin);
+	}
+	listPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetListboxIndex --
+ *
+ *	Parse an index into a listbox and return either its value
+ *	or an error.
+ *
+ * Results:
+ *	A standard Tcl result.  If all went well, then *indexPtr is
+ *	filled in with the index (into listPtr) corresponding to
+ *	string.  Otherwise an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetListboxIndex(interp, listPtr, string, numElsOK, indexPtr)
+    Tcl_Interp *interp;		/* For error messages. */
+    Listbox *listPtr;		/* Listbox for which the index is being
+				 * specified. */
+    char *string;		/* Specifies an element in the listbox. */
+    int numElsOK;		/* 0 means the return value must be less
+				 * less than the number of entries in
+				 * the listbox;  1 means it may also be
+				 * equal to the number of entries. */
+    int *indexPtr;		/* Where to store converted index. */
+{
+    int c;
+    size_t length;
+
+    length = strlen(string);
+    c = string[0];
+    if ((c == 'a') && (strncmp(string, "active", length) == 0)
+	    && (length >= 2)) {
+	*indexPtr = listPtr->active;
+    } else if ((c == 'a') && (strncmp(string, "anchor", length) == 0)
+	    && (length >= 2)) {
+	*indexPtr = listPtr->selectAnchor;
+    } else if ((c == 'e') && (strncmp(string, "end", length) == 0)) {
+	*indexPtr = listPtr->numElements;
+    } else if (c == '@') {
+	int x, y;
+	char *p, *end;
+
+	p = string+1;
+	x = strtol(p, &end, 0);
+	if ((end == p) || (*end != ',')) {
+	    goto badIndex;
+	}
+	p = end+1;
+	y = strtol(p, &end, 0);
+	if ((end == p) || (*end != 0)) {
+	    goto badIndex;
+	}
+	*indexPtr = NearestListboxElement(listPtr, y);
+    } else {
+	if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
+	    Tcl_ResetResult(interp);
+	    goto badIndex;
+	}
+    }
+    if (numElsOK) {
+	if (*indexPtr > listPtr->numElements) {
+	    *indexPtr = listPtr->numElements;
+	}
+    } else if (*indexPtr >= listPtr->numElements) {
+	*indexPtr = listPtr->numElements-1;
+    }
+    if (*indexPtr < 0) {
+	*indexPtr = 0;
+    }
+    return TCL_OK;
+
+    badIndex:
+    Tcl_AppendResult(interp, "bad listbox index \"", string,
+	    "\": must be active, anchor, end, @x,y, or a number",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangeListboxView --
+ *
+ *	Change the view on a listbox widget so that a given element
+ *	is displayed at the top.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	What's displayed on the screen is changed.  If there is a
+ *	scrollbar associated with this widget, then the scrollbar
+ *	is instructed to change its display too.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeListboxView(listPtr, index)
+    register Listbox *listPtr;		/* Information about widget. */
+    int index;				/* Index of element in listPtr
+					 * that should now appear at the
+					 * top of the listbox. */
+{
+    if (index >= (listPtr->numElements - listPtr->fullLines)) {
+	index = listPtr->numElements - listPtr->fullLines;
+    }
+    if (index < 0) {
+	index = 0;
+    }
+    if (listPtr->topIndex != index) {
+	listPtr->topIndex = index;
+	if (!(listPtr->flags & REDRAW_PENDING)) {
+	    Tcl_DoWhenIdle(DisplayListbox, (ClientData) listPtr);
+	    listPtr->flags |= REDRAW_PENDING;
+	}
+	listPtr->flags |= UPDATE_V_SCROLLBAR;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangListboxOffset --
+ *
+ *	Change the horizontal offset for a listbox.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The listbox may be redrawn to reflect its new horizontal
+ *	offset.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeListboxOffset(listPtr, offset)
+    register Listbox *listPtr;		/* Information about widget. */
+    int offset;				/* Desired new "xOffset" for
+					 * listbox. */
+{
+    int maxOffset;
+
+    /*
+     * Make sure that the new offset is within the allowable range, and
+     * round it off to an even multiple of xScrollUnit.
+     */
+
+    maxOffset = listPtr->maxWidth + (listPtr->xScrollUnit-1)
+	    - (Tk_Width(listPtr->tkwin) - 2*listPtr->inset
+	    - 2*listPtr->selBorderWidth - listPtr->xScrollUnit);
+    if (offset > maxOffset) {
+	offset = maxOffset;
+    }
+    if (offset < 0) {
+	offset = 0;
+    }
+    offset -= offset%listPtr->xScrollUnit;
+    if (offset != listPtr->xOffset) {
+	listPtr->xOffset = offset;
+	listPtr->flags |= UPDATE_H_SCROLLBAR;
+	ListboxRedrawRange(listPtr, 0, listPtr->numElements);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxScanTo --
+ *
+ *	Given a point (presumably of the curent mouse location)
+ *	drag the view in the window to implement the scan operation.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The view in the window may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxScanTo(listPtr, x, y)
+    register Listbox *listPtr;		/* Information about widget. */
+    int x;				/* X-coordinate to use for scan
+					 * operation. */
+    int y;				/* Y-coordinate to use for scan
+					 * operation. */
+{
+    int newTopIndex, newOffset, maxIndex, maxOffset;
+
+    maxIndex = listPtr->numElements - listPtr->fullLines;
+    maxOffset = listPtr->maxWidth + (listPtr->xScrollUnit-1)
+	    - (Tk_Width(listPtr->tkwin) - 2*listPtr->inset
+	    - 2*listPtr->selBorderWidth - listPtr->xScrollUnit);
+
+    /*
+     * Compute new top line for screen by amplifying the difference
+     * between the current position and the place where the scan
+     * started (the "mark" position).  If we run off the top or bottom
+     * of the list, then reset the mark point so that the current
+     * position continues to correspond to the edge of the window.
+     * This means that the picture will start dragging as soon as the
+     * mouse reverses direction (without this reset, might have to slide
+     * mouse a long ways back before the picture starts moving again).
+     */
+
+    newTopIndex = listPtr->scanMarkYIndex
+	    - (10*(y - listPtr->scanMarkY))/listPtr->lineHeight;
+    if (newTopIndex > maxIndex) {
+	newTopIndex = listPtr->scanMarkYIndex = maxIndex;
+	listPtr->scanMarkY = y;
+    } else if (newTopIndex < 0) {
+	newTopIndex = listPtr->scanMarkYIndex = 0;
+	listPtr->scanMarkY = y;
+    }
+    ChangeListboxView(listPtr, newTopIndex);
+
+    /*
+     * Compute new left edge for display in a similar fashion by amplifying
+     * the difference between the current position and the place where the
+     * scan started.
+     */
+
+    newOffset = listPtr->scanMarkXOffset - (10*(x - listPtr->scanMarkX));
+    if (newOffset > maxOffset) {
+	newOffset = listPtr->scanMarkXOffset = maxOffset;
+	listPtr->scanMarkX = x;
+    } else if (newOffset < 0) {
+	newOffset = listPtr->scanMarkXOffset = 0;
+	listPtr->scanMarkX = x;
+    }
+    ChangeListboxOffset(listPtr, newOffset);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NearestListboxElement --
+ *
+ *	Given a y-coordinate inside a listbox, compute the index of
+ *	the element under that y-coordinate (or closest to that
+ *	y-coordinate).
+ *
+ * Results:
+ *	The return value is an index of an element of listPtr.  If
+ *	listPtr has no elements, then 0 is always returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+NearestListboxElement(listPtr, y)
+    register Listbox *listPtr;		/* Information about widget. */
+    int y;				/* Y-coordinate in listPtr's window. */
+{
+    int index;
+
+    index = (y - listPtr->inset)/listPtr->lineHeight;
+    if (index >= (listPtr->fullLines + listPtr->partialLine)) {
+	index = listPtr->fullLines + listPtr->partialLine - 1;
+    }
+    if (index < 0) {
+	index = 0;
+    }
+    index += listPtr->topIndex;
+    if (index >= listPtr->numElements) {
+	index = listPtr->numElements-1;
+    }
+    return index;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxSelect --
+ *
+ *	Select or deselect one or more elements in a listbox..
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All of the elements in the range between first and last are
+ *	marked as either selected or deselected, depending on the
+ *	"select" argument.  Any items whose state changes are redisplayed.
+ *	The selection is claimed from X when the number of selected
+ *	elements changes from zero to non-zero.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxSelect(listPtr, first, last, select)
+    register Listbox *listPtr;		/* Information about widget. */
+    int first;				/* Index of first element to
+					 * select or deselect. */
+    int last;				/* Index of last element to
+					 * select or deselect. */
+    int select;				/* 1 means select items, 0 means
+					 * deselect them. */
+{
+    int i, firstRedisplay, lastRedisplay, increment, oldCount;
+    Element *elPtr;
+
+    if (last < first) {
+	i = first;
+	first = last;
+	last = i;
+    }
+    if (first >= listPtr->numElements) {
+	return;
+    }
+    oldCount = listPtr->numSelected;
+    firstRedisplay = -1;
+    increment = select ? 1 : -1;
+    for (i = 0, elPtr = listPtr->firstPtr; i < first;
+	    i++, elPtr = elPtr->nextPtr) {
+	/* Empty loop body. */
+    }
+    for ( ; i <= last; i++, elPtr = elPtr->nextPtr) {
+	if (elPtr->selected == select) {
+	    continue;
+	}
+	listPtr->numSelected += increment;
+	elPtr->selected = select;
+	if (firstRedisplay < 0) {
+	    firstRedisplay = i;
+	}
+	lastRedisplay = i;
+    }
+    if (firstRedisplay >= 0) {
+	ListboxRedrawRange(listPtr, first, last);
+    }
+    if ((oldCount == 0) && (listPtr->numSelected > 0)
+	    && (listPtr->exportSelection)) {
+	Tk_OwnSelection(listPtr->tkwin, XA_PRIMARY, ListboxLostSelection,
+		(ClientData) listPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxFetchSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	requested by someone.  It returns part or all of the selection
+ *	in a buffer provided by the caller.
+ *
+ * Results:
+ *	The return value is the number of non-NULL bytes stored
+ *	at buffer.  Buffer is filled (or partially filled) with a
+ *	NULL-terminated string containing part or all of the selection,
+ *	as given by offset and maxBytes.  The selection is returned
+ *	as a Tcl list with one list element for each element in the
+ *	listbox.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ListboxFetchSelection(clientData, offset, buffer, maxBytes)
+    ClientData clientData;		/* Information about listbox widget. */
+    int offset;				/* Offset within selection of first
+					 * byte to be returned. */
+    char *buffer;			/* Location in which to place
+					 * selection. */
+    int maxBytes;			/* Maximum number of bytes to place
+					 * at buffer, not including terminating
+					 * NULL character. */
+{
+    register Listbox *listPtr = (Listbox *) clientData;
+    register Element *elPtr;
+    Tcl_DString selection;
+    int length, count, needNewline;
+
+    if (!listPtr->exportSelection) {
+	return -1;
+    }
+
+    /*
+     * Use a dynamic string to accumulate the contents of the selection.
+     */
+
+    needNewline = 0;
+    Tcl_DStringInit(&selection);
+    for (elPtr = listPtr->firstPtr; elPtr != NULL; elPtr = elPtr->nextPtr) {
+	if (elPtr->selected) {
+	    if (needNewline) {
+		Tcl_DStringAppend(&selection, "\n", 1);
+	    }
+	    Tcl_DStringAppend(&selection, elPtr->text, elPtr->textLength);
+	    needNewline = 1;
+	}
+    }
+
+    length = Tcl_DStringLength(&selection);
+    if (length == 0) {
+	return -1;
+    }
+
+    /*
+     * Copy the requested portion of the selection to the buffer.
+     */
+
+    count = length - offset;
+    if (count <= 0) {
+	count = 0;
+    } else {
+	if (count > maxBytes) {
+	    count = maxBytes;
+	}
+	memcpy((VOID *) buffer,
+		(VOID *) (Tcl_DStringValue(&selection) + offset),
+		(size_t) count);
+    }
+    buffer[count] = '\0';
+    Tcl_DStringFree(&selection);
+    return count;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxLostSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	grabbed away from a listbox widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The existing selection is unhighlighted, and the window is
+ *	marked as not containing a selection.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxLostSelection(clientData)
+    ClientData clientData;		/* Information about listbox widget. */
+{
+    register Listbox *listPtr = (Listbox *) clientData;
+
+    if ((listPtr->exportSelection) && (listPtr->numElements > 0)) {
+	ListboxSelect(listPtr, 0, listPtr->numElements-1, 0);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxRedrawRange --
+ *
+ *	Ensure that a given range of elements is eventually redrawn on
+ *	the display (if those elements in fact appear on the display).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ListboxRedrawRange(listPtr, first, last)
+    register Listbox *listPtr;		/* Information about widget. */
+    int first;				/* Index of first element in list
+					 * that needs to be redrawn. */
+    int last;				/* Index of last element in list
+					 * that needs to be redrawn.  May
+					 * be less than first;
+					 * these just bracket a range. */
+{
+    if ((listPtr->tkwin == NULL) || !Tk_IsMapped(listPtr->tkwin)
+	    || (listPtr->flags & REDRAW_PENDING)) {
+	return;
+    }
+    Tcl_DoWhenIdle(DisplayListbox, (ClientData) listPtr);
+    listPtr->flags |= REDRAW_PENDING;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxUpdateVScrollbar --
+ *
+ *	This procedure is invoked whenever information has changed in
+ *	a listbox in a way that would invalidate a vertical scrollbar
+ *	display.  If there is an associated scrollbar, then this command
+ *	updates it by invoking a Tcl command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A Tcl command is invoked, and an additional command may be
+ *	invoked to process errors in the command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxUpdateVScrollbar(listPtr)
+    register Listbox *listPtr;		/* Information about widget. */
+{
+    char string[100];
+    double first, last;
+    int result;
+    Tcl_Interp *interp;
+
+    if (listPtr->yScrollCmd == NULL) {
+	return;
+    }
+    if (listPtr->numElements == 0) {
+	first = 0.0;
+	last = 1.0;
+    } else {
+	first = listPtr->topIndex/((double) listPtr->numElements);
+	last = (listPtr->topIndex+listPtr->fullLines)
+		/((double) listPtr->numElements);
+	if (last > 1.0) {
+	    last = 1.0;
+	}
+    }
+    sprintf(string, " %g %g", first, last);
+
+    /*
+     * We must hold onto the interpreter from the listPtr because the data
+     * at listPtr might be freed as a result of the Tcl_VarEval.
+     */
+    
+    interp = listPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    result = Tcl_VarEval(interp, listPtr->yScrollCmd, string,
+	    (char *) NULL);
+    if (result != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (vertical scrolling command executed by listbox)");
+	Tcl_BackgroundError(interp);
+    }
+    Tcl_Release((ClientData) interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ListboxUpdateHScrollbar --
+ *
+ *	This procedure is invoked whenever information has changed in
+ *	a listbox in a way that would invalidate a horizontal scrollbar
+ *	display.  If there is an associated horizontal scrollbar, then
+ *	this command updates it by invoking a Tcl command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A Tcl command is invoked, and an additional command may be
+ *	invoked to process errors in the command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ListboxUpdateHScrollbar(listPtr)
+    register Listbox *listPtr;		/* Information about widget. */
+{
+    char string[60];
+    int result, windowWidth;
+    double first, last;
+    Tcl_Interp *interp;
+
+    if (listPtr->xScrollCmd == NULL) {
+	return;
+    }
+    windowWidth = Tk_Width(listPtr->tkwin) - 2*(listPtr->inset
+	    + listPtr->selBorderWidth);
+    if (listPtr->maxWidth == 0) {
+	first = 0;
+	last = 1.0;
+    } else {
+	first = listPtr->xOffset/((double) listPtr->maxWidth);
+	last = (listPtr->xOffset + windowWidth)
+		/((double) listPtr->maxWidth);
+	if (last > 1.0) {
+	    last = 1.0;
+	}
+    }
+    sprintf(string, " %g %g", first, last);
+
+    /*
+     * We must hold onto the interpreter because the data referred to at
+     * listPtr might be freed as a result of the call to Tcl_VarEval.
+     */
+    
+    interp = listPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    result = Tcl_VarEval(interp, listPtr->xScrollCmd, string,
+	    (char *) NULL);
+    if (result != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (horizontal scrolling command executed by listbox)");
+	Tcl_BackgroundError(interp);
+    }
+    Tcl_Release((ClientData) interp);
+}
diff --git a/Tk/generic/tkMain.c b/Tk/generic/tkMain.c
new file mode 100644
index 0000000..67d1200
--- /dev/null
+++ b/Tk/generic/tkMain.c
@@ -0,0 +1,437 @@
+/* 
+ * tkMain.c --
+ *
+ *	This file contains a generic main program for Tk-based applications.
+ *	It can be used as-is for many applications, just by supplying a
+ *	different appInitProc procedure for each specific application.
+ *	Or, it can be used as a template for creating new main programs
+ *	for Tk applications.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkMain.c 1.148 96/03/25 18:08:43
+ */
+
+#include <ctype.h>
+#include <stdio.h>
+#include <string.h>
+#include <tcl.h>
+#include <tk.h>
+#ifdef NO_STDLIB_H
+#   include "../compat/stdlib.h"
+#else
+#   include <stdlib.h>
+#endif
+
+/*
+ * Declarations for various library procedures and variables (don't want
+ * to include tkInt.h or tkPort.h here, because people might copy this
+ * file out of the Tk source directory to make their own modified versions).
+ * Note: don't declare "exit" here even though a declaration is really
+ * needed, because it will conflict with a declaration elsewhere on
+ * some systems.
+ */
+
+extern int		isatty _ANSI_ARGS_((int fd));
+extern int		read _ANSI_ARGS_((int fd, char *buf, size_t size));
+extern char *		strrchr _ANSI_ARGS_((CONST char *string, int c));
+
+/*
+ * Global variables used by the main program:
+ */
+
+static Tcl_Interp *interp;	/* Interpreter for this application. */
+static Tcl_DString command;	/* Used to assemble lines of terminal input
+				 * into Tcl commands. */
+static Tcl_DString line;	/* Used to read the next line from the
+                                 * terminal input. */
+static int tty;			/* Non-zero means standard input is a
+				 * terminal-like device.  Zero means it's
+				 * a file. */
+
+/*
+ * Forward declarations for procedures defined later in this file.
+ */
+
+static void		Prompt _ANSI_ARGS_((Tcl_Interp *interp, int partial));
+static void		StdinProc _ANSI_ARGS_((ClientData clientData,
+			    int mask));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Main --
+ *
+ *	Main program for Wish and most other Tk-based applications.
+ *
+ * Results:
+ *	None. This procedure never returns (it exits the process when
+ *	it's done.
+ *
+ * Side effects:
+ *	This procedure initializes the Tk world and then starts
+ *	interpreting commands;  almost anything could happen, depending
+ *	on the script being interpreted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_Main(argc, argv, appInitProc)
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Array of argument strings. */
+    Tcl_AppInitProc *appInitProc;	/* Application-specific initialization
+					 * procedure to call after most
+					 * initialization but before starting
+					 * to execute commands. */
+{
+    char *args, *fileName;
+    char buf[20];
+    int code;
+    size_t length;
+    Tcl_Channel inChannel, outChannel, errChannel, chan;
+
+    Tcl_FindExecutable(argv[0]);
+    interp = Tcl_CreateInterp();
+#ifdef TCL_MEM_DEBUG
+    Tcl_InitMemory(interp);
+#endif
+
+    /*
+     * Parse command-line arguments.  A leading "-file" argument is
+     * ignored (a historical relic from the distant past).  If the
+     * next argument doesn't start with a "-" then strip it off and
+     * use it as the name of a script file to process.
+     */
+
+    fileName = NULL;
+    if (argc > 1) {
+	length = strlen(argv[1]);
+	if ((length >= 2) && (strncmp(argv[1], "-file", length) == 0)) {
+	    argc--;
+	    argv++;
+	}
+    }
+    if ((argc > 1) && (argv[1][0] != '-')) {
+	fileName = argv[1];
+	argc--;
+	argv++;
+    }
+
+    /*
+     * Make command-line arguments available in the Tcl variables "argc"
+     * and "argv".
+     */
+
+    args = Tcl_Merge(argc-1, argv+1);
+    Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY);
+    ckfree(args);
+    sprintf(buf, "%d", argc-1);
+    Tcl_SetVar(interp, "argc", buf, TCL_GLOBAL_ONLY);
+    Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
+	    TCL_GLOBAL_ONLY);
+
+    /*
+     * Set the "tcl_interactive" variable.
+     */
+
+    /*
+     * For now, under Windows, we assume we are not running as a console mode
+     * app, so we need to use the GUI console.  In order to enable this, we
+     * always claim to be running on a tty.  This probably isn't the right
+     * way to do it.
+     */
+
+#ifdef __WIN32__
+    tty = 1;
+#else
+    tty = isatty(0);
+#endif
+    Tcl_SetVar(interp, "tcl_interactive",
+	    ((fileName == NULL) && tty) ? "1" : "0", TCL_GLOBAL_ONLY);
+
+    /*
+     * Invoke application-specific initialization.
+     */
+
+    if ((*appInitProc)(interp) != TCL_OK) {
+	errChannel = Tcl_GetStdChannel(TCL_STDERR);
+	if (errChannel) {
+            Tcl_Write(errChannel,
+		    "application-specific initialization failed: ", -1);
+            Tcl_Write(errChannel, interp->result, -1);
+            Tcl_Write(errChannel, "\n", 1);
+        }
+    }
+
+    /*
+     * Invoke the script specified on the command line, if any.
+     */
+
+    if (fileName != NULL) {
+	code = Tcl_EvalFile(interp, fileName);
+	if (code != TCL_OK) {
+	    goto error;
+	}
+	tty = 0;
+    } else {
+
+	/*
+	 * Commands will come from standard input, so set up an event
+	 * handler for standard input.  Evaluate the .rc file, if one
+	 * has been specified, set up an event handler for standard
+	 * input, and print a prompt if the input device is a terminal.
+	 */
+
+	fileName = Tcl_GetVar(interp, "tcl_rcFileName", TCL_GLOBAL_ONLY);
+
+	if (fileName != NULL) {
+	    Tcl_DString buffer;
+	    char *fullName;
+    
+	    fullName = Tcl_TranslateFileName(interp, fileName, &buffer);
+	    if (fullName == NULL) {
+		errChannel = Tcl_GetStdChannel(TCL_STDERR);
+		if (errChannel) {
+                    Tcl_Write(errChannel, interp->result, -1);
+                    Tcl_Write(errChannel, "\n", 1);
+                }
+	    } else {
+
+                /*
+                 * NOTE: The following relies on O_RDONLY==0.
+                 */
+                
+                chan = Tcl_OpenFileChannel(interp, fullName, "r", 0);
+                if (chan != (Tcl_Channel) NULL) {
+                    Tcl_Close(NULL, chan);
+                    if (Tcl_EvalFile(interp, fullName) != TCL_OK) {
+			errChannel = Tcl_GetStdChannel(TCL_STDERR);
+			if (errChannel) {
+                            Tcl_Write(errChannel, interp->result, -1);
+                            Tcl_Write(errChannel, "\n", 1);
+                        }
+                    }
+                }
+            }
+            
+	    Tcl_DStringFree(&buffer);
+	}
+
+	/*
+	 * Establish a channel handler for stdin.
+	 */
+
+	inChannel = Tcl_GetStdChannel(TCL_STDIN);
+	if (inChannel) {
+	    Tcl_CreateChannelHandler(inChannel, TCL_READABLE, StdinProc,
+		    (ClientData) inChannel);
+	}
+	if (tty) {
+	    Prompt(interp, 0);
+	}
+    }
+
+    outChannel = Tcl_GetStdChannel(TCL_STDOUT);
+    if (outChannel) {
+	Tcl_Flush(outChannel);
+    }
+    Tcl_DStringInit(&command);
+    Tcl_DStringInit(&line);
+    Tcl_ResetResult(interp);
+
+    /*
+     * Loop infinitely, waiting for commands to execute.  When there
+     * are no windows left, Tk_MainLoop returns and we exit.
+     */
+
+    Tk_MainLoop();
+    Tcl_DeleteInterp(interp);
+    Tcl_Exit(0);
+
+error:
+    /*
+     * The following statement guarantees that the errorInfo
+     * variable is set properly.
+     */
+
+    Tcl_AddErrorInfo(interp, "");
+    errChannel = Tcl_GetStdChannel(TCL_STDERR);
+    if (errChannel) {
+        Tcl_Write(errChannel, Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY),
+		-1);
+        Tcl_Write(errChannel, "\n", 1);
+    }
+    Tcl_DeleteInterp(interp);
+    Tcl_Exit(1);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * StdinProc --
+ *
+ *	This procedure is invoked by the event dispatcher whenever
+ *	standard input becomes readable.  It grabs the next line of
+ *	input characters, adds them to a command being assembled, and
+ *	executes the command if it's complete.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Could be almost arbitrary, depending on the command that's
+ *	typed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+    /* ARGSUSED */
+static void
+StdinProc(clientData, mask)
+    ClientData clientData;		/* Not used. */
+    int mask;				/* Not used. */
+{
+    static int gotPartial = 0;
+    char *cmd;
+    int code, count;
+    Tcl_Channel chan = (Tcl_Channel) clientData;
+
+    count = Tcl_Gets(chan, &line);
+
+    if (count < 0) {
+	if (!gotPartial) {
+	    if (tty) {
+		Tcl_Exit(0);
+	    } else {
+		Tcl_DeleteChannelHandler(chan, StdinProc, (ClientData) chan);
+	    }
+	    return;
+	} else {
+	    count = 0;
+	}
+    }
+
+    (void) Tcl_DStringAppend(&command, Tcl_DStringValue(&line), -1);
+    cmd = Tcl_DStringAppend(&command, "\n", -1);
+    Tcl_DStringFree(&line);
+    
+    if (!Tcl_CommandComplete(cmd)) {
+        gotPartial = 1;
+        goto prompt;
+    }
+    gotPartial = 0;
+
+    /*
+     * Disable the stdin channel handler while evaluating the command;
+     * otherwise if the command re-enters the event loop we might
+     * process commands from stdin before the current command is
+     * finished.  Among other things, this will trash the text of the
+     * command being evaluated.
+     */
+
+    Tcl_CreateChannelHandler(chan, 0, StdinProc, (ClientData) chan);
+    code = Tcl_RecordAndEval(interp, cmd, TCL_EVAL_GLOBAL);
+    Tcl_CreateChannelHandler(chan, TCL_READABLE, StdinProc,
+	    (ClientData) chan);
+    Tcl_DStringFree(&command);
+    if (*interp->result != 0) {
+	if ((code != TCL_OK) || (tty)) {
+	    /*
+	     * The statement below used to call "printf", but that resulted
+	     * in core dumps under Solaris 2.3 if the result was very long.
+             *
+             * NOTE: This probably will not work under Windows either.
+	     */
+
+	    puts(interp->result);
+	}
+    }
+
+    /*
+     * Output a prompt.
+     */
+
+    prompt:
+    if (tty) {
+	Prompt(interp, gotPartial);
+    }
+    Tcl_ResetResult(interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Prompt --
+ *
+ *	Issue a prompt on standard output, or invoke a script
+ *	to issue the prompt.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A prompt gets output, and a Tcl script may be evaluated
+ *	in interp.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+Prompt(interp, partial)
+    Tcl_Interp *interp;			/* Interpreter to use for prompting. */
+    int partial;			/* Non-zero means there already
+					 * exists a partial command, so use
+					 * the secondary prompt. */
+{
+    char *promptCmd;
+    int code;
+    Tcl_Channel outChannel, errChannel;
+
+    errChannel = Tcl_GetChannel(interp, "stderr", NULL);
+
+    promptCmd = Tcl_GetVar(interp,
+	partial ? "tcl_prompt2" : "tcl_prompt1", TCL_GLOBAL_ONLY);
+    if (promptCmd == NULL) {
+defaultPrompt:
+	if (!partial) {
+
+            /*
+             * We must check that outChannel is a real channel - it
+             * is possible that someone has transferred stdout out of
+             * this interpreter with "interp transfer".
+             */
+
+	    outChannel = Tcl_GetChannel(interp, "stdout", NULL);
+            if (outChannel != (Tcl_Channel) NULL) {
+                Tcl_Write(outChannel, "% ", 2);
+            }
+	}
+    } else {
+	code = Tcl_Eval(interp, promptCmd);
+	if (code != TCL_OK) {
+	    Tcl_AddErrorInfo(interp,
+		    "\n    (script that generates prompt)");
+            /*
+             * We must check that errChannel is a real channel - it
+             * is possible that someone has transferred stderr out of
+             * this interpreter with "interp transfer".
+             */
+            
+	    errChannel = Tcl_GetChannel(interp, "stderr", NULL);
+            if (errChannel != (Tcl_Channel) NULL) {
+                Tcl_Write(errChannel, interp->result, -1);
+                Tcl_Write(errChannel, "\n", 1);
+            }
+	    goto defaultPrompt;
+	}
+    }
+    outChannel = Tcl_GetChannel(interp, "stdout", NULL);
+    if (outChannel != (Tcl_Channel) NULL) {
+        Tcl_Flush(outChannel);
+    }
+}
diff --git a/Tk/generic/tkMenu.c b/Tk/generic/tkMenu.c
new file mode 100644
index 0000000..839320c
--- /dev/null
+++ b/Tk/generic/tkMenu.c
@@ -0,0 +1,2781 @@
+/* 
+ * tkMenu.c --
+ *
+ *	This module implements menus for the Tk toolkit.  The menus
+ *	support normal button entries, plus check buttons, radio
+ *	buttons, iconic forms of all of the above, and separator
+ *	entries.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkMenu.c 1.102 96/03/26 16:07:08
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+
+/*
+ * One of the following data structures is kept for each entry of each
+ * menu managed by this file:
+ */
+
+typedef struct MenuEntry {
+    int type;			/* Type of menu entry;  see below for
+				 * valid types. */
+    struct Menu *menuPtr;	/* Menu with which this entry is associated. */
+    char *label;		/* Main text label displayed in entry (NULL
+				 * if no label).  Malloc'ed. */
+    int labelLength;		/* Number of non-NULL characters in label. */
+    int underline;		/* Index of character to underline. */
+    Pixmap bitmap;		/* Bitmap to display in menu entry, or None.
+				 * If not None then label is ignored. */
+    char *imageString;		/* Name of image to display (malloc'ed), or
+				 * NULL.  If non-NULL, bitmap, text, and
+				 * textVarName are ignored. */
+    Tk_Image image;		/* Image to display in menu entry, or NULL if
+				 * none. */
+    char *selectImageString;	/* Name of image to display when selected
+				 * (malloc'ed), or NULL. */
+    Tk_Image selectImage;	/* Image to display in entry when selected,
+				 * or NULL if none.  Ignored if image is
+				 * NULL. */
+    char *accel;		/* Accelerator string displayed at right
+				 * of menu entry.  NULL means no such
+				 * accelerator.  Malloc'ed. */
+    int accelLength;		/* Number of non-NULL characters in
+				 * accelerator. */
+
+    /*
+     * Information related to displaying entry:
+     */
+
+    Tk_Uid state;		/* State of button for display purposes:
+				 * normal, active, or disabled. */
+    int height;			/* Number of pixels occupied by entry in
+				 * vertical dimension, including raised
+				 * border drawn around entry when active. */
+    int y;			/* Y-coordinate of topmost pixel in entry. */
+    int indicatorOn;		/* True means draw indicator, false means
+				 * don't draw it. */
+    int indicatorDiameter;	/* Size of indicator display, in pixels. */
+    Tk_3DBorder border;		/* Structure used to draw background for
+				 * entry.  NULL means use overall border
+				 * for menu. */
+    XColor *fg;			/* Foreground color to use for entry.  NULL
+				 * means use foreground color from menu. */
+    Tk_3DBorder activeBorder;	/* Used to draw background and border when
+				 * element is active.  NULL means use
+				 * activeBorder from menu. */
+    XColor *activeFg;		/* Foreground color to use when entry is
+				 * active.  NULL means use active foreground
+				 * from menu. */
+    XFontStruct *fontPtr;	/* Text font for menu entries.  NULL means
+				 * use overall font for menu. */
+    GC textGC;			/* GC for drawing text in entry.  NULL means
+				 * use overall textGC for menu. */
+    GC activeGC;		/* GC for drawing text in entry when active.
+				 * NULL means use overall activeGC for
+				 * menu. */
+    GC disabledGC;		/* Used to produce disabled effect for entry.
+				 * NULL means use overall disabledGC from
+				 * menu structure.  See comments for
+				 * disabledFg in menu structure for more
+				 * information. */
+    XColor *indicatorFg;	/* Color for indicators in radio and check
+				 * button entries.  NULL means use indicatorFg
+				 * GC from menu. */
+    GC indicatorGC;		/* For drawing indicators.  None means use
+				 * GC from menu. */
+
+    /*
+     * Information used to implement this entry's action:
+     */
+
+    char *command;		/* Command to invoke when entry is invoked.
+				 * Malloc'ed. */
+    char *name;			/* Name of variable (for check buttons and
+				 * radio buttons) or menu (for cascade
+				 * entries).  Malloc'ed.*/
+    char *onValue;		/* Value to store in variable when selected
+				 * (only for radio and check buttons).
+				 * Malloc'ed. */
+    char *offValue;		/* Value to store in variable when not
+				 * selected (only for check buttons).
+				 * Malloc'ed. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    int flags;			/* Various flags.  See below for definitions. */
+} MenuEntry;
+
+/*
+ * Flag values defined for menu entries:
+ *
+ * ENTRY_SELECTED:		Non-zero means this is a radio or check
+ *				button and that it should be drawn in
+ *				the "selected" state.
+ * ENTRY_NEEDS_REDISPLAY:	Non-zero means the entry should be redisplayed.
+ */
+
+#define ENTRY_SELECTED		1
+#define ENTRY_NEEDS_REDISPLAY	4
+
+/*
+ * Types defined for MenuEntries:
+ */
+
+#define COMMAND_ENTRY		0
+#define SEPARATOR_ENTRY		1
+#define CHECK_BUTTON_ENTRY	2
+#define RADIO_BUTTON_ENTRY	3
+#define CASCADE_ENTRY		4
+#define TEAROFF_ENTRY		5
+
+/*
+ * Mask bits for above types:
+ */
+
+#define COMMAND_MASK		TK_CONFIG_USER_BIT
+#define SEPARATOR_MASK		(TK_CONFIG_USER_BIT << 1)
+#define CHECK_BUTTON_MASK	(TK_CONFIG_USER_BIT << 2)
+#define RADIO_BUTTON_MASK	(TK_CONFIG_USER_BIT << 3)
+#define CASCADE_MASK		(TK_CONFIG_USER_BIT << 4)
+#define TEAROFF_MASK		(TK_CONFIG_USER_BIT << 5)
+#define ALL_MASK		(COMMAND_MASK | SEPARATOR_MASK \
+	| CHECK_BUTTON_MASK | RADIO_BUTTON_MASK | CASCADE_MASK | TEAROFF_MASK)
+
+/*
+ * Configuration specs for individual menu entries:
+ */
+
+static Tk_ConfigSpec entryConfigSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_ACTIVE_BG, Tk_Offset(MenuEntry, activeBorder),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-activeforeground", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_ACTIVE_FG, Tk_Offset(MenuEntry, activeFg),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-accelerator", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_ACCELERATOR, Tk_Offset(MenuEntry, accel),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BORDER, "-background", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_BG, Tk_Offset(MenuEntry, border),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|SEPARATOR_MASK|TEAROFF_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-bitmap", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_BITMAP, Tk_Offset(MenuEntry, bitmap),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-command", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-command", (char *) NULL, (char *) NULL,
+#endif
+	DEF_MENU_ENTRY_COMMAND, Tk_Offset(MenuEntry, command),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_FONT, Tk_Offset(MenuEntry, fontPtr),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-foreground", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_FG, Tk_Offset(MenuEntry, fg),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-image", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_IMAGE, Tk_Offset(MenuEntry, imageString),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-indicatoron", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_INDICATOR, Tk_Offset(MenuEntry, indicatorOn),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_STRING, "-label", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_LABEL, Tk_Offset(MenuEntry, label),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK},
+#ifdef STk_CODE
+    {TK_CONFIG_MENU, "-menu", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-menu", (char *) NULL, (char *) NULL,
+#endif
+	DEF_MENU_ENTRY_MENU, Tk_Offset(MenuEntry, name),
+	CASCADE_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-offvalue", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_OFF_VALUE, Tk_Offset(MenuEntry, offValue),
+	CHECK_BUTTON_MASK},
+    {TK_CONFIG_STRING, "-onvalue", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_ON_VALUE, Tk_Offset(MenuEntry, onValue),
+	CHECK_BUTTON_MASK},
+    {TK_CONFIG_COLOR, "-selectcolor", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_SELECT, Tk_Offset(MenuEntry, indicatorFg),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-selectimage", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_SELECT_IMAGE, Tk_Offset(MenuEntry, selectImageString),
+	CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-state", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_STATE, Tk_Offset(MenuEntry, state),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TEAROFF_MASK|TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_STRING, "-value", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_VALUE, Tk_Offset(MenuEntry, onValue),
+	RADIO_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-variable", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_CHECK_VARIABLE, Tk_Offset(MenuEntry, name),
+	CHECK_BUTTON_MASK|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-variable", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_RADIO_VARIABLE, Tk_Offset(MenuEntry, name),
+	RADIO_BUTTON_MASK},
+    {TK_CONFIG_INT, "-underline", (char *) NULL, (char *) NULL,
+	DEF_MENU_ENTRY_UNDERLINE, Tk_Offset(MenuEntry, underline),
+	COMMAND_MASK|CHECK_BUTTON_MASK|RADIO_BUTTON_MASK|CASCADE_MASK
+	|TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * A data structure of the following type is kept for each
+ * menu managed by this file:
+ */
+
+typedef struct Menu {
+    Tk_Window tkwin;		/* Window that embodies the pane.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Needed, among
+				 * other things, so that resources can be
+				 * freed up even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with menu. */
+    Tcl_Command widgetCmd;	/* Token for menu's widget command. */
+    MenuEntry **entries;	/* Array of pointers to all the entries
+				 * in the menu.  NULL means no entries. */
+    int numEntries;		/* Number of elements in entries. */
+    int active;			/* Index of active entry.  -1 means
+				 * nothing active. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_3DBorder border;		/* Structure used to draw 3-D
+				 * border and background for menu. */
+    int borderWidth;		/* Width of border around whole menu. */
+    Tk_3DBorder activeBorder;	/* Used to draw background and border for
+				 * active element (if any). */
+    int activeBorderWidth;	/* Width of border around active element. */
+    int relief;			/* 3-d effect: TK_RELIEF_RAISED, etc. */
+    XFontStruct *fontPtr;	/* Text font for menu entries. */
+    XColor *fg;			/* Foreground color for entries. */
+    GC textGC;			/* GC for drawing text and other features
+				 * of menu entries. */
+    XColor *disabledFg;		/* Foreground color when disabled.  NULL
+				 * means use normalFg with a 50% stipple
+				 * instead. */
+    Pixmap gray;		/* Bitmap for drawing disabled entries in
+				 * a stippled fashion.  None means not
+				 * allocated yet. */
+    GC disabledGC;		/* Used to produce disabled effect.  If
+				 * disabledFg isn't NULL, this GC is used to
+				 * draw text and icons for disabled entries.
+				 * Otherwise text and icons are drawn with
+				 * normalGC and this GC is used to stipple
+				 * background across them. */
+    XColor *activeFg;		/* Foreground color for active entry. */
+    GC activeGC;		/* GC for drawing active entry. */
+    XColor *indicatorFg;	/* Color for indicators in radio and check
+				 * button entries. */
+    GC indicatorGC;		/* For drawing indicators. */
+    int indicatorSpace;		/* Number of pixels to allow for displaying
+				 * indicators in menu entries (includes extra
+				 * space around indicator). */
+    int labelWidth;		/* Number of pixels to allow for displaying
+				 * labels in menu entries. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    int tearOff;		/* 1 means this is a tear-off menu, so the
+				 * first entry always shows a dashed stripe
+				 * for tearing off. */
+    char *tearOffCommand;	/* If non-NULL, points to a command to
+				 * run whenever the menu is torn-off. */
+    int transient;		/* 1 means menu is only posted briefly as
+				 * a popup or pulldown or cascade.  0 means
+				 * menu is always visible, e.g. as a torn-off
+				 * menu.  Determines whether save_under and
+				 * override_redirect should be set. */
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    char *postCommand;		/* Command to execute just before posting
+				 * this menu, or NULL.  Malloc-ed. */
+    MenuEntry *postedCascade;	/* Points to menu entry for cascaded
+				 * submenu that is currently posted, or
+				 * NULL if no submenu posted. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} Menu;
+
+/*
+ * Flag bits for menus:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * RESIZE_PENDING:		Non-zero means a call to ComputeMenuGeometry
+ *				has already been scheduled.
+ */
+
+#define REDRAW_PENDING		1
+#define RESIZE_PENDING		2
+
+/*
+ * Configuration specs valid for the menu as a whole:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_MENU_ACTIVE_BG_COLOR, Tk_Offset(Menu, activeBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_MENU_ACTIVE_BG_MONO, Tk_Offset(Menu, activeBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_PIXELS, "-activeborderwidth", "activeBorderWidth", "BorderWidth",
+	DEF_MENU_ACTIVE_BORDER_WIDTH, Tk_Offset(Menu, activeBorderWidth), 0},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_MENU_ACTIVE_FG_COLOR, Tk_Offset(Menu, activeFg),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_MENU_ACTIVE_FG_MONO, Tk_Offset(Menu, activeFg),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MENU_BG_COLOR, Tk_Offset(Menu, border), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MENU_BG_MONO, Tk_Offset(Menu, border), TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_MENU_BORDER_WIDTH, Tk_Offset(Menu, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_MENU_CURSOR, Tk_Offset(Menu, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_MENU_DISABLED_FG_COLOR,
+	Tk_Offset(Menu, disabledFg), TK_CONFIG_COLOR_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_MENU_DISABLED_FG_MONO,
+	Tk_Offset(Menu, disabledFg), TK_CONFIG_MONO_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_MENU_FONT, Tk_Offset(Menu, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_MENU_FG, Tk_Offset(Menu, fg), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-postcommand", "postCommand", "Command",
+#else
+    {TK_CONFIG_STRING, "-postcommand", "postCommand", "Command",
+#endif
+	DEF_MENU_POST_COMMAND, Tk_Offset(Menu, postCommand), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_MENU_RELIEF, Tk_Offset(Menu, relief), 0},
+    {TK_CONFIG_COLOR, "-selectcolor", "selectColor", "Background",
+	DEF_MENU_SELECT_COLOR, Tk_Offset(Menu, indicatorFg),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-selectcolor", "selectColor", "Background",
+	DEF_MENU_SELECT_MONO, Tk_Offset(Menu, indicatorFg),
+	TK_CONFIG_MONO_ONLY},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_MENU_TAKE_FOCUS, Tk_Offset(Menu, takeFocus), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-tearoff", "tearOff", "TearOff",
+	DEF_MENU_TEAROFF, Tk_Offset(Menu, tearOff), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-tearoffcommand", "tearOffCommand", "TearOffCommand",
+#else
+    {TK_CONFIG_STRING, "-tearoffcommand", "tearOffCommand", "TearOffCommand",
+#endif
+	DEF_MENU_TEAROFF_CMD, Tk_Offset(Menu, tearOffCommand),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-transient", "transient", "Transient",
+	DEF_MENU_TRANSIENT, Tk_Offset(Menu, transient), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Various geometry definitions:
+ */
+
+#define CASCADE_ARROW_HEIGHT 10
+#define CASCADE_ARROW_WIDTH 8
+#define DECORATION_BORDER_WIDTH 2
+#define MARGIN_WIDTH 2
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		ActivateMenuEntry _ANSI_ARGS_((Menu *menuPtr,
+			    int index));
+static void		ComputeMenuGeometry _ANSI_ARGS_((
+			    ClientData clientData));
+static int		ConfigureMenu _ANSI_ARGS_((Tcl_Interp *interp,
+			    Menu *menuPtr, int argc, char **argv,
+			    int flags));
+static int		ConfigureMenuEntry _ANSI_ARGS_((Tcl_Interp *interp,
+			    Menu *menuPtr, MenuEntry *mePtr, int index,
+			    int argc, char **argv, int flags));
+static void		DestroyMenu _ANSI_ARGS_((char *memPtr));
+static void		DestroyMenuEntry _ANSI_ARGS_((char *memPtr));
+static void		DisplayMenu _ANSI_ARGS_((ClientData clientData));
+static void		EventuallyRedrawMenu _ANSI_ARGS_((Menu *menuPtr,
+			    MenuEntry *mePtr));
+static int		GetMenuIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    Menu *menuPtr, char *string, int lastOK,
+			    int *indexPtr));
+static int		MenuAddOrInsert _ANSI_ARGS_((Tcl_Interp *interp,
+			    Menu *menuPtr, char *indexString, int argc,
+			    char **argv));
+static void		MenuCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		MenuEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		MenuImageProc _ANSI_ARGS_((ClientData clientData,
+			    int x, int y, int width, int height, int imgWidth,
+			    int imgHeight));
+static MenuEntry *	MenuNewEntry _ANSI_ARGS_((Menu *menuPtr, int index,
+			    int type));
+static void		MenuSelectImageProc _ANSI_ARGS_((ClientData clientData,
+			    int x, int y, int width, int height, int imgWidth,
+			    int imgHeight));
+static char *		MenuVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static int		MenuWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		PostSubmenu _ANSI_ARGS_((Tcl_Interp *interp,
+			    Menu *menuPtr, MenuEntry *mePtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MenuCmd --
+ *
+ *	This procedure is invoked to process the "menu" Tcl
+ *	command.  See the user documentation for details on
+ *	what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_MenuCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    Tk_Window new;
+    register Menu *menuPtr;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Create the new window.  Set override-redirect so the window
+     * manager won't add a border or argue about placement, and set
+     * save-under so that the window can pop up and down without a
+     * lot of re-drawing.
+     */
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], "");
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize the data structure for the menu.
+     */
+
+    menuPtr = (Menu *) ckalloc(sizeof(Menu));
+    menuPtr->tkwin = new;
+    menuPtr->display = Tk_Display(new);
+    menuPtr->interp = interp;
+    menuPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(menuPtr->tkwin), MenuWidgetCmd,
+	    (ClientData) menuPtr, MenuCmdDeletedProc);
+    menuPtr->entries = NULL;
+    menuPtr->numEntries = 0;
+    menuPtr->active = -1;
+    menuPtr->border = NULL;
+    menuPtr->borderWidth = 0;
+    menuPtr->relief = TK_RELIEF_FLAT;
+    menuPtr->activeBorder = NULL;
+    menuPtr->activeBorderWidth = 0;
+    menuPtr->fontPtr = NULL;
+    menuPtr->fg = NULL;
+    menuPtr->textGC = None;
+    menuPtr->disabledFg = NULL;
+    menuPtr->gray = None;
+    menuPtr->disabledGC = None;
+    menuPtr->activeFg = NULL;
+    menuPtr->activeGC = None;
+    menuPtr->indicatorFg = NULL;
+    menuPtr->indicatorGC = None;
+    menuPtr->indicatorSpace = 0;
+    menuPtr->labelWidth = 0;
+    menuPtr->tearOff = 1;
+    menuPtr->tearOffCommand = NULL;
+    menuPtr->cursor = None;
+    menuPtr->takeFocus = NULL;
+    menuPtr->postCommand = NULL;
+    menuPtr->postedCascade = NULL;
+    menuPtr->flags = 0;
+
+    Tk_SetClass(new, "Menu");
+    Tk_CreateEventHandler(menuPtr->tkwin, ExposureMask|StructureNotifyMask,
+	    MenuEventProc, (ClientData) menuPtr);
+    if (ConfigureMenu(interp, menuPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(menuPtr->tkwin));
+#else
+    interp->result = Tk_PathName(menuPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(menuPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+MenuWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about menu widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Menu *menuPtr = (Menu *) clientData;
+    register MenuEntry *mePtr;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) menuPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "activate", length) == 0)
+	    && (length >= 2)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " activate index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (menuPtr->active == index) {
+	    goto done;
+	}
+	if (index >= 0) {
+	    if ((menuPtr->entries[index]->type == SEPARATOR_ENTRY)
+		    || (menuPtr->entries[index]->state == tkDisabledUid)) {
+		index = -1;
+	    }
+	}
+	result = ActivateMenuEntry(menuPtr, index);
+    } else if ((c == 'a') && (strncmp(argv[1], "add", length) == 0)
+	    && (length >= 2)) {
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " add type ?options?\"", (char *) NULL);
+	    goto error;
+	}
+	if (MenuAddOrInsert(interp, menuPtr, (char *) NULL,
+		argc-2, argv+2) != TCL_OK) {
+	    goto error;
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, menuPtr->tkwin, configSpecs,
+		(char *) menuPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, menuPtr->tkwin, configSpecs,
+		    (char *) menuPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, menuPtr->tkwin, configSpecs,
+		    (char *) menuPtr, argv[2], 0);
+	} else {
+	    result = ConfigureMenu(interp, menuPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)) {
+	int first, last, i, numDeleted;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " delete first ?last?\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &first) != TCL_OK) {
+	    goto error;
+	}
+	if (argc == 3) {
+	    last = first;
+	} else {
+	    if (GetMenuIndex(interp, menuPtr, argv[3], 0, &last) != TCL_OK) {
+	        goto error;
+	    }
+	}
+	if (menuPtr->tearOff && (first == 0)) {
+	    /*
+	     * Sorry, can't delete the tearoff entry;  must reconfigure
+	     * the menu.
+	     */
+	    first = 1;
+	}
+	if ((first < 0) || (last < first)) {
+	    goto done;
+	}
+	numDeleted = last + 1 - first;
+	for (i = first; i <= last; i++) {
+	    Tcl_EventuallyFree((ClientData) menuPtr->entries[i],
+			      DestroyMenuEntry);
+	}
+	for (i = last+1; i < menuPtr->numEntries; i++) {
+	    menuPtr->entries[i-numDeleted] = menuPtr->entries[i];
+	}
+	menuPtr->numEntries -= numDeleted;
+	if ((menuPtr->active >= first) && (menuPtr->active <= last)) {
+	    menuPtr->active = -1;
+	} else if (menuPtr->active > last) {
+	    menuPtr->active -= numDeleted;
+	}
+	if (!(menuPtr->flags & RESIZE_PENDING)) {
+	    menuPtr->flags |= RESIZE_PENDING;
+	    Tcl_DoWhenIdle(ComputeMenuGeometry, (ClientData) menuPtr);
+	}
+    } else if ((c == 'e') && (length >= 7)
+	    && (strncmp(argv[1], "entrycget", length) == 0)) {
+	int index;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " entrycget index option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+	    goto done;
+	}
+	mePtr = menuPtr->entries[index];
+	Tcl_Preserve((ClientData) mePtr);
+	result = Tk_ConfigureValue(interp, menuPtr->tkwin, entryConfigSpecs,
+		(char *) mePtr, argv[3], COMMAND_MASK << mePtr->type);
+	Tcl_Release((ClientData) mePtr);
+    } else if ((c == 'e') && (length >= 7)
+	    && (strncmp(argv[1], "entryconfigure", length) == 0)) {
+	int index;
+
+	if (argc < 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " entryconfigure index ?option value ...?\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+	    goto done;
+	}
+	mePtr = menuPtr->entries[index];
+	Tcl_Preserve((ClientData) mePtr);
+	if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, menuPtr->tkwin, entryConfigSpecs,
+		    (char *) mePtr, (char *) NULL,
+		    COMMAND_MASK << mePtr->type);
+	} else if (argc == 4) {
+	    result = Tk_ConfigureInfo(interp, menuPtr->tkwin, entryConfigSpecs,
+		    (char *) mePtr, argv[3], COMMAND_MASK << mePtr->type);
+	} else {
+	    result = ConfigureMenuEntry(interp, menuPtr, mePtr, index, argc-3,
+		    argv+3, TK_CONFIG_ARGV_ONLY | COMMAND_MASK << mePtr->type);
+	}
+	Tcl_Release((ClientData) mePtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "index", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " index string\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+#ifdef STk_CODE
+	    interp->result = "\"none\"";
+#else
+	    interp->result = "none";
+#endif
+	} else {
+	    sprintf(interp->result, "%d", index);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
+	    && (length >= 3)) {
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " insert index type ?options?\"", (char *) NULL);
+	    goto error;
+	}
+	if (MenuAddOrInsert(interp, menuPtr, argv[2],
+		argc-3, argv+3) != TCL_OK) {
+	    goto error;
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "invoke", length) == 0)
+	    && (length >= 3)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " invoke index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+	    goto done;
+	}
+	mePtr = menuPtr->entries[index];
+	if (mePtr->state == tkDisabledUid) {
+	    goto done;
+	}
+	Tcl_Preserve((ClientData) mePtr);
+	if (mePtr->type == CHECK_BUTTON_ENTRY) {
+	    if (mePtr->flags & ENTRY_SELECTED) {
+		if (Tcl_SetVar(interp, mePtr->name, mePtr->offValue,
+			TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		    result = TCL_ERROR;
+		}
+	    } else {
+		if (Tcl_SetVar(interp, mePtr->name, mePtr->onValue,
+			TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		    result = TCL_ERROR;
+		}
+	    }
+	} else if (mePtr->type == RADIO_BUTTON_ENTRY) {
+	    if (Tcl_SetVar(interp, mePtr->name, mePtr->onValue,
+		    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG) == NULL) {
+		result = TCL_ERROR;
+	    }
+	}
+	if ((result == TCL_OK) && (mePtr->command != NULL)) {
+	    result = TkCopyAndGlobalEval(interp, mePtr->command);
+	}
+	if ((result == TCL_OK) && (mePtr->type == CASCADE_ENTRY)) {
+	    result = PostSubmenu(menuPtr->interp, menuPtr, mePtr);
+	}
+	Tcl_Release((ClientData) mePtr);
+    } else if ((c == 'p') && (strncmp(argv[1], "post", length) == 0)
+	    && (length == 4)) {
+	int x, y, tmp, vRootX, vRootY;
+	int vRootWidth, vRootHeight;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " post x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+	    goto error;
+	}
+
+	/*
+	 * De-activate any active element.
+	 */
+
+	ActivateMenuEntry(menuPtr, -1);
+
+	/*
+	 * If there is a command for the menu, execute it.  This
+	 * may change the size of the menu, so be sure to recompute
+	 * the menu's geometry if needed.
+	 */
+
+	if (menuPtr->postCommand != NULL) {
+	    result = TkCopyAndGlobalEval(menuPtr->interp,
+		    menuPtr->postCommand);
+	    if (result != TCL_OK) {
+		return result;
+	    }
+	    if (menuPtr->flags & RESIZE_PENDING) {
+		Tcl_CancelIdleCall(ComputeMenuGeometry, (ClientData) menuPtr);
+		ComputeMenuGeometry((ClientData) menuPtr);
+	    }
+	}
+
+	/*
+	 * Adjust the position of the menu if necessary to keep it
+	 * visible on the screen.  There are two special tricks to
+	 * make this work right:
+	 *
+	 * 1. If a virtual root window manager is being used then
+	 *    the coordinates are in the virtual root window of
+	 *    menuPtr's parent;  since the menu uses override-redirect
+	 *    mode it will be in the *real* root window for the screen,
+	 *    so we have to map the coordinates from the virtual root
+	 *    (if any) to the real root.  Can't get the virtual root
+	 *    from the menu itself (it will never be seen by the wm)
+	 *    so use its parent instead (it would be better to have an
+	 *    an option that names a window to use for this...).
+	 * 2. The menu may not have been mapped yet, so its current size
+	 *    might be the default 1x1.  To compute how much space it
+	 *    needs, use its requested size, not its actual size.
+	 */
+
+	Tk_GetVRootGeometry(Tk_Parent(menuPtr->tkwin), &vRootX, &vRootY,
+		&vRootWidth, &vRootHeight);
+	x += vRootX;
+	y += vRootY;
+	tmp = WidthOfScreen(Tk_Screen(menuPtr->tkwin))
+		- Tk_ReqWidth(menuPtr->tkwin);
+	if (x > tmp) {
+	    x = tmp;
+	}
+	if (x < 0) {
+	    x = 0;
+	}
+	tmp = HeightOfScreen(Tk_Screen(menuPtr->tkwin))
+		- Tk_ReqHeight(menuPtr->tkwin);
+	if (y > tmp) {
+	    y = tmp;
+	}
+	if (y < 0) {
+	    y = 0;
+	}
+	if ((x != Tk_X(menuPtr->tkwin)) || (y != Tk_Y(menuPtr->tkwin))) {
+	    Tk_MoveToplevelWindow(menuPtr->tkwin, x, y);
+	}
+	if (!Tk_IsMapped(menuPtr->tkwin)) {
+	    Tk_MapWindow(menuPtr->tkwin);
+	}
+	XRaiseWindow(menuPtr->display, Tk_WindowId(menuPtr->tkwin));
+    } else if ((c == 'p') && (strncmp(argv[1], "postcascade", length) == 0)
+	    && (length > 4)) {
+	int index;
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " postcascade index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if ((index < 0) || (menuPtr->entries[index]->type != CASCADE_ENTRY)) {
+	    result = PostSubmenu(interp, menuPtr, (MenuEntry *) NULL);
+	} else {
+	    result = PostSubmenu(interp, menuPtr, menuPtr->entries[index]);
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "type", length) == 0)) {
+	int index;
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " type index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+	    goto done;
+	}
+	mePtr = menuPtr->entries[index];
+	switch (mePtr->type) {
+#ifdef STk_CODE
+	    case COMMAND_ENTRY:
+		interp->result = "\"command\"";
+		break;
+	    case SEPARATOR_ENTRY:
+		interp->result = "\"separator\"";
+		break;
+	    case CHECK_BUTTON_ENTRY:
+		interp->result = "\"checkbutton\"";
+		break;
+	    case RADIO_BUTTON_ENTRY:
+		interp->result = "\"radiobutton\"";
+		break;
+	    case CASCADE_ENTRY:
+		interp->result = "\"cascade\"";
+		break;
+	    case TEAROFF_ENTRY:
+		interp->result = "\"tearoff\"";
+		break;
+#else
+	    case COMMAND_ENTRY:
+		interp->result = "command";
+		break;
+	    case SEPARATOR_ENTRY:
+		interp->result = "separator";
+		break;
+	    case CHECK_BUTTON_ENTRY:
+		interp->result = "checkbutton";
+		break;
+	    case RADIO_BUTTON_ENTRY:
+		interp->result = "radiobutton";
+		break;
+	    case CASCADE_ENTRY:
+		interp->result = "cascade";
+		break;
+	    case TEAROFF_ENTRY:
+		interp->result = "tearoff";
+		break;
+#endif
+	}
+    } else if ((c == 'u') && (strncmp(argv[1], "unpost", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " unpost\"", (char *) NULL);
+	    goto error;
+	}
+	Tk_UnmapWindow(menuPtr->tkwin);
+	if (result == TCL_OK) {
+	    result = PostSubmenu(interp, menuPtr, (MenuEntry *) NULL);
+	}
+    } else if ((c == 'y') && (strncmp(argv[1], "yposition", length) == 0)) {
+	int index;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " yposition index\"", (char *) NULL);
+	    goto error;
+	}
+	if (GetMenuIndex(interp, menuPtr, argv[2], 0, &index) != TCL_OK) {
+	    goto error;
+	}
+	if (index < 0) {
+	    interp->result = "0";
+	} else {
+	    sprintf(interp->result, "%d", menuPtr->entries[index]->y);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be activate, add, cget, configure, delete, ",
+		"entrycget, entryconfigure, index, insert, invoke, ",
+		"post, postcascade, type, unpost, or yposition",
+		(char *) NULL);
+	goto error;
+    }
+    done:
+    Tcl_Release((ClientData) menuPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) menuPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyMenu --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a menu at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the menu is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyMenu(memPtr)
+    char *memPtr;	/* Info about menu widget. */
+{
+    register Menu *menuPtr = (Menu *) memPtr;
+    int i;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    for (i = 0; i < menuPtr->numEntries; i++) {
+	DestroyMenuEntry((char *) menuPtr->entries[i]);
+    }
+    if (menuPtr->entries != NULL) {
+	ckfree((char *) menuPtr->entries);
+    }
+    if (menuPtr->textGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->textGC);
+    }
+    if (menuPtr->gray != None) {
+	Tk_FreeBitmap(menuPtr->display, menuPtr->gray);
+    }
+    if (menuPtr->disabledGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->disabledGC);
+    }
+    if (menuPtr->activeGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->activeGC);
+    }
+    if (menuPtr->indicatorGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->indicatorGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) menuPtr, menuPtr->display, 0);
+    ckfree((char *) menuPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyMenuEntry --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a menu entry at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the menu entry is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyMenuEntry(memPtr)
+    char *memPtr;		/* Pointer to entry to be freed. */
+{
+    register MenuEntry *mePtr = (MenuEntry *) memPtr;
+    Menu *menuPtr = mePtr->menuPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (menuPtr->postedCascade == mePtr) {
+	/*
+	 * Ignore errors while unposting the menu, since it's possible
+	 * that the menu has already been deleted and the unpost will
+	 * generate an error.
+	 */
+
+	PostSubmenu(menuPtr->interp, menuPtr, (MenuEntry *) NULL);
+    }
+    if (mePtr->image != NULL) {
+	Tk_FreeImage(mePtr->image);
+    }
+    if (mePtr->textGC != None) {
+	Tk_FreeGC(menuPtr->display, mePtr->textGC);
+    }
+    if (mePtr->activeGC != None) {
+	Tk_FreeGC(menuPtr->display, mePtr->activeGC);
+    }
+    if (mePtr->disabledGC != None) {
+	Tk_FreeGC(menuPtr->display, mePtr->disabledGC);
+    }
+    if (mePtr->indicatorGC != None) {
+	Tk_FreeGC(menuPtr->display, mePtr->indicatorGC);
+    }
+    if (mePtr->name != NULL) {
+	Tcl_UntraceVar(menuPtr->interp, mePtr->name,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuVarProc, (ClientData) mePtr);
+    }
+    Tk_FreeOptions(entryConfigSpecs, (char *) mePtr, menuPtr->display, 
+	    (COMMAND_MASK << mePtr->type));
+    ckfree((char *) mePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureMenu --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a menu widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, font, etc. get set
+ *	for menuPtr;  old resources get freed, if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureMenu(interp, menuPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Menu *menuPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    int i;
+    XSetWindowAttributes atts;
+
+    if (Tk_ConfigureWidget(interp, menuPtr->tkwin, configSpecs,
+	    argc, argv, (char *) menuPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as setting the
+     * background from a 3-D border, or filling in complicated
+     * defaults that couldn't be specified to Tk_ConfigureWidget.
+     */
+
+    Tk_SetBackgroundFromBorder(menuPtr->tkwin, menuPtr->border);
+
+    gcValues.font = menuPtr->fontPtr->fid;
+    gcValues.foreground = menuPtr->fg->pixel;
+    gcValues.background = Tk_3DBorderColor(menuPtr->border)->pixel;
+    newGC = Tk_GetGC(menuPtr->tkwin, GCForeground|GCBackground|GCFont,
+	    &gcValues);
+    if (menuPtr->textGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->textGC);
+    }
+    menuPtr->textGC = newGC;
+
+    if (menuPtr->disabledFg != NULL) {
+	gcValues.foreground = menuPtr->disabledFg->pixel;
+	mask = GCForeground|GCBackground|GCFont;
+    } else {
+	gcValues.foreground = gcValues.background;
+	if (menuPtr->gray == None) {
+	    menuPtr->gray = Tk_GetBitmap(interp, menuPtr->tkwin,
+		    Tk_GetUid("gray50"));
+	    if (menuPtr->gray == None) {
+		return TCL_ERROR;
+	    }
+	}
+	gcValues.fill_style = FillStippled;
+	gcValues.stipple = menuPtr->gray;
+	mask = GCForeground|GCFillStyle|GCStipple;
+    }
+    newGC = Tk_GetGC(menuPtr->tkwin, mask, &gcValues);
+    if (menuPtr->disabledGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->disabledGC);
+    }
+    menuPtr->disabledGC = newGC;
+
+    gcValues.font = menuPtr->fontPtr->fid;
+    gcValues.foreground = menuPtr->activeFg->pixel;
+    gcValues.background = Tk_3DBorderColor(menuPtr->activeBorder)->pixel;
+    newGC = Tk_GetGC(menuPtr->tkwin, GCForeground|GCBackground|GCFont,
+	    &gcValues);
+    if (menuPtr->activeGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->activeGC);
+    }
+    menuPtr->activeGC = newGC;
+
+    gcValues.foreground = menuPtr->indicatorFg->pixel;
+    newGC = Tk_GetGC(menuPtr->tkwin, GCForeground|GCFont, &gcValues);
+    if (menuPtr->indicatorGC != None) {
+	Tk_FreeGC(menuPtr->display, menuPtr->indicatorGC);
+    }
+    menuPtr->indicatorGC = newGC;
+
+    if (menuPtr->transient) {
+	atts.override_redirect = True;
+	atts.save_under = True;
+    } else {
+	atts.override_redirect = False;
+	atts.save_under = False;
+    }
+    if ((atts.override_redirect
+	    != Tk_Attributes(menuPtr->tkwin)->override_redirect)
+	    || (atts.save_under
+	    != Tk_Attributes(menuPtr->tkwin)->save_under)) {
+	Tk_ChangeWindowAttributes(menuPtr->tkwin,
+		CWOverrideRedirect|CWSaveUnder, &atts);
+    }
+
+    /*
+     * After reconfiguring a menu, we need to reconfigure all of the
+     * entries in the menu, since some of the things in the children
+     * (such as graphics contexts) may have to change to reflect changes
+     * in the parent.
+     */
+
+    for (i = 0; i < menuPtr->numEntries; i++) {
+	MenuEntry *mePtr;
+
+	mePtr = menuPtr->entries[i];
+	ConfigureMenuEntry(interp, menuPtr, mePtr, i, 0, (char **) NULL,
+		TK_CONFIG_ARGV_ONLY | COMMAND_MASK << mePtr->type);
+    }
+
+    /*
+     * Depending on the -tearOff option, make sure that there is or
+     * isn't an initial tear-off entry at the beginning of the menu.
+     */
+
+    if (menuPtr->tearOff) {
+	if ((menuPtr->numEntries == 0)
+		|| (menuPtr->entries[0]->type != TEAROFF_ENTRY)) {
+	    MenuNewEntry(menuPtr, 0, TEAROFF_ENTRY);
+	}
+    } else if ((menuPtr->numEntries > 0)
+	    && (menuPtr->entries[0]->type == TEAROFF_ENTRY)) {
+	Tcl_EventuallyFree((ClientData) menuPtr->entries[0],
+			  DestroyMenuEntry);
+	for (i = 1; i < menuPtr->numEntries;  i++) {
+	    menuPtr->entries[i-1] = menuPtr->entries[i];
+	}
+	menuPtr->numEntries--;
+    }
+
+    if (!(menuPtr->flags & RESIZE_PENDING)) {
+	menuPtr->flags |= RESIZE_PENDING;
+	Tcl_DoWhenIdle(ComputeMenuGeometry, (ClientData) menuPtr);
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureMenuEntry --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) one entry in a menu.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information such as label and accelerator get
+ *	set for mePtr;  old resources get freed, if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureMenuEntry(interp, menuPtr, mePtr, index, argc, argv, flags)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Menu *menuPtr;			/* Information about whole menu. */
+    register MenuEntry *mePtr;		/* Information about menu entry;  may
+					 * or may not already have values for
+					 * some fields. */
+    int index;				/* Index of mePtr within menuPtr's
+					 * entries. */
+    int argc;				/* Number of valid entries in argv. */
+    char **argv;			/* Arguments. */
+    int flags;				/* Additional flags to pass to
+					 * Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC, newActiveGC, newDisabledGC;
+    unsigned long mask;
+    Tk_Image image;
+
+    /*
+     * If this entry is a cascade and the cascade is posted, then unpost
+     * it before reconfiguring the entry (otherwise the reconfigure might
+     * change the name of the cascaded entry, leaving a posted menu
+     * high and dry).
+     */
+
+    if (menuPtr->postedCascade == mePtr) {
+	if (PostSubmenu(menuPtr->interp, menuPtr, (MenuEntry *) NULL)
+		!= TCL_OK) {
+	    Tcl_BackgroundError(menuPtr->interp);
+	}
+    }
+
+    /*
+     * If this entry is a check button or radio button, then remove
+     * its old trace procedure.
+     */
+
+    if ((mePtr->name != NULL) &&
+	    ((mePtr->type == CHECK_BUTTON_ENTRY)
+	    || (mePtr->type == RADIO_BUTTON_ENTRY))) {
+	Tcl_UntraceVar(menuPtr->interp, mePtr->name,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuVarProc, (ClientData) mePtr);
+    }
+
+#ifdef STk_CODE
+    if (Tk_Menu_ConfigureWidget(interp, &menuPtr->entries[index], menuPtr->tkwin, 
+				entryConfigSpecs,
+#else
+    if (Tk_ConfigureWidget(interp, menuPtr->tkwin, entryConfigSpecs,
+#endif
+	    argc, argv, (char *) mePtr,
+	    flags | (COMMAND_MASK << mePtr->type)) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * The code below handles special configuration stuff not taken
+     * care of by Tk_ConfigureWidget, such as special processing for
+     * defaults, sizing strings, graphics contexts, etc.
+     */
+
+    if (mePtr->label == NULL) {
+	mePtr->labelLength = 0;
+    } else {
+	mePtr->labelLength = strlen(mePtr->label);
+    }
+    if (mePtr->accel == NULL) {
+	mePtr->accelLength = 0;
+    } else {
+	mePtr->accelLength = strlen(mePtr->accel);
+    }
+
+    if (mePtr->state == tkActiveUid) {
+	if (index != menuPtr->active) {
+	    ActivateMenuEntry(menuPtr, index);
+	}
+    } else {
+	if (index == menuPtr->active) {
+	    ActivateMenuEntry(menuPtr, -1);
+	}
+	if ((mePtr->state != tkNormalUid) && (mePtr->state != tkDisabledUid)) {
+	    Tcl_AppendResult(interp, "bad state value \"", mePtr->state,
+		    "\": must be normal, active, or disabled", (char *) NULL);
+	    mePtr->state = tkNormalUid;
+	    return TCL_ERROR;
+	}
+    }
+
+    if ((mePtr->fontPtr != NULL) || (mePtr->border != NULL)
+	    || (mePtr->fg != NULL) || (mePtr->activeBorder != NULL)
+	    || (mePtr->activeFg != NULL)) {
+	gcValues.foreground = (mePtr->fg != NULL) ? mePtr->fg->pixel
+		: menuPtr->fg->pixel;
+	gcValues.background = Tk_3DBorderColor(
+		(mePtr->border != NULL) ? mePtr->border : menuPtr->border)
+		->pixel;
+	gcValues.font = (mePtr->fontPtr != NULL) ? mePtr->fontPtr->fid
+		: menuPtr->fontPtr->fid;
+
+	/*
+	 * Note: disable GraphicsExpose events;  we know there won't be
+	 * obscured areas when copying from an off-screen pixmap to the
+	 * screen and this gets rid of unnecessary events.
+	 */
+
+	gcValues.graphics_exposures = False;
+	newGC = Tk_GetGC(menuPtr->tkwin,
+		GCForeground|GCBackground|GCFont|GCGraphicsExposures,
+		&gcValues);
+
+	if (menuPtr->disabledFg != NULL) {
+	    gcValues.foreground = menuPtr->disabledFg->pixel;
+	    mask = GCForeground|GCBackground|GCFont|GCGraphicsExposures;
+	} else {
+	    gcValues.foreground = gcValues.background;
+	    gcValues.fill_style = FillStippled;
+	    gcValues.stipple = menuPtr->gray;
+	    mask = GCForeground|GCFillStyle|GCStipple;
+	}
+	newDisabledGC = Tk_GetGC(menuPtr->tkwin, mask, &gcValues);
+
+	gcValues.foreground = (mePtr->activeFg != NULL)
+		? mePtr->activeFg->pixel : menuPtr->activeFg->pixel;
+	gcValues.background = Tk_3DBorderColor(
+		(mePtr->activeBorder != NULL) ? mePtr->activeBorder
+		: menuPtr->activeBorder)->pixel;
+	newActiveGC = Tk_GetGC(menuPtr->tkwin,
+		GCForeground|GCBackground|GCFont|GCGraphicsExposures,
+		&gcValues);
+    } else {
+	newGC = None;
+	newActiveGC = None;
+	newDisabledGC = None;
+    }
+    if (mePtr->textGC != None) {
+	    Tk_FreeGC(menuPtr->display, mePtr->textGC);
+    }
+    mePtr->textGC = newGC;
+    if (mePtr->activeGC != None) {
+	    Tk_FreeGC(menuPtr->display, mePtr->activeGC);
+    }
+    mePtr->activeGC = newActiveGC;
+    if (mePtr->disabledGC != None) {
+	    Tk_FreeGC(menuPtr->display, mePtr->disabledGC);
+    }
+    mePtr->disabledGC = newDisabledGC;
+    if (mePtr->indicatorFg != NULL) {
+	gcValues.foreground = mePtr->indicatorFg->pixel;
+	newGC = Tk_GetGC(menuPtr->tkwin, GCForeground, &gcValues);
+    } else {
+	newGC = None;
+    }
+    if (mePtr->indicatorGC != None) {
+	Tk_FreeGC(menuPtr->display, mePtr->indicatorGC);
+    }
+    mePtr->indicatorGC = newGC;
+
+    if ((mePtr->type == CHECK_BUTTON_ENTRY)
+	    || (mePtr->type == RADIO_BUTTON_ENTRY)) {
+	char *value;
+
+	if (mePtr->name == NULL) {
+	    mePtr->name = (char *) ckalloc((unsigned) (mePtr->labelLength + 1));
+	    strcpy(mePtr->name, (mePtr->label == NULL) ? "" : mePtr->label);
+	}
+	if (mePtr->onValue == NULL) {
+	    mePtr->onValue = (char *) ckalloc((unsigned)
+		    (mePtr->labelLength + 1));
+	    strcpy(mePtr->onValue, (mePtr->label == NULL) ? "" : mePtr->label);
+	}
+
+	/*
+	 * Select the entry if the associated variable has the
+	 * appropriate value, initialize the variable if it doesn't
+	 * exist, then set a trace on the variable to monitor future
+	 * changes to its value.
+	 */
+
+	value = Tcl_GetVar(interp, mePtr->name, TCL_GLOBAL_ONLY);
+	mePtr->flags &= ~ENTRY_SELECTED;
+	if (value != NULL) {
+	    if (strcmp(value, mePtr->onValue) == 0) {
+		mePtr->flags |= ENTRY_SELECTED;
+	    }
+	} else {
+	    Tcl_SetVar(interp, mePtr->name,
+#ifdef STk_CODE
+		    (mePtr->type == CHECK_BUTTON_ENTRY) ? mePtr->offValue : "#f",
+#else
+		    (mePtr->type == CHECK_BUTTON_ENTRY) ? mePtr->offValue : "",
+#endif
+		    TCL_GLOBAL_ONLY);
+	}
+	Tcl_TraceVar(interp, mePtr->name,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuVarProc, (ClientData) mePtr);
+    }
+
+    /*
+     * Get the images for the entry, if there are any.  Allocate the
+     * new images before freeing the old ones, so that the reference
+     * counts don't go to zero and cause image data to be discarded.
+     */
+
+    if (mePtr->imageString != NULL) {
+	image = Tk_GetImage(interp, menuPtr->tkwin, mePtr->imageString,
+		MenuImageProc, (ClientData) mePtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (mePtr->image != NULL) {
+	Tk_FreeImage(mePtr->image);
+    }
+    mePtr->image = image;
+    if (mePtr->selectImageString != NULL) {
+	image = Tk_GetImage(interp, menuPtr->tkwin, mePtr->selectImageString,
+		MenuSelectImageProc, (ClientData) mePtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (mePtr->selectImage != NULL) {
+	Tk_FreeImage(mePtr->selectImage);
+    }
+    mePtr->selectImage = image;
+
+    if (!(menuPtr->flags & RESIZE_PENDING)) {
+	menuPtr->flags |= RESIZE_PENDING;
+	Tcl_DoWhenIdle(ComputeMenuGeometry, (ClientData) menuPtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeMenuGeometry --
+ *
+ *	This procedure is invoked to recompute the size and
+ *	layout of a menu.  It is called as a when-idle handler so
+ *	that it only gets done once, even if a group of changes is
+ *	made to the menu.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Fields of menu entries are changed to reflect their
+ *	current positions, and the size of the menu window
+ *	itself may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeMenuGeometry(clientData)
+    ClientData clientData;		/* Structure describing menu. */
+{
+    Menu *menuPtr = (Menu *) clientData;
+    register MenuEntry *mePtr;
+    XFontStruct *fontPtr;
+    int maxLabelWidth, maxIndicatorWidth, maxAccelWidth;
+    int width, height, indicatorSpace;
+    int i, y;
+    int imageWidth, imageHeight;
+
+    if (menuPtr->tkwin == NULL) {
+	return;
+    }
+
+    maxLabelWidth = maxIndicatorWidth = maxAccelWidth = 0;
+    y = menuPtr->borderWidth;
+
+    for (i = 0; i < menuPtr->numEntries; i++) {
+	mePtr = menuPtr->entries[i];
+	indicatorSpace = 0;
+	fontPtr = mePtr->fontPtr;
+	if (fontPtr == NULL) {
+	    fontPtr = menuPtr->fontPtr;
+	}
+
+	/*
+	 * For each entry, compute the height required by that
+	 * particular entry, plus three widths:  the width of the
+	 * label, the width to allow for an indicator to be displayed
+	 * to the left of the label (if any), and the width of the
+	 * accelerator to be displayed to the right of the label
+	 * (if any).  These sizes depend, of course, on the type
+	 * of the entry.
+	 */
+
+	if (mePtr->image != NULL) {
+	    Tk_SizeOfImage(mePtr->image, &imageWidth, &imageHeight);
+
+	    imageOrBitmap:
+	    mePtr->height = imageHeight;
+	    width = imageWidth;
+	    if (mePtr->indicatorOn) {
+		if (mePtr->type == CHECK_BUTTON_ENTRY) {
+		    indicatorSpace = (14*mePtr->height)/10;
+		    mePtr->indicatorDiameter = (65*mePtr->height)/100;
+		} else if (mePtr->type == RADIO_BUTTON_ENTRY) {
+		    indicatorSpace = (14*mePtr->height)/10;
+		    mePtr->indicatorDiameter = (75*mePtr->height)/100;
+		}
+	    }
+	} else if (mePtr->bitmap != None) {
+	    Tk_SizeOfBitmap(menuPtr->display, mePtr->bitmap,
+		    &imageWidth, &imageHeight);
+	    goto imageOrBitmap;
+	} else {
+	    mePtr->height = fontPtr->ascent + fontPtr->descent;
+	    if (mePtr->label != NULL) {
+		(void) TkMeasureChars(fontPtr, mePtr->label,
+			mePtr->labelLength, 0, (int) 100000, 0,
+			TK_NEWLINES_NOT_SPECIAL, &width);
+	    } else {
+		width = 0;
+	    }
+	    if (mePtr->indicatorOn) {
+		if (mePtr->type == CHECK_BUTTON_ENTRY) {
+		    indicatorSpace = mePtr->height;
+		    mePtr->indicatorDiameter = (80*mePtr->height)/100;
+		} else if (mePtr->type == RADIO_BUTTON_ENTRY) {
+		    indicatorSpace = mePtr->height;
+		    mePtr->indicatorDiameter = mePtr->height;
+		}
+	    }
+	}
+	mePtr->height += 2*menuPtr->activeBorderWidth + 2;
+	if (width > maxLabelWidth) {
+	    maxLabelWidth = width;
+	}
+	if (mePtr->type == CASCADE_ENTRY) {
+	    width = 2*CASCADE_ARROW_WIDTH;
+	} else if (mePtr->accel != NULL) {
+	    (void) TkMeasureChars(fontPtr, mePtr->accel, mePtr->accelLength,
+		    0, (int) 100000, 0, TK_NEWLINES_NOT_SPECIAL, &width);
+	} else {
+	    width = 0;
+	}
+	if (width > maxAccelWidth) {
+	    maxAccelWidth = width;
+	}
+	if (mePtr->type == SEPARATOR_ENTRY) {
+	    mePtr->height = 8;
+	}
+	if (mePtr->type == TEAROFF_ENTRY) {
+	    mePtr->height = 12;
+	}
+	if (indicatorSpace > maxIndicatorWidth) {
+	    maxIndicatorWidth = indicatorSpace;
+	}
+	mePtr->y = y;
+	y += mePtr->height;
+    }
+
+    /*
+     * Got all the sizes.  Update fields in the menu structure, then
+     * resize the window if necessary.  Leave margins on either side
+     * of the indicator (or just one margin if there is no indicator).
+     * Leave another margin on the right side of the label, plus yet
+     * another margin to the right of the accelerator (if there is one).
+     */
+
+    menuPtr->indicatorSpace = maxIndicatorWidth + MARGIN_WIDTH;
+    if (maxIndicatorWidth != 0) {
+	menuPtr->indicatorSpace += MARGIN_WIDTH;
+    }
+    menuPtr->labelWidth = maxLabelWidth + MARGIN_WIDTH;
+    width = menuPtr->indicatorSpace + menuPtr->labelWidth + maxAccelWidth
+	    + 2*menuPtr->borderWidth + 2*menuPtr->activeBorderWidth;
+    if (maxAccelWidth != 0) {
+	width += MARGIN_WIDTH;
+    }
+    height = y + menuPtr->borderWidth;
+
+    /*
+     * The X server doesn't like zero dimensions, so round up to at least
+     * 1 (a zero-sized menu should never really occur, anyway).
+     */
+
+    if (width <= 0) {
+	width = 1;
+    }
+    if (height <= 0) {
+	height = 1;
+    }
+    if ((width != Tk_ReqWidth(menuPtr->tkwin)) ||
+	    (height != Tk_ReqHeight(menuPtr->tkwin))) {
+	Tk_GeometryRequest(menuPtr->tkwin, width, height);
+    } else {
+	/*
+	 * Must always force a redisplay here if the window is mapped
+	 * (even if the size didn't change, something else might have
+	 * changed in the menu, such as a label or accelerator).  The
+	 * resize will force a redisplay above.
+	 */
+
+	EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+    }
+
+    menuPtr->flags &= ~RESIZE_PENDING;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayMenu --
+ *
+ *	This procedure is invoked to display a menu widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Commands are output to X to display the menu in its
+ *	current mode.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayMenu(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    register Menu *menuPtr = (Menu *) clientData;
+    register MenuEntry *mePtr;
+    register Tk_Window tkwin = menuPtr->tkwin;
+    Tk_3DBorder bgBorder, activeBorder;
+    XFontStruct *fontPtr;
+    int index, baseline, strictMotif, leftEdge, y,  height;
+    GC gc;
+    XPoint points[3];
+
+    menuPtr->flags &= ~REDRAW_PENDING;
+    if ((menuPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    /*
+     * Loop through all of the entries, drawing them one at a time.
+     */
+
+    strictMotif = Tk_StrictMotif(menuPtr->tkwin);
+    leftEdge = menuPtr->borderWidth + menuPtr->indicatorSpace
+	    + menuPtr->activeBorderWidth;
+    for (index = 0; index < menuPtr->numEntries; index++) {
+	mePtr = menuPtr->entries[index];
+	if (!(mePtr->flags & ENTRY_NEEDS_REDISPLAY)) {
+	    continue;
+	}
+	mePtr->flags &= ~ENTRY_NEEDS_REDISPLAY;
+
+	/*
+	 * Background.
+	 */
+
+	bgBorder = mePtr->border;
+	if (bgBorder == NULL) {
+	    bgBorder = menuPtr->border;
+	}
+	if (strictMotif) {
+	    activeBorder = bgBorder;
+	} else {
+	    activeBorder = mePtr->activeBorder;
+	    if (activeBorder == NULL) {
+		activeBorder = menuPtr->activeBorder;
+	    }
+	}
+	if (mePtr->state == tkActiveUid) {
+	    bgBorder = activeBorder;
+	    Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
+		    bgBorder, menuPtr->borderWidth, mePtr->y,
+		    Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
+		    menuPtr->activeBorderWidth, TK_RELIEF_RAISED);
+	} else {
+	    Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
+		    bgBorder, menuPtr->borderWidth, mePtr->y,
+		    Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
+		    0, TK_RELIEF_FLAT);
+	}
+
+	/*
+	 * Choose the gc for drawing the foreground part of the entry.
+	 */
+
+	if ((mePtr->state == tkActiveUid) && !strictMotif) {
+	    gc = mePtr->activeGC;
+	    if (gc == NULL) {
+		gc = menuPtr->activeGC;
+	    }
+	} else {
+	    if ((mePtr->state == tkDisabledUid)
+		    && (menuPtr->disabledFg != NULL)) {
+		gc = mePtr->disabledGC;
+		if (gc == NULL) {
+		    gc = menuPtr->disabledGC;
+		}
+	    } else {
+		gc = mePtr->textGC;
+		if (gc == NULL) {
+		    gc = menuPtr->textGC;
+		}
+	    }
+	}
+
+	/*
+	 * Draw label or bitmap or image for entry.
+	 */
+
+	fontPtr = mePtr->fontPtr;
+	if (fontPtr == NULL) {
+	    fontPtr = menuPtr->fontPtr;
+	}
+	baseline = mePtr->y + (mePtr->height + fontPtr->ascent
+		- fontPtr->descent)/2;
+	if (mePtr->image != NULL) {
+	    int width, height;
+
+	    Tk_SizeOfImage(mePtr->image, &width, &height);
+	    if ((mePtr->selectImage != NULL)
+		    && (mePtr->flags & ENTRY_SELECTED)) {
+		Tk_RedrawImage(mePtr->selectImage, 0, 0, width, height,
+		    Tk_WindowId(tkwin), leftEdge,
+		    (int) (mePtr->y + (mePtr->height - height)/2));
+	    } else {
+		Tk_RedrawImage(mePtr->image, 0, 0, width, height,
+			Tk_WindowId(tkwin), leftEdge,
+			(int) (mePtr->y + (mePtr->height - height)/2));
+	    }
+	} else if (mePtr->bitmap != None) {
+	    int width, height;
+
+	    Tk_SizeOfBitmap(menuPtr->display, mePtr->bitmap, &width, &height);
+	    XCopyPlane(menuPtr->display, mePtr->bitmap, Tk_WindowId(tkwin),
+		    gc, 0, 0, (unsigned) width, (unsigned) height, leftEdge,
+		    (int) (mePtr->y + (mePtr->height - height)/2), 1);
+	} else {
+	    baseline = mePtr->y + (mePtr->height + fontPtr->ascent
+		    - fontPtr->descent)/2;
+	    if (mePtr->label != NULL) {
+		TkDisplayChars(menuPtr->display, Tk_WindowId(tkwin), gc,
+			fontPtr, mePtr->label, mePtr->labelLength,
+			leftEdge, baseline, leftEdge,
+			TK_NEWLINES_NOT_SPECIAL);
+		if (mePtr->underline >= 0) {
+		    TkUnderlineChars(menuPtr->display, Tk_WindowId(tkwin), gc,
+			    fontPtr, mePtr->label, leftEdge, baseline,
+			    leftEdge, TK_NEWLINES_NOT_SPECIAL,
+			    mePtr->underline, mePtr->underline);
+		}
+	    }
+	}
+
+	/*
+	 * Draw accelerator or cascade arrow.
+	 */
+
+	if (mePtr->type == CASCADE_ENTRY) {
+	    points[0].x = Tk_Width(tkwin) - menuPtr->borderWidth
+		    - menuPtr->activeBorderWidth - MARGIN_WIDTH
+		    - CASCADE_ARROW_WIDTH;
+	    points[0].y = mePtr->y + (mePtr->height - CASCADE_ARROW_HEIGHT)/2;
+	    points[1].x = points[0].x;
+	    points[1].y = points[0].y + CASCADE_ARROW_HEIGHT;
+	    points[2].x = points[0].x + CASCADE_ARROW_WIDTH;
+	    points[2].y = points[0].y + CASCADE_ARROW_HEIGHT/2;
+	    Tk_Fill3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin), activeBorder,
+		    points, 3, DECORATION_BORDER_WIDTH,
+		    (menuPtr->postedCascade == mePtr) ? TK_RELIEF_SUNKEN
+		    : TK_RELIEF_RAISED);
+	} else if (mePtr->accel != NULL) {
+	    TkDisplayChars(menuPtr->display, Tk_WindowId(tkwin), gc,
+		    fontPtr, mePtr->accel, mePtr->accelLength,
+		    leftEdge + menuPtr->labelWidth, baseline,
+		    leftEdge + menuPtr->labelWidth, TK_NEWLINES_NOT_SPECIAL);
+	}
+
+	/*
+	 * Draw check-button indicator.
+	 */
+
+	gc = mePtr->indicatorGC;
+	if (gc == None) {
+	    gc = menuPtr->indicatorGC;
+	}
+	if ((mePtr->type == CHECK_BUTTON_ENTRY) && mePtr->indicatorOn) {
+	    int dim, x, y;
+
+	    dim = mePtr->indicatorDiameter;
+	    x = menuPtr->borderWidth + menuPtr->activeBorderWidth
+		    + (menuPtr->indicatorSpace - dim)/2;
+	    y = mePtr->y + (mePtr->height - dim)/2;
+	    Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
+		    menuPtr->border, x, y, dim, dim,
+		    DECORATION_BORDER_WIDTH, TK_RELIEF_SUNKEN);
+	    x += DECORATION_BORDER_WIDTH;
+	    y += DECORATION_BORDER_WIDTH;
+	    dim -= 2*DECORATION_BORDER_WIDTH;
+	    if ((dim > 0) && (mePtr->flags & ENTRY_SELECTED)) {
+		XFillRectangle(menuPtr->display, Tk_WindowId(tkwin), gc,
+			x, y, (unsigned int) dim, (unsigned int) dim);
+	    }
+	}
+
+	/*
+	 * Draw radio-button indicator.
+	 */
+
+	if ((mePtr->type == RADIO_BUTTON_ENTRY) && mePtr->indicatorOn) {
+	    XPoint points[4];
+	    int radius;
+
+	    radius = mePtr->indicatorDiameter/2;
+	    points[0].x = menuPtr->borderWidth + menuPtr->activeBorderWidth
+		    + (menuPtr->indicatorSpace - mePtr->indicatorDiameter)/2;
+	    points[0].y = mePtr->y + (mePtr->height)/2;
+	    points[1].x = points[0].x + radius;
+	    points[1].y = points[0].y + radius;
+	    points[2].x = points[1].x + radius;
+	    points[2].y = points[0].y;
+	    points[3].x = points[1].x;
+	    points[3].y = points[0].y - radius;
+	    if (mePtr->flags & ENTRY_SELECTED) {
+		XFillPolygon(menuPtr->display, Tk_WindowId(tkwin), gc,
+			points, 4, Convex, CoordModeOrigin);
+	    } else {
+		Tk_Fill3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
+			menuPtr->border, points, 4, DECORATION_BORDER_WIDTH,
+			TK_RELIEF_FLAT);
+	    }
+	    Tk_Draw3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
+		    menuPtr->border, points, 4, DECORATION_BORDER_WIDTH,
+		    TK_RELIEF_SUNKEN);
+	}
+
+	/*
+	 * Draw separator.
+	 */
+
+	if (mePtr->type == SEPARATOR_ENTRY) {
+	    XPoint points[2];
+	    int margin;
+
+	    margin = (fontPtr->ascent + fontPtr->descent)/2;
+	    points[0].x = 0;
+	    points[0].y = mePtr->y + mePtr->height/2;
+	    points[1].x = Tk_Width(tkwin) - 1;
+	    points[1].y = points[0].y;
+	    Tk_Draw3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
+		    menuPtr->border, points, 2, 1, TK_RELIEF_RAISED);
+	}
+
+	/*
+	 * Draw tear-off line.
+	 */
+
+	if (mePtr->type == TEAROFF_ENTRY) {
+	    XPoint points[2];
+	    int margin, width, maxX;
+
+	    margin = (fontPtr->ascent + fontPtr->descent)/2;
+	    points[0].x = 0;
+	    points[0].y = mePtr->y + mePtr->height/2;
+	    points[1].y = points[0].y;
+	    width = 6;
+	    maxX  = Tk_Width(tkwin) - 1;
+
+	    while (points[0].x < maxX) {
+		points[1].x = points[0].x + width;
+		if (points[1].x > maxX) {
+		    points[1].x = maxX;
+		}
+		Tk_Draw3DPolygon(menuPtr->tkwin, Tk_WindowId(tkwin),
+			menuPtr->border, points, 2, 1, TK_RELIEF_RAISED);
+		points[0].x += 2*width;
+	    }
+	}
+
+	/*
+	 * If the entry is disabled with a stipple rather than a special
+	 * foreground color, generate the stippled effect.
+	 */
+
+	if ((mePtr->state == tkDisabledUid) && (menuPtr->disabledFg == NULL)) {
+	    XFillRectangle(menuPtr->display, Tk_WindowId(tkwin),
+		    menuPtr->disabledGC, menuPtr->borderWidth,
+		    mePtr->y,
+		    (unsigned) (Tk_Width(tkwin) - 2*menuPtr->borderWidth),
+		    (unsigned) mePtr->height);
+	}
+    }
+
+    /*
+     * If there is extra space after the last entry in the menu,
+     * clear it.
+     */
+
+    if (menuPtr->numEntries >= 1) {
+	mePtr = menuPtr->entries[menuPtr->numEntries-1];
+	y = mePtr->y + mePtr->height;
+    } else {
+	y = menuPtr->borderWidth;
+    }
+    height = Tk_Height(tkwin) - menuPtr->borderWidth - y;
+    if (height > 0) {
+	Tk_Fill3DRectangle(tkwin, Tk_WindowId(tkwin),
+		menuPtr->border, menuPtr->borderWidth, y, 
+		Tk_Width(tkwin) - 2*menuPtr->borderWidth,
+		height, 0, TK_RELIEF_FLAT);
+    }
+
+    Tk_Draw3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
+	    menuPtr->border, 0, 0, Tk_Width(tkwin), Tk_Height(tkwin),
+	    menuPtr->borderWidth, menuPtr->relief);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetMenuIndex --
+ *
+ *	Parse a textual index into a menu and return the numerical
+ *	index of the indicated entry.
+ *
+ * Results:
+ *	A standard Tcl result.  If all went well, then *indexPtr is
+ *	filled in with the entry index corresponding to string
+ *	(ranges from -1 to the number of entries in the menu minus
+ *	one).  Otherwise an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetMenuIndex(interp, menuPtr, string, lastOK, indexPtr)
+    Tcl_Interp *interp;		/* For error messages. */
+    Menu *menuPtr;		/* Menu for which the index is being
+				 * specified. */
+    char *string;		/* Specification of an entry in menu.  See
+				 * manual entry for valid .*/
+    int lastOK;			/* Non-zero means its OK to return index
+				 * just *after* last entry. */
+    int *indexPtr;		/* Where to store converted relief. */
+{
+    int i, y;
+
+    if ((string[0] == 'a') && (strcmp(string, "active") == 0)) {
+	*indexPtr = menuPtr->active;
+	return TCL_OK;
+    }
+
+    if (((string[0] == 'l') && (strcmp(string, "last") == 0))
+	    || ((string[0] == 'e') && (strcmp(string, "end") == 0))) {
+	*indexPtr = menuPtr->numEntries - ((lastOK) ? 0 : 1);
+	return TCL_OK;
+    }
+
+    if ((string[0] == 'n') && (strcmp(string, "none") == 0)) {
+	*indexPtr = -1;
+	return TCL_OK;
+    }
+
+    if (string[0] == '@') {
+	if (Tcl_GetInt(interp, string+1,  &y) == TCL_OK) {
+	    for (i = 0; i < menuPtr->numEntries; i++) {
+		MenuEntry *mePtr = menuPtr->entries[i];
+
+		if (y < (mePtr->y + mePtr->height)) {
+		    break;
+		}
+	    }
+	    if (i >= menuPtr->numEntries) {
+		i = menuPtr->numEntries-1;
+	    }
+	    *indexPtr = i;
+	    return TCL_OK;
+	} else {
+	    Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+	}
+    }
+
+    if (isdigit(UCHAR(string[0]))) {
+	if (Tcl_GetInt(interp, string,  &i) == TCL_OK) {
+	    if (i >= menuPtr->numEntries) {
+		if (lastOK) {
+		    i = menuPtr->numEntries;
+		} else {
+		    i = menuPtr->numEntries-1;
+		}
+	    } else if (i < 0) {
+		i = -1;
+	    }
+	    *indexPtr = i;
+	    return TCL_OK;
+	}
+	Tcl_SetResult(interp, (char *) NULL, TCL_STATIC);
+    }
+
+    for (i = 0; i < menuPtr->numEntries; i++) {
+	char *label;
+
+	label = menuPtr->entries[i]->label;
+	if ((label != NULL)
+		&& (Tcl_StringMatch(menuPtr->entries[i]->label, string))) {
+	    *indexPtr = i;
+	    return TCL_OK;
+	}
+    }
+
+    Tcl_AppendResult(interp, "bad menu entry index \"",
+	    string, "\"", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on menus.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+MenuEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Menu *menuPtr = (Menu *) clientData;
+    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
+	EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+    } else if (eventPtr->type == ConfigureNotify) {
+	EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+    } else if (eventPtr->type == DestroyNotify) {
+	if (menuPtr->tkwin != NULL) {
+	    menuPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(menuPtr->interp,
+		    Tcl_GetCommandName(menuPtr->interp, menuPtr->widgetCmd));
+	}
+	if (menuPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayMenu, (ClientData) menuPtr);
+	}
+	if (menuPtr->flags & RESIZE_PENDING) {
+	    Tcl_CancelIdleCall(ComputeMenuGeometry, (ClientData) menuPtr);
+	}
+	Tcl_EventuallyFree((ClientData) menuPtr, DestroyMenu);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MenuCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Menu *menuPtr = (Menu *) clientData;
+    Tk_Window tkwin = menuPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	menuPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuNewEntry --
+ *
+ *	This procedure allocates and initializes a new menu entry.
+ *
+ * Results:
+ *	The return value is a pointer to a new menu entry structure,
+ *	which has been malloc-ed, initialized, and entered into the
+ *	entry array for the  menu.
+ *
+ * Side effects:
+ *	Storage gets allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static MenuEntry *
+MenuNewEntry(menuPtr, index, type)
+    Menu *menuPtr;		/* Menu that will hold the new entry. */
+    int index;			/* Where in the menu the new entry is to
+				 * go. */
+    int type;			/* The type of the new entry. */
+{
+    MenuEntry *mePtr;
+    MenuEntry **newEntries;
+    int i;
+
+    /*
+     * Create a new array of entries with an empty slot for the
+     * new entry.
+     */
+
+    newEntries = (MenuEntry **) ckalloc((unsigned)
+	    ((menuPtr->numEntries+1)*sizeof(MenuEntry *)));
+    for (i = 0; i < index; i++) {
+	newEntries[i] = menuPtr->entries[i];
+    }
+    for (  ; i < menuPtr->numEntries; i++) {
+	newEntries[i+1] = menuPtr->entries[i];
+    }
+    if (menuPtr->numEntries != 0) {
+	ckfree((char *) menuPtr->entries);
+    }
+    menuPtr->entries = newEntries;
+    menuPtr->numEntries++;
+    menuPtr->entries[index] = mePtr = (MenuEntry *) ckalloc(sizeof(MenuEntry));
+    mePtr->type = type;
+    mePtr->menuPtr = menuPtr;
+    mePtr->label = NULL;
+    mePtr->labelLength = 0;
+    mePtr->underline = -1;
+    mePtr->bitmap = None;
+    mePtr->imageString = NULL;
+    mePtr->image = NULL;
+    mePtr->selectImageString  = NULL;
+    mePtr->selectImage = NULL;
+    mePtr->accel = NULL;
+    mePtr->accelLength = 0;
+    mePtr->state = tkNormalUid;
+    mePtr->height = 0;
+    mePtr->y = 0;
+    mePtr->indicatorDiameter = 0;
+    mePtr->border = NULL;
+    mePtr->fg = NULL;
+    mePtr->activeBorder = NULL;
+    mePtr->activeFg = NULL;
+    mePtr->fontPtr = NULL;
+    mePtr->textGC = None;
+    mePtr->activeGC = None;
+    mePtr->disabledGC = None;
+    mePtr->indicatorOn = 1;
+    mePtr->indicatorFg = NULL;
+    mePtr->indicatorGC = None;
+    mePtr->command = NULL;
+    mePtr->name = NULL;
+    mePtr->onValue = NULL;
+    mePtr->offValue = NULL;
+    mePtr->flags = 0;
+    return mePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuAddOrInsert --
+ *
+ *	This procedure does all of the work of the "add" and "insert"
+ *	widget commands, allowing the code for these to be shared.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *	A new menu entry is created in menuPtr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+MenuAddOrInsert(interp, menuPtr, indexString, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Menu *menuPtr;			/* Widget in which to create new
+					 * entry. */
+    char *indexString;			/* String describing index at which
+					 * to insert.  NULL means insert at
+					 * end. */
+    int argc;				/* Number of elements in argv. */
+    char **argv;			/* Arguments to command:  first arg
+					 * is type of entry, others are
+					 * config options. */
+{
+    int c, type, i, index;
+    size_t length;
+    MenuEntry *mePtr;
+
+    if (indexString != NULL) {
+	if (GetMenuIndex(interp, menuPtr, indexString, 1, &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+    } else {
+	index = menuPtr->numEntries;
+    }
+    if (index < 0) {
+	Tcl_AppendResult(interp, "bad index \"", indexString, "\"",
+		 (char *) NULL);
+	return TCL_ERROR;
+    }
+    if (menuPtr->tearOff && (index == 0)) {
+	index = 1;
+    }
+
+    /*
+     * Figure out the type of the new entry.
+     */
+
+    c = argv[0][0];
+    length = strlen(argv[0]);
+    if ((c == 'c') && (strncmp(argv[0], "cascade", length) == 0)
+	    && (length >= 2)) {
+	type = CASCADE_ENTRY;
+    } else if ((c == 'c') && (strncmp(argv[0], "checkbutton", length) == 0)
+	    && (length >= 2)) {
+	type = CHECK_BUTTON_ENTRY;
+    } else if ((c == 'c') && (strncmp(argv[0], "command", length) == 0)
+	    && (length >= 2)) {
+	type = COMMAND_ENTRY;
+    } else if ((c == 'r')
+	    && (strncmp(argv[0], "radiobutton", length) == 0)) {
+	type = RADIO_BUTTON_ENTRY;
+    } else if ((c == 's')
+	    && (strncmp(argv[0], "separator", length) == 0)) {
+	type = SEPARATOR_ENTRY;
+    } else {
+	Tcl_AppendResult(interp, "bad menu entry type \"",
+		argv[0], "\": must be cascade, checkbutton, ",
+		"command, radiobutton, or separator", (char *) NULL);
+	return TCL_ERROR;
+    }
+    mePtr = MenuNewEntry(menuPtr, index, type);
+    if (ConfigureMenuEntry(interp, menuPtr, mePtr, index,
+	    argc-1, argv+1, 0) != TCL_OK) {
+	DestroyMenuEntry((ClientData) mePtr);
+	for (i = index+1; i < menuPtr->numEntries; i++) {
+	    menuPtr->entries[i-1] = menuPtr->entries[i];
+	}
+	menuPtr->numEntries--;
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuVarProc --
+ *
+ *	This procedure is invoked when someone changes the
+ *	state variable associated with a radiobutton or checkbutton
+ *	menu entry.  The entry's selected state is set to match
+ *	the value of the variable.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The menu entry may become selected or deselected.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+MenuVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about menu entry. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* First part of variable's name. */
+    char *name2;		/* Second part of variable's name. */
+    int flags;			/* Describes what just happened. */
+{
+    MenuEntry *mePtr = (MenuEntry *) clientData;
+    Menu *menuPtr;
+    char *value;
+
+    menuPtr = mePtr->menuPtr;
+
+    /*
+     * If the variable is being unset, then re-establish the
+     * trace unless the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	mePtr->flags &= ~ENTRY_SELECTED;
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_TraceVar(interp, mePtr->name,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    MenuVarProc, clientData);
+	}
+	EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+	return (char *) NULL;
+    }
+
+    /*
+     * Use the value of the variable to update the selected status of
+     * the menu entry.
+     */
+
+    value = Tcl_GetVar(interp, mePtr->name, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (strcmp(value, mePtr->onValue) == 0) {
+	if (mePtr->flags & ENTRY_SELECTED) {
+	    return (char *) NULL;
+	}
+	mePtr->flags |= ENTRY_SELECTED;
+    } else if (mePtr->flags & ENTRY_SELECTED) {
+	mePtr->flags &= ~ENTRY_SELECTED;
+    } else {
+	return (char *) NULL;
+    }
+    EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+    return (char *) NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * EventuallyRedrawMenu --
+ *
+ *	Arrange for an entry of a menu, or the whole menu, to be
+ *	redisplayed at some point in the future.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A when-idle hander is scheduled to do the redisplay, if there
+ *	isn't one already scheduled.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+EventuallyRedrawMenu(menuPtr, mePtr)
+    register Menu *menuPtr;	/* Information about menu to redraw. */
+    register MenuEntry *mePtr;	/* Entry to redraw.  NULL means redraw
+				 * all the entries in the menu. */
+{
+    int i;
+    if (menuPtr->tkwin == NULL) {
+	return;
+    }
+    if (mePtr != NULL) {
+	mePtr->flags |= ENTRY_NEEDS_REDISPLAY;
+    } else {
+	for (i = 0; i < menuPtr->numEntries; i++) {
+	    menuPtr->entries[i]->flags |= ENTRY_NEEDS_REDISPLAY;
+	}
+    }
+    if ((menuPtr->tkwin == NULL) || !Tk_IsMapped(menuPtr->tkwin)
+	    || (menuPtr->flags & REDRAW_PENDING)) {
+	return;
+    }
+    Tcl_DoWhenIdle(DisplayMenu, (ClientData) menuPtr);
+    menuPtr->flags |= REDRAW_PENDING;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PostSubmenu --
+ *
+ *	This procedure arranges for a particular submenu (i.e. the
+ *	menu corresponding to a given cascade entry) to be
+ *	posted.
+ *
+ * Results:
+ *	A standard Tcl return result.  Errors may occur in the
+ *	Tcl commands generated to post and unpost submenus.
+ *
+ * Side effects:
+ *	If there is already a submenu posted, it is unposted.
+ *	The new submenu is then posted.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+PostSubmenu(interp, menuPtr, mePtr)
+    Tcl_Interp *interp;		/* Used for invoking sub-commands and
+				 * reporting errors. */
+    register Menu *menuPtr;	/* Information about menu as a whole. */
+    register MenuEntry *mePtr;	/* Info about submenu that is to be
+				 * posted.  NULL means make sure that
+				 * no submenu is posted. */
+{
+    char string[30];
+    int result, x, y;
+    Tk_Window tkwin;
+
+    if (mePtr == menuPtr->postedCascade) {
+	return TCL_OK;
+    }
+
+    if (menuPtr->postedCascade != NULL) {
+	/*
+	 * Note: when unposting a submenu, we have to redraw the entire
+	 * parent menu.  This is because of a combination of the following
+	 * things:
+	 * (a) the submenu partially overlaps the parent.
+	 * (b) the submenu specifies "save under", which causes the X
+	 *     server to make a copy of the information under it when it
+	 *     is posted.  When the submenu is unposted, the X server
+	 *     copies this data back and doesn't generate any Expose
+	 *     events for the parent.
+	 * (c) the parent may have redisplayed itself after the submenu
+	 *     was posted, in which case the saved information is no
+	 *     longer correct.
+	 * The simplest solution is just force a complete redisplay of
+	 * the parent.
+	 */
+
+	EventuallyRedrawMenu(menuPtr, (MenuEntry *) NULL);
+	result = Tcl_VarEval(interp, menuPtr->postedCascade->name,
+#ifdef STk_CODE
+		" 'unpost", (char *) NULL);
+#else
+		" unpost", (char *) NULL);
+#endif
+	menuPtr->postedCascade = NULL;
+	if (result != TCL_OK) {
+	    return result;
+	}
+    }
+
+    if ((mePtr != NULL) && (mePtr->name != NULL)
+	    && Tk_IsMapped(menuPtr->tkwin)) {
+	/*
+	 * Make sure that the cascaded submenu is a child of the
+	 * parent menu.
+	 */
+
+#ifdef STk_CODE
+      /* For STk, the submenu .a.b.c is stored as #..a.b.c
+       * We have to skip the '#.'
+       * This ugly and should be changed 
+       */
+        tkwin = Tk_NameToWindow(interp, mePtr->name+2, menuPtr->tkwin);
+#else      
+	tkwin = Tk_NameToWindow(interp, mePtr->name, menuPtr->tkwin);
+#endif
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tk_Parent(tkwin) != menuPtr->tkwin) {
+	    Tcl_AppendResult(interp, "cascaded sub-menu ",
+		    Tk_PathName(tkwin), " must be a child of ",
+		    Tk_PathName(menuPtr->tkwin), (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Position the cascade with its upper left corner slightly
+	 * below and to the left of the upper right corner of the
+	 * menu entry (this is an attempt to match Motif behavior).
+	 */
+	Tk_GetRootCoords(menuPtr->tkwin, &x, &y);
+	x += Tk_Width(menuPtr->tkwin) - menuPtr->borderWidth
+		- menuPtr->activeBorderWidth - 2;
+	y += mePtr->y + menuPtr->activeBorderWidth + 2;
+	sprintf(string, "%d %d", x, y);
+#ifdef STk_CODE
+	result = Tcl_VarEval(interp, mePtr->name, " 'post ", string,
+#else
+	result = Tcl_VarEval(interp, mePtr->name, " post ", string,
+#endif
+		(char *) NULL);
+	if (result != TCL_OK) {
+	    return result;
+	}
+	menuPtr->postedCascade = mePtr;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ActivateMenuEntry --
+ *
+ *	This procedure is invoked to make a particular menu entry
+ *	the active one, deactivating any other entry that might
+ *	currently be active.
+ *
+ * Results:
+ *	The return value is a standard Tcl result (errors can occur
+ *	while posting and unposting submenus).
+ *
+ * Side effects:
+ *	Menu entries get redisplayed, and the active entry changes.
+ *	Submenus may get posted and unposted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ActivateMenuEntry(menuPtr, index)
+    register Menu *menuPtr;		/* Menu in which to activate. */
+    int index;				/* Index of entry to activate, or
+					 * -1 to deactivate all entries. */
+{
+    register MenuEntry *mePtr;
+    int result = TCL_OK;
+
+    if (menuPtr->active >= 0) {
+	mePtr = menuPtr->entries[menuPtr->active];
+
+	/*
+	 * Don't change the state unless it's currently active (state
+	 * might already have been changed to disabled).
+	 */
+
+	if (mePtr->state == tkActiveUid) {
+	    mePtr->state = tkNormalUid;
+	}
+	EventuallyRedrawMenu(menuPtr, menuPtr->entries[menuPtr->active]);
+    }
+    menuPtr->active = index;
+    if (index >= 0) {
+	mePtr = menuPtr->entries[index];
+	mePtr->state = tkActiveUid;
+	EventuallyRedrawMenu(menuPtr, mePtr);
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuImageProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the size of contents
+ *	of an image displayed in a menu entry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for the menu to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MenuImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to widget record. */
+    int x, y;				/* Upper left pixel (within image)
+						 * that must be redisplayed. */
+    int width, height;		/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    register Menu *menuPtr = ((MenuEntry *) clientData)->menuPtr;
+
+    if ((menuPtr->tkwin != NULL) && !(menuPtr->flags & RESIZE_PENDING)) {
+	menuPtr->flags |= RESIZE_PENDING;
+	Tcl_DoWhenIdle(ComputeMenuGeometry, (ClientData) menuPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuSelectImageProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the size of contents
+ *	of an image displayed in a menu entry when it is selected.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for the menu to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MenuSelectImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to widget record. */
+    int x, y;				/* Upper left pixel (within image)
+					 * that must be redisplayed. */
+    int width, height;			/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    register MenuEntry *mePtr = (MenuEntry *) clientData;
+
+    if ((mePtr->flags & ENTRY_SELECTED)
+	    && !(mePtr->menuPtr->flags & REDRAW_PENDING)) {
+	mePtr->menuPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayMenu, (ClientData) mePtr->menuPtr);
+    }
+}
+
diff --git a/Tk/generic/tkMenubutton.c b/Tk/generic/tkMenubutton.c
new file mode 100644
index 0000000..ac2da9c
--- /dev/null
+++ b/Tk/generic/tkMenubutton.c
@@ -0,0 +1,1245 @@
+/* 
+ * tkMenubutton.c --
+ *
+ *	This module implements button-like widgets that are used
+ *	to invoke pull-down menus.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkMenubutton.c 1.77 96/02/15 18:52:22
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the widget.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Needed, among
+				 * other things, so that resources can bee
+				 * freed up even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with menubutton. */
+    Tcl_Command widgetCmd;	/* Token for menubutton's widget command. */
+    char *menuName;		/* Name of menu associated with widget.
+				 * Malloc-ed. */
+
+    /*
+     * Information about what's displayed in the menu button:
+     */
+
+    char *text;			/* Text to display in button (malloc'ed)
+				 * or NULL. */
+    int numChars;		/* # of characters in text. */
+    int underline;		/* Index of character to underline. */
+    char *textVarName;		/* Name of variable (malloc'ed) or NULL.
+				 * If non-NULL, button displays the contents
+				 * of this variable. */
+    Pixmap bitmap;		/* Bitmap to display or None.  If not None
+				 * then text and textVar and underline
+				 * are ignored. */
+    char *imageString;		/* Name of image to display (malloc'ed), or
+				 * NULL.  If non-NULL, bitmap, text, and
+				 * textVarName are ignored. */
+    Tk_Image image;		/* Image to display in window, or NULL if
+				 * none. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_Uid state;		/* State of button for display purposes:
+				 * normal, active, or disabled. */
+    Tk_3DBorder normalBorder;	/* Structure used to draw 3-D
+				 * border and background when window
+				 * isn't active.  NULL means no such
+				 * border exists. */
+    Tk_3DBorder activeBorder;	/* Structure used to draw 3-D
+				 * border and background when window
+				 * is active.  NULL means no such
+				 * border exists. */
+    int borderWidth;		/* Width of border. */
+    int relief;			/* 3-d effect: TK_RELIEF_RAISED, etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *normalFg;		/* Foreground color in normal mode. */
+    XColor *activeFg;		/* Foreground color in active mode.  NULL
+				 * means use normalFg instead. */
+    XColor *disabledFg;		/* Foreground color when disabled.  NULL
+				 * means use normalFg with a 50% stipple
+				 * instead. */
+    GC normalTextGC;		/* GC for drawing text in normal mode. */
+    GC activeTextGC;		/* GC for drawing text in active mode (NULL
+				 * means use normalTextGC). */
+    Pixmap gray;		/* Pixmap for displaying disabled text/icon if
+				 * disabledFg is NULL. */
+    GC disabledGC;		/* Used to produce disabled effect.  If
+				 * disabledFg isn't NULL, this GC is used to
+				 * draw button text or icon.  Otherwise
+				 * text or icon is drawn with normalGC and
+				 * this GC is used to stipple background
+				 * across it. */
+    int leftBearing;		/* Distance from text origin to leftmost drawn
+				 * pixel (positive means to right). */
+    int rightBearing;		/* Amount text sticks right from its origin. */
+    char *widthString;		/* Value of -width option.  Malloc'ed. */
+    char *heightString;		/* Value of -height option.  Malloc'ed. */
+    int width, height;		/* If > 0, these specify dimensions to request
+				 * for window, in characters for text and in
+				 * pixels for bitmaps.  In this case the actual
+				 * size of the text string or bitmap is
+				 * ignored in computing desired window size. */
+    int wrapLength;		/* Line length (in pixels) at which to wrap
+				 * onto next line.  <= 0 means don't wrap
+				 * except at newlines. */
+    int padX, padY;		/* Extra space around text or bitmap (pixels
+				 * on each side). */
+    Tk_Anchor anchor;		/* Where text/bitmap should be displayed
+				 * inside window region. */
+    Tk_Justify justify;		/* Justification to use for multi-line text. */
+    int textWidth;		/* Width needed to display text as requested,
+				 * in pixels. */
+    int textHeight;		/* Height needed to display text as requested,
+				 * in pixels. */
+    int indicatorOn;		/* Non-zero means display indicator;  0 means
+				 * don't display. */
+    int indicatorHeight;	/* Height of indicator in pixels.  This same
+				 * amount of extra space is also left on each
+				 * side of the indicator. 0 if no indicator. */
+    int indicatorWidth;		/* Width of indicator in pixels, including
+				 * indicatorHeight in padding on each side.
+				 * 0 if no indicator. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} MenuButton;
+
+/*
+ * Flag bits for buttons:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * POSTED:			Non-zero means that the menu associated
+ *				with this button has been posted (typically
+ *				because of an active button press).
+ * GOT_FOCUS:			Non-zero means this button currently
+ *				has the input focus.
+ */
+
+#define REDRAW_PENDING		1
+#define POSTED			2
+#define GOT_FOCUS		4
+
+/*
+ * The following constants define the dimensions of the cascade indicator,
+ * which is displayed if the "-indicatoron" option is true.  The units for
+ * these options are 1/10 millimeters.
+ */
+
+#define INDICATOR_WIDTH		40
+#define INDICATOR_HEIGHT	17
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_MENUBUTTON_ACTIVE_BG_COLOR, Tk_Offset(MenuButton, activeBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_MENUBUTTON_ACTIVE_BG_MONO, Tk_Offset(MenuButton, activeBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_MENUBUTTON_ACTIVE_FG_COLOR, Tk_Offset(MenuButton, activeFg),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-activeforeground", "activeForeground", "Background",
+	DEF_MENUBUTTON_ACTIVE_FG_MONO, Tk_Offset(MenuButton, activeFg),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_ANCHOR, "-anchor", "anchor", "Anchor",
+	DEF_MENUBUTTON_ANCHOR, Tk_Offset(MenuButton, anchor), 0},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MENUBUTTON_BG_COLOR, Tk_Offset(MenuButton, normalBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MENUBUTTON_BG_MONO, Tk_Offset(MenuButton, normalBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_BITMAP, "-bitmap", "bitmap", "Bitmap",
+	DEF_MENUBUTTON_BITMAP, Tk_Offset(MenuButton, bitmap),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_MENUBUTTON_BORDER_WIDTH, Tk_Offset(MenuButton, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_MENUBUTTON_CURSOR, Tk_Offset(MenuButton, cursor),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_MENUBUTTON_DISABLED_FG_COLOR,
+	Tk_Offset(MenuButton, disabledFg),
+	TK_CONFIG_COLOR_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-disabledforeground", "disabledForeground",
+	"DisabledForeground", DEF_MENUBUTTON_DISABLED_FG_MONO,
+	Tk_Offset(MenuButton, disabledFg),
+	TK_CONFIG_MONO_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_MENUBUTTON_FONT, Tk_Offset(MenuButton, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_MENUBUTTON_FG, Tk_Offset(MenuButton, normalFg), 0},
+    {TK_CONFIG_STRING, "-height", "height", "Height",
+	DEF_MENUBUTTON_HEIGHT, Tk_Offset(MenuButton, heightString), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_MENUBUTTON_HIGHLIGHT_BG,
+	Tk_Offset(MenuButton, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_MENUBUTTON_HIGHLIGHT, Tk_Offset(MenuButton, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness", DEF_MENUBUTTON_HIGHLIGHT_WIDTH,
+	Tk_Offset(MenuButton, highlightWidth), 0},
+    {TK_CONFIG_STRING, "-image", "image", "Image",
+	DEF_MENUBUTTON_IMAGE, Tk_Offset(MenuButton, imageString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-indicatoron", "indicatorOn", "IndicatorOn",
+	DEF_MENUBUTTON_INDICATOR, Tk_Offset(MenuButton, indicatorOn), 0},
+    {TK_CONFIG_JUSTIFY, "-justify", "justify", "Justify",
+	DEF_MENUBUTTON_JUSTIFY, Tk_Offset(MenuButton, justify), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_MENU, "-menu", "menu", "Menu",
+#else
+    {TK_CONFIG_STRING, "-menu", "menu", "Menu",
+#endif
+	DEF_MENUBUTTON_MENU, Tk_Offset(MenuButton, menuName),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
+	DEF_MENUBUTTON_PADX, Tk_Offset(MenuButton, padX), 0},
+    {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
+	DEF_MENUBUTTON_PADY, Tk_Offset(MenuButton, padY), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_MENUBUTTON_RELIEF, Tk_Offset(MenuButton, relief), 0},
+    {TK_CONFIG_UID, "-state", "state", "State",
+	DEF_MENUBUTTON_STATE, Tk_Offset(MenuButton, state), 0},
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+	DEF_MENUBUTTON_TAKE_FOCUS, Tk_Offset(MenuButton, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-text", "text", "Text",
+	DEF_MENUBUTTON_TEXT, Tk_Offset(MenuButton, text), 0},
+    {TK_CONFIG_STRING, "-textvariable", "textVariable", "Variable",
+	DEF_MENUBUTTON_TEXT_VARIABLE, Tk_Offset(MenuButton, textVarName),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-underline", "underline", "Underline",
+	DEF_MENUBUTTON_UNDERLINE, Tk_Offset(MenuButton, underline), 0},
+    {TK_CONFIG_STRING, "-width", "width", "Width",
+	DEF_MENUBUTTON_WIDTH, Tk_Offset(MenuButton, widthString), 0},
+    {TK_CONFIG_PIXELS, "-wraplength", "wrapLength", "WrapLength",
+	DEF_MENUBUTTON_WRAP_LENGTH, Tk_Offset(MenuButton, wrapLength), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ComputeMenuButtonGeometry _ANSI_ARGS_((
+			    MenuButton *mbPtr));
+static void		MenuButtonCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		MenuButtonEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		MenuButtonImageProc _ANSI_ARGS_((ClientData clientData,
+			    int x, int y, int width, int height, int imgWidth,
+			    int imgHeight));
+static char *		MenuButtonTextVarProc _ANSI_ARGS_((
+			    ClientData clientData, Tcl_Interp *interp,
+			    char *name1, char *name2, int flags));
+static int		MenuButtonWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		ConfigureMenuButton _ANSI_ARGS_((Tcl_Interp *interp,
+			    MenuButton *mbPtr, int argc, char **argv,
+			    int flags));
+static void		DestroyMenuButton _ANSI_ARGS_((char *memPtr));
+static void		DisplayMenuButton _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MenubuttonCmd --
+ *
+ *	This procedure is invoked to process the "button", "label",
+ *	"radiobutton", and "checkbutton" Tcl commands.  See the
+ *	user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_MenubuttonCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register MenuButton *mbPtr;
+    Tk_Window tkwin = (Tk_Window) clientData;
+    Tk_Window new;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Create the new window.
+     */
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize the data structure for the button.
+     */
+
+    mbPtr = (MenuButton *) ckalloc(sizeof(MenuButton));
+    mbPtr->tkwin = new;
+    mbPtr->display = Tk_Display (new);
+    mbPtr->interp = interp;
+    mbPtr->widgetCmd = Tcl_CreateCommand(interp, Tk_PathName(mbPtr->tkwin),
+	    MenuButtonWidgetCmd, (ClientData) mbPtr, MenuButtonCmdDeletedProc);
+    mbPtr->menuName = NULL;
+    mbPtr->text = NULL;
+    mbPtr->numChars = 0;
+    mbPtr->underline = -1;
+    mbPtr->textVarName = NULL;
+    mbPtr->bitmap = None;
+    mbPtr->imageString = NULL;
+    mbPtr->image = NULL;
+    mbPtr->state = tkNormalUid;
+    mbPtr->normalBorder = NULL;
+    mbPtr->activeBorder = NULL;
+    mbPtr->borderWidth = 0;
+    mbPtr->relief = TK_RELIEF_FLAT;
+    mbPtr->highlightWidth = 0;
+    mbPtr->highlightBgColorPtr = NULL;
+    mbPtr->highlightColorPtr = NULL;
+    mbPtr->inset = 0;
+    mbPtr->fontPtr = NULL;
+    mbPtr->normalFg = NULL;
+    mbPtr->activeFg = NULL;
+    mbPtr->disabledFg = NULL;
+    mbPtr->normalTextGC = None;
+    mbPtr->activeTextGC = None;
+    mbPtr->gray = None;
+    mbPtr->disabledGC = None;
+    mbPtr->leftBearing = 0;
+    mbPtr->rightBearing = 0;
+    mbPtr->widthString = NULL;
+    mbPtr->heightString = NULL;
+    mbPtr->width = 0;
+    mbPtr->width = 0;
+    mbPtr->wrapLength = 0;
+    mbPtr->padX = 0;
+    mbPtr->padY = 0;
+    mbPtr->anchor = TK_ANCHOR_CENTER;
+    mbPtr->justify = TK_JUSTIFY_CENTER;
+    mbPtr->indicatorOn = 0;
+    mbPtr->indicatorWidth = 0;
+    mbPtr->indicatorHeight = 0;
+    mbPtr->cursor = None;
+    mbPtr->takeFocus = NULL;
+    mbPtr->flags = 0;
+
+    Tk_SetClass(mbPtr->tkwin, "Menubutton");
+    Tk_CreateEventHandler(mbPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    MenuButtonEventProc, (ClientData) mbPtr);
+    if (ConfigureMenuButton(interp, mbPtr, argc-2, argv+2, 0) != TCL_OK) {
+	Tk_DestroyWindow(mbPtr->tkwin);
+	return TCL_ERROR;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(mbPtr->tkwin));
+#else
+    interp->result = Tk_PathName(mbPtr->tkwin);
+#endif
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuButtonWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+MenuButtonWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about button widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register MenuButton *mbPtr = (MenuButton *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) mbPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, mbPtr->tkwin, configSpecs,
+		(char *) mbPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, mbPtr->tkwin, configSpecs,
+		    (char *) mbPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, mbPtr->tkwin, configSpecs,
+		    (char *) mbPtr, argv[2], 0);
+	} else {
+	    result = ConfigureMenuButton(interp, mbPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget or configure",
+		(char *) NULL);
+	goto error;
+    }
+    Tcl_Release((ClientData) mbPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) mbPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyMenuButton --
+ *
+ *	This procedure is invoked to recycle all of the resources
+ *	associated with a button widget.  It is invoked as a
+ *	when-idle handler in order to make sure that there is no
+ *	other use of the button pending at the time of the deletion.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the widget is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyMenuButton(memPtr)
+    char *memPtr;		/* Info about button widget. */
+{
+    register MenuButton *mbPtr = (MenuButton *) memPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (mbPtr->textVarName != NULL) {
+	Tcl_UntraceVar(mbPtr->interp, mbPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuButtonTextVarProc, (ClientData) mbPtr);
+    }
+    if (mbPtr->image != NULL) {
+	Tk_FreeImage(mbPtr->image);
+    }
+    if (mbPtr->normalTextGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->normalTextGC);
+    }
+    if (mbPtr->activeTextGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->activeTextGC);
+    }
+    if (mbPtr->gray != None) {
+	Tk_FreeBitmap(mbPtr->display, mbPtr->gray);
+    }
+    if (mbPtr->disabledGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->disabledGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) mbPtr, mbPtr->display, 0);
+    ckfree((char *) mbPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureMenuButton --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a menubutton widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as text string, colors, font,
+ *	etc. get set for mbPtr;  old resources get freed, if there
+ *	were any.  The menubutton is redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureMenuButton(interp, mbPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register MenuButton *mbPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    int result;
+    Tk_Image image;
+
+    /*
+     * Eliminate any existing trace on variables monitored by the menubutton.
+     */
+
+    if (mbPtr->textVarName != NULL) {
+	Tcl_UntraceVar(interp, mbPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuButtonTextVarProc, (ClientData) mbPtr);
+    }
+
+    result = Tk_ConfigureWidget(interp, mbPtr->tkwin, configSpecs,
+	    argc, argv, (char *) mbPtr, flags);
+    if (result != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as setting the
+     * background from a 3-D border, or filling in complicated
+     * defaults that couldn't be specified to Tk_ConfigureWidget.
+     */
+
+    if ((mbPtr->state == tkActiveUid) && !Tk_StrictMotif(mbPtr->tkwin)) {
+	Tk_SetBackgroundFromBorder(mbPtr->tkwin, mbPtr->activeBorder);
+    } else {
+	Tk_SetBackgroundFromBorder(mbPtr->tkwin, mbPtr->normalBorder);
+	if ((mbPtr->state != tkNormalUid) && (mbPtr->state != tkActiveUid)
+		&& (mbPtr->state != tkDisabledUid)) {
+	    Tcl_AppendResult(interp, "bad state value \"", mbPtr->state,
+		    "\": must be normal, active, or disabled", (char *) NULL);
+	    mbPtr->state = tkNormalUid;
+	    return TCL_ERROR;
+	}
+    }
+
+    if (mbPtr->highlightWidth < 0) {
+	mbPtr->highlightWidth = 0;
+    }
+
+    gcValues.font = mbPtr->fontPtr->fid;
+    gcValues.foreground = mbPtr->normalFg->pixel;
+    gcValues.background = Tk_3DBorderColor(mbPtr->normalBorder)->pixel;
+
+    /*
+     * Note: GraphicsExpose events are disabled in GC's because they're
+     * used to copy stuff from an off-screen pixmap onto the screen (we know
+     * that there's no problem with obscured areas).
+     */
+
+    gcValues.graphics_exposures = False;
+    newGC = Tk_GetGC(mbPtr->tkwin,
+	    GCForeground|GCBackground|GCFont|GCGraphicsExposures, &gcValues);
+    if (mbPtr->normalTextGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->normalTextGC);
+    }
+    mbPtr->normalTextGC = newGC;
+
+    gcValues.font = mbPtr->fontPtr->fid;
+    gcValues.foreground = mbPtr->activeFg->pixel;
+    gcValues.background = Tk_3DBorderColor(mbPtr->activeBorder)->pixel;
+    newGC = Tk_GetGC(mbPtr->tkwin, GCForeground|GCBackground|GCFont,
+	    &gcValues);
+    if (mbPtr->activeTextGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->activeTextGC);
+    }
+    mbPtr->activeTextGC = newGC;
+
+    gcValues.font = mbPtr->fontPtr->fid;
+    gcValues.background = Tk_3DBorderColor(mbPtr->normalBorder)->pixel;
+    if ((mbPtr->disabledFg != NULL) && (mbPtr->imageString == NULL)) {
+	gcValues.foreground = mbPtr->disabledFg->pixel;
+	mask = GCForeground|GCBackground|GCFont;
+    } else {
+	gcValues.foreground = gcValues.background;
+	if (mbPtr->gray == None) {
+	    mbPtr->gray = Tk_GetBitmap(interp, mbPtr->tkwin,
+		    Tk_GetUid("gray50"));
+	    if (mbPtr->gray == None) {
+		return TCL_ERROR;
+	    }
+	}
+	gcValues.fill_style = FillStippled;
+	gcValues.stipple = mbPtr->gray;
+	mask = GCForeground|GCFillStyle|GCStipple;
+    }
+    newGC = Tk_GetGC(mbPtr->tkwin, mask, &gcValues);
+    if (mbPtr->disabledGC != None) {
+	Tk_FreeGC(mbPtr->display, mbPtr->disabledGC);
+    }
+    mbPtr->disabledGC = newGC;
+
+    if (mbPtr->padX < 0) {
+	mbPtr->padX = 0;
+    }
+    if (mbPtr->padY < 0) {
+	mbPtr->padY = 0;
+    }
+
+    /*
+     * Get the image for the widget, if there is one.  Allocate the
+     * new image before freeing the old one, so that the reference
+     * count doesn't go to zero and cause image data to be discarded.
+     */
+
+    if (mbPtr->imageString != NULL) {
+	image = Tk_GetImage(mbPtr->interp, mbPtr->tkwin,
+		mbPtr->imageString, MenuButtonImageProc, (ClientData) mbPtr);
+	if (image == NULL) {
+	    return TCL_ERROR;
+	}
+    } else {
+	image = NULL;
+    }
+    if (mbPtr->image != NULL) {
+	Tk_FreeImage(mbPtr->image);
+    }
+    mbPtr->image = image;
+
+    if ((mbPtr->image == NULL) && (mbPtr->bitmap == None)
+	    && (mbPtr->textVarName != NULL)) {
+	/*
+	 * The menubutton displays a variable.  Set up a trace to watch
+	 * for any changes in it.
+	 */
+
+	char *value;
+
+	value = Tcl_GetVar(interp, mbPtr->textVarName, TCL_GLOBAL_ONLY);
+	if (value == NULL) {
+	    Tcl_SetVar(interp, mbPtr->textVarName, mbPtr->text,
+		    TCL_GLOBAL_ONLY);
+	} else {
+	    if (mbPtr->text != NULL) {
+		ckfree(mbPtr->text);
+	    }
+	    mbPtr->text = (char *) ckalloc((unsigned) (strlen(value) + 1));
+	    strcpy(mbPtr->text, value);
+	}
+	Tcl_TraceVar(interp, mbPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MenuButtonTextVarProc, (ClientData) mbPtr);
+    }
+
+    /*
+     * Recompute the geometry for the button.
+     */
+
+    if ((mbPtr->bitmap != None) || (mbPtr->image != NULL)) {
+	if (Tk_GetPixels(interp, mbPtr->tkwin, mbPtr->widthString,
+		&mbPtr->width) != TCL_OK) {
+	    widthError:
+	    Tcl_AddErrorInfo(interp, "\n    (processing -width option)");
+	    return TCL_ERROR;
+	}
+	if (Tk_GetPixels(interp, mbPtr->tkwin, mbPtr->heightString,
+		&mbPtr->height) != TCL_OK) {
+	    heightError:
+	    Tcl_AddErrorInfo(interp, "\n    (processing -height option)");
+	    return TCL_ERROR;
+	}
+    } else {
+	if (Tcl_GetInt(interp, mbPtr->widthString, &mbPtr->width)
+		!= TCL_OK) {
+	    goto widthError;
+	}
+	if (Tcl_GetInt(interp, mbPtr->heightString, &mbPtr->height)
+		!= TCL_OK) {
+	    goto heightError;
+	}
+    }
+    ComputeMenuButtonGeometry(mbPtr);
+
+    /*
+     * Lastly, arrange for the button to be redisplayed.
+     */
+
+    if (Tk_IsMapped(mbPtr->tkwin) && !(mbPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMenuButton, (ClientData) mbPtr);
+	mbPtr->flags |= REDRAW_PENDING;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayMenuButton --
+ *
+ *	This procedure is invoked to display a menubutton widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Commands are output to X to display the menubutton in its
+ *	current mode.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayMenuButton(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    register MenuButton *mbPtr = (MenuButton *) clientData;
+    GC gc;
+    Tk_3DBorder border;
+    Pixmap pixmap;
+    int x = 0;			/* Initialization needed only to stop
+				 * compiler warning. */
+    int y;
+    register Tk_Window tkwin = mbPtr->tkwin;
+    int width, height;
+
+    mbPtr->flags &= ~REDRAW_PENDING;
+    if ((mbPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    if ((mbPtr->state == tkDisabledUid) && (mbPtr->disabledFg != NULL)) {
+	gc = mbPtr->disabledGC;
+	border = mbPtr->normalBorder;
+    } else if ((mbPtr->state == tkActiveUid) && !Tk_StrictMotif(mbPtr->tkwin)) {
+	gc = mbPtr->activeTextGC;
+	border = mbPtr->activeBorder;
+    } else {
+	gc = mbPtr->normalTextGC;
+	border = mbPtr->normalBorder;
+    }
+
+    /*
+     * In order to avoid screen flashes, this procedure redraws
+     * the menu button in a pixmap, then copies the pixmap to the
+     * screen in a single operation.  This means that there's no
+     * point in time where the on-sreen image has been cleared.
+     */
+
+    pixmap = Tk_GetPixmap(mbPtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+    Tk_Fill3DRectangle(tkwin, pixmap, border, 0, 0, Tk_Width(tkwin),
+	    Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
+
+    /*
+     * Display image or bitmap or text for button.
+     */
+
+    if (mbPtr->image != None) {
+	Tk_SizeOfImage(mbPtr->image, &width, &height);
+
+	imageOrBitmap:
+	switch (mbPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_W: case TK_ANCHOR_SW:
+		x += mbPtr->inset;
+		break;
+	    case TK_ANCHOR_N: case TK_ANCHOR_CENTER: case TK_ANCHOR_S:
+		x += ((int) (Tk_Width(tkwin) - width
+			- mbPtr->indicatorWidth))/2;
+		break;
+	    default:
+		x += Tk_Width(tkwin) - mbPtr->inset - width
+			- mbPtr->indicatorWidth;
+		break;
+	}
+	switch (mbPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_N: case TK_ANCHOR_NE:
+		y = mbPtr->inset;
+		break;
+	    case TK_ANCHOR_W: case TK_ANCHOR_CENTER: case TK_ANCHOR_E:
+		y = ((int) (Tk_Height(tkwin) - height))/2;
+		break;
+	    default:
+		y = Tk_Height(tkwin) - mbPtr->inset - height;
+		break;
+	}
+	if (mbPtr->image != NULL) {
+	    Tk_RedrawImage(mbPtr->image, 0, 0, width, height, pixmap,
+		    x, y);
+	} else {
+	    XCopyPlane(mbPtr->display, mbPtr->bitmap, pixmap,
+		    gc, 0, 0, (unsigned) width, (unsigned) height, x, y, 1);
+	}
+    } else if (mbPtr->bitmap != None) {
+	Tk_SizeOfBitmap(mbPtr->display, mbPtr->bitmap, &width, &height);
+	goto imageOrBitmap;
+    } else {
+	width = mbPtr->textWidth;
+	height = mbPtr->textHeight;
+	switch (mbPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_W: case TK_ANCHOR_SW:
+		x = mbPtr->inset + mbPtr->padX;
+		break;
+	    case TK_ANCHOR_N: case TK_ANCHOR_CENTER: case TK_ANCHOR_S:
+		x = ((int) (Tk_Width(tkwin) - width
+			- mbPtr->indicatorWidth))/2;
+		break;
+	    default:
+		x = Tk_Width(tkwin) - width - mbPtr->padX - mbPtr->inset
+			- mbPtr->indicatorWidth;
+		break;
+	}
+	switch (mbPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_N: case TK_ANCHOR_NE:
+		y = mbPtr->inset + mbPtr->padY;
+		break;
+	    case TK_ANCHOR_W: case TK_ANCHOR_CENTER: case TK_ANCHOR_E:
+		y = ((int) (Tk_Height(tkwin) - height))/2;
+		break;
+	    default:
+		y = Tk_Height(tkwin) - mbPtr->inset - mbPtr->padY - height;
+		break;
+	}
+	TkDisplayText(mbPtr->display, pixmap, mbPtr->fontPtr,
+		mbPtr->text, mbPtr->numChars, x, y, mbPtr->textWidth,
+		mbPtr->justify, mbPtr->underline, gc);
+    }
+
+    /*
+     * If the menu button is disabled with a stipple rather than a special
+     * foreground color, generate the stippled effect.
+     */
+
+    if ((mbPtr->state == tkDisabledUid)
+	    && ((mbPtr->disabledFg == NULL) || (mbPtr->image != NULL))) {
+	XFillRectangle(mbPtr->display, pixmap, mbPtr->disabledGC,
+		mbPtr->inset, mbPtr->inset,
+		(unsigned) (Tk_Width(tkwin) - 2*mbPtr->inset),
+		(unsigned) (Tk_Height(tkwin) - 2*mbPtr->inset));
+    }
+
+    /*
+     * Draw the cascade indicator for the menu button on the
+     * right side of the window, if desired.
+     */
+
+    if (mbPtr->indicatorOn) {
+	int borderWidth;
+
+	borderWidth = (mbPtr->indicatorHeight+1)/3;
+	if (borderWidth < 1) {
+	    borderWidth = 1;
+	}
+	Tk_Fill3DRectangle(tkwin, pixmap, border,
+		Tk_Width(tkwin) - mbPtr->inset - mbPtr->indicatorWidth
+		    + mbPtr->indicatorHeight,
+		y + ((int) (height - mbPtr->indicatorHeight))/2,
+		mbPtr->indicatorWidth - 2*mbPtr->indicatorHeight,
+		mbPtr->indicatorHeight, borderWidth, TK_RELIEF_RAISED);
+    }
+
+    /*
+     * Draw the border and traversal highlight last.  This way, if the
+     * menu button's contents overflow onto the border they'll be covered
+     * up by the border.
+     */
+
+    if (mbPtr->relief != TK_RELIEF_FLAT) {
+	Tk_Draw3DRectangle(tkwin, pixmap, border,
+		mbPtr->highlightWidth, mbPtr->highlightWidth,
+		Tk_Width(tkwin) - 2*mbPtr->highlightWidth,
+		Tk_Height(tkwin) - 2*mbPtr->highlightWidth,
+		mbPtr->borderWidth, mbPtr->relief);
+    }
+    if (mbPtr->highlightWidth != 0) {
+	GC gc;
+
+	if (mbPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(mbPtr->highlightColorPtr, pixmap);
+	} else {
+	    gc = Tk_GCForColor(mbPtr->highlightBgColorPtr, pixmap);
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, mbPtr->highlightWidth, pixmap);
+    }
+
+    /*
+     * Copy the information from the off-screen pixmap onto the screen,
+     * then delete the pixmap.
+     */
+
+    XCopyArea(mbPtr->display, pixmap, Tk_WindowId(tkwin),
+	    mbPtr->normalTextGC, 0, 0, (unsigned) Tk_Width(tkwin),
+	    (unsigned) Tk_Height(tkwin), 0, 0);
+    Tk_FreePixmap(mbPtr->display, pixmap);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuButtonEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on buttons.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+MenuButtonEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    MenuButton *mbPtr = (MenuButton *) clientData;
+    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
+	goto redraw;
+    } else if (eventPtr->type == ConfigureNotify) {
+	/*
+	 * Must redraw after size changes, since layout could have changed
+	 * and borders will need to be redrawn.
+	 */
+
+	goto redraw;
+    } else if (eventPtr->type == DestroyNotify) {
+	if (mbPtr->tkwin != NULL) {
+	    mbPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(mbPtr->interp,
+		    Tcl_GetCommandName(mbPtr->interp, mbPtr->widgetCmd));
+	}
+	if (mbPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayMenuButton, (ClientData) mbPtr);
+	}
+	Tcl_EventuallyFree((ClientData) mbPtr, DestroyMenuButton);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    mbPtr->flags |= GOT_FOCUS;
+	    if (mbPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    mbPtr->flags &= ~GOT_FOCUS;
+	    if (mbPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    }
+    return;
+
+    redraw:
+    if ((mbPtr->tkwin != NULL) && !(mbPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMenuButton, (ClientData) mbPtr);
+	mbPtr->flags |= REDRAW_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuButtonCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MenuButtonCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    MenuButton *mbPtr = (MenuButton *) clientData;
+    Tk_Window tkwin = mbPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	mbPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeMenuButtonGeometry --
+ *
+ *	After changes in a menu button's text or bitmap, this procedure
+ *	recomputes the menu button's geometry and passes this information
+ *	along to the geometry manager for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The menu button's window may change size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ComputeMenuButtonGeometry(mbPtr)
+    register MenuButton *mbPtr;		/* Widget record for menu button. */
+{
+    int width, height, mm, pixels;
+
+    mbPtr->inset = mbPtr->highlightWidth + mbPtr->borderWidth;
+    if (mbPtr->image != None) {
+	Tk_SizeOfImage(mbPtr->image, &width, &height);
+	if (mbPtr->width > 0) {
+	    width = mbPtr->width;
+	}
+	if (mbPtr->height > 0) {
+	    height = mbPtr->height;
+	}
+    } else if (mbPtr->bitmap != None) {
+	Tk_SizeOfBitmap(mbPtr->display, mbPtr->bitmap, &width, &height);
+	if (mbPtr->width > 0) {
+	    width = mbPtr->width;
+	}
+	if (mbPtr->height > 0) {
+	    height = mbPtr->height;
+	}
+    } else {
+	mbPtr->numChars = strlen(mbPtr->text);
+	TkComputeTextGeometry(mbPtr->fontPtr, mbPtr->text,
+		mbPtr->numChars, mbPtr->wrapLength, &mbPtr->textWidth,
+		&mbPtr->textHeight);
+	width = mbPtr->textWidth;
+	height = mbPtr->textHeight;
+	if (mbPtr->width > 0) {
+	    width = mbPtr->width * XTextWidth(mbPtr->fontPtr, "0", 1);
+	}
+	if (mbPtr->height > 0) {
+	    height = mbPtr->height * (mbPtr->fontPtr->ascent
+		    + mbPtr->fontPtr->descent);
+	}
+	width += 2*mbPtr->padX;
+	height += 2*mbPtr->padY;
+    }
+
+    if (mbPtr->indicatorOn) {
+	mm = WidthMMOfScreen(Tk_Screen(mbPtr->tkwin));
+	pixels = WidthOfScreen(Tk_Screen(mbPtr->tkwin));
+	mbPtr->indicatorHeight= (INDICATOR_HEIGHT * pixels)/(10*mm);
+	mbPtr->indicatorWidth = (INDICATOR_WIDTH * pixels)/(10*mm)
+		+ 2*mbPtr->indicatorHeight;
+	width += mbPtr->indicatorWidth;
+    } else {
+	mbPtr->indicatorHeight = 0;
+	mbPtr->indicatorWidth = 0;
+    }
+
+    Tk_GeometryRequest(mbPtr->tkwin, (int) (width + 2*mbPtr->inset),
+	    (int) (height + 2*mbPtr->inset));
+    Tk_SetInternalBorder(mbPtr->tkwin, mbPtr->inset);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MenuButtonTextVarProc --
+ *
+ *	This procedure is invoked when someone changes the variable
+ *	whose contents are to be displayed in a menu button.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The text displayed in the menu button will change to match the
+ *	variable.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+MenuButtonTextVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about button. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    register MenuButton *mbPtr = (MenuButton *) clientData;
+    char *value;
+
+    /*
+     * If the variable is unset, then immediately recreate it unless
+     * the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_SetVar(interp, mbPtr->textVarName, mbPtr->text,
+		    TCL_GLOBAL_ONLY);
+	    Tcl_TraceVar(interp, mbPtr->textVarName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    MenuButtonTextVarProc, clientData);
+	}
+	return (char *) NULL;
+    }
+
+    value = Tcl_GetVar(interp, mbPtr->textVarName, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (mbPtr->text != NULL) {
+	ckfree(mbPtr->text);
+    }
+    mbPtr->text = (char *) ckalloc((unsigned) (strlen(value) + 1));
+    strcpy(mbPtr->text, value);
+    ComputeMenuButtonGeometry(mbPtr);
+
+    if ((mbPtr->tkwin != NULL) && Tk_IsMapped(mbPtr->tkwin)
+	    && !(mbPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMenuButton, (ClientData) mbPtr);
+	mbPtr->flags |= REDRAW_PENDING;
+    }
+    return (char *) NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MenuButtonImageProc --
+ *
+ *	This procedure is invoked by the image code whenever the manager
+ *	for an image does something that affects the size of contents
+ *	of an image displayed in a button.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for the button to get redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MenuButtonImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
+    ClientData clientData;		/* Pointer to widget record. */
+    int x, y;				/* Upper left pixel (within image)
+					 * that must be redisplayed. */
+    int width, height;			/* Dimensions of area to redisplay
+					 * (may be <= 0). */
+    int imgWidth, imgHeight;		/* New dimensions of image. */
+{
+    register MenuButton *mbPtr = (MenuButton *) clientData;
+
+    if (mbPtr->tkwin != NULL) {
+	ComputeMenuButtonGeometry(mbPtr);
+	if (Tk_IsMapped(mbPtr->tkwin) && !(mbPtr->flags & REDRAW_PENDING)) {
+	    Tcl_DoWhenIdle(DisplayMenuButton, (ClientData) mbPtr);
+	    mbPtr->flags |= REDRAW_PENDING;
+	}
+    }
+}
diff --git a/Tk/generic/tkMessage.c b/Tk/generic/tkMessage.c
new file mode 100644
index 0000000..75a59e6
--- /dev/null
+++ b/Tk/generic/tkMessage.c
@@ -0,0 +1,907 @@
+/* 
+ * tkMessage.c --
+ *
+ *	This module implements a message widgets for the Tk
+ *	toolkit.  A message widget displays a multi-line string
+ *	in a window according to a particular aspect ratio.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkMessage.c 1.66 96/02/15 18:52:28
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each message
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the message.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with message. */
+    Tcl_Command widgetCmd;	/* Token for message's widget command. */
+    Tk_Uid string;		/* String displayed in message. */
+    int numChars;		/* Number of characters in string, not
+				 * including terminating NULL character. */
+    char *textVarName;		/* Name of variable (malloc'ed) or NULL.
+				 * If non-NULL, message displays the contents
+				 * of this variable. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    Tk_3DBorder border;		/* Structure used to draw 3-D border and
+				 * background.  NULL means a border hasn't
+				 * been created yet. */
+    int borderWidth;		/* Width of border. */
+    int relief;			/* 3-D effect: TK_RELIEF_RAISED, etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *fgColorPtr;		/* Foreground color in normal mode. */
+    GC textGC;			/* GC for drawing text in normal mode. */
+    int padX, padY;		/* User-requested extra space around text. */
+    Tk_Anchor anchor;		/* Where to position text within window region
+				 * if window is larger or smaller than
+				 * needed. */
+    int width;			/* User-requested width, in pixels.  0 means
+				 * compute width using aspect ratio below. */
+    int aspect;			/* Desired aspect ratio for window
+				 * (100*width/height). */
+    int lineLength;		/* Length of each line, in pixels.  Computed
+				 * from width and/or aspect. */
+    int msgHeight;		/* Total number of pixels in vertical direction
+				 * needed to display message. */
+    Tk_Justify justify;		/* Justification for text. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} Message;
+
+/*
+ * Flag bits for messages:
+ *
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * GOT_FOCUS:			Non-zero means this button currently
+ *				has the input focus.
+ */
+
+#define REDRAW_PENDING		1
+#define GOT_FOCUS		4
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_ANCHOR, "-anchor", "anchor", "Anchor",
+	DEF_MESSAGE_ANCHOR, Tk_Offset(Message, anchor), 0},
+    {TK_CONFIG_INT, "-aspect", "aspect", "Aspect",
+	DEF_MESSAGE_ASPECT, Tk_Offset(Message, aspect), 0},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MESSAGE_BG_COLOR, Tk_Offset(Message, border),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_MESSAGE_BG_MONO, Tk_Offset(Message, border),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_MESSAGE_BORDER_WIDTH, Tk_Offset(Message, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_MESSAGE_CURSOR, Tk_Offset(Message, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_MESSAGE_FONT, Tk_Offset(Message, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_MESSAGE_FG, Tk_Offset(Message, fgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_MESSAGE_HIGHLIGHT_BG,
+	Tk_Offset(Message, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_MESSAGE_HIGHLIGHT, Tk_Offset(Message, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_MESSAGE_HIGHLIGHT_WIDTH, Tk_Offset(Message, highlightWidth), 0},
+    {TK_CONFIG_JUSTIFY, "-justify", "justify", "Justify",
+	DEF_MESSAGE_JUSTIFY, Tk_Offset(Message, justify), 0},
+    {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
+	DEF_MESSAGE_PADX, Tk_Offset(Message, padX), 0},
+    {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
+	DEF_MESSAGE_PADY, Tk_Offset(Message, padY), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_MESSAGE_RELIEF, Tk_Offset(Message, relief), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_MESSAGE_TAKE_FOCUS, Tk_Offset(Message, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-text", "text", "Text",
+	DEF_MESSAGE_TEXT, Tk_Offset(Message, string), 0},
+    {TK_CONFIG_STRING, "-textvariable", "textVariable", "Variable",
+	DEF_MESSAGE_TEXT_VARIABLE, Tk_Offset(Message, textVarName),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-width", "width", "Width",
+	DEF_MESSAGE_WIDTH, Tk_Offset(Message, width), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		MessageCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		MessageEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static char *		MessageTextVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static int		MessageWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		ComputeMessageGeometry _ANSI_ARGS_((Message *msgPtr));
+static int		ConfigureMessage _ANSI_ARGS_((Tcl_Interp *interp,
+			    Message *msgPtr, int argc, char **argv,
+			    int flags));
+static void		DestroyMessage _ANSI_ARGS_((char *memPtr));
+static void		DisplayMessage _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MessageCmd --
+ *
+ *	This procedure is invoked to process the "message" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_MessageCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Message *msgPtr;
+    Tk_Window new;
+    Tk_Window tkwin = (Tk_Window) clientData;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    msgPtr = (Message *) ckalloc(sizeof(Message));
+    msgPtr->tkwin = new;
+    msgPtr->display = Tk_Display(new);
+    msgPtr->interp = interp;
+    msgPtr->widgetCmd = Tcl_CreateCommand(interp, Tk_PathName(msgPtr->tkwin),
+	    MessageWidgetCmd, (ClientData) msgPtr, MessageCmdDeletedProc);
+    msgPtr->string = NULL;
+    msgPtr->numChars = 0;
+    msgPtr->textVarName = NULL;
+    msgPtr->border = NULL;
+    msgPtr->borderWidth = 0;
+    msgPtr->relief = TK_RELIEF_FLAT;
+    msgPtr->highlightWidth = 0;
+    msgPtr->highlightBgColorPtr = NULL;
+    msgPtr->highlightColorPtr = NULL;
+    msgPtr->inset = 0;
+    msgPtr->fontPtr = NULL;
+    msgPtr->fgColorPtr = NULL;
+    msgPtr->textGC = None;
+    msgPtr->padX = 0;
+    msgPtr->padY = 0;
+    msgPtr->anchor = TK_ANCHOR_CENTER;
+    msgPtr->width = 0;
+    msgPtr->aspect = 150;
+    msgPtr->lineLength = 0;
+    msgPtr->msgHeight = 0;
+    msgPtr->justify = TK_JUSTIFY_LEFT;
+    msgPtr->cursor = None;
+    msgPtr->takeFocus = NULL;
+    msgPtr->flags = 0;
+
+    Tk_SetClass(msgPtr->tkwin, "Message");
+    Tk_CreateEventHandler(msgPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    MessageEventProc, (ClientData) msgPtr);
+    if (ConfigureMessage(interp, msgPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(msgPtr->tkwin));
+#else
+    interp->result = Tk_PathName(msgPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(msgPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MessageWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+MessageWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about message widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register Message *msgPtr = (Message *) clientData;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return Tk_ConfigureValue(interp, msgPtr->tkwin, configSpecs,
+		(char *) msgPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length  >= 2)) {
+	if (argc == 2) {
+	    return Tk_ConfigureInfo(interp, msgPtr->tkwin, configSpecs,
+		    (char *) msgPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    return Tk_ConfigureInfo(interp, msgPtr->tkwin, configSpecs,
+		    (char *) msgPtr, argv[2], 0);
+	} else {
+	    return ConfigureMessage(interp, msgPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget or configure", (char *) NULL);
+	return TCL_ERROR;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyMessage --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a message at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the message is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyMessage(memPtr)
+    char *memPtr;		/* Info about message widget. */
+{
+    register Message *msgPtr = (Message *) memPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (msgPtr->textVarName != NULL) {
+	Tcl_UntraceVar(msgPtr->interp, msgPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MessageTextVarProc, (ClientData) msgPtr);
+    }
+    if (msgPtr->textGC != None) {
+	Tk_FreeGC(msgPtr->display, msgPtr->textGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) msgPtr, msgPtr->display, 0);
+    ckfree((char *) msgPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureMessage --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a message widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as text string, colors, font,
+ *	etc. get set for msgPtr;  old resources get freed, if there
+ *	were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureMessage(interp, msgPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Message *msgPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC;
+
+    /*
+     * Eliminate any existing trace on a variable monitored by the message.
+     */
+
+    if (msgPtr->textVarName != NULL) {
+	Tcl_UntraceVar(interp, msgPtr->textVarName, 
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MessageTextVarProc, (ClientData) msgPtr);
+    }
+
+    if (Tk_ConfigureWidget(interp, msgPtr->tkwin, configSpecs,
+	    argc, argv, (char *) msgPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * If the message is to display the value of a variable, then set up
+     * a trace on the variable's value, create the variable if it doesn't
+     * exist, and fetch its current value.
+     */
+
+    if (msgPtr->textVarName != NULL) {
+	char *value;
+
+	value = Tcl_GetVar(interp, msgPtr->textVarName, TCL_GLOBAL_ONLY);
+	if (value == NULL) {
+	    Tcl_SetVar(interp, msgPtr->textVarName, msgPtr->string,
+		    TCL_GLOBAL_ONLY);
+	} else {
+	    if (msgPtr->string != NULL) {
+		ckfree(msgPtr->string);
+	    }
+	    msgPtr->string = (char *) ckalloc((unsigned) (strlen(value) + 1));
+	    strcpy(msgPtr->string, value);
+	}
+	Tcl_TraceVar(interp, msgPtr->textVarName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		MessageTextVarProc, (ClientData) msgPtr);
+    }
+
+    /*
+     * A few other options need special processing, such as setting
+     * the background from a 3-D border or handling special defaults
+     * that couldn't be specified to Tk_ConfigureWidget.
+     */
+
+    msgPtr->numChars = strlen(msgPtr->string);
+
+    Tk_SetBackgroundFromBorder(msgPtr->tkwin, msgPtr->border);
+
+    if (msgPtr->highlightWidth < 0) {
+	msgPtr->highlightWidth = 0;
+    }
+
+    gcValues.font = msgPtr->fontPtr->fid;
+    gcValues.foreground = msgPtr->fgColorPtr->pixel;
+    newGC = Tk_GetGC(msgPtr->tkwin, GCForeground|GCFont,
+	    &gcValues);
+    if (msgPtr->textGC != None) {
+	Tk_FreeGC(msgPtr->display, msgPtr->textGC);
+    }
+    msgPtr->textGC = newGC;
+
+    if (msgPtr->padX == -1) {
+	msgPtr->padX = msgPtr->fontPtr->ascent/2;
+    }
+
+    if (msgPtr->padY == -1) {
+	msgPtr->padY = msgPtr->fontPtr->ascent/4;
+    }
+
+    /*
+     * Recompute the desired geometry for the window, and arrange for
+     * the window to be redisplayed.
+     */
+
+    ComputeMessageGeometry(msgPtr);
+    if ((msgPtr->tkwin != NULL) && Tk_IsMapped(msgPtr->tkwin)
+	    && !(msgPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMessage, (ClientData) msgPtr);
+	msgPtr->flags |= REDRAW_PENDING;
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeMessageGeometry --
+ *
+ *	Compute the desired geometry for a message window,
+ *	taking into account the desired aspect ratio for the
+ *	window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tk_GeometryRequest is called to inform the geometry
+ *	manager of the desired geometry for this window.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ComputeMessageGeometry(msgPtr)
+    register Message *msgPtr;	/* Information about window. */
+{
+    char *p;
+    int width, inc, height, numLines;
+    int thisWidth, maxWidth;
+    int aspect, lowerBound, upperBound;
+
+    msgPtr->inset = msgPtr->borderWidth + msgPtr->highlightWidth;
+
+    /*
+     * Compute acceptable bounds for the final aspect ratio.
+     */
+
+    aspect = msgPtr->aspect/10;
+    if (aspect < 5) {
+	aspect = 5;
+    }
+    lowerBound = msgPtr->aspect - aspect;
+    upperBound = msgPtr->aspect + aspect;
+
+    /*
+     * Do the computation in multiple passes:  start off with
+     * a very wide window, and compute its height.  Then change
+     * the width and try again.  Reduce the size of the change
+     * and iterate until dimensions are found that approximate
+     * the desired aspect ratio.  Or, if the user gave an explicit
+     * width then just use that.
+     */
+
+    if (msgPtr->width > 0) {
+	width = msgPtr->width;
+	inc = 0;
+    } else {
+	width = WidthOfScreen(Tk_Screen(msgPtr->tkwin))/2;
+	inc = width/2;
+    }
+    for ( ; ; inc /= 2) {
+	maxWidth = 0;
+	for (numLines = 1, p = msgPtr->string; ; numLines++)  {
+	    if (*p == '\n') {
+		p++;
+		continue;
+	    }
+	    p += TkMeasureChars(msgPtr->fontPtr, p,
+		    msgPtr->numChars - (p - msgPtr->string), 0, width, 0,
+		    TK_WHOLE_WORDS|TK_AT_LEAST_ONE, &thisWidth);
+	    if (thisWidth > maxWidth) {
+		maxWidth = thisWidth;
+	    }
+	    if (*p == 0) {
+		break;
+	    }
+
+	    /*
+	     * Skip spaces and tabs at the beginning of a line, unless
+	     * they follow a user-requested newline.
+	     */
+
+	    while (isspace(UCHAR(*p))) {
+		if (*p == '\n') {
+		    p++;
+		    break;
+		}
+		p++;
+	    }
+	}
+
+	height = numLines * (msgPtr->fontPtr->ascent
+		+ msgPtr->fontPtr->descent) + 2*msgPtr->inset
+		+ 2*msgPtr->padY;
+	if (inc <= 2) {
+	    break;
+	}
+	aspect = (100*(maxWidth + 2*msgPtr->inset + 2*msgPtr->padX))/height;
+	if (aspect < lowerBound) {
+	    width += inc;
+	} else if (aspect > upperBound) {
+	    width -= inc;
+	} else {
+	    break;
+	}
+    }
+    msgPtr->lineLength = maxWidth;
+    msgPtr->msgHeight = numLines * (msgPtr->fontPtr->ascent
+		+ msgPtr->fontPtr->descent);
+    Tk_GeometryRequest(msgPtr->tkwin,
+	    maxWidth + 2*msgPtr->inset + 2*msgPtr->padX, height);
+    Tk_SetInternalBorder(msgPtr->tkwin, msgPtr->inset);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayMessage --
+ *
+ *	This procedure redraws the contents of a message window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayMessage(clientData)
+    ClientData clientData;	/* Information about window. */
+{
+    register Message *msgPtr = (Message *) clientData;
+    register Tk_Window tkwin = msgPtr->tkwin;
+    char *p;
+    int x, y, lineLength, numChars, charsLeft;
+
+    msgPtr->flags &= ~REDRAW_PENDING;
+    if ((msgPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	return;
+    }
+    Tk_Fill3DRectangle(tkwin, Tk_WindowId(tkwin), msgPtr->border, 0, 0,
+	    Tk_Width(tkwin), Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
+
+    /*
+     * Compute starting y-location for message based on message size
+     * and anchor option.
+     */
+
+    switch (msgPtr->anchor) {
+	case TK_ANCHOR_NW: case TK_ANCHOR_N: case TK_ANCHOR_NE:
+	    y = msgPtr->inset + msgPtr->padY;
+	    break;
+	case TK_ANCHOR_W: case TK_ANCHOR_CENTER: case TK_ANCHOR_E:
+	    y = ((int) (Tk_Height(tkwin) - msgPtr->msgHeight))/2;
+	    break;
+	default:
+	    y = Tk_Height(tkwin) - msgPtr->inset - msgPtr->padY
+		    - msgPtr->msgHeight;
+	    break;
+    }
+    y += msgPtr->fontPtr->ascent;
+
+    /*
+     * Work through the string to display one line at a time.
+     * Display each line in three steps.  First compute the
+     * line's width, then figure out where to display the
+     * line to justify it properly, then display the line.
+     */
+
+    for (p = msgPtr->string, charsLeft = msgPtr->numChars; *p != 0;
+	    y += msgPtr->fontPtr->ascent + msgPtr->fontPtr->descent) {
+	if (*p == '\n') {
+	    p++;
+	    charsLeft--;
+	    continue;
+	}
+	numChars = TkMeasureChars(msgPtr->fontPtr, p, charsLeft, 0,
+		msgPtr->lineLength, 0, TK_WHOLE_WORDS|TK_AT_LEAST_ONE,
+		&lineLength);
+	switch (msgPtr->anchor) {
+	    case TK_ANCHOR_NW: case TK_ANCHOR_W: case TK_ANCHOR_SW:
+		x = msgPtr->inset + msgPtr->padX;
+		break;
+	    case TK_ANCHOR_N: case TK_ANCHOR_CENTER: case TK_ANCHOR_S:
+		x = ((int) (Tk_Width(tkwin) - msgPtr->lineLength))/2;
+		break;
+	    default:
+		x = Tk_Width(tkwin) - msgPtr->inset - msgPtr->padX
+			- msgPtr->lineLength;
+		break;
+	}
+	if (msgPtr->justify == TK_JUSTIFY_CENTER) {
+	    x += (msgPtr->lineLength - lineLength)/2;
+	} else if (msgPtr->justify == TK_JUSTIFY_RIGHT) {
+	    x += msgPtr->lineLength - lineLength;
+	}
+	TkDisplayChars(msgPtr->display, Tk_WindowId(tkwin),
+		msgPtr->textGC, msgPtr->fontPtr, p, numChars, x, y, x, 0);
+	p += numChars;
+	charsLeft -= numChars;
+
+	/*
+	 * Skip blanks at the beginning of a line, unless they follow
+	 * a user-requested newline.
+	 */
+
+	while (isspace(UCHAR(*p))) {
+	    charsLeft--;
+	    if (*p == '\n') {
+		p++;
+		break;
+	    }
+	    p++;
+	}
+    }
+
+    if (msgPtr->relief != TK_RELIEF_FLAT) {
+	Tk_Draw3DRectangle(tkwin, Tk_WindowId(tkwin), msgPtr->border,
+		msgPtr->highlightWidth, msgPtr->highlightWidth,
+		Tk_Width(tkwin) - 2*msgPtr->highlightWidth,
+		Tk_Height(tkwin) - 2*msgPtr->highlightWidth,
+		msgPtr->borderWidth, msgPtr->relief);
+    }
+    if (msgPtr->highlightWidth != 0) {
+	GC gc;
+
+	if (msgPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(msgPtr->highlightColorPtr, Tk_WindowId(tkwin));
+	} else {
+	    gc = Tk_GCForColor(msgPtr->highlightBgColorPtr, Tk_WindowId(tkwin));
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, msgPtr->highlightWidth,
+		Tk_WindowId(tkwin));
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MessageEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on messages.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+MessageEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Message *msgPtr = (Message *) clientData;
+
+    if (((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0))
+	    || (eventPtr->type == ConfigureNotify)) {
+	goto redraw;
+    } else if (eventPtr->type == DestroyNotify) {
+	if (msgPtr->tkwin != NULL) {
+	    msgPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(msgPtr->interp,
+		    Tcl_GetCommandName(msgPtr->interp, msgPtr->widgetCmd));
+	}
+	if (msgPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayMessage, (ClientData) msgPtr);
+	}
+	Tcl_EventuallyFree((ClientData) msgPtr, DestroyMessage);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    msgPtr->flags |= GOT_FOCUS;
+	    if (msgPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    msgPtr->flags &= ~GOT_FOCUS;
+	    if (msgPtr->highlightWidth > 0) {
+		goto redraw;
+	    }
+	}
+    }
+    return;
+
+    redraw:
+    if ((msgPtr->tkwin != NULL) && !(msgPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMessage, (ClientData) msgPtr);
+	msgPtr->flags |= REDRAW_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MessageCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MessageCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Message *msgPtr = (Message *) clientData;
+    Tk_Window tkwin = msgPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	msgPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MessageTextVarProc --
+ *
+ *	This procedure is invoked when someone changes the variable
+ *	whose contents are to be displayed in a message.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The text displayed in the message will change to match the
+ *	variable.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+MessageTextVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about message. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    register Message *msgPtr = (Message *) clientData;
+    char *value;
+
+    /*
+     * If the variable is unset, then immediately recreate it unless
+     * the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_SetVar(interp, msgPtr->textVarName, msgPtr->string,
+		    TCL_GLOBAL_ONLY);
+	    Tcl_TraceVar(interp, msgPtr->textVarName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    MessageTextVarProc, clientData);
+	}
+	return (char *) NULL;
+    }
+
+    value = Tcl_GetVar(interp, msgPtr->textVarName, TCL_GLOBAL_ONLY);
+    if (value == NULL) {
+	value = "";
+    }
+    if (msgPtr->string != NULL) {
+	ckfree(msgPtr->string);
+    }
+    msgPtr->numChars = strlen(value);
+    msgPtr->string = (char *) ckalloc((unsigned) (msgPtr->numChars + 1));
+    strcpy(msgPtr->string, value);
+    ComputeMessageGeometry(msgPtr);
+
+    if ((msgPtr->tkwin != NULL) && Tk_IsMapped(msgPtr->tkwin)
+	    && !(msgPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayMessage, (ClientData) msgPtr);
+	msgPtr->flags |= REDRAW_PENDING;
+    }
+    return (char *) NULL;
+}
diff --git a/Tk/generic/tkOption.c b/Tk/generic/tkOption.c
new file mode 100644
index 0000000..af8e682
--- /dev/null
+++ b/Tk/generic/tkOption.c
@@ -0,0 +1,1388 @@
+/* 
+ * tkOption.c --
+ *
+ *	This module contains procedures to manage the option
+ *	database, which allows various strings to be associated
+ *	with windows either by name or by class or both.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkOption.c 1.55 96/05/01 14:54:25
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The option database is stored as one tree for each main window.
+ * Each name or class field in an option is associated with a node or
+ * leaf of the tree.  For example, the options "x.y.z" and "x.y*a"
+ * each correspond to three nodes in the tree;  they share the nodes
+ * "x" and "x.y", but have different leaf nodes.  One of the following
+ * structures exists for each node or leaf in the option tree.  It is
+ * actually stored as part of the parent node, and describes a particular
+ * child of the parent.
+ */
+
+typedef struct Element {
+    Tk_Uid nameUid;			/* Name or class from one element of
+					 * an option spec. */
+    union {
+	struct ElArray *arrayPtr;	/* If this is an intermediate node,
+					 * a pointer to a structure describing
+					 * the remaining elements of all
+					 * options whose prefixes are the
+					 * same up through this element. */
+	Tk_Uid valueUid;		/* For leaf nodes, this is the string
+					 * value of the option. */
+    } child;
+    int priority;			/* Used to select among matching
+					 * options.  Includes both the
+					 * priority level and a serial #.
+					 * Greater value means higher
+					 * priority.  Irrelevant except in
+					 * leaf nodes. */
+    int flags;				/* OR-ed combination of bits.  See
+					 * below for values. */
+} Element;
+
+/*
+ * Flags in Element structures:
+ *
+ * CLASS -		Non-zero means this element refers to a class,
+ *			Zero means this element refers to a name.
+ * NODE -		Zero means this is a leaf element (the child
+ *			field is a value, not a pointer to another node).
+ *			One means this is a node element.
+ * WILDCARD -		Non-zero means this there was a star in the
+ *			original specification just before this element.
+ *			Zero means there was a dot.
+ */
+
+#define TYPE_MASK		0x7
+
+#define CLASS			0x1
+#define NODE			0x2
+#define WILDCARD		0x4
+
+#define EXACT_LEAF_NAME		0x0
+#define EXACT_LEAF_CLASS	0x1
+#define EXACT_NODE_NAME		0x2
+#define EXACT_NODE_CLASS	0x3
+#define WILDCARD_LEAF_NAME	0x4
+#define WILDCARD_LEAF_CLASS	0x5
+#define WILDCARD_NODE_NAME	0x6
+#define WILDCARD_NODE_CLASS	0x7
+
+/*
+ * The following structure is used to manage a dynamic array of
+ * Elements.  These structures are used for two purposes:  to store
+ * the contents of a node in the option tree, and for the option
+ * stacks described below.
+ */
+
+typedef struct ElArray {
+    int arraySize;		/* Number of elements actually
+				 * allocated in the "els" array. */
+    int numUsed;		/* Number of elements currently in
+				 * use out of els. */
+    Element *nextToUse;		/* Pointer to &els[numUsed]. */
+    Element els[1];		/* Array of structures describing
+				 * children of this node.  The
+				 * array will actually contain enough
+				 * elements for all of the children
+				 * (and even a few extras, perhaps).
+				 * This must be the last field in
+				 * the structure. */
+} ElArray;
+
+#define EL_ARRAY_SIZE(numEls) ((unsigned) (sizeof(ElArray) \
+	+ ((numEls)-1)*sizeof(Element)))
+#define INITIAL_SIZE 5
+
+/*
+ * In addition to the option tree, which is a relatively static structure,
+ * there are eight additional structures called "stacks", which are used
+ * to speed up queries into the option database.  The stack structures
+ * are designed for the situation where an individual widget makes repeated
+ * requests for its particular options.  The requests differ only in
+ * their last name/class, so during the first request we extract all
+ * the options pertaining to the particular widget and save them in a
+ * stack-like cache;  subsequent requests for the same widget can search
+ * the cache relatively quickly.  In fact, the cache is a hierarchical
+ * one, storing a list of relevant options for this widget and all of
+ * its ancestors up to the application root;  hence the name "stack".
+ *
+ * Each of the eight stacks consists of an array of Elements, ordered in
+ * terms of levels in the window hierarchy.  All the elements relevant
+ * for the top-level widget appear first in the array, followed by all
+ * those from the next-level widget on the path to the current widget,
+ * etc. down to those for the current widget.
+ *
+ * Cached information is divided into eight stacks according to the
+ * CLASS, NODE, and WILDCARD flags.  Leaf and non-leaf information is
+ * kept separate to speed up individual probes (non-leaf information is
+ * only relevant when building the stacks, but isn't relevant when
+ * making probes;  similarly, only non-leaf information is relevant
+ * when the stacks are being extended to the next widget down in the
+ * widget hierarchy).  Wildcard elements are handled separately from
+ * "exact" elements because once they appear at a particular level in
+ * the stack they remain active for all deeper levels;  exact elements
+ * are only relevant at a particular level.  For example, when searching
+ * for options relevant in a particular window, the entire wildcard
+ * stacks get checked, but only the portions of the exact stacks that
+ * pertain to the window's parent.  Lastly, name and class stacks are
+ * kept separate because different search keys are used when searching
+ * them;  keeping them separate speeds up the searches.
+ */
+
+#define NUM_STACKS 8
+static ElArray *stacks[NUM_STACKS];
+static TkWindow *cachedWindow = NULL;	/* Lowest-level window currently
+					 * loaded in stacks at present. 
+					 * NULL means stacks have never
+					 * been used, or have been
+					 * invalidated because of a change
+					 * to the database. */
+
+/*
+ * One of the following structures is used to keep track of each
+ * level in the stacks.
+ */
+
+typedef struct StackLevel {
+    TkWindow *winPtr;		/* Window corresponding to this stack
+				 * level. */
+    int bases[NUM_STACKS];	/* For each stack, index of first
+				 * element on stack corresponding to
+				 * this level (used to restore "numUsed"
+				 * fields when popping out of a level. */
+} StackLevel;
+
+/*
+ * Information about all of the stack levels that are currently
+ * active.  This array grows dynamically to become as large as needed.
+ */
+
+static StackLevel *levels = NULL;
+				/* Array describing current stack. */
+static int numLevels = 0;	/* Total space allocated. */
+static int curLevel = -1;	/* Highest level currently in use.  Note:
+				 * curLevel is never 0!  (I don't remember
+				 * why anymore...) */
+
+/*
+ * The variable below is a serial number for all options entered into
+ * the database so far.  It increments on each addition to the option
+ * database.  It is used in computing option priorities, so that the
+ * most recent entry wins when choosing between options at the same
+ * priority level.
+ */
+
+static int serial = 0;
+
+/*
+ * Special "no match" Element to use as default for searches.
+ */
+
+static Element defaultMatch;
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static int		AddFromString _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string, int priority));
+static void		ClearOptionTree _ANSI_ARGS_((ElArray *arrayPtr));
+static ElArray *	ExtendArray _ANSI_ARGS_((ElArray *arrayPtr,
+			    Element *elPtr));
+static void		ExtendStacks _ANSI_ARGS_((ElArray *arrayPtr,
+			    int leaf));
+static int		GetDefaultOptions _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkWindow *winPtr));	
+static ElArray *	NewArray _ANSI_ARGS_((int numEls));	
+static void		OptionInit _ANSI_ARGS_((TkMainInfo *mainPtr));
+static int		ParsePriority _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string));
+static int		ReadOptionFile _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *fileName, int priority));
+static void		SetupStacks _ANSI_ARGS_((TkWindow *winPtr, int leaf));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_AddOption --
+ *
+ *	Add a new option to the option database.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information is added to the option database.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_AddOption(tkwin, name, value, priority)
+    Tk_Window tkwin;		/* Window token;  option will be associated
+				 * with main window for this window. */
+    char *name;			/* Multi-element name of option. */
+    char *value;		/* String value for option. */
+    int priority;		/* Overall priority level to use for
+				 * this option, such as TK_USER_DEFAULT_PRIO
+				 * or TK_INTERACTIVE_PRIO.  Must be between
+				 * 0 and TK_MAX_PRIO. */
+{
+    TkWindow *winPtr = ((TkWindow *) tkwin)->mainPtr->winPtr;
+    register ElArray **arrayPtrPtr;
+    register Element *elPtr;
+    Element newEl;
+    register char *p;
+    char *field;
+    int count, firstField, length;
+#define TMP_SIZE 100
+    char tmp[TMP_SIZE+1];
+
+    if (winPtr->mainPtr->optionRootPtr == NULL) {
+	OptionInit(winPtr->mainPtr);
+    }
+    cachedWindow = NULL;	/* Invalidate the cache. */
+
+    /*
+     * Compute the priority for the new element, including both the
+     * overall level and the serial number (to disambiguate with the
+     * level).
+     */
+
+    if (priority < 0) {
+	priority = 0;
+    } else if (priority > TK_MAX_PRIO) {
+	priority = TK_MAX_PRIO;
+    }
+    newEl.priority = (priority << 24) + serial;
+    serial++;
+
+    /*
+     * Parse the option one field at a time.
+     */
+
+    arrayPtrPtr = &(((TkWindow *) tkwin)->mainPtr->optionRootPtr);
+    p = name;
+    for (firstField = 1; ; firstField = 0) {
+
+	/*
+	 * Scan the next field from the name and convert it to a Tk_Uid.
+	 * Must copy the field before calling Tk_Uid, so that a terminating
+	 * NULL may be added without modifying the source string.
+	 */
+
+	if (*p == '*') {
+	    newEl.flags = WILDCARD;
+	    p++;
+	} else {
+	    newEl.flags = 0;
+	}
+	field = p;
+	while ((*p != 0) && (*p != '.') && (*p != '*')) {
+	    p++;
+	}
+	length = p - field;
+	if (length > TMP_SIZE) {
+	    length = TMP_SIZE;
+	}
+	strncpy(tmp, field, (size_t) length);
+	tmp[length] = 0;
+	newEl.nameUid = Tk_GetUid(tmp);
+	if (isupper(UCHAR(*field))) {
+	    newEl.flags |= CLASS;
+	}
+
+	if (*p != 0) {
+
+	    /*
+	     * New element will be a node.  If this option can't possibly
+	     * apply to this main window, then just skip it.  Otherwise,
+	     * add it to the parent, if it isn't already there, and descend
+	     * into it.
+	     */
+
+	    newEl.flags |= NODE;
+	    if (firstField && !(newEl.flags & WILDCARD)
+		    && (newEl.nameUid != winPtr->nameUid)
+		    && (newEl.nameUid != winPtr->classUid)) {
+		return;
+	    }
+	    for (elPtr = (*arrayPtrPtr)->els, count = (*arrayPtrPtr)->numUsed;
+		    ; elPtr++, count--) {
+		if (count == 0) {
+		    newEl.child.arrayPtr = NewArray(5);
+		    *arrayPtrPtr = ExtendArray(*arrayPtrPtr, &newEl);
+		    arrayPtrPtr = &((*arrayPtrPtr)->nextToUse[-1].child.arrayPtr);
+		    break;
+		}
+		if ((elPtr->nameUid == newEl.nameUid)
+			&& (elPtr->flags == newEl.flags)) {
+		    arrayPtrPtr = &(elPtr->child.arrayPtr);
+		    break;
+		}
+	    }
+	    if (*p == '.') {
+		p++;
+	    }
+	} else {
+
+	    /*
+	     * New element is a leaf.  Add it to the parent, if it isn't
+	     * already there.  If it exists already, keep whichever value
+	     * has highest priority.
+	     */
+
+	    newEl.child.valueUid = Tk_GetUid(value);
+	    for (elPtr = (*arrayPtrPtr)->els, count = (*arrayPtrPtr)->numUsed;
+		    ; elPtr++, count--) {
+		if (count == 0) {
+		    *arrayPtrPtr = ExtendArray(*arrayPtrPtr, &newEl);
+		    return;
+		}
+		if ((elPtr->nameUid == newEl.nameUid)
+			&& (elPtr->flags == newEl.flags)) {
+		    if (elPtr->priority < newEl.priority) {
+			elPtr->priority = newEl.priority;
+			elPtr->child.valueUid = newEl.child.valueUid;
+		    }
+		    return;
+		}
+	    }
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetOption --
+ *
+ *	Retrieve an option from the option database.
+ *
+ * Results:
+ *	The return value is the value specified in the option
+ *	database for the given name and class on the given
+ *	window.  If there is nothing specified in the database
+ *	for that option, then NULL is returned.
+ *
+ * Side effects:
+ *	The internal caches used to speed up option mapping
+ *	may be modified, if this tkwin is different from the
+ *	last tkwin used for option retrieval.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_Uid
+Tk_GetOption(tkwin, name, className)
+    Tk_Window tkwin;		/* Token for window that option is
+				 * associated with. */
+    char *name;			/* Name of option. */
+    char *className;		/* Class of option.  NULL means there
+				 * is no class for this option:  just
+				 * check for name. */
+{
+    Tk_Uid nameId, classId;
+    register Element *elPtr, *bestPtr;
+    register int count;
+
+    /*
+     * Note:  no need to call OptionInit here:  it will be done by
+     * the SetupStacks call below (squeeze out those nanoseconds).
+     */
+
+    if (tkwin != (Tk_Window) cachedWindow) {
+	SetupStacks((TkWindow *) tkwin, 1);
+    }
+
+    nameId = Tk_GetUid(name);
+    bestPtr = &defaultMatch;
+    for (elPtr = stacks[EXACT_LEAF_NAME]->els,
+	    count = stacks[EXACT_LEAF_NAME]->numUsed; count > 0;
+	    elPtr++, count--) {
+	if ((elPtr->nameUid == nameId)
+		&& (elPtr->priority > bestPtr->priority)) {
+	    bestPtr = elPtr;
+	}
+    }
+    for (elPtr = stacks[WILDCARD_LEAF_NAME]->els,
+	    count = stacks[WILDCARD_LEAF_NAME]->numUsed; count > 0;
+	    elPtr++, count--) {
+	if ((elPtr->nameUid == nameId)
+		&& (elPtr->priority > bestPtr->priority)) {
+	    bestPtr = elPtr;
+	}
+    }
+    if (className != NULL) {
+	classId = Tk_GetUid(className);
+	for (elPtr = stacks[EXACT_LEAF_CLASS]->els,
+		count = stacks[EXACT_LEAF_CLASS]->numUsed; count > 0;
+		elPtr++, count--) {
+	    if ((elPtr->nameUid == classId)
+		    && (elPtr->priority > bestPtr->priority)) {
+		bestPtr = elPtr;
+	    }
+	}
+	for (elPtr = stacks[WILDCARD_LEAF_CLASS]->els,
+		count = stacks[WILDCARD_LEAF_CLASS]->numUsed; count > 0;
+		elPtr++, count--) {
+	    if ((elPtr->nameUid == classId)
+		    && (elPtr->priority > bestPtr->priority)) {
+		bestPtr = elPtr;
+	    }
+	}
+    }
+    return bestPtr->child.valueUid;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_OptionCmd --
+ *
+ *	This procedure is invoked to process the "option" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_OptionCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    size_t length;
+    char c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" cmd arg ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "add", length) == 0)) {
+	int priority;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " add pattern value ?priority?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 4) {
+	    priority = TK_INTERACTIVE_PRIO;
+	} else {
+	    priority = ParsePriority(interp, argv[4]);
+	    if (priority < 0) {
+		return TCL_ERROR;
+	    }
+	}
+	Tk_AddOption(tkwin, argv[2], argv[3], priority);
+	return TCL_OK;
+    } else if ((c == 'c') && (strncmp(argv[1], "clear", length) == 0)) {
+	TkMainInfo *mainPtr;
+
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " clear\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	mainPtr = ((TkWindow *) tkwin)->mainPtr;
+	if (mainPtr->optionRootPtr != NULL) {
+	    ClearOptionTree(mainPtr->optionRootPtr);
+	    mainPtr->optionRootPtr = NULL;
+	}
+	cachedWindow = NULL;
+	return TCL_OK;
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	Tk_Window window;
+	Tk_Uid value;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get window name class\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (window == NULL) {
+	    return TCL_ERROR;
+	}
+	value = Tk_GetOption(window, argv[3], argv[4]);
+	if (value != NULL) {
+#ifdef STk_CODE
+	    STk_stringify_result(interp, value);
+#else
+	    interp->result = value;
+#endif
+	}
+	return TCL_OK;
+    } else if ((c == 'r') && (strncmp(argv[1], "readfile", length) == 0)) {
+	int priority;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " readfile fileName ?priority?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 4) {
+	    priority = ParsePriority(interp, argv[3]);
+	    if (priority < 0) {
+		return TCL_ERROR;
+	    }
+	} else {
+	    priority = TK_INTERACTIVE_PRIO;
+	}
+	return ReadOptionFile(interp, tkwin, argv[2], priority);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be add, clear, get, or readfile", (char *) NULL);
+	return TCL_ERROR;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkOptionDeadWindow --
+ *
+ *	This procedure is called whenever a window is deleted.
+ *	It cleans up any option-related stuff associated with
+ *	the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Option-related resources are freed.  See code below
+ *	for details.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkOptionDeadWindow(winPtr)
+    register TkWindow *winPtr;		/* Window to be cleaned up. */
+{
+    /*
+     * If this window is in the option stacks, then clear the stacks.
+     */
+
+    if (winPtr->optionLevel != -1) {
+	int i;
+
+	for (i = 1; i <= curLevel; i++) {
+	    levels[i].winPtr->optionLevel = -1;
+	}
+	curLevel = -1;
+	cachedWindow = NULL;
+    }
+
+    /*
+     * If this window was a main window, then delete its option
+     * database.
+     */
+
+    if ((winPtr->mainPtr->winPtr == winPtr)
+	    && (winPtr->mainPtr->optionRootPtr != NULL)) {
+	ClearOptionTree(winPtr->mainPtr->optionRootPtr);
+	winPtr->mainPtr->optionRootPtr = NULL;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkOptionClassChanged --
+ *
+ *	This procedure is invoked when a window's class changes.  If
+ *	the window is on the option cache, this procedure flushes
+ *	any information for the window, since the new class could change
+ *	what is relevant.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The option cache may be flushed in part or in whole.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkOptionClassChanged(winPtr)
+    TkWindow *winPtr;			/* Window whose class changed. */
+{
+    int i, j, *basePtr;
+    ElArray *arrayPtr;
+
+    if (winPtr->optionLevel == -1) {
+	return;
+    }
+
+    /*
+     * Find the lowest stack level that refers to this window, then
+     * flush all of the levels above the matching one.
+     */
+
+    for (i = 1; i <= curLevel; i++) {
+	if (levels[i].winPtr == winPtr) {
+	    for (j = i; j <= curLevel; j++) {
+		levels[j].winPtr->optionLevel = -1;
+	    }
+	    curLevel = i-1;
+	    basePtr = levels[i].bases;
+	    for (j = 0; j < NUM_STACKS; j++) {
+		arrayPtr = stacks[j];
+		arrayPtr->numUsed = basePtr[j];
+		arrayPtr->nextToUse = &arrayPtr->els[arrayPtr->numUsed];
+	    }
+	    if (curLevel <= 0) {
+		cachedWindow = NULL;
+	    } else {
+		cachedWindow = levels[curLevel].winPtr;
+	    }
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ParsePriority --
+ *
+ *	Parse a string priority value.
+ *
+ * Results:
+ *	The return value is the integer priority level corresponding
+ *	to string, or -1 if string doesn't point to a valid priority level.
+ *	In this case, an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ParsePriority(interp, string)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    char *string;		/* Describes a priority level, either
+				 * symbolically or numerically. */
+{
+    int priority, c;
+    size_t length;
+
+    c = string[0];
+    length = strlen(string);
+    if ((c == 'w')
+	    && (strncmp(string, "widgetDefault", length) == 0)) {
+	return TK_WIDGET_DEFAULT_PRIO;
+    } else if ((c == 's')
+	    && (strncmp(string, "startupFile", length) == 0)) {
+	return TK_STARTUP_FILE_PRIO;
+    } else if ((c == 'u')
+	    && (strncmp(string, "userDefault", length) == 0)) {
+	return TK_USER_DEFAULT_PRIO;
+    } else if ((c == 'i')
+	    && (strncmp(string, "interactive", length) == 0)) {
+	return TK_INTERACTIVE_PRIO;
+    } else {
+	char *end;
+
+	priority = strtoul(string, &end, 0);
+	if ((end == string) || (*end != 0) || (priority < 0)
+		|| (priority > 100)) {
+	    Tcl_AppendResult(interp,  "bad priority level \"", string,
+		    "\": must be widgetDefault, startupFile, userDefault, ",
+		    "interactive, or a number between 0 and 100",
+		    (char *) NULL);
+	    return -1;
+	}
+    }
+    return priority;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * AddFromString --
+ *
+ *	Given a string containing lines in the standard format for
+ *	X resources (see other documentation for details on what this
+ *	is), parse the resource specifications and enter them as options
+ *	for tkwin's main window.
+ *
+ * Results:
+ *	The return value is a standard Tcl return code.  In the case of
+ *	an error in parsing string, TCL_ERROR will be returned and an
+ *	error message will be left in interp->result.  The memory at
+ *	string is totally trashed by this procedure.  If you care about
+ *	its contents, make a copy before calling here.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+AddFromString(interp, tkwin, string, priority)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting results. */
+    Tk_Window tkwin;		/* Token for window:  options are entered
+				 * for this window's main window. */
+    char *string;		/* String containing option specifiers. */
+    int priority;		/* Priority level to use for options in
+				 * this string, such as TK_USER_DEFAULT_PRIO
+				 * or TK_INTERACTIVE_PRIO.  Must be between
+				 * 0 and TK_MAX_PRIO. */
+{
+    register char *src, *dst;
+    char *name, *value;
+    int lineNum;
+
+    src = string;
+    lineNum = 1;
+    while (1) {
+
+	/*
+	 * Skip leading white space and empty lines and comment lines, and
+	 * check for the end of the spec.
+	 */
+
+	while ((*src == ' ') || (*src == '\t')) {
+	    src++;
+	}
+	if ((*src == '#') || (*src == '!')) {
+	    do {
+		src++;
+		if ((src[0] == '\\') && (src[1] == '\n')) {
+		    src += 2;
+		    lineNum++;
+		}
+	    } while ((*src != '\n') && (*src != 0));
+	}
+	if (*src == '\n') {
+	    src++;
+	    lineNum++;
+	    continue;
+	} 
+	if (*src == '\0') {
+	    break;
+	}
+
+	/*
+	 * Parse off the option name, collapsing out backslash-newline
+	 * sequences of course.
+	 */
+
+	dst = name = src;
+	while (*src != ':') {
+	    if ((*src == '\0') || (*src == '\n')) {
+		sprintf(interp->result, "missing colon on line %d",
+			lineNum);
+		return TCL_ERROR;
+	    }
+	    if ((src[0] == '\\') && (src[1] == '\n')) {
+		src += 2;
+		lineNum++;
+	    } else {
+		*dst = *src;
+		dst++;
+		src++;
+	    }
+	}
+
+	/*
+	 * Eliminate trailing white space on the name, and null-terminate
+	 * it.
+	 */
+
+	while ((dst != name) && ((dst[-1] == ' ') || (dst[-1] == '\t'))) {
+	    dst--;
+	}
+	*dst = '\0';
+
+	/*
+	 * Skip white space between the name and the value.
+	 */
+
+	src++;
+	while ((*src == ' ') || (*src == '\t')) {
+	    src++;
+	}
+	if (*src == '\0') {
+	    sprintf(interp->result, "missing value on line %d", lineNum);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Parse off the value, squeezing out backslash-newline sequences
+	 * along the way.
+	 */
+
+	dst = value = src;
+	while (*src != '\n') {
+	    if (*src == '\0') {
+		sprintf(interp->result, "missing newline on line %d",
+			lineNum);
+		return TCL_ERROR;
+	    }
+	    if ((src[0] == '\\') && (src[1] == '\n')) {
+		src += 2;
+		lineNum++;
+	    } else {
+		*dst = *src;
+		dst++;
+		src++;
+	    }
+	}
+	*dst = 0;
+
+	/*
+	 * Enter the option into the database.
+	 */
+
+	Tk_AddOption(tkwin, name, value, priority);
+	src++;
+	lineNum++;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReadOptionFile --
+ *
+ * 	Read a file of options ("resources" in the old X terminology)
+ *	and load them into the option database.
+ *
+ * Results:
+ *	The return value is a standard Tcl return code.  In the case of
+ *	an error in parsing string, TCL_ERROR will be returned and an
+ *	error message will be left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ReadOptionFile(interp, tkwin, fileName, priority)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting results. */
+    Tk_Window tkwin;		/* Token for window:  options are entered
+				 * for this window's main window. */
+    char *fileName;		/* Name of file containing options. */
+    int priority;		/* Priority level to use for options in
+				 * this file, such as TK_USER_DEFAULT_PRIO
+				 * or TK_INTERACTIVE_PRIO.  Must be between
+				 * 0 and TK_MAX_PRIO. */
+{
+    char *realName, *buffer;
+    int result, bufferSize;
+    Tcl_Channel chan;
+    Tcl_DString newName;
+
+    realName = Tcl_TranslateFileName(interp, fileName, &newName);
+    if (realName == NULL) {
+	return TCL_ERROR;
+    }
+    chan = Tcl_OpenFileChannel(interp, realName, "r", 0);
+    Tcl_DStringFree(&newName);
+    if (chan == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Compute size of file by seeking to the end of the file.  This will
+     * overallocate if we are performing CRLF translation.
+     */
+    
+    bufferSize = Tcl_Seek(chan, 0L, SEEK_END);
+    (void) Tcl_Seek(chan, 0L, SEEK_SET);
+
+    if (bufferSize < 0) {
+	Tcl_AppendResult(interp, "error seeking to end of file \"",
+		fileName, "\":", Tcl_PosixError(interp), (char *) NULL);
+	Tcl_Close(NULL, chan);
+	return TCL_ERROR;
+
+    }
+    buffer = (char *) ckalloc((unsigned) bufferSize+1);
+    bufferSize = Tcl_Read(chan, buffer, bufferSize);
+    if (bufferSize < 0) {
+	Tcl_AppendResult(interp, "error reading file \"", fileName, "\":",
+		Tcl_PosixError(interp), (char *) NULL);
+	Tcl_Close(NULL, chan);
+	return TCL_ERROR;
+    }
+    Tcl_Close(NULL, chan);
+    buffer[bufferSize] = 0;
+    result = AddFromString(interp, tkwin, buffer, priority);
+    ckfree(buffer);
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * NewArray --
+ *
+ *	Create a new ElArray structure of a given size.
+ *
+ * Results:
+ *	The return value is a pointer to a properly initialized
+ *	element array with "numEls" space.  The array is marked
+ *	as having no active elements.
+ *
+ * Side effects:
+ *	Memory is allocated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static ElArray *
+NewArray(numEls)
+    int numEls;			/* How many elements of space to allocate. */
+{
+    register ElArray *arrayPtr;
+
+    arrayPtr = (ElArray *) ckalloc(EL_ARRAY_SIZE(numEls));
+    arrayPtr->arraySize = numEls;
+    arrayPtr->numUsed = 0;
+    arrayPtr->nextToUse = arrayPtr->els;
+    return arrayPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ExtendArray --
+ *
+ *	Add a new element to an array, extending the array if
+ *	necessary.
+ *
+ * Results:
+ *	The return value is a pointer to the new array, which
+ *	will be different from arrayPtr if the array got expanded.
+ *
+ * Side effects:
+ *	Memory may be allocated or freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static ElArray *
+ExtendArray(arrayPtr, elPtr)
+    register ElArray *arrayPtr;		/* Array to be extended. */
+    register Element *elPtr;		/* Element to be copied into array. */
+{
+    /*
+     * If the current array has filled up, make it bigger.
+     */
+
+    if (arrayPtr->numUsed >= arrayPtr->arraySize) {
+	register ElArray *newPtr;
+
+	newPtr = (ElArray *) ckalloc(EL_ARRAY_SIZE(2*arrayPtr->arraySize));
+	newPtr->arraySize = 2*arrayPtr->arraySize;
+	newPtr->numUsed = arrayPtr->numUsed;
+	newPtr->nextToUse = &newPtr->els[newPtr->numUsed];
+	memcpy((VOID *) newPtr->els, (VOID *) arrayPtr->els,
+		(arrayPtr->arraySize*sizeof(Element)));
+	ckfree((char *) arrayPtr);
+	arrayPtr = newPtr;
+    }
+
+    *arrayPtr->nextToUse = *elPtr;
+    arrayPtr->nextToUse++;
+    arrayPtr->numUsed++;
+    return arrayPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SetupStacks --
+ *
+ *	Arrange the stacks so that they cache all the option
+ *	information for a particular window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The stacks are modified to hold information for tkwin
+ *	and all its ancestors in the window hierarchy.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SetupStacks(winPtr, leaf)
+    TkWindow *winPtr;		/* Window for which information is to
+				 * be cached. */
+    int leaf;			/* Non-zero means this is the leaf
+				 * window being probed.  Zero means this
+				 * is an ancestor of the desired leaf. */
+{
+    int level, i, *iPtr;
+    register StackLevel *levelPtr;
+    register ElArray *arrayPtr;
+
+    /*
+     * The following array defines the order in which the current
+     * stacks are searched to find matching entries to add to the
+     * stacks.  Given the current priority-based scheme, the order
+     * below is no longer relevant;  all that matters is that an
+     * element is on the list *somewhere*.  The ordering is a relic
+     * of the old days when priorities were determined differently.
+     */
+
+    static int searchOrder[] = {WILDCARD_NODE_CLASS, WILDCARD_NODE_NAME,
+	    EXACT_NODE_CLASS, EXACT_NODE_NAME, -1};
+
+    if (winPtr->mainPtr->optionRootPtr == NULL) {
+	OptionInit(winPtr->mainPtr);
+    }
+
+    /*
+     * Step 1:  make sure that options are cached for this window's
+     * parent.
+     */
+
+    if (winPtr->parentPtr != NULL) {
+	level = winPtr->parentPtr->optionLevel;
+	if ((level == -1) || (cachedWindow == NULL)) {
+	    SetupStacks(winPtr->parentPtr, 0);
+	    level = winPtr->parentPtr->optionLevel;
+	}
+	level++;
+    } else {
+	level = 1;
+    }
+
+    /*
+     * Step 2:  pop extra unneeded information off the stacks and
+     * mark those windows as no longer having cached information.
+     */
+
+    if (curLevel >= level) {
+	while (curLevel >= level) {
+	    levels[curLevel].winPtr->optionLevel = -1;
+	    curLevel--;
+	}
+	levelPtr = &levels[level];
+	for (i = 0; i < NUM_STACKS; i++) {
+	    arrayPtr = stacks[i];
+	    arrayPtr->numUsed = levelPtr->bases[i];
+	    arrayPtr->nextToUse = &arrayPtr->els[arrayPtr->numUsed];
+	}
+    }
+    curLevel = winPtr->optionLevel = level;
+
+    /*
+     * Step 3:  if the root database information isn't loaded or
+     * isn't valid, initialize level 0 of the stack from the
+     * database root (this only happens if winPtr is a main window).
+     */
+
+    if ((curLevel == 1)
+	    && ((cachedWindow == NULL)
+	    || (cachedWindow->mainPtr != winPtr->mainPtr))) {
+	for (i = 0; i < NUM_STACKS; i++) {
+	    arrayPtr = stacks[i];
+	    arrayPtr->numUsed = 0;
+	    arrayPtr->nextToUse = arrayPtr->els;
+	}
+	ExtendStacks(winPtr->mainPtr->optionRootPtr, 0);
+    }
+
+    /*
+     * Step 4: create a new stack level;  grow the level array if
+     * we've run out of levels.  Clear the stacks for EXACT_LEAF_NAME
+     * and EXACT_LEAF_CLASS (anything that was there is of no use
+     * any more).
+     */
+
+    if (curLevel >= numLevels) {
+	StackLevel *newLevels;
+
+	newLevels = (StackLevel *) ckalloc((unsigned)
+		(numLevels*2*sizeof(StackLevel)));
+	memcpy((VOID *) newLevels, (VOID *) levels,
+		(numLevels*sizeof(StackLevel)));
+	ckfree((char *) levels);
+	numLevels *= 2;
+	levels = newLevels;
+    }
+    levelPtr = &levels[curLevel];
+    levelPtr->winPtr = winPtr;
+    arrayPtr = stacks[EXACT_LEAF_NAME];
+    arrayPtr->numUsed = 0;
+    arrayPtr->nextToUse = arrayPtr->els;
+    arrayPtr = stacks[EXACT_LEAF_CLASS];
+    arrayPtr->numUsed = 0;
+    arrayPtr->nextToUse = arrayPtr->els;
+    levelPtr->bases[EXACT_LEAF_NAME] = stacks[EXACT_LEAF_NAME]->numUsed;
+    levelPtr->bases[EXACT_LEAF_CLASS] = stacks[EXACT_LEAF_CLASS]->numUsed;
+    levelPtr->bases[EXACT_NODE_NAME] = stacks[EXACT_NODE_NAME]->numUsed;
+    levelPtr->bases[EXACT_NODE_CLASS] = stacks[EXACT_NODE_CLASS]->numUsed;
+    levelPtr->bases[WILDCARD_LEAF_NAME] = stacks[WILDCARD_LEAF_NAME]->numUsed;
+    levelPtr->bases[WILDCARD_LEAF_CLASS] = stacks[WILDCARD_LEAF_CLASS]->numUsed;
+    levelPtr->bases[WILDCARD_NODE_NAME] = stacks[WILDCARD_NODE_NAME]->numUsed;
+    levelPtr->bases[WILDCARD_NODE_CLASS] = stacks[WILDCARD_NODE_CLASS]->numUsed;
+
+
+    /*
+     * Step 5: scan the current stack level looking for matches to this
+     * window's name or class;  where found, add new information to the
+     * stacks.
+     */
+
+    for (iPtr = searchOrder; *iPtr != -1; iPtr++) {
+	register Element *elPtr;
+	int count;
+	Tk_Uid id;
+
+	i = *iPtr;
+	if (i & CLASS) {
+	    id = winPtr->classUid;
+	} else {
+	    id = winPtr->nameUid;
+	}
+	elPtr = stacks[i]->els;
+	count = levelPtr->bases[i];
+
+	/*
+	 * For wildcard stacks, check all entries;  for non-wildcard
+	 * stacks, only check things that matched in the parent.
+	 */
+
+	if (!(i & WILDCARD)) {
+	    elPtr += levelPtr[-1].bases[i];
+	    count -= levelPtr[-1].bases[i];
+	}
+	for ( ; count > 0; elPtr++, count--) {
+	    if (elPtr->nameUid != id) {
+		continue;
+	    }
+	    ExtendStacks(elPtr->child.arrayPtr, leaf);
+	}
+    }
+    cachedWindow = winPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ExtendStacks --
+ *
+ *	Given an element array, copy all the elements from the
+ *	array onto the system stacks (except for irrelevant leaf
+ *	elements).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The option stacks are extended.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ExtendStacks(arrayPtr, leaf)
+    ElArray *arrayPtr;		/* Array of elements to copy onto stacks. */
+    int leaf;			/* If zero, then don't copy exact leaf
+				 * elements. */
+{
+    register int count;
+    register Element *elPtr;
+
+    for (elPtr = arrayPtr->els, count = arrayPtr->numUsed;
+	    count > 0; elPtr++, count--) {
+	if (!(elPtr->flags & (NODE|WILDCARD)) && !leaf) {
+	    continue;
+	}
+	stacks[elPtr->flags] = ExtendArray(stacks[elPtr->flags], elPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * OptionInit --
+ *
+ *	Initialize data structures for option handling.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Option-related data structures get initialized.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+OptionInit(mainPtr)
+    register TkMainInfo *mainPtr;	/* Top-level information about
+					 * window that isn't initialized
+					 * yet. */
+{
+    int i;
+    Tcl_Interp *interp;
+
+    /*
+     * First, once-only initialization.
+     */
+
+    if (numLevels == 0) {
+
+	numLevels = 5;
+	levels = (StackLevel *) ckalloc((unsigned) (5*sizeof(StackLevel)));
+	for (i = 0; i < NUM_STACKS; i++) {
+	    stacks[i] = NewArray(10);
+	    levels[0].bases[i] = 0;
+	}
+    
+	defaultMatch.nameUid = NULL;
+	defaultMatch.child.valueUid = NULL;
+	defaultMatch.priority = -1;
+	defaultMatch.flags = 0;
+    }
+
+    /*
+     * Then, per-main-window initialization.  Create and delete dummy
+     * interpreter for message logging.
+     */
+
+    mainPtr->optionRootPtr = NewArray(20);
+    interp = Tcl_CreateInterp();
+    (void) GetDefaultOptions(interp, mainPtr->winPtr);
+    Tcl_DeleteInterp(interp);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ClearOptionTree --
+ *
+ *	This procedure is called to erase everything in a
+ *	hierarchical option database.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All the options associated with arrayPtr are deleted,
+ *	along with all option subtrees.  The space pointed to
+ *	by arrayPtr is freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ClearOptionTree(arrayPtr)
+    ElArray *arrayPtr;		/* Array of options;  delete everything
+				 * referred to recursively by this. */
+{
+    register Element *elPtr;
+    int count;
+
+    for (count = arrayPtr->numUsed, elPtr = arrayPtr->els;  count > 0;
+	    count--, elPtr++) {
+	if (elPtr->flags & NODE) {
+	    ClearOptionTree(elPtr->child.arrayPtr);
+	}
+    }
+    ckfree((char *) arrayPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetDefaultOptions --
+ *
+ *	This procedure is invoked to load the default set of options
+ *	for a window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Options are added to those for winPtr's main window.  If
+ *	there exists a RESOURCE_MANAGER proprety for winPtr's
+ *	display, that is used.  Otherwise, the .Xdefaults file in
+ *	the user's home directory is used.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+GetDefaultOptions(interp, winPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    TkWindow *winPtr;		/* Fetch option defaults for main window
+				 * associated with this. */
+{
+    char *regProp;
+    int result, actualFormat;
+    unsigned long numItems, bytesAfter;
+    Atom actualType;
+
+    /*
+     * Try the RESOURCE_MANAGER property on the root window first.
+     */
+
+    regProp = NULL;
+    result = XGetWindowProperty(winPtr->display,
+	    RootWindow(winPtr->display, 0),
+	    XA_RESOURCE_MANAGER, 0, 100000,
+	    False, XA_STRING, &actualType, &actualFormat,
+	    &numItems, &bytesAfter, (unsigned char **) &regProp);
+
+    if ((result == Success) && (actualType == XA_STRING)
+	    && (actualFormat == 8)) {
+	result = AddFromString(interp, (Tk_Window) winPtr, regProp,
+		TK_USER_DEFAULT_PRIO);
+	XFree(regProp);
+	return result;
+    }
+
+    /*
+     * No luck there.  Try a .Xdefaults file in the user's home
+     * directory.
+     */
+
+    if (regProp != NULL) {
+	XFree(regProp);
+    }
+    result = ReadOptionFile(interp, (Tk_Window) winPtr, "~/.Xdefaults",
+	    TK_USER_DEFAULT_PRIO);
+    return result;
+}
diff --git a/Tk/generic/tkPack.c b/Tk/generic/tkPack.c
new file mode 100644
index 0000000..4fcea92
--- /dev/null
+++ b/Tk/generic/tkPack.c
@@ -0,0 +1,1768 @@
+/* 
+ * tkPack.c --
+ *
+ *	This file contains code to implement the "packer"
+ *	geometry manager for Tk.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkPack.c 1.63 96/02/15 18:52:33
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+typedef enum {TOP, BOTTOM, LEFT, RIGHT} Side;
+
+/* For each window that the packer cares about (either because
+ * the window is managed by the packer or because the window
+ * has slaves that are managed by the packer), there is a
+ * structure of the following type:
+ */
+
+typedef struct Packer {
+    Tk_Window tkwin;		/* Tk token for window.  NULL means that
+				 * the window has been deleted, but the
+				 * packet hasn't had a chance to clean up
+				 * yet because the structure is still in
+				 * use. */
+    struct Packer *masterPtr;	/* Master window within which this window
+				 * is packed (NULL means this window
+				 * isn't managed by the packer). */
+    struct Packer *nextPtr;	/* Next window packed within same
+				 * parent.  List is priority-ordered:
+				 * first on list gets packed first. */
+    struct Packer *slavePtr;	/* First in list of slaves packed
+				 * inside this window (NULL means
+				 * no packed slaves). */
+    Side side;			/* Side of parent against which
+				 * this window is packed. */
+    Tk_Anchor anchor;		/* If frame allocated for window is larger
+				 * than window needs, this indicates how
+				 * where to position window in frame. */
+    int padX, padY;		/* Total additional pixels to leave around the
+				 * window (half of this space is left on each
+				 * side).  This is space *outside* the window:
+				 * we'll allocate extra space in frame but
+				 * won't enlarge window). */
+    int iPadX, iPadY;		/* Total extra pixels to allocate inside the
+				 * window (half this amount will appear on
+				 * each side). */
+    int doubleBw;		/* Twice the window's last known border
+				 * width.  If this changes, the window
+				 * must be repacked within its parent. */
+    int *abortPtr;		/* If non-NULL, it means that there is a nested
+				 * call to ArrangePacking already working on
+				 * this window.  *abortPtr may be set to 1 to
+				 * abort that nested call.  This happens, for
+				 * example, if tkwin or any of its slaves
+				 * is deleted. */
+    int flags;			/* Miscellaneous flags;  see below
+				 * for definitions. */
+} Packer;
+
+/*
+ * Flag values for Packer structures:
+ *
+ * REQUESTED_REPACK:		1 means a Tcl_DoWhenIdle request
+ *				has already been made to repack
+ *				all the slaves of this window.
+ * FILLX:			1 means if frame allocated for window
+ *				is wider than window needs, expand window
+ *				to fill frame.  0 means don't make window
+ *				any larger than needed.
+ * FILLY:			Same as FILLX, except for height.
+ * EXPAND:			1 means this window's frame will absorb any
+ *				extra space in the parent window.
+ * OLD_STYLE:			1 means this window is being managed with
+ *				the old-style packer algorithms (before
+ *				Tk version 3.3).  The main difference is
+ *				that padding and filling are done differently.
+ * DONT_PROPAGATE:		1 means don't set this window's requested
+ *				size.  0 means if this window is a master
+ *				then Tk will set its requested size to fit
+ *				the needs of its slaves.
+ */
+
+#define REQUESTED_REPACK	1
+#define FILLX			2
+#define FILLY			4
+#define EXPAND			8
+#define OLD_STYLE		16
+#define DONT_PROPAGATE		32
+
+/*
+ * Hash table used to map from Tk_Window tokens to corresponding
+ * Packer structures:
+ */
+
+static Tcl_HashTable packerHashTable;
+
+/*
+ * Have statics in this module been initialized?
+ */
+
+static int initialized = 0;
+
+/*
+ * The following structure is the official type record for the
+ * packer:
+ */
+
+static void		PackReqProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		PackLostSlaveProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+
+static Tk_GeomMgr packerType = {
+    "pack",			/* name */
+    PackReqProc,		/* requestProc */
+    PackLostSlaveProc,		/* lostSlaveProc */
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ArrangePacking _ANSI_ARGS_((ClientData clientData));
+static int		ConfigureSlaves _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, int argc, char *argv[]));
+static Packer *		GetPacker _ANSI_ARGS_((Tk_Window tkwin));
+static int		PackAfter _ANSI_ARGS_((Tcl_Interp *interp,
+			    Packer *prevPtr, Packer *masterPtr, int argc,
+			    char **argv));
+static void		PackReqProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		PackStructureProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		Unlink _ANSI_ARGS_((Packer *packPtr));
+static int		XExpansion _ANSI_ARGS_((Packer *slavePtr,
+			    int cavityWidth));
+static int		YExpansion _ANSI_ARGS_((Packer *slavePtr,
+			    int cavityHeight));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_PackCmd --
+ *
+ *	This procedure is invoked to process the "pack" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_PackCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    size_t length;
+    int c;
+
+    if ((argc >= 2) && (argv[1][0] == '.')) {
+	return ConfigureSlaves(interp, tkwin, argc-1, argv+1);
+    }
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option arg ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (length >= 2)
+	    && (strncmp(argv[1], "after", length) == 0)) {
+	Packer *prevPtr;
+	Tk_Window tkwin2;
+
+	tkwin2 = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (tkwin2 == NULL) {
+	    return TCL_ERROR;
+	}
+	prevPtr = GetPacker(tkwin2);
+	if (prevPtr->masterPtr == NULL) {
+	    Tcl_AppendResult(interp, "window \"", argv[2],
+		    "\" isn't packed", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return PackAfter(interp, prevPtr, prevPtr->masterPtr, argc-3, argv+3);
+    } else if ((c == 'a') && (length >= 2)
+	    && (strncmp(argv[1], "append", length) == 0)) {
+	Packer *masterPtr;
+	register Packer *prevPtr;
+	Tk_Window tkwin2;
+
+	tkwin2 = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (tkwin2 == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetPacker(tkwin2);
+	prevPtr = masterPtr->slavePtr;
+	if (prevPtr != NULL) {
+	    while (prevPtr->nextPtr != NULL) {
+		prevPtr = prevPtr->nextPtr;
+	    }
+	}
+	return PackAfter(interp, prevPtr, masterPtr, argc-3, argv+3);
+    } else if ((c == 'b') && (strncmp(argv[1], "before", length) == 0)) {
+	Packer *packPtr, *masterPtr;
+	register Packer *prevPtr;
+	Tk_Window tkwin2;
+
+	tkwin2 = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (tkwin2 == NULL) {
+	    return TCL_ERROR;
+	}
+	packPtr = GetPacker(tkwin2);
+	if (packPtr->masterPtr == NULL) {
+	    Tcl_AppendResult(interp, "window \"", argv[2],
+		    "\" isn't packed", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	masterPtr = packPtr->masterPtr;
+	prevPtr = masterPtr->slavePtr;
+	if (prevPtr == packPtr) {
+	    prevPtr = NULL;
+	} else {
+	    for ( ; ; prevPtr = prevPtr->nextPtr) {
+		if (prevPtr == NULL) {
+		    panic("\"pack before\" couldn't find predecessor");
+		}
+		if (prevPtr->nextPtr == packPtr) {
+		    break;
+		}
+	    }
+	}
+	return PackAfter(interp, prevPtr, masterPtr, argc-3, argv+3);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)) {
+	if (argv[2][0] != '.') {
+	    Tcl_AppendResult(interp, "bad argument \"", argv[2],
+		    "\": must be name of window", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return ConfigureSlaves(interp, tkwin, argc-2, argv+2);
+    } else if ((c == 'f') && (strncmp(argv[1], "forget", length) == 0)) {
+	Tk_Window slave;
+	Packer *slavePtr;
+	int i;
+
+	for (i = 2; i < argc; i++) {
+	    slave = Tk_NameToWindow(interp, argv[i], tkwin);
+	    if (slave == NULL) {
+		continue;
+	    }
+	    slavePtr = GetPacker(slave);
+	    if ((slavePtr != NULL) && (slavePtr->masterPtr != NULL)) {
+		Tk_ManageGeometry(slave, (Tk_GeomMgr *) NULL,
+			(ClientData) NULL);
+		if (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin)) {
+		    Tk_UnmaintainGeometry(slavePtr->tkwin,
+			    slavePtr->masterPtr->tkwin);
+		}
+		Unlink(slavePtr);
+		Tk_UnmapWindow(slavePtr->tkwin);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "info", length) == 0)) {
+	register Packer *slavePtr;
+	Tk_Window slave;
+	char buffer[300];
+	static char *sideNames[] = {"top", "bottom", "left", "right"};
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " info window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	slave = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (slave == NULL) {
+	    return TCL_ERROR;
+	}
+	slavePtr = GetPacker(slave);
+	if (slavePtr->masterPtr == NULL) {
+	    Tcl_AppendResult(interp, "window \"", argv[2],
+		    "\" isn't packed", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, 
+			 ":in #.", Tk_PathName(slavePtr->masterPtr->tkwin), " ",
+			 ":anchor \"", Tk_NameOfAnchor(slavePtr->anchor), "\" ",
+			 ":expand ",(slavePtr->flags & EXPAND) ? "#t" : "#f", " ",
+			 ":fill ",
+			 (char*) NULL);
+#else
+	Tcl_AppendElement(interp, "-in");
+	Tcl_AppendElement(interp, Tk_PathName(slavePtr->masterPtr->tkwin));
+	Tcl_AppendElement(interp, "-anchor");
+	Tcl_AppendElement(interp, Tk_NameOfAnchor(slavePtr->anchor));
+	Tcl_AppendResult(interp, " -expand ",
+		(slavePtr->flags & EXPAND) ? "1" : "0", " -fill ",
+		(char *) NULL);
+#endif
+	switch (slavePtr->flags & (FILLX|FILLY)) {
+#ifdef STk_CODE
+	    case 0:
+		Tcl_AppendResult(interp, "\"none\"", (char *) NULL);
+		break;
+	    case FILLX:
+		Tcl_AppendResult(interp, "\"x\"", (char *) NULL);
+		break;
+	    case FILLY:
+		Tcl_AppendResult(interp, "\"y\"", (char *) NULL);
+		break;
+	    case FILLX|FILLY:
+		Tcl_AppendResult(interp, "\"both\"", (char *) NULL);
+		break;
+#else
+	    case 0:
+		Tcl_AppendResult(interp, "none", (char *) NULL);
+		break;
+	    case FILLX:
+		Tcl_AppendResult(interp, "x", (char *) NULL);
+		break;
+	    case FILLY:
+		Tcl_AppendResult(interp, "y", (char *) NULL);
+		break;
+	    case FILLX|FILLY:
+		Tcl_AppendResult(interp, "both", (char *) NULL);
+		break;
+#endif
+	}
+#ifdef STk_CODE
+	sprintf(buffer, " :ipadx %d :ipady %d :padx %d :pady %d",
+#else
+	sprintf(buffer, " -ipadx %d -ipady %d -padx %d -pady %d",
+#endif
+		slavePtr->iPadX/2, slavePtr->iPadY/2, slavePtr->padX/2,
+		slavePtr->padY/2);
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, buffer, " :side \"",sideNames[slavePtr->side],"\"",
+#else
+	Tcl_AppendResult(interp, buffer, " -side ", sideNames[slavePtr->side],
+#endif
+		(char *) NULL);
+    } else if ((c == 'p') && (strncmp(argv[1], "propagate", length) == 0)) {
+	Tk_Window master;
+	Packer *masterPtr;
+	int propagate;
+
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " propagate window ?boolean?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetPacker(master);
+	if (argc == 3) {
+#ifdef STk_CODE
+	  interp->result = (masterPtr->flags & DONT_PROPAGATE) ? "#t" : "#f";
+#else
+	    if (masterPtr->flags & DONT_PROPAGATE) {
+		interp->result = "0";
+	    } else {
+		interp->result = "1";
+	    }
+#endif
+	    return TCL_OK;
+	}
+	if (Tcl_GetBoolean(interp, argv[3], &propagate) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (propagate) {
+	    masterPtr->flags &= ~DONT_PROPAGATE;
+
+	    /*
+	     * Repack the master to allow new geometry information to
+	     * propagate upwards to the master's master.
+	     */
+
+	    if (masterPtr->abortPtr != NULL) {
+		*masterPtr->abortPtr = 1;
+	    }
+	    if (!(masterPtr->flags & REQUESTED_REPACK)) {
+		masterPtr->flags |= REQUESTED_REPACK;
+		Tcl_DoWhenIdle(ArrangePacking, (ClientData) masterPtr);
+	    }
+	} else {
+	    masterPtr->flags |= DONT_PROPAGATE;
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "slaves", length) == 0)) {
+	Tk_Window master;
+	Packer *masterPtr, *slavePtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " slaves window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	master = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (master == NULL) {
+	    return TCL_ERROR;
+	}
+	masterPtr = GetPacker(master);
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, "(", NULL);
+#endif
+	for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+		slavePtr = slavePtr->nextPtr) {
+	    Tcl_AppendElement(interp, Tk_PathName(slavePtr->tkwin));
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, ")", NULL);
+#endif
+    } else if ((c == 'u') && (strncmp(argv[1], "unpack", length) == 0)) {
+	Tk_Window tkwin2;
+	Packer *packPtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " unpack window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tkwin2 = Tk_NameToWindow(interp, argv[2], tkwin);
+	if (tkwin2 == NULL) {
+	    return TCL_ERROR;
+	}
+	packPtr = GetPacker(tkwin2);
+	if ((packPtr != NULL) && (packPtr->masterPtr != NULL)) {
+	    Tk_ManageGeometry(tkwin2, (Tk_GeomMgr *) NULL,
+		    (ClientData) NULL);
+	    if (packPtr->masterPtr->tkwin != Tk_Parent(packPtr->tkwin)) {
+		Tk_UnmaintainGeometry(packPtr->tkwin,
+			packPtr->masterPtr->tkwin);
+	    }
+	    Unlink(packPtr);
+	    Tk_UnmapWindow(packPtr->tkwin);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be configure, forget, info, ",
+		"propagate, or slaves", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PackReqProc --
+ *
+ *	This procedure is invoked by Tk_GeometryRequest for
+ *	windows managed by the packer.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arranges for tkwin, and all its managed siblings, to
+ *	be re-packed at the next idle point.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+PackReqProc(clientData, tkwin)
+    ClientData clientData;	/* Packer's information about
+				 * window that got new preferred
+				 * geometry.  */
+    Tk_Window tkwin;		/* Other Tk-related information
+				 * about the window. */
+{
+    register Packer *packPtr = (Packer *) clientData;
+
+    packPtr = packPtr->masterPtr;
+    if (!(packPtr->flags & REQUESTED_REPACK)) {
+	packPtr->flags |= REQUESTED_REPACK;
+	Tcl_DoWhenIdle(ArrangePacking, (ClientData) packPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PackLostSlaveProc --
+ *
+ *	This procedure is invoked by Tk whenever some other geometry
+ *	claims control over a slave that used to be managed by us.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Forgets all packer-related information about the slave.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+PackLostSlaveProc(clientData, tkwin)
+    ClientData clientData;	/* Packer structure for slave window that
+				 * was stolen away. */
+    Tk_Window tkwin;		/* Tk's handle for the slave window. */
+{
+    register Packer *slavePtr = (Packer *) clientData;
+
+    if (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin)) {
+	Tk_UnmaintainGeometry(slavePtr->tkwin, slavePtr->masterPtr->tkwin);
+    }
+    Unlink(slavePtr);
+    Tk_UnmapWindow(slavePtr->tkwin);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ArrangePacking --
+ *
+ *	This procedure is invoked (using the Tcl_DoWhenIdle
+ *	mechanism) to re-layout a set of windows managed by
+ *	the packer.  It is invoked at idle time so that a
+ *	series of packer requests can be merged into a single
+ *	layout operation.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The packed slaves of masterPtr may get resized or
+ *	moved.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ArrangePacking(clientData)
+    ClientData clientData;	/* Structure describing parent whose slaves
+				 * are to be re-layed out. */
+{
+    register Packer *masterPtr = (Packer *) clientData;
+    register Packer *slavePtr;	
+    int cavityX, cavityY, cavityWidth, cavityHeight;
+				/* These variables keep track of the
+				 * as-yet-unallocated space remaining in
+				 * the middle of the parent window. */
+    int frameX, frameY, frameWidth, frameHeight;
+				/* These variables keep track of the frame
+				 * allocated to the current window. */
+    int x, y, width, height;	/* These variables are used to hold the
+				 * actual geometry of the current window. */
+    int intBWidth;		/* Width of internal border in parent window,
+				 * if any. */
+    int abort;			/* May get set to non-zero to abort this
+				 * repacking operation. */
+    int borderX, borderY;
+    int maxWidth, maxHeight, tmp;
+
+    masterPtr->flags &= ~REQUESTED_REPACK;
+
+    /*
+     * If the parent has no slaves anymore, then don't do anything
+     * at all:  just leave the parent's size as-is.
+     */
+
+    if (masterPtr->slavePtr == NULL) {
+	return;
+    }
+
+    /*
+     * Abort any nested call to ArrangePacking for this window, since
+     * we'll do everything necessary here, and set up so this call
+     * can be aborted if necessary.  
+     */
+
+    if (masterPtr->abortPtr != NULL) {
+	*masterPtr->abortPtr = 1;
+    }
+    masterPtr->abortPtr = &abort;
+    abort = 0;
+    Tcl_Preserve((ClientData) masterPtr);
+
+    /*
+     * Pass #1: scan all the slaves to figure out the total amount
+     * of space needed.  Two separate width and height values are
+     * computed:
+     *
+     * width -		Holds the sum of the widths (plus padding) of
+     *			all the slaves seen so far that were packed LEFT
+     *			or RIGHT.
+     * height -		Holds the sum of the heights (plus padding) of
+     *			all the slaves seen so far that were packed TOP
+     *			or BOTTOM.
+     *
+     * maxWidth -	Gradually builds up the width needed by the master
+     *			to just barely satisfy all the slave's needs.  For
+     *			each slave, the code computes the width needed for
+     *			all the slaves so far and updates maxWidth if the
+     *			new value is greater.
+     * maxHeight -	Same as maxWidth, except keeps height info.
+     */
+
+    intBWidth = Tk_InternalBorderWidth(masterPtr->tkwin);
+    width = height = maxWidth = maxHeight = 2*intBWidth;
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+	    slavePtr = slavePtr->nextPtr) {
+	if ((slavePtr->side == TOP) || (slavePtr->side == BOTTOM)) {
+	    tmp = Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padX + slavePtr->iPadX + width;
+	    if (tmp > maxWidth) {
+		maxWidth = tmp;
+	    }
+	    height += Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padY + slavePtr->iPadY;
+	} else {
+	    tmp = Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padY + slavePtr->iPadY + height;
+	    if (tmp > maxHeight) {
+		maxHeight = tmp;
+	    }
+	    width += Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padX + slavePtr->iPadX;
+	}
+    }
+    if (width > maxWidth) {
+	maxWidth = width;
+    }
+    if (height > maxHeight) {
+	maxHeight = height;
+    }
+
+    /*
+     * If the total amount of space needed in the parent window has
+     * changed, and if we're propagating geometry information, then
+     * notify the next geometry manager up and requeue ourselves to
+     * start again after the parent has had a chance to
+     * resize us.
+     */
+
+    if (((maxWidth != Tk_ReqWidth(masterPtr->tkwin))
+	    || (maxHeight != Tk_ReqHeight(masterPtr->tkwin)))
+	    && !(masterPtr->flags & DONT_PROPAGATE)) {
+	Tk_GeometryRequest(masterPtr->tkwin, maxWidth, maxHeight);
+	masterPtr->flags |= REQUESTED_REPACK;
+	Tcl_DoWhenIdle(ArrangePacking, (ClientData) masterPtr);
+	goto done;
+    }
+
+    /*
+     * Pass #2: scan the slaves a second time assigning
+     * new sizes.  The "cavity" variables keep track of the
+     * unclaimed space in the cavity of the window;  this
+     * shrinks inward as we allocate windows around the
+     * edges.  The "frame" variables keep track of the space
+     * allocated to the current window and its frame.  The
+     * current window is then placed somewhere inside the
+     * frame, depending on anchor.
+     */
+
+    cavityX = cavityY = x = y = intBWidth;
+    cavityWidth = Tk_Width(masterPtr->tkwin) - 2*intBWidth;
+    cavityHeight = Tk_Height(masterPtr->tkwin) - 2*intBWidth;
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+	    slavePtr = slavePtr->nextPtr) {
+	if ((slavePtr->side == TOP) || (slavePtr->side == BOTTOM)) {
+	    frameWidth = cavityWidth;
+	    frameHeight = Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padY + slavePtr->iPadY;
+	    if (slavePtr->flags & EXPAND) {
+		frameHeight += YExpansion(slavePtr, cavityHeight);
+	    }
+	    cavityHeight -= frameHeight;
+	    if (cavityHeight < 0) {
+		frameHeight += cavityHeight;
+		cavityHeight = 0;
+	    }
+	    frameX = cavityX;
+	    if (slavePtr->side == TOP) {
+		frameY = cavityY;
+		cavityY += frameHeight;
+	    } else {
+		frameY = cavityY + cavityHeight;
+	    }
+	} else {
+	    frameHeight = cavityHeight;
+	    frameWidth = Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw
+		    + slavePtr->padX + slavePtr->iPadX;
+	    if (slavePtr->flags & EXPAND) {
+		frameWidth += XExpansion(slavePtr, cavityWidth);
+	    }
+	    cavityWidth -= frameWidth;
+	    if (cavityWidth < 0) {
+		frameWidth += cavityWidth;
+		cavityWidth = 0;
+	    }
+	    frameY = cavityY;
+	    if (slavePtr->side == LEFT) {
+		frameX = cavityX;
+		cavityX += frameWidth;
+	    } else {
+		frameX = cavityX + cavityWidth;
+	    }
+	}
+
+	/*
+	 * Now that we've got the size of the frame for the window,
+	 * compute the window's actual size and location using the
+	 * fill, padding, and frame factors.  The variables "borderX"
+	 * and "borderY" are used to handle the differences between
+	 * old-style packing and the new style (in old-style, iPadX
+	 * and iPadY are always zero and padding is completely ignored
+	 * except when computing frame size).
+	 */
+
+	if (slavePtr->flags & OLD_STYLE) {
+	    borderX = borderY = 0;
+	} else {
+	    borderX = slavePtr->padX;
+	    borderY = slavePtr->padY;
+	}
+	width = Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw
+		+ slavePtr->iPadX;
+	if ((slavePtr->flags & FILLX)
+		|| (width > (frameWidth - borderX))) {
+	    width = frameWidth - borderX;
+	}
+	height = Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw
+		+ slavePtr->iPadY;
+	if ((slavePtr->flags & FILLY)
+		|| (height > (frameHeight - borderY))) {
+	    height = frameHeight - borderY;
+	}
+	borderX /= 2;
+	borderY /= 2;
+	switch (slavePtr->anchor) {
+	    case TK_ANCHOR_N:
+		x = frameX + (frameWidth - width)/2;
+		y = frameY + borderY;
+		break;
+	    case TK_ANCHOR_NE:
+		x = frameX + frameWidth - width - borderX;
+		y = frameY + borderY;
+		break;
+	    case TK_ANCHOR_E:
+		x = frameX + frameWidth - width - borderX;
+		y = frameY + (frameHeight - height)/2;
+		break;
+	    case TK_ANCHOR_SE:
+		x = frameX + frameWidth - width - borderX;
+		y = frameY + frameHeight - height - borderY;
+		break;
+	    case TK_ANCHOR_S:
+		x = frameX + (frameWidth - width)/2;
+		y = frameY + frameHeight - height - borderY;
+		break;
+	    case TK_ANCHOR_SW:
+		x = frameX + borderX;
+		y = frameY + frameHeight - height - borderY;
+		break;
+	    case TK_ANCHOR_W:
+		x = frameX + borderX;
+		y = frameY + (frameHeight - height)/2;
+		break;
+	    case TK_ANCHOR_NW:
+		x = frameX + borderX;
+		y = frameY + borderY;
+		break;
+	    case TK_ANCHOR_CENTER:
+		x = frameX + (frameWidth - width)/2;
+		y = frameY + (frameHeight - height)/2;
+		break;
+	    default:
+		panic("bad frame factor in ArrangePacking");
+	}
+	width -= slavePtr->doubleBw;
+	height -= slavePtr->doubleBw;
+
+	/*
+	 * The final step is to set the position, size, and mapped/unmapped
+	 * state of the slave.  If the slave is a child of the master, then
+	 * do this here.  Otherwise let Tk_MaintainGeometry do the work.
+	 */
+
+	if (masterPtr->tkwin == Tk_Parent(slavePtr->tkwin)) {
+	    if ((width <= 0) || (height <= 0)) {
+		Tk_UnmapWindow(slavePtr->tkwin);
+	    } else {
+		if ((x != Tk_X(slavePtr->tkwin))
+			|| (y != Tk_Y(slavePtr->tkwin))
+			|| (width != Tk_Width(slavePtr->tkwin))
+			|| (height != Tk_Height(slavePtr->tkwin))) {
+		    Tk_MoveResizeWindow(slavePtr->tkwin, x, y, width, height);
+		}
+		if (abort) {
+		    goto done;
+		}
+
+		/*
+		 * Don't map the slave if the master isn't mapped: wait
+		 * until the master gets mapped later.
+		 */
+
+		if (Tk_IsMapped(masterPtr->tkwin)) {
+		    Tk_MapWindow(slavePtr->tkwin);
+		}
+	    }
+	} else {
+	    if ((width <= 0) || (height <= 0)) {
+		Tk_UnmaintainGeometry(slavePtr->tkwin, masterPtr->tkwin);
+		Tk_UnmapWindow(slavePtr->tkwin);
+	    } else {
+		Tk_MaintainGeometry(slavePtr->tkwin, masterPtr->tkwin,
+			x, y, width, height);
+	    }
+	}
+
+	/*
+	 * Changes to the window's structure could cause almost anything
+	 * to happen, including deleting the parent or child.  If this
+	 * happens, we'll be told to abort.
+	 */
+
+	if (abort) {
+	    goto done;
+	}
+    }
+
+    done:
+    masterPtr->abortPtr = NULL;
+    Tcl_Release((ClientData) masterPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XExpansion --
+ *
+ *	Given a list of packed slaves, the first of which is packed
+ *	on the left or right and is expandable, compute how much to
+ *	expand the child.
+ *
+ * Results:
+ *	The return value is the number of additional pixels to give to
+ *	the child.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+XExpansion(slavePtr, cavityWidth)
+    register Packer *slavePtr;		/* First in list of remaining
+					 * slaves. */
+    int cavityWidth;			/* Horizontal space left for all
+					 * remaining slaves. */
+{
+    int numExpand, minExpand, curExpand;
+    int childWidth;
+
+    /*
+     * This procedure is tricky because windows packed top or bottom can
+     * be interspersed among expandable windows packed left or right.
+     * Scan through the list, keeping a running sum of the widths of
+     * all left and right windows (actually, count the cavity space not
+     * allocated) and a running count of all expandable left and right
+     * windows.  At each top or bottom window, and at the end of the
+     * list, compute the expansion factor that seems reasonable at that
+     * point.  Return the smallest factor seen at any of these points.
+     */
+
+    minExpand = cavityWidth;
+    numExpand = 0;
+    for ( ; slavePtr != NULL; slavePtr = slavePtr->nextPtr) {
+	childWidth = Tk_ReqWidth(slavePtr->tkwin) + slavePtr->doubleBw
+		+ slavePtr->padX + slavePtr->iPadX;
+	if ((slavePtr->side == TOP) || (slavePtr->side == BOTTOM)) {
+	    curExpand = (cavityWidth - childWidth)/numExpand;
+	    if (curExpand < minExpand) {
+		minExpand = curExpand;
+	    }
+	} else {
+	    cavityWidth -= childWidth;
+	    if (slavePtr->flags & EXPAND) {
+		numExpand++;
+	    }
+	}
+    }
+    curExpand = cavityWidth/numExpand;
+    if (curExpand < minExpand) {
+	minExpand = curExpand;
+    }
+    return (minExpand < 0) ? 0 : minExpand;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * YExpansion --
+ *
+ *	Given a list of packed slaves, the first of which is packed
+ *	on the top or bottom and is expandable, compute how much to
+ *	expand the child.
+ *
+ * Results:
+ *	The return value is the number of additional pixels to give to
+ *	the child.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+YExpansion(slavePtr, cavityHeight)
+    register Packer *slavePtr;		/* First in list of remaining
+					 * slaves. */
+    int cavityHeight;			/* Vertical space left for all
+					 * remaining slaves. */
+{
+    int numExpand, minExpand, curExpand;
+    int childHeight;
+
+    /*
+     * See comments for XExpansion.
+     */
+
+    minExpand = cavityHeight;
+    numExpand = 0;
+    for ( ; slavePtr != NULL; slavePtr = slavePtr->nextPtr) {
+	childHeight = Tk_ReqHeight(slavePtr->tkwin) + slavePtr->doubleBw
+		+ slavePtr->padY + slavePtr->iPadY;
+	if ((slavePtr->side == LEFT) || (slavePtr->side == RIGHT)) {
+	    curExpand = (cavityHeight - childHeight)/numExpand;
+	    if (curExpand < minExpand) {
+		minExpand = curExpand;
+	    }
+	} else {
+	    cavityHeight -= childHeight;
+	    if (slavePtr->flags & EXPAND) {
+		numExpand++;
+	    }
+	}
+    }
+    curExpand = cavityHeight/numExpand;
+    if (curExpand < minExpand) {
+	minExpand = curExpand;
+    }
+    return (minExpand < 0) ? 0 : minExpand;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * GetPacker --
+ *
+ *	This internal procedure is used to locate a Packer
+ *	structure for a given window, creating one if one
+ *	doesn't exist already.
+ *
+ * Results:
+ *	The return value is a pointer to the Packer structure
+ *	corresponding to tkwin.
+ *
+ * Side effects:
+ *	A new packer structure may be created.  If so, then
+ *	a callback is set up to clean things up when the
+ *	window is deleted.
+ *
+ *--------------------------------------------------------------
+ */
+
+static Packer *
+GetPacker(tkwin)
+    Tk_Window tkwin;		/* Token for window for which
+				 * packer structure is desired. */
+{
+    register Packer *packPtr;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    if (!initialized) {
+	initialized = 1;
+	Tcl_InitHashTable(&packerHashTable, TCL_ONE_WORD_KEYS);
+    }
+
+    /*
+     * See if there's already packer for this window.  If not,
+     * then create a new one.
+     */
+
+    hPtr = Tcl_CreateHashEntry(&packerHashTable, (char *) tkwin, &new);
+    if (!new) {
+	return (Packer *) Tcl_GetHashValue(hPtr);
+    }
+    packPtr = (Packer *) ckalloc(sizeof(Packer));
+    packPtr->tkwin = tkwin;
+    packPtr->masterPtr = NULL;
+    packPtr->nextPtr = NULL;
+    packPtr->slavePtr = NULL;
+    packPtr->side = TOP;
+    packPtr->anchor = TK_ANCHOR_CENTER;
+    packPtr->padX = packPtr->padY = 0;
+    packPtr->iPadX = packPtr->iPadY = 0;
+    packPtr->doubleBw = 2*Tk_Changes(tkwin)->border_width;
+    packPtr->abortPtr = NULL;
+    packPtr->flags = 0;
+    Tcl_SetHashValue(hPtr, packPtr);
+    Tk_CreateEventHandler(tkwin, StructureNotifyMask,
+	    PackStructureProc, (ClientData) packPtr);
+    return packPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PackAfter --
+ *
+ *	This procedure does most of the real work of adding
+ *	one or more windows into the packing order for its parent.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *	The geometry of the specified windows may change, both now and
+ *	again in the future.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+PackAfter(interp, prevPtr, masterPtr, argc, argv)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Packer *prevPtr;		/* Pack windows in argv just after this
+				 * window;  NULL means pack as first
+				 * child of masterPtr. */
+    Packer *masterPtr;		/* Master in which to pack windows. */
+    int argc;			/* Number of elements in argv. */
+    char **argv;		/* Array of lists, each containing 2
+				 * elements:  window name and side
+				 * against which to pack. */
+{
+    register Packer *packPtr;
+    Tk_Window tkwin, ancestor, parent;
+    size_t length;
+    char **options;
+    int index, tmp, optionCount, c;
+
+    /*
+     * Iterate over all of the window specifiers, each consisting of
+     * two arguments.  The first argument contains the window name and
+     * the additional arguments contain options such as "top" or
+     * "padx 20".
+     */
+
+    for ( ; argc > 0; argc -= 2, argv += 2, prevPtr = packPtr) {
+	if (argc < 2) {
+	    Tcl_AppendResult(interp, "wrong # args: window \"",
+		    argv[0], "\" should be followed by options",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Find the packer for the window to be packed, and make sure
+	 * that the window in which it will be packed is either its
+	 * or a descendant of its parent.
+	 */
+
+	tkwin = Tk_NameToWindow(interp, argv[0], masterPtr->tkwin);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+
+	parent = Tk_Parent(tkwin);
+	for (ancestor = masterPtr->tkwin; ; ancestor = Tk_Parent(ancestor)) {
+	    if (ancestor == parent) {
+		break;
+	    }
+	    if (((Tk_FakeWin *) (ancestor))->flags & TK_TOP_LEVEL) {
+		badWindow:
+		Tcl_AppendResult(interp, "can't pack ", argv[0],
+			" inside ", Tk_PathName(masterPtr->tkwin),
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (((Tk_FakeWin *) (tkwin))->flags & TK_TOP_LEVEL) {
+	    goto badWindow;
+	}
+	if (tkwin == masterPtr->tkwin) {
+	    goto badWindow;
+	}
+	packPtr = GetPacker(tkwin);
+
+	/*
+	 * Process options for this window.
+	 */
+
+	if (Tcl_SplitList(interp, argv[1], &optionCount, &options) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	packPtr->side = TOP;
+	packPtr->anchor = TK_ANCHOR_CENTER;
+	packPtr->padX = packPtr->padY = 0;
+	packPtr->iPadX = packPtr->iPadY = 0;
+	packPtr->flags &= ~(FILLX|FILLY|EXPAND);
+	packPtr->flags |= OLD_STYLE;
+	for (index = 0 ; index < optionCount; index++) {
+	    char *curOpt = options[index];
+
+	    c = curOpt[0];
+	    length = strlen(curOpt);
+
+	    if ((c == 't')
+		    && (strncmp(curOpt, "top", length)) == 0) {
+		packPtr->side = TOP;
+	    } else if ((c == 'b')
+		    && (strncmp(curOpt, "bottom", length)) == 0) {
+		packPtr->side = BOTTOM;
+	    } else if ((c == 'l')
+		    && (strncmp(curOpt, "left", length)) == 0) {
+		packPtr->side = LEFT;
+	    } else if ((c == 'r')
+		    && (strncmp(curOpt, "right", length)) == 0) {
+		packPtr->side = RIGHT;
+	    } else if ((c == 'e')
+		    && (strncmp(curOpt, "expand", length)) == 0) {
+		packPtr->flags |= EXPAND;
+	    } else if ((c == 'f')
+		    && (strcmp(curOpt, "fill")) == 0) {
+		packPtr->flags |= FILLX|FILLY;
+	    } else if ((length == 5) && (strcmp(curOpt, "fillx")) == 0) {
+		packPtr->flags |= FILLX;
+	    } else if ((length == 5) && (strcmp(curOpt, "filly")) == 0) {
+		packPtr->flags |= FILLY;
+	    } else if ((c == 'p') && (strcmp(curOpt, "padx")) == 0) {
+		if (optionCount < (index+2)) {
+		    missingPad:
+		    Tcl_AppendResult(interp, "wrong # args: \"", curOpt,
+			    "\" option must be followed by screen distance",
+			    (char *) NULL);
+		    goto error;
+		}
+		if ((Tk_GetPixels(interp, tkwin, options[index+1], &tmp)
+			!= TCL_OK) || (tmp < 0)) {
+		    badPad:
+		    Tcl_AppendResult(interp, "bad pad value \"",
+			    options[index+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    goto error;
+		}
+		packPtr->padX = tmp;
+		packPtr->iPadX = 0;
+		index++;
+	    } else if ((c == 'p') && (strcmp(curOpt, "pady")) == 0) {
+		if (optionCount < (index+2)) {
+		    goto missingPad;
+		}
+		if ((Tk_GetPixels(interp, tkwin, options[index+1], &tmp)
+			!= TCL_OK) || (tmp < 0)) {
+		    goto badPad;
+		}
+		packPtr->padY = tmp;
+		packPtr->iPadY = 0;
+		index++;
+	    } else if ((c == 'f') && (length > 1)
+		    && (strncmp(curOpt, "frame", length) == 0)) {
+		if (optionCount < (index+2)) {
+		    Tcl_AppendResult(interp, "wrong # args: \"frame\" ",
+			    "option must be followed by anchor point",
+			    (char *) NULL);
+		    goto error;
+		}
+		if (Tk_GetAnchor(interp, options[index+1],
+			&packPtr->anchor) != TCL_OK) {
+		    goto error;
+		}
+		index++;
+	    } else {
+		Tcl_AppendResult(interp, "bad option \"", curOpt,
+			"\": should be top, bottom, left, right, ",
+			"expand, fill, fillx, filly, padx, pady, or frame",
+			(char *) NULL);
+		goto error;
+	    }
+	}
+
+	if (packPtr != prevPtr) {
+
+	    /*
+	     * Unpack this window if it's currently packed.
+	     */
+
+	    if (packPtr->masterPtr != NULL) {
+		if ((packPtr->masterPtr != masterPtr) &&
+			(packPtr->masterPtr->tkwin
+			!= Tk_Parent(packPtr->tkwin))) {
+		    Tk_UnmaintainGeometry(packPtr->tkwin,
+			    packPtr->masterPtr->tkwin);
+		}
+		Unlink(packPtr);
+	    }
+	
+	    /*
+	     * Add the window in the correct place in its parent's
+	     * packing order, then make sure that the window is
+	     * managed by us.
+	     */
+
+	    packPtr->masterPtr = masterPtr;
+	    if (prevPtr == NULL) {
+		packPtr->nextPtr = masterPtr->slavePtr;
+		masterPtr->slavePtr = packPtr;
+	    } else {
+		packPtr->nextPtr = prevPtr->nextPtr;
+		prevPtr->nextPtr = packPtr;
+	    }
+	    Tk_ManageGeometry(tkwin, &packerType, (ClientData) packPtr);
+	}
+	ckfree((char *) options);
+    }
+
+    /*
+     * Arrange for the parent to be re-packed at the first
+     * idle moment.
+     */
+
+    if (masterPtr->abortPtr != NULL) {
+	*masterPtr->abortPtr = 1;
+    }
+    if (!(masterPtr->flags & REQUESTED_REPACK)) {
+	masterPtr->flags |= REQUESTED_REPACK;
+	Tcl_DoWhenIdle(ArrangePacking, (ClientData) masterPtr);
+    }
+    return TCL_OK;
+
+    error:
+    ckfree((char *) options);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Unlink --
+ *
+ *	Remove a packer from its parent's list of slaves.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The parent will be scheduled for repacking.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+Unlink(packPtr)
+    register Packer *packPtr;		/* Window to unlink. */
+{
+    register Packer *masterPtr, *packPtr2;
+
+    masterPtr = packPtr->masterPtr;
+    if (masterPtr == NULL) {
+	return;
+    }
+    if (masterPtr->slavePtr == packPtr) {
+	masterPtr->slavePtr = packPtr->nextPtr;
+    } else {
+	for (packPtr2 = masterPtr->slavePtr; ; packPtr2 = packPtr2->nextPtr) {
+	    if (packPtr2 == NULL) {
+		panic("Unlink couldn't find previous window");
+	    }
+	    if (packPtr2->nextPtr == packPtr) {
+		packPtr2->nextPtr = packPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    if (!(masterPtr->flags & REQUESTED_REPACK)) {
+	masterPtr->flags |= REQUESTED_REPACK;
+	Tcl_DoWhenIdle(ArrangePacking, (ClientData) masterPtr);
+    }
+    if (masterPtr->abortPtr != NULL) {
+	*masterPtr->abortPtr = 1;
+    }
+
+    packPtr->masterPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyPacker --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a packer at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the packer is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyPacker(memPtr)
+    char *memPtr;		/* Info about packed window that
+				 * is now dead. */
+{
+    register Packer *packPtr = (Packer *) memPtr;
+    ckfree((char *) packPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PackStructureProc --
+ *
+ *	This procedure is invoked by the Tk event dispatcher in response
+ *	to StructureNotify events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a window was just deleted, clean up all its packer-related
+ *	information.  If it was just resized, repack its slaves, if
+ *	any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+PackStructureProc(clientData, eventPtr)
+    ClientData clientData;		/* Our information about window
+					 * referred to by eventPtr. */
+    XEvent *eventPtr;			/* Describes what just happened. */
+{
+    register Packer *packPtr = (Packer *) clientData;
+    if (eventPtr->type == ConfigureNotify) {
+	if ((packPtr->slavePtr != NULL)
+		&& !(packPtr->flags & REQUESTED_REPACK)) {
+	    packPtr->flags |= REQUESTED_REPACK;
+	    Tcl_DoWhenIdle(ArrangePacking, (ClientData) packPtr);
+	}
+	if (packPtr->doubleBw != 2*Tk_Changes(packPtr->tkwin)->border_width) {
+	    if ((packPtr->masterPtr != NULL)
+		    && !(packPtr->masterPtr->flags & REQUESTED_REPACK)) {
+		packPtr->doubleBw = 2*Tk_Changes(packPtr->tkwin)->border_width;
+		packPtr->masterPtr->flags |= REQUESTED_REPACK;
+		Tcl_DoWhenIdle(ArrangePacking, (ClientData) packPtr->masterPtr);
+	    }
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	register Packer *slavePtr, *nextPtr;
+
+	if (packPtr->masterPtr != NULL) {
+	    Unlink(packPtr);
+	}
+	for (slavePtr = packPtr->slavePtr; slavePtr != NULL;
+		slavePtr = nextPtr) {
+	    Tk_ManageGeometry(slavePtr->tkwin, (Tk_GeomMgr *) NULL,
+		    (ClientData) NULL);
+	    Tk_UnmapWindow(slavePtr->tkwin);
+	    slavePtr->masterPtr = NULL;
+	    nextPtr = slavePtr->nextPtr;
+	    slavePtr->nextPtr = NULL;
+	}
+	Tcl_DeleteHashEntry(Tcl_FindHashEntry(&packerHashTable,
+		(char *) packPtr->tkwin));
+	if (packPtr->flags & REQUESTED_REPACK) {
+	    Tcl_CancelIdleCall(ArrangePacking, (ClientData) packPtr);
+	}
+	packPtr->tkwin = NULL;
+	Tcl_EventuallyFree((ClientData) packPtr, DestroyPacker);
+    } else if (eventPtr->type == MapNotify) {
+	/*
+	 * When a master gets mapped, must redo the geometry computation
+	 * so that all of its slaves get remapped.
+	 */
+
+	if ((packPtr->slavePtr != NULL)
+		&& !(packPtr->flags & REQUESTED_REPACK)) {
+	    packPtr->flags |= REQUESTED_REPACK;
+	    Tcl_DoWhenIdle(ArrangePacking, (ClientData) packPtr);
+	}
+    } else if (eventPtr->type == UnmapNotify) {
+	Packer *packPtr2;
+
+	/*
+	 * Unmap all of the slaves when the master gets unmapped,
+	 * so that they don't bother to keep redisplaying
+	 * themselves.
+	 */
+
+	for (packPtr2 = packPtr->slavePtr; packPtr2 != NULL;
+		packPtr2 = packPtr2->nextPtr) {
+	    Tk_UnmapWindow(packPtr2->tkwin);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureSlaves --
+ *
+ *	This implements the guts of the "pack configure" command.  Given
+ *	a list of slaves and configuration options, it arranges for the
+ *	packer to manage the slaves and sets the specified options.
+ *
+ * Results:
+ *	TCL_OK is returned if all went well.  Otherwise, TCL_ERROR is
+ *	returned and interp->result is set to contain an error message.
+ *
+ * Side effects:
+ *	Slave windows get taken over by the packer.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureSlaves(interp, tkwin, argc, argv)
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    Tk_Window tkwin;		/* Any window in application containing
+				 * slaves.  Used to look up slave names. */
+    int argc;			/* Number of elements in argv. */
+    char *argv[];		/* Argument strings:  contains one or more
+				 * window names followed by any number
+				 * of "option value" pairs.  Caller must
+				 * make sure that there is at least one
+				 * window name. */
+{
+    Packer *masterPtr, *slavePtr, *prevPtr, *otherPtr;
+    Tk_Window other, slave, parent, ancestor;
+    int i, j, numWindows, c, tmp, positionGiven;
+    size_t length;
+
+    /*
+     * Find out how many windows are specified.
+     */
+
+    for (numWindows = 0; numWindows < argc; numWindows++) {
+	if (argv[numWindows][0] != '.') {
+	    break;
+	}
+    }
+
+    /*
+     * Iterate over all of the slave windows, parsing the configuration
+     * options for each slave.  It's a bit wasteful to re-parse the
+     * options for each slave, but things get too messy if we try to
+     * parse the arguments just once at the beginning.  For example,
+     * if a slave already is packed we want to just change a few
+     * existing values without resetting everything.  If there are
+     * multiple windows, the -after, -before, and -in options only
+     * get processed for the first window.
+     */
+
+    masterPtr = NULL;
+    prevPtr = NULL;
+    positionGiven = 0;
+    for (j = 0; j < numWindows; j++) {
+	slave = Tk_NameToWindow(interp, argv[j], tkwin);
+	if (slave == NULL) {
+	    return TCL_ERROR;
+	}
+	if (Tk_IsTopLevel(slave)) {
+	    Tcl_AppendResult(interp, "can't pack \"", argv[j],
+		    "\": it's a top-level window", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	slavePtr = GetPacker(slave);
+	slavePtr->flags &= ~OLD_STYLE;
+
+	/*
+	 * If the slave isn't currently packed, reset all of its
+	 * configuration information to default values (there could
+	 * be old values left from a previous packing).
+	 */
+
+	if (slavePtr->masterPtr == NULL) {
+	    slavePtr->side = TOP;
+	    slavePtr->anchor = TK_ANCHOR_CENTER;
+	    slavePtr->padX = slavePtr->padY = 0;
+	    slavePtr->iPadX = slavePtr->iPadY = 0;
+	    slavePtr->flags &= ~(FILLX|FILLY|EXPAND);
+	}
+
+	for (i = numWindows; i < argc; i+=2) {
+	    if ((i+2) > argc) {
+		Tcl_AppendResult(interp, "extra option \"", argv[i],
+			"\" (option with no value?)", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    length = strlen(argv[i]);
+	    if (length < 2) {
+		goto badOption;
+	    }
+	    c = argv[i][1];
+	    if ((c == 'a') && (strncmp(argv[i], "-after", length) == 0)
+		    && (length >= 2)) {
+		if (j == 0) {
+		    other = Tk_NameToWindow(interp, argv[i+1], tkwin);
+		    if (other == NULL) {
+			return TCL_ERROR;
+		    }
+		    prevPtr = GetPacker(other);
+		    if (prevPtr->masterPtr == NULL) {
+			notPacked:
+			Tcl_AppendResult(interp, "window \"", argv[i+1],
+				"\" isn't packed", (char *) NULL);
+			return TCL_ERROR;
+		    }
+		    masterPtr = prevPtr->masterPtr;
+		    positionGiven = 1;
+		}
+	    } else if ((c == 'a') && (strncmp(argv[i], "-anchor", length) == 0)
+		    && (length >= 2)) {
+		if (Tk_GetAnchor(interp, argv[i+1], &slavePtr->anchor)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    } else if ((c == 'b')
+		    && (strncmp(argv[i], "-before", length) == 0)) {
+		if (j == 0) {
+		    other = Tk_NameToWindow(interp, argv[i+1], tkwin);
+		    if (other == NULL) {
+			return TCL_ERROR;
+		    }
+		    otherPtr = GetPacker(other);
+		    if (otherPtr->masterPtr == NULL) {
+			goto notPacked;
+		    }
+		    masterPtr = otherPtr->masterPtr;
+		    prevPtr = masterPtr->slavePtr;
+		    if (prevPtr == otherPtr) {
+			prevPtr = NULL;
+		    } else {
+			while (prevPtr->nextPtr != otherPtr) {
+			    prevPtr = prevPtr->nextPtr;
+			}
+		    }
+		    positionGiven = 1;
+		}
+	    } else if ((c == 'e')
+		    && (strncmp(argv[i], "-expand", length) == 0)) {
+		if (Tcl_GetBoolean(interp, argv[i+1], &tmp) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		slavePtr->flags &= ~EXPAND;
+		if (tmp) {
+		    slavePtr->flags |= EXPAND;
+		}
+	    } else if ((c == 'f') && (strncmp(argv[i], "-fill", length) == 0)) {
+		if (strcmp(argv[i+1], "none") == 0) {
+		    slavePtr->flags &= ~(FILLX|FILLY);
+		} else if (strcmp(argv[i+1], "x") == 0) {
+		    slavePtr->flags = (slavePtr->flags & ~FILLY) | FILLX;
+		} else if (strcmp(argv[i+1], "y") == 0) {
+		    slavePtr->flags = (slavePtr->flags & ~FILLX) | FILLY;
+		} else if (strcmp(argv[i+1], "both") == 0) {
+		    slavePtr->flags |= FILLX|FILLY;
+		} else {
+		    Tcl_AppendResult(interp, "bad fill style \"", argv[i+1],
+			    "\": must be none, x, y, or both", (char *) NULL);
+		    return TCL_ERROR;
+		}
+	    } else if ((c == 'i') && (strcmp(argv[i], "-in") == 0)) {
+		if (j == 0) {
+		    other = Tk_NameToWindow(interp, argv[i+1], tkwin);
+		    if (other == NULL) {
+			return TCL_ERROR;
+		    }
+		    masterPtr = GetPacker(other);
+		    prevPtr = masterPtr->slavePtr;
+		    if (prevPtr != NULL) {
+			while (prevPtr->nextPtr != NULL) {
+			    prevPtr = prevPtr->nextPtr;
+			}
+		    }
+		    positionGiven = 1;
+		}
+	    } else if ((c == 'i') && (strcmp(argv[i], "-ipadx") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp < 0)) {
+		    badPad:
+		    Tcl_ResetResult(interp);
+		    Tcl_AppendResult(interp, "bad pad value \"", argv[i+1],
+			    "\": must be positive screen distance",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		slavePtr->iPadX = tmp*2;
+	    } else if ((c == 'i') && (strcmp(argv[i], "-ipady") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    goto badPad;
+		}
+		slavePtr->iPadY = tmp*2;
+	    } else if ((c == 'p') && (strcmp(argv[i], "-padx") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    goto badPad;
+		}
+		slavePtr->padX = tmp*2;
+	    } else if ((c == 'p') && (strcmp(argv[i], "-pady") == 0)) {
+		if ((Tk_GetPixels(interp, slave, argv[i+1], &tmp) != TCL_OK)
+			|| (tmp< 0)) {
+		    goto badPad;
+		}
+		slavePtr->padY = tmp*2;
+	    } else if ((c == 's') && (strncmp(argv[i], "-side", length) == 0)) {
+		c = argv[i+1][0];
+		if ((c == 't') && (strcmp(argv[i+1], "top") == 0)) {
+		    slavePtr->side = TOP;
+		} else if ((c == 'b') && (strcmp(argv[i+1], "bottom") == 0)) {
+		    slavePtr->side = BOTTOM;
+		} else if ((c == 'l') && (strcmp(argv[i+1], "left") == 0)) {
+		    slavePtr->side = LEFT;
+		} else if ((c == 'r') && (strcmp(argv[i+1], "right") == 0)) {
+		    slavePtr->side = RIGHT;
+		} else {
+		    Tcl_AppendResult(interp, "bad side \"", argv[i+1],
+			    "\": must be top, bottom, left, or right",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+	    } else {
+		badOption:
+		Tcl_AppendResult(interp, "unknown or ambiguous option \"",
+			argv[i], "\": must be -after, -anchor, -before, ",
+			"-expand, -fill, -in, -ipadx, -ipady, -padx, ",
+			"-pady, or -side", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	/*
+	 * If no position in a packing list was specified and the slave
+	 * is already packed, then leave it in its current location in
+	 * its current packing list.
+	 */
+
+	if (!positionGiven && (slavePtr->masterPtr != NULL)) {
+	    masterPtr = slavePtr->masterPtr;
+	    goto scheduleLayout;
+	}
+
+	/*
+	 * If the slave is going to be put back after itself then
+	 * skip the whole operation, since it won't work anyway.
+	 */
+
+	if (prevPtr == slavePtr) {
+	    masterPtr = slavePtr->masterPtr;
+	    goto scheduleLayout;
+	}
+    
+	/*
+	 * If none of the "-in", "-before", or "-after" options has
+	 * been specified, arrange for the slave to go at the end of
+	 * the order for its parent.
+	 */
+    
+	if (!positionGiven) {
+	    masterPtr = GetPacker(Tk_Parent(slave));
+	    prevPtr = masterPtr->slavePtr;
+	    if (prevPtr != NULL) {
+		while (prevPtr->nextPtr != NULL) {
+		    prevPtr = prevPtr->nextPtr;
+		}
+	    }
+	}
+
+	/*
+	 * Make sure that the slave's parent is either the master or
+	 * an ancestor of the master, and that the master and slave
+	 * aren't the same.
+	 */
+    
+	parent = Tk_Parent(slave);
+	for (ancestor = masterPtr->tkwin; ; ancestor = Tk_Parent(ancestor)) {
+	    if (ancestor == parent) {
+		break;
+	    }
+	    if (Tk_IsTopLevel(ancestor)) {
+		Tcl_AppendResult(interp, "can't pack ", argv[j],
+			" inside ", Tk_PathName(masterPtr->tkwin),
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (slave == masterPtr->tkwin) {
+	    Tcl_AppendResult(interp, "can't pack ", argv[j],
+		    " inside itself", (char *) NULL);
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Unpack the slave if it's currently packed, then position it
+	 * after prevPtr.
+	 */
+
+	if (slavePtr->masterPtr != NULL) {
+	    if ((slavePtr->masterPtr != masterPtr) &&
+		    (slavePtr->masterPtr->tkwin
+		    != Tk_Parent(slavePtr->tkwin))) {
+		Tk_UnmaintainGeometry(slavePtr->tkwin,
+			slavePtr->masterPtr->tkwin);
+	    }
+	    Unlink(slavePtr);
+	}
+	slavePtr->masterPtr = masterPtr;
+	if (prevPtr == NULL) {
+	    slavePtr->nextPtr = masterPtr->slavePtr;
+	    masterPtr->slavePtr = slavePtr;
+	} else {
+	    slavePtr->nextPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = slavePtr;
+	}
+	Tk_ManageGeometry(slave, &packerType, (ClientData) slavePtr);
+	prevPtr = slavePtr;
+
+	/*
+	 * Arrange for the parent to be re-packed at the first
+	 * idle moment.
+	 */
+
+	scheduleLayout:
+	if (masterPtr->abortPtr != NULL) {
+	    *masterPtr->abortPtr = 1;
+	}
+	if (!(masterPtr->flags & REQUESTED_REPACK)) {
+	    masterPtr->flags |= REQUESTED_REPACK;
+	    Tcl_DoWhenIdle(ArrangePacking, (ClientData) masterPtr);
+	}
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkPlace.c b/Tk/generic/tkPlace.c
new file mode 100644
index 0000000..7fa1c16
--- /dev/null
+++ b/Tk/generic/tkPlace.c
@@ -0,0 +1,1132 @@
+/* 
+ * tkPlace.c --
+ *
+ *	This file contains code to implement a simple geometry manager
+ *	for Tk based on absolute placement or "rubber-sheet" placement.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkPlace.c 1.25 96/02/15 18:52:32
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * Border modes for relative placement:
+ *
+ * BM_INSIDE:		relative distances computed using area inside
+ *			all borders of master window.
+ * BM_OUTSIDE:		relative distances computed using outside area
+ *			that includes all borders of master.
+ * BM_IGNORE:		border issues are ignored:  place relative to
+ *			master's actual window size.
+ */
+
+typedef enum {BM_INSIDE, BM_OUTSIDE, BM_IGNORE} BorderMode;
+
+/*
+ * For each window whose geometry is managed by the placer there is
+ * a structure of the following type:
+ */
+
+typedef struct Slave {
+    Tk_Window tkwin;		/* Tk's token for window. */
+    struct Master *masterPtr;	/* Pointer to information for window
+				 * relative to which tkwin is placed.
+				 * This isn't necessarily the logical
+				 * parent of tkwin.  NULL means the
+				 * master was deleted or never assigned. */
+    struct Slave *nextPtr;	/* Next in list of windows placed relative
+				 * to same master (NULL for end of list). */
+
+    /*
+     * Geometry information for window;  where there are both relative
+     * and absolute values for the same attribute (e.g. x and relX) only
+     * one of them is actually used, depending on flags.
+     */
+
+    int x, y;			/* X and Y pixel coordinates for tkwin. */
+    float relX, relY;		/* X and Y coordinates relative to size of
+				 * master. */
+    int width, height;		/* Absolute dimensions for tkwin. */
+    float relWidth, relHeight;	/* Dimensions for tkwin relative to size of
+				 * master. */
+    Tk_Anchor anchor;		/* Which point on tkwin is placed at the
+				 * given position. */
+    BorderMode borderMode;	/* How to treat borders of master window. */
+    int flags;			/* Various flags;  see below for bit
+				 * definitions. */
+} Slave;
+
+/*
+ * Flag definitions for Slave structures:
+ *
+ * CHILD_WIDTH -		1 means -width was specified;
+ * CHILD_REL_WIDTH -		1 means -relwidth was specified.
+ * CHILD_HEIGHT -		1 means -height was specified;
+ * CHILD_REL_HEIGHT -		1 means -relheight was specified.
+ */
+
+#define CHILD_WIDTH		1
+#define CHILD_REL_WIDTH		2
+#define CHILD_HEIGHT		4
+#define CHILD_REL_HEIGHT	8
+
+/*
+ * For each master window that has a slave managed by the placer there
+ * is a structure of the following form:
+ */
+
+typedef struct Master {
+    Tk_Window tkwin;		/* Tk's token for master window. */
+    struct Slave *slavePtr;	/* First in linked list of slaves
+				 * placed relative to this master. */
+    int flags;			/* See below for bit definitions. */
+} Master;
+
+/*
+ * Flag definitions for masters:
+ *
+ * PARENT_RECONFIG_PENDING -	1 means that a call to RecomputePlacement
+ *				is already pending via a Do_When_Idle handler.
+ */
+
+#define PARENT_RECONFIG_PENDING	1
+
+/*
+ * The hash tables below both use Tk_Window tokens as keys.  They map
+ * from Tk_Windows to Slave and Master structures for windows, if they
+ * exist.
+ */
+
+static int initialized = 0;
+static Tcl_HashTable masterTable;
+static Tcl_HashTable slaveTable;
+/*
+ * The following structure is the official type record for the
+ * placer:
+ */
+
+static void		PlaceRequestProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		PlaceLostSlaveProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+
+static Tk_GeomMgr placerType = {
+    "place",				/* name */
+    PlaceRequestProc,			/* requestProc */
+    PlaceLostSlaveProc,			/* lostSlaveProc */
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		SlaveStructureProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		ConfigureSlave _ANSI_ARGS_((Tcl_Interp *interp,
+			    Slave *slavePtr, int argc, char **argv));
+static Slave *		FindSlave _ANSI_ARGS_((Tk_Window tkwin));
+static Master *		FindMaster _ANSI_ARGS_((Tk_Window tkwin));
+static void		MasterStructureProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		RecomputePlacement _ANSI_ARGS_((ClientData clientData));
+static void		UnlinkSlave _ANSI_ARGS_((Slave *slavePtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_PlaceCmd --
+ *
+ *	This procedure is invoked to process the "place" Tcl
+ *	commands.  See the user documentation for details on
+ *	what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_PlaceCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin;
+    Slave *slavePtr;
+    Tcl_HashEntry *hPtr;
+    size_t length;
+    int c;
+
+    /*
+     * Initialize, if that hasn't been done yet.
+     */
+
+    if (!initialized) {
+	Tcl_InitHashTable(&masterTable, TCL_ONE_WORD_KEYS);
+	Tcl_InitHashTable(&slaveTable, TCL_ONE_WORD_KEYS);
+	initialized = 1;
+    }
+
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option|pathName args", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+
+    /*
+     * Handle special shortcut where window name is first argument.
+     */
+
+    if (c == '.') {
+	tkwin = Tk_NameToWindow(interp, argv[1], (Tk_Window) clientData);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	slavePtr = FindSlave(tkwin);
+	return ConfigureSlave(interp, slavePtr, argc-2, argv+2);
+    }
+
+    /*
+     * Handle more general case of option followed by window name followed
+     * by possible additional arguments.
+     */
+
+    tkwin = Tk_NameToWindow(interp, argv[2], (Tk_Window) clientData);
+    if (tkwin == NULL) {
+	return TCL_ERROR;
+    }
+    if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)) {
+	if (argc < 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0],
+		    " configure pathName option value ?option value ...?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	slavePtr = FindSlave(tkwin);
+	return ConfigureSlave(interp, slavePtr, argc-3, argv+3);
+    } else if ((c == 'f') && (strncmp(argv[1], "forget", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " forget pathName\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&slaveTable, (char *) tkwin);
+	if (hPtr == NULL) {
+	    return TCL_OK;
+	}
+	slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
+	if ((slavePtr->masterPtr != NULL) &&
+		(slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin))) {
+	    Tk_UnmaintainGeometry(slavePtr->tkwin,
+		    slavePtr->masterPtr->tkwin);
+	}
+	UnlinkSlave(slavePtr);
+	Tcl_DeleteHashEntry(hPtr);
+	Tk_DeleteEventHandler(tkwin, StructureNotifyMask, SlaveStructureProc,
+		(ClientData) slavePtr);
+	Tk_ManageGeometry(tkwin, (Tk_GeomMgr *) NULL, (ClientData) NULL);
+	Tk_UnmapWindow(tkwin);
+	ckfree((char *) slavePtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "info", length) == 0)) {
+	char buffer[50];
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " info pathName\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&slaveTable, (char *) tkwin);
+	if (hPtr == NULL) {
+	    return TCL_OK;
+	}
+	slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
+#ifdef STk_CODE
+	sprintf(buffer, ":x %d", slavePtr->x);
+#else
+	sprintf(buffer, "-x %d", slavePtr->x);
+#endif
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+#ifdef STk_CODE
+	sprintf(buffer, " :relx %.4g", slavePtr->relX);
+#else
+	sprintf(buffer, " -relx %.4g", slavePtr->relX);
+#endif
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+#ifdef STk_CODE
+	sprintf(buffer, " :y %d", slavePtr->y);
+#else
+	sprintf(buffer, " -y %d", slavePtr->y);
+#endif
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+#ifdef STk_CODE
+	sprintf(buffer, " :rely %.4g", slavePtr->relY);
+#else
+	sprintf(buffer, " -rely %.4g", slavePtr->relY);
+#endif
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+	if (slavePtr->flags & CHILD_WIDTH) {
+#ifdef STk_CODE
+	    sprintf(buffer, " :width %d", slavePtr->width);
+#else
+	    sprintf(buffer, " -width %d", slavePtr->width);
+#endif
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :width \"\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -width {}", (char *) NULL);
+#endif
+	}
+	if (slavePtr->flags & CHILD_REL_WIDTH) {
+#ifdef STk_CODE
+	    sprintf(buffer, " :relwidth %.4g", slavePtr->relWidth);
+#else
+	    sprintf(buffer, " -relwidth %.4g", slavePtr->relWidth);
+#endif
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :relwidth \"\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -relwidth {}", (char *) NULL);
+#endif
+	}
+	if (slavePtr->flags & CHILD_HEIGHT) {
+#ifdef STk_CODE
+	    sprintf(buffer, " :height %d", slavePtr->height);
+#else
+	    sprintf(buffer, " -height %d", slavePtr->height);
+#endif
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :height \"\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -height {}", (char *) NULL);
+#endif
+	}
+	if (slavePtr->flags & CHILD_REL_HEIGHT) {
+#ifdef STk_CODE
+	    sprintf(buffer, " :relheight %.4g", slavePtr->relHeight);
+#else
+	    sprintf(buffer, " -relheight %.4g", slavePtr->relHeight);
+#endif
+	    Tcl_AppendResult(interp, buffer, (char *) NULL);
+	} else {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :relheight \"\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -relheight {}", (char *) NULL);
+#endif
+	}
+
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, 
+			 " :anchor \"", Tk_NameOfAnchor(slavePtr->anchor), "\"",
+#else
+	Tcl_AppendResult(interp, " -anchor ", Tk_NameOfAnchor(slavePtr->anchor),
+#endif
+		(char *) NULL);
+	if (slavePtr->borderMode == BM_OUTSIDE) {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :bordermode \"outside\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -bordermode outside", (char *) NULL);
+#endif
+	} else if (slavePtr->borderMode == BM_IGNORE) {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :bordermode \"ignore\"", (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -bordermode ignore", (char *) NULL);
+#endif
+	}
+	if ((slavePtr->masterPtr != NULL)
+		&& (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin))) {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " :in #.",
+		    Tk_PathName(slavePtr->masterPtr->tkwin), (char *) NULL);
+#else
+	    Tcl_AppendResult(interp, " -in ",
+		    Tk_PathName(slavePtr->masterPtr->tkwin), (char *) NULL);
+#endif
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "slaves", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " slaves pathName\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&masterTable, (char *) tkwin);
+#ifdef STk_CODE
+	Tcl_AppendElement(interp, "(");
+#endif
+	if (hPtr != NULL) {
+	    Master *masterPtr;
+	    masterPtr = (Master *) Tcl_GetHashValue(hPtr);
+	    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+		    slavePtr = slavePtr->nextPtr) {
+		Tcl_AppendElement(interp, Tk_PathName(slavePtr->tkwin));
+	    }
+#ifdef STk_CODE
+	Tcl_AppendElement(interp, ")");
+#endif
+	}
+    } else {
+	Tcl_AppendResult(interp, "unknown or ambiguous option \"", argv[1],
+		"\": must be configure, forget, info, or slaves",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindSlave --
+ *
+ *	Given a Tk_Window token, find the Slave structure corresponding
+ *	to that token (making a new one if necessary).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new Slave structure may be created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Slave *
+FindSlave(tkwin)
+    Tk_Window tkwin;		/* Token for desired slave. */
+{
+    Tcl_HashEntry *hPtr;
+    register Slave *slavePtr;
+    int new;
+
+    hPtr = Tcl_CreateHashEntry(&slaveTable, (char *) tkwin, &new);
+    if (new) {
+	slavePtr = (Slave *) ckalloc(sizeof(Slave));
+	slavePtr->tkwin = tkwin;
+	slavePtr->masterPtr = NULL;
+	slavePtr->nextPtr = NULL;
+	slavePtr->x = slavePtr->y = 0;
+	slavePtr->relX = slavePtr->relY = 0.0;
+	slavePtr->width = slavePtr->height = 0;
+	slavePtr->relWidth = slavePtr->relHeight = 0.0;
+	slavePtr->anchor = TK_ANCHOR_NW;
+	slavePtr->borderMode = BM_INSIDE;
+	slavePtr->flags = 0;
+	Tcl_SetHashValue(hPtr, slavePtr);
+	Tk_CreateEventHandler(tkwin, StructureNotifyMask, SlaveStructureProc,
+		(ClientData) slavePtr);
+	Tk_ManageGeometry(tkwin, &placerType, (ClientData) slavePtr);
+    } else {
+	slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
+    }
+    return slavePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UnlinkSlave --
+ *
+ *	This procedure removes a slave window from the chain of slaves
+ *	in its master.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The slave list of slavePtr's master changes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UnlinkSlave(slavePtr)
+    Slave *slavePtr;		/* Slave structure to be unlinked. */
+{
+    register Master *masterPtr;
+    register Slave *prevPtr;
+
+    masterPtr = slavePtr->masterPtr;
+    if (masterPtr == NULL) {
+	return;
+    }
+    if (masterPtr->slavePtr == slavePtr) {
+	masterPtr->slavePtr = slavePtr->nextPtr;
+    } else {
+	for (prevPtr = masterPtr->slavePtr; ;
+		prevPtr = prevPtr->nextPtr) {
+	    if (prevPtr == NULL) {
+		panic("UnlinkSlave couldn't find slave to unlink");
+	    }
+	    if (prevPtr->nextPtr == slavePtr) {
+		prevPtr->nextPtr = slavePtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    slavePtr->masterPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindMaster --
+ *
+ *	Given a Tk_Window token, find the Master structure corresponding
+ *	to that token (making a new one if necessary).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new Master structure may be created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Master *
+FindMaster(tkwin)
+    Tk_Window tkwin;		/* Token for desired master. */
+{
+    Tcl_HashEntry *hPtr;
+    register Master *masterPtr;
+    int new;
+
+    hPtr = Tcl_CreateHashEntry(&masterTable, (char *) tkwin, &new);
+    if (new) {
+	masterPtr = (Master *) ckalloc(sizeof(Master));
+	masterPtr->tkwin = tkwin;
+	masterPtr->slavePtr = NULL;
+	masterPtr->flags = 0;
+	Tcl_SetHashValue(hPtr, masterPtr);
+	Tk_CreateEventHandler(masterPtr->tkwin, StructureNotifyMask,
+		MasterStructureProc, (ClientData) masterPtr);
+    } else {
+	masterPtr = (Master *) Tcl_GetHashValue(hPtr);
+    }
+    return masterPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureSlave --
+ *
+ *	This procedure is called to process an argv/argc list to
+ *	reconfigure the placement of a window.
+ *
+ * Results:
+ *	A standard Tcl result.  If an error occurs then a message is
+ *	left in interp->result.
+ *
+ * Side effects:
+ *	Information in slavePtr may change, and slavePtr's master is
+ *	scheduled for reconfiguration.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureSlave(interp, slavePtr, argc, argv)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Slave *slavePtr;		/* Pointer to current information
+				 * about slave. */
+    int argc;			/* Number of config arguments. */
+    char **argv;		/* String values for arguments. */
+{
+    register Master *masterPtr;
+    int c, result;
+    size_t length;
+    double d;
+
+    result = TCL_OK;
+    if (Tk_IsTopLevel(slavePtr->tkwin)) {
+	Tcl_AppendResult(interp, "can't use placer on top-level window \"",
+		Tk_PathName(slavePtr->tkwin), "\"; use wm command instead",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    for ( ; argc > 0; argc -= 2, argv += 2) {
+	if (argc < 2) {
+	    Tcl_AppendResult(interp, "extra option \"", argv[0],
+		    "\" (option with no value?)", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	length = strlen(argv[0]);
+	c = argv[0][1];
+	if ((c == 'a') && (strncmp(argv[0], "-anchor", length) == 0)) {
+	    if (Tk_GetAnchor(interp, argv[1], &slavePtr->anchor) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	} else if ((c == 'b')
+		&& (strncmp(argv[0], "-bordermode", length) == 0)) {
+	    c = argv[1][0];
+	    length = strlen(argv[1]);
+	    if ((c == 'i') && (strncmp(argv[1], "ignore", length) == 0)
+		    && (length >= 2)) {
+		slavePtr->borderMode = BM_IGNORE;
+	    } else if ((c == 'i') && (strncmp(argv[1], "inside", length) == 0)
+		    && (length >= 2)) {
+		slavePtr->borderMode = BM_INSIDE;
+	    } else if ((c == 'o')
+		    && (strncmp(argv[1], "outside", length) == 0)) {
+		slavePtr->borderMode = BM_OUTSIDE;
+	    } else {
+		Tcl_AppendResult(interp, "bad border mode \"", argv[1],
+			"\": must be ignore, inside, or outside",
+			(char *) NULL);
+		result = TCL_ERROR;
+		goto done;
+	    }
+	} else if ((c == 'h') && (strncmp(argv[0], "-height", length) == 0)) {
+	    if (argv[1][0] == 0) {
+		slavePtr->flags &= ~CHILD_HEIGHT;
+	    } else {
+		if (Tk_GetPixels(interp, slavePtr->tkwin, argv[1],
+			&slavePtr->height) != TCL_OK) {
+		    result = TCL_ERROR;
+		    goto done;
+		}
+		slavePtr->flags |= CHILD_HEIGHT;
+	    }
+	} else if ((c == 'i') && (strncmp(argv[0], "-in", length) == 0)) {
+	    Tk_Window tkwin;
+	    Tk_Window ancestor;
+
+	    tkwin = Tk_NameToWindow(interp, argv[1], slavePtr->tkwin);
+	    if (tkwin == NULL) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+
+	    /*
+	     * Make sure that the new master is either the logical parent
+	     * of the slave or a descendant of that window, and that the
+	     * master and slave aren't the same.
+	     */
+
+	    for (ancestor = tkwin; ; ancestor = Tk_Parent(ancestor)) {
+		if (ancestor == Tk_Parent(slavePtr->tkwin)) {
+		    break;
+		}
+		if (Tk_IsTopLevel(ancestor)) {
+		    Tcl_AppendResult(interp, "can't place ",
+			    Tk_PathName(slavePtr->tkwin), " relative to ",
+			    Tk_PathName(tkwin), (char *) NULL);
+		    result = TCL_ERROR;
+		    goto done;
+		}
+	    }
+	    if (slavePtr->tkwin == tkwin) {
+		Tcl_AppendResult(interp, "can't place ",
+			Tk_PathName(slavePtr->tkwin), " relative to itself",
+			(char *) NULL);
+		result = TCL_ERROR;
+		goto done;
+	    }
+	    if ((slavePtr->masterPtr != NULL)
+		    && (slavePtr->masterPtr->tkwin == tkwin)) {
+		/*
+		 * Re-using same old master.  Nothing to do.
+		 */
+	    } else {
+		if ((slavePtr->masterPtr != NULL)
+			&& (slavePtr->masterPtr->tkwin
+			!= Tk_Parent(slavePtr->tkwin))) {
+		    Tk_UnmaintainGeometry(slavePtr->tkwin,
+			    slavePtr->masterPtr->tkwin);
+		}
+		UnlinkSlave(slavePtr);
+		slavePtr->masterPtr = FindMaster(tkwin);
+		slavePtr->nextPtr = slavePtr->masterPtr->slavePtr;
+		slavePtr->masterPtr->slavePtr = slavePtr;
+	    }
+	} else if ((c == 'r') && (strncmp(argv[0], "-relheight", length) == 0)
+		&& (length >= 5)) {
+	    if (argv[1][0] == 0) {
+		slavePtr->flags &= ~CHILD_REL_HEIGHT;
+	    } else {
+		if (Tcl_GetDouble(interp, argv[1], &d) != TCL_OK) {
+		    result = TCL_ERROR;
+		    goto done;
+		}
+		slavePtr->relHeight = d;
+		slavePtr->flags |= CHILD_REL_HEIGHT;
+	    }
+	} else if ((c == 'r') && (strncmp(argv[0], "-relwidth", length) == 0)
+		&& (length >= 5)) {
+	    if (argv[1][0] == 0) {
+		slavePtr->flags &= ~CHILD_REL_WIDTH;
+	    } else {
+		if (Tcl_GetDouble(interp, argv[1], &d) != TCL_OK) {
+		    result = TCL_ERROR;
+		    goto done;
+		}
+		slavePtr->relWidth = d;
+		slavePtr->flags |= CHILD_REL_WIDTH;
+	    }
+	} else if ((c == 'r') && (strncmp(argv[0], "-relx", length) == 0)
+		&& (length >= 5)) {
+	    if (Tcl_GetDouble(interp, argv[1], &d) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	    slavePtr->relX = d;
+	} else if ((c == 'r') && (strncmp(argv[0], "-rely", length) == 0)
+		&& (length >= 5)) {
+	    if (Tcl_GetDouble(interp, argv[1], &d) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	    slavePtr->relY = d;
+	} else if ((c == 'w') && (strncmp(argv[0], "-width", length) == 0)) {
+	    if (argv[1][0] == 0) {
+		slavePtr->flags &= ~CHILD_WIDTH;
+	    } else {
+		if (Tk_GetPixels(interp, slavePtr->tkwin, argv[1],
+			&slavePtr->width) != TCL_OK) {
+		    result = TCL_ERROR;
+		    goto done;
+		}
+		slavePtr->flags |= CHILD_WIDTH;
+	    }
+	} else if ((c == 'x') && (strncmp(argv[0], "-x", length) == 0)) {
+	    if (Tk_GetPixels(interp, slavePtr->tkwin, argv[1],
+		    &slavePtr->x) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	} else if ((c == 'y') && (strncmp(argv[0], "-y", length) == 0)) {
+	    if (Tk_GetPixels(interp, slavePtr->tkwin, argv[1],
+		    &slavePtr->y) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "unknown or ambiguous option \"",
+		    argv[0], "\": must be -anchor, -bordermode, -height, ",
+		    "-in, -relheight, -relwidth, -relx, -rely, -width, ",
+		    "-x, or -y", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+    }
+
+    /*
+     * If there's no master specified for this slave, use its Tk_Parent.
+     * Then arrange for a placement recalculation in the master.
+     */
+
+    done:
+    masterPtr = slavePtr->masterPtr;
+    if (masterPtr == NULL) {
+	masterPtr = FindMaster(Tk_Parent(slavePtr->tkwin));
+	slavePtr->masterPtr = masterPtr;
+	slavePtr->nextPtr = masterPtr->slavePtr;
+	masterPtr->slavePtr = slavePtr;
+    }
+    if (!(masterPtr->flags & PARENT_RECONFIG_PENDING)) {
+	masterPtr->flags |= PARENT_RECONFIG_PENDING;
+	Tcl_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr);
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RecomputePlacement --
+ *
+ *	This procedure is called as a when-idle handler.  It recomputes
+ *	the geometries of all the slaves of a given master.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Windows may change size or shape.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RecomputePlacement(clientData)
+    ClientData clientData;	/* Pointer to Master record. */
+{
+    register Master *masterPtr = (Master *) clientData;
+    register Slave *slavePtr;
+    int x, y, width, height, tmp;
+    int masterWidth, masterHeight, masterBW;
+    double x1, y1, x2, y2;
+
+    masterPtr->flags &= ~PARENT_RECONFIG_PENDING;
+
+    /*
+     * Iterate over all the slaves for the master.  Each slave's
+     * geometry can be computed independently of the other slaves.
+     */
+
+    for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+	    slavePtr = slavePtr->nextPtr) {
+	/*
+	 * Step 1: compute size and borderwidth of master, taking into
+	 * account desired border mode.
+	 */
+
+	masterBW = 0;
+	masterWidth = Tk_Width(masterPtr->tkwin);
+	masterHeight = Tk_Height(masterPtr->tkwin);
+	if (slavePtr->borderMode == BM_INSIDE) {
+	    masterBW = Tk_InternalBorderWidth(masterPtr->tkwin);
+	} else if (slavePtr->borderMode == BM_OUTSIDE) {
+	    masterBW = -Tk_Changes(masterPtr->tkwin)->border_width;
+	}
+	masterWidth -= 2*masterBW;
+	masterHeight -= 2*masterBW;
+
+	/*
+	 * Step 2:  compute size of slave (outside dimensions including
+	 * border) and location of anchor point within master.
+	 */
+
+	x1 = slavePtr->x + masterBW + (slavePtr->relX*masterWidth);
+	x = x1 + ((x1 > 0) ? 0.5 : -0.5);
+	y1 = slavePtr->y + masterBW + (slavePtr->relY*masterHeight);
+	y = y1 + ((y1 > 0) ? 0.5 : -0.5);
+	if (slavePtr->flags & (CHILD_WIDTH|CHILD_REL_WIDTH)) {
+	    width = 0;
+	    if (slavePtr->flags & CHILD_WIDTH) {
+		width += slavePtr->width;
+	    }
+	    if (slavePtr->flags & CHILD_REL_WIDTH) {
+		/*
+		 * The code below is a bit tricky.  In order to round
+		 * correctly when both relX and relWidth are specified,
+		 * compute the location of the right edge and round that,
+		 * then compute width.  If we compute the width and round
+		 * it, rounding errors in relX and relWidth accumulate.
+		 */
+
+		x2 = x1 + (slavePtr->relWidth*masterWidth);
+		tmp = x2 + ((x2 > 0) ? 0.5 : -0.5);
+		width += tmp - x;
+	    }
+	} else {
+	    width = Tk_ReqWidth(slavePtr->tkwin)
+		    + 2*Tk_Changes(slavePtr->tkwin)->border_width;
+	}
+	if (slavePtr->flags & (CHILD_HEIGHT|CHILD_REL_HEIGHT)) {
+	    height = 0;
+	    if (slavePtr->flags & CHILD_HEIGHT) {
+		height += slavePtr->height;
+	    }
+	    if (slavePtr->flags & CHILD_REL_HEIGHT) {
+		/* 
+		 * See note above for rounding errors in width computation.
+		 */
+
+		y2 = y1 + (slavePtr->relHeight*masterHeight);
+		tmp = y2 + ((y2 > 0) ? 0.5 : -0.5);
+		height += tmp - y;
+	    }
+	} else {
+	    height = Tk_ReqHeight(slavePtr->tkwin)
+		    + 2*Tk_Changes(slavePtr->tkwin)->border_width;
+	}
+
+	/*
+	 * Step 3: adjust the x and y positions so that the desired
+	 * anchor point on the slave appears at that position.  Also
+	 * adjust for the border mode and master's border.
+	 */
+
+	switch (slavePtr->anchor) {
+	    case TK_ANCHOR_N:
+		x -= width/2;
+		break;
+	    case TK_ANCHOR_NE:
+		x -= width;
+		break;
+	    case TK_ANCHOR_E:
+		x -= width;
+		y -= height/2;
+		break;
+	    case TK_ANCHOR_SE:
+		x -= width;
+		y -= height;
+		break;
+	    case TK_ANCHOR_S:
+		x -= width/2;
+		y -= height;
+		break;
+	    case TK_ANCHOR_SW:
+		y -= height;
+		break;
+	    case TK_ANCHOR_W:
+		y -= height/2;
+		break;
+	    case TK_ANCHOR_NW:
+		break;
+	    case TK_ANCHOR_CENTER:
+		x -= width/2;
+		y -= height/2;
+		break;
+	}
+
+	/*
+	 * Step 4: adjust width and height again to reflect inside dimensions
+	 * of window rather than outside.  Also make sure that the width and
+	 * height aren't zero.
+	 */
+
+	width -= 2*Tk_Changes(slavePtr->tkwin)->border_width;
+	height -= 2*Tk_Changes(slavePtr->tkwin)->border_width;
+	if (width <= 0) {
+	    width = 1;
+	}
+	if (height <= 0) {
+	    height = 1;
+	}
+
+	/*
+	 * Step 5: reconfigure the window and map it if needed.  If the
+	 * slave is a child of the master, we do this ourselves.  If the
+	 * slave isn't a child of the master, let Tk_MaintainWindow do
+	 * the work (it will re-adjust things as relevant windows map,
+	 * unmap, and move).
+	 */
+
+	if (masterPtr->tkwin == Tk_Parent(slavePtr->tkwin)) {
+	    if ((x != Tk_X(slavePtr->tkwin))
+		    || (y != Tk_Y(slavePtr->tkwin))
+		    || (width != Tk_Width(slavePtr->tkwin))
+		    || (height != Tk_Height(slavePtr->tkwin))) {
+		Tk_MoveResizeWindow(slavePtr->tkwin, x, y, width, height);
+	    }
+
+	    /*
+	     * Don't map the slave unless the master is mapped: the slave
+	     * will get mapped later, when the master is mapped.
+	     */
+
+	    if (Tk_IsMapped(masterPtr->tkwin)) {
+		Tk_MapWindow(slavePtr->tkwin);
+	    }
+	} else {
+	    if ((width <= 0) || (height <= 0)) {
+		Tk_UnmaintainGeometry(slavePtr->tkwin, masterPtr->tkwin);
+		Tk_UnmapWindow(slavePtr->tkwin);
+	    } else {
+		Tk_MaintainGeometry(slavePtr->tkwin, masterPtr->tkwin,
+			x, y, width, height);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MasterStructureProc --
+ *
+ *	This procedure is invoked by the Tk event handler when
+ *	StructureNotify events occur for a master window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Structures get cleaned up if the window was deleted.  If the
+ *	window was resized then slave geometries get recomputed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MasterStructureProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to Master structure for window
+				 * referred to by eventPtr. */
+    XEvent *eventPtr;		/* Describes what just happened. */
+{
+    register Master *masterPtr = (Master *) clientData;
+    register Slave *slavePtr, *nextPtr;
+
+    if (eventPtr->type == ConfigureNotify) {
+	if ((masterPtr->slavePtr != NULL)
+		&& !(masterPtr->flags & PARENT_RECONFIG_PENDING)) {
+	    masterPtr->flags |= PARENT_RECONFIG_PENDING;
+	    Tcl_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr);
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+		slavePtr = nextPtr) {
+	    slavePtr->masterPtr = NULL;
+	    nextPtr = slavePtr->nextPtr;
+	    slavePtr->nextPtr = NULL;
+	}
+	Tcl_DeleteHashEntry(Tcl_FindHashEntry(&masterTable,
+		(char *) masterPtr->tkwin));
+	if (masterPtr->flags & PARENT_RECONFIG_PENDING) {
+	    Tcl_CancelIdleCall(RecomputePlacement, (ClientData) masterPtr);
+	}
+	masterPtr->tkwin = NULL;
+	ckfree((char *) masterPtr);
+    } else if (eventPtr->type == MapNotify) {
+	/*
+	 * When a master gets mapped, must redo the geometry computation
+	 * so that all of its slaves get remapped.
+	 */
+
+	if ((masterPtr->slavePtr != NULL)
+		&& !(masterPtr->flags & PARENT_RECONFIG_PENDING)) {
+	    masterPtr->flags |= PARENT_RECONFIG_PENDING;
+	    Tcl_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr);
+	}
+    } else if (eventPtr->type == UnmapNotify) {
+	/*
+	 * Unmap all of the slaves when the master gets unmapped,
+	 * so that they don't keep redisplaying themselves.
+	 */
+
+	for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
+		slavePtr = slavePtr->nextPtr) {
+	    Tk_UnmapWindow(slavePtr->tkwin);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SlaveStructureProc --
+ *
+ *	This procedure is invoked by the Tk event handler when
+ *	StructureNotify events occur for a slave window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Structures get cleaned up if the window was deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SlaveStructureProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to Slave structure for window
+				 * referred to by eventPtr. */
+    XEvent *eventPtr;		/* Describes what just happened. */
+{
+    register Slave *slavePtr = (Slave *) clientData;
+
+    if (eventPtr->type == DestroyNotify) {
+	UnlinkSlave(slavePtr);
+	Tcl_DeleteHashEntry(Tcl_FindHashEntry(&slaveTable,
+		(char *) slavePtr->tkwin));
+	ckfree((char *) slavePtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PlaceRequestProc --
+ *
+ *	This procedure is invoked by Tk whenever a slave managed by us
+ *	changes its requested geometry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window will get relayed out, if its requested size has
+ *	anything to do with its actual size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+PlaceRequestProc(clientData, tkwin)
+    ClientData clientData;		/* Pointer to our record for slave. */
+    Tk_Window tkwin;			/* Window that changed its desired
+					 * size. */
+{
+    Slave *slavePtr = (Slave *) clientData;
+    Master *masterPtr;
+
+    if (((slavePtr->flags & (CHILD_WIDTH|CHILD_REL_WIDTH)) != 0)
+	    && ((slavePtr->flags & (CHILD_HEIGHT|CHILD_REL_HEIGHT)) != 0)) {
+	return;
+    }
+    masterPtr = slavePtr->masterPtr;
+    if (masterPtr == NULL) {
+	return;
+    }
+    if (!(masterPtr->flags & PARENT_RECONFIG_PENDING)) {
+	masterPtr->flags |= PARENT_RECONFIG_PENDING;
+	Tcl_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * PlaceLostSlaveProc --
+ *
+ *	This procedure is invoked by Tk whenever some other geometry
+ *	claims control over a slave that used to be managed by us.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Forgets all placer-related information about the slave.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+PlaceLostSlaveProc(clientData, tkwin)
+    ClientData clientData;	/* Slave structure for slave window that
+				 * was stolen away. */
+    Tk_Window tkwin;		/* Tk's handle for the slave window. */
+{
+    register Slave *slavePtr = (Slave *) clientData;
+
+    if (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin)) {
+	Tk_UnmaintainGeometry(slavePtr->tkwin, slavePtr->masterPtr->tkwin);
+    }
+    Tk_UnmapWindow(tkwin);
+    UnlinkSlave(slavePtr);
+    Tcl_DeleteHashEntry(Tcl_FindHashEntry(&slaveTable, (char *) tkwin));
+    Tk_DeleteEventHandler(tkwin, StructureNotifyMask, SlaveStructureProc,
+	    (ClientData) slavePtr);
+    ckfree((char *) slavePtr);
+}
diff --git a/Tk/generic/tkPort.h b/Tk/generic/tkPort.h
new file mode 100644
index 0000000..7051aa0
--- /dev/null
+++ b/Tk/generic/tkPort.h
@@ -0,0 +1,36 @@
+/*
+ * tkPort.h --
+ *
+ *	This header file handles porting issues that occur because of
+ *	differences between systems.  It reads in platform specific
+ *	portability files.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkPort.h 1.7 96/02/11 16:42:10
+ */
+
+#ifndef _TKPORT
+#define _TKPORT
+
+#ifndef _TK
+#include "tk.h"
+#endif
+#ifndef _TCL
+#include "tcl.h"
+#endif
+
+#if defined(__WIN32__) || defined(_WIN32)
+#   include "tkWinPort.h"
+#else
+#   if defined(MAC_TCL)
+#	include "tkMacPort.h"
+#   else
+#	include "../unix/tkUnixPort.h"
+#   endif
+#endif
+
+#endif /* _TKPORT */
diff --git a/Tk/generic/tkRectOval.c b/Tk/generic/tkRectOval.c
new file mode 100644
index 0000000..78f122e
--- /dev/null
+++ b/Tk/generic/tkRectOval.c
@@ -0,0 +1,1030 @@
+/* 
+ * tkRectOval.c --
+ *
+ *	This file implements rectangle and oval items for canvas
+ *	widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkRectOval.c 1.39 96/03/02 17:28:06
+ */
+
+#include <stdio.h>
+#include "tk.h"
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The structure below defines the record for each rectangle/oval item.
+ */
+
+typedef struct RectOvalItem  {
+    Tk_Item header;		/* Generic stuff that's the same for all
+				 * types.  MUST BE FIRST IN STRUCTURE. */
+    double bbox[4];		/* Coordinates of bounding box for rectangle
+				 * or oval (x1, y1, x2, y2).  Item includes
+				 * x1 and x2 but not y1 and y2. */
+    int width;			/* Width of outline. */
+    XColor *outlineColor;	/* Color for outline. */
+    XColor *fillColor;		/* Color for filling rectangle/oval. */
+    Pixmap fillStipple;		/* Stipple bitmap for filling item. */
+    GC outlineGC;		/* Graphics context for outline. */
+    GC fillGC;			/* Graphics context for filling item. */
+} RectOvalItem;
+
+/*
+ * Information used for parsing configuration specs:
+ */
+
+static Tk_CustomOption tagsOption = {Tk_CanvasTagsParseProc,
+    Tk_CanvasTagsPrintProc, (ClientData) NULL
+};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_COLOR, "-fill", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(RectOvalItem, fillColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-outline", (char *) NULL, (char *) NULL,
+	"black", Tk_Offset(RectOvalItem, outlineColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-stipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(RectOvalItem, fillStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_CUSTOM, "-tags", (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, TK_CONFIG_NULL_OK, &tagsOption},
+    {TK_CONFIG_PIXELS, "-width", (char *) NULL, (char *) NULL,
+	"1", Tk_Offset(RectOvalItem, width), TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static void		ComputeRectOvalBbox _ANSI_ARGS_((Tk_Canvas canvas,
+			    RectOvalItem *rectOvalPtr));
+static int		ConfigureRectOval _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv, int flags));
+static int		CreateRectOval _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, struct Tk_Item *itemPtr,
+			    int argc, char **argv));
+static void		DeleteRectOval _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display));
+static void		DisplayRectOval _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, Display *display, Drawable dst,
+			    int x, int y, int width, int height));
+static int		OvalToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *areaPtr));
+static double		OvalToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *pointPtr));
+static int		RectOvalCoords _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int argc,
+			    char **argv));
+static int		RectOvalToPostscript _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Canvas canvas, Tk_Item *itemPtr, int prepass));
+static int		RectToArea _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *areaPtr));
+static double		RectToPoint _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double *pointPtr));
+static void		ScaleRectOval _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double originX, double originY,
+			    double scaleX, double scaleY));
+static void		TranslateRectOval _ANSI_ARGS_((Tk_Canvas canvas,
+			    Tk_Item *itemPtr, double deltaX, double deltaY));
+
+/*
+ * The structures below defines the rectangle and oval item types
+ * by means of procedures that can be invoked by generic item code.
+ */
+
+Tk_ItemType tkRectangleType = {
+    "rectangle",			/* name */
+    sizeof(RectOvalItem),		/* itemSize */
+    CreateRectOval,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureRectOval,			/* configureProc */
+    RectOvalCoords,			/* coordProc */
+    DeleteRectOval,			/* deleteProc */
+    DisplayRectOval,			/* displayProc */
+    0,					/* alwaysRedraw */
+    RectToPoint,			/* pointProc */
+    RectToArea,				/* areaProc */
+    RectOvalToPostscript,		/* postscriptProc */
+    ScaleRectOval,			/* scaleProc */
+    TranslateRectOval,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* icursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+Tk_ItemType tkOvalType = {
+    "oval",				/* name */
+    sizeof(RectOvalItem),		/* itemSize */
+    CreateRectOval,			/* createProc */
+    configSpecs,			/* configSpecs */
+    ConfigureRectOval,			/* configureProc */
+    RectOvalCoords,			/* coordProc */
+    DeleteRectOval,			/* deleteProc */
+    DisplayRectOval,			/* displayProc */
+    0,					/* alwaysRedraw */
+    OvalToPoint,			/* pointProc */
+    OvalToArea,				/* areaProc */
+    RectOvalToPostscript,		/* postscriptProc */
+    ScaleRectOval,			/* scaleProc */
+    TranslateRectOval,			/* translateProc */
+    (Tk_ItemIndexProc *) NULL,		/* indexProc */
+    (Tk_ItemCursorProc *) NULL,		/* cursorProc */
+    (Tk_ItemSelectionProc *) NULL,	/* selectionProc */
+    (Tk_ItemInsertProc *) NULL,		/* insertProc */
+    (Tk_ItemDCharsProc *) NULL,		/* dTextProc */
+    (Tk_ItemType *) NULL		/* nextPtr */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CreateRectOval --
+ *
+ *	This procedure is invoked to create a new rectangle
+ *	or oval item in a canvas.
+ *
+ * Results:
+ *	A standard Tcl return value.  If an error occurred in
+ *	creating the item, then an error message is left in
+ *	interp->result;  in this case itemPtr is left uninitialized,
+ *	so it can be safely freed by the caller.
+ *
+ * Side effects:
+ *	A new rectangle or oval item is created.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CreateRectOval(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* For error reporting. */
+    Tk_Canvas canvas;			/* Canvas to hold new item. */
+    Tk_Item *itemPtr;			/* Record to hold new item;  header
+					 * has been initialized by caller. */
+    int argc;				/* Number of arguments in argv. */
+    char **argv;			/* Arguments describing rectangle. */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+
+    if (argc < 4) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		Tk_PathName(Tk_CanvasTkwin(canvas)), " create ",
+		itemPtr->typePtr->name, " x1 y1 x2 y2 ?options?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Carry out initialization that is needed in order to clean
+     * up after errors during the the remainder of this procedure.
+     */
+
+    rectOvalPtr->width = 1;
+    rectOvalPtr->outlineColor = NULL;
+    rectOvalPtr->fillColor = NULL;
+    rectOvalPtr->fillStipple = None;
+    rectOvalPtr->outlineGC = None;
+    rectOvalPtr->fillGC = None;
+
+    /*
+     * Process the arguments to fill in the item record.
+     */
+
+    if ((Tk_CanvasGetCoord(interp, canvas, argv[0],
+		&rectOvalPtr->bbox[0]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		&rectOvalPtr->bbox[1]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[2],
+		    &rectOvalPtr->bbox[2]) != TCL_OK)
+	    || (Tk_CanvasGetCoord(interp, canvas, argv[3],
+		    &rectOvalPtr->bbox[3]) != TCL_OK)) {
+	return TCL_ERROR;
+    }
+
+    if (ConfigureRectOval(interp, canvas, itemPtr, argc-4, argv+4, 0)
+	    != TCL_OK) {
+	DeleteRectOval(canvas, itemPtr, Tk_Display(Tk_CanvasTkwin(canvas)));
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RectOvalCoords --
+ *
+ *	This procedure is invoked to process the "coords" widget
+ *	command on rectangles and ovals.  See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	Returns TCL_OK or TCL_ERROR, and sets interp->result.
+ *
+ * Side effects:
+ *	The coordinates for the given item may be changed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+RectOvalCoords(interp, canvas, itemPtr, argc, argv)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item whose coordinates are to be
+					 * read or modified. */
+    int argc;				/* Number of coordinates supplied in
+					 * argv. */
+    char **argv;			/* Array of coordinates: x1, y1,
+					 * x2, y2, ... */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+    char c0[TCL_DOUBLE_SPACE], c1[TCL_DOUBLE_SPACE];
+    char c2[TCL_DOUBLE_SPACE], c3[TCL_DOUBLE_SPACE];
+
+    if (argc == 0) {
+	Tcl_PrintDouble(interp, rectOvalPtr->bbox[0], c0);
+	Tcl_PrintDouble(interp, rectOvalPtr->bbox[1], c1);
+	Tcl_PrintDouble(interp, rectOvalPtr->bbox[2], c2);
+	Tcl_PrintDouble(interp, rectOvalPtr->bbox[3], c3);
+	Tcl_AppendResult(interp, c0, " ", c1, " ", c2, " ", c3,
+		(char *) NULL);
+    } else if (argc == 4) {
+	if ((Tk_CanvasGetCoord(interp, canvas, argv[0],
+		    &rectOvalPtr->bbox[0]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[1],
+		    &rectOvalPtr->bbox[1]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[2],
+			&rectOvalPtr->bbox[2]) != TCL_OK)
+		|| (Tk_CanvasGetCoord(interp, canvas, argv[3],
+			&rectOvalPtr->bbox[3]) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	ComputeRectOvalBbox(canvas, rectOvalPtr);
+    } else {
+	sprintf(interp->result,
+		"wrong # coordinates: expected 0 or 4, got %d",
+		argc);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ConfigureRectOval --
+ *
+ *	This procedure is invoked to configure various aspects
+ *	of a rectangle or oval item, such as its border and
+ *	background colors.
+ *
+ * Results:
+ *	A standard Tcl result code.  If an error occurs, then
+ *	an error message is left in interp->result.
+ *
+ * Side effects:
+ *	Configuration information, such as colors and stipple
+ *	patterns, may be set for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ConfigureRectOval(interp, canvas, itemPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    Tk_Canvas canvas;		/* Canvas containing itemPtr. */
+    Tk_Item *itemPtr;		/* Rectangle item to reconfigure. */
+    int argc;			/* Number of elements in argv.  */
+    char **argv;		/* Arguments describing things to configure. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+    XGCValues gcValues;
+    GC newGC;
+    unsigned long mask;
+    Tk_Window tkwin;
+
+    tkwin = Tk_CanvasTkwin(canvas);
+    if (Tk_ConfigureWidget(interp, tkwin, configSpecs, argc, argv,
+	    (char *) rectOvalPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few of the options require additional processing, such as
+     * graphics contexts.
+     */
+
+    if (rectOvalPtr->width < 1) {
+	rectOvalPtr->width = 1;
+    }
+    if (rectOvalPtr->outlineColor == NULL) {
+	newGC = None;
+    } else {
+	gcValues.foreground = rectOvalPtr->outlineColor->pixel;
+	gcValues.cap_style = CapProjecting;
+	gcValues.line_width = rectOvalPtr->width;
+	mask = GCForeground|GCCapStyle|GCLineWidth;
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (rectOvalPtr->outlineGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), rectOvalPtr->outlineGC);
+    }
+    rectOvalPtr->outlineGC = newGC;
+
+    if (rectOvalPtr->fillColor == NULL) {
+	newGC = None;
+    } else {
+	gcValues.foreground = rectOvalPtr->fillColor->pixel;
+	if (rectOvalPtr->fillStipple != None) {
+	    gcValues.stipple = rectOvalPtr->fillStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask = GCForeground|GCStipple|GCFillStyle;
+	} else {
+	    mask = GCForeground;
+	}
+	newGC = Tk_GetGC(tkwin, mask, &gcValues);
+    }
+    if (rectOvalPtr->fillGC != None) {
+	Tk_FreeGC(Tk_Display(tkwin), rectOvalPtr->fillGC);
+    }
+    rectOvalPtr->fillGC = newGC;
+    ComputeRectOvalBbox(canvas, rectOvalPtr);
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteRectOval --
+ *
+ *	This procedure is called to clean up the data structure
+ *	associated with a rectangle or oval item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resources associated with itemPtr are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteRectOval(canvas, itemPtr, display)
+    Tk_Canvas canvas;			/* Info about overall widget. */
+    Tk_Item *itemPtr;			/* Item that is being deleted. */
+    Display *display;			/* Display containing window for
+					 * canvas. */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+
+    if (rectOvalPtr->outlineColor != NULL) {
+	Tk_FreeColor(rectOvalPtr->outlineColor);
+    }
+    if (rectOvalPtr->fillColor != NULL) {
+	Tk_FreeColor(rectOvalPtr->fillColor);
+    }
+    if (rectOvalPtr->fillStipple != None) {
+	Tk_FreeBitmap(display, rectOvalPtr->fillStipple);
+    }
+    if (rectOvalPtr->outlineGC != None) {
+	Tk_FreeGC(display, rectOvalPtr->outlineGC);
+    }
+    if (rectOvalPtr->fillGC != None) {
+	Tk_FreeGC(display, rectOvalPtr->fillGC);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ComputeRectOvalBbox --
+ *
+ *	This procedure is invoked to compute the bounding box of
+ *	all the pixels that may be drawn as part of a rectangle
+ *	or oval.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The fields x1, y1, x2, and y2 are updated in the header
+ *	for itemPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+ComputeRectOvalBbox(canvas, rectOvalPtr)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    RectOvalItem *rectOvalPtr;		/* Item whose bbox is to be
+					 * recomputed. */
+{
+    int bloat, tmp;
+    double dtmp;
+
+    /*
+     * Make sure that the first coordinates are the lowest ones.
+     */
+
+    if (rectOvalPtr->bbox[1] > rectOvalPtr->bbox[3]) {
+	double tmp;
+	tmp = rectOvalPtr->bbox[3];
+	rectOvalPtr->bbox[3] = rectOvalPtr->bbox[1];
+	rectOvalPtr->bbox[1] = tmp;
+    }
+    if (rectOvalPtr->bbox[0] > rectOvalPtr->bbox[2]) {
+	double tmp;
+	tmp = rectOvalPtr->bbox[2];
+	rectOvalPtr->bbox[2] = rectOvalPtr->bbox[0];
+	rectOvalPtr->bbox[0] = tmp;
+    }
+
+    if (rectOvalPtr->outlineColor == NULL) {
+	bloat = 0;
+    } else {
+	bloat = (rectOvalPtr->width+1)/2;
+    }
+
+    /*
+     * Special note:  the rectangle is always drawn at least 1x1 in
+     * size, so round up the upper coordinates to be at least 1 unit
+     * greater than the lower ones.
+     */
+
+    tmp = (rectOvalPtr->bbox[0] >= 0) ? rectOvalPtr->bbox[0] + .5
+	    : rectOvalPtr->bbox[0] - .5;
+    rectOvalPtr->header.x1 = tmp - bloat;
+    tmp = (rectOvalPtr->bbox[1] >= 0) ? rectOvalPtr->bbox[1] + .5
+	    : rectOvalPtr->bbox[1] - .5;
+    rectOvalPtr->header.y1 = tmp - bloat;
+    dtmp = rectOvalPtr->bbox[2];
+    if (dtmp < (rectOvalPtr->bbox[0] + 1)) {
+	dtmp = rectOvalPtr->bbox[0] + 1;
+    }
+    tmp = (dtmp >= 0) ? dtmp + .5 : dtmp - .5;
+    rectOvalPtr->header.x2 = tmp + bloat;
+    dtmp = rectOvalPtr->bbox[3];
+    if (dtmp < (rectOvalPtr->bbox[1] + 1)) {
+	dtmp = rectOvalPtr->bbox[1] + 1;
+    }
+    tmp = (dtmp >= 0) ? dtmp + .5 : dtmp - .5;
+    rectOvalPtr->header.y2 = tmp + bloat;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayRectOval --
+ *
+ *	This procedure is invoked to draw a rectangle or oval
+ *	item in a given drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	ItemPtr is drawn in drawable using the transformation
+ *	information in canvas.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayRectOval(canvas, itemPtr, display, drawable, x, y, width, height)
+    Tk_Canvas canvas;			/* Canvas that contains item. */
+    Tk_Item *itemPtr;			/* Item to be displayed. */
+    Display *display;			/* Display on which to draw item. */
+    Drawable drawable;			/* Pixmap or window in which to draw
+					 * item. */
+    int x, y, width, height;		/* Describes region of canvas that
+					 * must be redisplayed (not used). */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+    short x1, y1, x2, y2;
+
+    /*
+     * Compute the screen coordinates of the bounding box for the item.
+     * Make sure that the bbox is at least one pixel large, since some
+     * X servers will die if it isn't.
+     */
+
+    Tk_CanvasDrawableCoords(canvas, rectOvalPtr->bbox[0], rectOvalPtr->bbox[1],
+	    &x1, &y1);
+    Tk_CanvasDrawableCoords(canvas, rectOvalPtr->bbox[2], rectOvalPtr->bbox[3],
+	    &x2, &y2);
+    if (x2 <= x1) {
+	x2 = x1+1;
+    }
+    if (y2 <= y1) {
+	y2 = y1+1;
+    }
+
+    /*
+     * Display filled part first (if wanted), then outline.  If we're
+     * stippling, then modify the stipple offset in the GC.  Be sure to
+     * reset the offset when done, since the GC is supposed to be
+     * read-only.
+     */
+
+    if (rectOvalPtr->fillGC != None) {
+	if (rectOvalPtr->fillStipple != None) {
+	    Tk_CanvasSetStippleOrigin(canvas, rectOvalPtr->fillGC);
+	}
+	if (rectOvalPtr->header.typePtr == &tkRectangleType) {
+	    XFillRectangle(display, drawable, rectOvalPtr->fillGC,
+		    x1, y1, (unsigned int) (x2-x1), (unsigned int) (y2-y1));
+	} else {
+	    XFillArc(display, drawable, rectOvalPtr->fillGC,
+		    x1, y1, (unsigned) (x2-x1), (unsigned) (y2-y1),
+		    0, 360*64);
+	}
+	if (rectOvalPtr->fillStipple != None) {
+	    XSetTSOrigin(display, rectOvalPtr->fillGC, 0, 0);
+	}
+    }
+    if (rectOvalPtr->outlineGC != None) {
+	if (rectOvalPtr->header.typePtr == &tkRectangleType) {
+	    XDrawRectangle(display, drawable, rectOvalPtr->outlineGC,
+		    x1, y1, (unsigned) (x2-x1), (unsigned) (y2-y1));
+	} else {
+	    XDrawArc(display, drawable, rectOvalPtr->outlineGC,
+		    x1, y1, (unsigned) (x2-x1), (unsigned) (y2-y1), 0, 360*64);
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RectToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	rectangle, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the rectangle.  If the
+ *	point isn't inside the rectangle then the return value is the
+ *	distance from the point to the rectangle.  If itemPtr is filled,
+ *	then anywhere in the interior is considered "inside"; if
+ *	itemPtr isn't filled, then "inside" means only the area
+ *	occupied by the outline.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+RectToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    RectOvalItem *rectPtr = (RectOvalItem *) itemPtr;
+    double xDiff, yDiff, x1, y1, x2, y2, inc, tmp;
+
+    /*
+     * Generate a new larger rectangle that includes the border
+     * width, if there is one.
+     */
+
+    x1 = rectPtr->bbox[0];
+    y1 = rectPtr->bbox[1];
+    x2 = rectPtr->bbox[2];
+    y2 = rectPtr->bbox[3];
+    if (rectPtr->outlineGC != None) {
+	inc = rectPtr->width/2.0;
+	x1 -= inc;
+	y1 -= inc;
+	x2 += inc;
+	y2 += inc;
+    }
+
+    /*
+     * If the point is inside the rectangle, handle specially:
+     * distance is 0 if rectangle is filled, otherwise compute
+     * distance to nearest edge of rectangle and subtract width
+     * of edge.
+     */
+
+    if ((pointPtr[0] >= x1) && (pointPtr[0] < x2)
+		&& (pointPtr[1] >= y1) && (pointPtr[1] < y2)) {
+	if ((rectPtr->fillGC != None) || (rectPtr->outlineGC == None)) {
+	    return 0.0;
+	}
+	xDiff = pointPtr[0] - x1;
+	tmp = x2 - pointPtr[0];
+	if (tmp < xDiff) {
+	    xDiff = tmp;
+	}
+	yDiff = pointPtr[1] - y1;
+	tmp = y2 - pointPtr[1];
+	if (tmp < yDiff) {
+	    yDiff = tmp;
+	}
+	if (yDiff < xDiff) {
+	    xDiff = yDiff;
+	}
+	xDiff -= rectPtr->width;
+	if (xDiff < 0.0) {
+	    return 0.0;
+	}
+	return xDiff;
+    }
+
+    /*
+     * Point is outside rectangle.
+     */
+
+    if (pointPtr[0] < x1) {
+	xDiff = x1 - pointPtr[0];
+    } else if (pointPtr[0] > x2)  {
+	xDiff = pointPtr[0] - x2;
+    } else {
+	xDiff = 0;
+    }
+
+    if (pointPtr[1] < y1) {
+	yDiff = y1 - pointPtr[1];
+    } else if (pointPtr[1] > y2)  {
+	yDiff = pointPtr[1] - y2;
+    } else {
+	yDiff = 0;
+    }
+
+    return hypot(xDiff, yDiff);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * OvalToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	oval, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point whose x and y coordinates
+ *	are coordPtr[0] and coordPtr[1] is inside the oval.  If the
+ *	point isn't inside the oval then the return value is the
+ *	distance from the point to the oval.  If itemPtr is filled,
+ *	then anywhere in the interior is considered "inside"; if
+ *	itemPtr isn't filled, then "inside" means only the area
+ *	occupied by the outline.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static double
+OvalToPoint(canvas, itemPtr, pointPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against point. */
+    double *pointPtr;		/* Pointer to x and y coordinates. */
+{
+    RectOvalItem *ovalPtr = (RectOvalItem *) itemPtr;
+    double width;
+    int filled;
+
+    width = ovalPtr->width;
+    filled = ovalPtr->fillGC != None;
+    if (ovalPtr->outlineGC == None) {
+	width = 0.0;
+	filled = 1;
+    }
+    return TkOvalToPoint(ovalPtr->bbox, width, filled, pointPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RectToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangle.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+RectToArea(canvas, itemPtr, areaPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against rectangle. */
+    double *areaPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    RectOvalItem *rectPtr = (RectOvalItem *) itemPtr;
+    double halfWidth;
+
+    halfWidth = rectPtr->width/2.0;
+    if (rectPtr->outlineGC == None) {
+	halfWidth = 0.0;
+    }
+
+    if ((areaPtr[2] <= (rectPtr->bbox[0] - halfWidth))
+	    || (areaPtr[0] >= (rectPtr->bbox[2] + halfWidth))
+	    || (areaPtr[3] <= (rectPtr->bbox[1] - halfWidth))
+	    || (areaPtr[1] >= (rectPtr->bbox[3] + halfWidth))) {
+	return -1;
+    }
+    if ((rectPtr->fillGC == None) && (rectPtr->outlineGC != None)
+	    && (areaPtr[0] >= (rectPtr->bbox[0] + halfWidth))
+	    && (areaPtr[1] >= (rectPtr->bbox[1] + halfWidth))
+	    && (areaPtr[2] <= (rectPtr->bbox[2] - halfWidth))
+	    && (areaPtr[3] <= (rectPtr->bbox[3] - halfWidth))) {
+	return -1;
+    }
+    if ((areaPtr[0] <= (rectPtr->bbox[0] - halfWidth))
+	    && (areaPtr[1] <= (rectPtr->bbox[1] - halfWidth))
+	    && (areaPtr[2] >= (rectPtr->bbox[2] + halfWidth))
+	    && (areaPtr[3] >= (rectPtr->bbox[3] + halfWidth))) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * OvalToArea --
+ *
+ *	This procedure is called to determine whether an item
+ *	lies entirely inside, entirely outside, or overlapping
+ *	a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the item is entirely outside the area
+ *	given by rectPtr, 0 if it overlaps, and 1 if it is entirely
+ *	inside the given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+OvalToArea(canvas, itemPtr, areaPtr)
+    Tk_Canvas canvas;		/* Canvas containing item. */
+    Tk_Item *itemPtr;		/* Item to check against oval. */
+    double *areaPtr;		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) describing rectangular
+				 * area.  */
+{
+    RectOvalItem *ovalPtr = (RectOvalItem *) itemPtr;
+    double oval[4], halfWidth;
+    int result;
+
+    /*
+     * Expand the oval to include the width of the outline, if any.
+     */
+
+    halfWidth = ovalPtr->width/2.0;
+    if (ovalPtr->outlineGC == None) {
+	halfWidth = 0.0;
+    }
+    oval[0] = ovalPtr->bbox[0] - halfWidth;
+    oval[1] = ovalPtr->bbox[1] - halfWidth;
+    oval[2] = ovalPtr->bbox[2] + halfWidth;
+    oval[3] = ovalPtr->bbox[3] + halfWidth;
+
+    result = TkOvalToArea(oval, areaPtr);
+
+    /*
+     * If the rectangle appears to overlap the oval and the oval
+     * isn't filled, do one more check to see if perhaps all four
+     * of the rectangle's corners are totally inside the oval's
+     * unfilled center, in which case we should return "outside".
+     */
+
+    if ((result == 0) && (ovalPtr->outlineGC != None)
+	    && (ovalPtr->fillGC == None)) {
+	double centerX, centerY, width, height;
+	double xDelta1, yDelta1, xDelta2, yDelta2;
+
+	centerX = (ovalPtr->bbox[0] + ovalPtr->bbox[2])/2.0;
+	centerY = (ovalPtr->bbox[1] + ovalPtr->bbox[3])/2.0;
+	width = (ovalPtr->bbox[2] - ovalPtr->bbox[0])/2.0 - halfWidth;
+	height = (ovalPtr->bbox[3] - ovalPtr->bbox[1])/2.0 - halfWidth;
+	xDelta1 = (areaPtr[0] - centerX)/width;
+	xDelta1 *= xDelta1;
+	yDelta1 = (areaPtr[1] - centerY)/height;
+	yDelta1 *= yDelta1;
+	xDelta2 = (areaPtr[2] - centerX)/width;
+	xDelta2 *= xDelta2;
+	yDelta2 = (areaPtr[3] - centerY)/height;
+	yDelta2 *= yDelta2;
+	if (((xDelta1 + yDelta1) < 1.0)
+		&& ((xDelta1 + yDelta2) < 1.0)
+		&& ((xDelta2 + yDelta1) < 1.0)
+		&& ((xDelta2 + yDelta2) < 1.0)) {
+	    return -1;
+	}
+    }
+    return result;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleRectOval --
+ *
+ *	This procedure is invoked to rescale a rectangle or oval
+ *	item.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The rectangle or oval referred to by itemPtr is rescaled
+ *	so that the following transformation is applied to all
+ *	point coordinates:
+ *		x' = originX + scaleX*(x-originX)
+ *		y' = originY + scaleY*(y-originY)
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleRectOval(canvas, itemPtr, originX, originY, scaleX, scaleY)
+    Tk_Canvas canvas;			/* Canvas containing rectangle. */
+    Tk_Item *itemPtr;			/* Rectangle to be scaled. */
+    double originX, originY;		/* Origin about which to scale rect. */
+    double scaleX;			/* Amount to scale in X direction. */
+    double scaleY;			/* Amount to scale in Y direction. */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+
+    rectOvalPtr->bbox[0] = originX + scaleX*(rectOvalPtr->bbox[0] - originX);
+    rectOvalPtr->bbox[1] = originY + scaleY*(rectOvalPtr->bbox[1] - originY);
+    rectOvalPtr->bbox[2] = originX + scaleX*(rectOvalPtr->bbox[2] - originX);
+    rectOvalPtr->bbox[3] = originY + scaleY*(rectOvalPtr->bbox[3] - originY);
+    ComputeRectOvalBbox(canvas, rectOvalPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TranslateRectOval --
+ *
+ *	This procedure is called to move a rectangle or oval by a
+ *	given amount.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The position of the rectangle or oval is offset by
+ *	(xDelta, yDelta), and the bounding box is updated in the
+ *	generic part of the item structure.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TranslateRectOval(canvas, itemPtr, deltaX, deltaY)
+    Tk_Canvas canvas;			/* Canvas containing item. */
+    Tk_Item *itemPtr;			/* Item that is being moved. */
+    double deltaX, deltaY;		/* Amount by which item is to be
+					 * moved. */
+{
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+
+    rectOvalPtr->bbox[0] += deltaX;
+    rectOvalPtr->bbox[1] += deltaY;
+    rectOvalPtr->bbox[2] += deltaX;
+    rectOvalPtr->bbox[3] += deltaY;
+    ComputeRectOvalBbox(canvas, rectOvalPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RectOvalToPostscript --
+ *
+ *	This procedure is called to generate Postscript for
+ *	rectangle and oval items.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If an error
+ *	occurs in generating Postscript then an error message is
+ *	left in interp->result, replacing whatever used to be there.
+ *	If no error occurs, then Postscript for the rectangle is
+ *	appended to the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+RectOvalToPostscript(interp, canvas, itemPtr, prepass)
+    Tcl_Interp *interp;			/* Interpreter for error reporting. */
+    Tk_Canvas canvas;			/* Information about overall canvas. */
+    Tk_Item *itemPtr;			/* Item for which Postscript is
+					 * wanted. */
+    int prepass;			/* 1 means this is a prepass to
+					 * collect font information;  0 means
+					 * final Postscript is being created. */
+{
+    char pathCmd[500], string[100];
+    RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
+    double y1, y2;
+
+    y1 = Tk_CanvasPsY(canvas, rectOvalPtr->bbox[1]);
+    y2 = Tk_CanvasPsY(canvas, rectOvalPtr->bbox[3]);
+
+    /*
+     * Generate a string that creates a path for the rectangle or oval.
+     * This is the only part of the procedure's code that is type-
+     * specific.
+     */
+
+
+    if (rectOvalPtr->header.typePtr == &tkRectangleType) {
+	sprintf(pathCmd, "%.15g %.15g moveto %.15g 0 rlineto 0 %.15g rlineto %.15g 0 rlineto closepath\n",
+		rectOvalPtr->bbox[0], y1,
+		rectOvalPtr->bbox[2]-rectOvalPtr->bbox[0], y2-y1,
+		rectOvalPtr->bbox[0]-rectOvalPtr->bbox[2]);
+    } else {
+	sprintf(pathCmd, "matrix currentmatrix\n%.15g %.15g translate %.15g %.15g scale 1 0 moveto 0 0 1 0 360 arc\nsetmatrix\n",
+		(rectOvalPtr->bbox[0] + rectOvalPtr->bbox[2])/2, (y1 + y2)/2,
+		(rectOvalPtr->bbox[2] - rectOvalPtr->bbox[0])/2, (y1 - y2)/2);
+    }
+
+    /*
+     * First draw the filled area of the rectangle.
+     */
+
+    if (rectOvalPtr->fillColor != NULL) {
+	Tcl_AppendResult(interp, pathCmd, (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, rectOvalPtr->fillColor)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (rectOvalPtr->fillStipple != None) {
+	    Tcl_AppendResult(interp, "clip ", (char *) NULL);
+	    if (Tk_CanvasPsStipple(interp, canvas, rectOvalPtr->fillStipple)
+		    != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (rectOvalPtr->outlineColor != NULL) {
+		Tcl_AppendResult(interp, "grestore gsave\n", (char *) NULL);
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "fill\n", (char *) NULL);
+	}
+    }
+
+    /*
+     * Now draw the outline, if there is one.
+     */
+
+    if (rectOvalPtr->outlineColor != NULL) {
+	Tcl_AppendResult(interp, pathCmd, (char *) NULL);
+	sprintf(string, "%d setlinewidth", rectOvalPtr->width);
+	Tcl_AppendResult(interp, string,
+		" 0 setlinejoin 2 setlinecap\n", (char *) NULL);
+	if (Tk_CanvasPsColor(interp, canvas, rectOvalPtr->outlineColor)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	Tcl_AppendResult(interp, "stroke\n", (char *) NULL);
+    }
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkScale.c b/Tk/generic/tkScale.c
new file mode 100644
index 0000000..53355a7
--- /dev/null
+++ b/Tk/generic/tkScale.c
@@ -0,0 +1,2073 @@
+/* 
+ * tkScale.c --
+ *
+ *	This module implements a scale widgets for the Tk toolkit.
+ *	A scale displays a slider that can be adjusted to change a
+ *	value;  it also displays numeric labels and a textual label,
+ *	if desired.
+ *	
+ *	The modifications to use floating-point values are based on
+ *	an implementation by Paul Mackerras.  The -variable option
+ *	is due to Henning Schulzrinne.  All of these are used with
+ *	permission.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkScale.c 1.80 96/03/21 13:11:55
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+#include <math.h>
+
+/*
+ * A data structure of the following type is kept for each scale
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the scale.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with scale. */
+    Tcl_Command widgetCmd;	/* Token for scale's widget command. */
+    Tk_Uid orientUid;		/* Orientation for window ("vertical" or
+				 * "horizontal"). */
+    int vertical;		/* Non-zero means vertical orientation,
+				 * zero means horizontal. */
+    int width;			/* Desired narrow dimension of scale,
+				 * in pixels. */
+    int length;			/* Desired long dimension of scale,
+				 * in pixels. */
+    double value;		/* Current value of scale. */
+    char *varName;		/* Name of variable (malloc'ed) or NULL.
+				 * If non-NULL, scale's value tracks
+				 * the contents of this variable and
+				 * vice versa. */
+    double fromValue;		/* Value corresponding to left or top of
+				 * scale. */
+    double toValue;		/* Value corresponding to right or bottom
+				 * of scale. */
+    double tickInterval;	/* Distance between tick marks;  0 means
+				 * don't display any tick marks. */
+    double resolution;		/* If > 0, all values are rounded to an
+				 * even multiple of this value. */
+    int digits;			/* Number of significant digits to print
+				 * in values.  0 means we get to choose the
+				 * number based on resolution and/or the
+				 * range of the scale. */
+    char format[10];		/* Sprintf conversion specifier computed from
+				 * digits and other information. */
+    double bigIncrement;	/* Amount to use for large increments to
+				 * scale value.  (0 means we pick a value). */
+    char *command;		/* Command prefix to use when invoking Tcl
+				 * commands because the scale value changed.
+				 * NULL means don't invoke commands.
+				 * Malloc'ed. */
+    int repeatDelay;		/* How long to wait before auto-repeating
+				 * on scrolling actions (in ms). */
+    int repeatInterval;		/* Interval between autorepeats (in ms). */
+    char *label;		/* Label to display above or to right of
+				 * scale;  NULL means don't display a
+				 * label.  Malloc'ed. */
+    int labelLength;		/* Number of non-NULL chars. in label. */
+    Tk_Uid state;		/* Normal or disabled.  Value cannot be
+				 * changed when scale is disabled. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    int borderWidth;		/* Width of 3-D border around window. */
+    Tk_3DBorder bgBorder;	/* Used for drawing slider and other
+				 * background areas. */
+    Tk_3DBorder activeBorder;	/* For drawing the slider when active. */
+    int sliderRelief;		/* Is slider to be drawn raised, sunken, etc. */
+    XColor *troughColorPtr;	/* Color for drawing trough. */
+    GC troughGC;		/* For drawing trough. */
+    GC copyGC;			/* Used for copying from pixmap onto screen. */
+    XFontStruct *fontPtr;	/* Information about text font, or NULL. */
+    XColor *textColorPtr;	/* Color for drawing text. */
+    GC textGC;			/* GC for drawing text in normal mode. */
+    int relief;			/* Indicates whether window as a whole is
+				 * raised, sunken, or flat. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    int sliderLength;		/* Length of slider, measured in pixels along
+				 * long dimension of scale. */
+    int showValue;		/* Non-zero means to display the scale value
+				 * below or to the left of the slider;  zero
+				 * means don't display the value. */
+
+    /*
+     * Layout information for horizontal scales, assuming that window
+     * gets the size it requested:
+     */
+
+    int horizLabelY;		/* Y-coord at which to draw label. */
+    int horizValueY;		/* Y-coord at which to draw value text. */
+    int horizTroughY;		/* Y-coord of top of slider trough. */
+    int horizTickY;		/* Y-coord at which to draw tick text. */
+    /*
+     * Layout information for vertical scales, assuming that window
+     * gets the size it requested:
+     */
+
+    int vertTickRightX;		/* X-location of right side of tick-marks. */
+    int vertValueRightX;	/* X-location of right side of value string. */
+    int vertTroughX;		/* X-location of scale's slider trough. */
+    int vertLabelX;		/* X-location of origin of label. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} Scale;
+
+/*
+ * Flag bits for scales:
+ *
+ * REDRAW_SLIDER -		1 means slider (and numerical readout) need
+ *				to be redrawn.
+ * REDRAW_OTHER -		1 means other stuff besides slider and value
+ *				need to be redrawn.
+ * REDRAW_ALL -			1 means the entire widget needs to be redrawn.
+ * ACTIVE -			1 means the widget is active (the mouse is
+ *				in its window).
+ * INVOKE_COMMAND -		1 means the scale's command needs to be
+ *				invoked during the next redisplay (the
+ *				value of the scale has changed since the
+ *				last time the command was invoked).
+ * SETTING_VAR -		1 means that the associated variable is
+ *				being set by us, so there's no need for
+ *				ScaleVarProc to do anything.
+ * NEVER_SET -			1 means that the scale's value has never
+ *				been set before (so must invoke -command and
+ *				set associated variable even if the value
+ *				doesn't appear to have changed).
+ * GOT_FOCUS -			1 means that the focus is currently in
+ *				this widget.
+ */
+
+#define REDRAW_SLIDER		1
+#define REDRAW_OTHER		2
+#define REDRAW_ALL		3
+#define ACTIVE			4
+#define INVOKE_COMMAND		0x10
+#define SETTING_VAR		0x20
+#define NEVER_SET		0x40
+#define GOT_FOCUS		0x80
+
+/*
+ * Symbolic values for the active parts of a slider.  These are
+ * the values that may be returned by the ScaleElement procedure.
+ */
+
+#define OTHER		0
+#define TROUGH1		1
+#define SLIDER		2
+#define TROUGH2		3
+
+/*
+ * Space to leave between scale area and text, and between text and
+ * edge of window.
+ */
+
+#define SPACING 2
+
+/*
+ * How many characters of space to provide when formatting the
+ * scale's value:
+ */
+
+#define PRINT_CHARS 150
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_SCALE_ACTIVE_BG_COLOR, Tk_Offset(Scale, activeBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_SCALE_ACTIVE_BG_MONO, Tk_Offset(Scale, activeBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_SCALE_BG_COLOR, Tk_Offset(Scale, bgBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_SCALE_BG_MONO, Tk_Offset(Scale, bgBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_DOUBLE, "-bigincrement", "bigIncrement", "BigIncrement",
+	DEF_SCALE_BIG_INCREMENT, Tk_Offset(Scale, bigIncrement), 0},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_SCALE_BORDER_WIDTH, Tk_Offset(Scale, borderWidth), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-command", "command", "Command",
+#else
+    {TK_CONFIG_STRING, "-command", "command", "Command",
+#endif
+	DEF_SCALE_COMMAND, Tk_Offset(Scale, command), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_SCALE_CURSOR, Tk_Offset(Scale, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-digits", "digits", "Digits",
+	DEF_SCALE_DIGITS, Tk_Offset(Scale, digits), 0},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_SCALE_FONT, Tk_Offset(Scale, fontPtr),
+	0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_SCALE_FG_COLOR, Tk_Offset(Scale, textColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_SCALE_FG_MONO, Tk_Offset(Scale, textColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_DOUBLE, "-from", "from", "From",
+	DEF_SCALE_FROM, Tk_Offset(Scale, fromValue), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_SCALE_HIGHLIGHT_BG,
+	Tk_Offset(Scale, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_SCALE_HIGHLIGHT, Tk_Offset(Scale, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_SCALE_HIGHLIGHT_WIDTH, Tk_Offset(Scale, highlightWidth), 0},
+    {TK_CONFIG_STRING, "-label", "label", "Label",
+	DEF_SCALE_LABEL, Tk_Offset(Scale, label), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-length", "length", "Length",
+	DEF_SCALE_LENGTH, Tk_Offset(Scale, length), 0},
+    {TK_CONFIG_UID, "-orient", "orient", "Orient",
+	DEF_SCALE_ORIENT, Tk_Offset(Scale, orientUid), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_SCALE_RELIEF, Tk_Offset(Scale, relief), 0},
+    {TK_CONFIG_INT, "-repeatdelay", "repeatDelay", "RepeatDelay",
+	DEF_SCALE_REPEAT_DELAY, Tk_Offset(Scale, repeatDelay), 0},
+    {TK_CONFIG_INT, "-repeatinterval", "repeatInterval", "RepeatInterval",
+	DEF_SCALE_REPEAT_INTERVAL, Tk_Offset(Scale, repeatInterval), 0},
+    {TK_CONFIG_DOUBLE, "-resolution", "resolution", "Resolution",
+	DEF_SCALE_RESOLUTION, Tk_Offset(Scale, resolution), 0},
+    {TK_CONFIG_BOOLEAN, "-showvalue", "showValue", "ShowValue",
+	DEF_SCALE_SHOW_VALUE, Tk_Offset(Scale, showValue), 0},
+    {TK_CONFIG_PIXELS, "-sliderlength", "sliderLength", "SliderLength",
+	DEF_SCALE_SLIDER_LENGTH, Tk_Offset(Scale, sliderLength), 0},
+    {TK_CONFIG_RELIEF, "-sliderrelief", "sliderRelief", "SliderRelief",
+	DEF_SCALE_SLIDER_RELIEF, Tk_Offset(Scale, sliderRelief),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_UID, "-state", "state", "State",
+	DEF_SCALE_STATE, Tk_Offset(Scale, state), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_SCALE_TAKE_FOCUS, Tk_Offset(Scale, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_DOUBLE, "-tickinterval", "tickInterval", "TickInterval",
+	DEF_SCALE_TICK_INTERVAL, Tk_Offset(Scale, tickInterval), 0},
+    {TK_CONFIG_DOUBLE, "-to", "to", "To",
+	DEF_SCALE_TO, Tk_Offset(Scale, toValue), 0},
+    {TK_CONFIG_COLOR, "-troughcolor", "troughColor", "Background",
+	DEF_SCALE_TROUGH_COLOR, Tk_Offset(Scale, troughColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-troughcolor", "troughColor", "Background",
+	DEF_SCALE_TROUGH_MONO, Tk_Offset(Scale, troughColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_STRING, "-variable", "variable", "Variable",
+	DEF_SCALE_VARIABLE, Tk_Offset(Scale, varName), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-width", "width", "Width",
+	DEF_SCALE_WIDTH, Tk_Offset(Scale, width), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ComputeFormat _ANSI_ARGS_((Scale *scalePtr));
+static void		ComputeScaleGeometry _ANSI_ARGS_((Scale *scalePtr));
+static int		ConfigureScale _ANSI_ARGS_((Tcl_Interp *interp,
+			    Scale *scalePtr, int argc, char **argv,
+			    int flags));
+static void		DestroyScale _ANSI_ARGS_((char *memPtr));
+static void		DisplayScale _ANSI_ARGS_((ClientData clientData));
+static void		DisplayHorizontalScale _ANSI_ARGS_((Scale *scalePtr,
+			    Drawable drawable, XRectangle *drawnAreaPtr));
+static void		DisplayHorizontalValue _ANSI_ARGS_((Scale *scalePtr,
+			    Drawable drawable, double value, int top));
+static void		DisplayVerticalScale _ANSI_ARGS_((Scale *scalePtr,
+			    Drawable drawable, XRectangle *drawnAreaPtr));
+static void		DisplayVerticalValue _ANSI_ARGS_((Scale *scalePtr,
+			    Drawable drawable, double value, int rightEdge));
+static void		EventuallyRedrawScale _ANSI_ARGS_((Scale *scalePtr,
+			    int what));
+static double		PixelToValue _ANSI_ARGS_((Scale *scalePtr, int x,
+			    int y));
+static double		RoundToResolution _ANSI_ARGS_((Scale *scalePtr,
+			    double value));
+static void		ScaleCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static int		ScaleElement _ANSI_ARGS_((Scale *scalePtr, int x,
+			    int y));
+static void		ScaleEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static char *		ScaleVarProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *name1, char *name2,
+			    int flags));
+static int		ScaleWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		SetScaleValue _ANSI_ARGS_((Scale *scalePtr,
+			    double value, int setVar, int invokeCommand));
+static int		ValueToPixel _ANSI_ARGS_((Scale *scalePtr, double value));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ScaleCmd --
+ *
+ *	This procedure is invoked to process the "scale" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ScaleCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    register Scale *scalePtr;
+    Tk_Window new;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize fields that won't be initialized by ConfigureScale,
+     * or which ConfigureScale expects to have reasonable values
+     * (e.g. resource pointers).
+     */
+
+    scalePtr = (Scale *) ckalloc(sizeof(Scale));
+    scalePtr->tkwin = new;
+    scalePtr->display = Tk_Display(new);
+    scalePtr->interp = interp;
+    scalePtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(scalePtr->tkwin), ScaleWidgetCmd,
+	    (ClientData) scalePtr, ScaleCmdDeletedProc);
+    scalePtr->orientUid = NULL;
+    scalePtr->vertical = 0;
+    scalePtr->width = 0;
+    scalePtr->length = 0;
+    scalePtr->value = 0;
+    scalePtr->varName = NULL;
+    scalePtr->fromValue = 0;
+    scalePtr->toValue = 0;
+    scalePtr->tickInterval = 0;
+    scalePtr->resolution = 1;
+    scalePtr->bigIncrement = 0.0;
+    scalePtr->command = NULL;
+    scalePtr->repeatDelay = 0;
+    scalePtr->repeatInterval = 0;
+    scalePtr->label = NULL;
+    scalePtr->labelLength = 0;
+    scalePtr->state = tkNormalUid;
+    scalePtr->borderWidth = 0;
+    scalePtr->bgBorder = NULL;
+    scalePtr->activeBorder = NULL;
+    scalePtr->sliderRelief = TK_RELIEF_RAISED;
+    scalePtr->troughColorPtr = NULL;
+    scalePtr->troughGC = None;
+    scalePtr->copyGC = None;
+    scalePtr->fontPtr = NULL;
+    scalePtr->textColorPtr = NULL;
+    scalePtr->textGC = None;
+    scalePtr->relief = TK_RELIEF_FLAT;
+    scalePtr->highlightWidth = 0;
+    scalePtr->highlightBgColorPtr = NULL;
+    scalePtr->highlightColorPtr = NULL;
+    scalePtr->inset = 0;
+    scalePtr->sliderLength = 0;
+    scalePtr->showValue = 0;
+    scalePtr->horizLabelY = 0;
+    scalePtr->horizValueY = 0;
+    scalePtr->horizTroughY = 0;
+    scalePtr->horizTickY = 0;
+    scalePtr->vertTickRightX = 0;
+    scalePtr->vertValueRightX = 0;
+    scalePtr->vertTroughX = 0;
+    scalePtr->vertLabelX = 0;
+    scalePtr->cursor = None;
+    scalePtr->takeFocus = NULL;
+    scalePtr->flags = NEVER_SET;
+
+    Tk_SetClass(scalePtr->tkwin, "Scale");
+    Tk_CreateEventHandler(scalePtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    ScaleEventProc, (ClientData) scalePtr);
+    if (ConfigureScale(interp, scalePtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(scalePtr->tkwin));
+#else
+    interp->result = Tk_PathName(scalePtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(scalePtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ScaleWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about scale
+					 * widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    register Scale *scalePtr = (Scale *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) scalePtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, scalePtr->tkwin, configSpecs,
+		(char *) scalePtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 3)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, scalePtr->tkwin, configSpecs,
+		    (char *) scalePtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, scalePtr->tkwin, configSpecs,
+		    (char *) scalePtr, argv[2], 0);
+	} else {
+	    result = ConfigureScale(interp, scalePtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "coords", length) == 0)
+	    && (length >= 3)) {
+	int x, y ;
+	double value;
+
+	if ((argc != 2) && (argc != 3)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " coords ?value?\"", (char *) NULL);
+	    goto error;
+	}
+	if (argc == 3) {
+	    if (Tcl_GetDouble(interp, argv[2], &value) != TCL_OK) {
+		goto error;
+	    }
+	} else {
+	    value = scalePtr->value;
+	}
+	if (scalePtr->vertical) {
+	    x = scalePtr->vertTroughX + scalePtr->width/2
+		    + scalePtr->borderWidth;
+	    y = ValueToPixel(scalePtr, value);
+	} else {
+	    x = ValueToPixel(scalePtr, value);
+	    y = scalePtr->horizTroughY + scalePtr->width/2
+		    + scalePtr->borderWidth;
+	}
+	sprintf(interp->result, "%d %d", x, y);
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	double value;
+	int x, y;
+
+	if ((argc != 2) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get ?x y?\"", (char *) NULL);
+	    goto error;
+	}
+	if (argc == 2) {
+	    value = scalePtr->value;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+		goto error;
+	    }
+	    value = PixelToValue(scalePtr, x, y);
+	}
+	sprintf(interp->result, scalePtr->format, value);
+    } else if ((c == 'i') && (strncmp(argv[1], "identify", length) == 0)) {
+	int x, y, thing;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " identify x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+	    goto error;
+	}
+	thing = ScaleElement(scalePtr, x,y);
+	switch (thing) {
+#ifdef STk_CODE
+	    case TROUGH1:	interp->result = "\"trough1\"";	break;
+	    case SLIDER:	interp->result = "\"slider\"";	break;
+	    case TROUGH2:	interp->result = "\"trough2\"";	break;
+	    default:		interp->result = "\"\"";
+#else
+	    case TROUGH1:	interp->result = "trough1";	break;
+	    case SLIDER:	interp->result = "slider";	break;
+	    case TROUGH2:	interp->result = "trough2";	break;
+#endif
+	}
+    } else if ((c == 's') && (strncmp(argv[1], "set", length) == 0)) {
+	double value;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " set value\"", (char *) NULL);
+	    goto error;
+	}
+	if (Tcl_GetDouble(interp, argv[2], &value) != TCL_OK) {
+	    goto error;
+	}
+	if (scalePtr->state != tkDisabledUid) {
+	    SetScaleValue(scalePtr, value, 1, 1);
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget, configure, coords, get, identify, or set",
+		(char *) NULL);
+	goto error;
+    }
+    Tcl_Release((ClientData) scalePtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) scalePtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyScale --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a button at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the scale is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyScale(memPtr)
+    char *memPtr;	/* Info about scale widget. */
+{
+    register Scale *scalePtr = (Scale *) memPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (scalePtr->varName != NULL) {
+	Tcl_UntraceVar(scalePtr->interp, scalePtr->varName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ScaleVarProc, (ClientData) scalePtr);
+    }
+    if (scalePtr->troughGC != None) {
+	Tk_FreeGC(scalePtr->display, scalePtr->troughGC);
+    }
+    if (scalePtr->copyGC != None) {
+	Tk_FreeGC(scalePtr->display, scalePtr->copyGC);
+    }
+    if (scalePtr->textGC != None) {
+	Tk_FreeGC(scalePtr->display, scalePtr->textGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) scalePtr, scalePtr->display, 0);
+    ckfree((char *) scalePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureScale --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a scale widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for scalePtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureScale(interp, scalePtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register Scale *scalePtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    XGCValues gcValues;
+    GC newGC;
+    size_t length;
+
+    /*
+     * Eliminate any existing trace on a variable monitored by the scale.
+     */
+
+    if (scalePtr->varName != NULL) {
+	Tcl_UntraceVar(interp, scalePtr->varName, 
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ScaleVarProc, (ClientData) scalePtr);
+    }
+
+    if (Tk_ConfigureWidget(interp, scalePtr->tkwin, configSpecs,
+	    argc, argv, (char *) scalePtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * If the scale is tied to the value of a variable, then set up
+     * a trace on the variable's value and set the scale's value from
+     * the value of the variable, if it exists.
+     */
+
+    if (scalePtr->varName != NULL) {
+	char *stringValue, *end;
+	double value;
+
+	stringValue = Tcl_GetVar(interp, scalePtr->varName, TCL_GLOBAL_ONLY);
+	if (stringValue != NULL) {
+	    value = strtod(stringValue, &end);
+	    if ((end != stringValue) && (*end == 0)) {
+		scalePtr->value = RoundToResolution(scalePtr, value);
+	    }
+	}
+	Tcl_TraceVar(interp, scalePtr->varName,
+		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		ScaleVarProc, (ClientData) scalePtr);
+    }
+
+    /*
+     * Several options need special processing, such as parsing the
+     * orientation and creating GCs.
+     */
+
+    length = strlen(scalePtr->orientUid);
+    if (strncmp(scalePtr->orientUid, "vertical", length) == 0) {
+	scalePtr->vertical = 1;
+    } else if (strncmp(scalePtr->orientUid, "horizontal", length) == 0) {
+	scalePtr->vertical = 0;
+    } else {
+	Tcl_AppendResult(interp, "bad orientation \"", scalePtr->orientUid,
+		"\": must be vertical or horizontal", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    scalePtr->fromValue = RoundToResolution(scalePtr, scalePtr->fromValue);
+    scalePtr->toValue = RoundToResolution(scalePtr, scalePtr->toValue);
+    scalePtr->tickInterval = RoundToResolution(scalePtr,
+	    scalePtr->tickInterval);
+
+    /*
+     * Make sure that the tick interval has the right sign so that
+     * addition moves from fromValue to toValue.
+     */
+
+    if ((scalePtr->tickInterval < 0)
+	    ^ ((scalePtr->toValue - scalePtr->fromValue) <  0)) {
+	scalePtr->tickInterval = -scalePtr->tickInterval;
+    }
+
+    /*
+     * Set the scale value to itself;  all this does is to make sure
+     * that the scale's value is within the new acceptable range for
+     * the scale and reflect the value in the associated variable,
+     * if any.
+     */
+
+    ComputeFormat(scalePtr);
+    SetScaleValue(scalePtr, scalePtr->value, 1, 1);
+
+    if (scalePtr->label != NULL) {
+	scalePtr->labelLength = strlen(scalePtr->label);
+    } else {
+	scalePtr->labelLength = 0;
+    }
+
+    if ((scalePtr->state != tkNormalUid)
+	    && (scalePtr->state != tkDisabledUid)
+	    && (scalePtr->state != tkActiveUid)) {
+	Tcl_AppendResult(interp, "bad state value \"", scalePtr->state,
+		"\": must be normal, active, or disabled", (char *) NULL);
+	scalePtr->state = tkNormalUid;
+	return TCL_ERROR;
+    }
+
+    Tk_SetBackgroundFromBorder(scalePtr->tkwin, scalePtr->bgBorder);
+
+    gcValues.foreground = scalePtr->troughColorPtr->pixel;
+    newGC = Tk_GetGC(scalePtr->tkwin, GCForeground, &gcValues);
+    if (scalePtr->troughGC != None) {
+	Tk_FreeGC(scalePtr->display, scalePtr->troughGC);
+    }
+    scalePtr->troughGC = newGC;
+    if (scalePtr->copyGC == None) {
+	gcValues.graphics_exposures = False;
+	scalePtr->copyGC = Tk_GetGC(scalePtr->tkwin, GCGraphicsExposures,
+	    &gcValues);
+    }
+    if (scalePtr->highlightWidth < 0) {
+	scalePtr->highlightWidth = 0;
+    }
+    gcValues.font = scalePtr->fontPtr->fid;
+    gcValues.foreground = scalePtr->textColorPtr->pixel;
+    newGC = Tk_GetGC(scalePtr->tkwin, GCForeground|GCFont, &gcValues);
+    if (scalePtr->textGC != None) {
+	Tk_FreeGC(scalePtr->display, scalePtr->textGC);
+    }
+    scalePtr->textGC = newGC;
+
+    scalePtr->inset = scalePtr->highlightWidth + scalePtr->borderWidth;
+
+    /*
+     * Recompute display-related information, and let the geometry
+     * manager know how much space is needed now.
+     */
+
+    ComputeScaleGeometry(scalePtr);
+
+    EventuallyRedrawScale(scalePtr, REDRAW_ALL);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeFormat --
+ *
+ *	This procedure is invoked to recompute the "format" field
+ *	of a scale's widget record, which determines how the value
+ *	of the scale is converted to a string.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The format field of scalePtr is modified.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ComputeFormat(scalePtr)
+    Scale *scalePtr;			/* Information about scale widget. */
+{
+    double maxValue, x;
+    int mostSigDigit, numDigits, leastSigDigit, afterDecimal;
+    int eDigits, fDigits;
+
+    /*
+     * Compute the displacement from the decimal of the most significant
+     * digit required for any number in the scale's range.
+     */
+
+    maxValue = fabs(scalePtr->fromValue);
+    x = fabs(scalePtr->toValue);
+    if (x > maxValue) {
+	maxValue = x;
+    }
+    if (maxValue == 0) {
+	maxValue = 1;
+    }
+    mostSigDigit = floor(log10(maxValue));
+
+    /*
+     * If the number of significant digits wasn't specified explicitly,
+     * compute it. It's the difference between the most significant
+     * digit needed to represent any number on the scale and the
+     * most significant digit of the smallest difference between
+     * numbers on the scale.  In other words, display enough digits so
+     * that at least one digit will be different between any two adjacent
+     * positions of the scale.
+     */
+
+    numDigits = scalePtr->digits;
+    if (numDigits <= 0) {
+	if  (scalePtr->resolution > 0) {
+	    /*
+	     * A resolution was specified for the scale, so just use it.
+	     */
+
+	    leastSigDigit = floor(log10(scalePtr->resolution));
+	} else {
+	    /*
+	     * No resolution was specified, so compute the difference
+	     * in value between adjacent pixels and use it for the least
+	     * significant digit.
+	     */
+
+	    x = fabs(scalePtr->fromValue - scalePtr->toValue);
+	    if (scalePtr->length > 0) {
+		x /= scalePtr->length;
+	    }
+	    if (x > 0){
+		leastSigDigit = floor(log10(x));
+	    } else {
+		leastSigDigit = 0;
+	    }
+	}
+	numDigits = mostSigDigit - leastSigDigit + 1;
+	if (numDigits < 1) {
+	    numDigits = 1;
+	}
+    }
+
+    /*
+     * Compute the number of characters required using "e" format and
+     * "f" format, and then choose whichever one takes fewer characters.
+     */
+
+    eDigits = numDigits + 4;
+    if (numDigits > 1) {
+	eDigits++;			/* Decimal point. */
+    }
+    afterDecimal = numDigits - mostSigDigit - 1;
+    if (afterDecimal < 0) {
+	afterDecimal = 0;
+    }
+    fDigits = (mostSigDigit >= 0) ? mostSigDigit + afterDecimal : afterDecimal;
+    if (afterDecimal > 0) {
+	fDigits++;			/* Decimal point. */
+    }
+    if (mostSigDigit < 0) {
+	fDigits++;			/* Zero to left of decimal point. */
+    }
+    if (fDigits <= eDigits) {
+	sprintf(scalePtr->format, "%%.%df", afterDecimal);
+    } else {
+	sprintf(scalePtr->format, "%%.%de", numDigits-1);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeScaleGeometry --
+ *
+ *	This procedure is called to compute various geometrical
+ *	information for a scale, such as where various things get
+ *	displayed.  It's called when the window is reconfigured.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Display-related numbers get changed in *scalePtr.  The
+ *	geometry manager gets told about the window's preferred size.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ComputeScaleGeometry(scalePtr)
+    register Scale *scalePtr;		/* Information about widget. */
+{
+    XCharStruct bbox;
+    char valueString[PRINT_CHARS];
+    int dummy, lineHeight, valuePixels, x, y, extraSpace;
+
+    /*
+     * Horizontal scales are simpler than vertical ones because
+     * all sizes are the same (the height of a line of text);
+     * handle them first and then quit.
+     */
+
+    if (!scalePtr->vertical) {
+	lineHeight = scalePtr->fontPtr->ascent + scalePtr->fontPtr->descent;
+	y = scalePtr->inset;
+	extraSpace = 0;
+	if (scalePtr->labelLength != 0) {
+	    scalePtr->horizLabelY = y + SPACING;
+	    y += lineHeight + SPACING;
+	    extraSpace = SPACING;
+	}
+	if (scalePtr->showValue) {
+	    scalePtr->horizValueY = y + SPACING;
+	    y += lineHeight + SPACING;
+	    extraSpace = SPACING;
+	} else {
+	    scalePtr->horizValueY = y;
+	}
+	y += extraSpace;
+	scalePtr->horizTroughY = y;
+	y += scalePtr->width + 2*scalePtr->borderWidth;
+	if (scalePtr->tickInterval != 0) {
+	    scalePtr->horizTickY = y + SPACING;
+	    y += lineHeight + 2*SPACING;
+	}
+	Tk_GeometryRequest(scalePtr->tkwin,
+		scalePtr->length + 2*scalePtr->inset, y + scalePtr->inset);
+	Tk_SetInternalBorder(scalePtr->tkwin, scalePtr->inset);
+	return;
+    }
+
+    /*
+     * Vertical scale:  compute the amount of space needed to display
+     * the scales value by formatting strings for the two end points;
+     * use whichever length is longer.
+     */
+
+    sprintf(valueString, scalePtr->format, scalePtr->fromValue);
+    XTextExtents(scalePtr->fontPtr, valueString, (int) strlen(valueString),
+	    &dummy, &dummy, &dummy, &bbox);
+    valuePixels = bbox.rbearing - bbox.lbearing;
+    sprintf(valueString, scalePtr->format, scalePtr->toValue);
+    XTextExtents(scalePtr->fontPtr, valueString, (int) strlen(valueString),
+	    &dummy, &dummy, &dummy, &bbox);
+    if (valuePixels < bbox.rbearing - bbox.lbearing) {
+	valuePixels = bbox.rbearing - bbox.lbearing;
+    }
+
+    /*
+     * Assign x-locations to the elements of the scale, working from
+     * left to right.
+     */
+
+    x = scalePtr->inset;
+    if ((scalePtr->tickInterval != 0) && (scalePtr->showValue)) {
+	scalePtr->vertTickRightX = x + SPACING + valuePixels;
+	scalePtr->vertValueRightX = scalePtr->vertTickRightX + valuePixels
+		+ scalePtr->fontPtr->ascent/2;
+	x = scalePtr->vertValueRightX + SPACING;
+    } else if (scalePtr->tickInterval != 0) {
+	scalePtr->vertTickRightX = x + SPACING + valuePixels;
+	scalePtr->vertValueRightX = scalePtr->vertTickRightX;
+	x = scalePtr->vertTickRightX + SPACING;
+    } else if (scalePtr->showValue) {
+	scalePtr->vertTickRightX = x;
+	scalePtr->vertValueRightX = x + SPACING + valuePixels;
+	x = scalePtr->vertValueRightX + SPACING;
+    } else {
+	scalePtr->vertTickRightX = x;
+	scalePtr->vertValueRightX = x;
+    }
+    scalePtr->vertTroughX = x;
+    x += 2*scalePtr->borderWidth + scalePtr->width;
+    if (scalePtr->labelLength == 0) {
+	scalePtr->vertLabelX = 0;
+    } else {
+	XTextExtents(scalePtr->fontPtr, scalePtr->label,
+		scalePtr->labelLength, &dummy, &dummy, &dummy, &bbox);
+	scalePtr->vertLabelX = x + scalePtr->fontPtr->ascent/2 - bbox.lbearing;
+	x = scalePtr->vertLabelX + bbox.rbearing
+		+ scalePtr->fontPtr->ascent/2;
+    }
+    Tk_GeometryRequest(scalePtr->tkwin, x + scalePtr->inset,
+	    scalePtr->length + 2*scalePtr->inset);
+    Tk_SetInternalBorder(scalePtr->tkwin, scalePtr->inset);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayVerticalScale --
+ *
+ *	This procedure redraws the contents of a vertical scale
+ *	window.  It is invoked as a do-when-idle handler, so it only
+ *	runs when there's nothing else for the application to do.
+ *
+ * Results:
+ *	There is no return value.  If only a part of the scale needs
+ *	to be redrawn, then drawnAreaPtr is modified to reflect the
+ *	area that was actually modified.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayVerticalScale(scalePtr, drawable, drawnAreaPtr)
+    Scale *scalePtr;			/* Widget record for scale. */
+    Drawable drawable;			/* Where to display scale (window
+					 * or pixmap). */
+    XRectangle *drawnAreaPtr;		/* Initally contains area of window;
+					 * if only a part of the scale is
+					 * redrawn, gets modified to reflect
+					 * the part of the window that was
+					 * redrawn. */
+{
+    Tk_Window tkwin = scalePtr->tkwin;
+    int x, y, width, height, shadowWidth;
+    double tickValue;
+    Tk_3DBorder sliderBorder;
+
+    /*
+     * Display the information from left to right across the window.
+     */
+
+    if (!(scalePtr->flags & REDRAW_OTHER)) {
+	drawnAreaPtr->x = scalePtr->vertTickRightX;
+	drawnAreaPtr->y = scalePtr->inset;
+	drawnAreaPtr->width = scalePtr->vertTroughX + scalePtr->width
+		+ 2*scalePtr->borderWidth - scalePtr->vertTickRightX;
+	drawnAreaPtr->height -= 2*scalePtr->inset;
+    }
+    Tk_Fill3DRectangle(tkwin, drawable, scalePtr->bgBorder,
+	    drawnAreaPtr->x, drawnAreaPtr->y, drawnAreaPtr->width,
+	    drawnAreaPtr->height, 0, TK_RELIEF_FLAT);
+    if (scalePtr->flags & REDRAW_OTHER) {
+	/*
+	 * Display the tick marks.
+	 */
+
+	if (scalePtr->tickInterval != 0) {
+	    for (tickValue = scalePtr->fromValue; ;
+		    tickValue += scalePtr->tickInterval) {
+		/*
+		 * The RoundToResolution call gets rid of accumulated
+		 * round-off errors, if any.
+		 */
+
+		tickValue = RoundToResolution(scalePtr, tickValue);
+		if (scalePtr->toValue >= scalePtr->fromValue) {
+		    if (tickValue > scalePtr->toValue) {
+			break;
+		    }
+		} else {
+		    if (tickValue < scalePtr->toValue) {
+			break;
+		    }
+		}
+		DisplayVerticalValue(scalePtr, drawable, tickValue,
+			scalePtr->vertTickRightX);
+	    }
+	}
+    }
+
+    /*
+     * Display the value, if it is desired.
+     */
+
+    if (scalePtr->showValue) {
+	DisplayVerticalValue(scalePtr, drawable, scalePtr->value,
+		scalePtr->vertValueRightX);
+    }
+
+    /*
+     * Display the trough and the slider.
+     */
+
+    Tk_Draw3DRectangle(tkwin, drawable,
+	    scalePtr->bgBorder, scalePtr->vertTroughX, scalePtr->inset,
+	    scalePtr->width + 2*scalePtr->borderWidth,
+	    Tk_Height(tkwin) - 2*scalePtr->inset, scalePtr->borderWidth,
+	    TK_RELIEF_SUNKEN);
+    XFillRectangle(scalePtr->display, drawable, scalePtr->troughGC,
+	    scalePtr->vertTroughX + scalePtr->borderWidth,
+	    scalePtr->inset + scalePtr->borderWidth,
+	    (unsigned) scalePtr->width,
+	    (unsigned) (Tk_Height(tkwin) - 2*scalePtr->inset
+		- 2*scalePtr->borderWidth));
+    if (scalePtr->state == tkActiveUid) {
+	sliderBorder = scalePtr->activeBorder;
+    } else {
+	sliderBorder = scalePtr->bgBorder;
+    }
+    width = scalePtr->width;
+    height = scalePtr->sliderLength/2;
+    x = scalePtr->vertTroughX + scalePtr->borderWidth;
+    y = ValueToPixel(scalePtr, scalePtr->value) - height;
+    shadowWidth = scalePtr->borderWidth/2;
+    if (shadowWidth == 0) {
+	shadowWidth = 1;
+    }
+    Tk_Draw3DRectangle(tkwin, drawable, sliderBorder, x, y, width,
+	    2*height, shadowWidth, scalePtr->sliderRelief);
+    x += shadowWidth;
+    y += shadowWidth;
+    width -= 2*shadowWidth;
+    height -= shadowWidth;
+    Tk_Fill3DRectangle(tkwin, drawable, sliderBorder, x, y, width,
+	    height, shadowWidth, scalePtr->sliderRelief);
+    Tk_Fill3DRectangle(tkwin, drawable, sliderBorder, x, y+height,
+	    width, height, shadowWidth, scalePtr->sliderRelief);
+
+    /*
+     * Draw the label to the right of the scale.
+     */
+
+    if ((scalePtr->flags & REDRAW_OTHER) && (scalePtr->labelLength != 0)) {
+	XDrawString(scalePtr->display, drawable,
+	    scalePtr->textGC, scalePtr->vertLabelX,
+	    scalePtr->inset + (3*scalePtr->fontPtr->ascent)/2,
+	    scalePtr->label, scalePtr->labelLength);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayVerticalValue --
+ *
+ *	This procedure is called to display values (scale readings)
+ *	for vertically-oriented scales.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The numerical value corresponding to value is displayed with
+ *	its right edge at "rightEdge", and at a vertical position in
+ *	the scale that corresponds to "value".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayVerticalValue(scalePtr, drawable, value, rightEdge)
+    register Scale *scalePtr;	/* Information about widget in which to
+				 * display value. */
+    Drawable drawable;		/* Pixmap or window in which to draw
+				 * the value. */
+    double value;		/* Y-coordinate of number to display,
+				 * specified in application coords, not
+				 * in pixels (we'll compute pixels). */
+    int rightEdge;		/* X-coordinate of right edge of text,
+				 * specified in pixels. */
+{
+    register Tk_Window tkwin = scalePtr->tkwin;
+    int y, dummy, length;
+    char valueString[PRINT_CHARS];
+    XCharStruct bbox;
+
+    y = ValueToPixel(scalePtr, value) + scalePtr->fontPtr->ascent/2;
+    sprintf(valueString, scalePtr->format, value);
+    length = strlen(valueString);
+    XTextExtents(scalePtr->fontPtr, valueString, length,
+	    &dummy, &dummy, &dummy, &bbox);
+
+    /*
+     * Adjust the y-coordinate if necessary to keep the text entirely
+     * inside the window.
+     */
+
+    if ((y - bbox.ascent) < (scalePtr->inset + SPACING)) {
+	y = scalePtr->inset + SPACING + bbox.ascent;
+    }
+    if ((y + bbox.descent) > (Tk_Height(tkwin) - scalePtr->inset - SPACING)) {
+	y = Tk_Height(tkwin) - scalePtr->inset - SPACING - bbox.descent;
+    }
+    XDrawString(scalePtr->display, drawable, scalePtr->textGC,
+	    rightEdge - bbox.rbearing, y, valueString, length);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayHorizontalScale --
+ *
+ *	This procedure redraws the contents of a horizontal scale
+ *	window.  It is invoked as a do-when-idle handler, so it only
+ *	runs when there's nothing else for the application to do.
+ *
+ * Results:
+ *	There is no return value.  If only a part of the scale needs
+ *	to be redrawn, then drawnAreaPtr is modified to reflect the
+ *	area that was actually modified.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayHorizontalScale(scalePtr, drawable, drawnAreaPtr)
+    Scale *scalePtr;			/* Widget record for scale. */
+    Drawable drawable;			/* Where to display scale (window
+					 * or pixmap). */
+    XRectangle *drawnAreaPtr;		/* Initally contains area of window;
+					 * if only a part of the scale is
+					 * redrawn, gets modified to reflect
+					 * the part of the window that was
+					 * redrawn. */
+{
+    register Tk_Window tkwin = scalePtr->tkwin;
+    int x, y, width, height, shadowWidth;
+    double tickValue;
+    Tk_3DBorder sliderBorder;
+
+    /*
+     * Display the information from bottom to top across the window.
+     */
+
+    if (!(scalePtr->flags & REDRAW_OTHER)) {
+	drawnAreaPtr->x = scalePtr->inset;
+	drawnAreaPtr->y = scalePtr->horizValueY;
+	drawnAreaPtr->width -= 2*scalePtr->inset;
+	drawnAreaPtr->height = scalePtr->horizTroughY + scalePtr->width
+		+ 2*scalePtr->borderWidth - scalePtr->horizValueY;
+    }
+    Tk_Fill3DRectangle(tkwin, drawable, scalePtr->bgBorder,
+	    drawnAreaPtr->x, drawnAreaPtr->y, drawnAreaPtr->width,
+	    drawnAreaPtr->height, 0, TK_RELIEF_FLAT);
+    if (scalePtr->flags & REDRAW_OTHER) {
+	/*
+	 * Display the tick marks.
+	 */
+
+	if (scalePtr->tickInterval != 0) {
+	    for (tickValue = scalePtr->fromValue; ;
+		    tickValue += scalePtr->tickInterval) {
+		/*
+		 * The RoundToResolution call gets rid of accumulated
+		 * round-off errors, if any.
+		 */
+
+		tickValue = RoundToResolution(scalePtr, tickValue);
+		if (scalePtr->toValue >= scalePtr->fromValue) {
+		    if (tickValue > scalePtr->toValue) {
+			break;
+		    }
+		} else {
+		    if (tickValue < scalePtr->toValue) {
+			break;
+		    }
+		}
+		DisplayHorizontalValue(scalePtr, drawable, tickValue,
+			scalePtr->horizTickY);
+	    }
+	}
+    }
+
+    /*
+     * Display the value, if it is desired.
+     */
+
+    if (scalePtr->showValue) {
+	DisplayHorizontalValue(scalePtr, drawable, scalePtr->value,
+		scalePtr->horizValueY);
+    }
+
+    /*
+     * Display the trough and the slider.
+     */
+
+    y = scalePtr->horizTroughY;
+    Tk_Draw3DRectangle(tkwin, drawable,
+	    scalePtr->bgBorder, scalePtr->inset, y,
+	    Tk_Width(tkwin) - 2*scalePtr->inset,
+	    scalePtr->width + 2*scalePtr->borderWidth,
+	    scalePtr->borderWidth, TK_RELIEF_SUNKEN);
+    XFillRectangle(scalePtr->display, drawable, scalePtr->troughGC,
+	    scalePtr->inset + scalePtr->borderWidth,
+	    y + scalePtr->borderWidth,
+	    (unsigned) (Tk_Width(tkwin) - 2*scalePtr->inset
+		- 2*scalePtr->borderWidth),
+	    (unsigned) scalePtr->width);
+    if (scalePtr->state == tkActiveUid) {
+	sliderBorder = scalePtr->activeBorder;
+    } else {
+	sliderBorder = scalePtr->bgBorder;
+    }
+    width = scalePtr->sliderLength/2;
+    height = scalePtr->width;
+    x = ValueToPixel(scalePtr, scalePtr->value) - width;
+    y += scalePtr->borderWidth;
+    shadowWidth = scalePtr->borderWidth/2;
+    if (shadowWidth == 0) {
+	shadowWidth = 1;
+    }
+    Tk_Draw3DRectangle(tkwin, drawable, sliderBorder,
+	    x, y, 2*width, height, shadowWidth, scalePtr->sliderRelief);
+    x += shadowWidth;
+    y += shadowWidth;
+    width -= shadowWidth;
+    height -= 2*shadowWidth;
+    Tk_Fill3DRectangle(tkwin, drawable, sliderBorder, x, y, width, height,
+	    shadowWidth, scalePtr->sliderRelief);
+    Tk_Fill3DRectangle(tkwin, drawable, sliderBorder, x+width, y,
+	    width, height, shadowWidth, scalePtr->sliderRelief);
+
+    /*
+     * Draw the label at the top of the scale.
+     */
+
+    if ((scalePtr->flags & REDRAW_OTHER) && (scalePtr->labelLength != 0)) {
+	XDrawString(scalePtr->display, drawable,
+	    scalePtr->textGC, scalePtr->inset + scalePtr->fontPtr->ascent/2,
+	    scalePtr->horizLabelY + scalePtr->fontPtr->ascent,
+	    scalePtr->label, scalePtr->labelLength);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayHorizontalValue --
+ *
+ *	This procedure is called to display values (scale readings)
+ *	for horizontally-oriented scales.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The numerical value corresponding to value is displayed with
+ *	its bottom edge at "bottom", and at a horizontal position in
+ *	the scale that corresponds to "value".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayHorizontalValue(scalePtr, drawable, value, top)
+    register Scale *scalePtr;	/* Information about widget in which to
+				 * display value. */
+    Drawable drawable;		/* Pixmap or window in which to draw
+				 * the value. */
+    double value;		/* X-coordinate of number to display,
+				 * specified in application coords, not
+				 * in pixels (we'll compute pixels). */
+    int top;			/* Y-coordinate of top edge of text,
+				 * specified in pixels. */
+{
+    register Tk_Window tkwin = scalePtr->tkwin;
+    int x, y, dummy, length;
+    char valueString[PRINT_CHARS];
+    XCharStruct bbox;
+
+    x = ValueToPixel(scalePtr, value);
+    y = top + scalePtr->fontPtr->ascent;
+    sprintf(valueString, scalePtr->format, value);
+    length = strlen(valueString);
+    XTextExtents(scalePtr->fontPtr, valueString, length,
+	    &dummy, &dummy, &dummy, &bbox);
+
+    /*
+     * Adjust the x-coordinate if necessary to keep the text entirely
+     * inside the window.
+     */
+
+    x -= (bbox.rbearing - bbox.lbearing)/2;
+    if ((x + bbox.lbearing) < (scalePtr->inset + SPACING)) {
+	x = scalePtr->inset + SPACING - bbox.lbearing;
+    }
+    if ((x + bbox.rbearing) > (Tk_Width(tkwin) - scalePtr->inset)) {
+	x = Tk_Width(tkwin) - scalePtr->inset - SPACING - bbox.rbearing;
+    }
+    XDrawString(scalePtr->display, drawable, scalePtr->textGC, x, y,
+	    valueString, length);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayScale --
+ *
+ *	This procedure is invoked as an idle handler to redisplay
+ *	the contents of a scale widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The scale gets redisplayed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayScale(clientData)
+    ClientData clientData;	/* Widget record for scale. */
+{
+    Scale *scalePtr = (Scale *) clientData;
+    Tk_Window tkwin = scalePtr->tkwin;
+    Tcl_Interp *interp = scalePtr->interp;
+    Pixmap pixmap;
+    int result;
+    char string[PRINT_CHARS];
+    XRectangle drawnArea;
+
+    if ((scalePtr->tkwin == NULL) || !Tk_IsMapped(scalePtr->tkwin)) {
+	goto done;
+    }
+
+    /*
+     * Invoke the scale's command if needed.
+     */
+
+    Tcl_Preserve((ClientData) scalePtr);
+    Tcl_Preserve((ClientData) interp);
+    if ((scalePtr->flags & INVOKE_COMMAND) && (scalePtr->command != NULL)) {
+	sprintf(string, scalePtr->format, scalePtr->value);
+	result = Tcl_VarEval(interp, scalePtr->command,	" ", string,
+                             (char *) NULL);
+	if (result != TCL_OK) {
+	    Tcl_AddErrorInfo(interp, "\n    (command executed by scale)");
+	    Tcl_BackgroundError(interp);
+	}
+    }
+    Tcl_Release((ClientData) interp);
+    scalePtr->flags &= ~INVOKE_COMMAND;
+    if (scalePtr->tkwin == NULL) {
+	Tcl_Release((ClientData) scalePtr);
+	return;
+    }
+    Tcl_Release((ClientData) scalePtr);
+
+    /*
+     * In order to avoid screen flashes, this procedure redraws
+     * the scale in a pixmap, then copies the pixmap to the
+     * screen in a single operation.  This means that there's no
+     * point in time where the on-sreen image has been cleared.
+     */
+
+    pixmap = Tk_GetPixmap(scalePtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+    drawnArea.x = 0;
+    drawnArea.y = 0;
+    drawnArea.width = Tk_Width(tkwin);
+    drawnArea.height = Tk_Height(tkwin);
+
+    /*
+     * Much of the redisplay is done totally differently for
+     * horizontal and vertical scales.  Handle the part that's
+     * different.
+     */
+
+    if (scalePtr->vertical) {
+	DisplayVerticalScale(scalePtr, pixmap, &drawnArea);
+    } else {
+	DisplayHorizontalScale(scalePtr, pixmap, &drawnArea);
+    }
+
+    /*
+     * Now handle the part of redisplay that is the same for
+     * horizontal and vertical scales:  border and traversal
+     * highlight.
+     */
+
+    if (scalePtr->flags & REDRAW_OTHER) {
+	if (scalePtr->relief != TK_RELIEF_FLAT) {
+	    Tk_Draw3DRectangle(tkwin, pixmap, scalePtr->bgBorder,
+		    scalePtr->highlightWidth, scalePtr->highlightWidth,
+		    Tk_Width(tkwin) - 2*scalePtr->highlightWidth,
+		    Tk_Height(tkwin) - 2*scalePtr->highlightWidth,
+		    scalePtr->borderWidth, scalePtr->relief);
+	}
+	if (scalePtr->highlightWidth != 0) {
+	    GC gc;
+    
+	    if (scalePtr->flags & GOT_FOCUS) {
+		gc = Tk_GCForColor(scalePtr->highlightColorPtr, pixmap);
+	    } else {
+		gc = Tk_GCForColor(scalePtr->highlightBgColorPtr, pixmap);
+	    }
+	    Tk_DrawFocusHighlight(tkwin, gc, scalePtr->highlightWidth, pixmap);
+	}
+    }
+
+    /*
+     * Copy the information from the off-screen pixmap onto the screen,
+     * then delete the pixmap.
+     */
+
+    XCopyArea(scalePtr->display, pixmap, Tk_WindowId(tkwin),
+	    scalePtr->copyGC, drawnArea.x, drawnArea.y, drawnArea.width,
+	    drawnArea.height, drawnArea.x, drawnArea.y);
+    Tk_FreePixmap(scalePtr->display, pixmap);
+
+    done:
+    scalePtr->flags &= ~REDRAW_ALL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScaleElement --
+ *
+ *	Determine which part of a scale widget lies under a given
+ *	point.
+ *
+ * Results:
+ *	The return value is either TROUGH1, SLIDER, TROUGH2, or
+ *	OTHER, depending on which of the scale's active elements
+ *	(if any) is under the point at (x,y).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ScaleElement(scalePtr, x, y)
+    Scale *scalePtr;		/* Widget record for scale. */
+    int x, y;			/* Coordinates within scalePtr's window. */
+{
+    int sliderFirst;
+
+    if (scalePtr->vertical) {
+	if ((x < scalePtr->vertTroughX)
+		|| (x >= (scalePtr->vertTroughX + 2*scalePtr->borderWidth +
+		scalePtr->width))) {
+	    return OTHER;
+	}
+	if ((y < scalePtr->inset)
+		|| (y >= (Tk_Height(scalePtr->tkwin) - scalePtr->inset))) {
+	    return OTHER;
+	}
+	sliderFirst = ValueToPixel(scalePtr, scalePtr->value)
+		- scalePtr->sliderLength/2;
+	if (y < sliderFirst) {
+	    return TROUGH1;
+	}
+	if (y < (sliderFirst+scalePtr->sliderLength)) {
+	    return SLIDER;
+	}
+	return TROUGH2;
+    }
+
+    if ((y < scalePtr->horizTroughY)
+	    || (y >= (scalePtr->horizTroughY + 2*scalePtr->borderWidth +
+	    scalePtr->width))) {
+	return OTHER;
+    }
+    if ((x < scalePtr->inset)
+	    || (x >= (Tk_Width(scalePtr->tkwin) - scalePtr->inset))) {
+	return OTHER;
+    }
+    sliderFirst = ValueToPixel(scalePtr, scalePtr->value)
+	    - scalePtr->sliderLength/2;
+    if (x < sliderFirst) {
+	return TROUGH1;
+    }
+    if (x < (sliderFirst+scalePtr->sliderLength)) {
+	return SLIDER;
+    }
+    return TROUGH2;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PixelToValue --
+ *
+ *	Given a pixel within a scale window, return the scale
+ *	reading corresponding to that pixel.
+ *
+ * Results:
+ *	A double-precision scale reading.  If the value is outside
+ *	the legal range for the scale then it's rounded to the nearest
+ *	end of the scale.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static double
+PixelToValue(scalePtr, x, y)
+    register Scale *scalePtr;		/* Information about widget. */
+    int x, y;				/* Coordinates of point within
+					 * window. */
+{
+    double value, pixelRange;
+
+    if (scalePtr->vertical) {
+	pixelRange = Tk_Height(scalePtr->tkwin) - scalePtr->sliderLength
+		- 2*scalePtr->inset - 2*scalePtr->borderWidth;
+	value = y;
+    } else {
+	pixelRange = Tk_Width(scalePtr->tkwin) - scalePtr->sliderLength
+		- 2*scalePtr->inset - 2*scalePtr->borderWidth;
+	value = x;
+    }
+
+    if (pixelRange <= 0) {
+	/*
+	 * Not enough room for the slider to actually slide:  just return
+	 * the scale's current value.
+	 */
+
+	return scalePtr->value;
+    }
+    value -= scalePtr->sliderLength/2 + scalePtr->inset
+		+ scalePtr->borderWidth;
+    value /= pixelRange;
+    if (value < 0) {
+	value = 0;
+    }
+    if (value > 1) {
+	value = 1;
+    }
+    value = scalePtr->fromValue +
+		value * (scalePtr->toValue - scalePtr->fromValue);
+    return RoundToResolution(scalePtr, value);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ValueToPixel --
+ *
+ *	Given a reading of the scale, return the x-coordinate or
+ *	y-coordinate corresponding to that reading, depending on
+ *	whether the scale is vertical or horizontal, respectively.
+ *
+ * Results:
+ *	An integer value giving the pixel location corresponding
+ *	to reading.  The value is restricted to lie within the
+ *	defined range for the scale.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ValueToPixel(scalePtr, value)
+    register Scale *scalePtr;		/* Information about widget. */
+    double value;			/* Reading of the widget. */
+{
+    int y, pixelRange;
+    double valueRange;
+
+    valueRange = scalePtr->toValue - scalePtr->fromValue;
+    pixelRange = (scalePtr->vertical ? Tk_Height(scalePtr->tkwin)
+	    : Tk_Width(scalePtr->tkwin)) - scalePtr->sliderLength
+	    - 2*scalePtr->inset - 2*scalePtr->borderWidth;
+    if (valueRange == 0) {
+	y = 0;
+    } else {
+	y = (int) ((value - scalePtr->fromValue) * pixelRange
+		  / valueRange + 0.5);
+	if (y < 0) {
+	    y = 0;
+	} else if (y > pixelRange) {
+	    y = pixelRange;
+	}
+    }
+    y += scalePtr->sliderLength/2 + scalePtr->inset + scalePtr->borderWidth;
+    return y;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScaleEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on scales.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScaleEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Scale *scalePtr = (Scale *) clientData;
+
+    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
+	EventuallyRedrawScale(scalePtr, REDRAW_ALL);
+    } else if (eventPtr->type == DestroyNotify) {
+	if (scalePtr->tkwin != NULL) {
+	    scalePtr->tkwin = NULL;
+	    Tcl_DeleteCommand(scalePtr->interp,
+		    Tcl_GetCommandName(scalePtr->interp, scalePtr->widgetCmd));
+	}
+	if (scalePtr->flags & REDRAW_ALL) {
+	    Tcl_CancelIdleCall(DisplayScale, (ClientData) scalePtr);
+	}
+	Tcl_EventuallyFree((ClientData) scalePtr, DestroyScale);
+    } else if (eventPtr->type == ConfigureNotify) {
+	ComputeScaleGeometry(scalePtr);
+	EventuallyRedrawScale(scalePtr, REDRAW_ALL);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    scalePtr->flags |= GOT_FOCUS;
+	    if (scalePtr->highlightWidth > 0) {
+		EventuallyRedrawScale(scalePtr, REDRAW_ALL);
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    scalePtr->flags &= ~GOT_FOCUS;
+	    if (scalePtr->highlightWidth > 0) {
+		EventuallyRedrawScale(scalePtr, REDRAW_ALL);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScaleCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ScaleCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Scale *scalePtr = (Scale *) clientData;
+    Tk_Window tkwin = scalePtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	scalePtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SetScaleValue --
+ *
+ *	This procedure changes the value of a scale and invokes
+ *	a Tcl command to reflect the current position of a scale
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A Tcl command is invoked, and an additional error-processing
+ *	command may also be invoked.  The scale's slider is redrawn.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SetScaleValue(scalePtr, value, setVar, invokeCommand)
+    register Scale *scalePtr;	/* Info about widget. */
+    double value;		/* New value for scale.  Gets adjusted
+				 * if it's off the scale. */
+    int setVar;			/* Non-zero means reflect new value through
+				 * to associated variable, if any. */
+    int invokeCommand;		/* Non-zero means invoked -command option
+				 * to notify of new value, 0 means don't. */
+{
+    char string[PRINT_CHARS];
+
+    value = RoundToResolution(scalePtr, value);
+    if ((value < scalePtr->fromValue)
+	    ^ (scalePtr->toValue < scalePtr->fromValue)) {
+	value = scalePtr->fromValue;
+    }
+    if ((value > scalePtr->toValue)
+	    ^ (scalePtr->toValue < scalePtr->fromValue)) {
+	value = scalePtr->toValue;
+    }
+    if (scalePtr->flags & NEVER_SET) {
+	scalePtr->flags &= ~NEVER_SET;
+    } else if (scalePtr->value == value) {
+	return;
+    }
+    scalePtr->value = value;
+    if (invokeCommand) {
+	scalePtr->flags |= INVOKE_COMMAND;
+    }
+    EventuallyRedrawScale(scalePtr, REDRAW_SLIDER);
+
+    if (setVar && (scalePtr->varName != NULL)) {
+	sprintf(string, scalePtr->format, scalePtr->value);
+	scalePtr->flags |= SETTING_VAR;
+	Tcl_SetVar(scalePtr->interp, scalePtr->varName, string,
+	       TCL_GLOBAL_ONLY);
+	scalePtr->flags &= ~SETTING_VAR;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EventuallyRedrawScale --
+ *
+ *	Arrange for part or all of a scale widget to redrawn at
+ *	the next convenient time in the future.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If "what" is REDRAW_SLIDER then just the slider and the
+ *	value readout will be redrawn;  if "what" is REDRAW_ALL
+ *	then the entire widget will be redrawn.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EventuallyRedrawScale(scalePtr, what)
+    register Scale *scalePtr;	/* Information about widget. */
+    int what;			/* What to redraw:  REDRAW_SLIDER
+				 * or REDRAW_ALL. */
+{
+    if ((what == 0) || (scalePtr->tkwin == NULL)
+	    || !Tk_IsMapped(scalePtr->tkwin)) {
+	return;
+    }
+    if ((scalePtr->flags & REDRAW_ALL) == 0) {
+	Tcl_DoWhenIdle(DisplayScale, (ClientData) scalePtr);
+    }
+    scalePtr->flags |= what;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * RoundToResolution --
+ *
+ *	Round a given floating-point value to the nearest multiple
+ *	of the scale's resolution.
+ *
+ * Results:
+ *	The return value is the rounded result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static double
+RoundToResolution(scalePtr, value)
+    Scale *scalePtr;		/* Information about scale widget. */
+    double value;		/* Value to round. */
+{
+    double rem, new;
+
+    if (scalePtr->resolution <= 0) {
+	return value;
+    }
+    new = scalePtr->resolution * floor(value/scalePtr->resolution);
+    rem = value - new;
+    if (rem < 0) {
+	if (rem <= -scalePtr->resolution/2) {
+	    new -= scalePtr->resolution;
+	}
+    } else {
+	if (rem >= scalePtr->resolution/2) {
+	    new += scalePtr->resolution;
+	}
+    }
+    return new;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScaleVarProc --
+ *
+ *	This procedure is invoked by Tcl whenever someone modifies a
+ *	variable associated with a scale widget.
+ *
+ * Results:
+ *	NULL is always returned.
+ *
+ * Side effects:
+ *	The value displayed in the scale will change to match the
+ *	variable's new value.  If the variable has a bogus value then
+ *	it is reset to the value of the scale.
+ *
+ *----------------------------------------------------------------------
+ */
+
+    /* ARGSUSED */
+static char *
+ScaleVarProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;	/* Information about button. */
+    Tcl_Interp *interp;		/* Interpreter containing variable. */
+    char *name1;		/* Name of variable. */
+    char *name2;		/* Second part of variable name. */
+    int flags;			/* Information about what happened. */
+{
+    register Scale *scalePtr = (Scale *) clientData;
+    char *stringValue, *end, *result;
+    double value;
+
+    /*
+     * If the variable is unset, then immediately recreate it unless
+     * the whole interpreter is going away.
+     */
+
+    if (flags & TCL_TRACE_UNSETS) {
+	if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
+	    Tcl_TraceVar(interp, scalePtr->varName,
+		    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+		    ScaleVarProc, clientData);
+	    scalePtr->flags |= NEVER_SET;
+	    SetScaleValue(scalePtr, scalePtr->value, 1, 0);
+	}
+	return (char *) NULL;
+    }
+
+    /*
+     * If we came here because we updated the variable (in SetScaleValue),
+     * then ignore the trace.  Otherwise update the scale with the value
+     * of the variable.
+     */
+
+    if (scalePtr->flags & SETTING_VAR) {
+	return (char *) NULL;
+    }
+    result = NULL;
+    stringValue = Tcl_GetVar(interp, scalePtr->varName, TCL_GLOBAL_ONLY);
+    if (stringValue != NULL) {
+	value = strtod(stringValue, &end);
+	if ((end == stringValue) || (*end != 0)) {
+	    result = "can't assign non-numeric value to scale variable";
+	} else {
+	    scalePtr->value = RoundToResolution(scalePtr, value);
+	}
+
+	/*
+	 * This code is a bit tricky because it sets the scale's value before
+	 * calling SetScaleValue.  This way, SetScaleValue won't bother to
+	 * set the variable again or to invoke the -command.  However, it
+	 * also won't redisplay the scale, so we have to ask for that
+	 * explicitly.
+	 */
+
+	SetScaleValue(scalePtr, scalePtr->value, 1, 0);
+	EventuallyRedrawScale(scalePtr, REDRAW_SLIDER);
+    }
+
+    return result;
+}
diff --git a/Tk/generic/tkScrollbar.c b/Tk/generic/tkScrollbar.c
new file mode 100644
index 0000000..2f0d97c
--- /dev/null
+++ b/Tk/generic/tkScrollbar.c
@@ -0,0 +1,1254 @@
+/* 
+ * tkScrollbar.c --
+ *
+ *	This module implements a scrollbar widgets for the Tk
+ *	toolkit.  A scrollbar displays a slider and two arrows;
+ *	mouse clicks on features within the scrollbar cause
+ *	scrolling commands to be invoked.
+ *
+ * Copyright (c) 1990-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkScrollbar.c 1.79 96/02/15 18:52:40
+ */
+
+#include "tkPort.h"
+#include "default.h"
+#include "tkInt.h"
+
+/*
+ * A data structure of the following type is kept for each scrollbar
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the scrollbar.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display containing widget.  Used, among
+				 * other things, so that resources can be
+				 * freed even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with scrollbar. */
+    Tcl_Command widgetCmd;	/* Token for scrollbar's widget command. */
+    Tk_Uid orientUid;		/* Orientation for window ("vertical" or
+				 * "horizontal"). */
+    int vertical;		/* Non-zero means vertical orientation
+				 * requested, zero means horizontal. */
+    int width;			/* Desired narrow dimension of scrollbar,
+				 * in pixels. */
+    char *command;		/* Command prefix to use when invoking
+				 * scrolling commands.  NULL means don't
+				 * invoke commands.  Malloc'ed. */
+    int commandSize;		/* Number of non-NULL bytes in command. */
+    int repeatDelay;		/* How long to wait before auto-repeating
+				 * on scrolling actions (in ms). */
+    int repeatInterval;		/* Interval between autorepeats (in ms). */
+    int jump;			/* Value of -jump option. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    int borderWidth;		/* Width of 3-D borders. */
+    Tk_3DBorder bgBorder;	/* Used for drawing background (all flat
+				 * surfaces except for trough). */
+    Tk_3DBorder activeBorder;	/* For drawing backgrounds when active (i.e.
+				 * when mouse is positioned over element). */
+    XColor *troughColorPtr;	/* Color for drawing trough. */
+    GC troughGC;		/* For drawing trough. */
+    GC copyGC;			/* Used for copying from pixmap onto screen. */
+    int relief;			/* Indicates whether window as a whole is
+				 * raised, sunken, or flat. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    int inset;			/* Total width of all borders, including
+				 * traversal highlight and 3-D border.
+				 * Indicates how much interior stuff must
+				 * be offset from outside edges to leave
+				 * room for borders. */
+    int elementBorderWidth;	/* Width of border to draw around elements
+				 * inside scrollbar (arrows and slider).
+				 * -1 means use borderWidth. */
+    int arrowLength;		/* Length of arrows along long dimension of
+				 * scrollbar, including space for a small gap
+				 * between the arrow and the slider.
+				 * Recomputed on window size changes. */
+    int sliderFirst;		/* Pixel coordinate of top or left edge
+				 * of slider area, including border. */
+    int sliderLast;		/* Coordinate of pixel just after bottom
+				 * or right edge of slider area, including
+				 * border. */
+    int activeField;		/* Names field to be displayed in active
+				 * colors, such as TOP_ARROW, or 0 for
+				 * no field. */
+    int activeRelief;		/* Value of -activeRelief option: relief
+				 * to use for active element. */
+
+    /*
+     * Information describing the application related to the scrollbar.
+     * This information is provided by the application by invoking the
+     * "set" widget command.  This information can now be provided in
+     * two ways:  the "old" form (totalUnits, windowUnits, firstUnit,
+     * and lastUnit), or the "new" form (firstFraction and lastFraction).
+     * FirstFraction and lastFraction will always be valid, but
+     * the old-style information is only valid if the NEW_STYLE_COMMANDS
+     * flag is 0.
+     */
+
+    int totalUnits;		/* Total dimension of application, in
+				 * units.  Valid only if the NEW_STYLE_COMMANDS
+				 * flag isn't set. */
+    int windowUnits;		/* Maximum number of units that can be
+				 * displayed in the window at once.  Valid
+				 * only if the NEW_STYLE_COMMANDS flag isn't
+				 * set. */
+    int firstUnit;		/* Number of last unit visible in
+				 * application's window.  Valid only if the
+				 * NEW_STYLE_COMMANDS flag isn't set. */
+    int lastUnit;		/* Index of last unit visible in window.
+				 * Valid only if the NEW_STYLE_COMMANDS
+				 * flag isn't set. */
+    double firstFraction;	/* Position of first visible thing in window,
+				 * specified as a fraction between 0 and
+				 * 1.0. */
+    double lastFraction;	/* Position of last visible thing in window,
+				 * specified as a fraction between 0 and
+				 * 1.0. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    char *takeFocus;		/* Value of -takefocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    int flags;			/* Various flags;  see below for
+				 * definitions. */
+} Scrollbar;
+
+/*
+ * Legal values for "activeField" field of Scrollbar structures.  These
+ * are also the return values from the ScrollbarPosition procedure.
+ */
+
+#define OUTSIDE		0
+#define TOP_ARROW	1
+#define TOP_GAP		2
+#define SLIDER		3
+#define BOTTOM_GAP	4
+#define BOTTOM_ARROW	5
+
+/*
+ * Flag bits for scrollbars:
+ * 
+ * REDRAW_PENDING:		Non-zero means a DoWhenIdle handler
+ *				has already been queued to redraw
+ *				this window.
+ * NEW_STYLE_COMMANDS:		Non-zero means the new style of commands
+ *				should be used to communicate with the
+ *				widget:  ".t yview scroll 2 lines", instead
+ *				of ".t yview 40", for example.
+ * GOT_FOCUS:			Non-zero means this window has the input
+ *				focus.
+ */
+
+#define REDRAW_PENDING		1
+#define NEW_STYLE_COMMANDS	2
+#define GOT_FOCUS		4
+
+/*
+ * Minimum slider length, in pixels (designed to make sure that the slider
+ * is always easy to grab with the mouse).
+ */
+
+#define MIN_SLIDER_LENGTH	5
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_SCROLLBAR_ACTIVE_BG_COLOR, Tk_Offset(Scrollbar, activeBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-activebackground", "activeBackground", "Foreground",
+	DEF_SCROLLBAR_ACTIVE_BG_MONO, Tk_Offset(Scrollbar, activeBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_RELIEF, "-activerelief", "activeRelief", "Relief",
+	DEF_SCROLLBAR_ACTIVE_RELIEF, Tk_Offset(Scrollbar, activeRelief), 0},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_SCROLLBAR_BG_COLOR, Tk_Offset(Scrollbar, bgBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_SCROLLBAR_BG_MONO, Tk_Offset(Scrollbar, bgBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_SCROLLBAR_BORDER_WIDTH, Tk_Offset(Scrollbar, borderWidth), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-command", "command", "Command",
+#else
+    {TK_CONFIG_STRING, "-command", "command", "Command",
+#endif
+	DEF_SCROLLBAR_COMMAND, Tk_Offset(Scrollbar, command),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_SCROLLBAR_CURSOR, Tk_Offset(Scrollbar, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_PIXELS, "-elementborderwidth", "elementBorderWidth",
+	"BorderWidth", DEF_SCROLLBAR_EL_BORDER_WIDTH,
+	Tk_Offset(Scrollbar, elementBorderWidth), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_SCROLLBAR_HIGHLIGHT_BG,
+	Tk_Offset(Scrollbar, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_SCROLLBAR_HIGHLIGHT,
+	Tk_Offset(Scrollbar, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_SCROLLBAR_HIGHLIGHT_WIDTH, Tk_Offset(Scrollbar, highlightWidth), 0},
+    {TK_CONFIG_BOOLEAN, "-jump", "jump", "Jump",
+	DEF_SCROLLBAR_JUMP, Tk_Offset(Scrollbar, jump), 0},
+    {TK_CONFIG_UID, "-orient", "orient", "Orient",
+	DEF_SCROLLBAR_ORIENT, Tk_Offset(Scrollbar, orientUid), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_SCROLLBAR_RELIEF, Tk_Offset(Scrollbar, relief), 0},
+    {TK_CONFIG_INT, "-repeatdelay", "repeatDelay", "RepeatDelay",
+	DEF_SCROLLBAR_REPEAT_DELAY, Tk_Offset(Scrollbar, repeatDelay), 0},
+    {TK_CONFIG_INT, "-repeatinterval", "repeatInterval", "RepeatInterval",
+	DEF_SCROLLBAR_REPEAT_INTERVAL, Tk_Offset(Scrollbar, repeatInterval), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_SCROLLBAR_TAKE_FOCUS, Tk_Offset(Scrollbar, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-troughcolor", "troughColor", "Background",
+	DEF_SCROLLBAR_TROUGH_COLOR, Tk_Offset(Scrollbar, troughColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-troughcolor", "troughColor", "Background",
+	DEF_SCROLLBAR_TROUGH_MONO, Tk_Offset(Scrollbar, troughColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_PIXELS, "-width", "width", "Width",
+	DEF_SCROLLBAR_WIDTH, Tk_Offset(Scrollbar, width), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ComputeScrollbarGeometry _ANSI_ARGS_((
+			    Scrollbar *scrollPtr));
+static int		ConfigureScrollbar _ANSI_ARGS_((Tcl_Interp *interp,
+			    Scrollbar *scrollPtr, int argc, char **argv,
+			    int flags));
+static void		DestroyScrollbar _ANSI_ARGS_((char *memPtr));
+static void		DisplayScrollbar _ANSI_ARGS_((ClientData clientData));
+static void		EventuallyRedraw _ANSI_ARGS_((Scrollbar *scrollPtr));
+static void		ScrollbarCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		ScrollbarEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		ScrollbarPosition _ANSI_ARGS_((Scrollbar *scrollPtr,
+			    int x, int y));
+static int		ScrollbarWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *, int argc, char **argv));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_ScrollbarCmd --
+ *
+ *	This procedure is invoked to process the "scrollbar" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_ScrollbarCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    register Scrollbar *scrollPtr;
+    Tk_Window new;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Initialize fields that won't be initialized by ConfigureScrollbar,
+     * or which ConfigureScrollbar expects to have reasonable values
+     * (e.g. resource pointers).
+     */
+
+    scrollPtr = (Scrollbar *) ckalloc(sizeof(Scrollbar));
+    scrollPtr->tkwin = new;
+    scrollPtr->display = Tk_Display(new);
+    scrollPtr->interp = interp;
+    scrollPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(scrollPtr->tkwin), ScrollbarWidgetCmd,
+	    (ClientData) scrollPtr, ScrollbarCmdDeletedProc);
+    scrollPtr->orientUid = NULL;
+    scrollPtr->vertical = 0;
+    scrollPtr->width = 0;
+    scrollPtr->command = NULL;
+    scrollPtr->commandSize = 0;
+    scrollPtr->repeatDelay = 0;
+    scrollPtr->repeatInterval = 0;
+    scrollPtr->borderWidth = 0;
+    scrollPtr->bgBorder = NULL;
+    scrollPtr->activeBorder = NULL;
+    scrollPtr->troughColorPtr = NULL;
+    scrollPtr->troughGC = None;
+    scrollPtr->copyGC = None;
+    scrollPtr->relief = TK_RELIEF_FLAT;
+    scrollPtr->highlightWidth = 0;
+    scrollPtr->highlightBgColorPtr = NULL;
+    scrollPtr->highlightColorPtr = NULL;
+    scrollPtr->inset = 0;
+    scrollPtr->elementBorderWidth = -1;
+    scrollPtr->arrowLength = 0;
+    scrollPtr->sliderFirst = 0;
+    scrollPtr->sliderLast = 0;
+    scrollPtr->activeField = 0;
+    scrollPtr->activeRelief = TK_RELIEF_RAISED;
+    scrollPtr->totalUnits = 0;
+    scrollPtr->windowUnits = 0;
+    scrollPtr->firstUnit = 0;
+    scrollPtr->lastUnit = 0;
+    scrollPtr->firstFraction = 0.0;
+    scrollPtr->lastFraction = 0.0;
+    scrollPtr->cursor = None;
+    scrollPtr->takeFocus = NULL;
+    scrollPtr->flags = 0;
+
+    Tk_SetClass(scrollPtr->tkwin, "Scrollbar");
+    Tk_CreateEventHandler(scrollPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    ScrollbarEventProc, (ClientData) scrollPtr);
+    if (ConfigureScrollbar(interp, scrollPtr, argc-2, argv+2, 0) != TCL_OK) {
+	goto error;
+    }
+
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(scrollPtr->tkwin));
+#else
+    interp->result = Tk_PathName(scrollPtr->tkwin);
+#endif
+    return TCL_OK;
+
+    error:
+    Tk_DestroyWindow(scrollPtr->tkwin);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScrollbarWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ScrollbarWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about scrollbar
+					 * widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    register Scrollbar *scrollPtr = (Scrollbar *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) scrollPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'a') && (strncmp(argv[1], "activate", length) == 0)) {
+	if (argc == 2) {
+	    switch (scrollPtr->activeField) {
+#ifdef STk_CODE
+		case TOP_ARROW:		interp->result = "\"arrow1\"";	break;
+		case SLIDER:		interp->result = "\"slider\"";	break;
+		case BOTTOM_ARROW:	interp->result = "\"arrow2\"";	break;
+	        default:		interp->result = "#f";
+#else
+		case TOP_ARROW:		interp->result = "arrow1";	break;
+		case SLIDER:		interp->result = "slider";	break;
+		case BOTTOM_ARROW:	interp->result = "arrow2";	break;
+#endif
+	    }
+	    goto done;
+	}
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " activate element\"", (char *) NULL);
+	    goto error;
+	}
+	c = argv[2][0];
+	length = strlen(argv[2]);
+	if ((c == 'a') && (strcmp(argv[2], "arrow1") == 0)) {
+	    scrollPtr->activeField = TOP_ARROW;
+	} else if ((c == 'a') && (strcmp(argv[2], "arrow2") == 0)) {
+	    scrollPtr->activeField = BOTTOM_ARROW;
+	} else if ((c == 's') && (strncmp(argv[2], "slider", length) == 0)) {
+	    scrollPtr->activeField = SLIDER;
+	} else {
+	    scrollPtr->activeField = OUTSIDE;
+	}
+	EventuallyRedraw(scrollPtr);
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, scrollPtr->tkwin, configSpecs,
+		(char *) scrollPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, scrollPtr->tkwin, configSpecs,
+		    (char *) scrollPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, scrollPtr->tkwin, configSpecs,
+		    (char *) scrollPtr, argv[2], 0);
+	} else {
+	    result = ConfigureScrollbar(interp, scrollPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delta", length) == 0)) {
+	int xDelta, yDelta, pixels, length;
+	double fraction;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " delta xDelta yDelta\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &xDelta) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &yDelta) != TCL_OK)) {
+	    goto error;
+	}
+	if (scrollPtr->vertical) {
+	    pixels = yDelta;
+	    length = Tk_Height(scrollPtr->tkwin) - 1
+		    - 2*(scrollPtr->arrowLength + scrollPtr->inset);
+	} else {
+	    pixels = xDelta;
+	    length = Tk_Width(scrollPtr->tkwin) - 1
+		    - 2*(scrollPtr->arrowLength + scrollPtr->inset);
+	}
+	if (length == 0) {
+	    fraction = 0.0;
+	} else {
+	    fraction = ((double) pixels / (double) length);
+	}
+	sprintf(interp->result, "%g", fraction);
+    } else if ((c == 'f') && (strncmp(argv[1], "fraction", length) == 0)) {
+	int x, y, pos, length;
+	double fraction;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " fraction x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+	    goto error;
+	}
+	if (scrollPtr->vertical) {
+	    pos = y - (scrollPtr->arrowLength + scrollPtr->inset);
+	    length = Tk_Height(scrollPtr->tkwin) - 1
+		    - 2*(scrollPtr->arrowLength + scrollPtr->inset);
+	} else {
+	    pos = x - (scrollPtr->arrowLength + scrollPtr->inset);
+	    length = Tk_Width(scrollPtr->tkwin) - 1
+		    - 2*(scrollPtr->arrowLength + scrollPtr->inset);
+	}
+	if (length == 0) {
+	    fraction = 0.0;
+	} else {
+	    fraction = ((double) pos / (double) length);
+	}
+	if (fraction < 0) {
+	    fraction = 0;
+	} else if (fraction > 1.0) {
+	    fraction = 1.0;
+	}
+	sprintf(interp->result, "%g", fraction);
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	if (argc != 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get\"", (char *) NULL);
+	    goto error;
+	}
+	if (scrollPtr->flags & NEW_STYLE_COMMANDS) {
+	    char first[TCL_DOUBLE_SPACE], last[TCL_DOUBLE_SPACE];
+
+	    Tcl_PrintDouble(interp, scrollPtr->firstFraction, first);
+	    Tcl_PrintDouble(interp, scrollPtr->lastFraction, last);
+	    Tcl_AppendResult(interp, first, " ", last, (char *) NULL);
+	} else {
+	    sprintf(interp->result, "%d %d %d %d", scrollPtr->totalUnits,
+		    scrollPtr->windowUnits, scrollPtr->firstUnit,
+		    scrollPtr->lastUnit);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "identify", length) == 0)) {
+	int x, y, thing;
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " identify x y\"", (char *) NULL);
+	    goto error;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)) {
+	    goto error;
+	}
+	thing = ScrollbarPosition(scrollPtr, x,y);
+#ifdef STk_CODE
+	switch (thing) {
+	    case TOP_ARROW:	interp->result = "\"arrow1\"";	break;
+	    case TOP_GAP:	interp->result = "\"trough1\"";	break;
+	    case SLIDER:	interp->result = "\"slider\"";	break;
+	    case BOTTOM_GAP:	interp->result = "\"trough2\"";	break;
+	    case BOTTOM_ARROW:	interp->result = "\"arrow2\"";	break;
+	    default:		interp->result = "#f";
+	}
+#else
+	switch (thing) {
+	    case TOP_ARROW:	interp->result = "arrow1";	break;
+	    case TOP_GAP:	interp->result = "trough1";	break;
+	    case SLIDER:	interp->result = "slider";	break;
+	    case BOTTOM_GAP:	interp->result = "trough2";	break;
+	    case BOTTOM_ARROW:	interp->result = "arrow2";	break;
+	}
+#endif
+    } else if ((c == 's') && (strncmp(argv[1], "set", length) == 0)) {
+	int totalUnits, windowUnits, firstUnit, lastUnit;
+
+	if (argc == 4) {
+	    double first, last;
+
+	    if (Tcl_GetDouble(interp, argv[2], &first) != TCL_OK) {
+		goto error;
+	    }
+	    if (Tcl_GetDouble(interp, argv[3], &last) != TCL_OK) {
+		goto error;
+	    }
+	    if (first < 0) {
+		scrollPtr->firstFraction = 0;
+	    } else if (first > 1.0) {
+		scrollPtr->firstFraction = 1.0;
+	    } else {
+		scrollPtr->firstFraction = first;
+	    }
+	    if (last < scrollPtr->firstFraction) {
+		scrollPtr->lastFraction = scrollPtr->firstFraction;
+	    } else if (last > 1.0) {
+		scrollPtr->lastFraction = 1.0;
+	    } else {
+		scrollPtr->lastFraction = last;
+	    }
+	    scrollPtr->flags |= NEW_STYLE_COMMANDS;
+	} else if (argc == 6) {
+	    if (Tcl_GetInt(interp, argv[2], &totalUnits) != TCL_OK) {
+		goto error;
+	    }
+	    if (totalUnits < 0) {
+		totalUnits = 0;
+	    }
+	    if (Tcl_GetInt(interp, argv[3], &windowUnits) != TCL_OK) {
+		goto error;
+	    }
+	    if (windowUnits < 0) {
+		windowUnits = 0;
+	    }
+	    if (Tcl_GetInt(interp, argv[4], &firstUnit) != TCL_OK) {
+		goto error;
+	    }
+	    if (Tcl_GetInt(interp, argv[5], &lastUnit) != TCL_OK) {
+		goto error;
+	    }
+	    if (totalUnits > 0) {
+		if (lastUnit < firstUnit) {
+		    lastUnit = firstUnit;
+		}
+	    } else {
+		firstUnit = lastUnit = 0;
+	    }
+	    scrollPtr->totalUnits = totalUnits;
+	    scrollPtr->windowUnits = windowUnits;
+	    scrollPtr->firstUnit = firstUnit;
+	    scrollPtr->lastUnit = lastUnit;
+	    if (scrollPtr->totalUnits == 0) {
+		scrollPtr->firstFraction = 0.0;
+		scrollPtr->lastFraction = 1.0;
+	    } else {
+		scrollPtr->firstFraction = ((double) firstUnit)/totalUnits;
+		scrollPtr->lastFraction = ((double) (lastUnit+1))/totalUnits;
+	    }
+	    scrollPtr->flags &= ~NEW_STYLE_COMMANDS;
+	} else {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " set firstFraction lastFraction\" or \"",
+		    argv[0],
+		    " set totalUnits windowUnits firstUnit lastUnit\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	ComputeScrollbarGeometry(scrollPtr);
+	EventuallyRedraw(scrollPtr);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be activate, cget, configure, delta, fraction, ",
+		"get, identify, or set", (char *) NULL);
+	goto error;
+    }
+    done:
+    Tcl_Release((ClientData) scrollPtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) scrollPtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyScrollbar --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a scrollbar at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the scrollbar is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyScrollbar(memPtr)
+    char *memPtr;	/* Info about scrollbar widget. */
+{
+    register Scrollbar *scrollPtr = (Scrollbar *) memPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.
+     */
+
+    if (scrollPtr->troughGC != None) {
+	Tk_FreeGC(scrollPtr->display, scrollPtr->troughGC);
+    }
+    if (scrollPtr->copyGC != None) {
+	Tk_FreeGC(scrollPtr->display, scrollPtr->copyGC);
+    }
+    Tk_FreeOptions(configSpecs, (char *) scrollPtr, scrollPtr->display, 0);
+    ckfree((char *) scrollPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureScrollbar --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a scrollbar widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for scrollPtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureScrollbar(interp, scrollPtr, argc, argv, flags)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    register Scrollbar *scrollPtr;	/* Information about widget;  may or
+					 * may not already have values for
+					 * some fields. */
+    int argc;				/* Number of valid entries in argv. */
+    char **argv;			/* Arguments. */
+    int flags;				/* Flags to pass to
+					 * Tk_ConfigureWidget. */
+{
+    size_t length;
+    XGCValues gcValues;
+    GC new;
+
+    if (Tk_ConfigureWidget(interp, scrollPtr->tkwin, configSpecs,
+	    argc, argv, (char *) scrollPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few options need special processing, such as parsing the
+     * orientation or setting the background from a 3-D border.
+     */
+
+    length = strlen(scrollPtr->orientUid);
+    if (strncmp(scrollPtr->orientUid, "vertical", length) == 0) {
+	scrollPtr->vertical = 1;
+    } else if (strncmp(scrollPtr->orientUid, "horizontal", length) == 0) {
+	scrollPtr->vertical = 0;
+    } else {
+	Tcl_AppendResult(interp, "bad orientation \"", scrollPtr->orientUid,
+		"\": must be vertical or horizontal", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    if (scrollPtr->command != NULL) {
+	scrollPtr->commandSize = strlen(scrollPtr->command);
+    } else {
+	scrollPtr->commandSize = 0;
+    }
+
+    Tk_SetBackgroundFromBorder(scrollPtr->tkwin, scrollPtr->bgBorder);
+
+    gcValues.foreground = scrollPtr->troughColorPtr->pixel;
+    new = Tk_GetGC(scrollPtr->tkwin, GCForeground, &gcValues);
+    if (scrollPtr->troughGC != None) {
+	Tk_FreeGC(scrollPtr->display, scrollPtr->troughGC);
+    }
+    scrollPtr->troughGC = new;
+    if (scrollPtr->copyGC == None) {
+	gcValues.graphics_exposures = False;
+	scrollPtr->copyGC = Tk_GetGC(scrollPtr->tkwin, GCGraphicsExposures,
+	    &gcValues);
+    }
+
+    /*
+     * Register the desired geometry for the window (leave enough space
+     * for the two arrows plus a minimum-size slider, plus border around
+     * the whole window, if any).  Then arrange for the window to be
+     * redisplayed.
+     */
+
+    ComputeScrollbarGeometry(scrollPtr);
+    EventuallyRedraw(scrollPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayScrollbar --
+ *
+ *	This procedure redraws the contents of a scrollbar window.
+ *	It is invoked as a do-when-idle handler, so it only runs
+ *	when there's nothing else for the application to do.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayScrollbar(clientData)
+    ClientData clientData;	/* Information about window. */
+{
+    register Scrollbar *scrollPtr = (Scrollbar *) clientData;
+    register Tk_Window tkwin = scrollPtr->tkwin;
+    XPoint points[7];
+    Tk_3DBorder border;
+    int relief, width, elementBorderWidth;
+    Pixmap pixmap;
+
+    if ((scrollPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
+	goto done;
+    }
+
+    if (scrollPtr->vertical) {
+	width = Tk_Width(tkwin) - 2*scrollPtr->inset;
+    } else {
+	width = Tk_Height(tkwin) - 2*scrollPtr->inset;
+    }
+    elementBorderWidth = scrollPtr->elementBorderWidth;
+    if (elementBorderWidth < 0) {
+	elementBorderWidth = scrollPtr->borderWidth;
+    }
+
+    /*
+     * In order to avoid screen flashes, this procedure redraws
+     * the scrollbar in a pixmap, then copies the pixmap to the
+     * screen in a single operation.  This means that there's no
+     * point in time where the on-sreen image has been cleared.
+     */
+
+    pixmap = Tk_GetPixmap(scrollPtr->display, Tk_WindowId(tkwin),
+	    Tk_Width(tkwin), Tk_Height(tkwin), Tk_Depth(tkwin));
+
+    if (scrollPtr->highlightWidth != 0) {
+	GC gc;
+
+	if (scrollPtr->flags & GOT_FOCUS) {
+	    gc = Tk_GCForColor(scrollPtr->highlightColorPtr, pixmap);
+	} else {
+	    gc = Tk_GCForColor(scrollPtr->highlightBgColorPtr, pixmap);
+	}
+	Tk_DrawFocusHighlight(tkwin, gc, scrollPtr->highlightWidth, pixmap);
+    }
+    Tk_Draw3DRectangle(tkwin, pixmap, scrollPtr->bgBorder,
+	    scrollPtr->highlightWidth, scrollPtr->highlightWidth,
+	    Tk_Width(tkwin) - 2*scrollPtr->highlightWidth,
+	    Tk_Height(tkwin) - 2*scrollPtr->highlightWidth,
+	    scrollPtr->borderWidth, scrollPtr->relief);
+    XFillRectangle(scrollPtr->display, pixmap, scrollPtr->troughGC,
+	    scrollPtr->inset, scrollPtr->inset,
+	    (unsigned) (Tk_Width(tkwin) - 2*scrollPtr->inset),
+	    (unsigned) (Tk_Height(tkwin) - 2*scrollPtr->inset));
+
+    /*
+     * Draw the top or left arrow.  The coordinates of the polygon
+     * points probably seem odd, but they were carefully chosen with
+     * respect to X's rules for filling polygons.  These point choices
+     * cause the arrows to just fill the narrow dimension of the
+     * scrollbar and be properly centered.
+     */
+
+    if (scrollPtr->activeField == TOP_ARROW) {
+	border = scrollPtr->activeBorder;
+	relief = scrollPtr->activeField == TOP_ARROW ? scrollPtr->activeRelief
+		: TK_RELIEF_RAISED;
+    } else {
+	border = scrollPtr->bgBorder;
+	relief = TK_RELIEF_RAISED;
+    }
+    if (scrollPtr->vertical) {
+	points[0].x = scrollPtr->inset - 1;
+	points[0].y = scrollPtr->arrowLength + scrollPtr->inset - 1;
+	points[1].x = width + scrollPtr->inset;
+	points[1].y = points[0].y;
+	points[2].x = width/2 + scrollPtr->inset;
+	points[2].y = scrollPtr->inset - 1;
+	Tk_Fill3DPolygon(tkwin, pixmap, border, points, 3,
+		elementBorderWidth, relief);
+    } else {
+	points[0].x = scrollPtr->arrowLength + scrollPtr->inset - 1;
+	points[0].y = scrollPtr->inset - 1;
+	points[1].x = scrollPtr->inset;
+	points[1].y = width/2 + scrollPtr->inset;
+	points[2].x = points[0].x;
+	points[2].y = width + scrollPtr->inset;
+	Tk_Fill3DPolygon(tkwin, pixmap, border, points, 3,
+		elementBorderWidth, relief);
+    }
+
+    /*
+     * Display the bottom or right arrow.
+     */
+
+    if (scrollPtr->activeField == BOTTOM_ARROW) {
+	border = scrollPtr->activeBorder;
+	relief = scrollPtr->activeField == BOTTOM_ARROW
+		? scrollPtr->activeRelief : TK_RELIEF_RAISED;
+    } else {
+	border = scrollPtr->bgBorder;
+	relief = TK_RELIEF_RAISED;
+    }
+    if (scrollPtr->vertical) {
+	points[0].x = scrollPtr->inset;
+	points[0].y = Tk_Height(tkwin) - scrollPtr->arrowLength
+		- scrollPtr->inset + 1;
+	points[1].x = width/2 + scrollPtr->inset;
+	points[1].y = Tk_Height(tkwin) - scrollPtr->inset;
+	points[2].x = width + scrollPtr->inset;
+	points[2].y = points[0].y;
+	Tk_Fill3DPolygon(tkwin, pixmap, border,
+		points, 3, elementBorderWidth, relief);
+    } else {
+	points[0].x = Tk_Width(tkwin) - scrollPtr->arrowLength
+		- scrollPtr->inset + 1;
+	points[0].y = scrollPtr->inset - 1;
+	points[1].x = points[0].x;
+	points[1].y = width + scrollPtr->inset;
+	points[2].x = Tk_Width(tkwin) - scrollPtr->inset;
+	points[2].y = width/2 + scrollPtr->inset;
+	Tk_Fill3DPolygon(tkwin, pixmap, border,
+		points, 3, elementBorderWidth, relief);
+    }
+
+    /*
+     * Display the slider.
+     */
+
+    if (scrollPtr->activeField == SLIDER) {
+	border = scrollPtr->activeBorder;
+	relief = scrollPtr->activeField == SLIDER ? scrollPtr->activeRelief
+		: TK_RELIEF_RAISED;
+    } else {
+	border = scrollPtr->bgBorder;
+	relief = TK_RELIEF_RAISED;
+    }
+    if (scrollPtr->vertical) {
+	Tk_Fill3DRectangle(tkwin, pixmap, border,
+		scrollPtr->inset, scrollPtr->sliderFirst,
+		width, scrollPtr->sliderLast - scrollPtr->sliderFirst,
+		elementBorderWidth, relief);
+    } else {
+	Tk_Fill3DRectangle(tkwin, pixmap, border,
+		scrollPtr->sliderFirst, scrollPtr->inset,
+		scrollPtr->sliderLast - scrollPtr->sliderFirst, width,
+		elementBorderWidth, relief);
+    }
+
+    /*
+     * Copy the information from the off-screen pixmap onto the screen,
+     * then delete the pixmap.
+     */
+
+    XCopyArea(scrollPtr->display, pixmap, Tk_WindowId(tkwin),
+	    scrollPtr->copyGC, 0, 0, (unsigned) Tk_Width(tkwin),
+	    (unsigned) Tk_Height(tkwin), 0, 0);
+    Tk_FreePixmap(scrollPtr->display, pixmap);
+
+    done:
+    scrollPtr->flags &= ~REDRAW_PENDING;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScrollbarEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on scrollbars.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ScrollbarEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Scrollbar *scrollPtr = (Scrollbar *) clientData;
+
+    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
+	EventuallyRedraw(scrollPtr);
+    } else if (eventPtr->type == DestroyNotify) {
+	if (scrollPtr->tkwin != NULL) {
+	    scrollPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(scrollPtr->interp,
+		    Tcl_GetCommandName(scrollPtr->interp,
+		    scrollPtr->widgetCmd));
+	}
+	if (scrollPtr->flags & REDRAW_PENDING) {
+	    Tcl_CancelIdleCall(DisplayScrollbar, (ClientData) scrollPtr);
+	}
+	Tcl_EventuallyFree((ClientData) scrollPtr, DestroyScrollbar);
+    } else if (eventPtr->type == ConfigureNotify) {
+	ComputeScrollbarGeometry(scrollPtr);
+	EventuallyRedraw(scrollPtr);
+    } else if (eventPtr->type == FocusIn) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    scrollPtr->flags |= GOT_FOCUS;
+	    if (scrollPtr->highlightWidth > 0) {
+		EventuallyRedraw(scrollPtr);
+	    }
+	}
+    } else if (eventPtr->type == FocusOut) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    scrollPtr->flags &= ~GOT_FOCUS;
+	    if (scrollPtr->highlightWidth > 0) {
+		EventuallyRedraw(scrollPtr);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScrollbarCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ScrollbarCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Scrollbar *scrollPtr = (Scrollbar *) clientData;
+    Tk_Window tkwin = scrollPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	scrollPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeScrollbarGeometry --
+ *
+ *	After changes in a scrollbar's size or configuration, this
+ *	procedure recomputes various geometry information used in
+ *	displaying the scrollbar.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The scrollbar will be displayed differently.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ComputeScrollbarGeometry(scrollPtr)
+    register Scrollbar *scrollPtr;	/* Scrollbar whose geometry may
+					 * have changed. */
+{
+    int width, fieldLength;
+
+    if (scrollPtr->highlightWidth < 0) {
+	scrollPtr->highlightWidth = 0;
+    }
+    scrollPtr->inset = scrollPtr->highlightWidth + scrollPtr->borderWidth;
+    width = (scrollPtr->vertical) ? Tk_Width(scrollPtr->tkwin)
+	    : Tk_Height(scrollPtr->tkwin);
+    scrollPtr->arrowLength = width - 2*scrollPtr->inset + 1;
+    fieldLength = (scrollPtr->vertical ? Tk_Height(scrollPtr->tkwin)
+	    : Tk_Width(scrollPtr->tkwin))
+	    - 2*(scrollPtr->arrowLength + scrollPtr->inset);
+    if (fieldLength < 0) {
+	fieldLength = 0;
+    }
+    scrollPtr->sliderFirst = fieldLength*scrollPtr->firstFraction;
+    scrollPtr->sliderLast = fieldLength*scrollPtr->lastFraction;
+
+    /*
+     * Adjust the slider so that some piece of it is always
+     * displayed in the scrollbar and so that it has at least
+     * a minimal width (so it can be grabbed with the mouse).
+     */
+
+    if (scrollPtr->sliderFirst > (fieldLength - 2*scrollPtr->borderWidth)) {
+	scrollPtr->sliderFirst = fieldLength - 2*scrollPtr->borderWidth;
+    }
+    if (scrollPtr->sliderFirst < 0) {
+	scrollPtr->sliderFirst = 0;
+    }
+    if (scrollPtr->sliderLast < (scrollPtr->sliderFirst
+	    + MIN_SLIDER_LENGTH)) {
+	scrollPtr->sliderLast = scrollPtr->sliderFirst + MIN_SLIDER_LENGTH;
+    }
+    if (scrollPtr->sliderLast > fieldLength) {
+	scrollPtr->sliderLast = fieldLength;
+    }
+    scrollPtr->sliderFirst += scrollPtr->arrowLength + scrollPtr->inset;
+    scrollPtr->sliderLast += scrollPtr->arrowLength + scrollPtr->inset;
+
+    /*
+     * Register the desired geometry for the window (leave enough space
+     * for the two arrows plus a minimum-size slider, plus border around
+     * the whole window, if any).  Then arrange for the window to be
+     * redisplayed.
+     */
+
+    if (scrollPtr->vertical) {
+	Tk_GeometryRequest(scrollPtr->tkwin,
+		scrollPtr->width + 2*scrollPtr->inset,
+		2*(scrollPtr->arrowLength + scrollPtr->borderWidth
+		+ scrollPtr->inset));
+    } else {
+	Tk_GeometryRequest(scrollPtr->tkwin,
+		2*(scrollPtr->arrowLength + scrollPtr->borderWidth
+		+ scrollPtr->inset), scrollPtr->width + 2*scrollPtr->inset);
+    }
+    Tk_SetInternalBorder(scrollPtr->tkwin, scrollPtr->inset);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ScrollbarPosition --
+ *
+ *	Determine the scrollbar element corresponding to a
+ *	given position.
+ *
+ * Results:
+ *	One of TOP_ARROW, TOP_GAP, etc., indicating which element
+ *	of the scrollbar covers the position given by (x, y).  If
+ *	(x,y) is outside the scrollbar entirely, then OUTSIDE is
+ *	returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ScrollbarPosition(scrollPtr, x, y)
+    register Scrollbar *scrollPtr;	/* Scrollbar widget record. */
+    int x, y;				/* Coordinates within scrollPtr's
+					 * window. */
+{
+    int length, width, tmp;
+
+    if (scrollPtr->vertical) {
+	length = Tk_Height(scrollPtr->tkwin);
+	width = Tk_Width(scrollPtr->tkwin);
+    } else {
+	tmp = x;
+	x = y;
+	y = tmp;
+	length = Tk_Width(scrollPtr->tkwin);
+	width = Tk_Height(scrollPtr->tkwin);
+    }
+
+    if ((x < scrollPtr->inset) || (x >= (width - scrollPtr->inset))
+	    || (y < scrollPtr->inset) || (y >= (length - scrollPtr->inset))) {
+	return OUTSIDE;
+    }
+
+    /*
+     * All of the calculations in this procedure mirror those in
+     * DisplayScrollbar.  Be sure to keep the two consistent.
+     */
+
+    if (y < (scrollPtr->inset + scrollPtr->arrowLength)) {
+	return TOP_ARROW;
+    }
+    if (y < scrollPtr->sliderFirst) {
+	return TOP_GAP;
+    }
+    if (y < scrollPtr->sliderLast) {
+	return SLIDER;
+    }
+    if (y >= (length - (scrollPtr->arrowLength + scrollPtr->inset))) {
+	return BOTTOM_ARROW;
+    }
+    return BOTTOM_GAP;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EventuallyRedraw --
+ *
+ *	Arrange for one or more of the fields of a scrollbar
+ *	to be redrawn.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EventuallyRedraw(scrollPtr)
+    register Scrollbar *scrollPtr;	/* Information about widget. */
+{
+    if ((scrollPtr->tkwin == NULL) || (!Tk_IsMapped(scrollPtr->tkwin))) {
+	return;
+    }
+    if ((scrollPtr->flags & REDRAW_PENDING) == 0) {
+	Tcl_DoWhenIdle(DisplayScrollbar, (ClientData) scrollPtr);
+	scrollPtr->flags |= REDRAW_PENDING;
+    }
+}
diff --git a/Tk/generic/tkSelect.c b/Tk/generic/tkSelect.c
new file mode 100644
index 0000000..6e2c585
--- /dev/null
+++ b/Tk/generic/tkSelect.c
@@ -0,0 +1,1397 @@
+/* 
+ * tkSelect.c --
+ *
+ *	This file manages the selection for the Tk toolkit,
+ *	translating between the standard X ICCCM conventions
+ *	and Tcl commands.
+ *
+ * Copyright (c) 1990-1993 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkSelect.c 1.56 96/03/21 13:16:29
+ */
+
+#include "tkInt.h"
+#include "tkSelect.h"
+
+/*
+ * When a selection handler is set up by invoking "selection handle",
+ * one of the following data structures is set up to hold information
+ * about the command to invoke and its interpreter.
+ */
+
+typedef struct {
+    Tcl_Interp *interp;		/* Interpreter in which to invoke command. */
+    int cmdLength;		/* # of non-NULL bytes in command. */
+    char command[4];		/* Command to invoke.  Actual space is
+				 * allocated as large as necessary.  This
+				 * must be the last entry in the structure. */
+} CommandInfo;
+
+/*
+ * When selection ownership is claimed with the "selection own" Tcl command,
+ * one of the following structures is created to record the Tcl command
+ * to be executed when the selection is lost again.
+ */
+
+typedef struct LostCommand {
+    Tcl_Interp *interp;		/* Interpreter in which to invoke command. */
+    char command[4];		/* Command to invoke.  Actual space is
+				 * allocated as large as necessary.  This
+				 * must be the last entry in the structure. */
+} LostCommand;
+
+/*
+ * Shared variables:
+ */
+
+TkSelInProgress *pendingPtr = NULL;
+				/* Topmost search in progress, or
+				 * NULL if none. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static int		HandleTclCommand _ANSI_ARGS_((ClientData clientData,
+			    int offset, char *buffer, int maxBytes));
+static void		LostSelection _ANSI_ARGS_((ClientData clientData));
+static int		SelGetProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, char *portion));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateSelHandler --
+ *
+ *	This procedure is called to register a procedure
+ *	as the handler for selection requests of a particular
+ *	target type on a particular window for a particular
+ *	selection.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	In the future, whenever the selection is in tkwin's
+ *	window and someone requests the selection in the
+ *	form given by target, proc will be invoked to provide
+ *	part or all of the selection in the given form.  If
+ *	there was already a handler declared for the given
+ *	window, target and selection type, then it is replaced.
+ *	Proc should have the following form:
+ *
+ *	int
+ *	proc(clientData, offset, buffer, maxBytes)
+ *	    ClientData clientData;
+ *	    int offset;
+ *	    char *buffer;
+ *	    int maxBytes;
+ *	{
+ *	}
+ *
+ *	The clientData argument to proc will be the same as
+ *	the clientData argument to this procedure.  The offset
+ *	argument indicates which portion of the selection to
+ *	return:  skip the first offset bytes.  Buffer is a
+ *	pointer to an area in which to place the converted
+ *	selection, and maxBytes gives the number of bytes
+ *	available at buffer.  Proc should place the selection
+ *	in buffer as a string, and return a count of the number
+ *	of bytes of selection actually placed in buffer (not
+ *	including the terminating NULL character).  If the
+ *	return value equals maxBytes, this is a sign that there
+ *	is probably still more selection information available.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_CreateSelHandler(tkwin, selection, target, proc, clientData, format)
+    Tk_Window tkwin;		/* Token for window. */
+    Atom selection;		/* Selection to be handled. */
+    Atom target;		/* The kind of selection conversions
+				 * that can be handled by proc,
+				 * e.g. TARGETS or STRING. */
+    Tk_SelectionProc *proc;	/* Procedure to invoke to convert
+				 * selection to type "target". */
+    ClientData clientData;	/* Value to pass to proc. */
+    Atom format;		/* Format in which the selection
+				 * information should be returned to
+				 * the requestor. XA_STRING is best by
+				 * far, but anything listed in the ICCCM
+				 * will be tolerated (blech). */
+{
+    register TkSelHandler *selPtr;
+    TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if (winPtr->dispPtr->multipleAtom == None) {
+	TkSelInit(tkwin);
+    }
+
+    /*
+     * See if there's already a handler for this target and selection on
+     * this window.  If so, re-use it.  If not, create a new one.
+     */
+
+    for (selPtr = winPtr->selHandlerList; ; selPtr = selPtr->nextPtr) {
+	if (selPtr == NULL) {
+	    selPtr = (TkSelHandler *) ckalloc(sizeof(TkSelHandler));
+	    selPtr->nextPtr = winPtr->selHandlerList;
+	    winPtr->selHandlerList = selPtr;
+	    break;
+	}
+	if ((selPtr->selection == selection) && (selPtr->target == target)) {
+
+	    /*
+	     * Special case:  when replacing handler created by
+	     * "selection handle", free up memory.  Should there be a
+	     * callback to allow other clients to do this too?
+	     */
+
+	    if (selPtr->proc == HandleTclCommand) {
+		ckfree((char *) selPtr->clientData);
+	    }
+	    break;
+	}
+    }
+    selPtr->selection = selection;
+    selPtr->target = target;
+    selPtr->format = format;
+    selPtr->proc = proc;
+    selPtr->clientData = clientData;
+    if (format == XA_STRING) {
+	selPtr->size = 8;
+    } else {
+	selPtr->size = 32;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DeleteSelHandler --
+ *
+ *	Remove the selection handler for a given window, target, and
+ *	selection, if it exists.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The selection handler for tkwin and target is removed.  If there
+ *	is no such handler then nothing happens.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_DeleteSelHandler(tkwin, selection, target)
+    Tk_Window tkwin;			/* Token for window. */
+    Atom selection;			/* The selection whose handler
+					 * is to be removed. */
+    Atom target;			/* The target whose selection
+					 * handler is to be removed. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register TkSelHandler *selPtr, *prevPtr;
+    register TkSelInProgress *ipPtr;
+
+    /*
+     * Find the selection handler to be deleted, or return if it doesn't
+     * exist.
+     */ 
+
+    for (selPtr = winPtr->selHandlerList, prevPtr = NULL; ;
+	    prevPtr = selPtr, selPtr = selPtr->nextPtr) {
+	if (selPtr == NULL) {
+	    return;
+	}
+	if ((selPtr->selection == selection) && (selPtr->target == target)) {
+	    break;
+	}
+    }
+
+    /*
+     * If ConvertSelection is processing this handler, tell it that the
+     * handler is dead.
+     */
+
+    for (ipPtr = pendingPtr; ipPtr != NULL; ipPtr = ipPtr->nextPtr) {
+	if (ipPtr->selPtr == selPtr) {
+	    ipPtr->selPtr = NULL;
+	}
+    }
+
+    /*
+     * Free resources associated with the handler.
+     */
+
+    if (prevPtr == NULL) {
+	winPtr->selHandlerList = selPtr->nextPtr;
+    } else {
+	prevPtr->nextPtr = selPtr->nextPtr;
+    }
+    if (selPtr->proc == HandleTclCommand) {
+	ckfree((char *) selPtr->clientData);
+    }
+    ckfree((char *) selPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_OwnSelection --
+ *
+ *	Arrange for tkwin to become the owner of a selection.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, requests for the selection will be directed
+ *	to procedures associated with tkwin (they must have been
+ *	declared with calls to Tk_CreateSelHandler).  When the
+ *	selection is lost by this window, proc will be invoked
+ *	(see the manual entry for details).  This procedure may
+ *	invoke callbacks, including Tcl scripts, so any calling
+ *	function should be reentrant at the point where
+ *	Tk_OwnSelection is invoked.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_OwnSelection(tkwin, selection, proc, clientData)
+    Tk_Window tkwin;		/* Window to become new selection
+				 * owner. */
+    Atom selection;		/* Selection that window should own. */
+    Tk_LostSelProc *proc;	/* Procedure to call when selection
+				 * is taken away from tkwin. */
+    ClientData clientData;	/* Arbitrary one-word argument to
+				 * pass to proc. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkSelectionInfo *infoPtr;
+    Tk_LostSelProc *clearProc = NULL;
+    ClientData clearData = NULL;	/* Initialization needed only to
+					 * prevent compiler warning. */
+    
+    
+    if (dispPtr->multipleAtom == None) {
+	TkSelInit(tkwin);
+    }
+    Tk_MakeWindowExist(tkwin);
+
+    /*
+     * This code is somewhat tricky.  First, we find the specified selection
+     * on the selection list.  If the previous owner is in this process, and
+     * is a different window, then we need to invoke the clearProc.  However,
+     * it's dangerous to call the clearProc right now, because it could
+     * invoke a Tcl script that wrecks the current state (e.g. it could
+     * delete the window).  To be safe, defer the call until the end of the
+     * procedure when we no longer care about the state.
+     */
+
+    for (infoPtr = dispPtr->selectionInfoPtr; infoPtr != NULL;
+	    infoPtr = infoPtr->nextPtr) {
+	if (infoPtr->selection == selection) {
+	    break;
+	}
+    }
+    if (infoPtr == NULL) {
+	infoPtr = (TkSelectionInfo*) ckalloc(sizeof(TkSelectionInfo));
+	infoPtr->selection = selection;
+	infoPtr->nextPtr = dispPtr->selectionInfoPtr;
+	dispPtr->selectionInfoPtr = infoPtr;
+    } else if (infoPtr->clearProc != NULL) {
+	if (infoPtr->owner != tkwin) {
+	    clearProc = infoPtr->clearProc;
+	    clearData = infoPtr->clearData;
+	} else if (infoPtr->clearProc == LostSelection) {
+	    /*
+	     * If the selection handler is one created by "selection own",
+	     * be sure to free the record for it;  otherwise there will be
+	     * a memory leak.
+	     */
+
+	    ckfree((char *) infoPtr->clearData);
+	}
+    }
+
+    infoPtr->owner = tkwin;
+    infoPtr->serial = NextRequest(winPtr->display);
+    infoPtr->clearProc = proc;
+    infoPtr->clearData = clientData;
+
+    /*
+     * Note that we are using CurrentTime, even though ICCCM recommends against
+     * this practice (the problem is that we don't necessarily have a valid
+     * time to use).  We will not be able to retrieve a useful timestamp for
+     * the TIMESTAMP target later.
+     */
+
+    infoPtr->time = CurrentTime;
+
+    /*
+     * Note that we are not checking to see if the selection claim succeeded.
+     * If the ownership does not change, then the clearProc may never be
+     * invoked, and we will return incorrect information when queried for the
+     * current selection owner.
+     */
+
+    XSetSelectionOwner(winPtr->display, infoPtr->selection, winPtr->window,
+	    infoPtr->time);
+
+    /*
+     * Now that we are done, we can invoke clearProc without running into
+     * reentrancy problems.
+     */
+
+    if (clearProc != NULL) {
+	(*clearProc)(clearData);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_ClearSelection --
+ *
+ *	Eliminate the specified selection on tkwin's display, if there is one.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The specified selection is cleared, so that future requests to retrieve
+ *	it will fail until some application owns it again.  This procedure
+ *	invokes callbacks, possibly including Tcl scripts, so any calling
+ *	function should be reentrant at the point Tk_ClearSelection is invoked.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_ClearSelection(tkwin, selection)
+    Tk_Window tkwin;		/* Window that selects a display. */
+    Atom selection;		/* Selection to be cancelled. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkSelectionInfo *infoPtr;
+    TkSelectionInfo *prevPtr;
+    TkSelectionInfo *nextPtr;
+    Tk_LostSelProc *clearProc = NULL;
+    ClientData clearData = NULL;	/* Initialization needed only to
+					 * prevent compiler warning. */
+
+    if (dispPtr->multipleAtom == None) {
+	TkSelInit(tkwin);
+    }
+
+    for (infoPtr = dispPtr->selectionInfoPtr, prevPtr = NULL;
+	     infoPtr != NULL; infoPtr = nextPtr) {
+	nextPtr = infoPtr->nextPtr;
+	if (infoPtr->selection == selection) {
+	    if (prevPtr == NULL) {
+		dispPtr->selectionInfoPtr = nextPtr;
+	    } else {
+		prevPtr->nextPtr = nextPtr;
+	    }
+	    break;
+	}
+	prevPtr = infoPtr;
+    }
+    
+    if (infoPtr != NULL) {
+	clearProc = infoPtr->clearProc;
+	clearData = infoPtr->clearData;
+	ckfree((char *) infoPtr);
+    }
+    XSetSelectionOwner(winPtr->display, selection, None, CurrentTime);
+
+    if (clearProc != NULL) {
+	(*clearProc)(clearData);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_GetSelection --
+ *
+ *	Retrieve the value of a selection and pass it off (in
+ *	pieces, possibly) to a given procedure.
+ *
+ * Results:
+ *	The return value is a standard Tcl return value.
+ *	If an error occurs (such as no selection exists)
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	The standard X11 protocols are used to retrieve the
+ *	selection.  When it arrives, it is passed to proc.  If
+ *	the selection is very large, it will be passed to proc
+ *	in several pieces.  Proc should have the following
+ *	structure:
+ *
+ *	int
+ *	proc(clientData, interp, portion)
+ *	    ClientData clientData;
+ *	    Tcl_Interp *interp;
+ *	    char *portion;
+ *	{
+ *	}
+ *
+ *	The interp and clientData arguments to proc will be the
+ *	same as the corresponding arguments to Tk_GetSelection.
+ *	The portion argument points to a character string
+ *	containing part of the selection, and numBytes indicates
+ *	the length of the portion, not including the terminating
+ *	NULL character.  If the selection arrives in several pieces,
+ *	the "portion" arguments in separate calls will contain
+ *	successive parts of the selection.  Proc should normally
+ *	return TCL_OK.  If it detects an error then it should return
+ *	TCL_ERROR and leave an error message in interp->result; the
+ *	remainder of the selection retrieval will be aborted.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_GetSelection(interp, tkwin, selection, target, proc, clientData)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting
+				 * errors. */
+    Tk_Window tkwin;		/* Window on whose behalf to retrieve
+				 * the selection (determines display
+				 * from which to retrieve). */
+    Atom selection;		/* Selection to retrieve. */
+    Atom target;		/* Desired form in which selection
+				 * is to be returned. */
+    Tk_GetSelProc *proc;	/* Procedure to call to process the
+				 * selection, once it has been retrieved. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkSelectionInfo *infoPtr;
+
+    if (dispPtr->multipleAtom == None) {
+	TkSelInit(tkwin);
+    }
+
+    /*
+     * If the selection is owned by a window managed by this
+     * process, then call the retrieval procedure directly,
+     * rather than going through the X server (it's dangerous
+     * to go through the X server in this case because it could
+     * result in deadlock if an INCR-style selection results).
+     */
+
+    for (infoPtr = dispPtr->selectionInfoPtr; infoPtr != NULL;
+	    infoPtr = infoPtr->nextPtr) {
+	if (infoPtr->selection == selection)
+	    break;
+    }
+    if (infoPtr != NULL) {
+	register TkSelHandler *selPtr;
+	int offset, result, count;
+	char buffer[TK_SEL_BYTES_AT_ONCE+1];
+	TkSelInProgress ip;
+
+	for (selPtr = ((TkWindow *) infoPtr->owner)->selHandlerList;
+		selPtr != NULL; selPtr = selPtr->nextPtr) {
+	    if ((selPtr->target == target)
+		    && (selPtr->selection == selection)) {
+		break;
+	    }
+	}
+	if (selPtr == NULL) {
+	    Atom type;
+
+	    count = TkSelDefaultSelection(infoPtr, target, buffer,
+		    TK_SEL_BYTES_AT_ONCE, &type);
+	    if (count > TK_SEL_BYTES_AT_ONCE) {
+		panic("selection handler returned too many bytes");
+	    }
+	    if (count < 0) {
+		goto cantget;
+	    }
+	    buffer[count] = 0;
+	    result = (*proc)(clientData, interp, buffer);
+	} else {
+	    offset = 0;
+	    result = TCL_OK;
+	    ip.selPtr = selPtr;
+	    ip.nextPtr = pendingPtr;
+	    pendingPtr = &ip;
+	    while (1) {
+		count = (selPtr->proc)(selPtr->clientData, offset, buffer,
+			TK_SEL_BYTES_AT_ONCE);
+		if ((count < 0) || (ip.selPtr == NULL)) {
+		    pendingPtr = ip.nextPtr;
+		    goto cantget;
+		}
+		if (count > TK_SEL_BYTES_AT_ONCE) {
+		    panic("selection handler returned too many bytes");
+		}
+		buffer[count] = '\0';
+		result = (*proc)(clientData, interp, buffer);
+		if ((result != TCL_OK) || (count < TK_SEL_BYTES_AT_ONCE)
+			|| (ip.selPtr == NULL)) {
+		    break;
+		}
+		offset += count;
+	    }
+	    pendingPtr = ip.nextPtr;
+	}
+	return result;
+    }
+
+    /*
+     * The selection is owned by some other process.
+     */
+
+    return TkSelGetSelection(interp, tkwin, selection, target, proc,
+	    clientData);
+
+    cantget:
+    Tcl_AppendResult(interp, Tk_GetAtomName(tkwin, selection),
+	" selection doesn't exist or form \"", Tk_GetAtomName(tkwin, target),
+	"\" not defined", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_SelectionCmd --
+ *
+ *	This procedure is invoked to process the "selection" Tcl
+ *	command.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_SelectionCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    char *path = NULL;
+    Atom selection;
+    char *selName = NULL;
+    int c, count;
+    size_t length;
+    char **args;
+
+    if (argc < 2) {
+	sprintf(interp->result,
+		"wrong # args: should be \"%.50s option ?arg arg ...?\"",
+		argv[0]);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "clear", length) == 0)) {
+	for (count = argc-2, args = argv+2; count > 0; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    if (count < 2) {
+		Tcl_AppendResult(interp, "value for \"", *args,
+			"\" missing", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == 'd') && (strncmp(args[0], "-displayof", length) == 0)) {
+		path = args[1];
+	    } else if ((c == 's')
+		    && (strncmp(args[0], "-selection", length) == 0)) {
+		selName = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (count == 1) {
+	    path = args[0];
+	} else if (count > 1) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " clear ?options?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (path != NULL) {
+	    tkwin = Tk_NameToWindow(interp, path, tkwin);
+	}
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (selName != NULL) {
+	    selection = Tk_InternAtom(tkwin, selName);
+	} else {
+	    selection = XA_PRIMARY;
+	}
+	    
+	Tk_ClearSelection(tkwin, selection);
+	return TCL_OK;
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	Atom target;
+	char *targetName = NULL;
+	Tcl_DString selBytes;
+	int result;
+	
+	for (count = argc-2, args = argv+2; count > 0; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    if (count < 2) {
+		Tcl_AppendResult(interp, "value for \"", *args,
+			"\" missing", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == 'd') && (strncmp(args[0], "-displayof", length) == 0)) {
+		path = args[1];
+	    } else if ((c == 's')
+		    && (strncmp(args[0], "-selection", length) == 0)) {
+		selName = args[1];
+	    } else if ((c == 't')
+		    && (strncmp(args[0], "-type", length) == 0)) {
+		targetName = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	if (path != NULL) {
+	    tkwin = Tk_NameToWindow(interp, path, tkwin);
+	}
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (selName != NULL) {
+	    selection = Tk_InternAtom(tkwin, selName);
+	} else {
+	    selection = XA_PRIMARY;
+	}
+	if (count > 1) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " get ?options?\"", (char *) NULL);
+	    return TCL_ERROR;
+	} else if (count == 1) {
+	    target = Tk_InternAtom(tkwin, args[0]);
+	} else if (targetName != NULL) {
+	    target = Tk_InternAtom(tkwin, targetName);
+	} else {
+	    target = XA_STRING;
+	}
+
+	Tcl_DStringInit(&selBytes);
+	result = Tk_GetSelection(interp, tkwin, selection, target, SelGetProc,
+		(ClientData) &selBytes);
+	if (result == TCL_OK) {
+#ifdef STk_CODE
+	    STk_stringify_result(interp, Tcl_DStringValue(&selBytes));
+	    /* DString re-initialization not useful here */
+#else
+	    Tcl_DStringResult(interp, &selBytes);
+#endif
+	} else {
+	    Tcl_DStringFree(&selBytes);
+	}
+	return result;
+    } else if ((c == 'h') && (strncmp(argv[1], "handle", length) == 0)) {
+	Atom target, format;
+	char *targetName = NULL;
+	char *formatName = NULL;
+	register CommandInfo *cmdInfoPtr;
+	int cmdLength;
+	
+	for (count = argc-2, args = argv+2; count > 0; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    if (count < 2) {
+		Tcl_AppendResult(interp, "value for \"", *args,
+			"\" missing", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == 'f') && (strncmp(args[0], "-format", length) == 0)) {
+		formatName = args[1];
+	    } else if ((c == 's')
+		    && (strncmp(args[0], "-selection", length) == 0)) {
+		selName = args[1];
+	    } else if ((c == 't')
+		    && (strncmp(args[0], "-type", length) == 0)) {
+		targetName = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	if ((count < 2) || (count > 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " handle ?options? window command\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tkwin = Tk_NameToWindow(interp, args[0], tkwin);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (selName != NULL) {
+	    selection = Tk_InternAtom(tkwin, selName);
+	} else {
+	    selection = XA_PRIMARY;
+#ifdef STk_CODE
+	    selName = "XA_PRIMARY";
+#endif
+	}
+	    
+	if (count > 2) {
+	    target = Tk_InternAtom(tkwin, args[2]);
+#ifdef STk_CODE
+	    targetName = args[2];
+#endif
+	} else if (targetName != NULL) {
+	    target = Tk_InternAtom(tkwin, targetName);
+	} else {
+	    target = XA_STRING;
+#ifdef STk_CODE
+	    targetName = "XA_STRING";
+#endif
+	}
+	if (count > 3) {
+	    format = Tk_InternAtom(tkwin, args[3]);
+	} else if (formatName != NULL) {
+	    format = Tk_InternAtom(tkwin, formatName);
+	} else {
+	    format = XA_STRING;
+	}
+	cmdLength = strlen(args[1]);
+#ifdef STk_CODE
+	if (cmdLength == 0 || strcmp(args[1], "()") == 0) {
+	    Tk_DeleteSelHandler(tkwin, selection, target);
+	    /* Delete old callback from callback table */
+	    STk_add_callback(args[0], selName, targetName, STk_get_NIL_value());
+#else
+	if (cmdLength == 0) {
+	    Tk_DeleteSelHandler(tkwin, selection, target);
+#endif
+	} else {
+#ifdef STk_CODE
+	  SCM p;
+	  
+	  if (!STk_valid_callback(args[1], &p) || (p == NULL)) {
+	    Tcl_AppendResult(interp, "bad closure specification \"",
+			     args[1], "\"", (char *) NULL);
+	    return TCL_ERROR;
+	  }
+#endif
+	    cmdInfoPtr = (CommandInfo *) ckalloc((unsigned) (
+		    sizeof(CommandInfo) - 3 + cmdLength));
+	    cmdInfoPtr->interp = interp;
+	    cmdInfoPtr->cmdLength = cmdLength;
+	    strcpy(cmdInfoPtr->command, args[1]);
+	    Tk_CreateSelHandler(tkwin, selection, target, HandleTclCommand,
+		    (ClientData) cmdInfoPtr, format);
+#ifdef STk_CODE
+	    STk_add_callback(args[0], selName, targetName, p);
+#endif
+	}
+	return TCL_OK;
+    } else if ((c == 'o') && (strncmp(argv[1], "own", length) == 0)) {
+	register LostCommand *lostPtr;
+	char *script = NULL;
+	int cmdLength;
+#ifdef STk_CODE
+	SCM p;
+#endif
+
+	for (count = argc-2, args = argv+2; count > 0; count -= 2, args += 2) {
+	    if (args[0][0] != '-') {
+		break;
+	    }
+	    if (count < 2) {
+		Tcl_AppendResult(interp, "value for \"", *args,
+			"\" missing", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    c = args[0][1];
+	    length = strlen(args[0]);
+	    if ((c == 'c') && (strncmp(args[0], "-command", length) == 0)) {
+		script = args[1];
+	    } else if ((c == 'd')
+		    && (strncmp(args[0], "-displayof", length) == 0)) {
+		path = args[1];
+	    } else if ((c == 's')
+		    && (strncmp(args[0], "-selection", length) == 0)) {
+		selName = args[1];
+	    } else {
+		Tcl_AppendResult(interp, "unknown option \"", args[0],
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+
+	if (count > 2) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		    " own ?options? ?window?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (selName != NULL) {
+	    selection = Tk_InternAtom(tkwin, selName);
+	} else {
+	    selection = XA_PRIMARY;
+#ifdef STk_CODE
+	    selName = "XA_PRIMARY";
+#endif
+	}
+	if (count == 0) {
+	    TkSelectionInfo *infoPtr;
+	    TkWindow *winPtr;
+	    if (path != NULL) {
+		tkwin = Tk_NameToWindow(interp, path, tkwin);
+	    }
+	    if (tkwin == NULL) {
+		return TCL_ERROR;
+	    }
+	    winPtr = (TkWindow *)tkwin;
+	    for (infoPtr = winPtr->dispPtr->selectionInfoPtr; infoPtr != NULL;
+		    infoPtr = infoPtr->nextPtr) {
+		if (infoPtr->selection == selection)
+		    break;
+	    }
+
+	    /*
+	     * Ignore the internal clipboard window.
+	     */
+
+	    if ((infoPtr != NULL)
+		    && (infoPtr->owner != winPtr->dispPtr->clipWindow)) {
+#ifdef STk_CODE
+		STk_sharp_dot_result(interp, Tk_PathName(infoPtr->owner));
+#else
+		interp->result = Tk_PathName(infoPtr->owner);
+#endif
+	    }
+#ifdef STk_CODE
+	    else interp->result = "#f";
+#endif
+	    return TCL_OK;
+	}
+	tkwin = Tk_NameToWindow(interp, args[0], tkwin);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	if (count == 2) {
+	    script = args[1];
+	}
+	if (script == NULL) {
+	    Tk_OwnSelection(tkwin, selection, (Tk_LostSelProc *) NULL,
+		    (ClientData) NULL);
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	  if (!STk_valid_callback(script, &p) || (p == NULL)) {
+	    Tcl_AppendResult(interp, "bad closure specification \"",
+			     script, "\"", (char *) NULL);
+	    return TCL_ERROR;
+	  }
+#endif
+	cmdLength = strlen(script);
+	lostPtr = (LostCommand *) ckalloc((unsigned) (sizeof(LostCommand)
+		-3 + cmdLength));
+	lostPtr->interp = interp;
+	strcpy(lostPtr->command, script);
+	Tk_OwnSelection(tkwin, selection, LostSelection, (ClientData) lostPtr);
+#ifdef STk_CODE
+	STk_add_callback(args[0], selName, "", p);
+#endif
+	return TCL_OK;
+    } else {
+	sprintf(interp->result,
+		"bad option \"%.50s\": must be clear, get, handle, or own",
+		argv[1]);
+	return TCL_ERROR;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelDeadWindow --
+ *
+ *	This procedure is invoked just before a TkWindow is deleted.
+ *	It performs selection-related cleanup.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees up memory associated with the selection.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelDeadWindow(winPtr)
+    register TkWindow *winPtr;	/* Window that's being deleted. */
+{
+    register TkSelHandler *selPtr;
+    register TkSelInProgress *ipPtr;
+    TkSelectionInfo *infoPtr, *prevPtr, *nextPtr;
+
+    /*
+     * While deleting all the handlers, be careful to check whether
+     * ConvertSelection or TkSelPropProc are about to process one of the
+     * deleted handlers.
+     */
+
+    while (winPtr->selHandlerList != NULL) {
+	selPtr = winPtr->selHandlerList;
+	winPtr->selHandlerList = selPtr->nextPtr;
+	for (ipPtr = pendingPtr; ipPtr != NULL; ipPtr = ipPtr->nextPtr) {
+	    if (ipPtr->selPtr == selPtr) {
+		ipPtr->selPtr = NULL;
+	    }
+	}
+	if (selPtr->proc == HandleTclCommand) {
+	    ckfree((char *) selPtr->clientData);
+	}
+	ckfree((char *) selPtr);
+    }
+
+    /*
+     * Remove selections owned by window being deleted.
+     */
+
+    for (infoPtr = winPtr->dispPtr->selectionInfoPtr, prevPtr = NULL;
+	     infoPtr != NULL; infoPtr = nextPtr) {
+	nextPtr = infoPtr->nextPtr;
+	if (infoPtr->owner == (Tk_Window) winPtr) {
+	    if (infoPtr->clearProc == LostSelection) {
+		ckfree((char *) infoPtr->clearData);
+	    }
+	    ckfree((char *) infoPtr);
+	    infoPtr = prevPtr;
+	    if (prevPtr == NULL) {
+		winPtr->dispPtr->selectionInfoPtr = nextPtr;
+	    } else {
+		prevPtr->nextPtr = nextPtr;
+	    }
+	}
+	prevPtr = infoPtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelInit --
+ *
+ *	Initialize selection-related information for a display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Selection-related information is initialized.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelInit(tkwin)
+    Tk_Window tkwin;		/* Window token (used to find
+				 * display to initialize). */
+{
+    register TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
+
+    /*
+     * Fetch commonly-used atoms.
+     */
+
+    dispPtr->multipleAtom = Tk_InternAtom(tkwin, "MULTIPLE");
+    dispPtr->incrAtom = Tk_InternAtom(tkwin, "INCR");
+    dispPtr->targetsAtom = Tk_InternAtom(tkwin, "TARGETS");
+    dispPtr->timestampAtom = Tk_InternAtom(tkwin, "TIMESTAMP");
+    dispPtr->textAtom = Tk_InternAtom(tkwin, "TEXT");
+    dispPtr->compoundTextAtom = Tk_InternAtom(tkwin, "COMPOUND_TEXT");
+    dispPtr->applicationAtom = Tk_InternAtom(tkwin, "TK_APPLICATION");
+    dispPtr->windowAtom = Tk_InternAtom(tkwin, "TK_WINDOW");
+    dispPtr->clipboardAtom = Tk_InternAtom(tkwin, "CLIPBOARD");
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelClearSelection --
+ *
+ *	This procedure is invoked to process a SelectionClear event.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Invokes the clear procedure for the window which lost the
+ *	selection.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelClearSelection(tkwin, eventPtr)
+    Tk_Window tkwin;		/* Window for which event was targeted. */
+    register XEvent *eventPtr;	/* X SelectionClear event. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    TkSelectionInfo *infoPtr;
+    TkSelectionInfo *prevPtr;
+
+    /*
+     * Invoke clear procedure for window that just lost the selection.  This
+     * code is a bit tricky, because any callbacks due to selection changes
+     * between windows managed by the process have already been made.  Thus,
+     * ignore the event unless it refers to the window that's currently the
+     * selection owner and the event was generated after the server saw the
+     * SetSelectionOwner request.
+     */
+
+    for (infoPtr = dispPtr->selectionInfoPtr, prevPtr = NULL;
+	 infoPtr != NULL; infoPtr = infoPtr->nextPtr) {
+	if (infoPtr->selection == eventPtr->xselectionclear.selection) {
+	    break;
+	}
+	prevPtr = infoPtr;
+    }
+
+    if (infoPtr != NULL && (infoPtr->owner == tkwin)
+	    && (eventPtr->xselectionclear.serial >= infoPtr->serial)) {
+	if (prevPtr == NULL) {
+	    dispPtr->selectionInfoPtr = infoPtr->nextPtr;
+	} else {
+	    prevPtr->nextPtr = infoPtr->nextPtr;
+	}
+
+	/*
+	 * Because of reentrancy problems, calling clearProc must be done
+	 * after the infoPtr has been removed from the selectionInfoPtr
+	 * list (clearProc could modify the list, e.g. by creating
+	 * a new selection).
+	 */
+
+	if (infoPtr->clearProc != NULL) {
+	    (*infoPtr->clearProc)(infoPtr->clearData);
+	}
+	ckfree((char *) infoPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SelGetProc --
+ *
+ *	This procedure is invoked to process pieces of the selection
+ *	as they arrive during "selection get" commands.
+ *
+ * Results:
+ *	Always returns TCL_OK.
+ *
+ * Side effects:
+ *	Bytes get appended to the dynamic string pointed to by the
+ *	clientData argument.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+SelGetProc(clientData, interp, portion)
+    ClientData clientData;	/* Dynamic string holding partially
+				 * assembled selection. */
+    Tcl_Interp *interp;		/* Interpreter used for error
+				 * reporting (not used). */
+    char *portion;		/* New information to be appended. */
+{
+    Tcl_DStringAppend((Tcl_DString *) clientData, portion, -1);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * HandleTclCommand --
+ *
+ *	This procedure acts as selection handler for handlers created
+ *	by the "selection handle" command.  It invokes a Tcl command to
+ *	retrieve the selection.
+ *
+ * Results:
+ *	The return value is a count of the number of bytes actually
+ *	stored at buffer, or -1 if an error occurs while executing
+ *	the Tcl command to retrieve the selection.
+ *
+ * Side effects:
+ *	None except for things done by the Tcl command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+HandleTclCommand(clientData, offset, buffer, maxBytes)
+    ClientData clientData;	/* Information about command to execute. */
+    int offset;			/* Return selection bytes starting at this
+				 * offset. */
+    char *buffer;		/* Place to store converted selection. */
+    int maxBytes;		/* Maximum # of bytes to store at buffer. */
+{
+    CommandInfo *cmdInfoPtr = (CommandInfo *) clientData;
+    int spaceNeeded, length;
+#define MAX_STATIC_SIZE 100
+    char staticSpace[MAX_STATIC_SIZE];
+    char *command;
+    Tcl_Interp *interp;
+    Tcl_DString oldResult;
+
+    /*
+     * We must copy the interpreter pointer from CommandInfo because the
+     * command could delete the handler, freeing the CommandInfo data before we
+     * are done using it. We must also protect the interpreter from being
+     * deleted too soo.
+     */
+
+    interp = cmdInfoPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+
+    /*
+     * First, generate a command by taking the command string
+     * and appending the offset and maximum # of bytes.
+     */
+
+    spaceNeeded = cmdInfoPtr->cmdLength + 30;
+    if (spaceNeeded < MAX_STATIC_SIZE) {
+	command = staticSpace;
+    } else {
+	command = (char *) ckalloc((unsigned) spaceNeeded);
+    }
+    sprintf(command, "%s %d %d", cmdInfoPtr->command, offset, maxBytes);
+
+    /*
+     * Execute the command.  Be sure to restore the state of the
+     * interpreter after executing the command.
+     */
+
+    Tcl_DStringInit(&oldResult);
+    Tcl_DStringGetResult(interp, &oldResult);
+    if (TkCopyAndGlobalEval(interp, command) == TCL_OK) {
+	length = strlen(interp->result);
+	if (length > maxBytes) {
+	    length = maxBytes;
+	}
+	memcpy((VOID *) buffer, (VOID *) interp->result, (size_t) length);
+	buffer[length] = '\0';
+    } else {
+	length = -1;
+    }
+    Tcl_DStringResult(interp, &oldResult);
+
+    if (command != staticSpace) {
+	ckfree(command);
+    }
+
+    Tcl_Release((ClientData) interp);
+    return length;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelDefaultSelection --
+ *
+ *	This procedure is called to generate selection information
+ *	for a few standard targets such as TIMESTAMP and TARGETS.
+ *	It is invoked only if no handler has been declared by the
+ *	application.
+ *
+ * Results:
+ *	If "target" is a standard target understood by this procedure,
+ *	the selection is converted to that form and stored as a
+ *	character string in buffer.  The type of the selection (e.g.
+ *	STRING or ATOM) is stored in *typePtr, and the return value is
+ *	a count of the # of non-NULL bytes at buffer.  If the target
+ *	wasn't understood, or if there isn't enough space at buffer
+ *	to hold the entire selection (no INCR-mode transfers for this
+ *	stuff!), then -1 is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkSelDefaultSelection(infoPtr, target, buffer, maxBytes, typePtr)
+    TkSelectionInfo *infoPtr;	/* Info about selection being retrieved. */
+    Atom target;		/* Desired form of selection. */
+    char *buffer;		/* Place to put selection characters. */
+    int maxBytes;		/* Maximum # of bytes to store at buffer. */
+    Atom *typePtr;		/* Store here the type of the selection,
+				 * for use in converting to proper X format. */
+{
+    register TkWindow *winPtr = (TkWindow *) infoPtr->owner;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+
+    if (target == dispPtr->timestampAtom) {
+	if (maxBytes < 20) {
+	    return -1;
+	}
+	sprintf(buffer, "0x%x", (unsigned int) infoPtr->time);
+	*typePtr = XA_INTEGER;
+	return strlen(buffer);
+    }
+
+    if (target == dispPtr->targetsAtom) {
+	register TkSelHandler *selPtr;
+	char *atomString;
+	int length, atomLength;
+
+	if (maxBytes < 50) {
+	    return -1;
+	}
+	strcpy(buffer, "MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW");
+	length = strlen(buffer);
+	for (selPtr = winPtr->selHandlerList; selPtr != NULL;
+		selPtr = selPtr->nextPtr) {
+	    if ((selPtr->selection == infoPtr->selection)
+		    && (selPtr->target != dispPtr->applicationAtom)
+		    && (selPtr->target != dispPtr->windowAtom)) {
+		atomString = Tk_GetAtomName((Tk_Window) winPtr,
+			selPtr->target);
+		atomLength = strlen(atomString) + 1;
+		if ((length + atomLength) >= maxBytes) {
+		    return -1;
+		}
+		sprintf(buffer+length, " %s", atomString);
+		length += atomLength;
+	    }
+	}
+	*typePtr = XA_ATOM;
+	return length;
+    }
+
+    if (target == dispPtr->applicationAtom) {
+	int length;
+	char *name = winPtr->mainPtr->winPtr->nameUid;
+
+	length = strlen(name);
+	if (maxBytes <= length) {
+	    return -1;
+	}
+	strcpy(buffer, name);
+	*typePtr = XA_STRING;
+	return length;
+    }
+
+    if (target == dispPtr->windowAtom) {
+	int length;
+	char *name = winPtr->pathName;
+
+	length = strlen(name);
+	if (maxBytes <= length) {
+	    return -1;
+	}
+	strcpy(buffer, name);
+	*typePtr = XA_STRING;
+	return length;
+    }
+
+    return -1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * LostSelection --
+ *
+ *	This procedure is invoked when a window has lost ownership of
+ *	the selection and the ownership was claimed with the command
+ *	"selection own".
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A Tcl script is executed;  it can do almost anything.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+LostSelection(clientData)
+    ClientData clientData;		/* Pointer to CommandInfo structure. */
+{
+    LostCommand *lostPtr = (LostCommand *) clientData;
+    char *oldResultString;
+    Tcl_FreeProc *oldFreeProc;
+    Tcl_Interp *interp;
+
+    interp = lostPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+    
+    /*
+     * Execute the command.  Save the interpreter's result, if any, and
+     * restore it after executing the command.
+     */
+
+    oldFreeProc = interp->freeProc;
+    if (oldFreeProc != TCL_STATIC) {
+	oldResultString = interp->result;
+    } else {
+	oldResultString = (char *) ckalloc((unsigned)
+		(strlen(interp->result) + 1));
+	strcpy(oldResultString, interp->result);
+	oldFreeProc = TCL_DYNAMIC;
+    }
+    interp->freeProc = TCL_STATIC;
+    if (TkCopyAndGlobalEval(interp, lostPtr->command) != TCL_OK) {
+	Tcl_BackgroundError(interp);
+    }
+    Tcl_FreeResult(interp);
+    interp->result = oldResultString;
+    interp->freeProc = oldFreeProc;
+
+    Tcl_Release((ClientData) interp);
+    
+    /*
+     * Free the storage for the command, since we're done with it now.
+     */
+
+    ckfree((char *) lostPtr);
+}
diff --git a/Tk/generic/tkSelect.h b/Tk/generic/tkSelect.h
new file mode 100644
index 0000000..8595599
--- /dev/null
+++ b/Tk/generic/tkSelect.h
@@ -0,0 +1,184 @@
+/*
+ * tkSelect.h --
+ *
+ *	Declarations of types shared among the files that implement
+ *	selection support.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkSelect.h 1.4 95/11/03 13:22:41
+ */
+
+#ifndef _TKSELECT
+#define _TKSELECT
+
+/*
+ * When a selection is owned by a window on a given display, one of the
+ * following structures is present on a list of current selections in the
+ * display structure.  The structure is used to record the current owner of
+ * a selection for use in later retrieval requests.  There is a list of
+ * such structures because a display can have multiple different selections
+ * active at the same time.
+ */
+
+typedef struct TkSelectionInfo {
+    Atom selection;		/* Selection name, e.g. XA_PRIMARY. */
+    Tk_Window owner;		/* Current owner of this selection. */
+    int serial;			/* Serial number of last XSelectionSetOwner
+				 * request made to server for this
+				 * selection (used to filter out redundant
+				 * SelectionClear events). */
+    Time time;			/* Timestamp used to acquire selection. */
+    Tk_LostSelProc *clearProc;	/* Procedure to call when owner loses
+				 * selection. */
+    ClientData clearData;	/* Info to pass to clearProc. */
+    struct TkSelectionInfo *nextPtr;
+				/* Next in list of current selections on
+                                 * this display.  NULL means end of list */
+} TkSelectionInfo;
+
+/*
+ * One of the following structures exists for each selection handler
+ * created for a window by calling Tk_CreateSelHandler.  The handlers
+ * are linked in a list rooted in the TkWindow structure.
+ */
+
+typedef struct TkSelHandler {
+    Atom selection;		/* Selection name, e.g. XA_PRIMARY */
+    Atom target;		/* Target type for selection
+				 * conversion, such as TARGETS or
+				 * STRING. */
+    Atom format;		/* Format in which selection
+				 * info will be returned, such
+				 * as STRING or ATOM. */
+    Tk_SelectionProc *proc;	/* Procedure to generate selection
+				 * in this format. */
+    ClientData clientData;	/* Argument to pass to proc. */
+    int size;			/* Size of units returned by proc
+				 * (8 for STRING, 32 for almost
+				 * anything else). */
+    struct TkSelHandler *nextPtr;
+				/* Next selection handler associated
+				 * with same window (NULL for end of
+				 * list). */
+} TkSelHandler;
+
+/*
+ * When the selection is being retrieved, one of the following
+ * structures is present on a list of pending selection retrievals.
+ * The structure is used to communicate between the background
+ * procedure that requests the selection and the foreground
+ * event handler that processes the events in which the selection
+ * is returned.  There is a list of such structures so that there
+ * can be multiple simultaneous selection retrievals (e.g. on
+ * different displays).
+ */
+
+typedef struct TkSelRetrievalInfo {
+    Tcl_Interp *interp;		/* Interpreter for error reporting. */
+    TkWindow *winPtr;		/* Window used as requestor for
+				 * selection. */
+    Atom selection;		/* Selection being requested. */
+    Atom property;		/* Property where selection will appear. */
+    Atom target;		/* Desired form for selection. */
+    int (*proc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp,
+	char *portion));	/* Procedure to call to handle pieces
+				 * of selection. */
+    ClientData clientData;	/* Argument for proc. */
+    int result;			/* Initially -1.  Set to a Tcl
+				 * return value once the selection
+				 * has been retrieved. */
+    Tcl_TimerToken timeout;	/* Token for current timeout procedure. */
+    int idleTime;		/* Number of seconds that have gone by
+				 * without hearing anything from the
+				 * selection owner. */
+    struct TkSelRetrievalInfo *nextPtr;
+				/* Next in list of all pending
+				 * selection retrievals.  NULL means
+				 * end of list. */
+} TkSelRetrievalInfo;
+
+/*
+ * The clipboard contains a list of buffers of various types and formats.
+ * All of the buffers of a given type will be returned in sequence when the
+ * CLIPBOARD selection is retrieved.  All buffers of a given type on the
+ * same clipboard must have the same format.  The TkClipboardTarget structure
+ * is used to record the information about a chain of buffers of the same
+ * type.
+ */
+
+typedef struct TkClipboardBuffer {
+    char *buffer;			/* Null terminated data buffer. */
+    long length;			/* Length of string in buffer. */
+    struct TkClipboardBuffer *nextPtr;	/* Next in list of buffers.  NULL
+					 * means end of list . */
+} TkClipboardBuffer;
+
+typedef struct TkClipboardTarget {
+    Atom type;				/* Type conversion supported. */
+    Atom format;			/* Representation used for data. */
+    TkClipboardBuffer *firstBufferPtr;	/* First in list of data buffers. */
+    TkClipboardBuffer *lastBufferPtr;	/* Last in list of clipboard buffers.
+					 * Used to speed up appends. */
+    struct TkClipboardTarget *nextPtr;	/* Next in list of targets on
+					 * clipboard.  NULL means end of
+					 * list. */
+} TkClipboardTarget;
+
+/*
+ * It is possible for a Tk_SelectionProc to delete the handler that it
+ * represents.  If this happens, the code that is retrieving the selection
+ * needs to know about it so it doesn't use the now-defunct handler
+ * structure.  One structure of the following form is created for each
+ * retrieval in progress, so that the retriever can find out if its
+ * handler is deleted.  All of the pending retrievals (if there are more
+ * than one) are linked into a list.
+ */
+
+typedef struct TkSelInProgress {
+    TkSelHandler *selPtr;	/* Handler being executed.  If this handler
+				 * is deleted, the field is set to NULL. */
+    struct TkSelInProgress *nextPtr;
+				/* Next higher nested search. */
+} TkSelInProgress;
+
+/*
+ * Declarations for variables shared among the selection-related files:
+ */
+
+extern TkSelInProgress *pendingPtr;
+				/* Topmost search in progress, or
+				 * NULL if none. */
+
+/*
+ * Chunk size for retrieving selection.  It's defined both in
+ * words and in bytes;  the word size is used to allocate
+ * buffer space that's guaranteed to be word-aligned and that
+ * has an extra character for the terminating NULL.
+ */
+
+#define TK_SEL_BYTES_AT_ONCE 4000
+#define TK_SEL_WORDS_AT_ONCE 1001
+
+/*
+ * Declarations for procedures that are used by the selection-related files
+ * but shouldn't be used anywhere else in Tk (or by Tk clients):
+ */
+
+extern void		TkSelClearSelection _ANSI_ARGS_((Tk_Window tkwin,
+			    XEvent *eventPtr));
+extern int		TkSelDefaultSelection _ANSI_ARGS_((
+			    TkSelectionInfo *infoPtr, Atom target,
+			    char *buffer, int maxBytes, Atom *typePtr));
+extern int		TkSelGetSelection _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, Atom selection, Atom target,
+			    Tk_GetSelProc *proc, ClientData clientData));
+#ifndef TkSelUpdateClipboard
+extern void		TkSelUpdateClipboard _ANSI_ARGS_((TkWindow *winPtr,
+			    TkClipboardTarget *targetPtr));
+#endif
+
+#endif /* _TKSELECT */
diff --git a/Tk/generic/tkSend.c b/Tk/generic/tkSend.c
new file mode 100644
index 0000000..f0acb68
--- /dev/null
+++ b/Tk/generic/tkSend.c
@@ -0,0 +1,1905 @@
+/* 
+ * tkSend.c --
+ *
+ *	This file provides procedures that implement the "send"
+ *	command, allowing commands to be passed from interpreter
+ *	to interpreter.
+ *
+ * Copyright (c) 1989-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkSend.c 1.64 96/07/20 17:38:32
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/* 
+ * The following structure is used to keep track of the interpreters
+ * registered by this process.
+ */
+
+typedef struct RegisteredInterp {
+    char *name;			/* Interpreter's name (malloc-ed). */
+    Tcl_Interp *interp;		/* Interpreter associated with name.  NULL
+				 * means that the application was unregistered
+				 * or deleted while a send was in progress
+				 * to it. */
+    TkDisplay *dispPtr;		/* Display for the application.  Needed
+				 * because we may need to unregister the
+				 * interpreter after its main window has
+				 * been deleted. */
+    struct RegisteredInterp *nextPtr;
+				/* Next in list of names associated
+				 * with interps in this process.
+				 * NULL means end of list. */
+} RegisteredInterp;
+
+static RegisteredInterp *registry = NULL;
+				/* List of all interpreters
+				 * registered by this process. */
+
+/*
+ * A registry of all interpreters for a display is kept in a
+ * property "InterpRegistry" on the root window of the display.
+ * It is organized as a series of zero or more concatenated strings
+ * (in no particular order), each of the form
+ * 	window space name '\0'
+ * where "window" is the hex id of the comm. window to use to talk
+ * to an interpreter named "name".
+ *
+ * When the registry is being manipulated by an application (e.g. to
+ * add or remove an entry), it is loaded into memory using a structure
+ * of the following type:
+ */
+
+typedef struct NameRegistry {
+    TkDisplay *dispPtr;		/* Display from which the registry was
+				 * read. */
+    int locked;			/* Non-zero means that the display was
+				 * locked when the property was read in. */
+    int modified;		/* Non-zero means that the property has
+				 * been modified, so it needs to be written
+				 * out when the NameRegistry is closed. */
+    unsigned long propLength;	/* Length of the property, in bytes. */
+    char *property;		/* The contents of the property, or NULL
+				 * if none.  See format description above;
+				 * this is *not* terminated by the first
+				 * null character.  Dynamically allocated. */
+    int allocedByX;		/* Non-zero means must free property with
+				 * XFree;  zero means use ckfree. */
+} NameRegistry;
+
+/*
+ * When a result is being awaited from a sent command, one of
+ * the following structures is present on a list of all outstanding
+ * sent commands.  The information in the structure is used to
+ * process the result when it arrives.  You're probably wondering
+ * how there could ever be multiple outstanding sent commands.
+ * This could happen if interpreters invoke each other recursively.
+ * It's unlikely, but possible.
+ */
+
+typedef struct PendingCommand {
+    int serial;			/* Serial number expected in
+				 * result. */
+    TkDisplay *dispPtr;		/* Display being used for communication. */
+    char *target;		/* Name of interpreter command is
+				 * being sent to. */
+    Window commWindow;		/* Target's communication window. */
+    Tcl_Interp *interp;		/* Interpreter from which the send
+				 * was invoked. */
+    int code;			/* Tcl return code for command
+				 * will be stored here. */
+    char *result;		/* String result for command (malloc'ed),
+				 * or NULL. */
+    char *errorInfo;		/* Information for "errorInfo" variable,
+				 * or NULL (malloc'ed). */
+    char *errorCode;		/* Information for "errorCode" variable,
+				 * or NULL (malloc'ed). */
+    int gotResponse;		/* 1 means a response has been received,
+				 * 0 means the command is still outstanding. */
+    struct PendingCommand *nextPtr;
+				/* Next in list of all outstanding
+				 * commands.  NULL means end of
+				 * list. */
+} PendingCommand;
+
+static PendingCommand *pendingCommands = NULL;
+				/* List of all commands currently
+				 * being waited for. */
+
+/*
+ * The information below is used for communication between processes
+ * during "send" commands.  Each process keeps a private window, never
+ * even mapped, with one property, "Comm".  When a command is sent to
+ * an interpreter, the command is appended to the comm property of the
+ * communication window associated with the interp's process.  Similarly,
+ * when a result is returned from a sent command, it is also appended
+ * to the comm property.
+ *
+ * Each command and each result takes the form of ASCII text.  For a
+ * command, the text consists of a zero character followed by several
+ * null-terminated ASCII strings.  The first string consists of the
+ * single letter "c".  Subsequent strings have the form "option value"
+ * where the following options are supported:
+ *
+ * -r commWindow serial
+ *
+ *	This option means that a response should be sent to the window
+ *	whose X identifier is "commWindow" (in hex), and the response should
+ *	be identified with the serial number given by "serial" (in decimal).
+ *	If this option isn't specified then the send is asynchronous and
+ *	no response is sent.
+ *
+ * -n name
+ *	"Name" gives the name of the application for which the command is
+ *	intended.  This option must be present.
+ *
+ * -s script
+ *
+ *	"Script" is the script to be executed.  This option must be present.
+ *
+ * The options may appear in any order.  The -n and -s options must be
+ * present, but -r may be omitted for asynchronous RPCs.  For compatibility
+ * with future releases that may add new features, there may be additional
+ * options present;  as long as they start with a "-" character, they will
+ * be ignored.
+ *
+ * A result also consists of a zero character followed by several null-
+ * terminated ASCII strings.  The first string consists of the single
+ * letter "r".  Subsequent strings have the form "option value" where
+ * the following options are supported:
+ *
+ * -s serial
+ *
+ *	Identifies the command for which this is the result.  It is the
+ *	same as the "serial" field from the -s option in the command.  This
+ *	option must be present.
+ *
+ * -c code
+ *
+ *	"Code" is the completion code for the script, in decimal.  If the
+ *	code is omitted it defaults to TCL_OK.
+ *
+ * -r result
+ *
+ *	"Result" is the result string for the script, which may be either
+ *	a result or an error message.  If this field is omitted then it
+ *	defaults to an empty string.
+ *
+ * -i errorInfo
+ *
+ *	"ErrorInfo" gives a string with which to initialize the errorInfo
+ *	variable.  This option may be omitted;  it is ignored unless the
+ *	completion code is TCL_ERROR.
+ *
+ * -e errorCode
+ *
+ *	"ErrorCode" gives a string with with to initialize the errorCode
+ *	variable.  This option may be omitted;  it is ignored  unless the
+ *	completion code is TCL_ERROR.
+ *
+ * Options may appear in any order, and only the -s option must be
+ * present.  As with commands, there may be additional options besides
+ * these;  unknown options are ignored.
+ */
+
+/*
+ * The following variable is the serial number that was used in the
+ * last "send" command.  It is exported only for testing purposes.
+ */
+
+int tkSendSerial = 0;
+
+/*
+ * Maximum size property that can be read at one time by
+ * this module:
+ */
+
+#define MAX_PROP_WORDS 100000
+
+/*
+ * The following variable can be set while debugging to do things like
+ * skip locking the server.
+ */
+
+static int sendDebug = 0;
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		AppendErrorProc _ANSI_ARGS_((ClientData clientData,
+				XErrorEvent *errorPtr));
+static void		AppendPropCarefully _ANSI_ARGS_((Display *display,
+			    Window window, Atom property, char *value,
+			    int length, PendingCommand *pendingPtr));
+static void		DeleteProc _ANSI_ARGS_((ClientData clientData));
+static void		RegAddName _ANSI_ARGS_((NameRegistry *regPtr,
+			    char *name, Window commWindow));
+static void		RegClose _ANSI_ARGS_((NameRegistry *regPtr));
+static void		RegDeleteName _ANSI_ARGS_((NameRegistry *regPtr,
+			    char *name));
+static Window		RegFindName _ANSI_ARGS_((NameRegistry *regPtr,
+			    char *name));
+static NameRegistry *	RegOpen _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkDisplay *dispPtr, int lock));
+static void		SendEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		SendInit _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkDisplay *dispPtr));
+static Tk_RestrictAction SendRestrictProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		ServerSecure _ANSI_ARGS_((TkDisplay *dispPtr));
+static void		TimeoutProc _ANSI_ARGS_((ClientData clientData));
+static void		UpdateCommWindow _ANSI_ARGS_((TkDisplay *dispPtr));
+static int		ValidateName _ANSI_ARGS_((TkDisplay *dispPtr,
+			    char *name, Window commWindow, int oldOK));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RegOpen --
+ *
+ *	This procedure loads the name registry for a display into
+ *	memory so that it can be manipulated.
+ *
+ * Results:
+ *	The return value is a pointer to the loaded registry.
+ *
+ * Side effects:
+ *	If "lock" is set then the server will be locked.  It is the
+ *	caller's responsibility to call RegClose when finished with
+ *	the registry, so that we can write back the registry if
+ *	neeeded, unlock the server if needed, and free memory.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static NameRegistry *
+RegOpen(interp, dispPtr, lock)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting
+				 * (errors cause a panic so in fact no
+				 * error is ever returned, but the interpreter
+				 * is needed anyway). */
+    TkDisplay *dispPtr;		/* Display whose name registry is to be
+				 * opened. */
+    int lock;			/* Non-zero means lock the window server
+				 * when opening the registry, so no-one
+				 * else can use the registry until we
+				 * close it. */
+{
+    NameRegistry *regPtr;
+    int result, actualFormat;
+    unsigned long bytesAfter;
+    Atom actualType;
+
+    if (dispPtr->commTkwin == NULL) {
+	SendInit(interp, dispPtr);
+    }
+
+    regPtr = (NameRegistry *) ckalloc(sizeof(NameRegistry));
+    regPtr->dispPtr = dispPtr;
+    regPtr->locked = 0;
+    regPtr->modified = 0;
+    regPtr->allocedByX = 1;
+
+    if (lock && !sendDebug) {
+	XGrabServer(dispPtr->display);
+	regPtr->locked = 1;
+    }
+
+    /*
+     * Read the registry property.
+     */
+
+    result = XGetWindowProperty(dispPtr->display,
+	    RootWindow(dispPtr->display, 0),
+	    dispPtr->registryProperty, 0, MAX_PROP_WORDS,
+	    False, XA_STRING, &actualType, &actualFormat,
+	    &regPtr->propLength, &bytesAfter,
+	    (unsigned char **) &regPtr->property);
+
+    if (actualType == None) {
+	regPtr->propLength = 0;
+	regPtr->property = NULL;
+    } else if ((result != Success) || (actualFormat != 8)
+	    || (actualType != XA_STRING)) {
+	/*
+	 * The property is improperly formed;  delete it.
+	 */
+
+	if (regPtr->property != NULL) {
+	    XFree(regPtr->property);
+	    regPtr->propLength = 0;
+	    regPtr->property = NULL;
+	}
+	XDeleteProperty(dispPtr->display,
+		RootWindow(dispPtr->display, 0),
+		dispPtr->registryProperty);
+    }
+
+    /*
+     * Xlib placed an extra null byte after the end of the property, just
+     * to make sure that it is always NULL-terminated.  Be sure to include
+     * this byte in our count if it's needed to ensure null termination
+     * (note: as of 8/95 I'm no longer sure why this code is needed;  seems
+     * like it shouldn't be).
+     */
+
+    if ((regPtr->propLength > 0)
+	    && (regPtr->property[regPtr->propLength-1] != 0)) {
+	regPtr->propLength++;
+    }
+    return regPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RegFindName --
+ *
+ *	Given an open name registry, this procedure finds an entry
+ *	with a given name, if there is one, and returns information
+ *	about that entry.
+ *
+ * Results:
+ *	The return value is the X identifier for the comm window for
+ *	the application named "name", or None if there is no such
+ *	entry in the registry.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Window
+RegFindName(regPtr, name)
+    NameRegistry *regPtr;	/* Pointer to a registry opened with a
+				 * previous call to RegOpen. */
+    char *name;			/* Name of an application. */
+{
+    char *p, *entry;
+    Window commWindow;
+
+    commWindow = None;
+    for (p = regPtr->property; (p-regPtr->property) < regPtr->propLength; ) {
+	entry = p;
+	while ((*p != 0) && (!isspace(UCHAR(*p)))) {
+	    p++;
+	}
+	if ((*p != 0) && (strcmp(name, p+1) == 0)) {
+	    if (sscanf(entry, "%x", (unsigned int *) &commWindow) == 1) {
+		return commWindow;
+	    }
+	}
+	while (*p != 0) {
+	    p++;
+	}
+	p++;
+    }
+    return None;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RegDeleteName --
+ *
+ *	This procedure deletes the entry for a given name from
+ *	an open registry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If there used to be an entry named "name" in the registry,
+ *	then it is deleted and the registry is marked as modified
+ *	so it will be written back when closed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RegDeleteName(regPtr, name)
+    NameRegistry *regPtr;	/* Pointer to a registry opened with a
+				 * previous call to RegOpen. */
+    char *name;			/* Name of an application. */
+{
+    char *p, *entry, *entryName;
+    int count;
+
+    for (p = regPtr->property; (p-regPtr->property) < regPtr->propLength; ) {
+	entry = p;
+	while ((*p != 0) && (!isspace(UCHAR(*p)))) {
+	    p++;
+	}
+	if (*p != 0) {
+	    p++;
+	}
+	entryName = p;
+	while (*p != 0) {
+	    p++;
+	}
+	p++;
+	if ((strcmp(name, entryName) == 0)) {
+	    /*
+	     * Found the matching entry.  Copy everything after it
+	     * down on top of it.
+	     */
+
+	    count = regPtr->propLength - (p - regPtr->property);
+	    if (count > 0)  {
+		memmove((VOID *) entry, (VOID *) p, (size_t) count);
+	    }
+	    regPtr->propLength -=  p - entry;
+	    regPtr->modified = 1;
+	    return;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RegAddName --
+ *
+ *	Add a new entry to an open registry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The open registry is expanded;  it is marked as modified so that
+ *	it will be written back when closed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RegAddName(regPtr, name, commWindow)
+    NameRegistry *regPtr;	/* Pointer to a registry opened with a
+				 * previous call to RegOpen. */
+    char *name;			/* Name of an application.  The caller
+				 * must ensure that this name isn't
+				 * already registered. */
+    Window commWindow;		/* X identifier for comm. window of
+				 * application.  */
+{
+    char id[30];
+    char *newProp;
+    int idLength, newBytes;
+
+    sprintf(id, "%x ", (unsigned int) commWindow);
+    idLength = strlen(id);
+    newBytes = idLength + strlen(name) + 1;
+    newProp = (char *) ckalloc((unsigned) (regPtr->propLength + newBytes));
+    strcpy(newProp, id);
+    strcpy(newProp+idLength, name);
+    if (regPtr->property != NULL) {
+	memcpy((VOID *) (newProp + newBytes), (VOID *) regPtr->property,
+		regPtr->propLength);
+	if (regPtr->allocedByX) {
+	    XFree(regPtr->property);
+	} else {
+	    ckfree(regPtr->property);
+	}
+    }
+    regPtr->modified = 1;
+    regPtr->propLength += newBytes;
+    regPtr->property = newProp;
+    regPtr->allocedByX = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RegClose --
+ *
+ *	This procedure is called to end a series of operations on
+ *	a name registry.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The registry is written back if it has been modified, and the
+ *	X server is unlocked if it was locked.  Memory for the
+ *	registry is freed, so the caller should never use regPtr
+ *	again.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RegClose(regPtr)
+    NameRegistry *regPtr;	/* Pointer to a registry opened with a
+				 * previous call to RegOpen. */
+{
+    if (regPtr->modified) {
+	if (!regPtr->locked && !sendDebug) {
+	    panic("The name registry was modified without being locked!");
+	}
+	XChangeProperty(regPtr->dispPtr->display,
+		RootWindow(regPtr->dispPtr->display, 0),
+		regPtr->dispPtr->registryProperty, XA_STRING, 8,
+		PropModeReplace, (unsigned char *) regPtr->property,
+		(int) regPtr->propLength);
+    }
+
+    if (regPtr->locked) {
+	XUngrabServer(regPtr->dispPtr->display);
+    }
+    XFlush(regPtr->dispPtr->display);
+
+    if (regPtr->property != NULL) {
+	if (regPtr->allocedByX) {
+	    XFree(regPtr->property);
+	} else {
+	    ckfree(regPtr->property);
+	}
+    }
+    ckfree((char *) regPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ValidateName --
+ *
+ *	This procedure checks to see if an entry in the registry
+ *	is still valid.
+ *
+ * Results:
+ *	The return value is 1 if the given commWindow exists and its
+ *	name is "name".  Otherwise 0 is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ValidateName(dispPtr, name, commWindow, oldOK)
+    TkDisplay *dispPtr;		/* Display for which to perform the
+				 * validation. */
+    char *name;			/* The name of an application. */
+    Window commWindow;		/* X identifier for the application's
+				 * comm. window. */
+    int oldOK;			/* Non-zero means that we should consider
+				 * an application to be valid even if it
+				 * looks like an old-style (pre-4.0) one;
+				 * 0 means consider these invalid. */
+{
+    int result, actualFormat, argc, i;
+    unsigned long length, bytesAfter;
+    Atom actualType;
+    char *property;
+    Tk_ErrorHandler handler;
+    char **argv;
+
+    property = NULL;
+
+    /*
+     * Ignore X errors when reading the property (e.g., the window
+     * might not exist).  If an error occurs, result will be some
+     * value other than Success.
+     */
+
+    handler = Tk_CreateErrorHandler(dispPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    result = XGetWindowProperty(dispPtr->display, commWindow,
+	    dispPtr->appNameProperty, 0, MAX_PROP_WORDS,
+	    False, XA_STRING, &actualType, &actualFormat,
+	    &length, &bytesAfter, (unsigned char **) &property);
+
+    if ((result == Success) && (actualType == None)) {
+	XWindowAttributes atts;
+
+	/*
+	 * The comm. window exists but the property we're looking for
+	 * doesn't exist.  This probably means that the application
+	 * comes from an older version of Tk (< 4.0) that didn't set the
+	 * property;  if this is the case, then assume for compatibility's
+	 * sake that everything's OK.  However, it's also possible that
+	 * some random application has re-used the window id for something
+	 * totally unrelated.  Check a few characteristics of the window,
+	 * such as its dimensions and mapped state, to be sure that it
+	 * still "smells" like a commWindow.
+	 */
+
+	if (!oldOK
+		|| !XGetWindowAttributes(dispPtr->display, commWindow, &atts)
+		|| (atts.width != 1) || (atts.height != 1)
+		|| (atts.map_state != IsUnmapped)) {
+	    result = 0;
+	} else {
+	    result = 1;
+	}
+    } else if ((result == Success) && (actualFormat == 8)
+	   && (actualType == XA_STRING)) {
+	result = 0;
+	if (Tcl_SplitList((Tcl_Interp *) NULL, property, &argc, &argv)
+		== TCL_OK) {
+	    for (i = 0; i < argc; i++) {
+		if (strcmp(argv[i], name) == 0) {
+		    result = 1;
+		    break;
+		}
+	    }
+	    ckfree((char *) argv);
+	}
+    } else {
+       result = 0;
+    }
+    Tk_DeleteErrorHandler(handler);
+    if (property != NULL) {
+	XFree(property);
+    }
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ServerSecure --
+ *
+ *	Check whether a server is secure enough for us to trust
+ *	Tcl scripts arriving via that server.
+ *
+ * Results:
+ *	The return value is 1 if the server is secure, which means
+ *	that host-style authentication is turned on but there are
+ *	no hosts in the enabled list.  This means that some other
+ *	form of authorization (presumably more secure, such as xauth)
+ *	is in use.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ServerSecure(dispPtr)
+    TkDisplay *dispPtr;		/* Display to check. */
+{
+#ifdef TK_NO_SECURITY
+    return 1;
+#else
+    XHostAddress *addrPtr;
+    int numHosts, secure;
+    Bool enabled;
+
+    secure = 0;
+    addrPtr = XListHosts(dispPtr->display, &numHosts, &enabled);
+    if (enabled && (numHosts == 0)) {
+	secure = 1;
+    }
+    if (addrPtr != NULL) {
+	XFree((char *) addrPtr);
+    }
+    return secure;
+#endif /* TK_NO_SECURITY */
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_SetAppName --
+ *
+ *	This procedure is called to associate an ASCII name with a Tk
+ *	application.  If the application has already been named, the
+ *	name replaces the old one.
+ *
+ * Results:
+ *	The return value is the name actually given to the application.
+ *	This will normally be the same as name, but if name was already
+ *	in use for an application then a name of the form "name #2" will
+ *	be chosen,  with a high enough number to make the name unique.
+ *
+ * Side effects:
+ *	Registration info is saved, thereby allowing the "send" command
+ *	to be used later to invoke commands in the application.  In
+ *	addition, the "send" command is created in the application's
+ *	interpreter.  The registration will be removed automatically
+ *	if the interpreter is deleted or the "send" command is removed.
+ *
+ *--------------------------------------------------------------
+ */
+
+char *
+Tk_SetAppName(tkwin, name)
+    Tk_Window tkwin;		/* Token for any window in the application
+				 * to be named:  it is just used to identify
+				 * the application and the display.  */
+    char *name;			/* The name that will be used to
+				 * refer to the interpreter in later
+				 * "send" commands.  Must be globally
+				 * unique. */
+{
+    RegisteredInterp *riPtr, *riPtr2;
+    Window w;
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr;
+    NameRegistry *regPtr;
+    Tcl_Interp *interp;
+    char *actualName;
+    Tcl_DString dString;
+    int offset, i;
+
+#ifdef __WIN32__
+    return name;
+#endif /* __WIN32__ */
+
+    dispPtr = winPtr->dispPtr;
+    interp = winPtr->mainPtr->interp;
+    if (dispPtr->commTkwin == NULL) {
+	SendInit(interp, winPtr->dispPtr);
+    }
+
+    /*
+     * See if the application is already registered;  if so, remove its
+     * current name from the registry.
+     */
+
+    regPtr = RegOpen(interp, winPtr->dispPtr, 1);
+    for (riPtr = registry; ; riPtr = riPtr->nextPtr) {
+	if (riPtr == NULL) {
+	    /*
+	     * This interpreter isn't currently registered;  create
+	     * the data structure that will be used to register it locally,
+	     * plus add the "send" command to the interpreter.
+	     */
+
+	    riPtr = (RegisteredInterp *) ckalloc(sizeof(RegisteredInterp));
+	    riPtr->interp = interp;
+	    riPtr->dispPtr = winPtr->dispPtr;
+	    riPtr->nextPtr = registry;
+	    registry = riPtr;
+	    Tcl_CreateCommand(interp, "send", Tk_SendCmd, (ClientData) riPtr,
+		    DeleteProc);
+	    break;
+	}
+	if (riPtr->interp == interp) {
+	    /*
+	     * The interpreter is currently registered;  remove it from
+	     * the name registry.
+	     */
+
+	    RegDeleteName(regPtr, riPtr->name);
+	    ckfree(riPtr->name);
+	    break;
+	}
+    }
+
+    /*
+     * Pick a name to use for the application.  Use "name" if it's not
+     * already in use.  Otherwise add a suffix such as " #2", trying
+     * larger and larger numbers until we eventually find one that is
+     * unique.
+     */
+
+    actualName = name;
+    offset = 0;				/* Needed only to avoid "used before
+					 * set" compiler warnings. */
+    for (i = 1; ; i++) {
+	if (i > 1) {
+	    if (i == 2) {
+		Tcl_DStringInit(&dString);
+		Tcl_DStringAppend(&dString, name, -1);
+		Tcl_DStringAppend(&dString, " #", 2);
+		offset = Tcl_DStringLength(&dString);
+		Tcl_DStringSetLength(&dString, offset+10);
+		actualName = Tcl_DStringValue(&dString);
+	    }
+	    sprintf(actualName + offset, "%d", i);
+	}
+	w = RegFindName(regPtr, actualName);
+	if (w == None) {
+	    break;
+	}
+    
+	/*
+	 * The name appears to be in use already, but double-check to
+	 * be sure (perhaps the application died without removing its
+	 * name from the registry?).
+	 */
+
+	if (w == Tk_WindowId(dispPtr->commTkwin)) {
+	    for (riPtr2 = registry; riPtr2 != NULL; riPtr2 = riPtr2->nextPtr) {
+		if ((riPtr2->interp != interp) &&
+			(strcmp(riPtr2->name, actualName) == 0)) {
+		    goto nextSuffix;
+		}
+	    }
+	    RegDeleteName(regPtr, actualName);
+	    break;
+	} else if (!ValidateName(winPtr->dispPtr, actualName, w, 1)) {
+	    RegDeleteName(regPtr, actualName);
+	    break;
+	}
+	nextSuffix:
+	continue;
+    }
+
+    /*
+     * We've now got a name to use.  Store it in the name registry and
+     * in the local entry for this application, plus put it in a property
+     * on the commWindow.
+     */
+
+    RegAddName(regPtr, actualName, Tk_WindowId(dispPtr->commTkwin));
+    RegClose(regPtr);
+    riPtr->name = (char *) ckalloc((unsigned) (strlen(actualName) + 1));
+    strcpy(riPtr->name, actualName);
+    if (actualName != name) {
+	Tcl_DStringFree(&dString);
+    }
+    UpdateCommWindow(dispPtr);
+
+    return riPtr->name;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_SendCmd --
+ *
+ *	This procedure is invoked to process the "send" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_SendCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about sender (only
+					 * dispPtr field is used). */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    TkWindow *winPtr;
+    Window commWindow;
+    PendingCommand pending;
+    register RegisteredInterp *riPtr;
+    char *destName, buffer[30];
+    int result, c, async, i, firstArg;
+    size_t length;
+    Tk_RestrictProc *prevRestrictProc;
+    ClientData prevArg;
+    TkDisplay *dispPtr;
+    NameRegistry *regPtr;
+    Tcl_DString request;
+    Tcl_Interp *localInterp;		/* Used when the interpreter to
+                                         * send the command to is within
+                                         * the same process. */
+
+    /*
+     * Process options, if any.
+     */
+
+    async = 0;
+    winPtr = (TkWindow *) Tk_MainWindow(interp);
+    if (winPtr == NULL) {
+	return TCL_ERROR;
+    }
+    for (i = 1; i < (argc-1); ) {
+	if (argv[i][0] != '-') {
+	    break;
+	}
+	c = argv[i][1];
+	length = strlen(argv[i]);
+	if ((c == 'a') && (strncmp(argv[i], "-async", length) == 0)) {
+	    async = 1;
+	    i++;
+	} else if ((c == 'd') && (strncmp(argv[i], "-displayof",
+		length) == 0)) {
+	    winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[i+1],
+		    (Tk_Window) winPtr);
+	    if (winPtr == NULL) {
+		return TCL_ERROR;
+	    }
+	    i += 2;
+	} else if (strcmp(argv[i], "--") == 0) {
+	    i++;
+	    break;
+	} else {
+	    Tcl_AppendResult(interp, "bad option \"", argv[i],
+#ifdef STk_CODE
+		    "\": must be :async, :displayof, or :-", (char *) NULL);
+#else
+		    "\": must be -async, -displayof, or --", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+    }
+
+    if (argc < (i+2)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" ?options? interpName arg ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    destName = argv[i];
+    firstArg = i+1;
+
+    dispPtr = winPtr->dispPtr;
+    if (dispPtr->commTkwin == NULL) {
+	SendInit(interp, winPtr->dispPtr);
+    }
+
+    /*
+     * See if the target interpreter is local.  If so, execute
+     * the command directly without going through the X server.
+     * The only tricky thing is passing the result from the target
+     * interpreter to the invoking interpreter.  Watch out:  they
+     * could be the same!
+     */
+
+    for (riPtr = registry; riPtr != NULL; riPtr = riPtr->nextPtr) {
+	if ((riPtr->dispPtr != dispPtr)
+		|| (strcmp(riPtr->name, destName) != 0)) {
+	    continue;
+	}
+	Tcl_Preserve((ClientData) riPtr);
+        localInterp = riPtr->interp;
+        Tcl_Preserve((ClientData) localInterp);
+	if (firstArg == (argc-1)) {
+	    result = Tcl_GlobalEval(localInterp, argv[firstArg]);
+	} else {
+	    Tcl_DStringInit(&request);
+	    Tcl_DStringAppend(&request, argv[firstArg], -1);
+	    for (i = firstArg+1; i < argc; i++) {
+		Tcl_DStringAppend(&request, " ", 1);
+		Tcl_DStringAppend(&request, argv[i], -1);
+	    }
+	    result = Tcl_GlobalEval(localInterp, Tcl_DStringValue(&request));
+	    Tcl_DStringFree(&request);
+	}
+	if (interp != localInterp) {
+	    if (result == TCL_ERROR) {
+
+		/*
+		 * An error occurred, so transfer error information from the
+		 * destination interpreter back to our interpreter.  Must clear
+		 * interp's result before calling Tcl_AddErrorInfo, since
+		 * Tcl_AddErrorInfo will store the interp's result in errorInfo
+		 * before appending riPtr's $errorInfo;  we've already got
+		 * everything we need in riPtr's $errorInfo.
+		 */
+
+		Tcl_ResetResult(interp);
+#ifdef STk_CODE
+		Tcl_AddErrorInfo(interp, Tcl_GetVar2(localInterp,
+			"*error-info*", (char *) NULL, TCL_GLOBAL_ONLY));
+		Tcl_SetVar(interp, "*error-code*",
+			   Tcl_GetVar(localInterp, "*error-code*",TCL_GLOBAL_ONLY), 
+			   STk_STRINGIFY | TCL_GLOBAL_ONLY);
+#else
+		Tcl_AddErrorInfo(interp, Tcl_GetVar2(localInterp,
+			"errorInfo", (char *) NULL, TCL_GLOBAL_ONLY));
+		Tcl_SetVar2(interp, "errorCode", (char *) NULL,
+			Tcl_GetVar2(localInterp, "errorCode", (char *) NULL,
+			TCL_GLOBAL_ONLY), TCL_GLOBAL_ONLY);
+#endif
+	    }
+            if (localInterp->freeProc != TCL_STATIC) {
+                interp->result = localInterp->result;
+                interp->freeProc = localInterp->freeProc;
+                localInterp->freeProc = TCL_STATIC;
+            } else {
+                Tcl_SetResult(interp, localInterp->result, TCL_VOLATILE);
+            }
+            Tcl_ResetResult(localInterp);
+	}
+	Tcl_Release((ClientData) riPtr);
+        Tcl_Release((ClientData) localInterp);
+	return result;
+    }
+
+    /*
+     * Bind the interpreter name to a communication window.
+     */
+
+    regPtr = RegOpen(interp, winPtr->dispPtr, 0);
+    commWindow = RegFindName(regPtr, destName);
+    RegClose(regPtr);
+    if (commWindow == None) {
+	Tcl_AppendResult(interp, "no application named \"",
+		destName, "\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Send the command to the target interpreter by appending it to the
+     * comm window in the communication window.
+     */
+
+    tkSendSerial++;
+    Tcl_DStringInit(&request);
+    Tcl_DStringAppend(&request, "\0c\0-n ", 6);
+    Tcl_DStringAppend(&request, destName, -1);
+    if (!async) {
+	sprintf(buffer, "%x %d",
+		(unsigned int) Tk_WindowId(dispPtr->commTkwin),
+		tkSendSerial);
+	Tcl_DStringAppend(&request, "\0-r ", 4);
+	Tcl_DStringAppend(&request, buffer, -1);
+    }
+    Tcl_DStringAppend(&request, "\0-s ", 4);
+    Tcl_DStringAppend(&request, argv[firstArg], -1);
+    for (i = firstArg+1; i < argc; i++) {
+	Tcl_DStringAppend(&request, " ", 1);
+	Tcl_DStringAppend(&request, argv[i], -1);
+    }
+    (void) AppendPropCarefully(dispPtr->display, commWindow,
+	    dispPtr->commProperty, Tcl_DStringValue(&request),
+	    Tcl_DStringLength(&request) + 1,
+	    (async) ? (PendingCommand *) NULL : &pending);
+    Tcl_DStringFree(&request);
+    if (async) {
+	/*
+	 * This is an asynchronous send:  return immediately without
+	 * waiting for a response.
+	 */
+
+	return TCL_OK;
+    }
+
+    /*
+     * Register the fact that we're waiting for a command to complete
+     * (this is needed by SendEventProc and by AppendErrorProc to pass
+     * back the command's results).  Set up a timeout handler so that
+     * we can check during long sends to make sure that the destination
+     * application is still alive.
+     */
+
+    pending.serial = tkSendSerial;
+    pending.dispPtr = dispPtr;
+    pending.target = destName;
+    pending.commWindow = commWindow;
+    pending.interp = interp;
+    pending.result = NULL;
+    pending.errorInfo = NULL;
+    pending.errorCode = NULL;
+    pending.gotResponse = 0;
+    pending.nextPtr = pendingCommands;
+    pendingCommands = &pending;
+
+    /*
+     * Enter a loop processing X events until the result comes
+     * in or the target is declared to be dead.  While waiting
+     * for a result, look only at send-related events so that
+     * the send is synchronous with respect to other events in
+     * the application.
+     */
+
+    prevRestrictProc = Tk_RestrictEvents(SendRestrictProc,
+	    (ClientData) NULL, &prevArg);
+    Tcl_CreateModalTimeout(1000, TimeoutProc, (ClientData) &pending);
+    while (!pending.gotResponse) {
+	Tcl_DoOneEvent(TCL_WINDOW_EVENTS);
+    }
+    Tcl_DeleteModalTimeout(TimeoutProc, (ClientData) &pending);
+    (void) Tk_RestrictEvents(prevRestrictProc, prevArg, &prevArg);
+
+    /*
+     * Unregister the information about the pending command
+     * and return the result.
+     */
+
+    if (pendingCommands == &pending) {
+	pendingCommands = pending.nextPtr;
+    } else {
+	PendingCommand *pcPtr;
+
+	for (pcPtr = pendingCommands; pcPtr != NULL;
+		pcPtr = pcPtr->nextPtr) {
+	    if (pcPtr->nextPtr == &pending) {
+		pcPtr->nextPtr = pending.nextPtr;
+		break;
+	    }
+	}
+    }
+    if (pending.errorInfo != NULL) {
+	/*
+	 * Special trick: must clear the interp's result before calling
+	 * Tcl_AddErrorInfo, since Tcl_AddErrorInfo will store the interp's
+	 * result in errorInfo before appending pending.errorInfo;  we've
+	 * already got everything we need in pending.errorInfo.
+	 */
+
+	Tcl_ResetResult(interp);
+	Tcl_AddErrorInfo(interp, pending.errorInfo);
+	ckfree(pending.errorInfo);
+    }
+    if (pending.errorCode != NULL) {
+#ifdef STk_CODE
+        Tcl_SetVar(interp, "*error-code*", pending.errorCode,
+                  STk_STRINGIFY |
+
+#else
+	Tcl_SetVar2(interp, "errorCode", (char *) NULL, pending.errorCode,
+#endif
+		TCL_GLOBAL_ONLY);
+	ckfree(pending.errorCode);
+    }
+    Tcl_SetResult(interp, pending.result, TCL_DYNAMIC);
+    return pending.code;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetInterpNames --
+ *
+ *	This procedure is invoked to fetch a list of all the
+ *	interpreter names currently registered for the display
+ *	of a particular window.
+ *
+ * Results:
+ *	A standard Tcl return value.  Interp->result will be set
+ *	to hold a list of all the interpreter names defined for
+ *	tkwin's display.  If an error occurs, then TCL_ERROR
+ *	is returned and interp->result will hold an error message.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkGetInterpNames(interp, tkwin)
+    Tcl_Interp *interp;		/* Interpreter for returning a result. */
+    Tk_Window tkwin;		/* Window whose display is to be used
+				 * for the lookup. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    char *p, *entry, *entryName;
+    NameRegistry *regPtr;
+    Window commWindow;
+    int count;
+
+    /*
+     * Read the registry property, then scan through all of its entries.
+     * Validate each entry to be sure that its application still exists.
+     */
+
+    regPtr = RegOpen(interp, winPtr->dispPtr, 1);
+#ifdef STk_CODE
+    Tcl_AppendElement(interp, "(");
+#endif
+    for (p = regPtr->property; (p-regPtr->property) < regPtr->propLength; ) {
+	entry = p;
+	if (sscanf(p,  "%x",(unsigned int *) &commWindow) != 1) {
+	    commWindow =  None;
+	}
+	while ((*p != 0) && (!isspace(UCHAR(*p)))) {
+	    p++;
+	}
+	if (*p != 0) {
+	    p++;
+	}
+	entryName = p;
+	while (*p != 0) {
+	    p++;
+	}
+	p++;
+	if (ValidateName(winPtr->dispPtr, entryName, commWindow, 1)) {
+	    /*
+	     * The application still exists; add its name to the result.
+	     */
+
+#ifdef STk_CODE
+	    Tcl_AppendElement(interp, (char*) STk_stringify(entryName, 0));
+#else
+	    Tcl_AppendElement(interp, entryName);
+#endif
+	} else {
+	    /*
+	     * This name is bogus (perhaps the application died without
+	     * cleaning up its entry in the registry?).  Delete the name.
+	     */
+
+	    count = regPtr->propLength - (p - regPtr->property);
+	    if (count > 0)  {
+		memmove((VOID *) entry, (VOID *) p, (size_t) count);
+	    }
+	    regPtr->propLength -= p - entry;
+	    regPtr->modified = 1;
+	    p = entry;
+	}
+    }
+#ifdef STk_CODE
+    Tcl_AppendElement(interp, ")");
+#endif
+    RegClose(regPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SendInit --
+ *
+ *	This procedure is called to initialize the
+ *	communication channels for sending commands and
+ *	receiving results.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets up various data structures and windows.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+SendInit(interp, dispPtr)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting
+				 * (no errors are ever returned, but the
+				 * interpreter is needed anyway). */
+    TkDisplay *dispPtr;		/* Display to initialize. */
+{
+    XSetWindowAttributes atts;
+
+    /*
+     * Create the window used for communication, and set up an
+     * event handler for it.
+     */
+
+    dispPtr->commTkwin = Tk_CreateWindow(interp, (Tk_Window) NULL,
+	    "_comm", DisplayString(dispPtr->display));
+    if (dispPtr->commTkwin == NULL) {
+	panic("Tk_CreateWindow failed in SendInit!");
+    }
+    atts.override_redirect = True;
+    Tk_ChangeWindowAttributes(dispPtr->commTkwin,
+	    CWOverrideRedirect, &atts);
+    Tk_CreateEventHandler(dispPtr->commTkwin, PropertyChangeMask,
+	    SendEventProc, (ClientData) dispPtr);
+    Tk_MakeWindowExist(dispPtr->commTkwin);
+
+    /*
+     * Get atoms used as property names.
+     */
+
+    dispPtr->commProperty = Tk_InternAtom(dispPtr->commTkwin, "Comm");
+    dispPtr->registryProperty = Tk_InternAtom(dispPtr->commTkwin,
+	    "InterpRegistry");
+    dispPtr->appNameProperty = Tk_InternAtom(dispPtr->commTkwin,
+	    "TK_APPLICATION");
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SendEventProc --
+ *
+ *	This procedure is invoked automatically by the toolkit
+ *	event manager when a property changes on the communication
+ *	window.  This procedure reads the property and handles
+ *	command requests and responses.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If there are command requests in the property, they
+ *	are executed.  If there are responses in the property,
+ *	their information is saved for the (ostensibly waiting)
+ *	"send" commands. The property is deleted.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SendEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Display information. */	
+    XEvent *eventPtr;		/* Information about event. */
+{
+    TkDisplay *dispPtr = (TkDisplay *) clientData;
+    char *propInfo;
+    register char *p;
+    int result, actualFormat;
+    unsigned long numItems, bytesAfter;
+    Atom actualType;
+    Tcl_Interp *remoteInterp;	/* Interp in which to execute the command. */
+
+    if ((eventPtr->xproperty.atom != dispPtr->commProperty)
+	    || (eventPtr->xproperty.state != PropertyNewValue)) {
+	return;
+    }
+
+    /*
+     * Read the comm property and delete it.
+     */
+
+    propInfo = NULL;
+    result = XGetWindowProperty(dispPtr->display,
+	    Tk_WindowId(dispPtr->commTkwin),
+	    dispPtr->commProperty, 0, MAX_PROP_WORDS, True,
+	    XA_STRING, &actualType, &actualFormat,
+	    &numItems, &bytesAfter, (unsigned char **) &propInfo);
+
+    /*
+     * If the property doesn't exist or is improperly formed
+     * then ignore it.
+     */
+
+    if ((result != Success) || (actualType != XA_STRING)
+	    || (actualFormat != 8)) {
+	if (propInfo != NULL) {
+	    XFree(propInfo);
+	}
+	return;
+    }
+
+    /*
+     * Several commands and results could arrive in the property at
+     * one time;  each iteration through the outer loop handles a
+     * single command or result.
+     */
+
+    for (p = propInfo; (p-propInfo) < numItems; ) {
+	/*
+	 * Ignore leading NULLs; each command or result starts with a
+	 * NULL so that no matter how badly formed a preceding command
+	 * is, we'll be able to tell that a new command/result is
+	 * starting.
+	 */
+
+	if (*p == 0) {
+	    p++;
+	    continue;
+	}
+
+	if ((*p == 'c') && (p[1] == 0)) {
+	    Window commWindow;
+	    char *interpName, *script, *serial, *end;
+	    Tcl_DString reply;
+	    RegisteredInterp *riPtr;
+
+	    /*
+	     *----------------------------------------------------------
+	     * This is an incoming command from some other application.
+	     * Iterate over all of its options.  Stop when we reach
+	     * the end of the property or something that doesn't look
+	     * like an option.
+	     *----------------------------------------------------------
+	     */
+
+	    p += 2;
+	    interpName = NULL;
+	    commWindow = None;
+	    serial = "";
+	    script = NULL;
+	    while (((p-propInfo) < numItems) && (*p == '-')) {
+		switch (p[1]) {
+		    case 'r':
+			commWindow = (Window) strtoul(p+2, &end, 16);
+			if ((end == p+2) || (*end != ' ')) {
+			    commWindow = None;
+			} else {
+			    p = serial = end+1;
+			}
+			break;
+		    case 'n':
+			if (p[2] == ' ') {
+			    interpName = p+3;
+			}
+			break;
+		    case 's':
+			if (p[2] == ' ') {
+			    script = p+3;
+			}
+			break;
+		}
+		while (*p != 0) {
+		    p++;
+		}
+		p++;
+	    }
+
+	    if ((script == NULL) || (interpName == NULL)) {
+		continue;
+	    }
+
+	    /*
+	     * Initialize the result property, so that we're ready at any
+	     * time if we need to return an error.
+	     */
+
+	    if (commWindow != None) {
+		Tcl_DStringInit(&reply);
+		Tcl_DStringAppend(&reply, "\0r\0-s ", 6);
+		Tcl_DStringAppend(&reply, serial, -1);
+		Tcl_DStringAppend(&reply, "\0-r ", 4);
+	    }
+
+	    if (!ServerSecure(dispPtr)) {
+		if (commWindow != None) {
+		    Tcl_DStringAppend(&reply, "X server insecure (must use xauth-style authorization); command ignored", -1);
+		}
+		result = TCL_ERROR;
+		goto returnResult;
+	    }
+
+	    /*
+	     * Locate the application, then execute the script.
+	     */
+
+	    for (riPtr = registry; ; riPtr = riPtr->nextPtr) {
+		if (riPtr == NULL) {
+		    if (commWindow != None) {
+			Tcl_DStringAppend(&reply,
+				"receiver never heard of interpreter \"", -1);
+			Tcl_DStringAppend(&reply, interpName, -1);
+			Tcl_DStringAppend(&reply, "\"", 1);
+		    }
+		    result = TCL_ERROR;
+		    goto returnResult;
+		}
+		if (strcmp(riPtr->name, interpName) == 0) {
+		    break;
+		}
+	    }
+	    Tcl_Preserve((ClientData) riPtr);
+
+            /*
+             * We must protect the interpreter because the script may
+             * enter another event loop, which might call Tcl_DeleteInterp.
+             */
+
+            remoteInterp = riPtr->interp;
+            Tcl_Preserve((ClientData) remoteInterp);
+
+            result = Tcl_GlobalEval(remoteInterp, script);
+
+            /*
+             * The call to Tcl_Release may have released the interpreter
+             * which will cause the "send" command for that interpreter
+             * to be deleted. The command deletion callback will set the
+             * riPtr->interp field to NULL, hence the check below for NULL.
+             */
+
+	    if (commWindow != None) {
+		Tcl_DStringAppend(&reply, remoteInterp->result, -1);
+		if (result == TCL_ERROR) {
+		    char *varValue;
+    
+#ifdef STk_CODE
+		    varValue = Tcl_GetVar(remoteInterp, "*error-info*",
+					  TCL_GLOBAL_ONLY);
+#else
+		    varValue = Tcl_GetVar2(remoteInterp, "errorInfo",
+			    (char *) NULL, TCL_GLOBAL_ONLY);
+#endif
+		    if (varValue != NULL) {
+			Tcl_DStringAppend(&reply, "\0-i ", 4);
+			Tcl_DStringAppend(&reply, varValue, -1);
+		    }
+#ifdef STk_CODE
+		    varValue = Tcl_GetVar(remoteInterp, "*error-code*",
+					  TCL_GLOBAL_ONLY);
+#else
+		    varValue = Tcl_GetVar2(remoteInterp, "errorCode",
+			    (char *) NULL, TCL_GLOBAL_ONLY);
+#endif
+		    if (varValue != NULL) {
+			Tcl_DStringAppend(&reply, "\0-e ", 4);
+			Tcl_DStringAppend(&reply, varValue, -1);
+		    }
+		}
+	    }
+            Tcl_Release((ClientData) remoteInterp);
+	    Tcl_Release((ClientData) riPtr);
+
+	    /*
+	     * Return the result to the sender if a commWindow was
+	     * specified (if none was specified then this is an asynchronous
+	     * call).  Right now reply has everything but the completion
+	     * code, but it needs the NULL to terminate the current option.
+	     */
+
+	    returnResult:
+	    if (commWindow != None) {
+		if (result != TCL_OK) {
+		    char buffer[20];
+    
+		    sprintf(buffer, "%d", result);
+		    Tcl_DStringAppend(&reply, "\0-c ", 4);
+		    Tcl_DStringAppend(&reply, buffer, -1);
+		}
+		(void) AppendPropCarefully(dispPtr->display, commWindow,
+			dispPtr->commProperty, Tcl_DStringValue(&reply),
+			Tcl_DStringLength(&reply) + 1,
+			(PendingCommand *) NULL);
+		XFlush(dispPtr->display);
+		Tcl_DStringFree(&reply);
+	    }
+	} else if ((*p == 'r') && (p[1] == 0)) {
+	    int serial, code, gotSerial;
+	    char *errorInfo, *errorCode, *resultString;
+	    PendingCommand *pcPtr;
+
+	    /*
+	     *----------------------------------------------------------
+	     * This is a reply to some command that we sent out.  Iterate
+	     * over all of its options.  Stop when we reach the end of the
+	     * property or something that doesn't look like an option.
+	     *----------------------------------------------------------
+	     */
+
+	    p += 2;
+	    code = TCL_OK;
+	    gotSerial = 0;
+	    errorInfo = NULL;
+	    errorCode = NULL;
+	    resultString = "";
+	    while (((p-propInfo) < numItems) && (*p == '-')) {
+		switch (p[1]) {
+		    case 'c':
+			if (sscanf(p+2, " %d", &code) != 1) {
+			    code = TCL_OK;
+			}
+			break;
+		    case 'e':
+			if (p[2] == ' ') {
+			    errorCode = p+3;
+			}
+			break;
+		    case 'i':
+			if (p[2] == ' ') {
+			    errorInfo = p+3;
+			}
+			break;
+		    case 'r':
+			if (p[2] == ' ') {
+			    resultString = p+3;
+			}
+			break;
+		    case 's':
+			if (sscanf(p+2, " %d", &serial) == 1) {
+			    gotSerial = 1;
+			}
+			break;
+		}
+		while (*p != 0) {
+		    p++;
+		}
+		p++;
+	    }
+
+	    if (!gotSerial) {
+		continue;
+	    }
+
+	    /*
+	     * Give the result information to anyone who's
+	     * waiting for it.
+	     */
+
+	    for (pcPtr = pendingCommands; pcPtr != NULL;
+		    pcPtr = pcPtr->nextPtr) {
+		if ((serial != pcPtr->serial) || (pcPtr->result != NULL)) {
+		    continue;
+		}
+		pcPtr->code = code;
+		if (resultString != NULL) {
+		    pcPtr->result = (char *) ckalloc((unsigned)
+			    (strlen(resultString) + 1));
+		    strcpy(pcPtr->result, resultString);
+		}
+		if (code == TCL_ERROR) {
+		    if (errorInfo != NULL) {
+			pcPtr->errorInfo = (char *) ckalloc((unsigned)
+				(strlen(errorInfo) + 1));
+			strcpy(pcPtr->errorInfo, errorInfo);
+		    }
+		    if (errorCode != NULL) {
+			pcPtr->errorCode = (char *) ckalloc((unsigned)
+				(strlen(errorCode) + 1));
+			strcpy(pcPtr->errorCode, errorCode);
+		    }
+		}
+		pcPtr->gotResponse = 1;
+		break;
+	    }
+	} else {
+	    /*
+	     * Didn't recognize this thing.  Just skip through the next
+	     * null character and try again.
+	     */
+
+	    while (*p != 0) {
+		p++;
+	    }
+	    p++;
+	}
+    }
+    XFree(propInfo);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AppendPropCarefully --
+ *
+ *	Append a given property to a given window, but set up
+ *	an X error handler so that if the append fails this
+ *	procedure can return an error code rather than having
+ *	Xlib panic.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The given property on the given window is appended to.
+ *	If this operation fails and if pendingPtr is non-NULL,
+ *	then the pending operation is marked as complete with
+ *	an error.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+AppendPropCarefully(display, window, property, value, length, pendingPtr)
+    Display *display;		/* Display on which to operate. */
+    Window window;		/* Window whose property is to
+				 * be modified. */
+    Atom property;		/* Name of property. */
+    char *value;		/* Characters to append to property. */
+    int length;			/* Number of bytes to append. */
+    PendingCommand *pendingPtr;	/* Pending command to mark complete
+				 * if an error occurs during the
+				 * property op.  NULL means just
+				 * ignore the error. */
+{
+    Tk_ErrorHandler handler;
+
+    handler = Tk_CreateErrorHandler(display, -1, -1, -1, AppendErrorProc,
+	(ClientData) pendingPtr);
+    XChangeProperty(display, window, property, XA_STRING, 8,
+	    PropModeAppend, (unsigned char *) value, length);
+    Tk_DeleteErrorHandler(handler);
+}
+
+/*
+ * The procedure below is invoked if an error occurs during
+ * the XChangeProperty operation above.
+ */
+
+	/* ARGSUSED */
+static int
+AppendErrorProc(clientData, errorPtr)
+    ClientData clientData;	/* Command to mark complete, or NULL. */
+    XErrorEvent *errorPtr;	/* Information about error. */
+{
+    PendingCommand *pendingPtr = (PendingCommand *) clientData;
+    register PendingCommand *pcPtr;
+
+    if (pendingPtr == NULL) {
+	return 0;
+    }
+
+    /*
+     * Make sure this command is still pending.
+     */
+
+    for (pcPtr = pendingCommands; pcPtr != NULL;
+	    pcPtr = pcPtr->nextPtr) {
+	if ((pcPtr == pendingPtr) && (pcPtr->result == NULL)) {
+	    pcPtr->result = (char *) ckalloc((unsigned)
+		    (strlen(pcPtr->target) + 50));
+	    sprintf(pcPtr->result, "no application named \"%s\"",
+		    pcPtr->target);
+	    pcPtr->code = TCL_ERROR;
+	    pcPtr->gotResponse = 1;
+	    break;
+	}
+    }
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TimeoutProc --
+ *
+ *	This procedure is invoked when an unusually long amout of
+ *	time has elapsed during the processing of a sent command.
+ *	It checks to make sure that the target application still
+ *	exists, and reschedules itself to check again later.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If the target application has gone away abort the send
+ *	operation with an error.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TimeoutProc(clientData)
+    ClientData clientData;	/* Information about command that
+				 * has been sent but not yet
+				 * responded to. */
+{
+    PendingCommand *pcPtr = (PendingCommand *) clientData;
+    register PendingCommand *pcPtr2;
+
+    /*
+     * Make sure that the command is still in the pending list
+     * and that it hasn't already completed.  Then validate the
+     * existence of the target application.
+     */
+
+    for (pcPtr2 = pendingCommands; pcPtr2 != NULL;
+	    pcPtr2 = pcPtr2->nextPtr) {
+	char *msg;
+	if ((pcPtr2 != pcPtr) || (pcPtr2->result != NULL)) {
+	    continue;
+	}
+	if (!ValidateName(pcPtr2->dispPtr, pcPtr2->target,
+		pcPtr2->commWindow, 0)) {
+	    if (ValidateName(pcPtr2->dispPtr, pcPtr2->target,
+		    pcPtr2->commWindow, 1)) {
+		msg =
+                    "target application died or uses a Tk version before 4.0";
+	    } else {
+		msg = "target application died";
+	    }
+	    pcPtr2->code = TCL_ERROR;
+	    pcPtr2->result = (char *) ckalloc((unsigned) (strlen(msg) + 1));
+	    strcpy(pcPtr2->result, msg);
+	    pcPtr2->gotResponse = 1;
+	} else {
+	    Tcl_DeleteModalTimeout(TimeoutProc, clientData);
+	    Tcl_CreateModalTimeout(2000, TimeoutProc, clientData);
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DeleteProc --
+ *
+ *	This procedure is invoked by Tcl when the "send" command
+ *	is deleted in an interpreter.  It unregisters the interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The interpreter given by riPtr is unregistered.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DeleteProc(clientData)
+    ClientData clientData;	/* Info about registration, passed
+				 * as ClientData. */
+{
+    RegisteredInterp *riPtr = (RegisteredInterp *) clientData;
+    register RegisteredInterp *riPtr2;
+    NameRegistry *regPtr;
+
+    regPtr = RegOpen(riPtr->interp, riPtr->dispPtr, 1);
+    RegDeleteName(regPtr, riPtr->name);
+    RegClose(regPtr);
+
+    if (registry == riPtr) {
+	registry = riPtr->nextPtr;
+    } else {
+	for (riPtr2 = registry; riPtr2 != NULL;
+		riPtr2 = riPtr2->nextPtr) {
+	    if (riPtr2->nextPtr == riPtr) {
+		riPtr2->nextPtr = riPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    ckfree((char *) riPtr->name);
+    riPtr->interp = NULL;
+    UpdateCommWindow(riPtr->dispPtr);
+    Tcl_EventuallyFree((ClientData) riPtr, TCL_DYNAMIC);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SendRestrictProc --
+ *
+ *	This procedure filters incoming events when a "send" command
+ *	is outstanding.  It defers all events except those containing
+ *	send commands and results.
+ *
+ * Results:
+ *	False is returned except for property-change events on a
+ *	commWindow.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+    /* ARGSUSED */
+static Tk_RestrictAction
+SendRestrictProc(clientData, eventPtr)
+    ClientData clientData;		/* Not used. */
+    register XEvent *eventPtr;		/* Event that just arrived. */
+{
+    TkDisplay *dispPtr;
+
+    if (eventPtr->type != PropertyNotify) {
+	return TK_DEFER_EVENT;
+    }
+    for (dispPtr = tkDisplayList; dispPtr != NULL; dispPtr = dispPtr->nextPtr) {
+	if ((eventPtr->xany.display == dispPtr->display)
+		&& (eventPtr->xproperty.window
+		== Tk_WindowId(dispPtr->commTkwin))) {
+	    return TK_PROCESS_EVENT;
+	}
+    }
+    return TK_DEFER_EVENT;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateCommWindow --
+ *
+ *	This procedure updates the list of application names stored
+ *	on our commWindow.  It is typically called when interpreters
+ *	are registered and unregistered.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The TK_APPLICATION property on the comm window is updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateCommWindow(dispPtr)
+    TkDisplay *dispPtr;		/* Display whose commWindow is to be
+				 * updated. */
+{
+    Tcl_DString names;
+    RegisteredInterp *riPtr;
+
+    Tcl_DStringInit(&names);
+    for (riPtr = registry; riPtr != NULL; riPtr = riPtr->nextPtr) {
+	Tcl_DStringAppendElement(&names, riPtr->name);
+    }
+    XChangeProperty(dispPtr->display, Tk_WindowId(dispPtr->commTkwin),
+	    dispPtr->appNameProperty, XA_STRING, 8, PropModeReplace,
+	    (unsigned char *) Tcl_DStringValue(&names),
+	    Tcl_DStringLength(&names));
+    Tcl_DStringFree(&names);
+}
diff --git a/Tk/generic/tkSquare.c b/Tk/generic/tkSquare.c
new file mode 100644
index 0000000..669cdb9
--- /dev/null
+++ b/Tk/generic/tkSquare.c
@@ -0,0 +1,588 @@
+/* 
+ * tkSquare.c --
+ *
+ *	This module implements "square" widgets.  A "square" is
+ *	a widget that displays a single square that can be moved
+ *	around and resized.  This file is intended as an example
+ *	of how to build a widget;  it isn't included in the
+ *	normal wish, but it is included in "tktest".
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkSquare.c 1.17 96/07/23 16:54:29
+ */
+
+#include "tkPort.h"
+#include "tk.h"
+
+/*
+ * A data structure of the following type is kept for each square
+ * widget managed by this file:
+ */
+
+typedef struct {
+    Tk_Window tkwin;		/* Window that embodies the square.  NULL
+				 * means window has been deleted but
+				 * widget record hasn't been cleaned up yet. */
+    Display *display;		/* X's token for the window's display. */
+    Tcl_Interp *interp;		/* Interpreter associated with widget. */
+    Tcl_Command widgetCmd;	/* Token for square's widget command. */
+    int x, y;			/* Position of square's upper-left corner
+				 * within widget. */
+    int size;			/* Width and height of square. */
+
+    /*
+     * Information used when displaying widget:
+     */
+
+    int borderWidth;		/* Width of 3-D border around whole widget. */
+    Tk_3DBorder bgBorder;	/* Used for drawing background. */
+    Tk_3DBorder fgBorder;	/* For drawing square. */
+    int relief;			/* Indicates whether window as a whole is
+				 * raised, sunken, or flat. */
+    GC gc;			/* Graphics context for copying from
+				 * off-screen pixmap onto screen. */
+    int doubleBuffer;		/* Non-zero means double-buffer redisplay
+				 * with pixmap;  zero means draw straight
+				 * onto the display. */
+    int updatePending;		/* Non-zero means a call to SquareDisplay
+				 * has already been scheduled. */
+} Square;
+
+/*
+ * Information used for argv parsing.
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	"#cdb79e", Tk_Offset(Square, bgBorder), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	"white", Tk_Offset(Square, bgBorder), TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	"2", Tk_Offset(Square, borderWidth), 0},
+    {TK_CONFIG_INT, "-dbl", "doubleBuffer", "DoubleBuffer",
+	"1", Tk_Offset(Square, doubleBuffer), 0},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_BORDER, "-foreground", "foreground", "Foreground",
+	"#b03060", Tk_Offset(Square, fgBorder), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-foreground", "foreground", "Foreground",
+	"black", Tk_Offset(Square, fgBorder), TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	"raised", Tk_Offset(Square, relief), 0},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+int			SquareCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		SquareCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static int		SquareConfigure _ANSI_ARGS_((Tcl_Interp *interp,
+			    Square *squarePtr, int argc, char **argv,
+			    int flags));
+static void		SquareDestroy _ANSI_ARGS_((char *memPtr));
+static void		SquareDisplay _ANSI_ARGS_((ClientData clientData));
+static void		KeepInWindow _ANSI_ARGS_((Square *squarePtr));
+static void		SquareEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		SquareWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *, int argc, char **argv));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SquareCmd --
+ *
+ *	This procedure is invoked to process the "square" Tcl
+ *	command.  It creates a new "square" widget.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	A new widget is created and configured.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+SquareCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window main = (Tk_Window) clientData;
+    Square *squarePtr;
+    Tk_Window tkwin;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    tkwin = Tk_CreateWindowFromPath(interp, main, argv[1], (char *) NULL);
+    if (tkwin == NULL) {
+	return TCL_ERROR;
+    }
+    Tk_SetClass(tkwin, "Square");
+
+    /*
+     * Allocate and initialize the widget record.
+     */
+
+    squarePtr = (Square *) ckalloc(sizeof(Square));
+    squarePtr->tkwin = tkwin;
+    squarePtr->display = Tk_Display(tkwin);
+    squarePtr->interp = interp;
+    squarePtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(squarePtr->tkwin), SquareWidgetCmd,
+	    (ClientData) squarePtr, SquareCmdDeletedProc);
+    squarePtr->x = 0;
+    squarePtr->y = 0;
+    squarePtr->size = 20;
+    squarePtr->borderWidth = 0;
+    squarePtr->bgBorder = NULL;
+    squarePtr->fgBorder = NULL;
+    squarePtr->relief = TK_RELIEF_FLAT;
+    squarePtr->gc = None;
+    squarePtr->doubleBuffer = 1;
+    squarePtr->updatePending = 0;
+
+    Tk_CreateEventHandler(squarePtr->tkwin, ExposureMask|StructureNotifyMask,
+	    SquareEventProc, (ClientData) squarePtr);
+    if (SquareConfigure(interp, squarePtr, argc-2, argv+2, 0) != TCL_OK) {
+	Tk_DestroyWindow(squarePtr->tkwin);
+	return TCL_ERROR;
+    }
+
+    interp->result = Tk_PathName(squarePtr->tkwin);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SquareWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a widget managed by this module.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+SquareWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Information about square widget. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    Square *squarePtr = (Square *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    char c;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) squarePtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    goto error;
+	}
+	result = Tk_ConfigureValue(interp, squarePtr->tkwin, configSpecs,
+		(char *) squarePtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, squarePtr->tkwin, configSpecs,
+		    (char *) squarePtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, squarePtr->tkwin, configSpecs,
+		    (char *) squarePtr, argv[2], 0);
+	} else {
+	    result = SquareConfigure(interp, squarePtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'p') && (strncmp(argv[1], "position", length) == 0)) {
+	if ((argc != 2) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " position ?x y?\"", (char *) NULL);
+	    goto error;
+	}
+	if (argc == 4) {
+	    if ((Tk_GetPixels(interp, squarePtr->tkwin, argv[2],
+		    &squarePtr->x) != TCL_OK) || (Tk_GetPixels(interp,
+		    squarePtr->tkwin, argv[3], &squarePtr->y) != TCL_OK)) {
+		goto error;
+	    }
+	    KeepInWindow(squarePtr);
+	}
+	sprintf(interp->result, "%d %d", squarePtr->x, squarePtr->y);
+    } else if ((c == 's') && (strncmp(argv[1], "size", length) == 0)) {
+	if ((argc != 2) && (argc != 3)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " size ?amount?\"", (char *) NULL);
+	    goto error;
+	}
+	if (argc == 3) {
+	    int i;
+
+	    if (Tk_GetPixels(interp, squarePtr->tkwin, argv[2], &i) != TCL_OK) {
+		goto error;
+	    }
+	    if ((i <= 0) || (i > 100)) {
+		Tcl_AppendResult(interp, "bad size \"", argv[2],
+			"\"", (char *) NULL);
+		goto error;
+	    }
+	    squarePtr->size = i;
+	    KeepInWindow(squarePtr);
+	}
+	sprintf(interp->result, "%d", squarePtr->size);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be cget, configure, position, or size",
+		(char *) NULL);
+	goto error;
+    }
+    if (!squarePtr->updatePending) {
+	Tcl_DoWhenIdle(SquareDisplay, (ClientData) squarePtr);
+	squarePtr->updatePending = 1;
+    }
+    Tcl_Release((ClientData) squarePtr);
+    return result;
+
+    error:
+    Tcl_Release((ClientData) squarePtr);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SquareConfigure --
+ *
+ *	This procedure is called to process an argv/argc list in
+ *	conjunction with the Tk option database to configure (or
+ *	reconfigure) a square widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as colors, border width,
+ *	etc. get set for squarePtr;  old resources get freed,
+ *	if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+SquareConfigure(interp, squarePtr, argc, argv, flags)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Square *squarePtr;			/* Information about widget. */
+    int argc;				/* Number of valid entries in argv. */
+    char **argv;			/* Arguments. */
+    int flags;				/* Flags to pass to
+					 * Tk_ConfigureWidget. */
+{
+    if (Tk_ConfigureWidget(interp, squarePtr->tkwin, configSpecs,
+	    argc, argv, (char *) squarePtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Set the background for the window and create a graphics context
+     * for use during redisplay.
+     */
+
+    Tk_SetWindowBackground(squarePtr->tkwin,
+	    Tk_3DBorderColor(squarePtr->bgBorder)->pixel);
+    if ((squarePtr->gc == None) && (squarePtr->doubleBuffer)) {
+	XGCValues gcValues;
+	gcValues.function = GXcopy;
+	gcValues.graphics_exposures = False;
+	squarePtr->gc = Tk_GetGC(squarePtr->tkwin,
+		GCFunction|GCGraphicsExposures, &gcValues);
+    }
+
+    /*
+     * Register the desired geometry for the window.  Then arrange for
+     * the window to be redisplayed.
+     */
+
+    Tk_GeometryRequest(squarePtr->tkwin, 200, 150);
+    Tk_SetInternalBorder(squarePtr->tkwin, squarePtr->borderWidth);
+    if (!squarePtr->updatePending) {
+	Tcl_DoWhenIdle(SquareDisplay, (ClientData) squarePtr);
+	squarePtr->updatePending = 1;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SquareEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher for various
+ *	events on squares.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SquareEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    XEvent *eventPtr;		/* Information about event. */
+{
+    Square *squarePtr = (Square *) clientData;
+
+    if (eventPtr->type == Expose) {
+	if (!squarePtr->updatePending) {
+	    Tcl_DoWhenIdle(SquareDisplay, (ClientData) squarePtr);
+	    squarePtr->updatePending = 1;
+	}
+    } else if (eventPtr->type == ConfigureNotify) {
+	KeepInWindow(squarePtr);
+	if (!squarePtr->updatePending) {
+	    Tcl_DoWhenIdle(SquareDisplay, (ClientData) squarePtr);
+	    squarePtr->updatePending = 1;
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	if (squarePtr->tkwin != NULL) {
+	    squarePtr->tkwin = NULL;
+	    Tcl_DeleteCommand(squarePtr->interp,
+		    Tcl_GetCommandName(squarePtr->interp,
+		    squarePtr->widgetCmd));
+	}
+	if (squarePtr->updatePending) {
+	    Tcl_CancelIdleCall(SquareDisplay, (ClientData) squarePtr);
+	}
+	Tcl_EventuallyFree((ClientData) squarePtr, SquareDestroy);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SquareCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SquareCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    Square *squarePtr = (Square *) clientData;
+    Tk_Window tkwin = squarePtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	squarePtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SquareDisplay --
+ *
+ *	This procedure redraws the contents of a square window.
+ *	It is invoked as a do-when-idle handler, so it only runs
+ *	when there's nothing else for the application to do.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information appears on the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+SquareDisplay(clientData)
+    ClientData clientData;	/* Information about window. */
+{
+    Square *squarePtr = (Square *) clientData;
+    Tk_Window tkwin = squarePtr->tkwin;
+    Pixmap pm = None;
+    Drawable d;
+
+    squarePtr->updatePending = 0;
+    if (!Tk_IsMapped(tkwin)) {
+	return;
+    }
+
+    /*
+     * Create a pixmap for double-buffering, if necessary.
+     */
+
+    if (squarePtr->doubleBuffer) {
+	pm = Tk_GetPixmap(Tk_Display(tkwin), Tk_WindowId(tkwin),
+		Tk_Width(tkwin), Tk_Height(tkwin),
+		DefaultDepthOfScreen(Tk_Screen(tkwin)));
+	d = pm;
+    } else {
+	d = Tk_WindowId(tkwin);
+    }
+
+    /*
+     * Redraw the widget's background and border.
+     */
+
+    Tk_Fill3DRectangle(tkwin, d, squarePtr->bgBorder, 0, 0, Tk_Width(tkwin),
+	    Tk_Height(tkwin), squarePtr->borderWidth, squarePtr->relief);
+
+    /*
+     * Display the square.
+     */
+
+    Tk_Fill3DRectangle(tkwin, d, squarePtr->fgBorder, squarePtr->x,
+	    squarePtr->y, squarePtr->size, squarePtr->size,
+	    squarePtr->borderWidth, TK_RELIEF_RAISED);
+
+    /*
+     * If double-buffered, copy to the screen and release the pixmap.
+     */
+
+    if (squarePtr->doubleBuffer) {
+	XCopyArea(Tk_Display(tkwin), pm, Tk_WindowId(tkwin), squarePtr->gc,
+		0, 0, (unsigned) Tk_Width(tkwin), (unsigned) Tk_Height(tkwin),
+		0, 0);
+	Tk_FreePixmap(Tk_Display(tkwin), pm);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SquareDestroy --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a square at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the square is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SquareDestroy(memPtr)
+    char *memPtr;		/* Info about square widget. */
+{
+    Square *squarePtr = (Square *) memPtr;
+
+    Tk_FreeOptions(configSpecs, (char *) squarePtr, squarePtr->display, 0);
+    if (squarePtr->gc != None) {
+	Tk_FreeGC(squarePtr->display, squarePtr->gc);
+    }
+    ckfree((char *) squarePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * KeepInWindow --
+ *
+ *	Adjust the position of the square if necessary to keep it in
+ *	the widget's window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The x and y position of the square are adjusted if necessary
+ *	to keep the square in the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+KeepInWindow(squarePtr)
+    register Square *squarePtr;		/* Pointer to widget record. */
+{
+    int i, bd;
+    bd = 0;
+    if (squarePtr->relief != TK_RELIEF_FLAT) {
+	bd = squarePtr->borderWidth;
+    }
+    i = (Tk_Width(squarePtr->tkwin) - bd) - (squarePtr->x + squarePtr->size);
+    if (i < 0) {
+	squarePtr->x += i;
+    }
+    i = (Tk_Height(squarePtr->tkwin) - bd) - (squarePtr->y + squarePtr->size);
+    if (i < 0) {
+	squarePtr->y += i;
+    }
+    if (squarePtr->x < bd) {
+	squarePtr->x = bd;
+    }
+    if (squarePtr->y < bd) {
+	squarePtr->y = bd;
+    }
+}
diff --git a/Tk/generic/tkTest.c b/Tk/generic/tkTest.c
new file mode 100644
index 0000000..05f2e72
--- /dev/null
+++ b/Tk/generic/tkTest.c
@@ -0,0 +1,1108 @@
+/* 
+ * tkTest.c --
+ *
+ *	This file contains C command procedures for a bunch of additional
+ *	Tcl commands that are used for testing out Tcl's C interfaces.
+ *	These commands are not normally included in Tcl applications;
+ *	they're only used for testing.
+ *
+ * Copyright (c) 1993-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTest.c 1.33 96/03/26 16:46:45
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"	
+
+/*
+ * The table below describes events and is used by the "testevent"
+ * command.
+ */
+
+typedef struct {
+    char *name;			/* Name of event. */
+    int type;			/* Event type for X, such as
+				 * ButtonPress. */
+} EventInfo;
+
+static EventInfo eventArray[] = {
+    {"Motion",		MotionNotify},
+    {"Button",		ButtonPress},
+    {"ButtonPress",	ButtonPress},
+    {"ButtonRelease",	ButtonRelease},
+    {"Colormap",	ColormapNotify},
+    {"Enter",		EnterNotify},
+    {"Leave",		LeaveNotify},
+    {"Expose",		Expose},
+    {"FocusIn",		FocusIn},
+    {"FocusOut",	FocusOut},
+    {"Keymap",		KeymapNotify},
+    {"Key",		KeyPress},
+    {"KeyPress",	KeyPress},
+    {"KeyRelease",	KeyRelease},
+    {"Property",	PropertyNotify},
+    {"ResizeRequest",	ResizeRequest},
+    {"Circulate",	CirculateNotify},
+    {"Configure",	ConfigureNotify},
+    {"Destroy",		DestroyNotify},
+    {"Gravity",		GravityNotify},
+    {"Map",		MapNotify},
+    {"Reparent",	ReparentNotify},
+    {"Unmap",		UnmapNotify},
+    {"Visibility",	VisibilityNotify},
+    {"CirculateRequest",CirculateRequest},
+    {"ConfigureRequest",ConfigureRequest},
+    {"MapRequest",	MapRequest},
+    {(char *) NULL,	0}
+};
+
+/*
+ * The defines and table below are used to classify events into
+ * various groups.  The reason for this is that logically identical
+ * fields (e.g. "state") appear at different places in different
+ * types of events.  The classification masks can be used to figure
+ * out quickly where to extract information from events.
+ */
+
+#define KEY_BUTTON_MOTION	0x1
+#define CROSSING		0x2
+#define FOCUS			0x4
+#define EXPOSE			0x8
+#define VISIBILITY		0x10
+#define CREATE			0x20
+#define MAP			0x40
+#define REPARENT		0x80
+#define CONFIG			0x100
+#define CONFIG_REQ		0x200
+#define RESIZE_REQ		0x400
+#define GRAVITY			0x800
+#define PROP			0x1000
+#define SEL_CLEAR		0x2000
+#define SEL_REQ			0x4000
+#define SEL_NOTIFY		0x8000
+#define COLORMAP		0x10000
+#define MAPPING			0x20000
+
+static int flagArray[LASTEvent] = {
+   /* Not used */		0,
+   /* Not used */		0,
+   /* KeyPress */		KEY_BUTTON_MOTION,
+   /* KeyRelease */		KEY_BUTTON_MOTION,
+   /* ButtonPress */		KEY_BUTTON_MOTION,
+   /* ButtonRelease */		KEY_BUTTON_MOTION,
+   /* MotionNotify */		KEY_BUTTON_MOTION,
+   /* EnterNotify */		CROSSING,
+   /* LeaveNotify */		CROSSING,
+   /* FocusIn */		FOCUS,
+   /* FocusOut */		FOCUS,
+   /* KeymapNotify */		0,
+   /* Expose */			EXPOSE,
+   /* GraphicsExpose */		EXPOSE,
+   /* NoExpose */		0,
+   /* VisibilityNotify */	VISIBILITY,
+   /* CreateNotify */		CREATE,
+   /* DestroyNotify */		0,
+   /* UnmapNotify */		0,
+   /* MapNotify */		MAP,
+   /* MapRequest */		0,
+   /* ReparentNotify */		REPARENT,
+   /* ConfigureNotify */	CONFIG,
+   /* ConfigureRequest */	CONFIG_REQ,
+   /* GravityNotify */		0,
+   /* ResizeRequest */		RESIZE_REQ,
+   /* CirculateNotify */	0,
+   /* CirculateRequest */	0,
+   /* PropertyNotify */		PROP,
+   /* SelectionClear */		SEL_CLEAR,
+   /* SelectionRequest */	SEL_REQ,
+   /* SelectionNotify */	SEL_NOTIFY,
+   /* ColormapNotify */		COLORMAP,
+   /* ClientMessage */		0,
+   /* MappingNotify */		MAPPING
+};
+
+/*
+ * The following data structure represents the master for a test
+ * image:
+ */
+
+typedef struct TImageMaster {
+    Tk_ImageMaster master;	/* Tk's token for image master. */
+    Tcl_Interp *interp;		/* Interpreter for application. */
+    int width, height;		/* Dimensions of image. */
+    char *imageName;		/* Name of image (malloc-ed). */
+    char *varName;		/* Name of variable in which to log
+				 * events for image (malloc-ed). */
+} TImageMaster;
+
+/*
+ * The following data structure represents a particular use of a
+ * particular test image.
+ */
+
+typedef struct TImageInstance {
+    TImageMaster *masterPtr;	/* Pointer to master for image. */
+    XColor *fg;			/* Foreground color for drawing in image. */
+    GC gc;			/* Graphics context for drawing in image. */
+} TImageInstance;
+
+/*
+ * The type record for test images:
+ */
+
+static int		ImageCreate _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *name, int argc, char **argv,
+			    Tk_ImageType *typePtr, Tk_ImageMaster master,
+			    ClientData *clientDataPtr));
+static ClientData	ImageGet _ANSI_ARGS_((Tk_Window tkwin,
+			    ClientData clientData));
+static void		ImageDisplay _ANSI_ARGS_((ClientData clientData,
+			    Display *display, Drawable drawable, 
+			    int imageX, int imageY, int width,
+			    int height, int drawableX,
+			    int drawableY));
+static void		ImageFree _ANSI_ARGS_((ClientData clientData,
+			    Display *display));
+static void		ImageDelete _ANSI_ARGS_((ClientData clientData));
+
+static Tk_ImageType imageType = {
+    "test",			/* name */
+    ImageCreate,		/* createProc */
+    ImageGet,			/* getProc */
+    ImageDisplay,		/* displayProc */
+    ImageFree,			/* freeProc */
+    ImageDelete,		/* deleteProc */
+    (Tk_ImageType *) NULL	/* nextPtr */
+};
+
+/*
+ * One of the following structures describes each of the interpreters
+ * created by the "testnewapp" command.  This information is used by
+ * the "testdeleteinterps" command to destroy all of those interpreters.
+ */
+
+typedef struct NewApp {
+    Tcl_Interp *interp;		/* Token for interpreter. */
+    struct NewApp *nextPtr;	/* Next in list of new interpreters. */
+} NewApp;
+
+static NewApp *newAppPtr = NULL;
+				/* First in list of all new interpreters. */
+
+/*
+ * Declaration for the square widget's class command procedure:
+ */
+
+extern int SquareCmd _ANSI_ARGS_((ClientData clientData,
+	Tcl_Interp *interp, int argc, char *argv[]));
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+int			Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp));
+static int		ImageCmd _ANSI_ARGS_((ClientData dummy,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TestdeleteappsCmd _ANSI_ARGS_((ClientData dummy,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TesteventCmd _ANSI_ARGS_((ClientData dummy,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TestmakeexistCmd _ANSI_ARGS_((ClientData dummy,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TestsendCmd _ANSI_ARGS_((ClientData dummy,
+			    Tcl_Interp *interp, int argc, char **argv));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tktest_Init --
+ *
+ *	This procedure performs intialization for the Tk test
+ *	suite exensions.
+ *
+ * Results:
+ *	Returns a standard Tcl completion code, and leaves an error
+ *	message in interp->result if an error occurs.
+ *
+ * Side effects:
+ *	Creates several test commands.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tktest_Init(interp)
+    Tcl_Interp *interp;		/* Interpreter for application. */
+{
+    static int initialized = 0;
+
+    /*
+     * Create additional commands for testing Tk.
+     */
+
+    if (Tcl_PkgProvide(interp, "Tktest", "4.1") == TCL_ERROR) {
+        return TCL_ERROR;
+    }
+    
+    Tcl_CreateCommand(interp, "square", SquareCmd,
+	    (ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateCommand(interp, "testdeleteapps", TestdeleteappsCmd,
+	    (ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateCommand(interp, "testevent", TesteventCmd,
+	    (ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateCommand(interp, "testmakeexist", TestmakeexistCmd,
+	    (ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateCommand(interp, "testsend", TestsendCmd,
+	    (ClientData) Tk_MainWindow(interp), (Tcl_CmdDeleteProc *) NULL);
+
+    /*
+     * Create test image type.
+     */
+
+    if (!initialized) {
+	initialized = 1;
+	Tk_CreateImageType(&imageType);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TestdeleteappsCmd --
+ *
+ *	This procedure implements the "testdeleteapps" command.  It cleans
+ *	up all the interpreters left behind by the "testnewapp" command.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	All the intepreters created by previous calls to "testnewapp"
+ *	get deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+TestdeleteappsCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window for application. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    NewApp *nextPtr;
+
+    while (newAppPtr != NULL) {
+	nextPtr = newAppPtr->nextPtr;
+	Tcl_DeleteInterp(newAppPtr->interp);
+	ckfree((char *) newAppPtr);
+	newAppPtr = nextPtr;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TesteventCmd --
+ *
+ *	This procedure implements the "testevent" command.  It allows
+ *	events to be generated on the fly, for testing event-handling.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Creates and handles events.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+TesteventCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window for application. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    Tk_Window main = (Tk_Window) clientData;
+    Tk_Window tkwin, tkwin2;
+    XEvent event;
+    EventInfo *eiPtr;
+    char *field, *value;
+    int i, number, flags;
+    KeySym keysym;
+
+    if ((argc < 3) || !(argc & 1)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
+		" window type ?field value field value ...?\"",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    tkwin = Tk_NameToWindow(interp, argv[1], main);
+    if (tkwin == NULL) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * Get the type of the event.
+     */
+
+    memset((VOID *) &event, 0, sizeof(event));
+    for (eiPtr = eventArray; ; eiPtr++) {
+	if (eiPtr->name == NULL) {
+	    Tcl_AppendResult(interp, "bad event type \"", argv[2],
+		    "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (strcmp(eiPtr->name, argv[2]) == 0) {
+	    event.xany.type = eiPtr->type;
+	    break;
+	}
+    }
+
+    /*
+     * Fill in fields that are common to all events.
+     */
+
+    event.xany.serial = NextRequest(Tk_Display(tkwin));
+    event.xany.send_event = False;
+    event.xany.window = Tk_WindowId(tkwin);
+    event.xany.display = Tk_Display(tkwin);
+
+    /*
+     * Process the remaining arguments to fill in additional fields
+     * of the event.
+     */
+
+    flags = flagArray[event.xany.type];
+    for (i = 3; i < argc; i += 2) {
+	field = argv[i];
+	value = argv[i+1];
+	if (strcmp(field, "-above") == 0) {
+	    tkwin2 = Tk_NameToWindow(interp, value, main);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    event.xconfigure.above = Tk_WindowId(tkwin2);
+	} else if (strcmp(field, "-borderwidth") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xcreatewindow.border_width = number;
+	} else if (strcmp(field, "-button") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xbutton.button = number;
+	} else if (strcmp(field, "-count") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (flags & EXPOSE) {
+		event.xexpose.count = number;
+	    } else if (flags & MAPPING) {
+		event.xmapping.count = number;
+	    }
+	} else if (strcmp(field, "-detail") == 0) {
+	    if (flags & (CROSSING|FOCUS)) {
+		if (strcmp(value, "NotifyAncestor") == 0) {
+		    number = NotifyAncestor;
+		} else if (strcmp(value, "NotifyVirtual") == 0) {
+		    number = NotifyVirtual;
+		} else if (strcmp(value, "NotifyInferior") == 0) {
+		    number = NotifyInferior;
+		} else if (strcmp(value, "NotifyNonlinear") == 0) {
+		    number = NotifyNonlinear;
+		} else if (strcmp(value, "NotifyNonlinearVirtual") == 0) {
+		    number = NotifyNonlinearVirtual;
+		} else if (strcmp(value, "NotifyPointer") == 0) {
+		    number = NotifyPointer;
+		} else if (strcmp(value, "NotifyPointerRoot") == 0) {
+		    number = NotifyPointerRoot;
+		} else if (strcmp(value, "NotifyDetailNone") == 0) {
+		    number = NotifyDetailNone;
+		} else {
+		    Tcl_AppendResult(interp, "bad detail \"", value, "\"",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		if (flags & FOCUS) {
+		    event.xfocus.detail = number;
+		} else {
+		    event.xcrossing.detail = number;
+		}
+	    } else if (flags & CONFIG_REQ) {
+		if (strcmp(value, "Above") == 0) {
+		    number = Above;
+		} else if (strcmp(value, "Below") == 0) {
+		    number = Below;
+		} else if (strcmp(value, "TopIf") == 0) {
+		    number = TopIf;
+		} else if (strcmp(value, "BottomIf") == 0) {
+		    number = BottomIf;
+		} else if (strcmp(value, "Opposite") == 0) {
+		    number = Opposite;
+		} else {
+		    Tcl_AppendResult(interp, "bad detail \"", value, "\"",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		event.xconfigurerequest.detail = number;
+	    }
+	} else if (strcmp(field, "-focus") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xcrossing.focus = number;
+	} else if (strcmp(field, "-height") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (flags & EXPOSE) {
+		 event.xexpose.height = number;
+	    } else if (flags & (CONFIG|CONFIG_REQ)) {
+		event.xconfigure.height = number;
+	    } else if (flags & RESIZE_REQ) {
+		event.xresizerequest.height = number;
+	    }
+	} else if (strcmp(field, "-keycode") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xkey.keycode = number;
+	} else if (strcmp(field, "-keysym") == 0) {
+	    keysym = TkStringToKeysym(value);
+	    if (keysym == NoSymbol) {
+		Tcl_AppendResult(interp, "unknown keysym \"", value,
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    number = XKeysymToKeycode(event.xany.display, keysym);
+	    if (number == 0) {
+		Tcl_AppendResult(interp, "no keycode for keysym \"", value,
+			"\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    event.xkey.keycode = number;
+	} else if (strcmp(field, "-mode") == 0) {
+	    if (strcmp(value, "NotifyNormal") == 0) {
+		number = NotifyNormal;
+	    } else if (strcmp(value, "NotifyGrab") == 0) {
+		number = NotifyGrab;
+	    } else if (strcmp(value, "NotifyUngrab") == 0) {
+		number = NotifyUngrab;
+	    } else if (strcmp(value, "NotifyWhileGrabbed") == 0) {
+		number = NotifyWhileGrabbed;
+	    } else {
+		Tcl_AppendResult(interp, "bad mode \"", value, "\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (flags & CROSSING) {
+		event.xcrossing.mode = number;
+	    } else if (flags & FOCUS) {
+		event.xfocus.mode = number;
+	    }
+	} else if (strcmp(field, "-override") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (flags & CREATE) {
+		event.xcreatewindow.override_redirect = number;
+	    } else if (flags & MAP) {
+		event.xmap.override_redirect = number;
+	    } else if (flags & REPARENT) {
+		event.xreparent.override_redirect = number;
+	    } else if (flags & CONFIG) {
+		event.xconfigure.override_redirect = number;
+	    }
+	} else if (strcmp(field, "-place") == 0) {
+	    if (strcmp(value, "PlaceOnTop") == 0) {
+		event.xcirculate.place = PlaceOnTop;
+	    } else if (strcmp(value, "PlaceOnBottom") == 0) {
+		event.xcirculate.place = PlaceOnBottom;
+	    } else if (strcmp(value, "bogus") == 0) {
+		event.xcirculate.place = 147;
+	    } else {
+		Tcl_AppendResult(interp, "bad place \"", value, "\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	} else if (strcmp(field, "-root") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xkey.root = number;
+	} else if (strcmp(field, "-rootx") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xkey.x_root = number;
+	} else if (strcmp(field, "-rooty") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xkey.y_root = number;
+	} else if (strcmp(field, "-sendevent") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xany.send_event = number;
+	} else if (strcmp(field, "-serial") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xany.serial = number;
+	} else if (strcmp(field, "-state") == 0) {
+	    if (flags & KEY_BUTTON_MOTION) {
+		if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		event.xkey.state = number;
+	    } else if (flags & CROSSING) {
+		if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		event.xcrossing.state = number;
+	    } else if (flags & VISIBILITY) {
+		if (strcmp(value, "VisibilityUnobscured") == 0) {
+		    number = VisibilityUnobscured;
+		} else if (strcmp(value, "VisibilityPartiallyObscured") == 0) {
+		    number = VisibilityPartiallyObscured;
+		} else if (strcmp(value, "VisibilityFullyObscured") == 0) {
+		    number = VisibilityFullyObscured;
+		} else {
+		    Tcl_AppendResult(interp, "bad state \"", value, "\"",
+			    (char *) NULL);
+		    return TCL_ERROR;
+		}
+		event.xvisibility.state = number;
+	    }
+	} else if (strcmp(field, "-subwindow") == 0) {
+	    tkwin2 = Tk_NameToWindow(interp, value, main);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    event.xkey.subwindow = Tk_WindowId(tkwin2);
+	} else if (strcmp(field, "-time") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (flags & (KEY_BUTTON_MOTION|PROP|SEL_CLEAR)) {
+		event.xkey.time = (Time) number;
+	    } else if (flags & SEL_REQ) {
+		event.xselectionrequest.time = (Time) number;
+	    } else if (flags & SEL_NOTIFY) {
+		event.xselection.time = (Time) number;
+	    }
+	} else if (strcmp(field, "-valueMask") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    event.xconfigurerequest.value_mask = number;
+	} else if (strcmp(field, "-width") == 0) {
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (flags & EXPOSE) {
+		event.xexpose.width = number;
+	    } else if (flags & (CONFIG|CONFIG_REQ)) {
+		event.xconfigure.width = number;
+	    } else if (flags & RESIZE_REQ) {
+		event.xresizerequest.width = number;
+	    }
+	} else if (strcmp(field, "-window") == 0) {
+	    tkwin2 = Tk_NameToWindow(interp, value, main);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    event.xmap.window = Tk_WindowId(tkwin2);
+	} else if (strcmp(field, "-x") == 0) {
+	    int rootX, rootY;
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    Tk_GetRootCoords(tkwin, &rootX, &rootY);
+	    rootX += number;
+	    if (flags & KEY_BUTTON_MOTION) {
+		event.xkey.x = number;
+		event.xkey.x_root = rootX;
+	    } else if (flags & EXPOSE) {
+		event.xexpose.x = number;
+	    } else if (flags & (CREATE|CONFIG|GRAVITY|CONFIG_REQ)) {
+		event.xcreatewindow.x = number;
+	    } else if (flags & REPARENT) {
+		event.xreparent.x = number;
+	    } else if (flags & CROSSING) {
+		event.xcrossing.x = number;
+		event.xcrossing.x_root = rootY;
+	    }
+	} else if (strcmp(field, "-y") == 0) {
+	    int rootX, rootY;
+	    if (Tcl_GetInt(interp, value, &number) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    Tk_GetRootCoords(tkwin, &rootX, &rootY);
+	    rootY += number;
+	    if (flags & KEY_BUTTON_MOTION) {
+		event.xkey.y = number;
+		event.xkey.y_root = rootY;
+	    } else if (flags & EXPOSE) {
+		event.xexpose.y = number;
+	    } else if (flags & (CREATE|CONFIG|GRAVITY|CONFIG_REQ)) {
+		event.xcreatewindow.y = number;
+	    } else if (flags & REPARENT) {
+		event.xreparent.y = number;
+	    } else if (flags & CROSSING) {
+		event.xcrossing.y = number;
+		event.xcrossing.y_root = rootY;
+	    }
+	} else {
+	    Tcl_AppendResult(interp, "bad option \"", field, "\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+    }
+    Tk_HandleEvent(&event);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TestmakeexistCmd --
+ *
+ *	This procedure implements the "testmakeexist" command.  It calls
+ *	Tk_MakeWindowExist on each of its arguments to force the windows
+ *	to be created.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Forces windows to be created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+TestmakeexistCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window for application. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    Tk_Window main = (Tk_Window) clientData;
+    int i;
+    Tk_Window tkwin;
+
+    for (i = 1; i < argc; i++) {
+	tkwin = Tk_NameToWindow(interp, argv[i], main);
+	if (tkwin == NULL) {
+	    return TCL_ERROR;
+	}
+	Tk_MakeWindowExist(tkwin);
+    }
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageCreate --
+ *
+ *	This procedure is called by the Tk image code to create "test"
+ *	images.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	The data structure for a new image is allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ImageCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
+    Tcl_Interp *interp;		/* Interpreter for application containing
+				 * image. */
+    char *name;			/* Name to use for image. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings for options (doesn't
+				 * include image name or type). */
+    Tk_ImageType *typePtr;	/* Pointer to our type record (not used). */
+    Tk_ImageMaster master;	/* Token for image, to be used by us in
+				 * later callbacks. */
+    ClientData *clientDataPtr;	/* Store manager's token for image here;
+				 * it will be returned in later callbacks. */
+{
+    TImageMaster *timPtr;
+    char *varName;
+    int i;
+
+    varName = "log";
+    for (i = 0; i < argc; i += 2) {
+	if (strcmp(argv[i], "-variable") != 0) {
+	    Tcl_AppendResult(interp, "bad option name \"", argv[i],
+		    "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((i+1) == argc) {
+	    Tcl_AppendResult(interp, "no value given for \"", argv[i],
+		    "\" option", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	varName = argv[i+1];
+    }
+    timPtr = (TImageMaster *) ckalloc(sizeof(TImageMaster));
+    timPtr->master = master;
+    timPtr->interp = interp;
+    timPtr->width = 30;
+    timPtr->height = 15;
+    timPtr->imageName = (char *) ckalloc((unsigned) (strlen(name) + 1));
+    strcpy(timPtr->imageName, name);
+    timPtr->varName = (char *) ckalloc((unsigned) (strlen(varName) + 1));
+    strcpy(timPtr->varName, varName);
+    Tcl_CreateCommand(interp, name, ImageCmd, (ClientData) timPtr,
+	    (Tcl_CmdDeleteProc *) NULL);
+    *clientDataPtr = (ClientData) timPtr;
+    Tk_ImageChanged(master, 0, 0, 30, 15, 30, 15);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageCmd --
+ *
+ *	This procedure implements the commands corresponding to individual
+ *	images. 
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Forces windows to be created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+ImageCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window for application. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    TImageMaster *timPtr = (TImageMaster *) clientData;
+    int x, y, width, height;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], "option ?arg arg ...?", (char *) NULL);
+	return TCL_ERROR;
+    }
+    if (strcmp(argv[1], "changed") == 0) {
+	if (argc != 8) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " changed x y width height imageWidth imageHeight",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if ((Tcl_GetInt(interp, argv[2], &x) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[3], &y) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[5], &height) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[6], &timPtr->width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[7], &timPtr->height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	Tk_ImageChanged(timPtr->master, x, y, width, height, timPtr->width,
+		timPtr->height);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be changed", (char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageGet --
+ *
+ *	This procedure is called by Tk to set things up for using a
+ *	test image in a particular widget.
+ *
+ * Results:
+ *	The return value is a token for the image instance, which is
+ *	used in future callbacks to ImageDisplay and ImageFree.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static ClientData
+ImageGet(tkwin, clientData)
+    Tk_Window tkwin;		/* Token for window in which image will
+				 * be used. */
+    ClientData clientData;	/* Pointer to TImageMaster for image. */
+{
+    TImageMaster *timPtr = (TImageMaster *) clientData;
+    TImageInstance *instPtr;
+    char buffer[100];
+    XGCValues gcValues;
+
+    sprintf(buffer, "%s get", timPtr->imageName);
+    Tcl_SetVar(timPtr->interp, timPtr->varName, buffer,
+	    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+
+    instPtr = (TImageInstance *) ckalloc(sizeof(TImageInstance));
+    instPtr->masterPtr = timPtr;
+    instPtr->fg = Tk_GetColor(timPtr->interp, tkwin, "#ff0000");
+    gcValues.foreground = instPtr->fg->pixel;
+    instPtr->gc = Tk_GetGC(tkwin, GCForeground, &gcValues);
+    return (ClientData) instPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageDisplay --
+ *
+ *	This procedure is invoked to redisplay part or all of an
+ *	image in a given drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The image gets partially redrawn, as an "X" that shows the
+ *	exact redraw area.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImageDisplay(clientData, display, drawable, imageX, imageY, width, height,
+	drawableX, drawableY)
+    ClientData clientData;	/* Pointer to TImageInstance for image. */
+    Display *display;		/* Display to use for drawing. */
+    Drawable drawable;		/* Where to redraw image. */
+    int imageX, imageY;		/* Origin of area to redraw, relative to
+				 * origin of image. */
+    int width, height;		/* Dimensions of area to redraw. */
+    int drawableX, drawableY;	/* Coordinates in drawable corresponding to
+				 * imageX and imageY. */
+{
+    TImageInstance *instPtr = (TImageInstance *) clientData;
+    char buffer[200];
+
+    sprintf(buffer, "%s display %d %d %d %d %d %d",
+	    instPtr->masterPtr->imageName, imageX, imageY, width, height,
+	    drawableX, drawableY);
+    Tcl_SetVar(instPtr->masterPtr->interp, instPtr->masterPtr->varName, buffer,
+	    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+    if (width > (instPtr->masterPtr->width - imageX)) {
+	width = instPtr->masterPtr->width - imageX;
+    }
+    if (height > (instPtr->masterPtr->height - imageY)) {
+	height = instPtr->masterPtr->height - imageY;
+    }
+    XDrawRectangle(display, drawable, instPtr->gc, drawableX, drawableY,
+	    (unsigned) (width-1), (unsigned) (height-1));
+    XDrawLine(display, drawable, instPtr->gc, drawableX, drawableY,
+	    (int) (drawableX + width - 1), (int) (drawableY + height - 1));
+    XDrawLine(display, drawable, instPtr->gc, drawableX,
+	    (int) (drawableY + height - 1),
+	    (int) (drawableX + width - 1), drawableY);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageFree --
+ *
+ *	This procedure is called when an instance of an image is
+ * 	no longer used.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information related to the instance is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImageFree(clientData, display)
+    ClientData clientData;	/* Pointer to TImageInstance for instance. */
+    Display *display;		/* Display where image was to be drawn. */
+{
+    TImageInstance *instPtr = (TImageInstance *) clientData;
+    char buffer[200];
+
+    sprintf(buffer, "%s free", instPtr->masterPtr->imageName);
+    Tcl_SetVar(instPtr->masterPtr->interp, instPtr->masterPtr->varName, buffer,
+	    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+    Tk_FreeColor(instPtr->fg);
+    Tk_FreeGC(display, instPtr->gc);
+    ckfree((char *) instPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ImageDelete --
+ *
+ *	This procedure is called to clean up a test image when
+ *	an application goes away.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information about the image is deleted.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ImageDelete(clientData)
+    ClientData clientData;	/* Pointer to TImageMaster for image.  When
+				 * this procedure is called, no more
+				 * instances exist. */
+{
+    TImageMaster *timPtr = (TImageMaster *) clientData;
+    char buffer[100];
+
+    sprintf(buffer, "%s delete", timPtr->imageName);
+    Tcl_SetVar(timPtr->interp, timPtr->varName, buffer,
+	    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+
+    Tcl_DeleteCommand(timPtr->interp, timPtr->imageName);
+    ckfree(timPtr->imageName);
+    ckfree(timPtr->varName);
+    ckfree((char *) timPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TestsendCmd --
+ *
+ *	This procedure implements the "testsend" command.  It provides
+ *	a set of functions for testing the "send" command and support
+ *	procedure in tkSend.c.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Depends on option;  see below.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+TestsendCmd(clientData, interp, argc, argv)
+    ClientData clientData;		/* Main window for application. */
+    Tcl_Interp *interp;			/* Current interpreter. */
+    int argc;				/* Number of arguments. */
+    char **argv;			/* Argument strings. */
+{
+    TkWindow *winPtr = (TkWindow *) clientData;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args;  must be \"", argv[0],
+		" option ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+#ifndef __WIN32__
+    if (strcmp(argv[1], "bogus") == 0) {
+	XChangeProperty(winPtr->dispPtr->display,
+		RootWindow(winPtr->dispPtr->display, 0),
+		winPtr->dispPtr->registryProperty, XA_INTEGER, 32,
+		PropModeReplace,
+		(unsigned char *) "This is bogus information", 6);
+    } else if (strcmp(argv[1], "prop") == 0) {
+	int result, actualFormat, length;
+	unsigned long bytesAfter;
+	Atom actualType, propName;
+	char *property, *p, *end;
+	Window w;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args;  must be \"", argv[0],
+		    " prop window name ?value ?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (strcmp(argv[2], "root") == 0) {
+	    w = RootWindow(winPtr->dispPtr->display, 0);
+	} else if (strcmp(argv[2], "comm") == 0) {
+	    w = Tk_WindowId(winPtr->dispPtr->commTkwin);
+	} else {
+	    w = strtoul(argv[2], &end, 0);
+	}
+	propName = Tk_InternAtom((Tk_Window) winPtr, argv[3]);
+	if (argc == 4) {
+	    property = NULL;
+	    result = XGetWindowProperty(winPtr->dispPtr->display,
+		    w, propName, 0, 100000, False, XA_STRING,
+		    &actualType, &actualFormat, (unsigned long *) &length,
+		    &bytesAfter, (unsigned char **) &property);
+	    if ((result == Success) && (actualType != None)
+		    && (actualFormat == 8) && (actualType == XA_STRING)) {
+		for (p = property; (p-property) < length; p++) {
+		    if (*p == 0) {
+			*p = '\n';
+		    }
+		}
+		Tcl_SetResult(interp, property, TCL_VOLATILE);
+	    }
+	    if (property != NULL) {
+		XFree(property);
+	    }
+	} else {
+	    if (argv[4][0] == 0) {
+		XDeleteProperty(winPtr->dispPtr->display, w, propName);
+	    } else {
+		for (p = argv[4]; *p != 0; p++) {
+		    if (*p == '\n') {
+			*p = 0;
+		    }
+		}
+		XChangeProperty(winPtr->dispPtr->display,
+			w, propName, XA_STRING, 8, PropModeReplace,
+			(unsigned char *) argv[4], p-argv[4]);
+	    }
+	}
+    } else if (strcmp(argv[1], "serial") == 0) {
+	sprintf(interp->result, "%d", tkSendSerial+1);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be bogus, prop, or serial", (char *) NULL);
+	return TCL_ERROR;
+    }
+#endif
+    return TCL_OK;
+}
diff --git a/Tk/generic/tkText.c b/Tk/generic/tkText.c
new file mode 100644
index 0000000..e042c31
--- /dev/null
+++ b/Tk/generic/tkText.c
@@ -0,0 +1,2235 @@
+/* 
+ * tkText.c --
+ *
+ *	This module provides a big chunk of the implementation of
+ *	multi-line editable text widgets for Tk.  Among other things,
+ *	it provides the Tcl command interfaces to text widgets and
+ *	the display code.  The B-tree representation of text is
+ *	implemented elsewhere.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkText.c 1.91 96/05/16 13:19:58
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tkInt.h"
+
+#ifdef MAC_TCL
+#define Style TkStyle
+#define DInfo TkDInfo
+#endif
+
+#include "tkText.h"
+
+/*
+ * Information used to parse text configuration options:
+ */
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_TEXT_BG_COLOR, Tk_Offset(TkText, border), TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-background", "background", "Background",
+	DEF_TEXT_BG_MONO, Tk_Offset(TkText, border), TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_SYNONYM, "-bd", "borderWidth", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_SYNONYM, "-bg", "background", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
+	DEF_TEXT_BORDER_WIDTH, Tk_Offset(TkText, borderWidth), 0},
+    {TK_CONFIG_ACTIVE_CURSOR, "-cursor", "cursor", "Cursor",
+	DEF_TEXT_CURSOR, Tk_Offset(TkText, cursor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BOOLEAN, "-exportselection", "exportSelection",
+	"ExportSelection", DEF_TEXT_EXPORT_SELECTION,
+	Tk_Offset(TkText, exportSelection), 0},
+    {TK_CONFIG_SYNONYM, "-fg", "foreground", (char *) NULL,
+	(char *) NULL, 0, 0},
+    {TK_CONFIG_FONT, "-font", "font", "Font",
+	DEF_TEXT_FONT, Tk_Offset(TkText, fontPtr), 0},
+    {TK_CONFIG_COLOR, "-foreground", "foreground", "Foreground",
+	DEF_TEXT_FG, Tk_Offset(TkText, fgColor), 0},
+    {TK_CONFIG_PIXELS, "-height", "height", "Height",
+	DEF_TEXT_HEIGHT, Tk_Offset(TkText, height), 0},
+    {TK_CONFIG_COLOR, "-highlightbackground", "highlightBackground",
+	"HighlightBackground", DEF_TEXT_HIGHLIGHT_BG,
+	Tk_Offset(TkText, highlightBgColorPtr), 0},
+    {TK_CONFIG_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
+	DEF_TEXT_HIGHLIGHT, Tk_Offset(TkText, highlightColorPtr), 0},
+    {TK_CONFIG_PIXELS, "-highlightthickness", "highlightThickness",
+	"HighlightThickness",
+	DEF_TEXT_HIGHLIGHT_WIDTH, Tk_Offset(TkText, highlightWidth), 0},
+    {TK_CONFIG_BORDER, "-insertbackground", "insertBackground", "Foreground",
+	DEF_TEXT_INSERT_BG, Tk_Offset(TkText, insertBorder), 0},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_TEXT_INSERT_BD_COLOR, Tk_Offset(TkText, insertBorderWidth),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_PIXELS, "-insertborderwidth", "insertBorderWidth", "BorderWidth",
+	DEF_TEXT_INSERT_BD_MONO, Tk_Offset(TkText, insertBorderWidth),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_INT, "-insertofftime", "insertOffTime", "OffTime",
+	DEF_TEXT_INSERT_OFF_TIME, Tk_Offset(TkText, insertOffTime), 0},
+    {TK_CONFIG_INT, "-insertontime", "insertOnTime", "OnTime",
+	DEF_TEXT_INSERT_ON_TIME, Tk_Offset(TkText, insertOnTime), 0},
+    {TK_CONFIG_PIXELS, "-insertwidth", "insertWidth", "InsertWidth",
+	DEF_TEXT_INSERT_WIDTH, Tk_Offset(TkText, insertWidth), 0},
+    {TK_CONFIG_PIXELS, "-padx", "padX", "Pad",
+	DEF_TEXT_PADX, Tk_Offset(TkText, padX), 0},
+    {TK_CONFIG_PIXELS, "-pady", "padY", "Pad",
+	DEF_TEXT_PADY, Tk_Offset(TkText, padY), 0},
+    {TK_CONFIG_RELIEF, "-relief", "relief", "Relief",
+	DEF_TEXT_RELIEF, Tk_Offset(TkText, relief), 0},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_TEXT_SELECT_COLOR, Tk_Offset(TkText, selBorder),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_BORDER, "-selectbackground", "selectBackground", "Foreground",
+	DEF_TEXT_SELECT_MONO, Tk_Offset(TkText, selBorder),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_STRING, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_TEXT_SELECT_BD_COLOR, Tk_Offset(TkText, selBdString),
+	TK_CONFIG_COLOR_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-selectborderwidth", "selectBorderWidth", "BorderWidth",
+	DEF_TEXT_SELECT_BD_MONO, Tk_Offset(TkText, selBdString),
+	TK_CONFIG_MONO_ONLY|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_TEXT_SELECT_FG_COLOR, Tk_Offset(TkText, selFgColorPtr),
+	TK_CONFIG_COLOR_ONLY},
+    {TK_CONFIG_COLOR, "-selectforeground", "selectForeground", "Background",
+	DEF_TEXT_SELECT_FG_MONO, Tk_Offset(TkText, selFgColorPtr),
+	TK_CONFIG_MONO_ONLY},
+    {TK_CONFIG_BOOLEAN, "-setgrid", "setGrid", "SetGrid",
+	DEF_TEXT_SET_GRID, Tk_Offset(TkText, setGrid), 0},
+    {TK_CONFIG_PIXELS, "-spacing1", "spacing1", "Spacing",
+	DEF_TEXT_SPACING1, Tk_Offset(TkText, spacing1),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_PIXELS, "-spacing2", "spacing2", "Spacing",
+	DEF_TEXT_SPACING2, Tk_Offset(TkText, spacing2),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_PIXELS, "-spacing3", "spacing3", "Spacing",
+	DEF_TEXT_SPACING3, Tk_Offset(TkText, spacing3),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_UID, "-state", "state", "State",
+	DEF_TEXT_STATE, Tk_Offset(TkText, state), 0},
+    {TK_CONFIG_STRING, "-tabs", "tabs", "Tabs",
+	DEF_TEXT_TABS, Tk_Offset(TkText, tabOptionString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-takefocus", "takeFocus", "TakeFocus",
+#else
+    {TK_CONFIG_STRING, "-takefocus", "takeFocus", "TakeFocus",
+#endif
+	DEF_TEXT_TAKE_FOCUS, Tk_Offset(TkText, takeFocus),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-width", "width", "Width",
+	DEF_TEXT_WIDTH, Tk_Offset(TkText, width), 0},
+    {TK_CONFIG_UID, "-wrap", "wrap", "Wrap",
+	DEF_TEXT_WRAP, Tk_Offset(TkText, wrapMode), 0},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-xscrollcommand", "xScrollCommand", "ScrollCommand",
+#endif
+	DEF_TEXT_XSCROLL_COMMAND, Tk_Offset(TkText, xScrollCmd),
+	TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#else
+    {TK_CONFIG_STRING, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
+#endif
+	DEF_TEXT_YSCROLL_COMMAND, Tk_Offset(TkText, yScrollCmd),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Tk_Uid's used to represent text states:
+ */
+
+Tk_Uid tkTextCharUid = NULL;
+Tk_Uid tkTextDisabledUid = NULL;
+Tk_Uid tkTextNoneUid = NULL;
+Tk_Uid tkTextNormalUid = NULL;
+Tk_Uid tkTextWordUid = NULL;
+
+/*
+ * Boolean variable indicating whether or not special debugging code
+ * should be executed.
+ */
+
+int tkTextDebug = 0;
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static int		ConfigureText _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, int argc, char **argv, int flags));
+static int		DeleteChars _ANSI_ARGS_((TkText *textPtr,
+			    char *index1String, char *index2String));
+static void		DestroyText _ANSI_ARGS_((char *memPtr));
+static void		InsertChars _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, char *string));
+static void		TextBlinkProc _ANSI_ARGS_((ClientData clientData));
+static void		TextCmdDeletedProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		TextEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static int		TextFetchSelection _ANSI_ARGS_((ClientData clientData,
+			    int offset, char *buffer, int maxBytes));
+static int		TextSearchCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TextWidgetCmd _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static int		TextDumpCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		DumpLine _ANSI_ARGS_((Tcl_Interp *interp, 
+			    TkText *textPtr, int what, TkTextLine *linePtr,
+			    int start, int end, int lineno, char *command));
+static int		DumpSegment _ANSI_ARGS_((Tcl_Interp *interp, char *key,
+			    char *value, char * command, int lineno, int offset,
+			    int what));
+
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_TextCmd --
+ *
+ *	This procedure is invoked to process the "text" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+Tk_TextCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    Tk_Window new;
+    register TkText *textPtr;
+    TkTextIndex startIndex;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " pathName ?options?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * Perform once-only initialization:
+     */
+
+    if (tkTextNormalUid == NULL) {
+	tkTextCharUid = Tk_GetUid("char");
+	tkTextDisabledUid = Tk_GetUid("disabled");
+	tkTextNoneUid = Tk_GetUid("none");
+	tkTextNormalUid = Tk_GetUid("normal");
+	tkTextWordUid = Tk_GetUid("word");
+    }
+
+    /*
+     * Create the window.
+     */
+
+    new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
+    if (new == NULL) {
+	return TCL_ERROR;
+    }
+
+    textPtr = (TkText *) ckalloc(sizeof(TkText));
+    textPtr->tkwin = new;
+    textPtr->display = Tk_Display(new);
+    textPtr->interp = interp;
+    textPtr->widgetCmd = Tcl_CreateCommand(interp,
+	    Tk_PathName(textPtr->tkwin), TextWidgetCmd,
+	    (ClientData) textPtr, TextCmdDeletedProc);
+    textPtr->tree = TkBTreeCreate(textPtr);
+    Tcl_InitHashTable(&textPtr->tagTable, TCL_STRING_KEYS);
+    textPtr->numTags = 0;
+    Tcl_InitHashTable(&textPtr->markTable, TCL_STRING_KEYS);
+    Tcl_InitHashTable(&textPtr->windowTable, TCL_STRING_KEYS);
+    textPtr->state = tkTextNormalUid;
+    textPtr->border = NULL;
+    textPtr->borderWidth = 0;
+    textPtr->padX = 0;
+    textPtr->padY = 0;
+    textPtr->relief = TK_RELIEF_FLAT;
+    textPtr->highlightWidth = 0;
+    textPtr->highlightBgColorPtr = NULL;
+    textPtr->highlightColorPtr = NULL;
+    textPtr->cursor = None;
+    textPtr->fgColor = NULL;
+    textPtr->fontPtr = NULL;
+    textPtr->charWidth = 1;
+    textPtr->spacing1 = 0;
+    textPtr->spacing2 = 0;
+    textPtr->spacing3 = 0;
+    textPtr->tabOptionString = NULL;
+    textPtr->tabArrayPtr = NULL;
+    textPtr->wrapMode = tkTextCharUid;
+    textPtr->width = 0;
+    textPtr->height = 0;
+    textPtr->setGrid = 0;
+    textPtr->prevWidth = Tk_Width(new);
+    textPtr->prevHeight = Tk_Height(new);
+    TkTextCreateDInfo(textPtr);
+    TkTextMakeIndex(textPtr->tree, 0, 0, &startIndex);
+    TkTextSetYView(textPtr, &startIndex, 0);
+    textPtr->selTagPtr = NULL;
+    textPtr->selBorder = NULL;
+    textPtr->selBdString = NULL;
+    textPtr->selFgColorPtr = NULL;
+    textPtr->exportSelection = 1;
+    textPtr->abortSelections = 0;
+    textPtr->insertMarkPtr = NULL;
+    textPtr->insertBorder = NULL;
+    textPtr->insertWidth = 0;
+    textPtr->insertBorderWidth = 0;
+    textPtr->insertOnTime = 0;
+    textPtr->insertOffTime = 0;
+    textPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+    textPtr->bindingTable = NULL;
+    textPtr->currentMarkPtr = NULL;
+    textPtr->pickEvent.type = LeaveNotify;
+    textPtr->pickEvent.xcrossing.x = 0;
+    textPtr->pickEvent.xcrossing.y = 0;
+    textPtr->numCurTags = 0;
+    textPtr->curTagArrayPtr = NULL;
+    textPtr->takeFocus = NULL;
+    textPtr->xScrollCmd = NULL;
+    textPtr->yScrollCmd = NULL;
+    textPtr->flags = 0;
+
+    /*
+     * Create the "sel" tag and the "current" and "insert" marks.
+     */
+
+    textPtr->selTagPtr = TkTextCreateTag(textPtr, "sel");
+    textPtr->selTagPtr->reliefString = (char *) ckalloc(7);
+    strcpy(textPtr->selTagPtr->reliefString, "raised");
+    textPtr->selTagPtr->relief = TK_RELIEF_RAISED;
+    textPtr->currentMarkPtr = TkTextSetMark(textPtr, "current", &startIndex);
+    textPtr->insertMarkPtr = TkTextSetMark(textPtr, "insert", &startIndex);
+
+    Tk_SetClass(new, "Text");
+    Tk_CreateEventHandler(textPtr->tkwin,
+	    ExposureMask|StructureNotifyMask|FocusChangeMask,
+	    TextEventProc, (ClientData) textPtr);
+    Tk_CreateEventHandler(textPtr->tkwin, KeyPressMask|KeyReleaseMask
+	    |ButtonPressMask|ButtonReleaseMask|EnterWindowMask
+	    |LeaveWindowMask|PointerMotionMask, TkTextBindProc,
+	    (ClientData) textPtr);
+    Tk_CreateSelHandler(textPtr->tkwin, XA_PRIMARY, XA_STRING,
+	    TextFetchSelection, (ClientData) textPtr, XA_STRING);
+    if (ConfigureText(interp, textPtr, argc-2, argv+2, 0) != TCL_OK) {
+	Tk_DestroyWindow(textPtr->tkwin);
+	return TCL_ERROR;
+    }
+#ifdef STk_CODE
+    STk_sharp_dot_result(interp, Tk_PathName(textPtr->tkwin));
+#else
+    interp->result = Tk_PathName(textPtr->tkwin);
+#endif
+
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextWidgetCmd --
+ *
+ *	This procedure is invoked to process the Tcl command
+ *	that corresponds to a text widget.  See the user
+ *	documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+TextWidgetCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    int result = TCL_OK;
+    size_t length;
+    int c;
+    TkTextIndex index1, index2;
+
+    if (argc < 2) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_Preserve((ClientData) textPtr);
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 'b') && (strncmp(argv[1], "bbox", length) == 0)) {
+	int x, y, width, height;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " bbox index\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextCharBbox(textPtr, &index1, &x, &y, &width, &height) == 0) {
+	    sprintf(interp->result, "%d %d %d %d", x, y, width, height);
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " cget option\"",
+		    (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	result = Tk_ConfigureValue(interp, textPtr->tkwin, configSpecs,
+		(char *) textPtr, argv[2], 0);
+    } else if ((c == 'c') && (strncmp(argv[1], "compare", length) == 0)
+	    && (length >= 3)) {
+	int relation, value;
+	char *p;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " compare index1 op index2\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if ((TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK)
+		|| (TkTextGetIndex(interp, textPtr, argv[4], &index2)
+		!= TCL_OK)) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	relation = TkTextIndexCmp(&index1, &index2);
+	p = argv[3];
+	if (p[0] == '<') {
+		value = (relation < 0);
+	    if ((p[1] == '=') && (p[2] == 0)) {
+		value = (relation <= 0);
+	    } else if (p[1] != 0) {
+		compareError:
+		Tcl_AppendResult(interp, "bad comparison operator \"",
+			argv[3], "\": must be <, <=, ==, >=, >, or !=",
+			(char *) NULL);
+		result = TCL_ERROR;
+		goto done;
+	    }
+	} else if (p[0] == '>') {
+		value = (relation > 0);
+	    if ((p[1] == '=') && (p[2] == 0)) {
+		value = (relation >= 0);
+	    } else if (p[1] != 0) {
+		goto compareError;
+	    }
+	} else if ((p[0] == '=') && (p[1] == '=') && (p[2] == 0)) {
+	    value = (relation == 0);
+	} else if ((p[0] == '!') && (p[1] == '=') && (p[2] == 0)) {
+	    value = (relation != 0);
+	} else {
+	    goto compareError;
+	}
+#ifdef STk_CODE
+	interp->result = (value) ? "#t" : "#f";
+#else
+	interp->result = (value) ? "1" : "0";
+#endif
+    } else if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)
+	    && (length >= 3)) {
+	if (argc == 2) {
+	    result = Tk_ConfigureInfo(interp, textPtr->tkwin, configSpecs,
+		    (char *) textPtr, (char *) NULL, 0);
+	} else if (argc == 3) {
+	    result = Tk_ConfigureInfo(interp, textPtr->tkwin, configSpecs,
+		    (char *) textPtr, argv[2], 0);
+	} else {
+	    result = ConfigureText(interp, textPtr, argc-2, argv+2,
+		    TK_CONFIG_ARGV_ONLY);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "debug", length) == 0)
+	    && (length >= 3)) {
+	if (argc > 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " debug boolean\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (argc == 2) {
+#ifdef STk_CODE
+	    interp->result = (tkBTreeDebug) ? "#t" : "#f";
+#else
+	    interp->result = (tkBTreeDebug) ? "1" : "0";
+#endif
+	} else {
+	    if (Tcl_GetBoolean(interp, argv[2], &tkBTreeDebug) != TCL_OK) {
+		result = TCL_ERROR;
+		goto done;
+	    }
+	    tkTextDebug = tkBTreeDebug;
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "delete", length) == 0)
+	    && (length >= 3)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " delete index1 ?index2?\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (textPtr->state == tkTextNormalUid) {
+	    result = DeleteChars(textPtr, argv[2],
+		    (argc == 4) ? argv[3] : (char *) NULL);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "dlineinfo", length) == 0)
+	    && (length >= 2)) {
+	int x, y, width, height, base;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " dlineinfo index\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextDLineInfo(textPtr, &index1, &x, &y, &width, &height, &base)
+		== 0) {
+	    sprintf(interp->result, "%d %d %d %d %d", x, y, width,
+		    height, base);
+	}
+    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " get index1 ?index2?\"", (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (argc == 3) {
+	    index2 = index1;
+	    TkTextIndexForwChars(&index2, 1, &index2);
+	} else if (TkTextGetIndex(interp, textPtr, argv[3], &index2)
+		!= TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextIndexCmp(&index1, &index2) >= 0) {
+#ifdef STk_CODE
+	    interp->result = "\"\"";
+#endif
+	    goto done;
+	}
+	while (1) {
+	    int offset, last, savedChar;
+	    TkTextSegment *segPtr;
+
+	    segPtr = TkTextIndexToSeg(&index1, &offset);
+	    last = segPtr->size;
+	    if (index1.linePtr == index2.linePtr) {
+		int last2;
+
+		if (index2.charIndex == index1.charIndex) {
+		    break;
+		}
+		last2 = index2.charIndex - index1.charIndex + offset;
+		if (last2 < last) {
+		    last = last2;
+		}
+	    }
+	    if (segPtr->typePtr == &tkTextCharType) {
+		savedChar = segPtr->body.chars[last];
+		segPtr->body.chars[last] = 0;
+		Tcl_AppendResult(interp, segPtr->body.chars + offset,
+			(char *) NULL);
+		segPtr->body.chars[last] = savedChar;
+	    }
+	    TkTextIndexForwChars(&index1, last-offset, &index1);
+	}
+#ifdef STk_CODE
+	STk_stringify_result(interp, interp->result);
+#endif
+    } else if ((c == 'i') && (strncmp(argv[1], "index", length) == 0)
+	    && (length >= 3)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " index index\"",
+		    (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	TkTextPrintIndex(&index1, interp->result);
+    } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
+	    && (length >= 3)) {
+	int i, j, numTags;
+	char **tagNames;
+	TkTextTag **oldTagArrayPtr;
+
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0],
+		    " insert index chars ?tagList chars tagList ...?\"",
+		    (char *) NULL);
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
+	    result = TCL_ERROR;
+	    goto done;
+	}
+	if (textPtr->state == tkTextNormalUid) {
+	    for (j = 3;  j < argc; j += 2) {
+		InsertChars(textPtr, &index1, argv[j]);
+		if (argc > (j+1)) {
+		    TkTextIndexForwChars(&index1, (int) strlen(argv[j]),
+			    &index2);
+		    oldTagArrayPtr = TkBTreeGetTags(&index1, &numTags);
+		    if (oldTagArrayPtr != NULL) {
+			for (i = 0; i < numTags; i++) {
+			    TkBTreeTag(&index1, &index2, oldTagArrayPtr[i], 0);
+			}
+			ckfree((char *) oldTagArrayPtr);
+		    }
+		    if (Tcl_SplitList(interp, argv[j+1], &numTags, &tagNames)
+			    != TCL_OK) {
+			result = TCL_ERROR;
+			goto done;
+		    }
+		    for (i = 0; i < numTags; i++) {
+			TkBTreeTag(&index1, &index2,
+				TkTextCreateTag(textPtr, tagNames[i]), 1);
+		    }
+		    ckfree((char *) tagNames);
+		    index1 = index2;
+		}
+	    }
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "dump", length) == 0)) {
+	result = TextDumpCmd(textPtr, interp, argc, argv);
+    } else if ((c == 'm') && (strncmp(argv[1], "mark", length) == 0)) {
+	result = TkTextMarkCmd(textPtr, interp, argc, argv);
+    } else if ((c == 's') && (strcmp(argv[1], "scan") == 0) && (length >= 2)) {
+	result = TkTextScanCmd(textPtr, interp, argc, argv);
+    } else if ((c == 's') && (strcmp(argv[1], "search") == 0)
+	    && (length >= 3)) {
+	result = TextSearchCmd(textPtr, interp, argc, argv);
+    } else if ((c == 's') && (strcmp(argv[1], "see") == 0) && (length >= 3)) {
+	result = TkTextSeeCmd(textPtr, interp, argc, argv);
+    } else if ((c == 't') && (strcmp(argv[1], "tag") == 0)) {
+	result = TkTextTagCmd(textPtr, interp, argc, argv);
+    } else if ((c == 'w') && (strncmp(argv[1], "window", length) == 0)) {
+	result = TkTextWindowCmd(textPtr, interp, argc, argv);
+    } else if ((c == 'x') && (strncmp(argv[1], "xview", length) == 0)) {
+	result = TkTextXviewCmd(textPtr, interp, argc, argv);
+    } else if ((c == 'y') && (strncmp(argv[1], "yview", length) == 0)
+	    && (length >= 2)) {
+	result = TkTextYviewCmd(textPtr, interp, argc, argv);
+    } else {
+	Tcl_AppendResult(interp, "bad option \"", argv[1],
+		"\": must be bbox, cget, compare, configure, debug, delete, ",
+		"dlineinfo, get, index, insert, mark, scan, search, see, ",
+		"tag, window, xview, or yview",
+		(char *) NULL);
+	result = TCL_ERROR;
+    }
+
+    done:
+    Tcl_Release((ClientData) textPtr);
+    return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyText --
+ *
+ *	This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
+ *	to clean up the internal structure of a text at a safe time
+ *	(when no-one is using it anymore).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Everything associated with the text is freed up.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyText(memPtr)
+    char *memPtr;		/* Info about text widget. */
+{
+    register TkText *textPtr = (TkText *) memPtr;
+    Tcl_HashSearch search;
+    Tcl_HashEntry *hPtr;
+    TkTextTag *tagPtr;
+
+    /*
+     * Free up all the stuff that requires special handling, then
+     * let Tk_FreeOptions handle all the standard option-related
+     * stuff.  Special note:  free up display-related information
+     * before deleting the B-tree, since display-related stuff
+     * may refer to stuff in the B-tree.
+     */
+
+    TkTextFreeDInfo(textPtr);
+    TkBTreeDestroy(textPtr->tree);
+    for (hPtr = Tcl_FirstHashEntry(&textPtr->tagTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	tagPtr = (TkTextTag *) Tcl_GetHashValue(hPtr);
+	TkTextFreeTag(textPtr, tagPtr);
+    }
+    Tcl_DeleteHashTable(&textPtr->tagTable);
+    for (hPtr = Tcl_FirstHashEntry(&textPtr->markTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	ckfree((char *) Tcl_GetHashValue(hPtr));
+    }
+    Tcl_DeleteHashTable(&textPtr->markTable);
+    if (textPtr->tabArrayPtr != NULL) {
+	ckfree((char *) textPtr->tabArrayPtr);
+    }
+    if (textPtr->insertBlinkHandler != NULL) {
+	Tcl_DeleteTimerHandler(textPtr->insertBlinkHandler);
+    }
+    if (textPtr->bindingTable != NULL) {
+	Tk_DeleteBindingTable(textPtr->bindingTable);
+    }
+
+    /*
+     * NOTE: do NOT free up selBorder, selBdString, or selFgColorPtr:
+     * they are duplicates of information in the "sel" tag, which was
+     * freed up as part of deleting the tags above.
+     */
+
+    textPtr->selBorder = NULL;
+    textPtr->selBdString = NULL;
+    textPtr->selFgColorPtr = NULL;
+    Tk_FreeOptions(configSpecs, (char *) textPtr, textPtr->display, 0);
+    ckfree((char *) textPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureText --
+ *
+ *	This procedure is called to process an argv/argc list, plus
+ *	the Tk option database, in order to configure (or
+ *	reconfigure) a text widget.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message.
+ *
+ * Side effects:
+ *	Configuration information, such as text string, colors, font,
+ *	etc. get set for textPtr;  old resources get freed, if there
+ *	were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureText(interp, textPtr, argc, argv, flags)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    register TkText *textPtr;	/* Information about widget;  may or may
+				 * not already have values for some fields. */
+    int argc;			/* Number of valid entries in argv. */
+    char **argv;		/* Arguments. */
+    int flags;			/* Flags to pass to Tk_ConfigureWidget. */
+{
+    int oldExport = textPtr->exportSelection;
+    int charHeight;
+
+    if (Tk_ConfigureWidget(interp, textPtr->tkwin, configSpecs,
+	    argc, argv, (char *) textPtr, flags) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * A few other options also need special processing, such as parsing
+     * the geometry and setting the background from a 3-D border.
+     */
+
+    if ((textPtr->state != tkTextNormalUid)
+	    && (textPtr->state != tkTextDisabledUid)) {
+	Tcl_AppendResult(interp, "bad state value \"", textPtr->state,
+		"\": must be normal or disabled", (char *) NULL);
+	textPtr->state = tkTextNormalUid;
+	return TCL_ERROR;
+    }
+
+    if ((textPtr->wrapMode != tkTextCharUid)
+	    && (textPtr->wrapMode != tkTextNoneUid)
+	    && (textPtr->wrapMode != tkTextWordUid)) {
+	Tcl_AppendResult(interp, "bad wrap mode \"", textPtr->wrapMode,
+		"\": must be char, none, or word", (char *) NULL);
+	textPtr->wrapMode = tkTextCharUid;
+	return TCL_ERROR;
+    }
+
+    Tk_SetBackgroundFromBorder(textPtr->tkwin, textPtr->border);
+
+    /*
+     * Don't allow negative spacings.
+     */
+
+    if (textPtr->spacing1 < 0) {
+	textPtr->spacing1 = 0;
+    }
+    if (textPtr->spacing2 < 0) {
+	textPtr->spacing2 = 0;
+    }
+    if (textPtr->spacing3 < 0) {
+	textPtr->spacing3 = 0;
+    }
+
+    /*
+     * Parse tab stops.
+     */
+
+    if (textPtr->tabArrayPtr != NULL) {
+	ckfree((char *) textPtr->tabArrayPtr);
+	textPtr->tabArrayPtr = NULL;
+    }
+    if (textPtr->tabOptionString != NULL) {
+	textPtr->tabArrayPtr = TkTextGetTabs(interp, textPtr->tkwin,
+		textPtr->tabOptionString);
+	if (textPtr->tabArrayPtr == NULL) {
+	    Tcl_AddErrorInfo(interp,"\n    (while processing -tabs option)");
+	    return TCL_ERROR;
+	}
+    }
+
+    /*
+     * Make sure that configuration options are properly mirrored
+     * between the widget record and the "sel" tags.  NOTE: we don't
+     * have to free up information during the mirroring;  old
+     * information was freed when it was replaced in the widget
+     * record.
+     */
+
+    textPtr->selTagPtr->border = textPtr->selBorder;
+    if (textPtr->selTagPtr->bdString != textPtr->selBdString) {
+	textPtr->selTagPtr->bdString = textPtr->selBdString;
+	if (textPtr->selBdString != NULL) {
+	    if (Tk_GetPixels(interp, textPtr->tkwin, textPtr->selBdString,
+		    &textPtr->selTagPtr->borderWidth) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (textPtr->selTagPtr->borderWidth < 0) {
+		textPtr->selTagPtr->borderWidth = 0;
+	    }
+	}
+    }
+    textPtr->selTagPtr->fgColor = textPtr->selFgColorPtr;
+    textPtr->selTagPtr->affectsDisplay = 0;
+    if ((textPtr->selTagPtr->border != NULL)
+	    || (textPtr->selTagPtr->bdString != NULL)
+	    || (textPtr->selTagPtr->reliefString != NULL)
+	    || (textPtr->selTagPtr->bgStipple != None)
+	    || (textPtr->selTagPtr->fgColor != NULL)
+	    || (textPtr->selTagPtr->fontPtr != None)
+	    || (textPtr->selTagPtr->fgStipple != None)
+	    || (textPtr->selTagPtr->justifyString != NULL)
+	    || (textPtr->selTagPtr->lMargin1String != NULL)
+	    || (textPtr->selTagPtr->lMargin2String != NULL)
+	    || (textPtr->selTagPtr->offsetString != NULL)
+	    || (textPtr->selTagPtr->overstrikeString != NULL)
+	    || (textPtr->selTagPtr->rMarginString != NULL)
+	    || (textPtr->selTagPtr->spacing1String != NULL)
+	    || (textPtr->selTagPtr->spacing2String != NULL)
+	    || (textPtr->selTagPtr->spacing3String != NULL)
+	    || (textPtr->selTagPtr->tabString != NULL)
+	    || (textPtr->selTagPtr->underlineString != NULL)
+	    || (textPtr->selTagPtr->wrapMode != NULL)) {
+	textPtr->selTagPtr->affectsDisplay = 1;
+    }
+    TkTextRedrawTag(textPtr, (TkTextIndex *) NULL, (TkTextIndex *) NULL,
+	    textPtr->selTagPtr, 1);
+
+    /*
+     * Claim the selection if we've suddenly started exporting it and there
+     * are tagged characters.
+     */
+
+    if (textPtr->exportSelection && (!oldExport)) {
+	TkTextSearch search;
+	TkTextIndex first, last;
+
+	TkTextMakeIndex(textPtr->tree, 0, 0, &first);
+	TkTextMakeIndex(textPtr->tree,
+		TkBTreeNumLines(textPtr->tree), 0, &last);
+	TkBTreeStartSearch(&first, &last, textPtr->selTagPtr, &search);
+	if (TkBTreeCharTagged(&first, textPtr->selTagPtr)
+		|| TkBTreeNextTag(&search)) {
+	    Tk_OwnSelection(textPtr->tkwin, XA_PRIMARY, TkTextLostSelection,
+		    (ClientData) textPtr);
+	    textPtr->flags |= GOT_SELECTION;
+	}
+    }
+
+    /*
+     * Register the desired geometry for the window, and arrange for
+     * the window to be redisplayed.
+     */
+
+    if (textPtr->width <= 0) {
+	textPtr->width = 1;
+    }
+    if (textPtr->height <= 0) {
+	textPtr->height = 1;
+    }
+    textPtr->charWidth = XTextWidth(textPtr->fontPtr, "0", 1);
+    if (textPtr->charWidth <= 0) {
+	textPtr->charWidth = 1;
+    }
+    charHeight = (textPtr->fontPtr->ascent + textPtr->fontPtr->descent);
+    Tk_GeometryRequest(textPtr->tkwin,
+	    textPtr->width * textPtr->charWidth + 2*textPtr->borderWidth
+		    + 2*textPtr->padX + 2*textPtr->highlightWidth,
+	    textPtr->height * charHeight + 2*textPtr->borderWidth
+		    + 2*textPtr->padY + 2*textPtr->highlightWidth);
+    Tk_SetInternalBorder(textPtr->tkwin,
+	    textPtr->borderWidth + textPtr->highlightWidth);
+    if (textPtr->setGrid) {
+	Tk_SetGrid(textPtr->tkwin, textPtr->width, textPtr->height,
+		textPtr->charWidth, charHeight);
+    } else {
+	Tk_UnsetGrid(textPtr->tkwin);
+    }
+
+    TkTextRelayoutWindow(textPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TextEventProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher on
+ *	structure changes to a text.  For texts with 3D
+ *	borders, this procedure is also invoked for exposures.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the window gets deleted, internal structures get
+ *	cleaned up.  When it gets exposed, it is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+TextEventProc(clientData, eventPtr)
+    ClientData clientData;	/* Information about window. */
+    register XEvent *eventPtr;	/* Information about event. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    TkTextIndex index, index2;
+
+    if (eventPtr->type == Expose) {
+	TkTextRedrawRegion(textPtr, eventPtr->xexpose.x,
+		eventPtr->xexpose.y, eventPtr->xexpose.width,
+		eventPtr->xexpose.height);
+    } else if (eventPtr->type == ConfigureNotify) {
+	if ((textPtr->prevWidth != Tk_Width(textPtr->tkwin))
+		|| (textPtr->prevHeight != Tk_Height(textPtr->tkwin))) {
+	    TkTextRelayoutWindow(textPtr);
+	    textPtr->prevWidth = Tk_Width(textPtr->tkwin);
+	    textPtr->prevHeight = Tk_Height(textPtr->tkwin);
+	}
+    } else if (eventPtr->type == DestroyNotify) {
+	if (textPtr->tkwin != NULL) {
+	    if (textPtr->setGrid) {
+		Tk_UnsetGrid(textPtr->tkwin);
+	    }
+	    textPtr->tkwin = NULL;
+	    Tcl_DeleteCommand(textPtr->interp,
+		    Tcl_GetCommandName(textPtr->interp,
+		    textPtr->widgetCmd));
+	}
+	Tcl_EventuallyFree((ClientData) textPtr, DestroyText);
+    } else if ((eventPtr->type == FocusIn) || (eventPtr->type == FocusOut)) {
+	if (eventPtr->xfocus.detail != NotifyInferior) {
+	    Tcl_DeleteTimerHandler(textPtr->insertBlinkHandler);
+	    if (eventPtr->type == FocusIn) {
+		textPtr->flags |= GOT_FOCUS | INSERT_ON;
+		if (textPtr->insertOffTime != 0) {
+		    textPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+			    textPtr->insertOnTime, TextBlinkProc,
+			    (ClientData) textPtr);
+		}
+	    } else {
+		textPtr->flags &= ~(GOT_FOCUS | INSERT_ON);
+		textPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+	    }
+	    TkTextMarkSegToIndex(textPtr, textPtr->insertMarkPtr, &index);
+	    TkTextIndexForwChars(&index, 1, &index2);
+	    TkTextChanged(textPtr, &index, &index2);
+	    if (textPtr->highlightWidth > 0) {
+		TkTextRedrawRegion(textPtr, 0, 0, textPtr->highlightWidth,
+			textPtr->highlightWidth);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextCmdDeletedProc --
+ *
+ *	This procedure is invoked when a widget command is deleted.  If
+ *	the widget isn't already in the process of being destroyed,
+ *	this command destroys it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The widget is destroyed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TextCmdDeletedProc(clientData)
+    ClientData clientData;	/* Pointer to widget record for widget. */
+{
+    TkText *textPtr = (TkText *) clientData;
+    Tk_Window tkwin = textPtr->tkwin;
+
+    /*
+     * This procedure could be invoked either because the window was
+     * destroyed and the command was then deleted (in which case tkwin
+     * is NULL) or because the command was deleted, and then this procedure
+     * destroys the widget.
+     */
+
+    if (tkwin != NULL) {
+	if (textPtr->setGrid) {
+	    Tk_UnsetGrid(textPtr->tkwin);
+	}
+	textPtr->tkwin = NULL;
+	Tk_DestroyWindow(tkwin);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InsertChars --
+ *
+ *	This procedure implements most of the functionality of the
+ *	"insert" widget command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The characters in "string" get added to the text just before
+ *	the character indicated by "indexPtr".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InsertChars(textPtr, indexPtr, string)
+    TkText *textPtr;		/* Overall information about text widget. */
+    TkTextIndex *indexPtr;	/* Where to insert new characters.  May be
+				 * modified and/or invalidated. */
+    char *string;		/* Null-terminated string containing new
+				 * information to add to text. */
+{
+    int lineIndex, resetView, offset;
+    TkTextIndex newTop;
+
+    /*
+     * Don't allow insertions on the last (dummy) line of the text.
+     */
+
+    lineIndex = TkBTreeLineIndex(indexPtr->linePtr);
+    if (lineIndex == TkBTreeNumLines(textPtr->tree)) {
+	lineIndex--;
+	TkTextMakeIndex(textPtr->tree, lineIndex, 1000000, indexPtr);
+    }
+
+    /*
+     * Notify the display module that lines are about to change, then do
+     * the insertion.  If the insertion occurs on the top line of the
+     * widget (textPtr->topIndex), then we have to recompute topIndex
+     * after the insertion, since the insertion could invalidate it.
+     */
+
+    resetView = offset = 0;
+    if (indexPtr->linePtr == textPtr->topIndex.linePtr) {
+	resetView = 1;
+	offset = textPtr->topIndex.charIndex;
+	if (offset > indexPtr->charIndex) {
+	    offset += strlen(string);
+	}
+    }
+    TkTextChanged(textPtr, indexPtr, indexPtr);
+    TkBTreeInsertChars(indexPtr, string);
+    if (resetView) {
+	TkTextMakeIndex(textPtr->tree, lineIndex, 0, &newTop);
+	TkTextIndexForwChars(&newTop, offset, &newTop);
+	TkTextSetYView(textPtr, &newTop, 0);
+    }
+
+    /*
+     * Invalidate any selection retrievals in progress.
+     */
+
+    textPtr->abortSelections = 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteChars --
+ *
+ *	This procedure implements most of the functionality of the
+ *	"delete" widget command.
+ *
+ * Results:
+ *	Returns a standard Tcl result, and leaves an error message
+ *	in textPtr->interp if there is an error.
+ *
+ * Side effects:
+ *	Characters get deleted from the text.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+DeleteChars(textPtr, index1String, index2String)
+    TkText *textPtr;		/* Overall information about text widget. */
+    char *index1String;		/* String describing location of first
+				 * character to delete. */
+    char *index2String;		/* String describing location of last
+				 * character to delete.  NULL means just
+				 * delete the one character given by
+				 * index1String. */
+{
+    int line1, line2, line, charIndex, resetView;
+    TkTextIndex index1, index2;
+
+    /*
+     * Parse the starting and stopping indices.
+     */
+
+    if (TkTextGetIndex(textPtr->interp, textPtr, index1String, &index1)
+	    != TCL_OK) {
+	return TCL_ERROR;
+    }
+    if (index2String != NULL) {
+	if (TkTextGetIndex(textPtr->interp, textPtr, index2String, &index2)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+    } else {
+	index2 = index1;
+	TkTextIndexForwChars(&index2, 1, &index2);
+    }
+
+    /*
+     * Make sure there's really something to delete.
+     */
+
+    if (TkTextIndexCmp(&index1, &index2) >= 0) {
+	return TCL_OK;
+    }
+
+    /*
+     * The code below is ugly, but it's needed to make sure there
+     * is always a dummy empty line at the end of the text.  If the
+     * final newline of the file (just before the dummy line) is being
+     * deleted, then back up index to just before the newline.  If
+     * there is a newline just before the first character being deleted,
+     * then back up the first index too, so that an even number of lines
+     * gets deleted.  Furthermore, remove any tags that are present on
+     * the newline that isn't going to be deleted after all (this simulates
+     * deleting the newline and then adding a "clean" one back again).
+     */
+
+    line1 = TkBTreeLineIndex(index1.linePtr);
+    line2 = TkBTreeLineIndex(index2.linePtr);
+    if (line2 == TkBTreeNumLines(textPtr->tree)) {
+	TkTextTag **arrayPtr;
+	int arraySize, i;
+	TkTextIndex oldIndex2;
+
+	oldIndex2 = index2;
+	TkTextIndexBackChars(&oldIndex2, 1, &index2);
+	line2--;
+	if ((index1.charIndex == 0) && (line1 != 0)) {
+	    TkTextIndexBackChars(&index1, 1, &index1);
+	    line1--;
+	}
+	arrayPtr = TkBTreeGetTags(&index2, &arraySize);
+	if (arrayPtr != NULL) {
+	    for (i = 0; i < arraySize; i++) {
+		TkBTreeTag(&index2, &oldIndex2, arrayPtr[i], 0);
+	    }
+	    ckfree((char *) arrayPtr);
+	}
+    }
+
+    /*
+     * Tell the display what's about to happen so it can discard
+     * obsolete display information, then do the deletion.  Also,
+     * if the deletion involves the top line on the screen, then
+     * we have to reset the view (the deletion will invalidate
+     * textPtr->topIndex).  Compute what the new first character
+     * will be, then do the deletion, then reset the view.
+     */
+
+    TkTextChanged(textPtr, &index1, &index2);
+    resetView = line = charIndex = 0;
+    if (TkTextIndexCmp(&index2, &textPtr->topIndex) >= 0) {
+	if (TkTextIndexCmp(&index1, &textPtr->topIndex) <= 0) {
+	    /*
+	     * Deletion range straddles topIndex: use the beginning
+	     * of the range as the new topIndex.
+	     */
+
+	    resetView = 1;
+	    line = line1;
+	    charIndex = index1.charIndex;
+	} else if (index1.linePtr == textPtr->topIndex.linePtr) {
+	    /*
+	     * Deletion range starts on top line but after topIndex.
+	     * Use the current topIndex as the new one.
+	     */
+
+	    resetView = 1;
+	    line = line1;
+	    charIndex = textPtr->topIndex.charIndex;
+	}
+    } else if (index2.linePtr == textPtr->topIndex.linePtr) {
+	/*
+	 * Deletion range ends on top line but before topIndex.
+	 * Figure out what will be the new character index for
+	 * the character currently pointed to by topIndex.
+	 */
+
+	resetView = 1;
+	line = line2;
+	charIndex = textPtr->topIndex.charIndex;
+	if (index1.linePtr != index2.linePtr) {
+	    charIndex -= index2.charIndex;
+	} else {
+	    charIndex -= (index2.charIndex - index1.charIndex);
+	}
+    }
+    TkBTreeDeleteChars(&index1, &index2);
+    if (resetView) {
+	TkTextMakeIndex(textPtr->tree, line, charIndex, &index1);
+	TkTextSetYView(textPtr, &index1, 0);
+    }
+
+    /*
+     * Invalidate any selection retrievals in progress.
+     */
+
+    textPtr->abortSelections = 1;
+
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextFetchSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	requested by someone.  It returns part or all of the selection
+ *	in a buffer provided by the caller.
+ *
+ * Results:
+ *	The return value is the number of non-NULL bytes stored
+ *	at buffer.  Buffer is filled (or partially filled) with a
+ *	NULL-terminated string containing part or all of the selection,
+ *	as given by offset and maxBytes.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+TextFetchSelection(clientData, offset, buffer, maxBytes)
+    ClientData clientData;		/* Information about text widget. */
+    int offset;				/* Offset within selection of first
+					 * character to be returned. */
+    char *buffer;			/* Location in which to place
+					 * selection. */
+    int maxBytes;			/* Maximum number of bytes to place
+					 * at buffer, not including terminating
+					 * NULL character. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    TkTextIndex eof;
+    int count, chunkSize, offsetInSeg;
+    TkTextSearch search;
+    TkTextSegment *segPtr;
+
+    if (!textPtr->exportSelection) {
+	return -1;
+    }
+
+    /*
+     * Find the beginning of the next range of selected text.  Note:  if
+     * the selection is being retrieved in multiple pieces (offset != 0)
+     * and some modification has been made to the text that affects the
+     * selection then reject the selection request (make 'em start over
+     * again).
+     */
+
+    if (offset == 0) {
+	TkTextMakeIndex(textPtr->tree, 0, 0, &textPtr->selIndex);
+	textPtr->abortSelections = 0;
+    } else if (textPtr->abortSelections) {
+	return 0;
+    }
+    TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree), 0, &eof);
+    TkBTreeStartSearch(&textPtr->selIndex, &eof, textPtr->selTagPtr, &search);
+    if (!TkBTreeCharTagged(&textPtr->selIndex, textPtr->selTagPtr)) {
+	if (!TkBTreeNextTag(&search)) {
+	    if (offset == 0) {
+		return -1;
+	    } else {
+		return 0;
+	    }
+	}
+	textPtr->selIndex = search.curIndex;
+    }
+
+    /*
+     * Each iteration through the outer loop below scans one selected range.
+     * Each iteration through the inner loop scans one segment in the
+     * selected range.
+     */
+
+    count = 0;
+    while (1) {
+	/*
+	 * Find the end of the current range of selected text.
+	 */
+
+	if (!TkBTreeNextTag(&search)) {
+	    panic("TextFetchSelection couldn't find end of range");
+	}
+
+	/*
+	 * Copy information from character segments into the buffer
+	 * until either we run out of space in the buffer or we get
+	 * to the end of this range of text.
+	 */
+
+	while (1) {
+	    if (maxBytes == 0) {
+		goto done;
+	    }
+	    segPtr = TkTextIndexToSeg(&textPtr->selIndex, &offsetInSeg);
+	    chunkSize = segPtr->size - offsetInSeg;
+	    if (chunkSize > maxBytes) {
+		chunkSize = maxBytes;
+	    }
+	    if (textPtr->selIndex.linePtr == search.curIndex.linePtr) {
+		int leftInRange;
+
+		leftInRange = search.curIndex.charIndex
+			- textPtr->selIndex.charIndex;
+		if (leftInRange < chunkSize) {
+		    chunkSize = leftInRange;
+		    if (chunkSize <= 0) {
+			break;
+		    }
+		}
+	    }
+	    if (segPtr->typePtr == &tkTextCharType) {
+		memcpy((VOID *) buffer, (VOID *) (segPtr->body.chars
+			+ offsetInSeg), (size_t) chunkSize);
+		buffer += chunkSize;
+		maxBytes -= chunkSize;
+		count += chunkSize;
+	    }
+	    TkTextIndexForwChars(&textPtr->selIndex, chunkSize,
+		    &textPtr->selIndex);
+	}
+
+	/*
+	 * Find the beginning of the next range of selected text.
+	 */
+
+	if (!TkBTreeNextTag(&search)) {
+	    break;
+	}
+	textPtr->selIndex = search.curIndex;
+    }
+
+    done:
+    *buffer = 0;
+    return count;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextLostSelection --
+ *
+ *	This procedure is called back by Tk when the selection is
+ *	grabbed away from a text widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The "sel" tag is cleared from the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextLostSelection(clientData)
+    ClientData clientData;		/* Information about text widget. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    TkTextIndex start, end;
+
+    if (!textPtr->exportSelection) {
+	return;
+    }
+
+    /*
+     * Just remove the "sel" tag from everything in the widget.
+     */
+
+    TkTextMakeIndex(textPtr->tree, 0, 0, &start);
+    TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree), 0, &end);
+    TkTextRedrawTag(textPtr, &start, &end, textPtr->selTagPtr, 1);
+    TkBTreeTag(&start, &end, textPtr->selTagPtr, 0);
+    textPtr->flags &= ~GOT_SELECTION;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextBlinkProc --
+ *
+ *	This procedure is called as a timer handler to blink the
+ *	insertion cursor off and on.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor gets turned on or off, redisplay gets invoked,
+ *	and this procedure reschedules itself.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TextBlinkProc(clientData)
+    ClientData clientData;	/* Pointer to record describing text. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    TkTextIndex index, index2;
+
+    if (!(textPtr->flags & GOT_FOCUS) || (textPtr->insertOffTime == 0)) {
+	return;
+    }
+    if (textPtr->flags & INSERT_ON) {
+	textPtr->flags &= ~INSERT_ON;
+	textPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		textPtr->insertOffTime, TextBlinkProc, (ClientData) textPtr);
+    } else {
+	textPtr->flags |= INSERT_ON;
+	textPtr->insertBlinkHandler = Tcl_CreateTimerHandler(
+		textPtr->insertOnTime, TextBlinkProc, (ClientData) textPtr);
+    }
+    TkTextMarkSegToIndex(textPtr, textPtr->insertMarkPtr, &index);
+    TkTextIndexForwChars(&index, 1, &index2);
+    TkTextChanged(textPtr, &index, &index2);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextSearchCmd --
+ *
+ *	This procedure is invoked to process the "search" widget command
+ *	for text widgets.  See the user documentation for details on what
+ *	it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+TextSearchCmd(textPtr, interp, argc, argv)
+    TkText *textPtr;		/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    int backwards, exact, c, i, argsLeft, noCase, leftToScan;
+    size_t length;
+    int numLines, startingLine, startingChar, lineNum, firstChar, lastChar;
+    int code, matchLength, matchChar, passes, stopLine, searchWholeText;
+    int patLength;
+    char *arg, *pattern, *varName, *p, *startOfLine;
+    char buffer[20];
+    TkTextIndex index, stopIndex;
+    Tcl_DString line, patDString;
+    TkTextSegment *segPtr;
+    TkTextLine *linePtr;
+    Tcl_RegExp regexp = NULL;		/* Initialization needed only to
+					 * prevent compiler warning. */
+
+    /*
+     * Parse switches and other arguments.
+     */
+
+    exact = 1;
+    backwards = 0;
+    noCase = 0;
+    varName = NULL;
+    for (i = 2; i < argc; i++) {
+	arg = argv[i];
+	if (arg[0] != '-') {
+	    break;
+	}
+	length = strlen(arg);
+	if (length < 2) {
+	    badSwitch:
+	    Tcl_AppendResult(interp, "bad switch \"", arg,
+#ifdef STk_CODE
+		    "\": must be -forward, :backward, :exact, :regexp, ",
+		    ":nocase, :count, or ::", (char *) NULL);
+#else
+		    "\": must be -forward, -backward, -exact, -regexp, ",
+		    "-nocase, -count, or --", (char *) NULL);
+#endif
+	    return TCL_ERROR;
+	}
+	c = arg[1];
+	if ((c == 'b') && (strncmp(argv[i], "-backwards", length) == 0)) {
+	    backwards = 1;
+	} else if ((c == 'c') && (strncmp(argv[i], "-count", length) == 0)) {
+	    if (i >= (argc-1)) {
+		interp->result = "no value given for \"-count\" option";
+		return TCL_ERROR;
+	    }
+	    i++;
+	    varName = argv[i];
+	} else if ((c == 'e') && (strncmp(argv[i], "-exact", length) == 0)) {
+	    exact = 1;
+	} else if ((c == 'f') && (strncmp(argv[i], "-forwards", length) == 0)) {
+	    backwards = 0;
+	} else if ((c == 'n') && (strncmp(argv[i], "-nocase", length) == 0)) {
+	    noCase = 1;
+	} else if ((c == 'r') && (strncmp(argv[i], "-regexp", length) == 0)) {
+	    exact = 0;
+	} else if ((c == '-') && (strncmp(argv[i], "--", length) == 0)) {
+	    i++;
+	    break;
+	} else {
+	    goto badSwitch;
+	}
+    }
+    argsLeft = argc - (i+2);
+    if ((argsLeft != 0) && (argsLeft != 1)) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " search ?switches? pattern index ?stopIndex?",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    pattern = argv[i];
+
+    /*
+     * Convert the pattern to lower-case if we're supposed to ignore case.
+     */
+
+    if (noCase) {
+	Tcl_DStringInit(&patDString);
+	Tcl_DStringAppend(&patDString, pattern, -1);
+	pattern = Tcl_DStringValue(&patDString);
+	for (p = pattern; *p != 0; p++) {
+	    if (isupper(UCHAR(*p))) {
+		*p = tolower(UCHAR(*p));
+	    }
+	}
+    }
+
+    if (TkTextGetIndex(interp, textPtr, argv[i+1], &index) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    numLines = TkBTreeNumLines(textPtr->tree);
+    startingLine = TkBTreeLineIndex(index.linePtr);
+    startingChar = index.charIndex;
+    if (startingLine >= numLines) {
+	if (backwards) {
+	    startingLine = TkBTreeNumLines(textPtr->tree) - 1;
+	    startingChar = TkBTreeCharsInLine(TkBTreeFindLine(textPtr->tree,
+		    startingLine));
+	} else {
+	    startingLine = 0;
+	    startingChar = 0;
+	}
+    }
+    if (argsLeft == 1) {
+	if (TkTextGetIndex(interp, textPtr, argv[i+2], &stopIndex) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	stopLine = TkBTreeLineIndex(stopIndex.linePtr);
+	if (!backwards && (stopLine == numLines)) {
+	    stopLine = numLines-1;
+	}
+	searchWholeText = 0;
+    } else {
+	stopLine = 0;
+	searchWholeText = 1;
+    }
+
+    /*
+     * Scan through all of the lines of the text circularly, starting
+     * at the given index.
+     */
+
+    matchLength = patLength = 0;	/* Only needed to prevent compiler
+					 * warnings. */
+    if (exact) {
+	patLength = strlen(pattern);
+    } else {
+	regexp = Tcl_RegExpCompile(interp, pattern);
+	if (regexp == NULL) {
+	    return TCL_ERROR;
+	}
+    }
+    lineNum = startingLine;
+    code = TCL_OK;
+    Tcl_DStringInit(&line);
+    for (passes = 0; passes < 2; ) {
+	if (lineNum >= numLines) {
+	    /*
+	     * Don't search the dummy last line of the text.
+	     */
+
+	    goto nextLine;
+	}
+
+	/*
+	 * Extract the text from the line.  If we're doing regular
+	 * expression matching, drop the newline from the line, so
+	 * that "$" can be used to match the end of the line.
+	 */
+
+	linePtr = TkBTreeFindLine(textPtr->tree, lineNum);
+	for (segPtr = linePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    if (segPtr->typePtr != &tkTextCharType) {
+		continue;
+	    }
+	    Tcl_DStringAppend(&line, segPtr->body.chars, segPtr->size);
+	}
+	if (!exact) {
+	    Tcl_DStringSetLength(&line, Tcl_DStringLength(&line)-1);
+	}
+	startOfLine = Tcl_DStringValue(&line);
+
+	/*
+	 * If we're ignoring case, convert the line to lower case.
+	 */
+
+	if (noCase) {
+	    for (p = Tcl_DStringValue(&line); *p != 0; p++) {
+		if (isupper(UCHAR(*p))) {
+		    *p = tolower(UCHAR(*p));
+		}
+	    }
+	}
+
+	/*
+	 * Check for matches within the current line.  If so, and if we're
+	 * searching backwards, repeat the search to find the last match
+	 * in the line.
+	 */
+
+	matchChar = -1;
+	firstChar = 0;
+	lastChar = INT_MAX;
+	if (lineNum == startingLine) {
+	    int indexInDString;
+
+	    /*
+	     * The starting line is tricky: the first time we see it
+	     * we check one part of the line, and the second pass through
+	     * we check the other part of the line.  We have to be very
+	     * careful here because there could be embedded windows or
+	     * other things that are not in the extracted line.  Rescan
+	     * the original line to compute the index in it of the first
+	     * character.
+	     */
+
+	    indexInDString = startingChar;
+	    for (segPtr = linePtr->segPtr, leftToScan = startingChar;
+		    leftToScan > 0; segPtr = segPtr->nextPtr) {
+		if (segPtr->typePtr != &tkTextCharType) {
+		    indexInDString -= segPtr->size;
+		}
+		leftToScan -= segPtr->size;
+	    }
+
+	    passes++;
+	    if ((passes == 1) ^ backwards) {
+		/*
+		 * Only use the last part of the line.
+		 */
+
+		firstChar = indexInDString;
+		if (firstChar >= Tcl_DStringLength(&line)) {
+		    goto nextLine;
+		}
+	    } else {
+		/*
+		 * Use only the first part of the line.
+		 */
+
+		lastChar = indexInDString;
+	    }
+	}
+	do {
+	    int thisLength;
+	    if (exact) {
+		p = strstr(startOfLine + firstChar, pattern);
+		if (p == NULL) {
+		    break;
+		}
+		i = p - startOfLine;
+		thisLength = patLength;
+	    } else {
+		char *start, *end;
+		int match;
+
+		match = Tcl_RegExpExec(interp, regexp,
+			startOfLine + firstChar, startOfLine);
+		if (match < 0) {
+		    code = TCL_ERROR;
+		    goto done;
+		}
+		if (!match) {
+		    break;
+		}
+		Tcl_RegExpRange(regexp, 0, &start, &end);
+		i = start - startOfLine;
+		thisLength = end - start;
+	    }
+	    if (i >= lastChar) {
+		break;
+	    }
+	    matchChar = i;
+	    matchLength = thisLength;
+	    firstChar = matchChar+1;
+	} while (backwards);
+
+	/*
+	 * If we found a match then we're done.  Make sure that
+	 * the match occurred before the stopping index, if one was
+	 * specified.
+	 */
+
+	if (matchChar >= 0) {
+	    /*
+	     * The index information returned by the regular expression
+	     * parser only considers textual information:  it doesn't
+	     * account for embedded windows or any other non-textual info.
+	     * Scan through the line's segments again to adjust both
+	     * matchChar and matchCount.
+	     */
+
+	    for (segPtr = linePtr->segPtr, leftToScan = matchChar;
+		    leftToScan >= 0; segPtr = segPtr->nextPtr) {
+		if (segPtr->typePtr != &tkTextCharType) {
+		    matchChar += segPtr->size;
+		    continue;
+		}
+		leftToScan -= segPtr->size;
+	    }
+	    for (leftToScan += matchLength; leftToScan > 0;
+		    segPtr = segPtr->nextPtr) {
+		if (segPtr->typePtr != &tkTextCharType) {
+		    matchLength += segPtr->size;
+		    continue;
+		}
+		leftToScan -= segPtr->size;
+	    }
+	    TkTextMakeIndex(textPtr->tree, lineNum, matchChar, &index);
+	    if (!searchWholeText) {
+		if (!backwards && (TkTextIndexCmp(&index, &stopIndex) >= 0)) {
+		    goto done;
+		}
+		if (backwards && (TkTextIndexCmp(&index, &stopIndex) < 0)) {
+		    goto done;
+		}
+	    }
+	    if (varName != NULL) {
+		sprintf(buffer, "%d", matchLength);
+		if (Tcl_SetVar(interp, varName, buffer, TCL_LEAVE_ERR_MSG)
+			== NULL) {
+		    code = TCL_ERROR;
+		    goto done;
+		}
+	    }
+	    TkTextPrintIndex(&index, interp->result);
+	    goto done;
+	}
+
+	/*
+	 * Go to the next (or previous) line;
+	 */
+
+	nextLine:
+	if (backwards) {
+	    lineNum--;
+	    if (!searchWholeText) {
+		if (lineNum < stopLine) {
+		    break;
+		}
+	    } else if (lineNum < 0) {
+		lineNum = numLines-1;
+	    }
+	} else {
+	    lineNum++;
+	    if (!searchWholeText) {
+		if (lineNum > stopLine) {
+		    break;
+		}
+	    } else if (lineNum >= numLines) {
+		lineNum = 0;
+	    }
+	}
+	Tcl_DStringSetLength(&line, 0);
+    }
+    done:
+#ifdef STk_CODE
+    if (*interp->result == '\0') {
+      /* No match ==> return #f */
+      interp->result = "#f";
+    }
+#endif
+    Tcl_DStringFree(&line);
+    if (noCase) {
+	Tcl_DStringFree(&patDString);
+    }
+    return code;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextGetTabs --
+ *
+ *	Parses a string description of a set of tab stops.
+ *
+ * Results:
+ *	The return value is a pointer to a malloc'ed structure holding
+ *	parsed information about the tab stops.  If an error occurred
+ *	then the return value is NULL and an error message is left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	Memory is allocated for the structure that is returned.  It is
+ *	up to the caller to free this structure when it is no longer
+ *	needed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextTabArray *
+TkTextGetTabs(interp, tkwin, string)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    Tk_Window tkwin;			/* Window in which the tabs will be
+					 * used. */
+    char *string;			/* Description of the tab stops.  See
+					 * the text manual entry for details. */
+{
+    int argc, i, count, c;
+    char **argv;
+    TkTextTabArray *tabArrayPtr;
+    TkTextTab *tabPtr;
+
+    if (Tcl_SplitList(interp, string, &argc, &argv) != TCL_OK) {
+	return NULL;
+    }
+
+    /*
+     * First find out how many entries we need to allocate in the
+     * tab array.
+     */
+
+    count = 0;
+    for (i = 0; i < argc; i++) {
+	c = argv[i][0];
+	if ((c != 'l') && (c != 'r') && (c != 'c') && (c != 'n')) {
+	    count++;
+	}
+    }
+
+    /*
+     * Parse the elements of the list one at a time to fill in the
+     * array.
+     */
+
+    tabArrayPtr = (TkTextTabArray *) ckalloc((unsigned)
+	    (sizeof(TkTextTabArray) + (count-1)*sizeof(TkTextTab)));
+    tabArrayPtr->numTabs = 0;
+    for (i = 0, tabPtr = &tabArrayPtr->tabs[0]; i  < argc; i++, tabPtr++) {
+	if (Tk_GetPixels(interp, tkwin, argv[i], &tabPtr->location)
+		!= TCL_OK) {
+	    goto error;
+	}
+	tabArrayPtr->numTabs++;
+
+	/*
+	 * See if there is an explicit alignment in the next list
+	 * element.  Otherwise just use "left".
+	 */
+
+	tabPtr->alignment = LEFT;
+	if ((i+1) == argc) {
+	    continue;
+	}
+	c = UCHAR(argv[i+1][0]);
+	if (!isalpha(c)) {
+	    continue;
+	}
+	i += 1;
+	if ((c == 'l') && (strncmp(argv[i], "left",
+		strlen(argv[i])) == 0)) {
+	    tabPtr->alignment = LEFT;
+	} else if ((c == 'r') && (strncmp(argv[i], "right",
+		strlen(argv[i])) == 0)) {
+	    tabPtr->alignment = RIGHT;
+	} else if ((c == 'c') && (strncmp(argv[i], "center",
+		strlen(argv[i])) == 0)) {
+	    tabPtr->alignment = CENTER;
+	} else if ((c == 'n') && (strncmp(argv[i],
+		"numeric", strlen(argv[i])) == 0)) {
+	    tabPtr->alignment = NUMERIC;
+	} else {
+	    Tcl_AppendResult(interp, "bad tab alignment \"",
+		    argv[i], "\": must be left, right, center, or numeric",
+		    (char *) NULL);
+	    goto error;
+	}
+    }
+    ckfree((char *) argv);
+    return tabArrayPtr;
+
+    error:
+    ckfree((char *) tabArrayPtr);
+    ckfree((char *) argv);
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextDumpCmd --
+ *
+ *	Return information about the text, tags, marks, and embedded windows
+ *	in a text widget.  See the man page for the description of the
+ *	text dump operation for all the details.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	Memory is allocated for the result, if needed (standard Tcl result
+ *	side effects).
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+TextDumpCmd(textPtr, interp, argc, argv)
+    register TkText *textPtr;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "dump". */
+{
+    TkTextIndex index1, index2;
+    int arg;
+    int lineno;			/* Current line number */
+    int what = 0;		/* bitfield to select segment types */
+    int atEnd;			/* True if dumping up to logical end */
+    TkTextLine *linePtr;
+    char *command = NULL;	/* Script callback to apply to segments */
+#define TK_DUMP_TEXT	0x1
+#define TK_DUMP_MARK	0x2
+#define TK_DUMP_TAG	0x4
+#define TK_DUMP_WIN	0x8
+#define TK_DUMP_ALL	(TK_DUMP_TEXT|TK_DUMP_MARK|TK_DUMP_TAG|TK_DUMP_WIN)
+
+    for (arg=2 ; argv[arg] != (char *) NULL ; arg++) {
+	size_t len;
+	if (argv[arg][0] != '-') {
+	    break;
+	}
+	len = strlen(argv[arg]);
+	if (strncmp("-all", argv[arg], len) == 0) {
+	    what = TK_DUMP_ALL;
+	} else if (strncmp("-text", argv[arg], len) == 0) {
+	    what |= TK_DUMP_TEXT;
+	} else if (strncmp("-tag", argv[arg], len) == 0) {
+	    what |= TK_DUMP_TAG;
+	} else if (strncmp("-mark", argv[arg], len) == 0) {
+	    what |= TK_DUMP_MARK;
+	} else if (strncmp("-window", argv[arg], len) == 0) {
+	    what |= TK_DUMP_WIN;
+	} else if (strncmp("-command", argv[arg], len) == 0) {
+	    arg++;
+	    if (arg >= argc) {
+		Tcl_AppendResult(interp, "Usage: ", argv[0], " dump ?-all -text -mark -tag -window? ?-command script? index ?index2?", NULL);
+		return TCL_ERROR;
+	    }
+	    command = argv[arg];
+	} else {
+	    Tcl_AppendResult(interp, "Usage: ", argv[0], " dump ?-all -text -mark -tag -window? ?-command script? index ?index2?", NULL);
+	    return TCL_ERROR;
+	}
+    }
+    if (arg >= argc) {
+	Tcl_AppendResult(interp, "Usage: ", argv[0], " dump ?-all -text -mark -tag -window? ?-command script? index ?index2?", NULL);
+	return TCL_ERROR;
+    }
+    if (what == 0) {
+	what = TK_DUMP_ALL;
+    }
+    if (TkTextGetIndex(interp, textPtr, argv[arg], &index1) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    lineno = TkBTreeLineIndex(index1.linePtr) + 1;
+    arg++;
+    atEnd = 0;
+    if (argc == arg) {
+	TkTextIndexForwChars(&index1, 1, &index2);
+    } else {
+	if (TkTextGetIndex(interp, textPtr, argv[arg], &index2) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (strncmp(argv[arg], "end", strlen(argv[arg])) == 0) {
+	    atEnd = 1;
+	}
+    }
+    if (TkTextIndexCmp(&index1, &index2) >= 0) {
+	return TCL_OK;
+    }
+    if (index1.linePtr == index2.linePtr) {
+	DumpLine(interp, textPtr, what, index1.linePtr,
+	    index1.charIndex, index2.charIndex, lineno, command);
+    } else {
+	DumpLine(interp, textPtr, what, index1.linePtr,
+		index1.charIndex, 32000000, lineno, command);
+	linePtr = index1.linePtr;
+	while ((linePtr = TkBTreeNextLine(linePtr)) != (TkTextLine *)NULL) {
+	    lineno++;
+	    if (linePtr == index2.linePtr) {
+		break;
+	    }
+	    DumpLine(interp, textPtr, what, linePtr, 0, 32000000,
+		    lineno, command);
+	}
+	DumpLine(interp, textPtr, what, index2.linePtr, 0,
+		index2.charIndex, lineno, command);
+    }
+    /*
+     * Special case to get the leftovers hiding at the end mark.
+     */
+    if (atEnd) {
+	DumpLine(interp, textPtr, what & ~TK_DUMP_TEXT, index2.linePtr,
+		0, 1, lineno, command);
+
+    }
+    return TCL_OK;
+}
+
+/*
+ * DumpLine
+ * 	Return information about a given text line from character
+ *	position "start" up to, but not including, "end".
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	None, but see DumpSegment.
+ */
+static void
+DumpLine(interp, textPtr, what, linePtr, start, end, lineno, command)
+    Tcl_Interp *interp;
+    TkText *textPtr;
+    int what;			/* bit flags to select segment types */
+    TkTextLine *linePtr;	/* The current line */
+    int start, end;		/* Character range to dump */
+    int lineno;			/* Line number for indices dump */
+    char *command;		/* Script to apply to the segment */
+{
+    int offset;
+    TkTextSegment *segPtr;
+    /*
+     * Must loop through line looking at its segments.
+     * character
+     * toggleOn, toggleOff
+     * mark
+     * window
+     */
+    for (offset = 0, segPtr = linePtr->segPtr ;
+	    (offset < end) && (segPtr != (TkTextSegment *)NULL) ;
+	    offset += segPtr->size, segPtr = segPtr->nextPtr) {
+	int result = TCL_OK;
+	if ((what & TK_DUMP_TEXT) && (segPtr->typePtr == &tkTextCharType) &&
+		(offset + segPtr->size > start)) {
+	    char savedChar;			/* Last char used in the seg */
+	    int last = segPtr->size;		/* Index of savedChar */
+	    int first = 0;			/* Index of first char in seg */
+	    if (offset + segPtr->size > end) {
+		last = end - offset;
+	    }
+	    if (start > offset) {
+		first = start - offset;
+	    }
+	    savedChar = segPtr->body.chars[last];
+	    segPtr->body.chars[last] = '\0';
+	    result = DumpSegment(interp, "text", segPtr->body.chars + first,
+		    command, lineno, offset + first, what);
+	    segPtr->body.chars[last] = savedChar;
+	} else if ((offset >= start)) {
+	    if ((what & TK_DUMP_MARK) && (segPtr->typePtr->name[0] == 'm')) {
+		TkTextMark *markPtr = (TkTextMark *)&segPtr->body;
+		char *name = Tcl_GetHashKey(&textPtr->markTable, markPtr->hPtr);
+		result = DumpSegment(interp, "mark", name,
+			command, lineno, offset, what);
+	    } else if ((what & TK_DUMP_TAG) &&
+			(segPtr->typePtr == &tkTextToggleOnType)) {
+		result = DumpSegment(interp, "tagon",
+			segPtr->body.toggle.tagPtr->name,
+			command, lineno, offset, what);
+	    } else if ((what & TK_DUMP_TAG) && 
+			(segPtr->typePtr == &tkTextToggleOffType)) {
+		result = DumpSegment(interp, "tagoff",
+			segPtr->body.toggle.tagPtr->name,
+			command, lineno, offset, what);
+	    } else if ((what & TK_DUMP_WIN) && 
+			(segPtr->typePtr->name[0] == 'w')) {
+		TkTextEmbWindow *ewPtr = (TkTextEmbWindow *)&segPtr->body;
+		char *pathname;
+		if (ewPtr->tkwin == (Tk_Window) NULL) {
+		    pathname = "";
+		} else {
+		    pathname = Tk_PathName(ewPtr->tkwin);
+		}
+		result = DumpSegment(interp, "window", pathname,
+			command, lineno, offset, what);
+	    }
+	}
+    }
+}
+
+/*
+ * DumpSegment
+ *	Either append information about the current segment to the result,
+ *	or make a script callback with that information as arguments.
+ *
+ * Results:
+ *	None
+ *
+ * Side effects:
+ *	Either evals the callback or appends elements to the result string.
+ */
+static int
+DumpSegment(interp, key, value, command, lineno, offset, what)
+    Tcl_Interp *interp;
+    char *key;			/* Segment type key */
+    char *value;		/* Segment value */
+    char *command;		/* Script callback */
+    int lineno;			/* Line number for indices dump */
+    int offset;			/* Character position */
+    int what;			/* Look for TK_DUMP_INDEX bit */
+{
+    char buffer[30];
+    sprintf(buffer, "%d.%d", lineno, offset);
+    if (command == (char *) NULL) {
+	Tcl_AppendElement(interp, key);
+	Tcl_AppendElement(interp, value);
+	Tcl_AppendElement(interp, buffer);
+	return TCL_OK;
+    } else {
+	char *argv[4];
+	char *list;
+	int result;
+	argv[0] = key;
+	argv[1] = value;
+	argv[2] = buffer;
+	argv[3] = (char *) NULL;
+	list = Tcl_Merge(3, argv);
+	result = Tcl_VarEval(interp, command, " ", list, (char *) NULL);
+	ckfree(list);
+	return result;
+    }
+}
+
diff --git a/Tk/generic/tkText.h b/Tk/generic/tkText.h
new file mode 100644
index 0000000..1fb4bf0
--- /dev/null
+++ b/Tk/generic/tkText.h
@@ -0,0 +1,808 @@
+/*
+ * tkText.h --
+ *
+ *	Declarations shared among the files that implement text
+ *	widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkText.h 1.44 96/02/15 18:51:31
+ */
+
+#ifndef _TKTEXT
+#define _TKTEXT
+
+#ifndef _TK
+#include "tk.h"
+#endif
+
+/*
+ * Opaque types for structures whose guts are only needed by a single
+ * file:
+ */
+
+typedef struct TkTextBTree *TkTextBTree;
+
+/*
+ * The data structure below defines a single line of text (from newline
+ * to newline, not necessarily what appears on one line of the screen).
+ */
+
+typedef struct TkTextLine {
+    struct Node *parentPtr;		/* Pointer to parent node containing
+					 * line. */
+    struct TkTextLine *nextPtr;		/* Next in linked list of lines with
+					 * same parent node in B-tree.  NULL
+					 * means end of list. */
+    struct TkTextSegment *segPtr;	/* First in ordered list of segments
+					 * that make up the line. */
+} TkTextLine;
+
+/*
+ * -----------------------------------------------------------------------
+ * Segments: each line is divided into one or more segments, where each
+ * segment is one of several things, such as a group of characters, a
+ * tag toggle, a mark, or an embedded widget.  Each segment starts with
+ * a standard header followed by a body that varies from type to type.
+ * -----------------------------------------------------------------------
+ */
+
+/*
+ * The data structure below defines the body of a segment that represents
+ * a tag toggle.  There is one of these structures at both the beginning
+ * and end of each tagged range.
+ */
+
+typedef struct TkTextToggle {
+    struct TkTextTag *tagPtr;		/* Tag that starts or ends here. */
+    int inNodeCounts;			/* 1 means this toggle has been
+					 * accounted for in node toggle
+					 * counts; 0 means it hasn't, yet. */
+} TkTextToggle;
+
+/*
+ * The data structure below defines line segments that represent
+ * marks.  There is one of these for each mark in the text.
+ */
+
+typedef struct TkTextMark {
+    struct TkText *textPtr;		/* Overall information about text
+					 * widget. */
+    TkTextLine *linePtr;		/* Line structure that contains the
+					 * segment. */
+    Tcl_HashEntry *hPtr;		/* Pointer to hash table entry for mark
+					 * (in textPtr->markTable). */
+} TkTextMark;
+
+/*
+ * A structure of the following type holds information for each window
+ * embedded in a text widget.  This information is only used by the
+ * file tkTextWind.c
+ */
+
+typedef struct TkTextEmbWindow {
+    struct TkText *textPtr;		/* Information about the overall text
+					 * widget. */
+    TkTextLine *linePtr;		/* Line structure that contains this
+					 * window. */
+    Tk_Window tkwin;			/* Window for this segment.  NULL
+					 * means that the window hasn't
+					 * been created yet. */
+    char *create;			/* Script to create window on-demand.
+					 * NULL means no such script.
+					 * Malloc-ed. */
+    int align;				/* How to align window in vertical
+					 * space.  See definitions in
+					 * tkTextWind.c. */
+    int padX, padY;			/* Padding to leave around each side
+					 * of window, in pixels. */
+    int stretch;			/* Should window stretch to fill
+					 * vertical space of line (except for
+					 * pady)?  0 or 1. */
+    int chunkCount;			/* Number of display chunks that
+					 * refer to this window. */
+    int displayed;			/* Non-zero means that the window
+					 * has been displayed on the screen
+					 * recently. */
+} TkTextEmbWindow;
+
+/*
+ * The data structure below defines line segments.
+ */
+
+typedef struct TkTextSegment {
+    struct Tk_SegType *typePtr;		/* Pointer to record describing
+					 * segment's type. */
+    struct TkTextSegment *nextPtr;	/* Next in list of segments for this
+					 * line, or NULL for end of list. */
+    int size;				/* Size of this segment (# of bytes
+					 * of index space it occupies). */
+    union {
+	char chars[4];			/* Characters that make up character
+					 * info.  Actual length varies to
+					 * hold as many characters as needed.*/
+	TkTextToggle toggle;		/* Information about tag toggle. */
+	TkTextMark mark;		/* Information about mark. */
+	TkTextEmbWindow ew;		/* Information about embedded
+					 * window. */
+    } body;
+} TkTextSegment;
+
+/*
+ * Data structures of the type defined below are used during the
+ * execution of Tcl commands to keep track of various interesting
+ * places in a text.  An index is only valid up until the next
+ * modification to the character structure of the b-tree so they
+ * can't be retained across Tcl commands.  However, mods to marks
+ * or tags don't invalidate indices.
+ */
+
+typedef struct TkTextIndex {
+    TkTextBTree tree;			/* Tree containing desired position. */
+    TkTextLine *linePtr;		/* Pointer to line containing position
+					 * of interest. */
+    int charIndex;			/* Index within line of desired
+					 * character (0 means first one). */
+} TkTextIndex;
+
+/*
+ * Types for procedure pointers stored in TkTextDispChunk strutures:
+ */
+
+typedef struct TkTextDispChunk TkTextDispChunk;
+
+typedef void 		Tk_ChunkDisplayProc _ANSI_ARGS_((
+			    TkTextDispChunk *chunkPtr, int x, int y,
+			    int height, int baseline, Display *display,
+			    Drawable dst, int screenY));
+typedef void		Tk_ChunkUndisplayProc _ANSI_ARGS_((
+			    struct TkText *textPtr,
+			    TkTextDispChunk *chunkPtr));
+typedef int		Tk_ChunkMeasureProc _ANSI_ARGS_((
+			    TkTextDispChunk *chunkPtr, int x));
+typedef void		Tk_ChunkBboxProc _ANSI_ARGS_((
+			    TkTextDispChunk *chunkPtr, int index, int y,
+			    int lineHeight, int baseline, int *xPtr,
+			    int *yPtr, int *widthPtr, int *heightPtr));
+
+/*
+ * The structure below represents a chunk of stuff that is displayed
+ * together on the screen.  This structure is allocated and freed by
+ * generic display code but most of its fields are filled in by
+ * segment-type-specific code.
+ */
+
+struct TkTextDispChunk {
+    /*
+     * The fields below are set by the type-independent code before
+     * calling the segment-type-specific layoutProc.  They should not
+     * be modified by segment-type-specific code.
+     */
+
+    int x;				/* X position of chunk, in pixels.
+					 * This position is measured from the
+					 * left edge of the logical line,
+					 * not from the left edge of the
+					 * window (i.e. it doesn't change
+					 * under horizontal scrolling). */
+    struct TkTextDispChunk *nextPtr;	/* Next chunk in the display line
+					 * or NULL for the end of the list. */
+    struct TextStyle *stylePtr;		/* Display information, known only
+					 * to tkTextDisp.c. */
+
+    /*
+     * The fields below are set by the layoutProc that creates the
+     * chunk.
+     */
+
+    Tk_ChunkDisplayProc *displayProc;	/* Procedure to invoke to draw this
+					 * chunk on the display or an
+					 * off-screen pixmap. */
+    Tk_ChunkUndisplayProc *undisplayProc;
+					/* Procedure to invoke when segment
+					 * ceases to be displayed on screen
+					 * anymore. */
+    Tk_ChunkMeasureProc *measureProc;	/* Procedure to find character under
+					 * a given x-location. */
+    Tk_ChunkBboxProc *bboxProc;		/* Procedure to find bounding box
+					 * of character in chunk. */
+    int numChars;			/* Number of characters that will be
+					 * displayed in the chunk. */
+    int minAscent;			/* Minimum space above the baseline
+					 * needed by this chunk. */
+    int minDescent;			/* Minimum space below the baseline
+					 * needed by this chunk. */
+    int minHeight;			/* Minimum total line height needed
+					 * by this chunk. */
+    int width;				/* Width of this chunk, in pixels.
+					 * Initially set by chunk-specific
+					 * code, but may be increased to
+					 * include tab or extra space at end
+					 * of line. */
+    int breakIndex;			/* Index within chunk of last
+					 * acceptable position for a line
+					 * (break just before this character).
+					 * <= 0 means don't break during or
+					 * immediately after this chunk. */
+    ClientData clientData;		/* Additional information for use
+					 * of displayProc and undisplayProc. */
+};
+
+/*
+ * One data structure of the following type is used for each tag in a
+ * text widget.  These structures are kept in textPtr->tagTable and
+ * referred to in other structures.
+ */
+
+typedef struct TkTextTag {
+    char *name;			/* Name of this tag.  This field is actually
+				 * a pointer to the key from the entry in
+				 * textPtr->tagTable, so it needn't be freed
+				 * explicitly. */
+    int priority;		/* Priority of this tag within widget.  0
+				 * means lowest priority.  Exactly one tag
+				 * has each integer value between 0 and
+				 * numTags-1. */
+    struct Node *tagRootPtr;	/* Pointer into the B-Tree at the lowest
+				 * node that completely dominates the ranges
+				 * of text occupied by the tag.  At this
+				 * node there is no information about the
+				 * tag.  One or more children of the node
+				 * do contain information about the tag. */
+    int toggleCount;		/* Total number of tag toggles */
+
+    /*
+     * Information for displaying text with this tag.  The information
+     * belows acts as an override on information specified by lower-priority
+     * tags.  If no value is specified, then the next-lower-priority tag
+     * on the text determins the value.  The text widget itself provides
+     * defaults if no tag specifies an override.
+     */
+
+    Tk_3DBorder border;		/* Used for drawing background.  NULL means
+				 * no value specified here. */
+    char *bdString;		/* -borderwidth option string (malloc-ed).
+				 * NULL means option not specified. */
+    int borderWidth;		/* Width of 3-D border for background. */
+    char *reliefString;		/* -relief option string (malloc-ed).
+				 * NULL means option not specified. */
+    int relief;			/* 3-D relief for background. */
+    Pixmap bgStipple;		/* Stipple bitmap for background.  None
+				 * means no value specified here. */
+    XColor *fgColor;		/* Foreground color for text.  NULL means
+				 * no value specified here. */
+    XFontStruct *fontPtr;	/* Font for displaying text.  NULL means
+				 * no value specified here. */
+    Pixmap fgStipple;		/* Stipple bitmap for text and other
+				 * foreground stuff.   None means no value
+				 * specified here.*/
+    char *justifyString;	/* -justify option string (malloc-ed).
+				 * NULL means option not specified. */
+    Tk_Justify justify;		/* How to justify text: TK_JUSTIFY_LEFT,
+				 * TK_JUSTIFY_RIGHT, or TK_JUSTIFY_CENTER.
+				 * Only valid if justifyString is non-NULL. */
+    char *lMargin1String;	/* -lmargin1 option string (malloc-ed).
+				 * NULL means option not specified. */
+    int lMargin1;		/* Left margin for first display line of
+				 * each text line, in pixels.  Only valid
+				 * if lMargin1String is non-NULL. */
+    char *lMargin2String;	/* -lmargin2 option string (malloc-ed).
+				 * NULL means option not specified. */
+    int lMargin2;		/* Left margin for second and later display
+				 * lines of each text line, in pixels.  Only
+				 * valid if lMargin2String is non-NULL. */
+    char *offsetString;		/* -offset option string (malloc-ed).
+				 * NULL means option not specified. */
+    int offset;			/* Vertical offset of text's baseline from
+				 * baseline of line.  Used for superscripts
+				 * and subscripts.  Only valid if
+				 * offsetString is non-NULL. */
+    char *overstrikeString;	/* -overstrike option string (malloc-ed).
+				 * NULL means option not specified. */
+    int overstrike;		/* Non-zero means draw horizontal line through
+				 * middle of text.  Only valid if
+				 * overstrikeString is non-NULL. */
+    char *rMarginString;	/* -rmargin option string (malloc-ed).
+				 * NULL means option not specified. */
+    int rMargin;		/* Right margin for text, in pixels.  Only
+				 * valid if rMarginString is non-NULL. */
+    char *spacing1String;	/* -spacing1 option string (malloc-ed).
+				 * NULL means option not specified. */
+    int spacing1;		/* Extra spacing above first display
+				 * line for text line.  Only valid if
+				 * spacing1String is non-NULL. */
+    char *spacing2String;	/* -spacing2 option string (malloc-ed).
+				 * NULL means option not specified. */
+    int spacing2;		/* Extra spacing between display
+				 * lines for the same text line.  Only valid
+				 * if spacing2String is non-NULL. */
+    char *spacing3String;	/* -spacing2 option string (malloc-ed).
+				 * NULL means option not specified. */
+    int spacing3;		/* Extra spacing below last display
+				 * line for text line.  Only valid if
+				 * spacing3String is non-NULL. */
+    char *tabString;		/* -tabs option string (malloc-ed).
+				 * NULL means option not specified. */
+    struct TkTextTabArray *tabArrayPtr;
+				/* Info about tabs for tag (malloc-ed)
+				 * or NULL.  Corresponds to tabString. */
+    char *underlineString;	/* -underline option string (malloc-ed).
+				 * NULL means option not specified. */
+    int underline;		/* Non-zero means draw underline underneath
+				 * text.  Only valid if underlineString is
+				 * non-NULL. */
+    Tk_Uid wrapMode;		/* How to handle wrap-around for this tag.
+				 * Must be tkTextCharUid, tkTextNoneUid,
+				 * tkTextWordUid, or NULL to use wrapMode
+				 * for whole widget. */
+    int affectsDisplay;		/* Non-zero means that this tag affects the
+				 * way information is displayed on the screen
+				 * (so need to redisplay if tag changes). */
+} TkTextTag;
+
+#define TK_TAG_AFFECTS_DISPLAY	0x1
+#define TK_TAG_UNDERLINE	0x2
+#define TK_TAG_JUSTIFY		0x4
+#define TK_TAG_OFFSET		0x10
+
+/*
+ * The data structure below is used for searching a B-tree for transitions
+ * on a single tag (or for all tag transitions).  No code outside of
+ * tkTextBTree.c should ever modify any of the fields in these structures,
+ * but it's OK to use them for read-only information.
+ */
+
+typedef struct TkTextSearch {
+    TkTextIndex curIndex;		/* Position of last tag transition
+					 * returned by TkBTreeNextTag, or
+					 * index of start of segment
+					 * containing starting position for
+					 * search if TkBTreeNextTag hasn't
+					 * been called yet, or same as
+					 * stopIndex if search is over. */
+    TkTextSegment *segPtr;		/* Actual tag segment returned by last
+					 * call to TkBTreeNextTag, or NULL if
+					 * TkBTreeNextTag hasn't returned
+					 * anything yet. */
+    TkTextSegment *nextPtr;		/* Where to resume search in next
+					 * call to TkBTreeNextTag. */
+    TkTextSegment *lastPtr;		/* Stop search before just before
+					 * considering this segment. */
+    TkTextTag *tagPtr;			/* Tag to search for (or tag found, if
+					 * allTags is non-zero). */
+    int linesLeft;			/* Lines left to search (including
+					 * curIndex and stopIndex).  When
+					 * this becomes <= 0 the search is
+					 * over. */
+    int allTags;			/* Non-zero means ignore tag check:
+					 * search for transitions on all
+					 * tags. */
+} TkTextSearch;
+
+/*
+ * The following data structure describes a single tab stop.
+ */
+
+typedef enum {LEFT, RIGHT, CENTER, NUMERIC} TkTextTabAlign;
+
+typedef struct TkTextTab {
+    int location;			/* Offset in pixels of this tab stop
+					 * from the left margin (lmargin2) of
+					 * the text. */
+    TkTextTabAlign alignment;		/* Where the tab stop appears relative
+					 * to the text. */
+} TkTextTab;
+
+typedef struct TkTextTabArray {
+    int numTabs;			/* Number of tab stops. */
+    TkTextTab tabs[1];			/* Array of tabs.  The actual size
+					 * will be numTabs.  THIS FIELD MUST
+					 * BE THE LAST IN THE STRUCTURE. */
+} TkTextTabArray;
+
+/*
+ * A data structure of the following type is kept for each text widget that
+ * currently exists for this process:
+ */
+
+typedef struct TkText {
+    Tk_Window tkwin;		/* Window that embodies the text.  NULL
+				 * means that the window has been destroyed
+				 * but the data structures haven't yet been
+				 * cleaned up.*/
+    Display *display;		/* Display for widget.  Needed, among other
+				 * things, to allow resources to be freed
+				 * even after tkwin has gone away. */
+    Tcl_Interp *interp;		/* Interpreter associated with widget.  Used
+				 * to delete widget command.  */
+    Tcl_Command widgetCmd;	/* Token for text's widget command. */
+    TkTextBTree tree;		/* B-tree representation of text and tags for
+				 * widget. */
+    Tcl_HashTable tagTable;	/* Hash table that maps from tag names to
+				 * pointers to TkTextTag structures. */
+    int numTags;		/* Number of tags currently defined for
+				 * widget;  needed to keep track of
+				 * priorities. */
+    Tcl_HashTable markTable;	/* Hash table that maps from mark names to
+				 * pointers to mark segments. */
+    Tcl_HashTable windowTable;	/* Hash table that maps from window names
+				 * to pointers to window segments.  If a
+				 * window segment doesn't yet have an
+				 * associated window, there is no entry for
+				 * it here. */
+    Tk_Uid state;		/* Normal or disabled.  Text is read-only
+				 * when disabled. */
+
+    /*
+     * Default information for displaying (may be overridden by tags
+     * applied to ranges of characters).
+     */
+
+    Tk_3DBorder border;		/* Structure used to draw 3-D border and
+				 * default background. */
+    int borderWidth;		/* Width of 3-D border to draw around entire
+				 * widget. */
+    int padX, padY;		/* Padding between text and window border. */
+    int relief;			/* 3-d effect for border around entire
+				 * widget: TK_RELIEF_RAISED etc. */
+    int highlightWidth;		/* Width in pixels of highlight to draw
+				 * around widget when it has the focus.
+				 * <= 0 means don't draw a highlight. */
+    XColor *highlightBgColorPtr;
+				/* Color for drawing traversal highlight
+				 * area when highlight is off. */
+    XColor *highlightColorPtr;	/* Color for drawing traversal highlight. */
+    Tk_Cursor cursor;		/* Current cursor for window, or None. */
+    XColor *fgColor;		/* Default foreground color for text. */
+    XFontStruct *fontPtr;	/* Default font for displaying text. */
+    int charWidth;		/* Width of average character in default
+				 * font. */
+    int spacing1;		/* Default extra spacing above first display
+				 * line for each text line. */
+    int spacing2;		/* Default extra spacing between display lines
+				 * for the same text line. */
+    int spacing3;		/* Default extra spacing below last display
+				 * line for each text line. */
+    char *tabOptionString;	/* Value of -tabs option string (malloc'ed). */
+    TkTextTabArray *tabArrayPtr;
+				/* Information about tab stops (malloc'ed).
+				 * NULL means perform default tabbing
+				 * behavior. */
+
+    /*
+     * Additional information used for displaying:
+     */
+
+    Tk_Uid wrapMode;		/* How to handle wrap-around.  Must be
+				 * tkTextCharUid, tkTextNoneUid, or
+				 * tkTextWordUid. */
+    int width, height;		/* Desired dimensions for window, measured
+				 * in characters. */
+    int setGrid;		/* Non-zero means pass gridding information
+				 * to window manager. */
+    int prevWidth, prevHeight;	/* Last known dimensions of window;  used to
+				 * detect changes in size. */
+    TkTextIndex topIndex;	/* Identifies first character in top display
+				 * line of window. */
+    struct TextDInfo *dInfoPtr;	/* Information maintained by tkTextDisp.c. */
+
+    /*
+     * Information related to selection.
+     */
+
+    TkTextTag *selTagPtr;	/* Pointer to "sel" tag.  Used to tell when
+				 * a new selection has been made. */
+    Tk_3DBorder selBorder;	/* Border and background for selected
+				 * characters.  This is a copy of information
+				 * in *cursorTagPtr, so it shouldn't be
+				 * explicitly freed. */
+    char *selBdString;		/* Value of -selectborderwidth option, or NULL
+				 * if not specified (malloc'ed). */
+    XColor *selFgColorPtr;	/* Foreground color for selected text.
+				 * This is a copy of information in
+				 * *cursorTagPtr, so it shouldn't be
+				 * explicitly freed. */
+    int exportSelection;	/* Non-zero means tie "sel" tag to X
+				 * selection. */
+    TkTextIndex selIndex;	/* Used during multi-pass selection retrievals.
+				 * This index identifies the next character
+				 * to be returned from the selection. */
+    int abortSelections;	/* Set to 1 whenever the text is modified
+				 * in a way that interferes with selection
+				 * retrieval:  used to abort incremental
+				 * selection retrievals. */
+    int selOffset;		/* Offset in selection corresponding to
+				 * selLine and selCh.  -1 means neither
+				 * this information nor selIndex is of any
+				 * use. */
+
+    /*
+     * Information related to insertion cursor:
+     */
+
+    TkTextSegment *insertMarkPtr;
+				/* Points to segment for "insert" mark. */
+    Tk_3DBorder insertBorder;	/* Used to draw vertical bar for insertion
+				 * cursor. */
+    int insertWidth;		/* Total width of insert cursor. */
+    int insertBorderWidth;	/* Width of 3-D border around insert cursor. */
+    int insertOnTime;		/* Number of milliseconds cursor should spend
+				 * in "on" state for each blink. */
+    int insertOffTime;		/* Number of milliseconds cursor should spend
+				 * in "off" state for each blink. */
+    Tcl_TimerToken insertBlinkHandler;
+				/* Timer handler used to blink cursor on and
+				 * off. */
+
+    /*
+     * Information used for event bindings associated with tags:
+     */
+
+    Tk_BindingTable bindingTable;
+				/* Table of all bindings currently defined
+				 * for this widget.  NULL means that no
+				 * bindings exist, so the table hasn't been
+				 * created.  Each "object" used for this
+				 * table is the address of a tag. */
+    TkTextSegment *currentMarkPtr;
+				/* Pointer to segment for "current" mark,
+				 * or NULL if none. */
+    XEvent pickEvent;		/* The event from which the current character
+				 * was chosen.  Must be saved so that we
+				 * can repick after modifications to the
+				 * text. */
+    int numCurTags;		/* Number of tags associated with character
+				 * at current mark. */
+    TkTextTag **curTagArrayPtr;	/* Pointer to array of tags for current
+				 * mark, or NULL if none. */
+
+    /*
+     * Miscellaneous additional information:
+     */
+
+    char *takeFocus;		/* Value of -takeFocus option;  not used in
+				 * the C code, but used by keyboard traversal
+				 * scripts.  Malloc'ed, but may be NULL. */
+    char *xScrollCmd;		/* Prefix of command to issue to update
+				 * horizontal scrollbar when view changes. */
+    char *yScrollCmd;		/* Prefix of command to issue to update
+				 * vertical scrollbar when view changes. */
+    int flags;			/* Miscellaneous flags;  see below for
+				 * definitions. */
+} TkText;
+
+/*
+ * Flag values for TkText records:
+ *
+ * GOT_SELECTION:		Non-zero means we've already claimed the
+ *				selection.
+ * INSERT_ON:			Non-zero means insertion cursor should be
+ *				displayed on screen.
+ * GOT_FOCUS:			Non-zero means this window has the input
+ *				focus.
+ * BUTTON_DOWN:			1 means that a mouse button is currently
+ *				down;  this is used to implement grabs
+ *				for the duration of button presses.
+ * UPDATE_SCROLLBARS:		Non-zero means scrollbar(s) should be updated
+ *				during next redisplay operation.
+ */
+
+#define GOT_SELECTION		1
+#define INSERT_ON		2
+#define GOT_FOCUS		4
+#define BUTTON_DOWN		8
+#define UPDATE_SCROLLBARS	0x10
+#define NEED_REPICK		0x20
+
+/*
+ * Records of the following type define segment types in terms of
+ * a collection of procedures that may be called to manipulate
+ * segments of that type.
+ */
+
+typedef TkTextSegment *	Tk_SegSplitProc _ANSI_ARGS_((
+			    struct TkTextSegment *segPtr, int index));
+typedef int		Tk_SegDeleteProc _ANSI_ARGS_((
+			    struct TkTextSegment *segPtr,
+			    TkTextLine *linePtr, int treeGone));
+typedef TkTextSegment *	Tk_SegCleanupProc _ANSI_ARGS_((
+			    struct TkTextSegment *segPtr, TkTextLine *linePtr));
+typedef void		Tk_SegLineChangeProc _ANSI_ARGS_((
+			    struct TkTextSegment *segPtr, TkTextLine *linePtr));
+typedef int		Tk_SegLayoutProc _ANSI_ARGS_((struct TkText *textPtr,
+			    struct TkTextIndex *indexPtr, TkTextSegment *segPtr,
+			    int offset, int maxX, int maxChars,
+			    int noCharsYet, Tk_Uid wrapMode,
+			    struct TkTextDispChunk *chunkPtr));
+typedef void		Tk_SegCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+
+typedef struct Tk_SegType {
+    char *name;				/* Name of this kind of segment. */
+    int leftGravity;			/* If a segment has zero size (e.g. a
+					 * mark or tag toggle), does it
+					 * attach to character to its left
+					 * or right?  1 means left, 0 means
+					 * right. */
+    Tk_SegSplitProc *splitProc;		/* Procedure to split large segment
+					 * into two smaller ones. */
+    Tk_SegDeleteProc *deleteProc;	/* Procedure to call to delete
+					 * segment. */
+    Tk_SegCleanupProc *cleanupProc;	/* After any change to a line, this
+					 * procedure is invoked for all
+					 * segments left in the line to
+					 * perform any cleanup they wish
+					 * (e.g. joining neighboring
+					 * segments). */
+    Tk_SegLineChangeProc *lineChangeProc;
+					/* Invoked when a segment is about
+					 * to be moved from its current line
+					 * to an earlier line because of
+					 * a deletion.  The linePtr is that
+					 * for the segment's old line.
+					 * CleanupProc will be invoked after
+					 * the deletion is finished. */
+    Tk_SegLayoutProc *layoutProc;	/* Returns size information when
+					 * figuring out what to display in
+					 * window. */
+    Tk_SegCheckProc *checkProc;		/* Called during consistency checks
+					 * to check internal consistency of
+					 * segment. */
+} Tk_SegType;
+
+/*
+ * The constant below is used to specify a line when what is really
+ * wanted is the entire text.  For now, just use a very big number.
+ */
+
+#define TK_END_OF_TEXT 1000000
+
+/*
+ * The following definition specifies the maximum number of characters
+ * needed in a string to hold a position specifier.
+ */
+
+#define TK_POS_CHARS 30
+
+/*
+ * Declarations for variables shared among the text-related files:
+ */
+
+extern int		tkBTreeDebug;
+extern int		tkTextDebug;
+extern Tk_SegType	tkTextCharType;
+extern Tk_Uid		tkTextCharUid;
+extern Tk_Uid		tkTextDisabledUid;
+extern Tk_SegType	tkTextLeftMarkType;
+extern Tk_Uid		tkTextNoneUid;
+extern Tk_Uid 		tkTextNormalUid;
+extern Tk_SegType	tkTextRightMarkType;
+extern Tk_SegType	tkTextToggleOnType;
+extern Tk_SegType	tkTextToggleOffType;
+extern Tk_Uid		tkTextWordUid;
+
+/*
+ * Declarations for procedures that are used by the text-related files
+ * but shouldn't be used anywhere else in Tk (or by Tk clients):
+ */
+
+extern int		TkBTreeCharTagged _ANSI_ARGS_((TkTextIndex *indexPtr,
+			    TkTextTag *tagPtr));
+extern void		TkBTreeCheck _ANSI_ARGS_((TkTextBTree tree));
+extern int		TkBTreeCharsInLine _ANSI_ARGS_((TkTextLine *linePtr));
+extern TkTextBTree	TkBTreeCreate _ANSI_ARGS_((TkText *textPtr));
+extern void		TkBTreeDestroy _ANSI_ARGS_((TkTextBTree tree));
+extern void		TkBTreeDeleteChars _ANSI_ARGS_((TkTextIndex *index1Ptr,
+			    TkTextIndex *index2Ptr));
+extern TkTextLine *	TkBTreeFindLine _ANSI_ARGS_((TkTextBTree tree,
+			    int line));
+extern TkTextTag **	TkBTreeGetTags _ANSI_ARGS_((TkTextIndex *indexPtr,
+			    int *numTagsPtr));
+extern void		TkBTreeInsertChars _ANSI_ARGS_((TkTextIndex *indexPtr,
+			    char *string));
+extern int		TkBTreeLineIndex _ANSI_ARGS_((TkTextLine *linePtr));
+extern void		TkBTreeLinkSegment _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextIndex *indexPtr));
+extern TkTextLine *	TkBTreeNextLine _ANSI_ARGS_((TkTextLine *linePtr));
+extern int		TkBTreeNextTag _ANSI_ARGS_((TkTextSearch *searchPtr));
+extern int		TkBTreeNumLines _ANSI_ARGS_((TkTextBTree tree));
+extern TkTextLine *	TkBTreePreviousLine _ANSI_ARGS_((TkTextLine *linePtr));
+extern int		TkBTreePrevTag _ANSI_ARGS_((TkTextSearch *searchPtr));
+extern void		TkBTreeStartSearch _ANSI_ARGS_((TkTextIndex *index1Ptr,
+			    TkTextIndex *index2Ptr, TkTextTag *tagPtr,
+			    TkTextSearch *searchPtr));
+extern void		TkBTreeStartSearchBack _ANSI_ARGS_((TkTextIndex *index1Ptr,
+			    TkTextIndex *index2Ptr, TkTextTag *tagPtr,
+			    TkTextSearch *searchPtr));
+extern void		TkBTreeTag _ANSI_ARGS_((TkTextIndex *index1Ptr,
+			    TkTextIndex *index2Ptr, TkTextTag *tagPtr,
+			    int add));
+extern void		TkBTreeUnlinkSegment _ANSI_ARGS_((TkTextBTree tree,
+			    TkTextSegment *segPtr, TkTextLine *linePtr));
+extern void		TkTextBindProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+extern void		TkTextChanged _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *index1Ptr, TkTextIndex *index2Ptr));
+extern int		TkTextCharBbox _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, int *xPtr, int *yPtr,
+			    int *widthPtr, int *heightPtr));
+extern int		TkTextCharLayoutProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, TkTextSegment *segPtr,
+			    int offset, int maxX, int maxChars, int noBreakYet,
+			    Tk_Uid wrapMode, TkTextDispChunk *chunkPtr));
+extern void		TkTextCreateDInfo _ANSI_ARGS_((TkText *textPtr));
+extern int		TkTextDLineInfo _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, int *xPtr, int *yPtr,
+			    int *widthPtr, int *heightPtr, int *basePtr));
+extern TkTextTag *	TkTextCreateTag _ANSI_ARGS_((TkText *textPtr,
+			    char *tagName));
+extern void		TkTextFreeDInfo _ANSI_ARGS_((TkText *textPtr));
+extern void		TkTextFreeTag _ANSI_ARGS_((TkText *textPtr,
+			    TkTextTag *tagPtr));
+extern int		TkTextGetIndex _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, char *string,
+			    TkTextIndex *indexPtr));
+extern TkTextTabArray *	TkTextGetTabs _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window tkwin, char *string));
+extern void		TkTextIndexBackChars _ANSI_ARGS_((TkTextIndex *srcPtr,
+			    int count, TkTextIndex *dstPtr));
+extern int		TkTextIndexCmp _ANSI_ARGS_((TkTextIndex *index1Ptr,
+			    TkTextIndex *index2Ptr));
+extern void		TkTextIndexForwChars _ANSI_ARGS_((TkTextIndex *srcPtr,
+			    int count, TkTextIndex *dstPtr));
+extern TkTextSegment *	TkTextIndexToSeg _ANSI_ARGS_((TkTextIndex *indexPtr,
+			    int *offsetPtr));
+extern void		TkTextInsertDisplayProc _ANSI_ARGS_((
+			    TkTextDispChunk *chunkPtr, int x, int y, int height,
+			    int baseline, Display *display, Drawable dst,
+			    int screenY));
+extern void		TkTextLostSelection _ANSI_ARGS_((
+			    ClientData clientData));
+extern TkTextIndex *	TkTextMakeIndex _ANSI_ARGS_((TkTextBTree tree,
+			    int lineIndex, int charIndex,
+			    TkTextIndex *indexPtr));
+extern int		TkTextMarkCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextMarkNameToIndex _ANSI_ARGS_((TkText *textPtr,
+			    char *name, TkTextIndex *indexPtr));
+extern void		TkTextMarkSegToIndex _ANSI_ARGS_((TkText *textPtr,
+			    TkTextSegment *markPtr, TkTextIndex *indexPtr));
+extern void		TkTextEventuallyRepick _ANSI_ARGS_((TkText *textPtr));
+extern void		TkTextPickCurrent _ANSI_ARGS_((TkText *textPtr,
+			    XEvent *eventPtr));
+extern void		TkTextPixelIndex _ANSI_ARGS_((TkText *textPtr,
+			    int x, int y, TkTextIndex *indexPtr));
+extern void		TkTextPrintIndex _ANSI_ARGS_((TkTextIndex *indexPtr,
+			    char *string));
+extern void		TkTextRedrawRegion _ANSI_ARGS_((TkText *textPtr,
+			    int x, int y, int width, int height));
+extern void		TkTextRedrawTag _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *index1Ptr, TkTextIndex *index2Ptr,
+			    TkTextTag *tagPtr, int withTag));
+extern void		TkTextRelayoutWindow _ANSI_ARGS_((TkText *textPtr));
+extern int		TkTextScanCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextSeeCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextSegToOffset _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+extern TkTextSegment *	TkTextSetMark _ANSI_ARGS_((TkText *textPtr, char *name,
+			    TkTextIndex *indexPtr));
+extern void		TkTextSetYView _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, int pickPlace));
+extern int		TkTextTagCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextWindowCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextWindowIndex _ANSI_ARGS_((TkText *textPtr,
+			    char *name, TkTextIndex *indexPtr));
+extern int		TkTextXviewCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+extern int		TkTextYviewCmd _ANSI_ARGS_((TkText *textPtr,
+			    Tcl_Interp *interp, int argc, char **argv));
+
+#endif /* _TKTEXT */
diff --git a/Tk/generic/tkTextBTree.c b/Tk/generic/tkTextBTree.c
new file mode 100644
index 0000000..7480ac6
--- /dev/null
+++ b/Tk/generic/tkTextBTree.c
@@ -0,0 +1,3594 @@
+/* 
+ * tkTextBTree.c --
+ *
+ *	This file contains code that manages the B-tree representation
+ *	of text for Tk's text widget and implements character and
+ *	toggle segment types.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextBTree.c 1.35 96/03/21 15:51:39
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkText.h"
+
+/*
+ * The data structure below keeps summary information about one tag as part
+ * of the tag information in a node.
+ */
+
+typedef struct Summary {
+    TkTextTag *tagPtr;			/* Handle for tag. */
+    int toggleCount;			/* Number of transitions into or
+					 * out of this tag that occur in
+					 * the subtree rooted at this node. */
+    struct Summary *nextPtr;		/* Next in list of all tags for same
+					 * node, or NULL if at end of list. */
+} Summary;
+
+/*
+ * The data structure below defines a node in the B-tree.
+ */
+
+typedef struct Node {
+    struct Node *parentPtr;		/* Pointer to parent node, or NULL if
+					 * this is the root. */
+    struct Node *nextPtr;		/* Next in list of siblings with the
+					 * same parent node, or NULL for end
+					 * of list. */
+    Summary *summaryPtr;		/* First in malloc-ed list of info
+					 * about tags in this subtree (NULL if
+					 * no tag info in the subtree). */
+    int level;				/* Level of this node in the B-tree.
+					 * 0 refers to the bottom of the tree
+					 * (children are lines, not nodes). */
+    union {				/* First in linked list of children. */
+	struct Node *nodePtr;		/* Used if level > 0. */
+	TkTextLine *linePtr;		/* Used if level == 0. */
+    } children;
+    int numChildren;			/* Number of children of this node. */
+    int numLines;			/* Total number of lines (leaves) in
+					 * the subtree rooted here. */
+} Node;
+
+/*
+ * Upper and lower bounds on how many children a node may have:
+ * rebalance when either of these limits is exceeded.  MAX_CHILDREN
+ * should be twice MIN_CHILDREN and MIN_CHILDREN must be >= 2.
+ */
+
+#define MAX_CHILDREN 12
+#define MIN_CHILDREN 6
+
+/*
+ * The data structure below defines an entire B-tree.
+ */
+
+typedef struct BTree {
+    Node *rootPtr;			/* Pointer to root of B-tree. */
+    TkText *textPtr;			/* Used to find tagTable in consistency
+					 * checking code */
+} BTree;
+
+/*
+ * The structure below is used to pass information between
+ * TkBTreeGetTags and IncCount:
+ */
+
+typedef struct TagInfo {
+    int numTags;			/* Number of tags for which there
+					 * is currently information in
+					 * tags and counts. */
+    int arraySize;			/* Number of entries allocated for
+					 * tags and counts. */
+    TkTextTag **tagPtrs;		/* Array of tags seen so far.
+					 * Malloc-ed. */
+    int *counts;			/* Toggle count (so far) for each
+					 * entry in tags.  Malloc-ed. */
+} TagInfo;
+
+/*
+ * Variable that indicates whether to enable consistency checks for
+ * debugging.
+ */
+
+int tkBTreeDebug = 0;
+
+/*
+ * Macros that determine how much space to allocate for new segments:
+ */
+
+#define CSEG_SIZE(chars) ((unsigned) (Tk_Offset(TkTextSegment, body) \
+	+ 1 + (chars)))
+#define TSEG_SIZE ((unsigned) (Tk_Offset(TkTextSegment, body) \
+	+ sizeof(TkTextToggle)))
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		ChangeNodeToggleCount _ANSI_ARGS_((Node *nodePtr,
+			    TkTextTag *tagPtr, int delta));
+static void		CharCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static int		CharDeleteProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr, int treeGone));
+static TkTextSegment *	CharCleanupProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static TkTextSegment *	CharSplitProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    int index));
+static void		CheckNodeConsistency _ANSI_ARGS_((Node *nodePtr));
+static void		CleanupLine _ANSI_ARGS_((TkTextLine *linePtr));
+static void		DeleteSummaries _ANSI_ARGS_((Summary *tagPtr));
+static void		DestroyNode _ANSI_ARGS_((Node *nodePtr));
+static void		IncCount _ANSI_ARGS_((TkTextTag *tagPtr, int inc,
+			    TagInfo *tagInfoPtr));
+static void		Rebalance _ANSI_ARGS_((BTree *treePtr, Node *nodePtr));
+static void		RecomputeNodeCounts _ANSI_ARGS_((Node *nodePtr));
+static TkTextSegment *	SplitSeg _ANSI_ARGS_((TkTextIndex *indexPtr));
+static void		ToggleCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static TkTextSegment *	ToggleCleanupProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static int		ToggleDeleteProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr, int treeGone));
+static void		ToggleLineChangeProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static TkTextSegment *	FindTagStart _ANSI_ARGS_((TkTextBTree tree,
+			    TkTextTag *tagPtr, TkTextIndex *indexPtr));
+
+/*
+ * Type record for character segments:
+ */
+
+Tk_SegType tkTextCharType = {
+    "character",				/* name */
+    0,						/* leftGravity */
+    CharSplitProc,				/* splitProc */
+    CharDeleteProc,				/* deleteProc */
+    CharCleanupProc,				/* cleanupProc */
+    (Tk_SegLineChangeProc *) NULL,		/* lineChangeProc */
+    TkTextCharLayoutProc,			/* layoutProc */
+    CharCheckProc				/* checkProc */
+};
+
+/*
+ * Type record for segments marking the beginning of a tagged
+ * range:
+ */
+
+Tk_SegType tkTextToggleOnType = {
+    "toggleOn",					/* name */
+    0,						/* leftGravity */
+    (Tk_SegSplitProc *) NULL,			/* splitProc */
+    ToggleDeleteProc,				/* deleteProc */
+    ToggleCleanupProc,				/* cleanupProc */
+    ToggleLineChangeProc,			/* lineChangeProc */
+    (Tk_SegLayoutProc *) NULL,			/* layoutProc */
+    ToggleCheckProc				/* checkProc */
+};
+
+/*
+ * Type record for segments marking the end of a tagged
+ * range:
+ */
+
+Tk_SegType tkTextToggleOffType = {
+    "toggleOff",				/* name */
+    1,						/* leftGravity */
+    (Tk_SegSplitProc *) NULL,			/* splitProc */
+    ToggleDeleteProc,				/* deleteProc */
+    ToggleCleanupProc,				/* cleanupProc */
+    ToggleLineChangeProc,			/* lineChangeProc */
+    (Tk_SegLayoutProc *) NULL,			/* layoutProc */
+    ToggleCheckProc				/* checkProc */
+};
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeCreate --
+ *
+ *	This procedure is called to create a new text B-tree.
+ *
+ * Results:
+ *	The return value is a pointer to a new B-tree containing
+ *	one line with nothing but a newline character.
+ *
+ * Side effects:
+ *	Memory is allocated and initialized.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextBTree
+TkBTreeCreate(textPtr)
+    TkText *textPtr;
+{
+    register BTree *treePtr;
+    register Node *rootPtr;
+    register TkTextLine *linePtr, *linePtr2;
+    register TkTextSegment *segPtr;
+
+    /*
+     * The tree will initially have two empty lines.  The second line
+     * isn't actually part of the tree's contents, but its presence
+     * makes several operations easier.  The tree will have one node,
+     * which is also the root of the tree.
+     */
+
+    rootPtr = (Node *) ckalloc(sizeof(Node));
+    linePtr = (TkTextLine *) ckalloc(sizeof(TkTextLine));
+    linePtr2 = (TkTextLine *) ckalloc(sizeof(TkTextLine));
+    rootPtr->parentPtr = NULL;
+    rootPtr->nextPtr = NULL;
+    rootPtr->summaryPtr = NULL;
+    rootPtr->level = 0;
+    rootPtr->children.linePtr = linePtr;
+    rootPtr->numChildren = 2;
+    rootPtr->numLines = 2;
+
+    linePtr->parentPtr = rootPtr;
+    linePtr->nextPtr = linePtr2;
+    segPtr = (TkTextSegment *) ckalloc(CSEG_SIZE(1));
+    linePtr->segPtr = segPtr;
+    segPtr->typePtr = &tkTextCharType;
+    segPtr->nextPtr = NULL;
+    segPtr->size = 1;
+    segPtr->body.chars[0] = '\n';
+    segPtr->body.chars[1] = 0;
+
+    linePtr2->parentPtr = rootPtr;
+    linePtr2->nextPtr = NULL;
+    segPtr = (TkTextSegment *) ckalloc(CSEG_SIZE(1));
+    linePtr2->segPtr = segPtr;
+    segPtr->typePtr = &tkTextCharType;
+    segPtr->nextPtr = NULL;
+    segPtr->size = 1;
+    segPtr->body.chars[0] = '\n';
+    segPtr->body.chars[1] = 0;
+
+    treePtr = (BTree *) ckalloc(sizeof(BTree));
+    treePtr->rootPtr = rootPtr;
+    treePtr->textPtr = textPtr;
+
+    return (TkTextBTree) treePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeDestroy --
+ *
+ *	Delete a B-tree, recycling all of the storage it contains.
+ *
+ * Results:
+ *	The tree given by treePtr is deleted.  TreePtr should never
+ *	again be used.
+ *
+ * Side effects:
+ *	Memory is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeDestroy(tree)
+    TkTextBTree tree;			/* Pointer to tree to delete. */ 
+{
+    BTree *treePtr = (BTree *) tree;
+
+    DestroyNode(treePtr->rootPtr);
+    ckfree((char *) treePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DestroyNode --
+ *
+ *	This is a recursive utility procedure used during the deletion
+ *	of a B-tree.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All the storage for nodePtr and its descendants is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyNode(nodePtr)
+    register Node *nodePtr;
+{
+    if (nodePtr->level == 0) {
+	TkTextLine *linePtr;
+	TkTextSegment *segPtr;
+
+	while (nodePtr->children.linePtr != NULL) {
+	    linePtr = nodePtr->children.linePtr;
+	    nodePtr->children.linePtr = linePtr->nextPtr;
+	    while (linePtr->segPtr != NULL) {
+		segPtr = linePtr->segPtr;
+		linePtr->segPtr = segPtr->nextPtr;
+		(*segPtr->typePtr->deleteProc)(segPtr, linePtr, 1);
+	    }
+	    ckfree((char *) linePtr);
+	}
+    } else {
+	register Node *childPtr;
+
+	while (nodePtr->children.nodePtr != NULL) {
+	    childPtr = nodePtr->children.nodePtr;
+	    nodePtr->children.nodePtr = childPtr->nextPtr;
+	    DestroyNode(childPtr);
+	}
+    }
+    DeleteSummaries(nodePtr->summaryPtr);
+    ckfree((char *) nodePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteSummaries --
+ *
+ *	Free up all of the memory in a list of tag summaries associated
+ *	with a node.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Storage is released.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteSummaries(summaryPtr)
+    register Summary *summaryPtr;	/* First in list of node's tag
+					 * summaries. */
+{
+    register Summary *nextPtr;
+    while (summaryPtr != NULL) {
+	nextPtr = summaryPtr->nextPtr;
+	ckfree((char *) summaryPtr);
+	summaryPtr = nextPtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeInsertChars --
+ *
+ *	Insert characters at a given position in a B-tree.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Characters are added to the B-tree at the given position.
+ *	If the string contains newlines, new lines will be added,
+ *	which could cause the structure of the B-tree to change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeInsertChars(indexPtr, string)
+    register TkTextIndex *indexPtr;	/* Indicates where to insert text.
+					 * When the procedure returns, this
+					 * index is no longer valid because
+					 * of changes to the segment
+					 * structure. */
+    char *string;			/* Pointer to bytes to insert (may
+					 * contain newlines, must be null-
+					 * terminated). */
+{
+    register Node *nodePtr;
+    register TkTextSegment *prevPtr;	/* The segment just before the first
+					 * new segment (NULL means new segment
+					 * is at beginning of line). */
+    TkTextSegment *curPtr;		/* Current segment;  new characters
+					 * are inserted just after this one. 
+					 * NULL means insert at beginning of
+					 * line. */
+    TkTextLine *linePtr;		/* Current line (new segments are
+					 * added to this line). */
+    register TkTextSegment *segPtr;
+    TkTextLine *newLinePtr;
+    int chunkSize;			/* # characters in current chunk. */
+    register char *eol;			/* Pointer to character just after last
+					 * one in current chunk. */
+    int changeToLineCount;		/* Counts change to total number of
+					 * lines in file. */
+
+    prevPtr = SplitSeg(indexPtr);
+    linePtr = indexPtr->linePtr;
+    curPtr = prevPtr;
+
+    /*
+     * Chop the string up into lines and create a new segment for
+     * each line, plus a new line for the leftovers from the
+     * previous line.
+     */
+
+    changeToLineCount = 0;
+    while (*string != 0) {
+	for (eol = string; *eol != 0; eol++) {
+	    if (*eol == '\n') {
+		eol++;
+		break;
+	    }
+	}
+	chunkSize = eol-string;
+	segPtr = (TkTextSegment *) ckalloc(CSEG_SIZE(chunkSize));
+	segPtr->typePtr = &tkTextCharType;
+	if (curPtr == NULL) {
+	    segPtr->nextPtr = linePtr->segPtr;
+	    linePtr->segPtr = segPtr;
+	} else {
+	    segPtr->nextPtr = curPtr->nextPtr;
+	    curPtr->nextPtr = segPtr;
+	}
+	segPtr->size = chunkSize;
+	strncpy(segPtr->body.chars, string, (size_t) chunkSize);
+	segPtr->body.chars[chunkSize] = 0;
+	curPtr = segPtr;
+
+	if (eol[-1] != '\n') {
+	    break;
+	}
+
+	/*
+	 * The chunk ended with a newline, so create a new TkTextLine
+	 * and move the remainder of the old line to it.
+	 */
+
+	newLinePtr = (TkTextLine *) ckalloc(sizeof(TkTextLine));
+	newLinePtr->parentPtr = linePtr->parentPtr;
+	newLinePtr->nextPtr = linePtr->nextPtr;
+	linePtr->nextPtr = newLinePtr;
+	newLinePtr->segPtr = segPtr->nextPtr;
+	segPtr->nextPtr = NULL;
+	linePtr = newLinePtr;
+	curPtr = NULL;
+	changeToLineCount++;
+
+	string = eol;
+    }
+
+    /*
+     * Cleanup the starting line for the insertion, plus the ending
+     * line if it's different.
+     */
+
+    CleanupLine(indexPtr->linePtr);
+    if (linePtr != indexPtr->linePtr) {
+	CleanupLine(linePtr);
+    }
+
+    /*
+     * Increment the line counts in all the parent nodes of the insertion
+     * point, then rebalance the tree if necessary.
+     */
+
+    for (nodePtr = linePtr->parentPtr ; nodePtr != NULL;
+	    nodePtr = nodePtr->parentPtr) {
+	nodePtr->numLines += changeToLineCount;
+    }
+    nodePtr = linePtr->parentPtr;
+    nodePtr->numChildren += changeToLineCount;
+    if (nodePtr->numChildren > MAX_CHILDREN) {
+	Rebalance((BTree *) indexPtr->tree, nodePtr);
+    }
+
+    if (tkBTreeDebug) {
+	TkBTreeCheck(indexPtr->tree);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * SplitSeg --
+ *
+ *	This procedure is called before adding or deleting
+ *	segments.  It does three things: (a) it finds the segment
+ *	containing indexPtr;  (b) if there are several such
+ *	segments (because some segments have zero length) then
+ *	it picks the first segment that does not have left
+ *	gravity;  (c) if the index refers to the middle of
+ *	a segment then it splits the segment so that the
+ *	index now refers to the beginning of a segment.
+ *
+ * Results:
+ *	The return value is a pointer to the segment just
+ *	before the segment corresponding to indexPtr (as
+ *	described above).  If the segment corresponding to
+ *	indexPtr is the first in its line then the return
+ *	value is NULL.
+ *
+ * Side effects:
+ *	The segment referred to by indexPtr is split unless
+ *	indexPtr refers to its first character.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkTextSegment *
+SplitSeg(indexPtr)
+    TkTextIndex *indexPtr;		/* Index identifying position
+					 * at which to split a segment. */
+{
+    TkTextSegment *prevPtr, *segPtr;
+    int count;
+
+    for (count = indexPtr->charIndex, prevPtr = NULL,
+	    segPtr = indexPtr->linePtr->segPtr; segPtr != NULL;
+	    count -= segPtr->size, prevPtr = segPtr, segPtr = segPtr->nextPtr) {
+	if (segPtr->size > count) {
+	    if (count == 0) {
+		return prevPtr;
+	    }
+	    segPtr = (*segPtr->typePtr->splitProc)(segPtr, count);
+	    if (prevPtr == NULL) {
+		indexPtr->linePtr->segPtr = segPtr;
+	    } else {
+		prevPtr->nextPtr = segPtr;
+	    }
+	    return segPtr;
+	} else if ((segPtr->size == 0) && (count == 0)
+		&& !segPtr->typePtr->leftGravity) {
+	    return prevPtr;
+	}
+    }
+    panic("SplitSeg reached end of line!");
+    return NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CleanupLine --
+ *
+ *	This procedure is called after modifications have been
+ *	made to a line.  It scans over all of the segments in
+ *	the line, giving each a chance to clean itself up, e.g.
+ *	by merging with the following segments, updating internal
+ *	information, etc.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what the segment-specific cleanup procedures do.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CleanupLine(linePtr)
+    TkTextLine *linePtr;		/* Line to be cleaned up. */
+{
+    TkTextSegment *segPtr, **prevPtrPtr;
+    int anyChanges;
+
+    /*
+     * Make a pass over all of the segments in the line, giving each
+     * a chance to clean itself up.  This could potentially change
+     * the structure of the line, e.g. by merging two segments
+     * together or having two segments cancel themselves;  if so,
+     * then repeat the whole process again, since the first structure
+     * change might make other structure changes possible.  Repeat
+     * until eventually there are no changes.
+     */
+
+    while (1) {
+	anyChanges = 0;
+	for (prevPtrPtr = &linePtr->segPtr, segPtr = *prevPtrPtr;
+		segPtr != NULL;
+		prevPtrPtr = &(*prevPtrPtr)->nextPtr, segPtr = *prevPtrPtr) {
+	    if (segPtr->typePtr->cleanupProc != NULL) {
+		*prevPtrPtr = (*segPtr->typePtr->cleanupProc)(segPtr, linePtr);
+		if (segPtr != *prevPtrPtr) {
+		    anyChanges = 1;
+		}
+	    }
+	}
+	if (!anyChanges) {
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeDeleteChars --
+ *
+ *	Delete a range of characters from a B-tree.  The caller
+ *	must make sure that the final newline of the B-tree is
+ *	never deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information is deleted from the B-tree.  This can cause the
+ *	internal structure of the B-tree to change.  Note: because
+ *	of changes to the B-tree structure, the indices pointed
+ *	to by index1Ptr and index2Ptr should not be used after this
+ *	procedure returns.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeDeleteChars(index1Ptr, index2Ptr)
+    register TkTextIndex *index1Ptr;	/* Indicates first character that is
+					 * to be deleted. */
+    register TkTextIndex *index2Ptr;	/* Indicates character just after the
+					 * last one that is to be deleted. */
+{
+    TkTextSegment *prevPtr;		/* The segment just before the start
+					 * of the deletion range. */
+    TkTextSegment *lastPtr;		/* The segment just after the end
+					 * of the deletion range. */
+    TkTextSegment *segPtr, *nextPtr;
+    TkTextLine *curLinePtr;
+    Node *curNodePtr, *nodePtr;
+
+    /*
+     * Tricky point:  split at index2Ptr first;  otherwise the split
+     * at index2Ptr may invalidate segPtr and/or prevPtr.
+     */
+
+    lastPtr = SplitSeg(index2Ptr);
+    if (lastPtr != NULL) {
+	lastPtr = lastPtr->nextPtr;
+    }  else {
+	lastPtr = index2Ptr->linePtr->segPtr;
+    }
+    prevPtr = SplitSeg(index1Ptr);
+    if (prevPtr != NULL) {
+	segPtr = prevPtr->nextPtr;
+	prevPtr->nextPtr = lastPtr;
+    } else {
+	segPtr = index1Ptr->linePtr->segPtr;
+	index1Ptr->linePtr->segPtr = lastPtr;
+    }
+
+    /*
+     * Delete all of the segments between prevPtr and lastPtr.
+     */
+
+    curLinePtr = index1Ptr->linePtr;
+    curNodePtr = curLinePtr->parentPtr;
+    while (segPtr != lastPtr) {
+	if (segPtr == NULL) {
+	    TkTextLine *nextLinePtr;
+
+	    /*
+	     * We just ran off the end of a line.  First find the
+	     * next line, then go back to the old line and delete it
+	     * (unless it's the starting line for the range).
+	     */
+
+	    nextLinePtr = TkBTreeNextLine(curLinePtr);
+	    if (curLinePtr != index1Ptr->linePtr) {
+		if (curNodePtr == index1Ptr->linePtr->parentPtr) {
+		    index1Ptr->linePtr->nextPtr = curLinePtr->nextPtr;
+		} else {
+		    curNodePtr->children.linePtr = curLinePtr->nextPtr;
+		}
+		for (nodePtr = curNodePtr; nodePtr != NULL;
+			nodePtr = nodePtr->parentPtr) {
+		    nodePtr->numLines--;
+		}
+		curNodePtr->numChildren--;
+		ckfree((char *) curLinePtr);
+	    }
+	    curLinePtr = nextLinePtr;
+	    segPtr = curLinePtr->segPtr;
+
+	    /*
+	     * If the node is empty then delete it and its parents,
+	     * recursively upwards until a non-empty node is found.
+	     */
+
+	    while (curNodePtr->numChildren == 0) {
+		Node *parentPtr;
+
+		parentPtr = curNodePtr->parentPtr;
+		if (parentPtr->children.nodePtr == curNodePtr) {
+		    parentPtr->children.nodePtr = curNodePtr->nextPtr;
+		} else {
+		    Node *prevNodePtr = parentPtr->children.nodePtr;
+		    while (prevNodePtr->nextPtr != curNodePtr) {
+			prevNodePtr = prevNodePtr->nextPtr;
+		    }
+		    prevNodePtr->nextPtr = curNodePtr->nextPtr;
+		}
+		parentPtr->numChildren--;
+		ckfree((char *) curNodePtr);
+		curNodePtr = parentPtr;
+	    }
+	    curNodePtr = curLinePtr->parentPtr;
+	    continue;
+	}
+
+	nextPtr = segPtr->nextPtr;
+	if ((*segPtr->typePtr->deleteProc)(segPtr, curLinePtr, 0) != 0) {
+	    /*
+	     * This segment refuses to die.  Move it to prevPtr and
+	     * advance prevPtr if the segment has left gravity.
+	     */
+
+	    if (prevPtr == NULL) {
+		segPtr->nextPtr = index1Ptr->linePtr->segPtr;
+		index1Ptr->linePtr->segPtr = segPtr;
+	    } else {
+		segPtr->nextPtr = prevPtr->nextPtr;
+		prevPtr->nextPtr = segPtr;
+	    }
+	    if (segPtr->typePtr->leftGravity) {
+		prevPtr = segPtr;
+	    }
+	}
+	segPtr = nextPtr;
+    }
+
+    /*
+     * If the beginning and end of the deletion range are in different
+     * lines, join the two lines together and discard the ending line.
+     */
+
+    if (index1Ptr->linePtr != index2Ptr->linePtr) {
+	TkTextLine *prevLinePtr;
+
+	for (segPtr = lastPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    if (segPtr->typePtr->lineChangeProc != NULL) {
+		(*segPtr->typePtr->lineChangeProc)(segPtr, index2Ptr->linePtr);
+	    }
+	}
+	curNodePtr = index2Ptr->linePtr->parentPtr;
+	for (nodePtr = curNodePtr; nodePtr != NULL;
+		nodePtr = nodePtr->parentPtr) {
+	    nodePtr->numLines--;
+	}
+	curNodePtr->numChildren--;
+	prevLinePtr = curNodePtr->children.linePtr;
+	if (prevLinePtr == index2Ptr->linePtr) {
+	    curNodePtr->children.linePtr = index2Ptr->linePtr->nextPtr;
+	} else {
+	    while (prevLinePtr->nextPtr != index2Ptr->linePtr) {
+		prevLinePtr = prevLinePtr->nextPtr;
+	    }
+	    prevLinePtr->nextPtr = index2Ptr->linePtr->nextPtr;
+	}
+	ckfree((char *) index2Ptr->linePtr);
+	Rebalance((BTree *) index2Ptr->tree, curNodePtr);
+    }
+
+    /*
+     * Cleanup the segments in the new line.
+     */
+
+    CleanupLine(index1Ptr->linePtr);
+
+    /*
+     * Lastly, rebalance the first node of the range.
+     */
+
+    Rebalance((BTree *) index1Ptr->tree, index1Ptr->linePtr->parentPtr);
+    if (tkBTreeDebug) {
+	TkBTreeCheck(index1Ptr->tree);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeFindLine --
+ *
+ *	Find a particular line in a B-tree based on its line number.
+ *
+ * Results:
+ *	The return value is a pointer to the line structure for the
+ *	line whose index is "line", or NULL if no such line exists.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextLine *
+TkBTreeFindLine(tree, line)
+    TkTextBTree tree;			/* B-tree in which to find line. */
+    int line;				/* Index of desired line. */
+{
+    BTree *treePtr = (BTree *) tree;
+    register Node *nodePtr;
+    register TkTextLine *linePtr;
+    int linesLeft;
+
+    nodePtr = treePtr->rootPtr;
+    linesLeft = line;
+    if ((line < 0) || (line >= nodePtr->numLines)) {
+	return NULL;
+    }
+
+    /*
+     * Work down through levels of the tree until a node is found at
+     * level 0.
+     */
+
+    while (nodePtr->level != 0) {
+	for (nodePtr = nodePtr->children.nodePtr;
+		nodePtr->numLines <= linesLeft;
+		nodePtr = nodePtr->nextPtr) {
+	    if (nodePtr == NULL) {
+		panic("TkBTreeFindLine ran out of nodes");
+	    }
+	    linesLeft -= nodePtr->numLines;
+	}
+    }
+
+    /*
+     * Work through the lines attached to the level-0 node.
+     */
+
+    for (linePtr = nodePtr->children.linePtr; linesLeft > 0;
+	    linePtr = linePtr->nextPtr) {
+	if (linePtr == NULL) {
+	    panic("TkBTreeFindLine ran out of lines");
+	}
+	linesLeft -= 1;
+    }
+    return linePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeNextLine --
+ *
+ *	Given an existing line in a B-tree, this procedure locates the
+ *	next line in the B-tree.  This procedure is used for scanning
+ *	through the B-tree.
+ *
+ * Results:
+ *	The return value is a pointer to the line that immediately
+ *	follows linePtr, or NULL if there is no such line.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextLine *
+TkBTreeNextLine(linePtr)
+    register TkTextLine *linePtr;	/* Pointer to existing line in
+					 * B-tree. */
+{
+    register Node *nodePtr;
+
+    if (linePtr->nextPtr != NULL) {
+	return linePtr->nextPtr;
+    }
+
+    /*
+     * This was the last line associated with the particular parent node.
+     * Search up the tree for the next node, then search down from that
+     * node to find the first line.
+     */
+
+    for (nodePtr = linePtr->parentPtr; ; nodePtr = nodePtr->parentPtr) {
+	if (nodePtr->nextPtr != NULL) {
+	    nodePtr = nodePtr->nextPtr;
+	    break;
+	}
+	if (nodePtr->parentPtr == NULL) {
+	    return (TkTextLine *) NULL;
+	}
+    }
+    while (nodePtr->level > 0) {
+	nodePtr = nodePtr->children.nodePtr;
+    }
+    return nodePtr->children.linePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreePreviousLine --
+ *
+ *	Given an existing line in a B-tree, this procedure locates the
+ *	previous line in the B-tree.  This procedure is used for scanning
+ *	through the B-tree in the reverse direction.
+ *
+ * Results:
+ *	The return value is a pointer to the line that immediately
+ *	preceeds linePtr, or NULL if there is no such line.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextLine *
+TkBTreePreviousLine(linePtr)
+    register TkTextLine *linePtr;	/* Pointer to existing line in
+					 * B-tree. */
+{
+    register Node *nodePtr;
+    register Node *node2Ptr;
+    register TkTextLine *prevPtr;
+
+    /*
+     * Find the line under this node just before the starting line.
+     */
+    prevPtr = linePtr->parentPtr->children.linePtr;	/* First line at leaf */
+    while (prevPtr != linePtr) {
+	if (prevPtr->nextPtr == linePtr) {
+	    return prevPtr;
+	}
+	prevPtr = prevPtr->nextPtr;
+	if (prevPtr == (TkTextLine *) NULL) {
+	    panic("TkBTreePreviousLine ran out of lines");
+	}
+    }
+
+    /*
+     * This was the first line associated with the particular parent node.
+     * Search up the tree for the previous node, then search down from that
+     * node to find its last line.
+     */
+    for (nodePtr = linePtr->parentPtr; ; nodePtr = nodePtr->parentPtr) {
+	if (nodePtr == (Node *) NULL || nodePtr->parentPtr == (Node *) NULL) {
+	    return (TkTextLine *) NULL;
+	}
+	if (nodePtr != nodePtr->parentPtr->children.nodePtr) {
+	    break;
+	}
+    }
+    for (node2Ptr = nodePtr->parentPtr->children.nodePtr; ; 
+	    node2Ptr = node2Ptr->children.nodePtr) {
+	while (node2Ptr->nextPtr != nodePtr) {
+	    node2Ptr = node2Ptr->nextPtr;
+	}
+	if (node2Ptr->level == 0) {
+	    break;
+	}
+	nodePtr = (Node *)NULL;
+    }
+    for (prevPtr = node2Ptr->children.linePtr ; ; prevPtr = prevPtr->nextPtr) {
+	if (prevPtr->nextPtr == (TkTextLine *) NULL) {
+	    return prevPtr;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeLineIndex --
+ *
+ *	Given a pointer to a line in a B-tree, return the numerical
+ *	index of that line.
+ *
+ * Results:
+ *	The result is the index of linePtr within the tree, where 0
+ *	corresponds to the first line in the tree.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreeLineIndex(linePtr)
+    TkTextLine *linePtr;		/* Pointer to existing line in
+					 * B-tree. */
+{
+    register TkTextLine *linePtr2;
+    register Node *nodePtr, *parentPtr, *nodePtr2;
+    int index;
+
+    /*
+     * First count how many lines precede this one in its level-0
+     * node.
+     */
+
+    nodePtr = linePtr->parentPtr;
+    index = 0;
+    for (linePtr2 = nodePtr->children.linePtr; linePtr2 != linePtr;
+	    linePtr2 = linePtr2->nextPtr) {
+	if (linePtr2 == NULL) {
+	    panic("TkBTreeLineIndex couldn't find line");
+	}
+	index += 1;
+    }
+
+    /*
+     * Now work up through the levels of the tree one at a time,
+     * counting how many lines are in nodes preceding the current
+     * node.
+     */
+
+    for (parentPtr = nodePtr->parentPtr ; parentPtr != NULL;
+	    nodePtr = parentPtr, parentPtr = parentPtr->parentPtr) {
+	for (nodePtr2 = parentPtr->children.nodePtr; nodePtr2 != nodePtr;
+		nodePtr2 = nodePtr2->nextPtr) {
+	    if (nodePtr2 == NULL) {
+		panic("TkBTreeLineIndex couldn't find node");
+	    }
+	    index += nodePtr2->numLines;
+	}
+    }
+    return index;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeLinkSegment --
+ *
+ *	This procedure adds a new segment to a B-tree at a given
+ *	location.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	SegPtr will be linked into its tree.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkBTreeLinkSegment(segPtr, indexPtr)
+    TkTextSegment *segPtr;	/* Pointer to new segment to be added to
+				 * B-tree.  Should be completely initialized
+				 * by caller except for nextPtr field. */
+    TkTextIndex *indexPtr;	/* Where to add segment:  it gets linked
+				 * in just before the segment indicated
+				 * here. */
+{
+    register TkTextSegment *prevPtr;
+
+    prevPtr = SplitSeg(indexPtr);
+    if (prevPtr == NULL) {
+	segPtr->nextPtr = indexPtr->linePtr->segPtr;
+	indexPtr->linePtr->segPtr = segPtr;
+    } else {
+	segPtr->nextPtr = prevPtr->nextPtr;
+	prevPtr->nextPtr = segPtr;
+    }
+    CleanupLine(indexPtr->linePtr);
+    if (tkBTreeDebug) {
+	TkBTreeCheck(indexPtr->tree);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeUnlinkSegment --
+ *
+ *	This procedure unlinks a segment from its line in a B-tree.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	SegPtr will be unlinked from linePtr.  The segment itself
+ *	isn't modified by this procedure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkBTreeUnlinkSegment(tree, segPtr, linePtr)
+    TkTextBTree tree;			/* Tree containing segment. */
+    TkTextSegment *segPtr;		/* Segment to be unlinked. */
+    TkTextLine *linePtr;		/* Line that currently contains
+					 * segment. */
+{
+    register TkTextSegment *prevPtr;
+
+    if (linePtr->segPtr == segPtr) {
+	linePtr->segPtr = segPtr->nextPtr;
+    } else {
+	for (prevPtr = linePtr->segPtr; prevPtr->nextPtr != segPtr;
+		prevPtr = prevPtr->nextPtr) {
+	    /* Empty loop body. */
+	}
+	prevPtr->nextPtr = segPtr->nextPtr;
+    }
+    CleanupLine(linePtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeTag --
+ *
+ *	Turn a given tag on or off for a given range of characters in
+ *	a B-tree of text.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The given tag is added to the given range of characters
+ *	in the tree or removed from all those characters, depending
+ *	on the "add" argument.  The structure of the btree is modified
+ *	enough that index1Ptr and index2Ptr are no longer valid after
+ *	this procedure returns, and the indexes may be modified by
+ *	this procedure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeTag(index1Ptr, index2Ptr, tagPtr, add)
+    register TkTextIndex *index1Ptr;	/* Indicates first character in
+					 * range. */
+    register TkTextIndex *index2Ptr;	/* Indicates character just after the
+					 * last one in range. */
+    TkTextTag *tagPtr;			/* Tag to add or remove. */
+    int add;				/* One means add tag to the given
+					 * range of characters;  zero means
+					 * remove the tag from the range. */
+{
+    TkTextSegment *segPtr, *prevPtr;
+    TkTextSearch search;
+    TkTextLine *cleanupLinePtr;
+    int oldState;
+    int changed;
+
+    /*
+     * See whether the tag is present at the start of the range.  If
+     * the state doesn't already match what we want then add a toggle
+     * there.
+     */
+
+    oldState = TkBTreeCharTagged(index1Ptr, tagPtr);
+    if ((add != 0) ^ oldState) {
+	segPtr = (TkTextSegment *) ckalloc(TSEG_SIZE);
+	segPtr->typePtr = (add) ? &tkTextToggleOnType : &tkTextToggleOffType;
+	prevPtr = SplitSeg(index1Ptr);
+	if (prevPtr == NULL) {
+	    segPtr->nextPtr = index1Ptr->linePtr->segPtr;
+	    index1Ptr->linePtr->segPtr = segPtr;
+	} else {
+	    segPtr->nextPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = segPtr;
+	}
+	segPtr->size = 0;
+	segPtr->body.toggle.tagPtr = tagPtr;
+	segPtr->body.toggle.inNodeCounts = 0;
+    }
+
+    /*
+     * Scan the range of characters and delete any internal tag
+     * transitions.  Keep track of what the old state was at the end
+     * of the range, and add a toggle there if it's needed.
+     */
+
+    TkBTreeStartSearch(index1Ptr, index2Ptr, tagPtr, &search);
+    cleanupLinePtr = index1Ptr->linePtr;
+    while (TkBTreeNextTag(&search)) {
+	oldState ^= 1;
+	segPtr = search.segPtr;
+	prevPtr = search.curIndex.linePtr->segPtr;
+	if (prevPtr == segPtr) {
+	    search.curIndex.linePtr->segPtr = segPtr->nextPtr;
+	} else {
+	    while (prevPtr->nextPtr != segPtr) {
+		prevPtr = prevPtr->nextPtr;
+	    }
+	    prevPtr->nextPtr = segPtr->nextPtr;
+	}
+	if (segPtr->body.toggle.inNodeCounts) {
+	    ChangeNodeToggleCount(search.curIndex.linePtr->parentPtr,
+		    segPtr->body.toggle.tagPtr, -1);
+	    segPtr->body.toggle.inNodeCounts = 0;
+	    changed = 1;
+	} else {
+	    changed = 0;
+	}
+	ckfree((char *) segPtr);
+
+	/*
+	 * The code below is a bit tricky.  After deleting a toggle
+	 * we eventually have to call CleanupLine, in order to allow
+	 * character segments to be merged together.  To do this, we
+	 * remember in cleanupLinePtr a line that needs to be
+	 * cleaned up, but we don't clean it up until we've moved
+	 * on to a different line.  That way the cleanup process
+	 * won't goof up segPtr.
+	 */
+
+	if (cleanupLinePtr != search.curIndex.linePtr) {
+	    CleanupLine(cleanupLinePtr);
+	    cleanupLinePtr = search.curIndex.linePtr;
+	}
+	/*
+	 * Quick hack.  ChangeNodeToggleCount may move the tag's root
+	 * location around and leave the search in the void.  This resets
+	 * the search.
+	 */
+	if (changed) {
+	    TkBTreeStartSearch(index1Ptr, index2Ptr, tagPtr, &search);
+	}
+    }
+    if ((add != 0) ^ oldState) {
+	segPtr = (TkTextSegment *) ckalloc(TSEG_SIZE);
+	segPtr->typePtr = (add) ? &tkTextToggleOffType : &tkTextToggleOnType;
+	prevPtr = SplitSeg(index2Ptr);
+	if (prevPtr == NULL) {
+	    segPtr->nextPtr = index2Ptr->linePtr->segPtr;
+	    index2Ptr->linePtr->segPtr = segPtr;
+	} else {
+	    segPtr->nextPtr = prevPtr->nextPtr;
+	    prevPtr->nextPtr = segPtr;
+	}
+	segPtr->size = 0;
+	segPtr->body.toggle.tagPtr = tagPtr;
+	segPtr->body.toggle.inNodeCounts = 0;
+    }
+
+    /*
+     * Cleanup cleanupLinePtr and the last line of the range, if
+     * these are different.
+     */
+
+    CleanupLine(cleanupLinePtr);
+    if (cleanupLinePtr != index2Ptr->linePtr) {
+	CleanupLine(index2Ptr->linePtr);
+    }
+
+    if (tkBTreeDebug) {
+	TkBTreeCheck(index1Ptr->tree);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangeNodeToggleCount --
+ *
+ *	This procedure increments or decrements the toggle count for
+ *	a particular tag in a particular node and all its ancestors
+ *	up to the per-tag root node.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The toggle count for tag is adjusted up or down by "delta" in
+ *	nodePtr.  This routine maintains the tagRootPtr that identifies
+ *	the root node for the tag, moving it up or down the tree as needed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeNodeToggleCount(nodePtr, tagPtr, delta)
+    register Node *nodePtr;		/* Node whose toggle count for a tag
+					 * must be changed. */
+    TkTextTag *tagPtr;			/* Information about tag. */
+    int delta;				/* Amount to add to current toggle
+					 * count for tag (may be negative). */
+{
+    register Summary *summaryPtr, *prevPtr;
+    register Node *node2Ptr;
+    int rootLevel;			/* Level of original tag root */
+
+    tagPtr->toggleCount += delta;
+    if (tagPtr->tagRootPtr == (Node *) NULL) {
+	tagPtr->tagRootPtr = nodePtr;
+	return;
+    }
+
+    /*
+     * Note the level of the existing root for the tag so we can detect
+     * if it needs to be moved because of the toggle count change.
+     */
+
+    rootLevel = tagPtr->tagRootPtr->level;
+
+    /*
+     * Iterate over the node and its ancestors up to the tag root, adjusting
+     * summary counts at each node and moving the tag's root upwards if
+     * necessary.
+     */
+
+    for ( ; nodePtr != tagPtr->tagRootPtr; nodePtr = nodePtr->parentPtr) {
+	/*
+	 * See if there's already an entry for this tag for this node.  If so,
+	 * perhaps all we have to do is adjust its count.
+	 */
+    
+	for (prevPtr = NULL, summaryPtr = nodePtr->summaryPtr;
+		summaryPtr != NULL;
+		prevPtr = summaryPtr, summaryPtr = summaryPtr->nextPtr) {
+	    if (summaryPtr->tagPtr == tagPtr) {
+		break;
+	    }
+	}
+	if (summaryPtr != NULL) {
+	    summaryPtr->toggleCount += delta;
+	    if (summaryPtr->toggleCount > 0 &&
+		    summaryPtr->toggleCount < tagPtr->toggleCount) {
+		continue;
+	    }
+	    if (summaryPtr->toggleCount != 0) {
+		/*
+		 * Should never find a node with max toggle count at this
+		 * point (there shouldn't have been a summary entry in the
+		 * first place).
+		 */
+
+		panic("ChangeNodeToggleCount: bad toggle count (%d) max (%d)",
+		    summaryPtr->toggleCount, tagPtr->toggleCount);
+	    }
+    
+	    /*
+	     * Zero toggle count;  must remove this tag from the list.
+	     */
+
+	    if (prevPtr == NULL) {
+		nodePtr->summaryPtr = summaryPtr->nextPtr;
+	    } else {
+		prevPtr->nextPtr = summaryPtr->nextPtr;
+	    }
+	    ckfree((char *) summaryPtr);
+	} else {
+	    /*
+	     * This tag isn't currently in the summary information list.
+	     */
+    
+	    if (rootLevel == nodePtr->level) {
+    
+		/*
+		 * The old tag root is at the same level in the tree as this
+		 * node, but it isn't at this node.  Move the tag root up
+		 * a level, in the hopes that it will now cover this node
+		 * as well as the old root (if not, we'll move it up again
+		 * the next time through the loop).  To push it up one level
+		 * we copy the original toggle count into the summary
+		 * information at the old root and change the root to its
+		 * parent node.
+		 */
+    
+		Node *rootNodePtr = tagPtr->tagRootPtr;
+		summaryPtr = (Summary *) ckalloc(sizeof(Summary));
+		summaryPtr->tagPtr = tagPtr;
+		summaryPtr->toggleCount = tagPtr->toggleCount - delta;
+		summaryPtr->nextPtr = rootNodePtr->summaryPtr;
+		rootNodePtr->summaryPtr = summaryPtr;
+		rootNodePtr = rootNodePtr->parentPtr;
+		rootLevel = rootNodePtr->level;
+		tagPtr->tagRootPtr = rootNodePtr;
+	    }
+	    summaryPtr = (Summary *) ckalloc(sizeof(Summary));
+	    summaryPtr->tagPtr = tagPtr;
+	    summaryPtr->toggleCount = delta;
+	    summaryPtr->nextPtr = nodePtr->summaryPtr;
+	    nodePtr->summaryPtr = summaryPtr;
+	}
+    }
+
+    /*
+     * If we've decremented the toggle count, then it may be necessary
+     * to push the tag root down one or more levels.
+     */
+
+    if (delta >= 0) {
+	return;
+    }
+    if (tagPtr->toggleCount == 0) {
+	tagPtr->tagRootPtr = (Node *) NULL;
+	return;
+    }
+    nodePtr = tagPtr->tagRootPtr;
+    while (nodePtr->level > 0) {
+	/*
+	 * See if a single child node accounts for all of the tag's
+	 * toggles.  If so, push the root down one level.
+	 */
+
+	for (node2Ptr = nodePtr->children.nodePtr;
+		node2Ptr != (Node *)NULL ;
+		node2Ptr = node2Ptr->nextPtr) {
+	    for (prevPtr = NULL, summaryPtr = node2Ptr->summaryPtr;
+		    summaryPtr != NULL;
+		    prevPtr = summaryPtr, summaryPtr = summaryPtr->nextPtr) {
+		if (summaryPtr->tagPtr == tagPtr) {
+		    break;
+		}
+	    }
+	    if (summaryPtr == NULL) {
+		continue;
+	    }
+	    if (summaryPtr->toggleCount != tagPtr->toggleCount) {
+		/*
+		 * No node has all toggles, so the root is still valid.
+		 */
+
+		return;
+	    }
+
+	    /*
+	     * This node has all the toggles, so push down the root.
+	     */
+
+	    if (prevPtr == NULL) {
+		node2Ptr->summaryPtr = summaryPtr->nextPtr;
+	    } else {
+		prevPtr->nextPtr = summaryPtr->nextPtr;
+	    }
+	    ckfree((char *) summaryPtr);
+	    tagPtr->tagRootPtr = node2Ptr;
+	    break;
+	}
+	nodePtr = tagPtr->tagRootPtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindTagStart --
+ *
+ *	Find the start of the first range of a tag.
+ *
+ * Results:
+ *	The return value is a pointer to the first tag toggle segment
+ *	for the tag.  This can be either a tagon or tagoff segments because
+ *	of the way TkBTreeAdd removes a tag.
+ *	Sets *indexPtr to be the index of the tag toggle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkTextSegment *
+FindTagStart(tree, tagPtr, indexPtr)
+    TkTextBTree tree;			/* Tree to search within */
+    TkTextTag *tagPtr;			/* Tag to search for. */
+    TkTextIndex *indexPtr;		/* Return - index information */
+{
+    register Node *nodePtr;
+    register TkTextLine *linePtr;
+    register TkTextSegment *segPtr;
+    register Summary *summaryPtr;
+    int offset = 0;
+
+    nodePtr = tagPtr->tagRootPtr;
+    if (nodePtr == (Node *) NULL) {
+	return NULL;
+    }
+
+    /*
+     * Search from the root of the subtree that contains the tag down
+     * to the level 0 node.
+     */
+
+    while (nodePtr->level > 0) {
+	for (nodePtr = nodePtr->children.nodePtr ; nodePtr != (Node *) NULL;
+		nodePtr = nodePtr->nextPtr) {
+	    for (summaryPtr = nodePtr->summaryPtr ; summaryPtr != NULL;
+		    summaryPtr = summaryPtr->nextPtr) {
+		if (summaryPtr->tagPtr == tagPtr) {
+		    goto gotNodeWithTag;
+		}
+	    }
+	}
+	gotNodeWithTag:
+	continue;
+    }
+
+    /*
+     * Work through the lines attached to the level-0 node.
+     */
+
+    for (linePtr = nodePtr->children.linePtr; linePtr != (TkTextLine *) NULL;
+	    linePtr = linePtr->nextPtr) {
+	for (offset = 0, segPtr = linePtr->segPtr ; segPtr != NULL;
+		offset += segPtr->size, segPtr = segPtr->nextPtr) {
+	    if (((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType))
+		    && (segPtr->body.toggle.tagPtr == tagPtr)) {
+		/*
+		 * It is possible that this is a tagoff tag, but that
+		 * gets cleaned up later.
+		 */
+		indexPtr->tree = tree;
+		indexPtr->linePtr = linePtr;
+		indexPtr->charIndex = offset;
+		return segPtr;
+	    }
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindTagEnd --
+ *
+ *	Find the end of the last range of a tag.
+ *
+ * Results:
+ *	The return value is a pointer to the last tag toggle segment
+ *	for the tag.  This can be either a tagon or tagoff segments because
+ *	of the way TkBTreeAdd removes a tag.
+ *	Sets *indexPtr to be the index of the tag toggle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkTextSegment *
+FindTagEnd(tree, tagPtr, indexPtr)
+    TkTextBTree tree;			/* Tree to search within */
+    TkTextTag *tagPtr;			/* Tag to search for. */
+    TkTextIndex *indexPtr;		/* Return - index information */
+{
+    register Node *nodePtr, *lastNodePtr;
+    register TkTextLine *linePtr ,*lastLinePtr;
+    register TkTextSegment *segPtr, *lastSegPtr, *last2SegPtr;
+    register Summary *summaryPtr;
+    int lastoffset, lastoffset2, offset = 0;
+
+    nodePtr = tagPtr->tagRootPtr;
+    if (nodePtr == (Node *) NULL) {
+	return NULL;
+    }
+
+    /*
+     * Search from the root of the subtree that contains the tag down
+     * to the level 0 node.
+     */
+
+    while (nodePtr->level > 0) {
+	for (lastNodePtr = NULL, nodePtr = nodePtr->children.nodePtr ;
+		nodePtr != (Node *) NULL; nodePtr = nodePtr->nextPtr) {
+	    for (summaryPtr = nodePtr->summaryPtr ; summaryPtr != NULL;
+		    summaryPtr = summaryPtr->nextPtr) {
+		if (summaryPtr->tagPtr == tagPtr) {
+		    lastNodePtr = nodePtr;
+		    break;
+		}
+	    }
+	}
+	nodePtr = lastNodePtr;
+    }
+
+    /*
+     * Work through the lines attached to the level-0 node.
+     */
+    last2SegPtr = NULL;
+    lastoffset2 = 0;
+    lastoffset = 0;
+    for (lastLinePtr = NULL, linePtr = nodePtr->children.linePtr;
+	    linePtr != (TkTextLine *) NULL; linePtr = linePtr->nextPtr) {
+	for (offset = 0, lastSegPtr = NULL, segPtr = linePtr->segPtr ;
+		segPtr != NULL; 
+		offset += segPtr->size, segPtr = segPtr->nextPtr) {
+	    if (((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType))
+		    && (segPtr->body.toggle.tagPtr == tagPtr)) {
+		lastSegPtr = segPtr;
+		lastoffset = offset;
+	    }
+	}
+	if (lastSegPtr != NULL) {
+	    lastLinePtr = linePtr;
+	    last2SegPtr = lastSegPtr;
+	    lastoffset2 = lastoffset;
+	}
+    }
+    indexPtr->tree = tree;
+    indexPtr->linePtr = lastLinePtr;
+    indexPtr->charIndex = lastoffset2;
+    return last2SegPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeStartSearch --
+ *
+ *	This procedure sets up a search for tag transitions involving
+ *	a given tag (or all tags) in a given range of the text.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The information at *searchPtr is set up so that subsequent calls
+ *	to TkBTreeNextTag or TkBTreePrevTag will return information about the
+ *	locations of tag transitions.  Note that TkBTreeNextTag or 
+ *	TkBTreePrevTag must be called to get the first transition.
+ *	Note: unlike TkBTreeNextTag and TkBTreePrevTag, this routine does not
+ *	guarantee that searchPtr->curIndex is equal to *index1Ptr.  It may be
+ *	greater than that if *index1Ptr is less than the first tag transition.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeStartSearch(index1Ptr, index2Ptr, tagPtr, searchPtr)
+    TkTextIndex *index1Ptr;		/* Search starts here.  Tag toggles
+					 * at this position will not be
+					 * returned. */
+    TkTextIndex *index2Ptr;		/* Search stops here.  Tag toggles
+					 * at this position *will* be
+					 * returned. */
+    TkTextTag *tagPtr;			/* Tag to search for.  NULL means
+					 * search for any tag. */
+    register TkTextSearch *searchPtr;	/* Where to store information about
+					 * search's progress. */
+{
+    int offset;
+    TkTextIndex index0;		/* First index of the tag */
+    TkTextSegment *seg0Ptr;	/* First segment of the tag */
+
+    /*
+     * Find the segment that contains the first toggle for the tag.  This
+     * may become the starting point in the search.
+     */
+
+    seg0Ptr = FindTagStart(index1Ptr->tree, tagPtr, &index0);
+    if (seg0Ptr == (TkTextSegment *) NULL) {
+	/*
+	 * Even though there are no toggles, the display code still
+	 * uses the search curIndex, so initialize that anyway.
+	 */
+
+	searchPtr->linesLeft = 0;
+	searchPtr->curIndex = *index1Ptr;
+	searchPtr->segPtr = NULL;
+	searchPtr->nextPtr = NULL;
+	return;
+    }
+    if (TkTextIndexCmp(index1Ptr, &index0) < 0) {
+	/*
+	 * Adjust start of search up to the first range of the tag
+	 */
+
+	searchPtr->curIndex = index0;
+	searchPtr->segPtr = NULL;
+	searchPtr->nextPtr = seg0Ptr;	/* Will be returned by NextTag */
+	index1Ptr = &index0;
+    } else {
+	searchPtr->curIndex = *index1Ptr;
+	searchPtr->segPtr = NULL;
+	searchPtr->nextPtr = TkTextIndexToSeg(index1Ptr, &offset);
+	searchPtr->curIndex.charIndex -= offset;
+    }
+    searchPtr->lastPtr = TkTextIndexToSeg(index2Ptr, (int *) NULL);
+    searchPtr->tagPtr = tagPtr;
+    searchPtr->linesLeft = TkBTreeLineIndex(index2Ptr->linePtr) + 1
+	    - TkBTreeLineIndex(index1Ptr->linePtr);
+    searchPtr->allTags = (tagPtr == NULL);
+    if (searchPtr->linesLeft == 1) {
+	/*
+	 * Starting and stopping segments are in the same line; mark the
+	 * search as over immediately if the second segment is before the
+	 * first.  A search does not return a toggle at the very start of
+	 * the range, unless the range is artificially moved up to index0.
+	 */
+	if (((index1Ptr == &index0) && 
+		(index1Ptr->charIndex > index2Ptr->charIndex)) ||
+	    ((index1Ptr != &index0) && 
+		(index1Ptr->charIndex >= index2Ptr->charIndex))) {
+		searchPtr->linesLeft = 0;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeStartSearchBack --
+ *
+ *	This procedure sets up a search backwards for tag transitions involving
+ *	a given tag (or all tags) in a given range of the text.  In the
+ *	normal case the first index (*index1Ptr) is beyond the second
+ *	index (*index2Ptr).
+ *	
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The information at *searchPtr is set up so that subsequent calls
+ *	to TkBTreePrevTag will return information about the
+ *	locations of tag transitions.  Note that TkBTreePrevTag must be called
+ *	to get the first transition.
+ *	Note: unlike TkBTreeNextTag and TkBTreePrevTag, this routine does not
+ *	guarantee that searchPtr->curIndex is equal to *index1Ptr.  It may be
+ *	less than that if *index1Ptr is greater than the last tag transition.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeStartSearchBack(index1Ptr, index2Ptr, tagPtr, searchPtr)
+    TkTextIndex *index1Ptr;		/* Search starts here.  Tag toggles
+					 * at this position will not be
+					 * returned. */
+    TkTextIndex *index2Ptr;		/* Search stops here.  Tag toggles
+					 * at this position *will* be
+					 * returned. */
+    TkTextTag *tagPtr;			/* Tag to search for.  NULL means
+					 * search for any tag. */
+    register TkTextSearch *searchPtr;	/* Where to store information about
+					 * search's progress. */
+{
+    int offset;
+    TkTextIndex index0;		/* Last index of the tag */
+    TkTextIndex backOne;	/* One character before starting index */
+    TkTextSegment *seg0Ptr;	/* Last segment of the tag */
+
+    /*
+     * Find the segment that contains the last toggle for the tag.  This
+     * may become the starting point in the search.
+     */
+
+    seg0Ptr = FindTagEnd(index1Ptr->tree, tagPtr, &index0);
+    if (seg0Ptr == (TkTextSegment *) NULL) {
+	/*
+	 * Even though there are no toggles, the display code still
+	 * uses the search curIndex, so initialize that anyway.
+	 */
+
+	searchPtr->linesLeft = 0;
+	searchPtr->curIndex = *index1Ptr;
+	searchPtr->segPtr = NULL;
+	searchPtr->nextPtr = NULL;
+	return;
+    }
+
+    /*
+     * Adjust the start of the search so it doesn't find any tag toggles
+     * that are right at the index specified by the user.
+     */
+
+    if (TkTextIndexCmp(index1Ptr, &index0) > 0) {
+	searchPtr->curIndex = index0;
+	index1Ptr = &index0;
+    } else {
+	TkTextIndexBackChars(index1Ptr, 1, &searchPtr->curIndex);
+    }
+    searchPtr->segPtr = NULL;
+    searchPtr->nextPtr = TkTextIndexToSeg(&searchPtr->curIndex, &offset);
+    searchPtr->curIndex.charIndex -= offset;
+
+    /*
+     * Adjust the end of the search so it does find toggles that are right
+     * at the second index specified by the user.
+     */
+
+    if ((TkBTreeLineIndex(index2Ptr->linePtr) == 0) &&
+	    (index2Ptr->charIndex == 0)) {
+	backOne = *index2Ptr;
+	searchPtr->lastPtr = NULL;	/* Signals special case for 1.0 */
+    } else {
+	TkTextIndexBackChars(index2Ptr, 1, &backOne);
+	searchPtr->lastPtr = TkTextIndexToSeg(&backOne, (int *) NULL);
+    }
+    searchPtr->tagPtr = tagPtr;
+    searchPtr->linesLeft = TkBTreeLineIndex(index1Ptr->linePtr) + 1
+	    - TkBTreeLineIndex(backOne.linePtr);
+    searchPtr->allTags = (tagPtr == NULL);
+    if (searchPtr->linesLeft == 1) {
+	/*
+	 * Starting and stopping segments are in the same line; mark the
+	 * search as over immediately if the second segment is after the
+	 * first.
+	 */
+
+	if (index1Ptr->charIndex <= backOne.charIndex) {
+	    searchPtr->linesLeft = 0;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeNextTag --
+ *
+ *	Once a tag search has begun, successive calls to this procedure
+ *	return successive tag toggles.  Note:  it is NOT SAFE to call this
+ *	procedure if characters have been inserted into or deleted from
+ *	the B-tree since the call to TkBTreeStartSearch.
+ *
+ * Results:
+ *	The return value is 1 if another toggle was found that met the
+ *	criteria specified in the call to TkBTreeStartSearch;  in this
+ *	case searchPtr->curIndex gives the toggle's position and
+ *	searchPtr->curTagPtr points to its segment.  0 is returned if
+ *	no more matching tag transitions were found; in this case
+ *	searchPtr->curIndex is the same as searchPtr->stopIndex.
+ *
+ * Side effects:
+ *	Information in *searchPtr is modified to update the state of the
+ *	search and indicate where the next tag toggle is located.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreeNextTag(searchPtr)
+    register TkTextSearch *searchPtr;	/* Information about search in
+					 * progress;  must have been set up by
+					 * call to TkBTreeStartSearch. */
+{
+    register TkTextSegment *segPtr;
+    register Node *nodePtr;
+    register Summary *summaryPtr;
+
+    if (searchPtr->linesLeft <= 0) {
+	goto searchOver;
+    }
+
+    /*
+     * The outermost loop iterates over lines that may potentially contain
+     * a relevant tag transition, starting from the current segment in
+     * the current line.
+     */
+
+    segPtr = searchPtr->nextPtr;
+    while (1) {
+	/*
+	 * Check for more tags on the current line.
+	 */
+
+	for ( ; segPtr != NULL; segPtr = segPtr->nextPtr) {
+	    if (segPtr == searchPtr->lastPtr) {
+		goto searchOver;
+	    }
+	    if (((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType))
+		    && (searchPtr->allTags
+		    || (segPtr->body.toggle.tagPtr == searchPtr->tagPtr))) {
+		searchPtr->segPtr = segPtr;
+		searchPtr->nextPtr = segPtr->nextPtr;
+		searchPtr->tagPtr = segPtr->body.toggle.tagPtr;
+		return 1;
+	    }
+	    searchPtr->curIndex.charIndex += segPtr->size;
+	}
+    
+	/*
+	 * See if there are more lines associated with the current parent
+	 * node.  If so, go back to the top of the loop to search the next
+	 * one.
+	 */
+
+	nodePtr = searchPtr->curIndex.linePtr->parentPtr;
+	searchPtr->curIndex.linePtr = searchPtr->curIndex.linePtr->nextPtr;
+	searchPtr->linesLeft--;
+	if (searchPtr->linesLeft <= 0) {
+	    goto searchOver;
+	}
+	if (searchPtr->curIndex.linePtr != NULL) {
+	    segPtr = searchPtr->curIndex.linePtr->segPtr;
+	    searchPtr->curIndex.charIndex = 0;
+	    continue;
+	}
+	if (nodePtr == searchPtr->tagPtr->tagRootPtr) {
+	    goto searchOver;
+	}
+    
+	/*
+	 * Search across and up through the B-tree's node hierarchy looking
+	 * for the next node that has a relevant tag transition somewhere in
+	 * its subtree.  Be sure to update linesLeft as we skip over large
+	 * chunks of lines.
+	 */
+    
+	while (1) {
+	    while (nodePtr->nextPtr == NULL) {
+		if (nodePtr->parentPtr == NULL ||
+		    nodePtr->parentPtr == searchPtr->tagPtr->tagRootPtr) {
+		    goto searchOver;
+		}
+		nodePtr = nodePtr->parentPtr;
+	    }
+	    nodePtr = nodePtr->nextPtr;
+	    for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+		    summaryPtr = summaryPtr->nextPtr) {
+		if ((searchPtr->allTags) ||
+			(summaryPtr->tagPtr == searchPtr->tagPtr)) {
+		    goto gotNodeWithTag;
+		}
+	    }
+	    searchPtr->linesLeft -= nodePtr->numLines;
+	}
+    
+	/*
+	 * At this point we've found a subtree that has a relevant tag
+	 * transition.  Now search down (and across) through that subtree
+	 * to find the first level-0 node that has a relevant tag transition.
+	 */
+    
+	gotNodeWithTag:
+	while (nodePtr->level > 0) {
+	    for (nodePtr = nodePtr->children.nodePtr; ;
+		    nodePtr = nodePtr->nextPtr) {
+		for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if ((searchPtr->allTags)
+			    || (summaryPtr->tagPtr == searchPtr->tagPtr)) {
+			goto nextChild;
+		    }
+		}
+		searchPtr->linesLeft -= nodePtr->numLines;
+		if (nodePtr->nextPtr == NULL) {
+		    panic("TkBTreeNextTag found incorrect tag summary info.");
+		}
+	    }
+	    nextChild:
+	    continue;
+	}
+    
+	/*
+	 * Now we're down to a level-0 node that contains a line that contains
+	 * a relevant tag transition.  Set up line information and go back to
+	 * the beginning of the loop to search through lines.
+	 */
+
+	searchPtr->curIndex.linePtr = nodePtr->children.linePtr;
+	searchPtr->curIndex.charIndex = 0;
+	segPtr = searchPtr->curIndex.linePtr->segPtr;
+	if (searchPtr->linesLeft <= 0) {
+	    goto searchOver;
+	}
+	continue;
+    }
+
+    searchOver:
+    searchPtr->linesLeft = 0;
+    searchPtr->segPtr = NULL;
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreePrevTag --
+ *
+ *	Once a tag search has begun, successive calls to this procedure
+ *	return successive tag toggles in the reverse direction.
+ *	Note:  it is NOT SAFE to call this
+ *	procedure if characters have been inserted into or deleted from
+ *	the B-tree since the call to TkBTreeStartSearch.
+ *
+ * Results:
+ *	The return value is 1 if another toggle was found that met the
+ *	criteria specified in the call to TkBTreeStartSearch;  in this
+ *	case searchPtr->curIndex gives the toggle's position and
+ *	searchPtr->curTagPtr points to its segment.  0 is returned if
+ *	no more matching tag transitions were found; in this case
+ *	searchPtr->curIndex is the same as searchPtr->stopIndex.
+ *
+ * Side effects:
+ *	Information in *searchPtr is modified to update the state of the
+ *	search and indicate where the next tag toggle is located.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreePrevTag(searchPtr)
+    register TkTextSearch *searchPtr;	/* Information about search in
+					 * progress;  must have been set up by
+					 * call to TkBTreeStartSearch. */
+{
+    register TkTextSegment *segPtr, *prevPtr;
+    register TkTextLine *linePtr, *prevLinePtr;
+    register Node *nodePtr, *node2Ptr, *prevNodePtr;
+    register Summary *summaryPtr;
+    int charIndex;
+    int pastLast;			/* Saw last marker during scan */
+    int linesSkipped;
+
+    if (searchPtr->linesLeft <= 0) {
+	goto searchOver;
+    }
+
+    /*
+     * The outermost loop iterates over lines that may potentially contain
+     * a relevant tag transition, starting from the current segment in
+     * the current line.  "nextPtr" is maintained as the last segment in
+     * a line that we can look at. 
+     */
+
+    while (1) {
+	/*
+	 * Check for the last toggle before the current segment on this line.
+	 */
+	charIndex = 0;
+	if (searchPtr->lastPtr == NULL) {
+	    /* 
+	     * Search back to the very beginning, so pastLast is irrelevent.
+	     */
+	    pastLast = 1; 
+	} else {
+	    pastLast = 0;
+	}
+	for (prevPtr = NULL, segPtr = searchPtr->curIndex.linePtr->segPtr ;
+		segPtr != NULL && segPtr != searchPtr->nextPtr;
+		segPtr = segPtr->nextPtr) {
+	    if (((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType))
+		    && (searchPtr->allTags
+		    || (segPtr->body.toggle.tagPtr == searchPtr->tagPtr))) {
+		prevPtr = segPtr;
+		searchPtr->curIndex.charIndex = charIndex;
+	    }
+	    if (segPtr == searchPtr->lastPtr) {
+	        prevPtr = NULL;   /* Segments earlier than last don't count */
+		pastLast = 1;
+	    }
+	    charIndex += segPtr->size;
+	}
+	if (prevPtr != NULL) {
+	    if (searchPtr->linesLeft == 1 && !pastLast) {
+		/*
+		 * We found a segment that is before the stopping index.
+		 * Note that it is OK if prevPtr == lastPtr.
+		 */
+		goto searchOver;
+	    }
+	    searchPtr->segPtr = prevPtr;
+	    searchPtr->nextPtr = prevPtr;
+	    searchPtr->tagPtr = prevPtr->body.toggle.tagPtr;
+	    return 1;
+	}
+    
+	searchPtr->linesLeft--;
+	if (searchPtr->linesLeft <= 0) {
+	    goto searchOver;
+	}
+
+	/*
+	 * See if there are more lines associated with the current parent
+	 * node.  If so, go back to the top of the loop to search the previous
+	 * one.
+	 */
+
+	nodePtr = searchPtr->curIndex.linePtr->parentPtr;
+	for (prevLinePtr = NULL, linePtr = nodePtr->children.linePtr;
+		linePtr != NULL && linePtr != searchPtr->curIndex.linePtr;
+		prevLinePtr = linePtr, linePtr = linePtr->nextPtr) {
+	    /* empty loop body */ ;
+	}
+	if (prevLinePtr != NULL) {
+	    searchPtr->curIndex.linePtr = prevLinePtr;
+	    searchPtr->nextPtr = NULL;
+	    continue;
+	}
+	if (nodePtr == searchPtr->tagPtr->tagRootPtr) {
+	    goto searchOver;
+	}
+    
+	/*
+	 * Search across and up through the B-tree's node hierarchy looking
+	 * for the previous node that has a relevant tag transition somewhere in
+	 * its subtree.  The search and line counting is trickier with/out
+	 * back pointers. We'll scan all the nodes under a parent up to
+	 * the current node, searching all of them for tag state.  The last
+	 * one we find, if any, is recorded in prevNodePtr, and any nodes
+	 * past prevNodePtr that don't have tag state increment linesSkipped.
+	 */
+    
+	while (1) {
+	    for (prevNodePtr = NULL, linesSkipped = 0,
+		    node2Ptr = nodePtr->parentPtr->children.nodePtr ;
+		    node2Ptr != nodePtr;  node2Ptr = node2Ptr->nextPtr) {
+		for (summaryPtr = node2Ptr->summaryPtr; summaryPtr != NULL;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if ((searchPtr->allTags) ||
+			    (summaryPtr->tagPtr == searchPtr->tagPtr)) {
+			prevNodePtr = node2Ptr;
+			linesSkipped = 0;
+			goto keepLooking;
+		    }
+		}
+		linesSkipped += node2Ptr->numLines;
+
+		keepLooking:
+		continue;
+	    }
+	    if (prevNodePtr != NULL) {
+		nodePtr = prevNodePtr;
+		searchPtr->linesLeft -= linesSkipped;
+		goto gotNodeWithTag;
+	    }
+	    nodePtr = nodePtr->parentPtr;
+	    if (nodePtr->parentPtr == NULL ||
+		nodePtr == searchPtr->tagPtr->tagRootPtr) {
+		goto searchOver;
+	    }
+	}
+    
+	/*
+	 * At this point we've found a subtree that has a relevant tag
+	 * transition.  Now search down (and across) through that subtree
+	 * to find the last level-0 node that has a relevant tag transition.
+	 */
+    
+	gotNodeWithTag:
+	while (nodePtr->level > 0) {
+	    for (linesSkipped = 0, prevNodePtr = NULL,
+		    nodePtr = nodePtr->children.nodePtr; nodePtr != NULL ;
+		    nodePtr = nodePtr->nextPtr) {
+		for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if ((searchPtr->allTags)
+			    || (summaryPtr->tagPtr == searchPtr->tagPtr)) {
+			prevNodePtr = nodePtr;
+			linesSkipped = 0;
+			goto keepLooking2;
+		    }
+		}
+		linesSkipped += nodePtr->numLines;
+
+		keepLooking2:
+		continue;
+	    }
+	    if (prevNodePtr == NULL) {
+		panic("TkBTreePrevTag found incorrect tag summary info.");
+	    }
+	    searchPtr->linesLeft -= linesSkipped;
+	    nodePtr = prevNodePtr;
+	}
+    
+	/*
+	 * Now we're down to a level-0 node that contains a line that contains
+	 * a relevant tag transition.  Set up line information and go back to
+	 * the beginning of the loop to search through lines.  We start with
+	 * the last line below the node.
+	 */
+
+	for (prevLinePtr = NULL, linePtr = nodePtr->children.linePtr;
+		linePtr != NULL ;
+		prevLinePtr = linePtr, linePtr = linePtr->nextPtr) {
+	    /* empty loop body */ ;
+	}
+	searchPtr->curIndex.linePtr = prevLinePtr;
+	searchPtr->curIndex.charIndex = 0;
+	if (searchPtr->linesLeft <= 0) {
+	    goto searchOver;
+	}
+	continue;
+    }
+
+    searchOver:
+    searchPtr->linesLeft = 0;
+    searchPtr->segPtr = NULL;
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeCharTagged --
+ *
+ *	Determine whether a particular character has a particular tag.
+ *
+ * Results:
+ *	The return value is 1 if the given tag is in effect at the
+ *	character given by linePtr and ch, and 0 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreeCharTagged(indexPtr, tagPtr)
+    TkTextIndex *indexPtr;		/* Indicates a character position at
+					 * which to check for a tag. */
+    TkTextTag *tagPtr;			/* Tag of interest. */
+{
+    register Node *nodePtr;
+    register TkTextLine *siblingLinePtr;
+    register TkTextSegment *segPtr;
+    TkTextSegment *toggleSegPtr;
+    int toggles, index;
+
+    /* 
+     * Check for toggles for the tag in indexPtr's line but before
+     * indexPtr.  If there is one, its type indicates whether or
+     * not the character is tagged.
+     */
+
+    toggleSegPtr = NULL;
+    for (index = 0, segPtr = indexPtr->linePtr->segPtr;
+	    (index + segPtr->size) <= indexPtr->charIndex;
+	    index += segPtr->size, segPtr = segPtr->nextPtr) {
+	if (((segPtr->typePtr == &tkTextToggleOnType)
+		|| (segPtr->typePtr == &tkTextToggleOffType))
+		&& (segPtr->body.toggle.tagPtr == tagPtr)) {
+	    toggleSegPtr = segPtr;
+	}
+    }
+    if (toggleSegPtr != NULL) {
+	return (toggleSegPtr->typePtr == &tkTextToggleOnType);
+    }
+
+    /*
+     * No toggle in this line.  Look for toggles for the tag in lines
+     * that are predecessors of indexPtr->linePtr but under the same
+     * level-0 node.
+     */
+
+    toggles = 0;
+    for (siblingLinePtr = indexPtr->linePtr->parentPtr->children.linePtr;
+	    siblingLinePtr != indexPtr->linePtr;
+	    siblingLinePtr = siblingLinePtr->nextPtr) {
+	for (segPtr = siblingLinePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    if (((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType))
+		    && (segPtr->body.toggle.tagPtr == tagPtr)) {
+		toggleSegPtr = segPtr;
+	    }
+	}
+    }
+    if (toggleSegPtr != NULL) {
+	return (toggleSegPtr->typePtr == &tkTextToggleOnType);
+    }
+
+    /*
+     * No toggle in this node.  Scan upwards through the ancestors of
+     * this node, counting the number of toggles of the given tag in
+     * siblings that precede that node.
+     */
+
+    toggles = 0;
+    for (nodePtr = indexPtr->linePtr->parentPtr; nodePtr->parentPtr != NULL;
+	    nodePtr = nodePtr->parentPtr) {
+	register Node *siblingPtr;
+	register Summary *summaryPtr;
+
+	for (siblingPtr = nodePtr->parentPtr->children.nodePtr; 
+		siblingPtr != nodePtr; siblingPtr = siblingPtr->nextPtr) {
+	    for (summaryPtr = siblingPtr->summaryPtr; summaryPtr != NULL;
+		    summaryPtr = summaryPtr->nextPtr) {
+		if (summaryPtr->tagPtr == tagPtr) {
+		    toggles += summaryPtr->toggleCount;
+		}
+	    }
+	}
+	if (nodePtr == tagPtr->tagRootPtr) {
+	    break;
+	}
+    }
+
+    /*
+     * An odd number of toggles means that the tag is present at the
+     * given point.
+     */
+
+    return toggles & 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeGetTags --
+ *
+ *	Return information about all of the tags that are associated
+ *	with a particular character in a B-tree of text.
+ *
+ * Results:
+ *	The return value is a malloc-ed array containing pointers to
+ *	information for each of the tags that is associated with
+ *	the character at the position given by linePtr and ch.  The
+ *	word at *numTagsPtr is filled in with the number of pointers
+ *	in the array.  It is up to the caller to free the array by
+ *	passing it to free.  If there are no tags at the given character
+ *	then a NULL pointer is returned and *numTagsPtr will be set to 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+TkTextTag **
+TkBTreeGetTags(indexPtr, numTagsPtr)
+    TkTextIndex *indexPtr;	/* Indicates a particular position in
+				 * the B-tree. */
+    int *numTagsPtr;		/* Store number of tags found at this
+				 * location. */
+{
+    register Node *nodePtr;
+    register TkTextLine *siblingLinePtr;
+    register TkTextSegment *segPtr;
+    int src, dst, index;
+    TagInfo tagInfo;
+#define NUM_TAG_INFOS 10
+
+    tagInfo.numTags = 0;
+    tagInfo.arraySize = NUM_TAG_INFOS;
+    tagInfo.tagPtrs = (TkTextTag **) ckalloc((unsigned)
+	    NUM_TAG_INFOS*sizeof(TkTextTag *));
+    tagInfo.counts = (int *) ckalloc((unsigned)
+	    NUM_TAG_INFOS*sizeof(int));
+
+    /*
+     * Record tag toggles within the line of indexPtr but preceding
+     * indexPtr.
+     */
+
+    for (index = 0, segPtr = indexPtr->linePtr->segPtr;
+	    (index + segPtr->size) <= indexPtr->charIndex;
+	    index += segPtr->size, segPtr = segPtr->nextPtr) {
+	if ((segPtr->typePtr == &tkTextToggleOnType)
+		|| (segPtr->typePtr == &tkTextToggleOffType)) {
+	    IncCount(segPtr->body.toggle.tagPtr, 1, &tagInfo);
+	}
+    }
+
+    /*
+     * Record toggles for tags in lines that are predecessors of
+     * indexPtr->linePtr but under the same level-0 node.
+     */
+
+    for (siblingLinePtr = indexPtr->linePtr->parentPtr->children.linePtr;
+	    siblingLinePtr != indexPtr->linePtr;
+	    siblingLinePtr = siblingLinePtr->nextPtr) {
+	for (segPtr = siblingLinePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    if ((segPtr->typePtr == &tkTextToggleOnType)
+		    || (segPtr->typePtr == &tkTextToggleOffType)) {
+		IncCount(segPtr->body.toggle.tagPtr, 1, &tagInfo);
+	    }
+	}
+    }
+
+    /*
+     * For each node in the ancestry of this line, record tag toggles
+     * for all siblings that precede that node.
+     */
+
+    for (nodePtr = indexPtr->linePtr->parentPtr; nodePtr->parentPtr != NULL;
+	    nodePtr = nodePtr->parentPtr) {
+	register Node *siblingPtr;
+	register Summary *summaryPtr;
+
+	for (siblingPtr = nodePtr->parentPtr->children.nodePtr; 
+		siblingPtr != nodePtr; siblingPtr = siblingPtr->nextPtr) {
+	    for (summaryPtr = siblingPtr->summaryPtr; summaryPtr != NULL;
+		    summaryPtr = summaryPtr->nextPtr) {
+		if (summaryPtr->toggleCount & 1) {
+		    IncCount(summaryPtr->tagPtr, summaryPtr->toggleCount,
+			    &tagInfo);
+		}
+	    }
+	}
+    }
+
+    /*
+     * Go through the tag information and squash out all of the tags
+     * that have even toggle counts (these tags exist before the point
+     * of interest, but not at the desired character itself).
+     */
+
+    for (src = 0, dst = 0; src < tagInfo.numTags; src++) {
+	if (tagInfo.counts[src] & 1) {
+	    tagInfo.tagPtrs[dst] = tagInfo.tagPtrs[src];
+	    dst++;
+	}
+    }
+    *numTagsPtr = dst;
+    ckfree((char *) tagInfo.counts);
+    if (dst == 0) {
+	ckfree((char *) tagInfo.tagPtrs);
+	return NULL;
+    }
+    return tagInfo.tagPtrs;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * IncCount --
+ *
+ *	This is a utility procedure used by TkBTreeGetTags.  It
+ *	increments the count for a particular tag, adding a new
+ *	entry for that tag if there wasn't one previously.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The information at *tagInfoPtr may be modified, and the arrays
+ *	may be reallocated to make them larger.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+IncCount(tagPtr, inc, tagInfoPtr)
+    TkTextTag *tagPtr;		/* Handle for tag. */
+    int inc;			/* Amount by which to increment tag count. */
+    TagInfo *tagInfoPtr;	/* Holds cumulative information about tags;
+				 * increment count here. */
+{
+    register TkTextTag **tagPtrPtr;
+    int count;
+
+    for (tagPtrPtr = tagInfoPtr->tagPtrs, count = tagInfoPtr->numTags;
+	    count > 0; tagPtrPtr++, count--) {
+	if (*tagPtrPtr == tagPtr) {
+	    tagInfoPtr->counts[tagInfoPtr->numTags-count] += inc;
+	    return;
+	}
+    }
+
+    /*
+     * There isn't currently an entry for this tag, so we have to
+     * make a new one.  If the arrays are full, then enlarge the
+     * arrays first.
+     */
+
+    if (tagInfoPtr->numTags == tagInfoPtr->arraySize) {
+	TkTextTag **newTags;
+	int *newCounts, newSize;
+
+	newSize = 2*tagInfoPtr->arraySize;
+	newTags = (TkTextTag **) ckalloc((unsigned)
+		(newSize*sizeof(TkTextTag *)));
+	memcpy((VOID *) newTags, (VOID *) tagInfoPtr->tagPtrs,
+		tagInfoPtr->arraySize * sizeof(TkTextTag *));
+	ckfree((char *) tagInfoPtr->tagPtrs);
+	tagInfoPtr->tagPtrs = newTags;
+	newCounts = (int *) ckalloc((unsigned) (newSize*sizeof(int)));
+	memcpy((VOID *) newCounts, (VOID *) tagInfoPtr->counts,
+		tagInfoPtr->arraySize * sizeof(int));
+	ckfree((char *) tagInfoPtr->counts);
+	tagInfoPtr->counts = newCounts;
+	tagInfoPtr->arraySize = newSize;
+    }
+
+    tagInfoPtr->tagPtrs[tagInfoPtr->numTags] = tagPtr;
+    tagInfoPtr->counts[tagInfoPtr->numTags] = inc;
+    tagInfoPtr->numTags++;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeCheck --
+ *
+ *	This procedure runs a set of consistency checks over a B-tree
+ *	and panics if any inconsistencies are found.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a structural defect is found, the procedure panics with an
+ *	error message.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkBTreeCheck(tree)
+    TkTextBTree tree;		/* Tree to check. */
+{
+    BTree *treePtr = (BTree *) tree;
+    register Summary *summaryPtr;
+    register Node *nodePtr;
+    register TkTextLine *linePtr;
+    register TkTextSegment *segPtr;
+    register TkTextTag *tagPtr;
+    Tcl_HashEntry *entryPtr;
+    Tcl_HashSearch search;
+    int count;
+
+    /*
+     * Make sure that the tag toggle counts and the tag root pointers are OK.
+     */
+    for (entryPtr = Tcl_FirstHashEntry(&treePtr->textPtr->tagTable, &search);
+	    entryPtr != NULL ; entryPtr = Tcl_NextHashEntry(&search)) {
+	tagPtr = (TkTextTag *) Tcl_GetHashValue(entryPtr);
+	nodePtr = tagPtr->tagRootPtr;
+	if (nodePtr == (Node *) NULL) {
+	    if (tagPtr->toggleCount != 0) {
+		panic("TkBTreeCheck found \"%s\" with toggles (%d) but no root",
+		    tagPtr->name, tagPtr->toggleCount);
+	    }
+	    continue;		/* no ranges for the tag */
+	} else if (tagPtr->toggleCount == 0) {
+	    panic("TkBTreeCheck found root for \"%s\" with no toggles",
+		    tagPtr->name);
+	} else if (tagPtr->toggleCount & 1) {
+	    panic("TkBTreeCheck found odd toggle count for \"%s\" (%d)",
+		    tagPtr->name, tagPtr->toggleCount);
+	}
+	for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+		summaryPtr = summaryPtr->nextPtr) {
+	    if (summaryPtr->tagPtr == tagPtr) {
+		panic("TkBTreeCheck found root node with summary info");
+	    }
+	}
+	count = 0;
+	if (nodePtr->level > 0) {
+	    for (nodePtr = nodePtr->children.nodePtr ; nodePtr != NULL ;
+		    nodePtr = nodePtr->nextPtr) {
+		for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if (summaryPtr->tagPtr == tagPtr) {
+			count += summaryPtr->toggleCount;
+		    }
+		}
+	    }
+	} else {
+	    for (linePtr = nodePtr->children.linePtr ; linePtr != NULL ;
+		    linePtr = linePtr->nextPtr) {
+		for (segPtr = linePtr->segPtr; segPtr != NULL;
+			segPtr = segPtr->nextPtr) {
+		    if ((segPtr->typePtr == &tkTextToggleOnType ||
+			 segPtr->typePtr == &tkTextToggleOffType) &&
+			 segPtr->body.toggle.tagPtr == tagPtr) {
+			count++;
+		    }
+		}
+	    }
+	}
+	if (count != tagPtr->toggleCount) {
+	    panic("TkBTreeCheck toggleCount (%d) wrong for \"%s\" should be (%d)",
+		tagPtr->toggleCount, tagPtr->name, count);
+	}
+    }
+
+    /*
+     * Call a recursive procedure to do the main body of checks.
+     */
+
+    nodePtr = treePtr->rootPtr;
+    CheckNodeConsistency(treePtr->rootPtr);
+
+    /*
+     * Make sure that there are at least two lines in the text and
+     * that the last line has no characters except a newline.
+     */
+
+    if (nodePtr->numLines < 2) {
+	panic("TkBTreeCheck: less than 2 lines in tree");
+    }
+    while (nodePtr->level > 0) {
+	nodePtr = nodePtr->children.nodePtr;
+	while (nodePtr->nextPtr != NULL) {
+	    nodePtr = nodePtr->nextPtr;
+	}
+    }
+    linePtr = nodePtr->children.linePtr;
+    while (linePtr->nextPtr != NULL) {
+	linePtr = linePtr->nextPtr;
+    }
+    segPtr = linePtr->segPtr;
+    while ((segPtr->typePtr == &tkTextToggleOffType)
+	    || (segPtr->typePtr == &tkTextRightMarkType)
+	    || (segPtr->typePtr == &tkTextLeftMarkType)) {
+	/*
+	 * It's OK to toggle a tag off in the last line, but
+	 * not to start a new range.  It's also OK to have marks
+	 * in the last line.
+	 */
+
+	segPtr = segPtr->nextPtr;
+    }
+    if (segPtr->typePtr != &tkTextCharType) {
+	panic("TkBTreeCheck: last line has bogus segment type");
+    }
+    if (segPtr->nextPtr != NULL) {
+	panic("TkBTreeCheck: last line has too many segments");
+    }
+    if (segPtr->size != 1) {
+	panic("TkBTreeCheck: last line has wrong # characters: %d",
+		segPtr->size);
+    }
+    if ((segPtr->body.chars[0] != '\n') || (segPtr->body.chars[1] != 0)) {
+	panic("TkBTreeCheck: last line had bad value: %s",
+		segPtr->body.chars);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CheckNodeConsistency --
+ *
+ *	This procedure is called as part of consistency checking for
+ *	B-trees:  it checks several aspects of a node and also runs
+ *	checks recursively on the node's children.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If anything suspicious is found in the tree structure, the
+ *	procedure panics.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+CheckNodeConsistency(nodePtr)
+    register Node *nodePtr;		/* Node whose subtree should be
+					 * checked. */
+{
+    register Node *childNodePtr;
+    register Summary *summaryPtr, *summaryPtr2;
+    register TkTextLine *linePtr;
+    register TkTextSegment *segPtr;
+    int numChildren, numLines, toggleCount, minChildren;
+
+    if (nodePtr->parentPtr != NULL) {
+	minChildren = MIN_CHILDREN;
+    } else if (nodePtr->level > 0) {
+	minChildren = 2;
+    } else  {
+	minChildren = 1;
+    }
+    if ((nodePtr->numChildren < minChildren)
+	    || (nodePtr->numChildren > MAX_CHILDREN)) {
+	panic("CheckNodeConsistency: bad child count (%d)",
+		nodePtr->numChildren);
+    }
+
+    numChildren = 0;
+    numLines = 0;
+    if (nodePtr->level == 0) {
+	for (linePtr = nodePtr->children.linePtr; linePtr != NULL;
+		linePtr = linePtr->nextPtr) {
+	    if (linePtr->parentPtr != nodePtr) {
+		panic("CheckNodeConsistency: line doesn't point to parent");
+	    }
+	    if (linePtr->segPtr == NULL) {
+		panic("CheckNodeConsistency: line has no segments");
+	    }
+	    for (segPtr = linePtr->segPtr; segPtr != NULL;
+		    segPtr = segPtr->nextPtr) {
+		if (segPtr->typePtr->checkProc != NULL) {
+		    (*segPtr->typePtr->checkProc)(segPtr, linePtr);
+		}
+		if ((segPtr->size == 0) && (!segPtr->typePtr->leftGravity)
+			&& (segPtr->nextPtr != NULL)
+			&& (segPtr->nextPtr->size == 0)
+			&& (segPtr->nextPtr->typePtr->leftGravity)) {
+		    panic("CheckNodeConsistency: wrong segment order for gravity");
+		}
+		if ((segPtr->nextPtr == NULL)
+			&& (segPtr->typePtr != &tkTextCharType)) {
+		    panic("CheckNodeConsistency: line ended with wrong type");
+		}
+	    }
+	    numChildren++;
+	    numLines++;
+	}
+    } else {
+	for (childNodePtr = nodePtr->children.nodePtr; childNodePtr != NULL;
+		childNodePtr = childNodePtr->nextPtr) {
+	    if (childNodePtr->parentPtr != nodePtr) {
+		panic("CheckNodeConsistency: node doesn't point to parent");
+	    }
+	    if (childNodePtr->level != (nodePtr->level-1)) {
+		panic("CheckNodeConsistency: level mismatch (%d %d)",
+			nodePtr->level, childNodePtr->level);
+	    }
+	    CheckNodeConsistency(childNodePtr);
+	    for (summaryPtr = childNodePtr->summaryPtr; summaryPtr != NULL;
+			summaryPtr = summaryPtr->nextPtr) {
+		for (summaryPtr2 = nodePtr->summaryPtr; ;
+			summaryPtr2 = summaryPtr2->nextPtr) {
+		    if (summaryPtr2 == NULL) {
+			if (summaryPtr->tagPtr->tagRootPtr == nodePtr) {
+			    break;
+			}
+			panic("CheckNodeConsistency: node tag \"%s\" not %s",
+				summaryPtr->tagPtr->name,
+				"present in parent summaries");
+		    }
+		    if (summaryPtr->tagPtr == summaryPtr2->tagPtr) {
+			break;
+		    }
+		}
+	    }
+	    numChildren++;
+	    numLines += childNodePtr->numLines;
+	}
+    }
+    if (numChildren != nodePtr->numChildren) {
+	panic("CheckNodeConsistency: mismatch in numChildren (%d %d)",
+		numChildren, nodePtr->numChildren);
+    }
+    if (numLines != nodePtr->numLines) {
+	panic("CheckNodeConsistency: mismatch in numLines (%d %d)",
+		numLines, nodePtr->numLines);
+    }
+
+    for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+	    summaryPtr = summaryPtr->nextPtr) {
+	if (summaryPtr->tagPtr->toggleCount == summaryPtr->toggleCount) {
+	    panic("CheckNodeConsistency: found unpruned root for \"%s\"",
+		summaryPtr->tagPtr->name);
+	}
+	toggleCount = 0;
+	if (nodePtr->level == 0) {
+	    for (linePtr = nodePtr->children.linePtr; linePtr != NULL;
+		    linePtr = linePtr->nextPtr) {
+		for (segPtr = linePtr->segPtr; segPtr != NULL;
+			segPtr = segPtr->nextPtr) {
+		    if ((segPtr->typePtr != &tkTextToggleOnType)
+			    && (segPtr->typePtr != &tkTextToggleOffType)) {
+			continue;
+		    }
+		    if (segPtr->body.toggle.tagPtr == summaryPtr->tagPtr) {
+			toggleCount ++;
+		    }
+		}
+	    }
+	} else {
+	    for (childNodePtr = nodePtr->children.nodePtr;
+		    childNodePtr != NULL;
+		    childNodePtr = childNodePtr->nextPtr) {
+		for (summaryPtr2 = childNodePtr->summaryPtr;
+			summaryPtr2 != NULL;
+			summaryPtr2 = summaryPtr2->nextPtr) {
+		    if (summaryPtr2->tagPtr == summaryPtr->tagPtr) {
+			toggleCount += summaryPtr2->toggleCount;
+		    }
+		}
+	    }
+	}
+	if (toggleCount != summaryPtr->toggleCount) {
+	    panic("CheckNodeConsistency: mismatch in toggleCount (%d %d)",
+		    toggleCount, summaryPtr->toggleCount);
+	}
+	for (summaryPtr2 = summaryPtr->nextPtr; summaryPtr2 != NULL;
+		summaryPtr2 = summaryPtr2->nextPtr) {
+	    if (summaryPtr2->tagPtr == summaryPtr->tagPtr) {
+		panic("CheckNodeConsistency: duplicated node tag: %s",
+			summaryPtr->tagPtr->name);
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Rebalance --
+ *
+ *	This procedure is called when a node of a B-tree appears to be
+ *	out of balance (too many children, or too few).  It rebalances
+ *	that node and all of its ancestors in the tree.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The internal structure of treePtr may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+Rebalance(treePtr, nodePtr)
+    BTree *treePtr;			/* Tree that is being rebalanced. */
+    register Node *nodePtr;		/* Node that may be out of balance. */
+{
+    /*
+     * Loop over the entire ancestral chain of the node, working up
+     * through the tree one node at a time until the root node has
+     * been processed.
+     */
+
+    for ( ; nodePtr != NULL; nodePtr = nodePtr->parentPtr) {
+	register Node *newPtr, *childPtr;
+	register TkTextLine *linePtr;
+	int i;
+
+	/*
+	 * Check to see if the node has too many children.  If it does,
+	 * then split off all but the first MIN_CHILDREN into a separate
+	 * node following the original one.  Then repeat until the
+	 * node has a decent size.
+	 */
+
+	if (nodePtr->numChildren > MAX_CHILDREN) {
+	    while (1) {
+		/*
+		 * If the node being split is the root node, then make a
+		 * new root node above it first.
+		 */
+    
+		if (nodePtr->parentPtr == NULL) {
+		    newPtr = (Node *) ckalloc(sizeof(Node));
+		    newPtr->parentPtr = NULL;
+		    newPtr->nextPtr = NULL;
+		    newPtr->summaryPtr = NULL;
+		    newPtr->level = nodePtr->level + 1;
+		    newPtr->children.nodePtr = nodePtr;
+		    newPtr->numChildren = 1;
+		    newPtr->numLines = nodePtr->numLines;
+		    RecomputeNodeCounts(newPtr);
+		    treePtr->rootPtr = newPtr;
+		}
+		newPtr = (Node *) ckalloc(sizeof(Node));
+		newPtr->parentPtr = nodePtr->parentPtr;
+		newPtr->nextPtr = nodePtr->nextPtr;
+		nodePtr->nextPtr = newPtr;
+		newPtr->summaryPtr = NULL;
+		newPtr->level = nodePtr->level;
+		newPtr->numChildren = nodePtr->numChildren - MIN_CHILDREN;
+		if (nodePtr->level == 0) {
+		    for (i = MIN_CHILDREN-1,
+			    linePtr = nodePtr->children.linePtr;
+			    i > 0; i--, linePtr = linePtr->nextPtr) {
+			/* Empty loop body. */
+		    }
+		    newPtr->children.linePtr = linePtr->nextPtr;
+		    linePtr->nextPtr = NULL;
+		} else {
+		    for (i = MIN_CHILDREN-1,
+			    childPtr = nodePtr->children.nodePtr;
+			    i > 0; i--, childPtr = childPtr->nextPtr) {
+			/* Empty loop body. */
+		    }
+		    newPtr->children.nodePtr = childPtr->nextPtr;
+		    childPtr->nextPtr = NULL;
+		}
+		RecomputeNodeCounts(nodePtr);
+		nodePtr->parentPtr->numChildren++;
+		nodePtr = newPtr;
+		if (nodePtr->numChildren <= MAX_CHILDREN) {
+		    RecomputeNodeCounts(nodePtr);
+		    break;
+		}
+	    }
+	}
+
+	while (nodePtr->numChildren < MIN_CHILDREN) {
+	    register Node *otherPtr;
+	    Node *halfwayNodePtr = NULL;	/* Initialization needed only */
+	    TkTextLine *halfwayLinePtr = NULL;	/* to prevent cc warnings. */
+	    int totalChildren, firstChildren, i;
+
+	    /*
+	     * Too few children for this node.  If this is the root then,
+	     * it's OK for it to have less than MIN_CHILDREN children
+	     * as long as it's got at least two.  If it has only one
+	     * (and isn't at level 0), then chop the root node out of
+	     * the tree and use its child as the new root.
+	     */
+
+	    if (nodePtr->parentPtr == NULL) {
+		if ((nodePtr->numChildren == 1) && (nodePtr->level > 0)) {
+		    treePtr->rootPtr = nodePtr->children.nodePtr;
+		    treePtr->rootPtr->parentPtr = NULL;
+		    DeleteSummaries(nodePtr->summaryPtr);
+		    ckfree((char *) nodePtr);
+		}
+		return;
+	    }
+
+	    /*
+	     * Not the root.  Make sure that there are siblings to
+	     * balance with.
+	     */
+
+	    if (nodePtr->parentPtr->numChildren < 2) {
+		Rebalance(treePtr, nodePtr->parentPtr);
+		continue;
+	    }
+
+	    /*
+	     * Find a sibling neighbor to borrow from, and arrange for
+	     * nodePtr to be the earlier of the pair.
+	     */
+
+	    if (nodePtr->nextPtr == NULL) {
+		for (otherPtr = nodePtr->parentPtr->children.nodePtr;
+			otherPtr->nextPtr != nodePtr;
+			otherPtr = otherPtr->nextPtr) {
+		    /* Empty loop body. */
+		}
+		nodePtr = otherPtr;
+	    }
+	    otherPtr = nodePtr->nextPtr;
+
+	    /*
+	     * We're going to either merge the two siblings together
+	     * into one node or redivide the children among them to
+	     * balance their loads.  As preparation, join their two
+	     * child lists into a single list and remember the half-way
+	     * point in the list.
+	     */
+
+	    totalChildren = nodePtr->numChildren + otherPtr->numChildren;
+	    firstChildren = totalChildren/2;
+	    if (nodePtr->children.nodePtr == NULL) {
+		nodePtr->children = otherPtr->children;
+		otherPtr->children.nodePtr = NULL;
+		otherPtr->children.linePtr = NULL;
+	    }
+	    if (nodePtr->level == 0) {
+		register TkTextLine *linePtr;
+
+		for (linePtr = nodePtr->children.linePtr, i = 1;
+			linePtr->nextPtr != NULL;
+			linePtr = linePtr->nextPtr, i++) {
+		    if (i == firstChildren) {
+			halfwayLinePtr = linePtr;
+		    }
+		}
+		linePtr->nextPtr = otherPtr->children.linePtr;
+		while (i <= firstChildren) {
+		    halfwayLinePtr = linePtr;
+		    linePtr = linePtr->nextPtr;
+		    i++;
+		}
+	    } else {
+		register Node *childPtr;
+
+		for (childPtr = nodePtr->children.nodePtr, i = 1;
+			childPtr->nextPtr != NULL;
+			childPtr = childPtr->nextPtr, i++) {
+		    if (i <= firstChildren) {
+			if (i == firstChildren) {
+			    halfwayNodePtr = childPtr;
+			}
+		    }
+		}
+		childPtr->nextPtr = otherPtr->children.nodePtr;
+		while (i <= firstChildren) {
+		    halfwayNodePtr = childPtr;
+		    childPtr = childPtr->nextPtr;
+		    i++;
+		}
+	    }
+
+	    /*
+	     * If the two siblings can simply be merged together, do it.
+	     */
+
+	    if (totalChildren <= MAX_CHILDREN) {
+		RecomputeNodeCounts(nodePtr);
+		nodePtr->nextPtr = otherPtr->nextPtr;
+		nodePtr->parentPtr->numChildren--;
+		DeleteSummaries(otherPtr->summaryPtr);
+		ckfree((char *) otherPtr);
+		continue;
+	    }
+
+	    /*
+	     * The siblings can't be merged, so just divide their
+	     * children evenly between them.
+	     */
+
+	    if (nodePtr->level == 0) {
+		otherPtr->children.linePtr = halfwayLinePtr->nextPtr;
+		halfwayLinePtr->nextPtr = NULL;
+	    } else {
+		otherPtr->children.nodePtr = halfwayNodePtr->nextPtr;
+		halfwayNodePtr->nextPtr = NULL;
+	    }
+	    RecomputeNodeCounts(nodePtr);
+	    RecomputeNodeCounts(otherPtr);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RecomputeNodeCounts --
+ *
+ *	This procedure is called to recompute all the counts in a node
+ *	(tags, child information, etc.) by scanning the information in
+ *	its descendants.  This procedure is called during rebalancing
+ *	when a node's child structure has changed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The tag counts for nodePtr are modified to reflect its current
+ *	child structure, as are its numChildren and numLines fields.
+ *	Also, all of the childrens' parentPtr fields are made to point
+ *	to nodePtr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RecomputeNodeCounts(nodePtr)
+    register Node *nodePtr;		/* Node whose tag summary information
+					 * must be recomputed. */
+{
+    register Summary *summaryPtr, *summaryPtr2;
+    register Node *childPtr;
+    register TkTextLine *linePtr;
+    register TkTextSegment *segPtr;
+    TkTextTag *tagPtr;
+
+    /*
+     * Zero out all the existing counts for the node, but don't delete
+     * the existing Summary records (most of them will probably be reused).
+     */
+
+    for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL;
+	    summaryPtr = summaryPtr->nextPtr) {
+	summaryPtr->toggleCount = 0;
+    }
+    nodePtr->numChildren = 0;
+    nodePtr->numLines = 0;
+
+    /*
+     * Scan through the children, adding the childrens' tag counts into
+     * the node's tag counts and adding new Summary structures if
+     * necessary.
+     */
+
+    if (nodePtr->level == 0) {
+	for (linePtr = nodePtr->children.linePtr; linePtr != NULL;
+		linePtr = linePtr->nextPtr) {
+	    nodePtr->numChildren++;
+	    nodePtr->numLines++;
+	    linePtr->parentPtr = nodePtr;
+	    for (segPtr = linePtr->segPtr; segPtr != NULL;
+		    segPtr = segPtr->nextPtr) {
+		if (((segPtr->typePtr != &tkTextToggleOnType)
+			&& (segPtr->typePtr != &tkTextToggleOffType))
+			|| !(segPtr->body.toggle.inNodeCounts)) {
+		    continue;
+		}
+		tagPtr = segPtr->body.toggle.tagPtr;
+		for (summaryPtr = nodePtr->summaryPtr; ;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if (summaryPtr == NULL) {
+			summaryPtr = (Summary *) ckalloc(sizeof(Summary));
+			summaryPtr->tagPtr = tagPtr;
+			summaryPtr->toggleCount = 1;
+			summaryPtr->nextPtr = nodePtr->summaryPtr;
+			nodePtr->summaryPtr = summaryPtr;
+			break;
+		    }
+		    if (summaryPtr->tagPtr == tagPtr) {
+			summaryPtr->toggleCount++;
+			break;
+		    }
+		}
+	    }
+	}
+    } else {
+	for (childPtr = nodePtr->children.nodePtr; childPtr != NULL;
+		childPtr = childPtr->nextPtr) {
+	    nodePtr->numChildren++;
+	    nodePtr->numLines += childPtr->numLines;
+	    childPtr->parentPtr = nodePtr;
+	    for (summaryPtr2 = childPtr->summaryPtr; summaryPtr2 != NULL;
+		    summaryPtr2 = summaryPtr2->nextPtr) {
+		for (summaryPtr = nodePtr->summaryPtr; ;
+			summaryPtr = summaryPtr->nextPtr) {
+		    if (summaryPtr == NULL) {
+			summaryPtr = (Summary *) ckalloc(sizeof(Summary));
+			summaryPtr->tagPtr = summaryPtr2->tagPtr;
+			summaryPtr->toggleCount = summaryPtr2->toggleCount;
+			summaryPtr->nextPtr = nodePtr->summaryPtr;
+			nodePtr->summaryPtr = summaryPtr;
+			break;
+		    }
+		    if (summaryPtr->tagPtr == summaryPtr2->tagPtr) {
+			summaryPtr->toggleCount += summaryPtr2->toggleCount;
+			break;
+		    }
+		}
+	    }
+	}
+    }
+
+    /*
+     * Scan through the node's tag records again and delete any Summary
+     * records that still have a zero count, or that have all the toggles.
+     * The node with the children that account for all the tags toggles
+     * have no summary information, and they become the tagRootPtr for the tag.
+     */
+
+    summaryPtr2 = NULL;
+    for (summaryPtr = nodePtr->summaryPtr; summaryPtr != NULL; ) {
+	if (summaryPtr->toggleCount > 0 && 
+		summaryPtr->toggleCount < summaryPtr->tagPtr->toggleCount) {
+	    if (nodePtr->level == summaryPtr->tagPtr->tagRootPtr->level) {
+		/*
+		 * The tag's root node split and some toggles left.
+		 * The tag root must move up a level.
+		 */
+		summaryPtr->tagPtr->tagRootPtr = nodePtr->parentPtr;
+	    }
+	    summaryPtr2 = summaryPtr;
+	    summaryPtr = summaryPtr->nextPtr;
+	    continue;
+	}
+	if (summaryPtr->toggleCount == summaryPtr->tagPtr->toggleCount) {
+	    /*
+	     * A node merge has collected all the toggles under one node.
+	     * Push the root down to this level.
+	     */
+	    summaryPtr->tagPtr->tagRootPtr = nodePtr;
+	}
+	if (summaryPtr2 != NULL) {
+	    summaryPtr2->nextPtr = summaryPtr->nextPtr;
+	    ckfree((char *) summaryPtr);
+	    summaryPtr = summaryPtr2->nextPtr;
+	} else {
+	    nodePtr->summaryPtr = summaryPtr->nextPtr;
+	    ckfree((char *) summaryPtr);
+	    summaryPtr = nodePtr->summaryPtr;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeNumLines --
+ *
+ *	This procedure returns a count of the number of lines of
+ *	text present in a given B-tree.
+ *
+ * Results:
+ *	The return value is a count of the number of usable lines
+ *	in tree (i.e. it doesn't include the dummy line that is just
+ * 	used to mark the end of the tree).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreeNumLines(tree)
+    TkTextBTree tree;			/* Information about tree. */
+{
+    BTree *treePtr = (BTree *) tree;
+    return treePtr->rootPtr->numLines - 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharSplitProc --
+ *
+ *	This procedure implements splitting for character segments.
+ *
+ * Results:
+ *	The return value is a pointer to a chain of two segments
+ *	that have the same characters as segPtr except split
+ *	among the two segments.
+ *
+ * Side effects:
+ *	Storage for segPtr is freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkTextSegment *
+CharSplitProc(segPtr, index)
+    TkTextSegment *segPtr;		/* Pointer to segment to split. */
+    int index;				/* Position within segment at which
+					 * to split. */
+{
+    TkTextSegment *newPtr1, *newPtr2;
+
+    newPtr1 = (TkTextSegment *) ckalloc(CSEG_SIZE(index));
+    newPtr2 = (TkTextSegment *) ckalloc(
+	    CSEG_SIZE(segPtr->size - index));
+    newPtr1->typePtr = &tkTextCharType;
+    newPtr1->nextPtr = newPtr2;
+    newPtr1->size = index;
+    strncpy(newPtr1->body.chars, segPtr->body.chars, (size_t) index);
+    newPtr1->body.chars[index] = 0;
+    newPtr2->typePtr = &tkTextCharType;
+    newPtr2->nextPtr = segPtr->nextPtr;
+    newPtr2->size = segPtr->size - index;
+    strcpy(newPtr2->body.chars, segPtr->body.chars + index);
+    ckfree((char*) segPtr);
+    return newPtr1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharCleanupProc --
+ *
+ *	This procedure merges adjacent character segments into
+ *	a single character segment, if possible.
+ *
+ * Results:
+ *	The return value is a pointer to the first segment in
+ *	the (new) list of segments that used to start with segPtr.
+ *
+ * Side effects:
+ *	Storage for the segments may be allocated and freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static TkTextSegment *
+CharCleanupProc(segPtr, linePtr)
+    TkTextSegment *segPtr;		/* Pointer to first of two adjacent
+					 * segments to join. */
+    TkTextLine *linePtr;		/* Line containing segments (not
+					 * used). */
+{
+    TkTextSegment *segPtr2, *newPtr;
+
+    segPtr2 = segPtr->nextPtr;
+    if ((segPtr2 == NULL) || (segPtr2->typePtr != &tkTextCharType)) {
+	return segPtr;
+    }
+    newPtr = (TkTextSegment *) ckalloc(CSEG_SIZE(
+	    segPtr->size + segPtr2->size));
+    newPtr->typePtr = &tkTextCharType;
+    newPtr->nextPtr = segPtr2->nextPtr;
+    newPtr->size = segPtr->size + segPtr2->size;
+    strcpy(newPtr->body.chars, segPtr->body.chars);
+    strcpy(newPtr->body.chars + segPtr->size, segPtr2->body.chars);
+    ckfree((char*) segPtr);
+    ckfree((char*) segPtr2);
+    return newPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharDeleteProc --
+ *
+ *	This procedure is invoked to delete a character segment.
+ *
+ * Results:
+ *	Always returns 0 to indicate that the segment was deleted.
+ *
+ * Side effects:
+ *	Storage for the segment is freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+CharDeleteProc(segPtr, linePtr, treeGone)
+    TkTextSegment *segPtr;		/* Segment to delete. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+    int treeGone;			/* Non-zero means the entire tree is
+					 * being deleted, so everything must
+					 * get cleaned up. */
+{
+    ckfree((char*) segPtr);
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharCheckProc --
+ *
+ *	This procedure is invoked to perform consistency checks
+ *	on character segments.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If the segment isn't inconsistent then the procedure
+ *	panics.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+CharCheckProc(segPtr, linePtr)
+    TkTextSegment *segPtr;		/* Segment to check. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+{
+    /*
+     * Make sure that the segment contains the number of
+     * characters indicated by its header, and that the last
+     * segment in a line ends in a newline.  Also make sure
+     * that there aren't ever two character segments adjacent
+     * to each other:  they should be merged together.
+     */
+
+    if (segPtr->size <= 0) {
+	panic("CharCheckProc: segment has size <= 0");
+    }
+    if (strlen(segPtr->body.chars) != segPtr->size) {
+	panic("CharCheckProc: segment has wrong size");
+    }
+    if (segPtr->nextPtr == NULL) {
+	if (segPtr->body.chars[segPtr->size-1] != '\n') {
+	    panic("CharCheckProc: line doesn't end with newline");
+	}
+    } else {
+	if (segPtr->nextPtr->typePtr == &tkTextCharType) {
+	    panic("CharCheckProc: adjacent character segments weren't merged");
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ToggleDeleteProc --
+ *
+ *	This procedure is invoked to delete toggle segments.
+ *
+ * Results:
+ *	Returns 1 to indicate that the segment may not be deleted,
+ *	unless the entire B-tree is going away.
+ *
+ * Side effects:
+ *	If the tree is going away then the toggle's memory is
+ *	freed;  otherwise the toggle counts in nodes above the
+ *	segment get updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ToggleDeleteProc(segPtr, linePtr, treeGone)
+    TkTextSegment *segPtr;		/* Segment to check. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+    int treeGone;			/* Non-zero means the entire tree is
+					 * being deleted, so everything must
+					 * get cleaned up. */
+{
+    if (treeGone) {
+	ckfree((char *) segPtr);
+	return 0;
+    }
+
+    /*
+     * This toggle is in the middle of a range of characters that's
+     * being deleted.  Refuse to die.  We'll be moved to the end of
+     * the deleted range and our cleanup procedure will be called
+     * later.  Decrement node toggle counts here, and set a flag
+     * so we'll re-increment them in the cleanup procedure.
+     */
+
+    if (segPtr->body.toggle.inNodeCounts) {
+	ChangeNodeToggleCount(linePtr->parentPtr,
+		segPtr->body.toggle.tagPtr, -1);
+	segPtr->body.toggle.inNodeCounts = 0;
+    }
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ToggleCleanupProc --
+ *
+ *	This procedure is called when a toggle is part of a line that's
+ *	been modified in some way.  It's invoked after the
+ *	modifications are complete.
+ *
+ * Results:
+ *	The return value is the head segment in a new list
+ *	that is to replace the tail of the line that used to
+ *	start at segPtr.  This allows the procedure to delete
+ *	or modify segPtr.
+ *
+ * Side effects:
+ *	Toggle counts in the nodes above the new line will be
+ *	updated if they're not already.  Toggles may be collapsed
+ *	if there are duplicate toggles at the same position.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkTextSegment *
+ToggleCleanupProc(segPtr, linePtr)
+    TkTextSegment *segPtr;	/* Segment to check. */
+    TkTextLine *linePtr;	/* Line that now contains segment. */
+{
+    TkTextSegment *segPtr2, *prevPtr;
+    int counts;
+
+    /*
+     * If this is a toggle-off segment, look ahead through the next
+     * segments to see if there's a toggle-on segment for the same tag
+     * before any segments with non-zero size.  If so then the two
+     * toggles cancel each other;  remove them both.
+     */
+
+    if (segPtr->typePtr == &tkTextToggleOffType) {
+	for (prevPtr = segPtr, segPtr2 = prevPtr->nextPtr;
+		(segPtr2 != NULL) && (segPtr2->size == 0);
+		prevPtr = segPtr2, segPtr2 = prevPtr->nextPtr) {
+	    if (segPtr2->typePtr != &tkTextToggleOnType) {
+		continue;
+	    }
+	    if (segPtr2->body.toggle.tagPtr != segPtr->body.toggle.tagPtr) {
+		continue;
+	    }
+	    counts = segPtr->body.toggle.inNodeCounts
+		    + segPtr2->body.toggle.inNodeCounts;
+	    if (counts != 0) {
+		ChangeNodeToggleCount(linePtr->parentPtr,
+			segPtr->body.toggle.tagPtr, -counts);
+	    }
+	    prevPtr->nextPtr = segPtr2->nextPtr;
+	    ckfree((char *) segPtr2);
+	    segPtr2 = segPtr->nextPtr;
+	    ckfree((char *) segPtr);
+	    return segPtr2;
+	}
+    }
+
+    if (!segPtr->body.toggle.inNodeCounts) {
+	ChangeNodeToggleCount(linePtr->parentPtr,
+		segPtr->body.toggle.tagPtr, 1);
+	segPtr->body.toggle.inNodeCounts = 1;
+    }
+    return segPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ToggleLineChangeProc --
+ *
+ *	This procedure is invoked when a toggle segment is about
+ *	to move from one line to another.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Toggle counts are decremented in the nodes above the line.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ToggleLineChangeProc(segPtr, linePtr)
+    TkTextSegment *segPtr;	/* Segment to check. */
+    TkTextLine *linePtr;	/* Line that used to contain segment. */
+{
+    if (segPtr->body.toggle.inNodeCounts) {
+	ChangeNodeToggleCount(linePtr->parentPtr,
+		segPtr->body.toggle.tagPtr, -1);
+	segPtr->body.toggle.inNodeCounts = 0;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ToggleCheckProc --
+ *
+ *	This procedure is invoked to perform consistency checks
+ *	on toggle segments.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a consistency problem is found the procedure panics.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+ToggleCheckProc(segPtr, linePtr)
+    TkTextSegment *segPtr;		/* Segment to check. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+{
+    register Summary *summaryPtr;
+    int needSummary;
+
+    if (segPtr->size != 0) {
+	panic("ToggleCheckProc: segment had non-zero size");
+    }
+    if (!segPtr->body.toggle.inNodeCounts) {
+	panic("ToggleCheckProc: toggle counts not updated in nodes");
+    }
+    needSummary = (segPtr->body.toggle.tagPtr->tagRootPtr != linePtr->parentPtr);
+    for (summaryPtr = linePtr->parentPtr->summaryPtr; ;
+	    summaryPtr = summaryPtr->nextPtr) {
+	if (summaryPtr == NULL) {
+	    if (needSummary) {
+		panic("ToggleCheckProc: tag not present in node");
+	    } else {
+		break;
+	    }
+	}
+	if (summaryPtr->tagPtr == segPtr->body.toggle.tagPtr) {
+	    if (!needSummary) {
+		panic("ToggleCheckProc: tag present in root node summary");
+	    }
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkBTreeCharsInLine --
+ *
+ *	This procedure returns a count of the number of characters
+ *	in a given line.
+ *
+ * Results:
+ *	The return value is the character count for linePtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkBTreeCharsInLine(linePtr)
+    TkTextLine *linePtr;		/* Line whose characters should be
+					 * counted. */
+{
+    TkTextSegment *segPtr;
+    int count;
+
+    count = 0;
+    for (segPtr = linePtr->segPtr; segPtr != NULL; segPtr = segPtr->nextPtr) {
+	count += segPtr->size;
+    }
+    return count;
+}
diff --git a/Tk/generic/tkTextDisp.c b/Tk/generic/tkTextDisp.c
new file mode 100644
index 0000000..47612ad
--- /dev/null
+++ b/Tk/generic/tkTextDisp.c
@@ -0,0 +1,4828 @@
+/* 
+ * tkTextDisp.c --
+ *
+ *	This module provides facilities to display text widgets.  It is
+ *	the only place where information is kept about the screen layout
+ *	of text widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextDisp.c 1.112 96/06/12 18:12:21
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include "tkText.h"
+
+/*
+ * The following structure describes how to display a range of characters.
+ * The information is generated by scanning all of the tags associated
+ * with the characters and combining that with default information for
+ * the overall widget.  These structures form the hash keys for
+ * dInfoPtr->styleTable.
+ */
+
+typedef struct StyleValues {
+    Tk_3DBorder border;		/* Used for drawing background under text.
+				 * NULL means use widget background. */
+    int borderWidth;		/* Width of 3-D border for background. */
+    int relief;			/* 3-D relief for background. */
+    Pixmap bgStipple;		/* Stipple bitmap for background.  None
+				 * means draw solid. */
+    XColor *fgColor;		/* Foreground color for text. */
+    XFontStruct *fontPtr;	/* Font for displaying text. */
+    Pixmap fgStipple;		/* Stipple bitmap for text and other
+				 * foreground stuff.   None means draw
+				 * solid.*/
+    int justify;		/* Justification style for text. */
+    int lMargin1;		/* Left margin, in pixels, for first display
+				 * line of each text line. */
+    int lMargin2;		/* Left margin, in pixels, for second and
+				 * later display lines of each text line. */
+    int offset;			/* Offset in pixels of baseline, relative to
+				 * baseline of line. */
+    int overstrike;		/* Non-zero means draw overstrike through
+				 * text. */
+    int rMargin;		/* Right margin, in pixels. */
+    int spacing1;		/* Spacing above first dline in text line. */
+    int spacing2;		/* Spacing between lines of dline. */
+    int spacing3;		/* Spacing below last dline in text line. */
+    TkTextTabArray *tabArrayPtr;/* Locations and types of tab stops (may
+				 * be NULL). */
+    int underline;		/* Non-zero means draw underline underneath
+				 * text. */
+    Tk_Uid wrapMode;		/* How to handle wrap-around for this tag.
+				 * One of tkTextCharUid, tkTextNoneUid,
+				 * or tkTextWordUid. */
+} StyleValues;
+
+/*
+ * The following structure extends the StyleValues structure above with
+ * graphics contexts used to actually draw the characters.  The entries
+ * in dInfoPtr->styleTable point to structures of this type.
+ */
+
+typedef struct TextStyle {
+    int refCount;		/* Number of times this structure is
+				 * referenced in Chunks. */
+    GC bgGC;			/* Graphics context for background.  None
+				 * means use widget background. */
+    GC fgGC;			/* Graphics context for foreground. */
+    StyleValues *sValuePtr;	/* Raw information from which GCs were
+				 * derived. */
+    Tcl_HashEntry *hPtr;	/* Pointer to entry in styleTable.  Used
+				 * to delete entry. */
+} TextStyle;
+
+/*
+ * The following macro determines whether two styles have the same
+ * background so that, for example, no beveled border should be drawn
+ * between them.
+ */
+
+#define SAME_BACKGROUND(s1, s2) \
+    (((s1)->sValuePtr->border == (s2)->sValuePtr->border) \
+        && ((s1)->sValuePtr->borderWidth == (s2)->sValuePtr->borderWidth) \
+        && ((s1)->sValuePtr->relief == (s2)->sValuePtr->relief) \
+        && ((s1)->sValuePtr->bgStipple == (s2)->sValuePtr->bgStipple))
+
+/*
+ * The following structure describes one line of the display, which may
+ * be either part or all of one line of the text.
+ */
+
+typedef struct DLine {
+    TkTextIndex index;		/* Identifies first character in text
+				 * that is displayed on this line. */
+    int count;			/* Number of characters accounted for by this
+				 * display line, including a trailing space
+				 * or newline that isn't actually displayed. */
+    int y;			/* Y-position at which line is supposed to
+				 * be drawn (topmost pixel of rectangular
+				 * area occupied by line). */
+    int oldY;			/* Y-position at which line currently
+				 * appears on display.  -1 means line isn't
+				 * currently visible on display and must be
+				 * redrawn.  This is used to move lines by
+				 * scrolling rather than re-drawing. */
+    int height;			/* Height of line, in pixels. */
+    int baseline;		/* Offset of text baseline from y, in
+				 * pixels. */
+    int spaceAbove;		/* How much extra space was added to the
+				 * top of the line because of spacing
+				 * options.  This is included in height
+				 * and baseline. */
+    int spaceBelow;		/* How much extra space was added to the
+				 * bottom of the line because of spacing
+				 * options.  This is included in height. */
+    int length;			/* Total length of line, in pixels. */
+    TkTextDispChunk *chunkPtr;	/* Pointer to first chunk in list of all
+				 * of those that are displayed on this
+				 * line of the screen. */
+    struct DLine *nextPtr;	/* Next in list of all display lines for
+				 * this window.   The list is sorted in
+				 * order from top to bottom.  Note:  the
+				 * next DLine doesn't always correspond
+				 * to the next line of text:  (a) can have
+				 * multiple DLines for one text line, and
+				 * (b) can have gaps where DLine's have been
+				 * deleted because they're out of date. */
+    int flags;			/* Various flag bits:  see below for values. */
+} DLine;
+
+/*
+ * Flag bits for DLine structures:
+ *
+ * HAS_3D_BORDER -		Non-zero means that at least one of the
+ *				chunks in this line has a 3D border, so
+ *				it potentially interacts with 3D borders
+ *				in neighboring lines (see
+ *				DisplayLineBackground).
+ * NEW_LAYOUT -			Non-zero means that the line has been
+ *				re-layed out since the last time the
+ *				display was updated.
+ * TOP_LINE -			Non-zero means that this was the top line
+ *				in the window the last time that the window
+ *				was laid out.  This is important because
+ *				a line may be displayed differently if its
+ *				at the top or bottom than if it's in the
+ *				middle (e.g. beveled edges aren't displayed
+ *				for middle lines if the adjacent line has
+ *				a similar background).
+ * BOTTOM_LINE -		Non-zero means that this was the bottom line
+ *				in the window the last time that the window
+ *				was laid out.
+ */
+
+#define HAS_3D_BORDER	1
+#define NEW_LAYOUT	2
+#define TOP_LINE	4
+#define BOTTOM_LINE	8
+
+/*
+ * Overall display information for a text widget:
+ */
+
+typedef struct TextDInfo {
+    Tcl_HashTable styleTable;	/* Hash table that maps from StyleValues
+				 * to TextStyles for this widget. */
+    DLine *dLinePtr;		/* First in list of all display lines for
+				 * this widget, in order from top to bottom. */
+    GC copyGC;			/* Graphics context for copying from off-
+				 * screen pixmaps onto screen. */
+    GC scrollGC;		/* Graphics context for copying from one place
+				 * in the window to another (scrolling):
+				 * differs from copyGC in that we need to get
+				 * GraphicsExpose events. */
+    int x;			/* First x-coordinate that may be used for
+				 * actually displaying line information.
+				 * Leaves space for border, etc. */
+    int y;			/* First y-coordinate that may be used for
+				 * actually displaying line information.
+				 * Leaves space for border, etc. */
+    int maxX;			/* First x-coordinate to right of available
+				 * space for displaying lines. */
+    int maxY;			/* First y-coordinate below available
+				 * space for displaying lines. */
+    int topOfEof;		/* Top-most pixel (lowest y-value) that has
+				 * been drawn in the appropriate fashion for
+				 * the portion of the window after the last
+				 * line of the text.  This field is used to
+				 * figure out when to redraw part or all of
+				 * the eof field. */
+
+    /*
+     * Information used for scrolling:
+     */
+
+    int newCharOffset;		/* Desired x scroll position, measured as the
+				 * number of average-size characters off-screen
+				 * to the left for a line with no left
+				 * margin. */
+    int curPixelOffset;		/* Actual x scroll position, measured as the
+				 * number of pixels off-screen to the left. */
+    int maxLength;		/* Length in pixels of longest line that's
+				 * visible in window (length may exceed window
+				 * size).  If there's no wrapping, this will
+				 * be zero. */
+    double xScrollFirst, xScrollLast;
+				/* Most recent values reported to horizontal
+				 * scrollbar;  used to eliminate unnecessary
+				 * reports. */
+    double yScrollFirst, yScrollLast;
+				/* Most recent values reported to vertical
+				 * scrollbar;  used to eliminate unnecessary
+				 * reports. */
+
+    /*
+     * The following information is used to implement scanning:
+     */
+
+    int scanMarkChar;		/* Character that was at the left edge of
+				 * the window when the scan started. */
+    int scanMarkX;		/* X-position of mouse at time scan started. */
+    int scanTotalScroll;	/* Total scrolling (in screen lines) that has
+				 * occurred since scanMarkY was set. */
+    int scanMarkY;		/* Y-position of mouse at time scan started. */
+
+    /*
+     * Miscellaneous information:
+     */
+
+    int dLinesInvalidated;	/* This value is set to 1 whenever something
+				 * happens that invalidates information in
+				 * DLine structures;  if a redisplay
+				 * is in progress, it will see this and
+				 * abort the redisplay.  This is needed
+				 * because, for example, an embedded window
+				 * could change its size when it is first
+				 * displayed, invalidating the DLine that
+				 * is currently being displayed.  If redisplay
+				 * continues, it will use freed memory and
+				 * could dump core. */
+    int flags;			/* Various flag values:  see below for
+				 * definitions. */
+} TextDInfo;
+
+/*
+ * In TkTextDispChunk structures for character segments, the clientData
+ * field points to one of the following structures:
+ */
+
+typedef struct CharInfo {
+    int numChars;		/* Number of characters to display. */
+    char chars[4];		/* Characters to display.  Actual size
+				 * will be numChars, not 4.  THIS MUST BE
+				 * THE LAST FIELD IN THE STRUCTURE. */
+} CharInfo;
+
+/*
+ * Flag values for TextDInfo structures:
+ *
+ * DINFO_OUT_OF_DATE:		Non-zero means that the DLine structures
+ *				for this window are partially or completely
+ *				out of date and need to be recomputed.
+ * REDRAW_PENDING:		Means that a when-idle handler has been
+ *				scheduled to update the display.
+ * REDRAW_BORDERS:		Means window border or pad area has
+ *				potentially been damaged and must be redrawn.
+ * REPICK_NEEDED:		1 means that the widget has been modified
+ *				in a way that could change the current
+ *				character (a different character might be
+ *				under the mouse cursor now).  Need to
+ *				recompute the current character before
+ *				the next redisplay.
+ */
+
+#define DINFO_OUT_OF_DATE	1
+#define REDRAW_PENDING		2
+#define REDRAW_BORDERS		4
+#define REPICK_NEEDED		8
+
+/*
+ * The following counters keep statistics about redisplay that can be
+ * checked to see how clever this code is at reducing redisplays.
+ */
+
+static int numRedisplays;	/* Number of calls to DisplayText. */
+static int linesRedrawn;	/* Number of calls to DisplayDLine. */
+static int numCopies;		/* Number of calls to XCopyArea to copy part
+				 * of the screen. */
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		AdjustForTab _ANSI_ARGS_((TkText *textPtr,
+			    TkTextTabArray *tabArrayPtr, int index,
+			    TkTextDispChunk *chunkPtr));
+static void		CharBboxProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
+			    int index, int y, int lineHeight, int baseline,
+			    int *xPtr, int *yPtr, int *widthPtr,
+			    int *heightPtr));
+static void		CharDisplayProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
+			    int x, int y, int height, int baseline,
+			    Display *display, Drawable dst, int screenY));
+static int		CharMeasureProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
+			    int x));
+static void		CharUndisplayProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextDispChunk *chunkPtr));
+static void		DisplayDLine _ANSI_ARGS_((TkText *textPtr,
+			    DLine *dlPtr, DLine *prevPtr, Pixmap pixmap));
+static void		DisplayLineBackground _ANSI_ARGS_((TkText *textPtr,
+			    DLine *dlPtr, DLine *prevPtr, Pixmap pixmap));
+static void		DisplayText _ANSI_ARGS_((ClientData clientData));
+static DLine *		FindDLine _ANSI_ARGS_((DLine *dlPtr,
+			    TkTextIndex *indexPtr));
+static void		FreeDLines _ANSI_ARGS_((TkText *textPtr,
+			    DLine *firstPtr, DLine *lastPtr, int unlink));
+static void		FreeStyle _ANSI_ARGS_((TkText *textPtr,
+			    TextStyle *stylePtr));
+static TextStyle *	GetStyle _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr));
+static void		GetXView _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, int report));
+static void		GetYView _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, int report));
+static DLine *		LayoutDLine _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr));
+static void		MeasureUp _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *srcPtr, int distance,
+			    TkTextIndex *dstPtr));
+static void		UpdateDisplayInfo _ANSI_ARGS_((TkText *textPtr));
+static void		ScrollByLines _ANSI_ARGS_((TkText *textPtr,
+			    int offset));
+static int		SizeOfTab _ANSI_ARGS_((TkText *textPtr,
+			    TkTextTabArray *tabArrayPtr, int index, int x,
+			    int maxX));
+static void		TextInvalidateRegion _ANSI_ARGS_((TkText *textPtr,
+			    TkRegion region));
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextCreateDInfo --
+ *
+ *	This procedure is called when a new text widget is created.
+ *	Its job is to set up display-related information for the widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A TextDInfo data structure is allocated and initialized and attached
+ *	to textPtr.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextCreateDInfo(textPtr)
+    TkText *textPtr;		/* Overall information for text widget. */
+{
+    register TextDInfo *dInfoPtr;
+    XGCValues gcValues;
+
+    dInfoPtr = (TextDInfo *) ckalloc(sizeof(TextDInfo));
+    Tcl_InitHashTable(&dInfoPtr->styleTable, sizeof(StyleValues)/sizeof(int));
+    dInfoPtr->dLinePtr = NULL;
+    dInfoPtr->copyGC = None;
+    gcValues.graphics_exposures = True;
+    dInfoPtr->scrollGC = Tk_GetGC(textPtr->tkwin, GCGraphicsExposures,
+	    &gcValues);
+    dInfoPtr->topOfEof = 0;
+    dInfoPtr->newCharOffset = 0;
+    dInfoPtr->curPixelOffset = 0;
+    dInfoPtr->maxLength = 0;
+    dInfoPtr->xScrollFirst = -1;
+    dInfoPtr->xScrollLast = -1;
+    dInfoPtr->yScrollFirst = -1;
+    dInfoPtr->yScrollLast = -1;
+    dInfoPtr->scanMarkChar = 0;
+    dInfoPtr->scanMarkX = 0;
+    dInfoPtr->scanTotalScroll = 0;
+    dInfoPtr->scanMarkY = 0;
+    dInfoPtr->dLinesInvalidated = 0;
+    dInfoPtr->flags = DINFO_OUT_OF_DATE;
+    textPtr->dInfoPtr = dInfoPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextFreeDInfo --
+ *
+ *	This procedure is called to free up all of the private display
+ *	information kept by this file for a text widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Lots of resources get freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextFreeDInfo(textPtr)
+    TkText *textPtr;		/* Overall information for text widget. */
+{
+    register TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+
+    /*
+     * Be careful to free up styleTable *after* freeing up all the
+     * DLines, so that the hash table is still intact to free up the
+     * style-related information from the lines.  Once the lines are
+     * all free then styleTable will be empty.
+     */
+
+    FreeDLines(textPtr, dInfoPtr->dLinePtr, (DLine *) NULL, 1);
+    Tcl_DeleteHashTable(&dInfoPtr->styleTable);
+    if (dInfoPtr->copyGC != None) {
+	Tk_FreeGC(textPtr->display, dInfoPtr->copyGC);
+    }
+    Tk_FreeGC(textPtr->display, dInfoPtr->scrollGC);
+    if (dInfoPtr->flags & REDRAW_PENDING) {
+	Tcl_CancelIdleCall(DisplayText, (ClientData) textPtr);
+    }
+    ckfree((char *) dInfoPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetStyle --
+ *
+ *	This procedure creates all the information needed to display
+ *	text at a particular location.
+ *
+ * Results:
+ *	The return value is a pointer to a TextStyle structure that
+ *	corresponds to *sValuePtr.
+ *
+ * Side effects:
+ *	A new entry may be created in the style table for the widget.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TextStyle *
+GetStyle(textPtr, indexPtr)
+    TkText *textPtr;		/* Overall information about text widget. */
+    TkTextIndex *indexPtr;	/* The character in the text for which
+				 * display information is wanted. */
+{
+    TkTextTag **tagPtrs;
+    register TkTextTag *tagPtr;
+    StyleValues styleValues;
+    TextStyle *stylePtr;
+    Tcl_HashEntry *hPtr;
+    int numTags, new, i;
+    XGCValues gcValues;
+    unsigned long mask;
+
+    /*
+     * The variables below keep track of the highest-priority specification
+     * that has occurred for each of the various fields of the StyleValues.
+     */
+
+    int borderPrio, borderWidthPrio, reliefPrio, bgStipplePrio;
+    int fgPrio, fontPrio, fgStipplePrio;
+    int underlinePrio, justifyPrio, offsetPrio;
+    int lMargin1Prio, lMargin2Prio, rMarginPrio;
+    int spacing1Prio, spacing2Prio, spacing3Prio;
+    int overstrikePrio, tabPrio, wrapPrio;
+
+    /*
+     * Find out what tags are present for the character, then compute
+     * a StyleValues structure corresponding to those tags (scan
+     * through all of the tags, saving information for the highest-
+     * priority tag).
+     */
+
+    tagPtrs = TkBTreeGetTags(indexPtr, &numTags);
+    borderPrio = borderWidthPrio = reliefPrio = bgStipplePrio = -1;
+    fgPrio = fontPrio = fgStipplePrio = -1;
+    underlinePrio = justifyPrio = offsetPrio = -1;
+    lMargin1Prio = lMargin2Prio = rMarginPrio = -1;
+    spacing1Prio = spacing2Prio = spacing3Prio = -1;
+    overstrikePrio = tabPrio = wrapPrio = -1;
+    memset((VOID *) &styleValues, 0, sizeof(StyleValues));
+    styleValues.relief = TK_RELIEF_FLAT;
+    styleValues.fgColor = textPtr->fgColor;
+    styleValues.fontPtr = textPtr->fontPtr;
+    styleValues.justify = TK_JUSTIFY_LEFT;
+    styleValues.spacing1 = textPtr->spacing1;
+    styleValues.spacing2 = textPtr->spacing2;
+    styleValues.spacing3 = textPtr->spacing3;
+    styleValues.tabArrayPtr = textPtr->tabArrayPtr;
+    styleValues.wrapMode = textPtr->wrapMode;
+    for (i = 0 ; i < numTags; i++) {
+	tagPtr = tagPtrs[i];
+	if ((tagPtr->border != NULL) && (tagPtr->priority > borderPrio)) {
+	    styleValues.border = tagPtr->border;
+	    borderPrio = tagPtr->priority;
+	}
+	if ((tagPtr->bdString != NULL)
+		&& (tagPtr->priority > borderWidthPrio)) {
+	    styleValues.borderWidth = tagPtr->borderWidth;
+	    borderWidthPrio = tagPtr->priority;
+	}
+	if ((tagPtr->reliefString != NULL)
+		&& (tagPtr->priority > reliefPrio)) {
+	    if (styleValues.border == NULL) {
+		styleValues.border = textPtr->border;
+	    }
+	    styleValues.relief = tagPtr->relief;
+	    reliefPrio = tagPtr->priority;
+	}
+	if ((tagPtr->bgStipple != None)
+		&& (tagPtr->priority > bgStipplePrio)) {
+	    styleValues.bgStipple = tagPtr->bgStipple;
+	    bgStipplePrio = tagPtr->priority;
+	}
+	if ((tagPtr->fgColor != None) && (tagPtr->priority > fgPrio)) {
+	    styleValues.fgColor = tagPtr->fgColor;
+	    fgPrio = tagPtr->priority;
+	}
+	if ((tagPtr->fontPtr != None) && (tagPtr->priority > fontPrio)) {
+	    styleValues.fontPtr = tagPtr->fontPtr;
+	    fontPrio = tagPtr->priority;
+	}
+	if ((tagPtr->fgStipple != None)
+		&& (tagPtr->priority > fgStipplePrio)) {
+	    styleValues.fgStipple = tagPtr->fgStipple;
+	    fgStipplePrio = tagPtr->priority;
+	}
+	if ((tagPtr->justifyString != NULL)
+		&& (tagPtr->priority > justifyPrio)) {
+	    styleValues.justify = tagPtr->justify;
+	    justifyPrio = tagPtr->priority;
+	}
+	if ((tagPtr->lMargin1String != NULL)
+		&& (tagPtr->priority > lMargin1Prio)) {
+	    styleValues.lMargin1 = tagPtr->lMargin1;
+	    lMargin1Prio = tagPtr->priority;
+	}
+	if ((tagPtr->lMargin2String != NULL)
+		&& (tagPtr->priority > lMargin2Prio)) {
+	    styleValues.lMargin2 = tagPtr->lMargin2;
+	    lMargin2Prio = tagPtr->priority;
+	}
+	if ((tagPtr->offsetString != NULL)
+		&& (tagPtr->priority > offsetPrio)) {
+	    styleValues.offset = tagPtr->offset;
+	    offsetPrio = tagPtr->priority;
+	}
+	if ((tagPtr->overstrikeString != NULL)
+		&& (tagPtr->priority > overstrikePrio)) {
+	    styleValues.overstrike = tagPtr->overstrike;
+	    overstrikePrio = tagPtr->priority;
+	}
+	if ((tagPtr->rMarginString != NULL)
+		&& (tagPtr->priority > rMarginPrio)) {
+	    styleValues.rMargin = tagPtr->rMargin;
+	    rMarginPrio = tagPtr->priority;
+	}
+	if ((tagPtr->spacing1String != NULL)
+		&& (tagPtr->priority > spacing1Prio)) {
+	    styleValues.spacing1 = tagPtr->spacing1;
+	    spacing1Prio = tagPtr->priority;
+	}
+	if ((tagPtr->spacing2String != NULL)
+		&& (tagPtr->priority > spacing2Prio)) {
+	    styleValues.spacing2 = tagPtr->spacing2;
+	    spacing2Prio = tagPtr->priority;
+	}
+	if ((tagPtr->spacing3String != NULL)
+		&& (tagPtr->priority > spacing3Prio)) {
+	    styleValues.spacing3 = tagPtr->spacing3;
+	    spacing3Prio = tagPtr->priority;
+	}
+	if ((tagPtr->tabString != NULL)
+		&& (tagPtr->priority > tabPrio)) {
+	    styleValues.tabArrayPtr = tagPtr->tabArrayPtr;
+	    tabPrio = tagPtr->priority;
+	}
+	if ((tagPtr->underlineString != NULL)
+		&& (tagPtr->priority > underlinePrio)) {
+	    styleValues.underline = tagPtr->underline;
+	    underlinePrio = tagPtr->priority;
+	}
+	if ((tagPtr->wrapMode != NULL)
+		&& (tagPtr->priority > wrapPrio)) {
+	    styleValues.wrapMode = tagPtr->wrapMode;
+	    wrapPrio = tagPtr->priority;
+	}
+    }
+    if (tagPtrs != NULL) {
+	ckfree((char *) tagPtrs);
+    }
+
+    /*
+     * Use an existing style if there's one around that matches.
+     */
+
+    hPtr = Tcl_CreateHashEntry(&textPtr->dInfoPtr->styleTable,
+	    (char *) &styleValues, &new);
+    if (!new) {
+	stylePtr = (TextStyle *) Tcl_GetHashValue(hPtr);
+	stylePtr->refCount++;
+	return stylePtr;
+    }
+
+    /*
+     * No existing style matched.  Make a new one.
+     */
+
+    stylePtr = (TextStyle *) ckalloc(sizeof(TextStyle));
+    stylePtr->refCount = 1;
+    if (styleValues.border != NULL) {
+	gcValues.foreground = Tk_3DBorderColor(styleValues.border)->pixel;
+	mask = GCForeground;
+	if (styleValues.bgStipple != None) {
+	    gcValues.stipple = styleValues.bgStipple;
+	    gcValues.fill_style = FillStippled;
+	    mask |= GCStipple|GCFillStyle;
+	}
+	stylePtr->bgGC = Tk_GetGC(textPtr->tkwin, mask, &gcValues);
+    } else {
+	stylePtr->bgGC = None;
+    }
+    mask = GCForeground|GCFont;
+    gcValues.foreground = styleValues.fgColor->pixel;
+    gcValues.font = styleValues.fontPtr->fid;
+    if (styleValues.fgStipple != None) {
+	gcValues.stipple = styleValues.fgStipple;
+	gcValues.fill_style = FillStippled;
+	mask |= GCStipple|GCFillStyle;
+    }
+    stylePtr->fgGC = Tk_GetGC(textPtr->tkwin, mask, &gcValues);
+    stylePtr->sValuePtr = (StyleValues *)
+	    Tcl_GetHashKey(&textPtr->dInfoPtr->styleTable, hPtr);
+    stylePtr->hPtr = hPtr;
+    Tcl_SetHashValue(hPtr, stylePtr);
+    return stylePtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FreeStyle --
+ *
+ *	This procedure is called when a TextStyle structure is no longer
+ *	needed.  It decrements the reference count and frees up the
+ *	space for the style structure if the reference count is 0.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The storage and other resources associated with the style
+ *	are freed up if no-one's still using it.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FreeStyle(textPtr, stylePtr)
+    TkText *textPtr;			/* Information about overall widget. */
+    register TextStyle *stylePtr;	/* Information about style to free. */
+
+{
+    stylePtr->refCount--;
+    if (stylePtr->refCount == 0) {
+	if (stylePtr->bgGC != None) {
+	    Tk_FreeGC(textPtr->display, stylePtr->bgGC);
+	}
+	Tk_FreeGC(textPtr->display, stylePtr->fgGC);
+	Tcl_DeleteHashEntry(stylePtr->hPtr);
+	ckfree((char *) stylePtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * LayoutDLine --
+ *
+ *	This procedure generates a single DLine structure for a display
+ *	line whose leftmost character is given by indexPtr.
+ *	
+ * Results:
+ *	The return value is a pointer to a DLine structure desribing the
+ *	display line.  All fields are filled in and correct except for
+ *	y and nextPtr.
+ *
+ * Side effects:
+ *	Storage is allocated for the new DLine.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static DLine *
+LayoutDLine(textPtr, indexPtr)
+    TkText *textPtr;		/* Overall information about text widget. */
+    TkTextIndex *indexPtr;	/* Beginning of display line.  May not
+				 * necessarily point to a character segment. */
+{
+    register DLine *dlPtr;		/* New display line. */
+    TkTextSegment *segPtr;		/* Current segment in text. */
+    TkTextDispChunk *lastChunkPtr;	/* Last chunk allocated so far
+					 * for line. */
+    TkTextDispChunk *chunkPtr;		/* Current chunk. */
+    TkTextIndex curIndex;
+    TkTextDispChunk *breakChunkPtr;	/* Chunk containing best word break
+					 * point, if any. */
+    TkTextIndex breakIndex;		/* Index of first character in
+					 * breakChunkPtr. */
+    int breakCharOffset;		/* Character within breakChunkPtr just
+					 * to right of best break point. */
+    int noCharsYet;			/* Non-zero means that no characters
+					 * have been placed on the line yet. */
+    int justify;			/* How to justify line: taken from
+					 * style for first character in line. */
+    int jIndent;			/* Additional indentation (beyond
+					 * margins) due to justification. */
+    int rMargin;			/* Right margin width for line. */
+    Tk_Uid wrapMode;			/* Wrap mode to use for this line. */
+    int x = 0, maxX = 0;		/* Initializations needed only to
+					 * stop compiler warnings. */
+    int wholeLine;			/* Non-zero means this display line
+					 * runs to the end of the text line. */
+    int tabIndex;			/* Index of the current tab stop. */
+    int gotTab;				/* Non-zero means the current chunk
+					 * contains a tab. */
+    TkTextDispChunk *tabChunkPtr;	/* Pointer to the chunk containing
+					 * the previous tab stop. */
+    int maxChars;			/* Maximum number of characters to
+					 * include in this chunk. */
+    TkTextTabArray *tabArrayPtr;	/* Tab stops for line;  taken from
+					 * style for first character on line. */
+    int tabSize;			/* Number of pixels consumed by current
+					 * tab stop. */
+    TkTextDispChunk *lastCharChunkPtr;	/* Pointer to last chunk in display
+					 * lines with numChars > 0.  Used to
+					 * drop 0-sized chunks from the end
+					 * of the line. */
+    int offset, ascent, descent, code;
+    StyleValues *sValuePtr;
+
+    /*
+     * Create and initialize a new DLine structure.
+     */
+
+    dlPtr = (DLine *) ckalloc(sizeof(DLine));
+    dlPtr->index = *indexPtr;
+    dlPtr->count = 0;
+    dlPtr->y = 0;
+    dlPtr->oldY = -1;
+    dlPtr->height = 0;
+    dlPtr->baseline = 0;
+    dlPtr->chunkPtr = NULL;
+    dlPtr->nextPtr = NULL;
+    dlPtr->flags = NEW_LAYOUT;
+
+    /*
+     * Each iteration of the loop below creates one TkTextDispChunk for
+     * the new display line.  The line will always have at least one
+     * chunk (for the newline character at the end, if there's nothing
+     * else available).
+     */
+
+    curIndex = *indexPtr;
+    lastChunkPtr = NULL;
+    chunkPtr = NULL;
+    noCharsYet = 1;
+    breakChunkPtr = NULL;
+    breakCharOffset = 0;
+    justify = TK_JUSTIFY_LEFT;
+    tabIndex = -1;
+    tabChunkPtr = NULL;
+    tabArrayPtr = NULL;
+    rMargin = 0;
+    wrapMode = tkTextCharUid;
+    tabSize = 0;
+    lastCharChunkPtr = NULL;
+
+    /*
+     * Find the first segment to consider for the line.  Can't call
+     * TkTextIndexToSeg for this because it won't return a segment
+     * with zero size (such as the insertion cursor's mark).
+     */
+
+    for (offset = curIndex.charIndex, segPtr = curIndex.linePtr->segPtr;
+	    (offset > 0) && (offset >= segPtr->size);
+	    offset -= segPtr->size, segPtr = segPtr->nextPtr) {
+	/* Empty loop body. */
+    }
+
+    while (segPtr != NULL) {
+	if (segPtr->typePtr->layoutProc == NULL) {
+	    segPtr = segPtr->nextPtr;
+	    offset = 0;
+	    continue;
+	}
+	if (chunkPtr == NULL) {
+	    chunkPtr = (TkTextDispChunk *) ckalloc(sizeof(TkTextDispChunk));
+	    chunkPtr->nextPtr = NULL;
+	}
+	chunkPtr->stylePtr = GetStyle(textPtr, &curIndex);
+
+	/*
+	 * Save style information such as justification and indentation,
+	 * up until the first character is encountered, then retain that
+	 * information for the rest of the line.
+	 */
+
+	if (noCharsYet) {
+	    tabArrayPtr = chunkPtr->stylePtr->sValuePtr->tabArrayPtr;
+	    justify = chunkPtr->stylePtr->sValuePtr->justify;
+	    rMargin = chunkPtr->stylePtr->sValuePtr->rMargin;
+	    wrapMode = chunkPtr->stylePtr->sValuePtr->wrapMode;
+	    x = ((curIndex.charIndex == 0)
+		    ? chunkPtr->stylePtr->sValuePtr->lMargin1
+		    : chunkPtr->stylePtr->sValuePtr->lMargin2);
+	    if (wrapMode == tkTextNoneUid) {
+		maxX = INT_MAX;
+	    } else {
+		maxX = textPtr->dInfoPtr->maxX - textPtr->dInfoPtr->x
+			- rMargin;
+		if (maxX < x) {
+		    maxX = x;
+		}
+	    }
+	}
+
+	/*
+	 * See if there is a tab in the current chunk; if so, only
+	 * layout characters up to (and including) the tab.
+	 */
+
+	gotTab = 0;
+	maxChars = segPtr->size - offset;
+	if (justify == TK_JUSTIFY_LEFT) {
+	    if (segPtr->typePtr == &tkTextCharType) {
+		char *p;
+
+		for (p = segPtr->body.chars  + offset; *p != 0; p++) {
+		    if (*p == '\t') {
+			maxChars = (p + 1 - segPtr->body.chars) - offset;
+			gotTab = 1;
+			break;
+		    }
+		}
+	    }
+	}
+
+	chunkPtr->x = x;
+	code = (*segPtr->typePtr->layoutProc)(textPtr, &curIndex, segPtr,
+		offset, maxX-tabSize, maxChars, noCharsYet, wrapMode,
+		chunkPtr);
+	if (code <= 0) {
+	    FreeStyle(textPtr, chunkPtr->stylePtr);
+	    if (code < 0) {
+		/*
+		 * This segment doesn't wish to display itself (e.g. most
+		 * marks).
+		 */
+
+		segPtr = segPtr->nextPtr;
+		offset = 0;
+		continue;
+	    }
+
+	    /*
+	     * No characters from this segment fit in the window: this
+	     * means we're at the end of the display line.
+	     */
+
+	    if (chunkPtr != NULL) {
+		ckfree((char *) chunkPtr);
+	    }
+	    break;
+	}
+	if (chunkPtr->numChars > 0) {
+	    noCharsYet = 0;
+	    lastCharChunkPtr = chunkPtr;
+	}
+	if (lastChunkPtr == NULL) {
+	    dlPtr->chunkPtr = chunkPtr;
+	} else {
+	    lastChunkPtr->nextPtr = chunkPtr;
+	}
+	lastChunkPtr = chunkPtr;
+	x += chunkPtr->width;
+	if (chunkPtr->breakIndex > 0) {
+	    breakCharOffset = chunkPtr->breakIndex;
+	    breakIndex = curIndex;
+	    breakChunkPtr = chunkPtr;
+	}
+	if (chunkPtr->numChars != maxChars) {
+	    break;
+	}
+
+	/*
+	 * If we're at a new tab, adjust the layout for all the chunks
+	 * pertaining to the previous tab.  Also adjust the amount of
+	 * space left in the line to account for space that will be eaten
+	 * up by the tab.
+	 */
+
+	if (gotTab) {
+	    if (tabIndex >= 0) {
+		AdjustForTab(textPtr, tabArrayPtr, tabIndex, tabChunkPtr);
+		x = chunkPtr->x + chunkPtr->width;
+	    }
+	    tabIndex++;
+	    tabChunkPtr = chunkPtr;
+	    tabSize = SizeOfTab(textPtr, tabArrayPtr, tabIndex, x, maxX);
+	    if (tabSize >= (maxX - x)) {
+		break;
+	    }
+	}
+	curIndex.charIndex += chunkPtr->numChars;
+	offset += chunkPtr->numChars;
+	if (offset >= segPtr->size) {
+	    offset = 0;
+	    segPtr = segPtr->nextPtr;
+	}
+	chunkPtr = NULL;
+    }
+    if (noCharsYet) {
+	panic("LayoutDLine couldn't place any characters on a line");
+    }
+    wholeLine = (segPtr == NULL);
+
+    /*
+     * We're at the end of the display line.  Throw away everything
+     * after the most recent word break, if there is one;  this may
+     * potentially require the last chunk to be layed out again.
+     */
+
+    if (breakChunkPtr == NULL) {
+	/*
+	 * This code makes sure that we don't accidentally display
+	 * chunks with no characters at the end of the line (such as
+	 * the insertion cursor).  These chunks belong on the next
+	 * line.  So, throw away everything after the last chunk that
+	 * has characters in it.
+	 */
+
+	breakChunkPtr = lastCharChunkPtr;
+	breakCharOffset = breakChunkPtr->numChars;
+    }
+    if ((breakChunkPtr != NULL) && ((lastChunkPtr != breakChunkPtr)
+	    || (breakCharOffset != lastChunkPtr->numChars))) {
+	while (1) {
+	    chunkPtr = breakChunkPtr->nextPtr;
+	    if (chunkPtr == NULL) {
+		break;
+	    }
+	    FreeStyle(textPtr, chunkPtr->stylePtr);
+	    breakChunkPtr->nextPtr = chunkPtr->nextPtr;
+	    (*chunkPtr->undisplayProc)(textPtr, chunkPtr);
+	    ckfree((char *) chunkPtr);
+	}
+	if (breakCharOffset != breakChunkPtr->numChars) {
+	    (*breakChunkPtr->undisplayProc)(textPtr, breakChunkPtr);
+	    segPtr = TkTextIndexToSeg(&breakIndex, &offset);
+	    (*segPtr->typePtr->layoutProc)(textPtr, &breakIndex,
+		    segPtr, offset, maxX, breakCharOffset, 0, 
+		    wrapMode, breakChunkPtr);
+	}
+	lastChunkPtr = breakChunkPtr;
+	wholeLine = 0;
+    }
+
+    /*
+     * Make tab adjustments for the last tab stop, if there is one.
+     */
+
+    if ((tabIndex >= 0) && (tabChunkPtr != NULL)) {
+	AdjustForTab(textPtr, tabArrayPtr, tabIndex, tabChunkPtr);
+    }
+
+    /*
+     * Make one more pass over the line to recompute various things
+     * like its height, length, and total number of characters.  Also
+     * modify the x-locations of chunks to reflect justification.
+     * If we're not wrapping, I'm not sure what is the best way to
+     * handle left and center justification:  should the total length,
+     * for purposes of justification, be (a) the window width, (b)
+     * the length of the longest line in the window, or (c) the length
+     * of the longest line in the text?  (c) isn't available, (b) seems
+     * weird, since it can change with vertical scrolling, so (a) is
+     * what is implemented below.
+     */
+
+    if (wrapMode == tkTextNoneUid) {
+	maxX = textPtr->dInfoPtr->maxX - textPtr->dInfoPtr->x - rMargin;
+    }
+    dlPtr->length = lastChunkPtr->x + lastChunkPtr->width;
+    if (justify == TK_JUSTIFY_LEFT) {
+	jIndent = 0;
+    } else if (justify == TK_JUSTIFY_RIGHT) {
+	jIndent = maxX - dlPtr->length;
+    } else {
+	jIndent = (maxX - dlPtr->length)/2;
+    }
+    ascent = descent = 0;
+    for (chunkPtr = dlPtr->chunkPtr; chunkPtr != NULL;
+	    chunkPtr = chunkPtr->nextPtr) {
+	chunkPtr->x += jIndent;
+	dlPtr->count += chunkPtr->numChars;
+	if (chunkPtr->minAscent > ascent) {
+	    ascent = chunkPtr->minAscent;
+	}
+	if (chunkPtr->minDescent > descent) {
+	    descent = chunkPtr->minDescent;
+	}
+	if (chunkPtr->minHeight > dlPtr->height) {
+	    dlPtr->height = chunkPtr->minHeight;
+	}
+	sValuePtr = chunkPtr->stylePtr->sValuePtr;
+	if ((sValuePtr->borderWidth > 0)
+		&& (sValuePtr->relief != TK_RELIEF_FLAT)) {
+	    dlPtr->flags |= HAS_3D_BORDER;
+	}
+    }
+    if (dlPtr->height < (ascent + descent)) {
+	dlPtr->height = ascent + descent;
+	dlPtr->baseline = ascent;
+    } else {
+	dlPtr->baseline = ascent + (dlPtr->height - ascent - descent)/2;
+    }
+    sValuePtr = dlPtr->chunkPtr->stylePtr->sValuePtr;
+    if (dlPtr->index.charIndex == 0) {
+	dlPtr->spaceAbove = sValuePtr->spacing1;
+    } else {
+	dlPtr->spaceAbove = sValuePtr->spacing2 - sValuePtr->spacing2/2;
+    }
+    if (wholeLine) {
+	dlPtr->spaceBelow = sValuePtr->spacing3;
+    } else {
+	dlPtr->spaceBelow = sValuePtr->spacing2/2;
+    }
+    dlPtr->height += dlPtr->spaceAbove + dlPtr->spaceBelow;
+    dlPtr->baseline += dlPtr->spaceAbove;
+
+    /*
+     * Recompute line length:  may have changed because of justification.
+     */
+
+    dlPtr->length = lastChunkPtr->x + lastChunkPtr->width;
+    return dlPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateDisplayInfo --
+ *
+ *	This procedure is invoked to recompute some or all of the
+ *	DLine structures for a text widget.  At the time it is called
+ *	the DLine structures still left in the widget are guaranteed
+ *	to be correct except that (a) the y-coordinates aren't
+ *	necessarily correct, (b) there may be missing structures
+ *	(the DLine structures get removed as soon as they are potentially
+ *	out-of-date), and (c) DLine structures that don't start at the
+ *	beginning of a line may be incorrect if previous information in
+ *	the same line changed size in a way that moved a line boundary
+ *	(DLines for any info that changed will have been deleted, but
+ *	not DLines for unchanged info in the same text line).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Upon return, the DLine information for textPtr correctly reflects
+ *	the positions where characters will be displayed.  However, this
+ *	procedure doesn't actually bring the display up-to-date.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateDisplayInfo(textPtr)
+    TkText *textPtr;			/* Text widget to update. */
+{
+    register TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    register DLine *dlPtr, *prevPtr;
+    TkTextIndex index;
+    TkTextLine *lastLinePtr;
+    int y, maxY, pixelOffset, maxOffset;
+
+    if (!(dInfoPtr->flags & DINFO_OUT_OF_DATE)) {
+	return;
+    }
+    dInfoPtr->flags &= ~DINFO_OUT_OF_DATE;
+
+    /*
+     * Delete any DLines that are now above the top of the window.
+     */
+
+    index = textPtr->topIndex;
+    dlPtr = FindDLine(dInfoPtr->dLinePtr, &index);
+    if ((dlPtr != NULL) && (dlPtr != dInfoPtr->dLinePtr)) {
+	FreeDLines(textPtr, dInfoPtr->dLinePtr, dlPtr, 1);
+    }
+
+    /*
+     *--------------------------------------------------------------
+     * Scan through the contents of the window from top to bottom,
+     * recomputing information for lines that are missing.
+     *--------------------------------------------------------------
+     */
+
+    lastLinePtr = TkBTreeFindLine(textPtr->tree,
+	    TkBTreeNumLines(textPtr->tree));
+    dlPtr = dInfoPtr->dLinePtr;
+    prevPtr = NULL;
+    y = dInfoPtr->y;
+    maxY = dInfoPtr->maxY;
+    while (1) {
+	register DLine *newPtr;
+
+	if (index.linePtr == lastLinePtr) {
+	    break;
+	}
+
+	/*
+	 * There are three possibilities right now:
+	 * (a) the next DLine (dlPtr) corresponds exactly to the next
+	 *     information we want to display: just use it as-is.
+	 * (b) the next DLine corresponds to a different line, or to
+	 *     a segment that will be coming later in the same line:
+	 *     leave this DLine alone in the hopes that we'll be able
+	 *     to use it later, then create a new DLine in front of
+	 *     it.
+	 * (c) the next DLine corresponds to a segment in the line we
+	 *     want, but it's a segment that has already been processed
+	 *     or will never be processed.  Delete the DLine and try
+	 *     again.
+	 *
+	 * One other twist on all this.  It's possible for 3D borders
+	 * to interact between lines (see DisplayLineBackground) so if
+	 * a line is relayed out and has styles with 3D borders, its
+	 * neighbors have to be redrawn if they have 3D borders too,
+	 * since the interactions could have changed (the neighbors
+	 * don't have to be relayed out, just redrawn).
+	 */
+
+	if ((dlPtr == NULL) || (dlPtr->index.linePtr != index.linePtr)) {
+	    /*
+	     * Case (b) -- must make new DLine.
+	     */
+
+	    makeNewDLine:
+	    if (tkTextDebug) {
+		char string[TK_POS_CHARS];
+
+		/*
+		 * Debugging is enabled, so keep a log of all the lines
+		 * that were re-layed out.  The test suite uses this
+		 * information.
+		 */
+
+		TkTextPrintIndex(&index, string);
+		Tcl_SetVar2(textPtr->interp, "tk_textRelayout", (char *) NULL,
+			string,
+			TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+	    }
+	    newPtr = LayoutDLine(textPtr, &index);
+	    if (prevPtr == NULL) {
+		dInfoPtr->dLinePtr = newPtr;
+	    } else {
+		prevPtr->nextPtr = newPtr;
+		if (prevPtr->flags & HAS_3D_BORDER) {
+		    prevPtr->oldY = -1;
+		}
+	    }
+	    newPtr->nextPtr = dlPtr;
+	    dlPtr = newPtr;
+	} else {
+	    /*
+	     * DlPtr refers to the line we want.  Next check the
+	     * index within the line.
+	     */
+
+	    if (index.charIndex == dlPtr->index.charIndex) {
+		/*
+		 * Case (a) -- can use existing display line as-is.
+		 */
+
+		if ((dlPtr->flags & HAS_3D_BORDER) && (prevPtr != NULL)
+			&& (prevPtr->flags & (NEW_LAYOUT))) {
+		    dlPtr->oldY = -1;
+		}
+		goto lineOK;
+	    }
+	    if (index.charIndex < dlPtr->index.charIndex) {
+		goto makeNewDLine;
+	    }
+
+	    /*
+	     * Case (c) -- dlPtr is useless.  Discard it and start
+	     * again with the next display line.
+	     */
+
+	    newPtr = dlPtr->nextPtr;
+	    FreeDLines(textPtr, dlPtr, newPtr, 0);
+	    dlPtr = newPtr;
+	    if (prevPtr != NULL) {
+		prevPtr->nextPtr = newPtr;
+	    } else {
+		dInfoPtr->dLinePtr = newPtr;
+	    }
+	    continue;
+	}
+
+	/*
+	 * Advance to the start of the next line.
+	 */
+
+	lineOK:
+	dlPtr->y = y;
+	y += dlPtr->height;
+	TkTextIndexForwChars(&index, dlPtr->count, &index);
+	prevPtr = dlPtr;
+	dlPtr = dlPtr->nextPtr;
+
+	/*
+	 * If we switched text lines, delete any DLines left for the
+	 * old text line.
+	 */
+
+	if (index.linePtr != prevPtr->index.linePtr) {
+	    register DLine *nextPtr;
+
+	    nextPtr = dlPtr;
+	    while ((nextPtr != NULL)
+		    && (nextPtr->index.linePtr == prevPtr->index.linePtr)) {
+		nextPtr = nextPtr->nextPtr;
+	    }
+	    if (nextPtr != dlPtr) {
+		FreeDLines(textPtr, dlPtr, nextPtr, 0);
+		prevPtr->nextPtr = nextPtr;
+		dlPtr = nextPtr;
+	    }
+	}
+
+	/*
+	 * It's important to have the following check here rather than in
+	 * the while statement for the loop, so that there's always at least
+	 * one DLine generated, regardless of how small the window is.  This
+	 * keeps a lot of other code from breaking.
+	 */
+
+	if (y >= maxY) {
+	    break;
+	}
+    }
+
+    /*
+     * Delete any DLine structures that don't fit on the screen.
+     */
+
+    FreeDLines(textPtr, dlPtr, (DLine *) NULL, 1);
+
+    /*
+     *--------------------------------------------------------------
+     * If there is extra space at the bottom of the window (because
+     * we've hit the end of the text), then bring in more lines at
+     * the top of the window, if there are any, to fill in the view.
+     *--------------------------------------------------------------
+     */
+
+    if (y < maxY) {
+	int lineNum, spaceLeft, charsToCount;
+	DLine *lowestPtr;
+
+	/*
+	 * Layout an entire text line (potentially > 1 display line),
+	 * then link in as many display lines as fit without moving
+	 * the bottom line out of the window.  Repeat this until
+	 * all the extra space has been used up or we've reached the
+	 * beginning of the text.
+	 */
+
+	spaceLeft = maxY - y;
+	lineNum = TkBTreeLineIndex(dInfoPtr->dLinePtr->index.linePtr);
+	charsToCount = dInfoPtr->dLinePtr->index.charIndex;
+	if (charsToCount == 0) {
+	    charsToCount = INT_MAX;
+	    lineNum--;
+	}
+	for ( ; (lineNum >= 0) && (spaceLeft > 0); lineNum--) {
+	    index.linePtr = TkBTreeFindLine(textPtr->tree, lineNum);
+	    index.charIndex = 0;
+	    lowestPtr = NULL;
+	    do {
+		dlPtr = LayoutDLine(textPtr, &index);
+		dlPtr->nextPtr = lowestPtr;
+		lowestPtr = dlPtr;
+		TkTextIndexForwChars(&index, dlPtr->count, &index);
+		charsToCount -= dlPtr->count;
+	    } while ((charsToCount > 0)
+		    && (index.linePtr == lowestPtr->index.linePtr));
+
+	    /*
+	     * Scan through the display lines from the bottom one up to
+	     * the top one.
+	     */
+
+	    while (lowestPtr != NULL) {
+		dlPtr = lowestPtr;
+		spaceLeft -= dlPtr->height;
+		if (spaceLeft < 0) {
+		    break;
+		}
+		lowestPtr = dlPtr->nextPtr;
+		dlPtr->nextPtr = dInfoPtr->dLinePtr;
+		dInfoPtr->dLinePtr = dlPtr;
+		if (tkTextDebug) {
+		    char string[TK_POS_CHARS];
+
+		    TkTextPrintIndex(&dlPtr->index, string);
+		    Tcl_SetVar2(textPtr->interp, "tk_textRelayout",
+			    (char *) NULL, string,
+			    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+		}
+	    }
+	    FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
+	    charsToCount = INT_MAX;
+	}
+
+	/*
+	 * Now we're all done except that the y-coordinates in all the
+	 * DLines are wrong and the top index for the text is wrong.
+	 * Update them.
+	 */
+
+	textPtr->topIndex = dInfoPtr->dLinePtr->index;
+	y = dInfoPtr->y;
+	for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
+		dlPtr = dlPtr->nextPtr) {
+	    if (y > dInfoPtr->maxY) {
+		panic("Added too many new lines in UpdateDisplayInfo");
+	    }
+	    dlPtr->y = y;
+	    y += dlPtr->height; 
+	}
+    }
+
+    /*
+     *--------------------------------------------------------------
+     * If the old top or bottom line has scrolled elsewhere on the
+     * screen, we may not be able to re-use its old contents by
+     * copying bits (e.g., a beveled edge that was drawn when it was
+     * at the top or bottom won't be drawn when the line is in the
+     * middle and its neighbor has a matching background).  Similarly,
+     * if the new top or bottom line came from somewhere else on the
+     * screen, we may not be able to copy the old bits.
+     *--------------------------------------------------------------
+     */
+
+    dlPtr = dInfoPtr->dLinePtr;
+    if ((dlPtr->flags & HAS_3D_BORDER) && !(dlPtr->flags & TOP_LINE)) {
+	dlPtr->oldY = -1;
+    }
+    while (1) {
+	if ((dlPtr->flags & TOP_LINE) && (dlPtr != dInfoPtr->dLinePtr)
+		&& (dlPtr->flags & HAS_3D_BORDER)) {
+	    dlPtr->oldY = -1;
+	}
+	if ((dlPtr->flags & BOTTOM_LINE) && (dlPtr->nextPtr != NULL)
+		&& (dlPtr->flags & HAS_3D_BORDER)) {
+	    dlPtr->oldY = -1;
+	}
+	if (dlPtr->nextPtr == NULL) {
+	    if ((dlPtr->flags & HAS_3D_BORDER)
+		    && !(dlPtr->flags & BOTTOM_LINE)) {
+		dlPtr->oldY = -1;
+	    }
+	    dlPtr->flags &= ~TOP_LINE;
+	    dlPtr->flags |= BOTTOM_LINE;
+	    break;
+	}
+	dlPtr->flags &= ~(TOP_LINE|BOTTOM_LINE);
+	dlPtr = dlPtr->nextPtr;
+    }
+    dInfoPtr->dLinePtr->flags |= TOP_LINE;
+
+    /*
+     * Arrange for scrollbars to be updated.
+     */
+
+    textPtr->flags |= UPDATE_SCROLLBARS;
+
+    /*
+     *--------------------------------------------------------------
+     * Deal with horizontal scrolling:
+     * 1. If there's empty space to the right of the longest line,
+     *    shift the screen to the right to fill in the empty space.
+     * 2. If the desired horizontal scroll position has changed,
+     *    force a full redisplay of all the lines in the widget.
+     * 3. If the wrap mode isn't "none" then re-scroll to the base
+     *    position.
+     *--------------------------------------------------------------
+     */
+
+    dInfoPtr->maxLength = 0;
+    for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
+	    dlPtr = dlPtr->nextPtr) {
+	if (dlPtr->length > dInfoPtr->maxLength) {
+	    dInfoPtr->maxLength = dlPtr->length;
+	}
+    }
+    maxOffset = (dInfoPtr->maxLength - (dInfoPtr->maxX - dInfoPtr->x)
+	    + textPtr->charWidth - 1)/textPtr->charWidth;
+    if (dInfoPtr->newCharOffset > maxOffset) {
+	dInfoPtr->newCharOffset = maxOffset;
+    }
+    if (dInfoPtr->newCharOffset < 0) {
+	dInfoPtr->newCharOffset = 0;
+    }
+    pixelOffset = dInfoPtr->newCharOffset * textPtr->charWidth;
+    if (pixelOffset != dInfoPtr->curPixelOffset) {
+	dInfoPtr->curPixelOffset = pixelOffset;
+	for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
+		dlPtr = dlPtr->nextPtr) {
+	    dlPtr->oldY = -1;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FreeDLines --
+ *
+ *	This procedure is called to free up all of the resources
+ *	associated with one or more DLine structures.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory gets freed and various other resources are released.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+FreeDLines(textPtr, firstPtr, lastPtr, unlink)
+    TkText *textPtr;			/* Information about overall text
+					 * widget. */
+    register DLine *firstPtr;		/* Pointer to first DLine to free up. */
+    DLine *lastPtr;			/* Pointer to DLine just after last
+					 * one to free (NULL means everything
+					 * starting with firstPtr). */
+    int unlink;				/* 1 means DLines are currently linked
+					 * into the list rooted at
+					 * textPtr->dInfoPtr->dLinePtr and
+					 * they have to be unlinked.  0 means
+					 * just free without unlinking. */
+{
+    register TkTextDispChunk *chunkPtr, *nextChunkPtr;
+    register DLine *nextDLinePtr;
+
+    if (unlink) {
+	if (textPtr->dInfoPtr->dLinePtr == firstPtr) {
+	    textPtr->dInfoPtr->dLinePtr = lastPtr;
+	} else {
+	    register DLine *prevPtr;
+	    for (prevPtr = textPtr->dInfoPtr->dLinePtr;
+		    prevPtr->nextPtr != firstPtr; prevPtr = prevPtr->nextPtr) {
+		/* Empty loop body. */
+	    }
+	    prevPtr->nextPtr = lastPtr;
+	}
+    }
+    while (firstPtr != lastPtr) {
+	nextDLinePtr = firstPtr->nextPtr;
+	for (chunkPtr = firstPtr->chunkPtr; chunkPtr != NULL;
+		chunkPtr = nextChunkPtr) {
+	    if (chunkPtr->undisplayProc != NULL) {
+		(*chunkPtr->undisplayProc)(textPtr, chunkPtr);
+	    }
+	    FreeStyle(textPtr, chunkPtr->stylePtr);
+	    nextChunkPtr = chunkPtr->nextPtr;
+	    ckfree((char *) chunkPtr);
+	}
+	ckfree((char *) firstPtr);
+	firstPtr = nextDLinePtr;
+    }
+    textPtr->dInfoPtr->dLinesInvalidated = 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayDLine --
+ *
+ *	This procedure is invoked to draw a single line on the
+ *	screen.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The line given by dlPtr is drawn at its correct position in
+ *	textPtr's window.  Note that this is one *display* line, not
+ *	one *text* line.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayDLine(textPtr, dlPtr, prevPtr, pixmap)
+    TkText *textPtr;		/* Text widget in which to draw line. */
+    register DLine *dlPtr;	/* Information about line to draw. */
+    DLine *prevPtr;		/* Line just before one to draw, or NULL
+				 * if dlPtr is the top line. */
+    Pixmap pixmap;		/* Pixmap to use for double-buffering.
+				 * Caller must make sure it's large enough
+				 * to hold line. */
+{
+    register TkTextDispChunk *chunkPtr;
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    Display *display;
+    int height, x;
+
+    /*
+     * First, clear the area of the line to the background color for the
+     * text widget.
+     */
+
+    display = Tk_Display(textPtr->tkwin);
+    Tk_Fill3DRectangle(textPtr->tkwin, pixmap, textPtr->border, 0, 0,
+	    Tk_Width(textPtr->tkwin), dlPtr->height, 0, TK_RELIEF_FLAT);
+
+    /*
+     * Next, draw background information for the whole line.
+     */
+
+    DisplayLineBackground(textPtr, dlPtr, prevPtr, pixmap);
+
+    /*
+     * Make another pass through all of the chunks to redraw the
+     * insertion cursor, if it is visible on this line.  Must do
+     * it here rather than in the foreground pass below because
+     * otherwise a wide insertion cursor will obscure the character
+     * to its left.
+     */
+
+    if (textPtr->state == tkNormalUid) {
+	for (chunkPtr = dlPtr->chunkPtr; (chunkPtr != NULL);
+		chunkPtr = chunkPtr->nextPtr) {
+	    x = chunkPtr->x + dInfoPtr->x - dInfoPtr->curPixelOffset;
+	    if (chunkPtr->displayProc == TkTextInsertDisplayProc) {
+		(*chunkPtr->displayProc)(chunkPtr, x, dlPtr->spaceAbove,
+			dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
+			dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
+			dlPtr->y + dlPtr->spaceAbove);
+	    }
+	}
+    }
+
+    /*
+     * Make yet another pass through all of the chunks to redraw all of
+     * foreground information.  Note:  we have to call the displayProc
+     * even for chunks that are off-screen.  This is needed, for
+     * example, so that embedded windows can be unmapped in this case.
+     * Conve
+     */
+
+    for (chunkPtr = dlPtr->chunkPtr; (chunkPtr != NULL);
+	    chunkPtr = chunkPtr->nextPtr) {
+	if (chunkPtr->displayProc == TkTextInsertDisplayProc) {
+	    /*
+	     * Already displayed the insertion cursor above.  Don't
+	     * do it again here.
+	     */
+
+	    continue;
+	}
+	x = chunkPtr->x + dInfoPtr->x - dInfoPtr->curPixelOffset;
+	if ((x + chunkPtr->width <= 0) || (x >= dInfoPtr->maxX)) {
+	    /*
+	     * Note:  we have to call the displayProc even for chunks
+	     * that are off-screen.  This is needed, for example, so
+	     * that embedded windows can be unmapped in this case.
+	     * Display the chunk at a coordinate that can be clearly
+	     * identified by the displayProc as being off-screen to
+	     * the left (the displayProc may not be able to tell if
+	     * something is off to the right).
+	     */
+
+	    (*chunkPtr->displayProc)(chunkPtr, -chunkPtr->width,
+		    dlPtr->spaceAbove,
+		    dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
+		    dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
+		    dlPtr->y + dlPtr->spaceAbove);
+	} else {
+	    (*chunkPtr->displayProc)(chunkPtr, x, dlPtr->spaceAbove,
+		    dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
+		    dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
+		    dlPtr->y + dlPtr->spaceAbove);
+	}
+	if (dInfoPtr->dLinesInvalidated) {
+	    return;
+	}
+    }
+
+    /*
+     * Copy the pixmap onto the screen.  If this is the last line on
+     * the screen then copy a piece of the line, so that it doesn't
+     * overflow into the border area.  Another special trick:  copy the
+     * padding area to the left of the line;  this is because the
+     * insertion cursor sometimes overflows onto that area and we want
+     * to get as much of the cursor as possible.
+     */
+
+    height = dlPtr->height;
+    if ((height + dlPtr->y) > dInfoPtr->maxY) {
+	height = dInfoPtr->maxY - dlPtr->y;
+    }
+    XCopyArea(display, pixmap, Tk_WindowId(textPtr->tkwin), dInfoPtr->copyGC,
+	    dInfoPtr->x, 0, (unsigned) (dInfoPtr->maxX - dInfoPtr->x),
+	    (unsigned) height, dInfoPtr->x, dlPtr->y);
+    linesRedrawn++;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * DisplayLineBackground --
+ *
+ *	This procedure is called to fill in the background for
+ *	a display line.  It draws 3D borders cleverly so that
+ *	adjacent chunks with the same style (whether on the same
+ *	line or different lines) have a single 3D border around
+ *	the whole region.
+ *
+ * Results:
+ *	There is no return value.  Pixmap is filled in with background
+ *	information for dlPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+DisplayLineBackground(textPtr, dlPtr, prevPtr, pixmap)
+    TkText *textPtr;		/* Text widget containing line. */
+    register DLine *dlPtr;	/* Information about line to draw. */
+    DLine *prevPtr;		/* Line just above dlPtr, or NULL if dlPtr
+				 * is the top-most line in the window. */
+    Pixmap pixmap;		/* Pixmap to use for double-buffering.
+				 * Caller must make sure it's large enough
+				 * to hold line.  Caller must also have
+				 * filled it with the background color for
+				 * the widget. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    TkTextDispChunk *chunkPtr;  /* Pointer to chunk in the current line. */
+    TkTextDispChunk *chunkPtr2;	/* Pointer to chunk in the line above or
+				 * below the current one.  NULL if we're to
+				 * the left of or to the right of the chunks
+				 * in the line. */
+    TkTextDispChunk *nextPtr2;	/* Next chunk after chunkPtr2 (it's not the
+				 * same as chunkPtr2->nextPtr in the case
+				 * where chunkPtr2 is NULL because the line
+				 * is indented). */
+    int leftX;			/* The left edge of the region we're
+				 * currently working on. */
+    int leftXIn;		/* 1 means beveled edge at leftX slopes right
+				 * as it goes down, 0 means it slopes left
+				 * as it goes down. */
+    int rightX;			/* Right edge of chunkPtr. */
+    int rightX2;		/* Right edge of chunkPtr2. */
+    int matchLeft;		/* Does the style of this line match that
+				 * of its neighbor just to the left of
+				 * the current x coordinate? */
+    int matchRight;		/* Does line's style match its neighbor
+				 * just to the right of the current x-coord? */
+    int minX, maxX, xOffset;
+    StyleValues *sValuePtr;
+    Display *display;
+
+    /*
+     * Pass 1: scan through dlPtr from left to right.  For each range of
+     * chunks with the same style, draw the main background for the style
+     * plus the vertical parts of the 3D borders (the left and right
+     * edges).
+     */
+
+    display = Tk_Display(textPtr->tkwin);
+    minX = dInfoPtr->curPixelOffset;
+    xOffset = dInfoPtr->x - minX;
+    maxX = minX + dInfoPtr->maxX - dInfoPtr->x;
+    chunkPtr = dlPtr->chunkPtr;
+    leftX = chunkPtr->x;
+    for (; leftX < maxX; chunkPtr = chunkPtr->nextPtr) {
+	if ((chunkPtr->nextPtr != NULL)
+		&& SAME_BACKGROUND(chunkPtr->nextPtr->stylePtr,
+		chunkPtr->stylePtr)) {
+	    continue;
+	}
+	sValuePtr = chunkPtr->stylePtr->sValuePtr;
+	rightX = chunkPtr->x + chunkPtr->width;
+	if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
+	    rightX = maxX;
+	}
+	if (chunkPtr->stylePtr->bgGC != None) {
+	    XFillRectangle(display, pixmap, chunkPtr->stylePtr->bgGC,
+		    leftX + xOffset, 0, (unsigned int) (rightX - leftX),
+		    (unsigned int) dlPtr->height);
+	    if (sValuePtr->relief != TK_RELIEF_FLAT) {
+		Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+			leftX + xOffset, 0, sValuePtr->borderWidth,
+			dlPtr->height, 1, sValuePtr->relief);
+		Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+			rightX - sValuePtr->borderWidth + xOffset,
+			0, sValuePtr->borderWidth, dlPtr->height, 0,
+			sValuePtr->relief);
+	    }
+	}
+	leftX = rightX;
+    }
+
+    /*
+     * Pass 2: draw the horizontal bevels along the top of the line.  To
+     * do this, scan through dlPtr from left to right while simultaneously
+     * scanning through the line just above dlPtr.  ChunkPtr2 and nextPtr2
+     * refer to two adjacent chunks in the line above.
+     */
+
+    chunkPtr = dlPtr->chunkPtr;
+    leftX = chunkPtr->x;
+    leftXIn = 1;
+    rightX = chunkPtr->x + chunkPtr->width;
+    if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
+	rightX = maxX;
+    }
+    chunkPtr2 = NULL;
+    if (prevPtr != NULL) {
+	/*
+	 * Find the chunk in the previous line that covers leftX.
+	 */
+
+	nextPtr2 = prevPtr->chunkPtr;
+	rightX2 = nextPtr2->x;
+	while (rightX2 <= leftX) {
+	    chunkPtr2 = nextPtr2;
+	    if (chunkPtr2 == NULL) {
+		break;
+	    }
+	    nextPtr2 = chunkPtr2->nextPtr;
+	    rightX2 = chunkPtr2->x + chunkPtr2->width;
+	    if (nextPtr2 == NULL) {
+		rightX2 = INT_MAX;
+	    }
+	}
+    } else {
+	nextPtr2 = NULL;
+	rightX2 = INT_MAX;
+    }
+
+    while (leftX < maxX) {
+	matchLeft = (chunkPtr2 != NULL)
+		&& SAME_BACKGROUND(chunkPtr2->stylePtr, chunkPtr->stylePtr);
+	sValuePtr = chunkPtr->stylePtr->sValuePtr;
+	if (rightX <= rightX2) {
+	    /*
+	     * The chunk in our line is about to end.  If its style
+	     * changes then draw the bevel for the current style.
+	     */
+
+	    if ((chunkPtr->nextPtr == NULL)
+		    || !SAME_BACKGROUND(chunkPtr->stylePtr,
+		    chunkPtr->nextPtr->stylePtr)) {
+		if (!matchLeft && (sValuePtr->relief != TK_RELIEF_FLAT)) {
+		    Tk_3DHorizontalBevel(textPtr->tkwin, pixmap,
+			    sValuePtr->border, leftX + xOffset, 0,
+			    rightX - leftX, sValuePtr->borderWidth, leftXIn,
+			    1, 1, sValuePtr->relief);
+		}
+		leftX = rightX;
+		leftXIn = 1;
+
+		/*
+		 * If the chunk in the line above is also ending at
+		 * the same point then advance to the next chunk in
+		 * that line.
+		 */
+
+		if ((rightX == rightX2) && (chunkPtr2 != NULL)) {
+		    goto nextChunk2;
+		}
+	    }
+	    chunkPtr = chunkPtr->nextPtr;
+	    if (chunkPtr == NULL) {
+		break;
+	    }
+	    rightX = chunkPtr->x + chunkPtr->width;
+	    if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
+		rightX = maxX;
+	    }
+	    continue;
+	}
+
+	/*
+	 * The chunk in the line above is ending at an x-position where
+	 * there is no change in the style of the current line.  If the
+	 * style above matches the current line on one side of the change
+	 * but not on the other, we have to draw an L-shaped piece of
+	 * bevel.
+	 */
+
+	matchRight = (nextPtr2 != NULL)
+		&& SAME_BACKGROUND(nextPtr2->stylePtr, chunkPtr->stylePtr);
+	if (matchLeft && !matchRight) {
+	    if (sValuePtr->relief != TK_RELIEF_FLAT) {
+		Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+			rightX2 - sValuePtr->borderWidth + xOffset, 0,
+			sValuePtr->borderWidth, sValuePtr->borderWidth, 0,
+			sValuePtr->relief);
+	    }
+	    leftX = rightX2 - sValuePtr->borderWidth;
+	    leftXIn = 0;
+	} else if (!matchLeft && matchRight
+		&& (sValuePtr->relief != TK_RELIEF_FLAT)) {
+	    Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+		    rightX2 + xOffset, 0, sValuePtr->borderWidth,
+		    sValuePtr->borderWidth, 1, sValuePtr->relief);
+	    Tk_3DHorizontalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+		    leftX + xOffset, 0, rightX2 + sValuePtr->borderWidth -leftX,
+		    sValuePtr->borderWidth, leftXIn, 0, 1,
+		    sValuePtr->relief);
+	}
+
+	nextChunk2:
+	chunkPtr2 = nextPtr2;
+	if (chunkPtr2 == NULL) {
+	    rightX2 = INT_MAX;
+	} else {
+	    nextPtr2 = chunkPtr2->nextPtr;
+	    rightX2 = chunkPtr2->x + chunkPtr2->width;
+	    if (nextPtr2 == NULL) {
+		rightX2 = INT_MAX;
+	    }
+	}
+    }
+    /*
+     * Pass 3: draw the horizontal bevels along the bottom of the line.
+     * This uses the same approach as pass 2.
+     */
+
+    chunkPtr = dlPtr->chunkPtr;
+    leftX = chunkPtr->x;
+    leftXIn = 0;
+    rightX = chunkPtr->x + chunkPtr->width;
+    if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
+	rightX = maxX;
+    }
+    chunkPtr2 = NULL;
+    if (dlPtr->nextPtr != NULL) {
+	/*
+	 * Find the chunk in the previous line that covers leftX.
+	 */
+
+	nextPtr2 = dlPtr->nextPtr->chunkPtr;
+	rightX2 = nextPtr2->x;
+	while (rightX2 <= leftX) {
+	    chunkPtr2 = nextPtr2;
+	    if (chunkPtr2 == NULL) {
+		break;
+	    }
+	    nextPtr2 = chunkPtr2->nextPtr;
+	    rightX2 = chunkPtr2->x + chunkPtr2->width;
+	    if (nextPtr2 == NULL) {
+		rightX2 = INT_MAX;
+	    }
+	}
+    } else {
+	nextPtr2 = NULL;
+	rightX2 = INT_MAX;
+    }
+
+    while (leftX < maxX) {
+	matchLeft = (chunkPtr2 != NULL)
+		&& SAME_BACKGROUND(chunkPtr2->stylePtr, chunkPtr->stylePtr);
+	sValuePtr = chunkPtr->stylePtr->sValuePtr;
+	if (rightX <= rightX2) {
+	    if ((chunkPtr->nextPtr == NULL)
+		    || !SAME_BACKGROUND(chunkPtr->stylePtr,
+		    chunkPtr->nextPtr->stylePtr)) {
+		if (!matchLeft && (sValuePtr->relief != TK_RELIEF_FLAT)) {
+		    Tk_3DHorizontalBevel(textPtr->tkwin, pixmap,
+			    sValuePtr->border, leftX + xOffset,
+			    dlPtr->height - sValuePtr->borderWidth,
+			    rightX - leftX, sValuePtr->borderWidth, leftXIn,
+			    0, 0, sValuePtr->relief);
+		}
+		leftX = rightX;
+		leftXIn = 0;
+		if ((rightX == rightX2) && (chunkPtr2 != NULL)) {
+		    goto nextChunk2b;
+		}
+	    }
+	    chunkPtr = chunkPtr->nextPtr;
+	    if (chunkPtr == NULL) {
+		break;
+	    }
+	    rightX = chunkPtr->x + chunkPtr->width;
+	    if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
+		rightX = maxX;
+	    }
+	    continue;
+	}
+
+	matchRight = (nextPtr2 != NULL)
+		&& SAME_BACKGROUND(nextPtr2->stylePtr, chunkPtr->stylePtr);
+	if (matchLeft && !matchRight) {
+	    if (sValuePtr->relief != TK_RELIEF_FLAT) {
+		Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+			rightX2 - sValuePtr->borderWidth + xOffset,
+			dlPtr->height - sValuePtr->borderWidth,
+			sValuePtr->borderWidth, sValuePtr->borderWidth, 0,
+			sValuePtr->relief);
+	    }
+	    leftX = rightX2 - sValuePtr->borderWidth;
+	    leftXIn = 1;
+	} else if (!matchLeft && matchRight
+		&& (sValuePtr->relief != TK_RELIEF_FLAT)) {
+	    Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+		    rightX2 + xOffset, dlPtr->height - sValuePtr->borderWidth,
+		    sValuePtr->borderWidth, sValuePtr->borderWidth,
+		    1, sValuePtr->relief);
+	    Tk_3DHorizontalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
+		    leftX + xOffset, dlPtr->height - sValuePtr->borderWidth,
+		    rightX2 + sValuePtr->borderWidth - leftX,
+		    sValuePtr->borderWidth, leftXIn, 1, 0, sValuePtr->relief);
+	}
+
+	nextChunk2b:
+	chunkPtr2 = nextPtr2;
+	if (chunkPtr2 == NULL) {
+	    rightX2 = INT_MAX;
+	} else {
+	    nextPtr2 = chunkPtr2->nextPtr;
+	    rightX2 = chunkPtr2->x + chunkPtr2->width;
+	    if (nextPtr2 == NULL) {
+		rightX2 = INT_MAX;
+	    }
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayText --
+ *
+ *	This procedure is invoked as a when-idle handler to update the
+ *	display.  It only redisplays the parts of the text widget that
+ *	are out of date.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information is redrawn on the screen.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayText(clientData)
+    ClientData clientData;	/* Information about widget. */
+{
+    register TkText *textPtr = (TkText *) clientData;
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    Tk_Window tkwin;
+    register DLine *dlPtr;
+    DLine *prevPtr;
+    Pixmap pixmap;
+    int maxHeight, borders;
+    int bottomY = 0;		/* Initialization needed only to stop
+				 * compiler warnings. */
+    Tcl_Interp *interp;
+
+    if (textPtr->tkwin == NULL) {
+
+	/*
+	 * The widget has been deleted.  Don't do anything.
+	 */
+
+	return;
+    }
+
+    interp = textPtr->interp;
+    Tcl_Preserve((ClientData) interp);
+
+    if (tkTextDebug) {
+	Tcl_SetVar2(interp, "tk_textRelayout", (char *) NULL, "",
+                TCL_GLOBAL_ONLY);
+    }
+
+    if (textPtr->tkwin == NULL) {
+
+	/*
+	 * The widget has been deleted.  Don't do anything.
+	 */
+
+        goto end;
+    }
+
+    if (!Tk_IsMapped(textPtr->tkwin) || (dInfoPtr->maxX <= dInfoPtr->x)
+	    || (dInfoPtr->maxY <= dInfoPtr->y)) {
+	UpdateDisplayInfo(textPtr);
+	dInfoPtr->flags &= ~REDRAW_PENDING;
+	goto doScrollbars;
+    }
+    numRedisplays++;
+    if (tkTextDebug) {
+	Tcl_SetVar2(interp, "tk_textRedraw", (char *) NULL, "",
+                TCL_GLOBAL_ONLY);
+    }
+
+    if (textPtr->tkwin == NULL) {
+
+	/*
+	 * The widget has been deleted.  Don't do anything.
+	 */
+
+	goto end;
+    }
+
+    /*
+     * Choose a new current item if that is needed (this could cause
+     * event handlers to be invoked, hence the preserve/release calls
+     * and the loop, since the handlers could conceivably necessitate
+     * yet another current item calculation).  The tkwin check is because
+     * the whole window could go away in the Tcl_Release call.
+     */
+
+    while (dInfoPtr->flags & REPICK_NEEDED) {
+	Tcl_Preserve((ClientData) textPtr);
+	dInfoPtr->flags &= ~REPICK_NEEDED;
+	TkTextPickCurrent(textPtr, &textPtr->pickEvent);
+	tkwin = textPtr->tkwin;
+	Tcl_Release((ClientData) textPtr);
+	if (tkwin == NULL) {
+	    goto end;
+	}
+    }
+
+    /*
+     * First recompute what's supposed to be displayed.
+     */
+
+    UpdateDisplayInfo(textPtr);
+    dInfoPtr->dLinesInvalidated = 0;
+
+    /*
+     * See if it's possible to bring some parts of the screen up-to-date
+     * by scrolling (copying from other parts of the screen).
+     */
+
+    for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
+	register DLine *dlPtr2;
+	int offset, height, y, oldY;
+	TkRegion damageRgn;
+
+	if ((dlPtr->oldY == -1) || (dlPtr->y == dlPtr->oldY)
+		|| ((dlPtr->oldY + dlPtr->height) > dInfoPtr->maxY)) {
+	    continue;
+	}
+
+	/*
+	 * This line is already drawn somewhere in the window so it only
+	 * needs to be copied to its new location.  See if there's a group
+	 * of lines that can all be copied together.
+	 */
+
+	offset = dlPtr->y - dlPtr->oldY;
+	height = dlPtr->height;
+	y = dlPtr->y;
+	for (dlPtr2 = dlPtr->nextPtr; dlPtr2 != NULL;
+		dlPtr2 = dlPtr2->nextPtr) {
+	    if ((dlPtr2->oldY == -1)
+		    || ((dlPtr2->oldY + offset) != dlPtr2->y)
+		    || ((dlPtr2->oldY + dlPtr2->height) > dInfoPtr->maxY)) {
+		break;
+	    }
+	    height += dlPtr2->height;
+	}
+
+	/*
+	 * Reduce the height of the area being copied if necessary to
+	 * avoid overwriting the border area.
+	 */
+
+	if ((y + height) > dInfoPtr->maxY) {
+	    height = dInfoPtr->maxY -y;
+	}
+	oldY = dlPtr->oldY;
+
+	/*
+	 * Update the lines we are going to scroll to show that they
+	 * have been copied.
+	 */
+
+	while (1) {
+	    dlPtr->oldY = dlPtr->y;
+	    if (dlPtr->nextPtr == dlPtr2) {
+		break;
+	    }
+	    dlPtr = dlPtr->nextPtr;
+	}
+
+	/*
+	 * Scan through the lines following the copied ones to see if
+	 * we are going to overwrite them with the copy operation.
+	 * If so, mark them for redisplay.
+	 */
+
+	for ( ; dlPtr2 != NULL; dlPtr2 = dlPtr2->nextPtr) {
+	    if ((dlPtr2->oldY != -1)
+		    && ((dlPtr2->oldY + dlPtr2->height) > y)
+		    && (dlPtr2->oldY < (y + height))) {
+		dlPtr2->oldY = -1;
+	    }
+	}
+
+	/*
+	 * Now scroll the lines.  This may generate damage which we
+	 * handle by calling TextInvalidateRegion to mark the display
+	 * blocks as stale.
+	 */
+
+	damageRgn = TkCreateRegion();
+	if (TkScrollWindow(textPtr->tkwin, dInfoPtr->scrollGC,
+		dInfoPtr->x - textPtr->padX, oldY,
+		(dInfoPtr->maxX - (dInfoPtr->x - textPtr->padX)), height,
+		0, y - oldY, damageRgn)) {
+	    TextInvalidateRegion(textPtr, damageRgn);
+	}
+	numCopies++;
+	TkDestroyRegion(damageRgn);
+    }
+
+    /*
+     * Clear the REDRAW_PENDING flag here.  This is actually pretty
+     * tricky.  We want to wait until *after* doing the scrolling,
+     * since that could generate more areas to redraw and don't
+     * want to reschedule a redisplay for them.  On the other hand,
+     * we can't wait until after all the redisplaying, because the
+     * act of redisplaying could actually generate more redisplays
+     * (e.g. in the case of a nested window with event bindings triggered
+     * by redisplay).
+     */
+
+    dInfoPtr->flags &= ~REDRAW_PENDING;
+
+    /*
+     * Redraw the borders if that's needed.
+     */
+
+    if (dInfoPtr->flags & REDRAW_BORDERS) {
+	if (tkTextDebug) {
+	    Tcl_SetVar2(interp, "tk_textRedraw", (char *) NULL, "borders",
+		    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+	}
+
+        if (textPtr->tkwin == NULL) {
+
+	    /*
+             * The widget has been deleted.  Don't do anything.
+             */
+
+            goto end;
+        }
+
+	Tk_Draw3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		textPtr->border, textPtr->highlightWidth,
+		textPtr->highlightWidth,
+		Tk_Width(textPtr->tkwin) - 2*textPtr->highlightWidth,
+		Tk_Height(textPtr->tkwin) - 2*textPtr->highlightWidth,
+		textPtr->borderWidth, textPtr->relief);
+	if (textPtr->highlightWidth != 0) {
+	    GC gc;
+    
+	    if (textPtr->flags & GOT_FOCUS) {
+		gc = Tk_GCForColor(textPtr->highlightColorPtr,
+			Tk_WindowId(textPtr->tkwin));
+	    } else {
+		gc = Tk_GCForColor(textPtr->highlightBgColorPtr,
+			Tk_WindowId(textPtr->tkwin));
+	    }
+	    Tk_DrawFocusHighlight(textPtr->tkwin, gc, textPtr->highlightWidth,
+		    Tk_WindowId(textPtr->tkwin));
+	}
+	borders = textPtr->borderWidth + textPtr->highlightWidth;
+	if (textPtr->padY > 0) {
+	    Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		    textPtr->border, borders, borders,
+		    Tk_Width(textPtr->tkwin) - 2*borders, textPtr->padY,
+		    0, TK_RELIEF_FLAT);
+	    Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		    textPtr->border, borders,
+		    Tk_Height(textPtr->tkwin) - borders - textPtr->padY,
+		    Tk_Width(textPtr->tkwin) - 2*borders,
+		    textPtr->padY, 0, TK_RELIEF_FLAT);
+	}
+	if (textPtr->padX > 0) {
+	    Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		    textPtr->border, borders, borders + textPtr->padY,
+		    textPtr->padX,
+		    Tk_Height(textPtr->tkwin) - 2*borders -2*textPtr->padY,
+		    0, TK_RELIEF_FLAT);
+	    Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		    textPtr->border,
+		    Tk_Width(textPtr->tkwin) - borders - textPtr->padX,
+		    borders + textPtr->padY, textPtr->padX,
+		    Tk_Height(textPtr->tkwin) - 2*borders -2*textPtr->padY,
+		    0, TK_RELIEF_FLAT);
+	}
+	dInfoPtr->flags &= ~REDRAW_BORDERS;
+    }
+
+    /*
+     * Now we have to redraw the lines that couldn't be updated by
+     * scrolling.  First, compute the height of the largest line and
+     * allocate an off-screen pixmap to use for double-buffered
+     * displays.
+     */
+
+    maxHeight = -1;
+    for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
+	    dlPtr = dlPtr->nextPtr) {
+	if ((dlPtr->height > maxHeight) && (dlPtr->oldY != dlPtr->y)) {
+	    maxHeight = dlPtr->height;
+	}
+	bottomY = dlPtr->y + dlPtr->height;
+    }
+    if (maxHeight > dInfoPtr->maxY) {
+	maxHeight = dInfoPtr->maxY;
+    }
+    if (maxHeight > 0) {
+	pixmap = Tk_GetPixmap(Tk_Display(textPtr->tkwin),
+		Tk_WindowId(textPtr->tkwin), Tk_Width(textPtr->tkwin),
+		maxHeight, Tk_Depth(textPtr->tkwin));
+	for (prevPtr = NULL, dlPtr = textPtr->dInfoPtr->dLinePtr;
+		(dlPtr != NULL) && (dlPtr->y < dInfoPtr->maxY);
+		prevPtr = dlPtr, dlPtr = dlPtr->nextPtr) {
+	    if (dlPtr->oldY != dlPtr->y) {
+		if (tkTextDebug) {
+		    char string[TK_POS_CHARS];
+		    TkTextPrintIndex(&dlPtr->index, string);
+		    Tcl_SetVar2(textPtr->interp, "tk_textRedraw",
+			    (char *) NULL, string,
+			    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+		}
+		DisplayDLine(textPtr, dlPtr, prevPtr, pixmap);
+		if (dInfoPtr->dLinesInvalidated) {
+		    Tk_FreePixmap(Tk_Display(textPtr->tkwin), pixmap);
+		    return;
+		}
+		dlPtr->oldY = dlPtr->y;
+		dlPtr->flags &= ~NEW_LAYOUT;
+	    }
+	}
+	Tk_FreePixmap(Tk_Display(textPtr->tkwin), pixmap);
+    }
+
+    /*
+     * See if we need to refresh the part of the window below the
+     * last line of text (if there is any such area).  Refresh the
+     * padding area on the left too, since the insertion cursor might
+     * have been displayed there previously).
+     */
+
+    if (dInfoPtr->topOfEof > dInfoPtr->maxY) {
+	dInfoPtr->topOfEof = dInfoPtr->maxY;
+    }
+    if (bottomY < dInfoPtr->topOfEof) {
+	if (tkTextDebug) {
+	    Tcl_SetVar2(textPtr->interp, "tk_textRedraw",
+		    (char *) NULL, "eof",
+		    TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
+	}
+
+        if (textPtr->tkwin == NULL) {
+
+	    /*
+             * The widget has been deleted.  Don't do anything.
+             */
+
+            goto end;
+        }
+
+	Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
+		textPtr->border, dInfoPtr->x - textPtr->padX, bottomY,
+		dInfoPtr->maxX - (dInfoPtr->x - textPtr->padX),
+		dInfoPtr->topOfEof-bottomY, 0, TK_RELIEF_FLAT);
+    }
+    dInfoPtr->topOfEof = bottomY;
+
+    doScrollbars:
+
+    /*
+     * Update the vertical scrollbar, if there is one.  Note:  it's
+     * important to clear REDRAW_PENDING here, just in case the
+     * scroll procedure does something that requires redisplay.
+     */
+    
+    if (textPtr->flags & UPDATE_SCROLLBARS) {
+	textPtr->flags &= ~UPDATE_SCROLLBARS;
+	if (textPtr->yScrollCmd != NULL) {
+	    GetYView(textPtr->interp, textPtr, 1);
+	}
+
+        if (textPtr->tkwin == NULL) {
+
+	    /*
+             * The widget has been deleted.  Don't do anything.
+             */
+
+            goto end;
+        }
+
+	/*
+	 * Update the horizontal scrollbar, if any.
+	 */
+
+	if (textPtr->xScrollCmd != NULL) {
+	    GetXView(textPtr->interp, textPtr, 1);
+	}
+    }
+
+end:
+    Tcl_Release((ClientData) interp);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextEventuallyRepick --
+ *
+ *	This procedure is invoked whenever something happens that
+ *	could change the current character or the tags associated
+ *	with it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A repick is scheduled as an idle handler.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkTextEventuallyRepick(textPtr)
+    TkText *textPtr;		/* Widget record for text widget. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+
+    dInfoPtr->flags |= REPICK_NEEDED;
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	dInfoPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextRedrawRegion --
+ *
+ *	This procedure is invoked to schedule a redisplay for a given
+ *	region of a text widget.  The redisplay itself may not occur
+ *	immediately:  it's scheduled as a when-idle handler.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information will eventually be redrawn on the screen.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkTextRedrawRegion(textPtr, x, y, width, height)
+    TkText *textPtr;		/* Widget record for text widget. */
+    int x, y;			/* Coordinates of upper-left corner of area
+				 * to be redrawn, in pixels relative to
+				 * textPtr's window. */
+    int width, height;		/* Width and height of area to be redrawn. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    TkRegion damageRgn = TkCreateRegion();
+    XRectangle rect;
+
+    rect.x = x;
+    rect.y = y;
+    rect.width = width;
+    rect.height = height;
+    TkUnionRectWithRegion(&rect, damageRgn, damageRgn);
+
+    TextInvalidateRegion(textPtr, damageRgn);
+
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	dInfoPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    TkDestroyRegion(damageRgn);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TextInvalidateRegion --
+ *
+ *	Mark a region of text as invalid.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Updates the display information for the text widget.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TextInvalidateRegion(textPtr, region)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkRegion region;		/* Region of area to redraw. */
+{
+    register DLine *dlPtr;
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    int maxY, inset;
+    XRectangle rect;
+
+    /*
+     * Find all lines that overlap the given region and mark them for
+     * redisplay.
+     */
+
+    TkClipBox(region, &rect);
+    maxY = rect.y + rect.height;
+    for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
+	    dlPtr = dlPtr->nextPtr) {
+	if ((dlPtr->oldY != -1) && (TkRectInRegion(region, rect.x, dlPtr->y,
+		rect.width, (unsigned int) dlPtr->height) != RectangleOut)) {
+	    dlPtr->oldY = -1;
+	}
+    }
+    if (dInfoPtr->topOfEof < maxY) {
+	dInfoPtr->topOfEof = maxY;
+    }
+
+    /*
+     * Schedule the redisplay operation if there isn't one already
+     * scheduled.
+     */
+
+    inset = textPtr->borderWidth + textPtr->highlightWidth;
+    if ((rect.x < inset) || (rect.y < inset)
+	    || ((rect.x + rect.width) > (Tk_Width(textPtr->tkwin) - inset))
+	    || (maxY > (Tk_Height(textPtr->tkwin) - inset))) {
+	dInfoPtr->flags |= REDRAW_BORDERS;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextChanged --
+ *
+ *	This procedure is invoked when info in a text widget is about
+ *	to be modified in a way that changes how it is displayed (e.g.
+ *	characters were inserted or deleted, or tag information was
+ *	changed).  This procedure must be called *before* a change is
+ *	made, so that indexes in the display information are still
+ *	valid.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The range of character between index1Ptr (inclusive) and
+ *	index2Ptr (exclusive) will be redisplayed at some point in the
+ *	future (the actual redisplay is scheduled as a when-idle handler).
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextChanged(textPtr, index1Ptr, index2Ptr)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkTextIndex *index1Ptr;	/* Index of first character to redisplay. */
+    TkTextIndex *index2Ptr;	/* Index of character just after last one
+				 * to redisplay. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    DLine *firstPtr, *lastPtr;
+    TkTextIndex rounded;
+
+    /*
+     * Schedule both a redisplay and a recomputation of display information.
+     * It's done here rather than the end of the procedure for two reasons:
+     *
+     * 1. If there are no display lines to update we'll want to return
+     *    immediately, well before the end of the procedure.
+     * 2. It's important to arrange for the redisplay BEFORE calling
+     *    FreeDLines.  The reason for this is subtle and has to do with
+     *    embedded windows.  The chunk delete procedure for an embedded
+     *    window will schedule an idle handler to unmap the window.
+     *    However, we want the idle handler for redisplay to be called
+     *    first, so that it can put the embedded window back on the screen
+     *    again (if appropriate).  This will prevent the window from ever
+     *    being unmapped, and thereby avoid flashing.
+     */
+
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
+
+    /*
+     * Find the DLines corresponding to index1Ptr and index2Ptr.  There
+     * is one tricky thing here, which is that we have to relayout in
+     * units of whole text lines:  round index1Ptr back to the beginning
+     * of its text line, and include all the display lines after index2,
+     * up to the end of its text line.  This is necessary because the
+     * indices stored in the display lines will no longer be valid.  It's
+     * also needed because any edit could change the way lines wrap.
+     */
+
+    rounded = *index1Ptr;
+    rounded.charIndex = 0;
+    firstPtr = FindDLine(dInfoPtr->dLinePtr, &rounded);
+    if (firstPtr == NULL) {
+	return;
+    }
+    lastPtr = FindDLine(dInfoPtr->dLinePtr, index2Ptr);
+    while ((lastPtr != NULL)
+	    && (lastPtr->index.linePtr == index2Ptr->linePtr)) {
+	lastPtr = lastPtr->nextPtr;
+    }
+
+    /*
+     * Delete all the DLines from firstPtr up to but not including lastPtr.
+     */
+
+    FreeDLines(textPtr, firstPtr, lastPtr, 1);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextRedrawTag --
+ *
+ *	This procedure is invoked to request a redraw of all characters
+ *	in a given range that have a particular tag on or off.  It's
+ *	called, for example, when tag options change.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information on the screen may be redrawn, and the layout of
+ *	the screen may change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextRedrawTag(textPtr, index1Ptr, index2Ptr, tagPtr, withTag)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkTextIndex *index1Ptr;	/* First character in range to consider
+				 * for redisplay.  NULL means start at
+				 * beginning of text. */
+    TkTextIndex *index2Ptr;	/* Character just after last one to consider
+				 * for redisplay.  NULL means process all
+				 * the characters in the text. */
+    TkTextTag *tagPtr;		/* Information about tag. */
+    int withTag;		/* 1 means redraw characters that have the
+				 * tag, 0 means redraw those without. */
+{
+    register DLine *dlPtr;
+    DLine *endPtr;
+    int tagOn;
+    TkTextSearch search;
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    TkTextIndex *curIndexPtr;
+    TkTextIndex endOfText, *endIndexPtr;
+
+    /*
+     * Round up the starting position if it's before the first line
+     * visible on the screen (we only care about what's on the screen).
+     */
+
+    dlPtr = dInfoPtr->dLinePtr;
+    if (dlPtr == NULL) {
+	return;
+    }
+    if ((index1Ptr == NULL) || (TkTextIndexCmp(&dlPtr->index, index1Ptr) > 0)) {
+	index1Ptr = &dlPtr->index;
+    }
+
+    /*
+     * Set the stopping position if it wasn't specified.
+     */
+
+    if (index2Ptr == NULL) {
+	index2Ptr = TkTextMakeIndex(textPtr->tree,
+		TkBTreeNumLines(textPtr->tree), 0, &endOfText);
+    }
+
+    /* 
+     * Initialize a search through all transitions on the tag, starting
+     * with the first transition where the tag's current state is different
+     * from what it will eventually be.
+     */
+
+    TkBTreeStartSearch(index1Ptr, index2Ptr, tagPtr, &search);
+    /*
+     * Make our own curIndex because at this point search.curIndex
+     * may not equal index1Ptr->curIndex in the case the first tag toggle
+     * comes after index1Ptr (See the use of FindTagStart in TkBTreeStartSearch)
+     */
+    curIndexPtr = index1Ptr;
+    tagOn = TkBTreeCharTagged(index1Ptr, tagPtr);
+    if (tagOn != withTag) {
+	if (!TkBTreeNextTag(&search)) {
+	    return;
+	}
+	curIndexPtr = &search.curIndex;
+    }
+
+    /*
+     * Schedule a redisplay and layout recalculation if they aren't
+     * already pending.  This has to be done before calling FreeDLines,
+     * for the reason given in TkTextChanged.
+     */
+
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
+
+    /*
+     * Each loop through the loop below is for one range of characters
+     * where the tag's current state is different than its eventual
+     * state.  At the top of the loop, search contains information about
+     * the first character in the range.
+     */
+
+    while (1) {
+	/*
+	 * Find the first DLine structure in the range.  Note: if the
+	 * desired character isn't the first in its text line, then look
+	 * for the character just before it instead.  This is needed to
+	 * handle the case where the first character of a wrapped
+	 * display line just got smaller, so that it now fits on the
+	 * line before:  need to relayout the line containing the
+	 * previous character.
+	 */
+
+	if (curIndexPtr->charIndex == 0) {
+	    dlPtr = FindDLine(dlPtr, curIndexPtr);
+	} else {
+	    TkTextIndex tmp;
+
+	    tmp = *curIndexPtr;
+	    tmp.charIndex -= 1;
+	    dlPtr = FindDLine(dlPtr, &tmp);
+	}
+	if (dlPtr == NULL) {
+	    break;
+	}
+
+	/*
+	 * Find the first DLine structure that's past the end of the range.
+	 */
+
+	if (!TkBTreeNextTag(&search)) {
+	    endIndexPtr = index2Ptr;
+	} else {
+	    curIndexPtr = &search.curIndex;
+	    endIndexPtr = curIndexPtr;
+	}
+	endPtr = FindDLine(dlPtr, endIndexPtr);
+	if ((endPtr != NULL) && (endPtr->index.linePtr == endIndexPtr->linePtr)
+		&& (endPtr->index.charIndex < endIndexPtr->charIndex)) {
+	    endPtr = endPtr->nextPtr;
+	}
+
+	/*
+	 * Delete all of the display lines in the range, so that they'll
+	 * be re-layed out and redrawn.
+	 */
+
+	FreeDLines(textPtr, dlPtr, endPtr, 1);
+	dlPtr = endPtr;
+
+	/*
+	 * Find the first text line in the next range.
+	 */
+
+	if (!TkBTreeNextTag(&search)) {
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextRelayoutWindow --
+ *
+ *	This procedure is called when something has happened that
+ *	invalidates the whole layout of characters on the screen, such
+ *	as a change in a configuration option for the overall text
+ *	widget or a change in the window size.  It causes all display
+ *	information to be recomputed and the window to be redrawn.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	All the display information will be recomputed for the window
+ *	and the window will be redrawn.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextRelayoutWindow(textPtr)
+    TkText *textPtr;		/* Widget record for text widget. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    GC new;
+    XGCValues gcValues;
+
+    /*
+     * Schedule the window redisplay.  See TkTextChanged for the
+     * reason why this has to be done before any calls to FreeDLines.
+     */
+
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    dInfoPtr->flags |= REDRAW_PENDING|REDRAW_BORDERS|DINFO_OUT_OF_DATE
+	    |REPICK_NEEDED;
+
+    /*
+     * (Re-)create the graphics context for drawing the traversal
+     * highlight.
+     */
+
+    gcValues.graphics_exposures = False;
+    new = Tk_GetGC(textPtr->tkwin, GCGraphicsExposures, &gcValues);
+    if (dInfoPtr->copyGC != None) {
+	Tk_FreeGC(textPtr->display, dInfoPtr->copyGC);
+    }
+    dInfoPtr->copyGC = new;
+
+    /*
+     * Throw away all the current layout information.
+     */
+
+    FreeDLines(textPtr, dInfoPtr->dLinePtr, (DLine *) NULL, 1);
+    dInfoPtr->dLinePtr = NULL;
+
+    /*
+     * Recompute some overall things for the layout.  Even if the
+     * window gets very small, pretend that there's at least one
+     * pixel of drawing space in it.
+     */
+
+    if (textPtr->highlightWidth < 0) {
+	textPtr->highlightWidth = 0;
+    }
+    dInfoPtr->x = textPtr->highlightWidth + textPtr->borderWidth
+	    + textPtr->padX;
+    dInfoPtr->y = textPtr->highlightWidth + textPtr->borderWidth
+	    + textPtr->padY;
+    dInfoPtr->maxX = Tk_Width(textPtr->tkwin) - textPtr->highlightWidth
+	    - textPtr->borderWidth - textPtr->padX;
+    if (dInfoPtr->maxX <= dInfoPtr->x) {
+	dInfoPtr->maxX = dInfoPtr->x + 1;
+    }
+    dInfoPtr->maxY = Tk_Height(textPtr->tkwin) - textPtr->highlightWidth
+	    - textPtr->borderWidth - textPtr->padY;
+    if (dInfoPtr->maxY <= dInfoPtr->y) {
+	dInfoPtr->maxY = dInfoPtr->y + 1;
+    }
+    dInfoPtr->topOfEof = dInfoPtr->maxY;
+
+    /*
+     * If the upper-left character isn't the first in a line, recompute
+     * it.  This is necessary because a change in the window's size
+     * or options could change the way lines wrap.
+     */
+
+    if (textPtr->topIndex.charIndex != 0) {
+	MeasureUp(textPtr, &textPtr->topIndex, 0, &textPtr->topIndex);
+    }
+
+    /*
+     * Invalidate cached scrollbar positions, so that scrollbars
+     * sliders will be udpated.
+     */
+
+    dInfoPtr->xScrollFirst = dInfoPtr->xScrollLast = -1;
+    dInfoPtr->yScrollFirst = dInfoPtr->yScrollLast = -1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextSetYView --
+ *
+ *	This procedure is called to specify what lines are to be
+ *	displayed in a text widget.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The display will (eventually) be updated so that the position
+ *	given by "indexPtr" is visible on the screen at the position
+ *	determined by "pickPlace".
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextSetYView(textPtr, indexPtr, pickPlace)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkTextIndex *indexPtr;	/* Position that is to appear somewhere
+				 * in the view. */
+    int pickPlace;		/* 0 means topLine must appear at top of
+				 * screen.  1 means we get to pick where it
+				 * appears:  minimize screen motion or else
+				 * display line at center of screen. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    register DLine *dlPtr;
+    int bottomY, close, lineIndex, lineHeight;
+    TkTextIndex tmpIndex, rounded;
+
+    /*
+     * If the specified position is the extra line at the end of the
+     * text, round it back to the last real line.
+     */
+
+    lineIndex = TkBTreeLineIndex(indexPtr->linePtr);
+    if (lineIndex == TkBTreeNumLines(indexPtr->tree)) {
+	TkTextIndexBackChars(indexPtr, 1, &rounded);
+	indexPtr = &rounded;
+    }
+
+    if (!pickPlace) {
+	/*
+	 * The specified position must go at the top of the screen.
+	 * Just leave all the DLine's alone: we may be able to reuse
+	 * some of the information that's currently on the screen
+	 * without redisplaying it all.
+	 */
+
+	if (indexPtr->charIndex == 0) {
+	    textPtr->topIndex = *indexPtr;
+	} else {
+	    MeasureUp(textPtr, indexPtr, 0, &textPtr->topIndex);
+	}
+	goto scheduleUpdate;
+    }
+
+    /*
+     * We have to pick where to display the index.  First, bring
+     * the display information up to date and see if the index will be
+     * completely visible in the current screen configuration.  If so
+     * then there's nothing to do.
+     */
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+    dlPtr = FindDLine(dInfoPtr->dLinePtr, indexPtr);
+    if (dlPtr != NULL) {
+	if ((dlPtr->y + dlPtr->height) > dInfoPtr->maxY) {
+	    /*
+	     * Part of the line hangs off the bottom of the screen;
+	     * pretend the whole line is off-screen.
+	     */
+
+	    dlPtr = NULL;
+	} else if ((dlPtr->index.linePtr == indexPtr->linePtr)
+		&& (dlPtr->index.charIndex <= indexPtr->charIndex)) {
+	    return;
+	}
+    }
+
+    /*
+     * The desired line isn't already on-screen.  Figure out what
+     * it means to be "close" to the top or bottom of the screen.
+     * Close means within 1/3 of the screen height or within three
+     * lines, whichever is greater.  Add one extra line also, to
+     * account for the way MeasureUp rounds.
+     */
+
+    lineHeight = textPtr->fontPtr->ascent + textPtr->fontPtr->descent;
+    bottomY = (dInfoPtr->y + dInfoPtr->maxY + lineHeight)/2;
+    close = (dInfoPtr->maxY - dInfoPtr->y)/3;
+    if (close < 3*lineHeight) {
+	close = 3*lineHeight;
+    }
+    close += lineHeight;
+    if (dlPtr != NULL) {
+	/*
+	 * The desired line is above the top of screen.  If it is
+	 * "close" to the top of the window then make it the top
+	 * line on the screen.
+	 */
+
+	MeasureUp(textPtr, &textPtr->topIndex, close, &tmpIndex);
+	if (TkTextIndexCmp(&tmpIndex, indexPtr) <= 0) {
+	    MeasureUp(textPtr, indexPtr, 0, &textPtr->topIndex);
+	    goto scheduleUpdate;
+	}
+    } else {
+	/*
+	 * The desired line is below the bottom of the screen.  If it is
+	 * "close" to the bottom of the screen then position it at the
+	 * bottom of the screen.
+	 */
+
+	MeasureUp(textPtr, indexPtr, close, &tmpIndex);
+	if (FindDLine(dInfoPtr->dLinePtr, &tmpIndex) != NULL) {
+	    bottomY = dInfoPtr->maxY - dInfoPtr->y;
+	}
+    }
+
+    /*
+     * Our job now is to arrange the display so that indexPtr appears
+     * as low on the screen as possible but with its bottom no lower
+     * than bottomY.  BottomY is the bottom of the window if the
+     * desired line is just below the current screen, otherwise it
+     * is a half-line lower than the center of the window.
+     */
+
+    MeasureUp(textPtr, indexPtr, bottomY, &textPtr->topIndex);
+
+    scheduleUpdate:
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MeasureUp --
+ *
+ *	Given one index, find the index of the first character
+ *	on the highest display line that would be displayed no more
+ *	than "distance" pixels above the given index.
+ *
+ * Results:
+ *	*dstPtr is filled in with the index of the first character
+ *	on a display line.  The display line is found by measuring
+ *	up "distance" pixels above the pixel just below an imaginary
+ *	display line that contains srcPtr.  If the display line
+ *	that covers this coordinate actually extends above the 
+ *	coordinate, then return the index of the next lower line
+ *	instead (i.e. the returned index will be completely visible
+ *	at or below the given y-coordinate).
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+MeasureUp(textPtr, srcPtr, distance, dstPtr)
+    TkText *textPtr;		/* Text widget in which to measure. */
+    TkTextIndex *srcPtr;	/* Index of character from which to start
+				 * measuring. */
+    int distance;		/* Vertical distance in pixels measured
+				 * from the pixel just below the lowest
+				 * one in srcPtr's line. */
+    TkTextIndex *dstPtr;	/* Index to fill in with result. */
+{
+    int lineNum;		/* Number of current line. */
+    int charsToCount;		/* Maximum number of characters to measure
+				 * in current line. */
+    TkTextIndex bestIndex;	/* Best candidate seen so far for result. */
+    TkTextIndex index;
+    DLine *dlPtr, *lowestPtr;
+    int noBestYet;		/* 1 means bestIndex hasn't been set. */
+
+    noBestYet = 1;
+    charsToCount = srcPtr->charIndex + 1;
+    index.tree = srcPtr->tree;
+    for (lineNum = TkBTreeLineIndex(srcPtr->linePtr); lineNum >= 0;
+	    lineNum--) {
+	/*
+	 * Layout an entire text line (potentially > 1 display line).
+	 * For the first line, which contains srcPtr, only layout the
+	 * part up through srcPtr (charsToCount is non-infinite to
+	 * accomplish this).  Make a list of all the display lines
+	 * in backwards order (the lowest DLine on the screen is first
+	 * in the list).
+	 */
+
+	index.linePtr = TkBTreeFindLine(srcPtr->tree, lineNum);
+	index.charIndex = 0;
+	lowestPtr = NULL;
+	do {
+	    dlPtr = LayoutDLine(textPtr, &index);
+	    dlPtr->nextPtr = lowestPtr;
+	    lowestPtr = dlPtr;
+	    TkTextIndexForwChars(&index, dlPtr->count, &index);
+	    charsToCount -= dlPtr->count;
+	} while ((charsToCount > 0) && (index.linePtr == dlPtr->index.linePtr));
+
+	/*
+	 * Scan through the display lines to see if we've covered enough
+	 * vertical distance.  If so, save the starting index for the
+	 * line at the desired location.
+	 */
+
+	for (dlPtr = lowestPtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
+	    distance -= dlPtr->height;
+	    if (distance < 0) {
+		*dstPtr = (noBestYet) ? dlPtr->index : bestIndex;
+		break;
+	    }
+	    bestIndex = dlPtr->index;
+	    noBestYet = 0;
+	}
+
+	/*
+	 * Discard the display lines, then either return or prepare
+	 * for the next display line to lay out.
+	 */
+
+	FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
+	if (distance < 0) {
+	    return;
+	}
+	charsToCount = INT_MAX;		/* Consider all chars. in next line. */
+    }
+
+    /*
+     * Ran off the beginning of the text.  Return the first character
+     * in the text.
+     */
+
+    TkTextMakeIndex(textPtr->tree, 0, 0, dstPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextSeeCmd --
+ *
+ *	This procedure is invoked to process the "see" option for
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextSeeCmd(textPtr, interp, argc, argv)
+    TkText *textPtr;		/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "see". */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    TkTextIndex index;
+    int x, y, width, height, lineWidth, charCount, oneThird, delta;
+    DLine *dlPtr;
+    TkTextDispChunk *chunkPtr;
+
+    if (argc != 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " see index\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    if (TkTextGetIndex(interp, textPtr, argv[2], &index) != TCL_OK) {
+	return TCL_ERROR;
+    }
+
+    /*
+     * If the specified position is the extra line at the end of the
+     * text, round it back to the last real line.
+     */
+
+    if (TkBTreeLineIndex(index.linePtr) == TkBTreeNumLines(index.tree)) {
+	TkTextIndexBackChars(&index, 1, &index);
+    }
+
+    /*
+     * First get the desired position into the vertical range of the window.
+     */
+
+    TkTextSetYView(textPtr, &index, 1);
+
+    /*
+     * Now make sure that the character is in view horizontally.
+     */
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+    lineWidth = dInfoPtr->maxX - dInfoPtr->x;
+    if (dInfoPtr->maxLength < lineWidth) {
+	return TCL_OK;
+    }
+
+    /*
+     * Find the chunk that contains the desired index.
+     */
+
+    dlPtr = FindDLine(dInfoPtr->dLinePtr, &index);
+    charCount = index.charIndex - dlPtr->index.charIndex;
+    for (chunkPtr = dlPtr->chunkPtr; ; chunkPtr = chunkPtr->nextPtr) {
+	if (charCount < chunkPtr->numChars) {
+	    break;
+	}
+	charCount -= chunkPtr->numChars;
+    }
+
+    /*
+     * Call a chunk-specific procedure to find the horizontal range of
+     * the character within the chunk.
+     */
+
+    (*chunkPtr->bboxProc)(chunkPtr, charCount, dlPtr->y + dlPtr->spaceAbove,
+	    dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
+	    dlPtr->baseline - dlPtr->spaceAbove, &x, &y, &width,
+	    &height);
+    delta = x - dInfoPtr->curPixelOffset;
+    oneThird = lineWidth/3;
+    if (delta < 0) {
+	if (delta < -oneThird) {
+	    dInfoPtr->newCharOffset = (x - lineWidth/2)/textPtr->charWidth;
+	} else {
+	    dInfoPtr->newCharOffset -= ((-delta) + textPtr->charWidth - 1)
+		/ textPtr->charWidth;
+	}
+    } else {
+	delta -= (lineWidth - width);
+	if (delta > 0) {
+	    if (delta > oneThird) {
+		dInfoPtr->newCharOffset = (x - lineWidth/2)/textPtr->charWidth;
+	    } else {
+		dInfoPtr->newCharOffset += (delta + textPtr->charWidth - 1)
+		    / textPtr->charWidth;
+	    }
+	} else {
+	    return TCL_OK;
+	}
+    }
+    dInfoPtr->flags |= DINFO_OUT_OF_DATE;
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	dInfoPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextXviewCmd --
+ *
+ *	This procedure is invoked to process the "xview" option for
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextXviewCmd(textPtr, interp, argc, argv)
+    TkText *textPtr;		/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "xview". */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    int type, charsPerPage, count, newOffset;
+    double fraction;
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
+    if (argc == 2) {
+	GetXView(interp, textPtr, 0);
+	return TCL_OK;
+    }
+
+    newOffset = dInfoPtr->newCharOffset;
+    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+    switch (type) {
+	case TK_SCROLL_ERROR:
+	    return TCL_ERROR;
+	case TK_SCROLL_MOVETO:
+	    if (fraction > 1.0) {
+		fraction = 1.0;
+	    }
+	    if (fraction < 0) {
+		fraction = 0;
+	    }
+	    newOffset = ((fraction * dInfoPtr->maxLength) / textPtr->charWidth)
+		    + 0.5;
+	    break;
+	case TK_SCROLL_PAGES:
+	    charsPerPage = ((dInfoPtr->maxX - dInfoPtr->x) / textPtr->charWidth)
+		    - 2;
+	    if (charsPerPage < 1) {
+		charsPerPage = 1;
+	    }
+	    newOffset += charsPerPage*count;
+	    break;
+	case TK_SCROLL_UNITS:
+	    newOffset += count;
+	    break;
+    }
+
+    dInfoPtr->newCharOffset = newOffset;
+    dInfoPtr->flags |= DINFO_OUT_OF_DATE;
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	dInfoPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScrollByLines --
+ *
+ *	This procedure is called to scroll a text widget up or down
+ *	by a given number of lines.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The view in textPtr's window changes to reflect the value
+ *	of "offset".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ScrollByLines(textPtr, offset)
+    TkText *textPtr;		/* Widget to scroll. */
+    int offset;			/* Amount by which to scroll, in *screen*
+				 * lines.  Positive means that information
+				 * later in text becomes visible, negative
+				 * means that information earlier in the
+				 * text becomes visible. */
+{
+    int i, charsToCount, lineNum;
+    TkTextIndex new, index;
+    TkTextLine *lastLinePtr;
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    DLine *dlPtr, *lowestPtr;
+
+    if (offset < 0) {
+	/*
+	 * Must scroll up (to show earlier information in the text).
+	 * The code below is similar to that in MeasureUp, except that
+	 * it counts lines instead of pixels.
+	 */
+
+	charsToCount = textPtr->topIndex.charIndex + 1;
+	index.tree = textPtr->tree;
+	offset--;			/* Skip line containing topIndex. */
+	for (lineNum = TkBTreeLineIndex(textPtr->topIndex.linePtr);
+		lineNum >= 0; lineNum--) {
+	    index.linePtr = TkBTreeFindLine(textPtr->tree, lineNum);
+	    index.charIndex = 0;
+	    lowestPtr = NULL;
+	    do {
+		dlPtr = LayoutDLine(textPtr, &index);
+		dlPtr->nextPtr = lowestPtr;
+		lowestPtr = dlPtr;
+		TkTextIndexForwChars(&index, dlPtr->count, &index);
+		charsToCount -= dlPtr->count;
+	    } while ((charsToCount > 0)
+		    && (index.linePtr == dlPtr->index.linePtr));
+
+	    for (dlPtr = lowestPtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
+		offset++;
+		if (offset == 0) {
+		    textPtr->topIndex = dlPtr->index;
+		    break;
+		}
+	    }
+    
+	    /*
+	     * Discard the display lines, then either return or prepare
+	     * for the next display line to lay out.
+	     */
+    
+	    FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
+	    if (offset >= 0) {
+		goto scheduleUpdate;
+	    }
+	    charsToCount = INT_MAX;
+	}
+    
+	/*
+	 * Ran off the beginning of the text.  Return the first character
+	 * in the text.
+	 */
+
+	TkTextMakeIndex(textPtr->tree, 0, 0, &textPtr->topIndex);
+    } else {
+	/*
+	 * Scrolling down, to show later information in the text.
+	 * Just count lines from the current top of the window.
+	 */
+
+	lastLinePtr = TkBTreeFindLine(textPtr->tree,
+		TkBTreeNumLines(textPtr->tree));
+	for (i = 0; i < offset; i++) {
+	    dlPtr = LayoutDLine(textPtr, &textPtr->topIndex);
+	    dlPtr->nextPtr = NULL;
+	    TkTextIndexForwChars(&textPtr->topIndex, dlPtr->count, &new);
+	    FreeDLines(textPtr, dlPtr, (DLine *) NULL, 0);
+	    if (new.linePtr == lastLinePtr) {
+		break;
+	    }
+	    textPtr->topIndex = new;
+	}
+    }
+
+    scheduleUpdate:
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextYviewCmd --
+ *
+ *	This procedure is invoked to process the "yview" option for
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextYviewCmd(textPtr, interp, argc, argv)
+    TkText *textPtr;		/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "yview". */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    int pickPlace, lineNum, type, lineHeight;
+    int pixels, count;
+    size_t switchLength;
+    double fraction;
+    TkTextIndex index, new;
+    TkTextLine *lastLinePtr;
+    DLine *dlPtr;
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
+    if (argc == 2) {
+	GetYView(interp, textPtr, 0);
+	return TCL_OK;
+    }
+
+    /*
+     * Next, handle the old syntax: "pathName yview ?-pickplace? where"
+     */
+
+    pickPlace = 0;
+    if (argv[2][0] == '-') {
+	switchLength = strlen(argv[2]);
+	if ((switchLength >= 2)
+		&& (strncmp(argv[2], "-pickplace", switchLength) == 0)) {
+	    pickPlace = 1;
+	    if (argc != 4) {
+		Tcl_AppendResult(interp, "wrong # args: should be \"",
+			argv[0], " yview -pickplace lineNum|index\"",
+			(char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+    }
+    if ((argc == 3) || pickPlace) {
+	if (Tcl_GetInt(interp, argv[2+pickPlace], &lineNum) == TCL_OK) {
+	    TkTextMakeIndex(textPtr->tree, lineNum, 0, &index);
+	    TkTextSetYView(textPtr, &index, 0);
+	    return TCL_OK;
+	}
+    
+	/*
+	 * The argument must be a regular text index.
+	 */
+    
+	Tcl_ResetResult(interp);
+	if (TkTextGetIndex(interp, textPtr, argv[2+pickPlace],
+		&index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	TkTextSetYView(textPtr, &index, pickPlace);
+	return TCL_OK;
+    }
+
+    /*
+     * New syntax: dispatch based on argv[2].
+     */
+
+    type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
+    switch (type) {
+	case TK_SCROLL_ERROR:
+	    return TCL_ERROR;
+	case TK_SCROLL_MOVETO:
+	    if (fraction > 1.0) {
+		fraction = 1.0;
+	    }
+	    if (fraction < 0) {
+		fraction = 0;
+	    }
+	    fraction *= TkBTreeNumLines(textPtr->tree);
+	    lineNum = fraction;
+	    TkTextMakeIndex(textPtr->tree, lineNum, 0, &index);
+	    index.charIndex = TkBTreeCharsInLine(index.linePtr)
+		    * (fraction-lineNum) + 0.5;
+	    TkTextSetYView(textPtr, &index, 0);
+	    break;
+	case TK_SCROLL_PAGES:
+	    /*
+	     * Scroll up or down by screenfuls.  Actually, use the
+	     * window height minus two lines, so that there's some
+	     * overlap between adjacent pages.
+	     */
+
+	    lineHeight = textPtr->fontPtr->ascent + textPtr->fontPtr->descent;
+	    if (count < 0) {
+		pixels = (dInfoPtr->maxY - 2*lineHeight - dInfoPtr->y)*(-count)
+			+ lineHeight;
+		MeasureUp(textPtr, &textPtr->topIndex, pixels, &new);
+		if (TkTextIndexCmp(&textPtr->topIndex, &new) == 0) {
+		    /*
+		     * A page of scrolling ended up being less than one line.
+		     * Scroll one line anyway.
+		     */
+
+		    count = -1;
+		    goto scrollByLines;
+		}
+		textPtr->topIndex = new;
+	    } else {
+		/*
+		 * Scrolling down by pages.  Layout lines starting at the
+		 * top index and count through the desired vertical distance.
+		 */
+
+		pixels = (dInfoPtr->maxY - 2*lineHeight - dInfoPtr->y)*count;
+		lastLinePtr = TkBTreeFindLine(textPtr->tree,
+			TkBTreeNumLines(textPtr->tree));
+		do {
+		    dlPtr = LayoutDLine(textPtr, &textPtr->topIndex);
+		    dlPtr->nextPtr = NULL;
+		    TkTextIndexForwChars(&textPtr->topIndex, dlPtr->count,
+			    &new);
+		    pixels -= dlPtr->height;
+		    FreeDLines(textPtr, dlPtr, (DLine *) NULL, 0);
+		    if (new.linePtr == lastLinePtr) {
+			break;
+		    }
+		    textPtr->topIndex = new;
+		} while (pixels > 0);
+	    }
+	    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+		Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+	    }
+	    dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
+	    break;
+	case TK_SCROLL_UNITS:
+	    scrollByLines:
+	    ScrollByLines(textPtr, count);
+	    break;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextScanCmd --
+ *
+ *	This procedure is invoked to process the "scan" option for
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextScanCmd(textPtr, interp, argc, argv)
+    register TkText *textPtr;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "scan". */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    TkTextIndex index;
+    int c, x, y, totalScroll, newChar, maxChar;
+    size_t length;
+
+    if (argc != 5) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " scan mark|dragto x y\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    if (Tcl_GetInt(interp, argv[3], &x) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    if (Tcl_GetInt(interp, argv[4], &y) != TCL_OK) {
+	return TCL_ERROR;
+    }
+    c = argv[2][0];
+    length = strlen(argv[2]);
+    if ((c == 'd') && (strncmp(argv[2], "dragto", length) == 0)) {
+	/*
+	 * Amplify the difference between the current position and the
+	 * mark position to compute how much the view should shift, then
+	 * update the mark position to correspond to the new view.  If we
+	 * run off the edge of the text, reset the mark point so that the
+	 * current position continues to correspond to the edge of the
+	 * window.  This means that the picture will start dragging as
+	 * soon as the mouse reverses direction (without this reset, might
+	 * have to slide mouse a long ways back before the picture starts
+	 * moving again).
+	 */
+
+	newChar = dInfoPtr->scanMarkChar + (10*(dInfoPtr->scanMarkX - x))
+		/ (textPtr->charWidth);
+	maxChar = 1 + (dInfoPtr->maxLength - (dInfoPtr->maxX - dInfoPtr->x)
+		+ textPtr->charWidth - 1)/textPtr->charWidth;
+	if (newChar < 0) {
+	    dInfoPtr->scanMarkChar = newChar = 0;
+	    dInfoPtr->scanMarkX = x;
+	} else if (newChar > maxChar) {
+	    dInfoPtr->scanMarkChar = newChar = maxChar;
+	    dInfoPtr->scanMarkX = x;
+	}
+	dInfoPtr->newCharOffset = newChar;
+
+	totalScroll = (10*(dInfoPtr->scanMarkY - y))
+		/ (textPtr->fontPtr->ascent + textPtr->fontPtr->descent);
+	if (totalScroll != dInfoPtr->scanTotalScroll) {
+	    index = textPtr->topIndex;
+	    ScrollByLines(textPtr, totalScroll-dInfoPtr->scanTotalScroll);
+	    dInfoPtr->scanTotalScroll = totalScroll;
+	    if ((index.linePtr == textPtr->topIndex.linePtr) &&
+		    (index.charIndex == textPtr->topIndex.charIndex)) {
+		dInfoPtr->scanTotalScroll = 0;
+		dInfoPtr->scanMarkY = y;
+	    }
+	}
+    } else if ((c == 'm') && (strncmp(argv[2], "mark", length) == 0)) {
+	dInfoPtr->scanMarkChar = dInfoPtr->newCharOffset;
+	dInfoPtr->scanMarkX = x;
+	dInfoPtr->scanTotalScroll = 0;
+	dInfoPtr->scanMarkY = y;
+    } else {
+	Tcl_AppendResult(interp, "bad scan option \"", argv[2],
+		"\": must be mark or dragto", (char *) NULL);
+	return TCL_ERROR;
+    }
+    dInfoPtr->flags |= DINFO_OUT_OF_DATE;
+    if (!(dInfoPtr->flags & REDRAW_PENDING)) {
+	dInfoPtr->flags |= REDRAW_PENDING;
+	Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetXView --
+ *
+ *	This procedure computes the fractions that indicate what's
+ *	visible in a text window and, optionally, evaluates a
+ *	Tcl script to report them to the text's associated scrollbar.
+ *
+ * Results:
+ *	If report is zero, then interp->result is filled in with
+ *	two real numbers separated by a space, giving the position of
+ *	the left and right edges of the window as fractions from 0 to
+ *	1, where 0 means the left edge of the text and 1 means the right
+ *	edge.  If report is non-zero, then interp->result isn't modified
+ *	directly, but instead a script is evaluated in interp to report
+ *	the new horizontal scroll position to the scrollbar (if the scroll
+ *	position hasn't changed then no script is invoked).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetXView(interp, textPtr, report)
+    Tcl_Interp *interp;			/* If "report" is FALSE, string
+					 * describing visible range gets
+					 * stored in interp->result. */
+    TkText *textPtr;			/* Information about text widget. */
+    int report;				/* Non-zero means report info to
+					 * scrollbar if it has changed. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    char buffer[200];
+    double first, last;
+    int code;
+
+    if (dInfoPtr->maxLength > 0) {
+	first = ((double) dInfoPtr->curPixelOffset)
+		/ dInfoPtr->maxLength;
+	last = first + ((double) (dInfoPtr->maxX - dInfoPtr->x))
+		/ dInfoPtr->maxLength;
+	if (last > 1.0) {
+	    last = 1.0;
+	}
+    } else {
+	first = 0;
+	last = 1.0;
+    }
+    if (!report) {
+	sprintf(interp->result, "%g %g", first, last);
+	return;
+    }
+    if ((first == dInfoPtr->xScrollFirst) && (last == dInfoPtr->xScrollLast)) {
+	return;
+    }
+    dInfoPtr->xScrollFirst = first;
+    dInfoPtr->xScrollLast = last;
+    sprintf(buffer, " %g %g", first, last);
+    code = Tcl_VarEval(interp, textPtr->xScrollCmd,
+	    buffer, (char *) NULL);
+    if (code != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (horizontal scrolling command executed by text)");
+	Tcl_BackgroundError(interp);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetYView --
+ *
+ *	This procedure computes the fractions that indicate what's
+ *	visible in a text window and, optionally, evaluates a
+ *	Tcl script to report them to the text's associated scrollbar.
+ *
+ * Results:
+ *	If report is zero, then interp->result is filled in with
+ *	two real numbers separated by a space, giving the position of
+ *	the top and bottom of the window as fractions from 0 to 1, where
+ *	0 means the beginning of the text and 1 means the end.  If
+ *	report is non-zero, then interp->result isn't modified directly,
+ *	but a script is evaluated in interp to report the new scroll
+ *	position to the scrollbar (if the scroll position hasn't changed
+ *	then no script is invoked).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetYView(interp, textPtr, report)
+    Tcl_Interp *interp;			/* If "report" is FALSE, string
+					 * describing visible range gets
+					 * stored in interp->result. */
+    TkText *textPtr;			/* Information about text widget. */
+    int report;				/* Non-zero means report info to
+					 * scrollbar if it has changed. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    char buffer[200];
+    double first, last;
+    DLine *dlPtr;
+    int totalLines, code, count;
+
+    dlPtr = dInfoPtr->dLinePtr;
+    totalLines = TkBTreeNumLines(textPtr->tree);
+    first = ((double) TkBTreeLineIndex(dlPtr->index.linePtr))
+	    + ((double) dlPtr->index.charIndex)
+	    / (TkBTreeCharsInLine(dlPtr->index.linePtr));
+    first /= totalLines;
+    while (1) {
+	if ((dlPtr->y + dlPtr->height) > dInfoPtr->maxY) {
+	    /*
+	     * The last line is only partially visible, so don't
+	     * count its characters in what's visible.
+	     */
+	    count = 0;
+	    break;
+	}
+	if (dlPtr->nextPtr == NULL) {
+	    count = dlPtr->count;
+	    break;
+	}
+	dlPtr = dlPtr->nextPtr;
+    }
+    last = ((double) TkBTreeLineIndex(dlPtr->index.linePtr))
+	    + ((double) (dlPtr->index.charIndex + count))
+	    / (TkBTreeCharsInLine(dlPtr->index.linePtr));
+    last /= totalLines;
+    if (!report) {
+	sprintf(interp->result, "%g %g", first, last);
+	return;
+    }
+    if ((first == dInfoPtr->yScrollFirst) && (last == dInfoPtr->yScrollLast)) {
+	return;
+    }
+    dInfoPtr->yScrollFirst = first;
+    dInfoPtr->yScrollLast = last;
+    sprintf(buffer, " %g %g", first, last);
+    code = Tcl_VarEval(interp, textPtr->yScrollCmd,
+	    buffer, (char *) NULL);
+    if (code != TCL_OK) {
+	Tcl_AddErrorInfo(interp,
+		"\n    (vertical scrolling command executed by text)");
+	Tcl_BackgroundError(interp);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindDLine --
+ *
+ *	This procedure is called to find the DLine corresponding to a
+ *	given text index.
+ *
+ * Results:
+ *	The return value is a pointer to the first DLine found in the
+ *	list headed by dlPtr that displays information at or after the
+ *	specified position.  If there is no such line in the list then
+ *	NULL is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static DLine *
+FindDLine(dlPtr, indexPtr)
+    register DLine *dlPtr;	/* Pointer to first in list of DLines
+				 * to search. */
+    TkTextIndex *indexPtr;	/* Index of desired character. */
+{
+    TkTextLine *linePtr;
+
+    if (dlPtr == NULL) {
+	return NULL;
+    }
+    if (TkBTreeLineIndex(indexPtr->linePtr)
+	    < TkBTreeLineIndex(dlPtr->index.linePtr)) {
+	/*
+	 * The first display line is already past the desired line.
+	 */
+	return dlPtr;
+    }
+
+    /*
+     * Find the first display line that covers the desired text line.
+     */
+
+    linePtr = dlPtr->index.linePtr;
+    while (linePtr != indexPtr->linePtr) {
+	while (dlPtr->index.linePtr == linePtr) {
+	    dlPtr = dlPtr->nextPtr;
+	    if (dlPtr == NULL) {
+		return NULL;
+	    }
+	}
+	linePtr = TkBTreeNextLine(linePtr);
+	if (linePtr == NULL) {
+	    panic("FindDLine reached end of text");
+	}
+    }
+    if (indexPtr->linePtr != dlPtr->index.linePtr) {
+	return dlPtr;
+    }
+
+    /*
+     * Now get to the right position within the text line.
+     */
+
+    while (indexPtr->charIndex >= (dlPtr->index.charIndex + dlPtr->count)) {
+	dlPtr = dlPtr->nextPtr;
+	if ((dlPtr == NULL) || (dlPtr->index.linePtr != indexPtr->linePtr)) {
+	    break;
+	}
+    }
+    return dlPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextPixelIndex --
+ *
+ *	Given an (x,y) coordinate on the screen, find the location of
+ *	the character closest to that location.
+ *
+ * Results:
+ *	The index at *indexPtr is modified to refer to the character
+ *	on the display that is closest to (x,y).
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextPixelIndex(textPtr, x, y, indexPtr)
+    TkText *textPtr;		/* Widget record for text widget. */
+    int x, y;			/* Pixel coordinates of point in widget's
+				 * window. */
+    TkTextIndex *indexPtr;	/* This index gets filled in with the
+				 * index of the character nearest to (x,y). */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    register DLine *dlPtr;
+    register TkTextDispChunk *chunkPtr;
+
+    /*
+     * Make sure that all of the layout information about what's
+     * displayed where on the screen is up-to-date.
+     */
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
+    /*
+     * If the coordinates are above the top of the window, then adjust
+     * them to refer to the upper-right corner of the window.  If they're
+     * off to one side or the other, then adjust to the closest side.
+     */
+
+    if (y < dInfoPtr->y) {
+	y = dInfoPtr->y;
+	x = dInfoPtr->x;
+    }
+    if (x >= dInfoPtr->maxX) {
+	x = dInfoPtr->maxX - 1;
+    }
+    if (x < dInfoPtr->x) {
+	x = dInfoPtr->x;
+    }
+
+    /*
+     * Find the display line containing the desired y-coordinate.
+     */
+
+    for (dlPtr = dInfoPtr->dLinePtr; y >= (dlPtr->y + dlPtr->height);
+	    dlPtr = dlPtr->nextPtr) {
+	if (dlPtr->nextPtr == NULL) {
+	    /*
+	     * Y-coordinate is off the bottom of the displayed text.
+	     * Use the last character on the last line.
+	     */
+
+	    x = dInfoPtr->maxX - 1;
+	    break;
+	}
+    }
+
+    /*
+     * Scan through the line's chunks to find the one that contains
+     * the desired x-coordinate.  Before doing this, translate the
+     * x-coordinate from the coordinate system of the window to the
+     * coordinate system of the line (to take account of x-scrolling).
+     */
+
+    *indexPtr = dlPtr->index;
+    x = x - dInfoPtr->x + dInfoPtr->curPixelOffset;
+    for (chunkPtr = dlPtr->chunkPtr; x >= (chunkPtr->x + chunkPtr->width);
+	    indexPtr->charIndex += chunkPtr->numChars,
+	    chunkPtr = chunkPtr->nextPtr) {
+	if (chunkPtr->nextPtr == NULL) {
+	    indexPtr->charIndex += chunkPtr->numChars - 1;
+	    return;
+	}
+    }
+
+    /*
+     * If the chunk has more than one character in it, ask it which
+     * character is at the desired location.
+     */
+
+    if (chunkPtr->numChars > 1) {
+	indexPtr->charIndex += (*chunkPtr->measureProc)(chunkPtr, x);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextCharBbox --
+ *
+ *	Given an index, find the bounding box of the screen area
+ *	occupied by that character.
+ *
+ * Results:
+ *	Zero is returned if the character is on the screen.  -1
+ *	means the character isn't on the screen.  If the return value
+ *	is 0, then the bounding box of the part of the character that's
+ *	visible on the screen is returned to *xPtr, *yPtr, *widthPtr,
+ *	and *heightPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkTextCharBbox(textPtr, indexPtr, xPtr, yPtr, widthPtr, heightPtr)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkTextIndex *indexPtr;	/* Index of character whose bounding
+				 * box is desired. */
+    int *xPtr, *yPtr;		/* Filled with character's upper-left
+				 * coordinate. */
+    int *widthPtr, *heightPtr;	/* Filled in with character's dimensions. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    DLine *dlPtr;
+    register TkTextDispChunk *chunkPtr;
+    int index;
+
+    /*
+     * Make sure that all of the screen layout information is up to date.
+     */
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
+    /*
+     * Find the display line containing the desired index.
+     */
+
+    dlPtr = FindDLine(dInfoPtr->dLinePtr, indexPtr);
+    if ((dlPtr == NULL) || (TkTextIndexCmp(&dlPtr->index, indexPtr) > 0)) {
+	return -1;
+    }
+
+    /*
+     * Find the chunk within the line that contains the desired
+     * index.
+     */
+
+    index = indexPtr->charIndex - dlPtr->index.charIndex;
+    for (chunkPtr = dlPtr->chunkPtr; ; chunkPtr = chunkPtr->nextPtr) {
+	if (chunkPtr == NULL) {
+	    return -1;
+	}
+	if (index < chunkPtr->numChars) {
+	    break;
+	}
+	index -= chunkPtr->numChars;
+    }
+
+    /*
+     * Call a chunk-specific procedure to find the horizontal range of
+     * the character within the chunk, then fill in the vertical range.
+     * The x-coordinate returned by bboxProc is a coordinate within a
+     * line, not a coordinate on the screen.  Translate it to reflect
+     * horizontal scrolling.
+     */
+
+    (*chunkPtr->bboxProc)(chunkPtr, index, dlPtr->y + dlPtr->spaceAbove,
+	    dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
+	    dlPtr->baseline - dlPtr->spaceAbove, xPtr, yPtr, widthPtr,
+	    heightPtr);
+    *xPtr = *xPtr + dInfoPtr->x - dInfoPtr->curPixelOffset;
+    if ((index == (chunkPtr->numChars-1)) && (chunkPtr->nextPtr == NULL)) {
+	/*
+	 * Last character in display line.  Give it all the space up to
+	 * the line.
+	 */
+
+	if (*xPtr > dInfoPtr->maxX) {
+	    *xPtr = dInfoPtr->maxX;
+	}
+	*widthPtr = dInfoPtr->maxX - *xPtr;
+    }
+    if ((*xPtr + *widthPtr) <= dInfoPtr->x) {
+	return -1;
+    }
+    if ((*xPtr + *widthPtr) > dInfoPtr->maxX) {
+	*widthPtr = dInfoPtr->maxX - *xPtr;
+	if (*widthPtr <= 0) {
+	    return -1;
+	}
+    }
+    if ((*yPtr + *heightPtr) > dInfoPtr->maxY) {
+	*heightPtr = dInfoPtr->maxY - *yPtr;
+	if (*heightPtr <= 0) {
+	    return -1;
+	}
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextDLineInfo --
+ *
+ *	Given an index, return information about the display line
+ *	containing that character.
+ *
+ * Results:
+ *	Zero is returned if the character is on the screen.  -1
+ *	means the character isn't on the screen.  If the return value
+ *	is 0, then information is returned in the variables pointed
+ *	to by xPtr, yPtr, widthPtr, heightPtr, and basePtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkTextDLineInfo(textPtr, indexPtr, xPtr, yPtr, widthPtr, heightPtr, basePtr)
+    TkText *textPtr;		/* Widget record for text widget. */
+    TkTextIndex *indexPtr;	/* Index of character whose bounding
+				 * box is desired. */
+    int *xPtr, *yPtr;		/* Filled with line's upper-left
+				 * coordinate. */
+    int *widthPtr, *heightPtr;	/* Filled in with line's dimensions. */
+    int *basePtr;		/* Filled in with the baseline position,
+				 * measured as an offset down from *yPtr. */
+{
+    TextDInfo *dInfoPtr = textPtr->dInfoPtr;
+    DLine *dlPtr;
+
+    /*
+     * Make sure that all of the screen layout information is up to date.
+     */
+
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
+    /*
+     * Find the display line containing the desired index.
+     */
+
+    dlPtr = FindDLine(dInfoPtr->dLinePtr, indexPtr);
+    if ((dlPtr == NULL) || (TkTextIndexCmp(&dlPtr->index, indexPtr) > 0)) {
+	return -1;
+    }
+
+    *xPtr = dInfoPtr->x - dInfoPtr->curPixelOffset + dlPtr->chunkPtr->x;
+    *widthPtr = dlPtr->length - dlPtr->chunkPtr->x;
+    *yPtr = dlPtr->y;
+    if ((dlPtr->y + dlPtr->height) > dInfoPtr->maxY) {
+	*heightPtr = dInfoPtr->maxY - dlPtr->y;
+    } else {
+	*heightPtr = dlPtr->height;
+    }
+    *basePtr = dlPtr->baseline;
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextCharLayoutProc --
+ *
+ *	This procedure is the "layoutProc" for character segments.
+ *
+ * Results:
+ *	If there is something to display for the chunk then a
+ *	non-zero value is returned and the fields of chunkPtr
+ *	will be filled in (see the declaration of TkTextDispChunk
+ *	in tkText.h for details).  If zero is returned it means
+ *	that no characters from this chunk fit in the window.
+ *	If -1 is returned it means that this segment just doesn't
+ *	need to be displayed (never happens for text).
+ *
+ * Side effects:
+ *	Memory is allocated to hold additional information about
+ *	the chunk.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextCharLayoutProc(textPtr, indexPtr, segPtr, offset, maxX, maxChars,
+	noCharsYet, wrapMode, chunkPtr)
+    TkText *textPtr;		/* Text widget being layed out. */
+    TkTextIndex *indexPtr;	/* Index of first character to lay out
+				 * (corresponds to segPtr and offset). */
+    TkTextSegment *segPtr;	/* Segment being layed out. */
+    int offset;			/* Offset within segment of first character
+				 * to consider. */
+    int maxX;			/* Chunk must not occupy pixels at this
+				 * position or higher. */
+    int maxChars;		/* Chunk must not include more than this
+				 * many characters. */
+    int noCharsYet;		/* Non-zero means no characters have been
+				 * assigned to this display line yet. */
+    Tk_Uid wrapMode;		/* How to handle line wrapping: tkTextCharUid,
+				 * tkTextNoneUid, or tkTextWordUid. */
+    register TkTextDispChunk *chunkPtr;
+				/* Structure to fill in with information
+				 * about this chunk.  The x field has already
+				 * been set by the caller. */
+{
+    XFontStruct *fontPtr;
+    int nextX, charsThatFit, count;
+    CharInfo *ciPtr;
+    char *p;
+    TkTextSegment *nextPtr;
+
+    /*
+     * Figure out how many characters will fit in the space we've got.
+     * Include the next character, even though it won't fit completely,
+     * if any of the following is true:
+     *   (a) the chunk contains no characters and the display line contains
+     *	     no characters yet (i.e. the line isn't wide enough to hold
+     *	     even a single character).
+     *   (b) at least one pixel of the character is visible, we haven't
+     *	     already exceeded the character limit, and the next character
+     *	     is a white space character.
+     */
+
+    p = segPtr->body.chars + offset;
+    fontPtr = chunkPtr->stylePtr->sValuePtr->fontPtr;
+    charsThatFit = TkMeasureChars(fontPtr, p, maxChars, chunkPtr->x,
+	    maxX, 0, TK_IGNORE_TABS, &nextX);
+    if (charsThatFit < maxChars) {
+	if ((charsThatFit == 0) && noCharsYet) {
+	    charsThatFit = 1;
+	    TkMeasureChars(fontPtr, p, 1, chunkPtr->x, INT_MAX, 0,
+		    TK_IGNORE_TABS, &nextX);
+	}
+	if (p[charsThatFit] == '\n' || p[charsThatFit] == '\r') {
+	    /*
+	     * A newline character takes up no space, so if the previous
+	     * character fits then so does the newline.
+	     */
+
+	    charsThatFit++;
+	} else if ((nextX < maxX) && (isspace(UCHAR(p[charsThatFit])))) {
+	    /*
+	     * Space characters are funny, in that they are considered
+	     * to fit if there is at least one pixel of space left on the
+	     * line.  Just give the space character whatever space is left.
+	     */
+
+	    nextX = maxX;
+	    charsThatFit++;
+	}
+	if (charsThatFit == 0) {
+	    return 0;
+	}
+    }
+
+    /*
+     * Fill in the chunk structure and allocate and initialize a
+     * CharInfo structure.  If the last character is a newline
+     * then don't bother to display it.
+     */
+
+    chunkPtr->displayProc = CharDisplayProc;
+    chunkPtr->undisplayProc = CharUndisplayProc;
+    chunkPtr->measureProc = CharMeasureProc;
+    chunkPtr->bboxProc = CharBboxProc;
+    chunkPtr->numChars = charsThatFit;
+    chunkPtr->minAscent = fontPtr->ascent
+	    + chunkPtr->stylePtr->sValuePtr->offset;
+    chunkPtr->minDescent = fontPtr->descent
+	    - chunkPtr->stylePtr->sValuePtr->offset;;
+    chunkPtr->minHeight = 0;
+    chunkPtr->width = nextX - chunkPtr->x;
+    chunkPtr->breakIndex = -1;
+    ciPtr = (CharInfo *) ckalloc((unsigned)
+	    (sizeof(CharInfo) - 3 + charsThatFit));
+    chunkPtr->clientData = (ClientData) ciPtr;
+    ciPtr->numChars = charsThatFit;
+    strncpy(ciPtr->chars, p, (size_t) charsThatFit);
+    if (p[charsThatFit-1] == '\n' || p[charsThatFit-1] == '\r') {
+	ciPtr->numChars--;
+    }
+
+    /*
+     * Compute a break location.  If we're in word wrap mode, a
+     * break can occur after any space character, or at the end of
+     * the chunk if the next segment (ignoring those with zero size)
+     * is not a character segment.
+     */
+
+    if (wrapMode != tkTextWordUid) {
+	chunkPtr->breakIndex = chunkPtr->numChars;
+    } else {
+	for (count = charsThatFit, p += charsThatFit-1; count > 0;
+		count--, p--) {
+	    if (isspace(UCHAR(*p))) {
+		chunkPtr->breakIndex = count;
+		break;
+	    }
+	}
+	if ((charsThatFit+offset) == segPtr->size) {
+	    for (nextPtr = segPtr->nextPtr; nextPtr != NULL;
+		    nextPtr = nextPtr->nextPtr) {
+		if (nextPtr->size != 0) {
+		    if (nextPtr->typePtr != &tkTextCharType) {
+			chunkPtr->breakIndex = chunkPtr->numChars;
+		    }
+		    break;
+		}
+	    }
+	}
+    }
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharDisplayProc --
+ *
+ *	This procedure is called to display a character chunk on
+ *	the screen or in an off-screen pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Graphics are drawn.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CharDisplayProc(chunkPtr, x, y, height, baseline, display, dst, screenY)
+    TkTextDispChunk *chunkPtr;		/* Chunk that is to be drawn. */
+    int x;				/* X-position in dst at which to
+					 * draw this chunk (may differ from
+					 * the x-position in the chunk because
+					 * of scrolling). */
+    int y;				/* Y-position at which to draw this
+					 * chunk in dst. */
+    int height;				/* Total height of line. */
+    int baseline;			/* Offset of baseline from y. */
+    Display *display;			/* Display to use for drawing. */
+    Drawable dst;			/* Pixmap or window in which to draw
+					 * chunk. */
+    int screenY;			/* Y-coordinate in text window that
+					 * corresponds to y. */
+{
+    CharInfo *ciPtr = (CharInfo *) chunkPtr->clientData;
+    TextStyle *stylePtr;
+    StyleValues *sValuePtr;
+    int offsetChars, offsetX;
+
+    if ((x + chunkPtr->width) <= 0) {
+	/*
+	 * The chunk is off-screen.
+	 */
+
+	return;
+    }
+
+    stylePtr = chunkPtr->stylePtr;
+    sValuePtr = stylePtr->sValuePtr;
+
+    /*
+     * If the text sticks out way to the left of the window, skip
+     * over the characters that aren't in the visible part of the
+     * window.  This is essential if x is very negative (such as
+     * less than 32K);  otherwise overflow problems will occur
+     * in servers that use 16-bit arithmetic, like X.
+     */
+
+    offsetX = x;
+    offsetChars = 0;
+    if (x < 0) {
+	offsetChars = TkMeasureChars(sValuePtr->fontPtr, ciPtr->chars,
+	    ciPtr->numChars, x, 0, x - chunkPtr->x, TK_IGNORE_TABS, &offsetX);
+    }
+
+    /*
+     * Draw the text, underline, and overstrike for this chunk.
+     */
+
+    if (ciPtr->numChars > offsetChars) {
+	TkDisplayChars(display, dst, stylePtr->fgGC, sValuePtr->fontPtr,
+		ciPtr->chars + offsetChars, ciPtr->numChars - offsetChars,
+		offsetX, y + baseline - sValuePtr->offset, x - chunkPtr->x,
+		TK_IGNORE_TABS);
+	if (sValuePtr->underline) {
+	    TkUnderlineChars(display, dst, stylePtr->fgGC,
+		    sValuePtr->fontPtr, ciPtr->chars + offsetChars, offsetX,
+		    y + baseline - sValuePtr->offset, x - chunkPtr->x,
+		    TK_IGNORE_TABS, 0, ciPtr->numChars-offsetChars-1);
+	}
+	if (sValuePtr->overstrike) {
+	    TkUnderlineChars(display, dst, stylePtr->fgGC,
+		    sValuePtr->fontPtr, ciPtr->chars + offsetChars, offsetX,
+		    y + baseline - sValuePtr->offset
+			- sValuePtr->fontPtr->descent
+			- (sValuePtr->fontPtr->ascent*3)/10,
+		    x - chunkPtr->x, TK_IGNORE_TABS, 0,
+		    ciPtr->numChars-offsetChars-1);
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharUndisplayProc --
+ *
+ *	This procedure is called when a character chunk is no
+ *	longer going to be displayed.  It frees up resources
+ *	that were allocated to display the chunk.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory and other resources get freed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CharUndisplayProc(textPtr, chunkPtr)
+    TkText *textPtr;			/* Overall information about text
+					 * widget. */
+    TkTextDispChunk *chunkPtr;		/* Chunk that is about to be freed. */
+{
+    CharInfo *ciPtr = (CharInfo *) chunkPtr->clientData;
+
+    ckfree((char *) ciPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharMeasureProc --
+ *
+ *	This procedure is called to determine which character in
+ *	a character chunk lies over a given x-coordinate.
+ *
+ * Results:
+ *	The return value is the index *within the chunk* of the
+ *	character that covers the position given by "x".
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+CharMeasureProc(chunkPtr, x)
+    TkTextDispChunk *chunkPtr;		/* Chunk containing desired coord. */
+    int x;				/* X-coordinate, in same coordinate
+					 * system as chunkPtr->x. */
+{
+    CharInfo *ciPtr = (CharInfo *) chunkPtr->clientData;
+    int endX;
+
+    return TkMeasureChars(chunkPtr->stylePtr->sValuePtr->fontPtr,
+	    ciPtr->chars, chunkPtr->numChars-1, chunkPtr->x, x, 0,
+	    TK_IGNORE_TABS, &endX);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * CharBboxProc --
+ *
+ *	This procedure is called to compute the bounding box of
+ *	the area occupied by a single character.
+ *
+ * Results:
+ *	There is no return value.  *xPtr and *yPtr are filled in
+ *	with the coordinates of the upper left corner of the
+ *	character, and *widthPtr and *heightPtr are filled in with
+ *	the dimensions of the character in pixels.  Note:  not all
+ *	of the returned bbox is necessarily visible on the screen
+ *	(the rightmost part might be off-screen to the right,
+ *	and the bottommost part might be off-screen to the bottom).
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+CharBboxProc(chunkPtr, index, y, lineHeight, baseline, xPtr, yPtr,
+	widthPtr, heightPtr)
+    TkTextDispChunk *chunkPtr;		/* Chunk containing desired char. */
+    int index;				/* Index of desired character within
+					 * the chunk. */
+    int y;				/* Topmost pixel in area allocated
+					 * for this line. */
+    int lineHeight;			/* Height of line, in pixels. */
+    int baseline;			/* Location of line's baseline, in
+					 * pixels measured down from y. */
+    int *xPtr, *yPtr;			/* Gets filled in with coords of
+					 * character's upper-left pixel. 
+					 * X-coord is in same coordinate
+					 * system as chunkPtr->x. */
+    int *widthPtr;			/* Gets filled in with width of
+					 * character, in pixels. */
+    int *heightPtr;			/* Gets filled in with height of
+					 * character, in pixels. */
+{
+    CharInfo *ciPtr = (CharInfo *) chunkPtr->clientData;
+    int maxX;
+
+    maxX = chunkPtr->width + chunkPtr->x;
+    TkMeasureChars(chunkPtr->stylePtr->sValuePtr->fontPtr,
+	    ciPtr->chars, index, chunkPtr->x, 1000000, 0, TK_IGNORE_TABS,
+	    xPtr);
+    if (index == ciPtr->numChars) {
+	/*
+	 * This situation only happens if the last character in a line
+	 * is a space character, in which case it absorbs all of the
+	 * extra space in the line (see TkTextCharLayoutProc).
+	 */
+
+	*widthPtr = maxX - *xPtr;
+    } else if ((ciPtr->chars[index] == '\t')
+	    && (index == (ciPtr->numChars-1))) {
+	/*
+	 * The desired character is a tab character that terminates a
+	 * chunk;  give it all the space left in the chunk.
+	 */
+
+	*widthPtr = maxX - *xPtr;
+    } else {
+	TkMeasureChars(chunkPtr->stylePtr->sValuePtr->fontPtr,
+		ciPtr->chars + index, 1, *xPtr, 1000000, 0, TK_IGNORE_TABS,
+		widthPtr);
+	if (*widthPtr > maxX) {
+	    *widthPtr = maxX - *xPtr;
+	} else {
+	    *widthPtr -= *xPtr;
+	}
+    }
+    *yPtr = y + baseline - chunkPtr->minAscent;
+    *heightPtr = chunkPtr->minAscent + chunkPtr->minDescent;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * AdjustForTab --
+ *
+ *	This procedure is called to move a series of chunks right
+ *	in order to align them with a tab stop.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The width of chunkPtr gets adjusted so that it absorbs the
+ *	extra space due to the tab.  The x locations in all the chunks
+ *	after chunkPtr are adjusted rightward to align with the tab
+ *	stop given by tabArrayPtr and index.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+AdjustForTab(textPtr, tabArrayPtr, index, chunkPtr)
+    TkText *textPtr;			/* Information about the text widget as
+					 * a whole. */
+    TkTextTabArray *tabArrayPtr;	/* Information about the tab stops
+					 * that apply to this line.  May be
+					 * NULL to indicate default tabbing
+					 * (every 8 chars). */
+    int index;				/* Index of current tab stop. */
+    TkTextDispChunk *chunkPtr;		/* Chunk whose last character is
+					 * the tab;  the following chunks
+					 * contain information to be shifted
+					 * right. */
+
+{
+    int x, desired, delta, width, decimal, i, gotDigit;
+    TkTextDispChunk *chunkPtr2, *decimalChunkPtr;
+    TkTextTab *tabPtr;
+    CharInfo *ciPtr = NULL;		/* Initialization needed only to
+					 * prevent compiler warnings. */
+    int tabX, prev, spaceWidth;
+    char *p;
+    TkTextTabAlign alignment;
+
+    if (chunkPtr->nextPtr == NULL) {
+	/*
+	 * Nothing after the actual tab;  just return.
+	 */
+
+	return;
+    }
+
+    /*
+     * If no tab information has been given, do the usual thing:
+     * round up to the next boundary of 8 average-sized characters.
+     */
+
+    x = chunkPtr->nextPtr->x;
+    if ((tabArrayPtr == NULL) || (tabArrayPtr->numTabs == 0)) {
+	/*
+	 * No tab information has been given, so use the default
+	 * interpretation of tabs.
+	 */
+
+	TkMeasureChars(textPtr->fontPtr, "\t", 1, x, INT_MAX, 0, 0, &desired);
+	goto update;
+    }
+
+    if (index < tabArrayPtr->numTabs) {
+	alignment = tabArrayPtr->tabs[index].alignment;
+	tabX = tabArrayPtr->tabs[index].location;
+    } else {
+	/*
+	 * Ran out of tab stops;  compute a tab position by extrapolating
+	 * from the last two tab positions.
+	 */
+
+	if (tabArrayPtr->numTabs > 1) {
+	    prev = tabArrayPtr->tabs[tabArrayPtr->numTabs-2].location;
+	} else {
+	    prev = 0;
+	}
+	alignment = tabArrayPtr->tabs[tabArrayPtr->numTabs-1].alignment;
+	tabX = tabArrayPtr->tabs[tabArrayPtr->numTabs-1].location
+		+ (index + 1 - tabArrayPtr->numTabs)
+		* (tabArrayPtr->tabs[tabArrayPtr->numTabs-1].location - prev);
+    }
+
+    tabPtr = &tabArrayPtr->tabs[index];
+    if (alignment == LEFT) {
+	desired = tabX;
+	goto update;
+    }
+
+    if ((alignment == CENTER) || (alignment == RIGHT)) {
+	/*
+	 * Compute the width of all the information in the tab group,
+	 * then use it to pick a desired location.
+	 */
+
+	width = 0;
+	for (chunkPtr2 = chunkPtr->nextPtr; chunkPtr2 != NULL;
+		chunkPtr2 = chunkPtr2->nextPtr) {
+	    width += chunkPtr2->width;
+	}
+	if (alignment == CENTER) {
+	    desired = tabX - width/2;
+	} else {
+	    desired = tabX - width;
+	}
+	goto update;
+    }
+
+    /*
+     * Must be numeric alignment.  Search through the text to be
+     * tabbed, looking for the last , or . before the first character
+     * that isn't a number, comma, period, or sign.
+     */
+
+    decimalChunkPtr = NULL;
+    decimal = gotDigit = 0;
+    for (chunkPtr2 = chunkPtr->nextPtr; chunkPtr2 != NULL;
+	    chunkPtr2 = chunkPtr2->nextPtr) {
+	if (chunkPtr2->displayProc != CharDisplayProc) {
+	    continue;
+	}
+	ciPtr = (CharInfo *) chunkPtr2->clientData;
+	for (p = ciPtr->chars, i = 0; i < ciPtr->numChars; p++, i++) {
+	    if (isdigit(UCHAR(*p))) {
+		gotDigit = 1;
+	    } else if ((*p == '.') || (*p == ',')) {
+		decimal = p-ciPtr->chars;
+		decimalChunkPtr = chunkPtr2;
+	    } else if (gotDigit) {
+		if (decimalChunkPtr == NULL) {
+		    decimal = p-ciPtr->chars;
+		    decimalChunkPtr = chunkPtr2;
+		}
+		goto endOfNumber;
+	    }
+	}
+    }
+    endOfNumber:
+    if (decimalChunkPtr != NULL) {
+	int curX;
+
+	ciPtr = (CharInfo *) decimalChunkPtr->clientData;
+	TkMeasureChars(decimalChunkPtr->stylePtr->sValuePtr->fontPtr,
+		ciPtr->chars, decimal, decimalChunkPtr->x, 1000000, 0,
+		TK_IGNORE_TABS, &curX);
+	desired = tabX - (curX - x);
+	goto update;
+    } else {
+	/*
+	 * There wasn't a decimal point.  Right justify the text.
+	 */
+    
+	width = 0;
+	for (chunkPtr2 = chunkPtr->nextPtr; chunkPtr2 != NULL;
+		chunkPtr2 = chunkPtr2->nextPtr) {
+	    width += chunkPtr2->width;
+	}
+	desired = tabX - width;
+    }
+
+    /*
+     * Shift all of the chunks to the right so that the left edge is
+     * at the desired location, then expand the chunk containing the
+     * tab.  Be sure that the tab occupies at least the width of a
+     * space character.
+     */
+
+    update:
+    delta = desired - x;
+    TkMeasureChars(textPtr->fontPtr, " ", 1, 0, INT_MAX, 0, 0, &spaceWidth);
+    if (delta < spaceWidth) {
+	delta = spaceWidth;
+    }
+    for (chunkPtr2 = chunkPtr->nextPtr; chunkPtr2 != NULL;
+	    chunkPtr2 = chunkPtr2->nextPtr) {
+	chunkPtr2->x += delta;
+    }
+    chunkPtr->width += delta;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SizeOfTab --
+ *
+ *	This returns an estimate of the amount of white space that will
+ *	be consumed by a tab.
+ *
+ * Results:
+ *	The return value is the minimum number of pixels that will
+ *	be occupied by the index'th tab of tabArrayPtr, assuming that
+ *	the current position on the line is x and the end of the
+ *	line is maxX.  For numeric tabs, this is a conservative
+ *	estimate.  The return value is always >= 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+SizeOfTab(textPtr, tabArrayPtr, index, x, maxX)
+    TkText *textPtr;			/* Information about the text widget as
+					 * a whole. */
+    TkTextTabArray *tabArrayPtr;	/* Information about the tab stops
+					 * that apply to this line.  NULL
+					 * means use default tabbing (every
+					 * 8 chars.) */
+    int index;				/* Index of current tab stop. */
+    int x;				/* Current x-location in line. Only
+					 * used if tabArrayPtr == NULL. */
+    int maxX;				/* X-location of pixel just past the
+					 * right edge of the line. */
+{
+    int tabX, prev, result, spaceWidth;
+    TkTextTabAlign alignment;
+
+    if ((tabArrayPtr == NULL) || (tabArrayPtr->numTabs == 0)) {
+	TkMeasureChars(textPtr->fontPtr, "\t", 1, x, INT_MAX, 0, 0, &tabX);
+	return tabX - x;
+    }
+    if (index < tabArrayPtr->numTabs) {
+	tabX = tabArrayPtr->tabs[index].location;
+	alignment = tabArrayPtr->tabs[index].alignment;
+    } else {
+	/*
+	 * Ran out of tab stops;  compute a tab position by extrapolating
+	 * from the last two tab positions.
+	 */
+
+	if (tabArrayPtr->numTabs > 1) {
+	    prev = tabArrayPtr->tabs[tabArrayPtr->numTabs-2].location;
+	} else {
+	    prev = 0;
+	}
+	tabX = tabArrayPtr->tabs[tabArrayPtr->numTabs-1].location
+		+ (index + 1 - tabArrayPtr->numTabs)
+		* (tabArrayPtr->tabs[tabArrayPtr->numTabs-1].location - prev);
+	alignment = tabArrayPtr->tabs[tabArrayPtr->numTabs-1].alignment;
+    }
+    if (alignment == CENTER) {
+	/*
+	 * Be very careful in the arithmetic below, because maxX may
+	 * be the largest positive number:  watch out for integer
+	 * overflow.
+	 */
+
+	if ((maxX-tabX) < (tabX - x)) {
+	    result = (maxX - x) - 2*(maxX - tabX);
+	} else {
+	    result = 0;
+	}
+	goto done;
+    }
+    if (alignment == RIGHT) {
+	result = 0;
+	goto done;
+    }
+
+    /*
+     * Note: this treats NUMERIC alignment the same as LEFT
+     * alignment, which is somewhat conservative.  However, it's
+     * pretty tricky at this point to figure out exactly where
+     * the damn decimal point will be.
+     */
+
+    if (tabX > x) {
+	result = tabX - x;
+    } else {
+	result = 0;
+    }
+
+    done:
+    TkMeasureChars(textPtr->fontPtr, " ", 1, 0, INT_MAX, 0, 0, &spaceWidth);
+    if (result < spaceWidth) {
+	result = spaceWidth;
+    }
+    return result;
+}
diff --git a/Tk/generic/tkTextIndex.c b/Tk/generic/tkTextIndex.c
new file mode 100644
index 0000000..073490f
--- /dev/null
+++ b/Tk/generic/tkTextIndex.c
@@ -0,0 +1,861 @@
+/* 
+ * tkTextIndex.c --
+ *
+ *	This module provides procedures that manipulate indices for
+ *	text widgets.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextIndex.c 1.13 96/02/15 18:52:57
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tkInt.h"
+#include "tkText.h"
+
+/*
+ * Index to use to select last character in line (very large integer):
+ */
+
+#define LAST_CHAR 1000000
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static char *		ForwBack _ANSI_ARGS_((char *string,
+			    TkTextIndex *indexPtr));
+static char *		StartEnd _ANSI_ARGS_(( char *string,
+			    TkTextIndex *indexPtr));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextMakeIndex --
+ *
+ *	Given a line index and a character index, look things up
+ *	in the B-tree and fill in a TkTextIndex structure.
+ *
+ * Results:
+ *	The structure at *indexPtr is filled in with information
+ *	about the character at lineIndex and charIndex (or the
+ *	closest existing character, if the specified one doesn't
+ *	exist), and indexPtr is returned as result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+TkTextIndex *
+TkTextMakeIndex(tree, lineIndex, charIndex, indexPtr)
+    TkTextBTree tree;		/* Tree that lineIndex and charIndex refer
+				 * to. */
+    int lineIndex;		/* Index of desired line (0 means first
+				 * line of text). */
+    int charIndex;		/* Index of desired character. */
+    TkTextIndex *indexPtr;	/* Structure to fill in. */
+{
+    register TkTextSegment *segPtr;
+    int index;
+
+    indexPtr->tree = tree;
+    if (lineIndex < 0) {
+	lineIndex = 0;
+	charIndex = 0;
+    }
+    if (charIndex < 0) {
+	charIndex = 0;
+    }
+    indexPtr->linePtr = TkBTreeFindLine(tree, lineIndex);
+    if (indexPtr->linePtr == NULL) {
+	indexPtr->linePtr = TkBTreeFindLine(tree, TkBTreeNumLines(tree));
+	charIndex = 0;
+    }
+
+    /*
+     * Verify that the index is within the range of the line.
+     * If not, just use the index of the last character in the line.
+     */
+
+    for (index = 0, segPtr = indexPtr->linePtr->segPtr; ;
+	    segPtr = segPtr->nextPtr) {
+	if (segPtr == NULL) {
+	    indexPtr->charIndex = index-1;
+	    break;
+	}
+	index += segPtr->size;
+	if (index > charIndex) {
+	    indexPtr->charIndex = charIndex;
+	    break;
+	}
+    }
+    return indexPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextIndexToSeg --
+ *
+ *	Given an index, this procedure returns the segment and
+ *	offset within segment for the index.
+ *
+ * Results:
+ *	The return value is a pointer to the segment referred to
+ *	by indexPtr;  this will always be a segment with non-zero
+ *	size.  The variable at *offsetPtr is set to hold the
+ *	integer offset within the segment of the character
+ *	given by indexPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+TkTextSegment *
+TkTextIndexToSeg(indexPtr, offsetPtr)
+    TkTextIndex *indexPtr;		/* Text index. */
+    int *offsetPtr;			/* Where to store offset within
+					 * segment, or NULL if offset isn't
+					 * wanted. */
+{
+    register TkTextSegment *segPtr;
+    int offset;
+
+    for (offset = indexPtr->charIndex, segPtr = indexPtr->linePtr->segPtr;
+	    offset >= segPtr->size;
+	    offset -= segPtr->size, segPtr = segPtr->nextPtr) {
+	/* Empty loop body. */
+    }
+    if (offsetPtr != NULL) {
+	*offsetPtr = offset;
+    }
+    return segPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextSegToOffset --
+ *
+ *	Given a segment pointer and the line containing it, this
+ *	procedure returns the offset of the segment within its
+ *	line.
+ *
+ * Results:
+ *	The return value is the offset (within its line) of the
+ *	first character in segPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextSegToOffset(segPtr, linePtr)
+    TkTextSegment *segPtr;		/* Segment whose offset is desired. */
+    TkTextLine *linePtr;		/* Line containing segPtr. */
+{
+    TkTextSegment *segPtr2;
+    int offset;
+
+    offset = 0;
+    for (segPtr2 = linePtr->segPtr; segPtr2 != segPtr;
+	    segPtr2 = segPtr2->nextPtr) {
+	offset += segPtr2->size;
+    }
+    return offset;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextGetIndex --
+ *
+ *	Given a string, return the line and character indices that
+ *	it describes.
+ *
+ * Results:
+ *	The return value is a standard Tcl return result.  If
+ *	TCL_OK is returned, then everything went well and the index
+ *	at *indexPtr is filled in;  otherwise TCL_ERROR is returned
+ *	and an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkTextGetIndex(interp, textPtr, string, indexPtr)
+    Tcl_Interp *interp;		/* Use this for error reporting. */
+    TkText *textPtr;		/* Information about text widget. */
+    char *string;		/* Textual description of position. */
+    TkTextIndex *indexPtr;	/* Index structure to fill in. */
+{
+    register char *p;
+    char *end, *endOfBase;
+    Tcl_HashEntry *hPtr;
+    TkTextTag *tagPtr;
+    TkTextSearch search;
+    TkTextIndex first, last;
+    int wantLast, result;
+    char c;
+
+    /*
+     *---------------------------------------------------------------------
+     * Stage 1: check to see if the index consists of nothing but a mar
+     * name.  We do this check now even though it's also done later, in
+     * order to allow mark names that include funny characters such as
+     * spaces or "+1c".
+     *---------------------------------------------------------------------
+     */
+
+    if (TkTextMarkNameToIndex(textPtr, string, indexPtr) == TCL_OK) {
+	return TCL_OK;
+    }
+
+    /*
+     *------------------------------------------------
+     * Stage 2: start again by parsing the base index.
+     *------------------------------------------------
+     */
+
+    indexPtr->tree = textPtr->tree;
+
+    /*
+     * First look for the form "tag.first" or "tag.last" where "tag"
+     * is the name of a valid tag.  Try to use up as much as possible
+     * of the string in this check (strrchr instead of strchr below).
+     * Doing the check now, and in this way, allows tag names to include
+     * funny characters like "@" or "+1c".
+     */
+
+    p = strrchr(string, '.');
+    if (p != NULL) {
+	if ((p[1] == 'f') && (strncmp(p+1, "first", 5) == 0)) {
+	    wantLast = 0;
+	    endOfBase = p+6;
+	} else if ((p[1] == 'l') && (strncmp(p+1, "last", 4) == 0)) {
+	    wantLast = 1;
+	    endOfBase = p+5;
+	} else {
+	    goto tryxy;
+	}
+	*p = 0;
+	hPtr = Tcl_FindHashEntry(&textPtr->tagTable, string);
+	*p = '.';
+	if (hPtr == NULL) {
+	    goto tryxy;
+	}
+	tagPtr = (TkTextTag *) Tcl_GetHashValue(hPtr);
+	TkTextMakeIndex(textPtr->tree, 0, 0, &first);
+	TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree), 0,
+		&last);
+	TkBTreeStartSearch(&first, &last, tagPtr, &search);
+	if (!TkBTreeCharTagged(&first, tagPtr) && !TkBTreeNextTag(&search)) {
+	    Tcl_AppendResult(interp,
+		    "text doesn't contain any characters tagged with \"",
+		    Tcl_GetHashKey(&textPtr->tagTable, hPtr), "\"",
+			    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	*indexPtr = search.curIndex;
+	if (wantLast) {
+	    while (TkBTreeNextTag(&search)) {
+		*indexPtr = search.curIndex;
+	    }
+	}
+	goto gotBase;
+    }
+
+    tryxy:
+    if (string[0] == '@') {
+	/*
+	 * Find character at a given x,y location in the window.
+	 */
+
+	int x, y;
+
+	p = string+1;
+	x = strtol(p, &end, 0);
+	if ((end == p) || (*end != ',')) {
+	    goto error;
+	}
+	p = end+1;
+	y = strtol(p, &end, 0);
+	if (end == p) {
+	    goto error;
+	}
+	TkTextPixelIndex(textPtr, x, y, indexPtr);
+	endOfBase = end;
+	goto gotBase; 
+    }
+#ifdef STk_CODE
+    if (string[0] == '(' && isdigit(UCHAR(string[1])) || (string[1] == '-')) {
+	int lineIndex, charIndex;
+
+	/*
+	 * Base is identified as a Scheme pair
+	 */
+
+	lineIndex = strtol(string+1, &end, 0) - 1;
+	if ((end == string+1) || (strncmp(end, " . ", 3) != 0)) {
+	    goto error;
+	}
+	p = end+3; string = 0;
+	if ((*p == 'e')   && (strncmp(p, "end)", 4) == 0)) {
+	    charIndex = LAST_CHAR;
+	    endOfBase = p+4;
+	} else if ((*p == '\"')  && (strncmp(p, "\"end\")", 6) == 0)) {
+	    charIndex = LAST_CHAR;
+	    endOfBase = p+6;
+	} else {
+	    charIndex = strtol(p, &end, 0);
+	    if (end == p || *end != ')') {
+		goto error;
+	    }
+	    endOfBase = end+1;
+	}
+	TkTextMakeIndex(textPtr->tree, lineIndex, charIndex, indexPtr);
+	goto gotBase;
+    }
+#endif
+    if (isdigit(UCHAR(string[0])) || (string[0] == '-')) {
+	int lineIndex, charIndex;
+
+	/*
+	 * Base is identified with line and character indices.
+	 */
+
+	lineIndex = strtol(string, &end, 0) - 1;
+	if ((end == string) || (*end != '.')) {
+	    goto error;
+	}
+	p = end+1;
+	if ((*p == 'e') && (strncmp(p, "end", 3) == 0)) {
+	    charIndex = LAST_CHAR;
+	    endOfBase = p+3;
+	} else {
+	    charIndex = strtol(p, &end, 0);
+	    if (end == p) {
+		goto error;
+	    }
+	    endOfBase = end;
+	}
+	TkTextMakeIndex(textPtr->tree, lineIndex, charIndex, indexPtr);
+	goto gotBase;
+    }
+
+    for (p = string; *p != 0; p++) {
+	if (isspace(UCHAR(*p)) || (*p == '+') || (*p == '-')) {
+	    break;
+	}
+    }
+    endOfBase = p;
+    if (string[0] == '.') {
+	/*
+	 * See if the base position is the name of an embedded window.
+	 */
+
+	c = *endOfBase;
+	*endOfBase = 0;
+	result = TkTextWindowIndex(textPtr, string, indexPtr);
+	*endOfBase = c;
+	if (result != 0) {
+	    goto gotBase;
+	}
+    }
+    if ((string[0] == 'e')
+	    && (strncmp(string, "end", (size_t) (endOfBase-string)) == 0)) {
+	/*
+	 * Base position is end of text.
+	 */
+
+	TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
+		0, indexPtr);
+	goto gotBase;
+    } else {
+	/*
+	 * See if the base position is the name of a mark.
+	 */
+
+	c = *endOfBase;
+	*endOfBase = 0;
+	result = TkTextMarkNameToIndex(textPtr, string, indexPtr);
+	*endOfBase = c;
+	if (result == TCL_OK) {
+	    goto gotBase;
+	}
+    }
+    goto error;
+
+    /*
+     *-------------------------------------------------------------------
+     * Stage 3: process zero or more modifiers.  Each modifier is either
+     * a keyword like "wordend" or "linestart", or it has the form
+     * "op count units" where op is + or -, count is a number, and units
+     * is "chars" or "lines".
+     *-------------------------------------------------------------------
+     */
+
+    gotBase:
+    p = endOfBase;
+    while (1) {
+	while (isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (*p == 0) {
+	    break;
+	}
+    
+	if ((*p == '+') || (*p == '-')) {
+	    p = ForwBack(p, indexPtr);
+	} else {
+	    p = StartEnd(p, indexPtr);
+	}
+	if (p == NULL) {
+	    goto error;
+	}
+    }
+    return TCL_OK;
+
+    error:
+    Tcl_AppendResult(interp, "bad text index \"", string, "\"",
+	    (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextPrintIndex --
+ *
+ *	
+ *	This procedure generates a string description of an index,
+ *	suitable for reading in again later.
+ *
+ * Results:
+ *	The characters pointed to by string are modified.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextPrintIndex(indexPtr, string)
+    TkTextIndex *indexPtr;	/* Pointer to index. */
+    char *string;		/* Place to store the position.  Must have
+				 * at least TK_POS_CHARS characters. */
+{
+#ifdef STk_CODE
+    sprintf(string, "(%d . %d)", TkBTreeLineIndex(indexPtr->linePtr) + 1,
+#else
+    sprintf(string, "%d.%d", TkBTreeLineIndex(indexPtr->linePtr) + 1,
+#endif
+	    indexPtr->charIndex);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextIndexCmp --
+ *
+ *	Compare two indices to see which one is earlier in
+ *	the text.
+ *
+ * Results:
+ *	The return value is 0 if index1Ptr and index2Ptr refer
+ *	to the same position in the file, -1 if index1Ptr refers
+ *	to an earlier position than index2Ptr, and 1 otherwise.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextIndexCmp(index1Ptr, index2Ptr)
+    TkTextIndex *index1Ptr;		/* First index. */
+    TkTextIndex *index2Ptr;		/* Second index. */
+{
+    int line1, line2;
+
+    if (index1Ptr->linePtr == index2Ptr->linePtr) {
+	if (index1Ptr->charIndex < index2Ptr->charIndex) {
+	    return -1;
+	} else if (index1Ptr->charIndex > index2Ptr->charIndex) {
+	    return 1;
+	} else {
+	    return 0;
+	}
+    }
+    line1 = TkBTreeLineIndex(index1Ptr->linePtr);
+    line2 = TkBTreeLineIndex(index2Ptr->linePtr);
+    if (line1 < line2) {
+	return -1;
+    }
+    if (line1 > line2) {
+	return 1;
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ForwBack --
+ *
+ *	This procedure handles +/- modifiers for indices to adjust
+ *	the index forwards or backwards.
+ *
+ * Results:
+ *	If the modifier in string is successfully parsed then the
+ *	return value is the address of the first character after the
+ *	modifier, and *indexPtr is updated to reflect the modifier.
+ *	If there is a syntax error in the modifier then NULL is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static char *
+ForwBack(string, indexPtr)
+    char *string;		/* String to parse for additional info
+				 * about modifier (count and units). 
+				 * Points to "+" or "-" that starts
+				 * modifier. */
+    TkTextIndex *indexPtr;	/* Index to update as specified in string. */
+{
+    register char *p;
+    char *end, *units;
+    int count, lineIndex;
+    size_t length;
+
+    /*
+     * Get the count (how many units forward or backward).
+     */
+
+    p = string+1;
+    while (isspace(UCHAR(*p))) {
+	p++;
+    }
+    count = strtol(p, &end, 0);
+    if (end == p) {
+	return NULL;
+    }
+    p = end;
+    while (isspace(UCHAR(*p))) {
+	p++;
+    }
+
+    /*
+     * Find the end of this modifier (next space or + or - character),
+     * then parse the unit specifier and update the position
+     * accordingly.
+     */
+
+    units = p; 
+    while ((*p != 0) && !isspace(UCHAR(*p)) && (*p != '+') && (*p != '-')) {
+	p++;
+    }
+    length = p - units;
+    if ((*units == 'c') && (strncmp(units, "chars", length) == 0)) {
+	if (*string == '+') {
+	    TkTextIndexForwChars(indexPtr, count, indexPtr);
+	} else {
+	    TkTextIndexBackChars(indexPtr, count, indexPtr);
+	}
+    } else if ((*units == 'l') && (strncmp(units, "lines", length) == 0)) {
+	lineIndex = TkBTreeLineIndex(indexPtr->linePtr);
+	if (*string == '+') {
+	    lineIndex += count;
+	} else {
+	    lineIndex -= count;
+
+	    /*
+	     * The check below retains the character position, even
+	     * if the line runs off the start of the file.  Without
+	     * it, the character position will get reset to 0 by
+	     * TkTextMakeIndex.
+	     */
+
+	    if (lineIndex < 0) {
+		lineIndex = 0;
+	    }
+	}
+	TkTextMakeIndex(indexPtr->tree, lineIndex, indexPtr->charIndex,
+		indexPtr);
+    } else {
+	return NULL;
+    }
+    return p;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextIndexForwChars --
+ *
+ *	Given an index for a text widget, this procedure creates a
+ *	new index that points "count" characters ahead of the source
+ *	index.
+ *
+ * Results:
+ *	*dstPtr is modified to refer to the character "count" characters
+ *	after srcPtr, or to the last character in the file if there aren't
+ *	"count" characters left in the file.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkTextIndexForwChars(srcPtr, count, dstPtr)
+    TkTextIndex *srcPtr;		/* Source index. */
+    int count;				/* How many characters forward to
+					 * move.  May be negative. */
+    TkTextIndex *dstPtr;		/* Destination index: gets modified. */
+{
+    TkTextLine *linePtr;
+    TkTextSegment *segPtr;
+    int lineLength;
+
+    if (count < 0) {
+	TkTextIndexBackChars(srcPtr, -count, dstPtr);
+	return;
+    }
+
+    *dstPtr = *srcPtr;
+    dstPtr->charIndex += count;
+    while (1) {
+	/*
+	 * Compute the length of the current line.
+	 */
+
+	lineLength = 0;
+	for (segPtr = dstPtr->linePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    lineLength += segPtr->size;
+	}
+
+	/*
+	 * If the new index is in the same line then we're done.
+	 * Otherwise go on to the next line.
+	 */
+
+	if (dstPtr->charIndex < lineLength) {
+	    return;
+	}
+	dstPtr->charIndex -= lineLength;
+	linePtr = TkBTreeNextLine(dstPtr->linePtr);
+	if (linePtr == NULL) {
+	    dstPtr->charIndex = lineLength - 1;
+	    return;
+	}
+	dstPtr->linePtr = linePtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextIndexBackChars --
+ *
+ *	Given an index for a text widget, this procedure creates a
+ *	new index that points "count" characters earlier than the
+ *	source index.
+ *
+ * Results:
+ *	*dstPtr is modified to refer to the character "count" characters
+ *	before srcPtr, or to the first character in the file if there aren't
+ *	"count" characters earlier than srcPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextIndexBackChars(srcPtr, count, dstPtr)
+    TkTextIndex *srcPtr;		/* Source index. */
+    int count;				/* How many characters backward to
+					 * move.  May be negative. */
+    TkTextIndex *dstPtr;		/* Destination index: gets modified. */
+{
+    TkTextSegment *segPtr;
+    int lineIndex;
+
+    if (count < 0) {
+	TkTextIndexForwChars(srcPtr, -count, dstPtr);
+	return;
+    }
+
+    *dstPtr = *srcPtr;
+    dstPtr->charIndex -= count;
+    lineIndex = -1;
+    while (dstPtr->charIndex < 0) {
+	/*
+	 * Move back one line in the text.  If we run off the beginning
+	 * of the file then just return the first character in the text.
+	 */
+
+	if (lineIndex < 0) {
+	    lineIndex = TkBTreeLineIndex(dstPtr->linePtr);
+	}
+	if (lineIndex == 0) {
+	    dstPtr->charIndex = 0;
+	    return;
+	}
+	lineIndex--;
+	dstPtr->linePtr = TkBTreeFindLine(dstPtr->tree, lineIndex);
+
+	/*
+	 * Compute the length of the line and add that to dstPtr->charIndex.
+	 */
+
+	for (segPtr = dstPtr->linePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    dstPtr->charIndex += segPtr->size;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * StartEnd --
+ *
+ *	This procedure handles modifiers like "wordstart" and "lineend"
+ *	to adjust indices forwards or backwards.
+ *
+ * Results:
+ *	If the modifier is successfully parsed then the return value
+ *	is the address of the first character after the modifier, and
+ *	*indexPtr is updated to reflect the modifier. If there is a
+ *	syntax error in the modifier then NULL is returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static char *
+StartEnd(string, indexPtr)
+    char *string;		/* String to parse for additional info
+				 * about modifier (count and units). 
+				 * Points to first character of modifer
+				 * word. */
+    TkTextIndex *indexPtr;	/* Index to mdoify based on string. */
+{
+    char *p;
+    int c, offset;
+    size_t length;
+    register TkTextSegment *segPtr;
+
+    /*
+     * Find the end of the modifier word.
+     */
+
+    for (p = string; isalnum(UCHAR(*p)); p++) {
+	/* Empty loop body. */
+    }
+    length = p-string;
+    if ((*string == 'l') && (strncmp(string, "lineend", length) == 0)
+	    && (length >= 5)) {
+	indexPtr->charIndex = 0;
+	for (segPtr = indexPtr->linePtr->segPtr; segPtr != NULL;
+		segPtr = segPtr->nextPtr) {
+	    indexPtr->charIndex += segPtr->size;
+	}
+	indexPtr->charIndex -= 1;
+    } else if ((*string == 'l') && (strncmp(string, "linestart", length) == 0)
+	    && (length >= 5)) {
+	indexPtr->charIndex = 0;
+    } else if ((*string == 'w') && (strncmp(string, "wordend", length) == 0)
+	    && (length >= 5)) {
+	int firstChar = 1;
+
+	/*
+	 * If the current character isn't part of a word then just move
+	 * forward one character.  Otherwise move forward until finding
+	 * a character that isn't part of a word and stop there.
+	 */
+
+	segPtr = TkTextIndexToSeg(indexPtr, &offset);
+	while (1) {
+	    if (segPtr->typePtr == &tkTextCharType) {
+		c = segPtr->body.chars[offset];
+		if (!isalnum(UCHAR(c)) && (c != '_')) {
+		    break;
+		}
+		firstChar = 0;
+	    }
+	    offset += 1;
+	    indexPtr->charIndex += 1;
+	    if (offset >= segPtr->size) {
+		segPtr = TkTextIndexToSeg(indexPtr, &offset);
+	    }
+	}
+	if (firstChar) {
+	    TkTextIndexForwChars(indexPtr, 1, indexPtr);
+	}
+    } else if ((*string == 'w') && (strncmp(string, "wordstart", length) == 0)
+	    && (length >= 5)) {
+	int firstChar = 1;
+
+	/*
+	 * Starting with the current character, look for one that's not
+	 * part of a word and keep moving backward until you find one.
+	 * Then if the character found wasn't the first one, move forward
+	 * again one position.
+	 */
+
+	segPtr = TkTextIndexToSeg(indexPtr, &offset);
+	while (1) {
+	    if (segPtr->typePtr == &tkTextCharType) {
+		c = segPtr->body.chars[offset];
+		if (!isalnum(UCHAR(c)) && (c != '_')) {
+		    break;
+		}
+		firstChar = 0;
+	    }
+	    offset -= 1;
+	    indexPtr->charIndex -= 1;
+	    if (offset < 0) {
+		if (indexPtr->charIndex < 0) {
+		    indexPtr->charIndex = 0;
+		    goto done;
+		}
+		segPtr = TkTextIndexToSeg(indexPtr, &offset);
+	    }
+	}
+	if (!firstChar) {
+	    TkTextIndexForwChars(indexPtr, 1, indexPtr);
+	}
+    } else {
+	return NULL;
+    }
+    done:
+    return p;
+}
diff --git a/Tk/generic/tkTextMark.c b/Tk/generic/tkTextMark.c
new file mode 100644
index 0000000..a308aaa
--- /dev/null
+++ b/Tk/generic/tkTextMark.c
@@ -0,0 +1,781 @@
+/* 
+ * tkTextMark.c --
+ *
+ *	This file contains the procedure that implement marks for
+ *	text widgets.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextMark.c 1.15 96/02/15 18:52:59
+ */
+
+#include "tkInt.h"
+#include "tkText.h"
+#include "tkPort.h"
+
+/*
+ * Macro that determines the size of a mark segment:
+ */
+
+#define MSEG_SIZE ((unsigned) (Tk_Offset(TkTextSegment, body) \
+	+ sizeof(TkTextMark)))
+
+/*
+ * Forward references for procedures defined in this file:
+ */
+
+static void		InsertUndisplayProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextDispChunk *chunkPtr));
+static int		MarkDeleteProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr, int treeGone));
+static TkTextSegment *	MarkCleanupProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static void		MarkCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static int		MarkLayoutProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, TkTextSegment *segPtr,
+			    int offset, int maxX, int maxChars,
+			    int noCharsYet, Tk_Uid wrapMode,
+			    TkTextDispChunk *chunkPtr));
+static int		MarkFindNext _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, char *markName));
+static int		MarkFindPrev _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, char *markName));
+
+
+/*
+ * The following structures declare the "mark" segment types.
+ * There are actually two types for marks, one with left gravity
+ * and one with right gravity.  They are identical except for
+ * their gravity property.
+ */
+
+Tk_SegType tkTextRightMarkType = {
+    "mark",					/* name */
+    0,						/* leftGravity */
+    (Tk_SegSplitProc *) NULL,			/* splitProc */
+    MarkDeleteProc,				/* deleteProc */
+    MarkCleanupProc,				/* cleanupProc */
+    (Tk_SegLineChangeProc *) NULL,		/* lineChangeProc */
+    MarkLayoutProc,				/* layoutProc */
+    MarkCheckProc				/* checkProc */
+};
+
+Tk_SegType tkTextLeftMarkType = {
+    "mark",					/* name */
+    1,						/* leftGravity */
+    (Tk_SegSplitProc *) NULL,			/* splitProc */
+    MarkDeleteProc,				/* deleteProc */
+    MarkCleanupProc,				/* cleanupProc */
+    (Tk_SegLineChangeProc *) NULL,		/* lineChangeProc */
+    MarkLayoutProc,				/* layoutProc */
+    MarkCheckProc				/* checkProc */
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextMarkCmd --
+ *
+ *	This procedure is invoked to process the "mark" options of
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextMarkCmd(textPtr, interp, argc, argv)
+    register TkText *textPtr;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "mark". */
+{
+    int c, i;
+    size_t length;
+    Tcl_HashEntry *hPtr;
+    TkTextSegment *markPtr;
+    Tcl_HashSearch search;
+    TkTextIndex index;
+    Tk_SegType *newTypePtr;
+
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " mark option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[2][0];
+    length = strlen(argv[2]);
+    if ((c == 'g') && (strncmp(argv[2], "gravity", length) == 0)) {
+	if (argc > 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " mark gravity markName ?gravity?",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	hPtr = Tcl_FindHashEntry(&textPtr->markTable, argv[3]);
+	if (hPtr == NULL) {
+	    Tcl_AppendResult(interp, "there is no mark named \"",
+		    argv[3], "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	markPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+	if (argc == 4) {
+	    if (markPtr->typePtr == &tkTextRightMarkType) {
+#ifdef STk_CODE
+		interp->result = "\"right\"";
+	    } else {
+		interp->result = "\"left\"";
+#else
+		interp->result = "right";
+	    } else {
+		interp->result = "left";
+#endif
+	    }
+	    return TCL_OK;
+	}
+	length = strlen(argv[4]);
+	c = argv[4][0];
+	if ((c == 'l') && (strncmp(argv[4], "left", length) == 0)) {
+	    newTypePtr = &tkTextLeftMarkType;
+	} else if ((c == 'r') && (strncmp(argv[4], "right", length) == 0)) {
+	    newTypePtr = &tkTextRightMarkType;
+	} else {
+	    Tcl_AppendResult(interp, "bad mark gravity \"",
+		    argv[4], "\": must be left or right", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	TkTextMarkSegToIndex(textPtr, markPtr, &index);
+	TkBTreeUnlinkSegment(textPtr->tree, markPtr,
+		markPtr->body.mark.linePtr);
+	markPtr->typePtr = newTypePtr;
+	TkBTreeLinkSegment(markPtr, &index);
+    } else if ((c == 'n') && (strncmp(argv[2], "names", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " mark names\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	for (hPtr = Tcl_FirstHashEntry(&textPtr->markTable, &search);
+		hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	    Tcl_AppendElement(interp,
+		    Tcl_GetHashKey(&textPtr->markTable, hPtr));
+	}
+    } else if ((c == 'n') && (strncmp(argv[2], "next", length) == 0)) {
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " mark next index\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return MarkFindNext(interp, textPtr, argv[3]);
+    } else if ((c == 'p') && (strncmp(argv[2], "previous", length) == 0)) {
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " mark previous index\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return MarkFindPrev(interp, textPtr, argv[3]);
+    } else if ((c == 's') && (strncmp(argv[2], "set", length) == 0)) {
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " mark set markName index\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[4], &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	TkTextSetMark(textPtr, argv[3], &index);
+    } else if ((c == 'u') && (strncmp(argv[2], "unset", length) == 0)) {
+	for (i = 3; i < argc; i++) {
+	    hPtr = Tcl_FindHashEntry(&textPtr->markTable, argv[i]);
+	    if (hPtr != NULL) {
+		markPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+		if ((markPtr == textPtr->insertMarkPtr)
+			|| (markPtr == textPtr->currentMarkPtr)) {
+		    continue;
+		}
+		TkBTreeUnlinkSegment(textPtr->tree, markPtr,
+			markPtr->body.mark.linePtr);
+		Tcl_DeleteHashEntry(hPtr);
+		ckfree((char *) markPtr);
+	    }
+	}
+    } else {
+	Tcl_AppendResult(interp, "bad mark option \"", argv[2],
+		"\": must be gravity, names, next, previous, set, or unset",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextSetMark --
+ *
+ *	Set a mark to a particular position, creating a new mark if
+ *	one doesn't already exist.
+ *
+ * Results:
+ *	The return value is a pointer to the mark that was just set.
+ *
+ * Side effects:
+ *	A new mark is created, or an existing mark is moved.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextSegment *
+TkTextSetMark(textPtr, name, indexPtr)
+    TkText *textPtr;		/* Text widget in which to create mark. */
+    char *name;			/* Name of mark to set. */
+    TkTextIndex *indexPtr;	/* Where to set mark. */
+{
+    Tcl_HashEntry *hPtr;
+    TkTextSegment *markPtr;
+    TkTextIndex insertIndex;
+    int new;
+
+    hPtr = Tcl_CreateHashEntry(&textPtr->markTable, name, &new);
+    markPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+    if (!new) {
+	/*
+	 * If this is the insertion point that's being moved, be sure
+	 * to force a display update at the old position.  Also, don't
+	 * let the insertion cursor be after the final newline of the
+	 * file.
+	 */
+
+	if (markPtr == textPtr->insertMarkPtr) {
+	    TkTextIndex index, index2;
+	    TkTextMarkSegToIndex(textPtr, textPtr->insertMarkPtr, &index);
+	    TkTextIndexForwChars(&index, 1, &index2);
+	    TkTextChanged(textPtr, &index, &index2);
+	    if (TkBTreeLineIndex(indexPtr->linePtr)
+		    == TkBTreeNumLines(textPtr->tree))  {
+		TkTextIndexBackChars(indexPtr, 1, &insertIndex);
+		indexPtr = &insertIndex;
+	    }
+	}
+	TkBTreeUnlinkSegment(textPtr->tree, markPtr,
+		markPtr->body.mark.linePtr);
+    } else {
+	markPtr = (TkTextSegment *) ckalloc(MSEG_SIZE);
+	markPtr->typePtr = &tkTextRightMarkType;
+	markPtr->size = 0;
+	markPtr->body.mark.textPtr = textPtr;
+	markPtr->body.mark.linePtr = indexPtr->linePtr;
+	markPtr->body.mark.hPtr = hPtr;
+	Tcl_SetHashValue(hPtr, markPtr);
+    }
+    TkBTreeLinkSegment(markPtr, indexPtr);
+
+    /*
+     * If the mark is the insertion cursor, then update the screen at the
+     * mark's new location.
+     */
+
+    if (markPtr == textPtr->insertMarkPtr) {
+	TkTextIndex index2;
+
+	TkTextIndexForwChars(indexPtr, 1, &index2);
+	TkTextChanged(textPtr, indexPtr, &index2);
+    }
+    return markPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextMarkSegToIndex --
+ *
+ *	Given a segment that is a mark, create an index that
+ *	refers to the next text character (or other text segment
+ *	with non-zero size) after the mark.
+ *
+ * Results:
+ *	*IndexPtr is filled in with index information.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkTextMarkSegToIndex(textPtr, markPtr, indexPtr)
+    TkText *textPtr;		/* Text widget containing mark. */
+    TkTextSegment *markPtr;	/* Mark segment. */
+    TkTextIndex *indexPtr;	/* Index information gets stored here.  */
+{
+    TkTextSegment *segPtr;
+
+    indexPtr->tree = textPtr->tree;
+    indexPtr->linePtr = markPtr->body.mark.linePtr;
+    indexPtr->charIndex = 0;
+    for (segPtr = indexPtr->linePtr->segPtr; segPtr != markPtr;
+	    segPtr = segPtr->nextPtr) {
+	indexPtr->charIndex += segPtr->size;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextMarkNameToIndex --
+ *
+ *	Given the name of a mark, return an index corresponding
+ *	to the mark name.
+ *
+ * Results:
+ *	The return value is TCL_OK if "name" exists as a mark in
+ *	the text widget.  In this case *indexPtr is filled in with
+ *	the next segment whose after the mark whose size is
+ *	non-zero.  TCL_ERROR is returned if the mark doesn't exist
+ *	in the text widget.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextMarkNameToIndex(textPtr, name, indexPtr)
+    TkText *textPtr;		/* Text widget containing mark. */
+    char *name;			/* Name of mark. */
+    TkTextIndex *indexPtr;	/* Index information gets stored here. */
+{
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&textPtr->markTable, name);
+    if (hPtr == NULL) {
+	return TCL_ERROR;
+    }
+    TkTextMarkSegToIndex(textPtr, (TkTextSegment *) Tcl_GetHashValue(hPtr),
+	    indexPtr);
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkDeleteProc --
+ *
+ *	This procedure is invoked by the text B-tree code whenever
+ *	a mark lies in a range of characters being deleted.
+ *
+ * Results:
+ *	Returns 1 to indicate that deletion has been rejected.
+ *
+ * Side effects:
+ *	None (even if the whole tree is being deleted we don't
+ *	free up the mark;  it will be done elsewhere).
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+MarkDeleteProc(segPtr, linePtr, treeGone)
+    TkTextSegment *segPtr;		/* Segment being deleted. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+    int treeGone;			/* Non-zero means the entire tree is
+					 * being deleted, so everything must
+					 * get cleaned up. */
+{
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkCleanupProc --
+ *
+ *	This procedure is invoked by the B-tree code whenever a
+ *	mark segment is moved from one line to another.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The linePtr field of the segment gets updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkTextSegment *
+MarkCleanupProc(markPtr, linePtr)
+    TkTextSegment *markPtr;		/* Mark segment that's being moved. */
+    TkTextLine *linePtr;		/* Line that now contains segment. */
+{
+    markPtr->body.mark.linePtr = linePtr;
+    return markPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkLayoutProc --
+ *
+ *	This procedure is the "layoutProc" for mark segments.
+ *
+ * Results:
+ *	If the mark isn't the insertion cursor then the return
+ *	value is -1 to indicate that this segment shouldn't be
+ *	displayed.  If the mark is the insertion character then
+ *	1 is returned and the chunkPtr structure is filled in.
+ *
+ * Side effects:
+ *	None, except for filling in chunkPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/*ARGSUSED*/
+static int
+MarkLayoutProc(textPtr, indexPtr, segPtr, offset, maxX, maxChars,
+	noCharsYet, wrapMode, chunkPtr)
+    TkText *textPtr;		/* Text widget being layed out. */
+    TkTextIndex *indexPtr;	/* Identifies first character in chunk. */
+    TkTextSegment *segPtr;	/* Segment corresponding to indexPtr. */
+    int offset;			/* Offset within segPtr corresponding to
+				 * indexPtr (always 0). */
+    int maxX;			/* Chunk must not occupy pixels at this
+				 * position or higher. */
+    int maxChars;		/* Chunk must not include more than this
+				 * many characters. */
+    int noCharsYet;		/* Non-zero means no characters have been
+				 * assigned to this line yet. */
+    Tk_Uid wrapMode;		/* Not used. */
+    register TkTextDispChunk *chunkPtr;
+				/* Structure to fill in with information
+				 * about this chunk.  The x field has already
+				 * been set by the caller. */
+{
+    if (segPtr != textPtr->insertMarkPtr) {
+	return -1;
+    }
+
+    chunkPtr->displayProc = TkTextInsertDisplayProc;
+    chunkPtr->undisplayProc = InsertUndisplayProc;
+    chunkPtr->measureProc = (Tk_ChunkMeasureProc *) NULL;
+    chunkPtr->bboxProc = (Tk_ChunkBboxProc *) NULL;
+    chunkPtr->numChars = 0;
+    chunkPtr->minAscent = 0;
+    chunkPtr->minDescent = 0;
+    chunkPtr->minHeight = 0;
+    chunkPtr->width = 0;
+
+    /*
+     * Note: can't break a line after the insertion cursor:  this
+     * prevents the insertion cursor from being stranded at the end
+     * of a line.
+     */
+
+    chunkPtr->breakIndex = -1;
+    chunkPtr->clientData = (ClientData) textPtr;
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextInsertDisplayProc --
+ *
+ *	This procedure is called to display the insertion
+ *	cursor.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Graphics are drawn.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkTextInsertDisplayProc(chunkPtr, x, y, height, baseline, display, dst, screenY)
+    TkTextDispChunk *chunkPtr;		/* Chunk that is to be drawn. */
+    int x;				/* X-position in dst at which to
+					 * draw this chunk (may differ from
+					 * the x-position in the chunk because
+					 * of scrolling). */
+    int y;				/* Y-position at which to draw this
+					 * chunk in dst (x-position is in
+					 * the chunk itself). */
+    int height;				/* Total height of line. */
+    int baseline;			/* Offset of baseline from y. */
+    Display *display;			/* Display to use for drawing. */
+    Drawable dst;			/* Pixmap or window in which to draw
+					 * chunk. */
+    int screenY;			/* Y-coordinate in text window that
+					 * corresponds to y. */
+{
+    TkText *textPtr = (TkText *) chunkPtr->clientData;
+    int halfWidth = textPtr->insertWidth/2;
+
+    if ((x + halfWidth) <= 0) {
+	/*
+	 * The insertion cursor is off-screen.  Just return.
+	 */
+
+	return;
+    }
+
+    /*
+     * As a special hack to keep the cursor visible on mono displays
+     * (or anywhere else that the selection and insertion cursors
+     * have the same color) write the default background in the cursor
+     * area (instead of nothing) when the cursor isn't on.  Otherwise
+     * the selection might hide the cursor.
+     */
+
+    if (textPtr->flags & INSERT_ON) {
+	Tk_Fill3DRectangle(textPtr->tkwin, dst, textPtr->insertBorder,
+		x - textPtr->insertWidth/2, y, textPtr->insertWidth,
+		height, textPtr->insertBorderWidth, TK_RELIEF_RAISED);
+    } else if (textPtr->selBorder == textPtr->insertBorder) {
+	Tk_Fill3DRectangle(textPtr->tkwin, dst, textPtr->border,
+		x - textPtr->insertWidth/2, y, textPtr->insertWidth,
+		height, 0, TK_RELIEF_FLAT);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * InsertUndisplayProc --
+ *
+ *	This procedure is called when the insertion cursor is no
+ *	longer at a visible point on the display.  It does nothing
+ *	right now.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+InsertUndisplayProc(textPtr, chunkPtr)
+    TkText *textPtr;			/* Overall information about text
+					 * widget. */
+    TkTextDispChunk *chunkPtr;		/* Chunk that is about to be freed. */
+{
+    return;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkCheckProc --
+ *
+ *	This procedure is invoked by the B-tree code to perform
+ *	consistency checks on mark segments.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The procedure panics if it detects anything wrong with
+ *	the mark.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+MarkCheckProc(markPtr, linePtr)
+    TkTextSegment *markPtr;		/* Segment to check. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+{
+    Tcl_HashSearch search;
+    Tcl_HashEntry *hPtr;
+
+    if (markPtr->body.mark.linePtr != linePtr) {
+	panic("MarkCheckProc: markPtr->body.mark.linePtr bogus");
+    }
+
+    /*
+     * Make sure that the mark is still present in the text's mark
+     * hash table.
+     */
+
+    for (hPtr = Tcl_FirstHashEntry(&markPtr->body.mark.textPtr->markTable,
+	    &search); hPtr != markPtr->body.mark.hPtr;
+	    hPtr = Tcl_NextHashEntry(&search)) {
+	if (hPtr == NULL) {
+	    panic("MarkCheckProc couldn't find hash table entry for mark");
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkFindNext --
+ *
+ *	This procedure searches forward for the next mark.
+ *
+ * Results:
+ *	A standard Tcl result, which is a mark name or an empty string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+MarkFindNext(interp, textPtr, string)
+    Tcl_Interp *interp;			/* For error reporting */
+    TkText *textPtr;			/* The widget */
+    char *string;			/* The starting index or mark name */
+{
+    TkTextIndex index;
+    Tcl_HashEntry *hPtr;
+    register TkTextSegment *segPtr;
+    int offset;
+
+
+    hPtr = Tcl_FindHashEntry(&textPtr->markTable, string);
+    if (hPtr != NULL) {
+	/*
+	 * If given a mark name, return the next mark in the list of
+	 * segments, even if it happens to be at the same character position.
+	 */
+	segPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+	TkTextMarkSegToIndex(textPtr, segPtr, &index);
+	segPtr = segPtr->nextPtr;
+    } else {
+	/*
+	 * For non-mark name indices we want to return any marks that
+	 * are right at the index.
+	 */
+	if (TkTextGetIndex(interp, textPtr, string, &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	for (offset = 0, segPtr = index.linePtr->segPtr; 
+		segPtr != NULL && offset < index.charIndex;
+		offset += segPtr->size,	segPtr = segPtr->nextPtr) {
+	    /* Empty loop body */ ;
+	}
+    }
+    while (1) {
+	/*
+	 * segPtr points at the first possible candidate,
+	 * or NULL if we ran off the end of the line.
+	 */
+	for ( ; segPtr != NULL ; segPtr = segPtr->nextPtr) {
+	    if (segPtr->typePtr == &tkTextRightMarkType ||
+		    segPtr->typePtr == &tkTextLeftMarkType) {
+		Tcl_SetResult(interp,
+		    Tcl_GetHashKey(&textPtr->markTable, segPtr->body.mark.hPtr),
+		    TCL_STATIC);
+		return TCL_OK;
+	    }
+	}
+	index.linePtr = TkBTreeNextLine(index.linePtr);
+	if (index.linePtr == (TkTextLine *) NULL) {
+	    return TCL_OK;
+	}
+	index.charIndex = 0;
+	segPtr = index.linePtr->segPtr;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * MarkFindPrev --
+ *
+ *	This procedure searches backwards for the previous mark.
+ *
+ * Results:
+ *	A standard Tcl result, which is a mark name or an empty string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+MarkFindPrev(interp, textPtr, string)
+    Tcl_Interp *interp;			/* For error reporting */
+    TkText *textPtr;			/* The widget */
+    char *string;			/* The starting index or mark name */
+{
+    TkTextIndex index;
+    Tcl_HashEntry *hPtr;
+    register TkTextSegment *segPtr, *seg2Ptr, *prevPtr;
+    int offset;
+
+
+    hPtr = Tcl_FindHashEntry(&textPtr->markTable, string);
+    if (hPtr != NULL) {
+	/*
+	 * If given a mark name, return the previous mark in the list of
+	 * segments, even if it happens to be at the same character position.
+	 */
+	segPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+	TkTextMarkSegToIndex(textPtr, segPtr, &index);
+    } else {
+	/*
+	 * For non-mark name indices we do not return any marks that
+	 * are right at the index.
+	 */
+	if (TkTextGetIndex(interp, textPtr, string, &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	for (offset = 0, segPtr = index.linePtr->segPtr; 
+		segPtr != NULL && offset < index.charIndex;
+		offset += segPtr->size, segPtr = segPtr->nextPtr) {
+	    /* Empty loop body */ ;
+	}
+    }
+    while (1) {
+	/*
+	 * segPtr points just past the first possible candidate,
+	 * or at the begining of the line.
+	 */
+	for (prevPtr = NULL, seg2Ptr = index.linePtr->segPtr; 
+		seg2Ptr != NULL && seg2Ptr != segPtr;
+		seg2Ptr = seg2Ptr->nextPtr) {
+	    if (seg2Ptr->typePtr == &tkTextRightMarkType ||
+		    seg2Ptr->typePtr == &tkTextLeftMarkType) {
+		prevPtr = seg2Ptr;
+	    }
+	}
+	if (prevPtr != NULL) {
+	    Tcl_SetResult(interp, 
+		Tcl_GetHashKey(&textPtr->markTable, prevPtr->body.mark.hPtr),
+		TCL_STATIC);
+	    return TCL_OK;
+	}
+	index.linePtr = TkBTreePreviousLine(index.linePtr);
+	if (index.linePtr == (TkTextLine *) NULL) {
+	    return TCL_OK;
+	}
+	segPtr = NULL;
+    }
+}
diff --git a/Tk/generic/tkTextTag.c b/Tk/generic/tkTextTag.c
new file mode 100644
index 0000000..28f25af
--- /dev/null
+++ b/Tk/generic/tkTextTag.c
@@ -0,0 +1,1432 @@
+/* 
+ * tkTextTag.c --
+ *
+ *	This module implements the "tag" subcommand of the widget command
+ *	for text widgets, plus most of the other high-level functions
+ *	related to tags.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextTag.c 1.36 96/03/07 15:30:43
+ */
+
+#include "default.h"
+#include "tkPort.h"
+#include "tk.h"
+#include "tkText.h"
+
+/*
+ * Information used for parsing tag configuration information:
+ */
+
+static Tk_ConfigSpec tagConfigSpecs[] = {
+    {TK_CONFIG_BORDER, "-background", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, border), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-bgstipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, bgStipple), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-borderwidth", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-borderwidth", (char *) NULL, (char *) NULL,
+#endif
+	"0", Tk_Offset(TkTextTag, bdString),
+		TK_CONFIG_DONT_SET_DEFAULT|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_BITMAP, "-fgstipple", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, fgStipple), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, fontPtr), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_COLOR, "-foreground", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, fgColor), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-justify", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, justifyString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-lmargin1", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-lmargin1", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, lMargin1String), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-lmargin2", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-lmargin2", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, lMargin2String), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-offset", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-offset", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, offsetString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SBOOLEAN, "-overstrike", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-overstrike", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, overstrikeString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-relief", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, reliefString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-rmargin", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-rmargin", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, rMarginString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-spacing1", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-spacing1", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, spacing1String), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-spacing2", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-spacing2", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, spacing2String), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SINT, "-spacing3", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-spacing3", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, spacing3String), TK_CONFIG_NULL_OK},
+    {TK_CONFIG_STRING, "-tabs", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, tabString), TK_CONFIG_NULL_OK},
+#ifdef STk_CODE
+    {TK_CONFIG_SBOOLEAN, "-underline", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-underline", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextTag, underlineString),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_UID, "-wrap", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextTag, wrapMode),
+	TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void		ChangeTagPriority _ANSI_ARGS_((TkText *textPtr,
+			    TkTextTag *tagPtr, int prio));
+static TkTextTag *	FindTag _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkText *textPtr, char *tagName));
+static void		SortTags _ANSI_ARGS_((int numTags,
+			    TkTextTag **tagArrayPtr));
+static int		TagSortProc _ANSI_ARGS_((CONST VOID *first,
+			    CONST VOID *second));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextTagCmd --
+ *
+ *	This procedure is invoked to process the "tag" options of
+ *	the widget command for text widgets. See the user documentation
+ *	for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextTagCmd(textPtr, interp, argc, argv)
+    register TkText *textPtr;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "tag". */
+{
+    int c, i, addTag;
+    size_t length;
+    char *fullOption;
+    register TkTextTag *tagPtr;
+    TkTextIndex first, last, index1, index2;
+
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " tag option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[2][0];
+    length = strlen(argv[2]);
+    if ((c == 'a') && (strncmp(argv[2], "add", length) == 0)) {
+	fullOption = "add";
+	addTag = 1;
+
+	addAndRemove:
+	if (argc < 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag ", fullOption,
+		    " tagName index1 ?index2 index1 index2 ...?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = TkTextCreateTag(textPtr, argv[3]);
+	for (i = 4; i < argc; i += 2) {
+	    if (TkTextGetIndex(interp, textPtr, argv[i], &index1) != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    if (argc > (i+1)) {
+		if (TkTextGetIndex(interp, textPtr, argv[i+1], &index2)
+			!= TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (TkTextIndexCmp(&index1, &index2) >= 0) {
+		    return TCL_OK;
+		}
+	    } else {
+		index2 = index1;
+		TkTextIndexForwChars(&index2, 1, &index2);
+	    }
+    
+	    if (tagPtr->affectsDisplay) {
+		TkTextRedrawTag(textPtr, &index1, &index2, tagPtr, !addTag);
+	    } else {
+		/*
+		 * Still need to trigger enter/leave events on tags that
+		 * have changed.
+		 */
+    
+		TkTextEventuallyRepick(textPtr);
+	    }
+	    TkBTreeTag(&index1, &index2, tagPtr, addTag);
+    
+	    /*
+	     * If the tag is "sel" then grab the selection if we're supposed
+	     * to export it and don't already have it.  Also, invalidate
+	     * partially-completed selection retrievals.
+	     */
+    
+	    if (tagPtr == textPtr->selTagPtr) {
+		if (addTag && textPtr->exportSelection
+			&& !(textPtr->flags & GOT_SELECTION)) {
+		    Tk_OwnSelection(textPtr->tkwin, XA_PRIMARY,
+			    TkTextLostSelection, (ClientData) textPtr);
+		    textPtr->flags |= GOT_SELECTION;
+		}
+		textPtr->abortSelections = 1;
+	    }
+	}
+    } else if ((c == 'b') && (strncmp(argv[2], "bind", length) == 0)) {
+	if ((argc < 4) || (argc > 6)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag bind tagName ?sequence? ?command?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = TkTextCreateTag(textPtr, argv[3]);
+
+	/*
+	 * Make a binding table if the widget doesn't already have
+	 * one.
+	 */
+
+	if (textPtr->bindingTable == NULL) {
+	    textPtr->bindingTable = Tk_CreateBindingTable(interp);
+	}
+
+	if (argc == 6) {
+	    int append = 0;
+	    unsigned long mask;
+
+	    if (argv[5][0] == 0) {
+		return Tk_DeleteBinding(interp, textPtr->bindingTable,
+			(ClientData) tagPtr, argv[4]);
+	    }
+#ifdef STk_CODE
+	    mask = Tk_CreateBinding(interp, textPtr->bindingTable,
+		    (ClientData) tagPtr, argv[4], argv[5], argv[0], argv[3]);
+#else
+	    if (argv[5][0] == '+') {
+		argv[5]++;
+		append = 1;
+	    }
+	    mask = Tk_CreateBinding(interp, textPtr->bindingTable,
+		    (ClientData) tagPtr, argv[4], argv[5], append);
+#endif
+	    if (mask == 0) {
+		return TCL_ERROR;
+	    }
+	    if (mask & (unsigned) ~(ButtonMotionMask|Button1MotionMask
+		    |Button2MotionMask|Button3MotionMask|Button4MotionMask
+		    |Button5MotionMask|ButtonPressMask|ButtonReleaseMask
+		    |EnterWindowMask|LeaveWindowMask|KeyPressMask
+		    |KeyReleaseMask|PointerMotionMask)) {
+		Tk_DeleteBinding(interp, textPtr->bindingTable,
+			(ClientData) tagPtr, argv[4]);
+		Tcl_ResetResult(interp);
+		Tcl_AppendResult(interp, "requested illegal events; ",
+			"only key, button, motion, and enter/leave ",
+			"events may be used", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	} else if (argc == 5) {
+	    char *command;
+    
+	    command = Tk_GetBinding(interp, textPtr->bindingTable,
+		    (ClientData) tagPtr, argv[4]);
+	    if (command == NULL) {
+		return TCL_ERROR;
+	    }
+	    interp->result = command;
+	} else {
+	    Tk_GetAllBindings(interp, textPtr->bindingTable,
+		    (ClientData) tagPtr);
+	}
+    } else if ((c == 'c') && (strncmp(argv[2], "cget", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag cget tagName option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag(interp, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	return Tk_ConfigureValue(interp, textPtr->tkwin, tagConfigSpecs,
+		(char *) tagPtr, argv[4], 0);
+    } else if ((c == 'c') && (strncmp(argv[2], "configure", length) == 0)
+	    && (length >= 2)) {
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag configure tagName ?option? ?value? ",
+		    "?option value ...?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = TkTextCreateTag(textPtr, argv[3]);
+	if (argc == 4) {
+	    return Tk_ConfigureInfo(interp, textPtr->tkwin, tagConfigSpecs,
+		    (char *) tagPtr, (char *) NULL, 0);
+	} else if (argc == 5) {
+	    return Tk_ConfigureInfo(interp, textPtr->tkwin, tagConfigSpecs,
+		    (char *) tagPtr, argv[4], 0);
+	} else {
+	    int result;
+
+	    result = Tk_ConfigureWidget(interp, textPtr->tkwin, tagConfigSpecs,
+		    argc-4, argv+4, (char *) tagPtr, 0);
+	    /*
+	     * Some of the configuration options, like -underline
+	     * and -justify, require additional translation (this is
+	     * needed because we need to distinguish a particular value
+	     * of an option from "unspecified").
+	     */
+
+	    if (tagPtr->bdString != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin, tagPtr->bdString,
+			&tagPtr->borderWidth) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (tagPtr->borderWidth < 0) {
+		    tagPtr->borderWidth = 0;
+		}
+	    }
+	    if (tagPtr->reliefString != NULL) {
+		if (Tk_GetRelief(interp, tagPtr->reliefString,
+			&tagPtr->relief) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->justifyString != NULL) {
+		if (Tk_GetJustify(interp, tagPtr->justifyString,
+			&tagPtr->justify) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->lMargin1String != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->lMargin1String, &tagPtr->lMargin1) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->lMargin2String != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->lMargin2String, &tagPtr->lMargin2) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->offsetString != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin, tagPtr->offsetString,
+			&tagPtr->offset) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->overstrikeString != NULL) {
+		if (Tcl_GetBoolean(interp, tagPtr->overstrikeString,
+			&tagPtr->overstrike) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->rMarginString != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->rMarginString, &tagPtr->rMargin) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->spacing1String != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->spacing1String, &tagPtr->spacing1) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (tagPtr->spacing1 < 0) {
+		    tagPtr->spacing1 = 0;
+		}
+	    }
+	    if (tagPtr->spacing2String != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->spacing2String, &tagPtr->spacing2) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (tagPtr->spacing2 < 0) {
+		    tagPtr->spacing2 = 0;
+		}
+	    }
+	    if (tagPtr->spacing3String != NULL) {
+		if (Tk_GetPixels(interp, textPtr->tkwin,
+			tagPtr->spacing3String, &tagPtr->spacing3) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+		if (tagPtr->spacing3 < 0) {
+		    tagPtr->spacing3 = 0;
+		}
+	    }
+	    if (tagPtr->tabArrayPtr != NULL) {
+		ckfree((char *) tagPtr->tabArrayPtr);
+		tagPtr->tabArrayPtr = NULL;
+	    }
+	    if (tagPtr->tabString != NULL) {
+		tagPtr->tabArrayPtr = TkTextGetTabs(interp, textPtr->tkwin,
+			tagPtr->tabString);
+		if (tagPtr->tabArrayPtr == NULL) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if (tagPtr->underlineString != NULL) {
+		if (Tcl_GetBoolean(interp, tagPtr->underlineString,
+			&tagPtr->underline) != TCL_OK) {
+		    return TCL_ERROR;
+		}
+	    }
+	    if ((tagPtr->wrapMode != NULL)
+		    && (tagPtr->wrapMode != tkTextCharUid)
+		    && (tagPtr->wrapMode != tkTextNoneUid)
+		    && (tagPtr->wrapMode != tkTextWordUid)) {
+		Tcl_AppendResult(interp, "bad wrap mode \"", tagPtr->wrapMode,
+			"\": must be char, none, or word", (char *) NULL);
+		tagPtr->wrapMode = NULL;
+		return TCL_ERROR;
+	    }
+
+	    /*
+	     * If the "sel" tag was changed, be sure to mirror information
+	     * from the tag back into the text widget record.   NOTE: we
+	     * don't have to free up information in the widget record
+	     * before overwriting it, because it was mirrored in the tag
+	     * and hence freed when the tag field was overwritten.
+	     */
+
+	    if (tagPtr == textPtr->selTagPtr) {
+		textPtr->selBorder = tagPtr->border;
+		textPtr->selBdString = tagPtr->bdString;
+		textPtr->selFgColorPtr = tagPtr->fgColor;
+	    }
+	    tagPtr->affectsDisplay = 0;
+	    if ((tagPtr->border != NULL)
+		    || (tagPtr->bdString != NULL)
+		    || (tagPtr->reliefString != NULL)
+		    || (tagPtr->bgStipple != None)
+		    || (tagPtr->fgColor != NULL) || (tagPtr->fontPtr != None)
+		    || (tagPtr->fgStipple != None)
+		    || (tagPtr->justifyString != NULL)
+		    || (tagPtr->lMargin1String != NULL)
+		    || (tagPtr->lMargin2String != NULL)
+		    || (tagPtr->offsetString != NULL)
+		    || (tagPtr->overstrikeString != NULL)
+		    || (tagPtr->rMarginString != NULL)
+		    || (tagPtr->spacing1String != NULL)
+		    || (tagPtr->spacing2String != NULL)
+		    || (tagPtr->spacing3String != NULL)
+		    || (tagPtr->tabString != NULL)
+		    || (tagPtr->underlineString != NULL)
+		    || (tagPtr->wrapMode != NULL)) {
+		tagPtr->affectsDisplay = 1;
+	    }
+	    TkTextRedrawTag(textPtr, (TkTextIndex *) NULL,
+		    (TkTextIndex *) NULL, tagPtr, 1);
+	    return result;
+	}
+    } else if ((c == 'd') && (strncmp(argv[2], "delete", length) == 0)) {
+	Tcl_HashEntry *hPtr;
+
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag delete tagName tagName ...\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	for (i = 3; i < argc; i++) {
+	    hPtr = Tcl_FindHashEntry(&textPtr->tagTable, argv[i]);
+	    if (hPtr == NULL) {
+		continue;
+	    }
+	    tagPtr = (TkTextTag *) Tcl_GetHashValue(hPtr);
+	    if (tagPtr == textPtr->selTagPtr) {
+		continue;
+	    }
+	    if (tagPtr->affectsDisplay) {
+		TkTextRedrawTag(textPtr, (TkTextIndex *) NULL,
+			(TkTextIndex *) NULL, tagPtr, 1);
+	    }
+	    TkBTreeTag(TkTextMakeIndex(textPtr->tree, 0, 0, &first),
+		    TkTextMakeIndex(textPtr->tree,
+			    TkBTreeNumLines(textPtr->tree), 0, &last),
+		    tagPtr, 0);
+	    Tcl_DeleteHashEntry(hPtr);
+	    if (textPtr->bindingTable != NULL) {
+		Tk_DeleteAllBindings(textPtr->bindingTable,
+			(ClientData) tagPtr);
+	    }
+	
+	    /*
+	     * Update the tag priorities to reflect the deletion of this tag.
+	     */
+
+	    ChangeTagPriority(textPtr, tagPtr, textPtr->numTags-1);
+	    textPtr->numTags -= 1;
+	    TkTextFreeTag(textPtr, tagPtr);
+	}
+    } else if ((c == 'l') && (strncmp(argv[2], "lower", length) == 0)) {
+	TkTextTag *tagPtr2;
+	int prio;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag lower tagName ?belowThis?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag(interp, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	if (argc == 5) {
+	    tagPtr2 = FindTag(interp, textPtr, argv[4]);
+	    if (tagPtr2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    if (tagPtr->priority < tagPtr2->priority) {
+		prio = tagPtr2->priority - 1;
+	    } else {
+		prio = tagPtr2->priority;
+	    }
+	} else {
+	    prio = 0;
+	}
+	ChangeTagPriority(textPtr, tagPtr, prio);
+	TkTextRedrawTag(textPtr, (TkTextIndex *) NULL, (TkTextIndex *) NULL,
+		tagPtr, 1);
+    } else if ((c == 'n') && (strncmp(argv[2], "names", length) == 0)
+	    && (length >= 2)) {
+	TkTextTag **arrayPtr;
+	int arraySize;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag names ?index?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    Tcl_HashSearch search;
+	    Tcl_HashEntry *hPtr;
+
+	    arrayPtr = (TkTextTag **) ckalloc((unsigned)
+		    (textPtr->numTags * sizeof(TkTextTag *)));
+	    for (i = 0, hPtr = Tcl_FirstHashEntry(&textPtr->tagTable, &search);
+		    hPtr != NULL; i++, hPtr = Tcl_NextHashEntry(&search)) {
+		arrayPtr[i] = (TkTextTag *) Tcl_GetHashValue(hPtr);
+	    }
+	    arraySize = textPtr->numTags;
+	} else {
+	    if (TkTextGetIndex(interp, textPtr, argv[3], &index1)
+		    != TCL_OK) {
+		return TCL_ERROR;
+	    }
+	    arrayPtr = TkBTreeGetTags(&index1, &arraySize);
+	    if (arrayPtr == NULL) {
+		return TCL_OK;
+	    }
+	}
+	SortTags(arraySize, arrayPtr);
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, "(", NULL);
+	for (i = 0; i < arraySize; i++) {
+	    tagPtr = arrayPtr[i];
+	    Tcl_AppendResult(interp, " \"", tagPtr->name, "\"", NULL);
+	}
+	Tcl_AppendResult(interp, ")", NULL);
+#else
+	for (i = 0; i < arraySize; i++) {
+	    tagPtr = arrayPtr[i];
+	    Tcl_AppendElement(interp, tagPtr->name);
+	}
+#endif
+	ckfree((char *) arrayPtr);
+    } else if ((c == 'n') && (strncmp(argv[2], "nextrange", length) == 0)
+	    && (length >= 2)) {
+	TkTextSearch tSearch;
+	char position[TK_POS_CHARS];
+
+	if ((argc != 5) && (argc != 6)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag nextrange tagName index1 ?index2?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_OK;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[4], &index1) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
+		0, &last);
+	if (argc == 5) {
+	    index2 = last;
+	} else if (TkTextGetIndex(interp, textPtr, argv[5], &index2)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * The search below is a bit tricky.  Rather than use the B-tree
+	 * facilities to stop the search at index2, let it search up
+	 * until the end of the file but check for a position past index2
+	 * ourselves.  The reason for doing it this way is that we only
+	 * care whether the *start* of the range is before index2;  once
+	 * we find the start, we don't want TkBTreeNextTag to abort the
+	 * search because the end of the range is after index2.
+	 */
+
+	TkBTreeStartSearch(&index1, &last, tagPtr, &tSearch);
+	if (TkBTreeCharTagged(&index1, tagPtr)) {
+	    TkTextSegment *segPtr;
+	    int offset;
+
+	    /*
+	     * The first character is tagged.  See if there is an
+	     * on-toggle just before the character.  If not, then
+	     * skip to the end of this tagged range.
+	     */
+
+	    for (segPtr = index1.linePtr->segPtr, offset = index1.charIndex; 
+		    offset >= 0;
+		    offset -= segPtr->size, segPtr = segPtr->nextPtr) {
+		if ((offset == 0) && (segPtr->typePtr == &tkTextToggleOnType)
+			&& (segPtr->body.toggle.tagPtr == tagPtr)) {
+		    goto gotStart;
+		}
+	    }
+	    if (!TkBTreeNextTag(&tSearch)) {
+		 return TCL_OK;
+	    }
+	}
+
+	/*
+	 * Find the start of the tagged range.
+	 */
+
+	if (!TkBTreeNextTag(&tSearch)) {
+	    return TCL_OK;
+	}
+	gotStart:
+	if (TkTextIndexCmp(&tSearch.curIndex, &index2) >= 0) {
+	    return TCL_OK;
+	}
+	TkTextPrintIndex(&tSearch.curIndex, position);
+	Tcl_AppendElement(interp, position);
+	TkBTreeNextTag(&tSearch);
+	TkTextPrintIndex(&tSearch.curIndex, position);
+	Tcl_AppendElement(interp, position);
+    } else if ((c == 'p') && (strncmp(argv[2], "prevrange", length) == 0)
+	    && (length >= 2)) {
+	TkTextSearch tSearch;
+	char position1[TK_POS_CHARS];
+	char position2[TK_POS_CHARS];
+
+	if ((argc != 5) && (argc != 6)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag prevrange tagName index1 ?index2?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_OK;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[4], &index1) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (argc == 5) {
+	    TkTextMakeIndex(textPtr->tree, 0, 0, &index2);
+	} else if (TkTextGetIndex(interp, textPtr, argv[5], &index2)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * The search below is a bit weird.  The previous toggle can be
+	 * either an on or off toggle. If it is an on toggle, then we
+	 * need to turn around and search forward for the end toggle.
+	 * Otherwise we keep searching backwards.
+	 */
+
+	TkBTreeStartSearchBack(&index1, &index2, tagPtr, &tSearch);
+
+	if (!TkBTreePrevTag(&tSearch)) {
+	    return TCL_OK;
+	}
+	if (tSearch.segPtr->typePtr == &tkTextToggleOnType) {
+	    TkTextPrintIndex(&tSearch.curIndex, position1);
+	    TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
+		    0, &last);
+	    TkBTreeStartSearch(&tSearch.curIndex, &last, tagPtr, &tSearch);
+	    TkBTreeNextTag(&tSearch);
+	    TkTextPrintIndex(&tSearch.curIndex, position2);
+	} else {
+	    TkTextPrintIndex(&tSearch.curIndex, position2);
+	    TkBTreePrevTag(&tSearch);
+	    if (TkTextIndexCmp(&tSearch.curIndex, &index2) < 0) {
+		return TCL_OK;
+	    }
+	    TkTextPrintIndex(&tSearch.curIndex, position1);
+	}
+	Tcl_AppendElement(interp, position1);
+	Tcl_AppendElement(interp, position2);
+    } else if ((c == 'r') && (strncmp(argv[2], "raise", length) == 0)
+	    && (length >= 3)) {
+	TkTextTag *tagPtr2;
+	int prio;
+
+	if ((argc != 4) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag raise tagName ?aboveThis?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag(interp, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_ERROR;
+	}
+	if (argc == 5) {
+	    tagPtr2 = FindTag(interp, textPtr, argv[4]);
+	    if (tagPtr2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    if (tagPtr->priority <= tagPtr2->priority) {
+		prio = tagPtr2->priority;
+	    } else {
+		prio = tagPtr2->priority + 1;
+	    }
+	} else {
+	    prio = textPtr->numTags-1;
+	}
+	ChangeTagPriority(textPtr, tagPtr, prio);
+	TkTextRedrawTag(textPtr, (TkTextIndex *) NULL, (TkTextIndex *) NULL,
+		tagPtr, 1);
+    } else if ((c == 'r') && (strncmp(argv[2], "ranges", length) == 0)
+	    && (length >= 3)) {
+	TkTextSearch tSearch;
+	char position[TK_POS_CHARS];
+
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " tag ranges tagName\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
+	if (tagPtr == NULL) {
+	    return TCL_OK;
+	}
+	TkTextMakeIndex(textPtr->tree, 0, 0, &first);
+	TkTextMakeIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
+		0, &last);
+	TkBTreeStartSearch(&first, &last, tagPtr, &tSearch);
+	if (TkBTreeCharTagged(&first, tagPtr)) {
+	    TkTextPrintIndex(&first, position);
+	    Tcl_AppendElement(interp, position);
+	}
+	while (TkBTreeNextTag(&tSearch)) {
+	    TkTextPrintIndex(&tSearch.curIndex, position);
+	    Tcl_AppendElement(interp, position);
+	}
+    } else if ((c == 'r') && (strncmp(argv[2], "remove", length) == 0)
+	    && (length >= 2)) {
+	fullOption = "remove";
+	addTag = 0;
+	goto addAndRemove;
+    } else {
+	Tcl_AppendResult(interp, "bad tag option \"", argv[2],
+		"\": must be add, bind, cget, configure, delete, lower, ",
+		"names, nextrange, raise, ranges, or remove",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextCreateTag --
+ *
+ *	Find the record describing a tag within a given text widget,
+ *	creating a new record if one doesn't already exist.
+ *
+ * Results:
+ *	The return value is a pointer to the TkTextTag record for tagName.
+ *
+ * Side effects:
+ *	A new tag record is created if there isn't one already defined
+ *	for tagName.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkTextTag *
+TkTextCreateTag(textPtr, tagName)
+    TkText *textPtr;		/* Widget in which tag is being used. */
+    char *tagName;		/* Name of desired tag. */
+{
+    register TkTextTag *tagPtr;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    hPtr = Tcl_CreateHashEntry(&textPtr->tagTable, tagName, &new);
+    if (!new) {
+	return (TkTextTag *) Tcl_GetHashValue(hPtr);
+    }
+
+    /*
+     * No existing entry.  Create a new one, initialize it, and add a
+     * pointer to it to the hash table entry.
+     */
+
+    tagPtr = (TkTextTag *) ckalloc(sizeof(TkTextTag));
+    tagPtr->name = Tcl_GetHashKey(&textPtr->tagTable, hPtr);
+    tagPtr->toggleCount = 0;
+    tagPtr->tagRootPtr = NULL;
+    tagPtr->priority = textPtr->numTags;
+    tagPtr->border = NULL;
+    tagPtr->bdString = NULL;
+    tagPtr->borderWidth = 0;
+    tagPtr->reliefString = NULL;
+    tagPtr->relief = TK_RELIEF_FLAT;
+    tagPtr->bgStipple = None;
+    tagPtr->fgColor = NULL;
+    tagPtr->fontPtr = NULL;
+    tagPtr->fgStipple = None;
+    tagPtr->justifyString = NULL;
+    tagPtr->justify = TK_JUSTIFY_LEFT;
+    tagPtr->lMargin1String = NULL;
+    tagPtr->lMargin1 = 0;
+    tagPtr->lMargin2String = NULL;
+    tagPtr->lMargin2 = 0;
+    tagPtr->offsetString = NULL;
+    tagPtr->offset = 0;
+    tagPtr->overstrikeString = NULL;
+    tagPtr->overstrike = 0;
+    tagPtr->rMarginString = NULL;
+    tagPtr->rMargin = 0;
+    tagPtr->spacing1String = NULL;
+    tagPtr->spacing1 = 0;
+    tagPtr->spacing2String = NULL;
+    tagPtr->spacing2 = 0;
+    tagPtr->spacing3String = NULL;
+    tagPtr->spacing3 = 0;
+    tagPtr->tabString = NULL;
+    tagPtr->tabArrayPtr = NULL;
+    tagPtr->underlineString = NULL;
+    tagPtr->underline = 0;
+    tagPtr->wrapMode = NULL;
+    tagPtr->affectsDisplay = 0;
+    textPtr->numTags++;
+    Tcl_SetHashValue(hPtr, tagPtr);
+    return tagPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * FindTag --
+ *
+ *	See if tag is defined for a given widget.
+ *
+ * Results:
+ *	If tagName is defined in textPtr, a pointer to its TkTextTag
+ *	structure is returned.  Otherwise NULL is returned and an
+ *	error message is recorded in interp->result unless interp
+ *	is NULL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkTextTag *
+FindTag(interp, textPtr, tagName)
+    Tcl_Interp *interp;		/* Interpreter to use for error message;
+				 * if NULL, then don't record an error
+				 * message. */
+    TkText *textPtr;		/* Widget in which tag is being used. */
+    char *tagName;		/* Name of desired tag. */
+{
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&textPtr->tagTable, tagName);
+    if (hPtr != NULL) {
+	return (TkTextTag *) Tcl_GetHashValue(hPtr);
+    }
+    if (interp != NULL) {
+	Tcl_AppendResult(interp, "tag \"", tagName,
+		"\" isn't defined in text widget", (char *) NULL);
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkTextFreeTag --
+ *
+ *	This procedure is called when a tag is deleted to free up the
+ *	memory and other resources associated with the tag.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Memory and other resources are freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkTextFreeTag(textPtr, tagPtr)
+    TkText *textPtr;			/* Info about overall widget. */
+    register TkTextTag *tagPtr;		/* Tag being deleted. */
+{
+    if (tagPtr->border != None) {
+	Tk_Free3DBorder(tagPtr->border);
+    }
+    if (tagPtr->bdString != NULL) {
+	ckfree(tagPtr->bdString);
+    }
+    if (tagPtr->reliefString != NULL) {
+	ckfree(tagPtr->reliefString);
+    }
+    if (tagPtr->bgStipple != None) {
+	Tk_FreeBitmap(textPtr->display, tagPtr->bgStipple);
+    }
+    if (tagPtr->fgColor != None) {
+	Tk_FreeColor(tagPtr->fgColor);
+    }
+    if (tagPtr->fontPtr != None) {
+	Tk_FreeFontStruct(tagPtr->fontPtr);
+    }
+    if (tagPtr->fgStipple != None) {
+	Tk_FreeBitmap(textPtr->display, tagPtr->fgStipple);
+    }
+    if (tagPtr->justifyString != NULL) {
+	ckfree(tagPtr->justifyString);
+    }
+    if (tagPtr->lMargin1String != NULL) {
+	ckfree(tagPtr->lMargin1String);
+    }
+    if (tagPtr->lMargin2String != NULL) {
+	ckfree(tagPtr->lMargin2String);
+    }
+    if (tagPtr->offsetString != NULL) {
+	ckfree(tagPtr->offsetString);
+    }
+    if (tagPtr->overstrikeString != NULL) {
+	ckfree(tagPtr->overstrikeString);
+    }
+    if (tagPtr->rMarginString != NULL) {
+	ckfree(tagPtr->rMarginString);
+    }
+    if (tagPtr->spacing1String != NULL) {
+	ckfree(tagPtr->spacing1String);
+    }
+    if (tagPtr->spacing2String != NULL) {
+	ckfree(tagPtr->spacing2String);
+    }
+    if (tagPtr->spacing3String != NULL) {
+	ckfree(tagPtr->spacing3String);
+    }
+    if (tagPtr->tabString != NULL) {
+	ckfree(tagPtr->tabString);
+    }
+    if (tagPtr->tabArrayPtr != NULL) {
+	ckfree((char *) tagPtr->tabArrayPtr);
+    }
+    if (tagPtr->underlineString != NULL) {
+	ckfree(tagPtr->underlineString);
+    }
+    ckfree((char *) tagPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SortTags --
+ *
+ *	This procedure sorts an array of tag pointers in increasing
+ *	order of priority, optimizing for the common case where the
+ *	array is small.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SortTags(numTags, tagArrayPtr)
+    int numTags;		/* Number of tag pointers at *tagArrayPtr. */
+    TkTextTag **tagArrayPtr;	/* Pointer to array of pointers. */
+{
+    int i, j, prio;
+    register TkTextTag **tagPtrPtr;
+    TkTextTag **maxPtrPtr, *tmp;
+
+    if (numTags < 2) {
+	return;
+    }
+    if (numTags < 20) {
+	for (i = numTags-1; i > 0; i--, tagArrayPtr++) {
+	    maxPtrPtr = tagPtrPtr = tagArrayPtr;
+	    prio = tagPtrPtr[0]->priority;
+	    for (j = i, tagPtrPtr++; j > 0; j--, tagPtrPtr++) {
+		if (tagPtrPtr[0]->priority < prio) {
+		    prio = tagPtrPtr[0]->priority;
+		    maxPtrPtr = tagPtrPtr;
+		}
+	    }
+	    tmp = *maxPtrPtr;
+	    *maxPtrPtr = *tagArrayPtr;
+	    *tagArrayPtr = tmp;
+	}
+    } else {
+	qsort((VOID *) tagArrayPtr, (unsigned) numTags, sizeof (TkTextTag *),
+		    TagSortProc);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TagSortProc --
+ *
+ *	This procedure is called by qsort when sorting an array of
+ *	tags in priority order.
+ *
+ * Results:
+ *	The return value is -1 if the first argument should be before
+ *	the second element (i.e. it has lower priority), 0 if it's
+ *	equivalent (this should never happen!), and 1 if it should be
+ *	after the second element.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+TagSortProc(first, second)
+    CONST VOID *first, *second;		/* Elements to be compared. */
+{
+    TkTextTag *tagPtr1, *tagPtr2;
+
+    tagPtr1 = * (TkTextTag **) first;
+    tagPtr2 = * (TkTextTag **) second;
+    return tagPtr1->priority - tagPtr2->priority;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ChangeTagPriority --
+ *
+ *	This procedure changes the priority of a tag by modifying
+ *	its priority and the priorities of other tags that are affected
+ *	by the change.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Priorities may be changed for some or all of the tags in
+ *	textPtr.  The tags will be arranged so that there is exactly
+ *	one tag at each priority level between 0 and textPtr->numTags-1,
+ *	with tagPtr at priority "prio".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ChangeTagPriority(textPtr, tagPtr, prio)
+    TkText *textPtr;			/* Information about text widget. */
+    TkTextTag *tagPtr;			/* Tag whose priority is to be
+					 * changed. */
+    int prio;				/* New priority for tag. */
+{
+    int low, high, delta;
+    register TkTextTag *tagPtr2;
+    Tcl_HashEntry *hPtr;
+    Tcl_HashSearch search;
+
+    if (prio < 0) {
+	prio = 0;
+    }
+    if (prio >= textPtr->numTags) {
+	prio = textPtr->numTags-1;
+    }
+    if (prio == tagPtr->priority) {
+	return;
+    } else if (prio < tagPtr->priority) {
+	low = prio;
+	high = tagPtr->priority-1;
+	delta = 1;
+    } else {
+	low = tagPtr->priority+1;
+	high = prio;
+	delta = -1;
+    }
+    for (hPtr = Tcl_FirstHashEntry(&textPtr->tagTable, &search);
+	    hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+	tagPtr2 = (TkTextTag *) Tcl_GetHashValue(hPtr);
+	if ((tagPtr2->priority >= low) && (tagPtr2->priority <= high)) {
+	    tagPtr2->priority += delta;
+	}
+    }
+    tagPtr->priority = prio;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextBindProc --
+ *
+ *	This procedure is invoked by the Tk dispatcher to handle
+ *	events associated with bindings on items.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on the command invoked as part of the binding
+ *	(if there was any).
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkTextBindProc(clientData, eventPtr)
+    ClientData clientData;		/* Pointer to canvas structure. */
+    XEvent *eventPtr;			/* Pointer to X event that just
+					 * happened. */
+{
+    TkText *textPtr = (TkText *) clientData;
+    int repick  = 0;
+
+# define AnyButtonMask (Button1Mask|Button2Mask|Button3Mask\
+	|Button4Mask|Button5Mask)
+
+    Tcl_Preserve((ClientData) textPtr);
+
+    /*
+     * This code simulates grabs for mouse buttons by keeping track
+     * of whether a button is pressed and refusing to pick a new current
+     * character while a button is pressed.
+     */
+
+    if (eventPtr->type == ButtonPress) {
+	textPtr->flags |= BUTTON_DOWN;
+    } else if (eventPtr->type == ButtonRelease) {
+	int mask;
+
+	switch (eventPtr->xbutton.button) {
+	    case Button1:
+		mask = Button1Mask;
+		break;
+	    case Button2:
+		mask = Button2Mask;
+		break;
+	    case Button3:
+		mask = Button3Mask;
+		break;
+	    case Button4:
+		mask = Button4Mask;
+		break;
+	    case Button5:
+		mask = Button5Mask;
+		break;
+	    default:
+		mask = 0;
+		break;
+	}
+	if ((eventPtr->xbutton.state & AnyButtonMask) == mask) {
+	    textPtr->flags &= ~BUTTON_DOWN;
+	    repick = 1;
+	}
+    } else if ((eventPtr->type == EnterNotify)
+	    || (eventPtr->type == LeaveNotify)) {
+	if (eventPtr->xcrossing.state & AnyButtonMask)  {
+	    textPtr->flags |= BUTTON_DOWN;
+	} else {
+	    textPtr->flags &= ~BUTTON_DOWN;
+	}
+	TkTextPickCurrent(textPtr, eventPtr);
+	goto done;
+    } else if (eventPtr->type == MotionNotify) {
+	if (eventPtr->xmotion.state & AnyButtonMask)  {
+	    textPtr->flags |= BUTTON_DOWN;
+	} else {
+	    textPtr->flags &= ~BUTTON_DOWN;
+	}
+	TkTextPickCurrent(textPtr, eventPtr);
+    }
+    if ((textPtr->numCurTags > 0) && (textPtr->bindingTable != NULL)
+	    && (textPtr->tkwin != NULL)) {
+	Tk_BindEvent(textPtr->bindingTable, eventPtr, textPtr->tkwin,
+		textPtr->numCurTags, (ClientData *) textPtr->curTagArrayPtr);
+    }
+    if (repick) {
+	unsigned int oldState;
+
+	oldState = eventPtr->xbutton.state;
+	eventPtr->xbutton.state &= ~(Button1Mask|Button2Mask
+		|Button3Mask|Button4Mask|Button5Mask);
+	TkTextPickCurrent(textPtr, eventPtr);
+	eventPtr->xbutton.state = oldState;
+    }
+
+    done:
+    Tcl_Release((ClientData) textPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextPickCurrent --
+ *
+ *	Find the character containing the coordinates in an event
+ *	and place the "current" mark on that character.  If the
+ *	"current" mark has moved then generate a fake leave event
+ *	on the old current character and a fake enter event on the new
+ *	current character.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The current mark for textPtr may change.  If it does,
+ *	then the commands associated with character entry and leave
+ *	could do just about anything.  For example, the text widget
+ *	might be deleted.  It is up to the caller to protect itself
+ *	with calls to Tcl_Preserve and Tcl_Release.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkTextPickCurrent(textPtr, eventPtr)
+    register TkText *textPtr;		/* Text widget in which to select
+					 * current character. */
+    XEvent *eventPtr;			/* Event describing location of
+					 * mouse cursor.  Must be EnterWindow,
+					 * LeaveWindow, ButtonRelease, or
+					 * MotionNotify. */
+{
+    TkTextIndex index;
+    TkTextTag **oldArrayPtr, **newArrayPtr;
+    TkTextTag **copyArrayPtr = NULL;	/* Initialization needed to prevent
+					 * compiler warning. */
+
+    int numOldTags, numNewTags, i, j, size;
+    XEvent event;
+
+    /*
+     * If a button is down, then don't do anything at all;  we'll be
+     * called again when all buttons are up, and we can repick then.
+     * This implements a form of mouse grabbing.
+     */
+
+    if (textPtr->flags & BUTTON_DOWN) {
+	if (((eventPtr->type == EnterNotify) || (eventPtr->type == LeaveNotify))
+		&& ((eventPtr->xcrossing.mode == NotifyGrab)
+		|| (eventPtr->xcrossing.mode == NotifyUngrab))) {
+	    /*
+	     * Special case:  the window is being entered or left because
+	     * of a grab or ungrab.  In this case, repick after all.
+	     * Furthermore, clear BUTTON_DOWN to release the simulated
+	     * grab.
+	     */
+
+	    textPtr->flags &= ~BUTTON_DOWN;
+	} else {
+	    return;
+	}
+    }
+
+    /*
+     * Save information about this event in the widget in case we have
+     * to synthesize more enter and leave events later (e.g. because a
+     * character was deleted, causing a new character to be underneath
+     * the mouse cursor).  Also translate MotionNotify events into
+     * EnterNotify events, since that's what gets reported to event
+     * handlers when the current character changes.
+     */
+
+    if (eventPtr != &textPtr->pickEvent) {
+	if ((eventPtr->type == MotionNotify)
+		|| (eventPtr->type == ButtonRelease)) {
+	    textPtr->pickEvent.xcrossing.type = EnterNotify;
+	    textPtr->pickEvent.xcrossing.serial = eventPtr->xmotion.serial;
+	    textPtr->pickEvent.xcrossing.send_event
+		    = eventPtr->xmotion.send_event;
+	    textPtr->pickEvent.xcrossing.display = eventPtr->xmotion.display;
+	    textPtr->pickEvent.xcrossing.window = eventPtr->xmotion.window;
+	    textPtr->pickEvent.xcrossing.root = eventPtr->xmotion.root;
+	    textPtr->pickEvent.xcrossing.subwindow = None;
+	    textPtr->pickEvent.xcrossing.time = eventPtr->xmotion.time;
+	    textPtr->pickEvent.xcrossing.x = eventPtr->xmotion.x;
+	    textPtr->pickEvent.xcrossing.y = eventPtr->xmotion.y;
+	    textPtr->pickEvent.xcrossing.x_root = eventPtr->xmotion.x_root;
+	    textPtr->pickEvent.xcrossing.y_root = eventPtr->xmotion.y_root;
+	    textPtr->pickEvent.xcrossing.mode = NotifyNormal;
+	    textPtr->pickEvent.xcrossing.detail = NotifyNonlinear;
+	    textPtr->pickEvent.xcrossing.same_screen
+		    = eventPtr->xmotion.same_screen;
+	    textPtr->pickEvent.xcrossing.focus = False;
+	    textPtr->pickEvent.xcrossing.state = eventPtr->xmotion.state;
+	} else  {
+	    textPtr->pickEvent = *eventPtr;
+	}
+    }
+
+    /*
+     * Find the new current character, then find and sort all of the
+     * tags associated with it.
+     */
+
+    if (textPtr->pickEvent.type != LeaveNotify) {
+	TkTextPixelIndex(textPtr, textPtr->pickEvent.xcrossing.x,
+		textPtr->pickEvent.xcrossing.y, &index);
+	newArrayPtr = TkBTreeGetTags(&index, &numNewTags);
+	SortTags(numNewTags, newArrayPtr);
+    } else {
+	newArrayPtr = NULL;
+	numNewTags = 0;
+    }
+
+    /*
+     * Resort the tags associated with the previous marked character
+     * (the priorities might have changed), then make a copy of the
+     * new tags, and compare the old tags to the copy, nullifying
+     * any tags that are present in both groups (i.e. the tags that
+     * haven't changed).
+     */
+
+    SortTags(textPtr->numCurTags, textPtr->curTagArrayPtr);
+    if (numNewTags > 0) {
+	size = numNewTags * sizeof(TkTextTag *);
+	copyArrayPtr = (TkTextTag **) ckalloc((unsigned) size);
+	memcpy((VOID *) copyArrayPtr, (VOID *) newArrayPtr, (size_t) size);
+	for (i = 0; i < textPtr->numCurTags; i++) {
+	    for (j = 0; j < numNewTags; j++) {
+		if (textPtr->curTagArrayPtr[i] == copyArrayPtr[j]) {
+		    textPtr->curTagArrayPtr[i] = NULL;
+		    copyArrayPtr[j] = NULL;
+		    break;
+		}
+	    }
+	}
+    }
+
+    /*
+     * Invoke the binding system with a LeaveNotify event for all of
+     * the tags that have gone away.  We have to be careful here,
+     * because it's possible that the binding could do something
+     * (like calling tkwait) that eventually modifies
+     * textPtr->curTagArrayPtr.  To avoid problems in situations like
+     * this, update curTagArrayPtr to its new value before invoking
+     * any bindings, and don't use it any more here.
+     */
+
+    numOldTags = textPtr->numCurTags;
+    textPtr->numCurTags = numNewTags;
+    oldArrayPtr = textPtr->curTagArrayPtr;
+    textPtr->curTagArrayPtr = newArrayPtr;
+    if (numOldTags != 0) {
+	if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
+	    event = textPtr->pickEvent;
+	    event.type = LeaveNotify;
+
+	    /*
+	     * Always use a detail of NotifyAncestor.  Besides being
+	     * consistent, this avoids problems where the binding code
+	     * will discard NotifyInferior events.
+	     */
+
+	    event.xcrossing.detail = NotifyAncestor;
+	    Tk_BindEvent(textPtr->bindingTable, &event, textPtr->tkwin,
+		    numOldTags, (ClientData *) oldArrayPtr);
+	}
+	ckfree((char *) oldArrayPtr);
+    }
+
+    /*
+     * Reset the "current" mark (be careful to recompute its location,
+     * since it might have changed during an event binding).  Then
+     * invoke the binding system with an EnterNotify event for all of
+     * the tags that have just appeared.
+     */
+
+    TkTextPixelIndex(textPtr, textPtr->pickEvent.xcrossing.x,
+	    textPtr->pickEvent.xcrossing.y, &index);
+    TkTextSetMark(textPtr, "current", &index);
+    if (numNewTags != 0) {
+	if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
+	    event = textPtr->pickEvent;
+	    event.type = EnterNotify;
+	    event.xcrossing.detail = NotifyAncestor;
+	    Tk_BindEvent(textPtr->bindingTable, &event, textPtr->tkwin,
+		    numNewTags, (ClientData *) copyArrayPtr);
+	}
+	ckfree((char *) copyArrayPtr);
+    }
+}
diff --git a/Tk/generic/tkTextWind.c b/Tk/generic/tkTextWind.c
new file mode 100644
index 0000000..a4b7c38
--- /dev/null
+++ b/Tk/generic/tkTextWind.c
@@ -0,0 +1,1209 @@
+/* 
+ * tkTextWind.c --
+ *
+ *	This file contains code that allows arbitrary windows to be
+ *	nested inside text widgets.  It also implements the "window"
+ *	widget command for texts.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTextWind.c 1.13 96/02/15 18:53:02
+ */
+
+#include "tk.h"
+#include "tkText.h"
+#include "tkPort.h"
+
+/*
+ * The following structure is the official type record for the
+ * embedded window geometry manager:
+ */
+
+static void		EmbWinRequestProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+static void		EmbWinLostSlaveProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin));
+
+static Tk_GeomMgr textGeomType = {
+    "text",			/* name */
+    EmbWinRequestProc,		/* requestProc */
+    EmbWinLostSlaveProc,	/* lostSlaveProc */
+};
+
+/*
+ * Definitions for alignment values:
+ */
+
+#define ALIGN_BOTTOM		0
+#define ALIGN_CENTER		1
+#define ALIGN_TOP		2
+#define ALIGN_BASELINE		3
+
+/*
+ * Macro that determines the size of an embedded window segment:
+ */
+
+#define EW_SEG_SIZE ((unsigned) (Tk_Offset(TkTextSegment, body) \
+	+ sizeof(TkTextEmbWindow)))
+
+/*
+ * Prototypes for procedures defined in this file:
+ */
+
+static int		AlignParseProc _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, Tk_Window tkwin, char *value,
+			    char *widgRec, int offset));
+static char *		AlignPrintProc _ANSI_ARGS_((ClientData clientData,
+			    Tk_Window tkwin, char *widgRec, int offset,
+			    Tcl_FreeProc **freeProcPtr));
+static TkTextSegment *	EmbWinCleanupProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static void		EmbWinCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr));
+static void		EmbWinBboxProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
+			    int index, int y, int lineHeight, int baseline,
+			    int *xPtr, int *yPtr, int *widthPtr,
+			    int *heightPtr));
+static int		EmbWinConfigure _ANSI_ARGS_((TkText *textPtr,
+			    TkTextSegment *ewPtr, int argc, char **argv));
+static void		EmbWinDelayedUnmap _ANSI_ARGS_((
+			    ClientData clientData));
+static int		EmbWinDeleteProc _ANSI_ARGS_((TkTextSegment *segPtr,
+			    TkTextLine *linePtr, int treeGone));
+static void		EmbWinDisplayProc _ANSI_ARGS_((
+			    TkTextDispChunk *chunkPtr, int x, int y,
+			    int lineHeight, int baseline, Display *display,
+			    Drawable dst, int screenY));
+static int		EmbWinLayoutProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextIndex *indexPtr, TkTextSegment *segPtr,
+			    int offset, int maxX, int maxChars,
+			    int noCharsYet, Tk_Uid wrapMode,
+			    TkTextDispChunk *chunkPtr));
+static void		EmbWinStructureProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		EmbWinUndisplayProc _ANSI_ARGS_((TkText *textPtr,
+			    TkTextDispChunk *chunkPtr));
+
+/*
+ * The following structure declares the "embedded window" segment type.
+ */
+
+static Tk_SegType tkTextEmbWindowType = {
+    "window",					/* name */
+    0,						/* leftGravity */
+    (Tk_SegSplitProc *) NULL,			/* splitProc */
+    EmbWinDeleteProc,				/* deleteProc */
+    EmbWinCleanupProc,				/* cleanupProc */
+    (Tk_SegLineChangeProc *) NULL,		/* lineChangeProc */
+    EmbWinLayoutProc,				/* layoutProc */
+    EmbWinCheckProc				/* checkProc */
+};
+
+/*
+ * Information used for parsing window configuration options:
+ */
+
+static Tk_CustomOption alignOption = {AlignParseProc, AlignPrintProc,
+	(ClientData) NULL};
+
+static Tk_ConfigSpec configSpecs[] = {
+    {TK_CONFIG_CUSTOM, "-align", (char *) NULL, (char *) NULL,
+	"center", 0, TK_CONFIG_DONT_SET_DEFAULT, &alignOption},
+#ifdef STk_CODE
+    {TK_CONFIG_CLOSURE, "-create", (char *) NULL, (char *) NULL,
+#else
+    {TK_CONFIG_STRING, "-create", (char *) NULL, (char *) NULL,
+#endif
+	(char *) NULL, Tk_Offset(TkTextEmbWindow, create),
+	TK_CONFIG_DONT_SET_DEFAULT|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_INT, "-padx", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(TkTextEmbWindow, padX),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_INT, "-pady", (char *) NULL, (char *) NULL,
+	"0", Tk_Offset(TkTextEmbWindow, padY),
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_BOOLEAN, "-stretch", (char *) NULL, (char *) NULL,
+#ifdef STk_CODE
+	"#f", Tk_Offset(TkTextEmbWindow, stretch),
+#else
+	"0", Tk_Offset(TkTextEmbWindow, stretch),
+#endif
+	TK_CONFIG_DONT_SET_DEFAULT},
+    {TK_CONFIG_WINDOW, "-window", (char *) NULL, (char *) NULL,
+	(char *) NULL, Tk_Offset(TkTextEmbWindow, tkwin),
+	TK_CONFIG_DONT_SET_DEFAULT|TK_CONFIG_NULL_OK},
+    {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL,
+	(char *) NULL, 0, 0}
+};
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextWindowCmd --
+ *
+ *	This procedure implements the "window" widget command
+ *	for text widgets.  See the user documentation for details
+ *	on what it does.
+ *
+ * Results:
+ *	A standard Tcl result or error.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextWindowCmd(textPtr, interp, argc, argv)
+    register TkText *textPtr;	/* Information about text widget. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings.  Someone else has already
+				 * parsed this command enough to know that
+				 * argv[1] is "window". */
+{
+    int c;
+    size_t length;
+    register TkTextSegment *ewPtr;
+
+    if (argc < 3) {
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " window option ?arg arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[2][0];
+    length = strlen(argv[2]);
+    if ((strncmp(argv[2], "cget", length) == 0) && (length >= 2)) {
+	TkTextIndex index;
+	TkTextSegment *ewPtr;
+
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " window cget index option\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[3], &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	ewPtr = TkTextIndexToSeg(&index, (int *) NULL);
+	if (ewPtr->typePtr != &tkTextEmbWindowType) {
+	    Tcl_AppendResult(interp, "no embedded window at index \"",
+		    argv[3], "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	return Tk_ConfigureValue(interp, textPtr->tkwin, configSpecs,
+		(char *) &ewPtr->body.ew, argv[4], 0);
+    } else if ((strncmp(argv[2], "configure", length) == 0) && (length >= 2)) {
+	TkTextIndex index;
+	TkTextSegment *ewPtr;
+
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " window configure index ?option value ...?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[3], &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	ewPtr = TkTextIndexToSeg(&index, (int *) NULL);
+	if (ewPtr->typePtr != &tkTextEmbWindowType) {
+	    Tcl_AppendResult(interp, "no embedded window at index \"",
+		    argv[3], "\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 4) {
+	    return Tk_ConfigureInfo(interp, textPtr->tkwin, configSpecs,
+		    (char *) &ewPtr->body.ew, (char *) NULL, 0);
+	} else if (argc == 5) {
+	    return Tk_ConfigureInfo(interp, textPtr->tkwin, configSpecs,
+		    (char *) &ewPtr->body.ew, argv[4], 0);
+	} else {
+	    TkTextChanged(textPtr, &index, &index);
+	    return EmbWinConfigure(textPtr, ewPtr, argc-4, argv+4);
+	}
+    } else if ((strncmp(argv[2], "create", length) == 0) && (length >= 2)) {
+	TkTextIndex index;
+	int lineIndex;
+
+	/*
+	 * Add a new window.  Find where to put the new window, and
+	 * mark that position for redisplay.
+	 */
+
+	if (argc < 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " window create index ?option value ...?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (TkTextGetIndex(interp, textPtr, argv[3], &index) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+
+	/*
+	 * Don't allow insertions on the last (dummy) line of the text.
+	 */
+    
+	lineIndex = TkBTreeLineIndex(index.linePtr);
+	if (lineIndex == TkBTreeNumLines(textPtr->tree)) {
+	    lineIndex--;
+	    TkTextMakeIndex(textPtr->tree, lineIndex, 1000000, &index);
+	}
+
+	/*
+	 * Create the new window segment and initialize it.
+	 */
+
+	ewPtr = (TkTextSegment *) ckalloc(EW_SEG_SIZE);
+	ewPtr->typePtr = &tkTextEmbWindowType;
+	ewPtr->size = 1;
+	ewPtr->body.ew.textPtr = textPtr;
+	ewPtr->body.ew.linePtr = NULL;
+	ewPtr->body.ew.tkwin = NULL;
+	ewPtr->body.ew.create = NULL;
+	ewPtr->body.ew.align = ALIGN_CENTER;
+	ewPtr->body.ew.padX = ewPtr->body.ew.padY = 0;
+	ewPtr->body.ew.stretch = 0;
+	ewPtr->body.ew.chunkCount = 0;
+	ewPtr->body.ew.displayed = 0;
+
+	/*
+	 * Link the segment into the text widget, then configure it (delete
+	 * it again if the configuration fails).
+	 */
+
+	TkTextChanged(textPtr, &index, &index);
+	TkBTreeLinkSegment(ewPtr, &index);
+	if (EmbWinConfigure(textPtr, ewPtr, argc-4, argv+4) != TCL_OK) {
+	    TkTextIndex index2;
+
+	    TkTextIndexForwChars(&index, 1, &index2);
+	    TkBTreeDeleteChars(&index, &index2);
+	    return TCL_ERROR;
+	}
+    } else if (strncmp(argv[2], "names", length) == 0) {
+	Tcl_HashSearch search;
+	Tcl_HashEntry *hPtr;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " window names\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, "(", (char *) NULL);
+#endif
+	for (hPtr = Tcl_FirstHashEntry(&textPtr->windowTable, &search);
+		hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, " #.",
+			     Tcl_GetHashKey(&textPtr->markTable, hPtr),
+			     (char *) NULL);
+#else
+	    Tcl_AppendElement(interp,
+		    Tcl_GetHashKey(&textPtr->markTable, hPtr));
+#endif
+	}
+#ifdef STk_CODE
+	Tcl_AppendResult(interp, ")", (char *) NULL);
+#endif
+
+    } else {
+	Tcl_AppendResult(interp, "bad window option \"", argv[2],
+		"\": must be cget, configure, create, or names",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinConfigure --
+ *
+ *	This procedure is called to handle configuration options
+ *	for an embedded window, using an argc/argv list.
+ *
+ * Results:
+ *	The return value is a standard Tcl result.  If TCL_ERROR is
+ *	returned, then interp->result contains an error message..
+ *
+ * Side effects:
+ *	Configuration information for the embedded window changes,
+ *	such as alignment, stretching, or name of the embedded
+ *	window.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+EmbWinConfigure(textPtr, ewPtr, argc, argv)
+    TkText *textPtr;		/* Information about text widget that
+				 * contains embedded window. */
+    TkTextSegment *ewPtr;	/* Embedded window to be configured. */
+    int argc;			/* Number of strings in argv. */
+    char **argv;		/* Array of strings describing configuration
+				 * options. */
+{
+    Tk_Window oldWindow;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    oldWindow = ewPtr->body.ew.tkwin;
+    if (Tk_ConfigureWidget(textPtr->interp, textPtr->tkwin, configSpecs,
+	    argc, argv, (char *) &ewPtr->body.ew, TK_CONFIG_ARGV_ONLY)
+	    != TCL_OK) {
+	return TCL_ERROR;
+    }
+    if (oldWindow != ewPtr->body.ew.tkwin) {
+	if (oldWindow != NULL) {
+	    Tcl_DeleteHashEntry(Tcl_FindHashEntry(&textPtr->windowTable,
+		    Tk_PathName(oldWindow)));
+	    Tk_DeleteEventHandler(oldWindow, StructureNotifyMask,
+		    EmbWinStructureProc, (ClientData) ewPtr);
+	    Tk_ManageGeometry(oldWindow, (Tk_GeomMgr *) NULL,
+		    (ClientData) NULL);
+	    if (textPtr->tkwin != Tk_Parent(oldWindow)) {
+		Tk_UnmaintainGeometry(oldWindow, textPtr->tkwin);
+	    } else {
+		Tk_UnmapWindow(oldWindow);
+	    }
+	}
+	if (ewPtr->body.ew.tkwin != NULL) {
+	    Tk_Window ancestor, parent;
+
+	    /*
+	     * Make sure that the text is either the parent of the
+	     * embedded window or a descendant of that parent.  Also,
+	     * don't allow a top-level window to be managed inside
+	     * a text.
+	     */
+
+	    parent = Tk_Parent(ewPtr->body.ew.tkwin);
+	    for (ancestor = textPtr->tkwin; ;
+		    ancestor = Tk_Parent(ancestor)) {
+		if (ancestor == parent) {
+		    break;
+		}
+		if (Tk_IsTopLevel(ancestor)) {
+		    badMaster:
+		    Tcl_AppendResult(textPtr->interp, "can't embed ",
+			    Tk_PathName(ewPtr->body.ew.tkwin), " in ",
+			    Tk_PathName(textPtr->tkwin), (char *) NULL);
+		    ewPtr->body.ew.tkwin = NULL;
+		    return TCL_ERROR;
+		}
+	    }
+	    if (Tk_IsTopLevel(ewPtr->body.ew.tkwin)
+		    || (ewPtr->body.ew.tkwin == textPtr->tkwin)) {
+		goto badMaster;
+	    }
+
+	    /*
+	     * Take over geometry management for the window, plus create
+	     * an event handler to find out when it is deleted.
+	     */
+
+	    Tk_ManageGeometry(ewPtr->body.ew.tkwin, &textGeomType,
+		    (ClientData) ewPtr);
+	    Tk_CreateEventHandler(ewPtr->body.ew.tkwin, StructureNotifyMask,
+		    EmbWinStructureProc, (ClientData) ewPtr);
+
+	    /*
+	     * Special trick!  Must enter into the hash table *after*
+	     * calling Tk_ManageGeometry:  if the window was already managed
+	     * elsewhere in this text, the Tk_ManageGeometry call will cause
+	     * the entry to be removed, which could potentially lose the new
+	     * entry.
+	     */
+
+	    hPtr = Tcl_CreateHashEntry(&textPtr->windowTable,
+		    Tk_PathName(ewPtr->body.ew.tkwin), &new);
+	    Tcl_SetHashValue(hPtr, ewPtr);
+
+	}
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AlignParseProc --
+ *
+ *	This procedure is invoked by Tk_ConfigureWidget during
+ *	option processing to handle "-align" options for embedded
+ *	windows.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *	The alignment for the embedded window may change.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+AlignParseProc(clientData, interp, tkwin, value, widgRec, offset)
+    ClientData clientData;		/* Not used.*/
+    Tcl_Interp *interp;			/* Used for reporting errors. */
+    Tk_Window tkwin;			/* Window for text widget. */
+    char *value;			/* Value of option. */
+    char *widgRec;			/* Pointer to TkTextEmbWindow
+					 * structure. */
+    int offset;				/* Offset into item (ignored). */
+{
+    register TkTextEmbWindow *embPtr = (TkTextEmbWindow *) widgRec;
+
+    if (strcmp(value, "baseline") == 0) {
+	embPtr->align = ALIGN_BASELINE;
+    } else if (strcmp(value, "bottom") == 0) {
+	embPtr->align = ALIGN_BOTTOM;
+    } else if (strcmp(value, "center") == 0) {
+	embPtr->align = ALIGN_CENTER;
+    } else if (strcmp(value, "top") == 0) {
+	embPtr->align = ALIGN_TOP;
+    } else {
+	Tcl_AppendResult(interp, "bad alignment \"", value,
+		"\": must be baseline, bottom, center, or top",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AlignPrintProc --
+ *
+ *	This procedure is invoked by the Tk configuration code
+ *	to produce a printable string for the "-align" configuration
+ *	option for embedded windows.
+ *
+ * Results:
+ *	The return value is a string describing the embedded
+ *	window's current alignment.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static char *
+AlignPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr)
+    ClientData clientData;		/* Ignored. */
+    Tk_Window tkwin;			/* Window for text widget. */
+    char *widgRec;			/* Pointer to TkTextEmbWindow
+					 * structure. */
+    int offset;				/* Ignored. */
+    Tcl_FreeProc **freeProcPtr;		/* Pointer to variable to fill in with
+					 * information about how to reclaim
+					 * storage for return string. */
+{
+    switch (((TkTextEmbWindow *) widgRec)->align) {
+	case ALIGN_BASELINE:
+	    return "baseline";
+	case ALIGN_BOTTOM:
+	    return "bottom";
+	case ALIGN_CENTER:
+	    return "center";
+	case ALIGN_TOP:
+	    return "top";
+	default:
+	    return "??";
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinStructureProc --
+ *
+ *	This procedure is invoked by the Tk event loop whenever
+ *	StructureNotify events occur for a window that's embedded
+ *	in a text widget.  This procedure's only purpose is to
+ *	clean up when windows are deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is disassociated from the window segment, and
+ *	the portion of the text is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinStructureProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to record describing window item. */
+    XEvent *eventPtr;		/* Describes what just happened. */
+{
+    register TkTextSegment *ewPtr = (TkTextSegment *) clientData;
+    TkTextIndex index;
+
+    if (eventPtr->type != DestroyNotify) {
+	return;
+    }
+
+    Tcl_DeleteHashEntry(Tcl_FindHashEntry(&ewPtr->body.ew.textPtr->windowTable,
+	    Tk_PathName(ewPtr->body.ew.tkwin)));
+    ewPtr->body.ew.tkwin = NULL;
+    index.tree = ewPtr->body.ew.textPtr->tree;
+    index.linePtr = ewPtr->body.ew.linePtr;
+    index.charIndex = TkTextSegToOffset(ewPtr, ewPtr->body.ew.linePtr);
+    TkTextChanged(ewPtr->body.ew.textPtr, &index, &index);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinRequestProc --
+ *
+ *	This procedure is invoked whenever a window that's associated
+ *	with a window canvas item changes its requested dimensions.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The size and location on the screen of the window may change,
+ *	depending on the options specified for the window item.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+EmbWinRequestProc(clientData, tkwin)
+    ClientData clientData;		/* Pointer to record for window item. */
+    Tk_Window tkwin;			/* Window that changed its desired
+					 * size. */
+{
+    TkTextSegment *ewPtr = (TkTextSegment *) clientData;
+    TkTextIndex index;
+
+    index.tree = ewPtr->body.ew.textPtr->tree;
+    index.linePtr = ewPtr->body.ew.linePtr;
+    index.charIndex = TkTextSegToOffset(ewPtr, ewPtr->body.ew.linePtr);
+    TkTextChanged(ewPtr->body.ew.textPtr, &index, &index);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinLostSlaveProc --
+ *
+ *	This procedure is invoked by the Tk geometry manager when
+ *	a slave window managed by a text widget is claimed away
+ *	by another geometry manager.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is disassociated from the window segment, and
+ *	the portion of the text is redisplayed.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinLostSlaveProc(clientData, tkwin)
+    ClientData clientData;	/* Pointer to record describing window item. */
+    Tk_Window tkwin;		/* Window that was claimed away by another
+				 * geometry manager. */
+{
+    register TkTextSegment *ewPtr = (TkTextSegment *) clientData;
+    TkTextIndex index;
+
+    Tk_DeleteEventHandler(ewPtr->body.ew.tkwin, StructureNotifyMask,
+	    EmbWinStructureProc, (ClientData) ewPtr);
+    Tcl_CancelIdleCall(EmbWinDelayedUnmap, (ClientData) ewPtr);
+    if (ewPtr->body.ew.textPtr->tkwin != Tk_Parent(tkwin)) {
+	Tk_UnmaintainGeometry(tkwin, ewPtr->body.ew.textPtr->tkwin);
+    } else {
+	Tk_UnmapWindow(tkwin);
+    }
+    Tcl_DeleteHashEntry(Tcl_FindHashEntry(&ewPtr->body.ew.textPtr->windowTable,
+	    Tk_PathName(ewPtr->body.ew.tkwin)));
+    ewPtr->body.ew.tkwin = NULL;
+    index.tree = ewPtr->body.ew.textPtr->tree;
+    index.linePtr = ewPtr->body.ew.linePtr;
+    index.charIndex = TkTextSegToOffset(ewPtr, ewPtr->body.ew.linePtr);
+    TkTextChanged(ewPtr->body.ew.textPtr, &index, &index);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinDeleteProc --
+ *
+ *	This procedure is invoked by the text B-tree code whenever
+ *	an embedded window lies in a range of characters being deleted.
+ *
+ * Results:
+ *	Returns 0 to indicate that the deletion has been accepted.
+ *
+ * Side effects:
+ *	The embedded window is deleted, if it exists, and any resources
+ *	associated with it are released.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static int
+EmbWinDeleteProc(ewPtr, linePtr, treeGone)
+    TkTextSegment *ewPtr;		/* Segment being deleted. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+    int treeGone;			/* Non-zero means the entire tree is
+					 * being deleted, so everything must
+					 * get cleaned up. */
+{
+    Tcl_HashEntry *hPtr;
+
+    if (ewPtr->body.ew.tkwin != NULL) {
+	hPtr = Tcl_FindHashEntry(&ewPtr->body.ew.textPtr->windowTable,
+		Tk_PathName(ewPtr->body.ew.tkwin));
+	if (hPtr != NULL) {
+	    /*
+	     * (It's possible for there to be no hash table entry for this
+	     * window, if an error occurred while creating the window segment
+	     * but before the window got added to the table)
+	     */
+
+	    Tcl_DeleteHashEntry(hPtr);
+	}
+
+	/*
+	 * Delete the event handler for the window before destroying
+	 * the window, so that EmbWinStructureProc doesn't get called
+	 * (we'll already do everything that it would have done, and
+	 * it will just get confused).
+	 */
+
+	Tk_DeleteEventHandler(ewPtr->body.ew.tkwin, StructureNotifyMask,
+		EmbWinStructureProc, (ClientData) ewPtr);
+	Tk_DestroyWindow(ewPtr->body.ew.tkwin);
+    }
+    Tcl_CancelIdleCall(EmbWinDelayedUnmap, (ClientData) ewPtr);
+    Tk_FreeOptions(configSpecs, (char *) &ewPtr->body.ew,
+	    ewPtr->body.ew.textPtr->display, 0);
+    ckfree((char *) ewPtr);
+    return 0;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinCleanupProc --
+ *
+ *	This procedure is invoked by the B-tree code whenever a
+ *	segment containing an embedded window is moved from one
+ *	line to another.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The linePtr field of the segment gets updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkTextSegment *
+EmbWinCleanupProc(ewPtr, linePtr)
+    TkTextSegment *ewPtr;		/* Mark segment that's being moved. */
+    TkTextLine *linePtr;		/* Line that now contains segment. */
+{
+    ewPtr->body.ew.linePtr = linePtr;
+    return ewPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinLayoutProc --
+ *
+ *	This procedure is the "layoutProc" for embedded window
+ *	segments.
+ *
+ * Results:
+ *	1 is returned to indicate that the segment should be
+ *	displayed.  The chunkPtr structure is filled in.
+ *
+ * Side effects:
+ *	None, except for filling in chunkPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/*ARGSUSED*/
+static int
+EmbWinLayoutProc(textPtr, indexPtr, ewPtr, offset, maxX, maxChars,
+	noCharsYet, wrapMode, chunkPtr)
+    TkText *textPtr;		/* Text widget being layed out. */
+    TkTextIndex *indexPtr;	/* Identifies first character in chunk. */
+    TkTextSegment *ewPtr;	/* Segment corresponding to indexPtr. */
+    int offset;			/* Offset within segPtr corresponding to
+				 * indexPtr (always 0). */
+    int maxX;			/* Chunk must not occupy pixels at this
+				 * position or higher. */
+    int maxChars;		/* Chunk must not include more than this
+				 * many characters. */
+    int noCharsYet;		/* Non-zero means no characters have been
+				 * assigned to this line yet. */
+    Tk_Uid wrapMode;		/* Wrap mode to use for line: tkTextCharUid,
+				 * tkTextNoneUid, or tkTextWordUid. */
+    register TkTextDispChunk *chunkPtr;
+				/* Structure to fill in with information
+				 * about this chunk.  The x field has already
+				 * been set by the caller. */
+{
+    int width, height;
+
+    if (offset != 0) {
+	panic("Non-zero offset in EmbWinLayoutProc");
+    }
+
+    if ((ewPtr->body.ew.tkwin == NULL) && (ewPtr->body.ew.create != NULL)) {
+	int code, new;
+	Tcl_DString name;
+	Tk_Window ancestor;
+	Tcl_HashEntry *hPtr;
+
+	/*
+	 * The window doesn't currently exist.  Create it by evaluating
+	 * the creation script.  The script must return the window's
+	 * path name:  look up that name to get back to the window
+	 * token.  Then register ourselves as the geometry manager for
+	 * the window.
+	 */
+
+	code = Tcl_GlobalEval(textPtr->interp, ewPtr->body.ew.create);
+	if (code != TCL_OK) {
+	    createError:
+	    Tcl_BackgroundError(textPtr->interp);
+	    goto gotWindow;
+	}
+	Tcl_DStringInit(&name);
+#ifdef STk_CODE
+ 	{
+ 	  void * dumb;
+ 	  /* Convert last result for Tk */
+ 	  Tcl_DStringAppend(&name, 
+			    STk_convert_for_Tk(STk_last_Tk_as_SCM(), &dumb),
+ 			    -1);
+	}
+#else
+	Tcl_DStringAppend(&name, textPtr->interp->result, -1);
+#endif
+	Tcl_ResetResult(textPtr->interp);
+	ewPtr->body.ew.tkwin = Tk_NameToWindow(textPtr->interp,
+		Tcl_DStringValue(&name), textPtr->tkwin);
+	if (ewPtr->body.ew.tkwin == NULL) {
+	    goto createError;
+	}
+	for (ancestor = textPtr->tkwin; ;
+		ancestor = Tk_Parent(ancestor)) {
+	    if (ancestor == Tk_Parent(ewPtr->body.ew.tkwin)) {
+		break;
+	    }
+	    if (Tk_IsTopLevel(ancestor)) {
+		badMaster:
+		Tcl_AppendResult(textPtr->interp, "can't embed ",
+			Tk_PathName(ewPtr->body.ew.tkwin), " relative to ",
+			Tk_PathName(textPtr->tkwin), (char *) NULL);
+		Tcl_BackgroundError(textPtr->interp);
+		ewPtr->body.ew.tkwin = NULL;
+		goto gotWindow;
+	    }
+	}
+	if (Tk_IsTopLevel(ewPtr->body.ew.tkwin)
+		|| (textPtr->tkwin == ewPtr->body.ew.tkwin)) {
+	    goto badMaster;
+	}
+	Tk_ManageGeometry(ewPtr->body.ew.tkwin, &textGeomType,
+		(ClientData) ewPtr);
+	Tk_CreateEventHandler(ewPtr->body.ew.tkwin, StructureNotifyMask,
+		EmbWinStructureProc, (ClientData) ewPtr);
+
+	/*
+	 * Special trick!  Must enter into the hash table *after*
+	 * calling Tk_ManageGeometry:  if the window was already managed
+	 * elsewhere in this text, the Tk_ManageGeometry call will cause
+	 * the entry to be removed, which could potentially lose the new
+	 * entry.
+	 */
+
+	hPtr = Tcl_CreateHashEntry(&textPtr->windowTable,
+		Tk_PathName(ewPtr->body.ew.tkwin), &new);
+	Tcl_SetHashValue(hPtr, ewPtr);
+    }
+
+    /*
+     * See if there's room for this window on this line.
+     */
+
+    gotWindow:
+    if (ewPtr->body.ew.tkwin == NULL) {
+	width = 0;
+	height = 0;
+    } else {
+	width = Tk_ReqWidth(ewPtr->body.ew.tkwin) + 2*ewPtr->body.ew.padX;
+	height = Tk_ReqHeight(ewPtr->body.ew.tkwin) + 2*ewPtr->body.ew.padY;
+    }
+    if ((width > (maxX - chunkPtr->x))
+	    && !noCharsYet && (textPtr->wrapMode != tkTextNoneUid)) {
+	return 0;
+    }
+
+    /*
+     * Fill in the chunk structure.
+     */
+
+    chunkPtr->displayProc = EmbWinDisplayProc;
+    chunkPtr->undisplayProc = EmbWinUndisplayProc;
+    chunkPtr->measureProc = (Tk_ChunkMeasureProc *) NULL;
+    chunkPtr->bboxProc = EmbWinBboxProc;
+    chunkPtr->numChars = 1;
+    if (ewPtr->body.ew.align == ALIGN_BASELINE) {
+	chunkPtr->minAscent = height - ewPtr->body.ew.padY;
+	chunkPtr->minDescent = ewPtr->body.ew.padY;
+	chunkPtr->minHeight = 0;
+    } else {
+	chunkPtr->minAscent = 0;
+	chunkPtr->minDescent = 0;
+	chunkPtr->minHeight = height;
+    }
+    chunkPtr->width = width;
+    chunkPtr->breakIndex = -1;
+    chunkPtr->breakIndex = 1;
+    chunkPtr->clientData = (ClientData) ewPtr;
+    ewPtr->body.ew.chunkCount += 1;
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinCheckProc --
+ *
+ *	This procedure is invoked by the B-tree code to perform
+ *	consistency checks on embedded windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The procedure panics if it detects anything wrong with
+ *	the embedded window.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinCheckProc(ewPtr, linePtr)
+    TkTextSegment *ewPtr;		/* Segment to check. */
+    TkTextLine *linePtr;		/* Line containing segment. */
+{
+    if (ewPtr->nextPtr == NULL) {
+	panic("EmbWinCheckProc: embedded window is last segment in line");
+    }
+    if (ewPtr->size != 1) {
+	panic("EmbWinCheckProc: embedded window has size %d", ewPtr->size);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinDisplayProc --
+ *
+ *	This procedure is invoked by the text displaying code
+ *	when it is time to actually draw an embedded window
+ *	chunk on the screen.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The embedded window gets moved to the correct location
+ *	and mapped onto the screen.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinDisplayProc(chunkPtr, x, y, lineHeight, baseline, display, dst, screenY)
+    TkTextDispChunk *chunkPtr;		/* Chunk that is to be drawn. */
+    int x;				/* X-position in dst at which to
+					 * draw this chunk (differs from
+					 * the x-position in the chunk because
+					 * of scrolling). */
+    int y;				/* Top of rectangular bounding box
+					 * for line: tells where to draw this
+					 * chunk in dst (x-position is in
+					 * the chunk itself). */
+    int lineHeight;			/* Total height of line. */
+    int baseline;			/* Offset of baseline from y. */
+    Display *display;			/* Display to use for drawing. */
+    Drawable dst;			/* Pixmap or window in which to draw */
+    int screenY;			/* Y-coordinate in text window that
+					 * corresponds to y. */
+{
+    TkTextSegment *ewPtr = (TkTextSegment *) chunkPtr->clientData;
+    int lineX, windowX, windowY, width, height;
+    Tk_Window tkwin;
+
+    tkwin = ewPtr->body.ew.tkwin;
+    if (tkwin == NULL) {
+	return;
+    }
+    if ((x + chunkPtr->width) <= 0) {
+	/*
+	 * The window is off-screen;  just unmap it.
+	 */
+
+	if (ewPtr->body.ew.textPtr->tkwin != Tk_Parent(tkwin)) {
+	    Tk_UnmaintainGeometry(tkwin, ewPtr->body.ew.textPtr->tkwin);
+	} else {
+	    Tk_UnmapWindow(tkwin);
+	}
+	return;
+    }
+
+    /*
+     * Compute the window's location and size in the text widget, taking
+     * into account the align and stretch values for the window.
+     */
+
+    EmbWinBboxProc(chunkPtr, 0, screenY, lineHeight, baseline, &lineX,
+	    &windowY, &width, &height);
+    windowX = lineX - chunkPtr->x + x;
+
+    if (ewPtr->body.ew.textPtr->tkwin == Tk_Parent(tkwin)) {
+	if ((windowX != Tk_X(tkwin)) || (windowY != Tk_Y(tkwin))
+		|| (Tk_ReqWidth(tkwin) != Tk_Width(tkwin))
+		|| (height != Tk_Height(tkwin))) {
+	    Tk_MoveResizeWindow(tkwin, windowX, windowY, width, height);
+	}
+	Tk_MapWindow(tkwin);
+    } else {
+	Tk_MaintainGeometry(tkwin, ewPtr->body.ew.textPtr->tkwin,
+		windowX, windowY, width, height);
+    }
+
+    /*
+     * Mark the window as displayed so that it won't get unmapped.
+     */
+
+    ewPtr->body.ew.displayed = 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinUndisplayProc --
+ *
+ *	This procedure is called when the chunk for an embedded
+ *	window is no longer going to be displayed.  It arranges
+ *	for the window associated with the chunk to be unmapped.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is scheduled for unmapping.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinUndisplayProc(textPtr, chunkPtr)
+    TkText *textPtr;			/* Overall information about text
+					 * widget. */
+    TkTextDispChunk *chunkPtr;		/* Chunk that is about to be freed. */
+{
+    TkTextSegment *ewPtr = (TkTextSegment *) chunkPtr->clientData;
+
+    ewPtr->body.ew.chunkCount--;
+    if (ewPtr->body.ew.chunkCount == 0) {
+	/*
+	 * Don't unmap the window immediately, since there's a good chance
+	 * that it will immediately be redisplayed, perhaps even in the
+	 * same place.  Instead, schedule the window to be unmapped later;
+	 * the call to EmbWinDelayedUnmap will be cancelled in the likely
+	 * event that the unmap becomes unnecessary.
+	 */
+
+	ewPtr->body.ew.displayed = 0;
+	Tcl_DoWhenIdle(EmbWinDelayedUnmap, (ClientData) ewPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinBboxProc --
+ *
+ *	This procedure is called to compute the bounding box of
+ *	the area occupied by an embedded window.
+ *
+ * Results:
+ *	There is no return value.  *xPtr and *yPtr are filled in
+ *	with the coordinates of the upper left corner of the
+ *	window, and *widthPtr and *heightPtr are filled in with
+ *	the dimensions of the window in pixels.  Note:  not all
+ *	of the returned bbox is necessarily visible on the screen
+ *	(the rightmost part might be off-screen to the right,
+ *	and the bottommost part might be off-screen to the bottom).
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinBboxProc(chunkPtr, index, y, lineHeight, baseline, xPtr, yPtr,
+	widthPtr, heightPtr)
+    TkTextDispChunk *chunkPtr;		/* Chunk containing desired char. */
+    int index;				/* Index of desired character within
+					 * the chunk. */
+    int y;				/* Topmost pixel in area allocated
+					 * for this line. */
+    int lineHeight;			/* Total height of line. */
+    int baseline;			/* Location of line's baseline, in
+					 * pixels measured down from y. */
+    int *xPtr, *yPtr;			/* Gets filled in with coords of
+					 * character's upper-left pixel. */
+    int *widthPtr;			/* Gets filled in with width of
+					 * character, in pixels. */
+    int *heightPtr;			/* Gets filled in with height of
+					 * character, in pixels. */
+{
+    TkTextSegment *ewPtr = (TkTextSegment *) chunkPtr->clientData;
+    Tk_Window tkwin;
+
+    tkwin = ewPtr->body.ew.tkwin;
+    if (tkwin != NULL) {
+	*widthPtr = Tk_ReqWidth(tkwin);
+	*heightPtr = Tk_ReqHeight(tkwin);
+    } else {
+	*widthPtr = 0;
+	*heightPtr = 0;
+    }
+    *xPtr = chunkPtr->x + ewPtr->body.ew.padX;
+    if (ewPtr->body.ew.stretch) {
+	if (ewPtr->body.ew.align == ALIGN_BASELINE) {
+	    *heightPtr = baseline - ewPtr->body.ew.padY;
+	} else {
+	    *heightPtr = lineHeight - 2*ewPtr->body.ew.padY;
+	}
+    }
+    switch (ewPtr->body.ew.align) {
+	case ALIGN_BOTTOM:
+	    *yPtr = y + (lineHeight - *heightPtr - ewPtr->body.ew.padY);
+	    break;
+	case ALIGN_CENTER:
+	    *yPtr = y + (lineHeight - *heightPtr)/2;
+	    break;
+	case ALIGN_TOP:
+	    *yPtr = y + ewPtr->body.ew.padY;
+	    break;
+	case ALIGN_BASELINE:
+	    *yPtr = y + (baseline - *heightPtr);
+	    break;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * EmbWinDelayedUnmap --
+ *
+ *	This procedure is an idle handler that does the actual
+ *	work of unmapping an embedded window.  See the comment
+ *	in EmbWinUndisplayProc for details.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window gets unmapped, unless its chunk reference count
+ *	has become non-zero again.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+EmbWinDelayedUnmap(clientData)
+    ClientData clientData;		/* Token for the window to
+					 * be unmapped. */
+{
+    TkTextSegment *ewPtr = (TkTextSegment *) clientData;
+
+    if (!ewPtr->body.ew.displayed && (ewPtr->body.ew.tkwin != NULL)) {
+	if (ewPtr->body.ew.textPtr->tkwin != Tk_Parent(ewPtr->body.ew.tkwin)) {
+	    Tk_UnmaintainGeometry(ewPtr->body.ew.tkwin,
+		    ewPtr->body.ew.textPtr->tkwin);
+	} else {
+	    Tk_UnmapWindow(ewPtr->body.ew.tkwin);
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkTextWindowIndex --
+ *
+ *	Given the name of an embedded window within a text widget,
+ *	returns an index corresponding to the window's position
+ *	in the text.
+ *
+ * Results:
+ *	The return value is 1 if there is an embedded window by
+ *	the given name in the text widget, 0 otherwise.  If the
+ *	window exists, *indexPtr is filled in with its index.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkTextWindowIndex(textPtr, name, indexPtr)
+    TkText *textPtr;		/* Text widget containing window. */
+    char *name;			/* Name of window. */
+    TkTextIndex *indexPtr;	/* Index information gets stored here. */
+{
+    Tcl_HashEntry *hPtr;
+    TkTextSegment *ewPtr;
+
+    hPtr = Tcl_FindHashEntry(&textPtr->windowTable, name);
+    if (hPtr == NULL) {
+	return 0;
+    }
+    ewPtr = (TkTextSegment *) Tcl_GetHashValue(hPtr);
+    indexPtr->tree = textPtr->tree;
+    indexPtr->linePtr = ewPtr->body.ew.linePtr;
+    indexPtr->charIndex = TkTextSegToOffset(ewPtr, indexPtr->linePtr);
+    return 1;
+}
diff --git a/Tk/generic/tkTrig.c b/Tk/generic/tkTrig.c
new file mode 100644
index 0000000..c1f2557
--- /dev/null
+++ b/Tk/generic/tkTrig.c
@@ -0,0 +1,1449 @@
+/* 
+ * tkTrig.c --
+ *
+ *	This file contains a collection of trigonometry utility
+ *	routines that are used by Tk and in particular by the
+ *	canvas code.  It also has miscellaneous geometry functions
+ *	used by canvases.
+ *
+ * Copyright (c) 1992-1994 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkTrig.c 1.23 96/02/15 18:53:05
+ */
+
+#include <stdio.h>
+#include "tkInt.h"
+#include "tkPort.h"
+#include "tkCanvas.h"
+
+#undef MIN
+#define MIN(a,b) (((a) < (b)) ? (a) : (b))
+#undef MAX
+#define MAX(a,b) (((a) > (b)) ? (a) : (b))
+#ifndef PI
+#   define PI 3.14159265358979323846
+#endif /* PI */
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkLineToPoint --
+ *
+ *	Compute the distance from a point to a finite line segment.
+ *
+ * Results:
+ *	The return value is the distance from the line segment
+ *	whose end-points are *end1Ptr and *end2Ptr to the point
+ *	given by *pointPtr.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+double
+TkLineToPoint(end1Ptr, end2Ptr, pointPtr)
+    double end1Ptr[2];		/* Coordinates of first end-point of line. */
+    double end2Ptr[2];		/* Coordinates of second end-point of line. */
+    double pointPtr[2];		/* Points to coords for point. */
+{
+    double x, y;
+
+    /*
+     * Compute the point on the line that is closest to the
+     * point.  This must be done separately for vertical edges,
+     * horizontal edges, and other edges.
+     */
+
+    if (end1Ptr[0] == end2Ptr[0]) {
+
+	/*
+	 * Vertical edge.
+	 */
+
+	x = end1Ptr[0];
+	if (end1Ptr[1] >= end2Ptr[1]) {
+	    y = MIN(end1Ptr[1], pointPtr[1]);
+	    y = MAX(y, end2Ptr[1]);
+	} else {
+	    y = MIN(end2Ptr[1], pointPtr[1]);
+	    y = MAX(y, end1Ptr[1]);
+	}
+    } else if (end1Ptr[1] == end2Ptr[1]) {
+
+	/*
+	 * Horizontal edge.
+	 */
+
+	y = end1Ptr[1];
+	if (end1Ptr[0] >= end2Ptr[0]) {
+	    x = MIN(end1Ptr[0], pointPtr[0]);
+	    x = MAX(x, end2Ptr[0]);
+	} else {
+	    x = MIN(end2Ptr[0], pointPtr[0]);
+	    x = MAX(x, end1Ptr[0]);
+	}
+    } else {
+	double m1, b1, m2, b2;
+
+	/*
+	 * The edge is neither horizontal nor vertical.  Convert the
+	 * edge to a line equation of the form y = m1*x + b1.  Then
+	 * compute a line perpendicular to this edge but passing
+	 * through the point, also in the form y = m2*x + b2.
+	 */
+
+	m1 = (end2Ptr[1] - end1Ptr[1])/(end2Ptr[0] - end1Ptr[0]);
+	b1 = end1Ptr[1] - m1*end1Ptr[0];
+	m2 = -1.0/m1;
+	b2 = pointPtr[1] - m2*pointPtr[0];
+	x = (b2 - b1)/(m1 - m2);
+	y = m1*x + b1;
+	if (end1Ptr[0] > end2Ptr[0]) {
+	    if (x > end1Ptr[0]) {
+		x = end1Ptr[0];
+		y = end1Ptr[1];
+	    } else if (x < end2Ptr[0]) {
+		x = end2Ptr[0];
+		y = end2Ptr[1];
+	    }
+	} else {
+	    if (x > end2Ptr[0]) {
+		x = end2Ptr[0];
+		y = end2Ptr[1];
+	    } else if (x < end1Ptr[0]) {
+		x = end1Ptr[0];
+		y = end1Ptr[1];
+	    }
+	}
+    }
+
+    /*
+     * Compute the distance to the closest point.
+     */
+
+    return hypot(pointPtr[0] - x, pointPtr[1] - y);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkLineToArea --
+ *
+ *	Determine whether a line lies entirely inside, entirely
+ *	outside, or overlapping a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the line given by end1Ptr and end2Ptr
+ *	is entirely outside the rectangle given by rectPtr.  0 is
+ *	returned if the polygon overlaps the rectangle, and 1 is
+ *	returned if the polygon is entirely inside the rectangle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkLineToArea(end1Ptr, end2Ptr, rectPtr)
+    double end1Ptr[2];		/* X and y coordinates for one endpoint
+				 * of line. */
+    double end2Ptr[2];		/* X and y coordinates for other endpoint
+				 * of line. */
+    double rectPtr[4];		/* Points to coords for rectangle, in the
+				 * order x1, y1, x2, y2.  X1 must be no
+				 * larger than x2, and y1 no larger than y2. */
+{
+    int inside1, inside2;
+
+    /*
+     * First check the two points individually to see whether they
+     * are inside the rectangle or not.
+     */
+
+    inside1 = (end1Ptr[0] >= rectPtr[0]) && (end1Ptr[0] <= rectPtr[2])
+	    && (end1Ptr[1] >= rectPtr[1]) && (end1Ptr[1] <= rectPtr[3]);
+    inside2 = (end2Ptr[0] >= rectPtr[0]) && (end2Ptr[0] <= rectPtr[2])
+	    && (end2Ptr[1] >= rectPtr[1]) && (end2Ptr[1] <= rectPtr[3]);
+    if (inside1 != inside2) {
+	return 0;
+    }
+    if (inside1 & inside2) {
+	return 1;
+    }
+
+    /*
+     * Both points are outside the rectangle, but still need to check
+     * for intersections between the line and the rectangle.  Horizontal
+     * and vertical lines are particularly easy, so handle them
+     * separately.
+     */
+
+    if (end1Ptr[0] == end2Ptr[0]) {
+	/*
+	 * Vertical line.
+	 */
+    
+	if (((end1Ptr[1] >= rectPtr[1]) ^ (end2Ptr[1] >= rectPtr[1]))
+		&& (end1Ptr[0] >= rectPtr[0])
+		&& (end1Ptr[0] <= rectPtr[2])) {
+	    return 0;
+	}
+    } else if (end1Ptr[1] == end2Ptr[1]) {
+	/*
+	 * Horizontal line.
+	 */
+    
+	if (((end1Ptr[0] >= rectPtr[0]) ^ (end2Ptr[0] >= rectPtr[0]))
+		&& (end1Ptr[1] >= rectPtr[1])
+		&& (end1Ptr[1] <= rectPtr[3])) {
+	    return 0;
+	}
+    } else {
+	double m, x, y, low, high;
+    
+	/*
+	 * Diagonal line.  Compute slope of line and use
+	 * for intersection checks against each of the
+	 * sides of the rectangle: left, right, bottom, top.
+	 */
+    
+	m = (end2Ptr[1] - end1Ptr[1])/(end2Ptr[0] - end1Ptr[0]);
+	if (end1Ptr[0] < end2Ptr[0]) {
+	    low = end1Ptr[0];  high = end2Ptr[0];
+	} else {
+	    low = end2Ptr[0]; high = end1Ptr[0];
+	}
+    
+	/*
+	 * Left edge.
+	 */
+    
+	y = end1Ptr[1] + (rectPtr[0] - end1Ptr[0])*m;
+	if ((rectPtr[0] >= low) && (rectPtr[0] <= high)
+		&& (y >= rectPtr[1]) && (y <= rectPtr[3])) {
+	    return 0;
+	}
+    
+	/*
+	 * Right edge.
+	 */
+    
+	y += (rectPtr[2] - rectPtr[0])*m;
+	if ((y >= rectPtr[1]) && (y <= rectPtr[3])
+		&& (rectPtr[2] >= low) && (rectPtr[2] <= high)) {
+	    return 0;
+	}
+    
+	/*
+	 * Bottom edge.
+	 */
+    
+	if (end1Ptr[1] < end2Ptr[1]) {
+	    low = end1Ptr[1];  high = end2Ptr[1];
+	} else {
+	    low = end2Ptr[1]; high = end1Ptr[1];
+	}
+	x = end1Ptr[0] + (rectPtr[1] - end1Ptr[1])/m;
+	if ((x >= rectPtr[0]) && (x <= rectPtr[2])
+		&& (rectPtr[1] >= low) && (rectPtr[1] <= high)) {
+	    return 0;
+	}
+    
+	/*
+	 * Top edge.
+	 */
+    
+	x += (rectPtr[3] - rectPtr[1])/m;
+	if ((x >= rectPtr[0]) && (x <= rectPtr[2])
+		&& (rectPtr[3] >= low) && (rectPtr[3] <= high)) {
+	    return 0;
+	}
+    }
+    return -1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkThickPolyLineToArea --
+ *
+ *	This procedure is called to determine whether a connected
+ *	series of line segments lies entirely inside, entirely
+ *	outside, or overlapping a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the lines are entirely outside the area,
+ *	0 if they overlap, and 1 if they are entirely inside the
+ *	given area.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+TkThickPolyLineToArea(coordPtr, numPoints, width, capStyle, joinStyle, rectPtr)
+    double *coordPtr;		/* Points to an array of coordinates for
+				 * the polyline:  x0, y0, x1, y1, ... */
+    int numPoints;		/* Total number of points at *coordPtr. */
+    double width;		/* Width of each line segment. */
+    int capStyle;		/* How are end-points of polyline drawn?
+				 * CapRound, CapButt, or CapProjecting. */
+    int joinStyle;		/* How are joints in polyline drawn?
+				 * JoinMiter, JoinRound, or JoinBevel. */
+    double *rectPtr;		/* Rectangular area to check against. */
+{
+    double radius, poly[10];
+    int count;
+    int changedMiterToBevel;	/* Non-zero means that a mitered corner
+				 * had to be treated as beveled after all
+				 * because the angle was < 11 degrees. */
+    int inside;			/* Tentative guess about what to return,
+				 * based on all points seen so far:  one
+				 * means everything seen so far was
+				 * inside the area;  -1 means everything
+				 * was outside the area.  0 means overlap
+				 * has been found. */ 
+
+    radius = width/2.0;
+    inside = -1;
+
+    if ((coordPtr[0] >= rectPtr[0]) && (coordPtr[0] <= rectPtr[2])
+	    && (coordPtr[1] >= rectPtr[1]) && (coordPtr[1] <= rectPtr[3])) {
+	inside = 1;
+    }
+
+    /*
+     * Iterate through all of the edges of the line, computing a polygon
+     * for each edge and testing the area against that polygon.  In
+     * addition, there are additional tests to deal with rounded joints
+     * and caps.
+     */
+
+    changedMiterToBevel = 0;
+    for (count = numPoints; count >= 2; count--, coordPtr += 2) {
+
+	/*
+	 * If rounding is done around the first point of the edge
+	 * then test a circular region around the point with the
+	 * area.
+	 */
+
+	if (((capStyle == CapRound) && (count == numPoints))
+		|| ((joinStyle == JoinRound) && (count != numPoints))) {
+	    poly[0] = coordPtr[0] - radius;
+	    poly[1] = coordPtr[1] - radius;
+	    poly[2] = coordPtr[0] + radius;
+	    poly[3] = coordPtr[1] + radius;
+	    if (TkOvalToArea(poly, rectPtr) != inside) {
+		return 0;
+	    }
+	}
+
+	/*
+	 * Compute the polygonal shape corresponding to this edge,
+	 * consisting of two points for the first point of the edge
+	 * and two points for the last point of the edge.
+	 */
+
+	if (count == numPoints) {
+	    TkGetButtPoints(coordPtr+2, coordPtr, width,
+		    capStyle == CapProjecting, poly, poly+2);
+	} else if ((joinStyle == JoinMiter) && !changedMiterToBevel) {
+	    poly[0] = poly[6];
+	    poly[1] = poly[7];
+	    poly[2] = poly[4];
+	    poly[3] = poly[5];
+	} else {
+	    TkGetButtPoints(coordPtr+2, coordPtr, width, 0, poly, poly+2);
+
+	    /*
+	     * If the last joint was beveled, then also check a
+	     * polygon comprising the last two points of the previous
+	     * polygon and the first two from this polygon;  this checks
+	     * the wedges that fill the beveled joint.
+	     */
+
+	    if ((joinStyle == JoinBevel) || changedMiterToBevel) {
+		poly[8] = poly[0];
+		poly[9] = poly[1];
+		if (TkPolygonToArea(poly, 5, rectPtr) != inside) {
+		    return 0;
+		}
+		changedMiterToBevel = 0;
+	    }
+	}
+	if (count == 2) {
+	    TkGetButtPoints(coordPtr, coordPtr+2, width,
+		    capStyle == CapProjecting, poly+4, poly+6);
+	} else if (joinStyle == JoinMiter) {
+	    if (TkGetMiterPoints(coordPtr, coordPtr+2, coordPtr+4,
+		    (double) width, poly+4, poly+6) == 0) {
+		changedMiterToBevel = 1;
+		TkGetButtPoints(coordPtr, coordPtr+2, width, 0, poly+4,
+			poly+6);
+	    }
+	} else {
+	    TkGetButtPoints(coordPtr, coordPtr+2, width, 0, poly+4, poly+6);
+	}
+	poly[8] = poly[0];
+	poly[9] = poly[1];
+	if (TkPolygonToArea(poly, 5, rectPtr) != inside) {
+	    return 0;
+	}
+    }
+
+    /*
+     * If caps are rounded, check the cap around the final point
+     * of the line.
+     */
+
+    if (capStyle == CapRound) {
+	poly[0] = coordPtr[0] - radius;
+	poly[1] = coordPtr[1] - radius;
+	poly[2] = coordPtr[0] + radius;
+	poly[3] = coordPtr[1] + radius;
+	if (TkOvalToArea(poly, rectPtr) != inside) {
+	    return 0;
+	}
+    }
+
+    return inside;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkPolygonToPoint --
+ *
+ *	Compute the distance from a point to a polygon.
+ *
+ * Results:
+ *	The return value is 0.0 if the point referred to by
+ *	pointPtr is within the polygon referred to by polyPtr
+ *	and numPoints.  Otherwise the return value is the
+ *	distance of the point from the polygon.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+double
+TkPolygonToPoint(polyPtr, numPoints, pointPtr)
+    double *polyPtr;		/* Points to an array coordinates for
+				 * closed polygon:  x0, y0, x1, y1, ...
+				 * The polygon may be self-intersecting. */
+    int numPoints;		/* Total number of points at *polyPtr. */
+    double *pointPtr;		/* Points to coords for point. */
+{
+    double bestDist;		/* Closest distance between point and
+				 * any edge in polygon. */
+    int intersections;		/* Number of edges in the polygon that
+				 * intersect a ray extending vertically
+				 * upwards from the point to infinity. */
+    int count;
+    register double *pPtr;
+
+    /*
+     * Iterate through all of the edges in the polygon, updating
+     * bestDist and intersections.
+     *
+     * TRICKY POINT:  when computing intersections, include left
+     * x-coordinate of line within its range, but not y-coordinate.
+     * Otherwise if the point lies exactly below a vertex we'll
+     * count it as two intersections.
+     */
+
+    bestDist = 1.0e36;
+    intersections = 0;
+
+    for (count = numPoints, pPtr = polyPtr; count > 1; count--, pPtr += 2) {
+	double x, y, dist;
+
+	/*
+	 * Compute the point on the current edge closest to the point
+	 * and update the intersection count.  This must be done
+	 * separately for vertical edges, horizontal edges, and
+	 * other edges.
+	 */
+
+	if (pPtr[2] == pPtr[0]) {
+
+	    /*
+	     * Vertical edge.
+	     */
+
+	    x = pPtr[0];
+	    if (pPtr[1] >= pPtr[3]) {
+		y = MIN(pPtr[1], pointPtr[1]);
+		y = MAX(y, pPtr[3]);
+	    } else {
+		y = MIN(pPtr[3], pointPtr[1]);
+		y = MAX(y, pPtr[1]);
+	    }
+	} else if (pPtr[3] == pPtr[1]) {
+
+	    /*
+	     * Horizontal edge.
+	     */
+
+	    y = pPtr[1];
+	    if (pPtr[0] >= pPtr[2]) {
+		x = MIN(pPtr[0], pointPtr[0]);
+		x = MAX(x, pPtr[2]);
+		if ((pointPtr[1] < y) && (pointPtr[0] < pPtr[0])
+			&& (pointPtr[0] >= pPtr[2])) {
+		    intersections++;
+		}
+	    } else {
+		x = MIN(pPtr[2], pointPtr[0]);
+		x = MAX(x, pPtr[0]);
+		if ((pointPtr[1] < y) && (pointPtr[0] < pPtr[2])
+			&& (pointPtr[0] >= pPtr[0])) {
+		    intersections++;
+		}
+	    }
+	} else {
+	    double m1, b1, m2, b2;
+	    int lower;			/* Non-zero means point below line. */
+
+	    /*
+	     * The edge is neither horizontal nor vertical.  Convert the
+	     * edge to a line equation of the form y = m1*x + b1.  Then
+	     * compute a line perpendicular to this edge but passing
+	     * through the point, also in the form y = m2*x + b2.
+	     */
+
+	    m1 = (pPtr[3] - pPtr[1])/(pPtr[2] - pPtr[0]);
+	    b1 = pPtr[1] - m1*pPtr[0];
+	    m2 = -1.0/m1;
+	    b2 = pointPtr[1] - m2*pointPtr[0];
+	    x = (b2 - b1)/(m1 - m2);
+	    y = m1*x + b1;
+	    if (pPtr[0] > pPtr[2]) {
+		if (x > pPtr[0]) {
+		    x = pPtr[0];
+		    y = pPtr[1];
+		} else if (x < pPtr[2]) {
+		    x = pPtr[2];
+		    y = pPtr[3];
+		}
+	    } else {
+		if (x > pPtr[2]) {
+		    x = pPtr[2];
+		    y = pPtr[3];
+		} else if (x < pPtr[0]) {
+		    x = pPtr[0];
+		    y = pPtr[1];
+		}
+	    }
+	    lower = (m1*pointPtr[0] + b1) > pointPtr[1];
+	    if (lower && (pointPtr[0] >= MIN(pPtr[0], pPtr[2]))
+		    && (pointPtr[0] < MAX(pPtr[0], pPtr[2]))) {
+		intersections++;
+	    }
+	}
+
+	/*
+	 * Compute the distance to the closest point, and see if that
+	 * is the best distance seen so far.
+	 */
+
+	dist = hypot(pointPtr[0] - x, pointPtr[1] - y);
+	if (dist < bestDist) {
+	    bestDist = dist;
+	}
+    }
+
+    /*
+     * We've processed all of the points.  If the number of intersections
+     * is odd, the point is inside the polygon.
+     */
+
+    if (intersections & 0x1) {
+	return 0.0;
+    }
+    return bestDist;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkPolygonToArea --
+ *
+ *	Determine whether a polygon lies entirely inside, entirely
+ *	outside, or overlapping a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the polygon given by polyPtr and numPoints
+ *	is entirely outside the rectangle given by rectPtr.  0 is
+ *	returned if the polygon overlaps the rectangle, and 1 is
+ *	returned if the polygon is entirely inside the rectangle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkPolygonToArea(polyPtr, numPoints, rectPtr)
+    double *polyPtr;		/* Points to an array coordinates for
+				 * closed polygon:  x0, y0, x1, y1, ...
+				 * The polygon may be self-intersecting. */
+    int numPoints;		/* Total number of points at *polyPtr. */
+    register double *rectPtr;	/* Points to coords for rectangle, in the
+				 * order x1, y1, x2, y2.  X1 and y1 must
+				 * be lower-left corner. */
+{
+    int state;			/* State of all edges seen so far (-1 means
+				 * outside, 1 means inside, won't ever be
+				 * 0). */
+    int count;
+    register double *pPtr;
+
+    /*
+     * Iterate over all of the edges of the polygon and test them
+     * against the rectangle.  Can quit as soon as the state becomes
+     * "intersecting".
+     */
+
+    state = TkLineToArea(polyPtr, polyPtr+2, rectPtr);
+    if (state == 0) {
+	return 0;
+    }
+    for (pPtr = polyPtr+2, count = numPoints-1; count >= 2;
+	    pPtr += 2, count--) {
+	if (TkLineToArea(pPtr, pPtr+2, rectPtr) != state) {
+	    return 0;
+	}
+    }
+
+    /*
+     * If all of the edges were inside the rectangle we're done.
+     * If all of the edges were outside, then the rectangle could
+     * still intersect the polygon (if it's entirely enclosed).
+     * Call TkPolygonToPoint to figure this out.
+     */
+
+    if (state == 1) {
+	return 1;
+    }
+    if (TkPolygonToPoint(polyPtr, numPoints, rectPtr) == 0.0) {
+	return 0;
+    }
+    return -1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkOvalToPoint --
+ *
+ *	Computes the distance from a given point to a given
+ *	oval, in canvas units.
+ *
+ * Results:
+ *	The return value is 0 if the point given by *pointPtr is
+ *	inside the oval.  If the point isn't inside the
+ *	oval then the return value is approximately the distance
+ *	from the point to the oval.  If the oval is filled, then
+ *	anywhere in the interior is considered "inside";  if
+ *	the oval isn't filled, then "inside" means only the area
+ *	occupied by the outline.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+double
+TkOvalToPoint(ovalPtr, width, filled, pointPtr)
+    double ovalPtr[4];		/* Pointer to array of four coordinates
+				 * (x1, y1, x2, y2) defining oval's bounding
+				 * box. */
+    double width;		/* Width of outline for oval. */
+    int filled;			/* Non-zero means oval should be treated as
+				 * filled;  zero means only consider outline. */
+    double pointPtr[2];		/* Coordinates of point. */
+{
+    double xDelta, yDelta, scaledDistance, distToOutline, distToCenter;
+    double xDiam, yDiam;
+
+    /*
+     * Compute the distance between the center of the oval and the
+     * point in question, using a coordinate system where the oval
+     * has been transformed to a circle with unit radius.
+     */
+
+    xDelta = (pointPtr[0] - (ovalPtr[0] + ovalPtr[2])/2.0);
+    yDelta = (pointPtr[1] - (ovalPtr[1] + ovalPtr[3])/2.0);
+    distToCenter = hypot(xDelta, yDelta);
+    scaledDistance = hypot(xDelta / ((ovalPtr[2] + width - ovalPtr[0])/2.0),
+	    yDelta / ((ovalPtr[3] + width - ovalPtr[1])/2.0));
+
+
+    /*
+     * If the scaled distance is greater than 1 then it means no
+     * hit.  Compute the distance from the point to the edge of
+     * the circle, then scale this distance back to the original
+     * coordinate system.
+     *
+     * Note: this distance isn't completely accurate.  It's only
+     * an approximation, and it can overestimate the correct
+     * distance when the oval is eccentric.
+     */
+
+    if (scaledDistance > 1.0) {
+	return (distToCenter/scaledDistance) * (scaledDistance - 1.0);
+    }
+
+    /*
+     * Scaled distance less than 1 means the point is inside the
+     * outer edge of the oval.  If this is a filled oval, then we
+     * have a hit.  Otherwise, do the same computation as above
+     * (scale back to original coordinate system), but also check
+     * to see if the point is within the width of the outline.
+     */
+
+    if (filled) {
+	return 0.0;
+    }
+    if (scaledDistance > 1E-10) {
+	distToOutline = (distToCenter/scaledDistance) * (1.0 - scaledDistance)
+		- width;
+    } else {
+	/*
+	 * Avoid dividing by a very small number (it could cause an
+	 * arithmetic overflow).  This problem occurs if the point is
+	 * very close to the center of the oval.
+	 */
+
+	xDiam = ovalPtr[2] - ovalPtr[0];
+	yDiam = ovalPtr[3] - ovalPtr[1];
+	if (xDiam < yDiam) {
+	    distToOutline = (xDiam - width)/2;
+	} else {
+	    distToOutline = (yDiam - width)/2;
+	}
+    }
+
+    if (distToOutline < 0.0) {
+	return 0.0;
+    }
+    return distToOutline;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkOvalToArea --
+ *
+ *	Determine whether an oval lies entirely inside, entirely
+ *	outside, or overlapping a given rectangular area.
+ *
+ * Results:
+ *	-1 is returned if the oval described by ovalPtr is entirely
+ *	outside the rectangle given by rectPtr.  0 is returned if the
+ *	oval overlaps the rectangle, and 1 is returned if the oval
+ *	is entirely inside the rectangle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkOvalToArea(ovalPtr, rectPtr)
+    register double *ovalPtr;	/* Points to coordinates definining the
+				 * bounding rectangle for the oval: x1, y1,
+				 * x2, y2.  X1 must be less than x2 and y1
+				 * less than y2. */
+    register double *rectPtr;	/* Points to coords for rectangle, in the
+				 * order x1, y1, x2, y2.  X1 and y1 must
+				 * be lower-left corner. */
+{
+    double centerX, centerY, radX, radY, deltaX, deltaY;
+
+    /*
+     * First, see if oval is entirely inside rectangle or entirely
+     * outside rectangle.
+     */
+
+    if ((rectPtr[0] <= ovalPtr[0]) && (rectPtr[2] >= ovalPtr[2])
+	    && (rectPtr[1] <= ovalPtr[1]) && (rectPtr[3] >= ovalPtr[3])) {
+	return 1;
+    }
+    if ((rectPtr[2] < ovalPtr[0]) || (rectPtr[0] > ovalPtr[2])
+	    || (rectPtr[3] < ovalPtr[1]) || (rectPtr[1] > ovalPtr[3])) {
+	return -1;
+    }
+
+    /*
+     * Next, go through the rectangle side by side.  For each side
+     * of the rectangle, find the point on the side that is closest
+     * to the oval's center, and see if that point is inside the
+     * oval.  If at least one such point is inside the oval, then
+     * the rectangle intersects the oval.
+     */
+
+    centerX = (ovalPtr[0] + ovalPtr[2])/2;
+    centerY = (ovalPtr[1] + ovalPtr[3])/2;
+    radX = (ovalPtr[2] - ovalPtr[0])/2;
+    radY = (ovalPtr[3] - ovalPtr[1])/2;
+
+    deltaY = rectPtr[1] - centerY;
+    if (deltaY < 0.0) {
+	deltaY = centerY - rectPtr[3];
+	if (deltaY < 0.0) {
+	    deltaY = 0;
+	}
+    }
+    deltaY /= radY;
+    deltaY *= deltaY;
+
+    /*
+     * Left side:
+     */
+
+    deltaX = (rectPtr[0] - centerX)/radX;
+    deltaX *= deltaX;
+    if ((deltaX + deltaY) <= 1.0) {
+	return 0;
+    }
+
+    /*
+     * Right side:
+     */
+
+    deltaX = (rectPtr[2] - centerX)/radX;
+    deltaX *= deltaX;
+    if ((deltaX + deltaY) <= 1.0) {
+	return 0;
+    }
+
+    deltaX = rectPtr[0] - centerX;
+    if (deltaX < 0.0) {
+	deltaX = centerX - rectPtr[2];
+	if (deltaX < 0.0) {
+	    deltaX = 0;
+	}
+    }
+    deltaX /= radX;
+    deltaX *= deltaX;
+
+    /*
+     * Bottom side:
+     */
+
+    deltaY = (rectPtr[1] - centerY)/radY;
+    deltaY *= deltaY;
+    if ((deltaX + deltaY) < 1.0) {
+	return 0;
+    }
+
+    /*
+     * Top side:
+     */
+
+    deltaY = (rectPtr[3] - centerY)/radY;
+    deltaY *= deltaY;
+    if ((deltaX + deltaY) < 1.0) {
+	return 0;
+    }
+
+    return -1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkIncludePoint --
+ *
+ *	Given a point and a generic canvas item header, expand
+ *	the item's bounding box if needed to include the point.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The boudn.
+ *
+ *--------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+void
+TkIncludePoint(itemPtr, pointPtr)
+    register Tk_Item *itemPtr;		/* Item whose bounding box is
+					 * being calculated. */
+    double *pointPtr;			/* Address of two doubles giving
+					 * x and y coordinates of point. */
+{
+    int tmp;
+
+    tmp = pointPtr[0] + 0.5;
+    if (tmp < itemPtr->x1) {
+	itemPtr->x1 = tmp;
+    }
+    if (tmp > itemPtr->x2) {
+	itemPtr->x2 = tmp;
+    }
+    tmp = pointPtr[1] + 0.5;
+    if (tmp < itemPtr->y1) {
+	itemPtr->y1 = tmp;
+    }
+    if (tmp > itemPtr->y2) {
+	itemPtr->y2 = tmp;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkBezierScreenPoints --
+ *
+ *	Given four control points, create a larger set of XPoints
+ *	for a Bezier spline based on the points.
+ *
+ * Results:
+ *	The array at *xPointPtr gets filled in with numSteps XPoints
+ *	corresponding to the Bezier spline defined by the four 
+ *	control points.  Note:  no output point is generated for the
+ *	first input point, but an output point *is* generated for
+ *	the last input point.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkBezierScreenPoints(canvas, control, numSteps, xPointPtr)
+    Tk_Canvas canvas;			/* Canvas in which curve is to be
+					 * drawn. */
+    double control[];			/* Array of coordinates for four
+					 * control points:  x0, y0, x1, y1,
+					 * ... x3 y3. */
+    int numSteps;			/* Number of curve points to
+					 * generate.  */
+    register XPoint *xPointPtr;		/* Where to put new points. */
+{
+    int i;
+    double u, u2, u3, t, t2, t3;
+
+    for (i = 1; i <= numSteps; i++, xPointPtr++) {
+	t = ((double) i)/((double) numSteps);
+	t2 = t*t;
+	t3 = t2*t;
+	u = 1.0 - t;
+	u2 = u*u;
+	u3 = u2*u;
+	Tk_CanvasDrawableCoords(canvas,
+		(control[0]*u3 + 3.0 * (control[2]*t*u2 + control[4]*t2*u)
+		    + control[6]*t3),
+		(control[1]*u3 + 3.0 * (control[3]*t*u2 + control[5]*t2*u)
+		    + control[7]*t3),
+		&xPointPtr->x, &xPointPtr->y);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkBezierPoints --
+ *
+ *	Given four control points, create a larger set of points
+ *	for a Bezier spline based on the points.
+ *
+ * Results:
+ *	The array at *coordPtr gets filled in with 2*numSteps
+ *	coordinates, which correspond to the Bezier spline defined
+ *	by the four control points.  Note:  no output point is
+ *	generated for the first input point, but an output point
+ *	*is* generated for the last input point.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkBezierPoints(control, numSteps, coordPtr)
+    double control[];			/* Array of coordinates for four
+					 * control points:  x0, y0, x1, y1,
+					 * ... x3 y3. */
+    int numSteps;			/* Number of curve points to
+					 * generate.  */
+    register double *coordPtr;		/* Where to put new points. */
+{
+    int i;
+    double u, u2, u3, t, t2, t3;
+
+    for (i = 1; i <= numSteps; i++, coordPtr += 2) {
+	t = ((double) i)/((double) numSteps);
+	t2 = t*t;
+	t3 = t2*t;
+	u = 1.0 - t;
+	u2 = u*u;
+	u3 = u2*u;
+	coordPtr[0] = control[0]*u3
+		+ 3.0 * (control[2]*t*u2 + control[4]*t2*u) + control[6]*t3;
+	coordPtr[1] = control[1]*u3
+		+ 3.0 * (control[3]*t*u2 + control[5]*t2*u) + control[7]*t3;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkMakeBezierCurve --
+ *
+ *	Given a set of points, create a new set of points that
+ *	fit Bezier splines to the line segments connecting the
+ *	original points.  Produces output points in either of two
+ *	forms.
+ *
+ * Results:
+ *	Either or both of the xPoints or dblPoints arrays are filled
+ *	in.  The return value is the number of points placed in the
+ *	arrays.  Note:  if the first and last points are the same, then
+ *	a closed curve is generated.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkMakeBezierCurve(canvas, pointPtr, numPoints, numSteps, xPoints, dblPoints)
+    Tk_Canvas canvas;			/* Canvas in which curve is to be
+					 * drawn. */
+    double *pointPtr;			/* Array of input coordinates:  x0,
+					 * y0, x1, y1, etc.. */
+    int numPoints;			/* Number of points at pointPtr. */
+    int numSteps;			/* Number of steps to use for each
+					 * spline segments (determines
+					 * smoothness of curve). */
+    XPoint xPoints[];			/* Array of XPoints to fill in (e.g.
+					 * for display.  NULL means don't
+					 * fill in any XPoints. */
+    double dblPoints[];			/* Array of points to fill in as
+					 * doubles, in the form x0, y0,
+					 * x1, y1, ....  NULL means don't
+					 * fill in anything in this form. 
+					 * Caller must make sure that this
+					 * array has enough space. */
+{
+    int closed, outputPoints, i;
+    int numCoords = numPoints*2;
+    double control[8];
+
+    /*
+     * If the curve is a closed one then generate a special spline
+     * that spans the last points and the first ones.  Otherwise
+     * just put the first point into the output.
+     */
+
+    outputPoints = 0;
+    if ((pointPtr[0] == pointPtr[numCoords-2])
+	    && (pointPtr[1] == pointPtr[numCoords-1])) {
+	closed = 1;
+	control[0] = 0.5*pointPtr[numCoords-4] + 0.5*pointPtr[0];
+	control[1] = 0.5*pointPtr[numCoords-3] + 0.5*pointPtr[1];
+	control[2] = 0.167*pointPtr[numCoords-4] + 0.833*pointPtr[0];
+	control[3] = 0.167*pointPtr[numCoords-3] + 0.833*pointPtr[1];
+	control[4] = 0.833*pointPtr[0] + 0.167*pointPtr[2];
+	control[5] = 0.833*pointPtr[1] + 0.167*pointPtr[3];
+	control[6] = 0.5*pointPtr[0] + 0.5*pointPtr[2];
+	control[7] = 0.5*pointPtr[1] + 0.5*pointPtr[3];
+	if (xPoints != NULL) {
+	    Tk_CanvasDrawableCoords(canvas, control[0], control[1],
+		    &xPoints->x, &xPoints->y);
+	    TkBezierScreenPoints(canvas, control, numSteps, xPoints+1);
+	    xPoints += numSteps+1;
+	}
+	if (dblPoints != NULL) {
+	    dblPoints[0] = control[0];
+	    dblPoints[1] = control[1];
+	    TkBezierPoints(control, numSteps, dblPoints+2);
+	    dblPoints += 2*(numSteps+1);
+	}
+	outputPoints += numSteps+1;
+    } else {
+	closed = 0;
+	if (xPoints != NULL) {
+	    Tk_CanvasDrawableCoords(canvas, pointPtr[0], pointPtr[1],
+		    &xPoints->x, &xPoints->y);
+	    xPoints += 1;
+	}
+	if (dblPoints != NULL) {
+	    dblPoints[0] = pointPtr[0];
+	    dblPoints[1] = pointPtr[1];
+	    dblPoints += 2;
+	}
+	outputPoints += 1;
+    }
+
+    for (i = 2; i < numPoints; i++, pointPtr += 2) {
+	/*
+	 * Set up the first two control points.  This is done
+	 * differently for the first spline of an open curve
+	 * than for other cases.
+	 */
+
+	if ((i == 2) && !closed) {
+	    control[0] = pointPtr[0];
+	    control[1] = pointPtr[1];
+	    control[2] = 0.333*pointPtr[0] + 0.667*pointPtr[2];
+	    control[3] = 0.333*pointPtr[1] + 0.667*pointPtr[3];
+	} else {
+	    control[0] = 0.5*pointPtr[0] + 0.5*pointPtr[2];
+	    control[1] = 0.5*pointPtr[1] + 0.5*pointPtr[3];
+	    control[2] = 0.167*pointPtr[0] + 0.833*pointPtr[2];
+	    control[3] = 0.167*pointPtr[1] + 0.833*pointPtr[3];
+	}
+
+	/*
+	 * Set up the last two control points.  This is done
+	 * differently for the last spline of an open curve
+	 * than for other cases.
+	 */
+
+	if ((i == (numPoints-1)) && !closed) {
+	    control[4] = .667*pointPtr[2] + .333*pointPtr[4];
+	    control[5] = .667*pointPtr[3] + .333*pointPtr[5];
+	    control[6] = pointPtr[4];
+	    control[7] = pointPtr[5];
+	} else {
+	    control[4] = .833*pointPtr[2] + .167*pointPtr[4];
+	    control[5] = .833*pointPtr[3] + .167*pointPtr[5];
+	    control[6] = 0.5*pointPtr[2] + 0.5*pointPtr[4];
+	    control[7] = 0.5*pointPtr[3] + 0.5*pointPtr[5];
+	}
+
+	/*
+	 * If the first two points coincide, or if the last
+	 * two points coincide, then generate a single
+	 * straight-line segment by outputting the last control
+	 * point.
+	 */
+
+	if (((pointPtr[0] == pointPtr[2]) && (pointPtr[1] == pointPtr[3]))
+		|| ((pointPtr[2] == pointPtr[4])
+		&& (pointPtr[3] == pointPtr[5]))) {
+	    if (xPoints != NULL) {
+		Tk_CanvasDrawableCoords(canvas, control[6], control[7],
+			&xPoints[0].x, &xPoints[0].y);
+		xPoints++;
+	    }
+	    if (dblPoints != NULL) {
+		dblPoints[0] = control[6];
+		dblPoints[1] = control[7];
+		dblPoints += 2;
+	    }
+	    outputPoints += 1;
+	    continue;
+	}
+
+	/*
+	 * Generate a Bezier spline using the control points.
+	 */
+
+
+	if (xPoints != NULL) {
+	    TkBezierScreenPoints(canvas, control, numSteps, xPoints);
+	    xPoints += numSteps;
+	}
+	if (dblPoints != NULL) {
+	    TkBezierPoints(control, numSteps, dblPoints);
+	    dblPoints += 2*numSteps;
+	}
+	outputPoints += numSteps;
+    }
+    return outputPoints;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkMakeBezierPostscript --
+ *
+ *	This procedure generates Postscript commands that create
+ *	a path corresponding to a given Bezier curve.
+ *
+ * Results:
+ *	None.  Postscript commands to generate the path are appended
+ *	to interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkMakeBezierPostscript(interp, canvas, pointPtr, numPoints)
+    Tcl_Interp *interp;			/* Interpreter in whose result the
+					 * Postscript is to be stored. */
+    Tk_Canvas canvas;			/* Canvas widget for which the
+					 * Postscript is being generated. */
+    double *pointPtr;			/* Array of input coordinates:  x0,
+					 * y0, x1, y1, etc.. */
+    int numPoints;			/* Number of points at pointPtr. */
+{
+    int closed, i;
+    int numCoords = numPoints*2;
+    double control[8];
+    char buffer[200];
+
+    /*
+     * If the curve is a closed one then generate a special spline
+     * that spans the last points and the first ones.  Otherwise
+     * just put the first point into the path.
+     */
+
+    if ((pointPtr[0] == pointPtr[numCoords-2])
+	    && (pointPtr[1] == pointPtr[numCoords-1])) {
+	closed = 1;
+	control[0] = 0.5*pointPtr[numCoords-4] + 0.5*pointPtr[0];
+	control[1] = 0.5*pointPtr[numCoords-3] + 0.5*pointPtr[1];
+	control[2] = 0.167*pointPtr[numCoords-4] + 0.833*pointPtr[0];
+	control[3] = 0.167*pointPtr[numCoords-3] + 0.833*pointPtr[1];
+	control[4] = 0.833*pointPtr[0] + 0.167*pointPtr[2];
+	control[5] = 0.833*pointPtr[1] + 0.167*pointPtr[3];
+	control[6] = 0.5*pointPtr[0] + 0.5*pointPtr[2];
+	control[7] = 0.5*pointPtr[1] + 0.5*pointPtr[3];
+	sprintf(buffer, "%.15g %.15g moveto\n%.15g %.15g %.15g %.15g %.15g %.15g curveto\n",
+		control[0], Tk_CanvasPsY(canvas, control[1]),
+		control[2], Tk_CanvasPsY(canvas, control[3]),
+		control[4], Tk_CanvasPsY(canvas, control[5]),
+		control[6], Tk_CanvasPsY(canvas, control[7]));
+    } else {
+	closed = 0;
+	control[6] = pointPtr[0];
+	control[7] = pointPtr[1];
+	sprintf(buffer, "%.15g %.15g moveto\n",
+		control[6], Tk_CanvasPsY(canvas, control[7]));
+    }
+    Tcl_AppendResult(interp, buffer, (char *) NULL);
+
+    /*
+     * Cycle through all the remaining points in the curve, generating
+     * a curve section for each vertex in the linear path.
+     */
+
+    for (i = numPoints-2, pointPtr += 2; i > 0; i--, pointPtr += 2) {
+	control[2] = 0.333*control[6] + 0.667*pointPtr[0];
+	control[3] = 0.333*control[7] + 0.667*pointPtr[1];
+
+	/*
+	 * Set up the last two control points.  This is done
+	 * differently for the last spline of an open curve
+	 * than for other cases.
+	 */
+
+	if ((i == 1) && !closed) {
+	    control[6] = pointPtr[2];
+	    control[7] = pointPtr[3];
+	} else {
+	    control[6] = 0.5*pointPtr[0] + 0.5*pointPtr[2];
+	    control[7] = 0.5*pointPtr[1] + 0.5*pointPtr[3];
+	}
+	control[4] = 0.333*control[6] + 0.667*pointPtr[0];
+	control[5] = 0.333*control[7] + 0.667*pointPtr[1];
+
+	sprintf(buffer, "%.15g %.15g %.15g %.15g %.15g %.15g curveto\n",
+		control[2], Tk_CanvasPsY(canvas, control[3]),
+		control[4], Tk_CanvasPsY(canvas, control[5]),
+		control[6], Tk_CanvasPsY(canvas, control[7]));
+	Tcl_AppendResult(interp, buffer, (char *) NULL);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkGetMiterPoints --
+ *
+ *	Given three points forming an angle, compute the
+ *	coordinates of the inside and outside points of
+ *	the mitered corner formed by a line of a given
+ *	width at that angle.
+ *
+ * Results:
+ *	If the angle formed by the three points is less than
+ *	11 degrees then 0 is returned and m1 and m2 aren't
+ *	modified.  Otherwise 1 is returned and the points at
+ *	m1 and m2 are filled in with the positions of the points
+ *	of the mitered corner.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+int
+TkGetMiterPoints(p1, p2, p3, width, m1, m2)
+    double p1[];		/* Points to x- and y-coordinates of point
+				 * before vertex. */
+    double p2[];		/* Points to x- and y-coordinates of vertex
+				 * for mitered joint. */
+    double p3[];		/* Points to x- and y-coordinates of point
+				 * after vertex. */
+    double width;		/* Width of line.  */
+    double m1[];		/* Points to place to put "left" vertex
+				 * point (see as you face from p1 to p2). */
+    double m2[];		/* Points to place to put "right" vertex
+				 * point. */
+{
+    double theta1;		/* Angle of segment p2-p1. */
+    double theta2;		/* Angle of segment p2-p3. */
+    double theta;		/* Angle between line segments (angle
+				 * of joint). */
+    double theta3;		/* Angle that bisects theta1 and
+				 * theta2 and points to m1. */
+    double dist;		/* Distance of miter points from p2. */
+    double deltaX, deltaY;	/* X and y offsets cooresponding to
+				 * dist (fudge factors for bounding
+				 * box). */
+    static float elevenDegrees = (11.0*2.0*PI)/360.0;
+
+    if (p2[1] == p1[1]) {
+	theta1 = (p2[0] < p1[0]) ? 0 : PI;
+    } else if (p2[0] == p1[0]) {
+	theta1 = (p2[1] < p1[1]) ? PI/2.0 : -PI/2.0;
+    } else {
+	theta1 = atan2(p1[1] - p2[1], p1[0] - p2[0]);
+    }
+    if (p3[1] == p2[1]) {
+	theta2 = (p3[0] > p2[0]) ? 0 : PI;
+    } else if (p3[0] == p2[0]) {
+	theta2 = (p3[1] > p2[1]) ? PI/2.0 : -PI/2.0;
+    } else {
+	theta2 = atan2(p3[1] - p2[1], p3[0] - p2[0]);
+    }
+    theta = theta1 - theta2;
+    if (theta > PI) {
+	theta -= 2*PI;
+    } else if (theta < -PI) {
+	theta += 2*PI;
+    }
+    if ((theta < elevenDegrees) && (theta > -elevenDegrees)) {
+	return 0;
+    }
+    dist = 0.5*width/sin(0.5*theta);
+    if (dist < 0.0) {
+	dist = -dist;
+    }
+
+    /*
+     * Compute theta3 (make sure that it points to the left when
+     * looking from p1 to p2).
+     */
+
+    theta3 = (theta1 + theta2)/2.0;
+    if (sin(theta3 - (theta1 + PI)) < 0.0) {
+	theta3 += PI;
+    }
+    deltaX = dist*cos(theta3);
+    m1[0] = p2[0] + deltaX;
+    m2[0] = p2[0] - deltaX;
+    deltaY = dist*sin(theta3);
+    m1[1] = p2[1] + deltaY;
+    m2[1] = p2[1] - deltaY;
+    return 1;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkGetButtPoints --
+ *
+ *	Given two points forming a line segment, compute the
+ *	coordinates of two endpoints of a rectangle formed by
+ *	bloating the line segment until it is width units wide.
+ *
+ * Results:
+ *	There is no return value.  M1 and m2 are filled in to
+ *	correspond to m1 and m2 in the diagram below:
+ *
+ *		   ----------------* m1
+ *				   |
+ *		p1 *---------------* p2
+ *				   |
+ *		   ----------------* m2
+ *
+ *	M1 and m2 will be W units apart, with p2 centered between
+ *	them and m1-m2 perpendicular to p1-p2.  However, if
+ *	"project" is true then m1 and m2 will be as follows:
+ *
+ *		   -------------------* m1
+ *				  p2  |
+ *		p1 *---------------*  |
+ *				      |
+ *		   -------------------* m2
+ *
+ *	In this case p2 will be width/2 units from the segment m1-m2.
+ *
+ * Side effects:
+ *	None.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkGetButtPoints(p1, p2, width, project, m1, m2)
+    double p1[];		/* Points to x- and y-coordinates of point
+				 * before vertex. */
+    double p2[];		/* Points to x- and y-coordinates of vertex
+				 * for mitered joint. */
+    double width;		/* Width of line.  */
+    int project;		/* Non-zero means project p2 by an additional
+				 * width/2 before computing m1 and m2. */
+    double m1[];		/* Points to place to put "left" result
+				 * point, as you face from p1 to p2. */
+    double m2[];		/* Points to place to put "right" result
+				 * point. */
+{
+    double length;		/* Length of p1-p2 segment. */
+    double deltaX, deltaY;	/* Increments in coords. */
+
+    width *= 0.5;
+    length = hypot(p2[0] - p1[0], p2[1] - p1[1]);
+    if (length == 0.0) {
+	m1[0] = m2[0] = p2[0];
+	m1[1] = m2[1] = p2[1];
+    } else {
+	deltaX = -width * (p2[1] - p1[1]) / length;
+	deltaY = width * (p2[0] - p1[0]) / length;
+	m1[0] = p2[0] + deltaX;
+	m2[0] = p2[0] - deltaX;
+	m1[1] = p2[1] + deltaY;
+	m2[1] = p2[1] - deltaY;
+	if (project) {
+	    m1[0] += deltaY;
+	    m2[0] += deltaY;
+	    m1[1] -= deltaX;
+	    m2[1] -= deltaX;
+	}
+    }
+}
diff --git a/Tk/generic/tkUtil.c b/Tk/generic/tkUtil.c
new file mode 100644
index 0000000..6c6bc53
--- /dev/null
+++ b/Tk/generic/tkUtil.c
@@ -0,0 +1,146 @@
+/* 
+ * tkUtil.c --
+ *
+ *	This file contains miscellaneous utility procedures that
+ *	are used by the rest of Tk, such as a procedure for drawing
+ *	a focus highlight.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUtil.c 1.7 96/02/15 18:53:04
+ */
+#include "tk.h"
+#include "tkPort.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DrawFocusHighlight --
+ *
+ *	This procedure draws a rectangular ring around the outside of
+ *	a widget to indicate that it has received the input focus.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A rectangle "width" pixels wide is drawn in "drawable",
+ *	corresponding to the outer area of "tkwin".
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_DrawFocusHighlight(tkwin, gc, width, drawable)
+    Tk_Window tkwin;		/* Window whose focus highlight ring is
+				 * to be drawn. */
+    GC gc;			/* Graphics context to use for drawing
+				 * the highlight ring. */
+    int width;			/* Width of the highlight ring, in pixels. */
+    Drawable drawable;		/* Where to draw the ring (typically a
+				 * pixmap for double buffering). */
+{
+    XRectangle rects[4];
+
+    rects[0].x = 0;
+    rects[0].y = 0;
+    rects[0].width = Tk_Width(tkwin);
+    rects[0].height = width;
+    rects[1].x = 0;
+    rects[1].y = Tk_Height(tkwin) - width;
+    rects[1].width = Tk_Width(tkwin);
+    rects[1].height = width;
+    rects[2].x = 0;
+    rects[2].y = width;
+    rects[2].width = width;
+    rects[2].height = Tk_Height(tkwin) - 2*width;
+    rects[3].x = Tk_Width(tkwin) - width;
+    rects[3].y = width;
+    rects[3].width = width;
+    rects[3].height = rects[2].height;
+    XFillRectangles(Tk_Display(tkwin), drawable, gc, rects, 4);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetScrollInfo --
+ *
+ *	This procedure is invoked to parse "xview" and "yview"
+ *	scrolling commands for widgets using the new scrolling
+ *	command syntax ("moveto" or "scroll" options).
+ *
+ * Results:
+ *	The return value is either TK_SCROLL_MOVETO, TK_SCROLL_PAGES,
+ *	TK_SCROLL_UNITS, or TK_SCROLL_ERROR.  This indicates whether
+ *	the command was successfully parsed and what form the command
+ *	took.  If TK_SCROLL_MOVETO, *dblPtr is filled in with the
+ *	desired position;  if TK_SCROLL_PAGES or TK_SCROLL_UNITS,
+ *	*intPtr is filled in with the number of lines to move (may be
+ *	negative);  if TK_SCROLL_ERROR, interp->result contains an
+ *	error message.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_GetScrollInfo(interp, argc, argv, dblPtr, intPtr)
+    Tcl_Interp *interp;			/* Used for error reporting. */
+    int argc;				/* # arguments for command. */
+    char **argv;			/* Arguments for command. */
+    double *dblPtr;			/* Filled in with argument "moveto"
+					 * option, if any. */
+    int *intPtr;			/* Filled in with number of pages
+					 * or lines to scroll, if any. */
+{
+    int c;
+    size_t length;
+
+    length = strlen(argv[2]);
+    c = argv[2][0];
+    if ((c == 'm') && (strncmp(argv[2], "moveto", length) == 0)) {
+	if (argc != 4) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " ", argv[1], " moveto fraction\"",
+		    (char *) NULL);
+	    return TK_SCROLL_ERROR;
+	}
+	if (Tcl_GetDouble(interp, argv[3], dblPtr) != TCL_OK) {
+	    return TK_SCROLL_ERROR;
+	}
+	return TK_SCROLL_MOVETO;
+    } else if ((c == 's')
+	    && (strncmp(argv[2], "scroll", length) == 0)) {
+	if (argc != 5) {
+	    Tcl_AppendResult(interp, "wrong # args: should be \"",
+		    argv[0], " ", argv[1], " scroll number units|pages\"",
+		    (char *) NULL);
+	    return TK_SCROLL_ERROR;
+	}
+	if (Tcl_GetInt(interp, argv[3], intPtr) != TCL_OK) {
+	    return TK_SCROLL_ERROR;
+	}
+	length = strlen(argv[4]);
+	c = argv[4][0];
+	if ((c == 'p') && (strncmp(argv[4], "pages", length) == 0)) {
+	    return TK_SCROLL_PAGES;
+	} else if ((c == 'u')
+		&& (strncmp(argv[4], "units", length) == 0)) {
+	    return TK_SCROLL_UNITS;
+	} else {
+	    Tcl_AppendResult(interp, "bad argument \"", argv[4],
+		    "\": must be units or pages", (char *) NULL);
+	    return TK_SCROLL_ERROR;
+	}
+    }
+    Tcl_AppendResult(interp, "unknown option \"", argv[2],
+	    "\": must be moveto or scroll", (char *) NULL);
+    return TK_SCROLL_ERROR;
+}
diff --git a/Tk/generic/tkVisual.c b/Tk/generic/tkVisual.c
new file mode 100644
index 0000000..6b9bb34
--- /dev/null
+++ b/Tk/generic/tkVisual.c
@@ -0,0 +1,540 @@
+/* 
+ * tkVisual.c --
+ *
+ *	This file contains library procedures for allocating and
+ *	freeing visuals and colormaps.  This code is based on a
+ *	prototype implementation by Paul Mackerras.
+ *
+ * Copyright (c) 1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkVisual.c 1.18 96/02/15 18:53:08
+ */
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * The table below maps from symbolic names for visual classes
+ * to the associated X class symbols.
+ */
+
+typedef struct VisualDictionary {
+    char *name;			/* Textual name of class. */
+    int minLength;		/* Minimum # characters that must be
+				 * specified for an unambiguous match. */
+    int class;			/* X symbol for class. */
+} VisualDictionary;
+static VisualDictionary visualNames[] = {
+    {"best",		1,	0},
+    {"directcolor",	2,	DirectColor},
+    {"grayscale",	1,	GrayScale},
+    {"greyscale",	1,	GrayScale},
+    {"pseudocolor",	1,	PseudoColor},
+    {"staticcolor",	7,	StaticColor},
+    {"staticgray",	7,	StaticGray},
+    {"staticgrey",	7,	StaticGray},
+    {"truecolor",	1,	TrueColor},
+    {NULL,		0,	0},
+};
+
+/*
+ * One of the following structures exists for each distinct non-default
+ * colormap allocated for a display by Tk_GetColormap.
+ */
+
+struct TkColormap {
+    Colormap colormap;		/* X's identifier for the colormap. */
+    Visual *visual;		/* Visual for which colormap was
+				 * allocated. */
+    int refCount;		/* How many uses of the colormap are still
+				 * outstanding (calls to Tk_GetColormap
+				 * minus calls to Tk_FreeColormap). */
+    int shareable;		/* 0 means this colormap was allocated by
+				 * a call to Tk_GetColormap with "new",
+				 * implying that the window wants it all
+				 * for itself.  1 means that the colormap
+				 * was allocated as a default for a particular
+				 * visual, so it can be shared. */
+    struct TkColormap *nextPtr;	/* Next in list of colormaps for this display,
+				 * or NULL for end of list. */
+};
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetVisual --
+ *
+ *	Given a string identifying a particular kind of visual, this
+ *	procedure returns a visual and depth that matches the specification.
+ *
+ * Results:
+ *	The return value is normally a pointer to a visual.  If an
+ *	error occurred in looking up the visual, NULL is returned and
+ *	an error message is left in interp->result.  The depth of the
+ *	visual is returned to *depthPtr under normal returns.  If
+ *	colormapPtr is non-NULL, then this procedure also finds a
+ *	suitable colormap for use with the visual in tkwin, and it
+ *	returns that colormap in *colormapPtr unless an error occurs.
+ *
+ * Side effects:
+ *	A new colormap may be allocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Visual *
+Tk_GetVisual(interp, tkwin, string, depthPtr, colormapPtr)
+    Tcl_Interp *interp;			/* Interpreter to use for error
+					 * reporting. */
+    Tk_Window tkwin;			/* Window in which visual will be
+					 * used. */
+    char *string;			/* String describing visual.  See
+					 * manual entry for details. */
+    int *depthPtr;			/* The depth of the returned visual
+					 * is stored here. */
+    Colormap *colormapPtr;		/* If non-NULL, then a suitable
+					 * colormap for visual is placed here.
+					 * This colormap must eventually be
+					 * freed by calling Tk_FreeColormap. */
+{
+    Tk_Window tkwin2;
+    XVisualInfo template, *visInfoList, *bestPtr;
+    long mask;
+    Visual *visual;
+    int length, c, numVisuals, prio, bestPrio, i;
+    char *p;
+    VisualDictionary *dictPtr;
+    TkColormap *cmapPtr;
+    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
+
+    /*
+     * Parse string and set up a template for use in searching for
+     * an appropriate visual.
+     */
+
+    c = string[0];
+    if (c == '.') {
+	/*
+	 * The string must be a window name.  If the window is on the
+	 * same screen as tkwin, then just use its visual.  Otherwise
+	 * use the information about the visual as a template for the
+	 * search.
+	 */
+
+	tkwin2 = Tk_NameToWindow(interp, string, tkwin);
+	if (tkwin2 == NULL) {
+	    return NULL;
+	}
+	visual = Tk_Visual(tkwin2);
+	if (Tk_Screen(tkwin) == Tk_Screen(tkwin2)) {
+	    *depthPtr = Tk_Depth(tkwin2);
+	    if (colormapPtr != NULL) {
+		/*
+		 * Use the colormap from the other window too (but be sure
+		 * to increment its reference count if it's one of the ones
+		 * allocated here).
+		 */
+
+		*colormapPtr = Tk_Colormap(tkwin2);
+		for (cmapPtr = dispPtr->cmapPtr; cmapPtr != NULL;
+			cmapPtr = cmapPtr->nextPtr) {
+		    if (cmapPtr->colormap == *colormapPtr) {
+			cmapPtr->refCount += 1;
+			break;
+		    }
+		}
+	    }
+	    return visual;
+	}
+	template.depth = Tk_Depth(tkwin2);
+	template.class = visual->class;
+	template.red_mask = visual->red_mask;
+	template.green_mask = visual->green_mask;
+	template.blue_mask = visual->blue_mask;
+	template.colormap_size = visual->map_entries;
+	template.bits_per_rgb = visual->bits_per_rgb;
+	mask = VisualDepthMask|VisualClassMask|VisualRedMaskMask
+		|VisualGreenMaskMask|VisualBlueMaskMask|VisualColormapSizeMask
+		|VisualBitsPerRGBMask;
+    } else if ((c == 0) || ((c == 'd') && (string[1] != 0)
+	    && (strncmp(string, "default", strlen(string)) == 0))) {
+	/*
+	 * Use the default visual for the window's screen.
+	 */
+
+	if (colormapPtr != NULL) {
+	    *colormapPtr = DefaultColormapOfScreen(Tk_Screen(tkwin));
+	}
+	*depthPtr = DefaultDepthOfScreen(Tk_Screen(tkwin));
+	return DefaultVisualOfScreen(Tk_Screen(tkwin));
+    } else if (isdigit(UCHAR(c))) {
+	int visualId;
+
+	/*
+	* This is a visual ID.
+	*/
+
+	if (Tcl_GetInt(interp, string, &visualId) == TCL_ERROR) {
+	    Tcl_ResetResult(interp);
+	    Tcl_AppendResult(interp, "bad X identifier for visual: ",
+		    string, "\"", (char *) NULL);
+	    return NULL;
+	}
+	template.visualid = visualId;
+	mask = VisualIDMask;
+    } else {
+	/*
+	 * Parse the string into a class name (or "best") optionally
+	 * followed by whitespace and a depth.
+	 */
+
+	for (p = string; *p != 0; p++) {
+	    if (isspace(UCHAR(*p)) || isdigit(UCHAR(*p))) {
+		break;
+	    }
+	}
+	length = p - string;
+	template.class = -1;
+	for (dictPtr = visualNames; dictPtr->name != NULL; dictPtr++) {
+	    if ((dictPtr->name[0] == c) && (length >= dictPtr->minLength)
+		    && (strncmp(string, dictPtr->name,
+		    (size_t) length) == 0)) {
+		template.class = dictPtr->class;
+		break;
+	    }
+	}
+	if (template.class == -1) {
+	    Tcl_AppendResult(interp, "unknown or ambiguous visual name \"",
+		    string, "\": class must be ", (char *) NULL);
+	    for (dictPtr = visualNames; dictPtr->name != NULL; dictPtr++) {
+		Tcl_AppendResult(interp, dictPtr->name, ", ", (char *) NULL);
+	    }
+	    Tcl_AppendResult(interp, "or default", (char *) NULL);
+	    return NULL;
+	}
+	while (isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (*p == 0) {
+	    template.depth = 10000;
+	} else {
+	    if (Tcl_GetInt(interp, p, &template.depth) != TCL_OK) {
+		return NULL;
+	    }
+	}
+	if (c == 'b') {
+	    mask = 0;
+	} else {
+	    mask = VisualClassMask;
+	}
+    }
+
+    /*
+     * Find all visuals that match the template we've just created,
+     * and return an error if there are none that match.
+     */
+
+    template.screen = Tk_ScreenNumber(tkwin);
+    mask |= VisualScreenMask;
+    visInfoList = XGetVisualInfo(Tk_Display(tkwin), mask, &template,
+	    &numVisuals);
+    if (visInfoList == NULL) {
+	interp->result = "couldn't find an appropriate visual";
+	return NULL;
+    }
+
+    /*
+     * Search through the visuals that were returned to find the best
+     * one.  The choice is based on the following criteria, in decreasing
+     * order of importance:
+     *
+     * 1. Depth: choose a visual with exactly the desired depth,
+     *	  else one with more bits than requested but as few bits
+     *	  as possible, else one with fewer bits but as many as
+     *    possible.
+     * 2. Class: some visual classes are more desirable than others;
+     *    pick the visual with the most desirable class.
+     * 3. Default: the default visual for the screen gets preference
+     *    over other visuals, all else being equal.
+     */
+
+    bestPrio = 0;
+    bestPtr = NULL;
+    for (i = 0; i < numVisuals; i++) {
+	switch (visInfoList[i].class) {
+	    case DirectColor:	prio = 5; break;
+	    case GrayScale:	prio = 1; break;
+	    case PseudoColor:	prio = 7; break;
+	    case StaticColor:	prio = 3; break;
+	    case StaticGray:	prio = 1; break;
+	    case TrueColor:	prio = 5; break;
+	    default:		prio = 0; break;
+	}
+	if (visInfoList[i].visual
+		== DefaultVisualOfScreen(Tk_Screen(tkwin))) {
+	    prio++;
+	}
+	if (bestPtr == NULL) {
+	    goto newBest;
+	}
+	if (visInfoList[i].depth < bestPtr->depth) {
+	    if (visInfoList[i].depth >= template.depth) {
+		goto newBest;
+	    }
+	} else if (visInfoList[i].depth > bestPtr->depth) {
+	    if (bestPtr->depth < template.depth) {
+		goto newBest;
+	    }
+	} else {
+	    if (prio > bestPrio) {
+		goto newBest;
+	    }
+	}
+	continue;
+
+	newBest:
+	bestPtr = &visInfoList[i];
+	bestPrio = prio;
+    }
+    *depthPtr = bestPtr->depth;
+    visual = bestPtr->visual;
+    XFree((char *) visInfoList);
+
+    /*
+     * If we need to find a colormap for this visual, do it now.
+     * If the visual is the default visual for the screen, then
+     * use the default colormap.  Otherwise search for an existing
+     * colormap that's shareable.  If all else fails, create a new
+     * colormap.
+     */
+
+    if (colormapPtr != NULL) {
+	if (visual == DefaultVisualOfScreen(Tk_Screen(tkwin))) {
+	    *colormapPtr = DefaultColormapOfScreen(Tk_Screen(tkwin));
+	} else {
+	    for (cmapPtr = dispPtr->cmapPtr; cmapPtr != NULL;
+		    cmapPtr = cmapPtr->nextPtr) {
+		if (cmapPtr->shareable && (cmapPtr->visual == visual)) {
+		    *colormapPtr = cmapPtr->colormap;
+		    cmapPtr->refCount += 1;
+		    goto done;
+		}
+	    }
+	    cmapPtr = (TkColormap *) ckalloc(sizeof(TkColormap));
+	    cmapPtr->colormap = XCreateColormap(Tk_Display(tkwin),
+		    RootWindowOfScreen(Tk_Screen(tkwin)), visual,
+		    AllocNone);
+	    cmapPtr->visual = visual;
+	    cmapPtr->refCount = 1;
+	    cmapPtr->shareable = 1;
+	    cmapPtr->nextPtr = dispPtr->cmapPtr;
+	    dispPtr->cmapPtr = cmapPtr;
+	    *colormapPtr = cmapPtr->colormap;
+	}
+    }
+
+    done:
+    return visual;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetColormap --
+ *
+ *	Given a string identifying a colormap, this procedure finds
+ *	an appropriate colormap.
+ *
+ * Results:
+ *	The return value is normally the X resource identifier for the
+ *	colormap.  If an error occurs, None is returned and an error
+ *	message is placed in interp->result.
+ *
+ * Side effects:
+ *	A reference count is incremented for the colormap, so
+ *	Tk_FreeColormap must eventually be called exactly once for
+ *	each call to Tk_GetColormap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Colormap
+Tk_GetColormap(interp, tkwin, string)
+    Tcl_Interp *interp;			/* Interpreter to use for error
+					 * reporting. */
+    Tk_Window tkwin;			/* Window where colormap will be
+					 * used. */
+    char *string;			/* String that identifies colormap:
+					 * either "new" or the name of
+					 * another window. */
+{
+    Colormap colormap;
+    TkColormap *cmapPtr;
+    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
+    Tk_Window other;
+
+    /*
+     * Allocate a new colormap, if that's what is wanted.
+     */
+
+    if (strcmp(string, "new") == 0) {
+	cmapPtr = (TkColormap *) ckalloc(sizeof(TkColormap));
+	cmapPtr->colormap = XCreateColormap(Tk_Display(tkwin),
+		RootWindowOfScreen(Tk_Screen(tkwin)), Tk_Visual(tkwin),
+		AllocNone);
+	cmapPtr->visual = Tk_Visual(tkwin);
+	cmapPtr->refCount = 1;
+	cmapPtr->shareable = 0;
+	cmapPtr->nextPtr = dispPtr->cmapPtr;
+	dispPtr->cmapPtr = cmapPtr;
+	return cmapPtr->colormap;
+    }
+
+    /*
+     * Use a colormap from an existing window.  It must have the same
+     * visual as tkwin (which means, among other things, that the
+     * other window must be on the same screen).
+     */
+
+    other = Tk_NameToWindow(interp, string, tkwin);
+    if (other == NULL) {
+	return None;
+    }
+    if (Tk_Screen(other) != Tk_Screen(tkwin)) {
+	Tcl_AppendResult(interp, "can't use colormap for ", string,
+		": not on same screen", (char *) NULL);
+	return None;
+    }
+    if (Tk_Visual(other) != Tk_Visual(tkwin)) {
+	Tcl_AppendResult(interp, "can't use colormap for ", string,
+		": incompatible visuals", (char *) NULL);
+	return None;
+    }
+    colormap = Tk_Colormap(other);
+
+    /*
+     * If the colormap was a special one allocated by code in this file,
+     * increment its reference count.
+     */
+
+    for (cmapPtr = dispPtr->cmapPtr; cmapPtr != NULL;
+	    cmapPtr = cmapPtr->nextPtr) {
+	if (cmapPtr->colormap == colormap) {
+	    cmapPtr->refCount += 1;
+	}
+    }
+    return colormap;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeColormap --
+ *
+ *	This procedure is called to release a colormap that was
+ *	previously allocated by Tk_GetColormap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The colormap's reference count is decremented.  If this was the
+ *	last reference to the colormap, then the colormap is freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeColormap(display, colormap)
+    Display *display;			/* Display for which colormap was
+					 * allocated. */
+    Colormap colormap;			/* Colormap that is no longer needed.
+					 * Must have been returned by previous
+					 * call to Tk_GetColormap, or
+					 * preserved by a previous call to
+					 * Tk_PreserveColormap. */
+{
+    TkDisplay *dispPtr;
+    TkColormap *cmapPtr, *prevPtr;
+
+    /*
+     * Find Tk's information about the display, then see if this
+     * colormap is a non-default one (if it's a default one, there
+     * won't be an entry for it in the display's list).
+     */
+
+    dispPtr = TkGetDisplay(display);
+    if (dispPtr == NULL) {
+	panic("unknown display passed to Tk_FreeColormap");
+    }
+    for (prevPtr = NULL, cmapPtr = dispPtr->cmapPtr; cmapPtr != NULL;
+	    prevPtr = cmapPtr, cmapPtr = cmapPtr->nextPtr) {
+	if (cmapPtr->colormap == colormap) {
+	    cmapPtr->refCount -= 1;
+	    if (cmapPtr->refCount == 0) {
+		XFreeColormap(display, colormap);
+		if (prevPtr == NULL) {
+		    dispPtr->cmapPtr = cmapPtr->nextPtr;
+		} else {
+		    prevPtr->nextPtr = cmapPtr->nextPtr;
+		}
+		ckfree((char *) cmapPtr);
+	    }
+	    return;
+	}
+    } 
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_PreserveColormap --
+ *
+ *	This procedure is called to indicate to Tk that the specified
+ *	colormap is being referenced from another location and should
+ *	not be freed until all extra references are eliminated.  The
+ *	colormap must have been returned by Tk_GetColormap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The colormap's reference count is incremented, so
+ *	Tk_FreeColormap must eventually be called exactly once for
+ *	each call to Tk_PreserveColormap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_PreserveColormap(display, colormap)
+    Display *display;			/* Display for which colormap was
+					 * allocated. */
+    Colormap colormap;			/* Colormap that should be
+					 * preserved. */
+{
+    TkDisplay *dispPtr;
+    TkColormap *cmapPtr, *prevPtr;
+
+    /*
+     * Find Tk's information about the display, then see if this
+     * colormap is a non-default one (if it's a default one, there
+     * won't be an entry for it in the display's list).
+     */
+
+    dispPtr = TkGetDisplay(display);
+    if (dispPtr == NULL) {
+	panic("unknown display passed to Tk_PreserveColormap");
+    }
+    for (prevPtr = NULL, cmapPtr = dispPtr->cmapPtr; cmapPtr != NULL;
+	    prevPtr = cmapPtr, cmapPtr = cmapPtr->nextPtr) {
+	if (cmapPtr->colormap == colormap) {
+	    cmapPtr->refCount += 1;
+	    return;
+	}
+    } 
+}
diff --git a/Tk/generic/tkWindow.c b/Tk/generic/tkWindow.c
new file mode 100644
index 0000000..33d6838
--- /dev/null
+++ b/Tk/generic/tkWindow.c
@@ -0,0 +1,2446 @@
+/* 
+ * tkWindow.c --
+ *
+ *	This file provides basic window-manipulation procedures,
+ *	which are equivalent to procedures in Xlib (and even
+ *	invoke them) but also maintain the local Tk_Window
+ *	structure.
+ *
+ * Copyright (c) 1989-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWindow.c 1.210 96/07/30 14:40:17
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include "patchlevel.h"
+
+/*
+ * Count of number of main windows currently open in this process.
+ */
+
+static int numMainWindows;
+
+/*
+ * First in list of all main windows managed by this process.
+ */
+
+TkMainInfo *tkMainWindowList = NULL;
+
+/*
+ * List of all displays currently in use.
+ */
+
+TkDisplay *tkDisplayList = NULL;
+
+/*
+ * Have statics in this module been initialized?
+ */
+
+static int initialized = 0;
+
+/*
+ * The variables below hold several uid's that are used in many places
+ * in the toolkit.
+ */
+
+Tk_Uid tkDisabledUid = NULL;
+Tk_Uid tkActiveUid = NULL;
+Tk_Uid tkNormalUid = NULL;
+
+/*
+ * Default values for "changes" and "atts" fields of TkWindows.  Note
+ * that Tk always requests all events for all windows, except StructureNotify
+ * events on internal windows:  these events are generated internally.
+ */
+
+static XWindowChanges defChanges = {
+    0, 0, 1, 1, 0, 0, Above
+};
+#define ALL_EVENTS_MASK \
+    KeyPressMask|KeyReleaseMask|ButtonPressMask|ButtonReleaseMask| \
+    EnterWindowMask|LeaveWindowMask|PointerMotionMask|ExposureMask| \
+    VisibilityChangeMask|FocusChangeMask|PropertyChangeMask|ColormapChangeMask
+static XSetWindowAttributes defAtts= {
+    None,			/* background_pixmap */
+    0,				/* background_pixel */
+    CopyFromParent,		/* border_pixmap */
+    0,				/* border_pixel */
+    NorthWestGravity,		/* bit_gravity */
+    NorthWestGravity,		/* win_gravity */
+    NotUseful,			/* backing_store */
+    (unsigned) ~0,		/* backing_planes */
+    0,				/* backing_pixel */
+    False,			/* save_under */
+    ALL_EVENTS_MASK,		/* event_mask */
+    0,				/* do_not_propagate_mask */
+    False,			/* override_redirect */
+    CopyFromParent,		/* colormap */
+    None			/* cursor */
+};
+
+/*
+ * The following structure defines all of the commands supported by
+ * Tk, and the C procedures that execute them.
+ */
+
+typedef struct {
+    char *name;			/* Name of command. */
+    int (*cmdProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp,
+	    int argc, char **argv));
+				/* Command procedure. */
+} TkCmd;
+
+static TkCmd commands[] = {
+    /*
+     * Commands that are part of the intrinsics:
+     */
+
+    {"bell",		Tk_BellCmd},
+    {"bind",		Tk_BindCmd},
+    {"bindtags",	Tk_BindtagsCmd},
+    {"clipboard",	Tk_ClipboardCmd},
+    {"destroy",		Tk_DestroyCmd},
+    {"focus",		Tk_FocusCmd},
+    {"grab",		Tk_GrabCmd},
+    {"grid",		Tk_GridCmd},
+    {"image",		Tk_ImageCmd},
+    {"lower",		Tk_LowerCmd},
+    {"option",		Tk_OptionCmd},
+    {"pack",		Tk_PackCmd},
+    {"place",		Tk_PlaceCmd},
+    {"raise",		Tk_RaiseCmd},
+    {"selection",	Tk_SelectionCmd},
+    {"tk",		Tk_TkCmd},
+    {"tkwait",		Tk_TkwaitCmd},
+    {"update",		Tk_UpdateCmd},
+    {"winfo",		Tk_WinfoCmd},
+    {"wm",		Tk_WmCmd},
+
+    /*
+     * Widget class commands.
+     */
+    {"button",		Tk_ButtonCmd},
+    {"canvas",		Tk_CanvasCmd},
+    {"checkbutton",	Tk_CheckbuttonCmd},
+    {"entry",		Tk_EntryCmd},
+    {"frame",		Tk_FrameCmd},
+    {"label",		Tk_LabelCmd},
+    {"listbox",		Tk_ListboxCmd},
+    {"menu",		Tk_MenuCmd},
+    {"menubutton",	Tk_MenubuttonCmd},
+    {"message",		Tk_MessageCmd},
+    {"radiobutton",	Tk_RadiobuttonCmd},
+    {"scale",		Tk_ScaleCmd},
+    {"scrollbar",	Tk_ScrollbarCmd},
+    {"text",		Tk_TextCmd},
+    {"toplevel",	Tk_ToplevelCmd},
+    /*
+     * Native widget class commands.
+     */
+#ifdef MAC_TCL
+    {"macscrollbar",	Tk_MacScrollbarCmd},
+#endif
+    {(char *) NULL,	(int (*)()) NULL}
+};
+
+/*
+ * The variables and table below are used to parse arguments from
+ * the "argv" variable in Tk_Init.
+ */
+
+static int synchronize;
+static char *name;
+static char *display;
+static char *geometry;
+static char *colormap;
+static char *visual;
+static int rest = 0;
+
+static Tk_ArgvInfo argTable[] = {
+    {"-colormap", TK_ARGV_STRING, (char *) NULL, (char *) &colormap,
+	"Colormap for main window"},
+    {"-display", TK_ARGV_STRING, (char *) NULL, (char *) &display,
+	"Display to use"},
+    {"-geometry", TK_ARGV_STRING, (char *) NULL, (char *) &geometry,
+	"Initial geometry for window"},
+    {"-name", TK_ARGV_STRING, (char *) NULL, (char *) &name,
+	"Name to use for application"},
+    {"-sync", TK_ARGV_CONSTANT, (char *) 1, (char *) &synchronize,
+	"Use synchronous mode for display server"},
+    {"-visual", TK_ARGV_STRING, (char *) NULL, (char *) &visual,
+	"Visual for main window"},
+    {"--", TK_ARGV_REST, (char *) 1, (char *) &rest,
+	"Pass all remaining arguments through to script"},
+    {(char *) NULL, TK_ARGV_END, (char *) NULL, (char *) NULL,
+	(char *) NULL}
+};
+
+/*
+ * Forward declarations to procedures defined later in this file:
+ */
+
+static TkWindow	*	AllocWindow _ANSI_ARGS_((TkDisplay *dispPtr,
+			    int screenNum, TkWindow *parentPtr));
+static Tk_Window	CreateTopLevelWindow _ANSI_ARGS_((Tcl_Interp *interp,
+			    Tk_Window parent, char *name, char *screenName));
+static void		DeleteWindowsExitProc _ANSI_ARGS_((
+			    ClientData clientData));
+static void		DoConfigureNotify _ANSI_ARGS_((TkWindow *winPtr));
+static TkDisplay *	GetScreen _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *screenName, int *screenPtr));
+static int		NameWindow _ANSI_ARGS_((Tcl_Interp *interp,
+			    TkWindow *winPtr, TkWindow *parentPtr,
+			    char *name));
+static void		OpenIM _ANSI_ARGS_((TkDisplay *dispPtr));
+static void		UnlinkWindow _ANSI_ARGS_((TkWindow *winPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CreateTopLevelWindow --
+ *
+ *	Make a new window that will be at top-level (its parent will
+ *	be the root window of a screen).
+ *
+ * Results:
+ *	The return value is a token for the new window, or NULL if
+ *	an error prevented the new window from being created.  If
+ *	NULL is returned, an error message will be left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	A new window structure is allocated locally.  An X
+ *	window is NOT initially created, but will be created
+ *	the first time the window is mapped.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_Window
+CreateTopLevelWindow(interp, parent, name, screenName)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window parent;		/* Token for logical parent of new window
+				 * (used for naming, options, etc.).  May
+				 * be NULL. */
+    char *name;			/* Name for new window;  if parent is
+				 * non-NULL, must be unique among parent's
+				 * children. */
+    char *screenName;		/* Name of screen on which to create
+				 * window.  NULL means use DISPLAY environment
+				 * variable to determine.  Empty string means
+				 * use parent's screen, or DISPLAY if no
+				 * parent. */
+{
+    register TkWindow *winPtr;
+    register TkDisplay *dispPtr;
+    int screenId;
+
+    if (!initialized) {
+	initialized = 1;
+	tkActiveUid = Tk_GetUid("active");
+	tkDisabledUid = Tk_GetUid("disabled");
+	tkNormalUid = Tk_GetUid("normal");
+
+	/*
+	 * Create built-in image types.
+	 */
+    
+	Tk_CreateImageType(&tkBitmapImageType);
+	Tk_CreateImageType(&tkPhotoImageType);
+    
+	/*
+	 * Create built-in photo image formats.
+	 */
+    
+	Tk_CreatePhotoImageFormat(&tkImgFmtGIF);
+	Tk_CreatePhotoImageFormat(&tkImgFmtPPM);
+
+	/*
+	 * Create exit handler to delete all windows when the application
+	 * exits.
+	 */
+
+	Tcl_CreateExitHandler(DeleteWindowsExitProc, (ClientData) NULL);
+    }
+
+    if ((parent != NULL) && (screenName != NULL) && (screenName[0] == '\0')) {
+	dispPtr = ((TkWindow *) parent)->dispPtr;
+	screenId = Tk_ScreenNumber(parent);
+    } else {
+	dispPtr = GetScreen(interp, screenName, &screenId);
+	if (dispPtr == NULL) {
+	    return (Tk_Window) NULL;
+	}
+    }
+
+    winPtr = AllocWindow(dispPtr, screenId, (TkWindow *) parent);
+
+    /*
+     * Force the window to use a the border pixel instead of border
+     * pixmap.  This is needed for the case where the window doesn't
+     * use the default visual.  In this case, the default border is
+     * a pixmap inherited from the root window, which won't work because
+     * it will have the wrong visual.
+     */
+
+    winPtr->dirtyAtts |= CWBorderPixel;
+
+    /*
+     * Internal windows don't normally ask for StructureNotify events,
+     * since we can generate them internally.  However, for top-level
+     * windows we need to ask for the events because the window could
+     * be manipulated externally.
+     */
+
+    winPtr->atts.event_mask |= StructureNotifyMask;
+
+    /*
+     * (Need to set the TK_TOP_LEVEL flag immediately here;  otherwise
+     * Tk_DestroyWindow will core dump if it is called before the flag
+     * has been set.)
+     */
+
+    winPtr->flags |= TK_TOP_LEVEL;
+    if (parent != NULL) {
+	if (NameWindow(interp, winPtr, (TkWindow *) parent, name) != TCL_OK) {
+	    Tk_DestroyWindow((Tk_Window) winPtr);
+	    return (Tk_Window) NULL;
+	}
+    }
+    TkWmNewWindow(winPtr);
+    return (Tk_Window) winPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetScreen --
+ *
+ *	Given a string name for a display-plus-screen, find the
+ *	TkDisplay structure for the display and return the screen
+ *	number too.
+ *
+ * Results:
+ *	The return value is a pointer to information about the display,
+ *	or NULL if the display couldn't be opened.  In this case, an
+ *	error message is left in interp->result.  The location at
+ *	*screenPtr is overwritten with the screen number parsed from
+ *	screenName.
+ *
+ * Side effects:
+ *	A new connection is opened to the display if there is no
+ *	connection already.  A new TkDisplay data structure is also
+ *	setup, if necessary.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static TkDisplay *
+GetScreen(interp, screenName, screenPtr)
+    Tcl_Interp *interp;		/* Place to leave error message. */
+    char *screenName;		/* Name for screen.  NULL or empty means
+				 * use DISPLAY envariable. */
+    int *screenPtr;		/* Where to store screen number. */
+{
+    register TkDisplay *dispPtr;
+    char *p;
+    int screenId;
+    size_t length;
+
+    /*
+     * Separate the screen number from the rest of the display
+     * name.  ScreenName is assumed to have the syntax
+     * <display>.<screen> with the dot and the screen being
+     * optional.
+     */
+
+    screenName = TkGetDefaultScreenName(interp, screenName);
+    if (screenName == NULL) {
+	interp->result =
+	    "no display name and no $DISPLAY environment variable";
+	return (TkDisplay *) NULL;
+    }
+    length = strlen(screenName);
+    screenId = 0;
+    p = screenName+length-1;
+    while (isdigit(UCHAR(*p)) && (p != screenName)) {
+	p--;
+    }
+    if ((*p == '.') && (p[1] != '\0')) {
+	length = p - screenName;
+	screenId = strtoul(p+1, (char **) NULL, 10);
+    }
+
+    /*
+     * See if we already have a connection to this display.  If not,
+     * then open a new connection.
+     */
+
+    for (dispPtr = tkDisplayList; ; dispPtr = dispPtr->nextPtr) {
+	if (dispPtr == NULL) {
+	    Display *display;
+
+	    display = XOpenDisplay(screenName);
+	    if (display == NULL) {
+		Tcl_AppendResult(interp, "couldn't connect to display \"",
+			screenName, "\"", (char *) NULL);
+		return (TkDisplay *) NULL;
+	    }
+	    dispPtr = (TkDisplay *) ckalloc(sizeof(TkDisplay));
+	    dispPtr->display = display;
+	    dispPtr->nextPtr = tkDisplayList;
+	    dispPtr->name = (char *) ckalloc((unsigned) (length+1));
+	    dispPtr->lastEventTime = CurrentTime;
+	    strncpy(dispPtr->name, screenName, length);
+	    dispPtr->name[length] = '\0';
+	    dispPtr->bindInfoStale = 1;
+	    dispPtr->numModKeyCodes = 0;
+	    dispPtr->modKeyCodes = NULL;
+	    OpenIM(dispPtr);
+	    dispPtr->errorPtr = NULL;
+	    dispPtr->deleteCount = 0;
+	    dispPtr->commTkwin = NULL;
+	    dispPtr->selectionInfoPtr = NULL;
+	    dispPtr->multipleAtom = None;
+	    dispPtr->clipWindow = NULL;
+	    dispPtr->clipboardActive = 0;
+	    dispPtr->clipboardAppPtr = NULL;
+	    dispPtr->atomInit = 0;
+	    dispPtr->cursorFont = None;
+	    dispPtr->grabWinPtr = NULL;
+	    dispPtr->eventualGrabWinPtr = NULL;
+	    dispPtr->buttonWinPtr = NULL;
+	    dispPtr->serverWinPtr = NULL;
+	    dispPtr->firstGrabEventPtr = NULL;
+	    dispPtr->lastGrabEventPtr = NULL;
+	    dispPtr->grabFlags = 0;
+	    TkInitXId(dispPtr);
+	    dispPtr->destroyCount = 0;
+	    dispPtr->lastDestroyRequest = 0;
+	    dispPtr->cmapPtr = NULL;
+	    dispPtr->focusWinPtr = NULL;
+	    dispPtr->implicitWinPtr = NULL;
+	    dispPtr->focusOnMapPtr = NULL;
+	    dispPtr->forceFocus = 0;
+	    dispPtr->stressPtr = NULL;
+	    dispPtr->delayedMotionPtr = NULL;
+	    Tcl_InitHashTable(&dispPtr->winTable, TCL_ONE_WORD_KEYS);
+	    tkDisplayList = dispPtr;
+	    break;
+	}
+	if ((strncmp(dispPtr->name, screenName, length) == 0)
+		&& (dispPtr->name[length] == '\0')) {
+	    break;
+	}
+    }
+    if (screenId >= ScreenCount(dispPtr->display)) {
+	sprintf(interp->result, "bad screen number \"%d\"", screenId);
+	return (TkDisplay *) NULL;
+    }
+    *screenPtr = screenId;
+    return dispPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetDisplay --
+ *
+ *	Given an X display, TkGetDisplay returns the TkDisplay 
+ *      structure for the display.
+ *
+ * Results:
+ *	The return value is a pointer to information about the display,
+ *	or NULL if the display did not have a TkDisplay structure.
+ *
+ * Side effects:
+ *      None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkDisplay *
+TkGetDisplay(display)
+     Display *display;          /* X's display pointer */
+{
+    TkDisplay *dispPtr;
+
+    for (dispPtr = tkDisplayList; dispPtr != NULL;
+	    dispPtr = dispPtr->nextPtr) {
+	if (dispPtr->display == display) {
+	    break;
+	}
+    }
+    return dispPtr;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * AllocWindow --
+ *
+ *	This procedure creates and initializes a TkWindow structure.
+ *
+ * Results:
+ *	The return value is a pointer to the new window.
+ *
+ * Side effects:
+ *	A new window structure is allocated and all its fields are
+ *	initialized.
+ *
+ *--------------------------------------------------------------
+ */
+
+static TkWindow *
+AllocWindow(dispPtr, screenNum, parentPtr)
+    TkDisplay *dispPtr;		/* Display associated with new window. */
+    int screenNum;		/* Index of screen for new window. */
+    TkWindow *parentPtr;	/* Parent from which this window should
+				 * inherit visual information.  NULL means
+				 * use screen defaults instead of
+				 * inheriting. */
+{
+    register TkWindow *winPtr;
+
+    winPtr = (TkWindow *) ckalloc(sizeof(TkWindow));
+    winPtr->display = dispPtr->display;
+    winPtr->dispPtr = dispPtr;
+    winPtr->screenNum = screenNum;
+    if ((parentPtr != NULL) && (parentPtr->display == winPtr->display)
+	    && (parentPtr->screenNum == winPtr->screenNum)) {
+	winPtr->visual = parentPtr->visual;
+	winPtr->depth = parentPtr->depth;
+    } else {
+	winPtr->visual = DefaultVisual(dispPtr->display, screenNum);
+	winPtr->depth = DefaultDepth(dispPtr->display, screenNum);
+    }
+    winPtr->window = None;
+    winPtr->childList = NULL;
+    winPtr->lastChildPtr = NULL;
+    winPtr->parentPtr = NULL;
+    winPtr->nextPtr = NULL;
+    winPtr->mainPtr = NULL;
+    winPtr->pathName = NULL;
+    winPtr->nameUid = NULL;
+    winPtr->classUid = NULL;
+    winPtr->changes = defChanges;
+    winPtr->dirtyChanges = CWX|CWY|CWWidth|CWHeight|CWBorderWidth;
+    winPtr->atts = defAtts;
+    if ((parentPtr != NULL) && (parentPtr->display == winPtr->display)
+	    && (parentPtr->screenNum == winPtr->screenNum)) {
+	winPtr->atts.colormap = parentPtr->atts.colormap;
+    } else {
+	winPtr->atts.colormap = DefaultColormap(dispPtr->display, screenNum);
+    }
+    winPtr->dirtyAtts = CWEventMask|CWColormap|CWBitGravity;
+    winPtr->flags = 0;
+    winPtr->handlerList = NULL;
+#ifdef TK_USE_INPUT_METHODS
+    winPtr->inputContext = NULL;
+#endif /* TK_USE_INPUT_METHODS */
+    winPtr->tagPtr = NULL;
+    winPtr->numTags = 0;
+    winPtr->optionLevel = -1;
+    winPtr->selHandlerList = NULL;
+    winPtr->geomMgrPtr = NULL;
+    winPtr->geomData = NULL;
+    winPtr->reqWidth = winPtr->reqHeight = 1;
+    winPtr->internalBorderWidth = 0;
+    winPtr->wmInfoPtr = NULL;
+    winPtr->privatePtr = NULL;
+
+    return winPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NameWindow --
+ *
+ *	This procedure is invoked to give a window a name and insert
+ *	the window into the hierarchy associated with a particular
+ *	application.
+ *
+ * Results:
+ *	A standard Tcl return value.
+ *
+ * Side effects:
+ *      See above.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+NameWindow(interp, winPtr, parentPtr, name)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    register TkWindow *winPtr;	/* Window that is to be named and inserted. */
+    TkWindow *parentPtr;	/* Pointer to logical parent for winPtr
+				 * (used for naming, options, etc.). */
+    char *name;			/* Name for winPtr;   must be unique among
+				 * parentPtr's children. */
+{
+#define FIXED_SIZE 200
+    char staticSpace[FIXED_SIZE];
+    char *pathName;
+    int new;
+    Tcl_HashEntry *hPtr;
+    int length1, length2;
+
+    /*
+     * Setup all the stuff except name right away, then do the name stuff
+     * last.  This is so that if the name stuff fails, everything else
+     * will be properly initialized (needed to destroy the window cleanly
+     * after the naming failure).
+     */
+    winPtr->parentPtr = parentPtr;
+    winPtr->nextPtr = NULL;
+    if (parentPtr->childList == NULL) {
+	parentPtr->childList = winPtr;
+    } else {
+	parentPtr->lastChildPtr->nextPtr = winPtr;
+    }
+    parentPtr->lastChildPtr = winPtr;
+    winPtr->mainPtr = parentPtr->mainPtr;
+    winPtr->mainPtr->refCount++;
+    winPtr->nameUid = Tk_GetUid(name);
+
+    /*
+     * Don't permit names that start with an upper-case letter:  this
+     * will just cause confusion with class names in the option database.
+     */
+
+    if (isupper(UCHAR(name[0]))) {
+	Tcl_AppendResult(interp,
+		"window name starts with an upper-case letter: \"",
+		name, "\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+
+    /*
+     * To permit names of arbitrary length, must be prepared to malloc
+     * a buffer to hold the new path name.  To run fast in the common
+     * case where names are short, use a fixed-size buffer on the
+     * stack.
+     */
+
+    length1 = strlen(parentPtr->pathName);
+    length2 = strlen(name);
+    if ((length1+length2+2) <= FIXED_SIZE) {
+	pathName = staticSpace;
+    } else {
+	pathName = (char *) ckalloc((unsigned) (length1+length2+2));
+    }
+    if (length1 == 1) {
+	pathName[0] = '.';
+	strcpy(pathName+1, name);
+    } else {
+	strcpy(pathName, parentPtr->pathName);
+	pathName[length1] = '.';
+	strcpy(pathName+length1+1, name);
+    }
+    hPtr = Tcl_CreateHashEntry(&parentPtr->mainPtr->nameTable, pathName, &new);
+    if (pathName != staticSpace) {
+	ckfree(pathName);
+    }
+    if (!new) {
+	Tcl_AppendResult(interp, "window name \"", name,
+		"\" already exists in parent", (char *) NULL);
+	return TCL_ERROR;
+    }
+    Tcl_SetHashValue(hPtr, winPtr);
+    winPtr->pathName = Tcl_GetHashKey(&parentPtr->mainPtr->nameTable, hPtr);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCreateMainWindow --
+ *
+ *	Make a new main window.  A main window is a special kind of
+ *	top-level window used as the outermost window in an
+ *	application.
+ *
+ * Results:
+ *	The return value is a token for the new window, or NULL if
+ *	an error prevented the new window from being created.  If
+ *	NULL is returned, an error message will be left in
+ *	interp->result.
+ *
+ * Side effects:
+ *	A new window structure is allocated locally;  "interp" is
+ *	associated with the window and registered for "send" commands
+ *	under "baseName".  BaseName may be extended with an instance
+ *	number in the form "#2" if necessary to make it globally
+ *	unique.  Tk-related commands are bound into interp.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+TkCreateMainWindow(interp, screenName, baseName)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    char *screenName;		/* Name of screen on which to create
+				 * window.  Empty or NULL string means
+				 * use DISPLAY environment variable. */
+    char *baseName;		/* Base name for application;  usually of the
+				 * form "prog instance". */
+{
+    Tk_Window tkwin;
+    int dummy;
+    Tcl_HashEntry *hPtr;
+    register TkMainInfo *mainPtr;
+    register TkWindow *winPtr;
+    register TkCmd *cmdPtr;
+
+    /*
+     * Panic if someone updated the TkWindow structure without
+     * also updating the Tk_FakeWin structure (or vice versa).
+     */
+
+    if (sizeof(TkWindow) != sizeof(Tk_FakeWin)) {
+	panic("TkWindow and Tk_FakeWin are not the same size");
+    }
+
+    /*
+     * Create the basic TkWindow structure.
+     */
+
+    tkwin = CreateTopLevelWindow(interp, (Tk_Window) NULL, baseName,
+	    screenName);
+    if (tkwin == NULL) {
+	return NULL;
+    }
+
+    /*
+     * Create the TkMainInfo structure for this application, and set
+     * up name-related information for the new window.
+     */
+
+    winPtr = (TkWindow *) tkwin;
+    mainPtr = (TkMainInfo *) ckalloc(sizeof(TkMainInfo));
+    mainPtr->winPtr = winPtr;
+    mainPtr->refCount = 1;
+    mainPtr->interp = interp;
+    Tcl_InitHashTable(&mainPtr->nameTable, TCL_STRING_KEYS);
+    mainPtr->bindingTable = Tk_CreateBindingTable(interp);
+    mainPtr->focusPtr = NULL;
+    mainPtr->focusSerial = 0;
+    mainPtr->lastFocusPtr = NULL;
+    mainPtr->optionRootPtr = NULL;
+    Tcl_InitHashTable(&mainPtr->imageTable, TCL_STRING_KEYS);
+    mainPtr->strictMotif = 0;
+#ifndef STk_CODE
+    if (Tcl_LinkVar(interp, "tk_strictMotif", (char *) &mainPtr->strictMotif,
+	    TCL_LINK_BOOLEAN) != TCL_OK) {
+	Tcl_ResetResult(interp);
+    }
+#endif
+    mainPtr->nextPtr = tkMainWindowList;
+    tkMainWindowList = mainPtr;
+    winPtr->mainPtr = mainPtr;
+    hPtr = Tcl_CreateHashEntry(&mainPtr->nameTable, ".", &dummy);
+    Tcl_SetHashValue(hPtr, winPtr);
+    winPtr->pathName = Tcl_GetHashKey(&mainPtr->nameTable, hPtr);
+
+    /*
+     * Register the interpreter for "send" purposes.
+     */
+
+    winPtr->nameUid = Tk_GetUid(Tk_SetAppName(tkwin, baseName));
+
+    /*
+     * Bind in Tk's commands.
+     */
+
+    for (cmdPtr = commands; cmdPtr->name != NULL; cmdPtr++) {
+	Tcl_CreateCommand(interp, cmdPtr->name, cmdPtr->cmdProc,
+		(ClientData) tkwin, (void (*)()) NULL);
+    }
+
+    /*
+     * Set variables for the intepreter.
+     */
+
+#ifdef STk_CODE
+     Tcl_SetVar(interp, "*tk-patch-level*", TK_PATCH_LEVEL,
+		STk_STRINGIFY | TCL_GLOBAL_ONLY);
+     Tcl_SetVar(interp, "*tk-version*", TK_VERSION,
+		STk_STRINGIFY | TCL_GLOBAL_ONLY);
+#else
+    Tcl_SetVar(interp, "tk_patchLevel", TK_PATCH_LEVEL, TCL_GLOBAL_ONLY);
+    Tcl_SetVar(interp, "tk_version", TK_VERSION, TCL_GLOBAL_ONLY);
+#endif
+
+    numMainWindows++;
+    return tkwin;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_CreateWindow --
+ *
+ *	Create a new internal or top-level window as a child of an
+ *	existing window.
+ *
+ * Results:
+ *	The return value is a token for the new window.  This
+ *	is not the same as X's token for the window.  If an error
+ *	occurred in creating the window (e.g. no such display or
+ *	screen), then an error message is left in interp->result and
+ *	NULL is returned.
+ *
+ * Side effects:
+ *	A new window structure is allocated locally.  An X
+ *	window is not initially created, but will be created
+ *	the first time the window is mapped.
+ *
+ *--------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_CreateWindow(interp, parent, name, screenName)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting.
+				 * Interp->result is assumed to be
+				 * initialized by the caller. */
+    Tk_Window parent;		/* Token for parent of new window. */
+    char *name;			/* Name for new window.  Must be unique
+				 * among parent's children. */
+    char *screenName;		/* If NULL, new window will be internal on
+				 * same screen as its parent.  If non-NULL,
+				 * gives name of screen on which to create
+				 * new window;  window will be a top-level
+				 * window. */
+{
+    TkWindow *parentPtr = (TkWindow *) parent;
+    TkWindow *winPtr;
+
+    if (screenName == NULL) {
+	winPtr = AllocWindow(parentPtr->dispPtr, parentPtr->screenNum,
+		parentPtr);
+	if (NameWindow(interp, winPtr, parentPtr, name) != TCL_OK) {
+	    Tk_DestroyWindow((Tk_Window) winPtr);
+	    return NULL;
+	} else {
+	  return (Tk_Window) winPtr;
+	}
+    } else {
+	return CreateTopLevelWindow(interp, parent, name, screenName);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CreateWindowFromPath --
+ *
+ *	This procedure is similar to Tk_CreateWindow except that
+ *	it uses a path name to create the window, rather than a
+ *	parent and a child name.
+ *
+ * Results:
+ *	The return value is a token for the new window.  This
+ *	is not the same as X's token for the window.  If an error
+ *	occurred in creating the window (e.g. no such display or
+ *	screen), then an error message is left in interp->result and
+ *	NULL is returned.
+ *
+ * Side effects:
+ *	A new window structure is allocated locally.  An X
+ *	window is not initially created, but will be created
+ *	the first time the window is mapped.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_CreateWindowFromPath(interp, tkwin, pathName, screenName)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting.
+				 * Interp->result is assumed to be
+				 * initialized by the caller. */
+    Tk_Window tkwin;		/* Token for any window in application
+				 * that is to contain new window. */
+    char *pathName;		/* Path name for new window within the
+				 * application of tkwin.  The parent of
+				 * this window must already exist, but
+				 * the window itself must not exist. */
+    char *screenName;		/* If NULL, new window will be on same
+				 * screen as its parent.  If non-NULL,
+				 * gives name of screen on which to create
+				 * new window;  window will be a top-level
+				 * window. */
+{
+#define FIXED_SPACE 5
+    char fixedSpace[FIXED_SPACE+1];
+    char *p;
+    Tk_Window parent;
+    int numChars;
+
+    /*
+     * Strip the parent's name out of pathName (it's everything up
+     * to the last dot).  There are two tricky parts: (a) must
+     * copy the parent's name somewhere else to avoid modifying
+     * the pathName string (for large names, space for the copy
+     * will have to be malloc'ed);  (b) must special-case the
+     * situation where the parent is ".".
+     */
+
+    p = strrchr(pathName, '.');
+    if (p == NULL) {
+	Tcl_AppendResult(interp, "bad window path name \"", pathName,
+		"\"", (char *) NULL);
+	return NULL;
+    }
+    numChars = p-pathName;
+    if (numChars > FIXED_SPACE) {
+	p = (char *) ckalloc((unsigned) (numChars+1));
+    } else {
+	p = fixedSpace;
+    }
+    if (numChars == 0) {
+	*p = '.';
+	p[1] = '\0';
+    } else {
+	strncpy(p, pathName, (size_t) numChars);
+	p[numChars] = '\0';
+    }
+
+    /*
+     * Find the parent window.
+     */
+
+    parent = Tk_NameToWindow(interp, p, tkwin);
+    if (p != fixedSpace) {
+	ckfree(p);
+    }
+    if (parent == NULL) {
+	return NULL;
+    }
+
+    /*
+     * Create the window.
+     */
+
+    if (screenName == NULL) {
+	TkWindow *parentPtr = (TkWindow *) parent;
+	TkWindow *winPtr;
+
+	winPtr = AllocWindow(parentPtr->dispPtr, parentPtr->screenNum,
+		parentPtr);
+	if (NameWindow(interp, winPtr, parentPtr, pathName+numChars+1)
+		!= TCL_OK) {
+	    Tk_DestroyWindow((Tk_Window) winPtr);
+	    return NULL;
+	} else {
+	    return (Tk_Window) winPtr;
+	}
+    } else {
+	return CreateTopLevelWindow(interp, parent, pathName+numChars+1,
+		screenName);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_DestroyWindow --
+ *
+ *	Destroy an existing window.  After this call, the caller
+ *	should never again use the token.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is deleted, along with all of its children.
+ *	Relevant callback procedures are invoked.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_DestroyWindow(tkwin)
+    Tk_Window tkwin;		/* Window to destroy. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    XEvent event;
+
+    if (winPtr->flags & TK_ALREADY_DEAD) {
+	/*
+	 * A destroy event binding caused the window to be destroyed
+	 * again.  Ignore the request.
+	 */
+
+	return;
+    }
+    winPtr->flags |= TK_ALREADY_DEAD;
+
+    /*
+     * Some cleanup needs to be done immediately, rather than later,
+     * because it needs information that will be destoyed before we
+     * get to the main cleanup point.  For example, TkFocusDeadWindow
+     * needs to access the parentPtr field from a window, but if
+     * a Destroy event handler deletes the window's parent this
+     * field will be NULL before the main cleanup point is reached.
+     */
+
+    TkFocusDeadWindow(winPtr);
+
+    /*
+     * If this is a main window, remove it from the list of main
+     * windows.  This needs to be done now (rather than later with
+     * all the other main window cleanup) to handle situations where
+     * a destroy binding for a window calls "exit".  In this case
+     * the child window cleanup isn't complete when exit is called,
+     * so the reference count of its application doesn't go to zero
+     * when exit calls Tk_DestroyWindow on ".", so the main window
+     * doesn't get removed from the list and exit loops infinitely.
+     * Even worse, if "destroy ." is called by the destroy binding
+     * before calling "exit", "exit" will attempt to destroy
+     * mainPtr->winPtr, which no longer exists, and there may be a
+     * core dump.
+     */
+
+    if (winPtr->mainPtr->winPtr == winPtr) {
+	if (tkMainWindowList == winPtr->mainPtr) {
+	    tkMainWindowList = winPtr->mainPtr->nextPtr;
+	} else {
+	    TkMainInfo *prevPtr;
+
+	    for (prevPtr = tkMainWindowList;
+		    prevPtr->nextPtr != winPtr->mainPtr;
+		    prevPtr = prevPtr->nextPtr) {
+		/* Empty loop body. */
+	    }
+	    prevPtr->nextPtr = winPtr->mainPtr->nextPtr;
+	}
+	numMainWindows--;
+    }
+
+    /*
+     * Recursively destroy children.
+     */
+
+    dispPtr->destroyCount++;
+    while (winPtr->childList != NULL) {
+	TkWindow *childPtr;
+
+	childPtr = winPtr->childList;
+	childPtr->flags |= TK_PARENT_DESTROYED;
+	Tk_DestroyWindow((Tk_Window) childPtr);
+	if (winPtr->childList == childPtr) {
+	    /*
+	     * The child didn't remove itself from the child list, so
+	     * let's remove it here.  This can happen in some strange
+	     * conditions, such as when a Delete event handler for a
+	     * window deletes the window's parent.
+	     */
+
+	    winPtr->childList = childPtr->nextPtr;
+	    childPtr->parentPtr = NULL;
+	}
+    }
+
+    /*
+     * Generate a DestroyNotify event.  In order for the DestroyNotify
+     * event to be processed correctly, need to make sure the window
+     * exists.  This is a bit of a kludge, and may be unnecessarily
+     * expensive, but without it no event handlers will get called for
+     * windows that don't exist yet.
+     *
+     * Note: if the window's pathName is NULL it means that the window
+     * was not successfully initialized in the first place, so we should
+     * not make the window exist or generate the event.
+     */
+
+    if (winPtr->pathName != NULL) {
+	if (winPtr->window == None) {
+	    Tk_MakeWindowExist(tkwin);
+	}
+	event.type = DestroyNotify;
+	event.xdestroywindow.serial =
+		LastKnownRequestProcessed(winPtr->display);
+	event.xdestroywindow.send_event = False;
+	event.xdestroywindow.display = winPtr->display;
+	event.xdestroywindow.event = winPtr->window;
+	event.xdestroywindow.window = winPtr->window;
+	Tk_HandleEvent(&event);
+    }
+
+    /*
+     * Cleanup the data structures associated with this window.
+     */
+
+    if (winPtr->flags & TK_TOP_LEVEL) {
+	TkWmDeadWindow(winPtr);
+    } else if (winPtr->flags & TK_WM_COLORMAP_WINDOW) {
+	TkWmRemoveFromColormapWindows(winPtr);
+    }
+    if (winPtr->window != None) {
+#if defined(MAC_TCL) || defined(__WIN32__)
+	XDestroyWindow(winPtr->display, winPtr->window);
+#else
+	if ((winPtr->flags & TK_TOP_LEVEL)
+		|| !(winPtr->flags & TK_PARENT_DESTROYED)) {
+	    /*
+	     * The parent has already been destroyed and this isn't
+	     * a top-level window, so this window will be destroyed
+	     * implicitly when the parent's X window is destroyed;
+	     * it's much faster not to do an explicit destroy of this
+	     * X window.
+	     */
+
+	    dispPtr->lastDestroyRequest = NextRequest(winPtr->display);
+	    XDestroyWindow(winPtr->display, winPtr->window);
+	}
+#endif
+	TkFreeWindowId(dispPtr, winPtr->window);
+	Tcl_DeleteHashEntry(Tcl_FindHashEntry(&dispPtr->winTable,
+		(char *) winPtr->window));
+	winPtr->window = None;
+    }
+    dispPtr->destroyCount--;
+    UnlinkWindow(winPtr);
+    TkEventDeadWindow(winPtr);
+#ifdef TK_USE_INPUT_METHODS
+    if (winPtr->inputContext != NULL) {
+	XDestroyIC(winPtr->inputContext);
+    }
+#endif /* TK_USE_INPUT_METHODS */
+    if (winPtr->tagPtr != NULL) {
+	TkFreeBindingTags(winPtr);
+    }
+    TkOptionDeadWindow(winPtr);
+    TkSelDeadWindow(winPtr);
+    TkGrabDeadWindow(winPtr);
+    if (winPtr->mainPtr != NULL) {
+	if (winPtr->pathName != NULL) {
+	    Tk_DeleteAllBindings(winPtr->mainPtr->bindingTable,
+		    (ClientData) winPtr->pathName);
+	    Tcl_DeleteHashEntry(Tcl_FindHashEntry(&winPtr->mainPtr->nameTable,
+		    winPtr->pathName));
+	}
+	winPtr->mainPtr->refCount--;
+	if (winPtr->mainPtr->refCount == 0) {
+	    register TkCmd *cmdPtr;
+
+	    /*
+	     * We just deleted the last window in the application.  Delete
+	     * the TkMainInfo structure too and replace all of Tk's commands
+	     * with dummy commands that return errors.  Also delete the
+	     * "send" command to unregister the interpreter.
+             *
+             * NOTE: Only replace the commands it if the interpreter is
+             * not being deleted. If it *is*, the interpreter cleanup will
+             * do all the needed work.
+	     */
+
+            if ((winPtr->mainPtr->interp != NULL) &&
+                    (!Tcl_InterpDeleted(winPtr->mainPtr->interp))) {
+                for (cmdPtr = commands; cmdPtr->name != NULL; cmdPtr++) {
+                    Tcl_CreateCommand(winPtr->mainPtr->interp, cmdPtr->name,
+                            TkDeadAppCmd, (ClientData) NULL,
+                            (void (*)()) NULL);
+                }
+                Tcl_CreateCommand(winPtr->mainPtr->interp, "send",
+                        TkDeadAppCmd, (ClientData) NULL, (void (*)()) NULL);
+#ifndef STk_CODE
+                Tcl_UnlinkVar(winPtr->mainPtr->interp, "tk_strictMotif");
+#endif
+            }
+	    Tcl_DeleteHashTable(&winPtr->mainPtr->nameTable);
+	    Tk_DeleteBindingTable(winPtr->mainPtr->bindingTable);
+	    TkDeleteAllImages(winPtr->mainPtr);
+	    ckfree((char *) winPtr->mainPtr);
+	}
+    }
+    ckfree((char *) winPtr);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MapWindow --
+ *
+ *	Map a window within its parent.  This may require the
+ *	window and/or its parents to actually be created.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The given window will be mapped.  Windows may also
+ *	be created.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_MapWindow(tkwin)
+    Tk_Window tkwin;		/* Token for window to map. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    XEvent event;
+
+    if (winPtr->flags & TK_MAPPED) {
+	return;
+    }
+    if (winPtr->window == None) {
+	Tk_MakeWindowExist(tkwin);
+    }
+    if (winPtr->flags & TK_TOP_LEVEL) {
+	/*
+	 * Lots of special processing has to be done for top-level
+	 * windows.  Let tkWm.c handle everything itself.
+	 */
+
+	TkWmMapWindow(winPtr);
+	return;
+    }
+    winPtr->flags |= TK_MAPPED;
+    XMapWindow(winPtr->display, winPtr->window);
+    event.type = MapNotify;
+    event.xmap.serial = LastKnownRequestProcessed(winPtr->display);
+    event.xmap.send_event = False;
+    event.xmap.display = winPtr->display;
+    event.xmap.event = winPtr->window;
+    event.xmap.window = winPtr->window;
+    event.xmap.override_redirect = winPtr->atts.override_redirect;
+    Tk_HandleEvent(&event);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MakeWindowExist --
+ *
+ *	Ensure that a particular window actually exists.  This
+ *	procedure shouldn't normally need to be invoked from
+ *	outside the Tk package, but may be needed if someone
+ *	wants to manipulate a window before mapping it.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the procedure returns, the X window associated with
+ *	tkwin is guaranteed to exist.  This may require the
+ *	window's ancestors to be created also.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_MakeWindowExist(tkwin)
+    Tk_Window tkwin;		/* Token for window. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    TkWindow *winPtr2;
+    Window parent;
+    Tcl_HashEntry *hPtr;
+    int new;
+
+    if (winPtr->window != None) {
+	return;
+    }
+
+    if ((winPtr->parentPtr == NULL) || (winPtr->flags & TK_TOP_LEVEL)) {
+	parent = XRootWindow(winPtr->display, winPtr->screenNum);
+    } else {
+	if (winPtr->parentPtr->window == None) {
+	    Tk_MakeWindowExist((Tk_Window) winPtr->parentPtr);
+	}
+	parent = winPtr->parentPtr->window;
+    }
+
+    winPtr->window = TkMakeWindow(winPtr, parent);
+    hPtr = Tcl_CreateHashEntry(&winPtr->dispPtr->winTable,
+	    (char *) winPtr->window, &new);
+    Tcl_SetHashValue(hPtr, winPtr);
+    winPtr->dirtyAtts = 0;
+    winPtr->dirtyChanges = 0;
+#ifdef TK_USE_INPUT_METHODS
+    winPtr->inputContext = NULL;
+#endif /* TK_USE_INPUT_METHODS */
+
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	/*
+	 * If any siblings higher up in the stacking order have already
+	 * been created then move this window to its rightful position
+	 * in the stacking order.
+	 *
+	 * NOTE: this code ignores any changes anyone might have made
+	 * to the sibling and stack_mode field of the window's attributes,
+	 * so it really isn't safe for these to be manipulated except
+	 * by calling Tk_RestackWindow.
+	 */
+
+	for (winPtr2 = winPtr->nextPtr; winPtr2 != NULL;
+		winPtr2 = winPtr2->nextPtr) {
+	    if ((winPtr2->window != None) && !(winPtr2->flags & TK_TOP_LEVEL)) {
+		XWindowChanges changes;
+		changes.sibling = winPtr2->window;
+		changes.stack_mode = Below;
+		XConfigureWindow(winPtr->display, winPtr->window,
+			CWSibling|CWStackMode, &changes);
+		break;
+	    }
+	}
+
+	/*
+	 * If this window has a different colormap than its parent, add
+	 * the window to the WM_COLORMAP_WINDOWS property for its top-level.
+	 */
+
+	if ((winPtr->parentPtr != NULL) &&
+		(winPtr->atts.colormap != winPtr->parentPtr->atts.colormap)) {
+	    TkWmAddToColormapWindows(winPtr);
+	    winPtr->flags |= TK_WM_COLORMAP_WINDOW;
+	}
+    }
+
+    /*
+     * Issue a ConfigureNotify event if there were deferred configuration
+     * changes (but skip it if the window is being deleted;  the
+     * ConfigureNotify event could cause problems if we're being called
+     * from Tk_DestroyWindow under some conditions).
+     */
+
+    if ((winPtr->flags & TK_NEED_CONFIG_NOTIFY)
+	    && !(winPtr->flags & TK_ALREADY_DEAD)){
+	winPtr->flags &= ~TK_NEED_CONFIG_NOTIFY;
+	DoConfigureNotify(winPtr);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_UnmapWindow, etc. --
+ *
+ *	There are several procedures under here, each of which
+ *	mirrors an existing X procedure.  In addition to performing
+ *	the functions of the corresponding procedure, each
+ *	procedure also updates the local window structure and
+ *	synthesizes an X event (if the window's structure is being
+ *	managed internally).
+ *
+ * Results:
+ *	See the manual entries.
+ *
+ * Side effects:
+ *	See the manual entries.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_UnmapWindow(tkwin)
+    Tk_Window tkwin;		/* Token for window to unmap. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if (!(winPtr->flags & TK_MAPPED) || (winPtr->flags & TK_ALREADY_DEAD)) {
+	return;
+    }
+    if (winPtr->flags & TK_TOP_LEVEL) {
+	/*
+	 * Special processing has to be done for top-level windows.  Let
+	 * tkWm.c handle everything itself.
+	 */
+
+	TkWmUnmapWindow(winPtr);
+	return;
+    }
+    winPtr->flags &= ~TK_MAPPED;
+    XUnmapWindow(winPtr->display, winPtr->window);
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	XEvent event;
+
+	event.type = UnmapNotify;
+	event.xunmap.serial = LastKnownRequestProcessed(winPtr->display);
+	event.xunmap.send_event = False;
+	event.xunmap.display = winPtr->display;
+	event.xunmap.event = winPtr->window;
+	event.xunmap.window = winPtr->window;
+	event.xunmap.from_configure = False;
+	Tk_HandleEvent(&event);
+    }
+}
+
+void
+Tk_ConfigureWindow(tkwin, valueMask, valuePtr)
+    Tk_Window tkwin;		/* Window to re-configure. */
+    unsigned int valueMask;	/* Mask indicating which parts of
+				 * *valuePtr are to be used. */
+    XWindowChanges *valuePtr;	/* New values. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if (valueMask & CWX) {
+	winPtr->changes.x = valuePtr->x;
+    }
+    if (valueMask & CWY) {
+	winPtr->changes.y = valuePtr->y;
+    }
+    if (valueMask & CWWidth) {
+	winPtr->changes.width = valuePtr->width;
+    }
+    if (valueMask & CWHeight) {
+	winPtr->changes.height = valuePtr->height;
+    }
+    if (valueMask & CWBorderWidth) {
+	winPtr->changes.border_width = valuePtr->border_width;
+    }
+    if (valueMask & (CWSibling|CWStackMode)) {
+	panic("Can't set sibling or stack mode from Tk_ConfigureWindow.");
+    }
+
+    if (winPtr->window != None) {
+	XConfigureWindow(winPtr->display, winPtr->window,
+		valueMask, valuePtr);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    DoConfigureNotify(winPtr);
+	}
+    } else {
+	winPtr->dirtyChanges |= valueMask;
+	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
+    }
+}
+
+void
+Tk_MoveWindow(tkwin, x, y)
+    Tk_Window tkwin;		/* Window to move. */
+    int x, y;			/* New location for window (within
+				 * parent). */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->changes.x = x;
+    winPtr->changes.y = y;
+    if (winPtr->window != None) {
+	XMoveWindow(winPtr->display, winPtr->window, x, y);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    DoConfigureNotify(winPtr);
+	}
+    } else {
+	winPtr->dirtyChanges |= CWX|CWY;
+	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
+    }
+}
+
+void
+Tk_ResizeWindow(tkwin, width, height)
+    Tk_Window tkwin;		/* Window to resize. */
+    int width, height;		/* New dimensions for window. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->changes.width = (unsigned) width;
+    winPtr->changes.height = (unsigned) height;
+    if (winPtr->window != None) {
+	XResizeWindow(winPtr->display, winPtr->window, (unsigned) width,
+		(unsigned) height);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    DoConfigureNotify(winPtr);
+	}
+    } else {
+	winPtr->dirtyChanges |= CWWidth|CWHeight;
+	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
+    }
+}
+
+void
+Tk_MoveResizeWindow(tkwin, x, y, width, height)
+    Tk_Window tkwin;		/* Window to move and resize. */
+    int x, y;			/* New location for window (within
+				 * parent). */
+    int width, height;		/* New dimensions for window. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->changes.x = x;
+    winPtr->changes.y = y;
+    winPtr->changes.width = (unsigned) width;
+    winPtr->changes.height = (unsigned) height;
+    if (winPtr->window != None) {
+	XMoveResizeWindow(winPtr->display, winPtr->window, x, y,
+		(unsigned) width, (unsigned) height);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    DoConfigureNotify(winPtr);
+	}
+    } else {
+	winPtr->dirtyChanges |= CWX|CWY|CWWidth|CWHeight;
+	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
+    }
+}
+
+void
+Tk_SetWindowBorderWidth(tkwin, width)
+    Tk_Window tkwin;		/* Window to modify. */
+    int width;			/* New border width for window. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->changes.border_width = width;
+    if (winPtr->window != None) {
+	XSetWindowBorderWidth(winPtr->display, winPtr->window,
+		(unsigned) width);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    DoConfigureNotify(winPtr);
+	}
+    } else {
+	winPtr->dirtyChanges |= CWBorderWidth;
+	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
+    }
+}
+
+void
+Tk_ChangeWindowAttributes(tkwin, valueMask, attsPtr)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    unsigned long valueMask;	/* OR'ed combination of bits,
+				 * indicating which fields of
+				 * *attsPtr are to be used. */
+    register XSetWindowAttributes *attsPtr;
+				/* New values for some attributes. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if (valueMask & CWBackPixmap) {
+	winPtr->atts.background_pixmap = attsPtr->background_pixmap;
+    }
+    if (valueMask & CWBackPixel) {
+	winPtr->atts.background_pixel = attsPtr->background_pixel;
+    }
+    if (valueMask & CWBorderPixmap) {
+	winPtr->atts.border_pixmap = attsPtr->border_pixmap;
+    }
+    if (valueMask & CWBorderPixel) {
+	winPtr->atts.border_pixel = attsPtr->border_pixel;
+    }
+    if (valueMask & CWBitGravity) {
+	winPtr->atts.bit_gravity = attsPtr->bit_gravity;
+    }
+    if (valueMask & CWWinGravity) {
+	winPtr->atts.win_gravity = attsPtr->win_gravity;
+    }
+    if (valueMask & CWBackingStore) {
+	winPtr->atts.backing_store = attsPtr->backing_store;
+    }
+    if (valueMask & CWBackingPlanes) {
+	winPtr->atts.backing_planes = attsPtr->backing_planes;
+    }
+    if (valueMask & CWBackingPixel) {
+	winPtr->atts.backing_pixel = attsPtr->backing_pixel;
+    }
+    if (valueMask & CWOverrideRedirect) {
+	winPtr->atts.override_redirect = attsPtr->override_redirect;
+    }
+    if (valueMask & CWSaveUnder) {
+	winPtr->atts.save_under = attsPtr->save_under;
+    }
+    if (valueMask & CWEventMask) {
+	winPtr->atts.event_mask = attsPtr->event_mask;
+    }
+    if (valueMask & CWDontPropagate) {
+	winPtr->atts.do_not_propagate_mask
+		= attsPtr->do_not_propagate_mask;
+    }
+    if (valueMask & CWColormap) {
+	winPtr->atts.colormap = attsPtr->colormap;
+    }
+    if (valueMask & CWCursor) {
+	winPtr->atts.cursor = attsPtr->cursor;
+    }
+
+    if (winPtr->window != None) {
+	XChangeWindowAttributes(winPtr->display, winPtr->window,
+		valueMask, attsPtr);
+    } else {
+	winPtr->dirtyAtts |= valueMask;
+    }
+}
+
+void
+Tk_SetWindowBackground(tkwin, pixel)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    unsigned long pixel;	/* Pixel value to use for
+				 * window's background. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->atts.background_pixel = pixel;
+
+    if (winPtr->window != None) {
+	XSetWindowBackground(winPtr->display, winPtr->window, pixel);
+    } else {
+	winPtr->dirtyAtts = (winPtr->dirtyAtts & (unsigned) ~CWBackPixmap)
+		| CWBackPixel;
+    }
+}
+
+void
+Tk_SetWindowBackgroundPixmap(tkwin, pixmap)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    Pixmap pixmap;		/* Pixmap to use for window's
+				 * background. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->atts.background_pixmap = pixmap;
+
+    if (winPtr->window != None) {
+	XSetWindowBackgroundPixmap(winPtr->display,
+		winPtr->window, pixmap);
+    } else {
+	winPtr->dirtyAtts = (winPtr->dirtyAtts & (unsigned) ~CWBackPixel)
+		| CWBackPixmap;
+    }
+}
+
+void
+Tk_SetWindowBorder(tkwin, pixel)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    unsigned long pixel;	/* Pixel value to use for
+				 * window's border. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->atts.border_pixel = pixel;
+
+    if (winPtr->window != None) {
+	XSetWindowBorder(winPtr->display, winPtr->window, pixel);
+    } else {
+	winPtr->dirtyAtts = (winPtr->dirtyAtts & (unsigned) ~CWBorderPixmap)
+		| CWBorderPixel;
+    }
+}
+
+void
+Tk_SetWindowBorderPixmap(tkwin, pixmap)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    Pixmap pixmap;		/* Pixmap to use for window's
+				 * border. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->atts.border_pixmap = pixmap;
+
+    if (winPtr->window != None) {
+	XSetWindowBorderPixmap(winPtr->display,
+		winPtr->window, pixmap);
+    } else {
+	winPtr->dirtyAtts = (winPtr->dirtyAtts & (unsigned) ~CWBorderPixel)
+		| CWBorderPixmap;
+    }
+}
+
+void
+Tk_DefineCursor(tkwin, cursor)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    Tk_Cursor cursor;		/* Cursor to use for window (may be None). */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+#ifdef MAC_TCL
+    winPtr->atts.cursor = (XCursor) cursor;
+#else
+    winPtr->atts.cursor = (Cursor) cursor;
+#endif
+    
+    if (winPtr->window != None) {
+	XDefineCursor(winPtr->display, winPtr->window, winPtr->atts.cursor);
+    } else {
+	winPtr->dirtyAtts = winPtr->dirtyAtts | CWCursor;
+    }
+}
+
+void
+Tk_UndefineCursor(tkwin)
+    Tk_Window tkwin;		/* Window to manipulate. */
+{
+    Tk_DefineCursor(tkwin, None);
+}
+
+void
+Tk_SetWindowColormap(tkwin, colormap)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    Colormap colormap;		/* Colormap to use for window. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->atts.colormap = colormap;
+
+    if (winPtr->window != None) {
+	XSetWindowColormap(winPtr->display, winPtr->window, colormap);
+	if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	    TkWmAddToColormapWindows(winPtr);
+	    winPtr->flags |= TK_WM_COLORMAP_WINDOW;
+	}
+    } else {
+	winPtr->dirtyAtts |= CWColormap;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetWindowVisual --
+ *
+ *	This procedure is called to specify a visual to be used
+ *	for a Tk window when it is created.  This procedure, if
+ *	called at all, must be called before the X window is created
+ *	(i.e. before Tk_MakeWindowExist is called).
+ *
+ * Results:
+ *	The return value is 1 if successful, or 0 if the X window has
+ *	been already created.
+ *
+ * Side effects:
+ *	The information given is stored for when the window is created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_SetWindowVisual(tkwin, visual, depth, colormap)
+    Tk_Window tkwin;		/* Window to manipulate. */
+    Visual *visual;		/* New visual for window. */
+    int depth;			/* New depth for window. */
+    Colormap colormap;		/* An appropriate colormap for the visual. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    if( winPtr->window != None ){
+	/* Too late! */
+	return 0;
+    }
+
+    winPtr->visual = visual;
+    winPtr->depth = depth;
+    winPtr->atts.colormap = colormap;
+
+    /*
+     * The following code is needed to make sure that the window doesn't
+     * inherit the parent's border pixmap, which would result in a BadMatch
+     * error.
+     */
+
+    if (!(winPtr->dirtyAtts & CWBorderPixmap)) {
+	winPtr->dirtyAtts |= CWBorderPixel;
+    }
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DoConfigureNotify --
+ *
+ *	Generate a ConfigureNotify event describing the current
+ *	configuration of a window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	An event is generated and processed by Tk_HandleEvent.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DoConfigureNotify(winPtr)
+    register TkWindow *winPtr;		/* Window whose configuration
+					 * was just changed. */
+{
+    XEvent event;
+
+    event.type = ConfigureNotify;
+    event.xconfigure.serial = LastKnownRequestProcessed(winPtr->display);
+    event.xconfigure.send_event = False;
+    event.xconfigure.display = winPtr->display;
+    event.xconfigure.event = winPtr->window;
+    event.xconfigure.window = winPtr->window;
+    event.xconfigure.x = winPtr->changes.x;
+    event.xconfigure.y = winPtr->changes.y;
+    event.xconfigure.width = winPtr->changes.width;
+    event.xconfigure.height = winPtr->changes.height;
+    event.xconfigure.border_width = winPtr->changes.border_width;
+    if (winPtr->changes.stack_mode == Above) {
+	event.xconfigure.above = winPtr->changes.sibling;
+    } else {
+	event.xconfigure.above = None;
+    }
+    event.xconfigure.override_redirect = winPtr->atts.override_redirect;
+    Tk_HandleEvent(&event);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetClass --
+ *
+ *	This procedure is used to give a window a class.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new class is stored for tkwin, replacing any existing
+ *	class for it.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetClass(tkwin, className)
+    Tk_Window tkwin;		/* Token for window to assign class. */
+    char *className;		/* New class for tkwin. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    winPtr->classUid = Tk_GetUid(className);
+    if (winPtr->flags & TK_TOP_LEVEL) {
+	TkWmSetClass(winPtr);
+    }
+    TkOptionClassChanged(winPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_NameToWindow --
+ *
+ *	Given a string name for a window, this procedure
+ *	returns the token for the window, if there exists a
+ *	window corresponding to the given name.
+ *
+ * Results:
+ *	The return result is either a token for the window corresponding
+ *	to "name", or else NULL to indicate that there is no such
+ *	window.  In this case, an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_NameToWindow(interp, pathName, tkwin)
+    Tcl_Interp *interp;		/* Where to report errors. */
+    char *pathName;		/* Path name of window. */
+    Tk_Window tkwin;		/* Token for window:  name is assumed to
+				 * belong to the same main window as tkwin. */
+{
+    Tcl_HashEntry *hPtr;
+    TkWindow *winPtr;
+
+    hPtr = Tcl_FindHashEntry(&((TkWindow *) tkwin)->mainPtr->nameTable,
+	    pathName);
+    if (hPtr != NULL) {
+	/*
+	 * Make sure that the window isn't in the process of being deleted.
+	 */
+
+	winPtr = (TkWindow *) Tcl_GetHashValue(hPtr);
+	if (!(winPtr->flags & TK_ALREADY_DEAD)) {
+	    return (Tk_Window) winPtr;
+	}
+    }
+
+    Tcl_AppendResult(interp, "bad window path name \"",
+	    pathName, "\"", (char *) NULL);
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_IdToWindow --
+ *
+ *	Given an X display and window ID, this procedure returns the
+ *	Tk token for the window, if there exists a Tk window corresponding
+ *	to the given ID.
+ *
+ * Results:
+ *	The return result is either a token for the window corresponding
+ *	to the given X id, or else NULL to indicate that there is no such
+ *	window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_IdToWindow(display, window)
+    Display *display;		/* X display containing the window. */
+    Window window;		/* X window window id. */
+{
+    TkDisplay *dispPtr;
+    Tcl_HashEntry *hPtr;
+
+    for (dispPtr = tkDisplayList; ; dispPtr = dispPtr->nextPtr) {
+	if (dispPtr == NULL) {
+	    return NULL;
+	}
+	if (dispPtr->display == display) {
+	    break;
+	}
+    }
+
+    hPtr = Tcl_FindHashEntry(&dispPtr->winTable, (char *) window);
+    if (hPtr == NULL) {
+	return NULL;
+    }
+    return (Tk_Window) Tcl_GetHashValue(hPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DisplayName --
+ *
+ *	Return the textual name of a window's display.
+ *
+ * Results:
+ *	The return value is the string name of the display associated
+ *	with tkwin.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+Tk_DisplayName(tkwin)
+    Tk_Window tkwin;		/* Window whose display name is desired. */
+{
+    return ((TkWindow *) tkwin)->dispPtr->name;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UnlinkWindow --
+ *
+ *	This procedure removes a window from the childList of its
+ *	parent.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is unlinked from its childList.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UnlinkWindow(winPtr)
+    TkWindow *winPtr;			/* Child window to be unlinked. */
+{
+    TkWindow *prevPtr;
+
+    if (winPtr->parentPtr == NULL) {
+	return;
+    }
+    prevPtr = winPtr->parentPtr->childList;
+    if (prevPtr == winPtr) {
+	winPtr->parentPtr->childList = winPtr->nextPtr;
+	if (winPtr->nextPtr == NULL) {
+	    winPtr->parentPtr->lastChildPtr = NULL;
+	}
+    } else {
+	while (prevPtr->nextPtr != winPtr) {
+	    prevPtr = prevPtr->nextPtr;
+	    if (prevPtr == NULL) {
+		panic("UnlinkWindow couldn't find child in parent");
+	    }
+	}
+	prevPtr->nextPtr = winPtr->nextPtr;
+	if (winPtr->nextPtr == NULL) {
+	    winPtr->parentPtr->lastChildPtr = prevPtr;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_RestackWindow --
+ *
+ *	Change a window's position in the stacking order.
+ *
+ * Results:
+ *	TCL_OK is normally returned.  If other is not a descendant
+ *	of tkwin's parent then TCL_ERROR is returned and tkwin is
+ *	not repositioned.
+ *
+ * Side effects:
+ *	Tkwin is repositioned in the stacking order.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_RestackWindow(tkwin, aboveBelow, other)
+    Tk_Window tkwin;		/* Token for window whose position in
+				 * the stacking order is to change. */
+    int aboveBelow;		/* Indicates new position of tkwin relative
+				 * to other;  must be Above or Below. */
+    Tk_Window other;		/* Tkwin will be moved to a position that
+				 * puts it just above or below this window.
+				 * If NULL then tkwin goes above or below
+				 * all windows in the same parent. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkWindow *otherPtr = (TkWindow *) other;
+    XWindowChanges changes;
+    unsigned int mask;
+
+
+    /*
+     * Special case:  if winPtr is a top-level window then just find
+     * the top-level ancestor of otherPtr and restack winPtr above
+     * otherPtr without changing any of Tk's childLists.
+     */
+
+    changes.stack_mode = aboveBelow;
+    mask = CWStackMode;
+    if (winPtr->flags & TK_TOP_LEVEL) {
+	while ((otherPtr != NULL) && !(otherPtr->flags & TK_TOP_LEVEL)) {
+	    otherPtr = otherPtr->parentPtr;
+	}
+	TkWmRestackToplevel(winPtr, aboveBelow, otherPtr);
+	return TCL_OK;
+    }
+
+    /*
+     * Find an ancestor of otherPtr that is a sibling of winPtr.
+     */
+
+    if (winPtr->parentPtr == NULL) {
+	/*
+	 * Window is going to be deleted shortly;  don't do anything.
+	 */
+
+	return TCL_OK;
+    }
+    if (otherPtr == NULL) {
+	if (aboveBelow == Above) {
+	    otherPtr = winPtr->parentPtr->lastChildPtr;
+	} else {
+	    otherPtr = winPtr->parentPtr->childList;
+	}
+    } else {
+	while (winPtr->parentPtr != otherPtr->parentPtr) {
+	    if ((otherPtr == NULL) || (otherPtr->flags & TK_TOP_LEVEL)) {
+		return TCL_ERROR;
+	    }
+	    otherPtr = otherPtr->parentPtr;
+	}
+    }
+    if (otherPtr == winPtr) {
+	return TCL_OK;
+    }
+
+    /*
+     * Reposition winPtr in the stacking order.
+     */
+
+    UnlinkWindow(winPtr);
+    if (aboveBelow == Above) {
+	winPtr->nextPtr = otherPtr->nextPtr;
+	if (winPtr->nextPtr == NULL) {
+	    winPtr->parentPtr->lastChildPtr = winPtr;
+	}
+	otherPtr->nextPtr = winPtr;
+    } else {
+	TkWindow *prevPtr;
+
+	prevPtr = winPtr->parentPtr->childList;
+	if (prevPtr == otherPtr) {
+	    winPtr->parentPtr->childList = winPtr;
+	} else {
+	    while (prevPtr->nextPtr != otherPtr) {
+		prevPtr = prevPtr->nextPtr;
+	    }
+	    prevPtr->nextPtr = winPtr;
+	}
+	winPtr->nextPtr = otherPtr;
+    }
+
+    /*
+     * Notify the X server of the change.  If winPtr hasn't yet been
+     * created then there's no need to tell the X server now, since
+     * the stacking order will be handled properly when the window
+     * is finally created.
+     */
+
+    if (winPtr->window != None) {
+	changes.stack_mode = Above;
+	for (otherPtr = winPtr->nextPtr; otherPtr != NULL;
+		otherPtr = otherPtr->nextPtr) {
+	    if ((otherPtr->window != None)
+		    && !(otherPtr->flags & TK_TOP_LEVEL)){
+		changes.sibling = otherPtr->window;
+		changes.stack_mode = Below;
+		mask = CWStackMode|CWSibling;
+		break;
+	    }
+	}
+	XConfigureWindow(winPtr->display, winPtr->window, mask, &changes);
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_MainWindow --
+ *
+ *	Returns the main window for an application.
+ *
+ * Results:
+ *	If interp has a Tk application associated with it, the main
+ *	window for the application is returned.  Otherwise NULL is
+ *	returned and an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_MainWindow(interp)
+    Tcl_Interp *interp;			/* Interpreter that embodies the
+					 * application.  Used for error
+					 * reporting also. */
+{
+    TkMainInfo *mainPtr;
+
+    for (mainPtr = tkMainWindowList; mainPtr != NULL;
+	    mainPtr = mainPtr->nextPtr) {
+	if (mainPtr->interp == interp) {
+	    return (Tk_Window) mainPtr->winPtr;
+	}
+    }
+    interp->result = "this isn't a Tk application";
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_StrictMotif --
+ *
+ *	Indicates whether strict Motif compliance has been specified
+ *	for the given window.
+ *
+ * Results:
+ *	The return value is 1 if strict Motif compliance has been
+ *	requested for tkwin's application by setting the tk_strictMotif
+ *	variable in its interpreter to a true value.  0 is returned
+ *	if tk_strictMotif has a false value.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_StrictMotif(tkwin)
+    Tk_Window tkwin;			/* Window whose application is
+					 * to be checked. */
+{
+    return ((TkWindow *) tkwin)->mainPtr->strictMotif;
+}
+
+/* 
+ *--------------------------------------------------------------
+ *
+ * OpenIM --
+ *
+ *	Tries to open an X input method, associated with the
+ *	given display.  Right now we can only deal with a bare-bones
+ *	input style:  no preedit, and no status.
+ *
+ * Results:
+ *	Stores the input method in dispPtr->inputMethod;  if there isn't
+ *	a suitable input method, then NULL is stored in dispPtr->inputMethod.
+ *
+ * Side effects:
+ *	An input method gets opened.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+OpenIM(dispPtr)
+    TkDisplay *dispPtr;		/* Tk's structure for the display. */
+{
+#ifndef TK_USE_INPUT_METHODS
+    return;
+#else
+    unsigned short i;
+    XIMStyles *stylePtr;
+
+    dispPtr->inputMethod = XOpenIM(dispPtr->display, NULL, NULL, NULL);
+    if (dispPtr->inputMethod == NULL) {
+	return;
+    }
+
+    if ((XGetIMValues(dispPtr->inputMethod, XNQueryInputStyle, &stylePtr,
+	    NULL) != NULL) || (stylePtr == NULL)) {
+	goto error;
+    }
+    for (i = 0; i < stylePtr->count_styles; i++) {
+	if (stylePtr->supported_styles[i]
+		== (XIMPreeditNothing|XIMStatusNothing)) {
+	    XFree(stylePtr);
+	    return;
+	}
+    }
+    XFree(stylePtr);
+
+    error:
+
+    /*
+     * Should close the input method, but this causes core dumps on some
+     * systems (e.g. Solaris 2.3 as of 1/6/95).
+     * XCloseIM(dispPtr->inputMethod);
+     */
+    dispPtr->inputMethod = NULL;
+    return;
+#endif /* TK_USE_INPUT_METHODS */
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetNumMainWindows --
+ *
+ *	This procedure returns the number of main windows currently
+ *	open in this process.
+ *
+ * Results:
+ *	The number of main windows open in this process.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_GetNumMainWindows()
+{
+    return numMainWindows;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteWindowsExitProc --
+ *
+ *	This procedure is invoked as an exit handler.  It deletes all
+ *	of the main windows in the process.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteWindowsExitProc(clientData)
+    ClientData clientData;		/* Not used. */
+{
+    while (tkMainWindowList != NULL) {
+	Tk_DestroyWindow((Tk_Window) tkMainWindowList->winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Init --
+ *
+ *	This procedure is invoked to add Tk to an interpreter.  It
+ *	incorporates all of Tk's commands into the interpreter and
+ *	creates the main window for a new Tk application.  If the
+ *	interpreter contains a variable "argv", this procedure
+ *	extracts several arguments from that variable, uses them
+ *	to configure the main window, and modifies argv to exclude
+ *	the arguments (see the "wish" documentation for a list of
+ *	the arguments that are extracted).
+ *
+ * Results:
+ *	Returns a standard Tcl completion code and sets interp->result
+ *	if there is an error.
+ *
+ * Side effects:
+ *	Depends on various initialization scripts that get invoked.
+ *
+ *----------------------------------------------------------------------
+ */
+#ifndef STk_CODE
+int
+Tk_Init(interp)
+    Tcl_Interp *interp;		/* Interpreter to initialize. */
+{
+    char *p;
+    int argc, code;
+    char **argv, *args[20];
+    Tcl_DString class;
+    char buffer[30];
+
+    /*
+     * If there is an "argv" variable, get its value, extract out
+     * relevant arguments from it, and rewrite the variable without
+     * the arguments that we used.
+     */
+
+    synchronize = 0;
+    name = display = geometry = colormap = visual = NULL; 
+    p = Tcl_GetVar2(interp, "argv", (char *) NULL, TCL_GLOBAL_ONLY);
+    argv = NULL;
+    if (p != NULL) {
+	if (Tcl_SplitList(interp, p, &argc, &argv) != TCL_OK) {
+	    argError:
+	    Tcl_AddErrorInfo(interp,
+		    "\n    (processing arguments in argv variable)");
+	    return TCL_ERROR;
+	}
+	if (Tk_ParseArgv(interp, (Tk_Window) NULL, &argc, argv,
+		argTable, TK_ARGV_DONT_SKIP_FIRST_ARG|TK_ARGV_NO_DEFAULTS)
+		!= TCL_OK) {
+	    ckfree((char *) argv);
+	    goto argError;
+	}
+	p = Tcl_Merge(argc, argv);
+	Tcl_SetVar2(interp, "argv", (char *) NULL, p, TCL_GLOBAL_ONLY);
+	sprintf(buffer, "%d", argc);
+	Tcl_SetVar2(interp, "argc", (char *) NULL, buffer, TCL_GLOBAL_ONLY);
+	ckfree(p);
+    }
+
+    /*
+     * Figure out the application's name and class.
+     */
+
+    if (name == NULL) {
+	name = Tcl_GetVar(interp, "argv0", TCL_GLOBAL_ONLY);
+	if ((name == NULL) || (*name == 0)) {
+	    name = "tk";
+	} else {
+	    p = strrchr(name, '/');
+	    if (p != NULL) {
+		name = p+1;
+	    }
+	}
+    }
+    Tcl_DStringInit(&class);
+    Tcl_DStringAppend(&class, name, -1);
+    p = Tcl_DStringValue(&class);
+    if (islower(*p)) {
+	*p = toupper((unsigned char) *p);
+    }
+
+    /*
+     * Create an argument list for creating the top-level window,
+     * using the information parsed from argv, if any.
+     */
+
+    args[0] = "toplevel";
+    args[1] = ".";
+    args[2] = "-class";
+    args[3] = Tcl_DStringValue(&class);
+    argc = 4;
+    if (display != NULL) {
+	args[argc] = "-screen";
+	args[argc+1] = display;
+	argc += 2;
+
+	/*
+	 * If this is the first application for this process, save
+	 * the display name in the DISPLAY environment variable so
+	 * that it will be available to subprocesses created by us.
+	 */
+
+	if (numMainWindows == 0) {
+	    Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY);
+	}
+    }
+    if (colormap != NULL) {
+	args[argc] = "-colormap";
+	args[argc+1] = colormap;
+	argc += 2;
+    }
+    if (visual != NULL) {
+	args[argc] = "-visual";
+	args[argc+1] = visual;
+	argc += 2;
+    }
+    args[argc] = NULL;
+    code = TkCreateFrame((ClientData) NULL, interp, argc, args, 1, name);
+    Tcl_DStringFree(&class);
+    if (code != TCL_OK) {
+	goto done;
+    }
+    Tcl_ResetResult(interp);
+    if (synchronize) {
+	XSynchronize(Tk_Display(Tk_MainWindow(interp)), True);
+    }
+
+    /*
+     * Set the geometry of the main window, if requested.  Put the
+     * requested geometry into the "geometry" variable.
+     */
+
+    if (geometry != NULL) {
+	Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
+	code = Tcl_VarEval(interp, "wm geometry . ", geometry, (char *) NULL);
+	if (code != TCL_OK) {
+	    goto done;
+	}
+    }
+    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
+	code = TCL_ERROR;
+	goto done;
+    }
+    code = Tcl_PkgProvide(interp, "Tk", TK_VERSION);
+    if (code != TCL_OK) {
+	goto done;
+    }
+
+    /*
+     * Invoke platform-specific initialization.
+     */
+
+    code = TkPlatformInit(interp);
+
+    done:
+    if (argv != NULL) {
+	ckfree((char *) argv);
+    }
+    return code;
+}
+#endif
diff --git a/Tk/install-sh b/Tk/install-sh
new file mode 100755
index 0000000..0ff4b6a
--- /dev/null
+++ b/Tk/install-sh
@@ -0,0 +1,119 @@
+#!/bin/sh
+
+#
+# install - install a program, script, or datafile
+# This comes from X11R5; it is not part of GNU.
+#
+# $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch.
+#
+
+
+# set DOITPROG to echo to test this script
+
+# Don't use :- since 4.3BSD and earlier shells don't like it.
+doit="${DOITPROG-}"
+
+
+# put in absolute paths if you don't have them in your path; or use env. vars.
+
+mvprog="${MVPROG-mv}"
+cpprog="${CPPROG-cp}"
+chmodprog="${CHMODPROG-chmod}"
+chownprog="${CHOWNPROG-chown}"
+chgrpprog="${CHGRPPROG-chgrp}"
+stripprog="${STRIPPROG-strip}"
+rmprog="${RMPROG-rm}"
+
+instcmd="$mvprog"
+chmodcmd=""
+chowncmd=""
+chgrpcmd=""
+stripcmd=""
+rmcmd="$rmprog -f"
+mvcmd="$mvprog"
+src=""
+dst=""
+
+while [ x"$1" != x ]; do
+    case $1 in
+	-c) instcmd="$cpprog"
+	    shift
+	    continue;;
+
+	-m) chmodcmd="$chmodprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-o) chowncmd="$chownprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-g) chgrpcmd="$chgrpprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-s) stripcmd="$stripprog"
+	    shift
+	    continue;;
+
+	*)  if [ x"$src" = x ]
+	    then
+		src=$1
+	    else
+		dst=$1
+	    fi
+	    shift
+	    continue;;
+    esac
+done
+
+if [ x"$src" = x ]
+then
+	echo "install:  no input file specified"
+	exit 1
+fi
+
+if [ x"$dst" = x ]
+then
+	echo "install:  no destination specified"
+	exit 1
+fi
+
+
+# If destination is a directory, append the input filename; if your system
+# does not like double slashes in filenames, you may need to add some logic
+
+if [ -d $dst ]
+then
+	dst="$dst"/`basename $src`
+fi
+
+# Make a temp file name in the proper directory.
+
+dstdir=`dirname $dst`
+dsttmp=$dstdir/#inst.$$#
+
+# Move or copy the file name to the temp name
+
+$doit $instcmd $src $dsttmp
+
+# and set any options; do chmod last to preserve setuid bits
+
+if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
+if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
+if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
+if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
+
+# Now rename the file to the real destination.
+
+$doit $rmcmd $dst
+$doit $mvcmd $dsttmp $dst
+
+
+exit 0
diff --git a/Tk/license.terms b/Tk/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/porting.notes b/Tk/porting.notes
new file mode 100644
index 0000000..c4e7976
--- /dev/null
+++ b/Tk/porting.notes
@@ -0,0 +1,72 @@
+This file contains a collection of notes that various people have
+provided about porting Tk to various machines and operating systems.
+I don't have personal access to any of these machines, so I make
+no guarantees that the notes are correct, complete, or up-to-date.
+If you see the word "I" in any explanations, it refers to the person
+who contributed the information, not to me;  this means that I
+probably can't answer any questions about any of this stuff. In
+some cases, a person has volunteered to act as a contact point for
+questions about porting Tcl to a particular machine;  in these
+cases the person's name and e-mail address are listed.  I'm very
+interested in getting new porting information to add to the file;
+please mail updates to "john.ousterhout@eng.sun.com".
+
+This file reflects information provided for Tk 4.0 and later releases.
+If there is no information for your configuration in this file, check
+the file "porting.old" too;  it contains information that was
+submitted for Tk 3.6 and earlier releases, and some of that information
+may still be valid.
+
+A new porting database has recently become available on the Web at
+the following URL:
+    http://www.sunlabs.com/cgi-bin/tcl/info.4.0
+This page provides information about the platforms on which Tcl 7.4
+and Tk 4.0 have been compiled and what changes were needed to get Tcl
+and Tk to compile.  You can also add new entries to that database
+when you install Tcl and Tk on a new platform.  The Web database is
+likely to be more up-to-date than this file.
+
+sccsid = @(#) porting.notes 1.7 95/06/30 11:18:50
+
+--------------------------------------------
+Solaris, various versions
+--------------------------------------------
+
+1. If typing "make test" results in an error message saying that
+there are no "*.test" files, or you get lots of globbing errors,
+it's probably because your system doesn't have cc installed and
+you used gcc.  In order for this to work, you have to set your
+CC environment variable to gcc and your CPP environment variable
+to "gcc -E" before running the configure script.
+
+2. Make sure that /usr/ucb is not in your PATH or LD_LIBRARY_PATH
+environment variables;  this will cause confusion between the new
+Solaris libraries and older UCB versions (Tk will expect one version
+and get another).
+
+3. On 486 PCs with Solaris 2.4, when compiling with gcc 2.6.0,
+tkMessage.c appears to hang gcc.  If the -O switch is removed
+then it compiles fine.
+
+--------------------------------------------
+486 PCs, Solaris 2.4
+--------------------------------------------
+
+When compiling with gcc 2.6.0, tkMessage.c appears to hang gcc.
+If the -O switch is removed then it compiles fine.
+
+--------------------------------------------
+SGI machines, IRIX 5.2, 5.3, IRIX64 6.0.1
+--------------------------------------------
+
+Add "-D_BSD_TIME" to CFLAGS in Makefile.  This avoids type conflicts
+in the prototype for the gettimeofday procedure.
+
+--------------------------------------------
+QNX 4.22
+--------------------------------------------
+
+All of the source files built as is.  All I had to do was edit the
+Makefile generated by ./configure to specify where the X11 libraries
+were (ie, I added in -L/usr/X11/lib)
+
diff --git a/Tk/porting.old b/Tk/porting.old
new file mode 100644
index 0000000..1af2c95
--- /dev/null
+++ b/Tk/porting.old
@@ -0,0 +1,324 @@
+This is an old version of the file "porting.notes".  It contains
+porting information that people submitted for Tk releases numbered
+3.6 and earlier.  You may find information in this file useful if
+there is no information available for your machine in the current
+version of "porting.notes".
+
+I don't have personal access to any of these machines, so I make
+no guarantees that the notes are correct, complete, or up-to-date.
+If you see the word "I" in any explanations, it refers to the person
+who contributed the information, not to me;  this means that I
+probably can't answer any questions about any of this stuff. In
+some cases, a person has volunteered to act as a contact point for
+questions about porting Tcl to a particular machine;  in these
+cases the person's name and e-mail address are listed.  I'd be
+happy to receive corrections or updates.
+
+sccsid = @(#) porting.old 1.1 94/12/19 11:26:50
+
+---------------------------------------------
+DEC Alphas:
+---------------------------------------------
+
+1. There appears to be a compiler/library bug that prevents tkTrig.c
+from compiling unless you turn off optimization (remove the -O compiler
+switch).  The problem appears to have been fixed in the 1.3-4 version
+of the compiler.
+
+---------------------------------------------
+HP-UX systems:
+---------------------------------------------
+
+1. Configuration:
+	    HP-UX Release 7.05 on a series 300 (68k) machine.
+	    The native cc has been used for production.
+	    X11r4 libraries and include files were taken from
+	    internet archives, where as the server came with HPUX release 7.05.
+    
+    Problems:
+	    Symbol table space for cc had to be increased with: -Wc,-Ns3000
+	    tkBind.c did not compile under -O:
+		    C1 internal error in "GetField": Set Error Detected
+		    *** Error code 1
+	    tkBind.c did compile without optimization (no -O).
+
+2. Note: if you have trouble getting xauth-style access control to work
+(and you'll need xauth if you want to use "send"), be sure to uncomment
+the line
+
+# Vuelogin*authorize:         True
+
+in the file /usr/vue/config/Xconfig, so that the server starts up with
+authorization enabled.  Also, you may have to reboot the machine in
+order to force the server to restart.
+
+---------------------------------------------
+SCO Unix:
+---------------------------------------------
+
+Getting Tk to run under SCO Unix:
+
+Add a "#undef select" to tkEvent.c, and remove the reference to TK_EXCEPTION
+around line 460 of main.c.
+
+Tk uses its own scheme for allocating the border colors for its 3D widgets,
+which causes problems when running TK on a system with "PseudoColor"
+display class, and a 16-cell colormap.
+
+If you can't go to eight bitplanes, you can instead start the server with a
+"-static" (Xsco) or "-analog" (Xsight) option, making the display class 
+become "StaticColor".  This makes the entire colormap read-only, and it will
+return the color that most closely maps to the desired color as possible.
+
+---------------------------------------------
+Silicon Graphics systems:
+---------------------------------------------
+
+1. Change the CC variable in the Makefile to:
+
+CC =		cc -xansi -D__STDC__ -signed
+
+2. Change the LIBS variable in the Makefile to use the X11 shared library
+   ("-lX11_s" instead of "-lX11").
+
+3. Under some versions of IRIX (e.g. 4.0.1) you have to turn off
+   optimization (e.g.  change "-O" in CFLAGS to "-O0" or remove it
+   entirely) because of faulty code generation.  If the Tcl or Tk test
+   suites fail, turn off optimization.
+
+4. Add a "-lsun" switch just before "-lm" in the LIBS definition.
+   Under some versions of IRIX (5.1.1.3?) you'll need to omit the
+   "-lsun" switch, plus remove the "-lsocket" and "-lnsl" switches
+   added by the configure script;  otherwise you won't be able to
+   use symbolic host names for the display, only numerical Internet
+   addresses.
+
+5. Rumor has it that you'll also need a "-lmalloc" switch in the
+   LIBS definition.
+
+6. In IRIX 5.2 you'll have to modify Makefile to fix the following problems:
+    - The "-c" option is illegal with this version of install, but
+      the "-F" switch is needed instead.  Change this in the "INSTALL ="
+      definition line.
+    - The order of file and directory have to be changed in all the
+      invocations of INSTALL_DATA or INSTALL_PROGRAM.
+
+---------------------------------------------
+IBM RS/6000's:
+---------------------------------------------
+1. To allow ALT- sequences to work on the RS-6000, the following
+line should be changed in tkBind.c:
+
+    OLD LINE:
+     {"Alt",	Mod2Mask, 	0},
+    NEW LINE:
+     {"Alt",	Mod1Mask, 	0},
+
+---------------------------------------------
+AT&T SVR4:
+---------------------------------------------
+
+1. The first major hurdle is that SVR4's select() subtly differs
+from BSD select.  This impacts Tk in two ways, some of the Xlib calls
+make use of select() and are inherently broken and Tk itself makes
+extensive use of select().  The first problem can't be fixed without
+rebuilding one's Xlib, but can be avoided.  I intend to submit part
+of my work the XFree86 guys so that the next version of XFree86 for
+SVR4 will not be broken.  Until then, it is necessary to comment out
+this section of code from Tk_DoOneEvent() (which is near line 1227):
+
+#if !defined(SVR4)
+                    void (*oldHandler)();
+
+                    oldHandler = (void (*)()) signal(SIGPIPE, SIG_IGN);
+                    XNoOp(display);
+                    XFlush(display);
+                    (void) signal(SIGPIPE, oldHandler);
+#endif /* SVR4 */
+
+if you don't comment it out, some scripts cause wish to go into
+an infinite loop of sending no-ops to the X server.
+
+2. As for fixing Tk's calls to select(), I've taken the simple
+approach of writing a wrapper for select and then using #define to
+replace all calls to select with the wrapper.  I chose tkConfig.h
+to load the wrapper.  So at the very end of tkConfig.h, it now looks
+like:
+
+#if defined(SVR4)
+#  include "BSDselect.h"
+#endif 
+
+#endif /* _TKCONFIG */
+
+The file BSDselect.h looks like this:
+
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sys/select.h>
+
+/*  This is a fix for the difference between BSD's select() and
+ *  SVR4's select().  SVR4's select() can never return a value larger
+ *  than the total number of file descriptors being checked.  So, if
+ *  you select for read and write on one file descriptor, and both
+ *  are true, SVR4 select() will only return 1.  BSD select in the
+ *  same situation will return 2.
+ *
+ *	Additionally, BSD select() on timing out, will zero the masks,
+ *	while SVR4 does not.  This is fixed here as well.
+ *
+ *	Set your tabstops to 4 characters to have this code nicely formatted.
+ *
+ *	Jerry Whelan, guru@bradley.edu, June 12th, 1993
+ */
+
+
+int
+BSDselect(nfds, readfds, writefds, exceptfds, timeout)
+int nfds;
+fd_set *readfds, *writefds, *exceptfds;
+struct timeval *timeout;
+{
+	int		rval,
+			i;
+
+	rval = select(nfds, readfds, writefds, exceptfds, timeout);
+
+	switch(rval) {
+		case -1:	return(rval);
+					break;
+
+		case 0:		if(readfds != NULL)
+						FD_ZERO(readfds);
+					if(writefds != NULL)
+						FD_ZERO(writefds);
+					if(exceptfds != NULL)
+						FD_ZERO(exceptfds);
+
+					return(rval);
+					break;
+
+		default:	for(i=0, rval=0; i < nfds; i++) {
+						if((readfds != NULL) && FD_ISSET
+(i, readfds)) rval++;
+						if((writefds != NULL) && FD_ISSE
+T(i, writefds)) rval++;
+						if((writefds != NULL) && FD_ISSE
+T(i, exceptfds)) rval++;
+					}
+					return(rval);
+		}
+/* Should never get here */
+}
+
+---------------------------------------------
+CDC 4680MP, EP/IX 1.4.3:
+---------------------------------------------
+
+The installation was done in the System V environment (-systype sysv)
+with the BSD extensions available (-I/usr/include/bsd and -lbsd).  It was
+built with the 2.20 level C compiler.  The 2.11 level can be used, but
+it is better to match what TCL is built with, which must be 2.20 or
+higher (see the porting notes with TCL for the details).
+
+To make the configure script find the BSD extensions, I set environment
+variable DEFS to "-I/usr/include/bsd" and LIBS to "-lbsd" before
+running it.  I would have also set CC to "cc2.20", but that compiler
+driver has a bug that loader errors (e.g. not finding a library routine,
+which the script uses to tell what is available) do not cause an error
+status to be returned to the shell (but see the Tcl 2.1.1 porting notes
+for comments about using "-non_shared").
+
+After running configure, I changed the CC definition line in Makefile
+from:
+	CC=cc
+to
+	CC=cc2.20
+to match the TCL build.  Skip this if the default compiler is already 2.20
+(or later).
+
+---------------------------------------------
+CDC 4680MP, EP/IX 2.1.1:
+---------------------------------------------
+
+The installation was done in the System V environment (-systype sysv)
+with the BSD extensions available (-I/usr/include/bsd and -lbsd).  It was
+built with the 3.11 level C compiler.  Earlier levels can be used, but it
+is better to match what TCL is built with, which must be 2.20 or higher
+(see the porting notes with TCL for the details).
+
+To make the configure script find the BSD extensions, I set environment
+variable DEFS to "-I/usr/include/bsd -non_shared" and LIBS to "-lbsd"
+before running it.
+
+See the Tcl porting notes for comments on why "-non_shared" is needed
+during the configuration step.  It was removed from AC_FLAGS before
+building.
+
+-------------------------------------------------
+Pyramid, OSx 5.1a (UCB universe, GCC installed):
+-------------------------------------------------
+
+Instead of typing "./configure" to configure, type
+
+    DEFS="-I/usr/include/X11/attinc" ./configure
+
+to sh to do the configuration.
+
+-------------------------------------------------
+NextSTEP 3.1:
+-------------------------------------------------
+
+1. Run configure with predefined CPP:
+	CPP='cc -E' ./configure
+   (If your shell is [t]csh, do a "setenv CPP 'cc -E'")
+
+2. Edit Makefile: 
+  -add the following to AC_FLAGS:
+	-Dstrtod=tcl_strtod
+
+Note: Tk's raise test may fail when running the tvtwm window manager.
+Changing to either twm or even better fvwm ensures that this test will
+succeed. 
+
+-------------------------------------------------
+Encore 91, UMAX V 3.0.9.3:
+-------------------------------------------------
+
+1. Modify the CFLAGS definition in Makefile to include -DENCORE:
+
+    CFLAGS = -O -DENCORE
+
+2. "mkdir" does not by default create the parent directories.  The mkdir
+directives should be modified to "midir -p".
+
+3. An error of a redeclaration of read, can be resolved by conditionally
+not compiling if an ENCORE system.
+
+#ifndef ENCORE
+extern int              read _ANSI_ARGS_((int fd, char *buf, size_t size));
+#endif
+
+-------------------------------------------------
+Sequent machines running Dynix:
+Contact: Andrew Swan (aswan@soda.berkeley.edu)
+-------------------------------------------------
+
+1. Use gcc instead of the cc distributed by Sequent
+
+2. There are problems with the distributed version of
+   <stddef.h>.  The easiest solution is probably to create a
+   copy of stddef.h, make sure it comes early in the include
+   path and then edit it as need be to eliminate conflicts
+   with the X11 header files.
+
+3. The same comments about the tanh function from the notes on
+   porting Tcl apply to Tk.
+
+-------------------------------------------------
+Systems running Interactive 4.0:
+-------------------------------------------------
+
+1. Add "-posix" to CFLAGS in Makefile (or Makefile.in).
+
+2. Add "-lnsl_s" to LIBS in Makefile (or Makefile.in).
diff --git a/Tk/unix/Makefile.in b/Tk/unix/Makefile.in
new file mode 100644
index 0000000..1571526
--- /dev/null
+++ b/Tk/unix/Makefile.in
@@ -0,0 +1,756 @@
+#
+# This file is a Makefile for Tk.  If it has the name "Makefile.in"
+# then it is a template for a Makefile;  to generate the actual Makefile,
+# run "./configure", which is a configuration script generated by the
+# "autoconf" program (constructs like "@foo@" will get replaced in the
+# actual Makefile.
+#
+# @(#) Makefile.in 1.59 95/10/04 14:25:21
+
+# Current Tk version;  used in various names.
+
+include ../../config.make
+
+VERSION 	= 4.1
+
+
+#----------------------------------------------------------------
+# Things you can change to personalize the Makefile for your own
+# site (you can make these changes in either Makefile.in or
+# Makefile, but changes to Makefile will get lost if you re-run
+# the configuration script).
+#----------------------------------------------------------------
+
+# Default top-level directories in which to install architecture-
+# specific files (exec_prefix) and machine-independent files such
+# as scripts (prefix).  The values specified here may be overridden
+# at configure-time with the --exec-prefix and --prefix options
+# to the "configure" script.
+
+prefix =		@prefix@
+exec_prefix =		@exec_prefix@
+
+# The following definition can be set to non-null for special systems
+# like AFS with replication.  It allows the pathnames used for installation
+# to be different than those used for actually reference files at
+# run-time.  INSTALL_ROOT is prepended to $prefix and $exec_prefix
+# when installing files.
+INSTALL_ROOT =
+
+# Directory from which applications will reference the library of Tcl
+# scripts (note: you can set the TK_LIBRARY environment variable at
+# run-time to override the compiled-in location):
+TK_LIBRARY =		$(prefix)/lib/tk$(VERSION)
+
+# Path name to use when installing library scripts:
+SCRIPT_INSTALL_DIR =	$(INSTALL_ROOT)$(TK_LIBRARY)
+
+# Directory in which to install the archive libtk.a:
+LIB_INSTALL_DIR =	$(INSTALL_ROOT)$(exec_prefix)/lib
+
+# Directory in which to install the program wish:
+BIN_INSTALL_DIR =	$(INSTALL_ROOT)$(exec_prefix)/bin
+
+# Directory from which the program wish should be referenced by scripts:
+BIN_DIR =		$(exec_prefix)/bin
+
+# Directory in which to install the include file tk.h:
+INCLUDE_INSTALL_DIR =	$(INSTALL_ROOT)$(prefix)/include
+
+# Top-level directory for manual entries:
+MAN_INSTALL_DIR =	$(INSTALL_ROOT)$(prefix)/man
+
+# Directory in which to install manual entry for wish:
+MAN1_INSTALL_DIR =	$(MAN_INSTALL_DIR)/man1
+
+# Directory in which to install manual entries for Tk's C library
+# procedures:
+MAN3_INSTALL_DIR =	$(MAN_INSTALL_DIR)/man3
+
+# Directory in which to install manual entries for the built-in
+# Tcl commands implemented by Tk:
+MANN_INSTALL_DIR =	$(MAN_INSTALL_DIR)/mann
+
+# A "-I" switch that can be used when compiling to make all of the
+# X11 include files accessible (the configure script will try to
+# set this value, and will cause it to be an empty string if the
+# include files are accessible via /usr/include).
+X11_INCLUDES =		@XINCLUDES@
+
+# Linker switch(es) to use to link with the X11 library archive (the
+# configure script will try to set this value automatically, but you
+# can override it).
+X11_LIB_SWITCHES =	@XLIBSW@
+
+# Libraries to use when linking:  must include at least Tk, Tcl, Xlib,
+# and the math library (in that order).  The "LIBS" part will be
+# replaced (or has already been replaced) with relevant libraries as
+# determined by the configure script.
+LIBS = libtk.a $(TCL_BIN_DIR)/libtcl.a $(X11_LIB_SWITCHES) $(DL_LIBS) @LIBS@ @MATH_LIBS@ 
+
+# To change the compiler switches, for example to change from -O
+# to -g, change the following line:
+CFLAGS = -O
+
+# To turn off the security checks that disallow incoming sends when
+# the X server appears to be insecure, reverse the comments on the
+# following lines:
+SECURITY_FLAGS =
+#SECURITY_FLAGS = -DTK_NO_SECURITY
+
+# To disable ANSI-C procedure prototypes reverse the comment characters
+# on the following lines:
+PROTO_FLAGS =
+#PROTO_FLAGS = -DNO_PROTOTYPE
+
+# To enable memory debugging reverse the comment characters on the following
+# lines.  Warning:  if you enable memory debugging, you must do it
+# *everywhere*, including all the code that calls Tcl, and you must use
+# ckalloc and ckfree everywhere instead of malloc and free.
+MEM_DEBUG_FLAGS =
+#MEM_DEBUG_FLAGS = -DTCL_MEM_DEBUG
+
+# If your X server is X11R4 or earlier, then you may wish to reverse
+# the comment characters on the following two lines.  This will enable
+# extra code to speed up XStringToKeysym.  In X11R5 and later releases
+# XStringToKeysym is plenty fast, so you needn't define REDO_KEYSYM_LOOKUP.
+KEYSYM_FLAGS =
+#KEYSYM_FLAGS = -DREDO_KEYSYM_LOOKUP
+
+# Some versions of make, like SGI's, use the following variable to
+# determine which shell to use for executing commands:
+SHELL =		/bin/sh
+
+# Tk used to let the configure script choose which program to use
+# for installing, but there are just too many different versions of
+# "install" around;  better to use the install-sh script that comes
+# with the distribution, which is slower but guaranteed to work.
+
+INSTALL = @srcdir@/install-sh -c
+
+#----------------------------------------------------------------
+# The symbols below provide support for dynamic loading and shared
+# libraries.  The values of the symbols are normally set by the
+# configure script.  You shouldn't normally need to modify any of
+# these definitions by hand.  However, you can reverse the comments
+# on the pairs of lines to force "no dynamic loading or shared
+# libraries".
+#----------------------------------------------------------------
+
+# Flags to pass to cc when compiling the components of a shared
+# library:
+SHLIB_CFLAGS = @SHLIB_CFLAGS@
+#SHLIB_CFLAGS =
+
+# Base command to use for combining object files into a shared
+# library:
+SHLIB_LD = @SHLIB_LD@
+
+# Suffix to use for the name of the shared library.  An empty string
+# means we don't know how to use shared libraries on this platform.
+SHLIB_SUFFIX = @SHLIB_SUFFIX@
+#SHLIB_SUFFIX = .a
+
+# Library file(s) to include in tclsh and other base applications
+# in order to provide facilities needed by DLOBJ above.
+DL_LIBS = @DL_LIBS@
+#DL_LIBS =
+
+# Flags to pass to the compiler when linking object files into
+# an executable wish or tktest binary.
+LD_FLAGS = @LD_FLAGS@
+#LD_FLAGS =
+
+#----------------------------------------------------------------
+# The information below is modified by the configure script when
+# Makefile is generated from Makefile.in.  You shouldn't normally
+# modify any of this stuff by hand.
+#----------------------------------------------------------------
+
+AC_FLAGS =		@DEFS@
+INSTALL_PROGRAM =	@INSTALL_PROGRAM@
+INSTALL_DATA =		@INSTALL_DATA@
+RANLIB =		@RANLIB@
+SRC_DIR =		@srcdir@/..
+TOP_DIR =		@srcdir@/..
+GENERIC_DIR =		$(TOP_DIR)/generic
+UNIX_DIR = 		@srcdir@
+BMAP_DIR =		$(TOP_DIR)/bitmaps
+VPATH =			@srcdir@/..
+
+#----------------------------------------------------------------
+# The information below should be usable as is.  The configure
+# script won't modify it and you shouldn't need to modify it
+# either.
+#----------------------------------------------------------------
+
+
+CC =		@CC@
+CC_SWITCHES =	$(STKCFLAGS) $(DFLGS) $(ALLOC) ${CFLAGS} -I${UNIX_DIR} \
+		-I${GENERIC_DIR} \
+		-I../../Tcl -I../../Src -I${BMAP_DIR} ${X11_INCLUDES} \
+		${AC_FLAGS} ${PROTO_FLAGS} ${SECURITY_FLAGS} ${MEM_DEBUG_FLAGS} \
+		${KEYSYM_FLAGS}
+
+WISH_OBJS = tkAppInit.o
+
+TKTEST_OBJS = tkTestInit.o tkTest.o tkSquare.o
+
+WIDGOBJS = tkButton.o tkEntry.o tkFrame.o tkListbox.o \
+	tkMenu.o tkMenubutton.o tkMessage.o tkScale.o \
+	tkScrollbar.o
+
+CANVOBJS = tkCanvas.o tkCanvArc.o tkCanvBmap.o tkCanvImg.o \
+	tkCanvLine.o tkCanvPoly.o tkCanvPs.o tkCanvText.o \
+	tkCanvUtil.o tkCanvWind.o tkRectOval.o tkTrig.o
+
+IMAGEOBJS = tkImage.o tkImgBmap.o tkImgGIF.o tkImgPPM.o tkImgPhoto.o
+
+TEXTOBJS = tkText.o tkTextBTree.o tkTextDisp.o tkTextIndex.o \
+	tkTextMark.o tkTextTag.o tkTextWind.o
+
+WINOBJS = tkWin32Dll.o tkWinClipboard.o tkWinColor.o tkWinCursor.o \
+	  tkWinDraw.o tkWinFont.o tkWinImage.o tkWinInit.o \
+	  tkWinKey.o tkWinNotify.o tkWinPixmap.o tkWinPointer.o \
+	  tkWinRegion.o tkWinWindow.o tkWinWm.o tkWinX.o
+
+UNIXOBJS = tkUnix.o tkUnixCursor.o tkUnixDraw.o tkUnixEvent.o \
+	tkUnixInit.o tkUnixSelect.o tkUnixWm.o tkUnixXId.o
+
+OBJS =  \
+	tk3d.o tkArgv.o tkAtom.o tkBind.o tkBitmap.o tkClipboard.o tkCmds.o \
+	tkColor.o tkConfig.o tkCursor.o tkError.o tkEvent.o \
+	tkFocus.o tkFont.o tkGet.o tkGC.o tkGeometry.o tkGrab.o tkGrid.o \
+	tkOption.o tkPack.o tkPlace.o \
+	tkSelect.o tkSend.o tkUtil.o tkVisual.o \
+	tkWindow.o  \
+	$(WIDGOBJS) $(CANVOBJS) $(IMAGEOBJS) $(TEXTOBJS) $(UNIXOBJS)
+
+SRCS = \
+	$(GENERIC_DIR)/tk3d.c $(GENERIC_DIR)/tkArgv.c \
+	$(GENERIC_DIR)/tkAtom.c $(GENERIC_DIR)/tkBind.c	\
+	$(GENERIC_DIR)/tkBitmap.c $(GENERIC_DIR)/tkClipboard.c \
+	$(GENERIC_DIR)/tkCmds.c $(GENERIC_DIR)/tkColor.c \
+	$(GENERIC_DIR)/tkConfig.c $(GENERIC_DIR)/tkCursor.c \
+	$(GENERIC_DIR)/tkError.c $(GENERIC_DIR)/tkEvent.c \
+	$(GENERIC_DIR)/tkFocus.c $(GENERIC_DIR)/tkFont.c \
+	$(GENERIC_DIR)/tkGet.c $(GENERIC_DIR)/tkGC.c \
+	$(GENERIC_DIR)/tkGeometry.c $(GENERIC_DIR)/tkGrab.c \
+	$(GENERIC_DIR)/tkGrid.c \
+	$(GENERIC_DIR)/tkMain.c $(GENERIC_DIR)/tkOption.c \
+	$(GENERIC_DIR)/tkPack.c $(GENERIC_DIR)/tkPlace.c \
+	$(GENERIC_DIR)/tkSelect.c \
+	$(GENERIC_DIR)/tkSend.c $(GENERIC_DIR)/tkUtil.c \
+	$(GENERIC_DIR)/tkVisual.c $(GENERIC_DIR)/tkWindow.c \
+	$(GENERIC_DIR)/tkButton.c \
+	$(GENERIC_DIR)/tkEntry.c $(GENERIC_DIR)/tkFrame.c \
+	$(GENERIC_DIR)/tkListbox.c $(GENERIC_DIR)/tkMenu.c \
+	$(GENERIC_DIR)/tkMenubutton.c $(GENERIC_DIR)/tkMessage.c \
+	$(GENERIC_DIR)/tkScale.c $(GENERIC_DIR)/tkScrollbar.c \
+	$(GENERIC_DIR)/tkCanvas.c $(GENERIC_DIR)/tkCanvArc.c \
+	$(GENERIC_DIR)/tkCanvBmap.c $(GENERIC_DIR)/tkCanvImg.c \
+	$(GENERIC_DIR)/tkCanvLine.c $(GENERIC_DIR)/tkCanvPoly.c \
+	$(GENERIC_DIR)/tkCanvPs.c $(GENERIC_DIR)/tkCanvText.c \
+	$(GENERIC_DIR)/tkCanvUtil.c \
+	$(GENERIC_DIR)/tkCanvWind.c $(GENERIC_DIR)/tkRectOval.c \
+	$(GENERIC_DIR)/tkTrig.c $(GENERIC_DIR)/tkImage.c \
+	$(GENERIC_DIR)/tkImgBmap.c $(GENERIC_DIR)/tkImgGIF.c \
+	$(GENERIC_DIR)/tkImgPPM.c \
+	$(GENERIC_DIR)/tkImgPhoto.c $(GENERIC_DIR)/tkText.c \
+	$(GENERIC_DIR)/tkTextBTree.c $(GENERIC_DIR)/tkTextDisp.c \
+	$(GENERIC_DIR)/tkTextIndex.c $(GENERIC_DIR)/tkTextMark.c \
+	$(GENERIC_DIR)/tkTextTag.c $(GENERIC_DIR)/tkTextWind.c \
+	$(GENERIC_DIR)/tkSquare.c $(GENERIC_DIR)/tkTest.c \
+	$(UNIX_DIR)/tkAppInit.c $(UNIX_DIR)/tkUnix.c \
+	$(UNIX_DIR)/tkUnixCursor.c $(UNIX_DIR)/tkUnixDraw.c \
+	$(UNIX_DIR)/tkUnixEvent.c $(UNIX_DIR)/tkUnixInit.c \
+	$(UNIX_DIR)/tkUnixSelect.c $(UNIX_DIR)/tkUnixWm.c \
+	$(UNIX_DIR)/tkUnixXId.c
+
+HDRS = bltList.h \
+	default.h ks_names.h patchlevel.h tk.h tkCanvas.h tkInt.h  \
+	tkPort.h tkText.h
+
+DEMOPROGS = browse hello ixset rmt rolodex square tcolor timer widget
+
+all: libtk.a
+
+libtk.a: $(OBJS)
+	rm -f libtk.a
+	ar cr libtk.a $(OBJS)
+	$(RANLIB) libtk.a
+
+tktest: $(TKTEST_OBJS) libtk.a $(TCL_BIN_DIR)/libtcl.a
+	${CC} ${LD_FLAGS} $(TKTEST_OBJS) $(LIBS) -o tktest
+
+test: tktest
+	@cwd=`pwd`; \
+	cd $(TCLDIR); TCL_LIBRARY=`pwd`/../library; export TCL_LIBRARY; \
+	cd $$cwd; cd $(TOP_DIR); TK_LIBRARY=`pwd`/library; export TK_LIBRARY; \
+	cd $$cwd; ( echo cd $(TOP_DIR)/tests\; source all\; exit ) | ./tktest
+
+configInfo: Makefile
+	@rm -f configInfo
+	@echo "# Definitions and libraries needed to build Tk applications" >> configInfo
+	@echo "# (generated by the configure script):" >> configInfo
+	@echo "TK_CC_SWITCHES = ${AC_FLAGS} ${MEM_DEBUG_FLAGS}" >> configInfo
+	@echo "TK_X11_INCLUDES = ${X11_INCLUDES}" >> configInfo
+	@echo "TK_LIBS = ${X11_LIB_SWITCHES} @LIBS@" >> configInfo
+
+install: all
+
+install.libs:
+	-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi 
+	$(CP) libtk.a $(execdir)
+	$(RANLIB) $(execdir)/libtk.a
+	-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
+	$(CP) ../generic/tk.h ../generic/tkInt.h $(incdir)
+
+install-binaries: libtk.a wish
+	@for i in $(LIB_INSTALL_DIR) $(BIN_INSTALL_DIR) ; \
+	    do \
+	    if [ ! -d $$i ] ; then \
+		echo "Making directory $$i"; \
+		mkdir $$i; \
+		chmod 755 $$i; \
+		else true; \
+		fi; \
+	    done;
+	@echo "Installing libtk.a"
+	@$(INSTALL_DATA) libtk.a $(LIB_INSTALL_DIR)/libtk$(VERSION).a
+	@$(RANLIB) $(LIB_INSTALL_DIR)/libtk$(VERSION).a
+	@echo "Installing wish"
+	@$(INSTALL_PROGRAM) wish $(BIN_INSTALL_DIR)/wish$(VERSION)
+
+install-libraries:
+	@for i in $(INSTALL_ROOT)$(prefix)/lib $(INCLUDE_INSTALL_DIR) \
+		$(SCRIPT_INSTALL_DIR) ; \
+	    do \
+	    if [ ! -d $$i ] ; then \
+		echo "Making directory $$i"; \
+		mkdir $$i; \
+		chmod 755 $$i; \
+		else true; \
+		fi; \
+	    done;
+	@echo "Installing tk.h"
+	@$(INSTALL_DATA) $(GENERIC_DIR)/tk.h $(INCLUDE_INSTALL_DIR)
+	for i in $(SRC_DIR)/library/*.tcl $(SRC_DIR)/library/tclIndex $(SRC_DIR)/library/prolog.ps $(UNIX_DIR)/tkAppInit.c; \
+	    do \
+	    echo "Installing $$i"; \
+	    $(INSTALL_DATA) $$i $(SCRIPT_INSTALL_DIR); \
+	    done;
+
+install-demos:
+	@for i in $(INSTALL_ROOT)$(prefix)/lib $(SCRIPT_INSTALL_DIR) \
+		$(SCRIPT_INSTALL_DIR)/demos \
+		$(SCRIPT_INSTALL_DIR)/demos/images ; \
+	    do \
+	    if [ ! -d $$i ] ; then \
+		echo "Making directory $$i"; \
+		mkdir $$i; \
+		chmod 755 $$i; \
+		else true; \
+		fi; \
+	    done;
+	@for i in $(SRC_DIR)/library/demos/*; \
+	    do \
+	    if [ -f $$i ] ; then \
+		echo "Installing $$i"; \
+		sed -e '3 s|exec wish|exec wish$(VERSION)|' \
+			$$i > $(SCRIPT_INSTALL_DIR)/demos/`basename $$i`; \
+	    fi; \
+	    done;
+	@for i in $(DEMOPROGS); \
+	    do \
+	    chmod 755 $(SCRIPT_INSTALL_DIR)/demos/$$i; \
+	    done;
+	@for i in $(SRC_DIR)/library/demos/images/*; \
+	    do \
+	    if [ -f $$i ] ; then \
+		echo "Installing $$i"; \
+		$(INSTALL_DATA) $$i $(SCRIPT_INSTALL_DIR)/demos/images; \
+		fi; \
+	    done;
+
+install-man:
+	@for i in $(MAN_INSTALL_DIR) $(MAN1_INSTALL_DIR) $(MAN3_INSTALL_DIR) $(MANN_INSTALL_DIR) ; \
+	    do \
+	    if [ ! -d $$i ] ; then \
+		echo "Making directory $$i"; \
+		mkdir $$i; \
+		chmod 755 $$i; \
+		else true; \
+		fi; \
+	    done;
+	@cd $(SRC_DIR)/doc; for i in *.1; \
+	    do \
+	    echo "Installing doc/$$i"; \
+	    rm -f $(MAN1_INSTALL_DIR)/$$i; \
+	    sed -e '/man\.macros/r man.macros' -e '/man\.macros/d' \
+		    $$i > $(MAN1_INSTALL_DIR)/$$i; \
+	    chmod 444 $(MAN1_INSTALL_DIR)/$$i; \
+	    done;
+	$(UNIX_DIR)/mkLinks $(MAN1_INSTALL_DIR)
+	@cd $(SRC_DIR)/doc; for i in *.3; \
+	    do \
+	    echo "Installing doc/$$i"; \
+	    rm -f $(MAN3_INSTALL_DIR)/$$i; \
+	    sed -e '/man\.macros/r man.macros' -e '/man\.macros/d' \
+		    $$i > $(MAN3_INSTALL_DIR)/$$i; \
+	    chmod 444 $(MAN3_INSTALL_DIR)/$$i; \
+	    done;
+	$(UNIX_DIR)/mkLinks $(MAN3_INSTALL_DIR)
+	@cd $(SRC_DIR)/doc; for i in *.n; \
+	    do \
+	    echo "Installing doc/$$i"; \
+	    rm -f $(MANN_INSTALL_DIR)/$$i; \
+	    sed -e '/man\.macros/r man.macros' -e '/man\.macros/d' \
+		    $$i > $(MANN_INSTALL_DIR)/$$i; \
+	    chmod 444 $(MANN_INSTALL_DIR)/$$i; \
+	    done;
+	$(UNIX_DIR)/mkLinks $(MANN_INSTALL_DIR)
+
+Makefile: $(UNIX_DIR)/Makefile.in
+	$(SHELL) config.status
+
+clean:
+	rm -f *.a *.o core errs *~ \#* TAGS *.E a.out Makefile config.cache \
+		config.log config.info config.status
+
+distclean: clean
+	rm -f Makefile config.status config.cache
+
+depend:
+	makedepend -- $(CC_SWITCHES) -- $(SRCS)
+
+# Test binaries.  The rule for tkTestInit.o is complicated because
+# it is is compiled from tkAppInit.c.  Can't use the "-o" option
+# because this doesn't work on some strange compilers (e.g. UnixWare).
+# So, make a link insted.
+
+tkTestInit.o: tkAppInit.c
+	rm -f tkTestInit.c
+	ln $(UNIX_DIR)/tkAppInit.c tkTestInit.c
+	$(CC) -c $(CC_SWITCHES) -DTK_TEST tkTestInit.c
+	rm -f tkTestInit.c
+
+tk3d.o: $(GENERIC_DIR)/tk3d.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tk3d.c
+
+tkAppInit.o: $(UNIX_DIR)/tkAppInit.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkAppInit.c
+
+tkArgv.o: $(GENERIC_DIR)/tkArgv.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkArgv.c
+
+tkAtom.o: $(GENERIC_DIR)/tkAtom.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkAtom.c
+
+tkBind.o: $(GENERIC_DIR)/tkBind.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkBind.c
+
+tkBitmap.o: $(GENERIC_DIR)/tkBitmap.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkBitmap.c
+
+tkClipboard.o: $(GENERIC_DIR)/tkClipboard.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkClipboard.c
+
+tkCmds.o: $(GENERIC_DIR)/tkCmds.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCmds.c
+
+tkColor.o: $(GENERIC_DIR)/tkColor.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkColor.c
+
+tkConfig.o: $(GENERIC_DIR)/tkConfig.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkConfig.c
+
+tkCursor.o: $(GENERIC_DIR)/tkCursor.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCursor.c
+
+tkError.o: $(GENERIC_DIR)/tkError.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkError.c
+
+tkEvent.o: $(GENERIC_DIR)/tkEvent.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkEvent.c
+
+tkFocus.o: $(GENERIC_DIR)/tkFocus.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkFocus.c
+
+tkFont.o: $(GENERIC_DIR)/tkFont.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkFont.c
+
+tkGet.o: $(GENERIC_DIR)/tkGet.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkGet.c
+
+tkGC.o: $(GENERIC_DIR)/tkGC.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkGC.c
+
+tkGeometry.o: $(GENERIC_DIR)/tkGeometry.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkGeometry.c
+
+tkGrab.o: $(GENERIC_DIR)/tkGrab.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkGrab.c
+
+tkGrid.o: $(GENERIC_DIR)/tkGrid.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkGrid.c
+
+tkMain.o: $(GENERIC_DIR)/tkMain.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkMain.c
+
+tkOption.o: $(GENERIC_DIR)/tkOption.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkOption.c
+
+tkPack.o: $(GENERIC_DIR)/tkPack.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkPack.c
+
+tkPlace.o: $(GENERIC_DIR)/tkPlace.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkPlace.c
+
+tkSelect.o: $(GENERIC_DIR)/tkSelect.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkSelect.c
+
+tkSend.o: $(GENERIC_DIR)/tkSend.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkSend.c
+
+tkUtil.o: $(GENERIC_DIR)/tkUtil.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkUtil.c
+
+tkVisual.o: $(GENERIC_DIR)/tkVisual.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkVisual.c
+
+tkWindow.o: $(GENERIC_DIR)/tkWindow.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkWindow.c
+
+tkButton.o: $(GENERIC_DIR)/tkButton.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkButton.c
+
+tkEntry.o: $(GENERIC_DIR)/tkEntry.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkEntry.c
+
+tkFrame.o: $(GENERIC_DIR)/tkFrame.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkFrame.c
+
+tkListbox.o: $(GENERIC_DIR)/tkListbox.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkListbox.c
+
+tkMenu.o: $(GENERIC_DIR)/tkMenu.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkMenu.c
+
+tkMenubutton.o: $(GENERIC_DIR)/tkMenubutton.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkMenubutton.c
+
+tkMessage.o: $(GENERIC_DIR)/tkMessage.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkMessage.c
+
+tkScale.o: $(GENERIC_DIR)/tkScale.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkScale.c
+
+tkScrollbar.o: $(GENERIC_DIR)/tkScrollbar.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkScrollbar.c
+
+tkSquare.o: $(GENERIC_DIR)/tkSquare.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkSquare.c
+
+tkCanvas.o: $(GENERIC_DIR)/tkCanvas.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvas.c
+
+tkCanvArc.o: $(GENERIC_DIR)/tkCanvArc.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvArc.c
+
+tkCanvBmap.o: $(GENERIC_DIR)/tkCanvBmap.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvBmap.c
+
+tkCanvImg.o: $(GENERIC_DIR)/tkCanvImg.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvImg.c
+
+tkCanvLine.o: $(GENERIC_DIR)/tkCanvLine.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvLine.c
+
+tkCanvPoly.o: $(GENERIC_DIR)/tkCanvPoly.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvPoly.c
+
+tkCanvPs.o: $(GENERIC_DIR)/tkCanvPs.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvPs.c
+
+tkCanvText.o: $(GENERIC_DIR)/tkCanvText.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvText.c
+
+tkCanvUtil.o: $(GENERIC_DIR)/tkCanvUtil.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvUtil.c
+
+tkCanvWind.o: $(GENERIC_DIR)/tkCanvWind.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkCanvWind.c
+
+tkRectOval.o: $(GENERIC_DIR)/tkRectOval.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkRectOval.c
+
+tkTrig.o: $(GENERIC_DIR)/tkTrig.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTrig.c
+
+tkImage.o: $(GENERIC_DIR)/tkImage.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkImage.c
+
+tkImgBmap.o: $(GENERIC_DIR)/tkImgBmap.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkImgBmap.c
+
+tkImgGIF.o: $(GENERIC_DIR)/tkImgGIF.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkImgGIF.c
+
+tkImgPPM.o: $(GENERIC_DIR)/tkImgPPM.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkImgPPM.c
+
+tkImgPhoto.o: $(GENERIC_DIR)/tkImgPhoto.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkImgPhoto.c
+
+tkTest.o: $(GENERIC_DIR)/tkTest.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTest.c
+
+tkText.o: $(GENERIC_DIR)/tkText.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkText.c
+
+tkTextBTree.o: $(GENERIC_DIR)/tkTextBTree.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextBTree.c
+
+tkTextDisp.o: $(GENERIC_DIR)/tkTextDisp.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextDisp.c
+
+tkTextIndex.o: $(GENERIC_DIR)/tkTextIndex.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextIndex.c
+
+tkTextMark.o: $(GENERIC_DIR)/tkTextMark.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextMark.c
+
+tkTextTag.o: $(GENERIC_DIR)/tkTextTag.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextTag.c
+
+tkTextWind.o: $(GENERIC_DIR)/tkTextWind.c
+	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkTextWind.c
+
+tkUnix.o: $(UNIX_DIR)/tkUnix.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnix.c
+
+tkUnixCursor.o: $(UNIX_DIR)/tkUnixCursor.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixCursor.c
+
+tkUnixDraw.o: $(UNIX_DIR)/tkUnixDraw.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixDraw.c
+
+tkUnixEvent.o: $(UNIX_DIR)/tkUnixEvent.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixEvent.c
+
+tkUnixInit.o: $(UNIX_DIR)/tkUnixInit.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixInit.c
+
+tkUnixNotify.o: $(UNIX_DIR)/tkUnixNotify.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixNotify.c
+
+tkUnixSelect.o: $(UNIX_DIR)/tkUnixSelect.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixSelect.c
+
+tkUnixWm.o: $(UNIX_DIR)/tkUnixWm.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixWm.c
+
+tkUnixXId.o: $(UNIX_DIR)/tkUnixXId.c
+	$(CC) -c $(CC_SWITCHES) $(UNIX_DIR)/tkUnixXId.c
+
+.c.o:
+	$(CC) -c $(CC_SWITCHES) $<
+
+#
+# Target to check for proper usage of UCHAR macro.
+#
+
+checkuchar:
+	-egrep isalnum\|isalpha\|iscntrl\|isdigit\|islower\|isprint\|ispunct\|isspace\|isupper\|isxdigit\|toupper\|tolower $(SRCS) | grep -v UCHAR
+
+#
+# Target to make sure that only symbols with "Tk" prefixes are
+# exported.
+#
+
+checkexports: libtk.a
+	-nm -p libtk.a | awk '$$2 ~ /[TDB]/ { print $$3 }' | sort -n | grep -v '^[Tt]k'
+
+#
+# Target to create a proper Tk distribution from information in the
+# master source directory.  DISTDIR must be defined to indicate where
+# to put the distribution.  DISTDIR must be an absolute path name.
+#
+
+TCLDIR	  = ../../tcl7.5a2
+configure: configure.in
+	autoconf
+
+dist:   configure
+	rm -rf $(DISTDIR)
+	mkdir $(DISTDIR)
+	mkdir $(DISTDIR)/unix
+	cp -p $(UNIX_DIR)/*.c $(UNIX_DIR)/*.h $(DISTDIR)/unix
+	cp ../license.terms Makefile.in $(DISTDIR)/unix
+	chmod 664 $(DISTDIR)/unix/Makefile.in
+	cp configure configure.in $(TCLDIR)/unix/install-sh \
+		porting.notes porting.old README $(DISTDIR)/unix
+	chmod 775 $(DISTDIR)/unix/configure $(DISTDIR)/unix/configure.in
+	chmod +x $(DISTDIR)/unix/install-sh
+	tclsh $(TCLDIR)/unix/mkLinks.tcl ../doc/*.[13n] \
+		> $(DISTDIR)/unix/mkLinks
+	chmod +x $(DISTDIR)/unix/mkLinks
+	mkdir $(DISTDIR)/bitmaps
+	@(cd ..; for i in bitmaps/* ; do \
+	    if [ -f $$i ] ; then \
+		sed -e 's/static char/static unsigned char/' \
+		       $$i > $(DISTDIR)/$$i; \
+	    fi; \
+	done;)
+	mkdir $(DISTDIR)/generic
+	cp -p $(GENERIC_DIR)/*.c $(GENERIC_DIR)/*.h $(DISTDIR)/generic
+	cp -p $(GENERIC_DIR)/README $(DISTDIR)/generic
+	cp -p ../changes ../README ../license.terms ../ToDo $(DISTDIR)
+	rm -f $(DISTDIR)/generic/blt*.[ch]
+	mkdir $(DISTDIR)/win
+	cp -p ../win/*.c ../win/*.h ../win/*.rc ../win/*.ico $(DISTDIR)/win
+	cp -p ../win/makefile.* $(DISTDIR)/win
+	cp -p ../win/README $(DISTDIR)/win
+	cp -p ../license.terms $(DISTDIR)/win
+	mkdir $(DISTDIR)/mac
+	cp -p ../mac/*.c ../mac/*.h ../mac/*.r ../mac/*.hqx $(DISTDIR)/mac
+	cp -p ../mac/README $(DISTDIR)/mac
+	cp -p ../license.terms $(DISTDIR)/mac
+	mkdir $(DISTDIR)/compat
+	cp -p ../license.terms $(TCLDIR)/compat/unistd.h \
+		$(TCLDIR)/compat/stdlib.h $(DISTDIR)/compat
+	mkdir $(DISTDIR)/xlib
+	cp -p ../xlib/*.h ../xlib/*.c $(DISTDIR)/xlib
+	cp -p ../license.terms $(DISTDIR)/xlib
+	mkdir $(DISTDIR)/xlib/X11
+	cp -p ../xlib/X11/*.h $(DISTDIR)/xlib/X11
+	cp -p ../license.terms $(DISTDIR)/xlib/X11
+	mkdir $(DISTDIR)/library
+	cp -p ../license.terms ../library/*.tcl ../library/tclIndex \
+		../library/prolog.ps $(DISTDIR)/library
+	mkdir $(DISTDIR)/library/demos
+	cp -pr ../library/demos/*.tcl \
+		../library/demos/tclIndex ../library/demos/browse \
+		../library/demos/hello ../library/demos/ixset \
+		../library/demos/rmt ../library/demos/rolodex \
+		../library/demos/square \
+		../library/demos/tcolor ../library/demos/timer \
+		../library/demos/widget ../library/demos/README \
+		../license.terms $(DISTDIR)/library/demos
+	mkdir $(DISTDIR)/library/demos/images
+	@(cd ..; for i in library/demos/images/* ; do \
+	    if [ -f $$i ] ; then \
+		cp $$i $(DISTDIR)/$$i; \
+	    fi; \
+	done;)
+	mkdir $(DISTDIR)/doc
+	cp -p ../license.terms ../doc/*.[13n] $(TCLDIR)/doc/man.macros \
+		$(DISTDIR)/doc
+	cp /home/ouster/papers/tk4.0/tk4.0.ps $(DISTDIR)/doc
+	mkdir $(DISTDIR)/tests
+	cp -p ../license.terms ../tests/*.test ../tests/visual ../tests/*.tcl \
+		../tests/README ../tests/all ../tests/defs \
+		../tests/option.file* $(DISTDIR)/tests
+
+# DO NOT DELETE THIS LINE -- make depend depends on it.
diff --git a/Tk/unix/README b/Tk/unix/README
new file mode 100644
index 0000000..c891aa0
--- /dev/null
+++ b/Tk/unix/README
@@ -0,0 +1,125 @@
+This is the directory where you configure, compile, test, and install
+UNIX versions of Tk.  This directory also contains source files for Tk
+that are specific to UNIX.
+
+The rest of this file contains instructions on how to do this.  The
+release should compile and run either "out of the box" or with trivial
+changes on any UNIX-like system that approximates POSIX, BSD, or System
+V.  We know that it runs on workstations from Sun, H-P, DEC, IBM, and
+SGI, as well as PCs running Linux, BSDI, and SCO UNIX.  To compile for
+a PC running Windows, see the README file in the directory ../win.  To
+compile for a Macintosh, see the README file in the directory ../mac.
+
+SCCS: @(#) README 1.17 96/07/31 16:28:53
+
+How To Compile And Install Tk:
+------------------------------
+
+(a) Make sure that the Tcl 7.5 release is present in the directory
+    ../../tcl7.5.  This release of Tk will only work with Tcl 7.5.
+    Also, be sure that you have configured Tcl before you configure
+    Tk.
+
+(b) Check for patches as described in ../README.
+
+(c) If you have already compiled Tk once in this directory and are now
+    preparing to compile again in the same directory but for a different
+    platform, or if you have applied patches, type "make distclean" to
+    discard all the configuration information computed previously.
+
+(d) Type "./configure".  This runs a configuration script created by GNU
+    autoconf, which configures Tcl for your system and creates a
+    Makefile.  The configure script allows you to customize the Tcl
+    configuration for your site; for details on how you can do this,
+    type "./configure -help" or refer to the autoconf documentation (not
+    included here).  Tk's "configure" script supports the following
+    special switches in addition to the standard ones:
+	--enable-gcc		If this switch is set, Tk will configure
+				itself to use gcc if it is available on your
+				system.  Note:  it is not safe to modify the
+				Makefile to use gcc after configure is run.
+	--with-tcl=DIR		Specifies the directory containing the Tcl
+				binaries and Tcl's platform-dependent
+				configuration information.  By default
+				the Tcl directory is assumed to be in the
+				location given by (a) above.
+	--enable-shared		If this switch is specified, Tk will compile
+				itself as a shared library if it can figure
+				out how to do that on this platform.
+    Note: be sure to use only absolute path names (those starting with "/")
+    in the --prefix and --exec_prefix options.
+
+(e) Type "make".  This will create a library archive called "libtk.a"
+    or "libtk.so" and an interpreter application called "wish" that
+    allows you to type Tcl commands interactively or execute script files.
+
+(f) If the make fails then you'll have to personalize the Makefile
+    for your site or possibly modify the distribution in other ways.
+    First check the file "porting.notes" to see if there are hints
+    for compiling on your system.  Then look at the porting Web page
+    described later in this file.  If you need to modify Makefile,
+    there are comments at the beginning of it that describe the things
+    you might want to change and how to change them.
+    
+(g) Type "make install" to install Tk's binaries and script files in
+    standard places.  You'll need write permission on the installation
+    directoryies to do this.  The installation directories are
+    determined by the "configure" script and may be specified with
+    the --prefix and --exec_prefix options to "configure".  See the
+    Makefile for information on what directories were chosen; you
+    can override these choices by modifying the "prefix" and
+    "exec_prefix" variables in the Makefile.
+
+(h) At this point you can play with Tk by invoking the "wish"
+    program and typing Tcl commands.  However, if you haven't installed
+    Tk then you'll first need to set your TK_LIBRARY environment
+    variable to hold the full path name of the "library" subdirectory.
+    If you haven't installed Tcl either then you'll need to set your
+    TCL_LIBRARY environment variable as well (see the Tcl README file
+    for information on this).  Note that installed versions of wish,
+    libtk.a, libtk.so, and the Tk library have a version number in their
+    names, such as "wish4.0" or "libtk4.0.so"; to use the installed
+    versions, either specify the version number or create a symbolic
+    link (e.g. from "wish" to "wish4.0").
+
+If you have trouble compiling Tk, read through the file "porting.notes".
+It contains information that people have provided about changes they had
+to make to compile Tcl in various environments.  Or, check out the
+following Web URL:
+    http://www.sunlabs.com/cgi-bin/tcl/info.4.1
+This is an on-line database of porting information.  We make no guarantees
+that this information is accurate, complete, or up-to-date, but you may
+find it useful.  If you get Tk running on a new configuration and had to
+make non-trivial changes to do it, we'd be happy to receive new information
+to add to "porting.notes".  You can also make a new entry into the
+on-line Web database.  We're also interested in hearing how to change the
+configuration setup so that Tcl compiles on additional platforms "out of
+the box".
+
+Test suite
+----------
+
+Tk has a substantial self-test suite, consisting of a set of scripts in
+the subdirectory "tests".  To run the test suite just type "make test"
+in this directory.  You should then see a printout of the test files
+processed.  If any errors occur, you'll see a much more substantial
+printout for each error.  In order to avoid false error reports, be sure
+to run the tests with an empty resource database (e.g., remove your
+.Xdefaults file or delete any entries starting with *).  Also, don't
+try to do anything else with your display or keyboard whlie the tests
+are running, or you may get false violations.  See the README file in
+the "tests" directory for more information on the test suite.
+
+If the test suite generates errors, most likely they are due to non-
+portable tests that are interacting badly with your system configuration.
+We are gradually eliminating the non-portable tests, but this release
+includes many new tests so there will probably be some portability
+problems.  As long as the test suite doesn't core dump, it's probably
+safe to conclude that any errors represent portability problems in the
+test suite and not fundamental flaws with Tk.
+
+There are also a number of visual tests for things such as screen layout,
+Postscript generation, etc.  These tests all have to be run manually and
+the results have to be verified visually.  To run the tests, cd to the
+"tests" directory and run the script "visual".  It will present a main
+window with a bunch of menus, which you can use to select various tests.
diff --git a/Tk/unix/configure b/Tk/unix/configure
new file mode 100755
index 0000000..30c3965
--- /dev/null
+++ b/Tk/unix/configure
@@ -0,0 +1,2518 @@
+#! /bin/sh
+
+# Guess values for system-dependent variables and create Makefiles.
+# Generated automatically using autoconf version 2.7 
+# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+
+# Defaults:
+ac_help=
+ac_default_prefix=/usr/local
+# Any additions from configure.in:
+ac_help="$ac_help
+  --with-x                use the X Window System"
+
+# Initialize some variables set by options.
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+build=NONE
+cache_file=./config.cache
+exec_prefix=NONE
+host=NONE
+no_create=
+nonopt=NONE
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+target=NONE
+verbose=
+x_includes=NONE
+x_libraries=NONE
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datadir='${prefix}/share'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+libdir='${exec_prefix}/lib'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+infodir='${prefix}/info'
+mandir='${prefix}/man'
+
+# Initialize some other variables.
+subdirs=
+MFLAGS= MAKEFLAGS=
+
+ac_prev=
+for ac_option
+do
+
+  # If the previous option needs an argument, assign it.
+  if test -n "$ac_prev"; then
+    eval "$ac_prev=\$ac_option"
+    ac_prev=
+    continue
+  fi
+
+  case "$ac_option" in
+  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
+  *) ac_optarg= ;;
+  esac
+
+  # Accept the important Cygnus configure options, so we can diagnose typos.
+
+  case "$ac_option" in
+
+  -bindir | --bindir | --bindi | --bind | --bin | --bi)
+    ac_prev=bindir ;;
+  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+    bindir="$ac_optarg" ;;
+
+  -build | --build | --buil | --bui | --bu)
+    ac_prev=build ;;
+  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+    build="$ac_optarg" ;;
+
+  -cache-file | --cache-file | --cache-fil | --cache-fi \
+  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+    ac_prev=cache_file ;;
+  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+    cache_file="$ac_optarg" ;;
+
+  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
+    ac_prev=datadir ;;
+  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
+  | --da=*)
+    datadir="$ac_optarg" ;;
+
+  -disable-* | --disable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    eval "enable_${ac_feature}=no" ;;
+
+  -enable-* | --enable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "enable_${ac_feature}='$ac_optarg'" ;;
+
+  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+  | --exec | --exe | --ex)
+    ac_prev=exec_prefix ;;
+  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+  | --exec=* | --exe=* | --ex=*)
+    exec_prefix="$ac_optarg" ;;
+
+  -gas | --gas | --ga | --g)
+    # Obsolete; use --with-gas.
+    with_gas=yes ;;
+
+  -help | --help | --hel | --he)
+    # Omit some internal or obsolete options to make the list less imposing.
+    # This message is too long to be a string in the A/UX 3.1 sh.
+    cat << EOF
+Usage: configure [options] [host]
+Options: [defaults in brackets after descriptions]
+Configuration:
+  --cache-file=FILE       cache test results in FILE
+  --help                  print this message
+  --no-create             do not create output files
+  --quiet, --silent       do not print \`checking...' messages
+  --version               print the version of autoconf that created configure
+Directory and file names:
+  --prefix=PREFIX         install architecture-independent files in PREFIX
+                          [$ac_default_prefix]
+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
+                          [same as prefix]
+  --bindir=DIR            user executables in DIR [EPREFIX/bin]
+  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
+  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
+  --datadir=DIR           read-only architecture-independent data in DIR
+                          [PREFIX/share]
+  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
+  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
+                          [PREFIX/com]
+  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
+  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
+  --includedir=DIR        C header files in DIR [PREFIX/include]
+  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
+  --infodir=DIR           info documentation in DIR [PREFIX/info]
+  --mandir=DIR            man documentation in DIR [PREFIX/man]
+  --srcdir=DIR            find the sources in DIR [configure dir or ..]
+  --program-prefix=PREFIX prepend PREFIX to installed program names
+  --program-suffix=SUFFIX append SUFFIX to installed program names
+  --program-transform-name=PROGRAM
+                          run sed PROGRAM on installed program names
+EOF
+    cat << EOF
+Host type:
+  --build=BUILD           configure for building on BUILD [BUILD=HOST]
+  --host=HOST             configure for HOST [guessed]
+  --target=TARGET         configure for TARGET [TARGET=HOST]
+Features and packages:
+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
+  --x-includes=DIR        X include files are in DIR
+  --x-libraries=DIR       X library files are in DIR
+EOF
+    if test -n "$ac_help"; then
+      echo "--enable and --with options recognized:$ac_help"
+    fi
+    exit 0 ;;
+
+  -host | --host | --hos | --ho)
+    ac_prev=host ;;
+  -host=* | --host=* | --hos=* | --ho=*)
+    host="$ac_optarg" ;;
+
+  -includedir | --includedir | --includedi | --included | --include \
+  | --includ | --inclu | --incl | --inc)
+    ac_prev=includedir ;;
+  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+  | --includ=* | --inclu=* | --incl=* | --inc=*)
+    includedir="$ac_optarg" ;;
+
+  -infodir | --infodir | --infodi | --infod | --info | --inf)
+    ac_prev=infodir ;;
+  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+    infodir="$ac_optarg" ;;
+
+  -libdir | --libdir | --libdi | --libd)
+    ac_prev=libdir ;;
+  -libdir=* | --libdir=* | --libdi=* | --libd=*)
+    libdir="$ac_optarg" ;;
+
+  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+  | --libexe | --libex | --libe)
+    ac_prev=libexecdir ;;
+  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+  | --libexe=* | --libex=* | --libe=*)
+    libexecdir="$ac_optarg" ;;
+
+  -localstatedir | --localstatedir | --localstatedi | --localstated \
+  | --localstate | --localstat | --localsta | --localst \
+  | --locals | --local | --loca | --loc | --lo)
+    ac_prev=localstatedir ;;
+  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
+  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
+    localstatedir="$ac_optarg" ;;
+
+  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+    ac_prev=mandir ;;
+  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+    mandir="$ac_optarg" ;;
+
+  -nfp | --nfp | --nf)
+    # Obsolete; use --without-fp.
+    with_fp=no ;;
+
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c)
+    no_create=yes ;;
+
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+    no_recursion=yes ;;
+
+  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+  | --oldin | --oldi | --old | --ol | --o)
+    ac_prev=oldincludedir ;;
+  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+    oldincludedir="$ac_optarg" ;;
+
+  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+    ac_prev=prefix ;;
+  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+    prefix="$ac_optarg" ;;
+
+  -program-prefix | --program-prefix | --program-prefi | --program-pref \
+  | --program-pre | --program-pr | --program-p)
+    ac_prev=program_prefix ;;
+  -program-prefix=* | --program-prefix=* | --program-prefi=* \
+  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+    program_prefix="$ac_optarg" ;;
+
+  -program-suffix | --program-suffix | --program-suffi | --program-suff \
+  | --program-suf | --program-su | --program-s)
+    ac_prev=program_suffix ;;
+  -program-suffix=* | --program-suffix=* | --program-suffi=* \
+  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+    program_suffix="$ac_optarg" ;;
+
+  -program-transform-name | --program-transform-name \
+  | --program-transform-nam | --program-transform-na \
+  | --program-transform-n | --program-transform- \
+  | --program-transform | --program-transfor \
+  | --program-transfo | --program-transf \
+  | --program-trans | --program-tran \
+  | --progr-tra | --program-tr | --program-t)
+    ac_prev=program_transform_name ;;
+  -program-transform-name=* | --program-transform-name=* \
+  | --program-transform-nam=* | --program-transform-na=* \
+  | --program-transform-n=* | --program-transform-=* \
+  | --program-transform=* | --program-transfor=* \
+  | --program-transfo=* | --program-transf=* \
+  | --program-trans=* | --program-tran=* \
+  | --progr-tra=* | --program-tr=* | --program-t=*)
+    program_transform_name="$ac_optarg" ;;
+
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil)
+    silent=yes ;;
+
+  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+    ac_prev=sbindir ;;
+  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+  | --sbi=* | --sb=*)
+    sbindir="$ac_optarg" ;;
+
+  -sharedstatedir | --sharedstatedir | --sharedstatedi \
+  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+  | --sharedst | --shareds | --shared | --share | --shar \
+  | --sha | --sh)
+    ac_prev=sharedstatedir ;;
+  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+  | --sha=* | --sh=*)
+    sharedstatedir="$ac_optarg" ;;
+
+  -site | --site | --sit)
+    ac_prev=site ;;
+  -site=* | --site=* | --sit=*)
+    site="$ac_optarg" ;;
+
+  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+    ac_prev=srcdir ;;
+  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+    srcdir="$ac_optarg" ;;
+
+  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+  | --syscon | --sysco | --sysc | --sys | --sy)
+    ac_prev=sysconfdir ;;
+  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+    sysconfdir="$ac_optarg" ;;
+
+  -target | --target | --targe | --targ | --tar | --ta | --t)
+    ac_prev=target ;;
+  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+    target="$ac_optarg" ;;
+
+  -v | -verbose | --verbose | --verbos | --verbo | --verb)
+    verbose=yes ;;
+
+  -version | --version | --versio | --versi | --vers)
+    echo "configure generated by autoconf version 2.7"
+    exit 0 ;;
+
+  -with-* | --with-*)
+    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "with_${ac_package}='$ac_optarg'" ;;
+
+  -without-* | --without-*)
+    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    eval "with_${ac_package}=no" ;;
+
+  --x)
+    # Obsolete; use --with-x.
+    with_x=yes ;;
+
+  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+  | --x-incl | --x-inc | --x-in | --x-i)
+    ac_prev=x_includes ;;
+  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+    x_includes="$ac_optarg" ;;
+
+  -x-libraries | --x-libraries | --x-librarie | --x-librari \
+  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+    ac_prev=x_libraries ;;
+  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+    x_libraries="$ac_optarg" ;;
+
+  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
+    ;;
+
+  *)
+    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
+      echo "configure: warning: $ac_option: invalid host type" 1>&2
+    fi
+    if test "x$nonopt" != xNONE; then
+      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
+    fi
+    nonopt="$ac_option"
+    ;;
+
+  esac
+done
+
+if test -n "$ac_prev"; then
+  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
+fi
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+# File descriptor usage:
+# 0 standard input
+# 1 file creation
+# 2 errors and warnings
+# 3 some systems may open it to /dev/tty
+# 4 used on the Kubota Titan
+# 6 checking for... messages and results
+# 5 compiler messages saved in config.log
+if test "$silent" = yes; then
+  exec 6>/dev/null
+else
+  exec 6>&1
+fi
+exec 5>./config.log
+
+echo "\
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+" 1>&5
+
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Also quote any args containing shell metacharacters.
+ac_configure_args=
+for ac_arg
+do
+  case "$ac_arg" in
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c) ;;
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
+  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
+  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
+  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
+  esac
+done
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -rf conftest* confdefs.h
+# AIX cpp loses on an empty file, so make sure it contains at least a newline.
+echo > confdefs.h
+
+# A filename unique to this package, relative to the directory that
+# configure is in, which we can look for to find out if srcdir is correct.
+ac_unique_file=../generic/tk.h
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+  ac_srcdir_defaulted=yes
+  # Try the directory containing this script, then its parent.
+  ac_prog=$0
+  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
+  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
+  srcdir=$ac_confdir
+  if test ! -r $srcdir/$ac_unique_file; then
+    srcdir=..
+  fi
+else
+  ac_srcdir_defaulted=no
+fi
+if test ! -r $srcdir/$ac_unique_file; then
+  if test "$ac_srcdir_defaulted" = yes; then
+    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
+  else
+    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
+  fi
+fi
+srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
+
+# Prefer explicitly selected file to automatically selected ones.
+if test -z "$CONFIG_SITE"; then
+  if test "x$prefix" != xNONE; then
+    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
+  else
+    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
+  fi
+fi
+for ac_site_file in $CONFIG_SITE; do
+  if test -r "$ac_site_file"; then
+    echo "loading site script $ac_site_file"
+    . "$ac_site_file"
+  fi
+done
+
+if test -r "$cache_file"; then
+  echo "loading cache $cache_file"
+  . $cache_file
+else
+  echo "creating cache $cache_file"
+  > $cache_file
+fi
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='echo $CPP $CPPFLAGS 1>&5;
+$CPP $CPPFLAGS'
+ac_compile='echo ${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5;
+${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
+ac_link='echo ${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5;
+${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
+
+if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
+  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
+  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
+    ac_n= ac_c='
+' ac_t='	'
+  else
+    ac_n=-n ac_c= ac_t=
+  fi
+else
+  ac_n= ac_c='\c' ac_t=
+fi
+
+
+
+# @(#) configure.in 1.27 95/10/01 13:54:35
+
+ac_aux_dir=
+for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
+  if test -f $ac_dir/install-sh; then
+    ac_aux_dir=$ac_dir
+    ac_install_sh="$ac_aux_dir/install-sh -c"
+    break
+  elif test -f $ac_dir/install.sh; then
+    ac_aux_dir=$ac_dir
+    ac_install_sh="$ac_aux_dir/install.sh -c"
+    break
+  fi
+done
+if test -z "$ac_aux_dir"; then
+  { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
+fi
+ac_config_guess=$ac_aux_dir/config.guess
+ac_config_sub=$ac_aux_dir/config.sub
+ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
+
+# Find a good install program.  We prefer a C program (faster),
+# so one script is as good as another.  But avoid the broken or
+# incompatible versions:
+# SysV /etc/install, /usr/sbin/install
+# SunOS /usr/etc/install
+# IRIX /sbin/install
+# AIX /bin/install
+# AFS /usr/afsws/bin/install, which mishandles nonexistent args
+# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
+# ./install, which can be erroneously created by make from ./install.sh.
+echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
+if test -z "$INSTALL"; then
+if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    # Account for people who put trailing slashes in PATH elements.
+    case "$ac_dir/" in
+    /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;;
+    *)
+      # OSF1 and SCO ODT 3.0 have their own names for install.
+      for ac_prog in ginstall installbsd scoinst install; do
+        if test -f $ac_dir/$ac_prog; then
+	  if test $ac_prog = install &&
+            grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then
+	    # AIX install.  It has an incompatible calling convention.
+	    # OSF/1 installbsd also uses dspmsg, but is usable.
+	    :
+	  else
+	    ac_cv_path_install="$ac_dir/$ac_prog -c"
+	    break 2
+	  fi
+	fi
+      done
+      ;;
+    esac
+  done
+  IFS="$ac_save_ifs"
+
+fi
+  if test "${ac_cv_path_install+set}" = set; then
+    INSTALL="$ac_cv_path_install"
+  else
+    # As a last resort, use the slow shell script.  We don't cache a
+    # path for INSTALL within a source directory, because that will
+    # break other packages using the cache if that directory is
+    # removed, or if the path is relative.
+    INSTALL="$ac_install_sh"
+  fi
+fi
+echo "$ac_t""$INSTALL" 1>&6
+
+# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
+# It thinks the first close brace ends the variable substitution.
+test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
+
+test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
+
+# Extract the first word of "ranlib", so it can be a program name with args.
+set dummy ranlib; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test -n "$RANLIB"; then
+  ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
+else
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      ac_cv_prog_RANLIB="ranlib"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":"
+fi
+fi
+RANLIB="$ac_cv_prog_RANLIB"
+if test -n "$RANLIB"; then
+  echo "$ac_t""$RANLIB" 1>&6
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+if test "x$prefix" = xNONE; then
+echo $ac_n "checking for prefix by ""... $ac_c" 1>&6
+# Extract the first word of "wish", so it can be a program name with args.
+set dummy wish; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_path_WISH'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  case "$WISH" in
+  /*)
+  ac_cv_path_WISH="$WISH" # Let the user override the test with a path.
+  ;;
+  *)
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      ac_cv_path_WISH="$ac_dir/$ac_word"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  ;;
+esac
+fi
+WISH="$ac_cv_path_WISH"
+if test -n "$WISH"; then
+  echo "$ac_t""$WISH" 1>&6
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+  if test -n "$ac_cv_path_WISH"; then
+    prefix=`echo $ac_cv_path_WISH|sed 's%/[^/][^/]*//*[^/][^/]*$%%'`
+  fi
+fi
+
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+  CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    # This must be in double quotes, not single quotes, because CPP may get
+  # substituted into the Makefile and "${CC-cc}" will confuse make.
+  CPP="${CC-cc} -E"
+  # On the NeXT, cc -E runs the code through the compiler's parser,
+  # not just through cpp.
+  cat > conftest.$ac_ext <<EOF
+#line 682 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP="${CC-cc} -E -traditional-cpp"
+  cat > conftest.$ac_ext <<EOF
+#line 696 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+  ac_cv_prog_CPP="$CPP"
+fi
+  CPP="$ac_cv_prog_CPP"
+else
+  ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+for ac_hdr in unistd.h limits.h
+do
+ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 729 "configure"
+#include "confdefs.h"
+#include <$ac_hdr>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=yes"
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  eval "ac_cv_header_$ac_safe=no"
+fi
+rm -f conftest*
+fi
+if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+  cat >> confdefs.h <<EOF
+#define $ac_tr_hdr 1
+EOF
+ 
+else
+  echo "$ac_t""no" 1>&6
+fi
+done
+
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 770 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+int main() { return 0; }
+int t() {
+fd_set readMask, writeMask;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+if test $tk_ok = no; then
+    cat > conftest.$ac_ext <<EOF
+#line 789 "configure"
+#include "confdefs.h"
+#include <sys/select.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "fd_mask" >/dev/null 2>&1; then
+  rm -rf conftest*
+  tk_ok=yes
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define HAVE_SYS_SELECT_H 1
+EOF
+
+    fi
+fi
+echo "$ac_t""$tk_ok" 1>&6
+if test $tk_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_FD_SET 1
+EOF
+
+fi
+
+#--------------------------------------------------------------------
+#	Supply a substitute for stdlib.h if it doesn't define strtol,
+#	strtoul, or strtod (which it doesn't in some versions of SunOS).
+#--------------------------------------------------------------------
+
+echo $ac_n "checking stdlib.h""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 822 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtol" >/dev/null 2>&1; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+cat > conftest.$ac_ext <<EOF
+#line 837 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtoul" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+cat > conftest.$ac_ext <<EOF
+#line 851 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "strtod" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+if test $tk_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_STDLIB_H 1
+EOF
+
+fi
+echo "$ac_t""$tk_ok" 1>&6
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist.
+#--------------------------------------------------------------------
+
+# If we cannot run a trivial program, we must be cross compiling.
+echo $ac_n "checking whether cross-compiling""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_c_cross'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test "$cross_compiling" = yes; then
+  ac_cv_c_cross=yes
+else
+cat > conftest.$ac_ext <<EOF
+#line 886 "configure"
+#include "confdefs.h"
+main(){return(0);}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  ac_cv_c_cross=no
+else
+  ac_cv_c_cross=yes
+fi
+fi
+rm -fr conftest*
+fi
+
+echo "$ac_t""$ac_cv_c_cross" 1>&6
+cross_compiling=$ac_cv_c_cross
+
+echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 908 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  ac_cv_header_stdc=yes
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+if test $ac_cv_header_stdc = yes; then
+  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 930 "configure"
+#include "confdefs.h"
+#include <string.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "memchr" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+cat > conftest.$ac_ext <<EOF
+#line 948 "configure"
+#include "confdefs.h"
+#include <stdlib.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "free" >/dev/null 2>&1; then
+  :
+else
+  rm -rf conftest*
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+if test "$cross_compiling" = yes; then
+  :
+else
+cat > conftest.$ac_ext <<EOF
+#line 969 "configure"
+#include "confdefs.h"
+#include <ctype.h>
+#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int main () { int i; for (i = 0; i < 256; i++)
+if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
+exit (0); }
+
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  :
+else
+  ac_cv_header_stdc=no
+fi
+fi
+rm -fr conftest*
+fi
+fi
+
+echo "$ac_t""$ac_cv_header_stdc" 1>&6
+if test $ac_cv_header_stdc = yes; then
+  cat >> confdefs.h <<\EOF
+#define STDC_HEADERS 1
+EOF
+
+fi
+
+echo $ac_n "checking for mode_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1004 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "mode_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_mode_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_mode_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_mode_t" 1>&6
+if test $ac_cv_type_mode_t = no; then
+  cat >> confdefs.h <<\EOF
+#define mode_t int
+EOF
+
+fi
+
+echo $ac_n "checking for pid_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1035 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "pid_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_pid_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_pid_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_pid_t" 1>&6
+if test $ac_cv_type_pid_t = no; then
+  cat >> confdefs.h <<\EOF
+#define pid_t int
+EOF
+
+fi
+
+echo $ac_n "checking for size_t""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1066 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+#if STDC_HEADERS
+#include <stdlib.h>
+#endif
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "size_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_size_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_size_t=no
+fi
+rm -f conftest*
+
+fi
+echo "$ac_t""$ac_cv_type_size_t" 1>&6
+if test $ac_cv_type_size_t = no; then
+  cat >> confdefs.h <<\EOF
+#define size_t unsigned
+EOF
+
+fi
+
+echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1097 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "uid_t" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_type_uid_t=yes
+else
+  rm -rf conftest*
+  ac_cv_type_uid_t=no
+fi
+rm -f conftest*
+
+fi
+
+echo "$ac_t""$ac_cv_type_uid_t" 1>&6
+if test $ac_cv_type_uid_t = no; then
+  cat >> confdefs.h <<\EOF
+#define uid_t int
+EOF
+
+  cat >> confdefs.h <<\EOF
+#define gid_t int
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	Locate the X11 header files and the X11 library archive.  Try
+#	the ac_path_x macro first, but if it doesn't find the X stuff
+#	(e.g. because there's no xmkmf program) then check through
+#	a list of possible directories.  Under some conditions the
+#	autoconf macro will return an include directory that contains
+#	no include files, so double-check its result just to be safe.
+#--------------------------------------------------------------------
+
+# If we find X, set shell vars x_includes and x_libraries to the
+# paths, otherwise set no_x=yes.
+# Uses ac_ vars as temps to allow command line to override cache and checks.
+# --without-x overrides everything else, but does not touch the cache.
+echo $ac_n "checking for X""... $ac_c" 1>&6
+
+# Check whether --with-x or --without-x was given.
+if test "${with_x+set}" = set; then
+  withval="$with_x"
+  :
+fi
+
+if test "x$with_x" = xno; then
+  no_x=yes
+else
+  if test "x$x_includes" != xNONE && test "x$x_libraries" != xNONE; then
+    no_x=
+  else
+if eval "test \"`echo '$''{'ac_cv_path_x'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  # One or both of the vars are not set, and there is no cached value.
+no_x=yes
+rm -fr conftestdir
+if mkdir conftestdir; then
+  cd conftestdir
+  # Make sure to not put "make" in the Imakefile rules, since we grep it out.
+  cat > Imakefile <<'EOF'
+acfindx:
+	@echo 'ac_im_incroot="${INCROOT}"; ac_im_usrlibdir="${USRLIBDIR}"; ac_im_libdir="${LIBDIR}"'
+EOF
+  if (xmkmf) >/dev/null 2>/dev/null && test -f Makefile; then
+    no_x=
+    # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
+    eval `${MAKE-make} acfindx 2>/dev/null | grep -v make`
+    # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
+    for ac_extension in a so sl; do
+      if test ! -f $ac_im_usrlibdir/libX11.$ac_extension &&
+        test -f $ac_im_libdir/libX11.$ac_extension; then
+        ac_im_usrlibdir=$ac_im_libdir; break
+      fi
+    done
+    # Screen out bogus values from the imake configuration.
+    case "$ac_im_incroot" in
+	/usr/include) ;;
+	*) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes="$ac_im_incroot" ;;
+    esac
+    case "$ac_im_usrlibdir" in
+	/usr/lib | /lib) ;;
+	*) test -d "$ac_im_usrlibdir" && ac_x_libraries="$ac_im_usrlibdir" ;;
+    esac
+  fi
+  cd ..
+  rm -fr conftestdir
+fi
+
+if test "$no_x" = yes; then
+test -z "$x_direct_test_library" && x_direct_test_library=Xt
+test -z "$x_direct_test_function" && x_direct_test_function=XtMalloc
+test -z "$x_direct_test_include" && x_direct_test_include=X11/Intrinsic.h
+cat > conftest.$ac_ext <<EOF
+#line 1196 "configure"
+#include "confdefs.h"
+#include <$x_direct_test_include>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  no_x= ac_x_includes=
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+    for ac_dir in               \
+    /usr/X11R6/include        \
+    /usr/X11R5/include        \
+    /usr/X11R4/include        \
+                              \
+    /usr/include/X11R6        \
+    /usr/include/X11R5        \
+    /usr/include/X11R4        \
+                              \
+    /usr/local/X11R6/include  \
+    /usr/local/X11R5/include  \
+    /usr/local/X11R4/include  \
+                              \
+    /usr/local/include/X11R6  \
+    /usr/local/include/X11R5  \
+    /usr/local/include/X11R4  \
+                              \
+    /usr/X11/include          \
+    /usr/include/X11          \
+    /usr/local/X11/include    \
+    /usr/local/include/X11    \
+                              \
+    /usr/X386/include         \
+    /usr/x386/include         \
+    /usr/XFree86/include/X11  \
+                              \
+    /usr/include              \
+    /usr/local/include        \
+    /usr/unsupported/include  \
+    /usr/athena/include       \
+    /usr/local/x11r5/include  \
+    /usr/lpp/Xamples/include  \
+                              \
+    /usr/openwin/include      \
+    /usr/openwin/share/include \
+    ; \
+  do
+    if test -r "$ac_dir/$x_direct_test_include"; then
+      no_x= ac_x_includes=$ac_dir
+      break
+    fi
+  done
+fi
+rm -f conftest*
+
+# Check for the libraries.
+# See if we find them without any special options.
+# Don't add to $LIBS permanently.
+ac_save_LIBS="$LIBS"
+LIBS="-l$x_direct_test_library $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1259 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+${x_direct_test_function}()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  LIBS="$ac_save_LIBS" no_x= ac_x_libraries=
+else
+  rm -rf conftest*
+  LIBS="$ac_save_LIBS"
+# First see if replacing the include by lib works.
+for ac_dir in `echo "$ac_x_includes" | sed s/include/lib/` \
+    /usr/X11R6/lib        \
+    /usr/X11R5/lib        \
+    /usr/X11R4/lib        \
+                          \
+    /usr/lib/X11R6        \
+    /usr/lib/X11R5        \
+    /usr/lib/X11R4        \
+                          \
+    /usr/local/X11R6/lib  \
+    /usr/local/X11R5/lib  \
+    /usr/local/X11R4/lib  \
+                          \
+    /usr/local/lib/X11R6  \
+    /usr/local/lib/X11R5  \
+    /usr/local/lib/X11R4  \
+                          \
+    /usr/X11/lib          \
+    /usr/lib/X11          \
+    /usr/local/X11/lib    \
+    /usr/local/lib/X11    \
+                          \
+    /usr/X386/lib         \
+    /usr/x386/lib         \
+    /usr/XFree86/lib/X11  \
+                          \
+    /usr/lib              \
+    /usr/local/lib        \
+    /usr/unsupported/lib  \
+    /usr/athena/lib       \
+    /usr/local/x11r5/lib  \
+    /usr/lpp/Xamples/lib  \
+                          \
+    /usr/openwin/lib      \
+    /usr/openwin/share/lib \
+    ; \
+do
+  for ac_extension in a so sl; do
+    if test -r $ac_dir/lib${x_direct_test_library}.$ac_extension; then
+      no_x= ac_x_libraries=$ac_dir
+      break 2
+    fi
+  done
+done
+fi
+rm -f conftest*
+
+fi
+if test "$no_x" = yes; then
+  ac_cv_path_x="no_x=yes"
+else
+  ac_cv_path_x="no_x= ac_x_includes=$ac_x_includes ac_x_libraries=$ac_x_libraries"
+fi
+fi
+  fi
+  eval "$ac_cv_path_x"
+fi # $with_x != no
+
+if test "$no_x" = yes; then
+  echo "$ac_t""no" 1>&6
+else
+  test "x$x_includes" = xNONE && x_includes=$ac_x_includes
+  test "x$x_libraries" = xNONE && x_libraries=$ac_x_libraries
+  ac_cv_path_x="no_x= ac_x_includes=$x_includes ac_x_libraries=$x_libraries"
+  echo "$ac_t""libraries $x_libraries, headers $x_includes" 1>&6
+fi
+
+not_really_there=""
+if test "$no_x" = ""; then
+    if test "$x_includes" = ""; then
+	cat > conftest.$ac_ext <<EOF
+#line 1345 "configure"
+#include "confdefs.h"
+#include <X11/XIntrinsic.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  not_really_there="yes"
+fi
+rm -f conftest*
+    else
+	if test ! -r $x_includes/X11/Intrinsic.h; then
+	    not_really_there="yes"
+	fi
+    fi
+fi
+if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then
+    echo checking for X11 header files
+    XINCLUDES="# no special path needed"
+    cat > conftest.$ac_ext <<EOF
+#line 1369 "configure"
+#include "confdefs.h"
+#include <X11/Intrinsic.h>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  XINCLUDES="nope"
+fi
+rm -f conftest*
+    if test "$XINCLUDES" = nope; then
+        dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/include/X11R4 /usr/X11R5/include /usr/include/X11R5 /usr/openwin/include /usr/X11/include /usr/sww/include"
+        for i in $dirs ; do
+	    if test -r $i/X11/Intrinsic.h; then
+	        XINCLUDES=" -I$i"
+	    fi
+        done
+    fi
+else
+    if test "$x_includes" != ""; then
+	XINCLUDES=-I$x_includes
+    else
+	XINCLUDES="# no special path needed"
+    fi
+fi
+if test "$XINCLUDES" = nope; then
+  echo "Warning:  couldn't find any X11 include files."
+  XINCLUDES="# no include files found"
+fi
+
+
+if test "$no_x" = yes; then
+    XLIBSW=nope
+    if test "$XLIBSW" = nope; then
+	dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/lib/X11R4 /usr/X11R5/lib /usr/lib/X11R5 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib"
+	for i in $dirs ; do
+	    if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl; then
+		XLIBSW="-L$i -lX11"
+	    fi
+	done
+    fi
+else
+    if test "$x_libraries" = ""; then
+	XLIBSW=-lX11
+    else
+	XLIBSW="-L$x_libraries -lX11"
+    fi
+fi
+if test "$XLIBSW" = nope ; then
+    echo $ac_n "checking for -lXwindow""... $ac_c" 1>&6
+ac_lib_var=`echo Xwindow | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lXwindow  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1430 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+XCreateWindow()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  XLIBSW=-lXwindow
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+fi
+if test "$XLIBSW" = nope ; then
+    echo "Warning:  couldn't find the X11 library archive.  Using -lX11."
+    XLIBSW=-lX11
+fi
+
+
+#--------------------------------------------------------------------
+#	Check for the existence of various libraries.  The order here
+#	is important, so that then end up in the right order in the
+#	command line generated by make.  The -lsocket and -lnsl libraries
+#	require a couple of special tricks:
+#	1. Use "connect" and "accept" to check for -lsocket, and
+#	   "gethostbyname" to check for -lnsl.
+#	2. Use each function name only once:  can't redo a check because
+#	   autoconf caches the results of the last check and won't redo it.
+#	3. Use -lnsl and -lsocket only if they supply procedures that
+#	   aren't already present in the normal libraries.  This is because
+#	   IRIX 5.2 has libraries, but they aren't needed and they're
+#	   bogus:  they goof up name resolution if used.
+#	4. On some SVR4 systems, can't use -lsocket without -lnsl too.
+#	   To get around this problem, check for both libraries together
+#	   if -lsocket doesn't work by itself.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for -lXbsd""... $ac_c" 1>&6
+ac_lib_var=`echo Xbsd | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lXbsd  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1489 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -lXbsd"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+tk_checkBoth=0
+echo $ac_n "checking for connect""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1522 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char connect(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char connect();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_connect) || defined (__stub___connect)
+choke me
+#else
+connect();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_connect=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_connect=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'connect`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tk_checkSocket=0
+else
+  echo "$ac_t""no" 1>&6
+tk_checkSocket=1
+fi
+
+if test "$tk_checkSocket" = 1; then
+    echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
+ac_lib_var=`echo socket | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lsocket  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1571 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -lsocket"
+else
+  echo "$ac_t""no" 1>&6
+tk_checkBoth=1
+fi
+
+fi
+if test "$tk_checkBoth" = 1; then
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lsocket -lnsl"
+    echo $ac_n "checking for accept""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_accept'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1607 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char accept(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char accept();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_accept) || defined (__stub___accept)
+choke me
+#else
+accept();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_accept=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_accept=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'accept`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tk_checkNsl=0
+else
+  echo "$ac_t""no" 1>&6
+LIBS=$tk_oldLibs
+fi
+
+fi
+echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1653 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char gethostbyname(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char gethostbyname();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_gethostbyname) || defined (__stub___gethostbyname)
+choke me
+#else
+gethostbyname();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_gethostbyname=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_gethostbyname=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'gethostbyname`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+echo $ac_n "checking for -lnsl""... $ac_c" 1>&6
+ac_lib_var=`echo nsl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lnsl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1698 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBS="$LIBS -lnsl"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+fi
+
+
+#--------------------------------------------------------------------
+# One more check related to the X libraries.  The standard releases
+# of Ultrix don't support the "xauth" mechanism, so send won't work
+# unless TK_NO_SECURITY is defined.  However, there are usually copies
+# of the MIT X server available as well, which do support xauth.
+# Check for the MIT stuff and use it if it exists.
+#
+# Note: can't use ac_check_lib macro (at least, not in Autoconf 2.1)
+# because it can't deal with the "-" in the library name.
+#--------------------------------------------------------------------
+
+if test -d /usr/include/mit ; then
+    echo $ac_n "checking MIT X libraries""... $ac_c" 1>&6
+    tk_oldCFlags=$CFLAGS
+    CFLAGS="$CFLAGS -I/usr/include/mit"
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lX11-mit"
+    cat > conftest.$ac_ext <<EOF
+#line 1745 "configure"
+#include "confdefs.h"
+
+	#include <X11/Xlib.h>
+    
+int main() { return 0; }
+int t() {
+
+	XOpenDisplay(0);
+    
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  
+	echo "$ac_t""yes" 1>&6
+	XLIBSW="-lX11-mit"
+	XINCLUDES="-I/usr/include/mit"
+    
+else
+  rm -rf conftest*
+  echo "$ac_t""no" 1>&6
+fi
+rm -f conftest*
+
+    CFLAGS=$tk_oldCFlags
+    LIBS=$tk_oldLibs
+fi
+
+#--------------------------------------------------------------------
+#	Figure out how to find out whether a FILE structure contains
+#	buffered readable data.  Some known names for the count field:
+#		_cnt:		Most UNIX systems
+#		__cnt:		HPUX
+#		_r:		BSD
+#		readCount:	Sprite
+#	Or, in GNU libc there are two fields, _gptr and _egptr, which
+#	have to be compared.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking count field in FILE structures""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1787 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->_cnt = 0;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  fcnt="_cnt"
+fi
+rm -f conftest*
+
+if test "$fcnt" = ""; then
+    cat > conftest.$ac_ext <<EOF
+#line 1803 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->__cnt = 0;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  fcnt="__cnt"
+fi
+rm -f conftest*
+
+fi
+if test "$fcnt" = ""; then
+    cat > conftest.$ac_ext <<EOF
+#line 1820 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->_r = 0;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  fcnt="_r"
+fi
+rm -f conftest*
+
+fi
+if test "$fcnt" = ""; then
+    cat > conftest.$ac_ext <<EOF
+#line 1837 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->readCount = 0;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  fcnt="readCount"
+fi
+rm -f conftest*
+
+fi
+if test "$fcnt" != ""; then
+    cat >> confdefs.h <<EOF
+#define TK_FILE_COUNT $fcnt
+EOF
+
+fi
+if test "$fcnt" = ""; then
+    cat > conftest.$ac_ext <<EOF
+#line 1860 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->_gptr = f->_egptr;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define TK_FILE_GPTR 1
+EOF
+
+	fcnt="_gptr/_egptr"
+    fi
+fi
+if test "$fcnt" = ""; then
+    cat > conftest.$ac_ext <<EOF
+#line 1887 "configure"
+#include "confdefs.h"
+#include <stdio.h>
+int main() { return 0; }
+int t() {
+FILE *f = stdin; f->_IO_read_ptr = f->_IO_read_end;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define TK_FILE_READ_PTR 1
+EOF
+
+	fcnt="_IO_read_ptr/_IO_read_end"
+    fi
+fi
+if test "$fcnt" = ""; then
+    echo "$ac_t""not found; must supply TkReadDataPending procedure" 1>&6
+else
+    echo "$ac_t"""$fcnt"" 1>&6
+fi
+
+#--------------------------------------------------------------------
+#	On a few very rare systems, all of the libm.a stuff is
+#	already in libc.a.  Set compiler flags accordingly.
+#	Also, Linux requires the "ieee" library for math to
+#	work right (and it must appear before "-lm").
+#--------------------------------------------------------------------
+
+MATH_LIBS=""
+echo $ac_n "checking for sin""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_sin'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1931 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char sin(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char sin();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_sin) || defined (__stub___sin)
+choke me
+#else
+sin();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_sin=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_sin=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'sin`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+MATH_LIBS="-lm"
+fi
+
+echo $ac_n "checking for -lieee""... $ac_c" 1>&6
+ac_lib_var=`echo ieee | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lieee  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1979 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+main()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  MATH_LIBS="-lieee $MATH_LIBS"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+
+#--------------------------------------------------------------------
+#	If this system doesn't have a memmove procedure, use memcpy
+#	instead.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for memmove""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_memmove'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2017 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char memmove(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char memmove();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_memmove) || defined (__stub___memmove)
+choke me
+#else
+memmove();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_memmove=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_memmove=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'memmove`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  :
+else
+  echo "$ac_t""no" 1>&6
+cat >> confdefs.h <<\EOF
+#define memmove memcpy
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	Figure out whether "char" is unsigned.  If so, set a
+#	#define for __CHAR_UNSIGNED__.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking whether char is unsigned""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_c_char_unsigned'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test "$GCC" = yes; then
+  # GCC predefines this symbol on systems where it applies.
+cat > conftest.$ac_ext <<EOF
+#line 2073 "configure"
+#include "confdefs.h"
+#ifdef __CHAR_UNSIGNED__
+  yes
+#endif
+
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "yes" >/dev/null 2>&1; then
+  rm -rf conftest*
+  ac_cv_c_char_unsigned=yes
+else
+  rm -rf conftest*
+  ac_cv_c_char_unsigned=no
+fi
+rm -f conftest*
+
+else
+if test "$cross_compiling" = yes; then
+    { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
+else
+cat > conftest.$ac_ext <<EOF
+#line 2095 "configure"
+#include "confdefs.h"
+/* volatile prevents gcc2 from optimizing the test away on sparcs.  */
+#if !defined(__STDC__) || __STDC__ != 1
+#define volatile
+#endif
+main() {
+  volatile char c = 255; exit(c < 0);
+}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  ac_cv_c_char_unsigned=yes
+else
+  ac_cv_c_char_unsigned=no
+fi
+fi
+rm -fr conftest*
+fi
+fi
+
+echo "$ac_t""$ac_cv_c_char_unsigned" 1>&6
+if test $ac_cv_c_char_unsigned = yes && test "$GCC" != yes; then
+  cat >> confdefs.h <<\EOF
+#define __CHAR_UNSIGNED__ 1
+EOF
+
+fi
+
+
+#--------------------------------------------------------------------
+#	SGI systems don't use the BSD form of the gettimeofday function,
+#	but they have a BSDgettimeofday function that can be used instead.
+#
+#	Also, check for the existence of a gettimeofday declaration,
+#	to tkPort.h can declare it if it isn't already declared.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for BSDgettimeofday""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_BSDgettimeofday'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2138 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char BSDgettimeofday(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char BSDgettimeofday();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_BSDgettimeofday) || defined (__stub___BSDgettimeofday)
+choke me
+#else
+BSDgettimeofday();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_BSDgettimeofday=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_BSDgettimeofday=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'BSDgettimeofday`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  cat >> confdefs.h <<\EOF
+#define HAVE_BSDGETTIMEOFDAY 1
+EOF
+
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 2182 "configure"
+#include "confdefs.h"
+#include <sys/time.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "gettimeofday" >/dev/null 2>&1; then
+  rm -rf conftest*
+  echo "$ac_t""present" 1>&6
+else
+  rm -rf conftest*
+  
+    echo "$ac_t""missing" 1>&6
+    cat >> confdefs.h <<\EOF
+#define GETTOD_NOT_DECLARED 1
+EOF
+
+
+fi
+rm -f conftest*
+
+
+#--------------------------------------------------------------------
+#	Under Solaris 2.4, strtod returns the wrong value for the
+#	terminating character under some conditions.  Check for this
+#	and if the problem exists use a substitute procedure
+#	"fixstrtod" (provided by Tcl) that corrects the error.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking for strtod""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_func_strtod'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 2215 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char strtod(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+char strtod();
+
+int main() { return 0; }
+int t() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_strtod) || defined (__stub___strtod)
+choke me
+#else
+strtod();
+#endif
+
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_func_strtod=no"
+fi
+rm -f conftest*
+
+fi
+if eval "test \"`echo '$ac_cv_func_'strtod`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  tk_strtod=1
+else
+  echo "$ac_t""no" 1>&6
+tk_strtod=0
+fi
+
+if test "$tk_strtod" = 1; then
+    echo $ac_n "checking for Solaris 2.4 strtod bug""... $ac_c" 1>&6
+    if test "$cross_compiling" = yes; then
+  tk_ok=0
+else
+cat > conftest.$ac_ext <<EOF
+#line 2261 "configure"
+#include "confdefs.h"
+
+	extern double strtod();
+	int main()
+	{
+	    char *string = "NaN";
+	    char *term;
+	    strtod(string, &term);
+	    if ((term != string) && (term[-1] == 0)) {
+		exit(1);
+	    }
+	    exit(0);
+	}
+EOF
+eval $ac_link
+if test -s conftest && (./conftest; exit) 2>/dev/null; then
+  tk_ok=1
+else
+  tk_ok=0
+fi
+fi
+rm -fr conftest*
+    if test "$tk_ok" = 1; then
+	echo "$ac_t""ok" 1>&6
+    else
+	echo "$ac_t""buggy" 1>&6
+	cat >> confdefs.h <<\EOF
+#define strtod fixstrtod
+EOF
+
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	Read in configuration information generated by Tcl for shared
+#	libraries, and arrange for it to be substituted into our
+#	Makefile.
+#--------------------------------------------------------------------
+
+
+
+
+
+
+
+
+trap '' 1 2 15
+cat > confcache <<\EOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs.  It is not useful on other systems.
+# If it contains results you don't want to keep, you may remove or edit it.
+#
+# By default, configure uses ./config.cache as the cache file,
+# creating it if it does not exist already.  You can give configure
+# the --cache-file=FILE option to use a different cache file; that is
+# what configure does when it calls configure scripts in
+# subdirectories, so they share the cache.
+# Giving --cache-file=/dev/null disables caching, for debugging configure.
+# config.status only pays attention to the cache file if you give it the
+# --recheck option to rerun configure.
+#
+EOF
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(set) 2>&1 |
+  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
+  >> confcache
+if cmp -s $cache_file confcache; then
+  :
+else
+  if test -w $cache_file; then
+    echo "updating cache $cache_file"
+    cat confcache > $cache_file
+  else
+    echo "not updating unwritable cache $cache_file"
+  fi
+fi
+rm -f confcache
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+# Any assignment to VPATH causes Sun make to only execute
+# the first set of double-colon rules, so remove it if not needed.
+# If there is a colon in the path, we need to keep it.
+if test "x$srcdir" = x.; then
+  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
+fi
+
+trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
+
+# Transform confdefs.h into DEFS.
+# Protect against shell expansion while executing Makefile rules.
+# Protect against Makefile macro expansion.
+cat > conftest.defs <<\EOF
+s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
+s%[ 	`~#$^&*(){}\\|;'"<>?]%\\&%g
+s%\[%\\&%g
+s%\]%\\&%g
+s%\$%$$%g
+EOF
+DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
+rm -f conftest.defs
+
+
+# Without the "./", some shells look in PATH for config.status.
+: ${CONFIG_STATUS=./config.status}
+
+echo creating $CONFIG_STATUS
+rm -f $CONFIG_STATUS
+cat > $CONFIG_STATUS <<EOF
+#! /bin/sh
+# Generated automatically by configure.
+# Run this file to recreate the current configuration.
+# This directory was configured as follows,
+# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+#
+# $0 $ac_configure_args
+#
+# Compiler output produced by configure, useful for debugging
+# configure, is in ./config.log if it exists.
+
+ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
+for ac_option
+do
+  case "\$ac_option" in
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
+    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
+  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
+    echo "$CONFIG_STATUS generated by autoconf version 2.7"
+    exit 0 ;;
+  -help | --help | --hel | --he | --h)
+    echo "\$ac_cs_usage"; exit 0 ;;
+  *) echo "\$ac_cs_usage"; exit 1 ;;
+  esac
+done
+
+ac_given_srcdir=$srcdir
+ac_given_INSTALL="$INSTALL"
+
+trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+# Protect against being on the right side of a sed subst in config.status.
+sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
+ s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
+$ac_vpsub
+$extrasub
+s%@CFLAGS@%$CFLAGS%g
+s%@CPPFLAGS@%$CPPFLAGS%g
+s%@CXXFLAGS@%$CXXFLAGS%g
+s%@DEFS@%$DEFS%g
+s%@LDFLAGS@%$LDFLAGS%g
+s%@LIBS@%$LIBS%g
+s%@exec_prefix@%$exec_prefix%g
+s%@prefix@%$prefix%g
+s%@program_transform_name@%$program_transform_name%g
+s%@bindir@%$bindir%g
+s%@sbindir@%$sbindir%g
+s%@libexecdir@%$libexecdir%g
+s%@datadir@%$datadir%g
+s%@sysconfdir@%$sysconfdir%g
+s%@sharedstatedir@%$sharedstatedir%g
+s%@localstatedir@%$localstatedir%g
+s%@libdir@%$libdir%g
+s%@includedir@%$includedir%g
+s%@oldincludedir@%$oldincludedir%g
+s%@infodir@%$infodir%g
+s%@mandir@%$mandir%g
+s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
+s%@INSTALL_DATA@%$INSTALL_DATA%g
+s%@RANLIB@%$RANLIB%g
+s%@WISH@%$WISH%g
+s%@CPP@%$CPP%g
+s%@XINCLUDES@%$XINCLUDES%g
+s%@XLIBSW@%$XLIBSW%g
+s%@MATH_LIBS@%$MATH_LIBS%g
+s%@CC@%$CC%g
+s%@SHLIB_CFLAGS@%$SHLIB_CFLAGS%g
+s%@SHLIB_LD@%$SHLIB_LD%g
+s%@SHLIB_SUFFIX@%$SHLIB_SUFFIX%g
+s%@DL_LIBS@%$DL_LIBS%g
+s%@LD_FLAGS@%$LD_FLAGS%g
+
+CEOF
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
+  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  case "$ac_file" in
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
+  *) ac_file_in="${ac_file}.in" ;;
+  esac
+
+  # Adjust relative srcdir, etc. for subdirectories.
+
+  # Remove last slash and all that follows it.  Not all systems have dirname.
+  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
+  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
+    # The file is in a subdirectory.
+    test ! -d "$ac_dir" && mkdir "$ac_dir"
+    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
+    # A "../" for each directory in $ac_dir_suffix.
+    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
+  else
+    ac_dir_suffix= ac_dots=
+  fi
+
+  case "$ac_given_srcdir" in
+  .)  srcdir=.
+      if test -z "$ac_dots"; then top_srcdir=.
+      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
+  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
+  *) # Relative path.
+    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
+    top_srcdir="$ac_dots$ac_given_srcdir" ;;
+  esac
+
+  case "$ac_given_INSTALL" in
+  [/$]*) INSTALL="$ac_given_INSTALL" ;;
+  *) INSTALL="$ac_dots$ac_given_INSTALL" ;;
+  esac
+  echo creating "$ac_file"
+  rm -f "$ac_file"
+  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
+  case "$ac_file" in
+  *Makefile*) ac_comsub="1i\\
+# $configure_input" ;;
+  *) ac_comsub= ;;
+  esac
+  sed -e "$ac_comsub
+s%@configure_input@%$configure_input%g
+s%@srcdir@%$srcdir%g
+s%@top_srcdir@%$top_srcdir%g
+s%@INSTALL@%$INSTALL%g
+" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+fi; done
+rm -f conftest.subs
+
+
+
+exit 0
+EOF
+chmod +x $CONFIG_STATUS
+rm -fr confdefs* $ac_clean_files
+test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
+
diff --git a/Tk/unix/configure.in b/Tk/unix/configure.in
new file mode 100644
index 0000000..a0f2a0b
--- /dev/null
+++ b/Tk/unix/configure.in
@@ -0,0 +1,331 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during Tk installation
+dnl	to configure the system for the local environment.
+AC_INIT(../generic/tk.h)
+
+# @(#) configure.in 1.27 95/10/01 13:54:35
+
+AC_PROG_INSTALL
+AC_PROG_RANLIB
+AC_PREFIX_PROGRAM(wish)
+AC_HAVE_HEADERS(unistd.h limits.h)
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([fd_set and sys/select])
+AC_TRY_COMPILE([#include <sys/types.h>],
+	[fd_set readMask, writeMask;], tk_ok=yes, tk_ok=no)
+if test $tk_ok = no; then
+    AC_HEADER_EGREP(fd_mask, sys/select.h, tk_ok=yes)
+    if test $tk_ok = yes; then
+	AC_DEFINE(HAVE_SYS_SELECT_H)
+    fi
+fi
+AC_MSG_RESULT($tk_ok)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_FD_SET)
+fi
+
+#--------------------------------------------------------------------
+#	Supply a substitute for stdlib.h if it doesn't define strtol,
+#	strtoul, or strtod (which it doesn't in some versions of SunOS).
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING(stdlib.h)
+AC_HEADER_EGREP(strtol, stdlib.h, tk_ok=yes, tk_ok=no)
+AC_HEADER_EGREP(strtoul, stdlib.h, , tk_ok=no)
+AC_HEADER_EGREP(strtod, stdlib.h, , tk_ok=no)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_STDLIB_H)
+fi
+AC_MSG_RESULT($tk_ok)
+
+#--------------------------------------------------------------------
+#	Check for various typedefs and provide substitutes if
+#	they don't exist.
+#--------------------------------------------------------------------
+
+AC_MODE_T
+AC_PID_T
+AC_SIZE_T
+AC_UID_T
+
+#--------------------------------------------------------------------
+#	Locate the X11 header files and the X11 library archive.  Try
+#	the ac_path_x macro first, but if it doesn't find the X stuff
+#	(e.g. because there's no xmkmf program) then check through
+#	a list of possible directories.  Under some conditions the
+#	autoconf macro will return an include directory that contains
+#	no include files, so double-check its result just to be safe.
+#--------------------------------------------------------------------
+
+AC_PATH_X
+not_really_there=""
+if test "$no_x" = ""; then
+    if test "$x_includes" = ""; then
+	AC_TRY_CPP([#include <X11/XIntrinsic.h>], , not_really_there="yes")
+    else
+	if test ! -r $x_includes/X11/Intrinsic.h; then
+	    not_really_there="yes"
+	fi
+    fi
+fi
+if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then
+    echo checking for X11 header files
+    XINCLUDES="# no special path needed"
+    AC_TRY_CPP([#include <X11/Intrinsic.h>], , XINCLUDES="nope")
+    if test "$XINCLUDES" = nope; then
+        dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/include/X11R4 /usr/X11R5/include /usr/include/X11R5 /usr/openwin/include /usr/X11/include /usr/sww/include"
+        for i in $dirs ; do
+	    if test -r $i/X11/Intrinsic.h; then
+	        XINCLUDES=" -I$i"
+	    fi
+        done
+    fi
+else
+    if test "$x_includes" != ""; then
+	XINCLUDES=-I$x_includes
+    else
+	XINCLUDES="# no special path needed"
+    fi
+fi
+if test "$XINCLUDES" = nope; then
+  echo "Warning:  couldn't find any X11 include files."
+  XINCLUDES="# no include files found"
+fi
+AC_SUBST(XINCLUDES)
+
+if test "$no_x" = yes; then
+    XLIBSW=nope
+    if test "$XLIBSW" = nope; then
+	dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/lib/X11R4 /usr/X11R5/lib /usr/lib/X11R5 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib"
+	for i in $dirs ; do
+	    if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl; then
+		XLIBSW="-L$i -lX11"
+	    fi
+	done
+    fi
+else
+    if test "$x_libraries" = ""; then
+	XLIBSW=-lX11
+    else
+	XLIBSW="-L$x_libraries -lX11"
+    fi
+fi
+if test "$XLIBSW" = nope ; then
+    AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow)
+fi
+if test "$XLIBSW" = nope ; then
+    echo "Warning:  couldn't find the X11 library archive.  Using -lX11."
+    XLIBSW=-lX11
+fi
+AC_SUBST(XLIBSW)
+
+#--------------------------------------------------------------------
+#	Check for the existence of various libraries.  The order here
+#	is important, so that then end up in the right order in the
+#	command line generated by make.  The -lsocket and -lnsl libraries
+#	require a couple of special tricks:
+#	1. Use "connect" and "accept" to check for -lsocket, and
+#	   "gethostbyname" to check for -lnsl.
+#	2. Use each function name only once:  can't redo a check because
+#	   autoconf caches the results of the last check and won't redo it.
+#	3. Use -lnsl and -lsocket only if they supply procedures that
+#	   aren't already present in the normal libraries.  This is because
+#	   IRIX 5.2 has libraries, but they aren't needed and they're
+#	   bogus:  they goof up name resolution if used.
+#	4. On some SVR4 systems, can't use -lsocket without -lnsl too.
+#	   To get around this problem, check for both libraries together
+#	   if -lsocket doesn't work by itself.
+#--------------------------------------------------------------------
+
+AC_CHECK_LIB(Xbsd, main, [LIBS="$LIBS -lXbsd"])
+
+tk_checkBoth=0
+AC_CHECK_FUNC(connect, tk_checkSocket=0, tk_checkSocket=1)
+if test "$tk_checkSocket" = 1; then
+    AC_CHECK_LIB(socket, main, LIBS="$LIBS -lsocket", tk_checkBoth=1)
+fi
+if test "$tk_checkBoth" = 1; then
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lsocket -lnsl"
+    AC_CHECK_FUNC(accept, tk_checkNsl=0, [LIBS=$tk_oldLibs])
+fi
+AC_CHECK_FUNC(gethostbyname, , AC_CHECK_LIB(nsl, main, [LIBS="$LIBS -lnsl"]))
+
+#--------------------------------------------------------------------
+# One more check related to the X libraries.  The standard releases
+# of Ultrix don't support the "xauth" mechanism, so send won't work
+# unless TK_NO_SECURITY is defined.  However, there are usually copies
+# of the MIT X server available as well, which do support xauth.
+# Check for the MIT stuff and use it if it exists.
+#
+# Note: can't use ac_check_lib macro (at least, not in Autoconf 2.1)
+# because it can't deal with the "-" in the library name.
+#--------------------------------------------------------------------
+
+if test -d /usr/include/mit ; then
+    AC_MSG_CHECKING([MIT X libraries])
+    tk_oldCFlags=$CFLAGS
+    CFLAGS="$CFLAGS -I/usr/include/mit"
+    tk_oldLibs=$LIBS
+    LIBS="$LIBS -lX11-mit"
+    AC_TRY_LINK([
+	#include <X11/Xlib.h>
+    ], [
+	XOpenDisplay(0);
+    ], [
+	AC_MSG_RESULT(yes)
+	XLIBSW="-lX11-mit"
+	XINCLUDES="-I/usr/include/mit"
+    ], AC_MSG_RESULT(no))
+    CFLAGS=$tk_oldCFlags
+    LIBS=$tk_oldLibs
+fi
+
+#--------------------------------------------------------------------
+#	Figure out how to find out whether a FILE structure contains
+#	buffered readable data.  Some known names for the count field:
+#		_cnt:		Most UNIX systems
+#		__cnt:		HPUX
+#		_r:		BSD
+#		readCount:	Sprite
+#	Or, in GNU libc there are two fields, _gptr and _egptr, which
+#	have to be compared.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([count field in FILE structures])
+AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_cnt = 0;], fcnt="_cnt", )
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->__cnt = 0;], fcnt="__cnt", )
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_r = 0;], fcnt="_r", )
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->readCount = 0;], fcnt="readCount", )
+fi
+if test "$fcnt" != ""; then
+    AC_DEFINE_UNQUOTED(TK_FILE_COUNT, $fcnt)
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_gptr = f->_egptr;],
+	tk_ok=yes, tk_ok=no)
+    if test $tk_ok = yes; then
+	AC_DEFINE(TK_FILE_GPTR)
+	fcnt="_gptr/_egptr"
+    fi
+fi
+if test "$fcnt" = ""; then
+    AC_TRY_COMPILE([#include <stdio.h>],
+	[FILE *f = stdin; f->_IO_read_ptr = f->_IO_read_end;],
+	tk_ok=yes, tk_ok=no)
+    if test $tk_ok = yes; then
+	AC_DEFINE(TK_FILE_READ_PTR)
+	fcnt="_IO_read_ptr/_IO_read_end"
+    fi
+fi
+if test "$fcnt" = ""; then
+    AC_MSG_RESULT([not found; must supply TkReadDataPending procedure])
+else
+    AC_MSG_RESULT("$fcnt")
+fi
+
+#--------------------------------------------------------------------
+#	On a few very rare systems, all of the libm.a stuff is
+#	already in libc.a.  Set compiler flags accordingly.
+#	Also, Linux requires the "ieee" library for math to
+#	work right (and it must appear before "-lm").
+#--------------------------------------------------------------------
+
+MATH_LIBS=""
+AC_CHECK_FUNC(sin, , MATH_LIBS="-lm")
+AC_CHECK_LIB(ieee, main, [MATH_LIBS="-lieee $MATH_LIBS"])
+AC_SUBST(MATH_LIBS)
+
+#--------------------------------------------------------------------
+#	If this system doesn't have a memmove procedure, use memcpy
+#	instead.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(memmove, , [AC_DEFINE(memmove, memcpy)])
+
+#--------------------------------------------------------------------
+#	Figure out whether "char" is unsigned.  If so, set a
+#	#define for __CHAR_UNSIGNED__.
+#--------------------------------------------------------------------
+
+AC_C_CHAR_UNSIGNED
+
+#--------------------------------------------------------------------
+#	SGI systems don't use the BSD form of the gettimeofday function,
+#	but they have a BSDgettimeofday function that can be used instead.
+#
+#	Also, check for the existence of a gettimeofday declaration,
+#	to tkPort.h can declare it if it isn't already declared.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(BSDgettimeofday, AC_DEFINE(HAVE_BSDGETTIMEOFDAY))
+AC_MSG_CHECKING([for gettimeofday declaration])
+AC_EGREP_HEADER(gettimeofday, sys/time.h, AC_MSG_RESULT(present), [
+    AC_MSG_RESULT(missing)
+    AC_DEFINE(GETTOD_NOT_DECLARED)
+])
+
+#--------------------------------------------------------------------
+#	Under Solaris 2.4, strtod returns the wrong value for the
+#	terminating character under some conditions.  Check for this
+#	and if the problem exists use a substitute procedure
+#	"fixstrtod" (provided by Tcl) that corrects the error.
+#--------------------------------------------------------------------
+
+AC_CHECK_FUNC(strtod, tk_strtod=1, tk_strtod=0)
+if test "$tk_strtod" = 1; then
+    AC_MSG_CHECKING([for Solaris 2.4 strtod bug])
+    AC_TRY_RUN([
+	extern double strtod();
+	int main()
+	{
+	    char *string = "NaN";
+	    char *term;
+	    strtod(string, &term);
+	    if ((term != string) && (term[-1] == 0)) {
+		exit(1);
+	    }
+	    exit(0);
+	}], tk_ok=1, tk_ok=0, tk_ok=0)
+    if test "$tk_ok" = 1; then
+	AC_MSG_RESULT(ok)
+    else
+	AC_MSG_RESULT(buggy)
+	AC_DEFINE(strtod, fixstrtod)
+    fi
+fi
+
+#--------------------------------------------------------------------
+#	Read in configuration information generated by Tcl for shared
+#	libraries, and arrange for it to be substituted into our
+#	Makefile.
+#--------------------------------------------------------------------
+
+AC_SUBST(CC)
+AC_SUBST(SHLIB_CFLAGS)
+AC_SUBST(SHLIB_LD)
+AC_SUBST(SHLIB_SUFFIX)
+AC_SUBST(DL_LIBS)
+AC_SUBST(LD_FLAGS)
+
+AC_OUTPUT(Makefile)
diff --git a/Tk/unix/install-sh b/Tk/unix/install-sh
new file mode 100755
index 0000000..0ff4b6a
--- /dev/null
+++ b/Tk/unix/install-sh
@@ -0,0 +1,119 @@
+#!/bin/sh
+
+#
+# install - install a program, script, or datafile
+# This comes from X11R5; it is not part of GNU.
+#
+# $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch.
+#
+
+
+# set DOITPROG to echo to test this script
+
+# Don't use :- since 4.3BSD and earlier shells don't like it.
+doit="${DOITPROG-}"
+
+
+# put in absolute paths if you don't have them in your path; or use env. vars.
+
+mvprog="${MVPROG-mv}"
+cpprog="${CPPROG-cp}"
+chmodprog="${CHMODPROG-chmod}"
+chownprog="${CHOWNPROG-chown}"
+chgrpprog="${CHGRPPROG-chgrp}"
+stripprog="${STRIPPROG-strip}"
+rmprog="${RMPROG-rm}"
+
+instcmd="$mvprog"
+chmodcmd=""
+chowncmd=""
+chgrpcmd=""
+stripcmd=""
+rmcmd="$rmprog -f"
+mvcmd="$mvprog"
+src=""
+dst=""
+
+while [ x"$1" != x ]; do
+    case $1 in
+	-c) instcmd="$cpprog"
+	    shift
+	    continue;;
+
+	-m) chmodcmd="$chmodprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-o) chowncmd="$chownprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-g) chgrpcmd="$chgrpprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-s) stripcmd="$stripprog"
+	    shift
+	    continue;;
+
+	*)  if [ x"$src" = x ]
+	    then
+		src=$1
+	    else
+		dst=$1
+	    fi
+	    shift
+	    continue;;
+    esac
+done
+
+if [ x"$src" = x ]
+then
+	echo "install:  no input file specified"
+	exit 1
+fi
+
+if [ x"$dst" = x ]
+then
+	echo "install:  no destination specified"
+	exit 1
+fi
+
+
+# If destination is a directory, append the input filename; if your system
+# does not like double slashes in filenames, you may need to add some logic
+
+if [ -d $dst ]
+then
+	dst="$dst"/`basename $src`
+fi
+
+# Make a temp file name in the proper directory.
+
+dstdir=`dirname $dst`
+dsttmp=$dstdir/#inst.$$#
+
+# Move or copy the file name to the temp name
+
+$doit $instcmd $src $dsttmp
+
+# and set any options; do chmod last to preserve setuid bits
+
+if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
+if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
+if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
+if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
+
+# Now rename the file to the real destination.
+
+$doit $rmcmd $dst
+$doit $mvcmd $dsttmp $dst
+
+
+exit 0
diff --git a/Tk/unix/libtk b/Tk/unix/libtk
new file mode 100644
index 0000000..8b277f0
--- /dev/null
+++ b/Tk/unix/libtk
@@ -0,0 +1 @@
+!<arch>
diff --git a/Tk/unix/license.terms b/Tk/unix/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/unix/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/unix/mkLinks b/Tk/unix/mkLinks
new file mode 100644
index 0000000..fe19562
--- /dev/null
+++ b/Tk/unix/mkLinks
@@ -0,0 +1,778 @@
+#!/bin/sh
+# This script is invoked when installing manual entries.  It generates
+# additional links to manual entries, corresponding to the procedure
+# and command names described by the manual entry.  For example, the
+# Tcl manual entry Hash.3 describes procedures Tcl_InitHashTable,
+# Tcl_CreateHashEntry, and many more.  This script will make hard
+# links so that Tcl_InitHashTable.3, Tcl_CreateHashEntry.3, and so
+# on all refer to Hash.3 in the installed directory.
+#
+# Because of the length of command and procedure names, this mechanism
+# only works on machines that support file names longer than 14 characters.
+# This script checks to see if long file names are supported, and it
+# doesn't make any links if they are not.
+#
+# The script takes one argument, which is the name of the directory
+# where the manual entries have been installed.
+
+if test $# != 1; then
+    echo "Usage: mkLinks dir"
+    exit 1
+fi
+
+cd $1
+echo foo > xyzzyTestingAVeryLongFileName.foo
+x=`echo xyzzyTe*`
+rm xyzzyTe*
+if test "$x" != "xyzzyTestingAVeryLongFileName.foo"; then
+    exit
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_3DBorderColor.3
+    ln 3DBorder.3 Tk_3DBorderColor.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_3DBorderGC.3
+    ln 3DBorder.3 Tk_3DBorderGC.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_3DHorizontalBevel.3
+    ln 3DBorder.3 Tk_3DHorizontalBevel.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_3DVerticalBevel.3
+    ln 3DBorder.3 Tk_3DVerticalBevel.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Attributes.3
+    ln WindowId.3 Tk_Attributes.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_BindEvent.3
+    ln BindTable.3 Tk_BindEvent.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasDrawableCoords.3
+    ln CanvTkwin.3 Tk_CanvasDrawableCoords.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasEventuallyRedraw.3
+    ln CanvTkwin.3 Tk_CanvasEventuallyRedraw.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasGetCoord.3
+    ln CanvTkwin.3 Tk_CanvasGetCoord.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsBitmap.3
+    ln CanvPsY.3 Tk_CanvasPsBitmap.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsColor.3
+    ln CanvPsY.3 Tk_CanvasPsColor.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsFont.3
+    ln CanvPsY.3 Tk_CanvasPsFont.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsPath.3
+    ln CanvPsY.3 Tk_CanvasPsPath.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsStipple.3
+    ln CanvPsY.3 Tk_CanvasPsStipple.3
+fi
+if test -r CanvPsY.3; then
+    rm -f Tk_CanvasPsY.3
+    ln CanvPsY.3 Tk_CanvasPsY.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasSetStippleOrigin.3
+    ln CanvTkwin.3 Tk_CanvasSetStippleOrigin.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasTagsOption.3
+    ln CanvTkwin.3 Tk_CanvasTagsOption.3
+fi
+if test -r CanvTxtInfo.3; then
+    rm -f Tk_CanvasTextInfo.3
+    ln CanvTxtInfo.3 Tk_CanvasTextInfo.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasTkwin.3
+    ln CanvTkwin.3 Tk_CanvasTkwin.3
+fi
+if test -r CanvTkwin.3; then
+    rm -f Tk_CanvasWindowCoords.3
+    ln CanvTkwin.3 Tk_CanvasWindowCoords.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_ChangeWindowAttributes.3
+    ln ConfigWind.3 Tk_ChangeWindowAttributes.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Changes.3
+    ln WindowId.3 Tk_Changes.3
+fi
+if test -r SetClass.3; then
+    rm -f Tk_Class.3
+    ln SetClass.3 Tk_Class.3
+fi
+if test -r ClrSelect.3; then
+    rm -f Tk_ClearSelection.3
+    ln ClrSelect.3 Tk_ClearSelection.3
+fi
+if test -r Clipboard.3; then
+    rm -f Tk_ClipboardAppend.3
+    ln Clipboard.3 Tk_ClipboardAppend.3
+fi
+if test -r Clipboard.3; then
+    rm -f Tk_ClipboardClear.3
+    ln Clipboard.3 Tk_ClipboardClear.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Colormap.3
+    ln WindowId.3 Tk_Colormap.3
+fi
+if test -r ConfigWidg.3; then
+    rm -f Tk_ConfigureInfo.3
+    ln ConfigWidg.3 Tk_ConfigureInfo.3
+fi
+if test -r ConfigWidg.3; then
+    rm -f Tk_ConfigureValue.3
+    ln ConfigWidg.3 Tk_ConfigureValue.3
+fi
+if test -r ConfigWidg.3; then
+    rm -f Tk_ConfigureWidget.3
+    ln ConfigWidg.3 Tk_ConfigureWidget.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_ConfigureWindow.3
+    ln ConfigWind.3 Tk_ConfigureWindow.3
+fi
+if test -r CoordToWin.3; then
+    rm -f Tk_CoordsToWindow.3
+    ln CoordToWin.3 Tk_CoordsToWindow.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_CreateBinding.3
+    ln BindTable.3 Tk_CreateBinding.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_CreateBindingTable.3
+    ln BindTable.3 Tk_CreateBindingTable.3
+fi
+if test -r CrtErrHdlr.3; then
+    rm -f Tk_CreateErrorHandler.3
+    ln CrtErrHdlr.3 Tk_CreateErrorHandler.3
+fi
+if test -r EventHndlr.3; then
+    rm -f Tk_CreateEventHandler.3
+    ln EventHndlr.3 Tk_CreateEventHandler.3
+fi
+if test -r CrtGenHdlr.3; then
+    rm -f Tk_CreateGenericHandler.3
+    ln CrtGenHdlr.3 Tk_CreateGenericHandler.3
+fi
+if test -r CrtImgType.3; then
+    rm -f Tk_CreateImageType.3
+    ln CrtImgType.3 Tk_CreateImageType.3
+fi
+if test -r CrtItemType.3; then
+    rm -f Tk_CreateItemType.3
+    ln CrtItemType.3 Tk_CreateItemType.3
+fi
+if test -r CrtPhImgFmt.3; then
+    rm -f Tk_CreatePhotoImageFormat.3
+    ln CrtPhImgFmt.3 Tk_CreatePhotoImageFormat.3
+fi
+if test -r CrtSelHdlr.3; then
+    rm -f Tk_CreateSelHandler.3
+    ln CrtSelHdlr.3 Tk_CreateSelHandler.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_DefineBitmap.3
+    ln GetBitmap.3 Tk_DefineBitmap.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_DefineCursor.3
+    ln ConfigWind.3 Tk_DefineCursor.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_DeleteAllBindings.3
+    ln BindTable.3 Tk_DeleteAllBindings.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_DeleteBinding.3
+    ln BindTable.3 Tk_DeleteBinding.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_DeleteBindingTable.3
+    ln BindTable.3 Tk_DeleteBindingTable.3
+fi
+if test -r CrtErrHdlr.3; then
+    rm -f Tk_DeleteErrorHandler.3
+    ln CrtErrHdlr.3 Tk_DeleteErrorHandler.3
+fi
+if test -r EventHndlr.3; then
+    rm -f Tk_DeleteEventHandler.3
+    ln EventHndlr.3 Tk_DeleteEventHandler.3
+fi
+if test -r CrtGenHdlr.3; then
+    rm -f Tk_DeleteGenericHandler.3
+    ln CrtGenHdlr.3 Tk_DeleteGenericHandler.3
+fi
+if test -r DeleteImg.3; then
+    rm -f Tk_DeleteImage.3
+    ln DeleteImg.3 Tk_DeleteImage.3
+fi
+if test -r CrtSelHdlr.3; then
+    rm -f Tk_DeleteSelHandler.3
+    ln CrtSelHdlr.3 Tk_DeleteSelHandler.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Depth.3
+    ln WindowId.3 Tk_Depth.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Display.3
+    ln WindowId.3 Tk_Display.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_DisplayName.3
+    ln WindowId.3 Tk_DisplayName.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Draw3DPolygon.3
+    ln 3DBorder.3 Tk_Draw3DPolygon.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Draw3DRectangle.3
+    ln 3DBorder.3 Tk_Draw3DRectangle.3
+fi
+if test -r DrawFocHlt.3; then
+    rm -f Tk_DrawFocusHighlight.3
+    ln DrawFocHlt.3 Tk_DrawFocusHighlight.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Fill3DPolygon.3
+    ln 3DBorder.3 Tk_Fill3DPolygon.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Fill3DRectangle.3
+    ln 3DBorder.3 Tk_Fill3DRectangle.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_FindPhoto.3
+    ln FindPhoto.3 Tk_FindPhoto.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Free3DBorder.3
+    ln 3DBorder.3 Tk_Free3DBorder.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_FreeBitmap.3
+    ln GetBitmap.3 Tk_FreeBitmap.3
+fi
+if test -r GetColor.3; then
+    rm -f Tk_FreeColor.3
+    ln GetColor.3 Tk_FreeColor.3
+fi
+if test -r GetClrmap.3; then
+    rm -f Tk_FreeColormap.3
+    ln GetClrmap.3 Tk_FreeColormap.3
+fi
+if test -r GetCursor.3; then
+    rm -f Tk_FreeCursor.3
+    ln GetCursor.3 Tk_FreeCursor.3
+fi
+if test -r GetFontStr.3; then
+    rm -f Tk_FreeFontStruct.3
+    ln GetFontStr.3 Tk_FreeFontStruct.3
+fi
+if test -r GetGC.3; then
+    rm -f Tk_FreeGC.3
+    ln GetGC.3 Tk_FreeGC.3
+fi
+if test -r GetImage.3; then
+    rm -f Tk_FreeImage.3
+    ln GetImage.3 Tk_FreeImage.3
+fi
+if test -r ConfigWidg.3; then
+    rm -f Tk_FreeOptions.3
+    ln ConfigWidg.3 Tk_FreeOptions.3
+fi
+if test -r GetPixmap.3; then
+    rm -f Tk_FreePixmap.3
+    ln GetPixmap.3 Tk_FreePixmap.3
+fi
+if test -r FreeXId.3; then
+    rm -f Tk_FreeXId.3
+    ln FreeXId.3 Tk_FreeXId.3
+fi
+if test -r GeomReq.3; then
+    rm -f Tk_GeometryRequest.3
+    ln GeomReq.3 Tk_GeometryRequest.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_Get3DBorder.3
+    ln 3DBorder.3 Tk_Get3DBorder.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_GetAllBindings.3
+    ln BindTable.3 Tk_GetAllBindings.3
+fi
+if test -r GetAnchor.3; then
+    rm -f Tk_GetAnchor.3
+    ln GetAnchor.3 Tk_GetAnchor.3
+fi
+if test -r InternAtom.3; then
+    rm -f Tk_GetAtomName.3
+    ln InternAtom.3 Tk_GetAtomName.3
+fi
+if test -r BindTable.3; then
+    rm -f Tk_GetBinding.3
+    ln BindTable.3 Tk_GetBinding.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_GetBitmap.3
+    ln GetBitmap.3 Tk_GetBitmap.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_GetBitmapFromData.3
+    ln GetBitmap.3 Tk_GetBitmapFromData.3
+fi
+if test -r GetCapStyl.3; then
+    rm -f Tk_GetCapStyle.3
+    ln GetCapStyl.3 Tk_GetCapStyle.3
+fi
+if test -r GetColor.3; then
+    rm -f Tk_GetColor.3
+    ln GetColor.3 Tk_GetColor.3
+fi
+if test -r GetColor.3; then
+    rm -f Tk_GetColorByValue.3
+    ln GetColor.3 Tk_GetColorByValue.3
+fi
+if test -r GetClrmap.3; then
+    rm -f Tk_GetColormap.3
+    ln GetClrmap.3 Tk_GetColormap.3
+fi
+if test -r GetCursor.3; then
+    rm -f Tk_GetCursor.3
+    ln GetCursor.3 Tk_GetCursor.3
+fi
+if test -r GetCursor.3; then
+    rm -f Tk_GetCursorFromData.3
+    ln GetCursor.3 Tk_GetCursorFromData.3
+fi
+if test -r GetFontStr.3; then
+    rm -f Tk_GetFontStruct.3
+    ln GetFontStr.3 Tk_GetFontStruct.3
+fi
+if test -r GetGC.3; then
+    rm -f Tk_GetGC.3
+    ln GetGC.3 Tk_GetGC.3
+fi
+if test -r GetImage.3; then
+    rm -f Tk_GetImage.3
+    ln GetImage.3 Tk_GetImage.3
+fi
+if test -r CrtItemType.3; then
+    rm -f Tk_GetItemTypes.3
+    ln CrtItemType.3 Tk_GetItemTypes.3
+fi
+if test -r GetJoinStl.3; then
+    rm -f Tk_GetJoinStyle.3
+    ln GetJoinStl.3 Tk_GetJoinStyle.3
+fi
+if test -r GetJustify.3; then
+    rm -f Tk_GetJustify.3
+    ln GetJustify.3 Tk_GetJustify.3
+fi
+if test -r GetOption.3; then
+    rm -f Tk_GetOption.3
+    ln GetOption.3 Tk_GetOption.3
+fi
+if test -r GetPixels.3; then
+    rm -f Tk_GetPixels.3
+    ln GetPixels.3 Tk_GetPixels.3
+fi
+if test -r GetPixmap.3; then
+    rm -f Tk_GetPixmap.3
+    ln GetPixmap.3 Tk_GetPixmap.3
+fi
+if test -r GetRelief.3; then
+    rm -f Tk_GetRelief.3
+    ln GetRelief.3 Tk_GetRelief.3
+fi
+if test -r GetRootCrd.3; then
+    rm -f Tk_GetRootCoords.3
+    ln GetRootCrd.3 Tk_GetRootCoords.3
+fi
+if test -r GetPixels.3; then
+    rm -f Tk_GetScreenMM.3
+    ln GetPixels.3 Tk_GetScreenMM.3
+fi
+if test -r GetScroll.3; then
+    rm -f Tk_GetScrollInfo.3
+    ln GetScroll.3 Tk_GetScrollInfo.3
+fi
+if test -r GetSelect.3; then
+    rm -f Tk_GetSelection.3
+    ln GetSelect.3 Tk_GetSelection.3
+fi
+if test -r GetUid.3; then
+    rm -f Tk_GetUid.3
+    ln GetUid.3 Tk_GetUid.3
+fi
+if test -r GetVRoot.3; then
+    rm -f Tk_GetVRootGeometry.3
+    ln GetVRoot.3 Tk_GetVRootGeometry.3
+fi
+if test -r GetVisual.3; then
+    rm -f Tk_GetVisual.3
+    ln GetVisual.3 Tk_GetVisual.3
+fi
+if test -r HandleEvent.3; then
+    rm -f Tk_HandleEvent.3
+    ln HandleEvent.3 Tk_HandleEvent.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Height.3
+    ln WindowId.3 Tk_Height.3
+fi
+if test -r IdToWindow.3; then
+    rm -f Tk_IdToWindow.3
+    ln IdToWindow.3 Tk_IdToWindow.3
+fi
+if test -r ImgChanged.3; then
+    rm -f Tk_ImageChanged.3
+    ln ImgChanged.3 Tk_ImageChanged.3
+fi
+if test -r InternAtom.3; then
+    rm -f Tk_InternAtom.3
+    ln InternAtom.3 Tk_InternAtom.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_InternalBorderWidth.3
+    ln WindowId.3 Tk_InternalBorderWidth.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_IsMapped.3
+    ln WindowId.3 Tk_IsMapped.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_IsTopLevel.3
+    ln WindowId.3 Tk_IsTopLevel.3
+fi
+if test -r MainLoop.3; then
+    rm -f Tk_MainLoop.3
+    ln MainLoop.3 Tk_MainLoop.3
+fi
+if test -r MainWin.3; then
+    rm -f Tk_MainWindow.3
+    ln MainWin.3 Tk_MainWindow.3
+fi
+if test -r MaintGeom.3; then
+    rm -f Tk_MaintainGeometry.3
+    ln MaintGeom.3 Tk_MaintainGeometry.3
+fi
+if test -r ManageGeom.3; then
+    rm -f Tk_ManageGeometry.3
+    ln ManageGeom.3 Tk_ManageGeometry.3
+fi
+if test -r MapWindow.3; then
+    rm -f Tk_MapWindow.3
+    ln MapWindow.3 Tk_MapWindow.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_MoveResizeWindow.3
+    ln ConfigWind.3 Tk_MoveResizeWindow.3
+fi
+if test -r MoveToplev.3; then
+    rm -f Tk_MoveToplevelWindow.3
+    ln MoveToplev.3 Tk_MoveToplevelWindow.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_MoveWindow.3
+    ln ConfigWind.3 Tk_MoveWindow.3
+fi
+if test -r Name.3; then
+    rm -f Tk_Name.3
+    ln Name.3 Tk_Name.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_NameOf3DBorder.3
+    ln 3DBorder.3 Tk_NameOf3DBorder.3
+fi
+if test -r GetAnchor.3; then
+    rm -f Tk_NameOfAnchor.3
+    ln GetAnchor.3 Tk_NameOfAnchor.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_NameOfBitmap.3
+    ln GetBitmap.3 Tk_NameOfBitmap.3
+fi
+if test -r GetCapStyl.3; then
+    rm -f Tk_NameOfCapStyle.3
+    ln GetCapStyl.3 Tk_NameOfCapStyle.3
+fi
+if test -r GetColor.3; then
+    rm -f Tk_NameOfColor.3
+    ln GetColor.3 Tk_NameOfColor.3
+fi
+if test -r GetCursor.3; then
+    rm -f Tk_NameOfCursor.3
+    ln GetCursor.3 Tk_NameOfCursor.3
+fi
+if test -r GetFontStr.3; then
+    rm -f Tk_NameOfFontStruct.3
+    ln GetFontStr.3 Tk_NameOfFontStruct.3
+fi
+if test -r NameOfImg.3; then
+    rm -f Tk_NameOfImage.3
+    ln NameOfImg.3 Tk_NameOfImage.3
+fi
+if test -r GetJoinStl.3; then
+    rm -f Tk_NameOfJoinStyle.3
+    ln GetJoinStl.3 Tk_NameOfJoinStyle.3
+fi
+if test -r GetJustify.3; then
+    rm -f Tk_NameOfJustify.3
+    ln GetJustify.3 Tk_NameOfJustify.3
+fi
+if test -r GetRelief.3; then
+    rm -f Tk_NameOfRelief.3
+    ln GetRelief.3 Tk_NameOfRelief.3
+fi
+if test -r Name.3; then
+    rm -f Tk_NameToWindow.3
+    ln Name.3 Tk_NameToWindow.3
+fi
+if test -r ConfigWidg.3; then
+    rm -f Tk_Offset.3
+    ln ConfigWidg.3 Tk_Offset.3
+fi
+if test -r OwnSelect.3; then
+    rm -f Tk_OwnSelection.3
+    ln OwnSelect.3 Tk_OwnSelection.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Parent.3
+    ln WindowId.3 Tk_Parent.3
+fi
+if test -r ParseArgv.3; then
+    rm -f Tk_ParseArgv.3
+    ln ParseArgv.3 Tk_ParseArgv.3
+fi
+if test -r Name.3; then
+    rm -f Tk_PathName.3
+    ln Name.3 Tk_PathName.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoBlank.3
+    ln FindPhoto.3 Tk_PhotoBlank.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoExpand.3
+    ln FindPhoto.3 Tk_PhotoExpand.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoGetImage.3
+    ln FindPhoto.3 Tk_PhotoGetImage.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoGetSize.3
+    ln FindPhoto.3 Tk_PhotoGetSize.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoPutBlock.3
+    ln FindPhoto.3 Tk_PhotoPutBlock.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoPutZoomedBlock.3
+    ln FindPhoto.3 Tk_PhotoPutZoomedBlock.3
+fi
+if test -r FindPhoto.3; then
+    rm -f Tk_PhotoSetSize.3
+    ln FindPhoto.3 Tk_PhotoSetSize.3
+fi
+if test -r QWinEvent.3; then
+    rm -f Tk_QueueWindowEvent.3
+    ln QWinEvent.3 Tk_QueueWindowEvent.3
+fi
+if test -r GetImage.3; then
+    rm -f Tk_RedrawImage.3
+    ln GetImage.3 Tk_RedrawImage.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_ReqHeight.3
+    ln WindowId.3 Tk_ReqHeight.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_ReqWidth.3
+    ln WindowId.3 Tk_ReqWidth.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_ResizeWindow.3
+    ln ConfigWind.3 Tk_ResizeWindow.3
+fi
+if test -r Restack.3; then
+    rm -f Tk_RestackWindow.3
+    ln Restack.3 Tk_RestackWindow.3
+fi
+if test -r RestrictEv.3; then
+    rm -f Tk_RestrictEvents.3
+    ln RestrictEv.3 Tk_RestrictEvents.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Screen.3
+    ln WindowId.3 Tk_Screen.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_ScreenNumber.3
+    ln WindowId.3 Tk_ScreenNumber.3
+fi
+if test -r SetAppName.3; then
+    rm -f Tk_SetAppName.3
+    ln SetAppName.3 Tk_SetAppName.3
+fi
+if test -r 3DBorder.3; then
+    rm -f Tk_SetBackgroundFromBorder.3
+    ln 3DBorder.3 Tk_SetBackgroundFromBorder.3
+fi
+if test -r SetClass.3; then
+    rm -f Tk_SetClass.3
+    ln SetClass.3 Tk_SetClass.3
+fi
+if test -r SetGrid.3; then
+    rm -f Tk_SetGrid.3
+    ln SetGrid.3 Tk_SetGrid.3
+fi
+if test -r GeomReq.3; then
+    rm -f Tk_SetInternalBorder.3
+    ln GeomReq.3 Tk_SetInternalBorder.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowBackground.3
+    ln ConfigWind.3 Tk_SetWindowBackground.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowBackgroundPixmap.3
+    ln ConfigWind.3 Tk_SetWindowBackgroundPixmap.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowBorder.3
+    ln ConfigWind.3 Tk_SetWindowBorder.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowBorderPixmap.3
+    ln ConfigWind.3 Tk_SetWindowBorderPixmap.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowBorderWidth.3
+    ln ConfigWind.3 Tk_SetWindowBorderWidth.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_SetWindowColormap.3
+    ln ConfigWind.3 Tk_SetWindowColormap.3
+fi
+if test -r SetVisual.3; then
+    rm -f Tk_SetWindowVisual.3
+    ln SetVisual.3 Tk_SetWindowVisual.3
+fi
+if test -r GetBitmap.3; then
+    rm -f Tk_SizeOfBitmap.3
+    ln GetBitmap.3 Tk_SizeOfBitmap.3
+fi
+if test -r GetImage.3; then
+    rm -f Tk_SizeOfImage.3
+    ln GetImage.3 Tk_SizeOfImage.3
+fi
+if test -r StrictMotif.3; then
+    rm -f Tk_StrictMotif.3
+    ln StrictMotif.3 Tk_StrictMotif.3
+fi
+if test -r GetUid.3; then
+    rm -f Tk_Uid.3
+    ln GetUid.3 Tk_Uid.3
+fi
+if test -r ConfigWind.3; then
+    rm -f Tk_UndefineCursor.3
+    ln ConfigWind.3 Tk_UndefineCursor.3
+fi
+if test -r MaintGeom.3; then
+    rm -f Tk_UnmaintainGeometry.3
+    ln MaintGeom.3 Tk_UnmaintainGeometry.3
+fi
+if test -r MapWindow.3; then
+    rm -f Tk_UnmapWindow.3
+    ln MapWindow.3 Tk_UnmapWindow.3
+fi
+if test -r SetGrid.3; then
+    rm -f Tk_UnsetGrid.3
+    ln SetGrid.3 Tk_UnsetGrid.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Visual.3
+    ln WindowId.3 Tk_Visual.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Width.3
+    ln WindowId.3 Tk_Width.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_WindowId.3
+    ln WindowId.3 Tk_WindowId.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_X.3
+    ln WindowId.3 Tk_X.3
+fi
+if test -r WindowId.3; then
+    rm -f Tk_Y.3
+    ln WindowId.3 Tk_Y.3
+fi
+if test -r menubar.n; then
+    rm -f tk_bindForTraversal.n
+    ln menubar.n tk_bindForTraversal.n
+fi
+if test -r palette.n; then
+    rm -f tk_bisque.n
+    ln palette.n tk_bisque.n
+fi
+if test -r dialog.n; then
+    rm -f tk_dialog.n
+    ln dialog.n tk_dialog.n
+fi
+if test -r focusNext.n; then
+    rm -f tk_focusFollowsMouse.n
+    ln focusNext.n tk_focusFollowsMouse.n
+fi
+if test -r focusNext.n; then
+    rm -f tk_focusNext.n
+    ln focusNext.n tk_focusNext.n
+fi
+if test -r focusNext.n; then
+    rm -f tk_focusPrev.n
+    ln focusNext.n tk_focusPrev.n
+fi
+if test -r menubar.n; then
+    rm -f tk_menuBar.n
+    ln menubar.n tk_menuBar.n
+fi
+if test -r optionMenu.n; then
+    rm -f tk_optionMenu.n
+    ln optionMenu.n tk_optionMenu.n
+fi
+if test -r popup.n; then
+    rm -f tk_popup.n
+    ln popup.n tk_popup.n
+fi
+if test -r palette.n; then
+    rm -f tk_setPalette.n
+    ln palette.n tk_setPalette.n
+fi
+exit 0
diff --git a/Tk/unix/porting.notes b/Tk/unix/porting.notes
new file mode 100644
index 0000000..ecb395d
--- /dev/null
+++ b/Tk/unix/porting.notes
@@ -0,0 +1,86 @@
+This file contains a collection of notes that various people have
+provided about porting Tk to various machines and operating systems.
+I don't have personal access to any of these machines, so I make
+no guarantees that the notes are correct, complete, or up-to-date.
+If you see the word "I" in any explanations, it refers to the person
+who contributed the information, not to me;  this means that I
+probably can't answer any questions about any of this stuff. In
+some cases, a person has volunteered to act as a contact point for
+questions about porting Tcl to a particular machine;  in these
+cases the person's name and e-mail address are listed.  I'm very
+interested in getting new porting information to add to the file;
+please mail updates to "john.ousterhout@eng.sun.com".
+
+This file reflects information provided for Tk 4.0 and later releases.
+If there is no information for your configuration in this file, check
+the file "porting.old" too;  it contains information that was
+submitted for Tk 3.6 and earlier releases, and some of that information
+may still be valid.
+
+A new porting database has recently become available on the Web at
+the following URL:
+    http://www.sunlabs.com/cgi-bin/tcl/info.4.0
+This page provides information about the platforms on which Tcl 7.4
+and Tk 4.0 have been compiled and what changes were needed to get Tcl
+and Tk to compile.  You can also add new entries to that database
+when you install Tcl and Tk on a new platform.  The Web database is
+likely to be more up-to-date than this file.
+
+sccsid = SCCS: @(#) porting.notes 1.10 96/04/10 15:38:54
+
+--------------------------------------------
+Solaris, various versions
+--------------------------------------------
+
+1. If typing "make test" results in an error message saying that
+there are no "*.test" files, or you get lots of globbing errors,
+it's probably because your system doesn't have cc installed and
+you used gcc.  In order for this to work, you have to set your
+CC environment variable to gcc and your CPP environment variable
+to "gcc -E" before running the configure script.
+
+2. Make sure that /usr/ucb is not in your PATH or LD_LIBRARY_PATH
+environment variables;  this will cause confusion between the new
+Solaris libraries and older UCB versions (Tk will expect one version
+and get another).
+
+3. On 486 PCs with Solaris 2.4, when compiling with gcc 2.6.0,
+tkMessage.c appears to hang gcc.  If the -O switch is removed
+then it compiles fine.
+
+--------------------------------------------
+486 PCs, Solaris 2.4
+--------------------------------------------
+
+When compiling with gcc 2.6.0, tkMessage.c appears to hang gcc.
+If the -O switch is removed then it compiles fine.
+
+--------------------------------------------
+SGI machines, IRIX 5.2, 5.3, IRIX64 6.0.1
+--------------------------------------------
+
+1. Add "-D_BSD_TIME" to CFLAGS in Makefile.  This avoids type conflicts
+in the prototype for the gettimeofday procedure.
+
+2. If you're running under Irix 6.x and wish dumps core, try
+removing -O from the CFLAGS in Makefile and recompiling;  compiler
+optimizations seem to cause problems on some machines.
+
+--------------------------------------------
+QNX 4.22
+--------------------------------------------
+
+All of the source files built as is.  All I had to do was edit the
+Makefile generated by ./configure to specify where the X11 libraries
+were (ie, I added in -L/usr/X11/lib)
+
+--------------------------------------------
+HP-UX
+--------------------------------------------
+
+There are problems compiling Tk gcc (version 2.7.2) and the HP assembler.
+The problem is that if static functions are called using a pointer reference,
+double arguments are not transferred correctly into the function. That can
+be fixed by making all those functions global. This happens with the
+ScaleXxx() and TranslateXxx() functions for all canvas item types.
+The simplest fix is configure gcc to use the GNU assembler.
diff --git a/Tk/unix/porting.old b/Tk/unix/porting.old
new file mode 100644
index 0000000..ea8aa5c
--- /dev/null
+++ b/Tk/unix/porting.old
@@ -0,0 +1,324 @@
+This is an old version of the file "porting.notes".  It contains
+porting information that people submitted for Tk releases numbered
+3.6 and earlier.  You may find information in this file useful if
+there is no information available for your machine in the current
+version of "porting.notes".
+
+I don't have personal access to any of these machines, so I make
+no guarantees that the notes are correct, complete, or up-to-date.
+If you see the word "I" in any explanations, it refers to the person
+who contributed the information, not to me;  this means that I
+probably can't answer any questions about any of this stuff. In
+some cases, a person has volunteered to act as a contact point for
+questions about porting Tcl to a particular machine;  in these
+cases the person's name and e-mail address are listed.  I'd be
+happy to receive corrections or updates.
+
+sccsid = SCCS: @(#) porting.old 1.2 96/02/16 10:27:30
+
+---------------------------------------------
+DEC Alphas:
+---------------------------------------------
+
+1. There appears to be a compiler/library bug that prevents tkTrig.c
+from compiling unless you turn off optimization (remove the -O compiler
+switch).  The problem appears to have been fixed in the 1.3-4 version
+of the compiler.
+
+---------------------------------------------
+HP-UX systems:
+---------------------------------------------
+
+1. Configuration:
+	    HP-UX Release 7.05 on a series 300 (68k) machine.
+	    The native cc has been used for production.
+	    X11r4 libraries and include files were taken from
+	    internet archives, where as the server came with HPUX release 7.05.
+    
+    Problems:
+	    Symbol table space for cc had to be increased with: -Wc,-Ns3000
+	    tkBind.c did not compile under -O:
+		    C1 internal error in "GetField": Set Error Detected
+		    *** Error code 1
+	    tkBind.c did compile without optimization (no -O).
+
+2. Note: if you have trouble getting xauth-style access control to work
+(and you'll need xauth if you want to use "send"), be sure to uncomment
+the line
+
+# Vuelogin*authorize:         True
+
+in the file /usr/vue/config/Xconfig, so that the server starts up with
+authorization enabled.  Also, you may have to reboot the machine in
+order to force the server to restart.
+
+---------------------------------------------
+SCO Unix:
+---------------------------------------------
+
+Getting Tk to run under SCO Unix:
+
+Add a "#undef select" to tkEvent.c, and remove the reference to TK_EXCEPTION
+around line 460 of main.c.
+
+Tk uses its own scheme for allocating the border colors for its 3D widgets,
+which causes problems when running TK on a system with "PseudoColor"
+display class, and a 16-cell colormap.
+
+If you can't go to eight bitplanes, you can instead start the server with a
+"-static" (Xsco) or "-analog" (Xsight) option, making the display class 
+become "StaticColor".  This makes the entire colormap read-only, and it will
+return the color that most closely maps to the desired color as possible.
+
+---------------------------------------------
+Silicon Graphics systems:
+---------------------------------------------
+
+1. Change the CC variable in the Makefile to:
+
+CC =		cc -xansi -D__STDC__ -signed
+
+2. Change the LIBS variable in the Makefile to use the X11 shared library
+   ("-lX11_s" instead of "-lX11").
+
+3. Under some versions of IRIX (e.g. 4.0.1) you have to turn off
+   optimization (e.g.  change "-O" in CFLAGS to "-O0" or remove it
+   entirely) because of faulty code generation.  If the Tcl or Tk test
+   suites fail, turn off optimization.
+
+4. Add a "-lsun" switch just before "-lm" in the LIBS definition.
+   Under some versions of IRIX (5.1.1.3?) you'll need to omit the
+   "-lsun" switch, plus remove the "-lsocket" and "-lnsl" switches
+   added by the configure script;  otherwise you won't be able to
+   use symbolic host names for the display, only numerical Internet
+   addresses.
+
+5. Rumor has it that you'll also need a "-lmalloc" switch in the
+   LIBS definition.
+
+6. In IRIX 5.2 you'll have to modify Makefile to fix the following problems:
+    - The "-c" option is illegal with this version of install, but
+      the "-F" switch is needed instead.  Change this in the "INSTALL ="
+      definition line.
+    - The order of file and directory have to be changed in all the
+      invocations of INSTALL_DATA or INSTALL_PROGRAM.
+
+---------------------------------------------
+IBM RS/6000's:
+---------------------------------------------
+1. To allow ALT- sequences to work on the RS-6000, the following
+line should be changed in tkBind.c:
+
+    OLD LINE:
+     {"Alt",	Mod2Mask, 	0},
+    NEW LINE:
+     {"Alt",	Mod1Mask, 	0},
+
+---------------------------------------------
+AT&T SVR4:
+---------------------------------------------
+
+1. The first major hurdle is that SVR4's select() subtly differs
+from BSD select.  This impacts Tk in two ways, some of the Xlib calls
+make use of select() and are inherently broken and Tk itself makes
+extensive use of select().  The first problem can't be fixed without
+rebuilding one's Xlib, but can be avoided.  I intend to submit part
+of my work the XFree86 guys so that the next version of XFree86 for
+SVR4 will not be broken.  Until then, it is necessary to comment out
+this section of code from Tk_DoOneEvent() (which is near line 1227):
+
+#if !defined(SVR4)
+                    void (*oldHandler)();
+
+                    oldHandler = (void (*)()) signal(SIGPIPE, SIG_IGN);
+                    XNoOp(display);
+                    XFlush(display);
+                    (void) signal(SIGPIPE, oldHandler);
+#endif /* SVR4 */
+
+if you don't comment it out, some scripts cause wish to go into
+an infinite loop of sending no-ops to the X server.
+
+2. As for fixing Tk's calls to select(), I've taken the simple
+approach of writing a wrapper for select and then using #define to
+replace all calls to select with the wrapper.  I chose tkConfig.h
+to load the wrapper.  So at the very end of tkConfig.h, it now looks
+like:
+
+#if defined(SVR4)
+#  include "BSDselect.h"
+#endif 
+
+#endif /* _TKCONFIG */
+
+The file BSDselect.h looks like this:
+
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sys/select.h>
+
+/*  This is a fix for the difference between BSD's select() and
+ *  SVR4's select().  SVR4's select() can never return a value larger
+ *  than the total number of file descriptors being checked.  So, if
+ *  you select for read and write on one file descriptor, and both
+ *  are true, SVR4 select() will only return 1.  BSD select in the
+ *  same situation will return 2.
+ *
+ *	Additionally, BSD select() on timing out, will zero the masks,
+ *	while SVR4 does not.  This is fixed here as well.
+ *
+ *	Set your tabstops to 4 characters to have this code nicely formatted.
+ *
+ *	Jerry Whelan, guru@bradley.edu, June 12th, 1993
+ */
+
+
+int
+BSDselect(nfds, readfds, writefds, exceptfds, timeout)
+int nfds;
+fd_set *readfds, *writefds, *exceptfds;
+struct timeval *timeout;
+{
+	int		rval,
+			i;
+
+	rval = select(nfds, readfds, writefds, exceptfds, timeout);
+
+	switch(rval) {
+		case -1:	return(rval);
+					break;
+
+		case 0:		if(readfds != NULL)
+						FD_ZERO(readfds);
+					if(writefds != NULL)
+						FD_ZERO(writefds);
+					if(exceptfds != NULL)
+						FD_ZERO(exceptfds);
+
+					return(rval);
+					break;
+
+		default:	for(i=0, rval=0; i < nfds; i++) {
+						if((readfds != NULL) && FD_ISSET
+(i, readfds)) rval++;
+						if((writefds != NULL) && FD_ISSE
+T(i, writefds)) rval++;
+						if((writefds != NULL) && FD_ISSE
+T(i, exceptfds)) rval++;
+					}
+					return(rval);
+		}
+/* Should never get here */
+}
+
+---------------------------------------------
+CDC 4680MP, EP/IX 1.4.3:
+---------------------------------------------
+
+The installation was done in the System V environment (-systype sysv)
+with the BSD extensions available (-I/usr/include/bsd and -lbsd).  It was
+built with the 2.20 level C compiler.  The 2.11 level can be used, but
+it is better to match what TCL is built with, which must be 2.20 or
+higher (see the porting notes with TCL for the details).
+
+To make the configure script find the BSD extensions, I set environment
+variable DEFS to "-I/usr/include/bsd" and LIBS to "-lbsd" before
+running it.  I would have also set CC to "cc2.20", but that compiler
+driver has a bug that loader errors (e.g. not finding a library routine,
+which the script uses to tell what is available) do not cause an error
+status to be returned to the shell (but see the Tcl 2.1.1 porting notes
+for comments about using "-non_shared").
+
+After running configure, I changed the CC definition line in Makefile
+from:
+	CC=cc
+to
+	CC=cc2.20
+to match the TCL build.  Skip this if the default compiler is already 2.20
+(or later).
+
+---------------------------------------------
+CDC 4680MP, EP/IX 2.1.1:
+---------------------------------------------
+
+The installation was done in the System V environment (-systype sysv)
+with the BSD extensions available (-I/usr/include/bsd and -lbsd).  It was
+built with the 3.11 level C compiler.  Earlier levels can be used, but it
+is better to match what TCL is built with, which must be 2.20 or higher
+(see the porting notes with TCL for the details).
+
+To make the configure script find the BSD extensions, I set environment
+variable DEFS to "-I/usr/include/bsd -non_shared" and LIBS to "-lbsd"
+before running it.
+
+See the Tcl porting notes for comments on why "-non_shared" is needed
+during the configuration step.  It was removed from AC_FLAGS before
+building.
+
+-------------------------------------------------
+Pyramid, OSx 5.1a (UCB universe, GCC installed):
+-------------------------------------------------
+
+Instead of typing "./configure" to configure, type
+
+    DEFS="-I/usr/include/X11/attinc" ./configure
+
+to sh to do the configuration.
+
+-------------------------------------------------
+NextSTEP 3.1:
+-------------------------------------------------
+
+1. Run configure with predefined CPP:
+	CPP='cc -E' ./configure
+   (If your shell is [t]csh, do a "setenv CPP 'cc -E'")
+
+2. Edit Makefile: 
+  -add the following to AC_FLAGS:
+	-Dstrtod=tcl_strtod
+
+Note: Tk's raise test may fail when running the tvtwm window manager.
+Changing to either twm or even better fvwm ensures that this test will
+succeed. 
+
+-------------------------------------------------
+Encore 91, UMAX V 3.0.9.3:
+-------------------------------------------------
+
+1. Modify the CFLAGS definition in Makefile to include -DENCORE:
+
+    CFLAGS = -O -DENCORE
+
+2. "mkdir" does not by default create the parent directories.  The mkdir
+directives should be modified to "midir -p".
+
+3. An error of a redeclaration of read, can be resolved by conditionally
+not compiling if an ENCORE system.
+
+#ifndef ENCORE
+extern int              read _ANSI_ARGS_((int fd, char *buf, size_t size));
+#endif
+
+-------------------------------------------------
+Sequent machines running Dynix:
+Contact: Andrew Swan (aswan@soda.berkeley.edu)
+-------------------------------------------------
+
+1. Use gcc instead of the cc distributed by Sequent
+
+2. There are problems with the distributed version of
+   <stddef.h>.  The easiest solution is probably to create a
+   copy of stddef.h, make sure it comes early in the include
+   path and then edit it as need be to eliminate conflicts
+   with the X11 header files.
+
+3. The same comments about the tanh function from the notes on
+   porting Tcl apply to Tk.
+
+-------------------------------------------------
+Systems running Interactive 4.0:
+-------------------------------------------------
+
+1. Add "-posix" to CFLAGS in Makefile (or Makefile.in).
+
+2. Add "-lnsl_s" to LIBS in Makefile (or Makefile.in).
diff --git a/Tk/unix/tkAppInit.c b/Tk/unix/tkAppInit.c
new file mode 100644
index 0000000..212ecd2
--- /dev/null
+++ b/Tk/unix/tkAppInit.c
@@ -0,0 +1,120 @@
+/* 
+ * tkAppInit.c --
+ *
+ *	Provides a default version of the Tcl_AppInit procedure for
+ *	use in wish and similar Tk-based applications.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkAppInit.c 1.21 96/03/26 16:47:07
+ */
+
+#include "tk.h"
+
+/*
+ * The following variable is a special hack that is needed in order for
+ * Sun shared libraries to be used for Tcl.
+ */
+
+extern int matherr();
+int *tclDummyMathPtr = (int *) matherr;
+
+#ifdef TK_TEST
+EXTERN int		Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp));
+#endif /* TK_TEST */
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * main --
+ *
+ *	This is the main program for the application.
+ *
+ * Results:
+ *	None: Tk_Main never returns here, so this procedure never
+ *	returns either.
+ *
+ * Side effects:
+ *	Whatever the application does.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+main(argc, argv)
+    int argc;			/* Number of command-line arguments. */
+    char **argv;		/* Values of command-line arguments. */
+{
+    Tk_Main(argc, argv, Tcl_AppInit);
+    return 0;			/* Needed only to prevent compiler warning. */
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AppInit --
+ *
+ *	This procedure performs application-specific initialization.
+ *	Most applications, especially those that incorporate additional
+ *	packages, will have their own version of this procedure.
+ *
+ * Results:
+ *	Returns a standard Tcl completion code, and leaves an error
+ *	message in interp->result if an error occurs.
+ *
+ * Side effects:
+ *	Depends on the startup script.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_AppInit(interp)
+    Tcl_Interp *interp;		/* Interpreter for application. */
+{
+    if (Tcl_Init(interp) == TCL_ERROR) {
+	return TCL_ERROR;
+    }
+    if (Tk_Init(interp) == TCL_ERROR) {
+	return TCL_ERROR;
+    }
+    Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
+#ifdef TK_TEST
+    if (Tktest_Init(interp) == TCL_ERROR) {
+	return TCL_ERROR;
+    }
+    Tcl_StaticPackage(interp, "Tktest", Tktest_Init,
+            (Tcl_PackageInitProc *) NULL);
+#endif /* TK_TEST */
+
+
+    /*
+     * Call the init procedures for included packages.  Each call should
+     * look like this:
+     *
+     * if (Mod_Init(interp) == TCL_ERROR) {
+     *     return TCL_ERROR;
+     * }
+     *
+     * where "Mod" is the name of the module.
+     */
+
+    /*
+     * Call Tcl_CreateCommand for application-specific commands, if
+     * they weren't already created by the init procedures called above.
+     */
+
+    /*
+     * Specify a user-specific startup file to invoke if the application
+     * is run interactively.  Typically the startup file is "~/.apprc"
+     * where "app" is the name of the application.  If this line is deleted
+     * then no user-specific startup file will be run under any conditions.
+     */
+
+    Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY);
+    return TCL_OK;
+}
diff --git a/Tk/unix/tkConfig.sh b/Tk/unix/tkConfig.sh
new file mode 100644
index 0000000..e69de29
diff --git a/Tk/unix/tkConfig.sh.in b/Tk/unix/tkConfig.sh.in
new file mode 100644
index 0000000..c9e43bc
--- /dev/null
+++ b/Tk/unix/tkConfig.sh.in
@@ -0,0 +1,50 @@
+# tkConfig.sh --
+# 
+# This shell script (for sh) is generated automatically by Tk's
+# configure script.  It will create shell variables for most of
+# the configuration options discovered by the configure script.
+# This script is intended to be included by the configure scripts
+# for Tk extensions so that they don't have to figure this all
+# out for themselves.  This file does not duplicate information
+# already provided by tclConfig.sh, so you may need to use that
+# file in addition to this one.
+#
+# The information in this file is specific to a single platform.
+#
+# SCCS: @(#) tkConfig.sh.in 1.5 96/04/15 09:49:11
+
+# Tk's version number.
+TK_VERSION='@TK_VERSION@'
+TK_MAJOR_VERSION='@TK_MAJOR_VERSION@'
+TK_MINOR_VERSION='@TK_MINOR_VERSION@'
+
+# -D flags for use with the C compiler.
+TK_DEFS='@DEFS@'
+
+# The name of the Tk library (may be either a .a file or a shared library):
+TK_LIB_FILE=@TK_LIB_FILE@
+
+# Additional libraries to use when linking Tk.
+TK_LIBS='@XLIBSW@ @DL_LIBS@ @LIBS@ @MATH_LIBS@'
+
+# Top-level directory in which Tcl's platform-independent files are
+# installed.
+TK_PREFIX='@prefix@'
+
+# Top-level directory in which Tcl's platform-specific files (e.g.
+# executables) are installed.
+TK_EXEC_PREFIX='@exec_prefix@'
+
+# -I switch(es) to use to make all of the X11 include files accessible:
+TK_XINCLUDES='@XINCLUDES@'
+
+# Linker switch(es) to use to link with the X11 library archive.
+TK_XLIBSW='@XLIBSW@'
+
+# String to pass to linker to pick up the Tk library from its
+# build directory.
+TK_BUILD_LIB_SPEC='@TK_BUILD_LIB_SPEC@'
+
+# String to pass to linker to pick up the Tk library from its
+# installed directory.
+TK_LIB_SPEC='@TK_LIB_SPEC@'
diff --git a/Tk/unix/tkUnix.c b/Tk/unix/tkUnix.c
new file mode 100644
index 0000000..3287913
--- /dev/null
+++ b/Tk/unix/tkUnix.c
@@ -0,0 +1,79 @@
+/* 
+ * tkUnix.c --
+ *
+ *	This file contains procedures that are UNIX/X-specific, and
+ *	will probably have to be written differently for Windows or
+ *	Macintosh platforms.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnix.c 1.3 96/02/15 18:55:18
+ */
+
+#include <tkInt.h>
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetServerInfo --
+ *
+ *	Given a window, this procedure returns information about
+ *	the window server for that window.  This procedure provides
+ *	the guts of the "winfo server" command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkGetServerInfo(interp, tkwin)
+    Tcl_Interp *interp;		/* The server information is returned in
+				 * this interpreter's result. */
+    Tk_Window tkwin;		/* Token for window;  this selects a
+				 * particular display and server. */
+{
+    char buffer[50], buffer2[50];
+
+    sprintf(buffer, "X%dR%d ", ProtocolVersion(Tk_Display(tkwin)),
+	    ProtocolRevision(Tk_Display(tkwin)));
+    sprintf(buffer2, " %d", VendorRelease(Tk_Display(tkwin)));
+    Tcl_AppendResult(interp, buffer, ServerVendor(Tk_Display(tkwin)),
+	    buffer2, (char *) NULL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetDefaultScreenName --
+ *
+ *	Returns the name of the screen that Tk should use during
+ *	initialization.
+ *
+ * Results:
+ *	Returns the argument or a string that should not be freed by
+ *	the caller.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+TkGetDefaultScreenName(interp, screenName)
+    Tcl_Interp *interp;		/* Interp used to find environment variables. */
+    char *screenName;		/* Screen name from command line, or NULL. */
+{
+    if ((screenName == NULL) || (screenName[0] == '\0')) {
+	screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY);
+    }
+    return screenName;
+}
diff --git a/Tk/unix/tkUnixCursor.c b/Tk/unix/tkUnixCursor.c
new file mode 100644
index 0000000..b6e6107
--- /dev/null
+++ b/Tk/unix/tkUnixCursor.c
@@ -0,0 +1,396 @@
+/* 
+ * tkUnixCursor.c --
+ *
+ *	This file contains X specific cursor manipulation routines.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixCursor.c 1.3 96/07/23 16:56:24
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The following data structure is a superset of the TkCursor structure
+ * defined in tkCursor.c.  Each system specific cursor module will define
+ * a different cursor structure.  All of these structures must have the
+ * same header consisting of the fields in TkCursor.
+ */
+
+
+
+typedef struct {
+    TkCursor info;		/* Generic cursor info used by tkCursor.c */
+    Display *display;		/* Display for which cursor is valid. */
+} TkUnixCursor;
+
+/*
+ * The table below is used to map from the name of a cursor to its
+ * index in the official cursor font:
+ */
+
+static struct CursorName {
+    char		*name;
+    unsigned int	shape;
+} cursorNames[] = {
+    {"X_cursor",		XC_X_cursor},
+    {"arrow",			XC_arrow},
+    {"based_arrow_down",	XC_based_arrow_down},
+    {"based_arrow_up",		XC_based_arrow_up},
+    {"boat",			XC_boat},
+    {"bogosity",		XC_bogosity},
+    {"bottom_left_corner",	XC_bottom_left_corner},
+    {"bottom_right_corner",	XC_bottom_right_corner},
+    {"bottom_side",		XC_bottom_side},
+    {"bottom_tee",		XC_bottom_tee},
+    {"box_spiral",		XC_box_spiral},
+    {"center_ptr",		XC_center_ptr},
+    {"circle",			XC_circle},
+    {"clock",			XC_clock},
+    {"coffee_mug",		XC_coffee_mug},
+    {"cross",			XC_cross},
+    {"cross_reverse",		XC_cross_reverse},
+    {"crosshair",		XC_crosshair},
+    {"diamond_cross",		XC_diamond_cross},
+    {"dot",			XC_dot},
+    {"dotbox",			XC_dotbox},
+    {"double_arrow",		XC_double_arrow},
+    {"draft_large",		XC_draft_large},
+    {"draft_small",		XC_draft_small},
+    {"draped_box",		XC_draped_box},
+    {"exchange",		XC_exchange},
+    {"fleur",			XC_fleur},
+    {"gobbler",			XC_gobbler},
+    {"gumby",			XC_gumby},
+    {"hand1",			XC_hand1},
+    {"hand2",			XC_hand2},
+    {"heart",			XC_heart},
+    {"icon",			XC_icon},
+    {"iron_cross",		XC_iron_cross},
+    {"left_ptr",		XC_left_ptr},
+    {"left_side",		XC_left_side},
+    {"left_tee",		XC_left_tee},
+    {"leftbutton",		XC_leftbutton},
+    {"ll_angle",		XC_ll_angle},
+    {"lr_angle",		XC_lr_angle},
+    {"man",			XC_man},
+    {"middlebutton",		XC_middlebutton},
+    {"mouse",			XC_mouse},
+    {"pencil",			XC_pencil},
+    {"pirate",			XC_pirate},
+    {"plus",			XC_plus},
+    {"question_arrow",		XC_question_arrow},
+    {"right_ptr",		XC_right_ptr},
+    {"right_side",		XC_right_side},
+    {"right_tee",		XC_right_tee},
+    {"rightbutton",		XC_rightbutton},
+    {"rtl_logo",		XC_rtl_logo},
+    {"sailboat",		XC_sailboat},
+    {"sb_down_arrow",		XC_sb_down_arrow},
+    {"sb_h_double_arrow",	XC_sb_h_double_arrow},
+    {"sb_left_arrow",		XC_sb_left_arrow},
+    {"sb_right_arrow",		XC_sb_right_arrow},
+    {"sb_up_arrow",		XC_sb_up_arrow},
+    {"sb_v_double_arrow",	XC_sb_v_double_arrow},
+    {"shuttle",			XC_shuttle},
+    {"sizing",			XC_sizing},
+    {"spider",			XC_spider},
+    {"spraycan",		XC_spraycan},
+    {"star",			XC_star},
+    {"target",			XC_target},
+    {"tcross",			XC_tcross},
+    {"top_left_arrow",		XC_top_left_arrow},
+    {"top_left_corner",		XC_top_left_corner},
+    {"top_right_corner",	XC_top_right_corner},
+    {"top_side",		XC_top_side},
+    {"top_tee",			XC_top_tee},
+    {"trek",			XC_trek},
+    {"ul_angle",		XC_ul_angle},
+    {"umbrella",		XC_umbrella},
+    {"ur_angle",		XC_ur_angle},
+    {"watch",			XC_watch},
+    {"xterm",			XC_xterm},
+    {NULL,			0}
+};
+
+/*
+ * Font to use for cursors:
+ */
+
+#ifndef CURSORFONT
+#define CURSORFONT "cursor"
+#endif
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetCursorByName --
+ *
+ *	Retrieve a cursor by name.  Parse the cursor name into fields
+ *	and create a cursor, either from the standard cursor font or
+ *	from bitmap files.
+ *
+ * Results:
+ *	Returns a new cursor, or NULL on errors.  
+ *
+ * Side effects:
+ *	Allocates a new cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkCursor *
+TkGetCursorByName(interp, tkwin, string)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    Tk_Uid string;		/* Description of cursor.  See manual entry
+				 * for details on legal syntax. */
+{
+    TkUnixCursor *cursorPtr = NULL;
+    Cursor cursor = None;
+    int argc;
+    char **argv = NULL;
+    Pixmap source = None;
+    Pixmap mask = None;
+    Display *display = Tk_Display(tkwin);
+
+    if (Tcl_SplitList(interp, string, &argc, &argv) != TCL_OK) {
+	return NULL;
+    }
+    if (argc == 0) {
+	goto badString;
+    }
+    if (argv[0][0] != '@') {
+	XColor fg, bg;
+	unsigned int maskIndex;
+	register struct CursorName *namePtr;
+	TkDisplay *dispPtr;
+
+	/*
+	 * The cursor is to come from the standard cursor font.  If one
+	 * arg, it is cursor name (use black and white for fg and bg).
+	 * If two args, they are name and fg color (ignore mask).  If
+	 * three args, they are name, fg, bg.  Some of the code below
+	 * is stolen from the XCreateFontCursor Xlib procedure.
+	 */
+
+	if (argc > 3) {
+	    goto badString;
+	}
+	for (namePtr = cursorNames; ; namePtr++) {
+	    if (namePtr->name == NULL) {
+		goto badString;
+	    }
+	    if ((namePtr->name[0] == argv[0][0])
+		    && (strcmp(namePtr->name, argv[0]) == 0)) {
+		break;
+	    }
+	}
+	maskIndex = namePtr->shape + 1;
+	if (argc == 1) {
+	    fg.red = fg.green = fg.blue = 0;
+	    bg.red = bg.green = bg.blue = 65535;
+	} else {
+	    if (XParseColor(display, Tk_Colormap(tkwin), argv[1],
+		    &fg) == 0) {
+		Tcl_AppendResult(interp, "invalid color name \"", argv[1],
+			"\"", (char *) NULL);
+		goto cleanup;
+	    }
+	    if (argc == 2) {
+		bg.red = bg.green = bg.blue = 0;
+		maskIndex = namePtr->shape;
+	    } else {
+		if (XParseColor(display, Tk_Colormap(tkwin), argv[2],
+			&bg) == 0) {
+		    Tcl_AppendResult(interp, "invalid color name \"", argv[2],
+			    "\"", (char *) NULL);
+		    goto cleanup;
+		}
+	    }
+	}
+	dispPtr = ((TkWindow *) tkwin)->dispPtr;
+	if (dispPtr->cursorFont == None) {
+	    dispPtr->cursorFont = XLoadFont(display, CURSORFONT);
+	    if (dispPtr->cursorFont == None) {
+		interp->result = "couldn't load cursor font";
+		goto cleanup;
+	    }
+	}
+	cursor = XCreateGlyphCursor(display, dispPtr->cursorFont,
+		dispPtr->cursorFont, namePtr->shape, maskIndex,
+		&fg, &bg);
+    } else {
+	int width, height, maskWidth, maskHeight;
+	int xHot, yHot, dummy1, dummy2;
+	XColor fg, bg;
+
+	/*
+	 * The cursor is to be created by reading bitmap files.  There
+	 * should be either two elements in the list (source, color) or
+	 * four (source mask fg bg).
+	 */
+
+	if ((argc != 2) && (argc != 4)) {
+	    goto badString;
+	}
+	if (XReadBitmapFile(display,
+		RootWindowOfScreen(Tk_Screen(tkwin)), &argv[0][1],
+		(unsigned int *) &width, (unsigned int *) &height,
+		&source, &xHot, &yHot) != BitmapSuccess) {
+	    Tcl_AppendResult(interp, "cleanup reading bitmap file \"",
+		    &argv[0][1], "\"", (char *) NULL);
+	    goto cleanup;
+	}
+	if ((xHot < 0) || (yHot < 0) || (xHot >= width) || (yHot >= height)) {
+	    Tcl_AppendResult(interp, "bad hot spot in bitmap file \"",
+		    &argv[0][1], "\"", (char *) NULL);
+	    goto cleanup;
+	}
+	if (argc == 2) {
+	    if (XParseColor(display, Tk_Colormap(tkwin), argv[1],
+		    &fg) == 0) {
+		Tcl_AppendResult(interp, "invalid color name \"",
+			argv[1], "\"", (char *) NULL);
+		goto cleanup;
+	    }
+	    cursor = XCreatePixmapCursor(display, source, source,
+		    &fg, &fg, (unsigned) xHot, (unsigned) yHot);
+	} else {
+	    if (XReadBitmapFile(display,
+		    RootWindowOfScreen(Tk_Screen(tkwin)), argv[1],
+		    (unsigned int *) &maskWidth, (unsigned int *) &maskHeight,
+		    &mask, &dummy1, &dummy2) != BitmapSuccess) {
+		Tcl_AppendResult(interp, "cleanup reading bitmap file \"",
+			argv[1], "\"", (char *) NULL);
+		goto cleanup;
+	    }
+	    if ((maskWidth != width) && (maskHeight != height)) {
+		interp->result =
+			"source and mask bitmaps have different sizes";
+		goto cleanup;
+	    }
+	    if (XParseColor(display, Tk_Colormap(tkwin), argv[2],
+		    &fg) == 0) {
+		Tcl_AppendResult(interp, "invalid color name \"", argv[2],
+			"\"", (char *) NULL);
+		goto cleanup;
+	    }
+	    if (XParseColor(display, Tk_Colormap(tkwin), argv[3],
+		    &bg) == 0) {
+		Tcl_AppendResult(interp, "invalid color name \"", argv[3],
+			"\"", (char *) NULL);
+		goto cleanup;
+	    }
+	    cursor = XCreatePixmapCursor(display, source, mask,
+		    &fg, &bg, (unsigned) xHot, (unsigned) yHot);
+	}
+    }
+
+    if (cursor != None) {
+	cursorPtr = (TkUnixCursor *) ckalloc(sizeof(TkUnixCursor));
+	cursorPtr->info.cursor = (Tk_Cursor) cursor;
+	cursorPtr->display = display;
+    }
+
+    cleanup:
+    if (argv != NULL) {
+	ckfree((char *) argv);
+    }
+    if (source != None) {
+	Tk_FreePixmap(display, source);
+    }
+    if (mask != None) {
+	Tk_FreePixmap(display, mask);
+    }
+    return (TkCursor *) cursorPtr;
+
+
+    badString:
+    Tcl_AppendResult(interp, "bad cursor spec \"", string, "\"",
+	    (char *) NULL);
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCreateCursorFromData --
+ *
+ *	Creates a cursor from the source and mask bits.
+ *
+ * Results:
+ *	Returns a new cursor, or NULL on errors.
+ *
+ * Side effects:
+ *	Allocates a new cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkCursor *
+TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot,
+	fgColor, bgColor)
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    char *source;		/* Bitmap data for cursor shape. */
+    char *mask;			/* Bitmap data for cursor mask. */
+    int width, height;		/* Dimensions of cursor. */
+    int xHot, yHot;		/* Location of hot-spot in cursor. */
+    XColor fgColor;		/* Foreground color for cursor. */
+    XColor bgColor;		/* Background color for cursor. */
+{
+    Cursor cursor;
+    Pixmap sourcePixmap, maskPixmap;
+    TkUnixCursor *cursorPtr = NULL;
+    Display *display = Tk_Display(tkwin);
+
+    sourcePixmap = XCreateBitmapFromData(display,
+	    RootWindowOfScreen(Tk_Screen(tkwin)), source, (unsigned) width,
+	    (unsigned) height);
+    maskPixmap = XCreateBitmapFromData(display, 
+	    RootWindowOfScreen(Tk_Screen(tkwin)), mask, (unsigned) width,
+	    (unsigned) height);
+    cursor = XCreatePixmapCursor(display, sourcePixmap,
+	    maskPixmap, &fgColor, &bgColor, (unsigned) xHot, (unsigned) yHot);
+    Tk_FreePixmap(display, sourcePixmap);
+    Tk_FreePixmap(display, maskPixmap);
+
+    if (cursor != None) {
+	cursorPtr = (TkUnixCursor *) ckalloc(sizeof(TkUnixCursor));
+	cursorPtr->info.cursor = (Tk_Cursor) cursor;
+	cursorPtr->display = display;
+    }
+    return (TkCursor *) cursorPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkFreeCursor --
+ *
+ *	This procedure is called to release a cursor allocated by
+ *	TkGetCursorByName.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor data structure is deallocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkFreeCursor(cursorPtr)
+    TkCursor *cursorPtr;
+{
+    TkUnixCursor *unixCursorPtr = (TkUnixCursor *) cursorPtr;
+    XFreeCursor(unixCursorPtr->display, (Cursor) unixCursorPtr->info.cursor);
+    Tk_FreeXId(unixCursorPtr->display, (XID) unixCursorPtr->info.cursor);
+    ckfree((char *) unixCursorPtr);
+}
diff --git a/Tk/unix/tkUnixDefault.h b/Tk/unix/tkUnixDefault.h
new file mode 100644
index 0000000..26714a6
--- /dev/null
+++ b/Tk/unix/tkUnixDefault.h
@@ -0,0 +1,524 @@
+/*
+ * tkUnixDefault.h --
+ *
+ *	This file defines the defaults for all options for all of
+ *	the Tk widgets.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixDefault.h 1.85 96/02/15 18:55:24
+ */
+
+#ifndef _TKUNIXDEFAULT
+#define _TKUNIXDEFAULT
+
+/*
+ * The definitions below provide symbolic names for the default colors.
+ * NORMAL_BG -		Normal background color.
+ * ACTIVE_BG -		Background color when widget is active.
+ * SELECT_BG -		Background color for selected text.
+ * TROUGH -		Background color for troughs in scales and scrollbars.
+ * INDICATOR -		Color for indicator when button is selected.
+ * DISABLED -		Foreground color when widget is disabled.
+ */
+
+#define BLACK		"Black"
+#define WHITE		"White"
+
+#define NORMAL_BG	"#d9d9d9"
+#define ACTIVE_BG	"#ececec"
+#define SELECT_BG	"#c3c3c3"
+#define TROUGH		"#c3c3c3"
+#define INDICATOR	"#b03060"
+#define DISABLED	"#a3a3a3"
+
+/*
+ * Defaults for labels, buttons, checkbuttons, and radiobuttons:
+ */
+
+#define DEF_BUTTON_ANCHOR		"center"
+#define DEF_BUTTON_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_BUTTON_ACTIVE_BG_MONO	BLACK
+#define DEF_BUTTON_ACTIVE_FG_COLOR	BLACK
+#define DEF_BUTTON_ACTIVE_FG_MONO	WHITE
+#define DEF_BUTTON_BG_COLOR		NORMAL_BG
+#define DEF_BUTTON_BG_MONO		WHITE
+#define DEF_BUTTON_BITMAP		""
+#define DEF_BUTTON_BORDER_WIDTH		"2"
+#define DEF_BUTTON_CURSOR		""
+#define DEF_BUTTON_COMMAND		""
+#define DEF_BUTTON_DISABLED_FG_COLOR	DISABLED
+#define DEF_BUTTON_DISABLED_FG_MONO	""
+#define DEF_BUTTON_FG			BLACK
+#define DEF_BUTTON_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_BUTTON_HEIGHT		"0"
+#define DEF_BUTTON_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_BUTTON_HIGHLIGHT		BLACK
+#define DEF_LABEL_HIGHLIGHT_WIDTH	"0"
+#define DEF_BUTTON_HIGHLIGHT_WIDTH	"2"
+#define DEF_BUTTON_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#   define DEF_BUTTON_INDICATOR		"#t"
+#else
+#   define DEF_BUTTON_INDICATOR		"1"
+#endif
+#define DEF_BUTTON_JUSTIFY		"center"
+#ifdef STk_CODE
+#  define DEF_BUTTON_OFF_VALUE		"#f"
+#  define DEF_BUTTON_ON_VALUE		"#t"
+#else
+#  define DEF_BUTTON_OFF_VALUE		"0"
+#  define DEF_BUTTON_ON_VALUE		"1"
+#endif
+#define DEF_BUTTON_PADX			"3m"
+#define DEF_LABCHKRAD_PADX		"1"
+#define DEF_BUTTON_PADY			"1m"
+#define DEF_LABCHKRAD_PADY		"1"
+#define DEF_BUTTON_RELIEF		"raised"
+#define DEF_LABCHKRAD_RELIEF		"flat"
+#define DEF_BUTTON_SELECT_COLOR		INDICATOR
+#define DEF_BUTTON_SELECT_MONO		BLACK
+#define DEF_BUTTON_SELECT_IMAGE		(char *) NULL
+#define DEF_BUTTON_STATE		"normal"
+#ifdef STk_CODE
+#  define DEF_LABEL_TAKE_FOCUS		"#f"
+#else
+#  define DEF_LABEL_TAKE_FOCUS		"0"
+#endif
+#define DEF_BUTTON_TAKE_FOCUS		(char *) NULL
+#define DEF_BUTTON_TEXT			""
+#define DEF_BUTTON_TEXT_VARIABLE	""
+#define DEF_BUTTON_UNDERLINE		"-1"
+#ifdef STk_CODE
+#  define DEF_BUTTON_VALUE		"#f"
+#else
+#  define DEF_BUTTON_VALUE		""
+#endif
+#define DEF_BUTTON_WIDTH		"0"
+#define DEF_BUTTON_WRAP_LENGTH		"0"
+#ifdef STk_CODE
+#  define DEF_RADIOBUTTON_VARIABLE	"*selected-button*"
+#else
+#  define DEF_RADIOBUTTON_VARIABLE	"selectedButton"
+#endif
+#define DEF_CHECKBUTTON_VARIABLE	""
+
+/*
+ * Defaults for canvases:
+ */
+
+#define DEF_CANVAS_BG_COLOR		NORMAL_BG
+#define DEF_CANVAS_BG_MONO		WHITE
+#define DEF_CANVAS_BORDER_WIDTH		"0"
+#define DEF_CANVAS_CLOSE_ENOUGH		"1"
+#ifdef STk_CODE
+#  define DEF_CANVAS_CONFINE		"#t"
+#else
+#  define DEF_CANVAS_CONFINE		"1"
+#endif
+#define DEF_CANVAS_CURSOR		""
+#define DEF_CANVAS_HEIGHT		"7c"
+#define DEF_CANVAS_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_CANVAS_HIGHLIGHT		BLACK
+#define DEF_CANVAS_HIGHLIGHT_WIDTH	"2"
+#define DEF_CANVAS_INSERT_BG		BLACK
+#define DEF_CANVAS_INSERT_BD_COLOR	"0"
+#define DEF_CANVAS_INSERT_BD_MONO	"0"
+#define DEF_CANVAS_INSERT_OFF_TIME	"300"
+#define DEF_CANVAS_INSERT_ON_TIME	"600"
+#define DEF_CANVAS_INSERT_WIDTH		"2"
+#define DEF_CANVAS_RELIEF		"flat"
+#define DEF_CANVAS_SCROLL_REGION	""
+#define DEF_CANVAS_SELECT_COLOR		SELECT_BG
+#define DEF_CANVAS_SELECT_MONO		BLACK
+#define DEF_CANVAS_SELECT_BD_COLOR	"1"
+#define DEF_CANVAS_SELECT_BD_MONO	"0"
+#define DEF_CANVAS_SELECT_FG_COLOR	BLACK
+#define DEF_CANVAS_SELECT_FG_MONO	WHITE
+#define DEF_CANVAS_TAKE_FOCUS		(char *) NULL
+#define DEF_CANVAS_WIDTH		"10c"
+#define DEF_CANVAS_X_SCROLL_CMD		""
+#define DEF_CANVAS_X_SCROLL_INCREMENT	"0"
+#define DEF_CANVAS_Y_SCROLL_CMD		""
+#define DEF_CANVAS_Y_SCROLL_INCREMENT	"0"
+
+/*
+ * Defaults for entries:
+ */
+
+#define DEF_ENTRY_BG_COLOR		NORMAL_BG
+#define DEF_ENTRY_BG_MONO		WHITE
+#define DEF_ENTRY_BORDER_WIDTH		"2"
+#define DEF_ENTRY_CURSOR		"xterm"
+#ifdef STk_CODE
+#define DEF_ENTRY_EXPORT_SELECTION	"#t"
+#else
+#define DEF_ENTRY_EXPORT_SELECTION	"1"
+#endif
+#define DEF_ENTRY_FONT			"-Adobe-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_ENTRY_FG			BLACK
+#define DEF_ENTRY_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_ENTRY_HIGHLIGHT		BLACK
+#define DEF_ENTRY_HIGHLIGHT_WIDTH	"2"
+#define DEF_ENTRY_INSERT_BG		BLACK
+#define DEF_ENTRY_INSERT_BD_COLOR	"0"
+#define DEF_ENTRY_INSERT_BD_MONO	"0"
+#define DEF_ENTRY_INSERT_OFF_TIME	"300"
+#define DEF_ENTRY_INSERT_ON_TIME	"600"
+#define DEF_ENTRY_INSERT_WIDTH		"2"
+#define DEF_ENTRY_JUSTIFY		"left"
+#define DEF_ENTRY_RELIEF		"sunken"
+#define DEF_ENTRY_SCROLL_COMMAND	""
+#define DEF_ENTRY_SELECT_COLOR		SELECT_BG
+#define DEF_ENTRY_SELECT_MONO		BLACK
+#define DEF_ENTRY_SELECT_BD_COLOR	"1"
+#define DEF_ENTRY_SELECT_BD_MONO	"0"
+#define DEF_ENTRY_SELECT_FG_COLOR	BLACK
+#define DEF_ENTRY_SELECT_FG_MONO	WHITE
+#define DEF_ENTRY_SHOW			(char *) NULL
+#define DEF_ENTRY_STATE			"normal"
+#define DEF_ENTRY_TAKE_FOCUS		(char *) NULL
+#define DEF_ENTRY_TEXT_VARIABLE		""
+#define DEF_ENTRY_WIDTH			"20"
+
+/*
+ * Defaults for frames:
+ */
+
+#define DEF_FRAME_BG_COLOR		NORMAL_BG
+#define DEF_FRAME_BG_MONO		WHITE
+#define DEF_FRAME_BORDER_WIDTH		"0"
+#define DEF_FRAME_CLASS			"Frame"
+#define DEF_FRAME_COLORMAP		""
+#define DEF_FRAME_CURSOR		""
+#define DEF_FRAME_HEIGHT		"0"
+#define DEF_FRAME_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_FRAME_HIGHLIGHT		BLACK
+#define DEF_FRAME_HIGHLIGHT_WIDTH	"0"
+#define DEF_FRAME_RELIEF		"flat"
+#ifdef STk_CODE
+#  define DEF_FRAME_TAKE_FOCUS		"#f"
+#else
+#  define DEF_FRAME_TAKE_FOCUS		"0"
+#endif
+#define DEF_FRAME_VISUAL		""
+#define DEF_FRAME_WIDTH			"0"
+
+/*
+ * Defaults for listboxes:
+ */
+
+#define DEF_LISTBOX_BG_COLOR		NORMAL_BG
+#define DEF_LISTBOX_BG_MONO		WHITE
+#define DEF_LISTBOX_BORDER_WIDTH	"2"
+#define DEF_LISTBOX_CURSOR		""
+#ifdef STk_CODE
+#  define DEF_LISTBOX_EXPORT_SELECTION	"#t"
+#else
+#  define DEF_LISTBOX_EXPORT_SELECTION	"1"
+#endif
+#define DEF_LISTBOX_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_LISTBOX_FG			BLACK
+#define DEF_LISTBOX_HEIGHT		"10"
+#define DEF_LISTBOX_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_LISTBOX_HIGHLIGHT		BLACK
+#define DEF_LISTBOX_HIGHLIGHT_WIDTH	"2"
+#define DEF_LISTBOX_RELIEF		"sunken"
+#define DEF_LISTBOX_SCROLL_COMMAND	""
+#define DEF_LISTBOX_SELECT_COLOR	SELECT_BG
+#define DEF_LISTBOX_SELECT_MONO		BLACK
+#define DEF_LISTBOX_SELECT_BD		"1"
+#define DEF_LISTBOX_SELECT_FG_COLOR	BLACK
+#define DEF_LISTBOX_SELECT_FG_MONO	WHITE
+#define DEF_LISTBOX_SELECT_MODE		"browse"
+#ifdef STk_CODE
+#  define DEF_LISTBOX_SET_GRID		"#f"
+#else
+#  define DEF_LISTBOX_SET_GRID		"0"
+#endif
+#define DEF_LISTBOX_TAKE_FOCUS		(char *) NULL
+#define DEF_LISTBOX_WIDTH		"20"
+
+/*
+ * Defaults for individual entries of menus:
+ */
+
+#define DEF_MENU_ENTRY_ACTIVE_BG	(char *) NULL
+#define DEF_MENU_ENTRY_ACTIVE_FG	(char *) NULL
+#define DEF_MENU_ENTRY_ACCELERATOR	(char *) NULL
+#define DEF_MENU_ENTRY_BG		(char *) NULL
+#define DEF_MENU_ENTRY_BITMAP		None
+#define DEF_MENU_ENTRY_COMMAND		(char *) NULL
+#define DEF_MENU_ENTRY_FG		(char *) NULL
+#define DEF_MENU_ENTRY_FONT		(char *) NULL
+#define DEF_MENU_ENTRY_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_INDICATOR	"#t"
+#else
+#  define DEF_MENU_ENTRY_INDICATOR	"1"
+#endif
+#define DEF_MENU_ENTRY_LABEL		(char *) NULL
+#define DEF_MENU_ENTRY_MENU		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_OFF_VALUE	"#f"
+#  define DEF_MENU_ENTRY_ON_VALUE	"#t"
+#else
+#  define DEF_MENU_ENTRY_OFF_VALUE	"0"
+#  define DEF_MENU_ENTRY_ON_VALUE	"1"
+#endif
+#define DEF_MENU_ENTRY_SELECT_IMAGE	(char *) NULL
+#define DEF_MENU_ENTRY_STATE		"normal"
+#define DEF_MENU_ENTRY_VALUE		(char *) NULL
+#define DEF_MENU_ENTRY_CHECK_VARIABLE	(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_RADIO_VARIABLE	"*selected-button*"
+#else
+#  define DEF_MENU_ENTRY_RADIO_VARIABLE	"selectedButton"
+#endif
+#define DEF_MENU_ENTRY_SELECT	(char *) NULL
+#define DEF_MENU_ENTRY_UNDERLINE	"-1"
+
+/*
+ * Defaults for menus overall:
+ */
+
+#define DEF_MENU_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_MENU_ACTIVE_BG_MONO		BLACK
+#define DEF_MENU_ACTIVE_BORDER_WIDTH	"2"
+#define DEF_MENU_ACTIVE_FG_COLOR	BLACK
+#define DEF_MENU_ACTIVE_FG_MONO		WHITE
+#define DEF_MENU_BG_COLOR		NORMAL_BG
+#define DEF_MENU_BG_MONO		WHITE
+#define DEF_MENU_BORDER_WIDTH		"2"
+#define DEF_MENU_CURSOR			"arrow"
+#define DEF_MENU_DISABLED_FG_COLOR	DISABLED
+#define DEF_MENU_DISABLED_FG_MONO	""
+#define DEF_MENU_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MENU_FG			BLACK
+#define DEF_MENU_POST_COMMAND		""
+#define DEF_MENU_RELIEF			"raised"
+#define DEF_MENU_SELECT_COLOR		INDICATOR
+#define DEF_MENU_SELECT_MONO		BLACK
+#ifdef STk_CODE
+#  define DEF_MENU_TAKE_FOCUS		"#f"
+#  define DEF_MENU_TEAROFF		"#t"
+#else
+#  define DEF_MENU_TAKE_FOCUS		"0"
+#  define DEF_MENU_TEAROFF		"1"
+#endif
+#define DEF_MENU_TEAROFF_CMD		(char *) NULL
+#define DEF_MENU_TRANSIENT		"1"
+
+/*
+ * Defaults for menubuttons:
+ */
+
+#define DEF_MENUBUTTON_ANCHOR		"center"
+#define DEF_MENUBUTTON_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_MENUBUTTON_ACTIVE_BG_MONO	BLACK
+#define DEF_MENUBUTTON_ACTIVE_FG_COLOR	BLACK
+#define DEF_MENUBUTTON_ACTIVE_FG_MONO	WHITE
+#define DEF_MENUBUTTON_BG_COLOR		NORMAL_BG
+#define DEF_MENUBUTTON_BG_MONO		WHITE
+#define DEF_MENUBUTTON_BITMAP		""
+#define DEF_MENUBUTTON_BORDER_WIDTH	"2"
+#define DEF_MENUBUTTON_CURSOR		""
+#define DEF_MENUBUTTON_DISABLED_FG_COLOR DISABLED
+#define DEF_MENUBUTTON_DISABLED_FG_MONO	""
+#define DEF_MENUBUTTON_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MENUBUTTON_FG		BLACK
+#define DEF_MENUBUTTON_HEIGHT		"0"
+#define DEF_MENUBUTTON_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_MENUBUTTON_HIGHLIGHT	BLACK
+#define DEF_MENUBUTTON_HIGHLIGHT_WIDTH	"0"
+#define DEF_MENUBUTTON_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_INDICATOR	"#f"
+#else
+#  define DEF_MENUBUTTON_INDICATOR	"0"
+#endif
+#define DEF_MENUBUTTON_JUSTIFY		"center"
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_MENU		"#f"
+#else
+#  define DEF_MENUBUTTON_MENU		""
+#endif
+#define DEF_MENUBUTTON_PADX		"4p"
+#define DEF_MENUBUTTON_PADY		"3p"
+#define DEF_MENUBUTTON_RELIEF		"flat"
+#define DEF_MENUBUTTON_STATE		"normal"
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_TAKE_FOCUS	"#f"
+#else
+#  define DEF_MENUBUTTON_TAKE_FOCUS	"0"
+#endif
+#define DEF_MENUBUTTON_TEXT		""
+#define DEF_MENUBUTTON_TEXT_VARIABLE	""
+#define DEF_MENUBUTTON_UNDERLINE	"-1"
+#define DEF_MENUBUTTON_WIDTH		"0"
+#define DEF_MENUBUTTON_WRAP_LENGTH	"0"
+
+/*
+ * Defaults for messages:
+ */
+
+#define DEF_MESSAGE_ANCHOR		"center"
+#define DEF_MESSAGE_ASPECT		"150"
+#define DEF_MESSAGE_BG_COLOR		NORMAL_BG
+#define DEF_MESSAGE_BG_MONO		WHITE
+#define DEF_MESSAGE_BORDER_WIDTH	"2"
+#define DEF_MESSAGE_CURSOR		""
+#define DEF_MESSAGE_FG			BLACK
+#define DEF_MESSAGE_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MESSAGE_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_MESSAGE_HIGHLIGHT		BLACK
+#define DEF_MESSAGE_HIGHLIGHT_WIDTH	"0"
+#define DEF_MESSAGE_JUSTIFY		"left"
+#define DEF_MESSAGE_PADX		"-1"
+#define DEF_MESSAGE_PADY		"-1"
+#define DEF_MESSAGE_RELIEF		"flat"
+#ifdef STk_CODE
+#  define DEF_MESSAGE_TAKE_FOCUS	"#f"
+#else
+#  define DEF_MESSAGE_TAKE_FOCUS	"0"
+#endif
+#define DEF_MESSAGE_TEXT		""
+#define DEF_MESSAGE_TEXT_VARIABLE	""
+#define DEF_MESSAGE_WIDTH		"0"
+
+/*
+ * Defaults for scales:
+ */
+
+#define DEF_SCALE_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_SCALE_ACTIVE_BG_MONO	BLACK
+#define DEF_SCALE_BG_COLOR		NORMAL_BG
+#define DEF_SCALE_BG_MONO		WHITE
+#define DEF_SCALE_BIG_INCREMENT		"0"
+#define DEF_SCALE_BORDER_WIDTH		"2"
+#define DEF_SCALE_COMMAND		""
+#define DEF_SCALE_CURSOR		""
+#define DEF_SCALE_DIGITS		"0"
+#define DEF_SCALE_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_SCALE_FG_COLOR		BLACK
+#define DEF_SCALE_FG_MONO		BLACK
+#define DEF_SCALE_FROM			"0"
+#define DEF_SCALE_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_SCALE_HIGHLIGHT		BLACK
+#define DEF_SCALE_HIGHLIGHT_WIDTH	"2"
+#define DEF_SCALE_LABEL			""
+#define DEF_SCALE_LENGTH		"100"
+#define DEF_SCALE_ORIENT		"vertical"
+#define DEF_SCALE_RELIEF		"flat"
+#define DEF_SCALE_REPEAT_DELAY	"300"
+#define DEF_SCALE_REPEAT_INTERVAL	"100"
+#define DEF_SCALE_RESOLUTION		"1"
+#define DEF_SCALE_TROUGH_COLOR		TROUGH
+#define DEF_SCALE_TROUGH_MONO		WHITE
+#ifdef STk_CODE
+#define DEF_SCALE_SHOW_VALUE		"#t"
+#else
+#define DEF_SCALE_SHOW_VALUE		"1"
+#endif
+#define DEF_SCALE_SLIDER_LENGTH		"30"
+#define DEF_SCALE_SLIDER_RELIEF		"raised"
+#define DEF_SCALE_STATE			"normal"
+#define DEF_SCALE_TAKE_FOCUS		(char *) NULL
+#define DEF_SCALE_TICK_INTERVAL		"0"
+#define DEF_SCALE_TO			"100"
+#define DEF_SCALE_VARIABLE		""
+#define DEF_SCALE_WIDTH			"15"
+
+/*
+ * Defaults for scrollbars:
+ */
+
+#define DEF_SCROLLBAR_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_SCROLLBAR_ACTIVE_BG_MONO	BLACK
+#define DEF_SCROLLBAR_ACTIVE_RELIEF	"raised"
+#define DEF_SCROLLBAR_BG_COLOR		NORMAL_BG
+#define DEF_SCROLLBAR_BG_MONO		WHITE
+#define DEF_SCROLLBAR_BORDER_WIDTH	"2"
+#define DEF_SCROLLBAR_COMMAND		""
+#define DEF_SCROLLBAR_CURSOR		""
+#define DEF_SCROLLBAR_EL_BORDER_WIDTH	"-1"
+#define DEF_SCROLLBAR_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_SCROLLBAR_HIGHLIGHT		BLACK
+#define DEF_SCROLLBAR_HIGHLIGHT_WIDTH	"2"
+#ifdef STk_CODE
+#  define DEF_SCROLLBAR_JUMP		"#f"
+#else
+#  define DEF_SCROLLBAR_JUMP		"0"
+#endif
+#define DEF_SCROLLBAR_ORIENT		"vertical"
+#define DEF_SCROLLBAR_RELIEF		"sunken"
+#define DEF_SCROLLBAR_REPEAT_DELAY	"300"
+#define DEF_SCROLLBAR_REPEAT_INTERVAL	"100"
+#define DEF_SCROLLBAR_TAKE_FOCUS	(char *) NULL
+#define DEF_SCROLLBAR_TROUGH_COLOR	TROUGH
+#define DEF_SCROLLBAR_TROUGH_MONO	WHITE
+#define DEF_SCROLLBAR_WIDTH		"15"
+
+/*
+ * Defaults for texts:
+ */
+
+#define DEF_TEXT_BG_COLOR		NORMAL_BG
+#define DEF_TEXT_BG_MONO		WHITE
+#define DEF_TEXT_BORDER_WIDTH		"2"
+#define DEF_TEXT_CURSOR			"xterm"
+#define DEF_TEXT_FG			BLACK
+#ifdef STk_CODE
+#  define DEF_TEXT_EXPORT_SELECTION	"#t"
+#else
+#  define DEF_TEXT_EXPORT_SELECTION	"1"
+#endif
+#define DEF_TEXT_FONT			"-*-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_TEXT_HEIGHT			"24"
+#define DEF_TEXT_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_TEXT_HIGHLIGHT		BLACK
+#define DEF_TEXT_HIGHLIGHT_WIDTH	"2"
+#define DEF_TEXT_INSERT_BG		BLACK
+#define DEF_TEXT_INSERT_BD_COLOR	"0"
+#define DEF_TEXT_INSERT_BD_MONO		"0"
+#define DEF_TEXT_INSERT_OFF_TIME	"300"
+#define DEF_TEXT_INSERT_ON_TIME		"600"
+#define DEF_TEXT_INSERT_WIDTH		"2"
+#define DEF_TEXT_PADX			"1"
+#define DEF_TEXT_PADY			"1"
+#define DEF_TEXT_RELIEF			"sunken"
+#define DEF_TEXT_SELECT_COLOR		SELECT_BG
+#define DEF_TEXT_SELECT_MONO		BLACK
+#define DEF_TEXT_SELECT_BD_COLOR	"1"
+#define DEF_TEXT_SELECT_BD_MONO		"0"
+#define DEF_TEXT_SELECT_FG_COLOR	BLACK
+#define DEF_TEXT_SELECT_FG_MONO		WHITE
+#ifdef STk_CODE
+#  define DEF_TEXT_SET_GRID		"#f"
+#else
+#  define DEF_TEXT_SET_GRID		"0"
+#endif
+#define DEF_TEXT_SPACING1		"0"
+#define DEF_TEXT_SPACING2		"0"
+#define DEF_TEXT_SPACING3		"0"
+#define DEF_TEXT_STATE			"normal"
+#define DEF_TEXT_TABS			""
+#define DEF_TEXT_TAKE_FOCUS		(char *) NULL
+#define DEF_TEXT_WIDTH			"80"
+#define DEF_TEXT_WRAP			"char"
+#define DEF_TEXT_XSCROLL_COMMAND	""
+#define DEF_TEXT_YSCROLL_COMMAND	""
+
+/*
+ * Defaults for toplevels (most of the defaults for frames also apply
+ * to toplevels):
+ */
+
+#define DEF_TOPLEVEL_CLASS		"Toplevel"
+#define DEF_TOPLEVEL_SCREEN		""
+
+#endif /* _TKUNIXDEFAULT */
diff --git a/Tk/unix/tkUnixDraw.c b/Tk/unix/tkUnixDraw.c
new file mode 100644
index 0000000..d217b2d
--- /dev/null
+++ b/Tk/unix/tkUnixDraw.c
@@ -0,0 +1,171 @@
+/* 
+ * tkUnixDraw.c --
+ *
+ *	This file contains X specific drawing routines.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixDraw.c 1.7 96/02/15 18:55:26
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+/*
+ * The following structure is used to pass information to
+ * ScrollRestrictProc from TkScrollWindow.
+ */
+
+typedef struct ScrollInfo {
+    int done;			/* Flag is 0 until filtering is done. */
+    Display *display;		/* Display to filter. */
+    Window window;		/* Window to filter. */
+    TkRegion region;		/* Region into which damage is accumulated. */
+    int dx, dy;			/* Amount by which window was shifted. */
+} ScrollInfo;
+
+/*
+ * Forward declarations for procedures declared later in this file:
+ */
+
+static Tk_RestrictAction	ScrollRestrictProc _ANSI_ARGS_((
+    				    ClientData arg, XEvent *eventPtr));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkScrollWindow --
+ *
+ *	Scroll a rectangle of the specified window and accumulate
+ *	damage information in the specified Region.
+ *
+ * Results:
+ *	Returns 0 if no damage additional damage was generated.  Sets
+ *	damageRgn to contain the damaged areas and returns 1 if
+ *	GraphicsExpose events were detected.
+ *
+ * Side effects:
+ *	Scrolls the bits in the window and enters the event loop
+ *	looking for damage events.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn)
+    Tk_Window tkwin;		/* The window to be scrolled. */
+    GC gc;			/* GC for window to be scrolled. */
+    int x, y, width, height;	/* Position rectangle to be scrolled. */
+    int dx, dy;			/* Distance rectangle should be moved. */
+    TkRegion damageRgn;		/* Region to accumulate damage in. */
+{
+    Tk_RestrictProc *oldProc;
+    ClientData oldArg, dummy;
+    ScrollInfo info;
+    
+    XCopyArea(Tk_Display(tkwin), Tk_WindowId(tkwin), Tk_WindowId(tkwin), gc,
+	    x, y, (unsigned int) width, (unsigned int) height, x + dx, y + dy);
+
+    info.done = 0;
+    info.window = Tk_WindowId(tkwin);
+    info.display = Tk_Display(tkwin);
+    info.region = damageRgn;
+    info.dx = dx;
+    info.dy = dy;
+
+    /*
+     * Sync the event stream so all of the expose events will be on the
+     * X event queue before we start filtering.  This avoids busy waiting
+     * while we filter events.
+     */
+
+    XSync(info.display, False);
+    oldProc = Tk_RestrictEvents(ScrollRestrictProc, (ClientData) &info,
+	    &oldArg);
+    while (!info.done) {
+	Tcl_DoOneEvent(TCL_WINDOW_EVENTS|TCL_DONT_WAIT);
+    }
+    Tk_RestrictEvents(oldProc, oldArg, &dummy);
+
+    return XEmptyRegion((Region) damageRgn) ? 0 : 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ScrollRestrictProc --
+ *
+ *	A Tk_RestrictProc used by TkScrollWindow to gather up Expose
+ *	information into a single damage region.  It accumulates damage
+ *	events on the specified window until a NoExpose or the last
+ *	GraphicsExpose event is detected.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Discards Expose events after accumulating damage information
+ *	for a particular window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_RestrictAction
+ScrollRestrictProc(arg, eventPtr)
+    ClientData arg;
+    XEvent *eventPtr;
+{
+    ScrollInfo *info = (ScrollInfo *) arg;
+    XRectangle rect;
+
+    /*
+     * Defer events which aren't for the specified window.
+     */
+
+    if (info->done || (eventPtr->xany.display != info->display)
+	    || (eventPtr->xany.window != info->window)) {
+	return TK_DEFER_EVENT;
+    }
+
+    if (eventPtr->type == NoExpose) {
+	info->done = 1;
+    } else if (eventPtr->type == GraphicsExpose) {
+	rect.x = eventPtr->xgraphicsexpose.x;
+	rect.y = eventPtr->xgraphicsexpose.y;
+	rect.width = eventPtr->xgraphicsexpose.width;
+	rect.height = eventPtr->xgraphicsexpose.height;
+	XUnionRectWithRegion(&rect, (Region) info->region,
+		(Region) info->region);
+
+	if (eventPtr->xgraphicsexpose.count == 0) {
+	    info->done = 1;
+	}
+    } else if (eventPtr->type == Expose) {
+
+	/*
+	 * This case is tricky.  This event was already queued before
+	 * the XCopyArea was issued.  If this area overlaps the area
+	 * being copied, then some of the copied area may be invalid.
+	 * The easiest way to handle this case is to mark both the
+	 * original area and the shifted area as damaged.
+	 */
+
+	rect.x = eventPtr->xexpose.x;
+	rect.y = eventPtr->xexpose.y;
+	rect.width = eventPtr->xexpose.width;
+	rect.height = eventPtr->xexpose.height;
+	XUnionRectWithRegion(&rect, (Region) info->region,
+		(Region) info->region);
+	rect.x += info->dx;
+	rect.y += info->dy;
+	XUnionRectWithRegion(&rect, (Region) info->region,
+		(Region) info->region);
+    } else {
+	return TK_DEFER_EVENT;
+    }
+    return TK_DISCARD_EVENT;
+}
+
diff --git a/Tk/unix/tkUnixEvent.c b/Tk/unix/tkUnixEvent.c
new file mode 100644
index 0000000..dd219b0
--- /dev/null
+++ b/Tk/unix/tkUnixEvent.c
@@ -0,0 +1,194 @@
+/* 
+ * tkUnixEvent.c --
+ *
+ *	This file implements an event source for X displays for the
+ *	UNIX version of Tk.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixEvent.c 1.5 96/02/15 18:55:30
+ */
+
+#include "tkInt.h"
+#include "tkUnixInt.h"
+#include <signal.h>
+
+/*
+ * Prototypes for procedures that are referenced only in this file:
+ */
+
+static void		DisplayCheckProc _ANSI_ARGS_((ClientData clientData,
+			    int flags));
+static void		DisplaySetupProc _ANSI_ARGS_((ClientData clientData,
+			    int flags));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplaySetupProc --
+ *
+ *	This procedure is part of the event source for UNIX X displays.
+ *	It is invoked by Tcl_DoOneEvent before it calls select to check
+ *	for events on all displays.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tells the notifier which files should be waited for.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplaySetupProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include
+					 * TCL_WINDOW_EVENTS then we do
+					 * nothing. */
+{
+    TkDisplay *dispPtr;
+    static Tcl_Time dontBlock = {0, 0};
+
+    if (!(flags & TCL_WINDOW_EVENTS)) {
+	return;
+    }
+
+    for (dispPtr = tkDisplayList; dispPtr != NULL; dispPtr = dispPtr->nextPtr) {
+	Tcl_File handle;
+	XFlush(dispPtr->display);
+	if (XQLength(dispPtr->display) > 0) {
+	    Tcl_SetMaxBlockTime(&dontBlock);
+	}
+	handle = Tcl_GetFile(
+	    (ClientData)ConnectionNumber(dispPtr->display), TCL_UNIX_FD);
+	Tcl_WatchFile(handle, TCL_READABLE);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DisplayCheckProc --
+ *
+ *	This procedure is the second part of the "event source" for
+ *	X displays.  It is invoked by Tcl_DoOneEvent after it calls
+ *	select (or whatever it uses to wait for events).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Makes entries on the Tcl event queue for all the events available
+ *	from all the displays.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DisplayCheckProc(clientData, flags)
+    ClientData clientData;		/* Not used. */
+    int flags;				/* Flags passed to Tk_DoOneEvent:
+					 * if it doesn't include 
+					 * TCL_WINDOW_EVENTS then we do
+					 * nothing. */
+{
+    TkDisplay *dispPtr;
+    XEvent event;
+    int numFound;
+
+    if (!(flags & TCL_WINDOW_EVENTS)) {
+	return;
+    }
+
+    for (dispPtr = tkDisplayList; dispPtr != NULL; dispPtr = dispPtr->nextPtr) {
+	Tcl_File handle;
+	/*
+	 * Note: we should not need to do a flush of the output queues before
+	 * calling XEventsQueued because it was done by DisplaySetupProc.
+	 */
+
+	handle = Tcl_GetFile(
+	    (ClientData) ConnectionNumber(dispPtr->display), TCL_UNIX_FD);
+	if (Tcl_FileReady(handle, TCL_READABLE) != 0) {
+	    numFound = XEventsQueued(dispPtr->display, QueuedAfterReading);
+	    if (numFound == 0) {
+	
+		/*
+		 * Things are very tricky if there aren't any events readable
+		 * at this point (after all, there was supposedly data
+		 * available on the connection).  A couple of things could
+		 * have occurred:
+		 * 
+		 * One possibility is that there were only error events in the
+		 * input from the server.  If this happens, we should return
+		 * (we don't want to go to sleep in XNextEvent below, since
+		 * this would block out other sources of input to the
+		 * process).
+		 *
+		 * Another possibility is that our connection to the server
+		 * has been closed.  This will not necessarily be detected in
+		 * XEventsQueued (!!), so if we just return then there will be
+		 * an infinite loop.  To detect such an error, generate a NoOp
+		 * protocol request to exercise the connection to the server,
+		 * then return.  However, must disable SIGPIPE while sending
+		 * the request, or else the process will die from the signal
+		 * and won't invoke the X error function to print a nice (?!)
+		 * message.
+		 */
+	
+		void (*oldHandler)();
+	
+		oldHandler = (void (*)()) signal(SIGPIPE, SIG_IGN);
+		XNoOp(dispPtr->display);
+		XFlush(dispPtr->display);
+		(void) signal(SIGPIPE, oldHandler);
+	    }
+	} else {
+	    numFound = XQLength(dispPtr->display);
+	}
+    
+	/*
+	 * Transfer events from the X event queue to the Tk event queue.
+	 */
+
+	while (numFound > 0) {
+	    XNextEvent(dispPtr->display, &event);
+	    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+	    numFound--;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCreateXEventSource --
+ *
+ *	This procedure is called during Tk initialization to create
+ *	the event source for X Window events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new event source is created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkCreateXEventSource()
+{
+    static int initialized = 0;
+
+    if (!initialized) {
+	Tcl_CreateEventSource(DisplaySetupProc, DisplayCheckProc,
+		(ClientData) NULL);
+	initialized = 1;
+    }
+}
diff --git a/Tk/unix/tkUnixInit.c b/Tk/unix/tkUnixInit.c
new file mode 100644
index 0000000..b70acef
--- /dev/null
+++ b/Tk/unix/tkUnixInit.c
@@ -0,0 +1,108 @@
+/* 
+ * tkUnixInit.c --
+ *
+ *	This file contains Unix-specific interpreter initialization
+ *	functions.
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixInit.c 1.12 96/05/17 16:27:32
+ */
+
+#include "tkInt.h"
+#include "tkUnixInt.h"
+
+#ifndef STk_CODE
+/*
+ * Default directory in which to look for libraries:
+ */
+
+static char defaultLibraryDir[200] = TK_LIBRARY;
+
+/*
+ * The following string is the startup script executed in new
+ * interpreters.  It looks on disk in several different directories
+ * for a script "tk.tcl" that is compatible with this version
+ * of Tk.  The tk.tcl script does all of the real work of
+ * initialization.
+ */
+
+static char initScript[] =
+"proc init {} {\n\
+    global tk_library tk_version tk_patchLevel env\n\
+    rename init {}\n\
+    set dirs {}\n\
+    if [info exists env(TK_LIBRARY)] {\n\
+	lappend dirs $env(TK_LIBRARY)\n\
+    }\n\
+    lappend dirs $tk_library\n\
+    lappend dirs [file dirname [info library]]/lib/tk$tk_version\n\
+    set parentDir [file dirname [file dirname [info nameofexecutable]]] \n\
+    lappend dirs $parentDir/lib/tk$tk_version\n\
+    if [string match {*[ab]*} $tk_patchLevel] {\n\
+	set lib tk$tk_patchLevel\n\
+    } else {\n\
+	set lib tk$tk_version\n\
+    }\n\
+    lappend dirs [file dirname $parentDir]/$lib/library\n\
+    lappend dirs [file dirname [file dirname [info library]]]/$lib/library\n\
+    lappend dirs $parentDir/library\n\
+    foreach i $dirs {\n\
+	set tk_library $i\n\
+	if ![catch {uplevel #0 source $i/tk.tcl}] {\n\
+	    return\n\
+	}\n\
+    }\n\
+    set msg \"Can't find a usable tk.tcl in the following directories: \n\"\n\
+    append msg \"    $dirs\n\"\n\
+    append msg \"This probably means that Tk wasn't installed properly.\n\"\n\
+    error $msg\n\
+}\n\
+init";
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkPlatformInit --
+ *
+ *	Performs Unix-specific interpreter initialization related to the
+ *      tk_library variable.
+ *
+ * Results:
+ *	Returns a standard Tcl result.  Leaves an error message or result
+ *	in interp->result.
+ *
+ * Side effects:
+ *	Sets "tk_library" Tcl variable, runs "tk.tcl" script.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkPlatformInit(interp)
+    Tcl_Interp *interp;
+{
+    char *libDir;
+
+#ifdef STk_CODE
+    extern char *STk_library_path;
+    
+    Tcl_SetVar(interp, "*stk-library*", STk_library_path, 
+	       STk_STRINGIFY | TCL_GLOBAL_ONLY);
+#else
+    libDir = Tcl_GetVar(interp, "tk_library", TCL_GLOBAL_ONLY);
+    if (libDir == NULL) {
+	Tcl_SetVar(interp, "tk_library", defaultLibraryDir, TCL_GLOBAL_ONLY);
+    }
+#endif
+    TkCreateXEventSource();
+#ifdef STk_CODE
+    return TCL_OK;
+#else
+    return Tcl_Eval(interp, initScript);
+#endif
+}
diff --git a/Tk/unix/tkUnixInt.h b/Tk/unix/tkUnixInt.h
new file mode 100644
index 0000000..80e9876
--- /dev/null
+++ b/Tk/unix/tkUnixInt.h
@@ -0,0 +1,26 @@
+/*
+ * tkUnixInt.h --
+ *
+ *	This file contains declarations that are shared among the
+ *	UNIX-specific parts of Tk but aren't used by the rest of
+ *	Tk.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixInt.h 1.2 95/11/08 10:18:13
+ */
+
+#ifndef _TKUNIXINT
+#define _TKUNIXINT
+
+/*
+ * Prototypes for procedures that are referenced in files other
+ * than the ones they're defined in.
+ */
+
+extern void		TkCreateXEventSource _ANSI_ARGS_((void));
+
+#endif /* _TKUNIXINT */
diff --git a/Tk/unix/tkUnixNotify.c b/Tk/unix/tkUnixNotify.c
new file mode 100644
index 0000000..21567a4
--- /dev/null
+++ b/Tk/unix/tkUnixNotify.c
@@ -0,0 +1,832 @@
+/* 
+ * tkUnixNotify.c --
+ *
+ *	This file provides the platform specific event detection
+ *	facilities used by the Tk event routines.  The procedures in
+ *	this file comprise the notifier interface and contain unix
+ *	specific file and timer handling code.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+static char sccsid[] = "@(#) tkUnixNotify.c 1.22 95/10/03 13:51:51";
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include <signal.h>
+
+/*
+ * The information below is used to provide read, write, and
+ * exception masks to select during calls to Tk_DoOneEvent.
+ */
+
+static fd_mask ready[3*MASK_SIZE];
+				/* Masks passed to select and modified
+				 * by kernel to indicate which files are
+				 * actually ready. */
+static fd_mask check[3*MASK_SIZE];
+				/* Current set of masks, built up by
+				 * Tk_NotifyFile and Tk_NotifyDisplay,
+				 * that reflects what files we should wait
+				 * for in the next select. */
+static int numFdBits = 0;	/* Number of valid bits in mask
+				 * arrays (this value is passed
+				 * to select).  This value is only a high
+				 * water mark as long as at least one display
+				 * is registered.  If there are no displays,
+				 * then it is recomputed at the end of each
+				 * call to Tk_DoOneEvent. */
+
+/*
+ * For each display that Tk has called Tk_NotifyDisplay, there is one
+ * record of the following type, chained together in a list.
+ */
+
+typedef struct DisplayList {
+    Display *display;		/* Display from which events may arrive. */
+    fd_mask *readPtr;		/* Pointer to word in ready array
+				 * for this display's read mask bit. */
+    fd_mask *checkReadPtr;	/* Pointer to word in check array
+				 * for this display's read mask bit. */
+    fd_mask bitSelect;		/* Value to AND with *readPtr etc. to
+				 * select just this file's bit. */
+    struct DisplayList *nextPtr;
+				/* Next display in list, nor NULL for
+				 * end of queue. */
+} DisplayList;
+
+static DisplayList *firstDisplayPtr;
+				/* First display in list of registered */
+				/* displays. */
+
+/*
+ * The notifier has at most one pending timer.  The next scheduled timer
+ * event is recorded in the pendingTimeout structure.  The
+ * pendingTimeoutPtr is set to refer to pendingTimeout by Tk_NotifyTimer.
+ * Once the timer fires, Tk_DoOneEvent resets the pointer to NULL.
+ */
+
+static Tk_Time *pendingTimeoutPtr;
+				/* Points to current timer value. */
+static Tk_Time pendingTimeout;	/* Time when timer should fire. */
+
+/*
+ * Prototypes for procedures referenced only in this file:
+ */
+
+static int		ServiceDisplay _ANSI_ARGS_((Display *display));
+static void		RefreshFdBits _ANSI_ARGS_((void));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ServiceDisplay --
+ *
+ *	This function is called by Tk_DoOneEvent whenever the notifier
+ *	detects that the Display's fd is readable.  It is responsible
+ *	for retrieving and queueing any pending X events.
+ *
+ * Results:
+ *	The return value is 1 if the procedure found an event to
+ *	queue.  If no events were found, then 0 is returned.
+ *
+ * Side effects:
+ *	Passes all pending X events to Tk_QueueEvent.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ServiceDisplay(display)
+    Display *display;		/* Display to service. */
+{
+    Tk_Event event;
+    int numFound;
+
+    /*
+     * We should not need to do a flush of the output queues before
+     * calling XEventsQueued because it should have been done before
+     * we called select in Tk_DoOneEvent.
+     */
+    
+    numFound = XEventsQueued(display, QueuedAfterReading);
+    if (numFound == 0) {
+
+	/*
+	 * Things are very tricky if there aren't any events readable
+	 * at this point (after all, there was supposedly data
+	 * available on the connection).  A couple of things could
+	 * have occurred:
+	 * 
+	 * One possibility is that there were only error events in the
+	 * input from the server.  If this happens, we should return
+	 * (we don't want to go to sleep in XNextEvent below, since
+	 * this would block out other sources of input to the
+	 * process).
+	 *
+	 * Another possibility is that our connection to the server
+	 * has been closed.  This will not necessarily be detected in
+	 * XEventsQueued (!!), so if we just return then there will be
+	 * an infinite loop.  To detect such an error, generate a NoOp
+	 * protocol request to exercise the connection to the server,
+	 * then return.  However, must disable SIGPIPE while sending
+	 * the request, or else the process will die from the signal
+	 * and won't invoke the X error function to print a nice (?!)
+	 * message.
+	 */
+
+	void (*oldHandler)();
+
+	oldHandler = (void (*)()) signal(SIGPIPE, SIG_IGN);
+	XNoOp(display);
+	XFlush(display);
+	(void) signal(SIGPIPE, oldHandler);
+	return 0;
+    }
+
+    /*
+     * Transfer events from the X event queue to the Tk event queue.
+     */
+    
+    event.type = TK_WINDOW_EVENTS;
+    while (numFound > 0) {
+	XNextEvent(display, &event.window.event);
+	Tk_QueueEvent(&event, TK_QUEUE_TAIL);
+	numFound--;
+    }
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_NotifyFile --
+ *
+ *	Arrange for Tk_QueueEvent to be called the next time a given
+ *	I/O channel becomes readable or writable.  This is a one-shot
+ *	event.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The notifier will generate a file event when the I/O channel
+ *	given by fd next becomes ready in the way indicated by mask.
+ *	If fd is already registered then the old mask will be replaced
+ *	with the new one.  Once the event is sent, the notifier will
+ *	not send any more events about the fd until the next call to
+ *	Tk_NotifyFile. 
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_NotifyFile(fd, mask)
+    int fd;			/* Integer identifier for a stream. */
+    int mask;			/* OR'ed combination of TK_READABLE,
+				 * TK_WRITABLE, and TK_EXCEPTION:
+				 * indicates conditions under which a
+				 * new event should be queued. */
+{
+    int index;
+    fd_mask bitSelect;
+    
+    if (fd >= FD_SETSIZE) {
+	panic("Tk_NotifyFile can't handle file id %d", fd);
+    }
+
+    /*
+     * Make sure the appropriate check bits are set for the specified file
+     * descriptor.  
+     */
+
+    index = fd/(NBBY*sizeof(fd_mask));
+    bitSelect = 1 << (fd%(NBBY*sizeof(fd_mask)));
+    if (mask & TK_READABLE) {
+	check[index] |= bitSelect;
+    } else {
+	check[index] &= ~bitSelect;
+    }
+    if (mask & TK_WRITABLE) {
+	check[index+MASK_SIZE] |= bitSelect;
+    } else {
+	check[index+MASK_SIZE] &= ~bitSelect;
+    }
+    if (mask & TK_EXCEPTION) {
+	check[index+2*MASK_SIZE] |= bitSelect;
+    } else {
+	check[index+2*MASK_SIZE] &= ~bitSelect;
+    }
+
+    if (numFdBits <= fd) {
+	numFdBits = fd+1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_IgnoreFile --
+ *
+ *	Cancel an outstanding file event request.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The notifier will stop looking for events on the I/O channel
+ *	given by fd. 
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_IgnoreFile(fd)
+    int fd;			/* Integer identifier for a stream. */
+{
+    int index;
+    fd_mask bitSelect;
+
+    /*
+     * Turn off check bits for the specified file.
+     */
+
+    index = fd/(NBBY*sizeof(fd_mask));
+    bitSelect = 1 << (fd%(NBBY*sizeof(fd_mask)));
+    check[index] &= ~bitSelect;
+    check[index+MASK_SIZE] &= ~bitSelect;
+    check[index+2*MASK_SIZE] &= ~bitSelect;
+
+    /*
+     * If this fd was at the high water mark and there is a chance
+     * that it was the last fd, then recompute the numFdBits.
+     */
+
+    if ((firstDisplayPtr != NULL) && (fd == (numFdBits-1))) {
+	RefreshFdBits();
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_NotifyDisplay --
+ *
+ *	Arrange for events to be generated for a particular display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, all window system events directed at display will
+ *	be passed to Tk_QueueEvent.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_NotifyDisplay(display)
+    Display *display;		/* Display for which events should be
+				 * generated. */
+{
+    int index, fd;
+    DisplayList *displayPtr;
+
+    /*
+     * Ignore duplicate displays.
+     */
+
+    for (displayPtr = firstDisplayPtr; displayPtr != NULL;
+	    displayPtr = displayPtr->nextPtr) {
+	if (displayPtr->display == display) {
+	    return;
+	}
+    }
+
+    /*
+     * Add the display to the display list.
+     */
+
+    fd = ConnectionNumber(display);
+    displayPtr = (DisplayList *) ckalloc(sizeof(DisplayList));
+    displayPtr->display = display;
+    index = fd/(NBBY*sizeof(fd_mask));
+    displayPtr->readPtr = &ready[index];
+    displayPtr->checkReadPtr = &check[index];
+    displayPtr->bitSelect = 1 << (fd%(NBBY*sizeof(fd_mask)));
+    displayPtr->nextPtr = firstDisplayPtr;
+    firstDisplayPtr = displayPtr;
+
+    check[index] |= displayPtr->bitSelect;
+
+    if (numFdBits <= fd) {
+	numFdBits = fd+1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_IgnoreDisplay --
+ *
+ *	Arrange for events to no longer be delivered for a particular
+ *	display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	From now on, the notifier will not generate events for a
+ *	particular display.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_IgnoreDisplay(display)
+    Display *display;		/* Display for which events should not
+				 * be generated. */
+{
+    int index, fd;
+    DisplayList *displayPtr, *prevPtr;
+    fd_mask bitSelect;
+
+    for (displayPtr = firstDisplayPtr, prevPtr = NULL; displayPtr != NULL;
+	    prevPtr = displayPtr, displayPtr = displayPtr->nextPtr) {
+	if (displayPtr->display != display) {
+	    continue;
+	}
+	if (prevPtr == NULL) {
+	    firstDisplayPtr = displayPtr->nextPtr;
+	} else {
+	    prevPtr->nextPtr = displayPtr->nextPtr;
+	}
+	fd = ConnectionNumber(display);
+	index = fd/(NBBY*sizeof(fd_mask));
+	bitSelect = 1 << (fd%(NBBY*sizeof(fd_mask)));
+	check[index] &= ~bitSelect;
+	ckfree((char *) displayPtr);
+
+	/*
+	 * If this fd was at the high water mark and there is a chance
+	 * that it was the last fd, then recompute the numFdBits.
+	 */
+
+	if ((firstDisplayPtr != NULL) && (fd == (numFdBits-1))) {
+	    RefreshFdBits();
+	}
+
+	return;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_NotifyTimer --
+ *
+ *	Arrange for an event to be generated at a particular time in
+ *	the future.  This is a one-shot event.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	When the time specified by timeout is reached, a timer event
+ *	will be passed to Tk_QueueEvent.  There is only one
+ *	outstanding timer, so if the previous timer has not expired,
+ *	it will be replaced with the current timeout value.  Only one
+ *	timer event will be generated after the timer expires until
+ *	the next call to Tk_NotifyTimer.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_NotifyTimer(time)
+    Tk_Time *time;		/* Absolute time when the notifier should
+				 * generate a timer event. */
+{
+    pendingTimeoutPtr = &pendingTimeout;
+    pendingTimeout = *time;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_DoOneEvent --
+ *
+ *	Process a single event of some sort.  If there's no work to
+ *	do, wait for an event to occur, then process it.
+ *
+ * Results:
+ *	The return value is 1 if the procedure actually found an event
+ *	to process.  If no processing occurred, then 0 is returned.
+ *	The caller should invoke Tk_DoOneEvent repeatedly until it
+ *	returns 0 to insure that all events have been processed.
+ *
+ * Side effects:
+ *	May delay execution of process while waiting for an event,
+ *	unless TK_DONT_WAIT is set in the flags argument.
+ *	Tk_ServiceEvent will be called at most once.  If no queued
+ *	events were processed, then the procedure checks for new
+ *	events.  If TK_DONT_WAIT is set or Tk has called
+ *	Tk_NotifyIdle since the last time Tk_ServiceIdle was called,
+ *	then Tk_DoOneEvent will only poll for events, otherwise it
+ *	blocks until the next event occurs.  All detected events will
+ *	be queued.  If no events are detected, and Tk has called
+ *	Tk_NotifyIdle, then Tk_ServiceIdle will be called.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tk_DoOneEvent(flags)
+    int flags;			/* Miscellaneous flag values:  may be any
+				 * combination of TK_DONT_WAIT,
+				 * TK_WINDOW_EVENTS, TK_FILE_EVENTS,
+				 * TK_TIMER_EVENTS, and TK_IDLE_EVENTS. */
+{
+    DisplayList *displayPtr;
+    struct timeval curTime, timeout, *timeoutPtr;
+    Tk_Event event;
+    fd_mask fdmask, bitSelect;
+    int index, numFound;
+    int foundEvent = 0;
+    int dontLoop;		/* Avoid reentering select if set to 1. */
+
+    /*
+     * No event flags is equivalent to TK_ALL_EVENTS.
+     */
+    
+    if ((flags & TK_ALL_EVENTS) == 0) {
+	flags |= TK_ALL_EVENTS;
+    }
+
+    dontLoop = (flags & TK_DONT_WAIT);
+
+    /*
+     * Look for events until we find something to do, or no other events
+     * are possible.
+     */
+
+    do {
+
+	/*
+	 * The first thing we do is to service any asynchronous event
+	 * handlers.
+	 */
+    
+	if (Tcl_AsyncReady()) {
+	    (void) Tcl_AsyncInvoke((Tcl_Interp *) NULL, 0);
+	    return 1;
+	}
+
+	/*
+	 * Ask Tk to service a queued event.  If Tk does not handle any events,
+	 * then we should look for new events.
+	 */
+
+	if (Tk_ServiceEvent(flags)) {
+	    return 1;		/* Tk serviced an event so we're done. */
+	}
+
+	/*
+	 * Skip to the idle handlers if that is all we are doing.  Since
+	 * nothing else can happen, we set dontLoop to 1.
+	 */
+
+	if ((flags & TK_ALL_EVENTS) == TK_IDLE_EVENTS) {
+	    dontLoop = 1;
+	    goto doIdle;
+	}
+
+	/*
+	 * First we need to check for X events which are already queued.
+	 */
+
+	if ((flags & TK_WINDOW_EVENTS)) {
+	    for (displayPtr = firstDisplayPtr; displayPtr != NULL;
+		    displayPtr = displayPtr->nextPtr) {
+		XFlush(displayPtr->display);
+		if (XQLength(displayPtr->display) > 0) {
+		    if (ServiceDisplay(displayPtr->display)) {
+			foundEvent = 1;
+		    }
+		}
+	    }
+	}
+
+	/*
+	 * Load the select mask from the current check mask.
+	 */
+
+	memcpy((VOID *) ready, (VOID *) check, 3*MASK_SIZE*sizeof(fd_mask));
+
+	/*
+	 * Compute the current timeout value.  If we have already detected an
+	 * event, if idle tasks are pending or if TK_DONT_WAIT is set, then we
+	 * should poll.  If a timer is pending, then we should compute the
+	 * remaining time.  Otherwise, we block.
+	 */
+
+	if (foundEvent
+		|| (flags & TK_DONT_WAIT)
+		|| ((flags & TK_IDLE_EVENTS) && Tk_IdlePending())) {
+	    timeout.tv_sec = 0;
+	    timeout.tv_usec = 0;
+	    timeoutPtr = &timeout;
+	} else if ((pendingTimeoutPtr != NULL) && (flags & TK_TIMER_EVENTS)) {
+	    (void) gettimeofday(&curTime, (struct timezone *) NULL);
+
+	    /*
+	     * Check to see if the timer has expired.
+	     */
+
+	    if ((pendingTimeoutPtr->sec < curTime.tv_sec)
+		    || ((pendingTimeoutPtr->sec == curTime.tv_sec)
+			    &&  (pendingTimeoutPtr->usec < curTime.tv_usec))) {
+		timeout.tv_sec = 0;
+		timeout.tv_usec = 0;
+	    } else {
+		timeout.tv_sec = pendingTimeoutPtr->sec - curTime.tv_sec;
+		timeout.tv_usec = pendingTimeoutPtr->usec - curTime.tv_usec;
+		if (timeout.tv_usec < 0) {
+		    timeout.tv_sec -= 1;
+		    timeout.tv_usec += 1000000;
+		}
+	    }
+	    timeoutPtr = &timeout;
+	} else {
+	    timeoutPtr = NULL;
+	}
+
+	/*
+	 * If no events could be detected, return immediately to
+	 * avoid blocking forever.
+	 */
+    
+	if ((timeoutPtr == NULL) && (numFdBits == 0)) {
+	    return 0;
+	}
+
+	/*
+	 * Wait until an event occurs or the timer expires.
+	 */
+
+	numFound = select(numFdBits, (SELECT_MASK *) &ready[0],
+		(SELECT_MASK *) &ready[MASK_SIZE],
+		(SELECT_MASK *) &ready[2*MASK_SIZE], timeoutPtr);
+
+	/*
+	 * Some systems don't clear the masks after an error, so
+	 * we have to do it here.
+	 */
+
+	if (numFound == -1) {
+	    memset((VOID *) ready, 0, 3*MASK_SIZE*sizeof(fd_mask));
+	}
+
+	/*
+	 * Check to see if the timer has expired.
+	 */
+
+	if ((pendingTimeoutPtr != NULL) && (flags & TK_TIMER_EVENTS)) {
+	    (void) gettimeofday(&curTime, (struct timezone *) NULL);
+	    if ((pendingTimeoutPtr->sec < curTime.tv_sec)
+		    || ((pendingTimeoutPtr->sec == curTime.tv_sec)
+			    &&  (pendingTimeoutPtr->usec < curTime.tv_usec))) {
+		pendingTimeoutPtr = NULL;
+
+		/*
+		 * Generate timer event.
+		 */
+
+		foundEvent = 1;
+		event.type = TK_TIMER_EVENTS;
+		event.timer.time.sec = curTime.tv_sec;
+		event.timer.time.usec = curTime.tv_usec;
+		Tk_QueueEvent(&event, TK_QUEUE_TAIL);
+	    }
+	}
+
+	/*
+	 * Check for window system events.  Once a display has been serviced,
+	 * it is removed from the ready mask, so we don't generate a file event
+	 * for it.
+	 */
+
+	for (displayPtr = firstDisplayPtr; displayPtr != NULL;
+					   displayPtr = displayPtr->nextPtr) {
+	    if (*displayPtr->readPtr & displayPtr->bitSelect) {
+		if (ServiceDisplay(displayPtr->display)) {
+		    foundEvent = 1;
+		}
+		numFound--;
+		*displayPtr->readPtr &= ~(displayPtr->bitSelect);
+	    }
+	}
+
+	/*
+	 * Check for file events.  We iterate over the ready fd_masks looking
+	 * for a mask with any bits set.  By or'ing the read, write, and
+	 * exception masks together, we can make a single pass through the file
+	 * descriptors.  If any event occured on a file, we need to queue a
+	 * file event with the appropriate file descriptor and event mask, and
+	 * then clear all of the check bits for that file.
+	 */
+    
+	if (numFound > 0) {
+	    foundEvent = 1;
+	    event.type = TK_FILE_EVENTS;
+	    index = -1;
+	    bitSelect = 0;
+	    event.file.fd = 0;
+	    fdmask = 0;
+
+	    /*
+	     * Each time through the loop we shift bitSelect.  When we
+	     * have tested each bit in the current mask, bitSelect becomes
+	     * zero, so we know to continue with the next mask in the set.
+	     */
+	
+	    while (numFound > 0) {
+		if (!bitSelect) {	/* check for wrap-around */
+		    if (event.file.fd >= numFdBits) {
+			/*
+			 * Somehow there aren't as many files ready as numFound
+			 * suggests.  Either select lied to us or there is a
+			 * reentrancy problem here.
+			 */
+
+			panic("Tk_DoOneEvent got bogus count from select");
+		    }
+		    bitSelect = 1;
+		    index++;
+		    fdmask = ready[index] | ready[index+MASK_SIZE]
+			| ready[index+2*MASK_SIZE];
+		}
+		if (fdmask & bitSelect) {
+		    numFound--;
+		    event.file.mask = 0;
+		    if (ready[index] & bitSelect) {
+			event.file.mask |= TK_READABLE;
+		    }
+		    if (ready[index+MASK_SIZE] & bitSelect) {
+			event.file.mask |= TK_WRITABLE;
+		    }
+		    if (ready[index+2*MASK_SIZE] & bitSelect) {
+			event.file.mask |= TK_EXCEPTION;
+		    }
+		    Tk_QueueEvent(&event, TK_QUEUE_TAIL);
+		    check[index] &= ~bitSelect;
+		    check[index+MASK_SIZE] &= ~bitSelect;
+		    check[index+2*MASK_SIZE] &= ~bitSelect;
+		}
+		bitSelect <<= 1;
+		event.file.fd++;
+	    }
+
+	    /*
+	     * If there are no displays currently registered, then we need to
+	     * recompute numFdBits since some bits have been cleared and we may
+	     * block the next time through.
+	     */
+
+	    if (firstDisplayPtr == NULL) {
+		RefreshFdBits();
+	    }
+	}
+		
+	/*
+	 * If no other events were generated, then we should try to 
+	 * service pending idle handlers.
+	 */
+
+	doIdle:
+	if (!foundEvent && (flags & TK_IDLE_EVENTS)) {
+	    foundEvent = Tk_ServiceIdle();
+	}
+
+    } while (!foundEvent && !dontLoop);
+
+    /*
+     * No other events can be detected at this point.
+     */
+
+    return foundEvent;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_Sleep --
+ *
+ *	Delay execution for the specified number of milliseconds.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Time passes.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_Sleep(ms)
+    int ms;			/* Number of milliseconds to sleep. */
+{
+    static struct timeval delay;
+
+    delay.tv_sec = ms/1000;
+    delay.tv_usec = (ms%1000)*1000;
+    (void) select(0, (SELECT_MASK *) 0, (SELECT_MASK *) 0,
+	    (SELECT_MASK *) 0, &delay);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * Tk_MainLoop --
+ *
+ *	Call Tk_DoOneEvent over and over again in an infinite
+ *	loop as long as there exist any main windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arbitrary;  depends on handlers for events.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+Tk_MainLoop()
+{
+    while (Tk_GetNumMainWindows() > 0) {
+	Tk_DoOneEvent(0);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RefreshFdBits --
+ *
+ *	This function finds the largest currently registered
+ *	file descriptor from the check mask.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Updates the numFdBits static variable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RefreshFdBits()
+{
+    int limit, index;
+    fd_mask fdmask;
+
+    /*
+     * We start by finding the largest element of the check array that
+     * contains at least one set bit.  We start the search with the
+     * last known maximum index value.
+     */
+
+    limit = (numFdBits / (NBBY*sizeof(fd_mask)));
+    numFdBits = 0;
+    fdmask = 0;
+    for (index = limit; (index >= 0); index--) {
+	fdmask = check[index] | check[index+MASK_SIZE]
+	    | check[index+2*MASK_SIZE];
+	if (fdmask) {
+	    break;
+	}
+    }
+
+    /*
+     * Now that we have the biggest mask, we need to find the most
+     * significant bit.
+     */
+
+    if (fdmask) {
+	int offset;
+	numFdBits = index*NBBY*sizeof(fd_mask);
+	for (offset = 0; ; offset++) {
+	    fdmask &= ~(1<<offset);
+	    if (!fdmask) {
+		break;
+	    }
+	}
+	numFdBits += (offset+1);
+    }
+}
diff --git a/Tk/unix/tkUnixPort.h b/Tk/unix/tkUnixPort.h
new file mode 100644
index 0000000..6de58e2
--- /dev/null
+++ b/Tk/unix/tkUnixPort.h
@@ -0,0 +1,139 @@
+/*
+ * tkUnixPort.h --
+ *
+ *	This file is included by all of the Tk C files.  It contains
+ *	information that may be configuration-dependent, such as
+ *	#includes for system include files and a few other things.
+ *
+ * Copyright (c) 1991-1993 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixPort.h 1.18 96/03/14 10:22:47
+ */
+
+#ifndef _UNIXPORT
+#define _UNIXPORT
+
+/*
+ * Macro to use instead of "void" for arguments that must have
+ * type "void *" in ANSI C;  maps them to type "char *" in
+ * non-ANSI systems.  This macro may be used in some of the include
+ * files below, which is why it is defined here.
+ */
+
+#ifndef VOID
+#   ifdef __STDC__
+#       define VOID void
+#   else
+#       define VOID char
+#   endif
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+#include <fcntl.h>
+#ifdef HAVE_LIMITS_H
+#   include <limits.h>
+#else
+#   include "../compat/limits.h"
+#endif
+#include <math.h>
+#include <pwd.h>
+#ifdef NO_STDLIB_H
+#   include "../compat/stdlib.h"
+#else
+#   include <stdlib.h>
+#endif
+#include <string.h>
+#include <sys/types.h>
+#include <sys/file.h>
+#include <sys/stat.h>
+#ifndef _TCL
+#   include <tcl.h>
+#endif
+#ifdef HAVE_UNISTD_H
+#   include <unistd.h>
+#else
+#   include "../compat/unistd.h"
+#endif
+#include <X11/Xlib.h>
+#include <X11/cursorfont.h>
+#include <X11/keysym.h>
+#include <X11/Xatom.h>
+#include <X11/Xproto.h>
+#include <X11/Xresource.h>
+#include <X11/Xutil.h>
+
+/*
+ * Not all systems declare the errno variable in errno.h. so this
+ * file does it explicitly.
+ */
+
+extern int errno;
+
+/*
+ * Define "NBBY" (number of bits per byte) if it's not already defined.
+ */
+
+#ifndef NBBY
+#   define NBBY 8
+#endif
+
+/*
+ * These macros are just wrappers for the equivalent X Region calls.
+ */
+
+#define TkClipBox(rgn, rect) XClipBox((Region) rgn, rect)
+#define TkCreateRegion() (TkRegion) XCreateRegion()
+#define TkDestroyRegion(rgn) XDestroyRegion((Region) rgn)
+#define TkIntersectRegion(a, b, r) XIntersectRegion((Region) a, \
+	(Region) b, (Region) r)
+#define TkRectInRegion(r, x, y, w, h) XRectInRegion((Region) r, x, y, w, h)
+#define TkSetRegion(d, gc, rgn) XSetRegion(d, gc, (Region) rgn)
+#define TkUnionRectWithRegion(rect, src, ret) XUnionRectWithRegion(rect, \
+	(Region) src, (Region) ret)
+
+/*
+ * The TkPutImage macro strips off the color table information, which isn't
+ * needed for X.
+ */
+
+#define TkPutImage(colors, ncolors, display, pixels, gc, image, destx, desty, srcx, srcy, width, height) \
+	XPutImage(display, pixels, gc, image, destx, desty, srcx, \
+	srcy, width, height);
+
+/*
+ * Supply macros for seek offsets, if they're not already provided by
+ * an include file.
+ */
+
+#ifndef SEEK_SET
+#   define SEEK_SET 0
+#endif
+
+#ifndef SEEK_CUR
+#   define SEEK_CUR 1
+#endif
+
+#ifndef SEEK_END
+#   define SEEK_END 2
+#endif
+
+/*
+ * Declarations for various library procedures that may not be declared
+ * in any other header file.
+ */
+
+extern void		panic();
+
+/*
+ * These functions do nothing under Unix, so we just eliminate calls them.
+ */
+
+#define TkSelUpdateClipboard(a,b) {}
+#define TkSetPixmapColormap(p,c) {}
+
+#endif /* _UNIXPORT */
diff --git a/Tk/unix/tkUnixSelect.c b/Tk/unix/tkUnixSelect.c
new file mode 100644
index 0000000..404631e
--- /dev/null
+++ b/Tk/unix/tkUnixSelect.c
@@ -0,0 +1,1189 @@
+/* 
+ * tkUnixSelect.c --
+ *
+ *	This file contains X specific routines for manipulating 
+ *	selections.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixSelect.c 1.5 96/03/29 14:14:31
+ */
+
+#include "tkInt.h"
+#include "tkSelect.h"
+
+/*
+ * When handling INCR-style selection retrievals, the selection owner
+ * uses the following data structure to communicate between the
+ * ConvertSelection procedure and TkSelPropProc.
+ */
+
+typedef struct IncrInfo {
+    TkWindow *winPtr;		/* Window that owns selection. */
+    Atom selection;		/* Selection that is being retrieved. */
+    Atom *multAtoms;		/* Information about conversions to
+				 * perform:  one or more pairs of
+				 * (target, property).  This either
+				 * points to a retrieved  property (for
+				 * MULTIPLE retrievals) or to a static
+				 * array. */
+    unsigned long numConversions;
+				/* Number of entries in offsets (same as
+				 * # of pairs in multAtoms). */
+    int *offsets;		/* One entry for each pair in
+				 * multAtoms;  -1 means all data has
+				 * been transferred for this
+				 * conversion.  -2 means only the
+				 * final zero-length transfer still
+				 * has to be done.  Otherwise it is the
+				 * offset of the next chunk of data
+				 * to transfer.  This array is malloc-ed. */
+    int numIncrs;		/* Number of entries in offsets that
+				 * aren't -1 (i.e. # of INCR-mode transfers
+				 * not yet completed). */
+    Tcl_TimerToken timeout;	/* Token for timer procedure. */
+    int idleTime;		/* Number of seconds since we heard
+				 * anything from the selection
+				 * requestor. */
+    Window reqWindow;		/* Requestor's window id. */
+    Time time;			/* Timestamp corresponding to
+				 * selection at beginning of request;
+				 * used to abort transfer if selection
+				 * changes. */
+    struct IncrInfo *nextPtr;	/* Next in list of all INCR-style
+				 * retrievals currently pending. */
+} IncrInfo;
+
+static IncrInfo *pendingIncrs = NULL;
+				/* List of all incr structures
+				 * currently active. */
+
+/*
+ * Largest property that we'll accept when sending or receiving the
+ * selection:
+ */
+
+#define MAX_PROP_WORDS 100000
+
+static TkSelRetrievalInfo *pendingRetrievals = NULL;
+				/* List of all retrievals currently
+				 * being waited for. */
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		ConvertSelection _ANSI_ARGS_((TkWindow *winPtr,
+			    XSelectionRequestEvent *eventPtr));
+static void		IncrTimeoutProc _ANSI_ARGS_((ClientData clientData));
+static char *		SelCvtFromX _ANSI_ARGS_((long *propPtr, int numValues,
+			    Atom type, Tk_Window tkwin));
+static long *		SelCvtToX _ANSI_ARGS_((char *string, Atom type,
+			    Tk_Window tkwin, int *numLongsPtr));
+static int		SelectionSize _ANSI_ARGS_((TkSelHandler *selPtr));
+static void		SelRcvIncrProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		SelTimeoutProc _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelGetSelection --
+ *
+ *	Retrieve the specified selection from another process.
+ *
+ * Results:
+ *	The return value is a standard Tcl return value.
+ *	If an error occurs (such as no selection exists)
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkSelGetSelection(interp, tkwin, selection, target, proc, clientData)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting
+				 * errors. */
+    Tk_Window tkwin;		/* Window on whose behalf to retrieve
+				 * the selection (determines display
+				 * from which to retrieve). */
+    Atom selection;		/* Selection to retrieve. */
+    Atom target;		/* Desired form in which selection
+				 * is to be returned. */
+    Tk_GetSelProc *proc;	/* Procedure to call to process the
+				 * selection, once it has been retrieved. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    TkSelRetrievalInfo retr;
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+
+    /*
+     * The selection is owned by some other process.  To
+     * retrieve it, first record information about the retrieval
+     * in progress.  Use an internal window as the requestor.
+     */
+
+    retr.interp = interp;
+    if (dispPtr->clipWindow == NULL) {
+	int result;
+
+	result = TkClipInit(interp, dispPtr);
+	if (result != TCL_OK) {
+	    return result;
+	}
+    }
+    retr.winPtr = (TkWindow *) dispPtr->clipWindow;
+    retr.selection = selection;
+    retr.property = selection;
+    retr.target = target;
+    retr.proc = proc;
+    retr.clientData = clientData;
+    retr.result = -1;
+    retr.idleTime = 0;
+    retr.nextPtr = pendingRetrievals;
+    pendingRetrievals = &retr;
+
+    /*
+     * Initiate the request for the selection.  Note:  can't use
+     * TkCurrentTime for the time.  If we do, and this application hasn't
+     * received any X events in a long time, the current time will be way
+     * in the past and could even predate the time when the selection was
+     * made;  if this happens, the request will be rejected.
+     */
+
+    XConvertSelection(winPtr->display, retr.selection, retr.target,
+	    retr.property, retr.winPtr->window, CurrentTime);
+
+    /*
+     * Enter a loop processing X events until the selection
+     * has been retrieved and processed.  If no response is
+     * received within a few seconds, then timeout.
+     */
+
+    retr.timeout = Tcl_CreateTimerHandler(1000, SelTimeoutProc,
+	    (ClientData) &retr);
+    while (retr.result == -1) {
+	Tcl_DoOneEvent(0);
+    }
+    Tcl_DeleteTimerHandler(retr.timeout);
+
+    /*
+     * Unregister the information about the selection retrieval
+     * in progress.
+     */
+
+    if (pendingRetrievals == &retr) {
+	pendingRetrievals = retr.nextPtr;
+    } else {
+	TkSelRetrievalInfo *retrPtr;
+
+	for (retrPtr = pendingRetrievals; retrPtr != NULL;
+		retrPtr = retrPtr->nextPtr) {
+	    if (retrPtr->nextPtr == &retr) {
+		retrPtr->nextPtr = retr.nextPtr;
+		break;
+	    }
+	}
+    }
+    return retr.result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelPropProc --
+ *
+ *	This procedure is invoked when property-change events
+ *	occur on windows not known to the toolkit.  Its function
+ *	is to implement the sending side of the INCR selection
+ *	retrieval protocol when the selection requestor deletes
+ *	the property containing a part of the selection.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If the property that is receiving the selection was just
+ *	deleted, then a new piece of the selection is fetched and
+ *	placed in the property, until eventually there's no more
+ *	selection to fetch.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelPropProc(eventPtr)
+    register XEvent *eventPtr;		/* X PropertyChange event. */
+{
+    register IncrInfo *incrPtr;
+    int i, format;
+    Atom target, formatType;
+    register TkSelHandler *selPtr;
+    long buffer[TK_SEL_WORDS_AT_ONCE];
+    int numItems;
+    char *propPtr;
+    Tk_ErrorHandler errorHandler;
+
+    /*
+     * See if this event announces the deletion of a property being
+     * used for an INCR transfer.  If so, then add the next chunk of
+     * data to the property.
+     */
+
+    if (eventPtr->xproperty.state != PropertyDelete) {
+	return;
+    }
+    for (incrPtr = pendingIncrs; incrPtr != NULL;
+	    incrPtr = incrPtr->nextPtr) {
+	if (incrPtr->reqWindow != eventPtr->xproperty.window) {
+	    continue;
+	}
+	for (i = 0; i < incrPtr->numConversions; i++) {
+	    if ((eventPtr->xproperty.atom != incrPtr->multAtoms[2*i + 1])
+		    || (incrPtr->offsets[i] == -1)){
+		continue;
+	    }
+	    target = incrPtr->multAtoms[2*i];
+	    incrPtr->idleTime = 0;
+	    for (selPtr = incrPtr->winPtr->selHandlerList; ;
+		    selPtr = selPtr->nextPtr) {
+		if (selPtr == NULL) {
+		    incrPtr->multAtoms[2*i + 1] = None;
+		    incrPtr->offsets[i] = -1;
+		    incrPtr->numIncrs --;
+		    return;
+		}
+		if ((selPtr->target == target)
+			&& (selPtr->selection == incrPtr->selection)) {
+		    formatType = selPtr->format;
+		    if (incrPtr->offsets[i] == -2) {
+			numItems = 0;
+			((char *) buffer)[0] = 0;
+		    } else {
+			TkSelInProgress ip;
+			ip.selPtr = selPtr;
+			ip.nextPtr = pendingPtr;
+			pendingPtr = &ip;
+			numItems = (*selPtr->proc)(selPtr->clientData,
+				incrPtr->offsets[i], (char *) buffer,
+				TK_SEL_BYTES_AT_ONCE);
+			pendingPtr = ip.nextPtr;
+			if (ip.selPtr == NULL) {
+			    /*
+			     * The selection handler deleted itself.
+			     */
+
+			    return;
+			}
+			if (numItems > TK_SEL_BYTES_AT_ONCE) {
+			    panic("selection handler returned too many bytes");
+			} else {
+			    if (numItems < 0) {
+				numItems = 0;
+			    }
+			}
+			((char *) buffer)[numItems] = '\0';
+		    }
+		    if (numItems < TK_SEL_BYTES_AT_ONCE) {
+			if (numItems <= 0) {
+			    incrPtr->offsets[i] = -1;
+			    incrPtr->numIncrs--;
+			} else {
+			    incrPtr->offsets[i] = -2;
+			}
+		    } else {
+			incrPtr->offsets[i] += numItems;
+		    }
+		    if (formatType == XA_STRING) {
+			propPtr = (char *) buffer;
+			format = 8;
+		    } else {
+			propPtr = (char *) SelCvtToX((char *) buffer,
+				formatType, (Tk_Window) incrPtr->winPtr,
+				&numItems);
+			format = 32;
+		    }
+		    errorHandler = Tk_CreateErrorHandler(
+			    eventPtr->xproperty.display, -1, -1, -1,
+			    (int (*)()) NULL, (ClientData) NULL);
+		    XChangeProperty(eventPtr->xproperty.display,
+			    eventPtr->xproperty.window,
+			    eventPtr->xproperty.atom, formatType,
+			    format, PropModeReplace,
+			    (unsigned char *) propPtr, numItems);
+		    Tk_DeleteErrorHandler(errorHandler);
+		    if (propPtr != (char *) buffer) {
+			ckfree(propPtr);
+		    }
+		    return;
+		}
+	    }
+	}
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkSelEventProc --
+ *
+ *	This procedure is invoked whenever a selection-related
+ *	event occurs.  It does the lion's share of the work
+ *	in implementing the selection protocol.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Lots:  depends on the type of event.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkSelEventProc(tkwin, eventPtr)
+    Tk_Window tkwin;		/* Window for which event was
+				 * targeted. */
+    register XEvent *eventPtr;	/* X event:  either SelectionClear,
+				 * SelectionRequest, or
+				 * SelectionNotify. */
+{
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    Tcl_Interp *interp;
+
+    /*
+     * Case #1: SelectionClear events.
+     */
+
+    if (eventPtr->type == SelectionClear) {
+	TkSelClearSelection(tkwin, eventPtr);
+    }
+
+    /*
+     * Case #2: SelectionNotify events.  Call the relevant procedure
+     * to handle the incoming selection.
+     */
+
+    if (eventPtr->type == SelectionNotify) {
+	register TkSelRetrievalInfo *retrPtr;
+	char *propInfo;
+	Atom type;
+	int format, result;
+	unsigned long numItems, bytesAfter;
+
+	for (retrPtr = pendingRetrievals; ; retrPtr = retrPtr->nextPtr) {
+	    if (retrPtr == NULL) {
+		return;
+	    }
+	    if ((retrPtr->winPtr == winPtr)
+		    && (retrPtr->selection == eventPtr->xselection.selection)
+		    && (retrPtr->target == eventPtr->xselection.target)
+		    && (retrPtr->result == -1)) {
+		if (retrPtr->property == eventPtr->xselection.property) {
+		    break;
+		}
+		if (eventPtr->xselection.property == None) {
+		    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
+		    Tcl_AppendResult(retrPtr->interp,
+			    Tk_GetAtomName(tkwin, retrPtr->selection),
+			    " selection doesn't exist or form \"",
+			    Tk_GetAtomName(tkwin, retrPtr->target),
+			    "\" not defined", (char *) NULL);
+		    retrPtr->result = TCL_ERROR;
+		    return;
+		}
+	    }
+	}
+
+	propInfo = NULL;
+	result = XGetWindowProperty(eventPtr->xselection.display,
+		eventPtr->xselection.requestor, retrPtr->property,
+		0, MAX_PROP_WORDS, False, (Atom) AnyPropertyType,
+		&type, &format, &numItems, &bytesAfter,
+		(unsigned char **) &propInfo);
+	if ((result != Success) || (type == None)) {
+	    return;
+	}
+	if (bytesAfter != 0) {
+	    Tcl_SetResult(retrPtr->interp, "selection property too large",
+		TCL_STATIC);
+	    retrPtr->result = TCL_ERROR;
+	    XFree(propInfo);
+	    return;
+	}
+	if ((type == XA_STRING) || (type == dispPtr->textAtom)
+		|| (type == dispPtr->compoundTextAtom)) {
+	    if (format != 8) {
+		sprintf(retrPtr->interp->result,
+		    "bad format for string selection: wanted \"8\", got \"%d\"",
+		    format);
+		retrPtr->result = TCL_ERROR;
+		return;
+	    }
+            interp = retrPtr->interp;
+            Tcl_Preserve((ClientData) interp);
+	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
+		    interp, propInfo);
+            Tcl_Release((ClientData) interp);
+	} else if (type == dispPtr->incrAtom) {
+
+	    /*
+	     * It's a !?#@!?!! INCR-style reception.  Arrange to receive
+	     * the selection in pieces, using the ICCCM protocol, then
+	     * hang around until either the selection is all here or a
+	     * timeout occurs.
+	     */
+
+	    retrPtr->idleTime = 0;
+	    Tk_CreateEventHandler(tkwin, PropertyChangeMask, SelRcvIncrProc,
+		    (ClientData) retrPtr);
+	    XDeleteProperty(Tk_Display(tkwin), Tk_WindowId(tkwin),
+		    retrPtr->property);
+	    while (retrPtr->result == -1) {
+		Tcl_DoOneEvent(0);
+	    }
+	    Tk_DeleteEventHandler(tkwin, PropertyChangeMask, SelRcvIncrProc,
+		    (ClientData) retrPtr);
+	} else {
+	    char *string;
+
+	    if (format != 32) {
+		sprintf(retrPtr->interp->result,
+		    "bad format for selection: wanted \"32\", got \"%d\"",
+		    format);
+		retrPtr->result = TCL_ERROR;
+		return;
+	    }
+	    string = SelCvtFromX((long *) propInfo, (int) numItems, type,
+		    (Tk_Window) winPtr);
+            interp = retrPtr->interp;
+            Tcl_Preserve((ClientData) interp);
+	    retrPtr->result = (*retrPtr->proc)(retrPtr->clientData,
+		    interp, string);
+            Tcl_Release((ClientData) interp);
+	    ckfree(string);
+	}
+	XFree(propInfo);
+	return;
+    }
+
+    /*
+     * Case #3: SelectionRequest events.  Call ConvertSelection to
+     * do the dirty work.
+     */
+
+    if (eventPtr->type == SelectionRequest) {
+	ConvertSelection(winPtr, &eventPtr->xselectionrequest);
+	return;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SelTimeoutProc --
+ *
+ *	This procedure is invoked once every second while waiting for
+ *	the selection to be returned.  After a while it gives up and
+ *	aborts the selection retrieval.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new timer callback is created to call us again in another
+ *	second, unless time has expired, in which case an error is
+ *	recorded for the retrieval.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SelTimeoutProc(clientData)
+    ClientData clientData;		/* Information about retrieval
+					 * in progress. */
+{
+    register TkSelRetrievalInfo *retrPtr = (TkSelRetrievalInfo *) clientData;
+
+    /*
+     * Make sure that the retrieval is still in progress.  Then
+     * see how long it's been since any sort of response was received
+     * from the other side.
+     */
+
+    if (retrPtr->result != -1) {
+	return;
+    }
+    retrPtr->idleTime++;
+    if (retrPtr->idleTime >= 5) {
+
+	/*
+	 * Use a careful procedure to store the error message, because
+	 * the result could already be partially filled in with a partial
+	 * selection return.
+	 */
+
+	Tcl_SetResult(retrPtr->interp, "selection owner didn't respond",
+		TCL_STATIC);
+	retrPtr->result = TCL_ERROR;
+    } else {
+	retrPtr->timeout = Tcl_CreateTimerHandler(1000, SelTimeoutProc,
+	    (ClientData) retrPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConvertSelection --
+ *
+ *	This procedure is invoked to handle SelectionRequest events.
+ *	It responds to the requests, obeying the ICCCM protocols.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Properties are created for the selection requestor, and a
+ *	SelectionNotify event is generated for the selection
+ *	requestor.  In the event of long selections, this procedure
+ *	implements INCR-mode transfers, using the ICCCM protocol.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ConvertSelection(winPtr, eventPtr)
+    TkWindow *winPtr;			/* Window that received the
+					 * conversion request;  may not be
+					 * selection's current owner, be we
+					 * set it to the current owner. */
+    register XSelectionRequestEvent *eventPtr;
+					/* Event describing request. */
+{
+    XSelectionEvent reply;		/* Used to notify requestor that
+					 * selection info is ready. */
+    int multiple;			/* Non-zero means a MULTIPLE request
+					 * is being handled. */
+    IncrInfo incr;			/* State of selection conversion. */
+    Atom singleInfo[2];			/* incr.multAtoms points here except
+					 * for multiple conversions. */
+    int i;
+    Tk_ErrorHandler errorHandler;
+    TkSelectionInfo *infoPtr;
+    TkSelInProgress ip;
+
+    errorHandler = Tk_CreateErrorHandler(eventPtr->display, -1, -1,-1,
+	    (int (*)()) NULL, (ClientData) NULL);
+
+    /*
+     * Initialize the reply event.
+     */
+
+    reply.type = SelectionNotify;
+    reply.serial = 0;
+    reply.send_event = True;
+    reply.display = eventPtr->display;
+    reply.requestor = eventPtr->requestor;
+    reply.selection = eventPtr->selection;
+    reply.target = eventPtr->target;
+    reply.property = eventPtr->property;
+    if (reply.property == None) {
+	reply.property = reply.target;
+    }
+    reply.time = eventPtr->time;
+
+    for (infoPtr = winPtr->dispPtr->selectionInfoPtr; infoPtr != NULL;
+	    infoPtr = infoPtr->nextPtr) {
+	if (infoPtr->selection == eventPtr->selection)
+	    break;
+    }
+    if (infoPtr == NULL) {
+	goto refuse;
+    }
+    winPtr = (TkWindow *) infoPtr->owner;
+
+    /*
+     * Figure out which kind(s) of conversion to perform.  If handling
+     * a MULTIPLE conversion, then read the property describing which
+     * conversions to perform.
+     */
+
+    incr.winPtr = winPtr;
+    incr.selection = eventPtr->selection;
+    if (eventPtr->target != winPtr->dispPtr->multipleAtom) {
+	multiple = 0;
+	singleInfo[0] = reply.target;
+	singleInfo[1] = reply.property;
+	incr.multAtoms = singleInfo;
+	incr.numConversions = 1;
+    } else {
+	Atom type;
+	int format, result;
+	unsigned long bytesAfter;
+
+	multiple = 1;
+	incr.multAtoms = NULL;
+	if (eventPtr->property == None) {
+	    goto refuse;
+	}
+	result = XGetWindowProperty(eventPtr->display,
+		eventPtr->requestor, eventPtr->property,
+		0, MAX_PROP_WORDS, False, XA_ATOM,
+		&type, &format, &incr.numConversions, &bytesAfter,
+		(unsigned char **) &incr.multAtoms);
+	if ((result != Success) || (bytesAfter != 0) || (format != 32)
+		|| (type == None)) {
+	    if (incr.multAtoms != NULL) {
+		XFree((char *) incr.multAtoms);
+	    }
+	    goto refuse;
+	}
+	incr.numConversions /= 2;		/* Two atoms per conversion. */
+    }
+
+    /*
+     * Loop through all of the requested conversions, and either return
+     * the entire converted selection, if it can be returned in a single
+     * bunch, or return INCR information only (the actual selection will
+     * be returned below).
+     */
+
+    incr.offsets = (int *) ckalloc((unsigned)
+	    (incr.numConversions*sizeof(int)));
+    incr.numIncrs = 0;
+    for (i = 0; i < incr.numConversions; i++) {
+	Atom target, property, type;
+	long buffer[TK_SEL_WORDS_AT_ONCE];
+	register TkSelHandler *selPtr;
+	int numItems, format;
+	char *propPtr;
+
+	target = incr.multAtoms[2*i];
+	property = incr.multAtoms[2*i + 1];
+	incr.offsets[i] = -1;
+
+	for (selPtr = winPtr->selHandlerList; selPtr != NULL;
+		selPtr = selPtr->nextPtr) {
+	    if ((selPtr->target == target)
+		    && (selPtr->selection == eventPtr->selection)) {
+		break;
+	    }
+	}
+
+	if (selPtr == NULL) {
+	    /*
+	     * Nobody seems to know about this kind of request.  If
+	     * it's of a sort that we can handle without any help, do
+	     * it.  Otherwise mark the request as an errror.
+	     */
+
+	    numItems = TkSelDefaultSelection(infoPtr, target, (char *) buffer,
+		    TK_SEL_BYTES_AT_ONCE, &type);
+	    if (numItems < 0) {
+		incr.multAtoms[2*i + 1] = None;
+		continue;
+	    }
+	} else {
+	    ip.selPtr = selPtr;
+	    ip.nextPtr = pendingPtr;
+	    pendingPtr = &ip;
+	    type = selPtr->format;
+	    numItems = (*selPtr->proc)(selPtr->clientData, 0,
+		    (char *) buffer, TK_SEL_BYTES_AT_ONCE);
+	    pendingPtr = ip.nextPtr;
+	    if ((ip.selPtr == NULL) || (numItems < 0)) {
+		incr.multAtoms[2*i + 1] = None;
+		continue;
+	    }
+	    if (numItems > TK_SEL_BYTES_AT_ONCE) {
+		panic("selection handler returned too many bytes");
+	    }
+	    ((char *) buffer)[numItems] = '\0';
+	}
+
+	/*
+	 * Got the selection;  store it back on the requestor's property.
+	 */
+
+	if (numItems == TK_SEL_BYTES_AT_ONCE) {
+	    /*
+	     * Selection is too big to send at once;  start an
+	     * INCR-mode transfer.
+	     */
+
+	    incr.numIncrs++;
+	    type = winPtr->dispPtr->incrAtom;
+	    buffer[0] = SelectionSize(selPtr);
+	    if (buffer[0] == 0) {
+		incr.multAtoms[2*i + 1] = None;
+		continue;
+	    }
+	    numItems = 1;
+	    propPtr = (char *) buffer;
+	    format = 32;
+	    incr.offsets[i] = 0;
+	} else if (type == XA_STRING) {
+	    propPtr = (char *) buffer;
+	    format = 8;
+	} else {
+	    propPtr = (char *) SelCvtToX((char *) buffer,
+		    type, (Tk_Window) winPtr, &numItems);
+	    format = 32;
+	}
+	XChangeProperty(reply.display, reply.requestor,
+		property, type, format, PropModeReplace,
+		(unsigned char *) propPtr, numItems);
+	if (propPtr != (char *) buffer) {
+	    ckfree(propPtr);
+	}
+    }
+
+    /*
+     * Send an event back to the requestor to indicate that the
+     * first stage of conversion is complete (everything is done
+     * except for long conversions that have to be done in INCR
+     * mode).
+     */
+
+    if (incr.numIncrs > 0) {
+	XSelectInput(reply.display, reply.requestor, PropertyChangeMask);
+	incr.timeout = Tcl_CreateTimerHandler(1000, IncrTimeoutProc,
+	    (ClientData) &incr);
+	incr.idleTime = 0;
+	incr.reqWindow = reply.requestor;
+	incr.time = infoPtr->time;
+	incr.nextPtr = pendingIncrs;
+	pendingIncrs = &incr;
+    }
+    if (multiple) {
+	XChangeProperty(reply.display, reply.requestor, reply.property,
+		XA_ATOM, 32, PropModeReplace,
+		(unsigned char *) incr.multAtoms,
+		(int) incr.numConversions*2);
+    } else {
+
+	/*
+	 * Not a MULTIPLE request.  The first property in "multAtoms"
+	 * got set to None if there was an error in conversion.
+	 */
+
+	reply.property = incr.multAtoms[1];
+    }
+    XSendEvent(reply.display, reply.requestor, False, 0, (XEvent *) &reply);
+    Tk_DeleteErrorHandler(errorHandler);
+
+    /*
+     * Handle any remaining INCR-mode transfers.  This all happens
+     * in callbacks to TkSelPropProc, so just wait until the number
+     * of uncompleted INCR transfers drops to zero.
+     */
+
+    if (incr.numIncrs > 0) {
+	IncrInfo *incrPtr2;
+
+	while (incr.numIncrs > 0) {
+	    Tcl_DoOneEvent(0);
+	}
+	Tcl_DeleteTimerHandler(incr.timeout);
+	errorHandler = Tk_CreateErrorHandler(winPtr->display,
+		-1, -1,-1, (int (*)()) NULL, (ClientData) NULL);
+	XSelectInput(reply.display, reply.requestor, 0L);
+	Tk_DeleteErrorHandler(errorHandler);
+	if (pendingIncrs == &incr) {
+	    pendingIncrs = incr.nextPtr;
+	} else {
+	    for (incrPtr2 = pendingIncrs; incrPtr2 != NULL;
+		    incrPtr2 = incrPtr2->nextPtr) {
+		if (incrPtr2->nextPtr == &incr) {
+		    incrPtr2->nextPtr = incr.nextPtr;
+		    break;
+		}
+	    }
+	}
+    }
+
+    /*
+     * All done.  Cleanup and return.
+     */
+
+    ckfree((char *) incr.offsets);
+    if (multiple) {
+	XFree((char *) incr.multAtoms);
+    }
+    return;
+
+    /*
+     * An error occurred.  Send back a refusal message.
+     */
+
+    refuse:
+    reply.property = None;
+    XSendEvent(reply.display, reply.requestor, False, 0, (XEvent *) &reply);
+    Tk_DeleteErrorHandler(errorHandler);
+    return;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SelRcvIncrProc --
+ *
+ *	This procedure handles the INCR protocol on the receiving
+ *	side.  It is invoked in response to property changes on
+ *	the requestor's window (which hopefully are because a new
+ *	chunk of the selection arrived).
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If a new piece of selection has arrived, a procedure is
+ *	invoked to deal with that piece.  When the whole selection
+ *	is here, a flag is left for the higher-level procedure that
+ *	initiated the selection retrieval.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SelRcvIncrProc(clientData, eventPtr)
+    ClientData clientData;		/* Information about retrieval. */
+    register XEvent *eventPtr;		/* X PropertyChange event. */
+{
+    register TkSelRetrievalInfo *retrPtr = (TkSelRetrievalInfo *) clientData;
+    char *propInfo;
+    Atom type;
+    int format, result;
+    unsigned long numItems, bytesAfter;
+    Tcl_Interp *interp;
+
+    if ((eventPtr->xproperty.atom != retrPtr->property)
+	    || (eventPtr->xproperty.state != PropertyNewValue)
+	    || (retrPtr->result != -1)) {
+	return;
+    }
+    propInfo = NULL;
+    result = XGetWindowProperty(eventPtr->xproperty.display,
+	    eventPtr->xproperty.window, retrPtr->property, 0, MAX_PROP_WORDS,
+	    True, (Atom) AnyPropertyType, &type, &format, &numItems,
+	    &bytesAfter, (unsigned char **) &propInfo);
+    if ((result != Success) || (type == None)) {
+	return;
+    }
+    if (bytesAfter != 0) {
+	Tcl_SetResult(retrPtr->interp, "selection property too large",
+		TCL_STATIC);
+	retrPtr->result = TCL_ERROR;
+	goto done;
+    }
+    if (numItems == 0) {
+	retrPtr->result = TCL_OK;
+    } else if ((type == XA_STRING)
+	    || (type == retrPtr->winPtr->dispPtr->textAtom)
+	    || (type == retrPtr->winPtr->dispPtr->compoundTextAtom)) {
+	if (format != 8) {
+	    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
+	    sprintf(retrPtr->interp->result,
+		"bad format for string selection: wanted \"8\", got \"%d\"",
+		format);
+	    retrPtr->result = TCL_ERROR;
+	    goto done;
+	}
+        interp = retrPtr->interp;
+        Tcl_Preserve((ClientData) interp);
+	result = (*retrPtr->proc)(retrPtr->clientData, interp, propInfo);
+        Tcl_Release((ClientData) interp);
+	if (result != TCL_OK) {
+	    retrPtr->result = result;
+	}
+    } else {
+	char *string;
+
+	if (format != 32) {
+	    Tcl_SetResult(retrPtr->interp, (char *) NULL, TCL_STATIC);
+	    sprintf(retrPtr->interp->result,
+		"bad format for selection: wanted \"32\", got \"%d\"",
+		format);
+	    retrPtr->result = TCL_ERROR;
+	    goto done;
+	}
+	string = SelCvtFromX((long *) propInfo, (int) numItems, type,
+		(Tk_Window) retrPtr->winPtr);
+        interp = retrPtr->interp;
+        Tcl_Preserve((ClientData) interp);
+	result = (*retrPtr->proc)(retrPtr->clientData, interp, string);
+        Tcl_Release((ClientData) interp);
+	if (result != TCL_OK) {
+	    retrPtr->result = result;
+	}
+	ckfree(string);
+    }
+
+    done:
+    XFree(propInfo);
+    retrPtr->idleTime = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SelectionSize --
+ *
+ *	This procedure is called when the selection is too large to
+ *	send in a single buffer;  it computes the total length of
+ *	the selection in bytes.
+ *
+ * Results:
+ *	The return value is the number of bytes in the selection
+ *	given by selPtr.
+ *
+ * Side effects:
+ *	The selection is retrieved from its current owner (this is
+ *	the only way to compute its size).
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+SelectionSize(selPtr)
+    TkSelHandler *selPtr;	/* Information about how to retrieve
+				 * the selection whose size is wanted. */
+{
+    char buffer[TK_SEL_BYTES_AT_ONCE+1];
+    int size, chunkSize;
+    TkSelInProgress ip;
+
+    size = TK_SEL_BYTES_AT_ONCE;
+    ip.selPtr = selPtr;
+    ip.nextPtr = pendingPtr;
+    pendingPtr = &ip;
+    do {
+	chunkSize = (*selPtr->proc)(selPtr->clientData, size,
+			(char *) buffer, TK_SEL_BYTES_AT_ONCE);
+	if (ip.selPtr == NULL) {
+	    size = 0;
+	    break;
+	}
+	size += chunkSize;
+    } while (chunkSize == TK_SEL_BYTES_AT_ONCE);
+    pendingPtr = ip.nextPtr;
+    return size;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * IncrTimeoutProc --
+ *
+ *	This procedure is invoked once a second while sending the
+ *	selection to a requestor in INCR mode.  After a while it
+ *	gives up and aborts the selection operation.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A new timeout gets registered so that this procedure gets
+ *	called again in another second, unless too many seconds
+ *	have elapsed, in which case incrPtr is marked as "all done".
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+IncrTimeoutProc(clientData)
+    ClientData clientData;		/* Information about INCR-mode
+					 * selection retrieval for which
+					 * we are selection owner. */
+{
+    register IncrInfo *incrPtr = (IncrInfo *) clientData;
+
+    incrPtr->idleTime++;
+    if (incrPtr->idleTime >= 5) {
+	incrPtr->numIncrs = 0;
+    } else {
+	incrPtr->timeout = Tcl_CreateTimerHandler(1000, IncrTimeoutProc,
+		(ClientData) incrPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SelCvtToX --
+ *
+ *	Given a selection represented as a string (the normal Tcl form),
+ *	convert it to the ICCCM-mandated format for X, depending on
+ *	the type argument.  This procedure and SelCvtFromX are inverses.
+ *
+ * Results:
+ *	The return value is a malloc'ed buffer holding a value
+ *	equivalent to "string", but formatted as for "type".  It is
+ *	the caller's responsibility to free the string when done with
+ *	it.  The word at *numLongsPtr is filled in with the number of
+ *	32-bit words returned in the result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static long *
+SelCvtToX(string, type, tkwin, numLongsPtr)
+    char *string;		/* String representation of selection. */
+    Atom type;			/* Atom specifying the X format that is
+				 * desired for the selection.  Should not
+				 * be XA_STRING (if so, don't bother calling
+				 * this procedure at all). */
+    Tk_Window tkwin;		/* Window that governs atom conversion. */
+    int *numLongsPtr;		/* Number of 32-bit words contained in the
+				 * result. */
+{
+    register char *p;
+    char *field;
+    int numFields;
+    long *propPtr, *longPtr;
+#define MAX_ATOM_NAME_LENGTH 100
+    char atomName[MAX_ATOM_NAME_LENGTH+1];
+
+    /*
+     * The string is assumed to consist of fields separated by spaces.
+     * The property gets generated by converting each field to an
+     * integer number, in one of two ways:
+     * 1. If type is XA_ATOM, convert each field to its corresponding
+     *	  atom.
+     * 2. If type is anything else, convert each field from an ASCII number
+     *    to a 32-bit binary number.
+     */
+
+    numFields = 1;
+    for (p = string; *p != 0; p++) {
+	if (isspace(UCHAR(*p))) {
+	    numFields++;
+	}
+    }
+    propPtr = (long *) ckalloc((unsigned) numFields*sizeof(long));
+
+    /*
+     * Convert the fields one-by-one.
+     */
+
+    for (longPtr = propPtr, *numLongsPtr = 0, p = string;
+	    ; longPtr++, (*numLongsPtr)++) {
+	while (isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (*p == 0) {
+	    break;
+	}
+	field = p;
+	while ((*p != 0) && !isspace(UCHAR(*p))) {
+	    p++;
+	}
+	if (type == XA_ATOM) {
+	    int length;
+
+	    length = p - field;
+	    if (length > MAX_ATOM_NAME_LENGTH) {
+		length = MAX_ATOM_NAME_LENGTH;
+	    }
+	    strncpy(atomName, field, (unsigned) length);
+	    atomName[length] = 0;
+	    *longPtr = (long) Tk_InternAtom(tkwin, atomName);
+	} else {
+	    char *dummy;
+
+	    *longPtr = strtol(field, &dummy, 0);
+	}
+    }
+    return propPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SelCvtFromX --
+ *
+ *	Given an X property value, formatted as a collection of 32-bit
+ *	values according to "type" and the ICCCM conventions, convert
+ *	the value to a string suitable for manipulation by Tcl.  This
+ *	procedure is the inverse of SelCvtToX.
+ *
+ * Results:
+ *	The return value is the string equivalent of "property".  It is
+ *	malloc-ed and should be freed by the caller when no longer
+ *	needed.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static char *
+SelCvtFromX(propPtr, numValues, type, tkwin)
+    register long *propPtr;	/* Property value from X. */
+    int numValues;		/* Number of 32-bit values in property. */
+    Atom type;			/* Type of property  Should not be
+				 * XA_STRING (if so, don't bother calling
+				 * this procedure at all). */
+    Tk_Window tkwin;		/* Window to use for atom conversion. */
+{
+    char *result;
+    int resultSpace, curSize, fieldSize;
+    char *atomName;
+
+    /*
+     * Convert each long in the property to a string value, which is
+     * either the name of an atom (if type is XA_ATOM) or a hexadecimal
+     * string.  Make an initial guess about the size of the result, but
+     * be prepared to enlarge the result if necessary.
+     */
+
+    resultSpace = 12*numValues+1;
+    curSize = 0;
+    atomName = "";	/* Not needed, but eliminates compiler warning. */
+    result = (char *) ckalloc((unsigned) resultSpace);
+    *result  = '\0';
+    for ( ; numValues > 0; propPtr++, numValues--) {
+	if (type == XA_ATOM) {
+	    atomName = Tk_GetAtomName(tkwin, (Atom) *propPtr);
+	    fieldSize = strlen(atomName) + 1;
+	} else {
+	    fieldSize = 12;
+	}
+	if (curSize+fieldSize >= resultSpace) {
+	    char *newResult;
+
+	    resultSpace *= 2;
+	    if (curSize+fieldSize >= resultSpace) {
+		resultSpace = curSize + fieldSize + 1;
+	    }
+	    newResult = (char *) ckalloc((unsigned) resultSpace);
+	    strncpy(newResult, result, (unsigned) curSize);
+	    ckfree(result);
+	    result = newResult;
+	}
+	if (curSize != 0) {
+	    result[curSize] = ' ';
+	    curSize++;
+	}
+	if (type == XA_ATOM) {
+	    strcpy(result+curSize, atomName);
+	} else {
+	    sprintf(result+curSize, "0x%x", (unsigned int) *propPtr);
+	}
+	curSize += strlen(result+curSize);
+    }
+    return result;
+}
diff --git a/Tk/unix/tkUnixWm.c b/Tk/unix/tkUnixWm.c
new file mode 100644
index 0000000..78de915
--- /dev/null
+++ b/Tk/unix/tkUnixWm.c
@@ -0,0 +1,4247 @@
+/* 
+ * tkUnixWm.c --
+ *
+ *	This module takes care of the interactions between a Tk-based
+ *	application and the window manager.  Among other things, it
+ *	implements the "wm" command and passes geometry information
+ *	to the window manager.
+ *
+ * Copyright (c) 1991-1994 The Regents of the University of California.
+ * Copyright (c) 1994-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixWm.c 1.124 96/03/29 14:05:44
+ */
+
+#include "tkPort.h"
+#include "tkInt.h"
+#include <errno.h>
+
+/*
+ * A data structure of the following type holds information for
+ * each window manager protocol (such as WM_DELETE_WINDOW) for
+ * which a handler (i.e. a Tcl command) has been defined for a
+ * particular top-level window.
+ */
+
+typedef struct ProtocolHandler {
+    Atom protocol;		/* Identifies the protocol. */
+    struct ProtocolHandler *nextPtr;
+				/* Next in list of protocol handlers for
+				 * the same top-level window, or NULL for
+				 * end of list. */
+    Tcl_Interp *interp;		/* Interpreter in which to invoke command. */
+    char command[4];		/* Tcl command to invoke when a client
+				 * message for this protocol arrives. 
+				 * The actual size of the structure varies
+				 * to accommodate the needs of the actual
+				 * command. THIS MUST BE THE LAST FIELD OF
+				 * THE STRUCTURE. */
+} ProtocolHandler;
+
+#define HANDLER_SIZE(cmdLength) \
+    ((unsigned) (sizeof(ProtocolHandler) - 3 + cmdLength))
+
+/*
+ * A data structure of the following type holds window-manager-related
+ * information for each top-level window in an application.
+ */
+
+typedef struct TkWmInfo {
+    TkWindow *winPtr;		/* Pointer to main Tk information for
+				 * this window. */
+    Window reparent;		/* If the window has been reparented, this
+				 * gives the ID of the ancestor of the window
+				 * that is a child of the root window (may
+				 * not be window's immediate parent).  If
+				 * the window isn't reparented, this has the
+				 * value None. */
+    Tk_Uid titleUid;		/* Title to display in window caption.  If
+				 * NULL, use name of widget. */
+    Tk_Uid iconName;		/* Name to display in icon. */
+    Window master;		/* Master window for TRANSIENT_FOR property,
+				 * or None. */
+    XWMHints hints;		/* Various pieces of information for
+				 * window manager. */
+    Tk_Uid leaderName;		/* Path name of leader of window group
+				 * (corresponds to hints.window_group).
+				 * Note:  this field doesn't get updated
+				 * if leader is destroyed. */
+    Tk_Uid masterWindowName;	/* Path name of window specified as master
+				 * in "wm transient" command, or NULL.
+				 * Note:  this field doesn't get updated if
+				 * masterWindowName is destroyed. */
+    Tk_Window icon;		/* Window to use as icon for this window,
+				 * or NULL. */
+    Tk_Window iconFor;		/* Window for which this window is icon, or
+				 * NULL if this isn't an icon for anyone. */
+    int withdrawn;		/* Non-zero means window has been withdrawn. */
+
+    /*
+     * Information used to construct an XSizeHints structure for
+     * the window manager:
+     */
+
+    int sizeHintsFlags;		/* Flags word for XSizeHints structure.
+				 * If the PBaseSize flag is set then the
+				 * window is gridded;  otherwise it isn't
+				 * gridded. */
+    int minWidth, minHeight;	/* Minimum dimensions of window, in
+				 * grid units, not pixels. */
+    int maxWidth, maxHeight;	/* Maximum dimensions of window, in
+				 * grid units, not pixels. */
+    Tk_Window gridWin;		/* Identifies the window that controls
+				 * gridding for this top-level, or NULL if
+				 * the top-level isn't currently gridded. */
+    int widthInc, heightInc;	/* Increments for size changes (# pixels
+				 * per step). */
+    struct {
+	int x;	/* numerator */
+	int y;  /* denominator */
+    } minAspect, maxAspect;	/* Min/max aspect ratios for window. */
+    int reqGridWidth, reqGridHeight;
+				/* The dimensions of the window (in
+				 * grid units) requested through
+				 * the geometry manager. */
+    int gravity;		/* Desired window gravity. */
+
+    /*
+     * Information used to manage the size and location of a window.
+     */
+
+    int width, height;		/* Desired dimensions of window, specified
+				 * in grid units.  These values are
+				 * set by the "wm geometry" command and by
+				 * ConfigureNotify events (for when wm
+				 * resizes window).  -1 means user hasn't
+				 * requested dimensions. */
+    int x, y;			/* Desired X and Y coordinates for window.
+				 * These values are set by "wm geometry",
+				 * plus by ConfigureNotify events (when wm
+				 * moves window).  These numbers are
+				 * different than the numbers stored in
+				 * winPtr->changes because (a) they could be
+				 * measured from the right or bottom edge
+				 * of the screen (see WM_NEGATIVE_X and
+				 * WM_NEGATIVE_Y flags) and (b) if the window
+				 * has been reparented then they refer to the
+				 * parent rather than the window itself. */
+    int parentWidth, parentHeight;
+				/* Width and height of reparent, in pixels
+				 * *including border*.  If window hasn't been
+				 * reparented then these will be the outer
+				 * dimensions of the window, including
+				 * border. */
+    int xInParent, yInParent;	/* Offset of window within reparent,  measured
+				 * from upper-left outer corner of parent's
+				 * border to upper-left outer corner of child's
+				 * border.  If not reparented then these are
+				 * zero. */
+    int configWidth, configHeight;
+				/* Dimensions passed to last request that we
+				 * issued to change geometry of window.  Used
+				 * to eliminate redundant resize operations. */
+
+    /*
+     * Information about the virtual root window for this top-level,
+     * if there is one.
+     */
+
+    Window vRoot;		/* Virtual root window for this top-level,
+				 * or None if there is no virtual root
+				 * window (i.e. just use the screen's root). */
+    int vRootX, vRootY;		/* Position of the virtual root inside the
+				 * root window.  If the WM_VROOT_OFFSET_STALE
+				 * flag is set then this information may be
+				 * incorrect and needs to be refreshed from
+				 * the X server.  If vRoot is None then these
+				 * values are both 0. */
+    int vRootWidth, vRootHeight;/* Dimensions of the virtual root window.
+				 * If vRoot is None, gives the dimensions
+				 * of the containing screen.  This information
+				 * is never stale, even though vRootX and
+				 * vRootY can be. */
+
+    /*
+     * Miscellaneous information.
+     */
+
+    ProtocolHandler *protPtr;	/* First in list of protocol handlers for
+				 * this window (NULL means none). */
+    int cmdArgc;		/* Number of elements in cmdArgv below. */
+    char **cmdArgv;		/* Array of strings to store in the
+				 * WM_COMMAND property.  NULL means nothing
+				 * available. */
+    char *clientMachine;	/* String to store in WM_CLIENT_MACHINE
+				 * property, or NULL. */
+    int flags;			/* Miscellaneous flags, defined below. */
+    struct TkWmInfo *nextPtr;	/* Next in list of all top-level windows. */
+} WmInfo;
+
+/*
+ * Flag values for WmInfo structures:
+ *
+ * WM_NEVER_MAPPED -		non-zero means window has never been
+ *				mapped;  need to update all info when
+ *				window is first mapped.
+ * WM_UPDATE_PENDING -		non-zero means a call to UpdateGeometryInfo
+ *				has already been scheduled for this
+ *				window;  no need to schedule another one.
+ * WM_NEGATIVE_X -		non-zero means x-coordinate is measured in
+ *				pixels from right edge of screen, rather
+ *				than from left edge.
+ * WM_NEGATIVE_Y -		non-zero means y-coordinate is measured in
+ *				pixels up from bottom of screen, rather than
+ *				down from top.
+ * WM_UPDATE_SIZE_HINTS -	non-zero means that new size hints need to be
+ *				propagated to window manager.
+ * WM_SYNC_PENDING -		set to non-zero while waiting for the window
+ *				manager to respond to some state change.
+ * WM_VROOT_OFFSET_STALE -	non-zero means that (x,y) offset information
+ *				about the virtual root window is stale and
+ *				needs to be fetched fresh from the X server.
+ * WM_ABOUT_TO_MAP -		non-zero means that the window is about to
+ *				be mapped by TkWmMapWindow.  This is used
+ *				by UpdateGeometryInfo to modify its behavior.
+ * WM_MOVE_PENDING -		non-zero means the application has requested
+ *				a new position for the window, but it hasn't
+ *				been reflected through the window manager
+ *				yet.
+ * WM_COLORMAPS_EXPLICIT -	non-zero means the colormap windows were
+ *				set explicitly via "wm colormapwindows".
+ * WM_ADDED_TOPLEVEL_COLORMAP - non-zero means that when "wm colormapwindows"
+ *				was called the top-level itself wasn't
+ *				specified, so we added it implicitly at
+ *				the end of the list.
+ * WM_WIDTH_NOT_RESIZABLE -	non-zero means that we're not supposed to
+ *				allow the user to change the width of the
+ *				window (controlled by "wm resizable"
+ *				command).
+ * WM_HEIGHT_NOT_RESIZABLE -	non-zero means that we're not supposed to
+ *				allow the user to change the height of the
+ *				window (controlled by "wm resizable"
+ *				command).
+ */
+
+#define WM_NEVER_MAPPED			1
+#define WM_UPDATE_PENDING		2
+#define WM_NEGATIVE_X			4
+#define WM_NEGATIVE_Y			8
+#define WM_UPDATE_SIZE_HINTS		0x10
+#define WM_SYNC_PENDING			0x20
+#define WM_VROOT_OFFSET_STALE		0x40
+#define WM_ABOUT_TO_MAP			0x100
+#define WM_MOVE_PENDING			0x200
+#define WM_COLORMAPS_EXPLICIT		0x400
+#define WM_ADDED_TOPLEVEL_COLORMAP	0x800
+#define WM_WIDTH_NOT_RESIZABLE		0x1000
+#define WM_HEIGHT_NOT_RESIZABLE		0x2000
+
+/*
+ * This module keeps a list of all top-level windows, primarily to
+ * simplify the job of Tk_CoordsToWindow.
+ */
+
+static WmInfo *firstWmPtr = NULL;	/* Points to first top-level window. */
+
+
+/*
+ * The variable below is used to enable or disable tracing in this
+ * module.  If tracing is enabled, then information is printed on
+ * standard output about interesting interactions with the window
+ * manager.
+ */
+
+static int wmTracing = 0;
+
+/*
+ * The following structure is the official type record for geometry
+ * management of top-level windows.
+ */
+
+static void		TopLevelReqProc _ANSI_ARGS_((ClientData dummy,
+			    Tk_Window tkwin));
+
+static Tk_GeomMgr wmMgrType = {
+    "wm",				/* name */
+    TopLevelReqProc,			/* requestProc */
+    (Tk_GeomLostSlaveProc *) NULL,	/* lostSlaveProc */
+};
+
+/*
+ * Structures of the following type are used for communication between
+ * WaitForEvent, WaitRestrictProc, and WaitTimeoutProc.
+ */
+
+typedef struct WaitRestrictInfo {
+    Display *display;		/* Window belongs to this display. */
+    Window window;		/* We're waiting for events on this window. */
+    int type;			/* We only care about this type of event. */
+    XEvent *eventPtr;		/* Where to store the event when it's found. */
+    int foundEvent;		/* Non-zero means that an event of the
+				 * desired type has been found. */
+    int timeout;		/* Non-zero means that too much time elapsed
+				 * while waiting, and we should just give
+				 * up. */
+} WaitRestrictInfo;
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static int		ComputeReparentGeometry _ANSI_ARGS_((TkWindow *winPtr));
+static void		ConfigureEvent _ANSI_ARGS_((TkWindow *winPtr,
+			    XConfigureEvent *eventPtr));
+static void		GetMaxSize _ANSI_ARGS_((WmInfo *wmPtr,
+			    int *maxWidthPtr, int *maxHeightPtr));
+static int		ParseGeometry _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, TkWindow *winPtr));
+static void		ReparentEvent _ANSI_ARGS_((TkWindow *winPtr,
+			    XReparentEvent *eventPtr));
+static void		TopLevelEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		TopLevelReqProc _ANSI_ARGS_((ClientData dummy,
+			    Tk_Window tkwin));
+static void		UpdateGeometryInfo _ANSI_ARGS_((
+			    ClientData clientData));
+static void		UpdateHints _ANSI_ARGS_((TkWindow *winPtr));
+static void		UpdateSizeHints _ANSI_ARGS_((TkWindow *winPtr));
+static void		UpdateVRootGeometry _ANSI_ARGS_((WmInfo *wmPtr));
+static void		UpdateWmProtocols _ANSI_ARGS_((WmInfo *wmPtr));
+static void		WaitForConfigureNotify _ANSI_ARGS_((TkWindow *winPtr,
+			    unsigned long serial));
+static int		WaitForEvent _ANSI_ARGS_((Display *display,
+			    Window window, int type, XEvent *eventPtr));
+static void		WaitForMapNotify _ANSI_ARGS_((TkWindow *winPtr,
+			    int mapped));
+static Tk_RestrictAction
+			WaitRestrictProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		WaitTimeoutProc _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmNewWindow --
+ *
+ *	This procedure is invoked whenever a new top-level
+ *	window is created.  Its job is to initialize the WmInfo
+ *	structure for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A WmInfo structure gets allocated and initialized.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmNewWindow(winPtr)
+    TkWindow *winPtr;		/* Newly-created top-level window. */
+{
+    register WmInfo *wmPtr;
+
+    wmPtr = (WmInfo *) ckalloc(sizeof(WmInfo));
+    wmPtr->winPtr = winPtr;
+    wmPtr->reparent = None;
+    wmPtr->titleUid = NULL;
+    wmPtr->iconName = NULL;
+    wmPtr->master = None;
+    wmPtr->hints.flags = InputHint | StateHint;
+    wmPtr->hints.input = True;
+    wmPtr->hints.initial_state = NormalState;
+    wmPtr->hints.icon_pixmap = None;
+    wmPtr->hints.icon_window = None;
+    wmPtr->hints.icon_x = wmPtr->hints.icon_y = 0;
+    wmPtr->hints.icon_mask = None;
+    wmPtr->hints.window_group = None;
+    wmPtr->leaderName = NULL;
+    wmPtr->masterWindowName = NULL;
+    wmPtr->icon = NULL;
+    wmPtr->iconFor = NULL;
+    wmPtr->withdrawn = 0;
+    wmPtr->sizeHintsFlags = 0;
+    wmPtr->minWidth = wmPtr->minHeight = 1;
+
+    /*
+     * Default the maximum dimensions to the size of the display, minus
+     * a guess about how space is needed for window manager decorations.
+     */
+
+    wmPtr->maxWidth = 0;
+    wmPtr->maxHeight = 0;
+    wmPtr->gridWin = NULL;
+    wmPtr->widthInc = wmPtr->heightInc = 1;
+    wmPtr->minAspect.x = wmPtr->minAspect.y = 1;
+    wmPtr->maxAspect.x = wmPtr->maxAspect.y = 1;
+    wmPtr->reqGridWidth = wmPtr->reqGridHeight = -1;
+    wmPtr->gravity = NorthWestGravity;
+    wmPtr->width = -1;
+    wmPtr->height = -1;
+    wmPtr->x = winPtr->changes.x;
+    wmPtr->y = winPtr->changes.y;
+    wmPtr->parentWidth = winPtr->changes.width
+	    + 2*winPtr->changes.border_width;
+    wmPtr->parentHeight = winPtr->changes.height
+	    + 2*winPtr->changes.border_width;
+    wmPtr->xInParent = wmPtr->yInParent = 0;
+    wmPtr->configWidth = -1;
+    wmPtr->configHeight = -1;
+    wmPtr->vRoot = None;
+    wmPtr->protPtr = NULL;
+    wmPtr->cmdArgv = NULL;
+    wmPtr->clientMachine = NULL;
+    wmPtr->flags = WM_NEVER_MAPPED;
+    wmPtr->nextPtr = firstWmPtr;
+    firstWmPtr = wmPtr;
+    winPtr->wmInfoPtr = wmPtr;
+
+    UpdateVRootGeometry(wmPtr);
+
+    /*
+     * Tk must monitor structure events for top-level windows, in order
+     * to detect size and position changes caused by window managers.
+     */
+
+    Tk_CreateEventHandler((Tk_Window) winPtr, StructureNotifyMask,
+	    TopLevelEventProc, (ClientData) winPtr);
+
+    /*
+     * Arrange for geometry requests to be reflected from the window
+     * to the window manager.
+     */
+
+    Tk_ManageGeometry((Tk_Window) winPtr, &wmMgrType, (ClientData) 0);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmMapWindow --
+ *
+ *	This procedure is invoked to map a top-level window.  This
+ *	module gets a chance to update all window-manager-related
+ *	information in properties before the window manager sees
+ *	the map event and checks the properties.  It also gets to
+ *	decide whether or not to even map the window after all.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Properties of winPtr may get updated to provide up-to-date
+ *	information to the window manager.  The window may also get
+ *	mapped, but it may not be if this procedure decides that
+ *	isn't appropriate (e.g. because the window is withdrawn).
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmMapWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's about to
+				 * be mapped. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    XTextProperty textProp;
+
+    if (wmPtr->flags & WM_NEVER_MAPPED) {
+	wmPtr->flags &= ~WM_NEVER_MAPPED;
+
+	/*
+	 * This is the first time this window has ever been mapped.
+	 * Store all the window-manager-related information for the
+	 * window.
+	 */
+
+	if (wmPtr->titleUid == NULL) {
+	    wmPtr->titleUid = winPtr->nameUid;
+	}
+	if (XStringListToTextProperty(&wmPtr->titleUid, 1, &textProp)  != 0) {
+	    XSetWMName(winPtr->display, winPtr->window, &textProp);
+	    XFree((char *) textProp.value);
+	}
+    
+	TkWmSetClass(winPtr);
+    
+	if (wmPtr->iconName != NULL) {
+	    XSetIconName(winPtr->display, winPtr->window, wmPtr->iconName);
+	}
+    
+	if (wmPtr->master != None) {
+	    XSetTransientForHint(winPtr->display, winPtr->window,
+		    wmPtr->master);
+	}
+    
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	UpdateHints(winPtr);
+	UpdateWmProtocols(wmPtr);
+	if (wmPtr->cmdArgv != NULL) {
+	    XSetCommand(winPtr->display, winPtr->window, wmPtr->cmdArgv,
+		    wmPtr->cmdArgc);
+	}
+	if (wmPtr->clientMachine != NULL) {
+	    if (XStringListToTextProperty(&wmPtr->clientMachine, 1, &textProp)
+		    != 0) {
+		XSetWMClientMachine(winPtr->display, winPtr->window,
+			&textProp);
+		XFree((char *) textProp.value);
+	    }
+	}
+    }
+    if (wmPtr->hints.initial_state == WithdrawnState) {
+	return;
+    }
+    if (wmPtr->iconFor != NULL) {
+	/*
+	 * This window is an icon for somebody else.  Make sure that
+	 * the geometry is up-to-date, then return without mapping
+	 * the window.
+	 */
+
+	if (wmPtr->flags & WM_UPDATE_PENDING) {
+	    Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+	}
+	UpdateGeometryInfo((ClientData) winPtr);
+	return;
+    }
+    wmPtr->flags |= WM_ABOUT_TO_MAP;
+    if (wmPtr->flags & WM_UPDATE_PENDING) {
+	Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+    }
+    UpdateGeometryInfo((ClientData) winPtr);
+    wmPtr->flags &= ~WM_ABOUT_TO_MAP;
+
+    /*
+     * Map the window, then wait to be sure that the window manager has
+     * processed the map operation.
+     */
+
+    XMapWindow(winPtr->display, winPtr->window);
+    if (wmPtr->hints.initial_state == NormalState) {
+	WaitForMapNotify(winPtr, 1);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmUnmapWindow --
+ *
+ *	This procedure is invoked to unmap a top-level window.  The
+ *	only thing it does special is to wait for the window actually
+ *	to be unmapped.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Unmaps the window.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmUnmapWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's about to
+				 * be mapped. */
+{
+    /*
+     * It seems to be important to wait after unmapping a top-level
+     * window until the window really gets unmapped.  I don't completely
+     * understand all the interactions with the window manager, but if
+     * we go on without waiting, and if the window is then mapped again
+     * quickly, events seem to get lost so that we think the window isn't
+     * mapped when in fact it is mapped.  I suspect that this has something
+     * to do with the window manager filtering Map events (and possily not
+     * filtering Unmap events?).
+     */ 
+    XUnmapWindow(winPtr->display, winPtr->window);
+    WaitForMapNotify(winPtr, 0);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmDeadWindow --
+ *
+ *	This procedure is invoked when a top-level window is
+ *	about to be deleted.  It cleans up the wm-related data
+ *	structures for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The WmInfo structure for winPtr gets freed up.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmDeadWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's being deleted. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    WmInfo *wmPtr2;
+
+    if (wmPtr == NULL) {
+	return;
+    }
+    if (firstWmPtr == wmPtr) {
+	firstWmPtr = wmPtr->nextPtr;
+    } else {
+	register WmInfo *prevPtr;
+
+	for (prevPtr = firstWmPtr; ; prevPtr = prevPtr->nextPtr) {
+	    if (prevPtr == NULL) {
+		panic("couldn't unlink window in TkWmDeadWindow");
+	    }
+	    if (prevPtr->nextPtr == wmPtr) {
+		prevPtr->nextPtr = wmPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    if (wmPtr->hints.flags & IconPixmapHint) {
+	Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_pixmap);
+    }
+    if (wmPtr->hints.flags & IconMaskHint) {
+	Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_mask);
+    }
+    if (wmPtr->icon != NULL) {
+	wmPtr2 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+	wmPtr2->iconFor = NULL;
+	wmPtr2->withdrawn = 1;
+    }
+    if (wmPtr->iconFor != NULL) {
+	wmPtr2 = ((TkWindow *) wmPtr->iconFor)->wmInfoPtr;
+	wmPtr2->icon = NULL;
+	wmPtr2->hints.flags &= ~IconWindowHint;
+	UpdateHints((TkWindow *) wmPtr->iconFor);
+    }
+    while (wmPtr->protPtr != NULL) {
+	ProtocolHandler *protPtr;
+
+	protPtr = wmPtr->protPtr;
+	wmPtr->protPtr = protPtr->nextPtr;
+	Tcl_EventuallyFree((ClientData) protPtr, TCL_DYNAMIC);
+    }
+    if (wmPtr->cmdArgv != NULL) {
+	ckfree((char *) wmPtr->cmdArgv);
+    }
+    if (wmPtr->clientMachine != NULL) {
+	ckfree((char *) wmPtr->clientMachine);
+    }
+    if (wmPtr->flags & WM_UPDATE_PENDING) {
+	Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+    }
+    ckfree((char *) wmPtr);
+    winPtr->wmInfoPtr = NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmSetClass --
+ *
+ *	This procedure is invoked whenever a top-level window's
+ *	class is changed.  If the window has been mapped then this
+ *	procedure updates the window manager property for the
+ *	class.  If the window hasn't been mapped, the update is
+ *	deferred until just before the first mapping.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A window property may get updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmSetClass(winPtr)
+    TkWindow *winPtr;		/* Newly-created top-level window. */
+{
+    if (winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
+	return;
+    }
+
+    if (winPtr->classUid != NULL) {
+	XClassHint *classPtr;
+
+	classPtr = XAllocClassHint();
+	classPtr->res_name = winPtr->nameUid;
+	classPtr->res_class = winPtr->classUid;
+	XSetClassHint(winPtr->display, winPtr->window, classPtr);
+	XFree((char *) classPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_WmCmd --
+ *
+ *	This procedure is invoked to process the "wm" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_WmCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr;
+    register WmInfo *wmPtr;
+    int c;
+    size_t length;
+
+    if (argc < 2) {
+	wrongNumArgs:
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option window ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 't') && (strncmp(argv[1], "tracing", length) == 0)
+	    && (length >= 3)) {
+	if ((argc != 2) && (argc != 3)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " tracing ?boolean?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 2) {
+	    interp->result = (wmTracing) ? "on" : "off";
+	    return TCL_OK;
+	}
+	return Tcl_GetBoolean(interp, argv[2], &wmTracing);
+    }
+
+    if (argc < 3) {
+	goto wrongNumArgs;
+    }
+    winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
+    if (winPtr == NULL) {
+	return TCL_ERROR;
+    }
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	Tcl_AppendResult(interp, "window \"", winPtr->pathName,
+		"\" isn't a top-level window", (char *) NULL);
+	return TCL_ERROR;
+    }
+    wmPtr = winPtr->wmInfoPtr;
+    if ((c == 'a') && (strncmp(argv[1], "aspect", length) == 0)) {
+	int numer1, denom1, numer2, denom2;
+
+	if ((argc != 3) && (argc != 7)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " aspect window ?minNumer minDenom ",
+		    "maxNumer maxDenom?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & PAspect) {
+		sprintf(interp->result, "%d %d %d %d", wmPtr->minAspect.x,
+			wmPtr->minAspect.y, wmPtr->maxAspect.x,
+			wmPtr->maxAspect.y);
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->sizeHintsFlags &= ~PAspect;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &numer1) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &denom1) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[5], &numer2) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[6], &denom2) != TCL_OK)) {
+		return TCL_ERROR;
+	    }
+	    if ((numer1 <= 0) || (denom1 <= 0) || (numer2 <= 0) ||
+		    (denom2 <= 0)) {
+		interp->result = "aspect number can't be <= 0";
+		return TCL_ERROR;
+	    }
+	    wmPtr->minAspect.x = numer1;
+	    wmPtr->minAspect.y = denom1;
+	    wmPtr->maxAspect.x = numer2;
+	    wmPtr->maxAspect.y = denom2;
+	    wmPtr->sizeHintsFlags |= PAspect;
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 'c') && (strncmp(argv[1], "client", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " client window ?name?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->clientMachine != NULL) {
+		interp->result = wmPtr->clientMachine;
+	    }
+	    return TCL_OK;
+	}
+	if (argv[3][0] == 0) {
+	    if (wmPtr->clientMachine != NULL) {
+		ckfree((char *) wmPtr->clientMachine);
+		wmPtr->clientMachine = NULL;
+		if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		    XDeleteProperty(winPtr->display, winPtr->window,
+			    Tk_InternAtom((Tk_Window) winPtr,
+			    "WM_CLIENT_MACHINE"));
+		}
+	    }
+	    return TCL_OK;
+	}
+	if (wmPtr->clientMachine != NULL) {
+	    ckfree((char *) wmPtr->clientMachine);
+	}
+	wmPtr->clientMachine = (char *)
+		ckalloc((unsigned) (strlen(argv[3]) + 1));
+	strcpy(wmPtr->clientMachine, argv[3]);
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XTextProperty textProp;
+	    if (XStringListToTextProperty(&wmPtr->clientMachine, 1, &textProp)
+		    != 0) {
+		XSetWMClientMachine(winPtr->display, winPtr->window,
+			&textProp);
+		XFree((char *) textProp.value);
+	    }
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "colormapwindows", length) == 0)
+	    && (length >= 3)) {
+	Window *cmapList;
+	TkWindow *winPtr2;
+	int count, i, windowArgc, gotToplevel;
+	char buffer[20], **windowArgv;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " colormapwindows window ?windowList?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    Tk_MakeWindowExist((Tk_Window) winPtr);
+	    if (XGetWMColormapWindows(winPtr->display, winPtr->window,
+		    &cmapList, &count) == 0) {
+		return TCL_OK;
+	    }
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "(", NULL);
+#endif
+	    for (i = 0; i < count; i++) {
+		if ((i == (count-1))
+			&& (wmPtr->flags & WM_ADDED_TOPLEVEL_COLORMAP)) {
+		    break;
+		}
+	        winPtr2  = (TkWindow *) Tk_IdToWindow(winPtr->display,
+			cmapList[i]);
+		if (winPtr2 == NULL) {
+#ifdef STk_CODE
+		    sprintf(buffer, "#x%lx", cmapList[i]);
+#else
+		    sprintf(buffer, "0x%lx", cmapList[i]);
+#endif
+		    Tcl_AppendElement(interp, buffer);
+		} else {
+		    Tcl_AppendElement(interp, winPtr2->pathName);
+		}
+	    }
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, ")", NULL);
+#endif
+	    XFree((char *) cmapList);
+	    return TCL_OK;
+	}
+	if (Tcl_SplitList(interp, argv[3], &windowArgc, &windowArgv)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	cmapList = (Window *) ckalloc((unsigned)
+		((windowArgc+1)*sizeof(Window)));
+	gotToplevel = 0;
+	for (i = 0; i < windowArgc; i++) {
+	    winPtr2 = (TkWindow *) Tk_NameToWindow(interp, windowArgv[i],
+		    tkwin);
+	    if (winPtr2 == NULL) {
+		ckfree((char *) cmapList);
+		ckfree((char *) windowArgv);
+		return TCL_ERROR;
+	    }
+	    if (winPtr2 == winPtr) {
+		gotToplevel = 1;
+	    }
+	    if (winPtr2->window == None) {
+		Tk_MakeWindowExist((Tk_Window) winPtr2);
+	    }
+	    cmapList[i] = winPtr2->window;
+	}
+	if (!gotToplevel) {
+	    wmPtr->flags |= WM_ADDED_TOPLEVEL_COLORMAP;
+	    cmapList[windowArgc] = winPtr->window;
+	    windowArgc++;
+	} else {
+	    wmPtr->flags &= ~WM_ADDED_TOPLEVEL_COLORMAP;
+	}
+	wmPtr->flags |= WM_COLORMAPS_EXPLICIT;
+	XSetWMColormapWindows(winPtr->display, winPtr->window, cmapList,
+		windowArgc);
+	ckfree((char *) cmapList);
+	ckfree((char *) windowArgv);
+	return TCL_OK;
+    } else if ((c == 'c') && (strncmp(argv[1], "command", length) == 0)
+	    && (length >= 3)) {
+	int cmdArgc;
+	char **cmdArgv;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " command window ?value?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->cmdArgv != NULL) {
+		interp->result = Tcl_Merge(wmPtr->cmdArgc, wmPtr->cmdArgv);
+		interp->freeProc = TCL_DYNAMIC;
+	    }
+	    return TCL_OK;
+	}
+	if (argv[3][0] == 0) {
+	    if (wmPtr->cmdArgv != NULL) {
+		ckfree((char *) wmPtr->cmdArgv);
+		wmPtr->cmdArgv = NULL;
+		if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		    XDeleteProperty(winPtr->display, winPtr->window,
+			    Tk_InternAtom((Tk_Window) winPtr, "WM_COMMAND"));
+		}
+	    }
+	    return TCL_OK;
+	}
+	if (Tcl_SplitList(interp, argv[3], &cmdArgc, &cmdArgv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (wmPtr->cmdArgv != NULL) {
+	    ckfree((char *) wmPtr->cmdArgv);
+	}
+	wmPtr->cmdArgc = cmdArgc;
+	wmPtr->cmdArgv = cmdArgv;
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XSetCommand(winPtr->display, winPtr->window, cmdArgv, cmdArgc);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "deiconify", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " deiconify window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't deiconify ", argv[2],
+		    ": it is an icon for ", winPtr->pathName, (char *) NULL);
+	    return TCL_ERROR;
+	}
+	wmPtr->hints.initial_state = NormalState;
+	wmPtr->withdrawn = 0;
+	if (wmPtr->flags & WM_NEVER_MAPPED) {
+	    return TCL_OK;
+	}
+	UpdateHints(winPtr);
+	Tk_MapWindow((Tk_Window) winPtr);
+    } else if ((c == 'f') && (strncmp(argv[1], "focusmodel", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " focusmodel window ?active|passive?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    interp->result = wmPtr->hints.input ? "\"passive\"" : "\"active\"";
+#else
+	    interp->result = wmPtr->hints.input ? "passive" : "active";
+#endif
+	    return TCL_OK;
+	}
+	c = argv[3][0];
+	length = strlen(argv[3]);
+	if ((c == 'a') && (strncmp(argv[3], "active", length) == 0)) {
+	    wmPtr->hints.input = False;
+	} else if ((c == 'p') && (strncmp(argv[3], "passive", length) == 0)) {
+	    wmPtr->hints.input = True;
+	} else {
+	    Tcl_AppendResult(interp, "bad argument \"", argv[3],
+		    "\": must be active or passive", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'f') && (strncmp(argv[1], "frame", length) == 0)
+	    && (length >= 2)) {
+	Window window;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " frame window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = wmPtr->reparent;
+	if (window == None) {
+	    window = Tk_WindowId((Tk_Window) winPtr);
+	}
+#ifdef STk_CODE
+	sprintf(interp->result, "#x%x", (unsigned int) window);
+#else
+	sprintf(interp->result, "0x%x", (unsigned int) window);
+#endif
+    } else if ((c == 'g') && (strncmp(argv[1], "geometry", length) == 0)
+	    && (length >= 2)) {
+	char xSign, ySign;
+	int width, height;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " geometry window ?newGeometry?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    xSign = (wmPtr->flags & WM_NEGATIVE_X) ? '-' : '+';
+	    ySign = (wmPtr->flags & WM_NEGATIVE_Y) ? '-' : '+';
+	    if (wmPtr->gridWin != NULL) {
+		width = wmPtr->reqGridWidth + (winPtr->changes.width
+			- winPtr->reqWidth)/wmPtr->widthInc;
+		height = wmPtr->reqGridHeight + (winPtr->changes.height
+			- winPtr->reqHeight)/wmPtr->heightInc;
+	    } else {
+		width = winPtr->changes.width;
+		height = winPtr->changes.height;
+	    }
+#ifdef STk_CODE
+	    sprintf(interp->result, "\"%dx%d%c%d%c%d\"", width, height,
+#else
+	    sprintf(interp->result, "%dx%d%c%d%c%d", width, height,
+#endif
+		    xSign, wmPtr->x, ySign, wmPtr->y);
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->width = -1;
+	    wmPtr->height = -1;
+	    goto updateGeom;
+	}
+	return ParseGeometry(interp, argv[3], winPtr);
+    } else if ((c == 'g') && (strncmp(argv[1], "grid", length) == 0)
+	    && (length >= 3)) {
+	int reqWidth, reqHeight, widthInc, heightInc;
+
+	if ((argc != 3) && (argc != 7)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " grid window ?baseWidth baseHeight ",
+		    "widthInc heightInc?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & PBaseSize) {
+		sprintf(interp->result, "%d %d %d %d", wmPtr->reqGridWidth,
+			wmPtr->reqGridHeight, wmPtr->widthInc,
+			wmPtr->heightInc);
+	    }
+#ifdef STk_CODE
+	    else
+	      interp->result = "#f";
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    /*
+	     * Turn off gridding and reset the width and height
+	     * to make sense as ungridded numbers.
+	     */
+
+	    wmPtr->sizeHintsFlags &= ~(PBaseSize|PResizeInc);
+	    if (wmPtr->width != -1) {
+		wmPtr->width = winPtr->reqWidth + (wmPtr->width
+			- wmPtr->reqGridWidth)*wmPtr->widthInc;
+		wmPtr->height = winPtr->reqHeight + (wmPtr->height
+			- wmPtr->reqGridHeight)*wmPtr->heightInc;
+	    }
+	    wmPtr->widthInc = 1;
+	    wmPtr->heightInc = 1;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &reqWidth) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &reqHeight) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[5], &widthInc) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[6], &heightInc) != TCL_OK)) {
+		return TCL_ERROR;
+	    }
+	    if (reqWidth < 0) {
+		interp->result = "baseWidth can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (reqHeight < 0) {
+		interp->result = "baseHeight can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (widthInc < 0) {
+		interp->result = "widthInc can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (heightInc < 0) {
+		interp->result = "heightInc can't be < 0";
+		return TCL_ERROR;
+	    }
+	    Tk_SetGrid((Tk_Window) winPtr, reqWidth, reqHeight, widthInc,
+		    heightInc);
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 'g') && (strncmp(argv[1], "group", length) == 0)
+	    && (length >= 3)) {
+	Tk_Window tkwin2;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " group window ?pathName?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & WindowGroupHint) {
+		interp->result = wmPtr->leaderName;
+	    }
+#ifdef STk_CODE
+	    else
+	      interp->result = "#f";
+	    STk_sharp_dot_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    wmPtr->hints.flags &= ~WindowGroupHint;
+	    wmPtr->leaderName = NULL;
+	} else {
+	    tkwin2 = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    Tk_MakeWindowExist(tkwin2);
+	    wmPtr->hints.window_group = Tk_WindowId(tkwin2);
+	    wmPtr->hints.flags |= WindowGroupHint;
+	    wmPtr->leaderName = Tk_PathName(tkwin2);
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "iconbitmap", length) == 0)
+	    && (length >= 5)) {
+	Pixmap pixmap;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconbitmap window ?bitmap?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconPixmapHint) {
+		interp->result = Tk_NameOfBitmap(winPtr->display,
+			wmPtr->hints.icon_pixmap);
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+	    }
+	    else {
+	      interp->result = "#f";
+#endif
+	    }
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    if (wmPtr->hints.icon_pixmap != None) {
+		Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_pixmap);
+		wmPtr->hints.icon_pixmap = None;
+	    }
+	    wmPtr->hints.flags &= ~IconPixmapHint;
+	} else {
+	    pixmap = Tk_GetBitmap(interp, (Tk_Window) winPtr,
+		    Tk_GetUid(argv[3]));
+	    if (pixmap == None) {
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_pixmap = pixmap;
+	    wmPtr->hints.flags |= IconPixmapHint;
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "iconify", length) == 0)
+	    && (length >= 5)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconify window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (Tk_Attributes((Tk_Window) winPtr)->override_redirect) {
+	    Tcl_AppendResult(interp, "can't iconify \"", winPtr->pathName,
+		    "\": override-redirect flag is set", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->master != None) {
+	    Tcl_AppendResult(interp, "can't iconify \"", winPtr->pathName,
+		    "\": it is a transient", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't iconify ", argv[2],
+		    ": it is an icon for ", winPtr->pathName, (char *) NULL);
+	    return TCL_ERROR;
+	}
+	wmPtr->hints.initial_state = IconicState;
+	if (wmPtr->flags & WM_NEVER_MAPPED) {
+	    return TCL_OK;
+	}
+	if (wmPtr->withdrawn) {
+	    UpdateHints(winPtr);
+	    Tk_MapWindow((Tk_Window) winPtr);
+	    wmPtr->withdrawn = 0;
+	} else {
+	    if (XIconifyWindow(winPtr->display, winPtr->window,
+		winPtr->screenNum) == 0) {
+	    interp->result =
+		    "couldn't send iconify message to window manager";
+	    return TCL_ERROR;
+	    }
+	    WaitForMapNotify(winPtr, 0);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconmask", length) == 0)
+	    && (length >= 5)) {
+	Pixmap pixmap;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconmask window ?bitmap?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconMaskHint) {
+		interp->result = Tk_NameOfBitmap(winPtr->display,
+			wmPtr->hints.icon_mask);
+	    }
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    if (wmPtr->hints.icon_mask != None) {
+		Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_mask);
+	    }
+	    wmPtr->hints.flags &= ~IconMaskHint;
+	} else {
+	    pixmap = Tk_GetBitmap(interp, tkwin, Tk_GetUid(argv[3]));
+	    if (pixmap == None) {
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_mask = pixmap;
+	    wmPtr->hints.flags |= IconMaskHint;
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "iconname", length) == 0)
+	    && (length >= 5)) {
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconname window ?newName?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    interp->result = (wmPtr->iconName != NULL) ? wmPtr->iconName : "";
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	} else {
+	    wmPtr->iconName = Tk_GetUid(argv[3]);
+	    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		XSetIconName(winPtr->display, winPtr->window, wmPtr->iconName);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconposition", length) == 0)
+	    && (length >= 5)) {
+	int x, y;
+
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconposition window ?x y?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconPositionHint) {
+		sprintf(interp->result, "%d %d", wmPtr->hints.icon_x,
+			wmPtr->hints.icon_y);
+	    }
+#ifdef STk_CODE
+	    else 
+	      interp->result = "#f";
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    wmPtr->hints.flags &= ~IconPositionHint;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &x) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &y) != TCL_OK)){
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_x = x;
+	    wmPtr->hints.icon_y = y;
+	    wmPtr->hints.flags |= IconPositionHint;
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "iconwindow", length) == 0)
+	    && (length >= 5)) {
+	Tk_Window tkwin2;
+	WmInfo *wmPtr2;
+	XSetWindowAttributes atts;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconwindow window ?pathName?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->icon != NULL) {
+		interp->result = Tk_PathName(wmPtr->icon);
+	    }
+#ifdef STk_CODE
+	    else
+	      interp->result = "#f";
+	    STk_sharp_dot_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    wmPtr->hints.flags &= ~IconWindowHint;
+	    if (wmPtr->icon != NULL) {
+		/*
+		 * Remove the icon window relationship.  In principle we
+		 * should also re-enable button events for the window, but
+		 * this doesn't work in general because the window manager
+		 * is probably selecting on them (we'll get an error if
+		 * we try to re-enable the events).  So, just leave the
+		 * icon window event-challenged;  the user will have to
+		 * recreate it if they want button events.
+		 */
+
+		wmPtr2 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+		wmPtr2->iconFor = NULL;
+		wmPtr2->withdrawn = 1;
+		wmPtr2->hints.initial_state = WithdrawnState;
+	    }
+	    wmPtr->icon = NULL;
+	} else {
+	    tkwin2 = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    if (!Tk_IsTopLevel(tkwin2)) {
+		Tcl_AppendResult(interp, "can't use ", argv[3],
+			" as icon window: not at top level", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    wmPtr2 = ((TkWindow *) tkwin2)->wmInfoPtr;
+	    if (wmPtr2->iconFor != NULL) {
+		Tcl_AppendResult(interp, argv[3], " is already an icon for ",
+			Tk_PathName(wmPtr2->iconFor), (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (wmPtr->icon != NULL) {
+		WmInfo *wmPtr3 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+		wmPtr3->iconFor = NULL;
+		wmPtr3->withdrawn = 1;
+
+		/*
+		 * Let the window use button events again.
+		 */
+
+		atts.event_mask = Tk_Attributes(wmPtr->icon)->event_mask
+			| ButtonPressMask;
+		Tk_ChangeWindowAttributes(wmPtr->icon, CWEventMask, &atts);
+	    }
+
+	    /*
+	     * Disable button events in the icon window:  some window
+	     * managers (like olvwm) want to get the events themselves,
+	     * but X only allows one application at a time to receive
+	     * button events for a window.
+	     */
+
+	    atts.event_mask = Tk_Attributes(tkwin2)->event_mask
+		    & ~ButtonPressMask;
+	    Tk_ChangeWindowAttributes(tkwin2, CWEventMask, &atts);
+	    Tk_MakeWindowExist(tkwin2);
+	    wmPtr->hints.icon_window = Tk_WindowId(tkwin2);
+	    wmPtr->hints.flags |= IconWindowHint;
+	    wmPtr->icon = tkwin2;
+	    wmPtr2->iconFor = (Tk_Window) winPtr;
+	    if (!wmPtr2->withdrawn && !(wmPtr2->flags & WM_NEVER_MAPPED)) {
+		wmPtr2->withdrawn = 0;
+		if (XWithdrawWindow(Tk_Display(tkwin2), Tk_WindowId(tkwin2),
+			Tk_ScreenNumber(tkwin2)) == 0) {
+		    interp->result =
+			    "couldn't send withdraw message to window manager";
+		    return TCL_ERROR;
+		}
+		WaitForMapNotify((TkWindow *) tkwin2, 0);
+	    }
+	}
+	UpdateHints(winPtr);
+    } else if ((c == 'm') && (strncmp(argv[1], "maxsize", length) == 0)
+	    && (length >= 2)) {
+	int width, height;
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " maxsize window ?width height?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    GetMaxSize(wmPtr, &width, &height);
+	    sprintf(interp->result, "%d %d", width, height);
+	    return TCL_OK;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	wmPtr->maxWidth = width;
+	wmPtr->maxHeight = height;
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 'm') && (strncmp(argv[1], "minsize", length) == 0)
+	    && (length >= 2)) {
+	int width, height;
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " minsize window ?width height?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    sprintf(interp->result, "%d %d", wmPtr->minWidth,
+		    wmPtr->minHeight);
+	    return TCL_OK;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	wmPtr->minWidth = width;
+	wmPtr->minHeight = height;
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 'o')
+	    && (strncmp(argv[1], "overrideredirect", length) == 0)) {
+	int boolean;
+	XSetWindowAttributes atts;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " overrideredirect window ?boolean?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    interp->result = (Tk_Attributes((Tk_Window) winPtr)->override_redirect)
+					      ? "#t" : "#f";
+#else
+	    if (Tk_Attributes((Tk_Window) winPtr)->override_redirect) {
+		interp->result = "1";
+	    } else {
+		interp->result = "0";
+	    }
+#endif
+	    return TCL_OK;
+	}
+	if (Tcl_GetBoolean(interp, argv[3], &boolean) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	atts.override_redirect = (boolean) ? True : False;
+	Tk_ChangeWindowAttributes((Tk_Window) winPtr, CWOverrideRedirect,
+		&atts);
+    } else if ((c == 'p') && (strncmp(argv[1], "positionfrom", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " positionfrom window ?user/program?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & USPosition) {
+#ifdef STk_CODE
+		interp->result = "\"user\"";
+#else
+		interp->result = "user";
+#endif
+	    } else if (wmPtr->sizeHintsFlags & PPosition) {
+#ifdef STk_CODE
+		interp->result = "\"program\"";
+	    } else {
+	        interp->result = "#f";
+#else
+		interp->result = "program";
+#endif
+	    }
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    wmPtr->sizeHintsFlags &= ~(USPosition|PPosition);
+	} else {
+	    c = argv[3][0];
+	    length = strlen(argv[3]);
+	    if ((c == 'u') && (strncmp(argv[3], "user", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~PPosition;
+		wmPtr->sizeHintsFlags |= USPosition;
+	    } else if ((c == 'p') && (strncmp(argv[3], "program", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~USPosition;
+		wmPtr->sizeHintsFlags |= PPosition;
+	    } else {
+		Tcl_AppendResult(interp, "bad argument \"", argv[3],
+			"\": must be program or user", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 'p') && (strncmp(argv[1], "protocol", length) == 0)
+	    && (length >= 2)) {
+	register ProtocolHandler *protPtr, *prevPtr;
+	Atom protocol;
+	int cmdLength;
+
+	if ((argc < 3) || (argc > 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " protocol window ?name? ?command?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    /*
+	     * Return a list of all defined protocols for the window.
+	     */
+#ifdef STk_CODE
+	    Tcl_AppendResult(interp, "(", NULL);
+	    for (protPtr = wmPtr->protPtr; protPtr; protPtr = protPtr->nextPtr) {
+	      Tcl_AppendResult(interp, " \"",
+			Tk_GetAtomName((Tk_Window) winPtr, protPtr->protocol),
+			       "\"", (char *)NULL);
+	    }
+	    Tcl_AppendResult(interp, ")", NULL);
+#else
+	    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+		    protPtr = protPtr->nextPtr) {
+		Tcl_AppendElement(interp,
+			Tk_GetAtomName((Tk_Window) winPtr, protPtr->protocol));
+	    }
+#endif
+	    return TCL_OK;
+	}
+	protocol = Tk_InternAtom((Tk_Window) winPtr, argv[3]);
+	if (argc == 4) {
+	    /*
+	     * Return the command to handle a given protocol.
+	     */
+	    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+		    protPtr = protPtr->nextPtr) {
+		if (protPtr->protocol == protocol) {
+#ifdef STk_CODE
+		    STk_sharp_dot_result(interp, protPtr->command);
+#else
+		    interp->result = protPtr->command;
+#endif
+		    return TCL_OK;
+		}
+	    }
+	    return TCL_OK;
+	}
+
+	/*
+	 * Delete any current protocol handler, then create a new
+	 * one with the specified command, unless the command is
+	 * empty.
+	 */
+
+	for (protPtr = wmPtr->protPtr, prevPtr = NULL; protPtr != NULL;
+		prevPtr = protPtr, protPtr = protPtr->nextPtr) {
+	    if (protPtr->protocol == protocol) {
+		if (prevPtr == NULL) {
+		    wmPtr->protPtr = protPtr->nextPtr;
+		} else {
+		    prevPtr->nextPtr = protPtr->nextPtr;
+		}
+		Tcl_EventuallyFree((ClientData) protPtr, TCL_DYNAMIC);
+		break;
+	    }
+	}
+	cmdLength = strlen(argv[4]);
+	if (cmdLength > 0) {
+#ifdef STk_CODE
+	    SCM closure;
+
+	    if (!STk_valid_callback(argv[4], &closure)) {
+	        Tcl_AppendResult(interp, "bad closure specification \"",
+				         argv[4], "\"", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (closure)
+	      STk_add_callback(argv[2], "protocol", argv[3], closure);	    
+#endif
+	    protPtr = (ProtocolHandler *) ckalloc(HANDLER_SIZE(cmdLength));
+	    protPtr->protocol = protocol;
+	    protPtr->nextPtr = wmPtr->protPtr;
+	    wmPtr->protPtr = protPtr;
+	    protPtr->interp = interp;
+	    strcpy(protPtr->command, argv[4]);
+	}
+#ifdef STk_CODE
+	else {
+	  /* Delete handler by setting it to #f */
+	  extern SCM STk_ntruth;
+
+	  STk_add_callback(argv[2], "protocol", argv[3], STk_ntruth);
+	}
+#endif
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    UpdateWmProtocols(wmPtr);
+	}
+    } else if ((c == 'r') && (strncmp(argv[1], "resizable", length) == 0)) {
+	int width, height;
+
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " resizable window ?width height?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    sprintf(interp->result, "(#%c #%c)",
+		    (wmPtr->flags  & WM_WIDTH_NOT_RESIZABLE) ? 'f' : 't',
+		    (wmPtr->flags  & WM_HEIGHT_NOT_RESIZABLE) ? 'f' : 't');
+#else
+	    sprintf(interp->result, "%d %d",
+		    (wmPtr->flags  & WM_WIDTH_NOT_RESIZABLE) ? 0 : 1,
+		    (wmPtr->flags  & WM_HEIGHT_NOT_RESIZABLE) ? 0 : 1);
+#endif
+	    return TCL_OK;
+	}
+	if ((Tcl_GetBoolean(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetBoolean(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	if (width) {
+	    wmPtr->flags &= ~WM_WIDTH_NOT_RESIZABLE;
+	} else {
+	    wmPtr->flags |= WM_WIDTH_NOT_RESIZABLE;
+	}
+	if (height) {
+	    wmPtr->flags &= ~WM_HEIGHT_NOT_RESIZABLE;
+	} else {
+	    wmPtr->flags |= WM_HEIGHT_NOT_RESIZABLE;
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 's') && (strncmp(argv[1], "sizefrom", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " sizefrom window ?user|program?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & USSize) {
+#ifdef STk_CODE
+		interp->result = "\"user\"";
+#else
+		interp->result = "user";
+#endif
+	    } else if (wmPtr->sizeHintsFlags & PSize) {
+#ifdef STk_CODE
+		interp->result = "\"program\"";
+	    }
+	    else {
+	        interp->result = "#f";
+#else
+		interp->result = "program";
+#endif
+	    }
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (*argv[3] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (*argv[3] == '\0') {
+#endif
+	    wmPtr->sizeHintsFlags &= ~(USSize|PSize);
+	} else {
+	    c = argv[3][0];
+	    length = strlen(argv[3]);
+	    if ((c == 'u') && (strncmp(argv[3], "user", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~PSize;
+		wmPtr->sizeHintsFlags |= USSize;
+	    } else if ((c == 'p')
+		    && (strncmp(argv[3], "program", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~USSize;
+		wmPtr->sizeHintsFlags |= PSize;
+	    } else {
+		Tcl_AppendResult(interp, "bad argument \"", argv[3],
+			"\": must be program or user", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 's') && (strncmp(argv[1], "state", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " state window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    interp->result = "icon";
+	} else if (wmPtr->withdrawn) {
+	    interp->result = "withdrawn";
+	} else if (Tk_IsMapped((Tk_Window) winPtr)
+		|| ((wmPtr->flags & WM_NEVER_MAPPED)
+		&& (wmPtr->hints.initial_state == NormalState))) {
+#ifdef STk_CODE
+	    interp->result = "\"normal\"";
+#else
+	    interp->result = "normal";
+#endif
+	} else {
+#ifdef STk_CODE
+	    interp->result = "\"iconic\"";
+#else
+	    interp->result = "iconic";
+#endif
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "title", length) == 0)
+	    && (length >= 2)) {
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " title window ?newTitle?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    STk_stringify_result(interp, (wmPtr->titleUid != NULL) ? wmPtr->titleUid
+				         : winPtr->nameUid);
+#else
+	    interp->result = (wmPtr->titleUid != NULL) ? wmPtr->titleUid
+		    : winPtr->nameUid;
+#endif
+	    return TCL_OK;
+	} else {
+	    wmPtr->titleUid = Tk_GetUid(argv[3]);
+	    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		XTextProperty textProp;
+
+		if (XStringListToTextProperty(&wmPtr->titleUid, 1,
+			&textProp)  != 0) {
+		    XSetWMName(winPtr->display, winPtr->window, &textProp);
+		    XFree((char *) textProp.value);
+		}
+	    }
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "transient", length) == 0)
+	    && (length >= 3)) {
+	Tk_Window master;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " transient window ?master?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->master != None) {
+		interp->result = wmPtr->masterWindowName;
+	    }
+#ifdef STk_CODE
+	    else {
+	        interp->result = "#f";
+	    }
+#endif
+	    return TCL_OK;
+	}
+#ifdef STk_CODE
+	if (argv[3][0] == '\0' || strcmp(argv[3], "#f") == 0) {
+#else
+	if (argv[3][0] == '\0') {
+#endif
+	    wmPtr->master = None;
+	    wmPtr->masterWindowName = NULL;
+	} else {
+	    master = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (master == NULL) {
+		return TCL_ERROR;
+	    }
+	    Tk_MakeWindowExist(master);
+	    wmPtr->master = Tk_WindowId(master);
+	    wmPtr->masterWindowName = Tk_PathName(master);
+	}
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XSetTransientForHint(winPtr->display, winPtr->window,
+		    wmPtr->master);
+	}
+    } else if ((c == 'w') && (strncmp(argv[1], "withdraw", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " withdraw window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't withdraw ", argv[2],
+		    ": it is an icon for ", Tk_PathName(wmPtr->iconFor),
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	wmPtr->hints.initial_state = WithdrawnState;
+	wmPtr->withdrawn = 1;
+	if (wmPtr->flags & WM_NEVER_MAPPED) {
+	    return TCL_OK;
+	}
+	if (XWithdrawWindow(winPtr->display, winPtr->window,
+		winPtr->screenNum) == 0) {
+	    interp->result =
+		    "couldn't send withdraw message to window manager";
+	    return TCL_ERROR;
+	}
+	WaitForMapNotify(winPtr, 0);
+    } else {
+	Tcl_AppendResult(interp, "unknown or ambiguous option \"", argv[1],
+		"\": must be aspect, client, command, deiconify, ",
+		"focusmodel, frame, geometry, grid, group, iconbitmap, ",
+		"iconify, iconmask, iconname, iconposition, ",
+		"iconwindow, maxsize, minsize, overrideredirect, ",
+		"positionfrom, protocol, resizable, sizefrom, state, title, ",
+		"transient, or withdraw",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+
+    updateGeom:
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetGrid --
+ *
+ *	This procedure is invoked by a widget when it wishes to set a grid
+ *	coordinate system that controls the size of a top-level window.
+ *	It provides a C interface equivalent to the "wm grid" command and
+ *	is usually asscoiated with the -setgrid option.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Grid-related information will be passed to the window manager, so
+ *	that the top-level window associated with tkwin will resize on
+ *	even grid units.  If some other window already controls gridding
+ *	for the top-level window then this procedure call has no effect.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetGrid(tkwin, reqWidth, reqHeight, widthInc, heightInc)
+    Tk_Window tkwin;		/* Token for window.  New window mgr info
+				 * will be posted for the top-level window
+				 * associated with this window. */
+    int reqWidth;		/* Width (in grid units) corresponding to
+				 * the requested geometry for tkwin. */
+    int reqHeight;		/* Height (in grid units) corresponding to
+				 * the requested geometry for tkwin. */
+    int widthInc, heightInc;	/* Pixel increments corresponding to a
+				 * change of one grid unit. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr;
+
+    /*
+     * Find the top-level window for tkwin, plus the window manager
+     * information.
+     */
+
+    while (!(winPtr->flags & TK_TOP_LEVEL)) {
+	winPtr = winPtr->parentPtr;
+	if (winPtr == NULL) {
+	    /*
+	     * The window is being deleted... just skip this operation.
+	     */
+
+	    return;
+	}
+    }
+    wmPtr = winPtr->wmInfoPtr;
+
+    if ((wmPtr->gridWin != NULL) && (wmPtr->gridWin != tkwin)) {
+	return;
+    }
+
+    if ((wmPtr->reqGridWidth == reqWidth)
+	    && (wmPtr->reqGridHeight == reqHeight)
+	    && (wmPtr->widthInc == widthInc)
+	    && (wmPtr->heightInc == heightInc)
+	    && ((wmPtr->sizeHintsFlags & (PBaseSize|PResizeInc))
+		    == PBaseSize|PResizeInc)) {
+	return;
+    }
+
+    /*
+     * If gridding was previously off, then forget about any window
+     * size requests made by the user or via "wm geometry":  these are
+     * in pixel units and there's no easy way to translate them to
+     * grid units since the new requested size of the top-level window in
+     * pixels may not yet have been registered yet (it may filter up
+     * the hierarchy in DoWhenIdle handlers).  However, if the window
+     * has never been mapped yet then just leave the window size alone:
+     * assume that it is intended to be in grid units but just happened
+     * to have been specified before this procedure was called.
+     */
+
+    if ((wmPtr->gridWin == NULL) && !(wmPtr->flags & WM_NEVER_MAPPED)) {
+	wmPtr->width = -1;
+	wmPtr->height = -1;
+    }
+
+    /* 
+     * Set the new gridding information, and start the process of passing
+     * all of this information to the window manager.
+     */
+
+    wmPtr->gridWin = tkwin;
+    wmPtr->reqGridWidth = reqWidth;
+    wmPtr->reqGridHeight = reqHeight;
+    wmPtr->widthInc = widthInc;
+    wmPtr->heightInc = heightInc;
+    wmPtr->sizeHintsFlags |= PBaseSize|PResizeInc;
+    wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_UnsetGrid --
+ *
+ *	This procedure cancels the effect of a previous call
+ *	to Tk_SetGrid.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If tkwin currently controls gridding for its top-level window,
+ *	gridding is cancelled for that top-level window;  if some other
+ *	window controls gridding then this procedure has no effect.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_UnsetGrid(tkwin)
+    Tk_Window tkwin;		/* Token for window that is currently
+				 * controlling gridding. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr;
+
+    /*
+     * Find the top-level window for tkwin, plus the window manager
+     * information.
+     */
+
+    while (!(winPtr->flags & TK_TOP_LEVEL)) {
+	winPtr = winPtr->parentPtr;
+	if (winPtr == NULL) {
+	    /*
+	     * The window is being deleted... just skip this operation.
+	     */
+
+	    return;
+	}
+    }
+    wmPtr = winPtr->wmInfoPtr;
+    if (tkwin != wmPtr->gridWin) {
+	return;
+    }
+
+    wmPtr->gridWin = NULL;
+    wmPtr->sizeHintsFlags &= ~(PBaseSize|PResizeInc);
+    if (wmPtr->width != -1) {
+	wmPtr->width = winPtr->reqWidth + (wmPtr->width
+		- wmPtr->reqGridWidth)*wmPtr->widthInc;
+	wmPtr->height = winPtr->reqHeight + (wmPtr->height
+		- wmPtr->reqGridHeight)*wmPtr->heightInc;
+    }
+    wmPtr->widthInc = 1;
+    wmPtr->heightInc = 1;
+
+    wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureEvent --
+ *
+ *	This procedure is called to handle ConfigureNotify events on
+ *	top-level windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets updated in the WmInfo structure for the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ConfigureEvent(winPtr, configEventPtr)
+    TkWindow *winPtr;			/* Top-level window. */
+    XConfigureEvent *configEventPtr;	/* Event that just occurred for
+					 * winPtr. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+
+    /* 
+     * Update size information from the event.  There are a couple of
+     * tricky points here:
+     *
+     * 1. If the user changed the size externally then set wmPtr->width
+     *    and wmPtr->height just as if a "wm geometry" command had been
+     *    invoked with the same information.
+     * 2. However, if the size is changing in response to a request
+     *    coming from us (WM_SYNC_PENDING is set), then don't set wmPtr->width
+     *    or wmPtr->height if they were previously -1 (otherwise the
+     *    window will stop tracking geometry manager requests).
+     */
+
+    if (((winPtr->changes.width != configEventPtr->width)
+	    || (winPtr->changes.height != configEventPtr->height))
+	    && !(wmPtr->flags & WM_SYNC_PENDING)){
+	if (wmTracing) {
+	    printf("TopLevelEventProc: user changed %s size to %dx%d\n",
+		    winPtr->pathName, configEventPtr->width,
+		    configEventPtr->height);
+	}
+	if ((wmPtr->width == -1)
+		&& (configEventPtr->width == winPtr->reqWidth)) {
+	    /*
+	     * Don't set external width, since the user didn't change it
+	     * from what the widgets asked for.
+	     */
+	} else {
+	    if (wmPtr->gridWin != NULL) {
+		wmPtr->width = wmPtr->reqGridWidth
+			+ (configEventPtr->width
+			- winPtr->reqWidth)/wmPtr->widthInc;
+		if (wmPtr->width < 0) {
+		    wmPtr->width = 0;
+		}
+	    } else {
+		wmPtr->width = configEventPtr->width;
+	    }
+	}
+	if ((wmPtr->height == -1)
+		&& (configEventPtr->height == winPtr->reqHeight)) {
+	    /*
+	     * Don't set external height, since the user didn't change it
+	     * from what the widgets asked for.
+	     */
+	} else {
+	    if (wmPtr->gridWin != NULL) {
+		wmPtr->height = wmPtr->reqGridHeight
+			+ (configEventPtr->height
+			- winPtr->reqHeight)/wmPtr->heightInc;
+		if (wmPtr->height < 0) {
+		    wmPtr->height = 0;
+		}
+	    } else {
+		wmPtr->height = configEventPtr->height;
+	    }
+	}
+	wmPtr->configWidth = configEventPtr->width;
+	wmPtr->configHeight = configEventPtr->height;
+    }
+
+    if (wmTracing) {
+	printf("ConfigureEvent: %s x = %d y = %d, width = %d, height = %d",
+		winPtr->pathName, configEventPtr->x, configEventPtr->y,
+		configEventPtr->width, configEventPtr->height);
+	printf(" send_event = %d, serial = %ld\n", configEventPtr->send_event,
+		configEventPtr->serial);
+    }
+    winPtr->changes.width = configEventPtr->width;
+    winPtr->changes.height = configEventPtr->height;
+    winPtr->changes.border_width = configEventPtr->border_width;
+    winPtr->changes.sibling = configEventPtr->above;
+    winPtr->changes.stack_mode = Above;
+
+    /*
+     * Reparenting window managers make life difficult.  If the
+     * window manager reparents a top-level window then the x and y
+     * information that comes in events for the window is wrong:
+     * it gives the location of the window inside its decorative
+     * parent, rather than the location of the window in root
+     * coordinates, which is what we want.  Window managers
+     * are supposed to send synthetic events with the correct
+     * information, but ICCCM doesn't require them to do this
+     * under all conditions, and the information provided doesn't
+     * include everything we need here.  So, the code below
+     * maintains a bunch of information about the parent window.
+     * If the window hasn't been reparented, we pretend that
+     * there is a parent shrink-wrapped around the window.
+     */
+
+    if ((wmPtr->reparent == None) || !ComputeReparentGeometry(winPtr)) {
+	wmPtr->parentWidth = configEventPtr->width
+		+ 2*configEventPtr->border_width;
+	wmPtr->parentHeight = configEventPtr->height
+		+ 2*configEventPtr->border_width;
+	winPtr->changes.x = wmPtr->x = configEventPtr->x;
+	winPtr->changes.y = wmPtr->y = configEventPtr->y;
+	if (wmPtr->flags & WM_NEGATIVE_X) {
+	    wmPtr->x = wmPtr->vRootWidth - (wmPtr->x + wmPtr->parentWidth);
+	}
+	if (wmPtr->flags & WM_NEGATIVE_Y) {
+	    wmPtr->y = wmPtr->vRootHeight - (wmPtr->y + wmPtr->parentHeight);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ReparentEvent --
+ *
+ *	This procedure is called to handle ReparentNotify events on
+ *	top-level windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Information gets updated in the WmInfo structure for the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+ReparentEvent(winPtr, reparentEventPtr)
+    TkWindow *winPtr;			/* Top-level window. */
+    XReparentEvent *reparentEventPtr;	/* Event that just occurred for
+					 * winPtr. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    Window vRoot, ancestor, *children, dummy2, *virtualRootPtr;
+    Atom actualType;
+    int actualFormat;
+    unsigned long numItems, bytesAfter;
+    unsigned int dummy;
+    Tk_ErrorHandler handler;
+
+    /*
+     * Identify the root window for winPtr.  This is tricky because of
+     * virtual root window managers like tvtwm.  If the window has a
+     * property named __SWM_ROOT or __WM_ROOT then this property gives
+     * the id for a virtual root window that should be used instead of
+     * the root window of the screen.
+     */
+
+    vRoot = RootWindow(winPtr->display, winPtr->screenNum);
+    wmPtr->vRoot = None;
+    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    if (((XGetWindowProperty(winPtr->display, winPtr->window,
+	    Tk_InternAtom((Tk_Window) winPtr, "__WM_ROOT"), 0, (long) 1,
+	    False, XA_WINDOW, &actualType, &actualFormat, &numItems,
+	    &bytesAfter, (unsigned char **) &virtualRootPtr) == Success)
+	    && (actualType == XA_WINDOW))
+	    || ((XGetWindowProperty(winPtr->display, winPtr->window,
+	    Tk_InternAtom((Tk_Window) winPtr, "__SWM_ROOT"), 0, (long) 1,
+	    False, XA_WINDOW, &actualType, &actualFormat, &numItems,
+	    &bytesAfter, (unsigned char **) &virtualRootPtr) == Success)
+	    && (actualType == XA_WINDOW))) {
+	if ((actualFormat == 32) && (numItems == 1)) {
+	    vRoot = wmPtr->vRoot = *virtualRootPtr;
+	} else if (wmTracing) {
+	    printf("%s format %d numItems %ld\n",
+		    "ReparentEvent got bogus VROOT property:", actualFormat,
+		    numItems);
+	}
+	XFree((char *) virtualRootPtr);
+    }
+    Tk_DeleteErrorHandler(handler);
+
+    if (wmTracing) {
+	printf("ReparentEvent: %s reparented to 0x%x, vRoot = 0x%x\n",
+		winPtr->pathName, (unsigned int) reparentEventPtr->parent,
+		(unsigned int) vRoot);
+    }
+
+    /*
+     * Fetch correct geometry information for the new virtual root.
+     */
+
+    UpdateVRootGeometry(wmPtr);
+
+    /*
+     * If the window's new parent is the root window, then mark it as
+     * no longer reparented.
+     */
+
+    if (reparentEventPtr->parent == vRoot) {
+	noReparent:
+	wmPtr->reparent = None;
+	wmPtr->parentWidth = winPtr->changes.width
+		+ 2*winPtr->changes.border_width;
+	wmPtr->parentHeight = winPtr->changes.height
+		+ 2*winPtr->changes.border_width;
+	wmPtr->xInParent = wmPtr->yInParent = 0;
+	winPtr->changes.x = reparentEventPtr->x;
+	winPtr->changes.y = reparentEventPtr->y;
+	return;
+    }
+
+    /*
+     * Search up the window hierarchy to find the ancestor of this
+     * window that is just below the (virtual) root.  This is tricky
+     * because it's possible that things have changed since the event
+     * was generated so that the ancestry indicated by the event no
+     * longer exists.  If this happens then an error will occur and
+     * we just discard the event (there will be a more up-to-date
+     * ReparentNotify event coming later).
+     */
+
+    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    wmPtr->reparent = reparentEventPtr->parent;
+    while (1) {
+	if (XQueryTree(winPtr->display, wmPtr->reparent, &dummy2, &ancestor,
+		&children, &dummy) == 0) {
+	    Tk_DeleteErrorHandler(handler);
+	    goto noReparent;
+	}
+	XFree((char *) children);
+	if ((ancestor == vRoot) ||
+		(ancestor == RootWindow(winPtr->display, winPtr->screenNum))) {
+	    break;
+	}
+	wmPtr->reparent = ancestor;
+    }
+    Tk_DeleteErrorHandler(handler);
+
+    if (!ComputeReparentGeometry(winPtr)) {
+	goto noReparent;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ComputeReparentGeometry --
+ *
+ *	This procedure is invoked to recompute geometry information
+ *	related to a reparented top-level window, such as the position
+ *	and total size of the parent and the position within it of
+ *	the top-level window.
+ *
+ * Results:
+ *	The return value is 1 if everything completed successfully
+ *	and 0 if an error occurred while querying information about
+ *	winPtr's parents.  In this case winPtr is marked as no longer
+ *	being reparented.
+ *
+ * Side effects:
+ *	Geometry information in winPtr and winPtr->wmPtr gets updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ComputeReparentGeometry(winPtr)
+    TkWindow *winPtr;		/* Top-level window whose reparent info
+				 * is to be recomputed. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    int width, height, bd;
+    unsigned int dummy;
+    int xOffset, yOffset, x, y;
+    Window dummy2;
+    Status status;
+    Tk_ErrorHandler handler;
+
+    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    (void) XTranslateCoordinates(winPtr->display, winPtr->window,
+	    wmPtr->reparent, 0, 0, &xOffset, &yOffset, &dummy2);
+    status = XGetGeometry(winPtr->display, wmPtr->reparent,
+	    &dummy2, &x, &y, (unsigned int *) &width,
+	    (unsigned int *) &height, (unsigned int *) &bd, &dummy);
+    Tk_DeleteErrorHandler(handler);
+    if (status == 0) {
+	/*
+	 * It appears that the reparented parent went away and
+	 * no-one told us.  Reset the window to indicate that
+	 * it's not reparented.
+	 */
+	wmPtr->reparent = None;
+	wmPtr->xInParent = wmPtr->yInParent = 0;
+	return 0;
+    }
+    wmPtr->xInParent = xOffset + bd - winPtr->changes.border_width;
+    wmPtr->yInParent = yOffset + bd - winPtr->changes.border_width;
+    wmPtr->parentWidth = width + 2*bd;
+    wmPtr->parentHeight = height + 2*bd;
+
+    /*
+     * Some tricky issues in updating wmPtr->x and wmPtr->y:
+     *
+     * 1. Don't update them if the event occurred because of something
+     * we did (i.e. WM_SYNC_PENDING and WM_MOVE_PENDING are both set).
+     * This is because window managers treat coords differently than Tk,
+     * and no two window managers are alike. If the window manager moved
+     * the window because we told it to, remember the coordinates we told
+     * it, not the ones it actually moved it to.  This allows us to move
+     * the window back to the same coordinates later and get the same
+     * result. Without this check, windows can "walk" across the screen
+     * under some conditions.
+     *
+     * 2. Don't update wmPtr->x and wmPtr->y unless winPtr->changes.x
+     * or winPtr->changes.y has changed (otherwise a size change can
+     * spoof us into thinking that the position changed too and defeat
+     * the intent of (1) above.
+     *
+     * 3. Ignore size changes coming from the window system if we're
+     * about to change the size ourselves but haven't seen the event for
+     * it yet:  our size change is supposed to take priority.
+     */
+
+    if (!(wmPtr->flags & WM_MOVE_PENDING)
+	    && ((winPtr->changes.x != (x + wmPtr->xInParent))
+	    || (winPtr->changes.y != (y + wmPtr->yInParent)))) {
+	wmPtr->x = x;
+	if (wmPtr->flags & WM_NEGATIVE_X) {
+	    wmPtr->x = wmPtr->vRootWidth - (wmPtr->x + wmPtr->parentWidth);
+	}
+	wmPtr->y = y;
+	if (wmPtr->flags & WM_NEGATIVE_Y) {
+	    wmPtr->y = wmPtr->vRootHeight - (wmPtr->y + wmPtr->parentHeight);
+	}
+    }
+
+    winPtr->changes.x = x + wmPtr->xInParent;
+    winPtr->changes.y = y + wmPtr->yInParent;
+    if (wmTracing) {
+	printf("winPtr coords %d,%d, wmPtr coords %d,%d, offsets %d %d\n",
+		winPtr->changes.x, winPtr->changes.y, wmPtr->x, wmPtr->y,
+		wmPtr->xInParent, wmPtr->yInParent);
+    }
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TopLevelEventProc --
+ *
+ *	This procedure is invoked when a top-level (or other externally-
+ *	managed window) is restructured in any way.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tk's internal data structures for the window get modified to
+ *	reflect the structural change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TopLevelEventProc(clientData, eventPtr)
+    ClientData clientData;		/* Window for which event occurred. */
+    XEvent *eventPtr;			/* Event that just happened. */
+{
+    register TkWindow *winPtr = (TkWindow *) clientData;
+
+    winPtr->wmInfoPtr->flags |= WM_VROOT_OFFSET_STALE;
+    if (eventPtr->type == DestroyNotify) {
+	Tk_ErrorHandler handler;
+
+	if (!(winPtr->flags & TK_ALREADY_DEAD)) {
+	    /*
+	     * A top-level window was deleted externally (e.g., by the window
+	     * manager).  This is probably not a good thing, but cleanup as
+	     * best we can.  The error handler is needed because
+	     * Tk_DestroyWindow will try to destroy the window, but of course
+	     * it's already gone.
+	     */
+    
+	    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+		    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+	    Tk_DestroyWindow((Tk_Window) winPtr);
+	    Tk_DeleteErrorHandler(handler);
+	}
+	if (wmTracing) {
+	    printf("TopLevelEventProc: %s deleted\n", winPtr->pathName);
+	}
+    } else if (eventPtr->type == ConfigureNotify) {
+	/*
+	 * Ignore the event if the window has never been mapped yet.
+	 * Such an event occurs only in weird cases like changing the
+	 * internal border width of a top-level window, which results
+	 * in a synthetic Configure event.  These events are not relevant
+	 * to us, and if we process them confusion may result (e.g. we
+	 * may conclude erroneously that the user repositioned or resized
+	 * the window).
+	 */
+
+	if (!(winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED)) {
+	    ConfigureEvent(winPtr, &eventPtr->xconfigure);
+	}
+    } else if (eventPtr->type == MapNotify) {
+	winPtr->flags |= TK_MAPPED;
+	if (wmTracing) {
+	    printf("TopLevelEventProc: %s mapped\n", winPtr->pathName);
+	}
+    } else if (eventPtr->type == UnmapNotify) {
+	winPtr->flags &= ~TK_MAPPED;
+	if (wmTracing) {
+	    printf("TopLevelEventProc: %s unmapped\n", winPtr->pathName);
+	}
+    } else if (eventPtr->type == ReparentNotify) {
+	ReparentEvent(winPtr, &eventPtr->xreparent);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TopLevelReqProc --
+ *
+ *	This procedure is invoked by the geometry manager whenever
+ *	the requested size for a top-level window is changed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arrange for the window to be resized to satisfy the request
+ *	(this happens as a when-idle action).
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+TopLevelReqProc(dummy, tkwin)
+    ClientData dummy;			/* Not used. */
+    Tk_Window tkwin;			/* Information about window. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    WmInfo *wmPtr;
+
+    wmPtr = winPtr->wmInfoPtr;
+    wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+
+    /*
+     * If the window isn't being positioned by its upper left corner
+     * then we have to move it as well.
+     */
+
+    if (wmPtr->flags & (WM_NEGATIVE_X | WM_NEGATIVE_Y)) {
+	wmPtr->flags |= WM_MOVE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateGeometryInfo --
+ *
+ *	This procedure is invoked when a top-level window is first
+ *	mapped, and also as a when-idle procedure, to bring the
+ *	geometry and/or position of a top-level window back into
+ *	line with what has been requested by the user and/or widgets.
+ *	This procedure doesn't return until the window manager has
+ *	responded to the geometry change.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window's size and location may change, unless the WM prevents
+ *	that from happening.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateGeometryInfo(clientData)
+    ClientData clientData;		/* Pointer to the window's record. */
+{
+    register TkWindow *winPtr = (TkWindow *) clientData;
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    int x, y, width, height;
+    unsigned long serial;
+
+    wmPtr->flags &= ~WM_UPDATE_PENDING;
+
+    /*
+     * Compute the new size for the top-level window.  See the
+     * user documentation for details on this, but the size
+     * requested depends on (a) the size requested internally
+     * by the window's widgets, (b) the size requested by the
+     * user in a "wm geometry" command or via wm-based interactive
+     * resizing (if any), and (c) whether or not the window is
+     * gridded.  Don't permit sizes <= 0 because this upsets
+     * the X server.
+     */
+
+    if (wmPtr->width == -1) {
+	width = winPtr->reqWidth;
+    } else if (wmPtr->gridWin != NULL) {
+	width = winPtr->reqWidth
+		+ (wmPtr->width - wmPtr->reqGridWidth)*wmPtr->widthInc;
+    } else {
+	width = wmPtr->width;
+    }
+    if (width <= 0) {
+	width = 1;
+    }
+    if (wmPtr->height == -1) {
+	height = winPtr->reqHeight;
+    } else if (wmPtr->gridWin != NULL) {
+	height = winPtr->reqHeight
+		+ (wmPtr->height - wmPtr->reqGridHeight)*wmPtr->heightInc;
+    } else {
+	height = wmPtr->height;
+    }
+    if (height <= 0) {
+	height = 1;
+    }
+
+    /*
+     * Compute the new position for the upper-left pixel of the window's
+     * decorative frame.  This is tricky, because we need to include the
+     * border widths supplied by a reparented parent in this calculation,
+     * but can't use the parent's current overall size since that may
+     * change as a result of this code.
+     */
+
+    if (wmPtr->flags & WM_NEGATIVE_X) {
+	x = wmPtr->vRootWidth - wmPtr->x
+		- (width + (wmPtr->parentWidth - winPtr->changes.width));
+    } else {
+	x =  wmPtr->x;
+    }
+    if (wmPtr->flags & WM_NEGATIVE_Y) {
+	y = wmPtr->vRootHeight - wmPtr->y
+		- (height + (wmPtr->parentHeight - winPtr->changes.height));
+    } else {
+	y =  wmPtr->y;
+    }
+
+    /*
+     * If the window's size is going to change and the window is
+     * supposed to not be resizable by the user, then we have to
+     * update the size hints.  There may also be a size-hint-update
+     * request pending from somewhere else, too.
+     */
+
+    if (((width != winPtr->changes.width)
+	    || (height != winPtr->changes.height))
+	    && (wmPtr->gridWin == NULL)
+	    && ((wmPtr->sizeHintsFlags & (PMinSize|PMaxSize)) == 0)) {
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+    }
+    if (wmPtr->flags & WM_UPDATE_SIZE_HINTS) {
+	UpdateSizeHints(winPtr);
+    }
+
+    /*
+     * Reconfigure the window if it isn't already configured correctly.
+     * A few tricky points:
+     *
+     * 1. Sometimes the window manager will give us a different size
+     *    than we asked for (e.g. mwm has a minimum size for windows), so
+     *    base the size check on what we *asked for* last time, not what we
+     *    got.
+     * 2. Can't just reconfigure always, because we may not get a
+     *    ConfigureNotify event back if nothing changed, so
+     *    WaitForConfigureNotify will hang a long time.
+     * 3. Don't move window unless a new position has been requested for
+     *	  it.  This is because of "features" in some window managers (e.g.
+     *    twm, as of 4/24/91) where they don't interpret coordinates
+     *    according to ICCCM.  Moving a window to its current location may
+     *    cause it to shift position on the screen.
+     */
+
+    serial = NextRequest(winPtr->display);
+    if (wmPtr->flags & WM_MOVE_PENDING) {
+	wmPtr->configWidth = width;
+	wmPtr->configHeight = height;
+	if (wmTracing) {
+	    printf("UpdateGeometryInfo moving to %d %d, resizing to %d x %d,\n",
+		    x, y, width, height);
+	}
+	Tk_MoveResizeWindow((Tk_Window) winPtr, x, y, width, height);
+    } else if ((width != wmPtr->configWidth)
+	    || (height != wmPtr->configHeight)) {
+	wmPtr->configWidth = width;
+	wmPtr->configHeight = height;
+	if (wmTracing) {
+	    printf("UpdateGeometryInfo resizing to %d x %d\n", width, height);
+	}
+	Tk_ResizeWindow((Tk_Window) winPtr, width, height);
+    } else {
+	return;
+    }
+
+    /*
+     * Wait for the configure operation to complete.  Don't need to do
+     * this, however, if the window is about to be mapped:  it will be
+     * taken care of elsewhere.
+     */
+
+    if (!(wmPtr->flags & WM_ABOUT_TO_MAP)) {
+	WaitForConfigureNotify(winPtr, serial);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * UpdateSizeHints --
+ *
+ *	This procedure is called to update the window manager's
+ *	size hints information from the information in a WmInfo
+ *	structure.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Properties get changed for winPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+UpdateSizeHints(winPtr)
+    TkWindow *winPtr;
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    XSizeHints *hintsPtr;
+    int maxWidth, maxHeight;
+
+    wmPtr->flags &= ~WM_UPDATE_SIZE_HINTS;
+
+    hintsPtr = XAllocSizeHints();
+    if (hintsPtr == NULL) {
+	return;
+    }
+
+    /*
+     * Compute the pixel-based sizes for the various fields in the
+     * size hints structure, based on the grid-based sizes in
+     * our structure.
+     */
+
+    GetMaxSize(wmPtr, &maxWidth, &maxHeight);
+    if (wmPtr->gridWin != NULL) {
+	hintsPtr->base_width = winPtr->reqWidth
+		- (wmPtr->reqGridWidth * wmPtr->widthInc);
+	if (hintsPtr->base_width < 0) {
+	    hintsPtr->base_width = 0;
+	}
+	hintsPtr->base_height = winPtr->reqHeight
+		- (wmPtr->reqGridHeight * wmPtr->heightInc);
+	if (hintsPtr->base_height < 0) {
+	    hintsPtr->base_height = 0;
+	}
+	hintsPtr->min_width = hintsPtr->base_width
+		+ (wmPtr->minWidth * wmPtr->widthInc);
+	hintsPtr->min_height = hintsPtr->base_height
+		+ (wmPtr->minHeight * wmPtr->heightInc);
+	hintsPtr->max_width = hintsPtr->base_width
+		+ (maxWidth * wmPtr->widthInc);
+	hintsPtr->max_height = hintsPtr->base_height
+		+ (maxHeight * wmPtr->heightInc);
+    } else {
+	hintsPtr->min_width = wmPtr->minWidth;
+	hintsPtr->min_height = wmPtr->minHeight;
+	hintsPtr->max_width = maxWidth;
+	hintsPtr->max_height = maxHeight;
+	hintsPtr->base_width = 0;
+	hintsPtr->base_height = 0;
+    }
+    hintsPtr->width_inc = wmPtr->widthInc;
+    hintsPtr->height_inc = wmPtr->heightInc;
+    hintsPtr->min_aspect.x = wmPtr->minAspect.x;
+    hintsPtr->min_aspect.y = wmPtr->minAspect.y;
+    hintsPtr->max_aspect.x = wmPtr->maxAspect.x;
+    hintsPtr->max_aspect.y = wmPtr->maxAspect.y;
+    hintsPtr->win_gravity = wmPtr->gravity;
+    hintsPtr->flags = wmPtr->sizeHintsFlags | PMinSize | PMaxSize;
+
+    /*
+     * If the window isn't supposed to be resizable, then set the
+     * minimum and maximum dimensions to be the same.
+     */
+
+    if (wmPtr->flags & WM_WIDTH_NOT_RESIZABLE) {
+	if (wmPtr->width >= 0) {
+	    hintsPtr->min_width = wmPtr->width;
+	} else {
+	    hintsPtr->min_width = winPtr->reqWidth;
+	}
+	hintsPtr->max_width = hintsPtr->min_width;
+    }
+    if (wmPtr->flags & WM_HEIGHT_NOT_RESIZABLE) {
+	if (wmPtr->height >= 0) {
+	    hintsPtr->min_height = wmPtr->height;
+	} else {
+	    hintsPtr->min_height = winPtr->reqHeight;
+	}
+	hintsPtr->max_height = hintsPtr->min_height;
+    }
+
+    XSetWMNormalHints(winPtr->display, winPtr->window, hintsPtr);
+
+    XFree((char *) hintsPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WaitForConfigureNotify --
+ *
+ *	This procedure is invoked in order to synchronize with the
+ *	window manager.  It waits for a ConfigureNotify event to
+ *	arrive, signalling that the window manager has seen an attempt
+ *	on our part to move or resize a top-level window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Delays the execution of the process until a ConfigureNotify event
+ *	arrives with serial number at least as great as serial.  This
+ *	is useful for two reasons:
+ *
+ *	1. It's important to distinguish ConfigureNotify events that are
+ *	   coming in response to a request we've made from those generated
+ *	   spontaneously by the user.  The reason for this is that if the
+ *	   user resizes the window we take that as an order to ignore
+ *	   geometry requests coming from inside the window hierarchy.  If
+ *	   we accidentally interpret a response to our request as a
+ *	   user-initiated action, the window will stop responding to
+ *	   new geometry requests.  To make this distinction, (a) this
+ *	   procedure sets a flag for TopLevelEventProc to indicate that
+ *	   we're waiting to sync with the wm, and (b) all changes to
+ *	   the size of a top-level window are followed by calls to this
+ *	   procedure.
+ *	2. Races and confusion can come about if there are multiple
+ *	   operations outstanding at a time (e.g. two different resizes
+ *	   of the top-level window:  it's hard to tell which of the
+ *	   ConfigureNotify events coming back is for which request).
+ *	While waiting, all events covered by StructureNotifyMask are
+ *	processed and all others are deferred.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+WaitForConfigureNotify(winPtr, serial)
+    TkWindow *winPtr;		/* Top-level window for which we want
+				 * to see a ConfigureNotify. */
+    unsigned long serial;	/* Serial number of resize request.  Want to
+				 * be sure wm has seen this. */
+{
+    WmInfo *wmPtr = winPtr->wmInfoPtr;
+    XEvent event;
+    int diff, code;
+    int gotConfig = 0;
+
+    /*
+     * One more tricky detail about this procedure.  In some cases the
+     * window manager will decide to ignore a configure request (e.g.
+     * because it thinks the window is already in the right place).
+     * To avoid hanging in this situation, only wait for a few seconds,
+     * then give up.
+     */
+
+    while (!gotConfig) {
+	wmPtr->flags |= WM_SYNC_PENDING;
+	code = WaitForEvent(winPtr->display, winPtr->window, ConfigureNotify,
+		&event);
+	wmPtr->flags &= ~WM_SYNC_PENDING;
+	if (code != TCL_OK) {
+	    if (wmTracing) {
+		printf("WaitForConfigureNotify giving up on %s\n",
+			winPtr->pathName);
+	    }
+	    break;
+	}
+	diff = event.xconfigure.serial - serial;
+	if (diff >= 0) {
+	    gotConfig = 1;
+	}
+    }
+    wmPtr->flags &= ~WM_MOVE_PENDING;
+    if (wmTracing) {
+	printf("WaitForConfigureNotify finished with %s, serial %ld\n",
+		winPtr->pathName, serial);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WaitForEvent --
+ *
+ *	This procedure is used by WaitForConfigureNotify and
+ *	WaitForMapNotify to wait for an event of a certain type
+ *	to arrive.
+ *
+ * Results:
+ *	Under normal conditions, TCL_OK is returned and an event for
+ *	display and window that matches "mask" is stored in *eventPtr.
+ *	This event  has already been processed by Tk before this procedure
+ *	returns.  If a long time goes by with no event of the right type
+ *	arriving, or if an error occurs while waiting for the event to
+ *	arrive, then TCL_ERROR is returned.
+ *
+ * Side effects:
+ *	While waiting for the desired event to occur, Configurenotify
+ *	events for window are processed, as are all ReparentNotify events,
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+WaitForEvent(display, window, type, eventPtr)
+    Display *display;		/* Display event is coming from. */
+    Window window;		/* Window for which event is desired. */
+    int type;			/* Type of event that is wanted. */
+    XEvent *eventPtr;		/* Place to store event. */
+{
+#define TIMEOUT_MS 2000
+    WaitRestrictInfo info;
+    Tk_RestrictProc *oldRestrictProc;
+    ClientData oldRestrictData;
+
+    /*
+     * Set up an event filter to select just the events we want, and
+     * a timer handler, then wait for events until we get the event
+     * we want or a timeout happens.
+     */
+
+    info.display = display;
+    info.window = window;
+    info.type = type;
+    info.eventPtr = eventPtr;
+    info.foundEvent = 0;
+    info.timeout = 0;
+    oldRestrictProc = Tk_RestrictEvents(WaitRestrictProc, (ClientData) &info,
+	    &oldRestrictData);
+    Tcl_CreateModalTimeout(TIMEOUT_MS, WaitTimeoutProc,
+	    (ClientData) &info);
+    while (1) {
+	Tcl_DoOneEvent(TCL_WINDOW_EVENTS);
+	if (info.foundEvent) {
+	    break;
+	}
+	if (info.timeout) {
+	    break;
+	}
+    }
+    Tcl_DeleteModalTimeout(WaitTimeoutProc, (ClientData) &info);
+    (void) Tk_RestrictEvents(oldRestrictProc, oldRestrictData,
+	    &oldRestrictData);
+    if (info.foundEvent) {
+	return TCL_OK;
+    }
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WaitRestrictProc --
+ *
+ *	This procedure is a Tk_RestrictProc that is used to filter
+ *	events while WaitForEvent is active.
+ *
+ * Results:
+ *	Returns TK_PROCESS_EVENT if the right event is found.  Also
+ *	returns TK_PROCESS_EVENT if any ReparentNotify event is found
+ *	for window or if the event is a ConfigureNotify for window.
+ *	Otherwise returns TK_DEFER_EVENT.
+ *
+ * Side effects:
+ *	An event may get stored in the area indicated by the caller
+ *	of WaitForEvent.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_RestrictAction
+WaitRestrictProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to WaitRestrictInfo structure. */
+    XEvent *eventPtr;		/* Event that is about to be handled. */
+{
+    WaitRestrictInfo *infoPtr = (WaitRestrictInfo *) clientData;
+
+    if (eventPtr->type == ReparentNotify) {
+	return TK_PROCESS_EVENT;
+    }
+    if ((eventPtr->xany.window != infoPtr->window)
+	    || (eventPtr->xany.display != infoPtr->display)) {
+	return TK_DEFER_EVENT;
+    }
+    if (eventPtr->type == infoPtr->type) {
+	*infoPtr->eventPtr = *eventPtr;
+	infoPtr->foundEvent = 1;
+	return TK_PROCESS_EVENT;
+    }
+    if (eventPtr->type == ConfigureNotify) {
+	return TK_PROCESS_EVENT;
+    }
+    return TK_DEFER_EVENT;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WaitTimeoutProc --
+ *
+ *	This procedure is invoked as a timer handler when too much
+ *	time elapses during a call to WaitForEvent.  It sets a flag
+ *	in a structure shared with WaitForEvent so that WaitForEvent
+ *	knows that it should return.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The timeout field gest set in the WaitRestrictInfo structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+WaitTimeoutProc(clientData)
+    ClientData clientData;	/* Pointer to WaitRestrictInfo structure. */
+{
+    WaitRestrictInfo *infoPtr = (WaitRestrictInfo *) clientData;
+
+    infoPtr->timeout = 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WaitForMapNotify --
+ *
+ *	This procedure is invoked in order to synchronize with the
+ *	window manager.  It waits for the window's mapped state to
+ *	reach the value given by mapped.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Delays the execution of the process until winPtr becomes mapped
+ *	or unmapped, depending on the "mapped" argument.  This allows us
+ *	to synchronize with the window manager, and allows us to
+ *	identify changes in window size that come about when the window
+ *	manager first starts managing the window (as opposed to those
+ *	requested interactively by the user later).  See the comments
+ *	for WaitForConfigureNotify and WM_SYNC_PENDING.  While waiting,
+ *	all events covered by StructureNotifyMask are processed and all
+ *	others are deferred.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+WaitForMapNotify(winPtr, mapped)
+    TkWindow *winPtr;		/* Top-level window for which we want
+				 * to see a particular mapping state. */
+    int mapped;			/* If non-zero, wait for window to become
+				 * mapped, otherwise wait for it to become
+				 * unmapped. */
+{
+    WmInfo *wmPtr = winPtr->wmInfoPtr;
+    XEvent event;
+    int code;
+
+    while (1) {
+	if (mapped) {
+	    if (winPtr->flags & TK_MAPPED) {
+		break;
+	    }
+	} else if (!(winPtr->flags & TK_MAPPED)) {
+	    break;
+	}
+	wmPtr->flags |= WM_SYNC_PENDING;
+	code = WaitForEvent(winPtr->display, winPtr->window,
+		mapped ? MapNotify : UnmapNotify, &event);
+	wmPtr->flags &= ~WM_SYNC_PENDING;
+	if (code != TCL_OK) {
+	    /*
+	     * There are some bizarre situations in which the window
+	     * manager can't respond or chooses not to (e.g. if we've
+	     * got a grab set it can't respond).  If this happens then
+	     * just quit.
+	     */
+
+	    if (wmTracing) {
+		printf("WaitForMapNotify giving up on %s\n", winPtr->pathName);
+	    }
+	    break;
+	}
+    }
+    wmPtr->flags &= ~WM_MOVE_PENDING;
+    if (wmTracing) {
+	printf("WaitForMapNotify finished with %s\n", winPtr->pathName);
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * UpdateHints --
+ *
+ *	This procedure is called to update the window manager's
+ *	hints information from the information in a WmInfo
+ *	structure.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Properties get changed for winPtr.
+ *
+ *--------------------------------------------------------------
+ */
+
+static void
+UpdateHints(winPtr)
+    TkWindow *winPtr;
+{
+    WmInfo *wmPtr = winPtr->wmInfoPtr;
+
+    if (wmPtr->flags & WM_NEVER_MAPPED) {
+	return;
+    }
+    XSetWMHints(winPtr->display, winPtr->window, &wmPtr->hints);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ParseGeometry --
+ *
+ *	This procedure parses a geometry string and updates
+ *	information used to control the geometry of a top-level
+ *	window.
+ *
+ * Results:
+ *	A standard Tcl return value, plus an error message in
+ *	interp->result if an error occurs.
+ *
+ * Side effects:
+ *	The size and/or location of winPtr may change.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ParseGeometry(interp, string, winPtr)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    char *string;		/* String containing new geometry.  Has the
+				 * standard form "=wxh+x+y". */
+    TkWindow *winPtr;		/* Pointer to top-level window whose
+				 * geometry is to be changed. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    int x, y, width, height, flags;
+    char *end;
+    register char *p = string;
+
+    /*
+     * The leading "=" is optional.
+     */
+
+    if (*p == '=') {
+	p++;
+    }
+
+    /*
+     * Parse the width and height, if they are present.  Don't
+     * actually update any of the fields of wmPtr until we've
+     * successfully parsed the entire geometry string.
+     */
+
+    width = wmPtr->width;
+    height = wmPtr->height;
+    x = wmPtr->x;
+    y = wmPtr->y;
+    flags = wmPtr->flags;
+    if (isdigit(UCHAR(*p))) {
+	width = strtoul(p, &end, 10);
+	p = end;
+	if (*p != 'x') {
+	    goto error;
+	}
+	p++;
+	if (!isdigit(UCHAR(*p))) {
+	    goto error;
+	}
+	height = strtoul(p, &end, 10);
+	p = end;
+    }
+
+    /*
+     * Parse the X and Y coordinates, if they are present.
+     */
+
+    if (*p != '\0') {
+	flags &= ~(WM_NEGATIVE_X | WM_NEGATIVE_Y);
+	if (*p == '-') {
+	    flags |= WM_NEGATIVE_X;
+	} else if (*p != '+') {
+	    goto error;
+	}
+	x = strtol(p+1, &end, 10);
+	p = end;
+	if (*p == '-') {
+	    flags |= WM_NEGATIVE_Y;
+	} else if (*p != '+') {
+	    goto error;
+	}
+	y = strtol(p+1, &end, 10);
+	if (*end != '\0') {
+	    goto error;
+	}
+
+	/*
+	 * Assume that the geometry information came from the user,
+	 * unless an explicit source has been specified.  Otherwise
+	 * most window managers assume that the size hints were
+	 * program-specified and they ignore them.
+	 */
+
+	if ((wmPtr->sizeHintsFlags & (USPosition|PPosition)) == 0) {
+	    wmPtr->sizeHintsFlags |= USPosition;
+	    flags |= WM_UPDATE_SIZE_HINTS;
+	}
+    }
+
+    /*
+     * Everything was parsed OK.  Update the fields of *wmPtr and
+     * arrange for the appropriate information to be percolated out
+     * to the window manager at the next idle moment.
+     */
+
+    wmPtr->width = width;
+    wmPtr->height = height;
+    wmPtr->x = x;
+    wmPtr->y = y;
+    flags |= WM_MOVE_PENDING;
+    wmPtr->flags = flags;
+
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+    return TCL_OK;
+
+    error:
+    Tcl_AppendResult(interp, "bad geometry specifier \"",
+	    string, "\"", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetRootCoords --
+ *
+ *	Given a token for a window, this procedure traces through the
+ *	window's lineage to find the (virtual) root-window coordinates
+ *	corresponding to point (0,0) in the window.
+ *
+ * Results:
+ *	The locations pointed to by xPtr and yPtr are filled in with
+ *	the root coordinates of the (0,0) point in tkwin.  If a virtual
+ *	root window is in effect for the window, then the coordinates
+ *	in the virtual root are returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_GetRootCoords(tkwin, xPtr, yPtr)
+    Tk_Window tkwin;		/* Token for window. */
+    int *xPtr;			/* Where to store x-displacement of (0,0). */
+    int *yPtr;			/* Where to store y-displacement of (0,0). */
+{
+    int x, y;
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    /*
+     * Search back through this window's parents all the way to a
+     * top-level window, combining the offsets of each window within
+     * its parent.
+     */
+
+    x = y = 0;
+    while (1) {
+	x += winPtr->changes.x + winPtr->changes.border_width;
+	y += winPtr->changes.y + winPtr->changes.border_width;
+	if ((winPtr->flags & TK_TOP_LEVEL) || (winPtr->parentPtr == NULL)) {
+	    break;
+	}
+	winPtr = winPtr->parentPtr;
+    }
+    *xPtr = x;
+    *yPtr = y;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CoordsToWindow --
+ *
+ *	Given the (virtual) root coordinates of a point, this procedure
+ *	returns the token for the top-most window covering that point,
+ *	if there exists such a window in this application.
+ *
+ * Results:
+ *	The return result is either a token for the window corresponding
+ *	to rootX and rootY, or else NULL to indicate that there is no such
+ *	window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_CoordsToWindow(rootX, rootY, tkwin)
+    int rootX, rootY;		/* Coordinates of point in root window.  If
+				 * a virtual-root window manager is in use,
+				 * these coordinates refer to the virtual
+				 * root, not the real root. */
+    Tk_Window tkwin;		/* Token for any window in application;
+				 * used to identify the display. */
+{
+    Window rootChild, root, vRoot;
+    int dummy1, dummy2;
+    register WmInfo *wmPtr;
+    register TkWindow *winPtr, *childPtr;
+    TkWindow *nextPtr;		/* Coordinates of highest child found so
+				 * far that contains point. */
+    int x, y;			/* Coordinates in winPtr. */
+    int tmpx, tmpy, bd;
+
+    /*
+     * Step 1: find any top-level window for the right screen.
+     */
+
+    while (!Tk_IsTopLevel(tkwin)) {
+	tkwin = Tk_Parent(tkwin);
+    }
+    wmPtr = ((TkWindow *) tkwin)->wmInfoPtr;
+
+    /*
+     * Step 2: find the window in the actual root that contains the
+     * desired point.  Special trick:  if a virtual root window manager
+     * is in use, there may be windows in both the true root (e.g.
+     * pop-up menus) and in the virtual root;  have to look in *both*
+     * places.
+     */
+
+    UpdateVRootGeometry(wmPtr);
+    root = RootWindowOfScreen(Tk_Screen(tkwin));
+    if (XTranslateCoordinates(Tk_Display(tkwin), root, root,
+	    rootX + wmPtr->vRootX, rootY + wmPtr->vRootY,
+	    &dummy1, &dummy2, &rootChild) == False) {
+	panic("Tk_CoordsToWindow get False return from XTranslateCoordinates");
+    }
+
+    /*
+     * Step 3: if the window we've found so far (a child of the root)
+     * is the virtual root window, then look again to find the child of
+     * the virtual root.
+     */
+
+    vRoot = ((TkWindow *) tkwin)->wmInfoPtr->vRoot;
+    if ((vRoot != None) && (rootChild == vRoot)) {
+	if (XTranslateCoordinates(Tk_Display(tkwin), vRoot, vRoot, rootX,
+		rootY, &dummy1, &dummy2, &rootChild) == False) {
+	    panic("Tk_CoordsToWindow get False return from XTranslateCoordinates");
+	}
+    }
+    for (wmPtr = firstWmPtr; ; wmPtr = wmPtr->nextPtr) {
+	if (wmPtr == NULL) {
+	    return NULL;
+	}
+	if ((wmPtr->reparent == rootChild) || ((wmPtr->reparent == None)
+		&& (wmPtr->winPtr->window == rootChild))) {
+	    break;
+	}
+    }
+    winPtr = wmPtr->winPtr;
+    if (winPtr->mainPtr != ((TkWindow *) tkwin)->mainPtr) {
+	return NULL;
+    }
+
+    /*
+     * Step 4: work down through the hierarchy underneath this window.
+     * At each level, scan through all the children to find the highest
+     * one in the stacking order that contains the point.  Then repeat
+     * the whole process on that child.
+     */
+
+    x = rootX;
+    y = rootY;
+    while (1) {
+	x -= winPtr->changes.x;
+	y -= winPtr->changes.y;
+	nextPtr = NULL;
+	for (childPtr = winPtr->childList; childPtr != NULL;
+		childPtr = childPtr->nextPtr) {
+	    if (!Tk_IsMapped(childPtr) || (childPtr->flags & TK_TOP_LEVEL)) {
+		continue;
+	    }
+	    tmpx = x - childPtr->changes.x;
+	    tmpy = y - childPtr->changes.y;
+	    bd = childPtr->changes.border_width;
+	    if ((tmpx >= -bd) && (tmpy >= -bd)
+		    && (tmpx < (childPtr->changes.width + bd))
+		    && (tmpy < (childPtr->changes.height + bd))) {
+		nextPtr = childPtr;
+	    }
+	}
+	if (nextPtr == NULL) {
+	    break;
+	}
+	winPtr = nextPtr;
+    }
+    return (Tk_Window) winPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateVRootGeometry --
+ *
+ *	This procedure is called to update all the virtual root
+ *	geometry information in wmPtr.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The vRootX, vRootY, vRootWidth, and vRootHeight fields in
+ *	wmPtr are filled with the most up-to-date information.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateVRootGeometry(wmPtr)
+    WmInfo *wmPtr;		/* Window manager information to be
+				 * updated.  The wmPtr->vRoot field must
+				 * be valid. */
+{
+    TkWindow *winPtr = wmPtr->winPtr;
+    int bd;
+    unsigned int dummy;
+    Window dummy2;
+    Status status;
+    Tk_ErrorHandler handler;
+
+    /*
+     * If this isn't a virtual-root window manager, just return information
+     * about the screen.
+     */
+
+    wmPtr->flags &= ~WM_VROOT_OFFSET_STALE;
+    if (wmPtr->vRoot == None) {
+	noVRoot:
+	wmPtr->vRootX = wmPtr->vRootY = 0;
+	wmPtr->vRootWidth = DisplayWidth(winPtr->display, winPtr->screenNum);
+	wmPtr->vRootHeight = DisplayHeight(winPtr->display, winPtr->screenNum);
+	return;
+    }
+
+    /*
+     * Refresh the virtual root information if it's out of date.
+     */
+
+    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+	    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+    status = XGetGeometry(winPtr->display, wmPtr->vRoot,
+	    &dummy2, &wmPtr->vRootX, &wmPtr->vRootY,
+	    (unsigned int *) &wmPtr->vRootWidth,
+	    (unsigned int *) &wmPtr->vRootHeight, (unsigned int *) &bd,
+	    &dummy);
+    if (wmTracing) {
+	printf("UpdateVRootGeometry: x = %d, y = %d, width = %d, ",
+		wmPtr->vRootX, wmPtr->vRootY, wmPtr->vRootWidth);
+	printf("height = %d, status = %d\n", wmPtr->vRootHeight, status);
+    }
+    Tk_DeleteErrorHandler(handler);
+    if (status == 0) {
+	/*
+	 * The virtual root is gone!  Pretend that it never existed.
+	 */
+
+	wmPtr->vRoot = None;
+	goto noVRoot;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetVRootGeometry --
+ *
+ *	This procedure returns information about the virtual root
+ *	window corresponding to a particular Tk window.
+ *
+ * Results:
+ *	The values at xPtr, yPtr, widthPtr, and heightPtr are set
+ *	with the offset and dimensions of the root window corresponding
+ *	to tkwin.  If tkwin is being managed by a virtual root window
+ *	manager these values correspond to the virtual root window being
+ *	used for tkwin;  otherwise the offsets will be 0 and the
+ *	dimensions will be those of the screen.
+ *
+ * Side effects:
+ *	Vroot window information is refreshed if it is out of date.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_GetVRootGeometry(tkwin, xPtr, yPtr, widthPtr, heightPtr)
+    Tk_Window tkwin;		/* Window whose virtual root is to be
+				 * queried. */
+    int *xPtr, *yPtr;		/* Store x and y offsets of virtual root
+				 * here. */
+    int *widthPtr, *heightPtr;	/* Store dimensions of virtual root here. */
+{
+    WmInfo *wmPtr;
+    TkWindow *winPtr = (TkWindow *) tkwin;
+
+    /*
+     * Find the top-level window for tkwin, and locate the window manager
+     * information for that window.
+     */
+
+    while (!(winPtr->flags & TK_TOP_LEVEL) && (winPtr->parentPtr != NULL)) {
+	winPtr = winPtr->parentPtr;
+    }
+    wmPtr = winPtr->wmInfoPtr;
+
+    /*
+     * Make sure that the geometry information is up-to-date, then copy
+     * it out to the caller.
+     */
+
+    if (wmPtr->flags & WM_VROOT_OFFSET_STALE) {
+	UpdateVRootGeometry(wmPtr);
+    }
+    *xPtr = wmPtr->vRootX;
+    *yPtr = wmPtr->vRootY;
+    *widthPtr = wmPtr->vRootWidth;
+    *heightPtr = wmPtr->vRootHeight;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_MoveToplevelWindow --
+ *
+ *	This procedure is called instead of Tk_MoveWindow to adjust
+ *	the x-y location of a top-level window.  It delays the actual
+ *	move to a later time and keeps window-manager information
+ *	up-to-date with the move
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is eventually moved so that its upper-left corner
+ *	(actually, the upper-left corner of the window's decorative
+ *	frame, if there is one) is at (x,y).
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_MoveToplevelWindow(tkwin, x, y)
+    Tk_Window tkwin;		/* Window to move. */
+    int x, y;			/* New location for window (within
+				 * parent). */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	panic("Tk_MoveToplevelWindow called with non-toplevel window");
+    }
+    wmPtr->x = x;
+    wmPtr->y = y;
+    wmPtr->flags |= WM_MOVE_PENDING;
+    wmPtr->flags &= ~(WM_NEGATIVE_X|WM_NEGATIVE_Y);
+    if ((wmPtr->sizeHintsFlags & (USPosition|PPosition)) == 0) {
+	wmPtr->sizeHintsFlags |= USPosition;
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+    }
+
+    /*
+     * If the window has already been mapped, must bring its geometry
+     * up-to-date immediately, otherwise an event might arrive from the
+     * server that would overwrite wmPtr->x and wmPtr->y and lose the
+     * new position.
+     */
+
+    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	if (wmPtr->flags & WM_UPDATE_PENDING) {
+	    Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+	}
+	UpdateGeometryInfo((ClientData) winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateWmProtocols --
+ *
+ *	This procedure transfers the most up-to-date information about
+ *	window manager protocols from the WmInfo structure to the actual
+ *	property on the top-level window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The WM_PROTOCOLS property gets changed for wmPtr's window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateWmProtocols(wmPtr)
+    register WmInfo *wmPtr;	/* Information about top-level window. */
+{
+    register ProtocolHandler *protPtr;
+    Atom deleteWindowAtom;
+    int count;
+    Atom *arrayPtr, *atomPtr;
+
+    /*
+     * There are only two tricky parts here.  First, there could be any
+     * number of atoms for the window, so count them and malloc an array
+     * to hold all of their atoms.  Second, we *always* want to respond
+     * to the WM_DELETE_WINDOW protocol, even if no-one's officially asked.
+     */
+
+    for (protPtr = wmPtr->protPtr, count = 1; protPtr != NULL;
+	    protPtr = protPtr->nextPtr, count++) {
+	/* Empty loop body;  we're just counting the handlers. */
+    }
+    arrayPtr = (Atom *) ckalloc((unsigned) (count * sizeof(Atom)));
+    deleteWindowAtom = Tk_InternAtom((Tk_Window) wmPtr->winPtr,
+	    "WM_DELETE_WINDOW");
+    arrayPtr[0] = deleteWindowAtom;
+    for (protPtr = wmPtr->protPtr, atomPtr = &arrayPtr[1];
+	    protPtr != NULL; protPtr = protPtr->nextPtr) {
+	if (protPtr->protocol != deleteWindowAtom) {
+	    *atomPtr = protPtr->protocol;
+	    atomPtr++;
+	}
+    }
+    XChangeProperty(wmPtr->winPtr->display, wmPtr->winPtr->window,
+	    Tk_InternAtom((Tk_Window) wmPtr->winPtr, "WM_PROTOCOLS"),
+	    XA_ATOM, 32, PropModeReplace, (unsigned char *) arrayPtr,
+	    atomPtr-arrayPtr);
+    ckfree((char *) arrayPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmProtocolEventProc --
+ *
+ *	This procedure is called by the Tk_HandleEvent whenever a
+ *	ClientMessage event arrives whose type is "WM_PROTOCOLS".
+ *	This procedure handles the message from the window manager
+ *	in an appropriate fashion.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what sort of handler, if any, was set up for the
+ *	protocol.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmProtocolEventProc(winPtr, eventPtr)
+    TkWindow *winPtr;		/* Window to which the event was sent. */
+    XEvent *eventPtr;		/* X event. */
+{
+    WmInfo *wmPtr;
+    register ProtocolHandler *protPtr;
+    Atom protocol;
+    int result;
+    char *protocolName;
+    Tcl_Interp *interp;
+
+    wmPtr = winPtr->wmInfoPtr;
+    if (wmPtr == NULL) {
+	return;
+    }
+    protocol = (Atom) eventPtr->xclient.data.l[0];
+
+    /*
+     * Note: it's very important to retrieve the protocol name now,
+     * before invoking the command, even though the name won't be used
+     * until after the command returns.  This is because the command
+     * could delete winPtr, making it impossible for us to use it
+     * later in the call to Tk_GetAtomName.
+     */
+
+    protocolName = Tk_GetAtomName((Tk_Window) winPtr, protocol);
+    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+	    protPtr = protPtr->nextPtr) {
+	if (protocol == protPtr->protocol) {
+	    Tcl_Preserve((ClientData) protPtr);
+            interp = protPtr->interp;
+            Tcl_Preserve((ClientData) interp);
+	    result = Tcl_GlobalEval(interp, protPtr->command);
+	    if (result != TCL_OK) {
+		Tcl_AddErrorInfo(interp, "\n    (command for \"");
+		Tcl_AddErrorInfo(interp, protocolName);
+		Tcl_AddErrorInfo(interp,
+			"\" window manager protocol)");
+		Tcl_BackgroundError(interp);
+	    }
+            Tcl_Release((ClientData) interp);
+	    Tcl_Release((ClientData) protPtr);
+	    return;
+	}
+    }
+
+    /*
+     * No handler was present for this protocol.  If this is a
+     * WM_DELETE_WINDOW message then just destroy the window.
+     */
+
+    if (protocol == Tk_InternAtom((Tk_Window) winPtr, "WM_DELETE_WINDOW")) {
+	Tk_DestroyWindow((Tk_Window) winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmRestackToplevel --
+ *
+ *	This procedure restacks a top-level window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr gets restacked  as specified by aboveBelow and otherPtr.
+ *	This procedure doesn't return until the restack has taken
+ *	effect and the ConfigureNotify event for it has been received.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmRestackToplevel(winPtr, aboveBelow, otherPtr)
+    TkWindow *winPtr;		/* Window to restack. */
+    int aboveBelow;		/* Gives relative position for restacking;
+				 * must be Above or Below. */
+    TkWindow *otherPtr;		/* Window relative to which to restack;
+				 * if NULL, then winPtr gets restacked
+				 * above or below *all* siblings. */
+{
+    XWindowChanges changes;
+    XWindowAttributes atts;
+    unsigned int mask;
+    Window window, dummy1, dummy2, vRoot;
+    Window *children;
+    unsigned int numChildren;
+    int i;
+    int desiredIndex = 0;	/* Initialized to stop gcc warnings. */
+    int ourIndex = 0;		/* Initialized to stop gcc warnings. */
+    unsigned long serial;
+    XEvent event;
+    int diff;
+    Tk_ErrorHandler handler;
+
+    changes.stack_mode = aboveBelow;
+    changes.sibling = None;
+    mask = CWStackMode;
+    if (winPtr->window == None) {
+	Tk_MakeWindowExist((Tk_Window) winPtr);
+    }
+    if (winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
+	/*
+	 * Can't set stacking order properly until the window is on the
+	 * screen (mapping it may give it a reparent window), so make sure
+	 * it's on the screen.
+	 */
+
+	TkWmMapWindow(winPtr);
+    }
+    window = (winPtr->wmInfoPtr->reparent != None)
+	    ? winPtr->wmInfoPtr->reparent : winPtr->window;
+    if (otherPtr != NULL) {
+	if (otherPtr->window == None) {
+	    Tk_MakeWindowExist((Tk_Window) otherPtr);
+	}
+	if (otherPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
+	    TkWmMapWindow(otherPtr);
+	}
+	changes.sibling = (otherPtr->wmInfoPtr->reparent != None)
+		? otherPtr->wmInfoPtr->reparent : otherPtr->window;
+	mask = CWStackMode|CWSibling;
+    }
+
+    /*
+     * Before actually reconfiguring the window, see if it's already
+     * in the right place.  If so then don't reconfigure it.  The
+     * reason for this extra work is that some window managers will
+     * ignore the reconfigure request if the window is already in
+     * the right place, causing a long delay in WaitForConfigureNotify
+     * while it times out.  Special note: if the window is almost in
+     * the right place, and the only windows between it and the right
+     * place aren't mapped, then we don't reconfigure it either, for
+     * the same reason.
+     */
+
+    vRoot = winPtr->wmInfoPtr->vRoot;
+    if (vRoot == None) {
+	vRoot = RootWindowOfScreen(Tk_Screen((Tk_Window) winPtr));
+    }
+    if (XQueryTree(winPtr->display, vRoot, &dummy1, &dummy2,
+	    &children, &numChildren) != 0) {
+	/*
+	 * Find where our window is in the stacking order, and
+	 * compute the desired location in the stacking order.
+	 */
+
+	for (i = 0; i < numChildren; i++) {
+	    if (children[i] == window) {
+		ourIndex = i;
+	    }
+	    if (children[i] == changes.sibling) {
+		desiredIndex = i;
+	    }
+	}
+	if (mask & CWSibling) {
+	    if (aboveBelow == Above) {
+		if (desiredIndex < ourIndex) {
+		    desiredIndex += 1;
+		}
+	    } else {
+		if (desiredIndex > ourIndex) {
+		    desiredIndex -= 1;
+		}
+	    }
+	} else {
+	    if (aboveBelow == Above) {
+		desiredIndex = numChildren-1;
+	    } else {
+		desiredIndex = 0;
+	    }
+	}
+
+	/*
+	 * See if there are any mapped windows between where we are
+	 * and where we want to be.
+	 */
+
+	handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+		(Tk_ErrorProc *) NULL, (ClientData) NULL);
+	while (desiredIndex != ourIndex) {
+	    if ((XGetWindowAttributes(winPtr->display, children[desiredIndex],
+		    &atts) != 0) && (atts.map_state != IsUnmapped)) {
+		break;
+	    }
+	    if (desiredIndex < ourIndex) {
+		desiredIndex++;
+	    } else {
+		desiredIndex--;
+	    }
+	}
+	Tk_DeleteErrorHandler(handler);
+	XFree((char *) children);
+	if (ourIndex == desiredIndex) {
+	    return;
+	}
+    }
+
+    /*
+     * Reconfigure the window.  This tricky because of two things:
+     * (a) Some window managers, like olvwm, insist that we raise
+     *     or lower the toplevel window itself, as opposed to its
+     *     decorative frame.  Attempts to raise or lower the frame
+     *     are ignored.
+     * (b) If the raise or lower is relative to a sibling, X will
+     *     generate an error unless we work with the frames (the
+     *     toplevels themselves aren't siblings).
+     * Fortunately, the procedure XReconfigureWMWindow is supposed
+     * to handle all of this stuff, so be careful to use it instead
+     * of XConfigureWindow.
+     */
+
+    serial = NextRequest(winPtr->display);
+    if (window != winPtr->window) {
+	XSelectInput(winPtr->display, window, StructureNotifyMask);
+    }
+    XReconfigureWMWindow(winPtr->display, winPtr->window,
+	    Tk_ScreenNumber((Tk_Window) winPtr), mask,  &changes);
+
+    /*
+     * Wait for the reconfiguration to complete.  If we don't wait, then
+     * the window may not restack for a while and the application might
+     * observe it before it has restacked.  Waiting for the reconfiguration
+     * is tricky if winPtr has been reparented, since the window getting
+     * the event isn't one that Tk owns.
+     */
+
+    if (window == winPtr->window) {
+	WaitForConfigureNotify(winPtr, serial);
+    } else {
+	while (1) {
+	    if (WaitForEvent(winPtr->display, window, ConfigureNotify,
+		    &event) != TCL_OK) {
+		break;
+	    }
+	    diff = event.xconfigure.serial - serial;
+	    if (diff >= 0) {
+		break;
+	    }
+	}
+	XSelectInput(winPtr->display, window, (long) 0);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmAddToColormapWindows --
+ *
+ *	This procedure is called to add a given window to the
+ *	WM_COLORMAP_WINDOWS property for its top-level, if it
+ *	isn't already there.  It is invoked by the Tk code that
+ *	creates a new colormap, in order to make sure that colormap
+ *	information is propagated to the window manager by default.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr's window gets added to the WM_COLORMAP_WINDOWS
+ *	property of its nearest top-level ancestor, unless the
+ *	colormaps have been set explicitly with the
+ *	"wm colormapwindows" command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmAddToColormapWindows(winPtr)
+    TkWindow *winPtr;		/* Window with a non-default colormap.
+				 * Should not be a top-level window. */
+{
+    TkWindow *topPtr;
+    Window *oldPtr, *newPtr;
+    int count, i;
+
+    if (winPtr->window == None) {
+	return;
+    }
+
+    for (topPtr = winPtr->parentPtr; ; topPtr = topPtr->parentPtr) {
+	if (topPtr == NULL) {
+	    /*
+	     * Window is being deleted.  Skip the whole operation.
+	     */
+
+	    return;
+	}
+	if (topPtr->flags & TK_TOP_LEVEL) {
+	    break;
+	}
+    }
+    if (topPtr->wmInfoPtr->flags & WM_COLORMAPS_EXPLICIT) {
+	return;
+    }
+
+    /*
+     * Fetch the old value of the property.
+     */
+
+    if (XGetWMColormapWindows(topPtr->display, topPtr->window,
+	    &oldPtr, &count) == 0) {
+	oldPtr = NULL;
+	count = 0;
+    }
+
+    /*
+     * Make sure that the window isn't already in the list.
+     */
+
+    for (i = 0; i < count; i++) {
+	if (oldPtr[i] == winPtr->window) {
+	    return;
+	}
+    }
+
+    /*
+     * Make a new bigger array and use it to reset the property.
+     * Automatically add the toplevel itself as the last element
+     * of the list.
+     */
+
+    newPtr = (Window *) ckalloc((unsigned) ((count+2)*sizeof(Window)));
+    for (i = 0; i < count; i++) {
+	newPtr[i] = oldPtr[i];
+    }
+    if (count == 0) {
+	count++;
+    }
+    newPtr[count-1] = winPtr->window;
+    newPtr[count] = topPtr->window;
+    XSetWMColormapWindows(topPtr->display, topPtr->window, newPtr, count+1);
+    ckfree((char *) newPtr);
+    if (oldPtr != NULL) {
+	XFree((char *) oldPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmRemoveFromColormapWindows --
+ *
+ *	This procedure is called to remove a given window from the
+ *	WM_COLORMAP_WINDOWS property for its top-level.  It is invoked
+ *	when windows are deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr's window gets removed from the WM_COLORMAP_WINDOWS
+ *	property of its nearest top-level ancestor, unless the
+ *	top-level itself is being deleted too.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmRemoveFromColormapWindows(winPtr)
+    TkWindow *winPtr;		/* Window that may be present in
+				 * WM_COLORMAP_WINDOWS property for its
+				 * top-level.  Should not be a top-level
+				 * window. */
+{
+    TkWindow *topPtr;
+    Window *oldPtr;
+    int count, i, j;
+
+    for (topPtr = winPtr->parentPtr; ; topPtr = topPtr->parentPtr) {
+	if (topPtr == NULL) {
+	    /*
+	     * Ancestors have been deleted, so skip the whole operation.
+	     * Seems like this can't ever happen?
+	     */
+
+	    return;
+	}
+	if (topPtr->flags & TK_TOP_LEVEL) {
+	    break;
+	}
+    }
+    if (topPtr->flags & TK_ALREADY_DEAD) {
+	/*
+	 * Top-level is being deleted, so there's no need to cleanup
+	 * the WM_COLORMAP_WINDOWS property.
+	 */
+
+	return;
+    }
+
+    /*
+     * Fetch the old value of the property.
+     */
+
+    if (XGetWMColormapWindows(topPtr->display, topPtr->window,
+	    &oldPtr, &count) == 0) {
+	return;
+    }
+
+    /*
+     * Find the window and slide the following ones down to cover
+     * it up.
+     */
+
+    for (i = 0; i < count; i++) {
+	if (oldPtr[i] == winPtr->window) {
+	    for (j = i ; j < count-1; j++) {
+		oldPtr[j] = oldPtr[j+1];
+	    }
+	    XSetWMColormapWindows(topPtr->display, topPtr->window,
+		    oldPtr, count-1);
+	    break;
+	}
+    }
+    XFree((char *) oldPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetPointerCoords --
+ *
+ *	Fetch the position of the mouse pointer.
+ *
+ * Results:
+ *	*xPtr and *yPtr are filled in with the (virtual) root coordinates
+ *	of the mouse pointer for tkwin's display.  If the pointer isn't
+ *	on tkwin's screen, then -1 values are returned for both
+ *	coordinates.  The argument tkwin must be a toplevel window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkGetPointerCoords(tkwin, xPtr, yPtr)
+    Tk_Window tkwin;		/* Toplevel window that identifies screen
+				 * on which lookup is to be done. */
+    int *xPtr, *yPtr;		/* Store pointer coordinates here. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    WmInfo *wmPtr;
+    Window w, root, child;
+    int rootX, rootY;
+    unsigned int mask;
+
+    wmPtr = winPtr->wmInfoPtr;
+
+    w = wmPtr->vRoot;
+    if (w == None) {
+	w = RootWindow(winPtr->display, winPtr->screenNum);
+    }
+    if (XQueryPointer(winPtr->display, w, &root, &child, &rootX, &rootY,
+	    xPtr, yPtr, &mask) != True) {
+	*xPtr = -1;
+	*yPtr = -1;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkMakeWindow --
+ *
+ *	Create an actual window system window object based on the
+ *	current attributes of the specified TkWindow.
+ *
+ * Results:
+ *	Returns the handle to the new window, or None on failure.
+ *
+ * Side effects:
+ *	Creates a new X window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Window
+TkMakeWindow(winPtr, parent)
+    TkWindow *winPtr;
+    Window parent;
+{
+    return XCreateWindow(winPtr->display, parent, winPtr->changes.x,
+	    winPtr->changes.y, (unsigned) winPtr->changes.width,
+	    (unsigned) winPtr->changes.height,
+	    (unsigned) winPtr->changes.border_width, winPtr->depth,
+	    InputOutput, winPtr->visual, winPtr->dirtyAtts,
+	    &winPtr->atts);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetMaxSize --
+ *
+ *	This procedure computes the current maxWidth and maxHeight
+ *	values for a window, taking into account the possibility
+ *	that they may be defaulted.
+ *
+ * Results:
+ *	The values at *maxWidthPtr and *maxHeightPtr are filled
+ *	in with the maximum allowable dimensions of wmPtr's window,
+ *	in grid units.  If no maximum has been specified for the
+ *	window, then this procedure computes the largest sizes that
+ *	will fit on the screen.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetMaxSize(wmPtr, maxWidthPtr, maxHeightPtr)
+    WmInfo *wmPtr;		/* Window manager information for the
+				 * window. */
+    int *maxWidthPtr;		/* Where to store the current maximum
+				 * width of the window. */
+    int *maxHeightPtr;		/* Where to store the current maximum
+				 * height of the window. */
+{
+    int tmp;
+
+    if (wmPtr->maxWidth > 0) {
+	*maxWidthPtr = wmPtr->maxWidth;
+    } else {
+	/*
+	 * Must compute a default width.  Fill up the display, leaving a
+	 * bit of extra space for the window manager's borders.
+	 */
+
+	tmp = DisplayWidth(wmPtr->winPtr->display, wmPtr->winPtr->screenNum)
+	    - 15;
+	if (wmPtr->gridWin != NULL) {
+	    /*
+	     * Gridding is turned on;  convert from pixels to grid units.
+	     */
+
+	    tmp = wmPtr->reqGridWidth
+		    + (tmp - wmPtr->winPtr->reqWidth)/wmPtr->widthInc;
+	}
+	*maxWidthPtr = tmp;
+    }
+    if (wmPtr->maxHeight > 0) {
+	*maxHeightPtr = wmPtr->maxHeight;
+    } else {
+	tmp = DisplayHeight(wmPtr->winPtr->display, wmPtr->winPtr->screenNum)
+	    - 30;
+	if (wmPtr->gridWin != NULL) {
+	    tmp = wmPtr->reqGridHeight
+		    + (tmp - wmPtr->winPtr->reqHeight)/wmPtr->heightInc;
+	}
+	*maxHeightPtr = tmp;
+    }
+}
diff --git a/Tk/unix/tkUnixXId.c b/Tk/unix/tkUnixXId.c
new file mode 100644
index 0000000..efc6ebc
--- /dev/null
+++ b/Tk/unix/tkUnixXId.c
@@ -0,0 +1,495 @@
+/* 
+ * tkUnixXId.c --
+ *
+ *	This file provides a replacement function for the default X
+ *	resource allocator (_XAllocID).  The problem with the default
+ *	allocator is that it never re-uses ids, which causes long-lived
+ *	applications to crash when X resource identifiers wrap around.
+ *	The replacement functions in this file re-use old identifiers
+ *	to prevent this problem.
+ *
+ *	The code in this file is based on similar implementations by
+ *	George C. Kaplan and Michael Hoegeman.
+ *
+ * Copyright (c) 1993 The Regents of the University of California.
+ * Copyright (c) 1994-1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkUnixXId.c 1.17 96/07/23 16:56:39
+ */
+
+/*
+ * The definition below is needed on some systems so that we can access
+ * the resource_alloc field of Display structures in order to replace
+ * the resource allocator.
+ */
+
+#define XLIB_ILLEGAL_ACCESS 1
+
+#include "tkInt.h"
+#include "tkPort.h"
+
+/*
+ * A structure of the following type is used to hold one or more
+ * available resource identifiers.  There is a list of these structures
+ * for each display.
+ */
+
+#define IDS_PER_STACK 10
+typedef struct TkIdStack {
+    XID ids[IDS_PER_STACK];		/* Array of free identifiers. */
+    int numUsed;			/* Indicates how many of the entries
+					 * in ids are currently in use. */
+    TkDisplay *dispPtr;			/* Display to which ids belong. */
+    struct TkIdStack *nextPtr;		/* Next bunch of free identifiers
+					 * for the same display. */
+} TkIdStack;
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static XID		AllocXId _ANSI_ARGS_((Display *display));
+static Tk_RestrictAction CheckRestrictProc _ANSI_ARGS_((
+			    ClientData clientData, XEvent *eventPtr));
+static void		WindowIdCleanup _ANSI_ARGS_((ClientData clientData));
+static void		WindowIdCleanup2 _ANSI_ARGS_((ClientData clientData));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkInitXId --
+ *
+ *	This procedure is called to initialize the id allocator for
+ *	a given display.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The official allocator for the display is set up to be Tk_AllocXID.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkInitXId(dispPtr)
+    TkDisplay *dispPtr;			/* Tk's information about the
+					 * display. */
+{
+    dispPtr->idStackPtr = NULL;
+    dispPtr->defaultAllocProc = dispPtr->display->resource_alloc;
+    dispPtr->display->resource_alloc = AllocXId;
+    dispPtr->windowStackPtr = NULL;
+    dispPtr->idCleanupScheduled = 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * AllocXId --
+ *
+ *	This procedure is invoked by Xlib as the resource allocator
+ *	for a display.
+ *
+ * Results:
+ *	The return value is an X resource identifier that isn't currently
+ *	in use.
+ *
+ * Side effects:
+ *	The identifier is removed from the stack of free identifiers,
+ *	if it was previously on the stack.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static XID
+AllocXId(display)
+    Display *display;			/* Display for which to allocate. */
+{
+    TkDisplay *dispPtr;
+    TkIdStack *stackPtr;
+
+    /*
+     * Find Tk's information about the display.
+     */
+
+    dispPtr = TkGetDisplay(display);
+    
+    /*
+     * If the topmost chunk on the stack is empty then free it.  Then
+     * check for a free id on the stack and return it if it exists.
+     */
+
+    stackPtr = dispPtr->idStackPtr;
+    if (stackPtr != NULL) {
+	while (stackPtr->numUsed == 0) {
+	    dispPtr->idStackPtr = stackPtr->nextPtr;
+	    ckfree((char *) stackPtr);
+	    stackPtr = dispPtr->idStackPtr;
+	    if (stackPtr == NULL) {
+		goto defAlloc;
+	    }
+	}
+	stackPtr->numUsed--;
+	return stackPtr->ids[stackPtr->numUsed];
+    }
+
+    /*
+     * No free ids in the stack:  just get one from the default
+     * allocator.
+     */
+
+    defAlloc:
+    return (*dispPtr->defaultAllocProc)(display);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeXId --
+ *
+ *	This procedure is called to indicate that an X resource identifier
+ *	is now free.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The identifier is added to the stack of free identifiers for its
+ *	display, so that it can be re-used.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeXId(display, xid)
+    Display *display;			/* Display for which xid was
+					 * allocated. */
+    XID xid;				/* Identifier that is no longer
+					 * in use. */
+{
+    TkDisplay *dispPtr;
+    TkIdStack *stackPtr;
+
+    /*
+     * Find Tk's information about the display.
+     */
+
+    dispPtr = TkGetDisplay(display);
+
+    /*
+     * Add a new chunk to the stack if the current chunk is full.
+     */
+    
+    stackPtr = dispPtr->idStackPtr;
+    if ((stackPtr == NULL) || (stackPtr->numUsed >= IDS_PER_STACK)) {
+	stackPtr = (TkIdStack *) ckalloc(sizeof(TkIdStack));
+	stackPtr->numUsed = 0;
+	stackPtr->dispPtr = dispPtr;
+	stackPtr->nextPtr = dispPtr->idStackPtr;
+	dispPtr->idStackPtr = stackPtr;
+    }
+
+    /*
+     * Add the id to the current chunk.
+     */
+
+    stackPtr->ids[stackPtr->numUsed] = xid;
+    stackPtr->numUsed++;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkFreeWindowId --
+ *
+ *	This procedure is invoked instead of TkFreeXId for window ids.
+ *	See below for the reason why.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The id given by w will eventually be freed, so that it can be
+ *	reused for other resources.
+ *
+ * Design:
+ *	Freeing window ids is very tricky because there could still be
+ *	events pending for a window in the event queue (or even in the
+ *	server) at the time the window is destroyed.  If the window
+ *	id were to get reused immediately for another window, old
+ *	events could "drop in" on the new window, causing unexpected
+ *	behavior.
+ *
+ *	Thus we have to wait to re-use a window id until we know that
+ *	there are no events left for it.  Right now this is done in
+ *	two steps.  First, we wait until we know that the server
+ *	has seen the XDestroyWindow request, so we can be sure that
+ *	it won't generate more events for the window and that any
+ *	existing events are in our queue.  Second, we make sure that
+ *	there are no events whatsoever in our queue (this is conservative
+ *	but safe).
+ *
+ * 	The first step is done by remembering the request id of the
+ *	XDestroyWindow request and using LastKnownRequestProcessed to
+ *	see what events the server has processed.  If multiple windows
+ *	get destroyed at about the same time, we just remember the
+ *	most recent request number for any of them (again, conservative
+ *	but safe).
+ *
+ *	There are a few other complications as well.  When Tk destroys a
+ *	sub-tree of windows, it only issues a single XDestroyWindow call,
+ *	at the very end for the root of the subtree.  We can't free any of
+ *	the window ids until the final XDestroyWindow call.  To make sure
+ *	that this happens, we have to keep track of deletions in progress,
+ *	hence the need for the "destroyCount" field of the display.
+ *
+ *	One final problem.  Some servers, like Sun X11/News servers still
+ *	seem to have problems with ids getting reused too quickly.  I'm
+ *	not completely sure why this is a problem, but delaying the
+ *	recycling of ids appears to eliminate it.  Therefore, we wait
+ *	an additional few seconds, even after "the coast is clear"
+ *	before reusing the ids.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkFreeWindowId(dispPtr, w)
+    TkDisplay *dispPtr;		/* Display that w belongs to. */
+    Window w;			/* X identifier for window on dispPtr. */
+{
+    TkIdStack *stackPtr;
+
+    /*
+     * Put the window id on a separate stack of window ids, rather
+     * than the main stack, so it won't get reused right away.  Add
+     * a new chunk to the stack if the current chunk is full.
+     */
+
+    stackPtr = dispPtr->windowStackPtr;
+    if ((stackPtr == NULL) || (stackPtr->numUsed >= IDS_PER_STACK)) {
+	stackPtr = (TkIdStack *) ckalloc(sizeof(TkIdStack));
+	stackPtr->numUsed = 0;
+	stackPtr->dispPtr = dispPtr;
+	stackPtr->nextPtr = dispPtr->windowStackPtr;
+	dispPtr->windowStackPtr = stackPtr;
+    }
+
+    /*
+     * Add the id to the current chunk.
+     */
+
+    stackPtr->ids[stackPtr->numUsed] = w;
+    stackPtr->numUsed++;
+
+    /*
+     * Schedule a call to WindowIdCleanup if one isn't already
+     * scheduled.
+     */
+
+    if (!dispPtr->idCleanupScheduled) {
+	dispPtr->idCleanupScheduled = 1;
+	Tcl_CreateTimerHandler(100, WindowIdCleanup, (ClientData *) dispPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WindowIdCleanup --
+ *
+ *	See if we can now free up all the accumulated ids of
+ *	deleted windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If it's safe to move the window ids back to the main free
+ *	list, we schedule this to happen after a few mores seconds
+ *	of delay.  If it's not safe to move them yet, a timer handler
+ *	gets invoked to try again later.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+WindowIdCleanup(clientData)
+    ClientData clientData;	/* Pointer to TkDisplay for display */
+{
+    TkDisplay *dispPtr = (TkDisplay *) clientData;
+    int anyEvents, delta;
+    Tk_RestrictProc *oldProc;
+    ClientData oldData;
+
+    dispPtr->idCleanupScheduled = 0;
+
+    /*
+     * See if it's safe to recycle the window ids.  It's safe if:
+     * (a) no deletions are in progress.
+     * (b) the server has seen all of the requests up to the last
+     *     XDestroyWindow request.
+     * (c) there are no events in the event queue; the only way to
+     *     test for this right now is to create a restrict proc that
+     *     will filter the events, then call Tcl_DoOneEvent to see if
+     *	   the procedure gets invoked.
+     */
+
+    if (dispPtr->destroyCount > 0) {
+	goto tryAgain;
+    }
+    delta = LastKnownRequestProcessed(dispPtr->display)
+	    - dispPtr->lastDestroyRequest;
+    if (delta < 0) {
+	XSync(dispPtr->display, False);
+    }
+    anyEvents = 0;
+    oldProc = Tk_RestrictEvents(CheckRestrictProc, (ClientData) &anyEvents,
+	    &oldData);
+    Tcl_DoOneEvent(TCL_DONT_WAIT|TCL_WINDOW_EVENTS);
+    Tk_RestrictEvents(oldProc, oldData, &oldData);
+    if (anyEvents) {
+	goto tryAgain;
+    }
+
+    /*
+     * These ids look safe to recycle, but we still need to delay a bit
+     * more (see comments for TkFreeWindowId).  Schedule the final freeing.
+     */
+
+    if (dispPtr->windowStackPtr != NULL) {
+	Tcl_CreateTimerHandler(5000, WindowIdCleanup2,
+		(ClientData) dispPtr->windowStackPtr);
+	dispPtr->windowStackPtr = NULL;
+    }
+    return;
+
+    /*
+     * It's still not safe to free up the ids.  Try again a bit later.
+     */
+
+    tryAgain:
+    dispPtr->idCleanupScheduled = 1;
+    Tcl_CreateTimerHandler(500, WindowIdCleanup, (ClientData *) dispPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WindowIdCleanup2 --
+ *
+ *	This procedure is the last one in the chain that recycles
+ *	window ids.  It takes all of the ids indicated by its
+ *	argument and adds them back to the main id free list.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Window ids get added to the main free list for their display.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+WindowIdCleanup2(clientData)
+    ClientData clientData;	/* Pointer to TkIdStack list. */
+{
+    TkIdStack *stackPtr = (TkIdStack *) clientData;
+    TkIdStack *lastPtr;
+
+    lastPtr = stackPtr;
+    while (lastPtr->nextPtr != NULL) {
+	lastPtr = lastPtr->nextPtr;
+    }
+    lastPtr->nextPtr = stackPtr->dispPtr->idStackPtr;
+    stackPtr->dispPtr->idStackPtr = stackPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * CheckRestrictProc --
+ *
+ *	This procedure is a restrict procedure, called by Tcl_DoOneEvent
+ *	to filter X events.  All it does is to set a flag to indicate
+ *	that there are X events present.
+ *
+ * Results:
+ *	Sets the integer pointed to by the argument, then returns
+ *	TK_DEFER_EVENT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static Tk_RestrictAction
+CheckRestrictProc(clientData, eventPtr)
+    ClientData clientData;	/* Pointer to flag to set. */
+    XEvent *eventPtr;		/* Event to filter;  not used. */
+{
+    int *flag = (int *) clientData;
+    *flag = 1;
+    return TK_DEFER_EVENT;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetPixmap --
+ *
+ *	Same as the XCreatePixmap procedure except that it manages
+ *	resource identifiers better.
+ *
+ * Results:
+ *	Returns a new pixmap.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Pixmap
+Tk_GetPixmap(display, d, width, height, depth)
+    Display *display;		/* Display for new pixmap. */
+    Drawable d;			/* Drawable where pixmap will be used. */
+    int width, height;		/* Dimensions of pixmap. */
+    int depth;			/* Bits per pixel for pixmap. */
+{
+    return XCreatePixmap(display, d, (unsigned) width, (unsigned) height,
+	    (unsigned) depth);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreePixmap --
+ *
+ *	Same as the XFreePixmap procedure except that it also marks
+ *	the resource identifier as free.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The pixmap is freed in the X server and its resource identifier
+ *	is saved for re-use.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreePixmap(display, pixmap)
+    Display *display;		/* Display for which pixmap was allocated. */
+    Pixmap pixmap;		/* Identifier for pixmap. */
+{
+    XFreePixmap(display, pixmap);
+    Tk_FreeXId(display, (XID) pixmap);
+}
diff --git a/Tk/win/README b/Tk/win/README
new file mode 100644
index 0000000..a4e71ef
--- /dev/null
+++ b/Tk/win/README
@@ -0,0 +1,101 @@
+Tk 4.1 for Windows
+
+by Scott Stanton
+Sun Microsystems Laboratories
+scott.stanton@eng.sun.com
+
+SCCS: @(#) README 1.12 96/07/31 14:35:24
+
+1. Introduction
+---------------
+
+This is the directory where you configure and compile the Windows
+version of Tk.  This directory also contains source files for Tk
+that are specific to Microsoft Windows.  The rest of this file
+contains information specific to the Windows version of Tk.
+
+2. Distribution notes
+---------------------
+
+Tk 4.1 for Windows is distributed in binary form in addition to the
+common source release.  The binary distribution is a self-extracting
+archive with a built-in installation script.
+
+Look for the binary release in the same location as the source release
+(ftp.smli.com:/pub/tcl or any of the mirror sites).  For most users,
+the binary release will be much easier to install and use.  You only
+need the source release if you plan to modify the core of Tcl, or if
+you need to compile with a different compiler.  With the addition of
+the dynamic loading interface, it is no longer necessary to have the
+source distribution in order to build and use extensions.
+
+3. Compiling Tk
+----------------
+
+In order to compile Tk for Windows, you need the following items:
+
+	Tcl 7.5 Source Distribution (plus any patches)
+	Tk 4.1 Source Distribution (plus any patches)
+
+	The latest Win32 SDK header files
+
+	Borland C++ 4.5/5.0 (32-bit compiler)
+	  or
+	Visual C++ 2.x/4.0
+	
+
+In the "win" subdirectory of the source release, you will find two
+files called "makefile.bc" and "makefile.vc".  These are the makefiles
+for the Borland and Visual C++ compilers respectively.  You should
+copy the appropriate one to "makefile" and update the paths at the top
+of the file to reflect your system configuration.  Now you can use
+"make" (or "nmake" for VC++) to build the tk libraries and the wish
+executable.
+
+In order to use the binaries generated by these makefiles, you will
+need to place the Tk script library files someplace where Tk can
+find them.  Tk looks in one of two places for the library files:
+
+	1) The environment variable "TK_LIBRARY".
+	2) Relative to the directory containing the Tk DLL.
+	    Tk will look for a directory "..\lib\tk4.1" relative to the
+	    directory containing the tk41.dll loaded by the currently running
+	    application.
+
+Note that in order to run wish41.exe, you must ensure that tcl75.dll
+(and tcl1675.dll under Win32s), tk41.dll are on your path, or in the
+directory containing wish41.exe.
+
+4. Test suite
+-------------
+
+The Windows version of Tk does not pass many of the tests in the test
+suite.  This is primarily due to dependencies in the test suite on the
+size of particular X fonts, and other X related features as well as
+problems with "exec".  We will be working to develop a more general
+test suite for Tk under Windows, but for now, you will not be able to
+pass many of the tests.
+
+5. Known Bugs
+-------------
+
+Here is the current list of known bugs/missing features for the
+Windows beta version of Tk:
+
+- There is no support for custom cursors/application icons.  The core
+  set of X cursors is supported, although you cannot change their color.
+- Stippling of arcs isn't implemented yet.
+- Some "wm" functions don't map to Windows and aren't implemented.
+- There is no support for the option database yet.
+- Under Win32s, you can only start one instance of Wish at a time.
+- Color management on some displays doesn't work properly resulting in
+  Tk switching to monochrome mode.
+- Send and winfo interps are not currently supported
+
+If you have comments or bug reports for the Windows version of Tk,
+please direct them to:
+
+Scott Stanton
+scott.stanton@eng.sun.com
+
+or post them to the newsgroup comp.lang.tcl.
diff --git a/Tk/win/license.terms b/Tk/win/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/win/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/win/makefile.bc b/Tk/win/makefile.bc
new file mode 100644
index 0000000..a710e25
--- /dev/null
+++ b/Tk/win/makefile.bc
@@ -0,0 +1,319 @@
+# Borland C++ 4.5 makefile for Tk
+#
+# Copyright (c) 1995-1996 by Sun Microsystems, Inc.
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# SCCS: @(#) makefile.bc 1.42 96/07/23 16:58:55
+
+
+#
+# Project directories
+#
+# ROOT = top of source tree
+# TMPDIR = location where .obj files should be stored during build
+# TCLDIR = location of top of Tcl source heirarchy
+#
+
+ROOT	= ..
+TMPDIR	= .
+TOOLS	= c:\bc45
+TCLDIR	= ..\..\tcl7.5
+
+# uncomment the following line to compile with symbols
+#DEBUG=1
+
+# uncomment the following two lines to compile with TCL_MEM_DEBUG
+#DEBUGDEFINES	=TCL_MEM_DEBUG
+
+#
+# Borland C++ tools
+#
+
+BORLAND = $(TOOLS)
+IMPLIB  = $(BORLAND)\bin\Implib
+BCC32   = $(BORLAND)\bin\Bcc32
+TLINK32 = $(BORLAND)\bin\tlink32
+RC	= $(BORLAND)\bin\brcc32
+CP      = copy
+RM      = del
+
+INCLUDES =	$(BORLAND)\include;$(ROOT)\generic;$(ROOT)\bitmaps;$(ROOT)\xlib;$(ROOT);$(TCLDIR)\generic
+LIBDIRS =	$(BORLAND)\lib;$(ROOT)\win
+TCLLIBDIR =	$(TCLDIR)\win
+
+
+!ifndef DEBUG
+
+# these macros cause maximum optimization and no symbols
+DEBUGLDFLAGS = 
+DEBUGCCFLAGS = -v- -vi- -O2
+
+!else
+
+# these macros enable debugging
+DEBUGLDFLAGS = -v
+DEBUGCCFLAGS = -k -Od -v
+
+!endif
+
+DEFINES = _RTLDLL;USE_TCLALLOC=0;$(DEBUGDEFINES)
+PROJECTCCFLAGS= $(DEBUGCCFLAGS) -w-par -w-stu
+
+LNFLAGS_exe = -Tpe -aa -c $(DEBUGLDFLAGS) $(BORLAND)\lib\c0w32
+LNFLAGS_dll = -Tpd -aa -c $(DEBUGLDFLAGS) $(BORLAND)\lib\c0d32
+
+LNLIBS_exe =	$(TKLIB) $(TCLLIBDIR)\$(TCLLIB) import32 cw32i
+LNLIBS_dll =	$(TCLLIBDIR)\$(TCLLIB) import32 cw32i
+
+# 
+# Global makefile settings
+#
+
+.AUTODEPEND
+.CACHEAUTODEPEND
+
+.suffixes: .c .dll .lib .obj .exe
+
+.path.c=$(ROOT)\win;$(ROOT)\generic;$(ROOT)\xlib
+.path.obj=$(TMPDIR)
+
+WISHOBJS = \
+	$(TMPDIR)\tkConsole.obj \
+	$(TMPDIR)\winMain.obj
+
+TKTESTOBJS = \
+	$(TMPDIR)\tkConsole.obj \
+	$(TMPDIR)\tkTest.obj \
+	$(TMPDIR)\tkSquare.obj \
+	$(TMPDIR)\testMain.obj
+
+XLIBOBJS = \
+	$(TMPDIR)\xdraw.obj \
+	$(TMPDIR)\xgc.obj \
+	$(TMPDIR)\ximage.obj \
+	$(TMPDIR)\xutil.obj
+
+TKOBJS = \
+	$(XLIBOBJS) \
+	$(TMPDIR)\tkWin32Dll.obj \
+	$(TMPDIR)\tkWinClipboard.obj \
+	$(TMPDIR)\tkWinColor.obj \
+	$(TMPDIR)\tkWinCursor.obj \
+	$(TMPDIR)\tkWinDraw.obj \
+	$(TMPDIR)\tkWinFont.obj \
+	$(TMPDIR)\tkWinImage.obj \
+	$(TMPDIR)\tkWinInit.obj \
+	$(TMPDIR)\tkWinKey.obj \
+	$(TMPDIR)\tkWinPixmap.obj \
+	$(TMPDIR)\tkWinPointer.obj \
+	$(TMPDIR)\tkWinRegion.obj \
+	$(TMPDIR)\tkWinWindow.obj \
+	$(TMPDIR)\tkWinWm.obj \
+	$(TMPDIR)\tkWinX.obj \
+	$(TMPDIR)\stubs.obj \
+	$(TMPDIR)\tk3d.obj \
+	$(TMPDIR)\tkArgv.obj \
+	$(TMPDIR)\tkAtom.obj \
+	$(TMPDIR)\tkBind.obj \
+	$(TMPDIR)\tkBitmap.obj \
+	$(TMPDIR)\tkButton.obj \
+	$(TMPDIR)\tkCanvArc.obj \
+	$(TMPDIR)\tkCanvBmap.obj \
+	$(TMPDIR)\tkCanvImg.obj \
+	$(TMPDIR)\tkCanvLine.obj \
+	$(TMPDIR)\tkCanvPoly.obj \
+	$(TMPDIR)\tkCanvPs.obj \
+	$(TMPDIR)\tkCanvText.obj \
+	$(TMPDIR)\tkCanvUtil.obj \
+	$(TMPDIR)\tkCanvWind.obj \
+	$(TMPDIR)\tkCanvas.obj \
+	$(TMPDIR)\tkClipboard.obj \
+	$(TMPDIR)\tkCmds.obj \
+	$(TMPDIR)\tkColor.obj \
+	$(TMPDIR)\tkConfig.obj \
+	$(TMPDIR)\tkCursor.obj \
+	$(TMPDIR)\tkEntry.obj \
+	$(TMPDIR)\tkError.obj \
+	$(TMPDIR)\tkEvent.obj \
+	$(TMPDIR)\tkFocus.obj \
+	$(TMPDIR)\tkFont.obj \
+	$(TMPDIR)\tkFrame.obj \
+	$(TMPDIR)\tkGC.obj \
+	$(TMPDIR)\tkGeometry.obj \
+	$(TMPDIR)\tkGet.obj \
+	$(TMPDIR)\tkGrab.obj \
+	$(TMPDIR)\tkGrid.obj \
+	$(TMPDIR)\tkImage.obj \
+	$(TMPDIR)\tkImgBmap.obj \
+	$(TMPDIR)\tkImgGIF.obj \
+	$(TMPDIR)\tkImgPPM.obj \
+	$(TMPDIR)\tkImgPhoto.obj \
+	$(TMPDIR)\tkImgUtil.obj \
+	$(TMPDIR)\tkListbox.obj \
+	$(TMPDIR)\tkMain.obj \
+	$(TMPDIR)\tkMenu.obj \
+	$(TMPDIR)\tkMenubutton.obj \
+	$(TMPDIR)\tkMessage.obj \
+	$(TMPDIR)\tkOption.obj \
+	$(TMPDIR)\tkPack.obj \
+	$(TMPDIR)\tkPlace.obj \
+	$(TMPDIR)\tkRectOval.obj \
+	$(TMPDIR)\tkScale.obj \
+	$(TMPDIR)\tkScrollbar.obj \
+	$(TMPDIR)\tkSelect.obj \
+	$(TMPDIR)\tkSend.obj \
+	$(TMPDIR)\tkText.obj \
+	$(TMPDIR)\tkTextBTree.obj \
+	$(TMPDIR)\tkTextDisp.obj \
+	$(TMPDIR)\tkTextIndex.obj \
+	$(TMPDIR)\tkTextMark.obj \
+	$(TMPDIR)\tkTextTag.obj \
+	$(TMPDIR)\tkTextWind.obj \
+	$(TMPDIR)\tkTrig.obj \
+	$(TMPDIR)\tkUtil.obj \
+	$(TMPDIR)\tkVisual.obj \
+	$(TMPDIR)\tkWindow.obj
+
+TCLLIB = tcl75.lib
+TKLIB = tk41.lib
+TCLDLL = tcl75.dll
+TKDLL = tk41.dll
+WISH = wish41.exe
+TKTEST = tktest.exe
+
+#
+# Targets
+#
+
+all: cfgdll $(TKDLL) cfgexe $(WISH) cfgcln
+test: cfgdll $(TKDLL) cfgtest $(TKTEST) cfgcln
+
+# Implicit Targets
+
+.c.obj:
+	@$(BCC32) {$< }
+
+.dll.lib:
+	$(IMPLIB) -c $@ $<
+
+.rc.res:
+	$(RC) -i$(INCLUDES) $<
+
+#
+# Special case object file targets
+#
+
+$(TMPDIR)\testMain.obj : $(ROOT)\win\winMain.c
+	$(BCC32) -c -o$@ $(ROOT)\win\winMain.c
+
+#
+# Configuration file targets - these files are implicitly used by the compiler
+#
+
+cfgdll:
+	@$(CP) &&|
+		-n$(TMPDIR) -I$(INCLUDES) -c -WD
+		-D$(DEFINES) -3 -d $(PROJECTCCFLAGS)
+| bcc32.cfg >NUL
+
+cfgexe:
+	@$(CP) &&|
+		-n$(TMPDIR) -I$(INCLUDES) -c -W
+		-D$(DEFINES) -3 -d $(PROJECTCCFLAGS)
+| bcc32.cfg >NUL
+
+cfgtest:
+	@$(CP) &&|
+		-n$(TMPDIR) -I$(INCLUDES) -c -W
+		-D$(DEFINES);TCL_TEST -3 -d $(PROJECTCCFLAGS)
+| bcc32.cfg >NUL
+
+cfgcln:
+	@$(RM) bcc32.cfg
+
+#
+# Executable targets
+#
+
+$(TKDLL): $(TKOBJS) tk.def rc\tk.res
+	$(TLINK32) @&&|
+$(LNFLAGS_dll) $(TKOBJS)
+$@
+-x
+$(LNLIBS_dll)
+tk.def
+rc\tk.res
+|
+
+$(WISH): $(WISHOBJS) $(TKLIB) rc\wish.res
+	$(TLINK32) @&&|
+$(LNFLAGS_exe) $(WISHOBJS)
+$@
+-x
+$(LNLIBS_exe)
+|, &&|
+EXETYPE WINDOWS
+CODE PRELOAD MOVEABLE DISCARDABLE
+DATA PRELOAD MOVEABLE MULTIPLE
+|, rc\wish.res
+
+$(TKTEST): $(TKTESTOBJS) $(TKLIB)
+	$(TLINK32) $(LNFLAGS_exe) @&&|
+$(TKTESTOBJS)
+$@
+-x
+$(LNLIBS_exe)
+|, &&|
+EXETYPE WINDOWS
+CODE PRELOAD MOVEABLE DISCARDABLE
+DATA PRELOAD MOVEABLE MULTIPLE
+|, 
+
+# 
+# Other dependencies
+#
+
+rc\wish.res: rc\wish.ico
+rc\tk.res: rc\tk.ico rc\*.cur
+
+# The following rule automatically generates a tk.def file containing
+# an export entry for every public symbol in the $(TKDLL) library.
+
+tk.def: $(TKOBJS)
+	$(TCLLIBDIR)\dumpexts.exe -o $@ $(TKDLL) @&&|
+		$(TKOBJS)
+|
+
+# rule to build library object files
+
+# debugging rules, the .dll and .exe files must be in the same
+# directory as the object files for debugging purposes
+
+$(TMPDIR)\$(TKDLL): $(TKDLL)
+	$(CP) $(TKDLL) $(TMPDIR)
+
+$(TMPDIR)\$(TCLDLL): $(TCLLIBDIR)\$(TCLDLL)
+	$(CP) $(TCLLIBDIR)\$(TCLDLL) $(TMPDIR)
+
+$(TMPDIR)\$(WISH): $(WISH)
+	$(CP) $(WISH) $(TMPDIR)
+
+$(TMPDIR)\$(TKTEST): $(TKTEST)
+	$(CP) $(TKTEST) $(TMPDIR)
+
+debug: $(TMPDIR)\$(TKDLL) $(TMPDIR)\$(TCLDLL) $(TMPDIR)\$(TKTEST)
+
+
+# remove all generated files
+
+clean:
+	$(RM) $(WISH)
+	$(RM) $(TKTEST)
+	$(RM) $(TKLIB) 
+	$(RM) $(TKDLL)  
+	$(RM) rc\*.res  
+	$(RM) tk.def
+	$(RM) $(TMPDIR)\*.obj
+	$(RM) *.cfg
diff --git a/Tk/win/makefile.vc b/Tk/win/makefile.vc
new file mode 100644
index 0000000..bc32c0b
--- /dev/null
+++ b/Tk/win/makefile.vc
@@ -0,0 +1,216 @@
+# Visual C++ 2.x and 4.0 makefile
+#
+# Copyright (c) 1995-1996 by Sun Microsystems, Inc.
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+# 
+# SCCS: @(#) makefile.vc 1.28 96/07/23 16:58:50
+
+# Project directories
+#
+# ROOT = top of source tree
+# TMPDIR = location where .obj files should be stored during build
+# TCLDIR = location of top of Tcl source heirarchy
+# TOOLS32 = location of VC++ 32-bit development tools
+#
+
+ROOT	= ..
+TMPDIR	= .
+TOOLS32	= c:\msdev
+TCLDIR	= ..\..\tcl7.5
+
+# Comment the following line to compile with symbols
+NODEBUG=1
+
+# uncomment the following two lines to compile with TCL_MEM_DEBUG
+#DEBUGDEFINES	=-DTCL_MEM_DEBUG
+
+# Make sure the VC++ tools are at the head of the path
+PATH=$(TOOLS32)\bin;$(PATH)
+
+TCLLIBDIR       = $(TCLDIR)\win
+WINDIR          = $(ROOT)\win
+GENERICDIR	= $(ROOT)\generic
+XLIBDIR		= $(ROOT)\xlib
+
+cc32 = $(TOOLS32)\bin\cl -I$(TOOLS32)\include
+rc32 = $(TOOLS32)\bin\rc
+link32 = $(TOOLS32)\bin\link
+
+TK_INCLUDES = \
+        -I$(TOOLS32)\include -I$(ROOT)\win -I$(ROOT)\generic \
+	-I$(ROOT)\bitmaps -I$(ROOT)\xlib -I$(ROOT) -I$(TCLDIR)\generic
+
+TK_DEFINES = \
+        -nologo $(DEBUGDEFINES) -DUSE_TCLALLOC=0
+
+WISHOBJS = \
+	$(TMPDIR)\tkConsole.obj \
+	$(TMPDIR)\winMain.obj
+
+TKTESTOBJS = \
+	$(TMPDIR)\tkConsole.obj \
+	$(TMPDIR)\tkTest.obj \
+	$(TMPDIR)\tkSquare.obj \
+	$(TMPDIR)\testMain.obj
+
+XLIBOBJS = \
+	$(TMPDIR)\xdraw.obj \
+	$(TMPDIR)\xgc.obj \
+	$(TMPDIR)\ximage.obj \
+	$(TMPDIR)\xutil.obj
+
+TKOBJS = \
+	$(XLIBOBJS) \
+	$(TMPDIR)\tkWin32Dll.obj \
+	$(TMPDIR)\tkWinClipboard.obj \
+	$(TMPDIR)\tkWinColor.obj \
+	$(TMPDIR)\tkWinCursor.obj \
+	$(TMPDIR)\tkWinDraw.obj \
+	$(TMPDIR)\tkWinFont.obj \
+	$(TMPDIR)\tkWinImage.obj \
+	$(TMPDIR)\tkWinInit.obj \
+	$(TMPDIR)\tkWinKey.obj \
+	$(TMPDIR)\tkWinPixmap.obj \
+	$(TMPDIR)\tkWinPointer.obj \
+	$(TMPDIR)\tkWinRegion.obj \
+	$(TMPDIR)\tkWinWindow.obj \
+	$(TMPDIR)\tkWinWm.obj \
+	$(TMPDIR)\tkWinX.obj \
+	$(TMPDIR)\stubs.obj \
+	$(TMPDIR)\tk3d.obj \
+	$(TMPDIR)\tkArgv.obj \
+	$(TMPDIR)\tkAtom.obj \
+	$(TMPDIR)\tkBind.obj \
+	$(TMPDIR)\tkBitmap.obj \
+	$(TMPDIR)\tkButton.obj \
+	$(TMPDIR)\tkCanvArc.obj \
+	$(TMPDIR)\tkCanvBmap.obj \
+	$(TMPDIR)\tkCanvImg.obj \
+	$(TMPDIR)\tkCanvLine.obj \
+	$(TMPDIR)\tkCanvPoly.obj \
+	$(TMPDIR)\tkCanvPs.obj \
+	$(TMPDIR)\tkCanvText.obj \
+	$(TMPDIR)\tkCanvUtil.obj \
+	$(TMPDIR)\tkCanvWind.obj \
+	$(TMPDIR)\tkCanvas.obj \
+	$(TMPDIR)\tkClipboard.obj \
+	$(TMPDIR)\tkCmds.obj \
+	$(TMPDIR)\tkColor.obj \
+	$(TMPDIR)\tkConfig.obj \
+	$(TMPDIR)\tkCursor.obj \
+	$(TMPDIR)\tkEntry.obj \
+	$(TMPDIR)\tkError.obj \
+	$(TMPDIR)\tkEvent.obj \
+	$(TMPDIR)\tkFocus.obj \
+	$(TMPDIR)\tkFont.obj \
+	$(TMPDIR)\tkFrame.obj \
+	$(TMPDIR)\tkGC.obj \
+	$(TMPDIR)\tkGeometry.obj \
+	$(TMPDIR)\tkGet.obj \
+	$(TMPDIR)\tkGrab.obj \
+	$(TMPDIR)\tkGrid.obj \
+	$(TMPDIR)\tkImage.obj \
+	$(TMPDIR)\tkImgBmap.obj \
+	$(TMPDIR)\tkImgGIF.obj \
+	$(TMPDIR)\tkImgPPM.obj \
+	$(TMPDIR)\tkImgPhoto.obj \
+	$(TMPDIR)\tkImgUtil.obj \
+	$(TMPDIR)\tkListbox.obj \
+	$(TMPDIR)\tkMain.obj \
+	$(TMPDIR)\tkMenu.obj \
+	$(TMPDIR)\tkMenubutton.obj \
+	$(TMPDIR)\tkMessage.obj \
+	$(TMPDIR)\tkOption.obj \
+	$(TMPDIR)\tkPack.obj \
+	$(TMPDIR)\tkPlace.obj \
+	$(TMPDIR)\tkRectOval.obj \
+	$(TMPDIR)\tkScale.obj \
+	$(TMPDIR)\tkScrollbar.obj \
+	$(TMPDIR)\tkSelect.obj \
+	$(TMPDIR)\tkSend.obj \
+	$(TMPDIR)\tkText.obj \
+	$(TMPDIR)\tkTextBTree.obj \
+	$(TMPDIR)\tkTextDisp.obj \
+	$(TMPDIR)\tkTextIndex.obj \
+	$(TMPDIR)\tkTextMark.obj \
+	$(TMPDIR)\tkTextTag.obj \
+	$(TMPDIR)\tkTextWind.obj \
+	$(TMPDIR)\tkTrig.obj \
+	$(TMPDIR)\tkUtil.obj \
+	$(TMPDIR)\tkVisual.obj \
+	$(TMPDIR)\tkWindow.obj
+
+TCLLIB = tcl75.lib
+TKLIB = tk41.lib
+TCLDLL = tcl75.dll
+TKDLL = tk41.dll
+WISH = wish41.exe
+TKTEST = tktest.exe
+
+CP      = copy
+
+!include    <ntwin32.mak>
+
+all:    $(TKDLL) $(WISH)
+test:	$(TKDLL) $(TKTEST)
+
+tkvc.def: $(TKOBJS)
+	$(TCLLIBDIR)\dumpexts.exe -o $@ $(TKDLL) @<<
+		$(TKOBJS)
+<<
+
+$(TKDLL): $(TKOBJS) $(TMPDIR)\tk.res tkvc.def
+        $(link32) $(linkdebug) $(dlllflags) -def:tkvc.def \
+ 		$(TMPDIR)\tk.res $(TCLLIBDIR)\$(TCLLIB) $(guilibsdll) \
+		-out:$(TKDLL) @<<
+		$(TKOBJS)
+<<
+
+
+$(WISH): $(WISHOBJS) $(TKLIB) $(TMPDIR)\wish.res
+	$(link32) $(linkdebug) $(guilflags) \
+		$(WISHOBJS) $(TMPDIR)\wish.res $(TKLIB) \
+		$(TCLLIBDIR)\$(TCLLIB) $(guilibsdll) \
+		-out:$(WISH) 
+
+$(TKTEST): $(TKTESTOBJS) $(TKLIB) $(TMPDIR)\wish.res
+	$(link32) $(linkdebug) $(guilflags) \
+		$(TKTESTOBJS) $(TMPDIR)\wish.res $(TKLIB) \
+		$(TCLLIBDIR)\$(TCLLIB) $(guilibsdll) \
+		-out:$(TKTEST) 
+
+#
+# Special case object file targets
+#
+
+$(TMPDIR)\testMain.obj: $(ROOT)\win\winMain.c
+	$(cc32) $(cdebug) $(cflags) $(cvarsdll) $(TK_INCLUDES) \
+        	$(TK_DEFINES) -DTK_TEST -Fo$@ $?
+
+#
+# Implicit rules
+#
+
+{$(ROOT)\xlib}.c{$(TMPDIR)}.obj:
+	$(cc32) $(cdebug) $(cflags) $(cvarsdll) $(TK_INCLUDES) \
+		$(TK_DEFINES) -Fo$(TMPDIR)\ $<
+
+{$(ROOT)\generic}.c{$(TMPDIR)}.obj:
+	$(cc32) $(cdebug) $(cflags) $(cvarsdll) $(TK_INCLUDES) \
+		$(TK_DEFINES) -Fo$(TMPDIR)\ $<
+
+{$(ROOT)\win}.c{$(TMPDIR)}.obj:
+	$(cc32) $(cdebug) $(cflags) $(cvarsdll) $(TK_INCLUDES) \
+		$(TK_DEFINES) -Fo$(TMPDIR)\ $<
+
+{$(ROOT)\win\rc}.rc{$(TMPDIR)}.res:
+	$(rc32) -fo $@ -r -i $(ROOT)\generic $<
+
+clean:
+	-@del *.exp
+	-@del *.lib
+	-@del *.dll
+	-@del *.exe
+        -@del $(TMPDIR)\*.obj 
diff --git a/Tk/win/rc/cursor00.cur b/Tk/win/rc/cursor00.cur
new file mode 100644
index 0000000..337e6d4
Binary files /dev/null and b/Tk/win/rc/cursor00.cur differ
diff --git a/Tk/win/rc/cursor02.cur b/Tk/win/rc/cursor02.cur
new file mode 100644
index 0000000..fbc4774
Binary files /dev/null and b/Tk/win/rc/cursor02.cur differ
diff --git a/Tk/win/rc/cursor04.cur b/Tk/win/rc/cursor04.cur
new file mode 100644
index 0000000..9634c42
Binary files /dev/null and b/Tk/win/rc/cursor04.cur differ
diff --git a/Tk/win/rc/cursor06.cur b/Tk/win/rc/cursor06.cur
new file mode 100644
index 0000000..f7188b2
Binary files /dev/null and b/Tk/win/rc/cursor06.cur differ
diff --git a/Tk/win/rc/cursor08.cur b/Tk/win/rc/cursor08.cur
new file mode 100644
index 0000000..d9f15f7
Binary files /dev/null and b/Tk/win/rc/cursor08.cur differ
diff --git a/Tk/win/rc/cursor0a.cur b/Tk/win/rc/cursor0a.cur
new file mode 100644
index 0000000..3f8ef45
Binary files /dev/null and b/Tk/win/rc/cursor0a.cur differ
diff --git a/Tk/win/rc/cursor0c.cur b/Tk/win/rc/cursor0c.cur
new file mode 100644
index 0000000..1014edd
Binary files /dev/null and b/Tk/win/rc/cursor0c.cur differ
diff --git a/Tk/win/rc/cursor0e.cur b/Tk/win/rc/cursor0e.cur
new file mode 100644
index 0000000..964058d
Binary files /dev/null and b/Tk/win/rc/cursor0e.cur differ
diff --git a/Tk/win/rc/cursor10.cur b/Tk/win/rc/cursor10.cur
new file mode 100644
index 0000000..c4f7809
Binary files /dev/null and b/Tk/win/rc/cursor10.cur differ
diff --git a/Tk/win/rc/cursor12.cur b/Tk/win/rc/cursor12.cur
new file mode 100644
index 0000000..920c936
Binary files /dev/null and b/Tk/win/rc/cursor12.cur differ
diff --git a/Tk/win/rc/cursor14.cur b/Tk/win/rc/cursor14.cur
new file mode 100644
index 0000000..c7de122
Binary files /dev/null and b/Tk/win/rc/cursor14.cur differ
diff --git a/Tk/win/rc/cursor16.cur b/Tk/win/rc/cursor16.cur
new file mode 100644
index 0000000..cfc08f2
Binary files /dev/null and b/Tk/win/rc/cursor16.cur differ
diff --git a/Tk/win/rc/cursor18.cur b/Tk/win/rc/cursor18.cur
new file mode 100644
index 0000000..95ed2ee
Binary files /dev/null and b/Tk/win/rc/cursor18.cur differ
diff --git a/Tk/win/rc/cursor1a.cur b/Tk/win/rc/cursor1a.cur
new file mode 100644
index 0000000..ea51361
Binary files /dev/null and b/Tk/win/rc/cursor1a.cur differ
diff --git a/Tk/win/rc/cursor1c.cur b/Tk/win/rc/cursor1c.cur
new file mode 100644
index 0000000..6f10bfb
Binary files /dev/null and b/Tk/win/rc/cursor1c.cur differ
diff --git a/Tk/win/rc/cursor1e.cur b/Tk/win/rc/cursor1e.cur
new file mode 100644
index 0000000..49fa7f7
Binary files /dev/null and b/Tk/win/rc/cursor1e.cur differ
diff --git a/Tk/win/rc/cursor20.cur b/Tk/win/rc/cursor20.cur
new file mode 100644
index 0000000..cf177a1
Binary files /dev/null and b/Tk/win/rc/cursor20.cur differ
diff --git a/Tk/win/rc/cursor22.cur b/Tk/win/rc/cursor22.cur
new file mode 100644
index 0000000..2f8e912
Binary files /dev/null and b/Tk/win/rc/cursor22.cur differ
diff --git a/Tk/win/rc/cursor24.cur b/Tk/win/rc/cursor24.cur
new file mode 100644
index 0000000..87ba5b4
Binary files /dev/null and b/Tk/win/rc/cursor24.cur differ
diff --git a/Tk/win/rc/cursor26.cur b/Tk/win/rc/cursor26.cur
new file mode 100644
index 0000000..0b2dbd2
Binary files /dev/null and b/Tk/win/rc/cursor26.cur differ
diff --git a/Tk/win/rc/cursor28.cur b/Tk/win/rc/cursor28.cur
new file mode 100644
index 0000000..30550f9
Binary files /dev/null and b/Tk/win/rc/cursor28.cur differ
diff --git a/Tk/win/rc/cursor2a.cur b/Tk/win/rc/cursor2a.cur
new file mode 100644
index 0000000..8dca432
Binary files /dev/null and b/Tk/win/rc/cursor2a.cur differ
diff --git a/Tk/win/rc/cursor2c.cur b/Tk/win/rc/cursor2c.cur
new file mode 100644
index 0000000..7be3494
Binary files /dev/null and b/Tk/win/rc/cursor2c.cur differ
diff --git a/Tk/win/rc/cursor2e.cur b/Tk/win/rc/cursor2e.cur
new file mode 100644
index 0000000..7a0bc69
Binary files /dev/null and b/Tk/win/rc/cursor2e.cur differ
diff --git a/Tk/win/rc/cursor30.cur b/Tk/win/rc/cursor30.cur
new file mode 100644
index 0000000..70ef4fd
Binary files /dev/null and b/Tk/win/rc/cursor30.cur differ
diff --git a/Tk/win/rc/cursor32.cur b/Tk/win/rc/cursor32.cur
new file mode 100644
index 0000000..93b5c47
Binary files /dev/null and b/Tk/win/rc/cursor32.cur differ
diff --git a/Tk/win/rc/cursor34.cur b/Tk/win/rc/cursor34.cur
new file mode 100644
index 0000000..0fad3f1
Binary files /dev/null and b/Tk/win/rc/cursor34.cur differ
diff --git a/Tk/win/rc/cursor36.cur b/Tk/win/rc/cursor36.cur
new file mode 100644
index 0000000..fc8d4f6
Binary files /dev/null and b/Tk/win/rc/cursor36.cur differ
diff --git a/Tk/win/rc/cursor38.cur b/Tk/win/rc/cursor38.cur
new file mode 100644
index 0000000..4447d7d
Binary files /dev/null and b/Tk/win/rc/cursor38.cur differ
diff --git a/Tk/win/rc/cursor3a.cur b/Tk/win/rc/cursor3a.cur
new file mode 100644
index 0000000..8176d1d
Binary files /dev/null and b/Tk/win/rc/cursor3a.cur differ
diff --git a/Tk/win/rc/cursor3c.cur b/Tk/win/rc/cursor3c.cur
new file mode 100644
index 0000000..5d13eab
Binary files /dev/null and b/Tk/win/rc/cursor3c.cur differ
diff --git a/Tk/win/rc/cursor3e.cur b/Tk/win/rc/cursor3e.cur
new file mode 100644
index 0000000..fa6fe5b
Binary files /dev/null and b/Tk/win/rc/cursor3e.cur differ
diff --git a/Tk/win/rc/cursor40.cur b/Tk/win/rc/cursor40.cur
new file mode 100644
index 0000000..f07bf4f
Binary files /dev/null and b/Tk/win/rc/cursor40.cur differ
diff --git a/Tk/win/rc/cursor42.cur b/Tk/win/rc/cursor42.cur
new file mode 100644
index 0000000..387d5f0
Binary files /dev/null and b/Tk/win/rc/cursor42.cur differ
diff --git a/Tk/win/rc/cursor44.cur b/Tk/win/rc/cursor44.cur
new file mode 100644
index 0000000..190320c
Binary files /dev/null and b/Tk/win/rc/cursor44.cur differ
diff --git a/Tk/win/rc/cursor46.cur b/Tk/win/rc/cursor46.cur
new file mode 100644
index 0000000..3e97094
Binary files /dev/null and b/Tk/win/rc/cursor46.cur differ
diff --git a/Tk/win/rc/cursor48.cur b/Tk/win/rc/cursor48.cur
new file mode 100644
index 0000000..2a56897
Binary files /dev/null and b/Tk/win/rc/cursor48.cur differ
diff --git a/Tk/win/rc/cursor4a.cur b/Tk/win/rc/cursor4a.cur
new file mode 100644
index 0000000..30febfa
Binary files /dev/null and b/Tk/win/rc/cursor4a.cur differ
diff --git a/Tk/win/rc/cursor4c.cur b/Tk/win/rc/cursor4c.cur
new file mode 100644
index 0000000..0407d77
Binary files /dev/null and b/Tk/win/rc/cursor4c.cur differ
diff --git a/Tk/win/rc/cursor4e.cur b/Tk/win/rc/cursor4e.cur
new file mode 100644
index 0000000..a58e3db
Binary files /dev/null and b/Tk/win/rc/cursor4e.cur differ
diff --git a/Tk/win/rc/cursor50.cur b/Tk/win/rc/cursor50.cur
new file mode 100644
index 0000000..7352420
Binary files /dev/null and b/Tk/win/rc/cursor50.cur differ
diff --git a/Tk/win/rc/cursor52.cur b/Tk/win/rc/cursor52.cur
new file mode 100644
index 0000000..435f99f
Binary files /dev/null and b/Tk/win/rc/cursor52.cur differ
diff --git a/Tk/win/rc/cursor54.cur b/Tk/win/rc/cursor54.cur
new file mode 100644
index 0000000..54eb4f2
Binary files /dev/null and b/Tk/win/rc/cursor54.cur differ
diff --git a/Tk/win/rc/cursor56.cur b/Tk/win/rc/cursor56.cur
new file mode 100644
index 0000000..c808bd4
Binary files /dev/null and b/Tk/win/rc/cursor56.cur differ
diff --git a/Tk/win/rc/cursor58.cur b/Tk/win/rc/cursor58.cur
new file mode 100644
index 0000000..98b6a2f
Binary files /dev/null and b/Tk/win/rc/cursor58.cur differ
diff --git a/Tk/win/rc/cursor5a.cur b/Tk/win/rc/cursor5a.cur
new file mode 100644
index 0000000..b00070e
Binary files /dev/null and b/Tk/win/rc/cursor5a.cur differ
diff --git a/Tk/win/rc/cursor5c.cur b/Tk/win/rc/cursor5c.cur
new file mode 100644
index 0000000..a407b55
Binary files /dev/null and b/Tk/win/rc/cursor5c.cur differ
diff --git a/Tk/win/rc/cursor5e.cur b/Tk/win/rc/cursor5e.cur
new file mode 100644
index 0000000..ab3449f
Binary files /dev/null and b/Tk/win/rc/cursor5e.cur differ
diff --git a/Tk/win/rc/cursor60.cur b/Tk/win/rc/cursor60.cur
new file mode 100644
index 0000000..847969d
Binary files /dev/null and b/Tk/win/rc/cursor60.cur differ
diff --git a/Tk/win/rc/cursor62.cur b/Tk/win/rc/cursor62.cur
new file mode 100644
index 0000000..36404a5
Binary files /dev/null and b/Tk/win/rc/cursor62.cur differ
diff --git a/Tk/win/rc/cursor64.cur b/Tk/win/rc/cursor64.cur
new file mode 100644
index 0000000..a6bdd0e
Binary files /dev/null and b/Tk/win/rc/cursor64.cur differ
diff --git a/Tk/win/rc/cursor66.cur b/Tk/win/rc/cursor66.cur
new file mode 100644
index 0000000..81d53b4
Binary files /dev/null and b/Tk/win/rc/cursor66.cur differ
diff --git a/Tk/win/rc/cursor68.cur b/Tk/win/rc/cursor68.cur
new file mode 100644
index 0000000..27cfaf0
Binary files /dev/null and b/Tk/win/rc/cursor68.cur differ
diff --git a/Tk/win/rc/cursor6a.cur b/Tk/win/rc/cursor6a.cur
new file mode 100644
index 0000000..20f138e
Binary files /dev/null and b/Tk/win/rc/cursor6a.cur differ
diff --git a/Tk/win/rc/cursor6c.cur b/Tk/win/rc/cursor6c.cur
new file mode 100644
index 0000000..1e8d6d8
Binary files /dev/null and b/Tk/win/rc/cursor6c.cur differ
diff --git a/Tk/win/rc/cursor6e.cur b/Tk/win/rc/cursor6e.cur
new file mode 100644
index 0000000..3a9b6b0
Binary files /dev/null and b/Tk/win/rc/cursor6e.cur differ
diff --git a/Tk/win/rc/cursor70.cur b/Tk/win/rc/cursor70.cur
new file mode 100644
index 0000000..e2d7673
Binary files /dev/null and b/Tk/win/rc/cursor70.cur differ
diff --git a/Tk/win/rc/cursor72.cur b/Tk/win/rc/cursor72.cur
new file mode 100644
index 0000000..4994c6e
Binary files /dev/null and b/Tk/win/rc/cursor72.cur differ
diff --git a/Tk/win/rc/cursor74.cur b/Tk/win/rc/cursor74.cur
new file mode 100644
index 0000000..d5e4361
Binary files /dev/null and b/Tk/win/rc/cursor74.cur differ
diff --git a/Tk/win/rc/cursor76.cur b/Tk/win/rc/cursor76.cur
new file mode 100644
index 0000000..34f402a
Binary files /dev/null and b/Tk/win/rc/cursor76.cur differ
diff --git a/Tk/win/rc/cursor78.cur b/Tk/win/rc/cursor78.cur
new file mode 100644
index 0000000..70e25dd
Binary files /dev/null and b/Tk/win/rc/cursor78.cur differ
diff --git a/Tk/win/rc/cursor7a.cur b/Tk/win/rc/cursor7a.cur
new file mode 100644
index 0000000..5ea95c4
Binary files /dev/null and b/Tk/win/rc/cursor7a.cur differ
diff --git a/Tk/win/rc/cursor7c.cur b/Tk/win/rc/cursor7c.cur
new file mode 100644
index 0000000..38036ab
Binary files /dev/null and b/Tk/win/rc/cursor7c.cur differ
diff --git a/Tk/win/rc/cursor7e.cur b/Tk/win/rc/cursor7e.cur
new file mode 100644
index 0000000..4b24e50
Binary files /dev/null and b/Tk/win/rc/cursor7e.cur differ
diff --git a/Tk/win/rc/cursor80.cur b/Tk/win/rc/cursor80.cur
new file mode 100644
index 0000000..a3955a5
Binary files /dev/null and b/Tk/win/rc/cursor80.cur differ
diff --git a/Tk/win/rc/cursor82.cur b/Tk/win/rc/cursor82.cur
new file mode 100644
index 0000000..984cfba
Binary files /dev/null and b/Tk/win/rc/cursor82.cur differ
diff --git a/Tk/win/rc/cursor84.cur b/Tk/win/rc/cursor84.cur
new file mode 100644
index 0000000..cd6807e
Binary files /dev/null and b/Tk/win/rc/cursor84.cur differ
diff --git a/Tk/win/rc/cursor86.cur b/Tk/win/rc/cursor86.cur
new file mode 100644
index 0000000..2d38c03
Binary files /dev/null and b/Tk/win/rc/cursor86.cur differ
diff --git a/Tk/win/rc/cursor88.cur b/Tk/win/rc/cursor88.cur
new file mode 100644
index 0000000..62b8061
Binary files /dev/null and b/Tk/win/rc/cursor88.cur differ
diff --git a/Tk/win/rc/cursor8a.cur b/Tk/win/rc/cursor8a.cur
new file mode 100644
index 0000000..6c5358d
Binary files /dev/null and b/Tk/win/rc/cursor8a.cur differ
diff --git a/Tk/win/rc/cursor8c.cur b/Tk/win/rc/cursor8c.cur
new file mode 100644
index 0000000..103010b
Binary files /dev/null and b/Tk/win/rc/cursor8c.cur differ
diff --git a/Tk/win/rc/cursor8e.cur b/Tk/win/rc/cursor8e.cur
new file mode 100644
index 0000000..a500a38
Binary files /dev/null and b/Tk/win/rc/cursor8e.cur differ
diff --git a/Tk/win/rc/cursor90.cur b/Tk/win/rc/cursor90.cur
new file mode 100644
index 0000000..08731f8
Binary files /dev/null and b/Tk/win/rc/cursor90.cur differ
diff --git a/Tk/win/rc/cursor92.cur b/Tk/win/rc/cursor92.cur
new file mode 100644
index 0000000..4364b5d
Binary files /dev/null and b/Tk/win/rc/cursor92.cur differ
diff --git a/Tk/win/rc/cursor94.cur b/Tk/win/rc/cursor94.cur
new file mode 100644
index 0000000..7777d53
Binary files /dev/null and b/Tk/win/rc/cursor94.cur differ
diff --git a/Tk/win/rc/cursor96.cur b/Tk/win/rc/cursor96.cur
new file mode 100644
index 0000000..cecaea3
Binary files /dev/null and b/Tk/win/rc/cursor96.cur differ
diff --git a/Tk/win/rc/cursor98.cur b/Tk/win/rc/cursor98.cur
new file mode 100644
index 0000000..5cab68e
Binary files /dev/null and b/Tk/win/rc/cursor98.cur differ
diff --git a/Tk/win/rc/tk.ico b/Tk/win/rc/tk.ico
new file mode 100644
index 0000000..a2755ac
Binary files /dev/null and b/Tk/win/rc/tk.ico differ
diff --git a/Tk/win/rc/tk.rc b/Tk/win/rc/tk.rc
new file mode 100644
index 0000000..a80d24a
--- /dev/null
+++ b/Tk/win/rc/tk.rc
@@ -0,0 +1,122 @@
+// SCCS: @(#) tk.rc 1.13 96/08/01 15:22:29
+//
+// Version
+//
+
+#include <patchlevel.h>
+
+VS_VERSION_INFO VERSIONINFO
+ FILEVERSION	4,1,1,1
+ PRODUCTVERSION	4,1,1,1
+ FILEFLAGSMASK	0x3fL
+ FILEFLAGS	0x0L
+ FILEOS		0x4L
+ FILETYPE	0x2L
+ FILESUBTYPE	0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+        BLOCK "040904b0"
+        BEGIN
+            VALUE "FileDescription", "Tk DLL\0"
+            VALUE "OriginalFilename", "tk41.dll\0"
+            VALUE "CompanyName", "Sun Microsystems, Inc.\0"
+            VALUE "FileVersion", TK_PATCH_LEVEL
+            VALUE "LegalCopyright", "Copyright \251 1995-1996\0"
+            VALUE "ProductName", "Tk 4.1 for Windows\0"
+            VALUE "ProductVersion", TK_PATCH_LEVEL
+        END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+        VALUE "Translation", 0x409, 1200
+    END
+END
+
+//
+// Icon
+//
+
+tk                      ICON    DISCARDABLE     "tk.ico"
+
+//
+// Cursor
+//
+
+X_cursor                CURSOR  DISCARDABLE     "cursor00.cur"
+arrow                   CURSOR  DISCARDABLE     "cursor02.cur"
+based_arrow_down        CURSOR  DISCARDABLE     "cursor04.cur"
+based_arrow_up          CURSOR  DISCARDABLE     "cursor06.cur"
+boat                    CURSOR  DISCARDABLE     "cursor08.cur"
+bogosity                CURSOR  DISCARDABLE     "cursor0a.cur"
+bottom_left_corner      CURSOR  DISCARDABLE     "cursor0c.cur"
+bottom_right_corner     CURSOR  DISCARDABLE     "cursor0e.cur"
+bottom_side             CURSOR  DISCARDABLE     "cursor10.cur"
+bottom_tee              CURSOR  DISCARDABLE     "cursor12.cur"
+box_spiral              CURSOR  DISCARDABLE     "cursor14.cur"
+center_ptr              CURSOR  DISCARDABLE     "cursor16.cur"
+circle                  CURSOR  DISCARDABLE     "cursor18.cur"
+clock                   CURSOR  DISCARDABLE     "cursor1a.cur"
+coffee_mug              CURSOR  DISCARDABLE     "cursor1c.cur"
+cross                   CURSOR  DISCARDABLE     "cursor1e.cur"
+cross_reverse           CURSOR  DISCARDABLE     "cursor20.cur"
+crosshair               CURSOR  DISCARDABLE     "cursor22.cur"
+diamond_cross           CURSOR  DISCARDABLE     "cursor24.cur"
+dot                     CURSOR  DISCARDABLE     "cursor26.cur"
+dotbox                  CURSOR  DISCARDABLE     "cursor28.cur"
+double_arrow            CURSOR  DISCARDABLE     "cursor2a.cur"
+draft_large             CURSOR  DISCARDABLE     "cursor2c.cur"
+draft_small             CURSOR  DISCARDABLE     "cursor2e.cur"
+draped_box              CURSOR  DISCARDABLE     "cursor30.cur"
+exchange                CURSOR  DISCARDABLE     "cursor32.cur"
+fleur                   CURSOR  DISCARDABLE     "cursor34.cur"
+gobbler                 CURSOR  DISCARDABLE     "cursor36.cur"
+gumby                   CURSOR  DISCARDABLE     "cursor38.cur"
+hand1                   CURSOR  DISCARDABLE     "cursor3a.cur"
+hand2                   CURSOR  DISCARDABLE     "cursor3c.cur"
+heart                   CURSOR  DISCARDABLE     "cursor3e.cur"
+icon                    CURSOR  DISCARDABLE     "cursor40.cur"
+iron_cross              CURSOR  DISCARDABLE     "cursor42.cur"
+left_ptr                CURSOR  DISCARDABLE     "cursor44.cur"
+left_side               CURSOR  DISCARDABLE     "cursor46.cur"
+left_tee                CURSOR  DISCARDABLE     "cursor48.cur"
+leftbutton              CURSOR  DISCARDABLE     "cursor4a.cur"
+ll_angle                CURSOR  DISCARDABLE     "cursor4c.cur"
+lr_angle                CURSOR  DISCARDABLE     "cursor4e.cur"
+man                     CURSOR  DISCARDABLE     "cursor50.cur"
+middlebutton            CURSOR  DISCARDABLE     "cursor52.cur"
+mouse                   CURSOR  DISCARDABLE     "cursor54.cur"
+pencil                  CURSOR  DISCARDABLE     "cursor56.cur"
+pirate                  CURSOR  DISCARDABLE     "cursor58.cur"
+plus                    CURSOR  DISCARDABLE     "cursor5a.cur"
+question_arrow          CURSOR  DISCARDABLE     "cursor5c.cur"
+right_ptr               CURSOR  DISCARDABLE     "cursor5e.cur"
+right_side              CURSOR  DISCARDABLE     "cursor60.cur"
+right_tee               CURSOR  DISCARDABLE     "cursor62.cur"
+rightbutton             CURSOR  DISCARDABLE     "cursor64.cur"
+rtl_logo                CURSOR  DISCARDABLE     "cursor66.cur"
+sailboat                CURSOR  DISCARDABLE     "cursor68.cur"
+sb_down_arrow           CURSOR  DISCARDABLE     "cursor6a.cur"
+sb_h_double_arrow       CURSOR  DISCARDABLE     "cursor6c.cur"
+sb_left_arrow           CURSOR  DISCARDABLE     "cursor6e.cur"
+sb_right_arrow          CURSOR  DISCARDABLE     "cursor70.cur"
+sb_up_arrow             CURSOR  DISCARDABLE     "cursor72.cur"
+sb_v_double_arrow       CURSOR  DISCARDABLE     "cursor74.cur"
+shuttle                 CURSOR  DISCARDABLE     "cursor76.cur"
+sizing                  CURSOR  DISCARDABLE     "cursor78.cur"
+spider                  CURSOR  DISCARDABLE     "cursor7a.cur"
+spraycan                CURSOR  DISCARDABLE     "cursor7c.cur"
+star                    CURSOR  DISCARDABLE     "cursor7e.cur"
+target                  CURSOR  DISCARDABLE     "cursor80.cur"
+tcross                  CURSOR  DISCARDABLE     "cursor82.cur"
+top_left_arrow          CURSOR  DISCARDABLE     "cursor84.cur"
+top_left_corner         CURSOR  DISCARDABLE     "cursor86.cur"
+top_right_corner        CURSOR  DISCARDABLE     "cursor88.cur"
+top_side                CURSOR  DISCARDABLE     "cursor8a.cur"
+top_tee                 CURSOR  DISCARDABLE     "cursor8c.cur"
+trek                    CURSOR  DISCARDABLE     "cursor8e.cur"
+ul_angle                CURSOR  DISCARDABLE     "cursor90.cur"
+umbrella                CURSOR  DISCARDABLE     "cursor92.cur"
+ur_angle                CURSOR  DISCARDABLE     "cursor94.cur"
+watch                   CURSOR  DISCARDABLE     "cursor96.cur"
+xterm                   CURSOR  DISCARDABLE     "cursor98.cur"
diff --git a/Tk/win/rc/wish.ico b/Tk/win/rc/wish.ico
new file mode 100644
index 0000000..a32e749
Binary files /dev/null and b/Tk/win/rc/wish.ico differ
diff --git a/Tk/win/rc/wish.rc b/Tk/win/rc/wish.rc
new file mode 100644
index 0000000..4c07305
--- /dev/null
+++ b/Tk/win/rc/wish.rc
@@ -0,0 +1,40 @@
+// SCCS: @(#) wish.rc 1.9 96/08/01 15:22:28
+//
+// Version
+//
+
+#include <patchlevel.h>
+
+VS_VERSION_INFO VERSIONINFO
+ FILEVERSION	4,1,1,1
+ PRODUCTVERSION	4,1,1,1
+ FILEFLAGSMASK	0x3fL
+ FILEFLAGS	0x0L
+ FILEOS		0x4L
+ FILETYPE	0x1L
+ FILESUBTYPE	0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+        BLOCK "040904b0"
+        BEGIN
+            VALUE "FileDescription", "Wish Application\0"
+            VALUE "OriginalFilename", "wish41.exe\0"
+            VALUE "CompanyName", "Sun Microsystems, Inc.\0"
+            VALUE "FileVersion", TK_PATCH_LEVEL
+            VALUE "LegalCopyright", "Copyright \251 1995-1996\0"
+            VALUE "ProductName", "Tk 4.1 for Windows\0"
+            VALUE "ProductVersion", TK_PATCH_LEVEL
+        END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+        VALUE "Translation", 0x409, 1200
+    END
+END
+
+//
+// Icon
+//
+
+wish                      ICON    DISCARDABLE     "wish.ico"
diff --git a/Tk/win/stubs.c b/Tk/win/stubs.c
new file mode 100644
index 0000000..0dc3625
--- /dev/null
+++ b/Tk/win/stubs.c
@@ -0,0 +1,454 @@
+#include <X11/X.h>
+#include <X11/Xlib.h>
+#include <stdio.h>
+#include <tkInt.h>
+#include <tkPort.h>
+
+void
+TkSetRegion(display, gc, r)
+    Display* display;
+    GC gc;
+    TkRegion r;
+{
+}
+
+/*
+ * Undocumented Xlib internal function
+ */
+
+_XInitImageFuncPtrs(XImage *image)
+{
+    return NULL;
+}
+
+/*
+ * From Xutil.h
+ */
+
+void
+XSetWMClientMachine(display, w, text_prop)
+    Display* display;
+    Window w;
+    XTextProperty* text_prop;
+{
+}
+
+Status
+XStringListToTextProperty(list, count, text_prop_return)
+    char** list;
+    int count;
+    XTextProperty* text_prop_return;
+{
+    return NULL;
+}
+
+/*
+ * From Xlib.h
+ */
+
+void
+XChangeProperty(display, w, property, type, format, mode, data, nelements)
+    Display* display;
+    Window w;
+    Atom property;
+    Atom type;
+    int format;
+    int mode;
+    _Xconst unsigned char* data;
+    int nelements;
+{
+}
+
+Cursor
+XCreateGlyphCursor(display, source_font, mask_font, source_char, mask_char,
+	foreground_color, background_color)
+    Display* display;
+    Font source_font;
+    Font mask_font;
+    unsigned int source_char;
+    unsigned int mask_char;
+    XColor* foreground_color;
+    XColor* background_color;
+{
+    return 1;
+}
+
+XIC
+XCreateIC()
+{
+    return NULL;
+}
+
+Cursor
+XCreatePixmapCursor(display, source, mask, foreground_color,
+	background_color, x, y)
+    Display* display;
+    Pixmap source;
+    Pixmap mask;
+    XColor* foreground_color;
+    XColor* background_color;
+    unsigned int x;
+    unsigned int y;
+{
+    return NULL;
+}
+
+void
+XDeleteProperty(display, w, property)
+    Display* display;
+    Window w;
+    Atom property;
+{
+}
+
+void
+XDestroyIC(ic)
+    XIC ic;
+{
+}
+
+Bool
+XFilterEvent(event, window)
+    XEvent* event;
+    Window window;
+{
+    return NULL;
+}
+
+extern void XForceScreenSaver(display, mode)
+    Display* display;
+    int mode;
+{
+}
+
+void
+XFreeCursor(display, cursor)
+    Display* display;
+    Cursor cursor;
+{
+}
+
+GContext
+XGContextFromGC(gc)
+    GC gc;
+{
+    return NULL;
+}
+
+char *
+XGetAtomName(display, atom)
+    Display* display;
+    Atom atom;
+{
+    return NULL;
+}
+
+int
+XGetGeometry(display, d, root_return, x_return, y_return, width_return,
+	height_return, border_width_return, depth_return)
+    Display* display;
+    Drawable d;
+    Window* root_return;
+    int* x_return;
+    int* y_return;
+    unsigned int* width_return;
+    unsigned int* height_return;
+    unsigned int* border_width_return;
+    unsigned int* depth_return;
+{
+    return NULL;
+}
+
+XImage *
+XGetImage(display, d, x, y, width, height, plane_mask, format)
+    Display* display;
+    Drawable d;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+    unsigned long plane_mask;
+    int	format;
+{
+    return NULL;
+}
+
+
+int
+XGetWindowAttributes(display, w, window_attributes_return)
+    Display* display;
+    Window w;
+    XWindowAttributes* window_attributes_return;
+{
+    return NULL;
+}
+
+Status
+XGetWMColormapWindows(display, w, windows_return, count_return)
+    Display* display;
+    Window w;
+    Window** windows_return;
+    int* count_return;
+{
+    return NULL;
+}
+
+int
+XIconifyWindow(display, w, screen_number)
+    Display* display;
+    Window w;
+    int screen_number;
+{
+    return NULL;
+}
+
+XHostAddress *
+XListHosts(display, nhosts_return, state_return)
+    Display* display;
+    int* nhosts_return;
+    Bool* state_return;
+{
+    return NULL;
+}
+
+int
+XLookupColor(display, colormap, color_name, exact_def_return,
+	screen_def_return)
+    Display* display;
+    Colormap colormap;
+    _Xconst char* color_name;
+    XColor* exact_def_return;
+    XColor* screen_def_return;
+{
+    return NULL;
+}
+
+void
+XNextEvent(display, event_return)
+    Display* display;
+    XEvent* event_return;
+{
+}
+
+void
+XPutBackEvent(display, event)
+    Display* display;
+    XEvent* event;
+{
+}
+
+void
+XQueryColors(display, colormap, defs_in_out, ncolors)
+    Display* display;
+    Colormap colormap;
+    XColor* defs_in_out;
+    int ncolors;
+{
+}
+
+int
+XQueryTree(display, w, root_return, parent_return, children_return,
+	nchildren_return)
+    Display* display;
+    Window w;
+    Window* root_return;
+    Window* parent_return;
+    Window** children_return;
+    unsigned int* nchildren_return;
+{
+    return NULL;
+}
+
+void
+XRefreshKeyboardMapping(event_map)
+    XMappingEvent* event_map;
+{
+}
+
+Window
+XRootWindow(display, screen_number)
+    Display* display;
+    int screen_number;
+{
+    return NULL;
+}
+
+void
+XSelectInput(display, w, event_mask)
+    Display* display;
+    Window w;
+    long event_mask;
+{
+}
+
+int
+XSendEvent(display, w, propagate, event_mask, event_send)
+    Display* display;
+    Window w;
+    Bool propagate;
+    long event_mask;
+    XEvent* event_send;
+{
+    return NULL;
+}
+
+void
+XSetCommand(display, w, argv, argc)
+    Display* display;
+    Window w;
+    char** argv;
+    int argc;
+{
+}
+
+XErrorHandler
+XSetErrorHandler (handler)
+    XErrorHandler handler;
+{
+    return NULL;
+}
+
+void
+XSetIconName(display, w, icon_name)
+    Display* display;
+    Window w;
+    _Xconst char* icon_name;
+{
+}
+
+void
+XSetTransientForHint(display, w, prop_window)
+    Display* display;
+    Window w;
+    Window prop_window;
+{
+}
+
+int
+XSetWMColormapWindows(display, w, colormap_windows, count)
+    Display* display;
+    Window w;
+    Window* colormap_windows;
+    int count;
+{
+    return 0;
+}
+
+void
+XSetWindowBackground(display, w, background_pixel)
+    Display* display;
+    Window w;
+    unsigned long background_pixel;
+{
+}
+
+void
+XSetWindowBackgroundPixmap(display, w, background_pixmap)
+    Display* display;
+    Window w;
+    Pixmap background_pixmap;
+{
+}
+
+void
+XSetWindowBorder(display, w, border_pixel)
+    Display* display;
+    Window w;
+    unsigned long border_pixel;
+{
+}
+
+void
+XSetWindowBorderPixmap(display, w, border_pixmap)
+    Display* display;
+    Window w;
+    Pixmap border_pixmap;
+{
+}
+
+void
+XSetWindowBorderWidth(display, w, width)
+    Display* display;
+    Window w;
+    unsigned int width;
+{
+}
+
+void
+XSetWindowColormap(display, w, colormap)
+    Display* display;
+    Window w;
+    Colormap colormap;
+{
+}
+
+Bool
+XTranslateCoordinates(display, src_w, dest_w, src_x, src_y, dest_x_return,
+	dest_y_return, child_return)
+    Display* display;
+    Window src_w;
+    Window dest_w;
+    int src_x;
+    int src_y;
+    int* dest_x_return;
+    int* dest_y_return;
+    Window* child_return;
+{
+    return 0;
+}
+
+void
+XWindowEvent(display, w, event_mask, event_return)
+    Display* display;
+    Window w;
+    long event_mask;
+    XEvent* event_return;
+{
+}
+
+int
+XWithdrawWindow(display, w, screen_number)
+    Display* display;
+    Window w;
+    int screen_number;
+{
+    return 0;
+}
+
+int
+XmbLookupString(ic, event, buffer_return, bytes_buffer, keysym_return,
+	status_return)
+    XIC ic;
+    XKeyPressedEvent* event;
+    char* buffer_return;
+    int bytes_buffer;
+    KeySym* keysym_return;
+    Status* status_return;
+{
+    return 0;
+}
+
+int
+XGetWindowProperty(display, w, property, long_offset, long_length, delete,
+	req_type, actual_type_return, actual_format_return, nitems_return,
+	bytes_after_return, prop_return)
+    Display* display;
+    Window w;
+    Atom property;
+    long long_offset;
+    long long_length;
+    Bool delete;
+    Atom req_type;
+    Atom* actual_type_return;
+    int* actual_format_return;
+    unsigned long* nitems_return;
+    unsigned long* bytes_after_return;
+    unsigned char** prop_return;
+{
+    *actual_type_return = None;
+    *actual_format_return = 0;
+    *nitems_return = 0;
+    *bytes_after_return = 0;
+    *prop_return = NULL;
+    return 0;			/* failure */
+}
diff --git a/Tk/win/tkWin32Dll.c b/Tk/win/tkWin32Dll.c
new file mode 100644
index 0000000..3c48057
--- /dev/null
+++ b/Tk/win/tkWin32Dll.c
@@ -0,0 +1,83 @@
+/* 
+ * tkWin32Dll.c --
+ *
+ *	This file contains a stub dll entry point.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWin32Dll.c 1.7 96/04/05 15:21:06
+ */
+
+#include "tkPort.h"
+#include "tkWinInt.h"
+
+/*
+ * The following declaration is for the VC++ DLL entry point.
+ */
+
+BOOL APIENTRY		DllMain _ANSI_ARGS_((HINSTANCE hInst,
+			    DWORD reason, LPVOID reserved));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DllEntryPoint --
+ *
+ *	This wrapper function is used by Borland to invoke the
+ *	initialization code for Tk.  It simply calls the DllMain
+ *	routine.
+ *
+ * Results:
+ *	See DllMain.
+ *
+ * Side effects:
+ *	See DllMain.
+ *
+ *----------------------------------------------------------------------
+ */
+
+BOOL APIENTRY
+DllEntryPoint(hInst, reason, reserved)
+    HINSTANCE hInst;		/* Library instance handle. */
+    DWORD reason;		/* Reason this function is being called. */
+    LPVOID reserved;		/* Not used. */
+{
+    return DllMain(hInst, reason, reserved);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DllMain --
+ *
+ *	DLL entry point.
+ *
+ * Results:
+ *	TRUE on sucess, FALSE on failure.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+BOOL APIENTRY
+DllMain(hInstance, reason, reserved)
+    HINSTANCE hInstance;
+    DWORD reason;
+    LPVOID reserved;
+{
+    /*
+     * If we are attaching to the DLL from a new process, tell Tk about
+     * the hInstance to use. If we are detaching then clean up any
+     * data structures related to this DLL.
+     */
+    
+    if (reason == DLL_PROCESS_ATTACH) {
+        TkWinXInit(hInstance);
+    }
+    return(TRUE);
+}
diff --git a/Tk/win/tkWinClipboard.c b/Tk/win/tkWinClipboard.c
new file mode 100644
index 0000000..fbe24af
--- /dev/null
+++ b/Tk/win/tkWinClipboard.c
@@ -0,0 +1,281 @@
+/* 
+ * tkWinClipboard.c --
+ *
+ *	This file contains functions for managing the clipboard.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinClipboard.c 1.5 96/02/15 18:56:07
+ */
+
+#include "tkWinInt.h"
+#include "tkSelect.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelGetSelection --
+ *
+ *	Retrieve the specified selection from another process.  For
+ *	now, only fetching XA_STRING from CLIPBOARD is supported.
+ *	Eventually other types should be allowed.
+ * 
+ * Results:
+ *	The return value is a standard Tcl return value.
+ *	If an error occurs (such as no selection exists)
+ *	then an error message is left in interp->result.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkSelGetSelection(interp, tkwin, selection, target, proc, clientData)
+    Tcl_Interp *interp;		/* Interpreter to use for reporting
+				 * errors. */
+    Tk_Window tkwin;		/* Window on whose behalf to retrieve
+				 * the selection (determines display
+				 * from which to retrieve). */
+    Atom selection;		/* Selection to retrieve. */
+    Atom target;		/* Desired form in which selection
+				 * is to be returned. */
+    Tk_GetSelProc *proc;	/* Procedure to call to process the
+				 * selection, once it has been retrieved. */
+    ClientData clientData;	/* Arbitrary value to pass to proc. */
+{
+    char *data, *buffer, *destPtr;
+    HGLOBAL handle;
+    int result, length;
+
+    if ((selection == Tk_InternAtom(tkwin, "CLIPBOARD"))
+	    && (target == XA_STRING)) {
+	if (OpenClipboard(NULL)) {
+	    handle = GetClipboardData(CF_TEXT);
+	    if (handle != NULL) {
+		data = GlobalLock(handle);
+		length = strlen(data);
+		buffer = ckalloc(length+1);
+		destPtr = buffer;
+		while (*data != '\0') {
+		    if (*data != '\r') {
+			*destPtr = *data;
+			destPtr++;
+		    }
+		    data++;
+		}
+		*destPtr = '\0';
+		GlobalUnlock(handle);
+		CloseClipboard();
+		result = (*proc)(clientData, interp, buffer);
+		ckfree(buffer);
+		return result;
+	    }
+	    CloseClipboard();
+	}
+    }
+
+    Tcl_AppendResult(interp, Tk_GetAtomName(tkwin, selection),
+	" selection doesn't exist or form \"", Tk_GetAtomName(tkwin, target),
+	"\" not defined", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSetSelectionOwner --
+ *
+ *	This function claims ownership of the specified selection.
+ *	If the selection is CLIPBOARD, then we empty the system
+ *	clipboard.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Empties the system clipboard, and claims ownership.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XSetSelectionOwner(display, selection, owner, time)
+    Display* display;
+    Atom selection;
+    Window owner;
+    Time time;
+{
+    HWND hwnd = owner ? TkWinGetHWND(owner) : NULL;
+    Tk_Window tkwin;
+
+    /*
+     * This is a gross hack because the Tk_InternAtom interface is broken.
+     * It expects a Tk_Window, even though it only needs a Tk_Display.
+     */
+
+    tkwin = (Tk_Window)tkMainWindowList->winPtr;
+
+    if (selection == Tk_InternAtom(tkwin, "CLIPBOARD")) {
+
+	/*
+	 * Only claim and empty the clipboard if we aren't already the
+	 * owner of the clipboard.
+	 */
+
+	if (GetClipboardOwner() != hwnd) {
+	    OpenClipboard(hwnd);
+	    EmptyClipboard();
+	    SetClipboardData(CF_TEXT, NULL);
+	    CloseClipboard();
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinClipboardRender --
+ *
+ *	This function supplies the contents of the clipboard in
+ *	response to a WM_RENDERFORMAT message.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets the contents of the clipboard.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinClipboardRender(winPtr, format)
+    TkWindow *winPtr;
+    UINT format;
+{
+    TkClipboardTarget *targetPtr;
+    TkClipboardBuffer *cbPtr;
+    TkDisplay *dispPtr = winPtr->dispPtr;
+    HGLOBAL handle;
+    char *buffer;
+    int length;
+
+    for (targetPtr = dispPtr->clipTargetPtr; targetPtr != NULL;
+	    targetPtr = targetPtr->nextPtr) {
+	if (targetPtr->type == XA_STRING)
+	    break;
+    }
+    length = 0;
+    if (targetPtr != NULL) {
+	for (cbPtr = targetPtr->firstBufferPtr; cbPtr != NULL;
+		cbPtr = cbPtr->nextPtr) {
+	    length += cbPtr->length;
+	}
+    }
+    handle = GlobalAlloc(GMEM_MOVEABLE|GMEM_DDESHARE, length+1);
+    if (!handle) {
+	return;
+    }
+    buffer = GlobalLock(handle);
+    if (targetPtr != NULL) {
+	for (cbPtr = targetPtr->firstBufferPtr; cbPtr != NULL;
+		cbPtr = cbPtr->nextPtr) {
+	    strncpy(buffer, cbPtr->buffer, cbPtr->length);
+	    buffer += cbPtr->length;
+	}
+    }
+    *buffer = '\0';
+    GlobalUnlock(handle);
+    SetClipboardData(CF_TEXT, handle);
+    return;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelUpdateClipboard --
+ *
+ *	This function is called to force the clipboard to be updated
+ *	after new data is added.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Clears the current contents of the clipboard.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelUpdateClipboard(winPtr, targetPtr)
+    TkWindow *winPtr;
+    TkClipboardTarget *targetPtr;
+{
+    HWND hwnd = TkWinGetHWND(winPtr->window);
+
+    OpenClipboard(hwnd);
+    EmptyClipboard();
+    SetClipboardData(CF_TEXT, NULL);
+    CloseClipboard();
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkSelEventProc --
+ *
+ *	This procedure is invoked whenever a selection-related
+ *	event occurs. 
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Lots:  depends on the type of event.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkSelEventProc(tkwin, eventPtr)
+    Tk_Window tkwin;		/* Window for which event was
+				 * targeted. */
+    register XEvent *eventPtr;	/* X event:  either SelectionClear,
+				 * SelectionRequest, or
+				 * SelectionNotify. */
+{
+    if (eventPtr->type == SelectionClear) {
+	TkSelClearSelection(tkwin, eventPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSelPropProc --
+ *
+ *	This procedure is invoked when property-change events
+ *	occur on windows not known to the toolkit.  This is a stub
+ *	function under Windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSelPropProc(eventPtr)
+    register XEvent *eventPtr;		/* X PropertyChange event. */
+{
+}
diff --git a/Tk/win/tkWinColor.c b/Tk/win/tkWinColor.c
new file mode 100644
index 0000000..96ab122
--- /dev/null
+++ b/Tk/win/tkWinColor.c
@@ -0,0 +1,631 @@
+/* 
+ * tkWinColor.c --
+ *
+ *	Functions to map color names to system color values.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ * Copyright (c) 1994 Software Research Associates, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinColor.c 1.12 96/07/30 18:52:26
+ */
+
+#include "tkWinInt.h"
+#include "xcolors.h"
+
+/*
+ * This variable indicates whether the color table has been initialized.
+ */
+
+static int initialized = 0;
+
+/*
+ * colorTable is a hash table used to look up X colors by name.
+ */
+
+static Tcl_HashTable colorTable;
+
+/*
+ * The SystemColorEntries array contains the names and index values for the
+ * Windows indirect system color names.
+ */
+
+typedef struct {
+    char *name;
+    int index;
+} SystemColorEntry;
+
+static SystemColorEntry sysColorEntries[] = {
+    "SystemActiveBorder",		COLOR_ACTIVEBORDER,
+    "SystemActiveCaption",		COLOR_ACTIVECAPTION,
+    "SystemAppWorkspace",		COLOR_APPWORKSPACE,
+    "SystemBackground",			COLOR_BACKGROUND,
+    "SystemButtonFace",			COLOR_BTNFACE,
+    "SystemButtonHighlight",		COLOR_BTNHIGHLIGHT,
+    "SystemButtonShadow",		COLOR_BTNSHADOW,
+    "SystemButtonText",			COLOR_BTNTEXT,
+    "SystemCaptionText",		COLOR_CAPTIONTEXT,
+    "SystemDisabledText",		COLOR_GRAYTEXT,
+    "SystemHighlight",			COLOR_HIGHLIGHT,
+    "SystemHighlightText",		COLOR_HIGHLIGHTTEXT,
+    "SystemInactiveBorder",		COLOR_INACTIVEBORDER,
+    "SystemInactiveCaption",		COLOR_INACTIVECAPTION,
+    "SystemInactiveCaptionText",	COLOR_INACTIVECAPTIONTEXT,
+    "SystemMenu",			COLOR_MENU,
+    "SystemMenuText",			COLOR_MENUTEXT,
+    "SystemScrollbar",			COLOR_SCROLLBAR,
+    "SystemWindow",			COLOR_WINDOW,
+    "SystemWindowFrame",		COLOR_WINDOWFRAME,
+    "SystemWindowText",			COLOR_WINDOWTEXT,
+    NULL,				0
+};
+
+/*
+ * The sysColors array is initialized by SetSystemColors().
+ */
+
+static XColorEntry sysColors[] = {
+    0, 0, 0, "SystemActiveBorder",
+    0, 0, 0, "SystemActiveCaption",
+    0, 0, 0, "SystemAppWorkspace",
+    0, 0, 0, "SystemBackground",
+    0, 0, 0, "SystemButtonFace",
+    0, 0, 0, "SystemButtonHighlight",
+    0, 0, 0, "SystemButtonShadow",
+    0, 0, 0, "SystemButtonText",
+    0, 0, 0, "SystemCaptionText",
+    0, 0, 0, "SystemDisabledText",
+    0, 0, 0, "SystemHighlight",
+    0, 0, 0, "SystemHighlightText",
+    0, 0, 0, "SystemInactiveBorder",
+    0, 0, 0, "SystemInactiveCaption",
+    0, 0, 0, "SystemInactiveCaptionText",
+    0, 0, 0, "SystemMenu",
+    0, 0, 0, "SystemMenuText",
+    0, 0, 0, "SystemScrollbar",
+    0, 0, 0, "SystemWindow",
+    0, 0, 0, "SystemWindowFrame",
+    0, 0, 0, "SystemWindowText",
+    0, 0, 0, NULL
+};
+
+/*
+ * Forward declarations for functions defined later in this file.
+ */
+static int GetColorByName _ANSI_ARGS_((char *name, XColor *color));
+static int GetColorByValue _ANSI_ARGS_((char *value, XColor *color));
+static void InitColorTable _ANSI_ARGS_((void));
+static void SetSystemColors _ANSI_ARGS_((void));
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * SetSystemColors --
+ *
+ *	Initializes the sysColors array with the current values for
+ *	the system colors.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the RGB values stored in the sysColors array.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+SetSystemColors()
+{
+    SystemColorEntry *sPtr;
+    XColorEntry *ePtr;
+    COLORREF color;
+
+    for (ePtr = sysColors, sPtr = sysColorEntries;
+	 sPtr->name != NULL; ePtr++, sPtr++)
+    {
+	color = GetSysColor(sPtr->index);
+	ePtr->red = GetRValue(color);
+	ePtr->green = GetGValue(color);
+	ePtr->blue = GetBValue(color);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InitColorTable --
+ *
+ *	Initialize color name database.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Builds a hash table of color names and RGB values.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InitColorTable()
+{
+    XColorEntry *colorPtr;
+    Tcl_HashEntry *hPtr;
+    int dummy;
+
+    Tcl_InitHashTable(&colorTable, TCL_STRING_KEYS);
+
+    /*
+     * Add X colors to table.
+     */
+
+    for (colorPtr = xColors; colorPtr->name != NULL; colorPtr++) {
+        hPtr = Tcl_CreateHashEntry(&colorTable, strlwr(colorPtr->name),
+		&dummy);
+        Tcl_SetHashValue(hPtr, colorPtr);
+    }
+    
+    /*
+     * Add Windows indirect system colors to table.
+     */
+
+    SetSystemColors();
+    for (colorPtr = sysColors; colorPtr->name != NULL; colorPtr++) {
+        hPtr = Tcl_CreateHashEntry(&colorTable, strlwr(colorPtr->name),
+		&dummy);
+        Tcl_SetHashValue(hPtr, colorPtr);
+    }
+
+    initialized = 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetColorByName --
+ *
+ *	Looks for a color in the color table by name, then finds the
+ *	closest available color in the palette and converts it to an
+ *	XColor structure.
+ *
+ * Results:
+ *	If it finds a match, the color is returned in the color
+ *	parameter and the return value is 1.  Otherwise the return
+ *	value is 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+GetColorByName(name, color)
+    char *name;			/* An X color name, e.g. "red" */
+    XColor *color;		/* The closest available color. */
+{
+    Tcl_HashEntry *hPtr;
+    XColorEntry *colorPtr;
+
+    if (!initialized) {
+	InitColorTable();
+    }
+
+    hPtr = Tcl_FindHashEntry(&colorTable, (char *) strlwr(name));
+
+    if (hPtr == NULL) {
+	return 0;
+    }
+
+    colorPtr = (XColorEntry *) Tcl_GetHashValue(hPtr);
+    color->pixel = PALETTERGB(colorPtr->red, colorPtr->green, colorPtr->blue); 
+    color->red = colorPtr->red << 8;
+    color->green = colorPtr->green << 8;
+    color->blue = colorPtr->blue << 8;
+    color->flags = DoRed|DoGreen|DoBlue;
+    color->pad = 0;
+
+    return 1;
+}      
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetColorByValue --
+ *
+ *	Parses an X RGB color string and finds the closest available
+ *	color in the palette and converts it to an XColor structure.
+ *	The returned color will have RGB values in the range 0 to 255.
+ *
+ * Results:
+ *	If it finds a match, the color is returned in the color
+ *	parameter and the return value is 1.  Otherwise the return
+ *	value is 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+GetColorByValue(value, color)
+    char *value;		/* a string of the form "#RGB", "#RRGGBB", */
+				/* "#RRRGGGBBB", or "#RRRRGGGGBBBB" */
+    XColor *color;		/* The closest available color. */
+{
+    char fmt[16];
+    int i;
+
+    i = strlen(value+1);
+    if (i % 3) {
+	return 0;
+    }
+    i /= 3;
+    if (i == 0) {
+	return 0;
+    }
+    sprintf(fmt, "%%%dx%%%dx%%%dx", i, i, i);
+    sscanf(value+1, fmt, &color->red, &color->green, &color->blue);
+    /*
+     * Scale the parse values into 8 bits.
+     */
+    if (i == 1) {
+	color->red <<= 4;
+	color->green <<= 4;
+	color->blue <<= 4;
+    } else if (i != 2) {
+	color->red >>= (4*(i-2));
+	color->green >>= (4*(i-2));
+	color->blue >>= (4*(i-2));
+    }	
+    color->pad = 0;
+    color->pixel = PALETTERGB(color->red, color->green, color->blue); 
+    color->red = GetRValue(color->pixel) << 8;
+    color->green = GetGValue(color->pixel) << 8;
+    color->blue = GetBValue(color->pixel) << 8;
+
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XParseColor --
+ *
+ *	Decodes an X color specification.
+ *
+ * Results:
+ *	Sets exact_def_return to the parsed color.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XParseColor(display, colormap, spec, exact_def_return)
+    Display* display;
+    Colormap colormap;
+    _Xconst char* spec;
+    XColor* exact_def_return;
+{
+    /*
+     * Note that we are violating the const-ness of spec.  This is
+     * probably OK in most cases.  But this is a bug in general.
+     */
+
+    if (spec[0] == '#') {
+	return GetColorByValue((char *) spec, exact_def_return);
+    } else {
+	return GetColorByName((char *) spec, exact_def_return);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XAllocColor --
+ *
+ *	Find the closest available color to the specified XColor.
+ *
+ * Results:
+ *	Updates the color argument and returns 1 on success.  Otherwise
+ *	returns 0.
+ *
+ * Side effects:
+ *	Allocates a new color in the palette.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XAllocColor(display, colormap, color)
+    Display* display;
+    Colormap colormap;
+    XColor* color;
+{
+    TkWinColormap *cmap = (TkWinColormap *) colormap;
+    PALETTEENTRY entry, closeEntry;
+    HDC dc = GetDC(NULL);
+    
+    entry.peRed = (color->red) >> 8;
+    entry.peGreen = (color->green) >> 8;
+    entry.peBlue = (color->blue) >> 8;
+    entry.peFlags = 0;
+
+    if (GetDeviceCaps(dc, RASTERCAPS) & RC_PALETTE) {
+	unsigned long sizePalette = GetDeviceCaps(dc, SIZEPALETTE);
+	UINT newPixel, closePixel;
+	int new, refCount;
+	Tcl_HashEntry *entryPtr;
+
+	/*
+	 * Find the nearest existing palette entry.
+	 */
+	
+	newPixel = RGB(entry.peRed, entry.peGreen, entry.peBlue);
+	closePixel = GetNearestPaletteIndex(cmap->palette, newPixel);
+	GetPaletteEntries(cmap->palette, closePixel, 1, &closeEntry);
+	closePixel = RGB(closeEntry.peRed, closeEntry.peGreen,
+		closeEntry.peBlue);
+
+	/*
+	 * If this is not a duplicate, allocate a new entry.
+	 */
+	
+	if (newPixel != closePixel) {
+	    /*
+	     * Fails if the palette is full.
+	     */
+
+	    if (cmap->size == sizePalette) {
+		return 0;
+	    }
+	
+	    cmap->size++;
+	    ResizePalette(cmap->palette, cmap->size);
+	    SetPaletteEntries(cmap->palette, cmap->size - 1, 1, &entry);
+	}
+	color->pixel = PALETTERGB(entry.peRed, entry.peGreen, entry.peBlue);
+	entryPtr = Tcl_CreateHashEntry(&cmap->refCounts,
+		(char *) color->pixel, &new);
+	if (new) {
+	    refCount = 1;
+	} else {
+	    refCount = ((int) Tcl_GetHashValue(entryPtr)) + 1;
+	}
+	Tcl_SetHashValue(entryPtr, (ClientData)refCount);
+
+    } else {
+	
+	/*
+	 * Determine what color will actually be used on non-colormap systems.
+	 */
+	
+	color->pixel = GetNearestColor(dc,
+		RGB(entry.peRed, entry.peGreen, entry.peBlue));
+	color->red = (GetRValue(color->pixel) << 8);
+	color->green = (GetGValue(color->pixel) << 8);
+	color->blue = (GetBValue(color->pixel) << 8);
+    }
+
+    ReleaseDC(NULL, dc);
+    return 1;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XAllocNamedColor --
+ *
+ *	Find the closest color of the given name.
+ *
+ * Results:
+ *	Returns 1 on success with the resulting color in
+ *	exact_def_return.  Returns 0 on failure.
+ *
+ * Side effects:
+ *	Allocates a new color in the palette.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XAllocNamedColor(display, colormap, color_name, screen_def_return,
+	exact_def_return)
+    Display* display;
+    Colormap colormap;
+    _Xconst char* color_name;
+    XColor* screen_def_return;
+    XColor* exact_def_return;
+{
+    int rval = GetColorByName((char *) color_name, exact_def_return);
+    if (rval) {
+	*screen_def_return = *exact_def_return;
+	return XAllocColor(display, colormap, exact_def_return);
+    } 
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFreeColors --
+ *
+ *	Deallocate a block of colors.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Removes entries for the current palette and compacts the
+ *	remaining set.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFreeColors(display, colormap, pixels, npixels, planes)
+    Display* display;
+    Colormap colormap;
+    unsigned long* pixels;
+    int npixels;
+    unsigned long planes;
+{
+    TkWinColormap *cmap = (TkWinColormap *) colormap;
+    COLORREF cref;
+    UINT count, index, refCount;
+    int i;
+    PALETTEENTRY entry, *entries;
+    Tcl_HashEntry *entryPtr;
+    HDC dc = GetDC(NULL);
+
+    /*
+     * We don't have to do anything for non-palette devices.
+     */
+    
+    if (GetDeviceCaps(dc, RASTERCAPS) & RC_PALETTE) {
+
+	/*
+	 * This is really slow for large values of npixels.
+	 */
+
+	for (i = 0; i < npixels; i++) {
+	    entryPtr = Tcl_FindHashEntry(&cmap->refCounts,
+		    (char *) pixels[i]);
+	    if (!entryPtr) {
+		panic("Tried to free a color that isn't allocated.");
+	    }
+	    refCount = (int) Tcl_GetHashValue(entryPtr) - 1;
+	    if (refCount == 0) {
+		cref = pixels[i] & 0x00ffffff;
+		index = GetNearestPaletteIndex(cmap->palette, cref);
+		GetPaletteEntries(cmap->palette, index, 1, &entry);
+		if (cref == RGB(entry.peRed, entry.peGreen, entry.peBlue)) {
+		    count = cmap->size - index;
+		    entries = (PALETTEENTRY *) ckalloc(sizeof(PALETTEENTRY)
+			    * count);
+		    GetPaletteEntries(cmap->palette, index+1, count, entries);
+		    SetPaletteEntries(cmap->palette, index, count, entries);
+		    ckfree((char *) entries);
+		    cmap->size--;
+		} else {
+		    panic("Tried to free a color that isn't allocated.");
+		}
+		Tcl_DeleteHashEntry(entryPtr);
+	    }
+	}
+    }
+    ReleaseDC(NULL, dc);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCreateColormap --
+ *
+ *	Allocate a new colormap.
+ *
+ * Results:
+ *	Returns a newly allocated colormap.
+ *
+ * Side effects:
+ *	Allocates an empty palette and color list.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Colormap
+XCreateColormap(display, w, visual, alloc)
+    Display* display;
+    Window w;
+    Visual* visual;
+    int alloc;
+{
+    LOGPALETTE logPalette;
+    TkWinColormap *cmap = (TkWinColormap *) ckalloc(sizeof(TkWinColormap));
+
+    logPalette.palVersion = 0x300;
+    logPalette.palNumEntries = 1;
+    logPalette.palPalEntry[0].peRed = 0;
+    logPalette.palPalEntry[0].peGreen = 0;
+    logPalette.palPalEntry[0].peBlue = 0;
+    logPalette.palPalEntry[0].peFlags = 0;
+
+    cmap->palette = CreatePalette(&logPalette);
+    cmap->size = 0;
+    cmap->stale = 0;
+    Tcl_InitHashTable(&cmap->refCounts, TCL_ONE_WORD_KEYS);
+    return (Colormap)cmap;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFreeColormap --
+ *
+ *	Frees the resources associated with the given colormap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Deletes the palette associated with the colormap.  Note that
+ *	the palette must not be selected into a device context when
+ *	this occurs.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFreeColormap(display, colormap)
+    Display* display;
+    Colormap colormap;
+{
+    TkWinColormap *cmap = (TkWinColormap *) colormap;
+    if (!DeleteObject(cmap->palette)) {
+	panic("Unable to free colormap, palette is still selected.");
+    }
+    Tcl_DeleteHashTable(&cmap->refCounts);
+    ckfree((char *) cmap);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinSelectPalette --
+ *
+ *	This function sets up the specified device context with a
+ *	given palette.  If the palette is stale, it realizes it in
+ *	the background unless the palette is the current global
+ *	palette.
+ *
+ * Results:
+ *	Returns the previous palette selected into the device context.
+ *
+ * Side effects:
+ *	May change the system palette.
+ *
+ *----------------------------------------------------------------------
+ */
+
+HPALETTE
+TkWinSelectPalette(dc, colormap)
+    HDC dc;
+    Colormap colormap;
+{
+    TkWinColormap *cmap = (TkWinColormap *) colormap;
+    HPALETTE oldPalette;
+
+    oldPalette = SelectPalette(dc, cmap->palette,
+	    (cmap->palette == TkWinGetSystemPalette()) ? FALSE : TRUE);
+    RealizePalette(dc);
+    return oldPalette;
+}
diff --git a/Tk/win/tkWinCursor.c b/Tk/win/tkWinCursor.c
new file mode 100644
index 0000000..21053de
--- /dev/null
+++ b/Tk/win/tkWinCursor.c
@@ -0,0 +1,217 @@
+/* 
+ * tkWinCursor.c --
+ *
+ *	This file contains Win32 specific cursor related routines.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinCursor.c 1.6 96/02/15 18:56:06
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * The following data structure contains the system specific data
+ * necessary to control Windows cursors.
+ */
+
+typedef struct {
+    TkCursor info;		/* Generic cursor info used by tkCursor.c */
+    HCURSOR winCursor;		/* Win32 cursor handle. */
+    int system;			/* 1 if cursor is a system cursor, else 0. */
+} TkWinCursor;
+
+/*
+ * The table below is used to map from the name of a predefined cursor
+ * to its resource identifier.
+ */
+
+static struct CursorName {
+    char *name;
+    LPCTSTR id;
+} cursorNames[] = {
+    {"starting",		IDC_APPSTARTING},
+    {"arrow",			IDC_ARROW},
+    {"ibeam",			IDC_IBEAM},
+    {"icon",			IDC_ICON},
+    {"no",			IDC_NO},
+    {"size",			IDC_SIZE},
+    {"size_ne_sw",		IDC_SIZENESW},
+    {"size_ns",			IDC_SIZENS},
+    {"size_nw_se",		IDC_SIZENWSE},
+    {"size_we",			IDC_SIZEWE},
+    {"uparrow",			IDC_UPARROW},
+    {"wait",			IDC_WAIT},
+    {"crosshair",		IDC_CROSS},
+    {"fleur",			IDC_SIZE},
+    {"sb_v_double_arrow",	IDC_SIZENS},
+    {"sb_h_double_arrow",	IDC_SIZEWE},
+    {"center_ptr",		IDC_UPARROW},
+    {"watch",			IDC_WAIT},
+    {"xterm",			IDC_IBEAM},
+    {NULL,			0}
+};
+
+/*
+ * The default cursor is used whenever no other cursor has been specified.
+ */
+
+#define TK_DEFAULT_CURSOR	IDC_ARROW
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetCursorByName --
+ *
+ *	Retrieve a system cursor by name.  
+ *
+ * Results:
+ *	Returns a new cursor, or NULL on errors.  
+ *
+ * Side effects:
+ *	Allocates a new cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkCursor *
+TkGetCursorByName(interp, tkwin, string)
+    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    Tk_Uid string;		/* Description of cursor.  See manual entry
+				 * for details on legal syntax. */
+{
+    struct CursorName *namePtr;
+    TkWinCursor *cursorPtr;
+
+    /*
+     * Check for the cursor in the system cursor set.
+     */
+
+    for (namePtr = cursorNames; namePtr->name != NULL; namePtr++) {
+	if (strcmp(namePtr->name, string) == 0) {
+	    break;
+	}
+    }
+
+    cursorPtr = (TkWinCursor *) ckalloc(sizeof(TkWinCursor));
+    cursorPtr->info.cursor = (Tk_Cursor) cursorPtr;
+    if (namePtr->name != NULL) {
+	cursorPtr->winCursor = LoadCursor(NULL, namePtr->id);
+	cursorPtr->system = 1;
+    } else {
+	cursorPtr->winCursor = LoadCursor(TkWinGetTkModule(), string);
+	cursorPtr->system = 0;
+    }
+    if (cursorPtr->winCursor == NULL) {
+	ckfree((char *)cursorPtr);
+	Tcl_AppendResult(interp, "bad cursor spec \"", string, "\"",
+		(char *) NULL);
+	return NULL;
+    } else {
+	return (TkCursor *) cursorPtr;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCreateCursorFromData --
+ *
+ *	Creates a cursor from the source and mask bits.
+ *
+ * Results:
+ *	Returns a new cursor, or NULL on errors.
+ *
+ * Side effects:
+ *	Allocates a new cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkCursor *
+TkCreateCursorFromData(tkwin, source, mask, width, height, xHot, yHot,
+	fgColor, bgColor)
+    Tk_Window tkwin;		/* Window in which cursor will be used. */
+    char *source;		/* Bitmap data for cursor shape. */
+    char *mask;			/* Bitmap data for cursor mask. */
+    int width, height;		/* Dimensions of cursor. */
+    int xHot, yHot;		/* Location of hot-spot in cursor. */
+    XColor fgColor;		/* Foreground color for cursor. */
+    XColor bgColor;		/* Background color for cursor. */
+{
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkFreeCursor --
+ *
+ *	This procedure is called to release a cursor allocated by
+ *	TkGetCursorByName.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The cursor data structure is deallocated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkFreeCursor(cursorPtr)
+    TkCursor *cursorPtr;
+{
+    TkWinCursor *winCursorPtr = (TkWinCursor *) cursorPtr;
+    ckfree((char *) winCursorPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinUpdateCursor --
+ *
+ *	Set the windows global cursor to the cursor associated with
+ *	the given Tk window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the mouse cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinUpdateCursor(winPtr)
+    TkWindow *winPtr;
+{
+    HCURSOR cursor = NULL;
+
+    /*
+     * A window inherits its cursor from its parent if it doesn't
+     * have one of its own.  Top level windows inherit the default
+     * cursor.
+     */
+
+    while (winPtr != NULL) {
+	if (winPtr->atts.cursor != None) {
+	    cursor = ((TkWinCursor *) winPtr->atts.cursor)->winCursor;
+	    break;
+	} else if (winPtr->flags & TK_TOP_LEVEL) {
+	    cursor = LoadCursor(NULL, TK_DEFAULT_CURSOR);
+	    break;
+	}
+	winPtr = winPtr->parentPtr;
+    }
+    if (cursor != NULL) {
+	SetCursor(cursor);
+    }
+}
diff --git a/Tk/win/tkWinDefault.h b/Tk/win/tkWinDefault.h
new file mode 100644
index 0000000..0a2ce32
--- /dev/null
+++ b/Tk/win/tkWinDefault.h
@@ -0,0 +1,524 @@
+/*
+ * tkWinDefault.h --
+ *
+ *	This file defines the defaults for all options for all of
+ *	the Tk widgets.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinDefault.h 1.8 95/09/26 16:44:37
+ */
+
+#ifndef _TKWINDEFAULT
+#define _TKWINDEFAULT
+
+/*
+ * The definitions below provide symbolic names for the default colors.
+ * NORMAL_BG -		Normal background color.
+ * ACTIVE_BG -		Background color when widget is active.
+ * SELECT_BG -		Background color for selected text.
+ * TROUGH -		Background color for troughs in scales and scrollbars.
+ * INDICATOR -		Color for indicator when button is selected.
+ * DISABLED -		Foreground color when widget is disabled.
+ */
+
+#define BLACK		"Black"
+#define WHITE		"White"
+
+#define NORMAL_BG	"SystemButtonFace"
+#define ACTIVE_BG	"SystemButtonHighlight"
+#define SELECT_BG	"SystemHighlight"
+#define SELECT_FG	"SystemHighlightText"
+#define TROUGH		"SystemScrollbar"
+#define INDICATOR	"#b03060"
+#define DISABLED	"SystemDisabledText"
+
+/*
+ * Defaults for labels, buttons, checkbuttons, and radiobuttons:
+ */
+
+#define DEF_BUTTON_ANCHOR		"center"
+#define DEF_BUTTON_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_BUTTON_ACTIVE_BG_MONO	BLACK
+#define DEF_BUTTON_ACTIVE_FG_COLOR	BLACK
+#define DEF_BUTTON_ACTIVE_FG_MONO	WHITE
+#define DEF_BUTTON_BG_COLOR		NORMAL_BG
+#define DEF_BUTTON_BG_MONO		WHITE
+#define DEF_BUTTON_BITMAP		""
+#define DEF_BUTTON_BORDER_WIDTH		"2"
+#define DEF_BUTTON_CURSOR		""
+#define DEF_BUTTON_COMMAND		""
+#define DEF_BUTTON_DISABLED_FG_COLOR	DISABLED
+#define DEF_BUTTON_DISABLED_FG_MONO	""
+#define DEF_BUTTON_FG			BLACK
+#define DEF_BUTTON_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_BUTTON_HEIGHT		"0"
+#define DEF_BUTTON_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_BUTTON_HIGHLIGHT		BLACK
+#define DEF_LABEL_HIGHLIGHT_WIDTH	"0"
+#define DEF_BUTTON_HIGHLIGHT_WIDTH	"2"
+#define DEF_BUTTON_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#   define DEF_BUTTON_INDICATOR		"#t"
+#else
+#   define DEF_BUTTON_INDICATOR		"1"
+#endif
+#define DEF_BUTTON_JUSTIFY		"center"
+#ifdef STk_CODE
+#  define DEF_BUTTON_OFF_VALUE		"#f"
+#  define DEF_BUTTON_ON_VALUE		"#t"
+#else
+#  define DEF_BUTTON_OFF_VALUE		"0"
+#  define DEF_BUTTON_ON_VALUE		"1"
+#endif
+#define DEF_BUTTON_PADX			"3m"
+#define DEF_LABCHKRAD_PADX		"1"
+#define DEF_BUTTON_PADY			"1m"
+#define DEF_LABCHKRAD_PADY		"1"
+#define DEF_BUTTON_RELIEF		"raised"
+#define DEF_LABCHKRAD_RELIEF		"flat"
+#define DEF_BUTTON_SELECT_COLOR		INDICATOR
+#define DEF_BUTTON_SELECT_MONO		BLACK
+#define DEF_BUTTON_SELECT_IMAGE		(char *) NULL
+#define DEF_BUTTON_STATE		"normal"
+#ifdef STk_CODE
+#  define DEF_LABEL_TAKE_FOCUS		"#f"
+#else
+#  define DEF_LABEL_TAKE_FOCUS		"0"
+#endif
+#define DEF_BUTTON_TAKE_FOCUS		(char *) NULL
+#define DEF_BUTTON_TEXT			""
+#define DEF_BUTTON_TEXT_VARIABLE	""
+#define DEF_BUTTON_UNDERLINE		"-1"
+#ifdef STk_CODE
+#  define DEF_BUTTON_VALUE		"#f"
+#else
+#  define DEF_BUTTON_VALUE		""
+#endif
+#define DEF_BUTTON_WIDTH		"0"
+#define DEF_BUTTON_WRAP_LENGTH		"0"
+#ifdef STk_CODE
+#  define DEF_RADIOBUTTON_VARIABLE	"*selected-button*"
+#else
+#  define DEF_RADIOBUTTON_VARIABLE	"selectedButton"
+#endif
+#define DEF_CHECKBUTTON_VARIABLE	""
+
+/*
+ * Defaults for canvases:
+ */
+
+#define DEF_CANVAS_BG_COLOR		NORMAL_BG
+#define DEF_CANVAS_BG_MONO		WHITE
+#define DEF_CANVAS_BORDER_WIDTH		"0"
+#define DEF_CANVAS_CLOSE_ENOUGH		"1"
+#ifdef STk_CODE
+#  define DEF_CANVAS_CONFINE		"#t"
+#else
+#  define DEF_CANVAS_CONFINE		"1"
+#endif
+#define DEF_CANVAS_CURSOR		""
+#define DEF_CANVAS_HEIGHT		"7c"
+#define DEF_CANVAS_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_CANVAS_HIGHLIGHT		BLACK
+#define DEF_CANVAS_HIGHLIGHT_WIDTH	"2"
+#define DEF_CANVAS_INSERT_BG		BLACK
+#define DEF_CANVAS_INSERT_BD_COLOR	"0"
+#define DEF_CANVAS_INSERT_BD_MONO	"0"
+#define DEF_CANVAS_INSERT_OFF_TIME	"300"
+#define DEF_CANVAS_INSERT_ON_TIME	"600"
+#define DEF_CANVAS_INSERT_WIDTH		"2"
+#define DEF_CANVAS_RELIEF		"flat"
+#define DEF_CANVAS_SCROLL_REGION	""
+#define DEF_CANVAS_SELECT_COLOR		SELECT_BG
+#define DEF_CANVAS_SELECT_MONO		BLACK
+#define DEF_CANVAS_SELECT_BD_COLOR	"1"
+#define DEF_CANVAS_SELECT_BD_MONO	"0"
+#define DEF_CANVAS_SELECT_FG_COLOR	BLACK
+#define DEF_CANVAS_SELECT_FG_MONO	WHITE
+#define DEF_CANVAS_TAKE_FOCUS		(char *) NULL
+#define DEF_CANVAS_WIDTH		"10c"
+#define DEF_CANVAS_X_SCROLL_CMD		""
+#define DEF_CANVAS_X_SCROLL_INCREMENT	"0"
+#define DEF_CANVAS_Y_SCROLL_CMD		""
+#define DEF_CANVAS_Y_SCROLL_INCREMENT	"0"
+
+/*
+ * Defaults for entries:
+ */
+
+#define DEF_ENTRY_BG_COLOR		NORMAL_BG
+#define DEF_ENTRY_BG_MONO		WHITE
+#define DEF_ENTRY_BORDER_WIDTH		"2"
+#define DEF_ENTRY_CURSOR		"xterm"
+#ifdef STk_CODE
+#define DEF_ENTRY_EXPORT_SELECTION	"#t"
+#else
+#define DEF_ENTRY_EXPORT_SELECTION	"1"
+#endif
+#define DEF_ENTRY_FONT			"-Adobe-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_ENTRY_FG			BLACK
+#define DEF_ENTRY_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_ENTRY_HIGHLIGHT		BLACK
+#define DEF_ENTRY_HIGHLIGHT_WIDTH	"2"
+#define DEF_ENTRY_INSERT_BG		BLACK
+#define DEF_ENTRY_INSERT_BD_COLOR	"0"
+#define DEF_ENTRY_INSERT_BD_MONO	"0"
+#define DEF_ENTRY_INSERT_OFF_TIME	"300"
+#define DEF_ENTRY_INSERT_ON_TIME	"600"
+#define DEF_ENTRY_INSERT_WIDTH		"2"
+#define DEF_ENTRY_JUSTIFY		"left"
+#define DEF_ENTRY_RELIEF		"sunken"
+#define DEF_ENTRY_SCROLL_COMMAND	""
+#define DEF_ENTRY_SELECT_COLOR		SELECT_BG
+#define DEF_ENTRY_SELECT_MONO		BLACK
+#define DEF_ENTRY_SELECT_BD_COLOR	"1"
+#define DEF_ENTRY_SELECT_BD_MONO	"0"
+#define DEF_ENTRY_SELECT_FG_COLOR	SELECT_FG
+#define DEF_ENTRY_SELECT_FG_MONO	WHITE
+#define DEF_ENTRY_SHOW			(char *) NULL
+#define DEF_ENTRY_STATE			"normal"
+#define DEF_ENTRY_TAKE_FOCUS		(char *) NULL
+#define DEF_ENTRY_TEXT_VARIABLE		""
+#define DEF_ENTRY_WIDTH			"20"
+
+/*
+ * Defaults for frames:
+ */
+
+#define DEF_FRAME_BG_COLOR		NORMAL_BG
+#define DEF_FRAME_BG_MONO		WHITE
+#define DEF_FRAME_BORDER_WIDTH		"0"
+#define DEF_FRAME_CLASS			"Frame"
+#define DEF_FRAME_COLORMAP		""
+#define DEF_FRAME_CURSOR		""
+#define DEF_FRAME_HEIGHT		"0"
+#define DEF_FRAME_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_FRAME_HIGHLIGHT		BLACK
+#define DEF_FRAME_HIGHLIGHT_WIDTH	"0"
+#define DEF_FRAME_RELIEF		"flat"
+#ifdef STk_CODE
+#  define DEF_FRAME_TAKE_FOCUS		"#f"
+#else
+#  define DEF_FRAME_TAKE_FOCUS		"0"
+#endif
+#define DEF_FRAME_VISUAL		""
+#define DEF_FRAME_WIDTH			"0"
+
+/*
+ * Defaults for listboxes:
+ */
+
+#define DEF_LISTBOX_BG_COLOR		NORMAL_BG
+#define DEF_LISTBOX_BG_MONO		WHITE
+#define DEF_LISTBOX_BORDER_WIDTH	"2"
+#define DEF_LISTBOX_CURSOR		""
+#ifdef STk_CODE
+#  define DEF_LISTBOX_EXPORT_SELECTION	"#t"
+#else
+#  define DEF_LISTBOX_EXPORT_SELECTION	"1"
+#endif
+#define DEF_LISTBOX_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_LISTBOX_FG			BLACK
+#define DEF_LISTBOX_HEIGHT		"10"
+#define DEF_LISTBOX_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_LISTBOX_HIGHLIGHT		BLACK
+#define DEF_LISTBOX_HIGHLIGHT_WIDTH	"2"
+#define DEF_LISTBOX_RELIEF		"sunken"
+#define DEF_LISTBOX_SCROLL_COMMAND	""
+#define DEF_LISTBOX_SELECT_COLOR	SELECT_BG
+#define DEF_LISTBOX_SELECT_MONO		BLACK
+#define DEF_LISTBOX_SELECT_BD		"1"
+#define DEF_LISTBOX_SELECT_FG_COLOR	SELECT_FG
+#define DEF_LISTBOX_SELECT_FG_MONO	WHITE
+#define DEF_LISTBOX_SELECT_MODE		"browse"
+#ifdef STk_CODE
+#  define DEF_LISTBOX_SET_GRID		"#f"
+#else
+#  define DEF_LISTBOX_SET_GRID		"0"
+#endif
+#define DEF_LISTBOX_TAKE_FOCUS		(char *) NULL
+#define DEF_LISTBOX_WIDTH		"20"
+
+/*
+ * Defaults for individual entries of menus:
+ */
+
+#define DEF_MENU_ENTRY_ACTIVE_BG	(char *) NULL
+#define DEF_MENU_ENTRY_ACTIVE_FG	(char *) NULL
+#define DEF_MENU_ENTRY_ACCELERATOR	(char *) NULL
+#define DEF_MENU_ENTRY_BG		(char *) NULL
+#define DEF_MENU_ENTRY_BITMAP		None
+#define DEF_MENU_ENTRY_COMMAND		(char *) NULL
+#define DEF_MENU_ENTRY_FG		(char *) NULL
+#define DEF_MENU_ENTRY_FONT		(char *) NULL
+#define DEF_MENU_ENTRY_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_INDICATOR	"#t"
+#else
+#  define DEF_MENU_ENTRY_INDICATOR	"1"
+#endif
+#define DEF_MENU_ENTRY_LABEL		(char *) NULL
+#define DEF_MENU_ENTRY_MENU		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_OFF_VALUE	"#f"
+#  define DEF_MENU_ENTRY_ON_VALUE	"#t"
+#else
+#  define DEF_MENU_ENTRY_OFF_VALUE	"0"
+#  define DEF_MENU_ENTRY_ON_VALUE	"1"
+#endif
+#define DEF_MENU_ENTRY_SELECT_IMAGE	(char *) NULL
+#define DEF_MENU_ENTRY_STATE		"normal"
+#define DEF_MENU_ENTRY_VALUE		(char *) NULL
+#define DEF_MENU_ENTRY_CHECK_VARIABLE	(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENU_ENTRY_RADIO_VARIABLE	"*selected-button*"
+#else
+#  define DEF_MENU_ENTRY_RADIO_VARIABLE	"selectedButton"
+#endif
+#define DEF_MENU_ENTRY_SELECT	(char *) NULL
+#define DEF_MENU_ENTRY_UNDERLINE	"-1"
+
+/*
+ * Defaults for menus overall:
+ */
+
+#define DEF_MENU_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_MENU_ACTIVE_BG_MONO		BLACK
+#define DEF_MENU_ACTIVE_BORDER_WIDTH	"2"
+#define DEF_MENU_ACTIVE_FG_COLOR	BLACK
+#define DEF_MENU_ACTIVE_FG_MONO		WHITE
+#define DEF_MENU_BG_COLOR		NORMAL_BG
+#define DEF_MENU_BG_MONO		WHITE
+#define DEF_MENU_BORDER_WIDTH		"2"
+#define DEF_MENU_CURSOR			"arrow"
+#define DEF_MENU_DISABLED_FG_COLOR	DISABLED
+#define DEF_MENU_DISABLED_FG_MONO	""
+#define DEF_MENU_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MENU_FG			BLACK
+#define DEF_MENU_POST_COMMAND		""
+#define DEF_MENU_RELIEF			"raised"
+#define DEF_MENU_SELECT_COLOR		INDICATOR
+#define DEF_MENU_SELECT_MONO		BLACK
+#ifdef STk_CODE
+#  define DEF_MENU_TAKE_FOCUS		"#f"
+#  define DEF_MENU_TEAROFF		"#t"
+#else
+#  define DEF_MENU_TAKE_FOCUS		"0"
+#  define DEF_MENU_TEAROFF		"1"
+#endif
+#define DEF_MENU_TEAROFF_CMD		(char *) NULL
+#define DEF_MENU_TRANSIENT		"1"
+
+/*
+ * Defaults for menubuttons:
+ */
+
+#define DEF_MENUBUTTON_ANCHOR		"center"
+#define DEF_MENUBUTTON_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_MENUBUTTON_ACTIVE_BG_MONO	BLACK
+#define DEF_MENUBUTTON_ACTIVE_FG_COLOR	BLACK
+#define DEF_MENUBUTTON_ACTIVE_FG_MONO	WHITE
+#define DEF_MENUBUTTON_BG_COLOR		NORMAL_BG
+#define DEF_MENUBUTTON_BG_MONO		WHITE
+#define DEF_MENUBUTTON_BITMAP		""
+#define DEF_MENUBUTTON_BORDER_WIDTH	"2"
+#define DEF_MENUBUTTON_CURSOR		""
+#define DEF_MENUBUTTON_DISABLED_FG_COLOR DISABLED
+#define DEF_MENUBUTTON_DISABLED_FG_MONO	""
+#define DEF_MENUBUTTON_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MENUBUTTON_FG		BLACK
+#define DEF_MENUBUTTON_HEIGHT		"0"
+#define DEF_MENUBUTTON_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_MENUBUTTON_HIGHLIGHT	BLACK
+#define DEF_MENUBUTTON_HIGHLIGHT_WIDTH	"0"
+#define DEF_MENUBUTTON_IMAGE		(char *) NULL
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_INDICATOR	"#f"
+#else
+#  define DEF_MENUBUTTON_INDICATOR	"0"
+#endif
+#define DEF_MENUBUTTON_JUSTIFY		"center"
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_MENU		"#f"
+#else
+#  define DEF_MENUBUTTON_MENU		""
+#endif
+#define DEF_MENUBUTTON_PADX		"4p"
+#define DEF_MENUBUTTON_PADY		"3p"
+#define DEF_MENUBUTTON_RELIEF		"flat"
+#define DEF_MENUBUTTON_STATE		"normal"
+#ifdef STk_CODE
+#  define DEF_MENUBUTTON_TAKE_FOCUS	"#f"
+#else
+#  define DEF_MENUBUTTON_TAKE_FOCUS	"0"
+#endif
+#define DEF_MENUBUTTON_TEXT		""
+#define DEF_MENUBUTTON_TEXT_VARIABLE	""
+#define DEF_MENUBUTTON_UNDERLINE	"-1"
+#define DEF_MENUBUTTON_WIDTH		"0"
+#define DEF_MENUBUTTON_WRAP_LENGTH	"0"
+
+/*
+ * Defaults for messages:
+ */
+
+#define DEF_MESSAGE_ANCHOR		"center"
+#define DEF_MESSAGE_ASPECT		"150"
+#define DEF_MESSAGE_BG_COLOR		NORMAL_BG
+#define DEF_MESSAGE_BG_MONO		WHITE
+#define DEF_MESSAGE_BORDER_WIDTH	"2"
+#define DEF_MESSAGE_CURSOR		""
+#define DEF_MESSAGE_FG			BLACK
+#define DEF_MESSAGE_FONT		"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_MESSAGE_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_MESSAGE_HIGHLIGHT		BLACK
+#define DEF_MESSAGE_HIGHLIGHT_WIDTH	"0"
+#define DEF_MESSAGE_JUSTIFY		"left"
+#define DEF_MESSAGE_PADX		"-1"
+#define DEF_MESSAGE_PADY		"-1"
+#define DEF_MESSAGE_RELIEF		"flat"
+#ifdef STk_CODE
+#  define DEF_MESSAGE_TAKE_FOCUS	"#f"
+#else
+#  define DEF_MESSAGE_TAKE_FOCUS	"0"
+#endif
+#define DEF_MESSAGE_TEXT		""
+#define DEF_MESSAGE_TEXT_VARIABLE	""
+#define DEF_MESSAGE_WIDTH		"0"
+
+/*
+ * Defaults for scales:
+ */
+
+#define DEF_SCALE_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_SCALE_ACTIVE_BG_MONO	BLACK
+#define DEF_SCALE_BG_COLOR		NORMAL_BG
+#define DEF_SCALE_BG_MONO		WHITE
+#define DEF_SCALE_BIG_INCREMENT		"0"
+#define DEF_SCALE_BORDER_WIDTH		"2"
+#define DEF_SCALE_COMMAND		""
+#define DEF_SCALE_CURSOR		""
+#define DEF_SCALE_DIGITS		"0"
+#define DEF_SCALE_FONT			"-Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_SCALE_FG_COLOR		BLACK
+#define DEF_SCALE_FG_MONO		BLACK
+#define DEF_SCALE_FROM			"0"
+#define DEF_SCALE_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_SCALE_HIGHLIGHT		BLACK
+#define DEF_SCALE_HIGHLIGHT_WIDTH	"2"
+#define DEF_SCALE_LABEL			""
+#define DEF_SCALE_LENGTH		"100"
+#define DEF_SCALE_ORIENT		"vertical"
+#define DEF_SCALE_RELIEF		"flat"
+#define DEF_SCALE_REPEAT_DELAY	"300"
+#define DEF_SCALE_REPEAT_INTERVAL	"100"
+#define DEF_SCALE_RESOLUTION		"1"
+#define DEF_SCALE_TROUGH_COLOR		TROUGH
+#define DEF_SCALE_TROUGH_MONO		WHITE
+#ifdef STk_CODE
+#define DEF_SCALE_SHOW_VALUE		"#t"
+#else
+#define DEF_SCALE_SHOW_VALUE		"1"
+#endif
+#define DEF_SCALE_SLIDER_LENGTH		"30"
+#define DEF_SCALE_SLIDER_RELIEF		"raised"
+#define DEF_SCALE_STATE			"normal"
+#define DEF_SCALE_TAKE_FOCUS		(char *) NULL
+#define DEF_SCALE_TICK_INTERVAL		"0"
+#define DEF_SCALE_TO			"100"
+#define DEF_SCALE_VARIABLE		""
+#define DEF_SCALE_WIDTH			"15"
+
+/*
+ * Defaults for scrollbars:
+ */
+
+#define DEF_SCROLLBAR_ACTIVE_BG_COLOR	ACTIVE_BG
+#define DEF_SCROLLBAR_ACTIVE_BG_MONO	BLACK
+#define DEF_SCROLLBAR_ACTIVE_RELIEF	"raised"
+#define DEF_SCROLLBAR_BG_COLOR		NORMAL_BG
+#define DEF_SCROLLBAR_BG_MONO		WHITE
+#define DEF_SCROLLBAR_BORDER_WIDTH	"2"
+#define DEF_SCROLLBAR_COMMAND		""
+#define DEF_SCROLLBAR_CURSOR		""
+#define DEF_SCROLLBAR_EL_BORDER_WIDTH	"-1"
+#define DEF_SCROLLBAR_HIGHLIGHT_BG	NORMAL_BG
+#define DEF_SCROLLBAR_HIGHLIGHT		BLACK
+#define DEF_SCROLLBAR_HIGHLIGHT_WIDTH	"2"
+#ifdef STk_CODE
+#  define DEF_SCROLLBAR_JUMP		"#f"
+#else
+#  define DEF_SCROLLBAR_JUMP		"0"
+#endif
+#define DEF_SCROLLBAR_ORIENT		"vertical"
+#define DEF_SCROLLBAR_RELIEF		"sunken"
+#define DEF_SCROLLBAR_REPEAT_DELAY	"300"
+#define DEF_SCROLLBAR_REPEAT_INTERVAL	"100"
+#define DEF_SCROLLBAR_TAKE_FOCUS	(char *) NULL
+#define DEF_SCROLLBAR_TROUGH_COLOR	TROUGH
+#define DEF_SCROLLBAR_TROUGH_MONO	WHITE
+#define DEF_SCROLLBAR_WIDTH		"15"
+
+/*
+ * Defaults for texts:
+ */
+
+#define DEF_TEXT_BG_COLOR		NORMAL_BG
+#define DEF_TEXT_BG_MONO		WHITE
+#define DEF_TEXT_BORDER_WIDTH		"2"
+#define DEF_TEXT_CURSOR			"xterm"
+#define DEF_TEXT_FG			BLACK
+#ifdef STk_CODE
+#  define DEF_TEXT_EXPORT_SELECTION	"#t"
+#else
+#  define DEF_TEXT_EXPORT_SELECTION	"1"
+#endif
+#define DEF_TEXT_FONT			"-*-Courier-Medium-R-Normal--*-120-*-*-*-*-*-*"
+#define DEF_TEXT_HEIGHT			"24"
+#define DEF_TEXT_HIGHLIGHT_BG		NORMAL_BG
+#define DEF_TEXT_HIGHLIGHT		BLACK
+#define DEF_TEXT_HIGHLIGHT_WIDTH	"2"
+#define DEF_TEXT_INSERT_BG		BLACK
+#define DEF_TEXT_INSERT_BD_COLOR	"0"
+#define DEF_TEXT_INSERT_BD_MONO		"0"
+#define DEF_TEXT_INSERT_OFF_TIME	"300"
+#define DEF_TEXT_INSERT_ON_TIME		"600"
+#define DEF_TEXT_INSERT_WIDTH		"2"
+#define DEF_TEXT_PADX			"1"
+#define DEF_TEXT_PADY			"1"
+#define DEF_TEXT_RELIEF			"sunken"
+#define DEF_TEXT_SELECT_COLOR		SELECT_BG
+#define DEF_TEXT_SELECT_MONO		BLACK
+#define DEF_TEXT_SELECT_BD_COLOR	"1"
+#define DEF_TEXT_SELECT_BD_MONO		"0"
+#define DEF_TEXT_SELECT_FG_COLOR	SELECT_FG
+#define DEF_TEXT_SELECT_FG_MONO		WHITE
+#ifdef STk_CODE
+#  define DEF_TEXT_SET_GRID		"#f"
+#else
+#  define DEF_TEXT_SET_GRID		"0"
+#endif
+#define DEF_TEXT_SPACING1		"0"
+#define DEF_TEXT_SPACING2		"0"
+#define DEF_TEXT_SPACING3		"0"
+#define DEF_TEXT_STATE			"normal"
+#define DEF_TEXT_TABS			""
+#define DEF_TEXT_TAKE_FOCUS		(char *) NULL
+#define DEF_TEXT_WIDTH			"80"
+#define DEF_TEXT_WRAP			"char"
+#define DEF_TEXT_XSCROLL_COMMAND	""
+#define DEF_TEXT_YSCROLL_COMMAND	""
+
+/*
+ * Defaults for toplevels (most of the defaults for frames also apply
+ * to toplevels):
+ */
+
+#define DEF_TOPLEVEL_CLASS		"Toplevel"
+#define DEF_TOPLEVEL_SCREEN		""
+
+#endif /* _TKWINDEFAULT */
diff --git a/Tk/win/tkWinDraw.c b/Tk/win/tkWinDraw.c
new file mode 100644
index 0000000..32c575c
--- /dev/null
+++ b/Tk/win/tkWinDraw.c
@@ -0,0 +1,1258 @@
+/* 
+ * tkWinDraw.c --
+ *
+ *	This file contains the Xlib emulation functions pertaining to
+ *	actually drawing objects on a window.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ * Copyright (c) 1994 Software Research Associates, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinDraw.c 1.19 96/07/23 16:57:19
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * These macros convert between X's bizarre angle units to radians.
+ */
+
+#define PI 3.14159265358979
+#define XAngleToRadians(a) ((double)(a) / 64 * PI / 180);
+
+/*
+ * Translation table between X gc functions and Win32 raster op modes.
+ */
+
+static int ropModes[] = {
+    R2_BLACK,			/* GXclear */
+    R2_MASKPEN,			/* GXand */
+    R2_MASKPENNOT,		/* GXandReverse */
+    R2_COPYPEN,			/* GXcopy */
+    R2_MASKNOTPEN,		/* GXandInverted */
+    R2_NOT,			/* GXnoop */
+    R2_XORPEN,			/* GXxor */
+    R2_MERGEPEN,		/* GXor */
+    R2_NOTMERGEPEN,		/* GXnor */
+    R2_NOTXORPEN,		/* GXequiv */
+    R2_NOT,			/* GXinvert */
+    R2_MERGEPENNOT,		/* GXorReverse */
+    R2_NOTCOPYPEN,		/* GXcopyInverted */
+    R2_MERGENOTPEN,		/* GXorInverted */
+    R2_NOTMASKPEN,		/* GXnand */
+    R2_WHITE			/* GXset */
+};
+
+/*
+ * Translation table between X gc functions and Win32 BitBlt op modes.  Some
+ * of the operations defined in X don't have names, so we have to construct
+ * new opcodes for those functions.  This is arcane and probably not all that
+ * useful, but at least it's accurate.
+ */
+
+#define NOTSRCAND	(DWORD)0x00220326 /* dest = (NOT source) AND dest */
+#define NOTSRCINVERT	(DWORD)0x00990066 /* dest = (NOT source) XOR dest */
+#define SRCORREVERSE	(DWORD)0x00DD0228 /* dest = source OR (NOT dest) */
+#define SRCNAND		(DWORD)0x007700E6 /* dest = NOT (source AND dest) */
+
+static int bltModes[] = {
+    BLACKNESS,			/* GXclear */
+    SRCAND,			/* GXand */
+    SRCERASE,			/* GXandReverse */
+    SRCCOPY,			/* GXcopy */
+    NOTSRCAND,			/* GXandInverted */
+    PATCOPY,			/* GXnoop */
+    SRCINVERT,			/* GXxor */
+    SRCPAINT,			/* GXor */
+    NOTSRCERASE,		/* GXnor */
+    NOTSRCINVERT,		/* GXequiv */
+    DSTINVERT,			/* GXinvert */
+    SRCORREVERSE,		/* GXorReverse */
+    NOTSRCCOPY,			/* GXcopyInverted */
+    MERGEPAINT,			/* GXorInverted */
+    SRCNAND,			/* GXnand */
+    WHITENESS			/* GXset */
+};
+
+/*
+ * The following raster op uses the source bitmap as a mask for the
+ * pattern.  This is used to draw in a foreground color but leave the
+ * background color transparent.
+ */
+
+#define MASKPAT		0x00E20746 /* dest = (src & pat) | (!src & dst) */
+
+/*
+ * The following two raster ops are used to copy the foreground and background
+ * bits of a source pattern as defined by a stipple used as the pattern.
+ */
+
+#define COPYFG		0x00CA0749 /* dest = (pat & src) | (!pat & dst) */
+#define COPYBG		0x00AC0744 /* dest = (!pat & src) | (pat & dst) */
+
+/*
+ * Macros used later in the file.
+ */
+
+#define MIN(a,b)	((a>b) ? b : a)
+#define MAX(a,b)	((a<b) ? b : a)
+
+/*
+ * The followng typedef is used to pass Windows GDI drawing functions.
+ */
+
+typedef BOOL (CALLBACK *WinDrawFunc) _ANSI_ARGS_((HDC dc,
+			    CONST POINT* points, int npoints));
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static POINT *		ConvertPoints _ANSI_ARGS_((XPoint *points, int npoints,
+			    int mode, RECT *bbox));
+static void		DrawOrFillArc _ANSI_ARGS_((Display *display,
+			    Drawable d, GC gc, int x, int y,
+			    unsigned int width, unsigned int height,
+			    int angle1, int angle2, int fill));
+static void		RenderObject _ANSI_ARGS_((HDC dc, GC gc,
+			    XPoint* points, int npoints, int mode, HPEN pen,
+			    WinDrawFunc func));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetDrawableDC --
+ *
+ *	Retrieve the DC from a drawable.
+ *
+ * Results:
+ *	Returns the window DC for windows.  Returns a new memory DC
+ *	for pixmaps.
+ *
+ * Side effects:
+ *	Sets up the palette for the device context, and saves the old
+ *	device context state in the passed in TkWinDCState structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+HDC
+TkWinGetDrawableDC(display, d, state)
+    Display *display;
+    Drawable d;
+    TkWinDCState* state;
+{
+    HDC dc;
+    TkWinDrawable *twdPtr = (TkWinDrawable *)d;
+    Colormap cmap;
+
+    if (twdPtr->type != TWD_BITMAP) {
+	TkWindow *winPtr = twdPtr->window.winPtr;
+    
+ 	dc = GetDC(twdPtr->window.handle);
+	if (winPtr == NULL) {
+	    cmap = DefaultColormap(display, DefaultScreen(display));
+	} else {
+	    cmap = winPtr->atts.colormap;
+	}
+    } else {
+	HDC dcMem;
+	dc = GetDC(NULL);
+	dcMem = CreateCompatibleDC(dc);
+	ReleaseDC(NULL, dc);
+	SelectObject(dcMem, twdPtr->bitmap.handle);
+	dc = dcMem;
+	cmap = twdPtr->bitmap.colormap;
+    }
+    state->palette = TkWinSelectPalette(dc, cmap);
+    return dc;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinReleaseDrawableDC --
+ *
+ *	Frees the resources associated with a drawable's DC.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Restores the old bitmap handle to the memory DC for pixmaps.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinReleaseDrawableDC(d, dc, state)
+    Drawable d;
+    HDC dc;
+    TkWinDCState *state;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *)d;
+    SelectPalette(dc, state->palette, TRUE);
+    RealizePalette(dc);
+    if (twdPtr->type != TWD_BITMAP) {
+	ReleaseDC(TkWinGetHWND(d), dc);
+    } else {
+	DeleteDC(dc);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * ConvertPoints --
+ *
+ *	Convert an array of X points to an array of Win32 points.
+ *
+ * Results:
+ *	Returns the converted array of POINTs.
+ *
+ * Side effects:
+ *	Allocates a block of memory that should not be freed.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static POINT *
+ConvertPoints(points, npoints, mode, bbox)
+    XPoint *points;
+    int npoints;
+    int mode;			/* CoordModeOrigin or CoordModePrevious. */
+    RECT *bbox;			/* Bounding box of points. */
+{
+    static POINT *winPoints = NULL; /* Array of points that is reused. */
+    static int nWinPoints = -1;	    /* Current size of point array. */
+    int i;
+
+    /*
+     * To avoid paying the cost of a malloc on every drawing routine,
+     * we reuse the last array if it is large enough.
+     */
+
+    if (npoints > nWinPoints) {
+	if (winPoints != NULL) {
+	    ckfree((char *) winPoints);
+	}
+	winPoints = (POINT *) ckalloc(sizeof(POINT) * npoints);
+	if (winPoints == NULL) {
+	    nWinPoints = -1;
+	    return NULL;
+	}
+	nWinPoints = npoints;
+    }
+
+    bbox->left = bbox->right = points[0].x;
+    bbox->top = bbox->bottom = points[0].y;
+    
+    if (mode == CoordModeOrigin) {
+	for (i = 0; i < npoints; i++) {
+	    winPoints[i].x = points[i].x;
+	    winPoints[i].y = points[i].y;
+	    bbox->left = MIN(bbox->left, winPoints[i].x);
+	    bbox->right = MAX(bbox->right, winPoints[i].x);
+	    bbox->top = MIN(bbox->top, winPoints[i].y);
+	    bbox->bottom = MAX(bbox->bottom, winPoints[i].y);
+	}
+    } else {
+	winPoints[0].x = points[0].x;
+	winPoints[0].y = points[0].y;
+	for (i = 1; i < npoints; i++) {
+	    winPoints[i].x = winPoints[i-1].x + points[i].x;
+	    winPoints[i].y = winPoints[i-1].y + points[i].y;
+	    bbox->left = MIN(bbox->left, winPoints[i].x);
+	    bbox->right = MAX(bbox->right, winPoints[i].x);
+	    bbox->top = MIN(bbox->top, winPoints[i].y);
+	    bbox->bottom = MAX(bbox->bottom, winPoints[i].y);
+	}
+    }
+    return winPoints;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCopyArea --
+ *
+ *	Copies data from one drawable to another using block transfer
+ *	routines.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Data is moved from a window or bitmap to a second window or
+ *	bitmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XCopyArea(display, src, dest, gc, src_x, src_y, width, height, dest_x, dest_y)
+    Display* display;
+    Drawable src;
+    Drawable dest;
+    GC gc;
+    int src_x, src_y;
+    unsigned int width, height;
+    int dest_x, dest_y;
+{
+    HDC srcDC, destDC;
+    TkWinDCState srcState, destState;
+
+    srcDC = TkWinGetDrawableDC(display, src, &srcState);
+
+    if (src != dest) {
+	destDC = TkWinGetDrawableDC(display, dest, &destState);
+    } else {
+	destDC = srcDC;
+    }
+
+    BitBlt(destDC, dest_x, dest_y, width, height, srcDC, src_x, src_y,
+	    bltModes[gc->function]);
+
+    if (src != dest) {
+	TkWinReleaseDrawableDC(dest, destDC, &destState);
+    }
+    TkWinReleaseDrawableDC(src, srcDC, &srcState);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCopyPlane --
+ *
+ *	Copies a bitmap from a source drawable to a destination
+ *	drawable.  The plane argument specifies which bit plane of
+ *	the source contains the bitmap.  Note that this implementation
+ *	ignores the gc->function.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the destination drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XCopyPlane(display, src, dest, gc, src_x, src_y, width, height, dest_x,
+	dest_y, plane)
+    Display* display;
+    Drawable src;
+    Drawable dest;
+    GC gc;
+    int src_x, src_y;
+    unsigned int width, height;
+    int dest_x, dest_y;
+    unsigned long plane;
+{
+    HDC srcDC, destDC;
+    TkWinDCState srcState, destState;
+    HBRUSH bgBrush, fgBrush, oldBrush;
+
+    display->request++;
+
+    if (plane != 1) {
+	panic("Unexpected plane specified for XCopyPlane");
+    }
+
+    srcDC = TkWinGetDrawableDC(display, src, &srcState);
+
+    if (src != dest) {
+	destDC = TkWinGetDrawableDC(display, dest, &destState);
+    } else {
+	destDC = srcDC;
+    }
+
+    if (gc->clip_mask == src) {
+
+	/*
+	 * Case 1: transparent bitmaps are handled by setting the
+	 * destination to the foreground color whenever the source
+	 * pixel is set.
+	 */
+
+	fgBrush = CreateSolidBrush(gc->foreground);
+	oldBrush = SelectObject(destDC, fgBrush);
+	BitBlt(destDC, dest_x, dest_y, width, height, srcDC, src_x, src_y,
+		MASKPAT);
+	SelectObject(destDC, oldBrush);
+	DeleteObject(fgBrush);
+    } else if (gc->clip_mask == None) {
+
+	/*
+	 * Case 2: opaque bitmaps.  Windows handles the conversion
+	 * from one bit to multiple bits by setting 0 to the
+	 * foreground color, and 1 to the background color (seems
+	 * backwards, but there you are).
+	 */
+
+	SetBkMode(destDC, OPAQUE);
+	SetBkColor(destDC, gc->foreground);
+	SetTextColor(destDC, gc->background);
+	BitBlt(destDC, dest_x, dest_y, width, height, srcDC, src_x, src_y,
+		SRCCOPY);
+    } else {
+
+	/*
+	 * Case 3: two arbitrary bitmaps.  Copy the source rectangle
+	 * into a color pixmap.  Use the result as a brush when
+	 * copying the clip mask into the destination.	 
+	 */
+
+	HDC memDC, maskDC;
+	HBITMAP bitmap;
+	TkWinDCState maskState;
+
+	fgBrush = CreateSolidBrush(gc->foreground);
+	bgBrush = CreateSolidBrush(gc->background);
+	maskDC = TkWinGetDrawableDC(display, gc->clip_mask, &maskState);
+	memDC = CreateCompatibleDC(destDC);
+	bitmap = CreateBitmap(width, height, 1, 1, NULL);
+	SelectObject(memDC, bitmap);
+
+	/*
+	 * Set foreground bits.  We create a new bitmap containing
+	 * (source AND mask), then use it to set the foreground color
+	 * into the destination.
+	 */
+
+	BitBlt(memDC, 0, 0, width, height, srcDC, src_x, src_y, SRCCOPY);
+	BitBlt(memDC, 0, 0, width, height, maskDC, dest_x - gc->clip_x_origin,
+		dest_y - gc->clip_y_origin, SRCAND);
+	oldBrush = SelectObject(destDC, fgBrush);
+	BitBlt(destDC, dest_x, dest_y, width, height, memDC, 0, 0, MASKPAT);
+
+	/*
+	 * Set background bits.  Same as foreground, except we use
+	 * ((NOT source) AND mask) and the background brush.
+	 */
+
+	BitBlt(memDC, 0, 0, width, height, srcDC, src_x, src_y, NOTSRCCOPY);
+	BitBlt(memDC, 0, 0, width, height, maskDC, dest_x - gc->clip_x_origin,
+		dest_y - gc->clip_y_origin, SRCAND);
+	SelectObject(destDC, bgBrush);
+	BitBlt(destDC, dest_x, dest_y, width, height, memDC, 0, 0, MASKPAT);
+	
+
+	TkWinReleaseDrawableDC(gc->clip_mask, maskDC, &maskState);
+	SelectObject(destDC, oldBrush);
+	DeleteDC(memDC);
+	DeleteObject(bitmap);
+	DeleteObject(fgBrush);
+	DeleteObject(bgBrush);
+    }
+    if (src != dest) {
+	TkWinReleaseDrawableDC(dest, destDC, &destState);
+    }
+    TkWinReleaseDrawableDC(src, srcDC, &srcState);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkPutImage --
+ *
+ *	Copies a subimage from an in-memory image to a rectangle of
+ *	of the specified drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws the image on the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkPutImage(colors, ncolors, display, d, gc, image, src_x, src_y, dest_x,
+	dest_y, width, height)
+    unsigned long *colors;		/* Array of pixel values used by this
+					 * image.  May be NULL. */
+    int ncolors;			/* Number of colors used, or 0. */
+    Display* display;
+    Drawable d;				/* Destination drawable. */
+    GC gc;
+    XImage* image;			/* Source image. */
+    int src_x, src_y;			/* Offset of subimage. */      
+    int dest_x, dest_y;			/* Position of subimage origin in
+					 * drawable.  */
+    unsigned int width, height;		/* Dimensions of subimage. */
+{
+    HDC dc, dcMem;
+    TkWinDCState state;
+    BITMAPINFO *infoPtr;
+    HBITMAP bitmap;
+    char *data;
+
+    display->request++;
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+    SetROP2(dc, ropModes[gc->function]);
+    dcMem = CreateCompatibleDC(dc);
+
+    if (image->bits_per_pixel == 1) {
+	data = TkAlignImageData(image, sizeof(WORD), MSBFirst);
+	bitmap = CreateBitmap(width, height, 1, 1, data);
+	SetTextColor(dc, gc->foreground);
+	SetBkColor(dc, gc->background);
+	ckfree(data);
+    } else {    
+	int i, usePalette;
+
+	/*
+	 * Do not use a palette for TrueColor images.
+	 */
+	
+	usePalette = (image->bits_per_pixel < 24);
+	
+	if (usePalette) {
+	    infoPtr = (BITMAPINFO*) ckalloc(sizeof(BITMAPINFOHEADER)
+		    + sizeof(RGBQUAD)*ncolors);
+	} else {
+	    infoPtr = (BITMAPINFO*) ckalloc(sizeof(BITMAPINFOHEADER));
+	}
+	
+	infoPtr->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+	infoPtr->bmiHeader.biWidth = image->width;
+
+	/*
+	 * The following code works around a bug in Win32s.  CreateDIBitmap
+	 * fails under Win32s for top-down images.  So we have to reverse the
+	 * order of the scanlines.  If we are not running under Win32s, we can
+	 * just declare the image to be top-down.
+	 */
+
+	if ((GetVersion() & 0x80000000)) {
+	    int y;
+	    char *srcPtr, *dstPtr, *temp;
+
+	    temp = ckalloc((unsigned) image->bytes_per_line);
+	    srcPtr = image->data;
+	    dstPtr = image->data+(image->bytes_per_line * (image->height - 1));
+	    for (y = 0; y < (image->height/2); y++) {
+		memcpy(temp, srcPtr, image->bytes_per_line);
+		memcpy(srcPtr, dstPtr, image->bytes_per_line);
+		memcpy(dstPtr, temp, image->bytes_per_line);
+		srcPtr += image->bytes_per_line;
+		dstPtr -= image->bytes_per_line;
+	    }
+	    ckfree(temp);
+	    infoPtr->bmiHeader.biHeight = image->height; /* Bottom-up order */
+	} else {
+	    infoPtr->bmiHeader.biHeight = -image->height; /* Top-down order */
+	}
+	infoPtr->bmiHeader.biPlanes = 1;
+	infoPtr->bmiHeader.biBitCount = image->bits_per_pixel;
+	infoPtr->bmiHeader.biCompression = BI_RGB;
+	infoPtr->bmiHeader.biSizeImage = 0;
+	infoPtr->bmiHeader.biXPelsPerMeter = 0;
+	infoPtr->bmiHeader.biYPelsPerMeter = 0;
+	infoPtr->bmiHeader.biClrImportant = 0;
+
+	if (usePalette) {
+	    infoPtr->bmiHeader.biClrUsed = ncolors;
+	    for (i = 0; i < ncolors; i++) {
+		infoPtr->bmiColors[i].rgbBlue = GetBValue(colors[i]);
+		infoPtr->bmiColors[i].rgbGreen = GetGValue(colors[i]);
+		infoPtr->bmiColors[i].rgbRed = GetRValue(colors[i]);
+		infoPtr->bmiColors[i].rgbReserved = 0;
+	    }
+	} else {
+	    infoPtr->bmiHeader.biClrUsed = 0;
+	}
+	bitmap = CreateDIBitmap(dc, &infoPtr->bmiHeader, CBM_INIT,
+		image->data, infoPtr, DIB_RGB_COLORS);
+	ckfree((char*)infoPtr);
+    }
+    bitmap = SelectObject(dcMem, bitmap);
+    BitBlt(dc, dest_x, dest_y, width, height, dcMem, src_x, src_y, SRCCOPY);
+    DeleteObject(SelectObject(dcMem, bitmap));
+    DeleteObject(dcMem);
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawString --
+ *
+ *	Draw a single string in the current font.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Renders the specified string in the drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDrawString(display, d, gc, x, y, string, length)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+    _Xconst char* string;
+    int length;
+{
+    HDC dc;
+    HFONT oldFont;
+    TkWinDCState state;
+
+    display->request++;
+
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+    SetROP2(dc, ropModes[gc->function]);
+
+    if ((gc->fill_style == FillStippled
+	    || gc->fill_style == FillOpaqueStippled)
+	    && gc->stipple != None) {
+	TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
+	HBRUSH oldBrush, stipple;
+	HBITMAP oldBitmap, bitmap;
+	HDC dcMem;
+	TEXTMETRIC tm;
+	SIZE size;
+
+	if (twdPtr->type != TWD_BITMAP) {
+	    panic("unexpected drawable type in stipple");
+	}
+
+	/*
+	 * Select stipple pattern into destination dc.
+	 */
+	
+	dcMem = CreateCompatibleDC(dc);
+
+	stipple = CreatePatternBrush(twdPtr->bitmap.handle);
+	SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
+	oldBrush = SelectObject(dc, stipple);
+
+	SetTextAlign(dcMem, TA_LEFT | TA_TOP);
+	SetTextColor(dcMem, gc->foreground);
+	SetBkMode(dcMem, TRANSPARENT);
+	SetBkColor(dcMem, RGB(0, 0, 0));
+
+	if (gc->font != None) {
+	    oldFont = SelectObject(dcMem, (HFONT)gc->font);
+	}
+
+	/*
+	 * Compute the bounding box and create a compatible bitmap.
+	 */
+
+	GetTextExtentPoint(dcMem, string, length, &size);
+	GetTextMetrics(dcMem, &tm);
+	size.cx -= tm.tmOverhang;
+	bitmap = CreateCompatibleBitmap(dc, size.cx, size.cy);
+	oldBitmap = SelectObject(dcMem, bitmap);
+
+	/*
+	 * The following code is tricky because fonts are rendered in multiple
+	 * colors.  First we draw onto a black background and copy the white
+	 * bits.  Then we draw onto a white background and copy the black bits.
+	 * Both the foreground and background bits of the font are ANDed with
+	 * the stipple pattern as they are copied.
+	 */
+
+	PatBlt(dcMem, 0, 0, size.cx, size.cy, BLACKNESS);
+	TextOut(dcMem, 0, 0, string, length);
+	BitBlt(dc, x, y - tm.tmAscent, size.cx, size.cy, dcMem,
+		0, 0, 0xEA02E9);
+	PatBlt(dcMem, 0, 0, size.cx, size.cy, WHITENESS);
+	TextOut(dcMem, 0, 0, string, length);
+	BitBlt(dc, x, y - tm.tmAscent, size.cx, size.cy, dcMem,
+		0, 0, 0x8A0E06);
+
+	/*
+	 * Destroy the temporary bitmap and restore the device context.
+	 */
+
+	if (gc->font != None) {
+	    SelectObject(dcMem, oldFont);
+	}
+	SelectObject(dcMem, oldBitmap);
+	DeleteObject(bitmap);
+	DeleteDC(dcMem);
+	SelectObject(dc, oldBrush);
+	DeleteObject(stipple);
+    } else {
+	SetTextAlign(dc, TA_LEFT | TA_BASELINE);
+	SetTextColor(dc, gc->foreground);
+	SetBkMode(dc, TRANSPARENT);
+	if (gc->font != None) {
+	    oldFont = SelectObject(dc, (HFONT)gc->font);
+	}
+	TextOut(dc, x, y, string, length);
+	if (gc->font != None) {
+	    SelectObject(dc, oldFont);
+	}
+    }
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFillRectangles --
+ *
+ *	Fill multiple rectangular areas in the given drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws onto the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFillRectangles(display, d, gc, rectangles, nrectangles)
+    Display* display;
+    Drawable d;
+    GC gc;
+    XRectangle* rectangles;
+    int nrectangles;
+{
+    HDC dc;
+    HBRUSH brush;
+    int i;
+    RECT rect;
+    TkWinDCState state;
+
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+    SetROP2(dc, ropModes[gc->function]);
+    brush = CreateSolidBrush(gc->foreground);
+
+    if ((gc->fill_style == FillStippled
+	    || gc->fill_style == FillOpaqueStippled)
+	    && gc->stipple != None) {
+	TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
+	HBRUSH oldBrush, stipple;
+	HBITMAP oldBitmap, bitmap;
+	HDC dcMem;
+	HBRUSH bgBrush = CreateSolidBrush(gc->background);
+
+	if (twdPtr->type != TWD_BITMAP) {
+	    panic("unexpected drawable type in stipple");
+	}
+
+	/*
+	 * Select stipple pattern into destination dc.
+	 */
+	
+	stipple = CreatePatternBrush(twdPtr->bitmap.handle);
+	SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
+	oldBrush = SelectObject(dc, stipple);
+	dcMem = CreateCompatibleDC(dc);
+
+	/*
+	 * For each rectangle, create a drawing surface which is the size of
+	 * the rectangle and fill it with the background color.  Then merge the
+	 * result with the stipple pattern.
+	 */
+
+	for (i = 0; i < nrectangles; i++) {
+	    bitmap = CreateCompatibleBitmap(dc, rectangles[i].width,
+		    rectangles[i].height);
+	    oldBitmap = SelectObject(dcMem, bitmap);
+	    rect.left = 0;
+	    rect.top = 0;
+	    rect.right = rectangles[i].width;
+	    rect.bottom = rectangles[i].height;
+	    FillRect(dcMem, &rect, brush);
+	    BitBlt(dc, rectangles[i].x, rectangles[i].y, rectangles[i].width,
+		    rectangles[i].height, dcMem, 0, 0, COPYFG);
+	    if (gc->fill_style == FillOpaqueStippled) {
+		FillRect(dcMem, &rect, bgBrush);
+		BitBlt(dc, rectangles[i].x, rectangles[i].y,
+			rectangles[i].width, rectangles[i].height, dcMem,
+			0, 0, COPYBG);
+	    }
+	    SelectObject(dcMem, oldBitmap);
+	    DeleteObject(bitmap);
+	}
+	
+	DeleteDC(dcMem);
+	SelectObject(dc, oldBrush);
+	DeleteObject(stipple);
+    } else {
+	for (i = 0; i < nrectangles; i++) {
+	    rect.left = rectangles[i].x;
+	    rect.top = rectangles[i].y;
+	    rect.right = rect.left + rectangles[i].width;
+	    rect.bottom = rect.top + rectangles[i].height;
+	    FillRect(dc, &rect, brush);
+	}
+    }
+    DeleteObject(brush);
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RenderObject --
+ *
+ *	This function draws a shape using a list of points, a
+ *	stipple pattern, and the specified drawing function.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RenderObject(dc, gc, points, npoints, mode, pen, func)
+    HDC dc;
+    GC gc;
+    XPoint* points;
+    int npoints;
+    int mode;
+    HPEN pen;
+    WinDrawFunc func;
+{
+    RECT rect;
+    HPEN oldPen;
+    HBRUSH oldBrush;
+    POINT *winPoints = ConvertPoints(points, npoints, mode, &rect);
+    
+    if ((gc->fill_style == FillStippled
+	    || gc->fill_style == FillOpaqueStippled)
+	    && gc->stipple != None) {
+
+	TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
+	HDC dcMem;
+	LONG width, height;
+	HBITMAP oldBitmap;
+	int i;
+	HBRUSH oldMemBrush;
+	
+	if (twdPtr->type != TWD_BITMAP) {
+	    panic("unexpected drawable type in stipple");
+	}
+
+    
+	width = rect.right - rect.left;
+	height = rect.bottom - rect.top;
+
+	/*
+	 * Select stipple pattern into destination dc.
+	 */
+	
+	oldBrush = SelectObject(dc, CreatePatternBrush(twdPtr->bitmap.handle));
+	SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
+
+	/*
+	 * Create temporary drawing surface containing a copy of the
+	 * destination equal in size to the bounding box of the object.
+	 */
+	
+	dcMem = CreateCompatibleDC(dc);
+	oldBitmap = SelectObject(dcMem, CreateCompatibleBitmap(dc, width,
+		height));
+	oldPen = SelectObject(dcMem, pen);
+	BitBlt(dcMem, 0, 0, width, height, dc, rect.left, rect.top, SRCCOPY);
+
+	/*
+	 * Translate the object to 0,0 for rendering in the temporary drawing
+	 * surface. 
+	 */
+
+	for (i = 0; i < npoints; i++) {
+	    winPoints[i].x -= rect.left;
+	    winPoints[i].y -= rect.top;
+	}
+
+	/*
+	 * Draw the object in the foreground color and copy it to the
+	 * destination wherever the pattern is set.
+	 */
+
+	SetPolyFillMode(dcMem, (gc->fill_rule == EvenOddRule) ? ALTERNATE
+		: WINDING);
+	oldMemBrush = SelectObject(dcMem, CreateSolidBrush(gc->foreground));
+	(*func)(dcMem, winPoints, npoints);
+	BitBlt(dc, rect.left, rect.top, width, height, dcMem, 0, 0, COPYFG);
+
+	/*
+	 * If we are rendering an opaque stipple, then draw the polygon in the
+	 * background color and copy it to the destination wherever the pattern
+	 * is clear.
+	 */
+
+	if (gc->fill_style == FillOpaqueStippled) {
+	    DeleteObject(SelectObject(dcMem,
+		    CreateSolidBrush(gc->background)));
+	    (*func)(dcMem, winPoints, npoints);
+	    BitBlt(dc, rect.left, rect.top, width, height, dcMem, 0, 0,
+		    COPYBG);
+	}
+
+	SelectObject(dcMem, oldPen);
+	DeleteObject(SelectObject(dcMem, oldMemBrush));
+	DeleteObject(SelectObject(dcMem, oldBitmap));
+	DeleteDC(dcMem);
+    } else {
+	oldPen = SelectObject(dc, pen);
+	oldBrush = SelectObject(dc, CreateSolidBrush(gc->foreground));
+	SetROP2(dc, ropModes[gc->function]);
+
+	SetPolyFillMode(dc, (gc->fill_rule == EvenOddRule) ? ALTERNATE
+		: WINDING);
+
+	(*func)(dc, winPoints, npoints);
+
+	SelectObject(dc, oldPen);
+    }
+    DeleteObject(SelectObject(dc, oldBrush));
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawLines --
+ *
+ *	Draw connected lines.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Renders a series of connected lines.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDrawLines(display, d, gc, points, npoints, mode)
+    Display* display;
+    Drawable d;
+    GC gc;
+    XPoint* points;
+    int npoints;
+    int mode;
+{
+    HPEN pen;
+    TkWinDCState state;
+    HDC dc;
+    
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+
+    pen = CreatePen(PS_SOLID, gc->line_width, gc->foreground);
+    RenderObject(dc, gc, points, npoints, mode, pen, Polyline);
+    DeleteObject(pen);
+    
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFillPolygon --
+ *
+ *	Draws a filled polygon.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws a filled polygon on the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFillPolygon(display, d, gc, points, npoints, shape, mode)
+    Display* display;
+    Drawable d;
+    GC gc;
+    XPoint* points;
+    int npoints;
+    int shape;
+    int mode;
+{
+    HPEN pen;
+    TkWinDCState state;
+    HDC dc;
+
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+
+    pen = GetStockObject(NULL_PEN);
+    RenderObject(dc, gc, points, npoints, mode, pen, Polygon);
+
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawRectangle --
+ *
+ *	Draws a rectangle.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws a rectangle on the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDrawRectangle(display, d, gc, x, y, width, height)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+{
+    HPEN pen, oldPen;
+    TkWinDCState state;
+    HBRUSH oldBrush;
+    HDC dc;
+
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+
+    pen = CreatePen(PS_SOLID, gc->line_width, gc->foreground);
+    oldPen = SelectObject(dc, pen);
+    oldBrush = SelectObject(dc, GetStockObject(NULL_BRUSH));
+    SetROP2(dc, ropModes[gc->function]);
+
+    Rectangle(dc, x, y, x+width+1, y+height+1);
+
+    DeleteObject(SelectObject(dc, oldPen));
+    SelectObject(dc, oldBrush);
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawArc --
+ *
+ *	Draw an arc.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws an arc on the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDrawArc(display, d, gc, x, y, width, height, angle1, angle2)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+    int angle1;
+    int angle2;
+{
+    display->request++;
+
+    DrawOrFillArc(display, d, gc, x, y, width, height, angle1, angle2, 0);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFillArc --
+ *
+ *	Draw a filled arc.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws a filled arc on the specified drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFillArc(display, d, gc, x, y, width, height, angle1, angle2)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+    int angle1;
+    int angle2;
+{
+    display->request++;
+
+    DrawOrFillArc(display, d, gc, x, y, width, height, angle1, angle2, 1);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DrawOrFillArc --
+ *
+ *	This procedure handles the rendering of drawn or filled
+ *	arcs and chords.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Renders the requested arc.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DrawOrFillArc(display, d, gc, x, y, width, height, angle1, angle2, fill)
+    Display *display;
+    Drawable d;
+    GC gc;
+    int x, y;			/* left top */
+    unsigned int width, height;
+    int angle1;			/* angle1: three-o'clock (deg*64) */
+    int angle2;			/* angle2: relative (deg*64) */
+    int fill;			/* ==0 draw, !=0 fill */
+{
+    HDC dc;
+    HBRUSH brush, oldBrush;
+    HPEN pen, oldPen;
+    TkWinDCState state;
+    int xr, yr, xstart, ystart, xend, yend;
+    double radian_start, radian_end, radian_tmp;
+
+    if (d == None) {
+	return;
+    }
+
+    dc = TkWinGetDrawableDC(display, d, &state);
+
+    SetROP2(dc, ropModes[gc->function]);
+
+    /*
+     * Convert the X arc description to a Win32 arc description.
+     */
+
+    xr = (width % 2) ? (width / 2) : ((width - 1) / 2);
+    yr = (height % 2) ? (height / 2) : ((height - 1) / 2);
+
+    radian_start = XAngleToRadians(angle1);
+    radian_end = XAngleToRadians(angle1+angle2);
+    if( angle2 < 0 ) {
+	radian_tmp = radian_start;
+	radian_start = radian_end;
+	radian_end = radian_tmp;
+    }
+
+    xstart = x + (int) ((double)xr * (1+cos(radian_start)));
+    ystart = y + (int) ((double)yr * (1-sin(radian_start)));
+    xend = x + (int) ((double)xr * (1+cos(radian_end)));
+    yend = y + (int) ((double)yr * (1-sin(radian_end)));
+
+    /*
+     * Now draw a filled or open figure.
+     */
+
+    if (!fill) {
+	pen = CreatePen(PS_SOLID, gc->line_width, gc->foreground);
+	oldPen = SelectObject(dc, pen);
+	oldBrush = SelectObject(dc, GetStockObject(NULL_BRUSH));
+	Arc(dc, x, y, x + width, y + height, xstart, ystart, xend, yend);
+	DeleteObject(SelectObject(dc, oldPen));
+	SelectObject(dc, oldBrush);
+    } else {
+	brush = CreateSolidBrush(gc->foreground);
+	oldBrush = SelectObject(dc, brush);
+	oldPen = SelectObject(dc, GetStockObject(NULL_PEN));
+	if (gc->arc_mode == ArcChord) {
+	    Chord(dc, x, y, x + width, y + height, xstart, ystart, xend, yend);
+	} else if ( gc->arc_mode == ArcPieSlice ) {
+	    Pie(dc, x, y, x + width, y + height, xstart, ystart, xend, yend);
+	}
+	DeleteObject(SelectObject(dc, oldBrush));
+	SelectObject(dc, oldPen);
+    }
+    TkWinReleaseDrawableDC(d, dc, &state);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkScrollWindow --
+ *
+ *	Scroll a rectangle of the specified window and accumulate
+ *	a damage region.
+ *
+ * Results:
+ *	Returns 0 if the scroll genereated no additional damage.
+ *	Otherwise, sets the region that needs to be repainted after
+ *	scrolling and returns 1.
+ *
+ * Side effects:
+ *	Scrolls the bits in the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkScrollWindow(tkwin, gc, x, y, width, height, dx, dy, damageRgn)
+    Tk_Window tkwin;		/* The window to be scrolled. */
+    GC gc;			/* GC for window to be scrolled. */
+    int x, y, width, height;	/* Position rectangle to be scrolled. */
+    int dx, dy;			/* Distance rectangle should be moved. */
+    TkRegion damageRgn;		/* Region to accumulate damage in. */
+{
+    HWND hwnd = TkWinGetHWND(Tk_WindowId(tkwin));
+    RECT scrollRect;
+
+    scrollRect.left = x;
+    scrollRect.top = y;
+    scrollRect.right = x + width;
+    scrollRect.bottom = y + height;
+    return (ScrollWindowEx(hwnd, dx, dy, &scrollRect, NULL, (HRGN) damageRgn,
+	    NULL, 0) == NULLREGION) ? 0 : 1;
+}
diff --git a/Tk/win/tkWinFont.c b/Tk/win/tkWinFont.c
new file mode 100644
index 0000000..7d82716
--- /dev/null
+++ b/Tk/win/tkWinFont.c
@@ -0,0 +1,729 @@
+/* 
+ * tkWinFont.c --
+ *
+ *	This file contains the Xlib emulation routines relating to
+ *	creating and manipulating fonts.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ * Copyright (c) 1994 Software Research Associates, Inc. 
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinFont.c 1.8 96/04/05 15:21:22
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * Forward declarations for functions used in this file.
+ */
+
+static int		NameToFont _ANSI_ARGS_((_Xconst char *name,
+			    LOGFONT *logfont));
+static int		XNameToFont _ANSI_ARGS_((_Xconst char *name,
+			    LOGFONT *logfont));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NameToFont --
+ *
+ *	Converts a three part font name into a logical font
+ *	description.  Font name is of the form:
+ *		"Family point_size style_list"
+ *	Style_list contains a list of one or more attributes:
+ *		normal, bold, italic, underline, strikeout
+ *
+ * Results:
+ *	Returns false if the font name was syntactically invalid,
+ *	else true.  Sets the fields of the passed in LOGFONT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+NameToFont(name, logfont)
+    _Xconst char *name;
+    LOGFONT *logfont;
+{
+    int argc, argc2;
+    char **argv, **argv2;
+    int nameLen, i, pointSize = 0;
+    Tcl_Interp *dummy = Tcl_CreateInterp();
+
+    if (Tcl_SplitList(dummy, (char *) name, &argc, &argv) != TCL_OK) {
+	goto nomatch;
+    }
+    if (argc != 3) {
+	ckfree((char *) argv);
+	goto nomatch;
+    }
+
+    memset(logfont, '\0', sizeof(LOGFONT));
+
+    /*
+     * Determine the font family name.
+     */
+
+    nameLen = strlen(argv[0]);
+    if (nameLen > LF_FACESIZE) {
+	nameLen = LF_FACESIZE;
+    }
+    strncpy(logfont->lfFaceName, argv[0], nameLen);
+
+    /*
+     * Check the character set.
+     */
+
+    logfont->lfCharSet = ANSI_CHARSET;
+    if (stricmp(logfont->lfFaceName, "Symbol") == 0) {
+	logfont->lfCharSet = SYMBOL_CHARSET;
+    } else if (stricmp(logfont->lfFaceName, "WingDings") == 0) {
+	logfont->lfCharSet = SYMBOL_CHARSET;
+    }
+	
+    /*
+     * Determine the font size.
+     */
+
+    if (Tcl_GetInt(dummy, argv[1], &pointSize) != TCL_OK) {
+	ckfree((char *) argv);
+	goto nomatch;
+    }
+    logfont->lfHeight = -pointSize;
+
+    /*
+     * Apply any style modifiers.
+     */
+	
+    if (Tcl_SplitList(dummy, (char *) argv[2], &argc2, &argv2) != TCL_OK) {
+	ckfree((char*) argv);
+	goto nomatch;
+    }
+    for (i = 0; i < argc2; i++) {
+	if (stricmp(argv2[i], "normal") == 0) {
+	    logfont->lfWeight = FW_NORMAL;
+	} else if (stricmp(argv2[i], "bold") == 0) {
+	    logfont->lfWeight = FW_BOLD;
+	} else if (stricmp(argv2[i], "medium") == 0) {
+	    logfont->lfWeight = FW_MEDIUM;
+	} else if (stricmp(argv2[i], "heavy") == 0) {
+	    logfont->lfWeight = FW_HEAVY;
+	} else if (stricmp(argv2[i], "thin") == 0) {
+	    logfont->lfWeight = FW_THIN;
+	} else if (stricmp(argv2[i], "extralight") == 0) {
+	    logfont->lfWeight = FW_EXTRALIGHT;
+	} else if (stricmp(argv2[i], "light") == 0) {
+	    logfont->lfWeight = FW_LIGHT;
+	} else if (stricmp(argv2[i], "semibold") == 0) {
+	    logfont->lfWeight = FW_SEMIBOLD;
+	} else if (stricmp(argv2[i], "extrabold") == 0) {
+	    logfont->lfWeight = FW_EXTRABOLD;
+	} else if (stricmp(argv2[i], "italic") == 0) {
+	    logfont->lfItalic = TRUE;
+	} else if (stricmp(argv2[i], "oblique") == 0) {
+	    logfont->lfOrientation = 3600 - 150; /* 15 degree forward slant */
+	} else if (stricmp(argv2[i], "underline") == 0) {
+	    logfont->lfUnderline = TRUE;
+	} else if (stricmp(argv2[i], "strikeout") == 0) {
+	    logfont->lfStrikeOut = TRUE;
+	} else {
+	    /* ignore for now */
+	}
+    }
+
+    ckfree((char *) argv);
+    ckfree((char *) argv2);
+    return True;
+
+    nomatch:
+    Tcl_DeleteInterp(dummy);
+    return False;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XNameToFont --
+ *
+ *	This function constructs a logical font description from an
+ *	X font name.  This code only handles font names with all 13
+ *	parts, although a part can be '*'.
+ *
+ * Results:
+ *	Returns false if the font name was syntactically invalid,
+ *	else true.  Sets the fields of the passed in LOGFONT.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+XNameToFont(name, logfont)
+    _Xconst char *name;
+    LOGFONT *logfont;
+{
+    const char *head, *tail;
+    const char *field[13];
+    int flen[13];
+    int i, len, parsefields;
+
+    /*
+     * Valid font name patterns must have a leading '-' or '*'.
+     */
+
+    head = tail = name;
+    if (*tail == '-') {
+	head++; tail++;
+    } else if (*tail != '*') {
+	return FALSE;
+    }
+
+    /*
+     * Identify field boundaries.  Stores a pointer to the beginning
+     * of each field in field[i], and the length of the field in flen[i].
+     * Fields are separated by dashes.  Each '*' becomes a field by itself.
+     */
+
+    i = 0;
+    while (*tail != '\0' && i < 12) {
+	if (*tail == '-') {
+	    flen[i] = tail - head;
+	    field[i] = head;
+	    tail++;
+	    head = tail;
+	    i++;
+	} else if (*tail == '*') {
+	    len = tail - head;
+	    if (len > 0) {
+		flen[i] = tail - head;
+		field[i] = head;
+	    } else {
+		flen[i] = 1;
+		field[i] = head;
+		tail++;
+		if (*tail == '-') {
+		    tail++;
+		}
+	    }
+	    head = tail;
+	    i++;
+	} else {
+	    tail++;
+	}
+    }
+
+    /*
+     * We handle the last field as a special case, since it may contain
+     * an emedded hyphen.
+     */
+
+    flen[i] = strlen(head);
+    field[i] = head;
+
+    /*
+     * Bail if we don't have all of the fields.
+     */
+
+    if (i != 12) {
+	return FALSE;
+    } 
+
+    /*
+     * Now fill in the logical font description from the fields we have
+     * identified.
+     */
+
+    memset(logfont, '\0', sizeof(LOGFONT));
+
+    /*
+     * Field 1: Foundry.  Skip.
+     */
+
+    /*
+     * Field 2: Font Family.
+     */
+
+    i = 1;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	len = (flen[i] < LF_FACESIZE) ? flen[i] : LF_FACESIZE - 1;
+	strncpy(logfont->lfFaceName, field[i], len);
+
+	/*
+	 * Need to handle Symbol and WingDings specially.
+	 */
+
+	if (stricmp(logfont->lfFaceName, "Symbol") == 0) {
+	    logfont->lfCharSet = SYMBOL_CHARSET;
+	} else if (stricmp(logfont->lfFaceName, "WingDings") == 0) {
+	    logfont->lfCharSet = SYMBOL_CHARSET;
+	}
+    }
+
+    /*
+     * Field 3: Weight.  Default is medium.
+     */
+
+    i = 2;
+    if ((flen[i] > 0) && (strnicmp(field[i], "bold", flen[i]) == 0)) {
+	logfont->lfWeight = FW_BOLD;
+    } else {
+	logfont->lfWeight = FW_MEDIUM;
+    }
+	    
+    /*
+     * Field 4: Slant.  Default is Roman.
+     */
+    
+    i = 3;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	if (strnicmp(field[i], "r", flen[i]) == 0) {
+	    /* Roman.  Don't do anything */
+	} else if (strnicmp(field[i], "i", flen[i]) == 0) {
+	    /* Italic */
+	    logfont->lfItalic = TRUE;
+	} else if (strnicmp(field[i], "o", flen[i]) == 0) {
+	    /* Oblique */
+	    logfont->lfOrientation = 3600 - 150; /* 15 degree slant forward */
+	} else if (strnicmp(field[i], "ri", flen[i]) == 0) {
+	    /* Reverse Italic */
+	    logfont->lfOrientation = 300;        /* 30 degree slant backward */
+	} else if (strnicmp(field[i], "ro", flen[i]) == 0) {
+	    /* Reverse Oblique */
+	    logfont->lfOrientation = 150;        /* 30 degree slant backward */
+	} else if (strnicmp(field[i], "ot", flen[i]) == 0) {
+	    /* Other */
+	} else {
+	    return FALSE;
+	}
+    }
+
+    /*
+     * Field 5 & 6: Set Width & Blank.  Skip.
+     */
+
+    /*
+     * Field 7: Pixels.  Use this as the points if no points set.
+     */
+
+    i = 6;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	logfont->lfHeight = -atoi(field[i]);
+    }
+
+    /*
+     * Field 8: Points in tenths of a point.
+     */
+
+    i = 7;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	logfont->lfHeight = -(atoi(field[i]) / 10);
+    }
+
+    /*
+     * Field 9: Horizontal Resolution in DPI.  Skip.
+     * Field 10: Vertical Resolution in DPI.  Skip.
+     */
+
+    /*
+     * Field 11: Spacing.
+     */
+
+    i = 10;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	if (flen[i] != 1) {
+	    return FALSE;
+	}
+	if (field[i][0] == 'p' || field[i][0] == 'P') {
+	    logfont->lfPitchAndFamily |= VARIABLE_PITCH;
+	} else if (field[i][0] == 'm' || field[i][0] == 'm' ||
+		   field[i][0] == 'c' || field[i][0] == 'c')
+	{
+	    logfont->lfPitchAndFamily |= FIXED_PITCH;
+	} else {
+	    return FALSE;
+	}
+    }
+
+    /*
+     * Field 12: Average Width.
+     */
+
+    i = 11;
+    if (!(flen[i] == 0 ||
+	  (flen[i] == 1 && (field[i][0] == '*' || field[i][0] == '?'))))
+    {
+	logfont->lfWidth = (atoi(field[i]) / 10);
+    }
+
+    /*
+     * Field 13: Character Set.  Skip.
+     */
+
+    return TRUE;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XLoadFont --
+ *
+ *	Get the font handle for the specified font.
+ *
+ * Results:
+ *	Returns the font handle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Font
+XLoadFont(display, name)
+    Display* display;
+    _Xconst char* name;
+{
+    HFONT font;
+    LOGFONT logfont;
+
+    if (((name[0] == '-') || (name[0] == '*'))
+	    && XNameToFont(name, &logfont)) {
+	font = CreateFontIndirect(&logfont);
+    } else if (NameToFont(name, &logfont)) {
+	font = CreateFontIndirect(&logfont);
+    } else {
+	int object = SYSTEM_FONT;
+
+	if (stricmp(name, "system") == 0) {
+	    object = SYSTEM_FONT;
+	} else if (stricmp(name, "systemfixed") == 0) {
+	    object = SYSTEM_FIXED_FONT;
+	} else if (stricmp(name, "ansi") == 0) {
+	    object = ANSI_VAR_FONT;
+	} else if (stricmp(name, "ansifixed") == 0) {
+	    object = ANSI_FIXED_FONT;
+	} else if (stricmp(name, "device") == 0) {
+	    object = DEVICE_DEFAULT_FONT;
+	} else if (stricmp(name, "oemfixed") == 0) {
+	    object = OEM_FIXED_FONT;
+	}
+	font = GetStockObject(object);
+    }
+    if (font == NULL) {
+	font = GetStockObject(SYSTEM_FONT);
+    }
+    return (Font) font;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XQueryFont --
+ *
+ *	Retrieve information about the specified font.
+ *
+ * Results:
+ *	Returns a newly allocated XFontStruct.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XFontStruct *
+XQueryFont(display, font_ID)
+    Display* display;
+    XID font_ID;
+{
+    XFontStruct *fontPtr = (XFontStruct *) ckalloc(sizeof(XFontStruct));
+    HFONT oldFont;
+    HDC dc;
+    TEXTMETRIC tm;
+    XCharStruct bounds;
+
+    if (!fontPtr) {
+	return NULL;
+    }
+    
+    fontPtr->fid = font_ID;
+
+    dc = GetDC(NULL);
+    oldFont = SelectObject(dc, (HFONT) fontPtr->fid);
+
+    /*
+     * Determine the font metrics and store the values into the appropriate
+     * X data structures.
+     */
+
+    if (GetTextMetrics(dc, &tm)) {
+	fontPtr->direction = FontLeftToRight;
+	fontPtr->min_byte1 = 0;
+	fontPtr->max_byte1 = 0;
+	fontPtr->min_char_or_byte2 = tm.tmFirstChar;
+	fontPtr->max_char_or_byte2 = tm.tmLastChar;
+	fontPtr->all_chars_exist = True;
+	fontPtr->default_char = tm.tmDefaultChar;
+	fontPtr->n_properties = 0;
+	fontPtr->properties = NULL;
+	bounds.lbearing = 0;
+	bounds.rbearing = tm.tmMaxCharWidth;
+	bounds.width = tm.tmMaxCharWidth;
+	bounds.ascent = tm.tmAscent;
+	bounds.descent = tm.tmDescent;
+	bounds.attributes = 0;
+	fontPtr->min_bounds = bounds;
+	fontPtr->max_bounds = bounds;
+	fontPtr->ascent = tm.tmAscent;
+	fontPtr->descent = tm.tmDescent;
+
+	/*
+	 * If the font is not fixed pitch, then we need to construct
+	 * the per_char array.
+	 */
+
+	if (tm.tmAveCharWidth != tm.tmMaxCharWidth) {
+	    int i;
+	    int nchars = tm.tmLastChar - tm.tmFirstChar + 1;
+	    int minWidth = 30000;
+
+	    fontPtr->per_char =
+		(XCharStruct *)ckalloc(sizeof(XCharStruct) * nchars);
+
+	    if (tm.tmPitchAndFamily & TMPF_TRUETYPE) {
+		ABC *chars = (ABC*)ckalloc(sizeof(ABC) * nchars);
+
+		GetCharABCWidths(dc, tm.tmFirstChar, tm.tmLastChar, chars);
+		for (i = 0; i < nchars; i++) {
+		    fontPtr->per_char[i].ascent = tm.tmAscent;
+		    fontPtr->per_char[i].descent = tm.tmDescent;
+		    fontPtr->per_char[i].attributes = 0;
+		    fontPtr->per_char[i].lbearing = chars[i].abcA;
+		    fontPtr->per_char[i].rbearing = chars[i].abcA
+			+ chars[i].abcB;
+		    fontPtr->per_char[i].width = chars[i].abcA + chars[i].abcB
+			+ chars[i].abcC;
+		}
+		ckfree((char *)chars);
+	    } else {
+		int *chars = (int *)ckalloc(sizeof(int) * nchars);
+
+		GetCharWidth(dc, tm.tmFirstChar, tm.tmLastChar, chars);
+
+		for (i = 0; i < nchars ; i++ ) {
+		    fontPtr->per_char[i] = bounds;
+		    fontPtr->per_char[i].width = chars[i];
+		    if (minWidth > chars[i]) {
+			minWidth = chars[i];
+		    }
+		}
+		ckfree((char *)chars);
+	    }
+	    fontPtr->min_bounds.width = minWidth;
+	} else {
+	    fontPtr->per_char = NULL;
+	}
+    } else {
+	ckfree((char *)fontPtr);
+	fontPtr = NULL;
+    }    
+
+    SelectObject(dc, oldFont);
+    ReleaseDC(NULL, dc);
+    
+    return fontPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XLoadQueryFont --
+ *
+ *	Finds the closest available Windows font for the specified
+ *	font name.
+ *
+ * Results:
+ *	Allocates and returns an XFontStruct containing a description
+ *	of the matching font.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XFontStruct *
+XLoadQueryFont(display, name)
+    Display* display;
+    _Xconst char* name;
+{
+    Font font;
+    font = XLoadFont(display, name);
+    return XQueryFont(display, font);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFreeFont --
+ *
+ *	Releases resources associated with the specified font.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees the memory referenced by font_struct.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFreeFont(display, font_struct)
+    Display* display;
+    XFontStruct* font_struct;
+{
+    DeleteObject((HFONT)font_struct->fid);
+    if (font_struct->per_char != NULL) {
+	ckfree((char *) font_struct->per_char);
+    }
+    ckfree((char *) font_struct);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XTextExtents --
+ *
+ *	Compute the width of an 8-bit character string.
+ *
+ * Results:
+ *	Returns the computed width of the specified string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XTextWidth(font_struct, string, count)
+    XFontStruct* font_struct;
+    _Xconst char* string;
+    int count;
+{
+    TEXTMETRIC tm;
+    int width;
+    SIZE size;
+    HFONT oldFont;
+    HDC dc;
+
+    dc = GetDC(NULL);
+    oldFont = SelectObject(dc, (HFONT)font_struct->fid);
+
+    GetTextExtentPoint(dc, string, count, &size);
+    GetTextMetrics(dc, &tm);
+    size.cx -= tm.tmOverhang;
+
+    SelectObject(dc, oldFont);
+    ReleaseDC(NULL, dc);
+
+    return size.cx;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XTextExtents --
+ *
+ *	Compute the bounding box for a string.
+ *
+ * Results:
+ *	Sets the direction_return, ascent_return, descent_return, and
+ *	overall_return values as defined by Xlib.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XTextExtents(font_struct, string, nchars, direction_return,
+	font_ascent_return, font_descent_return, overall_return)
+    XFontStruct* font_struct;
+    _Xconst char* string;
+    int nchars;
+    int* direction_return;
+    int* font_ascent_return;
+    int* font_descent_return;
+    XCharStruct* overall_return;
+{
+    HDC dc;
+    HFONT oldFont;
+    TEXTMETRIC tm;
+    SIZE size;
+
+    *direction_return = font_struct->direction;
+    *font_ascent_return = font_struct->ascent;
+    *font_descent_return = font_struct->descent;
+
+    dc = GetDC(NULL);
+    oldFont = SelectObject(dc, (HFONT)font_struct->fid);
+
+    GetTextMetrics(dc, &tm);
+    overall_return->ascent = tm.tmAscent;
+    overall_return->descent = tm.tmDescent;
+    GetTextExtentPoint(dc, string, nchars, &size);
+    overall_return->width = size.cx;
+    overall_return->lbearing = 0;
+    overall_return->rbearing = overall_return->width - tm.tmOverhang;
+
+    SelectObject(dc, oldFont);
+    ReleaseDC(NULL, dc);
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGetFontProperty --
+ *
+ *	Called to get font properties.  Since font properties are not
+ *	supported under Windows, this function is a no-op.
+ *
+ * Results:
+ *	Always returns false
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Bool
+XGetFontProperty(font_struct, atom, value_return)
+    XFontStruct* font_struct;
+    Atom atom;
+    unsigned long* value_return;
+{
+    return False;
+}
+
diff --git a/Tk/win/tkWinImage.c b/Tk/win/tkWinImage.c
new file mode 100644
index 0000000..7917e67
--- /dev/null
+++ b/Tk/win/tkWinImage.c
@@ -0,0 +1,120 @@
+/* 
+ * tkWinImage.c --
+ *
+ *	This file contains routines for manipulation full-color images.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinImage.c 1.4 96/02/15 18:56:16
+ */
+
+#include "tkWinInt.h"
+
+static int		PutPixel _ANSI_ARGS_((XImage *image, int x, int y,
+			    unsigned long pixel));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * PutPixel --
+ *
+ *	Set a single pixel in an image.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+PutPixel(image, x, y, pixel)
+    XImage *image;
+    int x, y;
+    unsigned long pixel;
+{
+    char *destPtr = &(image->data[(y * image->bytes_per_line)
+    	+ (x * (image->bits_per_pixel >> 3))]);
+    destPtr[0] = GetBValue(pixel);
+    destPtr[1] = GetGValue(pixel);
+    destPtr[2] = GetRValue(pixel);
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCreateImage --
+ *
+ *	Allocates storage for a new XImage.
+ *
+ * Results:
+ *	Returns a newly allocated XImage.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XImage *
+XCreateImage(display, visual, depth, format, offset, data, width, height,
+	bitmap_pad, bytes_per_line)
+    Display* display;
+    Visual* visual;
+    unsigned int depth;
+    int format;
+    int offset;
+    char* data;
+    unsigned int width;
+    unsigned int height;
+    int bitmap_pad;
+    int bytes_per_line;
+{
+    XImage* imagePtr = (XImage *) ckalloc(sizeof(XImage));
+    imagePtr->width = width;
+    imagePtr->height = height;
+    imagePtr->xoffset = offset;
+    imagePtr->format = format;
+    imagePtr->data = data;
+    imagePtr->byte_order = LSBFirst;
+    imagePtr->bitmap_unit = 32;
+    imagePtr->bitmap_bit_order = LSBFirst;
+    imagePtr->bitmap_pad = bitmap_pad;
+    imagePtr->depth = depth;
+
+    /*
+     * Round to the nearest word boundary.
+     */
+    
+    imagePtr->bytes_per_line = bytes_per_line ? bytes_per_line
+ 	: ((depth * width + 31) >> 3) & ~3;
+
+    /*
+     * If the screen supports TrueColor, then we use 3 bytes per pixel, and
+     * we have to install our own pixel routine.
+     */
+    
+    if (visual->class == TrueColor) {
+	imagePtr->bits_per_pixel = 24;
+	imagePtr->f.put_pixel = PutPixel;
+    } else {
+	imagePtr->bits_per_pixel = 8;
+	imagePtr->f.put_pixel = NULL;
+    }
+    imagePtr->red_mask = visual->red_mask;
+    imagePtr->green_mask = visual->green_mask;
+    imagePtr->blue_mask = visual->blue_mask;
+    imagePtr->f.create_image = NULL;
+    imagePtr->f.destroy_image = NULL;
+    imagePtr->f.get_pixel = NULL;
+    imagePtr->f.sub_image = NULL;
+    imagePtr->f.add_pixel = NULL;
+    
+    return imagePtr;
+}
diff --git a/Tk/win/tkWinInit.c b/Tk/win/tkWinInit.c
new file mode 100644
index 0000000..8158ee3
--- /dev/null
+++ b/Tk/win/tkWinInit.c
@@ -0,0 +1,96 @@
+/* 
+ * tkWinInit.c --
+ *
+ *	This file contains Windows-specific interpreter initialization
+ *	functions.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinInit.c 1.13 96/03/18 14:22:29
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * The following string is the startup script executed in new
+ * interpreters.  It looks on disk in several different directories
+ * for a script "tk.tcl" that is compatible with this version
+ * of Tk.  The tk.tcl script does all of the real work of
+ * initialization.
+ */
+
+#ifndef WIN32
+static char *initScript =
+"proc init {} {\n\
+    global tk_library tk_version tk_patchLevel env\n\
+    rename init {}\n\
+    set dirs {}\n\
+    if [info exists env(TK_LIBRARY)] {\n\
+	lappend dirs $env(TK_LIBRARY)\n\
+    }\n\
+    lappend dirs $tk_library\n\
+    lappend dirs [file dirname [info library]]/lib/tk$tk_version\n\
+    lappend dirs [file dirname [file dirname [info nameofexecutable]]]/lib/tk$tk_version\n\
+    if [string match {*[ab]*} $tk_patchLevel] {\n\
+	set lib tk$tk_patchLevel\n\
+    } else {\n\
+	set lib tk$tk_version\n\
+    }\n\
+    lappend dirs [file dirname [file dirname [pwd]]]/$lib/library\n\
+    lappend dirs [file dirname [pwd]]/library\n\
+    foreach i $dirs {\n\
+	set tk_library $i\n\
+	if ![catch {uplevel #0 source [list $i/tk.tcl]}] {\n\
+	    return\n\
+	}\n\
+    }\n\
+    set msg \"Can't find a usable tk.tcl in the following directories: \n\"\n\
+    append msg \"    $dirs\n\"\n\
+    append msg \"This probably means that Tk wasn't installed properly.\n\"\n\
+    error $msg\n\
+}\n\
+init";
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkPlatformInit --
+ *
+ *	Performs Windows-specific interpreter initialization related to the
+ *      tk_library variable.
+ *
+ * Results:
+ *	A standard Tcl completion code (TCL_OK or TCL_ERROR).  Also
+ *	leaves information in interp->result.
+ *
+ * Side effects:
+ *	Sets "tk_library" Tcl variable, runs "tk.tcl" script.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkPlatformInit(interp)
+    Tcl_Interp *interp;
+{
+#ifdef STk_CODE
+    extern char *STk_library_path;
+
+    Tcl_SetVar(interp, "*stk-library*", STk_library_path, 
+	       STk_STRINGIFY | TCL_GLOBAL_ONLY);
+    return TCL_OK;
+#else
+    char *libDir;
+
+    libDir = Tcl_GetVar(interp, "tk_library", TCL_GLOBAL_ONLY);
+    if (libDir == NULL) {
+	Tcl_SetVar(interp, "tk_library", ".", TCL_GLOBAL_ONLY);
+    }
+
+    return Tcl_Eval(interp, initScript);
+#endif
+}
diff --git a/Tk/win/tkWinInt.h b/Tk/win/tkWinInt.h
new file mode 100644
index 0000000..f39290e
--- /dev/null
+++ b/Tk/win/tkWinInt.h
@@ -0,0 +1,163 @@
+/*
+ * tkWinInt.h --
+ *
+ *	This file contains declarations that are shared among the
+ *	Windows-specific parts of Tk, but aren't used by the rest of
+ *	Tk.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinInt.h 1.17 96/04/11 17:51:55
+ */
+
+#ifndef _TKWININT
+#define _TKWININT
+
+#ifndef _TKINT
+#include "tkInt.h"
+#endif
+
+#ifdef STk_CODE
+/*
+ * These constants are not defined on all the BC++ compilers. Define them if 
+ * needed. These values were found in the gnu win32 and in the Wine packages.
+ *
+ */
+#  ifndef WM_ENTERSIZEMOVE
+#    define WM_ENTERSIZEMOVE (0x231)
+#  endif
+#  ifndef WM_EXITSIZEMOVE
+#    define WM_EXITSIZEMOVE (0x232)
+#  endif
+#  ifndef WS_EX_TIIKWINDOW
+#    define WS_EX_TOOLWINDOW (0x80L)
+#  endif
+#endif
+
+
+/*
+ * Note that the include of windows.h must not be done in tkWinPort.h,
+ * because some of the windows declarations conflict with internal static
+ * functions in the generic code (e.g. CreateBitmap).
+ */
+
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+#undef WIN32_LEAN_AND_MEAN
+
+/*
+ * The TkWinDCState is used to save the state of a device context
+ * so that it can be restored later.
+ */
+
+typedef struct TkWinDCState {
+    HPALETTE palette;
+} TkWinDCState;
+
+
+/*
+ * The TkWinDrawable is the internal implementation of an X Drawable (either
+ * a Window or a Pixmap).  The following constants define the valid Drawable
+ * types.
+ */
+
+#define TWD_BITMAP	1
+#define TWD_WINDOW	2
+#define TWD_WM_WINDOW	3
+
+typedef struct {
+    int type;
+    HWND handle;
+    TkWindow *winPtr;
+} TkWinWindow;
+
+typedef struct {
+    int type;
+    HBITMAP handle;
+    Colormap colormap;
+    int depth;
+} TkWinBitmap;
+    
+typedef union {
+    int type;
+    TkWinWindow window;
+    TkWinBitmap bitmap;
+} TkWinDrawable;
+
+/*
+ * The following macros are used to retrieve internal values from a Drawable.
+ */
+
+#define TkWinGetHWND(w) (((TkWinDrawable *) w)->window.handle)
+#define TkWinGetWinPtr(w) (((TkWinDrawable*)w)->window.winPtr)
+#define TkWinGetHBITMAP(w) (((TkWinDrawable*)w)->bitmap.handle)
+#define TkWinGetColormap(w) (((TkWinDrawable*)w)->bitmap.colormap)
+
+/*
+ * The following structure is used to encapsulate palette information.
+ */
+
+typedef struct {
+    HPALETTE palette;		/* Palette handle used when drawing. */
+    UINT size;			/* Number of entries in the palette. */
+    int stale;			/* 1 if palette needs to be realized,
+				 * otherwise 0.  If the palette is stale,
+				 * then an idle handler is scheduled to
+				 * realize the palette. */
+    Tcl_HashTable refCounts;	/* Hash table of palette entry reference counts
+				 * indexed by pixel value. */
+} TkWinColormap;
+
+/*
+ * The following macro retrieves the Win32 palette from a colormap.
+ */
+
+#define TkWinGetPalette(colormap) (((TkWinColormap *) colormap)->palette)
+
+/*
+ * The following macros define the class names for Tk Window types.
+ */
+
+#define TK_WIN_TOPLEVEL_CLASS_NAME "TkTopLevel"
+#define TK_WIN_CHILD_CLASS_NAME "TkChild"
+
+/*
+ * Internal procedures used by more than one source file.
+ */
+
+extern LRESULT CALLBACK	TkWinChildProc _ANSI_ARGS_((HWND hwnd, UINT message,
+			    WPARAM wParam, LPARAM lParam));
+extern void		TkWinClipboardRender _ANSI_ARGS_((TkWindow *winPtr,
+			    UINT format));
+extern HINSTANCE 	TkWinGetAppInstance _ANSI_ARGS_((void));
+extern HDC		TkWinGetDrawableDC _ANSI_ARGS_((Display *display,
+			    Drawable d, TkWinDCState* state));
+extern TkWinDrawable *	TkWinGetDrawableFromHandle _ANSI_ARGS_((HWND hwnd));
+extern unsigned int	TkWinGetModifierState _ANSI_ARGS_((UINT message,
+			    WPARAM wParam, LPARAM lParam));
+extern HPALETTE		TkWinGetSystemPalette _ANSI_ARGS_((void));
+extern HMODULE		TkWinGetTkModule _ANSI_ARGS_((void));
+extern void		TkWinPointerDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkWinPointerEvent _ANSI_ARGS_((XEvent *event,
+			    TkWindow *winPtr));
+extern void		TkWinPointerInit _ANSI_ARGS_((void));
+extern void		TkWinReleaseDrawableDC _ANSI_ARGS_((Drawable d,
+			    HDC hdc, TkWinDCState* state));
+extern HPALETTE		TkWinSelectPalette _ANSI_ARGS_((HDC dc,
+			    Colormap colormap));
+extern LRESULT CALLBACK	TkWinTopLevelProc _ANSI_ARGS_((HWND hwnd, UINT message,
+			    WPARAM wParam, LPARAM lParam));
+extern void		TkWinUpdateCursor _ANSI_ARGS_((TkWindow *winPtr));
+extern void		TkWinWmConfigure _ANSI_ARGS_((TkWindow *winPtr,
+			    WINDOWPOS *pos));
+extern int		TkWinWmInstallColormaps _ANSI_ARGS_((HWND hwnd,
+			    int message, int isForemost));
+extern void		TkWinWmSetLimits _ANSI_ARGS_((HWND hwnd,
+			    MINMAXINFO *info));
+extern void 		TkWinXInit _ANSI_ARGS_((HINSTANCE hInstance));
+
+#endif /* _TKWININT */
+
diff --git a/Tk/win/tkWinKey.c b/Tk/win/tkWinKey.c
new file mode 100644
index 0000000..6acfef7
--- /dev/null
+++ b/Tk/win/tkWinKey.c
@@ -0,0 +1,334 @@
+/* 
+ * tkWinKey.c --
+ *
+ *	This file contains X emulation routines for keyboard related
+ *	functions.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinKey.c 1.6 96/02/15 18:56:04
+ */
+
+#include "tkWinInt.h"
+
+typedef struct {
+    unsigned int keycode;
+    KeySym keysym;
+} Keys;
+
+static Keys keymap[] = {
+    VK_CANCEL, XK_Cancel,
+    VK_BACK, XK_BackSpace,
+    VK_TAB, XK_Tab,
+    VK_CLEAR, XK_Clear,
+    VK_RETURN, XK_Return,
+    VK_SHIFT, XK_Shift_L,
+    VK_CONTROL, XK_Control_L,
+    VK_MENU, XK_Alt_L,
+    VK_PAUSE, XK_Pause,
+    VK_CAPITAL, XK_Caps_Lock,
+    VK_ESCAPE, XK_Escape,
+    VK_SPACE, XK_space,
+    VK_PRIOR, XK_Prior,
+    VK_NEXT, XK_Next,
+    VK_END, XK_End,
+    VK_HOME, XK_Home,
+    VK_LEFT, XK_Left,
+    VK_UP, XK_Up,
+    VK_RIGHT, XK_Right,
+    VK_DOWN, XK_Down,
+    VK_SELECT, XK_Select,
+    VK_PRINT, XK_Print,
+    VK_EXECUTE, XK_Execute,
+    VK_INSERT, XK_Insert,
+    VK_DELETE, XK_Delete,
+    VK_HELP, XK_Help,
+    VK_F1, XK_F1,
+    VK_F2, XK_F2,
+    VK_F3, XK_F3,
+    VK_F4, XK_F4,
+    VK_F5, XK_F5,
+    VK_F6, XK_F6,
+    VK_F7, XK_F7,
+    VK_F8, XK_F8,
+    VK_F9, XK_F9,
+    VK_F10, XK_F10,
+    VK_F11, XK_F11,
+    VK_F12, XK_F12,
+    VK_F13, XK_F13,
+    VK_F14, XK_F14,
+    VK_F15, XK_F15,
+    VK_F16, XK_F16,
+    VK_F17, XK_F17,
+    VK_F18, XK_F18,
+    VK_F19, XK_F19,
+    VK_F20, XK_F20,
+    VK_F21, XK_F21,
+    VK_F22, XK_F22,
+    VK_F23, XK_F23,
+    VK_F24, XK_F24,
+    VK_NUMLOCK, XK_Num_Lock, 
+    VK_SCROLL, XK_Scroll_Lock,
+    0, NoSymbol
+};
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XLookupString --
+ *
+ *	Retrieve the string equivalent for the given keyboard event.
+ *
+ * Results:
+ *	Returns the number of characters stored in buffer_return.
+ *
+ * Side effects:
+ *	Retrieves the characters stored in the event and inserts them
+ *	into buffer_return.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XLookupString(event_struct, buffer_return, bytes_buffer, keysym_return,
+	status_in_out)
+    XKeyEvent* event_struct;
+    char* buffer_return;
+    int bytes_buffer;
+    KeySym* keysym_return;
+    XComposeStatus* status_in_out;
+{
+    int i, limit;
+
+    if ((event_struct->nchars <= 0) || (buffer_return == NULL)) {
+	return 0;
+    }
+    limit = (event_struct->nchars < bytes_buffer) ? event_struct->nchars :
+	bytes_buffer;
+
+    for (i = 0; i < limit; i++) {
+	buffer_return[i] = event_struct->trans_chars[i];
+    }
+
+    if (keysym_return != NULL) {
+	*keysym_return = NoSymbol;
+    }
+    return i;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XKeycodeToKeysym --
+ *
+ *	Translate from a system-dependent keycode to a
+ *	system-independent keysym.
+ *
+ * Results:
+ *	Returns the translated keysym, or NoSymbol on failure.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+KeySym
+XKeycodeToKeysym(display, keycode, index)
+    Display* display;
+    unsigned int keycode;
+    int index;
+{
+    Keys* key;
+    BYTE keys[256];
+    int result;
+    char buf[4];
+    unsigned int scancode = MapVirtualKey(keycode, 0);
+
+    memset(keys, 0, 256);
+    if (index & 0x02) {
+	keys[VK_NUMLOCK] = 1;
+    }
+    if (index & 0x01) {
+	keys[VK_SHIFT] = 0x80;
+    }
+    result = ToAscii(keycode, scancode, keys, (LPWORD) buf, 0);
+
+    /*
+     * Keycode mapped to a valid Latin-1 character.  Since the keysyms
+     * for alphanumeric characters map onto Latin-1, we just return it.
+     */
+
+    if (result == 1 && buf[0] >= 0x20) {
+	return (KeySym) buf[0];
+    }
+
+    /*
+     * Keycode is a non-alphanumeric key, so we have to do the lookup.
+     */
+
+    for (key = keymap; key->keycode != 0; key++) {
+	if (key->keycode == keycode) {
+	    return key->keysym;
+	}
+    }
+
+    return NoSymbol;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XKeysymToKeycode --
+ *
+ *	Translate a keysym back into a keycode.
+ *
+ * Results:
+ *	Returns the keycode that would generate the specified keysym.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+KeyCode
+XKeysymToKeycode(display, keysym)
+    Display* display;
+    KeySym keysym;
+{
+    Keys* key;
+    SHORT result;
+
+    if (keysym >= 0x20) {
+	result = VkKeyScan(keysym);
+	if (result != -1) {
+	    return (KeyCode) (result & 0xff);
+	}
+    }
+
+    /*
+     * Couldn't map the character to a virtual keycode, so do a
+     * table lookup.
+     */
+
+    for (key = keymap; key->keycode != 0; key++) {
+	if (key->keysym == keysym) {
+	    return key->keycode;
+	}
+    }
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGetModifierMapping --
+ *
+ *	Fetch the current keycodes used as modifiers.
+ *
+ * Results:
+ *	Returns a new modifier map.
+ *
+ * Side effects:
+ *	Allocates a new modifier map data structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XModifierKeymap	*
+XGetModifierMapping(display)
+    Display* display;
+{
+    XModifierKeymap *map = (XModifierKeymap *)ckalloc(sizeof(XModifierKeymap));
+
+    map->max_keypermod = 1;
+    map->modifiermap = (KeyCode *) ckalloc(sizeof(KeyCode)*8);
+    map->modifiermap[ShiftMapIndex] = VK_SHIFT;
+    map->modifiermap[LockMapIndex] = VK_CAPITAL;
+    map->modifiermap[ControlMapIndex] = VK_CONTROL;
+    map->modifiermap[Mod1MapIndex] = VK_NUMLOCK;
+    map->modifiermap[Mod2MapIndex] = VK_MENU;
+    map->modifiermap[Mod3MapIndex] = VK_SCROLL;
+    map->modifiermap[Mod4MapIndex] = 0;
+    map->modifiermap[Mod5MapIndex] = 0;
+    return map;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFreeModifiermap --
+ *
+ *	Deallocate a modifier map that was created by
+ *	XGetModifierMapping.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees the datastructure referenced by modmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFreeModifiermap(modmap)
+    XModifierKeymap* modmap;
+{
+    ckfree((char *) modmap->modifiermap);
+    ckfree((char *) modmap);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XStringToKeysym --
+ *
+ *	Translate a keysym name to the matching keysym. 
+ *
+ * Results:
+ *	Returns the keysym.  Since this is already handled by
+ *	Tk's StringToKeysym function, we just return NoSymbol.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+KeySym
+XStringToKeysym(string)
+    _Xconst char *string;
+{
+    return NoSymbol;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XKeysymToString --
+ *
+ *	Convert a keysym to character form.
+ *
+ * Results:
+ *	Returns NULL, since Tk will have handled this already.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+XKeysymToString(keysym)
+    KeySym keysym;
+{
+    return NULL;
+}
+
+
diff --git a/Tk/win/tkWinPixmap.c b/Tk/win/tkWinPixmap.c
new file mode 100644
index 0000000..7eebf52
--- /dev/null
+++ b/Tk/win/tkWinPixmap.c
@@ -0,0 +1,129 @@
+/* 
+ * tkWinPixmap.c --
+ *
+ *	This file contains the Xlib emulation functions pertaining to
+ *	creating and destroying pixmaps.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinPixmap.c 1.14 96/07/23 16:57:41
+ */
+
+#include "tkWinInt.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetPixmap --
+ *
+ *	Creates an in memory drawing surface.
+ *
+ * Results:
+ *	Returns a handle to a new pixmap.
+ *
+ * Side effects:
+ *	Allocates a new Win32 bitmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Pixmap
+Tk_GetPixmap(display, d, width, height, depth)
+    Display* display;
+    Drawable d;
+    int width;
+    int height;
+    int depth;
+{
+    TkWinDrawable *newTwdPtr, *twdPtr;
+    
+    display->request++;
+
+    newTwdPtr = (TkWinDrawable*) ckalloc(sizeof(TkWinDrawable));
+    if (newTwdPtr == NULL) {
+	return None;
+    }
+    newTwdPtr->type = TWD_BITMAP;
+    newTwdPtr->bitmap.depth = depth;
+    twdPtr = (TkWinDrawable *)d;
+    if (twdPtr->type != TWD_BITMAP) {
+	if (twdPtr->window.winPtr == NULL) {
+	    newTwdPtr->bitmap.colormap = DefaultColormap(display,
+		    DefaultScreen(display));
+	} else {
+	    newTwdPtr->bitmap.colormap = twdPtr->window.winPtr->atts.colormap;
+	}
+    } else {
+	newTwdPtr->bitmap.colormap = twdPtr->bitmap.colormap;
+    }
+    newTwdPtr->bitmap.handle = CreateBitmap(width, height, 1, depth, NULL);
+
+    if (newTwdPtr->bitmap.handle == NULL) {
+	ckfree((char *) newTwdPtr);
+	return (Pixmap)NULL;
+    }
+    
+    return (Pixmap)newTwdPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreePixmap --
+ *
+ *	Release the resources associated with a pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Deletes the bitmap created by Tk_GetPixmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreePixmap(display, pixmap)
+    Display* display;
+    Pixmap pixmap;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *) pixmap;
+
+    display->request++;
+    if (twdPtr != NULL) {
+	DeleteObject(twdPtr->bitmap.handle);
+	ckfree((char *)twdPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSetPixmapColormap --
+ *
+ *	The following function is a hack used by the photo widget to
+ *	explicitly set the colormap slot of a Pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSetPixmapColormap(pixmap, colormap)
+    Pixmap pixmap;
+    Colormap colormap;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *)pixmap;
+    twdPtr->bitmap.colormap = colormap;
+}
+
+
diff --git a/Tk/win/tkWinPointer.c b/Tk/win/tkWinPointer.c
new file mode 100644
index 0000000..65d8bcd
--- /dev/null
+++ b/Tk/win/tkWinPointer.c
@@ -0,0 +1,848 @@
+/* 
+ * tkWinPointer.c --
+ *
+ *	Windows specific mouse tracking code.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinPointer.c 1.14 96/02/15 18:56:05
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * Check for enter/leave events every MOUSE_TIMER_INTERVAL milliseconds.
+ */
+
+#define MOUSE_TIMER_INTERVAL 250
+
+/*
+ * Mask that selects any of the state bits corresponding to buttons,
+ * plus masks that select individual buttons' bits:
+ */
+
+#define ALL_BUTTONS \
+	(Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask)
+static unsigned int buttonStates[] = {
+    Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask
+};
+
+/*
+ * Declarations of static variables used in the grab module.
+ */
+
+static int captured;		/* 1 if mouse events outside of Tk windows
+				 * will be reported, else 0. */
+static TkWindow *grabWinPtr;	/* Window that defines the top of the grab
+				 * tree in a global grab. */
+static TkWindow *keyboardWinPtr;/* Current keyboard grab window. */
+static TkWindow *restrictWinPtr;
+				/* Window to which all mouse
+				   events will be reported. */
+
+/*
+ * Declarations of static variables used in mouse position tracking.
+ */
+
+static POINT lastMousePos;	/* Last known mouse position. */
+static HWND lastMouseWindow;	/* Last known mouse window. */
+static TkWindow *lastMouseWinPtr;
+				/* Last window mouse was seen in.  Used to
+				 * detect Enter/Leave events. */
+static Tcl_TimerToken mouseTimer;
+				/* Handle to the latest mouse timer. */
+static int mouseTimerSet;	/* Non-zero if the mouse timer is active. */
+
+/*
+ * Forward declarations of procedures used in this file.
+ */
+
+static void		InitializeCrossingEvent _ANSI_ARGS_((
+    			    XEvent* eventPtr, TkWindow *winPtr,
+			    long x, long y));
+static void		MouseTimerProc _ANSI_ARGS_((ClientData clientData));
+static int		UpdateMousePosition _ANSI_ARGS_((HWND hwnd,
+			    TkWindow *winPtr, long x, long y));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinPointerInit --
+ *
+ *	Initialize the mouse pointer module.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Initializes various static variables.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinPointerInit()
+{
+    captured = 0;
+    grabWinPtr = NULL;
+    keyboardWinPtr = NULL;
+    restrictWinPtr = NULL;
+
+    mouseTimerSet = 0;
+    GetCursorPos(&lastMousePos);
+    lastMouseWindow = WindowFromPoint(lastMousePos);
+    lastMouseWinPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinPointerDeadWindow --
+ *
+ *	Clean up pointer module state when a window is destroyed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May change the grab module settings.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinPointerDeadWindow(winPtr)
+    TkWindow *winPtr;
+{
+    if (winPtr == lastMouseWinPtr) {
+	lastMouseWinPtr = NULL;
+    }
+    if (winPtr == grabWinPtr) {
+	grabWinPtr = NULL;
+    }
+    if (winPtr == restrictWinPtr) {
+	restrictWinPtr = NULL;
+    }
+    if (!(restrictWinPtr || grabWinPtr)) {
+	captured = 0;
+	ReleaseCapture();
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinPointerEvent --
+ *
+ *	This procedure is called for each pointer-related event,
+ *	before the event is queued.  It simulates X style automatic
+ *	grabs so that button release events are not lost.  It also
+ *	updates the pointer position so enter/leave events will be
+ *	correctly generated.
+ *
+ * Results:
+ *	Returns 0 if the event should be discarded.
+ *
+ * Side effects:
+ *	Changes the current mouse capture window. 
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinPointerEvent(eventPtr, winPtr)
+    XEvent *eventPtr;		/* Event to process */
+    TkWindow *winPtr;		/* Window to which event was reported. */
+{
+    POINT pos;
+    HWND hwnd;
+    TkWinDrawable *twdPtr;
+
+    /*
+     * If the mouse is captured, Windows will report all pointer
+     * events to the capture window.  So, we need to determine which
+     * window the mouse is really over and change the event.  Note
+     * that the computed hwnd may point to a window not owned by Tk,
+     * or a toplevel decorative frame, so winPtr can be NULL.
+     */
+
+    if (captured) {
+	pos.x = eventPtr->xmotion.x_root;
+	pos.y = eventPtr->xmotion.y_root;
+	hwnd = WindowFromPoint(pos);
+	twdPtr = TkWinGetDrawableFromHandle(hwnd);
+	if (twdPtr && (twdPtr->type == TWD_WINDOW)) {
+	    winPtr = TkWinGetWinPtr(twdPtr);
+	} else {
+	    winPtr = NULL;
+	}
+    } else {
+	hwnd = TkWinGetHWND(Tk_WindowId(winPtr));
+    }
+
+    switch (eventPtr->type) {
+	case MotionNotify: 
+
+	    /*
+	     * If updating the mouse position caused an enter or leave
+	     * event to be generated, we discard the motion event.
+	     */
+
+	    if (UpdateMousePosition(hwnd, winPtr, eventPtr->xmotion.x_root,
+		    eventPtr->xmotion.y_root)) {
+		return;
+	    }
+	    break;
+
+	case ButtonPress:
+
+	    /*
+	     * Set mouse capture and the restrict window if we are
+	     * currently unrestricted.  However, If this is not the
+	     * first button pressed and we are already grabbed, do not
+	     * change anything.
+	     */
+
+	    if (!restrictWinPtr) {
+		if (!grabWinPtr) {
+		    /*
+		     * Mouse was ungrabbed, so set a button grab.
+		     */
+
+		    restrictWinPtr = winPtr;
+		    captured = 1;
+		    SetCapture(hwnd);
+		} else if ((eventPtr->xmotion.state & ALL_BUTTONS) == 0) {
+
+		    /*
+		     * Mouse was grabbed, but not in a button grab.
+		     * Make sure the new restrict window is inside the
+		     * current grab tree.
+		     */
+
+		    if (TkPositionInTree(winPtr, grabWinPtr)
+			    == TK_GRAB_IN_TREE) {
+			restrictWinPtr = winPtr;
+		    } else {
+			restrictWinPtr = grabWinPtr;
+		    }
+		    captured = 1;
+		    SetCapture(TkWinGetHWND(Tk_WindowId(restrictWinPtr)));
+		}
+	    }
+	    break;
+
+	case ButtonRelease:
+
+	    /*
+	     * Release the mouse capture when the last button is
+	     * released and we aren't in a global grab.
+	     */
+		    
+	    if ((eventPtr->xbutton.state & ALL_BUTTONS)
+		    == buttonStates[eventPtr->xbutton.button - Button1]) {
+		if (!grabWinPtr) {
+		    captured = 0;
+		    ReleaseCapture();
+		}
+
+		/*
+		 * If we are releasing a restrict window, then we need
+		 * to send the button event followed by mouse motion from
+		 * the restrict window the the current mouse position.
+		 */
+
+		if (restrictWinPtr) {
+		    if (Tk_WindowId(restrictWinPtr) != eventPtr->xany.window) {
+			TkChangeEventWindow(eventPtr, restrictWinPtr);
+		    }
+		    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_TAIL);
+		    lastMouseWinPtr = restrictWinPtr;
+		    restrictWinPtr = NULL;
+		    UpdateMousePosition(hwnd, winPtr, eventPtr->xmotion.x_root,
+			    eventPtr->xmotion.y_root);
+		    return;
+		}
+	    }
+	    break;
+    }
+
+    /*
+     * If a restrict window is set, make sure the pointer event is reported
+     * relative to that window.  Otherwise, if a global grab is in effect
+     * then events outside of window managed by Tk should be reported to the
+     * grab window.
+     */
+
+    if (restrictWinPtr) {
+	winPtr = restrictWinPtr;
+    } else if (grabWinPtr && !winPtr) {
+	winPtr = grabWinPtr;
+    }
+
+    /*
+     * If the target window has changed, update the coordinates in the event.
+     */
+
+    if (winPtr && Tk_WindowId(winPtr) != eventPtr->xany.window) {
+	TkChangeEventWindow(eventPtr, winPtr);
+    }
+    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_TAIL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGrabPointer --
+ *
+ *	Capture the mouse so event are reported outside of toplevels.
+ *	Note that this is a very limited implementation that only
+ *	supports GrabModeAsync and owner_events True.
+ *
+ * Results:
+ *	Always returns GrabSuccess.
+ *
+ * Side effects:
+ *	Turns on mouse capture, sets the global grab pointer, and
+ *	clears any window restrictions.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XGrabPointer(display, grab_window, owner_events, event_mask, pointer_mode,
+	keyboard_mode, confine_to, cursor, time)
+    Display* display;
+    Window grab_window;
+    Bool owner_events;
+    unsigned int event_mask;
+    int pointer_mode;
+    int keyboard_mode;
+    Window confine_to;
+    Cursor cursor;
+    Time time;
+{
+    HWND hwnd = TkWinGetHWND(grab_window);
+    grabWinPtr = TkWinGetWinPtr(grab_window);
+    captured = 1;
+    restrictWinPtr = NULL;
+    SetCapture(hwnd);
+    if (TkPositionInTree(lastMouseWinPtr, grabWinPtr) == TK_GRAB_IN_TREE) {
+	TkWinUpdateCursor(lastMouseWinPtr);
+    } else {
+	TkWinUpdateCursor(grabWinPtr);
+    }
+    return GrabSuccess;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XUngrabPointer --
+ *
+ *	Release the current grab.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Releases the mouse capture.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XUngrabPointer(display, time)
+    Display* display;
+    Time time;
+{
+    captured = 0;
+    grabWinPtr = NULL;
+    restrictWinPtr = NULL;
+    ReleaseCapture();
+    TkWinUpdateCursor(lastMouseWinPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGrabKeyboard --
+ *
+ *	Simulates a keyboard grab by setting the focus.
+ *
+ * Results:
+ *	Always returns GrabSuccess.
+ *
+ * Side effects:
+ *	Sets the keyboard focus to the specified window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XGrabKeyboard(display, grab_window, owner_events, pointer_mode,
+	keyboard_mode, time)
+    Display* display;
+    Window grab_window;
+    Bool owner_events;
+    int pointer_mode;
+    int keyboard_mode;
+    Time time;
+{
+    keyboardWinPtr = TkWinGetWinPtr(grab_window);
+    return GrabSuccess;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XUngrabKeyboard --
+ *
+ *	Releases the simulated keyboard grab.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets the keyboard focus back to the value before the grab.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XUngrabKeyboard(display, time)
+    Display* display;
+    Time time;
+{
+    keyboardWinPtr = NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InitializeCrossingEvent --
+ *
+ *	Initializes the common fields for enter/leave events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Fills in the specified event structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InitializeCrossingEvent(eventPtr, winPtr, x, y)
+    XEvent* eventPtr;		/* Event structure to initialize. */
+    TkWindow *winPtr;		/* Window to make event relative to. */
+    long x, y;			/* Root coords of event. */
+{
+    eventPtr->xcrossing.serial = LastKnownRequestProcessed(winPtr->display);
+    eventPtr->xcrossing.send_event = 0;
+    eventPtr->xcrossing.display = winPtr->display;
+    eventPtr->xcrossing.root = RootWindow(winPtr->display, winPtr->screenNum);
+    eventPtr->xcrossing.time = TkCurrentTime(winPtr->dispPtr);
+    eventPtr->xcrossing.x_root = x;
+    eventPtr->xcrossing.y_root = y;
+    eventPtr->xcrossing.state = TkWinGetModifierState(WM_MOUSEMOVE, 0, 0);
+    eventPtr->xcrossing.mode = NotifyNormal;
+    eventPtr->xcrossing.focus = False;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateMousePosition --
+ *
+ *	Update the current mouse window and position, and generate
+ *	any enter/leave events that are needed.  Will schedule a
+ *	timer to check the mouse position if the pointer is still
+ *	inside a Tk window.
+ *
+ * Results:
+ *	Returns 1 if enter/leave events were generated.
+ *
+ * Side effects:
+ *	May generate enter/leave events and schedule a timer.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+UpdateMousePosition(hwnd, winPtr, x, y)
+    HWND hwnd;			/* current mouse window */
+    TkWindow *winPtr;		/* current Tk window (or NULL)  */
+    long x;			/* current mouse position in */
+    long y;			/* root coordinates */
+{
+    int crossed = 0;		/* 1 if mouse crossed a window boundary */
+    TkWindow *cursorWinPtr;
+
+    if (winPtr != lastMouseWinPtr) {
+	if (restrictWinPtr) {
+	    int newPos, oldPos;
+
+	    newPos = TkPositionInTree(winPtr, restrictWinPtr);
+	    oldPos = TkPositionInTree(lastMouseWinPtr, restrictWinPtr);
+
+	    /*
+	     * Check if the mouse crossed into or out of the restrict
+	     * window.  If so, we need to generate an Enter or Leave event.
+	     */
+
+	    if ((newPos != oldPos) && ((newPos == TK_GRAB_IN_TREE)
+		    || (oldPos == TK_GRAB_IN_TREE))) {
+		XEvent event;
+
+		InitializeCrossingEvent(&event, restrictWinPtr, x, y);
+		if (newPos == TK_GRAB_IN_TREE) {
+		    event.type = EnterNotify;
+		} else {
+		    event.type = LeaveNotify;
+		}
+		if ((oldPos == TK_GRAB_ANCESTOR)
+			|| (newPos == TK_GRAB_ANCESTOR)) {
+		    event.xcrossing.detail = NotifyAncestor;
+		} else {
+		    event.xcrossing.detail = NotifyVirtual;
+		}
+		TkChangeEventWindow(&event, restrictWinPtr);
+		Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+	    }
+
+	} else {
+	    TkWindow *targetPtr;
+
+	    if ((lastMouseWinPtr == NULL)
+		|| (lastMouseWinPtr->window == None)) {
+		targetPtr = winPtr;
+	    } else {
+		targetPtr = lastMouseWinPtr;
+	    }
+
+	    if (targetPtr && (targetPtr->window != None)) {
+		XEvent event;
+
+		/*
+		 * Generate appropriate Enter/Leave events.
+		 */
+
+		InitializeCrossingEvent(&event, targetPtr, x, y);
+
+		TkInOutEvents(&event, lastMouseWinPtr, winPtr, LeaveNotify,
+			EnterNotify, TCL_QUEUE_TAIL);
+
+		if (TkPositionInTree(winPtr, grabWinPtr) == TK_GRAB_IN_TREE) {
+		    cursorWinPtr = winPtr;
+		} else {
+		    cursorWinPtr = grabWinPtr;
+		}
+		crossed = 1;
+	    }
+	}
+	lastMouseWinPtr = winPtr;
+    }
+
+    /*
+     * Make sure the cursor reflects the current mouse position.
+     */
+
+    if (restrictWinPtr) {
+	cursorWinPtr = restrictWinPtr;
+    } else if (grabWinPtr) {
+	cursorWinPtr = (TkPositionInTree(winPtr, grabWinPtr)
+		== TK_GRAB_IN_TREE) ? winPtr : grabWinPtr;
+    } else {
+	cursorWinPtr = winPtr;
+    }
+    TkWinUpdateCursor(cursorWinPtr);
+
+    lastMouseWindow = hwnd;
+    lastMousePos.x = x;
+    lastMousePos.y = y;
+
+    /*
+     * Ensure the mouse timer is set if we are still inside a Tk window.
+     */
+
+    if (winPtr != NULL && !mouseTimerSet) {
+	mouseTimerSet = 1;
+	mouseTimer = Tcl_CreateTimerHandler(MOUSE_TIMER_INTERVAL,
+		MouseTimerProc, NULL);
+    }
+
+    return crossed;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * MouseTimerProc --
+ *
+ *	Check the current mouse position and look for enter/leave 
+ *	events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May schedule a new timer and/or generate enter/leave events.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+MouseTimerProc(clientData)
+    ClientData clientData;
+{
+    POINT pos;
+    HWND hwnd;
+    TkWinDrawable *twdPtr;
+    TkWindow *winPtr;
+
+    mouseTimerSet = 0;
+
+    /*
+     * Get the current mouse position and window.  Don't do anything
+     * if the mouse hasn't moved since the last time we looked.
+     */
+
+    GetCursorPos(&pos);
+    if (pos.x == lastMousePos.y && pos.y == lastMousePos.y) {
+	hwnd = lastMouseWindow;
+    } else {
+	hwnd = WindowFromPoint(pos);
+    }
+
+    /*
+     * Check to see if the current window is managed by Tk.
+     */
+
+    if (hwnd == lastMouseWindow) {
+	winPtr = lastMouseWinPtr;
+    } else {
+	twdPtr = TkWinGetDrawableFromHandle(hwnd);
+	if (twdPtr && (twdPtr->type == TWD_WINDOW)) {
+	    winPtr = TkWinGetWinPtr(twdPtr);
+	} else {
+	    winPtr = NULL;
+	}
+    }
+
+    /*
+     * Generate enter/leave events.
+     */
+
+    UpdateMousePosition(hwnd, winPtr, pos.x, pos.y);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetPointerCoords --
+ *
+ *	Fetch the position of the mouse pointer.
+ *
+ * Results:
+ *	*xPtr and *yPtr are filled in with the root coordinates
+ *	of the mouse pointer for the display.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkGetPointerCoords(tkwin, xPtr, yPtr)
+    Tk_Window tkwin;		/* Window that identifies screen on which
+				 * lookup is to be done. */
+    int *xPtr, *yPtr;		/* Store pointer coordinates here. */
+{
+    DWORD msgPos;
+    POINTS rootPoint;
+
+    msgPos = GetMessagePos();
+    rootPoint = MAKEPOINTS(msgPos);
+    *xPtr = rootPoint.x;
+    *yPtr = rootPoint.y;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XQueryPointer --
+ *
+ *	Check the current state of the mouse.  This is not a complete
+ *	implementation of this function.  It only computes the root
+ *	coordinates and the current mask.
+ *
+ * Results:
+ *	Sets root_x_return, root_y_return, and mask_return.  Returns
+ *	true on success.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Bool
+XQueryPointer(display, w, root_return, child_return, root_x_return,
+	root_y_return, win_x_return, win_y_return, mask_return)
+    Display* display;
+    Window w;
+    Window* root_return;
+    Window* child_return;
+    int* root_x_return;
+    int* root_y_return;
+    int* win_x_return;
+    int* win_y_return;
+    unsigned int* mask_return;
+{
+    TkGetPointerCoords(NULL, root_x_return, root_y_return);
+    *mask_return = TkWinGetModifierState(WM_MOUSEMOVE, 0, 0);    
+    return True;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGetInputFocus --
+ *
+ *	Retrieves the current keyboard focus window.
+ *
+ * Results:
+ *	Returns the current focus window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XGetInputFocus(display, focus_return, revert_to_return)
+    Display *display;
+    Window *focus_return;
+    int *revert_to_return;
+{
+    HWND hwnd = GetFocus();
+    TkWinDrawable *twdPtr = TkWinGetDrawableFromHandle(hwnd);
+
+    /*
+     * The focus window may be a Tk window or a window manager decorative
+     * frame.
+     */
+
+    if (twdPtr) {
+	*focus_return = Tk_WindowId(TkWinGetWinPtr(twdPtr));
+    } else {
+	*focus_return = NULL;
+    }
+    *revert_to_return = RevertToParent;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XSetInputFocus --
+ *
+ *	Set the current focus window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the keyboard focus and causes the selected window to
+ *	be activated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XSetInputFocus(display, focus, revert_to, time)
+    Display* display;
+    Window focus;
+    int revert_to;
+    Time time;
+{
+    HWND hwnd = TkWinGetHWND(focus);
+    SetFocus(hwnd);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDefineCursor --
+ *
+ *	This function is called to update the cursor on a window.
+ *	Since the mouse might be in the specified window, we need to
+ *	check the specified window against the current mouse position
+ *	and grab state.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May update the cursor.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDefineCursor(display, w, cursor)
+    Display* display;
+    Window w;
+    Cursor cursor;
+{
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+
+    if (restrictWinPtr) {
+
+	/*
+	 * If there is a restrict window, then we only update the cursor
+	 * if the restrict window is the window being modified.
+	 */
+
+	if (winPtr == restrictWinPtr) {
+	    goto update;
+	}
+    } else if (grabWinPtr) {
+
+	/*
+	 * If a grab is in effect, then we only update the cursor if the mouse
+	 * pointer is outside the grab tree and the specified window is the
+	 * grab window, or the pointer is inside the grab tree and the
+	 * specified window is also the pointer window.
+	 */
+
+	if (TkPositionInTree(lastMouseWinPtr, grabWinPtr) == TK_GRAB_IN_TREE) {
+	    if (winPtr == lastMouseWinPtr) {
+		goto update;
+	    }
+	} else if (winPtr == grabWinPtr) {
+	    goto update;
+	}
+    } else {
+
+	/*
+	 * Otherwise, we only update the cursor if the specified window
+	 * contains the mouse pointer.
+	 */
+
+	if (winPtr == lastMouseWinPtr) {
+	    goto update;
+	}
+    }
+    return;
+
+update:
+    TkWinUpdateCursor(winPtr);
+}
+
diff --git a/Tk/win/tkWinPort.h b/Tk/win/tkWinPort.h
new file mode 100644
index 0000000..07cc911
--- /dev/null
+++ b/Tk/win/tkWinPort.h
@@ -0,0 +1,98 @@
+/*
+ * winPort.h --
+ *
+ *	This header file handles porting issues that occur because of
+ *	differences between Windows and Unix. It should be the only
+ *	file that contains #ifdefs to handle different flavors of OS.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinPort.h 1.10 96/07/23 16:58:01
+ */
+
+#ifndef _WINPORT
+#define _WINPORT
+
+#include <X11/Xlib.h>
+#include <X11/cursorfont.h>
+#include <X11/keysym.h>
+#include <X11/Xatom.h>
+#include <X11/Xutil.h>
+
+#include <malloc.h>
+#include <errno.h>
+#include <ctype.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+#include <limits.h>
+#include <fcntl.h>
+#include <io.h>
+#include <sys/stat.h>
+#include <time.h>
+
+#ifdef _MSC_VER
+#    define strncasecmp strnicmp
+#    define hypot _hypot
+#else /* _MSC_VER */
+#    define strncasecmp strncmpi
+#endif /* _MSC_VER */
+
+#define NBBY 8
+
+#define OPEN_MAX 32
+
+/*
+ * The following define causes Tk to use its internal keysym hash table
+ */
+
+#define REDO_KEYSYM_LOOKUP
+
+/*
+ * The following macro checks to see whether there is buffered
+ * input data available for a stdio FILE.
+ */
+
+#ifdef _MSC_VER
+#    define TK_READ_DATA_PENDING(f) ((f)->_cnt > 0)
+#else /* _MSC_VER */
+#    define TK_READ_DATA_PENDING(f) ((f)->level > 0)
+#endif /* _MSC_VER */
+
+/*
+ * The following stubs implement various calls that don't do anything
+ * under Windows.
+ */
+
+#define TkFreeWindowId(dispPtr,w)
+#define TkInitXId(dispPtr)
+#define XFlush(display)
+#define XGrabServer(display)
+#define XUngrabServer(display)
+
+/*
+ * The following X functions are implemented as macros under Windows.
+ */
+
+#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));}
+#define XNoOp(display) {display->request++;}
+#define XSynchronize(display, bool) {display->request++;}
+#define XSync(display, bool) {display->request++;}
+#define XVisualIDFromVisual(visual) (visual->visualid)
+
+/*
+ * Define timezone for gettimeofday.
+ */
+
+struct timezone {
+    int tz_minuteswest;
+    int tz_dsttime;
+};
+
+extern int gettimeofday(struct timeval *, struct timezone *);
+extern void panic();
+
+#endif /* _WINPORT */
diff --git a/Tk/win/tkWinRegion.c b/Tk/win/tkWinRegion.c
new file mode 100644
index 0000000..6304534
--- /dev/null
+++ b/Tk/win/tkWinRegion.c
@@ -0,0 +1,179 @@
+/* 
+ * tkWinRegion.c --
+ *
+ *	Tk Region emulation code.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinRegion.c 1.6 96/02/15 18:56:06
+ */
+
+#include "tkWinInt.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkCreateRegion --
+ *
+ *	Construct an empty region.
+ *
+ * Results:
+ *	Returns a new region handle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkRegion
+TkCreateRegion()
+{
+    RECT rect;
+    memset(&rect, 0, sizeof(RECT));
+    return (TkRegion) CreateRectRgnIndirect(&rect);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkDestroyRegion --
+ *
+ *	Destroy the specified region.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees the storage associated with the specified region.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkDestroyRegion(r)
+    TkRegion r;
+{
+    DeleteObject((HRGN) r);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkClipBox --
+ *
+ *	Computes the bounding box of a region.
+ *
+ * Results:
+ *	Sets rect_return to the bounding box of the region.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkClipBox(r, rect_return)
+    TkRegion r;
+    XRectangle* rect_return;
+{
+    RECT rect;
+    GetRgnBox((HRGN)r, &rect);
+    rect_return->x = rect.left;
+    rect_return->y = rect.top;
+    rect_return->width = rect.right - rect.left;
+    rect_return->height = rect.bottom - rect.top;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkIntersectRegion --
+ *
+ *	Compute the intersection of two regions.
+ *
+ * Results:
+ *	Returns the result in the dr_return region.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkIntersectRegion(sra, srb, dr_return)
+    TkRegion sra;
+    TkRegion srb;
+    TkRegion dr_return;
+{
+    CombineRgn((HRGN) dr_return, (HRGN) sra, (HRGN) srb, RGN_AND);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkUnionRectWithRegion --
+ *
+ *	Create the union of a source region and a rectangle.
+ *
+ * Results:
+ *	Returns the result in the dr_return region.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkUnionRectWithRegion(rectangle, src_region, dest_region_return)
+    XRectangle* rectangle;
+    TkRegion src_region;
+    TkRegion dest_region_return;
+{
+    HRGN rectRgn = CreateRectRgn(rectangle->x, rectangle->y,
+	    rectangle->x + rectangle->width, rectangle->y + rectangle->height);
+    CombineRgn((HRGN) dest_region_return, (HRGN) src_region,
+	    (HRGN) rectRgn, RGN_OR);
+    DeleteObject(rectRgn);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkRectInRegion --
+ *
+ *	Test whether a given rectangle overlaps with a region.
+ *
+ * Results:
+ *	Returns RectanglePart or RectangleOut.  Note that this is
+ *	not a complete implementation since it doesn't test for
+ *	RectangleIn.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkRectInRegion(r, x, y, width, height)
+    TkRegion r;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+{
+    RECT rect;
+    rect.top = y;
+    rect.left = x;
+    rect.bottom = y+height;
+    rect.right = x+width;
+    return RectInRegion((HRGN)r, &rect) ? RectanglePart : RectangleOut;
+}
diff --git a/Tk/win/tkWinWindow.c b/Tk/win/tkWinWindow.c
new file mode 100644
index 0000000..ef579c6
--- /dev/null
+++ b/Tk/win/tkWinWindow.c
@@ -0,0 +1,539 @@
+/* 
+ * tkWinWindow.c --
+ *
+ *	Xlib emulation routines for Windows related to creating,
+ *	displaying and destroying windows.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinWindow.c 1.13 96/04/11 17:52:20
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		NotifyVisibility _ANSI_ARGS_((XEvent *eventPtr,
+			    TkWindow *winPtr));
+static void 		StackWindow _ANSI_ARGS_((Window w, Window sibling,
+			    int stack_mode));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkMakeWindow --
+ *
+ *	Creates a Windows window object based on the current attributes
+ *	of the specified TkWindow.
+ *
+ * Results:
+ *	Returns a pointer to a new TkWinDrawable cast to a Window.
+ *
+ * Side effects:
+ *	Creates a new window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Window
+TkMakeWindow(winPtr, parent)
+    TkWindow *winPtr;
+    Window parent;
+{
+    HWND parentWin;
+    TkWinDrawable *twdPtr;
+    int style;
+    
+
+    twdPtr = (TkWinDrawable*) ckalloc(sizeof(TkWinDrawable));
+    if (twdPtr == NULL) {
+	return None;
+    }
+
+    twdPtr->type = TWD_WINDOW;
+    twdPtr->window.winPtr = winPtr;
+
+    if (parent != None) {
+	parentWin = TkWinGetHWND(parent);
+	style = WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS;
+    } else {
+	parentWin = NULL;
+	style = WS_POPUP | WS_CLIPCHILDREN;
+    }
+
+    twdPtr->window.handle = CreateWindow(TK_WIN_CHILD_CLASS_NAME, "", style,
+	    winPtr->changes.x, winPtr->changes.y,
+	    winPtr->changes.width, winPtr->changes.height,
+	    parentWin, NULL, TkWinGetAppInstance(), twdPtr);
+
+    if (twdPtr->window.handle == NULL) {
+	ckfree((char *) twdPtr);
+	twdPtr = NULL;
+    }
+
+    return (Window)twdPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDestroyWindow --
+ *
+ *	Destroys the given window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sends the WM_DESTROY message to the window and then destroys
+ *	it the Win32 resources associated with the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDestroyWindow(display, w)
+    Display* display;
+    Window w;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *)w;
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+    HWND hwnd = TkWinGetHWND(w);
+
+    display->request++;
+
+    /*
+     * Remove references to the window in the pointer module, and 
+     * then remove the backpointer from the drawable.
+     */
+
+    TkWinPointerDeadWindow(winPtr);
+    twdPtr->window.winPtr = NULL;
+
+    /*
+     * Don't bother destroying the window if we are going to destroy
+     * the parent later.  Also if the window has already been destroyed
+     * then we need to free the drawable now.
+     */
+
+    if (!hwnd) {
+	ckfree((char *)twdPtr);
+    } else if (!(winPtr->flags & TK_PARENT_DESTROYED)) {
+	DestroyWindow(hwnd);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XMapWindow --
+ *
+ *	Cause the given window to become visible.
+ *
+ * Results:
+ *	None
+ *
+ * Side effects:
+ *	Causes the window state to change, and generates a MapNotify
+ *	event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XMapWindow(display, w)
+    Display* display;
+    Window w;
+{
+    XEvent event;
+    TkWindow *parentPtr;
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+
+    display->request++;
+
+    ShowWindow(TkWinGetHWND(w), SW_SHOWNORMAL);
+    winPtr->flags |= TK_MAPPED;
+
+    event.type = MapNotify;
+    event.xmap.serial = display->request;
+    event.xmap.send_event = False;
+    event.xmap.display = display;
+    event.xmap.event = winPtr->window;
+    event.xmap.window = winPtr->window;
+    event.xmap.override_redirect = winPtr->atts.override_redirect;
+    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+
+    /*
+     * Check to see if this window is visible now.  If all of the parent
+     * windows up to the first toplevel are mapped, then this window and
+     * its mapped children have just become visible.
+     */
+
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	for (parentPtr = winPtr->parentPtr; ;
+	        parentPtr = parentPtr->parentPtr) {
+	    if ((parentPtr == NULL) || !(parentPtr->flags & TK_MAPPED)) {
+		return;
+	    }
+	    if (parentPtr->flags & TK_TOP_LEVEL) {
+		break;
+	    }
+	}
+    }
+
+    /*
+     * Generate VisibilityNotify events for this window and its mapped
+     * children.
+     */
+
+    event.type = VisibilityNotify;
+    event.xvisibility.state = VisibilityUnobscured;
+    NotifyVisibility(&event, winPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NotifyVisibility --
+ *
+ *	This function recursively notifies the mapped children of the
+ *	specified window of a change in visibility.  Note that we don't
+ *	properly report the visibility state, since Windows does not
+ *	provide that info.  The eventPtr argument must point to an event
+ *	that has been completely initialized except for the window slot.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Generates lots of events.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+NotifyVisibility(eventPtr, winPtr)
+    XEvent *eventPtr;		/* Initialized VisibilityNotify event. */
+    TkWindow *winPtr;		/* Window to notify. */
+{
+    eventPtr->xvisibility.window = winPtr->window;
+    Tk_QueueWindowEvent(eventPtr, TCL_QUEUE_TAIL);
+    for (winPtr = winPtr->childList; winPtr != NULL;
+	    winPtr = winPtr->nextPtr) {
+	if (winPtr->flags & TK_MAPPED) {
+	    NotifyVisibility(eventPtr, winPtr);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XUnmapWindow --
+ *
+ *	Cause the given window to become invisible.
+ *
+ * Results:
+ *	None
+ *
+ * Side effects:
+ *	Causes the window state to change, and generates an UnmapNotify
+ *	event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XUnmapWindow(display, w)
+    Display* display;
+    Window w;
+{
+    XEvent event;
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+
+    display->request++;
+
+    ShowWindow(TkWinGetHWND(w), SW_HIDE);
+    winPtr->flags &= ~TK_MAPPED;
+
+    event.type = UnmapNotify;
+    event.xunmap.serial = display->request;
+    event.xunmap.send_event = False;
+    event.xunmap.display = display;
+    event.xunmap.event = winPtr->window;
+    event.xunmap.window = winPtr->window;
+    event.xunmap.from_configure = False;
+    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XMoveResizeWindow --
+ *
+ *	Move and resize a window relative to its parent.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Repositions and resizes the specified window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XMoveResizeWindow(display, w, x, y, width, height)
+    Display* display;
+    Window w;
+    int x;			/* Position relative to parent. */
+    int y;
+    unsigned int width;
+    unsigned int height;
+{
+    display->request++;
+    MoveWindow(TkWinGetHWND(w), x, y, width, height, TRUE);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XMoveWindow --
+ *
+ *	Move a window relative to its parent.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Repositions the specified window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XMoveWindow(display, w, x, y)
+    Display* display;
+    Window w;
+    int x;
+    int y;
+{
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+
+    display->request++;
+
+    MoveWindow(TkWinGetHWND(w), x, y, winPtr->changes.width,
+	    winPtr->changes.height, TRUE);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XResizeWindow --
+ *
+ *	Resize a window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Resizes the specified window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XResizeWindow(display, w, width, height)
+    Display* display;
+    Window w;
+    unsigned int width;
+    unsigned int height;
+{
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+
+    display->request++;
+
+    MoveWindow(TkWinGetHWND(w), winPtr->changes.x, winPtr->changes.y, width,
+	    height, TRUE);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XRaiseWindow --
+ *
+ *	Change the stacking order of a window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the stacking order of the specified window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XRaiseWindow(display, w)
+    Display* display;
+    Window w;
+{
+    HWND window = TkWinGetHWND(w);
+
+    display->request++;
+    SetWindowPos(window, HWND_TOPMOST, 0, 0, 0, 0,
+	    SWP_NOMOVE | SWP_NOSIZE);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XConfigureWindow --
+ *
+ *	Change the size, position, stacking, or border of the specified
+ *	window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the attributes of the specified window.  Note that we
+ *	ignore the passed in values and use the values stored in the
+ *	TkWindow data structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XConfigureWindow(display, w, value_mask, values)
+    Display* display;
+    Window w;
+    unsigned int value_mask;
+    XWindowChanges* values;
+{
+    TkWindow *winPtr = TkWinGetWinPtr(w);
+    HWND window = TkWinGetHWND(w);
+    HWND insertAfter;
+
+    display->request++;
+
+    /*
+     * Change the shape and/or position of the window.
+     */
+
+    if (value_mask & (CWX|CWY|CWWidth|CWHeight)) {
+	MoveWindow(window, winPtr->changes.x, winPtr->changes.y,
+		winPtr->changes.width, winPtr->changes.height, TRUE);
+    }
+
+    /*
+     * Change the stacking order of the window.
+     */
+
+    if (value_mask & CWStackMode) {
+	if ((value_mask & CWSibling) && (values->sibling != None)) {
+	    HWND sibling = TkWinGetHWND(values->sibling);
+
+	    /*
+	     * Windows doesn't support the Above mode, so we insert the
+	     * window just below the sibling and then swap them.
+	     */
+
+	    if (values->stack_mode == Above) {
+		SetWindowPos(window, sibling, 0, 0, 0, 0,
+			SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+		insertAfter = window;
+		window = sibling;
+	    } else {
+		insertAfter = sibling;
+	    }
+	} else {
+	    insertAfter = (values->stack_mode == Above) ? HWND_TOP
+		: HWND_BOTTOM;
+	}
+		
+	SetWindowPos(window, insertAfter, 0, 0, 0, 0,
+		SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+    } 
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XClearWindow --
+ *
+ *	Clears the entire window to the current background color.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Erases the current contents of the window.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XClearWindow(display, w)
+    Display* display;
+    Window w;
+{
+    RECT rc;
+    HBRUSH brush;
+    HPALETTE oldPalette, palette;
+    TkWindow *winPtr;
+    HWND hwnd = TkWinGetHWND(w);
+    HDC dc = GetDC(hwnd);
+
+    palette = TkWinGetPalette(display->screens[0].cmap);
+    oldPalette = SelectPalette(dc, palette, FALSE);
+
+    display->request++;
+
+    winPtr = TkWinGetWinPtr(w);
+    brush = CreateSolidBrush(winPtr->atts.background_pixel);
+    GetWindowRect(hwnd, &rc);
+    rc.right = rc.right - rc.left;
+    rc.bottom = rc.bottom - rc.top;
+    rc.left = rc.top = 0;
+    FillRect(dc, &rc, brush);
+
+    DeleteObject(brush);
+    SelectPalette(dc, oldPalette, TRUE);
+    ReleaseDC(hwnd, dc);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XChangeWindowAttributes --
+ *
+ *	This function is called when the attributes on a window are
+ *	updated.  Since Tk maintains all of the window state, the only
+ *	relevant value is the cursor.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May cause the mouse position to be updated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XChangeWindowAttributes(display, w, valueMask, attributes)
+    Display* display;
+    Window w;
+    unsigned long valueMask;
+    XSetWindowAttributes* attributes;
+{
+    if (valueMask & CWCursor) {
+	XDefineCursor(display, w, attributes->cursor);
+    }
+}
diff --git a/Tk/win/tkWinWm.c b/Tk/win/tkWinWm.c
new file mode 100644
index 0000000..ca84b89
--- /dev/null
+++ b/Tk/win/tkWinWm.c
@@ -0,0 +1,3446 @@
+/* 
+ * tkWinWm.c --
+ *
+ *	This module takes care of the interactions between a Tk-based
+ *	application and the window manager.  Among other things, it
+ *	implements the "wm" command and passes geometry information
+ *	to the window manager.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinWm.c 1.35 96/06/12 13:59:06
+ */
+
+#include "tkWinInt.h"
+
+/*
+ * A data structure of the following type holds information for
+ * each window manager protocol (such as WM_DELETE_WINDOW) for
+ * which a handler (i.e. a Tcl command) has been defined for a
+ * particular top-level window.
+ */
+
+typedef struct ProtocolHandler {
+    Atom protocol;		/* Identifies the protocol. */
+    struct ProtocolHandler *nextPtr;
+				/* Next in list of protocol handlers for
+				 * the same top-level window, or NULL for
+				 * end of list. */
+    Tcl_Interp *interp;		/* Interpreter in which to invoke command. */
+    char command[4];		/* Tcl command to invoke when a client
+				 * message for this protocol arrives. 
+				 * The actual size of the structure varies
+				 * to accommodate the needs of the actual
+				 * command. THIS MUST BE THE LAST FIELD OF
+				 * THE STRUCTURE. */
+} ProtocolHandler;
+
+#define HANDLER_SIZE(cmdLength) \
+    ((unsigned) (sizeof(ProtocolHandler) - 3 + cmdLength))
+
+/*
+ * A data structure of the following type holds window-manager-related
+ * information for each top-level window in an application.
+ */
+
+typedef struct TkWmInfo {
+    TkWindow *winPtr;		/* Pointer to main Tk information for
+				 * this window. */
+    Window reparent;		/* This is the decorative frame window
+				 * created by the window manager to wrap
+				 * a toplevel window.  This window is
+				 * a direct child of the root window. */
+    Tk_Uid titleUid;		/* Title to display in window caption.  If
+				 * NULL, use name of widget. */
+    Tk_Uid iconName;		/* Name to display in icon. */
+    Window master;		/* Master window for TRANSIENT_FOR property,
+				 * or None. */
+    XWMHints hints;		/* Various pieces of information for
+				 * window manager. */
+    Tk_Uid leaderName;		/* Path name of leader of window group
+				 * (corresponds to hints.window_group).
+				 * Note:  this field doesn't get updated
+				 * if leader is destroyed. */
+    Tk_Uid masterWindowName;	/* Path name of window specified as master
+				 * in "wm transient" command, or NULL.
+				 * Note:  this field doesn't get updated if
+				 * masterWindowName is destroyed. */
+    Tk_Window icon;		/* Window to use as icon for this window,
+				 * or NULL. */
+    Tk_Window iconFor;		/* Window for which this window is icon, or
+				 * NULL if this isn't an icon for anyone. */
+    int withdrawn;		/* Non-zero means window has been withdrawn. */
+
+    /*
+     * Information used to construct an XSizeHints structure for
+     * the window manager:
+     */
+
+    int defMinWidth, defMinHeight, defMaxWidth, defMaxHeight;
+				/* Default resize limits given by system. */
+    int sizeHintsFlags;		/* Flags word for XSizeHints structure.
+				 * If the PBaseSize flag is set then the
+				 * window is gridded;  otherwise it isn't
+				 * gridded. */
+    int minWidth, minHeight;	/* Minimum dimensions of window, in
+				 * grid units, not pixels. */
+    int maxWidth, maxHeight;	/* Maximum dimensions of window, in
+				 * grid units, not pixels, or 0 to default. */
+    Tk_Window gridWin;		/* Identifies the window that controls
+				 * gridding for this top-level, or NULL if
+				 * the top-level isn't currently gridded. */
+    int widthInc, heightInc;	/* Increments for size changes (# pixels
+				 * per step). */
+    struct {
+	int x;	/* numerator */
+	int y;  /* denominator */
+    } minAspect, maxAspect;	/* Min/max aspect ratios for window. */
+    int reqGridWidth, reqGridHeight;
+				/* The dimensions of the window (in
+				 * grid units) requested through
+				 * the geometry manager. */
+    int gravity;		/* Desired window gravity. */
+
+    /*
+     * Information used to manage the size and location of a window.
+     */
+
+    int width, height;		/* Desired dimensions of window, specified
+				 * in grid units.  These values are
+				 * set by the "wm geometry" command and by
+				 * ConfigureNotify events (for when wm
+				 * resizes window).  -1 means user hasn't
+				 * requested dimensions. */
+    int x, y;			/* Desired X and Y coordinates for window.
+				 * These values are set by "wm geometry",
+				 * plus by ConfigureNotify events (when wm
+				 * moves window).  These numbers are
+				 * different than the numbers stored in
+				 * winPtr->changes because (a) they could be
+				 * measured from the right or bottom edge
+				 * of the screen (see WM_NEGATIVE_X and
+				 * WM_NEGATIVE_Y flags) and (b) if the window
+				 * has been reparented then they refer to the
+				 * parent rather than the window itself. */
+    int xInParent, yInParent;	/* Offset of window within reparent,  measured
+				 * from upper-left outer corner of parent's
+				 * border to upper-left outer corner of child's
+				 * border.  If not reparented then these are
+				 * zero. */
+    int borderWidth, borderHeight;
+				/* Width and height of window dressing, in
+				 * pixels for the current style/exStyle.  This
+				 * includes the border on both sides of the
+				 * window. */
+    int configWidth, configHeight;
+				/* Dimensions passed to last request that we
+				 * issued to change geometry of window.  Used
+				 * to eliminate redundant resize operations. */
+    long style;			/* Window style of reparent. */
+    long exStyle;		/* Window exStyle of reparent. */
+
+    /*
+     * List of children of the toplevel which have private colormaps.
+     */
+
+    TkWindow **cmapList;	/* Array of window with private colormaps. */
+    int cmapCount;		/* Number of windows in array. */
+
+    /*
+     * Miscellaneous information.
+     */
+
+    ProtocolHandler *protPtr;	/* First in list of protocol handlers for
+				 * this window (NULL means none). */
+    int cmdArgc;		/* Number of elements in cmdArgv below. */
+    char **cmdArgv;		/* Array of strings to store in the
+				 * WM_COMMAND property.  NULL means nothing
+				 * available. */
+    char *clientMachine;	/* String to store in WM_CLIENT_MACHINE
+				 * property, or NULL. */
+    int flags;			/* Miscellaneous flags, defined below. */
+    struct TkWmInfo *nextPtr;	/* Next in list of all top-level windows. */
+} WmInfo;
+
+/*
+ * Flag values for WmInfo structures:
+ *
+ * WM_NEVER_MAPPED -		non-zero means window has never been
+ *				mapped;  need to update all info when
+ *				window is first mapped.
+ * WM_UPDATE_PENDING -		non-zero means a call to UpdateGeometryInfo
+ *				has already been scheduled for this
+ *				window;  no need to schedule another one.
+ * WM_NEGATIVE_X -		non-zero means x-coordinate is measured in
+ *				pixels from right edge of screen, rather
+ *				than from left edge.
+ * WM_NEGATIVE_Y -		non-zero means y-coordinate is measured in
+ *				pixels up from bottom of screen, rather than
+ *				down from top.
+ * WM_UPDATE_SIZE_HINTS -	non-zero means that new size hints need to be
+ *				propagated to window manager.
+ * WM_SYNC_PENDING -		set to non-zero while waiting for the window
+ *				manager to respond to some state change.
+ * WM_MOVE_PENDING -		non-zero means the application has requested
+ *				a new position for the window, but it hasn't
+ *				been reflected through the window manager
+ *				yet.
+ * WM_COLORAMPS_EXPLICIT -	non-zero means the colormap windows were
+ *				set explicitly via "wm colormapwindows".
+ * WM_ADDED_TOPLEVEL_COLORMAP - non-zero means that when "wm colormapwindows"
+ *				was called the top-level itself wasn't
+ *				specified, so we added it implicitly at
+ *				the end of the list.
+ */
+
+#define WM_NEVER_MAPPED			(1<<0)
+#define WM_UPDATE_PENDING		(1<<1)
+#define WM_NEGATIVE_X			(1<<2)
+#define WM_NEGATIVE_Y			(1<<3)
+#define WM_UPDATE_SIZE_HINTS		(1<<4)
+#define WM_SYNC_PENDING			(1<<5)
+#define WM_CREATE_PENDING		(1<<6)
+#define WM_MOVE_PENDING			(1<<7)
+#define WM_COLORMAPS_EXPLICIT		(1<<8)
+#define WM_ADDED_TOPLEVEL_COLORMAP	(1<<9)
+#define WM_WIDTH_NOT_RESIZABLE		(1<<10)
+#define WM_HEIGHT_NOT_RESIZABLE		(1<<11)
+
+/*
+ * Window styles for various types of toplevel windows.
+ */
+
+#define WM_TOPLEVEL_STYLE (WS_OVERLAPPEDWINDOW|WS_CLIPCHILDREN|CS_DBLCLKS)
+#define WM_OVERRIDE_STYLE (WS_POPUP|WS_CLIPCHILDREN|CS_DBLCLKS)
+#define WM_TRANSIENT_STYLE \
+		(WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_CLIPSIBLINGS|CS_DBLCLKS)
+
+#define EX_TOPLEVEL_STYLE 0;
+#define EX_OVERRIDE_STYLE (WS_EX_TOOLWINDOW);
+#define EX_TRANSIENT_STYLE (WS_EX_TOOLWINDOW | WS_EX_DLGMODALFRAME);
+
+/*
+ * This module keeps a list of all top-level windows.
+ */
+
+static WmInfo *firstWmPtr = NULL;	/* Points to first top-level window. */
+static WmInfo *foregroundWmPtr = NULL; /* Points to the foreground window. */
+
+/*
+ * The variable below is used to enable or disable tracing in this
+ * module.  If tracing is enabled, then information is printed on
+ * standard output about interesting interactions with the window
+ * manager.
+ */
+
+static int wmTracing = 0;
+
+/*
+ * The following structure is the official type record for geometry
+ * management of top-level windows.
+ */
+
+static void		TopLevelReqProc _ANSI_ARGS_((ClientData dummy,
+			    Tk_Window tkwin));
+
+static Tk_GeomMgr wmMgrType = {
+    "wm",				/* name */
+    TopLevelReqProc,			/* requestProc */
+    (Tk_GeomLostSlaveProc *) NULL,	/* lostSlaveProc */
+};
+
+/*
+ * Global system palette.  This value always refers to the currently
+ * installed foreground logical palette.
+ */
+
+static HPALETTE systemPalette = NULL;
+
+/*
+ * Window that is being constructed.  This value is set immediately
+ * before a call to CreateWindowEx, and is used by TkWinWmSetLimits.
+ * This is a gross hack needed to work around Windows brain damage
+ * where it sends the WM_GETMINMAXINFO message before the WM_CREATE
+ * window.
+ */
+
+static TkWindow *createWindow = NULL;
+
+/*
+ * This flag is cleared when the first window is mapped in a non-iconic
+ * state.
+ */
+
+static int firstWindow = 1;
+
+/*
+ * Forward declarations for procedures defined in this file:
+ */
+
+static void		ConfigureEvent _ANSI_ARGS_((TkWindow *winPtr,
+			    XConfigureEvent *eventPtr));
+static void		DeiconifyWindow _ANSI_ARGS_((TkWindow *winPtr));
+static void		GetMaxSize _ANSI_ARGS_((WmInfo *wmPtr,
+			    int *maxWidthPtr, int *maxHeightPtr));
+static void		GetMinSize _ANSI_ARGS_((WmInfo *wmPtr,
+			    int *minWidthPtr, int *minHeightPtr));
+static void		IconifyWindow _ANSI_ARGS_((TkWindow *winPtr));
+static void		InvalidateSubTree _ANSI_ARGS_((TkWindow *winPtr,
+    			    Colormap colormap));
+static int		ParseGeometry _ANSI_ARGS_((Tcl_Interp *interp,
+			    char *string, TkWindow *winPtr));
+static void		RefreshColormap _ANSI_ARGS_((Colormap colormap));
+static void		TopLevelEventProc _ANSI_ARGS_((ClientData clientData,
+			    XEvent *eventPtr));
+static void		TopLevelReqProc _ANSI_ARGS_((ClientData dummy,
+			    Tk_Window tkwin));
+static void		UpdateGeometryInfo _ANSI_ARGS_((
+			    ClientData clientData));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinWmSetLimits --
+ *
+ *	Updates the minimum and maximum window size constraints.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Changes the values of the info pointer to reflect the current
+ *	minimum and maximum size values.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinWmSetLimits(hwnd, info)
+    HWND hwnd;
+    MINMAXINFO *info;
+{
+    TkWinDrawable *twdPtr;
+    TkWindow *winPtr;
+    register WmInfo *wmPtr;
+    int maxWidth, maxHeight;
+    int minWidth, minHeight;
+    int base;
+
+    /*
+     * Get the window from the user data slot or from the createWindow.
+     */
+
+    twdPtr = (TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+    if (twdPtr != NULL ) {
+	winPtr = TkWinGetWinPtr(twdPtr);
+    } else {
+	winPtr = createWindow;
+    }	
+
+    if (winPtr == NULL) {
+	return;
+    }
+
+    wmPtr = winPtr->wmInfoPtr;
+    
+    /*
+     * Copy latest constraint info.
+     */
+
+    wmPtr->defMinWidth = info->ptMinTrackSize.x;
+    wmPtr->defMinHeight = info->ptMinTrackSize.y;
+    wmPtr->defMaxWidth = info->ptMaxTrackSize.x;
+    wmPtr->defMaxHeight = info->ptMaxTrackSize.y;
+    
+    GetMaxSize(wmPtr, &maxWidth, &maxHeight);
+    GetMinSize(wmPtr, &minWidth, &minHeight);
+
+    if (wmPtr->gridWin != NULL) {
+	base = winPtr->reqWidth - (wmPtr->reqGridWidth * wmPtr->widthInc);
+	if (base < 0) {
+	    base = 0;
+	}
+	base += wmPtr->borderWidth;
+	info->ptMinTrackSize.x = base + (minWidth * wmPtr->widthInc);
+	info->ptMaxTrackSize.x = base + (maxWidth * wmPtr->widthInc);
+
+	base = winPtr->reqHeight - (wmPtr->reqGridHeight * wmPtr->heightInc);
+	if (base < 0) {
+	    base = 0;
+	}
+	base += wmPtr->borderHeight;
+	info->ptMinTrackSize.y = base + (minHeight * wmPtr->heightInc);
+	info->ptMaxTrackSize.y = base + (maxHeight * wmPtr->heightInc);
+    } else {
+	info->ptMaxTrackSize.x = maxWidth + wmPtr->borderWidth;
+	info->ptMaxTrackSize.y = maxHeight + wmPtr->borderHeight;
+	info->ptMinTrackSize.x = minWidth + wmPtr->borderWidth;
+	info->ptMinTrackSize.y = minHeight + wmPtr->borderHeight;
+    }
+
+    /*
+     * If the window isn't supposed to be resizable, then set the
+     * minimum and maximum dimensions to be the same as the current size.
+     */
+
+    if (wmPtr->flags & WM_WIDTH_NOT_RESIZABLE) {
+	info->ptMinTrackSize.x = winPtr->changes.width + wmPtr->borderWidth;
+	info->ptMaxTrackSize.x = info->ptMinTrackSize.x;
+    }
+    if (wmPtr->flags & WM_HEIGHT_NOT_RESIZABLE) {
+	info->ptMinTrackSize.y = winPtr->changes.height + wmPtr->borderHeight;
+	info->ptMaxTrackSize.y = info->ptMinTrackSize.y;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmNewWindow --
+ *
+ *	This procedure is invoked whenever a new top-level
+ *	window is created.  Its job is to initialize the WmInfo
+ *	structure for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A WmInfo structure gets allocated and initialized.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmNewWindow(winPtr)
+    TkWindow *winPtr;		/* Newly-created top-level window. */
+{
+    register WmInfo *wmPtr;
+
+    wmPtr = (WmInfo *) ckalloc(sizeof(WmInfo));
+    winPtr->wmInfoPtr = wmPtr;
+    wmPtr->winPtr = winPtr;
+    wmPtr->reparent = None;
+    wmPtr->titleUid = NULL;
+    wmPtr->iconName = NULL;
+    wmPtr->master = None;
+    wmPtr->hints.flags = InputHint | StateHint;
+    wmPtr->hints.input = True;
+    wmPtr->hints.initial_state = NormalState;
+    wmPtr->hints.icon_pixmap = None;
+    wmPtr->hints.icon_window = None;
+    wmPtr->hints.icon_x = wmPtr->hints.icon_y = 0;
+    wmPtr->hints.icon_mask = None;
+    wmPtr->hints.window_group = None;
+    wmPtr->leaderName = NULL;
+    wmPtr->masterWindowName = NULL;
+    wmPtr->icon = NULL;
+    wmPtr->iconFor = NULL;
+    wmPtr->withdrawn = 0;
+    wmPtr->sizeHintsFlags = 0;
+
+    /*
+     * Default the maximum dimensions to the size of the display.
+     */
+
+    wmPtr->defMinWidth = wmPtr->defMinHeight = 0;
+    wmPtr->defMaxWidth = DisplayWidth(winPtr->display,
+	    winPtr->screenNum);
+    wmPtr->defMaxHeight = DisplayHeight(winPtr->display,
+	    winPtr->screenNum);
+    wmPtr->minWidth = wmPtr->minHeight = 1;
+    wmPtr->maxWidth = wmPtr->maxHeight = 0;
+    wmPtr->gridWin = NULL;
+    wmPtr->widthInc = wmPtr->heightInc = 1;
+    wmPtr->minAspect.x = wmPtr->minAspect.y = 1;
+    wmPtr->maxAspect.x = wmPtr->maxAspect.y = 1;
+    wmPtr->reqGridWidth = wmPtr->reqGridHeight = -1;
+    wmPtr->gravity = NorthWestGravity;
+    wmPtr->width = -1;
+    wmPtr->height = -1;
+    wmPtr->style = WM_TOPLEVEL_STYLE;
+    wmPtr->exStyle = EX_TOPLEVEL_STYLE;
+    wmPtr->x = winPtr->changes.x;
+    wmPtr->y = winPtr->changes.y;
+    wmPtr->borderWidth = 0;
+    wmPtr->borderHeight = 0;
+    wmPtr->xInParent = 0;
+    wmPtr->yInParent = 0;
+    
+    wmPtr->cmapList = NULL;
+    wmPtr->cmapCount = 0;
+
+    wmPtr->configWidth = -1;
+    wmPtr->configHeight = -1;
+    wmPtr->protPtr = NULL;
+    wmPtr->cmdArgv = NULL;
+    wmPtr->clientMachine = NULL;
+    wmPtr->flags = WM_NEVER_MAPPED;
+    wmPtr->nextPtr = firstWmPtr;
+    firstWmPtr = wmPtr;
+
+    /*
+     * Tk must monitor structure events for top-level windows, in order
+     * to detect size and position changes caused by window managers.
+     */
+
+    Tk_CreateEventHandler((Tk_Window) winPtr, StructureNotifyMask,
+	    TopLevelEventProc, (ClientData) winPtr);
+
+    /*
+     * Arrange for geometry requests to be reflected from the window
+     * to the window manager.
+     */
+
+    Tk_ManageGeometry((Tk_Window) winPtr, &wmMgrType, (ClientData) 0);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmMapWindow --
+ *
+ *	This procedure is invoked to map a top-level window.  This
+ *	module gets a chance to update all window-manager-related
+ *	information in properties before the window manager sees
+ *	the map event and checks the properties.  It also gets to
+ *	decide whether or not to even map the window after all.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Properties of winPtr may get updated to provide up-to-date
+ *	information to the window manager.  The window may also get
+ *	mapped, but it may not be if this procedure decides that
+ *	isn't appropriate (e.g. because the window is withdrawn).
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmMapWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's about to
+				 * be mapped. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    XEvent event;
+    HWND child = TkWinGetHWND(winPtr->window);
+
+    if (wmPtr->flags & WM_NEVER_MAPPED) {
+	int x, y, width, height;
+	TkWinDrawable *parentPtr;
+	RECT rect;
+	HWND window, parentHWND = NULL;
+
+	wmPtr->flags &= ~WM_NEVER_MAPPED;
+
+	/*
+	 * This is the first time this window has ever been mapped.
+	 * Store all the window-manager-related information for the
+	 * window.
+	 */
+
+	if (wmPtr->titleUid == NULL) {
+	    wmPtr->titleUid = winPtr->nameUid;
+	}
+
+	/*
+	 * Pick the decorative frame style.  Override redirect windows get
+	 * created as undecorated popups.  Transient windows get a modal dialog
+	 * frame.  Neither override, nor transient windows appear in the Win95
+	 * taskbar.
+	 */
+	
+	if (winPtr->atts.override_redirect) {
+	    wmPtr->style = WM_OVERRIDE_STYLE;
+	    wmPtr->exStyle = EX_OVERRIDE_STYLE;
+	} else if (wmPtr->master) {
+	    wmPtr->style = WM_TRANSIENT_STYLE;
+	    wmPtr->exStyle = EX_TRANSIENT_STYLE;
+	    parentHWND = TkWinGetHWND(wmPtr->master);
+ 	} else {
+	    wmPtr->style = WM_TOPLEVEL_STYLE;
+	    wmPtr->exStyle = EX_TOPLEVEL_STYLE;
+	}
+
+	/*
+	 * Compute the border size and the location of the child window
+	 * in the reparent window for the current window style.
+	 */
+
+	rect.left = rect.right = rect.top = rect.bottom = 0;
+	AdjustWindowRectEx(&rect, wmPtr->style, 0, wmPtr->exStyle);
+	wmPtr->borderWidth = rect.right - rect.left;
+	wmPtr->borderHeight = rect.bottom - rect.top;
+	wmPtr->xInParent = -rect.left;
+	wmPtr->yInParent = -rect.top;
+
+	/*
+	 * Compute the geometry of the parent and child windows.
+	 */
+
+	wmPtr->flags |= WM_CREATE_PENDING|WM_MOVE_PENDING;
+	UpdateGeometryInfo((ClientData)winPtr);
+	wmPtr->flags &= ~(WM_CREATE_PENDING|WM_MOVE_PENDING);
+
+	width = wmPtr->borderWidth + winPtr->changes.width;
+	height = wmPtr->borderHeight + winPtr->changes.height;
+
+	/*
+	 * Set the initial position from the user or program specified
+	 * location.  If nothing has been specified, then let the system
+	 * pick a location.
+	 */
+
+	if (!(wmPtr->sizeHintsFlags & (USPosition | PPosition))) {
+	    x = CW_USEDEFAULT;
+	    y = CW_USEDEFAULT;
+	} else {
+	    x = winPtr->changes.x;
+	    y = winPtr->changes.y;
+	}
+
+	/*
+	 * Create the containing window.
+	 */
+
+	parentPtr = (TkWinDrawable *) ckalloc(sizeof(TkWinDrawable));
+	parentPtr->type = TWD_WM_WINDOW;
+	parentPtr->window.winPtr = winPtr;
+	wmPtr->reparent = (Window)parentPtr;
+
+	createWindow = winPtr;
+	window  = CreateWindowEx(wmPtr->exStyle, TK_WIN_TOPLEVEL_CLASS_NAME,
+		wmPtr->titleUid, wmPtr->style, x, y, width, height,
+		parentHWND, NULL, TkWinGetAppInstance(), parentPtr);
+	createWindow = NULL;
+
+	/*
+	 * Now we need to reparent the contained window and set its
+	 * style appropriately.  Be sure to update the style first so that
+	 * Windows doesn't try to set the focus to the child window.
+	 */
+
+	SetWindowLong(child, GWL_STYLE,
+		WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS);
+	SetParent(child, window);
+
+	/*
+	 * Generate a reparent event.
+	 */
+
+	event.type = ReparentNotify;
+	winPtr->display->request++;
+	event.xreparent.serial = winPtr->display->request;
+	event.xreparent.send_event = False;
+	event.xreparent.display = winPtr->display;
+	event.xreparent.event = winPtr->window;
+	event.xreparent.window = winPtr->window;
+	event.xreparent.parent = wmPtr->reparent;
+	event.xreparent.x = wmPtr->xInParent;
+	event.xreparent.y = wmPtr->yInParent;
+	event.xreparent.override_redirect = winPtr->atts.override_redirect;
+	Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+    } else if (wmPtr->hints.initial_state == WithdrawnState) {
+	return;
+    } else {
+	if (wmPtr->flags & WM_UPDATE_PENDING) {
+	    Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+	}
+	UpdateGeometryInfo((ClientData) winPtr);
+    }
+
+    /*
+     * Map the window in either the iconified or normal state.  Note that
+     * we only send a map event if the window is in the normal state.
+     */
+
+	
+    if (wmPtr->hints.initial_state == IconicState) {
+	wmPtr->flags |= WM_SYNC_PENDING;
+	ShowWindow(TkWinGetHWND(wmPtr->reparent), SW_SHOWMINNOACTIVE);
+	wmPtr->flags &= ~WM_SYNC_PENDING;
+
+	/*
+	 * Send an unmap event if we are iconifying a currently displayed
+	 * window.
+	 */
+
+	if (!wmPtr->withdrawn) {
+	    XUnmapWindow(winPtr->display, winPtr->window);
+	}
+
+    } else if (wmPtr->hints.initial_state == WithdrawnState) {
+	return;
+
+    } else {
+	XMapWindow(winPtr->display, winPtr->window);
+
+	/*
+	 * If this is the first window displayed, be sure to activate it.
+	 */
+
+	wmPtr->flags |= WM_SYNC_PENDING;
+	if (IsZoomed(TkWinGetHWND(wmPtr->reparent))) {
+	    ShowWindow(TkWinGetHWND(wmPtr->reparent), (firstWindow)
+		    ? SW_SHOWMAXIMIZED : SW_MAXIMIZE);
+	} else {
+	    ShowWindow(TkWinGetHWND(wmPtr->reparent), (firstWindow)
+		    ? SW_SHOWNORMAL : SW_SHOWNA);
+	}
+	firstWindow = 0;
+	wmPtr->flags &= ~WM_SYNC_PENDING;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmUnmapWindow --
+ *
+ *	This procedure is invoked to unmap a top-level window.  The
+ *	only thing it does special is unmap the decorative frame before
+ *	unmapping the toplevel window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Unmaps the decorative frame and the window.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmUnmapWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's about to
+				 * be unmapped. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+
+    wmPtr->flags |= WM_SYNC_PENDING;
+    ShowWindow(TkWinGetHWND(wmPtr->reparent), SW_HIDE);
+    wmPtr->flags &= ~WM_SYNC_PENDING;
+    XUnmapWindow(winPtr->display, winPtr->window);
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmDeadWindow --
+ *
+ *	This procedure is invoked when a top-level window is
+ *	about to be deleted.  It cleans up the wm-related data
+ *	structures for the window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The WmInfo structure for winPtr gets freed up.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmDeadWindow(winPtr)
+    TkWindow *winPtr;		/* Top-level window that's being deleted. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    WmInfo *wmPtr2;
+
+    if (wmPtr == NULL) {
+	return;
+    }
+
+    /*
+     * Clean up event related window info.
+     */
+
+    if (firstWmPtr == wmPtr) {
+	firstWmPtr = wmPtr->nextPtr;
+    } else {
+	register WmInfo *prevPtr;
+
+	for (prevPtr = firstWmPtr; ; prevPtr = prevPtr->nextPtr) {
+	    if (prevPtr == NULL) {
+		panic("couldn't unlink window in TkWmDeadWindow");
+	    }
+	    if (prevPtr->nextPtr == wmPtr) {
+		prevPtr->nextPtr = wmPtr->nextPtr;
+		break;
+	    }
+	}
+    }
+    if (wmPtr->hints.flags & IconPixmapHint) {
+	Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_pixmap);
+    }
+    if (wmPtr->hints.flags & IconMaskHint) {
+	Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_mask);
+    }
+    if (wmPtr->icon != NULL) {
+	wmPtr2 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+	wmPtr2->iconFor = NULL;
+	wmPtr2->withdrawn = 1;
+    }
+    if (wmPtr->iconFor != NULL) {
+	wmPtr2 = ((TkWindow *) wmPtr->iconFor)->wmInfoPtr;
+	wmPtr2->icon = NULL;
+	wmPtr2->hints.flags &= ~IconWindowHint;
+    }
+    while (wmPtr->protPtr != NULL) {
+	ProtocolHandler *protPtr;
+
+	protPtr = wmPtr->protPtr;
+	wmPtr->protPtr = protPtr->nextPtr;
+	Tcl_EventuallyFree((ClientData) protPtr, TCL_DYNAMIC);
+    }
+    if (wmPtr->cmdArgv != NULL) {
+	ckfree((char *) wmPtr->cmdArgv);
+    }
+    if (wmPtr->clientMachine != NULL) {
+	ckfree((char *) wmPtr->clientMachine);
+    }
+    if (wmPtr->flags & WM_UPDATE_PENDING) {
+	Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+    }
+
+    /*
+     * Destroy the decorative frame window.  Note that the back pointer
+     * to the child window must be cleared before calling DestroyWindow to
+     * avoid generating events on a window that is already dead.
+     * Note that we don't free the reparent here because it will be
+     * freed when the WM_DESTROY message is processed.
+     */
+
+    if (wmPtr->reparent != None) {
+	((TkWinDrawable *) wmPtr->reparent)->window.winPtr = NULL;
+	DestroyWindow(TkWinGetHWND(wmPtr->reparent));
+    }
+    ckfree((char *) wmPtr);
+    winPtr->wmInfoPtr = NULL;
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * TkWmSetClass --
+ *
+ *	This procedure is invoked whenever a top-level window's
+ *	class is changed.  If the window has been mapped then this
+ *	procedure updates the window manager property for the
+ *	class.  If the window hasn't been mapped, the update is
+ *	deferred until just before the first mapping.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	A window property may get updated.
+ *
+ *--------------------------------------------------------------
+ */
+
+void
+TkWmSetClass(winPtr)
+    TkWindow *winPtr;		/* Newly-created top-level window. */
+{
+    return;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_WmCmd --
+ *
+ *	This procedure is invoked to process the "wm" Tcl command.
+ *	See the user documentation for details on what it does.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+int
+Tk_WmCmd(clientData, interp, argc, argv)
+    ClientData clientData;	/* Main window associated with
+				 * interpreter. */
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    Tk_Window tkwin = (Tk_Window) clientData;
+    TkWindow *winPtr;
+    register WmInfo *wmPtr;
+    int c;
+    size_t length;
+
+    if (argc < 2) {
+	wrongNumArgs:
+	Tcl_AppendResult(interp, "wrong # args: should be \"",
+		argv[0], " option window ?arg ...?\"", (char *) NULL);
+	return TCL_ERROR;
+    }
+    c = argv[1][0];
+    length = strlen(argv[1]);
+    if ((c == 't') && (strncmp(argv[1], "tracing", length) == 0)
+	    && (length >= 3)) {
+	if ((argc != 2) && (argc != 3)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " tracing ?boolean?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 2) {
+	    interp->result = (wmTracing) ? "on" : "off";
+	    return TCL_OK;
+	}
+	return Tcl_GetBoolean(interp, argv[2], &wmTracing);
+    }
+
+    if (argc < 3) {
+	goto wrongNumArgs;
+    }
+    winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
+    if (winPtr == NULL) {
+	return TCL_ERROR;
+    }
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	Tcl_AppendResult(interp, "window \"", winPtr->pathName,
+		"\" isn't a top-level window", (char *) NULL);
+	return TCL_ERROR;
+    }
+    wmPtr = winPtr->wmInfoPtr;
+    if ((c == 'a') && (strncmp(argv[1], "aspect", length) == 0)) {
+	int numer1, denom1, numer2, denom2;
+
+	if ((argc != 3) && (argc != 7)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " aspect window ?minNumer minDenom ",
+		    "maxNumer maxDenom?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & PAspect) {
+		sprintf(interp->result, "%d %d %d %d", wmPtr->minAspect.x,
+			wmPtr->minAspect.y, wmPtr->maxAspect.x,
+			wmPtr->maxAspect.y);
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->sizeHintsFlags &= ~PAspect;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &numer1) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &denom1) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[5], &numer2) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[6], &denom2) != TCL_OK)) {
+		return TCL_ERROR;
+	    }
+	    if ((numer1 <= 0) || (denom1 <= 0) || (numer2 <= 0) ||
+		    (denom2 <= 0)) {
+		interp->result = "aspect number can't be <= 0";
+		return TCL_ERROR;
+	    }
+	    wmPtr->minAspect.x = numer1;
+	    wmPtr->minAspect.y = denom1;
+	    wmPtr->maxAspect.x = numer2;
+	    wmPtr->maxAspect.y = denom2;
+	    wmPtr->sizeHintsFlags |= PAspect;
+	}
+	goto updateGeom;
+    } else if ((c == 'c') && (strncmp(argv[1], "client", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " client window ?name?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->clientMachine != NULL) {
+		interp->result = wmPtr->clientMachine;
+	    }
+	    return TCL_OK;
+	}
+	if (argv[3][0] == 0) {
+	    if (wmPtr->clientMachine != NULL) {
+		ckfree((char *) wmPtr->clientMachine);
+		wmPtr->clientMachine = NULL;
+		if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		    XDeleteProperty(winPtr->display, winPtr->window,
+			    Tk_InternAtom((Tk_Window) winPtr,
+			    "WM_CLIENT_MACHINE"));
+		}
+	    }
+	    return TCL_OK;
+	}
+	if (wmPtr->clientMachine != NULL) {
+	    ckfree((char *) wmPtr->clientMachine);
+	}
+	wmPtr->clientMachine = (char *)
+		ckalloc((unsigned) (strlen(argv[3]) + 1));
+	strcpy(wmPtr->clientMachine, argv[3]);
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XTextProperty textProp;
+	    if (XStringListToTextProperty(&wmPtr->clientMachine, 1, &textProp)
+		    != 0) {
+		XSetWMClientMachine(winPtr->display, winPtr->window,
+			&textProp);
+		XFree((char *) textProp.value);
+	    }
+	}
+    } else if ((c == 'c') && (strncmp(argv[1], "colormapwindows", length) == 0)
+	    && (length >= 3)) {
+	TkWindow **cmapList;
+	TkWindow *winPtr2;
+	int i, windowArgc, gotToplevel;
+	char **windowArgv;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " colormapwindows window ?windowList?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    Tk_MakeWindowExist((Tk_Window) winPtr);
+	    for (i = 0; i < wmPtr->cmapCount; i++) {
+		if ((i == (wmPtr->cmapCount-1))
+			&& (wmPtr->flags & WM_ADDED_TOPLEVEL_COLORMAP)) {
+		    break;
+		}
+		Tcl_AppendElement(interp, wmPtr->cmapList[i]->pathName);
+	    }
+	    return TCL_OK;
+	}
+	if (Tcl_SplitList(interp, argv[3], &windowArgc, &windowArgv)
+		!= TCL_OK) {
+	    return TCL_ERROR;
+	}
+	cmapList = (TkWindow **) ckalloc((unsigned)
+		((windowArgc+1)*sizeof(TkWindow*)));
+	for (i = 0; i < windowArgc; i++) {
+	    winPtr2 = (TkWindow *) Tk_NameToWindow(interp, windowArgv[i],
+		    tkwin);
+	    if (winPtr2 == NULL) {
+		ckfree((char *) cmapList);
+		ckfree((char *) windowArgv);
+		return TCL_ERROR;
+	    }
+	    if (winPtr2 == winPtr) {
+		gotToplevel = 1;
+	    }
+	    if (winPtr2->window == None) {
+		Tk_MakeWindowExist((Tk_Window) winPtr2);
+	    }
+	    cmapList[i] = winPtr2;
+	}
+	if (!gotToplevel) {
+	    wmPtr->flags |= WM_ADDED_TOPLEVEL_COLORMAP;
+	    cmapList[windowArgc] = winPtr;
+	    windowArgc++;
+	} else {
+	    wmPtr->flags &= ~WM_ADDED_TOPLEVEL_COLORMAP;
+	}
+	wmPtr->flags |= WM_COLORMAPS_EXPLICIT;
+	if (wmPtr->cmapList != NULL) {
+	    ckfree((char *)wmPtr->cmapList);
+	}
+	wmPtr->cmapList = cmapList;
+	wmPtr->cmapCount = windowArgc;
+	ckfree((char *) windowArgv);
+
+	/*
+	 * Now we need to force the updated colormaps to be installed.
+	 */
+
+	if (wmPtr == foregroundWmPtr) {
+	    TkWinWmInstallColormaps(TkWinGetHWND(wmPtr->reparent),
+		    WM_QUERYNEWPALETTE, 1);
+	} else {
+	    TkWinWmInstallColormaps(TkWinGetHWND(wmPtr->reparent),
+		    WM_PALETTECHANGED, 0);
+	}
+	return TCL_OK;
+    } else if ((c == 'c') && (strncmp(argv[1], "command", length) == 0)
+	    && (length >= 3)) {
+	int cmdArgc;
+	char **cmdArgv;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " command window ?value?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->cmdArgv != NULL) {
+		interp->result = Tcl_Merge(wmPtr->cmdArgc, wmPtr->cmdArgv);
+		interp->freeProc = TCL_DYNAMIC;
+	    }
+	    return TCL_OK;
+	}
+	if (argv[3][0] == 0) {
+	    if (wmPtr->cmdArgv != NULL) {
+		ckfree((char *) wmPtr->cmdArgv);
+		wmPtr->cmdArgv = NULL;
+		if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		    XDeleteProperty(winPtr->display, winPtr->window,
+			    Tk_InternAtom((Tk_Window) winPtr, "WM_COMMAND"));
+		}
+	    }
+	    return TCL_OK;
+	}
+	if (Tcl_SplitList(interp, argv[3], &cmdArgc, &cmdArgv) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	if (wmPtr->cmdArgv != NULL) {
+	    ckfree((char *) wmPtr->cmdArgv);
+	}
+	wmPtr->cmdArgc = cmdArgc;
+	wmPtr->cmdArgv = cmdArgv;
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XSetCommand(winPtr->display, winPtr->window, cmdArgv, cmdArgc);
+	}
+    } else if ((c == 'd') && (strncmp(argv[1], "deiconify", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " deiconify window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't deiconify ", argv[2],
+		    ": it is an icon for ", winPtr->pathName, (char *) NULL);
+	    return TCL_ERROR;
+	}
+	DeiconifyWindow(winPtr);
+    } else if ((c == 'f') && (strncmp(argv[1], "focusmodel", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " focusmodel window ?active|passive?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    interp->result = wmPtr->hints.input ? "\"passive\"" : "\"active\"";
+#else
+	    interp->result = wmPtr->hints.input ? "passive" : "active";
+#endif
+	    return TCL_OK;
+	}
+	c = argv[3][0];
+	length = strlen(argv[3]);
+	if ((c == 'a') && (strncmp(argv[3], "active", length) == 0)) {
+	    wmPtr->hints.input = False;
+	} else if ((c == 'p') && (strncmp(argv[3], "passive", length) == 0)) {
+	    wmPtr->hints.input = True;
+	} else {
+	    Tcl_AppendResult(interp, "bad argument \"", argv[3],
+		    "\": must be active or passive", (char *) NULL);
+	    return TCL_ERROR;
+	}
+    } else if ((c == 'f') && (strncmp(argv[1], "frame", length) == 0)
+	    && (length >= 2)) {
+	Window window;
+
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " frame window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	window = wmPtr->reparent;
+	if (window == None) {
+	    window = Tk_WindowId((Tk_Window) winPtr);
+	}
+#ifdef STk_CODE
+	sprintf(interp->result, "#x%x", (unsigned int) window);
+#else
+	sprintf(interp->result, "0x%x", (unsigned int) window);
+#endif
+    } else if ((c == 'g') && (strncmp(argv[1], "geometry", length) == 0)
+	    && (length >= 2)) {
+	char xSign, ySign;
+	int width, height;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " geometry window ?newGeometry?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    xSign = (wmPtr->flags & WM_NEGATIVE_X) ? '-' : '+';
+	    ySign = (wmPtr->flags & WM_NEGATIVE_Y) ? '-' : '+';
+	    if (wmPtr->gridWin != NULL) {
+		width = wmPtr->reqGridWidth + (winPtr->changes.width
+			- winPtr->reqWidth)/wmPtr->widthInc;
+		height = wmPtr->reqGridHeight + (winPtr->changes.height
+			- winPtr->reqHeight)/wmPtr->heightInc;
+	    } else {
+		width = winPtr->changes.width;
+		height = winPtr->changes.height;
+	    }
+#ifdef STk_CODE
+	    sprintf(interp->result, "\"%dx%d%c%d%c%d\"", width, height,
+#else
+	    sprintf(interp->result, "%dx%d%c%d%c%d", width, height,
+#endif
+		    xSign, wmPtr->x, ySign, wmPtr->y);
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->width = -1;
+	    wmPtr->height = -1;
+	    goto updateGeom;
+	}
+	return ParseGeometry(interp, argv[3], winPtr);
+    } else if ((c == 'g') && (strncmp(argv[1], "grid", length) == 0)
+	    && (length >= 3)) {
+	int reqWidth, reqHeight, widthInc, heightInc;
+
+	if ((argc != 3) && (argc != 7)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " grid window ?baseWidth baseHeight ",
+		    "widthInc heightInc?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & PBaseSize) {
+		sprintf(interp->result, "%d %d %d %d", wmPtr->reqGridWidth,
+			wmPtr->reqGridHeight, wmPtr->widthInc,
+			wmPtr->heightInc);
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    /*
+	     * Turn off gridding and reset the width and height
+	     * to make sense as ungridded numbers.
+	     */
+
+	    wmPtr->sizeHintsFlags &= ~(PBaseSize|PResizeInc);
+	    if (wmPtr->width != -1) {
+		wmPtr->width = winPtr->reqWidth + (wmPtr->width
+			- wmPtr->reqGridWidth)*wmPtr->widthInc;
+		wmPtr->height = winPtr->reqHeight + (wmPtr->height
+			- wmPtr->reqGridHeight)*wmPtr->heightInc;
+	    }
+	    wmPtr->widthInc = 1;
+	    wmPtr->heightInc = 1;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &reqWidth) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &reqHeight) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[5], &widthInc) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[6], &heightInc) != TCL_OK)) {
+		return TCL_ERROR;
+	    }
+	    if (reqWidth < 0) {
+		interp->result = "baseWidth can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (reqHeight < 0) {
+		interp->result = "baseHeight can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (widthInc < 0) {
+		interp->result = "widthInc can't be < 0";
+		return TCL_ERROR;
+	    }
+	    if (heightInc < 0) {
+		interp->result = "heightInc can't be < 0";
+		return TCL_ERROR;
+	    }
+	    Tk_SetGrid((Tk_Window) winPtr, reqWidth, reqHeight, widthInc,
+		    heightInc);
+	}
+	goto updateGeom;
+    } else if ((c == 'g') && (strncmp(argv[1], "group", length) == 0)
+	    && (length >= 3)) {
+	Tk_Window tkwin2;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " group window ?pathName?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & WindowGroupHint) {
+		interp->result = wmPtr->leaderName;
+	    }
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->hints.flags &= ~WindowGroupHint;
+	    wmPtr->leaderName = NULL;
+	} else {
+	    tkwin2 = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    Tk_MakeWindowExist(tkwin2);
+	    wmPtr->hints.window_group = Tk_WindowId(tkwin2);
+	    wmPtr->hints.flags |= WindowGroupHint;
+	    wmPtr->leaderName = Tk_PathName(tkwin2);
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconbitmap", length) == 0)
+	    && (length >= 5)) {
+	Pixmap pixmap;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconbitmap window ?bitmap?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconPixmapHint) {
+		interp->result = Tk_NameOfBitmap(winPtr->display,
+			wmPtr->hints.icon_pixmap);
+	    }
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    if (wmPtr->hints.icon_pixmap != None) {
+		Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_pixmap);
+	    }
+	    wmPtr->hints.flags &= ~IconPixmapHint;
+	} else {
+	    pixmap = Tk_GetBitmap(interp, (Tk_Window) winPtr,
+		    Tk_GetUid(argv[3]));
+	    if (pixmap == None) {
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_pixmap = pixmap;
+	    wmPtr->hints.flags |= IconPixmapHint;
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconify", length) == 0)
+	    && (length >= 5)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconify window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (Tk_Attributes((Tk_Window) winPtr)->override_redirect) {
+	    Tcl_AppendResult(interp, "can't iconify \"", winPtr->pathName,
+		    "\": override-redirect flag is set", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->master != None) {
+	    Tcl_AppendResult(interp, "can't iconify \"", winPtr->pathName,
+		    "\": it is a transient", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't iconify ", argv[2],
+		    ": it is an icon for ", winPtr->pathName, (char *) NULL);
+	    return TCL_ERROR;
+	}
+	IconifyWindow(winPtr);
+    } else if ((c == 'i') && (strncmp(argv[1], "iconmask", length) == 0)
+	    && (length >= 5)) {
+	Pixmap pixmap;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconmask window ?bitmap?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconMaskHint) {
+		interp->result = Tk_NameOfBitmap(winPtr->display,
+			wmPtr->hints.icon_mask);
+	    }
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    if (wmPtr->hints.icon_mask != None) {
+		Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_mask);
+	    }
+	    wmPtr->hints.flags &= ~IconMaskHint;
+	} else {
+	    pixmap = Tk_GetBitmap(interp, tkwin, Tk_GetUid(argv[3]));
+	    if (pixmap == None) {
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_mask = pixmap;
+	    wmPtr->hints.flags |= IconMaskHint;
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconname", length) == 0)
+	    && (length >= 5)) {
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconname window ?newName?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    interp->result = (wmPtr->iconName != NULL) ? wmPtr->iconName : "";
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	} else {
+	    wmPtr->iconName = Tk_GetUid(argv[3]);
+	    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+		XSetIconName(winPtr->display, winPtr->window, wmPtr->iconName);
+	    }
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconposition", length) == 0)
+	    && (length >= 5)) {
+	int x, y;
+
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconposition window ?x y?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->hints.flags & IconPositionHint) {
+		sprintf(interp->result, "%d %d", wmPtr->hints.icon_x,
+			wmPtr->hints.icon_y);
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->hints.flags &= ~IconPositionHint;
+	} else {
+	    if ((Tcl_GetInt(interp, argv[3], &x) != TCL_OK)
+		    || (Tcl_GetInt(interp, argv[4], &y) != TCL_OK)){
+		return TCL_ERROR;
+	    }
+	    wmPtr->hints.icon_x = x;
+	    wmPtr->hints.icon_y = y;
+	    wmPtr->hints.flags |= IconPositionHint;
+	}
+    } else if ((c == 'i') && (strncmp(argv[1], "iconwindow", length) == 0)
+	    && (length >= 5)) {
+	Tk_Window tkwin2;
+	WmInfo *wmPtr2;
+	XSetWindowAttributes atts;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " iconwindow window ?pathName?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->icon != NULL) {
+		interp->result = Tk_PathName(wmPtr->icon);
+	    }
+#ifdef STk_CODE
+	    STk_stringify_result(interp, interp->result);
+#endif
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->hints.flags &= ~IconWindowHint;
+	    if (wmPtr->icon != NULL) {
+		/*
+		 * Let the window use button events again, then remove
+		 * it as icon window.
+		 */
+
+		atts.event_mask = Tk_Attributes(wmPtr->icon)->event_mask
+			| ButtonPressMask;
+		Tk_ChangeWindowAttributes(wmPtr->icon, CWEventMask, &atts);
+		wmPtr2 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+		wmPtr2->iconFor = NULL;
+		wmPtr2->withdrawn = 1;
+		wmPtr2->hints.initial_state = WithdrawnState;
+	    }
+	    wmPtr->icon = NULL;
+	} else {
+	    tkwin2 = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (tkwin2 == NULL) {
+		return TCL_ERROR;
+	    }
+	    if (!Tk_IsTopLevel(tkwin2)) {
+		Tcl_AppendResult(interp, "can't use ", argv[3],
+			" as icon window: not at top level", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    wmPtr2 = ((TkWindow *) tkwin2)->wmInfoPtr;
+	    if (wmPtr2->iconFor != NULL) {
+		Tcl_AppendResult(interp, argv[3], " is already an icon for ",
+			Tk_PathName(wmPtr2->iconFor), (char *) NULL);
+		return TCL_ERROR;
+	    }
+	    if (wmPtr->icon != NULL) {
+		WmInfo *wmPtr3 = ((TkWindow *) wmPtr->icon)->wmInfoPtr;
+		wmPtr3->iconFor = NULL;
+		wmPtr3->withdrawn = 1;
+
+		/*
+		 * Let the window use button events again.
+		 */
+
+		atts.event_mask = Tk_Attributes(wmPtr->icon)->event_mask
+			| ButtonPressMask;
+		Tk_ChangeWindowAttributes(wmPtr->icon, CWEventMask, &atts);
+	    }
+
+	    /*
+	     * Disable button events in the icon window:  some window
+	     * managers (like olvwm) want to get the events themselves,
+	     * but X only allows one application at a time to receive
+	     * button events for a window.
+	     */
+
+	    atts.event_mask = Tk_Attributes(tkwin2)->event_mask
+		    & ~ButtonPressMask;
+	    Tk_ChangeWindowAttributes(tkwin2, CWEventMask, &atts);
+	    Tk_MakeWindowExist(tkwin2);
+	    wmPtr->hints.icon_window = Tk_WindowId(tkwin2);
+	    wmPtr->hints.flags |= IconWindowHint;
+	    wmPtr->icon = tkwin2;
+	    wmPtr2->iconFor = (Tk_Window) winPtr;
+	    if (!wmPtr2->withdrawn && !(wmPtr2->flags & WM_NEVER_MAPPED)) {
+		wmPtr2->withdrawn = 0;
+		if (XWithdrawWindow(Tk_Display(tkwin2), Tk_WindowId(tkwin2),
+			Tk_ScreenNumber(tkwin2)) == 0) {
+		    interp->result =
+			    "couldn't send withdraw message to window manager";
+		    return TCL_ERROR;
+		}
+	    }
+	}
+    } else if ((c == 'm') && (strncmp(argv[1], "maxsize", length) == 0)
+	    && (length >= 2)) {
+	int width, height;
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " maxsize window ?width height?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    GetMaxSize(wmPtr, &width, &height);
+	    sprintf(interp->result, "%d %d", width, height);
+	    return TCL_OK;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	wmPtr->maxWidth = width;
+	wmPtr->maxHeight = height;
+	goto updateGeom;
+    } else if ((c == 'm') && (strncmp(argv[1], "minsize", length) == 0)
+	    && (length >= 2)) {
+	int width, height;
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " minsize window ?width height?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    GetMinSize(wmPtr, &width, &height);
+	    sprintf(interp->result, "%d %d", width, height);
+	    return TCL_OK;
+	}
+	if ((Tcl_GetInt(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetInt(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	wmPtr->minWidth = width;
+	wmPtr->minHeight = height;
+	goto updateGeom;
+    } else if ((c == 'o')
+	    && (strncmp(argv[1], "overrideredirect", length) == 0)) {
+	int boolean;
+	XSetWindowAttributes atts;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " overrideredirect window ?boolean?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    interp->result = (Tk_Attributes((Tk_Window) winPtr)->override_redirect)
+					      ? "#t" : "#f";
+#else
+	    if (Tk_Attributes((Tk_Window) winPtr)->override_redirect) {
+		interp->result = "1";
+	    } else {
+		interp->result = "0";
+	    }
+#endif
+	    return TCL_OK;
+	}
+	if (Tcl_GetBoolean(interp, argv[3], &boolean) != TCL_OK) {
+	    return TCL_ERROR;
+	}
+	atts.override_redirect = (boolean) ? True : False;
+	Tk_ChangeWindowAttributes((Tk_Window) winPtr, CWOverrideRedirect,
+		&atts);
+    } else if ((c == 'p') && (strncmp(argv[1], "positionfrom", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " positionfrom window ?user/program?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & USPosition) {
+#ifdef STk_CODE
+		interp->result = "\"user\"";
+#else
+		interp->result = "user";
+#endif
+	    } else if (wmPtr->sizeHintsFlags & PPosition) {
+#ifdef STk_CODE
+		interp->result = "\"program\"";
+#else
+		interp->result = "program";
+#endif
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->sizeHintsFlags &= ~(USPosition|PPosition);
+	} else {
+	    c = argv[3][0];
+	    length = strlen(argv[3]);
+	    if ((c == 'u') && (strncmp(argv[3], "user", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~PPosition;
+		wmPtr->sizeHintsFlags |= USPosition;
+	    } else if ((c == 'p') && (strncmp(argv[3], "program", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~USPosition;
+		wmPtr->sizeHintsFlags |= PPosition;
+	    } else {
+		Tcl_AppendResult(interp, "bad argument \"", argv[3],
+			"\": must be program or user", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	goto updateGeom;
+    } else if ((c == 'p') && (strncmp(argv[1], "protocol", length) == 0)
+	    && (length >= 2)) {
+	register ProtocolHandler *protPtr, *prevPtr;
+	Atom protocol;
+	int cmdLength;
+
+	if ((argc < 3) || (argc > 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " protocol window ?name? ?command?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    /*
+	     * Return a list of all defined protocols for the window.
+	     */
+	    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+		    protPtr = protPtr->nextPtr) {
+		Tcl_AppendElement(interp,
+			Tk_GetAtomName((Tk_Window) winPtr, protPtr->protocol));
+	    }
+	    return TCL_OK;
+	}
+	protocol = Tk_InternAtom((Tk_Window) winPtr, argv[3]);
+	if (argc == 4) {
+	    /*
+	     * Return the command to handle a given protocol.
+	     */
+	    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+		    protPtr = protPtr->nextPtr) {
+		if (protPtr->protocol == protocol) {
+		    interp->result = protPtr->command;
+		    return TCL_OK;
+		}
+	    }
+	    return TCL_OK;
+	}
+
+	/*
+	 * Delete any current protocol handler, then create a new
+	 * one with the specified command, unless the command is
+	 * empty.
+	 */
+
+	for (protPtr = wmPtr->protPtr, prevPtr = NULL; protPtr != NULL;
+		prevPtr = protPtr, protPtr = protPtr->nextPtr) {
+	    if (protPtr->protocol == protocol) {
+		if (prevPtr == NULL) {
+		    wmPtr->protPtr = protPtr->nextPtr;
+		} else {
+		    prevPtr->nextPtr = protPtr->nextPtr;
+		}
+		Tcl_EventuallyFree((ClientData) protPtr, TCL_DYNAMIC);
+		break;
+	    }
+	}
+	cmdLength = strlen(argv[4]);
+	if (cmdLength > 0) {
+	    protPtr = (ProtocolHandler *) ckalloc(HANDLER_SIZE(cmdLength));
+	    protPtr->protocol = protocol;
+	    protPtr->nextPtr = wmPtr->protPtr;
+	    wmPtr->protPtr = protPtr;
+	    protPtr->interp = interp;
+	    strcpy(protPtr->command, argv[4]);
+	}
+    } else if ((c == 'r') && (strncmp(argv[1], "resizable", length) == 0)) {
+	int width, height;
+
+	if ((argc != 3) && (argc != 5)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " resizable window ?width height?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    sprintf(interp->result, "%d %d",
+		    (wmPtr->flags  & WM_WIDTH_NOT_RESIZABLE) ? 0 : 1,
+		    (wmPtr->flags  & WM_HEIGHT_NOT_RESIZABLE) ? 0 : 1);
+	    return TCL_OK;
+	}
+	if ((Tcl_GetBoolean(interp, argv[3], &width) != TCL_OK)
+		|| (Tcl_GetBoolean(interp, argv[4], &height) != TCL_OK)) {
+	    return TCL_ERROR;
+	}
+	if (width) {
+	    wmPtr->flags &= ~WM_WIDTH_NOT_RESIZABLE;
+	} else {
+	    wmPtr->flags |= WM_WIDTH_NOT_RESIZABLE;
+	}
+	if (height) {
+	    wmPtr->flags &= ~WM_HEIGHT_NOT_RESIZABLE;
+	} else {
+	    wmPtr->flags |= WM_HEIGHT_NOT_RESIZABLE;
+	}
+	wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
+	goto updateGeom;
+    } else if ((c == 's') && (strncmp(argv[1], "sizefrom", length) == 0)
+	    && (length >= 2)) {
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " sizefrom window ?user|program?\"",
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->sizeHintsFlags & USSize) {
+#ifdef STk_CODE
+		interp->result = "\"user\"";
+#else
+		interp->result = "user";
+#endif
+	    } else if (wmPtr->sizeHintsFlags & PSize) {
+#ifdef STk_CODE
+		interp->result = "\"program\"";
+#else
+		interp->result = "program";
+#endif
+	    }
+	    return TCL_OK;
+	}
+	if (*argv[3] == '\0') {
+	    wmPtr->sizeHintsFlags &= ~(USSize|PSize);
+	} else {
+	    c = argv[3][0];
+	    length = strlen(argv[3]);
+	    if ((c == 'u') && (strncmp(argv[3], "user", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~PSize;
+		wmPtr->sizeHintsFlags |= USSize;
+	    } else if ((c == 'p')
+		    && (strncmp(argv[3], "program", length) == 0)) {
+		wmPtr->sizeHintsFlags &= ~USSize;
+		wmPtr->sizeHintsFlags |= PSize;
+	    } else {
+		Tcl_AppendResult(interp, "bad argument \"", argv[3],
+			"\": must be program or user", (char *) NULL);
+		return TCL_ERROR;
+	    }
+	}
+	goto updateGeom;
+    } else if ((c == 's') && (strncmp(argv[1], "state", length) == 0)
+	    && (length >= 2)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " state window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    interp->result = "icon";
+	} else if (wmPtr->withdrawn) {
+	    interp->result = "withdrawn";
+	} else if (Tk_IsMapped((Tk_Window) winPtr)
+		|| ((wmPtr->flags & WM_NEVER_MAPPED)
+		&& (wmPtr->hints.initial_state == NormalState))) {
+#ifdef STk_CODE
+	    interp->result = "\"normal\"";
+#else
+	    interp->result = "normal";
+#endif
+	} else {
+#ifdef STk_CODE
+	    interp->result = "\"iconic\"";
+#else
+	    interp->result = "iconic";
+#endif
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "title", length) == 0)
+	    && (length >= 2)) {
+	if (argc > 4) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " title window ?newTitle?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+#ifdef STk_CODE
+	    STk_stringify_result(interp, (wmPtr->titleUid != NULL) ? wmPtr->titleUid
+				         : winPtr->nameUid);
+#else
+	    interp->result = (wmPtr->titleUid != NULL) ? wmPtr->titleUid
+		    : winPtr->nameUid;
+#endif
+	    return TCL_OK;
+	} else {
+	    wmPtr->titleUid = Tk_GetUid(argv[3]);
+	    if (!(wmPtr->flags & WM_NEVER_MAPPED) && wmPtr->reparent != None) {
+		SetWindowText(TkWinGetHWND(wmPtr->reparent), wmPtr->titleUid);
+	    }
+	}
+    } else if ((c == 't') && (strncmp(argv[1], "transient", length) == 0)
+	    && (length >= 3)) {
+	Tk_Window master;
+
+	if ((argc != 3) && (argc != 4)) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " transient window ?master?\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (argc == 3) {
+	    if (wmPtr->master != None) {
+		interp->result = wmPtr->masterWindowName;
+	    }
+	    return TCL_OK;
+	}
+	if (argv[3][0] == '\0') {
+	    wmPtr->master = None;
+	    wmPtr->masterWindowName = NULL;
+	} else {
+	    master = Tk_NameToWindow(interp, argv[3], tkwin);
+	    if (master == NULL) {
+		return TCL_ERROR;
+	    }
+	    Tk_MakeWindowExist(master);
+	    wmPtr->master = Tk_WindowId(master);
+	    wmPtr->masterWindowName = Tk_PathName(master);
+	}
+	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	    XSetTransientForHint(winPtr->display, winPtr->window,
+		    wmPtr->master);
+	}
+    } else if ((c == 'w') && (strncmp(argv[1], "withdraw", length) == 0)) {
+	if (argc != 3) {
+	    Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+		    argv[0], " withdraw window\"", (char *) NULL);
+	    return TCL_ERROR;
+	}
+	if (wmPtr->iconFor != NULL) {
+	    Tcl_AppendResult(interp, "can't withdraw ", argv[2],
+		    ": it is an icon for ", Tk_PathName(wmPtr->iconFor),
+		    (char *) NULL);
+	    return TCL_ERROR;
+	}
+	wmPtr->hints.initial_state = WithdrawnState;
+	wmPtr->withdrawn = 1;
+	if (wmPtr->flags & WM_NEVER_MAPPED) {
+	    return TCL_OK;
+	}
+
+	TkWmUnmapWindow(winPtr);
+    } else {
+	Tcl_AppendResult(interp, "unknown or ambiguous option \"", argv[1],
+		"\": must be aspect, client, command, deiconify, ",
+		"focusmodel, frame, geometry, grid, group, iconbitmap, ",
+		"iconify, iconmask, iconname, iconposition, ",
+		"iconwindow, maxsize, minsize, overrideredirect, ",
+		"positionfrom, protocol, resizable, sizefrom, state, title, ",
+		"tracing, transient, or withdraw",
+		(char *) NULL);
+	return TCL_ERROR;
+    }
+    return TCL_OK;
+
+    updateGeom:
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_SetGrid --
+ *
+ *	This procedure is invoked by a widget when it wishes to set a grid
+ *	coordinate system that controls the size of a top-level window.
+ *	It provides a C interface equivalent to the "wm grid" command and
+ *	is usually asscoiated with the -setgrid option.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Grid-related information will be passed to the window manager, so
+ *	that the top-level window associated with tkwin will resize on
+ *	even grid units.  If some other window already controls gridding
+ *	for the top-level window then this procedure call has no effect.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetGrid(tkwin, reqWidth, reqHeight, widthInc, heightInc)
+    Tk_Window tkwin;		/* Token for window.  New window mgr info
+				 * will be posted for the top-level window
+				 * associated with this window. */
+    int reqWidth;		/* Width (in grid units) corresponding to
+				 * the requested geometry for tkwin. */
+    int reqHeight;		/* Height (in grid units) corresponding to
+				 * the requested geometry for tkwin. */
+    int widthInc, heightInc;	/* Pixel increments corresponding to a
+				 * change of one grid unit. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr;
+
+    /*
+     * Find the top-level window for tkwin, plus the window manager
+     * information.
+     */
+
+    while (!(winPtr->flags & TK_TOP_LEVEL)) {
+	winPtr = winPtr->parentPtr;
+    }
+    wmPtr = winPtr->wmInfoPtr;
+
+    if ((wmPtr->gridWin != NULL) && (wmPtr->gridWin != tkwin)) {
+	return;
+    }
+
+    if ((wmPtr->reqGridWidth == reqWidth)
+	    && (wmPtr->reqGridHeight == reqHeight)
+	    && (wmPtr->widthInc == widthInc)
+	    && (wmPtr->heightInc == heightInc)
+	    && ((wmPtr->sizeHintsFlags & (PBaseSize|PResizeInc))
+		    == PBaseSize|PResizeInc)) {
+	return;
+    }
+
+    /*
+     * If gridding was previously off, then forget about any window
+     * size requests made by the user or via "wm geometry":  these are
+     * in pixel units and there's no easy way to translate them to
+     * grid units since the new requested size of the top-level window in
+     * pixels may not yet have been registered yet (it may filter up
+     * the hierarchy in DoWhenIdle handlers).  However, if the window
+     * has never been mapped yet then just leave the window size alone:
+     * assume that it is intended to be in grid units but just happened
+     * to have been specified before this procedure was called.
+     */
+
+    if ((wmPtr->gridWin == NULL) && !(wmPtr->flags & WM_NEVER_MAPPED)) {
+	wmPtr->width = -1;
+	wmPtr->height = -1;
+    }
+
+    /* 
+     * Set the new gridding information, and start the process of passing
+     * all of this information to the window manager.
+     */
+
+    wmPtr->gridWin = tkwin;
+    wmPtr->reqGridWidth = reqWidth;
+    wmPtr->reqGridHeight = reqHeight;
+    wmPtr->widthInc = widthInc;
+    wmPtr->heightInc = heightInc;
+    wmPtr->sizeHintsFlags |= PBaseSize|PResizeInc;
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_UnsetGrid --
+ *
+ *	This procedure cancels the effect of a previous call
+ *	to Tk_SetGrid.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	If tkwin currently controls gridding for its top-level window,
+ *	gridding is cancelled for that top-level window;  if some other
+ *	window controls gridding then this procedure has no effect.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_UnsetGrid(tkwin)
+    Tk_Window tkwin;		/* Token for window that is currently
+				 * controlling gridding. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr;
+
+    /*
+     * Find the top-level window for tkwin, plus the window manager
+     * information.
+     */
+
+    while (!(winPtr->flags & TK_TOP_LEVEL)) {
+	winPtr = winPtr->parentPtr;
+    }
+    wmPtr = winPtr->wmInfoPtr;
+    if (tkwin != wmPtr->gridWin) {
+	return;
+    }
+
+    wmPtr->gridWin = NULL;
+    wmPtr->sizeHintsFlags &= ~(PBaseSize|PResizeInc);
+    if (wmPtr->width != -1) {
+	wmPtr->width = winPtr->reqWidth + (wmPtr->width
+		- wmPtr->reqGridWidth)*wmPtr->widthInc;
+	wmPtr->height = winPtr->reqHeight + (wmPtr->height
+		- wmPtr->reqGridHeight)*wmPtr->heightInc;
+    }
+    wmPtr->widthInc = 1;
+    wmPtr->heightInc = 1;
+
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TopLevelEventProc --
+ *
+ *	This procedure is invoked when a top-level (or other externally-
+ *	managed window) is restructured in any way.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Tk's internal data structures for the window get modified to
+ *	reflect the structural change.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TopLevelEventProc(clientData, eventPtr)
+    ClientData clientData;		/* Window for which event occurred. */
+    XEvent *eventPtr;			/* Event that just happened. */
+{
+    register TkWindow *winPtr = (TkWindow *) clientData;
+
+    if (eventPtr->type == DestroyNotify) {
+	Tk_ErrorHandler handler;
+
+	if (!(winPtr->flags & TK_ALREADY_DEAD)) {
+	    /*
+	     * A top-level window was deleted externally (e.g., by the window
+	     * manager).  This is probably not a good thing, but cleanup as
+	     * best we can.  The error handler is needed because
+	     * Tk_DestroyWindow will try to destroy the window, but of course
+	     * it's already gone.
+	     */
+    
+	    handler = Tk_CreateErrorHandler(winPtr->display, -1, -1, -1,
+		    (Tk_ErrorProc *) NULL, (ClientData) NULL);
+	    Tk_DestroyWindow((Tk_Window) winPtr);
+	    Tk_DeleteErrorHandler(handler);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TopLevelReqProc --
+ *
+ *	This procedure is invoked by the geometry manager whenever
+ *	the requested size for a top-level window is changed.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Arrange for the window to be resized to satisfy the request
+ *	(this happens as a when-idle action).
+ *
+ *----------------------------------------------------------------------
+ */
+
+	/* ARGSUSED */
+static void
+TopLevelReqProc(dummy, tkwin)
+    ClientData dummy;			/* Not used. */
+    Tk_Window tkwin;			/* Information about window. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    WmInfo *wmPtr;
+
+    wmPtr = winPtr->wmInfoPtr;
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * UpdateGeometryInfo --
+ *
+ *	This procedure is invoked when a top-level window is first
+ *	mapped, and also as a when-idle procedure, to bring the
+ *	geometry and/or position of a top-level window back into
+ *	line with what has been requested by the user and/or widgets.
+ *	This procedure doesn't return until the window manager has
+ *	responded to the geometry change.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window's size and location may change, unless the WM prevents
+ *	that from happening.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+UpdateGeometryInfo(clientData)
+    ClientData clientData;		/* Pointer to the window's record. */
+{
+    register TkWindow *winPtr = (TkWindow *) clientData;
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    int x, y, width, height;
+
+    wmPtr->flags &= ~WM_UPDATE_PENDING;
+
+    /*
+     * Compute the new size for the top-level window.  See the
+     * user documentation for details on this, but the size
+     * requested depends on (a) the size requested internally
+     * by the window's widgets, (b) the size requested by the
+     * user in a "wm geometry" command or via wm-based interactive
+     * resizing (if any), and (c) whether or not the window is
+     * gridded.  Don't permit sizes <= 0 because this upsets
+     * the X server.
+     */
+
+    if (wmPtr->width == -1) {
+	width = winPtr->reqWidth;
+    } else if (wmPtr->gridWin != NULL) {
+	width = winPtr->reqWidth
+		+ (wmPtr->width - wmPtr->reqGridWidth)*wmPtr->widthInc;
+    } else {
+	width = wmPtr->width;
+    }
+    if (width <= 0) {
+	width = 1;
+    }
+    if (wmPtr->height == -1) {
+	height = winPtr->reqHeight;
+    } else if (wmPtr->gridWin != NULL) {
+	height = winPtr->reqHeight
+		+ (wmPtr->height - wmPtr->reqGridHeight)*wmPtr->heightInc;
+    } else {
+	height = wmPtr->height;
+    }
+    if (height <= 0) {
+	height = 1;
+    }
+
+    /*
+     * Compute the new position for the upper-left pixel of the window's
+     * decorative frame.  This is tricky, because we need to include the
+     * border widths supplied by a reparented parent in this calculation,
+     * but can't use the parent's current overall size since that may
+     * change as a result of this code.
+     */
+
+    if (wmPtr->flags & WM_NEGATIVE_X) {
+	x = DisplayWidth(winPtr->display, winPtr->screenNum) - wmPtr->x
+		- (width + wmPtr->borderWidth);
+    } else {
+	x =  wmPtr->x;
+    }
+    if (wmPtr->flags & WM_NEGATIVE_Y) {
+	y = DisplayHeight(winPtr->display, winPtr->screenNum) - wmPtr->y
+		- (height + wmPtr->borderHeight);
+    } else {
+	y =  wmPtr->y;
+    }
+
+    /*
+     * Reconfigure the window if it isn't already configured correctly.  Base
+     * the size check on what we *asked for* last time, not what we got.
+     */
+
+    if ((wmPtr->flags & WM_MOVE_PENDING)
+	    || (width != wmPtr->configWidth)
+	    || (height != wmPtr->configHeight)) {
+	wmPtr->configWidth = width;
+	wmPtr->configHeight = height;
+	    
+	/*
+	 * Don't bother moving the window if we are in the process of
+	 * creating it.  Just update the geometry info based on what
+	 * we asked for.
+	 */
+
+	if (!(wmPtr->flags & WM_CREATE_PENDING)) {
+	    wmPtr->flags |= WM_SYNC_PENDING;
+	    MoveWindow(TkWinGetHWND(wmPtr->reparent), x, y,
+		    width + wmPtr->borderWidth,
+		    height + wmPtr->borderHeight, TRUE);
+	    wmPtr->flags &= ~WM_SYNC_PENDING;
+	} else {
+	    winPtr->changes.x = x;
+	    winPtr->changes.y = y;
+	    winPtr->changes.width = width;
+	    winPtr->changes.height = height;
+	}
+    } else {
+	return;
+    }
+}
+
+/*
+ *--------------------------------------------------------------
+ *
+ * ParseGeometry --
+ *
+ *	This procedure parses a geometry string and updates
+ *	information used to control the geometry of a top-level
+ *	window.
+ *
+ * Results:
+ *	A standard Tcl return value, plus an error message in
+ *	interp->result if an error occurs.
+ *
+ * Side effects:
+ *	The size and/or location of winPtr may change.
+ *
+ *--------------------------------------------------------------
+ */
+
+static int
+ParseGeometry(interp, string, winPtr)
+    Tcl_Interp *interp;		/* Used for error reporting. */
+    char *string;		/* String containing new geometry.  Has the
+				 * standard form "=wxh+x+y". */
+    TkWindow *winPtr;		/* Pointer to top-level window whose
+				 * geometry is to be changed. */
+{
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+    int x, y, width, height, flags;
+    char *end;
+    register char *p = string;
+
+    /*
+     * The leading "=" is optional.
+     */
+
+    if (*p == '=') {
+	p++;
+    }
+
+    /*
+     * Parse the width and height, if they are present.  Don't
+     * actually update any of the fields of wmPtr until we've
+     * successfully parsed the entire geometry string.
+     */
+
+    width = wmPtr->width;
+    height = wmPtr->height;
+    x = wmPtr->x;
+    y = wmPtr->y;
+    flags = wmPtr->flags;
+    if (isdigit(UCHAR(*p))) {
+	width = strtoul(p, &end, 10);
+	p = end;
+	if (*p != 'x') {
+	    goto error;
+	}
+	p++;
+	if (!isdigit(UCHAR(*p))) {
+	    goto error;
+	}
+	height = strtoul(p, &end, 10);
+	p = end;
+    }
+
+    /*
+     * Parse the X and Y coordinates, if they are present.
+     */
+
+    if (*p != '\0') {
+	flags &= ~(WM_NEGATIVE_X | WM_NEGATIVE_Y);
+	if (*p == '-') {
+	    flags |= WM_NEGATIVE_X;
+	} else if (*p != '+') {
+	    goto error;
+	}
+	x = strtol(p+1, &end, 10);
+	p = end;
+	if (*p == '-') {
+	    flags |= WM_NEGATIVE_Y;
+	} else if (*p != '+') {
+	    goto error;
+	}
+	y = strtol(p+1, &end, 10);
+	if (*end != '\0') {
+	    goto error;
+	}
+
+	/*
+	 * Assume that the geometry information came from the user,
+	 * unless an explicit source has been specified.  Otherwise
+	 * most window managers assume that the size hints were
+	 * program-specified and they ignore them.
+	 */
+
+	if ((wmPtr->sizeHintsFlags & (USPosition|PPosition)) == 0) {
+	    wmPtr->sizeHintsFlags |= USPosition;
+	}
+    }
+
+    /*
+     * Everything was parsed OK.  Update the fields of *wmPtr and
+     * arrange for the appropriate information to be percolated out
+     * to the window manager at the next idle moment.
+     */
+
+    wmPtr->width = width;
+    wmPtr->height = height;
+    if ((x != wmPtr->x) || (y != wmPtr->y)
+	    || ((flags & (WM_NEGATIVE_X|WM_NEGATIVE_Y))
+	    != (wmPtr->flags & (WM_NEGATIVE_X|WM_NEGATIVE_Y)))) {
+	wmPtr->x = x;
+	wmPtr->y = y;
+	flags |= WM_MOVE_PENDING;
+    }
+    wmPtr->flags = flags;
+
+    if (!(wmPtr->flags & (WM_UPDATE_PENDING|WM_NEVER_MAPPED))) {
+	Tcl_DoWhenIdle(UpdateGeometryInfo, (ClientData) winPtr);
+	wmPtr->flags |= WM_UPDATE_PENDING;
+    }
+    return TCL_OK;
+
+    error:
+    Tcl_AppendResult(interp, "bad geometry specifier \"",
+	    string, "\"", (char *) NULL);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetRootCoords --
+ *
+ *	Given a token for a window, this procedure traces through the
+ *	window's lineage to find the (virtual) root-window coordinates
+ *	corresponding to point (0,0) in the window.
+ *
+ * Results:
+ *	The locations pointed to by xPtr and yPtr are filled in with
+ *	the root coordinates of the (0,0) point in tkwin.  If a virtual
+ *	root window is in effect for the window, then the coordinates
+ *	in the virtual root are returned.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_GetRootCoords(tkwin, xPtr, yPtr)
+    Tk_Window tkwin;		/* Token for window. */
+    int *xPtr;			/* Where to store x-displacement of (0,0). */
+    int *yPtr;			/* Where to store y-displacement of (0,0). */
+{
+    int x, y;
+    register TkWindow *winPtr = (TkWindow *) tkwin;
+
+    /*
+     * Search back through this window's parents all the way to a
+     * top-level window, combining the offsets of each window within
+     * its parent.
+     */
+
+    x = y = 0;
+    while (1) {
+	x += winPtr->changes.x + winPtr->changes.border_width;
+	y += winPtr->changes.y + winPtr->changes.border_width;
+	if (winPtr->flags & TK_TOP_LEVEL) {
+	    x += winPtr->wmInfoPtr->xInParent;
+	    y += winPtr->wmInfoPtr->yInParent;
+	    break;
+	}
+	winPtr = winPtr->parentPtr;
+    }
+    *xPtr = x;
+    *yPtr = y;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_CoordsToWindow --
+ *
+ *	Given the (virtual) root coordinates of a point, this procedure
+ *	returns the token for the top-most window covering that point,
+ *	if there exists such a window in this application.
+ *
+ * Results:
+ *	The return result is either a token for the window corresponding
+ *	to rootX and rootY, or else NULL to indicate that there is no such
+ *	window.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tk_Window
+Tk_CoordsToWindow(rootX, rootY, tkwin)
+    int rootX, rootY;		/* Coordinates of point in root window.  If
+				 * a virtual-root window manager is in use,
+				 * these coordinates refer to the virtual
+				 * root, not the real root. */
+    Tk_Window tkwin;		/* Token for any window in application;
+				 * used to identify the display. */
+{
+    POINT pos;
+    HWND hwnd;
+    TkWinDrawable *twdPtr;
+    TkWindow *winPtr;
+
+    pos.x = rootX;
+    pos.y = rootY;
+    hwnd = WindowFromPoint(pos);
+
+    twdPtr = TkWinGetDrawableFromHandle(hwnd);
+    if (twdPtr && (twdPtr->type == TWD_WINDOW)) {
+	winPtr = TkWinGetWinPtr(twdPtr);
+	if (winPtr->mainPtr == ((TkWindow *) tkwin)->mainPtr) {
+	    return (Tk_Window) winPtr;
+	}
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetVRootGeometry --
+ *
+ *	This procedure returns information about the virtual root
+ *	window corresponding to a particular Tk window.
+ *
+ * Results:
+ *	The values at xPtr, yPtr, widthPtr, and heightPtr are set
+ *	with the offset and dimensions of the root window corresponding
+ *	to tkwin.  If tkwin is being managed by a virtual root window
+ *	manager these values correspond to the virtual root window being
+ *	used for tkwin;  otherwise the offsets will be 0 and the
+ *	dimensions will be those of the screen.
+ *
+ * Side effects:
+ *	Vroot window information is refreshed if it is out of date.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_GetVRootGeometry(tkwin, xPtr, yPtr, widthPtr, heightPtr)
+    Tk_Window tkwin;		/* Window whose virtual root is to be
+				 * queried. */
+    int *xPtr, *yPtr;		/* Store x and y offsets of virtual root
+				 * here. */
+    int *widthPtr, *heightPtr;	/* Store dimensions of virtual root here. */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+
+    *xPtr = 0;
+    *yPtr = 0;
+    *widthPtr = DisplayWidth(winPtr->display, winPtr->screenNum);
+    *heightPtr = DisplayHeight(winPtr->display, winPtr->screenNum);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_MoveToplevelWindow --
+ *
+ *	This procedure is called instead of Tk_MoveWindow to adjust
+ *	the x-y location of a top-level window.  It delays the actual
+ *	move to a later time and keeps window-manager information
+ *	up-to-date with the move
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	The window is eventually moved so that its upper-left corner
+ *	(actually, the upper-left corner of the window's decorative
+ *	frame, if there is one) is at (x,y).
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_MoveToplevelWindow(tkwin, x, y)
+    Tk_Window tkwin;		/* Window to move. */
+    int x, y;			/* New location for window (within
+				 * parent). */
+{
+    TkWindow *winPtr = (TkWindow *) tkwin;
+    register WmInfo *wmPtr = winPtr->wmInfoPtr;
+
+    if (!(winPtr->flags & TK_TOP_LEVEL)) {
+	panic("Tk_MoveToplevelWindow called with non-toplevel window");
+    }
+    wmPtr->x = x;
+    wmPtr->y = y;
+    wmPtr->flags |= WM_MOVE_PENDING;
+    wmPtr->flags &= ~(WM_NEGATIVE_X|WM_NEGATIVE_Y);
+    if ((wmPtr->sizeHintsFlags & (USPosition|PPosition)) == 0) {
+	wmPtr->sizeHintsFlags |= USPosition;
+    }
+
+    /*
+     * If the window has already been mapped, must bring its geometry
+     * up-to-date immediately, otherwise an event might arrive from the
+     * server that would overwrite wmPtr->x and wmPtr->y and lose the
+     * new position.
+     */
+
+    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	if (wmPtr->flags & WM_UPDATE_PENDING) {
+	    Tcl_CancelIdleCall(UpdateGeometryInfo, (ClientData) winPtr);
+	}
+	UpdateGeometryInfo((ClientData) winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmProtocolEventProc --
+ *
+ *	This procedure is called by the Tk_HandleEvent whenever a
+ *	ClientMessage event arrives whose type is "WM_PROTOCOLS".
+ *	This procedure handles the message from the window manager
+ *	in an appropriate fashion.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Depends on what sort of handler, if any, was set up for the
+ *	protocol.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmProtocolEventProc(winPtr, eventPtr)
+    TkWindow *winPtr;		/* Window to which the event was sent. */
+    XEvent *eventPtr;		/* X event. */
+{
+    WmInfo *wmPtr;
+    register ProtocolHandler *protPtr;
+    Atom protocol;
+    int result;
+    Tcl_Interp *interp;
+
+    wmPtr = winPtr->wmInfoPtr;
+    if (wmPtr == NULL) {
+	return;
+    }
+    protocol = (Atom) eventPtr->xclient.data.l[0];
+    for (protPtr = wmPtr->protPtr; protPtr != NULL;
+	    protPtr = protPtr->nextPtr) {
+	if (protocol == protPtr->protocol) {
+	    Tcl_Preserve((ClientData) protPtr);
+            interp = protPtr->interp;
+            Tcl_Preserve((ClientData) interp);
+	    result = Tcl_GlobalEval(interp, protPtr->command);
+	    if (result != TCL_OK) {
+		Tcl_AddErrorInfo(interp, "\n    (command for \"");
+		Tcl_AddErrorInfo(interp,
+			Tk_GetAtomName((Tk_Window) winPtr, protocol));
+		Tcl_AddErrorInfo(interp, "\" window manager protocol)");
+		Tcl_BackgroundError(interp);
+	    }
+            Tcl_Release((ClientData) interp);
+	    Tcl_Release((ClientData) protPtr);
+	    return;
+	}
+    }
+
+    /*
+     * No handler was present for this protocol.  If this is a
+     * WM_DELETE_WINDOW message then just destroy the window.
+     */
+
+    if (protocol == Tk_InternAtom((Tk_Window) winPtr, "WM_DELETE_WINDOW")) {
+	Tk_DestroyWindow((Tk_Window) winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmRestackToplevel --
+ *
+ *	This procedure restacks a top-level window.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr gets restacked  as specified by aboveBelow and otherPtr.
+ *	This procedure doesn't return until the restack has taken
+ *	effect and the ConfigureNotify event for it has been received.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmRestackToplevel(winPtr, aboveBelow, otherPtr)
+    TkWindow *winPtr;		/* Window to restack. */
+    int aboveBelow;		/* Gives relative position for restacking;
+				 * must be Above or Below. */
+    TkWindow *otherPtr;		/* Window relative to which to restack;
+				 * if NULL, then winPtr gets restacked
+				 * above or below *all* siblings. */
+{
+    XWindowChanges changes;
+    unsigned int mask;
+    Window window;
+
+    changes.stack_mode = aboveBelow;
+    mask = CWStackMode;
+    if (winPtr->window == None) {
+	Tk_MakeWindowExist((Tk_Window) winPtr);
+    }
+    if (winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
+	/*
+	 * Can't set stacking order properly until the window is on the
+	 * screen (mapping it may give it a reparent window), so make sure
+	 * it's on the screen.
+	 */
+
+	TkWmMapWindow(winPtr);
+    }
+    window = (winPtr->wmInfoPtr->reparent != None)
+	    ? winPtr->wmInfoPtr->reparent : winPtr->window;
+    if (otherPtr != NULL) {
+	if (otherPtr->window == None) {
+	    Tk_MakeWindowExist((Tk_Window) otherPtr);
+	}
+	if (otherPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
+	    TkWmMapWindow(otherPtr);
+	}
+	changes.sibling = (otherPtr->wmInfoPtr->reparent != None)
+		? otherPtr->wmInfoPtr->reparent : otherPtr->window;
+	mask = CWStackMode|CWSibling;
+    }
+
+    /*
+     * Reconfigure the window.  Since this is Windows, the
+     * reconfiguration will happen immediately.
+     */
+
+    XConfigureWindow(winPtr->display, window, mask, &changes);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmAddToColormapWindows --
+ *
+ *	This procedure is called to add a given window to the
+ *	WM_COLORMAP_WINDOWS property for its top-level, if it
+ *	isn't already there.  It is invoked by the Tk code that
+ *	creates a new colormap, in order to make sure that colormap
+ *	information is propagated to the window manager by default.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr's window gets added to the WM_COLORMAP_WINDOWS
+ *	property of its nearest top-level ancestor, unless the
+ *	colormaps have been set explicitly with the
+ *	"wm colormapwindows" command.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmAddToColormapWindows(winPtr)
+    TkWindow *winPtr;		/* Window with a non-default colormap.
+				 * Should not be a top-level window. */
+{
+    TkWindow *topPtr;
+    TkWindow **oldPtr, **newPtr;
+    int count, i;
+
+    if (winPtr->window == None) {
+	return;
+    }
+
+    for (topPtr = winPtr->parentPtr; ; topPtr = topPtr->parentPtr) {
+	if (topPtr == NULL) {
+	    /*
+	     * Window is being deleted.  Skip the whole operation.
+	     */
+
+	    return;
+	}
+	if (topPtr->flags & TK_TOP_LEVEL) {
+	    break;
+	}
+    }
+    if (topPtr->wmInfoPtr->flags & WM_COLORMAPS_EXPLICIT) {
+	return;
+    }
+
+    /*
+     * Make sure that the window isn't already in the list.
+     */
+
+    count = topPtr->wmInfoPtr->cmapCount;
+    oldPtr = topPtr->wmInfoPtr->cmapList;
+
+    for (i = 0; i < count; i++) {
+	if (oldPtr[i] == winPtr) {
+	    return;
+	}
+    }
+
+    /*
+     * Make a new bigger array and use it to reset the property.
+     * Automatically add the toplevel itself as the last element
+     * of the list.
+     */
+
+    newPtr = (TkWindow **) ckalloc((unsigned) ((count+2)*sizeof(TkWindow*)));
+    if (count > 0) {
+	memcpy(newPtr, oldPtr, count * sizeof(TkWindow*));
+    }
+    newPtr[count] = winPtr;
+    newPtr[count+1] = topPtr;
+    if (oldPtr != NULL) {
+	ckfree((char *) oldPtr);
+    }
+
+    topPtr->wmInfoPtr->cmapList = newPtr;
+    topPtr->wmInfoPtr->cmapCount = count+2;
+
+    /*
+     * Now we need to force the updated colormaps to be installed.
+     */
+
+    if (topPtr->wmInfoPtr == foregroundWmPtr) {
+	TkWinWmInstallColormaps(TkWinGetHWND(topPtr->wmInfoPtr->reparent),
+		WM_QUERYNEWPALETTE, 1);
+    } else {
+	TkWinWmInstallColormaps(TkWinGetHWND(topPtr->wmInfoPtr->reparent),
+		WM_PALETTECHANGED, 0);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWmRemoveFromColormapWindows --
+ *
+ *	This procedure is called to remove a given window from the
+ *	WM_COLORMAP_WINDOWS property for its top-level.  It is invoked
+ *	when windows are deleted.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	WinPtr's window gets removed from the WM_COLORMAP_WINDOWS
+ *	property of its nearest top-level ancestor, unless the
+ *	top-level itself is being deleted too.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWmRemoveFromColormapWindows(winPtr)
+    TkWindow *winPtr;		/* Window that may be present in
+				 * WM_COLORMAP_WINDOWS property for its
+				 * top-level.  Should not be a top-level
+				 * window. */
+{
+    TkWindow *topPtr;
+    TkWindow **oldPtr;
+    int count, i, j;
+
+    for (topPtr = winPtr->parentPtr; ; topPtr = topPtr->parentPtr) {
+	if (topPtr == NULL) {
+	    /*
+	     * Ancestors have been deleted, so skip the whole operation.
+	     * Seems like this can't ever happen?
+	     */
+
+	    return;
+	}
+	if (topPtr->flags & TK_TOP_LEVEL) {
+	    break;
+	}
+    }
+    if (topPtr->flags & TK_ALREADY_DEAD) {
+	/*
+	 * Top-level is being deleted, so there's no need to cleanup
+	 * the WM_COLORMAP_WINDOWS property.
+	 */
+
+	return;
+    }
+
+    /*
+     * Find the window and slide the following ones down to cover
+     * it up.
+     */
+
+    count = topPtr->wmInfoPtr->cmapCount;
+    oldPtr = topPtr->wmInfoPtr->cmapList;
+    for (i = 0; i < count; i++) {
+	if (oldPtr[i] == winPtr) {
+	    for (j = i ; j < count-1; j++) {
+		oldPtr[j] = oldPtr[j+1];
+	    }
+	    topPtr->wmInfoPtr->cmapCount = count-1;
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinWmConfigure --
+ *
+ *	Generate a ConfigureNotify event based on the current position
+ *	information.  This procedure is called by TkWinTopLevelProc.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Queues a new event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinWmConfigure(winPtr, pos)
+    TkWindow *winPtr;
+    WINDOWPOS *pos;
+{
+    XEvent event;
+    WmInfo *wmPtr;
+    int width, height;
+
+    if (winPtr == NULL) {
+	return;
+    }
+
+    wmPtr = winPtr->wmInfoPtr;
+
+    /*
+     * If the window was just iconified, then we don't need to update
+     * the geometry, just iconify the window.
+     */
+
+    if (IsIconic(TkWinGetHWND(wmPtr->reparent))) {
+	if (wmPtr->hints.initial_state == NormalState) {
+	    IconifyWindow(winPtr);
+	}
+	return;
+    } else if (wmPtr->hints.initial_state == IconicState) {
+	DeiconifyWindow(winPtr);
+    }
+
+    width = pos->cx - wmPtr->borderWidth;
+    height = pos->cy - wmPtr->borderHeight;
+
+    /* 
+     * Update size information from the event.  There are a couple of
+     * tricky points here:
+     *
+     * 1. If the user changed the size externally then set wmPtr->width
+     *    and wmPtr->height just as if a "wm geometry" command had been
+     *    invoked with the same information.
+     * 2. However, if the size is changing in response to a request
+     *    coming from us (WM_SYNC_PENDING is set), then don't set wmPtr->width
+     *    or wmPtr->height (otherwise the window will stop tracking geometry
+     *    manager requests).
+     */
+
+    if (!(wmPtr->flags & WM_SYNC_PENDING)) {
+	if ((width != winPtr->changes.width)
+		|| (height != winPtr->changes.height)) {
+	    if ((wmPtr->width == -1) && (width == winPtr->reqWidth)) {
+		/*
+		 * Don't set external width, since the user didn't change it
+		 * from what the widgets asked for.
+		 */
+	    } else {
+		if (wmPtr->gridWin != NULL) {
+		    wmPtr->width = wmPtr->reqGridWidth
+			+ (width - winPtr->reqWidth)/wmPtr->widthInc;
+		    if (wmPtr->width < 0) {
+			wmPtr->width = 0;
+		    }
+		} else {
+		    wmPtr->width = width;
+		}
+	    }
+	    if ((wmPtr->height == -1) && (height == winPtr->reqHeight)) {
+		/*
+		 * Don't set external height, since the user didn't change it
+		 * from what the widgets asked for.
+		 */
+	    } else {
+		if (wmPtr->gridWin != NULL) {
+		    wmPtr->height = wmPtr->reqGridHeight
+			+ (height - winPtr->reqHeight)/wmPtr->heightInc;
+		    if (wmPtr->height < 0) {
+			wmPtr->height = 0;
+		    }
+		} else {
+		    wmPtr->height = height;
+		}
+	    }
+	    wmPtr->configWidth = width;
+	    wmPtr->configHeight = height;
+	}
+	wmPtr->x = pos->x;
+	wmPtr->y = pos->y;
+	wmPtr->flags &= ~(WM_NEGATIVE_X | WM_NEGATIVE_Y);
+    }
+
+    /*
+     * Update the shape of the contained window.
+     */
+
+    winPtr->changes.x = pos->x;
+    winPtr->changes.y = pos->y;
+    winPtr->changes.width = width;
+    winPtr->changes.height = height;
+    MoveWindow(TkWinGetHWND(winPtr->window), 0, 0, width, height, TRUE);
+    
+    /*
+     * Generate a ConfigureNotify event.
+     */
+
+    event.type = ConfigureNotify;
+    event.xconfigure.serial = winPtr->display->request;
+    event.xconfigure.send_event = False;
+    event.xconfigure.display = winPtr->display;
+    event.xconfigure.event = winPtr->window;
+    event.xconfigure.window = winPtr->window;
+    event.xconfigure.border_width = winPtr->changes.border_width;
+    event.xconfigure.override_redirect = winPtr->atts.override_redirect;
+    event.xconfigure.x = pos->x;
+    event.xconfigure.y = pos->y;
+    event.xconfigure.width = width;
+    event.xconfigure.height = height;
+    if (winPtr->changes.stack_mode == Above) {
+	event.xconfigure.above = winPtr->changes.sibling;
+    } else {
+	event.xconfigure.above = None;
+    }
+    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * IconifyWindow --
+ *
+ *	Put a toplevel window into the iconified state.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Iconifies the window, possibly mapping it for the first time.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+IconifyWindow(winPtr)
+    TkWindow *winPtr;		/* Window to be iconified. */
+{
+    WmInfo *wmPtr = winPtr->wmInfoPtr;
+    wmPtr->hints.initial_state = IconicState;
+    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	if (wmPtr->withdrawn) {
+	    Tk_MapWindow((Tk_Window) winPtr);
+	    wmPtr->withdrawn = 0;
+	} else {
+	    wmPtr->flags |= WM_SYNC_PENDING;
+	    CloseWindow(TkWinGetHWND(wmPtr->reparent));
+	    wmPtr->flags &= ~WM_SYNC_PENDING;
+	    XUnmapWindow(winPtr->display, winPtr->window);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeiconifyWindow --
+ *
+ *	Put a toplevel window into the deiconified state.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Deiconifies the window, possibly mapping it for the first time.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+DeiconifyWindow(winPtr)
+    TkWindow *winPtr;		/* Window to be deiconified. */
+{
+    WmInfo *wmPtr = winPtr->wmInfoPtr;
+    wmPtr->hints.initial_state = NormalState;
+    wmPtr->withdrawn = 0;
+    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
+	if (wmPtr->withdrawn) {
+	    wmPtr->withdrawn = 0;
+	} else {
+	    wmPtr->flags |= WM_SYNC_PENDING;
+	    OpenIcon(TkWinGetHWND(wmPtr->reparent));
+	    wmPtr->flags &= ~WM_SYNC_PENDING;
+	}
+	Tk_MapWindow((Tk_Window) winPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinWmInstallColormaps --
+ *
+ *	Installs the colormaps associated with the toplevel which is
+ *	currently active.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	May change the system palette and generate damage.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+TkWinWmInstallColormaps(hwnd, message, isForemost)
+    HWND hwnd;			/* Toplevel wrapper window whose colormaps
+				 * should be installed. */
+    int message;		/* Either WM_PALETTECHANGED or
+				 * WM_QUERYNEWPALETTE */
+    int isForemost;		/* 1 if window is foremost, else 0 */
+{
+    int i;
+    HDC dc;
+    HPALETTE oldPalette;
+    TkWinDrawable *twdPtr =
+	(TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+    TkWindow *winPtr = TkWinGetWinPtr(twdPtr);
+    WmInfo *wmPtr;
+	    
+    if (winPtr == NULL) {
+	return 0;
+    }
+
+    wmPtr = winPtr->wmInfoPtr;
+
+    if (message == WM_QUERYNEWPALETTE) {
+	/*
+	 * Case 1: This window is about to become the foreground window, so we
+	 * need to install the primary palette. If the system palette was
+	 * updated, then Windows will generate a WM_PALETTECHANGED message.
+	 * Otherwise, we have to synthesize one in order to ensure that the
+	 * secondary palettes are installed properly.
+	 */
+
+	foregroundWmPtr = wmPtr;
+
+	if (wmPtr->cmapCount > 0) {
+	    winPtr = wmPtr->cmapList[0];
+	}
+
+	systemPalette = TkWinGetPalette(winPtr->atts.colormap);
+	dc = GetDC(hwnd);
+	oldPalette = SelectPalette(dc, systemPalette, FALSE);
+	if (RealizePalette(dc)) {
+	    RefreshColormap(winPtr->atts.colormap);
+	} else if (wmPtr->cmapCount > 1) {
+	    SelectPalette(dc, oldPalette, TRUE);
+	    RealizePalette(dc);
+	    ReleaseDC(hwnd, dc);
+	    SendMessage(hwnd, WM_PALETTECHANGED, (WPARAM)hwnd,
+		    (LPARAM)NULL);
+	    return TRUE;
+	}
+
+    } else {
+	/*
+	 * Window is being notified of a change in the system palette.
+	 * If this window is the foreground window, then we should only
+	 * install the secondary palettes, since the primary was installed
+	 * in response to the WM_QUERYPALETTE message.  Otherwise, install
+	 * all of the palettes.
+	 */
+
+
+	if (!isForemost) {
+	    if (wmPtr->cmapCount > 0) {
+		winPtr = wmPtr->cmapList[0];
+	    }
+	    i = 1;
+	} else {
+	    if (wmPtr->cmapCount <= 1) {
+		return TRUE;
+	    }
+	    winPtr = wmPtr->cmapList[1];
+	    i = 2;
+	}
+	dc = GetDC(hwnd);
+	oldPalette = SelectPalette(dc,
+		TkWinGetPalette(winPtr->atts.colormap), TRUE);
+	if (RealizePalette(dc)) {
+	    RefreshColormap(winPtr->atts.colormap);
+	}
+	for (; i < wmPtr->cmapCount; i++) {
+	    winPtr = wmPtr->cmapList[i];
+	    SelectPalette(dc, TkWinGetPalette(winPtr->atts.colormap), TRUE);
+	    if (RealizePalette(dc)) {
+		RefreshColormap(winPtr->atts.colormap);
+	    }
+	}
+    }
+
+    SelectPalette(dc, oldPalette, TRUE);
+    RealizePalette(dc);
+    ReleaseDC(hwnd, dc);
+    return TRUE;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * RefreshColormap --
+ *
+ *	This function is called to force all of the windows that use
+ *	a given colormap to redraw themselves.  The quickest way to
+ *	do this is to iterate over the toplevels, looking in the
+ *	cmapList for matches.  This will quickly eliminate subtrees
+ *	that don't use a given colormap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Causes damage events to be generated.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+RefreshColormap(colormap)
+    Colormap colormap;
+{
+    WmInfo *wmPtr;
+    int i;
+
+    for (wmPtr = firstWmPtr; wmPtr != NULL; wmPtr = wmPtr->nextPtr) {
+	if (wmPtr->cmapCount > 0) {
+	    for (i = 0; i < wmPtr->cmapCount; i++) {
+		if ((wmPtr->cmapList[i]->atts.colormap == colormap)
+			&& Tk_IsMapped(wmPtr->cmapList[i])) {
+		    InvalidateSubTree(wmPtr->cmapList[i], colormap);
+		}
+	    }
+	} else if ((wmPtr->winPtr->atts.colormap == colormap)
+		&& Tk_IsMapped(wmPtr->winPtr)) {
+	    InvalidateSubTree(wmPtr->winPtr, colormap);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * InvalidateSubTree --
+ *
+ *	This function recursively generates damage for a window and
+ *	all of its mapped children that belong to the same toplevel and
+ *	are using the specified colormap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Generates damage for the specified subtree.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+InvalidateSubTree(winPtr, colormap)
+    TkWindow *winPtr;
+    Colormap colormap;
+{
+    TkWindow *childPtr;
+
+    /*
+     * Generate damage for the current window if it is using the
+     * specified colormap.
+     */
+
+    if (winPtr->atts.colormap == colormap) {
+	InvalidateRect(TkWinGetHWND(winPtr->window), NULL, FALSE);
+    }
+
+    for (childPtr = winPtr->childList; childPtr != NULL;
+	    childPtr = childPtr->nextPtr) {
+	/*
+	 * We can stop the descent when we hit an unmapped or
+	 * toplevel window.  
+	 */
+
+	if (!Tk_IsTopLevel(childPtr) && Tk_IsMapped(childPtr)) {
+	    InvalidateSubTree(childPtr, colormap);
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetSystemPalette --
+ *
+ *	Retrieves the currently installed foreground palette.
+ *
+ * Results:
+ *	Returns the global foreground palette, if there is one.
+ *	Otherwise, returns NULL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+HPALETTE
+TkWinGetSystemPalette()
+{
+    return systemPalette;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetMinSize --
+ *
+ *	This procedure computes the current minWidth and minHeight
+ *	values for a window, taking into account the possibility
+ *	that they may be defaulted.
+ *
+ * Results:
+ *	The values at *minWidthPtr and *minHeightPtr are filled
+ *	in with the minimum allowable dimensions of wmPtr's window,
+ *	in grid units.  If the requested minimum is smaller than the
+ *	system required minimum, then this procedure computes the
+ *	smallest size that will satisfy both the system and the
+ *	grid constraints.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetMinSize(wmPtr, minWidthPtr, minHeightPtr)
+    WmInfo *wmPtr;		/* Window manager information for the
+				 * window. */
+    int *minWidthPtr;		/* Where to store the current minimum
+				 * width of the window. */
+    int *minHeightPtr;		/* Where to store the current minimum
+				 * height of the window. */
+{
+    int tmp, base;
+    TkWindow *winPtr = wmPtr->winPtr;
+
+    /*
+     * Compute the minimum width by taking the default client size
+     * and rounding it up to the nearest grid unit.  Return the greater
+     * of the default minimum and the specified minimum.
+     */
+
+    tmp = wmPtr->defMinWidth - wmPtr->borderWidth;
+    if (tmp < 0) {
+	tmp = 0;
+    }
+    if (wmPtr->gridWin != NULL) {
+	base = winPtr->reqWidth - (wmPtr->reqGridWidth * wmPtr->widthInc);
+	if (base < 0) {
+	    base = 0;
+	}
+	tmp = ((tmp - base) + wmPtr->widthInc - 1)/wmPtr->widthInc;
+    }
+    if (tmp < wmPtr->minWidth) {
+	tmp = wmPtr->minWidth;
+    }
+    *minWidthPtr = tmp;
+
+    /*
+     * Compute the minimum height in a similar fashion.
+     */
+
+    tmp = wmPtr->defMinHeight - wmPtr->borderHeight;
+    if (tmp < 0) {
+	tmp = 0;
+    }
+    if (wmPtr->gridWin != NULL) {
+	base = winPtr->reqHeight - (wmPtr->reqGridHeight * wmPtr->heightInc);
+	if (base < 0) {
+	    base = 0;
+	}
+	tmp = ((tmp - base) + wmPtr->heightInc - 1)/wmPtr->heightInc;
+    }
+    if (tmp < wmPtr->minHeight) {
+	tmp = wmPtr->minHeight;
+    }
+    *minHeightPtr = tmp;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetMaxSize --
+ *
+ *	This procedure computes the current maxWidth and maxHeight
+ *	values for a window, taking into account the possibility
+ *	that they may be defaulted.
+ *
+ * Results:
+ *	The values at *maxWidthPtr and *maxHeightPtr are filled
+ *	in with the maximum allowable dimensions of wmPtr's window,
+ *	in grid units.  If no maximum has been specified for the
+ *	window, then this procedure computes the largest sizes that
+ *	will fit on the screen.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetMaxSize(wmPtr, maxWidthPtr, maxHeightPtr)
+    WmInfo *wmPtr;		/* Window manager information for the
+				 * window. */
+    int *maxWidthPtr;		/* Where to store the current maximum
+				 * width of the window. */
+    int *maxHeightPtr;		/* Where to store the current maximum
+				 * height of the window. */
+{
+    int tmp;
+
+    if (wmPtr->maxWidth > 0) {
+	*maxWidthPtr = wmPtr->maxWidth;
+    } else {
+	/*
+	 * Must compute a default width.  Fill up the display, leaving a
+	 * bit of extra space for the window manager's borders.
+	 */
+
+	tmp = wmPtr->defMaxWidth - wmPtr->borderWidth;
+	if (wmPtr->gridWin != NULL) {
+	    /*
+	     * Gridding is turned on;  convert from pixels to grid units.
+	     */
+
+	    tmp = wmPtr->reqGridWidth
+		    + (tmp - wmPtr->winPtr->reqWidth)/wmPtr->widthInc;
+	}
+	*maxWidthPtr = tmp;
+    }
+    if (wmPtr->maxHeight > 0) {
+	*maxHeightPtr = wmPtr->maxHeight;
+    } else {
+	tmp = wmPtr->defMaxHeight - wmPtr->borderHeight;
+	if (wmPtr->gridWin != NULL) {
+	    tmp = wmPtr->reqGridHeight
+		    + (tmp - wmPtr->winPtr->reqHeight)/wmPtr->heightInc;
+	}
+	*maxHeightPtr = tmp;
+    }
+}
diff --git a/Tk/win/tkWinX.c b/Tk/win/tkWinX.c
new file mode 100644
index 0000000..5772b69
--- /dev/null
+++ b/Tk/win/tkWinX.c
@@ -0,0 +1,1075 @@
+/* 
+ * tkWinX.c --
+ *
+ *	This file contains Windows emulation procedures for X routines. 
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ * Copyright (c) 1994 Software Research Associates, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) tkWinX.c 1.28 96/07/23 16:58:44
+ */
+
+#include "tkInt.h"
+#include "tkWinInt.h"
+
+/*
+ * The following declaration is a special purpose backdoor into the
+ * Tcl notifier.  It is used to process events on the Tcl event queue,
+ * without reentering the system event queue.
+ */
+
+extern void		TclWinFlushEvents _ANSI_ARGS_((void));
+
+/*
+ * Declarations of static variables used in this file.
+ */
+
+static HINSTANCE appInstance = (HINSTANCE) NULL;
+				/* Global application instance handle. */
+static Display *winDisplay;	/* Display that represents Windows screen. */
+static Tcl_HashTable windowTable;
+				/* Table of child windows indexed by handle. */
+static char winScreenName[] = ":0";
+				/* Default name of windows display. */
+static ATOM topLevelAtom, childAtom;
+				/* Atoms for the classes registered by Tk. */
+
+/*
+ * Forward declarations of procedures used in this file.
+ */
+
+static void		DeleteWindow _ANSI_ARGS_((HWND hwnd));
+static void 		GetTranslatedKey _ANSI_ARGS_((XKeyEvent *xkey));
+static void 		TranslateEvent _ANSI_ARGS_((HWND hwnd, UINT message,
+			    WPARAM wParam, LPARAM lParam));
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetServerInfo --
+ *
+ *	Given a window, this procedure returns information about
+ *	the window server for that window.  This procedure provides
+ *	the guts of the "winfo server" command.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkGetServerInfo(interp, tkwin)
+    Tcl_Interp *interp;		/* The server information is returned in
+				 * this interpreter's result. */
+    Tk_Window tkwin;		/* Token for window;  this selects a
+				 * particular display and server. */
+{
+    char buffer[50];
+    OSVERSIONINFO info;
+    int index = 0;
+    static char* os[] = {"Win32", "Win32s", "Win32c"};
+
+    info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+    GetVersionEx(&info);
+    if (info.dwPlatformId == VER_PLATFORM_WIN32s) {
+	index = 1;
+    } else if (info.dwPlatformId == VER_PLATFORM_WIN32s) {
+	index = 2;
+    }
+    sprintf(buffer, "Windows %d.%d %d ", info.dwMajorVersion,
+	    info.dwMinorVersion, info.dwBuildNumber);
+    Tcl_AppendResult(interp, buffer, os[index], (char *) NULL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetTkModule --
+ *
+ *	This function returns the module handle for the Tk DLL.
+ *
+ * Results:
+ *	Returns the library module handle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+HMODULE
+TkWinGetTkModule()
+{
+#ifdef STk_CODE
+  return GetModuleHandle("stk.exe");
+#else
+    char libName[13];
+    sprintf(libName, "tk%d%d.dll", TK_MAJOR_VERSION, TK_MINOR_VERSION);
+    return GetModuleHandle(libName);
+#endif
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetAppInstance --
+ *
+ *	Retrieves the global application instance handle.
+ *
+ * Results:
+ *	Returns the global application instance handle.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+HINSTANCE
+TkWinGetAppInstance()
+{
+    return appInstance;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinXInit --
+ *
+ *	Initialize Xlib emulation layer.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Sets up various data structures.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkWinXInit(hInstance)
+    HINSTANCE hInstance;
+{
+    WNDCLASS class;
+    static initialized = 0;
+
+    if (initialized != 0) {
+	return;
+    }
+    initialized = 1;
+
+    appInstance = hInstance;
+
+    class.style = CS_HREDRAW | CS_VREDRAW;
+    class.cbClsExtra = 0;
+    class.cbWndExtra = 0;
+    class.hInstance = hInstance;
+    class.hbrBackground = NULL;
+    class.lpszMenuName = NULL;
+
+    /*
+     * Register the TopLevel window class.
+     */
+
+    class.lpszClassName = TK_WIN_TOPLEVEL_CLASS_NAME;
+    class.lpfnWndProc = TkWinTopLevelProc;
+    class.hIcon = LoadIcon(TkWinGetTkModule(), "tk");
+    class.hCursor = LoadCursor(NULL, IDC_ARROW);
+
+    topLevelAtom = RegisterClass(&class);
+    if (topLevelAtom == 0) {
+	panic("Unable to register TkTopLevel class");
+    }
+    
+    /*
+     * Register the Child window class.
+     */
+
+    class.lpszClassName = TK_WIN_CHILD_CLASS_NAME;
+    class.lpfnWndProc = TkWinChildProc;
+    class.hIcon = NULL;
+    class.hCursor = NULL;
+
+    childAtom = RegisterClass(&class);
+    if (childAtom == 0) {
+	UnregisterClass((LPCTSTR)topLevelAtom, hInstance);
+	panic("Unable to register TkChild class");
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkGetDefaultScreenName --
+ *
+ *	Returns the name of the screen that Tk should use during
+ *	initialization.
+ *
+ * Results:
+ *	Returns a statically allocated string.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+char *
+TkGetDefaultScreenName(interp, screenName)
+    Tcl_Interp *interp;		/* Not used. */
+    char *screenName;		/* If NULL, use default string. */
+{
+    if ((screenName == NULL) || (screenName[0] == '\0')) {
+	screenName = winScreenName;
+    }
+    return screenName;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XOpenDisplay --
+ *
+ *	Create the Display structure and fill it with device
+ *	specific information.
+ *
+ * Results:
+ *	Returns a Display structure on success or NULL on failure.
+ *
+ * Side effects:
+ *	Allocates a new Display structure.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Display *
+XOpenDisplay(display_name)
+    _Xconst char *display_name;
+{
+    Screen *screen;
+    HDC dc;
+    TkWinDrawable *twdPtr;
+
+    TkWinPointerInit();
+
+    Tcl_InitHashTable(&windowTable, TCL_ONE_WORD_KEYS);
+
+    if (winDisplay != NULL) {
+	if (strcmp(winDisplay->display_name, display_name) == 0) {
+	    return winDisplay;
+	} else {
+	    panic("XOpenDisplay: tried to open multiple displays");
+	    return NULL;
+	}
+    }
+
+    winDisplay = (Display *) ckalloc(sizeof(Display));
+    winDisplay->display_name = (char *) ckalloc(strlen(display_name)+1);
+    strcpy(winDisplay->display_name, display_name);
+
+    winDisplay->cursor_font = 1;
+    winDisplay->nscreens = 1;
+    winDisplay->request = 1;
+    winDisplay->qlen = 0;
+
+    screen = (Screen *) ckalloc(sizeof(Screen));
+    screen->display = winDisplay;
+
+    dc = GetDC(NULL);
+    screen->width = GetDeviceCaps(dc, HORZRES);
+    screen->height = GetDeviceCaps(dc, VERTRES);
+    screen->mwidth = GetDeviceCaps(dc, HORZSIZE);
+    screen->mheight = GetDeviceCaps(dc, VERTSIZE);
+
+    /*
+     * Set up the root window.
+     */
+
+    twdPtr = (TkWinDrawable*) ckalloc(sizeof(TkWinDrawable));
+    if (twdPtr == NULL) {
+	return None;
+    }
+    twdPtr->type = TWD_WINDOW;
+    twdPtr->window.winPtr = NULL;
+    twdPtr->window.handle = NULL;
+    screen->root = (Window)twdPtr;
+
+    screen->root_depth = GetDeviceCaps(dc, BITSPIXEL);
+    screen->root_visual = (Visual *) ckalloc(sizeof(Visual));
+    screen->root_visual->visualid = 0;
+    if (GetDeviceCaps(dc, RASTERCAPS) & RC_PALETTE) {
+	screen->root_visual->map_entries = GetDeviceCaps(dc, SIZEPALETTE);
+	screen->root_visual->class = PseudoColor;
+	screen->root_visual->red_mask = 0x0;
+	screen->root_visual->green_mask = 0x0;
+	screen->root_visual->blue_mask = 0x0;
+    } else {
+	if (screen->root_depth == 4) {
+	    screen->root_visual->class = StaticColor;
+	    screen->root_visual->map_entries = 16;
+	} else if (screen->root_depth == 16) {
+	    screen->root_visual->class = TrueColor;
+	    screen->root_visual->map_entries = 64;
+	    screen->root_visual->red_mask = 0xf8;
+	    screen->root_visual->green_mask = 0xfc00;
+	    screen->root_visual->blue_mask = 0xf80000;
+	} else if (screen->root_depth >= 24) {
+	    screen->root_visual->class = TrueColor;
+	    screen->root_visual->map_entries = 256;
+	    screen->root_visual->red_mask = 0xff;
+	    screen->root_visual->green_mask = 0xff00;
+	    screen->root_visual->blue_mask = 0xff0000;
+	}
+    }
+    screen->root_visual->bits_per_rgb = screen->root_depth;
+    ReleaseDC(NULL, dc);
+
+    /*
+     * Note that these pixel values are not palette relative.
+     */
+
+    screen->white_pixel = RGB(255, 255, 255);
+    screen->black_pixel = RGB(0, 0, 0);
+
+    winDisplay->screens = screen;
+    winDisplay->nscreens = 1;
+    winDisplay->default_screen = 0;
+    screen->cmap = XCreateColormap(winDisplay, None, screen->root_visual,
+	    AllocNone);
+    return winDisplay;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XBell --
+ *
+ *	Generate a beep.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Plays a sounds out the system speakers.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XBell(display, percent)
+    Display* display;
+    int percent;
+{
+    MessageBeep(MB_OK);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinTopLevelProc --
+ *
+ *	Callback from Windows whenever an event occurs on a top level
+ *	window.
+ *
+ * Results:
+ *	Standard Windows return value.
+ *
+ * Side effects:
+ *	Default window behavior.
+ *
+ *----------------------------------------------------------------------
+ */
+
+LRESULT CALLBACK
+TkWinTopLevelProc(hwnd, message, wParam, lParam)
+    HWND hwnd;
+    UINT message;
+    WPARAM wParam;
+    LPARAM lParam;
+{
+    static inMoveSize = 0;
+	
+    if (inMoveSize) {
+	TclWinFlushEvents();
+    }
+
+    switch (message) {
+	case WM_ENTERSIZEMOVE:
+	    inMoveSize = 1;
+	    break;
+
+	case WM_EXITSIZEMOVE:
+	    inMoveSize = 0;
+	    break;
+
+	case WM_CREATE: {
+	    CREATESTRUCT *info = (CREATESTRUCT *) lParam;
+	    TkWinDrawable *twdPtr = (TkWinDrawable *)info->lpCreateParams;
+	    Tcl_HashEntry *hPtr;
+	    int new;
+
+	    /*
+	     * Add the window and handle to the window table.
+	     */
+
+	    twdPtr->window.handle = hwnd;
+	    hPtr = Tcl_CreateHashEntry(&windowTable, (char *)hwnd, &new);
+	    if (!new) {
+		panic("Duplicate window handle: %p", hwnd);
+	    }
+	    Tcl_SetHashValue(hPtr, twdPtr);
+
+	    /*
+	     * Store the pointer to the drawable structure passed into
+	     * CreateWindow in the user data slot of the window.
+	     */
+
+	    SetWindowLong(hwnd, GWL_USERDATA, (DWORD)twdPtr);
+	    return 0;
+	}
+
+	case WM_DESTROY:
+	    DeleteWindow(hwnd);
+	    return 0;
+	    
+	case WM_GETMINMAXINFO: 
+	    TkWinWmSetLimits(hwnd, (MINMAXINFO *) lParam);
+	    return 0;
+
+	case WM_PALETTECHANGED:
+	    return TkWinWmInstallColormaps(hwnd, WM_PALETTECHANGED,
+		    hwnd == (HWND)wParam);
+
+	case WM_QUERYNEWPALETTE:
+	    return TkWinWmInstallColormaps(hwnd, WM_QUERYNEWPALETTE, TRUE);
+
+	case WM_WINDOWPOSCHANGED: {
+	    WINDOWPOS *pos = (WINDOWPOS *) lParam;
+	    TkWinDrawable *twdPtr =
+		(TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+
+	    TkWinWmConfigure(TkWinGetWinPtr(twdPtr), pos);
+	    return 0;
+	}
+
+	case WM_CLOSE:
+	case WM_LBUTTONDOWN:
+	case WM_MBUTTONDOWN:
+	case WM_RBUTTONDOWN:
+	case WM_LBUTTONUP:
+	case WM_MBUTTONUP:
+	case WM_RBUTTONUP:
+	case WM_MOUSEMOVE:
+	case WM_CHAR:
+	case WM_SYSCHAR:
+	case WM_KEYDOWN:
+	case WM_KEYUP:
+	case WM_SETFOCUS:
+	case WM_KILLFOCUS:
+	    TranslateEvent(hwnd, message, wParam, lParam);
+	    return 0;
+
+	case WM_SYSKEYDOWN:
+	case WM_SYSKEYUP:
+	case WM_DESTROYCLIPBOARD:
+	    TranslateEvent(hwnd, message, wParam, lParam);
+
+	    /*
+	     * We need to pass these messages to the default window
+	     * procedure in order to get the system menu to work.
+	     */
+
+	    break;
+    }
+
+    return DefWindowProc(hwnd, message, wParam, lParam);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinChildProc --
+ *
+ *	Callback from Windows whenever an event occurs on a child
+ *	window.
+ *
+ * Results:
+ *	Standard Windows return value.
+ *
+ * Side effects:
+ *	Default window behavior.
+ *
+ *----------------------------------------------------------------------
+ */
+
+LRESULT CALLBACK
+TkWinChildProc(hwnd, message, wParam, lParam)
+    HWND hwnd;
+    UINT message;
+    WPARAM wParam;
+    LPARAM lParam;
+{
+    switch (message) {
+	case WM_CREATE: {
+	    CREATESTRUCT *info = (CREATESTRUCT *) lParam;
+	    Tcl_HashEntry *hPtr;
+	    int new;
+
+	    /*
+	     * Add the window and handle to the window table.
+	     */
+
+	    hPtr = Tcl_CreateHashEntry(&windowTable, (char *)hwnd, &new);
+	    if (!new) {
+		panic("Duplicate window handle: %p", hwnd);
+	    }
+	    Tcl_SetHashValue(hPtr, info->lpCreateParams);
+
+	    /*
+	     * Store the pointer to the drawable structure passed into
+	     * CreateWindow in the user data slot of the window.  Then set
+	     * the Z stacking order so the window appears on top.
+	     */
+	    
+	    SetWindowLong(hwnd, GWL_USERDATA, (DWORD)info->lpCreateParams);
+	    SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
+		    SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE);
+	    return 0;
+	}
+
+	case WM_DESTROY:
+	    DeleteWindow(hwnd);
+	    return 0;
+	    
+	case WM_ERASEBKGND:
+	case WM_WINDOWPOSCHANGED:
+	    return 0;
+
+	case WM_RENDERFORMAT: {
+	    TkWinDrawable *twdPtr;
+	    twdPtr = (TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+	    TkWinClipboardRender(TkWinGetWinPtr(twdPtr), wParam);
+	    return 0;
+	}
+
+	case WM_DESTROYCLIPBOARD:
+	case WM_PAINT:
+	case WM_LBUTTONDOWN:
+	case WM_MBUTTONDOWN:
+	case WM_RBUTTONDOWN:
+	case WM_LBUTTONUP:
+	case WM_MBUTTONUP:
+	case WM_RBUTTONUP:
+	case WM_MOUSEMOVE:
+	case WM_CHAR:
+	case WM_SYSCHAR:
+	case WM_SYSKEYDOWN:
+	case WM_SYSKEYUP:
+	case WM_KEYDOWN:
+	case WM_KEYUP:
+	case WM_SETFOCUS:
+	case WM_KILLFOCUS:
+	    TranslateEvent(hwnd, message, wParam, lParam);
+	    return 0;
+    }
+
+    return DefWindowProc(hwnd, message, wParam, lParam);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TranslateEvent --
+ *
+ *	This function is called by the window procedures to handle
+ *	the translation from Win32 events to Tk events.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Queues a new Tk event.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+TranslateEvent(hwnd, message, wParam, lParam)
+    HWND hwnd;
+    UINT message;
+    WPARAM wParam;
+    LPARAM lParam;
+{
+    TkWindow *winPtr;
+    XEvent event;
+    TkWinDrawable *twdPtr;
+
+    /*
+     * Retrieve the window information, and reset the hwnd pointer in
+     * case the original window was a toplevel decorative frame.
+     */
+
+    twdPtr = (TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+    if (twdPtr == NULL) {
+	return;
+    }
+    winPtr = TkWinGetWinPtr(twdPtr);
+
+    /*
+     * TranslateEvent may get called even after Tk has deleted the window.
+     * So we must check for a dead window before proceeding.
+     */
+
+    if (winPtr == NULL || winPtr->window == None) {
+	return;
+    }
+
+    hwnd = TkWinGetHWND(winPtr->window);
+
+    event.xany.serial = winPtr->display->request++;
+    event.xany.send_event = False;
+    event.xany.display = winPtr->display;
+    event.xany.window = (Window) winPtr->window;
+
+    switch (message) {
+	case WM_PAINT: {
+	    PAINTSTRUCT ps;
+
+	    event.type = Expose;
+	    BeginPaint(hwnd, &ps);
+	    event.xexpose.x = ps.rcPaint.left;
+	    event.xexpose.y = ps.rcPaint.top;
+	    event.xexpose.width = ps.rcPaint.right - ps.rcPaint.left;
+	    event.xexpose.height = ps.rcPaint.bottom - ps.rcPaint.top;
+	    EndPaint(hwnd, &ps);
+	    event.xexpose.count = 0;
+	    break;
+	}
+
+	case WM_CLOSE:
+	    event.type = ClientMessage;
+	    event.xclient.message_type =
+		Tk_InternAtom((Tk_Window) winPtr, "WM_PROTOCOLS");
+	    event.xclient.format = 32;
+	    event.xclient.data.l[0] =
+		Tk_InternAtom((Tk_Window) winPtr, "WM_DELETE_WINDOW");
+	    break;
+
+	case WM_SETFOCUS:
+	    event.type = FocusIn;
+	    event.xfocus.mode = NotifyNormal;
+	    event.xfocus.detail = NotifyAncestor;
+	    break;
+
+	case WM_KILLFOCUS:
+	    event.type = FocusOut;
+	    event.xfocus.mode = NotifyNormal;
+	    event.xfocus.detail = NotifyAncestor;
+	    break;
+	    
+	case WM_DESTROYCLIPBOARD:
+	    event.type = SelectionClear;
+	    event.xselectionclear.selection =
+		Tk_InternAtom((Tk_Window)winPtr, "CLIPBOARD");
+	    event.xselectionclear.time = GetCurrentTime();
+	    break;
+	    
+	case WM_LBUTTONDOWN:
+	case WM_MBUTTONDOWN:
+	case WM_RBUTTONDOWN:
+	case WM_LBUTTONUP:
+	case WM_MBUTTONUP:
+	case WM_RBUTTONUP:
+	case WM_MOUSEMOVE:
+	case WM_CHAR:
+	case WM_SYSCHAR:
+	case WM_SYSKEYDOWN:
+	case WM_SYSKEYUP:
+	case WM_KEYDOWN:
+	case WM_KEYUP: {
+	    unsigned int state = TkWinGetModifierState(message,
+		    wParam, lParam);
+	    Time time = GetCurrentTime();
+	    POINT clientPoint;
+	    POINTS rootPoint;	/* Note: POINT and POINTS are different */
+	    DWORD msgPos;
+
+	    /*
+	     * Compute the screen and window coordinates of the event.
+	     */
+	    
+	    msgPos = GetMessagePos();
+	    rootPoint = MAKEPOINTS(msgPos);
+	    clientPoint.x = rootPoint.x;
+	    clientPoint.y = rootPoint.y;
+	    ScreenToClient(hwnd, &clientPoint);
+
+	    /*
+	     * Set up the common event fields.
+	     */
+
+	    event.xbutton.root = RootWindow(winPtr->display,
+		    winPtr->screenNum);
+	    event.xbutton.subwindow = None;
+	    event.xbutton.x = clientPoint.x;
+	    event.xbutton.y = clientPoint.y;
+	    event.xbutton.x_root = rootPoint.x;
+	    event.xbutton.y_root = rootPoint.y;
+	    event.xbutton.state = state;
+	    event.xbutton.time = time;
+	    event.xbutton.same_screen = True;
+
+	    /*
+	     * Now set up event specific fields.
+	     */
+
+	    switch (message) {
+		case WM_LBUTTONDOWN:
+		    event.type = ButtonPress;
+		    event.xbutton.button = Button1;
+		    break;
+
+		case WM_MBUTTONDOWN:
+		    event.type = ButtonPress;
+		    event.xbutton.button = Button2;
+		    break;
+
+		case WM_RBUTTONDOWN:
+		    event.type = ButtonPress;
+		    event.xbutton.button = Button3;
+		    break;
+	
+		case WM_LBUTTONUP:
+		    event.type = ButtonRelease;
+		    event.xbutton.button = Button1;
+		    break;
+	
+		case WM_MBUTTONUP:
+		    event.type = ButtonRelease;
+		    event.xbutton.button = Button2;
+		    break;
+
+		case WM_RBUTTONUP:
+		    event.type = ButtonRelease;
+		    event.xbutton.button = Button3;
+		    break;
+	
+		case WM_MOUSEMOVE:
+		    event.type = MotionNotify;
+		    event.xmotion.is_hint = NotifyNormal;
+		    break;
+
+		case WM_SYSKEYDOWN:
+		case WM_KEYDOWN:
+		    /*
+		     * Check for translated characters in the event queue.
+		     */
+
+		    event.type = KeyPress;
+		    event.xkey.keycode = wParam;
+		    GetTranslatedKey(&event.xkey);
+		    break;
+
+		case WM_SYSKEYUP:
+		case WM_KEYUP:
+		    /*
+		     * We don't check for translated characters on keyup
+		     * because Tk won't know what to do with them.  Instead, we
+		     * wait for the WM_CHAR messages which will follow.
+		     */
+		    event.type = KeyRelease;
+		    event.xkey.keycode = wParam;
+		    event.xkey.nchars = 0;
+		    break;
+
+		case WM_CHAR:
+		case WM_SYSCHAR:
+		    /*
+		     * Synthesize both a KeyPress and a KeyRelease.
+		     */
+
+		    event.type = KeyPress;
+		    event.xkey.keycode = 0;
+		    event.xkey.nchars = 1;
+		    event.xkey.trans_chars[0] = (char) wParam;
+		    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+		    event.type = KeyRelease;
+		    break;
+	    }
+
+	    if ((event.type == MotionNotify)
+		    || (event.type == ButtonPress)
+		    || (event.type == ButtonRelease)) {
+		TkWinPointerEvent(&event, winPtr);
+		return;
+	    }
+	    break;
+	}
+
+	default:
+	    return;
+    }
+    Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetModifierState --
+ *
+ *	This function constructs a state mask for the mouse buttons 
+ *	and modifier keys.
+ *
+ * Results:
+ *	Returns a composite value of all the modifier and button state
+ *	flags that were set at the time the event occurred.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+unsigned int
+TkWinGetModifierState(message, wParam, lParam)
+    UINT message;		/* Win32 message type */
+    WPARAM wParam;		/* wParam of message, used if key message */
+    LPARAM lParam;		/* lParam of message, used if key message */
+{
+    unsigned int state = 0;	/* accumulated state flags */
+    int isKeyEvent;		/* 1 if message is a key press or release */
+    int prevState;		/* 1 if key was previously down */
+
+    /*
+     * If the event is a key press or release, we check for autorepeat.
+     */
+
+    if (message == WM_SYSKEYDOWN || message == WM_KEYDOWN
+	    || message == WM_SYSKEYUP || message == WM_KEYUP) {
+	isKeyEvent = TRUE;
+	prevState = HIWORD(lParam) & KF_REPEAT;
+    }
+
+    /*
+     * If the key being pressed or released is a modifier key, then
+     * we use its previous state, otherwise we look at the current state.
+     */
+
+    if (isKeyEvent && (wParam == VK_SHIFT)) {
+	state |= prevState ? ShiftMask : 0;
+    } else {
+	state |= (GetKeyState(VK_SHIFT) & 0x8000) ? ShiftMask : 0;
+    }
+    if (isKeyEvent && (wParam == VK_CONTROL)) {
+	state |= prevState ? ControlMask : 0;
+    } else {
+	state |= (GetKeyState(VK_CONTROL) & 0x8000) ? ControlMask : 0;
+    }
+    if (isKeyEvent && (wParam == VK_MENU)) {
+	state |= prevState ? Mod2Mask : 0;
+    } else {
+	state |= (GetKeyState(VK_MENU) & 0x8000) ? Mod2Mask : 0;
+    }
+
+    /*
+     * For toggle keys, we have to check both the previous key state
+     * and the current toggle state.  The result is the state of the
+     * toggle before the event.
+     */
+
+    if ((wParam == VK_CAPITAL)
+	    && (message == WM_SYSKEYDOWN || message == WM_KEYDOWN)) {
+	state = (prevState ^ (GetKeyState(VK_CAPITAL) & 0x0001))
+	    ? 0 : LockMask;
+    } else {
+	state |= (GetKeyState(VK_CAPITAL) & 0x0001) ? LockMask : 0;
+    }
+    if ((wParam == VK_NUMLOCK)
+	    && (message == WM_SYSKEYDOWN || message == WM_KEYDOWN)) {
+	state = (prevState ^ (GetKeyState(VK_NUMLOCK) & 0x0001))
+	    ? 0 : Mod1Mask;
+    } else {
+	state |= (GetKeyState(VK_NUMLOCK) & 0x0001) ? Mod1Mask : 0;
+    }
+    if ((wParam == VK_SCROLL)
+	    && (message == WM_SYSKEYDOWN || message == WM_KEYDOWN)) {
+	state = (prevState ^ (GetKeyState(VK_SCROLL) & 0x0001))
+	    ? 0 : Mod3Mask;
+    } else {
+	state |= (GetKeyState(VK_SCROLL) & 0x0001) ? Mod3Mask : 0;
+    }
+
+    /*
+     * If a mouse button is being pressed or released, we use the previous
+     * state of the button.
+     */
+
+    if (message == WM_LBUTTONUP || (message != WM_LBUTTONDOWN
+	    && GetKeyState(VK_LBUTTON) & 0x8000)) {
+	state |= Button1Mask;
+    }
+    if (message == WM_MBUTTONUP || (message != WM_MBUTTONDOWN
+	    && GetKeyState(VK_MBUTTON) & 0x8000)) {
+	state |= Button2Mask;
+    }
+    if (message == WM_RBUTTONUP || (message != WM_RBUTTONDOWN
+	    && GetKeyState(VK_RBUTTON) & 0x8000)) {
+	state |= Button3Mask;
+    }
+    return state;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * GetTranslatedKey --
+ *
+ *	Retrieves WM_CHAR messages that are placed on the system queue
+ *	by the TranslateMessage system call and places them in the
+ *	given KeyPress event.
+ *
+ * Results:
+ *	Sets the trans_chars and nchars member of the key event.
+ *
+ * Side effects:
+ *	Removes any WM_CHAR messages waiting on the top of the system
+ *	event queue.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+GetTranslatedKey(xkey)
+    XKeyEvent *xkey;
+{
+    MSG msg;
+    
+    xkey->nchars = 0;
+
+    while (xkey->nchars < XMaxTransChars
+	    && PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE)) {
+	if ((msg.message == WM_CHAR) || (msg.message == WM_SYSCHAR)) {
+	    xkey->trans_chars[xkey->nchars] = (char) msg.wParam;
+	    xkey->nchars++;
+	    GetMessage(&msg, NULL, 0, 0);
+	    if ((msg.message == WM_CHAR) && (msg.lParam & 0x20000000)) {
+		xkey->state = 0;
+	    }
+	} else {
+	    break;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkWinGetDrawableFromHandle --
+ *
+ *	Find the drawable associated with the given window handle.
+ *
+ * Results:
+ *	Returns a drawable pointer if the window is managed by Tk.
+ *	Otherwise it returns NULL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TkWinDrawable *
+TkWinGetDrawableFromHandle(hwnd)
+    HWND hwnd;			/* Win32 window handle */
+{
+    Tcl_HashEntry *hPtr;
+
+    hPtr = Tcl_FindHashEntry(&windowTable, (char *)hwnd);
+    if (hPtr) {
+	return (TkWinDrawable *)Tcl_GetHashValue(hPtr);
+    }
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * DeleteWindow --
+ *
+ *	Remove a window from the window table, and free the resources
+ *	associated with the drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Frees the resources associated with a window handle.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DeleteWindow(hwnd)
+    HWND hwnd;
+{
+    TkWinDrawable *twdPtr;
+    Tcl_HashEntry *hPtr;
+
+    /*
+     * Remove the window from the window table.
+     */
+
+    hPtr = Tcl_FindHashEntry(&windowTable, (char *)hwnd);
+    if (hPtr) {
+	Tcl_DeleteHashEntry(hPtr);
+    }
+
+    /*
+     * Free the drawable associated with this window, unless the drawable
+     * is still in use by a TkWindow.  This only happens in the case of
+     * a top level window, since the window gets destroyed when the
+     * decorative frame is destroyed.
+     */
+
+    twdPtr = (TkWinDrawable *) GetWindowLong(hwnd, GWL_USERDATA);
+    if (twdPtr) {
+	if (twdPtr->window.winPtr == NULL) {
+	    ckfree((char *) twdPtr);
+	} else if (!(twdPtr->window.winPtr->flags & TK_TOP_LEVEL)) {
+	    panic("Non-toplevel window destroyed before its drawable");
+	} else {
+	    twdPtr->window.handle = NULL;
+	}
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreeXId --
+ *
+ *	This inteface is not needed under Windows.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreeXId(display, xid)
+    Display *display;
+    XID xid;
+{
+}
diff --git a/Tk/win/winMain.c b/Tk/win/winMain.c
new file mode 100644
index 0000000..8d595a7
--- /dev/null
+++ b/Tk/win/winMain.c
@@ -0,0 +1,250 @@
+/* 
+ * winMain.c --
+ *
+ *	Main entry point for wish and other Tk-based applications.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) winMain.c 1.28 96/07/23 16:58:12
+ */
+
+#include <tk.h>
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+#undef WIN32_LEAN_AND_MEAN
+#include <malloc.h>
+#include <locale.h>
+
+/*
+ * The following declarations refer to internal Tk routines.  These
+ * interfaces are available for use, but are not supported.
+ */
+
+EXTERN void		TkConsoleCreate _ANSI_ARGS_((void));
+EXTERN int		TkConsoleInit _ANSI_ARGS_((Tcl_Interp *interp));
+
+/*
+ * Forward declarations for procedures defined later in this file:
+ */
+
+static void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format));
+
+#ifdef TK_TEST
+EXTERN int		Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp));
+#endif /* TK_TEST */
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WinMain --
+ *
+ *	Main entry point from Windows.
+ *
+ * Results:
+ *	Returns false if initialization fails, otherwise it never
+ *	returns. 
+ *
+ * Side effects:
+ *	Just about anything, since from here we call arbitrary Tcl code.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int APIENTRY
+WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow)
+    HINSTANCE hInstance;
+    HINSTANCE hPrevInstance;
+    LPSTR lpszCmdLine;
+    int nCmdShow;
+{
+    char **argv, **argvlist, *p;
+    int argc, size, i;
+    char buffer[MAX_PATH];
+
+    /*
+     * Set up the default locale to be standard "C" locale so parsing
+     * is performed correctly.
+     */
+
+    setlocale(LC_ALL, "C");
+
+
+    /*
+     * Increase the application queue size from default value of 8.
+     * At the default value, cross application SendMessage of WM_KILLFOCUS
+     * will fail because the handler will not be able to do a PostMessage!
+     * This is only needed for Windows 3.x, since NT dynamically expands
+     * the queue.
+     */
+    SetMessageQueue(64);
+
+    /*
+     * Create the console channels and install them as the standard
+     * channels.  All I/O will be discarded until TkConsoleInit is
+     * called to attach the console to a text widget.
+     */
+
+    TkConsoleCreate();
+
+    /*
+     * Precompute an overly pessimistic guess at the number of arguments
+     * in the command line by counting non-space spans.  Note that we
+     * have to allow room for the executable name and the trailing NULL
+     * argument.
+     */
+
+    for (size = 3, p = lpszCmdLine; *p != '\0'; p++) {
+	if (isspace(*p)) {
+	    size++;
+	    while (isspace(*p)) {
+		p++;
+	    }
+	    if (*p == '\0') {
+		break;
+	    }
+	}
+    }
+    argvlist = (char **) ckalloc((unsigned) (size * sizeof(char *)));
+    argv = argvlist;
+
+    /*
+     * Parse the Windows command line string.  If an argument begins with a
+     * double quote, then spaces are considered part of the argument until the
+     * next double quote.  The argument terminates at the second quote.  Note
+     * that this is different from the usual Unix semantics.
+     */
+
+    for (i = 1, p = lpszCmdLine; *p != '\0'; i++) {
+	while (isspace(*p)) {
+	    p++;
+	}
+	if (*p == '\0') {
+	    break;
+	}
+	if (*p == '"') {
+	    p++;
+	    argv[i] = p;
+	    while ((*p != '\0') && (*p != '"')) {
+		p++;
+	    }
+	} else {
+	    argv[i] = p;
+	    while (*p != '\0' && !isspace(*p)) {
+		p++;
+	    }
+	}
+	if (*p != '\0') {
+	    *p = '\0';
+	    p++;
+	}
+    }
+    argv[i] = NULL;
+    argc = i;
+
+    /*
+     * Since Windows programs don't get passed the command name as the
+     * first argument, we need to fetch it explicitly.
+     */
+
+    GetModuleFileName(NULL, buffer, sizeof(buffer));
+    argv[0] = buffer;
+
+    Tk_Main(argc, argv, Tcl_AppInit);
+    return 1;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_AppInit --
+ *
+ *	This procedure performs application-specific initialization.
+ *	Most applications, especially those that incorporate additional
+ *	packages, will have their own version of this procedure.
+ *
+ * Results:
+ *	Returns a standard Tcl completion code, and leaves an error
+ *	message in interp->result if an error occurs.
+ *
+ * Side effects:
+ *	Depends on the startup script.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Tcl_AppInit(interp)
+    Tcl_Interp *interp;		/* Interpreter for application. */
+{
+    if (Tcl_Init(interp) == TCL_ERROR) {
+	goto error;
+    }
+    if (Tk_Init(interp) == TCL_ERROR) {
+	goto error;
+    }
+    Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
+
+    /*
+     * Initialize the console only if we are running as an interactive
+     * application.
+     */
+
+    if (strcmp(Tcl_GetVar(interp, "tcl_interactive", TCL_GLOBAL_ONLY), "1")
+	    == 0) {
+	if (TkConsoleInit(interp) == TCL_ERROR) {
+	goto error;
+	}
+    }
+
+#ifdef TK_TEST
+    if (Tktest_Init(interp) == TCL_ERROR) {
+	goto error;
+    }
+    Tcl_StaticPackage(interp, "Tktest", Tktest_Init,
+            (Tcl_PackageInitProc *) NULL);
+#endif /* TK_TEST */
+
+    Tcl_SetVar(interp, "tcl_rcFileName", "~/wishrc.tcl", TCL_GLOBAL_ONLY);
+    return TCL_OK;
+
+error:
+    WishPanic(interp->result);
+    return TCL_ERROR;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * WishPanic --
+ *
+ *	Display a message and exit.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Exits the program.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+WishPanic TCL_VARARGS_DEF(char *,arg1)
+{
+    va_list argList;
+    char buf[1024];
+    char *format;
+    
+    format = TCL_VARARGS_START(char *,arg1,argList);
+    vsprintf(buf, format, argList);
+
+    MessageBeep(MB_ICONEXCLAMATION);
+    MessageBox(NULL, buf, "Fatal Error in Wish",
+	    MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
+    ExitProcess(1);
+}
diff --git a/Tk/xlib/X11/X.h b/Tk/xlib/X11/X.h
new file mode 100644
index 0000000..55a3133
--- /dev/null
+++ b/Tk/xlib/X11/X.h
@@ -0,0 +1,669 @@
+/*
+ *	$XConsortium: X.h,v 1.66 88/09/06 15:55:56 jim Exp $
+ */
+
+/* Definitions for the X window system likely to be used by applications */
+
+#ifndef X_H
+#define X_H
+
+/***********************************************************
+Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
+and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in 
+supporting documentation, and that the names of Digital or MIT not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.  
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+#define X_PROTOCOL	11		/* current protocol version */
+#define X_PROTOCOL_REVISION 0		/* current minor version */
+
+#ifdef MAC_TCL
+#   define Cursor XCursor
+#   define Region XRegion
+#endif
+
+/* Resources */
+
+typedef unsigned long XID;
+
+typedef XID Window;
+typedef XID Drawable;
+typedef XID Font;
+typedef XID Pixmap;
+typedef XID Cursor;
+typedef XID Colormap;
+typedef XID GContext;
+typedef XID KeySym;
+
+typedef unsigned long Mask;
+
+typedef unsigned long Atom;
+
+typedef unsigned long VisualID;
+
+typedef unsigned long Time;
+
+typedef unsigned short KeyCode;
+
+/*****************************************************************
+ * RESERVED RESOURCE AND CONSTANT DEFINITIONS
+ *****************************************************************/
+
+#define None                 0L	/* universal null resource or null atom */
+
+#define ParentRelative       1L	/* background pixmap in CreateWindow
+				    and ChangeWindowAttributes */
+
+#define CopyFromParent       0L	/* border pixmap in CreateWindow
+				       and ChangeWindowAttributes
+				   special VisualID and special window
+				       class passed to CreateWindow */
+
+#define PointerWindow        0L	/* destination window in SendEvent */
+#define InputFocus           1L	/* destination window in SendEvent */
+
+#define PointerRoot          1L	/* focus window in SetInputFocus */
+
+#define AnyPropertyType      0L	/* special Atom, passed to GetProperty */
+
+#define AnyKey		     0L	/* special Key Code, passed to GrabKey */
+
+#define AnyButton            0L	/* special Button Code, passed to GrabButton */
+
+#define AllTemporary         0L	/* special Resource ID passed to KillClient */
+
+#define CurrentTime          0L	/* special Time */
+
+#define NoSymbol	     0L	/* special KeySym */
+
+/***************************************************************** 
+ * EVENT DEFINITIONS 
+ *****************************************************************/
+
+/* Input Event Masks. Used as event-mask window attribute and as arguments
+   to Grab requests.  Not to be confused with event names.  */
+
+#define NoEventMask			0L
+#define KeyPressMask			(1L<<0)  
+#define KeyReleaseMask			(1L<<1)  
+#define ButtonPressMask			(1L<<2)  
+#define ButtonReleaseMask		(1L<<3)  
+#define EnterWindowMask			(1L<<4)  
+#define LeaveWindowMask			(1L<<5)  
+#define PointerMotionMask		(1L<<6)  
+#define PointerMotionHintMask		(1L<<7)  
+#define Button1MotionMask		(1L<<8)  
+#define Button2MotionMask		(1L<<9)  
+#define Button3MotionMask		(1L<<10) 
+#define Button4MotionMask		(1L<<11) 
+#define Button5MotionMask		(1L<<12) 
+#define ButtonMotionMask		(1L<<13) 
+#define KeymapStateMask			(1L<<14)
+#define ExposureMask			(1L<<15) 
+#define VisibilityChangeMask		(1L<<16) 
+#define StructureNotifyMask		(1L<<17) 
+#define ResizeRedirectMask		(1L<<18) 
+#define SubstructureNotifyMask		(1L<<19) 
+#define SubstructureRedirectMask	(1L<<20) 
+#define FocusChangeMask			(1L<<21) 
+#define PropertyChangeMask		(1L<<22) 
+#define ColormapChangeMask		(1L<<23) 
+#define OwnerGrabButtonMask		(1L<<24) 
+
+/* Event names.  Used in "type" field in XEvent structures.  Not to be
+confused with event masks above.  They start from 2 because 0 and 1
+are reserved in the protocol for errors and replies. */
+
+#define KeyPress		2
+#define KeyRelease		3
+#define ButtonPress		4
+#define ButtonRelease		5
+#define MotionNotify		6
+#define EnterNotify		7
+#define LeaveNotify		8
+#define FocusIn			9
+#define FocusOut		10
+#define KeymapNotify		11
+#define Expose			12
+#define GraphicsExpose		13
+#define NoExpose		14
+#define VisibilityNotify	15
+#define CreateNotify		16
+#define DestroyNotify		17
+#define UnmapNotify		18
+#define MapNotify		19
+#define MapRequest		20
+#define ReparentNotify		21
+#define ConfigureNotify		22
+#define ConfigureRequest	23
+#define GravityNotify		24
+#define ResizeRequest		25
+#define CirculateNotify		26
+#define CirculateRequest	27
+#define PropertyNotify		28
+#define SelectionClear		29
+#define SelectionRequest	30
+#define SelectionNotify		31
+#define ColormapNotify		32
+#define ClientMessage		33
+#define MappingNotify		34
+#define LASTEvent		35	/* must be bigger than any event # */
+
+
+/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,
+   state in various key-, mouse-, and button-related events. */
+
+#define ShiftMask		(1<<0)
+#define LockMask		(1<<1)
+#define ControlMask		(1<<2)
+#define Mod1Mask		(1<<3)
+#define Mod2Mask		(1<<4)
+#define Mod3Mask		(1<<5)
+#define Mod4Mask		(1<<6)
+#define Mod5Mask		(1<<7)
+
+/* modifier names.  Used to build a SetModifierMapping request or
+   to read a GetModifierMapping request.  These correspond to the
+   masks defined above. */
+#define ShiftMapIndex		0
+#define LockMapIndex		1
+#define ControlMapIndex		2
+#define Mod1MapIndex		3
+#define Mod2MapIndex		4
+#define Mod3MapIndex		5
+#define Mod4MapIndex		6
+#define Mod5MapIndex		7
+
+
+/* button masks.  Used in same manner as Key masks above. Not to be confused
+   with button names below. */
+
+#define Button1Mask		(1<<8)
+#define Button2Mask		(1<<9)
+#define Button3Mask		(1<<10)
+#define Button4Mask		(1<<11)
+#define Button5Mask		(1<<12)
+
+#define AnyModifier		(1<<15)  /* used in GrabButton, GrabKey */
+
+
+/* button names. Used as arguments to GrabButton and as detail in ButtonPress
+   and ButtonRelease events.  Not to be confused with button masks above.
+   Note that 0 is already defined above as "AnyButton".  */
+
+#define Button1			1
+#define Button2			2
+#define Button3			3
+#define Button4			4
+#define Button5			5
+
+/* Notify modes */
+
+#define NotifyNormal		0
+#define NotifyGrab		1
+#define NotifyUngrab		2
+#define NotifyWhileGrabbed	3
+
+#define NotifyHint		1	/* for MotionNotify events */
+		       
+/* Notify detail */
+
+#define NotifyAncestor		0
+#define NotifyVirtual		1
+#define NotifyInferior		2
+#define NotifyNonlinear		3
+#define NotifyNonlinearVirtual	4
+#define NotifyPointer		5
+#define NotifyPointerRoot	6
+#define NotifyDetailNone	7
+
+/* Visibility notify */
+
+#define VisibilityUnobscured		0
+#define VisibilityPartiallyObscured	1
+#define VisibilityFullyObscured		2
+
+/* Circulation request */
+
+#define PlaceOnTop		0
+#define PlaceOnBottom		1
+
+/* protocol families */
+
+#define FamilyInternet		0
+#define FamilyDECnet		1
+#define FamilyChaos		2
+
+/* Property notification */
+
+#define PropertyNewValue	0
+#define PropertyDelete		1
+
+/* Color Map notification */
+
+#define ColormapUninstalled	0
+#define ColormapInstalled	1
+
+/* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes */
+
+#define GrabModeSync		0
+#define GrabModeAsync		1
+
+/* GrabPointer, GrabKeyboard reply status */
+
+#define GrabSuccess		0
+#define AlreadyGrabbed		1
+#define GrabInvalidTime		2
+#define GrabNotViewable		3
+#define GrabFrozen		4
+
+/* AllowEvents modes */
+
+#define AsyncPointer		0
+#define SyncPointer		1
+#define ReplayPointer		2
+#define AsyncKeyboard		3
+#define SyncKeyboard		4
+#define ReplayKeyboard		5
+#define AsyncBoth		6
+#define SyncBoth		7
+
+/* Used in SetInputFocus, GetInputFocus */
+
+#define RevertToNone		(int)None
+#define RevertToPointerRoot	(int)PointerRoot
+#define RevertToParent		2
+
+/*****************************************************************
+ * ERROR CODES 
+ *****************************************************************/
+
+#define Success		   0	/* everything's okay */
+#define BadRequest	   1	/* bad request code */
+#define BadValue	   2	/* int parameter out of range */
+#define BadWindow	   3	/* parameter not a Window */
+#define BadPixmap	   4	/* parameter not a Pixmap */
+#define BadAtom		   5	/* parameter not an Atom */
+#define BadCursor	   6	/* parameter not a Cursor */
+#define BadFont		   7	/* parameter not a Font */
+#define BadMatch	   8	/* parameter mismatch */
+#define BadDrawable	   9	/* parameter not a Pixmap or Window */
+#define BadAccess	  10	/* depending on context:
+				 - key/button already grabbed
+				 - attempt to free an illegal 
+				   cmap entry 
+				- attempt to store into a read-only 
+				   color map entry.
+ 				- attempt to modify the access control
+				   list from other than the local host.
+				*/
+#define BadAlloc	  11	/* insufficient resources */
+#define BadColor	  12	/* no such colormap */
+#define BadGC		  13	/* parameter not a GC */
+#define BadIDChoice	  14	/* choice not in range or already used */
+#define BadName		  15	/* font or color name doesn't exist */
+#define BadLength	  16	/* Request length incorrect */
+#define BadImplementation 17	/* server is defective */
+
+#define FirstExtensionError	128
+#define LastExtensionError	255
+
+/*****************************************************************
+ * WINDOW DEFINITIONS 
+ *****************************************************************/
+
+/* Window classes used by CreateWindow */
+/* Note that CopyFromParent is already defined as 0 above */
+
+#define InputOutput		1
+#define InputOnly		2
+
+/* Window attributes for CreateWindow and ChangeWindowAttributes */
+
+#define CWBackPixmap		(1L<<0)
+#define CWBackPixel		(1L<<1)
+#define CWBorderPixmap		(1L<<2)
+#define CWBorderPixel           (1L<<3)
+#define CWBitGravity		(1L<<4)
+#define CWWinGravity		(1L<<5)
+#define CWBackingStore          (1L<<6)
+#define CWBackingPlanes	        (1L<<7)
+#define CWBackingPixel	        (1L<<8)
+#define CWOverrideRedirect	(1L<<9)
+#define CWSaveUnder		(1L<<10)
+#define CWEventMask		(1L<<11)
+#define CWDontPropagate	        (1L<<12)
+#define CWColormap		(1L<<13)
+#define CWCursor	        (1L<<14)
+
+/* ConfigureWindow structure */
+
+#define CWX			(1<<0)
+#define CWY			(1<<1)
+#define CWWidth			(1<<2)
+#define CWHeight		(1<<3)
+#define CWBorderWidth		(1<<4)
+#define CWSibling		(1<<5)
+#define CWStackMode		(1<<6)
+
+
+/* Bit Gravity */
+
+#define ForgetGravity		0
+#define NorthWestGravity	1
+#define NorthGravity		2
+#define NorthEastGravity	3
+#define WestGravity		4
+#define CenterGravity		5
+#define EastGravity		6
+#define SouthWestGravity	7
+#define SouthGravity		8
+#define SouthEastGravity	9
+#define StaticGravity		10
+
+/* Window gravity + bit gravity above */
+
+#define UnmapGravity		0
+
+/* Used in CreateWindow for backing-store hint */
+
+#define NotUseful               0
+#define WhenMapped              1
+#define Always                  2
+
+/* Used in GetWindowAttributes reply */
+
+#define IsUnmapped		0
+#define IsUnviewable		1
+#define IsViewable		2
+
+/* Used in ChangeSaveSet */
+
+#define SetModeInsert           0
+#define SetModeDelete           1
+
+/* Used in ChangeCloseDownMode */
+
+#define DestroyAll              0
+#define RetainPermanent         1
+#define RetainTemporary         2
+
+/* Window stacking method (in configureWindow) */
+
+#define Above                   0
+#define Below                   1
+#define TopIf                   2
+#define BottomIf                3
+#define Opposite                4
+
+/* Circulation direction */
+
+#define RaiseLowest             0
+#define LowerHighest            1
+
+/* Property modes */
+
+#define PropModeReplace         0
+#define PropModePrepend         1
+#define PropModeAppend          2
+
+/*****************************************************************
+ * GRAPHICS DEFINITIONS
+ *****************************************************************/
+
+/* graphics functions, as in GC.alu */
+
+#define	GXclear			0x0		/* 0 */
+#define GXand			0x1		/* src AND dst */
+#define GXandReverse		0x2		/* src AND NOT dst */
+#define GXcopy			0x3		/* src */
+#define GXandInverted		0x4		/* NOT src AND dst */
+#define	GXnoop			0x5		/* dst */
+#define GXxor			0x6		/* src XOR dst */
+#define GXor			0x7		/* src OR dst */
+#define GXnor			0x8		/* NOT src AND NOT dst */
+#define GXequiv			0x9		/* NOT src XOR dst */
+#define GXinvert		0xa		/* NOT dst */
+#define GXorReverse		0xb		/* src OR NOT dst */
+#define GXcopyInverted		0xc		/* NOT src */
+#define GXorInverted		0xd		/* NOT src OR dst */
+#define GXnand			0xe		/* NOT src OR NOT dst */
+#define GXset			0xf		/* 1 */
+
+/* LineStyle */
+
+#define LineSolid		0
+#define LineOnOffDash		1
+#define LineDoubleDash		2
+
+/* capStyle */
+
+#define CapNotLast		0
+#define CapButt			1
+#define CapRound		2
+#define CapProjecting		3
+
+/* joinStyle */
+
+#define JoinMiter		0
+#define JoinRound		1
+#define JoinBevel		2
+
+/* fillStyle */
+
+#define FillSolid		0
+#define FillTiled		1
+#define FillStippled		2
+#define FillOpaqueStippled	3
+
+/* fillRule */
+
+#define EvenOddRule		0
+#define WindingRule		1
+
+/* subwindow mode */
+
+#define ClipByChildren		0
+#define IncludeInferiors	1
+
+/* SetClipRectangles ordering */
+
+#define Unsorted		0
+#define YSorted			1
+#define YXSorted		2
+#define YXBanded		3
+
+/* CoordinateMode for drawing routines */
+
+#define CoordModeOrigin		0	/* relative to the origin */
+#define CoordModePrevious       1	/* relative to previous point */
+
+/* Polygon shapes */
+
+#define Complex			0	/* paths may intersect */
+#define Nonconvex		1	/* no paths intersect, but not convex */
+#define Convex			2	/* wholly convex */
+
+/* Arc modes for PolyFillArc */
+
+#define ArcChord		0	/* join endpoints of arc */
+#define ArcPieSlice		1	/* join endpoints to center of arc */
+
+/* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into
+   GC.stateChanges */
+
+#define GCFunction              (1L<<0)
+#define GCPlaneMask             (1L<<1)
+#define GCForeground            (1L<<2)
+#define GCBackground            (1L<<3)
+#define GCLineWidth             (1L<<4)
+#define GCLineStyle             (1L<<5)
+#define GCCapStyle              (1L<<6)
+#define GCJoinStyle		(1L<<7)
+#define GCFillStyle		(1L<<8)
+#define GCFillRule		(1L<<9) 
+#define GCTile			(1L<<10)
+#define GCStipple		(1L<<11)
+#define GCTileStipXOrigin	(1L<<12)
+#define GCTileStipYOrigin	(1L<<13)
+#define GCFont 			(1L<<14)
+#define GCSubwindowMode		(1L<<15)
+#define GCGraphicsExposures     (1L<<16)
+#define GCClipXOrigin		(1L<<17)
+#define GCClipYOrigin		(1L<<18)
+#define GCClipMask		(1L<<19)
+#define GCDashOffset		(1L<<20)
+#define GCDashList		(1L<<21)
+#define GCArcMode		(1L<<22)
+
+#define GCLastBit		22
+/*****************************************************************
+ * FONTS 
+ *****************************************************************/
+
+/* used in QueryFont -- draw direction */
+
+#define FontLeftToRight		0
+#define FontRightToLeft		1
+
+#define FontChange		255
+
+/*****************************************************************
+ *  IMAGING 
+ *****************************************************************/
+
+/* ImageFormat -- PutImage, GetImage */
+
+#define XYBitmap		0	/* depth 1, XYFormat */
+#define XYPixmap		1	/* depth == drawable depth */
+#define ZPixmap			2	/* depth == drawable depth */
+
+/*****************************************************************
+ *  COLOR MAP STUFF 
+ *****************************************************************/
+
+/* For CreateColormap */
+
+#define AllocNone		0	/* create map with no entries */
+#define AllocAll		1	/* allocate entire map writeable */
+
+
+/* Flags used in StoreNamedColor, StoreColors */
+
+#define DoRed			(1<<0)
+#define DoGreen			(1<<1)
+#define DoBlue			(1<<2)
+
+/*****************************************************************
+ * CURSOR STUFF
+ *****************************************************************/
+
+/* QueryBestSize Class */
+
+#define CursorShape		0	/* largest size that can be displayed */
+#define TileShape		1	/* size tiled fastest */
+#define StippleShape		2	/* size stippled fastest */
+
+/***************************************************************** 
+ * KEYBOARD/POINTER STUFF
+ *****************************************************************/
+
+#define AutoRepeatModeOff	0
+#define AutoRepeatModeOn	1
+#define AutoRepeatModeDefault	2
+
+#define LedModeOff		0
+#define LedModeOn		1
+
+/* masks for ChangeKeyboardControl */
+
+#define KBKeyClickPercent	(1L<<0)
+#define KBBellPercent		(1L<<1)
+#define KBBellPitch		(1L<<2)
+#define KBBellDuration		(1L<<3)
+#define KBLed			(1L<<4)
+#define KBLedMode		(1L<<5)
+#define KBKey			(1L<<6)
+#define KBAutoRepeatMode	(1L<<7)
+
+#define MappingSuccess     	0
+#define MappingBusy        	1
+#define MappingFailed		2
+
+#define MappingModifier		0
+#define MappingKeyboard		1
+#define MappingPointer		2
+
+/*****************************************************************
+ * SCREEN SAVER STUFF 
+ *****************************************************************/
+
+#define DontPreferBlanking	0
+#define PreferBlanking		1
+#define DefaultBlanking		2
+
+#define DisableScreenSaver	0
+#define DisableScreenInterval	0
+
+#define DontAllowExposures	0
+#define AllowExposures		1
+#define DefaultExposures	2
+
+/* for ForceScreenSaver */
+
+#define ScreenSaverReset 0
+#define ScreenSaverActive 1
+
+/*****************************************************************
+ * HOSTS AND CONNECTIONS
+ *****************************************************************/
+
+/* for ChangeHosts */
+
+#define HostInsert		0
+#define HostDelete		1
+
+/* for ChangeAccessControl */
+
+#define EnableAccess		1      
+#define DisableAccess		0
+
+/* Display classes  used in opening the connection 
+ * Note that the statically allocated ones are even numbered and the
+ * dynamically changeable ones are odd numbered */
+
+#define StaticGray		0
+#define GrayScale		1
+#define StaticColor		2
+#define PseudoColor		3
+#define TrueColor		4
+#define DirectColor		5
+
+
+/* Byte order  used in imageByteOrder and bitmapBitOrder */
+
+#define LSBFirst		0
+#define MSBFirst		1
+
+#ifdef MAC_TCL
+#   undef Cursor
+#   undef Region
+#endif
+
+#endif /* X_H */
diff --git a/Tk/xlib/X11/Xatom.h b/Tk/xlib/X11/Xatom.h
new file mode 100644
index 0000000..485a423
--- /dev/null
+++ b/Tk/xlib/X11/Xatom.h
@@ -0,0 +1,79 @@
+#ifndef XATOM_H
+#define XATOM_H 1
+
+/* THIS IS A GENERATED FILE
+ *
+ * Do not change!  Changing this file implies a protocol change!
+ */
+
+#define XA_PRIMARY ((Atom) 1)
+#define XA_SECONDARY ((Atom) 2)
+#define XA_ARC ((Atom) 3)
+#define XA_ATOM ((Atom) 4)
+#define XA_BITMAP ((Atom) 5)
+#define XA_CARDINAL ((Atom) 6)
+#define XA_COLORMAP ((Atom) 7)
+#define XA_CURSOR ((Atom) 8)
+#define XA_CUT_BUFFER0 ((Atom) 9)
+#define XA_CUT_BUFFER1 ((Atom) 10)
+#define XA_CUT_BUFFER2 ((Atom) 11)
+#define XA_CUT_BUFFER3 ((Atom) 12)
+#define XA_CUT_BUFFER4 ((Atom) 13)
+#define XA_CUT_BUFFER5 ((Atom) 14)
+#define XA_CUT_BUFFER6 ((Atom) 15)
+#define XA_CUT_BUFFER7 ((Atom) 16)
+#define XA_DRAWABLE ((Atom) 17)
+#define XA_FONT ((Atom) 18)
+#define XA_INTEGER ((Atom) 19)
+#define XA_PIXMAP ((Atom) 20)
+#define XA_POINT ((Atom) 21)
+#define XA_RECTANGLE ((Atom) 22)
+#define XA_RESOURCE_MANAGER ((Atom) 23)
+#define XA_RGB_COLOR_MAP ((Atom) 24)
+#define XA_RGB_BEST_MAP ((Atom) 25)
+#define XA_RGB_BLUE_MAP ((Atom) 26)
+#define XA_RGB_DEFAULT_MAP ((Atom) 27)
+#define XA_RGB_GRAY_MAP ((Atom) 28)
+#define XA_RGB_GREEN_MAP ((Atom) 29)
+#define XA_RGB_RED_MAP ((Atom) 30)
+#define XA_STRING ((Atom) 31)
+#define XA_VISUALID ((Atom) 32)
+#define XA_WINDOW ((Atom) 33)
+#define XA_WM_COMMAND ((Atom) 34)
+#define XA_WM_HINTS ((Atom) 35)
+#define XA_WM_CLIENT_MACHINE ((Atom) 36)
+#define XA_WM_ICON_NAME ((Atom) 37)
+#define XA_WM_ICON_SIZE ((Atom) 38)
+#define XA_WM_NAME ((Atom) 39)
+#define XA_WM_NORMAL_HINTS ((Atom) 40)
+#define XA_WM_SIZE_HINTS ((Atom) 41)
+#define XA_WM_ZOOM_HINTS ((Atom) 42)
+#define XA_MIN_SPACE ((Atom) 43)
+#define XA_NORM_SPACE ((Atom) 44)
+#define XA_MAX_SPACE ((Atom) 45)
+#define XA_END_SPACE ((Atom) 46)
+#define XA_SUPERSCRIPT_X ((Atom) 47)
+#define XA_SUPERSCRIPT_Y ((Atom) 48)
+#define XA_SUBSCRIPT_X ((Atom) 49)
+#define XA_SUBSCRIPT_Y ((Atom) 50)
+#define XA_UNDERLINE_POSITION ((Atom) 51)
+#define XA_UNDERLINE_THICKNESS ((Atom) 52)
+#define XA_STRIKEOUT_ASCENT ((Atom) 53)
+#define XA_STRIKEOUT_DESCENT ((Atom) 54)
+#define XA_ITALIC_ANGLE ((Atom) 55)
+#define XA_X_HEIGHT ((Atom) 56)
+#define XA_QUAD_WIDTH ((Atom) 57)
+#define XA_WEIGHT ((Atom) 58)
+#define XA_POINT_SIZE ((Atom) 59)
+#define XA_RESOLUTION ((Atom) 60)
+#define XA_COPYRIGHT ((Atom) 61)
+#define XA_NOTICE ((Atom) 62)
+#define XA_FONT_NAME ((Atom) 63)
+#define XA_FAMILY_NAME ((Atom) 64)
+#define XA_FULL_NAME ((Atom) 65)
+#define XA_CAP_HEIGHT ((Atom) 66)
+#define XA_WM_CLASS ((Atom) 67)
+#define XA_WM_TRANSIENT_FOR ((Atom) 68)
+
+#define XA_LAST_PREDEFINED ((Atom) 68)
+#endif /* XATOM_H */
diff --git a/Tk/xlib/X11/Xfuncproto.h b/Tk/xlib/X11/Xfuncproto.h
new file mode 100644
index 0000000..217ec28
--- /dev/null
+++ b/Tk/xlib/X11/Xfuncproto.h
@@ -0,0 +1,55 @@
+/* $XConsortium: Xfuncproto.h,v 1.7 91/05/13 20:49:21 rws Exp $ */
+/* 
+ * Copyright 1989, 1991 by the Massachusetts Institute of Technology
+ *
+ * Permission to use, copy, modify, and distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided 
+ * that the above copyright notice appear in all copies and that both that 
+ * copyright notice and this permission notice appear in supporting 
+ * documentation, and that the name of M.I.T. not be used in advertising
+ * or publicity pertaining to distribution of the software without specific, 
+ * written prior permission. M.I.T. makes no representations about the 
+ * suitability of this software for any purpose.  It is provided "as is"
+ * without express or implied warranty.
+ *
+ */
+
+/* Definitions to make function prototypes manageable */
+
+#ifndef _XFUNCPROTO_H_
+#define _XFUNCPROTO_H_
+
+#ifndef NeedFunctionPrototypes
+#define NeedFunctionPrototypes 1
+#endif /* NeedFunctionPrototypes */
+
+#ifndef NeedVarargsPrototypes
+#define NeedVarargsPrototypes 0
+#endif /* NeedVarargsPrototypes */
+
+#if NeedFunctionPrototypes
+
+#ifndef NeedNestedPrototypes
+#define NeedNestedPrototypes 1
+#endif /* NeedNestedPrototypes */
+
+#ifndef _Xconst
+#define _Xconst const
+#endif /* _Xconst */
+
+#ifndef NeedWidePrototypes
+#ifdef NARROWPROTO
+#define NeedWidePrototypes 0
+#else
+#define NeedWidePrototypes 1		/* default to make interropt. easier */
+#endif
+#endif /* NeedWidePrototypes */
+
+#endif /* NeedFunctionPrototypes */
+
+#ifndef _XFUNCPROTOBEGIN
+#define _XFUNCPROTOBEGIN
+#define _XFUNCPROTOEND
+#endif /* _XFUNCPROTOBEGIN */
+
+#endif /* _XFUNCPROTO_H_ */
diff --git a/Tk/xlib/X11/Xlib.h b/Tk/xlib/X11/Xlib.h
new file mode 100644
index 0000000..9b3cddb
--- /dev/null
+++ b/Tk/xlib/X11/Xlib.h
@@ -0,0 +1,4310 @@
+/* $XConsortium: Xlib.h,v 11.221 93/07/02 14:13:28 gildea Exp $ */
+/* 
+ * Copyright 1985, 1986, 1987, 1991 by the Massachusetts Institute of Technology
+ *
+ * Permission to use, copy, modify, and distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided 
+ * that the above copyright notice appear in all copies and that both that 
+ * copyright notice and this permission notice appear in supporting 
+ * documentation, and that the name of M.I.T. not be used in advertising
+ * or publicity pertaining to distribution of the software without specific, 
+ * written prior permission. M.I.T. makes no representations about the 
+ * suitability of this software for any purpose.  It is provided "as is"
+ * without express or implied warranty.
+ *
+ * X Window System is a Trademark of MIT.
+ *
+ */
+
+
+/*
+ *	Xlib.h - Header definition and support file for the C subroutine
+ *	interface library (Xlib) to the X Window System Protocol (V11).
+ *	Structures and symbols starting with "_" are private to the library.
+ */
+#ifndef _XLIB_H_
+#define _XLIB_H_
+
+#define XlibSpecificationRelease 5
+
+#ifdef MAC_TCL
+#   include <X.h>
+#   define Cursor XCursor
+#   define Region XRegion
+#else
+#   include <X11/X.h>
+#endif
+
+/* applications should not depend on these two headers being included! */
+#ifdef MAC_TCL
+#include <Xfuncproto.h>
+#else
+#include <X11/Xfuncproto.h>
+#endif
+
+#ifndef X_WCHAR
+#ifdef X_NOT_STDC_ENV
+#define X_WCHAR
+#endif
+#endif
+
+#ifndef X_WCHAR
+#include <stddef.h>
+#else
+/* replace this with #include or typedef appropriate for your system */
+typedef unsigned long wchar_t;
+#endif
+
+typedef char *XPointer;
+
+#define Bool int
+#define Status int
+#define True 1
+#define False 0
+
+#define QueuedAlready 0
+#define QueuedAfterReading 1
+#define QueuedAfterFlush 2
+
+#define ConnectionNumber(dpy) 	((dpy)->fd)
+#define RootWindow(dpy, scr) 	(((dpy)->screens[(scr)]).root)
+#define DefaultScreen(dpy) 	((dpy)->default_screen)
+#define DefaultRootWindow(dpy) 	(((dpy)->screens[(dpy)->default_screen]).root)
+#define DefaultVisual(dpy, scr) (((dpy)->screens[(scr)]).root_visual)
+#define DefaultGC(dpy, scr) 	(((dpy)->screens[(scr)]).default_gc)
+#define BlackPixel(dpy, scr) 	(((dpy)->screens[(scr)]).black_pixel)
+#define WhitePixel(dpy, scr) 	(((dpy)->screens[(scr)]).white_pixel)
+#define AllPlanes 		((unsigned long)~0L)
+#define QLength(dpy) 		((dpy)->qlen)
+#define DisplayWidth(dpy, scr) 	(((dpy)->screens[(scr)]).width)
+#define DisplayHeight(dpy, scr) (((dpy)->screens[(scr)]).height)
+#define DisplayWidthMM(dpy, scr)(((dpy)->screens[(scr)]).mwidth)
+#define DisplayHeightMM(dpy, scr)(((dpy)->screens[(scr)]).mheight)
+#define DisplayPlanes(dpy, scr) (((dpy)->screens[(scr)]).root_depth)
+#define DisplayCells(dpy, scr) 	(DefaultVisual((dpy), (scr))->map_entries)
+#define ScreenCount(dpy) 	((dpy)->nscreens)
+#define ServerVendor(dpy) 	((dpy)->vendor)
+#define ProtocolVersion(dpy) 	((dpy)->proto_major_version)
+#define ProtocolRevision(dpy) 	((dpy)->proto_minor_version)
+#define VendorRelease(dpy) 	((dpy)->release)
+#define DisplayString(dpy) 	((dpy)->display_name)
+#define DefaultDepth(dpy, scr) 	(((dpy)->screens[(scr)]).root_depth)
+#define DefaultColormap(dpy, scr)(((dpy)->screens[(scr)]).cmap)
+#define BitmapUnit(dpy) 	((dpy)->bitmap_unit)
+#define BitmapBitOrder(dpy) 	((dpy)->bitmap_bit_order)
+#define BitmapPad(dpy) 		((dpy)->bitmap_pad)
+#define ImageByteOrder(dpy) 	((dpy)->byte_order)
+#define NextRequest(dpy)	((dpy)->request + 1)
+#define LastKnownRequestProcessed(dpy)	((dpy)->request)
+
+/* macros for screen oriented applications (toolkit) */
+#define ScreenOfDisplay(dpy, scr)(&((dpy)->screens[(scr)]))
+#define DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen]))
+#define DisplayOfScreen(s)	((s)->display)
+#define RootWindowOfScreen(s)	((s)->root)
+#define BlackPixelOfScreen(s)	((s)->black_pixel)
+#define WhitePixelOfScreen(s)	((s)->white_pixel)
+#define DefaultColormapOfScreen(s)((s)->cmap)
+#define DefaultDepthOfScreen(s)	((s)->root_depth)
+#define DefaultGCOfScreen(s)	((s)->default_gc)
+#define DefaultVisualOfScreen(s)((s)->root_visual)
+#define WidthOfScreen(s)	((s)->width)
+#define HeightOfScreen(s)	((s)->height)
+#define WidthMMOfScreen(s)	((s)->mwidth)
+#define HeightMMOfScreen(s)	((s)->mheight)
+#define PlanesOfScreen(s)	((s)->root_depth)
+#define CellsOfScreen(s)	(DefaultVisualOfScreen((s))->map_entries)
+#define MinCmapsOfScreen(s)	((s)->min_maps)
+#define MaxCmapsOfScreen(s)	((s)->max_maps)
+#define DoesSaveUnders(s)	((s)->save_unders)
+#define DoesBackingStore(s)	((s)->backing_store)
+#define EventMaskOfScreen(s)	((s)->root_input_mask)
+
+/*
+ * Extensions need a way to hang private data on some structures.
+ */
+typedef struct _XExtData {
+	int number;		/* number returned by XRegisterExtension */
+	struct _XExtData *next;	/* next item on list of data for structure */
+	int (*free_private)();	/* called to free private storage */
+	XPointer private_data;	/* data private to this extension. */
+} XExtData;
+
+/*
+ * This file contains structures used by the extension mechanism.
+ */
+typedef struct {		/* public to extension, cannot be changed */
+	int extension;		/* extension number */
+	int major_opcode;	/* major op-code assigned by server */
+	int first_event;	/* first event number for the extension */
+	int first_error;	/* first error number for the extension */
+} XExtCodes;
+
+/*
+ * Data structure for retrieving info about pixmap formats.
+ */
+
+typedef struct {
+    int depth;
+    int bits_per_pixel;
+    int scanline_pad;
+} XPixmapFormatValues;
+
+
+/*
+ * Data structure for setting graphics context.
+ */
+typedef struct {
+	int function;		/* logical operation */
+	unsigned long plane_mask;/* plane mask */
+	unsigned long foreground;/* foreground pixel */
+	unsigned long background;/* background pixel */
+	int line_width;		/* line width */
+	int line_style;	 	/* LineSolid, LineOnOffDash, LineDoubleDash */
+	int cap_style;	  	/* CapNotLast, CapButt, 
+				   CapRound, CapProjecting */
+	int join_style;	 	/* JoinMiter, JoinRound, JoinBevel */
+	int fill_style;	 	/* FillSolid, FillTiled, 
+				   FillStippled, FillOpaeueStippled */
+	int fill_rule;	  	/* EvenOddRule, WindingRule */
+	int arc_mode;		/* ArcChord, ArcPieSlice */
+	Pixmap tile;		/* tile pixmap for tiling operations */
+	Pixmap stipple;		/* stipple 1 plane pixmap for stipping */
+	int ts_x_origin;	/* offset for tile or stipple operations */
+	int ts_y_origin;
+        Font font;	        /* default text font for text operations */
+	int subwindow_mode;     /* ClipByChildren, IncludeInferiors */
+	Bool graphics_exposures;/* boolean, should exposures be generated */
+	int clip_x_origin;	/* origin for clipping */
+	int clip_y_origin;
+	Pixmap clip_mask;	/* bitmap clipping; other calls for rects */
+	int dash_offset;	/* patterned/dashed line information */
+	char dashes;
+} XGCValues;
+
+/*
+ * Graphics context.  The contents of this structure are implementation
+ * dependent.  A GC should be treated as opaque by application code.
+ */
+
+typedef XGCValues *GC;
+
+/*
+ * Visual structure; contains information about colormapping possible.
+ */
+typedef struct {
+	XExtData *ext_data;	/* hook for extension to hang data */
+	VisualID visualid;	/* visual id of this visual */
+#if defined(__cplusplus) || defined(c_plusplus)
+	int c_class;		/* C++ class of screen (monochrome, etc.) */
+#else
+	int class;		/* class of screen (monochrome, etc.) */
+#endif
+	unsigned long red_mask, green_mask, blue_mask;	/* mask values */
+	int bits_per_rgb;	/* log base 2 of distinct color values */
+	int map_entries;	/* color map entries */
+} Visual;
+
+/*
+ * Depth structure; contains information for each possible depth.
+ */	
+typedef struct {
+	int depth;		/* this depth (Z) of the depth */
+	int nvisuals;		/* number of Visual types at this depth */
+	Visual *visuals;	/* list of visuals possible at this depth */
+} Depth;
+
+/*
+ * Information about the screen.  The contents of this structure are
+ * implementation dependent.  A Screen should be treated as opaque
+ * by application code.
+ */
+typedef struct {
+	XExtData *ext_data;	/* hook for extension to hang data */
+	struct _XDisplay *display;/* back pointer to display structure */
+	Window root;		/* Root window id. */
+	int width, height;	/* width and height of screen */
+	int mwidth, mheight;	/* width and height of  in millimeters */
+	int ndepths;		/* number of depths possible */
+	Depth *depths;		/* list of allowable depths on the screen */
+	int root_depth;		/* bits per pixel */
+	Visual *root_visual;	/* root visual */
+	GC default_gc;		/* GC for the root root visual */
+	Colormap cmap;		/* default color map */
+	unsigned long white_pixel;
+	unsigned long black_pixel;	/* White and Black pixel values */
+	int max_maps, min_maps;	/* max and min color maps */
+	int backing_store;	/* Never, WhenMapped, Always */
+	Bool save_unders;	
+	long root_input_mask;	/* initial root input mask */
+} Screen;
+
+/*
+ * Format structure; describes ZFormat data the screen will understand.
+ */
+typedef struct {
+	XExtData *ext_data;	/* hook for extension to hang data */
+	int depth;		/* depth of this image format */
+	int bits_per_pixel;	/* bits/pixel at this depth */
+	int scanline_pad;	/* scanline must padded to this multiple */
+} ScreenFormat;
+
+/*
+ * Data structure for setting window attributes.
+ */
+typedef struct {
+    Pixmap background_pixmap;	/* background or None or ParentRelative */
+    unsigned long background_pixel;	/* background pixel */
+    Pixmap border_pixmap;	/* border of the window */
+    unsigned long border_pixel;	/* border pixel value */
+    int bit_gravity;		/* one of bit gravity values */
+    int win_gravity;		/* one of the window gravity values */
+    int backing_store;		/* NotUseful, WhenMapped, Always */
+    unsigned long backing_planes;/* planes to be preseved if possible */
+    unsigned long backing_pixel;/* value to use in restoring planes */
+    Bool save_under;		/* should bits under be saved? (popups) */
+    long event_mask;		/* set of events that should be saved */
+    long do_not_propagate_mask;	/* set of events that should not propagate */
+    Bool override_redirect;	/* boolean value for override-redirect */
+    Colormap colormap;		/* color map to be associated with window */
+    Cursor cursor;		/* cursor to be displayed (or None) */
+} XSetWindowAttributes;
+
+typedef struct {
+    int x, y;			/* location of window */
+    int width, height;		/* width and height of window */
+    int border_width;		/* border width of window */
+    int depth;          	/* depth of window */
+    Visual *visual;		/* the associated visual structure */
+    Window root;        	/* root of screen containing window */
+#if defined(__cplusplus) || defined(c_plusplus)
+    int c_class;		/* C++ InputOutput, InputOnly*/
+#else
+    int class;			/* InputOutput, InputOnly*/
+#endif
+    int bit_gravity;		/* one of bit gravity values */
+    int win_gravity;		/* one of the window gravity values */
+    int backing_store;		/* NotUseful, WhenMapped, Always */
+    unsigned long backing_planes;/* planes to be preserved if possible */
+    unsigned long backing_pixel;/* value to be used when restoring planes */
+    Bool save_under;		/* boolean, should bits under be saved? */
+    Colormap colormap;		/* color map to be associated with window */
+    Bool map_installed;		/* boolean, is color map currently installed*/
+    int map_state;		/* IsUnmapped, IsUnviewable, IsViewable */
+    long all_event_masks;	/* set of events all people have interest in*/
+    long your_event_mask;	/* my event mask */
+    long do_not_propagate_mask; /* set of events that should not propagate */
+    Bool override_redirect;	/* boolean value for override-redirect */
+    Screen *screen;		/* back pointer to correct screen */
+} XWindowAttributes;
+
+/*
+ * Data structure for host setting; getting routines.
+ *
+ */
+
+typedef struct {
+	int family;		/* for example FamilyInternet */
+	int length;		/* length of address, in bytes */
+	char *address;		/* pointer to where to find the bytes */
+} XHostAddress;
+
+/*
+ * Data structure for "image" data, used by image manipulation routines.
+ */
+typedef struct _XImage {
+    int width, height;		/* size of image */
+    int xoffset;		/* number of pixels offset in X direction */
+    int format;			/* XYBitmap, XYPixmap, ZPixmap */
+    char *data;			/* pointer to image data */
+    int byte_order;		/* data byte order, LSBFirst, MSBFirst */
+    int bitmap_unit;		/* quant. of scanline 8, 16, 32 */
+    int bitmap_bit_order;	/* LSBFirst, MSBFirst */
+    int bitmap_pad;		/* 8, 16, 32 either XY or ZPixmap */
+    int depth;			/* depth of image */
+    int bytes_per_line;		/* accelarator to next line */
+    int bits_per_pixel;		/* bits per pixel (ZPixmap) */
+    unsigned long red_mask;	/* bits in z arrangment */
+    unsigned long green_mask;
+    unsigned long blue_mask;
+    XPointer obdata;		/* hook for the object routines to hang on */
+    struct funcs {		/* image manipulation routines */
+	struct _XImage *(*create_image)();
+#if NeedFunctionPrototypes
+	int (*destroy_image)        (struct _XImage *);
+	unsigned long (*get_pixel)  (struct _XImage *, int, int);
+	int (*put_pixel)            (struct _XImage *, int, int, unsigned long);
+	struct _XImage *(*sub_image)(struct _XImage *, int, int, unsigned int, unsigned int);
+	int (*add_pixel)            (struct _XImage *, long);
+#else
+	int (*destroy_image)();
+	unsigned long (*get_pixel)();
+	int (*put_pixel)();
+	struct _XImage *(*sub_image)();
+	int (*add_pixel)();
+#endif
+	} f;
+} XImage;
+
+/* 
+ * Data structure for XReconfigureWindow
+ */
+typedef struct {
+    int x, y;
+    int width, height;
+    int border_width;
+    Window sibling;
+    int stack_mode;
+} XWindowChanges;
+
+/*
+ * Data structure used by color operations
+ */
+typedef struct {
+	unsigned long pixel;
+	unsigned short red, green, blue;
+	char flags;  /* do_red, do_green, do_blue */
+	char pad;
+} XColor;
+
+/* 
+ * Data structures for graphics operations.  On most machines, these are
+ * congruent with the wire protocol structures, so reformatting the data
+ * can be avoided on these architectures.
+ */
+typedef struct {
+    short x1, y1, x2, y2;
+} XSegment;
+
+typedef struct {
+    short x, y;
+} XPoint;
+    
+typedef struct {
+    short x, y;
+    unsigned short width, height;
+} XRectangle;
+    
+typedef struct {
+    short x, y;
+    unsigned short width, height;
+    short angle1, angle2;
+} XArc;
+
+
+/* Data structure for XChangeKeyboardControl */
+
+typedef struct {
+        int key_click_percent;
+        int bell_percent;
+        int bell_pitch;
+        int bell_duration;
+        int led;
+        int led_mode;
+        int key;
+        int auto_repeat_mode;   /* On, Off, Default */
+} XKeyboardControl;
+
+/* Data structure for XGetKeyboardControl */
+
+typedef struct {
+        int key_click_percent;
+	int bell_percent;
+	unsigned int bell_pitch, bell_duration;
+	unsigned long led_mask;
+	int global_auto_repeat;
+	char auto_repeats[32];
+} XKeyboardState;
+
+/* Data structure for XGetMotionEvents.  */
+
+typedef struct {
+        Time time;
+	short x, y;
+} XTimeCoord;
+
+/* Data structure for X{Set,Get}ModifierMapping */
+
+typedef struct {
+ 	int max_keypermod;	/* The server's max # of keys per modifier */
+ 	KeyCode *modifiermap;	/* An 8 by max_keypermod array of modifiers */
+} XModifierKeymap;
+
+
+/*
+ * Display datatype maintaining display specific data.
+ * The contents of this structure are implementation dependent.
+ * A Display should be treated as opaque by application code.
+ */
+typedef struct _XDisplay {
+	XExtData *ext_data;	/* hook for extension to hang data */
+	struct _XFreeFuncs *free_funcs; /* internal free functions */
+	int fd;			/* Network socket. */
+	int conn_checker;         /* ugly thing used by _XEventsQueued */
+	int proto_major_version;/* maj. version of server's X protocol */
+	int proto_minor_version;/* minor version of servers X protocol */
+	char *vendor;		/* vendor of the server hardware */
+        XID resource_base;	/* resource ID base */
+	XID resource_mask;	/* resource ID mask bits */
+	XID resource_id;	/* allocator current ID */
+	int resource_shift;	/* allocator shift to correct bits */
+	XID (*resource_alloc)(); /* allocator function */
+	int byte_order;		/* screen byte order, LSBFirst, MSBFirst */
+	int bitmap_unit;	/* padding and data requirements */
+	int bitmap_pad;		/* padding requirements on bitmaps */
+	int bitmap_bit_order;	/* LeastSignificant or MostSignificant */
+	int nformats;		/* number of pixmap formats in list */
+	ScreenFormat *pixmap_format;	/* pixmap format list */
+	int vnumber;		/* Xlib's X protocol version number. */
+	int release;		/* release of the server */
+	struct _XSQEvent *head, *tail;	/* Input event queue. */
+	int qlen;		/* Length of input event queue */
+	unsigned long request;	/* sequence number of last request. */
+	char *last_req;		/* beginning of last request, or dummy */
+	char *buffer;		/* Output buffer starting address. */
+	char *bufptr;		/* Output buffer index pointer. */
+	char *bufmax;		/* Output buffer maximum+1 address. */
+	unsigned max_request_size; /* maximum number 32 bit words in request*/
+	struct _XrmHashBucketRec *db;
+	int (*synchandler)();	/* Synchronization handler */
+	char *display_name;	/* "host:display" string used on this connect*/
+	int default_screen;	/* default screen for operations */
+	int nscreens;		/* number of screens on this server*/
+	Screen *screens;	/* pointer to list of screens */
+	unsigned long motion_buffer;	/* size of motion buffer */
+	unsigned long flags;	/* internal connection flags */
+	int min_keycode;	/* minimum defined keycode */
+	int max_keycode;	/* maximum defined keycode */
+	KeySym *keysyms;	/* This server's keysyms */
+	XModifierKeymap *modifiermap;	/* This server's modifier keymap */
+	int keysyms_per_keycode;/* number of rows */
+	char *xdefaults;	/* contents of defaults from server */
+	char *scratch_buffer;	/* place to hang scratch buffer */
+	unsigned long scratch_length;	/* length of scratch buffer */
+	int ext_number;		/* extension number on this display */
+	struct _XExten *ext_procs; /* extensions initialized on this display */
+	/*
+	 * the following can be fixed size, as the protocol defines how
+	 * much address space is available. 
+	 * While this could be done using the extension vector, there
+	 * may be MANY events processed, so a search through the extension
+	 * list to find the right procedure for each event might be
+	 * expensive if many extensions are being used.
+	 */
+	Bool (*event_vec[128])();  /* vector for wire to event */
+	Status (*wire_vec[128])(); /* vector for event to wire */
+	KeySym lock_meaning;	   /* for XLookupString */
+	struct _XLockInfo *lock;   /* multi-thread state, display lock */
+	struct _XInternalAsync *async_handlers; /* for internal async */
+	unsigned long bigreq_size; /* max size of big requests */
+	struct _XLockPtrs *lock_fns; /* pointers to threads functions */
+	/* things above this line should not move, for binary compatibility */
+	struct _XKeytrans *key_bindings; /* for XLookupString */
+	Font cursor_font;	   /* for XCreateFontCursor */
+	struct _XDisplayAtoms *atoms; /* for XInternAtom */
+	unsigned int mode_switch;  /* keyboard group modifiers */
+	struct _XContextDB *context_db; /* context database */
+	Bool (**error_vec)();      /* vector for wire to error */
+	/*
+	 * Xcms information
+	 */
+	struct {
+	   XPointer defaultCCCs;  /* pointer to an array of default XcmsCCC */
+	   XPointer clientCmaps;  /* pointer to linked list of XcmsCmapRec */
+	   XPointer perVisualIntensityMaps;
+				  /* linked list of XcmsIntensityMap */
+	} cms;
+	struct _XIMFilter *im_filters;
+	struct _XSQEvent *qfree; /* unallocated event queue elements */
+	unsigned long next_event_serial_num; /* inserted into next queue elt */
+	int (*savedsynchandler)(); /* user synchandler when Xlib usurps */
+} Display;
+
+#if NeedFunctionPrototypes	/* prototypes require event type definitions */
+#undef _XEVENT_
+#endif
+#ifndef _XEVENT_
+
+#define XMaxTransChars 4
+
+/*
+ * Definitions of specific events.
+ */
+typedef struct {
+	int type;		/* of event */
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;	        /* "event" window it is reported relative to */
+	Window root;	        /* root window that the event occured on */
+	Window subwindow;	/* child window */
+	Time time;		/* milliseconds */
+	int x, y;		/* pointer x, y coordinates in event window */
+	int x_root, y_root;	/* coordinates relative to root */
+	unsigned int state;	/* key or button mask */
+	unsigned int keycode;	/* detail */
+	Bool same_screen;	/* same screen flag */
+        char trans_chars[XMaxTransChars];
+				/* translated characters */
+	int nchars;
+} XKeyEvent;
+typedef XKeyEvent XKeyPressedEvent;
+typedef XKeyEvent XKeyReleasedEvent;
+
+typedef struct {
+	int type;		/* of event */
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;	        /* "event" window it is reported relative to */
+	Window root;	        /* root window that the event occured on */
+	Window subwindow;	/* child window */
+	Time time;		/* milliseconds */
+	int x, y;		/* pointer x, y coordinates in event window */
+	int x_root, y_root;	/* coordinates relative to root */
+	unsigned int state;	/* key or button mask */
+	unsigned int button;	/* detail */
+	Bool same_screen;	/* same screen flag */
+} XButtonEvent;
+typedef XButtonEvent XButtonPressedEvent;
+typedef XButtonEvent XButtonReleasedEvent;
+
+typedef struct {
+	int type;		/* of event */
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;	        /* "event" window reported relative to */
+	Window root;	        /* root window that the event occured on */
+	Window subwindow;	/* child window */
+	Time time;		/* milliseconds */
+	int x, y;		/* pointer x, y coordinates in event window */
+	int x_root, y_root;	/* coordinates relative to root */
+	unsigned int state;	/* key or button mask */
+	char is_hint;		/* detail */
+	Bool same_screen;	/* same screen flag */
+} XMotionEvent;
+typedef XMotionEvent XPointerMovedEvent;
+
+typedef struct {
+	int type;		/* of event */
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;	        /* "event" window reported relative to */
+	Window root;	        /* root window that the event occured on */
+	Window subwindow;	/* child window */
+	Time time;		/* milliseconds */
+	int x, y;		/* pointer x, y coordinates in event window */
+	int x_root, y_root;	/* coordinates relative to root */
+	int mode;		/* NotifyNormal, NotifyGrab, NotifyUngrab */
+	int detail;
+	/*
+	 * NotifyAncestor, NotifyVirtual, NotifyInferior, 
+	 * NotifyNonlinear,NotifyNonlinearVirtual
+	 */
+	Bool same_screen;	/* same screen flag */
+	Bool focus;		/* boolean focus */
+	unsigned int state;	/* key or button mask */
+} XCrossingEvent;
+typedef XCrossingEvent XEnterWindowEvent;
+typedef XCrossingEvent XLeaveWindowEvent;
+
+typedef struct {
+	int type;		/* FocusIn or FocusOut */
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;		/* window of event */
+	int mode;		/* NotifyNormal, NotifyGrab, NotifyUngrab */
+	int detail;
+	/*
+	 * NotifyAncestor, NotifyVirtual, NotifyInferior, 
+	 * NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer,
+	 * NotifyPointerRoot, NotifyDetailNone 
+	 */
+} XFocusChangeEvent;
+typedef XFocusChangeEvent XFocusInEvent;
+typedef XFocusChangeEvent XFocusOutEvent;
+
+/* generated on EnterWindow and FocusIn  when KeyMapState selected */
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	char key_vector[32];
+} XKeymapEvent;	
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	int x, y;
+	int width, height;
+	int count;		/* if non-zero, at least this many more */
+} XExposeEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Drawable drawable;
+	int x, y;
+	int width, height;
+	int count;		/* if non-zero, at least this many more */
+	int major_code;		/* core is CopyArea or CopyPlane */
+	int minor_code;		/* not defined in the core */
+} XGraphicsExposeEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Drawable drawable;
+	int major_code;		/* core is CopyArea or CopyPlane */
+	int minor_code;		/* not defined in the core */
+} XNoExposeEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	int state;		/* Visibility state */
+} XVisibilityEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window parent;		/* parent of the window */
+	Window window;		/* window id of window created */
+	int x, y;		/* window location */
+	int width, height;	/* size of window */
+	int border_width;	/* border width */
+	Bool override_redirect;	/* creation should be overridden */
+} XCreateWindowEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+} XDestroyWindowEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	Bool from_configure;
+} XUnmapEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	Bool override_redirect;	/* boolean, is override set... */
+} XMapEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window parent;
+	Window window;
+} XMapRequestEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	Window parent;
+	int x, y;
+	Bool override_redirect;
+} XReparentEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	int x, y;
+	int width, height;
+	int border_width;
+	Window above;
+	Bool override_redirect;
+} XConfigureEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	int x, y;
+} XGravityEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	int width, height;
+} XResizeRequestEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window parent;
+	Window window;
+	int x, y;
+	int width, height;
+	int border_width;
+	Window above;
+	int detail;		/* Above, Below, TopIf, BottomIf, Opposite */
+	unsigned long value_mask;
+} XConfigureRequestEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window event;
+	Window window;
+	int place;		/* PlaceOnTop, PlaceOnBottom */
+} XCirculateEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window parent;
+	Window window;
+	int place;		/* PlaceOnTop, PlaceOnBottom */
+} XCirculateRequestEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	Atom atom;
+	Time time;
+	int state;		/* NewValue, Deleted */
+} XPropertyEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	Atom selection;
+	Time time;
+} XSelectionClearEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window owner;
+	Window requestor;
+	Atom selection;
+	Atom target;
+	Atom property;
+	Time time;
+} XSelectionRequestEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window requestor;
+	Atom selection;
+	Atom target;
+	Atom property;		/* ATOM or None */
+	Time time;
+} XSelectionEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	Colormap colormap;	/* COLORMAP or None */
+#if defined(__cplusplus) || defined(c_plusplus)
+	Bool c_new;		/* C++ */
+#else
+	Bool new;
+#endif
+	int state;		/* ColormapInstalled, ColormapUninstalled */
+} XColormapEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;
+	Atom message_type;
+	int format;
+	union {
+		char b[20];
+		short s[10];
+		long l[5];
+		} data;
+} XClientMessageEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;	/* Display the event was read from */
+	Window window;		/* unused */
+	int request;		/* one of MappingModifier, MappingKeyboard,
+				   MappingPointer */
+	int first_keycode;	/* first keycode */
+	int count;		/* defines range of change w. first_keycode*/
+} XMappingEvent;
+
+typedef struct {
+	int type;
+	Display *display;	/* Display the event was read from */
+	XID resourceid;		/* resource id */
+	unsigned long serial;	/* serial number of failed request */
+	unsigned char error_code;	/* error code of failed request */
+	unsigned char request_code;	/* Major op-code of failed request */
+	unsigned char minor_code;	/* Minor op-code of failed request */
+} XErrorEvent;
+
+typedef struct {
+	int type;
+	unsigned long serial;	/* # of last request processed by server */
+	Bool send_event;	/* true if this came from a SendEvent request */
+	Display *display;/* Display the event was read from */
+	Window window;	/* window on which event was requested in event mask */
+} XAnyEvent;
+
+/*
+ * this union is defined so Xlib can always use the same sized
+ * event structure internally, to avoid memory fragmentation.
+ */
+typedef union _XEvent {
+        int type;		/* must not be changed; first element */
+	XAnyEvent xany;
+	XKeyEvent xkey;
+	XButtonEvent xbutton;
+	XMotionEvent xmotion;
+	XCrossingEvent xcrossing;
+	XFocusChangeEvent xfocus;
+	XExposeEvent xexpose;
+	XGraphicsExposeEvent xgraphicsexpose;
+	XNoExposeEvent xnoexpose;
+	XVisibilityEvent xvisibility;
+	XCreateWindowEvent xcreatewindow;
+	XDestroyWindowEvent xdestroywindow;
+	XUnmapEvent xunmap;
+	XMapEvent xmap;
+	XMapRequestEvent xmaprequest;
+	XReparentEvent xreparent;
+	XConfigureEvent xconfigure;
+	XGravityEvent xgravity;
+	XResizeRequestEvent xresizerequest;
+	XConfigureRequestEvent xconfigurerequest;
+	XCirculateEvent xcirculate;
+	XCirculateRequestEvent xcirculaterequest;
+	XPropertyEvent xproperty;
+	XSelectionClearEvent xselectionclear;
+	XSelectionRequestEvent xselectionrequest;
+	XSelectionEvent xselection;
+	XColormapEvent xcolormap;
+	XClientMessageEvent xclient;
+	XMappingEvent xmapping;
+	XErrorEvent xerror;
+	XKeymapEvent xkeymap;
+	long pad[24];
+} XEvent;
+#endif
+
+#define XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy)))
+
+/*
+ * per character font metric information.
+ */
+typedef struct {
+    short	lbearing;	/* origin to left edge of raster */
+    short	rbearing;	/* origin to right edge of raster */
+    short	width;		/* advance to next char's origin */
+    short	ascent;		/* baseline to top edge of raster */
+    short	descent;	/* baseline to bottom edge of raster */
+    unsigned short attributes;	/* per char flags (not predefined) */
+} XCharStruct;
+
+/*
+ * To allow arbitrary information with fonts, there are additional properties
+ * returned.
+ */
+typedef struct {
+    Atom name;
+    unsigned long card32;
+} XFontProp;
+
+typedef struct {
+    XExtData	*ext_data;	/* hook for extension to hang data */
+    Font        fid;            /* Font id for this font */
+    unsigned	direction;	/* hint about direction the font is painted */
+    unsigned	min_char_or_byte2;/* first character */
+    unsigned	max_char_or_byte2;/* last character */
+    unsigned	min_byte1;	/* first row that exists */
+    unsigned	max_byte1;	/* last row that exists */
+    Bool	all_chars_exist;/* flag if all characters have non-zero size*/
+    unsigned	default_char;	/* char to print for undefined character */
+    int         n_properties;   /* how many properties there are */
+    XFontProp	*properties;	/* pointer to array of additional properties*/
+    XCharStruct	min_bounds;	/* minimum bounds over all existing char*/
+    XCharStruct	max_bounds;	/* maximum bounds over all existing char*/
+    XCharStruct	*per_char;	/* first_char to last_char information */
+    int		ascent;		/* log. extent above baseline for spacing */
+    int		descent;	/* log. descent below baseline for spacing */
+} XFontStruct;
+
+/*
+ * PolyText routines take these as arguments.
+ */
+typedef struct {
+    char *chars;		/* pointer to string */
+    int nchars;			/* number of characters */
+    int delta;			/* delta between strings */
+    Font font;			/* font to print it in, None don't change */
+} XTextItem;
+
+typedef struct {		/* normal 16 bit characters are two bytes */
+    unsigned char byte1;
+    unsigned char byte2;
+} XChar2b;
+
+typedef struct {
+    XChar2b *chars;		/* two byte characters */
+    int nchars;			/* number of characters */
+    int delta;			/* delta between strings */
+    Font font;			/* font to print it in, None don't change */
+} XTextItem16;
+
+
+typedef union { Display *display;
+		GC gc;
+		Visual *visual;
+		Screen *screen;
+		ScreenFormat *pixmap_format;
+		XFontStruct *font; } XEDataObject;
+
+typedef struct {
+    XRectangle      max_ink_extent;
+    XRectangle      max_logical_extent;
+} XFontSetExtents;
+
+typedef struct _XFontSet *XFontSet;
+
+typedef struct {
+    char           *chars;
+    int             nchars;
+    int             delta;
+    XFontSet        font_set;
+} XmbTextItem;
+
+typedef struct {
+    wchar_t        *chars;
+    int             nchars;
+    int             delta;
+    XFontSet        font_set;
+} XwcTextItem;
+
+typedef void (*XIMProc)();
+
+typedef struct _XIM *XIM;
+typedef struct _XIC *XIC;
+
+typedef unsigned long XIMStyle;
+
+typedef struct {
+    unsigned short count_styles;
+    XIMStyle *supported_styles;
+} XIMStyles;
+
+#define XIMPreeditArea		0x0001L
+#define XIMPreeditCallbacks	0x0002L
+#define XIMPreeditPosition	0x0004L
+#define XIMPreeditNothing	0x0008L
+#define XIMPreeditNone		0x0010L
+#define XIMStatusArea		0x0100L
+#define XIMStatusCallbacks	0x0200L
+#define XIMStatusNothing	0x0400L
+#define XIMStatusNone		0x0800L
+
+#define XNVaNestedList "XNVaNestedList"
+#define XNClientWindow "clientWindow"
+#define XNInputStyle "inputStyle"
+#define XNFocusWindow "focusWindow"
+#define XNResourceName "resourceName"
+#define XNResourceClass "resourceClass"
+#define XNGeometryCallback "geometryCallback"
+#define XNFilterEvents "filterEvents"
+#define XNPreeditStartCallback "preeditStartCallback"
+#define XNPreeditDoneCallback "preeditDoneCallback"
+#define XNPreeditDrawCallback "preeditDrawCallback"
+#define XNPreeditCaretCallback "preeditCaretCallback"
+#define XNPreeditAttributes "preeditAttributes"
+#define XNStatusStartCallback "statusStartCallback"
+#define XNStatusDoneCallback "statusDoneCallback"
+#define XNStatusDrawCallback "statusDrawCallback"
+#define XNStatusAttributes "statusAttributes"
+#define XNArea "area"
+#define XNAreaNeeded "areaNeeded"
+#define XNSpotLocation "spotLocation"
+#define XNColormap "colorMap"
+#define XNStdColormap "stdColorMap"
+#define XNForeground "foreground"
+#define XNBackground "background"
+#define XNBackgroundPixmap "backgroundPixmap"
+#define XNFontSet "fontSet"
+#define XNLineSpace "lineSpace"
+#define XNCursor "cursor"
+
+#define XBufferOverflow		-1
+#define XLookupNone		1
+#define XLookupChars		2
+#define XLookupKeySym		3
+#define XLookupBoth		4
+
+#if NeedFunctionPrototypes
+typedef void *XVaNestedList;
+#else
+typedef XPointer XVaNestedList;
+#endif
+
+typedef struct {
+    XPointer client_data;
+    XIMProc callback;
+} XIMCallback;
+
+typedef unsigned long XIMFeedback;
+
+#define XIMReverse	1
+#define XIMUnderline	(1<<1) 
+#define XIMHighlight	(1<<2)
+#define XIMPrimary 	(1<<5)
+#define XIMSecondary	(1<<6)
+#define XIMTertiary 	(1<<7)
+
+typedef struct _XIMText {
+    unsigned short length;
+    XIMFeedback *feedback;
+    Bool encoding_is_wchar; 
+    union {
+	char *multi_byte;
+	wchar_t *wide_char;
+    } string; 
+} XIMText;
+
+typedef struct _XIMPreeditDrawCallbackStruct {
+    int caret;		/* Cursor offset within pre-edit string */
+    int chg_first;	/* Starting change position */
+    int chg_length;	/* Length of the change in character count */
+    XIMText *text;
+} XIMPreeditDrawCallbackStruct;
+
+typedef enum {
+    XIMForwardChar, XIMBackwardChar,
+    XIMForwardWord, XIMBackwardWord,
+    XIMCaretUp, XIMCaretDown,
+    XIMNextLine, XIMPreviousLine,
+    XIMLineStart, XIMLineEnd, 
+    XIMAbsolutePosition,
+    XIMDontChange
+} XIMCaretDirection;
+
+typedef enum {
+    XIMIsInvisible,	/* Disable caret feedback */ 
+    XIMIsPrimary,	/* UI defined caret feedback */
+    XIMIsSecondary	/* UI defined caret feedback */
+} XIMCaretStyle;
+
+typedef struct _XIMPreeditCaretCallbackStruct {
+    int position;		 /* Caret offset within pre-edit string */
+    XIMCaretDirection direction; /* Caret moves direction */
+    XIMCaretStyle style;	 /* Feedback of the caret */
+} XIMPreeditCaretCallbackStruct;
+
+typedef enum {
+    XIMTextType,
+    XIMBitmapType
+} XIMStatusDataType;
+	
+typedef struct _XIMStatusDrawCallbackStruct {
+    XIMStatusDataType type;
+    union {
+	XIMText *text;
+	Pixmap  bitmap;
+    } data;
+} XIMStatusDrawCallbackStruct;
+
+_XFUNCPROTOBEGIN
+
+extern XFontStruct *XLoadQueryFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* name */
+#endif
+);
+
+extern XFontStruct *XQueryFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* font_ID */
+#endif
+);
+
+
+extern XTimeCoord *XGetMotionEvents(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Time		/* start */,
+    Time		/* stop */,
+    int*		/* nevents_return */
+#endif
+);
+
+extern XModifierKeymap *XDeleteModifiermapEntry(
+#if NeedFunctionPrototypes
+    XModifierKeymap*	/* modmap */,
+#if NeedWidePrototypes
+    unsigned int	/* keycode_entry */,
+#else
+    KeyCode		/* keycode_entry */,
+#endif
+    int			/* modifier */
+#endif
+);
+
+extern XModifierKeymap	*XGetModifierMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern XModifierKeymap	*XInsertModifiermapEntry(
+#if NeedFunctionPrototypes
+    XModifierKeymap*	/* modmap */,
+#if NeedWidePrototypes
+    unsigned int	/* keycode_entry */,
+#else
+    KeyCode		/* keycode_entry */,
+#endif
+    int			/* modifier */    
+#endif
+);
+
+extern XModifierKeymap *XNewModifiermap(
+#if NeedFunctionPrototypes
+    int			/* max_keys_per_mod */
+#endif
+);
+
+extern XImage *XCreateImage(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Visual*		/* visual */,
+    unsigned int	/* depth */,
+    int			/* format */,
+    int			/* offset */,
+    char*		/* data */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* bitmap_pad */,
+    int			/* bytes_per_line */
+#endif
+);
+extern XImage *XGetImage(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned long	/* plane_mask */,
+    int			/* format */
+#endif
+);
+extern XImage *XGetSubImage(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned long	/* plane_mask */,
+    int			/* format */,
+    XImage*		/* dest_image */,
+    int			/* dest_x */,
+    int			/* dest_y */
+#endif
+);
+
+/* 
+ * X function declarations.
+ */
+extern Display *XOpenDisplay(
+#if NeedFunctionPrototypes
+    _Xconst char*	/* display_name */
+#endif
+);
+
+extern void XrmInitialize(
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern char *XFetchBytes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* nbytes_return */
+#endif
+);
+extern char *XFetchBuffer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* nbytes_return */,
+    int			/* buffer */
+#endif
+);
+extern char *XGetAtomName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Atom		/* atom */
+#endif
+);
+extern char *XGetDefault(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* program */,
+    _Xconst char*	/* option */		  
+#endif
+);
+extern char *XDisplayName(
+#if NeedFunctionPrototypes
+    _Xconst char*	/* string */
+#endif
+);
+extern char *XKeysymToString(
+#if NeedFunctionPrototypes
+    KeySym		/* keysym */
+#endif
+);
+
+extern int (*XSynchronize(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Bool		/* onoff */
+#endif
+))();
+extern int (*XSetAfterFunction(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int (*) (
+#if NeedNestedPrototypes
+	     Display*	/* display */
+#endif
+            )		/* procedure */
+#endif
+))();
+extern Atom XInternAtom(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* atom_name */,
+    Bool		/* only_if_exists */		 
+#endif
+);
+extern Colormap XCopyColormapAndFree(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */
+#endif
+);
+extern Colormap XCreateColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Visual*		/* visual */,
+    int			/* alloc */			 
+#endif
+);
+extern Cursor XCreatePixmapCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Pixmap		/* source */,
+    Pixmap		/* mask */,
+    XColor*		/* foreground_color */,
+    XColor*		/* background_color */,
+    unsigned int	/* x */,
+    unsigned int	/* y */			   
+#endif
+);
+extern Cursor XCreateGlyphCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Font		/* source_font */,
+    Font		/* mask_font */,
+    unsigned int	/* source_char */,
+    unsigned int	/* mask_char */,
+    XColor*		/* foreground_color */,
+    XColor*		/* background_color */
+#endif
+);
+extern Cursor XCreateFontCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned int	/* shape */
+#endif
+);
+extern Font XLoadFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* name */
+#endif
+);
+extern GC XCreateGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    unsigned long	/* valuemask */,
+    XGCValues*		/* values */
+#endif
+);
+extern GContext XGContextFromGC(
+#if NeedFunctionPrototypes
+    GC			/* gc */
+#endif
+);
+extern void XFlushGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */
+#endif
+);
+extern Pixmap XCreatePixmap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int	/* depth */		        
+#endif
+);
+extern Pixmap XCreateBitmapFromData(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    _Xconst char*	/* data */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+extern Pixmap XCreatePixmapFromBitmapData(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    char*		/* data */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned long	/* fg */,
+    unsigned long	/* bg */,
+    unsigned int	/* depth */
+#endif
+);
+extern Window XCreateSimpleWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* parent */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int	/* border_width */,
+    unsigned long	/* border */,
+    unsigned long	/* background */
+#endif
+);
+extern Window XGetSelectionOwner(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Atom		/* selection */
+#endif
+);
+extern Window XCreateWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* parent */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int	/* border_width */,
+    int			/* depth */,
+    unsigned int	/* class */,
+    Visual*		/* visual */,
+    unsigned long	/* valuemask */,
+    XSetWindowAttributes*	/* attributes */
+#endif
+); 
+extern Colormap *XListInstalledColormaps(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int*		/* num_return */
+#endif
+);
+extern char **XListFonts(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* pattern */,
+    int			/* maxnames */,
+    int*		/* actual_count_return */
+#endif
+);
+extern char **XListFontsWithInfo(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* pattern */,
+    int			/* maxnames */,
+    int*		/* count_return */,
+    XFontStruct**	/* info_return */
+#endif
+);
+extern char **XGetFontPath(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* npaths_return */
+#endif
+);
+extern char **XListExtensions(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* nextensions_return */
+#endif
+);
+extern Atom *XListProperties(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int*		/* num_prop_return */
+#endif
+);
+extern XHostAddress *XListHosts(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* nhosts_return */,
+    Bool*		/* state_return */
+#endif
+);
+extern KeySym XKeycodeToKeysym(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+#if NeedWidePrototypes
+    unsigned int	/* keycode */,
+#else
+    KeyCode		/* keycode */,
+#endif
+    int			/* index */
+#endif
+);
+extern KeySym XLookupKeysym(
+#if NeedFunctionPrototypes
+    XKeyEvent*		/* key_event */,
+    int			/* index */
+#endif
+);
+extern KeySym *XGetKeyboardMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+#if NeedWidePrototypes
+    unsigned int	/* first_keycode */,
+#else
+    KeyCode		/* first_keycode */,
+#endif
+    int			/* keycode_count */,
+    int*		/* keysyms_per_keycode_return */
+#endif
+);
+extern KeySym XStringToKeysym(
+#if NeedFunctionPrototypes
+    _Xconst char*	/* string */
+#endif
+);
+extern long XMaxRequestSize(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern long XExtendedMaxRequestSize(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern char *XResourceManagerString(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern char *XScreenResourceString(
+#if NeedFunctionPrototypes
+	Screen*		/* screen */
+#endif
+);
+extern unsigned long XDisplayMotionBufferSize(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern VisualID XVisualIDFromVisual(
+#if NeedFunctionPrototypes
+    Visual*		/* visual */
+#endif
+);
+
+/* routines for dealing with extensions */
+
+extern XExtCodes *XInitExtension(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* name */
+#endif
+);
+
+extern XExtCodes *XAddExtension(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern XExtData *XFindOnExtensionList(
+#if NeedFunctionPrototypes
+    XExtData**		/* structure */,
+    int			/* number */
+#endif
+);
+extern XExtData **XEHeadOfExtensionList(
+#if NeedFunctionPrototypes
+    XEDataObject	/* object */
+#endif
+);
+
+/* these are routines for which there are also macros */
+extern Window XRootWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern Window XDefaultRootWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern Window XRootWindowOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern Visual *XDefaultVisual(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern Visual *XDefaultVisualOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern GC XDefaultGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern GC XDefaultGCOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern unsigned long XBlackPixel(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern unsigned long XWhitePixel(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern unsigned long XAllPlanes(
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+extern unsigned long XBlackPixelOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern unsigned long XWhitePixelOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern unsigned long XNextRequest(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern unsigned long XLastKnownRequestProcessed(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern char *XServerVendor(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern char *XDisplayString(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern Colormap XDefaultColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern Colormap XDefaultColormapOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern Display *XDisplayOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+extern Screen *XScreenOfDisplay(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+extern Screen *XDefaultScreenOfDisplay(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+extern long XEventMaskOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern int XScreenNumberOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+typedef int (*XErrorHandler) (	    /* WARNING, this type not in Xlib spec */
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XErrorEvent*	/* error_event */
+#endif
+);
+
+extern XErrorHandler XSetErrorHandler (
+#if NeedFunctionPrototypes
+    XErrorHandler	/* handler */
+#endif
+);
+
+
+typedef int (*XIOErrorHandler) (    /* WARNING, this type not in Xlib spec */
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern XIOErrorHandler XSetIOErrorHandler (
+#if NeedFunctionPrototypes
+    XIOErrorHandler	/* handler */
+#endif
+);
+
+
+extern XPixmapFormatValues *XListPixmapFormats(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* count_return */
+#endif
+);
+extern int *XListDepths(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */,
+    int*		/* count_return */
+#endif
+);
+
+/* ICCCM routines for things that don't require special include files; */
+/* other declarations are given in Xutil.h                             */
+extern Status XReconfigureWMWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* screen_number */,
+    unsigned int	/* mask */,
+    XWindowChanges*	/* changes */
+#endif
+);
+
+extern Status XGetWMProtocols(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom**		/* protocols_return */,
+    int*		/* count_return */
+#endif
+);
+extern Status XSetWMProtocols(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom*		/* protocols */,
+    int			/* count */
+#endif
+);
+extern Status XIconifyWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* screen_number */
+#endif
+);
+extern Status XWithdrawWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* screen_number */
+#endif
+);
+extern Status XGetCommand(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    char***		/* argv_return */,
+    int*		/* argc_return */
+#endif
+);
+extern Status XGetWMColormapWindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window**		/* windows_return */,
+    int*		/* count_return */
+#endif
+);
+extern Status XSetWMColormapWindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window*		/* colormap_windows */,
+    int			/* count */
+#endif
+);
+extern void XFreeStringList(
+#if NeedFunctionPrototypes
+    char**		/* list */
+#endif
+);
+extern void XSetTransientForHint(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window		/* prop_window */
+#endif
+);
+
+/* The following are given in alphabetical order */
+
+extern void XActivateScreenSaver(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XAddHost(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XHostAddress*	/* host */
+#endif
+);
+
+extern void XAddHosts(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XHostAddress*	/* hosts */,
+    int			/* num_hosts */    
+#endif
+);
+
+extern void XAddToExtensionList(
+#if NeedFunctionPrototypes
+    struct _XExtData**	/* structure */,
+    XExtData*		/* ext_data */
+#endif
+);
+
+extern void XAddToSaveSet(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern Status XAllocColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    XColor*		/* screen_in_out */
+#endif
+);
+
+extern Status XAllocColorCells(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    Bool	        /* contig */,
+    unsigned long*	/* plane_masks_return */,
+    unsigned int	/* nplanes */,
+    unsigned long*	/* pixels_return */,
+    unsigned int 	/* npixels */
+#endif
+);
+
+extern Status XAllocColorPlanes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    Bool		/* contig */,
+    unsigned long*	/* pixels_return */,
+    int			/* ncolors */,
+    int			/* nreds */,
+    int			/* ngreens */,
+    int			/* nblues */,
+    unsigned long*	/* rmask_return */,
+    unsigned long*	/* gmask_return */,
+    unsigned long*	/* bmask_return */
+#endif
+);
+
+extern Status XAllocNamedColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    _Xconst char*	/* color_name */,
+    XColor*		/* screen_def_return */,
+    XColor*		/* exact_def_return */
+#endif
+);
+
+extern void XAllowEvents(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* event_mode */,
+    Time		/* time */
+#endif
+);
+
+extern void XAutoRepeatOff(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XAutoRepeatOn(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XBell(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* percent */
+#endif
+);
+
+extern int XBitmapBitOrder(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XBitmapPad(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XBitmapUnit(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XCellsOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern void XChangeActivePointerGrab(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned int	/* event_mask */,
+    Cursor		/* cursor */,
+    Time		/* time */
+#endif
+);
+
+extern void XChangeGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long	/* valuemask */,
+    XGCValues*		/* values */
+#endif
+);
+
+extern void XChangeKeyboardControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned long	/* value_mask */,
+    XKeyboardControl*	/* values */
+#endif
+);
+
+extern void XChangeKeyboardMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* first_keycode */,
+    int			/* keysyms_per_keycode */,
+    KeySym*		/* keysyms */,
+    int			/* num_codes */
+#endif
+);
+
+extern void XChangePointerControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Bool		/* do_accel */,
+    Bool		/* do_threshold */,
+    int			/* accel_numerator */,
+    int			/* accel_denominator */,
+    int			/* threshold */
+#endif
+);
+
+extern void XChangeProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom		/* property */,
+    Atom		/* type */,
+    int			/* format */,
+    int			/* mode */,
+    _Xconst unsigned char*	/* data */,
+    int			/* nelements */
+#endif
+);
+
+extern void XChangeSaveSet(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* change_mode */
+#endif
+);
+
+extern void XChangeWindowAttributes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned long	/* valuemask */,
+    XSetWindowAttributes* /* attributes */
+#endif
+);
+
+extern Bool XCheckIfEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event_return */,
+    Bool (*) (
+#if NeedNestedPrototypes
+	       Display*			/* display */,
+               XEvent*			/* event */,
+               XPointer			/* arg */
+#endif
+             )		/* predicate */,
+    XPointer		/* arg */
+#endif
+);
+
+extern Bool XCheckMaskEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    long		/* event_mask */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern Bool XCheckTypedEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* event_type */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern Bool XCheckTypedWindowEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* event_type */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern Bool XCheckWindowEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    long		/* event_mask */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern void XCirculateSubwindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* direction */
+#endif
+);
+
+extern void XCirculateSubwindowsDown(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XCirculateSubwindowsUp(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XClearArea(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    Bool		/* exposures */
+#endif
+);
+
+extern void XClearWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XCloseDisplay(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XConfigureWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned int	/* value_mask */,
+    XWindowChanges*	/* values */		 
+#endif
+);
+
+extern int XConnectionNumber(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XConvertSelection(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Atom		/* selection */,
+    Atom 		/* target */,
+    Atom		/* property */,
+    Window		/* requestor */,
+    Time		/* time */
+#endif
+);
+
+extern void XCopyArea(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* src */,
+    Drawable		/* dest */,
+    GC			/* gc */,
+    int			/* src_x */,
+    int			/* src_y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* dest_x */,
+    int			/* dest_y */
+#endif
+);
+
+extern void XCopyGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* src */,
+    unsigned long	/* valuemask */,
+    GC			/* dest */
+#endif
+);
+
+extern void XCopyPlane(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* src */,
+    Drawable		/* dest */,
+    GC			/* gc */,
+    int			/* src_x */,
+    int			/* src_y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* dest_x */,
+    int			/* dest_y */,
+    unsigned long	/* plane */
+#endif
+);
+
+extern int XDefaultDepth(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern int XDefaultDepthOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern int XDefaultScreen(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XDefineCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Cursor		/* cursor */
+#endif
+);
+
+extern void XDeleteProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom		/* property */
+#endif
+);
+
+extern void XDestroyWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XDestroySubwindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern int XDoesBackingStore(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */    
+#endif
+);
+
+extern Bool XDoesSaveUnders(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern void XDisableAccessControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+
+extern int XDisplayCells(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern int XDisplayHeight(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern int XDisplayHeightMM(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern void XDisplayKeycodes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* min_keycodes_return */,
+    int*		/* max_keycodes_return */
+#endif
+);
+
+extern int XDisplayPlanes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern int XDisplayWidth(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern int XDisplayWidthMM(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */
+#endif
+);
+
+extern void XDrawArc(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* angle1 */,
+    int			/* angle2 */
+#endif
+);
+
+extern void XDrawArcs(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XArc*		/* arcs */,
+    int			/* narcs */
+#endif
+);
+
+extern void XDrawImageString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst char*	/* string */,
+    int			/* length */
+#endif
+);
+
+extern void XDrawImageString16(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst XChar2b*	/* string */,
+    int			/* length */
+#endif
+);
+
+extern void XDrawLine(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x1 */,
+    int			/* y1 */,
+    int			/* x2 */,
+    int			/* y2 */
+#endif
+);
+
+extern void XDrawLines(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XPoint*		/* points */,
+    int			/* npoints */,
+    int			/* mode */
+#endif
+);
+
+extern void XDrawPoint(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */
+#endif
+);
+
+extern void XDrawPoints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XPoint*		/* points */,
+    int			/* npoints */,
+    int			/* mode */
+#endif
+);
+
+extern void XDrawRectangle(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+
+extern void XDrawRectangles(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XRectangle*		/* rectangles */,
+    int			/* nrectangles */
+#endif
+);
+
+extern void XDrawSegments(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XSegment*		/* segments */,
+    int			/* nsegments */
+#endif
+);
+
+extern void XDrawString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst char*	/* string */,
+    int			/* length */
+#endif
+);
+
+extern void XDrawString16(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst XChar2b*	/* string */,
+    int			/* length */
+#endif
+);
+
+extern void XDrawText(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    XTextItem*		/* items */,
+    int			/* nitems */
+#endif
+);
+
+extern void XDrawText16(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    XTextItem16*	/* items */,
+    int			/* nitems */
+#endif
+);
+
+extern void XEnableAccessControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XEventsQueued(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* mode */
+#endif
+);
+
+extern Status XFetchName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    char**		/* window_name_return */
+#endif
+);
+
+extern void XFillArc(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* angle1 */,
+    int			/* angle2 */
+#endif
+);
+
+extern void XFillArcs(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XArc*		/* arcs */,
+    int			/* narcs */
+#endif
+);
+
+extern void XFillPolygon(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XPoint*		/* points */,
+    int			/* npoints */,
+    int			/* shape */,
+    int			/* mode */
+#endif
+);
+
+extern void XFillRectangle(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+
+extern void XFillRectangles(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XRectangle*		/* rectangles */,
+    int			/* nrectangles */
+#endif
+);
+
+extern void XFlush(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XForceScreenSaver(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* mode */
+#endif
+);
+
+extern void XFree(
+#if NeedFunctionPrototypes
+    void*		/* data */
+#endif
+);
+
+extern void XFreeColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */
+#endif
+);
+
+extern void XFreeColors(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    unsigned long*	/* pixels */,
+    int			/* npixels */,
+    unsigned long	/* planes */
+#endif
+);
+
+extern void XFreeCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Cursor		/* cursor */
+#endif
+);
+
+extern void XFreeExtensionList(
+#if NeedFunctionPrototypes
+    char**		/* list */    
+#endif
+);
+
+extern void XFreeFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XFontStruct*	/* font_struct */
+#endif
+);
+
+extern void XFreeFontInfo(
+#if NeedFunctionPrototypes
+    char**		/* names */,
+    XFontStruct*	/* free_info */,
+    int			/* actual_count */
+#endif
+);
+
+extern void XFreeFontNames(
+#if NeedFunctionPrototypes
+    char**		/* list */
+#endif
+);
+
+extern void XFreeFontPath(
+#if NeedFunctionPrototypes
+    char**		/* list */
+#endif
+);
+
+extern void XFreeGC(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */
+#endif
+);
+
+extern void XFreeModifiermap(
+#if NeedFunctionPrototypes
+    XModifierKeymap*	/* modmap */
+#endif
+);
+
+extern void XFreePixmap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Pixmap		/* pixmap */
+#endif
+);
+
+extern int XGeometry(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen */,
+    _Xconst char*	/* position */,
+    _Xconst char*	/* default_position */,
+    unsigned int	/* bwidth */,
+    unsigned int	/* fwidth */,
+    unsigned int	/* fheight */,
+    int			/* xadder */,
+    int			/* yadder */,
+    int*		/* x_return */,
+    int*		/* y_return */,
+    int*		/* width_return */,
+    int*		/* height_return */
+#endif
+);
+
+extern void XGetErrorDatabaseText(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* name */,
+    _Xconst char*	/* message */,
+    _Xconst char*	/* default_string */,
+    char*		/* buffer_return */,
+    int			/* length */
+#endif
+);
+
+extern void XGetErrorText(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* code */,
+    char*		/* buffer_return */,
+    int			/* length */
+#endif
+);
+
+extern Bool XGetFontProperty(
+#if NeedFunctionPrototypes
+    XFontStruct*	/* font_struct */,
+    Atom		/* atom */,
+    unsigned long*	/* value_return */
+#endif
+);
+
+extern Status XGetGCValues(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long	/* valuemask */,
+    XGCValues*		/* values_return */
+#endif
+);
+
+extern Status XGetGeometry(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    Window*		/* root_return */,
+    int*		/* x_return */,
+    int*		/* y_return */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */,
+    unsigned int*	/* border_width_return */,
+    unsigned int*	/* depth_return */
+#endif
+);
+
+extern Status XGetIconName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    char**		/* icon_name_return */
+#endif
+);
+
+extern void XGetInputFocus(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window*		/* focus_return */,
+    int*		/* revert_to_return */
+#endif
+);
+
+extern void XGetKeyboardControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XKeyboardState*	/* values_return */
+#endif
+);
+
+extern void XGetPointerControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* accel_numerator_return */,
+    int*		/* accel_denominator_return */,
+    int*		/* threshold_return */
+#endif
+);
+
+extern int XGetPointerMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned char*	/* map_return */,
+    int			/* nmap */
+#endif
+);
+
+extern void XGetScreenSaver(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int*		/* timeout_return */,
+    int*		/* interval_return */,
+    int*		/* prefer_blanking_return */,
+    int*		/* allow_exposures_return */
+#endif
+);
+
+extern Status XGetTransientForHint(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window*		/* prop_window_return */
+#endif
+);
+
+extern int XGetWindowProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom		/* property */,
+    long		/* long_offset */,
+    long		/* long_length */,
+    Bool		/* delete */,
+    Atom		/* req_type */,
+    Atom*		/* actual_type_return */,
+    int*		/* actual_format_return */,
+    unsigned long*	/* nitems_return */,
+    unsigned long*	/* bytes_after_return */,
+    unsigned char**	/* prop_return */
+#endif
+);
+
+extern Status XGetWindowAttributes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XWindowAttributes*	/* window_attributes_return */
+#endif
+);
+
+extern void XGrabButton(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned int	/* button */,
+    unsigned int	/* modifiers */,
+    Window		/* grab_window */,
+    Bool		/* owner_events */,
+    unsigned int	/* event_mask */,
+    int			/* pointer_mode */,
+    int			/* keyboard_mode */,
+    Window		/* confine_to */,
+    Cursor		/* cursor */
+#endif
+);
+
+extern void XGrabKey(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* keycode */,
+    unsigned int	/* modifiers */,
+    Window		/* grab_window */,
+    Bool		/* owner_events */,
+    int			/* pointer_mode */,
+    int			/* keyboard_mode */
+#endif
+);
+
+extern int XGrabKeyboard(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* grab_window */,
+    Bool		/* owner_events */,
+    int			/* pointer_mode */,
+    int			/* keyboard_mode */,
+    Time		/* time */
+#endif
+);
+
+extern int XGrabPointer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* grab_window */,
+    Bool		/* owner_events */,
+    unsigned int	/* event_mask */,
+    int			/* pointer_mode */,
+    int			/* keyboard_mode */,
+    Window		/* confine_to */,
+    Cursor		/* cursor */,
+    Time		/* time */
+#endif
+);
+
+extern void XGrabServer(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XHeightMMOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern int XHeightOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern void XIfEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event_return */,
+    Bool (*) (
+#if NeedNestedPrototypes
+	       Display*			/* display */,
+               XEvent*			/* event */,
+               XPointer			/* arg */
+#endif
+             )		/* predicate */,
+    XPointer		/* arg */
+#endif
+);
+
+extern int XImageByteOrder(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XInstallColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */
+#endif
+);
+
+extern KeyCode XKeysymToKeycode(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    KeySym		/* keysym */
+#endif
+);
+
+extern void XKillClient(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* resource */
+#endif
+);
+
+extern unsigned long XLastKnownRequestProcessed(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern Status XLookupColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    _Xconst char*	/* color_name */,
+    XColor*		/* exact_def_return */,
+    XColor*		/* screen_def_return */
+#endif
+);
+
+extern void XLowerWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XMapRaised(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XMapSubwindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XMapWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XMaskEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    long		/* event_mask */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern int XMaxCmapsOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern int XMinCmapsOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern void XMoveResizeWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+
+extern void XMoveWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    int			/* x */,
+    int			/* y */
+#endif
+);
+
+extern void XNextEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern void XNoOp(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern Status XParseColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    _Xconst char*	/* spec */,
+    XColor*		/* exact_def_return */
+#endif
+);
+
+extern int XParseGeometry(
+#if NeedFunctionPrototypes
+    _Xconst char*	/* parsestring */,
+    int*		/* x_return */,
+    int*		/* y_return */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */
+#endif
+);
+
+extern void XPeekEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern void XPeekIfEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event_return */,
+    Bool (*) (
+#if NeedNestedPrototypes
+	       Display*		/* display */,
+               XEvent*		/* event */,
+               XPointer		/* arg */
+#endif
+             )		/* predicate */,
+    XPointer		/* arg */
+#endif
+);
+
+extern int XPending(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XPlanesOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+    
+#endif
+);
+
+extern int XProtocolRevision(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern int XProtocolVersion(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+
+extern void XPutBackEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XEvent*		/* event */
+#endif
+);
+
+extern void XPutImage(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    XImage*		/* image */,
+    int			/* src_x */,
+    int			/* src_y */,
+    int			/* dest_x */,
+    int			/* dest_y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */	  
+#endif
+);
+
+extern int XQLength(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern Status XQueryBestCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    unsigned int        /* width */,
+    unsigned int	/* height */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */
+#endif
+);
+
+extern Status XQueryBestSize(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* class */,
+    Drawable		/* which_screen */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */
+#endif
+);
+
+extern Status XQueryBestStipple(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* which_screen */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */
+#endif
+);
+
+extern Status XQueryBestTile(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* which_screen */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */
+#endif
+);
+
+extern void XQueryColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    XColor*		/* def_in_out */
+#endif
+);
+
+extern void XQueryColors(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    XColor*		/* defs_in_out */,
+    int			/* ncolors */
+#endif
+);
+
+extern Bool XQueryExtension(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* name */,
+    int*		/* major_opcode_return */,
+    int*		/* first_event_return */,
+    int*		/* first_error_return */
+#endif
+);
+
+extern void XQueryKeymap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    char [32]		/* keys_return */
+#endif
+);
+
+extern Bool XQueryPointer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window*		/* root_return */,
+    Window*		/* child_return */,
+    int*		/* root_x_return */,
+    int*		/* root_y_return */,
+    int*		/* win_x_return */,
+    int*		/* win_y_return */,
+    unsigned int*       /* mask_return */
+#endif
+);
+
+extern void XQueryTextExtents(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* font_ID */,
+    _Xconst char*	/* string */,
+    int			/* nchars */,
+    int*		/* direction_return */,
+    int*		/* font_ascent_return */,
+    int*		/* font_descent_return */,
+    XCharStruct*	/* overall_return */    
+#endif
+);
+
+extern void XQueryTextExtents16(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* font_ID */,
+    _Xconst XChar2b*	/* string */,
+    int			/* nchars */,
+    int*		/* direction_return */,
+    int*		/* font_ascent_return */,
+    int*		/* font_descent_return */,
+    XCharStruct*	/* overall_return */
+#endif
+);
+
+extern Status XQueryTree(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window*		/* root_return */,
+    Window*		/* parent_return */,
+    Window**		/* children_return */,
+    unsigned int*	/* nchildren_return */
+#endif
+);
+
+extern void XRaiseWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern int XReadBitmapFile(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable 		/* d */,
+    _Xconst char*	/* filename */,
+    unsigned int*	/* width_return */,
+    unsigned int*	/* height_return */,
+    Pixmap*		/* bitmap_return */,
+    int*		/* x_hot_return */,
+    int*		/* y_hot_return */
+#endif
+);
+
+extern void XRebindKeysym(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    KeySym		/* keysym */,
+    KeySym*		/* list */,
+    int			/* mod_count */,
+    _Xconst unsigned char*	/* string */,
+    int			/* bytes_string */
+#endif
+);
+
+extern void XRecolorCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Cursor		/* cursor */,
+    XColor*		/* foreground_color */,
+    XColor*		/* background_color */
+#endif
+);
+
+extern void XRefreshKeyboardMapping(
+#if NeedFunctionPrototypes
+    XMappingEvent*	/* event_map */    
+#endif
+);
+
+extern void XRemoveFromSaveSet(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XRemoveHost(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XHostAddress*	/* host */
+#endif
+);
+
+extern void XRemoveHosts(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XHostAddress*	/* hosts */,
+    int			/* num_hosts */
+#endif
+);
+
+extern void XReparentWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Window		/* parent */,
+    int			/* x */,
+    int			/* y */
+#endif
+);
+
+extern void XResetScreenSaver(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XResizeWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+
+extern void XRestackWindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window*		/* windows */,
+    int			/* nwindows */
+#endif
+);
+
+extern void XRotateBuffers(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* rotate */
+#endif
+);
+
+extern void XRotateWindowProperties(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Atom*		/* properties */,
+    int			/* num_prop */,
+    int			/* npositions */
+#endif
+);
+
+extern int XScreenCount(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XSelectInput(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    long		/* event_mask */
+#endif
+);
+
+extern Status XSendEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Bool		/* propagate */,
+    long		/* event_mask */,
+    XEvent*		/* event_send */
+#endif
+);
+
+extern void XSetAccessControl(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* mode */
+#endif
+);
+
+extern void XSetArcMode(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* arc_mode */
+#endif
+);
+
+extern void XSetBackground(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long	/* background */
+#endif
+);
+
+extern void XSetClipMask(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Pixmap		/* pixmap */
+#endif
+);
+
+extern void XSetClipOrigin(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* clip_x_origin */,
+    int			/* clip_y_origin */
+#endif
+);
+
+extern void XSetClipRectangles(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* clip_x_origin */,
+    int			/* clip_y_origin */,
+    XRectangle*		/* rectangles */,
+    int			/* n */,
+    int			/* ordering */
+#endif
+);
+
+extern void XSetCloseDownMode(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* close_mode */
+#endif
+);
+
+extern void XSetCommand(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    char**		/* argv */,
+    int			/* argc */
+#endif
+);
+
+extern void XSetDashes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* dash_offset */,
+    _Xconst char*	/* dash_list */,
+    int			/* n */
+#endif
+);
+
+extern void XSetFillRule(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* fill_rule */
+#endif
+);
+
+extern void XSetFillStyle(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* fill_style */
+#endif
+);
+
+extern void XSetFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Font		/* font */
+#endif
+);
+
+extern void XSetFontPath(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    char**		/* directories */,
+    int			/* ndirs */	     
+#endif
+);
+
+extern void XSetForeground(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long	/* foreground */
+#endif
+);
+
+extern void XSetFunction(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* function */
+#endif
+);
+
+extern void XSetGraphicsExposures(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Bool		/* graphics_exposures */
+#endif
+);
+
+extern void XSetIconName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    _Xconst char*	/* icon_name */
+#endif
+);
+
+extern void XSetInputFocus(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* focus */,
+    int			/* revert_to */,
+    Time		/* time */
+#endif
+);
+
+extern void XSetLineAttributes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned int	/* line_width */,
+    int			/* line_style */,
+    int			/* cap_style */,
+    int			/* join_style */
+#endif
+);
+
+extern int XSetModifierMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XModifierKeymap*	/* modmap */
+#endif
+);
+
+extern void XSetPlaneMask(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long	/* plane_mask */
+#endif
+);
+
+extern int XSetPointerMapping(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst unsigned char*	/* map */,
+    int			/* nmap */
+#endif
+);
+
+extern void XSetScreenSaver(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* timeout */,
+    int			/* interval */,
+    int			/* prefer_blanking */,
+    int			/* allow_exposures */
+#endif
+);
+
+extern void XSetSelectionOwner(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Atom	        /* selection */,
+    Window		/* owner */,
+    Time		/* time */
+#endif
+);
+
+extern void XSetState(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    unsigned long 	/* foreground */,
+    unsigned long	/* background */,
+    int			/* function */,
+    unsigned long	/* plane_mask */
+#endif
+);
+
+extern void XSetStipple(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Pixmap		/* stipple */
+#endif
+);
+
+extern void XSetSubwindowMode(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* subwindow_mode */
+#endif
+);
+
+extern void XSetTSOrigin(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    int			/* ts_x_origin */,
+    int			/* ts_y_origin */
+#endif
+);
+
+extern void XSetTile(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Pixmap		/* tile */
+#endif
+);
+
+extern void XSetWindowBackground(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned long	/* background_pixel */
+#endif
+);
+
+extern void XSetWindowBackgroundPixmap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Pixmap		/* background_pixmap */
+#endif
+);
+
+extern void XSetWindowBorder(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned long	/* border_pixel */
+#endif
+);
+
+extern void XSetWindowBorderPixmap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Pixmap		/* border_pixmap */
+#endif
+);
+
+extern void XSetWindowBorderWidth(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    unsigned int	/* width */
+#endif
+);
+
+extern void XSetWindowColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    Colormap		/* colormap */
+#endif
+);
+
+extern void XStoreBuffer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* bytes */,
+    int			/* nbytes */,
+    int			/* buffer */
+#endif
+);
+
+extern void XStoreBytes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* bytes */,
+    int			/* nbytes */
+#endif
+);
+
+extern void XStoreColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    XColor*		/* color */
+#endif
+);
+
+extern void XStoreColors(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    XColor*		/* color */,
+    int			/* ncolors */
+#endif
+);
+
+extern void XStoreName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    _Xconst char*	/* window_name */
+#endif
+);
+
+extern void XStoreNamedColor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */,
+    _Xconst char*	/* color */,
+    unsigned long	/* pixel */,
+    int			/* flags */
+#endif
+);
+
+extern void XSync(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Bool		/* discard */
+#endif
+);
+
+extern void XTextExtents(
+#if NeedFunctionPrototypes
+    XFontStruct*	/* font_struct */,
+    _Xconst char*	/* string */,
+    int			/* nchars */,
+    int*		/* direction_return */,
+    int*		/* font_ascent_return */,
+    int*		/* font_descent_return */,
+    XCharStruct*	/* overall_return */
+#endif
+);
+
+extern void XTextExtents16(
+#if NeedFunctionPrototypes
+    XFontStruct*	/* font_struct */,
+    _Xconst XChar2b*	/* string */,
+    int			/* nchars */,
+    int*		/* direction_return */,
+    int*		/* font_ascent_return */,
+    int*		/* font_descent_return */,
+    XCharStruct*	/* overall_return */
+#endif
+);
+
+extern int XTextWidth(
+#if NeedFunctionPrototypes
+    XFontStruct*	/* font_struct */,
+    _Xconst char*	/* string */,
+    int			/* count */
+#endif
+);
+
+extern int XTextWidth16(
+#if NeedFunctionPrototypes
+    XFontStruct*	/* font_struct */,
+    _Xconst XChar2b*	/* string */,
+    int			/* count */
+#endif
+);
+
+extern Bool XTranslateCoordinates(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* src_w */,
+    Window		/* dest_w */,
+    int			/* src_x */,
+    int			/* src_y */,
+    int*		/* dest_x_return */,
+    int*		/* dest_y_return */,
+    Window*		/* child_return */
+#endif
+);
+
+extern void XUndefineCursor(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XUngrabButton(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    unsigned int	/* button */,
+    unsigned int	/* modifiers */,
+    Window		/* grab_window */
+#endif
+);
+
+extern void XUngrabKey(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* keycode */,
+    unsigned int	/* modifiers */,
+    Window		/* grab_window */
+#endif
+);
+
+extern void XUngrabKeyboard(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Time		/* time */
+#endif
+);
+
+extern void XUngrabPointer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Time		/* time */
+#endif
+);
+
+extern void XUngrabServer(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XUninstallColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Colormap		/* colormap */
+#endif
+);
+
+extern void XUnloadFont(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Font		/* font */
+#endif
+);
+
+extern void XUnmapSubwindows(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern void XUnmapWindow(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */
+#endif
+);
+
+extern int XVendorRelease(
+#if NeedFunctionPrototypes
+    Display*		/* display */
+#endif
+);
+
+extern void XWarpPointer(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* src_w */,
+    Window		/* dest_w */,
+    int			/* src_x */,
+    int			/* src_y */,
+    unsigned int	/* src_width */,
+    unsigned int	/* src_height */,
+    int			/* dest_x */,
+    int			/* dest_y */	     
+#endif
+);
+
+extern int XWidthMMOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern int XWidthOfScreen(
+#if NeedFunctionPrototypes
+    Screen*		/* screen */
+#endif
+);
+
+extern void XWindowEvent(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    long		/* event_mask */,
+    XEvent*		/* event_return */
+#endif
+);
+
+extern int XWriteBitmapFile(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* filename */,
+    Pixmap		/* bitmap */,
+    unsigned int	/* width */,
+    unsigned int	/* height */,
+    int			/* x_hot */,
+    int			/* y_hot */		     
+#endif
+);
+
+extern Bool XSupportsLocale(
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern char *XSetLocaleModifiers(
+#if NeedFunctionPrototypes
+    _Xconst char*	/* modifier_list */
+#endif
+);
+
+extern XFontSet XCreateFontSet(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    _Xconst char*	/* base_font_name_list */,
+    char***		/* missing_charset_list */,
+    int*		/* missing_charset_count */,
+    char**		/* def_string */
+#endif
+);
+
+extern void XFreeFontSet(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XFontSet		/* font_set */
+#endif
+);
+
+extern int XFontsOfFontSet(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    XFontStruct***	/* font_struct_list */,
+    char***		/* font_name_list */
+#endif
+);
+
+extern char *XBaseFontNameListOfFontSet(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */
+#endif
+);
+
+extern char *XLocaleOfFontSet(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */
+#endif
+);
+
+extern Bool XContextDependentDrawing(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */
+#endif
+);
+
+extern XFontSetExtents *XExtentsOfFontSet(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */
+#endif
+);
+
+extern int XmbTextEscapement(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    _Xconst char*	/* text */,
+    int			/* bytes_text */
+#endif
+);
+
+extern int XwcTextEscapement(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    wchar_t*		/* text */,
+    int			/* num_wchars */
+#endif
+);
+
+extern int XmbTextExtents(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    _Xconst char*	/* text */,
+    int			/* bytes_text */,
+    XRectangle*		/* overall_ink_return */,
+    XRectangle*		/* overall_logical_return */
+#endif
+);
+
+extern int XwcTextExtents(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    wchar_t*		/* text */,
+    int			/* num_wchars */,
+    XRectangle*		/* overall_ink_return */,
+    XRectangle*		/* overall_logical_return */
+#endif
+);
+
+extern Status XmbTextPerCharExtents(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    _Xconst char*	/* text */,
+    int			/* bytes_text */,
+    XRectangle*		/* ink_extents_buffer */,
+    XRectangle*		/* logical_extents_buffer */,
+    int			/* buffer_size */,
+    int*		/* num_chars */,
+    XRectangle*		/* overall_ink_return */,
+    XRectangle*		/* overall_logical_return */
+#endif
+);
+
+extern Status XwcTextPerCharExtents(
+#if NeedFunctionPrototypes
+    XFontSet		/* font_set */,
+    wchar_t*		/* text */,
+    int			/* num_wchars */,
+    XRectangle*		/* ink_extents_buffer */,
+    XRectangle*		/* logical_extents_buffer */,
+    int			/* buffer_size */,
+    int*		/* num_chars */,
+    XRectangle*		/* overall_ink_return */,
+    XRectangle*		/* overall_logical_return */
+#endif
+);
+
+extern void XmbDrawText(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    XmbTextItem*	/* text_items */,
+    int			/* nitems */
+#endif
+);
+
+extern void XwcDrawText(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    XwcTextItem*	/* text_items */,
+    int			/* nitems */
+#endif
+);
+
+extern void XmbDrawString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    XFontSet		/* font_set */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst char*	/* text */,
+    int			/* bytes_text */
+#endif
+);
+
+extern void XwcDrawString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    XFontSet		/* font_set */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    wchar_t*		/* text */,
+    int			/* num_wchars */
+#endif
+);
+
+extern void XmbDrawImageString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    XFontSet		/* font_set */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    _Xconst char*	/* text */,
+    int			/* bytes_text */
+#endif
+);
+
+extern void XwcDrawImageString(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Drawable		/* d */,
+    XFontSet		/* font_set */,
+    GC			/* gc */,
+    int			/* x */,
+    int			/* y */,
+    wchar_t*		/* text */,
+    int			/* num_wchars */
+#endif
+);
+
+extern XIM XOpenIM(
+#if NeedFunctionPrototypes
+    Display*			/* dpy */,
+    struct _XrmHashBucketRec*	/* rdb */,
+    char*			/* res_name */,
+    char*			/* res_class */
+#endif
+);
+
+extern Status XCloseIM(
+#if NeedFunctionPrototypes
+    XIM /* im */
+#endif
+);
+
+extern char *XGetIMValues(
+#if NeedVarargsPrototypes
+    XIM /* im */, ...
+#endif
+);
+
+extern Display *XDisplayOfIM(
+#if NeedFunctionPrototypes
+    XIM /* im */
+#endif
+);
+
+extern char *XLocaleOfIM(
+#if NeedFunctionPrototypes
+    XIM /* im*/
+#endif
+);
+
+extern XIC XCreateIC(
+#if NeedVarargsPrototypes
+    XIM /* im */, ...
+#endif
+);
+
+extern void XDestroyIC(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern void XSetICFocus(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern void XUnsetICFocus(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern wchar_t *XwcResetIC(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern char *XmbResetIC(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern char *XSetICValues(
+#if NeedVarargsPrototypes
+    XIC /* ic */, ...
+#endif
+);
+
+extern char *XGetICValues(
+#if NeedVarargsPrototypes
+    XIC /* ic */, ...
+#endif
+);
+
+extern XIM XIMOfIC(
+#if NeedFunctionPrototypes
+    XIC /* ic */
+#endif
+);
+
+extern Bool XFilterEvent(
+#if NeedFunctionPrototypes
+    XEvent*	/* event */,
+    Window	/* window */
+#endif
+);
+
+extern int XmbLookupString(
+#if NeedFunctionPrototypes
+    XIC			/* ic */,
+    XKeyPressedEvent*	/* event */,
+    char*		/* buffer_return */,
+    int			/* bytes_buffer */,
+    KeySym*		/* keysym_return */,
+    Status*		/* status_return */
+#endif
+);
+
+extern int XwcLookupString(
+#if NeedFunctionPrototypes
+    XIC			/* ic */,
+    XKeyPressedEvent*	/* event */,
+    wchar_t*		/* buffer_return */,
+    int			/* wchars_buffer */,
+    KeySym*		/* keysym_return */,
+    Status*		/* status_return */
+#endif
+);
+
+extern XVaNestedList XVaCreateNestedList(
+#if NeedVarargsPrototypes
+    int /*unused*/, ...
+#endif
+);
+
+_XFUNCPROTOEND
+
+#ifdef MAC_TCL
+#   undef Cursor
+#endif
+
+#endif /* _XLIB_H_ */
diff --git a/Tk/xlib/X11/Xutil.h b/Tk/xlib/X11/Xutil.h
new file mode 100644
index 0000000..6332850
--- /dev/null
+++ b/Tk/xlib/X11/Xutil.h
@@ -0,0 +1,879 @@
+/* $XConsortium: Xutil.h,v 11.73 91/07/30 16:21:37 rws Exp $ */
+
+/***********************************************************
+Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
+and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in 
+supporting documentation, and that the names of Digital or MIT not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.  
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+#ifndef _XUTIL_H_
+#define _XUTIL_H_
+
+/* You must include <X11/Xlib.h> before including this file */
+
+#ifdef MAC_TCL
+#   define Region XRegion
+#endif
+
+/* 
+ * Bitmask returned by XParseGeometry().  Each bit tells if the corresponding
+ * value (x, y, width, height) was found in the parsed string.
+ */
+#define NoValue		0x0000
+#define XValue  	0x0001
+#define YValue		0x0002
+#define WidthValue  	0x0004
+#define HeightValue  	0x0008
+#define AllValues 	0x000F
+#define XNegative 	0x0010
+#define YNegative 	0x0020
+
+/*
+ * new version containing base_width, base_height, and win_gravity fields;
+ * used with WM_NORMAL_HINTS.
+ */
+typedef struct {
+    	long flags;	/* marks which fields in this structure are defined */
+	int x, y;		/* obsolete for new window mgrs, but clients */
+	int width, height;	/* should set so old wm's don't mess up */
+	int min_width, min_height;
+	int max_width, max_height;
+    	int width_inc, height_inc;
+	struct {
+		int x;	/* numerator */
+		int y;	/* denominator */
+	} min_aspect, max_aspect;
+	int base_width, base_height;		/* added by ICCCM version 1 */
+	int win_gravity;			/* added by ICCCM version 1 */
+} XSizeHints;
+
+/*
+ * The next block of definitions are for window manager properties that
+ * clients and applications use for communication.
+ */
+
+/* flags argument in size hints */
+#define USPosition	(1L << 0) /* user specified x, y */
+#define USSize		(1L << 1) /* user specified width, height */
+
+#define PPosition	(1L << 2) /* program specified position */
+#define PSize		(1L << 3) /* program specified size */
+#define PMinSize	(1L << 4) /* program specified minimum size */
+#define PMaxSize	(1L << 5) /* program specified maximum size */
+#define PResizeInc	(1L << 6) /* program specified resize increments */
+#define PAspect		(1L << 7) /* program specified min and max aspect ratios */
+#define PBaseSize	(1L << 8) /* program specified base for incrementing */
+#define PWinGravity	(1L << 9) /* program specified window gravity */
+
+/* obsolete */
+#define PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect)
+
+
+
+typedef struct {
+	long flags;	/* marks which fields in this structure are defined */
+	Bool input;	/* does this application rely on the window manager to
+			get keyboard input? */
+	int initial_state;	/* see below */
+	Pixmap icon_pixmap;	/* pixmap to be used as icon */
+	Window icon_window; 	/* window to be used as icon */
+	int icon_x, icon_y; 	/* initial position of icon */
+	Pixmap icon_mask;	/* icon mask bitmap */
+	XID window_group;	/* id of related window group */
+	/* this structure may be extended in the future */
+} XWMHints;
+
+/* definition for flags of XWMHints */
+
+#define InputHint 		(1L << 0)
+#define StateHint 		(1L << 1)
+#define IconPixmapHint		(1L << 2)
+#define IconWindowHint		(1L << 3)
+#define IconPositionHint 	(1L << 4)
+#define IconMaskHint		(1L << 5)
+#define WindowGroupHint		(1L << 6)
+#define AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint| \
+IconPositionHint|IconMaskHint|WindowGroupHint)
+
+/* definitions for initial window state */
+#define WithdrawnState 0	/* for windows that are not mapped */
+#define NormalState 1	/* most applications want to start this way */
+#define IconicState 3	/* application wants to start as an icon */
+
+/*
+ * Obsolete states no longer defined by ICCCM
+ */
+#define DontCareState 0	/* don't know or care */
+#define ZoomState 2	/* application wants to start zoomed */
+#define InactiveState 4	/* application believes it is seldom used; */
+			/* some wm's may put it on inactive menu */
+
+
+/*
+ * new structure for manipulating TEXT properties; used with WM_NAME, 
+ * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND.
+ */
+typedef struct {
+    unsigned char *value;		/* same as Property routines */
+    Atom encoding;			/* prop type */
+    int format;				/* prop data format: 8, 16, or 32 */
+    unsigned long nitems;		/* number of data items in value */
+} XTextProperty;
+
+#define XNoMemory -1
+#define XLocaleNotSupported -2
+#define XConverterNotFound -3
+
+typedef enum {
+    XStringStyle,		/* STRING */
+    XCompoundTextStyle,		/* COMPOUND_TEXT */
+    XTextStyle,			/* text in owner's encoding (current locale)*/
+    XStdICCTextStyle		/* STRING, else COMPOUND_TEXT */
+} XICCEncodingStyle;
+
+typedef struct {
+	int min_width, min_height;
+	int max_width, max_height;
+	int width_inc, height_inc;
+} XIconSize;
+
+typedef struct {
+	char *res_name;
+	char *res_class;
+} XClassHint;
+
+/*
+ * These macros are used to give some sugar to the image routines so that
+ * naive people are more comfortable with them.
+ */
+#define XDestroyImage(ximage) \
+	((*((ximage)->f.destroy_image))((ximage)))
+#define XGetPixel(ximage, x, y) \
+	((*((ximage)->f.get_pixel))((ximage), (x), (y)))
+#define XPutPixel(ximage, x, y, pixel) \
+	((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel)))
+#define XSubImage(ximage, x, y, width, height)  \
+	((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height)))
+#define XAddPixel(ximage, value) \
+	((*((ximage)->f.add_pixel))((ximage), (value)))
+
+/*
+ * Compose sequence status structure, used in calling XLookupString.
+ */
+typedef struct _XComposeStatus {
+    XPointer compose_ptr;	/* state table pointer */
+    int chars_matched;		/* match state */
+} XComposeStatus;
+
+/*
+ * Keysym macros, used on Keysyms to test for classes of symbols
+ */
+#define IsKeypadKey(keysym) \
+  (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal))
+
+#define IsCursorKey(keysym) \
+  (((unsigned)(keysym) >= XK_Home)     && ((unsigned)(keysym) <  XK_Select))
+
+#define IsPFKey(keysym) \
+  (((unsigned)(keysym) >= XK_KP_F1)     && ((unsigned)(keysym) <= XK_KP_F4))
+
+#define IsFunctionKey(keysym) \
+  (((unsigned)(keysym) >= XK_F1)       && ((unsigned)(keysym) <= XK_F35))
+
+#define IsMiscFunctionKey(keysym) \
+  (((unsigned)(keysym) >= XK_Select)   && ((unsigned)(keysym) <= XK_Break))
+
+#define IsModifierKey(keysym) \
+  ((((unsigned)(keysym) >= XK_Shift_L) && ((unsigned)(keysym) <= XK_Hyper_R)) \
+   || ((unsigned)(keysym) == XK_Mode_switch) \
+   || ((unsigned)(keysym) == XK_Num_Lock))
+/*
+ * opaque reference to Region data type 
+ */
+typedef struct _XRegion *Region; 
+
+/* Return values from XRectInRegion() */
+ 
+#define RectangleOut 0
+#define RectangleIn  1
+#define RectanglePart 2
+ 
+
+/*
+ * Information used by the visual utility routines to find desired visual
+ * type from the many visuals a display may support.
+ */
+
+typedef struct {
+  Visual *visual;
+  VisualID visualid;
+  int screen;
+  int depth;
+#if defined(__cplusplus) || defined(c_plusplus)
+  int c_class;					/* C++ */
+#else
+  int class;
+#endif
+  unsigned long red_mask;
+  unsigned long green_mask;
+  unsigned long blue_mask;
+  int colormap_size;
+  int bits_per_rgb;
+} XVisualInfo;
+
+#define VisualNoMask		0x0
+#define VisualIDMask 		0x1
+#define VisualScreenMask	0x2
+#define VisualDepthMask		0x4
+#define VisualClassMask		0x8
+#define VisualRedMaskMask	0x10
+#define VisualGreenMaskMask	0x20
+#define VisualBlueMaskMask	0x40
+#define VisualColormapSizeMask	0x80
+#define VisualBitsPerRGBMask	0x100
+#define VisualAllMask		0x1FF
+
+/*
+ * This defines a window manager property that clients may use to
+ * share standard color maps of type RGB_COLOR_MAP:
+ */
+typedef struct {
+	Colormap colormap;
+	unsigned long red_max;
+	unsigned long red_mult;
+	unsigned long green_max;
+	unsigned long green_mult;
+	unsigned long blue_max;
+	unsigned long blue_mult;
+	unsigned long base_pixel;
+	VisualID visualid;		/* added by ICCCM version 1 */
+	XID killid;			/* added by ICCCM version 1 */
+} XStandardColormap;
+
+#define ReleaseByFreeingColormap ((XID) 1L)  /* for killid field above */
+
+
+/*
+ * return codes for XReadBitmapFile and XWriteBitmapFile
+ */
+#define BitmapSuccess		0
+#define BitmapOpenFailed 	1
+#define BitmapFileInvalid 	2
+#define BitmapNoMemory		3
+
+/****************************************************************
+ *
+ * Context Management
+ *
+ ****************************************************************/
+
+
+/* Associative lookup table return codes */
+
+#define XCSUCCESS 0	/* No error. */
+#define XCNOMEM   1    /* Out of memory */
+#define XCNOENT   2    /* No entry in table */
+
+typedef int XContext;
+
+#define XUniqueContext()       ((XContext) XrmUniqueQuark())
+#define XStringToContext(string)   ((XContext) XrmStringToQuark(string))
+
+_XFUNCPROTOBEGIN
+
+/* The following declarations are alphabetized. */
+
+extern XClassHint *XAllocClassHint (
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern XIconSize *XAllocIconSize (
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern XSizeHints *XAllocSizeHints (
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern XStandardColormap *XAllocStandardColormap (
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern XWMHints *XAllocWMHints (
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern void XClipBox(
+#if NeedFunctionPrototypes
+    Region		/* r */,
+    XRectangle*		/* rect_return */
+#endif
+);
+
+extern Region XCreateRegion(
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern char *XDefaultString(
+#if NeedFunctionPrototypes
+    void
+#endif
+);
+
+extern int XDeleteContext(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* rid */,
+    XContext		/* context */
+#endif
+);
+
+extern void XDestroyRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */
+#endif
+);
+
+extern void XEmptyRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */
+#endif
+);
+
+extern void XEqualRegion(
+#if NeedFunctionPrototypes
+    Region		/* r1 */,
+    Region		/* r2 */
+#endif
+);
+
+extern int XFindContext(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* rid */,
+    XContext		/* context */,
+    XPointer*		/* data_return */
+#endif
+);
+
+extern Status XGetClassHint(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XClassHint*		/* class_hints_return */
+#endif
+);
+
+extern Status XGetIconSizes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XIconSize**		/* size_list_return */,
+    int*		/* count_return */
+#endif
+);
+
+extern Status XGetNormalHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints_return */
+#endif
+);
+
+extern Status XGetRGBColormaps(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XStandardColormap** /* stdcmap_return */,
+    int*		/* count_return */,
+    Atom		/* property */
+#endif
+);
+
+extern Status XGetSizeHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints_return */,
+    Atom		/* property */
+#endif
+);
+
+extern Status XGetStandardColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XStandardColormap*	/* colormap_return */,
+    Atom		/* property */			    
+#endif
+);
+
+extern Status XGetTextProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* window */,
+    XTextProperty*	/* text_prop_return */,
+    Atom		/* property */
+#endif
+);
+
+extern XVisualInfo *XGetVisualInfo(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    long		/* vinfo_mask */,
+    XVisualInfo*	/* vinfo_template */,
+    int*		/* nitems_return */
+#endif
+);
+
+extern Status XGetWMClientMachine(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern XWMHints *XGetWMHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */		      
+#endif
+);
+
+extern Status XGetWMIconName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern Status XGetWMName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern Status XGetWMNormalHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints_return */,
+    long*		/* supplied_return */ 
+#endif
+);
+
+extern Status XGetWMSizeHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints_return */,
+    long*		/* supplied_return */,
+    Atom		/* property */
+#endif
+);
+
+extern Status XGetZoomHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* zhints_return */
+#endif
+);
+
+extern void XIntersectRegion(
+#if NeedFunctionPrototypes
+    Region		/* sra */,
+    Region		/* srb */,
+    Region		/* dr_return */
+#endif
+);
+
+extern int XLookupString(
+#if NeedFunctionPrototypes
+    XKeyEvent*		/* event_struct */,
+    char*		/* buffer_return */,
+    int			/* bytes_buffer */,
+    KeySym*		/* keysym_return */,
+    XComposeStatus*	/* status_in_out */
+#endif
+);
+
+extern Status XMatchVisualInfo(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen */,
+    int			/* depth */,
+    int			/* class */,
+    XVisualInfo*	/* vinfo_return */
+#endif
+);
+
+extern void XOffsetRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */,
+    int			/* dx */,
+    int			/* dy */
+#endif
+);
+
+extern Bool XPointInRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */,
+    int			/* x */,
+    int			/* y */
+#endif
+);
+
+extern Region XPolygonRegion(
+#if NeedFunctionPrototypes
+    XPoint*		/* points */,
+    int			/* n */,
+    int			/* fill_rule */
+#endif
+);
+
+extern int XRectInRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */,
+    int			/* x */,
+    int			/* y */,
+    unsigned int	/* width */,
+    unsigned int	/* height */
+#endif
+);
+
+extern int XSaveContext(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XID			/* rid */,
+    XContext		/* context */,
+    _Xconst char*	/* data */
+#endif
+);
+
+extern void XSetClassHint(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XClassHint*		/* class_hints */
+#endif
+);
+
+extern void XSetIconSizes(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XIconSize*		/* size_list */,
+    int			/* count */    
+#endif
+);
+
+extern void XSetNormalHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints */
+#endif
+);
+
+extern void XSetRGBColormaps(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XStandardColormap*	/* stdcmaps */,
+    int			/* count */,
+    Atom		/* property */
+#endif
+);
+
+extern void XSetSizeHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints */,
+    Atom		/* property */
+#endif
+);
+
+extern void XSetStandardProperties(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    _Xconst char*	/* window_name */,
+    _Xconst char*	/* icon_name */,
+    Pixmap		/* icon_pixmap */,
+    char**		/* argv */,
+    int			/* argc */,
+    XSizeHints*		/* hints */
+#endif
+);
+
+extern void XSetTextProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop */,
+    Atom		/* property */
+#endif
+);
+
+extern void XSetWMClientMachine(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop */
+#endif
+);
+
+extern void XSetWMHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XWMHints*		/* wm_hints */
+#endif
+);
+
+extern void XSetWMIconName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop */
+#endif
+);
+
+extern void XSetWMName(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* text_prop */
+#endif
+);
+
+extern void XSetWMNormalHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints */
+#endif
+);
+
+extern void XSetWMProperties(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XTextProperty*	/* window_name */,
+    XTextProperty*	/* icon_name */,
+    char**		/* argv */,
+    int			/* argc */,
+    XSizeHints*		/* normal_hints */,
+    XWMHints*		/* wm_hints */,
+    XClassHint*		/* class_hints */
+#endif
+);
+
+extern void XmbSetWMProperties(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    _Xconst char*	/* window_name */,
+    _Xconst char*	/* icon_name */,
+    char**		/* argv */,
+    int			/* argc */,
+    XSizeHints*		/* normal_hints */,
+    XWMHints*		/* wm_hints */,
+    XClassHint*		/* class_hints */
+#endif
+);
+
+extern void XSetWMSizeHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* hints */,
+    Atom		/* property */
+#endif
+);
+
+extern void XSetRegion(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    GC			/* gc */,
+    Region		/* r */
+#endif
+);
+
+extern void XSetStandardColormap(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XStandardColormap*	/* colormap */,
+    Atom		/* property */
+#endif
+);
+
+extern void XSetZoomHints(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    Window		/* w */,
+    XSizeHints*		/* zhints */
+#endif
+);
+
+extern void XShrinkRegion(
+#if NeedFunctionPrototypes
+    Region		/* r */,
+    int			/* dx */,
+    int			/* dy */
+#endif
+);
+
+extern Status XStringListToTextProperty(
+#if NeedFunctionPrototypes
+    char**		/* list */,
+    int			/* count */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern void XSubtractRegion(
+#if NeedFunctionPrototypes
+    Region		/* sra */,
+    Region		/* srb */,
+    Region		/* dr_return */
+#endif
+);
+
+extern int XmbTextListToTextProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    char**		/* list */,
+    int			/* count */,
+    XICCEncodingStyle	/* style */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern int XwcTextListToTextProperty(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    wchar_t**		/* list */,
+    int			/* count */,
+    XICCEncodingStyle	/* style */,
+    XTextProperty*	/* text_prop_return */
+#endif
+);
+
+extern void XwcFreeStringList(
+#if NeedFunctionPrototypes
+    wchar_t**		/* list */
+#endif
+);
+
+extern Status XTextPropertyToStringList(
+#if NeedFunctionPrototypes
+    XTextProperty*	/* text_prop */,
+    char***		/* list_return */,
+    int*		/* count_return */
+#endif
+);
+
+extern int XmbTextPropertyToTextList(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XTextProperty*	/* text_prop */,
+    char***		/* list_return */,
+    int*		/* count_return */
+#endif
+);
+
+extern int XwcTextPropertyToTextList(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    XTextProperty*	/* text_prop */,
+    wchar_t***		/* list_return */,
+    int*		/* count_return */
+#endif
+);
+
+extern void XUnionRectWithRegion(
+#if NeedFunctionPrototypes
+    XRectangle*		/* rectangle */,
+    Region		/* src_region */,
+    Region		/* dest_region_return */
+#endif
+);
+
+extern void XUnionRegion(
+#if NeedFunctionPrototypes
+    Region		/* sra */,
+    Region		/* srb */,
+    Region		/* dr_return */
+#endif
+);
+
+extern int XWMGeometry(
+#if NeedFunctionPrototypes
+    Display*		/* display */,
+    int			/* screen_number */,
+    _Xconst char*	/* user_geometry */,
+    _Xconst char*	/* default_geometry */,
+    unsigned int	/* border_width */,
+    XSizeHints*		/* hints */,
+    int*		/* x_return */,
+    int*		/* y_return */,
+    int*		/* width_return */,
+    int*		/* height_return */,
+    int*		/* gravity_return */
+#endif
+);
+
+extern void XXorRegion(
+#if NeedFunctionPrototypes
+    Region		/* sra */,
+    Region		/* srb */,
+    Region		/* dr_return */
+#endif
+);
+
+_XFUNCPROTOEND
+
+#ifdef MAC_TCL
+#   undef Region
+#endif
+
+#endif /* _XUTIL_H_ */
diff --git a/Tk/xlib/X11/cursorfont.h b/Tk/xlib/X11/cursorfont.h
new file mode 100644
index 0000000..617274f
--- /dev/null
+++ b/Tk/xlib/X11/cursorfont.h
@@ -0,0 +1,79 @@
+/* $XConsortium: cursorfont.h,v 1.2 88/09/06 16:44:27 jim Exp $ */
+#define XC_num_glyphs 154
+#define XC_X_cursor 0
+#define XC_arrow 2
+#define XC_based_arrow_down 4
+#define XC_based_arrow_up 6
+#define XC_boat 8
+#define XC_bogosity 10
+#define XC_bottom_left_corner 12
+#define XC_bottom_right_corner 14
+#define XC_bottom_side 16
+#define XC_bottom_tee 18
+#define XC_box_spiral 20
+#define XC_center_ptr 22
+#define XC_circle 24
+#define XC_clock 26
+#define XC_coffee_mug 28
+#define XC_cross 30
+#define XC_cross_reverse 32
+#define XC_crosshair 34
+#define XC_diamond_cross 36
+#define XC_dot 38
+#define XC_dotbox 40
+#define XC_double_arrow 42
+#define XC_draft_large 44
+#define XC_draft_small 46
+#define XC_draped_box 48
+#define XC_exchange 50
+#define XC_fleur 52
+#define XC_gobbler 54
+#define XC_gumby 56
+#define XC_hand1 58
+#define XC_hand2 60
+#define XC_heart 62
+#define XC_icon 64
+#define XC_iron_cross 66
+#define XC_left_ptr 68
+#define XC_left_side 70
+#define XC_left_tee 72
+#define XC_leftbutton 74
+#define XC_ll_angle 76
+#define XC_lr_angle 78
+#define XC_man 80
+#define XC_middlebutton 82
+#define XC_mouse 84
+#define XC_pencil 86
+#define XC_pirate 88
+#define XC_plus 90
+#define XC_question_arrow 92
+#define XC_right_ptr 94
+#define XC_right_side 96
+#define XC_right_tee 98
+#define XC_rightbutton 100
+#define XC_rtl_logo 102
+#define XC_sailboat 104
+#define XC_sb_down_arrow 106
+#define XC_sb_h_double_arrow 108
+#define XC_sb_left_arrow 110
+#define XC_sb_right_arrow 112
+#define XC_sb_up_arrow 114
+#define XC_sb_v_double_arrow 116
+#define XC_shuttle 118
+#define XC_sizing 120
+#define XC_spider 122
+#define XC_spraycan 124
+#define XC_star 126
+#define XC_target 128
+#define XC_tcross 130
+#define XC_top_left_arrow 132
+#define XC_top_left_corner 134
+#define XC_top_right_corner 136
+#define XC_top_side 138
+#define XC_top_tee 140
+#define XC_trek 142
+#define XC_ul_angle 144
+#define XC_umbrella 146
+#define XC_ur_angle 148
+#define XC_watch 150
+#define XC_xterm 152
diff --git a/Tk/xlib/X11/keysym.h b/Tk/xlib/X11/keysym.h
new file mode 100644
index 0000000..027afe0
--- /dev/null
+++ b/Tk/xlib/X11/keysym.h
@@ -0,0 +1,39 @@
+/* $XConsortium: keysym.h,v 1.13 91/03/13 20:09:49 rws Exp $ */
+
+/***********************************************************
+Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
+and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in 
+supporting documentation, and that the names of Digital or MIT not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.  
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+/* default keysyms */
+#define XK_MISCELLANY
+#define XK_LATIN1
+#define XK_LATIN2
+#define XK_LATIN3
+#define XK_LATIN4
+#define XK_GREEK
+
+#ifdef MAC_TCL
+#include <keysymdef.h>
+#else
+#include <X11/keysymdef.h>
+#endif
diff --git a/Tk/xlib/X11/keysymdef.h b/Tk/xlib/X11/keysymdef.h
new file mode 100644
index 0000000..2c6d4a7
--- /dev/null
+++ b/Tk/xlib/X11/keysymdef.h
@@ -0,0 +1,1164 @@
+/* $XConsortium: keysymdef.h,v 1.15 93/04/02 10:57:36 rws Exp $ */
+
+/***********************************************************
+Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
+and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in
+supporting documentation, and that the names of Digital or MIT not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+#define XK_VoidSymbol		0xFFFFFF	/* void symbol */
+
+#ifdef XK_MISCELLANY
+/*
+ * TTY Functions, cleverly chosen to map to ascii, for convenience of
+ * programming, but could have been arbitrary (at the cost of lookup
+ * tables in client code.
+ */
+
+#define XK_BackSpace		0xFF08	/* back space, back char */
+#define XK_Tab			0xFF09
+#define XK_Linefeed		0xFF0A	/* Linefeed, LF */
+#define XK_Clear		0xFF0B
+#define XK_Return		0xFF0D	/* Return, enter */
+#define XK_Pause		0xFF13	/* Pause, hold */
+#define XK_Scroll_Lock		0xFF14
+#define XK_Sys_Req		0xFF15
+#define XK_Escape		0xFF1B
+#define XK_Delete		0xFFFF	/* Delete, rubout */
+
+
+
+/* International & multi-key character composition */
+
+#define XK_Multi_key		0xFF20  /* Multi-key character compose */
+
+/* Japanese keyboard support */
+
+#define XK_Kanji		0xFF21	/* Kanji, Kanji convert */
+#define XK_Muhenkan		0xFF22  /* Cancel Conversion */
+#define XK_Henkan_Mode		0xFF23  /* Start/Stop Conversion */
+#define XK_Henkan		0xFF23  /* Alias for Henkan_Mode */
+#define XK_Romaji		0xFF24  /* to Romaji */
+#define XK_Hiragana		0xFF25  /* to Hiragana */
+#define XK_Katakana		0xFF26  /* to Katakana */
+#define XK_Hiragana_Katakana	0xFF27  /* Hiragana/Katakana toggle */
+#define XK_Zenkaku		0xFF28  /* to Zenkaku */
+#define XK_Hankaku		0xFF29  /* to Hankaku */
+#define XK_Zenkaku_Hankaku	0xFF2A  /* Zenkaku/Hankaku toggle */
+#define XK_Touroku		0xFF2B  /* Add to Dictionary */
+#define XK_Massyo		0xFF2C  /* Delete from Dictionary */
+#define XK_Kana_Lock		0xFF2D  /* Kana Lock */
+#define XK_Kana_Shift		0xFF2E  /* Kana Shift */
+#define XK_Eisu_Shift		0xFF2F  /* Alphanumeric Shift */
+#define XK_Eisu_toggle		0xFF30  /* Alphanumeric toggle */
+
+/* Cursor control & motion */
+
+#define XK_Home			0xFF50
+#define XK_Left			0xFF51	/* Move left, left arrow */
+#define XK_Up			0xFF52	/* Move up, up arrow */
+#define XK_Right		0xFF53	/* Move right, right arrow */
+#define XK_Down			0xFF54	/* Move down, down arrow */
+#define XK_Prior		0xFF55	/* Prior, previous */
+#define XK_Page_Up		0xFF55
+#define XK_Next			0xFF56	/* Next */
+#define XK_Page_Down		0xFF56
+#define XK_End			0xFF57	/* EOL */
+#define XK_Begin		0xFF58	/* BOL */
+
+
+/* Misc Functions */
+
+#define XK_Select		0xFF60	/* Select, mark */
+#define XK_Print		0xFF61
+#define XK_Execute		0xFF62	/* Execute, run, do */
+#define XK_Insert		0xFF63	/* Insert, insert here */
+#define XK_Undo			0xFF65	/* Undo, oops */
+#define XK_Redo			0xFF66	/* redo, again */
+#define XK_Menu			0xFF67
+#define XK_Find			0xFF68	/* Find, search */
+#define XK_Cancel		0xFF69	/* Cancel, stop, abort, exit */
+#define XK_Help			0xFF6A	/* Help, ? */
+#define XK_Break		0xFF6B
+#define XK_Mode_switch		0xFF7E	/* Character set switch */
+#define XK_script_switch        0xFF7E  /* Alias for mode_switch */
+#define XK_Num_Lock		0xFF7F
+
+/* Keypad Functions, keypad numbers cleverly chosen to map to ascii */
+
+#define XK_KP_Space		0xFF80	/* space */
+#define XK_KP_Tab		0xFF89
+#define XK_KP_Enter		0xFF8D	/* enter */
+#define XK_KP_F1		0xFF91	/* PF1, KP_A, ... */
+#define XK_KP_F2		0xFF92
+#define XK_KP_F3		0xFF93
+#define XK_KP_F4		0xFF94
+#define XK_KP_Home		0xFF95
+#define XK_KP_Left		0xFF96
+#define XK_KP_Up		0xFF97
+#define XK_KP_Right		0xFF98
+#define XK_KP_Down		0xFF99
+#define XK_KP_Prior		0xFF9A
+#define XK_KP_Page_Up		0xFF9A
+#define XK_KP_Next		0xFF9B
+#define XK_KP_Page_Down		0xFF9B
+#define XK_KP_End		0xFF9C
+#define XK_KP_Begin		0xFF9D
+#define XK_KP_Insert		0xFF9E
+#define XK_KP_Delete		0xFF9F
+#define XK_KP_Equal		0xFFBD	/* equals */
+#define XK_KP_Multiply		0xFFAA
+#define XK_KP_Add		0xFFAB
+#define XK_KP_Separator		0xFFAC	/* separator, often comma */
+#define XK_KP_Subtract		0xFFAD
+#define XK_KP_Decimal		0xFFAE
+#define XK_KP_Divide		0xFFAF
+
+#define XK_KP_0			0xFFB0
+#define XK_KP_1			0xFFB1
+#define XK_KP_2			0xFFB2
+#define XK_KP_3			0xFFB3
+#define XK_KP_4			0xFFB4
+#define XK_KP_5			0xFFB5
+#define XK_KP_6			0xFFB6
+#define XK_KP_7			0xFFB7
+#define XK_KP_8			0xFFB8
+#define XK_KP_9			0xFFB9
+
+
+
+/*
+ * Auxilliary Functions; note the duplicate definitions for left and right
+ * function keys;  Sun keyboards and a few other manufactures have such
+ * function key groups on the left and/or right sides of the keyboard.
+ * We've not found a keyboard with more than 35 function keys total.
+ */
+
+#define XK_F1			0xFFBE
+#define XK_F2			0xFFBF
+#define XK_F3			0xFFC0
+#define XK_F4			0xFFC1
+#define XK_F5			0xFFC2
+#define XK_F6			0xFFC3
+#define XK_F7			0xFFC4
+#define XK_F8			0xFFC5
+#define XK_F9			0xFFC6
+#define XK_F10			0xFFC7
+#define XK_F11			0xFFC8
+#define XK_L1			0xFFC8
+#define XK_F12			0xFFC9
+#define XK_L2			0xFFC9
+#define XK_F13			0xFFCA
+#define XK_L3			0xFFCA
+#define XK_F14			0xFFCB
+#define XK_L4			0xFFCB
+#define XK_F15			0xFFCC
+#define XK_L5			0xFFCC
+#define XK_F16			0xFFCD
+#define XK_L6			0xFFCD
+#define XK_F17			0xFFCE
+#define XK_L7			0xFFCE
+#define XK_F18			0xFFCF
+#define XK_L8			0xFFCF
+#define XK_F19			0xFFD0
+#define XK_L9			0xFFD0
+#define XK_F20			0xFFD1
+#define XK_L10			0xFFD1
+#define XK_F21			0xFFD2
+#define XK_R1			0xFFD2
+#define XK_F22			0xFFD3
+#define XK_R2			0xFFD3
+#define XK_F23			0xFFD4
+#define XK_R3			0xFFD4
+#define XK_F24			0xFFD5
+#define XK_R4			0xFFD5
+#define XK_F25			0xFFD6
+#define XK_R5			0xFFD6
+#define XK_F26			0xFFD7
+#define XK_R6			0xFFD7
+#define XK_F27			0xFFD8
+#define XK_R7			0xFFD8
+#define XK_F28			0xFFD9
+#define XK_R8			0xFFD9
+#define XK_F29			0xFFDA
+#define XK_R9			0xFFDA
+#define XK_F30			0xFFDB
+#define XK_R10			0xFFDB
+#define XK_F31			0xFFDC
+#define XK_R11			0xFFDC
+#define XK_F32			0xFFDD
+#define XK_R12			0xFFDD
+#define XK_F33			0xFFDE
+#define XK_R13			0xFFDE
+#define XK_F34			0xFFDF
+#define XK_R14			0xFFDF
+#define XK_F35			0xFFE0
+#define XK_R15			0xFFE0
+
+/* Modifiers */
+
+#define XK_Shift_L		0xFFE1	/* Left shift */
+#define XK_Shift_R		0xFFE2	/* Right shift */
+#define XK_Control_L		0xFFE3	/* Left control */
+#define XK_Control_R		0xFFE4	/* Right control */
+#define XK_Caps_Lock		0xFFE5	/* Caps lock */
+#define XK_Shift_Lock		0xFFE6	/* Shift lock */
+
+#define XK_Meta_L		0xFFE7	/* Left meta */
+#define XK_Meta_R		0xFFE8	/* Right meta */
+#define XK_Alt_L		0xFFE9	/* Left alt */
+#define XK_Alt_R		0xFFEA	/* Right alt */
+#define XK_Super_L		0xFFEB	/* Left super */
+#define XK_Super_R		0xFFEC	/* Right super */
+#define XK_Hyper_L		0xFFED	/* Left hyper */
+#define XK_Hyper_R		0xFFEE	/* Right hyper */
+#endif /* XK_MISCELLANY */
+
+/*
+ *  Latin 1
+ *  Byte 3 = 0
+ */
+#ifdef XK_LATIN1
+#define XK_space               0x020
+#define XK_exclam              0x021
+#define XK_quotedbl            0x022
+#define XK_numbersign          0x023
+#define XK_dollar              0x024
+#define XK_percent             0x025
+#define XK_ampersand           0x026
+#define XK_apostrophe          0x027
+#define XK_quoteright          0x027	/* deprecated */
+#define XK_parenleft           0x028
+#define XK_parenright          0x029
+#define XK_asterisk            0x02a
+#define XK_plus                0x02b
+#define XK_comma               0x02c
+#define XK_minus               0x02d
+#define XK_period              0x02e
+#define XK_slash               0x02f
+#define XK_0                   0x030
+#define XK_1                   0x031
+#define XK_2                   0x032
+#define XK_3                   0x033
+#define XK_4                   0x034
+#define XK_5                   0x035
+#define XK_6                   0x036
+#define XK_7                   0x037
+#define XK_8                   0x038
+#define XK_9                   0x039
+#define XK_colon               0x03a
+#define XK_semicolon           0x03b
+#define XK_less                0x03c
+#define XK_equal               0x03d
+#define XK_greater             0x03e
+#define XK_question            0x03f
+#define XK_at                  0x040
+#define XK_A                   0x041
+#define XK_B                   0x042
+#define XK_C                   0x043
+#define XK_D                   0x044
+#define XK_E                   0x045
+#define XK_F                   0x046
+#define XK_G                   0x047
+#define XK_H                   0x048
+#define XK_I                   0x049
+#define XK_J                   0x04a
+#define XK_K                   0x04b
+#define XK_L                   0x04c
+#define XK_M                   0x04d
+#define XK_N                   0x04e
+#define XK_O                   0x04f
+#define XK_P                   0x050
+#define XK_Q                   0x051
+#define XK_R                   0x052
+#define XK_S                   0x053
+#define XK_T                   0x054
+#define XK_U                   0x055
+#define XK_V                   0x056
+#define XK_W                   0x057
+#define XK_X                   0x058
+#define XK_Y                   0x059
+#define XK_Z                   0x05a
+#define XK_bracketleft         0x05b
+#define XK_backslash           0x05c
+#define XK_bracketright        0x05d
+#define XK_asciicircum         0x05e
+#define XK_underscore          0x05f
+#define XK_grave               0x060
+#define XK_quoteleft           0x060	/* deprecated */
+#define XK_a                   0x061
+#define XK_b                   0x062
+#define XK_c                   0x063
+#define XK_d                   0x064
+#define XK_e                   0x065
+#define XK_f                   0x066
+#define XK_g                   0x067
+#define XK_h                   0x068
+#define XK_i                   0x069
+#define XK_j                   0x06a
+#define XK_k                   0x06b
+#define XK_l                   0x06c
+#define XK_m                   0x06d
+#define XK_n                   0x06e
+#define XK_o                   0x06f
+#define XK_p                   0x070
+#define XK_q                   0x071
+#define XK_r                   0x072
+#define XK_s                   0x073
+#define XK_t                   0x074
+#define XK_u                   0x075
+#define XK_v                   0x076
+#define XK_w                   0x077
+#define XK_x                   0x078
+#define XK_y                   0x079
+#define XK_z                   0x07a
+#define XK_braceleft           0x07b
+#define XK_bar                 0x07c
+#define XK_braceright          0x07d
+#define XK_asciitilde          0x07e
+
+#define XK_nobreakspace        0x0a0
+#define XK_exclamdown          0x0a1
+#define XK_cent        	       0x0a2
+#define XK_sterling            0x0a3
+#define XK_currency            0x0a4
+#define XK_yen                 0x0a5
+#define XK_brokenbar           0x0a6
+#define XK_section             0x0a7
+#define XK_diaeresis           0x0a8
+#define XK_copyright           0x0a9
+#define XK_ordfeminine         0x0aa
+#define XK_guillemotleft       0x0ab	/* left angle quotation mark */
+#define XK_notsign             0x0ac
+#define XK_hyphen              0x0ad
+#define XK_registered          0x0ae
+#define XK_macron              0x0af
+#define XK_degree              0x0b0
+#define XK_plusminus           0x0b1
+#define XK_twosuperior         0x0b2
+#define XK_threesuperior       0x0b3
+#define XK_acute               0x0b4
+#define XK_mu                  0x0b5
+#define XK_paragraph           0x0b6
+#define XK_periodcentered      0x0b7
+#define XK_cedilla             0x0b8
+#define XK_onesuperior         0x0b9
+#define XK_masculine           0x0ba
+#define XK_guillemotright      0x0bb	/* right angle quotation mark */
+#define XK_onequarter          0x0bc
+#define XK_onehalf             0x0bd
+#define XK_threequarters       0x0be
+#define XK_questiondown        0x0bf
+#define XK_Agrave              0x0c0
+#define XK_Aacute              0x0c1
+#define XK_Acircumflex         0x0c2
+#define XK_Atilde              0x0c3
+#define XK_Adiaeresis          0x0c4
+#define XK_Aring               0x0c5
+#define XK_AE                  0x0c6
+#define XK_Ccedilla            0x0c7
+#define XK_Egrave              0x0c8
+#define XK_Eacute              0x0c9
+#define XK_Ecircumflex         0x0ca
+#define XK_Ediaeresis          0x0cb
+#define XK_Igrave              0x0cc
+#define XK_Iacute              0x0cd
+#define XK_Icircumflex         0x0ce
+#define XK_Idiaeresis          0x0cf
+#define XK_ETH                 0x0d0
+#define XK_Eth                 0x0d0	/* deprecated */
+#define XK_Ntilde              0x0d1
+#define XK_Ograve              0x0d2
+#define XK_Oacute              0x0d3
+#define XK_Ocircumflex         0x0d4
+#define XK_Otilde              0x0d5
+#define XK_Odiaeresis          0x0d6
+#define XK_multiply            0x0d7
+#define XK_Ooblique            0x0d8
+#define XK_Ugrave              0x0d9
+#define XK_Uacute              0x0da
+#define XK_Ucircumflex         0x0db
+#define XK_Udiaeresis          0x0dc
+#define XK_Yacute              0x0dd
+#define XK_THORN               0x0de
+#define XK_Thorn               0x0de	/* deprecated */
+#define XK_ssharp              0x0df
+#define XK_agrave              0x0e0
+#define XK_aacute              0x0e1
+#define XK_acircumflex         0x0e2
+#define XK_atilde              0x0e3
+#define XK_adiaeresis          0x0e4
+#define XK_aring               0x0e5
+#define XK_ae                  0x0e6
+#define XK_ccedilla            0x0e7
+#define XK_egrave              0x0e8
+#define XK_eacute              0x0e9
+#define XK_ecircumflex         0x0ea
+#define XK_ediaeresis          0x0eb
+#define XK_igrave              0x0ec
+#define XK_iacute              0x0ed
+#define XK_icircumflex         0x0ee
+#define XK_idiaeresis          0x0ef
+#define XK_eth                 0x0f0
+#define XK_ntilde              0x0f1
+#define XK_ograve              0x0f2
+#define XK_oacute              0x0f3
+#define XK_ocircumflex         0x0f4
+#define XK_otilde              0x0f5
+#define XK_odiaeresis          0x0f6
+#define XK_division            0x0f7
+#define XK_oslash              0x0f8
+#define XK_ugrave              0x0f9
+#define XK_uacute              0x0fa
+#define XK_ucircumflex         0x0fb
+#define XK_udiaeresis          0x0fc
+#define XK_yacute              0x0fd
+#define XK_thorn               0x0fe
+#define XK_ydiaeresis          0x0ff
+#endif /* XK_LATIN1 */
+
+/*
+ *   Latin 2
+ *   Byte 3 = 1
+ */
+
+#ifdef XK_LATIN2
+#define XK_Aogonek             0x1a1
+#define XK_breve               0x1a2
+#define XK_Lstroke             0x1a3
+#define XK_Lcaron              0x1a5
+#define XK_Sacute              0x1a6
+#define XK_Scaron              0x1a9
+#define XK_Scedilla            0x1aa
+#define XK_Tcaron              0x1ab
+#define XK_Zacute              0x1ac
+#define XK_Zcaron              0x1ae
+#define XK_Zabovedot           0x1af
+#define XK_aogonek             0x1b1
+#define XK_ogonek              0x1b2
+#define XK_lstroke             0x1b3
+#define XK_lcaron              0x1b5
+#define XK_sacute              0x1b6
+#define XK_caron               0x1b7
+#define XK_scaron              0x1b9
+#define XK_scedilla            0x1ba
+#define XK_tcaron              0x1bb
+#define XK_zacute              0x1bc
+#define XK_doubleacute         0x1bd
+#define XK_zcaron              0x1be
+#define XK_zabovedot           0x1bf
+#define XK_Racute              0x1c0
+#define XK_Abreve              0x1c3
+#define XK_Lacute              0x1c5
+#define XK_Cacute              0x1c6
+#define XK_Ccaron              0x1c8
+#define XK_Eogonek             0x1ca
+#define XK_Ecaron              0x1cc
+#define XK_Dcaron              0x1cf
+#define XK_Dstroke             0x1d0
+#define XK_Nacute              0x1d1
+#define XK_Ncaron              0x1d2
+#define XK_Odoubleacute        0x1d5
+#define XK_Rcaron              0x1d8
+#define XK_Uring               0x1d9
+#define XK_Udoubleacute        0x1db
+#define XK_Tcedilla            0x1de
+#define XK_racute              0x1e0
+#define XK_abreve              0x1e3
+#define XK_lacute              0x1e5
+#define XK_cacute              0x1e6
+#define XK_ccaron              0x1e8
+#define XK_eogonek             0x1ea
+#define XK_ecaron              0x1ec
+#define XK_dcaron              0x1ef
+#define XK_dstroke             0x1f0
+#define XK_nacute              0x1f1
+#define XK_ncaron              0x1f2
+#define XK_odoubleacute        0x1f5
+#define XK_udoubleacute        0x1fb
+#define XK_rcaron              0x1f8
+#define XK_uring               0x1f9
+#define XK_tcedilla            0x1fe
+#define XK_abovedot            0x1ff
+#endif /* XK_LATIN2 */
+
+/*
+ *   Latin 3
+ *   Byte 3 = 2
+ */
+
+#ifdef XK_LATIN3
+#define XK_Hstroke             0x2a1
+#define XK_Hcircumflex         0x2a6
+#define XK_Iabovedot           0x2a9
+#define XK_Gbreve              0x2ab
+#define XK_Jcircumflex         0x2ac
+#define XK_hstroke             0x2b1
+#define XK_hcircumflex         0x2b6
+#define XK_idotless            0x2b9
+#define XK_gbreve              0x2bb
+#define XK_jcircumflex         0x2bc
+#define XK_Cabovedot           0x2c5
+#define XK_Ccircumflex         0x2c6
+#define XK_Gabovedot           0x2d5
+#define XK_Gcircumflex         0x2d8
+#define XK_Ubreve              0x2dd
+#define XK_Scircumflex         0x2de
+#define XK_cabovedot           0x2e5
+#define XK_ccircumflex         0x2e6
+#define XK_gabovedot           0x2f5
+#define XK_gcircumflex         0x2f8
+#define XK_ubreve              0x2fd
+#define XK_scircumflex         0x2fe
+#endif /* XK_LATIN3 */
+
+
+/*
+ *   Latin 4
+ *   Byte 3 = 3
+ */
+
+#ifdef XK_LATIN4
+#define XK_kra                 0x3a2
+#define XK_kappa               0x3a2	/* deprecated */
+#define XK_Rcedilla            0x3a3
+#define XK_Itilde              0x3a5
+#define XK_Lcedilla            0x3a6
+#define XK_Emacron             0x3aa
+#define XK_Gcedilla            0x3ab
+#define XK_Tslash              0x3ac
+#define XK_rcedilla            0x3b3
+#define XK_itilde              0x3b5
+#define XK_lcedilla            0x3b6
+#define XK_emacron             0x3ba
+#define XK_gcedilla            0x3bb
+#define XK_tslash              0x3bc
+#define XK_ENG                 0x3bd
+#define XK_eng                 0x3bf
+#define XK_Amacron             0x3c0
+#define XK_Iogonek             0x3c7
+#define XK_Eabovedot           0x3cc
+#define XK_Imacron             0x3cf
+#define XK_Ncedilla            0x3d1
+#define XK_Omacron             0x3d2
+#define XK_Kcedilla            0x3d3
+#define XK_Uogonek             0x3d9
+#define XK_Utilde              0x3dd
+#define XK_Umacron             0x3de
+#define XK_amacron             0x3e0
+#define XK_iogonek             0x3e7
+#define XK_eabovedot           0x3ec
+#define XK_imacron             0x3ef
+#define XK_ncedilla            0x3f1
+#define XK_omacron             0x3f2
+#define XK_kcedilla            0x3f3
+#define XK_uogonek             0x3f9
+#define XK_utilde              0x3fd
+#define XK_umacron             0x3fe
+#endif /* XK_LATIN4 */
+
+/*
+ * Katakana
+ * Byte 3 = 4
+ */
+
+#ifdef XK_KATAKANA
+#define XK_overline				       0x47e
+#define XK_kana_fullstop                               0x4a1
+#define XK_kana_openingbracket                         0x4a2
+#define XK_kana_closingbracket                         0x4a3
+#define XK_kana_comma                                  0x4a4
+#define XK_kana_conjunctive                            0x4a5
+#define XK_kana_middledot                              0x4a5  /* deprecated */
+#define XK_kana_WO                                     0x4a6
+#define XK_kana_a                                      0x4a7
+#define XK_kana_i                                      0x4a8
+#define XK_kana_u                                      0x4a9
+#define XK_kana_e                                      0x4aa
+#define XK_kana_o                                      0x4ab
+#define XK_kana_ya                                     0x4ac
+#define XK_kana_yu                                     0x4ad
+#define XK_kana_yo                                     0x4ae
+#define XK_kana_tsu                                    0x4af
+#define XK_kana_tu                                     0x4af  /* deprecated */
+#define XK_prolongedsound                              0x4b0
+#define XK_kana_A                                      0x4b1
+#define XK_kana_I                                      0x4b2
+#define XK_kana_U                                      0x4b3
+#define XK_kana_E                                      0x4b4
+#define XK_kana_O                                      0x4b5
+#define XK_kana_KA                                     0x4b6
+#define XK_kana_KI                                     0x4b7
+#define XK_kana_KU                                     0x4b8
+#define XK_kana_KE                                     0x4b9
+#define XK_kana_KO                                     0x4ba
+#define XK_kana_SA                                     0x4bb
+#define XK_kana_SHI                                    0x4bc
+#define XK_kana_SU                                     0x4bd
+#define XK_kana_SE                                     0x4be
+#define XK_kana_SO                                     0x4bf
+#define XK_kana_TA                                     0x4c0
+#define XK_kana_CHI                                    0x4c1
+#define XK_kana_TI                                     0x4c1  /* deprecated */
+#define XK_kana_TSU                                    0x4c2
+#define XK_kana_TU                                     0x4c2  /* deprecated */
+#define XK_kana_TE                                     0x4c3
+#define XK_kana_TO                                     0x4c4
+#define XK_kana_NA                                     0x4c5
+#define XK_kana_NI                                     0x4c6
+#define XK_kana_NU                                     0x4c7
+#define XK_kana_NE                                     0x4c8
+#define XK_kana_NO                                     0x4c9
+#define XK_kana_HA                                     0x4ca
+#define XK_kana_HI                                     0x4cb
+#define XK_kana_FU                                     0x4cc
+#define XK_kana_HU                                     0x4cc  /* deprecated */
+#define XK_kana_HE                                     0x4cd
+#define XK_kana_HO                                     0x4ce
+#define XK_kana_MA                                     0x4cf
+#define XK_kana_MI                                     0x4d0
+#define XK_kana_MU                                     0x4d1
+#define XK_kana_ME                                     0x4d2
+#define XK_kana_MO                                     0x4d3
+#define XK_kana_YA                                     0x4d4
+#define XK_kana_YU                                     0x4d5
+#define XK_kana_YO                                     0x4d6
+#define XK_kana_RA                                     0x4d7
+#define XK_kana_RI                                     0x4d8
+#define XK_kana_RU                                     0x4d9
+#define XK_kana_RE                                     0x4da
+#define XK_kana_RO                                     0x4db
+#define XK_kana_WA                                     0x4dc
+#define XK_kana_N                                      0x4dd
+#define XK_voicedsound                                 0x4de
+#define XK_semivoicedsound                             0x4df
+#define XK_kana_switch          0xFF7E  /* Alias for mode_switch */
+#endif /* XK_KATAKANA */
+
+/*
+ *  Arabic
+ *  Byte 3 = 5
+ */
+
+#ifdef XK_ARABIC
+#define XK_Arabic_comma                                0x5ac
+#define XK_Arabic_semicolon                            0x5bb
+#define XK_Arabic_question_mark                        0x5bf
+#define XK_Arabic_hamza                                0x5c1
+#define XK_Arabic_maddaonalef                          0x5c2
+#define XK_Arabic_hamzaonalef                          0x5c3
+#define XK_Arabic_hamzaonwaw                           0x5c4
+#define XK_Arabic_hamzaunderalef                       0x5c5
+#define XK_Arabic_hamzaonyeh                           0x5c6
+#define XK_Arabic_alef                                 0x5c7
+#define XK_Arabic_beh                                  0x5c8
+#define XK_Arabic_tehmarbuta                           0x5c9
+#define XK_Arabic_teh                                  0x5ca
+#define XK_Arabic_theh                                 0x5cb
+#define XK_Arabic_jeem                                 0x5cc
+#define XK_Arabic_hah                                  0x5cd
+#define XK_Arabic_khah                                 0x5ce
+#define XK_Arabic_dal                                  0x5cf
+#define XK_Arabic_thal                                 0x5d0
+#define XK_Arabic_ra                                   0x5d1
+#define XK_Arabic_zain                                 0x5d2
+#define XK_Arabic_seen                                 0x5d3
+#define XK_Arabic_sheen                                0x5d4
+#define XK_Arabic_sad                                  0x5d5
+#define XK_Arabic_dad                                  0x5d6
+#define XK_Arabic_tah                                  0x5d7
+#define XK_Arabic_zah                                  0x5d8
+#define XK_Arabic_ain                                  0x5d9
+#define XK_Arabic_ghain                                0x5da
+#define XK_Arabic_tatweel                              0x5e0
+#define XK_Arabic_feh                                  0x5e1
+#define XK_Arabic_qaf                                  0x5e2
+#define XK_Arabic_kaf                                  0x5e3
+#define XK_Arabic_lam                                  0x5e4
+#define XK_Arabic_meem                                 0x5e5
+#define XK_Arabic_noon                                 0x5e6
+#define XK_Arabic_ha                                   0x5e7
+#define XK_Arabic_heh                                  0x5e7  /* deprecated */
+#define XK_Arabic_waw                                  0x5e8
+#define XK_Arabic_alefmaksura                          0x5e9
+#define XK_Arabic_yeh                                  0x5ea
+#define XK_Arabic_fathatan                             0x5eb
+#define XK_Arabic_dammatan                             0x5ec
+#define XK_Arabic_kasratan                             0x5ed
+#define XK_Arabic_fatha                                0x5ee
+#define XK_Arabic_damma                                0x5ef
+#define XK_Arabic_kasra                                0x5f0
+#define XK_Arabic_shadda                               0x5f1
+#define XK_Arabic_sukun                                0x5f2
+#define XK_Arabic_switch        0xFF7E  /* Alias for mode_switch */
+#endif /* XK_ARABIC */
+
+/*
+ * Cyrillic
+ * Byte 3 = 6
+ */
+#ifdef XK_CYRILLIC
+#define XK_Serbian_dje                                 0x6a1
+#define XK_Macedonia_gje                               0x6a2
+#define XK_Cyrillic_io                                 0x6a3
+#define XK_Ukrainian_ie                                0x6a4
+#define XK_Ukranian_je                                 0x6a4  /* deprecated */
+#define XK_Macedonia_dse                               0x6a5
+#define XK_Ukrainian_i                                 0x6a6
+#define XK_Ukranian_i                                  0x6a6  /* deprecated */
+#define XK_Ukrainian_yi                                0x6a7
+#define XK_Ukranian_yi                                 0x6a7  /* deprecated */
+#define XK_Cyrillic_je                                 0x6a8
+#define XK_Serbian_je                                  0x6a8  /* deprecated */
+#define XK_Cyrillic_lje                                0x6a9
+#define XK_Serbian_lje                                 0x6a9  /* deprecated */
+#define XK_Cyrillic_nje                                0x6aa
+#define XK_Serbian_nje                                 0x6aa  /* deprecated */
+#define XK_Serbian_tshe                                0x6ab
+#define XK_Macedonia_kje                               0x6ac
+#define XK_Byelorussian_shortu                         0x6ae
+#define XK_Cyrillic_dzhe                               0x6af
+#define XK_Serbian_dze                                 0x6af  /* deprecated */
+#define XK_numerosign                                  0x6b0
+#define XK_Serbian_DJE                                 0x6b1
+#define XK_Macedonia_GJE                               0x6b2
+#define XK_Cyrillic_IO                                 0x6b3
+#define XK_Ukrainian_IE                                0x6b4
+#define XK_Ukranian_JE                                 0x6b4  /* deprecated */
+#define XK_Macedonia_DSE                               0x6b5
+#define XK_Ukrainian_I                                 0x6b6
+#define XK_Ukranian_I                                  0x6b6  /* deprecated */
+#define XK_Ukrainian_YI                                0x6b7
+#define XK_Ukranian_YI                                 0x6b7  /* deprecated */
+#define XK_Cyrillic_JE                                 0x6b8
+#define XK_Serbian_JE                                  0x6b8  /* deprecated */
+#define XK_Cyrillic_LJE                                0x6b9
+#define XK_Serbian_LJE                                 0x6b9  /* deprecated */
+#define XK_Cyrillic_NJE                                0x6ba
+#define XK_Serbian_NJE                                 0x6ba  /* deprecated */
+#define XK_Serbian_TSHE                                0x6bb
+#define XK_Macedonia_KJE                               0x6bc
+#define XK_Byelorussian_SHORTU                         0x6be
+#define XK_Cyrillic_DZHE                               0x6bf
+#define XK_Serbian_DZE                                 0x6bf  /* deprecated */
+#define XK_Cyrillic_yu                                 0x6c0
+#define XK_Cyrillic_a                                  0x6c1
+#define XK_Cyrillic_be                                 0x6c2
+#define XK_Cyrillic_tse                                0x6c3
+#define XK_Cyrillic_de                                 0x6c4
+#define XK_Cyrillic_ie                                 0x6c5
+#define XK_Cyrillic_ef                                 0x6c6
+#define XK_Cyrillic_ghe                                0x6c7
+#define XK_Cyrillic_ha                                 0x6c8
+#define XK_Cyrillic_i                                  0x6c9
+#define XK_Cyrillic_shorti                             0x6ca
+#define XK_Cyrillic_ka                                 0x6cb
+#define XK_Cyrillic_el                                 0x6cc
+#define XK_Cyrillic_em                                 0x6cd
+#define XK_Cyrillic_en                                 0x6ce
+#define XK_Cyrillic_o                                  0x6cf
+#define XK_Cyrillic_pe                                 0x6d0
+#define XK_Cyrillic_ya                                 0x6d1
+#define XK_Cyrillic_er                                 0x6d2
+#define XK_Cyrillic_es                                 0x6d3
+#define XK_Cyrillic_te                                 0x6d4
+#define XK_Cyrillic_u                                  0x6d5
+#define XK_Cyrillic_zhe                                0x6d6
+#define XK_Cyrillic_ve                                 0x6d7
+#define XK_Cyrillic_softsign                           0x6d8
+#define XK_Cyrillic_yeru                               0x6d9
+#define XK_Cyrillic_ze                                 0x6da
+#define XK_Cyrillic_sha                                0x6db
+#define XK_Cyrillic_e                                  0x6dc
+#define XK_Cyrillic_shcha                              0x6dd
+#define XK_Cyrillic_che                                0x6de
+#define XK_Cyrillic_hardsign                           0x6df
+#define XK_Cyrillic_YU                                 0x6e0
+#define XK_Cyrillic_A                                  0x6e1
+#define XK_Cyrillic_BE                                 0x6e2
+#define XK_Cyrillic_TSE                                0x6e3
+#define XK_Cyrillic_DE                                 0x6e4
+#define XK_Cyrillic_IE                                 0x6e5
+#define XK_Cyrillic_EF                                 0x6e6
+#define XK_Cyrillic_GHE                                0x6e7
+#define XK_Cyrillic_HA                                 0x6e8
+#define XK_Cyrillic_I                                  0x6e9
+#define XK_Cyrillic_SHORTI                             0x6ea
+#define XK_Cyrillic_KA                                 0x6eb
+#define XK_Cyrillic_EL                                 0x6ec
+#define XK_Cyrillic_EM                                 0x6ed
+#define XK_Cyrillic_EN                                 0x6ee
+#define XK_Cyrillic_O                                  0x6ef
+#define XK_Cyrillic_PE                                 0x6f0
+#define XK_Cyrillic_YA                                 0x6f1
+#define XK_Cyrillic_ER                                 0x6f2
+#define XK_Cyrillic_ES                                 0x6f3
+#define XK_Cyrillic_TE                                 0x6f4
+#define XK_Cyrillic_U                                  0x6f5
+#define XK_Cyrillic_ZHE                                0x6f6
+#define XK_Cyrillic_VE                                 0x6f7
+#define XK_Cyrillic_SOFTSIGN                           0x6f8
+#define XK_Cyrillic_YERU                               0x6f9
+#define XK_Cyrillic_ZE                                 0x6fa
+#define XK_Cyrillic_SHA                                0x6fb
+#define XK_Cyrillic_E                                  0x6fc
+#define XK_Cyrillic_SHCHA                              0x6fd
+#define XK_Cyrillic_CHE                                0x6fe
+#define XK_Cyrillic_HARDSIGN                           0x6ff
+#endif /* XK_CYRILLIC */
+
+/*
+ * Greek
+ * Byte 3 = 7
+ */
+
+#ifdef XK_GREEK
+#define XK_Greek_ALPHAaccent                           0x7a1
+#define XK_Greek_EPSILONaccent                         0x7a2
+#define XK_Greek_ETAaccent                             0x7a3
+#define XK_Greek_IOTAaccent                            0x7a4
+#define XK_Greek_IOTAdiaeresis                         0x7a5
+#define XK_Greek_OMICRONaccent                         0x7a7
+#define XK_Greek_UPSILONaccent                         0x7a8
+#define XK_Greek_UPSILONdieresis                       0x7a9
+#define XK_Greek_OMEGAaccent                           0x7ab
+#define XK_Greek_accentdieresis                        0x7ae
+#define XK_Greek_horizbar                              0x7af
+#define XK_Greek_alphaaccent                           0x7b1
+#define XK_Greek_epsilonaccent                         0x7b2
+#define XK_Greek_etaaccent                             0x7b3
+#define XK_Greek_iotaaccent                            0x7b4
+#define XK_Greek_iotadieresis                          0x7b5
+#define XK_Greek_iotaaccentdieresis                    0x7b6
+#define XK_Greek_omicronaccent                         0x7b7
+#define XK_Greek_upsilonaccent                         0x7b8
+#define XK_Greek_upsilondieresis                       0x7b9
+#define XK_Greek_upsilonaccentdieresis                 0x7ba
+#define XK_Greek_omegaaccent                           0x7bb
+#define XK_Greek_ALPHA                                 0x7c1
+#define XK_Greek_BETA                                  0x7c2
+#define XK_Greek_GAMMA                                 0x7c3
+#define XK_Greek_DELTA                                 0x7c4
+#define XK_Greek_EPSILON                               0x7c5
+#define XK_Greek_ZETA                                  0x7c6
+#define XK_Greek_ETA                                   0x7c7
+#define XK_Greek_THETA                                 0x7c8
+#define XK_Greek_IOTA                                  0x7c9
+#define XK_Greek_KAPPA                                 0x7ca
+#define XK_Greek_LAMDA                                 0x7cb
+#define XK_Greek_LAMBDA                                0x7cb
+#define XK_Greek_MU                                    0x7cc
+#define XK_Greek_NU                                    0x7cd
+#define XK_Greek_XI                                    0x7ce
+#define XK_Greek_OMICRON                               0x7cf
+#define XK_Greek_PI                                    0x7d0
+#define XK_Greek_RHO                                   0x7d1
+#define XK_Greek_SIGMA                                 0x7d2
+#define XK_Greek_TAU                                   0x7d4
+#define XK_Greek_UPSILON                               0x7d5
+#define XK_Greek_PHI                                   0x7d6
+#define XK_Greek_CHI                                   0x7d7
+#define XK_Greek_PSI                                   0x7d8
+#define XK_Greek_OMEGA                                 0x7d9
+#define XK_Greek_alpha                                 0x7e1
+#define XK_Greek_beta                                  0x7e2
+#define XK_Greek_gamma                                 0x7e3
+#define XK_Greek_delta                                 0x7e4
+#define XK_Greek_epsilon                               0x7e5
+#define XK_Greek_zeta                                  0x7e6
+#define XK_Greek_eta                                   0x7e7
+#define XK_Greek_theta                                 0x7e8
+#define XK_Greek_iota                                  0x7e9
+#define XK_Greek_kappa                                 0x7ea
+#define XK_Greek_lamda                                 0x7eb
+#define XK_Greek_lambda                                0x7eb
+#define XK_Greek_mu                                    0x7ec
+#define XK_Greek_nu                                    0x7ed
+#define XK_Greek_xi                                    0x7ee
+#define XK_Greek_omicron                               0x7ef
+#define XK_Greek_pi                                    0x7f0
+#define XK_Greek_rho                                   0x7f1
+#define XK_Greek_sigma                                 0x7f2
+#define XK_Greek_finalsmallsigma                       0x7f3
+#define XK_Greek_tau                                   0x7f4
+#define XK_Greek_upsilon                               0x7f5
+#define XK_Greek_phi                                   0x7f6
+#define XK_Greek_chi                                   0x7f7
+#define XK_Greek_psi                                   0x7f8
+#define XK_Greek_omega                                 0x7f9
+#define XK_Greek_switch         0xFF7E  /* Alias for mode_switch */
+#endif /* XK_GREEK */
+
+/*
+ * Technical
+ * Byte 3 = 8
+ */
+
+#ifdef XK_TECHNICAL
+#define XK_leftradical                                 0x8a1
+#define XK_topleftradical                              0x8a2
+#define XK_horizconnector                              0x8a3
+#define XK_topintegral                                 0x8a4
+#define XK_botintegral                                 0x8a5
+#define XK_vertconnector                               0x8a6
+#define XK_topleftsqbracket                            0x8a7
+#define XK_botleftsqbracket                            0x8a8
+#define XK_toprightsqbracket                           0x8a9
+#define XK_botrightsqbracket                           0x8aa
+#define XK_topleftparens                               0x8ab
+#define XK_botleftparens                               0x8ac
+#define XK_toprightparens                              0x8ad
+#define XK_botrightparens                              0x8ae
+#define XK_leftmiddlecurlybrace                        0x8af
+#define XK_rightmiddlecurlybrace                       0x8b0
+#define XK_topleftsummation                            0x8b1
+#define XK_botleftsummation                            0x8b2
+#define XK_topvertsummationconnector                   0x8b3
+#define XK_botvertsummationconnector                   0x8b4
+#define XK_toprightsummation                           0x8b5
+#define XK_botrightsummation                           0x8b6
+#define XK_rightmiddlesummation                        0x8b7
+#define XK_lessthanequal                               0x8bc
+#define XK_notequal                                    0x8bd
+#define XK_greaterthanequal                            0x8be
+#define XK_integral                                    0x8bf
+#define XK_therefore                                   0x8c0
+#define XK_variation                                   0x8c1
+#define XK_infinity                                    0x8c2
+#define XK_nabla                                       0x8c5
+#define XK_approximate                                 0x8c8
+#define XK_similarequal                                0x8c9
+#define XK_ifonlyif                                    0x8cd
+#define XK_implies                                     0x8ce
+#define XK_identical                                   0x8cf
+#define XK_radical                                     0x8d6
+#define XK_includedin                                  0x8da
+#define XK_includes                                    0x8db
+#define XK_intersection                                0x8dc
+#define XK_union                                       0x8dd
+#define XK_logicaland                                  0x8de
+#define XK_logicalor                                   0x8df
+#define XK_partialderivative                           0x8ef
+#define XK_function                                    0x8f6
+#define XK_leftarrow                                   0x8fb
+#define XK_uparrow                                     0x8fc
+#define XK_rightarrow                                  0x8fd
+#define XK_downarrow                                   0x8fe
+#endif /* XK_TECHNICAL */
+
+/*
+ *  Special
+ *  Byte 3 = 9
+ */
+
+#ifdef XK_SPECIAL
+#define XK_blank                                       0x9df
+#define XK_soliddiamond                                0x9e0
+#define XK_checkerboard                                0x9e1
+#define XK_ht                                          0x9e2
+#define XK_ff                                          0x9e3
+#define XK_cr                                          0x9e4
+#define XK_lf                                          0x9e5
+#define XK_nl                                          0x9e8
+#define XK_vt                                          0x9e9
+#define XK_lowrightcorner                              0x9ea
+#define XK_uprightcorner                               0x9eb
+#define XK_upleftcorner                                0x9ec
+#define XK_lowleftcorner                               0x9ed
+#define XK_crossinglines                               0x9ee
+#define XK_horizlinescan1                              0x9ef
+#define XK_horizlinescan3                              0x9f0
+#define XK_horizlinescan5                              0x9f1
+#define XK_horizlinescan7                              0x9f2
+#define XK_horizlinescan9                              0x9f3
+#define XK_leftt                                       0x9f4
+#define XK_rightt                                      0x9f5
+#define XK_bott                                        0x9f6
+#define XK_topt                                        0x9f7
+#define XK_vertbar                                     0x9f8
+#endif /* XK_SPECIAL */
+
+/*
+ *  Publishing
+ *  Byte 3 = a
+ */
+
+#ifdef XK_PUBLISHING
+#define XK_emspace                                     0xaa1
+#define XK_enspace                                     0xaa2
+#define XK_em3space                                    0xaa3
+#define XK_em4space                                    0xaa4
+#define XK_digitspace                                  0xaa5
+#define XK_punctspace                                  0xaa6
+#define XK_thinspace                                   0xaa7
+#define XK_hairspace                                   0xaa8
+#define XK_emdash                                      0xaa9
+#define XK_endash                                      0xaaa
+#define XK_signifblank                                 0xaac
+#define XK_ellipsis                                    0xaae
+#define XK_doubbaselinedot                             0xaaf
+#define XK_onethird                                    0xab0
+#define XK_twothirds                                   0xab1
+#define XK_onefifth                                    0xab2
+#define XK_twofifths                                   0xab3
+#define XK_threefifths                                 0xab4
+#define XK_fourfifths                                  0xab5
+#define XK_onesixth                                    0xab6
+#define XK_fivesixths                                  0xab7
+#define XK_careof                                      0xab8
+#define XK_figdash                                     0xabb
+#define XK_leftanglebracket                            0xabc
+#define XK_decimalpoint                                0xabd
+#define XK_rightanglebracket                           0xabe
+#define XK_marker                                      0xabf
+#define XK_oneeighth                                   0xac3
+#define XK_threeeighths                                0xac4
+#define XK_fiveeighths                                 0xac5
+#define XK_seveneighths                                0xac6
+#define XK_trademark                                   0xac9
+#define XK_signaturemark                               0xaca
+#define XK_trademarkincircle                           0xacb
+#define XK_leftopentriangle                            0xacc
+#define XK_rightopentriangle                           0xacd
+#define XK_emopencircle                                0xace
+#define XK_emopenrectangle                             0xacf
+#define XK_leftsinglequotemark                         0xad0
+#define XK_rightsinglequotemark                        0xad1
+#define XK_leftdoublequotemark                         0xad2
+#define XK_rightdoublequotemark                        0xad3
+#define XK_prescription                                0xad4
+#define XK_minutes                                     0xad6
+#define XK_seconds                                     0xad7
+#define XK_latincross                                  0xad9
+#define XK_hexagram                                    0xada
+#define XK_filledrectbullet                            0xadb
+#define XK_filledlefttribullet                         0xadc
+#define XK_filledrighttribullet                        0xadd
+#define XK_emfilledcircle                              0xade
+#define XK_emfilledrect                                0xadf
+#define XK_enopencircbullet                            0xae0
+#define XK_enopensquarebullet                          0xae1
+#define XK_openrectbullet                              0xae2
+#define XK_opentribulletup                             0xae3
+#define XK_opentribulletdown                           0xae4
+#define XK_openstar                                    0xae5
+#define XK_enfilledcircbullet                          0xae6
+#define XK_enfilledsqbullet                            0xae7
+#define XK_filledtribulletup                           0xae8
+#define XK_filledtribulletdown                         0xae9
+#define XK_leftpointer                                 0xaea
+#define XK_rightpointer                                0xaeb
+#define XK_club                                        0xaec
+#define XK_diamond                                     0xaed
+#define XK_heart                                       0xaee
+#define XK_maltesecross                                0xaf0
+#define XK_dagger                                      0xaf1
+#define XK_doubledagger                                0xaf2
+#define XK_checkmark                                   0xaf3
+#define XK_ballotcross                                 0xaf4
+#define XK_musicalsharp                                0xaf5
+#define XK_musicalflat                                 0xaf6
+#define XK_malesymbol                                  0xaf7
+#define XK_femalesymbol                                0xaf8
+#define XK_telephone                                   0xaf9
+#define XK_telephonerecorder                           0xafa
+#define XK_phonographcopyright                         0xafb
+#define XK_caret                                       0xafc
+#define XK_singlelowquotemark                          0xafd
+#define XK_doublelowquotemark                          0xafe
+#define XK_cursor                                      0xaff
+#endif /* XK_PUBLISHING */
+
+/*
+ *  APL
+ *  Byte 3 = b
+ */
+
+#ifdef XK_APL
+#define XK_leftcaret                                   0xba3
+#define XK_rightcaret                                  0xba6
+#define XK_downcaret                                   0xba8
+#define XK_upcaret                                     0xba9
+#define XK_overbar                                     0xbc0
+#define XK_downtack                                    0xbc2
+#define XK_upshoe                                      0xbc3
+#define XK_downstile                                   0xbc4
+#define XK_underbar                                    0xbc6
+#define XK_jot                                         0xbca
+#define XK_quad                                        0xbcc
+#define XK_uptack                                      0xbce
+#define XK_circle                                      0xbcf
+#define XK_upstile                                     0xbd3
+#define XK_downshoe                                    0xbd6
+#define XK_rightshoe                                   0xbd8
+#define XK_leftshoe                                    0xbda
+#define XK_lefttack                                    0xbdc
+#define XK_righttack                                   0xbfc
+#endif /* XK_APL */
+
+/*
+ * Hebrew
+ * Byte 3 = c
+ */
+
+#ifdef XK_HEBREW
+#define XK_hebrew_doublelowline                        0xcdf
+#define XK_hebrew_aleph                                0xce0
+#define XK_hebrew_bet                                  0xce1
+#define XK_hebrew_beth                                 0xce1  /* deprecated */
+#define XK_hebrew_gimel                                0xce2
+#define XK_hebrew_gimmel                               0xce2  /* deprecated */
+#define XK_hebrew_dalet                                0xce3
+#define XK_hebrew_daleth                               0xce3  /* deprecated */
+#define XK_hebrew_he                                   0xce4
+#define XK_hebrew_waw                                  0xce5
+#define XK_hebrew_zain                                 0xce6
+#define XK_hebrew_zayin                                0xce6  /* deprecated */
+#define XK_hebrew_chet                                 0xce7
+#define XK_hebrew_het                                  0xce7  /* deprecated */
+#define XK_hebrew_tet                                  0xce8
+#define XK_hebrew_teth                                 0xce8  /* deprecated */
+#define XK_hebrew_yod                                  0xce9
+#define XK_hebrew_finalkaph                            0xcea
+#define XK_hebrew_kaph                                 0xceb
+#define XK_hebrew_lamed                                0xcec
+#define XK_hebrew_finalmem                             0xced
+#define XK_hebrew_mem                                  0xcee
+#define XK_hebrew_finalnun                             0xcef
+#define XK_hebrew_nun                                  0xcf0
+#define XK_hebrew_samech                               0xcf1
+#define XK_hebrew_samekh                               0xcf1  /* deprecated */
+#define XK_hebrew_ayin                                 0xcf2
+#define XK_hebrew_finalpe                              0xcf3
+#define XK_hebrew_pe                                   0xcf4
+#define XK_hebrew_finalzade                            0xcf5
+#define XK_hebrew_finalzadi                            0xcf5  /* deprecated */
+#define XK_hebrew_zade                                 0xcf6
+#define XK_hebrew_zadi                                 0xcf6  /* deprecated */
+#define XK_hebrew_qoph                                 0xcf7
+#define XK_hebrew_kuf                                  0xcf7  /* deprecated */
+#define XK_hebrew_resh                                 0xcf8
+#define XK_hebrew_shin                                 0xcf9
+#define XK_hebrew_taw                                  0xcfa
+#define XK_hebrew_taf                                  0xcfa  /* deprecated */
+#define XK_Hebrew_switch        0xFF7E  /* Alias for mode_switch */
+#endif /* XK_HEBREW */
+
diff --git a/Tk/xlib/X11/license.terms b/Tk/xlib/X11/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/xlib/X11/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/xlib/license.terms b/Tk/xlib/license.terms
new file mode 100644
index 0000000..03ca6fc
--- /dev/null
+++ b/Tk/xlib/license.terms
@@ -0,0 +1,39 @@
+This software is copyrighted by the Regents of the University of
+California, Sun Microsystems, Inc., and other parties.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+GOVERNMENT USE: If you are acquiring this software on behalf of the
+U.S. government, the Government shall have only "Restricted Rights"
+in the software and related documentation as defined in the Federal 
+Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2).  If you
+are acquiring the software on behalf of the Department of Defense, the
+software shall be classified as "Commercial Computer Software" and the
+Government shall have only "Restricted Rights" as defined in Clause
+252.227-7013 (c) (1) of DFARs.  Notwithstanding the foregoing, the
+authors grant the U.S. Government and others acting in its behalf
+permission to use and distribute the software in accordance with the
+terms specified in this license.
diff --git a/Tk/xlib/xbytes.h b/Tk/xlib/xbytes.h
new file mode 100644
index 0000000..6cf3d56
--- /dev/null
+++ b/Tk/xlib/xbytes.h
@@ -0,0 +1,58 @@
+/*
+ * xbytes.h --
+ *
+ *	Declaration of table to reverse bit order of bytes.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) xbytes.h 1.1 95/05/09 17:32:51
+ */
+
+#ifndef _XBYTES
+#define _XBYTES
+
+/*
+ * The bits in a byte can be reversed so the least significant becomes
+ * the most significant by indexing xBitReverseTable with the byte
+ * to be reversed.
+ */
+
+static unsigned char xBitReverseTable[256] = {
+    0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
+    0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
+    0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
+    0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
+    0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
+    0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
+    0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
+    0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
+    0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
+    0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
+    0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
+    0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
+    0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
+    0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
+    0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
+    0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
+    0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
+    0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
+    0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
+    0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
+    0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
+    0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
+    0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
+    0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
+    0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
+    0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
+    0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
+    0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
+    0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
+    0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
+    0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
+    0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
+};
+
+#endif /* _XBYTES */
diff --git a/Tk/xlib/xcolors.h b/Tk/xlib/xcolors.h
new file mode 100644
index 0000000..ad62d18
--- /dev/null
+++ b/Tk/xlib/xcolors.h
@@ -0,0 +1,771 @@
+/*
+ * xcolors.h --
+ *
+ *	This file defines the xColors array which contains RGB values
+ *	for the X color names.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) xcolors.h 1.1 95/02/08 11:29:12
+ */
+
+#ifndef _XCOLORS
+#define _XCOLORS
+
+/*
+ * Define X color names structure.
+ */
+
+typedef struct {
+    unsigned char red;
+    unsigned char green;
+    unsigned char blue;
+    char *name;
+} XColorEntry;
+
+static XColorEntry xColors[] = {
+    255, 250, 250, "snow",
+    248, 248, 255, "ghost white",
+    248, 248, 255, "GhostWhite",
+    245, 245, 245, "white smoke",
+    245, 245, 245, "WhiteSmoke",
+    220, 220, 220, "gainsboro",
+    255, 250, 240, "floral white",
+    255, 250, 240, "FloralWhite",
+    253, 245, 230, "old lace",
+    253, 245, 230, "OldLace",
+    250, 240, 230, "linen",
+    250, 235, 215, "antique white",
+    250, 235, 215, "AntiqueWhite",
+    255, 239, 213, "papaya whip",
+    255, 239, 213, "PapayaWhip",
+    255, 235, 205, "blanched almond",
+    255, 235, 205, "BlanchedAlmond",
+    255, 228, 196, "bisque",
+    255, 218, 185, "peach puff",
+    255, 218, 185, "PeachPuff",
+    255, 222, 173, "navajo white",
+    255, 222, 173, "NavajoWhite",
+    255, 228, 181, "moccasin",
+    255, 248, 220, "cornsilk",
+    255, 255, 240, "ivory",
+    255, 250, 205, "lemon chiffon",
+    255, 250, 205, "LemonChiffon",
+    255, 245, 238, "seashell",
+    240, 255, 240, "honeydew",
+    245, 255, 250, "mint cream",
+    245, 255, 250, "MintCream",
+    240, 255, 255, "azure",
+    240, 248, 255, "alice blue",
+    240, 248, 255, "AliceBlue",
+    230, 230, 250, "lavender",
+    255, 240, 245, "lavender blush",
+    255, 240, 245, "LavenderBlush",
+    255, 228, 225, "misty rose",
+    255, 228, 225, "MistyRose",
+    255, 255, 255, "white",
+    0, 0, 0, "black",
+    47, 79, 79, "dark slate gray",
+    47, 79, 79, "DarkSlateGray",
+    47, 79, 79, "dark slate grey",
+    47, 79, 79, "DarkSlateGrey",
+    105, 105, 105, "dim gray",
+    105, 105, 105, "DimGray",
+    105, 105, 105, "dim grey",
+    105, 105, 105, "DimGrey",
+    112, 128, 144, "slate gray",
+    112, 128, 144, "SlateGray",
+    112, 128, 144, "slate grey",
+    112, 128, 144, "SlateGrey",
+    119, 136, 153, "light slate gray",
+    119, 136, 153, "LightSlateGray",
+    119, 136, 153, "light slate grey",
+    119, 136, 153, "LightSlateGrey",
+    190, 190, 190, "gray",
+    190, 190, 190, "grey",
+    211, 211, 211, "light grey",
+    211, 211, 211, "LightGrey",
+    211, 211, 211, "light gray",
+    211, 211, 211, "LightGray",
+    25, 25, 112, "midnight blue",
+    25, 25, 112, "MidnightBlue",
+    0, 0, 128, "navy",
+    0, 0, 128, "navy blue",
+    0, 0, 128, "NavyBlue",
+    100, 149, 237, "cornflower blue",
+    100, 149, 237, "CornflowerBlue",
+    72, 61, 139, "dark slate blue",
+    72, 61, 139, "DarkSlateBlue",
+    106, 90, 205, "slate blue",
+    106, 90, 205, "SlateBlue",
+    123, 104, 238, "medium slate blue",
+    123, 104, 238, "MediumSlateBlue",
+    132, 112, 255, "light slate blue",
+    132, 112, 255, "LightSlateBlue",
+    0, 0, 205, "medium blue",
+    0, 0, 205, "MediumBlue",
+    65, 105, 225, "royal blue",
+    65, 105, 225, "RoyalBlue",
+    0, 0, 255, "blue",
+    30, 144, 255, "dodger blue",
+    30, 144, 255, "DodgerBlue",
+    0, 191, 255, "deep sky blue",
+    0, 191, 255, "DeepSkyBlue",
+    135, 206, 235, "sky blue",
+    135, 206, 235, "SkyBlue",
+    135, 206, 250, "light sky blue",
+    135, 206, 250, "LightSkyBlue",
+    70, 130, 180, "steel blue",
+    70, 130, 180, "SteelBlue",
+    176, 196, 222, "light steel blue",
+    176, 196, 222, "LightSteelBlue",
+    173, 216, 230, "light blue",
+    173, 216, 230, "LightBlue",
+    176, 224, 230, "powder blue",
+    176, 224, 230, "PowderBlue",
+    175, 238, 238, "pale turquoise",
+    175, 238, 238, "PaleTurquoise",
+    0, 206, 209, "dark turquoise",
+    0, 206, 209, "DarkTurquoise",
+    72, 209, 204, "medium turquoise",
+    72, 209, 204, "MediumTurquoise",
+    64, 224, 208, "turquoise",
+    0, 255, 255, "cyan",
+    224, 255, 255, "light cyan",
+    224, 255, 255, "LightCyan",
+    95, 158, 160, "cadet blue",
+    95, 158, 160, "CadetBlue",
+    102, 205, 170, "medium aquamarine",
+    102, 205, 170, "MediumAquamarine",
+    127, 255, 212, "aquamarine",
+    0, 100, 0, "dark green",
+    0, 100, 0, "DarkGreen",
+    85, 107, 47, "dark olive green",
+    85, 107, 47, "DarkOliveGreen",
+    143, 188, 143, "dark sea green",
+    143, 188, 143, "DarkSeaGreen",
+    46, 139, 87, "sea green",
+    46, 139, 87, "SeaGreen",
+    60, 179, 113, "medium sea green",
+    60, 179, 113, "MediumSeaGreen",
+    32, 178, 170, "light sea green",
+    32, 178, 170, "LightSeaGreen",
+    152, 251, 152, "pale green",
+    152, 251, 152, "PaleGreen",
+    0, 255, 127, "spring green",
+    0, 255, 127, "SpringGreen",
+    124, 252, 0, "lawn green",
+    124, 252, 0, "LawnGreen",
+    0, 255, 0, "green",
+    127, 255, 0, "chartreuse",
+    0, 250, 154, "medium spring green",
+    0, 250, 154, "MediumSpringGreen",
+    173, 255, 47, "green yellow",
+    173, 255, 47, "GreenYellow",
+    50, 205, 50, "lime green",
+    50, 205, 50, "LimeGreen",
+    154, 205, 50, "yellow green",
+    154, 205, 50, "YellowGreen",
+    34, 139, 34, "forest green",
+    34, 139, 34, "ForestGreen",
+    107, 142, 35, "olive drab",
+    107, 142, 35, "OliveDrab",
+    189, 183, 107, "dark khaki",
+    189, 183, 107, "DarkKhaki",
+    240, 230, 140, "khaki",
+    238, 232, 170, "pale goldenrod",
+    238, 232, 170, "PaleGoldenrod",
+    250, 250, 210, "light goldenrod yellow",
+    250, 250, 210, "LightGoldenrodYellow",
+    255, 255, 224, "light yellow",
+    255, 255, 224, "LightYellow",
+    255, 255, 0, "yellow",
+    255, 215, 0, "gold",
+    238, 221, 130, "light goldenrod",
+    238, 221, 130, "LightGoldenrod",
+    218, 165, 32, "goldenrod",
+    184, 134, 11, "dark goldenrod",
+    184, 134, 11, "DarkGoldenrod",
+    188, 143, 143, "rosy brown",
+    188, 143, 143, "RosyBrown",
+    205, 92, 92, "indian red",
+    205, 92, 92, "IndianRed",
+    139, 69, 19, "saddle brown",
+    139, 69, 19, "SaddleBrown",
+    160, 82, 45, "sienna",
+    205, 133, 63, "peru",
+    222, 184, 135, "burlywood",
+    245, 245, 220, "beige",
+    245, 222, 179, "wheat",
+    244, 164, 96, "sandy brown",
+    244, 164, 96, "SandyBrown",
+    210, 180, 140, "tan",
+    210, 105, 30, "chocolate",
+    178, 34, 34, "firebrick",
+    165, 42, 42, "brown",
+    233, 150, 122, "dark salmon",
+    233, 150, 122, "DarkSalmon",
+    250, 128, 114, "salmon",
+    255, 160, 122, "light salmon",
+    255, 160, 122, "LightSalmon",
+    255, 165, 0, "orange",
+    255, 140, 0, "dark orange",
+    255, 140, 0, "DarkOrange",
+    255, 127, 80, "coral",
+    240, 128, 128, "light coral",
+    240, 128, 128, "LightCoral",
+    255, 99, 71, "tomato",
+    255, 69, 0, "orange red",
+    255, 69, 0, "OrangeRed",
+    255, 0, 0, "red",
+    255, 105, 180, "hot pink",
+    255, 105, 180, "HotPink",
+    255, 20, 147, "deep pink",
+    255, 20, 147, "DeepPink",
+    255, 192, 203, "pink",
+    255, 182, 193, "light pink",
+    255, 182, 193, "LightPink",
+    219, 112, 147, "pale violet red",
+    219, 112, 147, "PaleVioletRed",
+    176, 48, 96, "maroon",
+    199, 21, 133, "medium violet red",
+    199, 21, 133, "MediumVioletRed",
+    208, 32, 144, "violet red",
+    208, 32, 144, "VioletRed",
+    255, 0, 255, "magenta",
+    238, 130, 238, "violet",
+    221, 160, 221, "plum",
+    218, 112, 214, "orchid",
+    186, 85, 211, "medium orchid",
+    186, 85, 211, "MediumOrchid",
+    153, 50, 204, "dark orchid",
+    153, 50, 204, "DarkOrchid",
+    148, 0, 211, "dark violet",
+    148, 0, 211, "DarkViolet",
+    138, 43, 226, "blue violet",
+    138, 43, 226, "BlueViolet",
+    160, 32, 240, "purple",
+    147, 112, 219, "medium purple",
+    147, 112, 219, "MediumPurple",
+    216, 191, 216, "thistle",
+    255, 250, 250, "snow1",
+    238, 233, 233, "snow2",
+    205, 201, 201, "snow3",
+    139, 137, 137, "snow4",
+    255, 245, 238, "seashell1",
+    238, 229, 222, "seashell2",
+    205, 197, 191, "seashell3",
+    139, 134, 130, "seashell4",
+    255, 239, 219, "AntiqueWhite1",
+    238, 223, 204, "AntiqueWhite2",
+    205, 192, 176, "AntiqueWhite3",
+    139, 131, 120, "AntiqueWhite4",
+    255, 228, 196, "bisque1",
+    238, 213, 183, "bisque2",
+    205, 183, 158, "bisque3",
+    139, 125, 107, "bisque4",
+    255, 218, 185, "PeachPuff1",
+    238, 203, 173, "PeachPuff2",
+    205, 175, 149, "PeachPuff3",
+    139, 119, 101, "PeachPuff4",
+    255, 222, 173, "NavajoWhite1",
+    238, 207, 161, "NavajoWhite2",
+    205, 179, 139, "NavajoWhite3",
+    139, 121, 94, "NavajoWhite4",
+    255, 250, 205, "LemonChiffon1",
+    238, 233, 191, "LemonChiffon2",
+    205, 201, 165, "LemonChiffon3",
+    139, 137, 112, "LemonChiffon4",
+    255, 248, 220, "cornsilk1",
+    238, 232, 205, "cornsilk2",
+    205, 200, 177, "cornsilk3",
+    139, 136, 120, "cornsilk4",
+    255, 255, 240, "ivory1",
+    238, 238, 224, "ivory2",
+    205, 205, 193, "ivory3",
+    139, 139, 131, "ivory4",
+    240, 255, 240, "honeydew1",
+    224, 238, 224, "honeydew2",
+    193, 205, 193, "honeydew3",
+    131, 139, 131, "honeydew4",
+    255, 240, 245, "LavenderBlush1",
+    238, 224, 229, "LavenderBlush2",
+    205, 193, 197, "LavenderBlush3",
+    139, 131, 134, "LavenderBlush4",
+    255, 228, 225, "MistyRose1",
+    238, 213, 210, "MistyRose2",
+    205, 183, 181, "MistyRose3",
+    139, 125, 123, "MistyRose4",
+    240, 255, 255, "azure1",
+    224, 238, 238, "azure2",
+    193, 205, 205, "azure3",
+    131, 139, 139, "azure4",
+    131, 111, 255, "SlateBlue1",
+    122, 103, 238, "SlateBlue2",
+    105, 89, 205, "SlateBlue3",
+    71, 60, 139, "SlateBlue4",
+    72, 118, 255, "RoyalBlue1",
+    67, 110, 238, "RoyalBlue2",
+    58, 95, 205, "RoyalBlue3",
+    39, 64, 139, "RoyalBlue4",
+    0, 0, 255, "blue1",
+    0, 0, 238, "blue2",
+    0, 0, 205, "blue3",
+    0, 0, 139, "blue4",
+    30, 144, 255, "DodgerBlue1",
+    28, 134, 238, "DodgerBlue2",
+    24, 116, 205, "DodgerBlue3",
+    16, 78, 139, "DodgerBlue4",
+    99, 184, 255, "SteelBlue1",
+    92, 172, 238, "SteelBlue2",
+    79, 148, 205, "SteelBlue3",
+    54, 100, 139, "SteelBlue4",
+    0, 191, 255, "DeepSkyBlue1",
+    0, 178, 238, "DeepSkyBlue2",
+    0, 154, 205, "DeepSkyBlue3",
+    0, 104, 139, "DeepSkyBlue4",
+    135, 206, 255, "SkyBlue1",
+    126, 192, 238, "SkyBlue2",
+    108, 166, 205, "SkyBlue3",
+    74, 112, 139, "SkyBlue4",
+    176, 226, 255, "LightSkyBlue1",
+    164, 211, 238, "LightSkyBlue2",
+    141, 182, 205, "LightSkyBlue3",
+    96, 123, 139, "LightSkyBlue4",
+    198, 226, 255, "SlateGray1",
+    185, 211, 238, "SlateGray2",
+    159, 182, 205, "SlateGray3",
+    108, 123, 139, "SlateGray4",
+    202, 225, 255, "LightSteelBlue1",
+    188, 210, 238, "LightSteelBlue2",
+    162, 181, 205, "LightSteelBlue3",
+    110, 123, 139, "LightSteelBlue4",
+    191, 239, 255, "LightBlue1",
+    178, 223, 238, "LightBlue2",
+    154, 192, 205, "LightBlue3",
+    104, 131, 139, "LightBlue4",
+    224, 255, 255, "LightCyan1",
+    209, 238, 238, "LightCyan2",
+    180, 205, 205, "LightCyan3",
+    122, 139, 139, "LightCyan4",
+    187, 255, 255, "PaleTurquoise1",
+    174, 238, 238, "PaleTurquoise2",
+    150, 205, 205, "PaleTurquoise3",
+    102, 139, 139, "PaleTurquoise4",
+    152, 245, 255, "CadetBlue1",
+    142, 229, 238, "CadetBlue2",
+    122, 197, 205, "CadetBlue3",
+    83, 134, 139, "CadetBlue4",
+    0, 245, 255, "turquoise1",
+    0, 229, 238, "turquoise2",
+    0, 197, 205, "turquoise3",
+    0, 134, 139, "turquoise4",
+    0, 255, 255, "cyan1",
+    0, 238, 238, "cyan2",
+    0, 205, 205, "cyan3",
+    0, 139, 139, "cyan4",
+    151, 255, 255, "DarkSlateGray1",
+    141, 238, 238, "DarkSlateGray2",
+    121, 205, 205, "DarkSlateGray3",
+    82, 139, 139, "DarkSlateGray4",
+    127, 255, 212, "aquamarine1",
+    118, 238, 198, "aquamarine2",
+    102, 205, 170, "aquamarine3",
+    69, 139, 116, "aquamarine4",
+    193, 255, 193, "DarkSeaGreen1",
+    180, 238, 180, "DarkSeaGreen2",
+    155, 205, 155, "DarkSeaGreen3",
+    105, 139, 105, "DarkSeaGreen4",
+    84, 255, 159, "SeaGreen1",
+    78, 238, 148, "SeaGreen2",
+    67, 205, 128, "SeaGreen3",
+    46, 139, 87, "SeaGreen4",
+    154, 255, 154, "PaleGreen1",
+    144, 238, 144, "PaleGreen2",
+    124, 205, 124, "PaleGreen3",
+    84, 139, 84, "PaleGreen4",
+    0, 255, 127, "SpringGreen1",
+    0, 238, 118, "SpringGreen2",
+    0, 205, 102, "SpringGreen3",
+    0, 139, 69, "SpringGreen4",
+    0, 255, 0, "green1",
+    0, 238, 0, "green2",
+    0, 205, 0, "green3",
+    0, 139, 0, "green4",
+    127, 255, 0, "chartreuse1",
+    118, 238, 0, "chartreuse2",
+    102, 205, 0, "chartreuse3",
+    69, 139, 0, "chartreuse4",
+    192, 255, 62, "OliveDrab1",
+    179, 238, 58, "OliveDrab2",
+    154, 205, 50, "OliveDrab3",
+    105, 139, 34, "OliveDrab4",
+    202, 255, 112, "DarkOliveGreen1",
+    188, 238, 104, "DarkOliveGreen2",
+    162, 205, 90, "DarkOliveGreen3",
+    110, 139, 61, "DarkOliveGreen4",
+    255, 246, 143, "khaki1",
+    238, 230, 133, "khaki2",
+    205, 198, 115, "khaki3",
+    139, 134, 78, "khaki4",
+    255, 236, 139, "LightGoldenrod1",
+    238, 220, 130, "LightGoldenrod2",
+    205, 190, 112, "LightGoldenrod3",
+    139, 129, 76, "LightGoldenrod4",
+    255, 255, 224, "LightYellow1",
+    238, 238, 209, "LightYellow2",
+    205, 205, 180, "LightYellow3",
+    139, 139, 122, "LightYellow4",
+    255, 255, 0, "yellow1",
+    238, 238, 0, "yellow2",
+    205, 205, 0, "yellow3",
+    139, 139, 0, "yellow4",
+    255, 215, 0, "gold1",
+    238, 201, 0, "gold2",
+    205, 173, 0, "gold3",
+    139, 117, 0, "gold4",
+    255, 193, 37, "goldenrod1",
+    238, 180, 34, "goldenrod2",
+    205, 155, 29, "goldenrod3",
+    139, 105, 20, "goldenrod4",
+    255, 185, 15, "DarkGoldenrod1",
+    238, 173, 14, "DarkGoldenrod2",
+    205, 149, 12, "DarkGoldenrod3",
+    139, 101, 8, "DarkGoldenrod4",
+    255, 193, 193, "RosyBrown1",
+    238, 180, 180, "RosyBrown2",
+    205, 155, 155, "RosyBrown3",
+    139, 105, 105, "RosyBrown4",
+    255, 106, 106, "IndianRed1",
+    238, 99, 99, "IndianRed2",
+    205, 85, 85, "IndianRed3",
+    139, 58, 58, "IndianRed4",
+    255, 130, 71, "sienna1",
+    238, 121, 66, "sienna2",
+    205, 104, 57, "sienna3",
+    139, 71, 38, "sienna4",
+    255, 211, 155, "burlywood1",
+    238, 197, 145, "burlywood2",
+    205, 170, 125, "burlywood3",
+    139, 115, 85, "burlywood4",
+    255, 231, 186, "wheat1",
+    238, 216, 174, "wheat2",
+    205, 186, 150, "wheat3",
+    139, 126, 102, "wheat4",
+    255, 165, 79, "tan1",
+    238, 154, 73, "tan2",
+    205, 133, 63, "tan3",
+    139, 90, 43, "tan4",
+    255, 127, 36, "chocolate1",
+    238, 118, 33, "chocolate2",
+    205, 102, 29, "chocolate3",
+    139, 69, 19, "chocolate4",
+    255, 48, 48, "firebrick1",
+    238, 44, 44, "firebrick2",
+    205, 38, 38, "firebrick3",
+    139, 26, 26, "firebrick4",
+    255, 64, 64, "brown1",
+    238, 59, 59, "brown2",
+    205, 51, 51, "brown3",
+    139, 35, 35, "brown4",
+    255, 140, 105, "salmon1",
+    238, 130, 98, "salmon2",
+    205, 112, 84, "salmon3",
+    139, 76, 57, "salmon4",
+    255, 160, 122, "LightSalmon1",
+    238, 149, 114, "LightSalmon2",
+    205, 129, 98, "LightSalmon3",
+    139, 87, 66, "LightSalmon4",
+    255, 165, 0, "orange1",
+    238, 154, 0, "orange2",
+    205, 133, 0, "orange3",
+    139, 90, 0, "orange4",
+    255, 127, 0, "DarkOrange1",
+    238, 118, 0, "DarkOrange2",
+    205, 102, 0, "DarkOrange3",
+    139, 69, 0, "DarkOrange4",
+    255, 114, 86, "coral1",
+    238, 106, 80, "coral2",
+    205, 91, 69, "coral3",
+    139, 62, 47, "coral4",
+    255, 99, 71, "tomato1",
+    238, 92, 66, "tomato2",
+    205, 79, 57, "tomato3",
+    139, 54, 38, "tomato4",
+    255, 69, 0, "OrangeRed1",
+    238, 64, 0, "OrangeRed2",
+    205, 55, 0, "OrangeRed3",
+    139, 37, 0, "OrangeRed4",
+    255, 0, 0, "red1",
+    238, 0, 0, "red2",
+    205, 0, 0, "red3",
+    139, 0, 0, "red4",
+    255, 20, 147, "DeepPink1",
+    238, 18, 137, "DeepPink2",
+    205, 16, 118, "DeepPink3",
+    139, 10, 80, "DeepPink4",
+    255, 110, 180, "HotPink1",
+    238, 106, 167, "HotPink2",
+    205, 96, 144, "HotPink3",
+    139, 58, 98, "HotPink4",
+    255, 181, 197, "pink1",
+    238, 169, 184, "pink2",
+    205, 145, 158, "pink3",
+    139, 99, 108, "pink4",
+    255, 174, 185, "LightPink1",
+    238, 162, 173, "LightPink2",
+    205, 140, 149, "LightPink3",
+    139, 95, 101, "LightPink4",
+    255, 130, 171, "PaleVioletRed1",
+    238, 121, 159, "PaleVioletRed2",
+    205, 104, 137, "PaleVioletRed3",
+    139, 71, 93, "PaleVioletRed4",
+    255, 52, 179, "maroon1",
+    238, 48, 167, "maroon2",
+    205, 41, 144, "maroon3",
+    139, 28, 98, "maroon4",
+    255, 62, 150, "VioletRed1",
+    238, 58, 140, "VioletRed2",
+    205, 50, 120, "VioletRed3",
+    139, 34, 82, "VioletRed4",
+    255, 0, 255, "magenta1",
+    238, 0, 238, "magenta2",
+    205, 0, 205, "magenta3",
+    139, 0, 139, "magenta4",
+    255, 131, 250, "orchid1",
+    238, 122, 233, "orchid2",
+    205, 105, 201, "orchid3",
+    139, 71, 137, "orchid4",
+    255, 187, 255, "plum1",
+    238, 174, 238, "plum2",
+    205, 150, 205, "plum3",
+    139, 102, 139, "plum4",
+    224, 102, 255, "MediumOrchid1",
+    209, 95, 238, "MediumOrchid2",
+    180, 82, 205, "MediumOrchid3",
+    122, 55, 139, "MediumOrchid4",
+    191, 62, 255, "DarkOrchid1",
+    178, 58, 238, "DarkOrchid2",
+    154, 50, 205, "DarkOrchid3",
+    104, 34, 139, "DarkOrchid4",
+    155, 48, 255, "purple1",
+    145, 44, 238, "purple2",
+    125, 38, 205, "purple3",
+    85, 26, 139, "purple4",
+    171, 130, 255, "MediumPurple1",
+    159, 121, 238, "MediumPurple2",
+    137, 104, 205, "MediumPurple3",
+    93, 71, 139, "MediumPurple4",
+    255, 225, 255, "thistle1",
+    238, 210, 238, "thistle2",
+    205, 181, 205, "thistle3",
+    139, 123, 139, "thistle4",
+    0, 0, 0, "gray0",
+    0, 0, 0, "grey0",
+    3, 3, 3, "gray1",
+    3, 3, 3, "grey1",
+    5, 5, 5, "gray2",
+    5, 5, 5, "grey2",
+    8, 8, 8, "gray3",
+    8, 8, 8, "grey3",
+    10, 10, 10, "gray4",
+    10, 10, 10, "grey4",
+    13, 13, 13, "gray5",
+    13, 13, 13, "grey5",
+    15, 15, 15, "gray6",
+    15, 15, 15, "grey6",
+    18, 18, 18, "gray7",
+    18, 18, 18, "grey7",
+    20, 20, 20, "gray8",
+    20, 20, 20, "grey8",
+    23, 23, 23, "gray9",
+    23, 23, 23, "grey9",
+    26, 26, 26, "gray10",
+    26, 26, 26, "grey10",
+    28, 28, 28, "gray11",
+    28, 28, 28, "grey11",
+    31, 31, 31, "gray12",
+    31, 31, 31, "grey12",
+    33, 33, 33, "gray13",
+    33, 33, 33, "grey13",
+    36, 36, 36, "gray14",
+    36, 36, 36, "grey14",
+    38, 38, 38, "gray15",
+    38, 38, 38, "grey15",
+    41, 41, 41, "gray16",
+    41, 41, 41, "grey16",
+    43, 43, 43, "gray17",
+    43, 43, 43, "grey17",
+    46, 46, 46, "gray18",
+    46, 46, 46, "grey18",
+    48, 48, 48, "gray19",
+    48, 48, 48, "grey19",
+    51, 51, 51, "gray20",
+    51, 51, 51, "grey20",
+    54, 54, 54, "gray21",
+    54, 54, 54, "grey21",
+    56, 56, 56, "gray22",
+    56, 56, 56, "grey22",
+    59, 59, 59, "gray23",
+    59, 59, 59, "grey23",
+    61, 61, 61, "gray24",
+    61, 61, 61, "grey24",
+    64, 64, 64, "gray25",
+    64, 64, 64, "grey25",
+    66, 66, 66, "gray26",
+    66, 66, 66, "grey26",
+    69, 69, 69, "gray27",
+    69, 69, 69, "grey27",
+    71, 71, 71, "gray28",
+    71, 71, 71, "grey28",
+    74, 74, 74, "gray29",
+    74, 74, 74, "grey29",
+    77, 77, 77, "gray30",
+    77, 77, 77, "grey30",
+    79, 79, 79, "gray31",
+    79, 79, 79, "grey31",
+    82, 82, 82, "gray32",
+    82, 82, 82, "grey32",
+    84, 84, 84, "gray33",
+    84, 84, 84, "grey33",
+    87, 87, 87, "gray34",
+    87, 87, 87, "grey34",
+    89, 89, 89, "gray35",
+    89, 89, 89, "grey35",
+    92, 92, 92, "gray36",
+    92, 92, 92, "grey36",
+    94, 94, 94, "gray37",
+    94, 94, 94, "grey37",
+    97, 97, 97, "gray38",
+    97, 97, 97, "grey38",
+    99, 99, 99, "gray39",
+    99, 99, 99, "grey39",
+    102, 102, 102, "gray40",
+    102, 102, 102, "grey40",
+    105, 105, 105, "gray41",
+    105, 105, 105, "grey41",
+    107, 107, 107, "gray42",
+    107, 107, 107, "grey42",
+    110, 110, 110, "gray43",
+    110, 110, 110, "grey43",
+    112, 112, 112, "gray44",
+    112, 112, 112, "grey44",
+    115, 115, 115, "gray45",
+    115, 115, 115, "grey45",
+    117, 117, 117, "gray46",
+    117, 117, 117, "grey46",
+    120, 120, 120, "gray47",
+    120, 120, 120, "grey47",
+    122, 122, 122, "gray48",
+    122, 122, 122, "grey48",
+    125, 125, 125, "gray49",
+    125, 125, 125, "grey49",
+    127, 127, 127, "gray50",
+    127, 127, 127, "grey50",
+    130, 130, 130, "gray51",
+    130, 130, 130, "grey51",
+    133, 133, 133, "gray52",
+    133, 133, 133, "grey52",
+    135, 135, 135, "gray53",
+    135, 135, 135, "grey53",
+    138, 138, 138, "gray54",
+    138, 138, 138, "grey54",
+    140, 140, 140, "gray55",
+    140, 140, 140, "grey55",
+    143, 143, 143, "gray56",
+    143, 143, 143, "grey56",
+    145, 145, 145, "gray57",
+    145, 145, 145, "grey57",
+    148, 148, 148, "gray58",
+    148, 148, 148, "grey58",
+    150, 150, 150, "gray59",
+    150, 150, 150, "grey59",
+    153, 153, 153, "gray60",
+    153, 153, 153, "grey60",
+    156, 156, 156, "gray61",
+    156, 156, 156, "grey61",
+    158, 158, 158, "gray62",
+    158, 158, 158, "grey62",
+    161, 161, 161, "gray63",
+    161, 161, 161, "grey63",
+    163, 163, 163, "gray64",
+    163, 163, 163, "grey64",
+    166, 166, 166, "gray65",
+    166, 166, 166, "grey65",
+    168, 168, 168, "gray66",
+    168, 168, 168, "grey66",
+    171, 171, 171, "gray67",
+    171, 171, 171, "grey67",
+    173, 173, 173, "gray68",
+    173, 173, 173, "grey68",
+    176, 176, 176, "gray69",
+    176, 176, 176, "grey69",
+    179, 179, 179, "gray70",
+    179, 179, 179, "grey70",
+    181, 181, 181, "gray71",
+    181, 181, 181, "grey71",
+    184, 184, 184, "gray72",
+    184, 184, 184, "grey72",
+    186, 186, 186, "gray73",
+    186, 186, 186, "grey73",
+    189, 189, 189, "gray74",
+    189, 189, 189, "grey74",
+    191, 191, 191, "gray75",
+    191, 191, 191, "grey75",
+    194, 194, 194, "gray76",
+    194, 194, 194, "grey76",
+    196, 196, 196, "gray77",
+    196, 196, 196, "grey77",
+    199, 199, 199, "gray78",
+    199, 199, 199, "grey78",
+    201, 201, 201, "gray79",
+    201, 201, 201, "grey79",
+    204, 204, 204, "gray80",
+    204, 204, 204, "grey80",
+    207, 207, 207, "gray81",
+    207, 207, 207, "grey81",
+    209, 209, 209, "gray82",
+    209, 209, 209, "grey82",
+    212, 212, 212, "gray83",
+    212, 212, 212, "grey83",
+    214, 214, 214, "gray84",
+    214, 214, 214, "grey84",
+    217, 217, 217, "gray85",
+    217, 217, 217, "grey85",
+    219, 219, 219, "gray86",
+    219, 219, 219, "grey86",
+    222, 222, 222, "gray87",
+    222, 222, 222, "grey87",
+    224, 224, 224, "gray88",
+    224, 224, 224, "grey88",
+    227, 227, 227, "gray89",
+    227, 227, 227, "grey89",
+    229, 229, 229, "gray90",
+    229, 229, 229, "grey90",
+    232, 232, 232, "gray91",
+    232, 232, 232, "grey91",
+    235, 235, 235, "gray92",
+    235, 235, 235, "grey92",
+    237, 237, 237, "gray93",
+    237, 237, 237, "grey93",
+    240, 240, 240, "gray94",
+    240, 240, 240, "grey94",
+    242, 242, 242, "gray95",
+    242, 242, 242, "grey95",
+    245, 245, 245, "gray96",
+    245, 245, 245, "grey96",
+    247, 247, 247, "gray97",
+    247, 247, 247, "grey97",
+    250, 250, 250, "gray98",
+    250, 250, 250, "grey98",
+    252, 252, 252, "gray99",
+    252, 252, 252, "grey99",
+    255, 255, 255, "gray100",
+    255, 255, 255, "grey100",
+    0, 0, 0, NULL
+};
+
+#endif /* _XCOLORS */
diff --git a/Tk/xlib/xdraw.c b/Tk/xlib/xdraw.c
new file mode 100644
index 0000000..8e78011
--- /dev/null
+++ b/Tk/xlib/xdraw.c
@@ -0,0 +1,82 @@
+/* 
+ * xdraw.c --
+ *
+ *	This file contains generic procedures related to X drawing
+ *	primitives.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) xdraw.c 1.2 96/02/15 18:55:46
+ */
+
+#include "tk.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawLine --
+ *
+ *	Draw a single line between two points in a given drawable. 
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws a single line segment.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XDrawLine(display, d, gc, x1, y1, x2, y2)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x1, y1, x2, y2;		/* Coordinates of line segment. */
+{
+    XPoint points[2];
+
+    points[0].x = x1;
+    points[0].y = y1;
+    points[1].x = x2;
+    points[1].y = y2;
+    XDrawLines(display, d, gc, points, 2, CoordModeOrigin);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFillRectangle --
+ *
+ *	Fills a rectangular area in the given drawable.  This procedure
+ *	is implemented as a call to XFillRectangles.
+ *
+ * Results:
+ *	None
+ *
+ * Side effects:
+ *	Fills the specified rectangle.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFillRectangle(display, d, gc, x, y, width, height)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+    unsigned int width;
+    unsigned int height;
+{
+    XRectangle rectangle;
+    rectangle.x = x;
+    rectangle.y = y;
+    rectangle.width = width;
+    rectangle.height = height;
+    XFillRectangles(display, d, gc, &rectangle, 1);
+}
diff --git a/Tk/xlib/xgc.c b/Tk/xlib/xgc.c
new file mode 100644
index 0000000..bb93a72
--- /dev/null
+++ b/Tk/xlib/xgc.c
@@ -0,0 +1,231 @@
+/* 
+ * xgc.c --
+ *
+ *	This file contains generic routines for manipulating X graphics
+ *	contexts. 
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) xgc.c 1.5 96/03/08 11:47:03
+ */
+
+#include <stdlib.h>
+#include <tk.h>
+
+#ifdef MAC_TCL
+#	include <Xlib.h>
+#else
+#	include <X11/Xlib.h>
+#endif
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCreateGC --
+ *
+ *	Allocate a new GC, and initialize the specified fields.
+ *
+ * Results:
+ *	Returns a newly allocated GC. 
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+GC
+XCreateGC(display, d, mask, values)
+    Display* display;
+    Drawable d;
+    unsigned long mask;
+    XGCValues* values;
+{
+    GC gp;
+
+    gp = (XGCValues *)ckalloc(sizeof(XGCValues));
+    if (!gp) {
+	return None;
+    }
+
+    gp->function = 	(mask & GCFunction) 	?values->function	:GXcopy;
+    gp->plane_mask = 	(mask & GCPlaneMask) 	?values->plane_mask 	:~0;
+    gp->foreground = 	(mask & GCForeground) 	?values->foreground 	:0;
+    gp->background = 	(mask & GCBackground) 	?values->background 	:0xffffff;
+    gp->line_width = 	(mask & GCLineWidth)	?values->line_width	:0;	
+    gp->line_style = 	(mask & GCLineStyle)	?values->line_style	:LineSolid;
+    gp->cap_style =  	(mask & GCCapStyle)	?values->cap_style	:0;
+    gp->join_style = 	(mask & GCJoinStyle)	?values->join_style	:0;
+    gp->fill_style =  	(mask & GCFillStyle)	?values->fill_style	:FillSolid;
+    gp->fill_rule =  	(mask & GCFillRule)	?values->fill_rule	:WindingRule;
+    gp->arc_mode = 	(mask & GCArcMode)	?values->arc_mode	:ArcPieSlice;
+    gp->tile = 		(mask & GCTile)		?values->tile		:None;
+    gp->stipple = 	(mask & GCStipple)	?values->stipple	:None;
+    gp->ts_x_origin = 	(mask & GCTileStipXOrigin)	?values->ts_x_origin:0;
+    gp->ts_y_origin = 	(mask & GCTileStipYOrigin)	?values->ts_y_origin:0;
+    gp->font = 		(mask & GCFont)		?values->font		:None;
+    gp->subwindow_mode = (mask & GCSubwindowMode)?values->subwindow_mode:ClipByChildren;
+    gp->graphics_exposures = (mask & GCGraphicsExposures)?values->graphics_exposures:True;
+    gp->clip_x_origin = (mask & GCClipXOrigin)	?values->clip_x_origin	:0;
+    gp->clip_y_origin = (mask & GCClipYOrigin)	?values->clip_y_origin	:0;
+    gp->clip_mask = 	(mask & GCClipMask)	?values->clip_mask	:None;
+    gp->dash_offset = 	(mask & GCDashOffset)	?values->dash_offset	:0;
+    gp->dashes = 	(mask & GCDashList)	?values->dashes		:4;
+
+    return gp;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFreeGC --
+ *
+ *	Deallocates the specified graphics context.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+XFreeGC(d, gc)
+    Display * d;
+    GC gc;
+{
+    if (gc != None) {
+	ckfree((char *) gc);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XSetForeground, etc. --
+ *
+ *	The following functions are simply accessor functions for
+ *	the GC slots.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Each function sets some slot in the GC.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void 
+XSetForeground(display, gc, foreground)
+    Display *display;
+    GC gc;
+    unsigned long foreground;
+{
+    gc->foreground = foreground;
+}
+
+void 
+XSetBackground(display, gc, background)
+    Display *display;
+    GC gc;
+    unsigned long background;
+{
+    gc->background = background;
+}
+
+void
+XSetFunction(display, gc, function)
+    Display *display;
+    GC gc;
+    int function;
+{
+    gc->function = function;
+}
+
+void
+XSetFillRule(display, gc, fill_rule)
+    Display *display;
+    GC gc;
+    int fill_rule;
+{
+    gc->fill_rule = fill_rule;
+}
+
+void
+XSetFillStyle(display, gc, fill_style)
+    Display *display;
+    GC gc;
+    int fill_style;
+{
+    gc->fill_style = fill_style;
+}
+
+void
+XSetTSOrigin(display, gc, x, y)
+    Display *display;
+    GC gc;
+    int x, y;
+{
+    gc->ts_x_origin = x;
+    gc->ts_y_origin = y;
+}
+
+void
+XSetArcMode(display, gc, arc_mode)
+    Display *display;
+    GC gc;
+    int arc_mode;
+{
+    gc->arc_mode = arc_mode;
+}
+
+void
+XSetStipple(display, gc, stipple)
+    Display *display;
+    GC gc;
+    Pixmap stipple;
+{
+    gc->stipple = stipple;
+}
+
+void
+XSetLineAttributes(display, gc, line_width, line_style, cap_style,
+	join_style)
+    Display *display;
+    GC gc;
+    unsigned int line_width;
+    int line_style;
+    int cap_style;
+    int join_style;
+{
+    gc->line_style = line_style;
+    gc->cap_style = cap_style;
+    gc->join_style = join_style;
+}
+
+void
+XSetClipMask(display, gc, pixmap)
+    Display* display;
+    GC gc;
+    Pixmap pixmap;
+{
+    gc->clip_mask = pixmap;
+}
+
+void
+XSetClipOrigin(display, gc, clip_x_origin, clip_y_origin)
+    Display* display;
+    GC gc;
+    int clip_x_origin;
+    int clip_y_origin;
+{
+    gc->clip_x_origin = clip_x_origin;
+    gc->clip_y_origin = clip_y_origin;
+}
diff --git a/Tk/xlib/ximage.c b/Tk/xlib/ximage.c
new file mode 100644
index 0000000..057e973
--- /dev/null
+++ b/Tk/xlib/ximage.c
@@ -0,0 +1,115 @@
+/* 
+ * ximage.c --
+ *
+ *	X bitmap and image routines.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) ximage.c 1.6 96/07/23 16:59:10
+ */
+
+#include "tkInt.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XCreateBitmapFromData --
+ *
+ *	Construct a single plane pixmap from bitmap data.
+ *
+ * Results:
+ *	Returns a new Pixmap.
+ *
+ * Side effects:
+ *	Allocates a new bitmap and drawable.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Pixmap
+XCreateBitmapFromData(display, d, data, width, height)
+    Display* display;
+    Drawable d;
+    _Xconst char* data;
+    unsigned int width;
+    unsigned int height;
+{
+    XImage ximage;
+    GC gc;
+    Pixmap pix;
+
+    pix = Tk_GetPixmap(display, d, width, height, 1);
+    gc = XCreateGC(display, pix, 0, NULL);
+    if (gc == NULL) {
+	return None;
+    }
+    ximage.height = height;
+    ximage.width = width;
+    ximage.depth = 1;
+    ximage.bits_per_pixel = 1;
+    ximage.xoffset = 0;
+    ximage.format = XYBitmap;
+    ximage.data = (char *)data;
+    ximage.byte_order = LSBFirst;
+    ximage.bitmap_unit = 8;
+    ximage.bitmap_bit_order = LSBFirst;
+    ximage.bitmap_pad = 8;
+    ximage.bytes_per_line = (width+7)/8;
+
+    TkPutImage(NULL, 0, display, pix, gc, &ximage, 0, 0, 0, 0, width, height);
+    XFreeGC(display, gc);
+    return pix;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XReadBitmapFile --
+ *
+ *	Loads a bitmap image in X bitmap format into the specified
+ *	drawable.
+ *
+ * Results:
+ *	Sets the size, hotspot, and bitmap on success.
+ *
+ * Side effects:
+ *	Creates a new bitmap from the file data.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XReadBitmapFile(display, d, filename, width_return, height_return,
+	bitmap_return, x_hot_return, y_hot_return) 
+    Display* display;
+    Drawable d;
+    _Xconst char* filename;
+    unsigned int* width_return;
+    unsigned int* height_return;
+    Pixmap* bitmap_return;
+    int* x_hot_return;
+    int* y_hot_return;
+{
+    Tcl_Interp *dummy;
+    char *data;
+
+    dummy = Tcl_CreateInterp();
+
+    data = TkGetBitmapData(dummy, NULL, (char *) filename,
+	    (int *) width_return, (int *) height_return, x_hot_return,
+	    y_hot_return);
+    if (data == NULL) {
+	return BitmapFileInvalid;
+    }
+
+    *bitmap_return = XCreateBitmapFromData(display, d, data, *width_return,
+	    *height_return);
+
+    Tcl_DeleteInterp(dummy);
+    ckfree(data);
+    return BitmapSuccess;
+}
diff --git a/Tk/xlib/xutil.c b/Tk/xlib/xutil.c
new file mode 100644
index 0000000..1080ff9
--- /dev/null
+++ b/Tk/xlib/xutil.c
@@ -0,0 +1,116 @@
+/* 
+ * xutil.c --
+ *
+ *	This function contains generic X emulation routines.
+ *
+ * Copyright (c) 1995-1996 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * SCCS: @(#) xutil.c 1.10 96/04/09 23:26:21
+ */
+
+#include <stdlib.h>
+#include <tk.h>
+
+#ifdef MAC_TCL
+#       include <Xutil.h>
+#       include <Xatom.h>
+#else
+#       include <X11/Xutil.h>
+#       include <X11/Xatom.h>
+#endif
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XInternAtom --
+ *
+ *	This procedure simulates the XInternAtom function by calling
+ *	Tk_Uid to get a unique id for every atom.  This is only a
+ *	partial implementation, since it doesn't work across
+ *	applications.
+ *
+ * Results:
+ *	A new Atom.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Atom
+XInternAtom(display, atom_name, only_if_exists)
+    Display* display;
+    _Xconst char* atom_name;
+    Bool only_if_exists;
+{
+    static Atom atom = XA_LAST_PREDEFINED;
+    
+    display->request++;
+    return ++atom;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGetVisualInfo --
+ *
+ *	Returns information about the specified visual.
+ *
+ * Results:
+ *	Returns a newly allocated XVisualInfo structure.
+ *
+ * Side effects:
+ *	Allocates storage.
+ *
+ *----------------------------------------------------------------------
+ */
+
+XVisualInfo *
+XGetVisualInfo(display, vinfo_mask, vinfo_template, nitems_return)
+    Display* display;
+    long vinfo_mask;
+    XVisualInfo* vinfo_template;
+    int* nitems_return;
+{
+    XVisualInfo *info = (XVisualInfo *)ckalloc(sizeof(XVisualInfo));
+    info->visual = DefaultVisual(display, 0);
+    info->visualid = info->visual->visualid;
+    info->screen = 0;
+    info->depth = info->visual->bits_per_rgb;
+    info->class = info->visual->class;
+    info->colormap_size = info->visual->map_entries;
+    info->bits_per_rgb = info->visual->bits_per_rgb;
+    info->red_mask = info->visual->red_mask;
+    info->green_mask = info->visual->green_mask;
+    info->blue_mask = info->visual->blue_mask;
+    
+    if (((vinfo_mask & VisualIDMask)
+	    && (vinfo_template->visualid != info->visualid))
+	    || ((vinfo_mask & VisualScreenMask)
+		    && (vinfo_template->screen != info->screen))
+	    || ((vinfo_mask & VisualDepthMask)
+		    && (vinfo_template->depth != info->depth))
+	    || ((vinfo_mask & VisualClassMask)
+		    && (vinfo_template->class != info->class))
+	    || ((vinfo_mask & VisualColormapSizeMask)
+		    && (vinfo_template->colormap_size != info->colormap_size))
+	    || ((vinfo_mask & VisualBitsPerRGBMask)
+		    && (vinfo_template->bits_per_rgb != info->bits_per_rgb))
+	    || ((vinfo_mask & VisualRedMaskMask)
+		    && (vinfo_template->red_mask != info->red_mask))
+	    || ((vinfo_mask & VisualGreenMaskMask)
+		    && (vinfo_template->green_mask != info->green_mask))
+	    || ((vinfo_mask & VisualBlueMaskMask)
+		    && (vinfo_template->blue_mask != info->blue_mask))
+	) {
+	ckfree((char *) info);
+	return NULL;
+    }
+
+    *nitems_return = 1;
+    return info;
+}
diff --git a/VERSION b/VERSION
new file mode 100644
index 0000000..b9491a4
--- /dev/null
+++ b/VERSION
@@ -0,0 +1 @@
+VERSION=3.1.1
diff --git a/Win32/README b/Win32/README
new file mode 100644
index 0000000..fad6f5b
--- /dev/null
+++ b/Win32/README
@@ -0,0 +1,40 @@
+			      Win32 STk
+			     -----------
+
+
+This is the first port of STk on Win32. It has been compiled with BC++
+4.5 and MS VC 4.2.Things are far from perfect, and there are a lot of
+little things to correct (mostly problem with filename conventions
+which are different between Unix and DOS). These problem shoulds be
+corrected in future releases.
+
+Compilation
+-----------
+
+With BC++ 4.5, just type "make -f STk-make.bc " in the current
+directory to build the executable. and "stk-inst" to install the
+package.  Don't forget to set your STK_LIBRARY variable to the
+directory where the package has been installed.
+
+Limitations:
+-----------
+The following limitations are mainly due to the fact that I'm not a Windows 
+programmer and that I try to spend as less as possible time on this system. 
+Consequently, I will probably not try to implements the following for 
+a while. The biggest limitations are 
+	- no dynamic loading
+
+
+The help of a window guru for these tasks would be greatly appreciated.
+
+
+-------------------------------------------------------------------------------
+Erick Gallesio					  tel : (33) 92-96-51-53
+ESSI - I3S					  fax : (33) 92-96-51-55
+Universite de Nice - Sophia Antipolis		email : eg@unice.fr
+Route des colles - BP 145
+06903 Sophia Antipolis CEDEX
+FRANCE
+
+     
+
diff --git a/Win32/STk-inst.bat b/Win32/STk-inst.bat
new file mode 100644
index 0000000..88141b5
--- /dev/null
+++ b/Win32/STk-inst.bat
@@ -0,0 +1,38 @@
+REM Installation program for STk
+
+@echo off
+mkdir \STk
+mkdir \STk\STk
+mkdir \STk\images
+mkdir \STk\demos
+mkdir \STk\help
+
+
+REM ============ STk executable
+copy .\stk.exe				\STk
+
+REM ============ The Library directory
+copy ..\Lib\*.stk       		\STk\STk
+copy ..\Lib\*.stklos    		\STk\STk
+copy ..\Lib\prolog.ps			\STk\STk
+
+REM ============= The STklos directory
+copy ..\STklos\*.stk         		\STk\STk
+copy ..\STklos\*.stklos      		\STk\STk
+copy ..\STklos\Tk\*.stklos           	\STk\STk
+copy ..\STklos\Tk\Composite\*.stklos 	\STk\STk
+
+REM ============= Images
+copy ..\Lib\images\*.*			\STk\images
+
+REM ============== Demos
+copy ..\Demos\*.stk			\STk\demos
+copy ..\Demos\*.stklos 			\STk\demos
+copy ..\Demos\Widget\*.stklos		\STk\demos
+
+
+REM ============== Help pages
+copy ..\Help\*.html			\STk\Help
+
+echo Installation completed.
+echo Don't forget to set the STK_LIBRARY variable.
diff --git a/Win32/STk-make.bc b/Win32/STk-make.bc
new file mode 100644
index 0000000..6c465cc
--- /dev/null
+++ b/Win32/STk-make.bc
@@ -0,0 +1,1210 @@
+#
+# Borland C++ IDE generated makefile
+#
+.AUTODEPEND
+
+
+#
+# Borland C++ tools
+#
+IMPLIB  = Implib
+BCC32   = Bcc32 +BccW32.cfg 
+TLINK32 = TLink32
+TLIB    = TLib
+BRC32   = Brc32
+TASM32  = Tasm32
+#
+# IDE macros
+#
+
+
+#
+# Options
+#
+IDE_LFLAGS32 =  -LF:\BC45\LIB
+IDE_RFLAGS32 = 
+LLATW32_stkdexe =  -S:200000 -Tpe -aa -c -wdup -LH:\BC45\LIB
+RLATW32_stkdexe =  -w32
+BLATW32_stkdexe = 
+CNIEAT_stkdexe = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_stkdexe = -x
+LEAT_stkdexe = $(LLATW32_stkdexe)
+REAT_stkdexe = $(RLATW32_stkdexe)
+BEAT_stkdexe = $(BLATW32_stkdexe)
+CLATC32_stkdlib = 
+LLATC32_stkdlib =  -Tpd -aa -c
+RLATC32_stkdlib =  -w32
+BLATC32_stkdlib =  /P32
+CEAT_stkdlib = $(CEAT_stkdexe) $(CLATC32_stkdlib)
+CNIEAT_stkdlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_stkdlib = -x
+LEAT_stkdlib = $(LEAT_stkdexe) $(LLATC32_stkdlib)
+REAT_stkdlib = $(REAT_stkdexe) $(RLATC32_stkdlib)
+BEAT_stkdlib = $(BEAT_stkdexe) $(BLATC32_stkdlib)
+CLATC32_gmpdlib = 
+LLATC32_gmpdlib =  -Tpd -aa -c
+RLATC32_gmpdlib =  -w32
+BLATC32_gmpdlib = 
+CEAT_gmpdlib = $(CEAT_stkdexe) $(CLATC32_gmpdlib)
+CNIEAT_gmpdlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_gmpdlib = -x
+LEAT_gmpdlib = $(LEAT_stkdexe) $(LLATC32_gmpdlib)
+REAT_gmpdlib = $(REAT_stkdexe) $(RLATC32_gmpdlib)
+BEAT_gmpdlib = $(BEAT_stkdexe) $(BLATC32_gmpdlib)
+CLATC32_tkxlibdlib =  -WC
+LLATC32_tkxlibdlib =  -Tpe -ap -c
+RLATC32_tkxlibdlib =  -w32
+BLATC32_tkxlibdlib = 
+CEAT_tkxlibdlib = $(CEAT_stkdexe) $(CLATC32_tkxlibdlib)
+CNIEAT_tkxlibdlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_tkxlibdlib = -x
+LEAT_tkxlibdlib = $(LEAT_stkdexe) $(LLATC32_tkxlibdlib)
+REAT_tkxlibdlib = $(REAT_stkdexe) $(RLATC32_tkxlibdlib)
+BEAT_tkxlibdlib = $(BEAT_stkdexe) $(BLATC32_tkxlibdlib)
+CLATC32_tkwindlib =  -WC
+LLATC32_tkwindlib =  -Tpe -ap -c
+RLATC32_tkwindlib =  -w32
+BLATC32_tkwindlib = 
+CEAT_tkwindlib = $(CEAT_stkdexe) $(CLATC32_tkwindlib)
+CNIEAT_tkwindlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_tkwindlib = -x
+LEAT_tkwindlib = $(LEAT_stkdexe) $(LLATC32_tkwindlib)
+REAT_tkwindlib = $(REAT_stkdexe) $(RLATC32_tkwindlib)
+BEAT_tkwindlib = $(BEAT_stkdexe) $(BLATC32_tkwindlib)
+CLATC32_tkgendlib =  -WC
+LLATC32_tkgendlib =  -Tpe -ap -c
+RLATC32_tkgendlib =  -w32
+BLATC32_tkgendlib =  /P128
+CEAT_tkgendlib = $(CEAT_stkdexe) $(CLATC32_tkgendlib)
+CNIEAT_tkgendlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_tkgendlib = -x
+LEAT_tkgendlib = $(LEAT_stkdexe) $(LLATC32_tkgendlib)
+REAT_tkgendlib = $(REAT_stkdexe) $(RLATC32_tkgendlib)
+BEAT_tkgendlib = $(BEAT_stkdexe) $(BLATC32_tkgendlib)
+CLATC32_tcldlib =  -WC
+LLATC32_tcldlib =  -Tpe -ap -c
+RLATC32_tcldlib =  -w32
+BLATC32_tcldlib = 
+CEAT_tcldlib = $(CEAT_stkdexe) $(CLATC32_tcldlib)
+CNIEAT_tcldlib = -I..\SRC;..\TCL;..\TK\GENERIC;..\TK\WIN;..\TK\XLIB;..\TK\BITMAPS;..\MP\FGMP-1.0B5;H:\BC45\INCLUDE -DSTk_CODE=1;WIN32;STK_VERSION="3.1.1";MACHINE="MS_Win32";USE_TK;USE_HASH;USE_STKLOS;USE_HTML;USE_REGEXP;USE_SOCKET;REDO_KEYSYM_LOOKUP;NEED_MATHERR
+LNIEAT_tcldlib = -x
+LEAT_tcldlib = $(LEAT_stkdexe) $(LLATC32_tcldlib)
+REAT_tcldlib = $(REAT_stkdexe) $(RLATC32_tcldlib)
+BEAT_tcldlib = $(BEAT_stkdexe) $(BLATC32_tcldlib)
+
+#
+# Dependency List
+#
+Dep_stk = \
+   stk.exe
+
+stk : BccW32.cfg $(Dep_stk)
+  echo MakeNode 
+
+Dep_stkdexe = \
+   stk.res\
+   wstk.obj\
+   tcl-lib.obj\
+   tcl-util.obj\
+   tk-glue.obj\
+   tk-main.obj\
+   tk-util.obj\
+   stk.lib\
+   gmp.lib\
+   tkxlib.lib\
+   tkwin.lib\
+   tkgen.lib\
+   tcl.lib
+
+stk.exe : $(Dep_stkdexe)
+  $(TLINK32) @&&|
+ /v $(IDE_LFLAGS32) $(LEAT_stkdexe) $(LNIEAT_stkdexe) +
+H:\BC45\LIB\c0w32.obj+
+wstk.obj+
+tcl-lib.obj+
+tcl-util.obj+
+tk-glue.obj+
+tk-main.obj+
+tk-util.obj
+$<,$*
+stk.lib+
+gmp.lib+
+tkxlib.lib+
+tkwin.lib+
+tkgen.lib+
+tcl.lib+
+H:\BC45\LIB\import32.lib+
+H:\BC45\LIB\cw32.lib
+
+|
+   $(BRC32) stk.res $<
+
+stk.res :  stk.rc
+  $(BRC32) $(IDE_RFLAGS32) $(REAT_stkdexe) $(CNIEAT_stkdexe) -R -FO$@ stk.rc
+
+wstk.obj :  ..\src\wstk.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\wstk.c
+|
+
+tcl-lib.obj :  ..\src\tcl-lib.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\tcl-lib.c
+|
+
+tcl-util.obj :  ..\src\tcl-util.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\tcl-util.c
+|
+
+tk-glue.obj :  ..\src\tk-glue.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\tk-glue.c
+|
+
+tk-main.obj :  ..\src\tk-main.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\tk-main.c
+|
+
+tk-util.obj :  ..\src\tk-util.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdexe) $(CNIEAT_stkdexe) -o$@ ..\src\tk-util.c
+|
+
+Dep_stkdlib = \
+   socket.obj\
+   address.obj\
+   argv.obj\
+   boolean.obj\
+   char.obj\
+   cont.obj\
+   dummy.obj\
+   dump.obj\
+   dynload.obj\
+   env.obj\
+   error.obj\
+   eval.obj\
+   extend.obj\
+   gc.obj\
+   hash.obj\
+   html.obj\
+   io.obj\
+   keyword.obj\
+   list.obj\
+   macros.obj\
+   number.obj\
+   pixmap.obj\
+   port.obj\
+   primit~1.obj\
+   print.obj\
+   proc.obj\
+   promise.obj\
+   read.obj\
+   signal.obj\
+   slib.obj\
+   sport.obj\
+   sregexp.obj\
+   stklos.obj\
+   str.obj\
+   symbol.obj\
+   syntax.obj\
+   toplevel.obj\
+   trace.obj\
+   unix.obj\
+   userinit.obj\
+   vector.obj
+
+stk.lib : $(Dep_stkdlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_stkdlib) @&&|
+ -+socket.obj &
+-+address.obj &
+-+argv.obj &
+-+boolean.obj &
+-+char.obj &
+-+cont.obj &
+-+dummy.obj &
+-+dump.obj &
+-+dynload.obj &
+-+env.obj &
+-+error.obj &
+-+eval.obj &
+-+extend.obj &
+-+gc.obj &
+-+hash.obj &
+-+html.obj &
+-+io.obj &
+-+keyword.obj &
+-+list.obj &
+-+macros.obj &
+-+number.obj &
+-+pixmap.obj &
+-+port.obj &
+-+primit~1.obj &
+-+print.obj &
+-+proc.obj &
+-+promise.obj &
+-+read.obj &
+-+signal.obj &
+-+slib.obj &
+-+sport.obj &
+-+sregexp.obj &
+-+stklos.obj &
+-+str.obj &
+-+symbol.obj &
+-+syntax.obj &
+-+toplevel.obj &
+-+trace.obj &
+-+unix.obj &
+-+userinit.obj &
+-+vector.obj
+|
+
+socket.obj :  ..\Extensions\socket.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\Extensions\socket.c
+|
+
+address.obj :  ..\src\address.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\address.c
+|
+
+argv.obj :  ..\src\argv.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\argv.c
+|
+
+boolean.obj :  ..\src\boolean.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\boolean.c
+|
+
+char.obj :  ..\src\char.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\char.c
+|
+
+cont.obj :  ..\src\cont.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\cont.c
+|
+
+dummy.obj :  ..\src\dummy.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\dummy.c
+|
+
+dump.obj :  ..\src\dump.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\dump.c
+|
+
+dynload.obj :  ..\src\dynload.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\dynload.c
+|
+
+env.obj :  ..\src\env.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\env.c
+|
+
+error.obj :  ..\src\error.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\error.c
+|
+
+eval.obj :  ..\src\eval.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\eval.c
+|
+
+extend.obj :  ..\src\extend.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\extend.c
+|
+
+gc.obj :  ..\src\gc.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\gc.c
+|
+
+hash.obj :  ..\Extensions\hash.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\Extensions\hash.c
+|
+
+html.obj :  ..\Extensions\html.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\Extensions\html.c
+|
+
+io.obj :  ..\src\io.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\io.c
+|
+
+keyword.obj :  ..\src\keyword.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\keyword.c
+|
+
+list.obj :  ..\src\list.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\list.c
+|
+
+macros.obj :  ..\src\macros.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\macros.c
+|
+
+number.obj :  ..\src\number.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\number.c
+|
+
+pixmap.obj :  ..\Extensions\pixmap.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\Extensions\pixmap.c
+|
+
+port.obj :  ..\src\port.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\port.c
+|
+
+primit~1.obj :  ..\src\primit~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\primit~1.c
+|
+
+print.obj :  ..\src\print.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\print.c
+|
+
+proc.obj :  ..\src\proc.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\proc.c
+|
+
+promise.obj :  ..\src\promise.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\promise.c
+|
+
+read.obj :  ..\src\read.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\read.c
+|
+
+signal.obj :  ..\src\signal.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\signal.c
+|
+
+slib.obj :  ..\src\slib.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\slib.c
+|
+
+sport.obj :  ..\src\sport.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\sport.c
+|
+
+sregexp.obj :  ..\Extensions\sregexp.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\Extensions\sregexp.c
+|
+
+stklos.obj :  ..\src\stklos.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\stklos.c
+|
+
+str.obj :  ..\src\str.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\str.c
+|
+
+symbol.obj :  ..\src\symbol.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\symbol.c
+|
+
+syntax.obj :  ..\src\syntax.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\syntax.c
+|
+
+toplevel.obj :  ..\src\toplevel.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\toplevel.c
+|
+
+trace.obj :  ..\src\trace.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\trace.c
+|
+
+unix.obj :  ..\src\unix.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\unix.c
+|
+
+userinit.obj :  ..\src\userinit.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\userinit.c
+|
+
+vector.obj :  ..\src\vector.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_stkdlib) $(CNIEAT_stkdlib) -o$@ ..\src\vector.c
+|
+
+Dep_gmpdlib = \
+   gmp.obj
+
+gmp.lib : $(Dep_gmpdlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_gmpdlib) @&&|
+ -+gmp.obj
+|
+
+gmp.obj :  ..\mp\fgmp-1.0b5\gmp.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_gmpdlib) $(CNIEAT_gmpdlib) -o$@ ..\mp\fgmp-1.0b5\gmp.c
+|
+
+Dep_tkxlibdlib = \
+   xdraw.obj\
+   xgc.obj\
+   ximage.obj\
+   xutil.obj
+
+tkxlib.lib : $(Dep_tkxlibdlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_tkxlibdlib) @&&|
+ -+xdraw.obj &
+-+xgc.obj &
+-+ximage.obj &
+-+xutil.obj
+|
+
+xdraw.obj :  ..\tk\xlib\xdraw.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkxlibdlib) $(CNIEAT_tkxlibdlib) -o$@ ..\tk\xlib\xdraw.c
+|
+
+xgc.obj :  ..\tk\xlib\xgc.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkxlibdlib) $(CNIEAT_tkxlibdlib) -o$@ ..\tk\xlib\xgc.c
+|
+
+ximage.obj :  ..\tk\xlib\ximage.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkxlibdlib) $(CNIEAT_tkxlibdlib) -o$@ ..\tk\xlib\ximage.c
+|
+
+xutil.obj :  ..\tk\xlib\xutil.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkxlibdlib) $(CNIEAT_tkxlibdlib) -o$@ ..\tk\xlib\xutil.c
+|
+
+Dep_tkwindlib = \
+   stubs.obj\
+   tkwin3~1.obj\
+   tkwinc~1.obj\
+   tkwinc~2.obj\
+   tkwinc~3.obj\
+   tkwind~1.obj\
+   tkwinf~1.obj\
+   tkwini~1.obj\
+   tkwini~2.obj\
+   tkwinkey.obj\
+   tkwinp~1.obj\
+   tkwinp~2.obj\
+   tkwinr~1.obj\
+   tkwinw~1.obj\
+   tkwinwm.obj\
+   tkwinx.obj
+
+tkwin.lib : $(Dep_tkwindlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_tkwindlib) @&&|
+ -+stubs.obj &
+-+tkwin3~1.obj &
+-+tkwinc~1.obj &
+-+tkwinc~2.obj &
+-+tkwinc~3.obj &
+-+tkwind~1.obj &
+-+tkwinf~1.obj &
+-+tkwini~1.obj &
+-+tkwini~2.obj &
+-+tkwinkey.obj &
+-+tkwinp~1.obj &
+-+tkwinp~2.obj &
+-+tkwinr~1.obj &
+-+tkwinw~1.obj &
+-+tkwinwm.obj &
+-+tkwinx.obj
+|
+
+stubs.obj :  ..\tk\win\stubs.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\stubs.c
+|
+
+tkwin3~1.obj :  ..\tk\win\tkwin3~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwin3~1.c
+|
+
+tkwinc~1.obj :  ..\tk\win\tkwinc~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinc~1.c
+|
+
+tkwinc~2.obj :  ..\tk\win\tkwinc~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinc~2.c
+|
+
+tkwinc~3.obj :  ..\tk\win\tkwinc~3.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinc~3.c
+|
+
+tkwind~1.obj :  ..\tk\win\tkwind~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwind~1.c
+|
+
+tkwinf~1.obj :  ..\tk\win\tkwinf~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinf~1.c
+|
+
+tkwini~1.obj :  ..\tk\win\tkwini~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwini~1.c
+|
+
+tkwini~2.obj :  ..\tk\win\tkwini~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwini~2.c
+|
+
+tkwinkey.obj :  ..\tk\win\tkwinkey.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinkey.c
+|
+
+tkwinp~1.obj :  ..\tk\win\tkwinp~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinp~1.c
+|
+
+tkwinp~2.obj :  ..\tk\win\tkwinp~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinp~2.c
+|
+
+tkwinr~1.obj :  ..\tk\win\tkwinr~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinr~1.c
+|
+
+tkwinw~1.obj :  ..\tk\win\tkwinw~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinw~1.c
+|
+
+tkwinwm.obj :  ..\tk\win\tkwinwm.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinwm.c
+|
+
+tkwinx.obj :  ..\tk\win\tkwinx.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkwindlib) $(CNIEAT_tkwindlib) -o$@ ..\tk\win\tkwinx.c
+|
+
+Dep_tkgendlib = \
+   tkimggif.obj\
+   tkimgppm.obj\
+   tkgrid.obj\
+   tk3d.obj\
+   tkargv.obj\
+   tkatom.obj\
+   tkbind.obj\
+   tkbitmap.obj\
+   tkbutton.obj\
+   tkcanv~1.obj\
+   tkcanv~2.obj\
+   tkcanv~3.obj\
+   tkcanv~4.obj\
+   tkcanv~5.obj\
+   tkcanv~6.obj\
+   tkcanv~7.obj\
+   tkcanv~8.obj\
+   tkcanvas.obj\
+   tkcanvps.obj\
+   tkclip~1.obj\
+   tkcmds.obj\
+   tkcolor.obj\
+   tkconfig.obj\
+   tkcursor.obj\
+   tkentry.obj\
+   tkerror.obj\
+   tkevent.obj\
+   tkfocus.obj\
+   tkfont.obj\
+   tkframe.obj\
+   tkgc.obj\
+   tkgeom~1.obj\
+   tkget.obj\
+   tkgrab.obj\
+   tkimage.obj\
+   tkimgb~1.obj\
+   tkimgp~1.obj\
+   tkimgu~1.obj\
+   tklist~1.obj\
+   tkmain.obj\
+   tkmenu.obj\
+   tkmenu~1.obj\
+   tkmess~1.obj\
+   tkoption.obj\
+   tkpack.obj\
+   tkplace.obj\
+   tkrect~1.obj\
+   tkscale.obj\
+   tkscro~1.obj\
+   tkselect.obj\
+   tksend.obj\
+   tksquare.obj\
+   tktest.obj\
+   tktext.obj\
+   tktext~1.obj\
+   tktext~2.obj\
+   tktext~3.obj\
+   tktext~4.obj\
+   tktext~5.obj\
+   tktext~6.obj\
+   tktrig.obj\
+   tkutil.obj\
+   tkvisual.obj\
+   tkwindow.obj
+
+tkgen.lib : $(Dep_tkgendlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_tkgendlib) @&&|
+ -+tkimggif.obj &
+-+tkimgppm.obj &
+-+tkgrid.obj &
+-+tk3d.obj &
+-+tkargv.obj &
+-+tkatom.obj &
+-+tkbind.obj &
+-+tkbitmap.obj &
+-+tkbutton.obj &
+-+tkcanv~1.obj &
+-+tkcanv~2.obj &
+-+tkcanv~3.obj &
+-+tkcanv~4.obj &
+-+tkcanv~5.obj &
+-+tkcanv~6.obj &
+-+tkcanv~7.obj &
+-+tkcanv~8.obj &
+-+tkcanvas.obj &
+-+tkcanvps.obj &
+-+tkclip~1.obj &
+-+tkcmds.obj &
+-+tkcolor.obj &
+-+tkconfig.obj &
+-+tkcursor.obj &
+-+tkentry.obj &
+-+tkerror.obj &
+-+tkevent.obj &
+-+tkfocus.obj &
+-+tkfont.obj &
+-+tkframe.obj &
+-+tkgc.obj &
+-+tkgeom~1.obj &
+-+tkget.obj &
+-+tkgrab.obj &
+-+tkimage.obj &
+-+tkimgb~1.obj &
+-+tkimgp~1.obj &
+-+tkimgu~1.obj &
+-+tklist~1.obj &
+-+tkmain.obj &
+-+tkmenu.obj &
+-+tkmenu~1.obj &
+-+tkmess~1.obj &
+-+tkoption.obj &
+-+tkpack.obj &
+-+tkplace.obj &
+-+tkrect~1.obj &
+-+tkscale.obj &
+-+tkscro~1.obj &
+-+tkselect.obj &
+-+tksend.obj &
+-+tksquare.obj &
+-+tktest.obj &
+-+tktext.obj &
+-+tktext~1.obj &
+-+tktext~2.obj &
+-+tktext~3.obj &
+-+tktext~4.obj &
+-+tktext~5.obj &
+-+tktext~6.obj &
+-+tktrig.obj &
+-+tkutil.obj &
+-+tkvisual.obj &
+-+tkwindow.obj
+|
+
+tkimggif.obj :  ..\tk\generic\tkimggif.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimggif.c
+|
+
+tkimgppm.obj :  ..\tk\generic\tkimgppm.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimgppm.c
+|
+
+tkgrid.obj :  ..\tk\generic\tkgrid.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkgrid.c
+|
+
+tk3d.obj :  ..\tk\generic\tk3d.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tk3d.c
+|
+
+tkargv.obj :  ..\tk\generic\tkargv.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkargv.c
+|
+
+tkatom.obj :  ..\tk\generic\tkatom.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkatom.c
+|
+
+tkbind.obj :  ..\tk\generic\tkbind.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkbind.c
+|
+
+tkbitmap.obj :  ..\tk\generic\tkbitmap.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkbitmap.c
+|
+
+tkbutton.obj :  ..\tk\generic\tkbutton.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkbutton.c
+|
+
+tkcanv~1.obj :  ..\tk\generic\tkcanv~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~1.c
+|
+
+tkcanv~2.obj :  ..\tk\generic\tkcanv~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~2.c
+|
+
+tkcanv~3.obj :  ..\tk\generic\tkcanv~3.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~3.c
+|
+
+tkcanv~4.obj :  ..\tk\generic\tkcanv~4.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~4.c
+|
+
+tkcanv~5.obj :  ..\tk\generic\tkcanv~5.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~5.c
+|
+
+tkcanv~6.obj :  ..\tk\generic\tkcanv~6.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~6.c
+|
+
+tkcanv~7.obj :  ..\tk\generic\tkcanv~7.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~7.c
+|
+
+tkcanv~8.obj :  ..\tk\generic\tkcanv~8.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanv~8.c
+|
+
+tkcanvas.obj :  ..\tk\generic\tkcanvas.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanvas.c
+|
+
+tkcanvps.obj :  ..\tk\generic\tkcanvps.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcanvps.c
+|
+
+tkclip~1.obj :  ..\tk\generic\tkclip~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkclip~1.c
+|
+
+tkcmds.obj :  ..\tk\generic\tkcmds.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcmds.c
+|
+
+tkcolor.obj :  ..\tk\generic\tkcolor.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcolor.c
+|
+
+tkconfig.obj :  ..\tk\generic\tkconfig.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkconfig.c
+|
+
+tkcursor.obj :  ..\tk\generic\tkcursor.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkcursor.c
+|
+
+tkentry.obj :  ..\tk\generic\tkentry.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkentry.c
+|
+
+tkerror.obj :  ..\tk\generic\tkerror.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkerror.c
+|
+
+tkevent.obj :  ..\tk\generic\tkevent.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkevent.c
+|
+
+tkfocus.obj :  ..\tk\generic\tkfocus.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkfocus.c
+|
+
+tkfont.obj :  ..\tk\generic\tkfont.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkfont.c
+|
+
+tkframe.obj :  ..\tk\generic\tkframe.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkframe.c
+|
+
+tkgc.obj :  ..\tk\generic\tkgc.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkgc.c
+|
+
+tkgeom~1.obj :  ..\tk\generic\tkgeom~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkgeom~1.c
+|
+
+tkget.obj :  ..\tk\generic\tkget.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkget.c
+|
+
+tkgrab.obj :  ..\tk\generic\tkgrab.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkgrab.c
+|
+
+tkimage.obj :  ..\tk\generic\tkimage.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimage.c
+|
+
+tkimgb~1.obj :  ..\tk\generic\tkimgb~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimgb~1.c
+|
+
+tkimgp~1.obj :  ..\tk\generic\tkimgp~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimgp~1.c
+|
+
+tkimgu~1.obj :  ..\tk\generic\tkimgu~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkimgu~1.c
+|
+
+tklist~1.obj :  ..\tk\generic\tklist~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tklist~1.c
+|
+
+tkmain.obj :  ..\tk\generic\tkmain.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkmain.c
+|
+
+tkmenu.obj :  ..\tk\generic\tkmenu.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkmenu.c
+|
+
+tkmenu~1.obj :  ..\tk\generic\tkmenu~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkmenu~1.c
+|
+
+tkmess~1.obj :  ..\tk\generic\tkmess~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkmess~1.c
+|
+
+tkoption.obj :  ..\tk\generic\tkoption.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkoption.c
+|
+
+tkpack.obj :  ..\tk\generic\tkpack.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkpack.c
+|
+
+tkplace.obj :  ..\tk\generic\tkplace.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkplace.c
+|
+
+tkrect~1.obj :  ..\tk\generic\tkrect~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkrect~1.c
+|
+
+tkscale.obj :  ..\tk\generic\tkscale.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkscale.c
+|
+
+tkscro~1.obj :  ..\tk\generic\tkscro~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkscro~1.c
+|
+
+tkselect.obj :  ..\tk\generic\tkselect.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkselect.c
+|
+
+tksend.obj :  ..\tk\generic\tksend.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tksend.c
+|
+
+tksquare.obj :  ..\tk\generic\tksquare.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tksquare.c
+|
+
+tktest.obj :  ..\tk\generic\tktest.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktest.c
+|
+
+tktext.obj :  ..\tk\generic\tktext.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext.c
+|
+
+tktext~1.obj :  ..\tk\generic\tktext~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~1.c
+|
+
+tktext~2.obj :  ..\tk\generic\tktext~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~2.c
+|
+
+tktext~3.obj :  ..\tk\generic\tktext~3.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~3.c
+|
+
+tktext~4.obj :  ..\tk\generic\tktext~4.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~4.c
+|
+
+tktext~5.obj :  ..\tk\generic\tktext~5.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~5.c
+|
+
+tktext~6.obj :  ..\tk\generic\tktext~6.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktext~6.c
+|
+
+tktrig.obj :  ..\tk\generic\tktrig.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tktrig.c
+|
+
+tkutil.obj :  ..\tk\generic\tkutil.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkutil.c
+|
+
+tkvisual.obj :  ..\tk\generic\tkvisual.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkvisual.c
+|
+
+tkwindow.obj :  ..\tk\generic\tkwindow.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tkgendlib) $(CNIEAT_tkgendlib) -o$@ ..\tk\generic\tkwindow.c
+|
+
+Dep_tcldlib = \
+   tclpre~1.obj\
+   tclwin~2.obj\
+   tclevent.obj\
+   panic.obj\
+   regexp.obj\
+   tclasync.obj\
+   tclget.obj\
+   tclhash.obj\
+   tclmth~1.obj\
+   tclnot~1.obj\
+   tclutil.obj\
+   tclwin~1.obj
+
+tcl.lib : $(Dep_tcldlib)
+  $(TLIB) $< $(IDE_BFLAGS) $(BEAT_tcldlib) @&&|
+ -+tclpre~1.obj &
+-+tclwin~2.obj &
+-+tclevent.obj &
+-+panic.obj &
+-+regexp.obj &
+-+tclasync.obj &
+-+tclget.obj &
+-+tclhash.obj &
+-+tclmth~1.obj &
+-+tclnot~1.obj &
+-+tclutil.obj &
+-+tclwin~1.obj
+|
+
+tclpre~1.obj :  ..\tcl\tclpre~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclpre~1.c
+|
+
+tclwin~2.obj :  ..\tcl\tclwin~2.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclwin~2.c
+|
+
+tclevent.obj :  ..\tcl\tclevent.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclevent.c
+|
+
+panic.obj :  ..\tcl\panic.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\panic.c
+|
+
+
+regexp.obj :  ..\tcl\regexp.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\regexp.c
+|
+
+tclasync.obj :  ..\tcl\tclasync.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclasync.c
+|
+
+tclget.obj :  ..\tcl\tclget.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclget.c
+|
+
+tclhash.obj :  ..\tcl\tclhash.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclhash.c
+|
+
+tclmth~1.obj :  ..\tcl\tclmth~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclmth~1.c
+|
+
+tclnot~1.obj :  ..\tcl\tclnot~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclnot~1.c
+|
+
+tclutil.obj :  ..\tcl\tclutil.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclutil.c
+|
+
+tclwin~1.obj :  ..\tcl\tclwin~1.c
+  $(BCC32) -P- -c @&&|
+ $(CEAT_tcldlib) $(CNIEAT_tcldlib) -o$@ ..\tcl\tclwin~1.c
+|
+
+# Compiler configuration file
+BccW32.cfg : 
+   Copy &&|
+-R
+-v
+-vi
+-H
+-H=stk.csm
+-K
+-a
+-Oc
+-wcln
+-w-sig
+-wucp
+-wbbf
+-w-pin
+-wnak
+-wstv
+-wdef
+-w-pro
+-wamp
+-wobs
+-w-stu
+-W
+-w-par
+-w-rch
+-y
+-vi-
+-A-
+-4
+| $@
+
+
diff --git a/Win32/STk-make.vc b/Win32/STk-make.vc
new file mode 100644
index 0000000..fceeef6
--- /dev/null
+++ b/Win32/STk-make.vc
@@ -0,0 +1,249 @@
+# -*-makefile-*-
+# This makefile for MSVC has been tested with version 4.2 but should be ok with
+# any 32-bit Microsoft compiler.
+# 
+# Author: Caleb Deupree <cdeupree@erinet.com>
+#
+
+CC   = cl -nologo
+LINK = link -nologo -subsystem:windows
+LIB32    = lib -nologo
+RC   = rc
+
+LIBPATH = d:/msvc42
+LIB = d:/msvc42/lib
+DEFINES = -DWIN32 -D_X86_ -DSTk_CODE -DSTK_VERSION=\"3.1\"
+-DMACHINE=\"MS_Win32\" -DUSE_TK DUSE_HASH \
+	-DUSE_STKLOS -DUSE_HTML -DUSE_REGEXP -DREDO_KEYSYM_LOOKUP -DNEED_MATHERR
+-DUSE_SOCKET
+INCLUDES = -I../Src -I../tcl -I../tk/generic -I../tk/win -I../tk/xlib
+-I../tk/bitmaps -I../mp/fgmp-1.0b5
+
+STDCMTLIB = $(LIBPATH)/lib/libcmt.lib
+STDCLIB = $(LIBPATH)/lib/libc.lib
+OLDNAMES = $(LIBPATH)/lib/oldnames.lib
+KERNEL32 = $(LIBPATH)/lib/kernel32.lib
+USER32 = $(LIBPATH)/lib/user32.lib
+GDI32 = $(LIBPATH)/lib/gdi32.lib
+COMDLG32 = $(LIBPATH)/lib/comdlg32.lib
+WINSPOOL = $(LIBPATH)/lib/winspool.lib
+ADVAPI32 = $(LIBPATH)/lib/advapi32.lib
+SHELL32 = $(LIBPATH)/lib/shell32.lib
+UUID = $(LIBPATH)/lib/uuid.lib
+VERLIB = $(LIBPATH)/lib/version.lib
+WSOCK32 = $(LIBPATH)/lib/wsock32.lib
+
+SYSLIBS = $(USER32) $(GDI32) $(COMDLG32) $(WINSPOOL) $(ADVAPI32) $(SHELL32)
+$(UUID) $(VERLIB) \
+        $(WSOCK32) $(STDCLIB)
+#
+# options for debug or release
+!IF "$(CFG)" == ""
+WRK = dbg
+DEBUGFLAGS = -Zi -W3 -Od -D_DEBUG
+DEBUGLINKFLAGS = -debug -pdb:$(WRK)/stk.pdb
+
+!ELSEIF "$(CFG)" == "rel"
+WRK = rel
+DEBUGFLAGS = -W3 -Ot
+DEBUGLINKFLAGS = 
+
+!ENDIF
+
+CFLAGS = $(DEBUGFLAGS) $(DEFINES) $(INCLUDES) $(MULTITHREAD) -c
+LINK_FLAGS = $(DEBUGLINKFLAGS) -MACHINE:I386 -INCREMENTAL:YES
+LIB_FLAGS = /machine:x86
+#
+# Dependency List
+#
+Dep_stk = \
+   stk.exe
+
+stk : $(WRK) $(Dep_stk)
+
+$(WRK):
+	mkdir $(WRK)
+
+clean:
+	rm -rf dbg rel
+	mkdir dbg rel
+	rm -f *.exe *.lib *~ \#* 
+
+Dep_stkdexe = stk.res $(WRK)/wstk.obj $(WRK)/tcl-lib.obj $(WRK)/tcl-util.obj \
+   $(WRK)/tk-glue.obj $(WRK)/tk-main.obj $(WRK)/tk-util.obj \
+   stk.lib\
+   tkxlib.lib\
+   tkwin.lib\
+   tkgen.lib\
+   tcl.lib
+
+stk.exe : $(Dep_stkdexe)
+  $(LINK) /out:$@ $(LINK_FLAGS) $(Dep_stkdexe) $(SYSLIBS)
+
+stk.res :  stk.rc
+  $(RC) /fo$@ stk.rc
+
+Dep_stkdlib = $(WRK)/address.obj $(WRK)/argv.obj $(WRK)/boolean.obj
+$(WRK)/char.obj \
+	$(WRK)/cont.obj $(WRK)/dummy.obj $(WRK)/dump.obj $(WRK)/dynload.obj
+$(WRK)/env.obj \
+	$(WRK)/error.obj $(WRK)/eval.obj $(WRK)/extend.obj $(WRK)/gc.obj
+$(WRK)/hash.obj \
+	$(WRK)/html.obj $(WRK)/io.obj $(WRK)/keyword.obj $(WRK)/list.obj
+$(WRK)/macros.obj \
+	$(WRK)/number.obj $(WRK)/pixmap.obj $(WRK)/port.obj $(WRK)/primitives.obj \
+	$(WRK)/print.obj $(WRK)/proc.obj $(WRK)/promise.obj $(WRK)/read.obj
+$(WRK)/signal.obj \
+	$(WRK)/slib.obj $(WRK)/sport.obj $(WRK)/sregexp.obj $(WRK)/stklos.obj
+$(WRK)/str.obj \
+	$(WRK)/symbol.obj $(WRK)/syntax.obj $(WRK)/toplevel.obj $(WRK)/trace.obj
+$(WRK)/unix.obj \
+	$(WRK)/userinit.obj $(WRK)/vector.obj $(WRK)/gmp.obj $(WRK)/socket.obj
+
+stk.lib : $(Dep_stkdlib)
+  $(LIB32) $(LIB_FLAGS) /out:$@ $(Dep_stkdlib) 
+
+{..\src\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\Extensions\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\tk\xlib\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\tk\generic\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\tk\win\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\tcl\}.c{$(WRK)}.obj:
+	$(CC) $(CFLAGS) -Fo$@ $<
+
+{..\src\}.c{}.i:
+	$(CC) $(CFLAGS) -P -Fo$@ $<
+
+{..\Extensions\}.c{}.i:
+	$(CC) $(CFLAGS) -P -Fo$@ $<
+
+$(WRK)/gmp.obj :  ..\mp\fgmp-1.0b5\gmp.c
+  $(CC) $(CFLAGS) -Fo$@ ..\mp\fgmp-1.0b5\gmp.c
+
+
+Dep_tkxlibdlib = \
+   $(WRK)/xdraw.obj\
+   $(WRK)/xgc.obj\
+   $(WRK)/ximage.obj\
+   $(WRK)/xutil.obj
+
+tkxlib.lib : $(Dep_tkxlibdlib)
+  $(LIB32) $(LIB_FLAGS) /out:$@ $(Dep_tkxlibdlib)
+
+Dep_tkwindlib = \
+	$(WRK)/stubs.obj\
+	$(WRK)/tkWin32Dll.obj\
+	$(WRK)/tkWinColor.obj\
+	$(WRK)/tkWinClipboard.obj\
+	$(WRK)/tkWinCursor.obj\
+	$(WRK)/tkWinDraw.obj\
+	$(WRK)/tkWinFont.obj\
+	$(WRK)/tkWinImage.obj\
+	$(WRK)/tkWinInit.obj\
+	$(WRK)/tkwinkey.obj\
+	$(WRK)/tkWinPixmap.obj\
+	$(WRK)/tkWinPointer.obj\
+	$(WRK)/tkWinRegion.obj\
+	$(WRK)/tkWinWindow.obj\
+	$(WRK)/tkwinwm.obj\
+	$(WRK)/tkwinx.obj
+
+tkwin.lib : $(Dep_tkwindlib)
+  $(LIB32) $(LIB_FLAGS) /out:$@ $(Dep_tkwindlib)
+
+Dep_tkgendlib = \
+	$(WRK)/tkimggif.obj\
+	$(WRK)/tkimgppm.obj\
+	$(WRK)/tkgrid.obj\
+	$(WRK)/tk3d.obj\
+	$(WRK)/tkargv.obj\
+	$(WRK)/tkatom.obj\
+	$(WRK)/tkbind.obj\
+	$(WRK)/tkbitmap.obj\
+	$(WRK)/tkbutton.obj\
+	$(WRK)/tkCanvLine.obj\
+	$(WRK)/tkCanvPoly.obj\
+	$(WRK)/tkCanvUtil.obj\
+	$(WRK)/tkCanvArc.obj\
+	$(WRK)/tkCanvBmap.obj\
+	$(WRK)/tkCanvImg.obj\
+	$(WRK)/tkCanvText.obj\
+	$(WRK)/tkCanvWind.obj\
+	$(WRK)/tkcanvas.obj\
+	$(WRK)/tkcanvps.obj\
+	$(WRK)/tkClipboard.obj\
+	$(WRK)/tkcmds.obj\
+	$(WRK)/tkcolor.obj\
+	$(WRK)/tkconfig.obj\
+	$(WRK)/tkcursor.obj\
+	$(WRK)/tkentry.obj\
+	$(WRK)/tkerror.obj\
+	$(WRK)/tkevent.obj\
+	$(WRK)/tkfocus.obj\
+	$(WRK)/tkfont.obj\
+	$(WRK)/tkframe.obj\
+	$(WRK)/tkgc.obj\
+	$(WRK)/tkGeometry.obj\
+	$(WRK)/tkget.obj\
+	$(WRK)/tkgrab.obj\
+	$(WRK)/tkimage.obj\
+	$(WRK)/tkImgBmap.obj\
+	$(WRK)/tkImgPhoto.obj\
+	$(WRK)/tkImgUtil.obj\
+	$(WRK)/tkListbox.obj\
+	$(WRK)/tkmain.obj\
+	$(WRK)/tkmenu.obj\
+	$(WRK)/tkMenubutton.obj\
+	$(WRK)/tkMessage.obj\
+	$(WRK)/tkoption.obj\
+	$(WRK)/tkpack.obj\
+	$(WRK)/tkplace.obj\
+	$(WRK)/tkRectOval.obj\
+	$(WRK)/tkscale.obj\
+	$(WRK)/tkScrollbar.obj\
+	$(WRK)/tkselect.obj\
+	$(WRK)/tksend.obj\
+	$(WRK)/tksquare.obj\
+	$(WRK)/tktest.obj\
+	$(WRK)/tktext.obj\
+	$(WRK)/tkTextIndex.obj\
+	$(WRK)/tkTextMark.obj\
+	$(WRK)/tkTextBTree.obj\
+	$(WRK)/tkTextDisp.obj\
+	$(WRK)/tkTextTag.obj\
+	$(WRK)/tkTextWind.obj\
+	$(WRK)/tktrig.obj\
+	$(WRK)/tkutil.obj\
+	$(WRK)/tkvisual.obj\
+	$(WRK)/tkwindow.obj
+
+
+tkgen.lib : $(Dep_tkgendlib)
+  $(LIB32) $(LIB_FLAGS) /out:$@ $(Dep_tkgendlib)
+
+Dep_tcldlib = \
+	$(WRK)/tclWinNotify.obj\
+	$(WRK)/tclevent.obj\
+	$(WRK)/panic.obj\
+	$(WRK)/regexp.obj\
+	$(WRK)/tclasync.obj\
+	$(WRK)/tclget.obj\
+	$(WRK)/tclhash.obj\
+	$(WRK)/tclMtherr.obj\
+	$(WRK)/tclNotify.obj\
+	$(WRK)/tclutil.obj\
+	$(WRK)/tclWinTime.obj
+
+tcl.lib : $(Dep_tcldlib)
+  $(LIB32) $(LIB_FLAGS) /out:$@ $(Dep_tcldlib)
+
diff --git a/Win32/STk.def b/Win32/STk.def
new file mode 100644
index 0000000..1cd53ce
--- /dev/null
+++ b/Win32/STk.def
@@ -0,0 +1,6 @@
+NAME STK
+DESCRIPTION 'STk for Windows'
+EXETYPE WINDOWS
+CODE PRELOAD MOVEABLE DISCARDABLE
+DATA PRELOAD MOVEABLE MULTIPLE
+
diff --git a/Win32/STk.ico b/Win32/STk.ico
new file mode 100644
index 0000000..4fae910
Binary files /dev/null and b/Win32/STk.ico differ
diff --git a/Win32/STk.rc b/Win32/STk.rc
new file mode 100644
index 0000000..b15f1c5
--- /dev/null
+++ b/Win32/STk.rc
@@ -0,0 +1,117 @@
+// Rc file for Win32 STk
+
+VS_VERSION_INFO VERSIONINFO
+ FILEVERSION	3,1
+ PRODUCTVERSION	3,1
+ FILEFLAGSMASK	0x3fL
+ FILEFLAGS	0x0L
+ FILEOS		0x4L
+ FILETYPE	0x1L
+ FILESUBTYPE	0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+	BLOCK "040904b0"
+	BEGIN
+	    VALUE "FileDescription", "STk Application\0"
+	    VALUE "OriginalFilename", "stk.exe\0"
+	    VALUE "CompanyName", "I3S / CNRS - ESSI\0"
+	    VALUE "FileVersion", "3.1"
+	    VALUE "LegalCopyright", "Copyright \251 1996\0"
+	    VALUE "ProductName", "STk 3.1 for Windows\0"
+	    VALUE "ProductVersion", "3.1"
+	END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+	VALUE "Translation", 0x409, 1200
+    END
+END
+
+//
+// Icon
+//
+
+STk ICON "stk.ico"
+//
+// Cursor
+//
+
+X_cursor                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor00.cur"
+arrow                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor02.cur"
+based_arrow_down        CURSOR  DISCARDABLE     "../Tk/win/rc/cursor04.cur"
+based_arrow_up          CURSOR  DISCARDABLE     "../Tk/win/rc/cursor06.cur"
+boat                    CURSOR  DISCARDABLE     "../Tk/win/rc/cursor08.cur"
+bogosity                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor0a.cur"
+bottom_left_corner      CURSOR  DISCARDABLE     "../Tk/win/rc/cursor0c.cur"
+bottom_right_corner     CURSOR  DISCARDABLE     "../Tk/win/rc/cursor0e.cur"
+bottom_side             CURSOR  DISCARDABLE     "../Tk/win/rc/cursor10.cur"
+bottom_tee              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor12.cur"
+box_spiral              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor14.cur"
+center_ptr              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor16.cur"
+circle                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor18.cur"
+clock                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor1a.cur"
+coffee_mug              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor1c.cur"
+cross                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor1e.cur"
+cross_reverse           CURSOR  DISCARDABLE     "../Tk/win/rc/cursor20.cur"
+crosshair               CURSOR  DISCARDABLE     "../Tk/win/rc/cursor22.cur"
+diamond_cross           CURSOR  DISCARDABLE     "../Tk/win/rc/cursor24.cur"
+dot                     CURSOR  DISCARDABLE     "../Tk/win/rc/cursor26.cur"
+dotbox                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor28.cur"
+double_arrow            CURSOR  DISCARDABLE     "../Tk/win/rc/cursor2a.cur"
+draft_large             CURSOR  DISCARDABLE     "../Tk/win/rc/cursor2c.cur"
+draft_small             CURSOR  DISCARDABLE     "../Tk/win/rc/cursor2e.cur"
+draped_box              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor30.cur"
+exchange                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor32.cur"
+fleur                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor34.cur"
+gobbler                 CURSOR  DISCARDABLE     "../Tk/win/rc/cursor36.cur"
+gumby                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor38.cur"
+hand1                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor3a.cur"
+hand2                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor3c.cur"
+heart                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor3e.cur"
+icon                    CURSOR  DISCARDABLE     "../Tk/win/rc/cursor40.cur"
+iron_cross              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor42.cur"
+left_ptr                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor44.cur"
+left_side               CURSOR  DISCARDABLE     "../Tk/win/rc/cursor46.cur"
+left_tee                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor48.cur"
+leftbutton              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor4a.cur"
+ll_angle                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor4c.cur"
+lr_angle                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor4e.cur"
+man                     CURSOR  DISCARDABLE     "../Tk/win/rc/cursor50.cur"
+middlebutton            CURSOR  DISCARDABLE     "../Tk/win/rc/cursor52.cur"
+mouse                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor54.cur"
+pencil                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor56.cur"
+pirate                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor58.cur"
+plus                    CURSOR  DISCARDABLE     "../Tk/win/rc/cursor5a.cur"
+question_arrow          CURSOR  DISCARDABLE     "../Tk/win/rc/cursor5c.cur"
+right_ptr               CURSOR  DISCARDABLE     "../Tk/win/rc/cursor5e.cur"
+right_side              CURSOR  DISCARDABLE     "../Tk/win/rc/cursor60.cur"
+right_tee               CURSOR  DISCARDABLE     "../Tk/win/rc/cursor62.cur"
+rightbutton             CURSOR  DISCARDABLE     "../Tk/win/rc/cursor64.cur"
+rtl_logo                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor66.cur"
+sailboat                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor68.cur"
+sb_down_arrow           CURSOR  DISCARDABLE     "../Tk/win/rc/cursor6a.cur"
+sb_h_double_arrow       CURSOR  DISCARDABLE     "../Tk/win/rc/cursor6c.cur"
+sb_left_arrow           CURSOR  DISCARDABLE     "../Tk/win/rc/cursor6e.cur"
+sb_right_arrow          CURSOR  DISCARDABLE     "../Tk/win/rc/cursor70.cur"
+sb_up_arrow             CURSOR  DISCARDABLE     "../Tk/win/rc/cursor72.cur"
+sb_v_double_arrow       CURSOR  DISCARDABLE     "../Tk/win/rc/cursor74.cur"
+shuttle                 CURSOR  DISCARDABLE     "../Tk/win/rc/cursor76.cur"
+sizing                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor78.cur"
+spider                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor7a.cur"
+spraycan                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor7c.cur"
+star                    CURSOR  DISCARDABLE     "../Tk/win/rc/cursor7e.cur"
+target                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor80.cur"
+tcross                  CURSOR  DISCARDABLE     "../Tk/win/rc/cursor82.cur"
+top_left_arrow          CURSOR  DISCARDABLE     "../Tk/win/rc/cursor84.cur"
+top_left_corner         CURSOR  DISCARDABLE     "../Tk/win/rc/cursor86.cur"
+top_right_corner        CURSOR  DISCARDABLE     "../Tk/win/rc/cursor88.cur"
+top_side                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor8a.cur"
+top_tee                 CURSOR  DISCARDABLE     "../Tk/win/rc/cursor8c.cur"
+trek                    CURSOR  DISCARDABLE     "../Tk/win/rc/cursor8e.cur"
+ul_angle                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor90.cur"
+umbrella                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor92.cur"
+ur_angle                CURSOR  DISCARDABLE     "../Tk/win/rc/cursor94.cur"
+watch                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor96.cur"
+xterm                   CURSOR  DISCARDABLE     "../Tk/win/rc/cursor98.cur"
+
diff --git a/configure b/configure
new file mode 100755
index 0000000..0908901
--- /dev/null
+++ b/configure
@@ -0,0 +1,1892 @@
+#! /bin/sh
+
+# Guess values for system-dependent variables and create Makefiles.
+# Generated automatically using autoconf version 2.7 
+# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+#
+# This configure script is free software; the Free Software Foundation
+# gives unlimited permission to copy, distribute and modify it.
+
+# Defaults:
+ac_help=
+ac_default_prefix=/usr/local
+# Any additions from configure.in:
+ac_help="$ac_help
+  --with-x                use the X Window System"
+ac_help="$ac_help
+	--with-fgmp		Use a free replacement of Gnu MP package"
+ac_help="$ac_help
+	--enable-hash		Enable hash table support"
+ac_help="$ac_help
+	--enable-posix		Enable posix support"
+ac_help="$ac_help
+	--enable-stklos		Provide support for STklos"
+ac_help="$ac_help
+	--enable-socket		Provide support for sockets"
+ac_help="$ac_help
+	--enable-regexp		Provide support for regular expressions"
+ac_help="$ac_help
+	--enable-process	Provide support for Unix processes"
+ac_help="$ac_help
+	--enable-html		Enable html support"
+ac_help="$ac_help
+	--enable-pixmap		Enable pixmap images support"
+ac_help="$ac_help
+	--enable-elf		Enable Dynamic Loading using ELF (Linux only)"
+ac_help="$ac_help
+	--enable-dld		Enable Dynamic Loading using DLD (Linux only)"
+ac_help="$ac_help
+	--enable-dynload	Enable Dynamic loading"
+
+# Initialize some variables set by options.
+# The variables have the same names as the options, with
+# dashes changed to underlines.
+build=NONE
+cache_file=./config.cache
+exec_prefix=NONE
+host=NONE
+no_create=
+nonopt=NONE
+no_recursion=
+prefix=NONE
+program_prefix=NONE
+program_suffix=NONE
+program_transform_name=s,x,x,
+silent=
+site=
+srcdir=
+target=NONE
+verbose=
+x_includes=NONE
+x_libraries=NONE
+bindir='${exec_prefix}/bin'
+sbindir='${exec_prefix}/sbin'
+libexecdir='${exec_prefix}/libexec'
+datadir='${prefix}/share'
+sysconfdir='${prefix}/etc'
+sharedstatedir='${prefix}/com'
+localstatedir='${prefix}/var'
+libdir='${exec_prefix}/lib'
+includedir='${prefix}/include'
+oldincludedir='/usr/include'
+infodir='${prefix}/info'
+mandir='${prefix}/man'
+
+# Initialize some other variables.
+subdirs=
+MFLAGS= MAKEFLAGS=
+
+ac_prev=
+for ac_option
+do
+
+  # If the previous option needs an argument, assign it.
+  if test -n "$ac_prev"; then
+    eval "$ac_prev=\$ac_option"
+    ac_prev=
+    continue
+  fi
+
+  case "$ac_option" in
+  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
+  *) ac_optarg= ;;
+  esac
+
+  # Accept the important Cygnus configure options, so we can diagnose typos.
+
+  case "$ac_option" in
+
+  -bindir | --bindir | --bindi | --bind | --bin | --bi)
+    ac_prev=bindir ;;
+  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
+    bindir="$ac_optarg" ;;
+
+  -build | --build | --buil | --bui | --bu)
+    ac_prev=build ;;
+  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
+    build="$ac_optarg" ;;
+
+  -cache-file | --cache-file | --cache-fil | --cache-fi \
+  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
+    ac_prev=cache_file ;;
+  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
+  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
+    cache_file="$ac_optarg" ;;
+
+  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
+    ac_prev=datadir ;;
+  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
+  | --da=*)
+    datadir="$ac_optarg" ;;
+
+  -disable-* | --disable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    eval "enable_${ac_feature}=no" ;;
+
+  -enable-* | --enable-*)
+    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
+    fi
+    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "enable_${ac_feature}='$ac_optarg'" ;;
+
+  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
+  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
+  | --exec | --exe | --ex)
+    ac_prev=exec_prefix ;;
+  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
+  | --exec=* | --exe=* | --ex=*)
+    exec_prefix="$ac_optarg" ;;
+
+  -gas | --gas | --ga | --g)
+    # Obsolete; use --with-gas.
+    with_gas=yes ;;
+
+  -help | --help | --hel | --he)
+    # Omit some internal or obsolete options to make the list less imposing.
+    # This message is too long to be a string in the A/UX 3.1 sh.
+    cat << EOF
+Usage: configure [options] [host]
+Options: [defaults in brackets after descriptions]
+Configuration:
+  --cache-file=FILE       cache test results in FILE
+  --help                  print this message
+  --no-create             do not create output files
+  --quiet, --silent       do not print \`checking...' messages
+  --version               print the version of autoconf that created configure
+Directory and file names:
+  --prefix=PREFIX         install architecture-independent files in PREFIX
+                          [$ac_default_prefix]
+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
+                          [same as prefix]
+  --bindir=DIR            user executables in DIR [EPREFIX/bin]
+  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
+  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
+  --datadir=DIR           read-only architecture-independent data in DIR
+                          [PREFIX/share]
+  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
+  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
+                          [PREFIX/com]
+  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
+  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
+  --includedir=DIR        C header files in DIR [PREFIX/include]
+  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
+  --infodir=DIR           info documentation in DIR [PREFIX/info]
+  --mandir=DIR            man documentation in DIR [PREFIX/man]
+  --srcdir=DIR            find the sources in DIR [configure dir or ..]
+  --program-prefix=PREFIX prepend PREFIX to installed program names
+  --program-suffix=SUFFIX append SUFFIX to installed program names
+  --program-transform-name=PROGRAM
+                          run sed PROGRAM on installed program names
+EOF
+    cat << EOF
+Host type:
+  --build=BUILD           configure for building on BUILD [BUILD=HOST]
+  --host=HOST             configure for HOST [guessed]
+  --target=TARGET         configure for TARGET [TARGET=HOST]
+Features and packages:
+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
+  --x-includes=DIR        X include files are in DIR
+  --x-libraries=DIR       X library files are in DIR
+EOF
+    if test -n "$ac_help"; then
+      echo "--enable and --with options recognized:$ac_help"
+    fi
+    exit 0 ;;
+
+  -host | --host | --hos | --ho)
+    ac_prev=host ;;
+  -host=* | --host=* | --hos=* | --ho=*)
+    host="$ac_optarg" ;;
+
+  -includedir | --includedir | --includedi | --included | --include \
+  | --includ | --inclu | --incl | --inc)
+    ac_prev=includedir ;;
+  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
+  | --includ=* | --inclu=* | --incl=* | --inc=*)
+    includedir="$ac_optarg" ;;
+
+  -infodir | --infodir | --infodi | --infod | --info | --inf)
+    ac_prev=infodir ;;
+  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
+    infodir="$ac_optarg" ;;
+
+  -libdir | --libdir | --libdi | --libd)
+    ac_prev=libdir ;;
+  -libdir=* | --libdir=* | --libdi=* | --libd=*)
+    libdir="$ac_optarg" ;;
+
+  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
+  | --libexe | --libex | --libe)
+    ac_prev=libexecdir ;;
+  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
+  | --libexe=* | --libex=* | --libe=*)
+    libexecdir="$ac_optarg" ;;
+
+  -localstatedir | --localstatedir | --localstatedi | --localstated \
+  | --localstate | --localstat | --localsta | --localst \
+  | --locals | --local | --loca | --loc | --lo)
+    ac_prev=localstatedir ;;
+  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
+  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
+  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
+    localstatedir="$ac_optarg" ;;
+
+  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
+    ac_prev=mandir ;;
+  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
+    mandir="$ac_optarg" ;;
+
+  -nfp | --nfp | --nf)
+    # Obsolete; use --without-fp.
+    with_fp=no ;;
+
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c)
+    no_create=yes ;;
+
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
+    no_recursion=yes ;;
+
+  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
+  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
+  | --oldin | --oldi | --old | --ol | --o)
+    ac_prev=oldincludedir ;;
+  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
+  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
+  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
+    oldincludedir="$ac_optarg" ;;
+
+  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
+    ac_prev=prefix ;;
+  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
+    prefix="$ac_optarg" ;;
+
+  -program-prefix | --program-prefix | --program-prefi | --program-pref \
+  | --program-pre | --program-pr | --program-p)
+    ac_prev=program_prefix ;;
+  -program-prefix=* | --program-prefix=* | --program-prefi=* \
+  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
+    program_prefix="$ac_optarg" ;;
+
+  -program-suffix | --program-suffix | --program-suffi | --program-suff \
+  | --program-suf | --program-su | --program-s)
+    ac_prev=program_suffix ;;
+  -program-suffix=* | --program-suffix=* | --program-suffi=* \
+  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
+    program_suffix="$ac_optarg" ;;
+
+  -program-transform-name | --program-transform-name \
+  | --program-transform-nam | --program-transform-na \
+  | --program-transform-n | --program-transform- \
+  | --program-transform | --program-transfor \
+  | --program-transfo | --program-transf \
+  | --program-trans | --program-tran \
+  | --progr-tra | --program-tr | --program-t)
+    ac_prev=program_transform_name ;;
+  -program-transform-name=* | --program-transform-name=* \
+  | --program-transform-nam=* | --program-transform-na=* \
+  | --program-transform-n=* | --program-transform-=* \
+  | --program-transform=* | --program-transfor=* \
+  | --program-transfo=* | --program-transf=* \
+  | --program-trans=* | --program-tran=* \
+  | --progr-tra=* | --program-tr=* | --program-t=*)
+    program_transform_name="$ac_optarg" ;;
+
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil)
+    silent=yes ;;
+
+  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
+    ac_prev=sbindir ;;
+  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
+  | --sbi=* | --sb=*)
+    sbindir="$ac_optarg" ;;
+
+  -sharedstatedir | --sharedstatedir | --sharedstatedi \
+  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
+  | --sharedst | --shareds | --shared | --share | --shar \
+  | --sha | --sh)
+    ac_prev=sharedstatedir ;;
+  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
+  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
+  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
+  | --sha=* | --sh=*)
+    sharedstatedir="$ac_optarg" ;;
+
+  -site | --site | --sit)
+    ac_prev=site ;;
+  -site=* | --site=* | --sit=*)
+    site="$ac_optarg" ;;
+
+  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
+    ac_prev=srcdir ;;
+  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
+    srcdir="$ac_optarg" ;;
+
+  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
+  | --syscon | --sysco | --sysc | --sys | --sy)
+    ac_prev=sysconfdir ;;
+  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
+  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
+    sysconfdir="$ac_optarg" ;;
+
+  -target | --target | --targe | --targ | --tar | --ta | --t)
+    ac_prev=target ;;
+  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
+    target="$ac_optarg" ;;
+
+  -v | -verbose | --verbose | --verbos | --verbo | --verb)
+    verbose=yes ;;
+
+  -version | --version | --versio | --versi | --vers)
+    echo "configure generated by autoconf version 2.7"
+    exit 0 ;;
+
+  -with-* | --with-*)
+    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    case "$ac_option" in
+      *=*) ;;
+      *) ac_optarg=yes ;;
+    esac
+    eval "with_${ac_package}='$ac_optarg'" ;;
+
+  -without-* | --without-*)
+    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
+    # Reject names that are not valid shell variable names.
+    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
+      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
+    fi
+    ac_package=`echo $ac_package| sed 's/-/_/g'`
+    eval "with_${ac_package}=no" ;;
+
+  --x)
+    # Obsolete; use --with-x.
+    with_x=yes ;;
+
+  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
+  | --x-incl | --x-inc | --x-in | --x-i)
+    ac_prev=x_includes ;;
+  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
+  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
+    x_includes="$ac_optarg" ;;
+
+  -x-libraries | --x-libraries | --x-librarie | --x-librari \
+  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
+    ac_prev=x_libraries ;;
+  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
+  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
+    x_libraries="$ac_optarg" ;;
+
+  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
+    ;;
+
+  *)
+    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
+      echo "configure: warning: $ac_option: invalid host type" 1>&2
+    fi
+    if test "x$nonopt" != xNONE; then
+      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
+    fi
+    nonopt="$ac_option"
+    ;;
+
+  esac
+done
+
+if test -n "$ac_prev"; then
+  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
+fi
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+# File descriptor usage:
+# 0 standard input
+# 1 file creation
+# 2 errors and warnings
+# 3 some systems may open it to /dev/tty
+# 4 used on the Kubota Titan
+# 6 checking for... messages and results
+# 5 compiler messages saved in config.log
+if test "$silent" = yes; then
+  exec 6>/dev/null
+else
+  exec 6>&1
+fi
+exec 5>./config.log
+
+echo "\
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+" 1>&5
+
+# Strip out --no-create and --no-recursion so they do not pile up.
+# Also quote any args containing shell metacharacters.
+ac_configure_args=
+for ac_arg
+do
+  case "$ac_arg" in
+  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
+  | --no-cr | --no-c) ;;
+  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
+  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
+  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
+  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
+  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
+  esac
+done
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+
+# confdefs.h avoids OS command line length limits that DEFS can exceed.
+rm -rf conftest* confdefs.h
+# AIX cpp loses on an empty file, so make sure it contains at least a newline.
+echo > confdefs.h
+
+# A filename unique to this package, relative to the directory that
+# configure is in, which we can look for to find out if srcdir is correct.
+ac_unique_file=README
+
+# Find the source files, if location was not specified.
+if test -z "$srcdir"; then
+  ac_srcdir_defaulted=yes
+  # Try the directory containing this script, then its parent.
+  ac_prog=$0
+  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
+  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
+  srcdir=$ac_confdir
+  if test ! -r $srcdir/$ac_unique_file; then
+    srcdir=..
+  fi
+else
+  ac_srcdir_defaulted=no
+fi
+if test ! -r $srcdir/$ac_unique_file; then
+  if test "$ac_srcdir_defaulted" = yes; then
+    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
+  else
+    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
+  fi
+fi
+srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
+
+# Prefer explicitly selected file to automatically selected ones.
+if test -z "$CONFIG_SITE"; then
+  if test "x$prefix" != xNONE; then
+    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
+  else
+    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
+  fi
+fi
+for ac_site_file in $CONFIG_SITE; do
+  if test -r "$ac_site_file"; then
+    echo "loading site script $ac_site_file"
+    . "$ac_site_file"
+  fi
+done
+
+if test -r "$cache_file"; then
+  echo "loading cache $cache_file"
+  . $cache_file
+else
+  echo "creating cache $cache_file"
+  > $cache_file
+fi
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='echo $CPP $CPPFLAGS 1>&5;
+$CPP $CPPFLAGS'
+ac_compile='echo ${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5;
+${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
+ac_link='echo ${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5;
+${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
+
+if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
+  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
+  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
+    ac_n= ac_c='
+' ac_t='	'
+  else
+    ac_n=-n ac_c= ac_t=
+  fi
+else
+  ac_n= ac_c='\c' ac_t=
+fi
+
+
+
+# I have a lot of problems with cache. So ...
+/bin/rm -f ./config.cache Src/config.cache Tk/config.cache Tcl/config.cache
+
+# determine the kind of the machine which is running this script
+os=`uname -s`
+version=`uname -r`
+machine=`uname -m`
+
+case $os in
+  Linux*) 
+	  case $version in
+            1.*) version=1.X;;
+	    2.*) version=2.X;;
+	  esac
+	  case $machine in
+	    i*86) machine=ix86;;
+	  esac;;
+  SunOS*)
+	  case $version in
+	    4.1.*) version=4.1.X;;
+	  esac
+	  case $machine in
+	    sun4*) machine=sun4;;
+	  esac;;
+  IRIX*)
+	  case $version in
+	    5.*) version=5.X;;
+	    6.*) version=6.X;;
+	  esac
+	  case $machine in
+	   IP*) machine=IPxx;;
+	  esac;;
+  HP-UX*)
+ 	  case $version in
+ 	    A.09.*) version=9.X;;
+ 	    A.10.*) version=10.X;;
+ 	  esac
+ 	  case $machine in
+ 	    9000/7*) machine=9000s700;;
+ 	  esac;;
+esac
+
+#
+# General variables:
+#	DFLGS= the -Dxxx options
+#	EDFLGS= the -Dxxx options (which could be erased if dyn. loading is enabled)
+#	EOBJ= Some extra '.o' to build
+#	ETKOBJ= Some extra '.o' to build (when used with Tk)
+#	MACHINE= something which identifies the machine (hard/OS/machine)
+DFLGS="-DSTk_CODE"
+EOBJ=""
+ETKOBJ=""
+EDFLGS=""
+MACHINE=$os-$version-$machine
+
+
+
+
+
+####
+#### Checks for various programs:
+####
+# Extract the first word of "ranlib", so it can be a program name with args.
+set dummy ranlib; ac_word=$2
+echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test -n "$RANLIB"; then
+  ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
+else
+  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+  for ac_dir in $PATH; do
+    test -z "$ac_dir" && ac_dir=.
+    if test -f $ac_dir/$ac_word; then
+      ac_cv_prog_RANLIB="ranlib"
+      break
+    fi
+  done
+  IFS="$ac_save_ifs"
+  test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":"
+fi
+fi
+RANLIB="$ac_cv_prog_RANLIB"
+if test -n "$RANLIB"; then
+  echo "$ac_t""$RANLIB" 1>&6
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+STRIP=strip; 
+
+####
+#### Find the C compiler an compile flags
+####
+CC=${CC-gcc}
+echo "Using '$CC' compiler"
+
+
+STKCFLAGS=${CFLAGS-"-O2"}
+
+echo "Using '$STKCFLAGS' compilation options"
+
+STKLDFLAGS=""
+
+
+####
+#### Try to figure the system we have
+####
+case $MACHINE in
+  SunOS-4*)  OS=SUNOS4;;
+  SunOS-5*)  OS=SUNOS5;;
+  OSF1*)     OS=OSF1;;
+  ULTRIX*)   OS=ULTRIX;;
+  HP*)	     OS=HPUX; DFLGS="$DFLGS -Dhpux";;
+  Linux*)    OS=LINUX;;
+  NetBSD-1*) OS=NETBSD1;;
+  FreeBSD*)  OS=FREEBSD;;
+  IRIX-5*)   OS=IRIX5;;
+  *)         OS=unknown_system;;
+esac
+
+# Set the OS flag soon since it can be augmented with Linux
+DFLGS="$DFLGS -D$OS"
+echo "Assumming OS is $OS"
+
+####
+#### X11 stuff
+####
+echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+# On Suns, sometimes $CPP names a directory.
+if test -n "$CPP" && test -d "$CPP"; then
+  CPP=
+fi
+if test -z "$CPP"; then
+if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+    # This must be in double quotes, not single quotes, because CPP may get
+  # substituted into the Makefile and "${CC-cc}" will confuse make.
+  CPP="${CC-cc} -E"
+  # On the NeXT, cc -E runs the code through the compiler's parser,
+  # not just through cpp.
+  cat > conftest.$ac_ext <<EOF
+#line 690 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP="${CC-cc} -E -traditional-cpp"
+  cat > conftest.$ac_ext <<EOF
+#line 704 "configure"
+#include "confdefs.h"
+#include <assert.h>
+Syntax Error
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  :
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+  CPP=/lib/cpp
+fi
+rm -f conftest*
+fi
+rm -f conftest*
+  ac_cv_prog_CPP="$CPP"
+fi
+  CPP="$ac_cv_prog_CPP"
+else
+  ac_cv_prog_CPP="$CPP"
+fi
+echo "$ac_t""$CPP" 1>&6
+
+# If we find X, set shell vars x_includes and x_libraries to the
+# paths, otherwise set no_x=yes.
+# Uses ac_ vars as temps to allow command line to override cache and checks.
+# --without-x overrides everything else, but does not touch the cache.
+echo $ac_n "checking for X""... $ac_c" 1>&6
+
+# Check whether --with-x or --without-x was given.
+if test "${with_x+set}" = set; then
+  withval="$with_x"
+  :
+fi
+
+if test "x$with_x" = xno; then
+  no_x=yes
+else
+  if test "x$x_includes" != xNONE && test "x$x_libraries" != xNONE; then
+    no_x=
+  else
+if eval "test \"`echo '$''{'ac_cv_path_x'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  # One or both of the vars are not set, and there is no cached value.
+no_x=yes
+rm -fr conftestdir
+if mkdir conftestdir; then
+  cd conftestdir
+  # Make sure to not put "make" in the Imakefile rules, since we grep it out.
+  cat > Imakefile <<'EOF'
+acfindx:
+	@echo 'ac_im_incroot="${INCROOT}"; ac_im_usrlibdir="${USRLIBDIR}"; ac_im_libdir="${LIBDIR}"'
+EOF
+  if (xmkmf) >/dev/null 2>/dev/null && test -f Makefile; then
+    no_x=
+    # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
+    eval `${MAKE-make} acfindx 2>/dev/null | grep -v make`
+    # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
+    for ac_extension in a so sl; do
+      if test ! -f $ac_im_usrlibdir/libX11.$ac_extension &&
+        test -f $ac_im_libdir/libX11.$ac_extension; then
+        ac_im_usrlibdir=$ac_im_libdir; break
+      fi
+    done
+    # Screen out bogus values from the imake configuration.
+    case "$ac_im_incroot" in
+	/usr/include) ;;
+	*) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes="$ac_im_incroot" ;;
+    esac
+    case "$ac_im_usrlibdir" in
+	/usr/lib | /lib) ;;
+	*) test -d "$ac_im_usrlibdir" && ac_x_libraries="$ac_im_usrlibdir" ;;
+    esac
+  fi
+  cd ..
+  rm -fr conftestdir
+fi
+
+if test "$no_x" = yes; then
+test -z "$x_direct_test_library" && x_direct_test_library=Xt
+test -z "$x_direct_test_function" && x_direct_test_function=XtMalloc
+test -z "$x_direct_test_include" && x_direct_test_include=X11/Intrinsic.h
+cat > conftest.$ac_ext <<EOF
+#line 790 "configure"
+#include "confdefs.h"
+#include <$x_direct_test_include>
+EOF
+eval "$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
+ac_err=`grep -v '^ *+' conftest.out`
+if test -z "$ac_err"; then
+  rm -rf conftest*
+  no_x= ac_x_includes=
+else
+  echo "$ac_err" >&5
+  rm -rf conftest*
+    for ac_dir in               \
+    /usr/X11R6/include        \
+    /usr/X11R5/include        \
+    /usr/X11R4/include        \
+                              \
+    /usr/include/X11R6        \
+    /usr/include/X11R5        \
+    /usr/include/X11R4        \
+                              \
+    /usr/local/X11R6/include  \
+    /usr/local/X11R5/include  \
+    /usr/local/X11R4/include  \
+                              \
+    /usr/local/include/X11R6  \
+    /usr/local/include/X11R5  \
+    /usr/local/include/X11R4  \
+                              \
+    /usr/X11/include          \
+    /usr/include/X11          \
+    /usr/local/X11/include    \
+    /usr/local/include/X11    \
+                              \
+    /usr/X386/include         \
+    /usr/x386/include         \
+    /usr/XFree86/include/X11  \
+                              \
+    /usr/include              \
+    /usr/local/include        \
+    /usr/unsupported/include  \
+    /usr/athena/include       \
+    /usr/local/x11r5/include  \
+    /usr/lpp/Xamples/include  \
+                              \
+    /usr/openwin/include      \
+    /usr/openwin/share/include \
+    ; \
+  do
+    if test -r "$ac_dir/$x_direct_test_include"; then
+      no_x= ac_x_includes=$ac_dir
+      break
+    fi
+  done
+fi
+rm -f conftest*
+
+# Check for the libraries.
+# See if we find them without any special options.
+# Don't add to $LIBS permanently.
+ac_save_LIBS="$LIBS"
+LIBS="-l$x_direct_test_library $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 853 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+${x_direct_test_function}()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  LIBS="$ac_save_LIBS" no_x= ac_x_libraries=
+else
+  rm -rf conftest*
+  LIBS="$ac_save_LIBS"
+# First see if replacing the include by lib works.
+for ac_dir in `echo "$ac_x_includes" | sed s/include/lib/` \
+    /usr/X11R6/lib        \
+    /usr/X11R5/lib        \
+    /usr/X11R4/lib        \
+                          \
+    /usr/lib/X11R6        \
+    /usr/lib/X11R5        \
+    /usr/lib/X11R4        \
+                          \
+    /usr/local/X11R6/lib  \
+    /usr/local/X11R5/lib  \
+    /usr/local/X11R4/lib  \
+                          \
+    /usr/local/lib/X11R6  \
+    /usr/local/lib/X11R5  \
+    /usr/local/lib/X11R4  \
+                          \
+    /usr/X11/lib          \
+    /usr/lib/X11          \
+    /usr/local/X11/lib    \
+    /usr/local/lib/X11    \
+                          \
+    /usr/X386/lib         \
+    /usr/x386/lib         \
+    /usr/XFree86/lib/X11  \
+                          \
+    /usr/lib              \
+    /usr/local/lib        \
+    /usr/unsupported/lib  \
+    /usr/athena/lib       \
+    /usr/local/x11r5/lib  \
+    /usr/lpp/Xamples/lib  \
+                          \
+    /usr/openwin/lib      \
+    /usr/openwin/share/lib \
+    ; \
+do
+  for ac_extension in a so sl; do
+    if test -r $ac_dir/lib${x_direct_test_library}.$ac_extension; then
+      no_x= ac_x_libraries=$ac_dir
+      break 2
+    fi
+  done
+done
+fi
+rm -f conftest*
+
+fi
+if test "$no_x" = yes; then
+  ac_cv_path_x="no_x=yes"
+else
+  ac_cv_path_x="no_x= ac_x_includes=$ac_x_includes ac_x_libraries=$ac_x_libraries"
+fi
+fi
+  fi
+  eval "$ac_cv_path_x"
+fi # $with_x != no
+
+if test "$no_x" = yes; then
+  echo "$ac_t""no" 1>&6
+else
+  test "x$x_includes" = xNONE && x_includes=$ac_x_includes
+  test "x$x_libraries" = xNONE && x_libraries=$ac_x_libraries
+  ac_cv_path_x="no_x= ac_x_includes=$x_includes ac_x_libraries=$x_libraries"
+  echo "$ac_t""libraries $x_libraries, headers $x_includes" 1>&6
+fi
+
+echo $ac_n "checking for POSIXized ISC""... $ac_c" 1>&6
+if test -d /etc/conf/kconfig.d &&
+  grep _POSIX_VERSION /usr/include/sys/unistd.h >/dev/null 2>&1
+then
+  echo "$ac_t""yes" 1>&6
+  ISC=yes # If later tests want to check for ISC.
+  cat >> confdefs.h <<\EOF
+#define _POSIX_SOURCE 1
+EOF
+
+  if test "$GCC" = yes; then
+    CC="$CC -posix"
+  else
+    CC="$CC -Xp"
+  fi
+else
+  echo "$ac_t""no" 1>&6
+  ISC=
+fi
+
+if test "$no_x" = yes; then 
+  # Not all programs may use this symbol, but it does not hurt to define it.
+  X_CFLAGS="$X_CFLAGS -DX_DISPLAY_MISSING"
+else
+  if test -n "$x_includes"; then
+    X_CFLAGS="$X_CFLAGS -I$x_includes"
+  fi
+
+  # It would be nice to have a more robust check for the -R ld option than
+  # just checking for Solaris.
+  # It would also be nice to do this for all -L options, not just this one.
+  if test -n "$x_libraries"; then
+    X_LIBS="$X_LIBS -L$x_libraries"
+    if test "`(uname) 2>/dev/null`" = SunOS &&
+      uname -r | grep '^5' >/dev/null; then
+      X_LIBS="$X_LIBS -R $x_libraries"
+    fi
+  fi
+
+  # Check for libraries that X11R6 Xt/Xaw programs need.
+
+  ac_save_LDFLAGS="$LDFLAGS"
+  LDFLAGS="$LDFLAGS -L$x_libraries"
+  # SM needs ICE to (dynamically) link under SunOS 4.x (so we have to
+  # check for ICE first), but we must link in the order -lSM -lICE or
+  # we get undefined symbols.  So assume we have SM if we have ICE.
+  # These have to be linked with before -lX11, unlike the other
+  # libraries we check for below, so use a different variable.
+  #  --interran@uluru.Stanford.EDU, kb@cs.umb.edu.
+  echo $ac_n "checking for -lICE""... $ac_c" 1>&6
+ac_lib_var=`echo ICE | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lICE  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 992 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+IceConnectionNumber()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  X_PRE_LIBS="$X_PRE_LIBS -lSM -lICE"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+  LDFLAGS="$ac_save_LDFLAGS"
+
+  # Check for system-dependent libraries X programs must link with.
+
+  if test "$ISC" = yes; then
+    X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl_s -linet"
+  else
+    # Martyn.Johnson@cl.cam.ac.uk says this is needed for Ultrix, if the X
+    # libraries were built with DECnet support.  And karl@cs.umb.edu says
+    # the Alpha needs dnet_stub (dnet does not exist).
+    echo $ac_n "checking for -ldnet""... $ac_c" 1>&6
+ac_lib_var=`echo dnet | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-ldnet  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1036 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+dnet_ntoa()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  X_EXTRA_LIBS="$X_EXTRA_LIBS -ldnet"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+    if test $ac_cv_lib_dnet = no; then
+      echo $ac_n "checking for -ldnet_stub""... $ac_c" 1>&6
+ac_lib_var=`echo dnet_stub | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-ldnet_stub  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1071 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+dnet_ntoa()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  X_EXTRA_LIBS="$X_EXTRA_LIBS -ldnet_stub"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+    fi
+
+    # msh@cis.ufl.edu says -lnsl (and -lsocket) are needed for his 386/AT,
+    # to get the SysV transport functions.
+    # Not sure which flavor of 386 UNIX this is, but it seems harmless to
+    # check for it.
+    echo $ac_n "checking for -lnsl""... $ac_c" 1>&6
+ac_lib_var=`echo nsl | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lnsl  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1111 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+t_accept()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+
+    # lieder@skyler.mavd.honeywell.com says without -lsocket,
+    # socket/setsockopt and other routines are undefined under SCO ODT 2.0.
+    # But -lsocket is broken on IRIX, according to simon@lia.di.epfl.ch.
+    if test "`(uname) 2>/dev/null`" != IRIX; then
+      echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
+ac_lib_var=`echo socket | tr '.-/+' '___p'`
+if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  ac_save_LIBS="$LIBS"
+LIBS="-lsocket  $LIBS"
+cat > conftest.$ac_ext <<EOF
+#line 1150 "configure"
+#include "confdefs.h"
+
+int main() { return 0; }
+int t() {
+socket()
+; return 0; }
+EOF
+if eval $ac_link; then
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=yes"
+else
+  rm -rf conftest*
+  eval "ac_cv_lib_$ac_lib_var=no"
+fi
+rm -f conftest*
+LIBS="$ac_save_LIBS"
+
+fi
+if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  X_EXTRA_LIBS="$X_EXTRA_LIBS -lsocket"
+else
+  echo "$ac_t""no" 1>&6
+fi
+
+    fi
+  fi
+fi
+
+
+XINCLUDES=""; 
+XLIBSW="";    
+
+if test "$x_includes" != "" 
+then 
+  XINCLUDES="-I$x_includes"
+fi
+
+if test "$x_libraries" != ""
+then
+   XLIBSW="-L$x_libraries"
+fi
+
+XLIBSW="$XLIBSW $X_PRE_LIBS -lX11 $X_EXTRA_LIBS"
+
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
+cat > conftest.$ac_ext <<EOF
+#line 1209 "configure"
+#include "confdefs.h"
+#include <sys/types.h>
+int main() { return 0; }
+int t() {
+fd_set readMask, writeMask;
+; return 0; }
+EOF
+if eval $ac_compile; then
+  rm -rf conftest*
+  tk_ok=yes
+else
+  rm -rf conftest*
+  tk_ok=no
+fi
+rm -f conftest*
+
+if test $tk_ok = no; then
+    cat > conftest.$ac_ext <<EOF
+#line 1228 "configure"
+#include "confdefs.h"
+#include <sys/select.h>
+EOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "fd_mask" >/dev/null 2>&1; then
+  rm -rf conftest*
+  tk_ok=yes
+fi
+rm -f conftest*
+
+    if test $tk_ok = yes; then
+	cat >> confdefs.h <<\EOF
+#define HAVE_SYS_SELECT_H 1
+EOF
+
+    fi
+fi
+echo "$ac_t""$tk_ok" 1>&6
+if test $tk_ok = no; then
+    cat >> confdefs.h <<\EOF
+#define NO_FD_SET 1
+EOF
+
+fi
+
+
+####
+#### Find the MP library to use
+####
+# Check whether --with-fgmp or --without-fgmp was given.
+if test "${with_fgmp+set}" = set; then
+  withval="$with_fgmp"
+  MP=libfgmp
+else
+  MP=libgmp
+fi
+
+echo "Multiple precision library: $MP"
+
+
+####
+#### Hash tables
+####
+# Check whether --enable-hash or --disable-hash was given.
+if test "${enable_hash+set}" = set; then
+  enableval="$enable_hash"
+  hashtable="$enable_hash"
+else
+  hashtable="yes"
+fi
+
+
+if test "$hashtable" = "yes" ; 
+then
+  EOBJ="$EOBJ hash.o"; EDFLGS="$EDFLGS -DUSE_HASH"
+fi
+
+echo "Hash tables support: $hashtable"
+
+####
+#### Posix support
+####
+# Check whether --enable-posix or --disable-posix was given.
+if test "${enable_posix+set}" = set; then
+  enableval="$enable_posix"
+  posix="$enable_posix"
+else
+  posix="yes"
+fi
+
+
+if test "$posix" = "yes" ; 
+then
+  EOBJ="$EOBJ posix.o"; EDFLGS="$EDFLGS -DUSE_POSIX"
+fi
+
+echo "Posix support: $posix"
+
+####
+#### Use STklos support
+####
+# Check whether --enable-stklos or --disable-stklos was given.
+if test "${enable_stklos+set}" = set; then
+  enableval="$enable_stklos"
+  stklos="$enable_stklos"
+else
+  stklos="yes"
+fi
+
+
+if test "$stklos" = "yes" ; 
+then
+  if test "$hashtable" != "yes"
+  then
+    echo "*** Hash table support is required for STklos."
+    echo "*** Forcing hash table support building."
+    EOBJ="$EOBJ hash.o"; EDFLGS="$EDFLGS -DUSE_HASH"
+  fi
+  DFLGS="$DFLGS -DUSE_STKLOS"
+fi
+echo "STklos support: $stklos"
+
+####
+#### Use Socket support from David Tolpin (dvd@pizza.msk.su)
+####
+# Check whether --enable-socket or --disable-socket was given.
+if test "${enable_socket+set}" = set; then
+  enableval="$enable_socket"
+  socket="$enable_socket"
+else
+  socket="yes"
+fi
+
+
+if test "$socket" = "yes" 
+then
+   EOBJ="$EOBJ socket.o"; EDFLGS="$EDFLGS -DUSE_SOCKET"
+fi
+echo "Socket support: $socket"
+
+
+####
+#### Use Regexp support 
+####
+# Check whether --enable-regexp or --disable-regexp was given.
+if test "${enable_regexp+set}" = set; then
+  enableval="$enable_regexp"
+  regexpr="$enable_regexpr"
+else
+  regexpr="yes"
+fi
+
+
+if test "$regexpr" = "yes" 
+then 
+   EOBJ="$EOBJ sregexp.o"; EDFLGS="$EDFLGS -DUSE_REGEXP"
+fi
+echo "Regexp support: $regexpr"
+
+
+####
+#### Use Process support 
+####
+# Check whether --enable-process or --disable-process was given.
+if test "${enable_process+set}" = set; then
+  enableval="$enable_process"
+  process="$enable_process"
+else
+  process="yes"
+fi
+
+
+if test "$process" = "yes" 
+then
+   EOBJ="$EOBJ process.o"; EDFLGS="$EDFLGS -DUSE_PROCESS"
+fi
+echo "Process support: $process"
+
+####
+#### Html support
+####
+# Check whether --enable-html or --disable-html was given.
+if test "${enable_html+set}" = set; then
+  enableval="$enable_html"
+  html="$enable_html"
+else
+  html="yes"
+fi
+
+
+if test "$html" = "yes" ; 
+then
+  EOBJ="$EOBJ html.o"; EDFLGS="$EDFLGS -DUSE_HTML"
+fi
+
+echo "Html support: $html"
+
+####
+#### Pixmap support
+####
+# Check whether --enable-pixmap or --disable-pixmap was given.
+if test "${enable_pixmap+set}" = set; then
+  enableval="$enable_pixmap"
+  pixmapimages="$enable_pixmap"
+else
+  pixmapimages="yes"
+fi
+
+
+if test "$pixmapimages" = "yes" ; 
+then
+  ETKOBJ="$ETKOBJ pixmap.o"; EDFLGS="$EDFLGS -DUSE_PIXMAP"
+fi
+echo "Pixmap Images support: $pixmapimages"
+
+
+##############################################################################
+####
+#### Dynamic loading
+#### 
+##############################################################################
+DYNLOAD=""       ; 
+EXTRA_OBJ=""     ; 
+LIB_DLD=""	 ; 
+HAVE_DYNLOAD=yes
+
+case $OS in
+  unkn*)   HAVE_DYNLOAD="no";;
+  ULTRIX)  HAVE_DYNLOAD="no";;
+  LINUX)   HAVE_DYNLOAD="no";
+	   # Try to see if this system could be a ELF one
+	   elf_hint="no"
+	   for i in /lib/libc.so*
+	   do
+	     set `file  $i`
+	     if test "$2" = "ELF"
+	     then 
+	       elf_hint="yes"
+	       break
+	     fi
+	   done 2> /dev/null
+ 
+           # Check whether --enable-elf or --disable-elf was given.
+if test "${enable_elf+set}" = set; then
+  enableval="$enable_elf"
+  dynload_elf="$enable_elf"
+else
+  dynload_elf=$elf_hint
+fi
+
+	   
+           # Check whether --enable-dld or --disable-dld was given.
+if test "${enable_dld+set}" = set; then
+  enableval="$enable_dld"
+  dynload_dld="$enable_dld"
+else
+  dynload_dld="no"
+fi
+
+	   if test "$dynload_elf" = "yes"
+	   then 
+	     if test "$dynload_dld" = "yes"
+	     then
+	       echo "**** You have set both DLD and ELF support. Rerun configure"
+	       exit 1
+	     fi
+	     OS=LINUX_ELF
+	     echo "Linux: Using ELF for dynamic loading"
+	     HAVE_DYNLOAD="yes"
+	   fi
+	   if test "$dynload_dld" = "yes"
+	   then 
+	     OS=LINUX_DLD
+	     echo "Linux: Using DLD for dynamic loading"
+	     HAVE_DYNLOAD="yes"
+	   fi
+	   # Set a compilation flag indicating the format used
+	   DFLGS="$DFLGS -D$OS" ;;
+   *)      # Check whether --enable-dynload or --disable-dynload was given.
+if test "${enable_dynload+set}" = set; then
+  enableval="$enable_dynload"
+  dynload="$enable_dynload"
+else
+  dynload="yes"
+fi
+
+
+	   if test "$dynload" = "no"
+	   then
+	     echo "======== Don't use dynamic loading ======="; 
+	     HAVE_DYNLOAD="no";
+	   fi;;
+esac
+	
+
+SH_CCFLAGS=""; 
+SH_LDFLAGS=""; 
+SH_LOADER=":"; 
+SH_SUFFIX="";  
+LIB_MALLOC=""; 
+
+echo "Determining options for dynamic loading for $OS"
+case $OS in 
+  SUNOS4) 
+     SH_CCFLAGS="-pic"
+     SH_LDFLAGS="-assert pure-text -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   SUNOS5)
+     SH_CCFLAGS="-K pic"
+     SH_LDFLAGS='-G -z text -h'
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   OSF1)
+     SH_CCFLAGS="-fpic"
+     SH_LDFLAGS="-shared -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so' ;;
+   NETBSD1) 
+     SH_CCFLAGS="-fpic"
+     SH_LDFLAGS="-Bshareable -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   HPUX)
+     SH_CCFLAGS="+Z"
+     SH_LDFLAGS="-b -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='sl'
+     STKLDFLAGS="$STKLDFLAGS -Wl,-E"
+     LIB_DLD=-ldld;;
+   FREEBSD)
+     SH_CCFLAGS="-pic"
+     SH_LDFLAGS="-Bshareable -o"
+     SH_LOADER="ld"
+     LIB_MALLOC="-lgnumalloc"
+     SH_SUFFIX='so';;
+   IRIX5)
+     if test "$CC" = "gcc"
+     then 
+       SH_CCFLAGS="-fpic"
+     else
+       SH_CCFLAGS="-KPIC"
+     fi
+     SH_LDFLAGS="-shared -o"
+     SH_LOADER="$CC"
+     SH_SUFFIX='so' ;;
+   LINUX)
+     echo "     Linux: no dynamic loading method choosed";;
+   LINUX_DLD)
+     SH_CCFLAGS=''
+     SH_LDFLAGS='-r -o'
+     SH_LOADER='ld'
+     SH_SUFFIX='so'
+     # Define STRIP to true to avoid executables striping when using DLD
+     STRIP=true
+     # Add the -ldld flag 
+     LIB_DLD=-ldld;;
+   LINUX_ELF)
+     SH_CCFLAGS=''
+     SH_LDFLAGS='-shared -o'
+     SH_LOADER='ld'
+     SH_SUFFIX='so' 
+     # Under ELF, use the -rdynamic option at ld phase
+     STKLDFLAGS=-rdynamic;;
+   *) echo " (I don't know how to make shared libraries for $OS)" ;;
+esac
+
+#
+# Transform -pic in -fpic if using gcc
+#
+if test ! -z "SH_CCFLAGS" ; then 
+  if test "$CC" = "gcc" -a "$SH_CCFLAGS" != "" ; then
+    SH_CCFLAGS="-fpic"
+  fi
+fi
+
+if  test "$HAVE_DYNLOAD" = "yes"
+then
+  for _i_ in $EOBJ $ETKOBJ
+  do 
+    EXTRA_OBJ="$EXTRA_OBJ `basename $_i_ .o`.$SH_SUFFIX"
+  done
+  DYNLOAD=-DUSE_DYNLOAD
+  EOBJ=""
+  ETKOBJ=""
+  EDFLGS=""
+fi
+
+# Set final DFLGS
+DFLGS="$DFLGS $EDFLGS"
+
+####
+#### Produce the Makefile
+####
+echo
+trap '' 1 2 15
+cat > confcache <<\EOF
+# This file is a shell script that caches the results of configure
+# tests run on this system so they can be shared between configure
+# scripts and configure runs.  It is not useful on other systems.
+# If it contains results you don't want to keep, you may remove or edit it.
+#
+# By default, configure uses ./config.cache as the cache file,
+# creating it if it does not exist already.  You can give configure
+# the --cache-file=FILE option to use a different cache file; that is
+# what configure does when it calls configure scripts in
+# subdirectories, so they share the cache.
+# Giving --cache-file=/dev/null disables caching, for debugging configure.
+# config.status only pays attention to the cache file if you give it the
+# --recheck option to rerun configure.
+#
+EOF
+# Ultrix sh set writes to stderr and can't be redirected directly,
+# and sets the high bit in the cache file unless we assign to the vars.
+(set) 2>&1 |
+  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
+  >> confcache
+if cmp -s $cache_file confcache; then
+  :
+else
+  if test -w $cache_file; then
+    echo "updating cache $cache_file"
+    cat confcache > $cache_file
+  else
+    echo "not updating unwritable cache $cache_file"
+  fi
+fi
+rm -f confcache
+
+trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
+
+test "x$prefix" = xNONE && prefix=$ac_default_prefix
+# Let make expand exec_prefix.
+test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
+
+# Any assignment to VPATH causes Sun make to only execute
+# the first set of double-colon rules, so remove it if not needed.
+# If there is a colon in the path, we need to keep it.
+if test "x$srcdir" = x.; then
+  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
+fi
+
+trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
+
+# Transform confdefs.h into DEFS.
+# Protect against shell expansion while executing Makefile rules.
+# Protect against Makefile macro expansion.
+cat > conftest.defs <<\EOF
+s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
+s%[ 	`~#$^&*(){}\\|;'"<>?]%\\&%g
+s%\[%\\&%g
+s%\]%\\&%g
+s%\$%$$%g
+EOF
+DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
+rm -f conftest.defs
+
+
+# Without the "./", some shells look in PATH for config.status.
+: ${CONFIG_STATUS=./config.status}
+
+echo creating $CONFIG_STATUS
+rm -f $CONFIG_STATUS
+cat > $CONFIG_STATUS <<EOF
+#! /bin/sh
+# Generated automatically by configure.
+# Run this file to recreate the current configuration.
+# This directory was configured as follows,
+# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+#
+# $0 $ac_configure_args
+#
+# Compiler output produced by configure, useful for debugging
+# configure, is in ./config.log if it exists.
+
+ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
+for ac_option
+do
+  case "\$ac_option" in
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
+    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
+  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
+    echo "$CONFIG_STATUS generated by autoconf version 2.7"
+    exit 0 ;;
+  -help | --help | --hel | --he | --h)
+    echo "\$ac_cs_usage"; exit 0 ;;
+  *) echo "\$ac_cs_usage"; exit 1 ;;
+  esac
+done
+
+ac_given_srcdir=$srcdir
+
+trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+# Protect against being on the right side of a sed subst in config.status.
+sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
+ s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
+$ac_vpsub
+$extrasub
+s%@CFLAGS@%$CFLAGS%g
+s%@CPPFLAGS@%$CPPFLAGS%g
+s%@CXXFLAGS@%$CXXFLAGS%g
+s%@DEFS@%$DEFS%g
+s%@LDFLAGS@%$LDFLAGS%g
+s%@LIBS@%$LIBS%g
+s%@exec_prefix@%$exec_prefix%g
+s%@prefix@%$prefix%g
+s%@program_transform_name@%$program_transform_name%g
+s%@bindir@%$bindir%g
+s%@sbindir@%$sbindir%g
+s%@libexecdir@%$libexecdir%g
+s%@datadir@%$datadir%g
+s%@sysconfdir@%$sysconfdir%g
+s%@sharedstatedir@%$sharedstatedir%g
+s%@localstatedir@%$localstatedir%g
+s%@libdir@%$libdir%g
+s%@includedir@%$includedir%g
+s%@oldincludedir@%$oldincludedir%g
+s%@infodir@%$infodir%g
+s%@mandir@%$mandir%g
+s%@DFLGS@%$DFLGS%g
+s%@EOBJ@%$EOBJ%g
+s%@ETKOBJ@%$ETKOBJ%g
+s%@MACHINE@%$MACHINE%g
+s%@RANLIB@%$RANLIB%g
+s%@STRIP@%$STRIP%g
+s%@CC@%$CC%g
+s%@STKCFLAGS@%$STKCFLAGS%g
+s%@STKLDFLAGS@%$STKLDFLAGS%g
+s%@CPP@%$CPP%g
+s%@X_CFLAGS@%$X_CFLAGS%g
+s%@X_PRE_LIBS@%$X_PRE_LIBS%g
+s%@X_LIBS@%$X_LIBS%g
+s%@X_EXTRA_LIBS@%$X_EXTRA_LIBS%g
+s%@XINCLUDES@%$XINCLUDES%g
+s%@XLIBSW@%$XLIBSW%g
+s%@MP@%$MP%g
+s%@DYNLOAD@%$DYNLOAD%g
+s%@EXTRA_OBJ@%$EXTRA_OBJ%g
+s%@LIB_DLD@%$LIB_DLD%g
+s%@SH_CCFLAGS@%$SH_CCFLAGS%g
+s%@SH_LDFLAGS@%$SH_LDFLAGS%g
+s%@SH_LOADER@%$SH_LOADER%g
+s%@SH_SUFFIX@%$SH_SUFFIX%g
+s%@LIB_MALLOC@%$LIB_MALLOC%g
+
+CEOF
+EOF
+cat >> $CONFIG_STATUS <<EOF
+
+CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
+  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  case "$ac_file" in
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
+  *) ac_file_in="${ac_file}.in" ;;
+  esac
+
+  # Adjust relative srcdir, etc. for subdirectories.
+
+  # Remove last slash and all that follows it.  Not all systems have dirname.
+  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
+  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
+    # The file is in a subdirectory.
+    test ! -d "$ac_dir" && mkdir "$ac_dir"
+    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
+    # A "../" for each directory in $ac_dir_suffix.
+    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
+  else
+    ac_dir_suffix= ac_dots=
+  fi
+
+  case "$ac_given_srcdir" in
+  .)  srcdir=.
+      if test -z "$ac_dots"; then top_srcdir=.
+      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
+  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
+  *) # Relative path.
+    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
+    top_srcdir="$ac_dots$ac_given_srcdir" ;;
+  esac
+
+  echo creating "$ac_file"
+  rm -f "$ac_file"
+  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
+  case "$ac_file" in
+  *Makefile*) ac_comsub="1i\\
+# $configure_input" ;;
+  *) ac_comsub= ;;
+  esac
+  sed -e "$ac_comsub
+s%@configure_input@%$configure_input%g
+s%@srcdir@%$srcdir%g
+s%@top_srcdir@%$top_srcdir%g
+" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+fi; done
+rm -f conftest.subs
+
+
+
+exit 0
+EOF
+chmod +x $CONFIG_STATUS
+rm -fr confdefs* $ac_clean_files
+test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
+
+
+##############################################################################
+
+####
+#### Configuring Sub-directories
+####
+
+echo "**** Configuring Src directory";
+(cd Src; CC=$CC MACH=$MACH /bin/sh ./configure)
+
+echo "**** Configuring Extensions directory";
+(cd Extensions; CC=$CC MACH=$MACH /bin/sh ./configure)
+
+echo "**** Configuring Tcl directory";
+(cd Tcl; CC=$CC /bin/sh ./configure)
+
+echo "**** Configuring Tk directory";
+if test "$x_includes" != "" -a "$x_libraries" != ""
+then
+  (cd Tk/unix; CC=$CC /bin/sh ./configure --x-includes=$x_includes \
+				          --x-libraries=$x_libraries)
+else
+  (cd Tk/unix; CC=$CC /bin/sh ./configure)
+fi
+
+###
+### Some things to terminate
+###
+
+
+# FreeBsd seems to use an old syntax for inclusion in Makefile. Patch
+# Makefiles acordingly 
+
+case $OS in
+   FREEBSD) for i in */Makefile
+	    do
+		sed <$i > X$$X 's%include ../config.make%.include "../config.make"%'
+		mv X$$X $i
+	    done;;
+   *)       ;;
+esac
+
+###
+### SUMMARY
+###
+
+echo " "
+echo " "
+echo "SUMMARY"
+echo "*******"
+echo "   Your system is " $OS
+echo "   C compiler is:" $CC
+echo "   Compilation options:" $STKCFLAGS
+echo "   Dynamic loading enabled:" $HAVE_DYNLOAD
+echo "   X11 libraries directory:" $x_libraries
+echo "   X11 headers directory:"   $x_includes
+echo " "
+echo "   You have choosed the following options"
+echo "		Multiple precision library:     " $MP
+echo "		Hash tables support:            " $hashtable
+echo "		Posix support:                  " $posix
+echo "		STklos support:                 " $stklos
+echo "		Socket support:                 " $socket
+echo "		Regexp support:                 " $regexpr
+echo "		Process support:                " $process
+echo "		Html support:                   " $html
+echo "		Pixmap Images support:          " $pixmapimages
+echo " "
+echo "If this is correct, you can just type 'make' now at your shell prompt."
+echo "Otherwise, rerun configure with proper options (see the README file for"
+echo "a description of STk configure options.)"
+echo " "
+
diff --git a/configure.in b/configure.in
new file mode 100644
index 0000000..f1727f4
--- /dev/null
+++ b/configure.in
@@ -0,0 +1,527 @@
+dnl	This file is an input file used by the GNU "autoconf" program to
+dnl	generate the file "configure", which is run during STk installation
+dnl	to configure the system for the local environment.
+
+AC_INIT(README)
+
+# I have a lot of problems with cache. So ...
+/bin/rm -f ./config.cache Src/config.cache Tk/config.cache Tcl/config.cache
+
+# determine the kind of the machine which is running this script
+os=`uname -s`
+version=`uname -r`
+machine=`uname -m`
+
+case $os in
+  Linux*) 
+	  case $version in
+            1.*) version=1.X;;
+	    2.*) version=2.X;;
+	  esac
+	  case $machine in
+	    i*86) machine=ix86;;
+	  esac;;
+  SunOS*)
+	  case $version in
+	    4.1.*) version=4.1.X;;
+	  esac
+	  case $machine in
+	    sun4*) machine=sun4;;
+	  esac;;
+  IRIX*)
+	  case $version in
+	    5.*) version=5.X;;
+	    6.*) version=6.X;;
+	  esac
+	  case $machine in
+	   IP*) machine=IPxx;;
+	  esac;;
+  HP-UX*)
+ 	  case $version in
+ 	    A.09.*) version=9.X;;
+ 	    A.10.*) version=10.X;;
+ 	  esac
+ 	  case $machine in
+ 	    9000/7*) machine=9000s700;;
+ 	  esac;;
+esac
+
+#
+# General variables:
+#	DFLGS= the -Dxxx options
+#	EDFLGS= the -Dxxx options (which could be erased if dyn. loading is enabled)
+#	EOBJ= Some extra '.o' to build
+#	ETKOBJ= Some extra '.o' to build (when used with Tk)
+#	MACHINE= something which identifies the machine (hard/OS/machine)
+DFLGS="-DSTk_CODE"
+EOBJ=""
+ETKOBJ=""
+EDFLGS=""
+MACHINE=$os-$version-$machine
+AC_SUBST(DFLGS, DFLGS)
+AC_SUBST(EOBJ, EOBJ)
+AC_SUBST(ETKOBJ, ETKOBJ)
+AC_SUBST(MACHINE,MACHINE)
+
+####
+#### Checks for various programs:
+####
+AC_PROG_RANLIB
+STRIP=strip; AC_SUBST(STRIP)
+
+####
+#### Find the C compiler an compile flags
+####
+CC=${CC-gcc}
+echo "Using '$CC' compiler"
+AC_SUBST(CC)
+
+STKCFLAGS=${CFLAGS-"-O2"}
+AC_SUBST(STKCFLAGS, STKCFLAGS)
+echo "Using '$STKCFLAGS' compilation options"
+
+STKLDFLAGS=""
+AC_SUBST(STKLDFLAGS)
+
+####
+#### Try to figure the system we have
+####
+case $MACHINE in
+  SunOS-4*)  OS=SUNOS4;;
+  SunOS-5*)  OS=SUNOS5;;
+  OSF1*)     OS=OSF1;;
+  ULTRIX*)   OS=ULTRIX;;
+  HP*)	     OS=HPUX; DFLGS="$DFLGS -Dhpux";;
+  Linux*)    OS=LINUX;;
+  NetBSD-1*) OS=NETBSD1;;
+  FreeBSD*)  OS=FREEBSD;;
+  IRIX-5*)   OS=IRIX5;;
+  *)         OS=unknown_system;;
+esac
+
+# Set the OS flag soon since it can be augmented with Linux
+DFLGS="$DFLGS -D$OS"
+echo "Assumming OS is $OS"
+
+####
+#### X11 stuff
+####
+AC_PATH_X
+AC_PATH_XTRA
+
+XINCLUDES=""; AC_SUBST(XINCLUDES)
+XLIBSW="";    AC_SUBST(XLIBSW)
+
+if test "$x_includes" != "" 
+then 
+  XINCLUDES="-I$x_includes"
+fi
+
+if test "$x_libraries" != ""
+then
+   XLIBSW="-L$x_libraries"
+fi
+
+XLIBSW="$XLIBSW $X_PRE_LIBS -lX11 $X_EXTRA_LIBS"
+
+
+#--------------------------------------------------------------------
+#	Include sys/select.h if it exists and if it supplies things
+#	that appear to be useful and aren't already in sys/types.h.
+#	This appears to be true only on the RS/6000 under AIX.  Some
+#	systems like OSF/1 have a sys/select.h that's of no use, and
+#	other systems like SCO UNIX have a sys/select.h that's
+#	pernicious.  If "fd_set" isn't defined anywhere then set a
+#	special flag.
+#--------------------------------------------------------------------
+
+AC_MSG_CHECKING([fd_set and sys/select])
+AC_TRY_COMPILE([#include <sys/types.h>],
+	[fd_set readMask, writeMask;], tk_ok=yes, tk_ok=no)
+if test $tk_ok = no; then
+    AC_HEADER_EGREP(fd_mask, sys/select.h, tk_ok=yes)
+    if test $tk_ok = yes; then
+	AC_DEFINE(HAVE_SYS_SELECT_H)
+    fi
+fi
+AC_MSG_RESULT($tk_ok)
+if test $tk_ok = no; then
+    AC_DEFINE(NO_FD_SET)
+fi
+
+
+####
+#### Find the MP library to use
+####
+AC_ARG_WITH(fgmp, 
+	[	--with-fgmp		Use a free replacement of Gnu MP package],
+	MP=libfgmp, 
+	MP=libgmp)
+echo "Multiple precision library: $MP"
+AC_SUBST(MP, MP)
+
+####
+#### Hash tables
+####
+AC_ARG_ENABLE(hash, 
+	[	--enable-hash		Enable hash table support],
+	hashtable="$enable_hash",
+	hashtable="yes")
+
+if test "$hashtable" = "yes" ; 
+then
+  EOBJ="$EOBJ hash.o"; EDFLGS="$EDFLGS -DUSE_HASH"
+fi
+
+echo "Hash tables support: $hashtable"
+
+####
+#### Posix support
+####
+AC_ARG_ENABLE(posix, 
+	[	--enable-posix		Enable posix support],
+	posix="$enable_posix",
+	posix="yes")
+
+if test "$posix" = "yes" ; 
+then
+  EOBJ="$EOBJ posix.o"; EDFLGS="$EDFLGS -DUSE_POSIX"
+fi
+
+echo "Posix support: $posix"
+
+####
+#### Use STklos support
+####
+AC_ARG_ENABLE(stklos,
+	[	--enable-stklos		Provide support for STklos], 
+	stklos="$enable_stklos",
+	stklos="yes")
+
+if test "$stklos" = "yes" ; 
+then
+  if test "$hashtable" != "yes"
+  then
+    echo "*** Hash table support is required for STklos."
+    echo "*** Forcing hash table support building."
+    EOBJ="$EOBJ hash.o"; EDFLGS="$EDFLGS -DUSE_HASH"
+  fi
+  DFLGS="$DFLGS -DUSE_STKLOS"
+fi
+echo "STklos support: $stklos"
+
+####
+#### Use Socket support from David Tolpin (dvd@pizza.msk.su)
+####
+AC_ARG_ENABLE(socket, 
+	[	--enable-socket		Provide support for sockets],
+	socket="$enable_socket",
+	socket="yes")
+
+if test "$socket" = "yes" 
+then
+   EOBJ="$EOBJ socket.o"; EDFLGS="$EDFLGS -DUSE_SOCKET"
+fi
+echo "Socket support: $socket"
+
+
+####
+#### Use Regexp support 
+####
+AC_ARG_ENABLE(regexp, 
+	[	--enable-regexp		Provide support for regular expressions],
+	regexpr="$enable_regexpr",
+	regexpr="yes")
+
+if test "$regexpr" = "yes" 
+then 
+   EOBJ="$EOBJ sregexp.o"; EDFLGS="$EDFLGS -DUSE_REGEXP"
+fi
+echo "Regexp support: $regexpr"
+
+
+####
+#### Use Process support 
+####
+AC_ARG_ENABLE(process, 
+	[	--enable-process	Provide support for Unix processes],
+	process="$enable_process",
+	process="yes")
+
+if test "$process" = "yes" 
+then
+   EOBJ="$EOBJ process.o"; EDFLGS="$EDFLGS -DUSE_PROCESS"
+fi
+echo "Process support: $process"
+
+####
+#### Html support
+####
+AC_ARG_ENABLE(html, 
+	[	--enable-html		Enable html support],
+	html="$enable_html",
+	html="yes")
+
+if test "$html" = "yes" ; 
+then
+  EOBJ="$EOBJ html.o"; EDFLGS="$EDFLGS -DUSE_HTML"
+fi
+
+echo "Html support: $html"
+
+####
+#### Pixmap support
+####
+AC_ARG_ENABLE(pixmap, 
+	[	--enable-pixmap		Enable pixmap images support],
+	pixmapimages="$enable_pixmap",
+	pixmapimages="yes")
+
+if test "$pixmapimages" = "yes" ; 
+then
+  ETKOBJ="$ETKOBJ pixmap.o"; EDFLGS="$EDFLGS -DUSE_PIXMAP"
+fi
+echo "Pixmap Images support: $pixmapimages"
+
+
+##############################################################################
+####
+#### Dynamic loading
+#### 
+##############################################################################
+DYNLOAD=""       ; AC_SUBST(DYNLOAD)
+EXTRA_OBJ=""     ; AC_SUBST(EXTRA_OBJ)
+LIB_DLD=""	 ; AC_SUBST(LIB_DLD)
+HAVE_DYNLOAD=yes
+
+case $OS in
+  unkn*)   HAVE_DYNLOAD="no";;
+  ULTRIX)  HAVE_DYNLOAD="no";;
+  LINUX)   HAVE_DYNLOAD="no";
+	   # Try to see if this system could be a ELF one
+	   elf_hint="no"
+	   for i in /lib/libc.so*
+	   do
+	     set `file  $i`
+	     if test "$2" = "ELF"
+	     then 
+	       elf_hint="yes"
+	       break
+	     fi
+	   done 2> /dev/null
+ 
+           AC_ARG_ENABLE(elf,
+	   [	--enable-elf		Enable Dynamic Loading using ELF (Linux only)],
+	   dynload_elf="$enable_elf",
+	   dynload_elf=$elf_hint)
+	   
+           AC_ARG_ENABLE(dld,
+	   [	--enable-dld		Enable Dynamic Loading using DLD (Linux only)],
+	   dynload_dld="$enable_dld",
+	   dynload_dld="no")
+	   if test "$dynload_elf" = "yes"
+	   then 
+	     if test "$dynload_dld" = "yes"
+	     then
+	       echo "**** You have set both DLD and ELF support. Rerun configure"
+	       exit 1
+	     fi
+	     OS=LINUX_ELF
+	     echo "Linux: Using ELF for dynamic loading"
+	     HAVE_DYNLOAD="yes"
+	   fi
+	   if test "$dynload_dld" = "yes"
+	   then 
+	     OS=LINUX_DLD
+	     echo "Linux: Using DLD for dynamic loading"
+	     HAVE_DYNLOAD="yes"
+	   fi
+	   # Set a compilation flag indicating the format used
+	   DFLGS="$DFLGS -D$OS" ;;
+   *)      AC_ARG_ENABLE(dynload, 
+		[	--enable-dynload	Enable Dynamic loading],
+		dynload="$enable_dynload",
+		dynload="yes")
+
+	   if test "$dynload" = "no"
+	   then
+	     echo "======== Don't use dynamic loading ======="; 
+	     HAVE_DYNLOAD="no";
+	   fi;;
+esac
+	
+
+SH_CCFLAGS=""; AC_SUBST(SH_CCFLAGS)
+SH_LDFLAGS=""; AC_SUBST(SH_LDFLAGS)
+SH_LOADER=":"; AC_SUBST(SH_LOADER)
+SH_SUFFIX="";  AC_SUBST(SH_SUFFIX)
+LIB_MALLOC=""; AC_SUBST(LIB_MALLOC)
+
+echo "Determining options for dynamic loading for $OS"
+case $OS in 
+  SUNOS4) 
+     SH_CCFLAGS="-pic"
+     SH_LDFLAGS="-assert pure-text -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   SUNOS5)
+     SH_CCFLAGS="-K pic"
+     SH_LDFLAGS='-G -z text -h'
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   OSF1)
+     SH_CCFLAGS="-fpic"
+     SH_LDFLAGS="-shared -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so' ;;
+   NETBSD1) 
+     SH_CCFLAGS="-fpic"
+     SH_LDFLAGS="-Bshareable -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='so';;
+   HPUX)
+     SH_CCFLAGS="+Z"
+     SH_LDFLAGS="-b -o"
+     SH_LOADER="ld"
+     SH_SUFFIX='sl'
+     STKLDFLAGS="$STKLDFLAGS -Wl,-E"
+     LIB_DLD=-ldld;;
+   FREEBSD)
+     SH_CCFLAGS="-pic"
+     SH_LDFLAGS="-Bshareable -o"
+     SH_LOADER="ld"
+     LIB_MALLOC="-lgnumalloc"
+     SH_SUFFIX='so';;
+   IRIX5)
+     if test "$CC" = "gcc"
+     then 
+       SH_CCFLAGS="-fpic"
+     else
+       SH_CCFLAGS="-KPIC"
+     fi
+     SH_LDFLAGS="-shared -o"
+     SH_LOADER="$CC"
+     SH_SUFFIX='so' ;;
+   LINUX)
+     echo "     Linux: no dynamic loading method choosed";;
+   LINUX_DLD)
+     SH_CCFLAGS=''
+     SH_LDFLAGS='-r -o'
+     SH_LOADER='ld'
+     SH_SUFFIX='so'
+     # Define STRIP to true to avoid executables striping when using DLD
+     STRIP=true
+     # Add the -ldld flag 
+     LIB_DLD=-ldld;;
+   LINUX_ELF)
+     SH_CCFLAGS=''
+     SH_LDFLAGS='-shared -o'
+     SH_LOADER='ld'
+     SH_SUFFIX='so' 
+     # Under ELF, use the -rdynamic option at ld phase
+     STKLDFLAGS=-rdynamic;;
+   *) echo " (I don't know how to make shared libraries for $OS)" ;;
+esac
+
+#
+# Transform -pic in -fpic if using gcc
+#
+if test ! -z "SH_CCFLAGS" ; then 
+  if test "$CC" = "gcc" -a "$SH_CCFLAGS" != "" ; then
+    SH_CCFLAGS="-fpic"
+  fi
+fi
+
+if  test "$HAVE_DYNLOAD" = "yes"
+then
+  for _i_ in $EOBJ $ETKOBJ
+  do 
+    EXTRA_OBJ="$EXTRA_OBJ `basename $_i_ .o`.$SH_SUFFIX"
+  done
+  DYNLOAD=-DUSE_DYNLOAD
+  EOBJ=""
+  ETKOBJ=""
+  EDFLGS=""
+fi
+
+# Set final DFLGS
+DFLGS="$DFLGS $EDFLGS"
+
+####
+#### Produce the Makefile
+####
+echo
+AC_OUTPUT(Makefile)
+
+##############################################################################
+
+####
+#### Configuring Sub-directories
+####
+
+echo "**** Configuring Src directory";
+(cd Src; CC=$CC MACH=$MACH /bin/sh ./configure)
+
+echo "**** Configuring Extensions directory";
+(cd Extensions; CC=$CC MACH=$MACH /bin/sh ./configure)
+
+echo "**** Configuring Tcl directory";
+(cd Tcl; CC=$CC /bin/sh ./configure)
+
+echo "**** Configuring Tk directory";
+if test "$x_includes" != "" -a "$x_libraries" != ""
+then
+  (cd Tk/unix; CC=$CC /bin/sh ./configure --x-includes=$x_includes \
+				          --x-libraries=$x_libraries)
+else
+  (cd Tk/unix; CC=$CC /bin/sh ./configure)
+fi
+
+###
+### Some things to terminate
+###
+
+
+# FreeBsd seems to use an old syntax for inclusion in Makefile. Patch
+# Makefiles acordingly 
+
+case $OS in
+   FREEBSD) for i in */Makefile
+	    do
+		sed <$i > X$$X 's%include ../config.make%.include "../config.make"%'
+		mv X$$X $i
+	    done;;
+   *)       ;;
+esac
+
+###
+### SUMMARY
+###
+
+echo " "
+echo " "
+echo "SUMMARY"
+echo "*******"
+echo "   Your system is " $OS
+echo "   C compiler is:" $CC
+echo "   Compilation options:" $STKCFLAGS
+echo "   Dynamic loading enabled:" $HAVE_DYNLOAD
+echo "   X11 libraries directory:" $x_libraries
+echo "   X11 headers directory:"   $x_includes
+echo " "
+echo "   You have choosed the following options"
+echo "		Multiple precision library:     " $MP
+echo "		Hash tables support:            " $hashtable
+echo "		Posix support:                  " $posix
+echo "		STklos support:                 " $stklos
+echo "		Socket support:                 " $socket
+echo "		Regexp support:                 " $regexpr
+echo "		Process support:                " $process
+echo "		Html support:                   " $html
+echo "		Pixmap Images support:          " $pixmapimages
+echo " "
+echo "If this is correct, you can just type 'make' now at your shell prompt."
+echo "Otherwise, rerun configure with proper options (see the README file for"
+echo "a description of STk configure options.)"
+echo " "
+